gdb-4.13/ 777 34562 1752 0 5623251756 10470 5ustar fnfcygnusgdb-4.13/gdb/ 777 34562 1752 0 5623251747 11224 5ustar fnfcygnusgdb-4.13/gdb/29k-share/ 777 34562 1752 0 5623250502 12715 5ustar fnfcygnusgdb-4.13/gdb/29k-share/udi/ 777 34562 1752 0 5623250506 13502 5ustar fnfcygnusgdb-4.13/gdb/29k-share/udi/udi2go32.c 666 34562 1752 27036 5466016370 15320 0ustar fnfcygnus/* Interface from UDI calls in 32-bit mode to go32 in 16-bit mode. Communication is done through a single interrupt vector, which passes data through two linear buffers. Call: AH = 0xfe AL = UDI function number ECX = IN length ESI = pointer to IN buffer EDI = pointer to OUT buffer Return: EAX = return value of UDI function Vector: 0x21 */ #ifdef __GO32__ #include #include "udiproc.h" #include "udisoc.h" char dfe_errmsg[500]; static char in_buffer[4096]; static char out_buffer[4096]; static char *in_ptr; static char *out_ptr; #define IN_INIT() in_ptr = in_buffer #define IN_VAL(t,v) *((t *)in_ptr)++ = v #define IN_DATA(ptr, cnt) memcpy(in_ptr, ptr, cnt), in_ptr += cnt #define OUT_INIT() out_ptr = out_buffer #define OUT_VAL(t) (*((t *)out_ptr)++) #define OUT_DATA(ptr, cnt) memcpy(ptr, out_ptr, cnt), out_ptr += cnt static int DO_CALL(int function) { asm("pushl %esi"); asm("pushl %edi"); asm("movb %0, %%al" : : "g" (function)); asm("movl _in_ptr, %ecx"); asm("movl $_in_buffer, %esi"); asm("subl %esi, %ecx"); asm("movl $_out_buffer, %edi"); asm("movb $0xfe, %ah"); asm("int $0x21"); asm("popl %edi"); asm("popl %esi"); } /*----------------------------------------------------------------------*/ #ifdef TEST_UDI int main() { int r; long p2; short p1; IN_INIT(); IN_VAL(long, 11111111); IN_VAL(short, 2222); IN_DATA("Hello, world\n", 17); r = DO_CALL(42); OUT_INIT(); p1 = OUT_VAL(short); p2 = OUT_VAL(long); printf("main: p1=%d p2=%d rv=%d\n", p1, p2, r); return r; } #endif /*----------------------------------------------------------------------*/ unsupported(char *s) { printf("unsupported UDI host call %s\n", s); abort(); } UDIError UDIConnect ( char *Configuration, /* In */ UDISessionId *Session /* Out */ ) { int r; out_buffer[0] = 0; /* DJ - test */ IN_INIT(); IN_DATA(Configuration, strlen(Configuration)+1); r = DO_CALL(UDIConnect_c); OUT_INIT(); *Session = OUT_VAL(UDISessionId); return r; } UDIError UDIDisconnect ( UDISessionId Session, /* In */ UDIBool Terminate /* In */ ) { int r; IN_INIT(); IN_VAL(UDISessionId, Session); IN_VAL(UDIBool, Terminate); return DO_CALL(UDIDisconnect_c); } UDIError UDISetCurrentConnection ( UDISessionId Session /* In */ ) { IN_INIT(); IN_VAL(UDISessionId, Session); return DO_CALL(UDISetCurrentConnection_c); } UDIError UDICapabilities ( UDIUInt32 *TIPId, /* Out */ UDIUInt32 *TargetId, /* Out */ UDIUInt32 DFEId, /* In */ UDIUInt32 DFE, /* In */ UDIUInt32 *TIP, /* Out */ UDIUInt32 *DFEIPCId, /* Out */ UDIUInt32 *TIPIPCId, /* Out */ char *TIPString /* Out */ ) { int r; IN_INIT(); IN_VAL(UDIUInt32, DFEId); IN_VAL(UDIUInt32, DFE); r = DO_CALL(UDICapabilities_c); OUT_INIT(); *TIPId = OUT_VAL(UDIUInt32); *TargetId = OUT_VAL(UDIUInt32); *TIP = OUT_VAL(UDIUInt32); *DFEIPCId = OUT_VAL(UDIUInt32); *TIPIPCId = OUT_VAL(UDIUInt32); strcpy(TIPString, out_ptr); return r; } UDIError UDIEnumerateTIPs ( UDIInt (*UDIETCallback) /* In */ ( char *Configuration ) /* In to callback() */ ) { UDIETCallback("montip.exe"); } UDIError UDIGetErrorMsg ( UDIError ErrorCode, /* In */ UDISizeT MsgSize, /* In */ char *Msg, /* Out */ UDISizeT *CountDone /* Out */ ) { int r; if (MsgSize > 4000) MsgSize = 4000; IN_INIT(); IN_VAL(UDIError, ErrorCode); IN_VAL(UDISizeT, MsgSize); r = DO_CALL(UDIGetErrorMsg_c); OUT_INIT(); *CountDone = OUT_VAL(UDISizeT); OUT_DATA(Msg, *CountDone); return r; } UDIError UDIGetTargetConfig ( UDIMemoryRange KnownMemory[], /* Out */ UDIInt *NumberOfRanges, /* In/Out */ UDIUInt32 ChipVersions[], /* Out */ UDIInt *NumberOfChips /* In/Out */ ) { int r, i; int nr = *NumberOfRanges; int nc = *NumberOfChips; IN_INIT(); IN_VAL(UDIInt, *NumberOfRanges); IN_VAL(UDIInt, *NumberOfChips); r = DO_CALL(UDIGetTargetConfig_c); if (r == UDIErrorIncomplete) return r; OUT_INIT(); *NumberOfRanges = OUT_VAL(UDIInt); *NumberOfChips = OUT_VAL(UDIInt); for (i=0; iSpace = OUT_VAL(short); Addr->Offset = OUT_VAL(CPUOffset); *PassCount = OUT_VAL(UDIInt32); *Type = OUT_VAL(UDIBreakType); *CurrentCount = OUT_VAL(UDIInt32); return r; } UDIError UDIClearBreakpoint ( UDIBreakId BreakId /* In */ ) { IN_INIT(); IN_VAL(UDIBreakId, BreakId); return DO_CALL(UDIClearBreakpoint_c); } UDIError UDIGetStdout ( UDIHostMemPtr Buf, /* Out */ UDISizeT BufSize, /* In */ UDISizeT *CountDone /* Out */ ) { int r; IN_INIT(); if (BufSize > 4000) BufSize = 4000; IN_VAL(UDISizeT,BufSize); r = DO_CALL(UDIGetStdout_c); OUT_INIT(); *CountDone = OUT_VAL(UDISizeT); if (*CountDone <= BufSize) OUT_DATA(Buf, *CountDone); return r; } UDIError UDIGetStderr ( UDIHostMemPtr Buf, /* Out */ UDISizeT BufSize, /* In */ UDISizeT *CountDone /* Out */ ) { int r; IN_INIT(); if (BufSize > 4000) BufSize = 4000; IN_VAL(UDISizeT,BufSize); r = DO_CALL(UDIGetStderr_c); OUT_INIT(); *CountDone = OUT_VAL(UDISizeT); OUT_DATA(Buf, *CountDone); return r; } UDIError UDIPutStdin ( UDIHostMemPtr Buf, /* In */ UDISizeT Count, /* In */ UDISizeT *CountDone /* Out */ ) { int r; IN_INIT(); if (Count > 4000) Count = 4000; IN_VAL(UDISizeT,Count); IN_DATA(Buf, Count); r = DO_CALL(UDIPutStdin_c); OUT_INIT(); *CountDone = OUT_VAL(UDISizeT); return r; } UDIError UDIStdinMode ( UDIMode *Mode /* Out */ ) { int r; IN_INIT(); r = DO_CALL(UDIStdinMode_c); OUT_INIT(); *Mode = OUT_VAL(UDIMode); return r; } UDIError UDIPutTrans ( UDIHostMemPtr Buf, /* In */ UDISizeT Count, /* In */ UDISizeT *CountDone /* Out */ ) { int r; IN_INIT(); if (Count > 4000) Count = 4000; IN_VAL(UDISizeT,Count); IN_DATA(Buf, Count); r = DO_CALL(UDIPutTrans_c); OUT_INIT(); *CountDone = OUT_VAL(UDISizeT); return r; } UDIError UDIGetTrans ( UDIHostMemPtr Buf, /* Out */ UDISizeT BufSize, /* In */ UDISizeT *CountDone /* Out */ ) { int r; IN_INIT(); if (BufSize > 4000) BufSize = 4000; IN_VAL(UDISizeT,BufSize); r = DO_CALL(UDIGetTrans_c); OUT_INIT(); *CountDone = OUT_VAL(UDISizeT); OUT_DATA(Buf, *CountDone); return r; } UDIError UDITransMode ( UDIMode *Mode /* Out */ ) { int r; IN_INIT(); r = DO_CALL(UDITransMode_c); OUT_INIT(); *Mode = OUT_VAL(UDIMode); return r; } #define DFEIPCIdCompany 0x0001 /* Company ID AMD */ #define DFEIPCIdProduct 0x1 /* Product ID 0 */ #define DFEIPCIdVersion 0x125 /* 1.2.5 */ unsigned UDIGetDFEIPCId () { return((((UDIUInt32)DFEIPCIdCompany) << 16) |(DFEIPCIdProduct << 12) | DFEIPCIdVersion); } #endif /* __GO32__ */ gdb-4.13/gdb/29k-share/udi/udiids.h 666 34562 1752 3465 5405462042 15222 0ustar fnfcygnus/* This file contains the DFE and TIP IDs to be used by AMD products for the UDICapabilities call. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Company Codes -- AMD assigns these */ #define UDICompanyCode_AMD 1 /* Build a UDIID given a CompanyProdCode and 3 version pieces */ #define UDIID(CompanyProdCode, v1,v2,v3) ((((CompanyProdCode) & 0xfffff)<<12)+\ (((v1)&0xf)<<8) + (((v2)&0xf)<<4) + ((v3)&0xf)) /* Extract a CompanyProdCode or a Version from a UDIID */ #define UDIID_CompanyProdCode(id) (((id)>>12) & 0xfffff) #define UDIID_Version(id) ((id)&0xfff) #define UDIAMDProduct(ProdCode) ((UDICompanyCode_AMD<<4) + (ProdCode&0xf)) /* AMD DFE Product Codes */ #define UDIProductCode_Mondfe UDIAMDProduct(0) #define UDIProductCode_XRAY UDIAMDProduct(1) #define UDIProductCode_TIPTester UDIAMDProduct(2) /* AMD TIP Product Codes (need not be distinct from DFE Product Codes) */ #define UDIProductCode_Montip UDIAMDProduct(0) #define UDIProductCode_Isstip UDIAMDProduct(1) #define UDILatestVersion 0x120 /* UDI 1.2.0, can be used in DFE and TIP desired UDI params */ gdb-4.13/gdb/29k-share/udi/udip2soc.c 666 34562 1752 116054 5466021623 15526 0ustar fnfcygnus/* Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ static char udip2soc_c[]="@(#)udip2soc.c 2.11 Daniel Mann"; static char udip2soc_c_AMD[]="@(#)udip2soc.c 2.8, AMD"; /* * This module converts UDI Procedural calls into * UDI socket messages for UNIX. * It is used by DFE client processes ********************************************************************** HISTORY */ /* This is all unneeded on DOS machines. */ #ifndef __GO32__ #include #include /* Before sys/file.h for Unixware. */ #include #include /* This used to say sys/fcntl.h, but the only systems I know of that require that are old (pre-4.3, at least) BSD systems, which we probably don't need to worry about. */ #include #include #include #include #include #include #include #include #include #include "udiproc.h" #include "udisoc.h" extern int errno; extern int sys_nerr; extern char* sys_errlist[]; extern int udr_errno; extern char* getenv(); /* local type decs. and macro defs. not in a .h file ************* MACRO/TYPE */ #define version_c 0x121 /* DFE-IPC version id */ #define TRUE -1 #define FALSE 0 #define PORT_NUM 7000 #define MAX_SESSIONS 5 /* maximum DFE-TIP connections */ #define SOC_BUF_SIZE 4* 1024 /* size of socket comms buffer */ #define SBUF_SIZE 500 /* size of string buffer */ #define ERRMSG_SIZE 500 /* size of error message buffer */ typedef struct connection_str /* record of connect session */ { int in_use; char connect_id[20]; /* connection identifier */ char domain_string[20]; /* dommaing for conection */ char tip_string[30]; /* TIP host name for AF_INET */ char tip_exe[80]; /* TIP exe name */ int dfe_sd; /* associated DFE socket */ int tip_pid; /* pid of TIP process */ struct sockaddr_in dfe_sockaddr; struct sockaddr_in tip_sockaddr_in; struct sockaddr tip_sockaddr; } connection_t; typedef struct session_str { int in_use; connection_t* soc_con_p; /* associated connection */ UDISessionId tip_id; /* associated TIP session ID */ } session_t; /* global dec/defs. which are not in a .h file ************* EXPORT DEC/DEFS */ UDIError dfe_errno; char dfe_errmsg[ERRMSG_SIZE];/* error string */ /* local dec/defs. which are not in a .h file *************** LOCAL DEC/DEFS */ LOCAL connection_t soc_con[MAX_SESSIONS]; LOCAL session_t session[MAX_SESSIONS]; LOCAL UDR udr; LOCAL UDR* udrs = &udr; /* UDR for current session */ LOCAL int current; /* int-id for current session */ LOCAL char sbuf[SBUF_SIZE]; /* String handler buffer */ LOCAL char config_file[80]; /* path/name for config file */ /***************************************************************** UDI_CONNECT * Establish a new FDE to TIP conection. The file "./udi_soc" or * "/etc/udi_soc" may be examined to obtain the conection information * if the "Config" parameter is not a completd "line entry". * * NOTE: the Session string must not start whith white-space characters. * Format of string is: * * soc2cayman AF_INET cayman 7000 * soc2tip AF_UNIX astring tip.exe ... */ UDIError UDIConnect(Config, Session) char *Config; /* in -- identification string */ UDISessionId *Session; /* out -- session ID */ { UDIInt32 service_id = UDIConnect_c; int domain; int cnt=0; int rcnt, pos, params_pos=0; char *tip_main_string; char *env_p; struct hostent *tip_info_p; FILE *fd; #if 0 FILE *f_p; #endif UDIUInt32 TIPIPCId; UDIUInt32 DFEIPCId; #if 0 /* This is crap. It assumes that udi_soc is executable! */ sprintf(sbuf, "which udi_soc"); f_p = popen(sbuf, "r"); if(f_p) { while( (sbuf[cnt++]=getc(f_p)) != EOF); sbuf[cnt-2]=0; } pclose(f_p); #endif for (rcnt=0; rcnt < MAX_SESSIONS && session[rcnt].in_use; rcnt++); if (rcnt >= MAX_SESSIONS) { sprintf(dfe_errmsg, "DFE-ipc ERROR: Too many sessions already open"); return UDIErrorIPCLimitation; } /* One connection can be multiplexed between several sessions. */ for (cnt=0; cnt < MAX_SESSIONS && soc_con[cnt].in_use; cnt++); if (cnt >= MAX_SESSIONS) { sprintf(dfe_errmsg, "DFE-ipc ERROR: Too many connections already open"); return UDIErrorIPCLimitation; } *Session = rcnt; session[rcnt].soc_con_p = &soc_con[cnt]; if (strchr(Config, ' ')) /* test if file entry given */ { soc_con[cnt].in_use = TRUE; sscanf(Config, "%s %s %s %s %n", soc_con[cnt].connect_id, soc_con[cnt].domain_string, soc_con[cnt].tip_string, soc_con[cnt].tip_exe, ¶ms_pos); tip_main_string = Config + params_pos; } else /* here if need to read udi_soc file */ { strcpy(config_file, "udi_soc"); env_p = getenv("UDICONF"); if (env_p) strcpy(config_file, env_p); fd = fopen(config_file, "r"); if (!fd) { sprintf(dfe_errmsg, "UDIConnect, can't open udi_soc file:\n%s ", sys_errlist[errno]); dfe_errno = UDIErrorCantOpenConfigFile; goto tip_failure; } while (1) { if (fscanf(fd, "%s %s %s %s %[^\n]\n", soc_con[cnt].connect_id, soc_con[cnt].domain_string, soc_con[cnt].tip_string, soc_con[cnt].tip_exe, sbuf) == EOF) break; if (strcmp(Config, soc_con[cnt].connect_id) != 0) continue; soc_con[cnt].in_use = TRUE; /* here if entry found */ tip_main_string = sbuf; break; } fclose(fd); if (!soc_con[cnt].in_use) { sprintf(dfe_errmsg, "UDIConnect, can't find `%s' entry in udi_soc file", Config); dfe_errno = UDIErrorNoSuchConfiguration; goto tip_failure; } } /*----------------------------------------------------------- SELECT DOMAIN */ if (strcmp(soc_con[cnt].domain_string, "AF_UNIX") == 0) domain = AF_UNIX; else if (strcmp(soc_con[cnt].domain_string, "AF_INET") == 0) domain = AF_INET; else { sprintf(dfe_errmsg, "DFE-ipc ERROR: socket address family not known"); dfe_errno = UDIErrorBadConfigFileEntry; goto tip_failure; } /*---------------------------------------------------- MULTIPLEXED SOCKET ? */ /* If the requested session requires communication with a TIP which already has a socket connection established, then we do not create a new socket but multiplex the existing one. A TIP is said to use the same socket if socket-name/host-name and the domain are the same. */ for (rcnt=0; rcnt < MAX_SESSIONS; rcnt++) { if (soc_con[rcnt].in_use && rcnt != cnt && strcmp(soc_con[cnt].domain_string, soc_con[rcnt].domain_string) == 0 && strcmp(soc_con[cnt].tip_string, soc_con[rcnt].tip_string) == 0) { session[*Session].soc_con_p = &soc_con[rcnt]; soc_con[cnt].in_use = FALSE; /* don't need new connect */ goto tip_connect; } } /*------------------------------------------------------------------ SOCKET */ soc_con[cnt].dfe_sd = socket(domain, SOCK_STREAM, 0); if (soc_con[cnt].dfe_sd == -1) { sprintf(dfe_errmsg, "DFE-ipc ERROR, socket() call failed %s ", sys_errlist[errno]); dfe_errno = UDIErrorUnknownError; goto tip_failure; } /*--------------------------------------------------------- AF_UNIX CONNECT */ if (domain == AF_UNIX) { if (strcmp(soc_con[cnt].tip_string, "*") == 0) { for (pos = 0; pos < 20; pos++) { int f; sprintf(soc_con[cnt].tip_string,"/tmp/U%d", getpid() + pos); f = open(soc_con[cnt].tip_string, O_CREAT); if (f == -1) continue; close(f); unlink(soc_con[cnt].tip_string); break; } if (pos >= 20) { sprintf(dfe_errmsg, "DFE-ipc ERROR, can't create random socket name"); dfe_errno = UDIErrorCantConnect; goto tip_failure; } } soc_con[cnt].tip_sockaddr.sa_family = domain; memcpy(soc_con[cnt].tip_sockaddr.sa_data, soc_con[cnt].tip_string, sizeof(soc_con[cnt].tip_sockaddr.sa_data)); if (connect(soc_con[cnt].dfe_sd, &soc_con[cnt].tip_sockaddr, sizeof(soc_con[cnt].tip_sockaddr))) { /* if connect() fails assume TIP not yet started */ /*------------------------------------------------------------ AF_UNIX EXEC */ int pid; int statusp; char *arg0; arg0 = strrchr(soc_con[cnt].tip_exe,'/'); if (arg0) arg0++; else arg0 = soc_con[cnt].tip_exe; pid = vfork(); if (pid == 0) /* Child */ { execlp(soc_con[cnt].tip_exe, arg0, soc_con[cnt].domain_string, soc_con[cnt].tip_string, NULL); _exit(1); } if (waitpid(pid, &statusp, WNOHANG)) { sprintf(dfe_errmsg, "DFE-ipc ERROR: can't exec the TIP"); dfe_errno = UDIErrorCantStartTIP; goto tip_failure; } pos = 3; for (pos = 3; pos > 0; pos--) { if (!connect(soc_con[cnt].dfe_sd, &soc_con[cnt].tip_sockaddr, sizeof(soc_con[cnt].tip_sockaddr))) break; sleep(1); } if (pos == 0) { sprintf(dfe_errmsg, "DFE-ipc ERROR, connect() call failed: %s", sys_errlist[errno]); dfe_errno = UDIErrorCantConnect; goto tip_failure; } } } /*--------------------------------------------------------- AF_INET CONNECT */ else if (domain == AF_INET) { fprintf(stderr, "DFE-ipc WARNING, need to have first started remote TIP"); soc_con[cnt].tip_sockaddr_in.sin_family = domain; soc_con[cnt].tip_sockaddr_in.sin_addr.s_addr = inet_addr(soc_con[cnt].tip_string); if (soc_con[cnt].tip_sockaddr_in.sin_addr.s_addr == -1) { tip_info_p = gethostbyname(soc_con[cnt].tip_string); if (tip_info_p == NULL) { sprintf(dfe_errmsg,"DFE-ipc ERROR, No such host %s", soc_con[cnt].tip_string); dfe_errno = UDIErrorNoSuchConnection; goto tip_failure; } memcpy((char *)&soc_con[cnt].tip_sockaddr_in.sin_addr, tip_info_p->h_addr, tip_info_p->h_length); } soc_con[cnt].tip_sockaddr_in.sin_port = htons(atoi(soc_con[cnt].tip_exe)); if (connect(soc_con[cnt].dfe_sd, (struct sockaddr *) &soc_con[cnt].tip_sockaddr_in, sizeof(soc_con[cnt].tip_sockaddr_in))) { sprintf(dfe_errmsg, "DFE-ipc ERROR, connect() call failed %s ", sys_errlist[errno]); dfe_errno = UDIErrorCantConnect; goto tip_failure; } } /*------------------------------------------------------------- TIP CONNECT */ if (cnt == 0) udr_create(udrs, soc_con[cnt].dfe_sd, SOC_BUF_SIZE); tip_connect: current = cnt; session[*Session].in_use = TRUE; /* session id is now in use */ udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); DFEIPCId = (company_c << 16) + (product_c << 12) + version_c; udr_UDIUInt32(udrs, &DFEIPCId); udr_string(udrs, tip_main_string); udr_sendnow(udrs); udrs->udr_op = UDR_DECODE; /* recv all "out" parameters */ udr_UDIUInt32(udrs, &TIPIPCId); if ((TIPIPCId & 0xfff) < version_c) sprintf(dfe_errmsg, "DFE-ipc: Obsolete TIP Specified"); udr_UDIInt32(udrs, &soc_con[cnt].tip_pid); udr_UDISessionId(udrs, &session[*Session].tip_id); udr_UDIError(udrs, &dfe_errno); if (dfe_errno > 0) UDIKill(*Session, 0); return dfe_errno; tip_failure: soc_con[cnt].in_use = FALSE; session[*Session].in_use = FALSE; /* XXX - Should also close dfe_sd, but not sure what to do if muxed */ return dfe_errno; } /************************************************************** UDI_Disconnect * UDIDisconnect() should be called before exiting the * DFE to ensure proper shut down of the TIP. */ UDIError UDIDisconnect(Session, Terminate) UDISessionId Session; UDIBool Terminate; { int cnt; UDIInt32 service_id = UDIDisconnect_c; if(Session < 0 || Session > MAX_SESSIONS) { sprintf(dfe_errmsg," SessionId not valid (%d)", Session); return UDIErrorNoSuchConfiguration; } udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDISessionId(udrs, &session[Session].tip_id); udr_UDIBool(udrs, &Terminate); udr_sendnow(udrs); session[Session].in_use = FALSE; /* session id is now free */ for (cnt=0; cnt < MAX_SESSIONS; cnt++) if(session[cnt].in_use && session[cnt].soc_con_p == session[Session].soc_con_p ) break; if(cnt >= MAX_SESSIONS) /* test if socket not multiplexed */ if(shutdown(session[Session].soc_con_p->dfe_sd, 2)) { sprintf(dfe_errmsg, "DFE-ipc WARNING: socket shutdown failed"); return UDIErrorIPCInternal; } else session[Session].soc_con_p->in_use = 0; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /******************************************************************** UDI_KILL * UDIKill() is used to send a signal to the TIP. * This is a private IPC call. */ UDIError UDIKill(Session, Signal) UDISessionId Session; UDIInt32 Signal; { int cnt; UDIInt32 service_id = UDIKill_c; if(Session < 0 || Session > MAX_SESSIONS) { sprintf(dfe_errmsg," SessionId not valid (%d)", Session); return UDIErrorNoSuchConfiguration; } udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDISessionId(udrs, &session[Session].tip_id); udr_UDIInt32(udrs, &Signal); udr_sendnow(udrs); session[Session].in_use = FALSE; /* session id is now free */ for (cnt=0; cnt < MAX_SESSIONS; cnt++) if(session[cnt].in_use && session[cnt].soc_con_p == session[Session].soc_con_p ) break; if(cnt < MAX_SESSIONS) /* test if socket not multiplexed */ if(shutdown(session[Session].soc_con_p->dfe_sd, 2)) { sprintf(dfe_errmsg, "DFE-ipc WARNING: socket shutdown failed"); return UDIErrorIPCInternal; } else session[Session].soc_con_p->in_use = 0; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /************************************************** UDI_Set_Current_Connection * If you are connected to multiple TIPs, you can change * TIPs using UDISetCurrentConnection(). */ UDIError UDISetCurrentConnection(Session) UDISessionId Session; { UDIInt32 service_id = UDISetCurrentConnection_c; if(Session < 0 || Session > MAX_SESSIONS) return UDIErrorNoSuchConfiguration; if(!session[Session].in_use) /* test if not in use yet */ return UDIErrorNoSuchConnection; current = Session; /* change socket or multiplex the same socket */ udrs->sd = session[Session].soc_con_p->dfe_sd; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDISessionId(udrs, &session[Session].tip_id); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /************************************************************ UDI_Capabilities * The DFE uses UDICapabilities() to both inform the TIP * of what services the DFE offers and to inquire of the * TIP what services the TIP offers. */ UDIError UDICapabilities(TIPId, TargetId, DFEId, DFE, TIP, DFEIPCId, TIPIPCId, TIPString) UDIUInt32 *TIPId; /* out */ UDIUInt32 *TargetId; /* out */ UDIUInt32 DFEId; /* in */ UDIUInt32 DFE; /* in */ UDIUInt32 *TIP; /* out */ UDIUInt32 *DFEIPCId; /* out */ UDIUInt32 *TIPIPCId; /* out */ char *TIPString; /* out */ { UDIInt32 service_id = UDICapabilities_c; int size; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIInt32(udrs, &DFEId); udr_UDIInt32(udrs, &DFE); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" paramters */ udr_UDIInt32(udrs, TIPId); udr_UDIInt32(udrs, TargetId); udr_UDIInt32(udrs, TIP); udr_UDIInt32(udrs, DFEIPCId); *DFEIPCId = (company_c << 16) + (product_c << 12) + version_c; udr_UDIInt32(udrs, TIPIPCId); udr_string(udrs, sbuf); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ size = strlen(sbuf); if(size +1 > 80) return -1; /* test if sufficient space */ strcpy(TIPString, sbuf); return dfe_errno; } /********************************************************** UDI_Enumerate_TIPs * Used by the DFE to enquire about available TIP * connections. */ UDIError UDIEnumerateTIPs(UDIETCallback) int (*UDIETCallback)(); /* In -- function to callback */ { FILE *fp; fp = fopen(config_file, "r"); if(fp == NULL) return UDIErrorCantOpenConfigFile; while(fgets( sbuf, SBUF_SIZE, fp)) if(UDIETCallback( sbuf) == UDITerminateEnumeration) break; fclose( fp); return UDINoError; /* return success */ } /*********************************************************** UDI_GET_ERROR_MSG * Some errors are target specific. They are indicated * by a negative error return value. The DFE uses * UDIGetErrorMsg() to get the descriptive text for * the error message which can then be displayed to * the user. */ UDIError UDIGetErrorMsg(error_code, msg_len, msg, CountDone) UDIError error_code; /* In */ UDISizeT msg_len; /* In -- allowed message space */ char* msg; /* Out -- length of message*/ UDISizeT *CountDone; /* Out -- number of characters */ { UDIInt32 service_id = UDIGetErrorMsg_c; int size; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIError(udrs, &error_code); udr_UDISizeT(udrs, &msg_len); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_string(udrs, sbuf); udr_UDISizeT(udrs, CountDone); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ size = strlen(sbuf); if(size +1 > msg_len) return -1; /* test if sufficient space */ strcpy(msg, sbuf); return dfe_errno; } /******************************************************* UDI_GET_TARGET_CONFIG * UDIGetTargetConfig() gets information about the target. */ UDIError UDIGetTargetConfig(KnownMemory, NumberOfRanges, ChipVersions, NumberOfChips) UDIMemoryRange KnownMemory[]; /* Out */ UDIInt *NumberOfRanges; /* In and Out */ UDIUInt32 ChipVersions[]; /* Out */ UDIInt *NumberOfChips; /* In and Out */ { UDIInt32 service_id = UDIGetTargetConfig_c; int cnt; int MaxOfRanges = *NumberOfRanges; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIInt(udrs, NumberOfRanges); udr_UDIInt(udrs, NumberOfChips); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" paramters */ for(cnt=1; cnt <= MaxOfRanges; cnt++) udr_UDIMemoryRange(udrs, &KnownMemory[cnt-1]); udr_UDIInt(udrs, NumberOfRanges); udr_UDIInt(udrs, NumberOfChips); for(cnt=1; cnt <= *NumberOfChips; cnt++) udr_UDIUInt32(udrs, &ChipVersions[cnt -1]); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /********************************************************** UDI_CREATE_PRCOESS * UDICreateProcess() tells the target OS that a * process is to be created and gets a PID back unless * there is some error. */ UDIError UDICreateProcess(pid) UDIPId *pid; /* out */ { UDIInt32 service_id = UDICreateProcess_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIPId(udrs, pid); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /***************************************************** UDI_Set_Current_Process * UDISetCurrentProcess uses a pid supplied by * UDICreateProcess and sets it as the default for all * udi calls until a new one is set. A user of a */ UDIError UDISetCurrentProcess (pid) UDIPId pid; /* In */ { UDIInt32 service_id = UDISetCurrentProcess_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIPId(udrs, &pid); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /****************************************************** UDI_INITIALISE_PROCESS * UDIInitializeProcess() prepare process for * execution. (Reset processor if process os processor). */ UDIError UDIInitializeProcess( ProcessMemory, NumberOfRanges, EntryPoint, StackSizes, NumberOfStacks, ArgString) UDIMemoryRange ProcessMemory[]; /* In */ UDIInt NumberOfRanges; /* In */ UDIResource EntryPoint; /* In */ CPUSizeT *StackSizes; /* In */ UDIInt NumberOfStacks; /* In */ char *ArgString; /* In */ { UDIInt32 service_id = UDIInitializeProcess_c; int cnt; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIInt(udrs, &NumberOfRanges); for(cnt = 0; cnt < NumberOfRanges; cnt++) udr_UDIMemoryRange(udrs, &ProcessMemory[cnt] ); udr_UDIResource(udrs, &EntryPoint); udr_UDIInt(udrs, &NumberOfStacks); for(cnt = 0; cnt < NumberOfStacks; cnt++) udr_CPUSizeT(udrs, &StackSizes[cnt]); udr_string(udrs, ArgString); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /********************************************************* UDI_DESTROY_PROCESS * UDIDestroyProcess() frees a process resource * previously created by UDICreateProcess(). */ UDIError UDIDestroyProcess(pid) UDIPId pid; /* in */ { UDIInt32 service_id = UDIDestroyProcess_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIPId(udrs, &pid); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /****************************************************************** UDI_READ * UDIRead() reads a block of objects from a target * address space to host space. */ UDIError UDIRead (from, to, count, size, count_done, host_endian) UDIResource from; /* in - source address on target */ UDIHostMemPtr to; /* out - destination address on host */ UDICount count; /* in -- count of objects to be transferred */ UDISizeT size; /* in -- size of each object */ UDICount *count_done; /* out - count actually transferred */ UDIBool host_endian; /* in -- flag for endian information */ { UDIInt32 service_id = UDIRead_c; int byte_count; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIResource(udrs, &from); udr_UDICount(udrs, &count); udr_UDISizeT(udrs, &size); udr_UDIBool(udrs, &host_endian); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" paramters */ udr_UDICount(udrs, count_done); byte_count = (*count_done) * size; if(*count_done > 0 && *count_done <= count) udr_bytes(udrs, to, byte_count); if(udr_errno) return udr_errno; udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /****************************************************************** UDI_WRITE * UDIWrite() writes a block of objects from host * space to a target address+space. */ UDIError UDIWrite( from, to, count, size, count_done, host_endian ) UDIHostMemPtr from; /* in -- source address on host */ UDIResource to; /* in -- destination address on target */ UDICount count; /* in -- count of objects to be transferred */ UDISizeT size; /* in -- size of each object */ UDICount *count_done; /* out - count actually transferred */ UDIBool host_endian; /* in -- flag for endian information */ { UDIInt32 service_id = UDIWrite_c; int byte_count = count * size; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIResource(udrs, &to); udr_UDICount(udrs, &count); udr_UDISizeT(udrs, &size); udr_UDIBool(udrs, &host_endian); udr_bytes(udrs, from, byte_count); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" paramters */ udr_UDICount(udrs, count_done); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /******************************************************************** UDI_COPY * UDICopy() copies a block of objects from one target * get address/space to another target address/space. */ UDIError UDICopy(from, to, count, size, count_done, direction ) UDIResource from; /* in -- destination address on target */ UDIResource to; /* in -- source address on target */ UDICount count; /* in -- count of objects to be transferred */ UDISizeT size; /* in -- size of each object */ UDICount *count_done; /* out - count actually transferred */ UDIBool direction; /* in -- high-to-low or reverse */ { UDIInt32 service_id = UDICopy_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIResource(udrs, &from); udr_UDIResource(udrs, &to); udr_UDICount(udrs, &count); udr_UDISizeT(udrs, &size); udr_UDIBool(udrs, &direction); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDICount(udrs, count_done); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /***************************************************************** UDI_EXECUTE * UDIExecute() continues execution of the default * process from the current PC. */ UDIError UDIExecute() { UDIInt32 service_id = UDIExecute_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /******************************************************************** UDI_STEP * UDIStep() specifies a number of "instruction" * steps to make. */ UDIError UDIStep(steps, steptype, range) UDIUInt32 steps; /* in -- number of steps */ UDIStepType steptype; /* in -- type of stepping to be done */ UDIRange range; /* in -- range if StepInRange is TRUE */ { UDIInt32 service_id = UDIStep_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIInt32(udrs, &steps); udr_UDIStepType(udrs, &steptype); udr_UDIRange(udrs, &range); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /******************************************************************** UDI_STOP * UDIStop() stops the default process */ UDIVoid UDIStop() { if (strcmp(session[current].soc_con_p->domain_string, "AF_UNIX") == 0) kill(session[current].soc_con_p->tip_pid, SIGINT); else udr_signal(udrs); /* XXX - should clean up session[] and soc_con[] structs here as well... */ return; } /******************************************************************** UDI_WAIT * UDIWait() returns the state of the target procesor. */ UDIError UDIWait(maxtime, pid, stop_reason) UDIInt32 maxtime; /* in -- maximum time to wait for completion */ UDIPId *pid; /* out -- pid of process which stopped if any */ UDIUInt32 *stop_reason; /* out -- PC where process stopped */ { UDIInt32 service_id = UDIWait_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIInt32(udrs, &maxtime); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIPId(udrs, pid); udr_UDIUInt32(udrs, stop_reason); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /********************************************************** UDI_SET_BREAKPOINT * UDISetBreakpoint() sets a breakpoint at an adress * and uses the passcount to state how many * times that instruction should be hit before the * break occurs. */ UDIError UDISetBreakpoint (addr, passcount, type, break_id) UDIResource addr; /* in -- where breakpoint gets set */ UDIInt32 passcount; /* in -- passcount for breakpoint */ UDIBreakType type; /* in -- breakpoint type */ UDIBreakId *break_id; /* out - assigned break id */ { UDIInt32 service_id = UDISetBreakpoint_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIResource(udrs, &addr); udr_UDIInt32(udrs, &passcount); udr_UDIBreakType(udrs, &type); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIBreakId(udrs, break_id); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /******************************************************** UDI_QUERY_BREAKPOINT */ UDIError UDIQueryBreakpoint (break_id, addr, passcount, type, current_count) UDIBreakId break_id; /* in -- assigned break id */ UDIResource *addr; /* out - where breakpoint was set */ UDIInt32 *passcount; /* out - trigger passcount for breakpoint */ UDIBreakType *type; /* out - breakpoint type */ UDIInt32 *current_count; /* out - current count for breakpoint */ { UDIInt32 service_id = UDIQueryBreakpoint_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIBreakId(udrs, &break_id); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIResource(udrs, addr); udr_UDIInt32(udrs, passcount); udr_UDIBreakType(udrs, type); udr_UDIInt32(udrs, current_count); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /******************************************************** UDI_CLEAR_BREAKPOINT * UDIClearBreakpoint() is used to clear a breakpoint. */ UDIError UDIClearBreakpoint (break_id) UDIBreakId break_id; /* in -- assigned break id */ { UDIInt32 service_id = UDIClearBreakpoint_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIBreakId(udrs, &break_id); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /************************************************************** UDI_GET_STDOUT * UDIGetStdout() is called when a call to * UDIWait() indicates there is STD output data ready. */ UDIError UDIGetStdout(buf, bufsize, count_done) UDIHostMemPtr buf; /* out -- buffer to be filled */ UDISizeT bufsize; /* in -- buffer size in bytes */ UDISizeT *count_done; /* out -- number of bytes written to buf */ { UDIInt32 service_id = UDIGetStdout_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDISizeT(udrs, &bufsize); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDISizeT(udrs, count_done); udr_bytes(udrs, buf, *count_done); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /************************************************************** UDI_GET_STDERR * UDIGetStderr() is called when a call to * UDIWait() indicates there is STDERR output data ready */ UDIError UDIGetStderr(buf, bufsize, count_done) UDIHostMemPtr buf; /* out -- buffer to be filled */ UDISizeT bufsize; /* in -- buffer size in bytes */ UDISizeT *count_done; /* out -- number of bytes written to buf */ { UDIInt32 service_id = UDIGetStderr_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDISizeT(udrs, &bufsize); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDISizeT(udrs, count_done); udr_bytes(udrs, buf, *count_done); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /*************************************************************** UDI_PUT_STDIN * UDIPutStdin() is called whenever the DFE wants to * deliver an input character to the TIP. */ UDIError UDIPutStdin (buf, count, count_done) UDIHostMemPtr buf; /* in -- buffer to be filled */ UDISizeT count; /* in -- buffer size in bytes */ UDISizeT *count_done; /* out - number of bytes written to buf */ { UDIInt32 service_id = UDIPutStdin_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDISizeT(udrs, &count); udr_bytes(udrs, buf, count); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDISizeT(udrs, count_done); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /************************************************************** UDI_STDIN_MODE * UDIStdinMode() is used to change the mode that chazcters * are fetched from the user. */ UDIError UDIStdinMode(mode) UDIMode *mode; /* out - */ { UDIInt32 service_id = UDIStdinMode_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIMode(udrs, mode); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /*************************************************************** UDI_PUT_TRANS * UDIPutTrans() is used to feed input to the passthru mode. */ UDIError UDIPutTrans (buf, count, count_done) UDIHostMemPtr buf; /* in -- buffer address containing input data */ UDISizeT count; /* in -- number of bytes in buf */ UDISizeT *count_done; /* out-- number of bytes transfered */ { UDIInt32 service_id = UDIPutTrans_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDISizeT(udrs, &count); udr_bytes(udrs, buf, count); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDISizeT(udrs, count_done); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /*************************************************************** UDI_GET_TRANS * UDIGetTrans() is used to get output lines from the * passthru mode. */ UDIError UDIGetTrans (buf, bufsize, count_done) UDIHostMemPtr buf; /* out -- buffer to be filled */ UDISizeT bufsize; /* in -- size of buf */ UDISizeT *count_done; /* out -- number of bytes in buf */ { UDIInt32 service_id = UDIGetTrans_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDISizeT(udrs, &bufsize); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDISizeT(udrs, count_done); udr_bytes(udrs, buf, *count_done); udr_UDIError(udrs, &dfe_errno); /* get any TIP error */ return dfe_errno; } /************************************************************** UDI_Trans_Mode * UDITransMode() is used to change the mode that the * transparent routines operate in. */ UDIError UDITransMode(mode) UDIMode *mode; /* out -- selected mode */ { UDIInt32 service_id = UDITransMode_c; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); udr_UDIMode(udrs, mode); udr_sendnow(udrs); if(udr_errno) return udr_errno; udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ udr_UDIError(udrs, &dfe_errno); return dfe_errno; } /******************************************************************** UDI_TEST */ UDIError UDITest( cnt, str_p, array) UDISizeT cnt; UDIHostMemPtr str_p; UDIInt32 array[]; { UDIInt32 service_id = UDITest_c; UDIInt16 scnt = cnt; UDISizeT r_cnt; char buf[256]; udr_errno = 0; udrs->udr_op = UDR_ENCODE; /* send all "in" parameters */ udr_UDIInt32(udrs, &service_id); printf("send cnt=%d scnt=%d\n", cnt, scnt); udr_UDISizeT(udrs, &cnt); udr_UDIInt16(udrs, &scnt); printf(" array[0]=0x%x array[1]=0x%x array[2]=0x%x array[3]=0x%x\n", array[0], array[1], array[2], array[3]); udr_bytes(udrs, (char*)array, 4*sizeof(UDIInt32)); printf(" string=%s\n", str_p); udr_string(udrs, str_p); udr_sendnow(udrs); if(udr_errno) { fprintf(stderr, " DFE-ipc Send ERROR\n"); return udr_errno; } udrs->udr_op = UDR_DECODE; /* receive all "out" parameters */ printf("recv "); udr_UDISizeT(udrs, &r_cnt); udr_UDIInt16(udrs, &scnt); printf(" rcnt=%d scnt=%d\n", r_cnt, scnt); udr_bytes(udrs, (char*)array, 4*sizeof(UDIInt32)); printf(" array[0]=0x%x array[1]=0x%x array[2]=0x%x array[3]=0x%x\n", array[0], array[1], array[2], array[3]); udr_string(udrs, str_p); printf(" string=%s\n", str_p); udr_UDIError(udrs, &dfe_errno); return dfe_errno; } UDIUInt32 UDIGetDFEIPCId() { return ((company_c << 16) + (product_c << 12) + version_c); } #endif /* __GO32__ */ gdb-4.13/gdb/29k-share/udi/udiphcfg.h 666 34562 1752 2536 5434213150 15524 0ustar fnfcygnus/* This file just picks the correct udiphxxx.h depending on the host. The two hosts that are now defined are UNIX and MSDOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * For the moment, we will default to BSD_IPC; this might change if/when * another type of IPC (Mach? SysV?) is implemented. */ #if 0 /* We don't seem to have a copy of udiphdos.h. Furthermore, all the things in udiphunix.h are pretty much generic 32-bit machine defines which don't have anything to do with IPC. */ #ifdef DOS_IPC #include "udiphdos.h" #else /*#ifdef BSD_IPC */ #include "udiphunix.h" #endif #else #include "udiphunix.h" #endif gdb-4.13/gdb/29k-share/udi/udiphunix.h 666 34562 1752 6166 5405462045 15762 0ustar fnfcygnus/* Originally called "udiphsun.h", however it was not very Sun-specific; now it is used for generic-unix-with-bsd-ipc. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is to be used to reconfigure the UDI Procedural interface for a given host. This file should be placed so that it will be included from udiproc.h. Everything in here may need to be changed when you change either the host CPU or its compiler. Nothing in here should change to support different targets. There are multiple versions of this file, one for each of the different host/compiler combinations in use. */ #define UDIStruct struct /* _packed not needed on unix */ /* First, we need some types */ /* Types with at least the specified number of bits */ typedef double UDIReal64; /* 64-bit real value */ typedef float UDIReal32; /* 32-bit real value */ typedef unsigned long UDIUInt32; /* unsigned integers */ typedef unsigned short UDIUInt16; typedef unsigned char UDIUInt8; typedef long UDIInt32; /* 32-bit integer */ typedef short UDIInt16; /* 16-bit integer */ typedef char UDIInt8; /* unreliable signedness */ /* To aid in supporting environments where the DFE and TIP use different compilers or hosts (like DOS 386 on one side, 286 on the other, or different Unix machines connected by sockets), we define two abstract types - UDIInt and UDISizeT. UDIInt should be defined to be int except for host/compiler combinations that are intended to talk to existing UDI components that have a different sized int. Similarly for UDISizeT. */ typedef int UDIInt; typedef unsigned int UDIUInt; typedef unsigned int UDISizeT; /* Now two void types. The first is for function return types, the other for pointers to no particular type. Since these types are used solely for documentational clarity, if your host/compiler doesn't support either one, replace them with int and char * respectively. */ typedef void UDIVoid; /* void type */ typedef void * UDIVoidPtr; /* void pointer type */ typedef void * UDIHostMemPtr; /* Arbitrary memory pointer */ /* Now we want a type optimized for boolean values. Normally this would be int, but on some machines (Z80s, 8051s, etc) it might be better to map it onto a char */ typedef int UDIBool; /* Now indicate whether your compiler support full ANSI style prototypes. If so, use #if 1. If not use #if 0. */ #if 0 #define UDIParams(x) x #else #define UDIParams(x) () #endif gdb-4.13/gdb/29k-share/udi/udiproc.h 666 34562 1752 17751 5405462046 15435 0ustar fnfcygnus/* local type decs. and macro defs. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "udiphcfg.h" /* Get host specific configuration */ #include "udiptcfg.h" /* Get target specific configuration */ /* Here are all of the CPU Families for which UDI is currently defined */ #define Am29K 1 /* AMD's Am290xx and Am292xx parts */ typedef UDIInt UDIError; typedef UDIInt UDISessionId; typedef UDIInt UDIPId; typedef UDIInt UDIStepType; typedef UDIInt UDIBreakType; typedef UDIUInt UDIBreakId; typedef UDIUInt UDIMode; typedef UDIStruct { CPUSpace Space; CPUOffset Offset; } UDIResource; typedef UDIStruct { CPUOffset Low; CPUOffset High; } UDIRange; typedef UDIStruct { CPUSpace Space; CPUOffset Offset; CPUSizeT Size; } UDIMemoryRange; /* Values for UDIStepType parameters */ #define UDIStepNatural 0x0000 #define UDIStepOverTraps 0x0001 #define UDIStepOverCalls 0x0002 #define UDIStepInRange 0x0004 #define UDIStepNatural 0x0000 /* Values for UDIBreakType parameters */ #define UDIBreakFlagExecute 0x0001 #define UDIBreakFlagRead 0x0002 #define UDIBreakFlagWrite 0x0004 #define UDIBreakFlagFetch 0x0008 /* Special values for UDIWait MaxTime parameter */ #define UDIWaitForever (UDIInt32) -1 /* Infinite time delay */ /* Special values for PId */ #define UDIProcessProcessor -1 /* Raw Hardware, if possible */ /* Values for UDIWait StopReason */ #define UDIGrossState 0xff #define UDITrapped 0 /* Fine state - which trap */ #define UDINotExecuting 1 #define UDIRunning 2 #define UDIStopped 3 #define UDIWarned 4 #define UDIStepped 5 #define UDIWaiting 6 #define UDIHalted 7 #define UDIStdoutReady 8 /* fine state - size */ #define UDIStderrReady 9 /* fine state - size */ #define UDIStdinNeeded 10 /* fine state - size */ #define UDIStdinModeX 11 /* fine state - mode */ #define UDIBreak 12 /* Fine state - Breakpoint Id */ #define UDIExited 13 /* Fine state - exit code */ /* Enumerate the return values from the callback function for UDIEnumerateTIPs. */ #define UDITerminateEnumeration 0 #define UDIContinueEnumeration 1 /* Enumerate values for Terminate parameter to UDIDisconnect */ #define UDITerminateSession 1 #define UDIContinueSession 0 /* Error codes */ #define UDINoError 0 /* No error occured */ #define UDIErrorNoSuchConfiguration 1 #define UDIErrorCantHappen 2 #define UDIErrorCantConnect 3 #define UDIErrorNoSuchConnection 4 #define UDIErrorNoConnection 5 #define UDIErrorCantOpenConfigFile 6 #define UDIErrorCantStartTIP 7 #define UDIErrorConnectionUnavailable 8 #define UDIErrorTryAnotherTIP 9 #define UDIErrorExecutableNotTIP 10 #define UDIErrorInvalidTIPOption 11 #define UDIErrorCantDisconnect 12 #define UDIErrorUnknownError 13 #define UDIErrorCantCreateProcess 14 #define UDIErrorNoSuchProcess 15 #define UDIErrorUnknownResourceSpace 16 #define UDIErrorInvalidResource 17 #define UDIErrorUnsupportedStepType 18 #define UDIErrorCantSetBreakpoint 19 #define UDIErrorTooManyBreakpoints 20 #define UDIErrorInvalidBreakId 21 #define UDIErrorNoMoreBreakIds 22 #define UDIErrorUnsupportedService 23 #define UDIErrorTryAgain 24 #define UDIErrorIPCLimitation 25 #define UDIErrorIncomplete 26 #define UDIErrorAborted 27 #define UDIErrorTransDone 28 #define UDIErrorCantAccept 29 #define UDIErrorTransInputNeeded 30 #define UDIErrorTransModeX 31 #define UDIErrorInvalidSize 32 #define UDIErrorBadConfigFileEntry 33 #define UDIErrorIPCInternal 34 /* TBD */ /****************************************************************** PROCEDURES */ UDIError UDIConnect UDIParams(( char *Configuration, /* In */ UDISessionId *Session /* Out */ )); UDIError UDIDisconnect UDIParams(( UDISessionId Session, /* In */ UDIBool Terminate /* In */ )); UDIError UDISetCurrentConnection UDIParams(( UDISessionId Session /* In */ )); UDIError UDICapabilities UDIParams(( UDIUInt32 *TIPId, /* Out */ UDIUInt32 *TargetId, /* Out */ UDIUInt32 DFEId, /* In */ UDIUInt32 DFE, /* In */ UDIUInt32 *TIP, /* Out */ UDIUInt32 *DFEIPCId, /* Out */ UDIUInt32 *TIPIPCId, /* Out */ char *TIPString /* Out */ )); UDIError UDIEnumerateTIPs UDIParams(( UDIInt (*UDIETCallback) /* In */ UDIParams(( char *Configuration )) /* In to callback() */ )); UDIError UDIGetErrorMsg UDIParams(( UDIError ErrorCode, /* In */ UDISizeT MsgSize, /* In */ char *Msg, /* Out */ UDISizeT *CountDone /* Out */ )); UDIError UDIGetTargetConfig UDIParams(( UDIMemoryRange KnownMemory[], /* Out */ UDIInt *NumberOfRanges, /* In/Out */ UDIUInt32 ChipVersions[], /* Out */ UDIInt *NumberOfChips /* In/Out */ )); UDIError UDICreateProcess UDIParams(( UDIPId *PId /* Out */ )); UDIError UDISetCurrentProcess UDIParams(( UDIPId PId /* In */ )); UDIError UDIDestroyProcess UDIParams(( UDIPId PId /* In */ )); UDIError UDIInitializeProcess UDIParams(( UDIMemoryRange ProcessMemory[], /* In */ UDIInt NumberOfRanges, /* In */ UDIResource EntryPoint, /* In */ CPUSizeT StackSizes[], /* In */ UDIInt NumberOfStacks, /* In */ char *ArgString /* In */ )); UDIError UDIRead UDIParams(( UDIResource From, /* In */ UDIHostMemPtr To, /* Out */ UDICount Count, /* In */ UDISizeT Size, /* In */ UDICount *CountDone, /* Out */ UDIBool HostEndian /* In */ )); UDIError UDIWrite UDIParams(( UDIHostMemPtr From, /* In */ UDIResource To, /* In */ UDICount Count, /* In */ UDISizeT Size, /* In */ UDICount *CountDone, /* Out */ UDIBool HostEndian /* In */ )); UDIError UDICopy UDIParams(( UDIResource From, /* In */ UDIResource To, /* In */ UDICount Count, /* In */ UDISizeT Size, /* In */ UDICount *CountDone, /* Out */ UDIBool Direction /* In */ )); UDIError UDIExecute UDIParams(( void )); UDIError UDIStep UDIParams(( UDIUInt32 Steps, /* In */ UDIStepType StepType, /* In */ UDIRange Range /* In */ )); UDIVoid UDIStop UDIParams(( void )); UDIError UDIWait UDIParams(( UDIInt32 MaxTime, /* In */ UDIPId *PId, /* Out */ UDIUInt32 *StopReason /* Out */ )); UDIError UDISetBreakpoint UDIParams(( UDIResource Addr, /* In */ UDIInt32 PassCount, /* In */ UDIBreakType Type, /* In */ UDIBreakId *BreakId /* Out */ )); UDIError UDIQueryBreakpoint UDIParams(( UDIBreakId BreakId, /* In */ UDIResource *Addr, /* Out */ UDIInt32 *PassCount, /* Out */ UDIBreakType *Type, /* Out */ UDIInt32 *CurrentCount /* Out */ )); UDIError UDIClearBreakpoint UDIParams(( UDIBreakId BreakId /* In */ )); UDIError UDIGetStdout UDIParams(( UDIHostMemPtr Buf, /* Out */ UDISizeT BufSize, /* In */ UDISizeT *CountDone /* Out */ )); UDIError UDIGetStderr UDIParams(( UDIHostMemPtr Buf, /* Out */ UDISizeT BufSize, /* In */ UDISizeT *CountDone /* Out */ )); UDIError UDIPutStdin UDIParams(( UDIHostMemPtr Buf, /* In */ UDISizeT Count, /* In */ UDISizeT *CountDone /* Out */ )); UDIError UDIStdinMode UDIParams(( UDIMode *Mode /* Out */ )); UDIError UDIPutTrans UDIParams(( UDIHostMemPtr Buf, /* In */ UDISizeT Count, /* In */ UDISizeT *CountDone /* Out */ )); UDIError UDIGetTrans UDIParams(( UDIHostMemPtr Buf, /* Out */ UDISizeT BufSize, /* In */ UDISizeT *CountDone /* Out */ )); UDIError UDITransMode UDIParams(( UDIMode *Mode /* Out */ )); gdb-4.13/gdb/29k-share/udi/udipt29k.h 666 34562 1752 5350 5405462047 15414 0ustar fnfcygnus/* This file is to be used to reconfigure the UDI Procedural interface for a given target. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file should be placed so that it will be included from udiproc.h. Everything in here will probably need to be changed when you change the target processor. Nothing in here should need to change when you change hosts or compilers. */ /* Select a target CPU Family */ #define TargetCPUFamily Am29K /* Enumerate the processor specific values for Space in a resource */ #define UDI29KDRAMSpace 0 #define UDI29KIOSpace 1 #define UDI29KCPSpace0 2 #define UDI29KCPSpace1 3 #define UDI29KIROMSpace 4 #define UDI29KIRAMSpace 5 #define UDI29KLocalRegs 8 #define UDI29KGlobalRegs 9 #define UDI29KRealRegs 10 #define UDI29KSpecialRegs 11 #define UDI29KTLBRegs 12 /* Not Am29005 */ #define UDI29KACCRegs 13 /* Am29050 only */ #define UDI29KICacheSpace 14 /* Am2903x only */ #define UDI29KAm29027Regs 15 /* When available */ #define UDI29KPC 16 #define UDI29KDCacheSpace 17 /* When available */ /* Enumerate the Co-processor registers */ #define UDI29KCP_F 0 #define UDI29KCP_Flag 8 #define UDI29KCP_I 12 #define UDI29KCP_ITmp 16 #define UDI29KCP_R 20 #define UDI29KCP_S 28 #define UDI29KCP_RTmp 36 #define UDI29KCP_STmp 44 #define UDI29KCP_Stat 52 #define UDI29KCP_Prec 56 #define UDI29KCP_Reg0 60 #define UDI29KCP_Reg1 68 #define UDI29KCP_Reg2 76 #define UDI29KCP_Reg3 84 #define UDI29KCP_Reg4 92 #define UDI29KCP_Reg5 100 #define UDI29KCP_Reg6 108 #define UDI29KCP_Reg7 116 #define UDI29KCP_Mode 124 /* Enumerate the stacks in StackSizes array */ #define UDI29KMemoryStack 0 #define UDI29KRegisterStack 1 /* Enumerate the chips for ChipVersions array */ #define UDI29K29KVersion 0 #define UDI29K29027Version 1 /* Define special value for elements of ChipVersions array for * chips not present */ #define UDI29KChipNotPresent -1 typedef UDIInt32 UDICount; typedef UDIUInt32 UDISize; typedef UDIInt CPUSpace; typedef UDIUInt32 CPUOffset; typedef UDIUInt32 CPUSizeT; gdb-4.13/gdb/29k-share/udi/udiptcfg.h 666 34562 1752 1443 5405462050 15537 0ustar fnfcygnus/* Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "udipt29k.h" gdb-4.13/gdb/29k-share/udi/udisoc.h 666 34562 1752 11113 5405462051 15234 0ustar fnfcygnus/* This module defines constants used in the UDI IPC modules. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ static char udisoc_h[]="@(#)udisoc.h 2.6 Daniel Mann"; static char udisoc_h_AMD[]="@(#)udisoc.h 2.4, AMD"; #define LOCAL static #define company_c 1 /* AMD Company id */ #define product_c 1 /* socket IPC id */ /* Enumerate the UDI procedure services */ #define UDIConnect_c 0 #define UDIDisconnect_c 1 #define UDISetCurrentConnection_c 2 #define UDICapabilities_c 3 #define UDIEnumerateTIPs_c 4 #define UDIGetErrorMsg_c 5 #define UDIGetTargetConfig_c 6 #define UDICreateProcess_c 7 #define UDISetCurrentProcess_c 8 #define UDIDestroyProcess_c 9 #define UDIInitializeProcess_c 10 #define UDIRead_c 11 #define UDIWrite_c 12 #define UDICopy_c 13 #define UDIExecute_c 14 #define UDIStep_c 15 #define UDIStop_c 16 #define UDIWait_c 17 #define UDISetBreakpoint_c 18 #define UDIQueryBreakpoint_c 19 #define UDIClearBreakpoint_c 20 #define UDIGetStdout_c 21 #define UDIGetStderr_c 22 #define UDIPutStdin_c 23 #define UDIStdinMode_c 24 #define UDIPutTrans_c 25 #define UDIGetTrans_c 26 #define UDITransMode_c 27 #define UDITest_c 28 #define UDIKill_c 29 #define udr_UDIInt8(udrs, obj) udr_work(udrs, obj, 1) #define udr_UDIInt16(udrs, obj) udr_work(udrs, obj, 2) #define udr_UDIInt32(udrs, obj) udr_work(udrs, obj, 4) #define udr_UDIInt(udrs, obj) udr_work(udrs, obj, 4) #define udr_UDIUInt8(udrs, obj) udr_work(udrs, obj, 1) #define udr_UDIUInt16(udrs, obj) udr_work(udrs, obj, 2) #define udr_UDIUInt32(udrs, obj) udr_work(udrs, obj, 4) #define udr_UDIUInt(udrs, obj) udr_work(udrs, obj, 4) #define udr_UDIBool(udrs, obj) udr_UDIInt32(udrs, obj) #define udr_UDICount(udrs, obj) udr_UDIInt32(udrs, obj) #define udr_UDISize(udrs, obj) udr_UDIUInt32(udrs, obj) #define udr_CPUSpace(udrs, obj) udr_UDIInt32(udrs, obj) #define udr_CPUOffset(udrs, obj) udr_UDIUInt32(udrs, obj) #define udr_CPUSizeT(udrs, obj) udr_UDIUInt32(udrs, obj) #define udr_UDIBreakId(udrs,obj) udr_UDIUInt(udrs, obj) #define udr_UDISizeT(udrs, obj) udr_UDIUInt(udrs, obj) #define udr_UDIMode(udrs, obj) udr_UDIUInt(udrs, obj) #define udr_UDIHostMemPtr(udrs, obj) udr_UDIUInt32(udrs, obj) #define udr_UDIVoidPtr(udrs, obj) udr_UDIUInt32(udrs, obj) #define udr_UDIPId(udrs, obj) udr_UDIUInt(udrs, obj) #define udr_UDISessionId(udrs, obj) udr_UDIInt32(udrs, obj) #define udr_UDIError(udrs, obj) udr_UDIInt32(udrs, obj) #define udr_UDIStepType(udrs, obj) udr_UDIInt32(udrs, obj) #define udr_UDIBreakType(udrs, obj) udr_UDIInt32(udrs, obj) #define UDR_ENCODE 1 #define UDR_DECODE 2 typedef struct UDR_str { int udr_op; /* UDR operation */ int previous_op; int sd; int bufsize; char* buff; char* getbytes; char* putbytes; char* putend; int domain; char* soc_name; } UDR; /******************************************* Declare UDR suport functions */ int udr_create UDIParams(( UDR* udrs, int sd, int size )); int udr_free UDIParams(( UDR* udrs, )); int udr_signal UDIParams(( UDR* udrs, )); int udr_sendnow UDIParams(( UDR* udrs )); int udr_work UDIParams(( UDR* udrs, void* object_p, int size )); int udr_UDIResource UDIParams(( UDR* udrs, UDIResource* object_p )); int udr_UDIRange UDIParams(( UDR* udrs, UDIRange* object_p )); int udr_UDIMemoryRange UDIParams(( UDR* udrs, UDIMemoryRange* object_p )); int udr_UDIMemoryRange UDIParams(( UDR* udrs, UDIMemoryRange* object_p )); int udr_int UDIParams(( UDR* udrs, int* int_p )); int udr_bytes UDIParams(( UDR* udrs, char* ptr, int len )); char* udr_inline UDIParams(( UDR* udrs, int size )); char* udr_getpos UDIParams(( UDR* udrs )); int udr_setpos UDIParams(( UDR* udrs, char* pos )); int udr_readnow UDIParams(( UDR* udrs, int size )); int udr_align UDIParams(( UDR* udrs, int size, )); gdb-4.13/gdb/29k-share/udi/udr.c 666 34562 1752 26127 5466021626 14554 0ustar fnfcygnus/* This module supports sending and receiving data objects over a socket conection. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ static char udr_c[]="@(#)udr.c 2.8 Daniel Mann"; static char udr_c_AMD[]="@(#)udr.c 2.3, AMD"; /* * All data is serialised into a character stream, * and de-serialised back into the approproiate objects. ********************************************************************** HISTORY */ /* This is all unneeded on DOS machines. */ #ifndef __GO32__ #include #include /* This used to say sys/fcntl.h, but the only systems I know of that require that are old (pre-4.3, at least) BSD systems, which we probably don't need to worry about. */ #include #include #include "udiproc.h" #include "udisoc.h" extern int errno; extern char* malloc(); /* local type decs. and macro defs. not in a .h file ************* MACRO/TYPE */ /* global dec/defs. which are not in a .h file ************* EXPORT DEC/DEFS */ int udr_errno; /* error occurs during UDR service */ /* local dec/defs. which are not in a .h file *************** LOCAL DEC/DEFS */ /****************************************************************** UDR_CREATE * Build UDR structure for character stream processing. */ int udr_create(udrs, sd, size) UDR* udrs; int sd; int size; { udrs->sd = sd; if(!udrs->buff) udrs->buff = malloc(size); udrs->getbytes = udrs->buff; /* set the buffer to the start */ udrs->putbytes = udrs->buff; udrs->putend = udrs->buff; udrs->udr_op = -1; /* don't know the direction */ udrs->previous_op = -1; /* don't know the direction */ udrs->bufsize = size; return 0; } /******************************************************************** UDR_FREE * Free USR structure and close socket. */ int udr_free(udrs) UDR* udrs; { close(udrs->sd); free(udrs->buff); return 0; } /****************************************************************** UDR_SIGNAL * Send a signal to the process at the other end of the socket, * indicating that it should expect to recieve a new message shortly. */ int udr_signal(udrs) UDR* udrs; { if(send(udrs->sd, "I", 1, MSG_OOB) == -1) { perror("ERROR, udr_signal(), send(...MSG_OOB)"); udr_errno = UDIErrorIPCInternal; return -1; /* return error code */ } return 0; } /***************************************************************** UDR_SENDNOW * used to flush the current character stream buffer to * the associated socket. */ int udr_sendnow(udrs) UDR* udrs; { int size = (UDIUInt32)(udrs->putend) - (UDIUInt32)(udrs->buff); if(udrs->previous_op == 0) { udr_errno = UDIErrorIPCInternal; return -1; } udrs->putbytes = udrs->buff; udrs->putend = udrs->buff; if (write(udrs->sd, udrs->buff, size) == -1) { perror("ERROR, udr_sendnow(), write() call: "); udr_errno = UDIErrorIPCInternal; return -1; /* return error code */ } return 0; } /******************************************************************** UDR_WORK * Function to send or recieve data from the buffers supporting * socket communication. The buffer contains serialised objects * sent/recieved over a socket connection. */ int udr_work(udrs, object_p, size) UDR* udrs; void* object_p; int size; { int cnt, remain; if(udrs->udr_op != udrs->previous_op) { if(udrs->previous_op == 0) { udr_errno = UDIErrorIPCInternal; return -1; } udrs->previous_op= udrs->udr_op; udrs->putbytes = udrs->buff; udrs->getbytes = udrs->buff; } if(udrs->udr_op == UDR_ENCODE) { /* write data into character stream buffer */ if( (UDIUInt32)(udrs->putbytes) + size > (UDIUInt32)(udrs->buff) + (UDIUInt32)(udrs->bufsize) ) { udr_errno = UDIErrorIPCInternal; return -1; } memcpy(udrs->putbytes, (char*)object_p, size); udrs->putbytes += size; if(udrs->putbytes > udrs->putend) udrs->putend = udrs->putbytes; } else if(udrs->udr_op == UDR_DECODE) { if( (UDIUInt32)(udrs->putbytes)-(UDIUInt32)(udrs->getbytes) < size ) { /* need more data in character stream buffer */ remain = (UDIUInt32)(udrs->bufsize) - ( (UDIUInt32)(udrs->putbytes)-(UDIUInt32)(udrs->buff) ); if( ((UDIUInt32)(udrs->bufsize) + (UDIUInt32)(udrs->buff) - (UDIUInt32)(udrs->getbytes)) < size) { udr_errno = UDIErrorIPCInternal; return -1; } cnt = read(udrs->sd, (char*)udrs->putbytes, remain); if(cnt == -1) perror("ERROR udr_work(), read() failure: "); udrs->putbytes += cnt; if( (UDIUInt32)(udrs->putbytes)-(UDIUInt32)(udrs->getbytes) < size ) { udr_errno = UDIErrorIPCInternal; return -1; /* return error code */ } } /* read data from character stream buffer */ memcpy((char*)object_p, udrs->getbytes, size); udrs->getbytes += size; } else { udr_errno = UDIErrorIPCInternal; return -1; } return 0; } /************************************************************* UDR_UDIResource */ int udr_UDIResource(udrs, object_p) UDR* udrs; UDIResource* object_p; { int retval; retval = udr_CPUSpace(udrs, &object_p->Space); retval = retval | udr_CPUOffset(udrs, &object_p->Offset); return retval; } /**************************************************************** UDR_UDIRange */ int udr_UDIRange(udrs, object_p) UDR* udrs; UDIRange* object_p; { int retval; retval = udr_CPUOffset(udrs, &object_p->Low); retval = retval | udr_CPUOffset(udrs, &object_p->High); return retval; } /********************************************************** UDR_UDIMemoryRange */ int udr_UDIMemoryRange(udrs, object_p) UDR* udrs; UDIMemoryRange* object_p; { int retval; retval = udr_CPUSpace(udrs, &object_p->Space); retval = retval | udr_CPUOffset(udrs, &object_p->Offset); retval = retval | udr_CPUSizeT(udrs, &object_p->Size); return retval; } /****************************************************************** UDR_string */ int udr_string(udrs, sp) UDR* udrs; char* sp; { int len, retval; if(udrs->udr_op == UDR_ENCODE) { if(sp) { len = strlen(sp) + 1; retval = udr_UDIInt32(udrs, &len); retval = retval | udr_work(udrs, sp, len); } else /* deal with NULL pointer */ { len = 0; retval = udr_UDIInt32(udrs, &len); } } else if(udrs->udr_op == UDR_DECODE) { retval = udr_UDIInt32(udrs, &len); if(len) retval = retval | udr_work(udrs, sp, len); else *sp = '\0'; /* terminate string */ } else { udr_errno = UDIErrorIPCInternal; return -1; } return retval; } /******************************************************************* UDR_BYTES */ int udr_bytes(udrs, ptr, len) UDR* udrs; char* ptr; int len; { return udr_work(udrs, ptr, len); } /********************************************************************* UDR_INT */ int udr_int(udrs, int_p) UDR* udrs; int* int_p; { int ret_val; UDIInt32 udr_obj; /* object of know size */ if(udrs->udr_op == UDR_ENCODE) { udr_obj = *int_p; /* copy into know object size */ return udr_UDIInt32(udrs, &udr_obj); } else if(udrs->udr_op == UDR_DECODE) { ret_val = udr_UDIInt32(udrs, &udr_obj); /* get object of known size */ *int_p = udr_obj; return ret_val; } else { udr_errno = UDIErrorIPCInternal; return -1; } } /****************************************************************** UDR_INLINE */ char* udr_inline(udrs, size) UDR* udrs; int size; { if(udrs->udr_op != udrs->previous_op) { if(udrs->previous_op == 0) { udr_errno = UDIErrorIPCInternal; return 0; } udrs->previous_op= udrs->udr_op; udrs->putbytes = udrs->buff; udrs->getbytes = udrs->buff; } if(udrs->udr_op == UDR_ENCODE) { if(udrs->putbytes + size > udrs->bufsize + udrs->buff) return 0; udrs->putbytes += size; return udrs->putbytes - size; } else if(udrs->udr_op == UDR_DECODE) { if(udrs->getbytes + size > udrs->bufsize + udrs->buff) return 0; udrs->getbytes += size; return udrs->getbytes - size; } else { udr_errno = UDIErrorIPCInternal; return 0; } } /****************************************************************** UDR_GETPOS */ char* udr_getpos(udrs) UDR* udrs; { if(udrs->udr_op == UDR_ENCODE) { return udrs->putbytes; } else if(udrs->udr_op == UDR_DECODE) { return udrs->getbytes; } else { udr_errno = UDIErrorIPCInternal; return 0; } } /****************************************************************** UDR_SETPOS */ int udr_setpos(udrs, pos) UDR* udrs; char* pos; { if( ((UDIUInt32)pos > (UDIUInt32)(udrs->buff) + (UDIUInt32)(udrs->bufsize)) || ((UDIUInt32)pos < (UDIUInt32)(udrs->buff) ) ) { udr_errno = UDIErrorIPCInternal; return 0; } if(udrs->udr_op == UDR_ENCODE) { udrs->putbytes = pos; return 1; } else if(udrs->udr_op == UDR_DECODE) { udrs->getbytes = pos; return 1; } else { udr_errno = UDIErrorIPCInternal; return 0; } } /***************************************************************** UDR_READNOW * Try and ensure "size" bytes are available in the * receive buffer character stream. */ int udr_readnow(udrs, size) UDR* udrs; int size; { int cnt, remain; if(udrs->udr_op == UDR_ENCODE) { udr_errno = UDIErrorIPCInternal; return -1; } else if(udrs->udr_op == UDR_DECODE) { if( (UDIUInt32)(udrs->putbytes)-(UDIUInt32)(udrs->getbytes) < size ) { /* need more data in character stream buffer */ remain = (UDIUInt32)(udrs->bufsize) - ( (UDIUInt32)(udrs->putbytes)-(UDIUInt32)(udrs->buff) ); cnt = read(udrs->sd, (char*)udrs->putbytes, remain); if(cnt == -1) perror("ERROR udr_work(), read() failure: "); udrs->putbytes += cnt; if( (UDIUInt32)(udrs->putbytes)-(UDIUInt32)(udrs->getbytes) < size ) { fprintf(stderr,"ERROR, udr_readnow() too few bytes in stream\n"); return -1; /* return error code */ } } } else { udr_errno = UDIErrorIPCInternal; return -1; } return 0; } /******************************************************************* UDR_ALIGN */ int udr_align(udrs, size) UDR* udrs; int size; { char* align; int offset; align = udr_getpos(udrs); offset = size - ((int)align & (size -1)); offset = offset & (size -1); if(offset) udr_setpos(udrs, align + offset); } #endif /* __GO32__ */ gdb-4.13/gdb/29k-share/README 666 34562 1752 1015 5247504655 13667 0ustar fnfcygnusThe files in this directory are shared with other debuggers and debug interfaces that use Advanced Micro Devices' UDI (universal debug interface) protocol. The protocol provides a common interface among debuggers, logic analyzers, emulators, and embedded systems that use AMD 29000 family processors. Do not change these files without coordinating with Advanced Micro Devices, Embedded Processor Division, 5204 E. Ben White Blvd, Austin, TX 78741. Maybe postmaster@cayman.amd.com can direct you to the current maintainers. gdb-4.13/gdb/29k-share/udi_soc 666 34562 1752 1023 5175347427 14360 0ustar fnfcygnus# @(#)udi_soc 2.1 Daniel Mann # NOTE: the Session string must not start whith white-space characters. # Format of string is: # soc2cayman AF_INET cayman /bin/udi_tip ... soc2tip AF_UNIX astring tip.exe ... cuba AF_UNIX soc_name ../bin.68020/udi_tip stuff to pass cayman AF_INET cayman this_entry_not_matter stuff to pass iss AF_UNIX * sun4/isstip -r osboot gdb-4.13/gdb/.gdbinit 666 34562 1752 277 5545050564 12710 0ustar fnfcygnusecho Setting up the environment for debugging gdb.\n set complaints 1 b fatal b info_command commands silent return end dir ../mmalloc dir ../libiberty dir ../bfd set prompt (top-gdb) gdb-4.13/gdb/COPYING 666 34562 1752 43076 5022646130 12354 0ustar fnfcygnus GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. gdb-4.13/gdb/ChangeLog 666 34562 1752 417614 5623166412 13125 0ustar fnfcygnusSat Aug 13 08:22:50 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.13 for release. * NEWS: Update for 4.13 release. Harris CX/UX support, from Bob Rusk (rrusk@mail.csd.harris.com). * cxux-nat.c: Remove dangling #else block. ((m88k_harris_core_register_addr): New function. * environ.c (init_environ): If no environment, do nothing. Thu Aug 11 07:48:41 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.12.88 Wed Aug 10 17:51:31 1994 Stu Grossman (grossman@cygnus.com) * infrun.c (wait_for_inferior): Call target_resume() upon detection of new processes. * procfs.c (create_procinfo): Return pointer to new procinfo structure. * (do_detach): Spacing & formatting cleanup. * (procfs_wait): Move wait_again label to ensure that we really wait again. On exit from fork, release new child from gdbs' clutches. * (procfs_set_sproc_trap): Enable trapping of fork and vfork. Wed Aug 10 13:23:47 1994 Rick Sladkey (jrs@world.std.com) * i386v-nat.c (i386_insert_nonaligned_watchpoint): add additional argument specifying raw address to permit proper release of debug registers. (i386_insert_watchpoint, i386_insert_aligned_watchpoint): change all callers. Sat Aug 6 22:27:30 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.12.87 * NEWS, README: Update some things for the 4.13 release. Sat Aug 6 22:27:30 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/mips/tm-irix5.h (IN_SIGTRAMP): Redefine for Irix 5, Irix 5 has a standard _sigtramp signal handler. * irix5-nat.c (solib_add): Get rid of sigtramp_address handling, it is not needed for a standard _sigtramp signal handler. Add shared library sections to the section table of the target before adding the symbols. * mips-tdep.c (mips_skip_prologue): Do not skip load immediate instructions that do not prepare a stack adjustment. * regex.c (SIGN_EXTEND_CHAR): Update to emacs-19.25 definition, which does the right thing on machines where `char' is unsigned. Thu Aug 4 15:36:34 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * TODO: Remove note about fast watchpoints and remove obsolete Mach stuff. * config/i386/i386m3.mh (NAT_CLIBS): Add -lmachid and -lnetname. * m3-nat.c, config/nm-m3.h: #if 0 REQUEST_QUIT stuff. * m3-nat.c: Pass argument to return_to_top_level. Declare m3_kill_inferior before use. (port_chain_insert): In "can't happen" case, abort rather than setting `mid' to large decimal constant (which gcc warns about). (get_thread_name): Use cast to convert const char * to char *. (add_mach_specific_commands): #if 0 "thread break" command. (m3_trace_him): Call push_target. (mach_really_wait): New argument pid; remove unused variable pid. (intercept_exec_calls): Call target_terminal_init and target_terminal_inferior once the child execs. * infrun.c (proceed): Pass argument to PREPARE_TO_PROCEED. Thu Aug 4 15:36:34 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (clean): Remove libgdb-files. Fri Jul 29 13:46:08 1994 Fred Fish (fnf@cygnus.com) From Kevin A. Buettner (kev@cujo.geg.mot.com). * coredep.c: Include inferior.h * Makefile.in (coredep.o): Add inferior.h as dependency. * inflow.c: Add F_SETOWN to list of defines to check around code that uses F_SETOWN. Thu Jul 28 10:43:36 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (annotate.o): Add dependencies. Wed Jul 27 09:24:19 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.12.86 * Makefile.in (DISTSTUFF): Add definition. (diststuff): Add for new distribution support. (gdb.tar.Z, make-proto-gdb.dir, setup-to-dist, gdb-$(VERSION).tar.Z, make-proto-gdb-1, make-proto-testsuite.dir): Remove old distribution building rules, now uses standard distribution support in parent directory Makefile.in. Tue Jul 26 18:20:46 1994 Paul Flinders (ptf@smee) * elfread.c (elf_symtab_read): Discard compiler labels generated by the Solaris 2.1/Intel SunPro compiler. Sat Jul 23 14:36:09 1994 Stan Shebs (shebs@andros.cygnus.com) * breakpoint.c (ignore, condition): Move usage note into body of help text, so first line can be one-line summary. Tue Jul 19 13:25:06 1994 Stan Shebs (shebs@andros.cygnus.com) * main.c: Include . Mon Jul 18 14:26:35 1994 Stan Shebs (shebs@andros.cygnus.com) * solib.c (look_for_base): Don't deref exec_bfd if NULL. Sun Jul 17 15:38:36 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.12.85. Sun Jul 17 12:20:35 1994 Stan Shebs (shebs@andros.cygnus.com) Harris CX/UX support, from Bob Rusk (rrusk@mail.csd.harris.com). * configure.in (m88*-harris-cxux*): New configuration. * cxux-nat.c, config/m88k/cxux.mh, config/m88k/cxux.mt, config/m88k/xm-cxux.h, config/m88k/tm-cxux.h, config/m88k/nm-cxux.h: New files. * config/m88k/tm-m88k.h: Add comment about Harris OS. (TARGET_WRITE_PC): Pass pid through to register writers. * configure.in (m68*): Put vendor-only-specified host configs after vendor-and-os-specified configs. (m68*-atari-sysv4*, m68*-cbm-sysv4*): Replace with m68*-*-sysv4. * config/m88k/delta88.mh (MUNCH_DEFINE): Remove. * config/m88k/delta88.mt, config/m88k/delta88v4.mh: Format consistently. Sat Jul 16 23:39:17 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * elfread.c (elf_symtab_read): Handle error return from bfd_get_dynamic_symtab_upper_bound gracefully. Sat Jul 16 14:43:17 1994 Stan Shebs (shebs@andros.cygnus.com) * inferior.h (ARCH_NUM_REGS): New macro, actual number of registers in use by the inferior. * coredep.c (fetch_core_registers, register_addr): Use it. * findvar.c (registers_changed, registers_fetched, read_register_bytes): Ditto. * infcmd.c (do_registers_info, registers_info): Ditto. * infptrace.c (fetch_inferior_registers, store_inferior_registers): Ditto. * stack.c (frame_info): Ditto. * coredep.c (CORE_REGISTER_ADDR): New macro. (fetch_core_registers): Use it. * breakpoint.c (ignore, condition): Add usage notes to help strings. * symfile.c (add-symbol-file): Add usage note to help string. (add_shared_symbol_files_command): New command. gcc -Wall lint. * inferior.h (read_pc_pid): Declare. * breakpoint.c (watchpoint_check): Cache breakpoint in local variable b, remove unused variable other_type_used. * main.c (inferior.h, call-cmds.h): Include. (gdb_init): Declare. * remote.c (remote_wait): Return 0 by default. Fri Jul 15 16:43:33 1994 Stan Shebs (shebs@andros.cygnus.com) Stop printing at null char option, from Oliver Meyer (omeyer@i3.informatik.rwth-aachen.de). * valprint.h, valprint.c (stop_print_at_null): New global. * valprint.c (_initialize_valprint): New print set subcommand "null-stop". * c-valprint.c (c_val_print): If stop_print_at_null is on, and printing a char array, adjust the number of chars to print. Fri Jul 15 14:33:40 1994 Stan Shebs (shebs@andros.cygnus.com) From Kevin A. Buettner (kev@cujo.geg.mot.com). * m88k-tdep.c (examine_prologue): Modified to handle prologues for pic code in addition to prologues where an instruction from the prologue gets moved into the delay slot of a branch instruction immediately following the prologue. A table of potential prologue instructions (prologue_insn_tbl) is now used for picking apart a function prologue. (frame_find_saved_regs): Changed the way in which limit gets set so that the delay slot of branch instructions immediately following the prologue gets examined. (pushed_size, store_parm_word, store_parm, push_parameters, collect_returned_value): Deleted. Fri Jul 15 01:06:00 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * infrun.c (wait_for_inferior): Handle stepping into leaf functions whose prologue consists of gp loading code only. Thu Jul 14 14:22:12 1994 Stan Shebs (shebs@andros.cygnus.com) * dbxread.c: Don't include libbfd.h. * dwarfread.c, elfread.c somread.c: Don't include libbfd.h, , or . * elfread.c (elf_symfile_read): Use only standard BFD functions to collect information about the stab and stab string sections. Thu Jul 14 13:17:39 1994 Kung Hsu (kung@x1.cygnus.com) * stabsread.c (read_huge_number): handle large unsigned number for stabs generated by os9k C compiler. Wed Jul 13 18:58:15 1994 Stan Shebs (shebs@andros.cygnus.com) Breakpoint hit counts, from Bob Rusk (rrusk@mail.csd.harris.com). * breakpoint.h (hit_count): New breakpoint field. * breakpoint.c (show_breakpoint_hit_counts): New variable. (clear_breakpoint_hit_counts): New function. (bpstat_stop_status): Increment the hit count. (breakpoint_1): Display the hit count. * infcmd.c (run_command): Reset breakpoint hit counts. * target.c (generic_mourn_inferior): Don't clear ignore counts if displaying hit counts. Tue Jul 12 12:23:15 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * elfread.c (elf_symfile_read): Unconditionally add dynamic symbols for all symbol files. Makes skipping over the trampoline code work when stepping from a function in a shared library into a function in a different shared library for Irix 5. Other ELF targets do not have enough information in their dynamic symbol tables to make this work. (elf_symtab_read): Relocate mst_solib_trampoline address. Mon Jul 11 16:38:49 1994 Stan Shebs (shebs@andros.cygnus.com) Atari support, from Uwe Seimet (seimet@chemie.uni-kl.de). * configure.in (m68*-atari-sysv4*): New configuration. (m68*-cbm-sysv4*): Use m68kv4 instead of amix. * m68k-tdep.c (R_PS): Define as R_SR if necessary. * config/m68k/m68kv4.mh, config/m68k/m68kv4.mt, config/m68k/tm-m68kv4.h, config/m68k/xm-m68kv4.h: New files. * config/m68k/amix.mh, config/m68k/amix.mt, config/m68k/tm-amix.h, config/m68k/xm-amix.h: Removed, superseded by m68kv4 files. Sat Jul 9 16:28:43 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symtab.c (find_function_start_sal): New function to find the start of a function from a function symbol. (decode_line_1, decode_line_2): Use it instead of open coded partial copies of the code. (list_symbols): Quote symbol name before passing it to break_command to enable proper handling of mangled symbols. Wed Jul 6 20:22:07 1994 Per Bothner (bothner@kalessin.cygnus.com) * ch-exp.y (match_simple_name_string): Don't lower-case here. * ch-exp.y (yylex): First try name lookup using exact name typed by user; if that fails, try lower-cased name. Wed Jul 6 00:48:57 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * dbxread.c, elfread.c, mipsread.c, nlmread.c, os9kread.c: Move "no debugging symbols found" test to symfile.c. * symfile.c (syms_from_objfile, reread_symbols): Add "no debugging symbols found" test. * coffread.c (init_stringtab): Handle stripped files with a stringtab offset of zero gracefully. * osfsolib.c (solib_create_inferior_hook): Use DYNAMIC flag from BFD instead of stop_pc heuristic to determine if it is a dynamically linked object file. * procfs.c (wait_fd): Handle ENOENT error return from PIOCWSTOP ioctl, it indicates that the process has exited. Mon Jul 4 19:28:56 1994 Jeff Law (law@snake.cs.utah.edu) * hppa-tdep.c (read_unwind_info): ELF unwind information is in the .PARISC.unwind section now. Mon Jul 4 17:06:26 1994 Stan Shebs (shebs@andros.cygnus.com) * breakpoint.c (mention): Always show breakpoint address if no source file. Sat Jul 2 01:51:33 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * solib.c (bfd_lookup_symbol, look_for_base): Reinstate to reenable handling of shared libraries for non-ELF executables, but only if HANDLE_SVR4_EXEC_EMULATORS is defined. (locate_base): Try to find debug_base in the dynamic linker for non-ELF executables if HANDLE_SVR4_EXEC_EMULATORS is defined. * config/sparc/tm-sun4sol2.h (HANDLE_SVR4_EXEC_EMULATORS): Define to enable handling of shared libraries for a.out executables, run under Solaris BCP. Thu Jun 30 13:59:23 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * infrun.c (wait_for_inferior): Print "Program exited normally" regardless of batch_mode. * defs.h, top.c (batch_mode): Removed. Wed Jun 29 18:53:36 1994 Stan Shebs (shebs@andros.cygnus.com) * Makefile.in (dcache_h): Remove redundant definition. (init.c): Add a comment. (top.c): Remove explicit compile action. * breakpoint.c (mention): Share code indicating location of break/watchpoints, don't print address if addressprint is off. * breakpoint.c, c-typeprint.c, c-valprint.c, energize.c, symtab.h (demangle): Remove redundant declarations. * eval.c: Remove redundant function declarations. * objfiles.h: Cosmetic and grammatical improvements. * TODO: Various updates. * remote-mips.c: Replace all \r chars with \015. (mips_receive_header): Display control characters readably. (mips_xfer_memory): Add a simple progress display. Wed Jun 29 13:11:45 1994 Steve Chamberlain (sac@cirdan.cygnus.com) * remote-e7000.c (e7000_open): Don't try a tcp open if we're using go32. * remote-hms.c (flush): New function. (expect): Get edge case right. (hms_read_inferior_memory): Be more tolerant of line noise. Tue Jun 28 14:17:03 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Use i386m3.mh and i386m3.mt as names of host and target files, not non-existent mach3.mh and mach3.mt. Wed Jun 29 00:26:17 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * dbxread.c (dbx_symfile_read): Unconditionally add dynamic symbols for all symbol files. Makes skipping over the trampoline code work when stepping from a function in a shared library into a function in a different shared library. (read_dbx_dynamic_symtab): Relocate mst_solib_trampoline address. Tue Jun 28 15:28:01 1994 Stu Grossman (grossman@cygnus.com) * dbxread.c, partial-stab.h (near N_SO): SO stabs with blank names mean end of .o file. * infrun.c (wait_for_inferior): Clean up multi-thread logic near top of routine. Handle new thread notification cleanly. * lynx-nat.c (child_wait): General cleanups, handle new LynxOS thread notification scheme. * (child_resume): General cleanups, handle resumption of all threads properly. Mon Jun 27 09:57:23 1994 Steve Chamberlain (sac@cirdan.cygnus.com) * ser-go32.c: Rewrite to run under windows. * ser-e7kpc.c: New file to support the E7000 with the PC ISA bus interface. * serial.c (serial_open): Notice device "pc". * remote-e7000.c: Fix copyright date. (expect): Compare \n and \r the same. (e7000_open): Allow pc as a serial port * sh/sh.mt: Add ser-e7kpc. * h8300/h8300hms.mt: Add ser-e7kpc. * main.c (proc_wait): Don't wait if using go32. Mon Jun 27 00:35:51 1994 Jeff Law (law@snake.cs.utah.edu) * somread.c: Simplify by using stabsect_build_psymtabs. * dbxread.c (stabsect_build_psymtabs): New argument "text_name" corresponding to the name of the text section. All references changed. (somstab_build_psymtabs): Delete function, no longer needed. Sun Jun 26 23:54:08 1994 Jeff Law (law@snake.cs.utah.edu) * somread.c: Renamed from paread.c. Changed function names and comments to reflect that this file deals with SOM (an object file format), rather than the PA (a cpu). (Makefile.in): Chaned appropriately. (config/pa/hppabsd.mh, config/pa/hppahpux.mh): Likewise. * dbxread.c (somstab_build_psymtabs): Renamed from pastab_build_psymtabs. Fri Jun 24 08:15:42 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * core-sol2.c: New file to handle ELF and BCP core file flavours. * config/sparc/sun4sol2.mh (NATDEPFILES): Use it instead of core-svr4. * Makefile.in: Updated for core-sol2.c. * README: Add notes about SPARCworks cc under Solaris 2.x, from Casper H.S. Dik (casper@fwi.uva.nl). * config/mips/xm-makeva.h: Removed, no longer necessary. * Makefile.in, config/mips/xm-irix3.h, config/mips/xm-irix5.h, config/mips/xm-mips.h, config/mips/xm-news-mips.h, config/mips/xm-riscos.h: Remove references to xm-makeva.h Wed Jun 22 17:48:21 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * gdba.el: Put program input and output in a separate buffer. Wed Jun 22 16:54:15 1994 Fred Fish (fnf@cygnus.com) * energize-patches, main.c (main), top.c (gdb_init, pwd_command), top.h: Change all occurances of dirbuf to gdb_dirbuf. Collides with global variable of same name in libnsl.so on UnixWare. Wed Jun 22 14:40:52 1994 Kung Hsu (kung@mexican.cygnus.com) * symtab.c (decode_line_1): fix a bug in dealing with '<>' embedded in template name. Tue Jun 21 14:06:46 1994 Kung Hsu (kung@mexican.cygnus.com) * config/i386/nm-linux.h: change calling convention of TARGET_CAN_USE_HARDWARE_WATCHPOINT() and target_insert_watchpoint() and target_remove_watchpoint(). * config/mips/tm-mips64.h: define FORCE_LONG_LONG to force LONGEST to be long long in gdb. * config/mips/tm-bigmips.h: ditto. Mon Jun 20 23:54:37 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * c-lang.c (asm_language_defn): New definitions for language_asm, mostly copied from c_language_defn, to avoid warnings when switching between c and asm stack frames. Mon Jun 20 13:51:55 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * mdebugread.c (parse_symbol): Don't call ecoff_swap_tir_in or ecoff_swap_rndx_in directly; use the debug_swap pointer instead. (upgrade_type, handle_psymbol_enumerators): Likewise. (has_opaque_xref, cross_ref): Likewise. (elfmdebug_build_psymtabs): Call swap->read_debug_info to read debugging information, rather than doing it here. * mipsread.c (mipscoff_symfile_read): Call read_debug_info entry point in ecoff_debug_swap backend structure, rather than calling ecoff_slurp_symbolic_info directly. Fri Jun 17 20:58:58 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.c: Include annotate.h. Call annotate_field rather than printing annotation directly. * main.c: Include string.h. Thu Jun 16 14:41:37 1994 Stan Shebs (shebs@andros.cygnus.com) * fork-child.c (startup_inferior) [STARTUP_INFERIOR]: If defined, call it instead of doing normal loop. * infcmd.c (attach_command): Don't call wait_for_inferior if running Mach 3. * infrun.c (proceed) [PREPARE_TO_PROCEED]: If defined, call hook that can decide whether to step over the next breakpoint. * utils.c (wrap_here): Abort if wrap_buffer not allocated. (request_quit) [REQUEST_QUIT]: If defined, call it instead of doing normal quit. * configure.in: Improve sorting/formatting of hosts and targets. (i[34]86-*-mach3*, i[34]86-*-osf1mk*, mips-*-mach3*, m88*-*-mach3*, ns32k-*-mach3*): Recognize. * Makefile.in (stop-gdb): New target. * stop-gdb.c: New file, utility to get attention of waiting GDBs in Mach 3. Wed Jun 15 00:41:03 1994 Tom Lord (lord@rtl.cygnus.com) * top.c (gdb_init): Init current_directory in gdb_init. Probably the identical initialization can be deleted from main.c, but i haven't done so just in case. Tue Jun 14 17:24:41 1994 Tom Lord (lord@x1.cygnus.com) * gdba.el: Added menu windows and slightly improved window handling to gdba.el. Fixed numerous minor bugs that were causing emacs and gdb to fall out of sync. Tue Jun 14 16:18:44 1994 Kung Hsu (kung@mexican.cygnus.com) * breakpoint.c: annotate changes lost at merge, put back in. Mon Jun 13 17:28:50 1994 Stan Shebs (shebs@andros.cygnus.com) * config/i386/i386sco.mh, i386sco4.mh (XDEPFILES): Remove i387-tdep.o. Sun Jun 12 03:51:52 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/m68k/dpx2.mh (NATDEPFILES): Remove duplicate inclusion of inftarg.o. * config/m68k/tm-dpx2.h (CANNOT_STORE_REGISTER): Define to inhibit writing of floating registers, the dpx2 kernel disallows it. * irix5-nat.c (LM_ADDR): The loaded address of the shared library is contained in o_praw. * irix5-nat.c (solib_map_sections): Adjust sections by the difference between the loaded address and the prelinked address. * irix5-nat.c (solib_address): Use LM_ADDR for the loaded start address. * mdebugread.c (parse_symbol): Do not relocate stEnd/scText symbols, their value is absolute. * mdebugread.c (parse_partial_symbols): Handle Irix 5.2 shared libraries fh->adr fields of zero. Relocate minimal symbol values upon readin. Relocate non-stabs symbols upon readin. * mdebugread.c (psymtab_to_symtab_1): Use pst->textlow for the start address of the outermost block. * mdebugread.c (parse_lines, parse_procedure): Pass in pst instead of section_offsets and use relocated pst->textlow for line number and procedure address relocations. From gmo@MicroUnity.com (Guillermo A. Loyola): * mdebugread.c (parse_symbol, parse_partial_symbols, cross_ref): Handle SGI Irix5 stIndirect symbol type. Fri Jun 10 14:52:56 1994 Kung Hsu (kung@mexican.cygnus.com) * breakpoint.c: fix a syntax error native cc does not like. * Makefile.in: change sparclite-tdep.c to sparcl-tdep.c. * sparclite/Makefile.in: ditto. * sparcl-tdpe.c: change file name because first 8 chars has to be unique. * sparcl-stub.c: ditto. * .Sanitize: add sparclite-stub.c sparclite-tdep.c to keep. * sparclite/Makefile.in: fix INCLUDE_CFLAGS to have {srcdir}/../config. Fri Jun 10 10:38:15 1994 Jeff Law (law@snake.cs.utah.edu) * hppa-tdep.c (target_read_pc, target_write_pc): Accept (and ignore) a PID argument. (hppa_pop_frame): Pass a PID to target_write_pc. * config/pa/tm-hppa.h (TARGET_READ_PC, TARGET_WRITE_PC): Accept and pass through a PID argument. (target_read_pc, target_write_pc): Update prototypes. Thu Jun 9 18:10:44 1994 Kung Hsu (kung@mexican.cygnus.com) * Makefile.in: add new file sparclite-tdep.c. * sparclite/Makefile.in: add new file sparclite-stub.c. * sparclite/hw_breakpoint.note: note for SPARClite hardware breapoint support. * config/sparc/sparclite.mt: add sparclite-tdep.o. * config/sparc/tm-sparclite.h: add hardware breakpoints support defiines and code. * sparclite-tdep.c: new file, contains hardware breakpoint support code. * sparclite-stub.c: new file, stub code that add support hardware breakpoint support. * breakpoint.c: add hardware breakpoint support. * breakpoint.h: add new breakpoint type to support hardware breakpoint. * config/mips/nm-irix4.h: change interface for target dependent code supporting watch point. * config/pa/nm-hppab.h: change interface for target dependent code supporting watch point. Thu Jun 9 14:59:58 1994 Kung Hsu (kung@mexican.cygnus.com) * remote-os9k.c (rombuf_command): fix a bug accepting rombug output. * stabsread.c (read_struct_fields): os9k nested structure does not have terminating ';', instead it just get to ',' and bit position and length. Wed Jun 8 23:20:45 1994 Stu Grossman (grossman@cygnus.com) * nlmread.c (nlm_symtab_read): Clean up a bit. * (nlm_symfile_read): Record bounds of main() so that backtrace command will know where to stop. * objfiles.c (objfile_relocate): Relocate entry point/func info for backtrace as well. * objfiles.h: Define values for invalid PCs for entry point info. * symfile.c (init_entry_point_info): Initialize invalid values with aforementioned macros. * config/alpha/tm-alphanw.h: Turn on FRAME_CHAIN_VALID_ALTERNATE to cause backtrace to stop when it gets back to main(). * config/i386/tm-i386nw.h: Ditto. Sat Jun 4 18:17:03 1994 Per Bothner (bothner@kalessin.cygnus.com) Fix value_print, which used to be ostensibly language-independent, but would print pointers and arrays in C syntax. Instead, call a language-specific function. * language.h (struct language_defn): New functional field la_value_print. (LA_VALUE_PRINT): New macro. * language.c (unk_lang_value_print): New stub/dummy function. (unknown_language_defn, auto_language_defn, local_language_defn): Use it. * c-valprint.c (c_value_print): New function, with code moved from: * valprint.c (value_print): ... here. Now just invoke LA_VALUE_PRINT to do language-specific stuff. * valprint.c (value_print_array_elements): Make non-static. * c-lang.c (c_language_defn, cplus_language_defn): Add c_value_print in the la_value_print field. * m2-lang.c (m2_language_defn): Likewise. * ch-lang.c (chill_language_defn): But here use chill_value_print. * ch-valprint.c (chill_val_print): Print null pointer as NULL. * ch-valprint.c (chill_value_print): New function, based on c_value_print, but use Chill "look and feel." * c-lang.h (c_value_print): New prototype. * ch-lang.h (chill_value_print): New prototype. * value.h (value_print_array_elements): New prototype. * ch-valprint.c (chill_val_print, case TYPE_CODE_BITSTRING and case TYPE_CODE_SET): Check that the element type isn't a stub. Fri Jun 3 09:15:00 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * main.c: Move entire file except for #ifndef MAIN_OVERRIDE code to new file top.c. Make things extern instead of static and similar rearrangements to deal with this. * top.h: New file. * utils.c: Move fputs_unfiltered to main.c. Remove FPUTS_UNFILTERED_OVERRIDE ifndef. * Makefile.in: Change so that gdb uses main.c, utils.c, and top.c, and libgdb uses utils.c and top.c. Thu Jun 2 23:19:10 1994 Jeff Law (law@snake.cs.utah.edu) * hppa-tdep.c (skip_trampoline_code): Fix typo. Thu Jun 2 18:09:59 1994 Per Bothner (bothner@kalessin.cygnus.com) * ch-valprint.c (chill_val_print_array_elements): New function. A Chill version of val_print_array_elements, it prints the array index labels, in additions ot the array element values. (chill_val_print): Use the new function. Thu Jun 2 08:50:00 1994 Stu Grossman (grossman@cygnus.com) * configure.in: Add nlm subdir to configdirs for alpha-*-netware target. * defs.h (enum language): Add language_asm. * findvar.c (read_register_bytes read_register_gen write_register_bytes read_register read_register_pid write_register write_register_pid supply_register): Move multi- thread handling down into these routines. Create XXX_pid routines that allow register references to specify the pid. * findvar.c infcmd.c (read_pc read_pc_pid write_pc write_pc_pid read_sp write_sp read_fp write_fp): Move these routines from infcmd to findvar to centralize the whole mess. * i386-nlmstub.c: Portability fixes. * infptrace.c (child_resume): Conditionalize to allow other natives to override it. Remove PIDGET gubbish, it's no longer necessary. * infrun.c (wait_for_inferior): Put registers_changed() before target_wait() to speed up remote debugging. * Replace code that reads registers from other threads with much nicer looking new function calls (see changes to findvar.c). * Don't skip prologues if debugging assembly source. * lynx-nat.c (child_resume): Lynx now needs it's own version of child_resume to handle multi-thread debugging properly. * remote.c: Add O response to get console output from target. * (readchar): Add timeout parameter. Handle SERIAL_EOF and SERIAL_ERROR here to simplify callers. * Change static var timeout to remote_timeout. * (fromhex): Remove unnecessary return -1 at end of routine. * (remote_wait): Turn this into a big switch statement. Add support for O response. * (putpkt): Remove unnecessary handling of SERIAL_EOF/ERROR. * (getpkt): Split getpkt into two parts. read_frame deals with all formatting issues, run-length encoding, and framing. getpkt now handles error recovery, and frame detection. * ser-tcp.c (tcp_readchar): Handle EINTR from read(). * ser-unix.c (hardwire_raw): Set CLOCAL so that we ignore modem control. (hardwire_readchar): Handle EINTR from read(). * symfile.c (deduce_language_from_filename): Add support for .s files. * config/nm-lynx.h: Define CHILD_WAIT so that lynx-nat.c can override infptrace's child_wait. * config/rs6000/rs6000lynx.mh: Use xm-rs6000ly.h & nm-rs6000ly.h instead of XXXlynx.h. * config/rs6000/rs6000lynx.mt: Use tm-rs6000ly.h instead of tm-rs6000lynx.h. * nlm/gdbserve.c: Portability fixes. Tue May 31 20:35:44 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * inftarg.c (child_wait): Call proc_wait, not wait. (child_mourn_inferior): Call proc_remove_foreign. * main.c (gdb_init): Call init_proc. * main.c: Provide dummy versions of init_proc, proc_wait, and proc_remove_foreign for the gdb case (the libgdb case provides its own versions of these functions). * Makefile.in (libgdb-files): Add libproc.a. Wed Jun 1 11:08:52 1994 Stan Shebs (shebs@andros.cygnus.com) Hardware watchpoints for Linux, from Rick Sladkey (jrs@world.std.com). * infrun.c (wait_for_inferior) [HAVE_CONTINUABLE_WATCHPOINT]: Add new hardware breakpoint recovery method. * i386v-nat.c (i386_insert_watchpoint, i386_insert_nonaligned_watchpoint, i386_remove_watchpoint, i386_stopped_by_watchpoint) [TARGET_CAN_USE_HARWARE_WATCHPOINT]: New functions to support the 386 hardware debugging registers. * config/i386/nm-linux.h (TARGET_CAN_USE_HARDWARE_WATCHPOINT, HAVE_CONTINUABLE_WATCHPOINT, STOPPED_BY_WATCHPOINT, target_insert_watchpoint, target_remove_watchpoint): Define these macros to use the hardware debugging functions in i386v-nat.c. Wed May 25 17:06:15 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Replace libgdb.a with libgdb-files. Make "all" build it. Thu May 19 09:56:20 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * target.c, target.h: New variables target_activity_function and target_activity_fd. * inflow.c, inferior.h: New functions set_sigio_trap and clear_sigio_trap. * inftarg.c (child_wait), procfs.c (wait_fd): Call them. Wed May 18 13:01:55 1994 Doug Evans (dje@canuck.cygnus.com) * remote-sim.h (sim_verbose): Delete. Document callbacks needed. (sim_*): Change result to void where there isn't one. (sim_open): Clarify argument and error response. (sim_close): Declare. (sim_load): Change bfd_handle argument to file name. Clarify result. (sim_create_inferior): Renamed from sim_set_args. (sim_set_pc): Delete. (sim_info): Delete printf_fn argument. * remote-sim.c (gdbsim_kill): Add comment describing purpose. (gdbsim_load): Try sim_load first. (gdbsim_create_inferior): Call sim_create_inferior. (gdbsim_open): Handle args == NULL. Update call to sim_open. (gdbsim_close): Call sim_close. (gdbsim_files_info): Update call to sim_info. (gdbsim_ops): Realign comments. * printcmd.c (decode_format): Allow TARGET_PTR_BIT to be non-constant. Tue May 17 16:45:20 1994 Stan Shebs (shebs@andros.cygnus.com) * xcoffread.c (read_xcoff_symtab): For C_FILE symbols, only use the auxent if the symbol's name is ".file". From David Edelsohn . Tue May 17 11:08:22 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.c (breakpoint_1): Fix typo. * annotate.c (annotate_field_end): Fix typo. * Makefile.in: Move annotate.o from COMMON_OBS to OBS. * Makefile.in (TSSTART): Remove; no longer used. * utils.c (vfprintf_maybe_filtered, vfprintf_unfiltered): Call fputs_unfiltered and exit directly, rather than fatal. The latter calls vfprintf_unfiltered! * gdbtypes.h, gdbtypes.c (can_dereference): New function. * value.h, printcmd.c (print_value_flags): Move from here... * annotate.c: ...to here, and make it use can_dereference. Sat May 14 15:13:52 1994 Stan Shebs (shebs@andros.cygnus.com) * inflow.c (job_control, attach_flag, generic_mourn_inferior): Remove, needed for both native and cross. * target.c (attach_flag, generic_mourn_inferior): Put here. * utils.c (job_control): Put here. (terminal.h): Don't include anymore. Sat May 14 09:11:44 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * source.c (find_source_lines): Always use code that was #ifdef BROKEN_LARGE_ALLOCA. Do the cleanup before returning, rather than leaving it on the chain. Reindent much of this function. * config/sparc/{xm-sun4sol2.h,xm-sun4os4.h}, config/i386/{xm-sun386.h,xm-i386m3.h,xm-i386mach.h}, config/m68k/{sun3os4.h,xm-news.h,xm-hp300hpux.h}, config/ns32k/xm-ns32km3.h: Remove all references to BROKEN_LARGE_ALLOCA; with the above change it is no longer needed. * main.c, fork-child.c, many config files: Remove all SET_STACK_LIMIT_HUGE code; with the above changes it should no longer be needed. * symtab.c (lookup_partial_symbol): Use if and abort, not assert. This avoids __eprintf troubles. Fri May 13 08:10:21 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * main.c (main): Surround in #ifndef MAIN_OVERRIDE. Move initialization code which needs to be called even if we bypass the command line stuff into gdb_init. * utils.c (fputs_unfiltered): Surround in #ifndef FPUTS_UNFILTERED_OVERRIDE. * Makefile.in (libgdb.a): New target. * utils.c: Rearrange I/O stuff a bit so that all output goes through fputs_unfiltered. Use vasprintf; removes arbitrary limit which made %s not work with arbitrarily large strings. * printcmd.c (printf_command): Use printf_filtered, not printf_unfiltered and printf, now that arbitrary limit is gone. gcc -Wall lint: * breakpoint.c (watchpoint_check): Remove unused variable b. * stack.c (print_frame_info): Move sp and buf inside #if. * eval.c (evaluate_subexp): Remove unused variables pp, mangle_ptr, ptr, and mangle_tstr. * valarith.c (value_x_binop): Remove unused variables mangle_tstr and mangle_ptr. * symtab.c (lookup_symtab): Put variable copy inside #if. (decode_line_1): Put variable q1 inside #if 0. * target.h: Declare target_link. * infrun.c (wait_for_inferior): Remove unused variables signame. * remote.c (remote_resume): Remove unused variable name. * c-exp.y (parse_number): Parenthesize operand of shift. * dbxread.c (record_minimal_symbol): Parenthesize operand of && (this is a semantic change, the warning seems to have detected a bug). * dbxread.c (end_psymtab): Move variable p1 inside #if. * coffread.c: Move variable temptype inside #if. * ch-typeprint.c (chill_type_print_base): Remove unused variable name. * ch-valprint.c: #include typeprint.h and ch-lang.h. (chill_val_print): Remove unused variable in_range. (chill_val_print): Remove statement "length > TYPE_LENGTH (type);". (chill_val_print): Add default case for switch. * stabsread.h: Declare stabsect_build_psymtabs. * os9kread.c (read_minimal_symbols): Make this return void. (os9k_symfile_read): Remove unused variables stb_exist and val. (os9k_symfile_init): Remove unused variable val. (fill_sym): Remove unused variable id. (read_os9k_psymtab): Put variable back_to inside #if 0. Remove unused variable nsl. Remove unused variable symfile_bfd. #if 0 unused variables lbrac_unmatched_complaint and lbrac_mismatch_complaint. Remove declaration for non-existent function os9k_next_symbol_text. * annotate.c, annotate.h: New files, containing a function for each annotation which outputs it. * Move breakpoints_changed from breakpoint.c to annotate.c. * breakpoint.c, blockframe.c, infrun.c, cp-valprint.c, main.c, printcmd.c, source.c, stack.c, utils.c, valprint.c: Use annotate.c functions to output annotations. * Makefile.in (OBS): Add annotate.o. Thu May 12 10:46:27 1994 Jeff Law (law@snake.cs.utah.edu) * hppa-tdep.c (read_unwind_info): Make sure elf_unwind_size and elf_unwind_entries are always initialized. * hppa-tdep.c (skip_trampoline_code): Handle argument relocation stubs which return directly to the caller rather than to the stub itself. Wed May 11 20:11:51 1994 Stan Shebs (shebs@andros.cygnus.com) * c-exp.y (yyerror): Display a more informative error message. * ch-exp.y (yyerror): Ditto, don't use global yychar. * m2-exp.y (yyerror): Ditto. Tue May 10 11:57:53 1994 Stan Shebs (shebs@andros.cygnus.com) * inflow.c (job_control): Move definition to front of file. Tue May 10 14:42:37 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * maint.c (print_section_table): Rename SEC_SHARED_LIBRARY to SEC_COFF_SHARED_LIBRARY to match corresponding change in bfd. Fri May 6 13:30:22 1994 Stan Shebs (shebs@andros.cygnus.com) * Makefile.in (kdb): Remove old init.c creation commands. * configure.in (sparclite): Match on sparclite*. * sparclite/aload.c (main): Only change section addresses for a.out format object files. Fri May 6 13:24:04 1994 Steve Chamberlain (sac@cygnus.com) * config/i386/go32.mh: Define CC. Fri May 6 11:56:54 1994 Stan Shebs (shebs@andros.cygnus.com) * gdbserver/Makefile.in: Remove irrelevant definitions and comments inherited from the gdb Makefile. (BFD_DIR, BFD, BFD_SRC, BFD_CFLAGS): Add from gdb Makefile. (VERSION): Update to 4.12.3. (gdbserver): Remove any existing executable first. (distclean, realclean): Remove nm.h. * gdbserver/low-lynx.c: Add Sparc Lynx support. * gdbserver/low-sparc.c, gdbserver/low-sun3.c (sys/wait.h): Don't use absolute pathname. Thu May 5 12:00:22 1994 Stan Shebs (shebs@andros.cygnus.com) * rs6000-nat.c (vmap_ldinfo): Don't fail if fstat returns an error. Wed May 4 06:56:03 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * infrun.c (proceed, normal_stop, wait_for_inferior), breakpoint.c (print_it_normal): Add annotations for the inferior starting and stopping, and for all the various messages related to how it stopped. * printcmd.c (do_one_display): Annotate. * stack.c (print_frame_info): Annotate printing of stack frames. Wed May 4 18:15:51 1994 Stu Grossman (grossman@cygnus.com) * remote.c (get_offsets): Handle case where stub doesn't support qOffsets message. Wed May 4 15:30:39 1994 Per Bothner (bothner@kalessin.cygnus.com) Add partial support for g++ code compiled with -fvtable-thunks. * c-valprint.c (c_val_print): Add vtblprint support when using thunks. * cp-valprint.c (cp_is_vtbl_member): A vtable can be an array of pointers (if using thunks) as well as array of structs (otherwise). * cp-valprint.c (vtbl_ptr_name_old, vtbl_ptr_name): Move to global level, and make the latter non-static (so define_symbol can use it). * stabsread.c (define_symbol): If the type being defined is a pointer type named "__vtbl_ptr_type", set the TYPE_NAME to that name. * symtab.h (VTBL_PREFIX_P): Allow "_VT" as well as "_vt". * values.c (value_virtual_fn_field): Handle thunks. * values.c (value_headof): Minor efficiency hack. * values.c (value_headof): Incomplete thunk support. FIXME. Wed May 4 06:56:03 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * valprint.c (print_longest): Clarify comment about use_local. * printcmd.c, defs.h (print_address_numeric), callers in symmisc.c, symfile.c, stack.c, source.c, remote.c, infcmd.c, cp-valprint.c, core.c, ch-valprint.c, c-valprint.c, breakpoint.c, exec.c: New argument use_local. * source.c (identify_source_line): Use filtered output. Use print_address_numeric. * core.c (memory_error), symtab.c (cplusplus_hint, decode_line_1), language.c (type_error, range_error): Use filtered output. * utils.c (error_begin): Update comment to tell people to use filtered output. * Makefile.in (HFILES_WITH_SRCDIR): List bfd.h. (HFILES_NO_SRCDIR): List gdbcore.h not gdbcore_h, so as not to get bfd.h. Tue May 3 07:41:33 1994 Jim Kingdon (kingdon@cygnus.com) * procfs.c (procfs_wait): Reinstate code which deduces the signal from the fault, #ifndef FAULTED_USE_SIGINFO. * config/sparc/tm-sun4sol2.h: Define FAULTED_USE_SIGINFO. Fri Apr 29 18:15:04 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.c (breakpoint_1): Annotate each field of the headers. Explicitly annotate each record. Fri Apr 29 15:56:18 1994 Stan Shebs (shebs@andros.cygnus.com) * xcoffexec.c: Reformat to standards and lint. (language.h): Include. (exec_close): Declare arg "quitting". (file_command): Declare arg "from_tty". (map_vmap): Cast xmalloc result to PTR. * rs6000-nat.c: Reformat to standards and lint. (exec_one_dummy_insn): Use char array for saved instruction. (fixup_breakpoints): Declare. (vmap_ldinfo): Be more informative in fatal error messages. (xcoff_relocate_symtab): Define to return void. * xcoffsolib.h: Reformat to standards, improve comments. * config/rs6000/nm-rs6000.h (xcoff_relocate_symtab): Declare. Thu Apr 28 08:40:56 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * utils.c, defs.h (error_begin): New function. (quit): Print annotation before printing the error message. * main.c (return_to_top_level): Print annotation before doing the longjmp. * symtab.c (decode_line_1): Call error not warning and then return_to_top_level. Call error_begin and printf_unfiltered rather calling warning (before calls to return_to_top_level). * core.c (memory_error): Use error_begin, printf_unfiltered, print_address_numeric and return_to_top_level instead of error. Cleans up a FIXME-32x64. * language.c (type_error, range_error): Call error_begin not just target_terminal_ours. * dbxread.c (stabsect_build_psymtabs): Assign to sym_stab_info directly, rather than via DBX_SYMFILE_INFO. A cast on the left side of an assignment is non-portable. * utils.c (query): Change syntax of query annotations to be consistent with other input annotations. (prompt_for_continue): Likewise for prompt-for-continue annotation. Thu Apr 28 01:20:39 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mdebugread.c (psymtab_to_symtab_1): Do not call sort_blocks for stabs symtabs. * mips-tdep.c (mips_skip_prologue): Handle prologues for functions that have a stack frame size of 32k or larger (from Paul Flinders). Remove #if 0'd code. Wed Apr 27 16:33:51 1994 Stan Shebs (shebs@andros.cygnus.com) * lynx-nat.c (CANNOT_STORE_REGISTER): Add a fallback definition for Lynx platforms that need it. * config/nm-lynx.h (__LYNXOS): Define if not already defined. Wed Apr 27 16:01:37 1994 Jim Kingdon (kingdon@cygnus.com) * procfs.c (procfs_wait): Use the signal from the pr_info rather than trying to deduce it from the fault. Wed Apr 27 12:22:46 1994 Steve Chamberlain (sac@cygnus.com) * printcmd.c (print_address_symbolic): Initialize name to empty string to avoid core dump if lookup fails. * remote-e7000.c (printf_e7000debug): Error if target not open. Tue Apr 26 22:45:24 1994 Stu Grossman (grossman at cygnus.com) * i386-nlmstub.c: Update to be more in line with PIN stub. * nlm/gdbserve.c (putDebugChar): Install bug fix from i386-nlmstub. * (hex2mem): Init ptr. * General cleanups to use ConsolePrintf, standard prologues, etc... Tue Apr 26 10:23:04 1994 Stu Grossman (grossman at cygnus.com) * i386-nlmstub.c: More changes to be compatible with remote.c. * dbxread.c: Move a bunch of strncmps out of process_one_symbol into (the far less frequently called) dbx_symfile_read. * i386-nlmstub.c: An interim version till we get PIN for the x86. Tue Apr 26 09:50:45 1994 Stu Grossman (grossman at cygnus.com) * dbxread.c (record_minimal_symbol): Record the section associated with the symbol to make dynmaic relocation work. * (dbx_symfile_read, process_one_symbol): Fixes to work around Solaris brain-damage which don't apply to relocatable object files. * (stabsect_build_psymtabs): New routine to read stabs out of an arbitrarily named section. * nlmread.c (nlm_symtab_read): Read ALL syms from the NLM, not just globals. * (nlm_symfile_read): Call stabsect_build_psymtabs to read the stabs out of the nlm. * partial-stabs.h (cases 'f' & 'F'): Fixes to work around Solaris brain-damage which don't apply to relocatable object files. * remote.c (putpkt): Improve error reporting and error handling. * (get_offsets): Temporary kludge to force data & bss sections to have the same relocation. * stabsread.c (define_symbol, scan_file_globals): Record section info in sym. Sat Apr 23 19:05:52 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.c (breakpoint_1): Annotate each field of output. Add FIXME-32x64 comment. Fri Apr 22 16:43:54 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * infrun.c (wait_for_inferior): Move call to flush_cached_frames to after call to target_wait. This means that flush_cached_frames can call target_terminal_ours if it wants to. * infrun.c (wait_for_inferior) [HAVE_NONSTEPPABLE_WATCHPOINT]: Add comment about why the code is dubious. * stabsread.c (read_type): Call read_type, not nonexistent os9k_read_type. Fri Apr 22 14:25:36 1994 Kung Hsu (kung@mexican.cygnus.com) * remote-os9k.c (rombug_fetch_registers): set trace mode correctly. * remote-os9k.c (rombug_read_inferior_memory): cache data in buffer. * os9kread,c (read_os9k_psymtab): process file symbol to truncate extra info. * os9kread.c (os9k_read_ofile_symtab): proper casting of args passed to process_one_symbol. * stabsread.c (read_type): process os9k functio prototype. Fri Apr 22 11:27:39 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * solib.c (symbol_add_stub): If so->textsection is NULL, don't dump core. Thu Apr 21 07:45:49 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * utils.c (prompt_for_continue): Annotate prompt. (query): Annotate query. * printcmd.c (print_frame_args): Change syntax of argument annotation to make name and value part of a single group of annotations, not two separate groups. * cp-valprint.c (cp_print_value_fields): Likewise for fields. * valprint.c (val_print_array_elements): Change syntax of annotation to be more concise. * main.c, defs.h (command_line_input): New argument tells what string to include in the annotations. * symtab.c (decode_line_2), main.c (read_command_lines, command_loop): Change callers. * breakpoint.c (watch_command): Use (CORE_ADDR)0, not NULL, for target null pointer. * blockframe.c (find_frame_addr_in_frame_chain): Likewise. * printcmd.c (output_command): Annotate things we print here too. * printcmd.c (print_command_1): Add "value-history-value" annotation. * Move declaration of print_value_flags from defs.h to value.h. * main.c (command_line_input): Call wrap_here as well as gdb_flush. Thu Apr 21 09:29:37 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * dbxread.c (read_dbx_dynamic_symtab): Reinstall support for sun3, BFD handles sun3 dynamic relocations now. * elfread.c (elf_symtab_read, elf_symfile_read): Handle dynamic symbol table. Wed Apr 20 19:41:21 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * printcmd.c (print_command_1): Annotate the top-level expressions that we print. (print_frame_args): Annotate each argument. * printcmd.c, defs.h (print_value_flags): New function. * cp-valprint.c (cp_print_value_fields): Annotate each field. * valprint.c (val_print_array_elements): Annotate each array element. Wed Apr 20 13:18:41 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * findvar.c (read_var_value): Handle LOC_REPARM_ADDR case correctly, the register contains a pointer to the type, not the type itself. Mon Apr 11 10:44:35 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * main.c (main): Accept --annotate=N option and make --fullname the same as --annotate=1. (command_line_input): Print annotatation before and after prompt. * blockframe.c (flush_cached_frames): Print annotation. * Rename frame_file_full_name to annotation_level and move it from symtab.h to defs.h. * source.c (identify_source_line): If annotation_level > 1, change output format. * breakpoint.c: Print annotation whenever a breakpoint changes. * main.c: New variable server_command. (command_line_input): Parse "server " and set server_command. (dont_repeat): Check server_command. Wed Apr 20 08:37:16 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * xcoffread.c (xcoff_next_symbol_text): Don't return before updating raw_symbol and symnum. Return a value in the case where we complained. * dstread.c, coffread.c: Don't define pending_blocks; buildsym.c takes care of it. * parse.c: Don't define block_found; it is defined in symtab.c. * parser-defs.h: Add comment regarding block_found. Tue Apr 19 09:46:05 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa-tdep.c (internalize_unwind_info): Delete unused indexp argument. Mon Apr 18 13:18:56 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * dbxread.c (read_dbx_dynamic_symtab): Relocate BFD symbols by section vma. Do not read dynamic relocs for sun3 executables to avoid BFD assertion message. Mon Apr 18 10:08:07 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * nm-hppab.h (KERNEL_U_ADDR): Define. (FIVE_ARG_PTRACE): Likewise. (CANNOT_STORE_REGISTER): Likewise. * nm-hppah.h (KERNEL_U_ADDR): Define. (FIVE_ARG_PTRACE): Likewise. (CANNOT_STORE_REGISTER): Likewise. (NEED_TEXT_START_END): Likewise. * tm-hppah.h (NEED_TEXT_START_END): Delete definition. * xm-hppah.h (KERNEL_U_ADDR): Delete definition. (FIVE_ARG_PTRACE): Likewise. * xm-hppab.h (KERNEL_U_ADDR): Delete definition. (FIVE_ARG_PTRACE): Likewise. * hppa-tdep.c (read_unwind_info): Make static. (restore_pc_queue): Indirect through the target vector to reload the register state. Sat Apr 16 22:20:51 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * paread.c (compare_unwind_entries): Delete function. It's been moved into hppa-tdep.c. (read_unwind_info): Likewise. (pa_symfile_read): No longer call read_unwind_info. The unwind tables will be read in as they are needed. * hppa-tdep.c (compare_unwind_entries): New function. (read_unwind_info, internalize_unwinds): Likewise. (find_unwind_entry): Read in unwind information on demand. Fri Apr 15 11:53:46 1994 Stan Shebs (shebs@andros.cygnus.com) * source.c (DIRNAME_SEPARATOR): New macro, replaces all references to : in search path processing. * defs.h (qsort): Rename argument in prototype. * symtab.h (SAYMBOL_VALUE): Rename value field, avoids bugs in some compilers. * breakpoint.c, exec.c, mdebugread.c, mipsread.c, xcoffexec.c (false): Eliminate usages. Fri Apr 15 11:35:19 1994 Steve Chamberlain (sac@cygnus.com) * h8500-tdep.c (initialize_h8500_tdep, large_command): All references to value changed to value_ptrlage_command is now called big_command. All references to value changed to value_ptr. * remote-e7000.c (e7000_wait): Use target_waitstatus and SETSTOP * remote-hms.c (hms_wait): Timeout after five seconds. * ser-go32.c (dosasync_read): Poll if timeout < 0. * config/tm/tm-h8500.h (BEFORE_MAIN_LOOP_HOOK): Deleted. * config/sh/tm-sh.h (BREAKPOINT): Is now sleep opcode. Thu Apr 14 07:01:56 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * procfs.c (procfs_wait): Protect watchpoint code with appropriate #ifdefs. (procfs_set_watchpoint, procfs_stopped_by_watchpoint): Likewise. Wed Apr 13 14:52:46 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * breakpoint.h (enum bptype): Add bp_hardware_watchpoint and bp_watchpoint_scope breakpoints. (struct breakpoint): Add val_chain and related_breakpoint fields for use by watchpoints. * breakpoint.c (within_scope): Delete. No longer used. (TARGET_CAN_USE_HARDWARE_WATCHPOINT): Provide default definition. (target_{remove,insert}_watchpoint): Likewise. (can_use_hardware_watchpoint): New function. (remove_breakpoint): New function to remove a single breakpoint or hardware watchpoint. (insert_breakpoints): Handle insertion of hardware watchpoints. Store a copy of the value chain derived from the watchpoint expression. (remove_breakpoints): Simplify by using remove_breakpoint. (delete_breakpoint): Likewise. (watchpoint_check): Delete the watchpoint and watchpoint scope breakpoints when the watchpoint goes out of scope. Save & restore the current frame after checking watchpoints. (breakpoint_init_inferior): Likewise (restarting the program makes all local watchpoints go out of scope). (bpstat_stop_status): Handle hardware watchpoints much like normal watchpoints. Delete the watchpoint and watchpoint scope breakpoint when the watchpoint goes out of scope. Remove and reinsert all breakpoints before returning if we stopped when a hardware watchpoint fired. (watch_command): Use a hardware watchpoint when possible. If watching a local expression, build a scope breakpoint too. (map_breakpoint_numbers): Also call given function for any related breakpoints. (disable_breakpoint): Never disable a scope breakpoint. (enable_breakpoint): Handle hardware breakpoints much like normal breakpoints, but recompute the watchpoint_scope breakpoint's frame and address (if we have an associated scope breakpoint). (read_memory_nobpt): Handle hardware watchpoints like normal watchpoints. When necessary handle watchpoint_scope breakpoints. (print_it_normal, bpstat_what, breakpoint_1, mention): Likewise. (clear_command, breakpoint_re_set_one, enable_command): Likewise. (disable_command): Likewise. * blockframe.c (find_frame_addr_in_frame_chain): New function. Extern prototype added to frame.h * infrun.c (wait_for_inferior): Set current_frame and select a frame before checking if we stopped due to a hardare watchpoint firing. Handle stepping over hardware watchpoints. (normal_stop): Remove unnecessary call to select_frame. * value.h (value_release_to_mark): Declare. * values.c (value_release_to_mark): New function. * procfs.c (procfs_wait): Add cases for hardware watchpoints. (procfs_set_watchpoint, procfs_stopped_by_watchpoint): New functions. * hppab-nat.c (hppa_set_watchpoint): New function. * config/pa/nm-hppab.h (STOPPED_BY_WATCHPOINT): Define. (HAVE_STEPPABLE_WATCHPOINT): Define. (TARGET_CAN_USE_HARDWARE_WATCHPOINT): Define. (target_{insert,delete}_watchpoint): Define. * config/mips/nm-irix4.h (TARGET_CAN_USE_HARDWARE_WATCHPOINT): Define. (STOPPED_BY_WATCHPOINT, HAVE_NONSTEPPABLE_WATCHPOINT): Likewise. (target_{insert,remove}_watchpoint): Likewise. Mon Apr 11 19:21:27 1994 Stu Grossman (grossman at cygnus.com) * xcoffread.c (read_xcoff_symtab): Ignore symbols of class C_EXT, smtyp XTY_LD, sclass XMC_DS (external data segment label). They often have the same names as debug symbols for functions, and confuse lookup_symbol(). Mon Apr 11 10:44:35 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * remote.c: Around redefinition of PBUFSIZE, adjust whitespace. * config/pa/tm-hppa.h (REGISTER_BYTES): Use 4 rather than REGISTER_RAW_SIZE (1). Together these changes work around a bug in HP's compiler. Both seem to be necessary. Mon Apr 11 09:18:24 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * paread.c (pa_symtab_read): Handle ST_STUB symbols and symbols with scope SS_EXTERNAL. ST_ENTRY symbols in dynamic executables are type mst_solib_trampoline. Fri Apr 8 17:14:37 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * config/m68k/es1800.mt: Change comments. Fri Apr 8 17:14:37 1994 Rob Savoye (rob@darkstar.cygnus.com) * config/m68k/monitor.mt (TDEPFILES): Don't include remote-es.o. Fri Apr 8 15:35:30 1994 Stu Grossman (grossman at cygnus.com) * lynx-nat.c: Restore regmap structure for SPARC. It's needed for core files. Fri Apr 8 14:53:35 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * values.c (unpack_long): Remove obsolete comment about using a switch statement. * symfile.c (symbol_file_command): Add comments about command syntax. Thu Apr 7 17:25:21 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) Jim Kingdon (kingdon@cygnus.com) * infrun.c (IN_SOLIB_TRAMPOLINE): Correct comment, trampolines are in the .plt section. * minsyms.c (lookup_solib_trampoline_symbol_by_pc, find_solib_trampoline_target): New functions for handling stepping into -g compiled shared libraries. * symtab.h (lookup_solib_trampoline_symbol_by_pc, find_solib_trampoline_target): Add prototypes. * config/tm-sunos.h (IN_SOLIB_TRAMPOLINE, SKIP_TRAMPOLINE_CODE): Define to handle stepping into -g compiled shared libraries. * config/tm-sysv4.h (SKIP_TRAMPOLINE_CODE): Define to handle stepping into -g compiled shared libraries. Thu Apr 7 17:22:54 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * configure.in: Add mips-*-sysv4* support. * config/mips/mipsv4.mh, config/mips/mipsv4.mt, config/mips/tm-mipsv4.h, config/mips/xm-mipsv4.h, mipsv4-nat.c: New files for MIPS SVR4 support. * Makefile.in: Update for new mipsv4 files. * alpha-tdep.c (heuristic_proc_desc, find_proc_desc): Use read_next_frame_reg to obtain the frame relative stack pointer. * mips-tdep.c (heuristic_proc_desc): Use read_next_frame_reg to obtain the frame relative stack pointer. * mdebugread.c (parse_partial_symbols, psymtab_to_symtab1): Handle stStatic and stStaticProc symbols in stabs-in-ecoff output by entering them into the minimal symbol table. * printcmd.c (print_scalar_formatted): Do not try to unpack to a long for float formats. * solib.c: Include "elf/mips.h" only if DT_MIPS_RLD_MAP does not get defined in . * solib.c (solib_add): Add shared library sections to the section table of the target before adding the symbols. * partial-stab.h: Relocate static and global functions. * dbxread.c (read_dbx_symtab): Remove unused variable end_of_text_address. Relocate text_addr when passing it to end_psymtab. For Alpha OSF/1 targets, enable gdb to set breakpoints in shared library functions before the executable is run. Retrieve dynamic symbols from stripped executables. * mipsread.c (read_alphacoff_dynamic_symtab): New function. * mipsread.c (mipscoff_symfile_read): Use it. Issue warning message if no debugging symbols were found. * alpha-tdep.c (alpha_skip_prologue): Silently return the unaltered pc if memory at the pc is not accessible and GDB_TARGET_HAS_SHARED_LIBS is defined. * config/alpha/nm-alpha.h (GDB_TARGET_HAS_SHARED_LIBS): Define, OSF/1 has shared libraries. Thu Apr 7 15:11:11 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * dbxread.c (read_dbx_dynamic_symtab): Adjust for recent changes to BFD handling of dynamic symbols. Tue Apr 5 15:29:25 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa-tdep.c (hppa_fix_call_dummy): If FUN is a procedure label, then gets its real address into FUN and its GOT/DP value into %r19. * tm-hppa.h (CALL_DUMMY): Use %r20, not %r19 as a temporary. * hppa-tdep.c (frameless_function_invocation): If no unwind descriptor was found, then assume this was not a frameless function invocation. (frame_saved_pc): If the saved PC is in a linker stub, then return the return address which the linker stub will return to. * xm-hppab.h: Never define USG. * xm-hppah.h: Always define USG. Tue Apr 5 12:58:47 1994 Per Bothner (bothner@kalessin.cygnus.com) * values.c (unpack_long, value_from_longest), valarith.c (value_binop): Allow TYPE_CODE_RANGE. Fri Apr 1 14:04:34 1994 Jason Merrill (jason@deneb.cygnus.com) * symfile.c (deduce_language_from_filename): .cpp is a C++ extension. Fri Apr 1 00:44:00 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) For SVR4 targets, enable gdb to set breakpoints in shared library functions before the executable is run. * elfread.c (elf_symtab_read): Handle symbols for shared library functions. * sparc-tdep.c (in_solib_trampoline): Renamed to in_plt_section and moved to objfiles.c. * objfiles.c (in_plt_section): Moved to here from sparc-tdep. * config/tm-sysv4.h (IN_SOLIB_TRAMPOLINE): Use new in_plt_section. * config/sparc/tm-sun4sol2.h (IN_SOLIB_TRAMPOLINE): Removed, the new generic definition from tm-sysv4.h works for Solaris. Wed Mar 30 16:14:27 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfread.c (elf_symtab_read): Change storage_needed, number_of_symbols and i to long. Rename get_symtab_upper_bound to bfd_get_symtab_upper_bound. Check for errors from bfd_get_symtab_upper_bound and bfd_canonicalize_symtab. * nlmread.c (nlm_symtab_read): Same changes. Wed Mar 30 11:43:29 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * xcoffread.c (xcoff_next_symbol_text): New function. (read_xcoff_symtab): Set next_symbol_text_func to it. Move raw_symbol outside of read_xcoff_symtab. * remote.c (getpkt): Remove unused "out" label. Wed Mar 30 09:15:42 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * breakpoint.c (print_it_normal): Allow GDB to notify the user about more than one watchpoint being triggered. Wed Mar 30 08:24:18 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * config/m68k/tm-dpx2.h: Include tm-m68k.h not nonexistent tm-68k.h. Wed Mar 30 00:31:49 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * blockframe.c (find_pc_partial_function): mst_file_text symbols do not live in the shared library transfer table. * ch-exp.y (decode_integer_value, match_character_literal, match_bitstring_literal): Guard tolower calls with isupper, tolower on old BSD systems blindly subtracts a constant. * dbxread.c (read_ofile_symtab): Check for __gnu_compiled_* as well when determining the producer of the object file. * mdebugread.c (has_opaque_xref): New function to check for cross reference to an opaque aggregate. * mdebugread.c (parse_symbol, parse_partial_symbols): Do not enter typedefs to opaque aggregates into the symbol tables. * mdebugread.c (parse_external): Remove skip_procedures argument, it has always been 1. Remove code that handled stProc symbols, it was never executed and was wrong, as the index of a stProc symbol points to the local symbol table and not to the auxiliary symbol info. Update caller. * mdebugread.c (parse_partial_symbols): Do not enter external stProc symbols into the partial symbol table, they are already entered into the minimal symbol table. * config/i386/tm-symmetry.h: Clean up, it is now only used for Dynix. Remove all conditionals and definitions for ptx. I386_REGNO_TO_SYMMETRY moved to here from symm-tdep.c. Fix addresses of floating point registers in REGISTER_U_ADDR. STORE_STRUCT_RETURN now handles cc and gcc conventions. FRAME_CHAIN, FRAMELESS_FUNCTION_INVOCATION, FRAME_SAVED_PC, IN_SIGTRAMP, SIGCONTEXT_PC_OFFSET defined to make backtracing through signal trampoline code work. * config/i386/xm-symmetry.h: Clean up, it is now only used for Dynix. Remove all conditionals and definitions for ptx. Remove KDB definitions. * symm-nat.c (store_inferior_registers): Fetch registers before storing them to obtain valid floating point control registers. Store fpu registers. * symm-nat.c (print_1167_control_word): Dynix 3.1.1 defines FPA_PCR_CC_C0 and FPA_PCR_CC_C1, avoid duplicate case value. * symm-nat.c (fetch_inferior_registers, child_xfer_memory): Fix typos. * symm-nat.c (child_resume): Update type of `signal' parameter. * symm-tdep.c (I386_REGNO_TO_SYMMETRY): Moved to tm-symmetry.h. Tue Mar 29 23:01:33 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa-tdep.c (hppa_fix_call_dummy): Use an alternate method for calling import stubs for functions in shared libraries. Tue Mar 29 21:14:04 1994 Per Bothner (bothner@kalessin.cygnus.com) * ch-exp.y: Implement SIZE(mode_name) and SIZE(expression). * ch-lang.c (chill_is_varying_struct): Magic string is was "" is now "__var_length" (more portable). Tue Mar 29 19:41:34 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * remote.c (getpkt): If we get a timeout, actually retry rather than just giving up the first time it happens. * remote.c: Document sequence numbers. (remote_store_registers): Change syntax of 'P' request so that it never looks like a sequence number. Tue Mar 29 16:06:01 1994 Kung Hsu (kung@mexican.cygnus.com) * os9kread.c (record_minimal_symbol): add section_offset to relocate minimal symbol table. * os9kread.c (read_minimal_symbols): ditto. * os9kread.c (os9k_symfile_init): increase size of dbg and stb file names. * os9kread.c (read_os9k_psymtab): if there's no dbg file, just return. Also if file addr is 0 leave it 0, not to relocate. * remote-os9k.c (_initialize_remote_os9k): add 'set remotexon', 'set remotexoff' and 'set remotelog' commands. Tue Mar 29 12:38:45 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * remote.c (remote_store_registers): Add 'P' request to set an individual register. (remote_write_bytes, remote_read_bytes): Use %lx, not %x, to print a target address. Sat Mar 26 07:05:18 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * config/sparc/tm-sparc.h: Define USE_REGISTER_NOT_ARG. * stabsread (define_symbol): If USE_REGISTER_NOT_ARG, go back to combining all 'p' and 'r' pairs into a LOC_REGPARM. * command.c (do_setshow_command, case var_string): Never add a space to the end of the string. * NEWS: Document this change. * .gdbinit: Add a space to the "set prompt" command. Fri Mar 25 12:40:41 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * m3-nat.c, i386m3-nat.c, config/i386/i386m3.mh: Many minor changes to make it compile (it doesn't link yet). * buildsym.c (start_subfile, patch_subfile_names), demangle.c (set_demangling_style, set_demangling_command): Use savestring not strdup. We were not dealing properly with a NULL return from strdup, and were not declaring strdup (the system header may or may not have it). * valprint.c (val_print): Remove inaccurate comment about what types can be stub types. * config/i386/ptx.mh (XDEPFILES): Add coredep.o. Delete infptrace.o. * symm-nat.c (child_wait, _initialize_symm_nat, kill_inferior): Supply alternate version if ATTACH_DETACH is not defined. * ptx4-nat.c, config/i386/{nm-ptx4.h, ptx4.mh, ptx.mt, ptx4.mt, tm-ptx.h, tm-ptx4.h, xm-ptx.h, xm-ptx4.h}: New files. * configure.in: Recognize i[34]86-sequent-sysv4* host. Fri Mar 25 10:14:03 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa-tdep.c (skip_prologue): Do nothing if not at the beginning of a function. (skip_trampoline_code): Rewrite and add support for argument relocation stubs stubs, import/export stubs, calls through "_sr4export" and cascaded trampolines. * hppa-tdep.c (skip_prologue): Return "pc" not zero if no unwind descriptor is found. * tm-hppa.h (NUM_REGS): Bump to 128 registers. (REGISTER_NAMES): Add entries for "right-half" of FP registers. (REGISTER_RAW_SIZE, MAX_REGISTER_RAW_SIZE): Do not treat FP regs differently. All registers are four bytes. (REGISTER_BYTES, REGISTER_BYTE): Simplify now that all registers are the same size. (REGISTER_VIRTUAL_TYPE): Use builtin_type_float for all FP regs. * hppa-tdep.c (pa_print_fp_reg): Update to print even numbered FP registers as both single and double values (fetching 2nd 32bit half as necessary). Annotate each register printed with its precision. * paread.c (read_unwind_info): Fix off-by-one error. Fri Mar 25 08:33:28 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * main.c (complete_command): Deal with it if arg is NULL. Thu Mar 24 07:12:09 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * config/mips/tm-mips.h (SETUP_ARBITRARY_FRAME): Revise comment regarding using the PC--using the PC is necessary and all the FIXME comments in the world won't make it go away. * valops.c (value_at, value_at_lazy): Give error if we dereference a pointer to void. * gdbtypes.h: Fix comments regarding TYPE_CODE_VOID. * stabsread.c: Use 1, not 0, for TYPE_LENGTH of void types. * stabsread.c (patch_block_stabs): Add comment about what happens if the definition is in another compilation unit from the stab. * dbxread.c (end_psymtab): Add comment about empty psymtabs. Wed Mar 23 07:50:33 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * main.c (complete_command): New command, from Rick Sladkey . (symbol_completion_function): Don't declare rl_point and rl_line_buffer; they are now declared in readline.h. (show_commands): Don't declare history_base; it is declared in history.h. * command.c (lookup_cmd): Don't delete trailing whitespace. Reverts change of 14 May 1989. Wed Mar 23 16:14:52 1994 Stu Grossman (grossman at cygnus.com) * minsyms.c (prim_record_minimal_symbol): Move section deduction code from prim_record_minimal_symbol_and_info() to here. Callers of the latter can legitimately supply a section number of -1. Wed Mar 23 07:50:33 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbtypes.h, gdbtypes.c: Add comments regarding whether static member functions have an element in args for a (nonexistent) this pointer. Tue Mar 22 20:12:53 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * config/pa/tm-hppao.h (NO_PC_SPACE_QUEUE_RESTORE): Define. * hppa-tdep.c (hppa_pop_frame): Do not restore the PC space queue if NO_PC_SPACE_QUEUE_RESTORE is defined. * stabsread.c (REG_STRUCT_HAS_ADDR): Accept additional argument for the structure's type. All callers changed. * valops.c (call_function_by_hand): Check REG_STRUCT_HAS_ADDR for each structure argument rather than assuming it's either true or false for all structure arguments. * config/pa/tm-hppa.h (REG_STRUCT_HAS_ADDR): Depend only on the length structure passed, not the compiler used. * config/sparc/tm-sparc.h (REG_STRUCT_HAS_ADDR): Accept additional argument for the structure's type. Tue Mar 22 15:28:33 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * values.c (set_internalvar): Don't set var->value until we are sure there won't be an error(). * remote.c (get_offsets): Reinstate comment which was in remote_wait about use of SECT_OFF_TEXT and so on. Mon Mar 21 13:11:30 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symmisc.c (maintenance_check_symtabs): New function to check consistency of psymtabs and symtabs. * symtab.h (maintenance_check_symtabs): Add prototype. * maint.c: Add new `maint check-symtabs' command. * config/i386/tm-i386aix.h, config/i386/tm-sun386.h, config/i386/tm-symmetry.h (REGISTER_CONVERT_TO_RAW): Fix typo. * config/i386/tm-symmetry.h: Make comment inside #if 0 a real comment. * config/i386/tm-symmetry.h (STORE_STRUCT_RETURN): Cast argument to write_memory to avoid warnings from gcc. * config/i386/xm-symmetry.h: Add missing #endif. * config/i386/nm-symmetry.h (NO_PTRACE_H): Add for Dynix. * config/i386/symmetry.mt (TDEPFILES): Add i386-tdep.o. * config/i386/symmetry.mh (NAT_FILE, NATDEPFILES): Add. Mon Mar 21 11:50:28 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa-tdep.c (hppa_fix_call_dummy): Use value_ptr. (hppa_push_arguments): Likewise. Mon Mar 21 11:02:51 1994 Stu Grossman (grossman at cygnus.com) * alpha-tdep.c: Gobs of changes (many imported from mips-tdep) to improve remote debugging efficiency. Also fixed problems with doing function calls for programs with no entry points. * infcmd.c (run_stack_dummy): Use CALL_DUMMY_ADDRESS instead of entry_point_address. * inferior.h (PC_IN_CALL_DUMMY): ditto. * mdebugread.c (parse_symbol, parse_procedure, parse_external, parse_lines): Pass section_offsets info to these routines so that we can relocate symbol table entries upon readin. * (psymtab_to_symtab_1): Set symtab->primary to tell objfile_relocate to do relocations for our symbols. * (ecoff_relocate_efi): New routine to relocate adr field of PDRs (which hang off of the symbol table). * Use prim_record_minimal_symbols_and_info instead of prim_record_minimal_symbols to supply section info to make minimal symbol relocations work. * minsyms.c (prim_record_minimal_symbols_and_info): If section is -1, try to deduce it from ms_type. * objfiles.c (objfile_relocate): Use ALL_OBJFILE_SYMTABS where appropriate. Handle relocation of MIPS_EFI symbols special. Also, add code to relocate objfile->sections data structure. * remote.c (get_offsets): Use new protocol message to acquire section offsets from the target. * (remote_wait): Get rid of relocation stuff. That's all handled by objfile_relocate now. * config/alpha/alpha-nw.mt (TM_FILE): Use tm-alphanw.h. * config/alpha/tm-alpha.h: Define CALL_DUMMY_ADDRESS, and VM_MIN_ADDRESS. * config/alpha/tm-alphanw.h: DECR_PC_AFTER_BREAK=0, VM_MIN_ADDRESS=0. Sun Mar 20 15:21:57 1994 Doug Evans (dje@cygnus.com) * sparc-tdep.c (sparc_frame_find_save_regs): Use REGISTER_RAW_SIZE instead of 4. * sp64-tdep.c (target_ptr_bit, set_target_ptr_bit): Deleted, can no longer set this at run time. * config/sparc/sp64.mt (SIMFILES): Use remote-sim.o now. (TM_CLIBS): Define to -lm, the simulator uses the sqrt() function. * config/sparc/tm-sp64.h (FPS_REGNUM, CPS_REGNUM): Define (so sparc-tdep.c compiles). (TARGET_PTR_BIT): Must be a constant now, fix at 64. Sat Mar 19 08:51:12 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * config/m68k/{cisco.mt,tm-cisco.h}: New files. * Makefile.in (ALLPARAM, ALLCONFIG): Add them. * configure.in: Recognize m68*-cisco*-*. * Makefile.in (TAGS): Use variables directly, rather than using find, to locate TM_FILE, XM_FILE, and NAT_FILE. This is faster and means that these filenames no longer need be unique across all the config/* directories. * configure.in: Put the config/*/ into TM_FILE, etc. * m68k-stub.c (computeSignal): Return SIGFPE, not SIGURG, for chk and trapv exceptions. * target.h (struct section_table), objfiles.h (struct obj_section): Change name of field sec_ptr to the_bfd_section. More mnemonic and avoids the (sort of, for the ptx compiler) name clash with the name of the typedef. * exec.c, xcoffexec.c, sparc-tdep.c, rs6000-nat.c, osfsolib.c, solib.c, irix5-nat.c, objfiles.c, remote.c: Change users. * utils.c: Include readline.h. * Makefile.in (utils.o): Add dependency. * remote.c (getpkt): Add support for run-length encoding. Fri Mar 18 19:11:15 1994 Steve Chamberlain (sac@jonny.cygnus.com) * utils.c (prompt_for_continue): Call readline, not gdb_readline. Fri Mar 18 10:25:55 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * dstread.c (record_minimal_symbol): New arg objfile. Pass it to prim_record_minimal_symbol. Callers: Pass it. * regex.c (EXTEND_BUFFER): Adjust pointers within buffer by computing their offset from the start of the old buffer and adding to the new buffer, rather than by assuming we can add the difference between the old buffer and the new buffer (it might not fit in an int). Merge in cosmetic differences from emacs regex.c version of this macro. Wed Mar 16 15:28:54 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * Makefile.in (install-only): Fix use of program_transform_name. Wed Mar 16 07:18:43 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * printcmd.c: Remove "set print fast-symbolic-addr off" command. The bug which it worked around was fixed on 25 Feb 94 in coffread.c, so I'm nuking the command. * symtab.c (find_addr_symbol): Comment out, no longer used. * main.c (main): Don't init_source_path for the -cd argument. Now that source_path doesn't contain the current_directory from when GDB started up, init_source_path is no longer useful (and is harmful because it clobbers a source_path set in $HOME/.gdbinit). * TODO: Remove item about line numbers being off. It is useless and confusing without a reproducible test case (it mentions proceed(), but I was able to step through proceed without trouble). Tue Mar 15 13:39:23 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) For Sunos 4.x targets, enable gdb to set breakpoints in shared library functions before the executable is run. Retrieve dynamic symbols from stripped executables. * symtab.h (minimal_symbol_type): Add mst_solib_trampoline type. * parse.c (write_exp_msymbol), symmisc.c (dump_msymbols), symtab.c (list_symbols): Handle mst_solib_trampoline. * minsyms.c (lookup_minimal_symbol): Handle mst_solib_trampoline for all targets, remove IBM6000_TARGET dependencies. * dbxread.c (read_dbx_dynamic_symtab): New function. * dbxread.c (dbx_symfile_read): Use it. * dbxread.c (SET_NAMESTRING): Set namestring to "" instead of "foo" if the string index is corrupt. * xcoffread.c (read_xcoff_symtab): Use mst_solib_trampoline instead of mst_unknown. * symtab.c (list_symbols): Take from_tty as parameter and pass it to break_command. Handle mst_file_* minimal symbol types. * config/i386/tm-i386bsd.h: Give just macro name, not args, to #undef. Tue Mar 15 11:40:43 1994 Kung Hsu (kung@mexican.cygnus.com) * c-exp.y(yylex): fix potential memory overflow. Tue Mar 15 10:33:28 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * environ.c (set_in_environ): Eliminate special handling of PATH and GNUTARGET. * putenv.c: Removed, conflicts with system declaration of putenv on RS/6000 running AIX 3.2.5, and above change makes it unnecessary. * Makefile.in: Change accordingly. * procfs.c (procfs_create_inferior): Change comment accordingly. Tue Mar 15 10:05:27 1994 Jim Kingdon (kingdon@cygnus.com) * rs6000-tdep.c: Change value to value_ptr. Sun Mar 13 09:45:51 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * i386m3-nat.c: Include floatformat.h. (get_i387_state): Use memset not bzero. * Version 4.12.3. * Makefile.in: Enable commented out getopt_h, bfd_h, etc. Change ieee-float.h to floatformat.h. * valprint.c (val_print_string): Ignore error if the error happened after a terminating '\0'. * c-valprint.c (c_val_print): Never add 1 to return value from val_print_string; just return what it returns. * target.h (enum target_signal): Add TARGET_SIGNAL_FIRST, for looping through all of the enums. * infrun.c (signals_info): Use it. Fri Mar 11 08:08:50 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * main.c (main): When printing warning about bad baud rate, don't use warning(); it relies on current_target which isn't set up yet. * breakpoint.c (_initialize_breakpoint): Update docstring for tbreak to match what the code actually does. Don't mention tbreak in docstrings for "enable once" or "enable breakpoints once". Thu Mar 10 08:52:38 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * symfile.h (ADD_PSYMBOL_VT_TO_LIST): Don't put a semicolon after while (0). That defeats the whole purpose of using do . . . while (0). * mdebugread.c (parse_partial_symbols): Don't use ?: expression as list for ADD_PSYMBOL_TO_LIST; the macro takes its address and using a ?: expression as an lvalue is not portable. * stabsread.c (define_symbol): If REG_STRUCT_HAS_ADDR, also convert a LOC_ARG to a LOC_REF_ARG. Update code which combines 'p' and 'r' symbol descriptors into a single symbol to look for a LOC_REF_ARG. * README, config/sparc/tm-sparc.h: Update comments. Wed Mar 9 21:43:24 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mdebugread.c (parse_type): Do not complain for types with an `indexNil' aux index, these are simply undefined types. Remove indexNil check from caller of parse_type. * mdebugread.c (parse_partial_symbols): Do not enter stGlobal, scCommon symbols into the minimal symbol table, their value is the size of the common, not its address. Handle scInit, scFini, scPData and scXData sections. Use minimal symbol type mst_file_* for stLabel symbols, instead of mst_*. Enter stProc symbols into the global_psymbols list once, not into the static_psymbols_list. Get rid of dummy psymtab if it is empty, to allow proper detection of stripped executables. * mdebugread.c (cross_ref): Allow cross references to Fortran common blocks. Wed Mar 9 15:23:19 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (common_block_end, fix_common_block): Stash the struct pending * in the SYMBOL_TYPE, not the SYMBOL_NAMESPACE, so as to not assume that a pointer fits in an enum. Wed Mar 9 18:56:36 1994 Kung Hsu (kung@mexican.cygnus.com) * os9kread.c (fill_sym): check compiler verion number for pre- UltraC compiler. * os9kread.c (os9k_process_one_symbol): address of symbol is relative to section not module. * stabsread.c (define_symbol): add symbol type 's' as local symbol for os9k. * remote-os9k.c: add command 'set monitor_log' to turn on or off monitor logging. * remote-os9k.c: fix bug in delete breakpoint, single step trace. * remote-os9k.c: fix bug in 'set remotebaud' function. * remote-os9k.c (rombug_link): minimize checking so to improve speed. * symfile.c (symbol_file_command): check if failed to link, also make the command be able to accept more than one filenames. * target.c (target_link): check if failed to link with rombug. * config/i386/tm-i386os9k.h : add #define DECR_PC_AFTER_BREAK 0. Wed Mar 9 15:23:19 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-es.c (es1800_child_ops): Don't declare it static. Tue Mar 8 11:42:39 1994 Jim Kingdon (kingdon@cygnus.com) * config/i386/tm-i386v4.h: Give just macro name, not args, to #undef. Tue Mar 8 06:56:13 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * dbxread.c: New variable lowest_text_address. (record_minimal_symbol, read_dbx_symtab): Set it. (read_dbx_symtab): Use lowest_text_address + text_size instead of end_of_text_address. * config/gould/tm-pn.h: Add comment regarding END_OF_TEXT_DEFAULT. * dbxread.c (end_psymtab): Remove old and commented out capping_global and capping_static. Fix comments regarding N_SO_ADDRESS_MAYBE_MISSING to match the real name of the macro. * parser-defs.h: Add "extern" to start of variable declarations so we don't end up with commons. * parse.c: Define these variables. * irix5-nat.c (find_solib): Cast o_path to CORE_ADDR when using it as one. Mon Mar 7 13:00:50 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * alpha-tdep.c: Change value to value_ptr. Sun Mar 6 17:36:53 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * solib.c (elf_locate_base): New function to locate the address of the dynamic linker's runtime structure in the dynamic info section. * solib.c (locate_base): Use it instead of iterating over the list of mapped address segments. * solib.c (look_for_base, bfd_lookup_symbol): Removed, no longer necessary. Fri Mar 4 09:50:47 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa-tdep.c (pc_in_linker_stub): Move decl to beginning of file. (pc_in_interrupt_handler): New function. Also add PARAM decl. (find_proc_framesize): Deal with HPUX setting SAVE_SP bit for signal trampoline and interrupt routines. (frame_saved_pc): Handle signal trampolines and interrupt routines. (frame_chain, frame_chain_valid): Likewise. (hppa_frame_find_saved_regs): Likewise. Also deal with special saved regs convention for SP. * tm-hppa[bho].h: FRAME_FIND_SAVED_PC_IN_SIGTRAMP): Define. (FRAME_BASE_BEFORE_SIGTRAMP): Define. (FRAME_FIND_SAVED_REGS_IN_SIGTRAMP): Define. * tm-hppah.h (IN_SIGTRAMP): Define. Thu Mar 3 12:41:16 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * ch-exp.y (match_simple_name_string): Accept '_' as well as an alphabetic character as the start of a name. * sparclite/Makefile.in (all install): Build and install aload. * configure.in: Accept i[34]86-*-*sysv32 because that is what config.guess and config.sub produce. * mips-tdep.c: Change value to value_ptr. Wed Mar 2 09:17:55 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * breakpoint.c, breakpoint.h, c-valprint.c, ch-valprint.c, cp-valprint.c, eval.c, expprint.c, findvar.c, language.c, objfiles.h, infcmd.c, printcmd.c, stack.c, typeprint.c, valarith.c, valops.c, valprint.c, value.h, values.c: Replace value with value_ptr. This is for the ptx compiler. * objfiles.h, target.h: Don't declare a "sec_ptr" field using a "sec_ptr" typedef. * symm-nat.c: Add a bunch of stuff for symmetry's ptrace stuff. #if 0 i386_float_info. * symm-tdep.c (round): Remove. Also remove sgttyb. * symm-tdep.c: Remove lots of stuff which duplicates stuff from i386-tdep.c. Remove register_addr and ptx_coff_regno_to_gdb. * i386-tdep.c (i386_frame_find_saved_regs): Put in I386_REGNO_TO_SYMMETRY check in case it is needed for Dynix someday. * config/i386/nm-symmetry.h: Change KERNEL_U_ADDR. Move stuff from PTRACE_READ_REGS, PTRACE_WRITE_REGS macros to symm-nat.c. Define CHILD_WAIT and declare child_wait(). * config/i386/tm-symmetry.h: Remove call function stuff; stuff in tm-i386v.h is apparently OK. * config/i386/xm-symmetry.h [_SEQUENT_]: Define HAVE_TERMIOS not HAVE_TERMIO. Define MEM_FNS_DECLARED, NEED_POSIX_SETPGID, and USE_O_NOCTTY. Wed Mar 2 11:31:08 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * osfsolib.c (xfer_link_map_member): Update to use new target_read_string interface. Wed Mar 2 09:17:55 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * infrun.c (wait_for_inferior): In checking remove_breakpoints_on_following_step, check through_sigtramp_breakpoint as well as step_resume_breakpoint. Tue Mar 1 16:22:56 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * os9kread.c (os9k_process_one_symbol): Rename VARIABLES_INSIDE_BLOCK to OS9K_VARIABLES_INSIDE_BLOCK. * symfile.c (symbol_file_command): Check for (CORE_ADDR)-1, not (CORE_ADDR)0, from target_link, since that is what it uses. Process name at end, not during parsing (like we did before Kung's change), so that -readnow and -mapped can appear anywhere. Make text_relocation a local variable. * config/i386/i386os9k.mt: Fix comment. * Makefile.in (ALLDEPFILES): Add remote-os9k.c. * os9kread.c: Put "comments" after #endif inside /* */. * stabsread.h: Add os9k_stabs variable. * stabsread.c (start_stabs), os9kread.c (os9k_process_one_symbol): Set it. * stabsread.c (define_symbol): If os9k_stabs, put a 'V' symbol descriptor in global_symbols not local_symbols. (read_type): If os9k_stabs, accept 'c', 'i', and 'b' type descriptors. (read_type): If os9k_stabs, accept function parameters after 'f' type descriptor. (read_array_type): If os9k_stabs, don't expect index type and expect lower and upper to be separated by ',' not ';'. (read_enum_type): If os9k_stabs, read a number before the first enumeration constant. (os9k_init_type_vector): New function. (dbx_lookup_type): Call it when starting new type vector. * config/i386/tm-i386os9k.h: Define BELIEVE_PCC_PROMOTION. * (os9k_process_one_symbol): Call define_symbol not os9k_define_symbol. * os9kstab.c: Removed. * Makefile.in: Update accordingly. * objfiles.c (objfile_relocate_data): Removed. * remote-os9k.c (rombug_wait): Call objfile_relocate not objfile_relocate_data. * objfiles.h, objfiles.c: Remove find_pc_objfile. * remote-os9k.c (rombug_wait): Call find_pc_section not find_pc_objfile. * main.c (quit_command): Check inferior_pid; revert Kung change. * remote-os9k.c (rombug_create_inferior): Set inferior_pid. Tue Mar 1 14:56:14 1994 Kung Hsu (kung@mexican.cygnus.com) * os9kread.c: New file to read os9000 style symbo table. * os9kstab.c: new file to read os9000 style stabs. * remote-os9k.c: remote protocol talking to os9000 rombug monitor. * objfiles.c (find_pc_objfile): new function to search objfile from pc. * objfiles.c (objfile_relocate_data): new function to relocate data symbols in symbol table. * objfiles.h: Add two aux fields in struct objfile to handle multiple symbol table files situation like in os9000. * symfile.c: Change so 'symbol-file' command can handle multiple files. Also call target_link() to get relocation infos. * target.c (target_link): new function to get relocation info when a symbol file is requested to load. * main.c (quit_command): take out 'inferior_pid != 0' condition, because in cross mode there's no inferior pid, bit they need to be detached. Makefile.in: add os9kread.c os9kstab.c and .o's. configure.in: add i386os9k target. config/i386/i386os9k.mt: new add. config/i386/tm-i386os9k.h: new add. Tue Mar 1 13:16:10 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/sparc/tm-sun4sol2.h (IN_SIGTRAMP): Handle ucbsigvechandler. * sparc-tdep.c (sparc_frame_saved_pc): Handle ucbsigvechandler. Tue Mar 1 11:54:11 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * target.c, target.h (target_read_string): Provide error detection to caller. Put string in malloc'd space, so caller need not impose arbitrary limits. * solib.c (find_solib): Update to use new interface. * irix5-nat.c (find_solib): Read o_path from inferior (clear_solib): Free storage for o_path. * valprint.c (val_print_string): Add comments. Mon Feb 28 23:54:39 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symtab.c (decode_line_1): Handle the case when skip_quoted does not advance `p'. Mon Feb 28 12:40:46 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * value.h (struct value): Add modifiable field. * values.c (allocate_value, record_latest_value, value_copy): Set it. (record_latest_value): Don't mess with VALUE_LVAL of value. * valops.c (value_assign): Check it. Reword existing error message on not_lval. * mips-tdep.c (mips_step_skips_delay), config/mips/tm-mips.h (STEP_SKIPS_DELAY): Added. * infrun.c (proceed) [STEP_SKIPS_DELAY]: Check for a breakpoint in the delay slot. * valprint.c (val_print_string): If errcode is set, always print an error, regardless of force_ellipsis. In the non-EIO case, just print the error message rather than calling error(). Don't access *(bufptr-1) if bufptr points to the start of the buffer. When looking for '\0', don't increment bufptr and addr if bufptr started out already at limit. If an error happens on fetching the first character, don't print the string. Sun Feb 27 21:05:06 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * config/m68k/tm-apollo68b.h: Remove HAVE_68881 define; it is obsolete. * i387-tdep.c, i386-tdep.c i386v-nat.c, i386aix-nat.c, i386m3-nat.c, config/m68k/tm-m68k.h, i960-tdep.c config/i960/tm-i960.h, remote-nindy.c, config/m88k/tm-m88k.h, m88k-tdep.c: Use floatformat.h instead of ieee-float.h. * sparc-tdep.c: Remove now-obsolete ieee-float.h stuff * findvar.c: Update comment regarding ieee-float.h. Sun Feb 27 21:39:48 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/i386/tm-i386v4.h (I386V4_SIGTRAMP_SAVED_PC, IN_SIGTRAMP, FRAME_CHAIN, FRAMELESS_FUNCTION_INVOCATION, FRAME_SAVED_PC): Define to make backtracing through the various sigtramp handlers work. * i386-tdep.c (i386v4_sigtramp_saved_pc): New routine to fetch the saved pc from ucontext on the stack for SVR4 signal handling. Fri Feb 25 09:41:11 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * remote.c, remote-mon.c, remote-utils.c, remote-utils.h, target.h, remote-es.c, remote-nindy.c: Don't set baud rate if baud_rate is -1. Remove sr_get_baud_rate and sr_set_baud_rate; just use the global variable itself. When printing baud rate, don't print a baud rate if baud_rate is -1. * coffread.c (read_coff_symtab): Pass mst_file_* to record_minimal_symbol for C_STAT symbols. Put C_EXT and C_STAT symbols in the minimal symbols regardless of SDB_TYPE. Thu Feb 24 08:30:33 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * breakpoint.h (enum bptype): New type bp_through_sigtramp. (bpstat_what_main_action): New code BPSTAT_WHAT_THROUGH_SIGTRAMP. * breakpoint.c (bpstat_what): Return BPSTAT_WHAT_THROUGH_SIGTRAMP if we hit a bp_through_sigtramp breakpoint. Remove kludge which ignored bs->stop for a bp_step_resume breakpoint. * infrun.c (wait_for_inferior): Make a through_sigtramp_breakpoint which performs one (the check_sigtramp2 one) of the functions which had been handled by the step_resume_breakpoint. For each use of the step_resume_breakpoint, make it still use the step_resume_breakpoint, use the through_sigtramp_breakpoint, or operate on both. Deal with BPSTAT_WHAT_THROUGH_SIGTRAMP return from bpstat_what. When setting the frame address of the step resume breakpoint, set it to the address for frame *before* the call instruction is executed, not after. * mips-tdep.c (mips_print_register): Print integers using print_scalar_formatted rather than duplicating all the CC_HAS_LONG_LONG and so on. (mips_push_dummy_frame): Use read_register_gen rather than using read_register and then putting it back in target format with store_unsigned_integer. If registers are more than 4 bytes, give an error rather than have some registers overwrite other registers. #if 0 unused include of opcode/mips.h. * symfile.h: Don't declare arguments for coff_getfilename. * defs.h: Revert Kung change regarding FORCE_LONG_LONG. Thu Feb 24 08:06:52 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * configure.in (hppa*-*-osf*): New configuration. * config/pa/hppaosf.mt: New target makefile fragment. * config/pa/tm-hppao.h: New target include file. Thu Feb 24 04:29:19 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * exec.c (print_section_info): Print entry point for exec_bfd only. * ser-unix.c (wait_for): Fix typo in HAVE_TERMIO case. * dwarfread.c: Remove second inclusion of , which causes problems if has no multiple inclusion protection. Wed Feb 23 16:28:55 1994 Jeffrey A. Law (law@cygnus.com) * tm-hppa.h (CALL_DUMMY): Add two NOP instructions to the end of the call dummy to avoid kernel bugs in HPUX, BSD, and OSF1. (CALL_DUMMY_LENGTH): Changed accordingly. Wed Feb 23 16:21:25 1994 Stu Grossman (grossman at cygnus.com) * sparc-stub.c (trap_low): Make trap handler work for arbitrary numbers of register windows. * sparclite/hello.c: Add factorial function for testing. * salib.c: Use macros instead of constants for I/O addresses to make 931 support easier. * sparclite.h: Change constraint for LOC to "rJ" to force use of register in sta/lda instructions. Wed Feb 23 10:39:18 1994 Jim Kingdon (kingdon@rtl.cygnus.com) * dbxread.c (process_one_symbol): Set block_address_function_relative for COFF like we do for ELF and SOM. Sat Feb 19 03:17:32 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mdebugread.c (new_psymtab): Pass in section_offsets and set them in the pst. * mdebugread.c (handle_psymbol_enumerators): New function to enter the enumerators of an ecoff enum into the partial symbol table. * mdebugread.c (parse_partial_symbols): Call it. * symfile.c (reread_symbols): Initialize objfile->*_psymbols.next. * symmisc.c (dump_psymtab): Fix typo, clean up output of section offsets. Cast psymtab->read_symtab to PTR before passing it to gdb_print_address. * i386-tdep.c (i386_skip_prologue): Skip over instructions that set up the global offset table pointer in pic compiled code. * config/mips/tm-mips.h (FIX_CALL_DUMMY): For big endian targets, error() on TYPE_CODE_FLT arguments whose size is greater than 8, swap all other TYPE_CODE_FLT arguments as mips_push_arguments ensures that floats are promoted to doubles before they are pushed on the stack. Fri Feb 18 23:12:59 1994 Stu Grossman (grossman at cygnus.com) * sparclite/Makefile.in, sparclite/salib.c, sparclite/sparclite.h: Fixup cache_on and flush_i_cache so that they work for both the 930 and 932 processors. Rewrite most low level funcs (uart access & cache stuff) to use new ASI access macros in sparclite.h. Also make it easy to access second serial port. Fri Feb 18 22:17:33 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * hp300ux-nat.c: Don't incloude , , or ; not needed. Fri Feb 18 08:26:29 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stack.c (print_frame_info): In "pathological" case, don't distrust the line number information. Fri Feb 18 16:51:14 1994 Kung Hsu (kung@mexican.cygnus.com) * mips-tdep.c (mips_print_register): handle 64 bits register. * valprint.c (print_longest): fix a bug in printing 64 bits value. Fri Feb 18 08:26:29 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Version 4.12.2. * Makefile.in (install): Do the sed for program_transform_name ourselves instead of worrying about INSTALL_XFORM. This enables users to override INSTALL_PROGRAM in the standard way. * Makefile.in (c-exp.tab.o, ch-exp.tab.o, m2-exp.tab.o): Don't depend on Makefile.in. * defs.h, valprint.c: Make longest_to_int a function not a macro. Only test against INT_MIN if a LONGEST is bigger than an int. * README: Change GhostScript to Ghostscript. Fri Feb 18 07:30:55 1994 Jim Kingdon (kingdon@cygnus.com) * config/rs6000/{tm-rs6000lynx.h,nm-rs6000lynx.h,xm-rs6000lynx.h}: Rename to tm-rs6000ly.h, nm-rs6000ly.h, xm-rs6000ly.h for 14 character file names. * Makefile.in (ALLPARAM): Add these files. * config/mips/littlemips64.mt: Rename to mipsel64.mt for 14 character file names. * Makefile.in: Add Kung's new mips64 files. Thu Feb 17 17:25:47 1994 Kung Hsu (kung@mexican.cygnus.com) * configure.in: add mips64-*-elf, mips64-*-ecoff, mips64el-*-elf, mips64el-*-ecoff and mips64-big-*. * defs.h: get rid of FORCE_LONG_LONG. * mips-tdep.c (mips_find_saved_regs): add sd and sdc1 instruction parsing. Change register size to be MIPS_REGSIZE. Thu Feb 17 09:30:22 1994 David J. Mackenzie (djm@thepub.cygnus.com) * corelow.c, exec.c, irix5-nat.c, mipsread.c, objfiles.c, osfsolib.c, rs6000-nat.c, solib.c, symfile.c, utils.c, xcoffexec.c: Use bfd_get_error and bfd_set_error and new error names. Fri Feb 11 21:47:24 1994 Steve Chamberlain (sac@sphagnum.cygnus.com) * remote-hms.c (readchar, hms_open, hms_fetch_register): Made more robust. (remove_commands, add_commands): Add/remove hms-drain when target is connected. Fri Feb 11 16:11:38 1994 Stu Grossman (grossman at cygnus.com) * configure.in: Add Lynx/rs6000 support. * lynx-nat.c: Clean up some Sparc stuff. Clean up ptrace error messages. Add rs6000 support. Don't try to modify unwritable registers. * rs6000-nat.c: Move lots of native dependent stuff (like core file support) from rs6000-tdep.c & xcoffexec.c to here. * rs6000-tdep.c: Move native dependent stuff to nat.c. * xcoffexec.c: Move native dependent stuff to nat.c. * config/rs6000/nm-rs6000.h: Move defs of SOLIB_* macros to here from tm file. * config/rs6000/tm-rs6000.h: Remove defs of SOLIB_* funcs, cuz they're really native. * config/rs6000/tm-rs6000lynx.h, config/rs6000/xm-rs6000lynx.h: New files to support Lynx/rs6000. Tue Feb 8 00:32:28 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * README: Remove note about gcc warnings on alpha, these should be gone now. * c-exp.y, ch-exp.y, core.c, corelow.c, eval.c, fork-child.c, m2-exp.y, minsyms.c, nlmread.c, parse.c, putenv.c, regex.c remote-utils.c, stabsread.c: Include . * regex.c: Include "defs.h", change re_comp argument to const char *. * infptrace.c (fetch_register, store_inferior_registers): Change regaddr to type CORE_ADDR. * config/alpha/alpha-nw.mt, config/alpha/alpha-osf1.mt (MT_CFLAGS): Remove, no longer necessary now that we use bfd_vma for a CORE_ADDR. Mon Feb 7 09:21:17 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * symtab.h: Always define BYTE_BITFIELD to nothing. Mon Feb 7 08:44:17 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * config/m68k/{m68k-em.mt,tm-m68k-em.h}: Remove; no longer used. * configure.in: Remove comment about m68k-em.mt. * Makefile.in: Remove references. Mon Feb 7 08:22:42 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * defs.h [BFD64]: Use BFD_HOST_64_BIT, not nonexistent BFD_HOST_64_TYPE. Sun Feb 6 06:55:15 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * target.c (target_preopen): If target_kill doesn't remove the target from the stack, use pop_target to do it. * coffread.c (process_coff_symbol, case C_TPDEF): Don't set name of TYPE_CODE_PTR or TYPE_CODE_FUNC types. This parallels similar changes to stabsread.c from summer 1993. * remote-udi.c (udi_files_info): If prog_name is NULL, just skip printing the program, rather than passing NULL to printf. (udi_detach): Set udi_session_id to -1 so that udi_close doesn't try to call UDIDisconnect again. Print better message. (udi_kill): Just call UDIDisconnect ourselves, rather than doing it via udi_close. (udi_create_inferior): If udi_session_id is negative, open a new TIP rather than giving an error. * config/mips/mipsm3.mh, config/i386/i386m3.mh, config/ns32k/ns32km3.mh: Define NAT_FILE. * config/nm-m3.h: Change guard from _OS_MACH3_H_ and _OS_MACH3_H (it was inconsistent and namespace-wrong) to NM_M3_H. * m3-nat.c (mach_really_wait): Change parameter name to ourstatus. (m3_open): New function. (m3_ops): Use it. * TODO: Update Mach section. * Makefile.in: Remove "rapp" stuff; it is superseded by gdbserver. Sun Feb 6 13:26:21 1994 Per Bothner (bothner@kalessin.cygnus.com) * printcmd.c (printf_command): Add missing single-letter backslash-escape sequences, and improve error message. Sun Feb 6 06:55:15 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * corelow.c (solib_add_stub, core_open): Pass address of from_tty rather than trying to shove an int into a pointer and back out again. This avoids compiler warnings. * defs.h (alloca): Declare as void *, not char *, on hpux. Don't prototype it, just declare the return type. Sun Feb 6 03:25:41 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/i386/tm-sun386.h, config/i386/tm-symmetry.h (REGISTER_CONVERT_TO_RAW): Add missing backslash. Sat Feb 5 08:03:41 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-mips.c (mips_fetch_registers): If regno is FP_REGNUM or ZERO_REGNUM, just read it as zero without talking to the board. * config/i386/tm-i386aix.h (REGISTER_CONVERT_TO_RAW): Add missing backslash. * i386-tdep.c (i386_extract_return_value): Pass TYPE_LENGTH (type) to store_floating, not nonexistent variable len. * remote-mips.c (mips_insert_breakpoint, mips_remove_breakpoint): New functions. (mips_store_word): Change calling convention to return errors, and to provide old contents if the caller wants it. (mips_xfer_memory): Deal with errors from mips_store_word. * config/mips/tm-idt.h, config/mips/tm-idtl.h: Remove BREAKPOINT define now that remote-mips.c doesn't use BREAKPOINT. * remote-mips.c (mips_create_inferior): Call warning if arguments specified, and then execute "set args" command. Call error, not mips_error, if executable file not specified. * remote-e7000.c: Replace "snoop" command (e7000_noecho) with remote_debug. * config/rs6000/tm-rs6000.h (STORE_STRUCT_RETURN): Don't cast to unsigned int. Sat Feb 5 05:27:05 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * value.h (print_longest): Rename "value" to "val" in prototype declaration because some compilers don't like arguments whose names are the same as types. * remote.c (remote_xfer_memory): Cast "myaddr" to unsigned char * before passing it to remote_*_bytes. Fri Feb 4 15:53:18 1994 Steve Chamberlain (sac@cygnus.com) * h8500-tdep.c (saved_pc_after_call): The size of the pc is memory model dependent. (segmented_command, unsegmented_command, _initialize_h8500_tdep): New commands to change memory model. * remote-e7000.c (_initialize_remote_e7000): Change name of snoop command. * remote-hms.c (hms_load): Remove breakpoints when loaded. (hms_wait): Use new status structure (hms_open): Push the target here. (hms_before_main_loop): Not here. (supply_val, hms_fetch_register, hms_store_register): Cope with H8/500 names too. (hms_fetch_register): Take out REGISTER_TYPE. * sh-tdep.c (show_regs, initialize_sh_tdep): New command to print all registers in a compact way. Fri Feb 4 07:41:13 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * config/rs6000/tm-rs6000.h: Declare rs6000_struct_return_address as CORE_ADDR to match definition in rs6000-tdep.c. Fri Feb 4 01:14:20 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * dwarfread.c (process_dies): Skip nested TAG_compile_unit DIEs. * dwarfread.c (add_partial_symbol): Do not enter opaque aggregate definitions into the psymtab. Thu Feb 3 12:38:58 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * m68k-stub.c: Treat mc68332 like mc68020 most places. Provide a special exceptionSize for the 68332. * remote-udi.c (udi_attach): If no arguments, print error. Thu Feb 3 17:34:05 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.12.1 * NEWS, README: Update to match 4.12 release. Thu Feb 3 12:38:58 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * command.c (empty_sfunc): New function. (add_set_cmd): Use it instead of not_just_help_class_command. (not_just_help_class_command): Change calling convention back to what it was before yesterday's change. * stabsread.c (read_sun_builtin_type): Skip the semicolon at the end of the type if present. Wed Feb 2 11:16:45 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * printcmd.c (decode_format): Don't blithely set the size for an address to 'w'. Make it 'g' or 'h', depending on TARGET_PTR_BIT. * defs.h: Just typedef CORE_ADDR to bfd_vma. Include bfd.h. If BFD64, make a LONGEST a BFD_HOST_64_BIT. * defs.h (longest_to_int): Don't depend on CC_HAS_LONG_LONG; instead always just check against INT_MIN and INT_MAX (this also fixes things if sizeof (long) > sizeof (int), e.g. Alpha). * config/pa/tm-hppa.h, config/i386/sun386.h, config/rs6000/tm-rs6000.h: Don't define LONGEST or BUILTIN_TYPE_LONGEST. * gdbtypes.h: Remove BUILTIN_TYPE_LONGEST and BUILTIN_TYPE_UNSIGNED_LONGEST. * language.h, c-lang.c, ch-lang.c, m2-lang.c, language.c: Remove longest_int and longest_unsigned_int. * value.h (struct value): Just align to LONGEST, rather than worrying about CC_HAS_LONG_LONG. * valarith.c (value_binop): Figure out type ourself based on sizeof (LONGEST) rather than relying on BUILTIN_TYPE_LONGEST. The point is that we don't depend on CC_HAS_LONG_LONG anymore. * valprint.c (val_print_type_code_int): Just call extract_unsigned_integer directly, rather than going through unpack_long. * printcmd.c (decode_format): Remove code which would sometimes change 'g' size to 'w' for integers. print_scalar_formatted handles printing huge integers well enough, thank you. * command.c (add_set_cmd, not_just_help_class_command): Change to make this the sfunc, not cfunc, since that is how we call it. * command.h: Comment difference between sfunc and cfunc. * demangle.c (set_demangling_command): Add third arg since that is how it is called. (_initialize_demangler): Use sfunc, not cfunc, for set_demangling_command, since that is how it is called. Remove show_demangling_command; it has no effect. * command.c (shell_escape): Report errors correctly (with error message from strerror). Wed Feb 2 14:35:41 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * xcoffread.c (read_xcoff_symtab): Change CSECT_LEN to use x_scnlen.l rather than x_scnlen to match corresponding change in coff/internal.h. Wed Feb 2 11:16:45 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbtypes.h, ch-typeprint.c, ch-valprint.c: Change comments regarding TYPE_CODE_BOOL. * language.c (boolean_type): Always return 1 for TYPE_CODE_BOOL, regardless of the language. (value_true): Just call value_logical_not regardless of language. * coffread.c (coff_read_enum_type), stabsread.c (read_enum_type): Remove #if 0'd code which makes some enums TYPE_CODE_BOOL. * language.h: Improve comment for la_builtin_type_vector. * m2-lang.c (_initialize_m2_language): Don't add any fields to builtin_type_m2_bool. Tue Feb 1 17:13:32 1994 Kevin Buettner (kev@cujo.geg.mot.com) * config/m88k/{tm-delta88.h,tm-delta88v4.h}, m88k-tdep.c: Define IN_SIGTRAMP and backtrace correctly through signal handlers. Tue Feb 1 22:13:25 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * procfs.c (wait_fd): Handle EINTR error return from PIOCWSTOP ioctl by restarting the ioctl. Tue Feb 1 16:16:25 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * target.h (target_wait): Add comment about calling return_to_top_level. Tue Feb 1 12:21:00 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coffread.c (read_one_sym): bfd_coff_swap_aux_in now takes additional arguments. * xcoffread.c (read_xcoff_symtab, read_symbol_lineno): Likewise. Mon Jan 31 16:10:41 1994 Stu Grossman (grossman at cygnus.com) * sparc-stub.c: Remove unnecessary #include of memory.h. Mon Jan 31 12:12:34 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * mips-tdep.c: Remove code which sets saved_regs from init_extra_frame_info and put it in new function mips_find_saved_regs. (READ_FRAME_REG): Remove macro and replace uses with the expansion. * mips-tdep.c, config/mips/tm-mips.h: When examining ->saved_regs, check if it is NULL and call mips_find_saved_regs if so. * remote-mips.c: Use unfiltered, not filtered, output most places. * blockframe.c (get_prev_frame_info): Detect and stop an infinite backtrace. Revise comments. Mon Jan 31 09:40:33 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mdebugread.c (parse_procedure): Remove _sigtramp kludges for alpha and irix. The _sigtramp case has to be handled properly in the tdep files if we have no ecoff debugging info. * alpha-tdep.c (alpha_frame_saved_pc, alpha_frame_chain), mips-tdep.c (mips_frame_saved_pc): Handle signal handler frames without PC_REGNUM kludge. * mdebugread.c (fixup_sigtramp), mips-tdep.c (read_next_frame_reg): Clean up handling of mips sigtramp frames, improve comments. Sat Jan 29 23:25:57 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * paread.c (read_unwind_info): Fix typo. * paread.c (pa_symtab_read): Update the "check_strange_names" filter to match GCC's current output. Filter out section symbols (which the HP linker sometimes puts in the wrong place). Sat Jan 29 07:44:59 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * serial.h (SERIAL_SET_TTY_STATE): Comment return value. * Makefile.in (TAGS): Just echo one line, rather than the whole thing. * Makefile.in: Remove all references to sparcly-nat.c. * Makefile.in (HFILES_NO_SRCDIR): Include dcache.h remote-utils.h remote-sim.h directly, rather than via $(remote_utils_h). This avoids duplicating serial.h and target.h. * Makefile.in: Don't set M_INSTALL and M_UNINSTALL. These variables are not used anywhere (a 5 Oct 1993 change removed the uses). * config/m68k/monitor.mt (TDEPFILE): Add remote-es.o. * config/m68k/es1800.mt: Add comment. * remote-es.c: Extensive changes to update to current conventions. * ser-unix.c (wait_for, hardwire_readchar) [HAVE_TERMIO, HAVE_TERMIOS]: If the timeout is too big to fit in c_cc[VTIME], then do multiple reads to achieve the desired timeout. * serial.h (serial_t): Add field timeout_remaining. Fri Jan 28 08:45:02 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * c-exp.y (yylex): Reenable nested type code. Fri Jan 28 15:40:33 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * a29k-tdep.c (examine_tag): Add comment regarding argcount. * remote-mips.c (mips_ops): Fix docstring. * remote-bug.c (bug_ops): Remove spurious newline from docstring. * config/m68k/tm-monitor.h: Changes to bring this into accordance with the old tm-m68k-em.h: (GDBINIT_FILENAME, DEFAULT_PROMPT): Remove. (HAVE_68881): Don't undefine; HAVE_68881 is obsolete. (REGISTER_NAMES): Don't muck with it; what tm-m68k.h has is fine. Add FIXME regarding GET_LONGJMP_TARGET. * remote-udi.c (udi_close, udi_detach, udi_kill): Add comments. * infptrace.c (kill_inferior): Add comments. * main.c (quit_command): Call target_close after we kill or detach. * remote-udi.c (udi_close): Don't error() if QUITTING. Fri Jan 28 11:55:52 1994 Rob Savoye (rob@darkstar.cygnus.com) * configure.in: Make m68k-coff and aout add monitor support in addition to the standard serial support. Fri Jan 28 08:45:02 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * mdebugread.c (psymtab_to_symtab_1): Don't complain on stLabel with index indexNil. Fri Jan 28 10:40:34 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * config/pa/tm-hppa.h: Define macro SMASH_TEXT_ADDRESS. * elfread.c (record_minimal_symbol_and_info), dwarfread.c (process_dies), paread.c (pa_symtab_read): Use it. Thu Jan 27 15:12:23 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * i386-stub.c: Add ".text" right before "mem_fault:". * main.c (baud_rate): Add FIXME comment about printing -1 value. * remote-utils.c (usage): Fix message to be accurate and conform more closely to normal conventions. * remote-utils.c (gr_files_info): Have the exec_bfd test control whether to show information about exec_bfd, and not control whether to show information about device and speed. * remote-utils.c (gr_open): If sr_get_device returns NULL, give usage message, don't dump core. * remote-bug.c (bug_write_memory): Use alloca, not GCC extension for variable size array. (bug_fetch_register, bug_store_register): Rename "value" to "fpreg_buf" because some compilers don't like variables whose names are the same as types. (bug_store_register): Use a cast when converting char * to unsigned char *. * symmisc.c (maintenance_print_symbols): Don't refer to the name of the command in error message (the text was referring to the old name of the command). * symmisc.c (dump_symtab): Fix args to fprintf_filtered. * c-typeprint.c (c_type_print_base): Have SHOW == 0 mean to print full details on structure elements without names. This partially reverts the changes of 1 Jul 1993 and 31 Aug 1993; I think this aspect of those changes was accidental. * stack.c (parse_frame_specification): If SETUP_ARBITRARY_FRAME is defined, make it an error to specify a single argument which is not a frame number. * Makefile.in (version.c), main.c (print_gdb_version): Use host_alias and target_alias, not host_canonical and target_canonical, to print configuration. Wed Jan 26 10:57:21 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * parse.c (write_exp_msymbol): Use new type msymbol_addr_type instead of builtin_type_long. It is necessary to get a type which is TARGET_PTR_BIT bits in size; builtin_type_long might not be big enough. Fix many sins which will come up in 32 bit x 64 bit GDB, and various miscellaneous things discovered in the process: * printcmd.c, defs.h (print_address_numeric): New function. * c-valprint.c (c_val_print), ch-valprint.c (chill_val_print) breakpoint.c (describe_other_breakpoints, breakpoint_1, mention), cp-valprint.c (cplus_print_value), infcmd.c (jump_command), printcmd.c, stack.c, symfile.c, symmisc.c, valprint.c: Use it. * utils.c, defs.h (gdb_print_address): New function. * expprint (dump_expression), gdbtypes.h: Use it. * breakpoint.c (describe_other_breakpoints), symmisc.c (dump_symtab, print_symbol): Use filtered not unfiltered I/O. (remove_breakpoints): Remove BREAKPOINT_DEBUG code. Might as well just run gdb under a debugger for this (and it had problems with printing addresses, how to print b->shadow, etc.). * buildsym.c (make_blockvector), core.c (memory_error), exec.c (print_section_info), maint.c (print_section_table), mdebugread.c (parse_procedure), solib.c, source.c, symfile.c, symmisc.c, symtab.c, valops.c, valprint.c, xcoffexec.c: Add comments saying code is broken. Marked with "FIXME-32x64". * dbxread.c (process_one_symbol), partial-stab.h (default), remote-vx.c (vx_run_files_info): Don't cast int being passed to local_hex_string. * symmisc.c (print_symbol): Don't cast long being passed to %lx. * symtab.h (general_symbol_info): Add comment about SYMBOL_VALUE only being a long. * symmisc.c (print_symbol): Print "offset" in message for LOC_ARG and LOC_LOCAL. * printcmd.c (print_address): Remove #if 0 code with ADDR_BITS_REMOVE. * source.c: Include regardless of USG. Tue Jan 25 12:58:26 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * valops.c (value_assign): Set `type' after coercing toval. * c-valprint.c (c_val_print), ch-valprint.c (chill_val_print): Use extract_unsigned_integer to get the address of a reference. Tue Jan 25 11:31:53 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (STABS_CONTINUE, error_type), partial-stab.h: AIX can use ? instead of \ for continuation. Deal with it. * paread.c (read_unwind_info): Just assign to objfile->obj_private, not OBJ_UNWIND_INFO. Assigning to a cast is a GCC-ism which the HP compiler in ANSI mode doesn't like. * main.c: When defaulting HAVE_SIGSETMASK based on USG, just do it based on USG, rather than defining HAVE_SIGSETMASK to an expression containing defined. Having a macro used in #if expand to an expression containing "defined" is undefined according to ANSI, and the HP compiler in ANSI mode doesn't do what we wanted it to. Mon Jan 24 20:51:29 1994 John Gilmore (gnu@cygnus.com) * sparc-nat.c (fetch_inferior_registers, store_inferior_registers): Clean up the changes of 11 Jan, as recommended by Peter Schauer. Fri Jan 21 19:10:44 1994 Per Bothner (bothner@kalessin.cygnus.com) * ch-exp.y (match_string_literal): Allow a zero-length string. * ch-lang.c (chill_printstr): Don't print zero-length string funny. Sat Jan 22 17:08:48 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * i386aix-nat.c (i386_float_info): Reverse order of registers before passing them to print_387_status. (print_387_status): Don't subtract top from 7 before using it. * i387-tdep.c: Remove comment about AIX wanting "top" subtracted from 7; the above explains it. Sat Jan 22 20:25:11 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mips-tdep.c (init_extra_frame_info): Use frame relative stack pointer value when fixing up the frame at the start of a function. Sat Jan 22 12:29:13 1994 Stu Grossman (grossman at cygnus.com) * lynx-nat.c (fetch_core_registers): Load the I & L regs for the Sparc from the stack. Sat Jan 22 08:30:42 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * remote-mips.c (mips_initialize): Clear mips_initializing via cleanup chain, not directly. * ser-unix.c (wait_for) [HAVE_TERMIO, HAVE_TERMIOS]: Make a timeout of -1 mean forever, like in the HAVE_SGTTY case. Warn if we are munging the timeout due to the limited range of c_cc[VTIME]. * fork-child.c, inferior.h (fork_inferior): New argument shell_file. * procfs.c (procfs_create_inferior), inftarg.c (child_create_inferior), m3-nat.c (m3_create_inferior): Pass it. * procfs.c: Remove ptrace function. It was declared in a way which conflicted with the prototype in unistd.h on Solaris. Sat Jan 22 01:37:40 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * sparc-tdep.c (frame_saved_pc): Get the pc from the saved pc in the sigcontext if it is a signal trampoline frame. * config/sparc/tm-sun4sol2.h (IN_SIGTRAMP, SIGCONTEXT_PC_OFFSET): Define for Solaris2. Sat Jan 22 00:34:47 1994 Stu Grossman (grossman at cygnus.com) * sparc-tdep.c, lynx-nat.c, config/sparc/tm-sparc.h, config/sparc/tm-sparclynx.h: Move defs of FRAME_SAVED_I0/L0 to tm-sparc.h so they can be overridden if necessary. Fri Jan 21 17:49:28 1994 Stu Grossman (grossman at cygnus.com) * lynx-nat.c: Add Sparc support. * sparcly-nat.c: Remove. It's useless. * config/sparc/nm-sparclynx.h: Rewrite. * config/sparc/sparclynx.mh (NATDEPFILES): Replace sparcly-nat.o with lynx-nat.o * config/sparc/tm-sparclynx.h: Rewrite. Fri Jan 21 19:08:48 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * rs6000-pinsn.c: Use the new disassembler in the opcodes directory. Old code was discarded, since the new opcode table has a different format. Fri Jan 21 14:28:30 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (realclean): Remove info files per make-stds.texi. Fri Jan 21 12:47:53 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * dbxread.c (end_psymtab): Only patch psymtab textlow and texthigh if N_SO_ADDRESS_MAYBE_MISSING is defined. * config/sparc/tm-sun4sol2.h: Define it. Thu Jan 20 15:04:24 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * printcmd.c (print_address_symbolic): Unconditionally use msymbol if we did not find a symbol. Fri Jan 21 08:20:18 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * infptrace.c (child_xfer_memory): Only use if CHILD_XFER_MEMORY is not defined. * hppab-nat.c (call_ptrace): Delete redundant function. (kill_inferior, attach, detach, child_resume): Likewise. (child_xfer_memory): Likewise. * hppah-nat.c (call_ptrace): Delete redundant function. (kill_inferior, attach, detach, child_resume): Likewise. * config/pa/hppabsd.mh (NATDEPFILES): Add infptrace.o. * config/pa/hppahpux.mh (NATDEPFILES): Add infptrace.o. * config/pa/nm-hppab.h (FETCH_INFERIOR_REGISTERS): Define. * config/pa/nm-hppah.h (FETCH_INFERIOR_REGISTERS): define. (CHILD_XFER_MEMORY): Define. (PT_*): Define so that generic infptrace.c code can be used. Fri Jan 21 09:23:33 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * xcoffread.c (xcoff_symfile_read): Make second parameter a struct section_offsets *, not a (nonexistent) struct section_offset *. * xcoffread.c (read_xcoff_symtab): Make main_aux just a union internal_xcoff_symtab, not an array of one of them. Change lots of "main_aux" to "&main_aux" and so on. * coffread.c, xcoffread.c: Include before "symfile.h". Thu Jan 20 17:30:55 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * coffread.c (coff_getfilename): Make it not static. * xcoffread.c (read_xcoff_symtab): complain() not abort(). * xcoffread.c (struct coff_symbol): Rename c_nsyms to c_naux (removes a completely gratuitous difference between xcoffread.c and coffread.c). Wed Jan 19 15:09:44 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * infrun.c (wait_for_inferior): Don't set frame for step_resume_breakpoint for IN_SIGTRAMP cases. * infrun.c (wait_for_inferior), breakpoint.h (struct bpstat_what), breakpoint.c (bpstat_what): Move step_resume from its own field of the struct bpstat_what into the main_action. Make it override other breakpoints. This is a conservative change in the sense that before the step resume breakpoint was a breakpoint.c breakpoint, hitting the step resume breakpoint overrode even calling bpstat_stop_status. Wed Jan 19 12:40:25 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * infrun.c (normal_stop): Set stop_pc after popping the dummy frame in case execution was stopped in the called function. * stack.c (print_frame_info, frame_info): If backtracing through a call dummy, handle the starting source line number on a line boundary like backtracing through sigtramp. * sparc-tdep.c (sparc_frame_find_saved_regs): Get frame address for call dummy frame right. Remove old test for dummy frame, it has been unused at least since gdb-3.5. * sparc-tdep.c (sparc_push_dummy_frame): Set return address register of the dummy frame. Tue Jan 18 16:16:35 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * infcmd.c (signal_command): Accept 0 as legitimate signal number. Tue Jan 18 14:09:25 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * infrun.c (signals_info), target.c (target_signal_from_name): Use ugly casts to avoid enumvar < enumvar or enumvar++. Mon Jan 17 22:00:15 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * ser-unix.c (hardwire_noflush_set_tty_state): Don't muck with ICANON. * inflow.c (terminal_ours_1): When discussing how to deal with the tty state, make note of query() as well as readline. * infrun.c (_initialize_infrun): Add TARGET_SIGNAL_POLL to list of signals for which stop and print are cleared by default. Mon Jan 17 20:00:51 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * config/pa/tm-hppa.h (unwind_table_entry): Use one of the reserved fields to hold a stub unwind entry type. Fix typo. (stub_unwind_entry): New structure for raw stub unwind entries. (stub_unwind_types): The types of stubs we may encounter. (UNWIND_ENTRY_SIZE, STUB_UNWIND_ENTRY_SIZE): New defines. * hppa-tdep.c (rp_saved): Use additional information provided by linker stub unwind descriptors. (frameless_function_invocation): Likewise. (frame_chain_valid): Likewise. * paread.c (compare_unwind_entries): New function for sorting unwind table entries. (read_unwind_info): Rewrite to remove dependency on host endianness. Read in data from the $UNWIND_END$ subspace which contains linker stub unwind descriptors. Merge that data into the basic unwind table. * hppab-nat.c (_initialize_kernel_u_addr): Delete unwanted functions. Mon Jan 17 22:00:15 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * xcoffread.c (read_xcoff_symtab, case C_FILE): Accept the name from either the symbol name or the auxent. * coffread.c, symfile.h (coff_getfilename): Renamed from getfilename, no longer static. Mon Jan 17 13:35:01 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (ALLPARAM): Change irix5.h to nm-irix5.h. Mon Jan 17 12:35:42 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * README: Update notes for alpha port. Mon Jan 17 11:15:57 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * i960-tdep.c (i960_fault_to_signal): Return TARGET_SIGNAL_ILL for operation fault, constraint fault, and type fault. Sun Jan 16 12:46:01 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (init.c): Add comment explaining formatting conventions. * c-exp.y (parse_number): Assign to temporary between the right shifts, to work around a bug in the SCO compiler. * Makefile.in (ALLCONFIG, ALLPARAM, ALLDEPFILES, HFILES_NO_SRCDIR): Add various files which were added to GDB recently. * xcoffread.c (process_xcoff_symbol): Only change 'V' to 'S' if not within_function. * Makefile.in: Add mostlyclean target. Sat Jan 15 10:20:13 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Version 4.11.4. Sat Jan 15 18:27:34 1994 Per Bothner (bothner@kalessin.cygnus.com) * main.c (show_commands): Make return type of extern history_get be HIST_ENTRY, rather than struct _hist_entry. (The latter loses with the upcoming merged readline.) Sat Jan 15 10:20:13 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * minsyms.c (prim_record_minimal_symbol_and_info): Make tempstring const char *, not char *. * symtab.h (struct symbol): Make section short, not unsigned short. * symtab.c (lookup_symbol): Add comment about QUIT here. * utils.c (fputs_unfiltered): Call fputs, not fputs_maybe_filtered. * c-exp.y (parse_number): Check for overflow regardless of range checking. Fix overflow check to use unsigned LONGEST, not unsigned int. * c-exp.y (parse_number): Make it so that integer constants are builtin_type_long_long if builtin_type_long isn't big enough or if an "LL" suffix is used. Properly handle "UL" or "LU" suffixes. * c-typeprint.c (c_type_print_varspec_suffix, case TYPE_CODE_FUNC): Print our "()" first, then recurse for the target type. Fri Jan 14 21:55:39 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-udi.c (udi_create_inferior): Quote empty execfile argument. * gdbserver/low-lynx.c: Include not "/usr/include/wait.h". Fri Jan 14 14:17:06 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * utils.c (request_quit): Re-establish signal handler regardless of USG. * config/mips/xm-irix4.h: Define HAVE_TERMIOS. Fri Jan 14 21:55:39 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * i960-tdep.c: Include target.h. Fri Jan 14 17:12:28 1994 Stan Shebs (shebs@andros.cygnus.com) * lynx-nat.c (sys/wait.h): Don't use absolute pathname. Fri Jan 14 11:06:10 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * lynx-nat.c (child_wait): Fix thinkos in struct target_waitstatus changes (status -> ourstatus; declare status, etc.). * config/nm-lynx.h: Fix child_wait prototype and include target.h. Fri Jan 14 14:17:06 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (ALLPARAM): Add config/nm-lynx.h. Fri Jan 14 11:49:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * remote-mips.c (mips_request, mips_wait): Correct prototypes. Fri Jan 14 11:37:17 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * config/i386/xm-linux.h: Define HAVE_TERMIOS. Fri Jan 14 01:04:36 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/alpha/tm-alpha.h (CALL_DUMMY): Improve comment. Thu Jan 13 10:32:38 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-vx.c (vx_wait): Only call i960_fault_to_signal if I80960 is defined. Otherwise just report TARGET_SIGNAL_UNKNOWN. * mips-tdep.c (mips_push_arguments): Byteswap struct_addr before writing it. Add search to target vector (#if 0'd until after 4.12): * target.h (to_search, target_search): Add. * gdbcore.h, core.c (generic_search): Add. * remote.c (remote_search): Add. * a29k-tdep.c (init_frame_info): Use target_search to find traceback tag. * printcmd.c (print_address_symbolic): If set print fast-symbolic-addr is on, call find_pc_function rather than relying just on the minimal symbols (probably only matters for symbol readers which don't put statics in the minimal symbols, but changing this strikes me as not conservative enough). Initialize name_location in all cases. If no symbol and no msymbol, don't print anything symbolic. * a29k-tdep.c (push_dummy_frame): Add comment about saving lr0. Wed Jan 12 20:53:16 1994 John Gilmore (gnu@cygnus.com) * printcmd.c (print_address_symbolic): Make it search the symtabs for variables as well as functions. Add `set print fast-symbolic-addr' and default it to fast (the old way). Print line numbers for data items as well as functions. * symtab.c (find_addr_symbol): Return the symtab and the symbol address, if a symbol is found (take two more args pointing to where to store these results). * symtab.h (find_addr_symbol): Add prototype. Wed Jan 12 19:32:11 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * objfiles.h: Fix comments to reflect the fact that the phrase "top of stack" always refers to where the pushing and popping takes place, regardless of whether it is at the highest or lowest address. Wed Jan 12 13:23:37 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mdebugread.c (parse_symbol): Do not set TYPE_TAG_NAME for compiler generated tag names. * mdebugread.c (parse_type): Handle cross references to qualified aggregate types. * valops.c (value_struct_elt): Improve error message if the address of a method is requested from an object instance. * valops.c (search_struct_method): Make name_matched non-static to get it initialized correctly. * config/i386/nm-i386sco.h (CANNOT_STORE_REGISTER): Define to exclude segment register which are not writable on newer SCO versions. Wed Jan 12 14:44:45 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * go32-xdep.c: Remove unused function uerror. (sigsetmask): Declare return type. Declare argument (to match the way it is called). Explicitly return 0. Wed Jan 12 01:44:25 1994 John Gilmore (gnu@cygnus.com) * symtab.h (struct symbol, general_symbol_info, minimal_symbol, partial_symbol): Shrink the storage sizes of symbols, by making enums into 1-byte bitfields when compiled __GNUC__, moving all the enums and small ints to the end of each struct to improve alignment, and switching the section number from int to unsigned short. Wed Jan 12 00:16:26 1994 John Gilmore (gnu@cygnus.com) * symtab.c (find_addr_symbol): New routine that will find the nearest symbol associated with an address. It does so by exhaustive search of the symtabs, so it's slow but complete. Tue Jan 11 23:57:30 1994 John Gilmore (gnu@cygnus.com) * coffread.c (read_coff_symtab): Set PC bounds of _globals_ symtab to [0,0] rather than [0, end of first source file]. This avoids problems with other parts of GDB looking for linetables in the _globals_ symtab. Eliminate variables num_object_files and first_object_file_end. Tue Jan 11 00:53:46 1994 John Gilmore (gnu@cygnus.com) * a29k-tdep.c (init_frame_info): Cast null arg to examine_tag. (pop_frame): Restore PC2 and LR0 from dummy frames. (push_dummy_frame): Save PC2 and LR0 into dummy frames. (setup_arbitrary_frame): Handle 3 args and set up real frames. * config/a29k/tm-a29k.h (FRAME_NUM_ARGS): Update comments. (DUMMY_FRAME_RSIZE): Add 2 longwords for PC2 and LR0. (SETUP_ARBITRARY_FRAME): Define. Tue Jan 11 06:59:10 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * infrun.c, config/mips/tm-irix5.h: Remove #if 0'd AT_FUNCTION_START. Tue Jan 11 14:27:03 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * remote-udi.c (udi_resume): Correct prototype. Tue Jan 11 11:10:30 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * config/pa/tm-hppa.h (FRAME_FIND_SAVED_REGS): Call hppa_frame_find_saved_regs. * hppa-tdep.c (dig_fp_from_stack): Delete function. (prologue_inst_adjust_sp): New function. (is_branch, inst_saves_gr, inst_saves_fr): New functions. (skip_prologue): Completely rewrite to use unwind information. (hppa_frame_find_saved_regs): Likewise. Tue Jan 11 06:59:10 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * remote-mips.c (mips_wait): Use new function mips_signal_from_protocol to convert a signal number with appropriate bounds checking. * remote-mips.c (mips_wait): Fix typos (0x177 -> 0177, 0x377 -> 0377). Tue Jan 11 00:53:46 1994 John Gilmore (gnu@cygnus.com) * stack.c (frame_info): If FRAME_FIND_SAVED_REGS isn't defined, print a newline to end the display anyway. * sparc-tdep.c (sparc_pop_frame): Pop the fsr and csr (float and coprocessor status regs) when popping a frame. This fixes float exceptions that occur after calling inferior functions. * sparc-nat.c (fetch_inferior_registers, store_inferior_registers): Read and write the fsr (float status register) to/from the child process along with the float regs. Remove Peter Schauer's change of May 24 '93, which has higher overhead and doesn't solve the real problem (which was that FSR wasn't being set). Mon Jan 10 23:16:42 1994 John Gilmore (gnu@cygnus.com) * a29k-tdep.c (examine_prologue): Don't worry if the ASGEQ stack overflow check isn't right after the register stack adjustment instruction. Metaware R2.3u compiler moves other things in front of it. This fix isn't perfect but is what's running. Mon Jan 10 20:08:23 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * c-valprint.c (c_val_print): Treat TYPE_CODE_RANGE like TYPE_CODE_INT. * config/alpha/alpha-netware.mt: Rename to alpha-nw.mt for 14 character filenames. * configure.in: Change accordingly. Mon Jan 10 15:48:36 1994 Tom Lord (lord@rtl.cygnus.com) * m68k-stub.c, sparc-stub.c: removed spurious introduction of _filtered io routines from these two files. Fri Jan 7 12:42:45 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/i386/tm-i386v.h, config/m68k/tm-m68k.h, config/mips/tm-mips.h, config/vax/tm-vax.h (CALL_DUMMY_BREAKPOINT_OFFSET): Define. * mdebugread.c (parse_symbol): Handle enum sh.type produced by DEC c89. * mdebugread.c (add_line): Handle zero linenos produced by DEC c89. Fri Jan 7 12:55:25 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * utils.c (print_sys_errmsg): Call gdb_flush (gdb_stdout) before printing to gdb_stderr. * remote-udi.c (udi_kill): Don't close the connection, just set inferior_pid to zero. (udi_mourn): Call remove_breakpoints. * remote-udi.c: Remove obsolete need_artificial_traps comment. * i386b-nat.c (sregmap): If sEAX, etc., not defined, use tEAX, etc. Thu Jan 6 07:17:53 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * symtab.c (lookup_symbol): Don't try adding .c to the name. * remote-bug.c: At the start of each section, reset srec_frame back to 160. * target.h: Add TARGET_WAITKIND_LOADED and TARGET_WAITKIND_SPURIOUS. * target.c (store_waitstatus): Add CHILD_SPECIAL_WAITSTATUS hook. * infrun.c (wait_for_inferior): Replace SIGTRAP_STOP_AFTER_LOAD with code which looks for those two waitkinds. Use switch statement. * config/rs6000/tm-rs6000.h: Replace SIGTRAP_STOP_AFTER_LOAD with CHILD_SPECIAL_WAITSTATUS. * procfs.c (procfs_wait): Fix argument name to match 4 Jan changes. * Move target_signal_from_host, target_signal_to_host, and store_waitstatus from inftarg.c to target.c. procfs needs them. * target.c: Include "wait.h" and . * target.h, infrun.c (proceed), proceed callers: Pass new code TARGET_SIGNAL_DEFAULT instead of -1. This avoids problems with enums being treated as unsigned and is cleaner. * infrun.c (signals_info): Don't print TARGET_SIGNAL_DEFAULT or TARGET_SIGNAL_0. * infcmd.c (signal_command), infrun.c (signals_info): Don't allow user to specify numeric equivalent of TARGET_SIGNAL_DEFAULT. Tue Jan 4 15:34:36 1994 Stu Grossman (grossman@cygnus.com) * config/alpha/alpha-netware.mt: New target support for Alpha running Netware. * configure.in: Add alpha-*-netware* target. Tue Jan 4 14:51:35 1994 Stan Shebs (shebs@andros.cygnus.com) * remote-mips.c (mips_wait): Fix ref to TARGET_WAITKIND_STOPPED. Tue Jan 4 09:47:14 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * target.h: Add enum target_waitkind, enum target_signal, and struct target_waitstatus. Change status argument to target_wait to be struct target_waitstatus * instead of int *. * target.h, infrun.c, all targets: Change type of signal arguments to resume(), proceed(), and target_resume() from int to enum target_signal. * All targets (*_wait, *_resume): Change accordingly. * infcmd.c (program_info, signal_command), throughout infrun.c, * fork-child.c, solib.c, hppa-tdep.c, osfsolib.c: Use this stuff. * convex-xdep.c, convex-tdep.c: Add FIXME's (getting the Convex signal code stuff right with the new signals would be non-trivial). * inferior.h (stop_signal): Make it enum target_signal not int. * target.c, target.h (target_signal_to_string, target_signal_to_name, target_signal_from_name): New functions. * inftarg.c, target.h (target_signal_to_host, target_signal_from_host, store_waitstatus): New functions. * procfs.c (procfs_notice_signals): Use them. * i960-tdep.c (i960_fault_to_signal): New function, to replace print_fault. * config/i960/tm-i960.h: Don't define PRINT_RANDOM_SIGNAL. * objfiles.c (build_objfile_section_table): Don't abort() if objfile->sections is already set. * objfiles.c (add_to_objfile_sections): Check SEC_ALLOC not SEC_LOAD to match recent change to exec.c. * Version 4.11.3. * main.c (print_gdb_version): Change year to 1994. * ChangeLog, ChangeLog-93: Split ChangeLog at 1994. * Makefile.in (NONSRC): Add ChangeLog-93. Mon Jan 3 11:57:29 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (read_type): Allow defining several type numbers at once (e.g. "(1,2)=(3,4)="...). * stabsread.c (read_enum_type): Use TARGET_INT_BIT not sizeof (int). * breakpoint.c (frame_in_dummy): Check PC as well as frame. Mon Jan 3 02:47:03 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mdebugread.c (psymtab_to_symtab_1): Only pass N_STAB symbols to process_one_symbol. * symtab.c (find_pc_psymbol): Search global_psymbols as well to avoid caching a bad endaddr in find_pc_partial_function. Sun Jan 2 21:41:17 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * config/m68k/tm-sun3.h: Don't define BELIEVE_PCC_PROMOTION. Sat Jan 1 04:35:23 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * infrun.c (wait_for_inferior): Do not step or step resume past the end of a one-line function we just stepped into. For older changes see ChangeLog-93 Local Variables: mode: indented-text left-margin: 8 fill-column: 74 version-control: never End: gdb-4.13/gdb/ChangeLog-3.x 666 34562 1752 550272 4774413415 13535 0ustar fnfcygnusTue Jan 23 15:49:47 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * dbxread.c (define_symbol): Deal with deftype 'X'. * convex-dep.c (wait): Make it pid_t. * convex-dep.c (comm_registers_info): accept decimal comm register specification, as "i comm 32768". * dbxread.c (process_one_symbol): Make VARIABLES_INSIDE_BLOCK macro say by itself where variables are. Pass it desc. m-convex.h (VARIABLES_INSIDE_BLOCK): Nonzero for native compiler. * m-convex.h (SET_STACK_LIMIT_HUGE): Define. (IGNORE_SYMBOL): Take out #ifdef N_MONPT and put in 0xc4. Fri Jan 19 20:04:15 1990 Jim Kingdon (kingdon at albert.ai.mit.edu) * printcmd.c (print_frame_args): Always set highest_offset to current_offset when former is -1. * dbxread.c (read_struct_type): Print nice error message when encountering multiple inheritance. Thu Jan 18 13:43:30 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * dbxread.c (read_dbx_symtab): Always treat N_FN as a potential source for a x.o or -lx symbol, ignoring OFILE_FN_FLAGGED. * printcmd.c (print_frame_args): Cast -1 to (CORE_ADDR). * hp300bsd-dep.c (_initialize_hp300_dep): Get kernel_u_addr. m-hp300bsd.h (KERNEL_U_ADDR): Use kernel_u_addr. * infcmd.c (run_command): #if 0 out call to breakpoint_clear_ignore_counts. Thu Jan 11 12:58:12 1990 Jim Kingdon (kingdon at mole) * printcmd.c (print_frame_args) [STRUCT_ARG_SYM_GARBAGE]: Try looking up name of var before giving up & printing '?'. Wed Jan 10 14:00:14 1990 Jim Kingdon (kingdon at pogo) * many files: Move stdio.h before param.h. * sun3-dep.c (store_inferior_registers): Only try to write FP regs #ifdef FP0_REGNUM. Mon Jan 8 17:56:15 1990 Jim Kingdon (kingdon at pogo) * symtab.c: #if 0 out "info methods" code. Sat Jan 6 12:33:04 1990 Jim Kingdon (kingdon at pogo) * dbxread.c (read_struct_type): Set TYPE_NFN_FIELDS_TOTAL from all baseclasses; remove vestigial variable baseclass. * findvar.c (read_var_value): Check REG_STRUCT_HAS_ADDR. printcmd.c (print_frame_args): Check STRUCT_ARG_SYM_GARBAGE. m-sparc.h: Define REG_STRUCT_HAS_ADDR and STRUCT_ARG_SYM_GARBAGE. * blockframe.c (get_frame_block): Subtract one from pc if not innermost frame. Fri Dec 29 15:26:33 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * printcmd.c (print_frame_args): check highest_offset != -1, not i. Thu Dec 28 16:21:02 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * valops.c (value_struct_elt): Clean up error msg. * breakpoint.c (describe_other_breakpoints): Delete extra space before "also set at" and add period at end. Tue Dec 19 10:28:42 1989 Jim Kingdon (kingdon at pogo) * source.c (print_source_lines): Tell user which line number was out of range when printing error message. Sun Dec 17 14:14:09 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * blockframe.c (find_pc_partial_function): Use BLOCK_START (SYMBOL_BLOCK_VALUE (f)) instead of SYMBOL_VALUE (f) to get start of function. * dbxread.c: Make xxmalloc just a #define for xmalloc. Thu Dec 14 16:13:16 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * m68k-opcode.h (fseq & following fp instructions): Change @ to $. Fri Dec 8 19:06:44 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * breakpoint.c (breakpoint_clear_ignore_counts): New function. infcmd.c (run_command): Call it. Wed Dec 6 15:03:38 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * valprint.c: Change it so "array-max 0" means there is no limit. * expread.y (yylex): Change error message "invalid token in expression" to "invalid character '%c' in expression". Mon Dec 4 16:12:54 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * blockframe.c (find_pc_partial_function): Always return 1 for success, 0 for failure, and set *NAME and *ADDRESS to match the return value. * dbxread.c (symbol_file_command): Use perror_with_name on error from stat. (psymtab_to_symtab, add_file_command), core.c (validate_files), source.c (find_source_lines), default-dep.c (exec_file_command): Check for errors from stat, fstat, and myread. Fri Dec 1 05:16:42 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * valops.c (check_field): When following pointers, just get their types; don't call value_ind. Thu Nov 30 14:45:29 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * config.gdb (pyr): New machine. core.c [REG_STACK_SEGMENT]: New code. dbxread.c (process_one_symbol): Cast return from copy_pending to long before casting to enum namespace. infrun.c: Split registers_info into DO_REGISTERS_INFO and registers_info. m-pyr.h, pyr-{dep.c,opcode.h,pinsn.c}: New files. * hp300bsd-dep.c: Stay in sync with default-dep.c. * m-hp300bsd.h (IN_SIGTRAMP): Define. Mon Nov 27 23:48:21 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * m-sparc.h (EXTRACT_RETURN_VALUE, STORE_RETURN_VALUE): Return floating point values in %f0. Tue Nov 21 00:34:46 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * dbxread.c (read_type): #if 0 out code which skips to comma following x-ref. Sat Nov 18 20:10:54 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * valprint.c (val_print): Undo changes of Nov 11 & 16. (print_string): Add parameter force_ellipses. (val_print): Pass force_ellipses true when we stop fetching string before we get to the end, else pass false. Thu Nov 16 11:59:50 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * infrun.c (restore_inferior_status): Don't try to restore selected frame if the inferior no longer exists. * valprint.c (val_print): Rewrite string printing code not to call print_string. * Makefile.dist (clean): Remove xgdb and xgdb.o. Tue Nov 14 12:41:47 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * Makefile.dist (XGDB, bindir, xbindir, install, all): New stuff. Sat Nov 11 15:29:38 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * valprint.c (val_print): chars_to_get: New variable. Thu Nov 9 12:31:47 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * main.c (main): Process "-help" as a switch that doesn't take an argument. Wed Nov 8 13:07:02 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * Makefile.dist (gdb.tar.Z): Add "else true". Tue Nov 7 12:25:14 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * infrun.c (restore_inferior_status): Don't dereference fid if NULL. * config.gdb (sun3, sun4): Accept "sun3" and "sun4". Mon Nov 6 09:49:23 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * Makefile.dist (Makefile): Move comments after commands. * *-dep.c [READ_COFF_SYMTAB]: Pass optional header size to read_section_hdr(). * inflow.c: Include regardless of USG. * coffread.c (read_section_hdr): Add optional_header_size. (symbol_file_command): Pass optional header size to read_section_hdr(). (read_coff_symtab): Initialize filestring. * version.c: Change version to 3.4.xxx. * GDB 3.4 released. Sun Nov 5 11:39:01 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * version.c: Change version to 3.4. * symtab.c (decode_line_1): Only skip past "struct" if it is there. * valops.c (value_ind), eval.c (evaluate_subexp, case UNOP_IND): Have "*" return an int, not a LONGEST. * utils.c (fprintf_filtered): Pass arg{4,5,6} to sprintf. * printcmd.c (x_command): Use variable itself rather than treating it as a pointer only if it is a function. (See comment "this makes x/i main work"). * coffread.c (symbol_file_command): Use error for "%s does not have a symbol-table.\n". Wed Nov 1 19:56:18 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * dbxread.c [BELIEVE_PCC_PROMOTION_TYPE]: New code. m-sparc.h: Define BELIEVE_PCC_PROMOTION_TYPE. Thu Oct 26 12:45:00 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * infrun.c: Include . * dbxread.c (read_dbx_symtab, case N_LSYM, case 'T'): Check for enum types and put constants in psymtab. Mon Oct 23 15:02:25 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * dbxread.c (define_symbol, read_dbx_symtab): Handle enum constants (e.g. "b:c=e6,0"). Thu Oct 19 14:57:26 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * stack.c (frame_info): Use FRAME_ARGS_ADDRESS_CORRECT m-vax.h (FRAME_ARGS_ADDRESS_CORRECT): New macro. (FRAME_ARGS_ADDRESS): Restore old meaning. * frame.h (Frame_unknown): New macro. stack.c (frame_info): Check for Frame_unknown return from FRAME_ARGS_ADDRESS. m-vax.h (FRAME_ARGS_ADDRESS): Sometimes return Frame_unknown. * utils.c (fatal_dump_core): Add "internal error" to message. * infrun.c (IN_SIGTRAMP): New macro. (wait_for_inferior): Use IN_SIGTRAMP. m-vax.h (IN_SIGTRAMP): New macro. Wed Oct 18 15:09:22 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * config.gdb, Makefile.dist: Shorten m-i386-sv32.h. * coffread.c (symbol_file_command): Pass 0 to select_source_symtab. Tue Oct 17 12:24:41 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * i386-dep.c (i386_frame_num_args): Take function from m-i386.h file. Check for pfi null. m-i386.h (FRAME_NUM_ARGS): Use i386_frame_num_args. * infrun.c (wait_for_inferior): set stop_func_name to 0 before calling find_pc_partial_function. Thu Oct 12 01:08:50 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * breakpoint.c (_initialize_breakpoint): Add "disa". * Makefile.dist: Add GLOBAL_CFLAGS and pass to readline. * config.gdb (various): "$machine =" -> "machine =". Wed Oct 11 11:54:31 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * inflow.c (try_writing_regs): #if 0 out this function. * main.c (main): Add "-help" option. * dbxread.c (read_dbx_symtab): Merge code for N_FUN with N_STSYM, etc. Mon Oct 9 14:21:55 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * inflow.c (try_writing_regs_command): Don't write past end of struct user. * dbxread.c (read_struct_type): #if 0 out code which checks for bitpos and bitsize 0. * config.gdb: Accept sequent-i386 (not seq386). (symmetry): Set depfile and paramfile. * m-convex.h (IGNORE_SYMBOL): Check for N_MONPT if defined. Thu Oct 5 10:14:26 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * default-dep.c (read_inferior_memory): Put #if 0'd out comment within /* */. Wed Oct 4 18:44:41 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * config.gdb: Change /dev/null to m-i386.h for various 386 machine "opcodefile" entries. * config.gdb: Accept seq386 for sequent symmetry. Mon Oct 2 09:59:50 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * hp300bsd-dep.c: Fix copyright notice. Sun Oct 1 16:25:30 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * Makefile.dist (DEPFILES): Add isi-dep.c. * default-dep.c (read_inferior_memory): Move #endif after else. Sat Sep 30 12:50:16 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * version.c: Change version number to 3.3.xxx. * GDB 3.3 released. * version.c: Change version number to 3.3. * Makefile.dist (READLINE): Add vi_mode.c * config.gdb (i386): Change /dev/null to m-i386.h * config.gdb: Add ';;' before 'esac'. * Makefile.dist (gdb.tar.Z): Move comment above dependency. * dbxread.c (read_ofile_symtab): Check symbol before start of source file for GCC_COMPILED_FLAG_SYMBOL. (start_symtab): Don't clear processing_gcc_compilation. Thu Sep 28 22:30:23 1989 Roland McGrath (roland at hobbes.ai.mit.edu) * valprint.c (print_string): If LENGTH is zero, print "". Wed Sep 27 10:15:10 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * config.gdb: "rm tmp.c" -> "rm -f tmp.c". Tue Sep 26 13:02:10 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * utils.c (_initialize_utils): Use termcap to set lines_per_page and chars_per_line. Mon Sep 25 10:06:43 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * dbxread.c (read_dbx_symtab, N_SOL): Do not add the same file more than once. Thu Sep 21 12:43:18 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * infcmd.c (unset_environment_command): Delete all variables if called with no arg. * remote.c, inferior.h (remote_{read,write}_inferior_memory): New functions. core.c ({read,write}_memory): Use remote_{read,write}_inferior_memory. * valops.c (call_function): When reserving stack space for arguments, call value_arg_coerce. * m-hp9k320.h: define BROKEN_LARGE_ALLOCA. * breakpoint.c (delete_command): Ask for confirmation only when there are breakpoints. * dbxread.c (read_struct_type): If lookup_basetype_type has copied a stub type, call add_undefined_type. * sparc_pinsn.c (compare_opcodes): Check for "1+i" anywhere in args. * val_print.c (type_print_base): Print stub types as "". Wed Sep 20 07:32:00 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * sparc-opcode.h (swapa): Remove i bit from match. (all alternate space instructions): Delete surplus "foo rs1+0" patterns. * Makefile.dist (LDFLAGS): Set to $(CFLAGS). * remote-multi.shar (remote_utils.c, putpkt): Change csum to unsigned. Tue Sep 19 14:15:16 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * sparc-opcode.h: Set i bit in lose for many instructions which aren't immediate. * stack.c (print_frame_info): add "func = 0". Mon Sep 18 16:19:48 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * sparc-opcode.h (mov): Add mov to/from %tbr, %psr, %wim. * sparc-opcode.h (rett): Fix notation to use suggested assembler syntax from architecture manual. * symmetry-dep.c (I386_REGNO_TO_SYMMETRY): New macro. (i386_frame_find_saved_regs): Use I386_REGNO_TO_SYMMETRY. Sat Sep 16 22:21:17 1989 Jim Kingdon (kingdon at spiff) * remote.c (remote_close): Set remote_desc to -1. * gdb.texinfo (Output): Fix description of echo to match reality and ANSI C. Fri Sep 15 14:28:59 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * symtab.c (lookup_symbol): Add comment about "asm". * sparc-pinsn.c: Use NUMOPCODES. * sparc-opcode.h (NUMOPCODES): Use sparc_opcodes[0] not *sparc_opcodes. Thu Sep 14 15:25:20 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * dbxread.c (xxmalloc): Print error message before calling abort(). * infrun.c (wait_for_inferior): Check for {stop,prev}_func_name null before passing to strcmp. Wed Sep 13 12:34:15 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * sparc-opcode.h: New field delayed. sparc-pinsn.c (is_delayed_branch): New function. (print_insn): Check for delayed branches. * stack.c (print_frame_info): Use misc_function_vector in case where ar truncates file names. Tue Sep 12 00:16:14 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * convex-dep.c (psw_info): Move "struct pswbit *p" with declarations. Mon Sep 11 14:59:57 1989 Jim Kingdon (kingdon at spiff) * convex-dep.c (core_file_command): Delete redundant printing of "Program %s". * m-convex.h (ENTRY_POINT): New macro. * m-convex.h (FRAME_CHAIN_VALID): Change outside_first_object_file to outside_startup_file * main.c: #if 0 out catch_termination and related code. * command.c (lookup_cmd_1): Consider underscores part of command names. Sun Sep 10 09:20:12 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * printcmd.c: Change asdump_command to disassemble_command (_initialize_printcmd): Change asdump to diassemble. * main.c (main): Exit with code 0 if we hit the end of a batch file. * Makefile.dist (libreadline.a): Fix syntax of "CC=${CC}". Sat Sep 9 01:07:18 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * values.c (history_info): Renamed to value_history_info. Command renamed to "info value" (with "info history" still accepted). * sparc-pinsn.c (print_insn): Extend symbolic address printing to cover "sethi" following by an insn which uses 1+i. Fri Sep 8 14:24:01 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * m-hp9k320.h, m-hp300bsd.h, m-altos.h, m-sparc.h, m-sun3.h (READ_GDB_SYMSEGS): Remove. dbxread.c [READ_GDB_SYMSEGS]: Remove code to read symsegs. * sparc-pinsn.c (print_insn): Detect "sethi-or" pairs and print symbolic address. * sparc-opcode.h (sethi, set): Change lose from 0xc0000000 to 0xc0c00000000. * remote.c (remote_desc): Initialize to -1. * Makefile.dist (libreadline.a): Pass CC='${CC}' to readline makefile. Thu Sep 7 00:07:17 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * dbxread.c (read_struct_type): Check for static member functions. values.c, eval.c, valarith.c, valprint.c, valops.c: Merge changes from Tiemann for static member functions. * sparc-opcode.h (tst): Fix all 3 patterns. * Makefile.dist (gdb1): New rule. * sparc-opcode.h: Change comment about what the disassembler does with the order of the opcodes. * sparc-pinsn.c (compare_opcodes): Put 1+i before i+1. Also fix mistaken comment about preserving order of original table. * sparc-opcode.h (clr, mov): Fix incorrect lose entries. * m-symmetry.h (FRAME_NUM_ARGS): Add check to deal with code that GCC sometimes generates. * config.gdb: Change all occurances of "skip" to "/dev/null". * README (about languages other than C): Update comments about Pascal and FORTRAN. * sparc-opcode.h (nop): Change lose from 0xae3fffff to 0xfe3fffff. * values.c (value_virtual_fn_field): #if 0-out assignment to VALUE_TYPE(vtbl). Wed Sep 6 12:19:22 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * utils.c (fatal_dump_core): New function. Makefile.dist (MALLOC_FLAGS): use -Dbotch=fatal_dump_core Tue Sep 5 15:47:18 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * breakpoint.c (enable_command): With no arg, enable all bkpts. * Makefile.dist (Makefile): Remove \"'s around $(MD). * Makefile.dist: In "cd readline; make . . ." change first SYSV_DEFINE to SYSV. * m68k-pinsn.c (_initialize_pinsn): Use alternate assembler syntax #ifdef HPUX_ASM Sat Sep 2 23:24:43 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * values.c (history_info): Don't check num_exp[0] if num_exp is nil (just like recent editing_info change). Fri Sep 1 19:19:01 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * gdb.texinfo (inc-history, inc-readline): Copy in the inc-* files because people might not have makeinfo. * README (xgdb): Strengthen nasty comments. * gdb.texinfo: Change @setfilename to "gdb.info". Thu Aug 31 17:23:50 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * main.c (editing_info): Don't check arg[0] if arg is null. * m-vax.h: Add comment about known sigtramp bug. * sun3-dep.c, sparc-dep.c (IS_OBJECT_FILE, exec_file_command): Get right text & data addresses for .o files. Wed Aug 30 13:54:19 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * utils.c (tilde_expand): Remove function (it's in readline). * sparc-opcode.h (call): Change "8" to "9" in first two patterns (%g7->%o7). Tue Aug 29 16:44:41 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * printcmd.c (whatis_command): Change 4th arg to type_print from 1 to -1. Mon Aug 28 12:22:41 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * dbxread.c (psymtab_to_symtab_1): In "and %s ..." change pst->filename to pst->dependencies[i]->filename. * blockframe.c (FRAMELESS_LOOK_FOR_PROLOGUE): New macro made from FRAMELESS_FUNCTION_INVOCATION from m-sun3.h except that it checks for zero return from get_pc_function_start. m-hp9k320.h, m-hp300bsd.h, m-i386.h, m-isi.h, m-altos.h, m-news.h, m-sparc.h, m-sun2.h, m-sun3.h, m-symmetry.h (FRAMELESS_FUNCTION_INVOCATION): Use FRAMELESS_LOOK_FOR_PROLOGUE. * dbxread.c (read_struct_type): Give warning and ignore field if bitpos and bitsize are zero. Sun Aug 27 04:55:20 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * dbxread.c (psymtab_to_symtab{,_1}): Print message about reading in symbols before reading stringtab, not after. Sat Aug 26 02:01:53 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * dbxread.c (IS_OBJECT_FILE, ADDR_OF_TEXT_SEGMENT): New macros. (read_dbx_symtab): Use text_addr & text_size to set end_of_text_addr. (symbol_file_command): pass text_addr & text_size to read_dbx_symtab. Fri Aug 25 23:08:13 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * valprint.c (value_print): Try to give the name of function pointed to when printing a function pointer. Thu Aug 24 23:18:40 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * core.c (xfer_core_file): In cases where MEMADDR is above the largest address that makes sense, set i to len. Thu Aug 24 16:04:17 1989 Roland McGrath (roland at hobbes.ai.mit.edu) * valprint.c (print_string): New function to print a character string, doing array-max limiting and repeat count processing. (val_print, value_print): Use print_string. (REPEAT_COUNT_THRESHOLD): New #define, the max number of elts to print without using a repeat count. Set to ten. (value_print, val_print): Use REPEAT_COUNT_THRESHOLD. * utils.c (printchar): Use {fputs,fprintf}_filtered. * valprint.c (val_print): Pass the repeat count arg to the fprintf_filtered call for "" messages. Wed Aug 23 22:53:47 1989 Roland McGrath (roland at hobbes.ai.mit.edu) * utils.c: Include . * main.c: Declare free. Wed Aug 23 05:05:59 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * utils.c, defs.h: Add tilde_expand. source.c (directory_command), main.c (cd_command), main.c (set_history_filename), dbxread.c (symbol_file_command), coffread.c (symbol_file_command), dbxread.c (add_file_command), symmisc.c (print_symtabs), *-dep.c (exec_file_command, core_file_command), main.c (source_command): Use tilde_expand. * dbxread.c (read_type): When we get a cross-reference, resolve it immediately if possible, only calling add_undefined_type if necessary. * gdb.texinfo: Uncomment @includes and put comment at start of file telling people to use makeinfo. * valprint.c (type_print_base): Print the right thing for bitfields. * config.gdb (sun3os3): Set paramfile and depfile. Tue Aug 22 05:38:36 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * dbxread.c (symbol_file_command): Pass string table size to read_dbx_symtab(). (read_dbx_symtab): Before indexing into string table, check string table index for reasonableness. (psymtab_to_symtab{,_1}, read_ofile_symtab): Same. Tue Aug 22 04:04:39 1989 Roland McGrath (roland at hobbes.ai.mit.edu) * m68k-pinsn.c: Replaced many calls to fprintf and fputs with calls to fprintf_filtered and fputs_filtered. (print_insn_arg): Use normal MIT 68k syntax for postincrement, predecrement, and register indirect addressing modes. Mon Aug 21 10:08:02 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * main.c (initialize_signals): Set signal handler for SIGQUIT and SIGHUP to do_nothing. * ns32k-opcode.h (ord): Change 1D1D to 1D2D. * ns32k-pinsn.c (print_insn_arg, print_insn): Handle index bytes correctly. * ns32k-opcode.h: Add comments. * dbxread.c (read_type): Put enum fields in type.fields in order that they were found in the debugging symbols (not reverse order). Sun Aug 20 21:17:13 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * main.c (source_command): Read .gdbinit if run without argument. * source.c (directory_command): Only print "foo already in path" if from_tty. * version.c: Change version number to 3.2.xxx Sat Aug 19 00:24:08 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * m-news.h: Define HAVE_WAIT_STRUCT. * m-isi.h, isi-dep.c: Replace with new version from Adam de Boor. config.gdb: Remove isibsd43. * main.c (catch_termination): Don't say we have written .gdb_history until after we really have. * convex-dep.c (attach): Add "sleep (1)". (write_vector_register): Use "LL" with long long constant. (wait): Close comment. (wait): Change "unix 7.1 bug" to "unix 7.1 feature" & related changes in comment. (scan_stack): And fp with 0x80000000 in while loop test. (core_file_command): Move code to set COREFILE. (many places): Change printf to printf_filtered. (psw_info): Allow argument giving value to print as a psw. (_initialize_convex_dep): Update docstrings. * m-convex.h (WORDS_BIG_ENDIAN): Correct typo ("WRODS") define NO_SIGINTERRUPT. define SET_STACK_LIMIT_HUGE. add "undef BUILTIN_TYPE_LONGEST" before defining it. Use "LL" after constants in CALL_DUMMY. * dbxread.c: In the 3 places it says error "ridiculous string table size"... delete extra parameter to error. * dbxread.c (scan_file_globals): Check for FORTRAN common block. Allow multiple references for the sake of common blocks. * main.c (initialize_main): Set history_filename to include current directory. * valprint.c (decode_format): Don't return a defaulted size field if osize is zero. * gdb.texinfo (Compilation): Update information on -gg symbols. Document problem with ar. Fri Aug 18 19:45:20 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * valprint.c (val_print, value_print): Add "" code. Also put "..." outside quotes for strings. * main.c (initialize_main): Add comment about history output file being different from history input file. * m-newsos3.h: Undefine NO_SIGINTERRUPT. Rearrange a few comments. * m-newsos3.h (REGISTER_U_ADDR): Use new version from Hikichi. * sparc-opcode.h: Add comment clarifying meaning of the order of the entries in sparc_opcodes. * eval.c (evaluate_subexp, case UNOP_IND): Deal with deferencing things that are not pointers. * valops.c (value_ind): Make dereferencing an int give a LONGEST. * expprint.c (print_subexp): Add (int) cast in OP_LAST case. * dbxread.c (read_array_type): Set lower and upper if adjustable. * symtab.c (lookup_symbol): Don't abort if symbol found in psymtab but not in symtab. Thu Aug 17 15:51:20 1989 Randy Smith (randy at hobbes.ai.mit.edu) * config.gdb: Changed "Makefile.c" to "Makefile.dist". Thu Aug 17 01:58:04 1989 Roland McGrath (roland at apple-gunkies.ai.mit.edu) * sparc-opcode.h (or): Removed incorrect lose bit 0x08000000. [many]: Changed many `lose' entries to have the 0x10 bit set, so they don't think %l0 is %g0. Wed Aug 16 00:30:44 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * m-symmetry.h (STORE_STRUCT_RETURN): Also write reg 0. (EXTRACT_RETURN_VALUE): Call symmetry_extract_return_value. symmetry-dep.c (symmetry_extract_return_value): New fn. * main.c (symbol_completion_function): Deal with changed result_list from lookup_cmd_1 for ambiguous return. command.c (lookup_cmd): Same. * inflow.c [TIOCGETC]: Move #include "param.h" back before system #includes. Change all #ifdef TIOCGETC to #if defined(TIOCGETC) && !defined(TIOCGETC_BROKEN) m-i386-sysv3.2.h, m-i386gas-sysv3.2.h: Remove "#undef TIOCGETC" and add "#define TIOCGETC_BROKEN". * command.c (lookup_cmd_1): Give the correct result_list in the case of an ambiguous return where there is a partial match (e.g. "info a"). Add comment clarifying what is the correct result_list. * gdb.texinfo (GDB History): Document the two changes below. * main.c (command_line_input): Make history expansion not just occur at the beginning of a line. * main.c (initialize_main): Make history expansion off by default. * inflow.c: Move #include "param.h" after system #includes. * i386-dep.c (i386_float_info): Use U_FPSTATE macro. * m-i386-sysv3.2.h, m-i386gas-sysv3.2.h: New files. Makefile.dist, config.gdb: Know about these new files. Tue Aug 15 21:36:11 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * symtab.c (lookup_struct_elt_type): Use type_print rather than assuming type has a name. Tue Aug 15 02:25:43 1989 Roland McGrath (roland at apple-gunkies.ai.mit.edu) * sparc-opcode.h (mov): Removed bogus "or i,0,d" pattern. * sparc-opcode.h (mov, or): Fixed incorrect `lose' members. * sparc-dep.c: Don't include "sparc-opcode.h". (skip_prologue, isanulled): Declare special types to recognize instructions, and use them. * sparc-pinsn.c (print_insn): Sign-extend 13-bit immediate args. If they are less than +9, print them in signed decimal instead of unsigned hex. * sparc-opcode.h, sparc-pinsn.c: Completely rewritten to share an opcode table with gas, and thus produce disassembly that looks like what the assembler accepts. Tue Aug 15 16:20:52 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * symtab.c (find_pc_psymbol): Move best_pc=psymtab->textlow-1 after test for psymtab null. * main.c (editing_info): Remove variable retval. * config.gdb (sun3, isi): Comment out obsolete message about telling it whether you have an FPU (now that it detects it). * config.gdb (sun3): Accept sun3os3. * m68k-insn.h: Include . * m68k-pinsn.h (convert_{to,from}_68881): Add have_fpu code * m-newsos3.h: Undefine USE_PCB. That code didn't seem to work. * sparc-dep.c: Put in insn_fmt and other stuff from the old sparc-opcode.h. * sparc-opcode.h, sparc-pinsn.c: Correct copyright notice. * sparc-opcode.h, sparc-pinsn.c: Replace the old ones with the new ones by roland. Tue Aug 15 02:25:43 1989 Roland McGrath (roland at apple-gunkies.ai.mit.edu) * Makefile.dist: Don't define CC at all. * Makefile.dist (Makefile): Remove tmp.c after preprocessing. Use $(MD) instead of M_MAKEDEFINE in the cc command. * Makefile.dist: Don't define RL_LIB as "${READLINE}/libreadline.a", since READLINE is a list of files. Mon Aug 14 23:49:29 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * main.c (print_version): Change 1988 to 1989. * main.c (copying_info, initialize_main): Remove #if 0'd code. Tue Aug 1 14:44:56 1989 Hikichi (hikichi at sran203) * m-newsos3.h (NO_SIGINTERRUPT): have SIGINTERRUPT on NEWS os 3. * m-news.h(FRAME_FIND_SAVED_REGS): use the sun3's instead of old one. Mon Aug 14 15:27:01 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * m-news.h, m-newsos3.h, news-dep.c: Merge additional changes by Hikichi (ChangeLog entries above). * Makefile.dist (READLINE): List readline files individually so we don't accidently get random files from the readline directory. * m-news.h (STORE_RETURN_VALUE, EXTRACT_RETURN_VALUE): Expect floating point returns to be in fp0. * gdb.texinfo (Format options): New node. * gdb.texinfo: Comment out "@include"s until bfox fixes the readline & history docs. * dbxread.c (read_addl_syms): Set startup_file_* if necessary at the end (as well as when we hit ".o"). * printcmd.c (decode_format): Set val.format & val.size to '?' at start and set defaults at end. * symtab.c (decode_line_1): Check for class_name null. * valops.c: Each place where it compares against field names, check for null field names. (new t_field_name variables). * utils.c (fputs_filtered): Check for linebuffer null before checking whether to call fputs. Remove later check for linebuffer null. Sun Aug 13 15:56:50 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * m-isi.h, m-sun3.h ({PUSH,POP}_FP_REGS): New macros. m-sun3.h (NUM_REGS): Conditionalize on FPU. config.gdb (sun3, isi): Add message about support for machines without FPU. * main.c (catch_termination, initialize_signals): new functions. * main.c (editing_info): Add "info editing n" and "info editing +". Rewrite much of this function. gdb.texinfo (GDB Readline): Document it. * values.c (history_info): Add "info history +". Also add code to do "info history +" when command is repeated. gdb.texinfo (Value History): Document "info history +". * expprint.c (print_subexp): Add OP_THIS to case stmt. * config.gdb (sun4os4): Put quotes around make define. * config.gdb: Canonicalize machine name at beginning. Sat Aug 12 00:50:59 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * config.gdb: define M_MAKEDEFINE Makefile (Makefile, MD): Be able to re-make Makefile. * main.c (command_line_input): Add comments to the command history. * Makefile.dist (Makefile): Add /bin/false. Fri Aug 11 14:35:33 1989 Jim Kingdon (kingdon at spiff) * Makefile.dist: Comment out .c.o rule and add TARGET_ARCH. * m-altos.h: Include sys/page.h & sys/net.h * m-altos.h (FRAME_CHAIN{,_VALID}): Use outside_startup_file. * config.gdb (altos, altosgas): Add M_SYSV & M_BSD_NM and remove M_ALLOCA=alloca.o from makedefine. * coffread.c (complete_symtab): Change a_entry to entry. * m-altosgas.h: New file. * m-symmetry (REGISTER_BYTE): Fix dumb mistake. Fri Aug 11 06:39:49 1989 Roland McGrath (roland at hobbes.ai.mit.edu) * utils.c (set_screensize_command): Check for ARG being nil, since that's what execute_command will pass if there's no argument. * expread.y (yylex): Recognize "0x" or "0X" as the beginning of a number. Thu Aug 10 15:43:12 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * config.gdb, Makefile.dist: Rename Makefile.c to Makefile.dist. * m-altos.h: Add comment about porting to USGR2. * config.gdb (sparc): Add -Usparc. Wed Aug 9 14:20:39 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * m-sun3os4.h: Define BROKEN_LARGE_ALLOCA. * values.c (modify_field): Check for value too large to fit in bitfield. * utils.c (fputs_filtered): Allow LINEBUFFER to be NULL. * breakpoint.c (condition_command): Check for attempt to specify non-numeric breakpoint number. * config.gdb, Makefile, m-altos.h, altos-dep.c: Merge Altos port. * README: Change message about editing Makefile. * config.gdb: Edit Makefile. Copied Makefile to Makefile.c and changed to let config.gdb run us through the C preprocessor. * expread.y (yylex): Test correctly for definition of number. Wed Aug 9 11:56:05 1989 Randy Smith (randy at hobbes.ai.mit.edu) * dbxread.c (read_dbx_symtab): Put bracketing of entry point in test case for .o symbols so that it will be correct even without debugging symbols. (end_psymtab): Took bracketing out. * blockframe.c (outside_startup_file): Reverse the sense of the return value to make the functionality implied by the name correct. Tue Aug 8 11:48:38 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * coffread.c (symbol_file_command): Do not assume presence of a.out header. * blockframe.c: Replace first_object_file_end with startup_file_{start,end} (outside_startup_file): New function. dbxread.c (read_addl_syms, read_dbx_symtab, end_psymbol): set startup_file_*. Delete first_object_file_end code. Add entry_point and ENTRY_POINT coffread.c (complete_symtab): Set startup_file_*. (first_object_file_end): Add as static. m-*.h (FRAME_CHAIN, FRAME_CHAIN_VALID): Call outside_startup_file instead of comparing with first_object_file_end. * breakpoint.c (breakpoint_1): Change -1 to (CORE_ADDR)-1. * config.gdb (i386, i386gas): Add missing quotes at end of "echo" * source.c (directory_command): Add dont_repeat (); Mon Aug 7 18:03:51 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * dbxread.c (read_addl_syms): Change strcmp to strncmp and put 3rd arg back. * command.h (struct cmd_list_element): Add comment clarifying purpose of abbrev_flag. Mon Aug 7 12:51:03 1989 Randy Smith (randy at hobbes.ai.mit.edu) * printcmd.c (_initialize_printcmd): Changed "undisplay" not to have abbrev flag set; it isn't an abbreviation of "delete display", it's an alias. Mon Aug 7 00:25:15 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * symtab.c (lookup_symtab_1): Remove filematch (never used). * expread.y [type]: Add second argument to 2 calls to lookup_member_type which were missing them. * dbxread.c (symbol_file_command): Add from_tty arg. Check it before calling query. * infcmd.c (tty_command): Add from_tty arg. * eval.c (evaluate_subexp): Remove 3rd argument from calls to value_x_unop. * dbxread.c (read_addl_syms): Remove 3rd argument from call to strcmp. * gdb.texinfo (Command editing): @include inc-readline.texinfo and inc-history.texinfo and reorganize GDB-specific stuff. * Makefile: Add line MAKE=make. * README (second paragraph): Fix trivial errors. * dbxread.c (read_struct_type): Make sure p is initialized. * main.c (symbol_completion_function): Complete correctly on the empty string. Sun Aug 6 21:01:59 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * symmetry-dep.c: Remove "long" from definition of i386_follow_jump. * gdb.texinfo (Backtrace): Document "where" and "info stack". * dbxread.c (cleanup_undefined_types): Strip off "struct " or "union " from type names before doing comparison Sat Aug 5 02:05:36 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * config.gdb (i386, i386gas): Improve makefile editing instructions. * Makefile: Fix typo in CLIBS for SYSV. * dbxread.c (read_dbx_symtab): Deal with N_GSYM typedefs. * dbxread.c (add_file_command): Do not free name. We didn't allocate it; it just points into arg_string. * Makefile, m-*.h: Change LACK_VPRINTF to HAVE_VPRINTF. Fri Jul 28 00:07:48 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * valprint.c (val_print): Made sure that all returns returned a value (usually 0, indicating no memory printed). * core.c (read_memory): Changed "return" to "return 0". * expread.y (parse_number): Handle scientific notation when the string does not contain a '.'. Thu Jul 27 15:14:03 1989 Randy Smith (randy at hobbes.ai.mit.edu) * infrun.c (signals_info): Error if signal number passed is out of bounds. * defs.h: Define alloca to be __builtin_alloca if compiling with gcc and localized inclusion of alloca.h on the sparc with the other alloca stuff. * command.c: Doesn't need to include alloca.h on the sparc; defs.h does it for you. * printcmd.c (print_frame_args): Changed test for call to print_frame_nameless_args to check i to tell if any args had been printed. Thu Jul 27 04:40:56 1989 Roland McGrath (roland at hobbes.ai.mit.edu) * blockframe.c (find_pc_partial_function): Always check that NAME and/or ADDRESS are not nil before storing into them. Wed Jul 26 23:41:21 1989 Roland McGrath (roland at hobbes.ai.mit.edu) * m-newsos3.h: Define BROKEN_LARGE_ALLOCA. * dbxread.c (symbol_file_command, psymtab_to_symtab): Use xmalloc #ifdef BROKEN_LARGE_ALLOCA. Tue Jul 25 16:28:18 1989 Jay Fenlason (hack at apple-gunkies.ai.mit.edu) * m68k-opcode.h: moved some of the fmovem entries so they're all consecutive. This way the assembler doesn't bomb. Mon Jul 24 22:45:54 1989 Randy Smith (randy at hobbes.ai.mit.edu) * symtab.c (lookup_symbol): Changed error to an informational (if not very comforting) message about internal problems. This will get a null symbol returned to decode_line_1, which should force things to be looked up in the misc function vector. Wed Jul 19 13:47:34 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * symtab.c (lookup_symbol): Changed "fatal" to "error" in external symbol not found in symtab in which it was supposed to be found. This can be reached because of a bug in ar. Tue Jul 18 22:57:43 1989 Randy Smith (roland at hobbes.ai.mit.edu) * m-news.h [REGISTER_U_ADDR]: Decreased the assumed offset of fp0 by 4 to bring it into (apparently) appropriate alignment with reality. Tue Jul 18 18:14:42 1989 Randy Smith (randy at hobbes.ai.mit.edu) * Makefile: pinsn.o should depend on opcode.h * m68k-opcode.h: Moved fmovemx with register lists to before other fmovemx. Tue Jul 18 11:21:42 1989 Jim Kingdon (kingdon at susie) * Makefile, m*.h: Only #define vprintf (to _doprnt or printf, depends on the system) if the library lacks it (controlled by LACK_VPRINTF_DEFINE in makefile). Unpleasant, but necessary to make this work with the GNU C library. Mon Jul 17 15:17:48 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * breakpoint.c (breakpoint_1): Change addr-b->address to b->address-addr. Sun Jul 16 16:23:39 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * eval.c (evaluate_subexp): Change error message printed when right operand of '@' is not an integer to English. * infcmd.c (registers_info): Fix call to print_spaces_filtered to specify right # of arguments. * gdb.texinfo (Command Editing): Document info editing command. * coffread.c (read_file_hdr): Add MC68MAGIC. * source.c (select_source_symtab): Change MAX to max. Fri Jul 14 21:19:11 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * infcmd.c (registers_info): Clean up display to look good with long register names, to say "register" instead of "reg", and to put the "relative to selected stack frame" bit at the top. Fri Jul 14 18:23:09 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (record_misc_function): Put parens around | to force correct evaluation. Wed Jul 12 12:25:53 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * m-newsos3, m-news, infrun.c, Makefile, config.gdb, news-dep.c: Merge in Hikichi's changes for Sony/News-OS 3 support. Tue Jul 11 21:41:32 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * utils.c (fputs_filtered): Don't do any filtering if output is not to stdout, or if stdout is not a tty. (fprintf_filtered): Rely on fputs_filtered's check for whether to do filtering. Tue Jul 11 00:33:58 1989 Randy Smith (randy at hobbes.ai.mit.edu) * GDB 3.2 Released. * valprint.h: Deleted. * utils.c (fputs_filtered): Don't do any filtering if filtering is disabled (lines_per_page == 0). Mon Jul 10 22:27:53 1989 Randy Smith (roland at hobbes.ai.mit.edu) * expread.y [typebase]: Added "unsigned long int" and "unsigned short int" to specs. Mon Jul 10 21:44:55 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * main.c (main): Make -cd use cd_command to avoid current_directory with non-absolute pathname. Mon Jul 10 00:34:29 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (symbol_file_command): Catch errors from stat (even though they should never happen). * source.c (openp): If the path is null, use the current directory. * dbxread.c (read_dbx_symtab): Put N_SETV symbols into the misc function vector ... (record_misc_function): ... as data symbols. * utils.c (fprintf_filtered): Return after printing if we aren't going to do filtering. * Makefile: Added several things for make clean to take care of. * expread.y: Lowered "@" in precedence below +,-,*,/,%. * eval.c (evaluate_subexp): Return an error if the rhs of "@" isn't integral. * Makefile: Added removal of core and gdb[0-9] files to clean target. * Makefile: Made a new target "distclean", which cleans things up correctly for making a distribution. Sun Jul 9 23:21:27 1989 Randy Smith (randy at hobbes.ai.mit.edu) * dbxread.c: Surrounded define of gnu symbols with an #ifndef NO_GNU_STABS in case you don't want them on some machines. * m-npl.h, m-pn.h: Defined NO_GNU_STABS. Sun Jul 9 19:25:22 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * utils.c (fputs_filtered): New function. (fprintf_filtered): Use fputs_filtered. utils.c (print_spaces_filtered), command.c (help_cmd,help_cmd_list), printcmd.c (print_frame_args), stack.c (print_block_frame_locals, print_frame_arg_vars), valprint.c (many functions): Use fputs_filtered instead of fprintf_filtered to avoid arbitrary limit. * utils.c (fprintf_filtered): Fix incorrect comment. Sat Jul 8 18:12:01 1989 Randy Smith (randy at hobbes.ai.mit.edu) * valprint.c (val_print): Changed assignment of pretty to use prettyprint as a conditional rather than rely on values of the enum. * Projects: Cleaned up a little for release. * main.c (initialize_main): Initialize rl_completion_entry_function instead of completion_entry_function. * Makefile: Modified to use the new readline library setup. * breakpoint.c (break_command_1, delete_breakpoint, enable_breakpoint, disable_breakpoint): Put in new printouts for xgdb usage triggered off of xgdb_verbose. * main.c (main): Added check for flag to set xgdb_verbose. * stack.c (frame_command): Set frame_changed when frame command used. Fri Jul 7 16:20:58 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * Remove valprint.h and move contents to value.h (more logical). Fri Jul 7 02:28:06 1989 Randall Smith (randy at rice-chex) * m68k-pinsn.c (print_insn): Included a check for register list; if there is one, make sure to start p after it. * breakpoint.c (break_command_1, delete_breakpoint, enable_breakpoint, disable_breakpoint): #ifdef'd out changes below; they produce unwanted output in gdb mode in gnu-emacs. * gdb.texinfo: Spelled. Also removed index references from command editing section; the relevance/volume ratio was too low. Removed all references to the function index. * ns32k-opcode.h, ns32k-pinsn.c: Backed out changes of June 24th; haven't yet received legal papers. * .gdbinit: Included message telling the user what it is doing. * symmetry-dep.c: Added static decls for i386_get_frame_setup, i386_follow_jump. * values.c (unpack_double): Added a return (double)0 at the end to silence a compiler warning. * printcmd.c (containing_function_bounds, asdump_command): Created to dump the assembly code of a function (support for xgdb and a useful hack). (_initialize_printcmd): Added this to command list. * gdb.texinfo [Memory]: Added documentation for the asdump command. * breakpoint.c (break_command_1, delete_breakpoint, enable_breakpoint, disable_breakpoint): Added extra verbosity for xgdb conditionalized on the new external frame_full_file_name. * source.c (identify_source_line): Increase verbosity of fullname prointout to include pc value. * stack.c: Added a new variable; "frame_changed" to indicate when a frame has been changed so that gdb can print out a frame change message when the frame only changes implicitly. (print_frame_info): Check the new variable in determining when to print out a new message and set it to zero when done. (up_command): Increment it. (down_command): Decrement it. * m68k-pinsn.c (print_insn_arg [lL]): Modified cases for register lists to reset the point to point to after the word from which the list is grabbed *if* that would cause point to point farther than it currently is. Thu Jul 6 14:28:11 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * valprint.c (val_print, value_print): Add parameter to control prettyprinting. valprint.h: New file containing constants used for passing prettyprinting parameter to val{,ue}_print. expprint.c, infcmd.c, printcmd.c, valprint.c, values.c: Change all calls to val{,ue}_print to use new parameter. Mon Jul 3 22:38:11 1989 Randy Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (,process_one_symbol): Moved extern declaration for index out of function to beginning of file. Mon Jul 3 18:40:14 1989 Jim Kingdon (kingdon at hobbes.ai.mit.edu) * gdb.texinfo (Registers): Add "ps" to list of standard registers. Sun Jul 2 23:13:03 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * printcmd.c (enable_display): Change d->next to d = d->next so that "enable display" without args works. Fri Jun 30 23:42:04 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * source.c (list_command): Made error message given when no symtab is loaded clearer. * valops.c (value_assign): Make it so that when assigning to an internal variable, the type of the assignment exp is the type of the value being assigned. Fri Jun 30 12:12:43 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * main.c (verbose_info): Created. (initialize_main): Put "info verbose" into command list. * utils.c (screensize_info): Created. (_initialize_utils): Defined "info screensize" as a normal command. * valprint.c (format_info): Added information about maximum number of array elements to function. * blockframe.c (find_pc_partial_function): Again. * blockframe.c (find_pc_partial_function): Replaced a "shouldn't happen" (which does) with a zero return. * main.c (dont_repeat): Moved ahead of first use. Thu Jun 29 19:15:08 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * vax-opcode.h: Made minor modifications (moved an instruction and removed a typo) to bring this into accord with gas' table; also changed copyright to reflect it being part of both gdb and gas. * m68k-opcode.h: Added whole scads and bunches of new stuff for the m68851 and changed the coptyrightto recognize that the file was shared between gdb and gas. * main.c (stop_sig): Use "dont_repeat ()" instead of *line = 0; * core.c (read_memory): Don't do anything if length is 0. * Makefile: Added readline.c to the list of files screwed by having the ansi ioctl.h compilation with gcc. * config.gdb: Added sun4os3 & sun4-os3 as availible options. Wed Jun 28 02:01:26 1989 Jim Kingdon (kingdon at apple-gunkies.ai.mit.edu) * command.c (lookup_cmd): Add ignore_help_classes argument. (lookup_cmd_1): Add ignore_help_classes argument. command.c, main.c: Change callers of lookup_cmd{,_1} to supply value for ignore_help_classes. Tue Jun 27 18:01:31 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * utils.c (print_spaces_filtered): Made more efficient. * defs.h: Declaration. * valprint.c (val_print): Used in a couple of new places. Mon Jun 26 18:27:28 1989 Randall Smith (randy at gluteus.ai.mit.edu) * m68k-pinsn.c (print_insn_arg ['#', '^']): Combined them into one case which always gets the argument from the word immediately following the instruction. (print_insn_arg ["[lL]w"]): Make sure to always get the register mask from the word immediately following the instruction. Sun Jun 25 19:14:56 1989 Randall Smith (randy at galapas.ai.mit.edu) * Makefile: Added hp-include back in as something to distribute. * stack.c (print_block_frame_locals): Return value changed from void to int; return 1 if values printed. Use _filtered. (print_frame_local_vars): Use return value from print_block_frame_locals to mention if nothing printed; mention lack of symbol table, use _filtered. (print_frame_arg_vars): Tell the user if no symbol table or no values printed. Use fprintf_filtered instead of fprintf. * blockframe.c (get_prev_frame_info): Check for no inferior or core file before crashing. * inflow.c (inferior_died): Set current frame to zero to keep from looking like we're in start. Sat Jun 24 15:50:53 1989 Randall Smith (randy at gluteus.ai.mit.edu) * stack.c (frame_command): Added a check to make sure that there was an inferior or a core file. * expread.y (yylex): Allow floating point numbers of the form ".5" to be parsed. Changes by David Taylor at TMC: * ns32k-pinsn.c: Added define for ?floating point coprocessor? and tables for register names to be used for each of the possibilities. (list_search): Created; searches a list of options for a specific value. (print_insn_arg): Added 'Q', 'b', 'M', 'P', 'g', and 'G' options to the value location switch. * ns32k-opcode.h: Added several new location flags. [addr, enter, exit, ext[bwd], exts[bwd], lmr, lpr[bwd], restore, rett, spr[bwd], smr]: Improved insn format output. * symtab.c (list_symbols): Rearrange printing to produce readable output for "info types". * eval.c (evaluate_subexp_for_address): Fixed typo. * dbxread.c (read_type): Don't output an error message when there isn't a ',' after a cross-reference. * dbxread.c (read_dbx_symtab): #if'd out N_FN case in read_dbx_symtab if it has the EXT bit set (otherwise multiple cases with the same value). Fri Jun 23 13:12:08 1989 Randall Smith (randy at plantaris.ai.mit.edu) * symmisc.c: Changed decl of print_spaces from static to extern (since it's defined in utils.c). * remote.c (remote_open): Close remote_desc if it's already been opened. * Remote_Makefile, remote_gutils.c, remote_inflow.c, remote_server.c, remote_utils.c: Combined into remote-multi.shar. * remote-multi.shar: Created (Vikram Koka's remote stub). * remote-sa.m68k.shar: Created (Glenn Engel's remcom.c). * README: Updated to reflect new organization of remote stubs. * dbxread.c (read_dbx_symtab): Put an N_FN in with N_FN | N_EXT to account for those machines which don't use the external bit here. Sigh. * m-symmetry.h: Defined NO_SIGINTERRUPT. Thu Jun 22 12:51:37 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * printcmd.c (decode_format): Make sure characters are printed using a byte size. * utils.c (error): Added a terminal_ours here. * stack.c (locals_info): Added check for selected frame. * dbxread.c (read_type): Checked to make sure that a "," was actually found in the symbol to end a cross reference. Wed Jun 21 10:30:01 1989 Randy Smith (randy at tartarus.uchicago.edu) * expread.y (parse_number, [exp]): Allowed for the return of a number marked as unsigned; this will allow inclusion of unsigned constants. * symtab.h: Put in default definitions for BUILTIN_TYPE_LONGEST and BUILTIN_TYPE_UNSIGNED_LONGEST. * expread.y (parse_number): Will now accept integers suffixed with a 'u' (though does nothing special with it). * valarith.c (value_binop): Added cases to deal with unsigned arithmetic correctly. Tue Jun 20 14:25:54 1989 Randy Smith (randy at tartarus.uchicago.edu) * dbxread.c (psymtab_to_symtab_1): Changed reading in info message to go through printf_filtered. * symtab.c (list_symbols): Placed header message after all calls to psymtab_to_symtab. * symtab.c (smash_to_{function, reference, pointer}_type): Carried attribute of permanence for the type being smashed over the bzero and allowed any type to point at this one if it is permanent. * symtab.c (smash_to_{function, reference, pointer}_type): Fix typo: check flags of to_type instead of type. * m-hp9k320.h: Changed check on __GNU__ predefine to __GNUC__. * Makefile: Made MUNCH_DEFINE seperate and based on SYSV_DEFINE; they aren't the same on hp's. Mon Jun 19 17:10:16 1989 Randy Smith (randy at tartarus.uchicago.edu) * Makefile: Fixed typo. * valops.c (call_function): Error if the inferior has not been started. * ns32k-opcode.h [check[wc], cmpm[bwd], movm[bwd], skpsb]: Fixed typos. Fri Jun 9 16:23:04 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-news.h [NO_SIGINTERRUPT]: Defined. * dbxread.c (read_type): Start copy of undefined structure name past [sue] defining type of cross ref. * dbxread.c (process_one_symbol): Changed strchr to index. * ns32k-opcode.h, ns32k-pinsn.c: More changes to number of operands, addition of all of the set condition opcodes, addition of several flag letters, all patterned after the gas code. * ns32k-opcode.h [mov{su,us}[bwd], or[bwd]]: Changed number of operands from 1 to 2. Wed Jun 7 15:04:24 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * symseg.h [TYPE_FLAG_STUB]: Created. * dbxread.c (read_type): Set flag bit if type is stub. (cleanup_undefined_types): Don't mark it as a stub if it's been defined since we first learned about it. * valprint.c (val_print): Print out a message to that effect if this type is encountered. * symseg.h, symtab.h: Moved the definition of TYPE_FLAG_PERM over to symseg.h so that all such definitions would be in the same place. * valprint.c (val_print): Print out for a structure if there aren't any. * dbxread.c (read_type): Set type name of a cross reference type to "struct whatever" or something. Tue Jun 6 19:40:52 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * breakpoint.c (breakpoint_1): Print out symbolic location of breakpoints for which there are no debugging symbols. Mon Jun 5 15:14:51 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * command.c (help_cmd_list): Made line_size static. Sat Jun 3 17:33:45 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * Makefile: Don't include the binutils hp-include directory in the distribution anymore; refer the users to the binutils distribution. Thu Jun 1 16:33:07 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * printcmd.c (disable_display_command): Fixed loop iteration for no arg case. * printcmd.c (disable_display_command): Added from_tty parameter to function. * valops.c (value_of_variable): Call read_var_value with 0 cast to FRAME instead of CORE_ADDR. * eval.c (evaluate_subexp): Corrected number of args passed to value_subscript (to 2). * infrun.c (wait_for_inferior), symtab.c (decode_line_1), m-convex.h: Changed name of FIRSTLINE_DEBUG_BROKEN to PROLOGUE_FIRSTLINE_OVERLAP. * m-merlin.h: Fixed typo. * ns32k-opcode.h: Added ns32381 opcodes and "cinv" insn, and fixed errors in movm[wd], rett, and sfsr. * eval.c (evaluate_subexp, evaluate_subexp_for_address), valops.c (value_zero): Change value_zero over to taking two arguments instead of three. * eval.c (evaluate_subexp) [OP_VAR_VALUE]: Get correct lval type for AVOID_SIDE_EFFECTS for all types of symbols. [BINOP_DIV]: Don't divide if avoiding side effects; just return an object of the correct type. [BINOP_REPEAT]: Don't call value_repeat, just allocate a repeated value. (evaluete_subexp_for_address) [OP_VAR_VALUE]: Just return a thing of the right type (after checking to make sure that we are allowed to take the address of whatever variable has been passed). Mon May 29 11:01:02 1989 Randall Smith (randy at galapas.ai.mit.edu) * breakpoint.c (until_break_command): Set the breakpoint with a frame specification so that it won't trip in inferior calls to the function. Also set things up so that it works based on selected frame, not current one. Sun May 28 15:05:33 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * eval.c (evalue_subexp): Change subscript case to use value_zero in EVAL_AVOID_SIDE_EFFECTS case. Fri May 26 12:03:56 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (read_addl_syms, psymtab_to_symtab): Removed cleanup_undefined_types; this needs to be done on a symtab basis. (end_symtab): Called cleanup_undefined_types from here. (cleanup_undefined_types): No longer uses lookup_symbol (brain dead idea; oh, well), now it searches through file_symbols. Wed May 24 15:52:43 1989 Randall Smith (randy at galapas) * source.c (select_source_symtab): Only run through partial_symtab_list if it exists. * coffread.c (read_coff_symtab): Don't unrecord a misc function when a function symbol is seen for it. * expread.y [variable]: Make sure to write a type for memvals if you don't get a mft you recognize. Tue May 23 12:15:57 1989 Randall Smith (randy at plantaris.ai.mit.edu) * dbxread.c (read_ofile_symtab, psymtab_to_symtab): Moved cleanup of undefined types to psymtab_to_symtab. That way it will be called once for all readins (which will, among other things, help reduce infinite loops). * symtab.h [misc_function_type]: Forced mf_unknown to 0. * dbxread.c (record_misc_function): Cast enum to unsigned char (to fit). * expread.y [variable]: Cast unsigned char back to enum to test. Mon May 22 13:08:25 1989 Randall Smith (randy at gluteus.ai.mit.edu) Patches by John Gilmore for dealing well with floating point: * findvar.c (value_from_register, locate_var_value): Used BYTES_BIG_ENDIAN instead of an inline test. * m-sparc.h [IEEE_FLOAT]: Created to indicate that the sparc is IEEE compatible. * printcmd.c (print_scalar_formatted): Use BYTES_BIG_ENDIAN and the stream argument for printing; also modify default type for 'f'. Change handling of invalid floats; changed call syntax for is_nan. (print_command): Don't print out anything indicating that something was recorded on the history list if it wasn't. * valprint.c (val_print): Fixed to deal properley with new format of is_nan and unpacking doubles without errors occuring. (is_nan): Changed argument list and how it figures big endianness (uses macros). * values.c (record_latest_value): Return -1 and don't record if it's an invalid float. (value_as_double): Changed to use new unpack_double calling convention. (unpack_double): Changed not to call error if the float was invalid; simply to set invp and return. Changed calling syntax. (unpack_field_as_long, modify_field): Changed to use BITS_BIG_ENDIAN to determine correct action. * m-hp9k320.h [HP_OS_BUG]: Created; deals with problem where a trap happens after a continue. * infrun.c (wait_for_inferior): Used. * m-convex.h [FIRSTLINE_DEBUG_BROKEN]: Defined a flag to indicate that the debugging symbols output by the compiler for the first line of a function were broken. * infrun.c (wait_for_inferior), symtab.c (decode_line_1): Used. * gdb.texinfo [Data, Memory]: Minor cleanups of phrasing. Fri May 19 00:16:59 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (add_undefined_type, cleanup_undefined_types): Created to keep a list of cross references to as yet undefined types. (read_type): Call add_undefined_type when we run into such a case. (read_addl_syms, read_ofile_symtab): Call cleanup_undefined_types when we're done. * dbxread.c (psymtab_to_symtab, psymtab_to_symtab_1): Broke psymtab_to_symtab out into two routines; made sure the string table was only readin once and the globals were only scanned once, for any number of dependencies. Thu May 18 19:59:18 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-*.h: Defined (or not, as appropriate per machine) BITS_BIG_ENDIAN, BYTES_BIG_ENDIAN, and WORDS_BIG_ENDIAN. Wed May 17 13:37:45 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * main.c (symbol_completion_function): Always complete on result command list, even if exact match found. If it's really an exact match, it'll find it again; if there's something longer than it, it'll get the right result. * symtab.c (make_symbol_completion_function): Fixed typo; strcmp ==> strncmp. * dbxread.c (read_dbx_symtab): Change 'G' case to mark symbols as LOC_EXTERNAL. * expread.y [variables]: Changed default type of text symbols to function returning int so that one can use, eg. strcmp. * infrun.c (wait_for_inferior): Include a special flag indicating that one shouldn't insert the breakpoints on the next step for returning from a sigtramp and forcing at least one move forward. * infrun.c (wait_for_inferior): Change test for nexting into a function to check for current stack pointer inner than previous stack pointer. * infrun.c (wait_for_inferior): Check for step resume break address before dealing with normal breakpoints. * infrun.c (wait_for_inferior): Added a case to deal with taking and passing along a signal when single stepping past breakpoints before inserting breakpoints. * infrun.c (wait_for_inferior): Inserted special case to keep going after taking a signal we are supposed to be taking. Tue May 16 12:49:55 1989 Randall Smith (randy at gluteus.ai.mit.edu) * inflow.c (terminal_ours_1): Cast result of signal to (int (*)()). * gdb.texinfo: Made sure that references to the program were in upper case. Modify description of the "set prompt" command. [Running]: Cleaned up introduction. [Attach]: Cleaned up. [Stepping]: Change "Proceed" to "Continue running" or "Execute". Minor cleanup. [Source Path]: Cleaned up intro. Cleared up distinction between the executable search path and the source path. Restated effect of the "directory" command with no arguments. [Data]: Fixed typos and trivial details. [Stepping]: Fixed up explanation of "until". * source.c (print_source_lines): Print through filter. * printcmd.c (x_command): If the format with which to print is "i", use the address of anything that isn't a pointer instead of the value. This is for, eg. "x/10i main". * gdb.texinfo: Updated last modification date on manual. Mon May 15 12:11:33 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * symtab.c (lookup_symtab): Fixed typo (name ==> copy) in call to lookup_symtab_1. * gdb.texinfo: Added documentation for "break [+-]n" and for new actions of "directory" command (taking multiple directory names at the same time). * m68k-opcode.h: Replaced the version in gdb with an up-to-date version from the assembler directory. * m68k-pinsn.c (print_insn_arg): Added cases 'l' & 'L' to switch to print register lists for movem instructions. * dbxread.c, m-convex.h: Moved convex dependent include files over from dbxread.c to m-convex.h. * printcmd.c (disable_display, disable_display_command): Changed name of first to second, and created first which takes an int as arg rather than a char pointer. Changed second to use first. (_initialize_printcmd): Changed to use second as command to call. (delete_current_display, disable_current_display): Changed name of first to second, and changed functionality to match. * infrun.c (normal_stop), main.c (return_to_top_level): Changed to call disable_current_display. * dbxread.c (process_one_symbol, read_dbx_symtab): Changed N_FN to be N_FN | N_EXT to deal with new Berkeley define; this works with either the old or the new. * Remote_Makefile, remote_gutils.c, remote_inflow.c, remote_server.c, remote_utils.c: Created. * Makefile: Included in tag and tar files. * README: Included a note about them. * printcmd.c (print_address): Use find_pc_partial_function to remove need to readin symtabs for symbolic addresses. * source.c (directory_command): Replaced function with new one that can accept lists of directories seperated by spaces or :'s. * inflow.c (new_tty): Replaced calls to dup2 with calls to dup. Sun May 14 12:33:16 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * stack.c (args_info): Make sure that you have an inferior or core file before taking action. * ns32k-opcode.h [deiw, deid]: Fixed machine code values for these opcodes. * dbxread.c (scan_file_globals): Modified to use misc function vector instead of file itself. Killed all arguments to the funciton; no longer needed. (psymtab_to_symtab): Changed call for above to reflect new (void) argument list. * dbxread.c (read_dbx_symtab, ): Moved HASH_OFFSET define out of read_dbx_symtab. * expread.y [variable]: Changed default type of misc function in text space to be (void ()). * Makefile: Modified for proper number of s/r conflicts (order is confusing; the mod that necessitated this change was on May 12th, not today). * expread.y (yylex): Added SIGNED, LONG, SHORT, and INT keywords. [typename]: Created. [typebase]: Added rules for LONG, LONG INT, SHORT, SHORT INT, SIGNED name, and UNSIGNED name (a good approximation of ansi standard). * Makefile: Included .c.o rule to avoid sun's make from throwing any curves at us. * blockframe.c: Included * command.c (lookup_cmd): Clear out trailing whitespace. * command.c (lookup_cmd_1): Changed malloc to alloca. Fri May 12 12:13:12 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * printcmd.c (print_frame_args): Only print nameless args when you know how many args there are supposed to be and when you've printed fewer than them. Don't print nameless args between printed args. * symtab.c (make_symbol_completion_function): Fixed typo (= ==> ==). * remote.c (remote_open): ifdef'd out siginterrupt call by #ifndef NO_SIGINTERRUPT. * m-umax.h: Defined NO_SIGINTERRUPT. * expread.y [ptype, array_mod, func_mod, direct_abs_decl, abs_decl]: Added rules for parsing and creating arbitrarily strange types for casts and sizeofs. * symtab.c, symtab.h (create_array_type): Created. Some minor misfeatures; see comments for details (main one being that you might end up creating two arrays when you only needed one). Thu May 11 13:11:49 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * valops.c (value_zero): Add an argument for type of lval. * eval.c (evaluate_subexp_for_address): Take address properly in the avoid side affects case (ie. keep track of whether we have an lval in memory and we can take the address). (evaluate_subexp): Set the lval type of expressions created with value_zero properley. * valops.c, value.h (value_zero): Created--will return a value of any type with contents filled with zero. * symtab.c, symtab.h (lookup_struct_elt_type): Created. * eval.c (evaluate_subexp): Modified to not read memory when called with EVAL_AVOID_SIDE_EFFECTS. * Makefile: Moved dbxread.c ahead of coffread.c in the list of source files. Wed May 10 11:29:19 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * munch: Make sure that sysv version substitutes for the whole line. * symtab.h: Created an enum misc_function_type to hold the type of the misc function being recorded. * dbxread.c (record_misc_function): Branched on dbx symbols to decide which type to assign to a misc function. * coffread.c (record_misc_function): Always assign type unknown. * expread.y [variable]: Now tests based on new values. Tue May 9 13:03:54 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * symtab.c: Changed inclusion of (doesn't work on SYSV) to declaration of index. * Makefile: Changed last couple of READLINE_FLAGS SYSV_DEFINE * source.c ({forward, reverse}_search_command): Made a default search file similar to for the list command. Mon May 8 18:07:51 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * printcmd.c (print_frame_args): If we don't know how many arguments there are to this function, don't print the nameless arguments. We don't know enough to find them. * printcmd.c (print_frame_args): Call print_frame_nameless_args with proper arguments (start & end as offsets from addr). * dbxread.c (read_addl_syms): Removed cases to deal with global symbols; this should all be done in scan_global_symbols. Sun May 7 11:36:23 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * Makefile: Added copying.awk to ${OTHERS}. Fri May 5 16:49:01 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * valprint.c (type_print_varspec_prefix): Don't pass passed_a_pointer onto children. * valprint.c (type_print_varspec_suffix): Print "array of" with whatever the "of" is after tha array brackets. * valprint.c (type_print_varspec_{prefix,suffix}): Arrange to parenthesisze pointers to arrays as well as pointers to other objects. * valprint.c (type_print_varspec_suffix): Make sure to print subscripts of multi-dimensional arrays in the right order. * infcmd.c (run_command): Fixed improper usages of variables within remote debugging branch. * Makefile: Added Convex.notes to the list of extra files to carry around. * dbxread.c (symbol_file_command): Made use of alloca or malloc dependent on macro define. Thu May 4 15:47:04 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * Makefile: Changed READLINE_FLAGS to SYSV_DEFINE and called munch with it also. * munch: Check first argument for -DSYSV and be looser about picking up init routines if you find it. * coffread.c: Made fclose be of type int. * breakpoint.c (_initialize_breakpoint): Put "unset" into class alias. Wed May 3 14:09:12 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-sparc.h [STACK_END_ADDR]: Parameterized off of machine/vmparam.h (as per John Gilmore's suggestion). * blockframe.c (get_prev_frame_info): Changed this function back to checking frameless invocation first before checking frame chain. This means that a backtrace up from start will produce the wrong value, but that a backtrace from a frameless function called in main will show up correctly. * breakpoint.c (_initialize_breakpoint): Added entry in help for delete that indicates that unset is an alias for it. * main.c (symbol_completion_function): Modified recognition of being within a single command. Tue May 2 15:13:45 1989 Randy Smith (randy at gnu) * expread.y [variable]: Add some parens to get checking of the misc function vector right. Mon May 1 13:07:03 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * default-dep.c (core_file_command): Made reg_offset unsigned. * default-dep.c (core_file_command): Improved error messages for reading in registers. * expread.y: Allowed a BLOCKNAME to be ok for a variable name (as per C syntax). * dbxread.c (psymtab_to_symtab): Flushed stdout after printing starting message about reading in symbols. * printcmd.c (print_frame_args): Switched starting place for printing of frameless args to be sizeof int above last real arg printed. * printcmd.c (print_frame_args): Modified final call to print_nameless_args to not use frame slots used array if none had been used. * infrun.c (wait_for_inferior): Take FUNCTION_START_OFFSET into account when dealing with comparison of pc values to function addresses. * Makefile: Added note about compiling gdb on a Vax running 4.3. Sun Apr 30 12:59:46 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * command.c (lookup_cmd): Got correct error message on bad command. * m-sun3.h [ABOUT_TO_RETURN]: Modified to allow any of the return instructions, including trapv and return from interupt. * command.c (lookup_cmd): If a command is found, use it's values for error reporting and determination of needed subcommands. * command.c (lookup_cmd): Use null string for error if cmdtype is null; pass *line to error instead of **. * command.c (lookup_cmd_1): End of command marked by anything but alpha numeric or '-'. Included ctype.h. Fri Apr 28 18:30:49 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * source.c (select_source_symtab): Kept line number from ever being less than 1 in main decode. Wed Apr 26 13:03:20 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * default-dep.c (core_file_command): Fixed typo. * utils.c (fprintf_filtered): Don't use return value from numchars. * main.c, command.c (complete_on_cmdlist): Moved function to command.c. * command.c (lookup_cmd): Modified to use my new routine. Old version is still there, ifdef'd out. * command.c, command.h (lookup_cmd_1): Added a routine to do all of the work of lookup_cmd with no error reporting and full return of information garnered in search. Tue Apr 25 12:37:54 1989 Randall Smith (randy at gluteus.ai.mit.edu) * breakpoint.c (_initialize_breakpoint): Change "delete breakpionts" to be in class alias and not have the abbrev flag set. * main.c (symbol_completion_function): Fix to correctly complete things that correspond to multiword aliases. * main.c (complete_on_cmdlist): Don't complete on something if it isn't a command or prefix (ie. if it's just a help topic). * main.c (symbol_completion_function): Set list index to be 0 if creating a list with just one element. * main.c (complete_on_cmdlist): Don't allow things with abbrev_flag set to be completion values. (symbol_completion_function): Don't accept an exact match if the abbrev flag is set. * dbxread.c (read_type): Fixed typo in comparision to check if type number existed. * dbxread.c (read_type): Made sure to only call dbx_lookup_type on typenums if typenums were not -1. Mon Apr 24 17:52:12 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * symtab.c: Added strings.h as an include file. Fri Apr 21 15:28:38 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * symtab.c (lookup_partial_symtab): Changed to only return a match if the name match is exact (which is what I want in all cases in which this is currently used. Thu Apr 20 11:12:34 1989 Randall Smith (randy at gluteus.ai.mit.edu) * m-isi.h [REGISTER_U_ADDR]: Installed new version from net. * default-dep.c: Deleted inclusion of fcntl.h; apparently not necessary. * Makefile: Added comment about compiling on isi under 4.3. * breakpoint.c (break_command_1): Only give decode_line_1 the default_breakpoint_defaults if there's nothing better (ie. make the default be off of the current_source notes if at all possible). * blockframe.c (get_prev_frame_info): Clean up comments and delete code ifdefed out around FRAMELESS_FUNCTION_INVOCATION test. * remote.c: Added a "?" message to protocol. (remote_open): Used at startup. (putpkt): Read whatever garbage comes over the line until we see a '+' (ie. don't treat garbage as a timeout). * valops.c (call_function): Eliminated no longer appropriate comment. * infrun.c (wait_for_inferior): Changed several convex conditional compilations to be conditional on CANNOT_EXECUTE_STACK. Wed Apr 19 10:18:17 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * printcmd.c (print_frame_args): Added code to attempt to deal with arguments that are bigger than an int. Continuation of Convex/Fortran changes: * printcmd.c (print_scalar_formatted): Added leading zeros to printing of large integers. (address_info, print_frame_args): Added code to deal with LOC_REF_ARG. (print_nameless_args): Allow param file to specify a routine with which to print typeless integers. (printf_command): Deal with long long values well. * stack.c (print_frame_arg_vars): Change to deal with LOC_REF_ARG. * symmisc.c (print_symbol): Change to deal with LOC_REF_ARG. * symseg.h: Added LOC_REF_ARG to enum address_class. * symtab.c (lookup_block_symbol): Changed to deal with LOC_REF_ARG. * valarith.c (value_subscripted_rvalue): Created. (value_subscript): Used above when app. (value_less, value_equal): Change to cast to (char *) before doing comparison, for machines where that casting does something. * valops.c (call_function): Setup to deal with machines where you cannot execute code on the stack segment. * valprint.c (val_print): Make sure that array element size isn't zero before printing. Set address of default array to address of first element. Put in a couple of int cast. Removed some convex specific code. Added check for endianness of machine in case of a packed structure. Added code for printing typeless integers and for LONG LONG's. (set_maximum_command): Change to use parse_and_eval_address to get argument (so can use expressions there). * values.c (value_of_internalvar, set_internalvar_component, set_internalvar, convenience_info): Add in hooks for trapped internal vars. (unpack_long): Deal with LONG_LONG. (value_field): Remove LONGEST cast. (using_struct_return): Fixed typo ENUM ==> UNION. * xgdb.c (_initialize_xgdb): Make sure that specify_exec_file_hook is not called unless we are setting up a windowing environ. Tue Apr 18 13:43:37 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) Various changes involved in 1) getting gdb to work on the convex, and 2) Getting gdb to work with fortran (due to convex!csmith): * convex-dep.c, convex-opcode.h, m-convex.h, convex-pinsn.c: Created (or replaced with new files). * Makefile: Add convex dependent files. Changed default flags to gnu malloc to be CFLAGS. * config.gdb: Added convex to list of machines. * core.c (files_info): Added a FILES_INFO_HOOK to be used if defined. (xfer_core_file): Conditionalized compilation of xfer_core_file on the macro XFER_CORE_FILE. * coffread.c (record_misc_function): Made sure it zerod type field (which is now being used; see next). * dbxread.c: Included some convex dependent include files. (copy_pending, fix_common_blocks): Created. [STAB_REG_REGNUM, BELIEVE_PCC_PROMOTION]: Created default values; may be overridden in m-*.h. Included data structures for keeping track of common blocks. (dbx_alloc_type): Modified; if called with negative 1's will create a type without putting it into the type vector. (read_dbx_symtab, read_addl_syms): Modified calls to record_misc_function to include the new information. (symbol_file_command, psymtab_to_symtab, add_file_command): Modified reading in of string table to adapt to machines which *don't* store the size of the string table in the first four bytes of the string table. (read_dbx_symtab, scan_file_globals, read_ofile_symtab, read_addl_syms): Modified assignment of namestring to accept null index into symtab as ok. (read_addl_syms): Modified readin of a new object file to fiddle with common blocks correctly. (process_one_symbol): Fixed incorrect comment about convex. Get symbols local to a lexical context from correct spot on a per machine basis. Catch a bug in pcc which occaisionally puts an SO where there should be an SOL. Seperate sections for N_BCOMM & N_ECOMM. (define_symbol): Ignore symbols with no ":". Use STAB_REG_TO_REGNUM. Added support for function args calling by reference. (read_type): Only read type number if one is there. Remove old (#if 0'd out) array code. (read_array_type): Added code for dealing with adjustable (by parameter) arrays half-heartedly. (read_enum_type): Allow a ',' to end a list of values. (read_range_type): Added code to check for long long. * expread.y: Modified to use LONGEST instead of long where necessary. Modified to use a default type of int for objects that weren't in text space. * findvar.c (locate_var_value, read_var_value): Modified to deal with args passed by reference. * inflow.c (create_inferior): Used CREATE_INFERIOR_HOOK if it exists. * infrun.c (attach_program): Run terminal inferior when attaching. (wait_for_inferior): Removed several convex dependencies. * main.c (float_handler): Created. Made whatever signal indicates a stop configurable (via macro STOP_SIGNAL). (main): Setup use of above as a signal handler. Added check for "-nw" in args already processed. (command_line_input): SIGTSTP ==>STOP_SIGNAL. * expread.y: Added token BLOCKNAME to remove reduce/reduce conflict. * Makefile: Change message to reflect new grammar. Mon Apr 17 13:24:59 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * printcmd.c (compare_ints): Created. (print_frame_args): Modified to always print arguments in the order in which they were found in the symbol table. Figure out what apots are missing on the fly. * stack.c (up_command): Error if no inferior or core file. * m-i386.h, m-symmetry.h [FRAMELESS_FUNCTION_INVOCATION]: Created; same as m68k. * dbxread.c (define_symbol): Changed "desc==0" test to "processing_gcc_compilation", which is the correct way to do it. Sat Apr 15 17:18:38 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * expread.y: Added precedence rules for arglists, ?:, and sizeof to eliminate some shift-reduce conflicts. * Makefile: Modified "Expect" message to conform to new results. Thu Apr 13 12:29:26 1989 Randall Smith (randy at plantaris.ai.mit.edu) * inflow.c (terminal_init_inferior): Fixed typo in recent diff installation; TIOGETC ==> TIOCGETC. * m-vax.h, m-sun2.h, m-sun3.h, m-sparc.h, m-hp*.h, m-isi.h, m-news.h [FRAMELESS_FUNCTION_INVOCATION]: Created macro with appropriate definition. Wed Apr 12 15:30:29 1989 Randall Smith (randy at plantaris.ai.mit.edu) * blockframe.c (get_prev_frame_info): Added in a macro to specify when a "frame" is called without a frame pointer being setup. * Makefile [clean]: Made sure to delete gnu malloc if it was being used. Mon Apr 10 12:43:49 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (process_one_symbol): Reset within_function to 0 after last RBRAC of a function. * dbxread.c (read_struct_type): Changed check for filling in of TYPE_MAIN_VARIANT of type. * inflow.c (create_inferior): Conditionalized fork so that it would be used if USG was defined and HAVE_VFORK was not defined. * defs.h: Added comment about enum command_class element class_alias. * dbxread.c (process_one_symbol): Fixed a typo with interesting implications for associative processing in the brain (':' ==> 'c'). * sparc-dep.c (isabranch): Changed name to isannulled, modified to deal with coprocessor branches, and improved comment. (single_step): Changed to trap at npc + 4 instead of pc +8 on annulled branches. Changed name in call to isabranch as above. * m-sun4os4.h (STACK_END_ADDRESS): Changed it to 0xf8000000 under os 4.0. Sat Apr 8 17:04:07 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (process_one_symbol): In the case N_FUN or N_FNAME the value being refered to is sometimes just a text segment variable. Catch this case. * infrun.c (wait_for_inferior), breakpoint.c (breakpoint_stop_status): Move the selection of the frame to inside breakpoint_stop_status so that the frame only gets selected (and the symbols potentially read in) if the symbols are needed. * symtab.c (find_pc_psymbol): Fixed minor misthough (pc >= fucntion start, not >). * breakpoint.c (_initialize_breakpoint): Change "delete" internal help entry to simply refer to it being a prefix command (since the list of subcommands is right there on a "help delete"). Fri Apr 7 15:22:18 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * blockframe.c (find_pc_partial_function): Created; figures out what function pc is in (name and address) without reading in any new symbols. * symtab.h: Added decl for above. * infrun.c (wait_for_inferior): Used instead of find_pc_function_start. * stack.c (print_frame_info): Used instead of hand coding for same thing. * dbxread.c (psymtab_to_symtab): No longer patch readin pst's out of the partial_symtab_list; need them there for some checks. * blockframe.c (block_for_pc), source.c (select_source_symtab), symtab.c (lookup_symbol, find_pc_symtab, list_symbols): Made extra sure not to call psymtab_to_symtab with ->readin == 1, since these psymtab now stay on the list. * symtab.c (sources_info): Now distinguishes between psymtabs with readin set and those with it not set. * symtab.c (lookup_symtab): Added check through partial symtabs for name with .c appended. * source.c (select_source_symtab): Changed semantics a little so that the argument means something. * source.c (list_command), symtab.c (decode_line_1): Changed call to select_source_symtab to match new conventions. * dbxread.c (add_file_command): This command no longer selects a symbol table to list from. * infrun.c (wait_for_inferior): Only call find_pc_function (to find out if we have debugging symbols for a function and hence if we should step over or into it) if we are doing a "step". Thu Apr 6 12:42:28 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * main.c (command_line_input): Added a local buffer and only copied information into the global main.c buffer when it is appropriate for it to be saved (and repeated). (dont_repeat): Only nail line when we are reading from stdin (otherwise null lines won't repeat and what's in line needs to be saved). (read_command_lines): Fixed typo; you don't what to repeat when reading command lines from the input stream unless it's standard input. John Gilmore's (gnu@toad.com) mods for USG gdb: * inflow.c: Removed inclusion of sys/user.h; no longer necessary. (, terminal_init_inferior, terminal_inferior, terminal_ours_1, term_status_command, _initialize_inflow) Seperated out declaration and usage of terminal mode structures based on the existence of the individual ioctls. * utils.c (request_quit): Restore signal handler under USG. If running under USG initialize sys_siglist at run time (too much variation between systems). Wed Apr 5 13:47:24 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) John Gilmore's (gnu@toad.com) mods for USG gdb: * default-dep.c: Moved include of sys/user.h to after include of a.out.h. (store_inferior_registers): Fixed error message. (core_file_command): Improved error messages from reading in of u area in core file. Changed calculation of offset of registers to account for some machines putting it in as an offset rather than an absolute address. Changed error messages for reading of registers from core file. * coffread.c (read_file_hdr): Added final check for BADMAG macro to use if couldn't recognize magic number. * Makefile: Added explicit directions for alloca addition. Included alloca.c in list of possible library files. Cleaned up possible library usage. Included additional information on gcc and include files. * source.c, remote.c, inflow.c, dbxread.c, core.c, coffread.c: Changed include of sys/fcntl.h to an include of fcntl.h (as per posix; presumably this will break fewer machines. I hopw). * README: Added a pointer to comments at top of Makefile. * Makefile: Added a comment about machines which need fcntl.h in sys. Tue Apr 4 11:29:04 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * valprint.c (set_prettyprint_command, set_unionprint_command, format_info): Created. (_initialize_valprint): Added to lists of commands. * gdb.texinfo [Backtrace]: Added a section describing the format if symbols have not yet been read in. * valprint.c (val_print): Added code to prettyprint structures if "prettyprint" is set and only to print unions below the top level if "unionprint" is set. * infcmd.c (registers_info), valprint.c (value_print, val_print): Added argument to call to val_print indicating deptch of recursion. * symtab.[ch] (find_pc_psymbol): Created; finds static function psymbol with value nearest to but under value passed. * stack.c (print_frame_info): Used above to make sure I have best fit to pc value. * symseg.h (struct partial_symbol): Added value field. * dbxread.c (read_dbx_symtab): Set value field for partial symbols saved (so that we can lookup static symbols). * symtab.[ch] (find_pc_symtab): Changed to external. * stack.c (select_frame): Call above to make sure that symbols for a selected frame is readin. Mon Apr 3 12:48:16 1989 Randall Smith (randy at plantaris.ai.mit.edu) * stack.c (print_frame_info): Modified to only print out full stack frame info on symbols whose tables have been read in. * symtab.c, symtab.h (find_pc_psymtab): Made function external; above needed it. * main.c (,set_verbose_command, initialize_main): Created a variable "info_verbose" which says to talk it up in various and sundry places. Added command to set this variable. * gdb.texinfo (GDB Output): Added documentation on "set verbose" and changed the name of the "Screen Output" section to "GDB Output". * dbxread.c (psymtab_to_symtab): Added information message about symbol readin. Conditionalized on above. * dbxread.c (define_symbol): Made an "i" constant be of class LOC_CONST and an "r" constant be of class LOC_CONST_BYTES. * README: Made a note about modifications which may be necessary to the manual for this version of gdb. * blockframe.c (get_prev_frame_info): Now we get saved address and check for validity before we check for leafism. This means that we will catch the fact that we are in start, but we will miss any fns that start calls without an fp. This should be fine. * m-*.h (FRAME_CHAIN): Modified to return 0 if we are in start. This is usually a test for within the first object file. * m-sparc.h (FRAME_CHAIN): The test here is simply if the fp saved off the the start sp is 0. * blockframe.c (get_prev_frame_info): Removed check to see if we were in start. Screws up sparc. * m-sparc.h (FRAME_FIND_SAVED_REGISTERS): Changed test for dummy frame to not need frame to be innermost. * gdb.texinfo: Added section on frameless invocations of functions and when gdb can and can't deal with this. * stack.c (frame_info): Disallowed call if no inferior or core file; fails gracefully if truely bad stack specfication has been given (ie. parse_frame_specification returns 0). Fri Mar 31 13:59:33 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * infrun.c (normal_stop): Changed references to "unset-env" to "delete env". * infcmd.c (_initialize_infcmd): Change reference to set-args in help run to "set args". * remote.c (getpkt): Allow immediate quit when reading from device; it could be hung. * coffread.c (process_coff_symbol): Modify handling of REG parameter symbols. Thu Mar 30 15:27:23 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (symbol_file_command): Use malloc to allocate the space for the string table in symbol_file_command (and setup a cleanup for this). This allows a more graceful error failure if there isn't any memory availible (and probably allows more memory to be avail, depending on the machine). Additional mods for handling GNU C++ (from Tiemann): * dbxread.c (read_type): Added case for '#' type (method type, I believe). (read_struct_type): If type code is undefined, make the main variant for the type be itself. Allow recognition of bad format in reading of structure fields. * eval.c (evaluate_subexp): Modify evaluation of a member of a structure and pointer to same to make sure that the syntax is being used correctly and that the member is being accessed correctly. * symseg.h: Added TYPE_CODE_METHOD to enum type_code. Add a pointer to an array of argument types to the type structure. * symtab.c (lookout_method_type, smash_to_method_type): Created. * symtab.h (TYPE_ARG_TYPES): Created. * valops.c (call_function): Modified handling of methods to be the same as handling of functions; no longer check for members. * valprint.c (val_print, type_print_varspec_{prefix,suffix}, type_print_base): Added code to print method args correctly. * values.c (value_virtual_fn_field): Modify access to virtual function table. Wed Mar 29 13:19:34 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * findvar.c: Special cases for REGISTER_WINDOWS: 1) Return 0 if we are the innermost frame, and 2) return the next frame in's value if the SP is being looked for. * blockframe.c (get_next_frame): Created; returns the next (inner) frame of the called frame. * frame.h: Extern delcaration for above. * main.c (command_line_input): Stick null at end before doing history expansion. Tue Mar 28 17:35:50 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (read_dbx_symtab): Added namestring assignment to N_DATA/BSS/ABS case. Sigh. Sat Mar 25 17:49:07 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * expread.y: Defined YYDEBUG. Fri Mar 24 20:46:55 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * symtab.c (make_symbol_completion_list): Completely rewrote to never call psymtab_to_symtab, to do a correct search (no duplicates) through the visible symbols, and to include structure and union fields in the things that it can match. Thu Mar 23 15:27:44 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (dbx_create_type): Created; allocates and inits space for a type without putting it on the type vector lists. (dbx_alloc_type): Uses above. * Makefile: xgdb.o now produced by default rules for .o.c. Fri Mar 17 14:27:50 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * infrun.c: Fixed up inclusion of aouthdr.h on UMAX_PTRACE. * Makefile, config.gdb: Added hp300bsd to potential configurations. * hp300bsd-dep.c, m-hp300bsd.h: Created. * infrun.c (wait_for_inferior): Rewrote to do no access to inferior until we make sure it's still there. * inflow.c (inferior_died): Added a select to force the selected frame to null when inferior dies. * dbxread.c (symbol_file_command): free and zero symfile when discarding symbols. * core.c (xfer_core_file): Extended and cleaned up logic in interpeting memory address. * core.c (xfer_core_file): Extended opening comment. Thu Mar 16 15:39:42 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * coffread.c (symbol_file_command): Free symfile name when freeing contents. * blockframe.c (get_prev_frame_info): Added to fatal error message to indicate that it should never happen. * stack.c (frame_info): Printed out value of "saved" sp seperately to call attention to the fact that it isn't stored in memory anywhere; the actual previous frames address is printed. * m-sparc.h (FRAME_FIND_SAVED_REGS): Set address of sp saved in frame to value of fp (rather than value of sp in current frame). * expread.y: Allow "unsigned" as a type itself, as well as a type modifier. * coffread.c: Added declaration for fclose Fri Mar 10 17:22:31 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * main.c (command_line_input): Checked for -1 return from readline; indicates EOF. Fri Mar 3 00:31:27 1989 Randall Smith (randy at gluteus.ai.mit.edu) * remote.c (remote_open): Cast return from signal to (void (*)) to avoid problems on machines where the return type of signal is (int (*)). * Makefile: Removed deletion of version control from it (users will need it for their changes). Thu Mar 2 15:32:21 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * symmetry-dep.c (print_1167_regs): Print out effective doubles on even number regs. (fetch_inferior_registers): Get the floating point regs also. * xgdb.c (do_command): Copied command before calling execute command (so that execute_command wouldn't write into text space). * copying.awk: Created (will produce copying.c as output when given COPYING as input). * Makefile: Used above to create copying.c. * main.c: Took out info_warranty and info_copying. * *.*: Changed copyright notice to use new GNU General Public License (includes necessary changes to manual). * xgdb.c (create_text_widget): Created text_widget before I create the source and sink. (print_prompt): Added fflush (stdout). * Makefile: Added -lXmu to the compilation line for xgdb. Left the old one there incase people still had R2. * README: Added note about -gg format. * remote.c (getpkt): Fixed typo; && ==> &. * Makefile: Added new variable READLINE_FLAGS so that I could force compilation of readline.c and history.c with -DSYSV on system V machines. Mentioned in Makefile comments at top. Wed Mar 1 17:01:01 1989 Randall Smith (randy at gluteus.ai.mit.edu) * hp9k320-dep.c (store_inferior_registers): Fixed typo. Fri Feb 24 14:58:45 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * hp9k320-dep.c (store_inferior_registers, fetch_inferior_registers): Added support for remote debugging. * remote.c (remote_timer): Created. (remote_open, readchar): Setup to timeout reads if they take longer than "timeout". This allows one to debug how long such things take. (putpkt): Modified to print a debugging message (if such things are enabled) each time it resends a packet. (getpkt): Modified to make the variable CSUM unsigned and read it CSUM with an & 0xff (presumably to deal with poor sign extension on some machines). Also made c1 and c2 unsigned. (remote_wait): Changed buffer to unsigned status. (remote_store_registers, remote_write_bytes): Puts a null byte at the end of the control string. * infcmd.c (attach_command, detach_command, _initialize_infcmd): Made attach_command and detach_command always availible, but modified them to only allow device file attaches if ATTACH_DETACH is not defined. * gdb.texinfo: Added cross reference from attach command to remote debugging. Thu Feb 23 12:37:59 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * remote.c (remote_close): Created to close the remote connection and set the remote_debugging flag to 0. * infcmd.c (detach_command): Now calls the above when appropriate. * gdb.texinfo: Removed references to the ``Distribution'' section in the copyright. * main.c, utils.c (ISATTY): Created default defintions of this macro which use isatty and fileno. * utils.c (fprintf_filtered, print_spaces_filtered), main.c (command_loop, command_line_input): Used this macro. * m-news.h: Created a definition to override this one. * utils.c (fprintf_filtered): Made line_size static (clueless). * utils.c (fprintf_filtered): Changed max length of line printed to be 255 chars or twice the format length. * symmetry-dep.c, m-symmetry: Fixed typo (^L ==> ). * printcmd.c (do_examine): Fixed typo (\n ==> \t). Wed Feb 22 16:00:33 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) Contributed by Jay Vosburgh (jay@mentor.cc.purdue.edu) * m-symmetry.h, symmetry-dep.c: Created. * Makefile: Added above in appropriate lists. * config.gdb: Added "symmetry" target. * utils.c (prompt_for_continue): Zero'd chars_printed also. * utils.c (fprintf_filtered): Call prompt for continue instead of doing it yourself. * dbxread.c (read_dbx_symtab): Added code to conditionalize what symbol type holds to "x.o" or "-lx" symbol that indicates the beginning of a new file. Tue Feb 21 16:22:13 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * gdb.texinfo: Deleted @ignore block at end of file. * findvar.c, stack.c: Changed comments that refered to "frame address" to "frame id". * findvar.c (locate_var_value): Modified so that taking the address of an array generates an object whose type is a pointer to the elements of the array. Sat Feb 18 16:35:14 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * gdb.texinfo: Removed reference to "!" as a shell escape character. Added a section on controling screen output (pagination); changing "Input" section to "User Interface" section. Changed many inappropriate subsubsection nodes into subsections nodes (in the readline and history expansion sections). Fri Feb 17 11:10:54 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * utils.c (set_screensize_command): Created. (_initialize_utils): Added above to setlist. * main.c (main): Added check to see if ~/.gdbinit and .gdbinit were the same file; only one gets read if so. Had to include sys/stat.h for this. * valprint.c (type_print_base): Changed calls to print_spaces to print_spaces_filtered. * main.c (command_line_input): Chaned test for command line editing to check for stdin and isatty. * main.c (command_loop): Call reinitialize_more_filter before each command (if reading from stdin and it's a tty). utils.c (initialize_more_filter): Changed name to reinitialize_more_filter; killed arguments. utils.c (_initialize_utils): Created; initialized lines_per_page and chars_per_line here. * utils.c (fprintf_filtered): Removed printing of "\\\n" after printing linesize - 1 chars; assume that the screen display will take care of that. Still watching that overflow. * main.c: Created the global variables linesize and pagesize to describe the number of chars per line and lines per page. Thu Feb 16 17:27:43 1989 Randall Smith (randy at gluteus.ai.mit.edu) * printcmd.c (do_examine, print_scalar_formatted, print_address, whatis_command, do_one_display, ptype_command), valprint.c (value_print, val_print, type_print_method_args, type_print_1, type_print_derivation_info, type_print_varspec_suffix, type_print_base), breakpoint.c (breakpoints_info, breakpoint_1), values.c (history_info), main.c (editing_info, warranty_info, copying_info), infcmd.c (registers_info), inflow.c (term_status_command), infrun.c (signals_info), stack.c (backtrace_command, print_frame_info), symtab.c (list_symbols, output_source_filename), command.c (help_cmd, help_list, help_command_list): Replaced calls to printf, fprintf, and putc with calls to [f]printf_filtered to handle more processing. Killed local more emulations where I noticed them. Wed Feb 15 15:27:36 1989 Randall Smith (randy at gluteus.ai.mit.edu) * defs.h, utils.c (initialize_more_filter, fprintf_filtered, printf_filtered): Created a printf that will also act as a more filter, prompting the user for a whenever the page length is overflowed. * symtab.c (list_symbols): Elminated some code inside of an #if 0. Tue Feb 14 11:11:24 1989 Randall Smith (randy at gluteus.ai.mit.edu) * Makefile: Turned off backup versions for this file; it changes too often. * command.c (lookup_cmd, _initialize_command): Changed '!' so that it was no longer a shell escape. "sh" must be used. * main.c (command_line_input, set_history_expansion, initialize_main): Turned history expansion on, made it the default, and only execute it if the first character in the line is a '!'. * version.c, gdb.texinfo: Moved version to 3.2 (as usual, jumping the gun some time before release). * gdb.texinfo: Added sections (adapted from Brian's notes) on command line editing and history expansion. * main.c (set_command_editing, initialize_main): Modified name to set_editing and modified command to "set editing". * Makefile: Put in dependencies for READLINEOBJS. * main.c (history_info, command_info): Combined into new command info; deleted history_info. (initialize_main): Deleted "info history" command; it was interfering with the value history. * coffread.c (enter_linenos): Modified to do bit copy instead of pointer dereference, since the clipper machine can't handle having longs on short boundaries. (read_file_hdr): Added code to get number of syms for clipper. * stack.c (return_command): Fixed method for checking when all of the necessary frames had been popped. * dbxread.c (read_dbx_symtab (ADD_PSYMBOL_TO_LIST)): Fixed typo in allocation length. Mon Feb 13 10:03:27 1989 Randall Smith (randy at gluteus.ai.mit.edu) * dbxread.c (read_dbx_symtab): Split assignment to namestring into several different assignments (so that it wouldn't be done except when it had to be). Shortened switches and duplicated code to produce the lowest possible execution time. Commented (at top of switch) which code I duplicated. * dbxread.c (read_dbx_symtab): Modified which variables were register and deleted several variables which weren't used. Also eliminated 'F' choice from subswitch, broke out strcmp's, reversed compare on line 1986, and elminated test for !namestring[0]; it is caught by following test for null index of ':'. Sun Feb 12 12:57:56 1989 Randall Smith (randy at plantaris.ai.mit.edu) * main.c (gdb_completer_word_break_characters): Turned \~ into ~. Sat Feb 11 15:39:06 1989 Randall Smith (randy at plantaris.ai.mit.edu) * symtab.c (find_pc_psymtab): Created; checks all psymtab's till it finds pc. (find_pc_symtab): Used; fatal error if psymtab found is readin (should have been caught in symtab loop). (lookup_symbol): Added check before scan through partial symtab list for symbol name to be on the misc function vector (only if in VAR_NAMESPACE). Also made sure that psymtab's weren't fooled with if they had already been read in. (list_symbols): Checked through misc_function_vector for matching names if we were looking for functions. (make_symbol_completion_list): Checked through misc_function_vector for matching names. * dbxread.c (read_dbx_symtab): Don't bother to do processing on global function types; this will be taken care of by the misc_function hack. * symtab.h: Modified comment on misc_function structure. Fri Feb 10 18:09:33 1989 Randall Smith (randy at plantaris.ai.mit.edu) * symseg.h, dbxread.c (read_dbx_symtab, init_psymbol_list, start_psymtab, end_psymtab), coffread.c (_initialize_coff), symtab.c (lookup_partial_symbol, list_symbols, make_symbol_completion_list): Changed separate variables for description of partial symbol allocation into a specific kind of structure. (read_dbx_symtab, process_symbol_for_psymtab): Moved most of process_symbol_for_psymtab up into read_dbx_symtab, moved a couple of symbol types down to the ingore section, streamlined (I hope) code some, modularized access to psymbol lists. Thu Feb 9 13:21:19 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * main.c (command_line_input): Made sure that it could recognize newlines as indications to repeat the last line. * symtab.c (_initialize_symtab): Changed size of builtin_type_void to be 1 for compatibility with gcc. * main.c (initialize_main): Made history_expansion the default when gdb is compiled with HISTORY_EXPANSION. * readline.c, readline.h, history.c, history.h, general.h, emacs_keymap.c, vi_keymap.c, keymaps.c, funmap.c: Made all of these links to /gp/gnu/bash/* to keep them updated. * main.c (initialize_main): Made default be command editing on. Wed Feb 8 13:32:04 1989 & Smith (randy at hobbes) * dbxread.c (read_dbx_symtab): Ignore N_BSLINE on first readthrough. * Makefile: Removed convex-dep.c from list of distribution files. Tue Feb 7 14:06:25 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * main.c: Added command lists sethistlist and unsethistlist to accesible command lists. (parse_binary_operation): Created to parse a on/1/yes vs. off/0/no spec. (set_command_edit, set_history, set_history_expansion, set_history_write, set_history_size, set_history_filename, command_info, history_info): Created to allow users to control various aspects of command line editing. * main.c (symbol_creation_function): Created. (command_line_input, initialize_main): Added rest of stuff necessary for calling bfox' command editing routines under run-time control. * Makefile: Included readline and history source files for command editing; also made arrangements to make sure that the termcap library was available. * symtab.c (make_symbol_completion_list): Created. Mon Feb 6 16:25:25 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * main.c: Invented variables to control command editing. command_editing_p, history_expansion_p, history_size, write_history_p, history_filename. Initialized them to default values in initialize_main. * infcmd.c (registers_info), infrun.c (signals_info), * main.c (gdb_read_line): Changed name to command_line_input. (readline): Changed name to gdb_readline; added second argument indicating that the read value shouldn't be saved (via malloc). * infcmd.c (registers_info), infrun.c (signals_info), main.c (copying_info), symtab.c (output_source_filename, MORE, list_symbols): Converted to use gdb_readline in place of gdb_read_line. Sun Feb 5 17:34:38 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * blockframe.c (get_frame_saved_regs): Removed macro expansion that had accidentally been left in the code. Sat Feb 4 17:54:14 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * main.c (gdb_read_line, readline): Added function readline and converted gdb_read_line to use it. This was a conversion to the line at a time style of input, in preparation for full command editing. Fri Feb 3 12:39:03 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (read_dbx_symtab): Call end_psymtab at the end of read_dbx_symtab if any psymtab still needs to be completed. * config.gdb, sun3-dep.c: Brought these into accord with the actual sun2 status (no floating point period; sun3-dep.c unless has os > 3.0). * m-sun2os2.h: Deleted; not needed. * config.gdb: Added a couple of aliases for machines in the script. * infrun.c: Added inclusion of aouthdr.h inside of #ifdef UMAX because ptrace needs to know about the a.out header. * Makefile: Made dep.o depend on dep.c and config.status only. * expread.y: Added declarations of all of the new write_exp_elt functions at the include section in the top. * Makefile: Added a YACC definition so that people can use bison if they wish. * Makefile: Added rms' XGDB-README to the distribution. * Makefile: Added removal of init.o on a "make clean". Thu Feb 2 16:27:06 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * *-dep.c: Deleted definition of COFF_FORMAT if AOUTHDR was defined since 1) We *may* (recent mail message) want to define AOUTHDR under a basically BSD system, and 2) AOUTHDR is sometimes a typedef in coff encapsulation setups. Also removed #define's of AOUTHDR if AOUTHDR is already defined (inside of coff format). * core.c, dbxread.c: Removed #define's of AOUTHDR if AOUTHDR is already defined (inside of coff format). Tue Jan 31 12:56:01 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * GDB 3.1 released. * values.c (modify_field): Changed test for endianness to assign to integer and reference character (so that all bits would be defined). Mon Jan 30 11:41:21 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * news-dep.c: Deleted inclusion of fcntl.h; just duplicates stuff found in sys/file.h. * i386-dep.c: Included default definition of N_SET_MAGIC for COFF_FORMAT. * config.gdb: Added checks for several different operating systems. * coffread.c (read_struct_type): Put in a flag variable so that one could tell when you got to the end of a structure. * sun3-dep.c (core_file_command): Changed #ifdef based on SUNOS4 to ifdef based on FPU. * infrun.c (restore_inferior_status): Changed error message to "unable to restore previously selected frame". * dbxread.c (read_dbx_symtab): Used intermediate variable in error message reporting a bad symbol type. (scan_file_globals, read_ofile_symtab, read_addl_syms): Data type of "type" changed to unsigned char (which is what it is). * i386-dep.c: Removed define of COFF_FORMAT if AOUTHDR is defined. Removed define of a_magic to magic (taken care of by N_MAGIC). (core_file_command): Zero'd core_aouthdr instead of setting magic to zero. * i386-pinsn.c: Changed jcxz == jCcxz in jump table. (putop): Added a case for 'C'. (OP_J): Added code to handle possible masking of PC value on certain kinds of data. m-i386gas.h: Moved COFF_ENCAPSULATE to before inclusion of m-i386.h and defined NAMES_HAVE_UNDERSCORE. * coffread.c (unrecrod_misc_function, read_coff_symtab): Added symbol number on which error occured to error output. Fri Jan 27 11:55:04 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * Makefile: Removed init.c in make clean. Removed it without -f and with leading - in make ?gdb. Thu Jan 26 15:08:03 1989 Randall Smith (randy at gluteus.ai.mit.edu) Changes to get it to work on gould NP1. * dbxread.c (read_dbx_symtab): Included cases for N_NBDATA and N_NBBSS. (psymtab_to_symtab): Changed declaration of hdr to DECLARE_FILE_HEADERS. Changed access to use STRING_TABLE_SIZE and SYMBOL_TABLE_SIZE. * gld-pinsn.c (findframe): Added declaration of framechain() as FRAME_ADDR. * coffread.c (read_coff_symtab): Avoided treating typedefs as external symbol definitions. Wed Jan 25 14:45:43 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * Makefile: Removed reference to alloca.c. If they need it, they can pull alloca.o from the gnu-emacs directory. * version.c, gdb.texinfo: Updated version to 3.1 (jumping the gun a bit so that I won't forget when I release). * m-sun2.h, m-sun2os2.h, m-sun3os4.h, config.gdb: Modified code so that default includes new sun core, ptrace, and attach-detach. Added defaults for sun 2 os 2. Modifications to reset stack limit back to what it used to be just before exec. All mods inside of #ifdef SET_STACK_LIMIT_HUGE. * main.c: Added global variable original_stack_limit. (main): Set original_stack_limit to original stack limit. * inflow.c: Added inclusion of necessary files and external reference to original_stack_limit. (create_inferior): Reset stack limit to original_stack_limit. * dbxread.c (read_dbx_symtab): Killed PROFILE_SYMBOLS ifdef. * sparc-dep.c (isabranch): Multiplied offset by 4 before adding it to addr to get target. * Makefile: Added definition of SHELL to Makefile. * m-sun2os4.h: Added code to define NEW_SUN_PTRACE, NEW_SUN_CORE, and ATTACH_DETACH. * sun3-dep.c: Added code to avoid fp regs if we are on a sun2. Tue Jan 24 17:59:14 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (read_array_type): Added function. (read_type): Added call to above instead of inline code. * Makefile: Added ${GNU_MALLOC} to the list of dependencies for the executables. Mon Jan 23 15:08:51 1989 Randall Smith (randy at plantaris.ai.mit.edu) * gdb.texinfo: Added paragraph to summary describing languages with which gdb can be run. Also added descriptions of the "info-methods" and "add-file" commands. * symseg.h: Commented a range type as having TYPE_TARGET_TYPE pointing at the containing type for the range (often int). * dbxread.c (read_range_type): Added code to do actual range types if they are defined. Assumed that the length of a range type is the length of the target type; this is a lie, but will do until somebody gets back to me as to what these silly dbx symbols mean. * dbxread.c (read_range_type): Added code to be more picky about recognizing builtins as range types, to treat types defined as subranges of themselves to be subranges of int, and to recognize the char type idiom from dbx as a special case. Sun Jan 22 01:00:13 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-vax.h: Removed definition of FUNCTION_HAS_FRAME_POINTER. * blockframe.c (get_prev_frame_info): Removed default definition and use of above. Instead conditionalized checking for leaf nodes on FUNCTION_START_OFFSET (see comment in code). Sat Jan 21 16:59:19 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (read_range_type): Fixed assumption that integer was always type 1. * gdb.texinfo: Fixed spelling mistake and added a note in the running section making it clear that users may invoke subroutines directly from gdb. * blockframe.c: Setup a default definition for the macro FUNCTION_HAS_FRAME_POINTER. (get_prev_frame_info): Used this macro instead of checking SKIP_PROLOGUE directly. * m-vax.h: Overroad definition; all functions on the vax have frame pointers. Fri Jan 20 12:25:35 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * core.c: Added default definition of N_MAGIC for COFF_FORMAT. * xgdb.c: Installed a fix to keep the thing from dying when there isn't any frame selected. * core.c: Made a change for the UMAX system; needs a different file included if using that core format. * Makefile: Deleted duplicate obstack.h in dbxread.c dependency. * munch: Modified (much simpler) to cover (I hope) all cases. * utils.c (save_cleanups, restore_cleanups): Added functions to allow you to push and pop the chain of cleanups to be done. * defs.h: Declared the new functions. * main.c (catch_errors): Made sure that the only cleanups which would be done were the ones put on the chain *after* the current location. * m-*.h (FRAME_CHAIN_VALID): Removed check on pc in the current frame being valid. * blockframe.c (get_prev_frame_info): Made the assumption that if a frame's pc value was within the first object file (presumed to be /lib/crt0.o), that we shouldn't go any higher. * infrun.c (wait_for_inferior): Do *not* execute check for stop pc at step_resume_break if we are proceeding over a breakpoint (ie. if trap_expected != 0). * Makefile: Added -g to LDFLAGS. * m-news.h (POP_FRAME) Fixed typo. * printcmd.c (print_frame_args): Modified to print out register params in order by .stabs entry, not by register number. * sparc-opcode.h: Changed declaration of (struct arith_imm_fmt).simm to be signed (as per architecture manual). * sparc-pinsn.c (fprint_addr1, print_insn): Forced a cast to an int, so that we really would get signed behaivior (default for sun cc is unsigned). * i386-dep.c (i386_get_frame_setup): Replace function with new function provided by pace to fix bug in recognizing prologue. Thu Jan 19 11:01:22 1989 Randall Smith (randy at plantaris.ai.mit.edu) * infcmd.c (run_command): Changed error message to "Program not restarted." * value.h: Changed "frame" field in value structure to be a FRAME_ADDR (actually CORE_ADDR) so that it could survive across calls. * m-sun.h (FRAME_FIND_SAVED_REGS): Fixed a typo. * value.h: Added lval: "lval_reg_frame_relative" to indicate a register that must be interpeted relative to a frame. Added single entry to value structure: "frame", used to indicate which frame a relative regnum is relative to. * findvar.c (value_from_register): Modified to correctly setup these fields when needed. Deleted section to fiddle with last register copied on little endian machine; multi register structures will always occupy an integral number of registers. (find_saved_register): Made extern. * values.c (allocate_value, allocate_repeat_value): Zero frame field on creation. * valops.c (value_assign): Added case for lval_reg_frame_relative; copy value out, modify it, and copy it back. Desclared find_saved_register as being external. * value.h: Removed addition of kludgy structure; thoroughly commented file. * values.c (free_value, free_all_values, clear_value_history, set_internalvar, clear_internavars): Killed free_value. Wed Jan 18 20:09:39 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * value.h: Deleted struct partial_storage; left over from yesterday. * findvar.c (value_from_register): Added code to create a value of type lval_reg_partsaved if a value is in seperate registers and saved in different places. Tue Jan 17 13:50:18 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * value.h: Added lval_reg_partsaved to enum lval_type and commented enum lval_type. Commented value structure. Added "struct partial_register_saved" to value struct; added macros to deal with structure to value.h. * values.c (free_value): Created; special cases lval_reg_partsaved (which has a pointer to an array which also needs to be free). (free_all_values, clear_value_history, set_internalvar, clear_internalvars): Modified to use free_values. * m-sunos4.h: Changed name to sun3os4.h. * m-sun2os4.h, m-sun4os4.h: Created. * config.gdb: Added configuration entries for each of the above. * Makefile: Added into correct lists. * Makefile: Added dependencies on a.out.encap.h. Made a.out.encap.h dependent on a.out.gnu.h and dbxread.c dependent on stab.gnu.h. * infrun.c, remote.c: Removed inclusion of any a.out.h files in these files; they aren't needed. * README: Added comment about bug reporting and comment about xgdb. * Makefile: Added note to HPUX dependent section warning about problems if compiled with gcc and mentioning the need to add -Ihp-include to CFLAGS if you compile on those systems. Added a note about needing the GNU nm with compilers *of gdb* that use the coff encapsulate feature also. * hp-include: Made symbolic link over to /gp/gnu/binutils. * Makefile: Added TSOBS NTSOBS OBSTACK and REGEX to list of things to delete in "make clean". Also changed "squeakyclean" target as "realclean". * findvar.c (value_from_register): Added assignment of VALUE_LVAL to be lval_memory when that is appropriate (original code didn't bother because it assumed that it was working with a pre lval memoried value). * expread.y (yylex): Changed to only return type THIS if the symbol "$this" is defined in some block superior or equal to the current expression context block. Mon Jan 16 13:56:44 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-*.h (FRAME_CHAIN_VALID): On machines which check the relation of FRAME_SAVED_PC (thisframe) to first_object_file_end (all except gould), make sure that the pc of the current frame also passes (in case someone stops in _start). * findvar.c (value_of_register): Changed error message in case of no inferior or core file. * infcmd.c (registers_info): Added a check for inferior or core file; error message if not. * main.c (gdb_read_line): Modified to take prompt as argument and output it to stdout. * infcmd.c (registers_info, signals_info), main.c (command_loop, read_command_lines, copying_info), symtab.c (decode_line_2, output_source_filename, MORE, list_symbols): Changed calling convention used to call gdb_read_line. * infcmd.c, infrun.c, main.c, symtab.c: Changed the name of the function "read_line" to "gdb_read_line". * breakpoint.c: Deleted external referenced to function "read_line" (not needed by code). Fri Jan 13 12:22:05 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * i386-dep.c: Include a.out.encap.h if COFF_ENCAPSULATE. (N_SET_MAGIC): Defined if not defined by include file. (core_file_command): Used N_SET_MAGIC instead of assignment to a_magic. (exec_file_command): Stuck in a HEADER_SEEK_FD. * config.gdb: Added i386-dep.c as depfile for i386gas choice. * munch: Added -I. to cc to pick up things included by the param file. * stab.gnu.def: Changed name to stab.def (stab.gnu.h needs this name). * Makefile: Changed name here also. * dbxread.c: Changed name of gnu-stab.h to stab.gnu.h. * gnu-stab.h: Changed name to stab.gnu.h. * stab.gnu.def: Added as link to binutils. * Makefile: Put both in in the distribution. Thu Jan 12 11:33:49 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c: Made which stab.h is included dependent on COFF_ENCAPSULATE; either or "gnu-stab.h". * Makefile: Included gnu-stab.h in the list of files to include in the distribution. * gnu-stab.h: Made a link to /gp/gnu/binutils/stab.h * Makefile: Included a.out.gnu.h and m-i386gas.h in list of distribution files. * m-i386gas.h: Changed to include m-i386.h and fiddle with it instead of being a whole new file. * a.out.gnu.h: Made a link to /gp/gnu/binutils/a.out.gnu.h. Chris Hanson's changes to gdb for hp Unix. * Makefile: Modified comments on hpux. * hp9k320-dep.c: #define'd WOPR & moved inclusion of signal.h * inflow.c: Moved around declaratiosn of and inside of USG depends and deleted all SYSV ifdef's (use USG instead). * munch: Modified to accept any number of spaces between the T and the symbol name. Pace's changes to gdb to work with COFF_ENCAPSULATE (robotussin): * config.gdb: Added i386gas to targets. * default-dep.c: Include a.out.encap.h if COFF_ENCAPSULATE. (N_SET_MAGIC): Defined if not defined by include file. (core_file_command): Used N_SET_MAGIC instead of assignment to a_magic. (exec_file_command): Stuck in a HEADER_SEEK_FD. * infrun.c, remote.c: Added an include of a.out.encap.h if COFF_ENCAPSULATE defined. This is commented out in these two files, I presume because the definitions aren't used. * m-i386gas.h: Created. * dbxread.c: Included defintions for USG. (READ_FILE_HEADERS): Now uses HEADER_SEEK_FD if it exists. (symbol_file_command): Deleted use of HEADER_SEEK_FD. * core.c: Deleted extra definition of COFF_FORMAT. (N_MAGIC): Defined to be a_magic if not already defined. (validate_files): USed N_MAGIC instead of reading a_magic. Wed Jan 11 12:51:00 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * remote.c: Upped PBUFSIZ. (getpkt): Added zeroing of c inside loop in case of error retry. * dbxread.c (read_dbx_symtab, process_symbol_for_psymtab): Removed code to not put stuff with debugging symbols in the misc function list. Had been ifdef'd out. * gdb.texinfo: Added the fact that the return value for a function is printed if you use return. * infrun.c (wait_for_inferior): Removed test in "Have we hit step_resume_breakpoint" for sp values in proper orientation. Was in there for recursive calls in functions without frame pointers and it was screwing up calls to alloca. * dbxread.c: Added #ifdef COFF_ENCAPSULATE to include a.out.encap.h. (symbol_file_command): Do HEADER_SEEK_FD when defined. * dbxread.c, core.c: Deleted #ifdef ROBOTUSSIN stuff. * robotussin.h: Deleted local copy (was symlink). * a.out.encap.h: Created symlink to /gp/gnu/binutils/a.out.encap.h. * Makefile: Removed robotussin.h and included a.out.encap.h in list of files. * valprint.c (val_print, print_scalar_formatted): Changed default precision of printing float value; now 6 for a float and 16 for a double. * findvar.c (value_from_register): Added code to deal with the case where a value is spread over several registers. Still don't deal with the case when some registers are saved in memory and some aren't. Tue Jan 10 17:04:04 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * xgdb.c (xgdb_create_window): Removed third arg (XtDepth) to frameArgs. * infrun.c (handle_command): Error if signal number is less or equal to 0 or greater or equal to NSIG or a signal number is not provided. * command.c (lookup_cmd): Modified to not convert command section of command line to lower case in place (in case it isn't a subcommand, but an argument to a command). Fri Jan 6 17:57:34 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c: Changed "text area" to "data area" in comments on N_SETV. Wed Jan 4 12:29:54 1989 Randall Smith (randy at gluteus.ai.mit.edu) * dbxread.c: Added definitions of gnu symbol types after inclusion of a.out.h and stab.h. Mon Jan 2 20:38:31 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * eval.c (evaluate_subexp): Binary logical operations needed to know type to determine whether second value should be evaluated. Modified to discover type before binup_user_defined_p branch. Also commented "enum noside". * Makefile: Changed invocations of munch to be "./munch". * gdb.texinfo: Updated to refer to current version of gdb with January 1989 last update. * coffread.c (end_symtab): Zero context stack when finishing lexical contexts. (read_coff_symtab): error if context stack 0 in ".ef" else case. * m-*.h (FRAME_SAVED_PC): Changed name of argument from "frame" to "FRAME" to avoid problems with replacement of "->frame" part of macro. * i386-dep.c (i386_get_frame_setup): Added codestream_get() to move codestream pointer up to the correct location in "subl $X, %esp" case. Sun Jan 1 14:24:35 1989 Randall Smith (randy at apple-gunkies.ai.mit.edu) * valprint.c (val_print): Rewrote routine to print string pointed to by char pointer; was producing incorrect results when print_max was 0. Fri Dec 30 12:13:35 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * dbxread.c (read_dbx_symtab, process_symbol_for_psymtab): Put everything on the misc function list. * Checkpointed distribution. * Makefile: Added expread.tab.c to the list of things slated for distribution. Thu Dec 29 10:06:41 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * stack.c (set_backtrace_limit_command, backtrace_limit_info, bactrace_command, _initialize_stack): Removed modifications for limit on backtrace. Piping the backtrace through an interuptable "more" emulation is a better way to do it. Wed Dec 28 11:43:09 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * stack.c (set_backtrace_limit_command): Added command to set a limit to the number of frames for a backtrace to print by default. (backtrace_limit_info): To print the current limit. (backtrace_command): To use the limit. (_initialize_stack): To initialize the limit to its default value (30), and add the set and info commands onto the appropriate command lists. * gdb.texinfo: Documented changes to "backtrace" and "commands" commands. * stack.c (backtrace_command): Altered so that a negative argument would show the last few frames on the stack instead of the first few. (_initialize_stack): Modified help documentation. * breakpoint.c (commands_command): Altered so that "commands" with no argument would refer to the last breakpoint set. (_initialize_breakpoint): Modified help documentation. * infrun.c (wait_for_inferior): Removed ifdef on Sun4; now you can single step through compiler generated sub calls and will die if you next off of the end of a function. * sparc-dep.c (single_step): Fixed typo; "break_insn" ==> "sizeof break_insn". * m-sparc.h (INIT_EXTRA_FRAME_INFO): Set the bottom of a stack frame to be the bottom of the stack frame inner from this, if that inner one is a leaf node. * dbxread.c (read_dbx_symtab): Check to make sure we don't add a psymtab to it's own dependency list. * dbxread.c (read_dbx_symtab): Modified check for duplicate dependencies to catch them correctly. Tue Dec 27 17:02:09 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-*.h (FRAME_SAVED_PC): Modified macro to take frame info pointer as argument. * stack.c (frame_info), blockframe.c (get_prev_frame_info), gld-pinsn.c (findframe), m-*.h (SAVED_PC_AFTER_CALL, FRAME_CHAIN_VALID, FRAME_NUM_ARGS): Changed usage of macros to conform to above. * m-sparc.h (FRAME_SAVED_PC), sparc-dep.c (frame_saved_pc): Changed frame_saved_pc to have a frame info pointer as an argument. * m-vax.h, m-umax.h, m-npl.h, infrun.c (wait_for_inferior), blockframe.c (get_prev_frame_info): Modified SAVED_PC_AFTER_CALL to take a frame info pointer as an argument. * blockframe.c (get_prev_frame_info): Altered the use of the macros FRAME_CHAIN, FRAME_CHAIN_VALID, and FRAME_CHAIN_COMBINE to use frame info pointers as arguments instead of frame addresses. * m-vax.h, m-umax.h, m-sun3.h, m-sun3.h, m-sparc.h, m-pn.h, m-npl.h, m-news.h, m-merlin.h, m-isi.h, m-hp9k320.h, m-i386.h: Modified definitions of the above macros to suit. * m-pn.h, m-npl.h, gould-dep.c (findframe): Modified findframe to use a frame info argument; also fixed internals (wouldn't work before). * m-sparc.h: Cosmetic changes; reordered some macros and made sure that nothing went over 80 lines. Thu Dec 22 11:49:15 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * Version 3.0 released. * README: Deleted note about changing -lobstack to obstack.o. Wed Dec 21 11:12:47 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-vax.h (SKIP_PROLOGUE): Now recognizes gcc prologue also. * blockframe.c (get_prev_frame_info): Added FUNCTION_START_OFFSET to result of get_pc_function_start. * infrun.c (wait_for_inferior): Same. * gdb.texinfo: Documented new "step" and "next" behavior in functions without line number information. Tue Dec 20 18:00:45 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * infcmd.c (step_1): Changed behavior of "step" or "next" in a function witout line number information. It now sets the step range around the function (to single step out of it) using the misc function vector, warns the user, and continues. * symtab.c (find_pc_line): Zero "end" subsection of returned symtab_and_line if no symtab found. Mon Dec 19 17:44:35 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * i386-pinsn.c (OP_REG): Added code from pace to streamline disassembly and corrected types. * i386-dep.c (i386_follow_jump): Code added to follow byte and word offset branches. (i386_get_frame_setup): Expanded to deal with more wide ranging function prologue. (i386_frame_find_saved_regs, i386_skip_prologue): Changed to use i386_get_frame_setup. Sun Dec 18 11:15:03 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-sparc.h: Deleted definition of SUN4_COMPILER_BUG; was designed to avoid something that I consider a bug in our code, not theirs, and which I fixed earlier. Also deleted definition of CANNOT_USE_ARBITRARY_FRAME; no longer used anywhere. FRAME_SPECIFICATION_DYADIC used instead. * infrun.c (wait_for_inferior): On the sun 4, if a function doesn't have a prologue, a next over it single steps into it. This gets around the problem of a "call .stret4" at the end of functions returning structures. * m-sparc.h: Defined SUN4_COMPILER_FEATURE. * main.c (copying_info): Seperated the last printf into two printfs. The 386 compiler will now handle it. * i386-pinsn.c, i386-dep.c: Moved print_387_control_word, print_387_status_word, print_387_status, and i386_float_info to dep.c Also included reg.h in dep.c. Sat Dec 17 15:31:38 1988 Randall Smith (randy at gluteus.ai.mit.edu) * main.c (source_command): Don't close instream if it's null (indicating execution of a user-defined command). (execute_command): Set instream to null before executing commands and setup clean stuff to put it back on error. * inflow.c (terminal_inferior): Went back to not checking the ioctl returns; there are some systems when this will simply fail. It seems that, on most of these systems, nothing bad will happen by that failure. * values.c (value_static_field): Fixed dereferencing of null pointer. * i386-dep.c (i386_follow_jump): Modified to deal with unconditional byte offsets also. * dbxread.c (read_type): Fixed typo in function type case of switch. * infcmd.c (run_command): Does not prompt to restart if command is not from a tty. Fri Dec 16 15:21:58 1988 Randy Smith (randy at calvin) * gdb.texinfo: Added a third option under the "Cannot Insert Breakpoints" workarounds. * printcmd.c (display_command): Don't do the display unless there is an active inferior; only set it. * findvar.c (value_of_register): Added an error check for calling this when the inferior isn't active and a core file isn't being read. * config.gdb: Added reminder about modifying REGEX in the makefile for the 386. * i386-pinsn.c, i386-dep.c: Moved m-i386.h helper functions over to i386-dep.c.b Thu Dec 15 14:04:25 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * README: Added a couple of notes about compiling gdb with itself. * breakpoint.c (set_momentary_breakpoint): Only takes FRAME_FP of frame if frame is non-zero. * printcmd.c (print_scalar_formatted): Implemented /g size for hexadecimal format on machines without an 8 byte integer type. It seems to be non-trivial to implement /g for other formats. (decode_format): Allowed hexadecimal format to make it through /g fileter. Wed Dec 14 13:27:04 1988 Randall Smith (randy at gluteus.ai.mit.edu) * expread.y: Converted all calls to write_exp_elt from the parser to calls to one of write_exp_elt_{opcode, sym, longcst, dblcst, char, type, intern}. Created all of these routines. This gets around possible problems in passing one of these things in one ear and getting something different out the other. Eliminated SUN4_COMPILER_BUG ifdef's; they are now superfluous. * symmisc.c (free_all_psymtabs): Reinited partial_symtab_list to 0. (_initialize_symmisc): Initialized both symtab_list and partial_symtab_list. * dbxread.c (start_psymtab): Didn't allocate anything on dependency list. (end_psymtab): Allocate dependency list on psymbol obstack from local list. (add_psymtab_dependency): Deleted. (read_dbx_symtab): Put dependency on local list if it isn't on it already. * symtab.c: Added definition of psymbol_obstack. * symtab.h: Added declaration of psymbol_obstack. * symmisc.c (free_all_psymtabs): Added freeing and reinitionaliztion of psymbol_obstack. * dbxread.c (free_all_psymbols): Deleted. (start_psymtab, end_psymtab, process_symbol_for_psymtab): Changed most allocation of partial symbol stuff to be off of psymbol_obstack. * symmisc.c (free_psymtab, free_all_psymtabs): Deleted free_psymtab subroutine. * symtab.h: Removed num_includes and includes from partial_symtab structure; no longer needed now that all include files have their own psymtab. * dbxread.c (start_psymtab): Eliminated initialization of above. (end_psymtab): Eliminated finalization of above; get includes from seperate list. (read_dbx_symtab): Moved includes from psymtab list to their own list; included in call to end_psymtab. * symmisc.c (free_psymtab): Don't free includes. Tue Dec 13 14:48:14 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * i386-pinsn.c: Reformatted entire file to correspond to gnu software indentation conventions. * sparc-dep.c (skip_prologue): Added capability of recognizign stores of input register parameters into stack slots. * sparc-dep.c: Added an include of sparc-opcode.h. * sparc-pinsn.c, sparc-opcode.h: Moved insn_fmt structures and unions from pinsn.c to opcode.h. * sparc-pinsn.c, sparc-dep.c (isabranch, skip_prologue): Moved this function from pinsn.c to dep.c. * Makefile: Put in warnings about compiling with gcc (non-ansi include files) and compiling with shared libs on Sunos 4.0 (can't debug something that's been compiled that way). * sparc-pinsn.c: Put in a completely new file (provided by Tiemann) to handle floating point disassembly, load and store instructions, and etc. better. Made the modifications this file (ChangeLog) list for sparc-pinsn.c again. * symtab.c (output_source_filename): Included "more" emulation hack. * symtab.c (output_source_filename): Initialized COLUMN to 0. (sources_info): Modified to not print out a line for all of the include files within a partial symtab (since they have pst's of their own now). Also modified to make a distinction between those pst's read in and those not. * infrun.c: Included void declaration of single_step() if it's going to be used. * sparc-dep.c (single_step): Moved function previous to use of it. * Makefile: Took removal of expread.tab.c out of make clean entry and put it into a new "squeakyclean" entry. Mon Dec 12 13:21:02 1988 Randall Smith (randy at gluteus.ai.mit.edu) * sparc-pinsn.c (skip_prologue): Changed a struct insn_fmt to a union insn_fmt. * inflow.c (terminal_inferior): Checked *all* return codes from ioctl's and fcntl's in routine. * inflow.c (terminal_inferior): Added check for sucess of TIOCSPGRP ioctl call. Just notifies if bad. * dbxread.c (symbol_file_command): Close was getting called twice; once directly and once through cleanup. Killed the direct call. Sun Dec 11 19:40:40 1988 & Smith (randy at hobbes.ai.mit.edu) * valprint.c (val_print): Deleted spurious printing of "=" from TYPE_CODE_REF case. Sat Dec 10 16:41:07 1988 Randall Smith (randy at gluteus.ai.mit.edu) * dbxread.c: Changed allocation of psymbols from using malloc and realloc to using obstacks. This means they aren't realloc'd out from under the pointers to them. Fri Dec 9 10:33:24 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * sparc-dep.c inflow.c core.c expread.y command.c infrun.c infcmd.c dbxread.c symmisc.c symtab.c printcmd.c valprint.c values.c source.c stack.c findvar.c breakpoint.c blockframe.c main.c: Various cleanups inspired by "gcc -Wall" (without checking for implicit declarations). * Makefile: Cleaned up some more. * valops.c, m-*.h (FIX_CALL_DUMMY): Modified to take 5 arguments as per what sparc needs (programming for a superset of needed args). * dbxread.c (process_symbol_for_psymtab): Modified to be slightly more picky about what it puts on the list of things *not* to be put on the misc function list. When/if I shift everything over to being placed on the misc_function_list, this will go away. * inferior.h, infrun.c: Added fields to save in inferior_status structure. * maketarfile: Deleted; functionality is in Makefile now. * infrun.c (wait_for_inferior): Modified algorithm for determining whether or not a single-step was through a subroutine call. See comments at top of file. * dbxread.c (read_dbx_symtab): Made sure that the IGNORE_SYMBOL macro would be checked during initial readin. * dbxread.c (read_ofile_symtab): Added macro GCC_COMPILED_FLAG_SYMBOL into dbxread.c to indicate what string in a local text symbol will indicate a file compiled with gcc. Defaults to "gcc_compiled.". Thu Dec 8 11:46:22 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-sparc.h (FRAME_FIND_SAVED_REGS): Cleaned up a little to take advantage of the new frame cache system. * inferior.h, infrun.c, valops.c, valops.c, infcmd.c: Changed mechanism to save inferior status over calls to inferior (eg. call_function); implemented save_inferior_info and restore_inferior_info. * blockframe.c (get_prev_frame): Simplified this by a direct call to get_prev_frame_info. * frame.h, stack.c, printcmd.c, m-sparc.h, sparc-dep.c: Removed all uses of frame_id_from_addr. There are short routines like it still in frame_saved_pc (m-sparc.h) and parse_frame_spec (stack.c). Eventually the one in frame_saved_pc will go away. * infcmd.c, sparc-dep.c: Implemented a new mechanism for re-selecting the selected frame on return from a call. * blockframe.c, stack.c, findvar.c, printcmd.c, m-*.h: Changed all routines and macros that took a "struct frame_info" as an argument to take a "struct frame_info *". Routines: findarg, framechain, print_frame_args, FRAME_ARGS_ADDRESS, FRAME_STRUCT_ARGS_ADDRESS, FRAME_LOCALS_ADDRESS, FRAME_NUM_ARGS, FRAME_FIND_SAVED_REGS. * frame.h, stack.c, printcmd.c, infcmd.c, findvar.c, breakpoint.c, blockframe.c, xgdb.c, i386-pinsn.c, gld-pinsn.c, m-umax.h, m-sun2.h, m-sun3.h, m-sparc.h, m-pn.h, m-npl.h, m-news.h, m-merlin.h, m-isi.h, m-i386.h, m-hp9k320.h: Changed routines to use "struct frame_info *" internally. Wed Dec 7 12:07:54 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * frame.h, blockframe.c, m-sparc.h, sparc-dep.c: Changed all calls to get_[prev_]frame_cache_item to get_[prev_]frame_info. * blockframe.c: Elminated get_frame_cache_item and get_prev_frame_cache_item; functionality now taken care of by get_frame_info and get_prev_frame_info. * blockframe.c: Put allocation on an obstack and eliminated fancy reallocation routines, several variables, and various nasty things. * frame.h, stack.c, infrun.c, blockframe.c, sparc-dep.c: Changed type FRAME to be a typedef to "struct frame_info *". Had to also change routines that returned frame id's to return the pointer instead of the cache index. * infcmd.c (finish_command): Used proper method of getting from function symbol to start of function. Was treating a symbol as a value. * blockframe.c, breakpoint.c, findvar.c, infcmd.c, stack.c, xgdb.c, i386-pinsn.c, frame.h, m-hp9k320.h, m-i386.h, m-isi.h, m-merlin.h, m-news.h, m-npl.h, m-pn.h, m-sparc.h, m-sun2.h, m-sun3.h, m-umax.h: Changed get_frame_info and get_prev_frame_info to return pointers instead of structures. * blockframe.c (get_pc_function_start): Modified to go to misc function table instead of bombing if pc was in a block without a containing function. * coffread.c: Dup'd descriptor passed to read_coff_symtab and fdopen'd it so that there wouldn't be multiple closes on the same fd. Also put (fclose, stream) on the cleanup list. * printcmd.c, stack.c: Changed print_frame_args to take a frame_info struct as argument instead of the address of the args to the frame. * m-i386.h (STORE_STRUCT_RETURN): Decremented sp by sizeof object to store (an address) rather than 1. * dbxread.c (read_dbx_symtab): Set first_object_file_end in read_dbx_symtab (oops). * coffread.c (fill_in_vptr_fieldno): Rewrote TYPE_BASECLASS as necessary. Tue Dec 6 13:03:43 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * coffread.c: Added fake support for partial_symtabs to allow compilation and execution without there use. * inflow.c: Added a couple of minor USG mods. * munch: Put in appropriate conditionals so that it would work on USG systems. * Makefile: Made regex.* handled same as obstack.*; made sure tar file included everything I wanted it to include (including malloc.c). * dbxread.c (end_psymtab): Create an entry in the partial_symtab_list for each subfile of the .o file just read in. This allows a "list expread.y:10" to work when we haven't read in expread.o's symbol stuff yet. * symtab.h, dbxread.c (psymtab_to_symtab): Recognize pst->ldsymlen == 0 as indicating a dummy psymtab, only in existence to cause the dependency list to be read in. * dbxread.c (sort_symtab_syms): Elminated reversal of symbols to make sure that register debug symbol decls always come before parameter symbols. After mod below, this is not needed. * symtab.c (lookup_block_symbol): Take parameter type symbols (LOC_ARG or LOC_REGPARM) after any other symbols which match. * dbxread.c (read_type): When defining a type in terms of some other type and the other type is supposed to have a pointer back to this specific kind of type (pointer, reference, or function), check to see if *that* type has been created yet. If it has, use it and fill in the appropriate slot with a pointer to it. Mon Dec 5 11:25:04 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * symmisc.c: Eliminated existence of free_inclink_symtabs and init_free_inclink_symtabs; they aren't called from anywhere, and if they were they could disrupt gdb's data structure badly (elimination of struct type's which values that stick around past elimination of inclink symtabs). * dbxread.c (symbol_file_command): Fixed a return pathway out of the routine to do_cleanups before it left. * infcmd.c (set_environment_command), gdb.texinfo: Added capability to set environmental variable values to null. * gdb.texinfo: Modified doc on "break" without args slightly. Sun Dec 4 17:03:16 1988 Randall Smith (randy at gluteus.ai.mit.edu) * dbxread.c (symbol_file_command): Added check; if there weren't any debugging symbols in the file just read, the user is warned. * infcmd.c: Commented set_environment_command (a little). * createtags: Cleaned up and commented. * Makefile: Updated depen_memory and write_inferior_memory in that errno is checked after each ptrace and returned to the caller. Used in value_at to detect references to addresses which are out of bounds. Also core.c (xfer_core_file): return 1 if invalid address, 0 otherwise. * inflow.c, -infdep.c: removed all calls to ptrace from inflo, m-sun3.h: Cleaned up dealings with functions returning structu0 19:19:36 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * symmisc.c: (read_symsegs) Accept only format number 2. Since the size of the type structure changed when C++ support was added, format 1 can no longer be used. * core.c, m-sunos4.h: (core_file_command) support for SunOS 4.0. Slight change in the core structure. #ifdef SUNOS4. New file m-sunos4.h. May want to change config.gdb also. Fri Jul 8 19:59:49 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * breakpoint.c: (break_command_1) Allow `break if condition' rather than parsing `if' as a function name and returning an error. Thu Jul 7 22:22:47 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * C++: valops.c, valprint.c, value.h, values.c: merged code to deal with C++ expressions. Wed Jul 6 03:28:18 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * C++: dbxread.c: (read_dbx_symtab, condense_misc_bunches, add_file_command) Merged code to read symbol information from an incrementally linked file. symmisc.c: (init_free_inclink_symtabs, free_inclink_symtabs) Cleanup routines. Tue Jul 5 02:50:41 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * C++: symtab.c, breakpoint.c, source.c: Merged code to deal with ambiguous line specifications. In C++ one can have overloaded function names, so that `list classname::overloadedfuncname' refers to several different lines, possibly sure currently configured machine dependent files come first in e at corn-chex.ai.mit.edu) * C++: symtab.c: replaced lookup_symtab_1 and lookup_symtab_2 with a modified lookup_symbol which checks for fields of the current implied argument `this'. printcmd.c, source.c, symtab.c, valops.c: Need to change callers once callers are installed. Wed Jun 29 01:26:56 1988 Peter TerMaat (pete at frosted-flakes.ai.mit.edu) * C++: eval.c, expprint.c, expread.y, expression.h, valarith.c, Merged code to deal with evaluation of user-defined operators, member functions, and virtual functions. binop_must_be_user_defined tests for user-defined binops, value_x_binop calls the appropriate operator function. Tue Jun 28 02:56:42 1988 Peter TerMaat (pete at frosted-flakes.ai.mit.edu) * C++: Makefile: changed the echo: expect 101 shift/reduce conflicts and 1 reduce/reduce conflict. Local Variables: mode: indented-text eval: (auto-fill-mode 1) left-margin: 8 fill-column: 74 version-control: never End: ng destructors and constructors, and flags being defined via public and via virtual paths. Added fields NEXT_VARIANT, N_BASECLASSES, and BASECLASSES to this type (tr: Changed types from having to be derived from a single baseclass to a multiple base class). * symtab.h: Added macros to access new fields defined in symseg.h. Added decl for lookup_basetype_type. * dbxread.c (condense_addl_misc_bunches): Function added to condense the misc function bunches added by reading in a new .o file. (read_addl_syms): Function added to read in symbols from a new .o file (incremental linking). (add_file_command): Command interface function to indicate incrmental linking of a new .o file; this now calls read_addl_syms and condense_addl_misc_bunches. (define_symbol): Modified code to handle types defined from base types which were not known when the derived class was output. (read_struct_type): Modified to better handle description of struct types as derived types. Possibly derived from several different base classes. Also added new code to mark definitions via virtual paths or via public paths. Killed seperate code to handle classes with destructors but without constructors and improved marking of classes as having destructors and constructors. * infcmd.c: Modified call to val_print (one more argument). * symtab.c (lookup_member_type): Modified to deal with new structure in symseg.h. (lookup_basetype_type): Function added to find or construct a type ?derived? from the given type. (decode_line_1): Modified to deal with new type data structures. Modified to deal with new number of args for decode_line_2. (decode_line_2): Changed number of args (?why?). (init_type): Added inits for new C++ fields from symseg.h. *valarith.c (value_x_binop, value_binop): Added cases for BINOP_MIN & BINOP_MAX. * valops.c (value_struct_elt, check_field, value_struct_elt_for_address): Changed to deal with multiple possible baseclasses. (value_of_this): Made SELECTED_FRAME an extern variable. * valprint.c (val_print): Added an argument DEREF_REF to dereference references automatically, instead of printing them like pointers. Changed number of arguments in recursive calls to itself. Changed to deal with varibale numbers of base classes. (value_print): Changed number of arguments to val_print. Print type of value also if value is a reference. (type_print_derivation_info): Added function to print out derivation info a a type. (type_print_base): Modified to use type_print_derivation_info and to handle multiple baseclasses. Mon Nov 21 10:32:07 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * inflow.c (term_status_command): Add trailing newline to output. * sparc-dep.c (do_save_insn, do_restore_insn): Saved "stop_registers" over the call for the sake of normal_stop and run_stack_dummy. * m-sparc.h (EXTRACT_RETURN_VALUE): Put in parenthesis to force addition of 8 to the int pointer, not the char pointer. * sparc-pinsn.c (print_addr1): Believe that I have gotten the syntax right for loads and stores as adb does it. * symtab.c (list_symbols): Turned search for match on rexegp into a single loop. * dbxread.c (psymtab_to_symtab): Don't read it in if it's already been read in. * dbxread.c (psymtab_to_symtab): Changed error to fatal in psymtab_to_symtab. * expread.y (parse_number): Fixed bug which treated 'l' at end of number as '0'. Fri Nov 18 13:57:33 1988 Randall Smith (randy at gluteus.ai.mit.edu) * dbxread.c (read_dbx_symtab, process_symbol_for_psymtab): Was being foolish and using pointers into an array I could realloc. Converted these pointers into integers. Wed Nov 16 11:43:10 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-sparc.h (POP_FRAME): Made the new frame be PC_ADJUST of the old frame. * i386-pinsn.c, m-hp9k320.h, m-isi.h, m-merlin.h, m-news.h, m-npl.h, m-pn.h, m-sparc.h, m-sun2.h, m-sun3.h, m-umax.h, m-vax.h: Modified POP_FRAME to use the current frame instead of read_register (FP_REGNUM) and to flush_cached_frames before setting the current frame. Also added a call to set the current frame in those POP_FRAMEs that didn't have it. * infrun.c (wait_for_inferior): Moved call to set_current_frame up to guarrantee that the current frame will always be set when a POP_FRAME is done. * infrun.c (normal_stop): Added something to reset the pc of the current frame (was incorrect because of DECR_PC_AFTER_BREAK). * valprint.c (val_print): Changed to check to see if a string was out of bounds when being printed and to indicate this if so. * convex-dep.c (read_inferior_memory): Changed to return the value of errno if the call failed (which will be 0 if the call suceeded). Tue Nov 15 10:17:15 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * infrun.c (wait_for_inferior): Two changes: 1) Added code to not trigger the step breakpoint on recursive calls to functions without frame info, and 2) Added calls to distinguish recursive calls within a function without a frame (which next/nexti might wish to step over) from jumps to the beginning of a function (which it generally doesn't). * m-sparc.h (INIT_EXTRA_FRAME_INFO): Bottom set correctly for leaf parents. * blockframe.c (get_prev_frame_cache_item): Put in mod to check for a leaf node (by presence or lack of function prologue). If there is a leaf node, it is assumed that SAVED_PC_AFTER_CALL is valid. Otherwise, FRAME_SAVED_PC or read_pc is used. * blockframe.c, frame.h: Did final deletion of unused routines and commented problems with getting a pointer into the frame cache in the frame_info structure comment. * blockframe.c, frame.h, stack.c: Killed use of frame_id_from_frame_info; used frame_id_from_addr instead. * blockframe.c, frame.h, stack.c, others (oops): Combined stack cache and frame info structures. * blockframe.c, sparc-dep.c, stack.c: Created the function create_new_frame and used it in place of bad calls to frame_id_from_addr. * blockframe.c, inflow.c, infrun.c, i386-pinsn.c, m-hp9k320.h, m-npl.h, m-pn.h, m-sparc.h, m-sun3.h, m-vax.h, default-dep.c, convex-dep.c, gould-dep.c, hp9k320-dep.c, news-dep.c, sparc-dep.c, sun3-dep.c, umax-dep.c: Killed use of set_current_Frame_by_address. Used set_current_frame (create_new_frame...) instead. * frame.h: Killed use of FRAME_FP_ID. * infrun.c, blockframe.c: Killed select_frame_by_address. Used select_frame (get_current_frame (), 0) (which was correct in all cases that we need to worry about. Mon Nov 14 14:19:32 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * frame.h, blockframe.c, stack.c, m-sparc.h, sparc-dep.c: Added mechanisms to deal with possible specification of frames dyadically. Sun Nov 13 16:03:32 1988 Richard Stallman (rms at sugar-bombs.ai.mit.edu) * ns32k-opcode.h: Add insns acbw, acbd. Sun Nov 13 15:09:58 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * breakpoint.c: Changed breakpoint structure to use the address of a given frame (constant across inferior runs) as the criteria for stopping instead of the frame ident (which varies across inferior calls). Fri Nov 11 13:00:22 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * gld-pinsn.c (findframe): Modified to work with the new frame id's. Actually, it looks as if this routine should be called with an address anyway. * findvar.c (find_saved_register): Altered bactrace loop to work off of frames and not frame infos. * frame.h, blockframe.c, stack.c, sparc-dep.c, m-sparc.h: Changed FRAME from being the address of the frame to being a simple ident which is an index into the frame_cache_item list. * convex-dep.c, default-dep.c, gould-dep.c, hp9k320-dep.c, i386-pinsn.c, inflow.c, infrun.c, news-dep.c, sparc-dep.c, sun3-dep.c, umax-dep.c, m-hp9k320.h, m-npl.h, m-pn.h, m-sparc.h, m-sun3.h, m-vax.h: Changed calls of the form set_current_frame (read_register (FP_REGNUM)) to set_current_frame_by_address (...). Thu Nov 10 16:57:57 1988 Randall Smith (randy at gluteus.ai.mit.edu) * frame.h, blockframe.c, gld-pinsn.c, sparc-dep.c, stack.c, infrun.c, findvar.c, m-sparc.h: Changed the FRAME type to be purely an identifier, using FRAME_FP and FRAME_FP_ID to convert back and forth between the two. The identifier is *currently* still the frame pointer value for that frame. Wed Nov 9 17:28:14 1988 Chris Hanson (cph at kleph) * m-hp9k320.h (FP_REGISTER_ADDR): Redefine this to return difference between address of given FP register, and beginning of `struct user' that it occurs in. * hp9k320-dep.c (core_file_command): Fix sign error in size argument to myread. Change buffer argument to pointer; was copying entire structure. (fetch_inferior_registers, store_inferior_registers): Replace occurrences of `FP_REGISTER_ADDR_DIFF' with `FP_REGISTER_ADDR'. Flush former definition. Wed Nov 9 12:11:37 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * xgdb.c: Killed include of initialize.h. * Pulled in xgdb.c from the net. * Checkpointed distribution (to provide to 3b2 guy). * coffread.c, dbxread.c, symmisc.c, symtab.c, symseg.h: Changed format of table of line number--pc mapping information. Can handle negative pc's now. * command.c: Deleted local copy of savestring; code in utils.c is identical. Tue Nov 8 11:12:16 1988 Randall Smith (randy at plantaris.ai.mit.edu) * gdb.texinfo: Added documentation for shell escape. Mon Nov 7 12:27:16 1988 Randall Smith (randy at sugar-bombs.ai.mit.edu) * command.c: Added commands for shell escape. * core.c, dbxread.c: Added ROBOTUSSIN mods. * Checkpointed distribution. * printcmd.c (x_command): Yanked error if there is no memory to examine (could be looking at executable straight). * sparc-pinsn.c (print_insn): Amount to leftshift sethi imm by is now 10 (matches adb in output). * printcmd.c (x_command): Don't attempt to set $_ & $__ if there is no last_examine_value (can happen if you did an x/0). Fri Nov 4 13:44:49 1988 Randall Smith (randy at gluteus.ai.mit.edu) * printcmd.c (x_command): Error if there is no memory to examine. * gdb.texinfo: Added "cont" to the command index. * sparc-dep.c (do_save_insn): Fixed typo in shift amount. * m68k-opcode.h: Fixed opcodes for 68881. * breakpoint.c, infcmd.c, source.c: Changed defaults in several places for decode_line_1 to work off of the default_breakpoint_* values instead of current_source_* values (the current_source_* values are off by 5 or so because of listing defaults). * stack.c (frame_info): ifdef'd out FRAME_SPECIFCATION_DYADIC in the stack.c module. If I can't do this right, I don't want to do it at all. Read the comment there for more info. Mon Oct 31 16:23:06 1988 Randall Smith (randy at gluteus.ai.mit.edu) * gdb.texinfo: Added documentation on the "until" command. Sat Oct 29 17:47:10 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * breakpoint.c, infcmd.c: Added UNTIL_COMMAND and subroutines of it. * breakpoint.c, infcmd.c, infrun.c: Added new field to breakpoint structure (silent, indicating a silent breakpoint), and modified breakpoint_stop_status and things that read it's return value to understand it. Fri Oct 28 17:45:33 1988 Randall Smith (randy at gluteus.ai.mit.edu) * dbxread.c, symmisc.c: Assorted speedups for readin, including special casing most common symbols, and doing buffering instead of calling malloc. Thu Oct 27 11:11:15 1988 Randall Smith (randy at gluteus.ai.mit.edu) * stack.c, sparc-dep.c, m-sparc.h: Modified to allow "info frame" to take two arguments on the sparc and do the right thing with them. * dbxread.c (read_dbx_symtab, process_symbol_for_psymtab): Put stuff to put only symbols that didn't have debugging info on the misc functions list back in. Wed Oct 26 10:10:32 1988 Randall Smith (randy at gluteus.ai.mit.edu) * valprint.c (type_print_varspec_suffix): Added check for TYPE_LENGTH(TYPE_TARGET_TYPE(type)) > 0 to prevent divide by 0. * printcmd.c (print_formatted): Added check for VALUE_REPEATED; value_print needs to be called for that. * infrun.c (wait_for_inferior): Added break when you decide to stop on a null function prologue rather than continue stepping. * m-sun3.h: Added explanatory comment to REGISTER_RAW_SIZE. * expread.y (parse_c_1): Initialized paren_depth for each parse. Tue Oct 25 14:19:38 1988 Randall Smith (randy at gluteus.ai.mit.edu) * valprint.c, coffread.c, dbxread.c: Enum constant values in enum type now accessed through TYPE_FIELD_BITPOS. * dbxread.c (process_symbol_for_psymtab): Added code to deal with possible lack of a ":" in a debugging symbol (do nothing). * symtab.c (decode_line_1): Added check in case of all numbers for complete lack of symbols. * source.c (select_source_symtab): Made sure that this wouldn't bomb on complete lack of symbols. Mon Oct 24 12:28:29 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-sparc.h, findvar.c: Ditched REGISTER_SAVED_UNIQUELY and based code on REGISTER_IN_WINDOW_P and HAVE_REGISTER_WINDOWS. This will break when we find a register window machine which saves the window registers within the context of an inferior frame. * sparc-dep.c (frame_saved_pc): Put PC_ADJUST return back in for frame_saved_pc. Seems correct. * findvar.c, m-sparc.h: Created the macro REGISTER_SAVED_UNIQUELY to handle register window issues (ie. that find_saved_register wasn't checking the selected frame itself for shit). * sparc-dep.c (core_file_command): Offset target of o & g register bcopy by 1 to hit correct registers. * m-sparc.h: Changed STACK_END_ADDR. Sun Oct 23 19:41:51 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * sparc-dep.c (core_file_command): Added in code to get the i & l registers from the stack in the corefile, and blew away some wrong code to get i & l from inferior. Fri Oct 21 15:09:19 1988 Randall Smith (randy at apple-gunkies.ai.mit.edu) * m-sparc.h (PUSH_DUMMY_FRAME): Saved the value of the RP register in the location reserved for i7 (in the created frame); this way the rp value won't get lost. The pc (what we put into the rp in this routine) gets saved seperately, so we loose no information. * sparc-dep.c (do_save_insn & do_restore_insn): Added a wrapper to preserve the proceed status state variables around each call to proceed (the current frame was getting munged because this wasn't being done). * m-sparc.h (FRAME_FIND_SAVED_REGS): Fix bug: saved registers addresses were being computed using absolute registers number, rather than numbers relative to each group of regs. * m-sparc.h (POP_FRAME): Fixed a bug (I hope) in the context within which saved reg numbers were being interpetted. The values to be restored were being gotten in the inferior frame, and the restoring was done in the superior frame. This means that i registers must be restored into o registers. * sparc-dep.c (do_restore_insn): Modified to take a pc as an argument, instead of a raw_buffer. This matches (at least it appears to match) usage from POP_FRAME, which is the only place from which do_restore_insn is called. * sparc-dep.c (do_save_insn and do_restore_insn): Added comments. * m-sparc.h (FRAME_FIND_SAVED_REGS): Modified my code to find the save addresses of out registers to use the in regs off the stack pointer when the current frame is 1 from the innermost. Thu Oct 20 13:56:15 1988 & Smith (randy at hobbes.ai.mit.edu) * blockframe.c, m-sparc.h: Removed code associated with GET_PREV_FRAME_FROM_CACHE_ITEM. This code was not needed for the sparc; you can always find the previous frames fp from the fp of the current frame (which is the sp of the previous). It's getting the information associated with a given frame (ie. saved registers) that's a bitch, because that stuff is saved relative to the stack pointer rather than the frame pointer. * m-sparc.h (GET_PREV_FRAME_FROM_CACHE_ITEM): Modified to return the frame pointer of the previous frame instead of the stack pointer of same. * blockframe.c (flush_cached_frames): Modified call to obstack_free to free back to frame_cache instead of back to zero. This leaves the obstack control structure in finite state (and still frees the entry allocated at frame_cache). Sat Oct 15 16:30:47 1988 & Smith (randy at tartarus.uchicago.edu) * valops.c (call_function): Suicide material here. Fixed a typo; CALL_DUMMY_STACK_ADJUST was spelled CAll_DUMMY_STACK_ADJUST on line 530 of the file. This cost me three days. I'm giving up typing for lent. Fri Oct 14 15:10:43 1988 & Smith (randy at tartarus.uchicago.edu) * m-sparc.h: Corrected a minor mistake in the dummy frame code that was getting the 5th argument and the first argument from the same place. Tue Oct 11 11:49:33 1988 & Smith (randy at tartarus.uchicago.edu) * infrun.c: Made stop_after_trap and stop_after_attach extern instead of static so that code which used proceed from machine dependent files could fiddle with them. * blockframe.c, frame.h, sparc-dep.c, m-sparc.h: Changed sense of ->prev and ->next in struct frame_cache_item to fit usage in rest of gdb (oops). Mon Oct 10 15:32:42 1988 Randy Smith (randy at gargoyle.uchicago.edu) * m-sparc.h, sparc-dep.c, blockframe.c, frame.h: Wrote get_frame_cache_item. Modified FRAME_SAVED_PC and frame_saved_pc to take only one argument and do the correct thing with it. Added the two macros I recently defined in blockframe.c to m-sparc.h. Have yet to compile this thing on a sparc, but I've now merged in everything that I received from tiemann, either exactly, or simply effectively. * source.c: Added code to allocated space to sals.sals in the case where no line was specified. * blockframe.c, infrun.c: Modified to cache stack frames requested to minimize accesses to subprocess. Tue Oct 4 15:10:39 1988 Randall Smith (randy at cream-of-wheat.ai.mit.edu) * config.gdb: Added sparc. Mon Oct 3 23:01:22 1988 Randall Smith (randy at cream-of-wheat.ai.mit.edu) * Makefile, blockframe.c, command.c, core.c, dbxread.c, defs.h, expread.y, findvar.c, infcmd.c, inflow.c, infrun.c, sparc-pinsn.c, m-sparc.h, sparc-def.c, printcmd.c, stack.c, symmisc.c, symseg.h, valops.c, values.c: Did initial merge of sparc port. This will not compile; have to do stack frame caching and finish port. * inflow.c, gdb.texinfo: `tty' now resets the controling terminal. Fri Sep 30 11:31:16 1988 Randall Smith (randy at gluteus.ai.mit.edu) * inferior.h, infcmd.c, infrun.c: Changed the variable stop_random_signal to stopped_by_random signal to fit in better with name conventions (variable is not a direction to the proceed/resume set; it is information from it). Thu Sep 29 13:30:46 1988 Randall Smith (randy at cream-of-wheat.ai.mit.edu) * infcmd.c (finish_command): Value type of return value is now whatever the function returns, not the type of the function (fixed a bug in printing said value). * dbxread.c (read_dbx_symtab, process_symbol_for_psymtab): Put *all* global symbols into misc_functions. This is what was happening anyway, and we need it for find_pc_misc_function. ** This was eventually taken out, but I didn't mark it in the ChangeLog. Oops. * dbxread.c (process_symbol_for_psymtab): Put every debugger symbol which survives the top case except for constants on the symchain. This means that all of these *won't* show up in misc functions (this will be fixed once I make sure it's broken the way it's supposed to be). * dbxread.c: Modified placement of debugger globals onto the hash list; now we exclude the stuff after the colon and don't skip the first character (debugger symbols don't have underscores). * dbxread.c: Killed debuginfo stuff with ifdef's. Wed Sep 28 14:31:51 1988 Randall Smith (randy at cream-of-wheat.ai.mit.edu) * symtab.h, dbxread.c: Modified to deal with BINCL, EINCL, and EXCL symbols produced by the sun loader by adding a list of pre-requisite partial_symtabs that each partial symtab needs. * symtab.h, dbxread.c, symtab.c, symmisc.c: Modified to avoid doing a qsort on the local (static) psymbols for each file to speed startup. This feature is not completely debugged, but it's inclusion has forced the inclusion of another feature (dealing with EINCL's, BINCL's and EXCL's) and so I'm going to go in and deal with them. * dbxread.c (process_symbol_for_psymtab): Made sure that the class of the symbol made it into the partial_symbol entry. Tue Sep 27 15:10:26 1988 Randall Smith (randy at gluteus.ai.mit.edu) * dbxread.c: Fixed bug; init_psymbol_list was not being called with the right number of arguments (1). * dbxread.c: Put ifdef's around N_MAIN, N_M2C, and N_SCOPE to allow compilation on a microvax. * config.gdb: Modified so that "config.gdb vax" would work. * dbxread.c, symtab.h, symmisc.h, symtab.c, source.c: Put in many and varied hacks to speed up gdb startup including: A complete rewrite of read_dbx_symtab, a modification of the partial_symtab data type, deletion of select_source_symtab from symbol_file_command, and optimiztion of the call to strcmp in compare_psymbols. Thu Sep 22 11:08:54 1988 Randall Smith (randy at gluteus.ai.mit.edu) * dbxread.c (psymtab_to_symtab): Removed call to init_misc_functions. * dbxread.c: Fixed enumeration type clash (used enum instead of integer constant). * breakpoint.c: Fixed typo; lack of \ at end of line in middle of string constant. * symseg.h: Fixed typo; lack of semicolon after structure definition. * command.c, breakpoint.c, printcmd.c: Added cmdlist editing functions to add commands with the abbrev flag set. Changed help_cmd_list to recognize this flag and modified unset, undisplay, and enable, disable, and delete breakpoints to have this flag set. Wed Sep 21 13:34:19 1988 Randall Smith (randy at plantaris.ai.mit.edu) * breakpoint.c, infcmd.c, gdb.texinfo: Created "unset" as an alias for delete, and changed "unset-environment" to be the "environment" subcommand of "delete". * gdb.texinfo, valprint.c: Added documentation in the manual for breaking the set-* commands into subcommands of set. Changed "set maximum" to "set array-max". * main.c, printcmd.c, breakpoint.c: Moved the declaration of command lists into main and setup a function in main initializing them to guarrantee that they would be initialized before calling any of the individual files initialize routines. * command.c (lookup_cmd): A null string subcommand is treated as an unknown subcommand rather than an ambiguous one (eg. "set $x = 1" will now work). * infrun.c (wait_for_inferior): Put in ifdef for Sony News in check for trap by INNER_THAN macro. * eval.c (evaluate_subexp): Put in catch to keep the user from attempting to call a non function as a function. Tue Sep 20 10:35:53 1988 Randall Smith (randy at oatmeal.ai.mit.edu) * dbxread.c (read_dbx_symtab): Installed code to keep track of which global symbols did not have debugger symbols refering to them, and recording these via record_misc_function. * dbxread.c: Killed code to check for extra global symbols in the debugger symbol table. * printcmd.c, breakpoint.c: Modified help entries for several commands to make sure that abbreviations were clearly marked and that the right commands showed up in the help listings. * main.c, command.c, breakpoint.c, infcmd.c, printcmd.c, valprint.c, defs.h: Modified help system to allow help on a class name to show subcommands as well as commands and help on a command to show *all* subcommands of that command. Fri Sep 16 16:51:19 1988 Randall Smith (randy at gluteus.ai.mit.edu) * breakpoint.c (_initialize_breakpoint): Made "breakpoints" subcommands of enable, disable, and delete use class 0 (ie. they show up when you do a help xxx now). * infcmd.c,printcmd,c,main.c,valprint.c: Changed the set-* commands into subcommands of set. Created "set variable" for use with variables whose names might conflict with other subcommands. * blockframe.c, dbxread.c, coffread.c, expread.y, source.c: Fixed mostly minor (and one major one in block_for_pc) bugs involving checking the partial_symtab_list when a scan through the symtab_list fails. Wed Sep 14 12:02:05 1988 Randall Smith (randy at sugar-smacks.ai.mit.edu) * breakpoint.c, gdb.texinfo: Added enable breakpoints, disable breakpoints and delete breakpoints as synonyms for enable, disable, and delete. This seemed reasonable because of the immeninent arrival of watchpoints & etc. * gdb.texinfo: Added enable display, disable display, and delete display to manual. Tue Sep 13 16:53:56 1988 Randall Smith (randy at sugar-smacks.ai.mit.edu) * inferior.h, infrun.c, infcmd.c: Added variable stop_random_signal to indicate when a proceed had been stopped by an unexpected signal. Used this to determine (in normal_stop) whether the current display point should be deleted. * valops.c: Fix to value_ind to check for reference before doing a COERCE_ARRAY. Sun Jul 31 11:42:36 1988 Richard Stallman (rms at frosted-flakes.ai.mit.edu) * breakpoint.c (_initialize_breakpoint): Clean up doc for commands that can now apply also to auto-displays. * coffread.c (record_line): Corrected a spazz in editing. Also removed the two lines that assume line-numbers appear only in increasing order. Tue Jul 26 22:19:06 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * expression.h, eval.c, expprint.c, printcmd.c, valarith.c, valops.c, valprint.c, values.c, m-*.h: Changes for evaluating and displaying 64-bit `long long' integers. Each machine must define a LONGEST type, and a BUILTIN_TYPE_LONGEST. * symmisc.c: (print_symtab) check the status of the fopen and call perror_with_name if needed. Thu Jul 21 00:56:11 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * Convex: core.c: changes required by Convex's SOFF format were isolated in convex-dep.c. Wed Jul 20 21:26:10 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * coffread.c, core.c, expread.y, i386-pinsn.c, infcmd.c, inflow.c, infrun.c, m-i386.h, main.c, remote.c, source.c, valops.c: Improvements for the handling of the i386 and other machines running USG. (Several of these files just needed extra header files such as types.h.) utils.c: added bcopy, bcmp, bzero, getwd, list of signals, and queue routines for USG systems. Added vfork macro to i386 * printcmd.c, breakpoint.c: New commands to enable/disable auto-displays. Also `delete display displaynumber' works like `undisplay displaynumber'. Tue Jul 19 02:17:18 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * coffread.c: (coff_lookup_type) Wrong portion of type_vector was being bzero'd after type_vector was reallocated. * printcmd.c: (delete_display) Check for a display chain before attempting to delete a display. * core.c, *-dep.c (*-infdep moved to *-dep): machine-dependent parts of core.c (core_file_command, exec_file_command) moved to *-dep.c. Mon Jul 18 19:45:51 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * dbxread.c: typo in read_struct_type (missing '=') was causing a C struct to be parsed as a C++ struct, resulting in a `invalid character' message. Sun Jul 17 22:27:32 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * printcmd.c, symtab.c, valops.c, expread.y: When an expression is read, the innermost block required to evaluate the expression is saved in the global variable `innermost_block'. This information is saved in the `block' field of an auto-display so that expressions with inactive variables can be skipped. `info display' tells the user which displays are active and which are not. New fn `contained_in' returns nonzero if one block is contained within another. Fri Jul 15 01:53:14 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * infrun.c, m-i386.h: Use macro TRAPS_EXPECTED to set number of traps to skip when sh execs the program. Default is 2, m-i386.h overrides this and sets to 4. * coffread.c, infrun.c: minor changes for the i386. May be able to eliminate them with more general code. * default-infdep.c: #ifdef SYSTEMV, include header file types.h. Also switched the order of signal.h and user.h, since System 5 requires signal.h to come first. * core.c main.c, remote,c, source.c, inflow.c: #ifdef SYSTEMV, include various header files. Usually types.h and fcntl.h. * utils.c: added queue routines needed by the i386 (and other sys 5 machines). * sys5.c, regex.c, regex.h: new files for sys 5 systems. (The regex files are simply links to /gp/gnu/lib.) Thu Jul 14 01:47:14 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * config.gdb, README: Provide a list of known machines when user enters an invalid machine. New second arg is operating system, currently only used with `sunos4' or `os4'. Entry for i386 added. * news-infdep.c: new file. * m-news.h: new version which deals with new bugs in news800's OS. Tue Jul 12 19:52:16 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * Makefile, *.c, munch, config.gdb, README: New initialization scheme uses nm to find functions whose names begin with `_initialize_'. Files `initialize.h', `firstfile.c', `lastfile.c', `m-*init.h' no longer needed. * eval.c, symtab.c, valarith.c, valops.c, value.h, values.c: Bug fixes from gdb+ 2.5.4. evaluate_subexp takes a new arg, type expected. New fn value_virtual_fn_field. Mon Jul 11 00:48:49 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * core.c (read_memory): xfer_core_file was being called with an extra argument (0) by read_memory. * core.c (read_memory), *-infdep.c (read_inferior_memory), valops.c (value_at): read_memory and read_inferior_memory now work like write_memory and write_inferior_memory in that errno is checked after each ptrace and returned to the caller. Used in value_at to detect references to addresses which are out of bounds. Also core.c (xfer_core_file): return 1 if invalid address, 0 otherwise. * inflow.c, -infdep.c: removed all calls to ptrace from inflow.c and put them in machine-dependent files *-infdep.c. Sun Jul 10 19:19:36 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * symmisc.c: (read_symsegs) Accept only format number 2. Since the size of the type structure changed when C++ support was added, format 1 can no longer be used. * core.c, m-sunos4.h: (core_file_command) support for SunOS 4.0. Slight change in the core structure. #ifdef SUNOS4. New file m-sunos4.h. May want to change config.gdb also. Fri Jul 8 19:59:49 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * breakpoint.c: (break_command_1) Allow `break if condition' rather than parsing `if' as a function name and returning an error. Thu Jul 7 22:22:47 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * C++: valops.c, valprint.c, value.h, values.c: merged code to deal with C++ expressions. Wed Jul 6 03:28:18 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * C++: dbxread.c: (read_dbx_symtab, condense_misc_bunches, add_file_command) Merged code to read symbol information from an incrementally linked file. symmisc.c: (init_free_inclink_symtabs, free_inclink_symtabs) Cleanup routines. Tue Jul 5 02:50:41 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * C++: symtab.c, breakpoint.c, source.c: Merged code to deal with ambiguous line specifications. In C++ one can have overloaded function names, so that `list classname::overloadedfuncname' refers to several different lines, possibly in different files. Fri Jul 1 02:44:20 1988 Peter TerMaat (pete at corn-chex.ai.mit.edu) * C++: symtab.c: replaced lookup_symtab_1 and lookup_symtab_2 with a modified lookup_symbol which checks for fields of the current implied argument `this'. printcmd.c, source.c, symtab.c, valops.c: Need to change callers once callers are installed. Wed Jun 29 01:26:56 1988 Peter TerMaat (pete at frosted-flakes.ai.mit.edu) * C++: eval.c, expprint.c, expread.y, expression.h, valarith.c, Merged code to deal with evaluation of user-defined operators, member functions, and virtual functions. binop_must_be_user_defined tests for user-defined binops, value_x_binop calls the appropriate operator function. Tue Jun 28 02:56:42 1988 Peter TerMaat (pete at frosted-flakes.ai.mit.edu) * C++: Makefile: changed the echo: expect 101 shift/reduce conflicts and 1 reduce/reduce conflict. Local Variables: mode: indented-text left-margin: 8 fill-column: 74 version-control: never End: gdb-4.13/gdb/ChangeLog-9091 666 34562 1752 1221521 5141066115 13526 0ustar fnfcygnusMon Dec 30 10:57:02 1991 Per Bothner (bothner at cygnus.com) Mainly stuff to improve handling of TYPE_CODE_REF values. * valops.c (value_addr): If taking the addres of a TYPE_CODE_REF, just cast the object to the corresponding TYPE_CODE_PTR. This yields correct C++ semantics, and preserves the location information, which has the nice effect that &(&R) given the location containing R. * values.c (value_copy): Make non-static (used by value_addr). * eval.c (evaluate_subexp_for_address): Use the default scheme (with value_addr) for a variable if it has TYPE_CODE_REF. * valops.c (value_addr), eval.c (evaluate_subexp_for_address, evaluate_subexp_with_coercion): Factor out some common expressions into variables, for easier reading. * findvar.c (locate_var_value): Remove code to handle TYPE_CODE_REF - it should no longer be needed. * valops.c (value_assign): Do a COERCE_REF on the destination operand, for correct C++ semantics. * valarith.c (value_x_binop): Ditto: De-reference C++ references in the arguments. * valops.c: ANSI-fy: bcopy->memcpy, bzero->memset. Sat Dec 28 11:30:26 1991 Per Bothner (bothner at cygnus.com) * dwarfread.c, coffread.c: Use INIT_CPLUS_SPECIFIC. * symtab.c (gdb_mangle_name): Recognize and handle constructors specially. * symtab.c (check_stub_method): Test for failure from cplus-demangle by calling error() instead of seg-faulting ... Fri Dec 27 22:21:30 1991 Fred Fish (fnf at cygnus.com) * defs.h: Add definition of null_cleanup() * procfs.c: Many small changes to add base support for a new "info proc" command (currently only printing of the address space mapping is implemented) and allow iteration over the address space mapping, calling an arbitrary function for each mapping (used for shared library support). * solib.c: Change all ifdefs that checked for "sun" to check for "!SVR4_SHARED_LIBS" instead. Rewrite lookup_base() to handle locating the debug base address even when not currently stopped at the dynamic linker entry point. * utils.c: Add null_cleanup() as a known function that does nothing to serve as a base for possibly long cleanup chains with no specific "first cleanup" to serve as an anchor. * xm-sysv4.h: Add define of SVR4_SHARED_LIBS Fri Dec 27 10:11:33 1991 Per Bothner (bothner at cygnus.com) * arm-opcode.h, m88k-opcode.h, pn-opcode.h, np1-opcode.h, pyr-opcode.h, tahoe-opcode, vax-opcode.h: Removed - these are all essentially the same as the versions in ../include/opcode. The remaining *-opcode.h here are not quite so obviously the same, and need study. * arm-pinsn.c, gould-pinsn.c, m88k-pinsn.c, pyr-pinsn.c, tahoe-pinsn.c, vax-pinsn.c: Change so these include opcode/FOO.h (actually ../include/opcode/FOO.h) instead of the recenntly departed opcode-FOO.h files. * sparc-pinsn.c: Now that we're using the much tighter opcode table in ../include/opcode/sparc.h, we shouldn't need to sort the opcodes before dis-assembly. * symtab.h, symmisc.c: Make cplus_struct_default be const. * symtab.h, buildsym.c: Add and use INIT_CPLUS_SPECIFIC macro. * symmisc.c: Remove unused 'nfields' variable. * buildsym.h: Add extern decl of unknown_symtype_complaint, since it used used by partial-stab.h (included two places). * partial-stab.h: Re-arrange DBXREAD_ONLY #ifdefs so that we should never hit the default case (until new stab codes are added). Hence, we can leave the complaint in the default case in even when DBXREAD_ONLY is off. * partial_stab.h: Recognize a pair of N_SO stabs (one for the directory, one for the filename proper) without peeking ahead. * dbxread.c, mipsread.c: Because of previous change, don't need ugly CHECK_SECOND_N_SO macro. * buildsym.h, dbxread.c, mipsread.c: Make next_symbol_text a macro that invokes a function pointer in next_symbol_text_func. * mipsread.c: Added comments various places to explain what is going on. * mipsread.c (parse_symbol): Support the new (SGI-specific?) symbol types stStruct, stUnion, and stEnum. Also, some fixes in the code for dealing with tags. * mipsread.c: Change handling of startup_file_start and _end - now just use the textlow and texhigh of a psymtab to check if we've found the startup-file. * mipsread.c: Replace s_idx by global cur_sdx in many places. This is so mips_next_symbol_text can get at it. Thu Dec 26 19:52:01 1991 Fred Fish (fnf at cygnus.com) * dbxread.c, symmisc.c: Move add_psymbol_to_plist() from dbxread.c to symmisc and change name to add_psymbol_to_list. Ditto for add_psymbol_addr_to_plist(). Also expand their body to not use ADD_PSYMBOL_VT_TO_LIST. * dwarfread.c: Remove add_psymbol_to_list() and convert usages to the ADD_PSYMBOL_TO_LIST macro. * ieee-float.c: Change "#ifdef DEBUG" to "#ifdef IEEE_DEBUG" to avoid collision with the DEBUG for ADD_PSYMBOL_VT_TO_LIST. * partial-stab.h, symfile.h: Move definitions of the macros ADD_PSYMBOL_TO_LIST and ADD_PSYMBOL_ADDR_TO_LIST from partial-stab.h to symfile.h. They aren't stab specific. Change ADD_PSYMBOL_VT_TO_LIST to use memcpy rather than strncpy. Tue Dec 24 11:38:08 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Roll VERSION to 4.3.2. Mon Dec 23 13:54:35 1991 Per Bothner (bothner at cygnus.com) * m68k-opcode.h, mips-opcode.h, sparc-opcode.h: Deleted. * m68k-pinsn.c, mips-pinsn.c, sparc-pinsn.c: Include instead of . * symtab.h, symtab.c, coffread.c, dwarfread.c, symmisc.c, dbxread.c: The TYPE_CPLUS_SPECIFIC structure is now only allocated when it is needed. Until it is needed, it points to a shared statically allocated structure. * buildsym.h, buildsym.c, dbxread.c: Remove the kludgy code in read_ofile_symtab to recognize two initial N_SO stabs, and let process_on_symbol handle it. This is cleaner, more efficient, and lets mipsread.c share the same code. * symfile.h, partial-stab.h: Move ADD_PSYMBOL_VT_TO_LIST and related macros to here ... * dbxread.c: ... from here. * symmisc.c: Move the "overflow" handling from ADD_PSYMBOL_VT_TO_LIST macro into new function extend_psymbol_list. * dwarfread.c: Re-write add_psymbol_to_list to use ADD_PSYMBOL_VT_TO_LIST macro. * mipsread.c: Extend mipsread.c to handle stabs-style symbols encapsulated in ecoff symbols. This enable full g++ debugging. * partial-stab.h: Move the code for pre-scanning symbols and building psymtabs to an include file, out from dbxread.c. This way, the same code can also be used by mipsread.c. * dbxread.c, buildsym.h: Various changes to allow some functions to be used by mipsread.c (also some arguable stylistic changes). * tm-mips.h: Define BLOCK_ADDRESS_ABSOLUTE, at least for now, since mips-tfile puts relocatable addresses into LBRAC/RBRAC stabs. * mipsread.c: Replace code to handle ambiguous tag blocks. Instead of allocating a TYPE_CODE_UNDEF, guess (by looking at types and offsets) if a tag is a struct, union, or enum. Still patch it later if we find out for sure. * mipsread.c: In various ways, replace Forin's ideo-syncratic code by code that fits better with the rest of gdb, for both stabs-based and ecoff-based symtabs. E.g. use end_psymtab; don't do extra passes over FDR table to pre-partition global data; don't use external symbols to create static/global symbols (just put them in the misc_vector); use ADD_PSYMBOL_TO_LIST macro; don't sort psymtabs or symtabs; use obstacks more. * symtab.c, mipsread.c, dbxread.c, buildsym.c: ANSIfy: Replace bcopy by memcpy, bzero by memset. Sun Dec 22 19:31:04 1991 Fred Fish (fnf at cygnus.com) * solib.c (locate_base): Fix uninitialized variable that was causing return of random value to callee. * config/mh-amix, config/mh-i386v4: Change to find alloca by compiling and linking alloca.c, even when it is not strictly required. Also arrange to link with -ltermlib rather than -ltermcap. * Makefile.in: Move TERMCAP definition to prior to inclusion of host makefile fragments so it can be overridden. Fri Dec 20 16:33:39 1991 John Gilmore (gnu at cygnus.com) * xcoffread.c (read_symbol_lineno): Logic error in incrementing symbol table entry number. (From Metin Ozisik.) Fri Dec 20 11:36:38 1991 Fred Fish (fnf at cygnus.com) * config/mh-i386v4: Change XM_CLIBS to "-lc /usr/ucblib/libucb.a" so compiles with native compilers (without builtin alloca) can pick up the version from the bsd emulation library. However, we search the standard C library first so we don't pick up lots of other broken stuff from libucb.a, that we *don't* want. * configure.in, tm-amix.h, tm-i386v4.h, xm-amix.h, xm-i386v4.h: Change svr4 references to sysv4. * source.c: Move declaration of external function index to front of file so it is in scope for all references. * utils.c (error, fatal): Make definitions consistent with defs.h declarations (declared as "volatile void"). Fri Dec 20 10:55:36 1991 John Gilmore (gnu at cygnus.com) * rs6k-opcode.h: Bugfix sfe and stbrx. By Al Kossow. Wed Dec 18 17:09:06 1991 Stu Grossman (grossman at cygnus.com) * command.h, defs.h, eval.h, expression.h, remote-sa.sparc.c, sparc-tdep.c, symtab.h, target.h, value.h, vx-share/ptrace.h, vx-share/xdr_ptrace.h, vx-share/xdr_rdb.h: ANSIfy enums. Mon Dec 16 12:31:46 1991 Fred Fish (fnf at cygnus.com) * config/mt-amix, config/mt-i386v4: Add solib.o to TDEPFILES for these SVR4 systems. * symfile.c (symbol_file_add): When verbose is set, print the names of files from which symbols are being loaded, as when from_tty is true. * solib.c: Completely reorganized (rewritten) to support SVR4 shared libraries in a manner very close to the original SunOS implementation. This support is expected to change and become more general at some future time. The SVR4 version does not yet work for attached processes, for example. * dwarfread.c: Arrange in dwarf_build_psymtabs() for the relocation address to be valid whether or not symbols are being read from a shared library or an executable. Use the relocation address recorded in the psymtab when reading full symbol tables (in read_ofile_symtab). Ensure that the relocated address ranges are recorded in partial symtabs. * elfread.c: Add new function elf_interpreter() to return the string from the ELF ".interp" section. This is the interpreter that the kernel tries to run and feed the executable to. Expand arguments to record_misc_function to include a type arg. Modify elf_symtab_read() to supply the type arg, and to do symbol relocations for symbols read in from shared libraries. * procfs.c: Add new functions proc_base_address() and proc_address_to_fd(), used by shared library support. * tm-svr4.h: Add macros to support SVR4 shared libraries. Definitions for SOLIB_ADD, SOLIB_CREATE_INFERIOR_HOOK, CLEAR_SOLIB, and DISABLE_UNSETTABLE_BREAK. Fri Dec 13 20:11:26 1991 John Gilmore (gnu at cygnus.com) * infrun.c, remote-eb.c, remote-nindy.c, remote-vx.c: Remove unused START_INFERIOR_HOOK. * remote-eb.c: Change timeout to 24 seconds (*10 fits in byte) to account for slow loading from floppies. (eb_create_inferior): New fn, from eb_start and nindy_create_inferior. (eb_close): Only use log_file if nonzero. (eb_xfer_inferior_memory): If not writing, then read! (eb_read_inferior_memory, eb_write_inferior_memory): Return length. (eb_kill): A new no-op. (eb_mourn_inferior): Remove breakpoints, then generically weep. Fri Dec 13 16:09:23 1991 Fred Fish (fnf at cygnus.com) * breakpoint.c, findvar.c, infrun.c, putenv.c, stack.c: Fix miscellaneous comparisons of integer with NULL that elicit compiler warnings about comparison of integer with pointer, when NULL is ((void *) 0) rather than just a bare 0. Wed Dec 11 13:02:58 1991 John Gilmore (gnu at cygnus.com) * breakpoint.c (breakpoint_re_set_one): Disable each breakpoint while we reset it, in case of problems. Print breakpoint number in error messages. * buildsym.c (read_struct_type): Avoid sun3 compiler bug with foo[--n]. * source.c (find_source_lines): If getting file mod time fails, don't warn. * target.c (target_xfer_memory): If errno is set, return it, rather than EIO. Tue Dec 10 04:07:22 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: infodir belongs in datadir. Sun Dec 8 21:13:33 1991 Michael Tiemann (tiemann at sphagnum.cygnus.com) * symtab.h (struct fn_field): Add new fields `is_private', `is_protected', `is_stub', making room by reducing the size of `voffset'. (struct fn_fieldlist): Delete the fields `private_fn_field_bits' and `protected_fn_field_bits'. (TYPE_FN_{PRIVATE,PROTECTED}_BITS): Deleted. (SET_TYPE_FN_{PRIVATE,PROTECTED}): Deleted. (TYPE_FN_{PRIVATE,PROTECTED}): Deleted. (TYPE_FN_FIELD_{STUB,PRIVATE,PROTECTED}): New macros. * valops.c, valprint.c, symtab.c: All callers updated. * buildsym.c (read_struct_type): Delete the `visibility' field from `struct next_fnfield', and rework code so that visibility info is stored into the fn_field directly. Also, hacked to set TYPE_FN_FIELD_STUB for both static and normal member functions. Sat Dec 7 18:13:11 1991 Fred Fish (fnf at cygnus.com) * i386-tdep.c: Fix a problem on i386 systems where buffered code stream access was failing to take into account the minimum size granularity of the code section. For now, the buffering is simply disabled. There is a similar problem in the i386 disassember code that has not yet been fixed (FIXME). * gmalloc.c: Use macros to hide some of the ugly casting required in the previously applied fix for pointers with high bits set. Sat Dec 7 16:49:35 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Roll VERSION to 4.3.1. Sat Dec 7 04:12:35 1991 John Gilmore (gnu at cygnus.com) GDB-4.3 release! * Makefile.in: Roll VERSION to 4.3 * README, TODO, WHATS.NEW, depend: Update. * inflow.c (terminal_inferior): Avoid error msg if attached. * gmalloc.c: Fix bug that causes malloc & free to fail on systems where pointers have the high bit set (0x800efcf0 for example). The problem is that the difference between two pointers is a signed integer, so the computation (char *) 0x800efcf0 - (char *) 0 yields a negative value. The sign of the result of the modulus operator is machine dependent for negative operands, thus it is possible for it to end up negative. From Fred Fish. Sat Dec 7 00:00:15 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: install using INSTALL_PROGRAM and INSTALL_DATA. added clean-info. added some standards.text support and made it look like our other Makefiles. * configure.in: mark this directory target dependent. configure now runs entirely in objdir so make existence tests and references against ${srcdir}. Fri Dec 6 08:30:36 1991 Fred Fish (fnf at cygnus.com) * dwarfread.c (enum_type, struct_type): Fixes for opaque and anonymous enumerations, structures, and unions. Now passes all the current gdb test suite tests. Thu Dec 5 22:46:13 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: idestdir and ddestdir go away. Added copyrights and shift gpl to v2. Added ChangeLog if it didn't exist. docdir and mandir now keyed off datadir by default. Thu Dec 5 21:53:21 1991 John Gilmore (gnu at cygnus.com) * symtab.c (decode_line_1): If SKIP_PROLOGUE leaves us in mid-line, be more careful about possibly advancing to the next line. Thu Dec 5 18:59:51 1991 Michael Tiemann (tiemann at cygnus.com) * cplus-dem.c (cplus_demangle): Call `string_need' when null-terminating a partially-computed string. Thu Dec 5 18:19:43 1991 Fred Fish (fnf at cygnus.com) * dwarfread.c (enum_type): Build a correct TYPE_NAME, add a symbol to the symbol table for each member of the enum. * dwarfread.c (struct_type): Build a correct TYPE_NAME. * dwarfread.c (add_enum_psymbol): New function to extract enum member names and add them to the partial symbol table while building partial symbol tables. Thu Dec 5 17:31:05 1991 John Gilmore (gnu at cygnus.com) * symtab.c (check_stub_method): Must allocate two extra argument slots (one for `this', one for arglist terminator). Thu Dec 5 10:51:05 1991 Fred Fish (fnf at cygnus.com) * inflow.c (child_terminal_info): Supply missing '"' character. * buildsym.c (define_symbol): Supply missing parenthesis. Thu Dec 5 03:34:21 1991 John Gilmore (gnu at cygnus.com) * coredep.c (fetch_core_registers): Fencepost error. Fixed by Jay Lepreau . * inflow.c: Remember whether GDB has a terminal. Avoid switching terminals back and forth if we don't have one. * c-exp.y (parse_number): Zero is not an unsigned int constant! * dbxread.c (read_dbx_symtab): Enum type numbers can be in (1,2) form. Improve type parsing. * buildsym.c (define_symbol, read_range_type): Add long_kludge_name that passes the names of range types being defined, down to where we must choose between 'int' and 'long' variants. This fails on Sun C anyway since the compiler itself is confused between int and long. (read_array_type, cleanup_undefined_types): Correct the size of array type whose element-type size isn't immediately known. Early preparation to blow away many builtin types, building them on the fly as needed. Don't compare types to builtin types with ==; examine the relevant fields instead. * coffread.c (process_coff_symbol: C_ARG, C_REGPARM): Avoid ==. * buildsym.c (define_symbol, case 'p'): Avoid ==. * valops.c (value_arg_coerce): Avoid ==. Don't assume host and target types are the same. * valprint.c (val_print): I finally understand arrays, remove FIXME. * symmisc.c (printpsyms_command): Reduce redundancy, and put all addresses in GDB itself into parens for easy cleanup and diffing. Wed Dec 4 21:05:30 1991 Fred Fish (fnf at cygnus.com) * dwarfread (enum_type): Arrange for the order of enumeration members to match the source code order; not the order in the Dwarf information, which is explicitly reverse order. Wed Dec 4 18:24:39 1991 John Gilmore (gnu at cygnus.com) * main.c (input_from_terminal_p): Check whether GDB has a terminal at all. (initialize_main): Revise doc for `set editing'. Wed Dec 4 15:36:39 1991 Fred Fish (fnf at cygnus.com) * dwarfread.c (struct_type): Handle structures and unions which contain DIE's other than just member dies. Wed Dec 4 01:59:05 1991 John Gilmore (gnu at cygnus.com) * symfile.c (reread_symbols): Avoid kludging mtime_set, now that BFD is fixed. Tue Dec 3 17:24:57 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: VERSION 4.2.96. * main.c (initialize_main): Revise command descriptions. * command.c (show_user): `info user' -> `show user'. * symtab.c (_initialize_symtab): Typo in `info types' desc. * coffread.c (coff_symfile_read): Avoid select_source_symtab, since it is not needed and can cause errors when examining ".o"s. (read_coff_symtab, decode_base_type): Use complain, not printf. Print symbol name, not its number. Remove "#if defined(clipper) #define BELIEVE_PCC_PROMOTION", which someday should go in a clipper target config file. * symfile.c (compact_misc_function_vector): Handle empty vector. (complain, clear_complaints, syms_from_objfile): Fix complaint formatting. * xcoffexec.c: Change syms_from_objfile caller. * sparc-xdep.c: Force tm-file as tm-sparc.h, to make it compile when configured for cross debugging. FIXME, this needs a more general solution. Mon Dec 2 11:04:05 1991 Per Bothner (bothner at cygnus.com) * mips-tdep.c (init_extra_frame_info): Float register 'i' has gdb-internal number 'FP0+i', not '32+i'. * mipsread.c (new_symbol): Translate g++ special symbol "$t" to "this". Sat Nov 30 21:29:55 1991 Steve Chamberlain (sac at cygnus.com) Changes due to include file renaming: * xcoffread.c: internalcoff.h ->coff/internal.c, coff-rs6000.h ->coff/rs6000.h * mipsread.c: coff-mips.h ->coff/mips.h * elfread.c: elf-common.h ->elf/common.h elf-external.h ->elf/external.h, elf-internal.h ->elf/internal.h * dwarfread.c dwarf.h ->elf/dwarf.h * dbxread.c: aout64.h ->aout/aout64.h stab.gnu.h ->aout/stab_gnu.h * coffread.c: internalcoff.h ->coff/internal.h * buildsym.c: stab.gnu.h ->aout/stab_gnu.h * depend Updated to take the above into account. Fri Nov 29 16:59:25 1991 Fred Fish (fnf at cygnus.com) * configure.in: Add SVR4 i386 configurations. * config/mh-i386v4, config/mt-i386v4, tm-i386v4.h, xm-i386v4.h: New files for i386/SVR4. * tm-i386v.h: Allow START_INFERIOR_TRAPS_EXPECTED and DECR_PC_AFTER_BREAK to be predefined by files including tm-i386v.h. * i386-tdep.c: Add supply_gregset(), fill_gregset(), supply_fpregset(), and fill_fpregset() functions, which are target dependent support functions for the SVR4 /proc register interface. * dwarfread.c (enum_type, struct_type): Expand recognized compiler generated tags to include symbols beginning with '.' as well as '~'. * symtab.c (sources_info): Change simple printf of error message to call to error(). Fri Nov 29 16:04:21 1991 Roland H. Pesch (pesch at cygnus.com) * doc/gdb.texinfo: remove leading comments that survived M4 but described its role in the doc; add one more font to colophon; strengthen disclaimer about unsupported configs. Wed Nov 27 01:23:41 1991 John Gilmore (gnu at cygnus.com) Fix bugs in C++ debugging. * symtab.h: target_type is not used in record types. Eliminate TYPE_MAIN_VARIANT and TYPE_NEXT_VARIANT. Eliminate lookup_method_type. Add TYPE_TYPE_SPECIFIC macro. * symtab.c (lookup_member_type): Don't chain them up, just allocate one in symbol_obstack when we need one. (allocate_stub_method): Build stub in symbol_obstack. (check_stub_method): Move here from values.c. Don't deallocate stub; overwrite it. (lookup_method_type): Gone now. * buildsym.c: Handle g++ v1 stabs a little bit better. Change some C++ parsing error()s to complain()ts. * buildsym.c, findvar.c, printcmd.c, symtab.c: Make unions and structs have the same representation and work the same as far as C++ is concerned. * buildsym.c, symtab.c, values.c: Remove all references to TYPE_MAIN_VARIANT and TYPE_NEXT_VARIANT. * valops.c: Improve comments and indentation. Only call check_stub_method when the stub flag is on. * valprint.c: Fix or mark minor bugs and unportabilities. * coffread.c (anonymous unions): Allocate a cplus structure. * mipsread.c: Eliminate "template" types. Build new, real types whenever we need them. Allocate cplus structures as needed. Bulletproof the type parsing a bit more. Mark storage leaks. (parse_type): Copy TYPE_TYPE_SPECIFIC when copying a real type on top of a partial type. Fri Nov 22 16:39:57 1991 John Gilmore (gnu at cygnus.com) * inflow.c (terminal_inferior): Check the results of ioctl's, and print a message if any of them fail. (terminal_ours_1): Store result of ioctl's for debugging, but don't print (the terminal isn't ours...). * tm-tahoe.h (FRAME_ARGS_ADDRESS): No need to offset from frame pointer. * m2-exp.y (MAX, MIN): Rename to MAX_FUNC, MIN_FUNC to avoid conflicts with system header files. Fri Nov 22 08:27:40 1991 John Gilmore (gnu at cygnus.com) * Roll VERSION to 4.2.95. * buildsym.c, coredep.c, mem-break.c, xcoffread.c: Put first, before defs.h. * config/mh-i386sco: Override compiler to gcc, print warning. * configure.in: Handle i386-none-aout rather than i386-aout-none. * infptrace.c, language.h, utils.c: Lint. * m2-exp.y: #undef MAX and MIN in case system includes set them. * xm-tahoe.h: Set HOST_BYTE_ORDER. Include system versions of {BIG,LITTLE}_ENDIAN and the INT_MAX family first, to avoid redefinition warnings. * defs.h: Reorder things so that the xm-file gets first crack at #define's, followed by defs.h and then the tm-file. * Makefile.in: Remove spaces after 'ignore exit code' - flags. Late-model BSD 'make's don't cope with them. Thu Nov 21 23:48:56 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Roll new files into various lists. Thu Nov 21 18:26:11 1991 Fred Fish (fnf at cygnus.com) * dwarfread.c (struct_type): Must initialize the c++ specific portion of union types as well as struct types, since gdb attempts to reference the c++ specific info for both types. Thu Nov 21 10:23:52 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Roll VERSION to 4.2.90. * defs.h: Incorporate param.h into defs.h. All users changed. * param-no-tm.h: Change users to define TM_FILE_OVERRIDE instead. * param.h, param-no-tm.h: Removed. * Update copyrights in all changed files. * dbxread.c, dwarfread.c, inflow.c, infrun.c, m2-exp.y, putenv.c, solib.c, symtab.h, tm-umax.h, valprint.c: Lint. * tm-convex.h, tm-hp300hpux.h, tm-merlin.h, tm-sparc.h, xm-merlin.h: Avoid host include files in target descriptions. * getpagesize.h: Removed, libiberty copes now. * Makefile.in: Remove getpagesize.h, param.h, param-no-tm.h. * exec.c (exec_files_info): If `verbose' is set, show file offset as well. * main.c: Use getcwd rather than getwd. * standalone.c: Fake getcwd rather than getwd. * xm-*.h: Remove fake values of MAXPATHLEN. * xcoffexec.c: Add /* */ to #if 0'd thing to help ANSI. Wed Nov 20 18:35:56 1991 John Gilmore (gnu at cygnus.com) * Remove gdb/hp-include. Support for HP a.out oddities should be in BFD, not in GDB. Move gdb/hp-include/a.out.h to include/a.out.hp.h. * infptrace.c, tm-sun386.h: Cashier , remove refs. * configure.in, xconfig, tconfig, Makefile.in, doc/gdbint.texinfo: Makefile fragments for various hosts and targets now come from gdb/config/mh-* and gdb/config/mt-*. This is for consistency with other config setups. * rs6000-pinsn.c, rs6k-opcode.h: Clean up. * rs6k-opcode.def: Delete. Wed Nov 20 05:04:40 1991 Fred Fish (fnf at cygnus.com) * dwarfread.c: Recognize obsolete form of AT_element_list attribute still used by at least one AT&T compiler, and possibly more. Tue Nov 19 07:53:55 1991 Fred Fish (fnf at cygnus.com) * dwarfread.c (enum_type, struct_type): Ignore names invented by helpful compilers for anonymous structs, unions, and enums. * c-exp.y, m2-exp.y: Add defines for yymaxdepth, yy_yys, and yy_yyv, so multiple parsers produced by SVR4 versions of yacc can coexist in the same executable without collision. * symtab.h: Add declaration for lookup_template_type() to kill compiler warnings about conversions from int to pointer. Mon Nov 18 17:45:18 1991 Fred Fish (fnf at cygnus.com) * procfs.c: Move inclusion of defs.h to before param.h, as in all the other source files that include both. This is required to supply some typedefs that are used in files included by param.h. * m68k-tdep.c (m68k_skip_prologue): Add generic m68k support for skipping function prologues, ala the other cpu families (i386, mips, m88k, etc). Add the ability to skip movm and fmovm instructions in the prologues. Still needs support for profile (-p compiled) prologue sequences (FIXME). * tm-68k.h: Change SKIP_PROLOGUE macro to use the new generic m68k prologue skipping function by default. * tm-altos.h, tm-isi.h: Continue to use the old definition of SKIP_PROLOGUE. Mon Nov 18 15:12:45 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Remove tdesc stuff, and extra blanks before colons. * blockframe.c: Remove tdesc-related code. Default FRAME_CHAIN_COMBINE. * infrun.c: Remove tdesc-related code. * m88k-tdep.c (frame_chain_combine, init_frame_pc): Remove copies of defaultable things. * tm-m88k.h: New file, common to all Moto 88k target configs. Derived from tm-delta88.h. * tm-delta88.h: Use it. * xm-m88k.h: Common file for 88K hosts. Remove obsolete stuff. * xm-delta88.h: Use it. * tm-*.h: Remove FRAME_CHAIN_COMBINE macros, since all are default. * coffread.c: Remove tdesc stuff. * tconfig/delta88, tconfig/m88k: Remove tdesc stuff. * xconfig/m88k: Rename tm-88k.h to tm-m88k.h. Mon Nov 18 13:51:37 1991 Per Bothner (bothner at cygnus.com) * source.c (open_source_file): If openp fails, try again using just the base (non-directory) part of the filename. This solves various annoying problems, such as when the source was compiled with an absolute pathname - and the source files have moved. Or if the source was compiled using a relative pathname, it can be more convenient to just specific the source directory to the dir command. Mon Nov 18 00:04:41 1991 Fred Fish (fnf at cygnus.com) * cplus-dem.c (munge_function_name): Add missing third arg to instance of call to do_type(). * dwarfread.c: Changes to match new dwarf.h. Remove AT_deriv_list, AT_loclist, AT_incomplete, AT_const_data, and AT_is_external. Sun Nov 17 16:20:53 1991 Michael Tiemann (tiemann at rtl.cygnus.com) * symtab.h (struct type): Moved C++-specific fields into new type `struct cplus_struct_type'. Now takes 10% less memory. Many macros changed. * symtab.c (init_type): Don't set fields belonging to TYPE_CPLUS_SPECIFIC unless TYPE is TYPE_CODE_STRUCT. * buildsym.c (read_type): Allocate TYPE_CPLUS_SPECIFIC for TYPE_CODE_STRUCT. (read_struct_type): Ditto. Also, add comments about how we can deduce TYPE_VPTR_FIELDNO from inheritance info and fieldname info. * coffread.c (decode_base_type): Allocate TYPE_CPLUS_SPECIFIC for TYPE_CODE_STRUCT. (read_struct_type): Ditto. * dwarfread.c (struct_type): Ditto. * symtab.c (read_range_type): Don't set TYPE_MAIN_VARIANT. (lookup_pointer_type): Don't use or set TYPE_MAIN_VARIANT. (lookup_reference_type): Ditto. * cplus-dem.c: Many changes made to handle decoding of ANSI-mangled names. * symtab.c (gdb_mangle_name): Mangle/demangle ANSI-mangled names as well. Fri Nov 15 17:57:59 1991 Stu Grossman (grossman at cygnus.com) * mipsread.c (parse_partial_symbols): patch to keep DEC C compiler from making gdb bomb out. Thanks to Ed Santiago! Thu Nov 14 19:27:30 1991 Fred Fish (fnf at cygnus.com) * symfile.c: Add function compact_misc_function_vector() to remove duplicate misc function vector entries. See comments in source for why this is necessary/desirable. * dwarfread.c: Add misc function type parameter to internal record_misc_function(). Remove calls to init_misc_bunches() and condense_misc_bunches(), these are now done in elfread.c. * elfread.c: Add support for reading bfd canonical symbol tables and generating misc function vector entries for global and absolute symbols. Do calls to init_misc_bunches() and condense_misc_bunches() where they will enclose all calls to record_misc_function(), including those in dwarfread.c. Thu Nov 14 17:02:11 1991 Roland H. Pesch (pesch at cygnus.com) * doc/Makefile.in: new targets gdb.me, gdb.ms, gdb.mm (roffable documentation). * doc/gdb.texinfo: embedded hints (as comments) for better texi2roff conversion. Thu Nov 14 13:18:25 1991 John Gilmore (gnu at cygnus.com) * m88k-tdep.c (examine_prologue): Deal with OR instructions that shuffle parameters into other regs. * symtab.c (decode_line_1): Fix bug introduced in Per's change of Nov 12th. Wed Nov 13 19:51:11 1991 Steve Chamberlain (sac at cygnus.com) * Makefile.in, xconfig/delta88 made it install a sysV manual page; gdb.z into the right place. Wed Nov 13 16:45:13 1991 John Gilmore (gnu at cygnus.com) Motorola 88000 port without tears, I mean without tdescs. * m88k-tdep.c: Blow away all tdesc stuff. Provide functions for all the frame-related macros in tm-delta88.h. Adopt i960-style EXTRA_FRAME_INFO. (examine_prologue, frame_find_saved_regs, skip_prologue): borrow from i960-tdep.c and adapt to the function prologues on the 88k. (read_next_frame_reg): Borrow from mips-tdep.c. FIXME: frame_locals_address should go away. * tm-delta88.h: Dump all the tdesc stuff. Macros for all frame-related stuff call fns of same name. Remove duplicated definitions. FP_REGNUM becomes same as SP_REGNUM. * xm-88k.h: Eliminate lots of library dependencies, now handled in libiberty. Eliminate KDB nonsupport. * doc/gdbint.texinfo: Add rudiments on frames. FIXME, add more. * stack.c (frame_info): Mark frameless functions. Print locals address (FIXME, remove if same). * blockframe.c: Comment changes, FIXME after. * coffread.c: Even without TDESC, need to zap "@" symbols. Don't register for wierd format names; change the names in BFD. * alloca.c, language.c, tdesc.c: Lint. * tdesc.c, tdesc-lib: FIXME: remove these. Tue Nov 12 19:30:22 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Add tdesc library support. Fixups to lint, copying.c rules. Tue Nov 12 13:43:26 1991 Per Bothner (bothner at cygnus.com) * symtab.c (decode_line_1): Remove spurious call to operator_chars. Allow setting breakpoints on C++ destructors. * valops.c (destructor_name_p): Don't check TYPE_HAS_DESTRUCTOR, since it lies. Rely on callers to catch missing destructors. * symtab.c (decode_line_1): For example (see above), here. * buildsym.c, symtab.h: Remove TYPE_FLAGS_HAS{CON,DE}STRUCTOR flags since they are no longer used. Fixes to support C++ methods with functional parameters. * c-exp.y (func_mod rule): Allow (and ignore) list of parameter types in a function type. * eval.c (parse_and_eval_type), value.h: New function, parse_and_eval_type, is based on old code from check_stub_method. But don't actually evaluate the cast, since that calls value_cast(), whcih may fail. Just extract the type from the parsed expression. * values.c (check_stub_method): While looping through the arguments, adjust depth *after* parameter has been handled. Replace call and setup of parse_and_eval with new function parse_and_eval_type. Tue Nov 12 09:40:07 1991 Fred Fish (fnf at cygnus.com) * utils.c, rem-multi.shar: Remove fixed arg count version of concat(). * altos-xdep.c, arm-xdep.c, coffread.c, command.c, convex-xdep.c, core.c, dwarfread.c, gould-xdep.c, infcmd.c, language.c, m88k-xdep.c, main.c, printcmd.c, pyr-xdep.c, source.c, sun386-xdep.c, symm-xdep.c, umax-xdep.c, values.c, xcoffread.c: Change all instances of use of fixed args concat() to variable args concat() now located in libiberty. Tue Nov 12 07:23:46 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Add xcoffread.c, xcoffexec.c. * xcoffread.c: New file for handling AIX mangled-coff files. * xconfig/rs6000, tconfig/rs6000: New files. * buildsym.c: Add hooks for xcoffread.c. * rs6000-pinsn.c, rs6000-tdep.c, rs6000-xdep.c, tm-rs6000.h, xm-rs6000.h, rs6k-opcode.def, rs6k-opcode.h: New files. * xcoffexec.c: New file for handling AIX shared libraries. Mon Nov 11 19:14:31 1991 Fred Fish (fnf at cygnus.com) * core.c: Minor rewording of message to user containing name of (and possibly arguments to) the program that generated a core file. * elfread.c: Remove the register_addr() stub now that it is no longer needed. * procfs.c: Move misplaced #endif for ATTACH_DETACH. Add new fetch_core_registers() function for core file support. Sat Nov 9 13:37:57 1991 Fred Fish (fnf at cygnus.com) * dwarfread.c (dwarf_psymtab_to_symtab): Remove leftover call to do_cleanups() which resulted from a previous change. * elfread.c: Re-enable compilation of register_addr() stub whenever it is not supplied by coredep.c Sat Nov 9 00:40:32 1991 John Gilmore (gnu at cygnus.com) Add tracking of object files (that contain symbols) to gdb. This includes a "struct objfile" that owns symtabs and psymtabs that were read in from that binary file. * symfile.h: Add struct objfile. Add pointer to the objfile into the struct sym_fns. Replace global `symfile' and `symfile_mtime' with `symfile_objfile'. Add global object_files chain. * symfile.c: Move param.h above symtab.h. (sort_misc_function_vector): Add. (syms_from_objfile): Was syms_from_bfd. (symfile_open): Now returns objfile. (allocate_objfile): New. (free_objfile): New, replacing free_all_.*symtabs. (symfile_init): Takes objfile arg, puts it in sym_fns result. (reread_symbols): Searches whole chain of objfiles. (allocate_symtab): Takes objfile as new parameter, chains them. Handle INIT_EXTRA_SYMTAB_INFO. (free_all_psymtabs, free_all_symtabs): Move here from symmisc.c. * dbxread.c: Make more errors into complaints. (push_subfile, pop_subfile): Move to buildsym.c. (dbx_symfile_read, dbx_symfile_init, fill_symbuf, read_dbx_symtab, start_psymtab, psymtab_to_symtab_1, read_ofile_symtab, dbx_psymtab_to_symtab, ): Use bfd ops, don't use file descriptor. Pass objfile. Change callers. (fill_symbuf, SWAP_SYMBOL): Take bfd as arg. (read_dbx_symtab): Just wipe out new symbols, not all, on error. (end_psymtab): Blow away psymtab if empty. (process_symbol_pair): Swallow into read_ofile_symtab. (process_one_symbol): Use push_context and pop_context. (virtual_context): Delete #if 0'd obsolete stuff. * buildsym.c (end_symtab): Pass objfile. (dbx_lookup_type): Handle null typevector. (dbx_alloc_type): Check file number, not sym number, for -1. (find_symbol_in_list): Add for xcoffread. (start_symtab): Default typevector is empty. Keep reusing same context_stack. (end_symtab): Take objfile argument and pass it to allocate_symtab. Don't make a symtab if no blocks or symbols. Handle empty typevector. (push_context): New function for context stack nesting. (read_type): Mark FIXME where we need to reintroduce type smashing. * buildsym.h (pop_context): Macro, paired with push_context. (subfile_stack): Move here from dbxread.c. * coffread.c (end_symtab, read_coff_symtab): Take and use objfile arg. (read_coff_symtab): Cleanup by freeing objfile, not all symtabs. * mipsread.c (read_mips_symtab, parse_partial_symbols, parse_fdr, new_psymtab, new_symtab): Take and use objfile arg. * dwarfread.c (scan_compilation_units, start_psymtab, process_dies, end_symtab, dwarf_build_psymtabs, read_lexical_block_scope, read_func_scope, read_file_scope): Take and use objfile argument. (psymtab_to_symtab_1, read_ofile_symtab): Don't take or use file descriptor. Use BFD internal functions instead. (end_symtab): Call global allocate_symtab. * elfread.c, target.c: Minor changes to accommodate objfiles. * symtab.h: partial_symbol_table has no symfile_name member now. (fn_fieldlists voffset): avoid non-int bitfield. (struct symtab): Add objfile * and objfile_chain * of symtabs. (struct partial_symtab): Add objfile * and objfile_chain * of psymtabs. Remove symfile_name. * symmisc.c: Lose free_all_symtabs, free_all_psymtabs. (printsyms_command): Rename from print_symtabs. Add selective listing if 2nd argument given. Print objfile info. (printpsyms_command): Rename from print_partial_symtabs. Ditto all. (printobjfiles_command): New; prints objfiles lists, and checks for consistency of symtab, psymtab, and objfile lists. * symfile.h, symfile.c, symtab.h: Lint Fri Nov 8 23:38:48 1991 John Gilmore (gnu at cygnus.com) * command.c: Include param.h. * defs.h (warning_setup, warning): Declare. * expprint.c (print_subexp, UNOP_MEMVAL case): Lint. * inflow.c (new_tty): Use USE_O_NOCTTY #define. * language.c, printcmd.c (print_scalar_formatted), signame.c, stack.c: lint. Thu Nov 7 18:26:15 1991 Steve Chamberlain (sac at rtl.cygnus.com) * Makefile.in: link with libiberty after libreadline, since readline might want something in libiberty. * m88k-xdep.c: Fixed the register offsets in the ptrace_user struct for BCS 88k machines. * xm-m88k.h: don't define USIZE if already defined. * configure.in: Added delta88 target. Thu Nov 7 04:51:19 1991 John Gilmore (gnu at cygnus.com) * am29k-pinsn.c, am29k-opcode.h: Fix decoding of mtacc, dmac, fmac. * tm-*.h: Remove READ_DBX_FORMAT, COFF_FORMAT, and READ_MIPS_FORMAT, which have been unused since BFD. Still remaining is COFF_NO_LONG_FILE_NAMES. * tm-sun3.h, tm-altos.h: Remove detritus accidentally left from function calling code moved to m68k-tdep.c. Wed Nov 6 17:21:59 1991 John Gilmore (gnu at cygnus.com) * coffread.c: Eliminate c_nsyms in favor of c_naux. Complain if no auxents on .bf and .ef FCN symbols, and assume lots of line numbers. (init_linenos, enter_linenos): Use a sentinel at the end of the read-in linenos, to make for a fast, safe loop-end test. Wed Nov 6 02:54:08 1991 Steve Chamberlain (sac at cygnus.com) * coffread.c (read_coff_symtab): coffread used to rely on the x_sym.x_misc.x_lnsz.x_lnno field giving the # of linnos in a function. Two of the formats I'm using (29k and 88k) don't seem to set it. Ths patch to fcn_last_line and (enter_linenos) is an attempt to use the actual size of the linno table in the file to set the number of linenos to process. Tue Nov 5 22:47:46 1991 Steve Chamberlain (sac at cygnus.com) * Makefile.in: put a - infront of the mv y.tab.c c-exp.tab.c and mv y.tab.c m2-exp.tab.c, so that if bison is used, and the files are created in place, so the mv fails, then the make continues. Tue Nov 5 16:47:47 1991 Per Bothner (bothner at cygnus.com) Add C++ as a separate language. * defs.h (enum language): Add language_cplus. * dwarfread.c (end_symtab): Support language_cplus. * c-exp.y: Add new struct language_defn cplus_language_defn. Don't set c to be the default language (see main.c). * c-exp.y (yylex): Only look for field of this if language is C++. (First difference from C!) * language.c: Add case branches for C++ (currently, all the same as C). Also, add c++ to "usage" note for "set lang". * valprint.c (typedef_print). Add case branches for C++. * main.c (main): New way to set initial language: Look at file extension of psymtab containing main(). (Same as we do for symtabs, but avoid loading the symtab yet.) * symtab.c: New routine find_main_psymtab(), used by main() to set initial language. * symfile.c (allocate_symtab): Move code for mapping file extensions-> languages to new deduce_language_from_filename(). Fix a C++ problem when looking for methods in super-classes. There was confusion between base and derived types. * valops.c (value_fn_field): Change function interface. * values.c: Use new value_fn_field interface. Mon Nov 4 10:49:33 1991 Per Bothner (bothner at cygnus.com) * infrun.c: Fixed typo in comment. * utils.c: All the v*fprintf emulation is now in libiberty, so we can get rid of some junk. * xm-sun3os4.h, xm-sun4os4.h, xconfig/decstation, xconfig/i386sco, xconfig/sun3os4, xconfig/sun4os4: Don`t need HAVE_STRSTR any more. * m68k-pinsn.c (print_insn_arg): Support BB/BW/BL type operands, as used by branch instructions. * gmalloc.c: Fix prototype of memcpy. * elfread.c: Comment out register_addr, since it conflicts with the one in coredep.c. * buildsym.h: Remove extern declarations of two functions that are really static in buildsym.c. * tm-mips.h: Add symbolic names for more registers. * mips-xdep.c (store_inferior_registers): Use new register names. * xm-mips.h: Simplify REGISTER_U_ADDR, since it is now only used for core files, not ptrace. Therefore, the KERNEL_U_ADDR hack is no longer needed. The mapping to ptrace number is now in in mips-xdep.c. * mips-xdep.c: Define REGISTER_PTRACE_ADDR (using the mapping from the old REGISTER_U_ADDR), and use it in {fetch,store}_inferior_registers. * mipsread.c: Rename #include ecoff.h to new name coff-mips.h. * mips-tdep.c (mips_push_dummy_frame, mips_pop_frame): Save/restore FP regs correctly (?). * dbxread.c: Remove duplicate define_symbol and type_synonym_name (these had been previously moved to buildsym.c). Hence, define_symbol becomes extern instead of static. * buildsym.c (read_struct_type): Comment out bogus handling of C++ operator methods. Minor hacking of reading of class contexts. Make define_symbol non-static, so dbxread.c can call it. Fri Nov 1 11:05:47 1991 John Gilmore (gnu at cygnus.com) * mipsread.c (read_mips_symtab, read_the_mips_symtab): Use real filename with error messages. * stack.c (frame_select_command): Rename to select_frame_command to avoid "fr" and "fra" having nonunique completions. * symfile.c (sort_symtab_syms): Ignore sort of zero symtab *. (symfile_init): Print file format name when unable to handle it. (free_named_symtabs): Use BLOCKVECTOR rather than obsolete BLOCKLIST. * symmisc.c (free_symtab): Only free linetable if nonzero. * symtab.h: Remove obsolete BLOCKLIST macros. Thu Oct 31 18:12:43 1991 Stu Grossman (grossman at cygnus.com) * infrun.c (wait_for_inferior): another stepi/nexti fix. Ensure that stop_step is 1 at bottom of main loop. I don't know why this needs to be done, but it helps me sleep better at night. Sun Oct 27 18:18:39 1991 Stu Grossman (grossman at cygnus.com) * main.c (initialize_history): Read history after reading all init files. Sun Oct 27 14:09:25 1991 John Gilmore (gnu at cygnus.com) * buildsym.c: Break out initial malloc sizes. (record_line): Record directly in a subfile. Alloc on demand. (compare_line_numbers): Add from xcoffread.c. (end_symtab): New params say whether to sort pendings and linetable. Patch block stabs if defined. Shrink linetable before allocating the symtab. * buildsym.h: Delete line_vector* and prev_line_number. Add global_stabs and file_stabs for xcoffread. * dbxread.c (start_subfile): Move to buildsym. Change above calls. * symtab.h: LINETABLE(symtab) can now be null. Zap LINELIST. * symmisc.c, symtab.c: Cope with null LINETABLEs. * blockframe.c: Pass fromleaf to INIT_EXTRA_FRAME_INFO. * tm-29k.h, tm-88k.h, tm-i960.h, tm-irix3.h, tm-mips.h, tm-pyr.h, tm-sparc.h: Accept fromleaf parameter. * c-exp.y (yyerror): Pass error message if given. * configure.in: Add rs6000 host and target. * inflow.c (new_tty): O_NOCTTY kludge for RS/6000. * symfile.h (entry_point): Add. Sat Oct 26 00:16:32 1991 John Gilmore (gnu at cygus.com) * buildsym.c: New file. Breaks out symbol-table-building routines from dbxread.c, so they can be shared with xcoffread.c. * buildsym.h: New file. Declarations for buildsym.c users. * dbxread.c: Remove large chunks into buildsym.c. * Makefile.in: Add buildsym.c and buildsym.h. * symfile.c (syms_from_bfd): New routine. (add_symbol_file): Call it to do the real work. (syms_from_bfd): Initialize entry_point before calling symfile_init. * symtab.h, symfile.c, coffread.c, mipsread.c, dwarfread.c: Avoid declaring or setting entry_point (symfile.h & symfile.c cope). Fri Oct 25 10:58:16 1991 Mark Eichin (eichin at cygnus.com) * cplus-dem.c (cplus-demangle): added support for templates, static data, and the new (correct) mangling for destructors. * dwarfread.c: (dwarfwarn): created a varargs version of dwarfwarn, for non __STDC__ compilers. * c-exp.y: (yylex): added match for "template" token. (typebase): added TEMPLATE name '<' type '>' clause, for explicit specification of template types. * symtab.c: (lookup_template_type): new function for finding templates in symbol table. (type_name_no_tag): changed to explicitly check for s/u/e at the beginning of the symbol - if it is a template, none of these will be there (but the name will still contain spaces.) Fri Oct 25 18:59:32 1991 Per Bothner (bothner at cygnus.com) Various fixes to improve g++ debugging. * symtab.h: Add is_const and is_volatile flags for each method. These are bit fields - take their space from voffset, which shrinks to 30 bits. Since voffset is now a bitfield, make it unsigned for portability. This changes its interpretation slightly: Static methods now have voffset 1 instead of -1, and virtual offsets start at 2, not 1. * symtab.c: Renamed gdb_mangle_typename to gdb_mangle_name, since it now returns an entire magled method name, not just the type part. This avoids some duplication. It also allows us to correctly mangle const and volatile methods (using the new is_const and is_volatile bit fields mentioned above). * valprint.c (type_print_base), values.c (check_stub_method): Simplify by using new gdb_mangle_name. * values.c (value_headof): Fix to correctly handle single inheritance (actually two fixes, either of which suffices). * dbxread.c (read_struct_type): Handle const and volatile method specifiers. * dbxread.c (read_struct_type): Yet one more place where we must handle '\\' continuations. * valprint.c (vtbl_ptr_name): Add final '\0'. Fri Oct 25 16:06:38 1991 Stu Grossman (grossman at cygnus.com) * tm-sparc.h, tm-68k.h (EXTRACT_RETURN_VALUE): fix output of short return values for sparc and 68k. Patch from Paul Eggert. * coffread.c, coredep.c, i386-xdep.c: install patches for SysV/386 3.2 from Mauro DePalma. Fri Oct 25 02:02:13 1991 John Gilmore (gnu at cygnus.com) * core.c (core_file_info), exec.c (exec_file_info): Print file type. Use printf_filtered. * valops.c (value_fetch_lazy): Avoid 0-length fetches. Thu Oct 24 23:06:40 1991 Fred Fish (fnf at cygnus.com) * dwarfread.c: Add casts to remove compiler warnings. * tm-3b1.h, tm-68k.h, tm-altos.h, tm-amix.h, tm-hp300bsd.h, tm-hp300hpux.h, tm-isi.h, tm-news.h, tm-pn.h, tm-sun2.h, tm-sun3.h: Remove locally duplicated code for calling functions in the inferior. The only differences were in the specific trap vectors used and whether or not an fpu was present. These are now handled by appropriate definitions of BPT_VECTOR and HAVE_68881 respectively. Other minor obvious cleanups. * valops.c: Correct a minor misspelling. * utils.c: Remove local BSD/USG hacks that are now in libiberty. * dwarfread.c: Remove prototype for dwarfwarn. Does not work with . Thu Oct 24 09:33:44 1991 John Gilmore (gnu at cygnus.com) * stack.c (frame_command): Always print. Use new frame_select_command to select a frame without printing. * dwarfread.c: Use , since is not portable. Thu Oct 24 01:32:51 1991 Fred Fish (fnf at cygnus.com) * dwarfread.c: New file for DWARF debugging format support. * elfread.c: New file for ELF object file format support. * procfs.c: New file for SVR4 /proc (process file system) support. * tm-amix.h, xm-amix.h, tconfig/amix, xconfig/amix: New files for Amiga UNIX support. * xm-svr4.h, tm-svr4.h: New files for SVR4 support. * xm-m68k.h: New file for host machines with m68k cpu. * Makefile.in: Add elfread.c and dwarfread.c to SFILES_MAINDIR. Add elfread.o and dwarfread.o to OBS. * symfile.h: Add "elf" to list of supported formats in comment. * c-exp.y, defs.h, symtab.h, valprint.c: Add three new builtin types to gdb, builtin_type_long_double, builtin_type_complex, and builtin_type_double_complex. Add and use new TARGET_SHORT_BIT, TARGET_INT_BIT, TARGET_LONG_BIT, TARGET_FLOAT_BIT, TARGET_DOUBLE_BIT, TARGET_LONG_DOUBLE_BIT, TARGET_COMPLEX_BIT, and TARGET_DOUBLE_COMPLEX_BIT, as the sizes in bits of the indicated types on the target machine (ala the existing TARGET_LONG_LONG_BIT). * infrun.c: When using SVR4 /proc interface instead of ptrace(), call proc_set_exec_trap() to setup child to stop at first instruction. * inftarg.c: When using SVR4 /proc interface, call proc_wait() rather than wait(). * m68k-tdep.c: Add new routines supply_gregset(), fill_gregset(), supply_fpregset(), and fill_fpregset(), which are machine dependent support routines for SVR4 /proc interface. * utils.c: Add warning_setup() and warning(). Warning() behaves the same as error() except that it returns normally rather than jumping back to command level. Modules that don't want to call warning() for some reason, but want to produce their own warnings, can call warning_setup() to ensure compatibility with the way warning() and error() deal with the terminal. * symtab.c: Make internal errors produce more useful messages. * tm-68k.h: Move code that is duplicated in almost every single m68k based machine's configuration files to this common file. Duplications in the configuration files still need to be removed (FIXME). * infrun.c (child_create_inferior): System V versions must call setpgrp() with no arguments, to comply with prototyping typically in . * munch: Add support for SVR4 style nm output. * dbxread.c, mipsread.c symmisc.c, symtab.c: Remove the object file specific fields from the partial symbol table structure and replace them with a pointer to private data for each different flavor of object file reader to initialize appropriately. Wed Oct 23 09:38:20 1991 John Gilmore (gnu at cygnus.com) * xconfig/sun[34]os4: Add note about strstr botch on sunos4.0.3c and previous. * mipsread.c (fixup_undef_type): New function. If a struct / union / enum is defined in a header file but nowhere else used, (by typedefing, pointer referencing or declaration) the mipsread code builds the complete tree for the structure but leaves its code as TYPE_CODE_UNDEF as it doesn't know what kind of aggregate it is. Guess its type based on the details of the members. Tue Oct 22 18:04:32 1991 Stu Grossman (grossman at cygnus.com) * infrun.c (wait_for_inferior): Check return value from find_pc_line. Mon Oct 21 17:47:03 1991 Stu Grossman (grossman at cygnus.com) * infrun.c (wait_for_inferior): fix stepi/nexti that was broken by my last edit to this routine. Mon Oct 21 14:27:43 1991 John Gilmore (gnu at cygnus.com) * tm-sun3.h (FIX_CALL_DUMMY): problem with cross debugging. FIX_CALL_DUMMY does unaligned accesses and/or forgets to byte swap the values before putting them into the dummy code. (From Peter Schauer) Mon Oct 21 10:04:39 1991 Steve Chamberlain (steve at rtl.cygnus.com) * configure.in: added ebmon target. Wed Oct 16 22:49:58 1991 John Gilmore (gnu at cygnus.com) GDB-4.2 release! * Makefile.in: Roll VERSION to 4.2. * README, TODO, WHATS.NEW: Update. * core.c (core_open): Improve error message for bad file. Pass .reg virtual memory address to fetch_core_registers to help it find the registers in the core-file header. * coredep.c (fetch_core_registers): Take new argument, use it, and pass it to register_addr to locate the block of registers. * xm-mips.h: Update KERNEL_U_ADDR for new scheme. Cleanup a bit. * dbxread.c (read_dbx_symtab, process_one_symbol): Handle Sequent N_FN_SEQ like everybody else's N_FN. * main.c: Circumvent SCO cc bug with #if !!defined(USG). * tm-i386v.h: #endif guck. * xconfig/i386*: Remove -Dgetpagesize()=4096 kludge. * xconfig/i386sco: Add HAVE_STRSTR to avoid ANSI bdeath. * xconfig/tahoe: Add REGEX, which seems to be missing. * coredep.c: Add for SCOnix. * dbxread.c (read_dbx_symntab): Avoid coredump on malformed file. * printcmd.c (print_formatted): Flush output before disassembly. Tue Oct 15 20:12:32 1991 Roland H. Pesch (pesch at fowanton.cygnus.com) * doc/refcard.tex (sec "Working Files"): consistent metavars and other improvements, due to comments by François Pinard (pinard@iro.umontreal.ca) * doc/gdb.texinfo (appendix "Installing GDB"): changes in configure, and improvenets related to Pinard's refcard comments Tue Oct 15 08:45:12 1991 John Gilmore (gnu at cygnus.com) Changes from Fred Fish: * tm-68k.h (FPI_REGNUM): Add. * infrun.c (child_create_inferior): flush stdout and stderr before forking. * configure.in: Handle amigados, amix hosts and targets. * inflow.c: Handle TIOCGLTC_BROKEN for Amiga. From Andreas Schwab: * values.c (show_convenience): Use printf_filtered. * main.c (define_command): Check result of lookup_command for exact match. (echo_command): Use printf_filtered, and force output out. * dbxread.c (read_enum_type): Avoid Modula-2 kludge that breaks C programs. * i387-tdep.c (double_to_i387): Fix typo for double_to_ieee_extended. * utils.c (_initialize_utils): If !ISATTY, don't paginate. * configure.in, tconfig/decstation, xconfig/decstation: Rename dec3100 to decstation. Mon Oct 14 13:37:50 1991 Roland H. Pesch (pesch at cygnus.com) * doc/gdb.texinfo: Catch up to changes recorded here in ChangeLog (nodes Continuing and Stepping; Memory; Targets) clarifications due to Larry Breed Fri Oct 11 23:27:06 1991 John Gilmore (gnu at cygnus.com) * tm-{irix3,mips,nindy960,pn,symmetry,vx960}.h: Move REGISTER_U_ADDR to corresponding xm- file. Sugg. by Peter Schauer. * symmisc.c (print_partial_symtabs): Add printpsyms debug cmd. * m68k-tdep.c (m68k_push_dummy_frame, m68k_pop_frame): Add generic routines for calling inferior functions. * blockframe.c (inside_main_scope, inside_entry_scope): New. * copying.awk: Filter formfeeds out of copying & warrantee. Make them available as `show copying' and `show warrantee' also. * main.c (print_gnu_advertisement): Advt `show' commands. Thu Oct 10 17:25:47 1991 John Gilmore (gnu at cygnus.com) * mach386-xdep.c: Even when cross-compiling, leave in the core-file reading code. * core.c (get_core_registers): Avoid coredump if no .reg section. Wed Oct 9 17:03:34 1991 John Gilmore (gnu at cygnus.com) * mipsread.c, coffread.c: initialise TYPE_VPTR_FIELDNO to -1. This avoids coredumps under `set print object on' in value_headof (called erroneously by value_from_vtable_info) for `p &struct' or `p *struct'. From Peter Schauer. Mon Oct 7 00:06:52 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Roll version to 4.1.2. * dbxread.c: Use aout64.h, not a.out.gnu.h. Get external symbol entry size from BFD (but, FIXME, we don't yet read external nlists's and convert them to internal nlists's before handling them -- we still assume they have the same size and alignment.) Use SET_NAMESTRING everywhere useful. * exec.c (exec_file_command): Move dead coff-encapsulation code to BFD. * m88k-tdep.c, m88k-xdep.c: Remove encap test and #inc . Fri Oct 4 22:30:06 1991 John Gilmore (gnu at cygnus.com) * configure.in, tm-i386v.h, xm-i386v.h: Intel 386 Mach host port. * xm-i386mach.h, mach386-xdep.c, xconfig/i386mach: New files. Fri Oct 4 17:04:31 1991 Per Bothner (bothner at cygnus.com) More patches from Peter Schauer : * mips-xdep.c (store_inferior_registers): Don't try to write the (pseudo) FP. * mipsread.c (parse_partial_symbols): Improved algorithm for setting pst->texthigh. Fri Oct 4 16:47:32 1991 Roland H. Pesch (pesch at cygnus.com) * doc/Makefile: make TEXINPUTS include . everywhere Fri Oct 4 00:35:56 1991 John Gilmore (gnu at cygnus.com) * coffread.c, dbxread.c, symfile.c, symmisc.c, symtab.h: Remove vestiges of typevectors, which were for symsegs and are no longer used. (From a question by Eliot Dresselhaus ). Thu Oct 3 09:33:26 1991 John Gilmore (gnu at cygnus.com) * dbxread.c, coffread.c: static-ize functions that were gratuitiously external. (From Fred Fish.) * c-exp.y: sym->class to SYMBOL_CLASS (sym). * dbxread.c (dbx_lookup_type): Keep doubling size of typevector until it is large enough. * dbxread.c (read_type): Handle error case slightly better. Make complaint message not C++-specific. Wed Oct 2 17:21:07 1991 Stu Grossman (grossman at cygnus.com) * infrun.c (wait_for_inferior): Fix step/next so that you only stop at the beginning of a new line. This fixes various problems with for loops, nested if-else's and switch statements. Tue Oct 1 06:33:55 1991 John Gilmore (gnu at cygnus.com) * symtab.c (lookup_symtab_1, lookup_symbol): "fatal" errors between symtabs and psymtabs become ordinary error()s. * dbxread.c (read_dbx_symtab): Relocate end_of_text_addr properly, making "end pc" correct in shared lib psymtabs. (From Guy Harris .) Mon Sep 30 13:15:31 1991 John Gilmore (gnu at cygnus.com) * dbxread.c: Enable, but soften, const_vol_complaint. (read_dbx_symtab): N_STSYM and N_LCSYM define static vars. Ditto Gould N_NBSTS and N_NBLCS. Also, all types in the psymtab should be file-scope, not global. (read_struct_type): Remove ancient multiple-inheritance warning. (read_range_type): Check base type, complain & patch if undefined. * stack.c (frame_info): Demangle the function name in `info stack'. (From Peter Schauer) Sat Sep 28 10:02:33 1991 John Gilmore (gnu at cygnus.com) * eval.c (evaluate_subexp_for_address): Don't use TYPE_POINTER_TYPE directly (it might be zero if this type has never had a pointer created before); use lookup_pointer_type. * symtab.c (lookup_method_type): Arguments were swapped in all callers, so fix it here. I'm amazed this worked at all! Fri Sep 27 18:09:31 1991 John Gilmore (gnu at cygnus.com) * c-exp.y, m2-exp.y: Define more yysymbols that happen to be "bss" rather than "data" symbols, but which still conflict. * m2-exp.y: Lint. * coffread.c (coff_symfile_read): Use xmalloc, not malloc. * core.c (core_files_info): Shorten output. * exec.c (exec_files_info): Ditto. (build_section_table): Ignore zero-length sections. * language.c, printcmd.c: Lint. * language.h (get_frame_language): Declare. * saber.suppress: update. * stack.c (find_relative_frame): Remove complex code that was #if 0'd, stick with simple code. Lint. * saber.suppress: Update a bit. * symfile.c (add_symbol_file_command): Add "?" to question. * utils.c (parse_escape): Avoid \a due to bdead compilers. * value.h: Declare typedef_print. * valprint.c (val_print, type_print_base): TYPE_CODE_RANGE less kludgey. * nindy-tdep.c (nindy_frame_chain_valid): Use lookup_misc_func. (Reported by Mark Peek .) * solib.c (solib_map_sections): Relocate all sections, even though only the text section's size is tracked. Mark ld_text for eventual elimination as we generalize to N sections. * infrun.c (wait_for_inferior): Don't check if the PC is in a call_dummy if we were stopped by a random signal that is being passed to the program. This produced wierd results when calling functions in the inferior and signals (e.g. SIGALRM) were in use. Tue Sep 24 18:05:30 1991 John Gilmore (gnu at cygnus.com) * infrun.c (IN_SIGTRAMP): Not parenthesized properly. Bugfix from Paul Eggert . * tm-ultra3.h (IN_SIGTRAMP): Ditto. * valprint.c (print_floating): Print 9 digits for IEEE floats. From Paul Eggert. Mon Sep 23 15:50:07 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Roll VERSION to 4.1.1. * source.c (line_info): Peter Schauer fixes a bug I introduced in hex conversion. Fri Sep 20 16:10:52 1991 John Gilmore (gnu at cygnus.com) GDB-4.1 release! * Makefile.in (VERSION): Set to 4.1. * language.c (set_language_command): Print useful help message, and restore the language string after giving help. * valprint.c (typedef_print): Print typedef in C or M2. * symtab.c (list_symbols): Use it. * main.c (main): Avoid any output before (gdb) prompt when -q. * language.c (set_language_command): Handle errors by restoring the language string to its current state (fix from A. Beers). * doc/gdbint.texinfo: Roll in information from README. Rearrange "how to install" and "how to print the doc" stuff so it drops easier into README. * configure.in: Rename rtpc CPU to romp to match config.sub. * README, WHATS.NEW, TODO: Update for gdb-4.1. Fri Sep 20 17:39:14 1991 Roland H. Pesch (pesch at cygnus.com) * doc/gdb.texinfo: Updates from ChangeLog. set/show write, autoloading shared libs, copyright etc on GDB startup, clean up $_ and $__ index refs, set/show listsize and related updates to list cmd. New host/target configs. Fri Sep 20 15:46:00 1991 Roland H. Pesch (pesch at cygnus.com) * doc/Makefile: generate aux version-no file doc/gdbVN.m4 from main Makefile.in version definition doc/gdb.texinfo: use version recorded in doc/gdbVN.m4 for current GDB version no refs Makefile.in (setup-to-dist): generate doc/gdbVN.m4 * doc/gdb.texinfo: merge new language-switching and lang-specific doc by Andrew Beers Fri Sep 20 15:00:57 1991 Per Bothner (bothner at cygnus.com) * mcheck.c: Add __ONEFILE kludge to allow compilation by non-ANSI compilers (which may lack stddef.h). Fri Sep 20 13:29:42 1991 John Gilmore (gnu at cygnus.com) * dbxread.c (read_dbx_symtab, process_one_symbol): N_FN and N_WARNING are the same except for the N_EXT bit, so just use their values alone, rather than OR-ing them with N_EXT. Fri Sep 20 12:27:55 1991 Stu Grossman (grossman at cygnus.com) * mipsread.c (parse_lines): Deal with negative extended line offsets correctly. * c-exp.y, m2-exp.y: #define yyerrflag and yynerrs to avoid global symbol conflicts. Fri Sep 20 02:28:15 1991 John Gilmore (gnu at cygnus.com) * .gdbinit: Move 'set complaints' to top, so it runs even in case we aren't debugging GDB. * language.c (_initialize_language): Fix type check and range check documentation strings. * utils.c (!HAVE_VPRINTF): Define vfprintf as a function, so language.c can use it. (Though language.c should really not be handling warnings/errors the way it does, FIXME.) * symtab.c (lookup_primitive_type): const lint. Bugfix from Peter Schauer: * source.c (lines_to_list): Make signed, to avoid comparison going unsigned and complaining that -3 is too high for 21 lines. * stack.c (lines_to_list): Ditto. Thu Sep 19 23:33:41 1991 John Gilmore (gnu at cygnus.com) * Makefile.in (HFILES): Add minimon.h. (VERSION): Roll version number to 4.0.95. (gdb.tar.Z, make-proto-gdb.dir, setup-to-dist, gdb-XXX.tar.Z): New rules for building distributions. Normal distribution is built by doing `make -f Makefile.in gdb.tar.Z' in the directory one level up from here; it calls make-proto-gdb.dir to build a directory `proto-gdb' which is an image of the release. The old `gdb.tar.Z' rule still works too. * config.sub, configure: Roll in latest from .. Thu Sep 19 17:41:24 1991 Roland H. Pesch (pesch at cygnus.com) * doc/gdbint.texinfo: Reorder contents; reorganize new-host, new-target, and new-config chapters; fix minor typos; come closer to usual GNU markup conventions for @file @samp @code @var. Thu Sep 19 17:04:12 1991 Per Bothner (bothner at cygnus.com) Patches from Peter Schauer : * mipsread.c (parse_partial_symbols): Enter the name of all structs/unions... into the psymtab so we can access them if the symtab is not read in. * mips-tdep.c: Remove some unneeded #includes. * xconfig/dec3100: Add HAVE_STRSTR. Thu Sep 19 15:14:23 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Circumvent Sun Make bug on *-exp.tab.o. * c-exp.y, m2-exp.y: Lint. * m2-exp.y: Avoid using yytname[] which is a Bison-ism. * valprint.c (val_print_fields): Check for stub type. * mipsread.c (_initialize_mipsread): Avoid using builtin_type_void at initialize time. (mipscoff_symfile_read): use it now. Wed Sep 18 15:55:51 1991 John Gilmore (gnu at cygnus.com) Merge multiple-language support, and partial Modula-2 support, from Andrew Beers . * i387-tdep.c: New file, consolidates most 80387 support, and eliminates host dependency on double<->extended conversions. * i386-xdep.c, symm-xdep.c: Remove most 387 support. * xconfig/i386{sco,v,v-g,v32,v32-g}: Now need i387-tdep.o. * symfile.c (allocate_symtab): New fn, consolidates the work of allocating and initializing a new struct symtab. Set the language of the symtab based on its filename extension. * symfile.h: Declare it. * mipsread.c (new_symtab): Use it. Minor formatting changes. * dbxread.c (end_symtab): Use it. * mipsread.c (parse_symbol, case stParam and stProc): Add #if 0'd code for saving types of parameters with each function definition. * dbxread.c (define_symbol, function and parameter cases): Ditto. (read_dbx_symtab, case N_DEFD): Ignore. (read_enum_type): Recognize FALSE/TRUE enum as Modula-2 BOOLEAN. (read_range_type): Rename MAX_OF_TYPE to MAX_OF_C_TYPE, etc. #if 0 out its uses, though, since they set a dead value. * coffread.c (end_symtab): Use allocate_symtab. (process_coff_symbol): #if 0'd for functions and params as above. (read_enum_type): Recognize Modula-2 BOOLEAN. * symtab.c (add_param_to_type): #if 0'd function to add a parameter type to a function type's field list. * defs.h (local_hex_format, local_hex_string, *_custom): Add. * i386-xdep.c, pyr-tdep.c, pyr-xdep.c, remote-vx.c, solib.c, source.c, symfile.c, dbxread.c, breakpoint.c, core.c, exec.c, i387-tdep.c, infcmd.c, mips-tdep.c, stack.c, printcmd.c: Output hex with local_hex_string for Modula-2 support. * breakpoint.c (breakpoint_cond_eval): Use new value_true to test breakpoint condition language-independently. * parse.c: New file with the common code remains of expread.y. * parser-defs.h: New file with common declarations from expread.y. * c-exp.y: New file with the C parser from expread.y, and other language-specific information. * m2-exp.y: New file with the Modula-2 parser and etc. * expread.y, expread.tab.c: Remove. * breakpoint.c, eval.c, printcmd.c, expression.h: Use parse_expression and parse_exp_1 rather than parse_c_expression and parse_c_1. * symtab.h (enum languages): Move to defs.h. (enum type_code): Add TYPE_CODE_CHAR and TYPE_CODE_BOOL. Declare Modula-2 builtin types. Add MAX_OF_TYPE and MIN_OF_TYPE macros. * symtab.c (_initialize_symtab): Remove builtin type definition and initialization to *-exp.y. (lookup_primitive_typename): Use language-dependent vector. (lookup_typename): Fix bug, make it work if primitive typename. (lookup_unsigned_typename): Call above. (create_array_type): Set up range type for array index. (list_symbols): Call typedef_print to print typedefs. * values.c (unpack_long, value_from_longest): Handle TYPE_CODE_BOOL and TYPE_CODE_CHAR. * expression.h (enum exp_opcode): Add Modula-2 specific opcodes. * expprint.c: Look up expression opcodes in language-specific table, based on expression's language. Handle some Modula-2 specific opcodes. * stack.c (frame_info): Print language of stack frame. (select_frame): Also select language, if in auto-mode. (get_frame_language): New subroutine. * main.c (execute_command): Warn as language changes automatically. * printcmd.c (ptype_command): Parse types using the language parser, both for language-independence, and so that scopes can be specified. * language.h, language.c: New files for language-specific macros, declarations, and definitions. Misc fixes: * main.c (main): If error() is called during early initialization, print its message and then exit(1) from GDB. * valprint.c (type_print_base): Avoid printing garbage for ints of unusual sizes. (_initialize_valprint): Warn about host/target size assumption; improve long long support slightly. * convex-tdep.c (comm_registers_info): Avoid parsing decimal and hex -- let parse_and_eval_address do it. * doc/gdbint.texinfo (Languages): Doc how to add a language. * Makefile.in: Cope with new files and removed files. Tue Sep 17 08:37:41 1991 John Gilmore (gnu at cygint.cygnus.com) Add Andrew Beers' changes for Modula-2 support. His ChangeLog entries are enclosed herein. Not all of these changes have been merged into the master GDB sources -- check the ChangeLog above here for the merge log. Mon Jun 3 17:05:45 EDT 1991 m2-exp.y Created. Tested outside of GDB for a few days. Proper operators were added, C specific operators and tokens removed. yylex() revamped to some extent. Still things missing from the grammar, such as sets. Tested for two weeks in GDB v3.5. Tue Jun 11 17:23:48 EDT 1991 m2-exp.y Added boolean constants TRUE and FALSE to the grammar so they are built-in. Sort of a hack. Fri Jun 14 12:53:51 EDT 1991 m2-exp.y Added range checking for numeric constants. Any numeric constant is assumed to be of builtin type INTEGER unless: (1) it is octal or hexadecimal, in which case it is a CARDINAL; (2) it is too big to fit into an INTEGER, in which case it is a CARDINAL. eval.c Added simple range checking for +, -, and * on integers. Doesn't work very well for *, since 6 * 1,000,000,000 = 1,705,032,704, which fails the simple test of result >= first_operand, no matter in what order the operands are. Tue Jun 18 14:11:30 EDT 1991 Broke the parser into parts, one containing the C grammar and the other containing code to be shared by all of the grammars. The following files no longer exist: expread.y expread.tab.c The following files were added: c-exp.y (The C grammar) m2-exp.y (The Modula-2 grammar) parser-code.c (Code that is shared by the above grammar) parser-code.h parser-defs.h Makefile.dist Changed to reflect the above dependencies. NOTE: It is now necessary to use the Bison compiler compiler, since it will generate function/variable prefixes other than yy. Tue Jun 18 16:47:49 EDT 1991 symtab.[ch] Added the external variable working_lang, than holds the value of the current working language. Added the ennumerated type language_mode, with the values language_auto and language_manual, the former meaning that GDB sets working_lang as needed, and the latter meaning that the value of working_lang is totally under user control. symtab.[ch] Added the Modula-2 pervasive types INTEGER, CARDINAL, REAL, BOOLEAN and CHAR. Also added the type codes TYPE_CODE_BOOL and TYPE_CODE_CHAR. utils.c Added set_language_command and show_language_command to implement the GDB support commands "set language" and "show language". expression.h A number of identifiers were added to the type exp_opcode to facilitate Modula-2 builtin functions, integer division, and array indexing. Wed Jun 19 13:25:58 EDT 1991 language.h Added the macro STRICT_TYPE, which evaluates to non-zero if the language specified by working_lang requires the use of strict typing of expressions. Eventually, even this will be able to be changed by the user. Added the macro RANGE_CHECK, which evaluates to non-zero if the language specified by working_lang requires the checking of a value against the domain of its type. Eventually, even this will be able to be changed by the user. language.[ch] Predicates involving types (simple_type, ordered_type, same_type, integral_type, numeric_type, character_type, boolean_type, float_type) are added. These predicates are based on the current value of working_lang, and are handy in type-checking. Wed Jun 19 15:39:34 EDT 1991 eval.c Added the function type_array_rank which computes the rank of an array type. valarith.c Added the funtion value_bool, which when given a integer value.h value (ie. struct value *) as an argument, it returns a boolean value (ie. struct value *) true if that integer is non-zero, and a boolean value false otherwise. valprint.c Added cases for TYPE_CODE_BOOL, so Modula-2 BOOLEAN values will print out properly. Wed Jun 19 16:36:34 EDT 1991 valops.c Added the function value_capitalize, which returns it value.h argument capitalized if its argument is a lowercase letter, or the argument unchanged if its argument is not a letter. valarith.c Added the function range_check_p, which returns non-zero value.h if its value argument is between the integral bounds upper and lower. Added the function range_check_enum_p, which makes sure that its value argument is a valid member of the domain of its type argument. Added the function range_check_range_p, which makes sure its value argument lies between the upper and lower bounds of its type argument, which must be a ranged type. Added the function check_array_index, which range and type checks an index of an array. Added the function value_multi_subscript, which computes array[idx1,idx2...idxN], given a value array and an array of values representing indicies. values.c Changed value_from_long to work with TYPE_CODE_CHAR and unpack_long to work with TYPE_CODE_BOOL and TYPE_CODE_CHAR. Wed Jun 19 18:04:08 EDT 1991 symtab.c Stored pervasive types in a structure and make lookup_pervasive_type() a lookup function that was based on working_lang. If lookup_pervasive_type() returned non-zero, then that value was returned (a fix, since before it simply wouldn't return the pervasive type.) language.h Added the macro CAST_IS_CONVERSION, which evaluates to non-zero if the language specified by working_lang means "conversion" when it says "cast". valops.c Added the function value_real_cast(), which performs a value.h *cast*, not a *conversion*, which is what value_cast() does when it can. In particular, value_cast(,4) = 4.0, while value_real_cast(,4) = some mess. eval.c Modula-2 builtin functions implemented: ABS, CAP, CHR, parser-code.c FLOAT, HIGH, MAX, MIN, ODD, ORD, TRUNC, and VAL. expression.h Added macros MAX_OF_TYPE and MIN_OF_TYPE to work with MAX and MIN on integral types. *NOTE*: These are currently hardcoded to work only if there are 8 bits per storage unit. FIXME. eval.c Made logical functions call value_bool to return a properly typed boolean value, based on working_lang. Thu Jun 20 11:55:27 EDT 1991 valprint.c Types now print out in a Modula-2 fashion. This works for the cases when the type is printed out step-by-step, that is, it doesn't work when the name of a structured type (which includes the keyword "struct", etc.) is simply displayed. FIXME: Perhaps this is bad. Parts of it seem to kludgey, since type specifications in C and Modula-2 are very different. The C printing of a type is very recursive, whereas in Modula-2 it is generally very simple. C has type prefixes and suffixes, which have no real analogue in Modula-2. Maybe type_print() should call a language specific type printer. This is also advantageous if we compile GDB to exclude some of the languages. We'll just leave those functions out. Thu Jun 20 16:57:10 EDT 1991 dbxread.c When reading the complete symbol table in (via psymtab_to_symtab()), the number and types of function arguments are added to a function type. define_symbol() calls add_param_to_type() to accomplish this. Assumption: when we come across a function definition (N_FUN symbol with an 'f' or 'F' in the name), its arguments will appear before another function definition. When a function is found, a pointer to its type is placed in the global in_function_type. Changes that add_param_to_type() makes are to this global. valprint.c The type of a function now includes (for Modula-2) the types of its parameters. eval.c Type checking and a check for the proper number of arguments is now done for function calls. Not sure of the impact this has on C++ member function yet. Thu Jun 20 19:58:48 EDT 1991 valprint.c Rewrote the type printer. Broke it into two language specific parts, adding the functions type_print_m2() and type_print_m2_1(). An unfortunate consequence is this: if you debugging a C program in Modula-2 mode (why?), info types does not work well with regular expressions, since the types are printed out in Modula-2 terminology, but stored in C terminology. language.[ch] Added the functions new_type_last(), type_keyword(), and type_sep() to aid in the printing of typedefs. symtab.c Made the printing of typedefs as language independent as possible through calls to new_type_last(), type_keyword(), and type_sep(). Fri Jun 21 11:50:26 EDT 1991 dbxread.c Check all incoming ennumerated types. If it looks like Modula-2's BOOLEAN type, then change the type_code of the type to TYPE_CODE_BOOL so we can process it as a boolean variable. valprint.c Replaced some of the 0x%x with calls to sprintf and hexformat() in val_print(). language.[ch] Added the function hex_to_string(), which converts its integral argument to a hexadecimal number (format is language based) and returns the result as a string. Mon Jun 24 12:25:07 EDT 1991 valprint.c Some functions call type_print_1() directly, instead of value.h using type_print(), so they can specify where (column) to print things. Since type_print() takes care of language dependence, that needs to be called first. Added a parameter depth to type_print() (so it is now like type_print_1). Changed type_print to type_print_at, and made type_print a macro that passes a depth argument of zero. symmisc.c Changed all calls to type_print_1 to calls to type_print_at. Makefile.dist Made it possible to build GDB for a specific set of depend languages. Do this by passing a definition for the macro LANGS to make. LANGS should be a string containing a space-separated list of language names (ie. LANGS="c m2"). The default is to build all languages. Note that grammar files must follow the naming convention of -exp.y. gdb.lang This holds the current value of the LANGS macro. It is examined every time make is called, and is updated if necessary. eval.c Added #ifdef _LANG_ to these files. expread.c Still need to add them to dbxread.c and coffread.c. main.c source.c symtab.c utils.c valarith.c valprint.c Mon Jun 24 16:33:11 EDT 1991 language.[ch] Added the functions hexformat_pre() and hex_to_string_pre(), which take a prefix argument to include in the format string. Thus, hexformat_pre("08") will return "0x08x" (if the working language is language_c). Made hexformat() and hex_to_string() calls to the above with "" as the prefix argument. am29k-pinsn.c, arm-pinsn.c, breakpoint.c, convex-tdep.c, exec.c, core.c, dbxread.c, i386-pinsn.c, i386-stub.c, i386-xdep.c, i960-pinsn.c, infcmd.c, inflow.c, m68k-pinsn.c, m68k-stub.c, m88k-pinsn.c, mips-pinsn.c, mips-tdep.c, ns32k-pinsn.c, printcmd.c, pyr-pinsn.c, pyr-tdep.c, pyr-xdep.c, remote-vx.c, remote.c, solib.c, source.c, stack.c, sun386-xdep.c, symfile.c, symm-xdep.c, symmisc.c, tahoe-pinsn.c, valprint.c, vax-pinsn.c Changed all occurences of 0x%[0-9]*l*x in printf format strings to calls to hexformat() and hex_to_string(). Format strings without the leading "0x" were ignored. depend Updated to take the above into account. Tue Jun 25 15:27:18 EDT 1991 symtab.h Added the types range_mode_t, range_check_t, type_mode_t, and type_check_t to keep track of the current state of range and type checking. main.c Added the variables range_mode, range_check, type_mode, and type_check to record the current state of range and type checking. Added initialization code to main(). language.h Changed the macros STRICT_TYPE and RANGE_CHECK to examine the above variables. Tue Jun 25 17:57:08 EDT 1991 dbxread.c process_one_symbol() updates the variable (enum language) source_lang based on the extension of the filename contained in the N_SO sybmol that started this symtab. When end_symtab() is called, the value of source_lang is put into the language field. stack.c select_frame() sets working_lang (and possibly type_check and range_check) to the language field of the symtab associated with the frame that is selected if working_mode is language_auto. If working_mode is language_manual, a warning is printed and working_lang is not set. language.c Added the function set_type_range(), which sets the value of type_check and range_check (if their modes call for automatic setting) based on the current value of working_lang. A non-zero argument will cause the current settings to be output. Wed Jun 26 14:51:40 EDT 1991 eval.c Added range checks on assignment. m2-exp.y Added the grammar for sets to the language. Currently, these do not do anything except print an error message. Wed Jun 26 17:01:04 EDT 1991 m2-exp.y Added the ability for parse_number() to parse negative numbers. A global flag is set upon encountering a unary minus. This was done to make, for example, 1 parse as a CARDINAL, and not as an integer, per Wirth's examples in Programming in Modula-2 ed.4. valprint.c Added support for "set radix 2" by then setting output_format to 't'. eval.c Implemented range checking on subrange types. Added calls to range_check_range_p for BINOP_ASSIGN and BINOP_VAL. Implemented MIN and MAX for ennumerated types. The minimum value of an ennumerated type is defined by Wirth as the first identifier, and the maximum as the last. m2-exp.y Made octal numbers ending with "B" be characters and those ending with "C" be numbers, per Wirth's book. (p. 34) Thu Jun 27 14:11:52 EDT 1991 stack.c select_frame() now only sets working_lang, it does not notify the user. If working_mode is language_manual, then a warning is issued once. main.c At the end of each call to execute_command(), working_lang is checked against the local static (enum language) current. If they differ and working_mode is language_auto, the new settings of language, type and range checking are printed out. stack.c Modified frame_info() to include the language of the current frame in the output of "info frame". language.[ch] Added the function language_str() which returns the name of the current language. Fri Jun 28 15:33:14 EDT 1991 m2-exp.y Added the built-in procedures INC, INCL, DEC, and DECL to the language. INCL and DECL currently cause an error, since sets are not implemented yet. INC and DEC are implemented as PREINCREMENT/PREDECREMENT with one argument, and as ASSIGN_MODIFY with two arguments. eval.c Added type checking to the above cases. value.h Added not_lval_constant to the lval_type ennumerated type. not_lval_constant means that the value is a constant value; that is 3 or 'a' or TRUE, not as in a constant identifier. This is used to help coerce numbers such as 3 to either signed or unsigned numbers. valops.c Added the function value_coerce_constants() which coerces constant integers as following: if one is a constant and the other is not, the constant's type is set to the type of the other argument. If both are constants and one is signed, the other is converted to a signed constant. Sat Jun 29 17:26:29 EDT 1991 valarith.c Added a better range checker. It now checks range (successfully) on integral operations [+-] (signed and unsigned) for any C sized type. Still does not work well for multiplication.) int_in_size() returns an integer that is coerced to fit into specified number of bytes. Mon Jul 1 13:04:14 EDT 1991 language.[ch] Added the function binop_result_type(), which returns the builtin (struct type *) type that would be the result of a binop on the two values V1 and V2. Wed Jul 3 19:22:53 EDT 1991 source.c Extended source_info() to include the source language in the output from "info source". Fri Jul 5 13:48:52 EDT 1991 utils.c Moved the support functions for the GDB set/show commands dealing with language into language.c. language.c Added the function language_info(), which displays info about the current working language, type and range check settings. Called via the GDB command "info language". Added an initialization routine _initialize_language(), that sets defaults for the language, type and range variables and sets up the new GDB commands. main.c Language setup moved to language.c. depend Rebuilt. Mon Jul 8 10:10:22 EDT 1991 valarith.c Debugged the range checker for arithmetic. Still does not work for multiplication very well. Mon Jul 8 12:40:37 EDT 1991 language.[ch] Added the function value_true() which returns non-zero if its argument represents a boolean true value. breakpoint.c Changed breakpoint_cond_eval() to call value_true() to check the truth of an expression. Thu Jul 11 12:51:34 EDT 1991 language.[ch] Added the predicate structured_type(), which returns non-zero if the argument is a structured type. Added the predicate pointer_type(), which returns non-zero if the argument is a pointer type. eval.c Added the ability to do addition and substraction on pointers and integers. This case simply bypasses the type checker. Thu Jul 11 14:41:42 EDT 1991 include/stab.def Added the symbol N_DEFD (0x4a) which is a definition module dependency that is used by the GNU Modula-2 compiler and the linker. It is not important to GDB, except that [dbx|coff|mips]read.c should ignore these symbols. Fri Jul 12 16:07:00 EDT 1991 valprint.c Changed the TYPE_LENGTH(type) >= 0 to TYPE_LENGTH(type) > 0 in val_print(). Also added statements to the else part to coerce type (argument to val_print) to a pointer type if it is an "array of unspecified length". valops.c Added the function value_m2_string(), which returns a (value) value which is a constant string, whose type is (ARRAY [0..n] OF CHAR). The length field of the type structure is set to zero, so it will be interpreted as an "array of unspecified length". stack.c Moved the language/frame mismatch check to main.c:execute_command(). main.c The working language is recorded each time execute_command() is executed. If working lang has changed during its execution, then the new language/type/range info is printed out for the user. If the working language does not match the language of the frame, a warning is issued. Sat Jul 13 16:16:39 EDT 1991 eval.c Moved all the type-checking stuff for operators to language.[ch] language.c. This is so we can keep language-specific stuff (like for what type operators are defined) in language.c. language.[ch] Added the function binop_type_check(), which checks to see if its two (value) arguments are type-compatible with its opcode argument. The opcode should represent an operation involving an operator. Also added the macro function unop_type_check, which calls binop_type_check with a NULL second argument. expprint.c Added Modula-2 operators to the op_print_tab, so info expression.h break works correctly. Also added "op_string", which returns the string corresponding to the (enum exp_opcode) opcode that is its argument. Sat Jul 13 18:26:18 EDT 1991 coffread.c Added code to record the type of function arguments with each paricular function. Code is very similar to that added to dbxread.c. dbxread.c Moved add_param_to_type() to symtab.c symtab.[ch] Added function add_param_to_type() from dbxread.c *** NOTE: The above additions have not been tested. Mon Jul 15 12:50:47 EDT 1991 langauge.[ch] Added the functions type_error and range_error, which work like error() except if the type/range mode is set to *_mode_warn, then they do not do a return_to_top_level(), but merely print a warning. Also changed [set|show]_[type|range]_command() to support the new "warn" feature. Thu Jul 18 17:50:54 EDT 1991 mipsread.c Added code to record the type of function arguments with each particular function. Code is very similar to that added to dbxread.c. *** NOTE: The above additions have not been tested. Fri Jul 19 11:19:10 EDT 1991 defs.h Added macros MAX_OF_SIZE, MIN_OF_SIZE, UMAX_OF_SIZE, and UMIN_OF_SIZE, which when given a size of a numeric type, return the maximum and minimum value it can hold. UMAX... and UMIN... return the result for unsigned types. symtab.h Added the macros MAX_OF_TYPE and MIN_OF_TYPE to operate on struct types. They call above macros. dbxread.c Renamed the MAX and MIN_OF_TYPE macros to ..._OF_CTYPE to avoid a name conlict with the above. c-exp.y Added range checking on numeric constants in parse_number() for completeness. valarith.c Made binop_user_defined_p() and unop_user_defined_p() return 0 if working_lang is not language_c. Thu Aug 8 14:17:22 EDT 1991 main.c printcmd.c breakpoint.c Documentation strings of some commands changed to eliminate the references to the C language where appropriate. Tue Aug 13 15:48:03 EDT 1991 m2-exp.y Added qualified identifiers to the grammar. The semantics are slightly different from those of the GDB operator :: c-exp.y m2-exp.y Added a rule to each grammar of the form: start ::= exp | type_exp, where type_exp is any valid type expression. expression.h eval.c Added the opcode OP_TYPE, and an error case in eval.c. printcmd.c Modified ptype_command() so it actually parses the input (necessary for type expressions with scope qualifiers). Added the function ptype_eval() which expects an expression composed of one OP_TYPE element. *.[ch] Replaced all occurences of parse_c_expression with parse_expression *.[ch] Replaced all occurences of parse_c_1 with parse_exp_1 [End of ChangeLog entries from Andrew Beers for Modula-2 support.] Mon Sep 16 17:19:46 1991 John Gilmore (gnu at cygnus.com) Small fixes from Peter Schauer: * infrun.c (child_attach): Lint. * solib.c (find_solib): Handle shared libs version 2. Small fixes from David Wood: * xm-ultra3.h (SYS_SIGLIST_MISSING): Typo. Small fixes: * remote-vx.c: Move to top, for FILE. Fix from John S . * utils.c (wrap_here): Avoid wrap action of fputs_filtered if chars_per_line is at maximum (user typed `set width 0'). Fix from Andreas Schwab . Tue Sep 17 17:31:04 1991 Stu Grossman (grossman at cygnus.com) * coredep.c: include ptrace.h where necessary. * mipsread.c(parse_lines): fix unsigned char problem that was messing up line numbers on SGI's and possibly other MIPS based platforms. * infrun.c (child_create_inferior): use better test to check return val from setpgrp(). * tm-irix3.h, xm-irix3.h, tconfig/irix3, xconfig/irix3: add these for sgi/irix support. Wed Sep 18 04:33:31 1991 Per Bothner (bothner at cygnus.com) * mipsread.c (parse_symbol): Put non-static procedures in the global block. Fri Sep 13 00:14:52 1991 John Gilmore (gnu at cygnus.com) Patch together `text_start' and `text_end' for 29K port. * exec.c (exec_command): If NEED_TEXT_START_END, define the variables and set them based on the exec file. * am29k-tdep.c: declare text_start. * valops.c (call_function_by_hand): declare text_end. * inferior.h: Eliminate CANNOT_EXECUTE_STACK in favor of defining CALL_DUMMY_LOCATION as BEFORE_TEXT_END. This is because machines that do this will also have to know to set NEED_TEXT_START_END. Besides, it was a redundant way to say the same thing. * tm-29k.h, tm-convex.h, tm-np1.h: Eliminate CANNOT_EXECUTE_STACK, define CALL_DUMMY_LOCATION and NEED_TEXT_START_END. Thu Sep 12 00:22:24 1991 John Gilmore (gnu at cygint.cygnus.com) AMD 29000 changes from David Wood : * Makefile.in (CLIBS): Put XM_CLIBS and TM_CLIBS at end. Pass MUNCH_DEFINE to munch whenever we run it. * am29k-pinsn.c (print_insn): Handle NOP specially. Avoid %#x format string; use 0x%x instead. * am29k-tdep.c: Use DUMMY_SAVE_GREGS and RETURN_REGNUM. * ultra-xdep.c, xm-ultra.h: New files for Ultracomputer host system. * xm-rtbsd.h: New host support for RT/PC running BSD Unix. * inflow.c: Handle `short' process group IDs. * infptrace.c (fetch_register): Support CANNOT_FETCH_REGISTER, and check for ptrace errors. * coffread.c (SDB_REG_TO_REGNUM): Define if not already. (coff_symfile_init): Initialize text_bfd_scnum. (read_coff_symtab): Use it to find the text [and absolute?] sections. * ../config.sub: Add vendor nyu and os "sym[1-9]*". * configure.in: Add hosts rtpc-*-* and a29k-*-*. Merge target arm case with other "easy" cases. Add target cases a29k-*-none (rehack of am29k), a29k-*-kern (remote to Ultracomputer kernel), and a29k-*-sym1 (ultracomputer OS's user process). * minimon.h, remote-adapt.c, remote-mm.c: Add. * munch: Cope with RT/PC putting fns in data segment. Restore ability to override `nm' by specifying MUNCH_NM. * xconfig/rtbsd, xconfig/ultra3: New host systems. * tconfig/a29k: Rename from tconfig/am29k. Add remote-mm and remote-adapt. Remove encapsulated coff #define's (the support should go in BFD, and gdb shouldn't know or care). * tconfig/a29k-kern: Same, but for remote kernel debugging. * tconfig/ultra3: For debugging user processes on Ultra3/Sym1. * tm-29k.h: Update BADMAG (though it should go away). Allow the register definitions to be overridden in another tm-file. Fix SR_REGNUM. Add a mess of _REGNUM's. Separate RETURN_REGNUM from GR96_REGNUM and DUMMY_SAVE_GREGS from DUMMY_SAVE_GR96, for handling kernel calling conventions that use GR64+ rather than GR96+. * tm-ultra3.h: New file, for use on Ultra3 Unix as well as for remote debugging of Ultra3 kernel. Includes tm-29k.h and overrides various things. * remote-mm.c (mm_attach, mm_wait): Handle attach like child_attach does, making a clean stop in the newly attached program. * remote-eb.c: Lint. * coffread.c: Make coffread independent of any particular variant of COFF. Avoid #include-ing any particular one except internalcoff.h. BFD now passes key values for symbol reading as part of its coff_data structure (LINESZ, SYMESZ, AUXESZ, and the symbol masks and shifts); use them. Remove obsolete end_of_text_addr. * exec.c: Remove unused include files. Wed Sep 11 19:38:44 1991 John Gilmore (gnu at cygint.cygnus.com) * Makefile.in (documentation targets): Pass $(M4). Bugfix from eggert@twinsun.com (Paul Eggert). * stack.c (down_silently_command): Check for stack existence. Tue Sep 10 23:08:29 1991 John Gilmore (gnu at cygint.cygnus.com) * Makefile.in (VERSION): Update to 4.0.3. Tue Sep 10 09:19:29 1991 John Gilmore (gnu at cygint.cygnus.com) * core.c (core_file_command): Print frame at coredump with its level number, by calling print_stack_frame. * frame.h: Add selected_frame_level, print_stack_frame. * frame.h, stack.c: Remove print_sel_frame, print_selected_frame. * convex-tdep.c, convex-xdep.c, infcmd.c, inflow.c, infrun.c: Change print_sel_frame and print_selected_frame callers to print_stack_frame. * dbxread.c (read_ofile_symtab): Avoid empty else clause. * symfile.c (free_named_symtabs): Ditto. * main.c (main): wrap_here needs an arg. * solib.c (find_solib): Avoid memory access if _DYNAMIC is zero. (solib_add): Avoid noise. (solib_create_inferior_hook): Lint. (sharedlibrary_command): Move dont_repeat to here. * utils.c (error): Call wrap_here to force buffered output. Small patches from Peter Schauer: * coffread.c (start_symtab): Free any existing line_vector before malloc-ing new one. (read_coff_symtab): Ditto for type_vector. * source.c (lines_to_list): New variable, replacing function. (all uses): Use as variable. (_initialize_source): Add 'set listsize' and 'show listsize'. * utils.c (lines_to_list): Remove function. * stack.c (print_frame_info): Use as variable. * defs.h (lines_to_list): Remove declaration. Mon Sep 9 13:45:57 1991 John Gilmore (gnu at cygint.cygnus.com) * breakpoint.c (insert_breakpoints): Restore warning about the program might be running in another process, but only for systems with this brain death (#ifdef ONE_PROCESS_WRITETEXT). * xm-hp300bsd.h, xm-mips.h, xm-vax.h: Define it. * utils.c (error): if error_pre_print is set, print the string first. * main.c (main, print_gnu_advertisement, print_gdb_version): Reformat legalese so it always prints, but acts as an "I'm here" message while symbols are being read. If any errors occur, print a few newlines to set off the message and start it at the left margin. Remove mention of "help" command, and don't yak about symbol reading. (catch_errors): Error string is now printed first in case of error, not last. * command.c (undef_cmd_error, lookup_cmd): On undefined command, suggest the "help" command. * Makefile.in (VERSION): Set to 4.0.2. Thu Sep 5 23:49:48 1991 John Gilmore (gnu at cygint.cygnus.com) * .gdbinit: Remove useless "rr" command. Set complaints to 1 for people debugging gdb. * breakpoint.c, remote-vx.c: Reword strings printed by catch_errors callers. Wed Sep 4 11:07:50 1991 John Gilmore (gnu at cygint.cygnus.com) * WHATS.NEW: "history write -> history save". Doc "write on/off". (Fix from kenc@viewlogic.com.) Fix some infrastructure to be able to cope with host and target machines with different sized basic types (ints, ptrs, etc). (Idea from pierre@la.tce.com (Pierre Willard).) * values.c (value_from_longest): Rename from value_from_long. Handle pointer types as well as integers, so that targets with different pointer sizes from the host can be accomodated. * breakpoint.c, convex-tdep.c, eval.c, expprint.c, printcmd.c, valarith.c, valops.c, valprint.c, value.h, values.c: Rename uses of value_from_long to value_from_longest. * eval.c, findvar.c, printcmd.c, valarith.c, valops.c: Pass the correct pointer type to value_from_long{est}. * doc/gdb.texinfo ($_, $__): Describe types of these variables. * remote-vx.c: Remove obsolete code for calling functions via vxworks kludge interface (it referenced value_from_long). * valops.c (value_string): Find malloc with lookup_misc_func, not raw search. Tue Sep 3 18:37:46 1991 John Gilmore (gnu at cygint.cygnus.com) Make writing to files work properly. (Fixes to BFD are also needed.) * core.c (core_open): Open file ourselves, read or r/w, depending on write_files. Use bfd_fdopenr. * gdbcore.h (write_files): New variable. * exec.c (write_files): Define variable, add set&show for it. (exec_file_command): Use write_files to open for read or r/write. Make shared library reading happen automatically. These changes are mostly from Peter Schauer . * inferior.h (stop_soon_quietly): Add to exported variables. * infrun.c (child_create_inferior): call solib hook, if defined. (child_attach): call solib hook, if defined. * solib.c: Include inferior.h. Add from_tty to so_list as kludge. (find_solib): Use lookup_misc_func rather than hand-rolled. (symbol_add_stub): New stub for catch_errors. (solib_add): Avoid output if !from_tty. Catch errors rather than just calling symbol_file_add and bombing. (solib_create_inferior_hook): Interface with the target process to let it read and alloc shared libs, then figure out what it did. * core.c (validate_files): Fix typo, soften warning. (Fix from Hiroto Kagotani .) * utils.c (fputs_demangled): Avoid duplicate printing if demangling is off. (Fix from J.T. Conklin .) * infrun.c (proceed): Cast -1 to (CORE_ADDR) before comparing. (Fix from pierre@la.tce.com (Pierre Willard).) * main.c (catch_errors): Change argument to a char * from an int, since a char * can point to a struct full of glop, but an int is not guaranteed to be able to hold a pointer. * breakpoint.c (breakpoint_cond_eval, bpstat_stop_status, breakpoint_re_set_one, breakpoint_re_set): Adapt. * core.c (core_open, solib_add_stub): Adapt. * remote-vx.c (symbol_stub, add_symbol_stub, callers): Adapt. Wed Aug 28 18:18:05 1991 John Gilmore (gnu at cygint.cygnus.com) * Makefile.in: Update VERSION to 4.0.1. Evade GNU Make bug by adding .NOEXPORT target. Fri Aug 23 17:14:25 1991 John Gilmore (gnu at cygint.cygnus.com) * GDB-4.0 release! * Update README. * Makefile.in (VERSION): Roll to 4.0. (gdb.tar.Z): Make refcard.ps as well, for shipment. Fri Aug 23 14:07:09 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * doc/gdb.texinfo: minor rewordings, crossref to ptype from print, more on printsyms. * doc/Makefile, Makefile.in: generate "gdb-all.texi" rather than "gdb-all.texinfo" * doc/rdl-apps.texi: renamed from rdl-apps.texinfo * Makefile.in, doc/Makefile, doc/.Sanitize, doc/gdb.texinfo: reflect above name change * WHATS.NEW: correct pointer to refcard. * doc/gdb.texinfo: update New Features, Installing * doc/gdbint.texinfo: add short description of configure +template Fri Aug 23 11:46:08 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * doc/gdb.texinfo: update, fix bugs in "Installing" appendix Fri Aug 23 01:02:00 1991 John Gilmore (gnu at cygint.cygnus.com) * Makefile.in: Add config.sub, make doc/rdl-apps.texinfo for tar file, add dependencies for referenced doc files. Thu Aug 22 22:17:06 1991 Stu Grossman (grossman at cygint.cygnus.com) * coffread.c, symfile.c, stack.c: saberized. Thu Aug 22 16:20:27 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * doc/refcard.tex: permuted Essential Commands sec * doc/gdb.texinfo: new C++ chapter; revised installation appendix; new doc for set/show symbol-reloading default set complaints 0 info all-registers RET-repeat disabled after prompted long displays processID (attach) interpretation of 2nd GDB cmdline arg Thu Aug 22 14:05:47 1991 Stu Grossman (grossman at cygint.cygnus.com) * expread.y, coffread.c, dbxread.c, target.c, mem-break.c, cplus-dem.c, values.c, valprint.c, symfile.c, remote.c, breakpoint.c, main.c: lint. Thu Aug 22 02:02:26 1991 John Gilmore (gnu at cygint.cygnus.com) Install new configuration scheme for GDB and friends. * config.sub: Translate ordinary names to three-part names. * configure: Use three-part names internally. * configure.in: Translate three-part names to filenames. * README, WHATS.NEW: Update for gdb-4.0. * Makefile.in: Roll VERSION to 3.99. Wed Aug 21 18:21:09 1991 John Gilmore (gnu at cygint.cygnus.com) * infptrace.c (KERNEL_U_ADDR_BSD): Include a.out.gnu.h. * i960-tdep.c, m68k-tdep.c, sparc-tdep.c, tm-i960.h, tm-m68k.h, remote-nindy.c: Change ext_format_XXX structs to single structures rather than arrays; when passing their address, use &. This avoids trouble with bdead compilers. * mcheck.c: Don't include ; just declare "void abort();" instead. This avoids portability headaches. * mips-tdep.c (mips_do_registers_info): Only print FP regs if asked to. * source.c (open_source_file): Avoid ANSI const bdeath by skipping declaration and then casting result value. * tm-hp300bsd.h: Clarify comment. * utils.c (strstr): Result is const char *; ANSI bdeath. * xm-hp300bsd.h: Define HOST_BYTE_ORDER. Redefine INT_MIN, since system include file defines it differently from "defs.h", though the two are equivalent for our purposes. * tconfig/hp300bsd: Add m68k-tdep.o. Tue Aug 20 16:01:11 1991 John Gilmore (gnu at cygint.cygnus.com) * tconfig/sun*4: Remove warnings about system assembler. Mon Aug 19 13:44:46 1991 John Gilmore (gnu at cygint.cygnus.com) * mcheck.c: Avoid warning about undeclared abort fn. * tm-sparc.h (PC_ADJUST): Avoid calling error() from this; it causes recursive calls to error() when used in cleanups. To do so requires that we make it a function, so we do. * sparc-tdep.c (sparc_pc_adjust): New implem of PC_ADJUST. * utils.c (do_cleanups): Remove the current cleanup from the chain *before* calling it, in case error() is called from it. The result won't be pretty, but won't be an infinite loop either. Mon Aug 19 00:41:04 1991 Michael Tiemann (tiemann at cygint.cygnus.com) * dbxread.c (read_struct_type): Grok anon structs for C++. (vb_name, vptr_name): Null terminate these strings. Fri Aug 16 08:31:03 1991 John Gilmore (gnu at cygint.cygnus.com) Minor bug fixes from BSD Net2 gdb: * blockframe.c (get_prev_frame_info): If FRAME_CHAIN_COMBINE returns 0, there is no previous frame. * breakpoint.c (commands_command): If !from_tty, don't call input_from_terminal_p(). * dbxread.c (record_misc_function): Speed up slightly. (compare_psymbols): Ditto. * infcmd.c (do_registers_info): Take a second argument to determine whether to print float registers. "info registers" does not do so anymore. "info all-registers" does, now. * mips-tdep.c, pyr-tdep.c (xxx_do_registers_info): Take second arg and ignore it. * tm-mips.h, tm-pyr.h (DO_REGISTERS_INFO): Pass second arg. * inflow.c (initialize_inflow): Set tflags_ours correctly. Other fixes: * breakpoint.c (bpstat_do_actions): Use a cleanup to restore executing_breakpoint_commands if we are interrupted by error. * coffread.c (init_lineno): Avoid problem with zero-sized linetab versus malloc/free. From: john@labtam.labtam.oz.au (John Carey). * core.c (solib_add_stub, core_open): Call SOLIB_ADD inside a catch_errors() so we can setup the frame regardless of whether the shared libs work. * ieee-float.c (double_to_ieee_extended): Get exponent from right place in little-endian systems. From John Carey. Thu Aug 15 18:43:57 1991 John Gilmore (gnu at cygint.cygnus.com) * main.c: Remove unused terminating_signals and catch_termination(). (long_options): Terminate with a zero element. [Bugfix from Atsuo Kawaguchi .] (gdb_readline): Make call-compatible with readline. (init_signals): Improve comments re vfork vs. signal. * utils.c (prompt_for_continue): Use new gdb_readline(). If we prompt for continuation, we don't let CR repeat the previous command, once we get back to a prompt. It's too easy to keep hitting CR, expecting "--more--" prompts, and have some long command start repeating on you. Tue Aug 13 16:17:56 1991 John Gilmore (gnu at cygint.cygnus.com) * blockframe.c (frameless_look_for_prologue): Speed up by calling SKIP_PROLOGUE_FRAMELESS_P if it's defined. * tm-sparc.h (SKIP_PROLOGUE, SKIP_PROLOGUE_FRAMELESS_P): Define two variants, one faster. * sparc-tdep.c (sparc_frame_chain): Use target_read_memory and return zero, rather than giving an error. (setup_arbitrary_frame): Initialize the PC in the new frame. (skip_prologue): Add a second arg saying whether we're just checking for a frameless function or not. * core.c (core_open, core_close, core_xfer_memory): Move section table pointers and bfd* into the target_ops. (core_open): Allow errors in shared lib reading, etc. (core_files_info): Describe shared library sections. * exec.c (exec_open, exec_close, exec_xfer_memory, xfer_memory, exec_files_info, set_section_command): Move section table pointers and bfd* into the target_ops. (add_to_section_table): Add BFD to section table. * target.c (target_xfer_memory, target_info): Pass target to xfer_memory and target_info functions. * target.h: '' * gdbcore.h: Move struct section_table. * target.h: New home of struct section_table. * solib.c (solib_add): New argument is the target_ops whose section list is to be added to, if any. Reallocate the sections in that target to add any that come from shared libs. (throughout) so_sections renamed to sections. (solib_xfer_memory): Deleted. * tm-sunos.h (SOLIB_ADD): Add target argument. (SOLIB_XFER_MEMORY): Delete. * core.c, exec.c, inftarg.c, remote-eb.c, remote-nindy.c, remote-vx.c, remote.c, target.c, target.h: Remove add_syms vector from target_ops. It's the same on all targets. Add two section pointers to target_ops. * stack.c (find_relative_frame): Dump ancient algorithm for "down", just use handy "next" pointers. (frame_command): Don't error if there is no stack; let user set one. * inflow.c (new_tty_prefork, new_tty): New prefork routine modifies static state in the parent process; new_tty itself runs in the child and modifies the child's file descriptors to match the saved static state. * infrun.c (child_create_inferior): Call new_tty_prefork, fork, then new_tty. * infptrace.c (child_xfer_memory): Add ignored target arg. * remote-eb.c (eb_xfer_inferior_memory): '' * remote-nindy.c (nindy_xfer_inferior_memory): '' * remote-vx.c (vx_xfer_memory): '' * remote.c (remote_xfer_memory): ''. Rename from remote_xfer_inferior_memory. * main.c (main): Only try to attach "corefile" argument if it starts with a digit. * symfile.c (symbol_reloading): New "set/show" variable. (symbol_file_add): Shorten message about symbol reading. (add_symbol_file_command): Merge with add_syms_addr_command, since this should work on all targets now. (stop_whining): Default to zero, to shut up complaints about bad symbol tables on many systems. (free_named_symtabs): Just exit unless symbol_reloading. * xm-sun3os4.h, xm-sun4os4.h: Define BROKEN_LARGE_ALLOCA, and add comment explaining shared library screw. * source.c: #if defined => #ifdef. Thu Aug 8 12:23:19 1991 John Gilmore (gnu at cygint.cygnus.com) * doc/gdbint.texinfo: Improve doc on porting to new OS's. Tue Aug 6 17:16:15 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * doc/rdl-apps.texinfo: provide default readline-appendix finder (doc/Makefile knows how to make one for local config) * Makefile.in: use doc/Makefile for doc targets * doc/Makefile: GDB documentation now has its own Makefile doc/refcard.tex: renamed from "gdbrc.tex" doc/.Sanitize: add Makefile; recognize renamed refcard.tex doc/gdbint.texinfo: add markup in "Cleanups" chapter Fri Aug 2 00:13:06 1991 John Gilmore (gnu at cygint.cygnus.com) * values.c (baseclass_addr): When reading target memory, use the length of the basetype, not the upper type. We've only malloc'd enough space for the basetype, leading to errors in free(). * expprint.c (print_subexp): Print UNOP_MEMVAL of an OP_LONG that ends up as a function specially, since we know the actual type of the pointed-to address. This (somewhat) fixes display of expressions that include misc_function_vector names. Try `cond 1 !strcmp("a","b")' then `i b'. * infrun.c: Move DO_DEFERRED_STORES from proceed() to resume(). The child can be proceeded from inside wait_for_inferior in evaluating breakpoint conditions, and DO_DEFERRED_STORES was getting skipped in that case. * expprint.c (print_subexp): Use filtered output, since the subroutines we call use it, otherwise the output is horribly mangled, since output of wrappable stuff comes out late. * Makefile.in: Bump VERSION to 3.98.1 * infrun.c (child_create_process): Use execlp to find the shell to exec our target program. This requires some fiddling with `environ' since there is no execlpe(). Thu Aug 1 15:35:17 1991 Roland H. Pesch (pesch at fowanton.cygnus.com) * Makefile.in, doc/gdbrc.tex, doc/rc-* (new files): Minor rearrangement of refcard permits two new make targets-- gdbrc.dvi DVI output for refcard, using CM fonts gdbrc.ps PostScript refcard, using PS fonts Wed Jul 31 16:46:21 1991 John Gilmore (gnu at cygint.cygnus.com) * GDB-3.98 release. * TODO, Projects, WHATS.NEW, README: Update for gdb-3.98. * Makefile.in (gdb-all.texinfo): Avoid touching file if M4 dies. Wed Jul 31 16:35:58 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * doc/gdb.texinfo: last changes for release. Minor typo and formatting fixes; incorporated most fixes remaining from filed mail commenting on earlier drafts. Added warnings: pipes don't work in run command; conditions are converse of assertions; step over fn without debug info goes to next fn; vars may have "wrong" values near fn entrance, exit Added example from Kingston on printing repeated nonadjacent values Added explicit mention that in Emacs gdb mode C-c and C-z are like shell mode for signals Renamed "Stepping and Continuing" to "Continuing and Stepping" so it doesn't sound so much like its parent "Stopping and Continuing"; also moved entries on continue to top of section, so they don't get lost. Improved installation directions in appendix, added manual formatting instructions Tue Jul 30 17:26:39 1991 John Gilmore (gnu at cygint.cygnus.com) * configure.in: Remove xm.h and tm.h even if we aren't linking new ones, so "./configure sun4; ./configure none" does the right thing. Assume that alldeps.mak and depend are already built in srcdir, and avoid running "make" (particularly "make depend", which involves "gcc") from inside configure. Build Makefile directly rather than building Makefile.conf first. * configure: Regenerate with above changes. * Makefile.in: Use $(BISON) to find bison. Roll VERSION to 3.98. Revise gdb.tar.Z procedure to produce a file called gdb-$(VERSION).tar.Z but which unpacks into a directory called "gdb". Move non-source files out of $(SFILES_SUBDIR). Pretty up alldeps.mak with comments. (depend): Don't try to do "gcc expread.y". (expread.o): Update dependencies by hand. Mon Jul 29 15:21:09 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * doc/gdb.texinfo: Fixed a variety of small typos that prevented info from formatting cleanly; altered too-long heading for GPL Appendix, as discussed w/RMS; Changed date on cover to July 91. Fri Jul 26 13:20:02 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * doc/gdb.texinfo: (1) Applied some fixes due to comments from Larry Breed (easier ones through chapsec 5.2) (2) Eliminated use of @footnote---had my doubts about it anyways, and it's broken in latest texinfo (3) Introduced *some* use of [] for optional arguments, where explanation is not simpler by listing cmd w arg and cmd w/out arg separately. Still not using @deffn. (4) Dropped in GPL-2. NOTE: one of GPL-2 or texinfo is broken; a couple of headings are too long. Need patches to texinfo or revision to GPL-2. * Partial update to README (which still needs work for this release!): (1) use of configure corrected for new script, (2) "make gdb.dvi" and "make gdb.info" mentioned. Wed Jul 24 06:44:02 1991 John Gilmore (gnu at cygint.cygnus.com) * symtab.c (lookup_symbol): Don't complain right off about no debug symbols; use the misc function vector first. (list_symbols): Use misc function vector to find symbols that don't have debug info, and print them. (find_pc_symtab): Temporarily avoid fatal() when psymtab PC range doesn't match symtab PC range, as it does on the MIPS because our symtab reading isn't perfect. * dbxread.c (dbx_symfile_read): Make warning about "no debug symbols" slightly nicer. * source.c (select_source_symtab): If "main" symbol exists, but decode_line_spec can't find line info, don't just return a zero; try other source symtabs or give an error. * mipsread.c (parse_partial_symbols): Sort the psymtabs by their low addresses first, then rip through fixing high addrs. * ns32k-opcode.h (sfsr): Bugfix from Rune Nerg}rd, . (NS32K_SVC_IMMED_OPERANDS): Reverse the #ifndef. Tue Jul 23 18:52:43 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * Minor, mostly mechanical, cleanup of doc subdir for clean makeinfo'ing and TeXing; also ensured gdb-all.texinfo (post-m4) and gdb.info (post- texinfo2 makeinfo) generated for distribution. Sun Jul 21 03:54:52 1991 John Gilmore (gnu at cygint.cygnus.com) Mostly MIPS and general symbol-reading fixups. * doc/gdbint.texinfo: Add documentation on symbol-reading interface. * mipsread.c: Remove kludges around #include "ecoff.h". Remove redefinitions of a_magic, etc, no longer used. (parse_symbol, ): Convert "Internal:" printfs to complain()ts. Fix global overview comments to match symfile.c protocol. (mipscoff_new_init): Eliminate cur_hdr if we have one. (mipscoff_symfile_read): Eliminate unused code. Avoid sorting all the symtabs, when all we have read here is psymtabs. The symtabs are sorted as they are created anyway. Tell condense_misc_bunches whether we're mainline. (psymtab_to_symtab_1): Pass filename when recursing, to make stack trace more informative. (parse_partial_symbols): Assume cur_hdr as argument. (read_mips_symtab): Don't clobber cur_hdr, so it can be freed. Pass cur_hdr implicitly to parse_partial_symbols. Avoid checking the TYPE_NAME of char *, since that's done in symfile.c. (free_numargs, parse_symbol, add_symbol, add_block, shrink_linetable): Declare these fns void. (upgrade_type): Convert tree of if's to switch. Clean up bogus "off == 0" handling with a complaint. Avoid setting field bitpos and bitsize of array with lower and upper bounds. Check specified bitsize of elements against their actual type's bitsize, and complain if different. Complain about unknown type qualifiers. (parse_fdr): Don't assume sizeof(char *) == sizeof (struct *). (psymtab_to_symtab_1): Print names of subsidiary files that are being read in. FIXME, we read far too many files. This code is not the problem, the problem is in parse_fdr where the psymtabs are set up. (cross_ref): Result should indicate that we used one aux entry normally, or two if we encountered a "next" entry. This used to leave the caller pointing at the wrong aux entry. (add_symbol): If overflowed cur_block, reallocate it larger, chase all pointers to it, and complain(), rather than clobber memory. (shrink_block): Use xrealloc rather than xmalloc-and-copy. (new_field): Only allocate one field initially, not two. Pull ++ out of macro argument. Simplify. (_initialize_mipsread): Avoid initialization of importd global_psymbols and static_psymbols. * symfile.c (psymtab_to_symtab): Depend on XXX_psymtab_to_symtab to properly set pst->symtab; avoid searching for it. (symfile_fns): Improve comments, add a FIXME. * dbxread.c: Update comments to reflect symfile protocol. (read_ofile_symtab, end_symtab): Return the symtab. (psymtab_to_symtab_1): Set pst->symtab. * coffread.c (coff_symfile_read): tell condense_misc_bunches whether we're mainline. * symfile.h (sym_fns): Remove unused sym_discard member. * coffread.c, mipsread.c, dbxread.c: Remove XXX_symfile_discard. * mtrace.c (mtrace): Take effect if mallwatch is set, even if the environment variable is not. * infcmd.c (finish_command): Use filtered printfs. * cplus-dem.c: Add struct tags to a few unnamed structs. * valops.c (value_coerce_array): Improve comments. * valprint.c (type_print_varspec_suffix): Print array size only if greater than zero. * m88k-tdep.c: Shift some lines left by one space, that had apparently been trashed at some point. * TODO: More things to do, a few got done. Thu Jul 18 22:46:05 1991 John Gilmore (gnu at cygint.cygnus.com) * symtab.h (LOC_EXTERNAL): Eliminate in favor of LOC_STATIC. (ldsymoff, ldsymlen, globals_offset, statics_offset): Improve comments. * dbxread.c (read_dbx_symtab): LOC_EXTERNAL -> LOC_STATIC. * expread.y, findvar.c, symmisc.c: Ditto. * printcmd.c (address_info): Update printed forms of LOC_ symbols. Elim LOC_EXTERNAL. (print_frame_args): Keep track of param stack offsets before re-looking up to find the local register param is kept in. * mipsread.c: Use and rather than . Further integration of mipsread into gdb. Eliminate unused routines, duplicate declarations. Handle static symbols in psymtabs as well as external symbols. When reading symtabs, insert symbols into the correct block (global, static, or a local block). (read_mips_symtab, parse_partial_symbols): Don't pass useless "incremental" arg. (mipscoff_symfile_read): Don't call select_source_symtab. (parse_symbol): Use SYMBOL_VALUE_ADDRESS where appropriate, rather than SYMBOL_VALUE. (parse_external): Comment clobbering of top_stack. (parse_partial_symbols): Update comments. Allocate and parse static symbols as well as external symbols. FIXME, enum values are not handled in this pass, but should be. Inline new_psymbol. Use SYMBOL_VALUE_ADDRESS. (psymtab_to_symtab_1): Read symbols into global static block by default (until enter some function's local block context). (sort_blocks): Clean up STATIC_BLOCK as well as GLOBAL_BLOCK. (destroy_all_symtabs, new_psymbol): Eliminate, unused. * source.c (select_source_symtab): Select a source symtab from either the symtabs or, failing that, the psymtabs. (list_command): Update error message. (forward_search_command, reverse_search_command): Use getc, not fgetc, for speed. FIXME, add comment about buffers that die if overrun by long line. * values.c (unpack_field_as_long, modify_field): Avoid shifting by an entire word, which is not portable, if we have a 32-bit field. (Code in dbxread.c already turns such bitfields, if aligned, into ordinary ints, but fixing this will help for other symbol formats and for future changes.) * core.c (core_open): Handle ANSI const brain death. * utils.c (vprintf): Fix varargs typo. Sun Jul 14 00:42:53 1991 John Gilmore (gnu at cygint.cygnus.com) * findvar.c (find_var_value): Handle &function better. * TODO: Document work needed on &fn and &array. * printcmd.c (print_address_symbolic): New arg is the prefix to print if a name is printed. (print_address_demangle): Honor "set print address" now. Use new arg above to improve spacing of output. * valprint.c (val_print): When printing function pointers, print symbolic form too. * breakpoint.c (breakpoint_1): Use new print_address_symbolic. Mon Jul 8 19:02:46 1991 John Gilmore (gnu at cygint.cygnus.com) * core.c (memory_error): Reword error msg to mislead less. * mips-pinsn.c (print_insn_arg 'd'): Print $ with reg name. * mipsread.c (read_mips_symtab, read_the_mips_symtab, parse_partial_symbols): Use newer BFD internals (external_filehdr and external_aouthdr), byte-swap the fields that we care about before using them, and make the file header data local to read_the_mips_symtab rather than global. Sat Jul 6 01:34:15 1991 John Gilmore (gnu at cygint.cygnus.com) * ns32k-opcode.h (movmw, movmd): Fix opcodes. Bug fix from Rune Nerg}rd on 5 Jul 1991. * main.c (command_line_input): Flush stdout and stderr before every call to readline. This reportedly fixes a bug that comes up in Sys V running emacs-gdb and/or xxgdb, when stdin/out are pipes or sockets. Thu Jul 4 14:47:06 1991 John Gilmore (gnu at cygint.cygnus.com) * configure.in, Makefile.in: Avoid rebuilding "depend" as much. Avoid declaring Makefile dependencies, because GNU Make stupidly tries to update it if we do. * coffread.c: Revise for minor changes to bfd internal coff indexes. * configure: If -template= is given a relative path, make it absolute before recurring in subdirectories. * configure, configure.in, Makefile.in: Install "configure" script as replacement for config.gdb. * config.gdb, Makefile.dist, Makefile.sdir: Remove * README: Update for configure, mostly. FIXME. * Add dec3100 as equivalent to littlemips. Indicate in all host & target config files that they are for the host. When the lines get copied into the Makefile, this makes it more obvious what's up. Mon Jun 24 23:49:07 1991 John Gilmore (gnu at cygint.cygnus.com) * sparc-opcode.h (trap opcodes): Avoid leading spaces or tabs, which end up in the disassembler output inadvertently. Wed May 29 23:01:03 1991 John Gilmore (gnu at cygint.cygnus.com) Make it compile cleanly in an ANSI GCC2 environment. * blockframe.c: * cplus-dem.c: free takes a void *, ifdef __STDC__ * dbxread.c (read_huge_number): avoid gcc2 bug hoisting calc of LONG_MAX/radix. * defs.h (alloca): Avoid doing anything if alloca already def'd. * stddef.h, stdlib.h: Remove these files. * symtab.c: Avoid declaring qsort, close. * symfile.c: Avoid declaring close. * utils.c (vprintf): Declare "ap" arg as proper va_alist. * sparc-tdep.c: Avoid including lots of Sun-host-specific files. Assorted other changes. * dbxread.c: include "libaout.h", not "liba.out.h". * printcmd.c (print_frame_args): Set recurse properly for indentation of struct and array parameters. * valops.c (value_cast): Allow cast to void. * infrun.c (resume): If NO_SINGLE_STEP, call machine dependent single_step() in a target-independent fashion. * sparc-tdep.c (single_step): Don't call ptrace ourselves, just set up to be ready to continue. This makes us target independent. * infptrace.c (child_resume): Remove call to single_step; now can single step a SPARC target of any kind. Wed May 22 18:18:24 1991 Roland H. Pesch (pesch at fowanton.cygnus.com) * Makefile.dist, doc/gdb.texinfo, doc/*-m4.texinfo: split up GDB docn into separate sections---basically chapters, plus two loose pieces that can be configured to go in different places. This allows GNU m4 to preprocess the manual without coredumping. * Makefile.dist: tell TeX where to find texinfo. Mon May 20 12:15:04 1991 Roland H. Pesch (pesch at fowanton.cygnus.com) * Makefile.dist, doc/gdb.texinfo: respectively create, and use, the new target "rdl-apps.texinfo" which captures the Makefile variable that records where to find the Readline libraries. Sun May 19 05:36:59 1991 John Gilmore (gnu at cygint.cygnus.com) * tahoe-pinsn.c: #include "tahoe-opcode.h", not "opcode.h". * tm-tahoe.h (FIX_CALL_DUMMY): Ignore more parameters. * defs.h (const, volatile): Only define if not already defined. * Makefile.dist (gdb.tar.Z): Create doc subdir w/out CVS/RCS crud. * README: Update for release 3.95. * config.gdb: Don't create readline dir in subdir builds. * main.c: Include with "..." form for non-system include files, so "gcc -MM" for "make depend" works. Include readline files with "...h" rather than . * mipsread.c: Include "ecoff.h" rather than "intel-coff.h". * coffread.c: Undo minor damage done by Rich Pixley. Use different internal and external representations of COFF data structures. Use new BFD routines for swapping them in and out. * symfile.c (free_named_symtabs): Avoid freeing file names that are null or empty. Old i960 tools seem to produce files that claim to have empty names, causing each successive file read to blow away the previous one. * sparc-xdep.c (deferred_stores): Repair minor damage by Rich. Move deferred_stores to top of file, but don't separate its #define's from its variable. Add commentary. * Makefile.dist: Fix Rich damage; undo "configure" changes in favor of keeping the (working) config.gdb. Move readline library up a notch. Fri May 17 12:49:56 1991 Per Bothner (via gnu at cygint.cygnus.com) * dbxread.c (read_struct_type): Try to handle g++ version 1 MI debug info. * infptrace.c (fetch_registers): no result, since now void. * tconfig/news: target depends on m68k-tdep too. Fri May 17 14:40:14 1991 Roland H. Pesch (pesch at fowanton.cygnus.com) * Makefile.dist: added readline/inc-*.texinfo to dependencies for gdb.dvi target * readline/inc-history.texinfo, readline/inc-readline.texinfo: applied various small fixes due to or inspired by RMS comments * doc/gdb.texinfo: finished using all RMS comments, save those for appendices on readline and cmd history (which are in other source files) Thu May 16 18:06:05 1991 Roland H. Pesch (pesch at fowanton.cygnus.com) * doc/gdb.texinfo: (1) Updated w/ref to RMS comments through chapter 9; (2) documented 'break' command's menu mode for overloaded names, in response to hgs problem report C++ p-31 Wed May 15 11:02:48 1991 Roland H. Pesch (pesch at fowanton.cygnus.com) * doc/gdb.texinfo: (1) better introductory example; (2) more consistent use of @code, @samp, @file, @kbd throughout; small cleanups to first three nodes; (3) new "Contributors" node; (4) Appendix, Renamed Commands; (5) divert specialized startup instructions to "Targets" chapter for generic manuals, while leaving them up front for manuals specific to specialized environments; (6) apply fixes from RMS comments through chapter 4. * pretex.m4: modify explanatory text slightly (and redefine "regexp") to keep GNU m4 from complaining. (It still crashes later, but one step at a time...) Wed May 15 10:32:12 1991 John Gilmore (gnu at cygint.cygnus.com) * readline/readline.c (update_line): Avoid dereferencing a pointer before comparing it to its bounds. Saber caught this. (init_terminal_io): Don't set BC from the "pc=" termcap variable, and only set PC if tgetstr returned non-null. Saber caught this. Tue May 14 16:29:53 PDT 1991 Roland Pesch (pesch at cygint.cygnus.com) * Makefile.dist: put gdb.dvi stuff (updated to use M4 preprocessor stuff for config manual) here where it counts; updated to use new subdir structure (gdb/doc/). * Makefile: generated from above via config.gdb none before checkin * gdbint.texinfo: added instructions on generating gdb.info* files locally for release. These are ordinary info files, formatted from gdb.texinfo (via gdb-all.texinfo, see Makefile)---but due to use of texinfo 2, can't count on makeinfo to generate these, so we distribute them already formatted. * gdb.texinfo: included full Info node and menu crud (as generated by C-u M-x texinfo-master-menu using the texinfo-2 elisp code). * Makefile: updated "gdb.dvi" target to use M4 preprocessor; put in comments-for-future gdb.info target (one day makeinfo will work again). Tue May 14 13:51:36 PDT 1991 Roland Pesch (pesch at cygint.cygnus.com) * gdb.texinfo: Updated to include new or old undocumented commands, at least the following (perhaps some others I forgot to record): info f, info float, info path, info program, info s, info set, info source, info terminal, info types, info user, set/show print object. Also covered all recent GDB command renames for v4. Mon May 13 14:57:46 1991 John Gilmore (gnu at cygint.cygnus.com) * mipsread.c: Rather than keeping count of how many symtabs and psymtabs we have, for sorting purposes, count them when we need to sort. This fixes bug in rereading of symbol tables. Fri May 10 15:43:33 PDT 1991 Roland Pesch (pesch at cygint.cygnus.com) * infcmd.c: renamed "info path" to "show paths" * gdbrc.tex: documented above. Wed May 8 04:51:11 1991 John Gilmore (gnu at cygint.cygnus.com) * remote.c: Fix comments. * utils.c (error): Force out any pending wrap output. Sat May 4 11:11:07 1991 John Gilmore (gnu at cygint.cygnus.com) * Makefile.dist: Roll VERSION to 3.95. Fix up "saber_gdb" to work again. * saber.suppress: Update. * coffread.c, exec.c, infptrace.c, inftarg.c, remote.c, solib.c, symtab.h, target.c, target.h: Lint. * core.c: setup and select frame after reading shared libs, else reading shared libs will clobber them. Lint. * utils.c (error): Force out any buffered wrap text. Fri May 3 22:01:56 1991 John Gilmore (gnu at cygint.cygnus.com) * remote.c: Remove decls of memory_insert_breakpoint and memory_remove_breakpoint, no longer used. (Suggestion of Jan Norden). * Makefile.dist: use ${subdir} in paths of BFD and LIBIBERTY, to make it easier to interface to "configure"'d libraries. Fri May 3 13:10:01 PDT 1991 Roland Pesch (pesch at fowanton.cygnus.com) * valprint.c: introduce "set p", "set pr", "show p" and "show pr" as aliases for set/show print. Thu May 2 11:22:02 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * coffread.c (coff_sym_fns) [TDESC]: Make the type be m88kbcs. * m88k-tdep.c (IEEE_isNAN): New function. * infrun.c, m88k-tdep.c, m88k-xdep.c: Change initialize_{tdesc,dcontext} to init_{tdesc,dcontext}. * infrun.c [TDESC]: Add a bunch of crud. * xm-88k.h [__GNUC__]: Don't define memset. * m88k-xdep.c: #if 0 out push_breakpoint. * tm-88k.h: Define GET_SAVED_REGISTER. * tm-88k.h: Define DGUX. * m88k-opcode.h (UEXT, SEXT, MAKE): Put parentheses around arguments. * m88k-pinsn.c (sprint_address): Declare at top of file. * m88k-xdep.c: #if 0 out core_file_command. * values.c ({unpack_,value_as_}pointer): Just call {unpack_,value_as_}long (for now anyway). * m88k-tdep.c (get_saved_register): Make get_reg a dc_word_t (*)(). (psr_register): Change return type to dc_word_t. * m88k-tdep.c (tdesc_read_function): Comment out call to ptrace. * m88k-tdep.c (get_saved_register): Add lvalp parameter. * gdbcore.h (write_memory): Don't prototype it. * tm-88k.h, m88k-tdep.c: Make stack_error, stack_jmp global. m88k-xdep.c: Don't mention stack_error. * {x,t}config/m88k ({X,T}DEPFILES): Add missing files. * mtrace.c: Don't typedef things like size_t, just #define them. * coffread.c [TDESC]: #if 0 out references to coffsyn. * symtab.h (struct symtab): Include EXTRA_SYMTAB_INFO. tm-88k.h: Define EXTRA_SYMTAB_INFO. * coffread.c [TDESC]: Include "tdesc.h" and make tdesc_handle dc_dcontext_t not int. * coffread.c [TDESC]: Use system include files not . * coffread.c [TDESC]: Move setting of debug_info from coff_symfile_read to find_linenos and make it work with BFD. * cplus-dem.c [__STDC__]: Make x{m,re}alloc return void*. * signame.c: Cast const char* to char* when assigning to sys_siglist. * utils.c (strsave): Make arg const char* not char*. * infrun.c (wait_for_inferior) [SHIFT_INSN_REGS]: Use bpstat_explains_signal (stop_bpstat) not stop_breakpoint. * tm-88k.h (START_INFERIOR_HOOK): Make tdesc_handle a dc_handle_t. * tm-88k.h (EXTRACT_RETURN_VALUE): Use char * not void *. * findvar.c (read_var_value, case LOC_CONST_BYTES): Put the address in a char *, not a CORE_ADDR. Use SYMBOL_VALUE_BYTES. * tm-88k.h (INIT_EXTRA_FRAME_INFO): Use fci not prev (fci is prev except from create_new_frame). Make next_frame a local variable. Declare get_prev_context. {x,t}m-88k.h: Enclose USG and BCS defines in #if !defined. m88k-{opcode.h,pinsn.c,xdep.c,tdep.c}: New files (same contents as before; they had just been left out of the distribution for a long time). Thu May 2 17:53:56 1991 John Gilmore (gnu at cygint.cygnus.com) Mips bringup and general cleanup * cplus-dem.c: Move CPLUS_MARKER define to after defs.h. * infptrace.c (PT_WRITE_D, PT_READ_D): Use correct values. (This still doesn't seem to make MIPS bkpts work.) * mipsread.c: Remove dup "Reading symbol data..." msg. (symbol_file_command, add_file_command): Remove, obsol. * printcmd.c (ptype_command): Say "an enum" rather than "a enum". Wrap output appropriately. * stack.c (locals_info, catch_info, args_info): Check selected_frame rather than target_has_stack or coredumping. * valprint.c (type_print_varspec_suffix): Wrap "ptype" output of enums appropriately. Wed May 1 14:10:22 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * signame.c: Include defs.h and param.h. * cplus-dem.c: Include defs.h and param.h. Makefile.dist: Don't hack in the "param.h". param.h: Don't include defs.h. * expread.y: Use a union to deal with the fact that type_stack can have both ints and enum type_pieces in it. ({push,pop}_type_int): New functions. Tue Apr 30 13:18:58 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * cplus-dem.c (cplus_mangle_opname): Don't call error. values.c (check_stub_method): Call error if NULL return from cplus_mangle_opname. * blockframe.c, breakpoint.c, core.c, command.c, findvar.c, eval.c, expprint.c, infcmd.c, infrun.c, main.c, printcmd.c, remote.c, source.c, stack.c, dbxread.c, coffread.c, symfile.h, symfile.c, utils.c, valarith.c, values.c, valops.c, tm-68k.h, target.c, inftarg.c, ieee-float.c, environ.c, defs.h, command.h, inferior.h, gdbcore.h, symtab.h, expression.h, symtab.c, cplus-dem.c, value.h, expread.y, valprint.c, copying.awk, solib.c, inflow.c, symmisc.c : Lint. Use read_memory not read_memory_integer on CORE_ADDR's. Use {value_as,unpack}_pointer (added to values.c) not {value_as,unpack}_long on CORE_ADDR's. Use longest_to_int (added to defs.h) instead of cast to int. Remove from_tty arg to mod_path. Put symfile_bfd in {coff,dbx}read.c not symfile.h. Use OP_NULL instead of 0 where dummy enum exp_opcode needed. * tm-sparc.h: Remove GET_RWINDOW_REG. (FRAME_CHAIN): Call sparc_frame_chain. sparc-tdep.c (sparc_frame_chain): New function. tm-sparc.h (EXTRACT_STRUCT_VALUE_ADDRESS): call sparc_extract_struct_value_address (added to sparc-tdep.c). * xm-sun386.h: Don't define SET_STACK_LIMIT_HUGE. Tue Apr 30 13:13:33 1991 Michael Tiemann (tiemann at cygint.cygnus.com) * valprint.c (type_print_base): If the type being printed is a struct containing undefined types, print "" as the type instead of crashing. * values.c (value_headof): Get the vtable pointer taking TYPE_VPTR_BASETYPE into account. * symtab.c, symtab.h, dbxread.c: Fix various whitespace splotches. Mon Apr 29 13:22:51 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * Move BROKEN_LARGE_ALLOCA from tm-sun386.h to xm-sun386.h. * sun386-xdep.c [!GDB_TARGET_IS_SUN386]: Just provide empty functions which don't do anything. tm-sun386.h: Define GDB_TARGET_IS_SUN386. * Makefile.dist: Add comment about tm-sun3os4.h: tm-sun3.h, etc. * sun3-xdep.c, tm-sun3.h, tm-68k.h: Change TARGET_SUN3 to GDB_TARGET_IS_SUN3. * infrun.c: Don't include sys/user.h and friends (wrong for cross-debugging and not necessary anymore (see IN_SIGTRAMP in xm-vax.h)). [SET_STACK_LIMIT_HUGE]: Include . xm-tahoe.h: Don't define _DIRENT_. * xm-tahoe.h: Remove USE_OLD_TTY (not needed now that terminal.h includes sgtty.h before sys/ioctl.h). Sun Apr 28 22:04:47 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * param-no-tm.h: Make BITS_BIG_ENDIAN defined to 0/1, not defined or not defined. Don't define it based on TARGET_BYTE_ORDER if it's already defined (in the tm.h file). mips-opcode.h (BIT_FIELDS_*), values.c (modify_field, unpack_field_as_long): Use #if BITS_BIG_ENDIAN not #ifdef BITS_BIG_ENDIAN. {x,t}m-tahoe.h, tahoe-pinsn.c, tahoe-opcode.h: New files. Fri Apr 26 12:02:06 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * tm-sparc.h: Add comments about gcc version 2 and structure passing. * xconfig/i386v{,32}{,-g}: Add XM_CFLAGS=-Dgetpagesize()=4096. gmalloc.c: #if 0 out !HAVE_GETPAGESIZE code. * expread.y (abs_decl): Accept '&' and '&' abs_decl. * symtab.c, symtab.h: Have a builtin_type_{,unsigned_}long_long regardless of LONG_LONG. defs.h (TARGET_LONG_LONG_BIT): New macro. expread.y (typebase): Add {unsigned,} long long {,int}. Thu Apr 25 12:31:22 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * valops.c (typecmp): If t2 == 0, return 1. Wed Apr 24 09:45:17 1991 Jim Kingdon (kingdon at cygint.cygnus.com) Changes from Tiemann: * cplus-dem.c (optable): Add "nw", "dl", "compound". (cplus_mangle_opname): New function. (do_type): Add case 'Q'. * values.c (check_stub_method): Do lookup_method_type and stuff rather than smash_to_method_type. symtab.c, symtab.h (allocate_stub_method): New function. dbxread.c (read_type): If we get "##", don't lookup_function_type and start clobbering it; allocate_stub_method instead. * printcmd.c (x_command): Dereference references. * valprint.c (type_print_varspec_prefix, case TYPE_CODE_METHOD): Don't print " " type_print_base (...) "::" if !passed_a_ptr. * dbxread.c (read_struct_type): Put "op$" instead of "operator" in the symbol table. * values.c (check_stub_method): Deal with operator names. * valprint.c (cplus_val_print): Check for error in baseclass_addr. * values.c: Move declaration of cplus_demangle to top of file. * values.c (baseclass_addr): If can't read memory, set *ERRP rather than calling error(). * value.h: Remove redundant declaration of value_static_field. * values.c (value_static_field): Recursively check all baseclasses. Return NULL if not found. * values.c, value.h: New functions value_{headof,from_vtable_info}. * valprint.c (val_print): Print out first element of vtbl specially. * valprint.c: Move print controls to top and add objectprint. Add command "set print object on/off". * valprint.c (value_print, is_vtbl_member): Put things in local variables rather than continually doing VALUE_TYPE (val), etc. * valops.c (value_struct_elt_for_address): Call check_stub_method. * valops.c (value_struct_elt): Remove found, arg1_as_ptr. * valops.c (search_struct_method): Give error if j > 0 && args == 0. * valops.c (search_struct_field): New argument looking_for_baseclass. Give error if value_static_field or value_primitive_field return NULL. valops.c (various): Call search_struct_field with extra parameter. * symtab.c (decode_line_1): Deal with operators specified as "operator" . (operator_chars): Help do it. * symtab.c (lookup_struct_elt_type): Call check_stub_type. Take additional argument noerr. Don't dump core if TYPE_FIELD_NAME is NULL. Check the baseclasses recursively. * symfile.c (fill_in_vptr_fieldno): Don't call check_stub_type. Return void not int. (also declarations in symfile.h and value.h). Deal with multiple inheritance. * printcmd.c (print_command_1): Add if (objectprint) code. * expread.y (variable): Allow for destructor with foo::~name. * eval.c (evaluate_subexp, case UNOP_LOGNOT): If following opcode is OP_SCOPE, give an error. * eval.c (evaluate_subexp): Pass third arg to lookup_struct_elt_type. * eval.c (evaluate_subexp), values.c (value_virtual_fn_field): Don't bother to do anything with return value from fill_in_vptr_fieldno. * eval.c (evaluate_subexp): If value_static_field returns NULL, give an error. * dbxread.c (read_struct_type): Set fcontext to 0 for normal member function. * dbxread.c (read_struct_type): Initialize name to 0. * dbxread.c (read_ofile_symtab, N_CATCH): Add offset to bufp->n_value. * dbxread.c (dbx_create_type): Zero TYPE_VPTR_BASETYPE. (read_struct_type): Don't bother to set TYPE_VTPR_{BASETYPE,FIELDNO} if it's just going to be {0,1}. * dbxread.c (virtual_context): Use TYPE_BASECLASS starting at 0 (yes, it's #if 0, but just in case...). * vax-opcode.h, expread.y, expprint.c, cplus-dem.c: Declare some things "const". * i386-stub.c: New file. * WHATS.NEW: Remove mention of readline and more paging (in 3.5). Try to keep command names up to date with renaming. * gmalloc.c [!HAVE_GETPAGESIZE]: Try to figure out the pagesize. * infun.c (resume, resume_cleanups): New functions. (wait_for_inferior, proceed, child_create_inferior): Use resume not target_resume. * remote.c (getpkt): Don't set immediate_quit. * blockframe.c, frame.h (reinit_frame_cache): New function. solib.c (solib_add), symfile.c ({,add_}symbol_file_command): Use it. Tue Apr 23 10:38:41 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * symtab.c (lookup_symbol): Add 3 more of those loops through the symtabs which we all know and love: (1) Look in the STATIC_BLOCK for mangled symbols right after we check the blocks, (2, 3) Look in the STATIC_BLOCK for all the symtabs and psymtabs at the end. * main.c (cd_command): Call dont_repeat. * dbxread.c (read_struct_type): If const/volatile character is missing, don't complain, just continue. * dbxread.c (read_struct_type): Only try to read the fcontext if it is there. Also change "error_type " to "return error_type ". values.c (value_virtual_fn_field): If there is no fcontext, then do things the way GDB 3.x did. valops.c (search_struct_method): Add type to value_virtual_fn_field arguments. * dbxread.c (read_struct_type): Fix typo: *pp != '\0' -> **pp != '\0'. Mon Apr 22 00:02:43 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * printcmd.c (print_scalar_formatted): Add 't' for binary. * dbxread.c (end_psymtab): Initialize pst->symtab. * core.c (core_open): Call ADD_SOLIB. * tm-sparc.h: Include not . sparc-tdep.c: Don't include . * sun3-xdep.c [!TARGET_SUN3]: Just provide empty functions which don't do anything. * core.c (core_open): Add make_cleanup (unpush_target, &core_ops). * Shared library/corefile changes from Peter Schauer: core.c (core_close): Call CLEAR_SOLIB. (core_open): Remove comment about "should deal with shared lib". (core_xfer_memory): If we can't xfer the usual way, try the shared libraries. solib.c (so_list): New fields so_bfd and so_sections{,_end}. (find_solib): Use solib_map_sections to get ld_text. (solib_map_sections, solib_xfer_memory): New functions. (clear_solib): Free so_sections and close so_bfd. tm-sunos.h: Add solib_xfer_memory, solib_add. * sparc-tdep.c (skip_prologue): Don't skip anything unless there is a "save" instruction in there somewhere. * symfile.c (symbol_file_add): Add comment. solib.c (solib_add): Don't malloc name passed to symbol_file_add. * exec.c (build_section_table): If *start isn't NULL, free it. * stack.c (parse_frame_specification): Error if NULL selected_frame. infcmd.c (finish_command): Error if NULL selected_frame. inflow.c (kill_command): Deal with NULL selected_frame. stack.c (record_selected_frame): Set *FRAMEP to NULL if there is no selected frame. infrun.c (restore_inferior_status): Add comment. findvar.c (read_var_value): Check for NULL frame where we need a frame. breakpoint.c (get_catch_sals): Check for NULL selected_frame. * breakpoint.c (bpstat_print): Try all elements on the bpstat chain before giving up with an internal error. Sun Apr 21 21:43:10 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * value.h, values.c (value_{,free_to_}mark): New functions. breakpoint.c (bpstat_stop_status): Use them. * tm-i386v{,-g}.h: Remove N_SET_MAGIC define. Sat Apr 20 21:42:47 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * i386-tdep.c: Remove unnecessary #includes. * symtab.c (various): Change error return of find_line_common to -1. * coffread.c (find_linenos): Use LINESZ not sizeof (struct lineno). * coffread.c (end_symtab): Initialize language, dirname, and fullname fields. Fri Apr 19 18:18:31 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * mips-tdep.c (mips_frame_chain): Don't chain if saved_pc == 0. * stddef.h (size_t): Let either _SIZE_T or _SIZE_T_ guard it. * mipsread.c (parse_symbol): Set startup_file_{start,end} if entry_point is in current file. * findvar.c (read_register_gen): Add "target byte-order" comment. Wed Apr 17 17:09:48 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * i386-tdep.c (i386_get_frame_setup): Use SWAP_TARGET_AND_HOST before returning locals or slocals. * i386-tdep.c (i386_follow_jump): Do not add data16 to pos in call to codestream_seek; add one to pos if (and only if) we are dealing with a jump with data16 == 1 (i.e. 0x66, 0xe9). Mon Apr 15 12:04:32 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * valops.c (call_function_by_hand): Put dummy1 in target order before FIX_CALL_DUMMY. * tm-i386v.h (FIX_CALL_DUMMY): Don't depend on host byte order. Sun Apr 14 11:55:19 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * valops.c (push_word): Add SWAP_TARGET_AND_HOST. * remote.c (remote_open): Send '+' before calling putpkt(). * tm-i386v.h (REGISTER_VIRTUAL_TYPE): Return pointer to void, not int, for pc, fp, and sp. * remote.c (remote_open): Call start_remote after putpkt("?"); infrun.c (start_remote): Also call wait_for_inferior & normal_stop. Sat Apr 13 22:11:42 1991 Jim Kingdon (kingdon at spiff.cygnus.com) * exec.c: Include . * sun3-xdep.c (fetch_core_registers): Add #ifdef FP0_REGNUM. Fri Apr 19 09:36:50 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * tm-68k.h (NUM_REGS): Conditionalize on TARGET_SUN3 not sun. tm-sun3.h: Define TARGET_SUN3. * utils.c: Use CPLUS_MARKER not '$'. * cplus-dem.c: Use CPLUS_MARKER not '$'. If CPLUS_MARKER isn't defined, define it to '$'. * arm-opcode.h: New file (same contents as before; it had just been left out of the distribution for a long time). * tm-68k.h: Put declaration of ext_format_68881 outside the macros. * main.c: New HAVE_SIGSETMASK #ifdefs. * coffread.c (read_coff_symtab): Check for "LF%" with all the other L*% things. * coffread.c (SDB_TYPE): New macro. various: Use it instead of checking against T_NULL. * Makefile.dist (cplus-dem.o): Hack in an #include "param.h" before we compile it. defs.h: Protect against multiple inclusion. param.h: Include defs.h. signame.c: Change #ifdef SYS_SIGLIST_MISSING to #if. param-no-tm.h: Define SYS_SIGLIST_MISSING from USG. Thu Apr 18 19:49:10 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * i386-pinsn.c (OP_E): Change %d to 0x%x for consistency. * putenv.c: New file Makefile.dist: Add it to $(OBS). * mipsread.c [!CMUCS]: #include . * mips-xdep.c (fetch_core_registers): #if 0 out the whole function. * Move read_memory_nobpt from mem-break.c to breakpoint.c. Mon Apr 15 21:45:35 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * utils.c (_initialize_utils): Rename "set demangle" to "set print demangle", "set asm-demangle" to "set print asm-demangle" and "set sevenbit-strings" to "set print sevenbit-strings". * main.c (initialize_main): Rename "set history write" to "set history save". * main.c (initialize_main): Rename "set caution" to "set confirm". * values.c (_initialize_values): Remove "info history" alias for (what is now) "show values". * infcmd.c, gdbcmd.h: Add unsetlist. infcmd.c: Add unset_command. (_initialize_infcmd): Add "unset" and use it for "unset env". * breakpoint.c (_initialize_breakpoint): Remove "unset". * valprint.c: Add "set/show print", {set,show}_print. Rename "set addressprint" to "set print address". Rename "set arrayprint" to "set print array". Rename "set array-max" to "set print elements". Rename "set prettyprint" to "set print pretty". Rename "set unionprint" to "set print union". Rename "set vtblprint" to "set print vtbl". * main.c: Rename version_info to show_version. (_initialize_main): Rename "info version" to "show version". * values.c: Rename value_history_info to show_values. (_initialize_values): Rename "info values" to "show values". Sun Apr 14 23:08:34 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * inftarg.c (child_open), remote-vx{,.68}.c (vx_proc_open): New function to give correct error message. Thu Apr 11 17:19:41 1991 Jim Kingdon (kingdon at cygint.cygnus.com) * target.h: Add to_doc and target_preopen. target.c: Add target_preopen and target_command. Remove target_info. (add_target): Call add_cmd and mess with targetlist->doc. core.c, exec.c, remote-eb.c, remote-nindy.c, remote-vx.c, remote-vx.68.c, inftarg.c, remote.c: Add doc field to target struct. Call target_preopen from open routine. * main.c: Rename editing_info to show_commands. (_initialize_main): Rename "info editing" to "show commands". * source.c: Rename directories_info to show_directories. (_initialize_values): Rename "info directories" to "show directories". * values.c: Rename convenience_info to show_convenience. (_initialize_values): Rename "info convenience" to "show convenience". * copying.awk (_initialize_copying): Rename "info copying" to "show copying" and "info warranty" to "show warranty". Rename {copying,warranty}_info to show_{copying,warranty}. * symfile.c: Rename add_syms_command to add_symbol_file_command. (_initialize_symfile, add_syms_addr_command): Rename add-syms to add-symbol-file. Thu Apr 18 18:08:30 1991 John Gilmore (gnu at cygint.cygnus.com) * symfile.h (free_named_symtabs): Rename from free_named_symtab. * symfile.c (clear_symtab_users_once, cashier_psymtab, free_named_symtabs): Move these routines from symmisc.c. * symmisc.c (same): same. (free_symtab): Make non-static. * symtab.h (free_symtab): Declare as exported void fn now. * dbxread.c (end_symtab, end_psymtab): Change comments. (initialize_dbxread): Call dbx_new_init() in case the first command is add-symbols. * target.c (dummy_target): Permit add_syms_addr_command. Sat Apr 13 14:46:07 1991 John Gilmore (gnu at cygint.cygnus.com) Permit symbols to be superseded when new symbol files have been read in, particularly for VxWorks. * dbxread.c (read_dbx_symtab): Allow N_SOL to cleanly take us back to the main file, as well as to include files. Also, put global functions into the global psymtab, to make "i fun" work. (end_psymtab): Free named symtabs and psymtabs for a file, once a new psymtab for it has been read. * coffread.c (end_psymtab): Free named symtabs and psymtabs for a file, once a new symtab has been read for it. * mipsread.c: FIXME. We need to do the same for MIPS, but it looks harder to determine the top-level block before it's been queued to the psymtab list. * symfile.c (symbol_file_add): Use filtered printing and wrap it. If we have wiped out any old symbol tables, clean up at end of symbol reading. (symbol_file_command): Don't reference symfile_fns if it's zero. * symtab.h (GLOBAL_BLOCK, STATIC_BLOCK, FIRST_LOCAL_BLOCK): New defines for the blocks of a blockvector that contain global and file-static symbols and the first of the smaller scope contours. * symtab.c (lookup_symbol, find_pc_symtab, find_pc_line, decode_line_1, make_symbol_completion_list): Use the above. * coffread.c (end_symtab, patch_opaque_types): Ditto. * dbxread.c (end_symtab): Ditto. * expread.y (block): Ditto. * mipsread.c (throughout): Ditto. * symmisc.c (free_named_symtabs): Ditto. * symtab.c (list_symbols): Process the first symbol of the static psymbols list. (types_info): Restore this function from its untimely #if 0. It's not perfect, but it is better than nothing. (_initialize_symtab): Restore "info types". Thu Apr 11 05:23:19 1991 John Gilmore (gnu at cygint.cygnus.com) * m68k-stub.c: Remote stub for 680x0's, created from rem-m68k.shar (which is removed). * nindy-share/{Makefile,Onindy.c,blout.h,env.h,nindy.c,ttyflush.c}: Remove RCS log stuff now that we use CVS and it blows our diffs. Wed Apr 10 14:18:06 1991 John Gilmore (gnu at cygint.cygnus.com) * symmisc.c (free_named_symtab): Make it work, in its current kludgy fashion. Change result to indicate if we blew away bkpts. * dbxread.c (end_symtab): Accumulate result from free_named_symtab and print warning if we blew user's state. * symfile.h: free_named_symtab now returns an int. Mon Apr 8 23:57:43 1991 John Gilmore (gnu at cygint.cygnus.com) * dbxread.c (dbx_symfile_read): Initialize psymbol list if this is the first symbol read, even if not mainline. (dbx_psymtab_to_symtab): symfile might be zero, cope. * exec.c (exec_ops): Add_syms_addr is valid in our tvec. (set_section_command): New command ("section xxx yyy" -- should be renamed to "set section xxx yyy" FIXME) which sets the base address of a section of the exec file, overriding the virtual address that BFD reports. Fri Apr 5 17:14:39 1991 John Gilmore (gnu at cygint.cygnus.com) * exec.c: Add add_syms_addr_command to exec_ops, so you can load symbols at any address while examining an exec file. Thu Apr 4 10:09:35 1991 John Gilmore (gnu at cygint.cygnus.com) * tm-i386v.h (FLOAT_INFO): Don't define it, since the code for printing the float info is host-dependent, not target-dependent. FIXME. * i386-pinsn.c: Move #includes to top, remove useless ones. * i386-tdep.c: Don't bother including <.../reg.h> since we don't use it (and it doesn't exist on host systems). * ieee-float.c (ieee_extended_to_double): Convert NaN to Inf. Convert negative numbers properly. (ieee_test): Make numbers really random; fix format arg. * infcmd.c (attach_command, detach_command): Don't repeat on CR. * core.c (core_detach): Unpush core_ops, which might not be on top. We used to just pop the top, which broke things. Don't need dont_repeat() any more. (core_file_command): Psst! Don't repeat it. * remote-nindy.c (nindy_detach): Don't need dont_repeat() now. * expprint.c (print_subexp): Avoid switch fallthru on BINOP_ASSIGN_MODIFY, so we can print += and such. * frame.h: Fix typo. * inflow.c (kill_command): After killing inferior, print our current frame in the core file, if we have one. (generic_mourn_inferior): When inferior dies, either select the current frame (in the new target, e.g. core file), or set both the current and selected frames to NULL. Changes from Peter Schauer. * infptrace.c: Avoid on USG. * Make all file names fit in 14 characters (sigh and damn!): mv hp300hpux-xdep.c hp300ux-xdep.c mv symmetry-xdep.c symm-xdep.c mv symmetry-tdep.c symm-tdep.c mv convex-opcode.h convx-opcode.h mv tm-vxworks960.h tm-vx960.h mv tm-vxworks68.h tm-vx68.h mv Makefile.srcdir Makefile.sdir mv gdb-int.texinfo gdbint.texinfo mv remote-sa.m68k.shar rem-m68k.shar mv remote-multi.shar rem-multi.shar * Makefile.dist, README, config.gdb, convex-pinsn.c, tconfig/symmetry, tconfig/vxworks960, tconfig/vxworks68, xconfig/hp300hpux, xconfig/symmetry: Change names to shorter names. * command.c (user_info_1, user_info): New command for listing the user-defined commands. Wed Apr 3 15:00:26 1991 John Gilmore (gnu at cygint.cygnus.com) * dbxread.c (really_free_pendings): Clear file_symbols and global_symbols after freeing them; otherwise, running this function twice (if it appears twice on the cleanup chain), we try to free things twice. * dbxread.c (read_dbx_symtab): Calculate end_of_text_addr based on text_addr (the address of text in core), not on addr (the offset between text in the .o file and in core). This change is from Peter Schauer. * main.c: Define ALL_CLEANUPS as a cast of zero. (return_to_top_level): Use it. (main): Do all cleanups after each command run as part of the gdb startup sequence. Also do all cleanups before entering the command loop, and every time we exit the command loop and reenter. Before, the cleanups from the startup sequence were being left undone until the first error! (command_loop): Rename do_nothing cleanup to command_loop_marker so we can see it easily when examining the cleanup chain. (init_signals): Add another do_nothing for signal handling. (quit_command): Only try to kill target if it has execution. Problems in the target stack got us into a state where inferior_pid was nonzero but none of the targets had execution. In this state you couldn't exit gdb. * dbxread.c: Two changes from Peter Schauer. (echo_command): Fflush output after an echo command. (show_history): Pass all args to cmd_show_list. * utils.c (init_malloc): Call mtrace to turn on tracing if the environment variable MALLOC_TRACE is set to a file name. * mtrace.c: Add source file which provides a log of every malloc, free, and realloc to a trace file. * mtrace.awk: Add source file which analyzes the trace file. * Makefile.dist (GNU_MALLOC, MALLOCSRC): Add mtrace.{c,o,awk}. (VERSION): Roll to 3.94.3. * breakpoint.c (breakpoint_1): Add a space to "i watch" output. (check_duplicates): Don't bother with watchpoints. (set_raw_breakpoint): Comment about danger of this routine. (watch_command): Parse and eval all args before calling set_raw_breakpoint. * solib.c (find_solib): Avoid error in referencing memory to see if any more shared libraries have been added. This is particularly useful if the target has terminated. Bug reported by Peter Schauer. Changes from Peter Schauer in bringing up 3.94.2 on the Sun-3. * Makefile.dist: Include CFLAGS in rule for cplus-dem.o. * breakpoint.c (enable_breakpoint): Check for valid watchpoint expression (in scope) before reenabling watchpoint. * signame.c (init_sigs): Add missing declaration of i, fix sys_siglist declaration. * source.c (list_command): Fixed range computation to use lines_to_list (). * stack.c (backtrace_command): Do not allow command if target has no stack, print informative error message. * target.c (target_command): Do not write into command line because this fails if the target command is used in a user defined command. [This change was enhanced by gnu to support any- unique-prefix matching on target names.] * valops.c (value_struct_elt): Avoid infinite loop on an erroneous attempt to print the member of function (try p main.p). Mon Apr 1 17:05:45 1991 John Gilmore (gnu at cygint.cygnus.com) * expread.y (name_no_typename): Avoid reduce/reduce errors caused by ambiguity in handling NAME_OR_INT and NAME_OR_UINT. Since the GDB parser really doesn't use name_no_typename in a name-only context, the parser can't tell the diff between names and numbers here. Avoid allowing a name_no_typename to be a NAME_OR_*INT to resolve the conflict. Sun Mar 31 20:12:07 1991 John Gilmore (gnu at cygint.cygnus.com) Bugfixes from Mark Fox (markf@wrs.com) (test=testField.c): * valprint.c (val_print_fields): bitfield printing didn't handle byte order. Indirect through a few more fns to cope. * values.c (modify_field): also cope with byte order. Sat Mar 23 10:02:21 1991 John Gilmore (gnu at cygint.cygnus.com) Cleanup for release 3.94.2: * Makefile.dist: Pull REMOTE_OBS. Fix saber includes for BFD include files. Roll version to 3.94.2. * coffread.c (init_stringtab): Read length into unsigned char array before swapping; don't assume 32-bit longs. * target.c (target_info): Don't bother with get_sym_file, just use the symfile global variable. * symtab.h, symfile.c (get_sym_file): Delete it. * dbxread.c (dbx_symfile_init): Don't depend on long == 4 bytes. (define_symbol): Set symbol line number to 0 if not gcc-compiled. (read_type): Replace one more error() with complain(). * mipsread.c (parse_partial_symbols): Replace printf with complain. * i960-tdep.c: Fix copyright attribution. * config.gdb: Quote all backquotes in doublequotes. You can quote me on that. BSD 4.4 shell found this one. * infptrace.c (throughout): The third argument to ptrace is an int *, not an int. * infrun.c (wait_for_inferior): When program has terminated, we have to call target_terminal_ours before we pop that target off the stack (e.g. before a call to target_kill or target_mourn_inferior). This fixes problem where a program terminates, then GDB stops for (tty output) and you have to type "fg" to the shell to resume it. FIXME: This code for what to do after termination really should be in normal_stop instead. * gdbcore.h (read_memory_check): Change declaration; it changed names months ago. * terminal.h: Include before , since in BSD 4.4 prereleases, this avoids a bug in their sgtty compatability support. * remote.c: Use terminal.h rather than hand-rolling the same. * signame.c, signame.h (psignal): Arg is unsigned, not int. * utils.c (strsave, strstr): Fix arg types. * valprint.c (val_print): lint MIPS symbol table support from Per Bothner: * symfile.c (symtab_fns): Remove initializer table that needs to be hacked for each new symbol file format supported. (add_symtab_fns): New function, chains symbol table handlers into the global list. (symfile_init): Search this list. * symfile.h: Add next pointer, declare add_symtab_fns. * coffread.c (_initialize_coffread): Call add_symtab_fns. * dbxread.c (_initialize_dbxread): Call add_symtab_fns. * mipsread.c (psymtab_to_symtab_1): return void instead of (struct symbol *). Thus, we no longer need the hack to trash pst->filename. Good, since that hack confused code in symfile.c! (reorder_symtabs, destroy_all_symtabs): Removed static all_symtabs, which was used to qsort symtabs in reorder_symtabs. Instead, the latter now uses a temporary array (stack-allocated from an obstack, and then freed). (parse_symbol): Added a hack to fix up BLOCK_{START,END} if they haven't been set in the outermost stBlock of a procedure. This was a problem with f77 binaries on Ultrix 4.?. (new_symtab, new_symbol, new_type): Continue changing code to use obstacks more and otherwise conform to dbxread internal style. Made the free_code of symtabs be free_linetable (as in dbxread) instead of free_contents. This implies memory leaks when reading a new symbol table, until the conversion is finished. Did change (struct symbol) and (struct type) to be allocated on the symbol_obstack. Blocks and blockvectors are among the things still "leaking." * mipsread.c (parse_partial_symbols, parse_fdr): It hasn't been tested much, but it solved one problem (reported by Meissner), and cleans up some other things. The problem happened when an included file contains actual code (functions) and not just definitions. The mips coff is a little inconvenient there, since it may cause a procedure to be mapped to the wrong psymtab. * mips-tdep.c (heuristic_proc_desc): Minor cleanup. * mips-xdep.c (fetch_core_registers): Minor cleanup. FIXME, this will need work for the new core paradigm. Opcode patches from the net: * mips-opcode.h: fix incorrect disassembly of the mfc1, cfc1, and ctc1 instructions. Also, the cvt.d.w and cvt.s.w instructions were missing altogether - they are added here. From Bruce Bauman. * mips-opcode.h: The low mask for C0 instructions was too small. From Garrett Lau. I modified the fix to check the entire 32-bit opcode. * ns32k-opcode.h: Fix opcodes for deiw and deid. From Bruce Bauman. Thu Mar 21 12:56:46 1991 John Gilmore (gnu at cygint.cygnus.com) Roll in changes from Per Bothner (Tue, 25 Sep 90 11:11:04): * dbxread.c (read_type): Pointer subtraction (value_sub in valarith.c) sometimes failed because the types of the pointers being subtracted were not identical. These differed because dbxread.c was allocating pointer types using dbx_alloc_type+smash_to_pointer_type instead of lookup_pointer_type. I failed to find a justification for the former, so I changed it to use the latter. Similarly, I replaced smash_to_function_type by lookup_function_type, and smash_to_reference_type by lookup_reference_type. * mipsread.c (parse_symbol, upgrade_type, parse_procedure, _initialize_mipsread): corresponding changes. * symtab.c (smash_to_{pointer,reference,function}_type): eliminate. * source.c (mod_path): Do tilde_expand on each component of the path, rather than on the (list of) paths as a whole. (print_source_lines): Set first_line_listed in addition to current_source_symtab and current_source_line. If the source was not findable, after a "dir" command to fix the problem, a "list" would get the wrong lines. While I was there... (gnu): * dbxread.c (read_type): Change error to complaint. Thu Mar 21 12:56:46 1991 John Gilmore (gnu at cygint.cygnus.com) First attempt at detailed understanding of symbol table memory alloc. * dbxread.c (dbx_symfile_read): Free our string table if we aren't the mainline. Free the "info" struct since we're done with it. (init_psymbol_list): Free any previously allocated psymbol lists. (): FIXME: Should realloc-down the psymbol lists when done reading the main symbol file? * symmisc.c (free_symtab): Free fullname field too. * xm-hp300hpux.h (USG): #undef then #define so Makefile can -D. (REGISTER_ADDR): Make result type unsigned int. * xconfig/{i386*,hp300hpux,altosgas,altos}: All config files that define REGEX must also define REGEX1 (its dependency). Tue Mar 19 21:28:57 1991 John Gilmore (gnu at cygint.cygnus.com) * tconfig/i960: No longer works, points you at vxworks960 or nindy960. * xgdb.c, XGDB-README: Remove file. Users can get the much better xxgdb. * Makefile.dist: Remove all trace of xgdb. * breakpoint.c (breakpoint_1): Pass demangle arg to print_address_symbolic. (clear_breakpoints): Remove unused function. (breakpoint_re_set_one): Guts of breakpoint_re_set. (breakpoint_re_set): Use catch_errors to do them all anyway. * gdb-int.texinfo (Host versus Target): Add section on what is a "host" feature versus what is a "target" feature. * infcmd.c (path_command, path_info): Handle the PATH variable (object search path) as conveniently as the source search path. * environ.c (set_in_environ): Set some vars in GDB's environment, in addition to the child's. PATH, G960BASE, G960BIN for starters. * source.c (mod_path): New function, from guts of directory_command, modifies a path. Used by path_command. (directory_command): Call it. * defs.h (strsave): Declare. * utils.c (sevenbit_strings): Add new printing option. (printchar): Use it. (strsave): Provide this handy helper routine. (set_width_command): Rename set_screen_width_command. (_initialize_utils): "set screen-width" => "set width"; "set screen-height" => "set height"; add sevenbit-strings. * infcmd.c (do_registers_info): Print floating point registers in raw hex as well as float format, regardless of whether it is a "virtual" convertible register. * tm-sparc.h (PRINT_REGISTER_HOOK): Print every pair of float regs as a double, just in case it's being used that way. * values.c (unpack_long): Comment on array/function coercion. (unpack_double): Argument is in target byte order now. For integer arguments, just call unpack_long and float the result. * m68k-tdep.c: include defs.h for "const" handling. * remote-nindy.c: Use ieee-float stuff. (nindy_fetch_registers): Unpack double regs to host double, then to extended. (nindy_store_registers): Pack extendeds to host double, flip around by misusing unpack_double, send as target double. * tm-vxworks68.h (FRAME_CHAIN): Handle current frame pointer of zero, as when stopped at the first instruction of a process. * blockframe.c: Fix filename in comment (param.h => tm.h). * sparc-tdep.c (skip_prologue): More explicit nudging comments. * tm-68k.h: Fix typos. Fri Mar 15 01:09:34 1991 John Gilmore (gnu at cygint.cygnus.com) Changes from a bringup on the DEC Vax under Ultrix 4.0. * coredep.c (fetch_core_registers): Pass end-address of register section to register_addr as expected. Don't call supply_register if we'd just pass it garbage. * dbxread.c (read_dbx_symtab): Skip N_NSYMS on Ultrix. * exec.c (xfer_memory): Use boolean xfer_fn result, not int. * target.c (push_target, target_info): Cast enums to int for < or > comparison. * stack.c (print_frame_info): Identify source file & line even if we can't print it. * xm-vax.h (MISSING_VPRINTF): No longer missing in Ultrix V4.0. Sat Mar 9 10:08:20 1991 John Gilmore (gnu at cygint.cygnus.com) Clean up IEEE floating point support. * ieee-float.h: New file. * ieee-float.c: Write real routines to convert between host doubles and various target IEEE extendeds. * m68k-xdep.c: Eliminate assembler code for extended floats. * xconfig/{3b1,altos,altosgas,hp300bsd,isi,news,news1000,sun2os3, sun2os4,sun3,sun3os3,sun3os4}: Eliminate use of m68k-xdep.o. * tm-i960.h, tm-68k.h (REGISTER_CONVERT_TO_VIRTUAL, REGISTER_CONVERT_TO_RAW): Use ieee_extended_to_double and double_to_ieee_extended. * i960-tdep.c: Define ext_format_i960. * m68k-tdep.c: Define ext_format_68881. * sparc-tdep.c: Define ext_format_sparc, though unused. * Makefile.dist (HFILES): Add ieee-float.h. * inftarg.c: #include "ieee-float.h" for the REGISTER_CONVERT macros. Obsolete the "coffstrip" program in favor of using BFD's strip. * nindy-share/coffstrip.c: Remove file. * nindy-share/nindy.c (coffstrip): Routine to run bfd_strip. * Makefile.dist: Remove references to nindy-share/coffstrip.c. * tconfig/nindy960: Remove reference to coffstrip.o. * Makefile.dist: Roll version number to 3.94.1 (not yet final). Wed Mar 6 09:56:45 1991 John Gilmore (gnu at cygint.cygnus.com) * symfile.h: Add symfile_bfd, common between dbxread and coffread. * dbxread.c: Remove static symfile_bfd. * infcmd.c (do_registers_info): Add PRINT_REGISTER_HOOK, though it is not used yet. * inftarg.c (child_detach): Pop the child_ops vector if the detach is successful. * remote-nindy.c (nindy_create_inferior): Don't push a new nindy_ops since nindy uses the same one for execution and memory examination anyway. * core.c (core_ops): Use child_attach and child_create_inferior rather than default attach and create_inferior functions. Handle floating point registers in core files. * sparc-xdep.c (fetch_core_registers): Rewrite for float support. * sun3-xdep.c (fetch_core_registers): Rewrite for float support. This version untested since BFD doesn't yet support sun3 core files. * hp300hpux-xdep.c: Rewrite fetch_core_registers to new calling conventions. Fix comments and style. This version has not been compiled yet, since we have no HP inhouse. * core.c (get_core_registers): Look for two sections, ".reg" and ".reg2", and pass both to fetch_core_registers sequentially. Revise directory path yet again. * source.c (forget_cached_source_info): Not static any more. (init_source_path): New default source path is "$cdir:$cwd". (dir_command): Handle variable arguments ($cdir, $cwd). (source_info): Print "Compilation directory" rather than "Originally compiled in" to remind people of $cdir. (openp): If the path contains $cwd, use current directory. (open_source_file): If compilation directory is known, replace first $cdir in path with the compilation directory. (print_source_lines): Even if we can't print the lines, set the current symtab and line for future commands like "info source" or "breakpoint". Also, error message now contains the file name, line number, and file access error message. (_initialize_source): Fix help text to describe changes. * main.c (cd_command): Forget cached source info when we chdir. * utils.c (strstr): Add simple implementation. Tue Mar 5 01:41:40 1991 John Gilmore (gnu at fowanton.cygnus.com) * coffread.c (read_one_sym, init_linetable, init_stringtab): Byte-swap COFF symbol tables if necessary when reading them in. Use complain() to replace error message in one spot. Needs corresponding change in bfd/coff-code.h to make some symbol swapping routines non-static. Mon Mar 4 00:53:40 1991 John Gilmore (gnu at cygint.cygnus.com) Merge changes from Eirik Fuller, for UTek. * defs.h (errno): Add declaration. * altos-xdep.c, arm-xdep.c, convex-xdep.c, gould-xdep.c, hp300hpux-xdep.c, infrun.c, inflow.c, infptrace.c, i386-tdep.c, i386-xdep.c, pyr-xdep.c, mips-xdep.c, remote-eb.c, remote-nindy.c, remote-vx.c, source.c, standalone.c, stuff.c, sun386-xdep.c, symmetry-tdep.c, symmetry-xdep.c, umax-xdep.c, utils.c: Eliminate declarations of errno. * remote-eb.c: Define B19200 and B38400 as EXTA and EXTB. * remote-vx.c: Include for UTek; Sun gets it via and . Sat Mar 2 15:47:55 1991 John Gilmore (gnu at cygint.cygnus.com) * i960-tdep.c (examine_prologue): Add new argument limit, which stops the scan at the end of the prologue, or at the PC. This fixes a problem where it walks down into the code for the user's statements if that code looks like function prologues. Mark Fox and I have been bouncing this code back and forth, making small changes to it. Callers changed to match. Tue Feb 26 01:47:07 1991 Cygnus John Gilmore (cygnus at yuba) Cleanup for gdb-3.94 release final: * Makefile.dist: Remove remote-vx.c, remote-nindy.c, and all the .c files from vx-share and nindy-share, from the various macros, since they are not found via ALLDEPFILES. (SFILES): Add tm-i960.h. (alldeps.mak rule): Break out ALLDEPFILES_MAINDIR and ALLDEPFILES_SUBDIR. List all the nindy and vxworks subdir files in the SUBDIR list. (TAGFILES_MAINDIR): Change ALLDEPFILES to ALLDEPFILES_MAINDIR. (gdb.tar.Z): Use ALLDEPFILES_SUBDIR as well as SFILES_SUBDIR. Mon Feb 25 16:02:35 1991 Cygnus John Gilmore (cygnus at oldman) * am29k-tdep.c: Add contribution line. (examine_prologue): Cache information about function prologues in the misc-function-vector to avoid lots of references over the serial line while examining instructions. * core.c (core_close): New function made from cleanup_core. * core.c, exec.c, inftarg.c, remote-eb.c, remote-nindy.c, remote-vx.c, remote.c, target.c, target.h, Update target_ops vector to add attach, close, and load entries. Use add_syms_addr_command, not add_file_addr_command, for add_file. Break out close routine from existing code. * dbxread.c (really_free_pendings): Don't free pending_blocks; they are in an obstack. (read_dbx_symtab): Relocate end_of_text_addr in the psymtab. Lint. (define_symbol): Add symbol type parameter; change callers; pass type parameter to DBX_PARM_SYMBOL_CLASS macro to allow it to influence the symbol class on the i960. (define_symbol): Swap LOC_CONST's into target byte order. * exec.c (exec_close): New function. (exec_file_command): Call it. * findvar.c (read_relative_register_raw_bytes): Doc byte order, Fix byte order of frame pointer. (read_var_value): Result of 0 if var's value can't be found, e.g. missing FRAME_ARGS_ADDRESS. Byte-swap LOC_CONST and LOC_LABEL values to target order. Add LOC_LOCAL_ARG. (locate_var_value): Use read_var_value and use its lazy address as the location of the var's value. Lint. * i960-pinsn.c (next_insn): Add routine from vxgdb for scanning instructions. * i960-tdep.c (arg_address, i960_frame_find_saved_regs): Remove obsolete Intel versions in favor of vxgdb versions. (check_host, byteswap, byteswap_val, reorder_val): Eliminate code dealing with byte order of values, which Intel did in host byte order rather than gdb-4's target byte order. (i960_frame_chain_valid): Move to nindy-tdep.c. (examine_prologue, skip_prologue, frame_find_saved_regs, frame_args_address, leafproc_return, saved_pc_after_call, pop_frame): Add vxgdb versions from Mark Fox. (examine_prologue, frame_struct_result_address): Add code to deal with the saved value of G13 (struct return address pointer). (frame_args_address): Modify Mark's version to prefer the saved value over the current value in the topmost frame. Cache result in the frame info to avoid performance hair in callers. (print_fault): Add gdb960 code for printing faults. (_initialize_i960): Actually call check_host. * ieee-float.c (ieee_extended_to_double, ieee_double_to_extended): add stub routines. FIXME, these currently just return zero! * infcmd.c (program_info): Use PRINT_RANDOM_SIGNAL. (attach_command): Call target_attach, not target_open, now. * infrun.c (normal_stop): Make global, not static, for vx_attach. (child_attach): Rename from child_open. (wait_for_inferior): Use PRINT_RANDOM_SIGNAL. If stop_pc is zero, don't confuse it with a zero step_resume_break_address. * inftarg.c (child_detach): Eliminate inferior_pid test. (child_files_info): Clean up message a bit. (child_ops): Use child_attach, not child_open, to attach. * mem-break.c: #ifdef out the whole file if BREAKPOINT is not set (e.g. on VxWorks or NINDY). Move read_memory_nobpt from findvar.c to here, since it depends on the contents of the shadow_contents of breakpoints, but keep if #if 0 since it is never called. * nindy-tdep.c: New file, contains nindy_frame_chain_valid, moved from i960-tdep.c. * printcmd.c (address_info): Handle LOC_LOCAL_ARG. Lint. (ptype_command, display_command): Eliminate have_inferior_p and have_core_file_p in favor of target_has_stack or target_has_execution. (print_frame_args): Handle LOC_LOCAL_ARG. Eliminate duplicate code for actually finding the values of arguments, though we still keep track of the maximum stack offset for use in printing unnamed arguments. Handle missing FRAME_ARGS_ADDRESS. * remote-nindy.c (i960_print_fault): Move to i960-tdep.c. (struct nindy_regs): Define registers passed to/from nindy. (nindy_fetch_registers, nindy_store-registers): Translate between nindy and GDB formats for the registers. (dcache_init): Statically allocate the cache, since it was being allocated by a malloc that was never freed anyway. (nindy_create_inferior): Error, not core dump, if no exec file. (nindy_before_main_loop): Use target_load, not target_add_file. * remote-vx.c (net_load): Specify large timeout for load requests. Allow user to break out with INTERRUPT. (net_break): Remove useless code, clean up. Change callers. (parse-args, skip_white_space, find_white_space): Clean up arg parsing to cope with quoted strings. (net_wait, net_quit): Never call error, just return status. (vx_read_register, vx_write_register): Cleanup status checking. #ifdef the code based on which CPU we are using (960 or 68k), FIXME, this should be completely general but it isn't yet. (vx_xfer_memory, vx_resume): Cleanup status checking. (vx_run_files_info): Improve message. (vx_load_command): Renamed from vx_add_file_command. Allow load to be interrupted. (net_ptrace): Remove unused routine. (vx_wait): Adopt code from vxgdb960 to cope with broken connections to target machine and prompt to disconnect. Remove debug printouts. Map some EVENT_'s to SIGnals. (add_symbol_stub, vx_open): Print names of object files we found, and "ok" if we read their symbols OK. Clarify output in general. (vx_attach, vx_detach, vx_kill): Add these commands. (vx_convert_from_virtual, vx_convert_to_virtual): Simplify. (vx_run_ops): Turn off all_mem, to avoid spurious msg in the "info files" output, and create_inferior, since we already have an inferior. * stack.c (frame_info): Replace Frame_unknown with 0. (print_frame_arg_vars): Handle LOC_LOCAL_ARG. (return_command): Pop until the PC matches as well as the FP, so it works even if the FP is shared with another function, as in "frameless" or "leaf" procedures. * symfile.c (load_command): renamed from add_file_target_command. (add_syms_addr_command): renamed from add_file_addr_command. (add_syms_command): Stub to call target_add_syms. (_initialize_symfile): Change command names and descriptions, add-file => add-syms, and load from alias to its own command. * target.c (kill_or_be_killed, maybe_kill_then_attach, maybe_kill_then_create_inferior): Default for attempts to start a process, if one is already running, is to ask about killing it and retry if yes. (upstack_create_inferior): #if-0 it, strata obsolete it. (push_target, unpush_target, pop_target): to_close() a target before unstacking it. (target_info): Renamed from target_files_info. (_initialize_targets): Rename "i files" as "i target", accessible under both names. * target.h: Improve comments about the target_ vectored routines. * tm-i960.h: Remove NINDY-specific stuff to tm-nindy960.h. Convert commenting style to standard GNU style. (DBX_PARM_SYMBOL_CLASS): allow LOC_LOCAL_ARG's to be recognized. (SKIP_PROLOGUE): No longer a no-op. (SAVED_PC_AFTER_CALL): Now handles leaf procedures. (*_REGNUM): Sort register numbers. (REGISTER_BYTES, REGISTER_BYTE, REGISTER_RAW_SIZE, MAX_REGISTER_RAW_SIZE, REGISTER_CONVERTIBLE, REGISTER_CONVERT_TO_VIRTUAL, REGISTER_CONVERT_TO_RAW): Float regs are now 10 byte extendeds, not 8 byte doubles. (FRAME_CHAIN_VALID): Make this config-dependent, since it differs for nindy versus vxworks targets. FIXME, this should possibly go in the target vector. (EXTRA_FRAME_INFO, INIT_EXTRA_FRAME_INFO): Cache both frame_saved_regs and arg pointer with each frame. (FRAMELESS_FUNCTION_INVOCATION): New leafproc support. (FRAME_ARGS_ADDRESS): Use cached result. (FRAME_ARGS_ADDRESS_CORRECT): New, avoids g14 guessing. (FRAME_FIND_SAVED_REGS): Change arg to subsidiary fn. (PRINT_RAMDON_SIGNAL): Call print_fault. (POP_FRAME): Now works. * tm-nindy960.h: Break this off tm-i960.h. NINDY-specific option parsing and startup; STACK_END_ADDR, FRAME_CHAIN_VALID, BREAKPOINT, and DECR_PC_AFTER_BREAK are here. (ADDITIONAL_OPTION_HANDLER): use target_load, not target_add_file. * tm-vxworks960.h: Break this off tm-i960.h. VxGDB specific startup; DECR_PC_AFTER_BREAK, and FRAME_CHAIN_VALID are here. * valarith.c (value_subscripted_rvalue): Avoid handling floats and doubles specially; it gave alignment errors. Lint. * valops.c (value_of_variable, value_of_this): Error if unknown value. * valprint.c (print_floating): Bcopy rather than pointer-deref, to avoid alignment problems. (value_print): Handle unknown value address. (cplus_val_print): Two args are ignored; remove them. Change caller. (val_print): Use unpack_long rather than pointer-deref. * values.c: Lint. (unpack_long, unpack_double): Use bcopy rather than pointer-deref to avoid alignment problems. (value_being_returned): Error if return value unknown. (set_return_value): Add bogosity warning, FIXME. * * TODO: A woman's work is never done. * Makefile.dist: Distribute REMOTE_OBS into tconfig files. Separate INCLUDE_CFLAGS for use with lint. Add LINTFILES. Add ieee-float.o to OBS. * tconfig/{nindy960,vxworks68,vxworks960}: Include the desired REMOTE_OBS remote-interface files in the TDEPFILES and TM_FILE. * tconfig/i960: FIXME. Half-merge, produce warning if config'd. Changes to generalize the VxWorks RPC protocol slightly, to handle i960 as well as 68000. * vx-share/dbgRpcLib.h (VX_SOURCE_STEP): Add. * vx-share/reg.h: Produce i960 regs #ifdef I80960 * vx-share/xdr_ptrace.c: Skip FPA registers if 960. * vx-share/xdr_rdb.h: Add SOURCE_STEP struct and xdr decl. * vx-share/xdr_rdb.c: Add xdr_SOURCE_STEP routine. * vx-share/xdr_regs.c: Add xdr_regs, xdr_fp_status, xdr_ext_fp for i960. Change xdr_vectors to xdr_opaques for 68k registers, so they will move in target byte order rather than network byte order (happens to be the same). Mon Feb 25 03:41:44 1991 John Gilmore (gnu at cygint.cygnus.com) * tm-convex.h (END_OF_TEXT_DEFAULT): Remove #if 0'd block. Sun Feb 24 00:55:53 1991 John Gilmore (gnu at cygint.cygnus.com) * am29k-pinsn.c, Add contribution lines to various files, showing where they came from. * breakpoint.c (break_insn, check_break_insn_size, read_memory_nobpt): Remove to mem-break.c. * xm-*.h, param-no-tm.h, tm-29k.h, valprint.c: Change BYTE_ORDER to HOST_BYTE_ORDER. * tm-29k.h (STAB_REG_TO_REGNUM): Warn user if symbol table entry has bad register number. This change is not tested in this release, FIXME. * frame.h: Eliminate Frame_unknown in favor of a simple zero. tm-vax.h: Ditto. * value.h: Force value's contents field to be aligned to hold at least a double or a long long (if supported). This avoids doing bcopy's in and out of the contents field. (step_1): Avoid coredump under obscure circumstances when we have no frame. * symtab.h (misc_info): Add field to misc function vector for any kind of cached information the target code desires. AMD 29000 uses this to avoid repeating examine_function_prologue's. * coffread.c: Lint. Remove static symfile, read_section_header. core.c (have_core_file_p): Lint: remove. expprint.c (print_subexp): Lint. infptrace.c, valops.c, valprint.c: lint. Roll in changes from vxgdb-5.0.1: * symtab.h: Comment byte order of each address class. Add LOC_LOCAL_ARG for frame-relative args (960). expread.y: Use LOC_LOCAL_ARG where LOC_ARG is used. symtab.c, symmisc.c: ditto. * infrun.c (init_wait_for_inferior): Clear stop_signal. * remote.c (remote_resume): Error if resume with a signal. * symfile.c (prim_record_misc_function): Clear misc_info. (fill_in_vptr_fieldno): Check stub type of arg. * valops.c (value_cast): Avoid looking up names of types whose name we don't know, to prevent coredump. Sun CC produces typedef rtx and the name of *rtx is zero... Mon Feb 18 21:16:25 1991 John Gilmore (gnu at cygint.cygnus.com) Roll in changes from final AMD 29000 port (Tiemann). tconfig/am29k: Add COFF_ENCAPSULATE and TARGET=TARGET_AM29K for ../include/a.out.encap.h. This might not work now that BFD is separately compiled. Instead, BFD support for encap will have to translate machine type 29k into the right COFF_MAGIC. * infcmd.c: Remove references to inferior_pid that aren't used in actual ptrace calls; use target_has_execution, etc. (have_inferior_p): Remove function. (program_info): Print target info rather than "process number"; avoid gratuitous messages unless from_tty. (run_stack_dummy, finish_command): Set proceed_to_finish. infrun.c: Remove inferior_pid refs. Decl & init proceed_to_finish. main.c: Lint. Lose have_inferior_p(). inferior.h (have_inferior_p): Remove, lint. (proceed_to_finish): Add flag to ask that all regs be saved by normal_stop, for the few commands that need it, speeding up serial I/O. Add comments to stop_registers. * remote-eb.c: Remove newline from breakpoint message we grep for. Never time out when running the user program. Wed Feb 13 15:34:40 1991 John Gilmore (gnu at cygint.cygnus.com) Roll in changes from vxgdb-5.0.1: * dbxread.c (read_dbx_symtab): If we encounter a "FORTRAN COMMON" symbol in its raw form, we are processing an unlinked ".o" file. See if the target environment has assigned it an address, using target_lookup_symbol (VxWorks does), and enter it into the symtab that way. * tm-vxworks.h (FRAME_CHAIN, FRAME_CHAIN_VALID): Override usual 68k versions for a simpler version that assumes zero FP at bottom. Fixes bug of truncated stack reports. * target.h (target_lookup_symbol): Define this routine's args and result, finally. * target.c (nosymbol): Default routine for target_lookup_symbol. (target_default): Default lookup_symbol and call_function too. (files_info): Only print has_all_memory warning if a non-dummy target follows. * remote-vx.c (vx_read_register, vx_convert_to_virtual, vx_convert_from_virtual): If target does not have floating point, zero register "values", and avoid doing cross-net conversions. (vx_lookup_symbol): Rename net_lookup_symbol, add to vectors. (vx_open): Rearrange code that attaches to target and reads symbols for all loaded modules, to work if some of the modules are not accessible. Add symbol_stub() and add_symbol_stub() as callbacks from catch_errors(). Allow connect attempt to be interrupted painlessly with ^C (FIXME, there are still some bugs if the interrupt happens during symbol reading.). Print final message with puts_filtered, since symbol messages are now filtered too. Misc cleanup: * main.c (catch_errors): Only print errstring if non-null. (command_loop): Avoid an ioctl per command to test ISATTY. * remote-vx.c (net_load): make static; avoid sophomoric msg. (vx_xfer_memory): Return correct result! (vx_files_info): Indicate whether target has float or not. (vx_lookup_symbol): Complain, not error, if target gone. (vx_open): Print "Connected" msg before disabling immediate-quit. [FIXME: lookup_symbol and vx_open changes need testing.] target.c, remote-eb.c, inftarg.c, am29k-opcode.h, target.h, tm-29k.h, tmm-vxworks68.h, symfile.c, gdb-int.texinfo: Add contributor lines and update copyrights to 1991. Changes from an attempted H-PUX host port: * infptrace.c (PT_ATTACH, PT_DETACH): Handle HP/UX, which defines PT_ATTACH and PT_DETACH but not PT_KILL. * remote-eb.c (eb_open): Misplaced endif kills sysv H/PUX. * remote-vx.c: include for HPUX. * hp300hpux-xdep.c (fetch_core_registers): Rewrite old "core_file_command" routine to BFD regime. May not work yet. Attempted port of "gdb-3.4 Van Jacobson xgdb" to modern gdb. * xgdb.c: Replace X10 version with some VJ version. (FIXME: Its copyright assignment is not on record.) * xgdb.c: Update include files to X11R4 (Xaw crud). (xgdb_display_source, create_text_widget): fix call to get_filename_and_charpos. Rewack source window stuff for X11R4 (gleaned from include files, and "nm's" of binary libraries, since I had no doc available). (append_selection, append_selection_word): Disable with FIXME since R4 changed interface here. (create_buttons): Add back the old set of buttons. (xgdb_create_window): Fix call to XtInitialize (&argc not argc). * Makefile.dist (xgdb, xgdb-init.c): Update for X11R4 on Suns. Roll VERSION to 3.94 (not yet final though). Sat Feb 9 09:46:25 1991 John Gilmore (gnu at cygint.cygnus.com) * obstack.h (obstack_ptr_grow, obstack_ptr_grow_fast, obstack_int_grow, obstack_int_grow_fast): Eliminate cast on left of assignment, which gives MIPS cc fits and is not Standard C. * sparc-pinsn.c (print_insn): Eliminate 'set' test, subsumed by F_ALIAS. Use printf, not fprintf, when not passing a file pointer... (compare_opcodes): Check that identical instructions have identical opcodes, complain otherwise. * sparc-opcode.h (st %fsr): Fix opcode "lose" mask. This was reported by Roland McGrath. (unimp): Only match if exactly zero instruction. (Roland) (branches and traps): Generate all variations of these instructions with macros, based on a single call that defines each condition name and its binary representation. (set): Turn on alias bit, to avoid test in sparc-pinsn.c. * valprint.c (val_print_fields): Take, and use, format parameter. This means that "p/x struct" again prints the elements in the desired format. Changed callers. * stack.c (frame_info): Use filtered output, and indicate wrap points. Remove kludgy formatting designed to avoid line wrap. * utils.c (wrap_here): If the line is already full (because we had printed a long indent or long wrapped string), do an immediate newline-and-indent. * m68k-pinsn.c (print_insn_arg): Bugfix from ntmtv!thompson@ames.arc.nasa.gov (Mike Thompson): 'bkpt #0' instruction is incorrectly disassembled as bkpt #8. * dbxread.c (end_psymtab): Bugfix from Peter Schauer : If you want to set a breakpoint in a *.y file gdb will say Reading in symbols for *.y... and then will dump core (sometimes). I traced it back to an uninitialized symfile_name in psymtab_to_symtab. (const_vol_complaint): Add quotes to message. (define_symbol): Only believe line number if gcc_compiled. Avoid allocating symbol if we will not return it. Add target strata support so that newly established targets go into their right place in the target stack (e.g. a new exec file doesn't wipe out the ability to access the running process). * target.h, core.c, exec.c, inftarg.c, remote-eb.c, remote-nindy.c, remote-vx.c, remote.c, target.c: Add to_stratum and initialize it properly in all the targets. * target.h: Document strata. Change return type of push_target. * target.c (nomemory): new function for dummy memory access. (tcomplain): Rename complain, now also used in symfile.c. (push_target): Push targets within strata. New return value shows whether new target is on top of stack or not. Always keep dummy target on stack. (target_files_info): Ignore dummy target. * core.c (core_open): Warn user, and skip accessing file, if the core target is not the topmost target in the stack. * remote-nindy.c (nindy_create_inferior): Avoid unpush_target, now already handled. * remote-vx.c: Remove vx_prepare_to_store from vxworks memory target_ops, it doesn't belong there since we have no regs there. Change name of target from machine => memory to clarify. Thu Feb 7 16:32:09 1991 John Gilmore (gnu at spiff.cygnus.com) * Freeze version 3.93 for release. * Makefile.dist: Handle vx-share and nindy-share subdirs properly when building gdb.tar.Z. * symtab.c: lint; add no_symtab_msg to consolidate the messages printed in various places, so I could change just one copy. * dbxread.c, coffread.c: Change references to bfd->iostream to cast to FILE *, now that BFD avoids needing types defined in other header files. Tue Feb 5 21:39:35 1991 John Gilmore (gnu at cygint.cygnus.com) * command.c, dbxread.c, expprint.c, infcmd.c, infptrace.c, infrun.c, printcmd.c, remote-nindy.c, source.c, sparc-tdep.c, sparc-xdep.c, symfile.h, symmisc.c, utils.c, valprint.c: Lint (actually gcc -Wall). * dbxread.c: Remove first_global_sym, last_global_sym, since they are never referenced. * defs.h (baud_rate): Declare. main.c: Define it, and add the -b option to set it. * gdb-int.texinfo: Add text on how to define a new host or target architecture, prompted by Per Bothner's questions about MIPS support. * gdb.texinfo: Document "complaints". Change doc of -q since gdb no longer prints the copyright and blurb if you specify a file name to be debugged (just like Emacs). Add doc for Nindy-specific command line flags for specifying target serial port and such. Update copyright to 1991. * gdbcore.h: Remove a large mass of now-useless crud, since BFD has taken over for us the job of ripping up executable files. The crud caused Per Bothner's port to not compile. * infrun.c (normal_stop): Avoid printing "Program exited normally" if we are in batch mode. This allows a GDB which executes a program on a target system, to behave like a Unix command (input from stdin, output to stdout, no extraneous output). * main.c (main): Allow additional machine-dependent command line options to be specified with the ADDITIONAL_OPTIONS, ADDITIONAL_OPTION_CASES, ADDITIONAL_OPTION_HELP, and ADDITIONAL_OPTION_HANDLER macros. Also allow machine-dependent processing to occur just before the main loop with BEFORE_MAIN_LOOP_HOOK. (main): If a "core file" argument is specified, and it is not a core file, try it as a process ID to attach. (symbol_completion_function): Attempt to cope with "show screen-" TAB, not very successfully. This needs more work, FIXME. (batch_file): New function, returns whether we are reading commands from an interactive tty on stdin, or from somewhere else. Called by normal_stop since it doesn't get from_tty passed down to it like many commands do. * remote-nindy.c: Handle command line options for nindy connection. (nindy_before_main_loop): Prompt user for tty name if they don't specify it before getting to the interactive command loop. * tm-i960.c: Add ADDITIONAL_OPTIONS, etc, to handle -O, -brk, and -r command line options. Also add hook before main loop to make it easy to specify a tty. * TODO: More things to do, one done. Mon Feb 4 23:57:39 1991 John Gilmore and Mike Tiemann (at cygint.cygnus.com) * dbxread.c: Make complaint() calls pass pointer, not struct. Add complaints about badly formatted C++ type information (const/volatile indicator, and parse errors resulting in error_type). Fix C++ virtual member fn comment. (read_struct_type): Avoid bumping pointer if we got a parse error; this prevents our walking beyond the end of a string. Terminate loop on null char as well as semicolon. (process_one_symbol): Fix the LBRAC fix so that it uses the last previous SLINE, FUN, or SO record's PC address. C++ debug symbols did not have SLINE records in a useful order compared to the LBRAC records. (define_symbol): Handle "catch" records. * symtab.c (check_stub_type): Added new complain `stub_noname_complain' and added a consistency check to keep the debugger from crashing when finishing from an exception frame. A real fix will be needed later. Sat Feb 2 10:43:05 1991 John Gilmore (gnu at cygint.cygnus.com) * infcmd.c (attach_command): Make global. * Makefile.dist (REMOTE_OBS): Make these compile by default, but make them easy to comment out. Perhaps later they should be enabled by what CPU you configure for? FIXME. (VERSION): Roll to 3.93. (pinsn.o): Remove rule for obsolete file. (dbxread.o,coffread.o,mipsread.o): Use ${srcdir} explicitly. Run down a problem that manifested by printing the wrong function name in stack traces of read_ofile_symtab. Turned out that the problem was the SunOS 4.1.1 (and previous) C compiler outputs the LBRAC symbol with an address in the *data* segment, which blew our binary search through the blocks. * dbxread.c: Use the complain() facility consistently to bitch about problems in the symbol file we are reading. (finish_block): Add code to check the nesting of the blocks; complain and Procrust them to fit if wrong. (make_blockvector): Check the order of the blocks, complain [but don't cope] if wrong. (process_one_symbol): ifndef SUN_FIXED_LBRAC_BUG, check LBRAC symbols to be sure their PC value is greater than the last SLINE (line number) symbol we've seen, complaining and adopting the SLINE PC value if wrong. * symfile.h (struct complaint, complaint_root, complain, clear_complaints): Add. * symfile.c (complain, complaint_root, clear_complaints): Add facility to deal with non-fatal complaints and to regularize their suppression. (symbol_file_add): Clear complaint counters to allow new complaints. (initialize_symfile): Add 'set complaints' and 'show complaints'. * dbxread.c (dbx_symfile_read): Remember the address and size of the string table for the main symbol file, so we won't read it more than once. (dbx_psymtab_to_symtab): Fix the check for main symbol file, to avoid reading the string table yet again. Lint. (throughout): Improve filtered output, including word wrap. (read_range_type): Improve Bothner's fix to handle other types too. * utils.c: Improve line wrap implementation. Handle unlimited width by making chars_per_line unsigned. (puts_filtered): New, easy, function. * defs.h (puts_filtered): add. * mipsread.c (compare_symbols, sort_symtab): Remove these fns, call the identical sort_symtab_syms() in symfile.c instead. * expread.y: Suggest the `file' command rather than `symbol-file'. * command.h (enum var_types): Add zinteger for seroable unsigned integer. * command.c (do_setshow_command): Handle var_zinteger. Restructure nested if's into a switch. * breakpoint.c (bpstat_print): If bpstat "print" flag is not set, we did not stop because of a breakpoint (it must have been for some other reason, like a "stepi"), so don't print anything. * symtab.c: Include all the time. Now that BFD doesn't include , old SunOS's require it for . Sat Feb 2 10:39:15 1991 Per Bothner (bothner@cs.wisc.edu) A test port of gdb-3.92.6 to the Sony NEWS. * Makefile.dist Don't normally link in remote- or vx stuff. Some of it doesn't compile, and it wastes space for 99% of the users. Remove reference to no-longer-used HAVE_VPRINTF. Fixed BFD_DEP typo to BFD_DIR. * dbxread.c Fix cast in arg to bfd_h_getlong. Make char *prefix be const. Fix how certain range types are mapped into builtin unsigned int types. * infrun.c Remove 2 #includes. They cause errors (on Sony, at least), and aren't needed (they wern't in earlier versions). * printcmd.c print_address_symbolic should never demangle labels (since it prints *assembler-level* labels). [This was superseded by the change to printcmd below.] * utils.c Add some "volatile" return types to avoid warnings. If MISSING_VPRINTF add vprintf function and not just macro (since vprintf is used in printcmd.c). * valprint.c Unless __GNUC__, use obstack_grow instead of obstack_ptr_grow. (The latter isn't grokked by some PCC-based compilers.) [This change is in abeyance, we prefer to fix obstack_ptr_grow.] Make chunk size of dont_print_obstack 32*4 instead of default 4096. * nindy-share/coffstrip.c Added some forward declarations (otherwise, gcc complains about implicit extern redefined as static). Sun Jan 20 02:38:19 1991 John Gilmore (gnu at cygint.cygnus.com) Changes inspired by Per Bothner: * printcmd.c (print_address_symbolic): Take additional parameter specifying whether to demangle. (print_address): Pass in asm_demangle to control demangling. (print_address_demangle): New fn, takes explicit arg to control demangling. * utils.c: Add new vars demangle and asm_demangle, and let them be set and shown. (fputs_demangled): If !demangle, just print the argument. (fprint_symbol): If !demangle, just print raw symbol. * valprint.c (val_print): Call print_address_demangle rather than print_address, to cause demangling to depend on the global rather than assembler-level demangling setting. * WHATS.NEW, gdb.texinfo: Document. * main.c (show_command): Show all settings if no arg. (initialize_main): Make "info set" the same as naked "show". * command.c (cmd_show_list): Handle prefix commands in the list, and print the name of the setting as well as its English description and value. Allow gdb functions to specify where a line should wrap if it exceeds the size of a terminal line. Use it to make the output prettier. * utils.c (set_screen_width_command): New fn, mallocs a buffer of the right size when screen width changes. (set_screensize_command, screensize_info): Remove #if 0'd fns. (wrap_here): New fn, indicates a point in the output where we should wrap the line rather than just letting it overflow at a random place. (fputs_filtered): Implement wrapping. (n_spaces): New fn, returns a pointer to N spaces. (print_spaces_filtered): Use n_spaces. * defs.h (n_spaces): Declare. * stack.c (print_frame_info): Wrap with 4-space indent after fn name and before filename and line number. * printcmd.c (print_frame_args): Wrap with 4-space indent before each argument name is printed. * valprint.c (value_print): Wrap with no indentation before each repetition. (val_print_fields): Wrap with indentation relative to nesting level before each field name. (val_print): Wrap with nesting indentation before array elements. * command.c (do_setshow_command): Avoid extra newlines, wrap with 4-space indent around values printed, end with period. * WHATS.NEW, gdb.texinfo, gdb-int.texinfo: Document. * breakpoint.c (breakpoint_1): Implement addressprint for "info breakpoints" display. Change file name and line number format to " at file:nnn" rather than " (file line nnn)". * gdb.texinfo: Document. Fri Jan 18 07:21:25 1991 John Gilmore (gnu at cygint.cygnus.com) Frozen for gdb-3.92.6 release. README, WHATS.NEW: Update for 3.92.6 release. tconfig/{altos, i386v, i386v32, m88k, umax}: Eliminate coffread.o from configs since it is now built by default. tconfig/{3b1, altosgas, arm, convex, hp300bsd, hp300hpux, i386v-g, i386v32-g, isi, merlin, news, news1000, np1, pn, pyramid, symmetry, vax, vxworks68}: Eliminate dbxread.o from configs since it is now built by default. Makefile.dist: Update for release 3.92.6. Handle files that have been moved to ../include, ../getopt, or ../bfd. Add saber.suppress and tests directory. Add config.status to the release (it will say "none"). coredep.c: Minor formatting fixes. These changes were made in early December but only checked in now: * nindy-share/Onindy.c, nindy-share/coffstrip.c, nindy-share/nindy.c: lint * nindy-share/nindy.c (ninStopWhy): Don't byteswap the register values coming back from the target; we store values in target byte order everywhere. Wed Jan 16 19:01:37 1991 John Gilmore (gnu at cygint.cygnus.com) * am29k-opcode.h, am29k-pinsn.c: Add 29050 opcodes. * valprint.c (cplus_val_print, val_print_fields): New functions, which print C++ objects. They conspire to avoid printing a virtual base class more than once, following all the twists and turns of C++ virtual base rules. (val_print): Call the above rather than do it by hand. * symfile.c (symbol_file_add): Only reset symfile_mtime for main symbol file, not for added files like shared libs. This really needs to be generalized to a timestamp per file. * core.c (cleanup_core): Avoid coredump if no core file. * config.gdb: Accept -host or -target in place of +host or +target. * coffread.c (find_linenos): Avoid desupported BFD interface to line numbers. We still read them manually rather than using BFD's "generic" features. * gdbrc.tex, threecol.tex: Add GDB reference card and its formatting code. Makefile.dist: Add refcard to OTHERS list for creating tar files. * Makefile.dist: Eliminate use of $< in explicit targets. * readline/Makefile: Use $< rather than $*.c, which does not include the VPATH in GNU Make. * tconfig/i960-bout, tconfig/i960-coff: These are identical copies of tconfig/i960, added for global configuration compatability. All i960 versions can read both coff and b.out. * tm-88k.h: Fix multiline macro that lacked \'s. Remove COFF_FORMAT and COFF_CHECK_X_ZEROES since these are now handled automaticaly. * TODO: Think of more things to do. Wed Jan 2 19:09:29 1991 John Gilmore (gnu at spiff.cygnus.com) tconfig/{am29k,i960,sun2*,sun3*,sun4*}: Eliminate config of sdb versus dbx debug symbols. Add kludge for 68881 80-bit to 64-bit float conversion. tconfig/sun4, tconfig/sun3, xconfig/sun4, xconfig/sun3: Make equivalent to sun?os4 so global config works. Wed Jan 2 18:20:51 1991 John Gilmore (gnu at spiff.cygnus.com) Fix from Eberhard Mattes * main.c: Only declare linesize once; declare pagesize not at all, since it is never used. (main): Clear newly allocated line before it is used. Fri Dec 28 00:13:42 1990 John Gilmore (gnu at cygint) Further stabilization for the Intel 960. * Makefile.dist: Parameterize the location of the "include" and "bfd" directories, as well as "getopt". Add symfile.c. Link in both dbxread and coffread. Fix up "make depend" to rewack the locations of include, bfd, and getopt in its output. * README: Document moving include files, improve some of the other doc. * coffread.c: Move common code out to symfile.c. Change symbol_file_command style interface to use new *_symfile_init and *_symfile_read interface under BFD. Use BFD internal info to locate line table, symbols, etc. * core.c (core_fetch_registers): Rename to get_core_registers to avoid confusion with fetch_core_registers. (register_addr): Move to coredep.c, which is already machine dependent. This leaves core.c pretty clean of dependencies. * coredep.c (register_addr): Accept this routine from core.c. * dbxread.c: Move common code (with coffread.c, etc) into new symfile.c. Each psymtab now contains a pointer to the format-dependent function that knows how to read it in. Make some things static. (dbx_psymtab_to_symtab): Renamed from psymtab_to_symtab_2. (process_one_symbol): Add code to complain about a "compiler bug we muzzle here", if we actually see it. * eval.c (evaluate_subexp): Insert missing "break" statements in code that determines whether a variable is an lvalue in memory, register, or whatever. I detected this via a compiler bug in which it *almost* mashed out the whole switch statement. * gdb-int.texinfo: Add minor sections on configuring gdb for release, and about the README file. * infcmd.c (registers_info): Fix formatting somewhat. Still not as pretty as before, but it handles byte swapping. * remote-nindy.c: If data cache routines are interrupted while waiting for the remote end, be sure that any uninitialized cache blocks are on the free list, not on the valid list! * symfile.h: Flesh out this header file with all the various routines and variables that have been merged in from dbxread.c coffread.c, and symtab.c to symfile.c. * symfile.c: New file, containing code common to dbxread.c, coffread.c, and some code from symtab.c. All generic code for reading symbol files should be in here now. (unrecord_misc_function): Remove unused function. * symtab.h: Remove file-reading things to symfile.h. * symtab.c: Remove file-reading things to symfile.c. * tm-i960.h: Fix FRAME_CHAIN types; define PRINT_RANDOM_SIGNAL to decode i960 fault types. * target.h, remote.c, remote-eb.c, remote-vx.c, remote-nindy.c, target.c: Change type of the "resume" function from int to void, since its result was never used. Sat Dec 22 02:51:40 1990 John Gilmore (gnu at cygint) * main.c: Replace "stupid" with "caution"; you now "set caution on or off". * printcmd.c (print_scalar_formatted): Fix typo in 'g' format * infcmd.c (do_registers_info): Call val_print to deal with the byte order of the registers being printed. FIXME, this makes the formatting of the output uglier. * infcmd.c (wait_for_inferior): If PRINT_RANDOM_SIGNAL is defined, call it for signals the debugger doesn't itself use. The i960 uses this for more detailed fault information. * remote.c (remote_open): If arg is null, print help rather than dumping core. * sparc-xdep.c (register_valid): Avoid declaring size, since various modules will think of various sizes depending on the architecture of their tm-file. FIXME, we need protection against actually entering one of those modules, which would clobber storage if not for the target architecture compiled into gdb. * stack.c (up_command, down_command): Always print the frame you arrive at. (up_silently_command, down_silently_command): New commands for use in scripts. * i960-pinsn.c (reg), i960-tdep.c: Lint. * i960-tdep.c (i960_frame_chain_valid): Lookup_symbol now takes more parameters than it used to. * findvar.c (registers): Increase slop to 256 bytes, which should protect us against even most RISC machines with large register sets. (locate_var_value): Move declaration inside related ifdef. * remote-nindy.c (): Use TIOCSETN rather than TIOCSETP throughout, to avoid throwing away buffered input from the board. (nindy_wait): Supply_register takes addr_of_value, not value. (i960_print_fault): Renamed from i80960_fault. (nindy_fetch_registers): Avoid have_regs stuff, just get them. (nindy_store_registers): Avoid regs_changed stuff, just stuff them. (nindy_create_inferior): Don't bother to write PC_REGNUM since we can set the PC in the call to proceed(). Unpush nindy_ops before pushing it on top, to avoid message to user. Eliminate commentary from Unix machines that just misleads here. (reset_command): Fix error message to suggest target command. Wed Dec 19 11:03:56 1990 John Gilmore (gnu at cygint) Release 3.92.5 as frozen. Stabilize the merged release...with help from lint, Saber C, gcc -W, etc. Everywhere: Add include files needed to declare return types of functions called. * gdb.texinfo: Roland Pesch is documenting gdb, glory be! * breakpoint.h: Add undeclared breakpoint functions, and some functions for display handling since I couldn't think of a better .h to put them in. * breakpoint.c (insert_breakpoints): Make code for disabling shared library bkpts more likely to work. It's used when we rerun a program and stop before the shared library has been mapped in. (breakpoint_cond_eval, bpstat_stop_status): Pass arg as int, cast from pointer, so it squeezes through catch_errors. (bpstat_stop_status): Fix logic broken some time ago. We now always create a bpstat if the stop address matches a breakpoint, even if we don't stop there -- just like the old code used to do before I got my fingers into it (sigh). (breakpoint_1): Print "ignore count" after "stop only if" condition, since that's how it actually works. (mention): Handle watchpoints as well as breakpoints. (watch_command): use set_raw_breakpoint and mention to do most of the work (and initialize all the fields!). Only pass one arg to parse_c_expression, since that's all it takes. * command.c (not_just_help_class_command): Rename arg to args since we ignore "unused argument" warnings on vars named "args". inflow.c (child_terminal_info): ditto. infptrace.c (kill_inferior): ditto main.c (catch_errors, version_info, quit_command, pwd_command, source_command, dump_me_command, editing_info, set_history_size_command, set_history, show_history, set_verbose): ditto stack.c (locals_info): ditto target.c (target_files_info): ditto valprint.c (set_input_radix, set_output_radix): ditto * core.c: Remove old variables for handling core and exec file sections (data_start, data_end, stack_start, stack_end, reg_stack_start, reg_stack_end, reg_stack_offset, text_start, text_end, exec_data_start, exec_data_end, text_offset, exec_data_offset, data_offset, stack_offset). They're superseded the more general build_section_table and xfer_memory. (get_exec_file): Mention the `file' command. (read_memory_check): Rename to memory_error, and only call it in the case of an actual error. (read_memory, write_memory): call memory_error. (core_fetch_registers): Register section name is ".reg". coredep.c: Remove a bunch of crud now that all this file does is pull the registers out of a core file. (fetch_core_registers): Rewrite to actually work, I hope. dbxread.c: Use a.out.gnu.h, not system a.out, now. Replace index() with strchr(). Remove all the pre-BFD macro definitions for accessing the symbol file. (struct dbx_symfile_info): Encapsulate the information that dbx_symfile_init needs to pass to dbx_symfile_read in this struct. (dbx_new_init, dbx_symfile_init, dbx_symfile_read, dbx_symfile_discard): Rearrange symbol file reading to divide the format-specific part from the format-independent part, leaving the format-independent part such as file name expansion and opening in symtab.c. This replaces partial_symbol_file_open and partial_symbol_file_read. Symbol_file_read, add_file, add_file_target_command, add_file_addr_command move to symtab.c. Pass an explicit "mainline" flag for when reading the main symbol table, rather than relying on the offset address to be zero or nonzero. (dbx_symfile_read): Don't allow void *'s to be printed as typedefs. (SWAP_SYMBOL): Use bfd routines to byte-swap the symbols. (ADD_PSYMBOL_TO_LIST): Make the "function call rather than macro" debug version really work. (read_dbx_symtab): Remove unref'd parameter inclink. Avoid swapping N_SLINE symbols, for speed. Merge N_TEXT!N_EXT case with the other external symbol definitions' case. Add comments. (start_psymtab): Allocate the symfile name in the psymtab on the psymbol_obstack, rather than using the caller's storage. (end_psymtab): Only allocate a dependencies list if there are more than zero. (psymtab_to_symtab_2): Use BFD when reopening file to read its symbols for real. (read_struct_type): Add FIXME comments where it needs work for C++ bogosity. (read_huge_number): Add FIXME about overflows. (read_range_type): Add FIXME about comparing a long to 1<<32. * coffread.c: Minor changes to move things closer to the new regime with symtab.c and dbxread.c Major work is still needed here. * exec.c (exec_file_command): Remove old variables (see core.c above). (xfer_memory): If memory transfer is right at the end of a section, don't lose. * findvar.c (get_saved_register): If value is in a real register, LVAL is lval_register, not lval_memory. frame.h: Declare print_sel_frame and record_selected_frame. gdb-int.texinfo: New file, for GDB internals documentation. Very simple, unformatted doc of cleanups is there for now. gdbcore.h: Remove obsolete variables that described a.out section addresses and offsets. (See core.c above.) Declare fetch_core_registers and registers_fetched. getopt.c: Declare char *alloca(); even on SPARC. infcmd.c (run_command): Call target_kill rather than kill_inferior. (step_command, next_command, stepi_command, nexti_command): Declare from_tty parameter even though we don't use it. (run_stack_dummy): argument BUFFER is a char array, not a pointer to REGISTER_TYPE. (finish_command): using_struct_return needed a value *, not a struct symbol *. * infptrace.c (child_xfer_memory): To avoid dependency on where sections are in memory, try PT_WRITE_D and if that fails, try PT_WRITE_I. Most Unixes don't care which you use. * infrun.c (step_resume_break_shadow): Change to array to match other breakpoint shadow storage. (clear_proceed_status): Pass address of bpstat to bpstat_clear, not the bpstat itself. (child_create_inferior): FIXME comment about if the child exits. (start_inferior): Remove old function. (child_open): Use target_kill rather than kill_inferior. (wait_for_inferior): Ditto. (insert_step_breakpoint, remote_step_breakpoint): Use new step_resume_break_shadow. * inftarg.c (child_wait): If all child processes die, pretend that the one being waited for exited with signal 42. * main.c (command_line_input): When scanning for comments, don't coredump on unclosed quotes. (quit_command): Use target_kill rther than kill_inferior. (_initialize_main): Rename class_user from "user" to "user-defined". * printcmd.c (print_command_1): Initialize "fmt" if no format is specified by the user. (print_frame_args): Only add to args_printed if we are actually fetching args from the stack (avoiding undefined arg_size). (_initialize_printcmd): Remove bogus \{ from string. * remote-eb.c (eb_open): Avoid coredump on no argument. * remote-nindy.c: Bring out of Intel environment into new target environment. Remove all conditional compilation on I80960. Massive hacking throughout. (nindy_xfer_inferior_memory): New routine stolen from infptrace.c. (nindy_create_inferior): New routine pieced together, probably not quite working yet. (nindy_ops): New target_ops struct for nindy. * remote-vx.c: Use write_memory rather than target_write_memory to get error checking. (vx_add_file_command, vx_open): Use symbol_file_add rather than add_file. (vx_create_inferior): Use target_terminal_ours... * signame.c (_initialize_signame): Always initialize, since we need the table for things other than psignal. * solib.c (solib_add): Use symbol_file_add, not add_file. (solib_address): Return boolean result rather than struct pointer which nobody else knows the type of. * sparc-tdep.c, valops.c: Use write_memory rather than target_write_memory, to get error checking. * stack.c (locals_info, catch_info, args_info, get_selected_block, frame_command, up_command): Use target_has_stack, rather than have_inferior_p or have_core_file_p. * sun3-xdep.c (fetch_core_registers): Rewrite for new BFD regime. * symfile.h: New file, defining the interface between the generic and object-file-specific symbol reading code. * symtab.c: Move generic symbol-reading interface to symtab.c, from dbxread.c, coffread.c, mipsread.c, etc. Add symtab_fns table to map BFD targets to symbol-reading modules in GDB. Change index to strchr. (lookup_struct_elt_type): Use error() rather than hand-made simulations thereof. (lookup_partial_symbol): Speedup slightly when length == 0. (symbol_file_add): New function. (symbol_file_command): Call it. (symfile_open, symfile_init): New function. (add_file_target_command, add_file_addr_command): moved from dbxread.c. * target.c (target_command): use target_kill. * target.h (target_files_info): Don't declare, never called from outside. * tm-sun2.h, tm-sun3.h (STACK_END_ADDR): Use system include files to determine stack end address. * valarith.c (value_x_binop, value_x_unop): Change error message to be more useful. Pass proper argument to value_struct_elt. * valops.c (value_assign): FIXME comment that long long bitfields will break here. * Makefile.dist: Add symfile.h, remote-nindy.c, remote-eb.c. Update `make saber_gdb' to work better. * TODO: A woman's work is never done. * cplus-dem.c, environ.c, inferior.h, infrun.c, inftarg.c, main.c, obstack.c, printcmd.c, remote-eb.c, remote-nindy.c, remote-vx.c, remote.c, solib.c, source.c, sparc-pinsn.c, sparc-tdep.c, sparc-xdep.c, symmisc.c, symtab.c, symtab.h target.c, terminal.h, tm-sparc.h, tm-sunos.h, utils.c, valops.c, valprint.c, exec.c: Lint. Wed Dec 12 23:44:15 1990 John Gilmore (gnu at cygnus.com) Continuing Intel 960 port merge of GDB. * Makefile.dist: Merge i960 "nindy-share" files. Rename malloc.h to gmalloc.h to avoid name conflicts in /usr/include. Don't ship gdb.dvi in tar file. Link gdb with init.o, not init.c. Wack over "make depend" so it handles files in subdirectories vx-share, nindy-share, bfd, and in the current directory. * blockframe.c (get_prev_frame_info): Remove fatal error if stack not defined. * core.c (core_open, core_detach): New functions that handle the old "core-file" command as "target core" and "detach" instead. (core_file_command): Call them. (core_xfer_memory): Use common routine xfer_memory. * dbxread.c: Include a.out.gnu.h, not system a.out.h. dbxread now uses bfd for everything but symbol reading itself. BFD internals are used to drag out the relevant file offsets. (partial_symbol_file_open): Change args all around for BFD. * symtab.c: Rename "value" to "val" everywhere, so we can #include "value.h". (symbol_file_command): New command, moved from dbxread.c and coffread.c. It uses BFD to read the file, then vectors based on its type, to dbx or coff symbol readers. * symtab.h: Extern a few vars for symbol_file_command. * target.h: Breakpoint takes a char * save area, not a char **. * valprint.c (val_print): When unpacking bitfields, offset the address in gdb of the value, if it is declared with a shorter type. Remove the last "runtime kludge test" of host byte order. * utils.c: Remove old my_bfd_read routine. * stack.c (frame_info): Use target_has_stack. Print program counter register's actual name rather than "pc", since it's called the "ip" (instruction pointer) on the i960 (sigh). * target.c (target_command): Add command for selecting a target type and calling its open routine. This is used for initiating communication with a particular target, in a generic way. * tm-i960.h: Update for modern gdb. Remove semicolons from various macros. Handle reading struct return convention, and error-out attempts to return structs with the "return" command. Be sure gdb doesn't think we know how to call functions in the inferior. * i960-tdep.c: Rename FRAME_CHAIN_VALID and FRAME_FIND_SAVED_REGS to i960_xxx in lower case. (arg_address): Circumvent errors due to LOC_ARG_BLOCK not being defined yet. * remote.c (remote_open): Call start_remote to initialize wait_for_inferior during open. (remote_xfer_inferior_memory): Return length written rather than errno value. * remote-vx.c (target_command -> vx_open): Use new generic target command. * remote-eb.c, inftarg.c, exec.c: ditto. * infrun.c: Fix comments. (attach_program -> child_open): Use new generic target command. (wait_for_inferior): Clear saved register values before target_wait, so target_wait can set some of them if convenient. * infptrace.c (fetch_inferior_registers, store_inferior_registers): Return success indicator, not void. (child_xfer_memory): Avoid fetching initial word if we'll overwrite it anyway. * infcmd.c (attach_command): Use new generic target open routine. (_initialize_infcmd): Update doc on attach and detach commands. (do_registers_info): Merge in a byte-order problem as a FIXME comment. * findvar.c (find_saved_register): Avoid problem in current frame. (read_relative_register): Ditto. (write_register): Convert byte order on the way out. * exec.c (file_command): Add. (add_to_section_table, exec_command): Use new bfd_map_over_sections. (xfer_memory): Common function between core_xfer_memory and exec_xfer_memory. (exec_xfer_memory): Use it. * pn-opcode.h: Document that a "PN" is a Gould PowerNode. * breakpoint.c, breakpoint.h, symtab.h, value.h, frame.h, utils.c, valops.c, stack.c, target.c, sparc-xdep.c, source.c, printcmd.c, infcmd.c, i960-pinsn.c, eval.c, defs.h: lint and gcc -Wall. Sun Dec 2 16:45:06 1990 John Gilmore (gnu at cygnus.com) Merge Intel 960 port of gdb, continuing... * dbxread.c (partial_symbol_file_open, partial_symbol_file_read, symbol_file_command): Pass from_tty arg to hush 'em up. * coffread.c (symbol_file_command): Avoid output if from_tty != 1. Add magic numbers for 960 COFF format. Fri Nov 30 09:18:20 1990 John Gilmore (gnu at cygnus.com) Merge Intel 960 port of gdb, from Intel "1.2" release. CHANGE_LOG entries from their port, which was based on gdb+-2.8.0: Thu Sep 6 11:02:22 PDT 1990 Remove temp file if download is interrupted. Wed Aug 1 09:08:33 PDT 1990 Now uses binary protocol to talk to NINDY. Old hex protocol (NINDY 2.13 and older) supported with -O switch. Times out after 5 seconds when trying to talk to NINDY. Tue May 29 12:54:49 PDT 1990 Added variable baud rate (-b switch). Source code reorganization. Thu Apr 26 11:09:55 PDT 1990 More cleanup of batch mode; specifically, execute "-s", "-e", and "-se" switches as soon as they are encountered on the invocation line. Fri Apr 20 13:47:15 PDT 1990 Add -brk switch. Thu Apr 19 09:54:28 PDT 1990 Add 'reset' command. Wed Apr 18 09:48:07 PDT 1990 After opening remote tty, wait for 1 second to go by without input from it before trying to talk to NINDY (fixes problems with the Heurikon HK80/V960E). Mon Apr 4 16:33:05 PDT 1990 Some output was not being suppressed in 'batch' mode. Thu Mar 22 15:31:11 PST 1990 Ask user if old symbol table should be deleted when new file is downloaded. Allow user to run a program downloaded before gdb960 was brought up. Correct "exec-file" help message for i80960 context. Correct bug in calculating user space address: could occasionally corrupt user program. Make sure to zero low-order bits in rip's because of bug in 960CA A-step part: could cause operation faults when "next"ing across a function call. Correct bug that made it impossible to get source line numbers for code loaded at addresses higher than 0x7fffffff. Wed Jan 10 12:43:22 PST 1990 Open remote tty for exclusive use. Fri Jan 5 12:14:42 PST 1990 Correct disassembly (CA manual was right after all): opcode for sysctl is 0x659 Mon Oct 23 12:03:04 PDT 1989 Use G960BASE and G960BIN environment variables to find 'sx' utility. Mon Oct 16 14:15:09 PDT 1989 "sfr0"-"sfr31" should have been named "sf0"-"sf31" Mon Oct 2 15:56:31 PDT 1989 Added 960CA disassembly support. To simplify maintenance: - eliminated use of symblic links on pinsn.c: use i960-pinsn.c directly instead. - eliminated opcode.h: incorporates tables into i960-pinsn.c - moved 960-specific routines from i960-pinsn.c to i960-md.c - made disassembly interface identical to that in gdmp960. Wed Nov 28 21:32:48 1990 John Gilmore (gnu at cygint) * target.h: Allow targets to stack. Add target_has_memory, _registers, etc. Restructure memory access and "info files" to walk the target stack. * exec.c, core.c, inftarg.c, remote.c, remote-vx.c, remote-eb.c, target.c: Change tables to match target.h. * inflow.c (child_mourn_inferior): pop child_ops. (generic_mourn_inferior): Use new has_stack flag. * infptrace.c (child_xfer_memory): New memory regime. * inftarg.c (child_files_info): New "info files" regime. * remote-eb.c: New memory regime, new info files. * remote-vx.c: New memory regime, new info files. Now use separate targets for VxWorks attachment to machine, and actually running a process under VxWorks, since one has stack & execution & regs and the other doesn't. * remote.c: New memory regime, new info files. * sparc-xdep.c (fetch_core-registers): New memory regime. * target.c: New routines and support for stacked targets, new memory regime, new info files regime. Generalize section handling for an arbitrary number of sections, including use of the new BFD (binary file) library. * gdbcore.h: Add struct section_table. * exec.c (build_section_table): Iterate all sections and record what gdb needs to know about them. (exec_command): Use it. (exec_xfer_memory): Use the table. (exec_files_info): Print the table. * core.c (core_file_command, core_xfer_memory, core_files_info): Likewise. * source.c (find_source_lines): Use bfd_get_mtime. * dbxread.c: Quick changes to make it compile with new BFD. * utils.c (error): Avoid using bfd_error in generic routines. * core.c (core_fetch_registers): Get from the ".regs" section of the BFD core file. * sparc-xdep.c (fetch_core_registers): Use the .regs info. * inferior.h (attach_flag): Export. * infcmd.c (run_command): use new target_create_inferior. * infrun.c (child_create_inferior): Don't return result. * Makefile.dist (VERSION): 3.91.4. Fri Nov 23 28:15:38 1990 John Gilmore (gnu at cygint) * breakpoint.c (bpstat_num): Handle breakpoints which have since been deleted, such as temporary breakpoints. infcmd.c (program_info): ditto. * core.c (core_file_command): Display the frame where the core dump occurred. * main.c: lint. * remote-vx.c (target_command): Merge in target command from targ-vx.c. A few other cleanups. * TODO, Projects: Lots more stuff to do... Fri Nov 23 18:15:38 1990 John Gilmore (gnu at cygint) Massive changes to wall off the remote-debugging interface behind a function vector. The port to handle VxWorks targets is also part of this. All files: Replace references to renamed functions, remove references to remote_debugging, remove references to have_include_file, have_core_file in favor of target_has_stack, target_has_memory, etc. * Modularize the breakpoint interface. breakpoint.h (BREAKPOINT_MAX): New define sets max length of a breakpoint instruction. breakpoint.c: struct breakpoint's shadow_contents now sized as BREAKPOINT_MAX. (insert_breakpoints): Vector to target to install breakpoints. (remove_breakpoints): Vector to target here too. Remove REMOTE_SA_SPARC kludges and other remote_debugging. sparc-tdep.c (single_step): Use new breakpoint interface for the single-step breakpoints. mem-break.c (memory_insert_breakpoint, memory_remove_breakpoint): New file, contains routines to insert and remove breakpoints by reading out the old contents and later replacing them. This is how ptrace breakpoints work, and many remote systems as well. * tm-vxworks68.h: New config file, overrides a few things for Wind River's preferences. * target.h: New file, for transfer vector used to talk to the inferior (child, attached, core, exec, remote, etc). All accesses to the thing being debugged should come through these vectors. target.c: New file, routines to handle transfer vector. (various files): Add transfer vectors XXX_ops for the various targets and pseudo-targets (core files, etc) we support. * breakpoint.c (bpstat_stop_status): Further explorations of watchpoints and why things don't work all the time. (bpstat_alloc): New fn to allocate a bpstat and chain it. * config.gdb: Only add "source ${srcdir}/.gdbinit" to the local gdbinit if it doesn't already have it. * core.c (core_ops): add and install. Allow core debugging without exec file. * dbxread.c (free_and_init_header_files): Merge two fns. (end_symtab): Free named symbol table when a new version comes in. (read_dbx_symtab): Relocate all kinds of symbols with base address. First step toward handling different text, data, bss reloc. (add_file_addr_command): Renamed add_file_command. (add_file_command): Vector to remote handler. Add "load" as an alias for "add-file" command. * defs.h: Allow "volatile" to be used in non-ANSI; use it for non-returning functions. * exec.c: Add exec_ops, and push it as a target when an exec file is specified. * infcmd.c (run_command): Pass executable file name and arg list separately when starting an inferior. Permit "run" when no exec file is specified, for VxWorks. (detach_command): Move to child_detach in inftarg.c. * inftarg.c: New file. Unix-child-specific routines, and the child_ops structure. * inferior.h (registers): Export "registers" as the way for target dependent register handlers to find gdb's local copy of the registers. Rename "stop_after_attach" to "stop_soon_quietly" since it is now used by places that want wait_for_inferior to handle the grunge but want to see every trap from the inferior. * inflow.c (create_inferior): Pull out, and merge into infrun.c. Eliminate remote_debugging hooks in terminal handling. * infrun.c: Replace start_inferior with child_create_inferior. Move all the hair of Unix shells and ptrace idiosyncracies into child_create_inferior, so remote handlers don't have to deal. Remove running_in_shell. Rename stop_after_attach to stop_soon_quietly, and use it in a few other places where we want to just call wait_for_inferior and get control back on the first trap. trap_expected now never takes a value > 1. (init_wait_for_inferior): Initialize static vars when a new process is created. main.c (gdbinit): Add new hook for .gdbinit file name, let it be overridden by config files as GDBINIT_FILENAME. (DEFAULT_PROMPT): Add new hook for overriding (gdb) prompt. Both of these are used for VxWorks gdb. mcheck.c: rename include file "gmalloc.c" to avoid problems with system include file "malloc.c". param-no-tm.h: New include file, same as param.h but does not include the default "tm.h" file. This is used in files where the target is known, e.g. remote-eb.c or sparc-xdep.c. param.h: Now just a shell that includes tm.h and param-no-tm.h. remote-vx.c: New file, VxWorks remote debugging support. Uses RPC routines that are shared with the target system, in directory ${srcdir}/vx-share. remote.c: Vectorize remote interface. source.c: Globalize source_path, and make an alias "l" for "list" since we now have the "load" command. sparc-xdep.c: Use new param-no-tm.h. symmisc.c (free_named_symtab): Add new function from Wind River. However, ifdef it out for now while we think about what it should really be doing. tm-sun3.h, xm-sparc.h, xm-sun3.h, xm-symmetry.h: Move PREPARE_TO_STORE to the xm- file, and change its name to CHILD_PREPARE_TO_STORE, since non-Unix-children handle this with their own code in the target transfer vector. Makefile.dist: Roll version to 3.92.3. Add vx-share stuff to source and target lists. Add vx-share to default list of include directories. Add new files to src and target lists: mem-break, target, inftarg, remote-eb, remote-vx, targ-vx. Be sure the ${srcdir} versions of munch and createtags are used. * valops.c (find_function_addr): Split out of call_function. (call_function_by_hand): Rename call_function; this function calls functions in the target by laboriously patching the target word-by-word with the right stack, args, regs, etc. Mon Nov 5 17:29:10 1990 John Gilmore (gnu at cygint) Handle AMD 29000 a bit better. * remote-eb.c (readchar): Mask received char log to make it readable. (remote_start): Pass arguments down to executing program. Make startaddr unsigned. infrun.c (start_inferior): Accept args, pass them to remote_start. infcmd.c (run_command): Pass args down to start_inferior. * tconfig/am29k-aout, tconfig/am29k-coff: New files specifying the target object file format. tm-29k.h: Pay heed to COFF_ENCAPSULATE. * am29k-pinsn.c (print_insn): Print 0x on hex numbers in disassembly. am29k-tdep.c (examine_prologue): Better checking of function prefixes. Sun Oct 7 18:20:45 1990 John Gilmore (gnu at cygint) * Makefile.dist (VERSION): Roll version to 3.91.9 and freeze. * TODO: We did a few things, we have more to do though. * xm-sparc.h (CLEAR_DEFERRED_STORES): Define. * inflow.c (inferior_died): Clear deferred stores. * Debug problems with dummy frames and calls to the inferior. * tm-sparc.h (PUSH_DUMMY_FRAME, POP_FRAME): Move to sparc-tdep.c. * sparc-tdep.c (do_restore_insn): Simplify. (sparc_frame_find_saved_regs): Simplify and fix what we find. (sparc_push_dummy_frame): Simplify and fix what we push. (sparc_pop_frame): Slightly more hair here, deciding whether we are restoring a saved PC or returning to a return address in %i7. * sparc-xdep.c (read_inferior_registers): Debug if valid reg is read. * utils.c (xmalloc, xrealloc): Return type depends on __STDC__. * symtab.h (xmalloc): ditto, for obstack_chunk_alloc. * obstack.h (chunkfun): ditto. * defs.h (xmalloc, xrealloc): ditto * utils.c (quit): Grab the terminal from the child if necessary. * inflow.c (term_status_command): Rename to term_info, change to "info terminal". * sparc-pinsn.c (print_insn): Disassembly prefers real instructions. (is_delayed_branch): Speed up. * sparc-opcode.h: Add ALIAS bit to aliases. Fix up opcode tables. Still missing some float ops, and needs testing. * Support for input and output radixes other than base 10 * defs.h (input_radix, output_radix): Declare. * expread.y (yyparse, parse_number): Handle changes of input radix, and ambiguous names-or-numbers in radixes >10. * printcmd.c (print_scalar_formatted): Print formatted hex numbers in varying column widths. * valprint.c (val_print): Use output_format to print scalar ints. (set_input_radix, set_output_radix, set_radix): Create. (set_output_radix): Set output_format from output_radix. (_initialize_valprint): add `set radix' but leave the others off. * main.c (execute_command): Let stupid questions be turned off. (_initialize_main): Handle "set stupidity", etc. * main.c, inflow.c, inferior.h, frame.h, command.c, defs.h, sparc-pinsn.c, sparc-xdep.c, value.h, valops.c, values.c: Lint. Tue Oct 2 11:20:02 1990 John Gilmore (gnu at cygint) * TODO, Makefile.dist, ChangeLog: Freeze for 3.91.8 release. bfd stuff is still screwed up, but with some manual work, it compiles. * breakpoint.c (bpstat_do_actions): Start over if a command proceeds the inferior, since the inferior will have stopped and will need to have its new stop-actions taken care of. * dbxread.c (read_struct_type): Expression gives Sun3 4.0.3 compiler fits, simplify it. * gdb.texinfo (directory command): Doc new dir command. source.c (directory_command): "dir" now puts things on the front of the path, moves dups up front, and handles multiple names on the command line, inserting each one in order. It also blows away cached line and full_filename info. * stack.c (backtrace_command): Skip "more stack frames follow" unless interactive. * Change #ifndef HAVE_VPRINTF to #define MISSING_VPRINTF in xm-convex.h, xm-hp300bsd.h, xm-isi.h, xm-merlin.h, xm-news.h, xm-np1.h, xm-pn.h, xm-pyr.h, xm-symmetry.h, xm-umax.h, xm-vax.h. The only odd one was Gould NP1, which had defined vprintf to "printf"!!! * Merge Ted Goldstein 's changes for epoch. printcmd.c (print_command_1): Pass 'inspect' flag down as a global variable, inspect_it. valprint.c (print_string, val_print): Use the global inspect_it to indicate whether to print in Epoch style or normal style. Mon Oct 1 23:55:26 1990 John Gilmore (gnu at cygint) * printcmd.c (call_command): add an alias for the "print" command which runs expressions and doesn't print the result if void. (print_command_1): implement it. * command.c: Remove #if 0'd code. Initialize all the fields in add_cmd (). Rename do_nothing_command to not_just_help_class_command, and make it externally visible. command.h: add user_commands to struct. * main.c (define_command): Don't overload c->function with a char string as well as a function pointer. * eval.c (evaluate_subexp): Reinstall tiemann changes to calling convention of value_struct_elt () that got dropped in merge. * tm-sparc.h (FRAME_FIND_SAVED_REGS): move to sparc-xdep.c. sparc-tdep.c (sparc_frame_find_saved_regs): ditto. * tm-sparc.h (POP_FRAME): replace some constants with defines. * sparc-xdep.c (store_inferior_registers): defer stores to regs until a good time (e.g. when we are about to run the child), saving ptrace calls. * infrun.c (proceed): handle DO_DEFERRED_STORES. * tm-sparc.h: define DO_DEFERRED_STORES. * sparc-xdep.c (store_inferior_registers): when storing float registers, don't store stack regs too. When storing the SP, however, DO store the stack regs too. This fixes a bug in which the dummy frame is not recognized when a call_function finishes, because its frame pointer (in the stack regs) was never initialized. (read_inferior_registers): Mark WIM and TBR and FPS and CPS valid even though we don't know how to read them from an inferior. valops.c (call_function): Comment about storing SP. * infrun.c (save_inferior_status): Save away the original bpstat chain so it can be restored later. Install the copied version for use by whoever saved the status. It will be blow away by restore_inferior_status, and the original chain restored. This is important for people who have pointers into the original. * breakpoint.c, command.h, copying.awk, dbxread.c, defs.h, findvar.c, frame.h, obstack.h, obstack.c, inflow.c, value.h, main.c, printcmd.c, sparc-tdep.c, symtab.c, valprint.c: lint Fri Sep 28 20:32:46 1990 John Gilmore (gnu at cygnus.com) * Makefile.dist: Roll version to 3.91.8. Add bfd.h and bfdconfig.h temporarily to the makefile. Add am29k-opcode.h and WHATS.NEW. Add stuff.c and kdb-start.c to the OTHERS list for tar files. Fri Sep 28 19:12:12 1990 John Gilmore (gnu at cygint) * Merge Mike Tiemann's multiple inheritance changes from Sun. Store the baseclasses in a type struct starting from array element 0 rather than from the unusual array element 1. dbxread.c: the above. (virtual_context): Add Read new debug information about which virtual function table a virtual function is from, and store it in fn_field.fcontext. symtab.h: Add fcontextt. Fix baseclass indices. Typo in TYPE_FN_FIELD_STATIC_P. symtab.c: the above. valops.c: the above. Handle pointer casts of object *'s. (search_struct_method): Add. (value_struct_elt): First arg is now a pointer to a value, and is modified on return. valprint.c: the above. values.c (value_virtual_fn_field): Add type arg. Handle offsetting to the proper object when calling virtual fns. The above. (baseclass_addr): Add valuep arg. * README: Document the current state of BFD config (missing). * TODO, ChangeLog, Makefile.dist: Roll version. * WHATS.NEW: Add summary of changes since 3.5. Thu Sep 27 16:23:12 1990 John Gilmore (gnu at cygint) * dbxread.c (read_struct_type): Clear bit vectors whenever we allocate one. symtab.c (B_CLRALL): define. * tm-sparc.h (STORE_RETURN_VALUE): Avoid clobbering types by using == rather than =. Huh... This fixes the dreaded problem wherein builtin_type_int becomes TYPE_CODE_FLT. * core.c (info_files): Show the inferior pid. * config.gdb: Avoid putting "dir" command into .gdbinit. GDB already knows how to look in the source directory. * Remove psymtab hair from many places. Remove duplicated code for searching symbol tables. Hide psymtabs from most places. Make it fast to get from a psymtab to its symtab. blockframe.c (blockvector_for_pc): Remove psymtab hair. coffread.c (psymtab_to_symtab): Rename to psymtab_to_symtab2. mipsread.c (psymtab_to_symtab): Rename to psymtab_to_symtab2. dbxread.c: export psymtab_to_symtab, make it work if called N times. (psymtab_to_symtab): Rename to psymtab_to_symtab2. Initialize new symtab completely. New psymtabs get symtab pointer initialized to zero. Remove MI warning printf. symtab.h: Comments. Add psymtab to symtab pointer. (PSYMTAB_TO_SYMTAB): New macro. symtab.c: use PSYMTAB_TO_SYMTAB. Add psymtab_to_symtab and export it. source.c: use PSYMTAB_TO_SYMTAB. Remove symtab version and compilation fields. stack.c (backtrace_command): Avoid pre-pass to read symbols, if verbose is not set. (print_frame_info): Avoid special-casing symbols that have not yet been read in. * source.c (open_source_file): Quick path if we have already located the source file by its full name. * symtab.c (lookup_symbol): Use find_pc_symtab rather than find_pc_psymtab. When a name is found in the misc function vector, search the symbol table for its mangled name, not the name that the user typed. * bfd.h: Fix missing comment terminators, make #endifs match. * valarith.c (value_less): Handle unsigned int comparisons. Add FIXME about pointer compares, which assume host and target pointers are the same. * command.c (do_nothing_command): lint dbxread.c: lint. Remove sort_syms. Document C++ visibility info, fix comments on debug symbol format for visibility. Actually set visibility of symbols. main.c (echo_command): lint; use . tm-sparc.h (FRAME_FIND_SAVED_REGS): lint obstack.h (_obstack_blank): Rearrange pointer math to avoid pointing past end of allocated memory; saber complains. obstack.h: Declare the external functions that we use. valarith.h: use solib.c (solib_add): lint. Fri Sep 21 17:05:19 1990 John Gilmore (gnu at cygint) * main.c (initialize_main): Default info_verbose to off, now that symbol reading is fast. (quit_command): Avoid clobbering exec_bfd while quitting. * Initial BFD (binary file diddling library) merger: coffread.c: Change AOUTHDR to struct exe_hdr. dbxread.c: ditto. core.c: initialize initialized data at compile time. (core_file_command): Move from coredep.c, convert to bfd. (xfer_core_file): Convert to bfd. exec.c (exec_file_command): use bfd routines. gdbcore.h: BFD. mips-tdep.c: Remove exec_file_command and friends. source.c: bfd. * coredep.c: (fetch_core_registers) Convert core_file_command to fetch_core_registers. mips-xdep.c, sparc-xdep.c, sun3-xdep.c: ditto. * utils.c: (error): Bogus crap, FIXME, to print bfd errors. (my_bfd_read): More bogosity, which I don't think we call. (program_name): Remove this atrocity asap! Wed Sep 19 13:36:41 1990 John Gilmore (gnu at cygint) * From Per Bothner: values.c: allocate_repeat_value was not clearing the optimized_out field. (value_static_field): minor stylistic fix (wrong macro was used). valops.c (value_struct_elt_for_address): didn't work for C++ static fields. * signame.c (_initialize_signame): Initialize signal names once. * breakpoint.h, command.c, copying.awk, defs.h, environ.c, exec.c, frame.h, infcmd.c, inferior.h, main.c, munch, sun3-xdep.c, symtab.h, tm-29k.h, valprint.c, value.h, values.c: Lint. * remote-eb.c: Support user-settable baud rates on the serial port. * tm-sun3.h (PREPARE_TO_STORE): fix typo. Fri Sep 14 13:28:29 1990 John Gilmore (gnu at cygint) * tconfig/sun3os4: Remove warning about native assembler, since it also occurs in the xconfig file. * findvar.c (registers): Allocate some slop after `registers' to prevent stray accesses from trashing the next variable. * tm-68k.h (REGISTER_BYTES): Allocate the right number of bytes on the sun-3, by changing the #ifdef from `sun3' (which is not defined by cc) to `sun'. Symptom was trashed builtin_type_XXX vars, which happened to follow `registers' in the executable. * readline/history.c (history_search): Heed gcc-2's advice and parenthesize && inside ||). * am29k-opcode.h, am29k-pinsn.c, am29k-tdep.c, remote-eb.c, tm-29k.c: Insert FSF copyright headers. * remote-eb.c: Better comments. * Makefile.dist: Update to 3.91.6. * TODO: note PREPARE_TO_STORE problem. Thu Sep 13 09:52:33 1990 Jim Kingdon (kingdon at cygint) * stack.c (frame_info): Only use FRAME_FIND_SAVED_REGS if defined. * remote.c: Wrap the whole file in #if !defined (SPECIAL_REMOTE). * infrun.c (wait_for_inferior, at end): Don't set up prev_* if the inferior no longer exists. * inferior.h (CALL_DUMMY_LOCATION): New macro, to replace CANNOT_EXECUTE_STACK. valops.c (call_function): Use it. * tm-convex.h: Add CALL_DUMMY_LENGTH for use by PC_IN_CALL_DUMMY. * inferior.h (PC_IN_CALL_DUMMY): New macro. infrun.c (wait_for_inferior, 2 places): Use it. * values.c (value_being_returned): Only use EXTRACT_STRUCT_VALUE_ADDRESS if defined. * Move PREPARE_TO_STORE from xm-sun3.h to tm-sun3.h to do the right thing for remote-eb.c. * sun3-xdep.c: Remove extraneous call to remote_store_registers. * sun386-xdep.c, hp300hpux-xdep.c, sparc-xdep.c: Ditto. * blockframe.c: Put get_frame_saved_regs inside #if !defined (FRAME_FIND_SAVED_REGS). * findvar.c ({fetch,store}_registers): Check for REMOTE_{FETCH_STORE}_REGISTER macro. * findvar.c (get_saved_register): Add argument lval and change meaning of argument addr. findvar.c: Change calls to get_saved_register to reflect new calling convention. valops.c (value_assign): Use get_saved_register instead of find_saved_register. Sun Sep 2 12:40:20 1990 Jim Kingdon (kingdon at cygint.cygnus.com) * coffread.c (read_one_sym): Make temp_aux an AUXENT, not an (uninitialized) pointer to one. Use "&" when passing it to fread. Fri Aug 31 22:57:54 1990 Jim Kingdon (kingdon at cygint.cygnus.com) * coffread.c (getfilename): Use DGUX x_offset and x_name if defined. * coffread.c (symbol_file_command): Put semicolon after "int from_tty". Put safe_to_init_tdesc_context in #if defined (TDESC). Put #ifdef TDESCs in 1st column for non-ANSI cpp's. coffread.c: #include . (read_coff_symtab): Typo: in_source_files -> in_source_file. Add missing ')' in check for "lc%" and friends. Remove extraneous '}'. Declare read_one_sym() at top of file. (read_file_hdr): Put in extra #ifdefs so MC68MAGIC and MC68WRMAGIC can have the same value without causing a duplicate case. Thu Sep 13 15:55:36 1990 John Gilmore (gnu at cygint) * Allow a Makefile to be built without building the tm and xm file links that screw up builds in subdirectories. This is done with `config.gdb none', then you can do things like `make gdb.tar.Z'. * tconfig/none: Config file for no target system * xconfig/none: Config file for no host system * config.gdb: If no TM or XM files are called out by the host or target file, don't make links for them. * cplus-dem.c: Add documentation. * dbxread.c (read_ofile_symtab): Turn a fatal error into a simple error, so the user's gdb doesn't crash due to some object file problem (e.g. somebody is rebuilding the file out from under gdb). * printcmd.c (print_address_symbolic): demangle the symbol. * Makefile.dist (OTHERS): Remove tdesc-lib because it has Motorola copyrights in it. Make "make gdb.tar.Z" work. (alldeps.mak): sort and uniq all results from this; duplicates hose gdb.tar.Z link building. Remove RCS files from tconfig and xconfig. Add config files for sun386. Add a few odd files to OTHERS and HFILES. Mon Sep 10 21:20:24 1990 John Gilmore (gnu at cygint) * Makefile.dist: Pull solib.c to tconfig/sun?os4. Roll version number to 3.91.5. Make lint work in bindir. * README: Document cross-debugging and new file structure. * blockframe.c: Lint. Include "value.h" to declare read_register. (find_pc_partial_function): remove duplicate line. * command.h: Lint. Declare error_no_arg and dont_repeat. * tm-news.h: Remove inadvertently duplicated stuff. * mipsread.c: Remove cache_pc_function stuff, now done cleanly. Clean up usage of misc_function_type. Declare some CORE_ADDRs. * config.gdb: Allow `config.gdb host target' form. Clean up previous change that printed bogus messages when you just said `config.gdb'. * core.c: #include "command.h" for lint. * dbxread.c: lint * eval.c: lint * main.c: Remove some casts of enums. Lint. * source.c: lint * symtab.c: lint * symtab.h: lint * expread.y: lint * valarith.c: lint * printcmd.c (initialize_printcmd): Fix thinko in inspect cmd. * sparc-tdep.c (isannulled): Take instruction as parameter, don't read it from memory. This will allow us to save ptrace calls eventually. Changed caller single_step too. * sparc-xdep.c (fetch_inferior_registers): Avoid reading regs that we aren't going to use, saving many ptrace calls, especially when watchpointing or single stepping. Use some #define's for constants. (store_inferior_registers): Ditto. (core_file_command): Use some #define's for constants. * tm-sparc.h: Add #define's for some register numbers, so we can eliminate the use of random constants in sparc-xdep.c. * stack.c (frame_command, print_frame_info, up_command, down_command) Remove frame_changed, since it causes a bug and doesn't seem to do anything useful. In some places it was used as a flag, in others as a stack level (?). * utils.c: Use MISSING_VPRINTF rather than HAVE_VPRINTF, so the default is to use the portable (vprintf) version rather than the kludge version. * xm-news.h (MISSING_VPRINTF): Add. * valprint.c (val_print): Demangle fancy vtbl printouts. Lint. Sat Sep 8 00:24:12 1990 John Gilmore (gnu at cygint) * Remove stuff that forces -Bstatic linking of gdb, and warnings about linking debugged programs -Bstatic in the sun?os4 config files in tconfig and xconfig subdirectories. * main.c (main): Remove unreached exit(0) now that we exit via quit_command(). * Create TODO file for online bug list. There are too many "little" bugs to keep track of on paper. * Change Projects file to refer to bug-gdb@cygnus.com rather than kingdon@ai. Fri Sep 7 23:35:15 1990 John Gilmore (gnu at cygint) * Makefile.dist (VERSION): 3.91.4 now. * symtab.c (init_misc_bunches): Rename from init_misc_functions. (condense_misc_bunches): Add sanity check that misc_count is the same as the number of symbols in the bunch. * coffread.c: rename init_misc_bunches. Pass an argument to condense_misc_bunches (a zero). * dbxread.c (partial_symbol_file_read): Call init_misc_bunches every time we are called; don't rely on our caller to do it. (add_file): Remove call to init_misc_bunches. * mipsread.c: Only warn, don't error, if unknown symbol types. This keeps an old gdb from falling on its face if it sees newly extended symbol info. Rename init_misc_bunches. Fri Sep 7 22:58:15 1990 John Gilmore (gnu at cygint) * Merge in changes from Per Bothner for DECstations and other MIPS stuff. The rest is Bothner speaking: The next message is a merger of Alessando Forin's mips port with mine. I've tried to use my good if biased judgment to get the best of both. It *does* need testing. Some of the changes are general, *not* mips-specific. param.h: Didn't believe in little-endian bit order. There are still inconsistencies about whether flags like BITS_BIG_ENDIAN are integer (#if ...) or boolean (#ifdef ...). I tried to paper over them. dbxread.c,coffread.c,mipsread.c,symtab.c,symtab.h: Moved some misc_function code that was common to {dbx,coff,mips}read.c to symtab.c. In the process, I think I cleaned things up a bit. At the same time, moved obsavestring and obconcat to symtab.c. dbxread.c: Removed obsolete condense_addl_misc_bunches (use condense_misc_bunches(1) instead). exec.c: Needed to include , at least on DECstations. valops.c, mips-tdep.c, tm-mips.h: Added PUSH_ARGUMENTS macro to support funny argument-pushing conventions (when STACK_ALIGN is insufficient). Needed on mips, where doubles need 8-byte alignment, but ints only need 4. mips-opcode.h: Removed cruft that was not being used. Merged in many fixes (most from Frank Yellin, fy@lucid.com). mips-pinsn.c: Print $ before register-names (I think that makes things a little more consistent). Never print two instructions, even if one delays. Removed hex-disassemble set_cmd. (This is not mips-specific, so I think the argument is whether it is generally worthwhile or not. I'm inclined to think not, given how easy it is to convert between radixes in gdb.) mipsread.c: This is basically Alessando's code. It doesn't use obstacks; I changed it to use obstacks in a few minor places where using malloc causes a memory leak. (Probably, more places could/should be changed.) I added record_misc_function where it was missing. In symbol_file_command and add_file_command, I tried to make the code consistent with more recent versions. Minor sylistic changes in parse_procedure. Make a .gdbinfo. psuedo-symbol point back to the real procedure symbol (using the isym field). mips-tdep.c: This is basically from my port, but with a lot of details and a number of routines merged in from Alessando's version. I basically used my code "raw" backtrace (use heuristics from the actual code, rather than symbol table info) - though the idea is Alessandro's. I feel my code is a little cleaner here, particularly in being a little more flexible, such as being able to handle gcc-produced code (which it now can). It also doesn't do frame caching (which is not useful more recent gdb versions). I also used my code for push_/pop_dummy, more or less. I tried to incorporate AF's code for testing sigtramp while backtracing; I probably got it wrong. Added mips_print_register, which tries to scrunch as much information as possible on a screen... Removed the skip-prologue set_cmd. As with hex-disassemble (see under mips-pinsn.c), I don't see anything mips-specific here, and I don't see it being all that useful anyway. tm-mips.h: Added a $fp psuedo-reg distinct from $fp (nice for gcc). Use more register names (rather than hard-cases numbers). Thu Sep 6 18:33:15 1990 John Gilmore (gnu at cygint) * Hack up 3.90.11 changes: * Makefile.dist (depend): parameterize $(GCC). Add solib.c and solib.o. (readline): Fix vpath for both absolute or relative SRCDIR. * blockframe.c: Fix from Schaefer@asc.slb.com for shared libs. Also, let the part I didn't understand at least compile so I can test the rest. FIXME. * dbxread.c: Fix thinko using strcmp. (init_psymbol_list): declare static. (partial_symbol_file_open): Comment cleanups better, avoid cleaning up the string table since the caller will do that. Move the stat for mod time into symbol_file_command, temporarily. (There should be a mod time for each symbol file, eventually, to control its rereading. FIXME.) * infptrace.c (PT_WRITE_D): use same value as PT_WRITE_I for SunOS, which gives error for shared libs otherwise. (From Schaefer, probably FIXME needs work for portability.) * solib.c: Move #include "param.h" to work. Lowercase all the Uppercase Letters In the Messages. (find_solib): Clean up inferior_so_name for debug printouts. Allow no argument, to mean all shared libraries. * symmisc.c: include param.h to get CLEAR_SOLIB. Wed Sep 5 18:00:08 1990 John Gilmore (gnu at cygint) * Merge in Kingdon's changes from FSF: the diffs from 3.90.9 to 3.90.11. ChangeLog entries below are from this. Wed Jun 13 09:17:39 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * Version 3.90.11. * Makefile.dist (HFILES): Add tm-sunos.h. Tue Jun 12 16:15:26 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Version 3.90.10. * Makefile.dist (gdb.tar.Z): Change linking of config so it works. Thu Jun 7 16:22:27 EDT 1990 Jay Fenlason (hack@ai.mit.edu) * sparc-opcode.h Added single-operand version of rett. Mon Jun 4 18:12:31 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * m-sparc.h (REG_STRUCT_HAS_ADDR, STRUCT_ARG_SYM_GARBAGE): Put parens around gcc_p in expansion. Thu May 24 15:44:51 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * utils.c (lines_to_list): Return 10 if lines_per_page == 0. Wed May 23 16:36:04 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Changes for Sun shared libraries: blockframe.c (find_pc_partial_function): If a non-text symbol is found, set *address = pc - FUNCTION_START_OFFSET. breakpoint.c (insert_breakpoints) [DISABLE_UNSETTABLE_BREAK]: Disable breakpoints instead of giving an error. source.c (select_source_symtab): Initialize cs_pst. symmisc.c: Call CLEAR_SOLIB if defined. symtab.h: Make text{low,high} CORE_ADDR not int. (psymtab): New field addr. solib.c: New file. dbxread.c: Move DECLARE_FILE_HEADERS outside functions. (record_misc_function): Give correct type for N_DATA symbols. (condense_misc_bunches): do "misc_function_count = j" regardless of inclink. Take code which is shared between symbol_file_command and add_file_command and put it into partial_symbol_file_{open,read}. Split add_file_command into add_file_command and add_file. Make psymtab_to_symtab read in the string table if the file is not symfile. Two new parameters to read_dbx_symtab and start_psymtab. tm-sunos.h: New file. Tue May 22 17:43:03 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * infcmd.c: Change cont_command to continue_command and "cont" to "continue". Mon May 21 14:41:41 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * breakpoint.c (enable_breakpoint): Get value of watchpoint. * defs.h [sparc]: Use regardless of __GNUC__. * values.c (USE_STRUCT_CONVENTION): Check for structures of size 1,2,4,8 rather than size < 8. * dbxread.c (dbx_lookup_type): Do f->length *= 2 as many times as necessary, not just once. * sparc-opcode.h: Add a bunch of new opcodes which Sun as supports. Thu May 17 15:04:09 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * {t,x}m-sun386.h, sun386-xdep.c, {x,t}config/sun386 * tm-news.h: Add CALL_DUMMY_*. * tm-68k.h: Remove duplicate comment at FRAME_FIND_SAVED_REGS. * config.gdb: In list_host, list_target, use ${i}, not $i. Tue May 15 21:27:12 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * source.c (find_source_lines) [BROKEN_LARGE_ALLOCA]: Use xmalloc. * sparc-opcode.h: Change all store floating-point state register instructions to have the right match & lose fields. Sat May 5 12:39:18 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Makefile.dist: Move -I${srcdir} to GLOBAL_CFLAGS and pass VPATH to readline. config.gdb: If srcdir != ., create readline directory and copy a makefile into it. * wait.h, infrun.c: Change WRETCODE to WEXITSTATUS for consistency with POSIX. * breakpoint.c (bpstat_stop_status): Disable watchpoint when we exit its exp_valid_block. Tue Sep 4 11:46:46 1990 John Gilmore (gnu at cygint) * Makefile.dist: Bump version to 3.91.3. * Clean up handling of breakpoint commands (somewhat). Prompted by Tiemann bug report "cont 10" doesn't work any more. inferior.h: Add breakpoint_proceeded to inferior status struct and globals; save it and restore it. (clear_breakpoint_commands): Cleanup, remove old #define. infrun.c (clear_proceed_status): Set breakpoint_proceeded. (save_inferior_status, restore_inferior_status): handle it also. (proceed): Remove earlier code that set breakpoint_proceeded. It is now set only in clear_proceed_status. (clear_proceed_status): Cleanup, use bpstat_clear rather than clear_breakpoint_commands. No callers need the stop_bpstat between clear_proceed_status and proceed. infcmd.c: Add breakpoint_proceeded definition and comment. (cont_command, jump_command, signal_command): Move call to clear_proceed_status right next to call to proceed. breakpoint.c (bpstat_do_actions): Avoid clobbering our caller's argument while running down the chain of breakpoints. Use new variable "breakpoint_proceeded" to determine when a command that it executes moves the inferior past the breakpoint. (bpstat_clear): Handle NULL argument. (bpstat_clear_actions): Avoid useless call to breakpoint_auto_delete. (delete_breakpoint): Clean up bpstat's that are pointing to the deleted breakpoint from the stop_bpstat chain. (breakpoint_auto_delete): Simplify. * Clean up handling of EOF, error on stdin, etc. This was prompted by a network problem that caused gdb to go into an infinite loop filling up its malloc'd memory. main.c (return_to_top_level): Cleanup: call bpstat_clear_actions, not clear_breakpoints_commands, which is now gone. (main): If command_loop returns (e.g. from EOF on stdin), do a quit_command (looping back to command_loop if quit_command doesn't really quit). (command_loop): check result from command_line_input and exit if it returns NULL, rather than passing the NULL to execute_command. (gdb_readline): Free malloc'd result space before returning NULL for EOF. * utils.c (query): Handle C-d to mean "yes", just as if the input was not a terminal. Also avoid infinite loop if EOF occurs in mid-input-line before newline. This allows query to be used at EOF on stdin with reasonable results. * infrun.c (proceed): Set breakpoint_proceeded. * values.c (value_as_long): Avoid infinite recursion for enums. (_initialize_values): Fix typo in help msg (kingdon). * Makefile.dist (RL_LIB): Use RL_LIB_DEP for dependencies, RL_LIB for linking. This allows -lreadline for linking and nothing for dependencies, once readline is a real library. * config.gdb: Jim Kingdon: give useful error message if the host or target type is not recognized. * defs.h (alloca): SPARC does not declare alloca, it just defines it. Dumb, but deal with it. * Jim Kingdon suggests: in xconfig/sun3os4, CFLAGS should be XM_CFLAGS. Wed Aug 29 18:03:27 1990 John Gilmore (gnu at cygint) * Makefile.dist (VERSION): Bump version # to 3.91.2. * Clean up Bothner's changes. * blockframe.c (clear_pc_function_cache): New function. * blockframe.c: remake cache_pc_function_* static. * dbxread.c (symbol_file_command): remove references to cache_pc_function_* variables. * dbxread.c (read_struct_type): Use VOFFSET_STATIC. * printcmd.c: Avoid kludging a global variable (addressprint) to avoid printing the address of a string twice. Instead, pass the format letter 's' down low enough that it can be seen to avoid this problem. (print_formatted): Pass format arg to value_print. (restore_addressprint): Remove function. (do_examine): Avoid hacking addressprint, cleanups and such. (print_frame_args): Add a comment to a Bothner change. * symtab.h: define VOFFSET_STATIC and use it instead of "-1". * symmisc.c (free_all_symtabs): Call clear_pc_function_cache to wipe out the values cached in blockframe.c. * symtab.c (find_method): Add comment saying how big you must allocate to be "big enough". Per being terse again. * valprint.c (val_print): Handle format letter "s" to print strings without addresses. Add comment to vtbl printing code which casts with wild abandon. Rearrange reference-printing code so it prints: @0xaddr: value (print w/addressprint) value (print w/~addressprint) @0xaddr (parameter lists w/addressprint) or nothing (parameter lists w/o addressprint) Tue Aug 28 10:47:18 1990 John Gilmore (gnu at cygint) * Merge more changes from Per Bothner: Gdb's handling of TYPE_CODE_REF was so counter-C++ (and otherwise annoying) that I tried to improve it. Here are my suggestions. These patches all attempt to handle TYPE_CODE_REF (as in C++) better. findvar.c: Do automatic de-reference when taking the address of a reference. printcmd.c: Don't deref_ref when printing parameter lists. valops.c: More attempts at treating refernences properly. valprint.c: In val_print, if deref_ref==0, don't print dangling " = ". value.h: Add COERCE_REF macro, which de-references an REF. * Merge changes from Per Bothner: * Fixed (Sony news)-specific configuration problems. * Fixed other problems with using vanilla pcc and libc (enum problems; assumption that vsprintf exists). * Some major speed-ups (finc_pc_partial_function now caches a match; parsing avoids duplicate symbol_lookup calls). * Changed handling of baseclasses (no longer use baseclasses field of struct type, use the first n_baseclasses fields instead). * Various minor changes/fixes, most C++-related. blockframe.c: Cache the most previous match from find_pc_partial_function. (Save both low and high ends of matching function's pc range.) This speeds up the loop of infrun.c:wait_for_inferior quite a bit, and makes step/next commands much zippier. command.c: Added an enum->int cast (otherwise, some compilers barf). dbxread.c: No longer set baseclass offset to 0, since multiple inheritance now mostly works. Added a number of casts, to shut up compiler warnings (after stabs where made enums, not ints). When discarding a symbol table (in symbol_file_command), must clear the cache introduced in blockframe.c. Don't convert $vtbl_ptr_type to vtbl any more. Get rid of TYPE_BASECLASEES and baseclass_vec (see also symtab.h). Mask off sign bit emitted by g++ for virtual table offset. Set voffset to -1 (not 1) for static member functions. expread.y: Changed parsing/lexing of names to avoid doing symbol lookup twice (once when lexing to determine symbol class, once for real). Now only call symbol_lookup once. Fields of 'this' win especially big. printcmd.c: Subpress printing addr twice in the case of 'x/s addr'. symtab.c: lookup_basetype_type is no longer used. Add find_methods as recursive helper function to decode_line_1. This allows multiple inheritance to work. Also, once one or more matches has been found, do not look in base-classes. (Baseclass methods would be overridden, anyway.) symtab.h: Removed baseclasses array in struct type. Instead of using baseclasses[i], use fields[i-1]. Added virtual_field_bits[i] to indicate if the i'th baseclass is virtual. Changed sign convention of voffset (previous was inconsistent). tm-news.h: Some macros (CALL_DUMMY and relatives) were missing. Put them back. utils.c: Used to assume existence of vsprintf. Re-written to not need it if HAVE_VPRINTF is undefined. valops.c: typecmp was too pessimistic. Made it less so. valprint.c: Don't print space after address. If vtable points to a misc symbol (with 0 offset), print it, since that indicates the actual class of the object. Changed ype_print_derivation_info to use new inheritance scheme (without baseclasses vector). values.c: In value_primitive_field, fixed some bugs left over from previous set of fixes. Also, changes needed because TYPE_BASECLASSES were removed. xm-news.h: REGISTER_U_ADDR didn't work for PC. Rewrote to use an array. Tue Aug 21 20:08:54 1990 John Gilmore (gnu at cygint) * source.c: If there is no path set, and the symbols don't indicate what directory a file was compiled in, look in the current directory. But either a path or a known compilation directory will prevent this. * dbxread.c: Three independent bug fixes: * Remove the #if 0 block that breaks some stuff. * SunOS 4.1 fixed the promoted-parameter-wrong-addr bug in Sun C; adapt gdb to either SunOS 4.0.* or 4.1. * MAX_OF_TYPE and MIN_OF_TYPE thinko. By tedg@sun, I think. * symtab.c: Instantiate the class T when looking for methods in it. (Tiemann@sun) * valprint.c: (type_print) Demangle the name being printed. (type_print_base) Handle botched demangling without coredump (tiemann). * values.c: (check_stub_method): Document routine. (tiemann) fix bug for no-arg functions Avoid clobbering beyond end of malloc'd storage. Terminate the argument list properly. Sat Aug 18 01:29:59 1990 Per Bothner (bothner@cs.wisc.edu) * Changes merged by John Gilmore: breakpoint.c: In breakpoint_1, use new print_address_symbolic instead of find_pc_partial_function. (This forces use of assembler-level addresses, and avoids misleading non-mangled source-level names.) cplus-dem.c: Generalize ansi argument such that -1 means skip arglist totally. Removed global variable print_ansi_qualifiers (which made code non-reentrant), in favor of extra explicit arguments to internal routines. printcmd.c: Add new helper function print_address_symbolic. Use find_pc_misc_function instead of find_pc_partial_function (since we want assembler-level symbols here). stack.c: Print unknown function as just "f (...)", not "f (...) (...)". Use new fputs_demangled explicitly. symtab.c: Fixed a typing violation (problem: value.h cannot be imported without renaming many variable in this file). lookup_symbol: If no matching misc_func, look for a C++-mangled name. decode_line_1: Moved forward some never-reached code. Made decode_line_2 skip function prologues correctly. utils.c: fputs_filtered should not demangle by default. Add new fputs_demangled to demangle on demand.. valops.c: Change value_struct_elt to use value_primitive_field (using recursive utility function search_struct_field). This allows foo.bar to work for multiple inheritance (so far only for data fields). Change check_field in the same way (recursive helper function to support multiple inheritance). (Note: there are more of these problems that I haven't fixed. Any code that says TYPE_BASECLASS (t, 1) is probably wrong.) value_of_this: 'this' symbol name is now just "this", note "$this". valprint.c: Don't print static members. Avoid printing "members of " if there are none. Simplified type_print_derivation_info by merging duplicate code. Remove useless blank lines in type_print_base (ptype command). value.h: Added declaration of new routine value_primitive_field. values.c: Added value_primitive_field which is generalized version of value_field that can handle multiple inheritance (non-zero offsets etc). Re-implemented value_field to call value_primitive_field. Fri Aug 17 23:33:44 1990 John Gilmore (gnu at cygint) * infcmd.c -- insert else to avoid 'delete env' coredump when you delete the whole environment. Karl Berry reported the bug. * source.c - fix openp to avoid //'s in filenames, which trigger an Emacs bug causing it to not be able to find files when running gdb in a window. * dbxread.c - zap the #if 0 that botches the add-file code. It seems to work a lot better without all the code commented out. Fri Jul 20 16:58:46 1990 John Gilmore (gnu at cygnus.com) * Merge Tiemann's and Ted Goldstein's changes, detailed below, into gdb-3.90.9. Tue Jul 17 19:34:33 1990 Ted Goldstein (tedg at golem) * Makefile - added a ${CFLAGS} to a couple of entries, added remote-sa.sparc.c * added remote.sa-sparc.c, a modification of remote.c which conducts a dialog directly with the SparcStation prom. * breakpoint.c, infrun.c, sparcdep.c added remote_insert_breakpoint(), and remote_remove_breakpoint() to breakpoint.c instead of directly writing breakpoint instructions. * sparcdep.c on remote_debugging,there is no need to remove signle step breakpoint instructions. * main.c added "-epoch" flag and "int epoch_interface" to main.c global variable * printcmd.c - epoch interface sends lisp expressions to open up epoch windows on inspection. * valprint.c - added arrayprint, and addressprint and made adding format controls easier * wait.h added a couple of undef's because we were getting complaints about WSTOPSIG and WTERMSIG begin redefined. Wed Jul 4 05:27:51 1990 Michael Tiemann (tiemann at masham) * symtab.c (decode_line_1): Add support for handling method stubs in the type information. Tue Jul 3 09:39:18 1990 Michael Tiemann (tiemann at masham) * values.c (baseclass_addr): Run loop from INDEX+1 to N_BASECLASSES; otherwise, we can still get into a loop. @@ This should be restructured to use a cleaner search strategy. Sun Jul 1 12:28:51 1990 Michael Tiemann (tiemann at masham) * dbxread.c (define_symbol,read_type): Grok GNU C++'s new abbreviation "Tt" for tags which have the same name as their typedecls. Fri Jun 29 01:03:46 1990 Michael Tiemann (tiemann at masham) * symtab.c (list_symbols): add ability to set breakpoints on all the functions which match a particular regular expression. Tue Jun 26 04:26:29 1990 Michael Tiemann (tiemann at masham) * cplus-dem.c (cplus_demangle): New parameter ANSI says whether we should print ANSI qualifiers (such as `const' and `volatile'). All callers changed to call with ANSI == 1, except from `check_method_stub', which uses old-style syntax. * symseg.h (struct fn_field): Remove unneccessary `args' field. * symtab.h (TYPE_FN_FIELD_ARGS): Redefined. * values.c (check_stub_method): New function. * cplus-dem.c (do_type): Handle "long long" (encoded as 'x'). * dbxread.c (read_type): Handle new GNU C++ method type stubs. * valprint (type_print_base): Ditto. * symtab.c (gdb_mangle_typename): New function. Tue Jun 5 00:18:43 1990 Michael Tiemann (tiemann at gzilla) * breakpoint.c (catch_command): New function. Provides a mechanism to set breakpoints based on catch clauses. (disable_catch): Similar, but disables breakpoints on catch clauses. (delete_catch): Similar, but deleted breakpoints on catch clauses. Sun Jun 3 22:54:08 1990 Michael Tiemann (tiemann at gzilla) * blockframe.c (blockvector_for_pc): New function. * blockframe.c (block_for_pc): Changed to call `blockvector_for_pc' and get the block itself. * stack.c (catch_info): New function. Prints info about exceptions which can be caught in the current frame. * stack.c (print_frame_label_vars): New function. Similar to `print_frame_local_vars'. * stack.c (print_block_frame_labels): Prints out labels that are defined in this frame. These labels are exceptions that can be caught. * dbxread.c: Updated to handle N_CATCH symtab types. Thu May 3 22:10:00 1990 Michael Tiemann (tiemann at teacake) * valprint.c (everywhere): TYPE_NAME (TYPE) no longer comes in the form "struct ..." for GNU C++. Don't flush any part of TYPE_NAME when printing the type. Wed May 2 22:43:04 1990 Michael Tiemann (tiemann at teacake) * valprint.c (val_print): Use `baseclass_addr' to access the baseclasses pointed to via the derived class object at VALADDR. * values.c (baseclass_addr): New function. Casts derived pointers to baseclass pointers taking virtual baseclasses and multiple inheritance into account. Sat May 5 12:39:18 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Version 3.90.9. Fri May 4 12:12:55 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * breakpoint.c (watch_command, bpstat_stop_status): Deal with exp_valid_block field correctly. * infrun.c (wait_for_inferior): When checking "don't even think about breakpoints" if stop_signal == SIGTRAP && trap_expected, also check step_resume_breakpoint. Insert breakpoints and continue (not step) if step_resume_break_address != NULL, even if another_trap. If trap_expected and we enter sigtramp, then set up a step_resume_break. If trap_expected is set when we hit the step_resume_break, set another_trap. When calling resume and trap_expected says tell resume to step (2 places), also check step_resume_break_address. * infrun.c (wait_for_inferior): Don't set prev_{pc,sp,func_{start,name}} before calling wait (). Do set them after exiting loop. Move their declarations outside functions. (start_inferior): Initialize them. Thu May 3 00:15:11 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * infrun.c (wait_for_inferior, after check for trap_expected > 1): Restore old code which distinguishes between trap_expected and running_in_shell, just make the latter take any non-TRAP signal, not just SEGV. * values.c (allocate_value): Zero VALUE_OPTIMIZED_OUT flag. * Makefile.dist (pinsn.o): Use PINSN_CC to compile. xconfig/3b1 (CC,PINSN_CC): Define. * xconfig/altos, altos-dep.c: Rename altos-dep.c to altos-xdep.c. * Version 3.90.8 * breakpoint.c (bpstat_stop_status), infrun.c (wait_for_inferior) [SHIFT_INST_REGS]: New code. * param.h, tm-88k.h: Define ADDR_BITS_*. infcmd.c (jump_command, read_pc), infrun.c (wait_for_inferior), printcmd.c (do_one_display): Use them. * utils.c: Split #ifdef USG into a USG_UTILS and a QUEUE_MISSING. xm-88k.h: Define USG_UTILS. Wed May 2 00:05:33 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * printcmd.c (printf_command) [__INT_VARARGS_H]: New code. (printf_command): Add from_tty parameter. * valprint.c (value_print): Check VALUE_OPTIMIZED_OUT flag. * value.h: Add optimized_out field and change lazy field to char. Add macro VALUE_OPTIMIZED_OUT. * i386-pinsn.c: Change from Eirik Fuller to write to stream directly instead of stuffing things in buffers (oappend, etc). * breakpoint.c (bpstat_do_actions): If *BSP is set to NULL by execute_command, exit both loops. * Makefile.dist: Don't set TARGET_ARCH. Add .c.o rule. Tue May 1 17:07:23 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Makefile.dist (RAPP_OBS, rapp), rgdb.c, rserial.c, rudp.c, serial.c, udp.c, xdep.h, remote.h: Added. m68k-xdep.c, coredep.c: Wrap in #if !defined (RDB). * valops.c (value_struct_elt), values.c (value_static_field): Change error messages to remove references to `info methods'. Tue Apr 24 10:25:10 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * More 88k changes: infrun.c (start_inferior): Add START_INFERIOR_HOOK. infcmd.c [SHIFT_INST_REGS]: New code. findvar.c (read_relative_register_raw_bytes): Return a value. infcmd.c (do_registers_info): Check value from read_relative_register_raw_bytes. * command.c (delete_cmd): Free the struct cmd_list_element(s) we are removing. Mon Apr 23 10:42:21 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * More 88k changes: findvar.c (get_saved_register): New function. findvar.c: Rewrite code which called find_saved_register to call get_saved_register instead. Sun Apr 22 14:47:51 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * valprint.c (val_print): Change error message printed when the type has TYPE_FLAG_STUB set. * valprint.c (val_print): Check for TYPE_CODE_UNDEF. * findvar.c (write_register): Set register_valid (regno). * valops.c (call_function): Check for NULL return from block_for_pc. Fri Apr 20 11:31:23 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * findvar.c (write_register): Add PREPARE_TO_STORE. {sun3,sparc,symmetry}-xdep.c (PREPARE_TO_STORE): Add. infptrace.c, {mips,pyr,symmetry,sun3,arm,hp300hpux}-xdep.c (store_inferior_registers): Don't call read_register_bytes. symmetry-xdep.c (store_inferior_registers): #if 0 out code to fetch registers. * values.c (value_as_long): Call COERCE_ARRAY. * tm-sun3.h: Include tm-68k.h not m-68k.h * sparc-tdep.c (single_step): Set next_pc, npc4 within if (!one_stepped), not outside it. * Changes from Data General for 88k: * coffread.c (read_file_hdr): Add *88*MAGIC. * coffread.c (have_symbol_file_p): New function. * coffread.c [COFF_CHECK_X_ZEROES] [TDESC]: New code. * coffread.c (read_one_sym): If there is more than one aux entry, don't give an error message, just ignore the extra ones. * coffread.c (process_coff_symbol): Replace clipper with BELIEVE_PCC_PROMOTION in #ifdef's. * coffread.c: Define L_LNNO32 if not defined. (enter_linenos): Use it. * blockframe.c: Add INIT_FRAME_PC hook and use it in get_prev_frame_info. m-m88k.h: Use INIT_{FRAME_PC,EXTRA_FRAME_INFO} to do tdesc stuff. Use dummy versions of FRAME_CHAIN_*. * Makefile.dist, xconfig/i386*: Rename M_CLIBS to XM_CLIBS and add TM_CLIBS and CDEPS. tdesc/libdc.o: New target. tdesc.{c,h}, tdesc/*, {t,x}config/m88k: New files. Thu Apr 12 15:47:00 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * m68k-opcode.h (bras, bsrs): Use "Bw" not "Bg". Tue Apr 10 20:50:25 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Version 3.90.7. * xm-mips.h (BYTE_ORDER): If not defined, make it LITTLE_ENDIAN. * mips-xdep.c ({fetch,store}_inferior_registers): Remove variable offset and just use register_addr (regno, 1). (core_file_command): Remove variable reg_offset and just use register_addr (regno, 0). * gdbcore.h [COFF_FORMAT]: #undef a_magic before redefining it. * infrun.c ("if (trap_expected && stop_signal != SIGTRAP)", near end of wait_for_inferior): Always pass 0 as first arg to resume. #if 0 out "SIGSEGV in shell" test right above it (now redundant). * i386-pinsn.c (oappend_address): New function. (oappend): Make it "static void" and declare at top of file. (OP_J, OP_DIR): Use oappend_address. Mon Apr 9 15:22:09 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * mips-xdep.c: Include not "mips/inst.h". * wait.h [HAVE_WAIT_STRUCT]: Put #defines in #if !defined so that it's OK if they are defined in . * findvar.c (fetch_registers): Pass "registers", not "®isters", to remote_fetch_registers. * mips-tdep.c (_initialize_mipsdep): Remove hex_disassembler and re-write skip_prologue to use add_set_cmd. * Makefile.dist (alldeps.mak): Don't put \ after the last filename in each list. Sun Apr 8 01:59:19 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Version 3.90.6. * Makefile.dist (alldeps.mak): "XM_FILE" -> "XM_FILE=". * valarith.c (value_x_{un,bin}op): use "operator" not "operator " to match dbxread.c change of 16 Mar 90. * valarith.c (value_x_unop): Pass &static_memfuncp, not static_memfuncp. * breakpoint.c: Add watchpoint stuff. breakpoint.h: Add bpstat_should_step. infrun.c (proceed, wait_for_inferior): Use it. breakpoint.h: Add bpstat_print (and rename old bpstat_print to bpstat_should_print). infrun.c (normal_stop): Use it. * value.h: Add value_free. Declare a few functions. Sat Apr 7 21:43:43 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * dbxread.c (read_dbx_symtab): Remove PROFILE_TYPES code and insert comment suggesting easy shell script equivalents. * values.c (unpack_long): Give better error messages for unrecognized sizes of ints and floats. Fri Apr 6 00:32:21 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * dbxread.c, gdbcore.h (IS_OBJECT_FILE): Check for a_drsize nonzero as well as a_trsize. * More places: Use SWAP_TARGET_AND_HOST. * valops.c (destructor_name_p): Only skip "struct " if present. * main.c (gdb_readline): Return NULL on end of file. * sparc-opcode.h: Add jmp 1+2, jmp 1+i, jmp i+1. * Makefile.dist: Make expread.tab.c unambiguously be in srcdir. * main.c: Split source_command into source_command and read_command_file. (main): Accept "-" as arg to +command for stdin. * dbxread.c (psymtab_to_symtab): Don't read string table. (symbol_file_command): Save string table size. * Version 3.90.5 * symtab.c: Remove declaration of lookup_misc_func. * mips-pinsn.c: Add use_hex_p stuff (re-worked from Forin stuff). * mips-opcode.h: Add bdelay field. mips-pinsn.c: Various changes from Forin, I think to make it look like the MIPS assembler format. mips-tdep.c, mips-xdep.c, mipsread.c: Various changes from Forin. * gdbcore.h: Declare register_addr. * gdbcore.h: Include , before trying to redefine N_TXTADDR and friends. various: Don't include both a.out.h and gdbcore.h. * Makefile.dist (HFILES): Add param.h * utils.c (init_malloc): Moved here from mcheck.c and modified to use the standard mcheck.c Makefile.dist: Modify to reflect new mcheck. Thu Apr 5 16:38:28 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * valprint.c (val_print, print_hex_chars): Print integers larger than LONGEST. * valarith.c (value_sub): Give error message if attempt to subtract something of the wrong type from a pointer. * breakpoint.c (bpstat_stop_status): Initialize retval to NULL. * i386-tdep.c (i386_pop_frame): Change addr to adr. Wed Apr 4 05:21:50 1990 Jim Kingdon (kingdon at teenage-mutant) * main.c (command_line_input): return NULL on end of file. (execute_command): If p is NULL, return almost right away. (read_command_lines): Treat end of file like "end". * printcmd.c (print_frame_args): Change it so num is number of ints of args, not number of args. * xm-*.h: Make sure BYTE_ORDER is defined. Also fix various #includes of old names of things. * main.c (command_line_input): Fix comment code of 2 Apr. * values.c (value_from_long, unpack_long): SWAP_TARGET_AND_HOST. various: Replace {BYTES,WORDS}_BIG_ENDIAN with TARGET_BYTE_ORDER. valarith.c various: SWAP_TARGET_AND_HOST. dbxread.c (READ_FILE_HEADERS): SWAP_TARGET_AND_HOST. (SWAP_SYMBOL): New macro. Use it wherever symbuf_idx is incremented. exec.c (exec_file_command): SWAP_TARGET_AND_HOST. * valarith.c (value_subscripted_rvalue): Just bcopy() the appropriate bytes rather than playing strange games with value_from_long. * param.h (SWAP_TARGET_AND_HOST): New macro. * tm-np1.h (V7_REGNUM): Change from 27 to 26. (REGISTER_VIRTUAL_TYPE): Return correct result for vector regs. gould-tdep.c: New file. * Move reading of register before store from findvar.c (write_register) to infptrace.c, *-xdep.c (store_inferior_register). * findvar.c (fetch_registers, store_registers): New functions. write_register{,_bytes}: Use store_registers regardless of have_inferior_p. registers_valid: New variable. (supply_register, read_register, etc.): Use it. (read_register_gen): New variable. various: Use read_register_gen rather than read_register_bytes where appropriate. *-xdep.c (fetch_inferior_registers): Remove remote_debugging check. infrun.c (wait_for_inferior, start_inferior): Call registers_changed not fetch_inferior_registers. *-xdep.c (fetch_inferior_registers): Call registers_fetched if not setting registers via supply_register, and if fetching all registers. infptrace.c, *-xdep.c (fetch_inferior_registers): Add param, # of register to fetch (-1 for all). infptrace.c, hp300hpux-xdep.c (fetch_inferior_registers): Actually fetch only those registers needed. value.h: Declare all the extern register functions from findvar.c. * coffread.c (read_coff_symtab): Test for specific kinds of GCC labels (LI%.*, LPB%.*, etc), not just ??%.*. * coffread.c (record_misc_function): Use mf_text not mf_unknown. * utils.c,defs.h (lines_to_list): New function. source.c (select_source_symtab, list_command, forward_search_command, reverse_search_command), stack.c (print_frame_info): Use it instead of 10. * munch: If MUNCH_NM variable exists, use it. * main.c (initialize_main): Set rl_readline_name. main.c: #include readline.h and #undef savestring. Remove declarations of things declared in readline.h. * main.c (gdb_readline): If instream == 0, read from stdin. * main.c (main): Only call clearerr if ISATTY. Exit loop if feof (instream). * infcmd.c (detach_command): Set inferior_pid to 0 after calling remote_close. * main.c (main): If exec and sym files are the same, and there is an error reading execfile, don't try to read sym file. * infcmd.c (detach_command) [ATTACH_DETACH]: Don't try to detach from inferior when remote debugging. * source.c (reverse_search_command): Change while test from 1 to line > 1. Tue Apr 3 18:14:14 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Version 3.90.4. * Makefile.dist (gdb.tar.Z): Use -z option to tar rather than creating gdb.tar and calling compress separately. * breakpoint.c (read_memory_nobpt): Do not treat bcopy as if it returned an "errno" value. * various: Make sure gdbcore.h is not included before a.out.h. * Makefile.dist (OPCODES): Add mips-opcode.h. * config.gdb: Print lists of {hosts,targets} after finding srcdir. When parsing +{host,target}=, strip off +{host,target}=, not +{x,t}m=. * Makefile.dist (gdb.tar): Do {t,x}config not just config. Mon Apr 2 02:42:23 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * sparc-opcode.h (inc): Fix incorrect lose field. * valarith.c (value_subscripted_rvalue): Use TARGET_BYTE_ORDER, rather than checking endianness at runtime. * main.c (comand_line_input): Accept comments anywhere, not just at starts of lines. Sat Mar 31 21:59:35 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * symtab.c (check_stub_type): Call lookup_symbol with 5 args. Fri Mar 30 15:23:52 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * frame.h: #include param.h. param.h: Protect against multiple inclusion. * i386-tdep.c (i386_get_frame_setup): Fix comment about what opcode 0x55 is. If 0x81 or 0x83 is followed by something besides 0xec, put codestream back where it was and return 0. [USE_MACHINE_REG_H]: Include not Move include of a.out.h above . (i386_frame_find_saved_regs): Make locals signed. (i386_frame_find_saved_regs, i386_push_dummy_frame, i386_pop_frame): Use REGISTER_BYTES, REGISTER_RAW_SIZE, etc. to deal with floating point registers. Wed Mar 28 18:33:40 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * Makefile.dist (OTHERS): Add gdb.dvi. (gdb.dvi): New rule. * breakpoint.c (_initialize_breakpoint): Clean up docstrings so as not to mention subcommands (e.g. auto-display). Call add_cmd not add_abbrev_cmd for "disable breakpoint" and put it in class_alias. * breakpoint.c (set_breakpoint_count): New function. (set_breakpoint, break_command_1): Use it. * breakpoint.c (get_number): New function. (*_command, map_breakpoint_numbers): Use it. * infptrace.c (write_inferior_memory): Remove remote_debugging stuff (is handled in core.c). (read_inferior_memory): Remove #if 0'd out remote_debugging code. Tue Mar 27 16:51:27 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * inferior.h: Include frame.h. * findvar.c (write_register): Replace sun4 #ifdef with check of CANNOT_STORE_REGISTER. xm-sparc.h: Define CANNOT_STORE_REGISTER. * sparc-tdep.c: Remove superfluous declaration of get_breakpoint_commands. * breakpoint.{c,h}: Add bpstat stuff. bpstat_do_action: Re-work do_breakpoint_commands into this. main.c (command_loop): Call bpstat_do_action not do_breakpoint_commands. inferior.h, infrun.c, breakpoint.c, infcmd.c: Rework breakpoint_commands and stop_breakpoint stuff to use bpstat instead. * infcmd.c (program_info): "info reg"->"info registers". * np1-opcode.h: Renamed from npl-opcode.h. gould-pinsn.c: Include np1-opcode.h. Makefile.dist (OPCODES): Change npl-opcode.h to np1-opcode.h * coffread.c (read_enum_type): Stop reading when we hit .eos. Mon Mar 26 15:52:35 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Version 3.90.3. * breakpoint.c (read_memory_nobpt): New function. gdbcore.h: Declare read_memory_{nobpt,check}. mips-tdep.c: Use read_memory_nobpt not breakpoint_shadow_val. Fri Mar 23 14:26:38 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * inflow.c (terminal_inferior): Reenable commented out inferior_thisrun_terminal check. (terminal_ours_1): If inferior_thisrun_terminal is nonzero, return immediately. * Makefile.dist: Rewrite DEPFILES, M_FILE, etc. stuff to deal with host & target separation. * config/*: Split into xconfig/* and tconfig/*. *-dep.c: Split into *-xdep.c and *-tdep.c. * main.c (main): Always pass two args to xrealloc. Thu Mar 22 20:29:25 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * Makefile.dist ({,dist}clean): rm {x,t}m.h not param.h xgdb.o: Remove obsolete dependency (now in depend). * arm-pinsn.c: Include arm-opcode.h not opcode.h. * mips-pinsn.c, mips-opcode.h: New files from Bothner (from release of 24 Jan 90 with mips-opcode.h patch from 1 Feb 90). * utils.c (xmalloc): Return NULL on request for 0 bytes. Wed Mar 21 13:30:08 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * config.gdb: Re-write machine stuff to deal with host & target. * xm-altos.h: Don't define HAVE_WAIT_STRUCT. * m-*.h: Split into xm-*.h and tm-*.h. * infrun.c (wait_for_inferior): Put #ifdef sony_news code in regardless of machine. * symtab.c (decode_line_1): Add quotes and capitalize error message "no class, struct, or union named". * Makefile.dist (cplus-dem.o): Compile with -Dnounderscore. * stack.c (print_frame_info): Use print_symbol to print function name. * symtab.c (output_source_filename): Don't print a comma if we are skipping a filename already printed. Tue Mar 20 10:48:54 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * symtab.c (output_source_filename): Don't print a filename more than once. * utils.c (fprint_symbol): New function. defs.h: Decalare it. various: Use fprint_symbol to print symbol names. Makefile.dist (SFILES, OBS): Add cplus-dem.{c,o}. Mon Mar 19 17:11:03 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * coffread.c (read_file_hdr): Add MC68K??MAGIC. * coffread.c (read_coff_symtab): Ignore swbeg and string label symbols. * coffread.c (read_coff_symtab): Increment num_object_files in case C_STAT not C_FILE. New variable in_source_file. Set it in case C_FILE. Check it in case C_STAT. * coffread.c [FUNCTION_EPILOGUE_SIZE]: New code. m-umax.h (FUNCTION_EPILOGUE_SIZE): Define. * config/3b1: New file. * config/sun*: Print message warning people to use GAS with GCC. Sun Mar 18 02:56:40 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * infcmd.c (run_stack_dummy): Change error message. * m-68k.h (REGISTER_VIRTUAL_TYPE): Make pc, fp, sp char *. * m-mips.h (LONGEST, BUILTIN_TYPE_LONGEST): Remove. Sat Mar 17 21:27:49 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * mips-dep.c: Remove infptrace.c stuff. * m-bigmips.h: New file. m-mips.h [MIPSEB]: Remove *_BIG_ENDIAN stuff. * m-sparc.h (FIX_CALL_DUMMY): Do not insert unimp instruction if function was compiled with gcc. * m-mips.h: Remove FIX_CALL_DUMMY_ALIGNED and make FIX_CALL_DUMMY use new args. * valops.c (call_function): New args to FIX_CALL_DUMMY. m-*.h (FIX_CALL_DUMMY): Take new args. * values.c (using_struct_return): New parameter gcc_p. valops.c (call_function): New variable using_gcc. valops.c (call_function) [REG_STRUCT_HAS_ADDR]: New code. * m-mips.h, mips-dep.c: New files from Forin. m-mips.h: Replace RETURN_STRUCT_BY_REF with USE_STRUCT_CONVENTION. Fri Mar 16 13:17:19 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Makefile.dist: Add some dependencies of m-*.h files. (HFILES): Add m-68k.h. * dbxread.c (read_struct_type): Put "operator+" not "operator +" in symtab. * core.c: Split read_memory into read_memory_check and read_memory. breakpoint.c (insert_breakpoints): If can't read memory, tell user that error was due to seting breakpoints. Thu Mar 15 11:47:19 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * infrun.c [COFF_ENCAPSULATE]: Include a.out.encap.h. * blockframe.c (FRAMELESS_LOOK_FOR_PROLOGUE): Make it a function. various m-*.h: Call function not macro. frame.h: Declare the function. Wed Mar 14 02:44:51 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * sparc-dep.c: Include signame.h. * sparc-pinsn.c (print_insn): When looking for sethi before delayed branch, call read_memory_noerr not read_memory. * m-isi.h, m-sun3.h, m-news.h, m-hp300bsd.h, m-altos.h, m-hp300hpux.h, m-sun2.h: Merge machine stuff except inferior function call stuff into new file m-68k.h. Create m-3b1.h. Tue Mar 13 21:34:33 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * inflow.c (new_tty): If can't open tty, print error message before exiting. * blockframe.c: Remove declaration of psymtab_to_symtab. symtab.h: Declare psymtab_to_symtab. blockframe.c: Remove declarations of block_for_pc and find_pc_function_start. frame.h: Add declarations of block_for_pc and find_pc_function_start. Remove declaration of nonexistent function find_pc_function. values.c: include frame.h instead of declaring block_for_pc. * Version 3.90.2. Mon Mar 12 14:20:06 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * main.c (main): Delete superfluous "e" from long_options. Sat Mar 10 15:47:23 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * valprint.c (val_print): Print <%d bit integer> not just . * dbxread.c (error_type): Fix loop that finds '\0' so that on exit, *pp points to the '\0', not the character after. (read_type): Make sure that places which call read_type and then try to read more input stop immediately with another error upon encountering '\0'. * dbxread.c (read_range_type): Fix check for large signed integral type to match comment and reality. Set TYPE_LENGTH based on n2bits for signed, n3bits for unsigned. * infcmd.c (cont_command): Print warning message if we decide to ignore the argument. * gdb.texinfo (attach): @xref{Attach} -> @xref{Remote}. Fri Mar 9 16:26:47 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * symtab.h (address_class): Reinstate LOC_EXTERNAL with rewritten comment. * expread.y (yyerror, parse_c_1): Make yyerror take a char * arg. * main.c (symbol_completion_function): Don't call error() on "info jkldskf". * m-npl.h (USE_STRUCT_CONVENTION): Change >= to >. Thu Mar 8 00:19:01 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * symseg.h: Nuke more symseg references including LOC_EXTERNAL. Put contents of symseg.h into symtab.h and remove symseg.h. Wed Mar 7 18:02:15 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * symtab.h (SYMBOL_LINE): New macro. symtab.c (decode_line_1): Accept variable as well as function. Lookup variable/function in selected block if no file specified. printcmd.c: #if 0 out whereis_command. * command.c (do_setshow_command): Call function with additional argument C. main.c (set_history_size_command): Take argument C. (set_verbose): New function to set docstring. (initialize_main): Put set_verbose in command list. command.c (lookup_cmd_1): Accept result_list NULL. * valprint.c (_initialize_valprint): Change docstring for "set unionprint" to normal set/show form. * command.c (add_show_from_set): Check that docstring starts with "Set " before assuming it does. * main.c (show_history): Call cmd_show_list. command.{c,h} (cmd_show_list): New function. command.h: Declare do_setshow_command. * command.h (cmd_list_element): New field completer. main.c (symbol_completion_function): Use it. symtab.h: Declare make_symbol_completion_list. command.c (add_cmd): Set completer. main.c, gdbcmd.h (noop_completer): New function. infcmd.c: Set completer for environment functions. * symtab.c (types_info, _initialize_symtab): #if 0 out. various: Use fputs_filtered, not fprintf_filtered(%s). * valprint.c (type_print_base): Check for integers larger than LONGEST. * sun3-dep.c: Include "signame.h" instead of directly declaring sys_siglist. Tue Mar 6 14:59:34 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * infrun.c (signals_info): Allow argument to be a signal name as well as an expression. (handle_command): Check for error from sig_number. * main.c (float_handler): Change error message. * inflow.c (create_inferior): If getenv ("SHELL") exists, use it instead of /bin/sh. * dbxread.c (read_dbx_symtab, case N_SO): New variable first_symnum. Pass it to {start,end}_psymtab. * dbxread.c (read_ofile_symtab): Increment symbuf_idx and symnum when calling process_symbol_pair. * symtab.c (sources_info, output_source_filename): Re-write so output_source_filename takes a first parameter instead of a next one. * dbxread.c (read_dbx_symtab, case N_SO): When incrementing symbuf_idx, increment symnum also. * values.c (set_internalvar_component): Use VALUE_CONTENTS, not VALUE_CONTENTS_RAW. * symmisc.c (free_symtab): Don't free filename (now in symbol_obstack). * environ.c (init_environ): Copy entire string, including terminating '\0'. * value.h, values.c: Rename value_lazy to value_fetch_lazy. values.c (value_of_internalvar): Call value_fetch_lazy. * dbxread.c (read_huge_number): Return an error on encountering a large decimal number. * dbxread.c (read_huge_number): Reverse sense of overflow test. * valprint.c (val_print, case TYPE_CODE_INT): Check for integers larger than LONGEST. * dbxread.c (read_ofile_symtab): When calling process_one_symbol, call it with desc and value rather than with bufp->n_{desc,value}. * defs.h (LONG_MAX): Define. * sun3-dep.c: Declare sys_siglist. * infptrace.c: Move include of gdbcore.h after a.out.h * Makefile.dist (expread.o, mcheck.o): Remove leading "./" not leading ".". * m-hp300hpux.h [!HPUX_VERSION_5]: Define KERNEL_U_ADDR_HPUX. infptrace.c [KERNEL_U_ADDR_HPUX] [KERNEL_U_ADDR_BSD]: Set kernel_u_addr using nlist(). m-hp300bsd.h: Define KERNEL_U_ADDR_BSD. Mon Mar 5 16:52:41 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * dbxread.c (read_dbx_symtab): If value of .o symbol is crazy, don't end psymtab. * dbxread.c (read_dbx_symtab): Ignore first of a pair of N_SO when both appear. (start_subfile, start_symtab): Extra parameter dirname. (start_subfile): Use obsavestring, not savestring, for name. various: Call start_{subfile,symtab} with extra argument. (end_symtab): Set dirname field in symtab. (read_ofile_symtab): Call process_symbol_pair on pair of N_SO. (process_symbol_pair): New function. symtab.h (symtab): New field dirname. source.c (open_source_file): New function. source.c: Use open_source_file instead of openp where appropriate. * defs.h (TARGET_CHAR_BIT): Define. Sun Mar 4 13:11:48 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * dbxread.c (fill_symbuf): Print error messages nicely. * Makefile.dist (SFILES): Put standalone.c at end. * Makefile.dist (alldeps.mak): Put out backslash after arm-convert.s. * symtab.{c,h} (builtin_type_error): New type. symseg.h (type_code): Add TYPE_CODE_ERROR. valprint.c (val_print, type_print_base), values.c (using_struct_return, set_return_value): Check for and deal with TYPE_CODE_ERROR. dbxread.c (error_type): New function (read_type and subroutines): Call error_type instead of error. * dbxread.c (read_huge_number): New function. (read_range_type): Use read_huge_number and check results to see if it is a large integral type. * symmisc.c: Remove symseg stuff. * Gould NP1 changes from (or inspired by) chpmjd@gdr.bath.ac.uk dbxread.c (read_dbx_symtab) [N_NBSTS]: Treat this and N_NBLCS like N_LCSYM, etc. (process_one_symbol) [BLOCK_ADDRESS_ABSOLUTE]: New code. m-npl.h (USE_STRUCT_CONVENTION): Add. (IGNORE_SYMBOL): Add 0xa4. (END_OF_TEXT_DEFAULT): Remove. (STRING_TABLE_OFFSET): don't add sizeof(int). [!HAVE_VPRINTF]: Define vprintf to be doprnt, not printf. (BLOCK_ADDRESS_ABSOLUTE): Define. (BREAKPOINT): Pad to size of machine word. (SAVED_PC_AFTER_CALL): Remove ` at start of line (!). (R2_REGNUM): Define. (SP_REGNUM, FP_REGNUM): Switch definitions. (REGISTER_U_ADDR): Use FP_REGNUM in place of SP_REGNUM. (STORE_STRUCT_RETURN, EXTACT_RETURN_VALUE, STORE_RETURN_VALUE, call function stuff): Replace bogus definitions with correct ones for NP1. (CANNOT_EXECUTE_STACK): Define. (FRAME_LOCALS_ADDRESS): Don't add 80. (FRAME_FIND_SAVED_REGS): Also get SP. gould-pinsn.c (findframe): Move framechain declaration outside #if 0. infptrace.c (write_inferior_memory): Check addr against text_end and use PT_WRITE_I or PT_WRITE_D as appropriate. (store_inferior_registers): Don't try to write registers in CANNOT_STORE_REGISTER. m-npl.h (CANNOT_STORE_REGISTER): Define. npl-opcode.h (lil): 0xf8080000 -> 0xf80b0000. * munch: Distinguish between BSD and System V nm by actually seeing what output from nm looks like. Fri Mar 2 13:43:36 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * printcmd.c (print_frame_args): Change highest_offset to point to next unprinted arg. * main.c (main): Print "type help for list of commands" along with the version. Follow it with a blank line. Thu Mar 1 14:49:26 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * valprint.c: Move print_address for function from value_print to val_print. Wed Feb 28 15:06:12 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Makefile.dist (m-sun4os4.h): Depend on m-sparc.h * Makefile.dist (version.c): Depend on Makefile.dist, not Makefile. * Makefile.dist: Change MAKEFILES to Makefiles. * symtab.h: Declare get_sym_file. core.c: Include symtab.h. * Move signal name stuff from utils.c to signame.c Move signal name stuff from defs.h to signame.h. Makefile.dist (SFILES, HFILES, OBS): Add signame.{c,h,o}. Mon Feb 26 12:03:12 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * command.c (add_cmd): Don't call savestring on name. Sun Feb 25 15:52:18 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * printcmd.c (print_frame_args): Make highest_offset an int. New variable args_printed. (print_frame_nameless_args): Remove parameter end and add num and first. (print_frame_args): Change call to print_frame_nameless_args. Fri Feb 23 21:40:15 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * stack.c (up_command, down_command): Only print stack frame if from_tty. Thu Feb 22 12:01:36 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * expread.y: Inlcude value.h and don't cast return value from lookup_internalvar. * infrun.c: Remove code in #ifdef UMAX_PTRACE. * values.c (convenience_info): Print in form "$foo = 5". Don't print "Debugger convenience variables:" before first one. * Makefile.dist: Remove ADD_FILES from CLIBS. (gdb, kdb, xgdb): Put in ADD_FILES as well as CLIBS. * m-pyr.h: #if 0 out call dummy stuff. Put in POP_FRAME which just calls error(). valops.c: If CALL_DUMMY is not defined, put in dummy call_function which just prints an error message. Tue Feb 20 22:11:40 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * breakpoint.c (commands_command): Add arg from_tty. * main.c (main): Put if (!setjmp (to_top_level)) around calls to *_command made in response to command line arguments. Mon Feb 19 13:58:28 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * main.c (main): Use getopt_long_only. Move one-character options to long_options. Remove entries which are just unambiguous abbreviations of other options. * command.h: Add types cmd_types and var_types. Add fields type, var_type, and var to struct cmd_list_element. command.c (add_set_cmd, add_set_from_show): New functions. (add_cmd): Set c->var_type. (add_abbrev_cmd): Call add_cmd instead of duplicating code. main.c: Add showlist. Move parse_binary_operation from main.c to command.c. command.c (do_setshow_command): New function. gdbcmd.h: New file. Makefile.dist: Add gdbcmd.h. many files: Include gdbcmd.h, use add_set_cmd and add_show_from_set. Replace info * with show * where appropriate. utils.c (fputs_filtered): Use UINT_MAX in lines_per_page to mean no paging. defs.h: Define UINT_MAX. infcmd.c (run_command): Use execute_command, not set_args_command. main.c (execute_command): Call do_setshow_command if necessary. main.c (show_command, show_history): New functions. main.c (initialize_main): Call add_prefix_cmd for show and show history. * coffread.c (enter_linenos): Print error if file_offset < linetab_offset. Sun Feb 18 15:37:05 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * convex-dep.c (comm_registers_info): Fix typo. ("argc"->"arg"). Wed Feb 14 20:45:14 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * config.gdb: Create Makefile with make. * Makefile.dist, config.gdb: Move "srcdir=" line from Makefile.dist to new file Makefile.srcdir. * valprint.c: Include . * value.h: Declare value_coerce_function. * findvar.c: Add missing " after #include "gdbcore.h * main.c (main): Re-write command parsing to use getopt. On "gdb +help" print options with '+' not '-'. Makefile.dist: Add getopt. Tue Feb 13 00:08:27 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Makefile.dist: Add "srcdir=." config.gdb: Edit srcdir= rather than adding it to the beginning. * pyr-dep.c: Make global_reg_offset, last_frame_offset not static. Move definition of reg_stack_offset to core.c [REG_STACK_SEGMENT]. * config/pyramid: Print message about alloca. * breakpoint.c (clear_command): When printing "no breakpoint" error, only use arg if non-NULL. * core.c (read_memory): Rename to read_memory_noerr. (read_memory): New function which calls read_memory and checks for err. gdbcore.h: Declare all extern core.c functions. move myread from core.c to utils.c. declare it in defs.h. (read_memory_integer): move from infcmd.c to core.c. gdbcore.h: Declare it. Many places: Remove error checking on read_memory, or call read_memory_noerr instead. Include "gdbcore.h" if calling either. * value.h (COERCE_ARRAY): Coerce functions to function pointers. valops.c (value_coerce_function): New function. * core.c, convex-dep.c, arm-dep.c (xfer_core_file): Return EIO if address out of bounds. * m-arm.h, arm-dep.c arm-pinsn.c arm-opcode.h: New files. dbxread.c, m-convex.h (VARIABLES_INSIDE_BLOCK): Add gcc_p parameter. Makefile.dist (alldeps.mak): Special case for arm-convert.s. dbxread.c (define_symbol): Check for local based on it not being any one of the known deftypes. values.c (using_struct_return): Use new macro USE_STRUCT_CONVENTION. * Makefile.dist, config.gdb: Put in srcdir stuff. Mon Feb 12 22:46:16 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * breakpoint.c: Add addr_string and cond_string fields to struct breakpoint. (break_command_1): Set them. Use mention (). (mention): Create with code from break_command_1. (breakpoint_re_set): New function. (breakpoint_clear): Remove. (condition_command): Set cond_string. (breakpoint_delete): Free cond_string and addr_string. Declare parse_c_1's type and remove casts to struct expression *. symmisc.c (free_all_symtabs): Don't call breakpoint_clear. dbxread.c, coffread.c (reread_symbols): Call breakpoint_re_set, Include breakpoint.h. breakpoint.h: New file. dbxread.c: Move declaration of symmisc.c functions to symtab.h. Sun Feb 11 17:29:23 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * symtab.c: Make lookup_block_symtab extern. symtab.h: Declare it. valops.c (value_of_this): Use it. Fri Feb 9 08:59:37 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * config/hp300hpux: Print message telling people to use gcc. * value.h: Declare print_floating. printcmd.c (print_scalar_formatted, case 'f'): Use print_floating. valprint.c (val_print, case TYPE_CODE_FLT): Use print_floating. valprint.c (print_floating): Make this function out of is_nan and the code which was in val_print. Put parentheses around high & 0xfffff. Print sign and fraction for NaN's. Print 17 digits not 16 for doubles. (is_nan): Remove. m-news.h, m-sun3.h: Define IEEE_FLOAT. * Rename gld-pinsn.c to gould-pinsn.c. config/{pn,npl}: Change name of gld-pinsn.c Tue Feb 6 00:25:36 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * infptrace.c: Define PT_ATTACH if not defined. m-hp300hpux.h: Define ATTACH_DETACH. * main.c (initialize_main): Change alias class to aliases. * dbxread.c: Search and destroy references to symsegs. Also remove some #if 0'd code. * core.c: Remove reread_exec. dbxread.c (reread_symbols): New function. dbxread.c (symbol_file_command): Set symfile_mtime. coffread.c: Same. infcmd.c (run_command): Call reread_symbols not reread_exec. * valprint.c (val_print): When printing string after char *, print it for "" just like any other string. * core.c (reread_exec): New procedure. infcmd.c (run_command): Call reread_exec. * coffread.c (symbol_file_command): Add from_tty. * dbxread.c (symbol_file_command): Only ask about loading new symbol table if from_tty. Mon Feb 5 02:25:25 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * inflow.c (inferior_died): Call breakpoint_clear_ignore_counts. * Makefile.dist (OBS): Remove dbxread.o and coffread.o. * config.gdb: Ignore files ending in '#' in config. * stack.c (backtrace_command): Add QUIT to get_prev_frame loops. Sat Feb 3 22:25:09 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * Makefile.dist (YACC): Don't use -v. Fri Feb 2 19:26:50 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * createtags: Only change .o to .c at end of name. * Makefile.dist (alldeps.mak): new target. (Makefile): add alldeps.mak. (SOURCES): remove PINSNS. (TAGFILES: use ALLPARAM. (gdb.tar): add config/. * config.gdb: Check for M_FILE= not #param.h config/*: Make sure M_FILE= exists with space after M_FILE=. Makefile.dist (TAGS): Pass M_FILE and DEPFILES. createtags: Change .o to .c. Remove special tests for dep.c etc. * dbxread.c, coffread.c: Don't check COFF_FORMAT and READ_DBX_FORMAT. Makefile.dist: Move {dbx,coff}read.c from SFILES to ALLDEPFILES. config/*: add dbxread.o or coffread.o to depfiles. * Makefile.dist (depend): Depend on $(SOURCES), not force. Thu Feb 1 17:43:54 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * symmisc.c (print_symbol): Print newline after label. Wed Jan 31 22:35:38 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * dbxread.c (read_addl_syms): Remove code that checks for _etext. Move end_of_text_addr into read_dbx_symtab. (read_dbx_symtab): #if 0 out code which checks for _etext. Tue Jan 30 15:40:19 1990 Jim Kingdon (kingdon at albert.ai.mit.edu) * Makefile.dist (gdb.tar): Use readline's "make readline.tar" instead of having a list of readline files. * infrun.c (normal_stop): #if 0 out "you have found a bug in sh". * munch (-DSYSV): Check for .text at end of name. Optionally allow extra underscore before initialize. Remove space between #! and /bin/sh. * m-merlin.h: Put in clarifying comments about SHELL_FILE. Makefile.dist (install): Execute M_INSTALL. config/merlin: Define M_INSTALL. Mon Jan 29 04:32:09 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * inflow.c: Change all references to signal handlers from int (*)() to void (*)(). * main.c: Declare init_signals before use & make it void. Declare initialize_all_files. * Makefile.dist (config.status): New target. Sat Jan 27 00:19:50 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * defs.h (enum command_class): Remove comma after last element. * Makefile.dist (gdb.tar.Z): Use compress bar rather than deleting gdb.tar.Z before starting. * dbxread.c (process_one_symbol): Compare context_stack_depth with !VARIABLES_INSIDE_BLOCK, not VARIABLES_INSIDE_BLOCK. * mcheck.c: Put whole file in #if defined MALLOC_RANGE_CHECK. * mcheck.c (checkhdr): Call fatal_dump_core not abort. * mcheck.c: Copy from malloc distribution. * main.c (main): Call init_malloc (). * main.c (initialize_signals): Rename to init_signals. Fri Jan 26 00:53:23 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * *dep.c: Make core_file_command return void. * gdbcore.h [!KERNEL_U_ADDR]: Declare kernel_u_addr. infptrace.c [!KERNEL_U_ADDR]: Make it extern. * altos-dep.c (NBPG, UPAGES): Wrap #define in #if !defined. * m-pn.h (GOULD_PN): Define. *-pinsn.c: Include actual opcode table not just opcode.h * main.c [ALIGN_STACK_ON_STARTUP]: New code. m-i386.h: Define ALIGN_STACK_ON_STARTUP. * m-merlin.h (NO_SIGINTERRUPT, SHELL_FILE): Define. * Move code from infptrace [USE_PTRACE_GETREGS] to sun3-dep.c. m-sun{2,3}.h, m-sparc.h: Define FETCH_INFERIOR_REGISTERS. * Makefile.dist, config.gdb, config/*: Re-write to use machine-dependent makefiles instead of cpp. * m-hp300hpux.h: Define FETCH_INFERIOR_REGISTERS. infptrace.c: Put {fetch,store}_inferior_registers inside #if !defined FETCH_INFERIOR_REGISTERS. * Split execcore.c into exec.c and coredep.c. Move a bunch of stuff from coredep.c and *dep.c to gdbcore.h. * infptrace.c ({fetch,store}_inferior_registers): Use U_REGS_OFFSET to set offset. m-umax.h: Define U_REGS_OFFSET. * m-umax.h: Define PTRACE_{ATTACH,DETACH}. * m-i386.h (N_SET_MAGIC): Define. m-i386gas.h: add #undef N_SET_MAGIC. Thu Jan 25 18:39:45 1990 Jim Kingdon (kingdon at mole.ai.mit.edu) * m-hp300bsd.h: Remove KERNEL_U_ADDR. * infptrace.c [!KERNEL_U_ADDR]: Get address of kernel u area at runtime. * infptrace.c: Replace numbers with PT_KILL, etc. (store_inferior_registers): Loop for as many words are in the register. * infptrace.c [NO_SINGLE_STEP]: Call single_step(). * kill_inferior{,_fast}: Declare as returning void. * m-sun3.h (USE_PTRACE_GETREGS): Define. * execcore.c: Add IS_OBJECT_FILE & related stuff. * infptrace.c: Include . [ATTACH_DETACH] [USE_PTRACE_GETREGS]: New code. * Split default-dep.c into infptrace.c and execcore.c. * valprint.c [IEEE_FLOAT]: Change void * to char *. * breakpoint.c: Change printf_filtered(%s) to fputs_filtered. Wed Jan 24 00:35:52 1990 Jim Kingdon (kingdon at pogo.ai.mit.edu) * dbxread.c (symbol_file_command): When freeing everything, free the string table too. * Makefile.dist (gdb1): add "rm -f gdb1". * printcmd.c (print_scalar_formatted): If size is 0, use 'b' 'h', 'w', or 'g' depending on the type. * stack.c (backtrace_command): Read in symbols for frames we'll print before printing them. * valops.c (value_at): Don't print "I/O error" on EIO from ptrace. Don't print "out of bounds" for any ptrace error except EIO. * valprint.c (type_print_base, case TYPE_CODE_ENUM): Print "FOO = 5" not "FOO : 5". * symtab.{c,h}: Make lookup_misc_func extern. * Makefile.dist: Define VERSION in makefile, and generate version.c automatically. (gdb.tar): Use gdb-$(VERSION), not dist-gdb. * expread.y (yylex): Use lookup_primitive_typename to cut down on calls to lookup_symbol. symtab.{c,h} (lookup_primitive_typename): New function. (lookup_typename): Use it. * symtab.{c,h} (check_stub_type): New function. valprint.c (type_print_base, val_print, type_print_derivation_info), values.c (allocate_value): Call it. * printcmd.c (whereis_command): New function. symtab.c (lookup_symbol): Add symtab parameter. various: Pass additional argument to lookup_symbol. symseg.h (struct symbol): Add line field. dbxread.c (define_symbol): Set sym->line. * dbxread.c (symbol_file_command): Read string table into malloc'd memory (symfile_string_table) and leave it there. (psymtab_to_symtab): Use symfile_string_table. * utils.c (sig_abbrev): Return NULL if not found. infrun.c (sig_print_{header,info}): Consolidate duplicated code from handle_command, signals_info. (sig_print_info): Just print number if no name from sig_abbrev. * Makefile.dist (OTHERS): Add ChangeLog-3.x * infrun.c (restore_inferior_status): #if 0 out "Unable to restore previously selected frame" error message. * infrun.c (signals_info, handle_command): Print signal abbrevs along with numbers. * infrun.c (handle_command): Accept symbol signal names. * utils.c (sig_{number,abbrev}, init_sig): New functions. _initialize_utils: Call init_sig for each signal. defs.h: Declare them. * default-dep.c (read_inferior_memory): Check quit_flag in fetch loop. * Changes for lazy fetching (speeds things up for big objects): value.h (struct value): New field lazy. VALUE_CONTENTS_RAW, VALUE_LAZY, value_at_lazy: New. findvar.c (read_var_value): Set lazy instead of fetching. various: Copy into VALUE_CONTENTS_RAW, not VALUE_CONTENTS. valops.c: Add value_at_lazy, value_lazy. various: Call value_at_lazy instead of value_at. * symtab.h (LONGEST): Define. * m-*.h (LONGEST, BUILTIN_TYPE_LONGEST): Delete (in symtab.h). * infrun.c (wait_for_inferior): #if 0 out stop if ABOUT_TO_RETURN * version.c: Change version number to 4.0development For older changes see ChangeLog-3.x Local Variables: mode: indented-text left-margin: 8 fill-column: 74 version-control: never End: gdb-4.13/gdb/ChangeLog-92 666 34562 1752 1035240 5376176646 13404 0ustar fnfcygnusThu Dec 31 11:06:38 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (BISON): Add comment that when bison is used, it must include the "-y" option. * c-exp.y, m2-exp.y (yyrule, yyname, yyss, yyssp, yyvs, yyvsp): Remove defines to remap non-yacc symbols, thus backing out of previous recent changes. Standard policy is that non-yacc parser generators get fixed, rather than adding bug workarounds in gdb for each new one that pops up. Expand comment to note this. * c-exp.y, m2-exp.y (YYDEBUG): Revert back to disabled by default. Thu Dec 31 09:03:02 1992 Stu Grossman (grossman at cygnus.com) * partial-stab.h (near N_BINCL): Remove redundant code in N_BINCL case. Use code in N_SOL. * paread.c: New file that contains all HPPA/HPUX symbol reading code. * dbxread.c: Remove almost all HPPA/HPUX symbol reading code. * (dbx_symfile_init): Use sizeof(long) instead of 4. * (dbx_symfile_offsets): Make static. * (pastab_build_psymtabs): New interface routine for paread to send stabs into dbxread. * gdb-stabs.h: Remove gobs of HPPA cruft. Wed Dec 30 19:47:13 1992 Fred Fish (fnf@cygnus.com) * c-exp.y, m2-exp.y (yyrule, yyname): Remap like other yy* names for byacc. * ch-exp.y (yyrule, yyname): Remap like other yy* names for byacc. * c-exp.y, m2-exp.y (yyreds, yytoks): Remap like other yy* names. * c-exp.y, m2-exp.y (YYDEBUG): Define if MAINTENANCE_CMDS is defined and YYDEBUG is not already defined. * c-exp.y (strncmp): Replace throughout with STREQN, missed them during the previous replacements. * printcmd.c (_initialize_printcmd): Update internal documentation for "set" command to note that the assignment syntax is language dependent. * ch-exp.y (yyreds, yytoks): Remap like other yy* names. * ch-exp.y (YYDEBUG): Define if MAINTENANCE_CMDS is defined and YYDEBUG is not already defined. * ch-exp.y (GDB_REGNAME, GDB_LAST, GDB_VARIABLE, GDB_ASSIGNMENT, single_assignment_action): New terminals and nonterminal for gdb extensions to chill expression grammer. * ch-exp.y (match_dollar_tokens): Lexer routine to match all tokens that start with '$' (register names, convenience vars, etc). * ch-exp.y (tokentab2): Add GDB_ASSIGNMENT. * ch-exp.y (yylex): Call match_dollar_tokens. Mon Dec 28 15:00:01 1992 Stu Grossman (grossman at cygnus.com) * hppah-tdep.c (skip_trampoline_code): Use new macros for accessing minimal symbol data. * infcmd.c (read_pc): Use #ifdef, not #if. * symfile.c (syms_from_objfile): Add CONST to decl for targets. * tm-hppa.h (FIX_CALL_DUMMY): Use new macros for accessing minimal symbol data. * hppah-tdep.c (frame_saved_pc): Use better test for outermost frame. Use find_return_regnum to find the caller. * (find_unwind_entry): New routine to locate stack frame info associated with a procedure. This looks in the $UNWIND_START$ section in the SOM file. * (find_return_regnum): New routine. Uses find_unwind_entry() to figure out where the caller's return address is stored. * (find_proc_framesize): New routine. Uses find_unwind_entry() to figure out the frame size for a procedure. * (saved_pc_after_call): New routine, moved from tm-hppa.h. * (init_extra_frame_info): New routine. Corrects PC and FP for outermost frame if necessary. * (frame_chain): New routine, moved from tm-hppa.h. * (skip_trampoline_code): Handle computed function calls (ie: calls from $$dyncall). * (unwind_command): Temporary support function to allow user to control/observe aspects of the unwind (stack frame) info. * infcmd.c (read_pc): (Temporary), put a hack in to see if the PC was in a system call, if so, then read the PC from r31. * tm-hppah.h (SKIP_TRAMPOLINE_CODE, IN_SOLIB_TRAMPOLINE): Deal with extra arg for skip_trampoline_code(). * (INIT_EXTRA_FRAME_INFO): Define to point at subr (see above). * (FRAME_CHAIN, FRAME_CHAIN_VALID): Turn into real subroutines. * tm-hppa.h (SAVED_PC_AFTER_CALL): Turn into real subroutine. Sun Dec 27 17:34:15 1992 Fred Fish (fnf@cygnus.com) * dbxread.c (dbx_symfile_init, elfstab_build_psymtabs): Call new bfd_get_size() and verify that string table is no larger than the file that is supposed to contain it. * symfile.c (syms_from_objfile): Only complain about configured NAMES_HAVE_UNDERSCORE differences between gdb and bfd if the current target is the default BFD target. Sat Dec 26 20:51:41 1992 Fred Fish (fnf@cygnus.com) * solib.c (BKPT_AT_MAIN): Change to BKPT_AT_SYMBOL. * solib.c (bkpt_names): New array of symbol names to try to use for the "mapping complete" breakpoint. Configurable define SOLIB_BKPT_NAME is first one to try. * solib.c (find_solib): Test debug_base for nonzero rather than just greater than zero. * solib.c (enable_break): Use bkpt_names to look up address at which to set "mapping complete" breakpoint. Tue Dec 22 20:33:38 1992 Fred Fish (fnf@cygnus.com) * defs.h (STRCMP, STREQ, STREQN): New macros. * defs.h (demangle_and_match): Remove prototype. * dwarfread.c (STREQ, STREQN): Remove macros, replaced with STREQ and STREQN defined in defs.h. * dwarfread.c (set_cu_language): For completely unknown languages, try to deduce the language from the filename. Retain behavior that for known languages we don't know how to handle, we use language_unknown. * dwarfread.c (enum_type, symthesize_typedef): Initialize language and demangled name fields in symbol. * dwarfread.c, mipsread.c, partial-stab.h: For all usages of ADD_PSYMBOL_TO_LIST, add language and objfile parameters. * dwarfread.c (new_symbol): Attempt to demangle C++ symbol names and cache the results in SYMBOL_DEMANGLED_NAME for the symbol. * elfread.c (STREQ): Remove macro, use STREQ defined in defs.h. Replace usages throughout. * elfread.c (demangle.h): Include. * elfread.c (record_minimal_symbol): Remove prototype and function. * gdbtypes.h, symtab.h (B_SET, B_CLR, B_TST, B_TYPE, B_BYTES, B_CLRALL): Moved from symtab.h to gdbtypes.h. * infcmd.c (jump_command): Remove code to demangle name and add it to a cleanup list. Now just use SYMBOL_DEMANGLED_NAME. * minsyms.c (demangle.h): Include. * minsyms.c (lookup_minimal_symbol): Indent comment to match code. * minsyms.c (install_minimal_symbols): Attempt to demangle symbol names as C++ names, and cache them in SYMBOL_DEMANGLED_NAME. * mipsread.c (psymtab_language): Add static variable. * stabsread.c (demangle.h): Include. * stabsread.c (define_symbol): Attempt to demangle C++ symbol names and cache them in the SYMBOL_DEMANGLED_NAME field. * stack.c (return_command): Remove explicit demangling of name and use of cleanups. Just use SYMBOL_DEMANGLED_NAME. * symfile.c (demangle.h): Include. * symfile.c (add_psymbol_to_list, add_psymbol_addr_to_list): Fix to match macros in symfile.h and allow them to be compiled if INLINE_ADD_PSYMBOL is not true. * symfile.h (INLINE_ADD_PSYMBOL): Default to true if not set. * symfile.h (ADD_PSYMBOL_*): Add language and objfile parameters. Add code to demangle and cache C++ symbol names. Use macro form if INLINE_ADD_PSYMBOL is true, otherwise use C function form. * symmisc.c (add_psymbol_to_list, add_psymbol_addr_to_list): Remove, also defined in symfile.c, which we already fixed. * symtab.c (expensive_mangler): Remove prototype and function. * symtab.c (find_methods): Remove physnames parameter and fix prototype to match. * symtab.c (completion_list_add_symbol): Name changed to completion_list_add_name. * symtab.c (COMPLETION_LIST_ADD_SYMBOL): New macro, adds both the normal symbol name and the cached C++ demangled name. * symtab.c (lookup_demangled_partial_symbol, lookup_demangled_block_symbol): Remove prototypes and functions. * symtab.c (lookup_symbol): Remove use of expensive_mangler, use lookup_block_symbol instead of lookup_demangled_block_symbol. Remove code to try demangling names and matching them. * symtab.c (lookup_partial_symbol, lookup_block_symbol): Fix to try matching the cached demangled name if no match is found using the regular symbol name. * symtab.c (find_methods): Remove unused physnames array. * symtab.c (name_match, NAME_MATCH): Remove function and macro, replaced with SYMBOL_MATCHES_REGEXP from symtab.h. * symtab.c (completion_list_add_symbol): Rewrite to use cached C++ demangled symbol names. * symtab.h: Much reformatting of structures and such to add whitespace to make them more readable, and make them more consistent with other gdb structure definitions. * symtab.h (general_symbol_info): New struct containing fields common to all symbols. * symtab.h (SYMBOL_LANGUAGE, SYMBOL_DEMANGLED_NAME, SYMBOL_SOURCE_NAME, SYMBOL_LINKAGE_NAME, SYMBOL_MATCHES_NAME, SYMBOL_MATCHES_REGEXP, MSYMBOL_INFO, MSYMBOL_TYPE): New macros. * symtab. (struct minimal_symbol, struct partial_symbol, struct symbol): Use general_symbol_info struct. * utils.c (demangle_and_match): Remove, no longer used. * valops.c (demangle.h): Include. * xcoffexec.c (eq): Remove macro, replace usages with STREQ. * blockframe.c, breakpoint.c, c-exp.y, c-valprint.c, dbxread.c, infcmd.c, m2-exp.y, minsyms.c, objfiles.h, solib.c, stack.c, symmisc.c, symtab.c, valops.c: Replace references to minimal symbol fields with appropriate macros. * breakpoint.c, buildsym.c, c-exp.y, c-typeprint.c, c-valprint.c, coffread.c, command.c, convex-tdep.c, cp-valprint.c, dbxread.c, demangle.c, elfread.c, energize.c, environ.c, exec.c, gdbtypes.c, i960-tdep.c, infrun.c, infrun-hacked.c, language.c, main.c, minsyms.c, mipsread.c, partial-stab.h, remote-es1800.c, remote-nindy.c, remote-udi.c, rs6000-tdep.c, solib.c, source.c, sparc-pinsn.c, stabsread.c, standalone.c, state.c, stuff.c, symfile.c, symmisc.c, symtab.c, symtab.h, tm-sysv4.h, tm-ultra3.h, values.c, xcoffexec.c, xcoffread.c: Replace strcmp and strncmp usages with STREQ, STREQN, or STRCMP as appropriate. * breakpoint.c, buildsym.c, c-typeprint.c, expprint.c, findvar.c, mipsread.c, printcmd.c, source.c, stabsread.c, stack.c, symmisc.c, tm-29k.h, valops.c, values.c: Replace SYMBOL_NAME references with SYMBOL_SOURCE_NAME or SYMBOL_LINKAGE_NAME as appropriate. * buildsym.c (start_subfile, patch_subfile_names): Default the source language to what can be deduced from the filename. * buildsym.c (end_symtab): Update the source language in the allocated symtab to match what we have been using. * buildsym.h (struct subfile): Add a language field. * c-typeprint.c (c_print_type): Remove code to do explicit demangling. * dbxread.c (psymtab_language): Add static variable. * dbxread.c (start_psymtab): Initialize psymtab_language using deduce_language_from_filename. Mon Dec 21 22:24:33 1992 Fred Fish (fnf@cygnus.com) * valprint.c (val_print): Reorganize comment and add note about dependency on target byte ordering. * ch-exp.y (value_array_slice): Fix typo. * ch-valprint.c (chill_val_print): Remove C'ism that arrays of byte sized ints are assumed to be char strings and printed with string syntax. In chill, arrays of chars and arrays of bytes/ubytes are distinquishable, and printed appropriately. Mon Dec 21 18:02:35 1992 Stu Grossman (grossman at cygnus.com) * tm-hppah.h: #define NEED_TEXT_START_END for target memory read/write routines for HPUX. * hppa-pinsn.c (print_insn): Improve handling of be and ble branch targets to compute target address using const from previous instruction if necessary. * Add `Q' operator to print out bit position field various instructions. * hppah-nat.c: #include sys/param.h, and sys/user.h. General cleanups, use new code from Utah. * (store_inferior_registers): Update to new code from Utah. * (initialize_kernel_u_addr): Re-enable decl of struct user u. * (fetch_register): Clear out priv level when reading PCs. * hppah-tdep.c: Get rid of gobs of KERNELDEBUG stuff. * Remove decl of errno, #include wait.h and target.h. * (frame_saved_pc): Check `flags' pseudo-register to see if we were inside of a kernel call. If so, then PC is in a different register. Also, mask out bottom two bits of all PCs so as not to confuse higher level code. * (push_dummy_frame): Create from #define in tm-hppa.h. * (find_dummy_frame_regs): Update from Utah. * (hp_pop_frame): Create from #define in tm-hppa.h. * (hp_restore_pc_queue): New, from Utah. * (hp_push_arguments): Big fixes from Utah. * (pa_do_registers_info, pa_print_registers): Only print out fp regs upon request. * (skip_trampoline_code): New routine to deal with stubs that live in nowhereland between callers and callees. * i860-tdep.c: Remove decl of attach_flag. * infrun.c (wait_for_inferior): Add new macro INSTRUCTION_NULLIFIED, which can tell if the instruction pointed at by PC will be nullified. If so, then step the target once more so as to avoid confusing the user. * (just before step_over_function:): Use stop_func_start, not stop_pc when checking for the existance of line number info. stop_func_start will reflect the proper address of the target routine, not of the stub that we may be traversing to get there. * tm-hppa.h: define SKIP_TRAMPOLINE_CODE and IN_SOLIB_TRAMPOLINE to deal with the stubs that PA compilers sometimes stick between callers and callees. Also, define FLAGS_REGNUM for access to the `flags' pseudo-reg. * (REGISTER_CONVERT_TO_VIRTUAL, REGISTER_CONVERT_TO_RAW): Use memcpy, not bcopy. * (CANNOT_STORE_REGISTER): New from Utah. Says that we can't write gr0, PC regs, and PSW! * (FRAME_FIND_SAVED_REGS): Bug fixes from Utah. * (PUSH_DUMMY_FRAME, POP_FRAME): Make into real routines in hppah-nat.c. * (CALL_DUMMY, FIX_CALL_DUMMY): Fixes from Utah. * Define struct unwind_table_entry. * valops.c (call_function_by_hand): Add another arg to FIX_CALL_DUMMY (under #ifdef GDB_TARGET_IS_HPPA). Why is this necessary? Mon Dec 21 02:17:57 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * remote-vx.c: remove include of "symfile.h", replace it with "complaints.h" Fri Dec 18 10:32:25 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.7.4. * Makefile.in (SFILES_MAINDIR): Add typeprint.c, c-typeprint.c, m2-typeprint.c, c-valprint.c cp-valprint.c m2-valprint.c. * Makefile.in (HFILES): Add valprint.h. * Makefile.in (OBS): Add typeprint.o, c-typeprint.o, m2-typeprint.o, c-valprint.o, cp-valprint.o m2-valprint.o. * typeprint.c, typeprint.h: New files for language independent type printing functions. * c-typeprint.c, m2-typeprint.c: New files for language dependent type printing functions and definitions. * valprint.h: New include file for language independent value printing definitions. * c-valprint.c, cp-valprint.c, m2-valprint.c: New files for language dependent value printing functions. * c-exp.y (production ptype): Add range_type variable and use new create_range_type function. * c-exp.y (tokentab2, tokentab3), c-lang.c (c_op_print_tab), infcmd.c (path_var_name), language.c (unk_op_print_tab), m2-lang.c (m2_op_print_tab): Change from ANSI-obsolescent "const static" to ANSI-conformant "static const". * c-exp.y (c_create_fundamental_type): Remove unused nbytes. * c-exp.y (c_language_defn, cplus_language_defn): Add c_print_type, and c_val_print. * c-lang.h (c_print_type, c_val_print): Add prototypes. * coffread.c (decode_type): Add range_type variable and call to new create_range_type function. * complaints.c (complain): Remove unused val variable. * complaints.c (_initialize_complaints): Make it void. * convex-tdep.c (value_of_trapped_internalvar): Add range_type variable and call new create_range_type function. * defs.h (enum val_prettyprint): Move enum from value.h to here so we can avoid having to include value.h just for prototypes that need the enum (thanks ANSI). * dwarfread.c (struct_type): Local anonymous_size variable is only used if !BITS_BIG_ENDIAN. * dwarfread.c (decode_subscript_data_item): Add rangetype variable and call new create_range_type function. * elfread.c (elf_symfile_read): Remove unused dbx and text_sect variables. * eval.c (evaluate_subexp): Remove unused local variable name and the statement with no side effects that initializes it. * expprint.c (print_subexp): Change local_printstr to LA_PRINT_STRING. * gdbtypes.c (create_range_type): New function that creates a range type using code fragments from object file readers as an example of what has to be initialized. * gdbtypes.c (create_array_type): Removed index_type, low_bound, and high_bound parameters, replaced with a single range_type parameter. Change function body to use passed in range_type rather than handcrafting one. * gdbtypes.h (create_range_type): Add prototype. * gdbtypes.h (create_array_type): Change prototype parameters. * infrun.c (normal_stop): Remove unused local variables tem and c. * infrun.c (hook_stop_stub): Return 0 rather than random value. * language.c (unk_lang_print_type, unk_lang_val_print): Add stub functions that call error if called. * language.c (unknown_language_defn, auto_language_defn, local_language_defn): Add initializers unk_lang_print_type and unk_lang_val_print. * language.h (struct language_defn): Reformat for larger comments, add la_print_type and la_val_print members. Add LA_PRINT_TYPE and LA_VAL_PRINT macros. Change local_printchar to LA_PRINT_CHAR and local_printstr to LA_PRINT_STRING. * m2-lang.c (m2_create_fundamental_type): Remove unused local variable nbytes. * m2-lang.c (m2_language_defn): Add initializers m2_print_type and m2_val_print. * m2-lang.h (m2_print_type, m2_val_print): Add prototypes. * main.c (execute_command): Remove unused local variable cmdlines. * main.c (echo_command), stabsread.c (read_type), printcmd.c (clear_displays), symmisc.c (block_depth), values.c (clear_value_history): Make testing of truth value of assignment result explicit. * mipsread.c (upgrade_type): Update FIXME to include future use of create_range_type. * printcmd.c (ptype_command, ptype_eval, whatis_command, whatis_exp, maintenance_print_type): Move prototypes and functions to new typeprint.c. * printcmd.c (_initialize_printcmd): Move add_com calls for ptype_command and whatis_command to new typeprint.c. * ser-bsd.c (serial_open): Remove unused variable sgttyb. * source.c (find_source_lines): Local variable c only used when LSEEK_NOT_LINEAR is defined. * stabsread.c (read_array_type): Use new create_range_type function. * stabsread.c (read_range_type): Add new index_type variable and call new create_range_type function rather than handcrafting range types. * symmisc.c (type_print_1): Change usages to LA_PRINT_TYPE. * symtab.c (typedef_print usages): Use c_typedef_print, renamed. * symtab.c (type_print_base usages): Use c_type_print_base. * symtab.c (type_print_varspec_prefix usages): Use c_type_print_varspec_prefix. * symtab.c (type_print_method_args usages): Use cp_type_print_method_args. * valprint.c: Completely ripped apart and the fragments used to create c-valprint.c, cp-valprint.c, m2-valprint.c, and valprint.h. Remaining stuff is language independent. * value.h (struct fn_field): Forward declare for prototypes. * value.h (type_print_1): Remove prototype. * value.h (enum val_prettyprint): Moved to defs.h. * value.h (typedef_print): Prototype renamed to c_typedef_print. * value.h (baseclass_offset): Add prototype. * Makefile.in (SFILES_MAINDIR): Add ch-typeprint.c, ch-valprint.c. * Makefile.in (OBS): Add ch-typeprint.o, ch-valprint.o. * ch-typeprint.c: New file for language dependent type printing. * ch-valprint.c: New file for language dependent value printing. * ch-exp.y (parse_number): Remove prototype and stub function. * ch-exp.y (decode_integer_literal): Removed unused digits and temp variables. * ch-exp.y (convert_float): Completely ifdef out for now. * ch-exp.y (tokentab2, tokentab3, tokentab4, tokentab5), ch-lang.c (chill_op_print_tab): Change from ANSI-obsolescent "const static" to ANSI-conformant "static const". * ch-exp.y (yylex): Add unhandled storage class enumeration literals to switch statement for completeness. * ch-lang.c (chill_create_fundamental_types): Remove unused nbytes variable. Change dummy type to 2 bytes to match int. Handle FT_VOID types gratuituously added to chill DWARF by compiler. Change FT_CHAR case to generate an TYPE_CODE_CHAR type rather than a one byte TYPE_CODE_INT type. * ch-lang.c (chill_language_defn): Add chill_print_type and chill_val_print. * ch-lang.h (chill_print_type, chill_val_print): Add prototypes. Thu Dec 17 00:44:57 1992 John Gilmore (gnu@cygnus.com) Eliminate uses of NAMES_HAVE_UNDERSCORE, using bfd_get_symbol_leading_char instead. * coffread.c (EXTERNAL_NAME): New macro for removing possible leading character from names. (read_coff_symtab): Use BFD's FILE *, don't open a second one. (process_coff_symbol, coff_read_struct_type, coff_read_enum_type): Replace NAMES_HAVE_UNDERSCORE with EXTERNAL_NAME. * kdb-start.c (main): Remove NAMES_HAVE_UNDERSCORE. * minsyms.c (install_minimal_symbols): Replace NAMES_HAVE_UNDERSCORE. Remove SOME_NAMES_HAVE_DOT support (apparently unused). * partial-stab.h: Replace NAMES_HAVE_UNDERSCORE. * solib.c: Replace NAMES_HAVE_UNDERSCORE. * stabsread.h: Remove NAMES_HAVE_UNDERSCORE and HASH_OFFSET. * symfile.c (syms_from_objfile): Insert debugging check to test NAMES_HAVE_UNDERSCORE setting against the BFD support. * doc/gdbint.texinfo (Host Conditionals): Remove NAMES_HAVE_UNDERSCORE, SOME_NAMES_HAVE_DOT, document MEM_FNS_DECLARED. (Target Conditionals): Remove all of the above. * xm-rs6000.h (MEM_FNS_DECLARED): Update comments. * coffread.c (read_coff_symtab, C_BLOCK): Use complain() rather than error() for .bb/.eb. Bug found by Eddie Fung, . Tue Dec 15 10:05:56 1992 Ian Lance Taylor (ian@cygnus.com) * coffread.c (decode_type): catch negative tagndx fields generated by SCO 3.2v4 cc. * exec.c: comment out string following #endif. * configure.in (i[34]86-*-sco3.2v4*): use host i386sco4. * xm-i386sco.h: include and , required by . * config/i386sco4.mh: new file; like i386sco.mh, but don't require gcc, and define const to empty to avoid SCO 3.2v4 cc bug. Tue Dec 15 04:14:24 1992 Fred Fish (fnf@cygnus.com) * complaints.c: New file, code moved from utils.c. * complaints.c (complain): Made into a varargs function. * complaints.h: New file, code moved from symfile.h. * Makefile.in (SFILES_MAINDIR): Add complaints.c. * Makefile.in (HFILES): Add complaints.h. * Makefile.in (OBS): Add complaints.o. * symfile.c (complaint_root, stop_whining, complaint_series, complain, clear_complaints, add_show_from_set for stop_whining): Moved to complaints.c. * symfile.h (struct complaint, complaint_root decl, complain prototype, clear_complaints prototype): Moved to complaints.h. * buildsym.c, coffread.c, dbxread.c, dwarfread.c, elfread.c, gdbtypes.c, mipsread.c, stbsread.c, symfile.c: Include complaints.h. Remove casts from arguments to complain(), which is now a varargs function, and remove unnecessary placeholder zero args. * defs.h (begin_line): Add prototype. * defs.h (vprintf_filtered): Add prototype. * dwarfread.c (varargs.h): Remove, no longer needed. * dwarfread.c (dwarfwarn): Remove prototype and function. * dwarfread.c (complaints): Define a bunch of complaints. * dwarfread.c (SQUAWK): Remove macro defs, convert all usages to standard complain() calls. * utils.c (begin_line): New function that ensures that whatever gets filter-printed next starts on its own line. * utils.c (vprintf_filtered): New func, like vfprintf_filtered, but to stdout (calls vfprintf_filtered internally). Tue Dec 15 02:01:00 1992 John Gilmore (gnu@cygnus.com) * remote.c: Avoid printf_filtered line limit. Suggested by Robert R. Henry, . * infcmd.c (environment_info): Ditto, for Don Allen . * main.c (main): Accept --silent as well as --quiet. Change +help to --help. Suggested by Karl Berry, . * doc/gdbint.texinfo: SWAP_HOST_AND_TARGET => SWAP_TARGET_AND_HOST. Noticed by Andy Jackson, . Mon Dec 14 23:28:15 1992 John Gilmore (gnu@cygnus.com) * tm-nindy960.h, remote-nindy.c: Lint. Mon Dec 14 18:48:52 1992 Fred Fish (fnf@cygnus.com) * gdbtypes.c (create_array_type): Complete rewrite. Now requires a optional type to decorate as an array type, the type of the index, and the bounds of the array. Records this additional info in the array type for use with languages with nonzero array bounds. * gdbtypes.h (enum type_code): Update comment for TYPE_CODE_ARRAY to note that arrays may have bounds. * gdbtypes.h (create_array_type): Update prototype. * c-exp.y (ptype production): Adjust for new create_array_type calling conventions. * coffread.c (decode_type): Call create_array_type rather than handcrafting array types. * convex-tdep.c (value_type): Remove, now use create_array_type. * convex-tdep.c (value_of_trapped_internalvar): Convert calls to vector_type into calls to create_array_type. * dwarfread.c (decode_subscr_data): Name changed to decode_subscript_data_item throughout. * dwarfread.c (decode_subscript_data_item): Rewrite to use create_array_type. Now records index type and range as well. * dwarfread.c (dwarf_read_array_type): Rewrite as part of change to use create_array_type. * dwarfread.c (read_subroutine_type): Test existing user defined types before decorating them, to ensure they are blank, and complain about it if they are not. * dwarfread.c (decode_fund_type): For unrecognized types, always return some valid type (type integer). If the unrecognized type cannot be an implementation defined type, complain as well. * m88k-tdep.c (pushed_size): Update comment for TYPE_CODE_ARRAY. * m88k-tdep.c (store_param): Update comment for TYPE_CODE_ARRAY. * mipsread.c (upgrade_type): Add FIXME comment that code to handcraft arrays should be replaced with call to create_array_type. * stabsread.c (read_array_type): Replace code to handcraft array types with call to create_array_type. * valprint.c (type_print_varspec_prefix): Minor formatting change, join lines that don't need to be split. Mon Dec 14 17:18:42 1992 Stu Grossman (grossman at cygnus.com) * convex-xdep.c, hppab-nat.c, infptrace.c: Remove decl for attach_flag, it now lives in inferior.h. * hppa-pinsn.c: Reformat opcode tables. Add function prototypes. Make most functions static. * hppah-nat.c: General cleanups, remove BSD specific code (since that all lives in hppab-nat.c). * hppah-tdep.c (frame_chain_valid), tm-hppa.h (FRAME_CHAIN): Change sense of test against inside_entry_file(). This fix is from U. of Utah. * tm-hppa.h (PUSH_DUMMY_FRAME, POP_FRAME): Use char * for 2nd arg to read/write_register_bytes(). * gdbtypes.h: Remove const from decl for cplus_struct_default to work around PA-GAS assembler bug. Also, add trailing */ to some comments. * gdbtypes.c: Remove const from decl for cplus_struct_default. Same reason as above. Wed Dec 9 19:53:25 1992 John Gilmore (gnu@cygnus.com) * mipsread.c (parse_symbol): When checking whether a structured type is an enum, check qualifiers of its first member, as well as the base type of the member. Bug found and fixed by John M. Farrell, . * vx-share/{reg.h,xdr_regs.h,xdr_regs.c}: Remove, unused. * remote-vx.c: Don't include vx-share/reg.h. * vx-share/ptrace.h: Reproduce from scratch. * config/{vxworks68,vxworks960}: Don't include xdr_regs.o. * Makefile.in: Remove references to removed files, and to removed 29k-share directories. Tue Dec 8 13:30:58 1992 Fred Fish (fnf@cygnus.com) * c-lang.c (_initialize_c_language): Name changed from _initialize_c_exp. * m2-lang.c (_initialize_m2_language): Name changed from _initialize_m2_exp. * m2-lang.c (_initialize_m2_language): Change malloc to xmalloc since it is no longer inside m2-exp.y, where it was remapped by Makefile. * c-exp.y, m2-exp.y: Migrate code that has nothing to do with expression parsing into c-lang.c and m2-lang.c respectively. * c-lang.c, m2-lang.c: New files, code migrated from c-exp.y and m2-exp.y respectively. * c-lang.h, m2-lang.h: New files, internal interfaces between c-* and m2-* files respectively. * Makefile.in (SFILES_MAINDIR): Add c-lang.c, m2-lang.c. * Makefile.in (HFILES): Add c-lang.h, m2-lang.h. * Makefile.in (OBS): Add c-lang.o, m2-lang.o. * expression.h (struct block): Forward declaration for prototypes. * language.h (struct objfile): Forward declaration for prototypes. * Makefile.in (SFILES_MAINDIR): Add ch-lang.c. * Makefile.in (HFILES): Add ch-lang.h. * Makefile.in (OBS): Add ch-lang.o. * ch-exp.y: Migrate code that has nothing to do with expression parsing into ch-lang.c. * ch-lang.c: New file, code migrated from c-exp.y. * ch-lang.h: New file, internal interface between ch-* files. * ch-lang.c (_initialize_chill_language): Name changed from _initialize_chill_exp. Changes for Amiga Unix from rhealey@ub.d.umn.edu. * config/amix.mh (NAT_FILE): Add, set to nm-sysv4.h. * config/amix.mh (NATDEPFILES): Add. * config/amix.mh (XDEPFILES): Move procfs.o and fork-child.o to NATDEPFILES. * dwarfread.c (decode_subscr_data): Remove spurious test that accepted only integer subscript types. We don't do anything with the type at the moment anyway. Fri Dec 4 06:56:56 1992 Fred Fish (fnf@cygnus.com) * ch-exp.y (match_character_literal): Fix case where no match at all is found. * ch-exp.y (chill_create_fundamental_type): Chill uses fixed width types. For example, "INT" is always 2 bytes regardless of the values of any TARGET_*_BIT macros. So use explicit numeric sizes for the types. Thu Dec 3 12:00:06 1992 Fred Fish (fnf@cygnus.com) * c-exp.y (c_create_fundamental_type): New function to create language specific fundamental types for C. * m2-exp.y (m2_create_fundamental_type): New function to create language specific fundamental types for Modula 2. * c-exp.y (c_language_defn, cplus_language_defn): Add c_create_fundamental_type to language struct initializers. * m2-exp.y (m2_language_defn): Add m2_create_fundamental_type to language struct initializers. * dwarfread.c (expression.h, language.h): Include. * dwarfread.c (ftypes): New array to hold fundamental types for current compilation unit. * dwarfread.c (cu_language_defn): New pointer to language struct for language of current compilation unit. * dwarfread.c (dwarf_fundamental_type): New function to create/lookup fundamental types. * dwarfread.c (set_cu_language): Initialize cu_language_defn. * dwarfread.c (throughout): Replace lookup_fundamental_type with dwarf_fundamental_type. * dwarfread.c (read_file_scope): Zero out ftypes for each new compilation unit (may be different language or different objfile). * gdbtypes.c (lookup_fundamental_type): Move actual type creations into language specific fundamental type creation functions and call via create_fundamental_type. Add comment about this function being obsolescent. * gdbtypes.h (FT_BYTE, FT_UNSIGNED_BYTE): New types, true byte sized signed and unsigned integers. * gdbtypes.h (FT_NUM_MEMBERS): Increment, new types added. * language.c (language_def): New function to lookup a language struct given it's enumeration. * language.h (struct language_defn): Add la_fund_type, a pointer to a function that creates fundamental types for this language. * language.h (create_fundamental_type): New macro to create fundamental types based on the current language. * language.h (language_def): Add prototype. * language.c (unk_lang_create_fundamental_type): New function for initializing language structs, calls error if called. * language.c (unk_language_defn, auto_language_defn, local_language_defn): Use unk_lang_create_fundamental_type. ch-exp.y (chill_create_fundamental_type): New function. ch-exp.y (chill_language_defn): Add chill_create_fundamental_type. ch-exp.y (_initialize_chill_exp): BOOL types are only one byte. Tue Dec 1 17:07:31 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (CHILL_PRODUCER): Add producer string for GNU chill. * dwarfread.c (handle_producer): Test CHILL_PRODUCER as well as GCC_PRODUCER and GPLUS_PRODUCER. Mon Nov 30 18:46:58 1992 Stu Grossman (grossman at cygnus.com) * remote-udi.c (udi_wait): Don't stop if TIP says that remote is still running. Mon Nov 30 12:00:25 1992 Fred Fish (fnf@cygnus.com) * tm-sun4sol2.h: Add CPLUS_MARKER. Solaris 2.0 requires '.' rather than '$'. This particular piece of braindamage is spreading like ooze. It's now infected libiberty, deja-gnu, gdb, and gcc. * values.c (baseclass_addr): Use CPLUS_MARKER rather than hardwired '$' character. Sun Nov 29 15:22:42 1992 Fred Fish (fnf@cygnus.com) (Changes to break incredibly ugly, unmaintainable 750 line read_struct_type function up into managable pieces.) * Makefile.in (VERSION): Bump to 4.7.3. * stabsread.c (struct field_info): Local struct definition. * stabsread.c (read_member_functions, read_struct_fields, read_baseclasses, read_tilde_fields, attach_fn_fields_to_type, attach_fields_to_type, read_cpp_abbrev): Prototypes and new functions from fragmented read_struct_type. * stabsread.c (stabs_general_complaint): Catchall complaint. * stabsread.c (STABS_CONTINUE): Macro'ize cretinous stabs symbol name continuation code. Use macro throughout. * stabsread.c (various places): Replace add-one-to-pointer with pointer increment. * stabsread.c (read_type): Retain function local copy of type descriptor. Rearrange code calling read_struct_type() to match new conventions. * stabsread.c (define_symbol): For the sake of dbx, gcc emits a single blank as the name of nameless enumerations. Recognize this special case and set nameless flag. * ch-exp.y (GENERAL_PROCEDURE_NAME, LOCATION_NAME): New terminal tokens. * ch-exp.y (access_name): New non-terminal token and production. * ch-exp.y (general_procedure_name): Now a terminal token. * ch-exp.y (location): Expand production. * ch-exp.y (match_simple_name_string): New function. * ch-exp.y (yylex): Call match_simple_name_string and return GENERAL_PROCEDURE_NAME or LOCATION_NAME as appropriate. Wed Nov 25 07:17:13 1992 Fred Fish (fnf@cygnus.com) * munch: Backslash escape vertical bar characters inside grep patterns since they have special meaning for some greps. * parse.c (write_exp_string): Complete rewrite to store string contants as a leading explicit length, followed by the string data, followed by a trailing explicit length. * eval.c (evaluate_subexp), expprint.c (print_subexp), parse.c (length_of_subexp), parse.c (prefixify_subexp): Use recorded explicit length of strings in expression elements, rather than strlen. Adjust code to skip over strings stored in expression elements, and code to access strings, to account for new leading explicit size expression element. * parse.c (length_of_subexp): Test for minimum endpos of 1, not 0, to avoid negative expression element indices. * valops.c (search_struct_method): Minor whitespace change. Mon Nov 23 11:14:15 1992 Fred Fish (fnf@cygnus.com) * c-exp.y (yylex): Add tempbuf, tempbufindex, and tempbufsize, which together maintain a dynamically expandable static buffer for the lexer to use when translating C strings to their internal form (other future uses possible). Fix parsing of C style strings to do the normal C style input conversions of escaped character sequences. * valops.c (value_string): Remove translation of escaped character sequences, now done in C expression parser. * language.h (PRINT_LITERAL_FORM): New macro that takes character and decides if it should be printed in literal form or some other form, based on it's ASCII value and setting of sevenbit_strings. * {c-exp.y, m2-exp.y} (emit_char): Use new PRINT_LITERAL_FORM macro, change indentation style. * ch-exp.y (chill_printchar): Use new PRINT_LITERAL_FORM macro. * ch-exp.y (chill_printstr): First cut at real function instead of error stub. Sun Nov 22 16:21:41 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * nindy-share/stop.h: fixed bogus comment-end in copyright message * i960-pinsn.c: fixed two calls of fputs_filtered that had 3 arguments Fri Nov 20 21:35:57 1992 Fred Fish (fnf@cygnus.com) * defs.h (sevenbit_strings): Add declaration. * defs.h (printchar): Replace with gdb_printchar. * language.h (language_defn): Add new function pointers la_printchar and la_printstr, to do language dependent printing of characters and strings. * language.h (local_printchar, local_printstr): New macros to call language dependent functions pointed to by la_printchar and la_printstr respectively. * c-exp.y (emit_char, c_printchar, c_printstr): New language dependent functions for printing characters and strings. * c-exp.y (c_language_defn, cplus_language_defn): Add c_printchar and c_printstr. * command.c (do_setshow_command): Rename printchar use to gdb_printchar. * expprint.c (print_subexp): Replace C style string output with call to local_printstr. * language.c (unk_lang_printchar, unk_lang_printstr): New stubs, currently errors. * language.c (unknown_language_defn, auto_language_defn, local_language_defn): Add unk_lang_printchar and unk_lang_printstr. * m2-exp.y (emit_char, m2_printchar, m2_printstr): New language dependent functions to print characters and strings. * m2-exp.y (m2_language_defn): Add m2_printchar and m2_printstr. * utils.c (printchar): Renamed to gdb_printchar. * valprint.c (print_string): Remove prototype, function moved to c-exp.y, where it becomes c_printstr. * valprint.c (print_max): Made global for reference from the language dependent printing routines in *-exp.y. * valprint.c (repeat_count_threshold): New variable with function of old REPEAT_COUNT_THREHOLD define, but now settable by user. Change all references to old macro to references to new variable. * valprint.c (value_print, val_print): Replace calls to print_string with calls to local_printstr. * valprint.c (val_print): Replace C style character printing with call to local_printchar. * valprint.c (val_print): Add case for TYPE_CODE_CHAR. * valprint.c (_initialize_valprint): Add add_show_from_set call for setting up repeat_count_threshold as print variable. * ch-exp.y (decode_integer_value): New function. * ch-exp.y (decode_integer_literal): Use decode_integer_value. * ch-exp.y (chill_printchar, chill_printstr): New language dependent functions for printing characters and strings. * ch-exp.y (chill_language_defn): Add chill_printchar and chill_printstr. Thu Nov 19 21:22:21 1992 John Gilmore (gnu@cygnus.com) * main.c (main): Print GDB version number in gdb -help; doc pid arg. Suggested by Marty Leisner, . (print_gdb_version): New arg is stdout or stderr. Callers changed. Wed Nov 18 15:05:45 1992 Ian Lance Taylor (ian@cygnus.com) * remote-vx.c (vx_kill): just warn if we can't contact the board, and assume the process has been killed. Wed Nov 18 14:39:57 1992 Stu Grossman (grossman at cygnus.com) * remote-udi.c (udi_open): Reset vars so that user can re-run programs without leaving GDB. * (many routines): Slightly improve error handling. * (download): Zero out BSS by longs instead of bytes to avoid timeouts in real hardware. * 29k-share/udi/udip2soc.c (UDIDisconnect, UDIKill): Indicate that connection is no longer in use after shutdown() of socket. This keeps GDB from dying of a SIGPIPE when you issue multiple `target udi' commands. Wed Nov 18 14:27:47 1992 Fred Fish (fnf@cygnus.com) * language.h (language_format_info): New structure to bundle local formatting information. * language.h (language_defn): Replace individual format info with language_format_info structs. * language.h (local_*_format, local_*_format_prefix, local_*_format_specifier, local_*_format_suffix): New macros for binary/octal/decimal/hex formats to access info elements. * c-exp.y (c_language_defn): Update for new format handling. * m2-exp.y (m2_language_defn): Update for new format handling. * dbxread.c (language.h): Include for partial-stab.h use. * mipsread.c (expression.h, language.h): Include for partial-stab.h use. * defs.h (local_hex_format, local_hex_format_custom, local_hex_string, local_hex_string_custom): Move to language.h. * language.c (local_hex_format_custom, local_hex_string, local_hex_string_custom, local_octal_format_custom): Use new format handling. * language.c (unknown_language_defn, auto_language_defn, local_language_defn): Update for new format handling. * printcmd.c (print_scalar_formatted): Use new macros to access decimal and binary format info for printing. * c-exp.y (chill_language_defn): Update for new format handling. * ch-exp.y (CHARACTER_LITERAL): Add support to yylex. * ch-exp.y (decode_integer_literal): Add function * ch-exp.y (match_integer_literal): Use decode_integer_literal. * ch-exp.y (builtin_type_chill_char): Add definition. * gdbtypes.h (builtin_type_chill_char): Add declaration. Tue Nov 17 11:17:06 1992 Ian Lance Taylor (ian@cygnus.com) * tm-rs6000.h (BELIEVE_PCC_PROMOTION): Define, since AIX cc gets it right. (aix_framedata): added nosavedpc field. (SAVED_PC_AFTER_CALL): Don't try to optimize; just call read_register. (FRAMELESS_FUNCTION_INVOCATION): Pass second argument of 0. (FRAME_SAVED_PC): If PC not saved, use SAVED_PC_AFTER_CALL. * rs6000-tdep.c (skip_prologue): Handle gcc generated stfd instructions as function_frame_info does. Expand special case of st r31,-4(r1) to be st r31,NUM(r1), since gcc can generate offsets other than -4. (pop_frame): Add 4 rather than sizeof (int) to avoid host dependence. (function_frame_info): Set frameless if the function has no frame, and set nosavedpc if the PC was not saved. Handle gcc generated stfd 31,-4(31); st 31, -12(31) correctly. (frameless_function_invocation): New second argument pcsaved; if 0 return whether the function has a frame, if 1 return whether the function saved PC. (frame_initial_stack_address): Correct typo: cache registers for callee_fi, not for fi, (avoids reading garbage memory locations). Mon Nov 16 15:58:07 1992 Stu Grossman (grossman at cygnus.com) * infrun.c (wait_for_inferior (just before step_over_function label)): Change test for stepping into subroutine to check for the presence of line number info. This makes stuff compiled with -g1 cause GDB to not lose control when stepping. * symtab.c (find_pc_line): Improve code per gnu's suggestions. Improve comments as well. Sun Nov 15 09:22:09 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.7.2 * symtab.c (find_pc_symtab): Fix return of random value to caller. * Makefile.in (c-exp.tab.c, m2-exp.tab.c): Add dependency on Makefile since it contains sed patterns used in generation. Add sed pattern to also delete #include of any malloc.h. * c-exp.y, expr.c, expression.h, language.c, m2-exp.y, parser-defs.h, valarith.c, valops.c, value.h: Remap macros and function names to conform to K&R terminology with respect to logical and bitwise operators: UNOP_ZEROP => UNOP_LOGICAL_NOT UNOP_LOGNOT => UNOP_COMPLEMENT BINOP_LOGAND => BINOP_BITWISE_AND BINOP_LOGXOR => BINOP_BITWISE_XOR BINOP_LOGIOR => BINOP_BITWISE_IOR BINOP_AND => BINOP_LOGICAL_AND BINOP_OR => BINOP_LOGICAL_OR PREC_OR => PREC_LOGICAL_OR PREC_AND => PREC_LOGICAL_AND PREC_LOGIOR => PREC_BITWISE_IOR PREC_LOGXOR => PREC_BITWISE_XOR PREC_LOGAND => PREC_BITWISE_AND value_zerop() => value_logical_not() value_lognot() => value_complement() * c-exp.y (c_op_print_tab): Add explicit empty terminator. * m2-exp.y (m2_op_print_tab): Add explicit empty terminator. * i387-tdep.c (sys/dir.h): Remove, appears to be unnecessary and is nonexistant in some SVR4 based systems. * language.c (DEFAULT_ALLOCSIZE): Change from 3 => 4. * m2-exp.y (number_sign, modblock): Make static, #ifdef out unused modblock. * m2-exp.y (ANDAND): Rename to LOGICAL_AND. * source.c (source_info): Fix minor nits, print "1 line" rather than "1 lines", and "language is ". * valarith.c (value_binop): Handle TYPE_CODE_BOOL as well as TYPE_CODE_INT and TYPE_CODE_FLOAT. * valprint.c (val_print): Print TYPE_CODE_BOOL type values as "TRUE" or "FALSE". * values.c (value_from_longest): Handle TYPE_CODE_BOOL. * ch-exp.y: New expression parser, for GNU-Chill. * defs.h (enum language): Add language_chill. * dwarfread.c (set_cu_language): Add LANG_CHILL case and make LANG_MODULA2 a recognized language. * gdbtypes.h (enum_typecode): Note TYPE_CODE_BOOL used for Chill as well as Modula-2. * gdbtypes.y (builtin_type_chill_bool, builtin_type_chill_long, builtin_type_chill_ulong, builtin_type_chill_real): Add. * language.c (set_language_command): Add chill. * language.c (binop_result_type, integral_type, character_type, boolean_type, structured_type, value_true, binop_type_check): Add language_chill cases. * language.h (_LANG_chill): Define. * symfile.c (deduce_language_from_filename): Recognize the filename extensions ".chill", ".c186", and ".c286" for Chill. * valprint.c (typedef_print): Add case for language_chill. * Makefile.in (SFILES_MAINDIR): Add ch-exp.y. * Makefile.in (YYFILES): Add ch-exp.tab.c. * Makefile.in (YYOBJ): Add ch-exp.tab.o. * Makefile.in (saber_gdb): Add unload of ch-exp.y and load of ch-exp.tab.c. * Makefile.in (distclean): Add target ch-exp.tab.c. * Makefile.in (realclean): Add rm of ch-exp.tab.c. * Makefile.in (ch-exp.tab.o, ch-exp.tab.c): New targets. * eval.c (evaluate_subexp): Add OP_BOOL case. * expprint.c (print_subexp): Add OP_BOOL case. Fri Nov 13 20:36:28 1992 John Gilmore (gnu@cygnus.com) * infcmd.c (set_environment_command): Avoid skipping first char of env value if an '=' appears in it. Bug report and fix by Mark Jungerman, . Fri Nov 13 20:24:10 1992 Stu Grossman (grossman at cygnus.com) * infcmd.c (step_over_calls): Improve comments. * symtab.c (find_pc_psymtab): Clean up a bit. * (find_pc_symtab): Fix comments, clean up code. * (find_pc_line): General cleanups, efficiency improvements. Also, don't return garbage when some line info exists, but there was no good match. Thu Nov 5 23:04:38 1992 Rob Ryan (rr2b@andrew.cmu.edu) * xcoffexec.c (vmap_symtab): fixed a bug where if a object has no member, and the stat pointer passed to vmap_symtab was NULL, the wrong vmap entries would be modified. Fixes behavior where attempting to load symbols for a module with no member would mess up already read in symbols. Wed Nov 11 17:09:17 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in: Remove dependancies for 29k-share/dfe/yank.o and 29k-share/dfe/mini2udi.o. * config/a29k-udi.mt: Remove yank.o and mini2udi.o. * alldeps.mak, depend: Update to deal with removal of aforementioned files. * remote-udi.c: Major cleanups. Clean up udi_open and drop requirement for useless 'program' argument. Clean up udi_create_inferior, and udi_load to call common download() routine. Create download routine to load remote hosts directly (with the help of BFD) so that we don't need yank.c and mini2udi.c. Fix udi_detach to call UDIDisconnect with the right arguments. Clean up udi_resume, don't assign tip_error twice. Clean up udi_wait, straighten out status codes. Make udi_kill really work. Fri Nov 6 10:26:01 1992 Steve Chamberlain (sac@thepub.cygnus.com) * c-exp.y: separated host/target idea of integer type size, removed redundant parse rules. (YYSTYPE): added typed_val, removed UINT and CHAR rules. (parse_number): work out the targetwise type of a number based upon it's size and qualifiers. (yylex): chars are now treated the same way as ints. * source.c (indentify_source_line): don't core dump if wanted line is larger than number of lines in source. (can happen when coff gets confused about #included source). Fri Nov 6 03:00:39 1992 John Gilmore (gnu@cygnus.com) Fix problems noticed by Allan Steel, , when debugging a program with 100 shared libraries. * solib.c (solib_map_sections): Always close the BFD we open. Free all malloc'd storage we allocate, too, including error cases. (struct so_list): Remove unused so_bfd member. (clear_solib): Don't bother closing so_bfd. * symfile.c (symfile_bfd_open): Mark newly opened BFD as cacheable. `So many symbol files, so little file descriptors.' Fri Nov 6 00:14:38 1992 John Gilmore (gnu@cygnus.com) * m68k-stub.c: Remove ansidecl.h and the few uses of it. Stubs should stand alone as much as possible. * source.c (show_directories): Avoid printf_filtered length prob pointed out by Jonathan Stone. * i960-pinsn.c (MEM_MAX, MEM_SIZ): Set upper limit properly to avoid accesses beyond end of table. Fix by Lee W. Cooprider, . Thu Nov 5 17:33:08 1992 Fred Fish (fnf@cygnus.com) * {ser-bsd.c, ser-termios.c} (serial_close): Pass address of struct, not struct itself. * serial.h (serial_restore): Fix prototype, takes pointer not struct. Thu Nov 5 17:12:42 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (depend): Add nm.h to the list of things to fixup. * depend: Redo, to fixup nm.h problems with *-tab.c files. Thu Nov 5 00:19:51 1992 John Gilmore (gnu@cygnus.com) * i386-stub.c: Remove ansidecl.h and the few uses of it. Stubs should stand alone as much as possible. * README: Add remote-es1800.c and remote-st2000.c to table. * go32-nat.c: Remove, there is no native go32 support. * go32-xdep.c: Remove unused fork, fvork, wait, execlp, kill_inferior. Wed Nov 4 15:27:31 1992 Stu Grossman (grossman at cygnus.com) * inflow.c (pass_signal, set_sigint_trap, clear_sigint_trap): Add new routines to deal with sending SIGINTs to attached processes when the user interrupts the controlling GDB. * inftarg.c (child_wait), procfs.c (procfs_wait): Add calls to the aforementioned routines when waiting for the attached process. * elfread.c, mipsread.c: Include . * i386-stub.c: Include "ansidecl.h" to deal with prototypes. * serial.h: Add prototype for serial_restore(). Wed Nov 4 11:13:25 1992 Ian Lance Taylor (ian@cygnus.com) * minsyms.c (lookup_minimal_symbol_by_pc): subtract 1, not 2, from minimal_symbol_count, because the NULL symbol is not included in the count. This prevented this function from finding the last symbol in the table. Tue Nov 3 11:29:17 1992 Ian Lance Taylor (ian@cygnus.com) * dbxread.c (process_one_symbol): if not defined (BLOCK_ADDRESS_FUNCTION_RELATIVE), set function_start_offset at the start of the function, not just after N_FUN. Fri Oct 30 16:33:02 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (c-exp.tab.c, m2-exp.tab.c): Add sed patterns to remap all malloc's to xmalloc's and all realloc's to xrealloc's. * c-exp.y, m2-exp.y: Add comment about how malloc/realloc are remapped to xmalloc/xrealloc, use only malloc/realloc in grammer file. Remove preprocessor defines that previously did remapping. Fri Oct 30 00:58:18 1992 John Gilmore (gnu@cygnus.com) * infcmd.c (run_command): Avoid long calls to printf_filtered. Bug fix courtesy of Alexander Klaiber. Tue Oct 27 17:08:45 1992 K. Richard Pixley (rich@cygnus.com) hp300 native support (hp300hpux untested). * hp300ux-xdep.c: removed. * xm-hp300bsd.h (REGISTER_U_ADDR): removed. * xm-hp300hpux.h: updated copyright. (ATTACH_DETACH, FETCH_INFERIOR_REGISTERS): removed. * nm-hp300bsd.h, nm-hp300hpux.h, hp300ux-nat.c: new files. * Makefile.in (HFILES): added nm-hp300bsd.h and nm-hp300hpux.h. * config/hp300bsd.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o coredep.o corelow.o. (NAT_FILE, NATDEPFILES): new macros. * config/hp300bsd.mt (TDEPFILES): removed exec.o. * config/hp300hpux.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o. (NAT_FILE, NATDEPFILES): new macros. * config/hp300hpux.mt (TDEPFILES): removed exec.o. Vax ultrix native support. * nm-vax.h: new file. * Makefile.in (HFILES): added nm-vax.h. * config/vaxult.mh (XDEPFILES): infptrace.o inftarg.o fork-child.o coredep.o corelow.o removed. (NAT_FILE, NATDEPFILES): new macros. * xm-vax.h: updated copyright. (REGISTER_U_ADDR): removed. Apollo native support (untested). * Makefile.in (HFILES): added nm-apollo68[bv].h. * a68v-nat.c, nm-apollo68[bv].h: new files. * xm-apollo68[bv].h (FETCH_INFERIOR_REGISTERS): removed. * xm-apollo68b.h (PTRACE_IN_WRONG_PLACE): removed. * a68v-xdep.c: removed. * config/apollo68[bv].mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o a68v-xdep.o. (NAT_FILE, NATDEPFILES): new macros. * defs.h: include nm.h. * coredep.c, infptrace.c, procfs.c, rs6000-nat.c, sparc-nat.c, sparc-tdep.c, : do not include nm.h. * doc/gdbint.texinfo: nm.h now included in defs.h. Fri Oct 23 04:47:17 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (VERSION): 4.7.1 post release! * config/hppahpux.mh (NATDEPFILES): Add hppah-nat.o. Fri Oct 23 00:48:08 1992 John Gilmore (gnu@cygnus.com) * Makefile.in (VERSION): gdb-4.7 release. * README: Update for gdb-4.7. Thu Oct 22 11:24:18 1992 Stu Grossman (grossman at cygnus.com) * sparc-tdep.c: include nm.h (for now) so that we get USE_PROC_FS when necessary. * alldeps.mak, depend: Update. Thu Oct 22 03:14:36 1992 John Gilmore (gnu@cygnus.com) * partial-stab.h ('f', 'F'): Don't reference pst->textlow if pst is null. * tm-sun4sol2.h (PROLOGUE_FIRSTLINE_OVERLAP): Remove -- it causes problems in setting breakpoint in the right place in functions with `float' args which are passed as doubles. * xm-vaxbsd.h (MEM_FNS_DECLARED): Avoid erroneous redecl's. * config/rs6000.mh (NATDEPFILES): Add corelow.o. Thu Oct 22 01:01:24 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (HFILES): Add nm-i386sco.h. * dwarfread.c: include for SCO. * infptrace.c: Don't include ptrace.h under SCO. * config/i386sco.mh: Use -D_POSIX_SOURCE instead of -posix for gcc. * config/i386v.mt: Add exec.o to TDEPFILES. Wed Oct 21 19:08:20 1992 Stu Grossman (grossman at cygnus.com) * i386v-nat.c: Remove space from front of #endif. * irix4-nat.c: Remove externs of registers[], include inferior.h instead. * mips-nat.c: Explicitly initialize zerobuf to 0! * mips-tdep.c (init_extra_frame_info): Undo John's last change. Always setup fci->frame, even if it's non-zero. Too many places depend upon this behavior (and I have to get a release out the door)! * mipsread.c (parse_partial_symbols, psymtab_to_symtab_1): Set processing_gcc_compilation if we find the embedded stabs marker. This fixes several bugs with finding the location of short or char function parameters passed on the stack. Wed Oct 21 17:46:07 1992 K. Richard Pixley (rich@sendai.cygnus.com) Native support for sun4sol2. * xm-sysv4.h (USE_PROC_FS, ATTACH_DETACH): removed to nm-sysv4.h. * nm-sysv4.h: new file. * Makefile.in (HFILES): added nm-sysv4.h. * config/sun4sol2.mh (XDEPFILES): removed procfs.o fork-child.o. (NAT_FILE, NATDEPFILES): new macros. * config/sun4sol2.mt (TDEPFILES): removed exec.o and solib.o. Wed Oct 21 03:51:01 1992 John Gilmore (gnu@cygnus.com) * coredep.c: Include "nm.h" to get REGISTER_U_ADDR. * doc/gdbint.texinfo: Improve REGISTER_U_ADDR and USE_PROC_FS doc. * Makefile.in (VERSION): Tick to 4.6.9. Tue Oct 20 23:27:56 1992 John Gilmore (gnu@cygnus.com) * mipsread.c (UNSAFE_DATA_ADDR): Remove MIPS-host-specific definition, replace with portable one. * remote-nindy.c: Lint. (nindy_wait): Return type is int, result is inferior_pid. * symmisc.c (dump_psymtab): Only print section_offsets if set. (initialize_symmisc): Remove empty function. * tm-spc-noun.h, tm-sun4os4.h, tm-sun4sol2.h (STACK_END_ADDRESS): Remove obsolete, misspelled macro. * doc/gdbint.texinfo: Document obsolete STACK_END_ADDR. (all @node commands): Use new form to avoid nitpicking errors. * doc/gdbint.texinfo: Document host/native/target split. Wed Oct 21 00:14:34 1992 Stu Grossman (grossman at cygnus.com) * mips-nat.c (zerobuf): Get rid of const to avoid gcc warnings. * xm-mips.h (offsetof): Don't define this if __STDC__. Tue Oct 20 21:32:18 1992 K. Richard Pixley (rich@sendai.cygnus.com) umax native support (untested). * config/umax.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o. (NAT_FILE, NATDEPFILES): new macros. * config/umax.mt (TDEPFILES): removed exec.o. * xm-umax.h (U_REGS_OFFSET, ATTACH_DETACH, REGISTER_U_ADDR): removed to nm-umax.h. * nm-umax.h: new file. * Makefile.in (HFILES): added nm-umax.h. hppa native support (untested). * config/hppahpux.mh, config/hppabsd.mh (XDEPFILES): now empty. (NAT_FILE, NATDEPFILES): new macros. * config/hppabsd.mt (TDEPFILES): removed exec.o and hppab-core.o. * config/hppahpux.mt (TDEPFILES): removed exec.o. * xm-hppa[bh].h (REGISTER_U_ADDR, U_REGS_OFFSET): removed. * nm-hppa[bh].h, hppa[bh]-nat.c: new files. * hppa[bh]-xdep.c: removed. * hppa[bh]h-tdep.c: do not include ptrace.h. * Makefile.in (HFILES): added nm-hppa[bh].h. * doc/gdbint.texinfo: add PUSH_DUMMY_FRAME, POP_FRAME. Tue Oct 20 00:01:46 1992 Stu Grossman (grossman at cygnus.com) * mips-nat.c: Straighten out include files. Work around conflicting defs of JB_xxx syms in and for Ultrix-4.2. Mon Oct 19 15:09:57 1992 Stu Grossman (grossman at cygnus.com) * mips-nat.c (fetch_core_registers, register_addr): Copy from coredep.c, but zero out FP_REGNUM & ZERO_REGNUM so that stack backtraces from core files work. * config/decstation.mh, config/irix3.mh: Remove coredep.o. Functions are now defined in mips-nat.c. * tm-irix3.h: Put MIPS_EFI_SYMBOL_NAME in here too. * remote-hms.c: Disable all uses of serial_nextbaudrate and serial_default_name(). * remote-hms.c, ser-go32.c, serial.h: Change from serial_timedreadchar() to new serial_readchar(). * Makefile.in (HFILES): Fixup list of nm-*.h files. Add missing ones. Mon Oct 19 12:45:23 1992 Per Bothner (bothner@cygnus.com) * c-exp.y: Moved handling of 'const' and 'volatile' from to . This removes 2 conflicts. Sun Oct 18 00:36:30 1992 Fred Fish (fnf@cygnus.com) * breakpoint.c (breakpoint_re_set_one): Don't delete watchpoints from breakpoint table when reseting breakpoints. Sat Oct 17 00:59:23 1992 Fred Fish (fnf@cygnus.com) Native support cleanup and corefile fixes for i386 SVR4 systems. * i386-tdep.c (supply_gregset, fill_gregset, supply_fpregset, fill_fpregset): Moved to i386v4-nat.c * i386v4-nat.c, nm-i386v4.h, : New files. * i386sol2.mh, i386v4.mh, ncr3000.mh (NAT_FILE): Use nm-i386v4.h. * i386sol2.mh, i386v4.mh, ncr3000.mh (NATDEPFILES): Add corelow.o, change i386v-nat.o to i386v4-nat.o. Fri Oct 16 13:06:08 1992 K. Richard Pixley (rich@sendai.cygnus.com) Miscellaneous 386 configs updated. * config/i386aout.mt (TDEPFILES): removed exec.o. * config/i386sol2.mh, config/ncr3000.mh, config/i386v4.mh (XDEPFILES): removed procfs.o fork-child.o i386-xdep.o. (NAT_FILE, NATDEPFILES): new macros. * config/i386aout.mt, config/i386sol2.mt, config/ncr3000.mt, config/i386v4.mt (TDEPFILES): removed exec.o. * config/i386v32.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o coredep.o corelow.o i386-xdep.o i387-tdep.o. (NAT_FILE, NATDEPFILES): new macros. * config/i386sco.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o coredep.o corelow.o i386-xdep.o. (NAT_FILE, NATDEPFILES): new macros. Native support cleanup for i386bsd (untested). * config/i386bsd.mt (NATDEPFILES): exec.o removed. * config/i386bsd.mh (NATDEPFILES): added exec.o * tm-i386bsd.h (FLOAT_INFO): removed. * nm-i386bsd.h (FLOAT_INFO): added. Native support for i386v (untested). * config/i386v.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o coredep.o corelow.o i386-xdep.o i387-tdep.o. (NAT_FILE, NATDEPFILES): new macros. * config/i386v.mt (TDEPFILES): removed exec.o, added i387-tdep.o. * i386-xdep.c: removed. * Makefile.in (HFILES): added nm-i386v.h * i386v-nat.c, nm-i386v.h: new file. * xm-i386v.h: (REGISTER_U_ADDR, i386_register_u_addr): removed to nm-i386v.h. * tm-i386v.h (FLOAT_INFO): removed. Native support for linux (untested). * config/linux.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o coredep.o corelow.o i387-tdep.o i386-xdep.o. (NAT_FILE, NATDEPFILES): new macros. * config/linux.mt (TDEPFILES): removed exec.o, added i387-tdep.o. * Makefile.in (HFILES): added nm-linux.h. * nm-linux.h: new file. * xm-linux.h: updated copyright. cleaned up formatting. (ATTACH_DETACH, U_REGS_OFFSET): removed to nm-linux.h. Native support for sun386 (untested). * config/sun386.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o sun386-xdep.o. (NAT_FILE, NATDEPFILES): new macros. * config/sun386.mt (TDEPFILES): removed exec.o. * Makefile.in (HFILES): added nm-sun386.h. * sun386-nat.c, nm-sun386.h: new file. * sun386-xdep.c: removed. * xm-sun386.h: updated comment and copyright. (ATTACH_DETACH, FETCH_INFERIOR_REGISTERS): removed to nm-sun386.h. Native support for i386mach (untested). * config/i386mach.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o mach386-xdep.o. (NAT_FILE, NATDEPFILES): new macros. * Makefile.in (HFILES): added nm-i386mach.h. * nm-i386mach.h, i386mach-nat.c: new files. * mach386-xdep.c: removed. * xm-i386mach.h: updated copyright. (ATTACH_DETACH, FETCH_INFERIOR_REGISTERS): removed to nm-i386mach.h. Native separation for go32 (untested). * config/go32.mh (NAT_FILE, NATDEPFILES): new macros. * go32-nat.c: new file. * go32-xdep.c (call_ptrace, child_resume, fetch_inferior_registers, store_inferior_registers, child_xfer_memory, fetch_core_registers): removed to go32-nat.c. Native support for m88k (untested). * Makefile.in (HFILES): added nm-m88k.h * xm-delta88.h, xm-m88k.h (REGISTER_U_ADDR, FETCH_INFERIOR_REGISTERS): removed. * config/m88k.mh, config/delta88.mh (XDEPFILES): infptrace.o inftarg.o fork-child.o m88k-xdep.o removed to NATDEPFILES. (NAT_FILE, NATDEPFILES): new macros. * config/m88k.mt, config/delta88.mt (TDEPFILES): removed exec.o. * m88k-nat.c, nm-m88k.h, nm-delta88.h: new files.o. * m88k-xdep.c: removed. Fri Oct 16 04:16:30 1992 John Gilmore (gnu@cygnus.com) * i386b-nat.c: Comment changes. * nm-i386bsd.h, xm-i386bsd.h: Split native dependent pieces out into new nm-file. * config/i386bsd.mh (NAT_FILE): Point to new nm-file. Fri Oct 16 03:34:01 1992 John Gilmore (gnu@cygnus.com) Avoid longjmp()-catching compilation errors in cross-ports. * doc/gdbint.texinfo: Update GET_LONGJMP_TARGET, L_SET doc. * irix4-nat.c, mips-nat.c (JB_ELEMENT_SIZE, get_longjmp_target): Move from mips-tdep.c and tm-{irix3,mips}.h. * mips-nat.c: Remove a bunch of code that was ifdef'd out of native MIPS ports. * nm-irix3.h, nm-mips.h (GET_LONGJMP_TARGET): Move from tm-irix3.h and tm-mips.h. * ultra3-nat.c (register_addr): Move from ultra3-xdep.c. (fetch_core_registers): Fix bfd_seek arguments. Fri Oct 16 03:02:28 1992 John Gilmore (gnu@cygnus.com) Make core files work again (add back the `core' target). * config/decstation.mh, news.mh, sun2os3.mh, sun2os4.mh (NATDEPFILES): Add corelow.o. * config/delta88.mt, m88k.mt (TDEPFILES): Remove coredep.o, it's native dependent. * config/3b1.mh, bigmips.mh, hp300bsd.mh, hppabsd.mh, hppahpux.mh, i386sco.mh, i386v.mh, i386v32.mh, irix3.mh, isi.mh, linux.mh, littlemips.mh, merlin.mh, news1000.mh, pn.mh, rtbsd.mh, tahoe.mh, vaxbsd.mh, vaxult.mh (XDEPFILES): Add corelow.o whenever coredep.o appears. FIXME, these should be moved to NATDEPFILES for native use only. Thu Oct 15 21:53:53 1992 K. Richard Pixley (rich@sendai.cygnus.com) Ultra3 host/target/native split. (untested). * ultra3-xdep.c: updated copyright. Do not include sys/ptrace.h. (fetch_register, fetch_inferior_registers, store_inferior_registers, fetch_core_registers): removed to ultra3-nat.c. * xm-ultra3.h (FETCH_INFERIOR_REGISTERS, U_REGS_OFFSET): removed to nm-ultra3.h. * Makefile.in (HFILES): added nm-ultra3.h. * nm-ultra3.h, ultra3-nat.c: new files for native support. * config/ultra3.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o. (NAT_FILE, NATDEPFILES): new macros for native support. * config/ultra3.mt (TDEPFILES): exec.o removed. * xm-vaxult.h: add MEM_FNS_DECLARED. Thu Oct 15 02:59:30 1992 John Gilmore (gnu@cygnus.com) * Makefile.in (VERSION): Roll to 4.6.8. (OBS): Put version.o first, so Makefile rebuild happens early. * command.h: Publicize prototype for not_just_help_class_command. * command.c: Remove proto. * maint.c: Mark "mt" as an abbrev, to avoid duplicated help output. Move "maint info" from class info to class maintenance, and improve text. * infrun.c: Move "stop" to class_obscure, and give it a function so it will not be seen as a global help topic. FIXME, it should be possible to set these attributes independently. * core.c (core_command): Make nicer error message for no core support. Lint around file_ptr's (bfd's off_t's) and bfd_seek. * dbxread.c (read_dbx_symtab): Use L_SET as bfd_seek arg. (elfstab_build_psymtabs): staboffset and stabstroffset args are file_ptr's. * dwarfread.c (struct dwfinfo): Convert dbfoff, lnfoff to file_ptr. (scan_compilation_units): Punt unused filename arg. dbfoff, lnoffset, and curlnoffset are file_ptr's now. (dwarf_build_psymtabs): Drop desc and filename args; use objfile. dbfoff and lnoffset are file_ptr's now. (read_ofile_symtab): foffset is now file_ptr. Use L_SET in bfd_seek. * elfread.c (struct elfinfo): dboffset and lnoffset are file_ptr's. (elf_symfile_read): Skip desc and filename args to dwarf_build_psymtabs. Pass file_ptr's to elfstab_build_psymtabs. * gdb-stabs.h: Use file_ptr rather than off_t. * mipsread.c (fixup_symtab): f_ptr is a file_ptr. Re-enable compile-time debug check that someone turned off as "unused". (read_the_mips_symtab): st_filptr is a file_ptr. Fix bfd_seek call. * symfile.h: Update dwarf_build_psymtabs and elfstab_build_psymtabs prototypes. * xcoffread.c (init_stringtab, init_lineno, xcoff_symfile_read): Use file_ptr offsets. bfd_seeks use L_SET. Thu Oct 15 01:27:32 1992 Stu Grossman (grossman at cygnus.com) * mips-tdep.c, mipsread.c, tm-mips.h: Get rid of ".gdbinfo." symbol. #define MIPS_EFI_SYMBOL_NAME instead. Use different value so that demangler won't be invoked. This greatly speeds up stepping. * mips-tdep.c (mips_pop_frame): Rewrite handling of linked_proc_info so that it properly deallocates the appropriate item after it is done with it instead of before. * Don't pass bogus frame pointer to create_new_frame(). Just leave it as zero so that lower level code will figure out the correct value. Wed Oct 14 18:56:28 1992 K. Richard Pixley (rich@sendai.cygnus.com) Sony News native support. * Makefile.in (HFILES): added nm-news.h. * nm-news.h: new file. * config/news.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o coredep.o to NATDEPFILES. (NAT_FILE, NATDEPFILES): new macros for native support. * config/news.mt (TDEPFILES): removed exec.o. * remote-vx.c: remove redundant include of sys/time.h. * infrun.c: include ctype.h. Otherwise some machines result in undefined for isdigit. Tue Oct 13 01:27:14 1992 John Gilmore (gnu@cygnus.com) * configure.in: Convert m68k entries to m68* entries to handle all the various m68xxx hosts and targets. * config/news1000.mt: No longer needed, same as news.mt. Fri Oct 9 18:54:37 1992 K. Richard Pixley (rich@sendai.cygnus.com) * config/sun3os[34].mh (NATDEPFILES): remove duplicate inftarg.o. Fri Oct 9 14:20:08 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (HFILES): Add all nm-irix3.h, nm-irix4.h, nm-sun2.h, nm-mips.h. * config/irix3.mh (NATDEPFILES): nat-mips.o => mips-nat.o. * Makefile.in (alldeps.mak): Add = sign after NATDEPFILES. * config/bigmips.mh config/littlemips.mh: Remove mips-xdep.o. Fri Oct 9 08:41:11 1992 Ian Lance Taylor (ian@cygnus.com) * xm-hppah.h: if __STDC__ is not defined, define HPPA_COMPILER_BUG. symtab.c (decode_line_1): avoid a bug in the HP9000/700 native compiler; see the comment in the file. Fri Oct 9 04:43:43 1992 John Gilmore (gnu@cygnus.com) First cut at support for all BSD variants on 386. * tm-i386bsd.h, xm-i386bsd.h: New config files. * i386b-nat.c: New native support file. * configure.in: Add host and target for i[34]86-*-bsd*. * config/i386bsd.mh, config/i386bsd.mt: New config files. Fri Oct 9 00:31:33 1992 K. Richard Pixley (rich@sendai.cygnus.com) Sun2 native support (untested). * xm-sun2.h (ATTACH_DETACH, FETCH_INFERIOR_REGISTERS, REGISTER_U_ADDR): removed to nm-sun2.h. * nm-sun2.h: new file. * config/sun2os[34].mh (XDEPFILES): infptrace.o inftarg.o fork-child.o sun3-xdep.o removed. (NAT_FILE, NATDEPFILES): new macros. Mips native support. Decstation and iris4 have been tested. Iris3 has not. * mips-tdep.c (supply_gregset, fill_gregset, supply_fpregset, fill_fpregset): removed to irix4-nat.c * mips-xdep.c: removed. * irix4-nat.c, mips-nat.c, nm-irix3.h, nm-irix4.h, nm-mips.h: new files. * procfs.c: include nm.h. * xm-irix3.h (U_REGS_OFFSET, FETCH_INFERIOR_REGISTERS): removed. * xm-irix4.h: bump copyright. (U_REGS_OFFSET, FETCH_INFERIOR_REGISTERS, USE_PROC_FS, PROC_NAME_FMT): removed. * xm-mips.h (FETCH_INFERIOR_REGISTERS): removed. * config/irix4.mh (XDEPFILES): removed procfs.o fork-child.o. (NAT_FILE, NATDEPFILES): new macros for native support. (CC): supply default compiler switches. * config/irix3.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o coredep.o. (NAT_FILE, NATDEPFILES): new macros for native support. Note that irix3 is untested. * config/decstation.mh (XDEPFILES): removed infptrace.o inftarg.o fork-child.o mips-xdep.o coredep.o. (NAT_FILE, NATDEPFILES): new macros for native support. Thu Oct 8 23:50:51 1992 K. Richard Pixley (rich@sendai.cygnus.com) * config/rs6000.mh (XDEPFILES): removed fork-child.o. (NATDEPFILES): added fork-child.o * config/sun3os3.mh (XDEPFILES): removed fork-child.o. (NATDEPFILES): added fork-child.o * config/sun3os4.mh (XDEPFILES): removed fork-child.o. (NATDEPFILES): added fork-child.o Thu Oct 8 23:19:25 1992 John Gilmore (gnu@cygnus.com) * infcmd.c (path_info): Avoid 250-char limit on printf_filtered, by using puts_filtered instead. Fri Oct 9 00:28:25 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * remote-nindy.c (nindy_load): Replacement version from Steve Chamberlain, doesn't require forking to run "strip" or "sx". Thu Oct 8 18:27:35 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (HFILES): Add nm-*.h files. Thu Oct 8 16:27:45 1992 K. Richard Pixley (rich@sendai.cygnus.com) * config/sun4os4.mh (XDEPFILES): fork-child.o removed. (NATDEPFILES): added fork-child.o. * doc/gdbint.texinfo: document a few more macros, create new section for native macros. Thu Oct 8 13:52:46 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in alldeps.mak depend: Rip out 29k/udi pending resolution of copyright issues. Wed Oct 7 20:08:53 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (setup-to-dist): Remove -norecursion so that doc subdir gets configured. Wed Oct 7 12:24:01 1992 Ken Raeburn (raeburn@cygnus.com) * Makefile.in (nindy.o): Define "STRIP" as pathname of strip program. * nindy-share/nindy.c (coffstrip): Use that pathname, instead of searching for a "bfd_strip" program. Also, fixed up arguments passed to that program. * tm-nindy960.h (ADDITIONAL_OPTIONS): Use "-ser" rather than "-r", which is now used for something else. Rewrite description of associated parameters to match how gdb does it now. (ADDITIONAL_OPTION_HELP): Fix message accordingly. * m68k-pinsn.c (print_insn_arg): Handle new "`" operand type. Tue Oct 6 14:47:11 1992 K. Richard Pixley (rich@sendai.cygnus.com) NOTICE_SIGNAL_HANDLING_CHANGE macro added to the target vector as to_notice_signals. * inferior.h (proc_signal_handling_change): prototype removed. * infrun.c (NOTICE_SIGNAL_HANDLING_CHANGE): default removed. (handle_command): now calls target_notice_signals. * procfs.c (proc_signal_handling_change): renamed to procfs_notice_signals. Now static. Add prototype. All callers changed. * target.h (struct target_ops): new field, to_notice_signals. (target_notice_signals): new macro to cover new field. * target.c (cleanup_target): default to_notice_signals to ignore. * corelow.c (core_ops), exec.c (exec_ops), inftarg.c (child_ops), procfs.c (procfs_ops), remote-adapt.c (adapt-ops), remote-eb.c (eb_ops), remote-es1800.c (es1800_ops, es1800_child_ops), remote-hms.c (hms_ops), remote-mm.c (mm_ops), remote-nindy.c (nindy_ops), remote-st2000.c (st2000_ops), remote-udi.c (udi_ops), remote-vx.c (vx_ops, vx_run_ops), remote.c (remote_ops), target.c (dummy_target), xcoffexec.c (exec_ops): added static initializer for to_notice_signals. * xm-irix4.h, xm-sysv4.h (NOTICE_SIGNAL_HANDLING_CHANGE): removed. Tue Oct 6 12:13:08 1992 John Gilmore (gnu@cygnus.com) * main.c (define_command): Add forgotten initializer. Tue Oct 6 02:23:17 1992 John Gilmore (gnu@cygnus.com) * language.c, language.h: Move saved_language out to global expected_language. Set expected_language when user expectation changes. * language.c (language_info): Don't print type/range checking gub. * main.c (main): Set expected language. (execute_command): Check against expected language. * symfile.c (set_initial_language): Set expected language. * configure.in, config/i386sol2.{mh,mt}: Preliminary Solaris-x86 conf. Fri Sep 4 00:34:30 1992 Per Bothner (bothner@rtl.cygnus.com) A bunch of changes mostly to improve debugging of C++ programs. Specifically, the calling of inferiors methods is improved. * value.h: New macros METHOD_PTR_IS_VIRTUAL, METHOD_PTR_FROM_VOFFSET, METHOD_PTR_TO_VOFFSET to partially hide the implementation details of pointer-to-method objects. How to tell if the pointer points to a virtual method is still very dependent on the particular compiler, but this should make it easier to find the places to change. * eval.c (evaluate_subexp [case OP_FUNCALL]), valprint.c (val_print [case TYPE_CODE_PTR]): Use the new METHOD_PTR_* macros, instead of a hard-wired-in code that incorrectly assumed a no-longerused representation of pointer-to-method values. And otherwise fix the relevant bit-rotted code. * valprint.c (type_print_base [case TYPE_CODE_STRUCT]): If there are both fields and methods, put a space between. * stabsread.c (read_struct_type): Fix bug in handling of GNU C++ anonymous type (indicated by CPLUS_MARKER followed by '_'). (It used to prematurely exit the loop reading in the fields, so it would think it should start reading methods while still in the fields. This could crash gdb given a gcc that can emit nested type information.) * valops.c (search_struct_method): Pass 'this' value by reference instead of by value. This provides a more consistent interface through a recursive search where the "bottom" functions may need to adjust offsets (due to multiple inheritance). * valops.c, value.h, values.c: Pass extra parameters to value_fn_field and value_virtual_fn_field so we can correctly adjust offset for multiple inheritance. * eval.c (evaluate_subexp [case OP_FUNCALL]): Simplify virtual function calls by using value_virtual_fn_field(). * values.c: New function baseclass_offset, derived from baseclass_addr (which perhaps can be made obsolete?). It returns an offset rather than an address. This is a cleaner interface since it doesn't mess around allocating new values. * valops.c (search_struct_method): Use baseclass_offset rather than baseclass_addr. Mon Oct 5 16:02:04 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in: Re-install 29K/UDI stuff. * remote-udi.c (udi_resume): Clean up. * (udi_wait): Rewrite, leave out bugs. * Add debugging code to print out all register fetches and stores. * Straighten out target_ops. * tm-29k.h (DUMMY_FRAME_RSIZE): Pad out to doubleword. Mon Oct 5 09:46:44 1992 Ian Lance Taylor (ian@cygnus.com) * remote-udi.c (udi_create_inferior): run with no arguments should not pass the program name as an argument, since the UDI code already handles that. (udi_load): get the symbols from prog_name, not arg_string (the load command should really use arg_string as the program name, not prog_name, but at least the run command works now). * munch: HP9000/300 nm puts an extra space between T and symbol name. * config/irix4.mh: added -lsun to XM_CLIBS to get RPC functions needed for vxworks targets. Fri Oct 2 22:04:42 1992 John Gilmore (gnu@cygnus.com) * am29k-tdep.c (_initialize_29k): Make it possible for the user to set and query the address where function calls into the inferior write a small scratch routine. `set call_scratch_address' * inferior.h (PC_IN_CALL_DUMMY): Fix fencepost error. * remote.c (remote_prepare_to_store): Only fetch regs if they are not already cached validly. Thu Oct 1 14:36:42 1992 K. Richard Pixley (rich@sendai.cygnus.com) Rs6000 native support. * infptrace.c: remove #ifdef USG from around include ptrace.h. machines without this header should not be compiling this file. * nm-rs6000.h, rs6000-nat.c: new files for native support. * rs6000-tdep.c: do not include sys/ptrace.h or sys/reg.h. * rs6000-xdep.c: removed. all code now in rs6000-nat.c. * xm-rs6000.h: do not include ptrace.h. (ATTACH_DETACH, FETCH_INFERIOR_REGISTERS): moved to nm-rs6000.h. * config/rs6000.mh (XDEPFILES): removed rs6000-xdep.o. infptrace.o and inftarg.o move to NATDEPFIES. (NAT_FILE, NATDEPFILES): new macro for native support. Sun3 native support. * config/sun3os3.mh, config/sun3os4.mh (NAT_FILE, NATDEPFILES): new macros for native support. (XDEPFILES): moved infptrace.o and inftarg.o to NATDEPFILES, removed sun3-xdep.o. * xm-sun3.h (ATTACH_DETACH, FETCH_INFERIOR_REGISTERS): moved to nm-sun3.h. * sun3-xdep.c: removed. All code is now in sun3-nat.c. * sun3-nat.c, nm-sun3.h: new files for native support. Thu Oct 1 10:30:54 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (dbsize): New variable to hold size of dwarf info. * dwarfread.c (dwarf_build_psymtabs): Rename dbsize parameter to dbfsize and use it to initialize new local file scope dbsize. * dwarfread.c (read_ofile_symtab): Initialize dbsize and use it. * dwarfread.c (basicdieinfo): Use dbsize to check for oversize DIEs as well as the current check for undersize DIEs. This helps to gracefully detect and reject corrupted DIE information. Thu Oct 1 01:57:56 1992 John Gilmore (gnu@cygnus.com) Add `command hooks' and a hook for inferior program stopping. * command.h (struct cmd_list_element): Remove unused `aux' field. Add new `hook', `hookee', and `cmd_pointer' fields. * command.c (add_cmd): Initialize new fields, elim old. (add_alias_cmd): Clone new fields. (delete_cmd): Un-hook hookee if we're deleting hook. (help_cmd): Tell user the command is hooked, if it is. (lookup_cmd_1): Abbreviations return the original command instead of themselves, so that hooks on the original cmd will be run. * defs.h (enum command_class): Add class_pseudo and comments. * gdbcmd.h (execute_user_command): Add prototype. * infrun.c (normal_stop): If the stop command is hooked, run the hook whenever we stop. (hook_stop_stub): Stub for catch_errors. (_initialize_infrun): Set up pseudo "stop" command. * main.c (execute_user_command): Code extracted from execute_command. (execute_command): If hooked, run the hook before the command. (define_command): If defining a new hook, check the command it is hooking, and warn if none. Install the hook. * source.c (_initialize_source): "l" is an abbrev for "list". * doc/gdb.texinfo: Document command hooks. * Makefile.in (VERSION): Roll to 4.6.7. * config/sun4os4.mh: Remove dup inftarg.o from NATDEPFILES. * infrun.c (breakpoints_inserted): Make it static again. * tm-symmetry.h (FLOAT_INFO): #if 0 it for cross-ptrace abuse. Wed Sep 30 15:33:22 1992 K. Richard Pixley (rich@sendai.cygnus.com) Native file renaming. * nat-sparc.c -> sparc-nat.c * nat-sun4os4.h -> nm-sun4os4.h * nat-trash.h -> nm-trash.h * config/sun4os4.mh: track file renaming. * configure.in: link to nm.h rather than nat.h. * infptrace.c: include nm.h rather than nat.h. Tue Sep 29 14:35:00 1992 K. Richard Pixley (rich@sendai.cygnus.com) Host/target/native split for sun4. * Makefile.in (TSOBS): removed corelow.o. * infptrace.c: included nat.h. * nat-trash.h: temporary header file. This should be removed once all hosts have the native/host/target split. * configure.in: add a symlink from nat-trash.h to nat.h if no other nat file exists for this configuration. * sparc-tdep.c: no longer include sys/ptrace.h. * sparc-xdep.c: removed. contents have been moved to nat-sparc.c. * xm-sparc.h (ATTACH_DETACH, FETCH_INFERIOR_REGISTERS): moved to nat-sun4os4.h. * nat-sparc.c, nat-sun4os4.h: new files for sun4 native support. * config/sun4os4.mh (XDEPFILES): moved infptrace.o and inftarg.o to NATDEPFILES. removed sparc-xdep.o. (NATDEPFILES, NAT_FILE): new macros for native support. Break the direct connection from core_file_command to any particular type of core file support. * target.h (find_core_target): new prototype. * target.c (find_core_target): new function. Walks the target list looking for the core target. * core.c (core_file_command): replace calls to core_detach and core_open with find_core_target and direct calls. Tue Sep 29 10:19:00 1992 Ian Lance Taylor (ian@cygnus.com) * xm-hp300hpux.h: define MEM_FNS_DECLARED; include for infptrace.c. config/hp300hpux.mh: ALLOCA1 was not defined. Mon Sep 28 22:03:41 1992 Stu Grossman (grossman at cygnus.com) * breakpoint.c, exec.c, language.c, main.c, printcmd.c, symfile.c, target.c, valprint.c: Use unfiltered forms of f/printf, et. al. until we can figure out a better way to do paging. Sat Sep 26 02:07:31 1992 John Gilmore (gnu@cygnus.com) * findvar.c (supply_register): Add CLEAN_UP_REGISTER_VALUE hook. * tm-hppa.h (CLEAN_UP_REGISTER_VALUE): Use it. * hppa-coredep.c: Remove, now that we use the hook. * config/hppab.mh, config/hppah.mh: Use standard coredep.o. * hppab-xdep.c, hppah-xdep.c: Remove custom code, use hook. * dbxread.c, partial-stab.h: Replace all #ifdef hp9000s800's with GDB_TARGET_IS_HPPA's. This is a SERIOUS KLUDGE. The code needs to all be ripped out and reimplemented right (see elfread.c). * tm-hppa.h (GDB_TARGET_IS_HPPA): Define. Rename all HPPA files to fit into unique DOS filenames: * *hppabsd* => *hppab* * *hppahpux* => *hppah* Sat Sep 26 00:25:15 1992 John Gilmore (gnu@cygnus.com) Make the /proc support a target-struct in its own right. * Makefile.in: Remove inftarg.[co], since it is now included via config/*.mh files. * config/*.mh: Add inftarg.o and fork-child.o to all *.mh that reference infptrace.o. Add fork-child.o to all *.mh that reference procfs.o. * inferior.h (proc_wait, inferior_proc_init, proc_set_exec_trap): No longer global functions. (fork_inferior): New global function from fork-child.c. * inftarg.c (child_wait): Remove USE_PROC_FS conditional. (ptrace_me, ptrace_him): New stub functions for fork_inferior(). (child_create_inferior): Moved to fork-child.c as fork_inferior. (child_create_inferior): New tiny function that calls fork_inferior. * fork-child.c: New file, containing fork_inferior, which is built from slight mods to inftarg.c's child_create_inferior. * procfs.c (procfs_ops): Add target vector. (attach): Rename as static do_attach. (procfs_create_inferior): New tiny function that calls fork_inferior. (child_xfer_memory): Rename to static procfs_xfer_memory. (store_inferior_registers): Rename to static procfs_store_registers. (inferior_proc_init): Rename to static procfs_init_inferior. (procfs_attach, procfs_detach, procfs_prepare_to_store, procfs_files_info, procfs_open, procfs_mourn_inferior, procfs_can_run): Slightly mangled copies of the corresponding child_XXX routines from inftarg.c. (proc_wait): Renamed to static procfs_wait. (child_resume): Rename to static procfs_resume. (fetch_inferior_registers): Rename to static procfs_fetch_registers. (initialize_proc_fs): Rename to initialize_procfs. Set up procfs_ops, too. * putenv.c: index -> strchr. * regex.c: Always rename bcopy to memcpy, etc. FIXME: Eventually do the renames rather than use #define's. * sparc-tdep.c (deferred_stores): Moved from sparc-xdep.c. Fix bcopy->memcpy. * sparc-xdep.c: Move deferred_stores to target dependent. * xm-irix4.h, xm-sysv4.h (CREATE_INFERIOR_HOOK): No longer needed. Fri Sep 25 21:59:27 1992 John Gilmore (gnu@cygnus.com) Split non-target-dependent code out of target_attach routines. * target.h: Comments on target_attach args and results. * infcmd.c (attach_command): Check for existing execution, call target_attach, set up terminal status and wait_for_inferior, wait for the attach status, and do normal_stop. * inftarg.c (child_attach): Remove target independent stuff. * remote-adapt.c (adapt_attach): Ditto. * remote-mm.c (mm_attach): Ditto. * remote-udi.c (udi_attach): Ditto. * remote-vx.c (vx_attach): Ditto. Cleanup. * remote-hms.c (hms_attach): Remove completely, it was useless. * remote-mm.c, remote-hms.c, remote-udi.c, remote-adapt.c: Remove commented-out start_remote calls. * remote-hms.c, remote-adapt.c, remote-mm.c, remote-udi.c: Remove DENTER and DEXIT macros and their calls. Use a real debugger -- like gdb -- to see what functions are being called when. * utils.c (strcmp_iw): Make nonstatic, for lint. Fri Sep 25 18:48:20 1992 John Gilmore (gnu@cygnus.com) * infrun.c, inftarg.c, inferior.h: Comment and lint cleanups. Fri Sep 25 15:13:44 1992 Stu Grossman (grossman at cygnus.com) * tm-sparc.h, dbxread.c (read_ofile_symtab): Install Jim Wilson's fix to differentiate between gcc1 & gcc2 compiled files so that we can debug calls that pass structs as args correctly. * symmisc.c (dump_symtab): If block was compiled with gcc, say so, and what version. * remote.c (remote_wait): Make regs be char to avoid picayune ANSI compiler warnings. * energize.h: Move all external struct decls to inside of __STDC__, add prototype for energize_shell_wait(). * energize.c (getpty): Clean up, make us really get a controlling terminal. * (energize_initialize): Disable SIGIO prior to setting up for I/O interrupts. Move setsid(), et. al. to getpty(). * (energize_shell_wait): New routine to wait for things started via the shell command, uses wait() instead of /dev/proc. * Also, add prototype for execute_command_1(). Fri Sep 25 12:09:33 1992 K. Richard Pixley (rich@sendai.cygnus.com) * inftarg.c (child_create_inferior, child_attach, child_mourn_inferior): collect unix child process stratum functions which live below the target vector into this file to facilitate host/target/native split. Also, make them static. * inflow.c (child_mourn_inferior): removed. * infrun.c (child_create_inferior, child_attach): removed. (resume): becomes global so that functions below the target vector can find it. * inferior.h (resume): add prototype. (child_mourn_inferior, child_create_inferior, child_attach): remove prototypes. * xcoffexec.c (exec_ops): child_attach and child_create_inferior replaced with find_default_attach and find_default_create_inferior. Fri Sep 25 10:21:04 1992 Ken Raeburn (raeburn@rtl.cygnus.com) * i960-pinsn.c: Use _filtered routines for printing, so symbolic addresses don't get displayed in the wrong positions. Fri Sep 25 09:52:47 1992 K. Richard Pixley (rich@sendai.cygnus.com) Separate core functions along target vector in preparation for native support. Functions above vector now live in core.c. Those below in corelow.c. * core.c (solib_add_stub, core_close, core_open, core_detach, get_core_registers, core_files_info, core_ops): moved to corelow.c (_initialize_core): removed addition of core_ops target. * corelow.c: new file. (solib_add_stub, core_close, core_open, core_detach, get_core_registers, core_files_info, core_ops): moved from core.c (_initialize_corelow): new function. * gdbcore.h (core_open, core_detach): added prototypes. (core_ops): add forward declaration. * Makefile.in (SFILES_MAINDIR): add core.c (OBS): add core.o (TSOBS): change core.o to corelow.o Wed Sep 23 11:14:53 1992 Stu Grossman (grossman at cygnus.com) * m68k-tdep.c (m68k_saved_pc_after_call): Use 'GDB_TARGET_IS_SUN3' instead of 'sun' predefined symbol so that trap analysis code is enabled only when the TARGET is a sun3. Tue Sep 22 17:13:19 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * tm-i960.h (ext_format_i960): Add top-level declaration. (REGISTER_CONVERT_TO_{VIRTUAL,RAW}): Don't declare it in nested blocks, else Sun4 compiler complains. Tue Sep 22 00:43:51 1992 John Gilmore (gnu@cygnus.com) * mips-pinsn.c (print_insn_arg, case 'B'): Disassemble `break' instruction's argument. Patch from jonathan@cs.stanford.edu (Jonathan Stone). Mon Sep 21 18:16:30 1992 K. Richard Pixley (rich@sendai.cygnus.com) Break the thread of control that implies that a unix child process will be the default target. * target.c (find_default_run_target, find_default_attach, find_default_create_inferior, return_zero): new functions. (cleanup_target): Make return_zero the default for to_can_run. * exec.c (exec_ops), core.c (core_ops): Replace child_attach and child_create_inferior references with find_default_XXX instead. * target.h (struct target_ops): new field, to_can_run. (find_default_attach, find_default_create_inferior): new prototypes. (target_can_run): new macro. * Also added a zero (default) to_can_run element to all static struct target_ops initializations throughout GDB, except: * inftarg.c (child_ops): Use new child_can_run() to enable child runs. * infrun.c (child_create_inferior): Clean up error handling when no exec file is specified. (child_attach): Don't require exec file. Mon Sep 21 19:43:13 1992 John Gilmore and K. Richard Pixley (gnu@cygnus.com) Remove kill_inferior_fast, in favor of target_kill, which goes through the target vector. * inferior.h (kill_inferior_fast): remove declaration. * main.c (disconnect): call quit_cover using catch_errors rather than calling kill_inferior_fast directly. New way goes through the target vector, handles attached processes, and writes command history if appropriate. (quit_cover): new function, wrapper for quit_command. * convex-xdep.c, go32-xdep.c, hppabsd-xdep.c, hppahpux-xdep.c, infptrace.c, procfs.c: Removed all instances of kill_inferior_fast, inlining them into the local kill_inferior when needed. Mon Sep 21 19:23:05 1992 John Gilmore (gnu@cygnus.com) * infrun.c (_initialize_infrun): Alias `i handle' == `i signals'. * stabsread.c (read_struct_type): Simplify complicated expression for dumb DECstation compiler. Mon Sep 21 14:54:35 1992 Ian Lance Taylor (ian@cygnus.com) * m68k-pinsn (print_insn_arg, fetch_arg): added support for operands to memory management instructions, from WRS. Sep 20 08:42:12 1992 Fred Fish (fnf@cygnus.com) * main.c (main): Back out previous language setting changes. Replace with simple default to C before processing any init files. There MUST be a language set, even in the absence of init files or executables, or expression parsing fails. Sat Sep 19 09:52:26 1992 Fred Fish (fnf@cygnus.com) * main.c (main): Move code that sets initial language to symfile.c. Fixup places where command files are processed to be consistent in setting a default language if none has been previously set. * symfile.c (set_initial_language): Add code moved from main() that sets an initial default language when a new symbol file is read. * symfile.c (symbol_file_command): Call set_initial_language. * symtab.c (find_main_psymtab): Add FIXME comment. Wed Sep 16 22:31:55 1992 K. Richard Pixley (rich@sendai.cygnus.com) * breakpoint.c, sparc-tdep.c: comment changes. * configure.in: removed target_dependent line. * remote-mm.c (mm_attach): change printf to error to prevent fallthrough bug. * remote-udi.c (udi_attach): change printf to error to prevent fallthrough bug. * rs6000-tdep.c (push_dummy_frame, pop_dummy_frame): replace calls to {fetch|store}_inferior_registers with calls to target_{fetch|store}_registers, for remote-target independence. Sat Sep 19 04:23:54 1992 John Gilmore (gnu@cygnus.com) * Makefile.in: Fix bug I introduced in merging Rich's change. * infrun.c (child_create_inferior): Use proceed() rather than doing all the same stuff by hand. Thu Sep 17 17:35:37 1992 K. Richard Pixley (rich@sendai.cygnus.com) * Makefile.in, configure.in: add support for files used only when configured native, that is, when host = target. Wed Sep 16 23:03:23 1992 K. Richard Pixley (rich@sendai.cygnus.com) * tm-sparc.h, xm-sparc.h: externs and macros relating to deferred stores are target dependent and were moved from xm to tm. Sat Sep 19 03:14:37 1992 John Gilmore (gnu@cygnus.com) * Makefile.in (gdb-all.texi): Build in objdir, not $srcdir. * config/decstation.mh: Add MMALLOC_LIB and MMALLOC_DISABLE overrides, to avoid problem in xdr_bytes with malloc(0) => 0. Wed Sep 16 20:04:54 1992 K. Richard Pixley (rich@sendai.cygnus.com) * target.h (struct target_ops): removed to_convert_to_virtual and to_convert_from_virtual elements. Initializations removed from all static initializations. (target_convert_to_virtual, target_convert_from_virtual): removed. (host_convert_to_virtual, host_convert_from_virtual): Removed forward declarations. * target.c (cleanup_target): removed default assignments for to_convert_to_virtual and to_convert_from_virtual. * inftarg.c (host_convert_to_virtual, host_convert_from_virtual): removed. * findvar.c (value_of_register, value_from_register): target_convert_to_virtual inlined. * infcmd.c (do_registers_info): target_convert_to_virtual inlined. * valops.c (value_assign): target_convert_from_virtual inlined. Fri Sep 18 02:07:39 1992 John Gilmore (gnu@cygnus.com) * main.c (gdb_readline): Avoid printf_filtered, which sets char position wrong if used for the prompt. * utils.c (puts_filtered): Comment: NOT a puts() replacement! Support for accessing arbitrary MIPS stack frames in memory. * blockframe.c (get_prev_frame_info): If INIT_FRAME_PC_FIRST is set, run it before INIT_EXTRA_FRAME_INFO. * stack.c (frame_info): If PRINT_EXTRA_FRAME_INFO defined, call it. * mips-tdep.c (init_extra_frame_info): Only clobber the `frame' (FP) value in the frame_info struct if it is zero (as from top of execution stack). (setup_arbitrary_frame): Implement FRAME_SPECIFICATION_DYADIC. * mips-xdep.c (fetch_inferior_registers): ZERO_REGNUM always comes back as zero. So does FP_REGNUM, as a trigger for init_extra_frame_info. * tm-mips.h (INIT_FRAME_PC_FIRST): Kludge, FIXME, defined to get the program counter set before INIT_EXTRA_FRAME_INFO is run. (INIT_FRAME_PC): Defined to null. (PRINT_EXTRA_FRAME_INFO): print frame pointer location via symtab. (FRAME_SPECIFICATION_DYADIC): Ask for two args in frame command. Briefly explain MIPS stacks in GDB. Thu Sep 17 03:49:59 1992 John Gilmore (gnu@cygnus.com) * copying.awk, copying.c (show_copying_command, show_warranty_command): Rename from copying_info, warranty_info, to match command function conventions. * utils.c (prompt_for_continue): Reinitialize more-counts before printing anything, and again afterward. Fix comments. (vfprintf_filtered): Eliminate static buffer; use auto buffer, or alloca() if needed. * rs6000-xdep.c: Use correct conditional (IBM6000_TARGET) to detect native versus cross-host. Wed Sep 16 21:57:14 1992 Stu Grossman (grossman at cygnus.com) * m68k-tdep.c (sun3_saved_pc_after_call): Only do trap check for Suns. Rename to m68k_saved_pc_after_call. * tm-68k-noun.h, tm-sun3.h (SAVED_PC_AFTER_CALL): Use m68k_saved... instead of sun3_saved... Wed Sep 16 17:00:07 1992 John Gilmore (gnu@cygnus.com) * Makefile.in (update-depend, update-alldeps): Split out of setup-to-dist, for convenience in rebuilding the depend and alldeps.mak files. (assorted): Update to catch straggler files when building gdb.tar.Z. Tue Sep 15 01:18:50 1992 John Gilmore (gnu@cygnus.com) Preliminary cleanup for splitting host/native/target. * infptrace.c (child_resume): Don't deal with NO_SINGLE_STEP here; it is dealt with at a gdb-target-independent level. * rs6000-tdep.c (single_step): Don't call ptrace, we are a high toned routine. Fix return type to void. * tm-rs6000.h (AIX_BUGGY_PTRACE_CALL): Zap, we think we fixed it. Rich and I believe the "real problem" was that both single_step and target_resume were issuing PT_CONTINUE calls. This would cause the second PT_CONTINUE to sometimes fail because the process was already running. * infptrace.c (child_resume): Remove AIX_BUGGY_PTRACE_CALL kludge. Mon Sep 14 19:20:43 1992 Stu Grossman (grossman at cygnus.com) * energize.c (pty_to_kernel): Must check for EAGAIN as termination condition. (full_filename): Don't prepend dirname if filename begins with /. (breakpoint_notify, kernel_dispatch): Deal with DynamicLoad messages properly!! (getpty (NCR)): Lotsa bug fixes... (kernel_dispatch (case StopRType)): Use kill() instead of killpg() so we can deal with losing systems... (wait_for_events): Work around NCR select() lossage. It doesn't zero out readfds when select() returns zero. (energize_initialize): Use I_SETSIG to get SIGIO interrupts. Use getcwd() instead of getwd() (NCR getwd() seg faults). (energize_wait): Use sigaction() for NCR. Their version of signal() is unreliable by default. * procfs.c (proc_wait): Call print_sys_errmsg() if we get an error from PIOCSWSTOP. * breakpoint.c, core.c, exec.c, language.c, main.c, printcmd.c, symfile.c, target.c, valprint.c: Use _filtered form of *printf. defs.h, utils.c: Make vfprintf_filtered global. * energize.c (send_location): New routine to consolidate all places where we must notify kernel of where the given pc is. (cplus_demangle): Put single-quotes around demangled names. (energize_call_command): Call send_location() after doing up, down, and frame commands. Fri Sep 11 18:28:28 1992 Roland H. Pesch (pesch@fowanton.cygnus.com) * doc/gdb.texinfo, doc/gdbinv-m.m4.in, doc/gdbinv-s.m4.in: first pass at doc for two new remote targets---29K using UDI, and Tandem ST2000 using STDBUG. * doc/all.m4, doc/none.m4: new m4 switch, _ST2000__ * doc/all.m4: turn on H8/300 stuff for generic manual * doc/gdbinv-s.m4.in: remove text on special procedures to continue after explicit call to breakpoint() in serial stubs. Fri Sep 11 01:34:25 1992 John Gilmore (gnu@sphagnum.cygnus.com) * mipsread.c: Clean up some white space. (parse_symbol): Handle stEnd of stFile. (parse_partial_symbols): Remove old #if 0'd code. Handle stLocal. * mips-xdep.c (REGISTER_PTRACE_ADDR, fetch_inferior_registers, store_inferior_registers): Replace unexplained numbers with manifest constants from a DECstation header file. * xm-mips.h (KERNEL_U_ADDR): Get from . (REGISTER_U_ADDR): Fix up for Ultrix 4.2. * tm-tahoe.h, xm-tahoe.h (KERNEL_U_ADDR): Move macro to xm-tahoe.h. * stack.c (_initialize_stack): "dow" should be a valid abbreviation for "down". Suggested by Richard Stallman. Thu Sep 10 15:26:07 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * remote-vx.c: Rename realloc for inclusion of rpc/rpc.h, to avoid redeclaration bug on SunOS 4. Wed Sep 9 17:36:53 1992 John Gilmore (gnu@cygnus.com) * i386-stub.c, sparc-stub.c (getpacket): Actually check checksums. * m68k-stub.c: Remove a few extraneous ANSI-isms. * remote-nindy.c (nindy_prepare_to_store): Only fetch regs if they aren't already there. * remote-vx.c (vx_prepare_to_store): Ditto. * xcoffread.c: Surround forward struct defns with #ifdef __STDC__. Wed Sep 9 16:50:22 1992 John Gilmore (gnu@cygnus.com) Removed a large number of changes inserted by Per Bothner for C++ support. These will go back in when they've been examined. Tue Sep 8 21:05:18 1992 Stu Grossman (grossman at cygnus.com) * serial.h: Fix prototye for serial_raw(). * ser-bsd.c, ser-termios.c: Fix args for serial_open() & serial_write() to match prototypes. * remote-st2000.c (get_reg_name): Make *p be const. Tue Sep 8 17:24:52 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * remote-nindy.c (nindy_fetch_registers): Make return type void, to agree with target structure field type. (nindy_store_registers): Ditto. * Makefile (OPCODES): New var, pointing to opcodes library. (CLIBS, CDEPS): Include it. (saber_gdb): Load opcodes library. Tue Sep 8 15:22:06 1992 Stu Grossman (grossman at cygnus.com) * a68v-xdep.c (store_inferior_registers): declare as void. * infptrace.c: HP/Apollos have ptrace.h in the wrong place. * remote-st2000.c: Massive changes to use new serial package. Also added 'connect' command to transparantly connect to serial port. * ser-termios.c: Big cleanup, use nicer coding conventions. * ser-bsd.c: New module, serial stuff for BSD systems. * serial.h: Define struct ttystate properly using HAVE_TERMIO. * xm-apollo68b.h: #define PTRACE_IN_WRONG_PLACE... Fri Sep 4 18:53:57 1992 Roland H. Pesch (pesch@fowanton.cygnus.com) * doc/gdb.texinfo: fix shameful error of agreement reported by jimb@occs.cs.oberlin.edu (Jim Blandy) * doc/gdb.texinfo: remove old partial discussion of remote serial protocol (via serial debug stubs) * doc/gdbinv-m.m4.in, doc/gdbinv-s.m4.in: new section discussing use of serial debug stubs Fri Sep 4 00:34:30 1992 Per Bothner (bothner@rtl.cygnus.com) * symfile.h: Declaration of set_demangling_style() moved here from demangle.h (which is now in ../include). * i386-xdep.c: Update comment. Thu Sep 3 13:44:46 1992 K. Richard Pixley (rich@sendai.cygnus.com) * symtab.c (completion_list_add_symbol): restructured to optimize for time. First clip names that cannot match. Then clip any names we've already considered. Drop a redundant strncpy. Drop a redundant malloc and associated free for demangled names. Thu Sep 3 09:17:05 1992 Stu Grossman (grossman at cygnus.com) * a68v-xdep.c (store_inferior_registers): Define as type void. * configure.in: Add host m68k-apollo*-bsd*. * demangle.c (struct demanglers): Use enum instead of constant value to keep braindamaged HP/Apollo compiler happy. Wed Sep 2 20:45:31 1992 Per Bothner (bothner@rtl.cygnus.com) * utils.c (strcmp_iw): Add a hack to allow "FOO(ARGS)" to match "FOO". This allows 'break Foo' to work when Foo is a mangled C++ function. (See comment before function.) Wed Sep 2 13:45:27 1992 John Gilmore (gnu@cygnus.com) * config/rs6000.mh (MH_CFLAGS): Circumvent IBM bug, for files in vx-share/*.c. * xm-rs6000.h (fd_set): Circumvent the rs6000.mh circumvention, for normal GDB source files. * Makefile.in (VERSION): Roll to 4.6.6. * tm-vx68.h, tm-es1800.h: Use tm-68k.h rather than tm-sun3.h. * tm-sun3.h: Remove STACK_END_ADDR, no longer used. * tm-sun3os4.h: Update comments. * xm-delta88.h: Remove STACK_END_ADDR. Wed Sep 2 01:18:31 1992 John Gilmore (gnu@cygnus.com) * Makefile.in (VERSION): Roll to 4.6.5. * infrun.c: Lint for recent `handle' changes. * ser-termios.c, ser-go32.c: Remove DEFUN crap, clean up. * serial.h (EXFUN): Remove all uses, convert to PARAMS. * config/sun4os4.mh: Include ser-termios.o. FIXME, all .mh files should include a ser-XXX.o module. * dbxread.c (elfstab_build_psymtabs): Remove DEFUN crap. * defs.h, i960-pinsn.c, remote-hms.c: Replace CONST with simple const. * configure.in: Map unrecognized sun 68k's, sun sparcs, into known suns in configure.in, rather than mapping them to unique config files that happen to duplicate other config files. * config/sun3.{mh,mt}: Remove (use identical sun3os4.*). * config/sun4.{mh,mt}: Remove (use identical sun4os4.*). Wed Sep 2 00:10:43 1992 John Gilmore (gnu@cygnus.com) * configure.in (*-*-sunos*): Use trailing * to match all sub-variants of SunOS, e.g. sunos4* to match sunos4.1.1. (sparc-*-sunos3): Remove host & target. Sunos3 never shipped in production on Sun-4. ({a29k,i[34]86,i960}-*-elf): Add targets, equivalent to coff. (m68k-*-{aout,coff,elf}): Add targets, w/new config and tm files. (sparc-*-{aout,coff,elf}): Add targets, w/new config and tm files. * config/m68k-un.mt, config/m68k-noun.mt, config/sparc-un.mt, config/sparc-noun.mt: New target configs for embedded. * config/sun4os3.{mh,mt}: Remove, never existed in production. * tm-68k-un.h, tm-68k-noun.h, tm-spc-un.h, tm-spc-noun.h: New target definitions for embedded with and without underlines on identifiers. * tm-sparc.h, tm-sun2.h, tm-sun3.h: Delete NAMES_HAVE_UNDERSCORE: not a parameter of the CPU, but of the development environment. * tm-es1800.h, tm-sunos.h, tm-vx68.h: Add NAMES_HAVE_UNDERSCORE. Tue Sep 1 17:31:45 1992 John Gilmore (gnu@cygnus.com) * breakpoint.c (breakpoint_re_set): Avoid setting source symtab (which involves reading in main's symtab) if we have no breakpoints. Mon Aug 31 13:47:45 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (cu_language): New local variable to record language for current compilation unit being processed. * dwarfread.c (set_cu_language): New local function to decode and record language for current compilation unit being processed. * dwarfread.c (synthesize_typedef): Add local function to synthesize a typedef for C++ classes, structs, unions, and enumerations. * dwarfread.c (read_structure_scope): Synthesize typedefs for C++ classes, structs and unions. * dwarfread.c (read_enumeration): Synthesize typedefs for C++ enumerations. * dwarfread.c (read_file_scope): Call set_cu_language to record language for current compilation unit. After symtab is built, save this recorded language. * dwarfread.c (process_dies, add_partial_symbol, struct_type, scan_partial_symbols, new_symbol): Recognize TAG_class_type. * dwarfread.c (add_partial_symbol): Synthesize partial symbol typedefs for C++ classes, structs, unions, and enumerations. * dwarfread.c (scan_compilation_units): Call set_cu_language to record language for current compilation unit. * dwarfread.c (scan_partial_symbols): Call add_enum_psymbol here for TAG_enumeration_types, rather than in add_partial_symbol. * dwarfread.c (add_partial_symbol): Combine TAG_enumeration_type case with class, struct, and union type cases, now that they are the same. Remove tests for non-NULL name attributes, now done by callers. * gdbtypes.h (TYPE_CODE_CLASS): Add type for C++ classes, but treat as alias for TYPE_CODE_STRUCT for now. Sun Aug 30 21:32:17 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: map "gdb" through program_transform_name when installing. Sun Aug 30 21:18:51 1992 Fred Fish (fnf@cygnus.com) * {i386-tdep.c, m68k-tdep.c, mips-tdep.c, sparc-tdep.c} (supply_gregset, fill_gregset, supply_fpregset, fill_fpregset): Use "regi" for local indexing through register numbers, reserving "regno" for the name of a specific register passed as an input parameter. Fix bug propagated through all versions that sometimes used regno as an index when it should have been regi, thus using -1 as an index in some cases. Sun Aug 30 18:15:17 1992 Per Bothner (bothner@rtl.cygnus.com) * cplus-dem.c, demangle.h: Moved to ../libiberty and ../include, respectively, so same demangler can be used by other programs. * Makefile.in: Remove demangler stuff. * Makefile.in (depend): Pass -I../readline (needed for main.c). * demangle.c (_initialize_demangler): Tell demangler which CPLUS_MARKER to assume. Fri Aug 28 13:13:33 1992 John Gilmore (gnu@cygnus.com) RS/6000 portability changes (for hosting cross-debuggers). * breakpoint.c (fixup_breakpoints): Re-kludge to IBM6000_TARGET. * buildsym.c, rs6000-xdep.c, rs6000-tdep.c, tm-rs6000.h, xcoffexec.c, xcoffread.c: Rename aixcoff to xcoff everywhere. * printcmd.c (print_frame_args): Remove an RS/6000 dependency. * stabsread.c (define_symbol): Remove RS/6000 dependencies. * tm-rs6000.h (ATTACH_DETACH): Remove: host-dependent. (PTRACE_ATTACH, PTRACE_DETACH): Remove: host-dep. (NO_SINGLE_STEP): Add, target-dependent. (loadinfotextindex): Lowercase, remove "aix_". * xm-rs6000.h: Add for infptrace.c. (NO_SINGLE_STEP): Remove, target-dependent. * xcoffexec.c (vmap_symtab): Cleanup #if 0'd code. * xcoffread.c: Only build file if RS/6000 native GDB. (build_function_symbol): Remove #if 0'd code. * rs6000-tdep.c: Cleanup. Add static fn protos. Use CORE_ADDR for addresses throughout. Make void fns void. (pop_dummy_frame): Add FIXME about bogosity of design here. (rs6000_struct_return_address): Ditto. (frameless_function_invocation, frame_get_cache_fsr, frame_initial_stack_address, xcoff_relocate_symtab, xcoff_init_loadinfo, free_loadinfo, xcoff_add_toc_to_loadinfo, add_text_to_loadinfo, find_toc_address): Move from xdep file. Use CORE_ADDRs. Change identifiers to lowercase. * rs6000-xdep.c: Make whole file conditional on native RS/6000, supplying dummy routines if non-native. Add prototype for static exec_one_dummy_insn. Move a mess of functions to rs6000-tdep.c (as above). Remove #if 0'd code. * config/rs6000.mh (XDEPFILES): Move xcoffexec.o to target side. (XM_CLIBS): Add -lm to circumvent AIX 3.2 libc ldexp bug. * config/rs6000.mt (TDEPFILES): Adopt xcoffexec.o. * gdbtypes.h (TYPE_ALLOC): Parenthesize result to avoid problems for callers. * vx-share/README, nindy-share/README: New files describing how these directories' code is shared, and with whom. Thu Aug 27 20:04:56 1992 John Gilmore (gnu@cygnus.com) * configure.in (target configurations): Reformat into table. Remove unsupp. Amigados host and target. Ditto Mach 386 target. * tm-altosgas.h, tm-i386v-g.h: Remove ancient coff encap configs. * config/{altosgas.mt, i386v-g.mt, i386v32-g.mt}: Ditto. * config/{i386sco.mt,i386v32.mt}: Remove; identical to i386v.mt. * config/{go32.mt,i960.mt}: Remove; they only printed error msgs. * config/nindy960.mt: Remove useless MT_CFLAGS setting. * config/i386aout.mt: Use tm-i386v.h, not tm-i386v-g.h. * Makefile.in (config-check): Add command to check whether configure.in is consistent with config/*. Wed Aug 26 21:10:52 1992 John Gilmore (gnu@cygnus.com) * configure.in (host configurations): Reformat nested cases into easy-to-maintain table. (m68k-altos-*, i386v*): We don't care whether coff encap is used. config/{altosgas.mh, i386v-g.mh, i386v32-g.mh}: Remove. Wed Aug 26 16:02:01 1992 Fred Fish (fnf@cygnus.com) * cplus-dem.c: Reorder args to most local functions to make them follow the consistent pattern of struct work_stuff pointer first, followed by pointer into string being demangled, followed by pointer to the string where the result is being stored, followed by other args. Also generally replace most variables of name "type" with "mangled" for consistency. They all pointed to the same string but half were one name and half the other. * cplus-dem.c (LONGERNAMES): Remove #ifndef's. * cplus-dem.c (demangle_qualified): Rewrite to clean up and allow use whenever a qualified name is being demangled. * cplus-dem.c (do_type): Qualified names are treated similarly to fundamental types, not as modifiers of fundamental types. Mon Aug 24 20:44:38 1992 Stu Grossman (grossman at cygnus.com) * configure.in: Add sparclite as a target. * sparc-stub.c (handle_exception): Flush instruction cache just before returning to the user. (hexToInt): Fix overzealous cleanup. Mon Aug 24 11:57:13 1992 Fred Fish (fnf@cygnus.com) * infrun.c (handle_command): Rewrite to allow multiple signal numbers, signal number ranges, and to recognize "all" to mean all signals except those used by the debugger. * infrun.c (SET_SIGS, UNSET_SIGS): Macros used in handle_command to set or reset actions for specific signals. Sun Aug 23 17:10:07 1992 Fred Fish (fnf@cygnus.com) * coffread.c (decode_type): Call alloc_type to alloc new types. * stabsread.c (read_array_type, read_range_type, define_symbol): Call alloc_type to alloc new types. * stabsread.c (define_symbol): Move dbl_valu symbol field data from type_obstack to symbol_obstack. * stabsread.c (define_symbol): Move typedef_sym from type_obstack to symbol_obstack. * gdbtypes.h (TYPE_ALLOC): New macro to allocate space for data associated with a type, using the same mechanism as was used to allocate space for the type structure itself. * coffread.c (patch_type, coff_read_struct_type, coff_read_enum_type): Use TYPE_ALLOC. * dwarfread.c (struct_type): Use TYPE_ALLOC. * gdbtypes.c (create_array_type, check_stub_method, allocate_cplus_struct_type): Use TYPE_ALLOC. * mipsread.c (parse_symbol, parse_type): Use TYPE_ALLOC. * stabsread.c (read_struct_type, read_array_type, read_enum_type, read_range_type): Use TYPE_ALLOC. Sun Aug 23 11:04:08 1992 Fred Fish (fnf@cygnus.com) * breakpoint.c (breakpoint_re_set): Select a default source symtab if one is not currently selected. * utils.c (query): Call wrap_here before building the output query string, to turn off wrapping and flush any buffered output. Otherwise our query may end up in the wrap buffer and never be seen by the user. * eval.c (evaluate_subexp): Report error when attempting to evaluate subscript for types without a target type, rather than dumping core by using the NULL pointer. * symfile.c (symbol_file_command): Forget current_source_symtab and current_source_line when discarding symbol table. Sat Aug 22 22:33:20 1992 John Gilmore (gnu@cygnus.com) Bug fixes from Andrew Heybey . * tm-mips.h (REGISTER_VIRTUAL_TYPE): Float regs are float type. * mips-tdep.c (mips_print_register): Alloc enough space for two regs. Fri Aug 21 15:17:03 1992 Stu Grossman (grossman at cygnus.com) * remote.c (remote_open): Fix baud rate setting to make -b flag work. (remote_wait): Change 'T' message parser to deal with new improved format which allows stub to send an arbitrary bunch of registers. * sparc-stub.c: General cleanups. (trap_low, handle_exception): make all this re-entrant by storing all state on the stack. Clean up memory error trapping. (computeSignal, set_debug_traps): make it all table driven. Make a start at a baud rate setting command. Wed Aug 19 10:23:27 1992 Ian Lance Taylor (ian@cygnus.com) * m68k-pinsn.c: handle new operand type 'r', introduced for cas2. * remote-vx.c: redefine malloc to avoid buggy declaration on RS/6000 . xm-rs6000.h: include to define fd_set for on RS/6000. Tue Aug 18 14:48:24 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: added FLAGS_TO_PASS variable, and passed it to recursive invocations of make. Always create installation directories. Mon Aug 17 18:29:58 1992 Per Bothner (bothner@rtl.cygnus.com) * m68k-pinsn.c: Minor fix in style of output (don't use range to indicate floating point control registers). Sat Aug 15 02:58:03 1992 John Gilmore (gnu@cygnus.com) * m68k-pinsn.c: Surround extended support with #ifdef HAVE_68881. * infcmd.c (registers_info): Handle multiple register names. Changes inspired by Roland McGrath. Sat Aug 15 02:28:52 1992 Stu Grossman (grossman at cygnus.com) * sparc-stub.c: New file. Mix it with your SPARClite application, and it will speak GDB remote protocol! * remote.c (remote_wait): Change 'T' (expedited reply) message to deal with arbitrary registers. Needed for sparc-stub. Fri Aug 14 12:11:25 1992 Fred Fish (fnf@cygnus.com) * cplus-dem.c (cplus_markers): Add table for gnu style and use throughout, in place of compile time constant CPLUS_MARKER. * cplus-dem.c (ARM_VTABLE_STRING, ARM_VTABLE_STRLEN): Add. * cplus-dem.c (cfront_special): New function, as suggested by pfieland@stratus.com. * cplus-dem.c (forget_types): New function. * cplus-dem.c (cplus_demangle): Call gnu_special, moved from demangle_prefix(). * cplus-dem.c (mop_up): Call forget_types(). * cplus-dem.c (AUTO_DEMANGLING, GNU_DEMANGLING, LUCID_DEMANGLING): Use throughout, instead of checking current_demangling_style. * cplus-dem.c (demangle_signature): When finding an explicit start of function args, forget all remembered types for lucid/cfront style demangling. * cplus-dem.c (demangle_prefix): In a sequence of two or more underbar characters, use last pair as the delimiter. Hoist gnu_special() call up to cplus_demangle(). Call cfront_special() when appropriate. * cplus-dem.c (cplus_special): Fix virtual table name demangling for inherited classes. * cplus-dem.c (demangle_args): Document quirks of numbered references to previously seen types. * dbxread.c (read_ofile_symtab, process_one_symbol): Use AUTO_DEMANGLING rather than explicitly checking current_demangling_style. * demangle.h: Add some comments. * demangle.h (AUTO_DEMANGLING, GNU_DEMANGLING, LUCID_DEMANGLING, CFRONT_DEMANGLING): New macros. * dwarfread.c (LCC_PRODUCER): Remove trailing space, which is not found in the actual producer string produced by lcc. * dwarfread.c (handle_producer): Use AUTO_DEMANGLING rather than explicitly checking current_demangling_style. Thu Aug 13 11:54:46 1992 John Gilmore (gnu at cygnus.com) * breakpoint.c (enable_longjmp_breakpoint, disable_longjmp_breakpoint, set_longjmp_resume_breakpoint): Check for duplicate breakpoints at the same address. Bug report and preliminary fix from Dave Morrison, . Wed Aug 12 11:14:58 1992 Fred Fish (fnf@cygnus.com) * buildsym.c (end_symtab): Document that end_symtab can return NULL under non-error conditions. * dwarfread.c (read_file_scope): Guard against dereferencing NULL returned from end_symtab for empty compilation units. Tue Aug 11 02:49:39 1992 John Gilmore (gnu at cygnus.com) * am29k-tdep.c: Lint from DECstation compiler. * mem-break.c: Restore test of BREAKPOINT size that Fred removed. As the man page says, "Sometimes you just can't get lint to shut up". That doesn't mean you should blow away the code it won't shut up about. * mips-xdep.c: Revise stubbing-out of code until Rich cleans it up over the next few weeks. Make mips x 29k build. * tm-29k.h (CALL_DUMMY): Make it work on cross-endian hosts. (FIX_CALL_DUMMY): Comment in the patching of the breakpoint, but leave it as a comment because the breakpoint instruction is not easily accessible at this moment (it's static, and if we define one here, it goes into every file compiled). Mon Aug 10 22:27:19 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.6.3. * dwarfread.c (scan_partial_symbols): Skip over DIE's within function scopes when building partial symbol tables. * objfiles.c (open_existing_mapped_file): Make it clear in warning message that out of date mapped files are ignored. * symtab.c (lookup_symtab_1, lookup_symbol): Print compilation unit source file name in error message. Sat Aug 8 23:12:22 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (struct dieinfo): Add has_at_byte_size. * dwarfread.c (struct_type): In absence of AT_byte_size for bitfield, use size of object of member's type for the size of the anonymous object containing the bit field. * dwarfread.c (completedieinfo): Set has_at_byte_size when an AT_byte_size attribute is seen. * mipsread.c (psymtab_to_symtab_1): Fix misspelled cast to union aux_ext (was aux_ent). * i386-pinsn.c (print_insn): Cast 2'nd arg to read_memory from unsigned char* to char*, for Lucid compiler. * i386-tdep.c (codestream_fill): Fix cast of 2'nd arg to read_memory to be correct type (from unsigned char* to char*). * valprint.c (type_print_derivation_info): Minor tweak to placement of commas in derived class printing. * xcoffread.c (builtin_type): Fix misspelling in fatal message. Fri Aug 7 11:18:23 1992 Steve Chamberlain (sac@thepub.cygnus.com) * xm-go32.h: Define LSEEK_NOT_LINEAR * source.c (find_source_lines): if LSEEK_NOT_LINEAR is defined then work out the lseek positions of newlines by running through the file and `tell'ing. This makes source file listing work on OS's where the relationship between physical position in file and canonical position is indeterminate, eg VMS and DOS. Thu Aug 6 10:56:01 1992 Fred Fish (fnf@cygnus.com) * stabsread.c: Ensure that all members of all allocated structures are initialized to known state to avoid hard to find bugs with gdb using fields containing random data. * buildsym.c (start_subfile): Compact dirname initialization. * buildsym.c (patch_subfile_names): New function. * buildsym.c (end_symtab): Make copy of dirname on symbol obstack. * buildsym.c (end_symtab): Free all malloc'd subfile fields. * buildsym.h (patch_subfile_names): Add prototype. * dbxread.c (process_one_symbol): Call patch_subfile_names. Wed Aug 5 01:42:40 1992 John Gilmore (gnu at cygnus.com) * remote-udi.c: Update comments. * remote.c (getpkt): Only force retransmission ten times; after that, assume bug in target code, and handle pkt anyway. Mon Aug 3 17:06:20 1992 Stu Grossman (grossman at cygnus.com) * configure.in: Add support for apollo 68k under BSD environment. * xm-apollo68b.h: New file to support above. Mon Aug 3 00:25:56 1992 Fred Fish (fnf@cygnus.com) * configure.in: Recognize i486 host cpu. * valprint.c (type_print_derivation_info): Print derivation info in same form as class declarations in source. * valprint.c (type_print_varspec_suffix): Split arg printing code out to type_print_args function. Sat Aug 1 13:32:58 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (struct dieinfo): Remove obsolete at_visibility, at_import, at_frame_base. * dwarfread.c (completedieinfo): Remove cases for obsolete AT_visibility, AT_import, and AT_frame_base attributes. * breakpoint.h (BREAKPOINT_MAX): Increase from 10 to 16 for i860, which can keep up to 4 shadow breakpoints. * tm-stratus.h (USG): Define. * tm-stratus.h (TARGET_BYTE_ORDER): Define to BIG_ENDIAN. * xm-stratus.h (HOST_BYTE_ORDER): Define to BIG_ENDIAN. * xm-stratus.h (xm-sysv4.h): Include, name changed from xm-svr4.h. * xm-stratus.h (NO_JOB_CONTROL): Remove define. * config/stratus.mt (TDEPFILES): Include files available from stratus that are not yet in release pending receipt of paperwork at FSF. * buildsym.c (finish_block): Minor code format change. * gdbtypes.h (struct field): Add to comments. * gdbtypes.h (virtual_field_bits): Add to comments. * objfiles.c (allocate_objfile): Change obstack interface to match FSF merging efforts. Mon Jul 27 21:14:44 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.6.2. * Makefile.in (SFILES_MAINDIR): Add stabsread.c * Makefile.in (OBS): Add stabsread.o * Makefile.in (stabsread.o): Add build rule. * stabsread.c, stabsread.h: New files. * buildsym.c: Split out stabs specific support to stabsread.c. * buildsym.h: Split out stabs specific support to stabsread.h. * dbxread.c (stabsread.h): Include * dbxread.c (dbx_new_init): Call stabsread_new_init. * dbxread.c (dbx_psymtab_to_symtab_1): Call stabsread_init. * dbxread.c (read_ofile_symtab): Call end_stabs. * dbxread.c (process_one_symbol): Call end_stabs and start_stabs. * dbxread.c (elfstab_build_psymtabs): Call stabsread_new_init. * dwarfread.c (psymtab_to_symtab_1): Call buildsym_init, add really_free_pendings to cleanups. * elfread.c (elf_new_init): Call stabsread_new_init. * gdbtypes.c: Small changes to maintenance commands. * mipsread.c (stabsread.h): Include. * mipsread.c (psymtab_to_symtab_1): Call end_stabs. * xcoffread.c (stabsread.h): Include. * xcoffread.c (global_stabs): Remove redundant def. * xcoffread.c (read_xcoff_symtab): Call start_stabs and end_stabs. Wed Jul 22 21:39:33 1992 Fred Fish (fnf@cygnus.com) * lmode_inferior_valid, lmode_ours_valid: New static vars. * inflow.c (terminal_init_inferior, terminal_inferior, terminal_ours_1, initialize_inflow): Record and use state of lmode_inferior_valid and lmode_ours_valid. Wed Jul 22 04:23:03 1992 D. V. Henkel-Wallace (gumby@cygnus.com) * es1800.c: use FREAD|FWRITE rather than _FREAD|_FWRITE. include on USG. (from sef). * depend: es1800 dependency needed here. Mon Jul 20 21:09:53 1992 Fred Fish (fnf@cygnus.com) * buildsym.c (read_struct_type): Initialize structs allocated with alloca, to avoid using random values from stack later on. * defs.h (fprintf_filtered): Add prototype. * gdbtypes.c (check_stub_method): Fix misleading comments. * gdbtypes.c (print_arg_types, dump_fn_fieldlists): New maint support functions. * gdbtypes.c (print_cplus_stuff, recursive_dump_type): Many small changes to maint support functions. * gdbtypes.h (cplus_struct_type): Reorganize member ordering for some fields and expand comments. * objfiles.c (allocate_objfile): Use new obstack_alloc_arg macro and track change to obstack_full_begin macro. * utils.c (fprintfi_filtered): New function. * valprint.c (type_print_base): Fixup field printing to not print extraneous lines and not print bogus "no data fields" messages for C++ classes with no data members. Also use new fprintfi_filtered function. Mon Jul 20 11:25:18 1992 D. V. Henkel-Wallace (gumby@cygnus.com) * configure.in: es1800 ok for 68000 too. Sat Jul 18 15:48:58 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: echo error messages to stderr, not stdout Fri Jul 17 17:07:24 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: recognize hppa* instead of hppa Fri Jul 17 16:52:04 1992 Stu Grossman (grossman at cygnus.com) * energize.c: Second cut at DynamicLoad message handling. * energize.c: Relativize pathnames in #include statements. * (kernel_dispatch): Better error messages for unknown protocol messages. * (kernel_dispatch): First cut at DynamicLoad message handling. * Makefile.in: Remove -I../readline from all compilations, include a special case for main.o instead. Fri Jul 17 10:14:56 1992 Fred Fish (fnf@cygnus.com) * eval.c (evaluate_subexp): Ask lookup_struct_elt_type to call error if it fails to find a member type, rather than return NULL and trigger a coredump. * symtab.c (lookup_symbol, lookup_demangled_block_symbol, lookup_demangled_partial_symbol,): Ask demangle_and_match to match on complete demanglings, including argument lists for member functions, rather than just accepting the first demangling that matches the class and function name. * dwarfread.c (read_file_scope): Pass contents of AT_comp_dir to start_symtab as the directory name. * dwarfread.c (completedieinfo): Strip off any leading hostname portion of the AT_comp_dir attribute string. Gdb doesn't know what to do with them (FIXME). Thu Jul 16 13:37:09 1992 Stu Grossman (grossman at cygnus.com) * breakpoint.c (commands_command): Simplify code a bit, remove unnecessary fflush(). * Makefile.in (OTHERS): Add gcc.patch. * partial-stab.h (N_SO): Fix handling of redundant SOs (again...) Thu Jul 16 12:07:40 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (LCC_PRODUCER): Change to match current NCR lcc producer string. Thu Jul 16 11:40:55 1992 Stu Grossman (grossman at cygnus.com) * WHATS.NEW renamed to NEWS. Wed Jul 15 11:37:31 1992 Fred Fish (fnf@cygnus.com) * dbxread.c, dwarfread.c: Re-enable experimental code to automatically select demangling style. * demangle.c (DEFAULT_DEMANGLING_STYLE): Rename from simply DEMANGLING_STYLE, to make more descriptive. Revert back to "auto" as default. Comment use. * Makefile.in (DEMANGLING_STYLE, DEMANGLE_OPTS): Remove. * Makefile.in (${DEMANGLER}.o) Remove target and special compilation rule. Tue Jul 14 23:05:14 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.6.1 (post-release versions). Tue Jul 14 19:26:54 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in, demangle.c: Change default demangling style to gnu. * Makefile.in: Update version to 4.6 !!! * README, WHATS.NEW: Update for 4.6. Tue Jul 14 16:59:46 1992 Ken Raeburn (raeburn@cygnus.com) * i960-tdep.c (frame_args_address): If arg pointer can't be found, use frame address. * buildsym.c (read_struct_type): Don't die on TYPE_CODE_UNDEF nodes as base classes. Tue Jul 14 00:12:30 1992 Stu Grossman (grossman at cygnus.com) * alldeps.mak, depend: Update. * xcoffread.c: Add decl for section_offset to keep prototype happy. * Makefile.in (VERSION): 4.5.9. * xm-hp300bsd.h: Add decl for strdup(). * mips-tdep.c (heuristic_proc_desc): Fill in proc start addr in PDR. Cleanup a few things, fix compilation warnings. Mon Jul 13 19:06:54 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (DEMANGLING_STYLE): New define to set default demangling style for C++. Defaults to "auto". * Makefile.in (DEMANGLE_OPTS): Use DEMANGLING_STYLE. * Makefile.in (SFILES_MAINDIR): Add demangle.c * Makefile.in (OBS): Add demangle.o * cplus-dem.c (GNU_DEMANGLING, ARM_DEMANGLING, LUCID_DEMANGLING): Remove compile time decisions about demangling style and replace with runtime decisions using current_demangling_style. * cplus-dem.c (main): Expand code included during building of standalone demangler to recognize demangling style options. * dbxread.c (demangle.h): Include. * dbxread.c (read_ofile_symtab, process_one_symbol): Set GNU C++ demangling style if processing g++ code and current demangling style is auto (Note: this feature currently disabled.) * demangle.c: New file, generic demangling control. * demangle.h (demangling_styles): New enumeration to select one of several demangling styles. Also define string names for each style. * demangle.h (set_demangling_style): Add prototype. * dwarfread.c (demangle.h): Include. * dwarfread.c (GPLUS_PRODUCER, LCC_PRODUCER, CFRONT_PRODUCER): New producer string prefixes to recognize. * dwarfread.c (handle_producer): Consolidate actions for specific producers. Set demangling style based on producer string if current style is auto. (Note: this feature currently disabled.) * config/ncr3000.mt (DEMANGLE_OPTS): Remove. Sat Jul 11 18:23:58 1992 John Gilmore (gnu at cygnus.com) * config/sun4sol2.mh: Remove -xs flag, default INSTALL to cp. Fri Jul 10 13:58:34 1992 Per Bothner (bothner@rtl.cygnus.com) * gdbtypes.c, gdbtypes.h: New function lookup_signed_typename. * c-exp.y: Call lookup_signed_typename() after seeing "signed". This handles "signed char" correctly. * c-exp.y: Recognize (but ignore) 'const' and 'volatile' keywords before a type specifier. Fri Jul 10 10:19:52 1992 Fred Fish (fnf@cygnus.com) * command.c (lookup_cmd_1): Clarify descriptive comments. * gdbcmd.h (maintenanceprintlist): Add declaration. * main.c (maintenanceprintlist): Add definition. * main.c (gdb_completer_command_word_break_characters): Add. * main.c (symbol_completion_function): Switch completer word break character sets dynamically, based on whether completion is being done on commands or on something else. * main.c (initialize_cmd_lists): Init maintenanceprintlist. * maint.c: Include demangle.h. * maint.c (maintenance_demangle): New function. * maint.c (maintenance_print_command): New function. * maint.c (_initialize_maint_cmds): Reorganize some commands under new maintenance print subcommand. Thu Jul 9 19:05:27 1992 Per Bothner (bothner@rtl.cygnus.com) * gdbtypes.c (lookup_struct_elt_type): If the input type is TYPE_CODE_PTR or TYPE_CODE_REF, dereference it to get the target type. Otherwise, 'whatis this.field' wouldn't work, which would be inconsistent, since 'print this.field' works. * buildsym.c (read_struct_type, read_enum_type): Clear TYPE_FLAG_STUB flag. * buildsym.c (cleanup_undefined_types): Don't rely on a flawed "Reasonable test to see if" a type has been defined since it was referred to; now we can just see if the TYPE_FLAG_STUB flag has been cleared. * valprint.c (print_type_base): Emit public/protected/private labels for methods as well as fields. Also, indent these labels 2 spaces instead of 4, for a more conventional "look". * symtab.c (gdb_mangle_name): Undo Fred's change, unless GCC_MANGLE_BUG is defined. Also, handle destructors specially. * gcc.patch: New file. Contains patch for gcc (so people with gdb-2.2.x won't have to wait for a new gcc release). Thu Jul 9 18:44:26 1992 Ken Raeburn (raeburn@cygnus.com) * i960-pinsn.c (mem): Variables reg[123] should point to CONST. (print_addr): Call print_address to show symbolic version as well. * remote-vx.c (vx_kill): Don't look for arguments; they aren't being passed. (vx_read_register): Declare inferior_fp_regs. Delete code for copying "inferior_registers" around; the values are already in var "registers". Use correct size for register set. * remote-vx.c (vx_write_register): Don't try writing FP regs; the target doesn't support it. (vx_read_register): Don't try reading them either. * tm-i960.h (IP_REGNUM): Move to end of non-FP list, since the VxWorks back end reads them in one contiguous set except for this one. (register_names): Change "pc" to "pcw" to avoid confusion printing "$pc". * tm-vx960.h (PC_REGNUM): Use RIP_REGNUM, since that's where we find the PC under VxWorks. Wed Jul 8 21:34:30 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (alloc_utype, decode_subscr_data): Call alloc_type to create new blank types, instead of handcrafting them. * defs.h (printfi_filtered): Add prototype. * utils.c (printfi_filtered): New function. * gdbtypes.c (recursive_dump_type): Use printfi_filtered to to simplify the code. Other cleanups. * gdbtypes.c (check_stub_method): Demangle using DMGL_ANSI. * gdbtypes.h (struct cplus_struct_type): Add comments describing use of various fields. * gdbtypes.c (print_bit_vector, print_cplus_stuff): New functions. * c-exp.y (%token): Add CLASS as a token for C++, add grammar production that currently treats it exactly the same as STRUCT. * c-exp.y (yylex): Recognize "class" as token CLASS. * symtab.c (gdb_mangle_name): Rewrite to match current g++ stabs. * symtab.c (decode_line_1): Fix to pass quoted args on down to general symbol handling code. Call cplus_mangle_opname with DMGL_ANSI. * symtab.c (decode_line_2): Print demangled function names in breakpoint menus, instead of just file and line number. * symtab.c (name_match): Call cplus_demangle with DMGL_ANSI. * valprint.c (type_print_base): Print "class" for C++ classes, rather than "struct". Print section labels for public, protected and private members of C++ classes. * values.c: Include demangle.h. * values.c (value_headof): Call cplus_demangle with DMGL_ANSI. Wed Jul 8 17:23:07 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (VERSION): Update to 4.5.8. Wed Jul 8 00:11:02 1992 Stu Grossman (grossman at cygnus.com) * dbxread.c (dbx_symfile_init): Init stab_section_info to NULL to prevent crashes when examining cross-targets. * dbxread.c (process_one_symbol): Include directory name when calling start_subfile for SOL & BINCL symbols. This allows gdb to find include files, and yacc/lex sources when the cwd doesn't match that in which the object was compiled. * objfiles.h (ALL_MSYMBOLS): Don't seg fault when there are no msymbols. * symtab.c (lookup_symtab_1): Rewrite. It now handles include files. Tue Jul 7 09:00:42 1992 Fred Fish (fnf@cygnus.com) * maint.c (maintenance_command, maintenance_info_command): Install with allow_unknown as 0 and call help_list to show list of possibilities when no subcommand is specified. Tue Jul 7 00:20:29 1992 Fred Fish (fnf@cygnus.com) * configure.in: Add m68k-ericsson-*. * remote-es1800.c, tm-es1800.h, config/es1800.mt: New files. Sun Jul 5 17:17:16 1992 Fred Fish (fnf@cygnus.com) * maint.c: New file. * Makefile.in (SFILES_MAINDIR): Add new file maint.c. * Makefile.in (OBS): Add new file maint.o. * defs.h (command_class): Add class_maintenance. * defs.h (MAINTENANCE_CMDS): Default to including maintenance commands. Allow for them (and other nonessential parts of gdb) to be selectively left out under special circumstances. * gdbtypes.c (recursive_dump_type): New function; supports maintenance print-type command. * gdbtypes.h (recursive_dump_type, maintenance_print_type): Add prototypes. * main.c (maintenancelist, maintenanceinfolist): Add maintenance command lists. * main.c (initialize_cmd_lists): Eliminate unnecessary casts on initializers. Add initializations for setprintlist, showprintlist, setchecklist, showchecklist, maintenancelist, and maintenanceinfolist. * printcmd.c (maintenance_print_type): New maintenance cmd. * valprint.c (setprintlist, showprintlist): Move to main.c, as implied by comment that all cmd lists are owned by main.c. * infcmd.c (unsetlist): Move to main.c, as implied by comment that all cmd lists are owned by main.c. * language.c (setchecklist, showchecklist): Move to main.c, as implied by comment that all cmd lists are owned by main.c * breakpoint.c (enablelist, enablebreaklist, disablelist, cmdlist, deletelist): Remove redundant declarations (also in gdbcmd.h). * symmisc.c (printsyms_command): Now maintenance_print_symbols. * symmisc.c (printmsyms_command): Now maintenance_print_msymbols. * symmisc.c (printpsyms_command): Now maintenance_print_psymbols. * symmisc.c (printobjfiles_command): Now maintenance_print_objfiles. * symtab.h (maintenance_print_symbols, maintenance_print_psymbols, maintenance_print_msymbols, maintenance_print_objfiles): Add prototypes. * symmisc.c (printsyms_command, printpsyms_command, printmsyms_command, printobjfiles_command): Removed from _initialize_symmisc. * main.c (dump_me_command): Moved to maint.c and renamed to maintenance_dump_me. * breakpoint.c (all_breakpoints_info): Rename to maintenance_info_breakpoints. * breakpoint.c (_initialize_breakpoint): Convert add_info of all_breakpoints_info to add maintenance_info_breakpoints to the maintenanceinfolist instead. main.c (initialize_main): Set up maintenance class commands. Sun Jul 5 11:03:53 1992 Stu Grossman (grossman at cygnus.com) * energize-patches: Fix minor problems with building energize lib. * energize-patches: Change names of all cadillac procedure calls to be energize procedure calls. Simplify many hooks by moving tests energize.c. Configure energize, and build it automatically now. Sun Jul 5 09:43:28 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.5.7. * cplus-dem.c (demangle_args): Validate index for previously seen type to guard against bogus values from malformed manglings. * valops.c (value_struct_elt_for_reference): Guard against blindly using NULL return value from lookup_symbol. Sun Jul 5 09:46:43 1992 Stu Grossman (grossman at cygnus.com) * cadillac.c, cadillac-patches: Rename to energize.c and energize-patches. Change all routines and variables named 'cadillac*' to 'energize*'. Create new file called energize.h to hold all interface declarations. * deblib/connection/*: Move all of this stuff into energize/, but delete unneeded files. Sun Jul 5 03:06:39 1992 John Gilmore (gnu at cygnus.com) * tm-sysv4.h (NAMES_HAVE_UNDERSCORE): SVR4 systems don't. * buildsym.c (finish_block): Fix thinko `inner block' complaints. * dbxread.c (process_one_symbol): Parse N_OPT "gcc2_compiled.". * procfs.c (proc_set_exec_trap): Set run-on-last-close flag on child processes, to avoid dead ones "hanging around" after GDB exits. (attach): Always stop the process if it needs it. Set RLC flag when attaching running processes, so it will continue if we detach it, quit, or are killed. (detach): Clear faults and set RLC flag to make process run when we close it. (open_proc_file): New `mode' argument for O_RDONLY or O_RDWR. Callers changed. (info_proc): Open process O_RDONLY, so we can see any process, even those controlled by debuggers. * tm-sun4sol2.h (SUN_FIXED_LBRAC_BUG): They did (in Sol 2). Sat Jul 4 03:43:38 1992 John Gilmore (gnu at cygnus.com) Relocate symbols using an array of section_offsets, rather than a single `addr' or `offset'. This makes Solaris-2 support work, and permits better VxWorks (and maybe xcoff) support later. * symtab.h (struct section_offsets): New structure for keeping a set of offsets, rather than a single one. (struct objfile): Replace addr with section_offsets member. * symfile.h: Add sym_offsets to struct sym_fns. Conforming changes. * gdb-stabs.h: New include file with `symbol type specific' parameters for psymtabs and objfiles. * Makefile.in (HFILES): Add gdb-stabs.h. * buildsym.h (start_psymtab, process_one_symbol): Fix prototypes. * coffread.c: Conforming changes. Fake offset array always 0. * dbxread.c: Conforming changes. (struct dbx_symfile_info): Move to gdb-stabs.h. (start_psymtab): Call elfstab_offset_sections to calculate good offsets for this source file, based on the ELF symbol table info. (read_ofile_symtab): Yank N_CATCH, which is dead. (process_one_symbol, N_CATCH): Yank. (", N_FUN, N_FNAME, N_FN, N_FN_SEQ, N_SO, N_SOL, N_ENTRY): Relocate with SECT_OFF_TEXT. (", N_STSYM, N_LCSYM, N_ROSYM): Grope around in the stab string to distinguish relocatable from absolute symbols. Then, if not absolute, do: (", N_STSYM, N_DSLINE): SECT_OFF_DATA. (", N_LCSYM, N_BSLINE): SECT_OFF_BSS. (", N_ROSYM): SECT_OFF_RODATA. (elfstab_build_psymtabs): Caller has allocated dbx_symfile_info. (dbx_symfile_offsets): Add to translate addr to offset. * dwarfread.c: Conforming changes. Single offset currently used. * elfread.c: Add various complaints about elf/stab stuff. #include gdb-stabs.h. Conforming changes, using a single offset. (elf_symtab_read): Record info from BSF_FILE symbols, and local variables called "Bbss.bss", "Ddata.data", and "Drodata.rodata", for later use in building psymtabs. (elf_symfile_read): Allocate dbx_symfile_info here, to keep the info collected in elf_symtab_read. Cleanup calls free_elfinfo. (free_elfinfo): New fn, frees all chained stab_section_infos in an objfile, and zaps the start-of-chain pointer. (elfstab_offset_sections): New fn, looks in stab_section_info chain to determine section bases to relocate a psymtab's worth of symbols, as they are being read. * mipsread.c: Conforming changes. Stabs-reading will relocate using one offset. MIPS-reading will not relocate at all. * partial-stab.h: Relocate different symbol types using different offsets from section_offsets. * symfile.c: Conforming changes. (find_lowest_section): Unused function to use later to free us from the Tyranny of the Text Section. (syms_from_objfile): Translate absolute arg ADDR to offsets used in all lower layers of symbol reading. Call format-specific sym_offsets function to initialize offsets for high speed symbol reading. (symbol_file_add): Call reinit_frame_cache so callers don't have to. (symbol_file_command, add_symbol_file_command): Callers changed. * symmisc.c (dump_psymtab): Print new relocation parameters. * xcoffread.c: Corresponding changes. * buildsym.c: Tidy innerblock_complaint and blockvector_complaint. * main.c (main): Read the $HOME/.gdbinit file before processing the argv arguments (e.g. reading symbol files or core files). This allows global parameters to be set, which will apply during the symbol reading. The ./.gdbinit is still read after argv processing. * symtab.c (list_symbols): `i variables' shouldn't show enum values. * xcoffexec.c: Clean up quote inside comment. Fri Jul 3 20:18:26 1992 Fred Fish (fnf@cygnus.com) * breakpoint.c, buildsym.c, c-exp.y, coffread.c, command.c, core.c, cplus-dem.c, dbxread.c, dwarfread.c, elfread.c, environ.c, eval.c, findvar.c, gdbtypes.c, hppabsd-tdep.c, hppahpux-tdep.c, i386-tdep.c, ieee-float.c, infcmd.c, inflow.c, infptrace.c, infrun.c, m2-exp.y, mipsread.c, objfiles.c, parse.c, procfs.c, putenv.c, remote-mm.c, remote-vx.c, solib.c, sparc-tdep.c, sparc-xdep.c, stack.c, symfile.c, symtab.c, symtab.h, target.c, tm-i386v.h, tm-sparc.h, utils.c, valarith.c, valops.c, valprint.c, values.c, xcoffread.c: Remove "(void)" casts from function calls where the return value is ignored, in accordance with GNU coding standards. Fri Jul 3 00:00:49 1992 John Gilmore (gnu at cygnus.com) * dbxread.c (process_one_symbol): Ignore N_MAIN, N_ENDM for Solaris. * partial-stab.h: Ignore N_ENDM. * elfread.c (elf_symtab_read): Ignore symbols that don't have a CODE or DATA section attachment. This eliminates a lot of random values from shared libraries, which screw up the ordinary symbols in the address ranges they happen to overlap. * buildsym.c (define_symbol): Eliminate special tests for function types; move into "function" cases in switch statement. (define_symbol: 'f', 'F', 'P'): Process all parameter types in case they define new type numbers. But ignore them (FIXME). ('k', 'B'): Ignore const and volatile if we see them (FIXME). (read_sun_builtin_type): Add commentary. Wed Jul 1 00:47:02 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * xm-rs6000.h: define MEM_FNS_DECLARED Tue Jun 30 02:25:10 1992 John Gilmore (gnu at cygnus.com) * tm-mips.h (GDB_TARGET_IS_MIPS): Define for mips-xdep.c. (READ_MIPS_FORMAT, COFF_FORMAT): Remove, unused now. * mips-xdep.c: Remove most include files (unused, caused errs). (fetch_core_registers): Use right parameters in dummy fn. Mon Jun 29 18:30:57 1992 John Gilmore (gnu at cygnus.com) * buildsym.c (scan_file_globals): Beware the null file. Fix from Jim Williams. * stack.c (return_command): Evaluate expression *before* popping off the stack frames! Fix inspired by Jim Williams. (up_silently_command, down_silently_command): No sel frame is error. * defs.h (memcpy, memset): Conditionalize decls on #ifndef MEM_FNS_DECLARED, since DECstation differs. (alloca): Break out the STDC and non-STDC alloca cases, to make it work on old preprocessors as well as "picky ANSI" ones. * xm-mips.h (memcpy, memset): Declare, and set MEM_FNS_DECLARED. * mips-tdep.c (heuristic_proc_start): Zero arg produces zero. * utils.c (fputs_demangled): Rename SLOP since DECstation system header files define it! * tm-29k.h (BREAKPOINT): Allow it to be overridden with -D. Mon Jun 29 16:30:25 1992 Fred Fish (fnf@cygnus.com) * dbxread.c, i386-pinsn.c, i386-tdep.c, regex.c, solib.c, symmisc.c, symtab.h, tm-i386v4.h, valprint.c, values.c: Lint. * breakpoint.c, c-exp.y, coffread.c, command.c, environ.c, eval.c, findvar.c, infcmd.c, infptrace.c, infrun.c, m2-exp.y, parse.c, putenv.c, solib.c, sparc-xdep.c, symtab.c, tm-i386v.h, tm-sparc.h, utils.c, valarith.c, valops.c, valprint.c, values.c: Replace bcopy() use with memcpy(), which is more standard and can take advantage of gcc's builtin functions for increased performance. * breakpoint.c, buildsym.c, coffread.c, dbxread.c, i386-tdep.c, ieee-float.c, infcmd.c, sparc-tdep.c, stack.c, symtab.c, symtab.h, target.c, values.c: Replace bzero() use with memset(), which is more standard and can take advantage of gcc's builtin functions for increased performance. * i386-tdep.c, main.c, valprint.c: Replace bcmp() use with memcmp(), which is more standard and can take advantage of gcc's builtin functions for increased performance. Sun Jun 28 13:30:22 1992 Fred Fish (fnf@cygnus.com) * remote.c (remote_wait): Fix cast on signal() call. * defs.h (alloca): More diddling with alloca. Have to ensure that it has a prototype, so that if alloca is defined as a macro that takes an arg, the definition is seen as a use of a macro that takes an arg, to satisfy picky ANSI preprocessors. Sat Jun 27 12:12:20 1992 Fred Fish (fnf@cygnus.com) * sparc-pinsn.c: Use rather than "string.h", for consistency with all other gdb files. * cadillac.c: Use rather than . * cadillac.c (kernel_dispatch): Convert rindex usage to strrchr. * Makefile.in (MAKE): Remove definition for consistency with other Makefile.in files and to fix problem with recursive makes. Fri Jun 26 19:03:23 1992 John Gilmore (gnu at cygnus.com) * hppahpux-xdep.c (child_xfer_memory): Avoid PT_WDUSER because it crashes H-PUX. Fri Jun 26 11:09:10 1992 Steve Chamberlain (sac@thepub.cygnus.com) * source.c (print_source_lines): for DOS interoperability; don't print CR (013) as ^M. Thu Jun 25 15:18:42 1992 Stu Grossman (grossman at cygnus.com) * dbxread.c (dbx_symfile_init): Move more code under hp9000s800 conditional. * hppabsd-core.c: Don't include "param.h", include instead. * remote.c (remote_wait): Cast signal to void * to avoid warning from busted HP compiler. * partial-stab.h (N_SO): Rearrange code a little so that all SO stabs cause end_psymtab to be called. * buildsym.c (read_sun_builtin_type): Handle new FCS Sun CC compiler feature of putting 'c' into basic type descriptors for all forms of char. * procfs.c (child_resume): Work around Solaris (on Sparc) lossage where there is no place for nPC in prrun struct. Thu Jun 25 12:06:00 1992 Fred Fish (fnf@cygnus.com) * mipsread.c: Pass NULL name pointer to init_type, not 0. * gdbtypes.c (init_type): Use copy of typename on type_obstack. * dwarfread.c (enum_type): Save enum names on type_obstack. * dwarfread.c (struct_type): Save member name on type_obstack. * symtab.c (_initialize_symtab): Fix misspelling. * regex.c (store_jump, insert_jump): Return void. Thu Jun 25 04:00:10 1992 John Gilmore (gnu at cygnus.com) * defs.h (PARAMS): Move to ../include/ansidecl.h. (alloca): Declare return type on SPARC, since Sun doesn't. (*_BYTE_ORDER): Improve comment: *must* be defined. * tm-hppa.h: New file, architectural definition of HP PA. * tm-hppabsd.h, tm-hppahpux.h: Shrink to deltas from tm-hppa.h. * am29k-pinsn.c, am29k-tdep.c, copying.awk, copying.c, hppa-coredep.c, hppa-pinsn.c, hppabsd-core.c, hppabsd-tdep.c, hppabsd-xdep.c, hppahpux-tdep.c, hppahpux-xdep.c, remote-udi.c, ser-go32.c, xcoffsolib.c: Remove which is already in "defs.h". * hppa-coredep.c, hppa-pinsn.c, hppabsd-core.c, hppabsd-tdep.c, hppabsd-xdep.c, hppahpux-tdep.c, hppahpux-xdep.c, xcoffsolib.c, xcoffsolib.h, xm-go32.h, xm-hppabsd.h, xm-hppahpux.h: Copyrights. Wed Jun 24 12:53:20 1992 John Gilmore (gnu at cygnus.com) * printcmd.c (output_command): Thinko. (x_command): Only set remembered size/format if cmd succeeds. * dbxread.c (read_ofile_symtab): Remove N_CATCH special case, since it is no longer used and burns time for every symbol read. (process_one_symbol): Treat N_CATCH like default (complain). Wed Jun 24 00:26:56 1992 Stu Grossman (grossman at cygnus.com) * partial-stab.h (case N_TEXT): Fix fencepost error when detecting start of new symbol info after reading symtab for a module with a zero length TEXT segment. Tue Jun 23 21:46:26 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.5.6. * coffread.c (coff_end_symtab): Cast 2nd arg of complain() to correct type. * defs.h (NORETURN): Define away for Lucid compiler. * remote.c (remote_timer, remote_interrupt): Signal handlers take one int arg. * ser-termios.c (serial_write, serial_close): Return whatever value the write/close call returns, rather than falling off end. * inferior.h (PTRACE_ARG3_TYPE): Third arg to ptrace is int on more systems than it is "char *". Define PTRACE_ARG3_TYPE to default to int. * infptrace.c, hppabsd-xdep.c, hppahpux-xdep.c, i386-xdep.c, inferior.h (call_ptrace): Use PTRACE_ARG3_TYPE to declare type of third arg. * a68v-xdep.c, arm-xdep.c, convex-xdep.c, hp300ux-xdep.c, infrun.c, m88k-xdep.c, mach386-xdep.c, mips-xdep.c, os68k-xdep.c, pyr-tdep.c, pyr-xdep.c, rs6000-xdep.c, sparc-xdep.c, sun3-xdep.c, sun386-xdep.c, symm-xdep.c, ultra3-xdep.c: Use PTRACE_ARG3_TYPE to cast ptrace argument 3. * sparc-xdep.c, a68v-xdep.c (fetch_inferior_registers, store_inferior_registers): Supply missing fourth argument to ptrace(). * cadillac.c (kernel_dispatch): Make return type void. * cadillac.c (iosig): Signal handlers take one int arg. * valprint.c (val_print_fields): Call fprint_symbol to get automatic C++ demangling for mangled field names. Mon Jun 22 20:18:06 1992 Fred Fish (fnf@cygnus.com) * command.c (add_abbrev_prefix_cmd): Fix misspelling in comment. * dwarfread.c (enum_type): Fix misspelling in comment. * valprint.c (val_print_fields, cplus_val_print): Minor adjustment to printing of C++ class structures to more closely match format for printing C structures, with and without setting pretty print. Mon Jun 22 17:19:02 1992 Per Bothner (bothner@cygnus.com) * infrun.c (wait_for_inferior): Don't test for SIGEMT (which is not a Posix signal) if it isn't defined. * tm-linux.h, xm-linux.h, config/linux.m[ht], configure.in: New port to Linux (a free Unix clone for 386 machines). Sat Jun 20 19:19:52 1992 John Gilmore (gnu at cygnus.com) COFF changes for dealing better with EPI 29K C compiler output. * coffread.c (record_minimal_symbol): Pass the minsym type to it. Callers changed. (coff_end_symtab): Sort blocks if needed. Complain if misordered. (read_coff_symtab): Move patch_opaque_types call from coff_symfile_read. Restrict it to symtabs from this objfile. (process_coff_symbol: C_TPDEF): Don't put ordinary foward references on opaque type chain; just let coff_lookup_type handle 'em. (decode_type): Complain about tagndx values on non-struct/union/enum types, which the EPI compiler tends to produce. * symtab.c (list_symbols): Make minimal symbol variable-finding work. * tm-68k.h (FIX_CALL_DUMMY): Avoid alignment and byte order dependency. * elfread.c (elf_symfile_read): Update bfd_elf_find_section usage to match new prototype. Include libbfd.h to get prototype. * source.c (find_source_lines): Handle large st_size fields. Sat Jun 20 16:28:39 1992 Fred Fish (fnf@cygnus.com) * infcmd.c (jump_command): Use cleanups to avoid memory leaks. * stack.c (return_command): Use cleanups to avoid memory leaks. Fri Jun 19 19:06:41 1992 John Gilmore (gnu at cygnus.com) * remote-adapt.c, remote-eb.c, remote-mm.c: Lint. Fix INT_REGNUM to INTE_REGNUM. * tm-29k.h (SDB_REG_TO_REGNUM): Add for EPI 29K C compiler. Fri Jun 19 15:30:15 1992 Stu Grossman (grossman at cygnus.com) * configure.in, dbxread.c, hppa-coredep.c, hppa-pinsn.c, hppabsd-core.c, hppabsd-tdep.c, hppabsd-xdep.c, hppahpux-tdep.c, hppahpux-xdep.c, munch, partial-stab.h, tm-hppabsd.h, tm-hppahpux.h, xm-hppabsd.h, xm-hppahpux.h: HPPA merge. * Makefile.in (c-exp.tab.c, m2-exp.tab.c): Filter out bogus extern declarations of malloc/realloc/free that are inserted by some versions of yacc. * m2-exp.y: Prevent conflicts with TRUE and FALSE tokens by #undeffing them. * xm-rs6000.h: Declare malloc/realloc/free appropriately. Yet another decl of strdup (this really ought to come from libiberty.h!). Fri Jun 19 10:28:05 1992 John Gilmore (gnu at cygnus.com) * remote.c (getpkt): Error if input exceeds buffer size. (_initialize_remote): `set remotedebug' enables packet trace. * dbxread.c (process_one_symbol:N_FUN): GCC now produces relative N_SLINE's, etc, just like Sun cc on Solaris2. * am29k-tdep.c (read_register_stack, write_register_stack): Change RSTACK_HIGH_ADDR to rstack_high_address, a user-settable variable. Add `set' and `show' commands for it. * doc/gdb.texinfo: Document it. Thu Jun 18 19:35:22 1992 Fred Fish (fnf@cygnus.com) * valprint.c (type_print_1): Plug memory leak. Print all C++ syms as demangled, not just functions. * buildsym.c (read_range_type): When we find a signed char type, do a lookup of signed char, not plain char. Plain char's still get looked up as plain char's elsewhere. Thu Jun 18 18:59:04 1992 John Gilmore (gnu at cygnus.com) * eval.c: Avoid residue-by-zero when evaluating without side effects. (Bug and fix found by Pierre Willard.) Wed Jun 17 13:08:33 1992 Stu Grossman (grossman at cygnus.com) * xm-rs6000.h: Fix decls for malloc, realloc, and free. * xm-rs6000.h: Add decl for strdup(). * tm-rs6000.h: Remove #include of inferior.h. Fixes many compilation errors. * breakpoint.c (enable_command, disable_command): Without args, should only affect normal breakpoints and watchpoints. * m68k-pinsn.c (print_insn_arg): Make register be const. * xcoffexec.c: Remove ' from comment. * xm-sun3os4.h: Define MALLOC_INCOMPATIBLE to avoid conflicts with decls of malloc in c-exp.tab.c (as produced by yacc). There's got to be a better way to do this... Wed Jun 17 11:10:40 1992 Fred Fish (fnf@cygnus.com) * partial-stab.h: Convert single rindex use to strrchr. * mipsread.c, dbxread.c: Remove troublesome inclusion of non- standard file, now that the only single use of rindex in the gdb source files is gone. Tue Jun 16 22:17:49 1992 Fred Fish (fnf@cygnus.com) * mipsread.c: Undo ill effects from including , which #defines index to be strchr. Unfortunately, index is a member of a symbol table structure that can't be changed. * mipsread.c: tm-mips.h includes coff/symconst.h and coff/sym.h, remove redundant #include's. Tue Jun 16 14:15:51 1992 Stu Grossman (grossman at cygnus.com) * mipsread.c: #include for rindex(). Tue Jun 16 09:01:49 1992 Fred Fish (fnf@cygnus.com) * xcoffexec.c (map_vmap): Turn comment into a real C comment. Mon Jun 15 18:41:23 1992 Stu Grossman (grossman at cygnus.com) * dbxread.c (process_one_symbol), partial-stab.h: Ignore extraneous SO stabs from busted C++ compilers. Mon Jun 15 12:21:45 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.5.5. * symtab.c (decode_line_1): Until C++ support stabilizes, when C++ lookups fail, print possibly helpful hint about completion. * cplus-dem.c (demangle_signature): Fix ARM style demangling for static data members. * dbxread.c (dbx_psymtab_to_symtab_1): Fix prototype. * config/ncr3000.mh (INSTALL): Don't use /usr/ucb/install, it's broken on ncr3000's. Mon Jun 15 07:21:00 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (decode_modified_type): Change type of first arg. Change 'modifier' to char from unsigned char. Cast single use that needs to be unsigned char. * symtab.h (SYMBOL_BASEREG_VALID): Explain disabling. * utils.c (strdup_demangled): Add function. * defs.h (strdup_demangled): Add prototype. * stack.c (return_command): Demangle C++ function names for query. * infcmd.c (jump_command): Demangle C++ function names for query. * cplus-dem.c (consume_count): New function and prototype. * cplus-dem.c (demangle_class, gnu_special, demangle_func_type, do_type): Replace conversion code with consume_count(). * cplus-dem.c (gnu_special): Fix demangled of static members. * source.c (list_command): Print demangled function names when appropriate. Fix supplied by Peter Schauer. Mon Jun 15 01:45:48 1992 John Gilmore (gnu at cygnus.com) * sparc-tdep.c: Clean up slightly for Solaris2. * buildsym.c (define_symbol): Nameless types are now on several platforms; generalize them and un-ifdef them to make Solaris 2 work. Sun Jun 14 10:55:51 1992 John Gilmore (gnu at cygnus.com) * infcmd.c: Fix typo (reported by Rob Savoye). * xm-sun4sol2.h (gregset_t): Thinko in register set definition. * symtab.h: Disable SYMBOL_BASEREG_VALID until it works. * dbxread.c (dbx_psymtab_to_symtab_1): Renamed from psymtab_to_symtab_1. Use current psymtab's sym_offset and symbol_size, rather than the one for the first file in the dependency chain. * dbxread.c (end_psymtab): Only reset texthigh if it's not already set. Don't reset our own texthigh, or dependency-only pst's, in scanning all the rest of the psymtabs. (process_one_symbol): Fix comments around N_OBJ, N_OPT, N_UNDF. * buildsym.h (N_UNDF): Improve comments. (N_LSYM, etc): Skip types without names (":T(0,3)=sfoob..."). Sat Jun 13 11:16:45 1992 Fred Fish (fnf at cygnus.com) * symtab.h (struct symbol): Add aux_value union for preserving an additional per-symbol value. * symtab.h (SYMBOL_BASEREG, SYMBOL_BASEREG_VALID): Add defines. * frame.h (FRAME_GET_BASEREG_VALUE): Provide default definition. * findvar.c (read_var_value): Use SYMBOL_BASEREG if valid. * printcmd.c (address_info): Use SYMBOL_BASEREG if valid. * symmisc.c (print_symbol): Use SYMBOL_BASEREG if valid. Sat Jun 13 09:18:46 1992 Michael Tiemann (tiemann@rtl.cygnus.com) * symfile.c (clear_symtab_users_once): Now non-static (for objfiles.c). Fri Jun 12 18:54:40 1992 John Gilmore (gnu at cygnus.com) * arm-pinsn.c, i960-pinsn.c, m68k-pinsn.c, mips-pinsn.c, ns32k-pinsn.c, pyr-pinsn.c, sparc-pinsn.c, tahoe-pinsn.c, vax-pinsn.c: Remove reg_names decl (now in defs.h). Solaris-2 support on SPARC: * dbxread.c: Add symbol_size to struct dbx_symfile_info. Add symbol_size and file offsets to struct symloc. Add static symbol_table_offset, string_table_offset, file_string_table_offset, next_file_string_table_offset, last_function_name. (add_old_header_file): Convert error() to complain()t. (dbx_symfile_read): Get symbol size via the objfile. Also get symbol_table_offset. (dbx_symfile_init): Record symbol size and count via the objfile. (dbx_next_symbol_text): Always add file_string_table_offset when accessing string table. (read_dbx_symtab): Initialize file_string_table_offset to 0. (SET_NAMESTRING): Use the offset. (end_psymtab): Large kludge to determine addresses where source files start and end (for the psymtab header). (psymtab_to_symtab_1): Set file_string_table_offset before reading. Get this, symbol size, and symbol offset, from psymtab. (read_ofile_symtab): Don't back up one symbol for Solaris2. Patch up last_source_start_addr if zero in N_SO. (process_one_symbol): Add variable function_start_offset. ( "", N_FUN, N_LBRAC, N_RBRAC, N_SLINE): Add ifdef for BLOCK_ADDRESS_FUNCTION_RELATIVE. ( "", N_OBJ, N_OPT): Ignore. (elfstab_build_psymtabs): New function to read stabs out of an ELF file. * Makefile.in: Accept $(BISON) even though we really want $(YACC). (gdb): use GLOBAL_CFLAGS when linking, too. * partial-stab.h (N_UNDF): Deal with Sol2 relative stringtab offsets. (N_OBJ, N_OPT): Ignore. ('f', 'F'): Save last function name. * elfread.c (record_minimal_symbol_and_info): Kludged to put extra info in the minimal symbol. (elf_symtab_read): The extra info is the size of an ELF object, which was kludged to us in the `udata' field of the BFD symbol. Gag me with a crowbar... (elf_symfile_read): Keep track of both the absolute load address, and the offset between load addr and symbols. Handle STABS as well as DWARF sections, passing the absolute load address to elfstab_build_psymtabs. * symfile.h: Prototype elfstab_build_psymtabs. * symfile.c: Add almost-OK debug versions of add_psymbol_*to_list. * xm-sysv4.h: Add to avoid conflicting defns in defs.h. * buildsym.h: Add processing_acc_compilation flag. * buildsym.c (read_sun_builtin_type, read_sun_floating_type): New. (define_symbol): Skip arg types in function entries. Resolve overloaded 'P' which acc uses for prototypes of functions called by this file. (read_type: 'b', 'r'): Handle Solaris2 builtin types. * minsyms.c (prim_record_minimal_symbol_and_info): Hack to save size of ELF symbols. FIXME. * tm-sun4os5.h: Rename to tm-sun4sol2.h. Update defines for Sol2. * xm-sun4os5.h: Rename to xm-sun4sol2.h. Hack more defines. * configure.in: Solaris config is sparc-sun-solaris2. * config/sun4os5.m[ht]: Rename to config/sun4sol2.m[ht]; new xm, tm. * objfiles.c (free_objfile): Eliminate storage leaks. Contributed by . * symfile.c (symfile_bfd_open): Comment where name is freed. * symmisc.c (extend_psymbol_list): Comment where list is freed. Fri Jun 12 08:24:36 1992 Fred Fish (fnf at cygnus.com) * expprint.c (print_subexp): Add missing ']'. * defs.h (reg_names): Fix declaration to match that in infcmd.c * stack.c (reg_names): Delete redundant (and inconsistent) decl. * WHATS.NEW: Point out improved C++ function name handling. * gdbtypes.c (lookup_fundamental_type): For now, use the same type names for both implicitly and explicitly signed integral types. See comment in the source code. Thu Jun 11 12:31:50 1992 John Gilmore (gnu at cygnus.com) Two `long long' fixes from Robert R. Henry (rrh@dino.tera.com): * defs.h (longest_to_int): Avoid void arm of ?: in error case. * expprint.c (print_subexp): Fix printing of register names. Thu Jun 11 01:33:40 1992 John Gilmore (gnu at cygnus.com) * inferior.h (register_valid): Declare. * remote-udi.c, rs6000-xdep.c, sparc-xdep.c, tm-rs6000.h: Remove decl. * objfiles.h (ALL_OBJFILE_{SYMTABS,PSYMTABS,MSYMBOLS}): Add macros for traversing the data structures in a single objfile. * tm-m88k.h, tm-sparc.h (REGISTER_NAMES): Remove extra semicolon. * tm-i960.h (REGISTER_NAMES): Cosmetic change. * infcmd.c: Lint. Tue Jun 9 17:19:45 1992 Fred Fish (fnf at cygnus.com) * c-exp.y, m2-exp.y: Move remapping defines for malloc and realloc. Add remapping defines for {yyss, yyssp, yyvs, yyvsp}. * config/{amix.mh, i386v4.mh, ncr3000.mh, stratus.mh, sun4os5.mh}: Add definition for INSTALL using /usr/ucb/install. Tue Jun 9 16:29:19 1992 Stu Grossman (grossman at cygnus.com) * depend: rebuild to account for remote-st2000.c. * remote-st2000.c: Almost works now. * tm-st2000.h: Need to turn on HAVE_68881, else things won't compile. Mon Jun 8 23:05:51 1992 Fred Fish (fnf@cygnus.com) * c-exp.y (yylex): Recognize single-quoted strings that specify tokens with embedded whitespace, such as C++ demangled names. * defs.h (demangle_and_match, strcmp_iw, skip_quoted): Prototypes. * main.c (gdb_completer_quote_characters): Add global variable. * main.c (symbol_completion_function): Total rewrite for C++ demangled name handling. * main.c (skip_quoted): New function. * main.c (main): Set rl_completer_quote_characters. * symmisc.c (dump_symtab): Print source language for symtab. * symtab.c (expensive_mangler): Add prototype and function. * symtab.c (completion_list_add_symbol): Total rewrite for new C++ demangled name handling. * symtab.c (lookup_symbol): Check for demangled C++ symbol first, other changes for demangled C++ symbol handling. * symtab.c (lookup_demangled_block_symbol): Use demangle_and_match. * symtab.c (lookup_demangled_partial_symbol): Use demangle_and_match. * symtab.c (decode_line_1): Recognize C++ demangled names on input. * symtab.c (completion_list_add_symbol): Total rewrite for new C++ demangled name handling. * symtab.c (expensive_mangler): New function. * utils.c (strcmp_iw, demangle_and_match): New functions. * xcoffread.c (aixcoff_symfile_read): Fix prototype. Mon Jun 8 21:59:08 1992 John Gilmore (gnu at cygnus.com) * Makefile.in: Roll VERSION to 4.5.4. * Makefile.in, config/*.mh, config/*.mt: Rename TM_CFLAGS to MT_CFLAGS, XM_CFLAGS to MH_CFLAGS to match file names. * config/sun4os5.mh: Add MH_CFLAGS=-xs to save debug info. Mon Jun 8 14:17:42 1992 Stu Grossman (grossman at cygnus.com) * alldeps.mak: Rebuild to account for new files. * config/st2000.mt: Use tm-st2000.h, not tm-68k.h. * tm-st2000.h: New file. * configure.in: Tandem debug monitor (st2000) support. * remote-st2000.c, config/st2000.mt: ditto. Fri Jun 5 11:51:01 1992 John Gilmore (gnu at cygnus.com) * blockframe.c (inside_entry_file, inside_main_func, inside_entry_func): Return 0 if no symbols; avoid crashing. Wed Jun 3 17:48:04 1992 John Gilmore (gnu@cygnus.com) * xcoffread.c (read_xcoff_symtab): Set c_sclass from n_sclass without masking, since it is signed and will later be compared against signed quantities. The right fix is probably to make it all unsigned, but this is a small, safe fix for this release. FIXME -- make the real change sometime soon. Mon Jun 1 16:16:12 1992 Michael Tiemann (tiemann@cygnus.com) * remote-vx.c (vx_load_command,add_symbol_stub): Default READNOW parameter in call to `symbol_file_add' to 0. * xm-sun4os4.h (MALLOC_INCOMPATIBLE): Define it. Sun May 31 06:38:27 1992 Michael Tiemann (tiemann@cygnus.com) * configure.in: Handle -m680[01234]0-wrs. Fri May 29 22:16:02 1992 Michael Tiemann (tiemann@rtl.cygnus.com) * m68k-pinsn.c (print_insn_arg): Pass &EXT_FORMAT_68881 to `ieee_extended_to_double'. Wed May 27 09:27:57 1992 John Gilmore (gnu at cygnus.com) * valops.c (value_assign): Lint, by Pierre Willard. Tue May 19 19:38:10 1992 John Gilmore (gnu at cygnus.com) * coredep.c (fetch_core_registers): Remove premature warning, which triggers on DECstation even though all regs are accessible. * m68k-pinsn.c (print_insn_arg): Use new macros to get sign-extension of instruction fields even on unsigned-char hosts. Bug found by Fred J Roeber, fjr@sgfb.ssd.ray.com. 88K changes inspired by Ted Lemon (uunet!lupine!mellon): * tm-m88k.h, tm-umax.h: Avoid sizeof() in REGISTER_xxx macros, since they define the target, not the host. * m88k-pinsn.c: Fix typo. Thu May 14 01:16:48 1992 John Gilmore (gnu at cygnus.com) * valarith.c (value_zerop): -0.0 is still zero. * eval.c (evaluate_subexp): Avoid NaN anomalies in float compares. Patches by Paul Eggert . Mon May 18 13:53:51 1992 Stu Grossman (grossman at cygnus.com) * alldeps.mak, depend: re-make to account for ser-*.c. Sun May 17 16:51:20 1992 Fred Fish (fnf@cygnus.com) * inflow.c (new_tty): Temporarily ignore SIGTTOU when disconnecting from controlling terminal, to avoid gdb hanging on SVR4. Fixes bug reported by Oliver Okrongli. * procfs.c (PROC_NAME_FMT): Change format to match default used by system, as suggested by Oliver Okrongli. * tm-68k.h (FRAME_FIND_SAVED_REGS): Apply missing parentheses bug fix from Brent Townshend (bst%tt@cam.ORG). * c-exp.y (nonempty_typelist): Fix memory overrun bug reported by turlais@rechser.total.fr. * dwarfread.c (decode_subscr_data): Fix bug in calculation of length of non-zero lowerbound arrays. Bug fix from Peggy Fieland. * objfiles.h (unlink_objfile): Add prototype. * objfiles.c (unlink_objfile): Add function. * objfiles.c (free_objfile): Call unlink_objfile. * objfiles.c (allocate_objfile): Call unlink_objfile on newly remapped objfiles. Bug reported by hahn@sunshine.labs.tek.com. Also, discard old possibly bogus sf struct. * symfile.c (symbol_file_add): Call init_entry_point_info() and find_sym_fns() for remapped symbol files, in case of any changes since the last mapping. Wed May 13 18:28:20 1992 Steve Chamberlain (sac@thepub.cygnus.com) * findvar.c (read_relative_register_raw_bytes): use the raw size of a register to bcopy, rather than the host's sizeof(CORE_ADDR). Tue May 12 17:44:39 1992 Steve Chamberlain (sac@thepub.cygnus.com) Changes to support GDB running on DOS using GO32 and H8 support * defs.h: if xm.h doesn't define FOPEN_RB, include "fopen-same.h", allowing hosts with different text and binary file formats to work. * coffread.c (read_coff_symtab): changed calling convention and operation - now it opens its own file with FOPEN_RB rather than duping and fdopening the provided handle. * dbxread.c, cplus-dem.c: #include mangling. * exec.c: If O_BINARY isn't defined, set it to 0, call openp for binary files oring in the right bit. * utils.c, terminal.h, inflow.c: hackery because dos doesn't have terminals. * remote-hms.c: cleanup to use the new remote serial stuff * serial.h, ser-termios.c, ser-go32.c: newfiles to provide host independent remote terminal I/O. * remote.c: if DONT_USE_REMOTE not defined, then don't use it. * source.c (openp): fix off by one problem removing / - can now open a source file in the root directory with DOS. * values.c (value_as_pointer): remove bogus address bits from long. (unpack_long): unpack into unsigned long/short if pointer. Tue May 12 14:15:48 1992 Stu Grossman (grossman at cygnus.com) * infrun.c (child_attach): Don't allow gdb to attach to itself. It gets permanently stuck in many OSes. * breakpoint.c, infcmd.c, infrun.c, utils.c: Change many printfs to printf_filtered. * breakpoint.c: Improve help text for info breakpoints. Mon May 11 14:17:18 1992 John Gilmore (gnu at cygnus.com) * README: Add pointer to internals doc, and describe reading info files. * utils.c (print_sys_errmsg): Use stderr. Reported by Pierre Willard. * symtab.c (output_source_filename): Remove old glop for wrapping lines, use wrap_here. Reported by Pierre Willard (pierre@la.tce.com). Thu May 7 11:45:03 1992 John Gilmore (gnu at cygnus.com) * Makefile.in: version.c should depend on Makefile, not Makefile.in. * munch: Add sort -u to avoid duplications. * symtab.c (lookup_symbol): Improve Stu's fix of 22 April. Improved fix by hahn@sunshine.labs.tek.com (Doug Hahn). Mon May 11 13:27:46 1992 Fred Fish (fnf@cygnus.com) * cplus-dem.c (demangle_signature): Recognize misplaced '_' to avoid infinite loops while demangling bogus mangled names. * valprint.c (type_print_base): Minor fix for GNU style guide conformance. Sat May 9 18:02:17 1992 Fred Fish (fnf at fishpond) * Makefile.in (VERSION): Bump to 4.5.3 * Makefile.in (DEMANGLE_OPTS): Remove obsolete -Dnounderscore * Makefile.in (demangle): New target to create standalone demangler with same code and options as internal demangler. * cplus-dem.c: Massive restructuring, rewriting, cleanups, etc to support ARM style and Lucid style demangling, improve maintainability, fix several demangling bugs. More changes to follow. * defs.h (strstr): Add ANSI compatible prototype. * valprint.c (type_print_1): Demangle using ansi option. * config/ncr3000.mt (DEMANGLE_OPTS): Remove -Dnounderscore. Sat May 9 14:47:28 1992 Stu Grossman (grossman at cygnus.com) * xcoffexec.c (vmap_exec): Don't assume .text and .data are the first two sections. Fri May 8 11:42:15 1992 Per Bothner (bothner@rtl.cygnus.com) * mipsread.c (parse_procedure): Return rather than using uninitialized variable 'b'. Fri May 8 07:48:27 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in, remote-udi.c, remote-vx.c, 29k-share/dfe/mini2udi.c, 29k-share/dfe/yank.c, vx-share/xdr_ptrace.c, vx-share/xdr_regs.c: Remove -I29k-share, -Ivx-share from Makefile.in. Make #includes relative to each source file. Fri May 8 07:48:27 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: propogate INSTALL, INSTALL_DATA, INSTALL_PROGRAM on recursions. Thu May 7 10:00:52 1992 Stu Grossman (grossman at cygnus.com) * am29k-pinsn.c: Use new opcode table in "opcode/a29k.h". * am29k-tdep.c: Update to latest code from AMD. (get_saved_register) don't crap out if no frame. * remote-udi.c: Set/clear inferior_pid as appropriate. (udi_open) call target_preopen, don't close fd 0!!!, clean up error handling. Fixup end-of-debugging messages. (udi_fetch_registers) clean up big time, mainly don't multiply register_valid indices by 4, and use proper Offset when reading gr96-gr127. (udi_store_registers) general cleanup. (fetch_register) cleanup, simplify. (regnum_to_srnum) INT_REGNUM->INTE_REGNUM. * tm-29k.h: Upgrade to latest code from AMD. * 29k-share/udi/udip2soc.c: Get rid of useless errmsg_m macro. (UDIConnect) Clean up error processing (like, don't do exit() if execlp fails), make code restartable, make more attractive. (UDIStop) Use SIGINT instead of SIGUSR1, as isstip won't stop otherwise. Wed May 6 14:34:18 1992 Per Bothner (bothner@rtl.cygnus.com) * tm-irix3.h: Re-define CPLUS_MARKER to '.'. * xm-rs6000.h, tm-rs6000.h: Move re-definition of CPLUS_MARKER from former to latter. Wed May 6 14:12:35 1992 Fred Fish (fnf@cygnus.com) * cplus-dem.c (do_args): Handle void args the same as others. * objfiles.c (free_objfile): Only try to unmap files when reusable objfiles are supported. * valprint.c (type_print_varspec_suffix): Add parameter that specifies if C++ demangling included function arguments. Use it to suppress printing extra pair of ()'s. * valprint.c (type_print_1): Fix problem with printing demangled C++ function types where demangled type includes the function args. Tue May 5 11:10:27 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (DEMANGLER): Define and default to cplus-dem. Allows selection of C++ demangler to be a configuration option until multiple demanglers are supported. * demangle.h: New include file for extended demangler support. * breakpoint.c, gdbtypes.c, printcmd.c, stack.c, symtab.c, utils.c, valprint.c: Include "demangle.h" and change all calls to cplus_demangle() or fputs_demangled() to use individual demangling options. * valprint.c (type_print_1): Change options to cplus_demangle to print demangled function args. Still broken, but now less so. * cplus-dem.c: Include demangle.h, reorganize and update some comments to reflect reality. * cplus-dem.c (cplus_demangle, cplus_mangle_opname): Change second arg from fixed integer to bit based multiple options. * cplus-dem.c (optable): Reformat and replace ansi members with bit based options. * cplus-dem.c (do_type): Fix bug with parsing missing return type. Mon May 4 22:26:59 1992 John Gilmore (gnu at cygnus.com) * values.c (set_internalvar): Force evaluation of lazy values. Bug reported by RMS. Sun May 3 15:47:45 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.5.2. * Makefile.in (DEMANGLE_OPTS): Add, default to -Dnounderscore. * configure.in: Simplify ncr3000 gdb_host logic, add gdb_target. * dwarfread.c (struct_type): Apply fix from Peggy Fieland for proper handling of bit fields. * gdbtypes.h (struct type): Clarify use of field.bitpos. * symtab.h: Fix couple of misspellings in comments. * value.h (struct value): Clarify use of bitpos. * value.h (unpack_field_as_long): Change prototype, returns LONGEST. * values.c (unpack_field_as_long): Change return type to LONGEST, sign extend unpacked fields that are signed, other rewriting. * config/ncr3000.mt: New target config file. Fri May 1 01:53:26 1992 John Gilmore (gnu at cygnus.com) * utils.c (printchar): Print 0x7F and 0x80-0x9F in \nnn notation even when printing 8-bit characters. * gdbtypes.c (make_{reference,pointer,function}_type): New functions which handle overwriting of forward-referenced types for stabs file reading. (lookup_{reference,pointer,function}_type): These just call the make_*_type functions with a null storage alloc parameter. * gdbtypes.h (make_{reference,pointer,function}_type): Declare. * xcoffread.c (smash_to_pointer_type): Remove, no longer used. * buildsym.c (dbx_lookup_type): Zero result for (-1,-1) arg. (dbx_alloc_type): Make it easier to understand. No funct change. (define_symbol: 't'): Don't put the typedef name into the name of the struct, union, or enum. Bugfix. (read_type: '*', '&', 'f'): Add comments. Use make_XXX_type routines to properly handle overwriting preallocated types so that forward references will work. (read_enum_type): Force enum values to file scope, due to bug in Sun compiler output. FIXME, fix later. Remove unused header_file_prev_index mechanism. It was already obsolete in gdb-3.5. These comments appeared in 3.5: /* This code was used before I knew about the instance codes. My first hypothesis is that it is not necessary now that instance codes are handled. */ * dbxread.c (add_new_header_file): Remove header_file_prev_index. * buildsym.h: Remove it and prev_index that saves it. * buildsym.c (push_subfile, pop_subfile, start_symtab): Remove it. * solib.c (special_symbol_handling): When called from core files, must set up debug_addr. Don't print error messages, just return. * symmisc.c (print_symbol): Less ascii diarrhea for enums, please. Wed Apr 29 15:26:51 1992 Per Bothner (bothner@rtl.cygnus.com) * cplus-dem.c: Allow nested class names (as in Foo::Bar::method()). Allow the cleaner cfront style of nested class names (Q2_3Foo3Bar as well as Q23Foo3Bar). Make cplus_demangle re-entrant by removing use of global variables. Instead, place all shared variables in a stack-allocated structure, and pass around its address. Fri Apr 24 07:41:19 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (make-proto-gdb-1): 1st cut at packaging 29k-share/* subdirs... * remote-udi.c (udi_insert/remove_breakpoint): Completely rewrite, only leave out the bugs. * Makefile.in: Add 29k/UDI support. Improve depend. * alldeps.mak, configure.in, depend: Add 29k/UDI support. * am29k-tdep.c: Update to use new calling conventions, and misc symbol elements. * m68k-pinsn.c (print_insn_arg): Make branch offsets be signed. Thu Apr 23 18:43:17 1992 Fred Fish (fnf@cygnus.com) * tm-29k.h: Set DECR_PC_AFTER_BREAK to 0, as 29ks have nice breakpoint instructions that leave PC pointing at the right place. * core.c (core_open): Call warning() to print warnings. Wed Apr 22 09:55:42 1992 Stu Grossman (grossman at cygnus.com) * symtab.c (lookup_symbol): Need to check if msymbol->name is NULL, as ALL_MSYMBOLS will never return a NULL msymbol pointer. This prevents a crash when trying to lookup the value of a non-existent symbol. Wed Apr 22 09:42:15 1992 Fred Fish (fnf@cygnus.com) * signame.c, signame.h: Remove, replaced by strsignal.c in libiberty. * i960-tdep.c, infrun.c, mach386-xdep.c, procfs.c, sparc-tdep.c, sun386-xdep.c: Remove include of signame.h * Makefile.in (SFILES_MAINDIR): Remove signame.c * Makefile.in (HFILES): Remove signame.h * Makefile.in (OBS): Remove signame.o * defs.h (safe_strerror, safe_strsignal, strerrno, strsigno, errno_max, signo_max, strtoerrno, strtosigno, strsignal, psignal, perror): Add prototypes. * defs.h, xm-apollo68v.h, xm-ultra3.h (SYS_SIGLIST_MISSING): Remove define. * depend: Manually remove signame.[cho] references. * convex-tdep.c (subsig_name): Replace use of sys_siglist with strsignal. * convex-xdep.c (core_file_command): Replace use of sys_siglist with safe_strsignal. * core.c (core_open): Replace use of sys_siglist with safe_strsignal. * core.c (memory_error): Replace use of sys_errlist with safe_strerror. * i960-tdep.c (print_fault): Replace use of sys_siglist with safe_strsignal. * infcmd.c (program_info): Replace use of sys_siglist with safe_strsignal. * infrun.c (signal_stop, signal_print, signal_program): Allocate dynamically based on dynamic determination of number of signals to support. * infrun.c (child_create_inferior): Replace use of sys_errlist with safe_strerror. * infrun.c (wait_for_inferior): Replace use of sys_siglist with safe_strsignal. * infrun.c (sig_print_info): Replace use of sig_abbrev with strsigno and sys_siglist with safe_strsignal. * infrun.c (handle_command): Call signo_max to find number of signals. Replace sig_number with strtosigno and sig_abbrev with strsigno. * infrun.c (signals_info): Replace sig_number with strtosigno. * infrun.c (_initialize_infrun): Call signo_max to find number of signals. Dynamically allocate signal_{stop,print,program}. * procfs.c (errno_table): Remove, now in libiberty/strerror.c. * procfs.c (errnoname): Add function and prototype. * procfs.c (info_proc_siginfo): Call errnoname, replace use of sys_siglist with safe_strsignal. * procfs.c (info_proc_stop, info_proc_signals): Replace use of sys_siglist with safe_strsignal. * procfs.c (info_proc_stop): Call errnoname. * procfs.c (signalname): Replace sig_abbrev with strsigno. * stuff.c (main, get_offset): Replace use of sys_errlist with strerror. * sun386-xdep.c (core_file_command): Replace use of sys_siglist with safe_strsignal. * umax-xdep.c (core_file_command): Replace use of sys_siglist with safe_strsignal. * utils.c (safe_strerror, safe_strsignal): Add functions that call strerror and strsignal respectively, and deal with NULL returns. * utils.c (perror_with_name, print_sys_errmsg): Replace use of sys_errlist with safe_strerror. * valprint.c (val_print): Replace use of sys_errlist with safe_strerror. Tue Apr 21 12:00:47 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: rework CFLAGS so that they can be set from the command line to make. CFLAGS -> INTERNAL_CFLAGS. USER_CFLAGS -> CFLAGS. Remove MINUS_G. Default CFLAGS to -g. Pass CFLAGS on recusions. Fri Apr 17 19:25:57 1992 Fred Fish (fnf@cygnus.com) * gdbtypes.h, c-exp.y, m2-exp.y, mipsread.c, gdbtypes.c: Back out of change on 4/14/92 and remove TYPE_FLAG_FUND_TYPE. It was overkill for the problem it solved. * valprint.c (type_print_base): Remove TYPE_FLAG_FUND_TYPE test and default to simply printing type names as appropriate. * main.c (main): Remove one of the leading newlines from warning_pre_print initialization. * objfiles.c (open_existing_mapped_file): Add function and prototype. * objfiles.c (open_mapped_file): Rewrite to use new function open_existing_mapped_file. Thu Apr 16 23:50:12 1992 John Gilmore (gnu at cygnus.com) * sun3-xdep.c (fetch_core_registers): Lint. * tm-sun3.h: Prototype lint. * value.h: Typo. Thu Apr 16 19:56:50 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (TARGET_FT_POINTER_SIZE, TARGET_FT_LONG_SIZE): Define using TARGET_PTR_BIT and TARGET_LONG_BIT for now. * objfiles.c: Cast calls to close() with unused returns to void. * objfiles.c (allocate_objfile): Initialize objfile's mmfd, free old objfile's name before updating it. * objfiles.c (free_objfile): Major rewrite for mapped objfiles. * objfiles.h (objfile struct): Add mmfd member. * symfile.c (syms_from_objfile): Move some code to new_symfile_objfile. * symfile.c (new_symfile_objfile): Add new function, common code from syms_from_objfile. * symfile.c (symbol_file_add): Call new_symfile_objfile for both mapped and unmapped symbol files. * symfile.c (symbol_file_command): Print "No symbol file now" message, ala exec_file_command for the exec file. * symfile.h (new_symfile_objfile): Add prototype. * xcoffexec.c (map_vmap): Add call to new_symfile_objfile. * xcoffsolib.c (solib_add): Add call to new_symfile_objfile. Thu Apr 16 18:26:34 1992 Per Bothner (bothner@cygnus.com) * rs6000-pinsn.c: New version from IBM (Metin). * m2-exp.y: Re-write string initializers ("<>" => {'<', '>'}) to avoid warnings from some compilers. Tue Apr 14 22:33:55 1992 Fred Fish (fnf@cygnus.com) * gdbtypes.h (FT_FIXED_DECIMAL, FT_FLOAT_DECIMAL): Add defines. * gdbtypes.h (TYPE_FLAG_FUND_TYPE): Add define for bit in a type's flag word that marks it as a fundamental type. * c-exp.y (_initialize_c_exp): Add TYPE_FLAG_FUND_TYPE bit to flags argument for all calls to init_type(). * m2-exp.y (_initialize_m2_exp): Add TYPE_FLAG_FUND_TYPE bit to flags argument for all calls to init_type(). Also remove dependency on host sizes for ints, floats, etc. * mipsread.c (_initialize_mipsread): Add TYPE_FLAG_FUND_TYPE bit to flags argument for all calls to init_type(). Also remove dependency on host sizes for ints, floats, etc. * gdbtypes.c (lookup_fundamental_type): Add TYPE_FLAG_FUND_TYPE bit to flags argument for all calls to init_type(). Add types FT_FIXED_DECIMAL and FT_FLOAT_DECIMAL. * valprint.c (unsigned_type_table, signed_type_table, float_type_table): Remove. * valprint.c (type_print_base): Test new TYPE_FLAG_FUND_TYPE bit when printing fundamental types, and print the actual name for such types, rather than inventing one. Remove code that invented fundamental type names. * valprint.c (_initialize_valprint): Remove initializations for now removed unsigned_type_table, signed_type_table, and float_type_table. Tue Apr 14 14:30:46 1992 Stu Grossman (grossman at cygnus.com) * remote-vx.c, vx-share/xdr_ptrace.c, vx-share/xdr_ptrace.h, vx-share/xdr_rdb.h: Update for new remote protocol under VxWorks 5.0.2. Mon Apr 13 20:59:21 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (target_to_host): New function similar to previous swapin function. * dwarfread.c (SWAPIN, swapin): Remove macro and support function. Extensive changes to convert all previous usages to use new target_to_host() function. * dwarfread.c (struct dieinfo): Change types of most integral members to be unsigned. Mon Apr 13 15:59:10 1992 John Gilmore (gnu at cygnus.com) * WHATS.NEW: Revise -mapped doc. Sat Apr 11 23:14:36 1992 John Gilmore (gnu at cygnus.com) * mipsread.c (parse_partial_symbols): Complain when sh->index is too high or when skipping `forwards' moves us backwards. (parse_type): Print mis-guessed tag name in complaint. (parse_external): Eliminate cur_stab and obscure top_stack clobbers. (parse_procedure): Do not attempt to create symbols; just fill in the SYMBOL_VALUE field of a .gdbinfo. symbol if we can find one. (psymtab_to_symtab_1): Split up `stabs' from `native ecoff' code for clarity. Set top_stack before calling parse_external. In stabs, sort symbols before calling parse_procedure. * mipsread.c: Lint. * symmisc.c (std_in, std_out, std_err): Add vars to access std FILE *'s when debugging GDB (e.g. as args to dump_symtab). * Makefile.in: Remove stage* targets. Avoid echo on recursive makes. Eliminate doc/Makefile from tar.Z file if doc/Makefile.in exists. Fri Apr 10 23:47:37 1992 John Gilmore (gnu at cygnus.com) * Makefile.in (VERSION): Set to 4.5.1. * xcoffread.c (NO_TYPEDEFS): Fix typo in commented-out #define. * sparc-tdep.c (supply_gregset, fill_gregset, supply_fpregset, fill_gregset): New functions for SVR4 /proc support. * mipsread.c: Cleanup. Add more complaints for unhandled cases. Remove new symbol types and such to ../include/coff/symconst.h. (parse_symbol): Simplify code for parsing struct/enum/unions. (parse_type): Handle `long long' types. (upgrade_type): Handle `const' qualifier. (parse_partial_symbols): fix indentation, clean a bit. Fri Apr 10 22:41:03 1992 Fred Fish (fnf@cygnus.com) * dwarfread.c (SWAPIN,swapin): New macro and function to call to copy in data from raw read buffers, calling bfd byteswapping routines as appropriate. Use to replace most existing memcpy calls. * dwarfread.c (basicdieinfo, completedieinfo): Add objfile arg. * configure.in: Recognize new ncr3000 config. * config/ncr3000.mh: New config file. Fri Apr 10 08:30:58 1992 Stu Grossman (grossman at cygnus.com) GDB-4.5 release! * README: Update for release. * Makefile.in: Update version to 4.5. * WHATS.NEW: The obvious. * depend: Generate new depend file for this release. * Makefile.in (depend): Fix dependancy generation so that it does not include gcc 'fixincluded' files, which are usually in a system specific location. Thu Apr 9 13:35:00 1992 Per Bothner (bothner@rtl.cygnus.com) Changes from metin@ibmpa.awdpa.ibm.com (Metin G. Ozisik). * buildsym.c (#ifdef RS6000_TARGET): Don't create unnecessary symbols for nameless types. And, handle `R' (register parameter type) for AIX. (an extension to existing stabstring grammar). * rs6000-xdep.c: Fix typo (= should have been ==). Thu Apr 9 12:10:06 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in: version=4.4.88, add xm-vax.h to HFILES. Thu Apr 9 02:29:03 1992 John Gilmore (gnu at cygnus.com) * xm-sun4os5.h (DO_DEFERRED_STORES, CLEAR_DEFERRED_STORES): Zap. * signame.c (SIGWAITING, SIGLWP): Add. Tue Apr 7 16:34:07 1992 Per Bothner (bothner@cygnus.com) * xm-i386mach.h: add decls for errno and strdup(). * breakpoint.c (breakpoint_1): Add (int) casts for enums used in array index context (otherwise, some compilers barf). Tue Apr 7 08:45:46 1992 Stu Grossman (grossman at cygnus.com) * m68k-tdep.c, tm-sun3.h: #ifdef around get_longjmp_target(). Change def of SAVED_PC_AFTER_CALL to call routine to see if we are in a system call, and provide better backtrace if so. * Makefile.in (HFILES): Add xcoffsolib.h. * rs6k-opcode.h: Move to ../include/opcode/rs6k.h. * rs6000-pinsn.c: #include "opcode/rs6k.h" * mipsread.c (read_mips_symtab, read_the_mips_symtab, mipscoff_symfile_read): Convert to BFD to do file I/O. * symfile.c: #include to get proper def if isspace(). * i386-tdep.c (get_longjmp_target): #ifdef GET_LONGJMP_TARGET. Mon Apr 6 17:25:45 1992 Per Bothner (bothner@cygnus.com) * mipsread.c: Create a .gdbinfo pseudo-symbol for each function also when parsing embedded stabs. Mon Apr 6 15:25:03 1992 Stu Grossman (grossman at cygnus.com) * mipsread.c: Fix more declarations. * mipsread.c: Fix many invocations of complain. Use enum type_code where appropriate. * xm-vaxult.h: Add decl for strdup(). * Makefile.in: Add dependancies for xm-vaxbsd.h and xm-vaxult.h for xm-vax.h. Fri Apr 3 17:41:29 1992 Stu Grossman (grossman at cygnus.com) * buildsym.h, dbxread.c, mipsread.c: Add objfile arg to process_one_symbol. Fri Apr 3 12:17:14 1992 Per Bothner (bothner@cygnus.com) * munch: Must pre-pend "_" to "initialize" for SYSV style nm. * tm-rs6000.h, xcoffexec.c, xcoffread.c, xm-rs6000.h: Merge in more patches for rs6000 from Metin Ozisik. * utils.c: Fix typo in comment. Fri Apr 3 11:23:03 1992 Fred Fish (fnf@cygnus.com) * procfs.c (procinfo struct): Add nopass_next_sigstop member. * procfs.c (attach): Set nopass_next_sigstop if attached process is forcibly stopped. * procfs.c (child_resume): Use nopass_next_sigstop to suppress resending SIGSTOP to attached process on first resume. Fri Apr 3 01:37:26 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (SFILES_MAINDIR): add mipsread.c Thu Apr 2 20:20:54 1992 John Gilmore (gnu at cygnus.com) * Makefile.in (OBS): Compile mipsread.c for all targets now. (VERSION): Bump to 4.4.85. * mipsread.c: Update for new include files. Lint. * tm-irix3.h, tm-mips.h: Use new include files for ECOFF symtab. * config/{bigmips.mt, littlemips.mt, irix3.mt, decstation.mt}: Don't need to bring in mipsread.o specially any more. Thu Apr 2 19:38:31 1992 Stu Grossman (grossman at cygnus.com) * mipsread.c (fixup_sigtramp): Also look for _sigtramp as a real routine (for Irix-4.x). Make many funcs static and void. * mips-tdep.c (mips-frame-chain): Clean up, simplify. * (init_extra_frame_info): Don't trash cached value of frame pointer register. This fixes backtracing through routines that use alloca(). Generally clean up declarations of functions, and use typedefs and macros to reference data structures as appropriate. * tm-irix3.h, tm-mips.h (EXTRA_FRAME_INFO): use proper type for proc_desc element. Thu Apr 2 09:47:11 1992 Fred Fish (fnf@cygnus.com) * values.c (unpack_long): Fix unpacking error for signed chars on hosts where the default character type is unsigned. * procfs.c (pr_flag_table, pr_why_table): Add some entries for newer SVR4 variants. * procfs.c (proc_set_exec_trap): Reorder tests for ioctl's that turn off trace inherit-on-fork flag to favor latest SVR4 method. * procfs.c (mappingflags): Add support for MA_PHYS Thu Apr 2 00:55:56 1992 John Gilmore (gnu at cygnus.com) * buildsym.c (read_struct_type): Avoid coredump when C++ abbreviated type name is messed up. Reported by Joe Buck. FIXME, we need to determine whether GDB or GCC needs to be smarter to correctly locate this type name. * c-exp.y, coffread.c, command.c, command.h, copying.awk, dbxread.c, gdbtypes.c, infcmd.c, inferior.h, infrun.c, m2-exp.y, printcmd.c, remote.c, solib.c, source.c, stack.c, symtab.c, tm-sun4os4.h, tm-sun4os5.h, values.c: Lint. * symfile.c (add_symbol_file_command): Initialize mapped/readnow. Wed Apr 1 11:39:52 1992 Fred Fish (fnf@cygnus.com) * breakpoint.h (bpdisp, bptype): Remove trailing comma. * symtab.h (current_source_symtab): Make extern * symtab.h (current_source_line): Make extern * inferior.h: Move all procfs.c prototypes to one place, add prototype for proc_signal_handling_change. Add prototypes for signal_stop_state, signal_print_state, and signal_pass_state. * inferior.h (stop_soon_quietly): Make extern * inferior.h (attach_flag): Make extern * infrun.c (NOTICE_SIGNAL_HANDLING_CHANGE): Default is null. * infrun.c (signal_stop_state, signal_print_state, signal_pass_state): New functions to query specific signal handling flags. * infrun.c (handle_command): Minor error message change, add NOTICE_SIGNAL_HANDLING_CHANGE. * procfs.c (open_proc_file): Remove iris specific reset of inherit-on-fork flag, moved to proc_set_exec_trap(). * procfs.c (proc_set_exec_trap): Add SVR4 and iris code to reset inherit-on-fork flag, bash comment to GNU form. * procfs.c (proc_base_address, set_proc_siginfo, fetch_core_registers): Conform to code style. * procfs.c (signame.h): Include. * procfs.c (MAX_SYSCALLS, syscall_table[], init_syscalltable(), syscallname(), info_proc_syscalls()): New macros, tables, and functions to organize and report system call information. * procfs.c (saved_fltset, saved_trace, saved_sighold, saved_exitset, saved_entryset): Add to procinfo struct. * procfs.c (struct trans): Add. * procfs.c (pr_flag_table, pr_why_table, faults_table, siginfo_table, errno_table): Tables to translate numeric values to symbolic names and short descriptions. * procfs.c (signalname, info_proc_signals): Add function and prototype. * procfs.c (proc_info): Now info_proc. * procfs.c (proc_info_address_map): Now info_proc_mappings. * procfs.c (info_proc_flags, info_proc_stop, info_proc_siginfo, info_proc_faults, lookupname, lookupdesc, sigcodename, sigcodedesc): New functions. * procfs.c (proc_signal_handling_change): New function to set the trace flags based on the state of gdb's signal handling flags. * procfs.c (inferior_proc_init): Call proc_signal_handling_change and remove code to do PIOCSTRACE ioctl. * procfs.c (attach, detach): Preserve and restore process flags using saved_* fields in procinfo struct. * procfs.c (attach): Call proc_signal_handling_change. * procfs.c (info_proc): Major rework to expand "info proc" cmd. * procfs.c (proc_desc): Update for latest changes. * xm-irix4.h (CREATE_INFERIOR_HOOK): Protect by USE_PROC_FS. * xm-irix4.h (NOTICE_SIGNAL_HANDLING_CHANGE): Add definition. * xm-sysv4.h (NOTICE_SIGNAL_HANDLING_CHANGE): Add definition. Tue Mar 31 18:38:28 1992 Fred Fish (fnf@cygnus.com) * procfs.c (set_proc_siginfo): Add prototype and new function. * procfs.c (detach, child_resume): Call set_proc_siginfo to set up inferior siginfo struct. * elfread.c (elf_symfile_read): Compute the relocation amount by subtracting off the address of the ".text" section. * solib.c: Add pointer to ".text" section to so_list struct. * solib.c (solib_map_sections): Initialize pointer to ".text" section in so_list struct. * solib.c (symbol_add_stub): Pass base address of ".text" section to symbol_file_add, rather than the load address of the shared library. On SunOS they are the same. On SVR4 they are not. Tue Mar 31 17:48:15 1992 Stu Grossman (grossman at cygnus.com) * mipsread.c (parse_procedure): PDR.isym should get pointer to function name, not .gdbinfo. symbol. Tue Mar 31 17:05:04 1992 John Gilmore (gnu at cygnus.com) * breakpoint.c (breakpoint_1): Fix prototype, this time for sure! Tue Mar 31 11:01:06 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (VERSION): 4.4.8 * procfs.c (open_proc_file): Disable inherit-on-fork flag so that commands in .cshrc/.profile won't get traced. Tue Mar 31 08:11:58 1992 John Gilmore (gnu at cygnus.com) * elfread.c (elf_symtab_read): Use xmalloc, not bfd_xmalloc. * exec.c (build_section_table): Don't abort if no sections. * sparc-tdep.c (single_step): Lint. * utils.c (mrealloc): Handle realloc (0, size) case here. Mon Mar 30 16:50:43 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (alldeps.mak): Config files are now *.m[ht] as opposed to m[ht]-*! * config/irix4.mh: Don't use coredep.o. It doesn't work with procfs. * mipsread.c (parse_symbol, parse_procedure): Re-do the way that .gdbinfo. symbols are created. Move creation from parse_procedure to parse_symbol, where it is fairly easy to grow the symtab. This also fixes a symtab trashing bug on all mips-based systems. * (got_numargs, lookup_numargs, free_numargs): Delete. Not needed anymore. * tm-mips.h, tm-iris3.h, mips-tdep.c, mipsread.c: Re-do struct mips_extra_func_info, and all the PROC_xxx macros that look at it. Mon Mar 30 14:17:53 1992 Per Bothner (bothner@cygnus.com) * c-exp.y: Add missing return type to yyparse() prototype. Sat Mar 28 22:22:06 1992 John Gilmore (gnu at cygnus.com) Create and use macros for iterating on symtabs, psymtabs, msymbols. * minsyms.c (iterate_over_msymbols): Remove; clunky and slow. * symfile.h, symtab.h (iterate_over_msymbols): Remove prototype * coffread.c (coff_symfile_read): iterate_over_symtabs => ALL_SYMTABS. (patch_opaque_types): Avoid dummy args and result. * objfiles.c (have_partial_symbols, have_full_symbols, have_minimal_symbols): explicit iteration => ALL_OBJFILES; simplify. (iterate_over_objfiles, iterate_over_symtabs, iterate_over_psymtabs): Remove, clunky and slow. * objfiles.h: Replace iterate_over_* prototypes with ALL_SYMTABS, ALL_PSYMTABS, and ALL_MSYMBOLS macros. * symmisc.c (dump_symtab, dump_psymtab, dump_msymbols, dump_objfile): Remove dummy args and results. Move filename comparisons to callers. (printsyms_command, printpsyms_command, printmsyms_command, printobjfiles_command): iterate_over_* => ALL_*. Compare filenames. * symtab.c (lookup_symtab_1, lookup_symtab, lookup_partial_symtab, lookup_symbol, find_main_psymtab, find_pc_symtab, sources_info, list_symbols, make_symbol_completion_list): Replace explicit iteration with ALL_SYMTABS, ALL_PSYMTABS, or ALL_MSYMBOLS. Eliminate Dijkstra flag crap, break out of loops with gotos. (lookup_symtab_1): Protect '/' tests from short filenames. (cplus_mangled_symbol): Move inline into lookup_symbol. * xcoffexec.c (relocate_objfile_msymbols): Remove poor hack. (relocate_minimal_symbol): Move inline to vmap_symtab. (vmap_symtab): Replace iteration with ALL_OBJFILES, iterate_over_msymbols with ALL_MSYMBOLS. Misc cleanup prior to release. * Makefile.in (VERSION): Roll to 4.4.7. (HFILES): Add call-cmds.h. * call-cmds.h: New header for command fns called by other files. * breakpoint.c (watchpoints_info): Remove, same as breakpoints_info. (breakpoint_1): Remove unused type arg. Change callers. * dwarfread.c (dwarf_build_psymtabs): Remove mainline test. * mipsread.c (compare_symtabs, compare_psymtabs): Remove, unused. * mipsread.c: Add prototypes for all static functions. * symmisc.c (dump_symtab_lines, dump_symtabs, dump_last_symtab, dump_blockvector, dump_block, dump_addrchass, dump_namespace, dump_symbol, dump_type, dump_linetable, dump_strtbl): Remove, unused. * xcoffread.c (dump_symtab_lines, dump_symtabs, dump_last_symtab, dump_blockvector, dump_block, dump_addrchass, dump_namespace, dump_symbol, dump_type, dump_linetable, dump_strtbl): Remove 2nd unused copy! * buildsym.c (define_symbol): Handle global register variables (from Pierre Willard). Complain if register numbers are too large. * target.c (nomemory): Now that higher levels examine errno, give EIO. * tm-sparc.h: Don't #include . * sparc-tdep.c (sparc_frame_chain, frame_saved_pc): Remove dependency on . Start to handle cross-byte-order. * language.h: Avoid forward enum declaration. * configure.in, tm-sun4os5.h, xm-sun4os5.h, config/sun4os5.mh, config/sun4os5.mt: New host and target. * defs.h (errno): #include rather than assuming int. From Pierre Willard. * breakpoint.c, breakpoint.h, buildsym.c, coffread.c, cplus-dem.c, dbxread.c, dwarfread.c, elfread.c, infcmd.c, infrun.c, inftarg.c, language.c, main.c, mem-break.c, mips-tdep.c, mipsread.c, partial-stab.h, remote.c, saber.suppress, symfile.c, symtab.c, valops.c, valprint.c, xcoffread.c, c-exp.y, m2-exp.y, blockframe.c, command.c, core.c, exec.c, gdbtypes.h, parse.c, printcmd.c, solib.c, sparc-xdep.c, utils.c, value.h, values.c: Lint. Sat Mar 28 02:43:26 1992 John Gilmore (gnu at cygnus.com) * buildsym.c (read_range_type): Avoid int overflow by using unsigned. * dbxread.c (dbx_symfile_init): Remove bogus `lvalue cast'. * language.h (enum exp_opcode): Avoid forward enum def. * main.c (define_command, user_defined_command): Lint. * mem-break.c, xcoffread.c: Lint. * solib.c: Only #include on SunOS, not SVR4. Sun Mar 29 14:16:22 1992 Per Bothner (bothner@cygnus.com) * Merged in latest RS6000 diffs from Metin G. Ozisik. * xcoffsolib.c, xcoffsolib.h: New files, from Metin. * Various files: Changed #ifdef IBM6000 to IBM6000_HOST or IBM6000_TARGET as (approximately) appropriate. Sat Mar 28 13:00:10 1992 Fred Fish (fnf@cygnus.com) * objfiles.h (OBJF_SYMS): Define flag bit for objfile flags. * symfile.c (symbol_file_add): Use OBJF_SYMS to decide whether or not to try reading symbols from a mapped objfile. Plugs memory leak due to shared libraries generating no psymtabs or symtabs. Fri Mar 27 15:44:55 1992 John Gilmore (gnu at cygnus.com) * buildsym.c (MAX_OF_C_TYPE, MIN_OF_C_TYPE): Unused, remove. * copying.awk: Lint. Make stronger warning at top of copying.c. * elfread.c (elf_symtab_read): Eliminate check of mainline. * gdbtypes.c (smash_to_*): Remove FIXME comments. (lookup_pointer_type): Add FIXME comment. * main.c (set_history_size_command): Disallow negative size. * partial-stab.h: Update copyright. * rs6000-tdep.c (skip_trampoline_code): Better comments. Wed Mar 25 10:45:38 1992 John Gilmore (gnu at cygnus.com) * main.c (set_history_size_command): Negative size is error. (Reported by Peggy Fieland.) Thu Mar 26 17:01:18 1992 Fred Fish (fnf@cygnus.com) * coffread.c (coff_symfile_init): Update comment. * dbxread.c (DBX_SYMFILE_INFO, DBX_TEXT_SECT, DBX_SYMCOUNT, DBX_STRINGTAB, DBX_STRINGTAB_SIZE, DBX_SYMTAB_OFFSET): Define macros to access the dbx specific objfile information. * dbxread.c (symfile_string_table, symfile_string_table_size): Remove these local variables. * dbxread.c (read_ofile_symtab, psymtab_to_symtab_1, read_dbx_symtab): Remove the stringtab and stringtab_size params from the function prototypes, the function definition, and the function calls. These are now available via DBX_STRINGTAB and DBX_STRINGTAB_SIZE using the objfile pointer. * dbxread.c (dbx_symfile_read): Relocate addr before using as an arg to read_dbx_symtab. * dbxread.c (dbx_symfile_read): Remove code that free'd the stringtab and the dbx specific per-objfile private info. * dbxread.c (init_psymbol_list): Remove symbol count from passed args in prototype, function definition, and function calls. It is now available via the DBX_SYMCOUNT macro using the objfile pointer. * dbxread.c (dbx_symfile_read, dbx_symfile_init): Remove the local instance of struct dbx_symfile_info and replace with DBX_* macros. * dbxread.c (dbx_symfile_read): Remove init's of now deleted symfile_string_table and symfile_string_table_size. * dbxread.c (dbx_symfile_finish): Remove now obsolete free of symfile_string_table. * dbxread.c (init_psymbol_list): Use DBX_SYMCOUNT. * dbxread.c (dbx_psymtab_to_symtab): Remove local stringtab and stringtab size variables. Remove all code that used to reread the stringtab. * objfiles.c (allocate_objfile): Move calls to init_malloc() to prior to any calls to mmalloc for the objfile specific heap. * utils.c (init_malloc): Document the requirement that for each heap for which corruption checking is desired, that init_mmalloc must be called prior to any mmalloc calls on the heap. Thu Mar 26 13:20:06 1992 Per Bothner (bothner@cygnus.com) * rs6000-pinsn.c: Make dis-assembly output more like other targets: Don't print instruction in hex before the assembly; use print_address to print out jump destinations. Wed Mar 25 16:52:35 1992 Per Bothner (bothner@cygnus.com) * c-exp.y, gdbtypes.h: Add builtin_type_signed_char. * cplus-dem.c: Support "Sc" meaning "signed char". Wed Mar 25 15:21:44 1992 Stu Grossman (grossman at cygnus.com) * configure.in: fix iris/iris3. Wed Mar 25 14:55:48 1992 Per Bothner (bothner@cygnus.com) * command.c, main.c (various places): Use ctype.h macros (such as isupper(x)), instead of hard-wiring in ASCII-isms (such as (x >= 'A' && x <= 'Z')). (There are still more of these in other files.) * main.c (defined_command): Lower-case the user's new command before entering it. Needed because command lookup is case-insensitive (and also lower-cases). (Based on Metin's earlier patch.) Tue Mar 24 23:27:01 1992 K. Richard Pixley (rich@cygnus.com) * config/irix4.mh: new file. Tue Mar 24 14:17:48 1992 Stu Grossman (grossman@cygnus.com) * infcmd.c (step_1): Call disable_longjmp_breakpoint at the right time. * xm-mips.h: Declare strdup for ultrix. * mipsread.c (fixup_sigtramp): Make sure that current_objfile is setup when calling new_symbol. * mips-tdep.c (mips_frame_chain): Use symfile_objfile instead of current_objfile. Tue Mar 24 13:26:25 1992 Per Bothner (bothner@rtl.cygnus.com) * config/rs6000.mh: Update (for Fred's new mmalloc) flags to disable use of GNU malloc/mmalloc. * munch: Change SYSV rule to allow .text before the label, as well as after, to work for AIX. * gdbtypes.h: Minor clarifiction. Tue Mar 24 07:26:19 1992 Michael Tiemann (tiemann@cygnus.com) * buildsym.c (read_struct_type): Handle cretinous dbx symbol name continuation in yet another place (between method declarations). Mon Mar 23 23:01:41 1992 Stu Grossman (grossman at cygnus.com) * mips-tdep.c: include symfile.h and objfiles.h to fix compilation errors. Mon Mar 23 15:49:14 1992 Per Bothner (bothner@cygnus.com) * valops.c (value_struct_elt_for_reference): Added 'offset' parameter to handle multiple inheritance. * eval.c, value.h: Update accordingly. Fri Mar 20 17:43:27 1992 Fred Fish (fnf@cygnus.com) * objfiles.h: New file * Makefile.in (HFILES): Add objfiles.h * blockframe.c: Remove entry_scope_lowpc, entry_scope_highpc, main_scope_lowpc, main_scope_highpc. * blockframe.c, buildsym.c, coffread.c, dbxread.c, dwarfread.c, elfread.c, gdbtypes.h, minsyms.c, mipsread.c, objfiles.c, solib.c, source.c, symfile.c, symmisc.c, symtab.c, target.c, xcoffexec.c, xcoffread.c, : Include objfiles.h. * tm-29k.h, tm-i386v.h, tm-merlin.h, tm-rs6000.h, tm-sun386.h, tm-symmetry.h, tm-tahoe.h, tm-umax.h, tm-vax.h, m88k-tdep.c, mips-tdep.c (FRAME_CHAIN): Renamed outside_startup_file to inside_entry_file() and logic changed appropriately. * blockframe.c (outside_startup_file): Renamed to inside_entry_file() and logic changed appropriately. * blockframe.c (inside_main_scope): Renamed to inside_main_func() and logic changed to use per-objfile specific fields. * blockframe.c (inside_entry_scope): Renamed to inside_entry_func() and logic changed to use per-objfile specific fields. * blockframe.c, buildsym.h, coffread.c, dwarfread.c, mipsread.c, symfile.c, mips-tdep.c (startup_file_start, startup_file_end): Remove extern decls. * symfile.c, symfile.h (entry_point): Remove extern decl. * coffread.c (coff_symfile_init): Common entry point init code moved to symfiles.c, call init_entry_point_info(). * coffread.c (complete_symtab): Use new per-objfile entry info. * mip-tdep.c (mips_frame_chain): Use new per-objfile entry info. * mipsread.c (parse_partial_symbols): Use new per-objfile entry info. * dbxread.c (read_dbx_symtab): Use new per-objfile entry info. * defs.h (inside_entry_scope, outside_startup_file, inside_main_scope): Prototypes changed for renames to inside_entry_func, inside_entry_file, inside_main_func, respectively. * symfile.c (syms_from_objfile): Common entry point init code moved to init_entry_point_info() and call init_entry_point_info(). * symfile.h (init_entry_point_info): Include prototype. * xcoffread.c (aixcoff_symfile_init): Common entry point init code moved to symfiles.c and call init_entry_point_info(). * dwarfread.c (entry_scope_lowpc, entry_scope_highpc, main_scope_lowpc, main_scope_highpc): Remove extern decls. * dwarfread.c (read_func_scope, read_file_scope): Use new per- objfile entry info. * frame.h (FRAME_CHAIN_VALID): Provide default definition that works for the majority of targets. * tm-68k.h, tm-convex.h, tm-h8300.h, tm-i386v.h, tm-irix3.h, tm-merlin.h, tm-mips.h, tm-pyr.h, tm-rs6000.h, tm-sparc.h, tm-sun386.h, tm-tahoe.h, tm-umax.h, tm-vax.h (FRAME_CHAIN_VALID): Use default definition in frame.h. * frame.h (selected_frame_level): Make decl extern. * objfiles.c, symfile.c (current_objfile): Moved to objfiles.c * objfiles.c, symfile.c (symfile_objfile): Moved to objfiles.c * partial-stab.h: Use new per-objfile entry info. * symfile.h (struct objfile): Removed, moved to objfiles.h. * symfile.h, objfiles.h (allocate_objfile, free_objfile, free_all_objfiles, iterate_over_objfiles, iterate_over_symtabs, iterate_over_psymtabs, have_partial_symbols, have_full_symbols, have_minimal_symbols): Prototypes moved to objfiles.h. * symfile.h, objfiles.h (ALL_OBJFILES, ALL_OBJFILES_SAFE): Macros moved to objfiles.h. * tm-h8300.h, tm-i386v4.h (FRAME_CHAIN_VALID_ALTERNATE): Define. Thu Mar 19 18:49:45 1992 Per Bothner (bothner@cygnus.com) More C++ improvements (pointers to members, qualified names). * c-exp.y: Support exp.type::name and exp->type::name syntaxes. (Unfortunately, doesn't work for static members.) * c-exp.y, eval.c: Make type::~type work better. * eval.c (evaluate_subexp: OP_SCOPE): Replace use of value_static_field by value_struct_elt_for_reference. * eval.c (evaluate_subexp): Merge code for STRUCTOP_MEMBER and STRUCTOP_MPTR; cast arg1 to domain-type of arg2. * eval.c (evaluate_subexp): Remove special case for UNOP_ADDR for OP_SCOPE operand; no point in it now that we use lazy reading of values, and use "reference to member" objects. * gdbtypes.h: Clarify comment. * valops.c: Change value_struct_elt_for_address to return a reference (or variable), rather than a pointer. Change the name to value_struct_elt_for_reference to reflect this. Returning a reference instead of a address provides a generalization, since we can use the routine for both class::name as well as &class::name. Also, recurse to handle multiple inheritance properly. * valprint.c: Moved code to print pointer-to-members to new function point_class_member. This allows a "reference-to-member" to be printed using the same code. * valprint.c (type_print_varspec_prefix): Avoid printing "struct " for domains of class-member types. * valops.c (search_struct_field): Inline code for simplified version of value_static_field (which can then be deleted). * value.h: Rename value_struct_elt_for_address to value_struct_elt_for_reference. Delete value_static_field. * values.c: Remove no longer used function value_static_field. Thu Mar 19 13:54:11 1992 Fred Fish (fnf@cygnus.com) * coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c, elfread.c (coff_symfile_finish): Add function, prototype, and add to the xxxx_sym_fns struct for each file type. Also reformat the xxxx_sym_fns vector to a standard format and add comments. * coffread.c, mipsread.c, xcoffread.c, coffread.c, dbxread.c, elfread.c (xxx_symfile_new_init, xxx_symfile_init, xxx_symfile_read): Pass pointer to struct objfile rather than pointer to sym_fns. Change references inside each function accordingly. Allocate any symbol file specific info in the per-objfile memory region. * dbxread.c (free_and_init_header_files): Break function into free_header_files(), called from dbx_symfile_finish(), and init_header_files(), called from dbx_new_init(). * dbxread.c (dbx_new_init): Move deallocation things to new dbx_symfile_finish function. * elfread.c (elf_new_init): Call buildsym_new_init(). * objfiles.c (free_objfile): Call the appropriate symfile_finish() routine for the objfile before deallocating other stuff. * sparc-tdep.c (get_longjmp_target): Cast target_read_memory arg. * symfile.h: Move struct sym_fns to before struct objfile def. Add sym_finish function pointer and change prototypes of other function pointers to reflect passing struct objfile pointer rather than struct sym_fns pointer. * symfile.c: Remove now obsolete symtab_fns pointer. * symfile.c (symfile_init): Renamed to find_sym_fns, and now only locates the correct sym_fns struct for the given objfile. * symfile.c (syms_from_objfile, symbol_file_add): Restructured for better support of mapped symbol tables. * symfile.c (symbol_file_command): Remove obsolete code using symfile_fns. * symfile.h: Remove duplicate declarations for symfile_objfile, entry_point, and object_files. * target.c (target_info): Compare symfile_objfile to NULL. * xcoffread.c (aixcoff_new_init): Move deallocation stuff to aixcoff_symfile_finish(). Wed Mar 18 18:22:46 1992 Fred Fish (fnf@cygnus.com) * infrun.c (IN_SOLIB_TRAMPOLINE): Add default definition. * infrun.c (wait_for_inferior): Use IN_SOLIB_TRAMPOLINE. * tm-sysv4.h (IN_SOLIB_TRAMPOLINE): Add SVR4 definition. Wed Mar 18 15:51:15 1992 Per Bothner (bothner@cygnus.com) Some improvements to g++ debugging. * symtab.c (list_symbols): demangle before pattern matching. * symtab.c: Other fixes to improve handing of operators. * valprint.c (type_print_base): Fix test for constructor. * values.c (value_static_field): Allow evaluation of CLASS::METHOD, returning a function pointer. Wed Mar 18 08:39:52 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Roll 4.4.6. * exec.c (exec_file_command): Add code to ignore optional args passed in by file_command() for use in symbol_file_command(). * main.c (main): Document -mapped and -readnow in help summary. * objfiles.c (open_mapped_file): Cosmetic change, arg renamed. * objfiles.c (allocate_objfile): Filename arg removed. Changes to get filename from bfd with bfd_get_filename(). Test mapto against 0, not NULL. Use mstrsave() to make copy of filename. * remote-mm.c (mm_load): Symbol_file_add() takes an additional arg. * remote-vx.c (vx_load_command, add_symbol_stub): Symbol_file_add() takes an additional arg. * solib.c (symbol_add_stub): Symbol_file_add() takes an additional arg. * symfile.c (symfile_open): Renamed to symfile_bfd_open and changed to return a bfd not an objfile pointer. * symfile.c (syms_from_objfile): Eliminate local copy of bfd. * symfile.c (symbol_file_add): Takes an additional arg (readnow). Change to eliminate local bfd and use symfile_bfd_open() plus allocate_objfile(). Add code to implement readnow option. * symfile.c (symbol_file_command): Changes to option handling, readnow functionality moved to symbol_file_add(). * symfile.c (symfile_init): Eliminate local copy of bfd. * symfile.c (add_symbol_file_command): Changes to parse mapped and readnow options. * symfile.h (allocate_objfile): Arg removed from prototype. * symtab.h (symbol_file_add): Arg added to prototype. * xcoffexec.c (map_vmap): Allocate_objfile() takes an additional arg. Sat Mar 14 16:38:47 1992 Fred Fish (fnf@cygnus.com) * gmalloc.c, gmalloc.h mcheck.c mmap-alloc.c mmap-sbrk.c mtrace.c, mtrace.awk, state.c, state.h: Removed. * .gdbinit: Add ../malloc, ../libiberty, and ../bfd to list of directories searched for source files. * Makefile.in (GNU_MALLOC, MALLOC_CFLAGS, MALLOCSRC): Removed * Makefile.in (MMALLOC_DIR, MMALLOC_DEP, MMALLOC_LIB, MMALLOC_DISABLE, MMALLOC_CHECK, MMALLOC_CFLAGS): Add * Makefile.in (CFLAGS): Replace MALLOC_CFLAGS with MMALLOC_CFLAGS. * Makefile.in (CLIBS, CDEPS): Add MMALLOC_LIB * Makefile.in (ADD_FILES, ADD_DEPS): Remove GNU_MALLOC. * Makefile.in (SFILES_MAINDIR): Remove stat.c mmap-alloc.c, mmap- sbrk.c * Makefile.in (HFILES): Remove state.h * Makefile.in (POSSLIBS_MAINDIR): Remove MALLOCSRC. * Makefile.in (OBS): Remove state.o mmap-alloc.o mmap-sbrk.o * Makefile.in (saber_gdb): Remove mcheck, mtrace. Add MMALLOC_DIR. * Makefile.in (clean): Remove all object files. * c-exp.y: Define malloc to xmalloc and realloc to xrealloc. * cplus-dem.c: Remove prototypes definitions that are now done in def.h. * dbxread.c (throughout): Change from using per-objfile xmalloc/xrealloc/free functions to xmmalloc/xmrealloc/mfree. * defs.h: Remove prototypes for mmap_* functions. Add prototypes for xmmalloc, xmrealloc, mfree, mmcheck, mmtrace, mmalloc_attach, mmalloc_detach, mmalloc_setkey, msavestring, and mstrsave, nomem. * depend: Remove dependencies for state.o, state.h. * dwarfread.c: Add declaration for warning_pre_print. * dwarfread.c (dwarfwarn): Use warning_pre_print. * dwarfread.c (throughout): Change from using per-objfile xmalloc/xrealloc/free functions to xmmalloc/xmrealloc/mfree. * gdbtypes.c (lookup_fundamental_type): Fix init_type calls to use supplied objfile. * i386-xdep.c (print_387_status): Change to use warning() rather than printfs. * i387-tdep.c (print_387_control_word): Change to use warning() rather than printfs. * infrun.c (wait_for_inferior): Remove unreachable abort() call that some compilers grumble about. * language.c (throughout): Add declaration for warning_pre_print and using warning() instead of printfs. * m2-exp.y: Define malloc to xmalloc and realloc to xrealloc. * main.c (main): Add declaration for warning_pre_print and set it similarly to error_pre_print. Add declarations for mapped_symbol_files and readnow_symbol_files. Add appropriate definitions to long_options[]. * minsyms.c: Trivial fix to comment. * objfiles.c (allocate_objfile): Substantially rewritten for using mapped symbol files. * objfiles.c (throughout): Change from using per-objfile xmalloc/xrealloc/free functions to xmmalloc/xmrealloc/mfree. * objfiles.c (open_mapped_file, mapped_to_address): Add functions. * source.c (throughout): Change from using per-objfile xmalloc/xrealloc/free functions to xmmalloc/xmrealloc/mfree. * source.c (open_source_file): Use mstrsave to save file name in mapped symbol region for objfile. * symfile.c: Remove include for state.h. include to local form. * symfile.c (symbol_file_add_digested): Remove. * symfile.c (symbol_file_add): Substantially rewritten for mapped symbol files. * symfile.h: Remove malloc/xrealloc/xmalloc/xrealloc/free members from objfile structure. Add malloc descriptor pointer (md). * symfile.h (OBJF_DUMPABLE): Changed name to OBJF_MAPPED. * symm-xdep.c (print_fpu_status): Use warning() rather than printfs. * symmisc.c (free_symtab_block): Now takes and uses current objfile pointer. * symmisc.c (throughout): Change from using per-objfile xmalloc/xrealloc/free functions to xmmalloc/xmrealloc/mfree. * symtab.c (cplus_mangled_symbol): Cast return value to avoid Sun compiler grumblings when PTR is char *. * symtab.c (lookup_symbol): Cast return value of iterate_over_ msymbols() to correct pointer type. * utils.c (warning_pre_print): Initialize to "\nwarning: ". * utils.c (fatal, fatal_dump_core): Ensure that the fatal error always starts on a line of it's own. * utils.c (init_malloc, malloc_botch, xmalloc, xrealloc): Rewrite for new mapped malloc package use. * utils.c (mmalloc, mrealloc, mfree): Stubs for configurations that don't want to use the mapped malloc package; pass arguments on to traditional malloc package functions. * utils.c (nomem): Add for fatal virtual memory exhausted aborts. * utils.c (xmmalloc, xmrealloc, xmalloc, xrealloc): Like mmalloc, mrealloc, malloc, and realloc but get fatal error if runs out of memory. * utils.c (msavestring, mstrsave): Save a string in a specific mapped malloc region. * utils.c (print_spaces): Use xmalloc to get the buffer. * xm-amix.h, xm-i386v4.h, xm-sun3os4.h, xm-sun4os4.h: Add defines for MMAP_BASE_ADDRESS and MMAP_INCREMENT. * config/i386v4.mh: Insignificant reorganization. Sat Mar 14 11:44:47 1992 Fred Fish (fnf@cygnus.com) * xcoffread.c: Only enable compilation of debugging functions if IBM6000 is defined. Fails to compile otherwise. Fri Mar 13 15:51:11 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: pass MAKEINFO down on info. Fri Mar 13 12:56:36 1992 John Gilmore (gnu at cygnus.com) * mipsread.c (mipscoff_symfile_read): Eliminate a lot of useless code, including an lseek to an uninitialized variable. Reported by Jim Williams . Thu Mar 12 11:56:46 1992 Per Bothner (bothner@cygnus.com) Merged in patches from metin@ibmpa.awdpa.ibm.com (Metin G. Ozisik) (dated Fri, 6 Mar 92 17:51) for the rs6000. * minsyms.c, symfile.c: Changes that may be generally applicable, but are #ifdef IBM6000 for now. * rs6000-xdep.c: Fixed typo in comment. * rs6000-tdep.c: Non-substatial changes. * xoffread.c: The main change here is addition of some debugging functions. * xoffexec.c: More changes. * xcoffread.c: Fixed two too-few-parameters bugs. * solib.h, infrun.c, tm-rs6000.h: Add a PID parameter to SOLIB_CREATE_INFERIOR_HOOK macro. Sun Mar 8 21:17:48 1992 Fred Fish (fnf@cygnus.com) * symfile.h: Add prototype for iterate_over_msymbols(). * symtab.c (cplus_mangled_symbol): Add function. * symtab.c (lookup_symbol): Call cplus_mangled_symbol via iterate_over_msymbols to find demangled C++ symbol. * xcoffexec.c (relocate_minimal_symbol): Return meaningful value to iterate_over_msymbols(). * xcoffexec.c (vmap_symtab): Ignore return from iterate_over_ msymbols(). Fri Mar 6 21:59:34 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: added check target. Thu Mar 5 23:56:01 1992 John Gilmore (gnu at cygnus.com) * ecoff.c: Move to ../bfd/coff-msym.c. * config/mt-*mips: Remove ecoff.o from the configuration. * remote.c (): Add newline to initial +. (remote_resume): Mention how to cope with signals. (remote_interrupt): Add debug msg. (remote-wait): Implement new 'T' reply, which includes status, PC, and FP all in a single short message. (putpkt): Add further debugging of packet acks. * mipsread.c (fixup_symtab): Also swap RFD's. (parse_partial_symbols): Avoid bug on unknown symbol types. * Makefile.in (VERSION): Roll to 4.4.5. * mips-tdep.c (heuristic_proc_start): Avoid long delays for remote MIPS by limiting heuristic to 200 byte search. (heuristic_proc_desc): Byte-swapping. (mips_print_register): Cope with failure of read_relative_register_raw_bytes. Byte-swap integers for printing. * mips-pinsn.c (print_insn): Byte-swap instruction. Thu Mar 5 12:32:09 1992 Stu Grossman (grossman at cygnus.com) * config.sub configure.in config/mh-irix4 gdb/configure.in gdb/mips-tdep.c gdb/mipsread.c gdb/procfs.c gdb/signame.h gdb/tm-irix3.h gdb/tm-mips.h gdb/xm-irix4.h gdb/config/mt-irix3 gdb/config/mh-irix4 texinfo/configure.in: Port to SGI Irix-4.x. Wed Mar 4 11:56:42 1992 Fred Fish (fnf@cygnus.com) * defs.h, utils.c: xrealloc takes PTR as first arg. * defs.h: Reword confusing comment about ANSI prototypes. * defs.h: Some minor whitespace changes. * infrun.c (wait_for_inferior): Compare int tmp to int 0, not NULL, which can be (void *). * tm-amix.h, tm-i386v4.h: Add defines for setjmp/longjmp handling. * tm-i386v.h (SP_ARG0): Define * xm-sysv4.h: Back out of change for missing prototypes. * i386-tdep.c (get_longjmp_target): Add function. Wed Mar 4 05:46:11 1992 K. Richard Pixley (rich@rtl.cygnus.com) * Makefile.in: install man page too. Tue Mar 3 15:11:52 1992 Michael Tiemann (tiemann@cygnus.com) * All GDB files that #include defs.h: Removed stdio.h. (defs.h): #include stdio.h. Mon Mar 2 23:00:12 1992 Steve Chamberlain (sac@thepub.cygnus.com) * gdbtypes.c (lookup_pointer_type): initialize the TYPE_LENGTH of a ptype to reflect the setting of TARGET_PTR_BIT. Set the TYPE_FLAGS of a ptype to TYPE_FLAG_UNSIGNED. * tm-h8300.h, h8300-tdep.c, remote-hms.c: personal checkpoint * printcmd.c (print_address): if ADDR_BITS_REMOVE is defined, use it before printing out the hex shape of an address. Sun Mar 1 17:41:09 1992 Per Bothner (bothner@cygnus.com) * rs6000-xdep.c (frame_initial_stack_address): Move code to set frame->cache_fsr into new separate function frame_get_cacahe_fsr. This allows fixing a fatal error. * xcoffexec.c: Turn previously suppressed error message back on, after cleaning up BFD. * breakpoint.c (breakpoint_re_set): Removed (at least for now) printing of blank line, since it cases printing of an extra blank line. Is this intended? It does mess up gdb test suite. * defs.h: Put back declarations of malloc and realloc, but protected by #ifndef MALLOC_INCOMPATIBLE. * objfiles.c: Undo previous change: Use malloc/realloc for objfile malloc/realloc fields (but add a cast). * xcoffexec.c: Suppress an error message (for now). Sat Feb 29 14:43:02 1992 Per Bothner (bothner@cygnus.com) Changes from metin@ibmpa.awdpa.ibm.com (Metin G. Ozisik) [Mail dated Fri, 21 Feb 92 13:14:54 -0800] * buildsym.c: Use smash_to_pointer_type() to handle forward type references. * xcoffread.c: Modifications to C_DECL storage class handling, and introduction of an old smash_to_pointer_type() routine. Changes from metin@ibmpa.awdpa.ibm.com (Metin G. Ozisik) [Mail dated Thu, 20 Feb 92 13:57:16 -0800] * rs6000-xdep.c, rs6000-tdep.c, tm-rs6000.h: function_frame_info() parameters have been modified. Changes from metin@ibmpa.awdpa.ibm.com (Metin G. Ozisik) [Mail dated Thu, 20 Feb 92 10:10:05 -0800] * rs6000-tdep.c: Before Feb 5 92, register_valid[] array was not used, and fetch_inferior_registers() always fetched all the registers resulting valid register values at hand all the time. Pushing a dummy frame did not require validating all register values first. After putting the above mechanism into action, we didn't have valid registers values always ready. Thus, all registers need to be fetched before pushing a dummy frame now. Changes from metin@ibmpa.awdpa.ibm.com (Metin G. Ozisik) [Mail dated Thu, 13 Feb 92 16:22:44 -0800] * rs6000-xdep.c: frame_initial_stack_address() function to calculate the starting address (actual frame address) of a frame. * rs6000-tdep.c: modifications to function_frame_info() to see if function reserves a frame pointer register (alloca register) * tm-rs6000.h: EXTRA_FRAME_INFO, FRAME_ARGS_ADDRESS and FRAME_LOCALS_ADDRESS has been updated to support debugging of functions with alloca() calls. Sun Mar 1 13:13:39 1992 Fred Fish (fnf@cygnus.com) * xm-sysv4.h: Provide definitions/prototypes for host environment functions for which no definitions or prototypes are provided in any currently included gdb or host environment header files. For SVR4, this currently includes malloc and realloc, which cannot be portably prototyped in any gdb include file. Sat Feb 29 14:43:02 1992 Per Bothner (bothner@cygnus.com) * buildsym.h: Remove obsolete variable file_stabs. * Makefile.in: Move place where configure merges in host- and target-dependent fragments later, so the latter can override (say) GNU_MALLOC. * config/mh-rs6000: Use system malloc. Otherwise, I ended up with *two* incompatible versions of malloc (functions in libc would call the malloc in libc). I assume this is a shared library problem. * remote.c: Fix (presumed) typo. * objfiles.c: Use xmalloc/xrealloc instead of malloc/realloc (since the latter are no longer declared). Changes from metin@ibmpa.awdpa.ibm.com (Metin G. Ozisik) [Mail dated Thu, 6 Feb 1992 10:22:02 -0800] * rs6000-xdep.c: Improvements to fetch_inferior_registers() to handle individual registers. * tm-rs6000.h: Fix SAVED_PC_AFTER_CALL macro to handle pc value correctly in case it wasn't cached yet. (A problem showed up after fetching individual registers.) * buildsym.c: Disable type_synonym_name's type name overwriting in cases it is unnecesary. rs6000 portation doesn't use type_synonym_name, and it used to nullify type names * xcoffread.c: to handle g++'s typename abbreviation, fill in a type's name as soon as space for that type is allocated. * xcoffread.c: ignore a section's lineno information if it is not `.text'. (In rs6000 bfd portation integration, skipping over `.pad' sections are ignored since it was in machine independent part of the code. Thus, a problem of fake sections with invalid lineno information arised.) Changes from metin@ibmpa.awdpa.ibm.com (Metin G. Ozisik) [Mail dated Thu, 6 Feb 1992 13:26:22 -0800] * rs6000-tdep.c: make function_frame_info() work whether or not reading from a core file. * tm-rs6000.h: Implementation of FRAME_FIND_SAVED_REGS macro. * infrun.c. main.c, printcmd.c. symtab.c: More changes from IBM for rs6000. Thu Feb 27 22:57:19 1992 Per Bothner (bothner@cygnus.com) * rs6k-opcode.h, tm-rs6000.h, xm-rs6000.h, rs6000-tdep.c, rs6000-xdep.c, xcoffexec.c, xcoffread.c: Merge in changes (mostly from IBM) for RS6000. * breakpoint.c, buildsym.c, infptrace.c, stack.c, symtab.c: More changes from IBM for RS6000. These are in machine- independent code, and probably could do with some cleaning up. The most questionable of these are #ifdef IBM6000. * infrun.c, sparc-tdep.c: Pass a parameter (signal number) to single_step() (for consistency with rs6000 and i860). * utils.c: Allow the 1st arg to xrealloc to be NULL (in which case do malloc). This removes the need for some tests in xcoff code (and perhaps other places?). * coffread.c: Removed variables last_source_file, type_vector, and type_vector_length as these are now defined by buildsym.[ch]. * defs.h: Remove prototypes for malloc and realloc, since these should only be used to implement xmalloc and xrealloc, and they conflict with in AIX - where they return void* even when __STDC__ isn't defined. Sigh. * munch: Recognize *initialize* in data as well as text (AIX uses data). Also, incorporate a patch from Garrett Wollman to make the sed script much more sensible, by only trying to match the name of the initialize_foo function, and not the junk before it. Thu Feb 27 20:07:43 1992 Stu Grossman (grossman at cygnus.com) * breakpoint.c (breakpoint_re_set_one): Don't reset breakpoint unless symbol table indicates that something has changed. Thu Feb 27 11:48:47 1992 John Gilmore (gnu at cygnus.com) * remote.c: Make it work for embedded MIPS. Increase buffer size, and use throughout. Round buffer size up if too many regs. Support baud rate setting and try for an 8-bit path. If interrupted while waiting for target, send a ^C down the wire. Avoid single-byte reads. * tm-mips.h: Add more embedded-system registers to REGISTER_NAMES and NUM_REGS. * mips-xdep.h: Avoid the embedded regs when on Unix. * mipsread.c: Byte-swap the symbol table structures, using routines from ecoff.c, to read a symbol table written in any of the four possible byte orders. * configure.in (mips-big-* target): Same as Sony News. * config/mt-bigmips, config/mt-littlemips: Add ecoff.o. * ecoff.c: New file for symbol swapping routines. Thu Feb 27 09:26:38 1992 Stu Grossman (grossman at cygnus.com) * breakpoint.c (all_breakpoints_info, breakpoint_1): Add 'info all-breakpoints' command. * (get_number): Allow users to enter negative breakpoint numbers. * (breakpoint_1): Reformat display of 'info break' to show new fields. * (create_longjmp_breakpoint, breakpoint_re_set, breakpoint_re_set_one, enable/disable_longjmp_breakpoint), symfile.c (syms_from_objfile): Re-do insertion of longjmp breakpoints. Move all code into breakpoint_re_set, and call that instead of create_longjmp_breakpoint in symfile.c. Thu Feb 27 06:11:05 1992 John Gilmore (gnu at cygnus.com) * breakpoint.h (ALL_BREAKPOINTS_SAFE): Add. * breakpoint.c (breakpoint_re_set): Use ALL_BREAKPOINTS_SAFE. * symtab.c (find_pc_symtab): Handle having no objfiles. * infcmd.c: Fix comment. * objfiles.c (free_all_objfiles): Add. * symfile.h (ALL_OBJFILES, ALL_OBJFILES_SAFE): Add. * symfile.c (symbol_file_command): free all objfiles when specifying a new symbol file. (reread_symbols): Stat the file name, don't fstat the descriptor. Wed Feb 26 18:04:40 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in, configure.in: removed traces of namesubdir, -subdirs, $(subdir), $(unsubdir), some rcs triggers. Forced copyrights to '92, changed some from Cygnus to FSF. Tue Feb 25 19:31:19 1992 Stu Grossman (grossman at cygnus.com) * dbxread.c (end_psymtab): Delete empty psymtabs. * symfile.c (allocate_psymtab): Recycle empty psymtabs. * symfile.h (struct objfile): Add free_psymtabs. Sat Feb 22 02:00:32 1992 John Gilmore (gnu at cygnus.com) * Makefile.in (VERSION): Roll to gdb-4.4.4. * symfile.c (symbol_file_command): strcmp => !strcmp. * breakpoint.h: Move prototypes to follow enum definition they need. * breakpoint.c, infrun.c: Lint. * printcmd.c: Use `enum enable' rather than `enum display_status'. * mipsread.c: First pass at making it compile with the new objfile changes. Probably seriously broken still, but it compiles. FIXME. Sat Feb 22 00:56:39 1992 Stu Grossman (grossman at cygnus.com) * infrun.c, infcmd.c, breakpoint.c, main.c, symfile.c, breakpoint.h, tm-sun4os4.h, tm-sparc.h, sparc-tdep.c, tm-mips.h, mips-tdep.h, tm-sun3.h, tm-68k.h, m68k-tdep.h: Add support for stepping (and nexting) through longjmp(). Also, cleanup breakpoint handling quite a bit by creating explicit breakpoint types instead of using magic breakpoint numbers. Makefile.in: Update version to 4.4.3 Sat Feb 22 00:08:50 1992 John Gilmore (gnu at cygnus.com) * buildsym.c, dwarfread.c, gdbtypes.c, inflow.c, main.c, minsyms.c, printcmd.c, remote.c, saber.suppress: Saberlint. * symmisc.c, xcoffread.c: Move debug functions to symmisc.c. * xm-sun3os4.h, xm-sun4os4.h: Enable HAVE_MMAP. * minsyms.c (install_minimal_symbols): Add bunches to any existing minsyms in the objfile. Avoid extra mallocation by working directly in the obstack. Remove ignored `mainline' parm. * coffread.c, dbxread.c, elfread.c, mipsread.c, solib.c, symtab.h, xcoffread.c: Change all callers. * FIXME: We should be able to eliminate MAINLINE from all the symbol readers now, with a small bit of work. * valops.c, value.h: Lint. * remote-vx.c: Add missing break; statement. Bugfix by Michael Sclafani, . Fri Feb 21 17:29:54 1992 Fred Fish (fnf at cygnus.com) * Makefile.in (VERSION): Update version to 4.4.2 * Makefile.in (SFILES_MAINDIR): Add gdbtypes.c, state.c, objfiles.c, minsyms.c, mmap-alloc.c, mmap-sbrk.c * Makefile.in (HFILES): Add gdbtypes.h, state.h, solib.h * Makefile.in (OBS): Add gdbtypes.o, state.o, objfiles.o, minsyms.o, mmap-alloc.o, mmap-sbrk.o * altos-xdep.c: Minor whitespace change. * am29k-tdep.c (examine_prologue): Convert from misc function vector use to new minimal symbol table use. * arm-xdep.c (fetch_inferior_registers): Document unused argument. * arm-xdep.c (store_inferior_registers): Returns void. * blockframe.c (get_pc_function_start, find_pc_partial_function): Convert from misc function vector use to new minimal symbol table use. Remove find_pc_misc_function(). Ifdef out block_innermost_frame(). * breakpoint.c: Add prototypes for local functions. * breakpoint.c (catch_command_1): Change to static and remove unused local "pc". * breakpoint.c (map_breakpoint_numbers): Prototype arg "function". * breakpoint.h: Change function decls to prototype form. * buildsym.c: Add prototypes for local functions. * buildsym.c: Moved hashname() function here from dbxread.c. * buildsym.c (dbx_lookup_type): Cast args to xrealloc(). * buildsym.c: Remove dbx_create_type(), uses changed to alloc_type(). * buildsym.c (dbx_alloc_type): Change to static. * buildsym.c (finish_block): Add objfile parameter. * buildsym.c (misc): Change symbol_obstack to objfile version. * buildsym.c (make_blockvector): Change to static. * buildsym.c (start_subfile): Use strdup instead of obsavestring. * buildsym.c (compare_line_numbers): Change to static, args are const, cast args when used. * buildsym.c (start_symtab): Inline new_object_header_files() call. * buildsym.c (patch_block_stabs): Moved to this file from xcoffread and made static. Add objfile parameter. * buildsym.c (end_symtab): Simplify code using line table size. Realloc the linetable on the objfile symbol_obstack and copy there. * buildsym.c (scan_file_globals): Convert from misc function vector use to new minimal symbol use. * buildsym.c (define_symbol): Add objfile parameter. Make sure strings get allocated in objfile's symbol_obstack. Convert references to builtin types to lookup_fundamental_type(). * buildsym.c (read_type): Make static, add objfile parameter, convert references to buildin types to lookup_fundamental_type(). * buildsym.c (read_struct_type): Add objfile parameter. * buildsym.c (read_array_type): Make static, add objfile parameter. * buildsym.c (read_enum_type): Make static, add objfile parameter. * buildsym.c (read_huge_number): Make static. * buildsym.c (read_range_type): Make static, add objfile parameter, convert references to buildin types to lookup_fundamental_type (). * buildsym.c (read_args): Make static, add objfile parameter. * buildsym.h: Convert function decl's to prototype form. * c-exp.y: Add prototypes for local functions, convert uses of misc function vector to minimal symbol table. Reformat all builtin type initializations and pass a NULL objfile to init_type() for them. * coffread.c: Change context_stack ref's to coff_context_stack, add local function prototypes. Cast uses of xrealloc arg 1. * coffread.c (coff_alloc_type): Call alloc_type instead of hand- crafting a new type. * coffread.c (add_symbol_to_list): Change to coff_add_symbol_to_list. * coffread.c (finish_block): Change name to coff_finish_block. * coffread.c (make_blockvector): Add and use objfile parameter. * coffread.c (record_line): Change name to coff_record_line. * coffread.c (start_symtab): Change name to coff_start_symtab. * coffread.c (end_symtab): Change name to coff_end_symtab. * coffread.c (record_misc_function): Change name to record_minimal_ symbol and change to minimal symbol table use from misc func tbl. * coffread.c (coff_symfile_read): Convert from misc function vector use to minimal symbol table use. * coffread.c (hashname): Remove; use common version in buildsym.c. * coffread.c (decode_base_type): Change references to builtin types to calls to lookup_fundamental_type(). * coffread.c (read_struct_type): Change name to coff_read_struct_type. * coffread.c (read_enum_type): Change name to coff_read_enum_type. * command.c: Add prototypes for local functions. * command.c (add_cmd): Prototype the 'fun' parameter and use the appropriate member of the function union for that type. * command.c (add_abbrev_cmd): Prototype the 'fun' parameter and ifdef out the function since it isn't currently used. * command.c (add_alias_cmd): Pass correct function type to add_cmd. * command.c (add_prefix_cmd): Prototype the 'fun' parameter. * command.c (add_abbrev_prefix_cmd): Prototype the 'fun' parameter. * command.c (help_cmd): Compare function pointer to NULL. * command.c (help_cmd_list): Compare function pointer to NULL. * command.c (lookup_cmd_1): Use correct member of function union. * command.c (undef_cmd_error): Make static. * command.c (complete_on_cmdlist): Use correct member of func union. * command.c (do_setshow_command): Use correct member of func union. * command.c (shell_escape): Convert rindex use to strrchr. * command.h (COMMAND_H): Define if already included. * command.h (cmd_list_element struct): Change 'function' to a union and prototype args. Prototype completer function. * command.h: Convert decl's to prototype form. * convex-xdep.c (store_inferior_registers): Returns void. * copying.c: Prototype local functions. * coredep.c: Minor whitespace change. * cplus-dem.c: Remove hack to use BSD equivalents of mem* and str*. * cplus-dem.c: Prototype local functions. * dbxread.c (hashname): Remove; moved to buildsym.c. * dbxread.c (free_and_init_header_files): Make static. * dbxread.c: Add prototypes for local functions. * dbxread.c (new_object_header_files): Remove; inlined usages. * dbxread.c (xrealloc usages): Cast args. * dbxread.c (record_misc_function): Change to record_minimal_symbol and change usages accordingly. * dbxread.c (static_psymbols usages): Change to use per-objfile copy. * dbxread.c (xmalloc usages): Use per-objfile copy when appropriate. * dbxread.c (dbx_next_symbol_text): Make static. * dbxread.c (init_psymbol_list): Convert to use per-objfile data. * dbxread.c (init_bincl_list): Add and use objfile parameter. * dbxread.c (free_bincl_list): Add and use objfile parameter. * dbxread.c (compare_psymbols): Remove; use common symfile.c version. * dbxread.c (end_psymtab): Convert to use per-objfile data. * dwarfread.c (DEFUN/EXFUN): Remove all usages. Use PARAMS for prototypes. * dwarfread.c (record_misc_function): Change name to record_minimal_ symbol and use minimal symbol table throughout. * dwarfread.c (compare_psymbols): Remove; use common symtab.c version. * dwarfread.c: Convert all references to builtin types to use the new lookup_fundamental_type function. * dwarfread.c (read_enumeration): Add and use objfile parameter. * elfread.c (DEFUN/EXFUN): Remove all usages. Use PARAMS for proto- types. * elfread.c (record_misc_function): Convert to use record_minimal_ symbol. * elfread.c (elf_symtab_read): Add objfile parameter. * eval.c: Add prototypes for local functions and move some decls around to accomodate prototypes. * expprint.c: Add prototypes for local functions. Change references to misc function vector to minimal symbol table. * findvar.c (read_memory usages): Cast args. * gdbtypes.h: New file, type info from symfile.h and symtab.h. * gmalloc.c: Use NOARGS where prototypes used hardwired void. * gmalloc.c (BLOCKSIZE): Constant to be shifted is unsigned. * gmalloc.h: Use NOARGS where prototypes used hardwired void. * gould-xdep.c: Minor whitespace change. * hp300ux-xdep.c (fetch_inferior_registers): Remove unused regno var. * hp300ux-xdep.c (store_inferior_registers): Returns void. * hp300ux-xdep.c (fetch_core_registers): Takes unused arg reg_addr. * i386-stub.c: Add prototypes, change "volatile" to NORETURN. * i386-tdep.c: Add prototypes for local functions. * i386-tdep.c (codestream_fill, codestream_seek, codestream_read, i386_get_frame_setup, i386_skip_prologue): Explicitly declare params that defaulted to int. * i386-tdep.c (i386_follow_jump, i386_frame_find_saved_regs, i386_push_dummy_frame): Returns void. * i386-xdep.c (i386_register_u_addr): Declare params that default to int and explicitly declare return type as int. * i387-tdep.c: Minor formatting changes. * i960-tdep.c (leafproc_return): Convert from misc function vector use to minimal symbol table use. * infcmd.c: Add prototypes for local functions. * infcmd.c (continue_command, until_next_command, until_command, path_info, path_command): Make static. * infcmd.c (step_1, until_next_command): Convert from misc func vector to minimal symbol table use. * inflow.c: Add prototypes for local functions. * infptrace.c (store_inferior_registers): Returns void, not int. * language.c (_initialize_language): Use proper member of function union. * m2-exp.y: Add prototypes for local functions, convert misc function vector uses to minimal symbol table uses. * m2-exp.y (make_qualname, yyerror): Make static. * m2-exp.y (_initialize_m2_exp): Call init_types with NULL objfile. * m68k-pinsn.c: Add prototypes for local functions. * m68k-pinsn.c (print_insn): Cast args to read_memory. * m68k-pinsn.c (fetch_arg): Make parameter 'code' and int. * m68k-stub.c: Add prototypes. * m88k-pinsn.c (sprint_address): Convert from misc function vector use to minimal symbol table use. * m88k-xdep.c (fetch_inferior_registers): Takes an unused parameter. * m88k-xdep.c (store_inferior_registers): Returns void. * mach386-xdep.c (fetch_inferior_registers): Takes an unused param. * mach386-xdep.c (store_inferior_registers): Returns void. * mach386-xdep.c (fetch_core_registers): Takes an unused parameter. * main.c: Add prototypes for local functions. * main.c (return_to_top_level): Is type NORETURN (volatile). Cast longjmp() result to (NORETURN void). * main.c (catch_errors): Prototype the 'func' parameter. * main.c (disconnect, stop_sig, do_nothin, float_handler): Takes an unused arg. * main.c (execute_command): Call the right member of the func union. * main.c (command_loop_marker, symbol_completion_function, command_loop): Make static. * main.c (command_line_input): Make linelength unsigned, cast arg to command_line_input(). * main.c (add_info, add_com): Prototype the 'fun' parameter. * main.c (initialize_main): Call right member of function union. * mcheck.c (NOARGS): Change hardwired void in prototypes to NOARGS. * mem-break.c: Include symtab.h * mips-xdep.c (fetch_inferior_registers): Takes unused param. * mips-xdep.c (store_inferior_registers): Returns void. * mipsread.c (mipscoff_symfile_read): Change from misc function vector use to minimal symbol table use. * mipsread.c (symbol_obstack usages): Convert all to use per-objfile version. * mipsread.c (make_type): Remove, convert usages to init_type. * mipsread.c (_initialize_mipsread): Call init_type with NULL objfile. * nindy-tdep.c (nindy_frame_chain_valid): Convert from misc function vector use to minimal symbol table use. * parse.c: Add prototypes for local functions. * parse.c (xrealloc usages): Cast args. * parse.c (prefixify_expression, length_of_subexp): Make static. * parser-defs.h (PARSER_DEFS_H): Define when first included. * parser-defs.h: Convert function decls to prototype form. * partial-stab.h: Convert from misc function vector use to new minimal symbol table use. * partial-stab.h (global_psymbols, static_psymbols usages): Reference the per-objfile copies. * printcmd.c: Add prototypes for local functions. Move some struct definitions around to accomodate prototypes. * printcmd.c (decode_format): Make static, change args oformat and osize to int from char. * printcmd.c (print_formatted): Change 'format' and 'size' to int. * printcmd.c (print_scalar_formatted): Change arg 'format' to int. * printcmd.c (print_address_symbolic): Convert from misc function vector use to minimal symbol table use. * printcmd.c (address_info): Convert from misc function vector use to minimal symbol table use. * printcmd.c (delete_display, enable_display, disable_display_command): Make static. * procfs.c (EXFUN/DEFUN): Remove all usages, convert to PARAMS. * procfs.c (fetch_core_registers): Add unused param reg_addr. * pyr-xdep.c (fetch_inferior_registers): Add unused param regno. * pyr-xdep.c (store_inferior_registers): Returns void. * remote-mm.c (mm_load): symbol_file_add return value unused. * remote-nindy.c: Minor format change. * remote-vx.c (vx_load_command): symbol_file_add result unused. * rs6000-xdep.c (fetch_inferior_registers): Add unused param regno. * rs6000-xdep.c (store_inferior_registers): Returns void. * rs6000-xdep.c (fetch_core_registers): add unused param reg_addr * rs6000-xdep.c (aixcoff_relocate_symtab): Convert from misc function vector use to minimal symbol table use. * solib.c: Add prototypes for local functions. * solib.c (solib_add_common_symbols, locate_base): Convert from misc function vector use to minimal symbol table use. * solib.c (EXFUN/DEFUN): Remove all usages, convert to PARAMS. * solib.c (find_solib, shared_library_command): Make static * solib.c (read_memory, write_memory usages): Cast args. * solib.c (special_symbol_handling): Add function * source.c: Add prototypes for local functions. * source.c (select_source_symtab): Convert to scan objfiles. * source.c (open_source_file): Make static. * source.c (xrealloc usages): Cast args. * source.c (source_line_charpos): ifdef out, unused. * source.c (get_filename_and_charpos): Make static. * stack.c: Add prototypes for local functions. * stack.c (print_frame_info, frame_info): Convert from misc function vector use to minimal symbol table use. * symfile.c: Add prototypes for local functions. * symfile.c (compare_symbols): Make args const PTR's. * symfile.c (compare_psymbols, sort_pst_symbols) add. * symfile.c (sort_all_symtab_syms): Scan objfile list. * symfile.c (obsavestring): Add objfile parameter. * symfile.c (init_misc_bunches, prim_record_misc_function, compare_misc_functions, discard_misc_bunches, condense_misc_bunches, sort_misc_function_vector, compact_misc_function_vector): Remove * symfile.c (symbol_file_add_digested): Add function. * symfile.c (symbol_file_add): Returns struct objfile *. * symfile.c (symbol_file_command): Modify for state file use. * symfile.c (symfile_open): Add parameter "dumpable". * symfile.c (allocate_objfile, free_objfile): Moved to objfiles.c * symfile.c (load_command, add_symbol_file_command): Make static. * symfile.c (fill_in_vptr_fieldno): Moved to gdbtypes.c * symfile.c (rindex usages): Converted to strrchr. * symfile.c (allocate_psymtab): New * symfile.c (free_named_symtabs): Ifdef out code that needs to be converted to minimal symbol table usage, but no obvious conversion. * symfile.c (free_all_symtabs): Remove. * symfile.c (_initialize_symfile): Use per-objfile info. * symfile.h: Rework the objfile structure to add per-objfile data objects (psymbol_obstack, symbol_obstack, type_obstack, global_psymbols, static_psymbols, msymbols, minimal_symbol_count, fundamental_types, malloc, realloc, free, xmalloc, xrealloc, etc). Add prototypes to function declarations. * symm-tdep.c (symmetry_extract_return_value): Convert from misc function vector usage to minimal symbol table usage. * symmisc.c (DEV_TTY): Define if not defined. * symmisc.c: Add local function prototypes. * symmisc.c (dump_objfile, dump_msymbols, dump-symtab, print_syms, printpsyms_command, print_objfiles, print_objfiles_command): Rework to use iterate_over_* * symtab.c: Add prototypes for local functions. * symtab.c (lookup_symtab_1): Convert to look through objfiles. * symtab.c (lookup_partial_symtab): Scan through objfiles. * symtab.c (lookup_primitive_typename, lookup_typename, lookup_ unsigned_typename, lookup_struct, lookup_union, lookup_enum, lookup_template_type, lookup_struct_elt_type, lookup_pointer_type, lookup_reference_type, lookup_member_type, allocate_stub_method, check_stub_method, create_array_type, smash_to_member_type,): Moved to gdbtypes.c * symtab.c (lookup_symbol): Some args are const. * symtab.h: All type related defs and structs moved to gdbtypes.h * symtab.h: Convert decls to prototypes. * target.c (noprocess): Make static. * target.h: Change decl's to prototypes. * tm-sunos.h: (CLEAR_SOLIB, SOLIB_ADD, SOLIB_CREATE_INFERIOR_HOOK, DISABLE_UNSETTABLE_BREAK) Moved to solib.h. * utils.c (_initialize_utils): Use correct member of function union. * valarith.c: include gdbtypes.h * valops.c: include gdbtypes.h, add prototypes for local functions. * valops.c (value_push, value_arg_push, find_function_addr): Make static. * valops.c (value_string): Convert from misc function vector use to minimal symbol table use. * valops.c (check_field_in): Make arg const. * valprint.c: Add prototypes for local functions. * valprint.c (print_string): Make static * valprint.c (value_print, val_print_fields, val_print): Make arg int. * values.c: Add prototypes for local functions. * values.c (value_headof): Convert from misc function vector to minimal symbol table. * xcoffexec.c: Add prototypes for local functions. * xcoffexec.c (exec_close, file_command, add_to_section_table): Make static. * xcoffexec.c (relocate_minimal_symbol): Add. * xcoffread.c (patch_block_stabs): Moved to buildsyms.c. * xcoffread.c: Add prototypes for local functions. * xcoffread.c (sort_syms): Convert to scan objfiles. * xcoffread.c (read_xcoff_symtab): Make static. * xcoffread.c (various): Replace references to builtin types with calls to lookup_fundamental_type. Replace references to symbol_obstack and psymbol_obstack with pointers to the per-objfile copies. * xcoffread.c (dump_linetable, dump_type, dump_symbol, dump_namespace, dump_block, dump_blockvector, dump_last_symtab, dump_symtabs): Make static. * xcoffread.c (init_stringtab): Add objfile parameter. * gdbtypes.c: New file * minsyms.c: New file * mmap-alloc.c: New file * mmap-sbrk.c: New file * objfiles.c: New file * state.c: New file * state.h: New file Fri Feb 21 17:29:54 1992 John Gilmore (gnu at cygnus.com) * Check in Fred Fish's changes in these modules. Fred will make ChangeLog entries for all of them. Update VERSION to 4.4.2. Thu Feb 20 18:10:17 1992 Fred Fish (fnf at cygnus.com) * tm-sparc.h, tm-sysv4.h, solib.h: Move shared lib definitions into solib.h. * sparc-pinsn.c, sparc-tdep.c, standalonec, sun3-xdep.c, sun386-xdep.c, symm-xdep.c, target.c, ultra3-xdep.c, utils.c, value.h: Prototypes for static functions; lint. * gdbtypes.h: Empty file to ease transition. Thu Feb 20 16:43:13 1992 Fred Fish (fnf at cygnus.com) * environ.h, expression.h, frame.h, gdbcmd.h, gdbcore.h, inferior.h, language.h, signame.h, target.h, terminal.h, tm-68k.h, tm-i386v.h, tm-sparc.h, tm-sun386.h, tm-symmetry.h, xm-i386v.h, xm-sparc.h: Prototypes for all external functions. Lint. * core.c, exec.c, infrun.c, inftarg.c, language.c, remote.c, signame.c, sparc-xdep.c: Prototypes for all static functions. Lint. * core.c, eval.c, exec.c, inftarg.c, remote-adapt.c, remote-eb.c, remote-hms.c, remote-mm.c, remote-nindy.c, remote-vx.c, remote.c, target.c, target.h, valarith.c, valops.c, value.h, xcoffexec.c: Remove to_call_function and target_call_function, since it always calls the same thing (call_function_by_hand). * core.c, exec.c, solib.c: Rename target_ops sections => to_sections, etc. * infcmd.c, inflow.c, infptrace.c, infrun.c, main.c, target.c, target.h: target_kill takes no args. * language.c (language_info): Scaffolding to allow briefer messages when the current language changes. FIXME. * xm-amix.h, xm-i386v4.h, xm-stratus.h: Define NORETURN to avoid complaints about volatile functions. * xm-sysv4.h (HAVE_MMAP): Define. Thu Feb 20 09:04:18 1992 Fred Fish (fnf at cygnus.com) * defs.h: Include ansidecl.h and PARAMS macro. Use PARAMS to make prototypes for all functions declared here. * cplus-dem.c: Avoid declaring xmalloc and xrealloc. * c-exp.y: Rename SIGNED, OR, and AND to avoid conflict. * environ.c: Include before defs.h. Minor cleanup. * ieee-float.h: Use PARAMS for prototypes; make some params const. * ieee-float.c, valarith.c: Include . Lint. b*=>mem*. * m2-exp.y: Remove unused CONST; Rename OR and AND. * utils.c: Avoid declaring malloc and realloc. Lint. (request_quit): Accept signal-number parameter. Mon Feb 17 07:13:27 1992 Fred Fish (fnf at cygnus.com) * dwarfread.c (process_dies): Add case to handle TAG_pointer_type DIE's. Add new function read_tag_pointer_type() to read them. * dwarfread.c (dwarf_read_array_type, read_subroutine_type): When creating a new user defined type, check to see if a partial type already exists, and if so, bash it to fit. Fri Feb 14 19:00:17 1992 John Gilmore (gnu at cygnus.com) * coffread.c (decode_base_type): Pass long, not union. Fix by Eric Valette, ev@chorus.fr. Thu Feb 13 17:14:28 1992 Fred Fish (fnf at cygnus.com) * elfread.c (elf_symtab_read): Fix code to correctly track changes in bfd for absolute symbols. Thu Feb 13 12:43:29 1992 Stu Grossman (grossman at cygnus.com) * xm-vaxbsd.h: Close off comment. Thu Feb 13 07:45:19 1992 Fred Fish (fnf at cygnus.com) * xm-sysv4.h: Define NEED_POSIX_SETPGID. Fri Feb 7 11:51:12 1992 Per Bothner (bothner at cygnus.com) * mips-tdep.c (mips_print_registers): Print correct register number for double pseudo-registers. Fri Feb 7 07:56:05 1992 John Gilmore (gnu at cygnus.com) * buildsym.c (read_struct_type): Avoid double-bump of parse ptr in the op$::OPERATOR. case. From Steven McCanne, . * exec.c (set_section_name): Pass arg to exec_files_info; only call it if interactive. From Francis Kauth . Thu Feb 6 17:41:32 1992 John Gilmore (gnu at cygnus.com) * main.c (print_gdb_version): Copyright msg: only this year. (cd_command): Avoid changing current_directory on error. Thu Feb 6 15:14:01 1992 Per Bothner (bothner at cygnus.com) * mipsread.c (parse_partial_symbols): Handle dependencies between partial symbol tables (when not doing stabs-in-ecoff). (This used to be handled by parse_fdr, but parse_fdr was incompatible with handling stabs-in-ecoff, so the code was re-written to not use parse_fdr. Unfortunately, the logic to handle dependencies was overlooked.) Thu Feb 6 11:51:39 1992 Steve Chamberlain (sac at rtl.cygnus.com) * coffread.c (read_enum_type): Use the size of a target int when describing enum. * defs.h: added new #define for TARGET_PTR_BIT, defaults to size of target int. * h8300-tdep.c, remote-hms.c, tm-h8300.h: too many changes to count * symtab.c (lookup_reference_type, lookup_ptr_type): use TARGET_PTR_BIT to determine size of a pointer * values.c (unpack_long): when unpacking a REF or a PTR don't assume the size of the type. Wed Feb 5 22:29:59 1992 John Gilmore (gnu at cygnus.com) * mipsread.c (parse_symbol): Avoid clobbering enum pointer when looking at its members. Improve guess between struct and union, only assuming union if multiple members have offsets of zero. Tue Feb 4 18:05:44 1992 Per Bothner (bothner at cygnus.com) * mipsread.c: Use (FP0_REGNUM-32) instead of magic number 6. (This is just for clarity - and one day permitting us to change FP0_REGNUM from 38 to 32, which would make more sense.) * tm-mips.h: Added STAB_REG_TO_REGNUM macro, so that register numbers in stabs-in-ecoff get handled correctly. Sat Feb 1 04:45:10 1992 Stu Grossman (grossman at cygnus.com) * xm-vax.h, xm-vaxult.h, xm-vaxbsd.h, config/mh-vaxult, config/mh-vaxbsd, configure.in: Split up config stuff for Vaxen into BSD and Ultrix. Sat Feb 1 04:39:41 1992 John Gilmore (gnu at cygnus.com) * dbxread.c (dbx_symfile_init): Call malloc, not xmalloc. Sat Feb 1 04:15:41 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in: Increment version to 4.4.1. * main.c (print_gdb_version): Update copyright notice. Sat Feb 1 01:43:11 1992 Per Bothner (bothner at cygnus.com) * mipsread.c: Prepend "struct " to the names of structure types, and similarly for enums and unions. (This used to be done, but got lost in the re-write to "guess" the difference between enum/struct/union.) Also, guess that a tag is an enum if the first member has type btNil. Fri Jan 31 21:45:51 1992 Stu Grossman (grossman at cygnus.com) * xm-vax.h: #ifndef ultrix around #include of endian.h and limits.h (sigh). Fri Jan 31 00:05:01 1992 John Gilmore (gnu at cygnus.com) * Projects: Patching executables is done. * Makefile.in (VERSION): Roll to gdb-4.4. * README, WHATS.NEW: Update for gdb-4.4. * symfile.c (reread_symbols): Whenever we reread one object file's symbols, we must restart the scan, because the object_files chain has been permuted. * exec.c (exec_files_info): Split out into print_section_info. Print BFD filename of each section if it's not the default one. * core.c (core_files_info): Call print_section_info. * xm-vax.h: Include a few system header files whose definitions must precede defs.h. * language.c, language.h: Make some things const. * expression.h, main.c: const spreads like ooze. * mem-break.c (break_insn, break_insn_size): Use unsigned chars, since BREAKPOINT values can be >0x80. Thu Jan 30 17:21:14 1992 Stu Grossman (grossman at cygnus.com) * infrun.c, xm-i386sco.h: SCO needs to use setpgid(). Thu Jan 30 01:04:23 1992 John Gilmore (gnu at cygnus.com) * sparc-pinsn.c: Remove kludge for preferring architectures. Remove #ifdef's for SORT_NEEDED. We need to sort the table, now and forever. Add `add' instruction to the set that get checked for a preceding `sethi' in order to print an absolute address. Corresponding changes in ../include/opcode/sparc.h needed to eliminate garbage instructions. Wed Jan 29 19:24:34 1992 Per Bothner (bothner at cygnus.com) * mipsread.c (parse_partial_symbols): Make sure partial symbols are created for external symbols (as used to be the case). This is a bit of a pain with the mips-coff. It uses a table which points to all of the external symbols belonging to a particular FDR or psymtab. Once we've generated this table, we might as well save it, and then use it in psymtab_to_symtab_1 to find the symbols to pass to parse_external(). * symfile.c, symfile.c: New function start_psymtab_common to share the common parts of allocating a new psymtab for dbxread, mipsread (and later dwarfread). Its code was pulled out from start_psymtab in dbxread.c. * dbxread.c (start_psymtab): Use start_psymtab_common(). * valprint.c (val_print): If there is an error when trying to print a string, check to see if there really is a problem by reading just one character. If that works, assume things are ok. Wed Jan 29 18:58:43 1992 Stu Grossman (grossman at cygnus.com) * sparc-pinsn.c (compare_opcodes): Make it prefer v6, v7, cypress, v8 mnemonics in that order. Tue Jan 28 17:32:13 1992 Per Bothner (bothner at cygnus.com) * sparc-pinsn.c: Put the qsort() back in. Mon Jan 27 18:51:03 1992 John Gilmore (gnu at cygnus.com) * findvar.c (read_register, write_register): Handle machines where REGISTER_TYPE is not the same size as "int". Handle debug symbols in dynamically loaded (relocated) code: * dbxread.c (read_ofile_symtab): Fix up N_CATCH better. Pass offset to process_one_symbol. (process_one_symbol): Take new offset parameter. Add it into appropriate symbol types to relocate symbols to loaded addresses. Handle all possible symbol types, and complain() about types that we don't expect to see. * mipsread.c (psymtab_to_symtab_1): Pass offset of zero to process_one_symbol (FIXME, should pass real offset). Misc bugfixes: * breakpoint.c (resolve_sal_pc): Split out code to resolve a sal's PC value. (set_breakpoint, break_command_1, until_break_command, catch_command_1, breakpoint_re_set_one): Use it. * symtab.h (resolve_sal_pc): Declare. * infcmd.c (jump_command): Use resolve_sal_pc. * source.c (list_command): Shorten "FILE, line N" to "FILE:N". * putenv.c (putenv): Avoid unportably casting pointers to unsigneds. * c-exp.y (yylex): `this' and `template' are only tokens in C++. * xm-convex.h, xm-hp300bsd.h, xm-isi.h, xm-merlin.h, xm-news.h, xm-np1.h, xm-pn.h, xm-pyr.h, xm-rtbsd.h, xm-symmetry.h, xm-umax.h: Remove MISSING_VPRINTF declaration, and superfluous "kgdb" defines. Mon Jan 27 15:46:21 1992 Stu Grossman (grossman at cygnus.com) * dbxread.c (process_one_symbol): Make a first cut at handling symbol tables generated by Sun's acc. (#ifdef'd out, FIXME.) * symtab.c (find_pc_line): Fix stepping into and out of #included files. Mon Jan 27 13:00:55 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (OPCODES): Remove OPCODES defs and refs. There is no longer any need to copy ../include/opcode/* into gdb. Mon Jan 27 12:30:38 1992 John Gilmore (gnu at cygnus.com) * ChangeLog, ChangeLog-9091: Split ChangeLog at 1992. Sun Jan 26 19:05:40 1992 Per Bothner (bothner at cygnus.com) * valprint.c (type_print_base, type_print_method_args): Print C++ constructor methods without bogus "return type." Sat Jan 25 15:57:59 1992 Fred Fish (fnf at cygnus.com) * infptrace.c (child_xfer_memory): Parameter "target" should be a pointer to a structure, not the entire structure. Fri Jan 24 01:30:27 1992 Fred Fish (fnf at cygnus.com) * depend: Convert the couple of references to ansidecl.h that used the local gdb version to use the ../include version. Thu Jan 23 22:24:43 1992 Fred Fish (fnf at cygnus.com) * procfs.c (child_xfer_memory): Takes pointer to a struct, not entire struct. (inferior_proc_init): Fix non-ANSI version of args. (attach): Call print_sys_errmsg with correct number of args. (mappingflags): Make static, does not need to be global. * i386-tdep.c (i386_frame_num_args): Takes a pointer to a struct not the entire struct itself. * valops.c (value_assign): Cast some args to modify_field() and {read,write}_register_bytes() correctly. * ansidecl.h: Removed, is duplicate of ../include/ansidecl.h * Makefile.in (MALLOCSRC): Removed reference to removed local copy of ansidecl.h. * dwarfread.c (list_in_scope): Needs an initial value, use file scope. Mon Jan 20 19:06:28 1992 Stu Grossman (grossman at cygnus.com) * main.c (main): Make option_index local to keep new getopt happy. main.c, solib.c, Makefile.in: Update copyright notices. Mon Jan 20 08:54:00 1992 Michael Tiemann (tiemann at cygnus.com) * cplus-dem.c (cplus_demangle): Correctly demangle destructors. Sat Jan 18 17:17:45 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in (HFILES): Add partial-stab.h. Sat Jan 18 16:45:01 1992 Fred Fish (fnf at cygnus.com) * config/mh-stratus, config/mt-stratus, tm-stratus.h, xm-stratus.h: New files for stratus. Not complete enough to actually build on the Stratus machine; that awaits copyright assignment for i860 changes. * Makefile.in (USER_CFLAGS): Add macro specifically reserved for getting custom flags into CFLAGS when doing makes. * configure.in: Add config information for stratus. Thu Jan 16 00:51:46 1992 Fred Fish (fnf at cygnus.com) * dbxread.c (process_one_symbol): Pass address of structure to complain(), rather than the whole structure. Wed Jan 15 09:56:16 1992 Fred Fish (fnf at cygnus.com) * solib.c (solib_add_common_symbols): Only compile in when not using SVR4 style shared libraries. Tue Jan 14 22:34:00 1992 Fred Fish (fnf at cygnus.com) * dwarfread.c (locval): Add offreg flag to indicate location values that are computed off a base register. * dwarfread.c (new_symbol): Rework TAG_global_variable and TAG_local_variable cases to account for static variables within function scopes. Tue Jan 14 12:28:52 1992 Stu Grossman (grossman at cygnus.com) * inflow.c: remove #include . Not necessary, and doesn't exist on some systems. * infrun.c (wait_for_inferior!!!!): Prevent gdb from hanging when nexting over recursive function calls. * target.c (target_read_string): Create this routine to read null terminated strings from the target. It deals with running off the end of memory elegantly as well. solib.c (find_solib): Use target_read_string() to avoid problems with running off the end of memory. * inflow.c (child_terminal_info): #ifdef TIOCPGRP around lines that reference pgrp_inferior. Mon Jan 13 14:57:11 1992 Per Bothner (bothner at cygnus.com) * tm-mips.h: Removed BLOCK_ADDRESS_ABSOLUTE, now that mips-tfile has been hacked to act more "traditionally." * dbxread.c: Fixed typo in comment. Sun Jan 12 13:08:36 1992 Per Bothner (bothner at cygnus.com) * mips-tdep.c (mips_skip_prologue): Add some number of 'sw' instructions before 'addiu' adjusts the stack. Fri Jan 10 13:47:06 1992 Fred Fish (fnf at cygnus.com) * dwarfread.c (start_symtab, end_symtab, scopecount, openscope, freescope, buildblock closescope, record_line, add_symbol_to_list, gatherblocks, make_blockvector): Extensive changes to switch to generic symbol table building code in buildsym.c. Remove scope tree structures and functions, symbol table building functions, and lots of other small changes. * dwarfread.c: Add new macros GCC_PRODUCER and STREQN. Remove GCC_COMPILED_FLAG_SYMBOL and GCC2_COMPILED_FLAG_SYMBOL. Tue Jan 7 13:09:57 1992 Stu Grossman (grossman at cygnus.com) * buildsym.c (cleanup_undefined_types): Add support for enums. This fixes the 'GDB internal error. cleanup_undefined_types with bad type' problem. Sun Jan 5 09:47:50 1992 Stu Grossman (grossman at cygnus.com) * dbxread.c: detect gcc2 compilations. Thu Jan 2 15:07:41 1992 John Gilmore (gnu at cygnus.com) * sparc-pinsn.c: Rename bitfields that overlap with macro names in ../include/opcode/sparc.h. Wed Jan 1 04:29:00 1992 Fred Fish (fnf at cygnus.com) * Makefile.in: Change tm-svr4.h to tm-sysv4.h. Change xm-svr4.h to xm-sysv4.h. Split OPCODE_DIR into OPCODE_DIR1 and OPCODE_DIR2 to reflect actual locations of opcode files, so TAGS target will be buildable. * i386-tdep.c: Change an erroneous 'm68k' reference to 'i386'. * i386-tdep.c (supply_fpregset, fill_fpregset): Remove m68k code. * m68k-tdep.c (supply_fpregset, fill_fpregset): Fix array dereferencing to access the correct elements. * valops.c (value_addr): Declare return type of external func value_copy(). * xcoffread.c: Undefine next_symbol_text before redefining it. For older changes see ChangeLog-9091 Local Variables: mode: indented-text left-margin: 8 fill-column: 74 version-control: never End: gdb-4.13/gdb/ChangeLog-93 666 34562 1752 1114267 5600140602 13361 0ustar fnfcygnusFri Dec 31 14:33:49 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * nindy-share/nindy.c: Fix order of arguments to store_unsigned_integer (second and third arguments were reversed). (say): Use varargs. Fri Dec 31 12:13:47 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * remote-mips.c: Add timeout parameter to mips_request and mips_receive_packet. (callers): pass in mips_receive_wait except mips_initialize (where we use it to clean up the kludge where we had been changing mips_receive_wait temporarily) and mips_wait (where we pass in -1 for no timeout). Fri Dec 31 14:33:49 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stack.c (print_block_frame_locals): Also print LOC_BASEREG variables. Fri Dec 31 06:55:38 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symtab.c (find_methods): Call fprintf_symbol_filtered with DMGL_ANSI. Thu Dec 30 10:16:54 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * values.c (unpack_long): Fix garbled error message. * remote-mips.c (mips_error): New function. * remote-mips.c: Use it instead of error() most places. * remote-mips.c (mips_receive_packet): New arg throw_error. (mips_initialize): Use it not catch_errors. * defs.h: Declare error_pre_print and warning_pre_print here... * main.c: ...not here. * breakpoint.c (breakpoint_chain): Make static. * breakpoint.c, breakpoint.h (frame_in_dummy): New function. * stack.c (print_frame_info): Use it. Thu Dec 30 07:41:36 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * exec.c (add_to_section_table): Check for SEC_ALLOC instead of SEC_LOAD to handle .bss segments properly. Thu Dec 30 10:16:54 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * infrun.c (wait_for_inferior): Enable code which assumes that if we jump into the prologue from another function, then it was a subroutine call. #if 0 AT_FUNCTION_START; the above code should take care of this case. Wed Dec 29 12:32:08 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * valprint.c (val_print_string): Change chunksize from 200 to 8. * symfile.c (generic_load): If no arguments, get file name from get_exec_file. * c-exp.y: Revert Kung's change. "..." is not a type, and the change caused "p (...)0" to dump core. * gdbtypes.c (check_stub_method): Don't pass "..." to parse_and_eval_type. This should fix the bug which Kung was trying to fix. * stabsread.c (define_symbol): If we choose not to combine two symbols, don't just ignore the second (LOC_REGISTER) one. * printcmd.c (print_frame_args): If we have a LOC_ARG and a LOC_REGISTER, use the LOC_ARG not the LOC_REGISTER. Tue Dec 28 15:08:00 1993 Fred Fish (fnf@deneb.cygnus.com) * solib.c (DEBUG_BASE): Remove macro and all references. * solib.c (debug_base_symbols): Add array of symbols to lookup. * solib.c (IGNORE_FIRST_LINK_MAP_ENTRY): Add macro. * solib.c (look_for_base, locate_base): Use debug_base_symbols. * solib.c (find_solib): Use IGNORE_FIRST_LINK_MAP_ENTRY. Tue Dec 28 12:06:57 1993 Kung Hsu (kung@cirdan.cygnus.com) * c-exp.y : fix grammar to parse ellipsis (...) Mon Dec 27 18:42:14 1993 Kung Hsu (kung@cirdan.cygnus.com) * stabsread.c (read_type): fix problem when reading static member of a class. caused by change to allow :: inside template instantiated name. Mon Dec 27 11:07:05 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbtypes.h: Expand on comments for TYPE_CODE_BITSTRING and TYPE_CODE_STRING a bit. * m68k-tdep.c (m68k_skip_prologue, m68k_find_saved_regs): Allow pea %fp; move.l %sp, %fp instead of link instruction to set up the new frame. * main.c (init_main): Change "set remotedebug" back to var_zinteger from var_boolean. * c-exp.y (yylex): Don't try to deal with nested types. * cp-valprint.c (cplus_print_value): Call check_stub_type on TYPE_BASECLASS (type, i) before we look at its name. * dbxread.c: Move default definition of GCC_COMPILED_FLAG_SYMBOL from here . . . * symtab.h: . . . to here. * dbxread.c (record_minimal_symbol): Move check for gcc{,2}_compiled. and __gnu_compiled* from here . . . * minsyms.c (prim_record_minimal_symbol_and_info): . . . to here. * minsyms.c (prim_record_minimal_symbol): Call prim_record_minimal_symbol_and_info rather than duplicating code. * minsyms.c, symtab.h (prim_record_minimal_symbol{,_and_info}), coffread.c (record_minimal_symbol), xcoffread.c (RECORD_MINIMAL_SYMBOL), callers: Add objfile parameter. Sun Dec 26 20:44:02 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * dbxread.c (process_one_symbol): Handle stabs-in-som just like stabs-in-elf. (pastab_build_psymtabs): Likewise. * hppa-tdep.c: Change all comments to reference %r3 or frame pointer rather than %r4. (frame_chain, skip_prologue, dig_rp_from_stack): Handle %r3 as the frame pointer. * config/pa/tm-hppa.h (FP_REGNUM): Define as %r3. (FIND_FRAME_SAVED_REGS): Handle %r3 as frame pointer. (CALL_DUMMY): Likewise. Sun Dec 26 16:59:39 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * exec.c (exec_file_command): If error occurs after we have opened exec_bfd but before we call push_target, make sure to close exec_bfd. * infrun.c (wait_for_inferior): Remove confusing and inaccurate stuff about subroutine calls, return, etc., from comment which says "We've wandered out of the step range.". Sun Dec 26 09:18:10 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * infrun.c (wait_for_inferior): When checking whether the line has changed, check the symtab as well. Sun Dec 26 09:18:10 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbtypes.c (force_to_range_type): Use switch statement. complain() not warning() if the TYPE_CODE isn't one we know how to deal with gracefully. Use builtin_type_int not lookup_fundamental_type (the objfile we passed to lookup_fundamental_type was sometimes NULL). * valops.c (call_function_by_hand, push_word), defs.h (push_word), convex-xdep.c, m88k-nat.c, i386m3-nat.c, mips-tdep.c, mipsm3-nat.c, ns32km3-nat.c, remote-bug.c, m88k-tdep.c, remote-hms.c, remote-mips.c, config/gould/tm-np1.h, hppa-tdep.c (hppa_fix_call_dummy), remote-vx.c: Use REGISTER_SIZE, unsigned LONGEST, and {store,extract}_unsigned_integer, instead of sizeof (REGISTER_TYPE) and REGISTER_TYPE. * All tm.h files: Change REGISTER_TYPE to REGISTER_SIZE. * hppa-tdep.c (pa_print_fp_reg): Remove unused variable val. * Makefile.in (ALLDEPFILES): Remove i386ly-nat.c and m68kly-nat.c. Add lynx-nat.c. Sat Dec 25 20:05:41 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa-tdep.c (init_extra_frame_info): Correctly adjust the base of the current frame when "fromleaf" is true. Do not adjust the frame base of the innermost frame if it is a leaf function. Sat Dec 25 13:39:21 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (define_symbol): Only combine a p/r pair into a LOC_REGPARM if REG_STRUCT_HAS_ADDR. Sat Dec 25 09:50:29 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * valops.c (value_struct_elt): Check for (value)-1 return from search_struct_method. Sat Dec 25 09:50:29 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * defs.h: Move definitions of TARGET_*_BIT after include of tm.h. The old way (using #undef in tm.h) was ugly and asking for trouble, because it makes it possible for some file to use the wrong definition. Move definition of HOST_CHAR_BIT after definition of TARGET_CHAR_BIT. * config/alpha/tm-alpha.h, config/h8300/tm-h8300.h, config/h8500/tm-h8500.h, config/z8k/tm-z8k.h: Don't undef TARGET_*_BIT before defining them. * mdebugread.c: Change the builtin_type_* in this file to mdebug_type_* and make them static. Use TYPE_CODE_ERROR for complex and float decimal. * printcmd.c (disassemble_command): Call wrap_here between printing address and printing instruction. Fri Dec 24 14:23:57 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (read_type): Don't fall through 'S' case (the case it was falling though happened to do the right thing ("break;") but that is hardly a good thing to assume). Tue Dec 21 13:32:02 1993 Per Bothner (bothner@kalessin.cygnus.com) * ch-exp.y (match_dollar_tokens): Fix off-by-one bug. * ch-lang.c (chill_is_varying_struct), ch-lang.h: New function. * ch-lang.c (chill_printstr): Use double quotes, not single quotes. * ch-typeprint.c (chill_type_print_base): Handle TYPE_CODE_BITSTRING. Improve printing of TYPE_CODE_STRING, TYPE_CODE_SET, and TYPE_CODE_STRUCT (including checking chill_is_varying_struct). Print TYPE_DUMMY_RANGE by printing its TYPE_TARGET_TYPE. Handle TYPE_CODE_ENUM. * ch-valprint.c (chill_val_print): Handle TYPE_CODE_BITSTRING. For TYPE_CODE_STRING, never print address. Handle VARYING strings. * gdbtypes.c (force_to_range_type): New. * gdbtypes.c (create_set_type): Make work, following Chill layout. * gdbtypes.h (TYPE_LOW_BOUND, TYPE_HIGH_BOUND, TYPE_DUMMY_RANGE): New. * stabsread.c (read_type): Distinguish string and bitstring from char-array and set. * valarith.c (value_subscript), valops.c (value_coerce_array): Handle STRINGs as well as ARRAYs. * valarith.c (value_bit_index): Fix think. Use new macros. Fri Dec 17 10:45:32 1993 Kung Hsu (kung@cirdan.cygnus.com) * symtab (decode_line_1): fix a bug when position char is not set correctly. * c-valprint (c_val_print): handle vtbl printing when vtbl is not set up yet. Thu Dec 16 16:46:01 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-tdep.c (read_next_frame_reg): If SIGFRAME_REG_SIZE is not defined, define it as 4. Thu Dec 16 13:08:01 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * config/m68k/nm-hp300bsd.h: Correctly identify 4.3BSD vs 4.4BSD. * config/m68k/tm-hp300bsd.h (REMOTE_BPT_VECTOR): Define. * config/m68k/tm-m68k.h (REMOTE_BPT_VECTOR): Allow targets to override. (REMOTE_BREAKPOINT): Likewise. Mon Dec 13 20:17:39 1993 Per Bothner (bothner@kalessin.cygnus.com) Implement support for Chill POWERSETs. * ch-exp.y (operand_2): Implement 'Element IN PowerSet'. * ch-typeprint.c (chill_type_print_base): Handle POWERSETs. * ch-valprint.c (chill_val_print): Handle TYPE_CODE_SET. * eval.c (evaluate_subexp): Implement BINOP_IN. * expression.h (enum exp_opcode): Added BINOP_IN. * gdbtypes.c (create_set_type), gdbtypes.h: New function. * stabsread.c (read_type): If 'S', create a set type. * valarith.c (value_bit_index, value_in), value.h: New functions, for indexing in SETs. Mon Dec 13 06:42:37 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * paread.c (pa_symfile_init): Check for the existance of stabs after DBX_TEXT_SECT has been initialized. Tue Nov 23 17:29:28 1993 Steve Chamberlain (sac@jonny.cygnus.com) * config/h8300/tm-h8300.h (BREAKPOINT): Insn changed to sleep. (DECP_PC_AFTER_BREAK): Now is 0. * config/h8500/tm-h8500.h (REGISTER_BYTES, REGISTER_BYTE, REGISTER_NAMES): update to new view. (INIT_EXTRA_FRAME_INFO): No extra frame info now. * config/sh/sh.h (NOP): Define NOP insn. * config/z8k/tm-z8k.h (BIG): is now sim_z8001_mode. * config/z8k/z8ksim.mt (TDEPFILES): Add remote-sim.o to list. * ser-go32.c: Lint. (strncasecmp): Removed, now in libiberty. (go32_readchar): Special handling for faster polling. (async structure): Volatile. * h8300-tdep.c (print_register_hook): Allocate and use the right number bytes for the raw register. * h8500-tdep.c (regoff, frame_find_saved_reg, examine_prologue): deleted. (h8500_register_size, h8500_register_virtual_type, ): Use new way of counting registers. * remote-e7000.c (echo_index): deleted. (expect): Better handling of user interrupts. (expect_prompt): Remove never used log file support. (want, want_nopc): Add support for H8/300H. (fetch_regs_from_dump): Treat \r and \n as whitespace. (e7000_drain): Send an "end" command before waiting for output to stop. (e7000_wait): Cope with H8/300H, better handling of user interrupts. (why_stop, expect_n, sub2_from_pc): New function. * remote-utils.c (gr_load_image): call fflush and QUIT more regularly. * utils.c (notice_quit): New function for polling for user interrupts. Fri Dec 10 15:53:56 1993 Per Bothner (bothner@kalessin.cygnus.com) * stabsread.c (read_array_type): Allow negative array bounds, without interpreting that to mean "adjustable." * ch-valprint.c (chill_val_print): Handle RANGE types. * ch-typeprint.c (chill_type_print_base): Handle BOOL. Handle variant records. Handle RANGE types. Tue Dec 7 15:41:32 1993 Ian Lance Taylor (ian@cygnus.com) * config/mips/idt.mt: Use tm-idt.h instead of tm-bigmips.h. * config/mips/idtl.mt: Use tm-idtl.h instead of tm-mips.h. * config/mips/tm-idt.h, config/mips/tm-idtl.h: New files; use different BREAKPOINT value for IDT. * mipsread.c: Include bfd.h and coff/sym.h. Mon Dec 6 16:34:10 1993 K. Richard Pixley (rich@cygnus.com) * ser-unix.c (set_tty_state): set the rest of the terminal state pieces. Mon Dec 6 12:01:37 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * configure.in: Recognize mips* for all mips targets. (mips*el-*-elf*, mips*-*-elf*): New targets; use idt and idtl. Added Irix 5 support. * configure.in (mips-sgi-irix5*): New host and target. Use irix5 for both. * config/mips/irix5.mh, config/mips/irix5.mt, config/mips/xm-irix5.h, config/mips/nm-irix5.h, config/mips/tm-irix5.h, irix5-nat.c: New files for Irix 5 support. * mdebugread.c: New file, split out of mipsread.c. Added elfmdebug_build_psymtabs routine. Added some checks on external symbols. Changed code to keep ecoff_debug_info and ecoff_debug_swap structs in the psymtab and in global pointers rather than retrieving them from the bfd. Also changed to keep the pending list with the psymtab rather than the objfile (each psymtab for a single objfile points to the same pending list). * mipsread.c: Bulk of file moved into mdebugread.c, leaving just the sym_fns. * Makefile.in (SFILES): Added mdebugread.c. (OBS): Added mdebugread.o. (mdebugread.o): New target. * symfile.h: Declare mdebug_build_psymtabs and elfmdebug_build_psymtabs. * elfread.c (struct elfinfo): Added mdebugsect field. (elf_locate_sections): Remember location of .mdebug section. (elf_symfile_read): Call elfmdebug_build_psymtabs on .mdebug section. * infrun.c (AT_FUNCTION_START): Set to 0 if not already defined. (wait_for_inferior): Use AT_FUNCTION_START if it is defined to see if PC is at the start of a function. * mips-tdep.c (read_next_frame_reg): Use SIGFRAME_REG_SIZE, and give it a default definition. (mips_skip_prologue): Skip instructions which initialize $gp register. (in_sigtramp): New procedure, moved in from mipsread.c. * config/mips/tm-mips.h: Declare in_sigtramp. * serial.h (serial_fdopen): Make parameter const to match function definition. Fri Dec 3 14:20:43 1993 Stu Grossman (grossman at cygnus.com) * config/mips/irix4.mh: Enable ser-tcp.o. Tue Nov 30 15:24:24 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * Makefile.in (check): Do not use subdir_do, so that TARGET_FLAGS_TO_PASS is used correctly. Mon Nov 29 16:10:38 1993 Stu Grossman (grossman at cygnus.com) * i386-nlmstub.c: Undo I/O redirection changes by Tom Lord. These definitely won't work under Netware. Mon Nov 29 15:34:58 1993 Kung Hsu (kung@cirdan.cygnus.com) * stabsread.c(read_struct_field): Fix the check when getting to member functions. Mon Nov 29 16:48:16 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) gcc -Wall -O lint: * mips-tdep.c (heuristic_proc_desc): Initialize reg30 to avoid warning. Unnest comment. (init_extra_frame_info): Remove unused variable mask. (MASK): Fully parenthesize. (mips_push_dummy_frame): Remove unused variable val. (mips_skip_prologue): Remove unused variables f and b. Mon Nov 29 12:23:25 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (parse_symbol, parse_partial_symbols): Do not create (partial) symbols for opaque struct definitions. Mon Nov 29 11:36:57 1993 Stu Grossman (grossman at cygnus.com) * i386ly-tdep.c (i386lynx_saved_pc_after_call): Change call_inst to unsigned char to avoid domain warning for some values. Mon Nov 22 23:42:59 1993 Steve Chamberlain (sac@jonny.cygnus.com) * remote-e7000.c (e7000_wait): Cope with H8/300 register dump. * config/h8300/h8300hms.mt: Add remote-e7000. Mon Nov 22 11:03:45 1993 Fred Fish (fnf@cygnus.com) Merged changes from kev@spuds.geg.mot.com (Kevin A. Buettner): * gdb/config/m88k/delta88.mh (NATDEPFILES): Added corelow.o and coredep.o to this list. * gdb/m88k-nat.c (m88k_register_u_addr): Avoid error when passed the number for an M88110 extended register by just returning the address of r0. Sat Nov 20 09:20:51 1993 Fred Fish (fnf@rtl.cygnus.com) * go32-xdep.c (re_comp, re_exec): Remove stubs now that gdb always uses it's own version of regex. Fri Nov 19 18:23:19 1993 Kung Hsu (kung@cirdan.cygnus.com) * valops.c(value_struct_elt_for_reference): enhance search operator in c++. * symtab.c(decode_line_1): same as above. Fri Nov 19 15:08:47 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * symtab.c (decode_line_1): Add comment about use of return_to_top_level directly instead of error. Add comment saying that the '' should not be needed--that the completer should be fixed. Fri Nov 19 11:00:33 1993 Kung Hsu (kung@cirdan.cygnus.com) * symtab.c(decode_line_1): fix the inconsistency of setting breakpoint with '' or without them. The '' is needed when you want name completion. Thu Nov 18 08:25:50 1993 Fred Fish (fnf@cygnus.com) * valprint.c (val_print_string): When looking for a null terminator compare current bufsize to fetchlimit to determine when to stop, instead of computing buffer+fetchlimit which may overflow for very large limits (like "unlimited"). Wed Nov 17 18:23:09 1993 Kung Hsu (kung@cirdan.cygnus.com) * eval.c(evaluate_subexp): to use unified search so type conversion operator works in calling method. * valarith.c(value_x_binop, value_x_unop): same as above. * valops.c(search_struct_method): same as above. Wed Nov 17 18:47:34 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mipsread.c: Change use of ECOFF information to correspond to changes in bfd/libecoff.h. (mipscoff_symfile_offsets): Made static. Wed Nov 17 09:43:31 1993 Kung Hsu (kung@cirdan.cygnus.com) * valops.c (typecmp): improve prototype matching when calling a method. Make 'p (*(ostream *) &cout) << "lll" ' to work. * eval.c(evalute_subexp): fix operator search problem when call like p x.'operator+'(i). Tue Nov 16 17:15:03 1993 Stu Grossman (grossman at cygnus.com) * i386ly-nat.c, i386lynx-nat.c, m68kly-nat.c: Remove. Move common code into lynx-nat.c. * lynx-nat.c: New module. Contains portable code for Lynx native stuff (mostly ptrace related). * config/i386/i386lynx.mh (NATDEPFILES): i386ly-nat.o -> lynx-nat.o * config/m68k/m68klynx.mh (NATDEPFILES): i386ly-nat.o -> lynx-nat.o * config/nm-lynx.h, config/tm-lynx.h: New files to contain non-architecture specific native and target defs. * config/i386/nm-i386lynx.h, config/i386/tm-i386lynx.h, config/m68k/nm-m68klynx.h, config/m68k/tm-m68klynx.h: Move all (arch) portable stuff into ../{tm nm}-lynx.h. Tue Nov 16 13:33:47 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * symtab.c (gdb_mangle_name): Only assume that the physname is the entire mangled name if it looks like the mangled name of a constructor. Needed for testsuite to work with GCC 2.4.5. * a68v-nat.c: Replace with new version from Troy Rollo. The version I am replacing appears to be an old copy of sun3-nat.c. * dstread.c (dst_symfile_read): Replace sort_all_symtab_syms call with loop. * Makefile.in (TAGS): Depend on TAGFILES_{NO,WITH}_SRCDIR. * Makefile.in: (HFILES,TAGFILES): Split into _WITH_SRCDIR and _NO_SRCDIR versions. (TAGS): Only add srcdir to TAGFILES_NO_SRCDIR. (This is part of a long saga involving me putting srcdir on everything (perhaps for now-obsolete reasons, I forget), Rich removing the srcdir from everything, Stu putting it back some places for Sun make, and me just now getting around to fixing `make TAGS' again). Mon Nov 15 12:29:10 1993 Kung Hsu (kung@cirdan.cygnus.com) * stack.c(print_frame_info): print demangled function name ansi style. Mon Nov 15 14:32:29 1993 Steve Chamberlain (sac@jonny.cygnus.com) * remote-e7000.c: New file to cope with the Hitachi E7000 ICE. * remote-utils.c, remote-utils.h (gr_load_image): New function to download to target. * h8300-tdep.c, h8500-tdep.c, remote-z8k.c, sh-tdep.c z8k-tdep.c (sim_load): delete. * remote-sim.c (gdbsim_load): Use gr_load_image, rather than sim_load. * config/sh/sh.mt: Add remote-e7000 Mon Nov 15 11:38:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/i386/linux.mh: Remove XM_CLIBS, TERMLIB, SYSV_DEFINE, and REGEX. * config/i386/xm-linux.h: Don't include xm-i386v.h. Define HOST_BYTE_ORDER ourselves. Define HAVE_TERMIOS not HAVE_TERMIO. Define NEED_POSIX_SETPGID. Include unistd.h. Mon Nov 15 12:29:10 1993 Kung Hsu (kung@cirdan.cygnus.com) * symtab.c(gdb_mangle_name): fix the problem with constructor name mangling. Mon Nov 15 11:38:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbtypes.h: Add TYPE_FLAG_TARGET_STUB. * gdbtypes.c (check_stub_type): On TYPE_FLAG_TARGET_STUB, do what cleanup_undefined_types does for arrays, except we clear TYPE_FLAG_TARGET_STUB if we fix up the type. * stabsread.c (cleanup_undefined_types): Add comments about how doing arrays here is no longer the clean way to do it. (read_array_type): Set TYPE_FLAG_TARGET_STUB as well as calling add_undefined_type. * c-typeprint.c, ch-typeprint.c: Move call to check_stub_type outside switch so it happens for all type codes. * cp-valprint.c (cp_print_value_fields): Recurse to val_print, instead of c_val_print, so that check_stub_type gets called. * gdbtypes.h, gdbtypes.c, m2-lang.c, ch-lang.c, c-lang.c: Remove TYPE_FLAG_SIGNED. It was inconsistently set, never checked (except in recursive_dump_type), and is pointless. Mon Nov 15 00:40:38 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * paread.c (pa_symfile_init): Look for the $TEXT$ section rather than the .text section. Sun Nov 14 00:28:13 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c: Remove #if 0'd dbx_class_complaint. We now handle this (more or less) gracefully, and complain() was never a good way of dealing with this. * stabsread.c (read_type): Skip the colon when reading a cross-reference. Only complain, not error_type, on unrecognized cross-reference types. error_type, not dump core, if the colon is missing. Fri Nov 12 16:23:08 1993 Stu Grossman (grossman at cygnus.com) * config/m68k/tm-sun3.h: Disable use of alternate breakpoint insn when doing remote stuff. Fri Nov 12 16:22:39 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * c-exp.y (yylex): Call lookup_symtab not lookup_partial_symtab. * partial-stab.h: Ignore ':' symbol descriptors. Same case as Kung's stabsread.c change. Fri Nov 12 11:18:02 1993 Kung Hsu (kung@cirdan.cygnus.com) * stabsread.c (patch_block_stabs, define_symbol, read_type): in g++ template instantiation, nested class can be part of the params, and '::' can gets into symbol or type names. This is to fix the problem. * gdbtypes.c (lookup_struct_elt_type): Handle type ref or pointer to struct/union case. Fri Nov 12 10:39:31 1993 Stu Grossman (grossman at cygnus.com) * coff-solib.c (coff_solib_add): Cast result of alloca(). * m68k-tdep.c (m68k_saved_pc_after_call): Get rid of GDB_TARGET_IS_SUN3. Use more general SYSCALL_TRAP macro. * config/m68k/m68klynx.mh (NATDEPFILES): Remove exec.o (it's already in TDEPFILES). * config/m68k/tm-m68k.h (SAVED_PC_AFTER_CALL): Use m68k_saved_pc_after_call. * Remove all Sun3 specific stuff. * (FIX_CALL_DUMMY): Cast arg to bfd_putb32 to unsigned char *. * config/m68k/tm-m68klynx.h: Define SYSCALL_TRAP as trap #10. Disable REMOTE_BREAKPOINT mechanism. * config/m68k/tm-sun3.h: Get rid of GDB_TARGET_IS_SUN3. * Protect from multiple includion. * Move Sun3 specific stuff from tm-m68k.h to here. * Define SYSCALL_TRAP as trap #0. * Remove def of SAVED_PC_AFTER_CALL (now in tm-m68k.h). * gdbserver/low-lynx.c: Redo all register store/fetch stuff to make it portable for 386 and 68k. Fri Nov 12 09:53:26 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mips-tdep.c (init_extra_frame_info): Check to see whether the registers mentioned in the proc_desc have been saved. This generalizes mips_in_lenient_prologue in the sense that we keep searching until we've found saves for all the registers, not just look for a "lenient prologue" pattern. * mips-tdep.c: #if 0 lenient prologue code. * mips-tdep.c (heuristic_proc_desc): Don't assume a host short is 16 bits. Thu Nov 11 19:58:05 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/i386/i386sol2.mh: Comment out corelow.o. * printcmd.c (address_info): Use filtered, not unfiltered functions. We should be able to deal with a QUIT here. Thu Nov 11 15:22:20 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * printcmd.c (address_info): Use fprintf_symbol_filtered to print the symbol name. * stabsread.c (define_symbol): Handle cfront lossage for struct/union/enums and typedefs. * partial-stab.h (case N_BINCL): Update psymtab_language as appropriate when changing subfiles. (case N_SOL): Update psymtab_language as appropriate when changing subfiles. Add typedef for structs, unions, and enums when processing C++ files. Thu Nov 11 13:18:47 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * README: Remove information on languages and just cite the (newly updated) information in doc/gdb.texinfo instead. * delta68-nat.c: Fix typos (add missing ");" and stuct -> struct). Wed Nov 10 09:31:10 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * dbxread.c (process_one_symbol, N_RBRAC): Don't clear within_function just because local_symbols is NULL. It appears that this bug has existed since the 10 Apr 89 change which started clearing within_function here. * config/m68k/tm-m68k.h: Clean up CALL_DUMMY comment. * config/m68k/{tm-hp300bsd.h,tm-hp300hpux.h,tm-m68k-em.h, tm-monitor.h,tm-sun3.h,tm-vx68.h}, config/sparc/tm-sparc.h: Define BELIEVE_PCC_PROMOTION. * dbxread.c: Remove BELIEVE_PCC_PROMOTION define. The code which used this was moved to stabsread.c a long time ago. * dstread.c (dst_sym_fns): Update for flavours. * symfile.c (find_sym_fns): Add kludge for apollo like for rs/6000. * dstread.c (dst_symfile_offsets): Set objfile->num_sections. gcc -Wall lint: * thread.c: Include "gdbcmd.h" and . * Makefile.in: Update dependency. * thread.c (thread_command): Remove unused variable p. * values.c (unpack_double): Use len instead of TYPE_LENGTH (type). * valprint.c (print_floating): Correctly check sign bit now that we are using unsigned arithmetic. * symtab.c (find_pc_line_range): Remove unused variables exact_match, ind, and l. Tue Nov 9 17:42:25 1993 Kung Hsu (kung@cirdan.cygnus.com) * valarith.c (value_x_binop): fix search operator in class bug * valarith.c (value_x_unop): fix search operator in class bug Tue Nov 9 19:20:17 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (init.c): Add udi2go32.o to list of files that we should not try to search for _initialize_* functions. * remote-udi.c (udi_wait): Change UDIGdb_StdoutReady back to UDIStdoutReady. It accidentally got changed on 24 Oct 93 when stdout was changed to gdb_stdout. Likewise for UDIGetStdout, UDIStderrReady, and UDIGetStderr. Tue Nov 9 12:48:06 1993 Tom Lord (lord@cygnus.com) * remote-hms.c (hms_wait): fixed too many arguments to putc_unfiltered. Tue Nov 9 12:20:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * utils.c (quit): Also call gdb_flush on standard output and error. * .gdbinit: Remove "source /.gdbinit". It causes a spurious error if /.gdbinit doesn't exist (and I know of no convention of putting something in /.gdbinit). Mon Nov 8 18:17:11 1993 Kung Hsu (kung@cirdan.cygnus.com) * cp-valprint.c (cp_print_value_fields): change output from to Mon Nov 08 17:05:30 1993 Jeffrey Wheat (cassidy@cygnus.com) * Makefile.in: Change RUNTEST_FLAGS back to RUNTESTFLAGS Change RUNTEST = runtest to test for existance of a runtest in the source tree first. Mon Nov 8 10:42:03 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Remove unused variable GCC. Remove "#CC=cc" line which doesn't really relate to anything. * Makefile.in (CC_FOR_TARGET): Test for existence of gcc/xgcc, not for existence of gcc/Makefile. * inflow.c (terminal_init_inferior), infptrace.c (child_resume): Add comments about use of Lynx PIDGET and how we will want to clean it up. * stabsread.c: Remove long_kludge_name code (it was already #if 0). * stabsread.c (read_one_struct_field): Clean up comments to reflect Kung's change of 5 Nov 93. * stabsread.c (read_one_struct_field): Don't give up on unknown visibility character, just shove it in fip->list->visibility. (read_baseclasses): Don't give up on unknown virtual or visibility characters, just assume a reasonable default, complain, and keep going. (attach_fields_to_type): Complain on unrecognized visibility. One result of all this is that '9' (VISIBILITY_IGNORE) can be used in a stab as well as being something which GDB uses internally. Mon Nov 8 07:57:30 1993 Doug Evans (dje@canuck.cygnus.com) * configure.in: Remove h8300h, we have multilib now. Mon Nov 8 06:11:24 1993 D. V. Henkel-Wallace (gumby@cirdan.cygnus.com) * configure.in: Add unixware as a configuration alias for x86 sysv4 * config/i386/i386nw.mt: add i387-tdep.o, exec.o to TDEPFILES Sun Nov 7 23:49:21 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symtab.c (decode_line_1, decode_line_2): Do not adjust pc by FUNCTION_START_OFFSET if funfirstline is not set. Fri Nov 5 17:19:30 1993 Kung Hsu (kung@cirdan.cygnus.com) * gdbtypes.h : add a field 'ignore_field_bits in cplus_specific, and macros to handle the bits. * stabsread.c (read_one_struct_field): add VISIBILITY_IGNORE, and for field of length 0, set this bit on. * cp-valprint.c (cp_print_value_fields): for VISIBILITY_IGNORE field, print . Fri Nov 5 14:43:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Version 4.11.2. Fri Nov 5 09:49:22 1993 Stu Grossman (grossman at cygnus.com) * inflow.c (terminal_init_inferior): Temporarily use Lynx PIDGET macro to set process groups. * infptrace.c (child_resume): Temporarily use Lynx PIDGET to specify resumption of all threads. * infrun.c (wait_for_inferior): Fix handling of thread-specific breakpoints for systems where DECR_PC_AFTER_BREAK > 0 (ie: backup PC by the right amount when continuing the thread). * thread.c (thread_apply_command): Add the `thread apply' command to apply a given GDB command to a list of threads. Fri Nov 5 05:58:03 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in (init.c): Don't call sed if filename is empty. Thu Nov 4 08:27:24 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * dbxread.c (unknown_symchar_complaint): Make message refer to "symbol descriptor" not "symbol type character" for consistency with stabs.texinfo terminology. * stabsread.c (read_struct_fields): Accept either '$' or '.' as the character which introduces a cpp_abbrev or anonymous type. * c-lang.c (c_printstr): Print "" to stream (like all the other output from this function), not gdb_stdout. * dbxread.c (process_one_symbol): Do relocate 'S' symbols by the text offset (revert 12 Oct 93 change). * configure.in: Make hppa*-*-hiux* use hppahpux, not non-existent hppahiux. Wed Nov 3 16:24:09 1993 Kung Hsu (kung@cirdan.cygnus.com) * values.c (value_fn_field): when physical name not found, do not error, but return null. * valops.c (value_struct_elt): when name and args match does not mean it is the one, some times a typedef class can have the same member method and args. This probably will not happen with new version of g++, but it does happen in old g++ and cause gdb error. Wed Nov 3 09:20:18 1993 Jim Kingdon (kingdon@lioth.cygnus.com) Merge changes for dos x udi: * Makefile.in (udi2go32.o): add rule to build this file * 29k-share/udi/udi2go32.c: new file * config/a29k/a29k-udi.mt: add udi2go32.o * 29k-share/udi/{udr.c, udip2soc.c}: #ifdef out the entire file if __GO32__ is defined. What a hack. Wed Nov 3 09:20:18 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote.c (putpkt, getpkt): Don't call interrupt_query. * findvar.c (value_of_register): Rename val to reg_val to avoid name conflict with some (e.g. tm-m68k.h) REGISTER_CONVERT_TO_VIRTUAL. * main.c: Add variables source_line_number, source_file_name, source_error, source_error_allocated, and source_pre_error. (command_line_input): If source_file_name set, increment source_line_number and set error_pre_print with them. (source_command): Set source_* and make a cleanup so they get set back. Tue Nov 2 16:28:34 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stack.c (down_silently_command): Add comment about PR 1913. * breakpoint.c (insert_breakpoints, delete_breakpoint): Call target_terminal_ours_for_output before attempting output. * fork-child.c (fork_inferior): Fix comment so that it suggests "set shell" rather than having "set env SHELL" affect GDB's operation. Tue Nov 2 15:03:08 1993 Tom Lord (lord@rtl.cygnus.com) * utils.c (vfprintf_unfiltered): don't use maybe_filtered since it involves a fixed size buffer. Tue Nov 2 13:42:30 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * findvar.c (value_of_register, value_from_register), hppa-tdep.c (pa_print_fp_reg), infcmd.c (do_registers_info), valops.c (value_assign): Use REGISTER_CONVERT_TO_* only if REGISTER_CONVERTIBLE is defined, otherwise just copy the content. Pass desired type to REGISTER_CONVERT_TO_*. * config/m68k/tm-m68k.h, config/i960/tm-i960.h (REGISTER_CONVERT_*): Pass length of desired type to store/extract_floating. * config/i386/tm-arm.h, config/i386/tm-i386aix.h, config/i386/tm-sun386.h, config/i386/tm-symmetry.h, config/m88k/tm-m88k.h config/rs6000/tm-rs6000.h (REGISTER_CONVERT_*): Use extract_floating and store_floating with length of desired type. * config/m68k/tm-news.h (STORE,EXTRACT_RETURN_VALUE): Add type parameter to REGISTER_CONVERT_*. * config/a29k/tm-a29k.h, config/convex/tm-convex.h, config/gould/tm-np1.h, config/gould/tm-pn.h, config/h8300/tm-h8300.h, config/h8500/tm-h8500.h, config/i386/tm-i386v.h, config/mips/tm-mips.h, config/ns32k/tm-merlin.h, config/ns32k/tm-umax.h, config/pa/tm-hppa.h, config/pyr/tm-pyr.h, config/sh/tm-sh.h, config/sparc/tm-sparc.h, config/tahoe/tm-tahoe.h, config/vax/tm-vax.h, config/z8k/tm-z8k.h (REGISTER_CONVERTIBLE, REGISTER_CONVERT_TO_RAW, REGISTER_CONVERT_TO_VIRTUAL): Remove versions for which REGISTER_CONVERTIBLE is always false. * z8k-tdep.c (register_convert_to_virtual, register_convert_to_raw): Remove, no longer used. * alpha-tdep.c (alpha_register_convert_to_raw, alpha_register_convert_to_virtual): New routines to handle the different raw formats in alpha floating point registers. * config/alpha/tm-alpha.h (REGISTER_CONVERTIBLE, REGISTER_CONVERT_TO_VIRTUAL, REGISTER_CONVERT_TO_RAW): Use them. Tue Nov 2 12:45:23 1993 Stan Shebs (shebs@rtl.cygnus.com) * gdbserver/configure.in: Recognize *-*-lynxos* instead of *-*-lynx*, recognize sparc-*-lynxos*. * gdbserver/Makefile.in (install, install_only): Add. * gdbserver/gdbserver.1: New file, man page for gdbserver. Mon Nov 1 09:40:21 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * symtab.c, symtab.h, source.c: Change find_line_pc_range to take a struct symtab_and_line argument, rather than a symtab and a line. Re-write it to be based on the address rather than bogusly adding one to the line number and hoping that has something to do with the end of the line. * config/m88k/m88k.mh (NATDEPFILES): Remove exec.o. * paread.c (pa_symtab_read): Change comments to say ignoring labels really should be handled by the assembler/compiler. * Makefile.in: Add -O to CXXFLAGS. * TODO: Expand comments on fast watchpoints. Sun Oct 31 19:45:06 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * paread.c (pa_symtab_read): Also filter out local symbols starting with "L$". Sun Oct 31 09:28:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * symfile.h (sym_fns), symfile.c (find_sym_fns), xcoffread.c, coffread.c, dbxread.c, elfread.c, mipsread.c, nlmread.c, paread.c: Change from using bfd target name to using the flavour. * objfiles.h, infcmd.c, symfile.c: Add comments about how various objfiles get created and when we should blow them away. Sat Oct 30 08:32:53 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * symfile.c (reread_symbols): When re-reading symbols, do all the right operations ourself, rather than calling symbol_file_command. If we re-read something, call clear_symtab_users not just breakpoint_re_set. * objfiles.h, objfiles.c (build_objfile_section_table): No longer static. * symfile.c (clear_symtab_users): Call clear_pc_function_cache. * coffread.c, dbxread.c, elfread.c, mipsread.c, nlmread.c, paread.c (*_symfile_offsets): Set objfile->num_sections. * remote.c (remote_wait), symfile.c (syms_from_objfile): Don't muck with objfile->num_sections now that all the symbol readers set it. * elfread.c: Clean up obsolete comment about handling only DWARF. * paread.c: Remove comment about how we should use an "ordinary" file format with an hppa suffix. There is nothing ordinary about SOM. * config/i386/{i386m3.mh,i386mk.mh}, config/mips/mipsm3.mh, config/ns32k/ns32km3.mh: Change MMALLOC_LIB to MMALLOC. * TODO: Update Mach stuff. Fri Oct 29 16:30:36 1993 Stan Shebs (shebs@rtl.cygnus.com) LynxOS support: * configure.in: Change *-*-lynx* to *-*-lynxos*, add sparc-*-lynxos*. * Makefile.in (ALLDEPFILES): Add m68kly-nat.c, sparcly-nat.c. Rename i386lynx-nat.[co] to i386ly-nat.[co]. (ALLCONFIG): Add config/{m68k,sparc}/{m68k,sparc}lynx.m[ht]. (m68kly-nat.o, sparcly-nat.o): Add rules. * i386ly-tdep.c: Cosmetics. * i386lynx-nat.c: Removed. * i386ly-nat.c: New file, was i386lynx-nat.c. * m68kly-nat.c: New file. * sparcly-nat.c: New file. * config/xm-lynx.h: New file, cpu-independent host info. * config/i386/i386lynx.mh: Changes for consistency. * config/i386/i386lynx.mt: Ditto. * config/i386/tm-i386lynx.h: Ditto. * config/i386/nm-i386lynx.h: Ditto. * config/i386/xm-i386lynx.h: Include config/xm-lynx.h. * config/m68k/m68klynx.mh, config/m68k/m68klynx.mt, config/m68k/tm-m68klynx.h, config/m68k/nm-m68klynx.h, config/m68k/xm-m68klynx.h: New files, M68K LynxOS support. * config/sparc/sparclynx.mh, config/sparc/sparclynx.mt, config/sparc/tm-sparclynx.h, config/sparc/nm-sparclynx.h, config/sparc/xm-sparclynx.h: New files, Sparc LynxOS support. Fri Oct 29 08:11:29 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * defs.h, findvar.c (extract_floating, store_floating): New functions. * Move SWAP_TARGET_AND_HOST from defs.h to findvar.c because it is now used only by extract_floating and store_floating. * valprint.c (print_floating): Use unsigned arithmetic. Use extract_unsigned_integer instead of SWAP_TARGET_AND_HOST. Change sizeof (float) to 4 and sizeof (double) to 8 (those are always the relevant sizes for this code, which is in #ifdef IEEE_FLOAT). * values.c (unpack_long, unpack_double, value_from_double), valarith.c (value_binop), stabsread.c (define_symbol): Use extract_floating and store_floating instead of SWAP_TARGET_AND_HOST. * config/m68k/tm-m68k.h, config/i960/tm-i960.h (REGISTER_CONVERT_*): Use extract_floating and store_floating. * config/m88k/tm-m88k.h: Add comments (it should be doing the same). * i386-tdep.c (i386_extract_return_value), * remote-nindy.c (nindy_store_registers): Use store_floating. Fri Oct 29 09:31:38 1993 Steve Chamberlain (sac@rtl.cygnus.com) * remote-sim.c (gdbsim_store_register): Change var name so it compiles with non-ANSI compilers. Fri Oct 29 08:11:29 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * TODO: Add idea for "disassemble" with source. Fri Oct 29 00:41:01 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.11.1 after release and cvs tagging. Thu Oct 28 09:14:42 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * TODO: Add section on Mach. Stop calling it a "bug list". Remove John's name and email address. Remove item on "always" ("hook-stop" takes care of this). Remove item on executables with no symbols (this works on some machines, at least). Remove item about calling error() during symbol reading (I think all the important ones have been cleaned up). Revise items about signals and remote systems. Remove section on ^Z requiring several continues to make it go (this now works. Perhaps the item is based on confusion over programs (like GDB itself) which catch SIGTSTP and then re-send themselves the signal. PR 2575 might contain relevant info). Thu Oct 28 16:55:34 1993 Fred Fish (fnf@cygnus.com) * NEWS: Note improvements in C++ support, preliminary thread implementation, and LynxOS native and target support for 386. Thu Oct 28 16:55:34 1993 Fred Fish (fnf@cygnus.com) * README: Add note from Peter Schauer about OSF/1 shared libraries. Add note from Pace Willisson about configuring on BSDI BSD/386 release 1.0. Update gdb references to gdb 4.11. Thu Oct 28 09:14:42 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * NEWS: Add notes about Alpha and "set remotedebug" for UDI. * valops.c (value_assign): Change bitfield code to use a buffer of the correct size, rather than an int. Wed Oct 27 13:43:07 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/i386/{i386m3.mt,i386m3.mh}, config/mips/{mipsm3.mt,mipsm3.mh}, config/ns32k/{ns32km3.mt,ns32km3.mh}: Use correct names for TM_FILE and XM_FILE. Replace host files *mach3-xdep.o with native files *m3-nat.o. Replace host file os-mach3.o with native file m3-nat.o. * remote-udi.c: Remove LOG_FILE stuff; superceded by "set remotedebug". * remote-mon.c: Remove commented out "set remotedebug" command. * remote-nindy.c: Clean up comment about wanting alternative to options specified on the GDB command line. * fork-child.c (fork_inferior): Set inferior_pid before calling init_trace_fun. Move the code which gets us through the shell to new function startup_inferior. * inferior.h: Declare startup_inferior. * procfs.c (procfs_init_inferior), inftarg.c (ptrace_him): Call startup_inferior. * m3-nat.c (m3_trace_him): Call intercept_exec_calls. * config/nm-m3.h: Don't define STARTUP_INFERIOR. * config/i386/tm-i386m3.h, config/ns32k/tm-ns32k.h, config/mips/tm-mipsm3.h: Don't define START_INFERIOR_TRAPS_EXPECTED. * m68k-stub.c: Change vector 13 from SIGFPE to SIGBUS. Tue Oct 26 22:05:03 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * mips-tdep.c (mips_pop_frame): If proc_desc is NULL, don't dump core. Tue Oct 26 15:07:29 1993 Jim Kingdon (kingdon@lioth.cygnus.com) gcc -Wall lint: * nlmread.c: Include stabsread.h. * Makefile.in: Update dependencies. * remote.c: Change PBUFSIZ back to 400. John's 28 Feb 1992 change to increase it broke the ability to write large chunks of memory with m68k-stub and i386-stub. Now we only use more than 400 on machines where we need that much to write the registers. * remote.c (remote_write_bytes): Eliminate possible abort(). The check for when to abort was off by a few bytes and besides which, it is handled by MAXBUFBYTES, which the caller uses. * m68k-stub.c: Add comments about trap #1 and trap #8 instructions. Tue Oct 26 08:36:07 1993 Doug Evans (dje@canuck.cygnus.com) * remote-sim.h (SIM_ADDR): New type (same as CORE_ADDR). (sim_set_pc): Update prototype. (sim_read, sim_write): Ditto, and use unsigned char *buf. (sim_fetch_register, sim_store_register): Use unsigned char *buf. (sim_info): Pass printf function as argument, add verbose argument. (sim_stop_reason): Renamed from sim_stop_signal, fix prototype. * remote-sim.c (gdbsim_wait): Update call to sim_stop_reason. (gdbsim_files_info): Update call to sim_info. Tue Oct 26 10:41:29 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * valops.c (value_assign): Call reinit_frame_cache when assigning to a register. Mon Oct 25 11:08:59 1993 Stu Grossman (grossman at cygnus.com) * infrun.c (wait_for_inferior): Fix PC out of objfile bounds check to just use stop_func_name == 0. * remote-udi.c (store_register): Invalidate NPC/PC_REGNUM after changing PC. Mon Oct 25 14:57:45 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbserver/{low-lynx.c,low-sparc.c,low-sun3.c}, standalone.c, m3-nat.c, i386m3-nat.c, mipsm3-nat.c, ns32km3-nat.c: bcopy -> memcpy. gcc -Wall lint: * breakpoint.c: Include thread.h. * coffread.c: Include stabsread.h. * Makefile.in: Update dependencies. * breakpoint.c (mention): Add bp_call_dummy to switch. * symmisc.c (dump_symtab): Use %d not %ld for line number. Sun Oct 24 18:29:32 1993 Tom Lord (lord@rtl.cygnus.com) * every non-obsolete file except utils.c: Change the stream argument to _filtered to GDB_FILE *. Change all references to stdout/stderr to gdb_stdout/gdb_stderr. Replace all calls to stdio output functions with calls to corresponding _unfiltered functions. Replaced calls to fopen for output to gdb_fopen. Added sufficient goo to utils.c and defs.h to make the above work. The net effect is that stdio output functions are only directly used in utils.c. Elsewhere, the _unfiltered and _filtered functions and GDB_FILE type are used. In the near future, GDB_FILE will stop being equivalant to FILE. The semantics of some commands has changed in a very subtle way: called in the right context, they may cause new occurences of prompt_for_continue() behavior. Please respect this change by not reintroducing stdio output dependencies in the main body of gdb code. All output from commands should go to a GDB_FILE. Sun Oct 24 20:16:38 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * parse.c, parser-defs.h (write_exp_msymbol): New function to write the appropriate expression for a minimal symbol. Taken from c-exp.y and m2-exp.y but handles mst_file_*. * c-exp.y, m2-exp.y: Use it. Sun Oct 24 09:31:05 1993 Fred Fish (fnf@lisa.cygnus.com) * elfread.c (elf_symtab_read): Use bfd convention that both initialized and uninitialized data sections have the SEC_ALLOC flag bit set, but only initialized sections have SEC_LOAD set. SEC_DATA is ignored since it only gets set for initialized data. Sat Oct 23 14:48:18 1993 Doug Evans (dje@canuck.cygnus.com) * remote-sim.h (sim_stop): New enum. (sim_stop_signal): Change prototype, result is enum sim_stop. * remote-sim.c (gdbsim_wait): Update call to sim_stop_signal. Fri Oct 22 07:49:54 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (define_symbol): Skip the whole thing about "pcc promotion" on little-endian machines. * remote-vx.c (vx_wait): Rename pid parameter to pid_to_wait_for. Some compilers (legitimately) don't like variables in the function's outermost block whose name is the the same as the name of a parameter. Merge Apollo patches from Troy Rollo (troy@cbme.unsw.edu.au): * dst.h, dstread.c, config/m68k/{apollo68b.mt,tm-apollo68b.h}: New files. * config/m68k/nm-apollo68b.h: Add more defines. * configure.in: Recognize apollo target, not just host. * configure.in: Add * to end of all OS names. Fri Oct 22 06:14:01 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (ALLPARAM): Add config/m88k/xm-delta88v4.h Thu Oct 21 12:23:12 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (init.c): Generate using the source, not munch. This cleans up all kinds of hassles (which nm to use in munch, etc). The new formatting conventions (mostly already followed) are that the name of the _initialize_* routines must start in column zero, and must not be inside #if. * munch: Removed. * Makefile.in: Remove references to munch. * serial.c, remote.c, infptrace.c, maint.c, convex-tdep.c, alpha-tdep.c, hp300ux-nat.c, hppab-nat.c, osfsolib.c, remote-es.c, procfs.c, remote-udi.c, ser-go32.c, ultra3-xdep.c, sh-tdep.c, i960-tdep.c, hppa-tdep.c, h8500-tdep.c, dpx2-nat.c, delta68-nat.c, z8k-tdep.c: Make sure the above conventions are followed. Make sure they are all declared as returning void. Clean up miscellaneous comments and such. * sh-tdep.c (sim_load): Add function. Thu Oct 21 15:58:48 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * remote-mips.c (mips_wait): add pid argument. Thu Oct 21 12:23:12 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (c-exp.tab.o): Remove notice about shift/reduce conflicts which no longer occur. gcc -Wall lint: * findvar.c (symbol_read_needs_frame), corelow.c (ignore), inflow.c (gdb_has_a_terminal): Make sure to return a value. * regex.h: Declare re_set_syntax. * printcmd.c: Include valprint.h. * infcmd.c, exec.c, maint.c, core.c: Include language.h. * maint.c: Include expression.h. * infrun.c, fork-child.c, corelow.c, inflow.c: Include thread.h. * inftarg.c: Include command.h. * coredep.c: Include value.h. * c-exp.y, m2-exp.y, ch-exp.y: Include bfd.h, symfile.h and objfiles.h. * ch-typeprint.c: Include typeprint.h. * ch-valprint.c: Include c-lang.h. * nlmread.c: Include buildsym.h. * environ.c: Include gdbcore.h. Only include defs.h once. (set_in_environ): Cast const char * to char * when passing to set_gnutarget. * Makefile.in: Update dependencies to reflect all these new includes. Remove unused variables: * printcmd.c (printf_command): args_to_vprintf. * coffread.c (coff_symfile_init): strsection. Move variables to within the #ifdefs where they are used: * symtab.c (gdb_mangle_name): opname. * inftarg.c (child_attach): pid and exec_file. * inftarg.c (child_detach): siggnal. * objfiles.c (allocate_objfile): mapto, md, and fd. * objfiles.c (free_objfile): mmfd. * infrun.c (wait_for_inferior): Include BPSTAT_WHAT_LAST in switch. * infrun.c (wait_for_inferior): Remove unused same_pid label. * inferior.h: Declare set_sigint_trap and clear_sigint_trap. * parser-defs.h: Declare write_exp_elt_block. * stabsread.h: Declare elfstab_offset_sections and coffstab_build_psymtabs. Thu Oct 21 12:05:08 1993 Ken Raeburn (raeburn@cygnus.com) Patch from Jeff Law: * paread.c: Fix references to "hppa" that should now be "som". Thu Oct 21 12:23:12 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * symtab.c (decode_line_1): Don't use SYMBOL_LINE for functions. Thu Oct 21 02:59:07 1993 Stu Grossman (grossman at cygnus.com) * remote-udi.c (udi_store_registers, store_register): Use UDI29KPC address space when modifying PC. It seems that you can't modify the PC directly (at least in the isstip simulator). Wed Oct 20 11:35:43 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * target.h: Put remote_debug declaration back here. Add baud_rate. * remote.c, remote-udi.c, remote-utils.h: Let target.h take care of declaring these. Those random externs all over are error prone. * Move "set remotebaud" from remote-utils.c to main.c to it applies to remote.c as well. * xcoffread.c (xcoff_symfile_read), coffread.c (coff_symfile_read): Sort symtabs for this objfile only, not for all objfiles. * symfile.c, symfile.h (sort_all_symtab_syms): Remove; no longer used. * mipsread.c (parse_symbol): In third-eye, a function has a block within it which represents the whole function. Create only one GDB block for both. Wed Oct 20 17:47:42 1993 Stu Grossman (grossman at cygnus.com) * main.c: Make baud_rate and remote_debug be global variables, remove #include "remote-utils.h". This makes it possible to build GDB without remote-utils.c. Also, move setting of remote_debug into main, so that all remote*.c files can use it (not just the serial line ones). And, make baud_rate be an int. * remote-udi.c: Change kiodebug to remote_debug. * remote-utils.c: Move setting of baud rate and debug into main.c. * remote-utils.h: Redefine sr_{get set}_debug and sr_{get set}_baud to use baud_rate and remote_debug globals for compatibility. * remote.c: Use remote_debug and baud_rate globals directly, instead of sr_ functions, so that we don't need to load remote-utils.c. * config/a29k/a29k-udi.mt: Define REMOTE_O as null so that we don't get the default remote* modules. Wed Oct 20 11:35:43 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (define_symbol): When combining a LOC_ARG and a LOC_REGISTER, use the type from the LOC_REGISTER, not from the LOC_ARG. Wed Oct 20 14:34:38 1993 K. Richard Pixley (rich@sendai.cygnus.com) * config/i386/xm-go32.h: define some signals if they aren't already defined. Wed Oct 20 11:35:43 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (INTERNAL_LDFLAGS): New macro. The new part is that we use CFLAGS and PROFILE_CFLAGS to link. (gdb, rapp, kdb): Use INTERNAL_LDFLAGS instead of LDFLAGS and/or GLOBAL_CFLAGS. Wed Oct 20 09:29:55 1993 Stu Grossman (grossman at cygnus.com) * Makefile.in: Add $(srcdir) to all refs to 29k-share directories. Tue Oct 19 17:23:34 1993 Fred Fish (fnf@deneb.cygnus.com) * Makefile.in (ALLCONFIG): Add config/i386/{i386m3.mh, i386m3.mt, i386/i386mk.mh i386/i386mk.mt}, config/mips/{mipsm3.mh, mipsm3.mt}, config/ns32k/{ns32km3.mh, ns32m3.mt} * Makefile.in (remote_utils_h): Add remote-sim.h * Makefile.in (NONSRC): Add i386-nlmstub.c * Makefile.in (HFILES): Add coff-solib.h Tue Oct 19 14:15:40 1993 Kung Hsu (kung@cirdan.cygnus.com) * values.c (value_virtual_fn_field): Fix the offset calculation when calling virtual functions. (gdb.t22/virtfunc.exp). * eval.c (evaluate_subexp): same as above. Tue Oct 19 10:43:16 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/rs6000/rs6000.mh (TERMCAP): Define to -lcurses. * Makefile.in: Define CXXFLAGS. Tue Oct 19 09:28:52 1993 Stu Grossman (grossman@cygnus.com) * sparclite/Makefile.in: Fixup so that this works with Sun make and VPATH. Tue Oct 19 10:43:16 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.h (struct bpstat_what): Don't use bitfields. * typeprint.c: Add "class CLASS-NAME" to docstring for ptype. Tue Oct 19 06:17:10 1993 Fred Fish (fnf@cirdan.cygnus.com) * Makefile.in (ALLPARAM): Add config/m88k/{nm-delta88v4.h, tm-delta88v4.h, xm-dgux.h}. * Makefile.in (ALLCONFIG): Add config/m88k/{delta88v4.mh, delta88v4.mt}. * README: Remove comment about SunOS 5.x programs leaving coredumps. Info from Sun is that this was not in customer releases. Mon Oct 18 10:28:08 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hppa-tdep.c (restore_pc_queue): Call target_terminal_ours after done stepping the inferior. * c-exp.y: Remove never-used (because of shift/reduce conflicts) rules for pointers to members. * Makefile.in: Remove notice about expected shift/reduce conflicts. * buildsym.c (finish_block): If we pop the context stack and it is not empty, complain () instead of abort (). Sun Oct 17 19:42:31 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * parse.c, parser-defs.h (follow_types): New function. * c-exp.y (ptype : typebase abs_decl): Use it. * c-exp.y (ptype): Add support for type qualifiers after the typebase. The typebase rule already has support for them before the typebase. * Makefile.in: Change the expected number of shift/reduce conflicts to 6. This is OK--the 2 new conflicts are basically the same as one of the old ones. Sun Oct 17 13:04:49 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.10.3. Sun Oct 17 09:18:57 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * infrun.c (wait_for_inferior): Clean up comments which were at the top of the file, making them more concise and moving them with the code (Sorry, Randy, but these stream-of-consciousness comments really have to go). Switch the order of the "&&", which makes things clearer and turns out to be an improvement with respect to side effects and speed. Sun Oct 17 02:06:01 1993 Stu Grossman (grossman at cygnus.com) * procfs.c: Handle process exits more elegantly by trapping on entry to _exit. Also, cleanup procinfo list when process dies of it's own accord (as opposed to being killed). Sat Oct 16 20:47:30 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/m88k/xm-dgux.h: Define NO_PTRACE_H. * corelow.c (add_to_thread_list): Need a cast to go from PTR to asection *. * infrun.c: Add comment about signals. * fork-child.c (fork_inferior): Remove CREATE_INFERIOR_HOOK again. Stu reinstated it (accidently I assume). Sat Oct 16 15:27:10 1993 Stu Grossman (grossman at cygnus.com) * procfs.c (procfs_wait): Losing Unixware can't do poll on /proc files. Use PIOCWSTOP instead. * corelow.c (add_to_thread_list): Fix arg to match prototype. * procfs.c (procfs_set_sproc_trap): Don't use this if sproc isn't available. * (procfs_notice_signals): Fix prototype. Fri Oct 15 22:46:07 1993 Stu Grossman (grossman at cygnus.com) * breakpoint.c (breakpoint_thread_match break_command_1): Thread-specific breakpoint support. * breakpoint.h (struct breakpoint): Add thread id field. * fork-child.c (fork_inferior): Move call to init_thread_list() back a bit so that init_trace_fun can do thread functions. * hppa-tdep.c (restore_pc_queue): Add pid to call to target_wait. * hppab-nat.c (child_resume): Handle default pid. * hppah-nat.c (child_resume): Handle default pid. * i386lynx-nat.c (child_wait): New arg pid. * inflow.c (kill_command): Reset thread list. * infptrace.c (child_resume): Handle default pid. * infrun.c: Thread-specific breakpoint support. * inftarg.c (child_wait): Add pid arg. * osfsolib.c (solib_create_inferior_hook): Add pid to call to target_resume. * procfs.c: Multi-thread support. * remote-bug.c (bug_wait): Add pid arg. * remote-hms.c (hms_wait): Add pid arg. * remote-mips.c (mips_wait): Add pid arg. * remote-mon.c (monitor_wait): Add pid arg. * remote-nindy.c (nindy_wait): Add pid arg. * remote-sim.c (gdbsim_wait): Add pid arg. * remote-udi.c (udi_wait): Add pid arg. * remote-vx.c (vx_wait): Add pid arg. * remote-z8k.c (sim_wait): Add pid arg. * remote.c (remote_wait): Add pid arg. * solib.c (solib_create_inferior_hook): Add pid to call to target_resume. * target.h (struct target_ops): Add pid arg to to_wait and to_notice_signals. * thread.c (valid_thread_id): New func to validate thread #s. * (pid_to_thread_id): New func to do the obvious. * thread.h: Prototypes for above. * coff-solib.c (coff_solib_add): Use nameoffset field to locate filename. Fri Oct 15 21:29:40 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * h8300-tdep.c, h8500-tdep.c: Define sim_load only, but not sim_kill, sim_open, or sim_set_args. * stack.c (print_stack_frame): Put catch_errors around print_frame_info so (for example) error printing source doesn't cause auto-displays to get skipped in normal_stop. * findvar.c (value_from_register): When preparing to cast a value from REGISTER_VIRTUAL_TYPE to type, copy the REGISTER_VIRTUAL_SIZE; the old code didn't copy the whole thing. * valops.c (value_assign): Add comment. Fri Oct 15 12:57:30 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (upgrade_type): Replace bitsize sanity checks and complaint by a comment explaining why they were useless. Fri Oct 15 14:30:30 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Move comments on bypassing call dummy breakpoint from stack.c to breakpoint.h. Fri Oct 15 11:52:56 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symtab.c (lookup_partial_symtab): If filename is not found and contains no slashes, try again and compare without leading path components. * symtab.c (lookup_symtab_1): Replace open coded version of lookup_partial_symtab with a function call. Thu Oct 14 20:34:15 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * fork-child.c (fork_inferior), remote-eb.c (eb_create_inferior), remote-mon.c (monitor_create_inferior), remote-nindy.c (nindy_create_inferior), remote-st.c (st2000_create_inferior), remote-vx.c (vx_create_inferior): Remove CREATE_INFERIOR_HOOK; it is replaced by init_trace_fun. * config/convex/xm-convex.h, convex-xdep.c: Add comments explaining how to do without CREATE_INFERIOR_HOOK for whoever fixes the Convex port. * Makefile.in: Add Mach files to ALLDEPFILES, etc. * m3-nat.c: Clean up more hair--message(), cprocs. * configure.in: Recognize Mach targets and hosts. * config/ns32k/tm-umax.h: Add some #ifndef's so tm-ns32km3.h can include this file. * Mach headers in config/*/tm-*.h: Fix includes to match correct locations of files. Thu Oct 14 21:35:55 1993 Rob Savoye (rob@darkstar.cygnus.com) * remote-mon.c (general_open): Set dev_name. Minor tweaking to get it working again. * config/m68k/tm-monitor.h: Remove floating point register names as there aren't any on any of the monitors that use this code. Wed Oct 13 11:47:23 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * inflow.c: Pass pointer to process group, not process group itself, to TIOCSPGRP ioctl. * inflow.c (terminal_ours_1): Don't print warning on failure to set process group. * printcmd.c (printf_command): Instead of using makeva* and calling vprintf, just make the appropriate calls to printf. * printcmd.c, config/pa/xm-pa.h, config/mips/xm-makeva.h, config/alpha/xm-alpha.h, config/m88k/xm-m88k.h: Remove all traces of makeva*. My apologies to everyone (including me!) who spent so much time getting it to work on various machines, but look at the bright side, at least you won't have to do it again in the future. * printcmd.c (printf_command): Make a cleanup for val_args (fixes a memory leak). Tue Oct 12 22:54:41 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/mips/xm-mips.h: Remove comment about HAVE_SGTTY vs. usleep. Tue Oct 12 12:01:29 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * configure.in: only configure gdbserver for native environments Tue Oct 12 08:59:15 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (read_type): Treat a negative type number at the start of a type as a type reference, not as a definition of a type with "50=" omitted. This makes things work on the RS/6000 again (the 14 Sep 1993 change broke it). * inflow.c: Use 0 (standard input) not scb->fd. (terminal_ours_1): If printing warning, don't claim it happened in terminal_inferior. * blockframe.c (get_prev_frame_info): Don't error() if there are no frames; just return NULL. * xcoffsolib.h, xcoffexec.c: Undo the part of Fred's bfd->abfd change which involved structure elements. It was unnecessary and was not consistently done. * stabsread.h, stabsread.c, dbxread.c (common_block*, copy_pending): Move common block handling from dbxread.c to stabsread.c. Use the name from the BCOMM instead of the ECOMM. Allocate things on the symbol_obstack. * xcoffread.c (process_xcoff_symbol): Process C_BCOMM, C_ECOMM, and C_ECOML. On unrecognized storage classes, go ahead and call define_symbol (after the complaint). * dbxread.c (process_one_symbol): Don't relocate 'S' symbols by the text offset. Tue Oct 12 12:33:09 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * osfsolib.c (solib_create_inferior_hook): Reset stop_soon_quietly after shared library symbol reading to get rid of warning from heuristic_proc_start. Tue Oct 12 12:01:29 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * remote-sim.c: fix unterminated character string Tue Oct 12 08:59:15 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c: Fix comment about gcc 2.3.3 stab for long long int. Mon Oct 11 14:27:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * m3-nat.c, config/nm-m3.h: Add a target_ops struct and other various things to try to get this to work. * symtab.h: Fix comments re headers, sharing blockvectors, etc. Mon Oct 11 11:46:06 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * config/i960/vxworks960.mt (REMOTE_O): add dcache.o and remote-utils.o Mon Oct 11 02:48:57 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (parse_partial_symbols): Do not add undefined symbols to the partial symbol table. * alpha-tdep.c (init_extra_frame_info): Remove kludge for gcc, gcc has to be compatible with the native tools. * alpha-tdep.c (alpha_push_arguments): Rename NUM_ARG_REGS to ALPHA_NUM_ARG_REGS and move its definition to tm-alpha.h. * config/alpha/tm-alpha.h (FRAME_ARGS_ADDRESS): Change it to the way the native tools define it, update comment. Fri Oct 8 15:54:06 1993 Fred Fish (fnf@deneb.cygnus.com) * osfsolib.c, remote-sim.c, remote.c, solib.c, xcoffexec.c, xcoffsolib.h: Use 'abfd' for bfd variables instead of 'bfd'. Sun cc doesn't like variable names that match their typedef'd type. Fri Oct 8 14:56:21 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * inflow.c: Remove unused includes of sys/param.h and sys/types.h. * inflow.c, ser-unix.c, ser-go32.c, ser-tcp.c, serial.h, terminal.h, fork-child.c, main.c, utils.c: Move all the process group stuff back to inflow.c and terminal.h; that's a better place for it and fixes problems with trying to get/set the process group of a tty we're doing remote debugging on. * terminal.h: Skip the redefines and includes if HAVE_TERMIOS. * findvar.c, value.h (symbol_read_needs_frame): New function. * c-exp.y, m2-exp.y: Call it instead of having our own switch on the symbol's class. * valops.c (value_of_variable): Use symbol_read_needs_frame to decide whether we care about finding a frame. Fri Oct 8 02:34:21 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * blockframe.c (get_frame_block): Do not adjust pc if the frame function was interrupted by a signal. Thu Oct 7 19:20:11 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/h8300/tm-h8300.h: Don't define sr_get_debug. * remote-sim.c: Include remote-utils.h. * target.h: Add comment about target_has_execution. Thu Oct 7 16:14:19 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * h8300-tdep.c (sim_load, sim_kill, sim_open, sim_set_args): New functions. * infrun.c (normal_stop): Don't try and set the pc in the current frame coredump if there isn't one. * remote-sim.c (gdbsim_store_register): Don't SWAP_TARGET_AND_HOST, sim_store_register takes bytes in raw order. (gdbsim_wait): Set status with WSETSTOP. * config/h8300/tm-h8300.h (sr_get_debug): Define Thu Oct 7 12:56:57 1993 Jim Kingdon (kingdon@lioth.cygnus.com) New Mach stuff: * config/i386/i386mach.c: Explain this is for the old (probably non-functional and/or obsolete) Mach stuff. * m3-nat.c, config/nm-m3.h, i386m3-nat.c, mipsm3-nat.c, ns32km3-nat.c, config/i386/{i386m3.mh,i386m3.mt,tm-i386m3.h,xm-i386m3.h}, config/i386/{i386mk.mh,i386mk.mt,tm-i386mk.h,xm-i386mk.h}, config/mips/{mipsm3.mh,mipsm3.mt,tm-mipsm3.h,xm-mipsm3.h}, config/ns32k/{ns32km3.mh,ns32km3.mt,tm-ns32km3.h,xm-ns32km3.h}: New files. * blockframe.c (find_pc_partial_function): If we call PSYMTAB_TO_SYMTAB, call target_terminal_ours_for_output first. This is needed now that wait_for_inferior passes in endaddr. * infrun.c: Move call to target_terminal_inferior from proceed to resume. Thu Oct 7 09:22:04 1993 Stu Grossman (grossman at cygnus.com) * blockframe.c (find_pc_partial_function): Fix handling for PCs beyond the end of the last function in an objfile. * coff-solib.c (coff_solib_add): Use BFD to get fields from .lib section. * infrun.c (wait_for_inferior): Modify test for subroutine entry to include pc out of bounds of the previous function. * remote.c (remote_wait): Use strtoul for parsing 'N' message. Add code to relocate symfile_objfile->sections. Thu Oct 7 06:22:43 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/sparc/sun4os4.mh: Add comment saying why we don't use -lresolv. Thu Oct 7 09:29:11 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * breakpoint.c, breakpoint.h (breakpoint_init_inferior): New function that clears the `inserted' flag for all breakpoints and deletes any breakpoints which should go away between runs of programs. * inflow.c (generic_mourn_inferior), infrun.c (init_wait_for_inferior), remote-es.c (es1800_load), comments in exec.c and corelow.c: Use it instead of mark_breakpoints_out. * breakpoint.c (mark_breakpoints_out): Update comment, tm-rs6000.h uses it in a completely different context. * breakpoint.c (breakpoint_re_set_one): Add bp_call_dummy case. Thu Oct 7 09:29:11 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * Makefile.in (REGEX, REGEX1): Always use our own version of regex.c to be consistent across hosts. * source.c (_initialize_source): Initialize regex to use grep style syntax as an approximation to POSIX basic regex syntax. Wed Oct 6 12:43:47 1993 Jeffrey A Law (law@snake.cs.utah.edu) Jim Kingdon (kingdon@lioth.cygnus.com) * hppa-tdep.c (frame_chain): Rework so that it correctly handles boundaries where code with a frame pointer calls code without a frame pointer. (dig_fp_from_stack): New function. Wed Oct 6 12:43:47 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.c (delete_breakpoint): Don't insert a disabled breakpoint. * README: Add Alpha notes from Schauer. Tue Oct 5 15:26:04 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (install, uninstall): Remove $$n.1 stuff; I don't understand what it is trying to do, but I suspect it's not doing it. * config/ns32k/merlin.mh: Add comment about M_INSTALL. * config/m88k/{delta88.mh,delta88v4.mh}: Remove M_INSTALL and M_UNINSTALL; it tries to install a non-existent file gdb.z. * Makefile.in: Remove M_INSTALL stuff; the above were the only uses. * stabsread.c (read_range_type): Remove comment which recommends distinguishing float from complex by the name. Tue Oct 5 12:17:40 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) Jim Kingdon (kingdon@cygnus.com) Stu Grossman (grossman@cygnus.com) Changes to support alpha OSF/1 in native mode. * alpha-nat.c, alpha-tdep.c, config/alpha/alpha-osf1.mt, config/alpha/nm-alpha.h, config/alpha/tm-alpha.h, osfsolib.c: New files. * Makefile.in: Add new files and dependencies. * configure.in: Add alpha target. * config/alpha/alpha-osf1.mh (NATDEPFILES): Add osfsolib.o * config/alpha/alpha-osf1.mh (MH_CFLAGS): Remove, we can handle shared libraries now. * config/alpha/xm-alpha.h: Cleanup, get MAKEVA_* defines right. * defs.h (CORE_ADDR): Make its type overridable via CORE_ADDR_TYPE, provide `unsigned int' default. * breakpoint.c (breakpoint_auto_delete): Delete only if we really stopped for the breakpoint. * stabsread.c, stabsread.h (define_symbol): Change valu parameter to a CORE_ADDR. * stabsread.c (read_range_type): Handle the case where the lower bound overflows and the upper doesn't and the range is legal. * infrun.c (resume): Do not step a breakpoint instruction if CANNOT_STEP_BREAKPOINT is defined. * inferior.h (CALL_DUMMY_LOCATION): New variant AT_ENTRY_POINT. Now that we have the bp_call_dummy breakpoint the call dummy code is no longer needed. PUSH_DUMMY_FRAME, PUSH_ARGUMENTS and FIX_CALL_DUMMY can be used to set up everything for the dummy. The breakpoint for the dummy is set at the entry point and thats it. * blockframe.c (inside_entry_file, inside_entry_func): Do not stop backtraces if pc is in the call dummy at the entry point. * infcmd.c (run_stack_dummy): Handle AT_ENTRY_POINT case. Use the expected breakpoint pc when setting up the frame for set_momentary_breakpoint. * symfile.c (entry_point_address): New function for AT_ENTRY_POINT support. * valops.c (call_function_by_hand): Handle AT_ENTRY_POINT case. Tue Oct 5 11:37:02 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Recognize hppa*-*-hiux* (currently synonym for hpux). Change other hppa host entries to use -*- not -hp-. Mon Oct 4 19:16:14 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * i386-nlmstub.c: New file; debugging stub for i386 NetWare. Must be compiled with NetWare header files and turned into an NLM with nlmconv. Mon Oct 4 11:02:11 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * minsyms.c (lookup_minimal_symbol_by_pc): Don't use mst_abs symbols. * dbxread.c (process_one_symbol): Make n_opt_found static. * Rename i386lynx-tdep.c to i386ly-tdep.c for 14 character file names. * Makefile.in, config/i386/i386lynx.mt: Change accordingly. * values.c (record_latest_value): Fetch lazy values and set VALUE_LVAL to not_lval. Sun Oct 3 15:54:51 1993 Stan Shebs (shebs@rtl.cygnus.com) * objfiles.h (objfile): New slot sym_stab_info, use by most stab-reading formats. * gdb-stabs.h (DBX_SYMFILE_INFO): Access sym_stab_info instead of sym_private. * coffread.c (coff_symfile_init): Alloc struct for sym_stab_info. * dbxread.c, elfread.c, paread.c: Change sym_private references to sym_stab_info references. Sat Oct 2 19:28:35 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mipsread.c, objfiles.c, utils.c: Use PTR not void *. RISC/OS 4.02 lacks void *. * elfread.c: Use void * not PTR inside PARAMS. * config/mips/news-mips.mh: Remove coredep.o; mips-nat.o does it. * config/mips/news-mips.mh: Define NAT_FILE not NM_FILE. * config/mips/nm-news-mips.h: Include mips/nm-mips.h not nm-mips.h. Sat Oct 2 16:05:22 1993 Stu Grossman (grossman at cygnus.com) * Makefile.in, coff-solib.c, coff-solib.h, i386lynx.mt, tm-i386lynx.h: Add support for SVR3 COFF shared libraries. Sat Oct 2 15:50:41 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * m88k-nat.c (store_inferior_registers): When writing all registers, don't try to write EXIP_REGNUM or ENIP_REGNUM (not needed for this case, and they cause trouble). * TODO: Don't suggest doing fast watchpoints by stepping a line at a time. That would be really hairy and still not fast enough. Do suggest debug registers and page table diddling. Fri Oct 1 14:54:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * printcmd.c (do_examine): Make meaning of 'h', 'w', and 'g' not depend on builtin_type_*. Instead, it is always 2, 4, and 8 bytes like the documentation says. * printcmd.c (decode_format) [CC_HAS_LONG_LONG]: Remove 'l' as synonym for 'g'. This was never documented, it shouldn't depend on CC_HAS_LONG_LONG, and I don't see what's wrong with 'g'. Fri Oct 1 10:06:35 1993 Kung Hsu (kung@cirdan.cygnus.com) * symtab.c: fix a bug in testsuite (virtfunc.exp) Thu Sep 30 11:30:56 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * m88k-nat.c (fill_gregset): Fix typo (R_SFIP -> R_FIP). * c-typeprint.c (c_type_print_base, TYPE_FN_FIELD_STUB code): If demangled name lacks a colon, don't dump core. * blockframe.c (find_pc_partial_function): If pst->readin is set, don't try to get symbols from pst. * inflow.c (generic_mourn_inferior): Call reinit_frame_cache instead of doing it ourself. * blockframe.c (reinit_frame_cache): Use code which was in generic_mourn_inferior so we can use this function even when we have switched targets. * corelow.c (core_detach): Call reinit_frame_cache. * target.c (target_detach): Don't call generic_mourn_inferior (revert yesterday's change, now handled by core_detach). * objfiles.c (free_objfile): Detach any core file if we call SOLIB_CLEAR. #include target.h. * fork-child.c (fork_inferior): Don't call target_terminal_init and target_terminal_inferior until we are sure that the inferior has called gdb_setpgid. This fixes PR 2900 (Schauer tracked it down and was able to reliably reproduce it by putting a sleep() before the gdb_setpgid()). Thu Sep 30 12:00:49 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * c-exp.y, m2-exp.y: Change type of address for msymbol to builtin_type_long. * infptrace.c (fetch_register, store_inferior_register, child_xfer_memory): Use PTRACE_XFER_TYPE for the type of ptrace transfers. Provide an `int' default for PTRACE_XFER_TYPE. Thu Sep 30 11:30:56 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * defs.h (TARGET_*_BIT): Don't use host information (sizeof) in picking defaults. * cp-valprint.c (cp_is_vtbl_ptr_type): Continue to accept old form. Thu Sep 30 11:25:55 1993 Kung Hsu (kung@cygnus.com) * cp-valprint.c (cp_is_vtbl_ptr_type): change vtable field name to __vtbl (pr2695). * symtab.c (gdb_mangle_name): fix a bug, to get mangled name right. Wed Sep 29 18:34:22 1993 Stu Grossman (grossman at cygnus.com) * Makefile.in: Add deps for i386lynx-nat.o and i386lynx-tdep.o to keep non-gnu makes happy. Wed Sep 29 10:52:19 1993 Kung Hsu (kung@cygnus.com) * c-valprint.c: to fix virtual table print bug (pr2695). Wed Sep 29 10:52:19 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * target.c (target_detach): Call generic_mourn_inferior. * inflow.c (generic_mourn_inferior): Call flush_cached_frames. Tue Sep 28 23:08:59 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * dbxread.c, coffread.c, elfread.c: A few changes to comments. Tue Sep 28 18:39:37 1993 Stan Shebs (shebs@rtl.cygnus.com) * configure.in: Rename ...-lynx* to ...-lynxos*. Add m68*-*-lynxos* configuration. * dbxread.c (coffstab_build_psymtabs): New function, interfaces coffread.c to dbxread functions. * coffread.c (coff_symfile_info): Expand to include dbx_symfile_info slots. (coff_symfile_init): Init coff_symfile_info struct. (coff_locate_sections): New functions, finds the stab and stabstr sections. (coff_symfile_read): Call coffstab_build_psymtabs if a stab section is present. (coff_section_offsets): Replace fake version with real offsets. Tue Sep 28 18:00:50 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * infcmd.c (run_stack_dummy): Set the frame in the bp_call_dummy breakpoint. Tue Sep 28 17:53:26 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * config/nm-sysv4.h: Include solib.h. Define SVR4_SHARED_LIBS. * config/tm-sysv4.h: Don't include solib.h. * config/xm-sysv4.h: Don't define SVR4_SHARED_LIBS. * config/i386/i386v4.mt (TDEPFILES): Move solib.o from here... * config/i386/i386v4.mh (NATDEPFILES): ...to here. * config/i386/nm-i386v4.h: Include nm-sysv4.h. * config/m68k/amix.mt (TDEPFILES): Move solib.o from here... * config/m68k/amix.mh (NATDEPFILES): ...to here. Tue Sep 28 09:45:38 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symmisc.c (print_symbol): Use %02x not %2x for LOC_CONST_BYTES. Clean up problems with targets and hosts that have 64 bit longs and pointers and 32 bit ints. * breakpoint.c, buildsym.c, c-lang.c, c-valprint.c, ch-lang.c, ch-valprint.c, core.c, cp-valprint.c, dbxread.c, exec.c, expprint.c, gdbtypes.c, infcmd.c, language.c, language.h, m2-lang.c, maint.c, mips-tdep.c, mipsread.c, partial-stab.h, printcmd.c, remote-vx.c, solib.c, source.c, stack.c, symfile.c, symmisc.c, symtab.c, valops.c, valprint.c, xcoffexec.c: Change all printf formats from %x to %lx if outputting an address. Change la_*_format to use long format. local_hex_string, local_hex_string_custom now take an unsigned long argument, change all callers. * coffread.c (read_coff_symtab): Remove superfluous cast for complaint output. * dbxread.c (end_psymtab): Cast MSYMBOL_INFO to long, not int. * findvar.c, value.h (write_register): Change val to LONGEST. * gdbtypes.h (struct type): Change `bitsize' to long as TYPE_FIELD_STATIC_PHYSNAME uses this field as a pointer. * inferior.h (struct inferior_status): Change type of stop_pc to CORE_ADDR. * language.h (local_octal_string, local_octal_string_custom): Remove prototype, the functions are neither defined nor used. * mipsread.c (parse_symbol): Use temporary variable for bitsize as f->bitsize is a long now. * objfiles.c (add_to_objfile_sections, build_objfile_section_table): Use unsigned long casts instead of int for abusing sections_end pointer as integer. * stack.c (parse_frame_specification): Change type of `args' to CORE_ADDR for SETUP_ARBITRARY_FRAME. * printcmd.c (make_vasize): Allow redefinition via MAKEVA_SIZE. * mipsread.c (parse_type): Alpha cc now supports the t->continued bit, update algorithm to match the way the compiler uses it. Tue Sep 28 12:05:11 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * utils.c (fprintfi_filtered): Fix comments. Mon Sep 27 18:10:08 1993 Stu Grossman (grossman at cygnus.com) * coffread.c (read_coff_symtab): Don't call getfilename if there are no auxents. Mon Sep 27 10:22:37 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * symtab.c (find_pc_line): Fix comments. * remote-udi.c (udi_mourn): Don't pop target. Fri Sep 24 17:25:41 1993 Stu Grossman (grossman at cygnus.com) * corelow.c: Add multi thread/process support for core files with .reg/XXX pseudo-sections. * i386lynx-nat.c thread.h thread.c: Remove unnecessary core file support. Thu Sep 23 10:49:37 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-udi.c (download): Skip zero length sections. * valops.c (search_struct_method, value_struct_elt): Use (value)-1, not -1, for error. * infcmd.c (step_1), infrun.c (wait_for_inferior): Add comments about SHIFT_INST_REGS. * exec.c (exec_file_command): Set text_end based on all code readonly sections, not just ".text". * defs.h, infcmd.c, config/z8k/tm-z8k.h, config/m88k/tm-m88k.h, config/sh/tm-sh.h, config/h8300/tm-h8300.h, config/h8500/tm-h8500.h, z8k-tdep.c: Remove all references to ADDR_BITS_SET. * config/m88k/tm-m88k.h: Define TARGET_WRITE_PC. * config/m88k/tm-m88k.h, m88k-tdep.c: Add call function stuff. Thu Sep 23 00:13:06 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/mips/tm-mips.h (STORE_STRUCT_RETURN): Define as noop as the pushing of the struct return address is already handled in mips_push_arguments. * mips-tdep.c (reinit_frame_cache_sfunc): Fix typo in prototype declaration. * mipsread.c (parse_symbol, parse_type, upgrade_type): Add more sanity checks for corrupt symbol entries to avoid core dumps reported by benson@odi.com. Obviously Ultrix 4.3A cc now has the same problems as the OSF/1 alpha cc. * mipsread.c (parse_lines): Iterate over the range of the compressed line number entries, the old iteration sometimes failed to stop and wrote past the end of the LINETABLE. Add sanity check to avoid the same problem in case the line number info is corrupt. * mipsread.c (parse_procedure): Adjust pdr for alpha __sigtramp. * mipsread.c (parse_external, parse_partial_symbols): Ignore stNil symbols that are produced for statics in .o files and stLocal symbols that are produced for every section in OSF/1 dynamically linked executables. * mipsread.c (psymtab_to_symtab_1): Put out `undefined symbols' warning only under `verbose on' as there are many undefined symbols in a dynamically linked executable. Wed Sep 22 10:28:06 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/i960/nindy960.mt: Don't define REMOTE_O; REMOTE_O was intended only for VxWorks. Remove dcache.o from TDEPFILES now that we pick it up from the default REMOTE_O. * breakpoint.c (bpstat_what): Initialize retval.call_dummy and retval.step_resume. * mips-tdep.c (mips_frame_chain): If frame size zero, return zero. * rs6000-tdep.c: Add comment about framelessness. * remote-nindy.c: Declare ninMemGet and ninMemPut. Wed Sep 22 08:02:57 1993 Stu Grossman (grossman at cygnus.com) * Makefile.in: Add i386lynx-tdep to the right places. (TARDIRS): Add gdbserver. * exec.c (print_section_info): Print entry point. * i386lynx-nat.c (i386lynx_saved_pc_after_call): Move into i386lynx-tdep.c. Add core file support. * i386lynx-tdep.c: New module for Lynx/386 target dependant code. * maint.c: Add `maint info sections' command to print info about all sections that BFD knows about for exec and core files. * sparc-tdep.c (sparc_push_dummy_frame): Update stack pointer before putting frame on the stack. Consolidate writes to reduce traffic for remote debugging. * config/i386/i386lynx.mh (NATDEPFILES): Remove exec.o. * config/i386/i386lynx.mt (TDEPFILES): Add exec.o, i386lynx-tdep.o. * config/i386/nm-i386lynx.h: Add target_pid_to_str(). * config/i386/tm-i386lynx.h: Remove target_pid_to_str(). * sparclite/Makefile.in: Add deps to keep Sun make happy. Tue Sep 21 17:48:14 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.h, breakpoint.c (bpstat_stop_status): Add new argument not_a_breakpoint. * infrun.c (wait_for_inferior): Pass it. Also consolidate the test of whether we are stepping into a CURRENTLY_STEPPING macro. Tue Sep 21 17:22:34 1993 K. Richard Pixley (rich@sendai.cygnus.com) * breakpoint.c (bpstat_stop_status), infcmd.c (step_1), infrun.c (wait_for_inferior): collapse SHIFT_INST_REGS ifdef and insert macro. * m88k-tdep.c: include ieee-float.h. new global target_is_m88110. new const struct ext_format_m88110 for float format. (pic_prologue_code): add braces. (next_insn): remove unused variable buf. (frame_find_saved_regs): remove unused variables next_addr, saved_regs, regnum. (frame_locals_address): remove unused variables frame, ap. (frame_args_address): remove unused variables frame, ap. (push_parameters): add some breaks and a default case. * remote-bug.c: remove redundant includes of value.h, target.h, serial.h. (bug_open): corrected typo, sr_multi_scan -> gr_multi_scan. (bug_fetch_register): special case sfip register for m88110. remove flag bit masking of pc registers. This should be handled by the ADDR_BITS_* macros. (bug_store_register): special case sfip register for m88110. Corrected sprint format for extended registers. * config/m88k/tm-m88k.h: white space and comment changes. include ieee-float.h. expanded to cope with m88110 extended registers. (R0_REGNUM, XFP_REGNUM, X0_REGNUM): new macros. (SHIFT_INST_REGS): becomes a real macro. Tue Sep 21 17:48:14 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.c (breakpoint_1): Support bp_call_dummy. Tue Sep 21 17:06:19 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfread.c (record_minimal_symbol_and_info): Guess the section to use from the type. * objfiles.c: Include gdb-stabs.h for SECT_* macros. (objfile_relocate): Relocate textlow and texthigh in psymtabs. Relocate partial symbols. Check that minimal SYMBOL_SECTION is nonnegative before using it. * symtab.h: Adjust section field comment. * remote.c (interrupt_query): New function. (remote_interrupt_twice): Call interrupt_query. (putpkt, getpkt): If quit_flag is set, call interrupt_query. (remote_wait): Don't bother with objfile_relocate if the addresses haven't changed. (remote_fetch_registers): If we see a packet that doesn't start with a hex character, fetch a new one. Tue Sep 21 11:44:00 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote.c, remote-utils.c: Use SERIAL_FLUSH_INPUT after opening it. * printcmd.c (print_scalar_formatted): When truncating value we are going to print as unsigned, handle it generally for any length less than sizeof (LONGEST), rather than special-casing sizeof (char), sizeof (short), and sizeof (long). Clarify comment on what this is for. * symfile.c (deduce_language_from_filename): Accept .cxx for C++. * buildsym.c (start_subfile): Use deduce_language_from_filename rather than checking for .C or .cc ourself. Mon Sep 20 14:53:11 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * defs.h: Declare argument of re_comp as const char *. * remote.c, remote-mips.c: Use sr_get_debug not remote_debug. * README: Say using bfd from another release doesn't generally work. Sat Sep 18 10:13:18 1993 Jim Kingdon (kingdon@poseidon.cygnus.com) * mipsread.c (parse_type): Don't complain() if we guessed struct and it was a union, or vice versa. * defs.h (make_cleanup): Change PTR to void * when inside PARAMS. Some of the following is in #ifdef CALL_DUMMY_BREAKPOINT_OFFSET. * breakpoint.h (enum bptype): Add bp_call_dummy. (struct bpstat_what): Add call_dummy field. * infrun.c (wait_for_inferior): Deal with it. * breakpoint.c (bpstat_what): Deal with call dummy breakpoint. * infcmd.c (run_stack_dummy): Set the call dummy breakpoint. * config/sparc/tm-sparc.h: Define CALL_DUMMY_BREAKPOINT_OFFSET. * remote-sim.h: New file. * remote-sim.c: Add remote debug feature. Rename stuff to distinguish interface to simulator from gdb-specific stuff. Other changes. * remote-sp64sim.c: Renamed to remote-sim.c. Use sr_get_debug instead of our own sim_verbose/simif_snoop. Use gnutarget in call to bfd_openr. Rename simif_* to gdbsim_*. * config/sparc/sp64sim.mt: Change remote-sp64sim.c to remote-sim.c. Fri Sep 17 04:41:17 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * findvar.c (extract_signed_integer): Cast *p to LONGEST before doing the xor and subtract. Otherwise it will not sign extend if the type of LONGEST is larger than int. * cp-valprint.c (cp_print_class_method): Inhibit core dump if domain is an undefined cross reference. * valops.c (call_function_by_hand): Set real_pc to correct value if CALL_DUMMY_LOCATION != ON_STACK. Thu Sep 16 20:37:06 1993 Jim Kingdon (kingdon@cirdan.cygnus.com) * config/a29k/tm-a29k.h (FRAME_CHAIN): If rsize is zero, return zero. Thu Sep 16 13:16:22 1993 Stu Grossman (grossman at cygnus.com) * infrun.c (wait_for_inferior): Allow user to single step within a stack dummy. Thu Sep 16 12:34:01 1993 Jim Kingdon (kingdon@cirdan.cygnus.com) * dbxread.c (copy_pending): Deal with END NULL. (process_one_symbol): Add comments about what common_block NULL means. Wed Sep 15 14:50:26 1993 Jim Kingdon (kingdon@cirdan.cygnus.com) * remote-udi.c, remote-adapt.c, remote-mm.c: Move processor_type to tm-a29k.h and a29k-tdep.c and make it an enum. * a29k-tdep.c (a29k_get_processor_type): New function. Fix many aspects of how we detected the processor type. * remote-udi.c, remote-adapt.c, remote-mm.c (*_open): Call it rather than figuring out the type ourselves. Thu Sep 16 12:12:59 1993 Stu Grossman (grossman at cygnus.com) * sparc-stub.c (_trap_low): Do restore/save sequence after setting sp to ensure that we load the previous window from the right place on the stack. Thu Sep 16 00:36:32 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c: Many changes for alpha ecoff format: Correct sizeof(int) == sizeof(long) assumptions. Replace stParsed hack by putting the parsed types on the pending chain. Replace mips specific ecoff mapping by ECOFF_REG_TO_REGNUM macro, provide default for cross debugging. Swapping the symbol back is no longer needed as the symbol is not modified anymore. Add new alpha basic types, handle btTypedef, handle stStaticProc external symbols . Update and clean up cross_ref for alpha cc cross ref variations. Allocate types on the type_obstack to inhibit storage leaks. * config/mips/tm-mips.h (ECOFF_REG_TO_REGNUM): Define. * gdbtypes.c (recursive_dump_type): Dump TYPE_TAG_NAME if it is set. Tue Sep 14 09:12:17 1993 Jim Kingdon (kingdon@cirdan.cygnus.com) * stabsread.c (read_type): Process "s" (size) type attribute. If type is defined to another type, copy the type. Tue Sep 14 18:37:17 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * config/i386/i386v4.mh (NATDEPFILES): Move exec.o from here... * config/i386/i386v4.mt (TDEPFILES): ...to here. Tue Sep 14 12:21:49 1993 K. Richard Pixley (rich@sendai.cygnus.com) * Makefile.in (remote_utils_h): add serial.h and target.h. (main.o, remote-es.o, remote-nindy.o, remote.o): remove target.h (already in remote_utils_h). (remote-utils.o): new rule. * remote-utils.h: include serial.h. * serial.h: ifdef protect from multiple inclusion. * remote.c, remote-nindy.c, remote-mon.c, remote-es.c: include remote-utils.h. * remote.c (remote_open), remote-nindy.c (nindy_open, nindy_files_info), remote-mon.c (general_open), remote-es.c (es1800_open): use remote-utils facilities for baud rate. Tue Sep 14 09:12:17 1993 Jim Kingdon (kingdon@cirdan.cygnus.com) * paread.c, coffread.c, elfread.c, dwarfread.c: Include and before libbfd.h. * paread.c: Define BYTES_IN_WORD before including aout/aout64.h. * Makefile.in (a29k-tdep.o): Depend on $(defs_h). * config/a29k/tm-a29k.h (SAVED_PC_AFTER_CALL): Use gr122 not lr0 if this is a transparent procedure. Mon Sep 13 16:06:43 1993 Jim Kingdon (kingdon@cirdan.cygnus.com) * remote.c: Define remote_debug to 0 and #if 0 baud_rate. Temporary hack so this file compiles again. * remote-utils.c (gr_multi_scan): Cast return value from alloca. (gr_multi_scan): #if 0 never-reached return(-1). * remote-udi.c (udi_wait): Return inferior_pid not 0. Mon Sep 13 14:14:35 1993 K. Richard Pixley (rich@sendai.cygnus.com) Collect some remote things into remote-utils. * remote-utils.[ch]: new files of functions collected from several different remote targets. * Makefile.in (REMOTE_O): add remote-utils.o. (dcache_h, remote_utils_h): new macros. (HFILES): add $(remote_utils_h). (ALLDEPFILES): add $(remote_utils_h). (dcache.o): new rule. (main.o, remote-bug.o): also depend on $(remote_utils_h). * target.h (remote_debug): extern moved to remote-utils.h. * target.c (find_default_run_target, find_core_target): initialize runable. (remote_debug): moved to remote-utils.c. (_initialize_targets): move declaration of user variable remotedebug to remote-utils.c. * remote-bug.c: include remote-utils.h rather than dcache.h. (bug_close, bug_write, bug_write_cr, desc, bug_dcache, timeout, dev_name, check_open, is_open, readchar, readchar_nofail, pollchar, expect, expect_prompt, get_hex_digit, get_hex_byte, get_hex_word, bug_kill, bug_detach, bug_create_inferior, multi-scan, bug_prepare_to_store, bug_fetch_word, bug_store_word, bug_files_info, bug_mourn, bug_com, bug_device, bug_speed): removed and replaced with facilities from remote-utils.[ch]. (bug_read_inferior_memory): renamed to bug_read_memory. (bug_write_inferior_memory): renamed to bug_write_memory. (bug_xfer_inferior_memory): renamed to bug_xfer_memory. (get_word): comment out this unused function for now. (bug_settings, cpu_check_strings): new statics. (bug_open): rewritten to use gr_open. (_initialize_remote_bug): remove declarations of commands bug, device, speed. * main.c: include remote-utils.h. (baud_rate): removed to remote-utils.c. (main): handle baud rate settings using new facilities from remote-utils. * defs.h (baud_rate): removed extern. m88110 support via bug-197 monitor. * remote-bug.c (get_reg_name, bug_fetch_register, bug_store_register): added m88110 extended register support. (wait_strings): added bug-197 prompt. (bug_wait): cope with bug-197 prompt. (start_load): cope with either bug-197 or bug-187 prompt. Mon Sep 13 12:53:09 1993 Jim Kingdon (kingdon@cirdan.cygnus.com) * inferior.h, infrun.c, thread.c, infcmd.c: Remove all uses of pc_changed. If it was ever set to a non-zero value, it was before GDB 2.8. It doesn't seem to have any useful function. * defs.h: Don't define NORETURN (see comment). Sat Sep 11 10:46:09 1993 Jim Kingdon (kingdon@poseidon.cygnus.com) * m88k-nat.c (fill_gregset): Set r31 and sfip. Thu Sep 9 10:18:29 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-udi.c (udi_wait, case UDIStdinNeeded): Use a loop calling getchar() (terminated only on '\n') instead of scanf. Send the '\n' which terminates it to the remote system. More gcc lint: * exec.c (ignore): Return 0. * stack.c (return_command): Fetch lazy value directly, not via VALUE_CONTENTS, to avoid "value computed is not used". * inflow.c (new_tty): Move osigttou inside #if. * remote.c (remote_fetch_registers): If remote reply is short, just note that fact and keep going (reading extra registers as all bits 0). (remote_store_registers): Send number of registers that were found by remote_fetch_registers. * m68k-tdep.c, config/m68k/tm-m68k.h, config/m68k/tm-*.h: Remove HAVE_68881. Define CANNOT_STORE_REGISTER if ptrace() can't write floating registers. * config/m68k/{tm-m68k-nofp.h,m68k-nofp.mt,tm-m68k-fp.h,m68k-fp.mt}: Remove, replaced by {tm-m68k-em.h,m68k-em.mt}. * Makefile.in, configure.in: Change accordingly. Thu Sep 9 04:59:03 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (cross_ref): Allow SGI extended symbol types as cross reference targets. * symmisc.c (print_symbol): Use TYPE_TAG_NAME not TYPE_NAME to avoid printing of identities. Wed Sep 8 19:18:27 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.c (breakpoint_1): Deal with step resume breakpoint. Wed Sep 8 13:01:10 1993 K. Richard Pixley (rich@cygnus.com) Gcc lint. * config/m88k/tm-m88k.h (frame_find_saved_regs): prototype. * config/h8300/tm-h8300.h (NUM_REGS): rewrite to avoid nested comment. * blockframe.c (get_prev_frame_info): initialize address. * breakpoint.c (bpstat_copy): initialize retval. (bpstat_stop_status): initialize value_is_zero. (bpstat_what): initialize bs_class. (breakpoint_1, mention): add do-nothing case for bp_step_resume. (break_command_1): initialize cond_end, addr_end, & canonical_strings_chain. (enable_breakpoint): initialize save_selected_frame. * buildsym.c (end_symtab): initialize symtab & linetablesize. * c-exp.y (parse_number): initialize i. * c-typeprint.c (c_type_print_varspec_prefix): include TYPE_CODE_BITSTRING in switch statements and do nothing. * c-valprint.c (c_val_print): removed unused variable c. * ch-valprint.c (chill_val_print): removed unused variable eltlen. * cp-valprint.c (cp_print_class_method): initialize f & j. * eval.c (evaluate_subexp): initialize pc2, arg1, arg2. * expprint.c (print_subexp): initialize myprec, assoc, & tempstr. * findvar.c (value_from_register): initialize first_addr. * gdbtypes.c (lookup_struct_elt_type): localize use of temporary variable typename. * infcmd.c (run_stack_dummy): return zero rather than simple return. * infrun.c (wait_for_inferior): initialize stop_sp, prologue_pc. remove symtab, appears unused. (restore_selected_frame): return 1. * mipsread.c (psymtab_to_symtab_1): initialize first_off. (fixup_sigtramp): initialize b0. * printcmd.c (do_examine): initialize val_type. (print_frame_args): initialize b. * ser-tcp.c (tcp_restore): comment out declaration. Appears unused. * ser-unix.c (hardwire_restore): comment out declaration. Appears unused. (hardwire_send_break): moved variable status into ifdef HAVE_SGTTY. (wait_for): moved variable numfds into ifdef HAVE_SGTTY. * serial.h: comment change only. * stabsread.c (rs6000_builtin_type): initialize rettype. (read_range_type): initialize nbits. * stack.c (print_frame_info): remove unused variable numargs. (parse_frame_specification): remove unused variables arg1, arg2, arg3. (return_command): initialize return_value. * symfile.c (cashier_psymtab): initialize pprev. * symtab.c (find_pc_psymbol): initialize best. (lookup_symbol): initialize s. (make_symbol_completion_list): initialize quote_pos. * thread.c: include command.h. (thread_info): static declaration removed; unused. (info_threads_command): fix == vs = typo. * typeprint.c (whatis_exp): initialize old_chain. * valprint.c (val_print_string): remove unused variable first_addr_err. Initialize old_chain. (_initialize_valprint): white space comment change. * values.c (show_values): rewrite if statement to avoid empty body. (vb_match): remove unused variable fieldtype_target_type. Wed Sep 8 10:21:33 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (mipsread.o): Depend on $(bfd_h). Tue Sep 7 13:06:44 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbserver/Makefile.in (TAGS): config files are in $(srcdir)/../config, not $(srcdir)/config. * config/pa/tm-hppa.h: Declare target_read_pc and target_write_pc. (STORE_RETURN_VALUE): Pass the correct offset of the return register to write_register_bytes. * hppa-tdep.c: Use target_write_pc if PCOQ_TAIL_REGNUM was not saved. Tue Sep 7 14:30:34 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * remote.c (remote_wait): Don't call error. Instead, call warning inside a loop. User can ^C to get out. * config/m68k/tm-m68k.h (FIX_CALL_DUMMY): Changed name of swapping routine to match BFD name change. * config/z8k/tm-z8k.h (FIX_CALL_DUMMY): Likewise. Mon Sep 6 15:01:57 1993 Jeffrey Wheat (cassidy@cygnus.com) * elfread.c: change elf32_symbol_type to elf_symbol_type Mon Sep 6 15:43:25 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * remote.c (remote_wait): Added 'W' and 'N' responses. Fri Sep 3 08:57:10 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * main.c, utils.c: Add comments about immediate_quit. * elfread.c (elf_symtab_read): Don't add symbols starting with ".L" to minimal symbols. * target.c (pop_target): Don't try to deal with the stack becoming empty. Shouldn't happen and the code that tried was broken. * dcache.c: Cast return value from xmalloc. * remote.c: Move setting of immediate_quit from remote_open to remote_start_dummy and set it back to zero when done. Thu Sep 2 00:07:36 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * m88k-tdep.c: Remove a bunch of unused #includes. * language.h: Add comment about current_language. * mips-tdep.c (_initialize_mips_tdep): Change heuristic-fence-post from var_uinteger to var_zinteger. * configure.in: Fix typo (delta88r4 -> delta88v4). * config/m88k/xm-delta88.h: Don't include sys/siginfo.h. It was to make this work on SVR4 before SVR4 had its own configuration, and it breaks SVR3. * config/m88k/tm-delta88v4.h: Define FRAME_CHAIN_VALID_ALTERNATE. * config/m88k/delta88v4.h (NATDEPFILES): Remove infptrace.o inftarg.o. * config/m88k/xm-dgux.h: Renamed from config/m88k/xm-m88k.h. * config/m88k/m88k.mh: Use xm-dgux.h. * config/m88k/xm-m88k.h: New file, with HOST_BYTE_ORDER, MAKEVA_END and MAKEVA_ARG. * config/m88k/xm-*.h: Include m88k/xm-m88k.h. * printcmd.c: Remove __INT_VARARGS_H code; now in xm-m88k.h. Wed Sep 1 19:31:28 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-udi.c (udi_wait): Call `warning' not `error'. * symtab.c (COMPLETION_LIST_ADD_SYMBOL): If the symbol has a demangling, don't put the mangled form in the completion list. * symtab.c, symfile.c, c-exp.y, ch-exp.y, m2-exp.y, buildsym.c, symfile.h, stabsread.c, minsyms.c, solib.c, nlmread.c, dwarfread.c partial-stab.h, symmisc.c, gdbtypes.c: Lint. Remove (or put inside #if) unused variables and labels. Fix unclosed comment. Deal with enumeration values unhandled in switch statements. Make sure non-void functions return values. Include appropriate headers. * dbxread.c (elfstab_build_psymtabs): Don't check for unsigned value < 0. Wed Sep 1 14:36:00 1993 K. Richard Pixley (rich@sendai.cygnus.com) * i960-tdep.c, ns32k-pinsn.c, remote-adapt.c, xcoffread.c: index -> strchr. Wed Sep 1 11:35:49 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote.c: Add comment explaining why dcache is disabled. (remote_fetch_word, remote_store_word): Make static and #if 0. They are not called from anywhere. Wed Sep 1 14:41:28 1993 K. Richard Pixley (rich@sendai.cygnus.com) * arm-tdep.c, convex-tdep.c, convex-xdep.c, dbxread.c, h8300-tdep.c, h8500-tdep.c, i960-pinsn.c, i960-tdep.c, infptrace.c, m88k-tdep.c, mips-tdep.c, regex.c, remote-vx.c, rs6000-tdep.c, xcoffexec.c, xcoffread.c, z8k-tdep.c, config/arm/tm-arm.h, config/convex/tm-convex.h, config/gould/tm-np1.h, config/gould/tm-pn.h, config/m68k/tm-isi.h, config/ns32k/tm-umax.h, config/pa/tm-hppa.h, config/pyr/tm-pyr.h, config/rs6000/tm-rs6000.h, config/tahoe/tm-tahoe.h, config/vax/tm-vax.h: bzero -> memset. * regex.c: bcmp -> memcmp. Wed Sep 1 11:35:49 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * symtab.c (find_pc_line, find_line_common), symtab.h (struct linetable), xcoffread.c (arrange_linetable): Revise comments re linetable sorting. * buildsym.c (compare_line_numbers): Sort by pc, not by line. * coffread.c: Tell end_symtab to sort the line table. * coffread.c: Re-work a lot of the coff-specific stuff to use stuff in buildsym.c. This includes coff_finish_block, coff_context_stack, coff_local_symbols, coff_file_symbols, coff_global_symbols, coff_end_symtab and coff_add_symbol_to_list. (read_enum_type): Deal with it now that we have a "struct pending" not a "struct coff_pending". * buildsym.c (end_symtab): Don't realloc subfile->linetable. Wed Sep 1 13:12:43 1993 K. Richard Pixley (rich@sendai.cygnus.com) * a68v-nat.c, altos-xdep.c, convex-tdep.c, convex-xdep.c, findvar.c, hppab-nat.c, hppah-nat.c, i386mach-nat.c, irix4-nat.c, m68k-tdep.c, m88k-tdep.c, mipsread.c, regex.c, remote-bug.c, remote-hms.c, rs6000-nat.c, rs6000-tdep.c, sparc-nat.c, stabsread.c, sun3-nat.c, sun386-nat.c, symfile.c, umax-xdep.c, xcoffread.c, 29k-share/udi/udip2soc.c, 29k-share/udi/udr.c, config/a29k/tm-a29k.h, config/arm/tm-arm.h, config/convex/tm-convex.h, config/gould/tm-np1.h, config/gould/tm-pn.h, config/h8300/tm-h8300.h, config/h8500/tm-h8500.h, config/i386/tm-i386aix.h, config/i386/tm-sun386.h, config/i386/tm-symmetry.h, config/i960/tm-i960.h, config/m68k/tm-news.h, config/m88k/tm-m88k.h, config/mips/tm-mips.h, config/ns32k/tm-merlin.h, config/ns32k/tm-umax.h, config/pa/tm-hppa.h, config/pyr/tm-pyr.h, config/rs6000/tm-rs6000.h, config/sh/tm-sh.h, config/tahoe/tm-tahoe.h, config/vax/tm-vax.h, config/z8k/tm-z8k.h, nindy-share/nindy.c: bcopy -> memcpy. Wed Sep 1 05:05:53 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (parse_partial_symbols): Use language from FDR if it is unambigous. Patch from ptf@delcam.co.uk (Paul Flinders). * mipsread.c (ecoff_symfile_info): New struct to hold the global pending_list. * mipsread.c (mipscoff_symfile_init, parse_partial_symbols): Allocate the global pending list and link it to the objfile. * mipsread.c (is_pending_symbol, add_pending): Use global pending list from objfile. Allocate pending list entries from the psymbol_obstack. * mipsread.c (free_pending): Remove. The pending list is now freed when the psymbol_obstack is freed. * mipsread.c (psymtab_to_symtab1): Remove pending list allocation, the global pending list is used now. * mipsread.c (parse_partial_symbols): Skip only the first file indirect entry when building the dependency list. Tue Aug 31 15:01:27 1993 K. Richard Pixley (rich@sendai.cygnus.com) Break dcache code out of remote.c. * dcache.h: white space changes only. * dcache.c: add user settable variable to set whether data caching is in use. * remote.c: include dcache.h. removed data caching code which is now in dcache.c. Compile in data caching again. (data caching is currently off by default.) (remote_read_bytes, remote_write_bytes): change second arg to unsigned char. (remote_dcache): new static variable. * Makefile.in (REMOTE_O): add dcache.o. * config/m88k/m88k.mt (TDEPFILES): removed dcache.o. Break dcache code out of remote-nindy.c. * remote-nindy.c: removed dcache code. Changed callers to use new conventions. include dcache.h. (nindy_dcache): new static variable. * config/i960/nindy960.mt (TDEPFILES): added dcache.o. Break dcache code out of remote-bug.c into dcache.[hc]. * Makefile.in (dcache_h): new macro. (HFILES): added $(dcache_h). (ALLDEPFILES): added dcache.c. (dcache.o): new rule. (remote-bug.o): now depends on $(dcache_h). * remote-bug.c: include dcache.h. remove externs for insque and remque, add extern for bcopy. Prototype bug_close, bug_clear_breakpoints, bug_write_cr. dcache code moved to dcache.[hc]. Changed dcache calling convention to include an initial DCACHE argument. (bug_dcache): new static variable. (bug_read_inferior_memory): change second arg to unsigned char. * dcache.[ch]: new files. * config/m88k/m88k.mt (TDEPFILES): add dcache.o. Tue Aug 31 10:33:13 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * c-typeprint.c (c_print_type_base): Treat show = 0 just like show < 0. The only case where we had been distinguishing is that show = 0 used to print "struct " or "enum " instead of "struct {...}" or "enum {...}" which seems clearly wrong. Mon Aug 30 17:51:32 1993 K. Richard Pixley (rich@sendai.cygnus.com) * configure.in: recognize m88110 as an m88k. Mon Aug 30 16:07:59 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * valops.c (call_function_by_hand): If we discard cleanups, call bpstat_clear (&inf_status.stop_bpstat). Mon Aug 30 12:47:46 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * stabsread.h, dbxread.c (end_psymtab): Return NULL if the psymtab was empty and thrown away. * mipsread.c (parse_partial_symbols): Do not add empty psymtabs to dependency list, skip self dependencies. * mipsread.c (parse_fdr): Removed, obsolete. * mipsread.c (parse_lines): Check for cbLine being zero, not cbLineOffset. * mipsread.c (struct symloc): Add pst_language. * mipsread.c (parse_partial_symbols): Set up proper language for header files, save it in pst_language for psymtab_to_symtab_1. * mipsread.c (psymtab_to_symtab_1): Use pst_language. Mon Aug 30 10:48:06 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Fix typo m88*-motorola-svr4* -> sysv4*. Fri Aug 27 17:09:19 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * paread.c: Include som.h instead of libhppa.h. (From Utah.) Fri Aug 27 09:30:40 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * symmisc.c (dump_symtab): Use catch_errors around print_symbol. Change calling sequence of print_symbol to fit catch_errors. * mips-tdep.c: Call reinit_frame_cache every time the user does "set heuristic-fence-post". * gdbserver/low-sun3.c: New file. * gdbserver/Makefile.in, config/m68k/sun3.mh: Change accordingly. * Rename files for 14-character limits: gdbserver/remote-gutils.c -> gdbserver/utils.c gdbserver/remote-inflow.c -> gdbserver/low-lynx.c gdbserver/remote-inflow-sparc.c -> gdbserver/low-sparc.c gdbserver/remote-server.c -> gdbserver/server.c remote-monitor.c -> remote-mon.c * Makefile.in, gdbserver/Makefile.in, gdbserver/configure.in, config/m68k/monitor.mt, config/i386/i386lynx.mh, config/sparc/sun4os4.mh: Change accordingly. * gdbserver/Makefile.in: Remove more junk inherited from gdb Makefile. Thu Aug 26 14:32:51 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * infcmd.c, inferior.h (run_stack_dummy): If we stop somewhere besides the dummy, return 1 rather than calling error(). Let caller print the error message. Remove name argument. * valops.c (call_function_by_hand): Deal with changes to calling sequence of run_stack_dummy. Discard restore_inferior_status cleanup if run_stack_dummy returns 1. * Version 4.10.2. * config/mips/tm-mips.h (EXTRACT_STRUCT_VALUE_ADDRESS): Get struct return address from v0, not a0. * infrun.c (restore_inferior_status): Use catch_errors when restoring selected frame. Wed Aug 25 21:52:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * infrun.c (save_inferior_status, restore_inferior_status): Save and restore the registers too. * inferior.h (struct inferior_status): Add "registers". Tue Aug 24 00:36:17 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * dbxread.c (end_psymtab): Clean up comment. * frame.h, symtab.h, findvar.c (read_var_value): Change basereg support to use LOC_BASEREG rather than SYMBOL_BASEREG_VALID. * dwarfread.c: Use LOC_BASEREG where appropriate. * Various: Support LOC_BASEREG and LOC_BASEREG_ARG. * coffread.c (init_lineno, init_stringtab): Don't check whether xmalloc returned NULL. * config/vax/xm-vaxult.h: Define NO_PTRACE_H. * target.c, target.h: Add "set remotedebug" command. * remote-bug.c, remote.c, remote-mips.c: Remove "set remotedebug" and "set m88ksnoop" options and use generic "set remotedebug" instead. * NEWS: Describe this change. Mon Aug 23 20:26:22 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * buildsym.h: Remove declaration of dbxread.c functions. * stabsread.h: Group together dbxread.c functions. Move elfstab_build_psymtabs here from symfile.h. Declare pastab_build_psymtabs. * elfread.c, paread.c: Include stabsread.h (for stabsread_new_init declaration, etc). Mon Aug 23 17:16:23 1993 K. Richard Pixley (rich@sendai.cygnus.com) * remote-bug.c: rename quiet to bug88k_snoop. (double_scan, multi_scan): generalize double_scan into a scan for multiple patterns. Rename to multi_scan. (bug_wait, bug_write_inferior_memory): adapt to use the new multi_scan in order to catch and represent target bus errors. (bug_scan): currently unused, so comment out. (bug_quiet): removed. Replaced with a standard user settable boolean. * m88k-tdep.c: remove include of sys/dir.h. Appears unnecessary and isn't available on solaris. Mon Aug 23 14:56:42 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/m88k/{delta88v4.mt,delta88v4.mh}: New files * config/m88k/delta88.mh: Fix comment. * config/m88k/tm-delta88.h: Remove unused BCS define. * config/m88k/{tm-delta88v4.h,xm-delta88v4.h,nm-delta88v4.h}: New files. * configure.in: Recognize m88*-motorola-sysv4*. * m88k-nat.c: Always include sys/types.h; don't depend on USG. Mon Aug 23 12:57:42 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (parse_symbol, parse_type, cross_ref): Pass name of symbol as an argument and use it in complaints. * symmisc.c (dump_psymtab): Dump filenames of dependencies. Mon Aug 23 1993 Sean Fagan (sef@cygnus.com) and Jim Kingdon (kingdon@cygnus.com) Add NetBSD support: * configure.in: Recognize netbsd. Fri Aug 20 14:01:39 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-nindy.c: Remove unused include of sys/ioctl.h. * frame.h, symtab.h: Revise comments regarding baseregs. Fri Aug 20 15:07:05 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (parse_partial_symbols, psymtab_to_symtab_1): Set language for psymtab and symtab. * mipsread.c (new_symbol): Set language and initialize demangled name for symbol. * symmisc.c (print_symbol): Use SYMBOL_SOURCE_NAME when printing the symbol type. * symtab.c (decode_line_1): Inhibit coredumps with cfront executables. Fri Aug 20 14:01:39 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Move KERNEL_U_ADDR from xm-hp300bsd.h to nm-hp300bsd.h and make it conditionalized on 4.3 vs. 4.4. * config/m68k/nm-hp300bsd.h: Move REGISTER_U_ADDR out of 4.3 and 4.4 sections; it was identical and now works for 4.4. * mips-tdep.c (is_delayed): Use INSN*BRANCH* not ANY_DELAY. * printcmd.c (MAKEVA_END): Update this version to use "aligner". Thu Aug 19 22:08:09 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/vax/tm-vax.h (BELIEVE_PCC_PROMOTION): Define. * mipsread.c (parse_symbol, parse_type, cross_ref): Handle corrupt file indirect entries with complaints instead of core dumps. Remove complaint for stTypedef within aggregates. Thu Aug 19 17:58:39 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * coffread.c (process_coff_symbol): Ignore tagnames like .0fake. * coffread.c (coff_read_enum_type): #if 0 out code which changes enum {FALSE, TRUE} into boolean. * config/m68k/delta68.m{t,h}: Use nm-delta68.h, etc. not non-existent files nm-delta.h, etc. * config/m68k/tm-delta68.h: Define CANNOT_STORE_REGISTER. * delta68-nat.c: Add "[0]" in offsetof argument. * delta68-nat.c (_initialize_kernel_u_addr): Don't try to set up nl with initializer, just assign to it. Check n_scnum field on return. Wed Aug 18 12:03:00 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * printcmd.c (print_address), values.c (value_as_pointer): Don't use ADDR_BITS_REMOVE. * defs.h: Try to clarify comment about ADDR_BITS_REMOVE. * blockframe.c (block_innermost_frame): Uncomment. Return NULL if passed NULL. * frame.h: Declare it. * expression.h (union exp_element): Add field block. * parse.c (write_exp_elt_block): New function. * expression.h (OP_VAR_VALUE): Now takes additional struct block *. * *-exp.y: Write block for OP_VAR_VALUE. * eval.c, expprint.c, parse.c: Deal with block for OP_VAR_VALUE. * valops.c, value.h (value_of_variable), callers: Add second argument, for block. * main.c (gdb_readline): If we read some characters followed by EOF, return them rather than returning NULL. Tue Aug 17 11:14:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mips-tdep.c: Remove unused #ifndef NUMERIC_REG_NAMES and add comment. Tue Aug 17 15:10:04 1993 K. Richard Pixley (rich@sendai.cygnus.com) * config/m88k/tm-m88k.h: Fix typo in comment. (FP_REGNUM): define in terms of SP_REGNUM rather than by absolute number. Also clearly comment that this is a convenient lie in order to decrease future confusion. (ACTUAL_FP_REGNUM): new macro for FP. (FRAME_CHAIN_VALID): removed. Standard default works fine. * m88k-tdep.c (frame_chain_valid): redundant, so removed. (NEXT_PROLOGUE_INSN): removed unused fourth arg, fixed all callers. (read_next_frame_reg): declare static. (examine_prologue): removed unused variabel insn2, rename insn1 to insn, rewrote comment about finding fp, sp, etc. set frame_fp based on ACTUAL_FP_REGNUM rather than FP_REGNUM which is actually a scammed alias for SP_REGNUM on m88k. * frame.h: fixed typo in comment. Tue Aug 17 11:14:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * 29k-share/udi/udiphcfg.h: Always include udiphunix.h not udiphdos.h. * complaints.c (complain): fflush (stdout) after output. Tue Aug 17 01:43:55 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * blockframe.c, frame.h (sigtramp_saved_pc): New routine to fetch the saved pc from sigcontext on the stack for BSD signal handling. * config/i386/tm-i386bsd.h (SIGTRAMP_START, SIGTRAMP_END, FRAME_CHAIN, FRAMELESS_FUNCTION_INVOCATION, FRAME_SAVED_PC, SIGCONTEXT_PC_OFFSET): Define to make backtracing through sigtramp work. * config/vax/tm-vax.h (SIGTRAMP_START, SIGTRAMP_END, TARGET_UPAGES, FRAME_SAVED_PC, SIGCONTEXT_PC_OFFSET): Ditto. Mon Aug 16 13:52:14 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * main.c (cd_command): If current_directory on entry is "/", then don't append an extra slash. Don't assume that /../.. means /. * target.c (target_xfer_memory): Clear errno before calling to_xfer_memory. * stack.c (frame_info, print_frame_info): Add comment about using the starting source line number on a line boundary if backtracing through sigtramp. Mon Aug 16 02:56:01 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * blockframe.c (create_new_frame, get_prev_frame_info): Use the function name when calling IN_SIGTRAMP. * config/m68k/tm-m68k.h (SIG_PC_FP_OFFSET, SIG_SP_FP_OFFSET): Define for correct handling of bachtraces through _sigtramp. * m68k-tdep.c (m68k_find_saved_regs): Adjust saved sp for fake sigtramp frames. * mipsread.c (parse_type): Handle corrupt TIR info with complaint instead of core dump. * mipsread.c (parse_partial_symbols): Put static symbols into the mimimal symbol table, use proper mst_types for all minimal symbols. * stack.c (frame_info, print_frame_info): Use the starting source line number on a line boundary if backtracing through sigtramp. Fri Aug 13 14:37:05 1993 K. Richard Pixley (rich@sendai.cygnus.com) * remote-bug.c: include gdbcmd.h. (sleep, remque, insque): forward decls added. (bug_fetch_registers, bug_store_registers): forward decls removed. (bug_read_inferior_memory, bug_write_inferior_memory): forward decls added. (srec_frame, srec_max_retries, srec_bytes, srec_echo_pace, srec_sleep, srec_noise): new static variables for user settable options. Mostly these are for debugging and tuning. I don't expect them to stay user settable options for long. (timeout): change default to 4 seconds. (check_open): declare funtion static, force return value. (readchar_nofail): if timeout, then say so if not being quiet. (pollchar, double_scan, bug_scan, bug_srec_write_cr, start_load): new functions. (bug_wait): rewritten to use double scan. (expect): while (1) -> for (;;) (get_hex_digit): rewrite if condition to avoid gcc complaints. (bug_load, bug_create_inferior, bug_open, bug_store_register): removed unused variables. (bug_load): replaced DELTA macro with user settable srec_frame variable. Other minor lint. (find_end_of_word, is_baudrate_right, set_rate, not_bug_wait, gethex, timed_read, translate_addr, bug_before_main_loop): unsused and removed. (bug_resume): add missing first arg, pid. (get_reg_name): use ip rather than cr04. (bug_write, bug_write_cr, but_clear_breakpoints, bug_quiet): declare type, args, and explicitly return. (bug_store_register): straighten out the ip vs cr04 confusion. (bug_write_inferior_memory): rewrite to cope with errors while downloading s-records. (bug_read_inferior_memory): declare static. (bug_clear_breakpoints): expect nobr before prompt. (_initialize_remote_bug): add initializations for srec-bytes, srec-max-retries, srec-frame, srec-noise, srec-sleep, srec-echo-pace. * Makefile.in (remote-bug.o): new rule. (ALLDEPFILES): added remote-bug.c * remote-hms.c (hms_wait): use -1 for timeout's which means block forever rather than 99999. * ser-unix.c (get_tty_state): if a descriptor is not a tty, then simply save encode this fact as the process group and return success rather than an error. (set_tty_state): if process group is -1, do not reset the process group. (hardwire_reachar): comment change. * serial.h: comment change. * config/m88k/tm-m88k.h: comment change to remove embedded comment. (SKIP_PROLOGUE): skip_prologue returns a value which is expected to reset the pc argument. So reset it. Fri Aug 13 10:15:24 1993 Fred Fish (fnf@deneb.cygnus.com) * Makefile.in (VERSION): Bump to 4.10.1 after release and cvs tagging. Thu Aug 12 20:40:14 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbserver/Makefile.in: Use GDBSERVER_LIBS and GDBSERVER_DEPFILES. Also remove much (but not all that could be removed) crud inherited from gdb Makefile.in. * config/i386/i386lynx.mh, config/sparc/sun4os4.mh: Define GDBSERVER_*. * gdbserver/README: Say it works on Sun and change configuration instructions slightly. Wed Aug 11 18:56:59 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * config/i386/i386v4.mh: use -lsocket and -lnsl, for remote targets that use BSD style network connections Wed Aug 11 17:54:24 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-{monitor,bug}.c: Make bug_ops not static (forward declaration of statics doesn't work with SunOS4 /bin/cc). Rename the occurrence in remote-monitor.c to monitor_bug_ops. Tue Aug 10 13:07:14 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * blockframe.c (find_pc_partial_function), mips-tdep.c (find_proc_desc): Deal with "pathological" case. Tue Aug 10 14:50:30 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * utils.c (wrap_here): Allow indent to be NULL. (fputs_filtered): Don't check for null wrap_indent (wrap_here now guarantees that it isn't, and anyway we were only checking one out of the two places we dereferenced it). * objfiles.h (struct objfile): Clean up comments for {obj,sym}_private to clarify what they are private to. Mon Aug 9 16:45:00 1993 Stan Shebs (shebs@rtl.cygnus.com) * stabsread.c, buildsym.c (hashname): Moved function to buildsym.c, as suggested in the sources. Mon Aug 9 09:53:45 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-udi.c: Make udi_ops extern rather than trying forward declaration of a static variable. * hppab-nat.c: Define ptrace to call_ptrace and pass the 5th arg there, rather than using an ANSI C specific macro. * 29k-share/udi/udr.c: Include fcntl.h not sys/fcntl.h. Also put sys/types.h near the top (just on general principles). * environ.c (set_in_environ): Remove G960BASE and G960BIN; they are no longer used. * gdbcore.h: New variable gnutarget. * core.c: Add commands to set and show it. * Callers to bfd_*open*: Pass gnutarget instead of NULL as target. * environ.c (set_in_environ): For GNUTARGET, use set_gnutarget not putenv. * symtab.c (decode_line_1): Give error on unmatched single quote. Sun Aug 8 13:59:49 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * ser-unix.c (hardwire_send_break) [HAVE_SGTTY]: Use select not usleep. * remote.c: Add comments about 'd', 'r', and unrecognized requests. * inflow.c (terminal_init_inferior): Don't muck with tty state if gdb_has_a_terminal() is false. Sun Aug 8 10:07:47 1993 Fred Fish (fnf@cygnus.com) * dwarfread.c (record_minimal_symbol): Remove prototype and function. * dwarfread.c (add_partial_symbol): Remove code to add minimal symbols and remove comment about limitations. Experiments show that now that gdb handles the ELF symtab better for creating minimal symbols, that no additional information is added by examining the DWARF information, and in fact, given the limitations, the DWARF code was actually making things worse. Sat Aug 7 10:59:03 1993 Fred Fish (fnf@deneb.cygnus.com) * elfread.c (elf_symtab_read): Properly sort out the bss symbols from the data symbols and give them the correct minimal_symbol_type. Add file static symbols to the minimal symbol table, not just global symbols. Add absolute symbols as well (like _edata, _end). Redo stabs-in-elf special symbol handling now that file static symbols are entered into the into the minimal symbol table. * dwarfread.c (add_partial_symbol): Add comment about limitations of DWARF symbols for distinquishing data from bss when adding minimal symbols. Add file local symbols to minimal symbols. Thu Aug 5 08:58:58 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * ser-go32.c: Define job_control variable. Thu Aug 5 15:56:13 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * configure.in: z8k-coff is the same as z8k-sim Thu Aug 5 08:58:58 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * 29k-share/udi/udip2soc.c: Include sys/types.h before sys/file.h. * config/i386/tm-i386bsd.h (NUM_REGS): There are only 10, not 11. * inflow.c: Put all uses of F_GETFL and F_SETFL in #ifdef F_GETFL. * 29k-share/udi/udip2soc.c: Include fcntl.h not sys/fcntl.h. Wed Aug 4 18:32:12 1993 Fred Fish (fnf@cygnus.com) * inflow.c (pass_signal): Signal handlers take one int arg; supply an unused one to make it type compatible as an arg to signal(). Tue Aug 3 18:34:14 1993 Ian Lance Taylor (ian@cygnus.com) * config/mips/tm-mips.h: Include bfd.h before coff/sym.h. Tue Aug 3 15:34:57 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (ALLCONFIG): Add config/i386/i386nw.mt, config/m68k/delta68.mh, config/m68k/delta68.mt, config/m68k/dpx2.mh, config/m68k/dpx2.mt, config/mips/riscos.mh, config/mips/news-mips.mh. * Makefile.in (ALLPARAM): Add config/i386/nm-symmetry.h, config/i386/tm-i386nw.h, config/m68k/nm-delta68.h, config/m68k/tm-delta68.h, config/m68k/xm-delta68.h, config/m68k/nm-dpx2.h, config/m68k/tm-dpx2.h, config/m68k/xm-dpx2.h, config/mips/xm-makeva.h. * Makefile.in (ALLDEPFILES): Add dpx2-nat.c. Tue Aug 3 12:02:09 1993 Ian Lance Taylor (ian@cygnus.com) * mipsread.c: Updated for BFD ECOFF changes. Now gets the swapping routines and external structure sizes via the ecoff_backend information. No longer includes coff/mips.h. Tue Aug 3 10:58:04 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (SFILES): Add thread.c Tue Aug 3 10:21:58 1993 Doug Evans (dje@canuck.cygnus.com) * remote-sp64sim.c (simif_create_inferior): Add FIXME regarding sim_set_args return code. Mon Aug 2 16:35:31 1993 K. Richard Pixley (rich@sendai.cygnus.com) * Makefile.in (VERSION): bumped to 4.9.4. * remote-monitor.c: updated copyright. (bug_ops, monitor_desc): now static. (monitor_desc): in several places, check and/or set to NULL. * remote-hms.c (hms_files_info): Add the appropriate items where missing in the printf call. * remote-bug.c: new file for m88k bug support. * config/m88k/m88k.mt (TDEPFILES): added remote-bug.o. Mon Aug 2 14:22:09 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * h8300-tdep.c: Use new variable h8300hmode. Mon Aug 2 12:06:00 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * valops.c (typecmp): If we are passing a non-reference to a function which takes a reference, pass the address. (value_arg_coerce): Don't use COERCE_ENUM; we don't want to dereference references here. * thread.c (thread_switch): Define as static. (add_thread): Cast return value from xmalloc. * gdbtypes.c (fill_in_vptr_fieldno): Call check_stub_type. * gdbtypes.{c,h}: Improve comments on vptr_fieldno. Mon Aug 2 11:58:52 1993 Fred Fish (fnf@deneb.cygnus.com) * README: Elaborate on gdb C++ support and cfront support. Mon Aug 2 11:30:57 1993 Stu Grossman (grossman at cygnus.com) * i386lynx-nat.c, thread.c, thread.h: Update copyrights. Mon Aug 2 12:06:00 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (ALLDEPFILES): Add i386lynx-nat.c. Mon Aug 2 08:42:50 1993 Stu Grossman (grossman at cygnus.com) * gdbserver/remote-inflow.c (create_inferior): Fix comments, and error msg. Setup seperate process group for child. * (write_inferior_memory): Sleep for 1 second and retry on ptrace failure. Sun Aug 1 22:58:18 1993 Stu Grossman (grossman at cygnus.com) * config/i386/i386lynx.mh (NATDEPFILES): Drop coredep (for now). * config/i386/nm-i386bsd.h: Protect from multiple inclusion. * config/i386/nm-i386lynx.h: Lotsa new host porting stuff. * config/i386/tm-i386lynx.h: Define SAVED_PC_AFTER_CALL and target_pid_to_str. * Makefile.in (CLIBS): Reorder to make Lynx ld happy. * (HFILES): New file thread.h. * (OBS): New file thread.c. * configure.in: Host config for Lynx/386. * fork-child.c (fork_inferior): Call init_thread_list(). * infrun.c (resume): Add pid to invocation of target_resume(). * (wait_for_inferior): Pay attention to pid from target_wait(). Multi-threading code now uses this to determine what to do. * inftarg.c (child_wait): Conditionalize based on CHILD_WAIT macro. Use target_pid_to_str() macro throughout when printing pid. * inferior.h (child_resume): Add pid to prototype. * hppab-nat.c hppah-nat.c infptrace.c (child_resume): Pass in pid as argument, instead of using inferior_pid. * procfs.c (procfs_resume): Pass in pid as argument. Ignored for now. Use target_pid_to_str() macro throughout for printing process id. * remote-adapt.c (adapt_resume): Pass in pid as argument. * remote-eb.c (eb_resume): Pass in pid as argument. * remote-es.c (es1800_resume): Pass in pid as argument. * remote-hms.c (hms_resume): Pass in pid as argument. * remote-mips.c (mips_resume): Pass in pid as argument. * remote-mm.c (mm_resume): Pass in pid as argument. * remote-monitor.c (monitor_resume): Pass in pid as argument. * remote-nindy.c (nindy_resume): Pass in pid as argument. * remote-sa.sparc.c (remote_resume): Pass in pid as argument. * remote-sim.c (rem_resume): Pass in pid as argument. * remote-sp64sim.c (simif_resume): Pass in pid as argument. * remote-st.c (st2000_resume): Pass in pid as argument. * remote-udi.c (udi_resume): Pass in pid as argument. * remote-vx.c (vx_resume): Pass in pid as argument. * remote-z8k.c (rem_resume): Pass in pid as argument. * remote.c (remote_resume): Pass in pid as argument. * solib.c (solid_create_inferior_hook): Pass inferior_pid to target_resume(). * target.c (normal_pid_to_str): New routine to print out process ID normally. * target.h (struct target_ops): Add pid to prototype at to_resume(). (target_resume): Add pid argument. * (target_pid_to_str): Default definition for normal type pids. * thread.h, thread.c: New modules for multi thread/process control. Sun Aug 1 13:02:42 1993 John Gilmore (gnu@cygnus.com) * README: Say that bug-gdb is also the place to send requests for help with GDB. Sun Aug 1 09:42:13 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (make-proto-gdb-1): Use -f opt on rm of Makefile. * h8500-tdep.c: Add parens around a few macro args. Fri Jul 30 15:43:49 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * TODO: Remove items about unix-to-unix/rapp debugging (now we have gdbserver), moving xm files to subdirectory, ptype yylval, and file-local symbols. * gdbtypes.h: Improve comments about C++ methods. Fri Jul 30 14:16:32 1993 Fred Fish (fnf@deneb.cygnus.com) * c-exp.y: Add missing 5th arg for one call to lookup_symbol, cast NULL in all other calls to correct pointer types. Fri Jul 30 15:43:49 1993 Jim Kingdon (kingdon@lioth.cygnus.com) From Jeffrey Law: * tm-hppa.h (TARGET_WRITE_PC): Define. * hppa-tdep.c (hppa_fix_call_dummy): If in a syscall, then return the address of the dummy itself rather than the address of $$dyncall. (target_write_pc): New function to store a new PC. Fri Jul 30 12:51:27 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) and Jim Kingdon (kingdon@cygnus.com) * breakpoint.c (breakpoint_re_set_one): Always reparse breakpoint conditions, they might contain symbol table references. Fri Jul 30 12:51:27 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (parse_symbol): Handle opaque struct definitions and type naming for stTypedef symbols. Fri Jul 30 14:44:21 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * c-exp.y (yylex): Detect C++ nested types. Fri Jul 30 11:07:37 1993 Doug Evans (dje@canuck.cygnus.com) * sp64-tdep.c (sparc64_frame_chain, sparc64_frame_saved_pc): Deleted. (dump_ccreg, sparc_print_register_hook): New fns. * remote-sim.h: New file. * remote-sp64sim.h (sim_*): External fns. (simif_*): Internal fns. * config/sparc/sp64.mt: New file. * config/sparc/tm-sp64.h (FRAME_CHAIN, FRAME_SAVED_PC): Deleted. (PRINT_REGISTER_HOOK): Call new fn sparc_print_register_hook. Fri Jul 30 10:15:01 1993 Fred Fish (fnf@deneb.cygnus.com) * Makefile.in (ALLCONFIG): Add config/i386/ptx.mh Fri Jul 30 08:58:01 1993 Jim Kingdon (kingdon@lioth.cygnus.com) From J. Law: * infcmd.c (read_pc): Remove PA specific code. * tm-hppa.h (TARGET_READ_PC): Define. * hppa-tdep.c (target_read_pc): New function. * symtab.c (gdb_mangle_name): Deal with it if type lacks a name. Fri Jul 30 07:36:53 1993 Fred Fish (fnf@deneb.cygnus.com) * NEWS: Add note that DEC alpha support is host only, not native. * README: Emphasize that C++ support works best with GNU C++ and stabs debugging format. * delta68-nat.c: Add missing FSF copyright. Fri Jul 30 08:58:01 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * paread.c (pa_symtab_read): Put file-local symbols in minimal symbols. * hppa-tdep.c (frame_chain_valid): Check that our function has the same address as _start, not that it must be the same symbol. Fri Jul 30 00:18:40 1993 Fred Fish (fnf@deneb.cygnus.com) * Makefile.in (ALLDEPFILES): Add delta68-nat.c * Makefile.in (delta68-nat.o): Add dependency. Thu Jul 29 12:09:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * value.h (COERCE_ENUM): Use COERCE_REF to coerce refs; value_ind was adequate in gdb 3.5 but not now. * valops.c (typecmp): An array in t2 matches a pointer in t1. * valops.c (typecmp): When comparing type1& to type2, compare type1 and type2 as leniently as if we were comparing type1 to type2. * cp-valprint.c (cplus_print_value): Don't dump core if the baseclass doesn't have a name. * values.c (vb_match): New function, which finds the virtual base class pointer even if the types are nameless. (baseclass_{addr,offset}): Use it. * hppa-tdep.c: Make "maintenance print unwind" command from old "unwind" command. * remote-udi.c: Remove udi_timer, call to siginterrupt, and associated obsolete junk which apparently had been copied from the pre-serial.h remote.c, but which is no longer used. Thu Jul 29 12:36:20 1993 Fred Fish (fnf@deneb.cygnus.com) * Makefile.in (NONSRC): Need 29k-share/README, not 29k-share/udi/README. Thu Jul 29 12:09:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * paread.c (pa_symfile_init): If error reading string table, don't use errno in cases where it hasn't been set. * ser-unix.c (gdb_setpgid): Pass our pid, not 0, to setpgid. * remote-monitor.c (_initialize_monitor): Comment out use of connect_command, since connect_command itself is commented out. * remote-monitor.c (generic_open): Parse arguments the same way as remote.c. * hppa-tdep.c (pc_in_linker_stub): Fix unclosed comments. Wed Jul 28 13:19:34 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/mips/xm-mips.h: Define HAVE_TERMIOS. * dbxread.c (record_minimal_symbol): Don't put gcc_compiled or __gnu_compiled* symbols into the minimal symbols. Wed Jul 28 08:26:58 1993 Ian Lance Taylor (ian@cygnus.com) * remote-mips.c (_initialize_remote_mips): Added "timeout" and "retransmit-timeout" variables to set mips_receive_wait and mips_retransmit_wait, respectively. Wed Jul 28 03:58:58 1993 (pes@regent.e-technik.tu-muenchen.de) * symmisc.c (dump_msymbols): Handle new mst_file_* types. Tue Jul 27 12:07:38 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote-udi.c: Remove old comment about download not implemented. * serial.h, ser-{unix,go32,tcp}.c: Add flush_input and send_break. * nindy-share/*, remote-nindy.c: Extensive hacking to make it conform to GDB conventions like using memcpy not bcopy, serial.h, etc. This is to make it host on Solaris, AIX, etc. * Makefile.in: Reflect removed nindy-share files. * config/i960/nindy960.mt (TDEPFILES): Remove ttybreak.o. * stack.c (print_frame_info): Revise comment about `pathological' case (there was a wrong FIXME about text labels; also asm() can trigger this as well as versions of ar which truncate .o names). * buildsym.c (start_subfile): If a .c file includes a .C file, set the language of both of them to C++. * config/sparc/xm-sun4os4.h: Define MEM_FNS_DECLARED and include . Include rather than declaring malloc functions ourself. * ser-unix.c (set_tty_state): Don't ignore errors setting process group. * inflow.c (terminal_inferior): If attach_flag set, ignore errors from set_tty_state. * fork-child.c (fork_inferior): Only quote exec file if needed. * mipsread.c (parse_symbol): Remove 21 Jul 93 change with stTypedef inside an stBlock. Tue Jul 27 12:36:49 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * breakpoint.c (breakpoint_1): Walk the breakpoint chain to decide if we have breakpoints or watchpoints as we might have to ignore internal breakpoints. Fix gdb core dumps after `file newfile' commands. * symtab.h, symfile.c (clear_symtab_users): New routine which unconditionally clears symtab users. clear_symtab_users_once commented out as it was a noop anyway. * objfiles.c (free_objfile): Don't call clear_symtab_users_once. * objfiles.c (free_all_objfiles), symfile.c (new_symfile_objfile), xcoffexec.c (exec_close): Call clear_symtab_users if necessary. * symfile.c (syms_from_objfile): Install cleanups for errors during symbol reading. * coffread.c, dbxread.c, mipsread.c, xcoffread.c (*_symfile_read): Lint cleanup code, call do_cleanups explicitly. * symfile.c (symbol_file_add): Call new_symfile_objfile and reinit_frame_cache _after_ the new symbols are read in. Tue Jul 27 01:57:01 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (parse_type): Do not set tag name for compiler generated fake tag names. Mon Jul 26 17:31:49 1993 K. Richard Pixley (rich@rtl.cygnus.com) * config/m88k/m88k.mt (TDEPFILES): add exec.o. Mon Jul 26 13:17:36 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hppa-tdep.c: Remove all uses of use_unwind and `set use_unwind' command. Now we use unwind info by default if we can find it. * config/sparc: Move VARIABLES_INSIDE_BLOCK and SUN_FIXED_LBRAC_BUG to tm-sparc.h so they are shared between Solaris and SunOS4. * dbxread.c (process_one_symbol): Deal with SunOS4 acc N_STSYM and N_GSYM functions. * config/pa/tm-hppa.h (REGISTER_NAMES): Use "fr" rather than "fp" for floating point registers. * mipsread.c (parse_symbol): Put stStaticProc symbols in minimal symbols as mst_file_text. * hppa-tdep.c (pc_in_linker_stub): Return 0 if can't read memory. * stabsread.c (rs6000_builtin_type): Make logical types be TYPE_CODE_BOOL. Sun Jul 25 23:41:48 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.{c,h} (struct breakpoint): Replace symtab field with source_file field. Fri Jul 23 09:57:25 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * remote.c: Don't error() on errors xferring memory. * target.h: Clean up comments about *xfer_memory. * exec.c, corelow.c (target_ops struct): Don't allow {insert,remove}_breakpoints to be defaulted to memory_{insert_remove}_breakpoint. * demangle.c: Make it so `help set dem' tells you how to get the list of demangling styles. Thu Jul 22 15:41:09 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * Makefile.in: Use REMOTE_O macro not remote.o. * config/i960/{nindy960,vxworks960}: Don't use remote.o. Thu Jul 22 12:43:25 1993 Ian Lance Taylor (ian@cygnus.com) * coredep.c: If NEED_SYS_CORE_H defined, include (can't include it in nm-*.h file because it causes conflicts with a.out symbol definitions). * hp300ux-nat.c (fetch_core_registers): Commented out; obsolete. * config/m68k/hp300hpux.mh (NATDEPFILES): Added coredep.o and corelow.o. * config/m68k/nm-hp300hpux.h (NEED_SYS_CORE_H): Defined. (REGISTER_U_ADDR): Defined. * config/m68k/xm-hp300hpux.h (HAVE_TERMIOS): Define instead of HAVE_TERMIO. * config/pa/xm-hppah.h: Likewise. Wed Jul 21 11:37:30 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * mipsread.c (parse_symbol): when stTypedef and friends occur within an stBlock, skip over the fields of the inner one. * mips-tdep.c (init_extra_frame_info): If in lenient prologue, call heuristic_proc_desc rather than just assuming registers not saved. * Makefile.in (regex.o): Add dependency. * hppa{b,h}-nat.c: Warning, not error, if can't access registers. * config/pa/hppa{b,h}.h: Define ATTACH_DETACH. Wed Jul 21 03:07:30 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/mips/xm-makeva.h: New file implements va_list alignment restrictions for mips hosts. * config/mips/{xm-irix3.h, xm-mips.h, xm-news-mips.h, xm-riscos.h}: Use it. Wed Jul 21 00:11:05 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mips-tdep.c (init_extra_frame_info): Do not check for mips_in_lenient_prologue if it is a dummy frame. * mipsread.c (fixup_sigtramp): Initialize pdr.adr, it is used by mips_in_lenient_prologue. Tue Jul 20 12:53:47 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * mips-tdep.c (heuristic_proc_start): First time we print the warning, elaborate. (_initialize_mips_tdep): Improve docstring for `set heur'. * config/rs6000/tm-rs6000.h: Remove call to insert_step_breakpoint. * symtab.c (find_line_symtab): New function, to deal with multiple symtabs with the same name. (find_line_pc{,_range}): Use it. (find_pc_symtab): Add comment about overlapping symtabs. Mon Jul 19 21:29:14 1993 Fred Fish (fnf@deneb.cygnus.com) * Makefile.in (SFILES): Add nlmread.c. * Makefile.in (OBS): Add nlmread.o. * Makefile.in (nlmread.o): Add new target. * configure.in (i[34]86-*-netware): New configuration. * nlmread.c, config/i386/{i386nw.mt, tm-i386nw.h}: New files for NLM/NetWare support. Mon Jul 19 11:48:57 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * symtab.h (enum minimal_symbol_type): Add mst_file_*. * partial-stab.h [DBXREAD_ONLY]: Record statics in miminal symbols. * dbxread.c (record_minimal_symbol): Deal with statics. * minsyms.c (lookup_minimal_symbol): Prefer externals to statics. * config/i386/xm-i386sco.h: Define HAVE_TERMIOS. * printcmd.c, config/pa/xm-pa.h, config/alpha/xm-alpha.h: Make it so arg_bytes field of makeva_list is always aligned. * config/pa/xm-pa.h: Make arglist_address a char *. * ser-unix.c: Don't try to use job control with termio. Sun Jul 18 23:11:28 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) and Jim Kingdon (kingdon@cygnus.com) Make breakpoint_re_set_one work with overloaded member functions, `b 123' and `b foo' if foo is a static function. * symtab.c (decode_line_1, decode_line_2): New argument `canonical' to return canonical line specs if requested by the caller. * breakpoint.c, source.c, symtab.c, symtab.h: Change prototypes and callers accordingly. * symtab.c (build_canonical_line_spec): New helper function which constructs the canonical line spec. * breakpoint.c (break_command_1): Use canonical line spec instead of command string as addr_string if necessary. * source.c (line_info): Fix storage leak. Sun Jul 18 15:22:45 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * infptrace.c: Split out define of PT_KILL; Sequent defines PT_KILL but not the others. * symm-tdep.c: Remove exec_file_command. [_SEQUENT_] (ptx_coff_regno_to_gdb, register_addr): New functions. A few miscellaneous cleanups. * symm-nat.c: Renamed from symm-xdep.c. * All symmetry dependent files: Many changes. * mips-tdep.c (mips_skip_prologue): New argument lenient. Use read_memory_nobpt. (is_delayed, mips_in_lenient_prologue): New functions. (init_extra_frame_info): If in the prologue, don't use saved registers. * config/mips/tm-mips.h: Declare mips_skip_prologue. * partial-stab.h (N_SO): Add the text offset to valu before, not after, passing it to END_PSYMTAB. Fri Jul 16 18:48:52 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * symtab.c (find_pc_symtab): Call warning, not printf directly. * solib.c (solib_add): Use x{re,m}alloc, not {re,m}alloc. Fri Jul 16 09:56:42 1993 Ian Lance Taylor (ian@cygnus.com) * mipsread.c: No longer need to undefine ZMAGIC. Thu Jul 15 18:03:37 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * m88k-pinsn.c: Moved code into opcodes/m88k-dis.c. (print_insn): Now just calls print_insn_m88k. Thu Jul 15 14:54:05 1993 Doug Evans (dje@canuck.cygnus.com) * h8300-tdep.c (examine_prologue): Make prototype match definition. Thu Jul 15 08:34:49 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * NEWS: Mention that remote.c now has a `load' operation. * hppa-tdep.c (pc_in_linker_stub): New function. (find_proc_framesize): Return 0 for linker stubs. (rp_saved): Tell the caller where rp is saved. (frame_chain_valid): Return 1 for linker stubs. (frame_saved_pc): Use return value from rp_saved. * stack.c (print_frame_info): When checking PC_IN_CALL_DUMMY, pass the sp relative to the frame in question, not the sp in the innermost frame. Wed Jul 14 17:37:03 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mipsread.c (parse_procedure): Take as argument the symtab to look the name up in. Look it up with mylookup_symbol, not lookup_symbol. (psymtab_to_symtab_1): For stabs, pass the symtab to parse_procedure. * mipsread.c (mylookup_symbol): Use strcmp, not STREQ, as we have already checked the first characters. Changes from Jeffrey Law: * printcmd.c (makeva_list): Use MAKEVA_EXTRA_INFO to define machine dependent fields in the makeva_list structure. (makeva_size): Allocate extra space to handle gaps made by alignment restrictions. * config/pa/xm-pa.h (MAKEVA_EXTRA_INFO): Define. (MAKEVA_START): Initialize arglist_address field. (MAKEVA_ARG): Always store arguments on natural alignment boundaries. Set arglist_address to the address right after the args. (MAKEVA_END): Simply return the value stored in arglist_address. Wed Jul 14 13:51:54 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * ch-valprint.c (chill_val_print, case TYPE_CODE_STRING): Print address, not addr. * hppah-nat.c (store_inferior_registers): Don't print i in cases where we aren't using it. * a29k-tdep.c (get_saved_register): Fix typo. Wed Jul 14 09:45:52 1993 Doug Evans (dje@canuck.cygnus.com) * configure.in: Recognize h8300h (variant of h8300). Wed Jul 14 09:45:52 1993 Doug Evans (dje@canuck.cygnus.com) * configure.in: Recognize sparc64-*-*. Tue Jul 13 14:03:48 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (define_symbol): Make the caddr_t hack apply to `function returning foo' as well as `pointer to foo'. * remote.c [REMOTE_BREAKPOINT]: Use for breakpoint insn if defined. * config/m68k/tm-m68k.h: Define it. * mem-break.c, breakpoint.c: Improve comments. Tue Jul 13 13:35:31 1993 Frederic Pierresteguy (F.Pierresteguy@frcl.bull.fr) * config/m68k/tm-dpx2.h: Replace "tm-68k.h" with "m68k/tm-m68k.h". * config/m68k/xm-dpx2.h: Define HAVE_TERMIOS not HAVE_TERMIO. Tue Jul 13 11:50:38 1993 Doug Evans (dje@canuck.cygnus.com) * gdbcore.h (read_memory_integer, read_memory_unsigned_integer): Make prototype match definition. Tue Jul 13 11:15:15 1993 Fred Fish (fnf@cygnus.com) * elfread.c: Remove notice about file still being under construction. * Makefile.in (ultra3-xdep.o, umax-xdep.o): Add missing ')'. Mon Jul 12 17:46:35 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * a29k-tdep.c (read_register_stack): Make val static. Mon Jul 12 14:10:48 1993 Doug Evans (dje@canuck.cygnus.com) * config/h8300/tm-h8300.h (REGISTER_CONVERTIBLE): Change value to 0. (REGISTER_CONVERT_TO_VIRTUAL, REGISTER_CONVERT_TO_RAW): Move def'n to usual spot. Mon Jul 12 11:29:44 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * c-valprint.c (c_val_print): Fix thinko with unspecified length arrays. * hppa-tdep.c (find_proc_framesize): If there is a frame pointer, use it. Sun Jul 11 19:35:05 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * symtab.c (decode_line_1): Use end of block to figure out whether val.end is in the same function, not minimal symbols. * source.c (line_info): Add a few more wrap_here's. * i386-tdep.c (i386_follow_jump): Do byteswapping where needed and don't make assumptions about sizes of host data types. * blockframe.c, symtab.h (find_pc_partial_function): New arg endaddr. * infrun.c, breakpoint.c, printcmd.c: Change callers. * printcmd.c (containing_function_bounds): Remove. * printcmd.c (disassemble_command): Use find_pc_partial_function, not containing_function_bounds. * infcmd.c (step_1): Use find_pc_partial_function rather than trying to roll our own. Move check for a pc between SIGTRAMP_START and SIGTRAMP_END in find_pc_partial_function, not step_1. * sparc-tdep.c (sparc_frame_chain, frame_saved_pc): Keep unswapped value in array of char, not REGISTER_TYPE. Use REGISTER_RAW_SIZE not sizeof (REGISTER_TYPE). (sparc_extract_struct_value_address): Use TARGET_PTR_BIT not sizeof (CORE_ADDR). Thu Jul 1 15:50:05 1993 Frederic Pierresteguy (F.Pierresteguy@frcl.bull.fr) * configure.in (m68*-bull-sysv*): added support for Bull dpx2. * config/m68k/{t,x,n}m-dpx2.h, dpx2-nat.c: New files. * config/m68k/dpx2.m{h,t}: New files. Sun Jul 11 12:32:08 1993 Doug Evans (dje@canuck.cygnus.com) * config/sparc/tm-sparc.h (PRINT_REGISTER_HOOK): Fix typo, add more parens around macro arg. Sat Jul 10 09:54:17 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * infrun.c: Remove step_resume_{duplicate,shadow}. Replace step_resume_break_address with step_resume_breakpoint (now local to wait_for_inferior). ({insert,remove}_step_breakpoint): Remove. (wait_for_inferior): Set step resume break with set_momentary_breakpoint. Test hitting it with bpstat_stop_status and bpstat_what (stop_step_resume_break removed). * breakpoint.{h,c}, infrun.c: Return value from bpstat_what now struct which includes previous return value as main_action, and a step_resume bit. * breakpoint.c (delete_breakpoint): If breakpoint was inserted, and there is another breakpoint there, insert it. * infrun.c (wait_for_inferior): Rearrange the spaghetti a bit. Use a few more gotos. Various: Clean up and add comments. * infrun.c [TDESC]: Remove remaining tdesc code (see ChangeLog for Wed Nov 13 16:45:13 1991). Fri Jul 9 12:36:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * values.c, value.h (modify_field), callers: Make fieldval a LONGEST. * h8300-tdep.c (NEXT_PROLOGUE_INSN): Make pword1 an INSN_WORD * not short *. * findvar.c, defs.h ({extract,store}_{signed_integer,unsigned_integer,address}): New routines to replace SWAP_TARGET_AND_HOST. All over: All uses of SWAP_TARGET_AND_HOST on integers replaced. * config/sparc/tm-sparc.h: Add comment suggesting that removing ins and locals from the registers array might clean things up. * utils.c: Clean up comments about wrap buffer and wrap_here. * printcmd.c (printf_command): Call wrap_here before vprintf. * mipsread.c (cross_ref): Set the name to unknown for "struct *" case. Patch from ptf@delcam.co.uk (Paul Flinders). * a29k-tdep.c, findvar.c (get_saved_register): Fix byteswapping sins. Fri Jul 9 09:47:02 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * defs.h, remote-eb.c (TM_FILE_OVERRIDE): Remove it. * mips-tdep.c (init_extra_frame_info): Set proper fci->frame if pc is at the start of the dummy code. Thu Jul 8 14:48:54 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * sparc-tdep.c (sparc_push_dummy_frame): Skip all the do_save_insn stuff, just write the sp and fp. (sparc_pop_frame): Skip the do_restore_insn; we already restore the sp with the other out registers. * hppa-tdep.c (hppa_push_arguments): Allocate enough space for arguments. * hppa-tdep.c: Change _initialize_hppab_tdep to _initialize_hppa_tdep. Thu Jul 8 14:47:00 1993 Doug Evans (dje@canuck.cygnus.com) * sparc-tdep.c (sparc_frame_chain): Handle sizeof (CORE_ADDR) != sizeof (REGISTER_TYPE). (frame_saved_pc): Ditto. Thu Jul 8 08:22:05 1993 Doug Evans (dje@canuck.cygnus.com) * config/h8300/tm-h8300.h: (REGISTER_TYPES): Adjust for h8/300h. (REGISTER_RAW_SIZE): Ditto. (REGISTER_VIRTUAL_TYPE): Use builtin_type_unsigned_long for regs on the h8/300h (ints may still be 16 bits). (EXTRACT_RETURN_VALUE, STORE_RETURN_VALUE, EXTRACT_STRUCT_VALUE_ADDRESS): Add FIXME's for h8/300h. Some thought needed here. * h8300-tdep.c (print_insn): Call print_insn_h8300h if h8/300h. (examine_prologue): reg_save_depth is 4 if h8/300h. * findvar.c (read_register): Provide some support for 64 bit regs. (write_register): Ditto. Wed Jul 7 14:30:00 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/mips/nm-riscos.h: machine/machparam.h is always the right place to look for BSD43_NBPG, not machine/vmparam.h * infcmd.c (run_stack_dummy): New argument name. Change error message in (another) attempt to make it comprehensible. * valops.c (call_function_by_hand): Pass name to run_stack_dummy. * symtab.h: Declare demangle and asm_demangle since macros use them. * eval.c (evaluate_subexp): Add comment about calling a member function of a variable in a register. * expression.h: Clean up comment about string in STRUCT_STRUCT etc. * config/{rs6000/tm-rs6000.h,sparc/tm-sparc.h,pyr/tm-pyr.h}, inferior.h (PC_IN_CALL_DUMMY) [ON_STACK]: Add comments about stack frame tops and bottoms. * frame.h, blockframe.c, stack.c, a29k-tdep.c, config/gould/tmp-{pn,np1}.h, config/{sparc/tm-sparc.h,pyr/tm-pyr.h,vax/tm-vax.h}: Remove field next_frame from struct frame_info. It has no purpose beyond ->next->frame and is an artifact from GDB 2.8. Tue Jul 6 11:51:18 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Remove gdb before creating a new one. Update init.c atomically. * Makefile.in (ALLPARAM): Add config/{alpha/xm-alpha.h,pa/xm-pa.h}. (ALLCONFIG): Add config/alpha/alpha-osf1.mh. * infcmd.c (_initialize_infcmd): In docstring for "continue", describe argument as setting ignore count. Sun Jul 4 15:04:47 1993 Doug Evans (dje@cygnus.com) * h8300-tdep.c (examine_prologue): Fix call to read_memory_unsigned_integer. Fri Jul 2 18:22:54 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/mips/{x,n}m-irix{3,4}.h: Make some definitions here rather than including xm-bigmips.h. * eval.c (evaluate_subexp): Improve error messages for OP_TYPE and default cases. * Makefile.in (distclean): Remove y.tab.h. Fri Jul 2 14:55:48 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * exec.c (exec_file_command): Remove Mar 28 hack as BFD handles file updates properly now. * mipsread.c (mips_coff_new_init): Force reevaluation of sigtramp addresses if switching to a new symbol file. * dbxread.c (process_one_symbol): Avoid dereferencing NULL symbols that might be returned from define_symbol. Fri Jul 2 13:33:12 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) New target macros for getting at the pc, sp and fp. * infcmd.c (read_pc, write_pc): Modify to use new macros. (read_sp, write_sp, read_fp, write_fp): New functions. * blockframe.c (reinit_frame_cache, get_prev_frame_info): Use new functions. * breakpoint.c (bpstat_alloc): ditto. * infrun.c (wait_for_inferior): ditto. * stack.c (print_frame_info): ditto. * valops (call_function_by_hand): ditto. * corelow.c (core_open): ditto. * h8500-tdep.c: (target_read_sp, target_write_sp, target_read_pc, target_write_pc, target_read_fp, target_write_fp): New functions. * inferior.h (read_sp, write_sp, read_fp, write_fp): Prototypes. * config/alpha/xm-alpha.h: Add MAKEVA_END. * config/h8500/tm-h8500.h: Define new macros. Fri Jul 2 13:51:04 1993 Ian Lance Taylor (ian@cygnus.com) * configure.in (mipos-*-riscos*): New host and target; use riscos. * config/mips/nm-riscos.h: If BSD43_NBPG is not defined by vmparam.h, include machparam.h. (KERNEL_U_ADDR): Define to be BSD43_UADDR. Fri Jul 2 13:39:48 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * c-exp.y (yylex): Give error if unmatched single quote. * configure.in, config/m68k/*delta68*, delta68-nat.c: New port. * Remove unused STACK_END_ADDR in the following files (in other files it is used for something): tm-mips.h, tm-sun2.h, tm-news.h, tm-a29k, tm-i386v.h, tm-hppa.h, tm-nindy960.h, tm-amix.h, tm-hp300hpux.h, tm-isi.h. Thu Jul 1 09:51:27 1993 Jim Kingdon (kingdon@cygnus.com) * config/mips/nm-riscos.h: Define NBPG and UPAGES. config/mips/xm-riscos.h: Include . * ser-unix.c (hardwire_noflush_set_tty_state): Use an assignment, not an initializer, to copy the structure. * gdbtypes.h (struct type): Add field tag_name. * gdbtypes.c (type_name_no_tag), c-typeprint.c (c_type_print_base): Use it. * {coff,dwarf,mips,stabs}read.c: Set it. * xm-sysv4.h: Undefine HAVE_TERMIO. * config/mips/nm-riscos.h: Remove unmatched #endif. Define FETCH_INFERIOR_REGISTERS. * config/mips/riscos.mh: Don't include coredep.o; mips-nat.o is enough. Fix misspelling of NAT_FILE. * mips-nat.c (fetch_core_registers): If KERNEL_U_ADDR is not defined, we can still process "modern" core files. * ser-unix.c (hardwire_print_tty_state) [HAVE_TERMIOS]: Don't print c_line. (_initialize_ser_hardwire): Just check whether _POSIX_JOB_CONTROL is defined; don't care what it is defined to. Wed Jun 30 20:06:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/vax/xm-vaxult2.h: Define FD_SET and FD_ZERO. Tue Jun 29 11:02:58 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * inftarg.c: Remove unused include of terminal.h. * signals.h: Don't undefine signals anymore. * main.c: Use job_control from serial.h. * fork-child.c (fork_inferior): Use gdb_setpgid. * serial.h, ser-unix.c, ser-go32.c: Provide gdb_setpgid. * utils.c (quit): Use current_target->to_terminal_ours to figure out whether we care about lack of job control, rather than __GO32__. * utils.c: Include serial.h not terminal.h (quit): Use job_control not TIOCGPGRP. * terminal.h: Don't undefine TIOCGPGRP. * serial.h, ser-unix.c, ser-go32.c, ser-tcp.c: Add SERIAL_FLUSH_OUTPUT. * utils.c (quit): Use it. * serial.h: Add SERIAL_UN_FDOPEN. * utils.c (quit): Use it. * ser-unix.c: Add process group to ttystate. [HAVE_SGTTY]: Add tchars, ltchars, and lmode to ttystate. * inflow.c: Include serial.h not terminal.h. Use serial.h stuff to replace most of the maze of #ifdef's. * inflow.c, main.c, inferior.h: make gdb_has_a_terminal a function. * serial.h: Document SERIAL_SET_TTY_STATE as being immediate. * ser-unix.c: Use TIOCSETN not TIOCSETP so it is true. * serial.h, ser-unix.c, ser-go32.c, ser-tcp.c: Add SERIAL_PRINT_TTY_STATE, SERIAL_NOFLUSH_SET_TTY_STATE, and SERIAL_SET_PROCESS_GROUP. * inflow.c: Use them. * config/xm-svr4.h, config/rs6000/xm-rs6000.h, config/sparc/sun4os4.h: Define HAVE_TERMIOS. * Various: Remove all use of TIOC*_BROKEN. Wed Jun 30 12:20:51 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/m68k/tm-sun3.h (BELIEVE_PCC_PROMOTION_TYPE): Define. Tue Jun 29 13:44:41 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * target.h (target_detach): Turn macro into function. * target.c (target_detach): Define it, do deferred register stores before calling the real target function. Tue Jun 29 13:15:42 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) and Jim Kingdon (kingdon@cygnus.com) * symtab.h (BLOCK_SHOULD_SORT): Do not sort blocks corresponding to a function to avoid printing of function arguments in wrong order due to sorting. * symfile.c (compare_symbols): Remove code for sorting arguments as blocks containing arguments are no longer sorted. * symtab.c (lookup_block_symbol): Update comment accordingly. Tue Jun 29 11:02:58 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/pa/tm-hppa.h: Remove unused ARGS_GROW_DOC. (REG_STRUCT_HAS_ADDR): Add comment. * infrun.c (wait_for_inferior): Use find_pc_line not find_pc_symtab to check whether there is line number information. Tue Jun 29 08:29:17 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * remote-udi.c: Fix docstring so that it compiles. * remote-mips.c, remote-nindy.c: move bfd.h before symfile.h (for file_ptr). Tue Jun 29 09:11:27 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * dbxread.c (process_one_symbol): If we find a LOC_BLOCK where we don't expect it, change it to LOC_STATIC so at least we don't coredump. * c-typeprint.c (c_type_print_base): Don't error() on invalid type. * symtab.h: Add comments about line numbers. * source.c (identify_source_line): Fix off by one bug with line. Mon Jun 28 10:09:08 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * printcmd.c (makeva*): New interface, for making a va_list. (printf_command): Use it. * config/m88k/xm-delta88.h: Remove VPRINTF define, not needed. * config/pa/xm-pa.h: New file. * config/pa/xm-hppa{b,h}.h: Include it. * xcoffread.c: Remove obsolete NO_TYPEDEFS comment. Sun Jun 27 08:54:55 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * valprint.c (val_print_type_code_int): Fix off by one error with eliminating leading zeroes for large little endian integers. Sun Jun 27 08:58:56 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/mips/riscos.mh (CC): Use -systype sysv. * ser-unix.c: Move #include of to HAVE_SGTTY section. * Makefile.in (ALLPARAM): Add config/mips/{x,n}-{news-mips,riscos}.h. Fri Jun 25 11:22:28 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/m68k/tm-m68k.h: Remove obsolete comment about duplicating CALL_DUMMY between different 68k machines. Fri Jun 25 17:02:45 1993 Stu Grossman (grossman at cygnus.com) * gdbserver/Makefile.in: Add dependancies on server.h. * gdbserver/remote-gutils.c: Remove lots of unused functions and variables. * gdbserver/remote-inflow.c: Remove lots of unused variables and #includes. Also, use PTRACE_* symbols instead of constants. (mywait): Surround calls to wait() with enable/disable_async_io() so that we can be interrupted from GDB while waiting for the child. Also, handle child exit more gracefully. * gdbserver/remote-server.c: Remove lots of unused variables. Move all extern defs into server.h. Redo main loop so that failure from getpkt() causes communications to be re-established. Fix 'k' command so that it restarts the child. * gdbserver/remote-utils.c: Remove lots of unloved vars and subrs. Move many extern decls into server.h. (remote_open): For tcp, seperate usage of proto fd from connected fd. Close proto fd after getting connection. (putpkt/getpkt): Pay attention to errors when reading/writing. Report these to the caller. New routines input_interrupt/enable_async_io/disable_async_io to make it possible to get an I/O interrupt when data arrives from the comm link. * serial.h: New file to contain common defs for all remote files. Fri Jun 25 17:02:45 1993 Stu Grossman (grossman at cygnus.com) * remote.c: Add arg names to prototypes, in a modest effort at clarification. Also add prototypes for some new functions. * (remote_wait): Better error reporting for 'T' responses. * ser-go32.c (strncasecmp): Make str1 & str2 be const. * (dos_async_init): Make usage message reflect requested port #. * ser-tcp.c (tcp_open): Terminate hostname properly to prevent random hostname lookup failures. Add nicer message for unknown host error. (wait_for): Wake up in case of exceptions. Also, restart select() if we got EINTR. * ser-unix.c (wait_for): Restart select() if we got EINTR. * serial.c: (serial_close): Clean up code. Fri Jun 25 11:22:28 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/m68k/tm-m68k.h: Remove obsolete comment about duplicating CALL_DUMMY between different 68k machines. Fri Jun 25 11:22:28 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (*.tab.c): Use ./c-exp.tab.c not just c-exp.tab.c. Make comment explaining this comprehensible. (TAGFILES): Include ALLDEPFILES. (ALLDEPFILES): udi2soc.c and udr.c are in 29k-share/udi, not 29k-share/udi/udi. (update-alldeps): Remove; obsolete. * remote.c: Move comments regarding packets to top of file with the rest of the protocol comments. Fix incorrect description of 'T' response. * README (Reporting Bugs): Refer people to the GDB manual. * c-valprint.c (c_val_print): Handle TYPE_CODE_BOOLEAN. * stabsread.c: Type -16 is 4 bytes. * remote-udi.c: Improve docstring. Fri Jun 25 11:16:31 1993 Fred Fish (fnf@cygnus.com) * elfread.c (elf_symfile_read): Call bfd_elf_find_section, not bfd_elf32_find_section, to track bfd changes. Fri Jun 25 11:22:28 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/mips/riscos.mh (REGEX{,1}, MUNCH_DEFINE, MH_CFLAGS): Define. * config/mips/xm-riscos.h: Define USG. Thu Jun 24 14:52:45 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * main.c (filename_completer): Don't complete to files ending in ~. * NEWS: Mention filename completion and "info line" enhancements. * main.c (symbol_completion_function): On "info t foo", return NULL, don't error(). * main.c (symbol_completion_function): Don't use readline word breaking. Use new calling convention for c->completer and complete_on_cmdlist. * command.h (struct command): Change arguments; now the text passed to completer does not have any word breaking done. New arg word. * symtab.{c,h} (make_symbol_completion_list): Do word breaking. Take word argument. * {main.c,gdbcmd.h} ({filename,noop}_completer): Take word argument. * command.{c,h} (complete_on_cmdlist): Take word argument. * command.c (lookup_cmd_1): Doc fix. Thu Jun 24 13:26:04 1993 K. Richard Pixley (rich@sendai.cygnus.com) * Makefile.in (OP_INCLUDE): define. (OPCODE_CFLAGS): use OP_INCLUDE. * config/i386/ncr3000.mh, config/i386/i386v4.mh, config/i386/i386sol2.mh, config/m68k/hp300hpux.mh, config/m68k/amix.mh, config/mips/irix[34].mh, config/m88k/delta88.mh, config/sparc/sun4sol2.mh (ALLOCA, ALLOCA1): macros removed. * config/mips/decstation.mh, config/rs6000/rs6000.mh (MMALLOC_LIB): renamed to MMALLOC. Wed Jun 23 00:25:58 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * partial-stab.h: Consolidate case statements for N_LSYM and N_FUN. * dbxread.c: Change comment regarding acc. Wed Jun 23 15:04:54 1993 K. Richard Pixley (rich@sendai.cygnus.com) Makefile overhaul dropping autodepend features. * Makefile.in: many comment changes. forced consistent use of $() for makefile variables references. dropped leading ./ in file references. Drop $(srcdir)/ prefix on all dependencies. Inserted contents of alldeps.mak and depend. (INCLUDE_CFLAGS): defined as new macro for getting libiberty's include directory into the compilation line. (GDB_CFLAGS): new macro to take up the semantic previously held by INCLUDE_CFLAGS. (LIBIBERTY): dropped ancient subdir macro. I last removed this macro in feb of '92. How does it keep coming back? (MMALLOC_LIB): renamed to MMALLOC. (BFD_SRC_DIR): renamed to BFD_SRC. (BFD_OBJ_DIR): renamed to BFD_DIR. (BFD_LIB): renamed to BFD. (BFD_INCLUDES): renamed to BFD_CFLAGS. (READLINE_DIR): now represents object directory. (RL_LIB): renamed to READLINE. (READLINE_SRC, READLINE_CFLAGS, OPCODES, OPCODES_CFLAGS): new macros. (INTERNAL_CFLAGS): added GDB_CFLAGS, OPCODES_CFLAGS, READLINE_CFLAGS, BFD_CFLAGS. Dropped USER_CFLAGS. (LDFLAGS): removed default assignment. (TEXIDIR, INCLUDE_DEP, MMALLOC_DIR, MMALLOC_DEP, BFD_DEP, READLINE_DEP, LIBIBERTY_DIR, TESTS, depend, STAGESTUFF): unused, so removed. (ALLOCA1, ALLOCA): removed all references. alloca is now in libiberty. (VERSION): unilaterally and arbitrarily bumped to 4.9.3. (SFILES, NONSRC, HFILES, ALLDEPFILES, ALLPARAM, ALLCONFIG): removed all $(srcdir) prefixes. (getopt_h, ieee-float_h, bfd_h, wait_h, dis-asm_h): new macros for potential dependencies. commented out by default. (readline_headers, udiheaders): convenient abbreviations. (gdbcore_h, frame_h, symtab_h, gdbtypes_h, expression_h, value_h, breakpoint_h, command_h, gdbcmd_h, defs_h, inferior_h): new macros used for header file dependencies. (install-info, clean-info): collapse into the info rule. (install): now depends on all. (install-only): new target for installing without depending on all. (uninstall): new target. (config-check, config-check-hosts, config-check-targets): added fixme comments. (ch-exp.tab.c, m2-exp.tab.c): added artificial dependencies in order to force parallel makes into keeping these rules separate. * configure.in: omit cat'ing depend file onto generated Makefile. * alldeps.mak, depend: removed. * inferior.h: remove redundant include of symtab.h which is included in value.h via breakpoint.h. * alloca.c: removed. alloca is now in libiberty. * config/m88k/delta88.mh, config/ns32k/merlin.mh (M_UNINSTALL): new macro to undo what M_INSTALL does. Wed Jun 23 00:25:58 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/ns32k/{merlin.mh,xm-merlin.h}: Be consistent about name of gdb-sh. * dbxread.c (copy_pending): Change name and function of begi argument to endi, since that is what the caller needs. * Makefile.in (TAGFILES): Don't include YYFILES. * Makefile.in (HFILES): Include monitor.h. * Makefile.in: Include text that used to be in alldeps.mak. Remove config/mips/{bigmips.mh,xm-bigmips} from it. * Makefile.in, configure.in: Remove all traces of alldeps.mak. * main.c (main): Print help message on stdout not stderr per standards.texi. New option --version per standards.texi. In help message, show long options with "--" not "-". Don't try to print help message or version until after we have called initialize_all_files. Tue Jun 22 03:15:38 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * solib.c (solib_add_common_symbols): Don't call lookup_minimal_symbol. (solib_add): Call special_symbol_handling once, not once per library. * procfs.c (procfs_resume): Don't pass a SIGTSTP whose action is SIG_DFL. * procfs.c (procfs_resume): Skip the unnecessary PRSVADDR on all systems, not just Solaris. * stabsread.c: Include . Mon Jun 21 16:09:46 1993 Jim Kingdon (kingdon@cygnus.com) * fork-child.c (fork_inferior): Quote exec_file so it can contain funky characters. Mon Jun 21 16:56:47 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (INCLUDE_CFLAGS): Add BFD_INCLUDES for now, since bfd.h is included by target.h, which most of gdb includes. * depend: Hand remove BFD_INCLUDES from ${CC} lines, now that it's in INCLUDE_CFLAGS. Mon Jun 21 16:09:46 1993 Jim Kingdon (kingdon@cygnus.com) * config/i386/*aix*, i386aix-nat.c: New files. * configure.in: Use them. * alldeps.mak: List them. * coffread.c (decode_base_type): Deal with anonymous enum type. * i387-tdep.c (print_387_status_word): Add comment re "top". * i386-tdep.c [I386_AIX_TARGET] (i386_extract_return_value): New func. * dbxread.c: Use SEEK_SET and SEEK_CUR, not L_*. Define them if and only if not defined by a header file. * mipsread.c: Don't define L_SET or L_INCR. Mon Jun 21 15:10:07 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (BFD_INCLUDES): Bfd.h is now back in bfd build dir. * depend: Hand updated to match. Sun Jun 20 13:11:11 1993 Jim Kingdon (kingdon@cygnus.com) * stabsread.c (read_struct_fields): Don't call read_cpp_abbrev on $_. (read_cpp_abbrev): Don't complain specially for $_. Also return 0 if we don't recognize the abbrev. Sun Jun 20 00:24:41 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * solib.c (solib_add_common_symbols): Add comment about performance. Fri Jun 18 12:37:36 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/mips/{{x,n}m-riscos.h,riscos.mh}: New files. * configure.in (mips-*-sysv*): Use riscos for host, bigmips for target. * config/mips/{{x,n}m-news-mips.h,news-mips.mh}: New files. * config/mips/{bigmips.mh,xm-bigmips.h}: Remove. * configure.in (mips-sony-*): Use news-mips for host. * buildsym.h: Doc fix for processing_acc_compilation. Thu Jun 17 19:57:08 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * printcmd.c (print_formatted): Don't use tab in wrap_here arg. Thu Jun 17 17:29:30 1993 Jim Kingdon (kingdon@lisa.cygnus.com) * Makefile.in (INTERNAL_CFLAGS): Include ../include as well as ${srcdir}/../include. * config/m88k/xm-delta88.h: Comment out unused defines which conflict with system headers. * printcmd.c (printf_command): Cast second arg to vprintf to PTR. Use VPRINTF macro if defined. * config/m88k/xm-delta88.h: Define VPRINTF. Include . Define TIOC{GETC,GLTC}_BROKEN. * m88k-nat.c: Uncomment include of . * main.c: Rename initialize_{main,cmd_lists,history} to init_* to make things easier on munch (apparently this matters on the delta88 with svr3). Thu Jun 17 16:53:56 1993 david d `zoo' zuhn (zoo@cygnus.com) * Makefile.in: canonicalize install.sh; for use within this directory (and subdirs) Tue Jun 15 17:01:23 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: remove parentdir support; use INSTALL_XFORM Thu Jun 17 15:08:35 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * configure.in (alpha-*-osf*), config/alpha/alpha-osf.mh: New host. * sh-tdep.c (frame_find_saved_regs): Use NUM_REGS rather than hard wired (and wrong) constant. * values.c (unpack_long): Add case to unpack when target object is sizeof(int). * config/sh/tm-sh.h (REGISTER_NAMES): Know about the news ones the simulator defines. Wed Jun 16 16:08:18 1993 K. Richard Pixley (rich@sendai.cygnus.com) * NEWS: tracking user visible changes starting with vxworks-timeout. * remote-vx.c (_initialize_vx): rename user settable option from rpcTimeout to vxworks-timeout. Wed Jun 16 12:21:49 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (depend): More makefile diddling. * alldeps.mak, depend: Update to latest automatically built versions. * Makefile.in (depend): Bfd.h keeps moving, keep up with it. * alldeps.mak, depend: Update to latest automatically built versions. Tue Jun 15 12:26:05 1993 K. Richard Pixley (rich@sendai.cygnus.com) * remote-vx.c: include gdbcmd.h for setlist. (_initialize_vx): make rpcTimeout user settable. Mon Jun 14 09:23:51 1993 Jim Kingdon (kingdon@cygnus.com) * main.c, gdbcmd.h: Add function filename_completer. * main.c, symfile.c, source.c, exec.c, core.c: Use it for "directory", "source", "cd", "symbol-file" "add-symbol-file", "load", "file", "exec-file", "core-file" commands. (But '/' is a word break, limiting usefulness; see comments). * source.c (mod_path): Warning not error if can't find directory. * isi-xdep.c: New file. * config/m68k/isi.mh (XDEPFILES): Add isi-xdep.o Sun Jun 13 09:17:48 1993 Jim Kingdon (kingdon@cygnus.com) * config/m68k/xm-news.h: Include . * m88k-tdep.c (IEEE_isNAN): Remove. config/m88k/tm-m88k.h (INVALID_FLOAT): Return 0. This was the same broken isNAN as on the mips. * valprint.c (_initialize_valprint): Use c->function.sfunc not just c->function. * dbxread.c (process_one_symbol): If SUN_FIXED_LBRAC_BUG is not defined, don't worry about Sun's silly LBRAC bug. * config/m68k/tm-sun3.h: Define SUN_FIXED_LBRAC_BUG to 0. * dbxread.c (process_one_symbol): If there's a symbol before an N_SO, don't error(). (case N_BCOMM): complain () not error (). * defs.h, main.c (catch_errors): Add return_mask arg. stack.c (print_frame_info): Pass RETURN_MASK_ERROR. other callers: Pass RETURN_MASK_ALL. (return_to_top_level), callers: Add return_reason arg. * utils.c (quit): Use return_to_top_level (RETURN_QUIT) instead of error (). * main.c (main), tm-nindy960.h (ADDITIONAL_OPTION_HANDLER): Use SET_TOP_LEVEL not setjmp (to_top_level). * remote-nindy.c: Use catch_errors not setjmp (to_top_level). Sat Jun 12 14:40:54 1993 Jim Kingdon (kingdon@cygnus.com) * solib.c (solib_create_inferior_hook) [SVR4_SHARED_LIBS]: Don't try to get the debug base yet. * dbxread.c (process_one_symbol): Set n_opt_found based on whether a non-gcc N_OPT symbol is found. Make SUN_FIXED_LBRAC_BUG a macro which returns 0 or 1 to say whether to do it. * config/sparc/sun4{sol2,os4}.h (SUN_FIXED_LBRAC_BUG,VARIABLES_INSIDE_BLOCK): Use n_opt_found so the right thing happens for both acc and SunOS4 /bin/cc. * valprint.c (print_hex_chars): Use local_hex_format_{pre,suf}fix. * printcmd.c (print_scalar_formatted): Use val_print_type_code_int. * mips-tdep.c: Remove isa_NAN; it assumed sizeof(host int) == 4 and probably contained byte-order sins too. config/mips/tm-mips.h (INVALID_FLOAT): Define to 0 like most machines. The IEEE_FLOAT code in print_floating takes care of it. Sat Jun 12 14:47:04 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.9.2. * c-valprint.c (c_val_print): For array of chars printed with string syntax, don't print the address of the array. From bothner@cygnus.com. * c-exp.y (yylex): Recognize '.' as indicating a floating point number regardless of the radix. From wilson@cygnus.com. * valprint.c (set_input_radix_1, set_output_radix_1): New prototypes and functions that do the actual radix setting work. * valprint.c (set_radix, set_output_radix, set_input_radix): Rewrite to use set_input_radix_1 and set_output_radix_1. * valprint.c (initialize_valprint): Enable commands to independently set and show input and output radices. * valprint.c (show_radix): New prototype and function that handles separate input and output radices. Fri Jun 11 18:39:38 1993 Ken Raeburn (raeburn@cygnus.com) Patches from Jeff Law, law@cs.utah.edu: * hppa-pinsn.c: Now uses disassembler from opcode library, this contains only the stub function print_insn. Fri Jun 11 15:19:59 1993 K. Richard Pixley (rich@cygnus.com) * main.c (main): back to two periods for elipse. (print_gdb_version): revised format for configuration info. Fri Jun 11 10:24:35 1993 Fred Fish (fnf@cygnus.com) * defs.h (INT_MAX): Cast unsigned shift result to int. Fri Jun 11 10:17:41 1993 Jim Kingdon (kingdon@cygnus.com) * dbxread.c (process_one_symbol): Rather than having BLOCK_ADDRESS_FUNCTION_RELATIVE a macro, make it a variable which is true if we are doing stabs-in-elf, false otherwise. config/sparc/tm-sun4sol2.h: Don't define it. Fri Jun 11 13:33:40 1993 Ian Lance Taylor (ian@cygnus.com) * remote-mips.c (mips_send_packet): Don't print garbage character in debugging info. (mips_request): Don't check that remote pid is 0, because sometimes it isn't. (mips_fetch_registers): Pass a pointer to SWAP_TARGET_AND_HOST, not an integer. Fri Jun 11 10:17:41 1993 Jim Kingdon (kingdon@cygnus.com) * stack.c (print_frame_info): Use catch_errors around print_frame_args. * Makefile.in (install): Don't depend on gdb. * Rename remote-es1800.c to remote-es.c and remote-st2000.c to remote-st.c for 14-char filenames. config/m68k/{es1800,st2000}: Use the new names. * mips-tdep.c (isa_NAN): Don't return true on -0. Fri Jun 11 10:24:35 1993 Fred Fish (fnf@cygnus.com) * defs.h (INT_MAX): Cast unsigned shift result to int. Thu Jun 10 13:26:41 1993 Fred Fish (fnf@cygnus.com) * elfread.c (elf_symtab_read): Add bfd section address to bfd symbols, now that they are section relative. * solib.c (bfd_lookup_symbol): Ditto. Thu Jun 10 10:56:56 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in (depend): Add bfd -I's for paread.c and xcoffexec.c depend: Updated accordingly. Wed Jun 9 16:08:44 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in (*.tab.c): Use mv for atomic update. * Makefile.in ({dist,real}clean): Also remove nm.h. (realclean): Also remove ${TESTS}, y.output, yacc.{acts,tmp}. (distclean): Don't rebuild *.tab.c or TAGS. Wed Jun 9 12:56:58 1993 K. Richard Pixley (rich@cygnus.com) * Makefile.in (version.c): add host and target names to version.c. * main.c (main): print three periods for the elipse. (print_gdb_version): also print configuration. * udi/udiids.h, udi/udip2soc.c, udi/udiphcfg.h, udi/udiphunix.h, udi/udiproc.h, udi/udipt29k.h, udi/udiptcfg.h, udi/udisoc.h, udi/udr.c: Change AMD copyrights to FSF copyleft '93. * remote-eb.c (get_hex_regs, eb_fetch_registers), remote-adapt.c (get_hex_regs, adapt_fetch_registers): cast args to supply_register to avoid gcc warning. * config/a29k/a29k.mt (TDEPFILES): drop minimon support. It doesn't compile on solaris and is now obsolete. * config/sparc/sun4os4.mh (XM_CLIBS): remove -lresolv. This breaks stock sunos installations. Wed Jun 9 06:14:33 1993 Jim Kingdon (kingdon@cygnus.com) * m68k-stub.c: Add comment about frame cache. * target.h (target_store_registers): Doc fix re error handling. * findvar.c (write_register): Call SWAP_TARGET_AND_HOST regardless of register_valid[regno]. Tue Jun 8 14:42:10 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * symtab.h, dwarfread.c: Doc fix re dependencies. Tue Jun 8 17:54:09 1993 Rob Savoye (rob@rtl.cygnus.com) * serial.c (serial_close): If scb is NULL, don't try to close it. * configure.in: Add support for rom68k and bug boot monitors. Tue Jun 8 17:39:12 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * coffread.c (init_stringtab): Fix bug where sizeof(long) != 4. * gdbcore.h, core.c (read_memory_unsigned_integer): New function. * findvar.c (read_register, write_register): Fix thinko where sizeof(host long) != sizeof(target int). * h8300-tdep.c: Use new read_memory_unsigned_integer call. * sh-tdep.c (_initialize_sh_tdep): Add memory_size command. Tue Jun 8 14:42:10 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * Move config/m68k/tm-m68k.h (FRAME_FIND_SAVED_REGS) to m68k-tdep.c (m68k_find_saved_regs). Don't duplicate code between 68881 and non-68881 cases. Check for a pair of movel instructions. Tue Jun 8 14:52:55 1993 K. Richard Pixley (rich@sendai.cygnus.com) First cut at sparc-vxworks targetting. * config/sparc/tm-vxsparc.h, config/sparc/vxsparc.mt: new files. * configure.in: sparc-vxworks gdb_target now vxsparc. * remote-eb.c, remote.c: symfile.h requires bfd.h so include it. Tue Jun 8 14:42:10 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * config/m68k/xm-news.h: add "extern int errno". Tue Jun 8 13:45:07 1993 K. Richard Pixley (rich@sendai.cygnus.com) * remove-vx.c (vx_read_register, vx_write_register): collapse ifdef I80960 else (assumes) m68k into parameterizable macros VX_NUM_REGS and VX_SIZE_FPREGS. * config/m68k/tm-vx68.h, config/i960/tm-vx960.h (VX_NUM_REGS, VX_SIZE_FPREGS): new definitions. Tue Jun 8 11:08:29 1993 Jim Kingdon (kingdon@cygnus.com) * symfile.{c,h} (generic_load): New function. remote{,-nindy,-eb,-mips}.c: Use it. Mon Jun 7 20:07:30 1993 Stu Grossman (grossman@cygnus.com) * Makefile.in (depend): More sed gubbish to deal with ../bfd/bfd.h being generated during the build. * depend: Re-done with corrected makefile. Mon Jun 7 16:32:05 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (BFD_SRC_DIR): Renamed def and usages from BFD_DIR. * Makefile.in (BFD_OBJ_DIR): New definition for the bfd build directory to find automatically generated header files and library. * Makefile.in (BFD_LIB): Use BFD_OBJ_DIR. * Makefile.in (LINTFLAGS): Include BFD_OBJ_DIR. * Makefile.in (saber_gdb): Include BFD_OBJ_DIR. * Makefile.in (depend): Include BFD_OBJ_DIR in gcc args. * Makefile.in (paread.o, xcoffexec.o): Remove, now in depend. * depend, alldeps.mak: Rebuild after Makefile.in changes. Fri Jun 4 10:18:51 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: change lynx support to CPU-*-lynxos* * Makefile.in (subdir_do): change test from existence of directory to existence of Makefile (the directory may exist but not be configured) Thu Jun 3 01:18:51 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * config/sparc/xm-sun4sol2.h: define MEM_FNS_DECLARED Fri Jun 4 10:43:33 1993 Ian Lance Taylor (ian@cygnus.com) * configure.in (mips-idt-ecoffl*): New target; use idtl. (mips-idt-ecoff*): Added trailing '*'. * config/mips/idtl.mt: New file; like idt.mt, but little endian. Thu Jun 3 17:36:56 1993 Stu Grossman (grossman@cygnus.com) * ser-go32.c: Clean up lots of compilation nits. Thu Jun 3 14:44:57 1993 Stu Grossman (grossman@cygnus.com) * Patches from Jeffrey Law . * hppab-nat.c: Eliminate unnecessary ifdefs for FETCH_INFERIOR_REGISTERS, CANNOT_FETCH_REGISTER, and CANNOT_STORE_REGISTER. (fetch_register): Delete code to handle CANNOT_FETCH_REGISTER. * hppa-pinsn.c: Support 'I', 'J', and 'K' in output templates for 1.1 FP computational instructions. Thu Jun 3 03:34:49 1993 Stu Grossman (grossman@cygnus.com) * Makefile.in: Remove ser-tcp.[co]. (Use XDEPFILES instead.) * alldeps.mak, depend: Rebuild to account for ser-tcp. * config/sparc/sun4os4.mh: Add ser-tcp to XDEPFILES. * gdbserver/Makefile.in (gdbserver): Use -lbsd. * gdbserver/remote-inflow{-sparc}.c (create_inferior): Don't use a shell when running the child, as args have been expanded by the time we get here. Simplify calling convention. * gdbserver/remote-server.c (main): Use new calling convention for create_inferior, remove defunct code for coalescing argv. Remove extra calls to mywait(), as we no longer have to wade through a shell. * target.c (target_read_memory_partial): Don't deref errnoptr when checking for null pointer. Wed Jun 2 19:58:46 1993 John Gilmore (gnu@cygnus.com) * remote-es1800.c: Fix typo. Tue Jun 1 21:22:39 1993 Fred Fish (fnf@cygnus.com) * target.c (target_read_memory_partial): Like target_read_memory, but does partial reads, such as reads that bump into the end of the address space. * target.h (target_read_memory_partial): Add prototype. * valprint.c (PRINT_MAX_DEFAULT): New define, initial value 200. * valprint.c (val_print_string): Complete rewrite to fix bug with bumping into end of memory, avoiding unnecessarily long reads, and fixing bug when print_max is set to 0 (unlimited print length). * valprint.c (_initialize_valprint): Use PRINT_MAX_DEFAULT to initialize print_max. Tue Jun 1 18:11:35 1993 Rob Savoye (rob at darkstar.cygnus.com) * configure.in: Add support for rom68k and bug boot monitors. Mon May 31 10:37:04 1993 Jim Kingdon (kingdon@cygnus.com) * printcmd.c (print_scalar_formatted): Print integers bigger than LONGEST in hex no matter how big, and no matter what the format and size. * stabsread.c (read_type): Skip type attributes if present. * stabsread.c (read_huge_number): Don't accept '0' + radix as part of number, just through '0' + radix - 1. Sun May 30 15:35:21 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (SER_HARDWIRE): Temporarily comment out ser-tcp.o. * {dbxread.c, dwarfread.c} (read_ofile_symtab): Rewrite to take single parameter, the pointer to the partial symtab, rather than a bunch of args that are derived from the partial symtab. Change prototypes and callers to match. * dbxread.c (read_ofile_symtab): Remove "#if 1" around code to set demangling style automatically. * defs.h (CPLUS_MARKER): Clarify comment that this is only for GNU C++, not C++ in general. * symtab.h (general_symbol_info): Simplify by eliminating one structure level for the language dependent info. Sat May 29 15:59:29 1993 Fred Fish (fnf@cygnus.com) * c-typeprint.c (c_type_print_base): Avoid dereferencing NULL names for TYPE_CODE_STRUCT and TYPE_CODE_UNION types. TYPE_CODE_ENUM was already testing for this. Fri May 28 17:18:05 1993 Stu Grossman (grossman@cygnus.com) * Makefile.in: Add new file ser-tcp.c. * defs.h (memcmp): Add decl for memcmp to #ifndef MEM_FNS_DECLARED. * findvar.c (write_register): See if we are writing back the same value that's already in the register. If so, don't bother. * remote.c (putpkt, getpkt): Improve handling of communication problems. * ser-go32.c: Prototype it to death. Update serial_ops and add dummy routines where appropriate. * ser-tcp.c: New module to implement serial I/O via TCP connections. * ser-unix.c: Clean up getting/setting of tty state. Get rid of SERIAL_RESTORE, add SERIAL_{GET|SET}_TTY_STATE interfaces. * serial.c: Add start of support for connect command. (serial_open): Distinguish between tcp and local devices. * serial.h (struct serial_ops): Get rid of restore, add get_tty_state and set_tty_state. Define protoypes and macros for this mess. * gdbserver/remote-utils.c: Add tcp support. (readchar): Do some real buffering. Handle error conditions gracefully. * gdbserver/remote-inflow-sparc.c: Update to remote-inflow.c (Lynx), remove lots of cruft. Fri May 28 17:24:51 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * printcmd.c (print_address_symbolic): turn this into an assigment instead of an initialization (many compilers don't accept structure initialization). Thu May 27 16:56:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * xcoffread.c (read_xcoff_symtab): If several program csects in one source file, give them all the name of the source file, rather than the 2nd and subsequent ones having NULL names. Thu May 27 06:16:56 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * printcmd.c (print_address_symbolic): Append source filename and linenumber of the symbol if print symbol-filename is on. (initialize_printcmd): `set print symbol-filename'. Wed May 26 13:46:16 1993 Stu Grossman (grossman@cygnus.com) * configure.in: Add config for Lynx target. Configure gdbserver only for Lynx. Re-do selective configuration of sparclite. * gdbserver/{remote-gutils.c remote-server.c Makefile.in configure.in remote-inflow.c remote-utils.c}: New files to support GDB remote server. Currently only works for Lynx. Wed May 26 10:28:14 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c (define_symbol, case 't'): Only set the name if it is not a pointer type. * stabsread.c (define_symbol): Clean up logic; move the read_type calls to inside the switch statement (this improves the error handling). * mipsread.c (parse_symbol, parse_partial_symbols): Deal with Fortran common blocks. Tue May 25 20:44:24 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * printcmd.c (print_formatted, case 'i'): Pass a tab to wrap_here. * source.c (line_info): Change "pc" to "address" in messages and use print_address for addresses. * source.c (line_info): If we don't find a symtab, print more useful output, including the symbolic address. * source.c (line_info): If --fullname, display the source. (identify_source_line), callers: Take pc as argument, rather than assuming innermost frame (emacs doesn't use this, so no one ever noticed). * symtab.h: Declare frame_file_full_name. * main.c: Don't. Tue May 25 15:30:43 1993 Brendan Kehoe (brendan@lisa.cygnus.com) * breakpoint.c (catch_command_1): Fix typo in error msg. Tue May 25 16:05:55 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elfread.c (elf_symfile_read): Update ELF structure and routine names to specify 32-bit versions. (elf_symtab_read): Retrieve size field directly from symbol, instead of using old kludge. * mips-pinsn.c (print_insn): Cast address to bfd_vma before calling opcodes library. * z8k-tdep.c (print_insn): Likewise. Tue May 25 13:06:28 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabsread.c: Remove all uses of error(). Make error_type and read_type_number static. (define_symbol): Don't try to deal with a missing symbol descriptor which isn't followed by digit, '(', or '-'. * stabsread.h: Don't declare read_type_number here. * gdbtypes.h: Don't declare error_type here. * xcoffread.c: Remove NO_TYPEDEFS code. Tue May 25 09:33:16 1993 Ian Lance Taylor (ian@cygnus.com) * mips-tdep.c: Removed #include of many header files, and #define of MIPSMAGIC; no longer used. Tue May 25 09:36:13 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Many places: replace "the inferior" in messages with "the program" or "the program being debugged". * inflow.c (try_writing_regs): Remove; it's been #if 0'd forever and I'm getting sick of maintaining it. * config/i386/linux.mh: Don't use \ newline; the awk scripts don't support it. * config/i386/go32.mh: Define SER_HARDWIRE. * Makefile.in: Define SER_HARDWIRE. (DEPFILES): Use it. (alldeps.mak): Add SER_HARDWIRE. Remove all references to ser-hardwire.{c,o}. * configure.in: Remove all ser_hardwire and gdb_serial_driver stuff. Mon May 24 23:50:05 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * sparc-nat.c (store_inferior_registers): Fill in all members of inferior_fp_registers by reading them from the inferior before modifying and writing them back. Fixes unexplainable inferior FP exceptions after calls to the inferior or setting of floating point registers. * mips-tdep.c (mips_skip_prologue): Skip move of argument register to register which is generated by gcc-2.4. Tue May 25 00:42:39 1993 Ken Raeburn (raeburn@cygnus.com) * hppa-pinsn.c: Define OLD_TABLE before including opcode/hppa.h. Mon May 24 13:55:14 1993 Stu Grossman (grossman@cygnus.com) * config/i386/{i386lynx.mh i386lynx.mt nm-i386lynx.h tm-i386lynx.h xm-i386lynx.h}: New configuration for Lynx. Mon May 24 10:01:10 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mipsread.c (parse_symbol): Deal with scVar and scVarRegister. * symtab.h: Comment that LOC_REGPARM_ADDR can be call by reference. * c-typeprint.c (c_type_print_base): Don't print typedef'd names as struct, union, or enum tags. Mon May 24 01:10:01 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symmisc.c (dump_msymbols): Avoid gdb coredump with stripped executable. Sat May 22 10:03:09 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * infrun.c (wait_for_inferior), infcmd.c (program_info, signal_command): Use symbolic signal names. * inftarg.c (child_wait): Deal with EINTR and include message from strerror if printing an error message. * main.c (command_line_input): Use STOP_SIGNAL not SIGTSTP. * stabsread.c: Remove most uses of lookup_fundamental_type. (define_symbol): Use read_type for type of enum constant, not just read_type_number. Also don't call error(). (define_symbol): For unrecognized constant type, one complaint (the one from error_type) is enough. Don't make our own in addition. (define_symbol): Don't treat an N_FUN 'R' as a prototype. * gdbtypes.h: Doc fixes. Sat May 22 03:33:07 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) Fix stack unwinding through _sigtramp on Irix. These patches are from Paul Flinders . * mipsread.c (fixup_sigtramp): Find _sigtramp on Irix even when the executable uses sigvec. * mips-tdep.c (read_next_frame_reg): Allow tm-file to override sigcontext offsets. * config/mips/tm-irix3.h: Add sigcontext offsets for Irix. Sat May 22 00:39:01 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * infrun.c (wait_for_inferior): Clear stop_signal if it should not be passed to the inferior to make "handle nopass nostop" work. Sat May 22 00:21:41 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/mips/tm-irix3.h: Clean up, use tm-bigmips.h and redefine the necessary bits. * findvar.c (value_from_register): Fix uninitialized first_addr which caused problems with assignment of doubles to register variables on some targets. * mipsread.c: Remove TM_FILE_OVERRIDE, include tm.h and provide the missing mips definitions if necessary. Fix handling of double register variables for mips targets and big endian hosts. These patches are from Paul Flinders . * config/mips/tm-mips.h: Increase MAX_REGISTER_{RAW,VIRTUAL}_SIZE to 8 bytes for doubles. * config/mips/tm-mips.h (REGISTER_CONVERT_TO_TYPE): New macro for conversion of type held in multiple registers to host format. * config/mips/tm-mips.h (REGISTER_CONVERT_FROM_TYPE): New macro, companion to REGISTER_CONVERT_TO_TYPE. * config/mips/tm-mips.h (EXTRACT_RETURN_VALUE, STORE_RETURN_VALUE): Convert to function calls. * config/mips/tm-mips.h (FIX_CALL_DUMMY): New code for big endian mips targets. * mips-tdep.c (mips_print_register): Raw buffer now needs just MAX_REGISTER_RAW_SIZE bytes. * mips-tdep.c (mips_print_register): Use REGISTER_CONVERT_TO_TYPE (if defined) for doubles. * mips-tdep.c: (mips_extract_return_value, mips_store_return_value): New functions, take care of REGISTER_CONVERT_TO/FROM_TYPE. * valops.c (value_assign): Use REGISTER_CONVERT_TO_TYPE if defined. * findvar.c (value_from_register): Use REGISTER_CONVERT_TO_TYPE if defined. Fri May 21 09:04:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Add i[34]86-*-isc*. * stabsread.c: Make sure all complain() pass the address of the struct. * xcoffread.c: Make sure all struct complaints are static not auto. * Makefile.in: Add rule for xcoffexec.o like that for paread.o. * xcoffread.c (process_xcoff_symbol, case C_LSYM): Use define_symbol. Wed May 19 12:33:59 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/i386/linux.mh: Re-enable coredumps now that they should work. Wed May 19 15:44:20 1993 K. Richard Pixley (rich@cygnus.com) * config/m68k/tm-m68k.h (FRAME_CHAIN): add missing close paren. Wed May 19 15:33:57 1993 Stu Grossman (grossman@cygnus.com) * config/pa/nm-hppab.h: Comment PTRACE_ARG3_TYPE. Wed May 19 12:33:59 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (INSTALLED_LIBS): New variable. Tue May 18 14:08:50 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * main.c (quit_command): In the "quit anyway?" message, tell the user whether we are planning to detach or kill the program. * config/vax/vaxbsd.mh: Add "NAT_FILE= nm-vax.h". * config/vax/xm-vaxbsd.h: Use not * infcmd.c (read_pc): Doc fix. * printcmd.c (print_address_symbolic): Use %u not %d for offset. * blockframe.c (get_prev_frame_info): If pc in sigtramp, set signal_handler_caller. * tm-68k.h (FRAME_{CHAIN,SAVED_PC}): Deal with sigtramp. * tm-hp300bsd.h: Define SIGTRAMP_{START,END} not IN_SIGTRAMP. * inferior.h (IN_SIGTRAMP): Definition moved from infrun.c. Use SIGTRAMP_START if defined. * infcmd.c (step_1): Use SIGTRAMP_{START,END} if needed. * infrun.c (wait_for_inferior): Check IN_SIGTRAMP before SKIP_PROLOGUE. * infptrace.c: Remove unused KERNEL_U_ADDR_HPUX code. * infcmd.c (step_1): Fix poorly worded error message. * config/{i386/linux.mh,m68k/isi.mh} (NATDEPFILES): Comment out corelow.c because core dumps are broken on these machines. * Makefile.in (depend): Put "${srcdir}" in generated dependencies if srcdir is not ".". Also put in -I${BFD_DIR} or -I${READLINE_DIR} for files which need it. (INCLUDE_CFLAGS): Remove BFD_DIR and READLINE_DIR. * depend: Update to latest automatically built version. Tue May 18 08:10:45 1993 Fred Fish (fnf@cygnus.com) * ChangeLog, ChangeLog-92: Split ChangeLog at 1993. * Makefile.in (NONSRC): Add ChangeLog-92 Tue May 18 08:03:37 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * findvar.c ({read,write}_register): Use REGISTER_RAW_SIZE not typo RAW_REGISTER_SIZE. * frame.h, inferior.h: Doc fixes. Mon May 17 15:43:03 1993 Stu Grossman (grossman@cygnus.com) * findvar.c (write_register): Add sanity check for register size. (read_register): Fixup sanity check for register size to be consistent with write_register(). Mon May 17 07:36:20 1993 Ian Lance Taylor (ian@cygnus.com) * sparclite/Makefile.in: Add dummy info, install and install-info targets. Thu May 13 07:30:22 1993 Ian Lance Taylor (ian@cygnus.com) * remote-nindy.c: Removed declaration of coffstrip. * nindy-share/nindy.c: #if 0 coffstrip routine; no longer used. Wed May 12 00:35:19 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.9.1 after release and cvs tagging. * Makefile.in (VERSION): GDB 4.9 release. Tue May 11 08:04:41 1993 Fred Fish (fnf@cygnus.com) * README: Update known bugs to include the Solaris bug that leaves core dumps in the current directory when restarting the inferior with "run". Expand on the testsuite information. * Makefile.in (VERSION): Bump to 4.8.96 for what should hopefully be the last 4.9 prerelease test archive. Mon May 10 22:13:23 1993 Jim Kingdon (kingdon@cygnus.com) * config/m68k/xm-hp300bsd.h: Include to avoid INT_MAX redefined warnings. Mon May 10 20:00:43 1993 Fred Fish (fnf@cygnus.com) * README, NEWS: Update for gdb 4.9 release. Mon May 10 19:38:34 1993 John Gilmore (gnu@cygnus.com) * ch-exp.y (MAX, MIN): Rename to MAX_TOKEN, MIN_TOKEN. * target.c (MIN): #undef before defining. Mon May 10 16:03:03 1993 Jim Kingdon (kingdon@cygnus.com) Patch from Jeffrey Law: * gdb/config/pa/nm-hppab.h (PTRACE_ARG3_TYPE): Define as caddr_t. Mon May 10 15:28:27 1993 Ian Lance Taylor (ian@cygnus.com) * hppa-tdep.c (hppa_push_arguments): Allocate correct amount of memory. Mon May 10 13:14:46 1993 Fred Fish (fnf@cygnus.com) * ch-exp.y (start): Apply work-around to avoid bison warning. Sun May 9 07:25:02 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (BISON): Remove double quotes around BISON definition when bison is used. * configure.in (hppa*-hp-bsd): Change to hppa*-hp-bsd* * configure.in (hppa*-hp-hpux): Change to hppa*-hp-hpux* * configure.in (m68*-hp-bsd): Change to m68*-hp-bsd* * configure.in (m68*-hp-hpux): Change to m68*-hp-hpux* * configure.in (hppa*-*-bsd): Change to hppa*-*-bsd* * configure.in (hppa*-*-hpux): Change to hppa*-*-hpux* * configure.in (m68*-hp-bsd): Change to m68*-hp-bsd* * configure.in (m68*-hp-hpux): Change to m68*-hp-hpux* * Makefile.in (VERSION): Bump to 4.8.6. Sat May 8 12:36:03 1993 Fred Fish (fnf@cygnus.com) * config/pa/xm-hppah.h (MALLOC_INCOMPATIBLE): Define it, and include declarations for malloc/realloc/free. Both malloc and realloc return 'void *' for non-ANSI compilations. Sat May 8 01:39:30 1993 (pes@regent.e-technik.tu-muenchen.de) * coffread.c (read_coff_symtab): Don't fclose stream as it is no longer opened twice. Thu May 6 21:08:55 1993 Jim Kingdon (kingdon@cygnus.com) * solib.c (clear_solib): Don't close bfd if it is NULL. Thu May 6 20:55:35 1993 Fred Fish (fnf@cygnus.com) * core.c (dis_asm_read_memory): Cast second arg of target_read_memory to "char *". * breakpoint.c (watchpoint_check): Change arg type from PTR to "char *", to match other functions called by catch_errors(). Thu May 6 15:47:45 1993 Stu Grossman (grossman@cygnus.com) * More patches from Jeffrey Law (law@cs.utah.edu). * gdb/config/nm-hppab.h (PTRACE_ARG3_TYPE): Define as caddr_t. * gdb/config/pa/tm-hppah.h (millicode_start, millicode_end): Delete unnecessary declarations. Thu May 6 15:15:46 1993 Stu Grossman (grossman@cygnus.com) * ser-unix.c (wait_for): Use VTIME to do timeouts instead of poll() for termio{s}. Thu May 6 10:03:41 1993 Jim Kingdon (kingdon@cygnus.com) * i386-tdep.c (i386_frame_num_args): Always return -1. Wed May 5 15:16:33 1993 Stu Grossman (grossman@cygnus.com) * Patches from Jeffrey Law . * gdb/hppa-tdep.c: Declare frame_saved_pc. (frameless_function_invocation): New function. (frame_saved_pc, init_extra_frame_info): Use frameless_function_invocation. * gdb/config/pa/tm-hppa.h (SAVED_PC_AFTER_CALL): Use saved_pc_after call instead of just grabbing the value currently in %r2. (FRAMELESS_FUNCTION_INVOCATION): Use frameless_function_invocation. * gdb/config/pa/tm-hppah.h (SAVED_PC_AFTER_CALL): Delete private definition and use the common one in tm-hppa.h. * gdb/hppa-tdep.c (frame_chain_valid): If "use_unwind" is true, then use unwind descriptors to determine if the frame chain is valid. * gdb/hppa-tdep.c (find_dummy_frame_regs): Rework so that it does not assume %r4 is the frame pointer. * gdb/hppa-pinsn.c (print_insn): Handle 'r' and 'R' for break, rsm, and ssm instructions. * gdb/hppa-tdep.c (extract_5r_store, extract_5R_store): New helper functions for print_insn. * gdb/hppa-tdep.c (gcc_p, hpux_cc_p): Delete unused functions. * gdb/config/pa/tm-hppa.h (ABOUT_TO_RETURN): Handle a return which nullifies the following instruction. Tue May 4 12:11:38 1993 Jim Kingdon (kingdon@cygnus.com) * infptrace.c [FIVE_ARG_PTRACE]: Define ptrace to call_ptrace and pass the 5th arg there, rather than using an ANSI C-specific macro. * Makefile.in (depend): Don't include ${CC} command for *.tab.c. Tue May 4 19:33:12 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump to 4.8.5 * Makefile.in (INCLUDE_CFLAGS): Add BFD_DIR and READLINE_DIR directories to include search path. * Makefile.in (CLIBS, CDEPS, ADD_FILES, ADD_DEPS): Clean up whitespace. * Makefile.in (depend): For gcc -MM line, use INTERNAL_CFLAGS * Makefile.in (main.o, dbxread.o, coffread.o, mipsread.o, elfread.o, dwarfread.o, stabsread.o, xcoffread.o, xcoffexec.o, xdr_ld.o, xdr_rdb.o, nindy.o, Onindy.o, ttybreak.o, ttyflush.o, udr.o, udip2soc.o): Remove explicit rules, use the ones that are automatically generated in "depend". * Makefile.in (paread.o): Document why a dependency doesn't get automatically generated in "depend" and leave this explicit rule in for now (FIXME). * depend: Update to latest automatically generated version. Tue May 4 12:11:38 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffread.c: Doc fix. * Makefile.in (depend): Include $(CC) command in generated output. Mon May 3 22:51:05 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (NONSRC): Remove ${srcdir}/putenv.c. * Makefile.in (SFILES): Add ${srcdir}/putenv.c. * depend: Update to latest automatically built version. Mon May 3 19:20:20 1993 Stu Grossman (grossman@cygnus.com) * sparclite/Makefile.in: Create default target that does nothing in order to force user to build by hand. * sparclite/Makefile: Remove. It's not necessary anymore. * ser-unix.c (wait_for): New routine to handle read timeouts, etc. Uses poll() if HAVE_TERMIO[S] is defined, select() otherwise. Mon May 3 13:52:08 1993 Ian Lance Taylor (ian@cygnus.com) * mips-pinsn.c (print_insn): Return value. Sun May 2 11:43:57 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (SFILES): Remove ser-hardwire.c; it is a link made at configuration time and doesn't belong in the distribution archive. * Makefile.in (NONSRC): Add 29k-share/README. * Makefile.in (HFILES): Add 29k-share/udi/udiids.h. * defs.h (UINT_MAX, LONG_MAX, INT_MAX, INT_MIN): Replace hex constants with slightly more portable definitions (still depends on 2's complement arithmetic though). * config/i386/nm-linux.h: Define NO_SYS_REG_H for no . * i386v-nat.c (sys/reg.h): Conditionalize include on NO_SYS_REG_H. Linux doesn't have . * ser-unix.c (termio.h): Include like other files that include termio.h, not which may not exist (on linux for example). Sat May 1 16:05:24 1993 Fred Fish (fnf@cygnus.com) * valprint.c (print_longest): Change format parameter from a 'char' to an 'int'. We can't have 'char' parameters with the current coding style, where we mix prototypes with pre-ANSI style declarations. * value.h (print_longest): Change format parameter in prototype from a 'char' to an 'int'. Sat May 1 02:47:20 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config/mips/tm-mips.h (STAB_REG_TO_REGNUM): Match it with the gcc definition. * config/mips/tm-irix3.h (STAB_REG_TO_REGNUM): Add. * irix4-nat.c (fill_fpregset): Fix bug with indexing into fpregsetp. Fri Apr 30 17:45:32 1993 Stu Grossman (grossman@cygnus.com) * The following patches are from Jeffrey Law . * config/pa/hppabsd.mh: Add more files to NATDEPFILES. * config/pa/xm-hppa[bh].h: Define FIVE_ARG_PTRACE. * hppab-nat.c: Delete WANT_NATIVE_TARGET ifdefs. ptrace needs 5 arguments, #define ptrace to always pass zero as the 5th argument. Fri Apr 30 15:54:13 1993 Steve Chamberlain (sac@thepub.cygnus.com) * configure.in: Match z8k-*-sim for z8000. * config/h8500/tm-h8500.h, h8500-tdep.c: Lint. * remote-hms.c: Update to use new serial protocol. Fri Apr 30 16:50:38 1993 K. Richard Pixley (rich@rtl.cygnus.com) * mips-tdep.c: remove include of sys/dir.h. Doesn't seem necessary and Solaris doesn't have it. * Makefile.in (clean-info, install, install-info, info, dvi, check, all): do not echo recursion lines. * 29k-share/udip2soc.c (UDIConnect): replace union wait with int. * config/sparc/sun4sol2.mh (XM_CLIBS): add -lsocket which is required target ports which use sockets (like a29k-udi). * remote-udi.c (udi_wait): Use SIGURG, as Solaris doesn't have SIGLOST. Fri Apr 30 11:05:42 1993 Jim Kingdon (kingdon@cygnus.com) * ser-unix.c [USE_{TERMIO,ALARM}_TIMEOUT]: New code to deal with systems lacking select(). * Makefile.in (TAGS): Doc fix. Deal with empty DEPFILES. Fri Apr 30 10:06:46 1993 Fred Fish (fnf@cygnus.com) * alldeps.mak, depend: Update with latest automatically built versions. Thu Apr 29 12:03:23 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (SFILES): Add ser-unix.c and ser-go32.c. * Makefile.in (make-proto-testsuite.dir): New target to make prototype testsuite tree. * Makefile.in (VERSION): Bump to 4.8.4. Thu Apr 29 08:46:22 1993 Jim Kingdon (kingdon@cygnus.com) * stabsread.c (define_symbol): If unrecognized constant type, complain() not error(). Thu Apr 29 00:03:59 1993 Fred Fish (fnf@cygnus.com) * infptrace.c: Add missing close paren to test for FIVE_ARG_PTRACE defined. * defs.h (CC_HAS_LONG_LONG): Set up to define CC_HAS_LONG_LONG when compiling with gcc, but disable it for now. See comment. * defs.h (LONGEST): Define as either "long" or "long long" based on CC_HAS_LONG_LONG. * defs.h (longest_to_int): Use CC_HAS_LONG_LONG to control how longest_to_int is defined. * c-valprint.c (c_val_print): Call print_longest. * expprint.c (dump_expression): Use PRINTF_HAS_LONG_LONG instead of LONG_LONG. * {printcmd.c, gdbtypes.h} (LONG_LONG): Replace usages with CC_HAS_LONG_LONG. * printcmd.c (print_scalar_formatted): Call print_longest and let it figure out what to do for PRINTF_HAS_LONG_LONG. * typeprint.c (print_type_scalar): Call print_longest and let it figure out what to do for PRINTF_HAS_LONG_LONG. * valprint.c (val_print_type_code_int): Call print_longest and let it figure out what to do for PRINTF_HAS_LONG_LONG. * stabsread.c (LONG_LONG): Replace usages with CC_HAS_LONG_LONG. * value.h (struct value): Replace usage of LONG_LONG with CC_HAS_LONG_LONG. * value.h (print_longest): Add prototype. * values.c (LONG_LONG): Replace usages with CC_HAS_LONG_LONG. * values.c (unpack_double): Collapse code that was unnecessarily dependent on CC_HAS_LONG_LONG. Use LONGEST instead of direct types. * values.c (value_from_longest): Remove dependency on CC_HAS_LONG_LONG and just use LONGEST. * solib.c (solib_map_sections): Use bfd_get_filename to access filename field. * solib.c (clear_solib): Save filename and free it later, after bfd_close, since bfd_close may reference it. Use bfd_get_filename to access the field. * config/convex/xm-convex.h (LONG_LONG): Replace with CC_HAS_LONG_LONG. Add define for PRINTF_HAS_LONG_LONG. * doc/gdbint.texinfo (LONG_LONG): Replace with CC_HAS_LONG_LONG. Add PRINTF_HAS_LONG_LONG references. Wed Apr 28 06:11:38 1993 Jim Kingdon (kingdon@cygnus.com) * inflow.c (kill_command), infcmd.c (attach_command), remote.c (remote_interrupt_twice): In messages for the user, call it "the program" or "the program being debugged" not "the inferior". * hp300ux-nat.c: Cast second arg to supply_register calls. (_initialize_kernel_u_addr, getpagesize): New functions. (store_inferior_register_1): Change arg name from value to val. (fetch_core_registers): Make arg core_reg_size unsigned. Pass 5 args to ptrace. * config/m68k/xm-hp300hpux.h: Define FIVE_ARG_PTRACE. Remove KERNEL_U_ADDR stuff. * infptrace.c [FIVE_ARG_PTRACE]: Pass 5th arg to ptrace. * config/m68k/hp300hpux.m{t,h}: Move exec.o from NATDEPFILES to TDEPFILES * config/m68k/hp300hpux.mt: Mention GAS requirement. Remove hp-include stuff. Add m68k-tdep.o to TDEPFILES. Wed Apr 28 13:27:54 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * ch-exp.y (yylex): Don't STREQ with simplename if it is NULL. Wed Apr 28 06:11:38 1993 Jim Kingdon (kingdon@cygnus.com) * config/sparc/xm-sun4os4.h [__STDC__]: Don't use MALLOC_INCOMPATIBLE. Wed Apr 28 11:39:18 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * doc/gdb.texinfo: make node "Shell Commands" unconditional; describe `set demangle-style arm' (not cfront); mention can type `q' to discard output, when gdb pages Wed Apr 28 11:32:39 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * valops.c (search_struct_field): Fix gdb core dump with incomplete stabs info. Wed Apr 28 06:11:38 1993 Jim Kingdon (kingdon@cygnus.com) * remote.c: Change timeout to 2. (remote_open): Use unpush_target not remote_close. (remote_resume): If siggnal != 0, give warning not error(). (remote_wait, remote_interrupt, remote_interrupt_twice): If we get two interrupts, let the user get out if they want. (remote_{kill,mourn}): New functions. i386-stub.c (handle_exception, case 'k'): Don't BREAKPOINT. Wed Apr 28 09:20:55 1993 Ian Lance Taylor (ian@rtl.cygnus.com) * config/sparc/sun4sol2.mh (XM_CLIBS): Define to be -lnsl. Wed Apr 28 06:11:38 1993 Jim Kingdon (kingdon@cygnus.com) * Remote targets (mourn): Call unpush_target. * config/sparc/xm-sun4os4.h: Declare free() to return int. Remove twisted use of PARAMS. * config/rs6000/xm-rs6000.h: Don't define MALLOC_INCOMPATIBLE now that ansidecl.h assumes ANSI on AIX. Tue Apr 27 10:01:33 1993 Jim Kingdon (kingdon@cygnus.com) * README: Move most stuff about hacking GDB to doc/gdbint.texinfo. (Known bugs): Remove AIX bugs, revise SPARC struct bug description. Tue Apr 27 13:44:19 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * expprint.c (print_subexp): Fix bug with OP_SCOPE operator output. Tue Apr 27 10:01:33 1993 Jim Kingdon (kingdon@cygnus.com) * remote-vx.c (net_connect): Allow numeric IP address for host. Mon Apr 26 17:59:38 1993 Steve Chamberlain (sac@thepub.cygnus.com) * config/sh/sh.mt, config/sh/tm-sh.h, sh-tdep.c: New files. Mon Apr 26 07:13:32 1993 Jim Kingdon (kingdon@cygnus.com) * rs6000-tdep.c (branch_dest): Deal with stepping through system call. * symtab.h, xcoffread.c: Revise linetable sorting comments. Sun Apr 25 02:32:16 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * valops.c (value_cast): A cast might also change the object representation in C++. * dbxread.c (end_psymtab): Copy subpst read_symtab function from pst to get the proper read_symtab function when called from mipsread.c. * mipsread.c (mipscoff_psymtab_to_symtab, psymtab_to_symtab_1): Set cur_bfd in psymtab_to_symtab_1 as CURBFD(pst) is invalid for dummy psymtabs, inhibit processing of dummy psymtabs. Sat Apr 24 19:59:54 1993 Jim Kingdon (kingdon@cygnus.com) * Changes from (or inspired by) AMD: * remote-udi.c (udi_attach): Assignments to Space and Offset were switched, fix it. (udi_wait): Make error message (UDIGetStdout) match error. (udi_wait): Handle UDIStdinNeeded. * command.c [CANT_FORK]: Use system(). * utils.c (prompt_for_continue): Allow quit with 'q'. * solib.c (solib_add): Don't call special_symbol_handling if there were errors in symbol_add_stub. Also set so->from_tty before calling symbol_add_stub. Fri Apr 23 16:17:00 1993 Stu Grossman (grossman@cygnus.com) * Merge in HPPA/BSD patches from Utah: * defs.h: Add const to 2nd arg of psignal prototype. * hppah-tdep.c: Renamed to hppa-tdep.c 'cuz it's common code with BSD now. * hppab-core.c: Deleted. No longer useful. * hppab-nat.c: #include more files. Use PT_WUREGS, not PT_WRITE_U. * hppab-tdep.c: Deleted. Supplanted by hppa-tdep.c. * config/pa/hppabsd.mh (NATDEPFILES): Remove hppab-core.o. * config/pa/hppabsd.mt (TDEPFILES): hppab-tdep.o => hppa-tdep.o * config/pa/hppahpux.mt (TDEPFILES): hppab-tdep.o => hppa-tdep.o * config/pa/xm-hppab.h: #define SET_STACK_LIMIT_HUGE. Fri Apr 23 10:34:02 1993 Stu Grossman (grossman@cygnus.com) * Fix two bugs found by deja-gnu. One is the incorrect reporting of the PC being in a stack dummy when looking at a core file without symbols. The other is the incorrect passing of char arguments during expression evaluation (ie: p foo('a','b') would mess up the passing of it's args because it wasn't coercing the char's to ints). * hppah-tdep.c: Rename global functions to have consistent hppa_ prefix. Make more functions static. Drop hp_ prefix from static functions. (hppa_push_arguments): Call value_arg_coerce to cast char to int args if necessary. (hppa_fix_call_dummy): Create this routine from FIX_CALL_DUMMY macro in tm-hppa.h. * inferior.h (PC_IN_CALL_DUMMY): Check for frame_address being valid (ie: != 0) before doing comparison against PC. * valops.c (call_function_by_hand): Adjust call to FIX_CALL_DUMMY to reflect new arguments. * config/pa/tm-hppa.h (POP_FRAME, PUSH_ARGUMENTS): Use new hppa_ prefix for func name. (FIX_CALL_DUMMY): Move code into hppah-tdep.c. * testsuite/gdb.t16/gdbme.c, testsuite/gdb.t17/gdbme.c: Add calls to malloc() so that we can test GDB eval of dynamically created arrays (like char strings in `print "foo"'). Fri Apr 23 01:28:14 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * printcmd.c (print_address_symbolic): Search symtabs as well as the minimal symbols for a nearby symbol. Thu Apr 22 19:44:21 1993 John Gilmore (gnu@cacophony.cygnus.com) * coffread.c: Comment changes around minimal symbol recording. Thu Apr 22 16:24:36 1993 K. Richard Pixley (rich@rtl.cygnus.com) * command.c: comment changes only. * mips-tdep.c (heuristic_fence_post): new static variable. (heuristic_proc_start): use heuristic_fence_post, print better warnings, but only if not stop_soon_quietly. (_initialize_mips_tdep): add_set_cmd for heuristic-fence-post. Thu Apr 22 14:50:05 1993 Jim Kingdon (kingdon@cygnus.com) * symtab.h: Fix LOC_REF_ARG comment. Wed Apr 22 20:21:30 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) and Jim Kingdon (kingdon@cygnus.com) * stabsread.c (define_symbol): Combine a 'p', 'r' arg pair to a LOC_REGPARM symbol. * config/sparc/tm-sparc.h (REG_STRUCT_HAS_ADDR): Revise comments. symfile.c (compare_symbols): Don't check first character; STRCMP does that. * stabsread.c (define_symbol): Generate a LOC_REGPARM_ADDR for structures that are passed by address in a register. * symtab.h (enum address_class): Add LOC_REGPARM_ADDR. * findvar.c (read_var_value), printcmd.c (address_info, print_frame_args), stack.c (print_frame_arg_vars), symmisc.c (print_{,partial_}symbol), * symtab.c (lookup_block_symbol): Deal with it. Thu Apr 22 09:07:24 1993 Jim Kingdon (kingdon@cygnus.com) * objfiles.h (obj_section), objfiles.c (build_objfile_section_table): Add objfile field. * objfiles.c (find_pc_section): Return a struct obj_section *. * sparc-tdep.c (in_solib_trampoline): Deal with find_pc_section return. * symfile.c (syms_from_objfile) [IBM6000_TARGET]: Don't use obj_section hack. * xcoffexec (vmap_symtab): Relocate obj_sections. * printcmd.c (containing_function_bounds): Use find_pc_section. * symtab.h: Clean up SYMBOL_VALUE comments. Wed Apr 21 14:29:57 1993 Jim Kingdon (kingdon@cygnus.com) * stack.c (print_frame_arg_vars), printcmd.c (print_frame_args): Expand comments about LOC_ARG/LOC_LOCAL pairs. * coffread.c (read_coff_symtab): Use rewind before fseek. Wed Apr 21 14:24:19 1993 Per Bothner (bothner@cygnus.com) * ch-exp.y: Removed unused structure_primitive_value and FIXME_23. * Makefile.in: Add $(YFLAGS) when using $(YACC). * Makefile.in: Remove message to expect conflicts and unused rules in ch-exp.y, since there no longer are any such. Wed Apr 21 13:27:50 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * stabs.texinfo: fixed bad xrefs (un-initialized statics) Tue Apr 20 08:55:11 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffexec.c (xcoff_relocate_core): If no exec file, error() rather than dumping core. * Makefile.in: Add ${srcdir}/ to all source files. (alldeps.mak): Add "${srcdir}/" to files when generating alldeps.mak. (TAGS): Deal with srcdir and new config directory scheme. createtags: Remove. Makefile.in (NONSRC): Remove createtags. alldeps.mak: Updated. * rs6000-tdep.c: Delete unused function print_frame. * frame.h (struct frame_info): Doc fix for next_frame. New field signal_handler_caller. blockframe.c (create_new_frame, get_prev_frame_info), config/rs6000/tm-rs6000.h (INIT_EXTRA_FRAME_INFO): Set it (needs INIT_FRAME_PC_FIRST). stack.c (print_frame_info), rs6000-tdep.c (rs6000_frame_chain): Check it. Mon Apr 19 22:52:33 1993 Stu Grossman (grossman@cygnus.com) * irix4-nat.c (fetch_core_registers): Special version of this for Irix 4.x, which stores regs a bit differently from other /proc based systems. * procfs.c, core-svr4.c: Move fetch_core_registers from procfs.c to new file core-svr4.c. * config/i386/i386sol2.mh, config/i386/i386v4.mh, config/m68k/amix.mh, config/i386/ncr3000.mh, config/sparc/sun4sol2.mh: Add core-svr4.o to NATDEPFILES. * config/mips/irix4.mh: Add corelow.o to NATDEPFILES. Mon Apr 19 11:13:34 1993 Jim Kingdon (kingdon@cygnus.com) * i387-tdep.c: Remove unused #includes. * configure.in: Match i[34]86-*-sysv3.2 not i[34]86-*-sysv32. * config/i386/nm-i386v.h: Define NO_PTRACE_H. Sun Apr 18 10:39:35 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffread.c: Nuke NO_DEFINE_SYMBOL code. There is no going back. * stabsread.c (define_symbol): 'R' is synonym for 'P', not 'r'. xcoffread.c (process_xcoff_symbol, case C_RPSYM): Don't muck with SYMBOL_CLASS. Fri Apr 16 17:38:33 1993 Stu Grossman (grossman@cygnus.com) * munch: Don't use head command. It doesn't exist everywhere. Fri Apr 16 15:07:57 1993 Fred Fish (fnf@cygnus.com) * inflow.c (new_tty): Remove spurious 'o' character at end of #endif line. Fri Apr 16 12:27:11 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mips-tdep.c (mips_skip_prologue): Always skip the typical prologue instructions and nothing more. * mipsread.c (add_line): Add comment why we have to combine line number entries for the same line number. Fri Apr 16 09:42:03 1993 Jim Kingdon (kingdon@cygnus.com) * symtab.{c,h}: Doc fixes (remove symseg references, last relevant in gdb 2.8!). Thu Apr 15 21:16:58 1993 Fred Fish (fnf@cygnus.com) * depend, alldeps.mak: Update, now that gcc -MM bug is fixed. Thu Apr 15 12:38:39 1993 Jim Kingdon (kingdon@cygnus.com) * source.c (select_source_symtab): Clean up comment. Also, if we have a current_source_symtab, and s is NULL, return without doing anything. xcoffread.c (xcoff_symfile_read): Don't call select_source_symtab. breakpoint.c (breakpoint_re_set): Don't call select_source_symtab. Thu Apr 15 02:37:48 1993 John Gilmore (gnu@cacophony.cygnus.com) * dbxread.c (unknown_symchar_complaint): Add new complaint. * stabsread.h: Declare it. * partial-stab.h: Use it. * utils.c (malloc_botch): Don't forward-declare if NO_MMALLOC. Wed Apr 14 17:12:51 1993 Jim Kingdon (kingdon@cygnus.com) * stack.c (print_frame_info): Print specially if dummy frame. * breakpoint.c: Add comments regarding within_scope future direction. * Version 4.8.3. * xcoffread.c (record_include_{begin,end}): Change fatal to complain. Wed Apr 14 14:03:18 1993 Per Bothner (bothner@cygnus.com) * ch-exp.y: Fix thinko that broke parsing of FALSE. Wed Apr 14 12:49:29 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * stabsread.c (read_member_functions): Initialize domain for stubbed member functions to avoid gdb core dumps when printing pointers to member functions. * cp-valprint.c (cp_print_class_method): Check for stubbed member functions. Tue Apr 13 08:28:26 1993 Jim Kingdon (kingdon@cygnus.com) * expprint.c (print_subexp): If opcode not found in op_print_tab, stop with an error(). eval.c (evaluate_subexp): Change error message. * objfiles.c (build_objfile_section_table): Cast return value from obstack_finish. Mon Apr 12 10:53:50 1993 Jim Kingdon (kingdon@cygnus.com) * config/rs6000/tm-rs6000.h, rs6000-tdep.c: Move FRAME_CHAIN to rs6000_frame_chain and deal with it if we're in a signal handler. (FRAME_SAVED_PC): Use rs6000_frame_chain. * breakpoint.c (within_scope): New function. (enable_breakpoint, watchpoint_check): Use it. * source.c (openp): Handle "exec-file ./ls" correctly. * breakpoint.c (breakpoint_1): Use wrap_here before "at". Sat Apr 10 01:32:43 1993 Per Bothner (bothner@rtl.cygnus.com) * ch-exp.y: Clean up lexing of identifiers and reserved words. (E.g. don't recognize FALSEXXX as the keyword FALSE followed by the identifier XXX.) Also, convert identifiers to lower case. Fri Apr 9 15:53:19 1993 Stu Grossman (grossman@cygnus.com) * remote-mips.c, remote-monitor.c, remote-st2000.c: Convert to new serial interface. Fri Apr 9 15:01:12 1993 Stu Grossman (grossman@cygnus.com) * remote.c (remote_open): Use SERIAL_OPEN instead of serial_open. (putpkt, getpkt): Use new return codes for SERIAL_READCHAR. * ser-go32.c: Return -1 on most failures, 0 on most successes, and use new return codes for go32_readchar(). * ser-unix.c: Ditto. Also, move error handling up to caller for SERIAL_SETBAUDRATE(). * serial.c (serial_open): Internal call, not SERIAL_OPEN to get to specific routine. (serial_close): New routine to wrap around device close routine. serial.h: Clean & document return values more clearly. Fri Apr 9 10:20:55 1993 Jim Kingdon (kingdon@cygnus.com) * rs6000-pinsn.c (print_operand): Deal with no operand instructions. * rs6000-pinsn.c (print_operand, case LI): Print condition register operand in decimal rather than wrong textual versions. * printcmd.c (_initialize_printcmd): Clean up docstring for "x" (mention 't', remove false thing about 'g' only good with 'f'). * breakpoint.h: move "struct breakpoint" and friends to top of file so that bpstat_find_breakpoint prototype works. * solib.c (struct so_list): Add bfd field. (solib_map_sections): Leave bfd open and scratch_pathname allocated. Put the bfd in bfd field of the so_list. (clear_solib): Free bfd name and close_bfd on the bfd. Fri Apr 9 00:45:41 1993 Per Bothner (bothner@rtl.cygnus.com) * valarith.c (value_subscript): Add COERCE_REF. * ch-exp.y (operand_5): We can generalize the 2nd operand of a string repetition ot 'literal' without ambiguity. Thu Apr 8 10:15:10 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * breakpoint.h (struct bpstat): Remove momentary field. Remove bpstat_momentary_breakpoint. This was always kludgy and is no longer used. * breakpoint.h: Add enum bpstat_what. breakpoint.h (struct bpstat), breakpoint.c (bpstat_stop_status): stop and print fields of bpstat now per-breakpoint, not just one for the whole chain. breakpoint.{c,h} (bpstat_what): New function. breakpoint.h: Remove bpstat_stop and bpstat_should_print. infrun.c: Replace switch (stop_bpstat->breakpoint_at->type) with call to bpstat_what. README: Remove watchpoint/breakpoint bug from known bugs. * breakpoint.h: Prototype bpstat_find_breakpoint. Thu Apr 8 16:01:21 1993 Fred Fish (fnf@cygnus.com) * symtab.c (find_methods, gdb_mangle_name): Note that functions are g++ specific. * symtab.h (VTBL_FNADDR_OFFSET, OPNAME_PREFIX_P, VTBL_PREFIX_P, DESTRUCTOR_PREFIX_P): Note that macros are g++ specific. Thu Apr 8 12:45:32 1993 Ian Lance Taylor (ian@cygnus.com) * i960-pinsn.c (tabent): Copied struct definition from opcodes/i960-dis.c. Thu Apr 8 10:34:37 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symtab.h (DESTRUCTOR_PREFIX_P): New macro to check if physname is a C++ destructor. * symtab.c (gdb_mangle_name): Use it. * symtab.c (find_methods): Do not add destructors to choice list for constructors. * symtab.c (decode_line_1): Make breakpoints on destructors work for gcc-2.x again. Wed Apr 7 18:43:09 1993 Stu Grossman (grossman@cygnus.com) * ser-go32.c: Make it use serial port name. * go32-xdep.c: Put in def for strlwr, needed by dir.o in go32 libc. * infcmd.c (read_pc): Make sure that we read PC_REGNUM when not in a system call! Wed Apr 7 15:52:11 1993 Stu Grossman (grossman@cygnus.com) * configure.in: Only configure sparclite subdir when target_cpu is sparclite. Wed Apr 7 10:11:22 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffread.c (struct coff_symbol): Change c_sclass to unsigned char. Remove FIXME comment regarding this. * symfile.h: Change NULL->'\0' in comment (that wasn't a typo). * xcoffread.c (read_xcoff_symtab): Use E_SYMNMLEN. Tue Apr 6 22:30:58 1993 K. Richard Pixley (rich@cygnus.com) Add section table to objfile struct. Use it for find_pc_section. * objfiles.c (add_to_objfile_sections, build_objfile_section_table, find_pc_section): new functions. (allocate_objfile): build section table. * objfiles.h (struct obj_section): new structure. (struct objfile): add section table. (find_pc_section): new prototype. * solib.[ch] (find_pc_section_from_so_list): removed. * sparc-tdep.c: include objfiles.h for find_pc_section. include symfile.h for objfiles.h. (in_solib_trampoline): adjusted for new find_pc_section prototype. Removed BAD_RICH_HACK ifdefs. * symfile.c (syms_from_objfile): offset objfile sections. (find_pc_section): removed. Also removed BAD_RICH_HACK ifdefs. * symfile.h (find_pc_section): prototype removed. Also fixed comment typo NUL -> NULL. * target.[ch] (find_pc_section_from_targets): removed. * config/sparc/tm-sun4sol2.h (BAD_RICHH_HACK): removed. Tue Apr 6 21:41:13 1993 Stu Grossman (grossman@cygnus.com) * ser-go32.c: Format. (go32_open): Use proper return value. * configure.in: Undo conditional configdirs hack for sparclite. Tue Apr 6 17:07:37 1993 Jim Wilson (wilson@sphagnum.cygnus.com) * symtab.c (list_symbols): When call break_command, pass both filename and function name not just function name. Tue Apr 6 15:00:09 1993 Fred Fish (fnf@cygnus.com) (Changes and new files to make "none" a full fledged configuration) * config/none/{nm-none.h, tm-none.h, xm-none.h}: New files. Currently only tm-none.h has any meaningful contents. * config/none/none.mh (NAT_FILE): Use nm-none.h * config/none/none.mh (XM_FILE): Use xm-none.h * config/none/none.mt (TM_FILE): Use tm-none.h * Makefile.in (depend): Remove comment about parse errors in valops.c, it now parses correctly and generates a correct depend line. Remove line that touches xm.h, tm.h, and nm.h; they are now linked to config/none/{xm-none.h, tm-none.h, nm-none.h}. Tue Apr 6 09:54:29 1993 Jim Kingdon (kingdon@cygnus.com) * values.c (USE_STRUCT_RETURN): Only use gcc wierdness for gcc1. * xcoffread.c (read_xcoff_symtab): Deal correctly with symbols of exactly 8 characters. Tue Apr 6 10:31:26 1993 Stu Grossman (grossman@cygnus.com) * configure.in: Sparclite uses sparc config dir. Also has it's own tm- & .mt files now. Also add sparclite to configdirs. * go32-xdep.c: Dummy routines for sigsetmask & strlwr. * config/i386/go32.mh: Nullify def of TERMCAP. * config/i386/xm-go32.h: Get rid of redef of EIO. * config/sparc/{sparclite.mh tm-sparclite.h}: New sparclite specific configs. Very similar to sun4os4, but without solib. * sparclite/{Makefile.in configure.in}: First cut at making this dir configgable. Tue Apr 6 03:10:44 1993 Stu Grossman (grossman@cygnus.com) * ser-go32.c: First cut at adapting to new serial interface. Mon Apr 5 22:29:43 1993 Stu Grossman (grossman@cygnus.com) * Makefile.in (SFILES OBS): Add serial.[co] & ser-hardwire.[co]. These implement a new serial line interface for talking to remote targets. * configure.in: Link ser-hardwire.c to ser-unix.c for all hosts, EXCEPT go32, which gets ser-go32.c. * remote.c: Use new serial interface. More remote-xxx's to be converted later. * ser-bsd.c, ser-termios.c: Removed. * serial.c: New. Implements common operations for all serial types. * ser-unix.c: New. Unix specific serial operations for various flavors of Unix (Posix, SysV, BSD). * serial.h: Generic serial interface defs. * config/i386/go32.mh, config/i386/i386bsd.h, config/m68k/apollo68b.mh, config/sparc/sun4os4.mh: Remove ser-bsd.o from XDEPFILES. All the magic is now handled in configure.in. Mon Apr 5 20:48:54 1993 Stu Grossman (grossman@cygnus.com) * config/h8500/tm-h8500.h: Clean up brain damage found by GCC. Fri Apr 2 08:23:14 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffread.c (xcoff_symfile_offsets): Use 0 not addr for offsets. * rs6000-tdep.c (frameless_function_invocation): Don't even think about framelessness except on the innermost frame. * xcoffexec.c: Call fatal() not abort(). * stabsread.c (patch_block_stabs): If stab & no symbol, make a LOC_OPTIMIZED_OUT symbol. symtab.h (enum address_class): Add LOC_OPTIMIZED_OUT. findvar.c (read_var_value), printcmd.c (address_info), symmisc.c (print_{,partial_}symbol), c-exp.y (variable), m2-exp.y (yylex): Deal with it. ch-exp.y (yylex): Deal with it. Thu Apr 1 18:43:02 1993 Stu Grossman (grossman@cygnus.com) * findvar.c (value_from_register): H8500 specific, check to see if we are looking at short pointer. If so, skip crock. * h8500-tdep.c (h8500_frame_chain): Mask down value from read_memory_integer() to avoid getting messed up by sign extension. Thu Apr 1 16:44:41 1993 K. Richard Pixley (rich@rtl.cygnus.com) * sparc-tdep.c (in_solib_trampoline), symfile.c (find_pc_section): ifdef protect using BAD_RICH_HACK. This should be removed soon. * config/sparc/tm-sun4sol2.h (BAD_RICH_HACK): define. Thu Apr 1 09:01:38 1993 Jim Kingdon (kingdon@cygnus.com) * i960-pinsn.c, a29k-pinsn.c: Much abridged, just use libopcodes.a. * core.c (dis_asm_print_address): New function. * core.c (dis_asm_read_memory): Reinstate 4th arg. The prototype has been fixed. Thu Apr 1 09:34:43 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * breakpoint.c (bpstat_print, bpstat_stop_status): Change to walk the entire breakpoint chain and print only the first entry that needs to be printed and needs to be stopped for. Fixes problems with printing of multiple breakpoints with different conditions. * breakpoint.c (print_it_done): Renamed from print_it_noop as it effectively stops printing of the breakpoint chain. * breakpoint.c (print_it_noop): New routine to print nothing for this breakpoint entry and dont stop printing. * breakpoint.c (breakpoint_re_set_one): mention the reevaluated watchpoint only if it is enabled. * mipsread.c (parse_procedure): Correct incorrect setjmp procedure descriptor from the library to make backtraces through setjmp work. * mipsread.c (fixup_sigtramp): Correct pcreg and fregoffset for sigtramp. * mips-tdep.c (read_next_frame_reg): Provide correct values for all registers saved within sigtramp, cleanup. Wed Mar 31 12:52:12 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * sparc-pinsn.c: Much abridged, just calls version in libopcodes.a. Wed Mar 31 21:23:41 1993 K. Richard Pixley (rich@rtl.cygnus.com) * core.c (dis_asm_read_memory): drop fourth arg which conflicts with prototype in ../include/dis-asm.h. Wed Mar 31 12:52:12 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * core.c (dis_asm_{read_memory,memory_error}): New functions. m68k-pinsn.c, h8500-tdep.c, i386-pinsn.c, mips-pinsn.c, z8k-tdep.c: Use read_memory_func interface to disassembler. Tue Mar 30 15:46:14 1993 K. Richard Pixley (rich@rtl.cygnus.com) Teach sparc solaris to next over shared library functions. * solib.[hc] (find_pc_section_from_so_list): new function and prototype. * sparc-tdep.c (in_solib_trampoline): new function. * symfile.[hc] (find_pc_section): new function and prototypes. * target.[hc] (find_pc_section_from_targets): new function and prototypes. * config/sparc/tm-sun4sol2.h (IN_SOLIB_TRAMPOLINE): redefine to in_solib_trampoline. Tue Mar 30 08:06:24 1993 Jim Kingdon (kingdon@cygnus.com) * infrun.c (wait_for_inferior): Revise comment. * command.c (do_setshow_command): Use %u with var_{u,z}integer. * command.{c,h}: New var_type var_integer. main.c: Use it for history_size. * rs6000-tdep.c, xcoffexec.c, config/rs6000/xm-rs6000.h, breakpoint.c: Lint and byte-order fixups. * breakpoint.c (print_it_normal): Return 0 after hitting watchpoint. * breakpoint.h (bpstat): New field print_it. breakpoint.c (bpstat_print): Use it. (print_it_normal): New function (from old bpstat_print code). (bpstat_{alloc,stop_status}): Set print_it field. * breakpoint.c (bpstat_stop_status): Use catch_errors when evaluating watchpoint condition, via new function watchpoint_check. Also stop if watchpoint disabled due to leaving its block. * findvar.c [REG_STRUCT_HAS_ADDR]: Add comment. Tue Mar 30 00:14:38 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mips-pinsn.c: Add missing include of dis-asm.h. Mon Mar 29 15:03:25 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (clean, distclean, realclean): Recursively apply to subdirs first, rather than last. This avoids, for example, Makefile being removed in a parent directory before the recursive make is run. * alldeps.mak, depend: Update for below changes. * config/m68k/tm-m68k.h: Renamed from config/m68k/tm-68k.h. * m68k/{tm-3b1.h, tm-altos.h, tm-amix.h, tm-es1800.h, tm-hp300bsd.h, tm-hp300hpux.h, tm-isi.h, tm-news.h, tm-os68k.h, tm-st2000.h, tm-sun2.h, tm-sun3.h, tm-vx68.h}: Include tm-m68k.h instead of tm-68k.h. * Makefile.in (HFILES): tm-68k.h renamed to tm-m68k.h. * README, a29k-pinsn.c, m68k-pinsn.c, m68k-stub.c, remote-vx.c, m68k/{altos.mh, altos.mt, apollo68b.mh, nm-apollo68b.h, nm-hp300bsd.h, config/m68k/xm-apollo68b.h}: Map '68k' to 'm68k'. * a29k/tm-a29k.h, doc/gdbint.texinfo: Account for renaming of tm-68k.h to tm-m68k.h. * m68k/m68k-fp.mt (TM_FILE): tm-68k-fp.h renamed to tm-m68k-fp.h. * m68k/m68k-nofp.mt (TM_FILE): tm-68k-nofp.h renamed to tm-m68k-nofp.h. * config/a29k/tm-a29k.h: Renamed from config/a29k/tm-29k.h. * a29k-pinsn.c: Renamed from am29k-pinsn.c. * a29k-tdep.c: Renamed from am29k-tdep.c. * remote-eb.c, config/a29k/tm-ultra3.h: Include renamed tm-a29k.h. * remote-monitor.c, remote-st2000.c, config/a29k/{nm-ultra3.h, tm-a29k.h, xm-ultra3.h}, config/romp/rtbsd.mh, doc/gdbinv-s.texi, testsuite/gdb.t15/funcargs.exp, testsuite/gdb.t17/callfuncs.exp: Map '29k' to 'a29k'. * config/a29k/{a29k-kern.mt, a29k-udi.mt, a29k.mt, ultra3.mt} (TDEPFILES): Use renamed a29k-pinsn.o and a29k-tdep.o. * config/a29k/{a29k-udi.mt, a29k.mt} (TM_FILE): Use renamed tm-a29k.h. * config/a29k/a29k-udi.mt (MT_CFLAGS): Remove TARGET_AM29K define that does not appear anywhere else in the gdb source tree. * doc/gdbinit.texinfo: Document renaming of tm-29k.h to tm-a29k.h. Mon Mar 29 13:55:29 1993 Jim Kingdon (kingdon@cygnus.com) * breakpoint.c: Add comments regarding breakpoint_re_set. * xcoffread.c (sort_syms, compare_symbols): Remove. (xcoff_symfile_read): Use sort_all_symtab_syms from symfile.c not our own sort_syms (it is identical). * xcoffread.c: Nuke NAMES_HAVE_DOT define (not used). Sun Mar 28 11:24:37 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * breakpoint.c (breakpoint_re_set_one): Fix storage leak. * breakpoint.c (enable_breakpoint): Don't enable watchpoint if it went out of scope. * exec.c (exec_close): Fix storage leak. * exec.c (exec_file_command): Make sure that bfd doesn't realign the output sections when patching an executable. * mips-nat.c (store_inferior_registers): Use REGISTER_PTRACE_ADDR when writing all registers. * mips-tdep.c (mips_push_dummy_frame): Save floating point registers at the right offset in the dummy frame. * mipsread.c (psymtab_to_symtab_1): Do not complain for stProc, stStaticProc and stEnd symbols as they are generated by gcc-2.x. * mipsread.c (mipscoff_new_init): Initialize stabsread and buildsym. Fri Mar 26 15:25:05 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (TARFILES): Avoid trailing backslash. Fri Mar 26 11:29:30 1993 Jim Kingdon (kingdon@cygnus.com) * breakpoint.{c,h}: Add exp_string to struct breakpoint and use it in breakpoint_re_set. * breakpoint.c (watch_command, enable_breakpoint): Fetch lazy values. * rs6000-tdep.c (single_step): Misc cleanups (CORE_ADDR not int, don't use sizeof(int) for target stuff, etc). Thu Mar 25 15:03:53 1993 Fred Fish (fnf@cygnus.com) * alldeps.mak, configure.in, i860-break.h, i860-opcode.h, i860-pinsn.c, i860-tdep.c, config/i860/*: Remove incomplete i860 support that can't be integrated anyway due to lack of clear authorship. Thu Mar 25 12:26:50 1993 Stu Grossman (grossman@cygnus.com) * findvar.c (read_register, write_register): Make these capable of reading/writing registers that are shorter than REGISTER_TYPE. * (value_from_register): Install H8500 specific code to return proper value when register is being used as a pointer. * h8500-tdep.c: Remove extra defines of NUM_REGS. (h8500_skip_prologue): Use correct lengths for LINK instructions. (FRAME_CHAIN): Change name to h8500_frame_chain. Rewrite code to chain frames properly by combining frame pointer with T reg. (init_extra_frame_info): Delete. It's now a macro. (frame_args_address): Don't add PTR_SIZE. Stack args are already offset by the correct amount off of the frame pointer. (register_byte): Delete. It's now a macro. (register_raw_size, register_virtual_size): Delete. Replaced by common routine h8500_register_size, cuz there's no difference between the raw & virtual sizes on this machine. (register_convert_to_raw, register_convert_to_virtual): Delete, cuz there's no difference between the raw & virtual forms. Replaced by memcpy in tm file. (register_virtual_type): Rename to h8500_register_virtual_type. Get rid of pointer pseudo-regs, use _REGNUM with all reg names. (_initialize_h8500_tdep): Get rid of crock to ensure that GDB & emulator have same reg offsets. This is all handled in the simulator code now. (h8500_trapped_internalvar): New routine to detect references to convenience vars acting as pointer pseudo-regs. (h8500_value_trapped_internalvar): Conjure up value of pointer pseudo-regs. (h8500_set_trapped_internalvar): Convert set value in real register references. infcmd.c (read_pc, write_pc): Add h8500 specific code to handle code segment register. infrun.c (proceed): Simplify. Call write_pc instead of doing it by hand. (wait_for_inferior): Add h8500 specific code to add stack segment when reading SP register. remote-sim.c (fetch_register): Spacing. tm-h8500.h: #define GDB_TARGET_IS_H8500 to make it easier to detect cruft. Redo all register manipulation stuff. Get rid of pointer pseudo-regs. (INIT_EXTRA_FRAME_INFO): Adds stack segment to frame pointer. (IS_TRAPPED_INTERNALVAL, VALUE_OF_TRAPPED_INTERNALVAR, SET_TRAPPED_INTERNALVAR): Use these to create internal vars for pointer pseudo-regs. Thu Mar 25 10:10:28 1993 Fred Fish (fnf@cygnus.com) * Makefile.in: Numerous small changes to macro definitions and rules for building gdb distribution tree. Many macros eliminated or merged, and rules simplified. * alldeps.mak: Update. * depend: Update. Wed Mar 24 13:52:29 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: recurse through SUBDIRS for dvi target too Wed Mar 24 08:48:30 1993 Jim Kingdon (kingdon@cygnus.com) * Clean up xcoff relocation. objfiles.h (struct objfiles): Add section_offsets, num_sections. symfile.c (syms_from_objfile), xcoffread.c (xcoff_symfile_offsets): Set them. symtab.h (struct general_symbol_info): Add section field. minsyms.c (prim_record_minimal_symbol{,_and_info}): Set it. xcoffread.c: Set section for symbols and msymbols. (struct symtab): Add block_line_section field. buildsym.c (end_symtab): Set it. (end_symtab and callers): Add section parameter. objfiles.c (objfile_relocate): New funciton. xcoffexec.c (vmap_symtab): Use it. xcoffsolib.h (struct vmap): Remove unused fields. config/rs6000/tm-rs6000.h, stack.c, xcoffexec.c: Remove CORE_NEEDS_RELOCATION, symtab_relocated. config/rs6000/tm-rs6000.h: Remove use of loadinfotext. rs6000-tdep.c: Make loadinfotext static. breakpoint.c (fixup_breakpoints): Doc fix. symtab.h (struct symtab), config/rs6000/tm-rs6000.h, buildsym.c (end_symtab): primary field replaces nonreloc. Tue Mar 23 00:10:53 1993 John Gilmore (gnu@cygnus.com) * symtab.h (struct linetable_entry): Remove confusing comment. Tue Mar 23 00:01:23 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: add installcheck target Mon Mar 22 16:17:58 1993 Fred Fish (fnf@cygnus.com) * config/{a29k, arm, convex, gould, h8300, i386, i860, i960, m68k, m88k, mips, none, ns32k, pa, pyr, romp, rs6000, sparc, tahoe, vax, z8k}: New directories to hold cpu specific configuration files. Naming follows gcc convention. * config/{*.mt, *.mh}: All target and host makefile fragment config files moved to an appropriate config/ subdirectory. * nm-*, xm-*, tm-*: All native, host, and target files, which get linked to nm.h, xm.h, and tm.h respectively by configure, moved to appropriate config/ subdirectory. * nm-sysv4.h, xm-sysv4.h, tm-sysv4.h, tm-sunos.h, nm-trash.h: Native, host, and target files that are common across more than one cpu architecture and included by one of the configured native, host, or target files, get moved to config directory. * Makefile.in (INCLUDE_CFLAGS): Add -I${srcdir}/config to pick up native, host, or target include files moved to one of the config subdirectories, and that are included by other files. * Makefile.in (alldeps.mak): Modify to account for new config directory structure. * alldeps.mak, depend: Update for new config directory structure. * config/*/[ntx]m-*.h: Modify all files that include other [ntx]m-*.h files to use path relative to gdb/config. I.E. "a29k/tm-ultra3.h" includes "a29k/tm-29k.h" rather than just "tm-29k.h". * remote-eb.c (tm-29k.h): Include a29k/tm-29k.h. * mipsread.c (tm-mips.h): Include mips/tm-mips.h. * i860-pinsn.c (tm-i860.h): Include i860/tm-i860.h. * configure.in: Default gdb_host_cpu to host_cpu, and remap the ones where the default is not unique or different than the config subdirectory name. Similarly, handle gdb_target_cpu. Modify configure.in as appropriate to make use of gdb_host_cpu and gdb_target_cpu to find makefile fragments and make links. Mon Mar 22 12:36:24 1993 Ian Lance Taylor (ian@cygnus.com) * mipsread.c (compare_blocks): Sort blocks with the same start address by decreasing ending address. Mon Mar 22 20:36:04 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mipsread.c (parse_procedure): Save cur_fdr accross call to lookup_symbol as it might get clobbered by the call. * mipsread.c (parse_partial_symbols): Use ADD_PSYMBOL_ADDR_TO_LIST. The previous code did not initialize the language field for the psymtab entry. Sat Mar 20 00:33:39 1993 John Gilmore (gnu@cygnus.com) * c-exp.y (parse_number): Avoid shift warning. * serial.h (struct ttystate): Declare empty one on DOS. Fri Mar 19 12:59:50 1993 Stu Grossman (grossman@cygnus.com) * xm-sun4os4.h: Return type of free() should be void, not int. * vx-share/vxWorks.h: Remove #def of NULL. Fri Mar 19 11:28:18 1993 Jim Kingdon (kingdon@cygnus.com) * tm-rs6000.h: Nuke no-op STAB_REG_TO_REGNUM. Fri Mar 19 07:40:09 1993 Steve Chamberlain (sac@cygnus.com) * z8k-tdep.c (print_insn): Include the new dis-asm header file. Thu Mar 18 14:26:57 1993 Per Bothner (bothner@rtl.cygnus.com) * ieee-float.c: Moved to ../libiberty. * ieee-float.h: Moved to ../include. * Makefile.in: Update accordingly. * i386-pinsn.c (print_insn), m68k-pinsn.c (print_insn): Convert to stubs that call disassemblers in ../opcodes/*-dis.c. * m68k-tdep.c: Removed definition of ext_format ext_format_68881; it is now in ../opcodes/m68881-ext.c. * mips-tdep.c (mips_skip_prologue): Try to skip more of the prologue (some callers _do_ care). * mips-pinsn.c (print_insn), z8k-tdep.c (print_insn): Convert to new interface of ../opcodes/*-dis.c. * ch-exp.y: Add #include . Thu Mar 18 11:57:49 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffexec.c (exec_close): Don't close exec_bfd twice. * xcoffread.c (enter_line_range): endaddr is exclusive, not inclusive. Wed Mar 17 09:46:31 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffread.c (arrange_linetable): Use x{m,re}alloc not {m,re}alloc. Wed Mar 17 11:28:11 1993 Steve Chamberlain (sac@thepub.cygnus.com) * z8k-tdep.c (extract_return_value, write_return_value, store_struct_return): New functions from macros in tm-z8k.h. Wed Mar 17 11:23:06 1993 Fred Fish (fnf@cygnus.com) * valops.c (value_arg_coerce): Apply temporary patch to fix problem with coercion of array and function types when passed as arguments to C functions, pending a more complete review of when and how coercion should be done, depending upon context and language. Wed Mar 17 09:46:31 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffread.c (MIN_TBTABSIZ): Change to 12. * xcoffread.c (xcoff_symfile_read): Only read stringtab and debugsec if there are a non-zero number of symbols. Tue Mar 16 18:08:45 1993 John Gilmore (gnu@cygnus.com) * command.c (show_user): Avoid fprintf_filtered botch (AGAIN!). Tue Mar 16 15:18:17 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffexec.c (add_vmap): Wrap symbol read in catch_errors. * xcoffread.c (read_symbol_lineno): Look to end of symbols for .bf, not just 50 symbols. (symtbl_num_syms): New variable. (read_xcoff_symtab): Set it. (read_symbol_nvalue): Check for bad symno. (read_symbol_{lineno,nvalue}, callers): Don't pass symtable; it's always symtbl. Tue Mar 16 10:09:05 1993 Stu Grossman (grossman@cygnus.com) * config/rs6000.mh: Get rid of -Dfd_set=int crock. This is defined in defs.h if necessary. * vx-share/vxWorks.h: Remove #defs of min and max. * vx-share/xdr_ld.c, vx-share/xdr_ptrace.c, vx-share/xdr_rdb.c: include defs.h. Fri Mar 12 09:33:23 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffread.c (retrieve_tracebackinfo): Move assignment out of while condition. * xcoffread.c (enter_line_range): complain() on bad endoffset. xcoffread.c: Doc fixes. Tue Mar 9 09:56:12 1993 Jim Kingdon (kingdon@cygnus.com) * tm-rs6000.h (CORE_NEEDS_RELOCATION): Just call xcoff_relocate_core. xcoffexec.c (xcoff_relocate_core): New function. (text_adjustment): Removed. (add_vmap): Return the vmap. rs6000-tdep.c (add_text_to_loadinfo): No longer static. Fri Mar 5 05:22:46 1993 Jim Kingdon (kingdon@cygnus.com) * xcoffsolib.h: Add objfile member to struct vmap. xcoff{exec,solib}.c: Use it, not lookup_objfile_bfd. xcoffexec.c (add_vmap): Allocate objfiles here. Sun Mar 14 02:54:15 1993 John Gilmore (gnu@cygnus.com) Support 68000 series without floating point. * configure.in (m68000-*-{aout,elf,coff}): New configs. * tm-68k-nofp.h: New file, lacks 68881 support. * config/m68k-nofp.mt: New file. Sun Mar 14 02:30:08 1993 John Gilmore (gnu@cygnus.com) Remove a few remaining underscore/no-underscore remnants from config files. * config/{m68k-un.mt, sparc-un.mt}: Remove. * config/m68k-noun.mt: Rename to m68k-fp.mt. * config/sparc-noun.mt: Rename to sparc-em.mt. * tm-68k-noun.h, tm-spc-noun.h: Remove. * tm-68k-un.h: Rename to tm-68k-fp.h. * tm-spc-un.h: Rename to tm-spc-em.h. * tm-sun4sol2.h: Cleanup. * configure.in (m68k-*, sparc-* targets): Corresponding changes. Sat Mar 13 14:58:22 1993 John Gilmore (gnu@cygnus.com) * symmisc.c (std_in, std_out, std_err): Move initializations to runtime code, in case they aren't constant. Fri Mar 12 16:23:54 1993 K. Richard Pixley (rich@cygnus.com) * symtab.c (find_pc_symtab): some object file formats, notably mips, have holes in the address ranges of symtabs. Change this algorithm from first hit to tightest fit. * mips-tdep.c (heuristic_proc_start): if we walk the pc into the fence post without finding the enclosing function, then print a warning. Thu Mar 11 09:33:01 1993 Fred Fish (fnf@cygnus.com) * utils.c (fputs_demangled, fprint_symbol): Remove. * utils.c (fprintf_symbol_filtered): New function which combines the functionality of fputs_demangled and fprint_symbol. Uses a caller provided language parameter to select the appropriate demangler, and caller provided args to pass to the demangler. * defs.h (enum language): Move further up in file so enum can be used in prototypes. * defs.h (fputs_demangled, fprint_symbol): Remove prototypes. * defs.h (fprintf_symbol_filtered): Add prototype. * c-typeprint.c (cp_type_print_method_args): Replace calls to fputs_demangled with call to fprintf_symbol_filtered. * cp-valprint.c (demangle.h): Include * cp-valprint.c (cp_print_value_fields): Replace calls to fprint_symbol with calls to fprintf_symbol_filtered. * printcmd.c (print_frame_args): Replace call to fprint_symbol with call to fprintf_symbol_filtered. * stack.c (print_frame_info): Remove obsolete code so we don't have to update fputs_demangled usage in it. * stack.c (print_frame_info, frame_info): Add language variable to pass to fprintf_symbol_demangled and initialize it from the symbol's language. Replace calls to fputs_demangled with calls to fprintf_symbol_filtered. * symtab.c (find_methods): Replace call to fputs_demangled with call to fprintf_symbol_filtered. * ch-valprint.c (demangle.h): Include. * ch-valprint.c (chill_print_value_fields): Replace call to fprint_symbol with call to new fprintf_symbol_filtered. Wed Mar 10 17:37:11 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (VERSION): Bump version to 4.8.2. * main.c (source_command): Require an explicit pathname of file to source, since previous behavior of defaulting to gdb init file was troublesome and undocumented. * printcmd.c (disassemble_command): Add missing '{}' pair to else with two statements. Bug reported by Stephane Tsacas . * symtab.c (find_pc_line): Don't complain about zero length or negative length line numbers for the moment, since we may not own the terminal when called, such as when single stepping. (FIXME) * language.h (CAST_IS_CONVERSION): True if current language is C++ as well as C. Fix from Peter Schauer. * environ.c (get_in_environ, set_in_environ, unset_in_environ): Use STREQN macro rather than bare '!strncmp()'. * environ.c (unset_in_environ): Avoid use of memcpy on overlapping memory regions, as suggested by Paul Eggert . * c-exp.y (%union struct): Remove unused ulval as suggested by Paul Eggert . Mon Mar 8 19:03:06 1993 Fred Fish (fnf@cygnus.com) * main.c (gdbinit): Make static. * main.c (inhibit_gdbinit): Move to file scope. * main.c (main): Remove local inhibit_gdbinit. * main.c (source_command): Don't source '.gdbinit' file by default if gdb has been told to ignore it. Sun Mar 7 21:58:53 1993 Ian Lance Taylor (ian@cygnus.com) * Makefile.in (MAKEOVERRIDES): Define to be empty for GNU Make 3.63. Fri Mar 5 17:39:45 1993 John Gilmore (gnu@cacophony.cygnus.com) * printcmd.c (print_address_symbolic): Only print if offset is shorter than max_symbolic_offset. (initialize_printcmd): `set print max-symbolic-offset'. * am29k-tdep.c (TAGWORD_ZERO_MASK): New #define. (examine_tag): Use it. (read_register_stack): Only look in the local registers for a memory address if it's between rfb and rsp; go to memory otherwise. (initialize_29k): Fix call_scratch_address doc. Remove reginv_com. (reginv_com): Remove ancient kludge command. Fri Mar 5 17:16:26 1993 K. Richard Pixley (rich@rtl.cygnus.com) * tm-irix3.h (ZERO_REGNUM): copy this macro from tm-mips.h so that irix4 will again compile. * tm-mips.h (GDB_TARGET_IS_MIPS): no longer used, now removed. * configure.in: accept mips-sgi-irix4* for irix4. Fri Mar 5 07:49:48 1993 Steve Chamberlain (sac@lisa.cygnus.com) * z8k-tdep.c (print_register_hook): Lint. Thu Mar 4 17:42:03 1993 John Gilmore (gnu@cygnus.com) Lint fixes from Paul Eggert (eggert@twinsun.com): * command.c (do_setshow_command): var_uintegers are unsigned. * sparc-tdep.c (save_insn_opcodes, restore_insn_opcodes): unsigned, since they use hex values with the high bit set. Thu Mar 4 08:22:55 1993 Fred Fish (fnf@cygnus.com) Fixes submitted by Karl Berry (karl@nermal.hq.ileaf.com): * m88k-pinsn.c (sprint_address): Use SYMBOL_NAME macro to access symbol name. * m88k-nat-c (SXIP_OFFSET, SNIP_OFFSET, SFIP_OFFSET): Enclose macro definitions in parenthesis. * dbxread.c (dbx_symfile_init): Catch the case where there is no string table, but the only way we find out is by reading zero bytes from EOF. Wed Mar 3 15:51:28 1993 Fred Fish (fnf@cygnus.com) * dbxread.c (dbx_symfile_init): Make size of the string table size field a define (DBX_STRINGTAB_SIZE_SIZE). Ensure that the offset to the string table is nonzero and handle the nonexistant string table case, should it occur. Ensure that the string table size read from the file is reasonable, with a minimum lower bound of DBX_STRINGTAB_SIZE_SIZE instead of zero. Wed Mar 3 07:23:03 1993 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: Changes to build testsuite correctly. (FLAGS_TO_PASS): Added CXX and CXXFLAGS. (CC_FOR_TARGET, CXX, CXX_FOR_TARGET): New variables. (TARGET_FLAGS_TO_PASS): New variable. (SUBDIRS): Added testsuite. (all): Build testsuite using TARGET_FLAGS_TO_PASS, so that testsuite is compiled with CC_FOR_TARGET rather than CC. Tue Mar 2 17:57:56 1993 Fred Fish (fnf@cygnus.com) * dbxread.c (dbx_symfile_init): Fix for nonexistant string table, reported by mycroft@gnu.ai.mit.edu. (Ultrix 2.2 support from Michael Rendell ) * configure.in (vax-*-ultrix2*): New triplet. * config/vaxult2.mh: New file. * xm-vaxult2.h: New file. * c-exp.y (parse_number): Change high_bit to unsigned. * demangle.c: Change all references to cfront to ARM, since the actual algorithm is the one specified in the Annotated Reference Manual. This was confusing users into thinking that full cfront support was implemented. * dwarfread.c (CFRONT_PRODUCER): Remove, was never really used. * eval.c (evaluate_subexp): For STRUCTOP_PTR pass the arg type directly to lookup_struct_elt_type, which will do the dereferencing itself. * gdbtypes.c (lookup_struct_elt_type): Expand comments. Fix NULL dereferencing bug for unnamed structs, comment out questionable code. Mon Mar 1 17:54:41 1993 John Gilmore (gnu@cygnus.com) * coffread.c (process_coff_symbol): Change PCC argument correction so that it only happens on big-endian targets; so that it only happens if the short or char argument is aligned on an int boundary; and so that it changes the location, rather than the type, of the argument. These changes tend to parallel similar (old) changes in stabsread.c. * coffread.c (coff_read_enum_type): Use the specified size for enums, don't assume that they are int-sized. * c-valprint.c (c_val_print): Don't assume enums are the same as ints. * coredep.c: Handle NO_PTRACE_H in coredep.c. Fix by Michael Rendell, . Mon Mar 1 09:25:57 1993 Fred Fish (fnf@cygnus.com) * language.h (local_decimal_format_custom): Add prototype. * language.c (local_decimal_format_custom): Add function, bug reported by Robert R. Henry (rrh@tera.com). Fri Feb 26 18:33:18 1993 John Gilmore (gnu@cacophony.cygnus.com) * xcoffexec.c (vmap_ldinfo): Fix "/" for '/' typo, reported by Josef Leherbauer, joe@takeFive.co.at. Wed Feb 24 19:17:11 1993 John Gilmore (gnu@cacophony.cygnus.com) * symfile.c (syms_from_objfile), tm-29k.h, tm-3b1.h, tm-68k-un.h, tm-altos.h, tm-arm.h, tm-convex.h, tm-es1800.h, tm-h8300.h, tm-hp300bsd.h, tm-hp300hpux.h, tm-hppa.h, tm-i386bsd.h, tm-i386v.h, tm-i960.h, tm-irix3.h, tm-isi.h, tm-linux.h, tm-m88k.h, tm-merlin.h, tm-mips.h, tm-news.h, tm-np1.h, tm-pn.h, tm-pyr.h, tm-rs6000.h, tm-spc-un.h, tm-sun386.h, tm-sunos.h, tm-symmetry.h, tm-sysv4.h, tm-tahoe.h, tm-umax.h, tm-vax.h, tm-vx68.h, tm-z8k.h: Remove remnants of NAMES_HAVE_UNDERSCORE. Wed Feb 24 07:41:15 1993 Fred Fish (fnf@cygnus.com) * symtab.h (SYMBOL_INIT_DEMANGLED_NAME): Initialize contents of demangled name fields to NULL if no demangling exists for a symbol. SYMBOL_INIT_LANGUAGE_SPECIFIC does this for new symbols if their language is known at the time they are created, but sometimes the language is not known until later. * ch-typeprint.c (chill_print_type_base): Name changed to chill_type_print_base to match pattern for C and C++ names. * ch-typeprint.c (chill_print_type): Change "char" to "CHAR" to be consistent with other usages. * ch-typeprint.c (chill_type_print_base): Add support for printing Chill STRUCT types. * ch-valprint.c: Include values.h. * ch-valprint.c (chill_print_value_fields): New function and prototype for printing Chill STRUCT values. * ch-valprint.c (chill_val_print): Fix call to val_print_string that was being called with two args instead of three. * ch-valprint.c (chill_val_print): Call chill_print_value_fields to print Chill STRUCT values. Tue Feb 23 18:58:11 1993 Mike Werner (mtw@poseidon.cygnus.com) * configure.in: added testsuite to configdirs. Tue Feb 23 11:46:11 1993 Mike Stump (mrs@cygnus.com) * doc/stabs.texi: The `this' pointer is now known by the name `this' instead of `$t'. Tue Feb 23 11:21:33 1993 Fred Fish (fnf@cygnus.com) * dwarfread.c (read_tag_string_type): Rewrite to allow forward references of TAG_string_type DIEs in user defined types. * ch-lang.c (chill_create_fundamental_type): Track compiler change that now emits debugging info with the type long for Chill longs. Mon Feb 22 15:21:54 1993 Ian Lance Taylor (ian@cygnus.com) * remote-mips.c: New file; implements MIPS remote debugging protocol. * config/idt.mt: New file; uses remote-mips.c * configure.in (mips-idt-ecoff): New target; uses idt.mt. * mips-tdep.c (mips_fpu): New variable; controls use of MIPS floating point coprocessor. (mips_push_dummy_frame): If not mips_fpu, don't save floating point registers. (mips_pop_frame): If not mips_fpu, don't restore floating point registers. (_initialize_mips_tdep): New function; let the user reset mips_fpu variable. * tm-mips.h (EXTRACT_RETURN_VALUE, STORE_RETURN_VALUE): If not mips_fpu, don't use fp0 as floating point return register. (FIX_CALL_DUMMY): If not mips_fpu, don't save floating point registers. Mon Feb 22 07:54:03 1993 Mike Werner (mtw@poseidon.cygnus.com) * gdb/testsuite: made modifications to testcases, etc., to allow them to work properly given the reorganization of deja-gnu and the relocation of the testcases from deja-gnu to a "tool" subdirectory. Sun Feb 21 10:55:55 1993 Mike Werner (mtw@poseidon.cygnus.com) * gdb/testsuite: Initial creation of gdb/testsuite. Migrated dejagnu testcases and support files for testing nm to gdb/testsuite from deja-gnu. These files were moved "as is" with no modifications. This migration is part of a major overhaul of dejagnu. The modifications to these testcases, etc., which will allow them to work with the new version of dejagnu will be made in a future update. Fri Feb 19 18:36:55 1993 John Gilmore (gnu@cygnus.com) * NEWS: Add reminders for next release. Fri Feb 19 10:01:39 1993 Ian Lance Taylor (ian@cygnus.com) * mipsread.c (parse_lines): Correct check for files compiled with -g1. Fri Feb 19 05:56:15 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (VERSION): 4.8.1 to distinguish local versions. Fri Feb 19 01:32:58 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (VERSION): GDB-4.8 release! * README, NEWS: Update for release. Thu Feb 18 22:44:40 1993 Stu Grossman (grossman@cygnus.com) * am29k-pinsn.c (print_insn): Minor nits with const. * am29k-tdep.c: More minor nits with arg types for supply_register, NULL vs. 0, read_register_gen, & reginv_com. Thu Feb 18 22:38:03 1993 John Gilmore (gnu@cygnus.com) * gcc.patch: Update for a different GCC (G++) bug. * main.c (print_gdb_version): Update copyright year to 1993. * nm-hp300bsd.h: Decide whether this is BSD 4.3 or 4.4, conditionalize this file on it. FIXME, right way is to split these into two config files. (ATTACH_DETACH): Define for BSD 4.4 (PTRACE_ARG_TYPE): caddr_t for BSD 4.4, unset for 4.3. (U_REGS_OFFSET): Revise for 4.4. (REGISTER_U_ADDR): Separate for 4.4, but it doesn't work yet. * xm-hp300bsd.h: Move definitions of UINT_MAX, INT_MAX, INT_MIN, LONG_MAX into this file to avoid cpp "redefinition" warnings. Thu Feb 18 16:13:28 1993 K. Richard Pixley (rich@rtl.cygnus.com) * nm-hp300bsd.h (PTRACE_ARG3_TYPE): FSF's hp300's have int* not caddr_t. Thu Feb 18 04:10:06 1993 John Gilmore (gnu@cygnus.com) * c-lang.c (c_printstr): Bugfix for length==0 case. * c-lang.c (c_printstr): If a C string ends in a null, don't print the null. Thu Feb 18 02:39:21 1993 Stu Grossman (grossman at cygnus.com) * defs.h (STRCMP): Make it work for unsigned chars. Thu Feb 18 01:56:06 1993 John Gilmore (gnu@cygnus.com) * nm-hp300bsd.h (ATTACH_DETACH, PTRACE_ATTACH, PTRACE_DETACH): define. * config/hp300bsd.mh (REGEX, REGEX1): Define. * m68k-pinsn.c (BREAK_UP_BIG_DECL, AND_OTHER_PART): #if __GNUC__, define to kludge the large opcode table into two smaller tables, since GCC take exponential space to build the table. Lint. (NOPCODES): Remove, use "numopcodes" from opcode/m68k.h instead. Wed Feb 17 19:24:40 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (VERSION): Roll to 4.7.9. * xm-hp300bsd.h: Define PSIGNAL_IN_SIGNAL_H and put a compatible definition here, to handle both BSD 4.3 and 4.4 systems. * mipsread.c (ZMAGIC): #undef to avoid duplicate define. * remote.c (alarm): Move declaration to global level, before first reference to it. * tm-i386bsd.h (NUM_REGS): There are only eleven, not twelve. * dbxread.c (process_one_symbol): Cast to unsigned char, not int. Wed Feb 17 13:40:29 1993 K. Richard Pixley (rich@cygnus.com) * remote.c (readchar): forward declare alarm which otherwise looks like an undeclared variable to gcc. * dbxread.c (process_one_symbol): cast enum value N_SO into int when comparing against an int. Avoids superfluous warning from vax ultrix 4.2 cc. * inflow.c (set_sigint_trap): add cast to assignment from signal. Avoids superfluous warnings from some systems and/or compilers (like vax ultrix 4.2.) * language.c (struct op_print unk_op_print_tab): use the enum values rather naked zeros as initializers. Avoids warnings from ultrix type compilers. Tue Feb 16 00:53:20 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (VERSION): Roll to 4.7.6. (SFILES_SUBDIR): Add 29k-share/udi_soc. (SFILES_SUBSUBDIR): Move 29k-share/udi files to this macro. (alldeps.mak): Make ALLDEPFILES_SUBSUBDIR for files in sub sub dirs. (ALLDEPFILES_SUBSUBDIR): Depend on this for deeper dep files. (HFILES): Remove all nm-* except nm-trash.h. Add ns32k-opcode.h. (depend): Fix bug where nm-files in config files weren't noticed. (make-proto-gdb-1): Avoid changing directories while building new prototype. Build SFILES_SUBSUBDIR with longer symlinks. Mon Feb 15 20:48:09 1993 John Gilmore (gnu@cygnus.com) * remote.c: Improve error recovery. Allow user to break out of initial connection attempt with INTERRUPT. Treat a timeout while waiting for remote packet like a retry, unless the remote side is actively running user code. Fix a few long printf_filtered's. * xcoffread.c (read_xcoff_symtab): Don't use null symbol name for trampoline symbols. * buildsym.c (start_subfile): Allow null file name. Fri Feb 12 15:46:49 1993 K. Richard Pixley (rich@cygnus.com) * xcoffread.c (process_xcoff_symbol, read_symbol_lineno): complain expects a pointer to complaint rather than a complaint structure. (process_linenos): free the previously allocated subfile name, then allocate the new one from the heap. Fri Feb 12 08:06:05 1993 Steve Chamberlain (sac@thepub.cygnus.com) * h8300-tdep.c, tm-h8300.h: turn off some experimental features Thu Feb 11 00:59:07 1993 John Gilmore (gnu@cygnus.com) * stabsread.c (dbx_lookup_type): Handle negative type numbers. Previously, would bogusly index off the bottom of type_vector. (rs6000_builtin_type): Accept type number as argument. (read_type, case '-'): Handle negatives like any other type number. * symfile.c (deduce_language_from_filename): Handle null name. * mips-tdep.c (isa_NAN): Fix byte order dependency. Reported by Nobuyuki Hikichi , fixed by sato@sm.sony.co.jp. * xcoffread.c (parmsym): Don't use an initializer to set up this struct symbol. Set it up in initialize_xcoffread. (read_xcoff_symtab, xcoff_symfile_read): Surround code that only works on real rs/6000 target with #ifndef FAKING_RS6000. Wed Feb 10 23:42:37 1993 John Gilmore (gnu@cygnus.com) * stabsread.c (rs6000_builtin_type): Move function from xcoffread.c:builtin_type. * xcoffread.c (builtin_type): Move to stabsread. Remove IBM6000_HOST dependency. Move misplaced comments. (various): Change printf's to complaints. (patch_block_stabs, process_xcoff_symbol case C_DECL): Add objfile argument to read_type calls under #if 0. (process_xcoff_symbol case C_RSYM): Fix typo in #ifdef. * xcoffexec.c (map_vmap): Don't allocate an objfile for the exec_file. * Makefile.in: xcoffread.o is not built by default. * xm-rs6000.h (IBM6000_HOST): Remove. * config/rs6000.mh (NATDEPFILES): xcoffread.o is native only. * doc/gdbint.texinfo: Eliminate IBM6000_HOST, document IBM6000_TARGET. Wed Feb 10 18:31:20 1993 Stu Grossman (grossman at cygnus.com) * findvar.c (read_var_value): If REG_STRUCT_HAS_ADDR, then set VALUE_LVAL to be lval_memory so that we don't try to modify wild register numbers when user tries to modify elements in structs passed as arguments. * inflow.c (child_terminal_info): Move banner outside of system specific #ifdefs. * tm-hppa.h (REG_STRUCT_HAS_ADDR): Define this for HPPA, which passes struct/union arguments by address. Wed Feb 10 15:34:46 1993 Ian Lance Taylor (ian@cygnus.com) * Based on patch from Kean Johnston : * nm-i386sco4.h: New file. Like nm-i386sco.h, but define ATTACH_DETACH, PTRACE_ATTACH and PTRACE_DETACH. * config/i386sco4.mh (NAT_FILE): Use nm-i386sco4.h. Tue Feb 9 20:07:18 1993 John Gilmore (gnu@cygnus.com) * remote-udi.c (FREEZE_MODE): Fix && for & typo. Found and fixed by Lynn D. Shumaker, shumaker@saifr00.cfsat.honeywell.com. Tue Feb 9 08:18:07 1993 Ian Lance Taylor (ian@cygnus.com) * config/i386sco4.mh (MUNCH_DEFINE): Pass -p to nm to avoid bug in cc debugging output. Tue Feb 9 00:19:28 1993 John Gilmore (gnu@cygnus.com) * stabsread.c (define_symbol): Complain about unrecognized names that begin with CPLUS_MARKER (often '$'), but don't die. Fix suggested by gb@cs.purdue.edu (Gerald Baumgartner). (read_cpp_abbrev): Don't use the class name as part of the vtable pointer member name (_vptr$) in $vf abbrevs or unrecognized abbrevs. Inspired by Mike Tiemann. (read_tilde_fields): Comment. Remove ancient dead code. Remove erroneous but non-dead code. Simplify. Add complaints. (in general): Remove extraneous (parentheses) in return statements. Fri Feb 5 14:01:22 1993 John Gilmore (gnu@cygnus.com) * coffread.c (coff_lookup_type): Fix fencepost error reported by Art Berggreen, . Fix long file name bug reported on SCO Open Desktop 2.0 by Ulf Lunde and Dag H. Wanvik : * coffread.c (getfilename): Eliminate COFF_NO_LONG_FILE_NAMES test, which is apparently left over from when we used native include files and couldn't depend on the member names being there. * tm-3b1.h, tm-altos.h, tm-i386v.h: Don't set it. Thu Feb 4 12:23:15 1993 Ian Lance Taylor (ian@cygnus.com) * mipsread.c: Major overhaul to use new BFD symbol table reading routines. Now swaps information as it is needed, rather than swapping everything when the file is read. Thu Feb 4 01:52:36 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (TARDIRS): Add sparclite demo dir. (*.tab.c): Change dependency on Makefile to depend on Makefile.in, otherwise it always rebuilds after configuring. Force output *.tab.c file into current directory even in "make" versions that rewrite dependent file names used in command lines. * TODO: Remove some things we did. * am29k-opcode.h, convx-opcode: Remove; now in ../include/opcode. * os68k-xdep.c: Remove; useless file (os68k is a target only). * convex-pinsn.c: Use ../include/opcode/convex.h. Add CONST. * symtab.h: Eliminate unnamed unions and structs. Wed Feb 3 14:48:08 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (VERSION): Roll to 4.7.5. Tue Feb 2 20:47:42 1993 John Gilmore (gnu@cygnus.com) * breakpoint.c (breakpoint_re_set_one): Handle watchpoints when re-evaluating symbol pointers. Tue Feb 2 16:10:31 1993 Fred Fish (fnf@cygnus.com) * c-exp.y (lcurly, rcurly): New nonterminals. * c-exp.y (exp): Use lcurly and rcurly for arrays and UNOP_MEMVAL constructs. * parse.c (free_funcalls): Moved prototype from parser-defs.h, made function static. * parse.c (struct funcall): Moved struct def from parser-defs.h. * parse.c (funcall_chain): Moved from parser-defs.h, made static. * parse.c (start_arglist): * parser-defs.h (free_funcalls): Moved prototype to parse.c. * parser-defs.h (struct funcall): Moved struct def to parse.c. * parser-defs.h (funcall_chain): Moved to parse.c. * printcmd.c (print_frame_nameless_args): Fix prototype. * tm-mips.h (setup_arbitrary_frame): Fix prototype. * tm-sparc.h (setup_arbitrary_frame): Fix prototype. * valops.c (typecmp): Moved prototype from values.h. * value.h (typecmp): Moved prototype to valops.c, made static. * ch-exp.y (yylex): Change way control sequences are disabled. Tue Feb 2 16:11:43 1993 John Gilmore (gnu@cygnus.com) * tm-mips.h, tm-sparc.h: Fix thinko in SETUP_ARBITRARY_FRAME. Tue Feb 2 15:30:33 1993 Ian Lance Taylor (ian@cygnus.com) * mipsread.c (upgrade_type): Build array types correctly, using create_range_type and create_array_type. Tue Feb 2 00:19:08 1993 John Gilmore (gnu@cygnus.com) * remote-nindy.c: Cleanup. * infrun.c (wait_for_inferior): When rolling back the PC after a breakpoint, call write_pc so that NPC gets rolled back as well (for the 29K). * blockframe.c (inside_entry_file, inside_main_func, inside_entry_func): PC of zero is always "bottom of stack". * printcmd.c (print_frame_args, print_frame_nameless_args): Let print_frame_nameless_args decide whether there are any, laying groundwork for possibly later printing 29K args for functions where we have tag words but no symbols. Mon Feb 1 18:09:58 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * Makefile.in: fix GDB doc targets for new doc subdir structure Mon Feb 1 17:56:47 1993 John Gilmore (gnu@cygnus.com) * stack.c (parse_frame_specification): Parse as many arguments as there are (up to MAXARGS). Pass all of them in argc, argv format to SETUP_ARBITRARY_FRAME. Put the burden of checking how many there were, onto SETUP_ARBITRARY_FRAME. * tm-mips.h, tm-sparc.h: Corresponding changes. * mips-tdep.c, sparc-tdep.c: Ditto. Mon Feb 1 17:19:37 1993 John Gilmore (gnu@cygnus.com) * hp300ux-nat.c: Update copyrights. * mipsread.c (parse_partial_symbols): Complain about block indexes that go backwards. Fix from Peter Schauer. * symfile.c (syms_from_objfile, symbol_file_add): Allow a symbol-file that has no linkage symbols to be read. * tm-rs6000.h, xm-rs6000.h: (SIGWINCH_HANDLER and friends): Move from tm- file to xm-file, since they're host dependent. * valarith.c (value_binop): Typo. Mon Feb 1 16:16:59 1993 Stu Grossman (grossman at cygnus.com) * sparclite/aload.c: Add copyleft. * sparclite/crt0.s: Add comment at beginning. Mon Feb 1 14:36:11 1993 Steve Chamberlain (sac@thepub.cygnus.com) * remote-z8k.c, z8k-tdep.c: support for the Z8001 and Z8002. * parse.c (std_regs): Only declare if NO_STD_REGS is defined. Sun Jan 31 04:32:48 1993 Michael Tiemann (tiemann@rtl.cygnus.com) * values.c (value_headof): Fix typo in which VTBL and ARG were being confused for one another. * valops.c (typecmp): Now static. * gdbtypes.c (fill_in_vptr_fieldno): Don't ignore the first baseclass--we don't always inherit its virtual function table pointer. * eval.c (evaluate_subexp): In OP_FUNCALL case, adjust `this' pointer correctly in case value_struct_elt moves it around. * valops.c (typecmp): Now static. Also, now groks references better. * gdbtypes.c (lookup_struct_elt_type): Pass NOERR instead of zero on recursive call. If NAME is the name of TYPE, return TYPE. Sat Jan 30 19:55:52 1993 John Gilmore (gnu@cygnus.com) * hppah-nat.c: Eliminate and other unnecessary stuff, to avoid "too much defining" error from native C compiler (!). * Makefile.in (HFILES): Add typeprint.h. * typeprint.[ch]: Update copyrights. Thu Jan 28 19:09:02 1993 John Gilmore (gnu@cygnus.com) * Makefile.in: Update to match doc/ subdir changes. * config/hp300hpux.mh: No cross-host file needed, just native. * config/go32.mh: Remove nonexistent "native" support. M88K fixes reported by Carl Greco, : * tm-m88k.h (REGISTER_CONVERT_TO_RAW): Fix typo. * m88k-tdep.c (next_insn): Lint, cleanup. (store_parm_word): Lint. * README: Fix typo (reported by karl@hq.ileaf.com). Wed Jan 27 21:34:21 1993 Fred Fish (fnf@cygnus.com) * expression.h (BINOP_CONCAT): Document use for self concatenation an integral number of times. * language.c (binop_type_check): Extend BINOP_CONCAT for self concatenation case. * valarith.c (value_concat): Rewrite to support self concatenation an integral number of times. * Makefile.in (ch-exp.tab.c): Change "expect" message. * ch-exp.y (FIXME's): Make all FIXME tokens distinct, to eliminate hundreds of spurious shift/reduce and reduce/reduce conflicts that mask the 5 real ones. * ch-exp.y (STRING, CONSTANT, SC): Remove unused tokens. * ch-exp.y (integer_literal_expression): Remove production, no longer used. Thu Jan 21 09:58:36 1993 Fred Fish (fnf@cygnus.com) * eval.c (evaluate_subexp): Fix OP_ARRAY, remove code that implied that "no side effects" was nonfunctional. * eval.c (evaluate_subexp): Add BINOP_CONCAT case to deal with character string and bitstring concatenation. * expprint.c (dump_expression): Add case for BINOP_CONCAT. * expression.h (exp_opcode): Add BINOP_CONCAT. * gdbtypes.h (type_code): Add TYPE_CODE_BITSTRING. * language.c (string_type): Add function to determine if a type is a string type. * language.c (binop_type_check): Add case for BINOP_CONCAT. * valarith.c (value_concat): New function to concatenate two values, such as character strings or bitstrings. * valops.c (value_string): Remove error stub and implement function body. * value.h (value_concat): Add prototype. * ch-exp.y (operand_3): Add actions for SLASH_SLASH (//). * ch-exp.y (yylex): Recognize SLASH_SLASH. * ch-lang.c (chill_op_print_tab): Add SLASH_SLASH (//) as BINOP_CONCAT. Tue Jan 19 14:26:15 1993 Fred Fish (fnf@cygnus.com) * c-exp.y (exp): Add production to support direct creation of array constants using the obvious syntax. * c-valprint.c (c_val_print): Set printed string length. * dwarfread.c (read_tag_string_type): New prototype and function that handles TAG_string_type DIEs. * dwarfread.c (process_dies): Add case for TAG_string_type that calls new read_tag_string_type function. * expprint.c (print_subexp): Add support for OP_ARRAY. * gdbtypes.c (create_range_type, create_array_type): Inherit objfile from the index type. * ch-typeprint.c (chill_print_type): Add case for TYPE_CODE_STRING. * ch-valprint.c (chill_val_print): Fix case for TYPE_CODE_STRING. Mon Jan 18 11:58:45 1993 Ian Lance Taylor (ian@cygnus.com) * mipsread.c (CODE_MASK, MIPS_IS_STAB, MIPS_MARK_STAB, MIPS_UNMARK_STAB, STABS_SYMBOLS): Removed; now in include/coff/mips.h. Fri Jan 15 20:26:50 1993 Fred Fish (fnf@cygnus.com) * c-exp.y (exp:STRING): Convert C strings into array-of-char constants with an explicit null byte terminator. OP_STRING is now used for real string types. * c-lang.c (builtin_type_*): Move declarations to lang.c since they are used by all languages. * c-lang.c (_initialize_c_language): Move initializations of builtin_type_* to lang.c. * c-typeprint.c (c_type_print_varspec_prefix, c_type_print_varspec_suffix): TYPE_CODE_PASCAL_ARRAY renamed to TYPE_CODE_STRING. * c-valprint.c (c_val_print): Change the way character arrays are printed as strings to be consistent with the way strings are printed when pointer-to-char types are dereferenced. Remove test of print_max before calling val_print_string, which now does it's own test. * eval.c (evaluate_subexp): Add case for OP_ARRAY. * expprint.c (print_subexp, dump_expression): Add case for OP_ARRAY. * expression.h (enum exp_opcode): Add OP_ARRAY and document. * gdbtypes.c (builtin_type_*): Add declarations moved from c-lang.c. * gdbtypes.c (create_string_type): New function to create real string types. * gdbtypes.c (recursive_dump_type): TYPE_CODE_PASCAL_ARRAY renamed to TYPE_CODE_STRING. * gdbtypes.c (_initialize_gdbtypes): Add initializations of builtin_type_* types moved from c-lang.c. * gdbtypes.h (enum type_code): TYPE_CODE_PASCAL_ARRAY renamed to TYPE_CODE_STRING. * gdbtypes.h (builtin_type_string): Add extern declaration. * gdbtypes.h (create_string_type): Add prototype. * m2-lang.c (m2_create_fundamental_type): TYPE_CODE_PASCAL_ARRAY renamed to TYPE_CODE_STRING. * m88k-tdep.c (pushed_size): TYPE_CODE_PASCAL_ARRAY renamed to TYPE_CODE_STRING. * mipsread.c (_initialize_mipsread): TYPE_CODE_PASCAL_ARRAY renamed to TYPE_CODE_STRING. * parse.c (length_of_subexp, prefixify_subexp): Add case for OP_ARRAY. * printcmd.c (print_formatted): Recognize TYPE_CODE_STRING. * typeprint.c (print_type_scalar): TYPE_CODE_PASCAL_ARRAY renamed to TYPE_CODE_STRING. * valops.c (allocate_space_in_inferior): New function and prototype, using code ripped out of value_string. * valops.c (value_string): Rewritten to use new function allocate_space_in_inferior, but temporarily disabled until some other support is in place. * valops.c (value_array): New function to create array constants. * valprint.c (val_print_string): Add comment to document use, complete rewrite to fix several small buglets. * value.h (value_array): Add prototype. * value.h (val_print_string): Change prototype to match rewrite. * ch-valprint.c (chill_val_print): Add case for TYPE_CODE_STRING. * ch-exp.y (match_character_literal): Disable recognition of control sequence form of character literals and document why. Thu Jan 14 15:48:12 1993 Stu Grossman (grossman at cygnus.com) * nindy-share/nindy.c: Add comments to #endif's to clarify grouping. * hppa-pinsn.c (print_insn): Use read_memory_integer, instead of read_memory to get byte order right. * hppah-tdep.c (find_unwind_info): Don't read in unwind info anymore. This is done in paread.c now. We expect unwind info to hang off of objfiles, and search all of the objfiles when until we find a match. * (skip_trampoline_code): Cast arg to target_read_memory. * objfiles.h (struct objfile): Add new field obj_private to hold per object file private data (unwind info in this case). * paread.c (read_unwind_info): New routine to read unwind info for the objfile. This data is hung off of obj_private. * tm-hppa.h: Define struct obj_unwind_info, to hold pointers to the unwind info for this objfile. Also define OBJ_UNWIND_INFO to make this easier to access. Wed Jan 13 20:49:59 1993 Fred Fish (fnf@cygnus.com) * c-valprint.c (cp_print_class_member): Add extern decl. * c-valprint.c (c_val_print): Extract code for printing methods and move it to cp_print_class_method in cp-valprint.c. * c-valprint.c (c_val_print): Extract code to print strings and move it to val_print_string in valprint.c. * cp-valprint.c (cp_print_class_method): New function using code extracted from c_val_print. * valprint.c (val_print_string): New function using code extracted from c_val_print. * value.h (val_print_string): Add prototype. * ch-exp.y (CHARACTER_STRING_LITERAL): Set correct token type. * ch-exp.y (literal): Add action for CHARACTER_STRING_LITERAL. * ch-exp.y (tempbuf, tempbufsize, tempbufindex, GROWBY_MIN_SIZE, CHECKBUF, growbuf_by_size): New variables, macros, and support functions for implementing a dynamically expandable temp buffer. * ch-exp.y (match_string_literal): New lexer function. * ch-exp.y (match_bitstring_literal): Dynamic buffer code removed and replaced with new CHECKBUF macro. * ch-exp.y (yylex): Call match_string_literal when appropriate. * ch-valprint.c (ch_val_print): Add code for TYPE_CODE_PTR. Sat Jan 9 19:59:33 1993 Stu Grossman (grossman at cygnus.com) * Makefile.in: Add info for paread.o. * config/hppahpux.mh: Add paread.o to NATDEPFILES. * blockframe.c (frameless_look_for_prologue): Correct the comment. * gdbtypes.h, gdbtypes.c: Use const in decl of cplus_struct_default, now that pa-gas assembler has been fixed. * hppah-nat.c: Formatting. * hppah-tdep.c: Remove lots of useless externs for variables we don't use. * (find_unwind_entry): Speed up by using binary search, and a one entry cache. * (rp_saved): New routine to see what unwind info says about RP being saved on the stack frame. * (frame_saved_pc): Look for prologue to see if we need to examine the stack for the saved RP or not. * (init_extra_frame_info): Check for prologue, instead of framesize to determine if we are frameless or not. * (frame_chain_valid): Stop backtraces when we run into _start. * (push_dummy_frame): Reformat to make more readable. * (find_dummy_frame_regs): ditto. * (hp_pop_frame): ditto. * (hp_restore_pc_queue): small cleanup. * (hp_push_arguments): ditto. * (pa_do_registers_info): ditto. * (skip_prologue): New routine created from SKIP_PROLOGUE macro. * tm-hppa.h: Move contents of SKIP_PROLOGUE into hppah-tdep.c. * Define FRAME_CHAIN_VALID. * Turn on BELIEVE_PCC_PROMOTION so that we can access char args passed to functions. * paread.c (pa_symtab_read): Use new bfd conventions for accessing linker symbol table. * (pa_symfile_init): Access embedded STAB info via BFD section mechanism and related macros. Sat Jan 9 19:31:43 1993 Stu Grossman (grossman at cygnus.com) * sparc-stub.c: Use a seperate stack for our traps. * Handle recursive traps. * Remove all trap init code. This needs to be done by the environment. * (set_mem_fault_trap): Call exceptionHandler() to setup this trap. * (handle_exception): See if we are at breakinst, if so, then advance PC sp that users can just step out of breakpoint(). * (case 'G'): Don't let GDB hack CWP. Also, copy saved regs to new place if SP has changed. * (case 's'): Get rid of this, we can't do it yet. * (case 't'): New command to test any old random feature. * (case 'r'): New command to reset the system. * (breakpoint): Add label to breakpoint trap instruction so that handle_exception() can detect where we are and get past the breakpoint trivially. Thu Jan 7 13:33:06 1993 Ian Lance Taylor (ian@cygnus.com) * mips-pinsn.c: Actual work now done by opcodes/mips-dis.c. Thu Jan 7 09:21:51 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: recognise all sparclite variants Wed Jan 6 10:14:51 1993 Steve Chamberlain (sac@thepub.cygnus.com) * symfile.c: If O_BINARY isn't defined, set it to 0, call openp for binary files oring in the right bit. * main.c, source.c, state.c, symmisc.c: use macros defined in fopen-{bin|both} when fopening files. Wed Jan 6 08:19:11 1993 Fred Fish (fnf@cygnus.com) * defs.h (HOST_CHAR_BIT): New macro, defaults to either CHAR_BIT from a configuration file (typically including ), or to TARGET_CHAR_BIT if CHAR_BIT is not defined. * eval.c (evaluate_subexp): Use new BYTES_TO_EXP_ELEM macro. * eval.c (evaluate_subexp): Add case for OP_BITSTRING. * expprint.c (print_subexp): Use new BYTES_TO_EXP_ELEM macro. * exppritn.c (print_subexp, dump_expression): Add case for OP_BITSTRING. * expression.h (OP_BITSTRING): New expression element type for packed bitstrings. * expression.h (EXP_ELEM_TO_BYTES, BYTES_TO_EXP_ELEM): New macros to convert between number of expression elements and bytes to store that many elements. * i960-tdep.c (leafproc_return): Use new macros to access minimal symbol name and address fields. * m88k-pinsn.c (sprint_address): Use new macros to access minimal symbol name and address fields. * nindy-tdep.c (nindy_frame_chain_valid): Use new macro to access minimal symbol address field. * parse.c (write_exp_elt, write_exp_string, prefixify_expression, parse_exp_1): Use new EXP_ELEM_TO_BYTES macro. * parse.c (write_exp_string, length_of_subexp, prefixify_expression): Use new BYTES_TO_EXP_ELEM macro. * parse.c (write_exp_bitstring): New function to write packed bitstrings into the expression element vector. * parse.c (length_of_subexp, prefixify_subexp): Add case for OP_BITSTRING. * parser-defs.h (struct stoken): Document that it is used for OP_BITSTRING as well as OP_STRING. * parser-defs.h (write_exp_bitstring): Add prototype. * ch-exp.y (BIT_STRING_LITERAL): Change token type to sval. * ch-exp.y (NUM, PRED, SUCC, ABS, CARD, MAX, MIN, SIZE, UPPER, LOWER, LENGTH): New tokens for keywords. * ch-exp.y (chill_value_built_in_routine_call, mode_argument, upper_lower_argument, length_argument, array_mode_name, string_mode_name, variant_structure_mode_name): New non-terminals and productions. * ch-exp.y (literal): Useful production for BIT_STRING_LITERAL. * ch-exp.y (match_bitstring_literal): New lexer support function to recognize bitstring literals. * ch-exp.y (tokentab6): New token table for 6 character keywords. * ch-exp.y (tokentab5): Add LOWER, UPPER. * ch-exp.y (tokentab4): Add PRED, SUCC, CARD, SIZE. * ch-exp.y (tokentab3): Add NUM, ABS, MIN, MAX. * ch-exp.y (yylex): Check tokentab6. * ch-exp.y (yylex): Call match_bitstring_literal. Mon Jan 4 16:54:18 1993 Fred Fish (fnf@cygnus.com) * xcoffexec.c (vmap_symtab): Use new macros to access minimal symbol name and value fields. * c-exp.y (yylex): Make static, to match prototype and other -exp.y files. * expression.h (exp_opcode): Add BINOP_MOD. * eval.c (evaluate_subexp): Handle new BINOP_MOD. * expprint.c (dump_expression): Handle new BINOP_MOD. * language.c (binop_type_check): Handle new BINOP_MOD. * main.c (float_handler): Re-enable float handler when hit. * valarith.c (language.h): Include, need current_language. * valarith.c (TRUNCATION_TOWARDS_ZERO): Define default macro for integer divide truncates towards zero for negative results. * valarith.c (value_x_binop): Handle BINOP_MOD if seen. * valarith.c (value_binop): Allow arithmetic operations on TYPE_CODE_CHAR variables. Add case to handle new BINOP_MOD. * ch-exp.y (operand_4): Add useful actions for MOD and REM. * ch-exp.y (tokentab3): Add MOD and REM. * ch-exp.y (yylex): Set innermost_block for symbols found in local scopes. Return LOCATION_NAME for local symbols. * ch-lang.c (chill_op_print_tab): Fix MOD entry to use BINOP_MOD instead of BINOP_REM. Add REM entry, using BINOP_REM. Mon Jan 4 07:35:31 1993 Steve Chamberlain (sac@wahini.cygnus.com) * command.c (shell_escape, make_command, _initialize_command): don't create or use fork if CANT_FORK is defined. * serial.h, ser-go32.c: now compiles, but "the obvious problems of code written for the IBM PC" remain. * xm-go32.h: define CANT_FORK Sun Jan 3 14:24:56 1993 Steve Chamberlain (sac@thepub.cygnus.com) * remote-sim.c: first attempt at general simulator interface * remote-hms.c: whitespace * h8300-tdep.c: (h8300_skip_prologue, examine_prologue): understand new stack layout. (print_register_hook): print ccr register in a fancy way. Sun Jan 3 14:16:10 1993 Fred Fish (fnf@cygnus.com) * eval.c (language.h): Include. * eval.c (evaluate_subexp_with_coercion): Only coerce arrays to pointer types when the current language is C. It loses for other languages when the lower index bound is nonzero. * valarith.c (value_subscript): Take array lower bounds into account when performing subscripting operations. * valops.c (value_coerce_array): Add comment describing why arrays with nonzero lower bounds are dealt with in value_subscript, rather than in value_coerce_array. Sat Jan 2 12:16:41 1993 Fred Fish (fnf@cygnus.com) * ch-exp.y (FLOAT_LITERAL): Add token. * ch-exp.y (literal): Add FLOAT_LITERAL. * ch-exp.y (match_float_literal): New lexer routine. * ch-exp.y (convert_float): Remove. * ch-exp.y (yylex): Call match_float_literal. * ch-exp.y (yylex): Match single '.' after trying to match floating point literals. * eval.c (evaluate_subexp): Add case MULTI_SUBSCRIPT. * expprint.c (print_subexp): Rename BINOP_MULTI_SUBSCRIPT to MULTI_SUBSCRIPT. * expprint.c (dump_expression): New function for dumping expression vectors during gdb debugging. * expression.h (BINOP_MULTI_SUBSCRIPT): Name changed to MULTI_SUBSCRIPT and moved out of BINOP range. * expression.h (DUMP_EXPRESSION): New macro that calls dump_expression if DEBUG_EXPRESSIONS is defined. * m2-exp.y (BINOP_MULTI_SUBSCRIPT): Changed to MULTI_SUBSCRIPT. * parse.c (length_of_subexp, prefixify_subexp): Change BINOP_MULTI_SUBSCRIPT to MULTI_SUBSCRIPT. * parse.c (parse_exp_1): Call DUMP_EXPRESSION before and after prefixify'ing the expression. * printcmd.c (print_command_1): Add comment. * ch-exp.y (expression_list): Add useful actions. * ch-exp.y (value_array_element): Add useful actions. * ch-exp.y (array_primitive_value): Add production. * ch-exp.y (yylex): Recognize ',' as a token. Fri Jan 1 18:22:02 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: pass prefix and exec_prefix via FLAGS_TO_PASS, POSIXize the recursive makes (make [variable assignments] target{s}) Fri Jan 1 11:56:23 1993 Fred Fish (fnf@cygnus.com) * tm-sun4sol2.h (CPLUS_MARKER): Remove, now set in tm-sysv4.h. * tm-sysv4.h (CPLUS_MARKER): By default, g++ uses '.' as the CPLUS_MARKER for all SVR4 systems, so follow suit. * defs.h (strdup_demangled): Remove prototype. * dwarfread.c (enum_type, synthesize_typedef): Use new macro SYMBOL_INIT_LANGUAGE_SPECIFIC. * dwarfread.c (new_symbol): Use SYMBOL_INIT_DEMANGLED_NAME. * minsyms.c (install_minimal_symbols, prim_record_minimal_symbol, prim_record_minimal_symbol_and_info): Use new macro SYMBOL_INIT_LANGUAGE_SPECIFIC. * minsyms.c (install_minimal_symbols): Use new macro SYMBOL_INIT_DEMANGLED_NAME. * stabsread.c (define_symbol): Use new macro SYMBOL_INIT_DEMANGLED_NAME. * symfile.c (add_psymbol_to_list, add_psymbol_addr_to_list): Use new macro SYMBOL_INIT_DEMANGLED_NAME. * symfile.h (ADD_PSYMBOL_VT_TO_LIST): Use new macro SYMBOL_INIT_DEMANGLED_NAME. * symmisc.c (dump_msymbols, dump_symtab, print_partial_symbol): SYMBOL_DEMANGLED_NAME now tests language itself. * symtab.c (COMPLETION_LIST_ADD_SYMBOL): SYMBOL_DEMANGLED_NAME now tests language itself. * symtab.h (SYMBOL_CPLUS_DEMANGLED_NAME): New macro that does what SYMBOL_DEMANGLED_NAME used to do, directly access the C++ mangled name member in the language dependent portion of a symbol. * symtab.h (SYMBOL_DEMANGLED_NAME): New macro that returns the mangled name member appropriate for a symbol's language. * symtab.h (SYMBOL_SOURCE_NAME, SYMBOL_LINKAGE_NAME, SYMBOL_MATCHES_NAME, SYMBOL_MATCHES_REGEXP): SYMBOL_DEMANGLED_NAME now tests language itself. * symtab.h (SYMBOL_INIT_LANGUAGE_SPECIFIC): New macro that initializes language dependent portion of symbol. * symtab.h (SYMBOL_INIT_DEMANGLED_NAME): New macro that demangles and caches the demangled form of symbol names. * utils.c (fputs_demangled, fprint_symbol): Use current language to select an appropriate demangling algorithm. * utils.c (strdup_demangled): Remove, no longer used. * symtab.h (SYMBOL_CHILL_DEMANGLED_NAME): New macro that directly access the Chill mangled name member in the language dependent portion of a symbol. * ch-lang.c (chill_demangle): New function, simple demangler. * defs.h (chill_demangle): Add prototype. * symtab.h (language_dependent_info): Add struct for Chill. For older changes see ChangeLog-92 Local Variables: mode: indented-text left-margin: 8 fill-column: 74 version-control: never End: gdb-4.13/gdb/Makefile.in 666 34562 1752 155732 5623251412 13413 0ustar fnfcygnus# Copyright 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. # This file is part of GDB. # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. prefix = /usr/local program_transform_name = exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib tooldir = $(libdir)/$(target_alias) datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include docdir = $(datadir)/doc SHELL = /bin/sh INSTALL = `cd $(srcdir)/..;pwd`/install.sh -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) AR = ar AR_FLAGS = qv RANLIB = ranlib # Flags that describe where you can find the termcap library. # This can be overridden in the host Makefile fragment file. TERMCAP = -ltermcap # If you are compiling with GCC, make sure that either 1) You have the # fixed include files where GCC can reach them, or 2) You use the # -traditional flag. Otherwise the ioctl calls in inflow.c # will be incorrectly compiled. The "fixincludes" script in the gcc # distribution will fix your include files up. #CC=gcc -traditional # Directory containing source files. Don't clean up the spacing, # this exact string is matched for by the "configure" script. srcdir = . # If you use bison instead of yacc, it needs to include the "-y" argument. #BISON=bison -y BISON = bison -y YACC=$(BISON) # where to find makeinfo, preferably one designed for texinfo-2 MAKEINFO=makeinfo # Set this up with gcc if you have gnu ld and the loader will print out # line numbers for undefined references. #CC-LD=gcc -static CC-LD=$(CC) # Where is our "include" directory? Typically $(srcdir)/../include. # This is essentially the header file directory for the library # routines in libiberty. INCLUDE_DIR = $(srcdir)/../include INCLUDE_CFLAGS = -I$(INCLUDE_DIR) # Where is the "-liberty" library, containing getopt and obstack? LIBIBERTY = ../libiberty/libiberty.a # Where is the MMALLOC library? Typically ../mmalloc. # Note that mmalloc can still be used on systems without mmap(). # To use your system malloc, comment out the following defines. MMALLOC = ../mmalloc/libmmalloc.a # To use your system malloc, uncomment MMALLOC_DISABLE. #MMALLOC_DISABLE = -DNO_MMALLOC # To use mmalloc but disable corruption checking, uncomment MMALLOC_CHECK #MMALLOC_CHECK = -DNO_MMALLOC_CHECK MMALLOC_CFLAGS = $(MMALLOC_CHECK) $(MMALLOC_DISABLE) # Where are the BFD library? BFD_DIR = ../bfd BFD = $(BFD_DIR)/libbfd.a BFD_SRC = $(srcdir)/$(BFD_DIR) BFD_CFLAGS = -I$(BFD_DIR) -I$(BFD_SRC) # Where is the READLINE library? Typically in ../readline. READLINE_DIR = ../readline READLINE = $(READLINE_DIR)/libreadline.a READLINE_SRC = $(srcdir)/$(READLINE_DIR) READLINE_CFLAGS = -I$(READLINE_SRC) # Opcodes currently live in one of two places. Either they are in the # opcode library, typically ../opcodes, or they are in a header file # in INCLUDE_DIR. # Where is the "-lopcodes" library, with (some of) the opcode tables and # disassemblers? OPCODES = ./../opcodes/libopcodes.a # Where are the other opcode tables which only have header file # versions? OP_INCLUDE = $(INCLUDE_DIR)/opcode OPCODES_CFLAGS = -I$(OP_INCLUDE) # All the includes used for CFLAGS and for lint. # -I. for config files. # -I$(srcdir) for gdb internal headers and possibly for regex.h also. # -I$(srcdir)/config for more generic config files. # It is also possible that you will need to add -I/usr/include/sys if # your system doesn't have fcntl.h in /usr/include (which is where it # should be according to Posix). GDB_CFLAGS = -I. -I$(srcdir) -I$(srcdir)/config # M{H,T}_CFLAGS, if defined, have host- and target-dependent CFLAGS # from the config directory. GLOBAL_CFLAGS = $(MT_CFLAGS) $(MH_CFLAGS) #PROFILE_CFLAGS = -pg # CFLAGS is specifically reserved for setting from the command line # when running make. I.E. "make CFLAGS=-Wmissing-prototypes". CFLAGS = -g # Need to pass this to testsuite for "make check". Probably should be # consistent with top-level Makefile.in and gdb/testsuite/Makefile.in # so "make check" has the same result no matter where it is run. CXXFLAGS = -g -O # INTERNAL_CFLAGS is the aggregate of all other *CFLAGS macros. INTERNAL_CFLAGS = $(CFLAGS) $(GLOBAL_CFLAGS) $(PROFILE_CFLAGS) \ $(GDB_CFLAGS) $(OPCODES_CFLAGS) $(READLINE_CFLAGS) \ $(BFD_CFLAGS) $(MMALLOC_CFLAGS) $(INCLUDE_CFLAGS) # LDFLAGS is specifically reserved for setting from the command line # when running make. # Profiling options need to go here to work. # I think it's perfectly reasonable for a user to set -pg in CFLAGS # and have it work; that's why CFLAGS is here. INTERNAL_LDFLAGS = $(CFLAGS) $(GLOBAL_CFLAGS) $(PROFILE_CFLAGS) $(LDFLAGS) # We are using our own version of REGEX now to be consistent across # machines. REGEX = regex.o REGEX1 = regex.o # If your system is missing alloca(), or, more likely, it's there but # it doesn't work, then refer to libiberty. # Libraries and corresponding dependencies for compiling gdb. # {X,T}M_CLIBS, defined in *config files, have host- and target-dependent libs. # TERMCAP comes after readline, since readline depends on it. # If you have the Cygnus libraries installed, # you can use 'CLIBS=$(INSTALLED_LIBS)' 'CDEPS=' INSTALLED_LIBS=-lbfd -lreadline $(TERMCAP) -lopcodes -lmmalloc \ -liberty $(XM_CLIBS) $(TM_CLIBS) $(NAT_CLIBS) CLIBS = $(BFD) $(READLINE) $(OPCODES) $(MMALLOC) \ $(LIBIBERTY) $(TERMCAP) $(XM_CLIBS) $(TM_CLIBS) $(NAT_CLIBS) CDEPS = $(XM_CDEPS) $(TM_CDEPS) $(NAT_CDEPS) \ $(BFD) $(READLINE) $(OPCODES) $(MMALLOC) $(LIBIBERTY) ADD_FILES = $(REGEX) $(XM_ADD_FILES) $(TM_ADD_FILES) $(NAT_ADD_FILES) ADD_DEPS = $(REGEX1) $(XM_ADD_FILES) $(TM_ADD_FILES) $(NAT_ADD_FILES) VERSION = 4.13 DIST=gdb LINT=/usr/5bin/lint LINTFLAGS= $(BFD_CFLAGS) RUNTEST = `if [ -f $${srcdir}/../dejagnu/runtest ] ; then \ echo $${srcdir}/../dejagnu/runtest ; else echo runtest; \ fi` RUNTESTFLAGS= # This is ser-unix.o for any system which supports a v7/BSD/SYSV/POSIX # interface to the serial port. Hopefully if get ported to OS/2, VMS, # etc., then there will be (as part of the C library or perhaps as # part of libiberty) a POSIX interface. But at least for now the # host-dependent makefile fragment might need to use something else # besides ser-unix.o SER_HARDWIRE=ser-unix.o # The `remote' debugging target is supported for most architectures, # but not all (e.g. 960) REMOTE_O = remote.o dcache.o remote-utils.o # Host and target-dependent makefile fragments come in here. #### # End of host and target-dependent makefile fragments FLAGS_TO_PASS = \ "prefix=$(prefix)" \ "exec_prefix=$(exec_prefix)" \ "against=$(against)" \ "AR=$(AR)" \ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CFLAGS=$(CFLAGS)" \ "CHILLFLAGS=$(CHILLFLAGS)" \ "CHILL=$(CHILL)" \ "CHILL_LIB=$(CHILL_LIB)" \ "CXX=$(CXX)" \ "CXXFLAGS=$(CXXFLAGS)" \ "RANLIB=$(RANLIB)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "RUNTEST=$(RUNTEST)" \ "RUNTESTFLAGS=$(RUNTESTFLAGS)" \ "BISON=$(BISON)" # Flags that we pass when building the testsuite. CC_FOR_TARGET = ` \ if [ -f $${rootme}/../gcc/xgcc ] ; then \ echo $${rootme}/../gcc/xgcc -B$${rootme}/../gcc/; \ else \ if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ echo $(CC); \ else \ t='$(program_transform_name)'; echo gcc | sed -e '' $$t; \ fi; \ fi` CXX = gcc CXX_FOR_TARGET = ` \ if [ -f $${rootme}/../gcc/Makefile ] ; then \ echo $${rootme}/../gcc/xgcc -B$${rootme}/../gcc/; \ else \ if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ echo $(CXX); \ else \ t='$(program_transform_name)'; echo gcc | sed -e '' $$t; \ fi; \ fi` CHILLFLAGS = $(CFLAGS) CHILL = gcc CHILL_FOR_TARGET = ` \ if [ -f $${rootme}/../gcc/Makefile ] ; then \ echo $${rootme}/../gcc/xgcc -B$${rootme}/../gcc/ -L$${rootme}/../chillrt/; \ else \ if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ echo $(CC); \ else \ t='$(program_transform_name)'; echo gcc | sed -e '' $$t; \ fi; \ fi` CHILL_LIB = -lchill # The use of $$(x_FOR_TARGET) reduces the command line length by not # duplicating the lengthy definition. TARGET_FLAGS_TO_PASS = \ "prefix=$(prefix)" \ "exec_prefix=$(exec_prefix)" \ "against=$(against)" \ 'CC=$$(CC_FOR_TARGET)' \ "CC_FOR_TARGET=$(CC_FOR_TARGET)" \ "CFLAGS=$(CFLAGS)" \ "CHILLFLAGS=$(CHILLFLAGS)" \ 'CHILL=$$(CHILL_FOR_TARGET)' \ "CHILL_FOR_TARGET=$(CHILL_FOR_TARGET)" \ "CHILL_LIB=$(CHILL_LIB)" \ 'CXX=$$(CXX_FOR_TARGET)' \ "CXX_FOR_TARGET=$(CXX_FOR_TARGET)" \ "CXXFLAGS=$(CXXFLAGS)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "RUNTEST=$(RUNTEST)" \ "RUNTESTFLAGS=$(RUNTESTFLAGS)" \ "BISON=$(BISON)" # All source files that go into linking GDB. # Links made at configuration time should not be specified here, since # SFILES is used in building the distribution archive. SFILES = blockframe.c breakpoint.c buildsym.c c-exp.y c-lang.c \ c-typeprint.c c-valprint.c ch-exp.y ch-lang.c ch-typeprint.c \ ch-valprint.c coffread.c command.c complaints.c core.c cp-valprint.c \ dbxread.c demangle.c dwarfread.c elfread.c environ.c eval.c expprint.c \ findvar.c gdbtypes.c infcmd.c inflow.c infrun.c language.c \ m2-exp.y m2-lang.c m2-typeprint.c m2-valprint.c main.c maint.c \ mem-break.c minsyms.c mipsread.c nlmread.c objfiles.c parse.c \ printcmd.c remote.c source.c stabsread.c stack.c symfile.c symmisc.c \ symtab.c target.c thread.c top.c \ typeprint.c utils.c valarith.c valops.c \ valprint.c values.c serial.c ser-unix.c mdebugread.c os9kread.c # Files that are not source code, but need to go into # gdb-$(VERSION).tar.Z. NONSRC = Makefile.in configure.in ChangeLog ChangeLog-9091 \ ChangeLog-92 ChangeLog-93 ChangeLog-3.x \ gdb.1 refcard.ps README TODO TAGS NEWS \ Projects .gdbinit COPYING $(YYFILES) copying.c copying.awk \ saber.suppress standalone.c stuff.c kdb-start.c gcc.patch \ nindy-share/Makefile nindy-share/VERSION nindy-share/README \ vx-share/README 29k-share/README config/convex/Convex.notes \ i386-nlmstub.c # All source files that lint should look at LINTFILES = $(SFILES) $(YYFILES) init.c # Any additional files specified on these lines should also be added to # the NONSRC definition, so they go in the tar files. SFILES_STAND = $(SFILES) standalone.c SFILES_KGDB = $(SFILES) stuff.c kdb-start.c # "system" headers. Using these in dependencies is a rather personal # choice. (-rich, summer 1993) # (Why would we not want to depend on them? If one of these changes in a # non-binary-compatible way, it is a real pain to remake the right stuff # without these dependencies -kingdon, 13 Mar 1994) getopt_h = $(INCLUDE_DIR)/getopt.h floatformat_h = $(INCLUDE_DIR)/floatformat.h bfd_h = $(BFD_DIR)/bfd.h wait_h = $(INCLUDE_DIR)/wait.h dis-asm_h = $(INCLUDE_DIR)/dis-asm.h dcache_h = dcache.h remote_utils_h = $(dcache_h) serial.h target.h remote-utils.h remote-sim.h readline_headers = \ $(READLINE_SRC)/chardefs.h \ $(READLINE_SRC)/history.h \ $(READLINE_SRC)/keymaps.h \ $(READLINE_SRC)/readline.h udiheaders = \ $(srcdir)/29k-share/udi/udiproc.h \ $(srcdir)/29k-share/udi/udiphcfg.h \ $(srcdir)/29k-share/udi/udiphunix.h \ $(srcdir)/29k-share/udi/udiptcfg.h \ $(srcdir)/29k-share/udi/udipt29k.h \ $(srcdir)/29k-share/udi/udisoc.h gdbcore_h = gdbcore.h $(bfd_h) frame_h = frame.h symtab_h = symtab.h gdbtypes_h = gdbtypes.h expression_h = expression.h value_h = value.h $(symtab_h) $(gdbtypes_h) $(expression_h) breakpoint_h = breakpoint.h $(frame_h) $(value_h) command_h = command.h gdbcmd_h = gdbcmd.h $(command_h) defs_h = defs.h xm.h tm.h nm.h config.status inferior_h = inferior.h $(breakpoint_h) # Header files that need to have srcdir added. Note that in the cases # where we use a macro like $(gdbcmd_h), things are carefully arranged # so that each .h file is listed exactly once (M-x tags-search works # wrong if TAGS has files twice). Because this is tricky to get # right, it is probably easiest just to list .h files here directly. HFILES_NO_SRCDIR = buildsym.h call-cmds.h coff-solib.h defs.h dst.h environ.h \ $(gdbcmd_h) gdbcore.h \ gdb-stabs.h $(inferior_h) language.h minimon.h monitor.h \ objfiles.h parser-defs.h partial-stab.h serial.h signals.h solib.h \ symfile.h stabsread.h target.h terminal.h typeprint.h xcoffsolib.h \ c-lang.h ch-lang.h m2-lang.h complaints.h ns32k-opcode.h valprint.h \ config/m68k/tm-m68k.h config/pa/tm-hppa.h config/i960/tm-i960.h \ config/sparc/tm-sparc.h config/tm-lynx.h config/tm-sunos.h \ config/tm-sysv4.h \ config/m68k/xm-m68k.h config/sparc/xm-sparc.h \ config/xm-lynx.h config/xm-sysv4.h \ config/vax/xm-vax.h config/nm-m3.h config/nm-trash.h \ 29k-share/udi/udiids.h 29k-share/udi_soc nindy-share/b.out.h \ nindy-share/block_io.h nindy-share/coff.h \ nindy-share/env.h nindy-share/stop.h \ vx-share/dbgRpcLib.h vx-share/ptrace.h vx-share/vxTypes.h \ vx-share/vxWorks.h vx-share/wait.h vx-share/xdr_ld.h \ vx-share/xdr_ptrace.h vx-share/xdr_rdb.h thread.h \ dcache.h remote-utils.h remote-sim.h top.h # Header files that already have srcdir in them, or which are in objdir. HFILES_WITH_SRCDIR = $(udiheaders) ../bfd/bfd.h # GDB "info" files, which should be included in their entirety INFOFILES = gdb.info* REMOTE_EXAMPLES = m68k-stub.c i386-stub.c sparc-stub.c rem-multi.shar POSSLIBS = regex.c regex.h # Subdirectories of gdb, which should be included in their entirety in # gdb-xxx.tar.Z: TARDIRS = doc gdbserver sparclite # {X,T,NAT}DEPFILES are something of a pain in that it's hard to # default their values the way we do for SER_HARDWIRE; in the future # maybe much of the stuff now in {X,T,NAT}DEPFILES will go into other # variables analogous to SER_HARDWIRE which get defaulted in this # Makefile.in DEPFILES = $(TDEPFILES) $(XDEPFILES) $(SER_HARDWIRE) $(NATDEPFILES) $(REMOTE_O) SOURCES = $(SFILES) $(ALLDEPFILES) $(YYFILES) # Don't include YYFILES (*.tab.c) because we already include *.y in SFILES, # and it's more useful to see it in the .y file. TAGFILES_NO_SRCDIR = $(SFILES) $(HFILES_NO_SRCDIR) $(ALLDEPFILES) \ $(ALLPARAM) $(POSSLIBS) TAGFILES_WITH_SRCDIR = $(HFILES_WITH_SRCDIR) TARFILES = $(SFILES) $(HFILES_NO_SRCDIR) $(HFILES_WITH_SRCDIR) \ $(NONSRC) $(ALLDEPFILES) $(ALLCONFIG) \ $(ALLPARAM) $(INFOFILES) $(POSSLIBS) $(REMOTE_EXAMPLES) COMMON_OBS = version.o blockframe.o breakpoint.o findvar.o stack.o thread.o \ source.o values.o eval.o valops.o valarith.o valprint.o printcmd.o \ symtab.o symfile.o symmisc.o infcmd.o infrun.o command.o \ expprint.o environ.o gdbtypes.o copying.o $(DEPFILES) \ mem-break.o target.o parse.o language.o $(YYOBJ) buildsym.o \ objfiles.o minsyms.o maint.o demangle.o dbxread.o coffread.o elfread.o \ dwarfread.o mipsread.o stabsread.o core.o c-lang.o ch-lang.o m2-lang.o \ complaints.o typeprint.o c-typeprint.o ch-typeprint.o m2-typeprint.o \ c-valprint.o cp-valprint.o ch-valprint.o m2-valprint.o nlmread.o \ serial.o mdebugread.o os9kread.o top.o utils.o OBS = $(COMMON_OBS) main.o annotate.o LIBGDB_OBS = TSOBS = inflow.o NTSOBS = standalone.o NTSSTART = kdb-start.o SUBDIRS = doc testsuite # For now, shortcut the "configure GDB for fewer languages" stuff. YYFILES = c-exp.tab.c m2-exp.tab.c ch-exp.tab.c YYOBJ = c-exp.tab.o m2-exp.tab.o ch-exp.tab.o # Things which need to be built when making a distribution. DISTSTUFF = $(YYFILES) # Prevent Sun make from putting in the machine type. Setting # TARGET_ARCH to nothing works for SunOS 3, 4.0, but not for 4.1. .c.o: $(CC) -c $(INTERNAL_CFLAGS) $< all: gdb libgdb-files $(LIBGDB_OBS) @$(MAKE) $(FLAGS_TO_PASS) DO=all "DODIRS=`echo $(SUBDIRS) | sed 's/testsuite//'`" subdir_do installcheck: # The check target can not use subdir_do, because subdir_do does not # use TARGET_FLAGS_TO_PASS. check: force @if [ -f testsuite/Makefile ]; then \ rootme=`pwd`; export rootme; \ cd testsuite; \ $(MAKE) $(TARGET_FLAGS_TO_PASS) check; \ else true; fi info dvi install-info clean-info: force @$(MAKE) $(FLAGS_TO_PASS) DO=$@ "DODIRS=$(SUBDIRS)" subdir_do gdb.z:gdb.1 nroff -man $(srcdir)/gdb.1 | col -b > gdb.t pack gdb.t ; rm -f gdb.t mv gdb.t.z gdb.z # Traditionally "install" depends on "all". But it may be useful # not to; for example, if the user has made some trivial change to a # source file and doesn't care about rebuilding or just wants to save the # time it takes for make to check that all is up to date. # install-only is intended to address that need. install: all install-only install-only: transformed_name=`t='$(program_transform_name)'; \ echo gdb | sed -e "s/brokensed/brokensed/" $$t` ; \ if test "x$$transformed_name" = x; then \ transformed_name=gdb ; \ else \ true ; \ fi ; \ $(INSTALL_PROGRAM) gdb $(bindir)/$$transformed_name ; \ $(INSTALL_DATA) $(srcdir)/gdb.1 $(man1dir)/$$transformed_name.1 @$(MAKE) DO=install "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) subdir_do uninstall: force rm -f $(bindir)/gdb $(man1dir)/gdb.1 @$(MAKE) DO=uninstall "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) subdir_do # We do this by grepping through sources. If that turns out to be too slow, # maybe we could just require every .o file to have an initialization routine # of a given name (remote-udi.o -> _initialize_remote_udi, etc.). # # Formatting conventions: The name of the _initialize_* routines must start # in column zero, and must not be inside #if. # # Note that the set of files with init functions might change, or the names # of the functions might change, so this files needs to depend on all the # object files that will be linked into gdb. init.c: $(OBS) $(TSOBS) @echo Making init.c @rm -f init.c-tmp @echo '/* Do not modify this file. */' >init.c-tmp @echo '/* It is created automatically by the Makefile. */'>>init.c-tmp @echo 'void initialize_all_files () {' >>init.c-tmp @for i in $(OBS) $(TSOBS); do \ filename=`echo $$i | sed \ -e '/^Onindy.o/d' \ -e '/^nindy.o/d' \ -e '/ttyflush.o/d' \ -e '/xdr_ld.o/d' \ -e '/xdr_ptrace.o/d' \ -e '/xdr_rdb.o/d' \ -e '/udr.o/d' \ -e '/udip2soc.o/d' \ -e '/udi2go32.o/d' \ -e '/version.o/d' \ -e '/[a-z0-9A-Z_]*-exp.tab.o/d' \ -e 's/\.o/.c/'` ; \ case $$filename in \ "") ;; \ *) sed <$(srcdir)/$$filename >>init.c-tmp -n \ -e '/^_initialize_[a-z_0-9A-Z]* *(/s/^\([a-z_0-9A-Z]*\).*/ {extern void \1 (); \1 ();}/p' ; ;; \ esac ; \ done @echo '}' >>init.c-tmp @mv init.c-tmp init.c .PRECIOUS: init.c # Removing the old gdb first works better if it is running, at least on SunOS. gdb: $(OBS) $(TSOBS) $(ADD_DEPS) $(CDEPS) init.o rm -f gdb $(CC-LD) $(INTERNAL_LDFLAGS) -o gdb \ init.o $(OBS) $(TSOBS) $(ADD_FILES) $(CLIBS) $(LOADLIBES) # libproc is not listed here because all-libproc is a dependency of all-gui, # not all-gdb, and thus might be built after us. LIBGDBDEPS=$(COMMON_OBS) $(LIBGDB_OBS) $(TSOBS) $(ADD_DEPS) $(CDEPS) init.o # libproc needs to be before libiberty for alloca. LIBGDBFILES=$(COMMON_OBS) $(LIBGDB_OBS) $(TSOBS) ../libproc/libproc.a \ $(ADD_DEPS) $(CDEPS) init.o libgdb-files: $(LIBGDBDEPS) Makefile.in -rm -f libgdb-files for i in $(LIBGDBFILES); do\ echo $$i >> libgdb-files;\ done saber_gdb: $(SFILES) $(DEPFILES) copying.c version.c #setopt load_flags $(CFLAGS) $(BFD_CFLAGS) -DHOST_SYS=SUN4_SYS #load ./init.c $(SFILES) #unload $(srcdir)/c-exp.y $(srcdir)/m2-exp.y $(srcdir)/ch-exp.y #unload vx-share/*.h #unload nindy-share/[A-Z]* #load c-exp.tab.c m2-exp.tab.c ch-exp.tab.c #load copying.c version.c #load ../opcodes/libopcodes.a #load ../libiberty/libiberty.a #load ../bfd/libbfd.a #load ../readline/libreadline.a #load ../mmalloc/libmmalloc.a #load -ltermcap #load `echo " "$(DEPFILES) | sed -e 's/\.o/.c/g' -e 's, , ../,g'` echo "Load .c corresponding to:" $(DEPFILES) # A Mach 3.0 program to force gdb back to command level stop-gdb: stop-gdb.o ${CC-LD} $(GLOBAL_CFLAGS) $(LDFLAGS) -o stop-gdb \ stop-gdb.o $(CLIBS) $(LOADLIBES) # This is useful when debugging GDB, because some Unix's don't let you run GDB # on itself without copying the executable. So "make gdb1" will make # gdb and put a copy in gdb1, and you can run it with "gdb gdb1". # Removing gdb1 before the copy is the right thing if gdb1 is open # in another process. gdb1: gdb rm -f gdb1 cp gdb gdb1 config.status: @echo "You must configure gdb. Look at the README file for details." @false ### fixme - this can't be right. # This checks the configure.in file versus the config/ directory. config-check: config-check-hosts config-check-targets config-check-hosts: grep gdb_host= $(srcdir)/configure.in | \ sed -e 's/.*gdb_host=//' -e 's/ ;;$$/.mh/' | sort -u >HOSTconf.o (cd $(srcdir)/config; ls *.mh) >HOSTdir.o diff -u HOSTconf.o HOSTdir.o ### fixme - nor can this. config-check-targets: grep gdb_target= $(srcdir)/configure.in | \ sed -e 's/.*gdb_target=//' -e 's/ ;;$$/.mh/' | sort -u >TARGconf.o (cd $(srcdir)/config; ls *.mt) >TARGdir.o diff -u HOSTconf.o HOSTdir.o # FIXME. These are not generated by "make depend" because they only are there # for some machines. # But these rules don't do what we want; we want to hack the foo.o: tm.h # dependency to do the right thing. tm-isi.h tm-sun3.h tm-news.h tm-hp300bsd.h tm-altos.h: tm-m68k.h tm-hp300hpux.h tm-sun2.h tm-3b1.h: tm-m68k.h xm-news1000.h: xm-news.h xm-i386-sv32.h: xm-i386.h tm-i386gas.h: tm-i386.h xm-sun4os4.h: xm-sparc.h tm-sun4os4.h: tm-sparc.h xm-vaxult.h: xm-vax.h xm-vaxbsd.h: xm-vax.h kdb: $(NTSSTART) $(OBS) $(NTSOBS) $(ADD_DEPS) $(CDEPS) ld -o kdb $(NTSSTART) $(OBS) $(NTSOBS) init.o $(ADD_FILES) \ -lc $(CLIBS) # Put the proper machine-specific files first, so M-. on a machine # specific routine gets the one for the correct machine. (FIXME: those # files go in twice; we should be removing them from the main list). # TAGS depends on all the files that go into it so you can rebuild TAGS # with `make TAGS' and not have to say `rm TAGS' first. TAGS: $(TAGFILES_NO_SRCDIR) $(TAGFILES_WITH_SRCDIR) @echo Making TAGS @etags $(srcdir)/$(TM_FILE) \ $(srcdir)/$(XM_FILE) \ $(srcdir)/$(NAT_FILE) \ `(for i in $(DEPFILES) $(TAGFILES_NO_SRCDIR); do \ echo $(srcdir)/$$i ; \ done ; for i in $(TAGFILES_WITH_SRCDIR); do \ echo $$i ; \ done) | sed -e 's/\.o$$/\.c/'` tags: TAGS clean mostlyclean: @$(MAKE) $(FLAGS_TO_PASS) DO=clean "DODIRS=$(SUBDIRS)" subdir_do rm -f *.o $(ADD_FILES) *~ init.c-tmp rm -f init.c version.c rm -f gdb core make.log libgdb-files rm -f gdb[0-9] # This used to depend on c-exp.tab.c m2-exp.tab.c ch-exp.tab.c TAGS # I believe this is wrong; the makefile standards for distclean just # describe removing files; the only sort of "re-create a distribution" # functionality described is if the distributed files are unmodified. distclean: clean @$(MAKE) $(FLAGS_TO_PASS) DO=distclean "DODIRS=$(SUBDIRS)" subdir_do rm -f nm.h tm.h xm.h config.status rm -f y.output yacc.acts yacc.tmp y.tab.h rm -f Makefile realclean: clean @$(MAKE) $(FLAGS_TO_PASS) DO=realclean "DODIRS=$(SUBDIRS)" subdir_do rm -f c-exp.tab.c m2-exp.tab.c ch-exp.tab.c TAGS $(INFOFILES) rm -f nm.h tm.h xm.h config.status rm -f y.output yacc.acts yacc.tmp rm -f Makefile diststuff: $(DISTSTUFF) (cd doc; $(MAKE) $(MFLAGS) GDBvn.texi) $(MAKE) $(MFLAGS) gdb.info $(MAKE) $(MFLAGS) refcard.ps subdir_do: force @for i in $(DODIRS); do \ if [ -f ./$$i/Makefile ] ; then \ if (cd ./$$i; \ $(MAKE) $(FLAGS_TO_PASS) $(DO)) ; then true ; \ else exit 1 ; fi ; \ else true ; fi ; \ done Makefile: Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) config.status force: # Documentation! # GDB QUICK REFERENCE (TeX dvi file, CM fonts) refcard.dvi: ( cd doc; $(MAKE) refcard.dvi $(FLAGS_TO_PASS) ) mv doc/refcard.dvi . # GDB QUICK REFERENCE (PostScript output, common PS fonts) refcard.ps: ( cd doc; $(MAKE) refcard.ps $(FLAGS_TO_PASS) ) mv doc/refcard.ps . # GDB MANUAL: TeX dvi file gdb.dvi: ( cd doc; $(MAKE) gdb.dvi $(FLAGS_TO_PASS) ) mv doc/gdb.dvi . # GDB MANUAL: info file gdb.info: ( cd doc; $(MAKE) gdb.info $(FLAGS_TO_PASS) ) mv doc/gdb.info* . # Make copying.c from COPYING copying.c: COPYING copying.awk awk -f $(srcdir)/copying.awk < $(srcdir)/COPYING > copying.c version.c: Makefile echo 'char *version = "$(VERSION)";' >version.c echo 'char *host_name = "$(host_alias)";' >> version.c echo 'char *target_name = "$(target_alias)";' >> version.c # c-exp.tab.c is generated in objdir from c-exp.y if it doesn't exist # in srcdir, then compiled in objdir to c-exp.tab.o. # If we said c-exp.tab.c rather than ./c-exp.tab.c some makes # would sometimes re-write it into $(srcdir)/c-exp.tab.c. # Remove bogus decls for malloc/realloc/free which conflict with everything # else. Strictly speaking c-exp.tab.c should therefore depend on # Makefile.in, but that was a pretty big annoyance. c-exp.tab.o: c-exp.tab.c c-exp.tab.c: c-exp.y $(YACC) $(YFLAGS) $(srcdir)/c-exp.y -sed -e '/extern.*malloc/d' \ -e '/extern.*realloc/d' \ -e '/extern.*free/d' \ -e '/include.*malloc.h/d' \ -e 's/malloc/xmalloc/g' \ -e 's/realloc/xrealloc/g' \ < y.tab.c > c-exp.new -rm y.tab.c mv c-exp.new ./c-exp.tab.c # ch-exp.tab.c is generated in objdir from ch-exp.y if it doesn't exist # in srcdir, then compiled in objdir to ch-exp.tab.o. # Remove bogus decls for malloc/realloc/free which conflict with everything # else. ch-exp.tab.o: ch-exp.tab.c # the dependency here on c-exp.tab.c is artificial. Without this # dependency, a parallel make will attempt to build both at the same # time and the second yacc will pollute the first y.tab.c file. ch-exp.tab.c: ch-exp.y c-exp.tab.c $(YACC) $(YFLAGS) $(srcdir)/ch-exp.y -sed -e '/extern.*malloc/d' \ -e '/extern.*realloc/d' \ -e '/extern.*free/d' \ -e '/include.*malloc.h/d' \ -e 's/malloc/xmalloc/g' \ -e 's/realloc/xrealloc/g' \ < y.tab.c > ch-exp.new -rm y.tab.c mv ch-exp.new ./ch-exp.tab.c # m2-exp.tab.c is generated in objdir from m2-exp.y if it doesn't exist # in srcdir, then compiled in objdir to m2-exp.tab.o. # Remove bogus decls for malloc/realloc/free which conflict with everything # else. m2-exp.tab.o: m2-exp.tab.c # the dependency here on ch-exp.tab.c is artificial. Without this # dependency, a parallel make will attempt to build both at the same # time and the second yacc will pollute the first y.tab.c file. m2-exp.tab.c: m2-exp.y ch-exp.tab.c $(YACC) $(YFLAGS) $(srcdir)/m2-exp.y -sed -e '/extern.*malloc/d' \ -e '/extern.*realloc/d' \ -e '/extern.*free/d' \ -e '/include.*malloc.h/d' \ -e 's/malloc/xmalloc/g' \ -e 's/realloc/xrealloc/g' \ < y.tab.c > m2-exp.new -rm y.tab.c mv m2-exp.new ./m2-exp.tab.c # These files are updated atomically, so make never has to remove them .PRECIOUS: m2-exp.tab.c ch-exp.tab.c c-exp.tab.c lint: $(LINTFILES) $(LINT) $(INCLUDE_CFLAGS) $(LINTFLAGS) $(LINTFILES) \ `echo $(DEPFILES) | sed 's/\.o /\.c /g' gdb.cxref: $(SFILES) cxref -I. $(SFILES) >gdb.cxref force_update: # GNU Make has an annoying habit of putting *all* the Makefile variables # into the environment, unless you include this target as a circumvention. # Rumor is that this will be fixed (and this target can be removed) # in GNU Make 4.0. .NOEXPORT: # GNU Make 3.63 has a different problem: it keeps tacking command line # overrides onto the definition of $(MAKE). This variable setting # will remove them. MAKEOVERRIDES= ## This is ugly, but I don't want GNU make to put these variables in ## the environment. Older makes will see this as a set of targets ## with no dependencies and no actions. unexport CHILLFLAGS CHILL_LIB CHILL_FOR_TARGET : # These are things from config/*/*.m? fragments. There is no good reason # why they are separate from the lists of files above. ALLDEPFILES = 29k-share/udi/udip2soc.c 29k-share/udi/udr.c \ 29k-share/udi/udi2go32.c \ a29k-pinsn.c a29k-tdep.c a68v-nat.c alpha-nat.c alpha-tdep.c \ altos-xdep.c arm-convert.s \ arm-pinsn.c arm-tdep.c arm-xdep.c coff-solib.c convex-pinsn.c \ convex-tdep.c \ convex-xdep.c core-sol2.c core-svr4.c coredep.c corelow.c dcache.c \ delta68-nat.c dpx2-nat.c dstread.c exec.c fork-child.c \ go32-xdep.c gould-pinsn.c gould-xdep.c h8300-tdep.c h8500-tdep.c \ hp300ux-nat.c hppa-pinsn.c hppa-tdep.c hppab-nat.c hppah-nat.c \ i386-pinsn.c i386-tdep.c i386b-nat.c i386mach-nat.c i386v-nat.c \ i386aix-nat.c i386m3-nat.c i386v4-nat.c i386ly-tdep.c \ i387-tdep.c \ i960-pinsn.c i960-tdep.c \ infptrace.c inftarg.c irix4-nat.c irix5-nat.c isi-xdep.c \ lynx-nat.c m3-nat.c \ m68k-pinsn.c m68k-tdep.c \ m88k-nat.c m88k-pinsn.c m88k-tdep.c mips-nat.c mips-pinsn.c \ mips-tdep.c mipsm3-nat.c mipsv4-nat.c news-xdep.c \ nindy-share/Onindy.c nindy-share/nindy.c \ nindy-share/ttyflush.c nindy-tdep.c \ ns32k-pinsn.c ns32km3-nat.c osfsolib.c \ somread.c procfs.c pyr-pinsn.c pyr-tdep.c pyr-xdep.c \ remote-adapt.c remote-bug.c remote-e7000.c remote-eb.c remote-es.c \ remote-hms.c remote-mips.c \ remote-mm.c remote-mon.c remote-nindy.c remote-os9k.c remote-sim.c \ remote-st.c remote-utils.c dcache.c \ remote-udi.c remote-vx.c remote-z8k.c rs6000-nat.c rs6000-pinsn.c \ rs6000-tdep.c ser-go32.c ser-tcp.c sh-tdep.c solib.c sparc-nat.c \ sparc-pinsn.c sparc-tdep.c sparcl-tdep.c sun3-nat.c sun386-nat.c \ symm-tdep.c symm-nat.c \ tahoe-pinsn.c ultra3-nat.c ultra3-xdep.c umax-xdep.c \ vax-pinsn.c \ vx-share/xdr_ld.c vx-share/xdr_ptrace.c vx-share/xdr_rdb.c \ xcoffexec.c xcoffread.c xcoffsolib.c z8k-tdep.c ALLPARAM = config/a29k/nm-ultra3.h config/a29k/tm-a29k.h \ config/a29k/tm-ultra3.h config/a29k/xm-ultra3.h \ config/alpha/nm-alpha.h config/alpha/tm-alpha.h \ config/alpha/xm-alpha.h config/arm/tm-arm.h \ config/arm/xm-arm.h config/convex/tm-convex.h \ config/convex/xm-convex.h config/gould/tm-np1.h config/gould/tm-pn.h \ config/gould/xm-np1.h config/gould/xm-pn.h config/h8300/tm-h8300.h \ config/h8500/tm-h8500.h config/i386/nm-i386aix.h \ config/i386/nm-i386bsd.h config/i386/nm-i386lynx.h \ config/i386/nm-i386mach.h config/i386/nm-i386sco.h \ config/i386/nm-i386sco4.h config/i386/nm-i386v.h \ config/i386/nm-i386v4.h config/i386/nm-linux.h \ config/i386/nm-sun386.h config/i386/nm-symmetry.h \ config/i386/tm-i386aix.h config/i386/tm-i386bsd.h \ config/i386/tm-i386lynx.h config/i386/tm-i386m3.h \ config/i386/tm-i386mk.h config/i386/tm-i386nw.h \ config/i386/tm-i386v.h \ config/i386/tm-i386v4.h config/i386/tm-linux.h \ config/i386/tm-sun386.h \ config/i386/tm-symmetry.h config/i386/xm-go32.h \ config/i386/xm-i386aix.h config/i386/xm-i386bsd.h \ config/i386/xm-i386lynx.h config/i386/xm-i386mach.h \ config/i386/xm-i386m3.h config/i386/xm-i386mk.h \ config/i386/xm-i386sco.h config/i386/xm-i386v.h \ config/i386/xm-i386v32.h config/i386/xm-i386v4.h \ config/i386/xm-linux.h config/i386/xm-sun386.h \ config/i386/xm-symmetry.h config/i960/tm-nindy960.h \ config/i960/tm-vx960.h config/m68k/nm-apollo68b.h \ config/m68k/nm-apollo68v.h config/m68k/nm-delta68.h \ config/m68k/nm-dpx2.h config/m68k/nm-hp300bsd.h \ config/m68k/nm-hp300hpux.h config/m68k/nm-news.h \ config/m68k/nm-m68klynx.h \ config/m68k/nm-sun2.h \ config/m68k/nm-sun3.h config/m68k/tm-3b1.h config/m68k/tm-altos.h \ config/m68k/tm-apollo68b.h \ config/m68k/tm-amix.h \ config/m68k/tm-cisco.h config/m68k/tm-delta68.h \ config/m68k/tm-dpx2.h config/m68k/tm-es1800.h \ config/m68k/tm-hp300bsd.h config/m68k/tm-hp300hpux.h \ config/m68k/tm-isi.h config/m68k/tm-m68klynx.h \ config/m68k/tm-monitor.h \ config/m68k/tm-news.h config/m68k/tm-os68k.h config/m68k/tm-st2000.h \ config/m68k/tm-sun2.h config/m68k/tm-sun2os4.h config/m68k/tm-sun3.h \ config/m68k/tm-sun3os4.h config/m68k/tm-vx68.h config/m68k/xm-3b1.h \ config/m68k/xm-altos.h config/m68k/xm-amix.h \ config/m68k/xm-apollo68b.h config/m68k/xm-apollo68v.h \ config/m68k/xm-delta68.h config/m68k/xm-dpx2.h \ config/m68k/xm-hp300bsd.h config/m68k/xm-hp300hpux.h \ config/m68k/xm-isi.h config/m68k/xm-m68klynx.h \ config/m68k/xm-news.h config/m68k/xm-news1000.h \ config/m68k/xm-sun2.h config/m68k/xm-sun3.h config/m68k/xm-sun3os4.h \ config/m88k/nm-delta88v4.h config/m88k/nm-m88k.h \ config/m88k/tm-delta88.h \ config/m88k/tm-delta88v4.h config/m88k/tm-m88k.h \ config/m88k/xm-delta88.h config/m88k/xm-delta88v4.h \ config/m88k/xm-dgux.h config/m88k/xm-m88k.h \ config/mips/nm-irix3.h \ config/mips/nm-irix4.h config/mips/nm-irix5.h \ config/mips/nm-mips.h config/mips/nm-riscos.h \ config/mips/nm-news-mips.h config/mips/tm-bigmips.h \ config/mips/tm-bigmips64.h \ config/mips/tm-idt.h config/mips/tm-idtl.h \ config/mips/tm-idt64.h config/mips/tm-idtl64.h \ config/mips/tm-irix3.h config/mips/tm-irix5.h \ config/mips/tm-mips.h config/mips/tm-mips64.h \ config/mips/tm-mipsm3.h config/mips/tm-mipsv4.h \ config/mips/xm-irix3.h \ config/mips/xm-irix4.h config/mips/xm-irix5.h \ config/mips/xm-mips.h \ config/mips/xm-mipsm3.h config/mips/xm-mipsv4.h \ config/mips/xm-riscos.h config/mips/xm-news-mips.h \ config/nm-lynx.h config/nm-sysv4.h \ config/none/nm-none.h config/none/tm-none.h config/none/xm-none.h \ config/ns32k/nm-umax.h \ config/ns32k/tm-ns32km3.h \ config/ns32k/tm-merlin.h config/ns32k/tm-umax.h \ config/ns32k/xm-ns32km3.h \ config/ns32k/xm-merlin.h config/ns32k/xm-umax.h \ config/pa/nm-hppab.h \ config/pa/nm-hppah.h config/pa/tm-hppab.h config/pa/tm-hppah.h \ config/pa/xm-hppab.h config/pa/xm-hppah.h config/pa/xm-pa.h \ config/pyr/tm-pyr.h \ config/pyr/xm-pyr.h config/romp/xm-rtbsd.h config/rs6000/nm-rs6000.h \ config/rs6000/tm-rs6000ly.h config/rs6000/xm-rs6000ly.h \ config/rs6000/nm-rs6000ly.h \ config/rs6000/tm-rs6000.h config/rs6000/xm-rs6000.h config/sh/tm-sh.h \ config/sparc/nm-sun4os4.h config/sparc/nm-sparclynx.h \ config/sparc/tm-sparclite.h config/sparc/tm-sparclynx.h \ config/sparc/tm-spc-em.h config/sparc/tm-sun4os4.h \ config/sparc/tm-sun4sol2.h config/sparc/tm-vxsparc.h \ config/sparc/xm-sparclynx.h \ config/sparc/xm-sun4os4.h config/sparc/xm-sun4sol2.h \ config/tahoe/tm-tahoe.h config/tahoe/xm-tahoe.h config/vax/nm-vax.h \ config/vax/tm-vax.h config/vax/xm-vaxbsd.h config/vax/xm-vaxult.h \ config/vax/xm-vaxult2.h config/z8k/tm-z8k.h ALLCONFIG = config/a29k/a29k-kern.mt config/a29k/a29k-udi.mt \ config/a29k/a29k.mt config/a29k/ultra3.mh config/a29k/ultra3.mt \ config/alpha/alpha-osf1.mh config/alpha/alpha-osf1.mt \ config/alpha/alpha-nw.mt \ config/arm/arm.mh config/arm/arm.mt config/convex/convex.mh \ config/convex/convex.mt config/gould/np1.mh config/gould/np1.mt \ config/gould/pn.mh config/gould/pn.mt config/h8300/h8300hms.mt \ config/h8500/h8500hms.mt config/i386/go32.mh config/i386/i386aix.mh \ config/i386/i386aix.mt config/i386/i386aout.mt config/i386/i386bsd.mh \ config/i386/i386bsd.mt config/i386/i386lynx.mh \ config/i386/i386lynx.mt config/i386/i386m3.mh config/i386/i386m3.mt \ config/i386/i386mach.mh config/i386/i386mk.mh config/i386/i386mk.mt \ config/i386/i386nw.mt config/i386/i386sco.mh \ config/i386/i386sco4.mh \ config/i386/i386sol2.mh config/i386/i386sol2.mt config/i386/i386v.mh \ config/i386/i386v.mt config/i386/i386v32.mh config/i386/i386v4.mh \ config/i386/i386v4.mt config/i386/linux.mh config/i386/linux.mt \ config/i386/ncr3000.mh config/i386/ncr3000.mt config/i386/ptx.mh \ config/i386/sun386.mh \ config/i386/sun386.mt config/i386/symmetry.mh config/i386/symmetry.mt \ config/i960/nindy960.mt config/i960/vxworks960.mt config/m68k/3b1.mh \ config/m68k/3b1.mt config/m68k/altos.mh config/m68k/altos.mt \ config/m68k/amix.mh config/m68k/amix.mt config/m68k/apollo68b.mh \ config/m68k/apollo68b.mt \ config/m68k/apollo68v.mh \ config/m68k/cisco.mt config/m68k/delta68.mh \ config/m68k/delta68.mt config/m68k/dpx2.mh config/m68k/dpx2.mt \ config/m68k/es1800.mt config/m68k/hp300bsd.mh \ config/m68k/hp300bsd.mt config/m68k/hp300hpux.mh \ config/m68k/hp300hpux.mt config/m68k/isi.mh config/m68k/isi.mt \ config/m68k/m68klynx.mh config/m68k/m68klynx.mt \ config/m68k/monitor.mt \ config/m68k/news.mh config/m68k/news.mt config/m68k/news1000.mh \ config/m68k/os68k.mt config/m68k/st2000.mt config/m68k/sun2os3.mh \ config/m68k/sun2os3.mt config/m68k/sun2os4.mh config/m68k/sun2os4.mt \ config/m68k/sun3os3.mh config/m68k/sun3os3.mt config/m68k/sun3os4.mh \ config/m68k/sun3os4.mt config/m68k/vxworks68.mt config/m88k/delta88.mh \ config/m88k/delta88.mt config/m88k/delta88v4.mh \ config/m88k/delta88v4.mt config/m88k/m88k.mh config/m88k/m88k.mt \ config/mips/bigmips.mt config/mips/bigmips64.mt \ config/mips/decstation.mh \ config/mips/decstation.mt config/mips/idt.mt config/mips/idtl.mt \ config/mips/idt64.mt config/mips/idtl64.mt \ config/mips/irix3.mh config/mips/irix3.mt config/mips/irix4.mh \ config/mips/irix5.mh config/mips/irix5.mt \ config/mips/littlemips.mh config/mips/littlemips.mt \ config/mips/mipsel64.mt \ config/mips/mipsm3.mh config/mips/mipsm3.mt \ config/mips/mipsv4.mh config/mips/mipsv4.mt \ config/mips/news-mips.mh config/mips/riscos.mh \ config/none/none.mh config/none/none.mt config/ns32k/merlin.mh \ config/ns32k/merlin.mt config/ns32k/ns32km3.mh config/ns32k/ns32km3.mt \ config/ns32k/umax.mh config/ns32k/umax.mt \ config/pa/hppabsd.mh config/pa/hppabsd.mt config/pa/hppahpux.mh \ config/pa/hppahpux.mt config/pyr/pyramid.mh config/pyr/pyramid.mt \ config/romp/rtbsd.mh config/rs6000/rs6000.mh config/rs6000/rs6000.mt \ config/sh/sh.mt config/sparc/sparc-em.mt config/sparc/sparclite.mt \ config/sparc/sparclynx.mh config/sparc/sparclynx.mt \ config/sparc/sun4os4.mh config/sparc/sun4os4.mt \ config/sparc/sun4sol2.mh config/sparc/sun4sol2.mt \ config/sparc/vxsparc.mt config/tahoe/tahoe.mh config/tahoe/tahoe.mt \ config/vax/vax.mt config/vax/vaxbsd.mh config/vax/vaxult.mh \ config/vax/vaxult2.mh config/z8k/z8ksim.mt udip2soc.o: $(srcdir)/29k-share/udi/udip2soc.c $(udiheaders) $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/29k-share/udi/udip2soc.c udi2go32.o: $(srcdir)/29k-share/udi/udi2go32.c $(udiheaders) $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/29k-share/udi/udi2go32.c udr.o: $(srcdir)/29k-share/udi/udr.c $(udiheaders) $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/29k-share/udi/udr.c a29k-pinsn.o: a29k-pinsn.c $(bfd_h) $(dis-asm_h) a29k-tdep.o: a29k-tdep.c $(gdbcmd_h) $(gdbcore_h) $(inferior_h) $(defs_h) a68v-nat.o: a68v-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) alpha-nat.o: alpha-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) target.h alpha-tdep.o: alpha-tdep.c $(defs_h) $(gdbcmd_h) $(gdbcore_h) \ $(inferior_h) $(symtab_h) $(dis-asm.h) altos-xdep.o: altos-xdep.c $(defs_h) $(gdbcore_h) $(inferior_h) annotate.o: annotate.c $(defs_h) annotate.h $(value_h) target.h $(gdbtypes_h) arm-pinsn.o: arm-pinsn.c $(OP_INCLUDE)/arm.h $(defs_h) $(symtab_h) blockframe.o: blockframe.c $(defs_h) $(gdbcore_h) $(inferior_h) \ objfiles.h symfile.h target.h breakpoint.o: breakpoint.c $(defs_h) $(gdbcmd_h) $(gdbcore_h) \ $(inferior_h) language.h target.h thread.h buildsym.o: buildsym.c $(bfd_h) buildsym.h complaints.h $(defs_h) \ objfiles.h symfile.h $(symtab_h) c-lang.o: c-lang.c c-lang.h $(defs_h) $(expression_h) $(gdbtypes_h) \ language.h parser-defs.h $(symtab_h) c-typeprint.o: c-typeprint.c c-lang.h $(defs_h) $(expression_h) \ $(gdbcmd_h) $(gdbcore_h) $(gdbtypes_h) language.h $(symtab_h) target.h \ typeprint.h $(value_h) c-valprint.o: c-valprint.c $(defs_h) $(expression_h) $(gdbtypes_h) \ language.h $(symtab_h) valprint.h $(value_h) ch-lang.o: ch-lang.c ch-lang.h $(defs_h) $(expression_h) $(gdbtypes_h) \ language.h parser-defs.h $(symtab_h) ch-typeprint.o: ch-typeprint.c ch-lang.h $(defs_h) $(expression_h) \ $(gdbcmd_h) $(gdbcore_h) $(gdbtypes_h) language.h $(symtab_h) \ target.h $(value_h) typeprint.h ch-valprint.o: ch-valprint.c $(defs_h) $(expression_h) $(gdbtypes_h) \ language.h $(symtab_h) valprint.h $(value_h) c-lang.h coff-solib.o: coff-solib.c $(defs_h) coffread.o: coffread.c $(bfd_h) $(breakpoint_h) buildsym.h \ complaints.h $(defs_h) $(expression_h) $(gdbtypes_h) objfiles.h \ symfile.h $(symtab_h) gdb-stabs.h stabsread.h command.o: command.c $(defs_h) $(expression_h) $(gdbcmd_h) \ $(gdbtypes_h) $(symtab_h) $(value_h) complaints.o: complaints.c complaints.h $(defs_h) $(gdbcmd_h) convex-pinsn.o: convex-pinsn.c $(OP_INCLUDE)/convex.h $(defs_h) \ $(symtab_h) convex-tdep.o: convex-tdep.c $(wait_h) $(defs_h) $(gdbcmd_h) \ $(gdbcore_h) $(inferior_h) convex-xdep.o: convex-xdep.c $(defs_h) $(gdbcmd_h) $(gdbcore_h) \ $(inferior_h) core-sol2.o: core-sol2.c $(command_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) target.h core-svr4.o: core-svr4.c $(command_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) target.h core.o: core.c $(dis-asm_h) $(defs_h) $(gdbcmd_h) $(gdbcore_h) \ $(inferior_h) target.h language.h coredep.o: coredep.c $(defs_h) $(gdbcore_h) $(value_h) $(inferior_h) corelow.o: corelow.c $(command_h) $(defs_h) $(gdbcore_h) $(inferior_h) \ target.h thread.h cp-valprint.o: cp-valprint.c $(defs_h) $(expression_h) $(gdbcmd_h) \ $(gdbtypes_h) $(symtab_h) $(value_h) dcache.o: dcache.c $(dcache_h) dbxread.o: dbxread.c $(breakpoint_h) buildsym.h $(command_h) \ complaints.h $(defs_h) $(expression_h) gdb-stabs.h $(gdbcore_h) \ $(gdbtypes_h) language.h objfiles.h partial-stab.h stabsread.h \ symfile.h $(symtab_h) target.h dcache.o: dcache.c $(dcache_h) delta68-nat.o: delta68-nat.c $(defs_h) demangle.o: demangle.c $(defs_h) $(gdbcmd_h) dwarfread.o: dwarfread.c $(bfd_h) buildsym.h complaints.h $(defs_h) \ $(expression_h) $(gdbtypes_h) language.h objfiles.h symfile.h \ $(symtab_h) elfread.o: elfread.c $(bfd_h) buildsym.h complaints.h $(defs_h) \ gdb-stabs.h objfiles.h symfile.h $(symtab_h) environ.o: environ.c $(defs_h) environ.h $(gdbcore_h) eval.o: eval.c $(bfd_h) $(defs_h) $(expression_h) $(frame_h) \ $(gdbtypes_h) language.h $(symtab_h) target.h $(value_h) exec.o: exec.c $(defs_h) $(gdbcmd_h) $(gdbcore_h) $(inferior_h) \ target.h language.h expprint.o: expprint.c $(defs_h) $(expression_h) $(gdbtypes_h) \ language.h parser-defs.h $(symtab_h) $(value_h) findvar.o: findvar.c $(defs_h) $(gdbcore_h) $(inferior_h) target.h fork-child.o: fork-child.c $(wait_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) target.h terminal.h thread.h gdbtypes.o: gdbtypes.c $(bfd_h) complaints.h $(defs_h) $(expression_h) \ $(gdbtypes_h) language.h objfiles.h symfile.h $(symtab_h) target.h \ $(value_h) go32-xdep.o: go32-xdep.c gould-pinsn.o: gould-pinsn.c $(OP_INCLUDE)/np1.h $(defs_h) $(frame_h) \ $(gdbcore_h) $(symtab_h) gould-xdep.o: gould-xdep.c $(defs_h) $(gdbcore_h) $(inferior_h) h8300-tdep.o: h8300-tdep.c $(defs_h) $(frame_h) $(symtab_h) h8500-tdep.o: h8500-tdep.c $(bfd_h) $(dis-asm_h) $(defs_h) \ $(expression_h) $(frame_h) $(gdbcmd_h) $(gdbtypes_h) $(symtab_h) \ $(value_h) hp300ux-nat.o: hp300ux-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) hppa-pinsn.o: hppa-pinsn.c $(bfd_h) $(dis-asm_h) $(defs_h) hppa-tdep.o: hppa-tdep.c $(wait_h) $(defs_h) $(gdbcmd_h) $(gdbcore_h) \ $(inferior_h) objfiles.h symfile.h target.h hppab-nat.o: hppab-nat.c $(bfd_h) $(defs_h) $(inferior_h) target.h hppah-nat.o: hppah-nat.c $(bfd_h) $(defs_h) $(inferior_h) target.h i386-pinsn.o: i386-pinsn.c $(bfd_h) $(dis-asm_h) $(defs_h) i386-tdep.o: i386-tdep.c $(defs_h) $(gdbcore_h) $(inferior_h) target.h i386b-nat.o: i386b-nat.c $(defs_h) i386ly-nat.o: i386ly-nat.c $(defs_h) $(frame_h) $(inferior_h) target.h i386ly-tdep.o: i386ly-tdep.c $(defs_h) $(inferior_h) target.h i386mach-nat.o: i386mach-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) i386v-nat.o: i386v-nat.c $(floatformat_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) language.h target.h i386v4-nat.o: i386v4-nat.c $(defs_h) i387-tdep.o: i387-tdep.c $(floatformat_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) language.h i960-pinsn.o: i960-pinsn.c $(bfd_h) $(dis-asm_h) $(defs_h) i960-tdep.o: i960-tdep.c $(floatformat_h) $(defs_h) $(expression_h) \ $(frame_h) $(gdbtypes_h) $(symtab_h) $(value_h) infcmd.o: infcmd.c $(defs_h) environ.h $(gdbcmd_h) $(gdbcore_h) \ $(inferior_h) target.h language.h inflow.o: inflow.c $(bfd_h) $(command_h) $(defs_h) $(inferior_h) \ signals.h target.h terminal.h thread.h infptrace.o: infptrace.c $(defs_h) $(gdbcore_h) $(inferior_h) target.h infrun.o: infrun.c $(wait_h) $(defs_h) $(gdbcmd_h) $(gdbcore_h) \ $(inferior_h) target.h thread.h inftarg.o: inftarg.c $(wait_h) $(defs_h) $(gdbcore_h) $(inferior_h) \ target.h terminal.h $(command_h) irix4-nat.o: irix4-nat.c $(defs_h) $(inferior_h) isi-xdep.o: isi-xdep.c language.o: language.c $(bfd_h) $(defs_h) $(expression_h) $(frame_h) \ $(gdbcmd_h) $(gdbtypes_h) language.h parser-defs.h $(symtab_h) \ target.h $(value_h) m2-lang.o: m2-lang.c $(defs_h) $(expression_h) $(gdbtypes_h) \ language.h m2-lang.h parser-defs.h $(symtab_h) m2-typeprint.o: m2-typeprint.c $(defs_h) $(expression_h) $(gdbcmd_h) \ $(gdbcore_h) $(gdbtypes_h) language.h m2-lang.h $(symtab_h) target.h \ $(value_h) m2-valprint.o: m2-valprint.c $(defs_h) $(gdbtypes_h) $(symtab_h) \ valprint.h m68k-pinsn.o: m68k-pinsn.c $(bfd_h) $(dis-asm_h) $(defs_h) m68k-tdep.o: m68k-tdep.c $(defs_h) $(frame_h) $(symtab_h) m68kly-nat.o: m68kly-nat.c $(defs_h) $(frame_h) $(inferior_h) target.h m88k-nat.o: m88k-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) m88k-pinsn.o: m88k-pinsn.c $(defs_h) $(symtab_h) m88k-tdep.o: m88k-tdep.c $(defs_h) $(gdbcore_h) $(inferior_h) top.o: top.c top.h $(bfd_h) $(getopt_h) $(readline_headers) call-cmds.h \ $(defs_h) $(gdbcmd_h) $(inferior_h) language.h signals.h \ $(remote_utils_h) main.o: main.c top.h $(defs_h) maint.o: maint.c $(defs_h) $(gdbcmd_h) $(gdbtypes_h) $(symtab_h) language.h \ $(expression_h) mdebugread.o: mdebugread.c buildsym.h complaints.h $(bfd_h) $(defs_h) \ $(expression_h) gdb-stabs.h $(gdbcore_h) $(gdbtypes_h) language.h \ objfiles.h partial-stab.h stabsread.h symfile.h $(symtab_h) os9kread.o: os9kread.c buildsym.h complaints.h $(bfd_h) $(def_h) \ $(expression_h) gdb-stabs.h $(gdbcore_h) $(gdbtypes_h) language.h \ objfiles.h partial-stab.h stabsread.h symfile.h $(symtab_h) mem-break.o: mem-break.c $(defs_h) minsyms.o: minsyms.c $(bfd_h) $(defs_h) objfiles.h symfile.h \ $(symtab_h) mips-nat.o: mips-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) mips-pinsn.o: mips-pinsn.c $(bfd_h) $(dis-asm_h) $(defs_h) mips-tdep.o: mips-tdep.c $(defs_h) $(gdbcmd_h) $(gdbcore_h) \ $(inferior_h) language.h objfiles.h symfile.h mipsread.o: mipsread.c buildsym.h complaints.h $(bfd_h) $(defs_h) \ $(expression_h) gdb-stabs.h $(gdbcore_h) $(gdbtypes_h) language.h \ objfiles.h partial-stab.h stabsread.h symfile.h $(symtab_h) mipsv4-nat.o: mipsv4-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) target.h news-xdep.o: news-xdep.c Onindy.o: nindy-share/Onindy.c $(wait_h) nindy-share/block_io.h \ nindy-share/env.h $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/nindy-share/Onindy.c nindy.o: nindy-share/nindy.c $(wait_h) nindy-share/block_io.h \ nindy-share/env.h $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/nindy-share/nindy.c nlmread.o: nlmread.c $(bfd_h) buildsym.h complaints.h $(defs_h) \ gdb-stabs.h objfiles.h symfile.h $(symtab_h) stabsread.h ttyflush.o: nindy-share/ttyflush.c $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/nindy-share/ttyflush.c nindy-tdep.o: nindy-tdep.c $(defs_h) $(frame_h) $(symtab_h) ns32k-pinsn.o: ns32k-pinsn.c $(defs_h) $(gdbcore_h) ns32k-opcode.h \ $(symtab_h) objfiles.o: objfiles.c $(bfd_h) $(defs_h) objfiles.h symfile.h \ $(symtab_h) osfsolib.o: osfsolib.c $(command_h) $(defs_h) $(gdbcore_h) $(inferior_h) \ objfiles.h regex.h symfile.h target.h language.h somread.o: somread.c $(bfd_h) buildsym.h complaints.h $(defs_h) \ gdb-stabs.h objfiles.h symfile.h $(symtab_h) parse.o: parse.c $(command_h) $(defs_h) $(expression_h) $(frame_h) \ $(gdbtypes_h) language.h parser-defs.h $(symtab_h) $(value_h) printcmd.o: printcmd.c $(breakpoint_h) $(defs_h) $(expression_h) \ $(gdbcmd_h) $(gdbcore_h) $(gdbtypes_h) language.h objfiles.h symfile.h \ $(symtab_h) target.h procfs.o: procfs.c $(command_h) $(defs_h) $(gdbcore_h) $(inferior_h) \ target.h pyr-pinsn.o: pyr-pinsn.c $(OP_INCLUDE)/pyr.h $(defs_h) $(gdbcore_h) \ $(symtab_h) pyr-tdep.o: pyr-tdep.c $(defs_h) pyr-xdep.o: pyr-xdep.c $(defs_h) $(gdbcore_h) $(inferior_h) regex.o: regex.c regex.h remote-adapt.o: remote-adapt.c $(wait_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) target.h terminal.h remote-bug.o: remote-bug.c $(wait_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) target.h terminal.h $(remote_utils_h) remote-eb.o: remote-eb.c $(wait_h) $(srcdir)/config/a29k/tm-a29k.h \ $(defs_h) $(gdbcore_h) $(inferior_h) symfile.h target.h terminal.h remote-es.o: remote-es.c $(bfd_h) $(wait_h) $(command_h) $(defs_h) \ $(inferior_h) $(remote_utils_h) terminal.h remote-hms.o: remote-hms.c $(wait_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) serial.h target.h terminal.h remote-mips.o: remote-mips.c $(wait_h) $(defs_h) $(gdbcmd_h) \ $(gdbcore_h) $(inferior_h) serial.h symfile.h target.h remote-mm.o: remote-mm.c $(bfd_h) $(wait_h) $(defs_h) $(inferior_h) \ minimon.h target.h terminal.h remote-mon.o: remote-mon.c $(wait_h) $(command_h) $(defs_h) \ $(gdbcore_h) monitor.h serial.h target.h remote-nindy.o: remote-nindy.c $(floatformat_h) $(wait_h) $(command_h) \ $(defs_h) $(gdbcore_h) $(inferior_h) \ nindy-share/env.h nindy-share/stop.h $(remote_utils_h) \ symfile.h remote-sim.o: remote-sim.c $(wait_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) target.h terminal.h remote-st.o: remote-st.c $(wait_h) $(defs_h) $(gdbcore_h) serial.h \ target.h remote-udi.o: remote-udi.c $(bfd_h) $(wait_h) $(defs_h) $(gdbcmd_h) \ $(inferior_h) target.h terminal.h $(udiheaders) remote-vx.o: remote-vx.c $(wait_h) complaints.h $(defs_h) $(gdbcmd_h) \ $(gdbcore_h) $(inferior_h) target.h vx-share/dbgRpcLib.h \ vx-share/ptrace.h vx-share/xdr_ld.h vx-share/xdr_ptrace.h \ vx-share/xdr_rdb.h remote-z8k.o: remote-z8k.c $(wait_h) $(srcdir)/../sim/z8k/sim.h \ $(defs_h) $(gdbcore_h) $(inferior_h) target.h terminal.h remote-utils.o: remote-utils.c $(defs_h) $(gdbcmd_h) $(gdbcore_h) \ $(inferior_h) $(remote_utils_h) remote.o: remote.c $(bfd_h) $(wait_h) $(defs_h) $(gdbcmd_h) \ $(inferior_h) $(remote_utils_h) symfile.h terminal.h rs6000-nat.o: rs6000-nat.c $(bfd_h) $(defs_h) $(inferior_h) target.h rs6000-pinsn.o: rs6000-pinsn.c $(OP_INCLUDE)/rs6k.h $(defs_h) rs6000-tdep.o: rs6000-tdep.c $(defs_h) $(gdbcore_h) $(inferior_h) \ target.h xcoffsolib.h ser-go32.o: ser-go32.c $(defs_h) serial.h ser-tcp.o: ser-tcp.c $(defs_h) serial.h signals.h ser-unix.o: ser-unix.c $(defs_h) serial.h serial.o: serial.c $(defs_h) serial.h sh-tdep.o: sh-tdep.c $(bfd_h) $(dis-asm_h) \ $(srcdir)/../opcodes/sh-opc.h $(defs_h) $(expression_h) $(frame_h) \ $(gdbcmd_h) $(gdbtypes_h) $(symtab_h) $(value_h) solib.o: solib.c $(command_h) $(defs_h) $(gdbcore_h) $(inferior_h) \ objfiles.h regex.h symfile.h target.h source.o: source.c $(defs_h) $(expression_h) $(frame_h) $(gdbcmd_h) \ $(gdbcore_h) language.h objfiles.h regex.h symfile.h $(symtab_h) sparc-nat.o: sparc-nat.c $(bfd_h) $(defs_h) $(inferior_h) target.h sparc-pinsn.o: sparc-pinsn.c $(bfd_h) $(dis-asm_h) $(defs_h) sparc-tdep.o: sparc-tdep.c $(floatformat_h) $(defs_h) $(gdbcore_h) \ $(inferior_h) objfiles.h symfile.h target.h sparcl-tdep.o: sparcl-tdep.c $(defs_h) $(gdbcore_h) target.h stabsread.o: stabsread.c $(bfd_h) $(INCLUDE_DIR)/aout/stab.def \ $(INCLUDE_DIR)/aout/stab_gnu.h buildsym.h complaints.h $(defs_h) \ $(gdbtypes_h) objfiles.h stabsread.h symfile.h $(symtab_h) stack.o: stack.c $(defs_h) $(gdbcmd_h) $(gdbcore_h) $(inferior_h) \ language.h target.h sun3-nat.o: sun3-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) sun386-nat.o: sun386-nat.c $(defs_h) $(inferior_h) $(gdbcore_h) symfile.o: symfile.c $(breakpoint_h) complaints.h $(defs_h) \ $(expression_h) $(gdbcmd_h) $(gdbcore_h) $(gdbtypes_h) \ language.h objfiles.h symfile.h $(symtab_h) target.h symm-tdep.o: symm-tdep.c $(defs_h) $(gdbcore_h) $(inferior_h) symm-nat.o: symm-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) symmisc.o: symmisc.c $(bfd_h) $(breakpoint_h) $(command_h) $(defs_h) \ $(expression_h) $(gdbtypes_h) language.h objfiles.h symfile.h \ $(symtab_h) symtab.o: symtab.c call-cmds.h $(defs_h) $(expression_h) $(frame_h) \ $(gdbcmd_h) $(gdbcore_h) $(gdbtypes_h) language.h objfiles.h \ regex.h symfile.h $(symtab_h) target.h $(value_h) tahoe-pinsn.o: tahoe-pinsn.c $(OP_INCLUDE)/tahoe.h $(defs_h) \ $(symtab_h) target.o: target.c $(bfd_h) $(defs_h) $(gdbcmd_h) $(inferior_h) \ objfiles.h symfile.h target.h thread.o: thread.c $(defs_h) thread.h $(gdbcmd_h) typeprint.o: typeprint.c $(defs_h) $(expression_h) $(gdbcmd_h) \ $(gdbcore_h) $(gdbtypes_h) language.h $(symtab_h) target.h \ $(value_h) ultra3-nat.o: ultra3-nat.c $(defs_h) $(gdbcore_h) $(inferior_h) ultra3-xdep.o: ultra3-xdep.c $(defs_h) $(gdbcore_h) $(inferior_h) umax-xdep.o: umax-xdep.c $(defs_h) $(gdbcore_h) $(inferior_h) utils.o: utils.c $(bfd_h) $(defs_h) $(expression_h) $(gdbcmd_h) \ language.h signals.h target.h terminal.h $(readline_headers) valarith.o: valarith.c $(bfd_h) $(defs_h) $(expression_h) \ $(gdbtypes_h) language.h $(symtab_h) target.h $(value_h) valops.o: valops.c $(defs_h) $(gdbcore_h) $(inferior_h) target.h valprint.o: valprint.c $(defs_h) $(expression_h) $(gdbcmd_h) \ $(gdbcore_h) $(gdbtypes_h) language.h $(symtab_h) target.h \ $(value_h) values.o: values.c $(defs_h) $(expression_h) $(frame_h) $(gdbcmd_h) \ $(gdbcore_h) $(gdbtypes_h) $(symtab_h) target.h $(value_h) vax-pinsn.o: vax-pinsn.c $(OP_INCLUDE)/vax.h $(defs_h) $(symtab_h) xdr_ld.o: vx-share/xdr_ld.c $(defs_h) vx-share/vxTypes.h \ vx-share/vxWorks.h vx-share/xdr_ld.h $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/vx-share/xdr_ld.c xdr_ptrace.o: vx-share/xdr_ptrace.c $(defs_h) vx-share/vxTypes.h \ vx-share/vxWorks.h vx-share/xdr_ptrace.h $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/vx-share/xdr_ptrace.c xdr_rdb.o: vx-share/xdr_rdb.c $(defs_h) vx-share/vxTypes.h \ vx-share/vxWorks.h vx-share/xdr_rdb.h $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/vx-share/xdr_rdb.c xcoffexec.o: xcoffexec.c $(BFD_SRC)/libbfd.h $(defs_h) $(gdbcmd_h) \ $(gdbcore_h) $(inferior_h) objfiles.h symfile.h target.h xcoffsolib.h xcoffread.o: xcoffread.c $(bfd_h) $(INCLUDE_DIR)/aout/stab.def \ $(INCLUDE_DIR)/aout/stab_gnu.h $(INCLUDE_DIR)/coff/internal.h \ $(INCLUDE_DIR)/coff/rs6000.h $(BFD_SRC)/libcoff.h buildsym.h \ complaints.h $(defs_h) $(gdbtypes_h) objfiles.h stabsread.h symfile.h \ $(symtab_h) xcoffsolib.o: xcoffsolib.c $(bfd_h) $(defs_h) xcoffsolib.h z8k-tdep.o: z8k-tdep.c $(bfd_h) $(dis-asm_h) $(defs_h) $(frame_h) \ $(gdbcmd_h) $(gdbtypes_h) $(symtab_h) c-exp.tab.o: c-exp.tab.c c-lang.h $(defs_h) $(expression_h) \ $(gdbtypes_h) language.h parser-defs.h $(symtab_h) $(value_h) \ $(bfd_h) objfiles.h symfile.h ch-exp.tab.o: ch-exp.tab.c ch-lang.h $(defs_h) $(expression_h) \ $(gdbtypes_h) language.h parser-defs.h $(symtab_h) $(value_h) \ $(bfd_h) objfiles.h symfile.h m2-exp.tab.o: m2-exp.tab.c $(defs_h) $(expression_h) $(gdbtypes_h) \ language.h m2-lang.h parser-defs.h $(symtab_h) $(value_h) \ $(bfd_h) objfiles.h symfile.h ### end of the gdb Makefile.in. gdb-4.13/gdb/NEWS 666 34562 1752 120643 5623241751 12043 0ustar fnfcygnus What has changed since GDB-3.5? (Organized release by release) *** Changes in GDB-4.13: * New "complete" command This lists all the possible completions for the rest of the line, if it were to be given as a command itself. This is intended for use by emacs. * Trailing space optional in prompt "set prompt" no longer adds a space for you after the prompt you set. This allows you to set a prompt which ends in a space or one that does not. * Breakpoint hit counts "info break" now displays a count of the number of times the breakpoint has been hit. This is especially useful in conjunction with "ignore"; you can ignore a large number of breakpoint hits, look at the breakpoint info to see how many times the breakpoint was hit, then run again, ignoring one less than that number, and this will get you quickly to the last hit of that breakpoint. * Ability to stop printing at NULL character "set print null-stop" will cause GDB to stop printing the characters of an array when the first NULL is encountered. This is useful when large arrays actually contain only short strings. * Shared library breakpoints In SunOS 4.x, SVR4, and Alpha OSF/1 configurations, you can now set breakpoints in shared libraries before the executable is run. * Hardware watchpoints There is a new hardware breakpoint for the watch command for sparclite targets. See gdb/sparclite/hw_breakpoint.note. Hardware watchpoints are also now supported under Linux. * Annotations Annotations have been added. These are for use with graphical interfaces, and are still experimental. Currently only gdba.el uses these. * Improved Irix 5 support GDB now works properly with Irix 5.2. * Improved HPPA support GDB now works properly with the latest GCC and GAS. * New native configurations Sequent PTX4 i[34]86-sequent-ptx4 HPPA running OSF/1 hppa*-*-osf* Atari TT running SVR4 m68*-*-sysv4* RS/6000 LynxOS rs6000-*-lynxos* * New targets OS/9000 i[34]86-*-os9k MIPS R4000 mips64*{,el}-*-{ecoff,elf} Sparc64 sparc64-*-* * Hitachi SH7000 and E7000-PC ICE support There is now support for communicating with the Hitachi E7000-PC ICE. This is available automatically when GDB is configured for the SH. * Fixes As usual, a variety of small fixes and improvements, both generic and configuration-specific. See the ChangeLog for more detail. *** Changes in GDB-4.12: * Irix 5 is now supported * HPPA support GDB-4.12 on the HPPA has a number of changes which make it unable to debug the output from the currently released versions of GCC and GAS (GCC 2.5.8 and GAS-2.2 or PAGAS-1.36). Until the next major release of GCC and GAS, versions of these tools designed to work with GDB-4.12 can be retrieved via anonymous ftp from jaguar.cs.utah.edu:/dist. *** Changes in GDB-4.11: * User visible changes: * Remote Debugging The "set remotedebug" option is now consistent between the mips remote target, remote targets using the gdb-specific protocol, UDI (AMD's debug protocol for the 29k) and the 88k bug monitor. It is now an integer specifying a debug level (normally 0 or 1, but 2 means more debugging info for the mips target). * DEC Alpha native support GDB now works on the DEC Alpha. GCC 2.4.5 does not produce usable debug info, but GDB works fairly well with the DEC compiler and should work with a future GCC release. See the README file for a few Alpha-specific notes. * Preliminary thread implementation GDB now has preliminary thread support for both SGI/Irix and LynxOS. * LynxOS native and target support for 386 This release has been hosted on LynxOS 2.2, and also can be configured to remotely debug programs running under LynxOS (see gdb/gdbserver/README for details). * Improvements in C++ mangling/demangling. This release has much better g++ debugging, specifically in name mangling/demangling, virtual function calls, print virtual table, call methods, ...etc. *** Changes in GDB-4.10: * User visible changes: Remote debugging using the GDB-specific (`target remote') protocol now supports the `load' command. This is only useful if you have some other way of getting the stub to the target system, and you can put it somewhere in memory where it won't get clobbered by the download. Filename completion now works. When run under emacs mode, the "info line" command now causes the arrow to point to the line specified. Also, "info line" prints addresses in symbolic form (as well as hex). All vxworks based targets now support a user settable option, called vxworks-timeout. This option represents the number of seconds gdb should wait for responses to rpc's. You might want to use this if your vxworks target is, perhaps, a slow software simulator or happens to be on the far side of a thin network line. * DEC alpha support This release contains support for using a DEC alpha as a GDB host for cross debugging. Native alpha debugging is not supported yet. *** Changes in GDB-4.9: * Testsuite This is the first GDB release which is accompanied by a matching testsuite. The testsuite requires installation of dejagnu, which should be available via ftp from most sites that carry GNU software. * C++ demangling 'Cfront' style demangling has had its name changed to 'ARM' style, to emphasize that it was written from the specifications in the C++ Annotated Reference Manual, not necessarily to be compatible with AT&T cfront. Despite disclaimers, it still generated too much confusion with users attempting to use gdb with AT&T cfront. * Simulators GDB now uses a standard remote interface to a simulator library. So far, the library contains simulators for the Zilog Z8001/2, the Hitachi H8/300, H8/500 and Super-H. * New targets supported H8/300 simulator h8300-hitachi-hms or h8300hms H8/500 simulator h8500-hitachi-hms or h8500hms SH simulator sh-hitachi-hms or sh Z8000 simulator z8k-zilog-none or z8ksim IDT MIPS board over serial line mips-idt-ecoff Cross-debugging to GO32 targets is supported. It requires a custom version of the i386-stub.c module which is integrated with the GO32 memory extender. * New remote protocols MIPS remote debugging protocol. * New source languages supported This version includes preliminary support for Chill, a Pascal like language used by telecommunications companies. Chill support is also being integrated into the GNU compiler, but we don't know when it will be publically available. *** Changes in GDB-4.8: * HP Precision Architecture supported GDB now supports HP PA-RISC machines running HPUX. A preliminary version of this support was available as a set of patches from the University of Utah. GDB does not support debugging of programs compiled with the HP compiler, because HP will not document their file format. Instead, you must use GCC (version 2.3.2 or later) and PA-GAS (as available from jaguar.cs.utah.edu:/dist/pa-gas.u4.tar.Z). Many problems in the preliminary version have been fixed. * Faster and better demangling We have improved template demangling and fixed numerous bugs in the GNU style demangler. It can now handle type modifiers such as `static' or `const'. Wide character types (wchar_t) are now supported. Demangling of each symbol is now only done once, and is cached when the symbol table for a file is read in. This results in a small increase in memory usage for C programs, a moderate increase in memory usage for C++ programs, and a fantastic speedup in symbol lookups. `Cfront' style demangling still doesn't work with AT&T cfront. It was written from the specifications in the Annotated Reference Manual, which AT&T's compiler does not actually implement. * G++ multiple inheritance compiler problem In the 2.3.2 release of gcc/g++, how the compiler resolves multiple inheritance lattices was reworked to properly discover ambiguities. We recently found an example which causes this new algorithm to fail in a very subtle way, producing bad debug information for those classes. The file 'gcc.patch' (in this directory) can be applied to gcc to circumvent the problem. A future GCC release will contain a complete fix. The previous G++ debug info problem (mentioned below for the gdb-4.7 release) is fixed in gcc version 2.3.2. * Improved configure script The `configure' script will now attempt to guess your system type if you don't supply a host system type. The old scheme of supplying a host system triplet is preferable over using this. All the magic is done in the new `config.guess' script. Examine it for details. We have also brought our configure script much more in line with the FSF's version. It now supports the --with-xxx options. In particular, `--with-minimal-bfd' can be used to make the GDB binary image smaller. The resulting GDB will not be able to read arbitrary object file formats -- only the format ``expected'' to be used on the configured target system. We hope to make this the default in a future release. * Documentation improvements There's new internal documentation on how to modify GDB, and how to produce clean changes to the code. We implore people to read it before submitting changes. The GDB manual uses new, sexy Texinfo conditionals, rather than arcane M4 macros. The new texinfo.tex is provided in this release. Pre-built `info' files are also provided. To build `info' files from scratch, you will need the latest `makeinfo' release, which will be available in a future texinfo-X.Y release. *NOTE* The new texinfo.tex can cause old versions of TeX to hang. We're not sure exactly which versions have this problem, but it has been seen in 3.0. We highly recommend upgrading to TeX version 3.141 or better. If that isn't possible, there is a patch in `texinfo/tex3patch' that will modify `texinfo/texinfo.tex' to work around this problem. * New features GDB now supports array constants that can be used in expressions typed in by the user. The syntax is `{element, element, ...}'. Ie: you can now type `print {1, 2, 3}', and it will build up an array in memory malloc'd in the target program. The new directory `gdb/sparclite' contains a program that demonstrates how the sparc-stub.c remote stub runs on a Fujitsu SPARClite processor. * New native hosts supported HP/PA-RISC under HPUX using GNU tools hppa1.1-hp-hpux 386 CPUs running SCO Unix 3.2v4 i386-unknown-sco3.2v4 * New targets supported AMD 29k family via UDI a29k-amd-udi or udi29k * New file formats supported BFD now supports reading HP/PA-RISC executables (SOM file format?), HPUX core files, and SCO 3.2v2 core files. * Major bug fixes Attaching to processes now works again; thanks for the many bug reports. We have also stomped on a bunch of core dumps caused by printf_filtered("%s") problems. We eliminated a copyright problem on the rpc and ptrace header files for VxWorks, which was discovered at the last minute during the 4.7 release. You should now be able to build a VxWorks GDB. You can now interrupt gdb while an attached process is running. This will cause the attached process to stop, and give control back to GDB. We fixed problems caused by using too many file descriptors for reading symbols from object files and libraries. This was especially a problem for programs that used many (~100) shared libraries. The `step' command now only enters a subroutine if there is line number information for the subroutine. Otherwise it acts like the `next' command. Previously, `step' would enter subroutines if there was any debugging information about the routine. This avoids problems when using `cc -g1' on MIPS machines. * Internal improvements GDB's internal interfaces have been improved to make it easier to support debugging of multiple languages in the future. GDB now uses a common structure for symbol information internally. Minimal symbols (derived from linkage symbols in object files), partial symbols (from a quick scan of debug information), and full symbols contain a common subset of information, making it easier to write shared code that handles any of them. * New command line options We now accept --silent as an alias for --quiet. * Mmalloc licensing The memory-mapped-malloc library is now licensed under the GNU Library General Public License. *** Changes in GDB-4.7: * Host/native/target split GDB has had some major internal surgery to untangle the support for hosts and remote targets. Now, when you configure GDB for a remote target, it will no longer load in all of the support for debugging local programs on the host. When fully completed and tested, this will ensure that arbitrary host/target combinations are possible. The primary conceptual shift is to separate the non-portable code in GDB into three categories. Host specific code is required any time GDB is compiled on that host, regardless of the target. Target specific code relates to the peculiarities of the target, but can be compiled on any host. Native specific code is everything else: it can only be built when the host and target are the same system. Child process handling and core file support are two common `native' examples. GDB's use of /proc for controlling Unix child processes is now cleaner. It has been split out into a single module under the `target_ops' vector, plus two native-dependent functions for each system that uses /proc. * New hosts supported HP/Apollo 68k (under the BSD domain) m68k-apollo-bsd or apollo68bsd 386 CPUs running various BSD ports i386-unknown-bsd or 386bsd 386 CPUs running SCO Unix i386-unknown-scosysv322 or i386sco * New targets supported Fujitsu SPARClite sparclite-fujitsu-none or sparclite 68030 and CPU32 m68030-*-*, m68332-*-* * New native hosts supported 386 CPUs running various BSD ports i386-unknown-bsd or 386bsd (386bsd is not well tested yet) 386 CPUs running SCO Unix i386-unknown-scosysv322 or sco * New file formats supported BFD now supports COFF files for the Zilog Z8000 microprocessor. It supports reading of `a.out.adobe' object files, which are an a.out format extended with minimal information about multiple sections. * New commands `show copying' is the same as the old `info copying'. `show warranty' is the same as `info warrantee'. These were renamed for consistency. The old commands continue to work. `info handle' is a new alias for `info signals'. You can now define pre-command hooks, which attach arbitrary command scripts to any command. The commands in the hook will be executed prior to the user's command. You can also create a hook which will be executed whenever the program stops. See gdb.texinfo. * C++ improvements We now deal with Cfront style name mangling, and can even extract type info from mangled symbols. GDB can automatically figure out which symbol mangling style your C++ compiler uses. Calling of methods and virtual functions has been improved as well. * Major bug fixes The crash that occured when debugging Sun Ansi-C compiled binaries is fixed. This was due to mishandling of the extra N_SO stabs output by the compiler. We also finally got Ultrix 4.2 running in house, and fixed core file support, with help from a dozen people on the net. John M. Farrell discovered that the reason that single-stepping was so slow on all of the Mips based platforms (primarily SGI and DEC) was that we were trying to demangle and lookup a symbol used for internal purposes on every instruction that was being stepped through. Changing the name of that symbol so that it couldn't be mistaken for a C++ mangled symbol sped things up a great deal. Rich Pixley sped up symbol lookups in general by getting much smarter about when C++ symbol mangling is necessary. This should make symbol completion (TAB on the command line) much faster. It's not as fast as we'd like, but it's significantly faster than gdb-4.6. * AMD 29k support A new user controllable variable 'call_scratch_address' can specify the location of a scratch area to be used when GDB calls a function in the target. This is necessary because the usual method of putting the scratch area on the stack does not work in systems that have separate instruction and data spaces. We integrated changes to support the 29k UDI (Universal Debugger Interface), but discovered at the last minute that we didn't have all of the appropriate copyright paperwork. We are working with AMD to resolve this, and hope to have it available soon. * Remote interfaces We have sped up the remote serial line protocol, especially for targets with lots of registers. It now supports a new `expedited status' ('T') message which can be used in place of the existing 'S' status message. This allows the remote stub to send only the registers that GDB needs to make a quick decision about single-stepping or conditional breakpoints, eliminating the need to fetch the entire register set for each instruction being stepped through. The GDB remote serial protocol now implements a write-through cache for registers, only re-reading the registers if the target has run. There is also a new remote serial stub for SPARC processors. You can find it in gdb-4.7/gdb/sparc-stub.c. This was written to support the Fujitsu SPARClite processor, but will run on any stand-alone SPARC processor with a serial port. * Configuration Configure.in files have become much easier to read and modify. A new `table driven' format makes it more obvious what configurations are supported, and what files each one uses. * Library changes There is a new opcodes library which will eventually contain all of the disassembly routines and opcode tables. At present, it only contains Sparc and Z8000 routines. This will allow the assembler, debugger, and disassembler (binutils/objdump) to share these routines. The libiberty library is now copylefted under the GNU Library General Public License. This allows more liberal use, and was done so libg++ can use it. This makes no difference to GDB, since the Library License grants all the rights from the General Public License. * Documentation The file gdb-4.7/gdb/doc/stabs.texinfo is a (relatively) complete reference to the stabs symbol info used by the debugger. It is (as far as we know) the only published document on this fascinating topic. We encourage you to read it, compare it to the stabs information on your system, and send improvements on the document in general (to bug-gdb@prep.ai.mit.edu). And, of course, many bugs have been fixed. *** Changes in GDB-4.6: * Better support for C++ function names GDB now accepts as input the "demangled form" of C++ overloaded function names and member function names, and can do command completion on such names (using TAB, TAB-TAB, and ESC-?). The names have to be quoted with a pair of single quotes. Examples are 'func (int, long)' and 'obj::operator==(obj&)'. Make use of command completion, it is your friend. GDB also now accepts a variety of C++ mangled symbol formats. They are the GNU g++ style, the Cfront (ARM) style, and the Lucid (lcc) style. You can tell GDB which format to use by doing a 'set demangle-style {gnu, lucid, cfront, auto}'. 'gnu' is the default. Do a 'set demangle-style foo' for the list of formats. * G++ symbol mangling problem Recent versions of gcc have a bug in how they emit debugging information for C++ methods (when using dbx-style stabs). The file 'gcc.patch' (in this directory) can be applied to gcc to fix the problem. Alternatively, if you can't fix gcc, you can #define GCC_MANGLE_BUG when compling gdb/symtab.c. The usual symptom is difficulty with setting breakpoints on methods. GDB complains about the method being non-existent. (We believe that version 2.2.2 of GCC has this problem.) * New 'maintenance' command All of the commands related to hacking GDB internals have been moved out of the main command set, and now live behind the 'maintenance' command. This can also be abbreviated as 'mt'. The following changes were made: dump-me -> maintenance dump-me info all-breakpoints -> maintenance info breakpoints printmsyms -> maintenance print msyms printobjfiles -> maintenance print objfiles printpsyms -> maintenance print psymbols printsyms -> maintenance print symbols The following commands are new: maintenance demangle Call internal GDB demangler routine to demangle a C++ link name and prints the result. maintenance print type Print a type chain for a given symbol * Change to .gdbinit file processing We now read the $HOME/.gdbinit file before processing the argv arguments (e.g. reading symbol files or core files). This allows global parameters to be set, which will apply during the symbol reading. The ./.gdbinit is still read after argv processing. * New hosts supported Solaris-2.0 !!! sparc-sun-solaris2 or sun4sol2 Linux support i386-unknown-linux or linux We are also including code to support the HP/PA running BSD and HPUX. This is almost guaranteed not to work, as we didn't have time to test or build it for this release. We are including it so that the more adventurous (or masochistic) of you can play with it. We also had major problems with the fact that the compiler that we got from HP doesn't support the -g option. It costs extra. * New targets supported Hitachi H8/300 h8300-hitachi-hms or h8300hms * More smarts about finding #include files GDB now remembers the compilation directory for all include files, and for all files from which C is generated (like yacc and lex sources). This greatly improves GDB's ability to find yacc/lex sources, and include files, especially if you are debugging your program from a directory different from the one that contains your sources. We also fixed a bug which caused difficulty with listing and setting breakpoints in include files which contain C code. (In the past, you had to try twice in order to list an include file that you hadn't looked at before.) * Interesting infernals change GDB now deals with arbitrary numbers of sections, where the symbols for each section must be relocated relative to that section's landing place in the target's address space. This work was needed to support ELF with embedded stabs used by Solaris-2.0. * Bug fixes (of course!) There have been loads of fixes for the following things: mips, rs6000, 29k/udi, m68k, g++, type handling, elf/dwarf, m88k, i960, stabs, DOS(GO32), procfs, etc... See the ChangeLog for details. *** Changes in GDB-4.5: * New machines supported (host and target) IBM RS6000 running AIX rs6000-ibm-aix or rs6000 SGI Irix-4.x mips-sgi-irix4 or iris4 * New malloc package GDB now uses a new memory manager called mmalloc, based on gmalloc. Mmalloc is capable of handling mutiple heaps of memory. It is also capable of saving a heap to a file, and then mapping it back in later. This can be used to greatly speedup the startup of GDB by using a pre-parsed symbol table which lives in a mmalloc managed heap. For more details, please read mmalloc/mmalloc.texi. * info proc The 'info proc' command (SVR4 only) has been enhanced quite a bit. See 'help info proc' for details. * MIPS ecoff symbol table format The code that reads MIPS symbol table format is now supported on all hosts. Thanks to MIPS for releasing the sym.h and symconst.h files to make this possible. * File name changes for MS-DOS Many files in the config directories have been renamed to make it easier to support GDB on MS-DOSe systems (which have very restrictive file name conventions :-( ). MS-DOSe host support (under DJ Delorie's GO32 environment) is close to working but has some remaining problems. Note that debugging of DOS programs is not supported, due to limitations in the ``operating system'', but it can be used to host cross-debugging. * Cross byte order fixes Many fixes have been made to support cross debugging of Sparc and MIPS targets from hosts whose byte order differs. * New -mapped and -readnow options If memory-mapped files are available on your system through the 'mmap' system call, you can use the -mapped option on the `file' or `symbol-file' commands to cause GDB to write the symbols from your program into a reusable file. If the program you are debugging is called `/path/fred', the mapped symbol file will be `./fred.syms'. Future GDB debugging sessions will notice the presence of this file, and will quickly map in symbol information from it, rather than reading the symbol table from the executable program. Using the '-mapped' option in a GDB `file' or `symbol-file' command has the same effect as starting GDB with the '-mapped' command-line option. You can cause GDB to read the entire symbol table immediately by using the '-readnow' option with any of the commands that load symbol table information (or on the GDB command line). This makes the command slower, but makes future operations faster. The -mapped and -readnow options are typically combined in order to build a `fred.syms' file that contains complete symbol information. A simple GDB invocation to do nothing but build a `.syms' file for future use is: gdb -batch -nx -mapped -readnow programname The `.syms' file is specific to the host machine on which GDB is run. It holds an exact image of GDB's internal symbol table. It cannot be shared across multiple host platforms. * longjmp() handling GDB is now capable of stepping and nexting over longjmp(), _longjmp(), and siglongjmp() without losing control. This feature has not yet been ported to all systems. It currently works on many 386 platforms, all MIPS-based platforms (SGI, DECstation, etc), and Sun3/4. * Solaris 2.0 Preliminary work has been put in to support the new Solaris OS from Sun. At this time, it can control and debug processes, but it is not capable of reading symbols. * Bug fixes As always, many many bug fixes. The major areas were with g++, and mipsread. People using the MIPS-based platforms should experience fewer mysterious crashes and trashed symbol tables. *** Changes in GDB-4.4: * New machines supported (host and target) SCO Unix on i386 IBM PC clones i386-sco-sysv or i386sco (except core files) BSD Reno on Vax vax-dec-bsd Ultrix on Vax vax-dec-ultrix * New machines supported (target) AMD 29000 embedded, using EBMON a29k-none-none * C++ support GDB continues to improve its handling of C++. `References' work better. The demangler has also been improved, and now deals with symbols mangled as per the Annotated C++ Reference Guide. GDB also now handles `stabs' symbol information embedded in MIPS `ecoff' symbol tables. Since the ecoff format was not easily extensible to handle new languages such as C++, this appeared to be a good way to put C++ debugging info into MIPS binaries. This option will be supported in the GNU C compiler, version 2, when it is released. * New features for SVR4 GDB now handles SVR4 shared libraries, in the same fashion as SunOS shared libraries. Debugging dynamically linked programs should present only minor differences from debugging statically linked programs. The `info proc' command will print out information about any process on an SVR4 system (including the one you are debugging). At the moment, it prints the address mappings of the process. If you bring up GDB on another SVR4 system, please send mail to bug-gdb@prep.ai.mit.edu to let us know what changes were reqired (if any). * Better dynamic linking support in SunOS Reading symbols from shared libraries which contain debugging symbols now works properly. However, there remain issues such as automatic skipping of `transfer vector' code during function calls, which make it harder to debug code in a shared library, than to debug the same code linked statically. * New Getopt GDB is now using the latest `getopt' routines from the FSF. This version accepts the -- prefix for options with long names. GDB will continue to accept the old forms (-option and +option) as well. Various single letter abbreviations for options have been explicity added to the option table so that they won't get overshadowed in the future by other options that begin with the same letter. * Bugs fixed The `cleanup_undefined_types' bug that many of you noticed has been squashed. Many assorted bugs have been handled. Many more remain to be handled. See the various ChangeLog files (primarily in gdb and bfd) for details. *** Changes in GDB-4.3: * New machines supported (host and target) Amiga 3000 running Amix m68k-cbm-svr4 or amix NCR 3000 386 running SVR4 i386-ncr-svr4 or ncr3000 Motorola Delta 88000 running Sys V m88k-motorola-sysv or delta88 * Almost SCO Unix support We had hoped to support: SCO Unix on i386 IBM PC clones i386-sco-sysv or i386sco (except for core file support), but we discovered very late in the release that it has problems with process groups that render gdb unusable. Sorry about that. I encourage people to fix it and post the fixes. * Preliminary ELF and DWARF support GDB can read ELF object files on System V Release 4, and can handle debugging records for C, in DWARF format, in ELF files. This support is preliminary. If you bring up GDB on another SVR4 system, please send mail to bug-gdb@prep.ai.mit.edu to let us know what changes were reqired (if any). * New Readline GDB now uses the latest `readline' library. One user-visible change is that two tabs will list possible command completions, which previously required typing M-? (meta-question mark, or ESC ?). * Bugs fixed The `stepi' bug that many of you noticed has been squashed. Many bugs in C++ have been handled. Many more remain to be handled. See the various ChangeLog files (primarily in gdb and bfd) for details. * State of the MIPS world (in case you wondered): GDB can understand the symbol tables emitted by the compilers supplied by most vendors of MIPS-based machines, including DEC. These symbol tables are in a format that essentially nobody else uses. Some versions of gcc come with an assembler post-processor called mips-tfile. This program is required if you want to do source-level debugging of gcc-compiled programs. I believe FSF does not ship mips-tfile with gcc version 1, but it will eventually come with gcc version 2. Debugging of g++ output remains a problem. g++ version 1.xx does not really support it at all. (If you're lucky, you should be able to get line numbers and stack traces to work, but no parameters or local variables.) With some work it should be possible to improve the situation somewhat. When gcc version 2 is released, you will have somewhat better luck. However, even then you will get confusing results for inheritance and methods. We will eventually provide full debugging of g++ output on DECstations. This will probably involve some kind of stabs-in-ecoff encapulation, but the details have not been worked out yet. *** Changes in GDB-4.2: * Improved configuration Only one copy of `configure' exists now, and it is not self-modifying. Porting BFD is simpler. * Stepping improved The `step' and `next' commands now only stop at the first instruction of a source line. This prevents the multiple stops that used to occur in switch statements, for-loops, etc. `Step' continues to stop if a function that has debugging information is called within the line. * Bug fixing Lots of small bugs fixed. More remain. * New host supported (not target) Intel 386 PC clone running Mach i386-none-mach *** Changes in GDB-4.1: * Multiple source language support GDB now has internal scaffolding to handle several source languages. It determines the type of each source file from its filename extension, and will switch expression parsing and number formatting to match the language of the function in the currently selected stack frame. You can also specifically set the language to be used, with `set language c' or `set language modula-2'. * GDB and Modula-2 GDB now has preliminary support for the GNU Modula-2 compiler, currently under development at the State University of New York at Buffalo. Development of both GDB and the GNU Modula-2 compiler will continue through the fall of 1991 and into 1992. Other Modula-2 compilers are currently not supported, and attempting to debug programs compiled with them will likely result in an error as the symbol table is read. Feel free to work on it, though! There are hooks in GDB for strict type checking and range checking, in the `Modula-2 philosophy', but they do not currently work. * set write on/off GDB can now write to executable and core files (e.g. patch a variable's value). You must turn this switch on, specify the file ("exec foo" or "core foo"), *then* modify it, e.g. by assigning a new value to a variable. Modifications take effect immediately. * Automatic SunOS shared library reading When you run your program, GDB automatically determines where its shared libraries (if any) have been loaded, and reads their symbols. The `share' command is no longer needed. This also works when examining core files. * set listsize You can specify the number of lines that the `list' command shows. The default is 10. * New machines supported (host and target) SGI Iris (MIPS) running Irix V3: mips-sgi-irix or iris Sony NEWS (68K) running NEWSOS 3.x: m68k-sony-sysv or news Ultracomputer (29K) running Sym1: a29k-nyu-sym1 or ultra3 * New hosts supported (not targets) IBM RT/PC: romp-ibm-aix or rtpc * New targets supported (not hosts) AMD 29000 embedded with COFF a29k-none-coff AMD 29000 embedded with a.out a29k-none-aout Ultracomputer remote kernel debug a29k-nyu-kern * New remote interfaces AMD 29000 Adapt AMD 29000 Minimon *** Changes in GDB-4.0: * New Facilities Wide output is wrapped at good places to make the output more readable. Gdb now supports cross-debugging from a host machine of one type to a target machine of another type. Communication with the target system is over serial lines. The ``target'' command handles connecting to the remote system; the ``load'' command will download a program into the remote system. Serial stubs for the m68k and i386 are provided. Gdb also supports debugging of realtime processes running under VxWorks, using SunRPC Remote Procedure Calls over TCP/IP to talk to a debugger stub on the target system. New CPUs supported include the AMD 29000 and Intel 960. GDB now reads object files and symbol tables via a ``binary file'' library, which allows a single copy of GDB to debug programs of multiple object file types such as a.out and coff. There is now a GDB reference card in "doc/refcard.tex". (Make targets refcard.dvi and refcard.ps are available to format it). * Control-Variable user interface simplified All variables that control the operation of the debugger can be set by the ``set'' command, and displayed by the ``show'' command. For example, ``set prompt new-gdb=>'' will change your prompt to new-gdb=>. ``Show prompt'' produces the response: Gdb's prompt is new-gdb=>. What follows are the NEW set commands. The command ``help set'' will print a complete list of old and new set commands. ``help set FOO'' will give a longer description of the variable FOO. ``show'' will show all of the variable descriptions and their current settings. confirm on/off: Enables warning questions for operations that are hard to recover from, e.g. rerunning the program while it is already running. Default is ON. editing on/off: Enables EMACS style command line editing of input. Previous lines can be recalled with control-P, the current line can be edited with control-B, you can search for commands with control-R, etc. Default is ON. history filename NAME: NAME is where the gdb command history will be stored. The default is .gdb_history, or the value of the environment variable GDBHISTFILE. history size N: The size, in commands, of the command history. The default is 256, or the value of the environment variable HISTSIZE. history save on/off: If this value is set to ON, the history file will be saved after exiting gdb. If set to OFF, the file will not be saved. The default is OFF. history expansion on/off: If this value is set to ON, then csh-like history expansion will be performed on command line input. The default is OFF. radix N: Sets the default radix for input and output. It can be set to 8, 10, or 16. Note that the argument to "radix" is interpreted in the current radix, so "set radix 10" is always a no-op. height N: This integer value is the number of lines on a page. Default is 24, the current `stty rows'' setting, or the ``li#'' setting from the termcap entry matching the environment variable TERM. width N: This integer value is the number of characters on a line. Default is 80, the current `stty cols'' setting, or the ``co#'' setting from the termcap entry matching the environment variable TERM. Note: ``set screensize'' is obsolete. Use ``set height'' and ``set width'' instead. print address on/off: Print memory addresses in various command displays, such as stack traces and structure values. Gdb looks more ``symbolic'' if you turn this off; it looks more ``machine level'' with it on. Default is ON. print array on/off: Prettyprint arrays. New convenient format! Default is OFF. print demangle on/off: Print C++ symbols in "source" form if on, "raw" form if off. print asm-demangle on/off: Same, for assembler level printouts like instructions. print vtbl on/off: Prettyprint C++ virtual function tables. Default is OFF. * Support for Epoch Environment. The epoch environment is a version of Emacs v18 with windowing. One new command, ``inspect'', is identical to ``print'', except that if you are running in the epoch environment, the value is printed in its own window. * Support for Shared Libraries GDB can now debug programs and core files that use SunOS shared libraries. Symbols from a shared library cannot be referenced before the shared library has been linked with the program (this happens after you type ``run'' and before the function main() is entered). At any time after this linking (including when examining core files from dynamically linked programs), gdb reads the symbols from each shared library when you type the ``sharedlibrary'' command. It can be abbreviated ``share''. sharedlibrary REGEXP: Load shared object library symbols for files matching a unix regular expression. No argument indicates to load symbols for all shared libraries. info sharedlibrary: Status of loaded shared libraries. * Watchpoints A watchpoint stops execution of a program whenever the value of an expression changes. Checking for this slows down execution tremendously whenever you are in the scope of the expression, but is quite useful for catching tough ``bit-spreader'' or pointer misuse problems. Some machines such as the 386 have hardware for doing this more quickly, and future versions of gdb will use this hardware. watch EXP: Set a watchpoint (breakpoint) for an expression. info watchpoints: Information about your watchpoints. delete N: Deletes watchpoint number N (same as breakpoints). disable N: Temporarily turns off watchpoint number N (same as breakpoints). enable N: Re-enables watchpoint number N (same as breakpoints). * C++ multiple inheritance When used with a GCC version 2 compiler, GDB supports multiple inheritance for C++ programs. * C++ exception handling Gdb now supports limited C++ exception handling. Besides the existing ability to breakpoint on an exception handler, gdb can breakpoint on the raising of an exception (before the stack is peeled back to the handler's context). catch FOO: If there is a FOO exception handler in the dynamic scope, set a breakpoint to catch exceptions which may be raised there. Multiple exceptions (``catch foo bar baz'') may be caught. info catch: Lists all exceptions which may be caught in the current stack frame. * Minor command changes The command ``call func (arg, arg, ...)'' now acts like the print command, except it does not print or save a value if the function's result is void. This is similar to dbx usage. The ``up'' and ``down'' commands now always print the frame they end up at; ``up-silently'' and `down-silently'' can be used in scripts to change frames without printing. * New directory command 'dir' now adds directories to the FRONT of the source search path. The path starts off empty. Source files that contain debug information about the directory in which they were compiled can be found even with an empty path; Sun CC and GCC include this information. If GDB can't find your source file in the current directory, type "dir .". * Configuring GDB for compilation For normal use, type ``./configure host''. See README or gdb.texinfo for more details. GDB now handles cross debugging. If you are remotely debugging between two different machines, type ``./configure host -target=targ''. Host is the machine where GDB will run; targ is the machine where the program that you are debugging will run. gdb-4.13/gdb/Projects 666 34562 1752 7331 5142345311 13007 0ustar fnfcygnus Suggested projects for aspiring or current GDB hackers ====================================================== (You should probably chat with bug-gdb@cygnus.com to make sure that no one else is doing the project you chose). Rewrite proceed, wait_for_inferior, and normal_stop to clean them up. Suggestions: 1) Make each test in wait_for_inferior a seperate subroutine call. 2) Combine wait_for_inferior and normal_stop to clean up communication via global variables. 3) See if you can find some way to clean up the global variables that are used; possibly group them by data flow and information content? Work out some kind of way to allow running the inferior to be done as a sub-execution of, eg. breakpoint command lists. Currently running the inferior interupts any command list execution. This would require some rewriting of wait_for_inferior & friends, and hence should probably be done in concert with the above. Add function arguments to gdb user defined functions. Add convenience variables that refer to exec file, symbol file, selected frame source file, selected frame function, selected frame line number, etc. Add a "suspend" subcommand of the "continue" command to suspend gdb while continuing execution of the subprocess. Useful when you are debugging servers and you want to dodge out and initiate a connection to a server running under gdb. Work out and implement a reasonably general mechanism for multi-threaded processies. There are parts of one implemented in convex-dep.c, if you want an example. Add stab information to allow reasonable debugging of inline functions (possibly they should show up on a stack backtrace? With a note indicating that they weren't "real"?). Implement support for specifying arbitrary locations of stack frames (in practice, this usually requires specification of both the top and bottom of the stack frame (fp and sp), since you *must* retrieve the pc that was saved in the innermost frame). Modify the naked "until" command to step until past the current source line, rather than past the current pc value. This is tricky simply because the low level routines have no way of specifying a multi-line step range, and there is no way of saying "don't print stuff when we stop" from above (otherwise could just call step many times). Modify the handling of symbols grouped through BINCL/EINCL stabs to allocate a partial symtab for each BINCL/EINCL grouping. This will seriously decrease the size of inter-psymtab dependencies and hence lessen the amount that needs to be read in when a new source file is accessed. Do an "x/i $pc" after each stepi or nexti. Modify all of the disassemblers to use printf_filtered to get correct more filtering. Modify gdb to work correctly with Pascal. Rewrite macros that handle frame chaining and frameless functions. They should be able to tell the difference between start, main, and a frameless function called from main. Work out what information would need to be included in an executable by the compiler to allow gdb to debug functions which do not have a frame pointer. Modify gdb and gcc to do this. When `attached' to a program (via either OS support or remote debugging), gdb should arrange to catch signals which the terminal might send, as it is unlikely that the program will be able to notice them. SIGINT and SIGTSTP are obvious examples. Enhance the gdb manual with extra examples where needed. Arrange for list_command not to use decode_line_1 and thus not require symbols to be read in simply to read a source file. Add a command for searching memory, a la adb. It specifies size, mask, value, start address. ADB searches until it finds it or hits an error (or is interrupted). # Local Variables: # mode: text # End: gdb-4.13/gdb/README 666 34562 1752 51275 5621014556 12207 0ustar fnfcygnus README for gdb-4.13 release Updated 8-Aug-94 by Fred Fish This is GDB, the GNU source-level debugger, presently running under un*x. A summary of new features is in the file `NEWS'. Unpacking and Installation -- quick overview ========================== In this release, the GDB debugger sources, the generic GNU include files, the BFD ("binary file description") library, the readline library, and other libraries all have directories of their own underneath the gdb-4.13 directory. The idea is that a variety of GNU tools can share a common copy of these things. Be aware of variation over time--for example don't try to build gdb with a copy of bfd from a release other than the gdb release (such as a binutils or gas release), especially if the releases are more than a few weeks apart. Configuration scripts and makefiles exist to cruise up and down this directory tree and automatically build all the pieces in the right order. When you unpack the gdb-4.13.tar.gz file, you'll find a directory called `gdb-4.13', which contains: Makefile.in config.sub* glob/ opcodes/ README configure* include/ readline/ bfd/ configure.in libiberty/ texinfo/ config/ etc/ mmalloc/ config.guess* gdb/ move-if-change* To build GDB, you can just do: cd gdb-4.13 ./configure make cp gdb/gdb /usr/local/bin/gdb (or wherever you want) This will configure and build all the libraries as well as GDB. If `configure' can't determine your system type, specify one as its argument, e.g. sun4 or decstation. If you get compiler warnings during this stage, see the `Reporting Bugs' section below; there are a few known problems. GDB can be used as a cross-debugger, running on a machine of one type while debugging a program running on a machine of another type. See below. More Documentation ****************** The GDB 4 release includes an already-formatted reference card, ready for printing with PostScript or Ghostscript, in the `gdb' subdirectory of the main source directory. (In `gdb-4.13/gdb/refcard.ps'.) If you can use PostScript or Ghostscript with your printer, you can print the reference card immediately with `refcard.ps'. The release also includes the source for the reference card. You can format it, using TeX, by typing: make refcard.dvi The GDB reference card is designed to print in landscape mode on US "letter" size paper; that is, on a sheet 11 inches wide by 8.5 inches high. You will need to specify this form of printing as an option to your DVI output program. All the documentation for GDB comes as part of the machine-readable distribution. The documentation is written in Texinfo format, which is a documentation system that uses a single source file to produce both on-line information and a printed manual. You can use one of the Info formatting commands to create the on-line version of the documentation and TeX (or `texi2roff') to typeset the printed version. GDB includes an already formatted copy of the on-line Info version of this manual in the `gdb' subdirectory. The main Info file is `gdb-VERSION-NUMBER/gdb/gdb.info', and it refers to subordinate files matching `gdb.info*' in the same directory. If necessary, you can print out these files, or read them with any editor; but they are easier to read using the `info' subsystem in GNU Emacs or the standalone `info' program, available as part of the GNU Texinfo distribution. If you want to format these Info files yourself, you need one of the Info formatting programs, such as `texinfo-format-buffer' or `makeinfo'. If you have `makeinfo' installed, and are in the top level GDB source directory (`gdb-4.13', in the case of version 4.13), you can make the Info file by typing: cd gdb make gdb.info If you want to typeset and print copies of this manual, you need TeX, a program to print its DVI output files, and `texinfo.tex', the Texinfo definitions file. TeX is a typesetting program; it does not print files directly, but produces output files called DVI files. To print a typeset document, you need a program to print DVI files. If your system has TeX installed, chances are it has such a program. The precise command to use depends on your system; `lpr -d' is common; another (for PostScript devices) is `dvips'. The DVI print command may require a file name without any extension or a `.dvi' extension. TeX also requires a macro definitions file called `texinfo.tex'. This file tells TeX how to typeset a document written in Texinfo format. On its own, TeX cannot read, much less typeset a Texinfo file. `texinfo.tex' is distributed with GDB and is located in the `gdb-VERSION-NUMBER/texinfo' directory. If you have TeX and a DVI printer program installed, you can typeset and print this manual. First switch to the the `gdb' subdirectory of the main source directory (for example, to `gdb-4.13/gdb') and then type: make gdb.dvi Installing GDB ************** GDB comes with a `configure' script that automates the process of preparing GDB for installation; you can then use `make' to build the `gdb' program. The GDB distribution includes all the source code you need for GDB in a single directory, whose name is usually composed by appending the version number to `gdb'. For example, the GDB version 4.13 distribution is in the `gdb-4.13' directory. That directory contains: `gdb-4.13/configure (and supporting files)' script for configuring GDB and all its supporting libraries. `gdb-4.13/gdb' the source specific to GDB itself `gdb-4.13/bfd' source for the Binary File Descriptor library `gdb-4.13/include' GNU include files `gdb-4.13/libiberty' source for the `-liberty' free software library `gdb-4.13/opcodes' source for the library of opcode tables and disassemblers `gdb-4.13/readline' source for the GNU command-line interface `gdb-4.13/glob' source for the GNU filename pattern-matching subroutine `gdb-4.13/mmalloc' source for the GNU memory-mapped malloc package 'gdb-4.13/sim' source for some simulators (z8000, H8/300, H8/500, etc) The simplest way to configure and build GDB is to run `configure' from the `gdb-VERSION-NUMBER' source directory, which in this example is the `gdb-4.13' directory. First switch to the `gdb-VERSION-NUMBER' source directory if you are not already in it; then run `configure'. Pass the identifier for the platform on which GDB will run as an argument. For example: cd gdb-4.13 ./configure HOST make where HOST is an identifier such as `sun4' or `decstation', that identifies the platform where GDB will run. Running `configure HOST' followed by `make' builds the `bfd', `readline', `mmalloc', and `libiberty' libraries, then `gdb' itself. The configured source files, and the binaries, are left in the corresponding source directories. `configure' is a Bourne-shell (`/bin/sh') script; if your system does not recognize this automatically when you run a different shell, you may need to run `sh' on it explicitly: sh configure HOST If you run `configure' from a directory that contains source directories for multiple libraries or programs, such as the `gdb-4.13' source directory for version 4.13, `configure' creates configuration files for every directory level underneath (unless you tell it not to, with the `--norecursion' option). You can run the `configure' script from any of the subordinate directories in the GDB distribution, if you only want to configure that subdirectory; but be sure to specify a path to it. For example, with version 4.13, type the following to configure only the `bfd' subdirectory: cd gdb-4.13/bfd ../configure HOST You can install `gdb' anywhere; it has no hardwired paths. However, you should make sure that the shell on your path (named by the `SHELL' environment variable) is publicly readable. Remember that GDB uses the shell to start your program--some systems refuse to let GDB debug child processes whose programs are not readable. Compiling GDB in another directory ================================== If you want to run GDB versions for several host or target machines, you need a different `gdb' compiled for each combination of host and target. `configure' is designed to make this easy by allowing you to generate each configuration in a separate subdirectory, rather than in the source directory. If your `make' program handles the `VPATH' feature correctly (GNU `make' and SunOS 'make' are two that should), running `make' in each of these directories builds the `gdb' program specified there. To build `gdb' in a separate directory, run `configure' with the `--srcdir' option to specify where to find the source. (You also need to specify a path to find `configure' itself from your working directory. If the path to `configure' would be the same as the argument to `--srcdir', you can leave out the `--srcdir' option; it will be assumed.) For example, with version 4.13, you can build GDB in a separate directory for a Sun 4 like this: cd gdb-4.13 mkdir ../gdb-sun4 cd ../gdb-sun4 ../gdb-4.13/configure sun4 make When `configure' builds a configuration using a remote source directory, it creates a tree for the binaries with the same structure (and using the same names) as the tree under the source directory. In the example, you'd find the Sun 4 library `libiberty.a' in the directory `gdb-sun4/libiberty', and GDB itself in `gdb-sun4/gdb'. One popular reason to build several GDB configurations in separate directories is to configure GDB for cross-compiling (where GDB runs on one machine--the host--while debugging programs that run on another machine--the target). You specify a cross-debugging target by giving the `--target=TARGET' option to `configure'. When you run `make' to build a program or library, you must run it in a configured directory--whatever directory you were in when you called `configure' (or one of its subdirectories). The `Makefile' that `configure' generates in each source directory also runs recursively. If you type `make' in a source directory such as `gdb-4.13' (or in a separate configured directory configured with `--srcdir=PATH/gdb-4.13'), you will build all the required libraries, and then build GDB. When you have multiple hosts or targets configured in separate directories, you can run `make' on them in parallel (for example, if they are NFS-mounted on each of the hosts); they will not interfere with each other. Specifying names for hosts and targets ====================================== The specifications used for hosts and targets in the `configure' script are based on a three-part naming scheme, but some short predefined aliases are also supported. The full naming scheme encodes three pieces of information in the following pattern: ARCHITECTURE-VENDOR-OS For example, you can use the alias `sun4' as a HOST argument or in a `--target=TARGET' option. The equivalent full name is `sparc-sun-sunos4'. The `configure' script accompanying GDB does not provide any query facility to list all supported host and target names or aliases. `configure' calls the Bourne shell script `config.sub' to map abbreviations to full names; you can read the script, if you wish, or you can use it to test your guesses on abbreviations--for example: % sh config.sub sun4 sparc-sun-sunos411 % sh config.sub sun3 m68k-sun-sunos411 % sh config.sub decstation mips-dec-ultrix42 % sh config.sub hp300bsd m68k-hp-bsd % sh config.sub i386v i386-unknown-sysv % sh config.sub i786v Invalid configuration `i786v': machine `i786v' not recognized `config.sub' is also distributed in the GDB source directory (`gdb-4.13', for version 4.13). `configure' options =================== Here is a summary of the `configure' options and arguments that are most often useful for building GDB. `configure' also has several other options not listed here. *note : (configure.info)What Configure Does, for a full explanation of `configure'. configure [--help] [--prefix=DIR] [--srcdir=PATH] [--norecursion] [--rm] [--target=TARGET] HOST You may introduce options with a single `-' rather than `--' if you prefer; but you may abbreviate option names if you use `--'. `--help' Display a quick summary of how to invoke `configure'. `-prefix=DIR' Configure the source to install programs and files under directory `DIR'. `--srcdir=PATH' *Warning: using this option requires GNU `make', or another `make' that compatibly implements the `VPATH' feature.* Use this option to make configurations in directories separate from the GDB source directories. Among other things, you can use this to build (or maintain) several configurations simultaneously, in separate directories. `configure' writes configuration specific files in the current directory, but arranges for them to use the source in the directory PATH. `configure' will create directories under the working directory in parallel to the source directories below PATH. `--norecursion' Configure only the directory level where `configure' is executed; do not propagate configuration to subdirectories. `--rm' Remove the configuration that the other arguments specify. `--target=TARGET' Configure GDB for cross-debugging programs running on the specified TARGET. Without this option, GDB is configured to debug programs that run on the same machine (HOST) as GDB itself. There is no convenient way to generate a list of all available targets. `HOST ...' Configure GDB to run on the specified HOST. There is no convenient way to generate a list of all available hosts. `configure' accepts other options, for compatibility with configuring other GNU tools recursively; but these are the only options that affect GDB or its supporting libraries. Languages other than C ======================= See the GDB manual (doc/gdb.texinfo) for information on this. Kernel debugging ================= I have't done this myself so I can't really offer any advice. Remote debugging over serial lines works fine, but the kernel debugging code in here has not been tested in years. Van Jacobson has better kernel debugging, but the UC lawyers won't let FSF have it. Remote debugging ================= The files m68k-stub.c, i386-stub.c, and sparc-stub.c are examples of remote stubs to be used with remote.c. They are designed to run standalone on an m68k, i386, or SPARC cpu and communicate properly with the remote.c stub over a serial line. The file rem-multi.shar contains a general stub that can probably run on various different flavors of unix to allow debugging over a serial line from one machine to another. Some working remote interfaces for talking to existing ROM monitors are: remote-adapt.c AMD 29000 "Adapt" remote-eb.c AMD 29000 "EBMON" remote-es1800.c Ericsson 1800 monitor remote-hms.c Hitachi Micro Systems H8/300 monitor remote-mips.c MIPS remote debugging protocol remote-mm.c AMD 29000 "minimon" remote-nindy.c Intel 960 "Nindy" remote-sim.c Generalized simulator protocol remote-st2000.c Tandem ST-2000 monitor remote-udi.c AMD 29000 using the AMD "Universal Debug Interface" remote-vx.c VxWorks realtime kernel remote-z8k.c Zilog Z8000 simulator Remote-vx.c and the vx-share subdirectory contain a remote interface for the VxWorks realtime kernel, which communicates over TCP using the Sun RPC library. This would be a useful starting point for other remote- via-ethernet back ends. Remote-udi.c and the 29k-share subdirectory contain a remote interface for AMD 29000 programs, which uses the AMD "Universal Debug Interface". This allows GDB to talk to software simulators, emulators, and/or bare hardware boards, via network or serial interfaces. Note that GDB only provides an interface that speaks UDI, not a complete solution. You will need something on the other end that also speaks UDI. Reporting Bugs =============== The correct address for reporting bugs found in gdb is "bug-gdb@prep.ai.mit.edu". Please email all bugs, and all requests for help with GDB, to that address. Please include the GDB version number (e.g. gdb-4.13), and how you configured it (e.g. "sun4" or "mach386 host, i586-intel-synopsys target"). If you include the banner that GDB prints when it starts up, that will give us enough information. For more information on how/whether to report bugs, see the GDB Bugs section of the GDB manual (gdb/doc/gdb.texinfo). Known bugs: * Under Ultrix 4.2 (DECstation-3100) or Alphas under OSF/1, we have seen problems with backtraces after interrupting the inferior out of a read(). The problem is caused by ptrace() returning an incorrect value for the frame pointer register (register 15 or 30). As far as we can tell, this is a kernel problem. Any help with this would be greatly appreciated. * On DECstations there are warnings about shift counts out of range in various BFD modules. None of them is a cause for alarm, they are actually a result of bugs in the DECstation compiler. * Notes for the DEC Alpha using OSF/1: The debugging output of native cc has two known problems; we view these as compiler bugs. The linker miscompacts symbol tables, which causes gdb to confuse the type of variables or results in `struct ' type outputs. dbx has the same problems with those executables. A workaround is to specify -Wl,-b when linking, but that will increase the executable size considerably. If a structure has incomplete type in one file (e.g. "struct foo *" without a definition for "struct foo"), gdb will be unable to find the structure definition from another file. It has been reported that the Ultrix 4.3A compiler on decstations has the same problems. Under some circumstances OSF/1 shared libraries do get relocated to a different address, but gdb cannot handle these relocations yet. If you encounter problems while debugging executables which use shared libraries, try to relink your executable with the -non_shared option when using cc or with the -static option when using gcc. * Notes for Solaris 2.x, using the SPARCworks cc compiler: You have to compile your program with the -xs option of the SPARCworks compiler to be able to debug your program with gdb. Under Solaris 2.3 you also need patch 101409-03 (Jumbo linker patch). Under Solaris 2.2, if you have patch 101052 installed, make sure that it is at least at revision 101052-06. * Notes for BSD/386: To compile gdb-4.13 on BSD/386, you must run the configure script and its subscripts with bash. Here is an easy way to do this: bash -c 'CONFIG_SHELL=/bin/bash ./configure' (configure will report i386-unknown-bsd). Then, compile with the standard "make" command. GDB can produce warnings about symbols that it does not understand. By default, these warnings are disabled. You can enable them by executing `set complaint 10' (which you can put in your ~/.gdbinit if you like). I recommend doing this if you are working on a compiler, assembler, linker, or gdb, since it will point out problems that you may be able to fix. Warnings produced during symbol reading indicate some mismatch between the object file and GDB's symbol reading code. In many cases, it's a mismatch between the specs for the object file format, and what the compiler actually outputs or the debugger actually understands. X Windows versus GDB ===================== There is an "xxgdb", which seems to work for simple operations, which was posted to comp.sources.x. For those interested in auto display of source and the availability of an editor while debugging I suggest trying gdb-mode in gnu-emacs (Try typing M-x gdb RETURN). Comments on this mode are welcome. Writing Code for GDB ===================== There is a lot of information about writing code for GDB in the internals manual, distributed with GDB in gdb/doc/gdbint.texinfo. You can read it by hand, print it by using TeX and texinfo, or process it into an `info' file for use with Emacs' info mode or the standalone `info' program. In particular, see the nodes Getting Started, Debugging GDB, New Architectures, Coding Style, Clean Design, and Submitting Patches. If you are pondering writing anything but a short patch, especially take note of the information about copyrights in the node Submitting Patches. It can take quite a while to get all the paperwork done, so we encourage you to start that process as soon as you decide you are planning to work on something, or at least well ahead of when you think you will be ready to submit the patches. (this is for editing this file with GNU emacs) Local Variables: mode: text End: gdb-4.13/gdb/TODO 666 34562 1752 25557 5620276052 12023 0ustar fnfcygnusIf you find inaccuracies in this list, please send mail to bug-gdb@prep.ai.mit.edu. General To Do List ------------------ This to do list is probably not up to date, and opinions may vary about the importance or even desirability of some of the items. It should be possible to use symbols from shared libraries before we know exactly where the libraries will be loaded. E.g. "b perror" before running the program. This could maybe be done as an extension of the "breakpoint re-evaluation" after new symbols are loaded. Make single_step() insert and remove breakpoints in one operation. Speed up single stepping by avoiding extraneous ptrace calls. Speed up single stepping by not inserting and removing breakpoints each time the inferior starts and stops. Breakpoints should not be inserted and deleted all the time. Only the one(s) there should be removed when we have to step over one. Support breakpoints that don't have to be removed to step over them. Update gdbint.texinfo to include doc on the directory structure and the various tricks of building gdb. Do a tutorial in gdb.texinfo on how to do simple things in gdb. E.g. how to set a breakpoint that just prints something and continues. How to break on aborts. Etc. Provide "voodoo" debugging of core files. This creates a zombie process as a child of the debugger, and loads it up with the data, stack, and regs of the core file. This allows you to call functions in the executable, to manipulate the data in the core file. GDB reopens the source file on every line, as you "next" through it. Referencing the vtbl member of a struct doesn't work. It prints OK if you print the struct, but it gets 0 if you try to deref it. Persistent command history: A feature where you could save off a list of the commands you did, so you can edit it into something that will bring the target to the same place every time you source it. This would also be useful for automated fast watchpointing; if you go past the place where it watchpoints, you just start it over again and do it more carefully. Deal with the SunOS 4.0 and 4.1.1 ptrace bug that loses the registers if the stack is paged out. Finish the C++ exception handling stub routines. Lint points them out as unused statics functions. Perhaps "i source" should take an argument like that of "list". See if coredep.c's fetch_core_registers can be used on more machines. E.g. MIPS (mips-xdep.c). unpack_double() does not handle IEEE float on the target unless the host is also IEEE. Death on a vax. Set up interface between GDB and INFO so that you can hop into interactive INFO and back out again. When running under Emacs, should use Emacs info, else fork the info program. Installation of GDB should install its texinfo files into the info tree automagically, including the readline texinfo files. "help address" ought to find the "help set print address" entry. Remove the VTBL internal guts from printouts of C++ structs, unless vtblprint is set. Remove "at 0xnnnn" from the "b foo" response, if `print address off' and if it matches the source line indicated. The prompt at end of screen should accept space as well as CR. Check STORE_RETURN_VALUE on all architectures. Check near it in tm-sparc.h for other bogosities. Check for storage leaks in GDB, I'm sure there are a lot! vtblprint of a vtbl should demangle the names it's printing. Backtrace should point out what the currently selected frame is, in its display, perhaps showing "@3 foo (bar, ...)" or ">3 foo (bar, ...)" rather than "#3 foo (bar, ...)". "i program" should work for core files, and display more info, like what actually caused it to die. "x/10i" should shorten the long name, if any, on subsequent lines. Check through the code for FIXME comments and fix them. dbxread.c, blockframe.c, and plenty more. (I count 634 as of 940621 - sts) "next" over a function that longjumps, never stops until next time you happen to get to that spot by accident. E.g. "n" over execute_command which has an error. Watchpoints seem not entirely reliable, though they haven't failed me recently. "set zeroprint off", don't bother printing members of structs which are entirely zero. Useful for those big structs with few useful members. GDB does four ioctl's for every command, probably switching terminal modes to/from inferior or for readline or something. terminal_ours versus terminal_inferior: cache state. Switch should be a noop if the state is the same, too. ptype $i6 = void??! Clean up invalid_float handling so gdb doesn't coredump when it tries to access a NaN. While this might work on SPARC, other machines are not configured right. "b value_at ; commands ; continue ; end" stops EVERY OTHER TIME! Then once you enter a command, it does the command, runs two more times, and then stops again! Bizarre... (This behaviour has been modified, but it is not yet 100% predictable when e.g. the commands call functions in the child, and while there, the child is interrupted with a signal, or hits a breakpoint.) help completion, help history should work. Check that we can handle stack trace through varargs AND alloca in same function, on 29K. wait_for_inferior loops forever if wait() gives it an error. "i frame" shows wrong "arglist at" location, doesn't show where the args should be found, only their actual values. There should be a way for "set" commands to validate the new setting before it takes effect. A mess of floating point opcodes are missing from sparc-opcode.h. Also, a little program should test the table for bits that are overspecified or underspecified. E.g. if the must-be-ones bits and the must-be-zeroes bits leave some fields unexamined, and the format string leaves them unprinted, then point this out. If multiple non-alias patterns match, point this out too. Finally, there should be a sparc-optest.s file that tries each pattern out. This file should end up coming back the same (modulo transformation comments) if fed to "gas" then the .o is fed to gdb for disassembly. Eliminate all the core_file_command's in all the xdep files. Eliminate separate declarations of registers[] everywhere. "ena d" is ambiguous, why? "ena delete" seems to think it is a command! Perhaps move the tdep, xdep, and nat files, into the config subdirectories. If not, at least straighten out their names so that they all start with the machine name. inferior_status should include stop_print_frame. It won't need to be reset in wait_for_inferior after bpstat_stop_status call, then. i line VAR produces "Line number not known for symbol ``var''.". I thought we were stashing that info now! We should be able to write to random files at hex offsets like adb. Make "target xxx" command interruptible. Handle add_file with separate text, data, and bss addresses. Maybe handle separate addresses for each segment in the object file? Handle free_named_symtab to cope with multiply-loaded object files in a dynamic linking environment. Should remember the last copy loaded, but not get too snowed if it finds references to the older copy. Generalize and Standardize the RPC interface to a target program, improve it beyond the "ptrace" interface, and see if it can become a standard for remote debugging. Remove all references to: text_offset data_offset text_data_start text_end exec_data_offset ... now that we have BFD. All remaining are in machine dependent files. When quitting with a running program, if a core file was previously examined, you get "Couldn't read float regs from core file"...if indeed it can't. generic_mourn_inferior... Have remote targets give a warning on a signal argument to target_resume. Or better yet, extend the protocols so that it works like it does on the Unix-like systems. Sort help and info output. Re-organize help categories into things that tend to fit on a screen and hang together. renote-nindy.c handles interrupts poorly; it error()s out of badly chosen places, e.g. leaving current_frame zero, which causes core dumps on the next command. Add in commands like ADB's for searching for patterns, etc. We should be able to examine and patch raw unsymboled binaries as well in gdb as we can in adb. (E.g. increase the timeout in /bin/login without source). Those xdep files that call register_addr without defining it are probably simply broken. When reconfiguring this part of gdb, I could only make guesses about how to redo some of those files, and I probably guessed wrong, or left them "for later" when I have a machine that can attempt to build them. When doing "step" or "next", if a few lines of source are skipped between the previous line and the current one, print those lines, not just the last line of a multiline statement. When searching for C++ superclasses in value_cast in valops.c, we must not search the "fields", only the "superclasses". There might be a struct with a field name that matches the superclass name. This can happen when the struct was defined before the superclass (before the name became a typedef). Handling of "&" address-of operator needs some serious overhaul for ANSI C and consistency on arrays and functions. For "float point[15];": ptype &point[4] ==> Attempt to take address of non-lvalue. For "char *malloc();": ptype malloc ==> "char *()"; should be same as ptype &malloc ==> "char *(*)()" call printf ("%x\n", malloc) ==> weird value, should be same as call printf ("%x\n", &malloc) ==> correct value Fix dbxread.c symbol reading in the presence of interrupts. It currently leaves a cleanup to blow away the entire symbol table when a QUIT occurs. (What's wrong with that? -kingdon, 28 Oct 1993). Mipsread.c reads include files depth-first, because the dependencies in the psymtabs are way too inclusive (it seems to me). Figure out what really depends on what, to avoid recursing 20 or 30 times while reading real symtabs. value_add() should be subtracting the lower bound of arrays, if known, and possibly checking against the upper bound for error reporting. mipsread.c symbol table allocation and deallocation should be checked. My suspicion is that it's full of memory leaks. SunOS should have a target_lookup_symbol() for common'd things allocated by the shared library linker ld.so. When listing source lines, check for a preceding \n, to verify that the file hasn't changed out from under us. When listing source lines, eat leading whitespace corresponding to the line-number prefix we print. This avoids long lines wrapping. mipsread.c needs to check for old symtabs and psymtabs for the same files, the way it happens for dbxread.c and coffread.c, for VxWorks incremental symbol table reloading. Get all the remote systems (where the protocol allows it) to be able to stop the remote system when the GDB user types ^C (like remote.c does). For ebmon, use ^Ak. Possible feature: A version of the "disassemble" command which shows both source and assembly code ("set symbol-filename on" is a partial solution). xcoffexec.c should be eliminated, contents going into either exec.c or rs6000-nat.c. gdb-4.13/gdb/a29k-pinsn.c 666 34562 1752 2456 5465305341 13344 0ustar fnfcygnus/* Instruction printing code for the AMD 29000 Copyright (C) 1993 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Jim Kingdon. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dis-asm.h" /* Print the m68k instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO(info, stream); #if TARGET_BYTE_ORDER == BIG_ENDIAN return print_insn_big_a29k (memaddr, &info); #else return print_insn_little_a29k (memaddr, &info); #endif } gdb-4.13/gdb/a29k-tdep.c 666 34562 1752 70657 5522312306 13172 0ustar fnfcygnus/* Target-machine dependent code for the AMD 29000 Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Jim Kingdon. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "gdbcore.h" #include "frame.h" #include "value.h" #include "symtab.h" #include "inferior.h" #include "gdbcmd.h" /* If all these bits in an instruction word are zero, it is a "tag word" which precedes a function entry point and gives stack traceback info. This used to be defined as 0xff000000, but that treated 0x00000deb as a tag word, while it is really used as a breakpoint. */ #define TAGWORD_ZERO_MASK 0xff00f800 extern CORE_ADDR text_start; /* FIXME, kludge... */ /* The user-settable top of the register stack in virtual memory. We won't attempt to access any stored registers above this address, if set nonzero. */ static CORE_ADDR rstack_high_address = UINT_MAX; /* Structure to hold cached info about function prologues. */ struct prologue_info { CORE_ADDR pc; /* First addr after fn prologue */ unsigned rsize, msize; /* register stack frame size, mem stack ditto */ unsigned mfp_used : 1; /* memory frame pointer used */ unsigned rsize_valid : 1; /* Validity bits for the above */ unsigned msize_valid : 1; unsigned mfp_valid : 1; }; /* Examine the prologue of a function which starts at PC. Return the first addess past the prologue. If MSIZE is non-NULL, then set *MSIZE to the memory stack frame size. If RSIZE is non-NULL, then set *RSIZE to the register stack frame size (not including incoming arguments and the return address & frame pointer stored with them). If no prologue is found, *RSIZE is set to zero. If no prologue is found, or a prologue which doesn't involve allocating a memory stack frame, then set *MSIZE to zero. Note that both msize and rsize are in bytes. This is not consistent with the _User's Manual_ with respect to rsize, but it is much more convenient. If MFP_USED is non-NULL, *MFP_USED is set to nonzero if a memory frame pointer is being used. */ CORE_ADDR examine_prologue (pc, rsize, msize, mfp_used) CORE_ADDR pc; unsigned *msize; unsigned *rsize; int *mfp_used; { long insn; CORE_ADDR p = pc; struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (pc); struct prologue_info *mi = 0; if (msymbol != NULL) mi = (struct prologue_info *) msymbol -> info; if (mi != 0) { int valid = 1; if (rsize != NULL) { *rsize = mi->rsize; valid &= mi->rsize_valid; } if (msize != NULL) { *msize = mi->msize; valid &= mi->msize_valid; } if (mfp_used != NULL) { *mfp_used = mi->mfp_used; valid &= mi->mfp_valid; } if (valid) return mi->pc; } if (rsize != NULL) *rsize = 0; if (msize != NULL) *msize = 0; if (mfp_used != NULL) *mfp_used = 0; /* Prologue must start with subtracting a constant from gr1. Normally this is sub gr1,gr1,. */ insn = read_memory_integer (p, 4); if ((insn & 0xffffff00) != 0x25010100) { /* If the frame is large, instead of a single instruction it might be a pair of instructions: const , sub gr1,gr1, */ int reg; /* Possible value for rsize. */ unsigned int rsize0; if ((insn & 0xff000000) != 0x03000000) { p = pc; goto done; } reg = (insn >> 8) & 0xff; rsize0 = (((insn >> 8) & 0xff00) | (insn & 0xff)); p += 4; insn = read_memory_integer (p, 4); if ((insn & 0xffffff00) != 0x24010100 || (insn & 0xff) != reg) { p = pc; goto done; } if (rsize != NULL) *rsize = rsize0; } else { if (rsize != NULL) *rsize = (insn & 0xff); } p += 4; /* Next instruction ought to be asgeu V_SPILL,gr1,rab. * We don't check the vector number to allow for kernel debugging. The * kernel will use a different trap number. * If this insn is missing, we just keep going; Metaware R2.3u compiler * generates prologue that intermixes initializations and puts the asgeu * way down. */ insn = read_memory_integer (p, 4); if ((insn & 0xff00ffff) == (0x5e000100|RAB_HW_REGNUM)) { p += 4; } /* Next instruction usually sets the frame pointer (lr1) by adding from gr1. However, this can (and high C does) be deferred until anytime before the first function call. So it is OK if we don't see anything which sets lr1. To allow for alternate register sets (gcc -mkernel-registers) the msp register number is a compile time constant. */ /* Normally this is just add lr1,gr1,. */ insn = read_memory_integer (p, 4); if ((insn & 0xffffff00) == 0x15810100) p += 4; else { /* However, for large frames it can be const , add lr1,gr1, */ int reg; CORE_ADDR q; if ((insn & 0xff000000) == 0x03000000) { reg = (insn >> 8) & 0xff; q = p + 4; insn = read_memory_integer (q, 4); if ((insn & 0xffffff00) == 0x14810100 && (insn & 0xff) == reg) p = q; } } /* Next comes "add lr{},msp,0", but only if a memory frame pointer is in use. We just check for add lr,msp,0; we don't check this rsize against the first instruction, and we don't check that the trace-back tag indicates a memory frame pointer is in use. To allow for alternate register sets (gcc -mkernel-registers) the msp register number is a compile time constant. The recommended instruction is actually "sll lr,msp,0". We check for that, too. Originally Jim Kingdon's code seemed to be looking for a "sub" instruction here, but the mask was set up to lose all the time. */ insn = read_memory_integer (p, 4); if (((insn & 0xff80ffff) == (0x15800000|(MSP_HW_REGNUM<<8))) /* add */ || ((insn & 0xff80ffff) == (0x81800000|(MSP_HW_REGNUM<<8)))) /* sll */ { p += 4; if (mfp_used != NULL) *mfp_used = 1; } /* Next comes a subtraction from msp to allocate a memory frame, but only if a memory frame is being used. We don't check msize against the trace-back tag. To allow for alternate register sets (gcc -mkernel-registers) the msp register number is a compile time constant. Normally this is just sub msp,msp, */ insn = read_memory_integer (p, 4); if ((insn & 0xffffff00) == (0x25000000|(MSP_HW_REGNUM<<16)|(MSP_HW_REGNUM<<8))) { p += 4; if (msize != NULL) *msize = insn & 0xff; } else { /* For large frames, instead of a single instruction it might be const , consth , ; optional sub msp,msp, */ int reg; unsigned msize0; CORE_ADDR q = p; if ((insn & 0xff000000) == 0x03000000) { reg = (insn >> 8) & 0xff; msize0 = ((insn >> 8) & 0xff00) | (insn & 0xff); q += 4; insn = read_memory_integer (q, 4); /* Check for consth. */ if ((insn & 0xff000000) == 0x02000000 && (insn & 0x0000ff00) == reg) { msize0 |= (insn << 8) & 0xff000000; msize0 |= (insn << 16) & 0x00ff0000; q += 4; insn = read_memory_integer (q, 4); } /* Check for sub msp,msp,. */ if ((insn & 0xffffff00) == (0x24000000|(MSP_HW_REGNUM<<16)|(MSP_HW_REGNUM<<8)) && (insn & 0xff) == reg) { p = q + 4; if (msize != NULL) *msize = msize0; } } } /* Next instruction might be asgeu V_SPILL,gr1,rab. * We don't check the vector number to allow for kernel debugging. The * kernel will use a different trap number. * Metaware R2.3u compiler * generates prologue that intermixes initializations and puts the asgeu * way down after everything else. */ insn = read_memory_integer (p, 4); if ((insn & 0xff00ffff) == (0x5e000100|RAB_HW_REGNUM)) { p += 4; } done: if (msymbol != NULL) { if (mi == 0) { /* Add a new cache entry. */ mi = (struct prologue_info *)xmalloc (sizeof (struct prologue_info)); msymbol -> info = (char *)mi; mi->rsize_valid = 0; mi->msize_valid = 0; mi->mfp_valid = 0; } /* else, cache entry exists, but info is incomplete. */ mi->pc = p; if (rsize != NULL) { mi->rsize = *rsize; mi->rsize_valid = 1; } if (msize != NULL) { mi->msize = *msize; mi->msize_valid = 1; } if (mfp_used != NULL) { mi->mfp_used = *mfp_used; mi->mfp_valid = 1; } } return p; } /* Advance PC across any function entry prologue instructions to reach some "real" code. */ CORE_ADDR skip_prologue (pc) CORE_ADDR pc; { return examine_prologue (pc, (unsigned *)NULL, (unsigned *)NULL, (int *)NULL); } /* * Examine the one or two word tag at the beginning of a function. * The tag word is expect to be at 'p', if it is not there, we fail * by returning 0. The documentation for the tag word was taken from * page 7-15 of the 29050 User's Manual. We are assuming that the * m bit is in bit 22 of the tag word, which seems to be the agreed upon * convention today (1/15/92). * msize is return in bytes. */ static int /* 0/1 - failure/success of finding the tag word */ examine_tag(p, is_trans, argcount, msize, mfp_used) CORE_ADDR p; int *is_trans; int *argcount; unsigned *msize; int *mfp_used; { unsigned int tag1, tag2; tag1 = read_memory_integer (p, 4); if ((tag1 & TAGWORD_ZERO_MASK) != 0) /* Not a tag word */ return 0; if (tag1 & (1<<23)) /* A two word tag */ { tag2 = read_memory_integer (p+4, 4); if (msize) *msize = tag2; } else /* A one word tag */ { if (msize) *msize = tag1 & 0x7ff; } if (is_trans) *is_trans = ((tag1 & (1<<21)) ? 1 : 0); /* Note that this includes the frame pointer and the return address register, so the actual number of registers of arguments is two less. argcount can be zero, however, sometimes, for strange assembler routines. */ if (argcount) *argcount = (tag1 >> 16) & 0x1f; if (mfp_used) *mfp_used = ((tag1 & (1<<22)) ? 1 : 0); return(1); } /* Initialize the frame. In addition to setting "extra" frame info, we also set ->frame because we use it in a nonstandard way, and ->pc because we need to know it to get the other stuff. See the diagram of stacks and the frame cache in tm-a29k.h for more detail. */ static void init_frame_info (innermost_frame, fci) int innermost_frame; struct frame_info *fci; { CORE_ADDR p; long insn; unsigned rsize; unsigned msize; int mfp_used, trans; struct symbol *func; p = fci->pc; if (innermost_frame) fci->frame = read_register (GR1_REGNUM); else fci->frame = fci->next->frame + fci->next->rsize; #if CALL_DUMMY_LOCATION == ON_STACK This wont work; #else if (PC_IN_CALL_DUMMY (p, 0, 0)) #endif { fci->rsize = DUMMY_FRAME_RSIZE; /* This doesn't matter since we never try to get locals or args from a dummy frame. */ fci->msize = 0; /* Dummy frames always use a memory frame pointer. */ fci->saved_msp = read_register_stack_integer (fci->frame + DUMMY_FRAME_RSIZE - 4, 4); fci->flags |= (TRANSPARENT|MFP_USED); return; } func = find_pc_function (p); if (func != NULL) p = BLOCK_START (SYMBOL_BLOCK_VALUE (func)); else { /* Search backward to find the trace-back tag. However, do not trace back beyond the start of the text segment (just as a sanity check to avoid going into never-never land). */ #if 1 while (p >= text_start && ((insn = read_memory_integer (p, 4)) & TAGWORD_ZERO_MASK) != 0) p -= 4; #else /* 0 */ char pat[4] = {0, 0, 0, 0}; char mask[4]; char insn_raw[4]; store_unsigned_integer (mask, 4, TAGWORD_ZERO_MASK); /* Enable this once target_search is enabled and tested. */ target_search (4, pat, mask, p, -4, text_start, p+1, &p, &insn_raw); insn = extract_unsigned_integer (insn_raw, 4); #endif /* 0 */ if (p < text_start) { /* Couldn't find the trace-back tag. Something strange is going on. */ fci->saved_msp = 0; fci->rsize = 0; fci->msize = 0; fci->flags = TRANSPARENT; return; } else /* Advance to the first word of the function, i.e. the word after the trace-back tag. */ p += 4; } /* We've found the start of the function. Try looking for a tag word that indicates whether there is a memory frame pointer and what the memory stack allocation is. If one doesn't exist, try using a more exhaustive search of the prologue. */ if (examine_tag(p-4,&trans,(int *)NULL,&msize,&mfp_used)) /* Found good tag */ examine_prologue (p, &rsize, 0, 0); else /* No tag try prologue */ examine_prologue (p, &rsize, &msize, &mfp_used); fci->rsize = rsize; fci->msize = msize; fci->flags = 0; if (mfp_used) fci->flags |= MFP_USED; if (trans) fci->flags |= TRANSPARENT; if (innermost_frame) { fci->saved_msp = read_register (MSP_REGNUM) + msize; } else { if (mfp_used) fci->saved_msp = read_register_stack_integer (fci->frame + rsize - 4, 4); else fci->saved_msp = fci->next->saved_msp + msize; } } void init_extra_frame_info (fci) struct frame_info *fci; { if (fci->next == 0) /* Assume innermost frame. May produce strange results for "info frame" but there isn't any way to tell the difference. */ init_frame_info (1, fci); else { /* We're in get_prev_frame_info. Take care of everything in init_frame_pc. */ ; } } void init_frame_pc (fromleaf, fci) int fromleaf; struct frame_info *fci; { fci->pc = (fromleaf ? SAVED_PC_AFTER_CALL (fci->next) : fci->next ? FRAME_SAVED_PC (fci->next) : read_pc ()); init_frame_info (fromleaf, fci); } /* Local variables (i.e. LOC_LOCAL) are on the memory stack, with their offsets being relative to the memory stack pointer (high C) or saved_msp (gcc). */ CORE_ADDR frame_locals_address (fi) struct frame_info *fi; { if (fi->flags & MFP_USED) return fi->saved_msp; else return fi->saved_msp - fi->msize; } /* Routines for reading the register stack. The caller gets to treat the register stack as a uniform stack in memory, from address $gr1 straight through $rfb and beyond. */ /* Analogous to read_memory except the length is understood to be 4. Also, myaddr can be NULL (meaning don't bother to read), and if actual_mem_addr is non-NULL, store there the address that it was fetched from (or if from a register the offset within registers). Set *LVAL to lval_memory or lval_register, depending on where it came from. The contents written into MYADDR are in target format. */ void read_register_stack (memaddr, myaddr, actual_mem_addr, lval) CORE_ADDR memaddr; char *myaddr; CORE_ADDR *actual_mem_addr; enum lval_type *lval; { long rfb = read_register (RFB_REGNUM); long rsp = read_register (RSP_REGNUM); /* If we don't do this 'info register' stops in the middle. */ if (memaddr >= rstack_high_address) { /* a bogus value */ static char val[] = {~0, ~0, ~0, ~0}; /* It's in a local register, but off the end of the stack. */ int regnum = (memaddr - rsp) / 4 + LR0_REGNUM; if (myaddr != NULL) { /* Provide bogusness */ memcpy (myaddr, val, 4); } supply_register(regnum, val); /* More bogusness */ if (lval != NULL) *lval = lval_register; if (actual_mem_addr != NULL) *actual_mem_addr = REGISTER_BYTE (regnum); } /* If it's in the part of the register stack that's in real registers, get the value from the registers. If it's anywhere else in memory (e.g. in another thread's saved stack), skip this part and get it from real live memory. */ else if (memaddr < rfb && memaddr >= rsp) { /* It's in a register. */ int regnum = (memaddr - rsp) / 4 + LR0_REGNUM; if (regnum > LR0_REGNUM + 127) error ("Attempt to read register stack out of range."); if (myaddr != NULL) read_register_gen (regnum, myaddr); if (lval != NULL) *lval = lval_register; if (actual_mem_addr != NULL) *actual_mem_addr = REGISTER_BYTE (regnum); } else { /* It's in the memory portion of the register stack. */ if (myaddr != NULL) read_memory (memaddr, myaddr, 4); if (lval != NULL) *lval = lval_memory; if (actual_mem_addr != NULL) *actual_mem_addr = memaddr; } } /* Analogous to read_memory_integer except the length is understood to be 4. */ long read_register_stack_integer (memaddr, len) CORE_ADDR memaddr; int len; { char buf[4]; read_register_stack (memaddr, buf, NULL, NULL); return extract_signed_integer (buf, 4); } /* Copy 4 bytes from GDB memory at MYADDR into inferior memory at MEMADDR and put the actual address written into in *ACTUAL_MEM_ADDR. */ static void write_register_stack (memaddr, myaddr, actual_mem_addr) CORE_ADDR memaddr; char *myaddr; CORE_ADDR *actual_mem_addr; { long rfb = read_register (RFB_REGNUM); long rsp = read_register (RSP_REGNUM); /* If we don't do this 'info register' stops in the middle. */ if (memaddr >= rstack_high_address) { /* It's in a register, but off the end of the stack. */ if (actual_mem_addr != NULL) *actual_mem_addr = 0; } else if (memaddr < rfb) { /* It's in a register. */ int regnum = (memaddr - rsp) / 4 + LR0_REGNUM; if (regnum < LR0_REGNUM || regnum > LR0_REGNUM + 127) error ("Attempt to read register stack out of range."); if (myaddr != NULL) write_register (regnum, *(long *)myaddr); if (actual_mem_addr != NULL) *actual_mem_addr = 0; } else { /* It's in the memory portion of the register stack. */ if (myaddr != NULL) write_memory (memaddr, myaddr, 4); if (actual_mem_addr != NULL) *actual_mem_addr = memaddr; } } /* Find register number REGNUM relative to FRAME and put its (raw) contents in *RAW_BUFFER. Set *OPTIMIZED if the variable was optimized out (and thus can't be fetched). If the variable was fetched from memory, set *ADDRP to where it was fetched from, otherwise it was fetched from a register. The argument RAW_BUFFER must point to aligned memory. */ void get_saved_register (raw_buffer, optimized, addrp, frame, regnum, lvalp) char *raw_buffer; int *optimized; CORE_ADDR *addrp; FRAME frame; int regnum; enum lval_type *lvalp; { struct frame_info *fi; CORE_ADDR addr; enum lval_type lval; if (frame == 0) return; fi = get_frame_info (frame); /* Once something has a register number, it doesn't get optimized out. */ if (optimized != NULL) *optimized = 0; if (regnum == RSP_REGNUM) { if (raw_buffer != NULL) { store_address (raw_buffer, REGISTER_RAW_SIZE (regnum), fi->frame); } if (lvalp != NULL) *lvalp = not_lval; return; } else if (regnum == PC_REGNUM) { if (raw_buffer != NULL) { store_address (raw_buffer, REGISTER_RAW_SIZE (regnum), fi->pc); } /* Not sure we have to do this. */ if (lvalp != NULL) *lvalp = not_lval; return; } else if (regnum == MSP_REGNUM) { if (raw_buffer != NULL) { if (fi->next != NULL) { store_address (raw_buffer, REGISTER_RAW_SIZE (regnum), fi->next->saved_msp); } else read_register_gen (MSP_REGNUM, raw_buffer); } /* The value may have been computed, not fetched. */ if (lvalp != NULL) *lvalp = not_lval; return; } else if (regnum < LR0_REGNUM || regnum >= LR0_REGNUM + 128) { /* These registers are not saved over procedure calls, so just print out the current values. */ if (raw_buffer != NULL) read_register_gen (regnum, raw_buffer); if (lvalp != NULL) *lvalp = lval_register; if (addrp != NULL) *addrp = REGISTER_BYTE (regnum); return; } addr = fi->frame + (regnum - LR0_REGNUM) * 4; if (raw_buffer != NULL) read_register_stack (addr, raw_buffer, &addr, &lval); if (lvalp != NULL) *lvalp = lval; if (addrp != NULL) *addrp = addr; } /* Discard from the stack the innermost frame, restoring all saved registers. */ void pop_frame () { FRAME frame = get_current_frame (); struct frame_info *fi = get_frame_info (frame); CORE_ADDR rfb = read_register (RFB_REGNUM); CORE_ADDR gr1 = fi->frame + fi->rsize; CORE_ADDR lr1; CORE_ADDR original_lr0; int must_fix_lr0 = 0; int i; /* If popping a dummy frame, need to restore registers. */ if (PC_IN_CALL_DUMMY (read_register (PC_REGNUM), read_register (SP_REGNUM), FRAME_FP (fi))) { int lrnum = LR0_REGNUM + DUMMY_ARG/4; for (i = 0; i < DUMMY_SAVE_SR128; ++i) write_register (SR_REGNUM (i + 128),read_register (lrnum++)); for (i = 0; i < DUMMY_SAVE_SR160; ++i) write_register (SR_REGNUM(i+160), read_register (lrnum++)); for (i = 0; i < DUMMY_SAVE_GREGS; ++i) write_register (RETURN_REGNUM + i, read_register (lrnum++)); /* Restore the PCs and prepare to restore LR0. */ write_register(PC_REGNUM, read_register (lrnum++)); write_register(NPC_REGNUM, read_register (lrnum++)); write_register(PC2_REGNUM, read_register (lrnum++)); original_lr0 = read_register (lrnum++); must_fix_lr0 = 1; } /* Restore the memory stack pointer. */ write_register (MSP_REGNUM, fi->saved_msp); /* Restore the register stack pointer. */ write_register (GR1_REGNUM, gr1); /* If we popped a dummy frame, restore lr0 now that gr1 has been restored. */ if (must_fix_lr0) write_register (LR0_REGNUM, original_lr0); /* Check whether we need to fill registers. */ lr1 = read_register (LR0_REGNUM + 1); if (lr1 > rfb) { /* Fill. */ int num_bytes = lr1 - rfb; int i; long word; write_register (RAB_REGNUM, read_register (RAB_REGNUM) + num_bytes); write_register (RFB_REGNUM, lr1); for (i = 0; i < num_bytes; i += 4) { /* Note: word is in host byte order. */ word = read_memory_integer (rfb + i, 4); write_register (LR0_REGNUM + ((rfb - gr1) % 0x80) + i / 4, word); } } flush_cached_frames (); set_current_frame (create_new_frame (0, read_pc())); } /* Push an empty stack frame, to record the current PC, etc. */ void push_dummy_frame () { long w; CORE_ADDR rab, gr1; CORE_ADDR msp = read_register (MSP_REGNUM); int lrnum, i; CORE_ADDR original_lr0; /* Read original lr0 before changing gr1. This order isn't really needed since GDB happens to have a snapshot of all the regs and doesn't toss it when gr1 is changed. But it's The Right Thing To Do. */ original_lr0 = read_register (LR0_REGNUM); /* Allocate the new frame. */ gr1 = read_register (GR1_REGNUM) - DUMMY_FRAME_RSIZE; write_register (GR1_REGNUM, gr1); rab = read_register (RAB_REGNUM); if (gr1 < rab) { /* We need to spill registers. */ int num_bytes = rab - gr1; CORE_ADDR rfb = read_register (RFB_REGNUM); int i; long word; write_register (RFB_REGNUM, rfb - num_bytes); write_register (RAB_REGNUM, gr1); for (i = 0; i < num_bytes; i += 4) { /* Note: word is in target byte order. */ read_register_gen (LR0_REGNUM + i / 4, (char *) &word); write_memory (rfb - num_bytes + i, (char *) &word, 4); } } /* There are no arguments in to the dummy frame, so we don't need more than rsize plus the return address and lr1. */ write_register (LR0_REGNUM + 1, gr1 + DUMMY_FRAME_RSIZE + 2 * 4); /* Set the memory frame pointer. */ write_register (LR0_REGNUM + DUMMY_FRAME_RSIZE / 4 - 1, msp); /* Allocate arg_slop. */ write_register (MSP_REGNUM, msp - 16 * 4); /* Save registers. */ lrnum = LR0_REGNUM + DUMMY_ARG/4; for (i = 0; i < DUMMY_SAVE_SR128; ++i) write_register (lrnum++, read_register (SR_REGNUM (i + 128))); for (i = 0; i < DUMMY_SAVE_SR160; ++i) write_register (lrnum++, read_register (SR_REGNUM (i + 160))); for (i = 0; i < DUMMY_SAVE_GREGS; ++i) write_register (lrnum++, read_register (RETURN_REGNUM + i)); /* Save the PCs and LR0. */ write_register (lrnum++, read_register (PC_REGNUM)); write_register (lrnum++, read_register (NPC_REGNUM)); write_register (lrnum++, read_register (PC2_REGNUM)); /* Why are we saving LR0? What would clobber it? (the dummy frame should be below it on the register stack, no?). */ write_register (lrnum++, original_lr0); } /* This routine takes three arguments and makes the cached frames look as if these arguments defined a frame on the cache. This allows the rest of `info frame' to extract the important arguments without much difficulty. Since an individual frame on the 29K is determined by three values (FP, PC, and MSP), we really need all three to do a good job. */ FRAME setup_arbitrary_frame (argc, argv) int argc; FRAME_ADDR *argv; { FRAME fid; if (argc != 3) error ("AMD 29k frame specifications require three arguments: rsp pc msp"); fid = create_new_frame (argv[0], argv[1]); if (!fid) fatal ("internal: create_new_frame returned invalid frame id"); /* Creating a new frame munges the `frame' value from the current GR1, so we restore it again here. FIXME, untangle all this 29K frame stuff... */ fid->frame = argv[0]; /* Our MSP is in argv[2]. It'd be intelligent if we could just save this value in the FRAME. But the way it's set up (FIXME), we must save our caller's MSP. We compute that by adding our memory stack frame size to our MSP. */ fid->saved_msp = argv[2] + fid->msize; return fid; } enum a29k_processor_types processor_type = a29k_unknown; void a29k_get_processor_type () { unsigned int cfg_reg = (unsigned int) read_register (CFG_REGNUM); /* Most of these don't have freeze mode. */ processor_type = a29k_no_freeze_mode; switch ((cfg_reg >> 28) & 0xf) { case 0: fprintf_filtered (gdb_stderr, "Remote debugging an Am29000"); break; case 1: fprintf_filtered (gdb_stderr, "Remote debugging an Am29005"); break; case 2: fprintf_filtered (gdb_stderr, "Remote debugging an Am29050"); processor_type = a29k_freeze_mode; break; case 3: fprintf_filtered (gdb_stderr, "Remote debugging an Am29035"); break; case 4: fprintf_filtered (gdb_stderr, "Remote debugging an Am29030"); break; case 5: fprintf_filtered (gdb_stderr, "Remote debugging an Am2920*"); break; case 6: fprintf_filtered (gdb_stderr, "Remote debugging an Am2924*"); break; case 7: fprintf_filtered (gdb_stderr, "Remote debugging an Am29040"); break; default: fprintf_filtered (gdb_stderr, "Remote debugging an unknown Am29k\n"); /* Don't bother to print the revision. */ return; } fprintf_filtered (gdb_stderr, " revision %c\n", 'A' + ((cfg_reg >> 24) & 0x0f)); } void _initialize_29k() { extern CORE_ADDR text_end; /* FIXME, there should be a way to make a CORE_ADDR variable settable. */ add_show_from_set (add_set_cmd ("rstack_high_address", class_support, var_uinteger, (char *)&rstack_high_address, "Set top address in memory of the register stack.\n\ Attempts to access registers saved above this address will be ignored\n\ or will produce the value -1.", &setlist), &showlist); /* FIXME, there should be a way to make a CORE_ADDR variable settable. */ add_show_from_set (add_set_cmd ("call_scratch_address", class_support, var_uinteger, (char *)&text_end, "Set address in memory where small amounts of RAM can be used\n\ when making function calls into the inferior.", &setlist), &showlist); } gdb-4.13/gdb/a68v-nat.c 666 34562 1752 10243 5472234004 13021 0ustar fnfcygnus/* Host-dependent code for Apollo-68ks for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #ifndef _ISP__M68K #define _ISP__M68K 1 #endif #include extern int errno; void fetch_inferior_registers (ignored) int ignored; { struct ptrace_$data_regs_m68k inferior_registers; struct ptrace_$floating_regs_m68k inferior_fp_registers; struct ptrace_$control_regs_m68k inferior_control_registers; extern char registers[]; ptrace_$init_control(&inferior_control_registers); inferior_fp_registers.size = sizeof(inferior_fp_registers); registers_fetched (); ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers, ptrace_$data_set, (PTRACE_ARG3_TYPE) &inferior_registers, ptrace_$data_set); ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers, ptrace_$floating_set_m68k, (PTRACE_ARG3_TYPE) &inferior_fp_registers, ptrace_$floating_set_m68k); ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_control_registers, ptrace_$control_set_m68k, (PTRACE_ARG3_TYPE) &inferior_control_registers, ptrace_$control_set_m68k); bcopy (&inferior_registers, registers, 16 * 4); bcopy (&inferior_fp_registers, ®isters[REGISTER_BYTE (FP0_REGNUM)], sizeof inferior_fp_registers.regs); *(int *)®isters[REGISTER_BYTE (PS_REGNUM)] = inferior_control_registers.sr; *(int *)®isters[REGISTER_BYTE (PC_REGNUM)] = inferior_control_registers.pc; } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { struct ptrace_$data_regs_m68k inferior_registers; struct ptrace_$floating_regs_m68k inferior_fp_registers; struct ptrace_$control_regs_m68k inferior_control_registers; extern char registers[]; ptrace_$init_control(&inferior_control_registers); inferior_fp_registers.size = sizeof(inferior_fp_registers); ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers, ptrace_$floating_set_m68k, (PTRACE_ARG3_TYPE) &inferior_fp_registers, ptrace_$floating_set_m68k); ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_control_registers, ptrace_$control_set_m68k, (PTRACE_ARG3_TYPE) &inferior_control_registers, ptrace_$control_set_m68k); bcopy (registers, &inferior_registers, sizeof(inferior_registers)); bcopy (®isters[REGISTER_BYTE (FP0_REGNUM)], inferior_fp_registers.regs, sizeof inferior_fp_registers.regs); inferior_control_registers.sr = *(int *)®isters[REGISTER_BYTE (PS_REGNUM)]; inferior_control_registers.pc = *(int *)®isters[REGISTER_BYTE (PC_REGNUM)]; ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers, ptrace_$data_set_m68k, (PTRACE_ARG3_TYPE) &inferior_registers, ptrace_$data_set_m68k); ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers, ptrace_$floating_set_m68k, (PTRACE_ARG3_TYPE) &inferior_fp_registers, ptrace_$floating_set_m68k); ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_control_registers, ptrace_$control_set_m68k, (PTRACE_ARG3_TYPE) &inferior_control_registers, ptrace_$control_set_m68k); } /* Apollos don't dump cores */ void fetch_core_registers (core_reg_sect, core_reg_size, which) char *core_reg_sect; unsigned core_reg_size; int which; { } gdb-4.13/gdb/alpha-nat.c 666 34562 1752 10643 5454347224 13337 0ustar fnfcygnus/* Low level Alpha interface, for GDB when running native. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "gdbcore.h" #include "target.h" #include #include /* Size of elements in jmpbuf */ #define JB_ELEMENT_SIZE 8 /* The definition for JB_PC in machine/reg.h is wrong. And we can't get at the correct definition in setjmp.h as it is not always available (eg. if _POSIX_SOURCE is defined which is the default). As the defintion is unlikely to change (see comment in , define the correct value here. */ #undef JB_PC #define JB_PC 2 /* Figure out where the longjmp will land. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into PC. This routine returns true on success. */ int get_longjmp_target (pc) CORE_ADDR *pc; { CORE_ADDR jb_addr; char raw_buffer[MAX_REGISTER_RAW_SIZE]; jb_addr = read_register(A0_REGNUM); if (target_read_memory(jb_addr + JB_PC * JB_ELEMENT_SIZE, raw_buffer, sizeof(CORE_ADDR))) return 0; *pc = extract_address (raw_buffer, sizeof(CORE_ADDR)); return 1; } /* Extract the register values out of the core file and store them where `read_register' will find them. CORE_REG_SECT points to the register values themselves, read into memory. CORE_REG_SIZE is the size of that area. WHICH says which set of registers we are handling (0 = int, 2 = float on machines where they are discontiguous). REG_ADDR is the offset from u.u_ar0 to the register values relative to core_reg_sect. This is used with old-fashioned core files to locate the registers in a large upage-plus-stack ".reg" section. Original upage address X is at location core_reg_sect+x+reg_addr. */ void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned reg_addr; { register int regno; register int addr; int bad_reg = -1; /* Table to map a gdb regnum to an index in the core register section. The floating point register values are garbage in OSF/1.2 core files. */ static int core_reg_mapping[NUM_REGS] = { #define EFL (EF_SIZE / 8) EF_V0, EF_T0, EF_T1, EF_T2, EF_T3, EF_T4, EF_T5, EF_T6, EF_T7, EF_S0, EF_S1, EF_S2, EF_S3, EF_S4, EF_S5, EF_S6, EF_A0, EF_A1, EF_A2, EF_A3, EF_A4, EF_A5, EF_T8, EF_T9, EF_T10, EF_T11, EF_RA, EF_T12, EF_AT, EF_GP, EF_SP, -1, EFL+0, EFL+1, EFL+2, EFL+3, EFL+4, EFL+5, EFL+6, EFL+7, EFL+8, EFL+9, EFL+10, EFL+11, EFL+12, EFL+13, EFL+14, EFL+15, EFL+16, EFL+17, EFL+18, EFL+19, EFL+20, EFL+21, EFL+22, EFL+23, EFL+24, EFL+25, EFL+26, EFL+27, EFL+28, EFL+29, EFL+30, EFL+31, EF_PC, -1 }; static char zerobuf[MAX_REGISTER_RAW_SIZE] = {0}; for (regno = 0; regno < NUM_REGS; regno++) { if (CANNOT_FETCH_REGISTER (regno)) { supply_register (regno, zerobuf); continue; } addr = 8 * core_reg_mapping[regno]; if (addr < 0 || addr >= core_reg_size) { if (bad_reg < 0) bad_reg = regno; } else { supply_register (regno, core_reg_sect + addr); } } if (bad_reg >= 0) { error ("Register %s not found in core file.", reg_names[bad_reg]); } } /* Map gdb internal register number to a ptrace ``address''. These ``addresses'' are defined in */ #define REGISTER_PTRACE_ADDR(regno) \ (regno < FP0_REGNUM ? GPR_BASE + (regno) \ : regno == PC_REGNUM ? PC \ : regno >= FP0_REGNUM ? FPR_BASE + ((regno) - FP0_REGNUM) \ : 0) /* Return the ptrace ``address'' of register REGNO. */ unsigned int register_addr (regno, blockend) int regno; int blockend; { return REGISTER_PTRACE_ADDR (regno); } gdb-4.13/gdb/alpha-tdep.c 666 34562 1752 107162 5551123226 13524 0ustar fnfcygnus/* Target-dependent code for the ALPHA architecture, for GDB, the GNU Debugger. Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "symtab.h" #include "value.h" #include "gdbcmd.h" #include "gdbcore.h" #include "dis-asm.h" #include "symfile.h" #include "objfiles.h" /* FIXME: Some of this code should perhaps be merged with mips-tdep.c. */ /* FIXME: Put this declaration in frame.h. */ extern struct obstack frame_cache_obstack; /* Forward declarations. */ static CORE_ADDR read_next_frame_reg PARAMS ((FRAME, int)); static CORE_ADDR heuristic_proc_start PARAMS ((CORE_ADDR)); static alpha_extra_func_info_t heuristic_proc_desc PARAMS ((CORE_ADDR, CORE_ADDR, FRAME)); static alpha_extra_func_info_t find_proc_desc PARAMS ((CORE_ADDR, FRAME)); static int alpha_in_lenient_prologue PARAMS ((CORE_ADDR, CORE_ADDR)); static void reinit_frame_cache_sfunc PARAMS ((char *, int, struct cmd_list_element *)); static CORE_ADDR after_prologue PARAMS ((CORE_ADDR pc, alpha_extra_func_info_t proc_desc)); static int in_prologue PARAMS ((CORE_ADDR pc, alpha_extra_func_info_t proc_desc)); /* Heuristic_proc_start may hunt through the text section for a long time across a 2400 baud serial line. Allows the user to limit this search. */ static unsigned int heuristic_fence_post = 0; /* Layout of a stack frame on the alpha: | | pdr members: | 7th ... nth arg, | | `pushed' by caller. | | | ----------------|-------------------------------|<-- old_sp == vfp ^ ^ ^ ^ | | | | | | | | | |localoff | Copies of 1st .. 6th | | | | | | argument if necessary. | | | | v | | | | | --- |-------------------------------|<-- FRAME_LOCALS_ADDRESS | | | | | | | | | Locals and temporaries. | | | | | | | | | |-------------------------------| | | | | | |-fregoffset | Saved float registers. | | | | | F9 | | | | | . | | | | | . | | | | | F2 | | | v | | | | -------|-------------------------------| | | | | | | | Saved registers. | | | | S6 | |-regoffset | . | | | | . | | | | S0 | | | | pdr.pcreg | | v | | | ----------|-------------------------------| | | | frameoffset | Argument build area, gets | | | 7th ... nth arg for any | | | called procedure. | v | | -------------|-------------------------------|<-- sp | | */ #define PROC_LOW_ADDR(proc) ((proc)->pdr.adr) /* least address */ #define PROC_HIGH_ADDR(proc) ((proc)->pdr.iline) /* upper address bound */ #define PROC_DUMMY_FRAME(proc) ((proc)->pdr.iopt) /* frame for CALL_DUMMY */ #define PROC_FRAME_OFFSET(proc) ((proc)->pdr.frameoffset) #define PROC_FRAME_REG(proc) ((proc)->pdr.framereg) #define PROC_REG_MASK(proc) ((proc)->pdr.regmask) #define PROC_FREG_MASK(proc) ((proc)->pdr.fregmask) #define PROC_REG_OFFSET(proc) ((proc)->pdr.regoffset) #define PROC_FREG_OFFSET(proc) ((proc)->pdr.fregoffset) #define PROC_PC_REG(proc) ((proc)->pdr.pcreg) #define PROC_LOCALOFF(proc) ((proc)->pdr.localoff) #define PROC_SYMBOL(proc) (*(struct symbol**)&(proc)->pdr.isym) #define _PROC_MAGIC_ 0x0F0F0F0F #define PROC_DESC_IS_DUMMY(proc) ((proc)->pdr.isym == _PROC_MAGIC_) #define SET_PROC_DESC_IS_DUMMY(proc) ((proc)->pdr.isym = _PROC_MAGIC_) struct linked_proc_info { struct alpha_extra_func_info info; struct linked_proc_info *next; } *linked_proc_desc_table = NULL; /* Guaranteed to set fci->saved_regs to some values (it never leaves it NULL). */ void alpha_find_saved_regs (fci) FRAME fci; { int ireg; CORE_ADDR reg_position; unsigned long mask; alpha_extra_func_info_t proc_desc; int returnreg; fci->saved_regs = (struct frame_saved_regs *) obstack_alloc (&frame_cache_obstack, sizeof(struct frame_saved_regs)); memset (fci->saved_regs, 0, sizeof (struct frame_saved_regs)); proc_desc = fci->proc_desc; if (proc_desc == NULL) /* I'm not sure how/whether this can happen. Normally when we can't find a proc_desc, we "synthesize" one using heuristic_proc_desc and set the saved_regs right away. */ return; /* Fill in the offsets for the registers which gen_mask says were saved. */ reg_position = fci->frame + PROC_REG_OFFSET (proc_desc); mask = PROC_REG_MASK (proc_desc); returnreg = PROC_PC_REG (proc_desc); /* Note that RA is always saved first, regardless of it's actual register number. */ if (mask & (1 << returnreg)) { fci->saved_regs->regs[returnreg] = reg_position; reg_position += 8; mask &= ~(1 << returnreg); /* Clear bit for RA so we don't save again later. */ } for (ireg = 0; ireg <= 31 ; ++ireg) if (mask & (1 << ireg)) { fci->saved_regs->regs[ireg] = reg_position; reg_position += 8; } /* Fill in the offsets for the registers which float_mask says were saved. */ reg_position = fci->frame + PROC_FREG_OFFSET (proc_desc); mask = PROC_FREG_MASK (proc_desc); for (ireg = 0; ireg <= 31 ; ++ireg) if (mask & (1 << ireg)) { fci->saved_regs->regs[FP0_REGNUM+ireg] = reg_position; reg_position += 8; } fci->saved_regs->regs[PC_REGNUM] = fci->saved_regs->regs[returnreg]; } static CORE_ADDR read_next_frame_reg(fi, regno) FRAME fi; int regno; { /* If it is the frame for sigtramp we have a pointer to the sigcontext on the stack. If the stack layout for __sigtramp changes or if sigcontext offsets change we might have to update this code. */ #ifndef SIGFRAME_PC_OFF #define SIGFRAME_PC_OFF (2 * 8) #define SIGFRAME_REGSAVE_OFF (4 * 8) #endif for (; fi; fi = fi->next) { if (fi->signal_handler_caller) { int offset; CORE_ADDR sigcontext_addr = read_memory_integer(fi->frame, 8); if (regno == PC_REGNUM) offset = SIGFRAME_PC_OFF; else if (regno < 32) offset = SIGFRAME_REGSAVE_OFF + regno * 8; else return 0; return read_memory_integer(sigcontext_addr + offset, 8); } else if (regno == SP_REGNUM) return fi->frame; else { if (fi->saved_regs == NULL) alpha_find_saved_regs (fi); if (fi->saved_regs->regs[regno]) return read_memory_integer(fi->saved_regs->regs[regno], 8); } } return read_register(regno); } CORE_ADDR alpha_frame_saved_pc(frame) FRAME frame; { alpha_extra_func_info_t proc_desc = frame->proc_desc; /* We have to get the saved pc from the sigcontext if it is a signal handler frame. */ int pcreg = frame->signal_handler_caller ? PC_REGNUM : (proc_desc ? PROC_PC_REG(proc_desc) : RA_REGNUM); if (proc_desc && PROC_DESC_IS_DUMMY(proc_desc)) return read_memory_integer(frame->frame - 8, 8); return read_next_frame_reg(frame, pcreg); } CORE_ADDR alpha_saved_pc_after_call (frame) FRAME frame; { alpha_extra_func_info_t proc_desc = find_proc_desc (frame->pc, frame->next); int pcreg = proc_desc ? PROC_PC_REG (proc_desc) : RA_REGNUM; return read_register (pcreg); } static struct alpha_extra_func_info temp_proc_desc; static struct frame_saved_regs temp_saved_regs; /* This fencepost looks highly suspicious to me. Removing it also seems suspicious as it could affect remote debugging across serial lines. */ static CORE_ADDR heuristic_proc_start(pc) CORE_ADDR pc; { CORE_ADDR start_pc = pc; CORE_ADDR fence = start_pc - heuristic_fence_post; if (start_pc == 0) return 0; if (heuristic_fence_post == UINT_MAX || fence < VM_MIN_ADDRESS) fence = VM_MIN_ADDRESS; /* search back for previous return */ for (start_pc -= 4; ; start_pc -= 4) if (start_pc < fence) { /* It's not clear to me why we reach this point when stop_soon_quietly, but with this test, at least we don't print out warnings for every child forked (eg, on decstation). 22apr93 rich@cygnus.com. */ if (!stop_soon_quietly) { static int blurb_printed = 0; if (fence == VM_MIN_ADDRESS) warning("Hit beginning of text section without finding"); else warning("Hit heuristic-fence-post without finding"); warning("enclosing function for address 0x%lx", pc); if (!blurb_printed) { printf_filtered ("\ This warning occurs if you are debugging a function without any symbols\n\ (for example, in a stripped executable). In that case, you may wish to\n\ increase the size of the search with the `set heuristic-fence-post' command.\n\ \n\ Otherwise, you told GDB there was a function where there isn't one, or\n\ (more likely) you have encountered a bug in GDB.\n"); blurb_printed = 1; } } return 0; } else if (ABOUT_TO_RETURN(start_pc)) break; start_pc += 4; /* skip return */ return start_pc; } static alpha_extra_func_info_t heuristic_proc_desc(start_pc, limit_pc, next_frame) CORE_ADDR start_pc, limit_pc; FRAME next_frame; { CORE_ADDR sp = read_next_frame_reg (next_frame, SP_REGNUM); CORE_ADDR cur_pc; int frame_size; int has_frame_reg = 0; unsigned long reg_mask = 0; if (start_pc == 0) return NULL; memset(&temp_proc_desc, '\0', sizeof(temp_proc_desc)); memset(&temp_saved_regs, '\0', sizeof(struct frame_saved_regs)); PROC_LOW_ADDR(&temp_proc_desc) = start_pc; if (start_pc + 200 < limit_pc) limit_pc = start_pc + 200; frame_size = 0; for (cur_pc = start_pc; cur_pc < limit_pc; cur_pc += 4) { char buf[4]; unsigned long word; int status; status = read_memory_nobpt (cur_pc, buf, 4); if (status) memory_error (status, cur_pc); word = extract_unsigned_integer (buf, 4); if ((word & 0xffff0000) == 0x23de0000) /* lda $sp,n($sp) */ frame_size += (-word) & 0xffff; else if ((word & 0xfc1f0000) == 0xb41e0000 /* stq reg,n($sp) */ && (word & 0xffff0000) != 0xb7fe0000) /* reg != $zero */ { int reg = (word & 0x03e00000) >> 21; reg_mask |= 1 << reg; temp_saved_regs.regs[reg] = sp + (short)word; } else if (word == 0x47de040f) /* bis sp,sp fp */ has_frame_reg = 1; } if (has_frame_reg) PROC_FRAME_REG(&temp_proc_desc) = GCC_FP_REGNUM; else PROC_FRAME_REG(&temp_proc_desc) = SP_REGNUM; PROC_FRAME_OFFSET(&temp_proc_desc) = frame_size; PROC_REG_MASK(&temp_proc_desc) = reg_mask; PROC_PC_REG(&temp_proc_desc) = RA_REGNUM; PROC_LOCALOFF(&temp_proc_desc) = 0; /* XXX - bogus */ return &temp_proc_desc; } /* This returns the PC of the first inst after the prologue. If we can't find the prologue, then return 0. */ static CORE_ADDR after_prologue (pc, proc_desc) CORE_ADDR pc; alpha_extra_func_info_t proc_desc; { struct block *b; struct symtab_and_line sal; CORE_ADDR func_addr, func_end; if (!proc_desc) proc_desc = find_proc_desc (pc, NULL); if (proc_desc) { /* If function is frameless, then we need to do it the hard way. I strongly suspect that frameless always means prologueless... */ if (PROC_FRAME_REG (proc_desc) == SP_REGNUM && PROC_FRAME_OFFSET (proc_desc) == 0) return 0; } if (!find_pc_partial_function (pc, NULL, &func_addr, &func_end)) return 0; /* Unknown */ sal = find_pc_line (func_addr, 0); if (sal.end < func_end) return sal.end; /* The line after the prologue is after the end of the function. In this case, tell the caller to find the prologue the hard way. */ return 0; } /* Return non-zero if we *might* be in a function prologue. Return zero if we are definatly *not* in a function prologue. */ static int in_prologue (pc, proc_desc) CORE_ADDR pc; alpha_extra_func_info_t proc_desc; { CORE_ADDR after_prologue_pc; after_prologue_pc = after_prologue (pc, proc_desc); if (after_prologue_pc == 0 || pc < after_prologue_pc) return 1; else return 0; } static alpha_extra_func_info_t find_proc_desc(pc, next_frame) CORE_ADDR pc; FRAME next_frame; { alpha_extra_func_info_t proc_desc; struct block *b; struct symbol *sym; CORE_ADDR startaddr; /* Try to get the proc_desc from the linked call dummy proc_descs if the pc is in the call dummy. This is hairy. In the case of nested dummy calls we have to find the right proc_desc, but we might not yet know the frame for the dummy as it will be contained in the proc_desc we are searching for. So we have to find the proc_desc whose frame is closest to the current stack pointer. */ if (PC_IN_CALL_DUMMY (pc, 0, 0)) { struct linked_proc_info *link; CORE_ADDR sp = read_next_frame_reg (next_frame, SP_REGNUM); alpha_extra_func_info_t found_proc_desc = NULL; long min_distance = LONG_MAX; for (link = linked_proc_desc_table; link; link = link->next) { long distance = (CORE_ADDR) PROC_DUMMY_FRAME (&link->info) - sp; if (distance > 0 && distance < min_distance) { min_distance = distance; found_proc_desc = &link->info; } } if (found_proc_desc != NULL) return found_proc_desc; } b = block_for_pc(pc); find_pc_partial_function (pc, NULL, &startaddr, NULL); if (b == NULL) sym = NULL; else { if (startaddr > BLOCK_START (b)) /* This is the "pathological" case referred to in a comment in print_frame_info. It might be better to move this check into symbol reading. */ sym = NULL; else sym = lookup_symbol (MIPS_EFI_SYMBOL_NAME, b, LABEL_NAMESPACE, 0, NULL); } if (sym) { /* IF this is the topmost frame AND * (this proc does not have debugging information OR * the PC is in the procedure prologue) * THEN create a "heuristic" proc_desc (by analyzing * the actual code) to replace the "official" proc_desc. */ proc_desc = (alpha_extra_func_info_t)SYMBOL_VALUE(sym); if (next_frame == NULL) { if (PROC_DESC_IS_DUMMY (proc_desc) || in_prologue (pc, proc_desc)) { alpha_extra_func_info_t found_heuristic = heuristic_proc_desc (PROC_LOW_ADDR (proc_desc), pc, next_frame); PROC_LOCALOFF (found_heuristic) = PROC_LOCALOFF (proc_desc); if (found_heuristic) proc_desc = found_heuristic; } } } else { /* Is linked_proc_desc_table really necessary? It only seems to be used by procedure call dummys. However, the procedures being called ought to have their own proc_descs, and even if they don't, heuristic_proc_desc knows how to create them! */ register struct linked_proc_info *link; for (link = linked_proc_desc_table; link; link = link->next) if (PROC_LOW_ADDR(&link->info) <= pc && PROC_HIGH_ADDR(&link->info) > pc) return &link->info; if (startaddr == 0) startaddr = heuristic_proc_start (pc); proc_desc = heuristic_proc_desc (startaddr, pc, next_frame); } return proc_desc; } alpha_extra_func_info_t cached_proc_desc; FRAME_ADDR alpha_frame_chain(frame) FRAME frame; { alpha_extra_func_info_t proc_desc; CORE_ADDR saved_pc = FRAME_SAVED_PC(frame); if (saved_pc == 0 || inside_entry_file (saved_pc)) return 0; proc_desc = find_proc_desc(saved_pc, frame); if (!proc_desc) return 0; cached_proc_desc = proc_desc; /* Fetch the frame pointer for a dummy frame from the procedure descriptor. */ if (PROC_DESC_IS_DUMMY(proc_desc)) return (FRAME_ADDR) PROC_DUMMY_FRAME(proc_desc); /* If no frame pointer and frame size is zero, we must be at end of stack (or otherwise hosed). If we don't check frame size, we loop forever if we see a zero size frame. */ if (PROC_FRAME_REG (proc_desc) == SP_REGNUM && PROC_FRAME_OFFSET (proc_desc) == 0 /* The previous frame from a sigtramp frame might be frameless and have frame size zero. */ && !frame->signal_handler_caller) { /* The alpha __sigtramp routine is frameless and has a frame size of zero, but we are able to backtrace through it. */ char *name; find_pc_partial_function (saved_pc, &name, (CORE_ADDR *)NULL, (CORE_ADDR *)NULL); if (IN_SIGTRAMP (saved_pc, name)) return frame->frame; else return 0; } else return read_next_frame_reg(frame, PROC_FRAME_REG(proc_desc)) + PROC_FRAME_OFFSET(proc_desc); } void init_extra_frame_info(fci) struct frame_info *fci; { /* Use proc_desc calculated in frame_chain */ alpha_extra_func_info_t proc_desc = fci->next ? cached_proc_desc : find_proc_desc(fci->pc, fci->next); fci->saved_regs = NULL; fci->proc_desc = proc_desc == &temp_proc_desc ? 0 : proc_desc; if (proc_desc) { /* Get the locals offset from the procedure descriptor, it is valid even if we are in the middle of the prologue. */ fci->localoff = PROC_LOCALOFF(proc_desc); /* Fixup frame-pointer - only needed for top frame */ /* Fetch the frame pointer for a dummy frame from the procedure descriptor. */ if (PROC_DESC_IS_DUMMY(proc_desc)) fci->frame = (FRAME_ADDR) PROC_DUMMY_FRAME(proc_desc); /* This may not be quite right, if proc has a real frame register. Get the value of the frame relative sp, procedure might have been interrupted by a signal at it's very start. */ else if (fci->pc == PROC_LOW_ADDR (proc_desc) && !PROC_DESC_IS_DUMMY (proc_desc)) fci->frame = read_next_frame_reg (fci->next, SP_REGNUM); else fci->frame = read_next_frame_reg (fci->next, PROC_FRAME_REG (proc_desc)) + PROC_FRAME_OFFSET (proc_desc); if (proc_desc == &temp_proc_desc) { fci->saved_regs = (struct frame_saved_regs*) obstack_alloc (&frame_cache_obstack, sizeof (struct frame_saved_regs)); *fci->saved_regs = temp_saved_regs; fci->saved_regs->regs[PC_REGNUM] = fci->saved_regs->regs[RA_REGNUM]; } } } /* ALPHA stack frames are almost impenetrable. When execution stops, we basically have to look at symbol information for the function that we stopped in, which tells us *which* register (if any) is the base of the frame pointer, and what offset from that register the frame itself is at. This presents a problem when trying to examine a stack in memory (that isn't executing at the moment), using the "frame" command. We don't have a PC, nor do we have any registers except SP. This routine takes two arguments, SP and PC, and tries to make the cached frames look as if these two arguments defined a frame on the cache. This allows the rest of info frame to extract the important arguments without difficulty. */ FRAME setup_arbitrary_frame (argc, argv) int argc; FRAME_ADDR *argv; { if (argc != 2) error ("ALPHA frame specifications require two arguments: sp and pc"); return create_new_frame (argv[0], argv[1]); } /* The alpha passes the first six arguments in the registers, the rest on the stack. The register arguments are eventually transferred to the argument transfer area immediately below the stack by the called function anyway. So we `push' at least six arguments on the stack, `reload' the argument registers and then adjust the stack pointer to point past the sixth argument. This algorithm simplifies the passing of a large struct which extends from the registers to the stack. If the called function is returning a structure, the address of the structure to be returned is passed as a hidden first argument. */ CORE_ADDR alpha_push_arguments (nargs, args, sp, struct_return, struct_addr) int nargs; value_ptr *args; CORE_ADDR sp; int struct_return; CORE_ADDR struct_addr; { register i; int accumulate_size = struct_return ? 8 : 0; int arg_regs_size = ALPHA_NUM_ARG_REGS * 8; struct alpha_arg { char *contents; int len; int offset; }; struct alpha_arg *alpha_args = (struct alpha_arg*)alloca (nargs * sizeof (struct alpha_arg)); register struct alpha_arg *m_arg; char raw_buffer[sizeof (CORE_ADDR)]; int required_arg_regs; for (i = 0, m_arg = alpha_args; i < nargs; i++, m_arg++) { value_ptr arg = value_arg_coerce (args[i]); /* Cast argument to long if necessary as the compiler does it too. */ if (TYPE_LENGTH (VALUE_TYPE (arg)) < TYPE_LENGTH (builtin_type_long)) arg = value_cast (builtin_type_long, arg); m_arg->len = TYPE_LENGTH (VALUE_TYPE (arg)); m_arg->offset = accumulate_size; accumulate_size = (accumulate_size + m_arg->len + 7) & ~7; m_arg->contents = VALUE_CONTENTS(arg); } /* Determine required argument register loads, loading an argument register is expensive as it uses three ptrace calls. */ required_arg_regs = accumulate_size / 8; if (required_arg_regs > ALPHA_NUM_ARG_REGS) required_arg_regs = ALPHA_NUM_ARG_REGS; /* Make room for the arguments on the stack. */ if (accumulate_size < arg_regs_size) accumulate_size = arg_regs_size; sp -= accumulate_size; /* Keep sp aligned to a multiple of 16 as the compiler does it too. */ sp &= ~15; /* `Push' arguments on the stack. */ for (i = nargs; m_arg--, --i >= 0; ) write_memory(sp + m_arg->offset, m_arg->contents, m_arg->len); if (struct_return) { store_address (raw_buffer, sizeof (CORE_ADDR), struct_addr); write_memory (sp, raw_buffer, sizeof (CORE_ADDR)); } /* Load the argument registers. */ for (i = 0; i < required_arg_regs; i++) { LONGEST val; val = read_memory_integer (sp + i * 8, 8); write_register (A0_REGNUM + i, val); write_register (FPA0_REGNUM + i, val); } return sp + arg_regs_size; } void alpha_push_dummy_frame() { int ireg; struct linked_proc_info *link; alpha_extra_func_info_t proc_desc; CORE_ADDR sp = read_register (SP_REGNUM); CORE_ADDR save_address; char raw_buffer[MAX_REGISTER_RAW_SIZE]; unsigned long mask; link = (struct linked_proc_info *) xmalloc(sizeof (struct linked_proc_info)); link->next = linked_proc_desc_table; linked_proc_desc_table = link; proc_desc = &link->info; /* * The registers we must save are all those not preserved across * procedure calls. * In addition, we must save the PC and RA. * * Dummy frame layout: * (high memory) * Saved PC * Saved F30 * ... * Saved F0 * Saved R29 * ... * Saved R0 * Saved R26 (RA) * Parameter build area * (low memory) */ /* MASK(i,j) == (1<>= 1) if (mask & 1) { if (ireg == RA_REGNUM) continue; store_address (raw_buffer, 8, read_register (ireg)); write_memory (save_address, raw_buffer, 8); save_address += 8; } store_address (raw_buffer, 8, read_register (PC_REGNUM)); write_memory (sp - 8, raw_buffer, 8); /* Save floating point registers. */ save_address = sp + PROC_FREG_OFFSET(proc_desc); mask = PROC_FREG_MASK(proc_desc) & 0xffffffffL; for (ireg = 0; mask; ireg++, mask >>= 1) if (mask & 1) { store_address (raw_buffer, 8, read_register (ireg + FP0_REGNUM)); write_memory (save_address, raw_buffer, 8); save_address += 8; } /* Set and save the frame address for the dummy. This is tricky. The only registers that are suitable for a frame save are those that are preserved across procedure calls (s0-s6). But if a read system call is interrupted and then a dummy call is made (see testsuite/gdb.t17/interrupt.exp) the dummy call hangs till the read is satisfied. Then it returns with the s0-s6 registers set to the values on entry to the read system call and our dummy frame pointer would be destroyed. So we save the dummy frame in the proc_desc and handle the retrieval of the frame pointer of a dummy specifically. The frame register is set to the virtual frame (pseudo) register, it's value will always be read as zero and will help us to catch any errors in the dummy frame retrieval code. */ PROC_DUMMY_FRAME(proc_desc) = sp; PROC_FRAME_REG(proc_desc) = FP_REGNUM; PROC_FRAME_OFFSET(proc_desc) = 0; sp += PROC_REG_OFFSET(proc_desc); write_register (SP_REGNUM, sp); PROC_LOW_ADDR(proc_desc) = CALL_DUMMY_ADDRESS (); PROC_HIGH_ADDR(proc_desc) = PROC_LOW_ADDR(proc_desc) + 4; SET_PROC_DESC_IS_DUMMY(proc_desc); PROC_PC_REG(proc_desc) = RA_REGNUM; } void alpha_pop_frame() { register int regnum; FRAME frame = get_current_frame (); CORE_ADDR new_sp = frame->frame; alpha_extra_func_info_t proc_desc = frame->proc_desc; write_register (PC_REGNUM, FRAME_SAVED_PC(frame)); if (frame->saved_regs == NULL) alpha_find_saved_regs (frame); if (proc_desc) { for (regnum = 32; --regnum >= 0; ) if (PROC_REG_MASK(proc_desc) & (1 << regnum)) write_register (regnum, read_memory_integer (frame->saved_regs->regs[regnum], 8)); for (regnum = 32; --regnum >= 0; ) if (PROC_FREG_MASK(proc_desc) & (1 << regnum)) write_register (regnum + FP0_REGNUM, read_memory_integer (frame->saved_regs->regs[regnum + FP0_REGNUM], 8)); } write_register (SP_REGNUM, new_sp); flush_cached_frames (); /* We let init_extra_frame_info figure out the frame pointer */ set_current_frame (create_new_frame (0, read_pc ())); if (proc_desc && PROC_DESC_IS_DUMMY(proc_desc)) { struct linked_proc_info *pi_ptr, *prev_ptr; for (pi_ptr = linked_proc_desc_table, prev_ptr = NULL; pi_ptr != NULL; prev_ptr = pi_ptr, pi_ptr = pi_ptr->next) { if (&pi_ptr->info == proc_desc) break; } if (pi_ptr == NULL) error ("Can't locate dummy extra frame info\n"); if (prev_ptr != NULL) prev_ptr->next = pi_ptr->next; else linked_proc_desc_table = pi_ptr->next; free (pi_ptr); } } /* To skip prologues, I use this predicate. Returns either PC itself if the code at PC does not look like a function prologue; otherwise returns an address that (if we're lucky) follows the prologue. If LENIENT, then we must skip everything which is involved in setting up the frame (it's OK to skip more, just so long as we don't skip anything which might clobber the registers which are being saved. Currently we must not skip more on the alpha, but we might the lenient stuff some day. */ CORE_ADDR alpha_skip_prologue (pc, lenient) CORE_ADDR pc; int lenient; { unsigned long inst; int offset; CORE_ADDR post_prologue_pc; char buf[4]; #ifdef GDB_TARGET_HAS_SHARED_LIBS /* Silently return the unaltered pc upon memory errors. This could happen on OSF/1 if decode_line_1 tries to skip the prologue for quickstarted shared library functions when the shared library is not yet mapped in. Reading target memory is slow over serial lines, so we perform this check only if the target has shared libraries. */ if (target_read_memory (pc, buf, 4)) return pc; #endif /* See if we can determine the end of the prologue via the symbol table. If so, then return either PC, or the PC after the prologue, whichever is greater. */ post_prologue_pc = after_prologue (pc, NULL); if (post_prologue_pc != 0) return max (pc, post_prologue_pc); /* Can't determine prologue from the symbol table, need to examine instructions. */ /* Skip the typical prologue instructions. These are the stack adjustment instruction and the instructions that save registers on the stack or in the gcc frame. */ for (offset = 0; offset < 100; offset += 4) { int status; status = read_memory_nobpt (pc + offset, buf, 4); if (status) memory_error (status, pc + offset); inst = extract_unsigned_integer (buf, 4); /* The alpha has no delay slots. But let's keep the lenient stuff, we might need it for something else in the future. */ if (lenient && 0) continue; if ((inst & 0xffff0000) == 0x27bb0000) /* ldah $gp,n($t12) */ continue; if ((inst & 0xffff0000) == 0x23bd0000) /* lda $gp,n($gp) */ continue; if ((inst & 0xffff0000) == 0x23de0000) /* lda $sp,n($sp) */ continue; else if ((inst & 0xfc1f0000) == 0xb41e0000 && (inst & 0xffff0000) != 0xb7fe0000) continue; /* stq reg,n($sp) */ /* reg != $zero */ else if ((inst & 0xfc1f0000) == 0x9c1e0000 && (inst & 0xffff0000) != 0x9ffe0000) continue; /* stt reg,n($sp) */ /* reg != $zero */ else if (inst == 0x47de040f) /* bis sp,sp,fp */ continue; else break; } return pc + offset; } /* Is address PC in the prologue (loosely defined) for function at STARTADDR? */ static int alpha_in_lenient_prologue (startaddr, pc) CORE_ADDR startaddr; CORE_ADDR pc; { CORE_ADDR end_prologue = alpha_skip_prologue (startaddr, 1); return pc >= startaddr && pc < end_prologue; } /* The alpha needs a conversion between register and memory format if the register is a floating point register and memory format is float, as the register format must be double or memory format is an integer with 4 bytes or less, as the representation of integers in floating point registers is different. */ void alpha_register_convert_to_virtual (regnum, valtype, raw_buffer, virtual_buffer) int regnum; struct type *valtype; char *raw_buffer; char *virtual_buffer; { if (TYPE_LENGTH (valtype) >= REGISTER_RAW_SIZE (regnum)) { memcpy (virtual_buffer, raw_buffer, REGISTER_VIRTUAL_SIZE (regnum)); return; } if (TYPE_CODE (valtype) == TYPE_CODE_FLT) { double d = extract_floating (raw_buffer, REGISTER_RAW_SIZE (regnum)); store_floating (virtual_buffer, TYPE_LENGTH (valtype), d); } else if (TYPE_CODE (valtype) == TYPE_CODE_INT && TYPE_LENGTH (valtype) <= 4) { unsigned LONGEST l; l = extract_unsigned_integer (raw_buffer, REGISTER_RAW_SIZE (regnum)); l = ((l >> 32) & 0xc0000000) | ((l >> 29) & 0x3fffffff); store_unsigned_integer (virtual_buffer, TYPE_LENGTH (valtype), l); } else error ("Cannot retrieve value from floating point register"); } void alpha_register_convert_to_raw (valtype, regnum, virtual_buffer, raw_buffer) struct type *valtype; int regnum; char *virtual_buffer; char *raw_buffer; { if (TYPE_LENGTH (valtype) >= REGISTER_RAW_SIZE (regnum)) { memcpy (raw_buffer, virtual_buffer, REGISTER_RAW_SIZE (regnum)); return; } if (TYPE_CODE (valtype) == TYPE_CODE_FLT) { double d = extract_floating (virtual_buffer, TYPE_LENGTH (valtype)); store_floating (raw_buffer, REGISTER_RAW_SIZE (regnum), d); } else if (TYPE_CODE (valtype) == TYPE_CODE_INT && TYPE_LENGTH (valtype) <= 4) { unsigned LONGEST l; if (TYPE_UNSIGNED (valtype)) l = extract_unsigned_integer (virtual_buffer, TYPE_LENGTH (valtype)); else l = extract_signed_integer (virtual_buffer, TYPE_LENGTH (valtype)); l = ((l & 0xc0000000) << 32) | ((l & 0x3fffffff) << 29); store_unsigned_integer (raw_buffer, REGISTER_RAW_SIZE (regnum), l); } else error ("Cannot store value in floating point register"); } /* Given a return value in `regbuf' with a type `valtype', extract and copy its value into `valbuf'. */ void alpha_extract_return_value (valtype, regbuf, valbuf) struct type *valtype; char regbuf[REGISTER_BYTES]; char *valbuf; { int regnum; regnum = TYPE_CODE (valtype) == TYPE_CODE_FLT ? FP0_REGNUM : V0_REGNUM; memcpy (valbuf, regbuf + REGISTER_BYTE (regnum), TYPE_LENGTH (valtype)); } /* Given a return value in `regbuf' with a type `valtype', write its value into the appropriate register. */ void alpha_store_return_value (valtype, valbuf) struct type *valtype; char *valbuf; { int regnum; char raw_buffer[MAX_REGISTER_RAW_SIZE]; regnum = TYPE_CODE (valtype) == TYPE_CODE_FLT ? FP0_REGNUM : V0_REGNUM; memcpy(raw_buffer, valbuf, TYPE_LENGTH (valtype)); write_register_bytes(REGISTER_BYTE (regnum), raw_buffer, TYPE_LENGTH (valtype)); } /* Print the instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO(info, stream); return print_insn_alpha (memaddr, &info); } /* Just like reinit_frame_cache, but with the right arguments to be callable as an sfunc. */ static void reinit_frame_cache_sfunc (args, from_tty, c) char *args; int from_tty; struct cmd_list_element *c; { reinit_frame_cache (); } /* This is the definition of CALL_DUMMY_ADDRESS. It's a heuristic that is used to find a convenient place in the text segment to stick a breakpoint to detect the completion of a target function call (ala call_function_by_hand). */ CORE_ADDR alpha_call_dummy_address () { CORE_ADDR entry; struct minimal_symbol *sym; entry = entry_point_address (); if (entry != 0) return entry; sym = lookup_minimal_symbol ("_Prelude", symfile_objfile); if (!sym || MSYMBOL_TYPE (sym) != mst_text) return 0; else return SYMBOL_VALUE_ADDRESS (sym) + 4; } void _initialize_alpha_tdep () { struct cmd_list_element *c; /* Let the user set the fence post for heuristic_proc_start. */ /* We really would like to have both "0" and "unlimited" work, but command.c doesn't deal with that. So make it a var_zinteger because the user can always use "999999" or some such for unlimited. */ c = add_set_cmd ("heuristic-fence-post", class_support, var_zinteger, (char *) &heuristic_fence_post, "\ Set the distance searched for the start of a function.\n\ If you are debugging a stripped executable, GDB needs to search through the\n\ program for the start of a function. This command sets the distance of the\n\ search. The only need to set it is when debugging a stripped executable.", &setlist); /* We need to throw away the frame cache when we set this, since it might change our ability to get backtraces. */ c->function.sfunc = reinit_frame_cache_sfunc; add_show_from_set (c, &showlist); } gdb-4.13/gdb/altos-xdep.c 666 34562 1752 10506 5465305350 13544 0ustar fnfcygnus/* Low level interface to ptrace, for GDB when running under m68k SVR2 Unix on Altos 3068. Report bugs to Jyrki Kuoppala Copyright (C) 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #ifdef USG #include #endif #include #include #include #include #include #ifdef USG #include #ifdef ALTOS #include #include #endif #endif #include "gdbcore.h" #include /* After a.out.h */ #include #include /* Work with core dump and executable files, for GDB. This code would be in core.c if it weren't machine-dependent. */ void core_file_command (filename, from_tty) char *filename; int from_tty; { int val; extern char registers[]; /* Discard all vestiges of any previous core file and mark data and stack spaces as empty. */ if (corefile) free (corefile); corefile = 0; if (corechan >= 0) close (corechan); corechan = -1; data_start = 0; data_end = 0; stack_start = STACK_END_ADDR; stack_end = STACK_END_ADDR; /* Now, if a new core file was specified, open it and digest it. */ if (filename) { filename = tilde_expand (filename); make_cleanup (free, filename); if (have_inferior_p ()) error ("To look at a core file, you must kill the program with \"kill\"."); corechan = open (filename, O_RDONLY, 0); if (corechan < 0) perror_with_name (filename); /* 4.2-style (and perhaps also sysV-style) core dump file. */ { struct user u; unsigned int reg_offset; val = myread (corechan, &u, sizeof u); if (val < 0) perror_with_name ("Not a core file: reading upage"); if (val != sizeof u) error ("Not a core file: could only read %d bytes", val); data_start = exec_data_start; #if !defined (NBPG) #define NBPG NBPP #endif #if !defined (UPAGES) #define UPAGES USIZE #endif data_end = data_start + NBPG * u.u_dsize; stack_start = stack_end - NBPG * u.u_ssize; data_offset = NBPG * UPAGES + exec_data_start % NBPG /* Not sure about this //jkp */; stack_offset = NBPG * (UPAGES + u.u_dsize); /* Some machines put an absolute address in here and some put the offset in the upage of the regs. */ reg_offset = (int) u.u_state; if (reg_offset > NBPG * UPAGES) reg_offset -= KERNEL_U_ADDR; memcpy (&core_aouthdr, &u.u_exdata, sizeof (AOUTHDR)); printf_unfiltered ("Core file is from \"%s\".\n", u.u_comm); /* I don't know where to find this info. So, for now, mark it as not available. */ N_SET_MAGIC (core_aouthdr, 0); /* Read the register values out of the core file and store them where `read_register' will find them. */ { register int regno; for (regno = 0; regno < NUM_REGS; regno++) { char buf[MAX_REGISTER_RAW_SIZE]; val = lseek (corechan, register_addr (regno, reg_offset), 0); if (val < 0 || (val = myread (corechan, buf, sizeof buf)) < 0) { char * buffer = (char *) alloca (strlen (reg_names[regno]) + 30); strcpy (buffer, "Reading register "); strcat (buffer, reg_names[regno]); perror_with_name (buffer); } supply_register (regno, buf); } } } if (filename[0] == '/') corefile = savestring (filename, strlen (filename)); else { corefile = concat (current_directory, "/", filename, NULL); } set_current_frame ( create_new_frame (read_register (FP_REGNUM), read_pc ())); select_frame (get_current_frame (), 0); validate_files (); } else if (from_tty) printf_unfiltered ("No core file now.\n"); } gdb-4.13/gdb/c-exp.y 666 34562 1752 123246 5564742175 12566 0ustar fnfcygnus/* YACC parser for C expressions, for GDB. Copyright (C) 1986, 1989, 1990, 1991, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Parse a C expression from text in a string, and return the result as a struct expression pointer. That structure contains arithmetic operations in reverse polish, with constants represented by operations that are followed by special data. See expression.h for the details of the format. What is important here is that it can be built up sequentially during the process of parsing; the lower levels of the tree always come first in the result. Note that malloc's and realloc's in this file are transformed to xmalloc and xrealloc respectively by the same sed command in the makefile that remaps any other malloc/realloc inserted by the parser generator. Doing this with #defines and trying to control the interaction with include files ( and for example) just became too messy, particularly when such includes can be inserted at random times by the parser generator. */ %{ #include "defs.h" #include #include "expression.h" #include "value.h" #include "parser-defs.h" #include "language.h" #include "c-lang.h" #include "bfd.h" /* Required by objfiles.h. */ #include "symfile.h" /* Required by objfiles.h. */ #include "objfiles.h" /* For have_full_symbols and have_partial_symbols */ /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc), as well as gratuitiously global symbol names, so we can have multiple yacc generated parsers in gdb. Note that these are only the variables produced by yacc. If other parser generators (bison, byacc, etc) produce additional global names that conflict at link time, then those parser generators need to be fixed instead of adding those names to this list. */ #define yymaxdepth c_maxdepth #define yyparse c_parse #define yylex c_lex #define yyerror c_error #define yylval c_lval #define yychar c_char #define yydebug c_debug #define yypact c_pact #define yyr1 c_r1 #define yyr2 c_r2 #define yydef c_def #define yychk c_chk #define yypgo c_pgo #define yyact c_act #define yyexca c_exca #define yyerrflag c_errflag #define yynerrs c_nerrs #define yyps c_ps #define yypv c_pv #define yys c_s #define yy_yys c_yys #define yystate c_state #define yytmp c_tmp #define yyv c_v #define yy_yyv c_yyv #define yyval c_val #define yylloc c_lloc #define yyreds c_reds /* With YYDEBUG defined */ #define yytoks c_toks /* With YYDEBUG defined */ #ifndef YYDEBUG #define YYDEBUG 0 /* Default to no yydebug support */ #endif int yyparse PARAMS ((void)); static int yylex PARAMS ((void)); void yyerror PARAMS ((char *)); %} /* Although the yacc "value" of an expression is not used, since the result is stored in the structure being created, other node types do have values. */ %union { LONGEST lval; struct { LONGEST val; struct type *type; } typed_val; double dval; struct symbol *sym; struct type *tval; struct stoken sval; struct ttype tsym; struct symtoken ssym; int voidval; struct block *bval; enum exp_opcode opcode; struct internalvar *ivar; struct type **tvec; int *ivec; } %{ /* YYSTYPE gets defined by %union */ static int parse_number PARAMS ((char *, int, int, YYSTYPE *)); %} %type exp exp1 type_exp start variable qualified_name lcurly %type rcurly %type type typebase %type nonempty_typelist /* %type block */ /* Fancy type parsing. */ %type func_mod direct_abs_decl abs_decl %type ptype %type array_mod %token INT %token FLOAT /* Both NAME and TYPENAME tokens represent symbols in the input, and both convey their data as strings. But a TYPENAME is a string that happens to be defined as a typedef or builtin type name (such as int or char) and a NAME is any other symbol. Contexts where this distinction is not important can use the nonterminal "name", which matches either NAME or TYPENAME. */ %token STRING %token NAME /* BLOCKNAME defined below to give it higher precedence. */ %token TYPENAME %type name %type name_not_typename %type typename /* A NAME_OR_INT is a symbol which is not known in the symbol table, but which would parse as a valid number in the current input radix. E.g. "c" when input_radix==16. Depending on the parse, it will be turned into a name or into a number. */ %token NAME_OR_INT %token STRUCT CLASS UNION ENUM SIZEOF UNSIGNED COLONCOLON %token TEMPLATE %token ERROR /* Special type cases, put in to allow the parser to distinguish different legal basetypes. */ %token SIGNED_KEYWORD LONG SHORT INT_KEYWORD CONST_KEYWORD VOLATILE_KEYWORD %token LAST REGNAME %token VARIABLE %token ASSIGN_MODIFY /* C++ */ %token THIS %left ',' %left ABOVE_COMMA %right '=' ASSIGN_MODIFY %right '?' %left OROR %left ANDAND %left '|' %left '^' %left '&' %left EQUAL NOTEQUAL %left '<' '>' LEQ GEQ %left LSH RSH %left '@' %left '+' '-' %left '*' '/' '%' %right UNARY INCREMENT DECREMENT %right ARROW '.' '[' '(' %token BLOCKNAME %type block %left COLONCOLON %% start : exp1 | type_exp ; type_exp: type { write_exp_elt_opcode(OP_TYPE); write_exp_elt_type($1); write_exp_elt_opcode(OP_TYPE);} ; /* Expressions, including the comma operator. */ exp1 : exp | exp1 ',' exp { write_exp_elt_opcode (BINOP_COMMA); } ; /* Expressions, not including the comma operator. */ exp : '*' exp %prec UNARY { write_exp_elt_opcode (UNOP_IND); } exp : '&' exp %prec UNARY { write_exp_elt_opcode (UNOP_ADDR); } exp : '-' exp %prec UNARY { write_exp_elt_opcode (UNOP_NEG); } ; exp : '!' exp %prec UNARY { write_exp_elt_opcode (UNOP_LOGICAL_NOT); } ; exp : '~' exp %prec UNARY { write_exp_elt_opcode (UNOP_COMPLEMENT); } ; exp : INCREMENT exp %prec UNARY { write_exp_elt_opcode (UNOP_PREINCREMENT); } ; exp : DECREMENT exp %prec UNARY { write_exp_elt_opcode (UNOP_PREDECREMENT); } ; exp : exp INCREMENT %prec UNARY { write_exp_elt_opcode (UNOP_POSTINCREMENT); } ; exp : exp DECREMENT %prec UNARY { write_exp_elt_opcode (UNOP_POSTDECREMENT); } ; exp : SIZEOF exp %prec UNARY { write_exp_elt_opcode (UNOP_SIZEOF); } ; exp : exp ARROW name { write_exp_elt_opcode (STRUCTOP_PTR); write_exp_string ($3); write_exp_elt_opcode (STRUCTOP_PTR); } ; exp : exp ARROW qualified_name { /* exp->type::name becomes exp->*(&type::name) */ /* Note: this doesn't work if name is a static member! FIXME */ write_exp_elt_opcode (UNOP_ADDR); write_exp_elt_opcode (STRUCTOP_MPTR); } ; exp : exp ARROW '*' exp { write_exp_elt_opcode (STRUCTOP_MPTR); } ; exp : exp '.' name { write_exp_elt_opcode (STRUCTOP_STRUCT); write_exp_string ($3); write_exp_elt_opcode (STRUCTOP_STRUCT); } ; exp : exp '.' qualified_name { /* exp.type::name becomes exp.*(&type::name) */ /* Note: this doesn't work if name is a static member! FIXME */ write_exp_elt_opcode (UNOP_ADDR); write_exp_elt_opcode (STRUCTOP_MEMBER); } ; exp : exp '.' '*' exp { write_exp_elt_opcode (STRUCTOP_MEMBER); } ; exp : exp '[' exp1 ']' { write_exp_elt_opcode (BINOP_SUBSCRIPT); } ; exp : exp '(' /* This is to save the value of arglist_len being accumulated by an outer function call. */ { start_arglist (); } arglist ')' %prec ARROW { write_exp_elt_opcode (OP_FUNCALL); write_exp_elt_longcst ((LONGEST) end_arglist ()); write_exp_elt_opcode (OP_FUNCALL); } ; lcurly : '{' { start_arglist (); } ; arglist : ; arglist : exp { arglist_len = 1; } ; arglist : arglist ',' exp %prec ABOVE_COMMA { arglist_len++; } ; rcurly : '}' { $$ = end_arglist () - 1; } ; exp : lcurly arglist rcurly %prec ARROW { write_exp_elt_opcode (OP_ARRAY); write_exp_elt_longcst ((LONGEST) 0); write_exp_elt_longcst ((LONGEST) $3); write_exp_elt_opcode (OP_ARRAY); } ; exp : lcurly type rcurly exp %prec UNARY { write_exp_elt_opcode (UNOP_MEMVAL); write_exp_elt_type ($2); write_exp_elt_opcode (UNOP_MEMVAL); } ; exp : '(' type ')' exp %prec UNARY { write_exp_elt_opcode (UNOP_CAST); write_exp_elt_type ($2); write_exp_elt_opcode (UNOP_CAST); } ; exp : '(' exp1 ')' { } ; /* Binary operators in order of decreasing precedence. */ exp : exp '@' exp { write_exp_elt_opcode (BINOP_REPEAT); } ; exp : exp '*' exp { write_exp_elt_opcode (BINOP_MUL); } ; exp : exp '/' exp { write_exp_elt_opcode (BINOP_DIV); } ; exp : exp '%' exp { write_exp_elt_opcode (BINOP_REM); } ; exp : exp '+' exp { write_exp_elt_opcode (BINOP_ADD); } ; exp : exp '-' exp { write_exp_elt_opcode (BINOP_SUB); } ; exp : exp LSH exp { write_exp_elt_opcode (BINOP_LSH); } ; exp : exp RSH exp { write_exp_elt_opcode (BINOP_RSH); } ; exp : exp EQUAL exp { write_exp_elt_opcode (BINOP_EQUAL); } ; exp : exp NOTEQUAL exp { write_exp_elt_opcode (BINOP_NOTEQUAL); } ; exp : exp LEQ exp { write_exp_elt_opcode (BINOP_LEQ); } ; exp : exp GEQ exp { write_exp_elt_opcode (BINOP_GEQ); } ; exp : exp '<' exp { write_exp_elt_opcode (BINOP_LESS); } ; exp : exp '>' exp { write_exp_elt_opcode (BINOP_GTR); } ; exp : exp '&' exp { write_exp_elt_opcode (BINOP_BITWISE_AND); } ; exp : exp '^' exp { write_exp_elt_opcode (BINOP_BITWISE_XOR); } ; exp : exp '|' exp { write_exp_elt_opcode (BINOP_BITWISE_IOR); } ; exp : exp ANDAND exp { write_exp_elt_opcode (BINOP_LOGICAL_AND); } ; exp : exp OROR exp { write_exp_elt_opcode (BINOP_LOGICAL_OR); } ; exp : exp '?' exp ':' exp %prec '?' { write_exp_elt_opcode (TERNOP_COND); } ; exp : exp '=' exp { write_exp_elt_opcode (BINOP_ASSIGN); } ; exp : exp ASSIGN_MODIFY exp { write_exp_elt_opcode (BINOP_ASSIGN_MODIFY); write_exp_elt_opcode ($2); write_exp_elt_opcode (BINOP_ASSIGN_MODIFY); } ; exp : INT { write_exp_elt_opcode (OP_LONG); write_exp_elt_type ($1.type); write_exp_elt_longcst ((LONGEST)($1.val)); write_exp_elt_opcode (OP_LONG); } ; exp : NAME_OR_INT { YYSTYPE val; parse_number ($1.stoken.ptr, $1.stoken.length, 0, &val); write_exp_elt_opcode (OP_LONG); write_exp_elt_type (val.typed_val.type); write_exp_elt_longcst ((LONGEST)val.typed_val.val); write_exp_elt_opcode (OP_LONG); } ; exp : FLOAT { write_exp_elt_opcode (OP_DOUBLE); write_exp_elt_type (builtin_type_double); write_exp_elt_dblcst ($1); write_exp_elt_opcode (OP_DOUBLE); } ; exp : variable ; exp : LAST { write_exp_elt_opcode (OP_LAST); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_LAST); } ; exp : REGNAME { write_exp_elt_opcode (OP_REGISTER); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_REGISTER); } ; exp : VARIABLE { write_exp_elt_opcode (OP_INTERNALVAR); write_exp_elt_intern ($1); write_exp_elt_opcode (OP_INTERNALVAR); } ; exp : SIZEOF '(' type ')' %prec UNARY { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_int); write_exp_elt_longcst ((LONGEST) TYPE_LENGTH ($3)); write_exp_elt_opcode (OP_LONG); } ; exp : STRING { /* C strings are converted into array constants with an explicit null byte added at the end. Thus the array upper bound is the string length. There is no such thing in C as a completely empty string. */ char *sp = $1.ptr; int count = $1.length; while (count-- > 0) { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_char); write_exp_elt_longcst ((LONGEST)(*sp++)); write_exp_elt_opcode (OP_LONG); } write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_char); write_exp_elt_longcst ((LONGEST)'\0'); write_exp_elt_opcode (OP_LONG); write_exp_elt_opcode (OP_ARRAY); write_exp_elt_longcst ((LONGEST) 0); write_exp_elt_longcst ((LONGEST) ($1.length)); write_exp_elt_opcode (OP_ARRAY); } ; /* C++. */ exp : THIS { write_exp_elt_opcode (OP_THIS); write_exp_elt_opcode (OP_THIS); } ; /* end of C++. */ block : BLOCKNAME { if ($1.sym != 0) $$ = SYMBOL_BLOCK_VALUE ($1.sym); else { struct symtab *tem = lookup_symtab (copy_name ($1.stoken)); if (tem) $$ = BLOCKVECTOR_BLOCK (BLOCKVECTOR (tem), STATIC_BLOCK); else error ("No file or function \"%s\".", copy_name ($1.stoken)); } } ; block : block COLONCOLON name { struct symbol *tem = lookup_symbol (copy_name ($3), $1, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (!tem || SYMBOL_CLASS (tem) != LOC_BLOCK) error ("No function \"%s\" in specified context.", copy_name ($3)); $$ = SYMBOL_BLOCK_VALUE (tem); } ; variable: block COLONCOLON name { struct symbol *sym; sym = lookup_symbol (copy_name ($3), $1, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (sym == 0) error ("No symbol \"%s\" in specified context.", copy_name ($3)); write_exp_elt_opcode (OP_VAR_VALUE); /* block_found is set by lookup_symbol. */ write_exp_elt_block (block_found); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); } ; qualified_name: typebase COLONCOLON name { struct type *type = $1; if (TYPE_CODE (type) != TYPE_CODE_STRUCT && TYPE_CODE (type) != TYPE_CODE_UNION) error ("`%s' is not defined as an aggregate type.", TYPE_NAME (type)); write_exp_elt_opcode (OP_SCOPE); write_exp_elt_type (type); write_exp_string ($3); write_exp_elt_opcode (OP_SCOPE); } | typebase COLONCOLON '~' name { struct type *type = $1; struct stoken tmp_token; if (TYPE_CODE (type) != TYPE_CODE_STRUCT && TYPE_CODE (type) != TYPE_CODE_UNION) error ("`%s' is not defined as an aggregate type.", TYPE_NAME (type)); if (!STREQ (type_name_no_tag (type), $4.ptr)) error ("invalid destructor `%s::~%s'", type_name_no_tag (type), $4.ptr); tmp_token.ptr = (char*) alloca ($4.length + 2); tmp_token.length = $4.length + 1; tmp_token.ptr[0] = '~'; memcpy (tmp_token.ptr+1, $4.ptr, $4.length); tmp_token.ptr[tmp_token.length] = 0; write_exp_elt_opcode (OP_SCOPE); write_exp_elt_type (type); write_exp_string (tmp_token); write_exp_elt_opcode (OP_SCOPE); } ; variable: qualified_name | COLONCOLON name { char *name = copy_name ($2); struct symbol *sym; struct minimal_symbol *msymbol; sym = lookup_symbol (name, (const struct block *) NULL, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (sym) { write_exp_elt_opcode (OP_VAR_VALUE); write_exp_elt_block (NULL); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); break; } msymbol = lookup_minimal_symbol (name, (struct objfile *) NULL); if (msymbol != NULL) { write_exp_msymbol (msymbol, lookup_function_type (builtin_type_int), builtin_type_int); } else if (!have_full_symbols () && !have_partial_symbols ()) error ("No symbol table is loaded. Use the \"file\" command."); else error ("No symbol \"%s\" in current context.", name); } ; variable: name_not_typename { struct symbol *sym = $1.sym; if (sym) { if (symbol_read_needs_frame (sym)) { if (innermost_block == 0 || contained_in (block_found, innermost_block)) innermost_block = block_found; } write_exp_elt_opcode (OP_VAR_VALUE); /* We want to use the selected frame, not another more inner frame which happens to be in the same block. */ write_exp_elt_block (NULL); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); } else if ($1.is_a_field_of_this) { /* C++: it hangs off of `this'. Must not inadvertently convert from a method call to data ref. */ if (innermost_block == 0 || contained_in (block_found, innermost_block)) innermost_block = block_found; write_exp_elt_opcode (OP_THIS); write_exp_elt_opcode (OP_THIS); write_exp_elt_opcode (STRUCTOP_PTR); write_exp_string ($1.stoken); write_exp_elt_opcode (STRUCTOP_PTR); } else { struct minimal_symbol *msymbol; register char *arg = copy_name ($1.stoken); msymbol = lookup_minimal_symbol (arg, (struct objfile *) NULL); if (msymbol != NULL) { write_exp_msymbol (msymbol, lookup_function_type (builtin_type_int), builtin_type_int); } else if (!have_full_symbols () && !have_partial_symbols ()) error ("No symbol table is loaded. Use the \"file\" command."); else error ("No symbol \"%s\" in current context.", copy_name ($1.stoken)); } } ; ptype : typebase /* "const" and "volatile" are curently ignored. A type qualifier before the type is currently handled in the typebase rule. The reason for recognizing these here (shift/reduce conflicts) might be obsolete now that some pointer to member rules have been deleted. */ | typebase CONST_KEYWORD | typebase VOLATILE_KEYWORD | typebase abs_decl { $$ = follow_types ($1); } | typebase CONST_KEYWORD abs_decl { $$ = follow_types ($1); } | typebase VOLATILE_KEYWORD abs_decl { $$ = follow_types ($1); } ; abs_decl: '*' { push_type (tp_pointer); $$ = 0; } | '*' abs_decl { push_type (tp_pointer); $$ = $2; } | '&' { push_type (tp_reference); $$ = 0; } | '&' abs_decl { push_type (tp_reference); $$ = $2; } | direct_abs_decl ; direct_abs_decl: '(' abs_decl ')' { $$ = $2; } | direct_abs_decl array_mod { push_type_int ($2); push_type (tp_array); } | array_mod { push_type_int ($1); push_type (tp_array); $$ = 0; } | direct_abs_decl func_mod { push_type (tp_function); } | func_mod { push_type (tp_function); } ; array_mod: '[' ']' { $$ = -1; } | '[' INT ']' { $$ = $2.val; } ; func_mod: '(' ')' { $$ = 0; } | '(' nonempty_typelist ')' { free ((PTR)$2); $$ = 0; } ; /* We used to try to recognize more pointer to member types here, but that didn't work (shift/reduce conflicts meant that these rules never got executed). The problem is that int (foo::bar::baz::bizzle) is a function type but int (foo::bar::baz::bizzle::*) is a pointer to member type. Stroustrup loses again! */ type : ptype | typebase COLONCOLON '*' { $$ = lookup_member_type (builtin_type_int, $1); } ; typebase /* Implements (approximately): (type-qualifier)* type-specifier */ : TYPENAME { $$ = $1.type; } | INT_KEYWORD { $$ = builtin_type_int; } | LONG { $$ = builtin_type_long; } | SHORT { $$ = builtin_type_short; } | LONG INT_KEYWORD { $$ = builtin_type_long; } | UNSIGNED LONG INT_KEYWORD { $$ = builtin_type_unsigned_long; } | LONG LONG { $$ = builtin_type_long_long; } | LONG LONG INT_KEYWORD { $$ = builtin_type_long_long; } | UNSIGNED LONG LONG { $$ = builtin_type_unsigned_long_long; } | UNSIGNED LONG LONG INT_KEYWORD { $$ = builtin_type_unsigned_long_long; } | SHORT INT_KEYWORD { $$ = builtin_type_short; } | UNSIGNED SHORT INT_KEYWORD { $$ = builtin_type_unsigned_short; } | STRUCT name { $$ = lookup_struct (copy_name ($2), expression_context_block); } | CLASS name { $$ = lookup_struct (copy_name ($2), expression_context_block); } | UNION name { $$ = lookup_union (copy_name ($2), expression_context_block); } | ENUM name { $$ = lookup_enum (copy_name ($2), expression_context_block); } | UNSIGNED typename { $$ = lookup_unsigned_typename (TYPE_NAME($2.type)); } | UNSIGNED { $$ = builtin_type_unsigned_int; } | SIGNED_KEYWORD typename { $$ = lookup_signed_typename (TYPE_NAME($2.type)); } | SIGNED_KEYWORD { $$ = builtin_type_int; } | TEMPLATE name '<' type '>' { $$ = lookup_template_type(copy_name($2), $4, expression_context_block); } /* "const" and "volatile" are curently ignored. A type qualifier after the type is handled in the ptype rule. I think these could be too. */ | CONST_KEYWORD typebase { $$ = $2; } | VOLATILE_KEYWORD typebase { $$ = $2; } ; typename: TYPENAME | INT_KEYWORD { $$.stoken.ptr = "int"; $$.stoken.length = 3; $$.type = builtin_type_int; } | LONG { $$.stoken.ptr = "long"; $$.stoken.length = 4; $$.type = builtin_type_long; } | SHORT { $$.stoken.ptr = "short"; $$.stoken.length = 5; $$.type = builtin_type_short; } ; nonempty_typelist : type { $$ = (struct type **) malloc (sizeof (struct type *) * 2); $$[0] = 1; /* Number of types in vector */ $$[1] = $1; } | nonempty_typelist ',' type { int len = sizeof (struct type *) * (++($1[0]) + 1); $$ = (struct type **) realloc ((char *) $1, len); $$[$$[0]] = $3; } ; name : NAME { $$ = $1.stoken; } | BLOCKNAME { $$ = $1.stoken; } | TYPENAME { $$ = $1.stoken; } | NAME_OR_INT { $$ = $1.stoken; } ; name_not_typename : NAME | BLOCKNAME /* These would be useful if name_not_typename was useful, but it is just a fake for "variable", so these cause reduce/reduce conflicts because the parser can't tell whether NAME_OR_INT is a name_not_typename (=variable, =exp) or just an exp. If name_not_typename was ever used in an lvalue context where only a name could occur, this might be useful. | NAME_OR_INT */ ; %% /* Take care of parsing a number (anything that starts with a digit). Set yylval and return the token type; update lexptr. LEN is the number of characters in it. */ /*** Needs some error checking for the float case ***/ static int parse_number (p, len, parsed_float, putithere) register char *p; register int len; int parsed_float; YYSTYPE *putithere; { /* FIXME: Shouldn't these be unsigned? We don't deal with negative values here, and we do kind of silly things like cast to unsigned. */ register LONGEST n = 0; register LONGEST prevn = 0; unsigned LONGEST un; register int i = 0; register int c; register int base = input_radix; int unsigned_p = 0; /* Number of "L" suffixes encountered. */ int long_p = 0; /* We have found a "L" or "U" suffix. */ int found_suffix = 0; unsigned LONGEST high_bit; struct type *signed_type; struct type *unsigned_type; if (parsed_float) { /* It's a float since it contains a point or an exponent. */ putithere->dval = atof (p); return FLOAT; } /* Handle base-switching prefixes 0x, 0t, 0d, 0 */ if (p[0] == '0') switch (p[1]) { case 'x': case 'X': if (len >= 3) { p += 2; base = 16; len -= 2; } break; case 't': case 'T': case 'd': case 'D': if (len >= 3) { p += 2; base = 10; len -= 2; } break; default: base = 8; break; } while (len-- > 0) { c = *p++; if (c >= 'A' && c <= 'Z') c += 'a' - 'A'; if (c != 'l' && c != 'u') n *= base; if (c >= '0' && c <= '9') { if (found_suffix) return ERROR; n += i = c - '0'; } else { if (base > 10 && c >= 'a' && c <= 'f') { if (found_suffix) return ERROR; n += i = c - 'a' + 10; } else if (c == 'l') { ++long_p; found_suffix = 1; } else if (c == 'u') { unsigned_p = 1; found_suffix = 1; } else return ERROR; /* Char not a digit */ } if (i >= base) return ERROR; /* Invalid digit in this base */ /* Portably test for overflow (only works for nonzero values, so make a second check for zero). FIXME: Can't we just make n and prevn unsigned and avoid this? */ if (c != 'l' && c != 'u' && (prevn >= n) && n != 0) unsigned_p = 1; /* Try something unsigned */ /* Portably test for unsigned overflow. FIXME: This check is wrong; for example it doesn't find overflow on 0x123456789 when LONGEST is 32 bits. */ if (c != 'l' && c != 'u' && n != 0) { if ((unsigned_p && (unsigned LONGEST) prevn >= (unsigned LONGEST) n)) error ("Numeric constant too large."); } prevn = n; } /* An integer constant is an int, a long, or a long long. An L suffix forces it to be long; an LL suffix forces it to be long long. If not forced to a larger size, it gets the first type of the above that it fits in. To figure out whether it fits, we shift it right and see whether anything remains. Note that we can't shift sizeof (LONGEST) * HOST_CHAR_BIT bits or more in one operation, because many compilers will warn about such a shift (which always produces a zero result). Sometimes TARGET_INT_BIT or TARGET_LONG_BIT will be that big, sometimes not. To deal with the case where it is we just always shift the value more than once, with fewer bits each time. */ un = (unsigned LONGEST)n >> 2; if (long_p == 0 && (un >> (TARGET_INT_BIT - 2)) == 0) { high_bit = ((unsigned LONGEST)1) << (TARGET_INT_BIT-1); /* A large decimal (not hex or octal) constant (between INT_MAX and UINT_MAX) is a long or unsigned long, according to ANSI, never an unsigned int, but this code treats it as unsigned int. This probably should be fixed. GCC gives a warning on such constants. */ unsigned_type = builtin_type_unsigned_int; signed_type = builtin_type_int; } else if (long_p <= 1 && (un >> (TARGET_LONG_BIT - 2)) == 0) { high_bit = ((unsigned LONGEST)1) << (TARGET_LONG_BIT-1); unsigned_type = builtin_type_unsigned_long; signed_type = builtin_type_long; } else { high_bit = (((unsigned LONGEST)1) << (TARGET_LONG_LONG_BIT - 32 - 1) << 16 << 16); if (high_bit == 0) /* A long long does not fit in a LONGEST. */ high_bit = (unsigned LONGEST)1 << (sizeof (LONGEST) * HOST_CHAR_BIT - 1); unsigned_type = builtin_type_unsigned_long_long; signed_type = builtin_type_long_long; } putithere->typed_val.val = n; /* If the high bit of the worked out type is set then this number has to be unsigned. */ if (unsigned_p || (n & high_bit)) { putithere->typed_val.type = unsigned_type; } else { putithere->typed_val.type = signed_type; } return INT; } struct token { char *operator; int token; enum exp_opcode opcode; }; static const struct token tokentab3[] = { {">>=", ASSIGN_MODIFY, BINOP_RSH}, {"<<=", ASSIGN_MODIFY, BINOP_LSH} }; static const struct token tokentab2[] = { {"+=", ASSIGN_MODIFY, BINOP_ADD}, {"-=", ASSIGN_MODIFY, BINOP_SUB}, {"*=", ASSIGN_MODIFY, BINOP_MUL}, {"/=", ASSIGN_MODIFY, BINOP_DIV}, {"%=", ASSIGN_MODIFY, BINOP_REM}, {"|=", ASSIGN_MODIFY, BINOP_BITWISE_IOR}, {"&=", ASSIGN_MODIFY, BINOP_BITWISE_AND}, {"^=", ASSIGN_MODIFY, BINOP_BITWISE_XOR}, {"++", INCREMENT, BINOP_END}, {"--", DECREMENT, BINOP_END}, {"->", ARROW, BINOP_END}, {"&&", ANDAND, BINOP_END}, {"||", OROR, BINOP_END}, {"::", COLONCOLON, BINOP_END}, {"<<", LSH, BINOP_END}, {">>", RSH, BINOP_END}, {"==", EQUAL, BINOP_END}, {"!=", NOTEQUAL, BINOP_END}, {"<=", LEQ, BINOP_END}, {">=", GEQ, BINOP_END} }; /* Read one token, getting characters through lexptr. */ static int yylex () { int c; int namelen; unsigned int i; char *tokstart; char *tokptr; int tempbufindex; static char *tempbuf; static int tempbufsize; retry: tokstart = lexptr; /* See if it is a special token of length 3. */ for (i = 0; i < sizeof tokentab3 / sizeof tokentab3[0]; i++) if (STREQN (tokstart, tokentab3[i].operator, 3)) { lexptr += 3; yylval.opcode = tokentab3[i].opcode; return tokentab3[i].token; } /* See if it is a special token of length 2. */ for (i = 0; i < sizeof tokentab2 / sizeof tokentab2[0]; i++) if (STREQN (tokstart, tokentab2[i].operator, 2)) { lexptr += 2; yylval.opcode = tokentab2[i].opcode; return tokentab2[i].token; } switch (c = *tokstart) { case 0: return 0; case ' ': case '\t': case '\n': lexptr++; goto retry; case '\'': /* We either have a character constant ('0' or '\177' for example) or we have a quoted symbol reference ('foo(int,int)' in C++ for example). */ lexptr++; c = *lexptr++; if (c == '\\') c = parse_escape (&lexptr); yylval.typed_val.val = c; yylval.typed_val.type = builtin_type_char; c = *lexptr++; if (c != '\'') { namelen = skip_quoted (tokstart) - tokstart; if (namelen > 2) { lexptr = tokstart + namelen; if (lexptr[-1] != '\'') error ("Unmatched single quote."); namelen -= 2; tokstart++; goto tryname; } error ("Invalid character constant."); } return INT; case '(': paren_depth++; lexptr++; return c; case ')': if (paren_depth == 0) return 0; paren_depth--; lexptr++; return c; case ',': if (comma_terminates && paren_depth == 0) return 0; lexptr++; return c; case '.': /* Might be a floating point number. */ if (lexptr[1] < '0' || lexptr[1] > '9') goto symbol; /* Nope, must be a symbol. */ /* FALL THRU into number case. */ case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': { /* It's a number. */ int got_dot = 0, got_e = 0, toktype; register char *p = tokstart; int hex = input_radix > 10; if (c == '0' && (p[1] == 'x' || p[1] == 'X')) { p += 2; hex = 1; } else if (c == '0' && (p[1]=='t' || p[1]=='T' || p[1]=='d' || p[1]=='D')) { p += 2; hex = 0; } for (;; ++p) { /* This test includes !hex because 'e' is a valid hex digit and thus does not indicate a floating point number when the radix is hex. */ if (!hex && !got_e && (*p == 'e' || *p == 'E')) got_dot = got_e = 1; /* This test does not include !hex, because a '.' always indicates a decimal floating point number regardless of the radix. */ else if (!got_dot && *p == '.') got_dot = 1; else if (got_e && (p[-1] == 'e' || p[-1] == 'E') && (*p == '-' || *p == '+')) /* This is the sign of the exponent, not the end of the number. */ continue; /* We will take any letters or digits. parse_number will complain if past the radix, or if L or U are not final. */ else if ((*p < '0' || *p > '9') && ((*p < 'a' || *p > 'z') && (*p < 'A' || *p > 'Z'))) break; } toktype = parse_number (tokstart, p - tokstart, got_dot|got_e, &yylval); if (toktype == ERROR) { char *err_copy = (char *) alloca (p - tokstart + 1); memcpy (err_copy, tokstart, p - tokstart); err_copy[p - tokstart] = 0; error ("Invalid number \"%s\".", err_copy); } lexptr = p; return toktype; } case '+': case '-': case '*': case '/': case '%': case '|': case '&': case '^': case '~': case '!': case '@': case '<': case '>': case '[': case ']': case '?': case ':': case '=': case '{': case '}': symbol: lexptr++; return c; case '"': /* Build the gdb internal form of the input string in tempbuf, translating any standard C escape forms seen. Note that the buffer is null byte terminated *only* for the convenience of debugging gdb itself and printing the buffer contents when the buffer contains no embedded nulls. Gdb does not depend upon the buffer being null byte terminated, it uses the length string instead. This allows gdb to handle C strings (as well as strings in other languages) with embedded null bytes */ tokptr = ++tokstart; tempbufindex = 0; do { /* Grow the static temp buffer if necessary, including allocating the first one on demand. */ if (tempbufindex + 1 >= tempbufsize) { tempbuf = (char *) realloc (tempbuf, tempbufsize += 64); } switch (*tokptr) { case '\0': case '"': /* Do nothing, loop will terminate. */ break; case '\\': tokptr++; c = parse_escape (&tokptr); if (c == -1) { continue; } tempbuf[tempbufindex++] = c; break; default: tempbuf[tempbufindex++] = *tokptr++; break; } } while ((*tokptr != '"') && (*tokptr != '\0')); if (*tokptr++ != '"') { error ("Unterminated string in expression."); } tempbuf[tempbufindex] = '\0'; /* See note above */ yylval.sval.ptr = tempbuf; yylval.sval.length = tempbufindex; lexptr = tokptr; return (STRING); } if (!(c == '_' || c == '$' || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z'))) /* We must have come across a bad character (e.g. ';'). */ error ("Invalid character '%c' in expression.", c); /* It's a name. See how long it is. */ namelen = 0; for (c = tokstart[namelen]; (c == '_' || c == '$' || (c >= '0' && c <= '9') || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')); c = tokstart[++namelen]) ; /* The token "if" terminates the expression and is NOT removed from the input stream. */ if (namelen == 2 && tokstart[0] == 'i' && tokstart[1] == 'f') { return 0; } lexptr += namelen; /* Handle the tokens $digits; also $ (short for $0) and $$ (short for $$1) and $$digits (equivalent to $<-digits> if you could type that). Make token type LAST, and put the number (the digits) in yylval. */ tryname: if (*tokstart == '$') { register int negate = 0; c = 1; /* Double dollar means negate the number and add -1 as well. Thus $$ alone means -1. */ if (namelen >= 2 && tokstart[1] == '$') { negate = 1; c = 2; } if (c == namelen) { /* Just dollars (one or two) */ yylval.lval = - negate; return LAST; } /* Is the rest of the token digits? */ for (; c < namelen; c++) if (!(tokstart[c] >= '0' && tokstart[c] <= '9')) break; if (c == namelen) { yylval.lval = atoi (tokstart + 1 + negate); if (negate) yylval.lval = - yylval.lval; return LAST; } } /* Handle tokens that refer to machine registers: $ followed by a register name. */ if (*tokstart == '$') { for (c = 0; c < NUM_REGS; c++) if (namelen - 1 == strlen (reg_names[c]) && STREQN (tokstart + 1, reg_names[c], namelen - 1)) { yylval.lval = c; return REGNAME; } for (c = 0; c < num_std_regs; c++) if (namelen - 1 == strlen (std_regs[c].name) && STREQN (tokstart + 1, std_regs[c].name, namelen - 1)) { yylval.lval = std_regs[c].regnum; return REGNAME; } } /* Catch specific keywords. Should be done with a data structure. */ switch (namelen) { case 8: if (STREQN (tokstart, "unsigned", 8)) return UNSIGNED; if (current_language->la_language == language_cplus && STREQN (tokstart, "template", 8)) return TEMPLATE; if (STREQN (tokstart, "volatile", 8)) return VOLATILE_KEYWORD; break; case 6: if (STREQN (tokstart, "struct", 6)) return STRUCT; if (STREQN (tokstart, "signed", 6)) return SIGNED_KEYWORD; if (STREQN (tokstart, "sizeof", 6)) return SIZEOF; break; case 5: if (current_language->la_language == language_cplus && STREQN (tokstart, "class", 5)) return CLASS; if (STREQN (tokstart, "union", 5)) return UNION; if (STREQN (tokstart, "short", 5)) return SHORT; if (STREQN (tokstart, "const", 5)) return CONST_KEYWORD; break; case 4: if (STREQN (tokstart, "enum", 4)) return ENUM; if (STREQN (tokstart, "long", 4)) return LONG; if (current_language->la_language == language_cplus && STREQN (tokstart, "this", 4)) { static const char this_name[] = { CPLUS_MARKER, 't', 'h', 'i', 's', '\0' }; if (lookup_symbol (this_name, expression_context_block, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL)) return THIS; } break; case 3: if (STREQN (tokstart, "int", 3)) return INT_KEYWORD; break; default: break; } yylval.sval.ptr = tokstart; yylval.sval.length = namelen; /* Any other names starting in $ are debugger internal variables. */ if (*tokstart == '$') { yylval.ivar = lookup_internalvar (copy_name (yylval.sval) + 1); return VARIABLE; } /* Use token-type BLOCKNAME for symbols that happen to be defined as functions or symtabs. If this is not so, then ... Use token-type TYPENAME for symbols that happen to be defined currently as names of types; NAME for other symbols. The caller is not constrained to care about the distinction. */ { char *tmp = copy_name (yylval.sval); struct symbol *sym; int is_a_field_of_this = 0; int hextype; sym = lookup_symbol (tmp, expression_context_block, VAR_NAMESPACE, current_language->la_language == language_cplus ? &is_a_field_of_this : (int *) NULL, (struct symtab **) NULL); /* Call lookup_symtab, not lookup_partial_symtab, in case there are no psymtabs (coff, xcoff, or some future change to blow away the psymtabs once once symbols are read). */ if ((sym && SYMBOL_CLASS (sym) == LOC_BLOCK) || lookup_symtab (tmp)) { yylval.ssym.sym = sym; yylval.ssym.is_a_field_of_this = is_a_field_of_this; return BLOCKNAME; } if (sym && SYMBOL_CLASS (sym) == LOC_TYPEDEF) { #if 1 /* Despite the following flaw, we need to keep this code enabled. Because we can get called from check_stub_method, if we don't handle nested types then it screws many operations in any program which uses nested types. */ /* In "A::x", if x is a member function of A and there happens to be a type (nested or not, since the stabs don't make that distinction) named x, then this code incorrectly thinks we are dealing with nested types rather than a member function. */ char *p; char *namestart; struct symbol *best_sym; /* Look ahead to detect nested types. This probably should be done in the grammar, but trying seemed to introduce a lot of shift/reduce and reduce/reduce conflicts. It's possible that it could be done, though. Or perhaps a non-grammar, but less ad hoc, approach would work well. */ /* Since we do not currently have any way of distinguishing a nested type from a non-nested one (the stabs don't tell us whether a type is nested), we just ignore the containing type. */ p = lexptr; best_sym = sym; while (1) { /* Skip whitespace. */ while (*p == ' ' || *p == '\t' || *p == '\n') ++p; if (*p == ':' && p[1] == ':') { /* Skip the `::'. */ p += 2; /* Skip whitespace. */ while (*p == ' ' || *p == '\t' || *p == '\n') ++p; namestart = p; while (*p == '_' || *p == '$' || (*p >= '0' && *p <= '9') || (*p >= 'a' && *p <= 'z') || (*p >= 'A' && *p <= 'Z')) ++p; if (p != namestart) { struct symbol *cur_sym; /* As big as the whole rest of the expression, which is at least big enough. */ char *tmp = alloca (strlen (namestart)+1); memcpy (tmp, namestart, p - namestart); tmp[p - namestart] = '\0'; cur_sym = lookup_symbol (tmp, expression_context_block, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (cur_sym) { if (SYMBOL_CLASS (cur_sym) == LOC_TYPEDEF) { best_sym = cur_sym; lexptr = p; } else break; } else break; } else break; } else break; } yylval.tsym.type = SYMBOL_TYPE (best_sym); #else /* not 0 */ yylval.tsym.type = SYMBOL_TYPE (sym); #endif /* not 0 */ return TYPENAME; } if ((yylval.tsym.type = lookup_primitive_typename (tmp)) != 0) return TYPENAME; /* Input names that aren't symbols but ARE valid hex numbers, when the input radix permits them, can be names or numbers depending on the parse. Note we support radixes > 16 here. */ if (!sym && ((tokstart[0] >= 'a' && tokstart[0] < 'a' + input_radix - 10) || (tokstart[0] >= 'A' && tokstart[0] < 'A' + input_radix - 10))) { YYSTYPE newlval; /* Its value is ignored. */ hextype = parse_number (tokstart, namelen, 0, &newlval); if (hextype == INT) { yylval.ssym.sym = sym; yylval.ssym.is_a_field_of_this = is_a_field_of_this; return NAME_OR_INT; } } /* Any other kind of symbol */ yylval.ssym.sym = sym; yylval.ssym.is_a_field_of_this = is_a_field_of_this; return NAME; } } void yyerror (msg) char *msg; { error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr); } gdb-4.13/gdb/annotate.c 666 34562 1752 22335 5566264136 13310 0ustar fnfcygnus/* Annotation routines for GDB. Copyright 1986, 1989, 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "annotate.h" #include "value.h" #include "target.h" #include "gdbtypes.h" static void print_value_flags PARAMS ((struct type *)); static void print_value_flags (t) struct type *t; { if (can_dereference (t)) printf_filtered ("*"); else printf_filtered ("-"); } void breakpoints_changed () { if (annotation_level > 1) { target_terminal_ours (); printf_unfiltered ("\n\032\032breakpoints-invalid\n"); } } void annotate_breakpoint (num) int num; { if (annotation_level > 1) printf_filtered ("\n\032\032breakpoint %d\n", num); } void annotate_watchpoint (num) int num; { if (annotation_level > 1) printf_filtered ("\n\032\032watchpoint %d\n", num); } void annotate_starting () { if (annotation_level > 1) printf_filtered ("\n\032\032starting\n"); } void annotate_stopped () { if (annotation_level > 1) printf_filtered ("\n\032\032stopped\n"); } void annotate_exited (exitstatus) int exitstatus; { if (annotation_level > 1) printf_filtered ("\n\032\032exited %d\n", exitstatus); } void annotate_signalled () { if (annotation_level > 1) printf_filtered ("\n\032\032signalled\n"); } void annotate_signal_name () { if (annotation_level > 1) printf_filtered ("\n\032\032signal-name\n"); } void annotate_signal_name_end () { if (annotation_level > 1) printf_filtered ("\n\032\032signal-name-end\n"); } void annotate_signal_string () { if (annotation_level > 1) printf_filtered ("\n\032\032signal-string\n"); } void annotate_signal_string_end () { if (annotation_level > 1) printf_filtered ("\n\032\032signal-string-end\n"); } void annotate_signal () { if (annotation_level > 1) printf_filtered ("\n\032\032signal\n"); } void annotate_breakpoints_headers () { if (annotation_level > 1) printf_filtered ("\n\032\032breakpoints-headers\n"); } void annotate_field (num) int num; { if (annotation_level > 1) printf_filtered ("\n\032\032field %d\n", num); } void annotate_breakpoints_table () { if (annotation_level > 1) printf_filtered ("\n\032\032breakpoints-table\n"); } void annotate_record () { if (annotation_level > 1) printf_filtered ("\n\032\032record\n"); } void annotate_breakpoints_table_end () { if (annotation_level > 1) printf_filtered ("\n\032\032breakpoints-table-end\n"); } void annotate_frames_invalid () { if (annotation_level > 1) { target_terminal_ours (); printf_unfiltered ("\n\032\032frames-invalid\n"); } } void annotate_field_begin (type) struct type *type; { if (annotation_level > 1) { printf_filtered ("\n\032\032field-begin "); print_value_flags (type); printf_filtered ("\n"); } } void annotate_field_name_end () { if (annotation_level > 1) printf_filtered ("\n\032\032field-name-end\n"); } void annotate_field_value () { if (annotation_level > 1) printf_filtered ("\n\032\032field-value\n"); } void annotate_field_end () { if (annotation_level > 1) printf_filtered ("\n\032\032field-end\n"); } void annotate_quit () { if (annotation_level > 1) printf_filtered ("\n\032\032quit\n"); } void annotate_error () { if (annotation_level > 1) printf_filtered ("\n\032\032error\n"); } void annotate_error_begin () { if (annotation_level > 1) fprintf_filtered (gdb_stderr, "\n\032\032error-begin\n"); } void annotate_value_history_begin (histindex, type) int histindex; struct type *type; { if (annotation_level > 1) { printf_filtered ("\n\032\032value-history-begin %d ", histindex); print_value_flags (type); printf_filtered ("\n"); } } void annotate_value_begin (type) struct type *type; { if (annotation_level > 1) { printf_filtered ("\n\032\032value-begin "); print_value_flags (type); printf_filtered ("\n"); } } void annotate_value_history_value () { if (annotation_level > 1) printf_filtered ("\n\032\032value-history-value\n"); } void annotate_value_history_end () { if (annotation_level > 1) printf_filtered ("\n\032\032value-history-end\n"); } void annotate_value_end () { if (annotation_level > 1) printf_filtered ("\n\032\032value-end\n"); } void annotate_display_begin () { if (annotation_level > 1) printf_filtered ("\n\032\032display-begin\n"); } void annotate_display_number_end () { if (annotation_level > 1) printf_filtered ("\n\032\032display-number-end\n"); } void annotate_display_format () { if (annotation_level > 1) printf_filtered ("\n\032\032display-format\n"); } void annotate_display_expression () { if (annotation_level > 1) printf_filtered ("\n\032\032display-expression\n"); } void annotate_display_expression_end () { if (annotation_level > 1) printf_filtered ("\n\032\032display-expression-end\n"); } void annotate_display_value () { if (annotation_level > 1) printf_filtered ("\n\032\032display-value\n"); } void annotate_display_end () { if (annotation_level > 1) printf_filtered ("\n\032\032display-end\n"); } void annotate_arg_begin () { if (annotation_level > 1) printf_filtered ("\n\032\032arg-begin\n"); } void annotate_arg_name_end () { if (annotation_level > 1) printf_filtered ("\n\032\032arg-name-end\n"); } void annotate_arg_value (type) struct type *type; { if (annotation_level > 1) { printf_filtered ("\n\032\032arg-value "); print_value_flags (type); printf_filtered ("\n"); } } void annotate_arg_end () { if (annotation_level > 1) printf_filtered ("\n\032\032arg-end\n"); } void annotate_source (filename, line, character, mid, pc) char *filename; int line; int character; int mid; CORE_ADDR pc; { if (annotation_level > 1) printf_filtered ("\n\032\032source "); else printf_filtered ("\032\032"); printf_filtered ("%s:%d:%d:%s:", filename, line, character, mid ? "middle" : "beg"); print_address_numeric (pc, 0, gdb_stdout); printf_filtered ("\n"); } void annotate_frame_begin (level, pc) int level; CORE_ADDR pc; { if (annotation_level > 1) { printf_filtered ("\n\032\032frame-begin %d ", level); print_address_numeric (pc, 0, gdb_stdout); printf_filtered ("\n"); } } void annotate_function_call () { if (annotation_level > 1) printf_filtered ("\n\032\032function-call\n"); } void annotate_signal_handler_caller () { if (annotation_level > 1) printf_filtered ("\n\032\032signal-handler-caller\n"); } void annotate_frame_address () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-address\n"); } void annotate_frame_address_end () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-address-end\n"); } void annotate_frame_function_name () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-function-name\n"); } void annotate_frame_args () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-args\n"); } void annotate_frame_source_begin () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-source-begin\n"); } void annotate_frame_source_file () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-source-file\n"); } void annotate_frame_source_file_end () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-source-file-end\n"); } void annotate_frame_source_line () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-source-line\n"); } void annotate_frame_source_end () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-source-end\n"); } void annotate_frame_where () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-where\n"); } void annotate_frame_end () { if (annotation_level > 1) printf_filtered ("\n\032\032frame-end\n"); } void annotate_array_section_begin (index, elttype) int index; struct type *elttype; { if (annotation_level > 1) { printf_filtered ("\n\032\032array-section-begin %d ", index); print_value_flags (elttype); printf_filtered ("\n"); } } void annotate_elt_rep (repcount) unsigned int repcount; { if (annotation_level > 1) printf_filtered ("\n\032\032elt-rep %u\n", repcount); } void annotate_elt_rep_end () { if (annotation_level > 1) printf_filtered ("\n\032\032elt-rep-end\n"); } void annotate_elt () { if (annotation_level > 1) printf_filtered ("\n\032\032elt\n"); } void annotate_array_section_end () { if (annotation_level > 1) printf_filtered ("\n\032\032array-section-end\n"); } gdb-4.13/gdb/annotate.h 666 34562 1752 7770 5564742130 13274 0ustar fnfcygnus/* Annotation routines for GDB. Copyright 1986, 1989, 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ extern void breakpoints_changed PARAMS ((void)); extern void annotate_breakpoint PARAMS ((int)); extern void annotate_watchpoint PARAMS ((int)); extern void annotate_starting PARAMS ((void)); extern void annotate_stopped PARAMS ((void)); extern void annotate_exited PARAMS ((int)); extern void annotate_signalled PARAMS ((void)); extern void annotate_signal_name PARAMS ((void)); extern void annotate_signal_name_end PARAMS ((void)); extern void annotate_signal_string PARAMS ((void)); extern void annotate_signal_string_end PARAMS ((void)); extern void annotate_signal PARAMS ((void)); extern void annotate_breakpoints_headers PARAMS ((void)); extern void annotate_field PARAMS ((int)); extern void annotate_breakpoints_table PARAMS ((void)); extern void annotate_record PARAMS ((void)); extern void annotate_breakpoints_table_end PARAMS ((void)); extern void annotate_frames_invalid PARAMS ((void)); #ifdef __STDC__ struct type; #endif extern void annotate_field_begin PARAMS ((struct type *)); extern void annotate_field_name_end PARAMS ((void)); extern void annotate_field_value PARAMS ((void)); extern void annotate_field_end PARAMS ((void)); extern void annotate_quit PARAMS ((void)); extern void annotate_error PARAMS ((void)); extern void annotate_error_begin PARAMS ((void)); extern void annotate_value_history_begin PARAMS ((int, struct type *)); extern void annotate_value_begin PARAMS ((struct type *)); extern void annotate_value_history_value PARAMS ((void)); extern void annotate_value_history_end PARAMS ((void)); extern void annotate_value_end PARAMS ((void)); extern void annotate_display_begin PARAMS ((void)); extern void annotate_display_number_end PARAMS ((void)); extern void annotate_display_format PARAMS ((void)); extern void annotate_display_expression PARAMS ((void)); extern void annotate_display_expression_end PARAMS ((void)); extern void annotate_display_value PARAMS ((void)); extern void annotate_display_end PARAMS ((void)); extern void annotate_arg_begin PARAMS ((void)); extern void annotate_arg_name_end PARAMS ((void)); extern void annotate_arg_value PARAMS ((struct type *)); extern void annotate_arg_end PARAMS ((void)); extern void annotate_source PARAMS ((char *, int, int, int, CORE_ADDR)); extern void annotate_frame_begin PARAMS ((int, CORE_ADDR)); extern void annotate_function_call PARAMS ((void)); extern void annotate_signal_handler_caller PARAMS ((void)); extern void annotate_frame_address PARAMS ((void)); extern void annotate_frame_address_end PARAMS ((void)); extern void annotate_frame_function_name PARAMS ((void)); extern void annotate_frame_args PARAMS ((void)); extern void annotate_frame_source_begin PARAMS ((void)); extern void annotate_frame_source_file PARAMS ((void)); extern void annotate_frame_source_file_end PARAMS ((void)); extern void annotate_frame_source_line PARAMS ((void)); extern void annotate_frame_source_end PARAMS ((void)); extern void annotate_frame_where PARAMS ((void)); extern void annotate_frame_end PARAMS ((void)); extern void annotate_array_section_begin PARAMS ((int, struct type *)); extern void annotate_elt_rep PARAMS ((unsigned int)); extern void annotate_elt_rep_end PARAMS ((void)); extern void annotate_elt PARAMS ((void)); extern void annotate_array_section_end PARAMS ((void)); gdb-4.13/gdb/arm-convert.s 666 34562 1752 310 4774413456 13702 0ustar fnfcygnus .text .global _convert_from_extended _convert_from_extended: ldfe f0,[a1] stfd f0,[a2] movs pc,lr .global _convert_to_extended _convert_to_extended: ldfd f0,[a1] stfe f0,[a2] movs pc,lr gdb-4.13/gdb/arm-pinsn.c 666 34562 1752 15247 5216310273 13371 0ustar fnfcygnus/* Print Acorn Risc Machine instructions for GDB, the GNU debugger. Copyright 1986, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include #include "symtab.h" #include "opcode/arm.h" static char *shift_names[] = { "lsl", "lsr", "asr", "ror", }; static char *cond_names[] = { "eq", "ne", "cs", "cc", "mi", "pl", "vs", "vc", "hi", "ls", "ge", "lt", "gt", "le", "", "nv" }; static char float_precision[] = "sdep"; static char float_rounding[] = " pmz"; static float float_immed[] = { 0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 0.5, 10.0 }; static void print_ldr_str_offset(); static void print_ldc_stc_offset(); static long immediate_value(); /* Print the ARM instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; FILE *stream; { unsigned long ins; register struct opcode *op; register char *p; register int i, c; int s, e, val; ins = read_memory_integer(memaddr, 4); for (i = 0, op = opcodes; i < N_OPCODES; i++, op++) if ((ins & op->mask) == op->value) break; assert(i != N_OPCODES); for (p = op->assembler; *p;) { c = *p++; if (c == '%') { s = e = 0; while (isdigit(*p)) s = s*10 + (*p++ - '0'); if (*p == '-') { p++; while (isdigit(*p)) e = e*10 + (*p++ - '0'); } else e = s; assert(s >= 0 && s <= 31 && e >= 0 && e <= 31); val = (ins >> s) & ((1 << (e + 1 - s)) - 1); switch (*p++) { case '%' : putc('%', stream); break; case 'd' : fprintf(stream, "%d", val); break; case 'x' : fprintf(stream, "%x", val); break; case 'r' : assert(val >= 0 && val <= 15); fprintf(stream, "%s", reg_names[val]); break; case 'c' : fprintf(stream, "%s", cond_names[ins >> 28]); break; case '\'' : assert(*p); c = *p++; if (val) putc(c, stream); break; case '`' : assert(*p); c = *p++; if (!val) putc(c, stream); break; case '?' : assert(*p); c = *p++; assert(*p); if (val) p++; else c = *p++; putc(c, stream); break; case 'p' : if (((ins >> 12) & 0xf) == 0xf) putc('p', stream); break; case 'o' : if (ins & (1<<25)) { int immed = immediate_value(ins & 0xfff); fprintf (stream, "#%d (0x%x)", immed, immed); } else { int operand2 = ins & 0xfff; /* in operand2 : bits 0-3 are the base register bits 5-6 are the shift (0=lsl, 1=lsr, 2=asr, 3=ror) if bit 4 is zero then bits 7-11 are an immediate shift count else bit 7 must be zero and bits 8-11 are the register to be used as a shift count. Note: no shift at all is encoded as "reg lsl #0" */ fprintf (stream, "%s", reg_names[operand2 & 0xf]); if (operand2 & 0xff0) { /* ror #0 is really rrx (rotate right extend) */ if ((operand2 & 0xff0) == 0x060) fprintf (stream, ", rrx"); else { fprintf (stream, ", %s ", shift_names[(operand2 >> 5) & 3]); if (operand2 & (1<<4)) /* register shift */ fprintf (stream, "%s", reg_names[operand2 >> 8]); else /* immediate shift */ fprintf (stream, "#%d", operand2 >> 7); } } } break; case 'a' : fprintf (stream, "[%s", reg_names[(ins >> 16) & 0xf]); if (ins & (1<<24)) { fprintf (stream, ", "); print_ldr_str_offset (ins, stream); putc (']', stream); if (ins & (1<<21)) putc('!', stream); /* If it is a pc relative load, then it is probably a constant so print it */ if (((ins >> 16) & 0xf) == 15 && (ins & (1<<25)) == 0 && (ins & (1<<20))) { int addr = memaddr + 8 + (ins & 0xfff) * ((ins & (1<<23)) ? 1 : -1); fprintf (stream, " (contents="); print_address (read_memory_integer(addr, 4), stream); fprintf (stream, ")"); } } else { fprintf (stream, "]," ); print_ldr_str_offset (ins, stream); } break; case 'b' : print_address (memaddr + 8 + (((int)ins << 8) >> 6), stream); break; case 'A' : fprintf (stream, "[%s", reg_names[(ins >> 16) & 0xf]); if (ins & (1<<24)) { fprintf (stream, ", "); print_ldc_stc_offset (ins, stream); putc(']', stream); if (ins & (1<<21)) putc('!', stream); } else { fprintf (stream, "], "); print_ldc_stc_offset (ins, stream); } break; case 'm' : { int regnum, first = 1; putc('{', stream); for (regnum = 0; regnum < 16; regnum++) if (ins & (1<> 18) & 2) | ((ins >> 7) & 1); putc(float_precision[val], stream); break; case 'Q' : val = ((ins >> 21) & 2) | ((ins >> 15) & 1); putc(float_precision[val], stream); break; case 'R' : val = ((ins >> 5) & 3); if (val) putc(float_rounding[val], stream); break; case 'f' : assert(val >= 0 && val <= 15); if (val > 7) fprintf (stream, "#%3.1f", float_immed[val - 8]); else fprintf (stream, "f%d", val); break; default: abort(); } } else putc(c, stream); } return 4; } static long immediate_value(operand) int operand; { int val = operand & 0xff; int shift = 2*(operand >> 8); /* immediate value is (val ror shift) */ return (val >> shift) | (val << (32 - shift)); } static void print_ldr_str_offset(ins, stream) unsigned long ins; FILE *stream; { if ((ins & (1<<25)) == 0) fprintf (stream, "#%d", (ins & 0xfff) * ((ins & (1<<23)) ? 1 : -1)); else { fprintf (stream, "%s%s", reg_names[ins & 0xf], (ins & (1<<23)) ? "" : "-"); if (ins & 0xff0) fprintf (stream, ", %s #%d", shift_names[(ins >> 5) & 3], (ins >> 7) & 0x1f); } } static void print_ldc_stc_offset(ins, stream) unsigned long ins; FILE *stream; { fprintf (stream, "#%d", 4 * (ins & 0xff) * ((ins & (1<<23)) ? 1 : -1)); } gdb-4.13/gdb/arm-tdep.c 666 34562 1752 25624 5441214746 13206 0ustar fnfcygnus/* Target-dependent code for the Acorn Risc Machine, for GDB, the GNU Debugger. Copyright 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "arm-opcode.h" #include #include #include #include #include #include #define N_TXTADDR(hdr) 0x8000 #define N_DATADDR(hdr) (hdr.a_text + 0x8000) #include "gdbcore.h" #include /* After a.out.h */ #include #include #include /* Work with core dump and executable files, for GDB. This code would be in core.c if it weren't machine-dependent. */ /* Structure to describe the chain of shared libraries used by the execfile. e.g. prog shares Xt which shares X11 which shares c. */ struct shared_library { struct exec_header header; char name[SHLIBLEN]; CORE_ADDR text_start; /* CORE_ADDR of 1st byte of text, this file */ long data_offset; /* offset of data section in file */ int chan; /* file descriptor for the file */ struct shared_library *shares; /* library this one shares */ }; static struct shared_library *shlib = 0; /* Hook for `exec_file_command' command to call. */ extern void (*exec_file_display_hook) (); static CORE_ADDR unshared_text_start; /* extended header from exec file (for shared library info) */ static struct exec_header exec_header; void exec_file_command (filename, from_tty) char *filename; int from_tty; { int val; /* Eliminate all traces of old exec file. Mark text segment as empty. */ if (execfile) free (execfile); execfile = 0; data_start = 0; data_end -= exec_data_start; text_start = 0; unshared_text_start = 0; text_end = 0; exec_data_start = 0; exec_data_end = 0; if (execchan >= 0) close (execchan); execchan = -1; if (shlib) { close_shared_library(shlib); shlib = 0; } /* Now open and digest the file the user requested, if any. */ if (filename) { filename = tilde_expand (filename); make_cleanup (free, filename); execchan = openp (getenv ("PATH"), 1, filename, O_RDONLY, 0, &execfile); if (execchan < 0) perror_with_name (filename); { struct stat st_exec; #ifdef HEADER_SEEK_FD HEADER_SEEK_FD (execchan); #endif val = myread (execchan, &exec_header, sizeof exec_header); exec_aouthdr = exec_header.a_exec; if (val < 0) perror_with_name (filename); text_start = 0x8000; /* Look for shared library if needed */ if (exec_header.a_exec.a_magic & MF_USES_SL) shlib = open_shared_library(exec_header.a_shlibname, text_start); text_offset = N_TXTOFF (exec_aouthdr); exec_data_offset = N_TXTOFF (exec_aouthdr) + exec_aouthdr.a_text; if (shlib) { unshared_text_start = shared_text_end(shlib) & ~0x7fff; stack_start = shlib->header.a_exec.a_sldatabase; stack_end = STACK_END_ADDR; } else unshared_text_start = 0x8000; text_end = unshared_text_start + exec_aouthdr.a_text; exec_data_start = unshared_text_start + exec_aouthdr.a_text; exec_data_end = exec_data_start + exec_aouthdr.a_data; data_start = exec_data_start; data_end += exec_data_start; fstat (execchan, &st_exec); exec_mtime = st_exec.st_mtime; } validate_files (); } else if (from_tty) printf ("No exec file now.\n"); /* Tell display code (if any) about the changed file name. */ if (exec_file_display_hook) (*exec_file_display_hook) (filename); } /* Read from the program's memory (except for inferior processes). This function is misnamed, since it only reads, never writes; and since it will use the core file and/or executable file as necessary. It should be extended to write as well as read, FIXME, for patching files. Return 0 if address could be read, EIO if addresss out of bounds. */ int xfer_core_file (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; register int val; int xferchan; char **xferfile; int fileptr; int returnval = 0; while (len > 0) { xferfile = 0; xferchan = 0; /* Determine which file the next bunch of addresses reside in, and where in the file. Set the file's read/write pointer to point at the proper place for the desired address and set xferfile and xferchan for the correct file. If desired address is nonexistent, leave them zero. i is set to the number of bytes that can be handled along with the next address. We put the most likely tests first for efficiency. */ /* Note that if there is no core file data_start and data_end are equal. */ if (memaddr >= data_start && memaddr < data_end) { i = min (len, data_end - memaddr); fileptr = memaddr - data_start + data_offset; xferfile = &corefile; xferchan = corechan; } /* Note that if there is no core file stack_start and stack_end define the shared library data. */ else if (memaddr >= stack_start && memaddr < stack_end) { if (corechan < 0) { struct shared_library *lib; for (lib = shlib; lib; lib = lib->shares) if (memaddr >= lib->header.a_exec.a_sldatabase && memaddr < lib->header.a_exec.a_sldatabase + lib->header.a_exec.a_data) break; if (lib) { i = min (len, lib->header.a_exec.a_sldatabase + lib->header.a_exec.a_data - memaddr); fileptr = lib->data_offset + memaddr - lib->header.a_exec.a_sldatabase; xferfile = execfile; xferchan = lib->chan; } } else { i = min (len, stack_end - memaddr); fileptr = memaddr - stack_start + stack_offset; xferfile = &corefile; xferchan = corechan; } } else if (corechan < 0 && memaddr >= exec_data_start && memaddr < exec_data_end) { i = min (len, exec_data_end - memaddr); fileptr = memaddr - exec_data_start + exec_data_offset; xferfile = &execfile; xferchan = execchan; } else if (memaddr >= text_start && memaddr < text_end) { struct shared_library *lib; for (lib = shlib; lib; lib = lib->shares) if (memaddr >= lib->text_start && memaddr < lib->text_start + lib->header.a_exec.a_text) break; if (lib) { i = min (len, lib->header.a_exec.a_text + lib->text_start - memaddr); fileptr = memaddr - lib->text_start + text_offset; xferfile = &execfile; xferchan = lib->chan; } else { i = min (len, text_end - memaddr); fileptr = memaddr - unshared_text_start + text_offset; xferfile = &execfile; xferchan = execchan; } } else if (memaddr < text_start) { i = min (len, text_start - memaddr); } else if (memaddr >= text_end && memaddr < (corechan >= 0? data_start : exec_data_start)) { i = min (len, data_start - memaddr); } else if (corechan >= 0 && memaddr >= data_end && memaddr < stack_start) { i = min (len, stack_start - memaddr); } else if (corechan < 0 && memaddr >= exec_data_end) { i = min (len, - memaddr); } else if (memaddr >= stack_end && stack_end != 0) { i = min (len, - memaddr); } else { /* Address did not classify into one of the known ranges. This shouldn't happen; we catch the endpoints. */ fatal ("Internal: Bad case logic in xfer_core_file."); } /* Now we know which file to use. Set up its pointer and transfer the data. */ if (xferfile) { if (*xferfile == 0) if (xferfile == &execfile) error ("No program file to examine."); else error ("No core dump file or running program to examine."); val = lseek (xferchan, fileptr, 0); if (val < 0) perror_with_name (*xferfile); val = myread (xferchan, myaddr, i); if (val < 0) perror_with_name (*xferfile); } /* If this address is for nonexistent memory, read zeros if reading, or do nothing if writing. Actually, we never right. */ else { memset (myaddr, '\0', i); returnval = EIO; } memaddr += i; myaddr += i; len -= i; } return returnval; } /* APCS (ARM procedure call standard) defines the following prologue: mov ip, sp [stmfd sp!, {a1,a2,a3,a4}] stmfd sp!, {...,fp,ip,lr,pc} [stfe f7, [sp, #-12]!] [stfe f6, [sp, #-12]!] [stfe f5, [sp, #-12]!] [stfe f4, [sp, #-12]!] sub fp, ip, #nn // nn == 20 or 4 depending on second ins */ CORE_ADDR skip_prologue(pc) CORE_ADDR pc; { union insn_fmt op; CORE_ADDR skip_pc = pc; op.ins = read_memory_integer(skip_pc, 4); /* look for the "mov ip,sp" */ if (op.generic.type != TYPE_ARITHMETIC || op.arith.opcode != OPCODE_MOV || op.arith.dest != SPTEMP || op.arith.operand2 != SP) return pc; skip_pc += 4; /* skip the "stmfd sp!,{a1,a2,a3,a4}" if its there */ op.ins = read_memory_integer(skip_pc, 4); if (op.generic.type == TYPE_BLOCK_BRANCH && op.generic.subtype == SUBTYPE_BLOCK && op.block.mask == 0xf && op.block.base == SP && op.block.is_load == 0 && op.block.writeback == 1 && op.block.increment == 0 && op.block.before == 1) skip_pc += 4; /* skip the "stmfd sp!,{...,fp,ip,lr,pc} */ op.ins = read_memory_integer(skip_pc, 4); if (op.generic.type != TYPE_BLOCK_BRANCH || op.generic.subtype != SUBTYPE_BLOCK || /* the mask should look like 110110xxxxxx0000 */ (op.block.mask & 0xd800) != 0xd800 || op.block.base != SP || op.block.is_load != 0 || op.block.writeback != 1 || op.block.increment != 0 || op.block.before != 1) return pc; skip_pc += 4; /* check for "sub fp,ip,#nn" */ op.ins = read_memory_integer(skip_pc, 4); if (op.generic.type != TYPE_ARITHMETIC || op.arith.opcode != OPCODE_SUB || op.arith.dest != FP || op.arith.operand1 != SPTEMP) return pc; return skip_pc + 4; } static void print_fpu_flags(flags) int flags; { if (flags & (1 << 0)) fputs("IVO ", stdout); if (flags & (1 << 1)) fputs("DVZ ", stdout); if (flags & (1 << 2)) fputs("OFL ", stdout); if (flags & (1 << 3)) fputs("UFL ", stdout); if (flags & (1 << 4)) fputs("INX ", stdout); putchar('\n'); } void arm_float_info() { register unsigned long status = read_register(FPS_REGNUM); int type; type = (status >> 24) & 127; printf("%s FPU type %d\n", (status & (1<<31)) ? "Hardware" : "Software", type); fputs("mask: ", stdout); print_fpu_flags(status >> 16); fputs("flags: ", stdout); print_fpu_flags(status); } gdb-4.13/gdb/arm-xdep.c 666 34562 1752 17641 5400443702 13201 0ustar fnfcygnus/* Acorn Risc Machine host machine support. Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "arm-opcode.h" #include #include #include #include #include #include #define N_TXTADDR(hdr) 0x8000 #define N_DATADDR(hdr) (hdr.a_text + 0x8000) #include "gdbcore.h" #include /* After a.out.h */ #include #include #include void fetch_inferior_registers (regno) int regno; /* Original value discarded */ { register unsigned int regaddr; char buf[MAX_REGISTER_RAW_SIZE]; register int i; struct user u; unsigned int offset = (char *) &u.u_ar0 - (char *) &u; offset = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0) - KERNEL_U_ADDR; registers_fetched (); for (regno = 0; regno < 16; regno++) { regaddr = offset + regno * 4; *(int *)&buf[0] = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0); if (regno == PC_REGNUM) *(int *)&buf[0] = GET_PC_PART(*(int *)&buf[0]); supply_register (regno, buf); } *(int *)&buf[0] = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) (offset + PC*4), 0); supply_register (PS_REGNUM, buf); /* set virtual register ps same as pc */ /* read the floating point registers */ offset = (char *) &u.u_fp_regs - (char *)&u; *(int *)buf = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0); supply_register (FPS_REGNUM, buf); for (regno = 16; regno < 24; regno++) { regaddr = offset + 4 + 12 * (regno - 16); for (i = 0; i < 12; i += sizeof(int)) *(int *) &buf[i] = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr + i), 0); supply_register (regno, buf); } } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { register unsigned int regaddr; char buf[80]; struct user u; unsigned long value; unsigned int offset = (char *) &u.u_ar0 - (char *) &u; offset = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0) - KERNEL_U_ADDR; if (regno >= 0) { if (regno >= 16) return; regaddr = offset + 4 * regno; errno = 0; value = read_register(regno); if (regno == PC_REGNUM) value = SET_PC_PART(read_register (PS_REGNUM), value); ptrace (PT_WRITE_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, value); if (errno != 0) { sprintf (buf, "writing register number %d", regno); perror_with_name (buf); } } else for (regno = 0; regno < 15; regno++) { regaddr = offset + regno * 4; errno = 0; value = read_register(regno); if (regno == PC_REGNUM) value = SET_PC_PART(read_register (PS_REGNUM), value); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, value); if (errno != 0) { sprintf (buf, "writing all regs, number %d", regno); perror_with_name (buf); } } } /* Work with core dump and executable files, for GDB. This code would be in core.c if it weren't machine-dependent. */ /* Structure to describe the chain of shared libraries used by the execfile. e.g. prog shares Xt which shares X11 which shares c. */ struct shared_library { struct exec_header header; char name[SHLIBLEN]; CORE_ADDR text_start; /* CORE_ADDR of 1st byte of text, this file */ long data_offset; /* offset of data section in file */ int chan; /* file descriptor for the file */ struct shared_library *shares; /* library this one shares */ }; static struct shared_library *shlib = 0; /* Hook for `exec_file_command' command to call. */ extern void (*exec_file_display_hook) (); static CORE_ADDR unshared_text_start; /* extended header from exec file (for shared library info) */ static struct exec_header exec_header; void core_file_command (filename, from_tty) char *filename; int from_tty; { int val; extern char registers[]; /* Discard all vestiges of any previous core file and mark data and stack spaces as empty. */ if (corefile) free (corefile); corefile = 0; if (corechan >= 0) close (corechan); corechan = -1; data_start = 0; data_end = 0; stack_start = STACK_END_ADDR; stack_end = STACK_END_ADDR; /* Now, if a new core file was specified, open it and digest it. */ if (filename) { filename = tilde_expand (filename); make_cleanup (free, filename); if (have_inferior_p ()) error ("To look at a core file, you must kill the program with \"kill\"."); corechan = open (filename, O_RDONLY, 0); if (corechan < 0) perror_with_name (filename); /* 4.2-style (and perhaps also sysV-style) core dump file. */ { struct user u; unsigned int reg_offset, fp_reg_offset; val = myread (corechan, &u, sizeof u); if (val < 0) perror_with_name ("Not a core file: reading upage"); if (val != sizeof u) error ("Not a core file: could only read %d bytes", val); /* We are depending on exec_file_command having been called previously to set exec_data_start. Since the executable and the core file share the same text segment, the address of the data segment will be the same in both. */ data_start = exec_data_start; data_end = data_start + NBPG * u.u_dsize; stack_start = stack_end - NBPG * u.u_ssize; data_offset = NBPG * UPAGES; stack_offset = NBPG * (UPAGES + u.u_dsize); /* Some machines put an absolute address in here and some put the offset in the upage of the regs. */ reg_offset = (int) u.u_ar0; if (reg_offset > NBPG * UPAGES) reg_offset -= KERNEL_U_ADDR; fp_reg_offset = (char *) &u.u_fp_regs - (char *)&u; /* I don't know where to find this info. So, for now, mark it as not available. */ N_SET_MAGIC (core_aouthdr, 0); /* Read the register values out of the core file and store them where `read_register' will find them. */ { register int regno; for (regno = 0; regno < NUM_REGS; regno++) { char buf[MAX_REGISTER_RAW_SIZE]; if (regno < 16) val = lseek (corechan, reg_offset + 4 * regno, 0); else if (regno < 24) val = lseek (corechan, fp_reg_offset + 4 + 12*(regno - 24), 0); else if (regno == 24) val = lseek (corechan, fp_reg_offset, 0); else if (regno == 25) val = lseek (corechan, reg_offset + 4 * PC, 0); if (val < 0 || (val = myread (corechan, buf, sizeof buf)) < 0) { char * buffer = (char *) alloca (strlen (reg_names[regno]) + 30); strcpy (buffer, "Reading register "); strcat (buffer, reg_names[regno]); perror_with_name (buffer); } if (regno == PC_REGNUM) *(int *)buf = GET_PC_PART(*(int *)buf); supply_register (regno, buf); } } } if (filename[0] == '/') corefile = savestring (filename, strlen (filename)); else { corefile = concat (current_directory, "/", filename, NULL); } set_current_frame ( create_new_frame (read_register (FP_REGNUM), read_pc ())); select_frame (get_current_frame (), 0); validate_files (); } else if (from_tty) printf ("No core file now.\n"); } gdb-4.13/gdb/blockframe.c 666 34562 1752 57701 5564742133 13605 0ustar fnfcygnus/* Get info from stack frames; convert between frames, blocks, functions and pc values. Copyright 1986, 1987, 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "bfd.h" #include "symfile.h" #include "objfiles.h" #include "frame.h" #include "gdbcore.h" #include "value.h" /* for read_register */ #include "target.h" /* for target_has_stack */ #include "inferior.h" /* for read_pc */ #include "annotate.h" /* Is ADDR inside the startup file? Note that if your machine has a way to detect the bottom of the stack, there is no need to call this function from FRAME_CHAIN_VALID; the reason for doing so is that some machines have no way of detecting bottom of stack. A PC of zero is always considered to be the bottom of the stack. */ int inside_entry_file (addr) CORE_ADDR addr; { if (addr == 0) return 1; if (symfile_objfile == 0) return 0; #if CALL_DUMMY_LOCATION == AT_ENTRY_POINT /* Do not stop backtracing if the pc is in the call dummy at the entry point. */ if (PC_IN_CALL_DUMMY (addr, 0, 0)) return 0; #endif return (addr >= symfile_objfile -> ei.entry_file_lowpc && addr < symfile_objfile -> ei.entry_file_highpc); } /* Test a specified PC value to see if it is in the range of addresses that correspond to the main() function. See comments above for why we might want to do this. Typically called from FRAME_CHAIN_VALID. A PC of zero is always considered to be the bottom of the stack. */ int inside_main_func (pc) CORE_ADDR pc; { if (pc == 0) return 1; if (symfile_objfile == 0) return 0; return (symfile_objfile -> ei.main_func_lowpc <= pc && symfile_objfile -> ei.main_func_highpc > pc); } /* Test a specified PC value to see if it is in the range of addresses that correspond to the process entry point function. See comments in objfiles.h for why we might want to do this. Typically called from FRAME_CHAIN_VALID. A PC of zero is always considered to be the bottom of the stack. */ int inside_entry_func (pc) CORE_ADDR pc; { if (pc == 0) return 1; if (symfile_objfile == 0) return 0; #if CALL_DUMMY_LOCATION == AT_ENTRY_POINT /* Do not stop backtracing if the pc is in the call dummy at the entry point. */ if (PC_IN_CALL_DUMMY (pc, 0, 0)) return 0; #endif return (symfile_objfile -> ei.entry_func_lowpc <= pc && symfile_objfile -> ei.entry_func_highpc > pc); } /* Address of innermost stack frame (contents of FP register) */ static FRAME current_frame; /* * Cache for frame addresses already read by gdb. Valid only while * inferior is stopped. Control variables for the frame cache should * be local to this module. */ struct obstack frame_cache_obstack; /* Return the innermost (currently executing) stack frame. */ FRAME get_current_frame () { /* We assume its address is kept in a general register; param.h says which register. */ return current_frame; } void set_current_frame (frame) FRAME frame; { current_frame = frame; } FRAME create_new_frame (addr, pc) FRAME_ADDR addr; CORE_ADDR pc; { struct frame_info *fci; /* Same type as FRAME */ char *name; fci = (struct frame_info *) obstack_alloc (&frame_cache_obstack, sizeof (struct frame_info)); /* Arbitrary frame */ fci->next = (struct frame_info *) 0; fci->prev = (struct frame_info *) 0; fci->frame = addr; fci->pc = pc; find_pc_partial_function (pc, &name, (CORE_ADDR *)NULL,(CORE_ADDR *)NULL); fci->signal_handler_caller = IN_SIGTRAMP (fci->pc, name); #ifdef INIT_EXTRA_FRAME_INFO INIT_EXTRA_FRAME_INFO (0, fci); #endif return fci; } /* Return the frame that called FRAME. If FRAME is the original frame (it has no caller), return 0. */ FRAME get_prev_frame (frame) FRAME frame; { /* We're allowed to know that FRAME and "struct frame_info *" are the same */ return get_prev_frame_info (frame); } /* Return the frame that FRAME calls (0 if FRAME is the innermost frame). */ FRAME get_next_frame (frame) FRAME frame; { /* We're allowed to know that FRAME and "struct frame_info *" are the same */ return frame->next; } /* * Flush the entire frame cache. */ void flush_cached_frames () { /* Since we can't really be sure what the first object allocated was */ obstack_free (&frame_cache_obstack, 0); obstack_init (&frame_cache_obstack); current_frame = (struct frame_info *) 0; /* Invalidate cache */ annotate_frames_invalid (); } /* Flush the frame cache, and start a new one if necessary. */ void reinit_frame_cache () { flush_cached_frames (); if (target_has_stack) { set_current_frame (create_new_frame (read_fp (), read_pc ())); select_frame (get_current_frame (), 0); } else { set_current_frame (0); select_frame ((FRAME) 0, -1); } } /* Return a structure containing various interesting information about a specified stack frame. */ /* How do I justify including this function? Well, the FRAME identifier format has gone through several changes recently, and it's not completely inconceivable that it could happen again. If it does, have this routine around will help */ struct frame_info * get_frame_info (frame) FRAME frame; { return frame; } /* If a machine allows frameless functions, it should define a macro FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) in param.h. FI is the struct frame_info for the frame, and FRAMELESS should be set to nonzero if it represents a frameless function invocation. */ /* Return nonzero if the function for this frame lacks a prologue. Many machines can define FRAMELESS_FUNCTION_INVOCATION to just call this function. */ int frameless_look_for_prologue (frame) FRAME frame; { CORE_ADDR func_start, after_prologue; func_start = (get_pc_function_start (frame->pc) + FUNCTION_START_OFFSET); if (func_start) { after_prologue = func_start; #ifdef SKIP_PROLOGUE_FRAMELESS_P /* This is faster, since only care whether there *is* a prologue, not how long it is. */ SKIP_PROLOGUE_FRAMELESS_P (after_prologue); #else SKIP_PROLOGUE (after_prologue); #endif return after_prologue == func_start; } else /* If we can't find the start of the function, we don't really know whether the function is frameless, but we should be able to get a reasonable (i.e. best we can do under the circumstances) backtrace by saying that it isn't. */ return 0; } /* Default a few macros that people seldom redefine. */ #if !defined (INIT_FRAME_PC) #define INIT_FRAME_PC(fromleaf, prev) \ prev->pc = (fromleaf ? SAVED_PC_AFTER_CALL (prev->next) : \ prev->next ? FRAME_SAVED_PC (prev->next) : read_pc ()); #endif #ifndef FRAME_CHAIN_COMBINE #define FRAME_CHAIN_COMBINE(chain, thisframe) (chain) #endif /* Return a structure containing various interesting information about the frame that called NEXT_FRAME. Returns NULL if there is no such frame. */ struct frame_info * get_prev_frame_info (next_frame) FRAME next_frame; { FRAME_ADDR address = 0; struct frame_info *prev; int fromleaf = 0; char *name; /* If the requested entry is in the cache, return it. Otherwise, figure out what the address should be for the entry we're about to add to the cache. */ if (!next_frame) { #if 0 /* This screws value_of_variable, which just wants a nice clean NULL return from block_innermost_frame if there are no frames. I don't think I've ever seen this message happen otherwise. And returning NULL here is a perfectly legitimate thing to do. */ if (!current_frame) { error ("You haven't set up a process's stack to examine."); } #endif return current_frame; } /* If we have the prev one, return it */ if (next_frame->prev) return next_frame->prev; /* On some machines it is possible to call a function without setting up a stack frame for it. On these machines, we define this macro to take two args; a frameinfo pointer identifying a frame and a variable to set or clear if it is or isn't leafless. */ #ifdef FRAMELESS_FUNCTION_INVOCATION /* Still don't want to worry about this except on the innermost frame. This macro will set FROMLEAF if NEXT_FRAME is a frameless function invocation. */ if (!(next_frame->next)) { FRAMELESS_FUNCTION_INVOCATION (next_frame, fromleaf); if (fromleaf) address = next_frame->frame; } #endif if (!fromleaf) { /* Two macros defined in tm.h specify the machine-dependent actions to be performed here. First, get the frame's chain-pointer. If that is zero, the frame is the outermost frame or a leaf called by the outermost frame. This means that if start calls main without a frame, we'll return 0 (which is fine anyway). Nope; there's a problem. This also returns when the current routine is a leaf of main. This is unacceptable. We move this to after the ffi test; I'd rather have backtraces from start go curfluy than have an abort called from main not show main. */ address = FRAME_CHAIN (next_frame); if (!FRAME_CHAIN_VALID (address, next_frame)) return 0; address = FRAME_CHAIN_COMBINE (address, next_frame); } if (address == 0) return 0; prev = (struct frame_info *) obstack_alloc (&frame_cache_obstack, sizeof (struct frame_info)); if (next_frame) next_frame->prev = prev; prev->next = next_frame; prev->prev = (struct frame_info *) 0; prev->frame = address; prev->signal_handler_caller = 0; /* This change should not be needed, FIXME! We should determine whether any targets *need* INIT_FRAME_PC to happen after INIT_EXTRA_FRAME_INFO and come up with a simple way to express what goes on here. INIT_EXTRA_FRAME_INFO is called from two places: create_new_frame (where the PC is already set up) and here (where it isn't). INIT_FRAME_PC is only called from here, always after INIT_EXTRA_FRAME_INFO. The catch is the MIPS, where INIT_EXTRA_FRAME_INFO requires the PC value (which hasn't been set yet). Some other machines appear to require INIT_EXTRA_FRAME_INFO before they can do INIT_FRAME_PC. Phoo. We shouldn't need INIT_FRAME_PC_FIRST to add more complication to an already overcomplicated part of GDB. gnu@cygnus.com, 15Sep92. To answer the question, yes the sparc needs INIT_FRAME_PC after INIT_EXTRA_FRAME_INFO. Suggested scheme: SETUP_INNERMOST_FRAME() Default version is just create_new_frame (read_fp ()), read_pc ()). Machines with extra frame info would do that (or the local equivalent) and then set the extra fields. SETUP_ARBITRARY_FRAME(argc, argv) Only change here is that create_new_frame would no longer init extra frame info; SETUP_ARBITRARY_FRAME would have to do that. INIT_PREV_FRAME(fromleaf, prev) Replace INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC. This should also return a flag saying whether to keep the new frame, or whether to discard it, because on some machines (e.g. mips) it is really awkward to have FRAME_CHAIN_VALID called *before* INIT_EXTRA_FRAME_INFO (there is no good way to get information deduced in FRAME_CHAIN_VALID into the extra fields of the new frame). std_frame_pc(fromleaf, prev) This is the default setting for INIT_PREV_FRAME. It just does what the default INIT_FRAME_PC does. Some machines will call it from INIT_PREV_FRAME (either at the beginning, the end, or in the middle). Some machines won't use it. kingdon@cygnus.com, 13Apr93, 31Jan94. */ #ifdef INIT_FRAME_PC_FIRST INIT_FRAME_PC_FIRST (fromleaf, prev); #endif #ifdef INIT_EXTRA_FRAME_INFO INIT_EXTRA_FRAME_INFO(fromleaf, prev); #endif /* This entry is in the frame queue now, which is good since FRAME_SAVED_PC may use that queue to figure out its value (see tm-sparc.h). We want the pc saved in the inferior frame. */ INIT_FRAME_PC(fromleaf, prev); /* If ->frame and ->pc are unchanged, we are in the process of getting ourselves into an infinite backtrace. Some architectures check this in FRAME_CHAIN or thereabouts, but it seems like there is no reason this can't be an architecture-independent check. */ if (next_frame != NULL) { if (prev->frame == next_frame->frame && prev->pc == next_frame->pc) { next_frame->prev = NULL; obstack_free (&frame_cache_obstack, prev); return NULL; } } find_pc_partial_function (prev->pc, &name, (CORE_ADDR *)NULL,(CORE_ADDR *)NULL); if (IN_SIGTRAMP (prev->pc, name)) prev->signal_handler_caller = 1; return prev; } CORE_ADDR get_frame_pc (frame) FRAME frame; { struct frame_info *fi; fi = get_frame_info (frame); return fi->pc; } #if defined (FRAME_FIND_SAVED_REGS) /* Find the addresses in which registers are saved in FRAME. */ void get_frame_saved_regs (frame_info_addr, saved_regs_addr) struct frame_info *frame_info_addr; struct frame_saved_regs *saved_regs_addr; { FRAME_FIND_SAVED_REGS (frame_info_addr, *saved_regs_addr); } #endif /* Return the innermost lexical block in execution in a specified stack frame. The frame address is assumed valid. */ struct block * get_frame_block (frame) FRAME frame; { struct frame_info *fi; CORE_ADDR pc; fi = get_frame_info (frame); pc = fi->pc; if (fi->next != 0 && fi->next->signal_handler_caller == 0) /* We are not in the innermost frame and we were not interrupted by a signal. We need to subtract one to get the correct block, in case the call instruction was the last instruction of the block. If there are any machines on which the saved pc does not point to after the call insn, we probably want to make fi->pc point after the call insn anyway. */ --pc; return block_for_pc (pc); } struct block * get_current_block () { return block_for_pc (read_pc ()); } CORE_ADDR get_pc_function_start (pc) CORE_ADDR pc; { register struct block *bl; register struct symbol *symbol; register struct minimal_symbol *msymbol; CORE_ADDR fstart; if ((bl = block_for_pc (pc)) != NULL && (symbol = block_function (bl)) != NULL) { bl = SYMBOL_BLOCK_VALUE (symbol); fstart = BLOCK_START (bl); } else if ((msymbol = lookup_minimal_symbol_by_pc (pc)) != NULL) { fstart = SYMBOL_VALUE_ADDRESS (msymbol); } else { fstart = 0; } return (fstart); } /* Return the symbol for the function executing in frame FRAME. */ struct symbol * get_frame_function (frame) FRAME frame; { register struct block *bl = get_frame_block (frame); if (bl == 0) return 0; return block_function (bl); } /* Return the blockvector immediately containing the innermost lexical block containing the specified pc value, or 0 if there is none. PINDEX is a pointer to the index value of the block. If PINDEX is NULL, we don't pass this information back to the caller. */ struct blockvector * blockvector_for_pc (pc, pindex) register CORE_ADDR pc; int *pindex; { register struct block *b; register int bot, top, half; register struct symtab *s; struct blockvector *bl; /* First search all symtabs for one whose file contains our pc */ s = find_pc_symtab (pc); if (s == 0) return 0; bl = BLOCKVECTOR (s); b = BLOCKVECTOR_BLOCK (bl, 0); /* Then search that symtab for the smallest block that wins. */ /* Use binary search to find the last block that starts before PC. */ bot = 0; top = BLOCKVECTOR_NBLOCKS (bl); while (top - bot > 1) { half = (top - bot + 1) >> 1; b = BLOCKVECTOR_BLOCK (bl, bot + half); if (BLOCK_START (b) <= pc) bot += half; else top = bot + half; } /* Now search backward for a block that ends after PC. */ while (bot >= 0) { b = BLOCKVECTOR_BLOCK (bl, bot); if (BLOCK_END (b) > pc) { if (pindex) *pindex = bot; return bl; } bot--; } return 0; } /* Return the innermost lexical block containing the specified pc value, or 0 if there is none. */ struct block * block_for_pc (pc) register CORE_ADDR pc; { register struct blockvector *bl; int index; bl = blockvector_for_pc (pc, &index); if (bl) return BLOCKVECTOR_BLOCK (bl, index); return 0; } /* Return the function containing pc value PC. Returns 0 if function is not known. */ struct symbol * find_pc_function (pc) CORE_ADDR pc; { register struct block *b = block_for_pc (pc); if (b == 0) return 0; return block_function (b); } /* These variables are used to cache the most recent result * of find_pc_partial_function. */ static CORE_ADDR cache_pc_function_low = 0; static CORE_ADDR cache_pc_function_high = 0; static char *cache_pc_function_name = 0; /* Clear cache, e.g. when symbol table is discarded. */ void clear_pc_function_cache() { cache_pc_function_low = 0; cache_pc_function_high = 0; cache_pc_function_name = (char *)0; } /* Finds the "function" (text symbol) that is smaller than PC but greatest of all of the potential text symbols. Sets *NAME and/or *ADDRESS conditionally if that pointer is non-null. If ENDADDR is non-null, then set *ENDADDR to be the end of the function (exclusive), but passing ENDADDR as non-null means that the function might cause symbols to be read. This function either succeeds or fails (not halfway succeeds). If it succeeds, it sets *NAME, *ADDRESS, and *ENDADDR to real information and returns 1. If it fails, it sets *NAME, *ADDRESS, and *ENDADDR to zero and returns 0. */ int find_pc_partial_function (pc, name, address, endaddr) CORE_ADDR pc; char **name; CORE_ADDR *address; CORE_ADDR *endaddr; { struct partial_symtab *pst; struct symbol *f; struct minimal_symbol *msymbol; struct partial_symbol *psb; struct obj_section *sec; if (pc >= cache_pc_function_low && pc < cache_pc_function_high) goto return_cached_value; /* If sigtramp is in the u area, it counts as a function (especially important for step_1). */ #if defined SIGTRAMP_START if (IN_SIGTRAMP (pc, (char *)NULL)) { cache_pc_function_low = SIGTRAMP_START; cache_pc_function_high = SIGTRAMP_END; cache_pc_function_name = ""; goto return_cached_value; } #endif msymbol = lookup_minimal_symbol_by_pc (pc); pst = find_pc_psymtab (pc); if (pst) { /* Need to read the symbols to get a good value for the end address. */ if (endaddr != NULL && !pst->readin) { /* Need to get the terminal in case symbol-reading produces output. */ target_terminal_ours_for_output (); PSYMTAB_TO_SYMTAB (pst); } if (pst->readin) { /* Checking whether the msymbol has a larger value is for the "pathological" case mentioned in print_frame_info. */ f = find_pc_function (pc); if (f != NULL && (msymbol == NULL || (BLOCK_START (SYMBOL_BLOCK_VALUE (f)) >= SYMBOL_VALUE_ADDRESS (msymbol)))) { cache_pc_function_low = BLOCK_START (SYMBOL_BLOCK_VALUE (f)); cache_pc_function_high = BLOCK_END (SYMBOL_BLOCK_VALUE (f)); cache_pc_function_name = SYMBOL_NAME (f); goto return_cached_value; } } else { /* Now that static symbols go in the minimal symbol table, perhaps we could just ignore the partial symbols. But at least for now we use the partial or minimal symbol, whichever is larger. */ psb = find_pc_psymbol (pst, pc); if (psb && (msymbol == NULL || (SYMBOL_VALUE_ADDRESS (psb) >= SYMBOL_VALUE_ADDRESS (msymbol)))) { /* This case isn't being cached currently. */ if (address) *address = SYMBOL_VALUE_ADDRESS (psb); if (name) *name = SYMBOL_NAME (psb); /* endaddr non-NULL can't happen here. */ return 1; } } } /* Not in the normal symbol tables, see if the pc is in a known section. If it's not, then give up. This ensures that anything beyond the end of the text seg doesn't appear to be part of the last function in the text segment. */ sec = find_pc_section (pc); if (!sec) msymbol = NULL; /* Must be in the minimal symbol table. */ if (msymbol == NULL) { /* No available symbol. */ if (name != NULL) *name = 0; if (address != NULL) *address = 0; if (endaddr != NULL) *endaddr = 0; return 0; } /* See if we're in a transfer table for Sun shared libs. */ if (msymbol -> type == mst_text || msymbol -> type == mst_file_text) cache_pc_function_low = SYMBOL_VALUE_ADDRESS (msymbol); else /* It is a transfer table for Sun shared libraries. */ cache_pc_function_low = pc - FUNCTION_START_OFFSET; cache_pc_function_name = SYMBOL_NAME (msymbol); /* Use the lesser of the next minimal symbol, or the end of the section, as the end of the function. */ if (SYMBOL_NAME (msymbol + 1) != NULL && SYMBOL_VALUE_ADDRESS (msymbol + 1) < sec->endaddr) cache_pc_function_high = SYMBOL_VALUE_ADDRESS (msymbol + 1); else /* We got the start address from the last msymbol in the objfile. So the end address is the end of the section. */ cache_pc_function_high = sec->endaddr; return_cached_value: if (address) *address = cache_pc_function_low; if (name) *name = cache_pc_function_name; if (endaddr) *endaddr = cache_pc_function_high; return 1; } /* Return the innermost stack frame executing inside of BLOCK, or NULL if there is no such frame. If BLOCK is NULL, just return NULL. */ FRAME block_innermost_frame (block) struct block *block; { struct frame_info *fi; register FRAME frame; register CORE_ADDR start; register CORE_ADDR end; if (block == NULL) return NULL; start = BLOCK_START (block); end = BLOCK_END (block); frame = 0; while (1) { frame = get_prev_frame (frame); if (frame == 0) return 0; fi = get_frame_info (frame); if (fi->pc >= start && fi->pc < end) return frame; } } /* Return the full FRAME which corresponds to the given FRAME_ADDR or NULL if no FRAME on the chain corresponds to FRAME_ADDR. */ FRAME find_frame_addr_in_frame_chain (frame_addr) FRAME_ADDR frame_addr; { FRAME frame = NULL; if (frame_addr == (CORE_ADDR)0) return NULL; while (1) { frame = get_prev_frame (frame); if (frame == NULL) return NULL; if (FRAME_FP (frame) == frame_addr) return frame; } } #ifdef SIGCONTEXT_PC_OFFSET /* Get saved user PC for sigtramp from sigcontext for BSD style sigtramp. */ CORE_ADDR sigtramp_saved_pc (frame) FRAME frame; { CORE_ADDR sigcontext_addr; char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT]; int ptrbytes = TARGET_PTR_BIT / TARGET_CHAR_BIT; int sigcontext_offs = (2 * TARGET_INT_BIT) / TARGET_CHAR_BIT; /* Get sigcontext address, it is the third parameter on the stack. */ if (frame->next) sigcontext_addr = read_memory_integer (FRAME_ARGS_ADDRESS (frame->next) + FRAME_ARGS_SKIP + sigcontext_offs, ptrbytes); else sigcontext_addr = read_memory_integer (read_register (SP_REGNUM) + sigcontext_offs, ptrbytes); /* Don't cause a memory_error when accessing sigcontext in case the stack layout has changed or the stack is corrupt. */ target_read_memory (sigcontext_addr + SIGCONTEXT_PC_OFFSET, buf, ptrbytes); return extract_unsigned_integer (buf, ptrbytes); } #endif /* SIGCONTEXT_PC_OFFSET */ void _initialize_blockframe () { obstack_init (&frame_cache_obstack); } gdb-4.13/gdb/breakpoint.c 666 34562 1752 326361 5615051113 13643 0ustar fnfcygnus/* Everything about breakpoints, for GDB. Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include "symtab.h" #include "frame.h" #include "breakpoint.h" #include "gdbtypes.h" #include "expression.h" #include "gdbcore.h" #include "gdbcmd.h" #include "value.h" #include "ctype.h" #include "command.h" #include "inferior.h" #include "thread.h" #include "target.h" #include "language.h" #include #include "demangle.h" #include "annotate.h" /* local function prototypes */ static void catch_command_1 PARAMS ((char *, int, int)); static void enable_delete_command PARAMS ((char *, int)); static void enable_delete_breakpoint PARAMS ((struct breakpoint *)); static void enable_once_command PARAMS ((char *, int)); static void enable_once_breakpoint PARAMS ((struct breakpoint *)); static void disable_command PARAMS ((char *, int)); static void disable_breakpoint PARAMS ((struct breakpoint *)); static void enable_command PARAMS ((char *, int)); static void enable_breakpoint PARAMS ((struct breakpoint *)); static void map_breakpoint_numbers PARAMS ((char *, void (*)(struct breakpoint *))); static void ignore_command PARAMS ((char *, int)); static int breakpoint_re_set_one PARAMS ((char *)); static void delete_command PARAMS ((char *, int)); static void clear_command PARAMS ((char *, int)); static void catch_command PARAMS ((char *, int)); static struct symtabs_and_lines get_catch_sals PARAMS ((int)); static void watch_command PARAMS ((char *, int)); static int can_use_hardware_watchpoint PARAMS ((struct value *)); static void tbreak_command PARAMS ((char *, int)); static void break_command_1 PARAMS ((char *, int, int)); static void mention PARAMS ((struct breakpoint *)); static struct breakpoint * set_raw_breakpoint PARAMS ((struct symtab_and_line)); static void check_duplicates PARAMS ((CORE_ADDR)); static void describe_other_breakpoints PARAMS ((CORE_ADDR)); static void breakpoints_info PARAMS ((char *, int)); static void breakpoint_1 PARAMS ((int, int)); static bpstat bpstat_alloc PARAMS ((struct breakpoint *, bpstat)); static int breakpoint_cond_eval PARAMS ((char *)); static void cleanup_executing_breakpoints PARAMS ((int)); static void commands_command PARAMS ((char *, int)); static void condition_command PARAMS ((char *, int)); static int get_number PARAMS ((char **)); static void set_breakpoint_count PARAMS ((int)); static int remove_breakpoint PARAMS ((struct breakpoint *)); extern int addressprint; /* Print machine addresses? */ /* Are we executing breakpoint commands? */ static int executing_breakpoint_commands; /* Walk the following statement or block through all breakpoints. ALL_BREAKPOINTS_SAFE does so even if the statment deletes the current breakpoint. */ #define ALL_BREAKPOINTS(b) for (b = breakpoint_chain; b; b = b->next) #define ALL_BREAKPOINTS_SAFE(b,tmp) \ for (b = breakpoint_chain; \ b? (tmp=b->next, 1): 0; \ b = tmp) /* By default no support for hardware watchpoints is assumed. */ #ifndef TARGET_CAN_USE_HARDWARE_WATCHPOINT #define TARGET_CAN_USE_HARDWARE_WATCHPOINT(TYPE,CNT,OTHERTYPE) 0 #define target_remove_watchpoint(ADDR,LEN,TYPE) -1 #define target_insert_watchpoint(ADDR,LEN,TYPE) -1 #endif #ifndef target_insert_hw_breakpoint #define target_remove_hw_breakpoint(ADDR,SHADOW) -1 #define target_insert_hw_breakpoint(ADDR,SHADOW) -1 #endif #ifndef target_stopped_data_address #define target_stopped_data_address() 0 #endif /* True if breakpoint hit counts should be displayed in breakpoint info. */ int show_breakpoint_hit_counts = 1; /* Chain of all breakpoints defined. */ static struct breakpoint *breakpoint_chain; /* Number of last breakpoint made. */ static int breakpoint_count; /* Set breakpoint count to NUM. */ static void set_breakpoint_count (num) int num; { breakpoint_count = num; set_internalvar (lookup_internalvar ("bpnum"), value_from_longest (builtin_type_int, (LONGEST) num)); } /* Used in run_command to zero the hit count when a new run starts. */ void clear_breakpoint_hit_counts () { struct breakpoint *b; ALL_BREAKPOINTS (b) b->hit_count = 0; } /* Default address, symtab and line to put a breakpoint at for "break" command with no arg. if default_breakpoint_valid is zero, the other three are not valid, and "break" with no arg is an error. This set by print_stack_frame, which calls set_default_breakpoint. */ int default_breakpoint_valid; CORE_ADDR default_breakpoint_address; struct symtab *default_breakpoint_symtab; int default_breakpoint_line; /* *PP is a string denoting a breakpoint. Get the number of the breakpoint. Advance *PP after the string and any trailing whitespace. Currently the string can either be a number or "$" followed by the name of a convenience variable. Making it an expression wouldn't work well for map_breakpoint_numbers (e.g. "4 + 5 + 6"). */ static int get_number (pp) char **pp; { int retval; char *p = *pp; if (p == NULL) /* Empty line means refer to the last breakpoint. */ return breakpoint_count; else if (*p == '$') { /* Make a copy of the name, so we can null-terminate it to pass to lookup_internalvar(). */ char *varname; char *start = ++p; value_ptr val; while (isalnum (*p) || *p == '_') p++; varname = (char *) alloca (p - start + 1); strncpy (varname, start, p - start); varname[p - start] = '\0'; val = value_of_internalvar (lookup_internalvar (varname)); if (TYPE_CODE (VALUE_TYPE (val)) != TYPE_CODE_INT) error ( "Convenience variables used to specify breakpoints must have integer values." ); retval = (int) value_as_long (val); } else { if (*p == '-') ++p; while (*p >= '0' && *p <= '9') ++p; if (p == *pp) /* There is no number here. (e.g. "cond a == b"). */ error_no_arg ("breakpoint number"); retval = atoi (*pp); } if (!(isspace (*p) || *p == '\0')) error ("breakpoint number expected"); while (isspace (*p)) p++; *pp = p; return retval; } /* condition N EXP -- set break condition of breakpoint N to EXP. */ static void condition_command (arg, from_tty) char *arg; int from_tty; { register struct breakpoint *b; char *p; register int bnum; if (arg == 0) error_no_arg ("breakpoint number"); p = arg; bnum = get_number (&p); ALL_BREAKPOINTS (b) if (b->number == bnum) { if (b->cond) { free ((PTR)b->cond); b->cond = 0; } if (b->cond_string != NULL) free ((PTR)b->cond_string); if (*p == 0) { b->cond = 0; b->cond_string = NULL; if (from_tty) printf_filtered ("Breakpoint %d now unconditional.\n", bnum); } else { arg = p; /* I don't know if it matters whether this is the string the user typed in or the decompiled expression. */ b->cond_string = savestring (arg, strlen (arg)); b->cond = parse_exp_1 (&arg, block_for_pc (b->address), 0); if (*arg) error ("Junk at end of expression"); } return; } error ("No breakpoint number %d.", bnum); } /* ARGSUSED */ static void commands_command (arg, from_tty) char *arg; int from_tty; { register struct breakpoint *b; char *p; register int bnum; struct command_line *l; /* If we allowed this, we would have problems with when to free the storage, if we change the commands currently being read from. */ if (executing_breakpoint_commands) error ("Can't use the \"commands\" command among a breakpoint's commands."); p = arg; bnum = get_number (&p); if (p && *p) error ("Unexpected extra arguments following breakpoint number."); ALL_BREAKPOINTS (b) if (b->number == bnum) { if (from_tty && input_from_terminal_p ()) printf_filtered ("Type commands for when breakpoint %d is hit, one per line.\n\ End with a line saying just \"end\".\n", bnum); l = read_command_lines (); free_command_lines (&b->commands); b->commands = l; breakpoints_changed (); return; } error ("No breakpoint number %d.", bnum); } extern int memory_breakpoint_size; /* from mem-break.c */ /* Like target_read_memory() but if breakpoints are inserted, return the shadow contents instead of the breakpoints themselves. Read "memory data" from whatever target or inferior we have. Returns zero if successful, errno value if not. EIO is used for address out of bounds. If breakpoints are inserted, returns shadow contents, not the breakpoints themselves. From breakpoint.c. */ int read_memory_nobpt (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; unsigned len; { int status; struct breakpoint *b; if (memory_breakpoint_size < 0) /* No breakpoints on this machine. FIXME: This should be dependent on the debugging target. Probably want target_insert_breakpoint to return a size, saying how many bytes of the shadow contents are used, or perhaps have something like target_xfer_shadow. */ return target_read_memory (memaddr, myaddr, len); ALL_BREAKPOINTS (b) { if (b->type == bp_watchpoint || b->type == bp_hardware_watchpoint || b->type == bp_read_watchpoint || b->type == bp_access_watchpoint || !b->inserted) continue; else if (b->address + memory_breakpoint_size <= memaddr) /* The breakpoint is entirely before the chunk of memory we are reading. */ continue; else if (b->address >= memaddr + len) /* The breakpoint is entirely after the chunk of memory we are reading. */ continue; else { /* Copy the breakpoint from the shadow contents, and recurse for the things before and after. */ /* Addresses and length of the part of the breakpoint that we need to copy. */ CORE_ADDR membpt = b->address; unsigned int bptlen = memory_breakpoint_size; /* Offset within shadow_contents. */ int bptoffset = 0; if (membpt < memaddr) { /* Only copy the second part of the breakpoint. */ bptlen -= memaddr - membpt; bptoffset = memaddr - membpt; membpt = memaddr; } if (membpt + bptlen > memaddr + len) { /* Only copy the first part of the breakpoint. */ bptlen -= (membpt + bptlen) - (memaddr + len); } memcpy (myaddr + membpt - memaddr, b->shadow_contents + bptoffset, bptlen); if (membpt > memaddr) { /* Copy the section of memory before the breakpoint. */ status = read_memory_nobpt (memaddr, myaddr, membpt - memaddr); if (status != 0) return status; } if (membpt + bptlen < memaddr + len) { /* Copy the section of memory after the breakpoint. */ status = read_memory_nobpt (membpt + bptlen, myaddr + membpt + bptlen - memaddr, memaddr + len - (membpt + bptlen)); if (status != 0) return status; } return 0; } } /* Nothing overlaps. Just call read_memory_noerr. */ return target_read_memory (memaddr, myaddr, len); } /* insert_breakpoints is used when starting or continuing the program. remove_breakpoints is used when the program stops. Both return zero if successful, or an `errno' value if could not write the inferior. */ int insert_breakpoints () { register struct breakpoint *b; int val = 0; int disabled_breaks = 0; ALL_BREAKPOINTS (b) if (b->type != bp_watchpoint && b->type != bp_hardware_watchpoint && b->type != bp_read_watchpoint && b->type != bp_access_watchpoint && b->enable != disabled && ! b->inserted && ! b->duplicate) { if (b->type == bp_hardware_breakpoint) val = target_insert_hw_breakpoint(b->address, b->shadow_contents); else val = target_insert_breakpoint(b->address, b->shadow_contents); if (val) { /* Can't set the breakpoint. */ #if defined (DISABLE_UNSETTABLE_BREAK) if (DISABLE_UNSETTABLE_BREAK (b->address)) { val = 0; b->enable = disabled; if (!disabled_breaks) { target_terminal_ours_for_output (); fprintf_unfiltered (gdb_stderr, "Cannot insert breakpoint %d:\n", b->number); printf_filtered ("Disabling shared library breakpoints:\n"); } disabled_breaks = 1; printf_filtered ("%d ", b->number); } else #endif { target_terminal_ours_for_output (); fprintf_unfiltered (gdb_stderr, "Cannot insert breakpoint %d:\n", b->number); #ifdef ONE_PROCESS_WRITETEXT fprintf_unfiltered (gdb_stderr, "The same program may be running in another process.\n"); #endif memory_error (val, b->address); /* which bombs us out */ } } else b->inserted = 1; } else if ((b->type == bp_hardware_watchpoint || b->type == bp_read_watchpoint || b->type == bp_access_watchpoint) && b->enable == enabled && ! b->inserted && ! b->duplicate) { FRAME saved_frame; int saved_level, within_current_scope; value_ptr mark = value_mark (); value_ptr v; /* Save the current frame and level so we can restore it after evaluating the watchpoint expression on its own frame. */ saved_frame = selected_frame; saved_level = selected_frame_level; /* Determine if the watchpoint is within scope. */ if (b->exp_valid_block == NULL) within_current_scope = 1; else { FRAME fr = find_frame_addr_in_frame_chain (b->watchpoint_frame); within_current_scope = (fr != NULL); if (within_current_scope) select_frame (fr, -1); } if (within_current_scope) { /* Evaluate the expression and cut the chain of values produced off from the value chain. */ v = evaluate_expression (b->exp); value_release_to_mark (mark); b->val_chain = v; b->inserted = 1; /* Look at each value on the value chain. */ for ( ; v; v=v->next) { /* If it's a memory location, then we must watch it. */ if (v->lval == lval_memory) { int addr, len, type; addr = VALUE_ADDRESS (v) + VALUE_OFFSET (v); len = TYPE_LENGTH (VALUE_TYPE (v)); type = 0; if (b->type == bp_read_watchpoint) type = 1; else if (b->type == bp_access_watchpoint) type = 2; val = target_insert_watchpoint (addr, len, type); if (val == -1) { b->inserted = 0; break; } val = 0; } } /* Failure to insert a watchpoint on any memory value in the value chain brings us here. */ if (!b->inserted) warning ("Hardware watchpoint %d: Could not insert watchpoint\n", b->number); } else { printf_filtered ("\ Hardware watchpoint %d deleted because the program has left the block in\n\ which its expression is valid.\n", b->number); if (b->related_breakpoint) delete_breakpoint (b->related_breakpoint); delete_breakpoint (b); } /* Restore the frame and level. */ select_frame (saved_frame, saved_level); } if (disabled_breaks) printf_filtered ("\n"); return val; } int remove_breakpoints () { register struct breakpoint *b; int val; ALL_BREAKPOINTS (b) { if (b->inserted) { val = remove_breakpoint (b); if (val != 0) return val; } } return 0; } static int remove_breakpoint (b) struct breakpoint *b; { int val; if (b->type != bp_watchpoint && b->type != bp_hardware_watchpoint && b->type != bp_read_watchpoint && b->type != bp_access_watchpoint) { if (b->type == bp_hardware_breakpoint) val = target_remove_hw_breakpoint(b->address, b->shadow_contents); else val = target_remove_breakpoint(b->address, b->shadow_contents); if (val) return val; b->inserted = 0; } else if ((b->type == bp_hardware_watchpoint || b->type == bp_read_watchpoint || b->type == bp_access_watchpoint) && b->enable == enabled && ! b->duplicate) { value_ptr v, n; b->inserted = 0; /* Walk down the saved value chain. */ for (v = b->val_chain; v; v = v->next) { /* For each memory reference remove the watchpoint at that address. */ if (v->lval == lval_memory) { int addr, len; addr = VALUE_ADDRESS (v) + VALUE_OFFSET (v); len = TYPE_LENGTH (VALUE_TYPE (v)); val = target_remove_watchpoint (addr, len, b->type); if (val == -1) b->inserted = 1; val = 0; } } /* Failure to remove any of the hardware watchpoints comes here. */ if (b->inserted) error ("Hardware watchpoint %d: Could not remove watchpoint\n", b->number); /* Free the saved value chain. We will construct a new one the next time the watchpoint is inserted. */ for (v = b->val_chain; v; v = n) { n = v->next; value_free (v); } b->val_chain = NULL; } return 0; } /* Clear the "inserted" flag in all breakpoints. */ void mark_breakpoints_out () { register struct breakpoint *b; ALL_BREAKPOINTS (b) b->inserted = 0; } /* Clear the "inserted" flag in all breakpoints and delete any breakpoints which should go away between runs of the program. */ void breakpoint_init_inferior () { register struct breakpoint *b, *temp; ALL_BREAKPOINTS_SAFE (b, temp) { b->inserted = 0; /* If the call dummy breakpoint is at the entry point it will cause problems when the inferior is rerun, so we better get rid of it. */ if (b->type == bp_call_dummy) delete_breakpoint (b); /* Likewise for scope breakpoints. */ if (b->type == bp_watchpoint_scope) delete_breakpoint (b); /* Likewise for watchpoints on local expressions. */ if ((b->type == bp_watchpoint || b->type == bp_hardware_watchpoint || b->type == bp_read_watchpoint || b->type == bp_access_watchpoint) && b->exp_valid_block != NULL) delete_breakpoint (b); } } /* breakpoint_here_p (PC) returns 1 if an enabled breakpoint exists at PC. When continuing from a location with a breakpoint, we actually single step once before calling insert_breakpoints. */ int breakpoint_here_p (pc) CORE_ADDR pc; { register struct breakpoint *b; ALL_BREAKPOINTS (b) if (b->enable != disabled && b->address == pc) return 1; return 0; } /* Return nonzero if FRAME is a dummy frame. We can't use PC_IN_CALL_DUMMY because figuring out the saved SP would take too much time, at least using get_saved_register on the 68k. This means that for this function to work right a port must use the bp_call_dummy breakpoint. */ int frame_in_dummy (frame) FRAME frame; { struct breakpoint *b; #ifdef CALL_DUMMY ALL_BREAKPOINTS (b) { static unsigned LONGEST dummy[] = CALL_DUMMY; if (b->type == bp_call_dummy && b->frame == frame->frame /* We need to check the PC as well as the frame on the sparc, for signals.exp in the testsuite. */ && (frame->pc >= (b->address - sizeof (dummy) / sizeof (LONGEST) * REGISTER_SIZE)) && frame->pc <= b->address) return 1; } #endif /* CALL_DUMMY */ return 0; } /* breakpoint_match_thread (PC, PID) returns true if the breakpoint at PC is valid for process/thread PID. */ int breakpoint_thread_match (pc, pid) CORE_ADDR pc; int pid; { struct breakpoint *b; int thread; thread = pid_to_thread_id (pid); ALL_BREAKPOINTS (b) if (b->enable != disabled && b->address == pc && (b->thread == -1 || b->thread == thread)) return 1; return 0; } /* bpstat stuff. External routines' interfaces are documented in breakpoint.h. */ /* Clear a bpstat so that it says we are not at any breakpoint. Also free any storage that is part of a bpstat. */ void bpstat_clear (bsp) bpstat *bsp; { bpstat p; bpstat q; if (bsp == 0) return; p = *bsp; while (p != NULL) { q = p->next; if (p->old_val != NULL) value_free (p->old_val); free ((PTR)p); p = q; } *bsp = NULL; } /* Return a copy of a bpstat. Like "bs1 = bs2" but all storage that is part of the bpstat is copied as well. */ bpstat bpstat_copy (bs) bpstat bs; { bpstat p = NULL; bpstat tmp; bpstat retval = NULL; if (bs == NULL) return bs; for (; bs != NULL; bs = bs->next) { tmp = (bpstat) xmalloc (sizeof (*tmp)); memcpy (tmp, bs, sizeof (*tmp)); if (p == NULL) /* This is the first thing in the chain. */ retval = tmp; else p->next = tmp; p = tmp; } p->next = NULL; return retval; } /* Find the bpstat associated with this breakpoint */ bpstat bpstat_find_breakpoint(bsp, breakpoint) bpstat bsp; struct breakpoint *breakpoint; { if (bsp == NULL) return NULL; for (;bsp != NULL; bsp = bsp->next) { if (bsp->breakpoint_at == breakpoint) return bsp; } return NULL; } /* Return the breakpoint number of the first breakpoint we are stopped at. *BSP upon return is a bpstat which points to the remaining breakpoints stopped at (but which is not guaranteed to be good for anything but further calls to bpstat_num). Return 0 if passed a bpstat which does not indicate any breakpoints. */ int bpstat_num (bsp) bpstat *bsp; { struct breakpoint *b; if ((*bsp) == NULL) return 0; /* No more breakpoint values */ else { b = (*bsp)->breakpoint_at; *bsp = (*bsp)->next; if (b == NULL) return -1; /* breakpoint that's been deleted since */ else return b->number; /* We have its number */ } } /* Modify BS so that the actions will not be performed. */ void bpstat_clear_actions (bs) bpstat bs; { for (; bs != NULL; bs = bs->next) { bs->commands = NULL; if (bs->old_val != NULL) { value_free (bs->old_val); bs->old_val = NULL; } } } /* Stub for cleaning up our state if we error-out of a breakpoint command */ /* ARGSUSED */ static void cleanup_executing_breakpoints (ignore) int ignore; { executing_breakpoint_commands = 0; } /* Execute all the commands associated with all the breakpoints at this location. Any of these commands could cause the process to proceed beyond this point, etc. We look out for such changes by checking the global "breakpoint_proceeded" after each command. */ void bpstat_do_actions (bsp) bpstat *bsp; { bpstat bs; struct cleanup *old_chain; executing_breakpoint_commands = 1; old_chain = make_cleanup (cleanup_executing_breakpoints, 0); top: bs = *bsp; breakpoint_proceeded = 0; for (; bs != NULL; bs = bs->next) { while (bs->commands) { char *line = bs->commands->line; bs->commands = bs->commands->next; execute_command (line, 0); /* If the inferior is proceeded by the command, bomb out now. The bpstat chain has been blown away by wait_for_inferior. But since execution has stopped again, there is a new bpstat to look at, so start over. */ if (breakpoint_proceeded) goto top; } } executing_breakpoint_commands = 0; discard_cleanups (old_chain); } /* This is the normal print_it function for a bpstat. In the future, much of this logic could (should?) be moved to bpstat_stop_status, by having it set different print_it functions. */ static int print_it_normal (bs) bpstat bs; { /* bs->breakpoint_at can be NULL if it was a momentary breakpoint which has since been deleted. */ if (bs->breakpoint_at == NULL || (bs->breakpoint_at->type != bp_breakpoint && bs->breakpoint_at->type != bp_hardware_breakpoint && bs->breakpoint_at->type != bp_watchpoint && bs->breakpoint_at->type != bp_read_watchpoint && bs->breakpoint_at->type != bp_access_watchpoint && bs->breakpoint_at->type != bp_hardware_watchpoint)) return 0; if (bs->breakpoint_at->type == bp_breakpoint || bs->breakpoint_at->type == bp_hardware_breakpoint) { /* I think the user probably only wants to see one breakpoint number, not all of them. */ annotate_breakpoint (bs->breakpoint_at->number); printf_filtered ("\nBreakpoint %d, ", bs->breakpoint_at->number); return 0; } else if ((bs->old_val != NULL) && (bs->breakpoint_at->type == bp_watchpoint || bs->breakpoint_at->type == bp_access_watchpoint || bs->breakpoint_at->type == bp_hardware_watchpoint)) { annotate_watchpoint (bs->breakpoint_at->number); mention (bs->breakpoint_at); printf_filtered ("\nOld value = "); value_print (bs->old_val, gdb_stdout, 0, Val_pretty_default); printf_filtered ("\nNew value = "); value_print (bs->breakpoint_at->val, gdb_stdout, 0, Val_pretty_default); printf_filtered ("\n"); value_free (bs->old_val); bs->old_val = NULL; /* More than one watchpoint may have been triggered. */ return -1; } else if (bs->breakpoint_at->type == bp_access_watchpoint || bs->breakpoint_at->type == bp_read_watchpoint) { mention (bs->breakpoint_at); printf_filtered ("\nValue = "); value_print (bs->breakpoint_at->val, gdb_stdout, 0, Val_pretty_default); printf_filtered ("\n"); return -1; } /* We can't deal with it. Maybe another member of the bpstat chain can. */ return -1; } /* Print a message indicating what happened. Returns nonzero to say that only the source line should be printed after this (zero return means print the frame as well as the source line). */ /* Currently we always return zero. */ int bpstat_print (bs) bpstat bs; { int val; if (bs == NULL) return 0; val = (*bs->print_it) (bs); if (val >= 0) return val; /* Maybe another breakpoint in the chain caused us to stop. (Currently all watchpoints go on the bpstat whether hit or not. That probably could (should) be changed, provided care is taken with respect to bpstat_explains_signal). */ if (bs->next) return bpstat_print (bs->next); /* We reached the end of the chain without printing anything. */ return 0; } /* Evaluate the expression EXP and return 1 if value is zero. This is used inside a catch_errors to evaluate the breakpoint condition. The argument is a "struct expression *" that has been cast to char * to make it pass through catch_errors. */ static int breakpoint_cond_eval (exp) char *exp; { value_ptr mark = value_mark (); int i = !value_true (evaluate_expression ((struct expression *)exp)); value_free_to_mark (mark); return i; } /* Allocate a new bpstat and chain it to the current one. */ static bpstat bpstat_alloc (b, cbs) register struct breakpoint *b; bpstat cbs; /* Current "bs" value */ { bpstat bs; bs = (bpstat) xmalloc (sizeof (*bs)); cbs->next = bs; bs->breakpoint_at = b; /* If the condition is false, etc., don't do the commands. */ bs->commands = NULL; bs->old_val = NULL; bs->print_it = print_it_normal; return bs; } /* Possible return values for watchpoint_check (this can't be an enum because of check_errors). */ /* The watchpoint has been deleted. */ #define WP_DELETED 1 /* The value has changed. */ #define WP_VALUE_CHANGED 2 /* The value has not changed. */ #define WP_VALUE_NOT_CHANGED 3 /* Check watchpoint condition. */ static int watchpoint_check (p) char *p; { bpstat bs = (bpstat) p; struct breakpoint *b; FRAME saved_frame, fr; int within_current_scope, saved_level; /* Save the current frame and level so we can restore it after evaluating the watchpoint expression on its own frame. */ saved_frame = selected_frame; saved_level = selected_frame_level; b = bs->breakpoint_at; if (b->exp_valid_block == NULL) within_current_scope = 1; else { fr = find_frame_addr_in_frame_chain (b->watchpoint_frame); within_current_scope = (fr != NULL); if (within_current_scope) /* If we end up stopping, the current frame will get selected in normal_stop. So this call to select_frame won't affect the user. */ select_frame (fr, -1); } if (within_current_scope) { /* We use value_{,free_to_}mark because it could be a *long* time before we return to the command level and call free_all_values. We can't call free_all_values because we might be in the middle of evaluating a function call. */ value_ptr mark = value_mark (); value_ptr new_val = evaluate_expression (bs->breakpoint_at->exp); if (!value_equal (b->val, new_val)) { release_value (new_val); value_free_to_mark (mark); bs->old_val = b->val; b->val = new_val; /* We will stop here */ select_frame (saved_frame, saved_level); return WP_VALUE_CHANGED; } else { /* Nothing changed, don't do anything. */ value_free_to_mark (mark); /* We won't stop here */ select_frame (saved_frame, saved_level); return WP_VALUE_NOT_CHANGED; } } else { /* This seems like the only logical thing to do because if we temporarily ignored the watchpoint, then when we reenter the block in which it is valid it contains garbage (in the case of a function, it may have two garbage values, one before and one after the prologue). So we can't even detect the first assignment to it and watch after that (since the garbage may or may not equal the first value assigned). */ printf_filtered ("\ Watchpoint %d deleted because the program has left the block in\n\ which its expression is valid.\n", bs->breakpoint_at->number); if (b->related_breakpoint) delete_breakpoint (b->related_breakpoint); delete_breakpoint (b); select_frame (saved_frame, saved_level); return WP_DELETED; } } /* This is used when everything which needs to be printed has already been printed. But we still want to print the frame. */ static int print_it_done (bs) bpstat bs; { return 0; } /* This is used when nothing should be printed for this bpstat entry. */ static int print_it_noop (bs) bpstat bs; { return -1; } /* Get a bpstat associated with having just stopped at address *PC and frame address FRAME_ADDRESS. Update *PC to point at the breakpoint (if we hit a breakpoint). NOT_A_BREAKPOINT is nonzero if this is known to not be a real breakpoint (it could still be a watchpoint, though). */ /* Determine whether we stopped at a breakpoint, etc, or whether we don't understand this stop. Result is a chain of bpstat's such that: if we don't understand the stop, the result is a null pointer. if we understand why we stopped, the result is not null. Each element of the chain refers to a particular breakpoint or watchpoint at which we have stopped. (We may have stopped for several reasons concurrently.) Each element of the chain has valid next, breakpoint_at, commands, FIXME??? fields. */ bpstat bpstat_stop_status (pc, frame_address, not_a_breakpoint) CORE_ADDR *pc; FRAME_ADDR frame_address; int not_a_breakpoint; { register struct breakpoint *b; CORE_ADDR bp_addr; #if DECR_PC_AFTER_BREAK != 0 || defined (SHIFT_INST_REGS) /* True if we've hit a breakpoint (as opposed to a watchpoint). */ int real_breakpoint = 0; #endif /* Root of the chain of bpstat's */ struct bpstat root_bs[1]; /* Pointer to the last thing in the chain currently. */ bpstat bs = root_bs; static char message1[] = "Error evaluating expression for watchpoint %d\n"; char message[sizeof (message1) + 30 /* slop */]; /* Get the address where the breakpoint would have been. */ bp_addr = *pc - DECR_PC_AFTER_BREAK; ALL_BREAKPOINTS (b) { if (b->enable == disabled) continue; if (b->type != bp_watchpoint && b->type != bp_hardware_watchpoint && b->type != bp_read_watchpoint && b->type != bp_access_watchpoint && b->type != bp_hardware_breakpoint && b->address != bp_addr) continue; #ifndef DECR_PC_AFTER_HW_BREAK #define DECR_PC_AFTER_HW_BREAK 0 #endif if (b->type == bp_hardware_breakpoint && b->address != (bp_addr - DECR_PC_AFTER_HW_BREAK)) continue; if (b->type != bp_watchpoint && b->type != bp_hardware_watchpoint && b->type != bp_read_watchpoint && b->type != bp_access_watchpoint && not_a_breakpoint) continue; /* Come here if it's a watchpoint, or if the break address matches */ ++(b->hit_count); bs = bpstat_alloc (b, bs); /* Alloc a bpstat to explain stop */ bs->stop = 1; bs->print = 1; sprintf (message, message1, b->number); if (b->type == bp_watchpoint || b->type == bp_hardware_watchpoint) { switch (catch_errors (watchpoint_check, (char *) bs, message, RETURN_MASK_ALL)) { case WP_DELETED: /* We've already printed what needs to be printed. */ bs->print_it = print_it_done; /* Stop. */ break; case WP_VALUE_CHANGED: /* Stop. */ break; case WP_VALUE_NOT_CHANGED: /* Don't stop. */ bs->print_it = print_it_noop; bs->stop = 0; continue; default: /* Can't happen. */ /* FALLTHROUGH */ case 0: /* Error from catch_errors. */ printf_filtered ("Watchpoint %d deleted.\n", b->number); if (b->related_breakpoint) delete_breakpoint (b->related_breakpoint); delete_breakpoint (b); /* We've already printed what needs to be printed. */ bs->print_it = print_it_done; /* Stop. */ break; } } else if (b->type == bp_read_watchpoint || b->type == bp_access_watchpoint) { CORE_ADDR addr; value_ptr v; int found = 0; addr = target_stopped_data_address(); if (addr == 0) continue; for (v = b->val_chain; v; v = v->next) { if (v->lval == lval_memory) { CORE_ADDR vaddr; vaddr = VALUE_ADDRESS (v) + VALUE_OFFSET (v); if (addr == vaddr) found = 1; } } if (found) switch (catch_errors (watchpoint_check, (char *) bs, message, RETURN_MASK_ALL)) { case WP_DELETED: /* We've already printed what needs to be printed. */ bs->print_it = print_it_done; /* Stop. */ break; case WP_VALUE_CHANGED: case WP_VALUE_NOT_CHANGED: /* Stop. */ break; default: /* Can't happen. */ case 0: /* Error from catch_errors. */ printf_filtered ("Watchpoint %d deleted.\n", b->number); if (b->related_breakpoint) delete_breakpoint (b->related_breakpoint); delete_breakpoint (b); /* We've already printed what needs to be printed. */ bs->print_it = print_it_done; break; } } #if DECR_PC_AFTER_BREAK != 0 || defined (SHIFT_INST_REGS) else real_breakpoint = 1; #endif if (b->frame && b->frame != frame_address) bs->stop = 0; else { int value_is_zero = 0; if (b->cond) { /* Need to select the frame, with all that implies so that the conditions will have the right context. */ select_frame (get_current_frame (), 0); value_is_zero = catch_errors (breakpoint_cond_eval, (char *)(b->cond), "Error in testing breakpoint condition:\n", RETURN_MASK_ALL); /* FIXME-someday, should give breakpoint # */ free_all_values (); } if (b->cond && value_is_zero) { bs->stop = 0; } else if (b->ignore_count > 0) { b->ignore_count--; bs->stop = 0; } else { /* We will stop here */ if (b->disposition == disable) b->enable = disabled; bs->commands = b->commands; if (b->silent) bs->print = 0; if (bs->commands && STREQ ("silent", bs->commands->line)) { bs->commands = bs->commands->next; bs->print = 0; } } } /* Print nothing for this entry if we dont stop or if we dont print. */ if (bs->stop == 0 || bs->print == 0) bs->print_it = print_it_noop; } bs->next = NULL; /* Terminate the chain */ bs = root_bs->next; /* Re-grab the head of the chain */ #if DECR_PC_AFTER_BREAK != 0 || defined (SHIFT_INST_REGS) if (bs) { if (real_breakpoint) { *pc = bp_addr; #if defined (SHIFT_INST_REGS) SHIFT_INST_REGS(); #else /* No SHIFT_INST_REGS. */ write_pc (bp_addr); #endif /* No SHIFT_INST_REGS. */ } } #endif /* DECR_PC_AFTER_BREAK != 0. */ /* The value of a hardware watchpoint hasn't changed, but the intermediate memory locations we are watching may have. */ if (bs && ! bs->stop && (bs->breakpoint_at->type == bp_hardware_watchpoint || bs->breakpoint_at->type == bp_read_watchpoint || bs->breakpoint_at->type == bp_access_watchpoint)) { remove_breakpoints (); insert_breakpoints (); } return bs; } /* Tell what to do about this bpstat. */ struct bpstat_what bpstat_what (bs) bpstat bs; { /* Classify each bpstat as one of the following. */ enum class { /* This bpstat element has no effect on the main_action. */ no_effect = 0, /* There was a watchpoint, stop but don't print. */ wp_silent, /* There was a watchpoint, stop and print. */ wp_noisy, /* There was a breakpoint but we're not stopping. */ bp_nostop, /* There was a breakpoint, stop but don't print. */ bp_silent, /* There was a breakpoint, stop and print. */ bp_noisy, /* We hit the longjmp breakpoint. */ long_jump, /* We hit the longjmp_resume breakpoint. */ long_resume, /* We hit the step_resume breakpoint. */ step_resume, /* We hit the through_sigtramp breakpoint. */ through_sig, /* This is just used to count how many enums there are. */ class_last }; /* Here is the table which drives this routine. So that we can format it pretty, we define some abbreviations for the enum bpstat_what codes. */ #define keep_c BPSTAT_WHAT_KEEP_CHECKING #define stop_s BPSTAT_WHAT_STOP_SILENT #define stop_n BPSTAT_WHAT_STOP_NOISY #define single BPSTAT_WHAT_SINGLE #define setlr BPSTAT_WHAT_SET_LONGJMP_RESUME #define clrlr BPSTAT_WHAT_CLEAR_LONGJMP_RESUME #define clrlrs BPSTAT_WHAT_CLEAR_LONGJMP_RESUME_SINGLE #define sr BPSTAT_WHAT_STEP_RESUME #define ts BPSTAT_WHAT_THROUGH_SIGTRAMP /* "Can't happen." Might want to print an error message. abort() is not out of the question, but chances are GDB is just a bit confused, not unusable. */ #define err BPSTAT_WHAT_STOP_NOISY /* Given an old action and a class, come up with a new action. */ /* One interesting property of this table is that wp_silent is the same as bp_silent and wp_noisy is the same as bp_noisy. That is because after stopping, the check for whether to step over a breakpoint (BPSTAT_WHAT_SINGLE type stuff) is handled in proceed() without reference to how we stopped. We retain separate wp_silent and bp_silent codes in case we want to change that someday. */ /* step_resume entries: a step resume breakpoint overrides another breakpoint of signal handling (see comment in wait_for_inferior at first IN_SIGTRAMP where we set the step_resume breakpoint). */ /* We handle the through_sigtramp_breakpoint the same way; having both one of those and a step_resume_breakpoint is probably very rare (?). */ static const enum bpstat_what_main_action table[(int)class_last][(int)BPSTAT_WHAT_LAST] = { /* old action */ /* keep_c stop_s stop_n single setlr clrlr clrlrs sr ts */ /*no_effect*/ {keep_c,stop_s,stop_n,single, setlr , clrlr , clrlrs, sr, ts}, /*wp_silent*/ {stop_s,stop_s,stop_n,stop_s, stop_s, stop_s, stop_s, sr, ts}, /*wp_noisy*/ {stop_n,stop_n,stop_n,stop_n, stop_n, stop_n, stop_n, sr, ts}, /*bp_nostop*/ {single,stop_s,stop_n,single, setlr , clrlrs, clrlrs, sr, ts}, /*bp_silent*/ {stop_s,stop_s,stop_n,stop_s, stop_s, stop_s, stop_s, sr, ts}, /*bp_noisy*/ {stop_n,stop_n,stop_n,stop_n, stop_n, stop_n, stop_n, sr, ts}, /*long_jump*/ {setlr ,stop_s,stop_n,setlr , err , err , err , sr, ts}, /*long_resume*/ {clrlr ,stop_s,stop_n,clrlrs, err , err , err , sr, ts}, /*step_resume*/ {sr ,sr ,sr ,sr , sr , sr , sr , sr, ts}, /*through_sig*/ {ts ,ts ,ts ,ts , ts , ts , ts , ts, ts} }; #undef keep_c #undef stop_s #undef stop_n #undef single #undef setlr #undef clrlr #undef clrlrs #undef err #undef sr #undef ts enum bpstat_what_main_action current_action = BPSTAT_WHAT_KEEP_CHECKING; struct bpstat_what retval; retval.call_dummy = 0; for (; bs != NULL; bs = bs->next) { enum class bs_class = no_effect; if (bs->breakpoint_at == NULL) /* I suspect this can happen if it was a momentary breakpoint which has since been deleted. */ continue; switch (bs->breakpoint_at->type) { case bp_breakpoint: case bp_hardware_breakpoint: case bp_until: case bp_finish: if (bs->stop) { if (bs->print) bs_class = bp_noisy; else bs_class = bp_silent; } else bs_class = bp_nostop; break; case bp_watchpoint: case bp_hardware_watchpoint: case bp_read_watchpoint: case bp_access_watchpoint: if (bs->stop) { if (bs->print) bs_class = wp_noisy; else bs_class = wp_silent; } else /* There was a watchpoint, but we're not stopping. This requires no further action. */ bs_class = no_effect; break; case bp_longjmp: bs_class = long_jump; break; case bp_longjmp_resume: bs_class = long_resume; break; case bp_step_resume: if (bs->stop) { bs_class = step_resume; } else /* It is for the wrong frame. */ bs_class = bp_nostop; break; case bp_through_sigtramp: bs_class = through_sig; break; case bp_watchpoint_scope: bs_class = bp_nostop; break; case bp_call_dummy: /* Make sure the action is stop (silent or noisy), so infrun.c pops the dummy frame. */ bs_class = bp_silent; retval.call_dummy = 1; break; } current_action = table[(int)bs_class][(int)current_action]; } retval.main_action = current_action; return retval; } /* Nonzero if we should step constantly (e.g. watchpoints on machines without hardware support). This isn't related to a specific bpstat, just to things like whether watchpoints are set. */ int bpstat_should_step () { struct breakpoint *b; ALL_BREAKPOINTS (b) if (b->enable == enabled && b->type == bp_watchpoint) return 1; return 0; } /* Print information on breakpoint number BNUM, or -1 if all. If WATCHPOINTS is zero, process only breakpoints; if WATCHPOINTS is nonzero, process only watchpoints. */ static void breakpoint_1 (bnum, allflag) int bnum; int allflag; { register struct breakpoint *b; register struct command_line *l; register struct symbol *sym; CORE_ADDR last_addr = (CORE_ADDR)-1; int found_a_breakpoint = 0; static char *bptypes[] = {"breakpoint", "hw breakpoint", "until", "finish", "watchpoint", "hw watchpoint", "read watchpoint", "acc watchpoint", "longjmp", "longjmp resume", "step resume", "watchpoint scope", "call dummy" }; static char *bpdisps[] = {"del", "dis", "keep"}; static char bpenables[] = "ny"; char wrap_indent[80]; ALL_BREAKPOINTS (b) if (bnum == -1 || bnum == b->number) { /* We only print out user settable breakpoints unless the allflag is set. */ if (!allflag && b->type != bp_breakpoint && b->type != bp_hardware_breakpoint && b->type != bp_watchpoint && b->type != bp_read_watchpoint && b->type != bp_access_watchpoint && b->type != bp_hardware_watchpoint) continue; if (!found_a_breakpoint++) { annotate_breakpoints_headers (); annotate_field (0); printf_filtered ("Num "); annotate_field (1); printf_filtered ("Type "); annotate_field (2); printf_filtered ("Disp "); annotate_field (3); printf_filtered ("Enb "); if (addressprint) { annotate_field (4); printf_filtered ("Address "); } annotate_field (5); printf_filtered ("What\n"); annotate_breakpoints_table (); } annotate_record (); annotate_field (0); printf_filtered ("%-3d ", b->number); annotate_field (1); printf_filtered ("%-14s ", bptypes[(int)b->type]); annotate_field (2); printf_filtered ("%-4s ", bpdisps[(int)b->disposition]); annotate_field (3); printf_filtered ("%-3c ", bpenables[(int)b->enable]); strcpy (wrap_indent, " "); if (addressprint) strcat (wrap_indent, " "); switch (b->type) { case bp_watchpoint: case bp_hardware_watchpoint: case bp_read_watchpoint: case bp_access_watchpoint: /* Field 4, the address, is omitted (which makes the columns not line up too nicely with the headers, but the effect is relatively readable). */ annotate_field (5); print_expression (b->exp, gdb_stdout); break; case bp_breakpoint: case bp_hardware_breakpoint: case bp_until: case bp_finish: case bp_longjmp: case bp_longjmp_resume: case bp_step_resume: case bp_through_sigtramp: case bp_watchpoint_scope: case bp_call_dummy: if (addressprint) { annotate_field (4); /* FIXME-32x64: need a print_address_numeric with field width */ printf_filtered ("%s ", local_hex_string_custom ((unsigned long) b->address, "08l")); } annotate_field (5); last_addr = b->address; if (b->source_file) { sym = find_pc_function (b->address); if (sym) { fputs_filtered ("in ", gdb_stdout); fputs_filtered (SYMBOL_SOURCE_NAME (sym), gdb_stdout); wrap_here (wrap_indent); fputs_filtered (" at ", gdb_stdout); } fputs_filtered (b->source_file, gdb_stdout); printf_filtered (":%d", b->line_number); } else print_address_symbolic (b->address, gdb_stdout, demangle, " "); break; } printf_filtered ("\n"); if (b->frame) { annotate_field (6); printf_filtered ("\tstop only in stack frame at "); print_address_numeric (b->frame, 1, gdb_stdout); printf_filtered ("\n"); } if (b->cond) { annotate_field (7); printf_filtered ("\tstop only if "); print_expression (b->cond, gdb_stdout); printf_filtered ("\n"); } if (show_breakpoint_hit_counts && b->hit_count) { /* FIXME should make an annotation for this */ printf_filtered ("\tbreakpoint already hit %d times\n", b->hit_count); } if (b->ignore_count) { annotate_field (8); printf_filtered ("\tignore next %d hits\n", b->ignore_count); } if ((l = b->commands)) { annotate_field (9); while (l) { fputs_filtered ("\t", gdb_stdout); fputs_filtered (l->line, gdb_stdout); fputs_filtered ("\n", gdb_stdout); l = l->next; } } } if (!found_a_breakpoint) { if (bnum == -1) printf_filtered ("No breakpoints or watchpoints.\n"); else printf_filtered ("No breakpoint or watchpoint number %d.\n", bnum); } else /* Compare against (CORE_ADDR)-1 in case some compiler decides that a comparison of an unsigned with -1 is always false. */ if (last_addr != (CORE_ADDR)-1) set_next_address (last_addr); annotate_breakpoints_table_end (); } /* ARGSUSED */ static void breakpoints_info (bnum_exp, from_tty) char *bnum_exp; int from_tty; { int bnum = -1; if (bnum_exp) bnum = parse_and_eval_address (bnum_exp); breakpoint_1 (bnum, 0); } #if MAINTENANCE_CMDS /* ARGSUSED */ static void maintenance_info_breakpoints (bnum_exp, from_tty) char *bnum_exp; int from_tty; { int bnum = -1; if (bnum_exp) bnum = parse_and_eval_address (bnum_exp); breakpoint_1 (bnum, 1); } #endif /* Print a message describing any breakpoints set at PC. */ static void describe_other_breakpoints (pc) register CORE_ADDR pc; { register int others = 0; register struct breakpoint *b; ALL_BREAKPOINTS (b) if (b->address == pc) others++; if (others > 0) { printf_filtered ("Note: breakpoint%s ", (others > 1) ? "s" : ""); ALL_BREAKPOINTS (b) if (b->address == pc) { others--; printf_filtered ("%d%s%s ", b->number, (b->enable == disabled) ? " (disabled)" : "", (others > 1) ? "," : ((others == 1) ? " and" : "")); } printf_filtered ("also set at pc "); print_address_numeric (pc, 1, gdb_stdout); printf_filtered (".\n"); } } /* Set the default place to put a breakpoint for the `break' command with no arguments. */ void set_default_breakpoint (valid, addr, symtab, line) int valid; CORE_ADDR addr; struct symtab *symtab; int line; { default_breakpoint_valid = valid; default_breakpoint_address = addr; default_breakpoint_symtab = symtab; default_breakpoint_line = line; } /* Rescan breakpoints at address ADDRESS, marking the first one as "first" and any others as "duplicates". This is so that the bpt instruction is only inserted once. */ static void check_duplicates (address) CORE_ADDR address; { register struct breakpoint *b; register int count = 0; if (address == 0) /* Watchpoints are uninteresting */ return; ALL_BREAKPOINTS (b) if (b->enable != disabled && b->address == address) { count++; b->duplicate = count > 1; } } /* Low level routine to set a breakpoint. Takes as args the three things that every breakpoint must have. Returns the breakpoint object so caller can set other things. Does not set the breakpoint number! Does not print anything. ==> This routine should not be called if there is a chance of later error(); otherwise it leaves a bogus breakpoint on the chain. Validate your arguments BEFORE calling this routine! */ static struct breakpoint * set_raw_breakpoint (sal) struct symtab_and_line sal; { register struct breakpoint *b, *b1; b = (struct breakpoint *) xmalloc (sizeof (struct breakpoint)); memset (b, 0, sizeof (*b)); b->address = sal.pc; if (sal.symtab == NULL) b->source_file = NULL; else b->source_file = savestring (sal.symtab->filename, strlen (sal.symtab->filename)); b->thread = -1; b->line_number = sal.line; b->enable = enabled; b->next = 0; b->silent = 0; b->ignore_count = 0; b->commands = NULL; b->frame = 0; /* Add this breakpoint to the end of the chain so that a list of breakpoints will come out in order of increasing numbers. */ b1 = breakpoint_chain; if (b1 == 0) breakpoint_chain = b; else { while (b1->next) b1 = b1->next; b1->next = b; } check_duplicates (sal.pc); breakpoints_changed (); return b; } static void create_longjmp_breakpoint(func_name) char *func_name; { struct symtab_and_line sal; struct breakpoint *b; static int internal_breakpoint_number = -1; if (func_name != NULL) { struct minimal_symbol *m; m = lookup_minimal_symbol(func_name, (struct objfile *)NULL); if (m) sal.pc = SYMBOL_VALUE_ADDRESS (m); else return; } else sal.pc = 0; sal.symtab = NULL; sal.line = 0; b = set_raw_breakpoint(sal); if (!b) return; b->type = func_name != NULL ? bp_longjmp : bp_longjmp_resume; b->disposition = donttouch; b->enable = disabled; b->silent = 1; if (func_name) b->addr_string = strsave(func_name); b->number = internal_breakpoint_number--; } /* Call this routine when stepping and nexting to enable a breakpoint if we do a longjmp(). When we hit that breakpoint, call set_longjmp_resume_breakpoint() to figure out where we are going. */ void enable_longjmp_breakpoint() { register struct breakpoint *b; ALL_BREAKPOINTS (b) if (b->type == bp_longjmp) { b->enable = enabled; check_duplicates (b->address); } } void disable_longjmp_breakpoint() { register struct breakpoint *b; ALL_BREAKPOINTS (b) if ( b->type == bp_longjmp || b->type == bp_longjmp_resume) { b->enable = disabled; check_duplicates (b->address); } } int hw_breakpoint_used_count() { register struct breakpoint *b; int i = 0; ALL_BREAKPOINTS (b) { if (b->type == bp_hardware_breakpoint && b->enable == enabled) i++; } return i; } int hw_watchpoint_used_count(type, other_type_used) enum bptype type; int *other_type_used; { register struct breakpoint *b; int i = 0; *other_type_used = 0; ALL_BREAKPOINTS (b) { if (b->enable == enabled) { if (b->type == type) i++; else if ((b->type == bp_hardware_watchpoint || b->type == bp_read_watchpoint || b->type == bp_access_watchpoint) && b->enable == enabled) *other_type_used = 1; } } return i; } /* Call this after hitting the longjmp() breakpoint. Use this to set a new breakpoint at the target of the jmp_buf. FIXME - This ought to be done by setting a temporary breakpoint that gets deleted automatically... */ void set_longjmp_resume_breakpoint(pc, frame) CORE_ADDR pc; FRAME frame; { register struct breakpoint *b; ALL_BREAKPOINTS (b) if (b->type == bp_longjmp_resume) { b->address = pc; b->enable = enabled; if (frame != NULL) b->frame = FRAME_FP(frame); else b->frame = 0; check_duplicates (b->address); return; } } /* Set a breakpoint that will evaporate an end of command at address specified by SAL. Restrict it to frame FRAME if FRAME is nonzero. */ struct breakpoint * set_momentary_breakpoint (sal, frame, type) struct symtab_and_line sal; FRAME frame; enum bptype type; { register struct breakpoint *b; b = set_raw_breakpoint (sal); b->type = type; b->enable = enabled; b->disposition = donttouch; b->frame = (frame ? FRAME_FP (frame) : 0); return b; } #if 0 void clear_momentary_breakpoints () { register struct breakpoint *b; ALL_BREAKPOINTS (b) if (b->disposition == delete) { delete_breakpoint (b); break; } } #endif /* Tell the user we have just set a breakpoint B. */ static void mention (b) struct breakpoint *b; { int say_where = 0; switch (b->type) { case bp_watchpoint: printf_filtered ("Watchpoint %d: ", b->number); print_expression (b->exp, gdb_stdout); break; case bp_hardware_watchpoint: printf_filtered ("Hardware watchpoint %d: ", b->number); print_expression (b->exp, gdb_stdout); break; case bp_read_watchpoint: printf_filtered ("Hardware read watchpoint %d: ", b->number); print_expression (b->exp, gdb_stdout); break; case bp_access_watchpoint: printf_filtered ("Hardware access(read/write) watchpoint %d: ",b->number); print_expression (b->exp, gdb_stdout); break; case bp_breakpoint: printf_filtered ("Breakpoint %d", b->number); say_where = 1; break; case bp_hardware_breakpoint: printf_filtered ("Hardware assisted breakpoint %d", b->number); say_where = 1; break; case bp_until: case bp_finish: case bp_longjmp: case bp_longjmp_resume: case bp_step_resume: case bp_through_sigtramp: case bp_call_dummy: case bp_watchpoint_scope: break; } if (say_where) { if (addressprint || b->source_file == NULL) { printf_filtered (" at "); print_address_numeric (b->address, 1, gdb_stdout); } if (b->source_file) printf_filtered (": file %s, line %d.", b->source_file, b->line_number); } printf_filtered ("\n"); } #if 0 /* Nobody calls this currently. */ /* Set a breakpoint from a symtab and line. If TEMPFLAG is nonzero, it is a temporary breakpoint. ADDR_STRING is a malloc'd string holding the name of where we are setting the breakpoint. This is used later to re-set it after the program is relinked and symbols are reloaded. Print the same confirmation messages that the breakpoint command prints. */ void set_breakpoint (s, line, tempflag, addr_string) struct symtab *s; int line; int tempflag; char *addr_string; { register struct breakpoint *b; struct symtab_and_line sal; sal.symtab = s; sal.line = line; sal.pc = 0; resolve_sal_pc (&sal); /* Might error out */ describe_other_breakpoints (sal.pc); b = set_raw_breakpoint (sal); set_breakpoint_count (breakpoint_count + 1); b->number = breakpoint_count; b->type = bp_breakpoint; b->cond = 0; b->addr_string = addr_string; b->enable = enabled; b->disposition = tempflag ? delete : donttouch; mention (b); } #endif /* 0 */ /* Set a breakpoint according to ARG (function, linenum or *address) flag: first bit : 0 non-temporary, 1 temporary. second bit : 0 normal breakpoint, 1 hardware breakpoint. */ static void break_command_1 (arg, flag, from_tty) char *arg; int flag, from_tty; { int tempflag, hardwareflag; struct symtabs_and_lines sals; struct symtab_and_line sal; register struct expression *cond = 0; register struct breakpoint *b; /* Pointers in arg to the start, and one past the end, of the condition. */ char *cond_start = NULL; char *cond_end = NULL; /* Pointers in arg to the start, and one past the end, of the address part. */ char *addr_start = NULL; char *addr_end = NULL; struct cleanup *old_chain; struct cleanup *canonical_strings_chain = NULL; char **canonical = (char **)NULL; int i; int thread; hardwareflag = flag & 2; tempflag = flag & 1; sals.sals = NULL; sals.nelts = 0; sal.line = sal.pc = sal.end = 0; sal.symtab = 0; /* If no arg given, or if first arg is 'if ', use the default breakpoint. */ if (!arg || (arg[0] == 'i' && arg[1] == 'f' && (arg[2] == ' ' || arg[2] == '\t'))) { if (default_breakpoint_valid) { sals.sals = (struct symtab_and_line *) xmalloc (sizeof (struct symtab_and_line)); sal.pc = default_breakpoint_address; sal.line = default_breakpoint_line; sal.symtab = default_breakpoint_symtab; sals.sals[0] = sal; sals.nelts = 1; } else error ("No default breakpoint address now."); } else { addr_start = arg; /* Force almost all breakpoints to be in terms of the current_source_symtab (which is decode_line_1's default). This should produce the results we want almost all of the time while leaving default_breakpoint_* alone. */ if (default_breakpoint_valid && (!current_source_symtab || (arg && (*arg == '+' || *arg == '-')))) sals = decode_line_1 (&arg, 1, default_breakpoint_symtab, default_breakpoint_line, &canonical); else sals = decode_line_1 (&arg, 1, (struct symtab *)NULL, 0, &canonical); addr_end = arg; } if (! sals.nelts) return; /* Make sure that all storage allocated in decode_line_1 gets freed in case the following `for' loop errors out. */ old_chain = make_cleanup (free, sals.sals); if (canonical != (char **)NULL) { make_cleanup (free, canonical); canonical_strings_chain = make_cleanup (null_cleanup, 0); for (i = 0; i < sals.nelts; i++) { if (canonical[i] != NULL) make_cleanup (free, canonical[i]); } } thread = -1; /* No specific thread yet */ /* Resolve all line numbers to PC's, and verify that conditions can be parsed, before setting any breakpoints. */ for (i = 0; i < sals.nelts; i++) { char *tok, *end_tok; int toklen; resolve_sal_pc (&sals.sals[i]); tok = arg; while (tok && *tok) { while (*tok == ' ' || *tok == '\t') tok++; end_tok = tok; while (*end_tok != ' ' && *end_tok != '\t' && *end_tok != '\000') end_tok++; toklen = end_tok - tok; if (toklen >= 1 && strncmp (tok, "if", toklen) == 0) { tok = cond_start = end_tok + 1; cond = parse_exp_1 (&tok, block_for_pc (sals.sals[i].pc), 0); cond_end = tok; } else if (toklen >= 1 && strncmp (tok, "thread", toklen) == 0) { char *tmptok; tok = end_tok + 1; tmptok = tok; thread = strtol (tok, &tok, 0); if (tok == tmptok) error ("Junk after thread keyword."); if (!valid_thread_id (thread)) error ("Unknown thread %d\n", thread); } else error ("Junk at end of arguments."); } } if (hardwareflag) { int i, target_resources_ok; i = hw_breakpoint_used_count (); target_resources_ok = TARGET_CAN_USE_HARDWARE_WATCHPOINT ( bp_hardware_breakpoint, i + sals.nelts, 0); if (target_resources_ok == 0) error ("No hardware breakpoint support in the target."); else if (target_resources_ok < 0) error ("Hardware breakpoints used exceeds limit."); } /* Remove the canonical strings from the cleanup, they are needed below. */ if (canonical != (char **)NULL) discard_cleanups (canonical_strings_chain); /* Now set all the breakpoints. */ for (i = 0; i < sals.nelts; i++) { sal = sals.sals[i]; if (from_tty) describe_other_breakpoints (sal.pc); b = set_raw_breakpoint (sal); set_breakpoint_count (breakpoint_count + 1); b->number = breakpoint_count; b->type = hardwareflag ? bp_hardware_breakpoint : bp_breakpoint; b->cond = cond; b->thread = thread; /* If a canonical line spec is needed use that instead of the command string. */ if (canonical != (char **)NULL && canonical[i] != NULL) b->addr_string = canonical[i]; else if (addr_start) b->addr_string = savestring (addr_start, addr_end - addr_start); if (cond_start) b->cond_string = savestring (cond_start, cond_end - cond_start); b->enable = enabled; b->disposition = tempflag ? delete : donttouch; mention (b); } if (sals.nelts > 1) { printf_filtered ("Multiple breakpoints were set.\n"); printf_filtered ("Use the \"delete\" command to delete unwanted breakpoints.\n"); } do_cleanups (old_chain); } /* Helper function for break_command_1 and disassemble_command. */ void resolve_sal_pc (sal) struct symtab_and_line *sal; { CORE_ADDR pc; if (sal->pc == 0 && sal->symtab != 0) { pc = find_line_pc (sal->symtab, sal->line); if (pc == 0) error ("No line %d in file \"%s\".", sal->line, sal->symtab->filename); sal->pc = pc; } } #define BP_TEMPFLAG 1 #define BP_HARDWAREFLAG 2 void break_command (arg, from_tty) char *arg; int from_tty; { break_command_1 (arg, 0, from_tty); } static void tbreak_command (arg, from_tty) char *arg; int from_tty; { break_command_1 (arg, BP_TEMPFLAG, from_tty); } static void hbreak_command (arg, from_tty) char *arg; int from_tty; { break_command_1 (arg, BP_HARDWAREFLAG, from_tty); } static void thbreak_command (arg, from_tty) char *arg; int from_tty; { break_command_1 (arg, (BP_TEMPFLAG | BP_HARDWAREFLAG), from_tty); } /* ARGSUSED */ /* accessflag: 0: watch write, 1: watch read, 2: watch access(read or write) */ static void watch_command_1 (arg, accessflag, from_tty) char *arg; int accessflag; int from_tty; { struct breakpoint *b; struct symtab_and_line sal; struct expression *exp; struct block *exp_valid_block; struct value *val, *mark; FRAME frame, prev_frame; char *exp_start = NULL; char *exp_end = NULL; char *tok, *end_tok; int toklen; char *cond_start = NULL; char *cond_end = NULL; struct expression *cond = NULL; int i, other_type_used, target_resources_ok; enum bptype bp_type; int mem_cnt = 0; sal.pc = 0; sal.symtab = NULL; sal.line = 0; /* Parse arguments. */ innermost_block = NULL; exp_start = arg; exp = parse_exp_1 (&arg, 0, 0); exp_end = arg; exp_valid_block = innermost_block; mark = value_mark (); val = evaluate_expression (exp); release_value (val); if (VALUE_LAZY (val)) value_fetch_lazy (val); tok = arg; while (*tok == ' ' || *tok == '\t') tok++; end_tok = tok; while (*end_tok != ' ' && *end_tok != '\t' && *end_tok != '\000') end_tok++; toklen = end_tok - tok; if (toklen >= 1 && strncmp (tok, "if", toklen) == 0) { tok = cond_start = end_tok + 1; cond = parse_exp_1 (&tok, 0, 0); cond_end = tok; } if (*tok) error("Junk at end of command."); if (accessflag == 1) bp_type = bp_read_watchpoint; else if (accessflag == 2) bp_type = bp_access_watchpoint; else bp_type = bp_hardware_watchpoint; mem_cnt = can_use_hardware_watchpoint (val); if (mem_cnt == 0 && bp_type != bp_hardware_watchpoint) error ("Expression cannot be implemented with read/access watchpoint."); if (mem_cnt != 0) { i = hw_watchpoint_used_count (bp_type, &other_type_used); target_resources_ok = TARGET_CAN_USE_HARDWARE_WATCHPOINT( bp_type, i + mem_cnt, other_type_used); if (target_resources_ok == 0 && bp_type != bp_hardware_watchpoint) error ("Target does not have this type of hardware watchpoint support."); if (target_resources_ok < 0 && bp_type != bp_hardware_watchpoint) error ("Target resources have been allocated for other types of watchpoints."); } /* Now set up the breakpoint. */ b = set_raw_breakpoint (sal); set_breakpoint_count (breakpoint_count + 1); b->number = breakpoint_count; b->disposition = donttouch; b->exp = exp; b->exp_valid_block = exp_valid_block; b->exp_string = savestring (exp_start, exp_end - exp_start); b->val = val; b->cond = cond; if (cond_start) b->cond_string = savestring (cond_start, cond_end - cond_start); else b->cond_string = 0; frame = block_innermost_frame (exp_valid_block); if (frame) { prev_frame = get_prev_frame (frame); b->watchpoint_frame = FRAME_FP (frame); } else b->watchpoint_frame = (CORE_ADDR)0; if (mem_cnt && target_resources_ok > 0) b->type = bp_type; else b->type = bp_watchpoint; /* If the expression is "local", then set up a "watchpoint scope" breakpoint at the point where we've left the scope of the watchpoint expression. */ if (innermost_block) { struct breakpoint *scope_breakpoint; struct symtab_and_line scope_sal; if (prev_frame) { scope_sal.pc = get_frame_pc (prev_frame); scope_sal.symtab = NULL; scope_sal.line = 0; scope_breakpoint = set_raw_breakpoint (scope_sal); set_breakpoint_count (breakpoint_count + 1); scope_breakpoint->number = breakpoint_count; scope_breakpoint->type = bp_watchpoint_scope; scope_breakpoint->enable = enabled; /* Automatically delete the breakpoint when it hits. */ scope_breakpoint->disposition = delete; /* Only break in the proper frame (help with recursion). */ scope_breakpoint->frame = prev_frame->frame; /* Set the address at which we will stop. */ scope_breakpoint->address = get_frame_pc (prev_frame); /* The scope breakpoint is related to the watchpoint. We will need to act on them together. */ b->related_breakpoint = scope_breakpoint; } } value_free_to_mark (mark); mention (b); } /* Return count of locations need to be watched and can be handled in hardware. If the watchpoint can not be handled in hardware return zero. */ static int can_use_hardware_watchpoint (v) struct value *v; { int found_memory_cnt = 0; /* Make sure all the intermediate values are in memory. Also make sure we found at least one memory expression. Guards against watch 0x12345, which is meaningless, but could cause errors if one tries to insert a hardware watchpoint for the constant expression. */ for ( ; v; v = v->next) { if (v->lval == lval_memory) { if (TYPE_LENGTH (VALUE_TYPE (v)) <= REGISTER_SIZE) found_memory_cnt++; } else if (v->lval != not_lval && v->modifiable == 0) return 0; } /* The expression itself looks suitable for using a hardware watchpoint, but give the target machine a chance to reject it. */ return found_memory_cnt; } static void watch_command (arg, from_tty) char *arg; int from_tty; { watch_command_1 (arg, 0, from_tty); } static void rwatch_command (arg, from_tty) char *arg; int from_tty; { watch_command_1 (arg, 1, from_tty); } static void awatch_command (arg, from_tty) char *arg; int from_tty; { watch_command_1 (arg, 2, from_tty); } /* * Helper routine for the until_command routine in infcmd.c. Here * because it uses the mechanisms of breakpoints. */ /* ARGSUSED */ void until_break_command (arg, from_tty) char *arg; int from_tty; { struct symtabs_and_lines sals; struct symtab_and_line sal; FRAME prev_frame = get_prev_frame (selected_frame); struct breakpoint *breakpoint; struct cleanup *old_chain; clear_proceed_status (); /* Set a breakpoint where the user wants it and at return from this function */ if (default_breakpoint_valid) sals = decode_line_1 (&arg, 1, default_breakpoint_symtab, default_breakpoint_line, (char ***)NULL); else sals = decode_line_1 (&arg, 1, (struct symtab *)NULL, 0, (char ***)NULL); if (sals.nelts != 1) error ("Couldn't get information on specified line."); sal = sals.sals[0]; free ((PTR)sals.sals); /* malloc'd, so freed */ if (*arg) error ("Junk at end of arguments."); resolve_sal_pc (&sal); breakpoint = set_momentary_breakpoint (sal, selected_frame, bp_until); old_chain = make_cleanup(delete_breakpoint, breakpoint); /* Keep within the current frame */ if (prev_frame) { struct frame_info *fi; fi = get_frame_info (prev_frame); sal = find_pc_line (fi->pc, 0); sal.pc = fi->pc; breakpoint = set_momentary_breakpoint (sal, prev_frame, bp_until); make_cleanup(delete_breakpoint, breakpoint); } proceed (-1, TARGET_SIGNAL_DEFAULT, 0); do_cleanups(old_chain); } #if 0 /* These aren't used; I don't konw what they were for. */ /* Set a breakpoint at the catch clause for NAME. */ static int catch_breakpoint (name) char *name; { } static int disable_catch_breakpoint () { } static int delete_catch_breakpoint () { } static int enable_catch_breakpoint () { } #endif /* 0 */ struct sal_chain { struct sal_chain *next; struct symtab_and_line sal; }; #if 0 /* This isn't used; I don't know what it was for. */ /* For each catch clause identified in ARGS, run FUNCTION with that clause as an argument. */ static struct symtabs_and_lines map_catch_names (args, function) char *args; int (*function)(); { register char *p = args; register char *p1; struct symtabs_and_lines sals; #if 0 struct sal_chain *sal_chain = 0; #endif if (p == 0) error_no_arg ("one or more catch names"); sals.nelts = 0; sals.sals = NULL; while (*p) { p1 = p; /* Don't swallow conditional part. */ if (p1[0] == 'i' && p1[1] == 'f' && (p1[2] == ' ' || p1[2] == '\t')) break; if (isalpha (*p1)) { p1++; while (isalnum (*p1) || *p1 == '_' || *p1 == '$') p1++; } if (*p1 && *p1 != ' ' && *p1 != '\t') error ("Arguments must be catch names."); *p1 = 0; #if 0 if (function (p)) { struct sal_chain *next = (struct sal_chain *)alloca (sizeof (struct sal_chain)); next->next = sal_chain; next->sal = get_catch_sal (p); sal_chain = next; goto win; } #endif printf_unfiltered ("No catch clause for exception %s.\n", p); #if 0 win: #endif p = p1; while (*p == ' ' || *p == '\t') p++; } } #endif /* 0 */ /* This shares a lot of code with `print_frame_label_vars' from stack.c. */ static struct symtabs_and_lines get_catch_sals (this_level_only) int this_level_only; { register struct blockvector *bl; register struct block *block; int index, have_default = 0; struct frame_info *fi; CORE_ADDR pc; struct symtabs_and_lines sals; struct sal_chain *sal_chain = 0; char *blocks_searched; /* Not sure whether an error message is always the correct response, but it's better than a core dump. */ if (selected_frame == NULL) error ("No selected frame."); block = get_frame_block (selected_frame); fi = get_frame_info (selected_frame); pc = fi->pc; sals.nelts = 0; sals.sals = NULL; if (block == 0) error ("No symbol table info available.\n"); bl = blockvector_for_pc (BLOCK_END (block) - 4, &index); blocks_searched = (char *) alloca (BLOCKVECTOR_NBLOCKS (bl) * sizeof (char)); memset (blocks_searched, 0, BLOCKVECTOR_NBLOCKS (bl) * sizeof (char)); while (block != 0) { CORE_ADDR end = BLOCK_END (block) - 4; int last_index; if (bl != blockvector_for_pc (end, &index)) error ("blockvector blotch"); if (BLOCKVECTOR_BLOCK (bl, index) != block) error ("blockvector botch"); last_index = BLOCKVECTOR_NBLOCKS (bl); index += 1; /* Don't print out blocks that have gone by. */ while (index < last_index && BLOCK_END (BLOCKVECTOR_BLOCK (bl, index)) < pc) index++; while (index < last_index && BLOCK_END (BLOCKVECTOR_BLOCK (bl, index)) < end) { if (blocks_searched[index] == 0) { struct block *b = BLOCKVECTOR_BLOCK (bl, index); int nsyms; register int i; register struct symbol *sym; nsyms = BLOCK_NSYMS (b); for (i = 0; i < nsyms; i++) { sym = BLOCK_SYM (b, i); if (STREQ (SYMBOL_NAME (sym), "default")) { if (have_default) continue; have_default = 1; } if (SYMBOL_CLASS (sym) == LOC_LABEL) { struct sal_chain *next = (struct sal_chain *) alloca (sizeof (struct sal_chain)); next->next = sal_chain; next->sal = find_pc_line (SYMBOL_VALUE_ADDRESS (sym), 0); sal_chain = next; } } blocks_searched[index] = 1; } index++; } if (have_default) break; if (sal_chain && this_level_only) break; /* After handling the function's top-level block, stop. Don't continue to its superblock, the block of per-file symbols. */ if (BLOCK_FUNCTION (block)) break; block = BLOCK_SUPERBLOCK (block); } if (sal_chain) { struct sal_chain *tmp_chain; /* Count the number of entries. */ for (index = 0, tmp_chain = sal_chain; tmp_chain; tmp_chain = tmp_chain->next) index++; sals.nelts = index; sals.sals = (struct symtab_and_line *) xmalloc (index * sizeof (struct symtab_and_line)); for (index = 0; sal_chain; sal_chain = sal_chain->next, index++) sals.sals[index] = sal_chain->sal; } return sals; } /* Commands to deal with catching exceptions. */ static void catch_command_1 (arg, tempflag, from_tty) char *arg; int tempflag; int from_tty; { /* First, translate ARG into something we can deal with in terms of breakpoints. */ struct symtabs_and_lines sals; struct symtab_and_line sal; register struct expression *cond = 0; register struct breakpoint *b; char *save_arg; int i; sal.line = sal.pc = sal.end = 0; sal.symtab = 0; /* If no arg given, or if first arg is 'if ', all active catch clauses are breakpointed. */ if (!arg || (arg[0] == 'i' && arg[1] == 'f' && (arg[2] == ' ' || arg[2] == '\t'))) { /* Grab all active catch clauses. */ sals = get_catch_sals (0); } else { /* Grab selected catch clauses. */ error ("catch NAME not implemented"); #if 0 /* This isn't used; I don't know what it was for. */ sals = map_catch_names (arg, catch_breakpoint); #endif } if (! sals.nelts) return; save_arg = arg; for (i = 0; i < sals.nelts; i++) { resolve_sal_pc (&sals.sals[i]); while (arg && *arg) { if (arg[0] == 'i' && arg[1] == 'f' && (arg[2] == ' ' || arg[2] == '\t')) cond = parse_exp_1 ((arg += 2, &arg), block_for_pc (sals.sals[i].pc), 0); else error ("Junk at end of arguments."); } arg = save_arg; } for (i = 0; i < sals.nelts; i++) { sal = sals.sals[i]; if (from_tty) describe_other_breakpoints (sal.pc); b = set_raw_breakpoint (sal); set_breakpoint_count (breakpoint_count + 1); b->number = breakpoint_count; b->type = bp_breakpoint; b->cond = cond; b->enable = enabled; b->disposition = tempflag ? delete : donttouch; mention (b); } if (sals.nelts > 1) { printf_unfiltered ("Multiple breakpoints were set.\n"); printf_unfiltered ("Use the \"delete\" command to delete unwanted breakpoints.\n"); } free ((PTR)sals.sals); } #if 0 /* These aren't used; I don't know what they were for. */ /* Disable breakpoints on all catch clauses described in ARGS. */ static void disable_catch (args) char *args; { /* Map the disable command to catch clauses described in ARGS. */ } /* Enable breakpoints on all catch clauses described in ARGS. */ static void enable_catch (args) char *args; { /* Map the disable command to catch clauses described in ARGS. */ } /* Delete breakpoints on all catch clauses in the active scope. */ static void delete_catch (args) char *args; { /* Map the delete command to catch clauses described in ARGS. */ } #endif /* 0 */ static void catch_command (arg, from_tty) char *arg; int from_tty; { catch_command_1 (arg, 0, from_tty); } static void clear_command (arg, from_tty) char *arg; int from_tty; { register struct breakpoint *b, *b1; struct symtabs_and_lines sals; struct symtab_and_line sal; register struct breakpoint *found; int i; if (arg) { sals = decode_line_spec (arg, 1); } else { sals.sals = (struct symtab_and_line *) xmalloc (sizeof (struct symtab_and_line)); sal.line = default_breakpoint_line; sal.symtab = default_breakpoint_symtab; sal.pc = 0; if (sal.symtab == 0) error ("No source file specified."); sals.sals[0] = sal; sals.nelts = 1; } for (i = 0; i < sals.nelts; i++) { /* If exact pc given, clear bpts at that pc. But if sal.pc is zero, clear all bpts on specified line. */ sal = sals.sals[i]; found = (struct breakpoint *) 0; while (breakpoint_chain && (sal.pc ? breakpoint_chain->address == sal.pc : (breakpoint_chain->source_file != NULL && sal.symtab != NULL && STREQ (breakpoint_chain->source_file, sal.symtab->filename) && breakpoint_chain->line_number == sal.line))) { b1 = breakpoint_chain; breakpoint_chain = b1->next; b1->next = found; found = b1; } ALL_BREAKPOINTS (b) while (b->next && b->next->type != bp_watchpoint && b->next->type != bp_hardware_watchpoint && b->next->type != bp_read_watchpoint && b->next->type != bp_access_watchpoint && (sal.pc ? b->next->address == sal.pc : (b->next->source_file != NULL && sal.symtab != NULL && STREQ (b->next->source_file, sal.symtab->filename) && b->next->line_number == sal.line))) { b1 = b->next; b->next = b1->next; b1->next = found; found = b1; } if (found == 0) { if (arg) error ("No breakpoint at %s.", arg); else error ("No breakpoint at this line."); } if (found->next) from_tty = 1; /* Always report if deleted more than one */ if (from_tty) printf_unfiltered ("Deleted breakpoint%s ", found->next ? "s" : ""); breakpoints_changed (); while (found) { if (from_tty) printf_unfiltered ("%d ", found->number); b1 = found->next; delete_breakpoint (found); found = b1; } if (from_tty) putchar_unfiltered ('\n'); } free ((PTR)sals.sals); } /* Delete breakpoint in BS if they are `delete' breakpoints. This is called after any breakpoint is hit, or after errors. */ void breakpoint_auto_delete (bs) bpstat bs; { for (; bs; bs = bs->next) if (bs->breakpoint_at && bs->breakpoint_at->disposition == delete && bs->stop) delete_breakpoint (bs->breakpoint_at); } /* Delete a breakpoint and clean up all traces of it in the data structures. */ void delete_breakpoint (bpt) struct breakpoint *bpt; { register struct breakpoint *b; register bpstat bs; if (bpt->inserted) remove_breakpoint (bpt); if (breakpoint_chain == bpt) breakpoint_chain = bpt->next; ALL_BREAKPOINTS (b) if (b->next == bpt) { b->next = bpt->next; break; } check_duplicates (bpt->address); /* If this breakpoint was inserted, and there is another breakpoint at the same address, we need to insert the other breakpoint. */ if (bpt->inserted && bpt->type != bp_hardware_watchpoint && bpt->type != bp_read_watchpoint && bpt->type != bp_access_watchpoint) { ALL_BREAKPOINTS (b) if (b->address == bpt->address && !b->duplicate && b->enable != disabled) { int val; val = target_insert_breakpoint (b->address, b->shadow_contents); if (val != 0) { target_terminal_ours_for_output (); fprintf_unfiltered (gdb_stderr, "Cannot insert breakpoint %d:\n", b->number); memory_error (val, b->address); /* which bombs us out */ } else b->inserted = 1; } } free_command_lines (&bpt->commands); if (bpt->cond) free (bpt->cond); if (bpt->cond_string != NULL) free (bpt->cond_string); if (bpt->addr_string != NULL) free (bpt->addr_string); if (bpt->exp_string != NULL) free (bpt->exp_string); if (bpt->source_file != NULL) free (bpt->source_file); breakpoints_changed (); /* Be sure no bpstat's are pointing at it after it's been freed. */ /* FIXME, how can we find all bpstat's? We just check stop_bpstat for now. */ for (bs = stop_bpstat; bs; bs = bs->next) if (bs->breakpoint_at == bpt) bs->breakpoint_at = NULL; free ((PTR)bpt); } static void delete_command (arg, from_tty) char *arg; int from_tty; { if (arg == 0) { /* Ask user only if there are some breakpoints to delete. */ if (!from_tty || (breakpoint_chain && query ("Delete all breakpoints? ", 0, 0))) { /* No arg; clear all breakpoints. */ while (breakpoint_chain) delete_breakpoint (breakpoint_chain); } } else map_breakpoint_numbers (arg, delete_breakpoint); } /* Reset a breakpoint given it's struct breakpoint * BINT. The value we return ends up being the return value from catch_errors. Unused in this case. */ static int breakpoint_re_set_one (bint) char *bint; { struct breakpoint *b = (struct breakpoint *)bint; /* get past catch_errs */ struct value *mark; int i; struct symtabs_and_lines sals; char *s; enum enable save_enable; switch (b->type) { case bp_breakpoint: case bp_hardware_breakpoint: if (b->addr_string == NULL) { /* Anything without a string can't be re-set. */ delete_breakpoint (b); return 0; } /* In case we have a problem, disable this breakpoint. We'll restore its status if we succeed. */ save_enable = b->enable; b->enable = disabled; s = b->addr_string; sals = decode_line_1 (&s, 1, (struct symtab *)NULL, 0, (char ***)NULL); for (i = 0; i < sals.nelts; i++) { resolve_sal_pc (&sals.sals[i]); /* Reparse conditions, they might contain references to the old symtab. */ if (b->cond_string != NULL) { s = b->cond_string; if (b->cond) free ((PTR)b->cond); b->cond = parse_exp_1 (&s, block_for_pc (sals.sals[i].pc), 0); } /* We need to re-set the breakpoint if the address changes...*/ if (b->address != sals.sals[i].pc /* ...or new and old breakpoints both have source files, and the source file name or the line number changes... */ || (b->source_file != NULL && sals.sals[i].symtab != NULL && (!STREQ (b->source_file, sals.sals[i].symtab->filename) || b->line_number != sals.sals[i].line) ) /* ...or we switch between having a source file and not having one. */ || ((b->source_file == NULL) != (sals.sals[i].symtab == NULL)) ) { if (b->source_file != NULL) free (b->source_file); if (sals.sals[i].symtab == NULL) b->source_file = NULL; else b->source_file = savestring (sals.sals[i].symtab->filename, strlen (sals.sals[i].symtab->filename)); b->line_number = sals.sals[i].line; b->address = sals.sals[i].pc; check_duplicates (b->address); mention (b); /* Might be better to do this just once per breakpoint_re_set, rather than once for every breakpoint. */ breakpoints_changed (); } b->enable = save_enable; /* Restore it, this worked. */ } free ((PTR)sals.sals); break; case bp_watchpoint: case bp_hardware_watchpoint: case bp_read_watchpoint: case bp_access_watchpoint: innermost_block = NULL; /* The issue arises of what context to evaluate this in. The same one as when it was set, but what does that mean when symbols have been re-read? We could save the filename and functionname, but if the context is more local than that, the best we could do would be something like how many levels deep and which index at that particular level, but that's going to be less stable than filenames or functionnames. */ /* So for now, just use a global context. */ b->exp = parse_expression (b->exp_string); b->exp_valid_block = innermost_block; mark = value_mark (); b->val = evaluate_expression (b->exp); release_value (b->val); if (VALUE_LAZY (b->val)) value_fetch_lazy (b->val); if (b->cond_string != NULL) { s = b->cond_string; b->cond = parse_exp_1 (&s, (struct block *)0, 0); } if (b->enable == enabled) mention (b); value_free_to_mark (mark); break; default: printf_filtered ("Deleting unknown breakpoint type %d\n", b->type); /* fall through */ case bp_until: case bp_finish: case bp_longjmp: case bp_longjmp_resume: case bp_watchpoint_scope: case bp_call_dummy: delete_breakpoint (b); break; } return 0; } /* Re-set all breakpoints after symbols have been re-loaded. */ void breakpoint_re_set () { struct breakpoint *b, *temp; static char message1[] = "Error in re-setting breakpoint %d:\n"; char message[sizeof (message1) + 30 /* slop */]; ALL_BREAKPOINTS_SAFE (b, temp) { sprintf (message, message1, b->number); /* Format possible error msg */ catch_errors (breakpoint_re_set_one, (char *) b, message, RETURN_MASK_ALL); } create_longjmp_breakpoint("longjmp"); create_longjmp_breakpoint("_longjmp"); create_longjmp_breakpoint("siglongjmp"); create_longjmp_breakpoint(NULL); #if 0 /* Took this out (temporaliy at least), since it produces an extra blank line at startup. This messes up the gdbtests. -PB */ /* Blank line to finish off all those mention() messages we just printed. */ printf_filtered ("\n"); #endif } /* Set ignore-count of breakpoint number BPTNUM to COUNT. If from_tty is nonzero, it prints a message to that effect, which ends with a period (no newline). */ void set_ignore_count (bptnum, count, from_tty) int bptnum, count, from_tty; { register struct breakpoint *b; if (count < 0) count = 0; ALL_BREAKPOINTS (b) if (b->number == bptnum) { b->ignore_count = count; if (!from_tty) return; else if (count == 0) printf_filtered ("Will stop next time breakpoint %d is reached.", bptnum); else if (count == 1) printf_filtered ("Will ignore next crossing of breakpoint %d.", bptnum); else printf_filtered ("Will ignore next %d crossings of breakpoint %d.", count, bptnum); breakpoints_changed (); return; } error ("No breakpoint number %d.", bptnum); } /* Clear the ignore counts of all breakpoints. */ void breakpoint_clear_ignore_counts () { struct breakpoint *b; ALL_BREAKPOINTS (b) b->ignore_count = 0; } /* Command to set ignore-count of breakpoint N to COUNT. */ static void ignore_command (args, from_tty) char *args; int from_tty; { char *p = args; register int num; if (p == 0) error_no_arg ("a breakpoint number"); num = get_number (&p); if (*p == 0) error ("Second argument (specified ignore-count) is missing."); set_ignore_count (num, longest_to_int (value_as_long (parse_and_eval (p))), from_tty); printf_filtered ("\n"); breakpoints_changed (); } /* Call FUNCTION on each of the breakpoints whose numbers are given in ARGS. */ static void map_breakpoint_numbers (args, function) char *args; void (*function) PARAMS ((struct breakpoint *)); { register char *p = args; char *p1; register int num; register struct breakpoint *b; if (p == 0) error_no_arg ("one or more breakpoint numbers"); while (*p) { p1 = p; num = get_number (&p1); ALL_BREAKPOINTS (b) if (b->number == num) { struct breakpoint *related_breakpoint = b->related_breakpoint; function (b); if (related_breakpoint) function (related_breakpoint); goto win; } printf_unfiltered ("No breakpoint number %d.\n", num); win: p = p1; } } static void enable_breakpoint (bpt) struct breakpoint *bpt; { FRAME save_selected_frame = NULL; int save_selected_frame_level = -1; int target_resources_ok, other_type_used; struct value *mark; if (bpt->type == bp_hardware_breakpoint) { int i; i = hw_breakpoint_used_count(); target_resources_ok = TARGET_CAN_USE_HARDWARE_WATCHPOINT( bp_hardware_breakpoint, i+1, 0); if (target_resources_ok == 0) error ("No hardware breakpoint support in the target."); else if (target_resources_ok < 0) error ("Hardware breakpoints used exceeds limit."); } bpt->enable = enabled; breakpoints_changed (); check_duplicates (bpt->address); if (bpt->type == bp_watchpoint || bpt->type == bp_hardware_watchpoint || bpt->type == bp_read_watchpoint || bpt->type == bp_access_watchpoint) { if (bpt->exp_valid_block != NULL) { FRAME fr = find_frame_addr_in_frame_chain (bpt->watchpoint_frame); if (fr == NULL) { printf_filtered ("\ Cannot enable watchpoint %d because the block in which its expression\n\ is valid is not currently in scope.\n", bpt->number); bpt->enable = disabled; return; } save_selected_frame = selected_frame; save_selected_frame_level = selected_frame_level; select_frame (fr, -1); } value_free (bpt->val); mark = value_mark (); bpt->val = evaluate_expression (bpt->exp); release_value (bpt->val); if (VALUE_LAZY (bpt->val)) value_fetch_lazy (bpt->val); if (bpt->type == bp_hardware_watchpoint || bpt->type == bp_read_watchpoint || bpt->type == bp_access_watchpoint) { int i = hw_watchpoint_used_count (bpt->type, &other_type_used); int mem_cnt = can_use_hardware_watchpoint (bpt->val); target_resources_ok = TARGET_CAN_USE_HARDWARE_WATCHPOINT( bpt->type, i + mem_cnt, other_type_used); /* we can consider of type is bp_hardware_watchpoint, convert to bp_watchpoint in the following condition */ if (target_resources_ok < 0) { printf_filtered("\ Cannot enable watchpoint %d because target watch resources\n\ have been allocated for other watchpoints.\n", bpt->number); bpt->enable = disabled; value_free_to_mark (mark); return; } } if (save_selected_frame_level >= 0) select_frame (save_selected_frame, save_selected_frame_level); value_free_to_mark (mark); } } /* ARGSUSED */ static void enable_command (args, from_tty) char *args; int from_tty; { struct breakpoint *bpt; if (args == 0) ALL_BREAKPOINTS (bpt) switch (bpt->type) { case bp_breakpoint: case bp_hardware_breakpoint: case bp_watchpoint: case bp_hardware_watchpoint: case bp_read_watchpoint: case bp_access_watchpoint: enable_breakpoint (bpt); default: continue; } else map_breakpoint_numbers (args, enable_breakpoint); } static void disable_breakpoint (bpt) struct breakpoint *bpt; { /* Never disable a watchpoint scope breakpoint; we want to hit them when we leave scope so we can delete both the watchpoint and its scope breakpoint at that time. */ if (bpt->type == bp_watchpoint_scope) return; bpt->enable = disabled; breakpoints_changed (); check_duplicates (bpt->address); } /* ARGSUSED */ static void disable_command (args, from_tty) char *args; int from_tty; { register struct breakpoint *bpt; if (args == 0) ALL_BREAKPOINTS (bpt) switch (bpt->type) { case bp_breakpoint: case bp_hardware_breakpoint: case bp_watchpoint: case bp_hardware_watchpoint: case bp_read_watchpoint: case bp_access_watchpoint: disable_breakpoint (bpt); default: continue; } else map_breakpoint_numbers (args, disable_breakpoint); } static void enable_once_breakpoint (bpt) struct breakpoint *bpt; { FRAME save_selected_frame = NULL; int save_selected_frame_level = -1; int target_resources_ok, other_type_used; struct value *mark; if (bpt->type == bp_hardware_breakpoint) { int i; i = hw_breakpoint_used_count(); target_resources_ok = TARGET_CAN_USE_HARDWARE_WATCHPOINT( bp_hardware_breakpoint, i+1, 0); if (target_resources_ok == 0) error ("No hardware breakpoint support in the target."); else if (target_resources_ok < 0) error ("Hardware breakpoints used exceeds limit."); } bpt->enable = enabled; bpt->disposition = disable; check_duplicates (bpt->address); breakpoints_changed (); if (bpt->type == bp_watchpoint || bpt->type == bp_hardware_watchpoint || bpt->type == bp_read_watchpoint || bpt->type == bp_access_watchpoint) { if (bpt->exp_valid_block != NULL) { FRAME fr = find_frame_addr_in_frame_chain (bpt->watchpoint_frame); if (fr == NULL) { printf_filtered ("\ Cannot enable watchpoint %d because the block in which its expression\n\ is valid is not currently in scope.\n", bpt->number); bpt->enable = disabled; return; } save_selected_frame = selected_frame; save_selected_frame_level = selected_frame_level; select_frame (fr, -1); } value_free (bpt->val); mark = value_mark (); bpt->val = evaluate_expression (bpt->exp); release_value (bpt->val); if (VALUE_LAZY (bpt->val)) value_fetch_lazy (bpt->val); if (bpt->type == bp_hardware_watchpoint || bpt->type == bp_read_watchpoint || bpt->type == bp_access_watchpoint) { int i = hw_watchpoint_used_count (bpt->type, &other_type_used); int mem_cnt = can_use_hardware_watchpoint(bpt->val); target_resources_ok = TARGET_CAN_USE_HARDWARE_WATCHPOINT( bpt->type, i+mem_cnt, other_type_used); /* we can consider of type is bp_hardware_watchpoint, convert to bp_watchpoint in the following condition */ if (target_resources_ok < 0) { printf_filtered("\ Cannot enable watchpoint %d because target watch resources\n\ have been allocated for other watchpoints.\n", bpt->number); bpt->enable = disabled; value_free_to_mark (mark); } } if (save_selected_frame_level >= 0) select_frame (save_selected_frame, save_selected_frame_level); value_free_to_mark (mark); } } /* ARGSUSED */ static void enable_once_command (args, from_tty) char *args; int from_tty; { map_breakpoint_numbers (args, enable_once_breakpoint); } static void enable_delete_breakpoint (bpt) struct breakpoint *bpt; { bpt->enable = enabled; bpt->disposition = delete; check_duplicates (bpt->address); breakpoints_changed (); } /* ARGSUSED */ static void enable_delete_command (args, from_tty) char *args; int from_tty; { map_breakpoint_numbers (args, enable_delete_breakpoint); } /* * Use default_breakpoint_'s, or nothing if they aren't valid. */ struct symtabs_and_lines decode_line_spec_1 (string, funfirstline) char *string; int funfirstline; { struct symtabs_and_lines sals; if (string == 0) error ("Empty line specification."); if (default_breakpoint_valid) sals = decode_line_1 (&string, funfirstline, default_breakpoint_symtab, default_breakpoint_line, (char ***)NULL); else sals = decode_line_1 (&string, funfirstline, (struct symtab *)NULL, 0, (char ***)NULL); if (*string) error ("Junk at end of line specification: %s", string); return sals; } void _initialize_breakpoint () { breakpoint_chain = 0; /* Don't bother to call set_breakpoint_count. $bpnum isn't useful before a breakpoint is set. */ breakpoint_count = 0; add_com ("ignore", class_breakpoint, ignore_command, "Set ignore-count of breakpoint number N to COUNT.\n\ Usage is `ignore N COUNT'."); add_com ("commands", class_breakpoint, commands_command, "Set commands to be executed when a breakpoint is hit.\n\ Give breakpoint number as argument after \"commands\".\n\ With no argument, the targeted breakpoint is the last one set.\n\ The commands themselves follow starting on the next line.\n\ Type a line containing \"end\" to indicate the end of them.\n\ Give \"silent\" as the first line to make the breakpoint silent;\n\ then no output is printed when it is hit, except what the commands print."); add_com ("condition", class_breakpoint, condition_command, "Specify breakpoint number N to break only if COND is true.\n\ Usage is `condition N COND', where N is an integer and COND is an\n\ expression to be evaluated whenever breakpoint N is reached. "); add_com ("tbreak", class_breakpoint, tbreak_command, "Set a temporary breakpoint. Args like \"break\" command.\n\ Like \"break\" except the breakpoint is only temporary,\n\ so it will be deleted when hit. Equivalent to \"break\" followed\n\ by using \"enable delete\" on the breakpoint number."); add_com ("hbreak", class_breakpoint, hbreak_command, "Set a hardware assisted breakpoint. Args like \"break\" command.\n\ Like \"break\" except the breakpoint requires hardware support,\n\ some target hardware may not have this support."); add_com ("thbreak", class_breakpoint, thbreak_command, "Set a temporary hardware assisted breakpoint. Args like \"break\" command.\n\ Like \"hbreak\" except the breakpoint is only temporary,\n\ so it will be deleted when hit."); add_prefix_cmd ("enable", class_breakpoint, enable_command, "Enable some breakpoints.\n\ Give breakpoint numbers (separated by spaces) as arguments.\n\ With no subcommand, breakpoints are enabled until you command otherwise.\n\ This is used to cancel the effect of the \"disable\" command.\n\ With a subcommand you can enable temporarily.", &enablelist, "enable ", 1, &cmdlist); add_abbrev_prefix_cmd ("breakpoints", class_breakpoint, enable_command, "Enable some breakpoints.\n\ Give breakpoint numbers (separated by spaces) as arguments.\n\ This is used to cancel the effect of the \"disable\" command.\n\ May be abbreviated to simply \"enable\".\n", &enablebreaklist, "enable breakpoints ", 1, &enablelist); add_cmd ("once", no_class, enable_once_command, "Enable breakpoints for one hit. Give breakpoint numbers.\n\ If a breakpoint is hit while enabled in this fashion, it becomes disabled.", &enablebreaklist); add_cmd ("delete", no_class, enable_delete_command, "Enable breakpoints and delete when hit. Give breakpoint numbers.\n\ If a breakpoint is hit while enabled in this fashion, it is deleted.", &enablebreaklist); add_cmd ("delete", no_class, enable_delete_command, "Enable breakpoints and delete when hit. Give breakpoint numbers.\n\ If a breakpoint is hit while enabled in this fashion, it is deleted.", &enablelist); add_cmd ("once", no_class, enable_once_command, "Enable breakpoints for one hit. Give breakpoint numbers.\n\ If a breakpoint is hit while enabled in this fashion, it becomes disabled.", &enablelist); add_prefix_cmd ("disable", class_breakpoint, disable_command, "Disable some breakpoints.\n\ Arguments are breakpoint numbers with spaces in between.\n\ To disable all breakpoints, give no argument.\n\ A disabled breakpoint is not forgotten, but has no effect until reenabled.", &disablelist, "disable ", 1, &cmdlist); add_com_alias ("dis", "disable", class_breakpoint, 1); add_com_alias ("disa", "disable", class_breakpoint, 1); add_cmd ("breakpoints", class_alias, disable_command, "Disable some breakpoints.\n\ Arguments are breakpoint numbers with spaces in between.\n\ To disable all breakpoints, give no argument.\n\ A disabled breakpoint is not forgotten, but has no effect until reenabled.\n\ This command may be abbreviated \"disable\".", &disablelist); add_prefix_cmd ("delete", class_breakpoint, delete_command, "Delete some breakpoints or auto-display expressions.\n\ Arguments are breakpoint numbers with spaces in between.\n\ To delete all breakpoints, give no argument.\n\ \n\ Also a prefix command for deletion of other GDB objects.\n\ The \"unset\" command is also an alias for \"delete\".", &deletelist, "delete ", 1, &cmdlist); add_com_alias ("d", "delete", class_breakpoint, 1); add_cmd ("breakpoints", class_alias, delete_command, "Delete some breakpoints or auto-display expressions.\n\ Arguments are breakpoint numbers with spaces in between.\n\ To delete all breakpoints, give no argument.\n\ This command may be abbreviated \"delete\".", &deletelist); add_com ("clear", class_breakpoint, clear_command, "Clear breakpoint at specified line or function.\n\ Argument may be line number, function name, or \"*\" and an address.\n\ If line number is specified, all breakpoints in that line are cleared.\n\ If function is specified, breakpoints at beginning of function are cleared.\n\ If an address is specified, breakpoints at that address are cleared.\n\n\ With no argument, clears all breakpoints in the line that the selected frame\n\ is executing in.\n\ \n\ See also the \"delete\" command which clears breakpoints by number."); add_com ("break", class_breakpoint, break_command, "Set breakpoint at specified line or function.\n\ Argument may be line number, function name, or \"*\" and an address.\n\ If line number is specified, break at start of code for that line.\n\ If function is specified, break at start of code for that function.\n\ If an address is specified, break at that exact address.\n\ With no arg, uses current execution address of selected stack frame.\n\ This is useful for breaking on return to a stack frame.\n\ \n\ Multiple breakpoints at one place are permitted, and useful if conditional.\n\ \n\ Do \"help breakpoints\" for info on other commands dealing with breakpoints."); add_com_alias ("b", "break", class_run, 1); add_com_alias ("br", "break", class_run, 1); add_com_alias ("bre", "break", class_run, 1); add_com_alias ("brea", "break", class_run, 1); add_info ("breakpoints", breakpoints_info, "Status of user-settable breakpoints, or breakpoint number NUMBER.\n\ The \"Type\" column indicates one of:\n\ \tbreakpoint - normal breakpoint\n\ \twatchpoint - watchpoint\n\ The \"Disp\" column contains one of \"keep\", \"del\", or \"dis\" to indicate\n\ the disposition of the breakpoint after it gets hit. \"dis\" means that the\n\ breakpoint will be disabled. The \"Address\" and \"What\" columns indicate the\n\ address and file/line number respectively.\n\n\ Convenience variable \"$_\" and default examine address for \"x\"\n\ are set to the address of the last breakpoint listed.\n\n\ Convenience variable \"$bpnum\" contains the number of the last\n\ breakpoint set."); #if MAINTENANCE_CMDS add_cmd ("breakpoints", class_maintenance, maintenance_info_breakpoints, "Status of all breakpoints, or breakpoint number NUMBER.\n\ The \"Type\" column indicates one of:\n\ \tbreakpoint - normal breakpoint\n\ \twatchpoint - watchpoint\n\ \tlongjmp - internal breakpoint used to step through longjmp()\n\ \tlongjmp resume - internal breakpoint at the target of longjmp()\n\ \tuntil - internal breakpoint used by the \"until\" command\n\ \tfinish - internal breakpoint used by the \"finish\" command\n\ The \"Disp\" column contains one of \"keep\", \"del\", or \"dis\" to indicate\n\ the disposition of the breakpoint after it gets hit. \"dis\" means that the\n\ breakpoint will be disabled. The \"Address\" and \"What\" columns indicate the\n\ address and file/line number respectively.\n\n\ Convenience variable \"$_\" and default examine address for \"x\"\n\ are set to the address of the last breakpoint listed.\n\n\ Convenience variable \"$bpnum\" contains the number of the last\n\ breakpoint set.", &maintenanceinfolist); #endif /* MAINTENANCE_CMDS */ add_com ("catch", class_breakpoint, catch_command, "Set breakpoints to catch exceptions that are raised.\n\ Argument may be a single exception to catch, multiple exceptions\n\ to catch, or the default exception \"default\". If no arguments\n\ are given, breakpoints are set at all exception handlers catch clauses\n\ within the current scope.\n\ \n\ A condition specified for the catch applies to all breakpoints set\n\ with this command\n\ \n\ Do \"help breakpoints\" for info on other commands dealing with breakpoints."); add_com ("watch", class_breakpoint, watch_command, "Set a watchpoint for an expression.\n\ A watchpoint stops execution of your program whenever the value of\n\ an expression changes."); add_com ("rwatch", class_breakpoint, rwatch_command, "Set a read watchpoint for an expression.\n\ A watchpoint stops execution of your program whenever the value of\n\ an expression is read."); add_com ("awatch", class_breakpoint, awatch_command, "Set a watchpoint for an expression.\n\ A watchpoint stops execution of your program whenever the value of\n\ an expression is either read or written."); add_info ("watchpoints", breakpoints_info, "Synonym for ``info breakpoints''."); } /* OK, when we call objfile_relocate, we need to relocate breakpoints too. breakpoint_re_set is not a good choice--for example, if addr_string contains just a line number without a file name the breakpoint might get set in a different file. In general, there is no need to go all the way back to the user's string (though this might work if some effort were made to canonicalize it), since symtabs and everything except addresses are still valid. Probably the best way to solve this is to have each breakpoint save the objfile and the section number that was used to set it (if set by "*addr", probably it is best to use find_pc_line to get a symtab and use the objfile and block_line_section for that symtab). Then objfile_relocate can call fixup_breakpoints with the objfile and the new_offsets, and it can relocate only the appropriate breakpoints. */ #ifdef IBM6000_TARGET /* But for now, just kludge it based on the concept that before an objfile is relocated the breakpoint is below 0x10000000, and afterwards it is higher, so that way we only relocate each breakpoint once. */ void fixup_breakpoints (low, high, delta) CORE_ADDR low; CORE_ADDR high; CORE_ADDR delta; { struct breakpoint *b; ALL_BREAKPOINTS (b) { if (b->address >= low && b->address <= high) b->address += delta; } } #endif gdb-4.13/gdb/breakpoint.h 666 34562 1752 34471 5611117611 13630 0ustar fnfcygnus/* Data structures associated with breakpoints in GDB. Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (BREAKPOINT_H) #define BREAKPOINT_H 1 #include "frame.h" #include "value.h" /* This is the maximum number of bytes a breakpoint instruction can take. Feel free to increase it. It's just used in a few places to size arrays that should be independent of the target architecture. */ #define BREAKPOINT_MAX 16 /* Type of breakpoint. */ /* FIXME In the future, we should fold all other breakpoint-like things into here. This includes: * single-step (for machines where we have to simulate single stepping) (probably, though perhaps it is better for it to look as much as possible like a single-step to wait_for_inferior). */ enum bptype { bp_breakpoint, /* Normal breakpoint */ bp_hardware_breakpoint, /* Hardware assisted breakpoint */ bp_until, /* used by until command */ bp_finish, /* used by finish command */ bp_watchpoint, /* Watchpoint */ bp_hardware_watchpoint, /* Hardware assisted watchpoint */ bp_read_watchpoint, /* read watchpoint, (hardware assisted) */ bp_access_watchpoint, /* access watchpoint, (hardware assisted) */ bp_longjmp, /* secret breakpoint to find longjmp() */ bp_longjmp_resume, /* secret breakpoint to escape longjmp() */ /* Used by wait_for_inferior for stepping over subroutine calls, for stepping over signal handlers, and for skipping prologues. */ bp_step_resume, /* Used by wait_for_inferior for stepping over signal handlers. */ bp_through_sigtramp, /* Used to detect when a watchpoint expression has gone out of scope. These breakpoints are usually not visible to the user. This breakpoint has some interesting properties: 1) There's always a 1:1 mapping between watchpoints on local variables and watchpoint_scope breakpoints. 2) It automatically deletes itself and the watchpoint it's associated with when hit. 3) It can never be disabled. */ bp_watchpoint_scope, /* The breakpoint at the end of a call dummy. */ /* FIXME: What if the function we are calling longjmp()s out of the call, or the user gets out with the "return" command? We currently have no way of cleaning up the breakpoint in these (obscure) situations. (Probably can solve this by noticing longjmp, "return", etc., it's similar to noticing when a watchpoint on a local variable goes out of scope (with hardware support for watchpoints)). */ bp_call_dummy }; /* States of enablement of breakpoint. */ enum enable { disabled, enabled}; /* Disposition of breakpoint. Ie: what to do after hitting it. */ enum bpdisp { delete, /* Delete it */ disable, /* Disable it */ donttouch /* Leave it alone */ }; /* Note that the ->silent field is not currently used by any commands (though the code is in there if it was to be, and set_raw_breakpoint does set it to 0). I implemented it because I thought it would be useful for a hack I had to put in; I'm going to leave it in because I can see how there might be times when it would indeed be useful */ /* This is for a breakpoint or a watchpoint. */ struct breakpoint { struct breakpoint *next; /* Type of breakpoint. */ enum bptype type; /* Zero means disabled; remember the info but don't break here. */ enum enable enable; /* What to do with this breakpoint after we hit it. */ enum bpdisp disposition; /* Number assigned to distinguish breakpoints. */ int number; /* Address to break at, or NULL if not a breakpoint. */ CORE_ADDR address; /* Line number of this address. Only matters if address is non-NULL. */ int line_number; /* Source file name of this address. Only matters if address is non-NULL. */ char *source_file; /* Non-zero means a silent breakpoint (don't print frame info if we stop here). */ unsigned char silent; /* Number of stops at this breakpoint that should be continued automatically before really stopping. */ int ignore_count; /* "Real" contents of byte where breakpoint has been inserted. Valid only when breakpoints are in the program. Under the complete control of the target insert_breakpoint and remove_breakpoint routines. No other code should assume anything about the value(s) here. */ char shadow_contents[BREAKPOINT_MAX]; /* Nonzero if this breakpoint is now inserted. Only matters if address is non-NULL. */ char inserted; /* Nonzero if this is not the first breakpoint in the list for the given address. Only matters if address is non-NULL. */ char duplicate; /* Chain of command lines to execute when this breakpoint is hit. */ struct command_line *commands; /* Stack depth (address of frame). If nonzero, break only if fp equals this. */ FRAME_ADDR frame; /* Conditional. Break only if this expression's value is nonzero. */ struct expression *cond; /* String we used to set the breakpoint (malloc'd). Only matters if address is non-NULL. */ char *addr_string; /* String form of the breakpoint condition (malloc'd), or NULL if there is no condition. */ char *cond_string; /* String form of exp (malloc'd), or NULL if none. */ char *exp_string; /* The expression we are watching, or NULL if not a watchpoint. */ struct expression *exp; /* The largest block within which it is valid, or NULL if it is valid anywhere (e.g. consists just of global symbols). */ struct block *exp_valid_block; /* Value of the watchpoint the last time we checked it. */ value_ptr val; /* Holds the value chain for a hardware watchpoint expression. */ value_ptr val_chain; /* Holds the address of the related watchpoint_scope breakpoint when using watchpoints on local variables (might the concept of a related breakpoint be useful elsewhere, if not just call it the watchpoint_scope breakpoint or something like that. FIXME). */ struct breakpoint *related_breakpoint; /* Holds the frame address which identifies the frame this watchpoint should be evaluated in, or NULL if the watchpoint should be evaluated on the outermost frame. */ FRAME_ADDR watchpoint_frame; /* Thread number for thread-specific breakpoint, or -1 if don't care */ int thread; /* Count of the number of times this breakpoint was taken, dumped with the info, but not used for anything else. Useful for seeing how many times you hit a break prior to the program aborting, so you can back up to just before the abort. */ int hit_count; }; /* The following stuff is an abstract data type "bpstat" ("breakpoint status"). This provides the ability to determine whether we have stopped at a breakpoint, and what we should do about it. */ typedef struct bpstat *bpstat; /* Interface: */ /* Clear a bpstat so that it says we are not at any breakpoint. Also free any storage that is part of a bpstat. */ extern void bpstat_clear PARAMS ((bpstat *)); /* Return a copy of a bpstat. Like "bs1 = bs2" but all storage that is part of the bpstat is copied as well. */ extern bpstat bpstat_copy PARAMS ((bpstat)); /* FIXME: prototypes uses equivalence between FRAME_ADDR and CORE_ADDR */ extern bpstat bpstat_stop_status PARAMS ((CORE_ADDR *, CORE_ADDR, int)); /* This bpstat_what stuff tells wait_for_inferior what to do with a breakpoint (a challenging task). */ enum bpstat_what_main_action { /* Perform various other tests; that is, this bpstat does not say to perform any action (e.g. failed watchpoint and nothing else). */ BPSTAT_WHAT_KEEP_CHECKING, /* Rather than distinguish between noisy and silent stops here, it might be cleaner to have bpstat_print make that decision (also taking into account stop_print_frame and source_only). But the implications are a bit scary (interaction with auto-displays, etc.), so I won't try it. */ /* Stop silently. */ BPSTAT_WHAT_STOP_SILENT, /* Stop and print. */ BPSTAT_WHAT_STOP_NOISY, /* Remove breakpoints, single step once, then put them back in and go back to what we were doing. It's possible that this should be removed from the main_action and put into a separate field, to more cleanly handle BPSTAT_WHAT_CLEAR_LONGJMP_RESUME_SINGLE. */ BPSTAT_WHAT_SINGLE, /* Set longjmp_resume breakpoint, remove all other breakpoints, and continue. The "remove all other breakpoints" part is required if we are also stepping over another breakpoint as well as doing the longjmp handling. */ BPSTAT_WHAT_SET_LONGJMP_RESUME, /* Clear longjmp_resume breakpoint, then handle as BPSTAT_WHAT_KEEP_CHECKING. */ BPSTAT_WHAT_CLEAR_LONGJMP_RESUME, /* Clear longjmp_resume breakpoint, then handle as BPSTAT_WHAT_SINGLE. */ BPSTAT_WHAT_CLEAR_LONGJMP_RESUME_SINGLE, /* Clear step resume breakpoint, and keep checking. */ BPSTAT_WHAT_STEP_RESUME, /* Clear through_sigtramp breakpoint, muck with trap_expected, and keep checking. */ BPSTAT_WHAT_THROUGH_SIGTRAMP, /* This is just used to keep track of how many enums there are. */ BPSTAT_WHAT_LAST }; struct bpstat_what { enum bpstat_what_main_action main_action; /* Did we hit a call dummy breakpoint? This only goes with a main_action of BPSTAT_WHAT_STOP_SILENT or BPSTAT_WHAT_STOP_NOISY (the concept of continuing from a call dummy without popping the frame is not a useful one). */ int call_dummy; }; /* Tell what to do about this bpstat. */ struct bpstat_what bpstat_what PARAMS ((bpstat)); /* Find the bpstat associated with a breakpoint. NULL otherwise. */ bpstat bpstat_find_breakpoint PARAMS ((bpstat, struct breakpoint *)); /* Nonzero if a signal that we got in wait() was due to circumstances explained by the BS. */ /* Currently that is true if we have hit a breakpoint, or if there is a watchpoint enabled. */ #define bpstat_explains_signal(bs) ((bs) != NULL) /* Nonzero if we should step constantly (e.g. watchpoints on machines without hardware support). This isn't related to a specific bpstat, just to things like whether watchpoints are set. */ extern int bpstat_should_step PARAMS ((void)); /* Print a message indicating what happened. Returns nonzero to say that only the source line should be printed after this (zero return means print the frame as well as the source line). */ extern int bpstat_print PARAMS ((bpstat)); /* Return the breakpoint number of the first breakpoint we are stopped at. *BSP upon return is a bpstat which points to the remaining breakpoints stopped at (but which is not guaranteed to be good for anything but further calls to bpstat_num). Return 0 if passed a bpstat which does not indicate any breakpoints. */ extern int bpstat_num PARAMS ((bpstat *)); /* Perform actions associated with having stopped at *BSP. Actually, we just use this for breakpoint commands. Perhaps other actions will go here later, but this is executed at a late time (from the command loop). */ extern void bpstat_do_actions PARAMS ((bpstat *)); /* Modify BS so that the actions will not be performed. */ extern void bpstat_clear_actions PARAMS ((bpstat)); /* Implementation: */ struct bpstat { /* Linked list because there can be two breakpoints at the same place, and a bpstat reflects the fact that both have been hit. */ bpstat next; /* Breakpoint that we are at. */ struct breakpoint *breakpoint_at; /* Commands left to be done. */ struct command_line *commands; /* Old value associated with a watchpoint. */ value_ptr old_val; /* Nonzero if this breakpoint tells us to print the frame. */ char print; /* Nonzero if this breakpoint tells us to stop. */ char stop; /* Function called by bpstat_print to print stuff associated with this element of the bpstat chain. Returns 0 or 1 just like bpstat_print, or -1 if it can't deal with it. */ int (*print_it) PARAMS((bpstat bs)); }; /* Prototypes for breakpoint-related functions. */ #ifdef __STDC__ /* Forward declarations for prototypes */ struct frame_info; #endif extern int breakpoint_here_p PARAMS ((CORE_ADDR)); extern int frame_in_dummy PARAMS ((struct frame_info *)); extern int breakpoint_thread_match PARAMS ((CORE_ADDR, int)); extern void until_break_command PARAMS ((char *, int)); extern void breakpoint_re_set PARAMS ((void)); extern void clear_momentary_breakpoints PARAMS ((void)); /* FIXME: Prototype uses equivalence of "struct frame_info *" and FRAME */ extern struct breakpoint * set_momentary_breakpoint PARAMS ((struct symtab_and_line, struct frame_info *, enum bptype)); extern void set_ignore_count PARAMS ((int, int, int)); extern void set_default_breakpoint PARAMS ((int, CORE_ADDR, struct symtab *, int)); extern void mark_breakpoints_out PARAMS ((void)); extern void breakpoint_init_inferior PARAMS ((void)); extern void delete_breakpoint PARAMS ((struct breakpoint *)); extern void breakpoint_auto_delete PARAMS ((bpstat)); extern void breakpoint_clear_ignore_counts PARAMS ((void)); extern void break_command PARAMS ((char *, int)); extern int insert_breakpoints PARAMS ((void)); extern int remove_breakpoints PARAMS ((void)); extern void enable_longjmp_breakpoint PARAMS ((void)); extern void disable_longjmp_breakpoint PARAMS ((void)); extern void set_longjmp_resume_breakpoint PARAMS ((CORE_ADDR, FRAME)); extern void clear_breakpoint_hit_counts PARAMS ((void)); /* The following are for displays, which aren't really breakpoints, but here is as good a place as any for them. */ extern void disable_current_display PARAMS ((void)); extern void do_displays PARAMS ((void)); extern void disable_display PARAMS ((int)); extern void clear_displays PARAMS ((void)); #endif /* !defined (BREAKPOINT_H) */ gdb-4.13/gdb/buildsym.c 666 34562 1752 66104 5544734560 13330 0ustar fnfcygnus/* Support routines for building symbol tables in GDB's internal format. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This module provides subroutines used for creating and adding to the symbol table. These routines are called from various symbol- file-reading routines. Routines to support specific debugging information formats (stabs, DWARF, etc) belong somewhere else. */ #include "defs.h" #include "bfd.h" #include "obstack.h" #include "symtab.h" #include "symfile.h" /* Needed for "struct complaint" */ #include "objfiles.h" #include "complaints.h" #include /* Ask buildsym.h to define the vars it normally declares `extern'. */ #define EXTERN /**/ #include "buildsym.h" /* Our own declarations */ #undef EXTERN /* For cleanup_undefined_types and finish_global_stabs (somewhat questionable--see comment where we call them). */ #include "stabsread.h" static int compare_line_numbers PARAMS ((const void *, const void *)); static struct blockvector * make_blockvector PARAMS ((struct objfile *)); /* Initial sizes of data structures. These are realloc'd larger if needed, and realloc'd down to the size actually used, when completed. */ #define INITIAL_CONTEXT_STACK_SIZE 10 #define INITIAL_LINE_VECTOR_LENGTH 1000 /* Complaints about the symbols we have encountered. */ struct complaint innerblock_complaint = {"inner block not inside outer block in %s", 0, 0}; struct complaint innerblock_anon_complaint = {"inner block not inside outer block", 0, 0}; struct complaint blockvector_complaint = {"block at 0x%lx out of order", 0, 0}; /* maintain the lists of symbols and blocks */ /* Add a symbol to one of the lists of symbols. */ void add_symbol_to_list (symbol, listhead) struct symbol *symbol; struct pending **listhead; { register struct pending *link; /* We keep PENDINGSIZE symbols in each link of the list. If we don't have a link with room in it, add a new link. */ if (*listhead == NULL || (*listhead)->nsyms == PENDINGSIZE) { if (free_pendings) { link = free_pendings; free_pendings = link->next; } else { link = (struct pending *) xmalloc (sizeof (struct pending)); } link->next = *listhead; *listhead = link; link->nsyms = 0; } (*listhead)->symbol[(*listhead)->nsyms++] = symbol; } /* Find a symbol named NAME on a LIST. NAME need not be '\0'-terminated; LENGTH is the length of the name. */ struct symbol * find_symbol_in_list (list, name, length) struct pending *list; char *name; int length; { int j; char *pp; while (list != NULL) { for (j = list->nsyms; --j >= 0; ) { pp = SYMBOL_NAME (list->symbol[j]); if (*pp == *name && strncmp (pp, name, length) == 0 && pp[length] == '\0') { return (list->symbol[j]); } } list = list->next; } return (NULL); } /* At end of reading syms, or in case of quit, really free as many `struct pending's as we can easily find. */ /* ARGSUSED */ void really_free_pendings (foo) int foo; { struct pending *next, *next1; #if 0 struct pending_block *bnext, *bnext1; #endif for (next = free_pendings; next; next = next1) { next1 = next->next; free ((PTR)next); } free_pendings = NULL; #if 0 /* Now we make the links in the symbol_obstack, so don't free them. */ for (bnext = pending_blocks; bnext; bnext = bnext1) { bnext1 = bnext->next; free ((PTR)bnext); } #endif pending_blocks = NULL; for (next = file_symbols; next != NULL; next = next1) { next1 = next->next; free ((PTR)next); } file_symbols = NULL; for (next = global_symbols; next != NULL; next = next1) { next1 = next->next; free ((PTR)next); } global_symbols = NULL; } /* Take one of the lists of symbols and make a block from it. Keep the order the symbols have in the list (reversed from the input file). Put the block on the list of pending blocks. */ void finish_block (symbol, listhead, old_blocks, start, end, objfile) struct symbol *symbol; struct pending **listhead; struct pending_block *old_blocks; CORE_ADDR start, end; struct objfile *objfile; { register struct pending *next, *next1; register struct block *block; register struct pending_block *pblock; struct pending_block *opblock; register int i; register int j; /* Count the length of the list of symbols. */ for (next = *listhead, i = 0; next; i += next->nsyms, next = next->next) { /*EMPTY*/; } block = (struct block *) obstack_alloc (&objfile -> symbol_obstack, (sizeof (struct block) + ((i - 1) * sizeof (struct symbol *)))); /* Copy the symbols into the block. */ BLOCK_NSYMS (block) = i; for (next = *listhead; next; next = next->next) { for (j = next->nsyms - 1; j >= 0; j--) { BLOCK_SYM (block, --i) = next->symbol[j]; } } BLOCK_START (block) = start; BLOCK_END (block) = end; /* Superblock filled in when containing block is made */ BLOCK_SUPERBLOCK (block) = NULL; BLOCK_GCC_COMPILED (block) = processing_gcc_compilation; /* Put the block in as the value of the symbol that names it. */ if (symbol) { SYMBOL_BLOCK_VALUE (symbol) = block; BLOCK_FUNCTION (block) = symbol; } else { BLOCK_FUNCTION (block) = NULL; } /* Now "free" the links of the list, and empty the list. */ for (next = *listhead; next; next = next1) { next1 = next->next; next->next = free_pendings; free_pendings = next; } *listhead = NULL; /* Install this block as the superblock of all blocks made since the start of this scope that don't have superblocks yet. */ opblock = NULL; for (pblock = pending_blocks; pblock != old_blocks; pblock = pblock->next) { if (BLOCK_SUPERBLOCK (pblock->block) == NULL) { #if 1 /* Check to be sure the blocks are nested as we receive them. If the compiler/assembler/linker work, this just burns a small amount of time. */ if (BLOCK_START (pblock->block) < BLOCK_START (block) || BLOCK_END (pblock->block) > BLOCK_END (block)) { if (symbol) { complain (&innerblock_complaint, SYMBOL_SOURCE_NAME (symbol)); } else { complain (&innerblock_anon_complaint); } BLOCK_START (pblock->block) = BLOCK_START (block); BLOCK_END (pblock->block) = BLOCK_END (block); } #endif BLOCK_SUPERBLOCK (pblock->block) = block; } opblock = pblock; } /* Record this block on the list of all blocks in the file. Put it after opblock, or at the beginning if opblock is 0. This puts the block in the list after all its subblocks. */ /* Allocate in the symbol_obstack to save time. It wastes a little space. */ pblock = (struct pending_block *) obstack_alloc (&objfile -> symbol_obstack, sizeof (struct pending_block)); pblock->block = block; if (opblock) { pblock->next = opblock->next; opblock->next = pblock; } else { pblock->next = pending_blocks; pending_blocks = pblock; } } static struct blockvector * make_blockvector (objfile) struct objfile *objfile; { register struct pending_block *next; register struct blockvector *blockvector; register int i; /* Count the length of the list of blocks. */ for (next = pending_blocks, i = 0; next; next = next->next, i++) {;} blockvector = (struct blockvector *) obstack_alloc (&objfile -> symbol_obstack, (sizeof (struct blockvector) + (i - 1) * sizeof (struct block *))); /* Copy the blocks into the blockvector. This is done in reverse order, which happens to put the blocks into the proper order (ascending starting address). finish_block has hair to insert each block into the list after its subblocks in order to make sure this is true. */ BLOCKVECTOR_NBLOCKS (blockvector) = i; for (next = pending_blocks; next; next = next->next) { BLOCKVECTOR_BLOCK (blockvector, --i) = next->block; } #if 0 /* Now we make the links in the obstack, so don't free them. */ /* Now free the links of the list, and empty the list. */ for (next = pending_blocks; next; next = next1) { next1 = next->next; free (next); } #endif pending_blocks = NULL; #if 1 /* FIXME, shut this off after a while to speed up symbol reading. */ /* Some compilers output blocks in the wrong order, but we depend on their being in the right order so we can binary search. Check the order and moan about it. FIXME. */ if (BLOCKVECTOR_NBLOCKS (blockvector) > 1) { for (i = 1; i < BLOCKVECTOR_NBLOCKS (blockvector); i++) { if (BLOCK_START(BLOCKVECTOR_BLOCK (blockvector, i-1)) > BLOCK_START(BLOCKVECTOR_BLOCK (blockvector, i))) { /* FIXME-32x64: loses if CORE_ADDR doesn't fit in a long. Possible solutions include a version of complain which takes a callback, a sprintf_address_numeric to match print_address_numeric, or a way to set up a GDB_FILE * which causes sprintf rather than fprintf to be called. */ complain (&blockvector_complaint, (unsigned long) BLOCK_START(BLOCKVECTOR_BLOCK (blockvector, i))); } } } #endif return (blockvector); } /* Start recording information about source code that came from an included (or otherwise merged-in) source file with a different name. NAME is the name of the file (cannot be NULL), DIRNAME is the directory in which it resides (or NULL if not known). */ void start_subfile (name, dirname) char *name; char *dirname; { register struct subfile *subfile; /* See if this subfile is already known as a subfile of the current main source file. */ for (subfile = subfiles; subfile; subfile = subfile->next) { if (STREQ (subfile->name, name)) { current_subfile = subfile; return; } } /* This subfile is not known. Add an entry for it. Make an entry for this subfile in the list of all subfiles of the current main source file. */ subfile = (struct subfile *) xmalloc (sizeof (struct subfile)); subfile->next = subfiles; subfiles = subfile; current_subfile = subfile; /* Save its name and compilation directory name */ subfile->name = (name == NULL) ? NULL : savestring (name, strlen (name)); subfile->dirname = (dirname == NULL) ? NULL : savestring (dirname, strlen (dirname)); /* Initialize line-number recording for this subfile. */ subfile->line_vector = NULL; /* Default the source language to whatever can be deduced from the filename. If nothing can be deduced (such as for a C/C++ include file with a ".h" extension), then inherit whatever language the previous subfile had. This kludgery is necessary because there is no standard way in some object formats to record the source language. Also, when symtabs are allocated we try to deduce a language then as well, but it is too late for us to use that information while reading symbols, since symtabs aren't allocated until after all the symbols have been processed for a given source file. */ subfile->language = deduce_language_from_filename (subfile->name); if (subfile->language == language_unknown && subfile->next != NULL) { subfile->language = subfile->next->language; } /* cfront output is a C program, so in most ways it looks like a C program. But to demangle we need to set the language to C++. We can distinguish cfront code by the fact that it has #line directives which specify a file name ending in .C. So if the filename of this subfile ends in .C, then change the language of any pending subfiles from C to C++. We also accept any other C++ suffixes accepted by deduce_language_from_filename (in particular, some people use .cxx with cfront). */ if (subfile->name) { struct subfile *s; if (deduce_language_from_filename (subfile->name) == language_cplus) for (s = subfiles; s != NULL; s = s->next) if (s->language == language_c) s->language = language_cplus; } /* And patch up this file if necessary. */ if (subfile->language == language_c && subfile->next != NULL && subfile->next->language == language_cplus) { subfile->language = language_cplus; } } /* For stabs readers, the first N_SO symbol is assumed to be the source file name, and the subfile struct is initialized using that assumption. If another N_SO symbol is later seen, immediately following the first one, then the first one is assumed to be the directory name and the second one is really the source file name. So we have to patch up the subfile struct by moving the old name value to dirname and remembering the new name. Some sanity checking is performed to ensure that the state of the subfile struct is reasonable and that the old name we are assuming to be a directory name actually is (by checking for a trailing '/'). */ void patch_subfile_names (subfile, name) struct subfile *subfile; char *name; { if (subfile != NULL && subfile->dirname == NULL && subfile->name != NULL && subfile->name[strlen(subfile->name)-1] == '/') { subfile->dirname = subfile->name; subfile->name = savestring (name, strlen (name)); /* Default the source language to whatever can be deduced from the filename. If nothing can be deduced (such as for a C/C++ include file with a ".h" extension), then inherit whatever language the previous subfile had. This kludgery is necessary because there is no standard way in some object formats to record the source language. Also, when symtabs are allocated we try to deduce a language then as well, but it is too late for us to use that information while reading symbols, since symtabs aren't allocated until after all the symbols have been processed for a given source file. */ subfile->language = deduce_language_from_filename (subfile->name); if (subfile->language == language_unknown && subfile->next != NULL) { subfile->language = subfile->next->language; } } } /* Handle the N_BINCL and N_EINCL symbol types that act like N_SOL for switching source files (different subfiles, as we call them) within one object file, but using a stack rather than in an arbitrary order. */ void push_subfile () { register struct subfile_stack *tem = (struct subfile_stack *) xmalloc (sizeof (struct subfile_stack)); tem->next = subfile_stack; subfile_stack = tem; if (current_subfile == NULL || current_subfile->name == NULL) { abort (); } tem->name = current_subfile->name; } char * pop_subfile () { register char *name; register struct subfile_stack *link = subfile_stack; if (link == NULL) { abort (); } name = link->name; subfile_stack = link->next; free ((PTR)link); return (name); } /* Add a linetable entry for line number LINE and address PC to the line vector for SUBFILE. */ void record_line (subfile, line, pc) register struct subfile *subfile; int line; CORE_ADDR pc; { struct linetable_entry *e; /* Ignore the dummy line number in libg.o */ if (line == 0xffff) { return; } /* Make sure line vector exists and is big enough. */ if (!subfile->line_vector) { subfile->line_vector_length = INITIAL_LINE_VECTOR_LENGTH; subfile->line_vector = (struct linetable *) xmalloc (sizeof (struct linetable) + subfile->line_vector_length * sizeof (struct linetable_entry)); subfile->line_vector->nitems = 0; } if (subfile->line_vector->nitems + 1 >= subfile->line_vector_length) { subfile->line_vector_length *= 2; subfile->line_vector = (struct linetable *) xrealloc ((char *) subfile->line_vector, (sizeof (struct linetable) + subfile->line_vector_length * sizeof (struct linetable_entry))); } e = subfile->line_vector->item + subfile->line_vector->nitems++; e->line = line; e->pc = pc; } /* Needed in order to sort line tables from IBM xcoff files. Sigh! */ static int compare_line_numbers (ln1p, ln2p) const PTR ln1p; const PTR ln2p; { struct linetable_entry *ln1 = (struct linetable_entry *) ln1p; struct linetable_entry *ln2 = (struct linetable_entry *) ln2p; /* Note: this code does not assume that CORE_ADDRs can fit in ints. Please keep it that way. */ if (ln1->pc < ln2->pc) return -1; if (ln1->pc > ln2->pc) return 1; /* If pc equal, sort by line. I'm not sure whether this is optimum behavior (see comment at struct linetable in symtab.h). */ return ln1->line - ln2->line; } /* Start a new symtab for a new source file. Called, for example, when a stabs symbol of type N_SO is seen, or when a DWARF TAG_compile_unit DIE is seen. It indicates the start of data for one original source file. */ void start_symtab (name, dirname, start_addr) char *name; char *dirname; CORE_ADDR start_addr; { last_source_file = name; last_source_start_addr = start_addr; file_symbols = NULL; global_symbols = NULL; within_function = 0; /* Context stack is initially empty. Allocate first one with room for 10 levels; reuse it forever afterward. */ if (context_stack == NULL) { context_stack_size = INITIAL_CONTEXT_STACK_SIZE; context_stack = (struct context_stack *) xmalloc (context_stack_size * sizeof (struct context_stack)); } context_stack_depth = 0; /* Initialize the list of sub source files with one entry for this file (the top-level source file). */ subfiles = NULL; current_subfile = NULL; start_subfile (name, dirname); } /* Finish the symbol definitions for one main source file, close off all the lexical contexts for that file (creating struct block's for them), then make the struct symtab for that file and put it in the list of all such. END_ADDR is the address of the end of the file's text. SECTION is the section number (in objfile->section_offsets) of the blockvector and linetable. Note that it is possible for end_symtab() to return NULL. In particular, for the DWARF case at least, it will return NULL when it finds a compilation unit that has exactly one DIE, a TAG_compile_unit DIE. This can happen when we link in an object file that was compiled from an empty source file. Returning NULL is probably not the correct thing to do, because then gdb will never know about this empty file (FIXME). */ struct symtab * end_symtab (end_addr, sort_pending, sort_linevec, objfile, section) CORE_ADDR end_addr; int sort_pending; int sort_linevec; struct objfile *objfile; int section; { register struct symtab *symtab = NULL; register struct blockvector *blockvector; register struct subfile *subfile; register struct context_stack *cstk; struct subfile *nextsub; /* Finish the lexical context of the last function in the file; pop the context stack. */ if (context_stack_depth > 0) { context_stack_depth--; cstk = &context_stack[context_stack_depth]; /* Make a block for the local symbols within. */ finish_block (cstk->name, &local_symbols, cstk->old_blocks, cstk->start_addr, end_addr, objfile); if (context_stack_depth > 0) { /* This is said to happen with SCO. The old coffread.c code simply emptied the context stack, so we do the same. FIXME: Find out why it is happening. This is not believed to happen in most cases (even for coffread.c); it used to be an abort(). */ static struct complaint msg = {"Context stack not empty in end_symtab", 0, 0}; complain (&msg); context_stack_depth = 0; } } /* It is unfortunate that in xcoff, pending blocks might not be ordered in this stage. Especially, blocks for static functions will show up at the end. We need to sort them, so tools like `find_pc_function' and `find_pc_block' can work reliably. */ if (sort_pending && pending_blocks) { /* FIXME! Remove this horrid bubble sort and use qsort!!! */ int swapped; do { struct pending_block *pb, *pbnext; pb = pending_blocks; pbnext = pb->next; swapped = 0; while (pbnext) { /* swap blocks if unordered! */ if (BLOCK_START(pb->block) < BLOCK_START(pbnext->block)) { struct block *tmp = pb->block; pb->block = pbnext->block; pbnext->block = tmp; swapped = 1; } pb = pbnext; pbnext = pbnext->next; } } while (swapped); } /* Cleanup any undefined types that have been left hanging around (this needs to be done before the finish_blocks so that file_symbols is still good). Both cleanup_undefined_types and finish_global_stabs are stabs specific, but harmless for other symbol readers, since on gdb startup or when finished reading stabs, the state is set so these are no-ops. FIXME: Is this handled right in case of QUIT? Can we make this cleaner? */ cleanup_undefined_types (); finish_global_stabs (objfile); if (pending_blocks == NULL && file_symbols == NULL && global_symbols == NULL) { /* Ignore symtabs that have no functions with real debugging info */ blockvector = NULL; } else { /* Define the STATIC_BLOCK & GLOBAL_BLOCK, and build the blockvector. */ finish_block (0, &file_symbols, 0, last_source_start_addr, end_addr, objfile); finish_block (0, &global_symbols, 0, last_source_start_addr, end_addr, objfile); blockvector = make_blockvector (objfile); } #ifdef PROCESS_LINENUMBER_HOOK PROCESS_LINENUMBER_HOOK (); /* Needed for xcoff. */ #endif /* Now create the symtab objects proper, one for each subfile. */ /* (The main file is the last one on the chain.) */ for (subfile = subfiles; subfile; subfile = nextsub) { int linetablesize = 0; /* If we have blocks of symbols, make a symtab. Otherwise, just ignore this file and any line number info in it. */ symtab = NULL; if (blockvector) { if (subfile->line_vector) { linetablesize = sizeof (struct linetable) + subfile->line_vector->nitems * sizeof (struct linetable_entry); #if 0 /* I think this is artifact from before it went on the obstack. I doubt we'll need the memory between now and when we free it later in this function. */ /* First, shrink the linetable to make more memory. */ subfile->line_vector = (struct linetable *) xrealloc ((char *) subfile->line_vector, linetablesize); #endif /* If sort_linevec is false, we might want just check to make sure they are sorted and complain() if not, as a way of tracking down compilers/symbol readers which don't get them sorted right. */ if (sort_linevec) qsort (subfile->line_vector->item, subfile->line_vector->nitems, sizeof (struct linetable_entry), compare_line_numbers); } /* Now, allocate a symbol table. */ symtab = allocate_symtab (subfile->name, objfile); /* Fill in its components. */ symtab->blockvector = blockvector; if (subfile->line_vector) { /* Reallocate the line table on the symbol obstack */ symtab->linetable = (struct linetable *) obstack_alloc (&objfile -> symbol_obstack, linetablesize); memcpy (symtab->linetable, subfile->line_vector, linetablesize); } else { symtab->linetable = NULL; } symtab->block_line_section = section; if (subfile->dirname) { /* Reallocate the dirname on the symbol obstack */ symtab->dirname = (char *) obstack_alloc (&objfile -> symbol_obstack, strlen (subfile -> dirname) + 1); strcpy (symtab->dirname, subfile->dirname); } else { symtab->dirname = NULL; } symtab->free_code = free_linetable; symtab->free_ptr = NULL; /* Use whatever language we have been using for this subfile, not the one that was deduced in allocate_symtab from the filename. We already did our own deducing when we created the subfile, and we may have altered our opinion of what language it is from things we found in the symbols. */ symtab->language = subfile->language; /* All symtabs for the main file and the subfiles share a blockvector, so we need to clear primary for everything but the main file. */ symtab->primary = 0; } if (subfile->name != NULL) { free ((PTR) subfile->name); } if (subfile->dirname != NULL) { free ((PTR) subfile->dirname); } if (subfile->line_vector != NULL) { free ((PTR) subfile->line_vector); } nextsub = subfile->next; free ((PTR)subfile); } /* Set this for the main source file. */ if (symtab) { symtab->primary = 1; } last_source_file = NULL; current_subfile = NULL; return (symtab); } /* Push a context block. Args are an identifying nesting level (checkable when you pop it), and the starting PC address of this context. */ struct context_stack * push_context (desc, valu) int desc; CORE_ADDR valu; { register struct context_stack *new; if (context_stack_depth == context_stack_size) { context_stack_size *= 2; context_stack = (struct context_stack *) xrealloc ((char *) context_stack, (context_stack_size * sizeof (struct context_stack))); } new = &context_stack[context_stack_depth++]; new->depth = desc; new->locals = local_symbols; new->old_blocks = pending_blocks; new->start_addr = valu; new->name = NULL; local_symbols = NULL; return (new); } /* Compute a small integer hash code for the given name. */ int hashname (name) char *name; { register char *p = name; register int total = p[0]; register int c; c = p[1]; total += c << 2; if (c) { c = p[2]; total += c << 4; if (c) { total += p[3] << 6; } } /* Ensure result is positive. */ if (total < 0) { total += (1000 << 6); } return (total % HASHSIZE); } /* Initialize anything that needs initializing when starting to read a fresh piece of a symbol file, e.g. reading in the stuff corresponding to a psymtab. */ void buildsym_init () { free_pendings = NULL; file_symbols = NULL; global_symbols = NULL; pending_blocks = NULL; } /* Initialize anything that needs initializing when a completely new symbol file is specified (not just adding some symbols from another file, e.g. a shared library). */ void buildsym_new_init () { buildsym_init (); } /* Initializer for this module */ void _initialize_buildsym () { } gdb-4.13/gdb/buildsym.h 666 34562 1752 15336 5436271127 13331 0ustar fnfcygnus/* Build symbol tables in GDB's internal format. Copyright (C) 1986-1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (BUILDSYM_H) #define BUILDSYM_H 1 /* This module provides definitions used for creating and adding to the symbol table. These routines are called from various symbol- file-reading routines. They originated in dbxread.c of gdb-4.2, and were split out to make xcoffread.c more maintainable by sharing code. Variables declared in this file can be defined by #define-ing the name EXTERN to null. It is used to declare variables that are normally extern, but which get defined in a single module using this technique. */ #ifndef EXTERN #define EXTERN extern #endif #define HASHSIZE 127 /* Size of things hashed via hashname() */ /* Name of source file whose symbol data we are now processing. This comes from a symbol of type N_SO. */ EXTERN char *last_source_file; /* Core address of start of text of current source file. This too comes from the N_SO symbol. */ EXTERN CORE_ADDR last_source_start_addr; /* The list of sub-source-files within the current individual compilation. Each file gets its own symtab with its own linetable and associated info, but they all share one blockvector. */ struct subfile { struct subfile *next; char *name; char *dirname; struct linetable *line_vector; int line_vector_length; enum language language; }; EXTERN struct subfile *subfiles; EXTERN struct subfile *current_subfile; /* Global variable which, when set, indicates that we are processing a .o file compiled with gcc */ EXTERN unsigned char processing_gcc_compilation; /* When set, we are processing a .o file compiled by sun acc. This is misnamed; it refers to all stabs-in-elf implementations which use N_UNDF the way Sun does, including Solaris gcc. Hopefully all stabs-in-elf implementations ever invented will choose to be compatible. */ EXTERN unsigned char processing_acc_compilation; /* Count symbols as they are processed, for error messages. */ EXTERN unsigned int symnum; /* Record the symbols defined for each context in a list. We don't create a struct block for the context until we know how long to make it. */ #define PENDINGSIZE 100 struct pending { struct pending *next; int nsyms; struct symbol *symbol[PENDINGSIZE]; }; /* List of free `struct pending' structures for reuse. */ EXTERN struct pending *free_pendings; /* Here are the three lists that symbols are put on. */ EXTERN struct pending *file_symbols; /* static at top level, and types */ EXTERN struct pending *global_symbols; /* global functions and variables */ EXTERN struct pending *local_symbols; /* everything local to lexic context */ /* Stack representing unclosed lexical contexts (that will become blocks, eventually). */ struct context_stack { /* Outer locals at the time we entered */ struct pending *locals; /* Pointer into blocklist as of entry */ struct pending_block *old_blocks; /* Name of function, if any, defining context*/ struct symbol *name; /* PC where this context starts */ CORE_ADDR start_addr; /* Temp slot for exception handling. */ CORE_ADDR end_addr; /* For error-checking matching push/pop */ int depth; }; EXTERN struct context_stack *context_stack; /* Index of first unused entry in context stack. */ EXTERN int context_stack_depth; /* Currently allocated size of context stack. */ EXTERN int context_stack_size; /* Macro "function" for popping contexts from the stack. Pushing is done by a real function, push_context. This returns a pointer to a struct context_stack. */ #define pop_context() (&context_stack[--context_stack_depth]); /* Nonzero if within a function (so symbols should be local, if nothing says specifically). */ EXTERN int within_function; /* List of blocks already made (lexical contexts already closed). This is used at the end to make the blockvector. */ struct pending_block { struct pending_block *next; struct block *block; }; EXTERN struct pending_block *pending_blocks; struct subfile_stack { struct subfile_stack *next; char *name; }; EXTERN struct subfile_stack *subfile_stack; #define next_symbol_text() (*next_symbol_text_func)() /* Function to invoke get the next symbol. Return the symbol name. */ EXTERN char *(*next_symbol_text_func) PARAMS ((void)); /* Vector of types defined so far, indexed by their type numbers. Used for both stabs and coff. (In newer sun systems, dbx uses a pair of numbers in parens, as in "(SUBFILENUM,NUMWITHINSUBFILE)". Then these numbers must be translated through the type_translations hash table to get the index into the type vector.) */ EXTERN struct type **type_vector; /* Number of elements allocated for type_vector currently. */ EXTERN int type_vector_length; /* Initial size of type vector. Is realloc'd larger if needed, and realloc'd down to the size actually used, when completed. */ #define INITIAL_TYPE_VECTOR_LENGTH 160 extern void add_symbol_to_list PARAMS ((struct symbol *, struct pending **)); extern struct symbol * find_symbol_in_list PARAMS ((struct pending *, char *, int)); extern void finish_block PARAMS ((struct symbol *, struct pending **, struct pending_block *, CORE_ADDR, CORE_ADDR, struct objfile *)); extern void really_free_pendings PARAMS ((int foo)); extern void start_subfile PARAMS ((char *, char *)); extern void patch_subfile_names PARAMS ((struct subfile *subfile, char *name)); extern void push_subfile PARAMS ((void)); extern char * pop_subfile PARAMS ((void)); extern struct symtab * end_symtab PARAMS ((CORE_ADDR, int, int, struct objfile *, int)); extern void scan_file_globals PARAMS ((struct objfile *)); extern void buildsym_new_init PARAMS ((void)); extern void buildsym_init PARAMS ((void)); extern struct context_stack * push_context PARAMS ((int, CORE_ADDR)); extern void record_line PARAMS ((struct subfile *, int, CORE_ADDR)); extern void start_symtab PARAMS ((char *, char *, CORE_ADDR)); extern int hashname PARAMS ((char *)); #undef EXTERN #endif /* defined (BUILDSYM_H) */ gdb-4.13/gdb/c-lang.c 666 34562 1752 33343 5606462317 12635 0ustar fnfcygnus/* C language support routines for GDB, the GNU debugger. Copyright 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "parser-defs.h" #include "language.h" #include "c-lang.h" /* Print the character C on STREAM as part of the contents of a literal string whose delimiter is QUOTER. Note that that format for printing characters and strings is language specific. */ static void emit_char (c, stream, quoter) register int c; GDB_FILE *stream; int quoter; { c &= 0xFF; /* Avoid sign bit follies */ if (PRINT_LITERAL_FORM (c)) { if (c == '\\' || c == quoter) { fputs_filtered ("\\", stream); } fprintf_filtered (stream, "%c", c); } else { switch (c) { case '\n': fputs_filtered ("\\n", stream); break; case '\b': fputs_filtered ("\\b", stream); break; case '\t': fputs_filtered ("\\t", stream); break; case '\f': fputs_filtered ("\\f", stream); break; case '\r': fputs_filtered ("\\r", stream); break; case '\033': fputs_filtered ("\\e", stream); break; case '\007': fputs_filtered ("\\a", stream); break; default: fprintf_filtered (stream, "\\%.3o", (unsigned int) c); break; } } } static void c_printchar (c, stream) int c; GDB_FILE *stream; { fputs_filtered ("'", stream); emit_char (c, stream, '\''); fputs_filtered ("'", stream); } /* Print the character string STRING, printing at most LENGTH characters. Printing stops early if the number hits print_max; repeat counts are printed as appropriate. Print ellipses at the end if we had to stop before printing LENGTH characters, or if FORCE_ELLIPSES. */ static void c_printstr (stream, string, length, force_ellipses) GDB_FILE *stream; char *string; unsigned int length; int force_ellipses; { register unsigned int i; unsigned int things_printed = 0; int in_quotes = 0; int need_comma = 0; extern int inspect_it; extern int repeat_count_threshold; extern int print_max; /* If the string was not truncated due to `set print elements', and the last byte of it is a null, we don't print that, in traditional C style. */ if ((!force_ellipses) && length > 0 && string[length-1] == '\0') length--; if (length == 0) { fputs_filtered ("\"\"", stream); return; } for (i = 0; i < length && things_printed < print_max; ++i) { /* Position of the character we are examining to see whether it is repeated. */ unsigned int rep1; /* Number of repetitions we have detected so far. */ unsigned int reps; QUIT; if (need_comma) { fputs_filtered (", ", stream); need_comma = 0; } rep1 = i + 1; reps = 1; while (rep1 < length && string[rep1] == string[i]) { ++rep1; ++reps; } if (reps > repeat_count_threshold) { if (in_quotes) { if (inspect_it) fputs_filtered ("\\\", ", stream); else fputs_filtered ("\", ", stream); in_quotes = 0; } c_printchar (string[i], stream); fprintf_filtered (stream, " ", reps); i = rep1 - 1; things_printed += repeat_count_threshold; need_comma = 1; } else { if (!in_quotes) { if (inspect_it) fputs_filtered ("\\\"", stream); else fputs_filtered ("\"", stream); in_quotes = 1; } emit_char (string[i], stream, '"'); ++things_printed; } } /* Terminate the quotes if necessary. */ if (in_quotes) { if (inspect_it) fputs_filtered ("\\\"", stream); else fputs_filtered ("\"", stream); } if (force_ellipses || i < length) fputs_filtered ("...", stream); } /* Create a fundamental C type using default reasonable for the current target machine. Some object/debugging file formats (DWARF version 1, COFF, etc) do not define fundamental types such as "int" or "double". Others (stabs or DWARF version 2, etc) do define fundamental types. For the formats which don't provide fundamental types, gdb can create such types using this function. FIXME: Some compilers distinguish explicitly signed integral types (signed short, signed int, signed long) from "regular" integral types (short, int, long) in the debugging information. There is some dis- agreement as to how useful this feature is. In particular, gcc does not support this. Also, only some debugging formats allow the distinction to be passed on to a debugger. For now, we always just use "short", "int", or "long" as the type name, for both the implicit and explicitly signed types. This also makes life easier for the gdb test suite since we don't have to account for the differences in output depending upon what the compiler and debugging format support. We will probably have to re-examine the issue when gdb starts taking it's fundamental type information directly from the debugging information supplied by the compiler. fnf@cygnus.com */ static struct type * c_create_fundamental_type (objfile, typeid) struct objfile *objfile; int typeid; { register struct type *type = NULL; switch (typeid) { default: /* FIXME: For now, if we are asked to produce a type not in this language, create the equivalent of a C integer type with the name "". When all the dust settles from the type reconstruction work, this should probably become an error. */ type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "", objfile); warning ("internal error: no C/C++ fundamental type %d", typeid); break; case FT_VOID: type = init_type (TYPE_CODE_VOID, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "void", objfile); break; case FT_CHAR: type = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "char", objfile); break; case FT_SIGNED_CHAR: type = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "signed char", objfile); break; case FT_UNSIGNED_CHAR: type = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned char", objfile); break; case FT_SHORT: type = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, 0, "short", objfile); break; case FT_SIGNED_SHORT: type = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, 0, "short", objfile); /* FIXME-fnf */ break; case FT_UNSIGNED_SHORT: type = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned short", objfile); break; case FT_INTEGER: type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "int", objfile); break; case FT_SIGNED_INTEGER: type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "int", objfile); /* FIXME -fnf */ break; case FT_UNSIGNED_INTEGER: type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned int", objfile); break; case FT_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, 0, "long", objfile); break; case FT_SIGNED_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, 0, "long", objfile); /* FIXME -fnf */ break; case FT_UNSIGNED_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned long", objfile); break; case FT_LONG_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_LONG_BIT / TARGET_CHAR_BIT, 0, "long long", objfile); break; case FT_SIGNED_LONG_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_LONG_BIT / TARGET_CHAR_BIT, 0, "signed long long", objfile); break; case FT_UNSIGNED_LONG_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_LONG_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned long long", objfile); break; case FT_FLOAT: type = init_type (TYPE_CODE_FLT, TARGET_FLOAT_BIT / TARGET_CHAR_BIT, 0, "float", objfile); break; case FT_DBL_PREC_FLOAT: type = init_type (TYPE_CODE_FLT, TARGET_DOUBLE_BIT / TARGET_CHAR_BIT, 0, "double", objfile); break; case FT_EXT_PREC_FLOAT: type = init_type (TYPE_CODE_FLT, TARGET_LONG_DOUBLE_BIT / TARGET_CHAR_BIT, 0, "long double", objfile); break; } return (type); } /* Table mapping opcodes into strings for printing operators and precedences of the operators. */ static const struct op_print c_op_print_tab[] = { {",", BINOP_COMMA, PREC_COMMA, 0}, {"=", BINOP_ASSIGN, PREC_ASSIGN, 1}, {"||", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0}, {"&&", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0}, {"|", BINOP_BITWISE_IOR, PREC_BITWISE_IOR, 0}, {"^", BINOP_BITWISE_XOR, PREC_BITWISE_XOR, 0}, {"&", BINOP_BITWISE_AND, PREC_BITWISE_AND, 0}, {"==", BINOP_EQUAL, PREC_EQUAL, 0}, {"!=", BINOP_NOTEQUAL, PREC_EQUAL, 0}, {"<=", BINOP_LEQ, PREC_ORDER, 0}, {">=", BINOP_GEQ, PREC_ORDER, 0}, {">", BINOP_GTR, PREC_ORDER, 0}, {"<", BINOP_LESS, PREC_ORDER, 0}, {">>", BINOP_RSH, PREC_SHIFT, 0}, {"<<", BINOP_LSH, PREC_SHIFT, 0}, {"+", BINOP_ADD, PREC_ADD, 0}, {"-", BINOP_SUB, PREC_ADD, 0}, {"*", BINOP_MUL, PREC_MUL, 0}, {"/", BINOP_DIV, PREC_MUL, 0}, {"%", BINOP_REM, PREC_MUL, 0}, {"@", BINOP_REPEAT, PREC_REPEAT, 0}, {"-", UNOP_NEG, PREC_PREFIX, 0}, {"!", UNOP_LOGICAL_NOT, PREC_PREFIX, 0}, {"~", UNOP_COMPLEMENT, PREC_PREFIX, 0}, {"*", UNOP_IND, PREC_PREFIX, 0}, {"&", UNOP_ADDR, PREC_PREFIX, 0}, {"sizeof ", UNOP_SIZEOF, PREC_PREFIX, 0}, {"++", UNOP_PREINCREMENT, PREC_PREFIX, 0}, {"--", UNOP_PREDECREMENT, PREC_PREFIX, 0}, /* C++ */ {"::", BINOP_SCOPE, PREC_PREFIX, 0}, {NULL, 0, 0, 0} }; struct type ** const (c_builtin_types[]) = { &builtin_type_int, &builtin_type_long, &builtin_type_short, &builtin_type_char, &builtin_type_float, &builtin_type_double, &builtin_type_void, &builtin_type_long_long, &builtin_type_signed_char, &builtin_type_unsigned_char, &builtin_type_unsigned_short, &builtin_type_unsigned_int, &builtin_type_unsigned_long, &builtin_type_unsigned_long_long, &builtin_type_long_double, &builtin_type_complex, &builtin_type_double_complex, 0 }; const struct language_defn c_language_defn = { "c", /* Language name */ language_c, c_builtin_types, range_check_off, type_check_off, c_parse, c_error, c_printchar, /* Print a character constant */ c_printstr, /* Function to print string constant */ c_create_fundamental_type, /* Create fundamental type in this language */ c_print_type, /* Print a type using appropriate syntax */ c_val_print, /* Print a value using appropriate syntax */ c_value_print, /* Print a top-level value */ &builtin_type_double, /* longest floating point type */ /*FIXME*/ {"", "", "", ""}, /* Binary format info */ {"0%lo", "0", "o", ""}, /* Octal format info */ {"%ld", "", "d", ""}, /* Decimal format info */ {"0x%lx", "0x", "x", ""}, /* Hex format info */ c_op_print_tab, /* expression operators for printing */ LANG_MAGIC }; const struct language_defn cplus_language_defn = { "c++", /* Language name */ language_cplus, c_builtin_types, range_check_off, type_check_off, c_parse, c_error, c_printchar, /* Print a character constant */ c_printstr, /* Function to print string constant */ c_create_fundamental_type, /* Create fundamental type in this language */ c_print_type, /* Print a type using appropriate syntax */ c_val_print, /* Print a value using appropriate syntax */ c_value_print, /* Print a top-level value */ &builtin_type_double, /* longest floating point type */ /*FIXME*/ {"", "", "", ""}, /* Binary format info */ {"0%lo", "0", "o", ""}, /* Octal format info */ {"%ld", "", "d", ""}, /* Decimal format info */ {"0x%lx", "0x", "x", ""}, /* Hex format info */ c_op_print_tab, /* expression operators for printing */ LANG_MAGIC }; const struct language_defn asm_language_defn = { "asm", /* Language name */ language_asm, c_builtin_types, range_check_off, type_check_off, c_parse, c_error, c_printchar, /* Print a character constant */ c_printstr, /* Function to print string constant */ c_create_fundamental_type, /* Create fundamental type in this language */ c_print_type, /* Print a type using appropriate syntax */ c_val_print, /* Print a value using appropriate syntax */ c_value_print, /* Print a top-level value */ &builtin_type_double, /* longest floating point type */ /*FIXME*/ {"", "", "", ""}, /* Binary format info */ {"0%lo", "0", "o", ""}, /* Octal format info */ {"%ld", "", "d", ""}, /* Decimal format info */ {"0x%lx", "0x", "x", ""}, /* Hex format info */ c_op_print_tab, /* expression operators for printing */ LANG_MAGIC }; void _initialize_c_language () { add_language (&c_language_defn); add_language (&cplus_language_defn); add_language (&asm_language_defn); } gdb-4.13/gdb/c-lang.h 666 34562 1752 2467 5574226664 12634 0ustar fnfcygnus/* C language support definitions for GDB, the GNU debugger. Copyright 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef __STDC__ /* Forward decls for prototypes */ struct value; #endif extern int c_parse PARAMS ((void)); /* Defined in c-exp.y */ extern void c_error PARAMS ((char *)); /* Defined in c-exp.y */ extern void /* Defined in c-typeprint.c */ c_print_type PARAMS ((struct type *, char *, GDB_FILE *, int, int)); extern int c_val_print PARAMS ((struct type *, char *, CORE_ADDR, GDB_FILE *, int, int, int, enum val_prettyprint)); extern int c_value_print PARAMS ((struct value *, GDB_FILE *, int, enum val_prettyprint)); gdb-4.13/gdb/c-typeprint.c 666 34562 1752 52015 5604431425 13741 0ustar fnfcygnus/* Support for printing C and C++ types for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "obstack.h" #include "bfd.h" /* Binary File Description */ #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "value.h" #include "gdbcore.h" #include "target.h" #include "command.h" #include "gdbcmd.h" #include "language.h" #include "demangle.h" #include "c-lang.h" #include "typeprint.h" #include #include static void c_type_print_args PARAMS ((struct type *, GDB_FILE *)); static void c_type_print_varspec_suffix PARAMS ((struct type *, GDB_FILE *, int, int, int)); static void cp_type_print_derivation_info PARAMS ((GDB_FILE *, struct type *)); void c_type_print_varspec_prefix PARAMS ((struct type *, GDB_FILE *, int, int)); void c_type_print_base PARAMS ((struct type *, GDB_FILE *, int, int)); /* Print a description of a type in the format of a typedef for the current language. NEW is the new name for a type TYPE. */ void c_typedef_print (type, new, stream) struct type *type; struct symbol *new; GDB_FILE *stream; { switch (current_language->la_language) { #ifdef _LANG_c case language_c: case language_cplus: fprintf_filtered(stream, "typedef "); type_print(type,"",stream,0); if(TYPE_NAME ((SYMBOL_TYPE (new))) == 0 || !STREQ (TYPE_NAME ((SYMBOL_TYPE (new))), SYMBOL_NAME (new))) fprintf_filtered(stream, " %s", SYMBOL_SOURCE_NAME(new)); break; #endif #ifdef _LANG_m2 case language_m2: fprintf_filtered(stream, "TYPE "); if(!TYPE_NAME(SYMBOL_TYPE(new)) || !STREQ (TYPE_NAME(SYMBOL_TYPE(new)), SYMBOL_NAME(new))) fprintf_filtered(stream, "%s = ", SYMBOL_SOURCE_NAME(new)); else fprintf_filtered(stream, " = "); type_print(type,"",stream,0); break; #endif #ifdef _LANG_chill case language_chill: error ("Missing Chill support in function c_typedef_print."); /*FIXME*/ #endif default: error("Language not supported."); } fprintf_filtered(stream, ";\n"); } /* LEVEL is the depth to indent lines by. */ void c_print_type (type, varstring, stream, show, level) struct type *type; char *varstring; GDB_FILE *stream; int show; int level; { register enum type_code code; int demangled_args; c_type_print_base (type, stream, show, level); code = TYPE_CODE (type); if ((varstring != NULL && *varstring != '\0') || /* Need a space if going to print stars or brackets; but not if we will print just a type name. */ ((show > 0 || TYPE_NAME (type) == 0) && (code == TYPE_CODE_PTR || code == TYPE_CODE_FUNC || code == TYPE_CODE_METHOD || code == TYPE_CODE_ARRAY || code == TYPE_CODE_MEMBER || code == TYPE_CODE_REF))) fputs_filtered (" ", stream); c_type_print_varspec_prefix (type, stream, show, 0); fputs_filtered (varstring, stream); /* For demangled function names, we have the arglist as part of the name, so don't print an additional pair of ()'s */ demangled_args = varstring[strlen(varstring) - 1] == ')'; c_type_print_varspec_suffix (type, stream, show, 0, demangled_args); } /* Print the C++ method arguments ARGS to the file STREAM. */ void cp_type_print_method_args (args, prefix, varstring, staticp, stream) struct type **args; char *prefix; char *varstring; int staticp; GDB_FILE *stream; { int i; fprintf_symbol_filtered (stream, prefix, language_cplus, DMGL_ANSI); fprintf_symbol_filtered (stream, varstring, language_cplus, DMGL_ANSI); fputs_filtered (" (", stream); if (args && args[!staticp] && args[!staticp]->code != TYPE_CODE_VOID) { i = !staticp; /* skip the class variable */ while (1) { type_print (args[i++], "", stream, 0); if (!args[i]) { fprintf_filtered (stream, " ..."); break; } else if (args[i]->code != TYPE_CODE_VOID) { fprintf_filtered (stream, ", "); } else break; } } fprintf_filtered (stream, ")"); } /* If TYPE is a derived type, then print out derivation information. Print only the actual base classes of this type, not the base classes of the base classes. I.E. for the derivation hierarchy: class A { int a; }; class B : public A {int b; }; class C : public B {int c; }; Print the type of class C as: class C : public B { int c; } Not as the following (like gdb used to), which is not legal C++ syntax for derived types and may be confused with the multiple inheritance form: class C : public B : public A { int c; } In general, gdb should try to print the types as closely as possible to the form that they appear in the source code. */ static void cp_type_print_derivation_info (stream, type) GDB_FILE *stream; struct type *type; { char *name; int i; for (i = 0; i < TYPE_N_BASECLASSES (type); i++) { fputs_filtered (i == 0 ? ": " : ", ", stream); fprintf_filtered (stream, "%s%s ", BASETYPE_VIA_PUBLIC (type, i) ? "public" : "private", BASETYPE_VIA_VIRTUAL(type, i) ? " virtual" : ""); name = type_name_no_tag (TYPE_BASECLASS (type, i)); fprintf_filtered (stream, "%s", name ? name : "(null)"); } if (i > 0) { fputs_filtered (" ", stream); } } /* Print any asterisks or open-parentheses needed before the variable name (to describe its type). On outermost call, pass 0 for PASSED_A_PTR. On outermost call, SHOW > 0 means should ignore any typename for TYPE and show its details. SHOW is always zero on recursive calls. */ void c_type_print_varspec_prefix (type, stream, show, passed_a_ptr) struct type *type; GDB_FILE *stream; int show; int passed_a_ptr; { char *name; if (type == 0) return; if (TYPE_NAME (type) && show <= 0) return; QUIT; switch (TYPE_CODE (type)) { case TYPE_CODE_PTR: c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1); fprintf_filtered (stream, "*"); break; case TYPE_CODE_MEMBER: if (passed_a_ptr) fprintf_filtered (stream, "("); c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0); fprintf_filtered (stream, " "); name = type_name_no_tag (TYPE_DOMAIN_TYPE (type)); if (name) fputs_filtered (name, stream); else c_type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0, passed_a_ptr); fprintf_filtered (stream, "::"); break; case TYPE_CODE_METHOD: if (passed_a_ptr) fprintf_unfiltered (stream, "("); c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0); if (passed_a_ptr) { fprintf_filtered (stream, " "); c_type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0, passed_a_ptr); fprintf_filtered (stream, "::"); } break; case TYPE_CODE_REF: c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1); fprintf_filtered (stream, "&"); break; case TYPE_CODE_FUNC: c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0); if (passed_a_ptr) fprintf_filtered (stream, "("); break; case TYPE_CODE_ARRAY: c_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0); if (passed_a_ptr) fprintf_filtered (stream, "("); break; case TYPE_CODE_UNDEF: case TYPE_CODE_STRUCT: case TYPE_CODE_UNION: case TYPE_CODE_ENUM: case TYPE_CODE_INT: case TYPE_CODE_FLT: case TYPE_CODE_VOID: case TYPE_CODE_ERROR: case TYPE_CODE_CHAR: case TYPE_CODE_BOOL: case TYPE_CODE_SET: case TYPE_CODE_RANGE: case TYPE_CODE_STRING: case TYPE_CODE_BITSTRING: /* These types need no prefix. They are listed here so that gcc -Wall will reveal any types that haven't been handled. */ break; } } static void c_type_print_args (type, stream) struct type *type; GDB_FILE *stream; { int i; struct type **args; fprintf_filtered (stream, "("); args = TYPE_ARG_TYPES (type); if (args != NULL) { if (args[1] == NULL) { fprintf_filtered (stream, "..."); } else { for (i = 1; args[i] != NULL && args[i]->code != TYPE_CODE_VOID; i++) { c_print_type (args[i], "", stream, -1, 0); if (args[i+1] == NULL) { fprintf_filtered (stream, "..."); } else if (args[i+1]->code != TYPE_CODE_VOID) { fprintf_filtered (stream, ","); wrap_here (" "); } } } } fprintf_filtered (stream, ")"); } /* Print any array sizes, function arguments or close parentheses needed after the variable name (to describe its type). Args work like c_type_print_varspec_prefix. */ static void c_type_print_varspec_suffix (type, stream, show, passed_a_ptr, demangled_args) struct type *type; GDB_FILE *stream; int show; int passed_a_ptr; int demangled_args; { if (type == 0) return; if (TYPE_NAME (type) && show <= 0) return; QUIT; switch (TYPE_CODE (type)) { case TYPE_CODE_ARRAY: if (passed_a_ptr) fprintf_filtered (stream, ")"); fprintf_filtered (stream, "["); if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0) fprintf_filtered (stream, "%d", (TYPE_LENGTH (type) / TYPE_LENGTH (TYPE_TARGET_TYPE (type)))); fprintf_filtered (stream, "]"); c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); break; case TYPE_CODE_MEMBER: if (passed_a_ptr) fprintf_filtered (stream, ")"); c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); break; case TYPE_CODE_METHOD: if (passed_a_ptr) fprintf_filtered (stream, ")"); c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); if (passed_a_ptr) { c_type_print_args (type, stream); } break; case TYPE_CODE_PTR: case TYPE_CODE_REF: c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 1, 0); break; case TYPE_CODE_FUNC: if (passed_a_ptr) fprintf_filtered (stream, ")"); if (!demangled_args) fprintf_filtered (stream, "()"); c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, passed_a_ptr, 0); break; case TYPE_CODE_UNDEF: case TYPE_CODE_STRUCT: case TYPE_CODE_UNION: case TYPE_CODE_ENUM: case TYPE_CODE_INT: case TYPE_CODE_FLT: case TYPE_CODE_VOID: case TYPE_CODE_ERROR: case TYPE_CODE_CHAR: case TYPE_CODE_BOOL: case TYPE_CODE_SET: case TYPE_CODE_RANGE: case TYPE_CODE_STRING: case TYPE_CODE_BITSTRING: /* These types do not need a suffix. They are listed so that gcc -Wall will report types that may not have been considered. */ break; } } /* Print the name of the type (or the ultimate pointer target, function value or array element), or the description of a structure or union. SHOW positive means print details about the type (e.g. enum values), and print structure elements passing SHOW - 1 for show. SHOW negative means just print the type name or struct tag if there is one. If there is no name, print something sensible but concise like "struct {...}". SHOW zero means just print the type name or struct tag if there is one. If there is no name, print something sensible but not as concise like "struct {int x; int y;}". LEVEL is the number of spaces to indent by. We increase it for some recursive calls. */ void c_type_print_base (type, stream, show, level) struct type *type; GDB_FILE *stream; int show; int level; { register int i; register int len; register int lastval; char *mangled_name; char *demangled_name; enum {s_none, s_public, s_private, s_protected} section_type; QUIT; wrap_here (" "); if (type == NULL) { fputs_filtered ("", stream); return; } /* When SHOW is zero or less, and there is a valid type name, then always just print the type name directly from the type. */ /* If we have "typedef struct foo {. . .} bar;" do we want to print it as "struct foo" or as "bar"? Pick the latter, because C++ folk tend to expect things like "class5 *foo" rather than "struct class5 *foo". */ if (show <= 0 && TYPE_NAME (type) != NULL) { fputs_filtered (TYPE_NAME (type), stream); return; } check_stub_type (type); switch (TYPE_CODE (type)) { case TYPE_CODE_ARRAY: case TYPE_CODE_PTR: case TYPE_CODE_MEMBER: case TYPE_CODE_REF: case TYPE_CODE_FUNC: case TYPE_CODE_METHOD: c_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); break; case TYPE_CODE_STRUCT: if (HAVE_CPLUS_STRUCT (type)) { fprintf_filtered (stream, "class "); } else { fprintf_filtered (stream, "struct "); } goto struct_union; case TYPE_CODE_UNION: fprintf_filtered (stream, "union "); struct_union: if (TYPE_TAG_NAME (type) != NULL) { fputs_filtered (TYPE_TAG_NAME (type), stream); if (show > 0) fputs_filtered (" ", stream); } wrap_here (" "); if (show < 0) { /* If we just printed a tag name, no need to print anything else. */ if (TYPE_TAG_NAME (type) == NULL) fprintf_filtered (stream, "{...}"); } else if (show > 0 || TYPE_TAG_NAME (type) == NULL) { cp_type_print_derivation_info (stream, type); fprintf_filtered (stream, "{\n"); if ((TYPE_NFIELDS (type) == 0) && (TYPE_NFN_FIELDS (type) == 0)) { if (TYPE_FLAGS (type) & TYPE_FLAG_STUB) fprintfi_filtered (level + 4, stream, "\n"); else fprintfi_filtered (level + 4, stream, "\n"); } /* Start off with no specific section type, so we can print one for the first field we find, and use that section type thereafter until we find another type. */ section_type = s_none; /* If there is a base class for this type, do not print the field that it occupies. */ len = TYPE_NFIELDS (type); for (i = TYPE_N_BASECLASSES (type); i < len; i++) { QUIT; /* Don't print out virtual function table. */ if ((TYPE_FIELD_NAME (type, i))[5] == CPLUS_MARKER && !strncmp (TYPE_FIELD_NAME (type, i), "_vptr", 5)) continue; /* If this is a C++ class we can print the various C++ section labels. */ if (HAVE_CPLUS_STRUCT (type)) { if (TYPE_FIELD_PROTECTED (type, i)) { if (section_type != s_protected) { section_type = s_protected; fprintfi_filtered (level + 2, stream, "protected:\n"); } } else if (TYPE_FIELD_PRIVATE (type, i)) { if (section_type != s_private) { section_type = s_private; fprintfi_filtered (level + 2, stream, "private:\n"); } } else { if (section_type != s_public) { section_type = s_public; fprintfi_filtered (level + 2, stream, "public:\n"); } } } print_spaces_filtered (level + 4, stream); if (TYPE_FIELD_STATIC (type, i)) { fprintf_filtered (stream, "static "); } c_print_type (TYPE_FIELD_TYPE (type, i), TYPE_FIELD_NAME (type, i), stream, show - 1, level + 4); if (!TYPE_FIELD_STATIC (type, i) && TYPE_FIELD_PACKED (type, i)) { /* It is a bitfield. This code does not attempt to look at the bitpos and reconstruct filler, unnamed fields. This would lead to misleading results if the compiler does not put out fields for such things (I don't know what it does). */ fprintf_filtered (stream, " : %d", TYPE_FIELD_BITSIZE (type, i)); } fprintf_filtered (stream, ";\n"); } /* If there are both fields and methods, put a space between. */ len = TYPE_NFN_FIELDS (type); if (len && section_type != s_none) fprintf_filtered (stream, "\n"); /* C++: print out the methods */ for (i = 0; i < len; i++) { struct fn_field *f = TYPE_FN_FIELDLIST1 (type, i); int j, len2 = TYPE_FN_FIELDLIST_LENGTH (type, i); char *method_name = TYPE_FN_FIELDLIST_NAME (type, i); char *name = type_name_no_tag (type); int is_constructor = name && STREQ(method_name, name); for (j = 0; j < len2; j++) { QUIT; if (TYPE_FN_FIELD_PROTECTED (f, j)) { if (section_type != s_protected) { section_type = s_protected; fprintfi_filtered (level + 2, stream, "protected:\n"); } } else if (TYPE_FN_FIELD_PRIVATE (f, j)) { if (section_type != s_private) { section_type = s_private; fprintfi_filtered (level + 2, stream, "private:\n"); } } else { if (section_type != s_public) { section_type = s_public; fprintfi_filtered (level + 2, stream, "public:\n"); } } print_spaces_filtered (level + 4, stream); if (TYPE_FN_FIELD_VIRTUAL_P (f, j)) fprintf_filtered (stream, "virtual "); else if (TYPE_FN_FIELD_STATIC_P (f, j)) fprintf_filtered (stream, "static "); if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)) == 0) { /* Keep GDB from crashing here. */ fprintf_unfiltered (stream, " %s;\n", TYPE_FN_FIELD_PHYSNAME (f, j)); break; } else if (!is_constructor) { type_print (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)), "", stream, 0); fputs_filtered (" ", stream); } if (TYPE_FN_FIELD_STUB (f, j)) { /* Build something we can demangle. */ mangled_name = gdb_mangle_name (type, i, j); demangled_name = cplus_demangle (mangled_name, DMGL_ANSI | DMGL_PARAMS); if (demangled_name == NULL) fprintf_filtered (stream, "", mangled_name); else { char *demangled_no_class = strchr (demangled_name, ':'); if (demangled_no_class == NULL) demangled_no_class = demangled_name; else { if (*++demangled_no_class == ':') ++demangled_no_class; } fputs_filtered (demangled_no_class, stream); free (demangled_name); } free (mangled_name); } else if (TYPE_FN_FIELD_PHYSNAME (f, j)[0] == '_' && TYPE_FN_FIELD_PHYSNAME (f, j)[1] == CPLUS_MARKER) cp_type_print_method_args (TYPE_FN_FIELD_ARGS (f, j) + 1, "~", method_name, 0, stream); else cp_type_print_method_args (TYPE_FN_FIELD_ARGS (f, j), "", method_name, TYPE_FN_FIELD_STATIC_P (f, j), stream); fprintf_filtered (stream, ";\n"); } } fprintfi_filtered (level, stream, "}"); } break; case TYPE_CODE_ENUM: fprintf_filtered (stream, "enum "); if (TYPE_TAG_NAME (type) != NULL) { fputs_filtered (TYPE_TAG_NAME (type), stream); if (show > 0) fputs_filtered (" ", stream); } wrap_here (" "); if (show < 0) { /* If we just printed a tag name, no need to print anything else. */ if (TYPE_TAG_NAME (type) == NULL) fprintf_filtered (stream, "{...}"); } else if (show > 0 || TYPE_TAG_NAME (type) == NULL) { fprintf_filtered (stream, "{"); len = TYPE_NFIELDS (type); lastval = 0; for (i = 0; i < len; i++) { QUIT; if (i) fprintf_filtered (stream, ", "); wrap_here (" "); fputs_filtered (TYPE_FIELD_NAME (type, i), stream); if (lastval != TYPE_FIELD_BITPOS (type, i)) { fprintf_filtered (stream, " = %d", TYPE_FIELD_BITPOS (type, i)); lastval = TYPE_FIELD_BITPOS (type, i); } lastval++; } fprintf_filtered (stream, "}"); } break; case TYPE_CODE_VOID: fprintf_filtered (stream, "void"); break; case TYPE_CODE_UNDEF: fprintf_filtered (stream, "struct "); break; case TYPE_CODE_ERROR: fprintf_filtered (stream, ""); break; case TYPE_CODE_RANGE: /* This should not occur */ fprintf_filtered (stream, ""); break; default: /* Handle types not explicitly handled by the other cases, such as fundamental types. For these, just print whatever the type name is, as recorded in the type itself. If there is no type name, then complain. */ if (TYPE_NAME (type) != NULL) { fputs_filtered (TYPE_NAME (type), stream); } else { /* At least for dump_symtab, it is important that this not be an error (). */ fprintf_filtered (stream, "", TYPE_CODE (type)); } break; } } gdb-4.13/gdb/c-valprint.c 666 34562 1752 34274 5611620462 13550 0ustar fnfcygnus/* Support for printing C values for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "value.h" #include "demangle.h" #include "valprint.h" #include "language.h" /* BEGIN-FIXME */ extern int vtblprint; /* Controls printing of vtbl's */ extern void cp_print_class_member PARAMS ((char *, struct type *, GDB_FILE *, char *)); extern void cp_print_class_method PARAMS ((char *, struct type *, GDB_FILE *)); extern void cp_print_value_fields PARAMS ((struct type *, char *, GDB_FILE *, int, int, enum val_prettyprint, struct type **)); extern int cp_is_vtbl_ptr_type PARAMS ((struct type *)); extern int cp_is_vtbl_member PARAMS ((struct type *)); /* END-FIXME */ /* BEGIN-FIXME: Hooks into c-typeprint.c */ extern void c_type_print_varspec_prefix PARAMS ((struct type *, GDB_FILE *, int, int)); extern void cp_type_print_method_args PARAMS ((struct type **, char *, char *, int, GDB_FILE *)); /* END-FIXME */ extern struct obstack dont_print_obstack; /* Print data of type TYPE located at VALADDR (within GDB), which came from the inferior at address ADDRESS, onto stdio stream STREAM according to FORMAT (a letter or 0 for natural format). The data at VALADDR is in target byte order. If the data are a string pointer, returns the number of string characters printed. If DEREF_REF is nonzero, then dereference references, otherwise just print them like pointers. The PRETTY parameter controls prettyprinting. */ int c_val_print (type, valaddr, address, stream, format, deref_ref, recurse, pretty) struct type *type; char *valaddr; CORE_ADDR address; GDB_FILE *stream; int format; int deref_ref; int recurse; enum val_prettyprint pretty; { register unsigned int i = 0; /* Number of characters printed */ unsigned len; struct type *elttype; unsigned eltlen; LONGEST val; CORE_ADDR addr; switch (TYPE_CODE (type)) { case TYPE_CODE_ARRAY: if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0) { elttype = TYPE_TARGET_TYPE (type); eltlen = TYPE_LENGTH (elttype); len = TYPE_LENGTH (type) / eltlen; if (prettyprint_arrays) { print_spaces_filtered (2 + 2 * recurse, stream); } /* For an array of chars, print with string syntax. */ if (eltlen == 1 && ((TYPE_CODE (elttype) == TYPE_CODE_INT) || ((current_language->la_language == language_m2) && (TYPE_CODE (elttype) == TYPE_CODE_CHAR))) && (format == 0 || format == 's')) { /* If requested, look for the first null char and only print elements up to it. */ if (stop_print_at_null) { int temp_len; /* Look for a NULL char. */ for (temp_len = 0; valaddr[temp_len] && temp_len < len && temp_len < print_max; temp_len++); len = temp_len; } LA_PRINT_STRING (stream, valaddr, len, 0); i = len; } else { fprintf_filtered (stream, "{"); /* If this is a virtual function table, print the 0th entry specially, and the rest of the members normally. */ if (cp_is_vtbl_ptr_type (elttype)) { i = 1; fprintf_filtered (stream, "%d vtable entries", len - 1); } else { i = 0; } val_print_array_elements (type, valaddr, address, stream, format, deref_ref, recurse, pretty, i); fprintf_filtered (stream, "}"); } break; } /* Array of unspecified length: treat like pointer to first elt. */ addr = address; goto print_unpacked_pointer; case TYPE_CODE_PTR: if (format && format != 's') { print_scalar_formatted (valaddr, type, format, 0, stream); break; } if (vtblprint && cp_is_vtbl_ptr_type(type)) { /* Print the unmangled name if desired. */ /* Print vtable entry - we only get here if we ARE using -fvtable_thunks. (Otherwise, look under TYPE_CODE_STRUCT.) */ print_address_demangle(extract_address (valaddr, TYPE_LENGTH (type)), stream, demangle); break; } if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_METHOD) { cp_print_class_method (valaddr, type, stream); } else if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_MEMBER) { cp_print_class_member (valaddr, TYPE_DOMAIN_TYPE (TYPE_TARGET_TYPE (type)), stream, "&"); } else { addr = unpack_pointer (type, valaddr); print_unpacked_pointer: elttype = TYPE_TARGET_TYPE (type); if (TYPE_CODE (elttype) == TYPE_CODE_FUNC) { /* Try to print what function it points to. */ print_address_demangle (addr, stream, demangle); /* Return value is irrelevant except for string pointers. */ return (0); } if (addressprint && format != 's') { print_address_numeric (addr, 1, stream); } /* For a pointer to char or unsigned char, also print the string pointed to, unless pointer is null. */ if (TYPE_LENGTH (elttype) == 1 && TYPE_CODE (elttype) == TYPE_CODE_INT && (format == 0 || format == 's') && addr != 0) { i = val_print_string (addr, 0, stream); } else if (cp_is_vtbl_member(type)) { /* print vtbl's nicely */ CORE_ADDR vt_address = unpack_pointer (type, valaddr); struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (vt_address); if ((msymbol != NULL) && (vt_address == SYMBOL_VALUE_ADDRESS (msymbol))) { fputs_filtered (" <", stream); fputs_filtered (SYMBOL_SOURCE_NAME (msymbol), stream); fputs_filtered (">", stream); } if (vt_address && vtblprint) { value_ptr vt_val; struct symbol *wsym = (struct symbol *)NULL; struct type *wtype; struct symtab *s; struct block *block = (struct block *)NULL; int is_this_fld; if (msymbol != NULL) wsym = lookup_symbol (SYMBOL_NAME(msymbol), block, VAR_NAMESPACE, &is_this_fld, &s); if (wsym) { wtype = SYMBOL_TYPE(wsym); } else { wtype = TYPE_TARGET_TYPE(type); } vt_val = value_at (wtype, vt_address); val_print (VALUE_TYPE (vt_val), VALUE_CONTENTS (vt_val), VALUE_ADDRESS (vt_val), stream, format, deref_ref, recurse + 1, pretty); if (pretty) { fprintf_filtered (stream, "\n"); print_spaces_filtered (2 + 2 * recurse, stream); } } } /* Return number of characters printed, including the terminating '\0' if we reached the end. val_print_string takes care including the terminating '\0' if necessary. */ return i; } break; case TYPE_CODE_MEMBER: error ("not implemented: member type in c_val_print"); break; case TYPE_CODE_REF: if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_MEMBER) { cp_print_class_member (valaddr, TYPE_DOMAIN_TYPE (TYPE_TARGET_TYPE (type)), stream, ""); break; } if (addressprint) { fprintf_filtered (stream, "@"); print_address_numeric (extract_address (valaddr, TARGET_PTR_BIT / HOST_CHAR_BIT), 1, stream); if (deref_ref) fputs_filtered (": ", stream); } /* De-reference the reference. */ if (deref_ref) { if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_UNDEF) { value_ptr deref_val = value_at (TYPE_TARGET_TYPE (type), unpack_pointer (lookup_pointer_type (builtin_type_void), valaddr)); val_print (VALUE_TYPE (deref_val), VALUE_CONTENTS (deref_val), VALUE_ADDRESS (deref_val), stream, format, deref_ref, recurse + 1, pretty); } else fputs_filtered ("???", stream); } break; case TYPE_CODE_UNION: if (recurse && !unionprint) { fprintf_filtered (stream, "{...}"); break; } /* Fall through. */ case TYPE_CODE_STRUCT: if (vtblprint && cp_is_vtbl_ptr_type(type)) { /* Print the unmangled name if desired. */ /* Print vtable entry - we only get here if NOT using -fvtable_thunks. (Otherwise, look under TYPE_CODE_PTR.) */ print_address_demangle(*((int *) (valaddr + /* FIXME bytesex */ TYPE_FIELD_BITPOS (type, VTBL_FNADDR_OFFSET) / 8)), stream, demangle); break; } cp_print_value_fields (type, valaddr, stream, format, recurse, pretty, 0); break; case TYPE_CODE_ENUM: if (format) { print_scalar_formatted (valaddr, type, format, 0, stream); break; } len = TYPE_NFIELDS (type); val = unpack_long (type, valaddr); for (i = 0; i < len; i++) { QUIT; if (val == TYPE_FIELD_BITPOS (type, i)) { break; } } if (i < len) { fputs_filtered (TYPE_FIELD_NAME (type, i), stream); } else { print_longest (stream, 'd', 0, val); } break; case TYPE_CODE_FUNC: if (format) { print_scalar_formatted (valaddr, type, format, 0, stream); break; } /* FIXME, we should consider, at least for ANSI C language, eliminating the distinction made between FUNCs and POINTERs to FUNCs. */ fprintf_filtered (stream, "{"); type_print (type, "", stream, -1); fprintf_filtered (stream, "} "); /* Try to print what function it points to, and its address. */ print_address_demangle (address, stream, demangle); break; case TYPE_CODE_BOOL: /* Do something at least vaguely reasonable, for example if the language is set wrong. */ case TYPE_CODE_RANGE: /* FIXME: create_range_type does not set the unsigned bit in a range type (I think it probably should copy it from the target type), so we won't print values which are too large to fit in a signed integer correctly. */ /* FIXME: Doesn't handle ranges of enums correctly. (Can't just print with the target type, though, because the size of our type and the target type might differ). */ /* FALLTHROUGH */ case TYPE_CODE_INT: format = format ? format : output_format; if (format) { print_scalar_formatted (valaddr, type, format, 0, stream); } else { val_print_type_code_int (type, valaddr, stream); /* C and C++ has no single byte int type, char is used instead. Since we don't know whether the value is really intended to be used as an integer or a character, print the character equivalent as well. */ if (TYPE_LENGTH (type) == 1) { fputs_filtered (" ", stream); LA_PRINT_CHAR ((unsigned char) unpack_long (type, valaddr), stream); } } break; case TYPE_CODE_CHAR: format = format ? format : output_format; if (format) { print_scalar_formatted (valaddr, type, format, 0, stream); } else { fprintf_filtered (stream, TYPE_UNSIGNED (type) ? "%u" : "%d", unpack_long (type, valaddr)); fputs_filtered (" ", stream); LA_PRINT_CHAR ((unsigned char) unpack_long (type, valaddr), stream); } break; case TYPE_CODE_FLT: if (format) { print_scalar_formatted (valaddr, type, format, 0, stream); } else { print_floating (valaddr, type, stream); } break; case TYPE_CODE_VOID: fprintf_filtered (stream, "void"); break; case TYPE_CODE_ERROR: fprintf_filtered (stream, ""); break; case TYPE_CODE_UNDEF: /* This happens (without TYPE_FLAG_STUB set) on systems which don't use dbx xrefs (NO_DBX_XREFS in gcc) if a file has a "struct foo *bar" and no complete type for struct foo in that file. */ fprintf_filtered (stream, ""); break; default: error ("Invalid C/C++ type code %d in symbol table.", TYPE_CODE (type)); } gdb_flush (stream); return (0); } int c_value_print (val, stream, format, pretty) value_ptr val; GDB_FILE *stream; int format; enum val_prettyprint pretty; { /* A "repeated" value really contains several values in a row. They are made by the @ operator. Print such values as if they were arrays. */ if (VALUE_REPEATED (val)) { register unsigned int n = VALUE_REPETITIONS (val); register unsigned int typelen = TYPE_LENGTH (VALUE_TYPE (val)); fprintf_filtered (stream, "{"); /* Print arrays of characters using string syntax. */ if (typelen == 1 && TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_INT && format == 0) LA_PRINT_STRING (stream, VALUE_CONTENTS (val), n, 0); else { value_print_array_elements (val, stream, format, pretty); } fprintf_filtered (stream, "}"); return (n * typelen); } else { struct type *type = VALUE_TYPE (val); /* If it is a pointer, indicate what it points to. Print type also if it is a reference. C++: if it is a member pointer, we will take care of that when we print it. */ if (TYPE_CODE (type) == TYPE_CODE_PTR || TYPE_CODE (type) == TYPE_CODE_REF) { /* Hack: remove (char *) for char strings. Their type is indicated by the quoted string anyway. */ if (TYPE_CODE (type) == TYPE_CODE_PTR && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) == sizeof(char) && TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_INT && !TYPE_UNSIGNED (TYPE_TARGET_TYPE (type))) { /* Print nothing */ } else { fprintf_filtered (stream, "("); type_print (type, "", stream, -1); fprintf_filtered (stream, ") "); } } return (val_print (type, VALUE_CONTENTS (val), VALUE_ADDRESS (val), stream, format, 1, 0, pretty)); } } gdb-4.13/gdb/call-cmds.h 666 34562 1752 1754 5165450105 13311 0ustar fnfcygnus/* Prototypes for GDB commands that are called internally by other functions. Copyright 1992 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ extern void initialize_all_files PARAMS ((void)); extern void exec_file_command PARAMS ((char *, int)); extern void core_file_command PARAMS ((char *, int)); extern void break_command PARAMS ((char *, int)); gdb-4.13/gdb/ch-exp.y 666 34562 1752 133101 5606673064 12722 0ustar fnfcygnus/* YACC grammar for Chill expressions, for GDB. Copyright 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Parse a Chill expression from text in a string, and return the result as a struct expression pointer. That structure contains arithmetic operations in reverse polish, with constants represented by operations that are followed by special data. See expression.h for the details of the format. What is important here is that it can be built up sequentially during the process of parsing; the lower levels of the tree always come first in the result. Note that malloc's and realloc's in this file are transformed to xmalloc and xrealloc respectively by the same sed command in the makefile that remaps any other malloc/realloc inserted by the parser generator. Doing this with #defines and trying to control the interaction with include files ( and for example) just became too messy, particularly when such includes can be inserted at random times by the parser generator. Also note that the language accepted by this parser is more liberal than the one accepted by an actual Chill compiler. For example, the language rule that a simple name string can not be one of the reserved simple name strings is not enforced (e.g "case" is not treated as a reserved name). Another example is that Chill is a strongly typed language, and certain expressions that violate the type constraints may still be evaluated if gdb can do so in a meaningful manner, while such expressions would be rejected by the compiler. The reason for this more liberal behavior is the philosophy that the debugger is intended to be a tool that is used by the programmer when things go wrong, and as such, it should provide as few artificial barriers to it's use as possible. If it can do something meaningful, even something that violates language contraints that are enforced by the compiler, it should do so without complaint. */ %{ #include "defs.h" #include #include #include "expression.h" #include "language.h" #include "value.h" #include "parser-defs.h" #include "ch-lang.h" #include "bfd.h" /* Required by objfiles.h. */ #include "symfile.h" /* Required by objfiles.h. */ #include "objfiles.h" /* For have_full_symbols and have_partial_symbols */ /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc), as well as gratuitiously global symbol names, so we can have multiple yacc generated parsers in gdb. Note that these are only the variables produced by yacc. If other parser generators (bison, byacc, etc) produce additional global names that conflict at link time, then those parser generators need to be fixed instead of adding those names to this list. */ #define yymaxdepth chill_maxdepth #define yyparse chill_parse #define yylex chill_lex #define yyerror chill_error #define yylval chill_lval #define yychar chill_char #define yydebug chill_debug #define yypact chill_pact #define yyr1 chill_r1 #define yyr2 chill_r2 #define yydef chill_def #define yychk chill_chk #define yypgo chill_pgo #define yyact chill_act #define yyexca chill_exca #define yyerrflag chill_errflag #define yynerrs chill_nerrs #define yyps chill_ps #define yypv chill_pv #define yys chill_s #define yy_yys chill_yys #define yystate chill_state #define yytmp chill_tmp #define yyv chill_v #define yy_yyv chill_yyv #define yyval chill_val #define yylloc chill_lloc #define yyreds chill_reds /* With YYDEBUG defined */ #define yytoks chill_toks /* With YYDEBUG defined */ #ifndef YYDEBUG #define YYDEBUG 0 /* Default to no yydebug support */ #endif int yyparse PARAMS ((void)); static int yylex PARAMS ((void)); void yyerror PARAMS ((char *)); %} /* Although the yacc "value" of an expression is not used, since the result is stored in the structure being created, other node types do have values. */ %union { LONGEST lval; unsigned LONGEST ulval; struct { LONGEST val; struct type *type; } typed_val; double dval; struct symbol *sym; struct type *tval; struct stoken sval; struct ttype tsym; struct symtoken ssym; int voidval; struct block *bval; enum exp_opcode opcode; struct internalvar *ivar; struct type **tvec; int *ivec; } %token FIXME_01 %token FIXME_02 %token FIXME_03 %token FIXME_04 %token FIXME_05 %token FIXME_06 %token FIXME_07 %token FIXME_08 %token FIXME_09 %token FIXME_10 %token FIXME_11 %token FIXME_12 %token FIXME_13 %token FIXME_14 %token FIXME_15 %token FIXME_16 %token FIXME_17 %token FIXME_18 %token FIXME_19 %token FIXME_20 %token FIXME_21 %token FIXME_22 %token FIXME_24 %token FIXME_25 %token FIXME_26 %token FIXME_27 %token FIXME_28 %token FIXME_29 %token FIXME_30 %token INTEGER_LITERAL %token BOOLEAN_LITERAL %token CHARACTER_LITERAL %token FLOAT_LITERAL %token GENERAL_PROCEDURE_NAME %token LOCATION_NAME %token SET_LITERAL %token EMPTINESS_LITERAL %token CHARACTER_STRING_LITERAL %token BIT_STRING_LITERAL %token TYPENAME %token FIELD_NAME %token '.' %token ';' %token ':' %token CASE %token OF %token ESAC %token LOGIOR %token ORIF %token LOGXOR %token LOGAND %token ANDIF %token '=' %token NOTEQUAL %token '>' %token GTR %token '<' %token LEQ %token IN %token '+' %token '-' %token '*' %token '/' %token SLASH_SLASH %token MOD %token REM %token NOT %token POINTER %token RECEIVE %token '[' %token ']' %token '(' %token ')' %token UP %token IF %token THEN %token ELSE %token FI %token ELSIF %token ILLEGAL_TOKEN %token NUM %token PRED %token SUCC %token ABS %token CARD %token MAX_TOKEN %token MIN_TOKEN %token SIZE %token UPPER %token LOWER %token LENGTH /* Tokens which are not Chill tokens used in expressions, but rather GDB specific things that we recognize in the same context as Chill tokens (register names for example). */ %token GDB_REGNAME /* Machine register name */ %token GDB_LAST /* Value history */ %token GDB_VARIABLE /* Convenience variable */ %token GDB_ASSIGNMENT /* Assign value to somewhere */ %type location %type access_name %type primitive_value %type location_contents %type value_name %type literal %type tuple %type value_string_element %type value_string_slice %type value_array_element %type value_array_slice %type value_structure_field %type expression_conversion %type value_procedure_call %type value_built_in_routine_call %type chill_value_built_in_routine_call %type start_expression %type zero_adic_operator %type parenthesised_expression %type value %type undefined_value %type expression %type conditional_expression %type then_alternative %type else_alternative %type sub_expression %type value_case_alternative %type operand_0 %type operand_1 %type operand_2 %type operand_3 %type operand_4 %type operand_5 %type operand_6 %type synonym_name %type value_enumeration_name %type value_do_with_name %type value_receive_name %type string_primitive_value %type start_element %type left_element %type right_element %type slice_size %type array_primitive_value %type expression_list %type lower_element %type upper_element %type first_element %type mode_argument %type upper_lower_argument %type length_argument %type array_mode_name %type string_mode_name %type variant_structure_mode_name %type boolean_expression %type case_selector_list %type subexpression %type case_label_specification %type buffer_location %type single_assignment_action %type mode_name %% /* Z.200, 5.3.1 */ start : value { } | mode_name { write_exp_elt_opcode(OP_TYPE); write_exp_elt_type($1.type); write_exp_elt_opcode(OP_TYPE);} ; value : expression { $$ = 0; /* FIXME */ } | undefined_value { $$ = 0; /* FIXME */ } ; undefined_value : FIXME_01 { $$ = 0; /* FIXME */ } ; /* Z.200, 4.2.1 */ location : access_name | primitive_value POINTER { write_exp_elt_opcode (UNOP_IND); } ; /* Z.200, 4.2.2 */ access_name : LOCATION_NAME { write_exp_elt_opcode (OP_VAR_VALUE); write_exp_elt_block (NULL); write_exp_elt_sym ($1.sym); write_exp_elt_opcode (OP_VAR_VALUE); } | GDB_LAST /* gdb specific */ { write_exp_elt_opcode (OP_LAST); write_exp_elt_longcst ($1); write_exp_elt_opcode (OP_LAST); } | GDB_REGNAME /* gdb specific */ { write_exp_elt_opcode (OP_REGISTER); write_exp_elt_longcst ($1); write_exp_elt_opcode (OP_REGISTER); } | GDB_VARIABLE /* gdb specific */ { write_exp_elt_opcode (OP_INTERNALVAR); write_exp_elt_intern ($1); write_exp_elt_opcode (OP_INTERNALVAR); } | FIXME_03 { $$ = 0; /* FIXME */ } ; /* Z.200, 4.2.8 */ expression_list : expression { arglist_len = 1; } | expression_list ',' expression { arglist_len++; } /* Z.200, 5.2.1 */ primitive_value : location_contents { $$ = 0; /* FIXME */ } | value_name { $$ = 0; /* FIXME */ } | literal { $$ = 0; /* FIXME */ } | tuple { $$ = 0; /* FIXME */ } | value_string_element { $$ = 0; /* FIXME */ } | value_string_slice { $$ = 0; /* FIXME */ } | value_array_element { $$ = 0; /* FIXME */ } | value_array_slice { $$ = 0; /* FIXME */ } | value_structure_field { $$ = 0; /* FIXME */ } | expression_conversion { $$ = 0; /* FIXME */ } | value_procedure_call { $$ = 0; /* FIXME */ } | value_built_in_routine_call { $$ = 0; /* FIXME */ } | start_expression { $$ = 0; /* FIXME */ } | zero_adic_operator { $$ = 0; /* FIXME */ } | parenthesised_expression { $$ = 0; /* FIXME */ } ; /* Z.200, 5.2.2 */ location_contents: location { $$ = 0; /* FIXME */ } ; /* Z.200, 5.2.3 */ value_name : synonym_name { $$ = 0; /* FIXME */ } | value_enumeration_name { $$ = 0; /* FIXME */ } | value_do_with_name { $$ = 0; /* FIXME */ } | value_receive_name { $$ = 0; /* FIXME */ } | GENERAL_PROCEDURE_NAME { write_exp_elt_opcode (OP_VAR_VALUE); write_exp_elt_block (NULL); write_exp_elt_sym ($1.sym); write_exp_elt_opcode (OP_VAR_VALUE); } ; /* Z.200, 5.2.4.1 */ literal : INTEGER_LITERAL { write_exp_elt_opcode (OP_LONG); write_exp_elt_type ($1.type); write_exp_elt_longcst ((LONGEST) ($1.val)); write_exp_elt_opcode (OP_LONG); } | BOOLEAN_LITERAL { write_exp_elt_opcode (OP_BOOL); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_BOOL); } | CHARACTER_LITERAL { write_exp_elt_opcode (OP_LONG); write_exp_elt_type ($1.type); write_exp_elt_longcst ((LONGEST) ($1.val)); write_exp_elt_opcode (OP_LONG); } | FLOAT_LITERAL { write_exp_elt_opcode (OP_DOUBLE); write_exp_elt_type (builtin_type_double); write_exp_elt_dblcst ($1); write_exp_elt_opcode (OP_DOUBLE); } | SET_LITERAL { $$ = 0; /* FIXME */ } | EMPTINESS_LITERAL { $$ = 0; /* FIXME */ } | CHARACTER_STRING_LITERAL { write_exp_elt_opcode (OP_STRING); write_exp_string ($1); write_exp_elt_opcode (OP_STRING); } | BIT_STRING_LITERAL { write_exp_elt_opcode (OP_BITSTRING); write_exp_bitstring ($1); write_exp_elt_opcode (OP_BITSTRING); } ; /* Z.200, 5.2.5 */ tuple : FIXME_04 { $$ = 0; /* FIXME */ } ; /* Z.200, 5.2.6 */ value_string_element: string_primitive_value '(' start_element ')' { $$ = 0; /* FIXME */ } ; /* Z.200, 5.2.7 */ value_string_slice: string_primitive_value '(' left_element ':' right_element ')' { $$ = 0; /* FIXME */ } | string_primitive_value '(' start_element UP slice_size ')' { $$ = 0; /* FIXME */ } ; /* Z.200, 5.2.8 */ value_array_element: array_primitive_value '(' /* This is to save the value of arglist_len being accumulated for each dimension. */ { start_arglist (); } expression_list ')' { write_exp_elt_opcode (MULTI_SUBSCRIPT); write_exp_elt_longcst ((LONGEST) end_arglist ()); write_exp_elt_opcode (MULTI_SUBSCRIPT); } ; /* Z.200, 5.2.9 */ value_array_slice: array_primitive_value '(' lower_element ':' upper_element ')' { $$ = 0; /* FIXME */ } | array_primitive_value '(' first_element UP slice_size ')' { $$ = 0; /* FIXME */ } ; /* Z.200, 5.2.10 */ value_structure_field: primitive_value FIELD_NAME { write_exp_elt_opcode (STRUCTOP_STRUCT); write_exp_string ($2); write_exp_elt_opcode (STRUCTOP_STRUCT); } ; /* Z.200, 5.2.11 */ expression_conversion: mode_name parenthesised_expression { write_exp_elt_opcode (UNOP_CAST); write_exp_elt_type ($1.type); write_exp_elt_opcode (UNOP_CAST); } ; /* Z.200, 5.2.12 */ value_procedure_call: FIXME_05 { $$ = 0; /* FIXME */ } ; /* Z.200, 5.2.13 */ value_built_in_routine_call: chill_value_built_in_routine_call { $$ = 0; /* FIXME */ } ; /* Z.200, 5.2.14 */ start_expression: FIXME_06 { $$ = 0; /* FIXME */ } /* Not in GNU-Chill */ ; /* Z.200, 5.2.15 */ zero_adic_operator: FIXME_07 { $$ = 0; /* FIXME */ } ; /* Z.200, 5.2.16 */ parenthesised_expression: '(' expression ')' { $$ = 0; /* FIXME */ } ; /* Z.200, 5.3.2 */ expression : operand_0 { $$ = 0; /* FIXME */ } | single_assignment_action { $$ = 0; /* FIXME */ } | conditional_expression { $$ = 0; /* FIXME */ } ; conditional_expression : IF boolean_expression then_alternative else_alternative FI { $$ = 0; /* FIXME */ } | CASE case_selector_list OF value_case_alternative '[' ELSE sub_expression ']' ESAC { $$ = 0; /* FIXME */ } ; then_alternative: THEN subexpression { $$ = 0; /* FIXME */ } ; else_alternative: ELSE subexpression { $$ = 0; /* FIXME */ } | ELSIF boolean_expression then_alternative else_alternative { $$ = 0; /* FIXME */ } ; sub_expression : expression { $$ = 0; /* FIXME */ } ; value_case_alternative: case_label_specification ':' sub_expression ';' { $$ = 0; /* FIXME */ } ; /* Z.200, 5.3.3 */ operand_0 : operand_1 { $$ = 0; /* FIXME */ } | operand_0 LOGIOR operand_1 { write_exp_elt_opcode (BINOP_BITWISE_IOR); } | operand_0 ORIF operand_1 { $$ = 0; /* FIXME */ } | operand_0 LOGXOR operand_1 { write_exp_elt_opcode (BINOP_BITWISE_XOR); } ; /* Z.200, 5.3.4 */ operand_1 : operand_2 { $$ = 0; /* FIXME */ } | operand_1 LOGAND operand_2 { write_exp_elt_opcode (BINOP_BITWISE_AND); } | operand_1 ANDIF operand_2 { $$ = 0; /* FIXME */ } ; /* Z.200, 5.3.5 */ operand_2 : operand_3 { $$ = 0; /* FIXME */ } | operand_2 '=' operand_3 { write_exp_elt_opcode (BINOP_EQUAL); } | operand_2 NOTEQUAL operand_3 { write_exp_elt_opcode (BINOP_NOTEQUAL); } | operand_2 '>' operand_3 { write_exp_elt_opcode (BINOP_GTR); } | operand_2 GTR operand_3 { write_exp_elt_opcode (BINOP_GEQ); } | operand_2 '<' operand_3 { write_exp_elt_opcode (BINOP_LESS); } | operand_2 LEQ operand_3 { write_exp_elt_opcode (BINOP_LEQ); } | operand_2 IN operand_3 { write_exp_elt_opcode (BINOP_IN); } ; /* Z.200, 5.3.6 */ operand_3 : operand_4 { $$ = 0; /* FIXME */ } | operand_3 '+' operand_4 { write_exp_elt_opcode (BINOP_ADD); } | operand_3 '-' operand_4 { write_exp_elt_opcode (BINOP_SUB); } | operand_3 SLASH_SLASH operand_4 { write_exp_elt_opcode (BINOP_CONCAT); } ; /* Z.200, 5.3.7 */ operand_4 : operand_5 { $$ = 0; /* FIXME */ } | operand_4 '*' operand_5 { write_exp_elt_opcode (BINOP_MUL); } | operand_4 '/' operand_5 { write_exp_elt_opcode (BINOP_DIV); } | operand_4 MOD operand_5 { write_exp_elt_opcode (BINOP_MOD); } | operand_4 REM operand_5 { write_exp_elt_opcode (BINOP_REM); } ; /* Z.200, 5.3.8 */ operand_5 : operand_6 { $$ = 0; /* FIXME */ } | '-' operand_6 { write_exp_elt_opcode (UNOP_NEG); } | NOT operand_6 { write_exp_elt_opcode (UNOP_LOGICAL_NOT); } | parenthesised_expression literal /* We require the string operand to be a literal, to avoid some nasty parsing ambiguities. */ { write_exp_elt_opcode (BINOP_CONCAT); } ; /* Z.200, 5.3.9 */ operand_6 : POINTER location { write_exp_elt_opcode (UNOP_ADDR); } | RECEIVE buffer_location { $$ = 0; /* FIXME */ } | primitive_value { $$ = 0; /* FIXME */ } ; /* Z.200, 6.2 */ single_assignment_action : location GDB_ASSIGNMENT value { write_exp_elt_opcode (BINOP_ASSIGN); } ; /* Z.200, 6.20.3 */ chill_value_built_in_routine_call : NUM '(' expression ')' { $$ = 0; /* FIXME */ } | PRED '(' expression ')' { $$ = 0; /* FIXME */ } | SUCC '(' expression ')' { $$ = 0; /* FIXME */ } | ABS '(' expression ')' { $$ = 0; /* FIXME */ } | CARD '(' expression ')' { $$ = 0; /* FIXME */ } | MAX_TOKEN '(' expression ')' { $$ = 0; /* FIXME */ } | MIN_TOKEN '(' expression ')' { $$ = 0; /* FIXME */ } | SIZE '(' expression ')' { write_exp_elt_opcode (UNOP_SIZEOF); } | SIZE '(' mode_argument ')' { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_int); write_exp_elt_longcst ((LONGEST) TYPE_LENGTH ($3)); write_exp_elt_opcode (OP_LONG); } | UPPER '(' upper_lower_argument ')' { $$ = 0; /* FIXME */ } | LOWER '(' upper_lower_argument ')' { $$ = 0; /* FIXME */ } | LENGTH '(' length_argument ')' { $$ = 0; /* FIXME */ } ; mode_argument : mode_name { $$ = $1.type; } | array_mode_name '(' expression ')' { $$ = 0; /* FIXME */ } | string_mode_name '(' expression ')' { $$ = 0; /* FIXME */ } | variant_structure_mode_name '(' expression_list ')' { $$ = 0; /* FIXME */ } ; mode_name : TYPENAME ; upper_lower_argument : expression { $$ = 0; /* FIXME */ } | mode_name { $$ = 0; /* FIXME */ } ; length_argument : expression { $$ = 0; /* FIXME */ } ; /* Z.200, 12.4.3 */ array_primitive_value : primitive_value { $$ = 0; } ; /* Things which still need productions... */ array_mode_name : FIXME_08 { $$ = 0; } string_mode_name : FIXME_09 { $$ = 0; } variant_structure_mode_name: FIXME_10 { $$ = 0; } synonym_name : FIXME_11 { $$ = 0; } value_enumeration_name : FIXME_12 { $$ = 0; } value_do_with_name : FIXME_13 { $$ = 0; } value_receive_name : FIXME_14 { $$ = 0; } string_primitive_value : FIXME_15 { $$ = 0; } start_element : FIXME_16 { $$ = 0; } left_element : FIXME_17 { $$ = 0; } right_element : FIXME_18 { $$ = 0; } slice_size : FIXME_19 { $$ = 0; } lower_element : FIXME_20 { $$ = 0; } upper_element : FIXME_21 { $$ = 0; } first_element : FIXME_22 { $$ = 0; } boolean_expression : FIXME_26 { $$ = 0; } case_selector_list : FIXME_27 { $$ = 0; } subexpression : FIXME_28 { $$ = 0; } case_label_specification: FIXME_29 { $$ = 0; } buffer_location : FIXME_30 { $$ = 0; } %% /* Implementation of a dynamically expandable buffer for processing input characters acquired through lexptr and building a value to return in yylval. */ static char *tempbuf; /* Current buffer contents */ static int tempbufsize; /* Size of allocated buffer */ static int tempbufindex; /* Current index into buffer */ #define GROWBY_MIN_SIZE 64 /* Minimum amount to grow buffer by */ #define CHECKBUF(size) \ do { \ if (tempbufindex + (size) >= tempbufsize) \ { \ growbuf_by_size (size); \ } \ } while (0); /* Grow the static temp buffer if necessary, including allocating the first one on demand. */ static void growbuf_by_size (count) int count; { int growby; growby = max (count, GROWBY_MIN_SIZE); tempbufsize += growby; if (tempbuf == NULL) { tempbuf = (char *) malloc (tempbufsize); } else { tempbuf = (char *) realloc (tempbuf, tempbufsize); } } /* Try to consume a simple name string token. If successful, returns a pointer to a nullbyte terminated copy of the name that can be used in symbol table lookups. If not successful, returns NULL. */ static char * match_simple_name_string () { char *tokptr = lexptr; if (isalpha (*tokptr) || *tokptr == '_') { char *result; do { tokptr++; } while (isalnum (*tokptr) || (*tokptr == '_')); yylval.sval.ptr = lexptr; yylval.sval.length = tokptr - lexptr; lexptr = tokptr; result = copy_name (yylval.sval); return result; } return (NULL); } /* Start looking for a value composed of valid digits as set by the base in use. Note that '_' characters are valid anywhere, in any quantity, and are simply ignored. Since we must find at least one valid digit, or reject this token as an integer literal, we keep track of how many digits we have encountered. */ static int decode_integer_value (base, tokptrptr, ivalptr) int base; char **tokptrptr; int *ivalptr; { char *tokptr = *tokptrptr; int temp; int digits = 0; while (*tokptr != '\0') { temp = *tokptr; if (isupper (temp)) temp = tolower (temp); tokptr++; switch (temp) { case '_': continue; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': temp -= '0'; break; case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': temp -= 'a'; temp += 10; break; default: temp = base; break; } if (temp < base) { digits++; *ivalptr *= base; *ivalptr += temp; } else { /* Found something not in domain for current base. */ tokptr--; /* Unconsume what gave us indigestion. */ break; } } /* If we didn't find any digits, then we don't have a valid integer value, so reject the entire token. Otherwise, update the lexical scan pointer, and return non-zero for success. */ if (digits == 0) { return (0); } else { *tokptrptr = tokptr; return (1); } } static int decode_integer_literal (valptr, tokptrptr) int *valptr; char **tokptrptr; { char *tokptr = *tokptrptr; int base = 0; int ival = 0; int explicit_base = 0; /* Look for an explicit base specifier, which is optional. */ switch (*tokptr) { case 'd': case 'D': explicit_base++; base = 10; tokptr++; break; case 'b': case 'B': explicit_base++; base = 2; tokptr++; break; case 'h': case 'H': explicit_base++; base = 16; tokptr++; break; case 'o': case 'O': explicit_base++; base = 8; tokptr++; break; default: base = 10; break; } /* If we found an explicit base ensure that the character after the explicit base is a single quote. */ if (explicit_base && (*tokptr++ != '\'')) { return (0); } /* Attempt to decode whatever follows as an integer value in the indicated base, updating the token pointer in the process and computing the value into ival. Also, if we have an explicit base, then the next character must not be a single quote, or we have a bitstring literal, so reject the entire token in this case. Otherwise, update the lexical scan pointer, and return non-zero for success. */ if (!decode_integer_value (base, &tokptr, &ival)) { return (0); } else if (explicit_base && (*tokptr == '\'')) { return (0); } else { *valptr = ival; *tokptrptr = tokptr; return (1); } } /* If it wasn't for the fact that floating point values can contain '_' characters, we could just let strtod do all the hard work by letting it try to consume as much of the current token buffer as possible and find a legal conversion. Unfortunately we need to filter out the '_' characters before calling strtod, which we do by copying the other legal chars to a local buffer to be converted. However since we also need to keep track of where the last unconsumed character in the input buffer is, we have transfer only as many characters as may compose a legal floating point value. */ static int match_float_literal () { char *tokptr = lexptr; char *buf; char *copy; double dval; extern double strtod (); /* Make local buffer in which to build the string to convert. This is required because underscores are valid in chill floating point numbers but not in the string passed to strtod to convert. The string will be no longer than our input string. */ copy = buf = (char *) alloca (strlen (tokptr) + 1); /* Transfer all leading digits to the conversion buffer, discarding any underscores. */ while (isdigit (*tokptr) || *tokptr == '_') { if (*tokptr != '_') { *copy++ = *tokptr; } tokptr++; } /* Now accept either a '.', or one of [eEdD]. Dot is legal regardless of whether we found any leading digits, and we simply accept it and continue on to look for the fractional part and/or exponent. One of [eEdD] is legal only if we have seen digits, and means that there is no fractional part. If we find neither of these, then this is not a floating point number, so return failure. */ switch (*tokptr++) { case '.': /* Accept and then look for fractional part and/or exponent. */ *copy++ = '.'; break; case 'e': case 'E': case 'd': case 'D': if (copy == buf) { return (0); } *copy++ = 'e'; goto collect_exponent; break; default: return (0); break; } /* We found a '.', copy any fractional digits to the conversion buffer, up to the first nondigit, non-underscore character. */ while (isdigit (*tokptr) || *tokptr == '_') { if (*tokptr != '_') { *copy++ = *tokptr; } tokptr++; } /* Look for an exponent, which must start with one of [eEdD]. If none is found, jump directly to trying to convert what we have collected so far. */ switch (*tokptr) { case 'e': case 'E': case 'd': case 'D': *copy++ = 'e'; tokptr++; break; default: goto convert_float; break; } /* Accept an optional '-' or '+' following one of [eEdD]. */ collect_exponent: if (*tokptr == '+' || *tokptr == '-') { *copy++ = *tokptr++; } /* Now copy an exponent into the conversion buffer. Note that at the moment underscores are *not* allowed in exponents. */ while (isdigit (*tokptr)) { *copy++ = *tokptr++; } /* If we transfered any chars to the conversion buffer, try to interpret its contents as a floating point value. If any characters remain, then we must not have a valid floating point string. */ convert_float: *copy = '\0'; if (copy != buf) { dval = strtod (buf, ©); if (*copy == '\0') { yylval.dval = dval; lexptr = tokptr; return (FLOAT_LITERAL); } } return (0); } /* Recognize a string literal. A string literal is a sequence of characters enclosed in matching single or double quotes, except that a single character inside single quotes is a character literal, which we reject as a string literal. To embed the terminator character inside a string, it is simply doubled (I.E. "this""is""one""string") */ static int match_string_literal () { char *tokptr = lexptr; for (tempbufindex = 0, tokptr++; *tokptr != '\0'; tokptr++) { CHECKBUF (1); if (*tokptr == *lexptr) { if (*(tokptr + 1) == *lexptr) { tokptr++; } else { break; } } tempbuf[tempbufindex++] = *tokptr; } if (*tokptr == '\0' /* no terminator */ || (tempbufindex == 1 && *tokptr == '\'')) /* char literal */ { return (0); } else { tempbuf[tempbufindex] = '\0'; yylval.sval.ptr = tempbuf; yylval.sval.length = tempbufindex; lexptr = ++tokptr; return (CHARACTER_STRING_LITERAL); } } /* Recognize a character literal. A character literal is single character or a control sequence, enclosed in single quotes. A control sequence is a comma separated list of one or more integer literals, enclosed in parenthesis and introduced with a circumflex character. EX: 'a' '^(7)' '^(7,8)' As a GNU chill extension, the syntax C'xx' is also recognized as a character literal, where xx is a hex value for the character. Note that more than a single character, enclosed in single quotes, is a string literal. Also note that the control sequence form is not in GNU Chill since it is ambiguous with the string literal form using single quotes. I.E. is '^(7)' a character literal or a string literal. In theory it it possible to tell by context, but GNU Chill doesn't accept the control sequence form, so neither do we (for now the code is disabled). Returns CHARACTER_LITERAL if a match is found. */ static int match_character_literal () { char *tokptr = lexptr; int ival = 0; if ((*tokptr == 'c' || *tokptr == 'C') && (*(tokptr + 1) == '\'')) { /* We have a GNU chill extension form, so skip the leading "C'", decode the hex value, and then ensure that we have a trailing single quote character. */ tokptr += 2; if (!decode_integer_value (16, &tokptr, &ival) || (*tokptr != '\'')) { return (0); } tokptr++; } else if (*tokptr == '\'') { tokptr++; /* Determine which form we have, either a control sequence or the single character form. */ if ((*tokptr == '^') && (*(tokptr + 1) == '(')) { #if 0 /* Disable, see note above. -fnf */ /* Match and decode a control sequence. Return zero if we don't find a valid integer literal, or if the next unconsumed character after the integer literal is not the trailing ')'. FIXME: We currently don't handle the multiple integer literal form. */ tokptr += 2; if (!decode_integer_literal (&ival, &tokptr) || (*tokptr++ != ')')) { return (0); } #else return (0); #endif } else { ival = *tokptr++; } /* The trailing quote has not yet been consumed. If we don't find it, then we have no match. */ if (*tokptr++ != '\'') { return (0); } } else { /* Not a character literal. */ return (0); } yylval.typed_val.val = ival; yylval.typed_val.type = builtin_type_chill_char; lexptr = tokptr; return (CHARACTER_LITERAL); } /* Recognize an integer literal, as specified in Z.200 sec 5.2.4.2. Note that according to 5.2.4.2, a single "_" is also a valid integer literal, however GNU-chill requires there to be at least one "digit" in any integer literal. */ static int match_integer_literal () { char *tokptr = lexptr; int ival; if (!decode_integer_literal (&ival, &tokptr)) { return (0); } else { yylval.typed_val.val = ival; yylval.typed_val.type = builtin_type_int; lexptr = tokptr; return (INTEGER_LITERAL); } } /* Recognize a bit-string literal, as specified in Z.200 sec 5.2.4.8 Note that according to 5.2.4.8, a single "_" is also a valid bit-string literal, however GNU-chill requires there to be at least one "digit" in any bit-string literal. */ static int match_bitstring_literal () { char *tokptr = lexptr; int mask; int bitoffset = 0; int bitcount = 0; int base; int digit; tempbufindex = 0; /* Look for the required explicit base specifier. */ switch (*tokptr++) { case 'b': case 'B': base = 2; break; case 'o': case 'O': base = 8; break; case 'h': case 'H': base = 16; break; default: return (0); break; } /* Ensure that the character after the explicit base is a single quote. */ if (*tokptr++ != '\'') { return (0); } while (*tokptr != '\0' && *tokptr != '\'') { digit = *tokptr; if (isupper (digit)) digit = tolower (digit); tokptr++; switch (digit) { case '_': continue; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': digit -= '0'; break; case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': digit -= 'a'; digit += 10; break; default: return (0); break; } if (digit >= base) { /* Found something not in domain for current base. */ return (0); } else { /* Extract bits from digit, starting with the msbit appropriate for the current base, and packing them into the bitstring byte, starting at the lsbit. */ for (mask = (base >> 1); mask > 0; mask >>= 1) { bitcount++; CHECKBUF (1); if (digit & mask) { tempbuf[tempbufindex] |= (1 << bitoffset); } bitoffset++; if (bitoffset == HOST_CHAR_BIT) { bitoffset = 0; tempbufindex++; } } } } /* Verify that we consumed everything up to the trailing single quote, and that we found some bits (IE not just underbars). */ if (*tokptr++ != '\'') { return (0); } else { yylval.sval.ptr = tempbuf; yylval.sval.length = bitcount; lexptr = tokptr; return (BIT_STRING_LITERAL); } } /* Recognize tokens that start with '$'. These include: $regname A native register name or a "standard register name". Return token GDB_REGNAME. $variable A convenience variable with a name chosen by the user. Return token GDB_VARIABLE. $digits Value history with index , starting from the first value which has index 1. Return GDB_LAST. $$digits Value history with index relative to the last value. I.E. $$0 is the last value, $$1 is the one previous to that, $$2 is the one previous to $$1, etc. Return token GDB_LAST. $ | $0 | $$0 The last value in the value history. Return token GDB_LAST. $$ An abbreviation for the second to the last value in the value history, I.E. $$1 Return token GDB_LAST. Note that we currently assume that register names and convenience variables follow the convention of starting with a letter or '_'. */ static int match_dollar_tokens () { char *tokptr; int regno; int namelength; int negate; int ival; /* We will always have a successful match, even if it is just for a single '$', the abbreviation for $$0. So advance lexptr. */ tokptr = ++lexptr; if (*tokptr == '_' || isalpha (*tokptr)) { /* Look for a match with a native register name, usually something like "r0" for example. */ for (regno = 0; regno < NUM_REGS; regno++) { namelength = strlen (reg_names[regno]); if (STREQN (tokptr, reg_names[regno], namelength) && !isalnum (tokptr[namelength])) { yylval.lval = regno; lexptr += namelength; return (GDB_REGNAME); } } /* Look for a match with a standard register name, usually something like "pc", which gdb always recognizes as the program counter regardless of what the native register name is. */ for (regno = 0; regno < num_std_regs; regno++) { namelength = strlen (std_regs[regno].name); if (STREQN (tokptr, std_regs[regno].name, namelength) && !isalnum (tokptr[namelength])) { yylval.lval = std_regs[regno].regnum; lexptr += namelength; return (GDB_REGNAME); } } /* Attempt to match against a convenience variable. Note that this will always succeed, because if no variable of that name already exists, the lookup_internalvar will create one for us. Also note that both lexptr and tokptr currently point to the start of the input string we are trying to match, and that we have already tested the first character for non-numeric, so we don't have to treat it specially. */ while (*tokptr == '_' || isalnum (*tokptr)) { tokptr++; } yylval.sval.ptr = lexptr; yylval.sval.length = tokptr - lexptr; yylval.ivar = lookup_internalvar (copy_name (yylval.sval)); lexptr = tokptr; return (GDB_VARIABLE); } /* Since we didn't match against a register name or convenience variable, our only choice left is a history value. */ if (*tokptr == '$') { negate = 1; ival = 1; tokptr++; } else { negate = 0; ival = 0; } /* Attempt to decode more characters as an integer value giving the index in the history list. If successful, the value will overwrite ival (currently 0 or 1), and if not, ival will be left alone, which is good since it is currently correct for the '$' or '$$' case. */ decode_integer_literal (&ival, &tokptr); yylval.lval = negate ? -ival : ival; lexptr = tokptr; return (GDB_LAST); } struct token { char *operator; int token; }; static const struct token idtokentab[] = { { "length", LENGTH }, { "lower", LOWER }, { "upper", UPPER }, { "andif", ANDIF }, { "pred", PRED }, { "succ", SUCC }, { "card", CARD }, { "size", SIZE }, { "orif", ORIF }, { "num", NUM }, { "abs", ABS }, { "max", MAX_TOKEN }, { "min", MIN_TOKEN }, { "mod", MOD }, { "rem", REM }, { "not", NOT }, { "xor", LOGXOR }, { "and", LOGAND }, { "in", IN }, { "or", LOGIOR } }; static const struct token tokentab2[] = { { ":=", GDB_ASSIGNMENT }, { "//", SLASH_SLASH }, { "->", POINTER }, { "/=", NOTEQUAL }, { "<=", LEQ }, { ">=", GTR } }; /* Read one token, getting characters through lexptr. */ /* This is where we will check to make sure that the language and the operators used are compatible. */ static int yylex () { unsigned int i; int token; char *inputname; struct symbol *sym; /* Skip over any leading whitespace. */ while (isspace (*lexptr)) { lexptr++; } /* Look for special single character cases which can't be the first character of some other multicharacter token. */ switch (*lexptr) { case '\0': return (0); case ',': case '=': case ';': case '!': case '+': case '*': case '(': case ')': case '[': case ']': return (*lexptr++); } /* Look for characters which start a particular kind of multicharacter token, such as a character literal, register name, convenience variable name, string literal, etc. */ switch (*lexptr) { case '\'': case '\"': /* First try to match a string literal, which is any sequence of characters enclosed in matching single or double quotes, except that a single character inside single quotes is a character literal, so we have to catch that case also. */ token = match_string_literal (); if (token != 0) { return (token); } if (*lexptr == '\'') { token = match_character_literal (); if (token != 0) { return (token); } } break; case 'C': case 'c': token = match_character_literal (); if (token != 0) { return (token); } break; case '$': token = match_dollar_tokens (); if (token != 0) { return (token); } break; } /* See if it is a special token of length 2. */ for (i = 0; i < sizeof (tokentab2) / sizeof (tokentab2[0]); i++) { if (STREQN (lexptr, tokentab2[i].operator, 2)) { lexptr += 2; return (tokentab2[i].token); } } /* Look for single character cases which which could be the first character of some other multicharacter token, but aren't, or we would already have found it. */ switch (*lexptr) { case '-': case ':': case '/': case '<': case '>': return (*lexptr++); } /* Look for a float literal before looking for an integer literal, so we match as much of the input stream as possible. */ token = match_float_literal (); if (token != 0) { return (token); } token = match_bitstring_literal (); if (token != 0) { return (token); } token = match_integer_literal (); if (token != 0) { return (token); } /* Try to match a simple name string, and if a match is found, then further classify what sort of name it is and return an appropriate token. Note that attempting to match a simple name string consumes the token from lexptr, so we can't back out if we later find that we can't classify what sort of name it is. */ inputname = match_simple_name_string (); if (inputname != NULL) { char *simplename = (char*) alloca (strlen (inputname)); char *dptr = simplename, *sptr = inputname; for (; *sptr; sptr++) *dptr++ = isupper (*sptr) ? tolower(*sptr) : *sptr; /* See if it is a reserved identifier. */ for (i = 0; i < sizeof (idtokentab) / sizeof (idtokentab[0]); i++) { if (STREQ (simplename, idtokentab[i].operator)) { return (idtokentab[i].token); } } /* Look for other special tokens. */ if (STREQ (simplename, "true")) { yylval.ulval = 1; return (BOOLEAN_LITERAL); } if (STREQ (simplename, "false")) { yylval.ulval = 0; return (BOOLEAN_LITERAL); } sym = lookup_symbol (inputname, expression_context_block, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (sym == NULL && strcmp (inputname, simplename) != 0) { sym = lookup_symbol (simplename, expression_context_block, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); } if (sym != NULL) { yylval.ssym.stoken.ptr = NULL; yylval.ssym.stoken.length = 0; yylval.ssym.sym = sym; yylval.ssym.is_a_field_of_this = 0; /* FIXME, C++'ism */ switch (SYMBOL_CLASS (sym)) { case LOC_BLOCK: /* Found a procedure name. */ return (GENERAL_PROCEDURE_NAME); case LOC_STATIC: /* Found a global or local static variable. */ return (LOCATION_NAME); case LOC_REGISTER: case LOC_ARG: case LOC_REF_ARG: case LOC_REGPARM: case LOC_REGPARM_ADDR: case LOC_LOCAL: case LOC_LOCAL_ARG: case LOC_BASEREG: case LOC_BASEREG_ARG: if (innermost_block == NULL || contained_in (block_found, innermost_block)) { innermost_block = block_found; } return (LOCATION_NAME); break; case LOC_CONST: case LOC_LABEL: return (LOCATION_NAME); break; case LOC_TYPEDEF: yylval.tsym.type = SYMBOL_TYPE (sym); return TYPENAME; case LOC_UNDEF: case LOC_CONST_BYTES: case LOC_OPTIMIZED_OUT: error ("Symbol \"%s\" names no location.", inputname); break; } } else if (!have_full_symbols () && !have_partial_symbols ()) { error ("No symbol table is loaded. Use the \"file\" command."); } else { error ("No symbol \"%s\" in current context.", inputname); } } /* Catch single character tokens which are not part of some longer token. */ switch (*lexptr) { case '.': /* Not float for example. */ lexptr++; while (isspace (*lexptr)) lexptr++; inputname = match_simple_name_string (); if (!inputname) return '.'; return FIELD_NAME; } return (ILLEGAL_TOKEN); } void yyerror (msg) char *msg; { error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr); } gdb-4.13/gdb/ch-lang.c 666 34562 1752 24134 5574226662 13010 0ustar fnfcygnus/* Chill language support routines for GDB, the GNU debugger. Copyright 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "parser-defs.h" #include "language.h" #include "ch-lang.h" /* For now, Chill uses a simple mangling algorithm whereby you simply discard everything after the occurance of two successive CPLUS_MARKER characters to derive the demangled form. */ char * chill_demangle (mangled) const char *mangled; { char *joiner; char *demangled; joiner = strchr (mangled, CPLUS_MARKER); if (joiner != NULL && *(joiner + 1) == CPLUS_MARKER) { demangled = savestring (mangled, joiner - mangled); } else { demangled = NULL; } return (demangled); } static void chill_printchar (c, stream) register int c; GDB_FILE *stream; { c &= 0xFF; /* Avoid sign bit follies */ if (PRINT_LITERAL_FORM (c)) { fprintf_filtered (stream, "'%c'", c); } else { fprintf_filtered (stream, "C'%.2x'", (unsigned int) c); } } /* Print the character string STRING, printing at most LENGTH characters. Printing stops early if the number hits print_max; repeat counts are printed as appropriate. Print ellipses at the end if we had to stop before printing LENGTH characters, or if FORCE_ELLIPSES. Note that gdb maintains the length of strings without counting the terminating null byte, while chill strings are typically written with an explicit null byte. So we always assume an implied null byte until gdb is able to maintain non-null terminated strings as well as null terminated strings (FIXME). */ static void chill_printstr (stream, string, length, force_ellipses) GDB_FILE *stream; char *string; unsigned int length; int force_ellipses; { register unsigned int i; unsigned int things_printed = 0; int in_literal_form = 0; int in_control_form = 0; int need_slashslash = 0; unsigned int c; extern int repeat_count_threshold; extern int print_max; if (length == 0) { fputs_filtered ("\"\"", stream); return; } for (i = 0; i < length && things_printed < print_max; ++i) { /* Position of the character we are examining to see whether it is repeated. */ unsigned int rep1; /* Number of repetitions we have detected so far. */ unsigned int reps; QUIT; if (need_slashslash) { fputs_filtered ("//", stream); need_slashslash = 0; } rep1 = i + 1; reps = 1; while (rep1 < length && string[rep1] == string[i]) { ++rep1; ++reps; } c = string[i]; if (reps > repeat_count_threshold) { if (in_control_form || in_literal_form) { fputs_filtered ("\"//", stream); in_control_form = in_literal_form = 0; } chill_printchar (c, stream); fprintf_filtered (stream, "", reps); i = rep1 - 1; things_printed += repeat_count_threshold; need_slashslash = 1; } else { if (PRINT_LITERAL_FORM (c)) { if (!in_literal_form) { if (in_control_form) { fputs_filtered ("\"//", stream); in_control_form = 0; } fputs_filtered ("\"", stream); in_literal_form = 1; } fprintf_filtered (stream, "%c", c); } else { if (!in_control_form) { if (in_literal_form) { fputs_filtered ("\"//", stream); in_literal_form = 0; } fputs_filtered ("c\"", stream); in_control_form = 1; } fprintf_filtered (stream, "%.2x", c); } ++things_printed; } } /* Terminate the quotes if necessary. */ if (in_literal_form || in_control_form) { fputs_filtered ("\"", stream); } if (force_ellipses || (i < length)) { fputs_filtered ("...", stream); } } /* Return 1 if TYPE is a varying string or array. */ int chill_is_varying_struct (type) struct type *type; { if (TYPE_CODE (type) != TYPE_CODE_STRUCT) return 0; if (TYPE_NFIELDS (type) != 2) return 0; if (strcmp (TYPE_FIELD_NAME (type, 0), "__var_length") != 0) return 0; return 1; } static struct type * chill_create_fundamental_type (objfile, typeid) struct objfile *objfile; int typeid; { register struct type *type = NULL; switch (typeid) { default: /* FIXME: For now, if we are asked to produce a type not in this language, create the equivalent of a C integer type with the name "". When all the dust settles from the type reconstruction work, this should probably become an error. */ type = init_type (TYPE_CODE_INT, 2, 0, "", objfile); warning ("internal error: no chill fundamental type %d", typeid); break; case FT_VOID: /* FIXME: Currently the GNU Chill compiler emits some DWARF entries for typedefs, unrelated to anything directly in the code being compiled, that have some FT_VOID types. Just fake it for now. */ type = init_type (TYPE_CODE_VOID, 0, 0, "", objfile); break; case FT_BOOLEAN: type = init_type (TYPE_CODE_BOOL, 1, TYPE_FLAG_UNSIGNED, "BOOL", objfile); break; case FT_CHAR: type = init_type (TYPE_CODE_CHAR, 1, TYPE_FLAG_UNSIGNED, "CHAR", objfile); break; case FT_SIGNED_CHAR: type = init_type (TYPE_CODE_INT, 1, 0, "BYTE", objfile); break; case FT_UNSIGNED_CHAR: type = init_type (TYPE_CODE_INT, 1, TYPE_FLAG_UNSIGNED, "UBYTE", objfile); break; case FT_SHORT: /* Chill ints are 2 bytes */ type = init_type (TYPE_CODE_INT, 2, 0, "INT", objfile); break; case FT_UNSIGNED_SHORT: /* Chill ints are 2 bytes */ type = init_type (TYPE_CODE_INT, 2, TYPE_FLAG_UNSIGNED, "UINT", objfile); break; case FT_INTEGER: /* FIXME? */ case FT_SIGNED_INTEGER: /* FIXME? */ case FT_LONG: /* Chill longs are 4 bytes */ case FT_SIGNED_LONG: /* Chill longs are 4 bytes */ type = init_type (TYPE_CODE_INT, 4, 0, "LONG", objfile); break; case FT_UNSIGNED_INTEGER: /* FIXME? */ case FT_UNSIGNED_LONG: /* Chill longs are 4 bytes */ type = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_UNSIGNED, "ULONG", objfile); break; case FT_FLOAT: type = init_type (TYPE_CODE_FLT, 4, 0, "REAL", objfile); break; case FT_DBL_PREC_FLOAT: type = init_type (TYPE_CODE_FLT, 8, 0, "LONG_REAL", objfile); break; } return (type); } /* Table of operators and their precedences for printing expressions. */ static const struct op_print chill_op_print_tab[] = { {"AND", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0}, {"OR", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0}, {"NOT", UNOP_LOGICAL_NOT, PREC_PREFIX, 0}, {"MOD", BINOP_MOD, PREC_MUL, 0}, {"REM", BINOP_REM, PREC_MUL, 0}, {":=", BINOP_ASSIGN, PREC_ASSIGN, 1}, {"=", BINOP_EQUAL, PREC_EQUAL, 0}, {"/=", BINOP_NOTEQUAL, PREC_EQUAL, 0}, {"<=", BINOP_LEQ, PREC_ORDER, 0}, {">=", BINOP_GEQ, PREC_ORDER, 0}, {">", BINOP_GTR, PREC_ORDER, 0}, {"<", BINOP_LESS, PREC_ORDER, 0}, {"+", BINOP_ADD, PREC_ADD, 0}, {"-", BINOP_SUB, PREC_ADD, 0}, {"*", BINOP_MUL, PREC_MUL, 0}, {"/", BINOP_DIV, PREC_MUL, 0}, {"//", BINOP_CONCAT, PREC_PREFIX, 0}, /* FIXME: precedence? */ {"-", UNOP_NEG, PREC_PREFIX, 0}, {NULL, 0, 0, 0} }; /* The built-in types of Chill. */ struct type *builtin_type_chill_bool; struct type *builtin_type_chill_char; struct type *builtin_type_chill_long; struct type *builtin_type_chill_ulong; struct type *builtin_type_chill_real; struct type ** const (chill_builtin_types[]) = { &builtin_type_chill_bool, &builtin_type_chill_char, &builtin_type_chill_long, &builtin_type_chill_ulong, &builtin_type_chill_real, 0 }; const struct language_defn chill_language_defn = { "chill", language_chill, chill_builtin_types, range_check_on, type_check_on, chill_parse, /* parser */ chill_error, /* parser error function */ chill_printchar, /* print a character constant */ chill_printstr, /* function to print a string constant */ chill_create_fundamental_type,/* Create fundamental type in this language */ chill_print_type, /* Print a type using appropriate syntax */ chill_val_print, /* Print a value using appropriate syntax */ chill_value_print, /* Print a top-levl value */ &builtin_type_chill_real, /* longest floating point type */ {"", "B'", "", ""}, /* Binary format info */ {"O'%lo", "O'", "o", ""}, /* Octal format info */ {"D'%ld", "D'", "d", ""}, /* Decimal format info */ {"H'%lx", "H'", "x", ""}, /* Hex format info */ chill_op_print_tab, /* expression operators for printing */ LANG_MAGIC }; /* Initialization for Chill */ void _initialize_chill_language () { builtin_type_chill_bool = init_type (TYPE_CODE_BOOL, TARGET_CHAR_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "BOOL", (struct objfile *) NULL); builtin_type_chill_char = init_type (TYPE_CODE_CHAR, TARGET_CHAR_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "CHAR", (struct objfile *) NULL); builtin_type_chill_long = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, 0, "LONG", (struct objfile *) NULL); builtin_type_chill_ulong = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "ULONG", (struct objfile *) NULL); builtin_type_chill_real = init_type (TYPE_CODE_FLT, TARGET_DOUBLE_BIT / TARGET_CHAR_BIT, 0, "LONG_REAL", (struct objfile *) NULL); add_language (&chill_language_defn); } gdb-4.13/gdb/ch-lang.h 666 34562 1752 2631 5574226666 12777 0ustar fnfcygnus/* Chill language support definitions for GDB, the GNU debugger. Copyright 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef __STDC__ /* Forward decls for prototypes */ struct value; #endif extern int chill_parse PARAMS ((void)); /* Defined in ch-exp.y */ extern void chill_error PARAMS ((char *)); /* Defined in ch-exp.y */ extern void /* Defined in ch-typeprint.c */ chill_print_type PARAMS ((struct type *, char *, GDB_FILE *, int, int)); extern int chill_val_print PARAMS ((struct type *, char *, CORE_ADDR, GDB_FILE *, int, int, int, enum val_prettyprint)); extern int chill_value_print PARAMS ((struct value *, GDB_FILE *, int, enum val_prettyprint)); extern int chill_is_varying_struct PARAMS ((struct type *type)); gdb-4.13/gdb/ch-typeprint.c 666 34562 1752 21561 5564742164 14125 0ustar fnfcygnus/* Support for printing Chill types for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "obstack.h" #include "bfd.h" /* Binary File Description */ #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "value.h" #include "gdbcore.h" #include "target.h" #include "command.h" #include "gdbcmd.h" #include "language.h" #include "demangle.h" #include "ch-lang.h" #include "typeprint.h" #include #include static void chill_type_print_base PARAMS ((struct type *, GDB_FILE *, int, int)); void chill_print_type (type, varstring, stream, show, level) struct type *type; char *varstring; GDB_FILE *stream; int show; int level; { if (varstring != NULL && *varstring != '\0') { fputs_filtered (varstring, stream); fputs_filtered (" ", stream); } chill_type_print_base (type, stream, show, level); } /* Print the name of the type (or the ultimate pointer target, function value or array element). SHOW nonzero means don't print this type as just its name; show its real definition even if it has a name. SHOW zero means print just typename or tag if there is one SHOW negative means abbreviate structure elements. SHOW is decremented for printing of structure elements. LEVEL is the depth to indent by. We increase it for some recursive calls. */ static void chill_type_print_base (type, stream, show, level) struct type *type; GDB_FILE *stream; int show; int level; { register int len; register int i; struct type *index_type; struct type *range_type; LONGEST low_bound; LONGEST high_bound; QUIT; wrap_here (" "); if (type == NULL) { fputs_filtered ("", stream); return; } /* When SHOW is zero or less, and there is a valid type name, then always just print the type name directly from the type. */ if ((show <= 0) && (TYPE_NAME (type) != NULL)) { fputs_filtered (TYPE_NAME (type), stream); return; } check_stub_type (type); switch (TYPE_CODE (type)) { case TYPE_CODE_PTR: if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID) { fprintf_filtered (stream, "PTR"); break; } fprintf_filtered (stream, "REF "); chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); break; case TYPE_CODE_BOOL: /* FIXME: we should probably just print the TYPE_NAME, in case anyone ever fixes the compiler to give us the real names in the presence of the chill equivalent of typedef (assuming there is one). */ fprintf_filtered (stream, "BOOL"); break; case TYPE_CODE_ARRAY: range_type = TYPE_FIELD_TYPE (type, 0); index_type = TYPE_TARGET_TYPE (range_type); low_bound = TYPE_FIELD_BITPOS (range_type, 0); high_bound = TYPE_FIELD_BITPOS (range_type, 1); fputs_filtered ("ARRAY (", stream); print_type_scalar (index_type, low_bound, stream); fputs_filtered (":", stream); print_type_scalar (index_type, high_bound, stream); fputs_filtered (") ", stream); chill_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level); break; case TYPE_CODE_BITSTRING: fprintf_filtered (stream, "BOOLS (%d)", TYPE_FIELD_BITPOS (TYPE_FIELD_TYPE(type,0), 1) + 1); break; case TYPE_CODE_SET: fputs_filtered ("POWERSET ", stream); chill_print_type (TYPE_FIELD_TYPE (type, 0), "", stream, show - 1, level); break; case TYPE_CODE_STRING: range_type = TYPE_FIELD_TYPE (type, 0); index_type = TYPE_TARGET_TYPE (range_type); high_bound = TYPE_FIELD_BITPOS (range_type, 1); fputs_filtered ("CHARS (", stream); print_type_scalar (index_type, high_bound + 1, stream); fputs_filtered (")", stream); break; case TYPE_CODE_MEMBER: fprintf_filtered (stream, "MEMBER "); chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); break; case TYPE_CODE_REF: fprintf_filtered (stream, "/*LOC*/ "); chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); break; case TYPE_CODE_FUNC: fprintf_filtered (stream, "PROC (?)"); chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); break; case TYPE_CODE_STRUCT: if (chill_is_varying_struct (type)) { chill_type_print_base (TYPE_FIELD_TYPE (type, 1), stream, show, level); fputs_filtered (" VARYING", stream); } else { fprintf_filtered (stream, "STRUCT "); fprintf_filtered (stream, "(\n"); if ((TYPE_NFIELDS (type) == 0) && (TYPE_NFN_FIELDS (type) == 0)) { if (TYPE_FLAGS (type) & TYPE_FLAG_STUB) { fprintfi_filtered (level + 4, stream, "\n"); } else { fprintfi_filtered (level + 4, stream, "\n"); } } else { len = TYPE_NFIELDS (type); for (i = TYPE_N_BASECLASSES (type); i < len; i++) { struct type *field_type = TYPE_FIELD_TYPE (type, i); QUIT; print_spaces_filtered (level + 4, stream); if (TYPE_CODE (field_type) == TYPE_CODE_UNION) { int j; /* variant number */ fputs_filtered ("CASE OF\n", stream); for (j = 0; j < TYPE_NFIELDS (field_type); j++) { int k; /* variant field index */ struct type *variant_type = TYPE_FIELD_TYPE (field_type, j); int var_len = TYPE_NFIELDS (variant_type); print_spaces_filtered (level + 4, stream); if (strcmp (TYPE_FIELD_NAME (field_type, j), "else") == 0) fputs_filtered ("ELSE\n", stream); else fputs_filtered (":\n", stream); if (TYPE_CODE (variant_type) != TYPE_CODE_STRUCT) error ("variant record confusion"); for (k = 0; k < var_len; k++) { print_spaces_filtered (level + 8, stream); chill_print_type (TYPE_FIELD_TYPE (variant_type, k), TYPE_FIELD_NAME (variant_type, k), stream, show - 1, level + 8); if (k < (var_len - 1)) fputs_filtered (",", stream); fputs_filtered ("\n", stream); } } fputs_filtered ("ESAC\n", stream); } else chill_print_type (field_type, TYPE_FIELD_NAME (type, i), stream, show - 1, level + 4); if (i < (len - 1)) { fputs_filtered (",", stream); } fputs_filtered ("\n", stream); } } fprintfi_filtered (level, stream, ")"); } break; case TYPE_CODE_RANGE: if (TYPE_DUMMY_RANGE (type)) chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); else if (TYPE_TARGET_TYPE (type)) { chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); fputs_filtered (" (", stream); print_type_scalar (TYPE_TARGET_TYPE (type), TYPE_FIELD_BITPOS (type, 0), stream); fputs_filtered (":", stream); print_type_scalar (TYPE_TARGET_TYPE (type), TYPE_FIELD_BITPOS (type, 1), stream); fputs_filtered (")", stream); } else fprintf_filtered (stream, "RANGE? (%s : %d)", TYPE_FIELD_BITPOS (type, 0), TYPE_FIELD_BITPOS (type, 1)); break; case TYPE_CODE_ENUM: { register int lastval = 0; fprintf_filtered (stream, "SET ("); len = TYPE_NFIELDS (type); for (i = 0; i < len; i++) { QUIT; if (i) fprintf_filtered (stream, ", "); wrap_here (" "); fputs_filtered (TYPE_FIELD_NAME (type, i), stream); if (lastval != TYPE_FIELD_BITPOS (type, i)) { fprintf_filtered (stream, " = %d", TYPE_FIELD_BITPOS (type, i)); lastval = TYPE_FIELD_BITPOS (type, i); } lastval++; } fprintf_filtered (stream, ")"); } break; case TYPE_CODE_VOID: case TYPE_CODE_UNDEF: case TYPE_CODE_ERROR: case TYPE_CODE_UNION: case TYPE_CODE_METHOD: error ("missing language support in chill_type_print_base"); break; default: /* Handle types not explicitly handled by the other cases, such as fundamental types. For these, just print whatever the type name is, as recorded in the type itself. If there is no type name, then complain. */ if (TYPE_NAME (type) != NULL) { fputs_filtered (TYPE_NAME (type), stream); } else { error ("Unrecognized type code (%d) in symbol table.", TYPE_CODE (type)); } break; } } gdb-4.13/gdb/ch-valprint.c 666 34562 1752 36743 5574226655 13741 0ustar fnfcygnus/* Support for printing Chill values for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "obstack.h" #include "symtab.h" #include "gdbtypes.h" #include "valprint.h" #include "expression.h" #include "value.h" #include "language.h" #include "demangle.h" #include "c-lang.h" /* For c_val_print */ #include "typeprint.h" #include "ch-lang.h" static void chill_print_value_fields PARAMS ((struct type *, char *, GDB_FILE *, int, int, enum val_prettyprint, struct type **)); /* Print the elements of an array. Similar to val_print_array_elements, but prints element indexes (in Chill syntax). */ static void chill_val_print_array_elements (type, valaddr, address, stream, format, deref_ref, recurse, pretty) struct type *type; char *valaddr; CORE_ADDR address; GDB_FILE *stream; int format; int deref_ref; int recurse; enum val_prettyprint pretty; { unsigned int i = 0; unsigned int things_printed = 0; unsigned len; struct type *elttype; struct type *range_type = TYPE_FIELD_TYPE (type, 0); struct type *index_type = TYPE_TARGET_TYPE (range_type); unsigned eltlen; /* Position of the array element we are examining to see whether it is repeated. */ unsigned int rep1; /* Number of repetitions we have detected so far. */ unsigned int reps; LONGEST low_bound = TYPE_FIELD_BITPOS (range_type, 0); LONGEST high_bound = TYPE_FIELD_BITPOS (range_type, 1); elttype = TYPE_TARGET_TYPE (type); eltlen = TYPE_LENGTH (elttype); len = TYPE_LENGTH (type) / eltlen; annotate_array_section_begin (i, elttype); for (; i < len && things_printed < print_max; i++) { if (i != 0) { if (prettyprint_arrays) { fprintf_filtered (stream, ",\n"); print_spaces_filtered (2 + 2 * recurse, stream); } else { fprintf_filtered (stream, ", "); } } wrap_here (n_spaces (2 + 2 * recurse)); rep1 = i + 1; reps = 1; while ((rep1 < len) && !memcmp (valaddr + i * eltlen, valaddr + rep1 * eltlen, eltlen)) { ++reps; ++rep1; } fputs_filtered ("(", stream); print_type_scalar (index_type, low_bound + i, stream); if (reps > 1) { fputs_filtered (":", stream); print_type_scalar (index_type, low_bound + i + reps - 1, stream); fputs_filtered ("): ", stream); val_print (elttype, valaddr + i * eltlen, 0, stream, format, deref_ref, recurse + 1, pretty); i = rep1 - 1; things_printed += 1; } else { fputs_filtered ("): ", stream); val_print (elttype, valaddr + i * eltlen, 0, stream, format, deref_ref, recurse + 1, pretty); annotate_elt (); things_printed++; } } annotate_array_section_end (); if (i < len) { fprintf_filtered (stream, "..."); } } /* Print data of type TYPE located at VALADDR (within GDB), which came from the inferior at address ADDRESS, onto stdio stream STREAM according to FORMAT (a letter or 0 for natural format). The data at VALADDR is in target byte order. If the data are a string pointer, returns the number of string characters printed. If DEREF_REF is nonzero, then dereference references, otherwise just print them like pointers. The PRETTY parameter controls prettyprinting. */ int chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse, pretty) struct type *type; char *valaddr; CORE_ADDR address; GDB_FILE *stream; int format; int deref_ref; int recurse; enum val_prettyprint pretty; { LONGEST val; unsigned int i = 0; /* Number of characters printed. */ struct type *elttype; CORE_ADDR addr; switch (TYPE_CODE (type)) { case TYPE_CODE_ARRAY: if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0) { if (prettyprint_arrays) { print_spaces_filtered (2 + 2 * recurse, stream); } fprintf_filtered (stream, "["); chill_val_print_array_elements (type, valaddr, address, stream, format, deref_ref, recurse, pretty); fprintf_filtered (stream, "]"); } else { error ("unimplemented in chill_val_print; unspecified array length"); } break; case TYPE_CODE_INT: format = format ? format : output_format; if (format) { print_scalar_formatted (valaddr, type, format, 0, stream); } else { val_print_type_code_int (type, valaddr, stream); } break; case TYPE_CODE_CHAR: format = format ? format : output_format; if (format) { print_scalar_formatted (valaddr, type, format, 0, stream); } else { LA_PRINT_CHAR ((unsigned char) unpack_long (type, valaddr), stream); } break; case TYPE_CODE_FLT: if (format) { print_scalar_formatted (valaddr, type, format, 0, stream); } else { print_floating (valaddr, type, stream); } break; case TYPE_CODE_BOOL: format = format ? format : output_format; if (format) { print_scalar_formatted (valaddr, type, format, 0, stream); } else { /* FIXME: Why is this using builtin_type_chill_bool not type? */ val = unpack_long (builtin_type_chill_bool, valaddr); fprintf_filtered (stream, val ? "TRUE" : "FALSE"); } break; case TYPE_CODE_UNDEF: /* This happens (without TYPE_FLAG_STUB set) on systems which don't use dbx xrefs (NO_DBX_XREFS in gcc) if a file has a "struct foo *bar" and no complete type for struct foo in that file. */ fprintf_filtered (stream, ""); break; case TYPE_CODE_PTR: if (format && format != 's') { print_scalar_formatted (valaddr, type, format, 0, stream); break; } addr = unpack_pointer (type, valaddr); elttype = TYPE_TARGET_TYPE (type); /* We assume a NULL pointer is all zeros ... */ if (addr == 0) { fputs_filtered ("NULL", stream); return 0; } if (TYPE_CODE (elttype) == TYPE_CODE_FUNC) { /* Try to print what function it points to. */ print_address_demangle (addr, stream, demangle); /* Return value is irrelevant except for string pointers. */ return (0); } if (addressprint && format != 's') { print_address_numeric (addr, 1, stream); } /* For a pointer to char or unsigned char, also print the string pointed to, unless pointer is null. */ if (TYPE_LENGTH (elttype) == 1 && TYPE_CODE (elttype) == TYPE_CODE_CHAR && (format == 0 || format == 's') && addr != 0 && /* If print_max is UINT_MAX, the alloca below will fail. In that case don't try to print the string. */ print_max < UINT_MAX) { i = val_print_string (addr, 0, stream); } /* Return number of characters printed, plus one for the terminating null if we have "reached the end". */ return (i + (print_max && i != print_max)); break; case TYPE_CODE_STRING: if (format && format != 's') { print_scalar_formatted (valaddr, type, format, 0, stream); break; } i = TYPE_LENGTH (type); LA_PRINT_STRING (stream, valaddr, i, 0); /* Return number of characters printed, plus one for the terminating null if we have "reached the end". */ return (i + (print_max && i != print_max)); break; case TYPE_CODE_BITSTRING: case TYPE_CODE_SET: elttype = TYPE_FIELD_TYPE (type, 0); check_stub_type (elttype); if (TYPE_FLAGS (elttype) & TYPE_FLAG_STUB) { fprintf_filtered (stream, ""); gdb_flush (stream); break; } { struct type *range = elttype; int low_bound = TYPE_LOW_BOUND (range); int high_bound = TYPE_HIGH_BOUND (range); int i; int is_bitstring = TYPE_CODE (type) == TYPE_CODE_BITSTRING; int need_comma = 0; if (is_bitstring) fputs_filtered ("B'", stream); else fputs_filtered ("[", stream); for (i = low_bound; i <= high_bound; i++) { int element = value_bit_index (type, valaddr, i); if (is_bitstring) fprintf_filtered (stream, "%d", element); else if (element) { if (need_comma) fputs_filtered (", ", stream); print_type_scalar (TYPE_TARGET_TYPE (range), i, stream); need_comma = 1; /* Look for a continuous range of true elements. */ if (i+1 <= high_bound && value_bit_index (type, valaddr, ++i)) { int j = i; /* j is the upper bound so far of the range */ fputs_filtered (":", stream); while (i+1 <= high_bound && value_bit_index (type, valaddr, ++i)) j = i; print_type_scalar (TYPE_TARGET_TYPE (range), j, stream); } } } if (is_bitstring) fputs_filtered ("'", stream); else fputs_filtered ("]", stream); } break; case TYPE_CODE_STRUCT: if (chill_is_varying_struct (type)) { struct type *inner = TYPE_FIELD_TYPE (type, 1); long length = unpack_long (TYPE_FIELD_TYPE (type, 0), valaddr); char *data_addr = valaddr + TYPE_FIELD_BITPOS (type, 1) / 8; switch (TYPE_CODE (inner)) { case TYPE_CODE_STRING: if (length > TYPE_LENGTH (type)) { fprintf_filtered (stream, " static length %d>", length, TYPE_LENGTH (type)); } LA_PRINT_STRING (stream, data_addr, length, 0); return length; default: break; } } chill_print_value_fields (type, valaddr, stream, format, recurse, pretty, 0); break; case TYPE_CODE_REF: if (addressprint) { fprintf_filtered (stream, "LOC("); print_address_numeric (extract_address (valaddr, TARGET_PTR_BIT / HOST_CHAR_BIT), 1, stream); fprintf_filtered (stream, ")"); if (deref_ref) fputs_filtered (": ", stream); } /* De-reference the reference. */ if (deref_ref) { if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_UNDEF) { value_ptr deref_val = value_at (TYPE_TARGET_TYPE (type), unpack_pointer (lookup_pointer_type (builtin_type_void), valaddr)); val_print (VALUE_TYPE (deref_val), VALUE_CONTENTS (deref_val), VALUE_ADDRESS (deref_val), stream, format, deref_ref, recurse + 1, pretty); } else fputs_filtered ("???", stream); } break; case TYPE_CODE_ENUM: c_val_print (type, valaddr, address, stream, format, deref_ref, recurse, pretty); break; case TYPE_CODE_RANGE: if (TYPE_TARGET_TYPE (type)) chill_val_print (TYPE_TARGET_TYPE (type), valaddr, address, stream, format, deref_ref, recurse, pretty); break; case TYPE_CODE_MEMBER: case TYPE_CODE_UNION: case TYPE_CODE_FUNC: case TYPE_CODE_VOID: case TYPE_CODE_ERROR: default: /* Let's defer printing to the C printer, rather than print an error message. FIXME! */ c_val_print (type, valaddr, address, stream, format, deref_ref, recurse, pretty); } gdb_flush (stream); return (0); } /* Mutually recursive subroutines of cplus_print_value and c_val_print to print out a structure's fields: cp_print_value_fields and cplus_print_value. TYPE, VALADDR, STREAM, RECURSE, and PRETTY have the same meanings as in cplus_print_value and c_val_print. DONT_PRINT is an array of baseclass types that we should not print, or zero if called from top level. */ static void chill_print_value_fields (type, valaddr, stream, format, recurse, pretty, dont_print) struct type *type; char *valaddr; GDB_FILE *stream; int format; int recurse; enum val_prettyprint pretty; struct type **dont_print; { int i, len; int fields_seen = 0; check_stub_type (type); fprintf_filtered (stream, "["); len = TYPE_NFIELDS (type); if (len == 0) { fprintf_filtered (stream, ""); } else { for (i = 0; i < len; i++) { if (fields_seen) { fprintf_filtered (stream, ", "); } fields_seen = 1; if (pretty) { fprintf_filtered (stream, "\n"); print_spaces_filtered (2 + 2 * recurse, stream); } else { wrap_here (n_spaces (2 + 2 * recurse)); } fputs_filtered (".", stream); fprintf_symbol_filtered (stream, TYPE_FIELD_NAME (type, i), language_chill, DMGL_NO_OPTS); fputs_filtered (": ", stream); if (TYPE_FIELD_PACKED (type, i)) { value_ptr v; /* Bitfields require special handling, especially due to byte order problems. */ v = value_from_longest (TYPE_FIELD_TYPE (type, i), unpack_field_as_long (type, valaddr, i)); chill_val_print (TYPE_FIELD_TYPE (type, i), VALUE_CONTENTS (v), 0, stream, format, 0, recurse + 1, pretty); } else { chill_val_print (TYPE_FIELD_TYPE (type, i), valaddr + TYPE_FIELD_BITPOS (type, i) / 8, 0, stream, format, 0, recurse + 1, pretty); } } if (pretty) { fprintf_filtered (stream, "\n"); print_spaces_filtered (2 * recurse, stream); } } fprintf_filtered (stream, "]"); } int chill_value_print (val, stream, format, pretty) value_ptr val; GDB_FILE *stream; int format; enum val_prettyprint pretty; { /* A "repeated" value really contains several values in a row. They are made by the @ operator. Print such values as if they were arrays. */ if (VALUE_REPEATED (val)) { register unsigned int n = VALUE_REPETITIONS (val); register unsigned int typelen = TYPE_LENGTH (VALUE_TYPE (val)); fprintf_filtered (stream, "["); /* Print arrays of characters using string syntax. */ if (typelen == 1 && TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_INT && format == 0) LA_PRINT_STRING (stream, VALUE_CONTENTS (val), n, 0); else { value_print_array_elements (val, stream, format, pretty); } fprintf_filtered (stream, "]"); return (n * typelen); } else { struct type *type = VALUE_TYPE (val); /* If it is a pointer, indicate what it points to. Print type also if it is a reference. C++: if it is a member pointer, we will take care of that when we print it. */ if (TYPE_CODE (type) == TYPE_CODE_PTR || TYPE_CODE (type) == TYPE_CODE_REF) { char *valaddr = VALUE_CONTENTS (val); CORE_ADDR addr = unpack_pointer (type, valaddr); if (TYPE_CODE (type) != TYPE_CODE_PTR || addr != 0) { int i; char *name = TYPE_NAME (type); if (name) fputs_filtered (name, stream); else if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID) fputs_filtered ("PTR", stream); else { fprintf_filtered (stream, "("); type_print (type, "", stream, -1); fprintf_filtered (stream, ")"); } fprintf_filtered (stream, "("); i = val_print (type, valaddr, VALUE_ADDRESS (val), stream, format, 1, 0, pretty); fprintf_filtered (stream, ")"); return i; } } return (val_print (type, VALUE_CONTENTS (val), VALUE_ADDRESS (val), stream, format, 1, 0, pretty)); } } gdb-4.13/gdb/coff-solib.c 666 34562 1752 5647 5470756221 13504 0ustar fnfcygnus/* Handle COFF SVR3 shared libraries for GDB, the GNU Debugger. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "bfd.h" #include "gdbcore.h" #include "symtab.h" /* GLOBAL FUNCTION coff_solib_add -- add a shared library files to the symtab list. We examine the `.lib' section of the exec file and determine the names of the shared libraries. This function is responsible for discovering those names and addresses, and saving sufficient information about them to allow their symbols to be read at a later time. SYNOPSIS void coff_solib_add (char *arg_string, int from_tty, struct target_ops *target) DESCRIPTION */ void coff_solib_add (arg_string, from_tty, target) char *arg_string; int from_tty; struct target_ops *target; { asection *libsect; libsect = bfd_get_section_by_name (exec_bfd, ".lib"); if (libsect) { int libsize; unsigned char *lib; struct libent { bfd_byte len[4]; bfd_byte nameoffset[4]; }; libsize = bfd_section_size (exec_bfd, libsect); lib = (unsigned char *) alloca (libsize); bfd_get_section_contents (exec_bfd, libsect, lib, 0, libsize); while (libsize > 0) { struct libent *ent; struct objfile *objfile; int len, nameoffset; char *filename; ent = (struct libent *)lib; len = bfd_get_32 (exec_bfd, ent->len); nameoffset = bfd_get_32 (exec_bfd, ent->nameoffset); if (len <= 0) break; filename = (char *)ent + nameoffset * 4; objfile = symbol_file_add (filename, from_tty, 0, /* addr */ 0, /* not mainline */ 0, /* not mapped */ 0); /* Not readnow */ libsize -= len * 4; lib += len * 4; } } } /* GLOBAL FUNCTION coff_solib_create_inferior_hook -- shared library startup support SYNOPSIS void coff_solib_create_inferior_hook() DESCRIPTION When gdb starts up the inferior, the kernel maps in the shared libraries. We get here with the target stopped at it's first instruction, and the libraries already mapped. At this point, this function gets called via expansion of the macro SOLIB_CREATE_INFERIOR_HOOK. */ void coff_solib_create_inferior_hook() { coff_solib_add ((char *) 0, 0, (struct target_ops *) 0); } gdb-4.13/gdb/coff-solib.h 666 34562 1752 3645 5453405035 13500 0ustar fnfcygnus/* COFF (SVR3) Shared library declarations for GDB, the GNU Debugger. Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef __STDC__ /* Forward decl's for prototypes */ struct target_ops; #endif /* Called when we free all symtabs, to free the shared library information as well. */ #if 0 #define CLEAR_SOLIB coff_clear_solib extern void coff_clear_solib PARAMS ((void)); #endif /* Called to add symbols from a shared library to gdb's symbol table. */ #define SOLIB_ADD(filename, from_tty, targ) \ coff_solib_add (filename, from_tty, targ) extern void coff_solib_add PARAMS ((char *, int, struct target_ops *)); /* Function to be called when the inferior starts up, to discover the names of shared libraries that are dynamically linked, the base addresses to which they are linked, and sufficient information to read in their symbols at a later time. */ #define SOLIB_CREATE_INFERIOR_HOOK(PID) coff_solib_create_inferior_hook() extern void coff_solib_create_inferior_hook PARAMS((void)); /* solib.c */ /* If we can't set a breakpoint, and it's in a shared library, just disable it. */ #if 0 #define DISABLE_UNSETTABLE_BREAK(addr) coff_solib_address(addr) extern int solib_address PARAMS ((CORE_ADDR)); /* solib.c */ #endif gdb-4.13/gdb/doc/ 777 34562 1752 0 5623251747 11771 5ustar fnfcygnusgdb-4.13/gdb/doc/ChangeLog 666 34562 1752 107023 5612317743 13663 0ustar fnfcygnusSun Jul 17 14:14:03 1994 Stan Shebs (shebs@andros.cygnus.com) * gdb.texinfo: Add some more credits. * gdbint.texinfo: Capitalize GDB consistently, describe some macros and remove some. Thu Jul 14 18:43:17 1994 Stan Shebs (shebs@andros.cygnus.com) * gdbint.texinfo: Removed mentions of many incorrectly placed and obsolete conditionals, described some others. Tue Jul 12 12:23:15 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * gdb.texinfo (help targets): Changed to `help target', which is the correct gdb command. Wed Jun 22 18:00:51 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * annotate.texi (TODO): New node, for keeping track of annotations suggested but not yet implemented. Wed Jun 1 16:10:45 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Statics): Value of xcoff C_BSTAT points to another symbol, it is not the address itself. Thu May 5 20:23:36 1994 Stan Shebs (shebs@andros.cygnus.com) * stabs.texinfo (Stab Section Basics): Add comment about alignment of stabs-in-coff sections. Wed May 4 06:26:11 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * annotate.texi: Change edition to 0.5 and date to May 1994. Add index. (Frames): New node, for frame annotation. (Displays): New node, for display annotation. * remote.texi (MIPS Remote): Say that set timeout doesn't apply when waiting for your program to stop. Fri Apr 29 18:24:46 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * annotate.texi (Breakpoint Info): Document annotation of header fields and record annotation. Thu Apr 28 07:44:28 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * annotate.texi: New file, to document annotations. Thu Apr 21 14:20:51 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (clean): Don't remove GDBvn.texi (apparently on Jan 16 I meant to make this change but did not). Do remove gdb-cfg.texi. Wed Apr 20 11:22:48 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Stab Section Basics): Say what is in .stab section, and say n_strx field is compilation unit relative. * stabs.texinfo: Don't use @code for a.out when it is the name of an object file format. Wed Apr 13 20:29:54 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * gdb.texinfo: Refer to file names, not path names, per rms convention. (Arguments): Fix typo. Thu Mar 24 08:09:12 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Global Variables): Talk about stabs in files where variables are referenced, but not defined. Wed Mar 23 07:16:36 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Move stuff on @ and # type descriptors from node Cplusplus to new nodes Member Type Descriptor and Method Type Descriptor. Re-write stuff for #. Wed Mar 16 08:20:19 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo (Print Settings): Don't document "set print fast-symbolic-addr off". The bug which it worked around was fixed on 25 Feb 94 in coffread.c, so I'm nuking the command. * stabs.texinfo (Alternate Entry Points): New node, rewritten from N_ENTRY node. * stabs.texinfo (Type Descriptors): Add 'Y' type descriptor. Tue Mar 15 08:43:02 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbint.texinfo (Host Conditionals, Target Conditionals): Remove references to ieee-float.c. Fri Mar 11 08:09:40 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo (Set Breaks): Update documentation for tbreak to match what the code actually does. Wed Mar 9 19:43:05 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Symbol Descriptors): Add OS9000 symbol descriptor s. Tue Mar 1 17:04:43 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * stabs.texinfo (Type Descriptors): Add OS9000 type descriptors c, i, and b. Wed Feb 23 10:44:18 1994 Jim Kingdon (kingdon@rtl.cygnus.com) * stabs.texinfo: Document N_RBRAC as function relative for COFF as well as for ELF and SOM. Unify the descriptions of ELF and SOM as "stabs in sections" rather than just saying "ELF and SOM". Also make that stuff apply to COFF. Fri Feb 18 08:25:58 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo (Formatting Documentation): Change GhostScript to Ghostscript. Fri Feb 4 06:31:31 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo (Continuing and Stepping): When talking about "step" versus functions without line numbers, also mention stepping into them as well as "step" when you are in them. Tell the user how to deal with the situation. Add comment about "debugging information". Thu Feb 3 11:39:59 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Enumerations): Document restriction on where enumeration types can appear and still win with GDB. Wed Feb 2 11:29:17 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Negative Type Numbers): Document format for type -16. Thu Jan 27 16:53:56 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo (Selection, Frame Info): Update information about arbitrary frame specficiations. Wed Jan 26 15:31:57 1994 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo, remote.texi: general editing pass prior to Net release Tue Jan 25 12:12:04 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (String Field): Discuss continuing stabs with ?. Wed Jan 19 06:39:24 1994 David J. Mackenzie (djm@thepub.cygnus.com) * stabs.texinfo (Non-Stab Symbol Types): Mention N_SET* | N_EXT. Sun Jan 16 12:43:32 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Re-do stuff about C_BSTAT and move from XCOFF Differences node to Statics node. (Statics): Discuss XCOFF use of V symbol descriptor. * Makefile.in: Remove refcard.dvi and GDBvn.texi in realclean, not clean. Wed Jan 12 21:29:54 1994 John Gilmore (gnu@cygnus.com) * gdb.texinfo (Print Settings): Document `set print fast-symbolic-addr' and improve the doc for some other `set print's. Mon Jan 3 17:23:07 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (String Field): Talk about defining several type numbers at once. Fix lint regarding changing node ELF Transformations to ELF and SOM Transformations. Fri Dec 31 00:42:43 1993 John Gilmore (gnu@cygnus.com) * stabs.texinfo: Insert Peter Kessler's name as inventor (I think). Tue Dec 28 09:30:40 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Cross-References): `::' is for nested types only within <>. (Structures): Document static members. Mon Dec 27 13:55:04 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Document S type attribute. Sun Dec 26 20:46:36 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * stabs.texinfo: Add notes about stabs-in-som where appropriate. Fri Dec 3 19:13:19 1993 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Fix a few typos. Sun Nov 28 18:06:25 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo, remote.texi: formatting improvements * gdb.texinfo (New Features): mention threads. (Summary, C): fix xrefs in newly contributed text. (Threads): index entries, clarifications, example (passim): minor typos fixed, phrasing improvements * remote.texi (Bootstrapping): rephrase text on ^C and add index entries; (Server): explain use of gdbserver w/real-time systems, add example of conflicting TCP port; (MIPS Remote) break up running text into table, highlighting commands, and add example. Wed Nov 24 14:15:56 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * refcard.tex: avoid bad linebreaks even when REFEDITS=psrc.sed Fri Nov 12 16:10:58 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Nested Symbols): New node. (String Field, Symbol Descriptors, Cross-References): Refer to it. Thu Nov 11 13:26:45 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Stabs in ELF): Clarify how Bbss.bss work with respect to picking which Bbss.bss symbol to use, and (because there seems to be no good way of doing it) re-write some of the text to make it sound like Bbss.bss isn't such a great idea after all (as currently designed). * gdb.texinfo (C): In addition to saying people have to use g++ for good results, say they have to use stabs. Specifically say cfront doesn't work well. (Summary): Merge in information on Modula-2, Pascal, and Chill from the gdb README. Add xrefs to places where the support for the various languages is described in detail. Mon Nov 8 11:47:34 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Clean up stuff about visibility and virtual characters. * stabs.texinfo (N_M2C): Cite Sun doc. Fri Nov 5 16:27:27 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo: updates re threads. * remote.texinfo: avoid index entries starting with digits. Tue Nov 2 09:08:37 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Enumerations): Talk about large, negative and octal values. Clean up cross reference to type attributes. (String Field): Say that GDB 4.11 supports size attribute. Sun Oct 31 13:31:10 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote.texi (VxWorks Remote): Clarify that rebuilding VxWorks kernel is a mandatory step. Make the stuff about that more concise. Wed Oct 27 00:25:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Class Names): New node. * gdb.texinfo (Command Files): Explain order of init file reading. * remote.texi (Bootstrapping): Talk about getting the serial driver to deal with ^C sent by gdb to stop the remote system. Mon Oct 25 03:25:41 1993 Tom Lord (lord@cygnus.com) * libgdb.texinfo (I/O): incorporated better phrasing from rich. * libgdb.texinfo (Defining Commands): made the DOC arg to gdb_define_app_command a char * instead of char ** per a suggestion from kingdon. * libgdb.texinfo: total rewrite from a different starting premise. Wed Oct 20 18:07:44 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Local Variable Parameters): Re-write paragraph on floats passed as doubles (to improve clarity). Tue Oct 19 14:21:18 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo (Source Path): index entries for $cwd, $pdir * a4rc.sed: update to work with Andreas Vogel papersize params * refcard.tex: use Andreas Vogel simplifications of papersize params; remove useless version info; update copyright date. Tue Oct 19 10:46:22 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo (Symbols): Add class NAME to doc for ptype. Tue Oct 12 09:11:45 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo (Files): Say what address the load command loads it at. * stabs.texinfo (Common Blocks): Minor cleanups. * stabs.texinfo: Update ld stabs in elf relocation to reflect the fact that Sun has backed away from the linker kludge and thus the relevant issue is changes to the SunPRO tools, not the Solaris linker. * stabs.texinfo (Traditional Integer Types): Clean up description of octal bounds a little bit. Document extra leading zeroes. Thu Oct 7 16:15:37 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo (Signaling): Update for symbolic symbol names and add a section explaining the difference between the GDB signal command and the shell kill utility. Wed Oct 6 13:23:01 1993 Tom Lord (lord@rtl.cygnus.com) * libgdb.texinfo: added `@' to braces that were unescaped. Mon Oct 4 10:42:18 1993 Tom Lord (lord@rtl.cygnus.com) * libgdb.texinfo: new file. Spec for the gdb library. Sun Oct 3 15:26:56 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Include Files): Fix typo (start -> end). Thu Sep 30 18:24:56 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo, remote.texi: assorted small improvements, mostly from Melissa at FSF's editing pass. Thu Sep 30 11:54:38 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo: Remove stuff about ar and 14 character filenames. I believe this was fixed by the 13 Sep 89 change to print_frame_info. Also, modern versions of ar like BSD 4.4 or SVR4 don't have this bug. Wed Sep 22 21:22:11 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * remote.texi (Bootstrapping): Discuss 386 call gates. Sat Sep 18 17:10:44 1993 Jim Kingdon (kingdon@poseidon.cygnus.com) * stabs.texinfo (Based Variables): New node. Thu Sep 16 17:48:55 1993 Jim Kingdon (kingdon@cirdan.cygnus.com) * stabs.texinfo (Negative Type Numbers): Re-write discussions of names, sizes, and formats to suggest how not to lose. Sat Sep 11 09:35:11 1993 Jim Kingdon (kingdon@poseidon.cygnus.com) * stabs.texinfo (Methods): Fix typo. Fri Sep 10 06:34:20 1993 David J. Mackenzie (djm@thepub.cygnus.com) * gdb.texinfo: Fix a few typos. Wed Sep 8 09:11:52 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo: Clarify how well it works with Fortran. * stabs.texinfo (Stabs In ELF, Statics, ELF Transformations): More on relocating stabs in ELF files. Tue Sep 7 13:45:02 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Stabs In ELF): Talk about N_FUN value. Mon Sep 6 19:23:18 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Local Variable Parameters): Talk about nameless parameters on VAX. Fri Sep 3 17:06:08 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo: @up/@down -> @raisesections/@lowersections Fri Sep 3 12:04:15 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Make info author notice match the TeX author notice. Tue Aug 31 13:21:06 1993 David J. Mackenzie (djm@thepub.cygnus.com) * stabs.texinfo: Initial-caps all words in node names and non-trivial words in section names. Mon Aug 30 11:13:16 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Many minor cleanups. * stabs.texinfo: Remove @deffn except from Expanded Reference node. Sat Aug 28 12:08:09 1993 David J. MacKenzie (djm@edison.eng.umd.edu) * stabs.texinfo: Remove full description of big example. It's not really helpful; just use pieces of it where appropriate. Add more Texinfo formatting directives (@samp, etc.). Use @deffn to define stab types. Eliminate some wordiness. Break up some nodes. Add an (alphabetized) index of symbol types. Use consistent capitalization style in node and section names. Thu Aug 26 06:36:31 1993 Fred Fish (fnf@deneb.cygnus.com) * gdb.texinfo: Change typo "Two two" to "The two". Sun Aug 22 12:15:18 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (XCOFF-differences): Remove references to non-existent types N_DECL and N_RPSYM. * stabs.texinfo (String Field): Say that type attributes bug is fixed in GDB 4.10, since it is. * stabs.texinfo: Clean up djm cleanups, and more cleanups of my own. Sat Aug 21 04:32:28 1993 David MacKenzie (djm@cygnus.com) * stabs.texinfo: Formatting cleanups. Fri Aug 20 20:49:53 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: When explaining the n_type of a stab, standardize how we do it ('#' as a comment indicator, "36 is N_FUN" as text, no tabs, use @r). (Global Variables): Clean up. Tue Aug 17 15:57:27 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Stack Variables): Re-write. Mon Aug 16 21:20:08 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Stabs-in-elf): Talk about getting the start addresses of a source file. Also revise formatting. Change "object module" or "object file" to "source file". Various: Miscellaneous cleanups. Thu Aug 12 15:11:51 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Point to mangling info in gcc's gpcompare.texi. Tue Aug 10 16:57:49 1993 Stan Shebs (shebs@rtl.cygnus.com) * gdbint.texinfo: Removed many nonsensical machine-collected host and target conditionals, described some of the remainder. Tue Aug 10 13:28:30 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbint.texinfo (Getting Started): Use @itemize, not @table. * gdbint.texinfo (Top): Add name to @top line, and re-write the paragraph which follows. * gdbint.texinfo (Host): Use @code not @samp for Makefile variables. Looks better and avoids overful hbox. Fri Jul 30 18:26:21 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Procedures): Improve stuff on nested functions. Thu Jul 29 15:10:58 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * remote.texi: (MIPS Remote) clearer doc for set/show timeout, retransmit-timeout Thu Jul 29 13:16:09 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdbint.texinfo: Update statement about `some ancient Unix systems, like Ultrix 4.0' to Ultrix 4.2. Wed Jul 28 15:26:53 1993 Roland H. Pesch (pesch@el_bosque.cygnus.com) * h8-cfg.texi, all-cfg.texi: new flag GDBSERVER * Makefile.in: depend on remote.texi rather than gdbinv-s.texi * remote.texi: (Server) New node on gdbserver. (Remote Serial, ST2000 Remote, MIPS Remote): mention `host:port' syntax for TCP. * remote.texi: new name for former gdbinv-s.texi * gdb.texinfo: use remote.texi rather than gdbinv-s.texi Wed Jul 28 08:26:24 1993 Ian Lance Taylor (ian@cygnus.com) * gdbinv-s.texi: Documented timeout and retransmit-timeout variables for MIPS remote debugging protocol. Mon Jul 26 13:00:09 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Negative Type Numbers): FORTRAN LOGICAL fix. Tue Jul 20 16:30:41 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * Makefile.in (refcard.dvi): Use srcdir where necessary. Mon Jul 19 12:02:50 1993 Roland H. Pesch (pesch@cygnus.com) * gdb.texinfo: repair conditional bugs in text markup Fri Jul 16 18:57:50 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo, all-cfg.texi, h8-cfg.texi: introduce MOD2 switch to select Modula-2 material. Thu Jul 15 13:15:01 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Cleanups regarding statics. * gdbinv-s.texi (Bootstrapping): Document exceptionHandler. (Debug Session): Mention exceptionHandler. Add xref to Bootstrapping. Mon Jul 12 13:37:02 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: N_MAIN is sometimes used for C. Fri Jul 9 09:47:02 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * gdbint.texinfo (Host, Target Conditionals): Remove TM_FILE_OVERRIDE. Tue Jul 6 12:41:28 1993 John Gilmore (gnu@cygnus.com) * gdbint.texinfo (Target Conditionals): Remove NO_TYPEDEFS, removed from the code by Kingdon. Tue Jul 6 12:24:34 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * gdb.texinfo (Break Commands): Remove stuff about flushing terminal input when evaluating breakpoint conditions; the bug has been fixed. * gdb.texinfo (Continuing and Stepping): Argument to "continue" sets the ignore count to N-1, not to N. Thu Jul 1 14:57:42 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * refcard.tex (\hoffset): correct longstanding error to match intended offset; avoids cutting off edge on some printers Wed Jun 30 18:23:06 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Parameters): Say that order of stabs is significant. Fri Jun 25 21:34:52 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Common Blocks): Say what Sun FORTRAN does. Fri Jun 25 16:15:10 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * Makefile.in: (REFEDITS) new var to control whether PS or CM fonts and whether US or A4 paper for GDB refcard; (refcard.dvi) collect sed edits if any, apply to refcard before formatting; (refcard.ps) stop implying PS fonts if PS output requested; (lrefcard.ps) delete extra target for variant PS fonts * refcard.tex: parametrize papersize dependent info, collect in easily replaced spot * a4rc.sed: new file, edits to refcard for A4 paper Fri Jun 25 14:21:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Negative Type Numbers): Type -16 is 4 bytes. Wed Jun 23 15:02:50 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Negative Type Numbers): Minor character cleanups. Tue Jun 22 16:31:52 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Express disapproval of 'D' symbol descriptor politely rather than rudely. Fri Jun 18 19:42:09 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Document common blocks. Fri Jun 18 12:12:57 1993 Fred Fish (fnf@cygnus.com) * stabs.texinfo: Add some basic info about stabs-in-elf. Fri Jun 18 13:57:09 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Top): Minor cleanup. Mon Jun 14 16:16:51 1993 david d `zoo' zuhn (zoo at rtl.cygnus.com) * Makefile.in (install-info): remove parentdir support Tue Jun 15 18:11:39 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo (Copying): delete this node and references to it; RMS says this manual need not carry GPL. (passim): Improvements from last round at FSF, largely due to Ian Taylor review, and minor formatting improvements. * gdbinv-s.texi (passim): Improvements from last round at FSF, largely due to Ian Taylor review. (Debug Session): minor edits to new text. Sun Jun 13 12:52:39 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in (realclean): Remove info and dvi files too. Sat Jun 12 16:09:22 1993 Jim Kingdon (kingdon@cygnus.com) * {all,h8}-config.texi: Rename to *-cfg.texi for 14 char filenames. * Makefile.in: Change accordingly. gdb-config.texi -> gdb-cfg.texi. * gdb.texinfo: Change accordingly. * stabs.texinfo: Clean up N_{L,R}BRAC. Discuss what addresses of N_{L,R}BRAC,N_SLINE are relative to. Fri Jun 11 15:15:55 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in (GDBvn.texi): Update atomically. Wed Jun 9 10:58:16 1993 Jim Kingdon (kingdon@cygnus.com) * gdbinv-s.texi (Debug Session): Document exceptionHook. Tue Jun 8 13:42:04 1993 Jim Kingdon (kingdon@cygnus.com) * gdb.texinfo (Print Settings): Move all stuff relating to symbolic addresses together. Also motivate the set print symbol-filename command and suggest other solutions. Tue Jun 1 22:46:43 1993 Fred Fish (fnf@cygnus.com) * gdb.texinfo (set print elements): Note that the number of elements is set to unlimited by "set print elements 0". Mon May 31 08:06:55 1993 Jim Kingdon (kingdon@cygnus.com) * stabs.texinfo (Builtin Type Descriptors): Try to clarify what NF_LDOUBLE means. (Stab Types): Include Solaris stab types. (Procedures): Document Solaris extensions. Thu May 27 06:20:42 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * gdb.texinfo: Add `set print symbol-filename' doc. Wed May 26 00:26:42 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Arrays): Talk about type definition vs. type information. * stabs.texinfo (Builtin Type Descriptors): Talk about omitting the trailing semicolon. Tue May 25 14:49:42 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Line Numbers, Source Files): Re-write these two nodes and merge in other parts of the document addressing these subjects. gdbint.texinfo (XCOFF): Remove info which is now in stabs.texinfo. * stabs.texinfo (Subranges, Arrays): Try to explain about the semicolon at the end of a range type. * stabs.texinfo (Subranges): "A offset" and "T offset" are not AIX extensions. Mon May 24 09:00:33 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Stabs Format): Misc fixes. Sat May 22 10:40:56 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Constants): Allow an `e' constant to be non-enum. (Traditional builtin types): Document convex convention for long long. (Negative builtin types): Discuss type names, and misc fixes. Fri May 21 11:20:31 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Builtin Type Descriptors): Document the floating point types used with @samp{R} type descriptor. (Symbol Descriptors): Describe how to handle conflict between different meanings of @samp{P} symbol descriptor. Thu May 20 13:35:10 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo: Remove node Quick Reference and put its children directly under the main menu. * stabs.texinfo: Many more changes to bring it into line with AIX documentation and reality. I think it now has all the information from the AIX documentation, except that I burned out when I got to variant records (Pascal and Modula-2) and all the COBOL types. Oh well, we can add them later when we're worrying more about those languages. * stabs.texinfo (Automatic variables): Talk about what it means to omit the symbol descriptor. Tue May 18 17:59:18 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stabs.texinfo (Parameters): Add "(sometimes)" when describing gcc2 behavior with promoted args. Fri May 14 21:35:29 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo: include readline appendices in info version of manual Fri May 7 11:56:18 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdbinv-s.texi (Remote Serial): describe new ^C behavior in target remote. * gdb.texinfo (Machine Code): more index entries for disassemble Fri May 7 10:12:30 1993 Fred Fish (fnf@cygnus.com) * Clarify the intended use of the gdb-testers and gdb-patches mailing lists, and shrink gzip comment. Thu May 6 16:39:50 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo (Shell Commands): do not mention SHELL env var in DOSHOST configuration of manual. * gdb.texinfo (MIPS Stack): new node. * all-config.texi (MIPS) new switch. * gdbinv-s.texi (Nindy Options) Remove two instances of future tense; (MIPS Remote) new node. * gdb.texinfo (passim) rephrases to work around makeinfo @value bug; (Environment) less passive, other small cleanups in text about .cshrc/.bashrc; (Invoking GDB) new MIPS Remote menu entry; (Remote) new MIPS Remote menu entry. Thu Apr 29 09:36:25 1993 Jim Kingdon (kingdon@cygnus.com) * stabs.texinfo: Many changes to include information from the AIX documentation. * gdb.texinfo (Environment): Mention pitfall with .cshrc. Tue Apr 27 14:02:57 1993 Jim Kingdon (kingdon@cygnus.com) * gdbint.texinfo (new node Debugging GDB, elsewhere): Move a bunch of information from ../README. (Getting Started): New node. Fri Apr 23 17:21:13 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdbinv-s.texi, gdb.texinfo: include Hitachi SH target * gdb.texinfo: advance manual revision dates to present * gdbinv-s.texi, gdb.texinfo, all-config.texi, h8-config.texi: stop using silly Roman numerals in @set variable names Fri Apr 23 07:30:01 1993 Jim Kingdon (kingdon@cygnus.com) * stabs.texinfo (Parameters): Keep trying to get this right. Wed Apr 21 15:18:47 1993 Jim Kingdon (kingdon@cygnus.com) * stabs.texinfo (Parameters): More on "local parameters". Mon Apr 19 08:00:51 1993 Jim Kingdon (kingdon@cygnus.com) * stabs.texinfo (Parameters): Re-do "local parameters" section. Sun Apr 18 09:47:45 1993 Jim Kingdon (kingdon@cygnus.com) * stabs.texinfo (Symbol descriptors): Re-do using @table and @xref. (Parameters): Rewrite. (xcoff-differences, Sun-differences): Minor changes. Thu Apr 15 02:35:24 1993 John Gilmore (gnu@cacophony.cygnus.com) * stabs.texinfo: Minor cleanup. Wed Apr 14 17:31:00 1993 Jim Kingdon (kingdon@cygnus.com) * gdbint.texinfo: Minor xcoff stuff. Wed Apr 7 14:11:07 1993 Fred Fish (fnf@cygnus.com) * gdbint.texinfo: Update for new config directory structure. Add info about internal type data structures. Mon Apr 5 09:06:30 1993 Ian Lance Taylor (ian@cygnus.com) * Makefile.in (SFILES_INCLUDED): gdb-config.texi is no longer in $(srcdir). (gdb-config.texi): Depend on file in $(srcdir). Fri Apr 2 16:55:13 1993 Jim Kingdon (kingdon@cygnus.com) * stabs.texinfo: Fixes about N_SO. Fri Mar 26 18:00:35 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo: include list of nonstandard init file names * *-config.texi: new switch GENERIC for text that applies *only* to (usual) multiple-target version of manual * gdb.texinfo, gdbinv-s.texi: Update conditional markup to correct h8 config * gdb.texinfo: depend on latest fixed makeinfo, use conditionals in menus (rather than conditionally selected multiple alternative menus). * Makefile.in: define and use DOC_CONFIG var to select configuration for GDB user manual. * gdb-config.texi: delete from repository, generate from Makefile. * all-config.texi: normal `generic' configuration file, formerly stored as gdb-config.texi Wed Mar 24 14:03:19 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: add dvi target to build all .dvi files Tue Mar 23 16:03:24 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo, gdvinv-s.texinfo: formatting improvements. Fri Mar 19 21:46:50 1993 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Doc NO_MMALLOC and NO_MMALLOC_CHECK as host conditionals. * stabs.texinfo: More array fixes inspired by Jim's. Fri Mar 19 10:23:34 1993 Jim Kingdon (kingdon@cygnus.com) * stabs.texinfo: Fixes re arrays and continuations. * gdbint.texinfo: Add XCOFF node. Mon Mar 8 15:52:18 1993 John Gilmore (gnu@cygnus.com) * gdb.texinfo: Add `set print max-symbolic-offset' doc. Sun Feb 21 17:09:38 1993 Per Bothner (bothner@rtl.cygnus.com) * stabs.texinfo: Fix for array types to mention lower bounds. Thu Feb 18 01:19:49 1993 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Update PTRACE_ARG3_TYPE doc, pull PT_*. Wed Feb 17 08:15:24 1993 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Remove SET_STACK_LIMIT_HUGE from target defines. Thu Feb 11 10:38:40 1993 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Fix thinko (NM_FILE => NAT_FILE). Found by Michael Ben-Gershon . Wed Feb 10 23:59:19 1993 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Eliminate IBM6000_HOST, document IBM6000_TARGET. Tue Feb 9 18:26:21 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo, gdbinv-s.texi: misc updates Sat Feb 6 10:25:47 1993 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Brief documentation for longjmp support, from an email msg by Stu. Fri Feb 5 14:10:15 1993 John Gilmore (gnu@cygnus.com) * stabs.texinfo: Fix description of floating point "range" types (which really define basic types). Reported by Jim Meehan, . * gdbint.texinfo: Remove COFF_NO_LONG_FILE_NAMES define, now gone. Thu Feb 4 13:56:46 1993 Ian Lance Taylor (ian@cygnus.com) * gdbint.texinfo: Slightly expand section on supporting a new object file format. Thu Feb 4 01:49:04 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (refcard.ps, lrefcard.ps): Remove psref.tex intermediate file. Tue Feb 2 12:18:06 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo, gdbinv-s.texi: miscellaneous stylistic cleanups Mon Feb 1 15:35:47 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdbinv-s.texi: z8000 simulator target name is just "sim" * gdbinv-s.texi: Mention that Z8000 simulator can simulate Z8001 as well as Z8002. Sat Nov 28 06:51:35 1992 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Add sections on clean design and on how to send in changes. Mon Nov 9 23:57:02 1992 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Add how to declare the result of make_cleanup. Mon Oct 26 11:09:47 1992 John Gilmore (gnu@cygnus.com) * gdb.texinfo: Fix typo, reported by Karl Berry. Fri Oct 23 00:41:21 1992 John Gilmore (gnu@cygnus.com) * gdb.texinfo: Add opcodes dir to GDB distribution description. Sat Oct 10 18:04:58 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * gdbint.texinfo: fixed a stray email address (needs @@), added @table @code to node "Native Conditionals" Tue Sep 22 00:34:15 1992 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Describe coding style of GDB. Mon Sep 21 19:32:16 1992 John Gilmore (gnu@cygnus.com) * stabs.texinfo: Minor wording changes. Tue Sep 15 02:57:09 1992 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Improve release doc slightly. Fri Sep 11 01:34:25 1992 John Gilmore (gnu@sphagnum.cygnus.com) * gdbint.texinfo: Improve doc of GDB config macros. Wed Sep 9 16:52:06 1992 John Gilmore (gnu@cygnus.com) * stabs.texinfo: Remove Bothner's changes for C++ nested types. These will be reinserted when examined. Mon Aug 24 01:17:55 1992 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Make a start at documenting all the #if macros in GDB. At least list them all, and start separating them into host-specific and target-specific. Tue Aug 18 15:59:13 1992 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdbinv-s.m4.in: refrain from using @cartouche for just a few examples (not consistent w others). gdb.texinfo: issue disclaimer paragraph on cmdline options only for generic vn of doc Tue Aug 18 14:53:27 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: always create installation directories. Tue Aug 18 14:11:50 1992 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo: in h8 config, do not describe searching commands. Mon Aug 17 18:07:59 1992 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo, none.m4, h8.m4, gdbinv-s.m4.in: improve H8/300 conditionals; introduce a few generic switches that may be useful for other cross-dev or dos-hosted configs. * gdb.texinfo: fix typo in "info reg" description Sun Aug 16 01:16:18 1992 John Gilmore (gnu@cygnus.com) * stabs.texinfo: Minor updates from running TeX over it. * Makefile.in (stabs.dvi, stabs.ps): Add. Sat Aug 15 20:52:24 1992 Per Bothner (bothner@rtl.cygnus.com) * stabs.texinfo: Stabs documentation, written by Julia Menapace. First pass at converting it to texinfo. Sat Aug 15 03:14:59 1992 John Gilmore (gnu@cygnus.com) * gdb.texinfo, refcard.tex: Document mult args on `info reg'. * Makefile.in (refcard.ps, lrefcard.ps): Add missing $(srdir). Fri Aug 14 21:08:47 1992 John Gilmore (gnu@cygnus.com) * gdbint.texinfo: Add section on partial symbol tables. Sat Jun 20 16:31:10 1992 John Gilmore (gnu at cygnus.com) * gdb.texinfo: document `set remotedebug' and `set rstack_high_address'. Thu May 14 17:09:48 1992 Roland H. Pesch (pesch@fowanton.cygnus.com) * gdb.texinfo: slight expansion of new text on reading info files * gdbinv-s.m4.in: correct and expand info on cross-debugging H8/300 from DOS. Tue May 12 12:22:47 1992 John Gilmore (gnu at cygnus.com) * gdb.texinfo: `info user' => `show user'. Noticed by David Taylor. Mon May 11 19:06:27 1992 John Gilmore (gnu at cygnus.com) * gdb.texinfo: Say how to read the `info' files. Tue May 5 12:11:38 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: gm4 -> m4. Fri Apr 10 17:50:43 1992 John Gilmore (gnu at rtl.cygnus.com) * gdb.texinfo: Update for GDB-4.5. Move `Formatting Documentation' ahead of `Installing GDB' to match README. Update shared library doc, -readnow and -mapped, and directory structure (add glob and mmalloc). Update configure doc. Tue Mar 24 23:28:38 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: remove $(srcdir) from gdb.info rule. Sat Mar 7 18:44:50 1992 K. Richard Pixley (rich@rtl.cygnus.com) * Makefile.in: commented out gdb-all.texinfo rule. This is temporary. Wed Feb 26 18:04:40 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in, configure.in: removed traces of namesubdir, -subdirs, $(subdir), $(unsubdir), some rcs triggers. Forced copyrights to '92, changed some from Cygnus to FSF. Fri Dec 13 09:47:31 1991 John Gilmore (gnu at cygnus.com) * gdb.texinfo: Improve how we ask for bug reports. Tue Dec 10 04:07:21 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: infodir belongs in datadir. Fri Dec 6 23:57:34 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: remove spaces following hyphens, bsd make can't cope. install using INSTALL_DATA. added clean-info. added standards.text support. Thu Dec 5 22:46:12 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: idestdir and ddestdir go away. Added copyrights and shift gpl to v2. Added ChangeLog if it didn't exist. docdir and mandir now keyed off datadir by default. Local Variables: mode: indented-text left-margin: 8 fill-column: 74 version-control: never End: gdb-4.13/gdb/doc/Makefile.in 666 34562 1752 24477 5555567416 14163 0ustar fnfcygnus##Copyright (C) 1991, 1992 Free Software Foundation, Inc. # Makefile for GDB documentation. # This file is part of GDB. # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. srcdir = . prefix = /usr/local infodir = $(prefix)/info SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) # main GDB source directory gdbdir = $(srcdir)/.. # where to find texinfo; GDB dist should include a recent one TEXIDIR=${gdbdir}/../texinfo # where to find makeinfo, preferably one designed for texinfo-2 MAKEINFO=makeinfo # where to find texi2roff, ditto TEXI2ROFF=texi2roff # Where is the source dir for the READLINE library doc? # Traditionally readline is in .. or . READLINE_DIR = ${gdbdir}/../readline/doc SET_TEXINPUTS = TEXINPUTS=${TEXIDIR}:.:$(srcdir):$(READLINE_DIR):$$TEXINPUTS # There may be alternate predefined collections of switches to configure # the GDB manual. Normally this is not done in synch with the software # config system, since this choice tends to be independent; most people # want a doc config of `all' for a generic manual, regardless of sw config. DOC_CONFIG = all # This list of sed edits will edit the GDB reference card # for what fonts and what papersize to use. # By default (NO edits applied), the refcard uses: # - Computer Modern (CM) fonts # - US letter paper (8.5x11in) # List some of the following files for alternative fonts and paper: # a4rc.sed use A4 paper (297 x 210 mm) # psrc.sed use PostScript fonts (Karl Berry short TeX names) # lpsrc.sed use PostScript fonts (full PostScript names in TeX) # e.g. for A4, Postscript: REFEDITS = a4rc.sed psrc.sed # for A4, CM fonts: REFEDITS = a4rc.sed # for US, PS fonts: REFEDITS = psrc.sed # for default: REFEDITS = # Don Knuth's TeX formatter TEX = tex # auxiliary program for sorting Texinfo indices TEXINDEX = texindex # Main GDB manual's source files SFILES_INCLUDED = gdb-cfg.texi $(srcdir)/remote.texi SFILES_LOCAL = $(srcdir)/gdb.texinfo GDBvn.texi $(SFILES_INCLUDED) SFILES_DOC = $(SFILES_LOCAL) \ $(READLINE_DIR)/rluser.texinfo $(READLINE_DIR)/inc-hist.texi #### Host, target, and site specific Makefile fragments come in here. ### all install: info: gdb.info gdbint.info stabs.info dvi: gdb.dvi refcard.dvi gdbint.dvi all-doc: gdb.info gdb.dvi refcard.dvi gdb-internals gdbint.dvi install-info: info for i in *.info* ; do \ $(INSTALL_DATA) $$i $(infodir)/$$i ; \ done STAGESTUFF = *.info* gdb-all.texi GDBvn.texi # Copy the object files from a particular stage into a subdirectory. stage1: force -mkdir stage1 -mv $(STAGESTUFF) stage1 stage2: force -mkdir stage2 -mv $(STAGESTUFF) stage2 stage3: force -mkdir stage3 -mv $(STAGESTUFF) stage3 against=stage2 comparison: force for i in $(STAGESTUFF) ; do cmp $$i $(against)/$$i ; done de-stage1: force -(cd stage1 ; mv -f * ..) -rmdir stage1 de-stage2: force -(cd stage2 ; mv -f * ..) -rmdir stage2 de-stage3: force -(cd stage3 ; mv -f * ..) -rmdir stage3 clean-info: rm -f gdb.info* gdbint.info* stabs.info* clean-dvi: rm -f gdb.dvi gdbint.dvi stabs.dvi sedref.dvi mostlyclean: clean-info clean-dvi rm -f gdb.?? gdb.??? gdb.mm gdb.ms gdb.me rm -f links2roff rm -f refcard.ps lrefcard.ps refcard.log sedref.* *~ rm -f gdbint.?? gdbint.??? stabs.?? stabs.??? clean: mostlyclean rm -f rluser.texinfo inc-hist.texi gdb-cfg.texi distclean: clean rm -f Makefile config.status # GDBvn.texi and refcard.dvi are distributed, so they should not be # removed by "clean" or "distclean". realclean: distclean clean-dvi clean-info rm -f GDBvn.texi refcard.dvi # GDB QUICK REFERENCE (dvi output) refcard.dvi : refcard.tex $(REFEDITS) if [ -z "$(REFEDITS)" ]; then \ cp $(srcdir)/refcard.tex sedref.tex ; \ else \ echo > tmp.sed ; \ for f in "$(REFEDITS)" ; do \ cat $(srcdir)/$$f >>tmp.sed ; done ; \ sed -f tmp.sed $(srcdir)/refcard.tex >sedref.tex ; \ fi $(SET_TEXINPUTS) $(TEX) sedref.tex mv sedref.dvi refcard.dvi rm -f sedref.log sedref.tex tmp.sed refcard.ps : refcard.dvi dvips -t landscape refcard.dvi -o # File to record current GDB version number (copied from main dir Makefile.in) GDBvn.texi : ${gdbdir}/Makefile.in echo "@set GDBVN `sed <$(srcdir)/../Makefile.in -n 's/VERSION = //p'`" > ./GDBvn.new mv GDBvn.new GDBvn.texi # Updated atomically .PRECIOUS: GDBvn.texi # Choose configuration for GDB manual (normally `all'; normally not tied into # `configure' script because most users prefer generic version of manual, # not one for their binary config---which may not be specifically # defined anyways). gdb-cfg.texi: ${srcdir}/${DOC_CONFIG}-cfg.texi ln -s ${srcdir}/${DOC_CONFIG}-cfg.texi gdb-cfg.texi || \ ln ${srcdir}/${DOC_CONFIG}-cfg.texi gdb-cfg.texi || \ cp ${srcdir}/${DOC_CONFIG}-cfg.texi gdb-cfg.texi # GDB MANUAL: texinfo source, using @set/@clear/@value/@ifset/@ifclear # If your texinfo or makeinfo don't support these, get a new texinfo release # # The nonsense with GDBvn.texi gets this to run with both Sun and GNU make. # Note that we can *generate* GDBvn.texi, but since we distribute one in the # source directory for the benefit of people who *don't* use this makefile, # VPATH will often tell make not to bother building it, because the one # in the srcdir is up to date. (if not, then make should build one here). # GDB MANUAL: TeX dvi file gdb.dvi: ${SFILES_DOC} if [ ! -f ./GDBvn.texi ]; then \ ln -s $(srcdir)/GDBvn.texi . || \ ln $(srcdir)/GDBvn.texi . || \ cp $(srcdir)/GDBvn.texi . ; else true; fi $(SET_TEXINPUTS) $(TEX) gdb.texinfo $(SET_TEXINPUTS) $(TEX) gdb.texinfo $(TEXINDEX) gdb.?? $(SET_TEXINPUTS) $(TEX) gdb.texinfo rm -f gdb.?? gdb.log gdb.aux gdb.toc gdb.??s # GDB MANUAL: info file # We're using texinfo2, and older makeinfo's may not be able to # cope with all the markup. gdb.info: ${SFILES_DOC} $(MAKEINFO) -I ${READLINE_DIR} -I $(srcdir) -o ./gdb.info gdb.texinfo # GDB MANUAL: roff translations # Try to use a recent texi2roff. v2 was put on prep in jan91. # If you want an index, see texi2roff doc for postprocessing # and add -i to texi2roff invocations below. # Workarounds for texi2roff-2 (probably fixed in later texi2roff's, delete # corresponding -e lines when later texi2roff's are current) # + @ifinfo's deleted explicitly due to texi2roff-2 bug w nested constructs. # + @c's deleted explicitly because texi2roff sees texinfo commands in them # + @ (that's at-BLANK) not recognized by texi2roff, turned into blank # + @alphaenumerate is ridiculously new, turned into @enumerate # texi2roff doesn't have a notion of include dirs, so we have to fake # it out for gdb manual's include files---but only if not configured # in main sourcedir. links2roff: $(SFILES_INCLUDED) if [ ! -f gdb.texinfo ]; then \ ln -s $(SFILES_INCLUDED) . || \ ln $(SFILES_INCLUDED) . || \ cp $(SFILES_INCLUDED) . ; \ fi touch links2roff # "Readline" appendices. Get them also due to lack of includes, # regardless of whether or not configuring in main sourcedir. # @ftable removed due to bug in texi2roff-2; if your texi2roff # is newer, try just ln or cp rluser.texinfo: ${READLINE_DIR}/rluser.texinfo sed -e 's/^@ftable/@table/g' \ -e 's/^@end ftable/@end table/g' \ ${READLINE_DIR}/rluser.texinfo > ./rluser.texinfo inc-hist.texi: ${READLINE_DIR}/inc-hist.texi ln -s ${READLINE_DIR}/inc-hist.texi . || \ ln ${READLINE_DIR}/inc-hist.texi . || \ cp ${READLINE_DIR}/inc-hist.texi . # gdb manual suitable for [gtn]roff -me gdb.me: $(SFILES_LOCAL) links2roff rluser.texinfo inc-hist.texi sed -e '/\\input texinfo/d' \ -e '/@c TEXI2ROFF-KILL/,/@c END TEXI2ROFF-KILL/d' \ -e '/^@ifinfo/,/^@end ifinfo/d' \ -e '/^@c /d' \ -e 's/{.*,,/{/' \ -e 's/@ / /g' \ -e 's/^@alphaenumerate/@enumerate/g' \ -e 's/^@end alphaenumerate/@end enumerate/g' \ $(srcdir)/gdb.texinfo | \ $(TEXI2ROFF) -me | \ sed -e 's/---/\\(em/g' \ >gdb.me # gdb manual suitable for [gtn]roff -ms gdb.ms: $(SFILES_LOCAL) links2roff rluser.texinfo inc-hist.texi sed -e '/\\input texinfo/d' \ -e '/@c TEXI2ROFF-KILL/,/@c END TEXI2ROFF-KILL/d' \ -e '/^@ifinfo/,/^@end ifinfo/d' \ -e '/^@c /d' \ -e 's/{.*,,/{/' \ -e 's/@ / /g' \ -e 's/^@alphaenumerate/@enumerate/g' \ -e 's/^@end alphaenumerate/@end enumerate/g' \ $(srcdir)/gdb.texinfo | \ $(TEXI2ROFF) -ms | \ sed -e 's/---/\\(em/g' \ >gdb.ms # gdb manual suitable for [tn]roff -mm # '@noindent's removed due to texi2roff-2 mm bug; if yours is newer, # try leaving them in gdb.mm: $(SFILES_LOCAL) links2roff rluser.texinfo inc-hist.texi sed -e '/\\input texinfo/d' \ -e '/@c TEXI2ROFF-KILL/,/@c END TEXI2ROFF-KILL/d' \ -e '/^@ifinfo/,/^@end ifinfo/d' \ -e '/^@c /d' \ -e 's/{.*,,/{/' \ -e '/@noindent/d' \ -e 's/@ / /g' \ -e 's/^@alphaenumerate/@enumerate/g' \ -e 's/^@end alphaenumerate/@end enumerate/g' \ $(srcdir)/gdb.texinfo | \ $(TEXI2ROFF) -mm | \ sed -e 's/---/\\(em/g' \ >gdb.mm # GDB INTERNALS MANUAL: TeX dvi file gdbint.dvi : gdbint.texinfo $(SET_TEXINPUTS) $(TEX) gdbint.texinfo $(TEXINDEX) gdbint.?? $(SET_TEXINPUTS) $(TEX) gdbint.texinfo rm -f gdbint.?? gdbint.aux gdbint.cps gdbint.fns gdbint.kys \ gdbint.log gdbint.pgs gdbint.toc gdbint.tps gdbint.vrs # GDB INTERNALS MANUAL: info file gdb-internals: gdbint.info gdbint.info: gdbint.texinfo $(MAKEINFO) -o gdbint.info $(srcdir)/gdbint.texinfo stabs.info: stabs.texinfo $(MAKEINFO) -o stabs.info $(srcdir)/stabs.texinfo # STABS DOCUMENTATION: TeX dvi file stabs.dvi : stabs.texinfo $(SET_TEXINPUTS) $(TEX) stabs.texinfo $(TEXINDEX) stabs.?? $(SET_TEXINPUTS) $(TEX) stabs.texinfo rm -f stabs.?? stabs.aux stabs.cps stabs.fns stabs.kys \ stabs.log stabs.pgs stabs.toc stabs.tps stabs.vrs stabs.ps: stabs.dvi dvips -o stabs.ps stabs force: Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status gdb-4.13/gdb/doc/a4rc.sed 666 34562 1752 662 5461055445 13360 0ustar fnfcygnus/--- Papersize params:/,/--- end papersize params/c\ %------- Papersize params:\ %% A4 paper (297x210mm)\ %%\ \\totalwidth=297mm % total width of paper\ \\totalheight=210mm % total height of paper\ \\hmargin=5mm % horizontal margin width\ \\vmargin=10mm % vertical margin width\ \\secskip=.6pc % space between refcard secs\ \\lskip=1pt % extra skip between \\sec entries\ %------- end papersize params gdb-4.13/gdb/doc/all-cfg.texi 666 34562 1752 5216 5425617621 14252 0ustar fnfcygnus@c GDB MANUAL configuration file. @c Copyright (c) 1993 Free Software Foundation, Inc. @c @c NOTE: While the GDB manual is configurable (by changing these @c switches), its configuration is ***NOT*** automatically tied in to @c source configuration---because the authors expect that, save in @c unusual cases, the most inclusive form of the manual is appropriate @c no matter how the program itself is configured. @c @c The only automatically-varying variable is the GDB version number, @c which the Makefile rewrites based on the VERSION variable from @c `../Makefile.in'. @c @c GDB version number is recorded in the variable GDBVN @include GDBvn.texi @c @c ---------------------------------------------------------------------- @c PLATFORM FLAGS: @set GENERIC @c @c Hitachi H8/300 target: @set H8 @c Hitachi H8/300 target ONLY: @clear H8EXCLUSIVE @c @c remote MIPS target: @set MIPS @c @c SPARC target: @set SPARC @c @c AMD 29000 target: @set AMD29K @c @c Intel 960 target: @set I960 @c @c Tandem ST2000 (phone switch) target: @set ST2000 @c @c Zilog 8000 target: @set Z8K @c @c Lucid "Energize" environment: @clear LUCID @c @c Wind River Systems VxWorks environment: @set VXWORKS @c @c ---------------------------------------------------------------------- @c DOC FEATURE FLAGS: @c @c Include change-from-old? @set NOVEL @c @c Bare-board target? @clear BARETARGET @c @c Restrict languages discussed to C? @c This is backward. As time permits, change this to language-specific @c switches for what to include. @clear CONLY @c Discuss Fortran? @set FORTRAN @c @c Discuss Modula 2? @set MOD2 @c @c Specifically for host machine running DOS? @clear DOSHOST @c @c Talk about CPU simulator targets? @set SIMS @c @c Is manual stand-alone, or part of an agglomeration, with overall GPL? @clear AGGLOMERATION @c @c Remote serial line settings of interest? @set SERIAL @c @c Discuss features requiring Posix or similar OS environment? @set POSIX @c @c Discuss remote serial debugging stub? @set REMOTESTUB @c @c Discuss gdbserver? @set GDBSERVER @c @c Refrain from discussing how to configure sw and format doc? @clear PRECONFIGURED @c @c Refrain from referring to unfree publications? @set FSFDOC @c @c ---------------------------------------------------------------------- @c STRINGS: @c @c Name of GDB program. Used also for (gdb) prompt string. @set GDBP gdb @c @c Name of GDB product. Used in running text. @set GDBN GDB @c @c Name of GDB initialization file. @set GDBINIT .gdbinit @c @c Name of host. Should not be used in generic configs, but generic @c value may catch some flubs. @set HOST machine specific @c @c Name of GCC product @set NGCC GCC @c @c Name of GCC program @set GCC gcc gdb-4.13/gdb/doc/annotate.texi 666 34562 1752 50033 5602161054 14562 0ustar fnfcygnus\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename annotate.info @settitle GDB Annotations @setchapternewpage off @c %**end of header @set EDITION 0.5 @set DATE May 1994 @ifinfo This file documents GDB annotations. This is Edition @value{EDITION}, @value{DATE}, of @cite{GDB Annotations}. Copyright 1994 Free Software Foundation Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through TeX and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end ifinfo @titlepage @title GDB Annotations @subtitle Edition @value{EDITION} @subtitle @value{DATE} @author Cygnus Support @page @vskip 0pt plus 1filll Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Copyright @copyright{} 1994 Free Software Foundation @end titlepage @ifinfo @node Top @top GDB Annotations This file describes annotations in GDB, the GNU symbolic debugger. Annotations are designed to interface GDB to graphical user interfaces or other similar programs which want to interact with GDB at a relatively high level. This is Edition @value{EDITION}, @value{DATE}. @menu * General:: What annotations are; the general syntax. * Server:: Issuing a command without affecting user state. * Values:: Values are marked as such. * Frames:: Stack frames are annotated. * Displays:: GDB can be told to display something periodically. * Prompting:: Annotations marking GDB's need for input. * Errors:: Annotations for error messages. * Breakpoint Info:: Information on breakpoints. * Invalidation:: Some annotations describe things now invalid. * Running:: Whether the program is running, how it stopped, etc. * Source:: Annotations describing source code. * TODO:: Annotations which might be added in the future. * Index:: Index @end menu @end ifinfo @node General @chapter What is an Annotation? To produce annotations, start GDB with the @code{--annotate=2} option. Annotations start with a newline character, two @samp{control-z} characters, and the name of the annotation. If there is no additional information associated with this annotation, the name of the annotation is followed immediately by a newline. If there is additional information, the name of the annotation is followed by a space, the additional information, and a newline. The additional information cannot contain newline characters. Any output not beginning with a newline and two @samp{control-z} characters denotes literal output from GDB. Currently there is no need for GDB to output a newline followed by two @samp{control-z} characters, but if there was such a need, the annotations could be extended with an @samp{escape} annotation which means those three characters as output. A simple example of starting up GDB with annotations is: @example $ gdb --annotate=2 GDB is free software and you are welcome to distribute copies of it under certain conditions; type "show copying" to see the conditions. There is absolutely no warranty for GDB; type "show warranty" for details. GDB 4.12.3 (sparc-sun-sunos4.1.3), Copyright 1994 Free Software Foundation, Inc. ^Z^Zpre-prompt (gdb) ^Z^Zprompt quit ^Z^Zpost-prompt $ @end example Here @samp{quit} is input to GDB; the rest is output from GDB. The three lines beginning @samp{^Z^Z} (where @samp{^Z} denotes a @samp{control-z} character) are annotations; the rest is output from GDB. @node Server @chapter The Server Prefix To issue a command to GDB without affecting certain aspects of the state which is seen by users, prefix it with @samp{server }. This means that this command will not affect the command history, nor will it affect GDB's notion of which command to repeat if @key{RET} is pressed on a line by itself. The server prefix does not affect the recording of values into the value history; to print a value without recording it into the value history, use the @code{output} command instead of the @code{print} command. @node Values @chapter Values When a value is printed in various contexts, GDB uses annotations to delimit the value from the surrounding text. @findex value-history-begin @findex value-history-value @findex value-history-end If a value is printed using @code{print} and added to the value history, the annotation looks like @example ^Z^Zvalue-history-begin @var{history-number} @var{value-flags} @var{history-string} ^Z^Zvalue-history-value @var{the-value} ^Z^Zvalue-history-end @end example where @var{history-number} is the number it is getting in the value history, @var{history-string} is a string, such as @samp{$5 = }, which introduces the value to the user, @var{the-value} is the output corresponding to the value itself, and @var{value-flags} is @samp{*} for a value which can be dereferenced and @samp{-} for a value which cannot. @findex value-begin @findex value-end If the value is not added to the value history (it is an invalid float or it is printed with the @code{output} command), the annotation is similar: @example ^Z^Zvalue-begin @var{value-flags} @var{the-value} ^Z^Zvalue-end @end example @findex arg-begin @findex arg-name-end @findex arg-value @findex arg-end When GDB prints an argument to a function (for example, in the output from the @code{backtrace} command), it annotates it as follows: @example ^Z^Zarg-begin @var{argument-name} ^Z^Zarg-name-end @var{separator-string} ^Z^Zarg-value @var{value-flags} @var{the-value} ^Z^Zarg-end @end example where @var{argument-name} is the name of the argument, @var{separator-string} is text which separates the name from the value for the user's benefit (such as @samp{=}), and @var{value-flags} and @var{the-value} have the same meanings as in a @code{value-history-begin} annotation. @findex field-begin @findex field-name-end @findex field-value @findex field-end When printing a structure, GDB annotates it as follows: @example ^Z^Zfield-begin @var{value-flags} @var{field-name} ^Z^Zfield-name-end @var{separator-string} ^Z^Zfield-value @var{the-value} ^Z^Zfield-end @end example where @var{field-name} is the name of the field, @var{separator-string} is text which separates the name from the value for the user's benefit (such as @samp{=}), and @var{value-flags} and @var{the-value} have the same meanings as in a @code{value-history-begin} annotation. When printing an array, GDB annotates it as follows: @example ^Z^Zarray-section-begin @var{array-index} @var{value-flags} @end example where @var{array-index} is the index of the first element being annotated and @var{value-flags} has the same meaning as in a @code{value-history-begin} annotation. This is followed by any number of elements, where is element can be either a single element: @findex elt @example @samp{,} @var{whitespace} ; @r{omitted for the first element} @var{the-value} ^Z^Zelt @end example or a repeated element @findex elt-rep @findex elt-rep-end @example @samp{,} @var{whitespace} ; @r{omitted for the first element} @var{the-value} ^Z^Zelt-rep @var{number-of-repititions} @var{repetition-string} ^Z^Zelt-rep-end @end example In both cases, @var{the-value} is the output for the value of the element and @var{whitespace} can contain spaces, tabs, and newlines. In the repeated case, @var{number-of-repititons} is the number of consecutive array elements which contain that value, and @var{repetition-string} is a string which is designed to convey to the user that repitition is being depicted. @findex array-section-end Once all the array elements have been output, the array annotation is ended with @example ^Z^Zarray-section-end @end example @node Frames @chapter Frames Whenever GDB prints a frame, it annotates it. For example, this applies to frames printed when GDB stops, output from commands such as @code{backtrace} or @code{up}, etc. @findex frame-begin The frame annotation begins with @example ^Z^Zframe-begin @var{level} @var{address} @var{level-string} @end example where @var{level} is the number of the frame (0 is the innermost frame, and other frames have positive numbers), @var{address} is the address of the code executing in that frame, and @var{level-string} is a string designed to convey the level to the user. The frame ends with @findex frame-end @example ^Z^Zframe-end @end example Between these annotations is the main body of the frame, which can consist of @itemize @bullet @item @findex function-call @example ^Z^Zfunction-call @var{function-call-string} @end example where @var{function-call-string} is text designed to convey to the user that this frame is associated with a function call made by GDB to a function in the program being debugged. @item @findex signal-handler-caller @example ^Z^Zsignal-handler-caller @var{signal-handler-caller-string} @end example where @var{signal-handler-caller-string} is text designed to convey to the user that this frame is associated with whatever mechanism is used by this operating system to call a signal handler (it is the frame which calls the signal handler, not the frame for the signal handler itself). @item A normal frame. @findex frame-address @findex frame-address-end This can optionally (depending on whether this is thought of as interesting information for the user to see) begin with @example ^Z^Zframe-address @var{address} ^Z^Zframe-address-end @var{separator-string} @end example where @var{address} is the address executing in the frame (the same address as in the @code{frame-begin} annotation), and @var{separator-string} is a string intended to separate this address from what follows for the user's benefit. @findex frame-function-name @findex frame-args Then comes @example ^Z^Zframe-function-name @var{function-name} ^Z^Zframe-args @var{arguments} @end example where @var{function-name} is the name of the function executing in the frame, or @samp{??} if not known, and @var{arguments} are the arguments to the frame, with parentheses around them (each argument is annotated individually as well @pxref{Values}). @findex frame-source-begin @findex frame-source-file @findex frame-source-file-end @findex frame-source-line @findex frame-source-end If source information is available, a reference to it is then printed: @example ^Z^Zframe-source-begin @var{source-intro-string} ^Z^Zframe-source-file @var{filename} ^Z^Zframe-source-file-end : ^Z^Zframe-source-line @var{line-number} ^Z^Zframe-source-end @end example where @var{source-intro-string} separates for the user's benefit the reference from the text which precedes it, @var{filename} is the name of the source file, and @var{line-number} is the line number within that file (the first line is line 1). @findex frame-where If GDB prints some information about where the frame is from (which library, which load segment, etc.; currently only done on the RS/6000), it is annotated with @example ^Z^Zframe-where @var{information} @end example Then, if source is to actually be displayed for this frame (for example, this is not true for output from the @code{backtrace} command), then a @code{source} annotation (@pxref{Source}) is displayed. Unlike most annotations, this is output instead of the normal text which would be output, not in addition. @end itemize @node Displays @chapter Displays @findex display-begin @findex display-number-end @findex display-format @findex display-expression @findex display-expression-end @findex display-value @findex display-end When GDB is told to display something using the @code{display} command, the results of the display are annotated: @example ^Z^Zdisplay-begin @var{number} ^Z^Zdisplay-number-end @var{number-separator} ^Z^Zdisplay-format @var{format} ^Z^Zdisplay-expression @var{expression} ^Z^Zdisplay-expression-end @var{expression-separator} ^Z^Zdisplay-value @var{value} ^Z^Zdisplay-end @end example where @var{number} is the number of the display, @var{number-separator} is intended to separate the number from what follows for the user, @var{format} includes information such as the size, format, or other information about how the value is being displayed, @var{expression} is the expression being displayed, @var{expression-separator} is intended to separate the expression from the text that follows for the user, and @var{value} is the actual value being displayed. @node Prompting @chapter Annotation for GDB Input When GDB prompts for input, it annotates this fact so it is possible to know when to send output, when the output from a given command is over, etc. Different kinds of input each have a different @dfn{input type}. Each input type has three annotations: a @code{pre-} annotation, which denotes the beginning of any prompt which is being output, a plain annotation, which denotes the end of the prompt, and then a @code{post-} annotation which denotes the end of any echo which may (or may not) be associated with the input. For example, the @code{prompt} input type features the following annotations: @example ^Z^Zpre-prompt ^Z^Zprompt ^Z^Zpost-prompt @end example The input types are @table @code @findex pre-prompt @findex prompt @findex post-prompt @item prompt When GDB is prompting for a command (the main GDB prompt). @findex pre-commands @findex commands @findex post-commands @item commands When GDB prompts for a set of commands, like in the @code{commands} command. The annotations are repeated for each command which is input. @findex pre-overload-choice @findex overload-choice @findex post-overload-choice @item overload-choice When GDB wants the user to select between various overloaded functions. @findex pre-query @findex query @findex post-query @item query When GDB wants the user to confirm a potentially dangerous operation. @findex pre-prompt-for-continue @findex prompt-for-continue @findex post-prompt-for-continue @item prompt-for-continue When GDB is asking the user to press return to continue. Note: Don't expect this to work well; instead use @code{set height 0} to disable prompting. This is because the counting of lines is buggy in the presence of annotations. @end table @node Errors @chapter Errors @findex quit @example ^Z^Zquit @end example This annotation occurs right before GDB responds to an interrupt. @findex error @example ^Z^Zerror @end example This annotation occurs right before GDB responds to an error. Quit and error annotations indicate that any annotations which GDB was in the middle of may end abruptly. For example, if a @code{value-history-begin} annotation is followed by a @code{error}, one cannot expect to receive the matching @code{value-history-end}. One cannot expect not to receive it either, however; an error annotation does not necessarily mean that GDB is immediately returning all the way to the top level. @findex error-begin A quit or error annotation may be preceded by @example ^Z^Zerror-begin @end example Any output between that and the quit or error annotation is the error message. Warning messages are not yet annotated. @c If we want to change that, need to fix warning(), type_error(), @c range_error(), and possibly other places. @node Breakpoint Info @chapter Information on Breakpoints The output from the @code{info breakpoints} command is annotated as follows: @findex breakpoints-headers @findex breakpoints-table @example ^Z^Zbreakpoints-headers @var{header-entry} ^Z^Zbreakpoints-table @end example where @var{header-entry} has the same syntax as an entry (see below) but instead of containing data, it contains strings which are intended to convey the meaning of each field to the user. This is followed by any number of entries. If a field does not apply for this entry, it is omitted. Fields may contain trailing whitespace. Each entry consists of: @findex record @findex field @example ^Z^Zrecord ^Z^Zfield 0 @var{number} ^Z^Zfield 1 @var{type} ^Z^Zfield 2 @var{disposition} ^Z^Zfield 3 @var{enable} ^Z^Zfield 4 @var{address} ^Z^Zfield 5 @var{what} ^Z^Zfield 6 @var{frame} ^Z^Zfield 7 @var{condition} ^Z^Zfield 8 @var{ignore-count} ^Z^Zfield 9 @var{commands} @end example The output ends with @findex breakpoints-table-end @example ^Z^Zbreakpoints-table-end @end example @node Invalidation @chapter Invalidation Notices The following annotations say that certain pieces of state may have changed. @table @code @findex frames-invalid @item ^Z^Zframes-invalid The frames (for example, output from the @code{backtrace} command) may have changed. @findex breakpoints-invalid @item ^Z^Zbreakpoints-invalid The breakpoints may have changed. For example, the user just added or deleted a breakpoint. @end table @node Running @chapter Running the Program @findex starting @findex stopping When the program starts executing due to a GDB command such as @code{step} or @code{continue}, @example ^Z^Zstarting @end example is output. When the program stops, @example ^Z^Zstopped @end example is output. Before the @code{stopped} annotation, a variety of annotations describe how the program stopped. @table @code @findex exited @item ^Z^Zexited @var{exit-status} The program exited, and @var{exit-status} is the exit status (zero for successful exit, otherwise nonzero). @findex signalled @findex signal-name @findex signal-name-end @findex signal-string @findex signal-string-end @item ^Z^Zsignalled The program exited with a signal. After the @code{^Z^Zsignalled}, the annotation continues: @example @var{intro-text} ^Z^Zsignal-name @var{name} ^Z^Zsignal-name-end @var{middle-text} ^Z^Zsignal-string @var{string} ^Z^Zsignal-string-end @var{end-text} @end example where @var{name} is the name of the signal, such as @code{SIGILL} or @code{SIGSEGV}, and @var{string} is the explanation of the signal, such as @code{Illegal Instruction} or @code{Segmentation fault}. @var{intro-text}, @var{middle-text}, and @var{end-text} are for the user's benefit and have no particular format. @findex signal @item ^Z^Zsignal The syntax of this annotation is just like @code{signalled}, but GDB is just saying that the program received the signal, not that it was terminated with it. @findex breakpoint @item ^Z^Zbreakpoint @var{number} The program hit breakpoint number @var{number}. @findex watchpoint @item ^Z^Zwatchpoint @var{number} The program hit watchpoint number @var{number}. @end table @node Source @chapter Displaying Source @findex source The following annotation is used instead of displaying source code: @example ^Z^Zsource @var{filename}:@var{line}:@var{character}:@var{middle}:@var{addr} @end example where @var{filename} is an absolute file name indicating which source file, @var{line} is the line number within that file (where 1 is the first line in the file), @var{character} is the character position within the file (where 0 is the first character in the file) (for most debug formats this will necessarily point to the beginning of a line), @var{middle} is @samp{middle} if @var{addr} is in the middle of the line, or @samp{beg} if @var{addr} is at the beginning of the line, and @var{addr} is the address in the target program associated with the source which is being displayed. @node TODO @chapter Annotations We Might Want in the Future @format - target-invalid the target might have changed (registers, heap contents, or execution status). For performance, we might eventually want to hit `registers-invalid' and `all-registers-invalid' with greater precision - systematic annotation for set/show parameters (including invalidation notices). - similarly, `info' returns a list of candidates for invalidation notices. @end format @node Index @unnumbered Index @printindex fn @bye gdb-4.13/gdb/doc/configure.in 666 34562 1752 126 5330110534 14320 0ustar fnfcygnussrcname="GDB doc" srctrigger=gdb.texinfo # per-host: # per-target: files="" links="" gdb-4.13/gdb/doc/gdb.texinfo 666 34562 1752 1174015 5612317704 14266 0ustar fnfcygnus\input texinfo @c -*-texinfo-*- @c Copyright 1988 1989 1990 1991 1992 1993 1994 Free Software Foundation, Inc. @c @c %**start of header @c makeinfo ignores cmds prev to setfilename, so its arg cannot make use @c of @set vars. However, you can override filename with makeinfo -o. @setfilename gdb.info @c @include gdb-cfg.texi @c @ifset GENERIC @settitle Debugging with @value{GDBN} @end ifset @ifclear GENERIC @settitle Debugging with @value{GDBN} (@value{TARGET}) @end ifclear @setchapternewpage odd @c %**end of header @iftex @c @smallbook @c @cropmarks @end iftex @finalout @syncodeindex ky cp @c readline appendices use @vindex @syncodeindex vr cp @c !!set GDB manual's edition---not the same as GDB version! @set EDITION 4.12 @c !!set GDB manual's revision date @set DATE January 1994 @c GDB CHANGELOG CONSULTED BETWEEN: @c Fri Oct 11 23:27:06 1991 John Gilmore (gnu at cygnus.com) @c Sat Dec 22 02:51:40 1990 John Gilmore (gnu at cygint) @c THIS MANUAL REQUIRES TEXINFO-2 macros and info-makers to format properly. @ifinfo @c This is a dir.info fragment to support semi-automated addition of @c manuals to an info tree. zoo@cygnus.com is developing this facility. @format START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY @end format @end ifinfo @c @c @ifinfo This file documents the GNU debugger @value{GDBN}. This is Edition @value{EDITION}, @value{DATE}, of @cite{Debugging with @value{GDBN}: the GNU Source-Level Debugger} for GDB Version @value{GDBVN}. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through TeX and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end ifinfo @titlepage @title Debugging with @value{GDBN} @subtitle The GNU Source-Level Debugger @ifclear GENERIC @subtitle (@value{TARGET}) @end ifclear @sp 1 @subtitle Edition @value{EDITION}, for @value{GDBN} version @value{GDBVN} @subtitle @value{DATE} @author Richard M. Stallman and Roland H. Pesch @page @tex {\parskip=0pt \hfill (Send bugs and comments on @value{GDBN} to bug-gdb\@prep.ai.mit.edu.)\par \hfill {\it Debugging with @value{GDBN}}\par \hfill \TeX{}info \texinfoversion\par \hfill pesch\@cygnus.com\par } @end tex @vskip 0pt plus 1filll Copyright @copyright{} 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. @sp 2 Published by the Free Software Foundation @* 675 Massachusetts Avenue, @* Cambridge, MA 02139 USA @* Printed copies are available for $20 each. @* ISBN 1-882114-11-6 @* Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end titlepage @page @ifinfo @node Top @top Debugging with @value{GDBN} This file describes @value{GDBN}, the GNU symbolic debugger. This is Edition @value{EDITION}, @value{DATE}, for GDB Version @value{GDBVN}. @menu * Summary:: Summary of @value{GDBN} @ifset NOVEL * New Features:: New features since GDB version 3.5 @end ifset @ifclear BARETARGET * Sample Session:: A sample @value{GDBN} session @end ifclear * Invocation:: Getting in and out of @value{GDBN} * Commands:: @value{GDBN} commands * Running:: Running programs under @value{GDBN} * Stopping:: Stopping and continuing * Stack:: Examining the stack * Source:: Examining source files * Data:: Examining data @ifclear CONLY * Languages:: Using @value{GDBN} with different languages @end ifclear @ifset CONLY * C:: C language support @end ifset @c remnant makeinfo bug, blank line needed after two end-ifs? * Symbols:: Examining the symbol table * Altering:: Altering execution * GDB Files:: @value{GDBN} files * Targets:: Specifying a debugging target * Controlling GDB:: Controlling @value{GDBN} * Sequences:: Canned sequences of commands @ifclear DOSHOST * Emacs:: Using @value{GDBN} under GNU Emacs @end ifclear * GDB Bugs:: Reporting bugs in @value{GDBN} * Command Line Editing:: Facilities of the readline library * Using History Interactively:: @ifset NOVEL * Renamed Commands:: @end ifset @ifclear PRECONFIGURED * Formatting Documentation:: How to format and print GDB documentation * Installing GDB:: Installing GDB @end ifclear * Index:: Index @end menu @end ifinfo @node Summary @unnumbered Summary of @value{GDBN} The purpose of a debugger such as @value{GDBN} is to allow you to see what is going on ``inside'' another program while it executes---or what another program was doing at the moment it crashed. @value{GDBN} can do four main kinds of things (plus other things in support of these) to help you catch bugs in the act: @itemize @bullet @item Start your program, specifying anything that might affect its behavior. @item Make your program stop on specified conditions. @item Examine what has happened, when your program has stopped. @item Change things in your program, so you can experiment with correcting the effects of one bug and go on to learn about another. @end itemize @ifclear CONLY You can use @value{GDBN} to debug programs written in C or C++. @c "MOD2" used as a "miscellaneous languages" flag here. @c This is acceptable while there is no real doc for Chill and Pascal. @ifclear MOD2 For more information, see @ref{Support,,Supported languages}. @end ifclear @ifset MOD2 For more information, see @ref{C,,C and C++}. Support for Modula-2 and Chill is partial. For information on Modula-2, see @ref{Modula-2,,Modula-2}. There is no further documentation on Chill yet. Debugging Pascal programs which use sets, subranges, file variables, or nested functions does not currently work. @value{GDBN} does not support entering expressions, printing values, or similar features using Pascal syntax. @end ifset @ifset FORTRAN @cindex Fortran @value{GDBN} can be used to debug programs written in Fortran, although it does not yet support entering expressions, printing values, or similar features using Fortran syntax. It may be necessary to refer to some variables with a trailing underscore. @end ifset @end ifclear @menu * Free Software:: Freely redistributable software * Contributors:: Contributors to GDB @end menu @node Free Software @unnumberedsec Free software @value{GDBN} is @dfn{free software}, protected by the GNU General Public License (GPL). The GPL gives you the freedom to copy or adapt a licensed program---but every person getting a copy also gets with it the freedom to modify that copy (which means that they must get access to the source code), and the freedom to distribute further copies. Typical software companies use copyrights to limit your freedoms; the Free Software Foundation uses the GPL to preserve these freedoms. Fundamentally, the General Public License is a license which says that you have these freedoms and that you cannot take these freedoms away from anyone else. @node Contributors @unnumberedsec Contributors to GDB Richard Stallman was the original author of GDB, and of many other GNU programs. Many others have contributed to its development. This section attempts to credit major contributors. One of the virtues of free software is that everyone is free to contribute to it; with regret, we cannot actually acknowledge everyone here. The file @file{ChangeLog} in the GDB distribution approximates a blow-by-blow account. Changes much prior to version 2.0 are lost in the mists of time. @quotation @emph{Plea:} Additions to this section are particularly welcome. If you or your friends (or enemies, to be evenhanded) have been unfairly omitted from this list, we would like to add your names! @end quotation So that they may not regard their long labor as thankless, we particularly thank those who shepherded GDB through major releases: Fred Fish (releases 4.12, 4.11, 4.10, and 4.9), Stu Grossman and John Gilmore (releases 4.8, 4.7, 4.6, 4.5, and 4.4), John Gilmore (releases 4.3, 4.2, 4.1, 4.0, and 3.9); Jim Kingdon (releases 3.5, 3.4, and 3.3); and Randy Smith (releases 3.2, 3.1, and 3.0). As major maintainer of GDB for some period, each contributed significantly to the structure, stability, and capabilities of the entire debugger. Richard Stallman, assisted at various times by Peter TerMaat, Chris Hanson, and Richard Mlynarik, handled releases through 2.8. @ifclear CONLY Michael Tiemann is the author of most of the GNU C++ support in GDB, with significant additional contributions from Per Bothner. James Clark wrote the GNU C++ demangler. Early work on C++ was by Peter TerMaat (who also did much general update work leading to release 3.0). @end ifclear GDB 4 uses the BFD subroutine library to examine multiple object-file formats; BFD was a joint project of David V. Henkel-Wallace, Rich Pixley, Steve Chamberlain, and John Gilmore. David Johnson wrote the original COFF support; Pace Willison did the original support for encapsulated COFF. Adam de Boor and Bradley Davis contributed the ISI Optimum V support. Per Bothner, Noboyuki Hikichi, and Alessandro Forin contributed MIPS support. Jean-Daniel Fekete contributed Sun 386i support. Chris Hanson improved the HP9000 support. Noboyuki Hikichi and Tomoyuki Hasei contributed Sony/News OS 3 support. David Johnson contributed Encore Umax support. Jyrki Kuoppala contributed Altos 3068 support. Jeff Law contributed HP PA and SOM support. Keith Packard contributed NS32K support. Doug Rabson contributed Acorn Risc Machine support. Bob Rusk contributed Harris Nighthawk CX-UX support. Chris Smith contributed Convex support (and Fortran debugging). Jonathan Stone contributed Pyramid support. Michael Tiemann contributed SPARC support. Tim Tucker contributed support for the Gould NP1 and Gould Powernode. Pace Willison contributed Intel 386 support. Jay Vosburgh contributed Symmetry support. Rich Schaefer and Peter Schauer helped with support of SunOS shared libraries. Jay Fenlason and Roland McGrath ensured that GDB and GAS agree about several machine instruction sets. Patrick Duval, Ted Goldstein, Vikram Koka and Glenn Engel helped develop remote debugging. Intel Corporation and Wind River Systems contributed remote debugging modules for their products. Brian Fox is the author of the readline libraries providing command-line editing and command history. Andrew Beers of SUNY Buffalo wrote the language-switching code, @ifset MOD2 the Modula-2 support, @end ifset and contributed the Languages chapter of this manual. Fred Fish wrote most of the support for Unix System Vr4. @ifclear CONLY He also enhanced the command-completion support to cover C++ overloaded symbols. @end ifclear Hitachi America, Ltd. sponsored the support for Hitachi microprocessors. Kung Hsu, Jeff Law, and Rick Sladkey added support for hardware watchpoints. Stu Grossman wrote gdbserver. Jim Kingdon, Peter Schauer, Ian Taylor, and Stu Grossman made nearly innumerable bug fixes and cleanups throughout GDB. @ifset NOVEL @node New Features @unnumbered New Features since GDB Version 3.5 @table @emph @item Targets Using the new command @code{target}, you can select at runtime whether you are debugging local files, local processes, standalone systems over a serial port, or realtime systems over a TCP/IP connection. The command @code{load} can download programs into a remote system. Serial stubs are available for Motorola 680x0, Intel 80386, and Sparc remote systems; GDB also supports debugging realtime processes running under VxWorks, using SunRPC Remote Procedure Calls over TCP/IP to talk to a debugger stub on the target system. Internally, GDB now uses a function vector to mediate access to different targets; if you need to add your own support for a remote protocol, this makes it much easier. @item Watchpoints GDB now sports watchpoints as well as breakpoints. You can use a watchpoint to stop execution whenever the value of an expression changes, without having to predict a particular place in your program where this may happen. @item Wide Output Commands that issue wide output now insert newlines at places designed to make the output more readable. @item Object Code Formats GDB uses a new library called the Binary File Descriptor (BFD) Library to permit it to switch dynamically, without reconfiguration or recompilation, between different object-file formats. Formats currently supported are COFF, ELF, a.out, Intel 960 b.out, MIPS ECOFF, HPPA SOM (with stabs debugging), and S-records; files may be read as .o files, archive libraries, or core dumps. BFD is available as a subroutine library so that other programs may take advantage of it, and the other GNU binary utilities are being converted to use it. @item Configuration and Ports Compile-time configuration (to select a particular architecture and operating system) is much easier. The script @code{configure} now allows you to configure GDB as either a native debugger or a cross-debugger. @xref{Installing GDB}, for details on how to configure. @item Interaction The user interface to the GDB control variables is simpler, and is consolidated in two commands, @code{set} and @code{show}. Output lines are now broken at readable places, rather than overflowing onto the next line. You can suppress output of machine-level addresses, displaying only source language information. @item C++ GDB now supports C++ multiple inheritance (if used with a GCC version 2 compiler), and also has limited support for C++ exception handling, with the commands @code{catch} and @code{info catch}: GDB can break when an exception is raised, before the stack is peeled back to the exception handler's context. @ifset MOD2 @item Modula-2 GDB now has preliminary support for the GNU Modula-2 compiler, currently under development at the State University of New York at Buffalo. Coordinated development of both GDB and the GNU Modula-2 compiler will continue. Other Modula-2 compilers are currently not supported, and attempting to debug programs compiled with them will likely result in an error as the symbol table of the executable is read in. @end ifset @item Command Rationalization Many GDB commands have been renamed to make them easier to remember and use. In particular, the subcommands of @code{info} and @code{show}/@code{set} are grouped to make the former refer to the state of your program, and the latter refer to the state of GDB itself. @xref{Renamed Commands}, for details on what commands were renamed. @item Shared Libraries GDB 4 can debug programs and core files that use SunOS, SVR4, or IBM RS/6000 shared libraries. @item Threads On some systems, GDB 4 has facilities to debug multi-thread programs. @item Reference Card GDB 4 has a reference card. @xref{Formatting Documentation,,Formatting the Documentation}, for instructions about how to print it. @end table @end ifset @ifclear BARETARGET @node Sample Session @chapter A Sample @value{GDBN} Session You can use this manual at your leisure to read all about @value{GDBN}. However, a handful of commands are enough to get started using the debugger. This chapter illustrates those commands. @iftex In this sample session, we emphasize user input like this: @b{input}, to make it easier to pick out from the surrounding output. @end iftex @c FIXME: this example may not be appropriate for some configs, where @c FIXME...primary interest is in remote use. One of the preliminary versions of GNU @code{m4} (a generic macro processor) exhibits the following bug: sometimes, when we change its quote strings from the default, the commands used to capture one macro definition within another stop working. In the following short @code{m4} session, we define a macro @code{foo} which expands to @code{0000}; we then use the @code{m4} built-in @code{defn} to define @code{bar} as the same thing. However, when we change the open quote string to @code{} and the close quote string to @code{}, the same procedure fails to define a new synonym @code{baz}: @smallexample $ @b{cd gnu/m4} $ @b{./m4} @b{define(foo,0000)} @b{foo} 0000 @b{define(bar,defn(`foo'))} @b{bar} 0000 @b{changequote(,)} @b{define(baz,defn(foo))} @b{baz} @b{C-d} m4: End of input: 0: fatal error: EOF in string @end smallexample @noindent Let us use @value{GDBN} to try to see what is going on. @smallexample $ @b{@value{GDBP} m4} @c FIXME: this falsifies the exact text played out, to permit smallbook @c FIXME... format to come out better. GDB is free software and you are welcome to distribute copies of it under certain conditions; type "show copying" to see the conditions. There is absolutely no warranty for GDB; type "show warranty" for details. GDB @value{GDBVN}, Copyright 1993 Free Software Foundation, Inc... (@value{GDBP}) @end smallexample @noindent @value{GDBN} reads only enough symbol data to know where to find the rest when needed; as a result, the first prompt comes up very quickly. We now tell @value{GDBN} to use a narrower display width than usual, so that examples fit in this manual. @smallexample (@value{GDBP}) @b{set width 70} @end smallexample @noindent We need to see how the @code{m4} built-in @code{changequote} works. Having looked at the source, we know the relevant subroutine is @code{m4_changequote}, so we set a breakpoint there with the @value{GDBN} @code{break} command. @smallexample (@value{GDBP}) @b{break m4_changequote} Breakpoint 1 at 0x62f4: file builtin.c, line 879. @end smallexample @noindent Using the @code{run} command, we start @code{m4} running under @value{GDBN} control; as long as control does not reach the @code{m4_changequote} subroutine, the program runs as usual: @smallexample (@value{GDBP}) @b{run} Starting program: /work/Editorial/gdb/gnu/m4/m4 @b{define(foo,0000)} @b{foo} 0000 @end smallexample @noindent To trigger the breakpoint, we call @code{changequote}. @value{GDBN} suspends execution of @code{m4}, displaying information about the context where it stops. @smallexample @b{changequote(,)} Breakpoint 1, m4_changequote (argc=3, argv=0x33c70) at builtin.c:879 879 if (bad_argc(TOKEN_DATA_TEXT(argv[0]),argc,1,3)) @end smallexample @noindent Now we use the command @code{n} (@code{next}) to advance execution to the next line of the current function. @smallexample (@value{GDBP}) @b{n} 882 set_quotes((argc >= 2) ? TOKEN_DATA_TEXT(argv[1])\ : nil, @end smallexample @noindent @code{set_quotes} looks like a promising subroutine. We can go into it by using the command @code{s} (@code{step}) instead of @code{next}. @code{step} goes to the next line to be executed in @emph{any} subroutine, so it steps into @code{set_quotes}. @smallexample (@value{GDBP}) @b{s} set_quotes (lq=0x34c78 "", rq=0x34c88 "") at input.c:530 530 if (lquote != def_lquote) @end smallexample @noindent The display that shows the subroutine where @code{m4} is now suspended (and its arguments) is called a stack frame display. It shows a summary of the stack. We can use the @code{backtrace} command (which can also be spelled @code{bt}), to see where we are in the stack as a whole: the @code{backtrace} command displays a stack frame for each active subroutine. @smallexample (@value{GDBP}) @b{bt} #0 set_quotes (lq=0x34c78 "", rq=0x34c88 "") at input.c:530 #1 0x6344 in m4_changequote (argc=3, argv=0x33c70) at builtin.c:882 #2 0x8174 in expand_macro (sym=0x33320) at macro.c:242 #3 0x7a88 in expand_token (obs=0x0, t=209696, td=0xf7fffa30) at macro.c:71 #4 0x79dc in expand_input () at macro.c:40 #5 0x2930 in main (argc=0, argv=0xf7fffb20) at m4.c:195 @end smallexample @noindent We step through a few more lines to see what happens. The first two times, we can use @samp{s}; the next two times we use @code{n} to avoid falling into the @code{xstrdup} subroutine. @smallexample (@value{GDBP}) @b{s} 0x3b5c 532 if (rquote != def_rquote) (@value{GDBP}) @b{s} 0x3b80 535 lquote = (lq == nil || *lq == '\0') ? \ def_lquote : xstrdup(lq); (@value{GDBP}) @b{n} 536 rquote = (rq == nil || *rq == '\0') ? def_rquote\ : xstrdup(rq); (@value{GDBP}) @b{n} 538 len_lquote = strlen(rquote); @end smallexample @noindent The last line displayed looks a little odd; we can examine the variables @code{lquote} and @code{rquote} to see if they are in fact the new left and right quotes we specified. We use the command @code{p} (@code{print}) to see their values. @smallexample (@value{GDBP}) @b{p lquote} $1 = 0x35d40 "" (@value{GDBP}) @b{p rquote} $2 = 0x35d50 "" @end smallexample @noindent @code{lquote} and @code{rquote} are indeed the new left and right quotes. To look at some context, we can display ten lines of source surrounding the current line with the @code{l} (@code{list}) command. @smallexample (@value{GDBP}) @b{l} 533 xfree(rquote); 534 535 lquote = (lq == nil || *lq == '\0') ? def_lquote\ : xstrdup (lq); 536 rquote = (rq == nil || *rq == '\0') ? def_rquote\ : xstrdup (rq); 537 538 len_lquote = strlen(rquote); 539 len_rquote = strlen(lquote); 540 @} 541 542 void @end smallexample @noindent Let us step past the two lines that set @code{len_lquote} and @code{len_rquote}, and then examine the values of those variables. @smallexample (@value{GDBP}) @b{n} 539 len_rquote = strlen(lquote); (@value{GDBP}) @b{n} 540 @} (@value{GDBP}) @b{p len_lquote} $3 = 9 (@value{GDBP}) @b{p len_rquote} $4 = 7 @end smallexample @noindent That certainly looks wrong, assuming @code{len_lquote} and @code{len_rquote} are meant to be the lengths of @code{lquote} and @code{rquote} respectively. We can set them to better values using the @code{p} command, since it can print the value of any expression---and that expression can include subroutine calls and assignments. @smallexample (@value{GDBP}) @b{p len_lquote=strlen(lquote)} $5 = 7 (@value{GDBP}) @b{p len_rquote=strlen(rquote)} $6 = 9 @end smallexample @noindent Is that enough to fix the problem of using the new quotes with the @code{m4} built-in @code{defn}? We can allow @code{m4} to continue executing with the @code{c} (@code{continue}) command, and then try the example that caused trouble initially: @smallexample (@value{GDBP}) @b{c} Continuing. @b{define(baz,defn(foo))} baz 0000 @end smallexample @noindent Success! The new quotes now work just as well as the default ones. The problem seems to have been just the two typos defining the wrong lengths. We allow @code{m4} exit by giving it an EOF as input: @smallexample @b{C-d} Program exited normally. @end smallexample @noindent The message @samp{Program exited normally.} is from @value{GDBN}; it indicates @code{m4} has finished executing. We can end our @value{GDBN} session with the @value{GDBN} @code{quit} command. @smallexample (@value{GDBP}) @b{quit} @end smallexample @end ifclear @node Invocation @chapter Getting In and Out of @value{GDBN} This chapter discusses how to start @value{GDBN}, and how to get out of it. (The essentials: type @samp{@value{GDBP}} to start GDB, and type @kbd{quit} or @kbd{C-d} to exit.) @menu * Invoking GDB:: How to start @value{GDBN} * Quitting GDB:: How to quit @value{GDBN} * Shell Commands:: How to use shell commands inside @value{GDBN} @end menu @node Invoking GDB @section Invoking @value{GDBN} @ifset H8EXCLUSIVE For details on starting up @value{GDBP} as a remote debugger attached to a Hitachi microprocessor, see @ref{Hitachi Remote,,@value{GDBN} and Hitachi Microprocessors}. @end ifset Invoke @value{GDBN} by running the program @code{@value{GDBP}}. Once started, @value{GDBN} reads commands from the terminal until you tell it to exit. You can also run @code{@value{GDBP}} with a variety of arguments and options, to specify more of your debugging environment at the outset. @ifset GENERIC The command-line options described here are designed to cover a variety of situations; in some environments, some of these options may effectively be unavailable. @end ifset The most usual way to start @value{GDBN} is with one argument, specifying an executable program: @example @value{GDBP} @var{program} @end example @ifclear BARETARGET @noindent You can also start with both an executable program and a core file specified: @example @value{GDBP} @var{program} @var{core} @end example You can, instead, specify a process ID as a second argument, if you want to debug a running process: @example @value{GDBP} @var{program} 1234 @end example @noindent would attach @value{GDBN} to process @code{1234} (unless you also have a file named @file{1234}; @value{GDBN} does check for a core file first). Taking advantage of the second command-line argument requires a fairly complete operating system; when you use @value{GDBN} as a remote debugger attached to a bare board, there may not be any notion of ``process'', and there is often no way to get a core dump. @end ifclear @noindent You can further control how @value{GDBN} starts up by using command-line options. @value{GDBN} itself can remind you of the options available. @noindent Type @example @value{GDBP} -help @end example @noindent to display all available options and briefly describe their use (@samp{@value{GDBP} -h} is a shorter equivalent). All options and command line arguments you give are processed in sequential order. The order makes a difference when the @samp{-x} option is used. @menu @ifclear GENERIC @ifset REMOTESTUB * Remote Serial:: @value{GDBN} remote serial protocol @end ifset @ifset I960 * i960-Nindy Remote:: @value{GDBN} with a remote i960 (Nindy) @end ifset @ifset AMD29K * UDI29K Remote:: The UDI protocol for AMD29K * EB29K Remote:: The EBMON protocol for AMD29K @end ifset @ifset VXWORKS * VxWorks Remote:: @value{GDBN} and VxWorks @end ifset @ifset ST2000 * ST2000 Remote:: @value{GDBN} with a Tandem ST2000 @end ifset @ifset H8 * Hitachi Remote:: @value{GDBN} and Hitachi Microprocessors @end ifset @ifset MIPS * MIPS Remote:: @value{GDBN} and MIPS boards @end ifset @ifset SIMS * Simulator:: Simulated CPU target @end ifset @end ifclear @c remnant makeinfo bug requires this blank line after *two* end-ifblahs: * File Options:: Choosing files * Mode Options:: Choosing modes @end menu @ifclear GENERIC @include remote.texi @end ifclear @node File Options @subsection Choosing files @ifclear BARETARGET When @value{GDBN} starts, it reads any arguments other than options as specifying an executable file and core file (or process ID). This is the same as if the arguments were specified by the @samp{-se} and @samp{-c} options respectively. (@value{GDBN} reads the first argument that does not have an associated option flag as equivalent to the @samp{-se} option followed by that argument; and the second argument that does not have an associated option flag, if any, as equivalent to the @samp{-c} option followed by that argument.) @end ifclear @ifset BARETARGET When @value{GDBN} starts, it reads any argument other than options as specifying an executable file. This is the same as if the argument was specified by the @samp{-se} option. @end ifset Many options have both long and short forms; both are shown in the following list. @value{GDBN} also recognizes the long forms if you truncate them, so long as enough of the option is present to be unambiguous. (If you prefer, you can flag option arguments with @samp{--} rather than @samp{-}, though we illustrate the more usual convention.) @table @code @item -symbols @var{file} @itemx -s @var{file} Read symbol table from file @var{file}. @item -exec @var{file} @itemx -e @var{file} Use file @var{file} as the executable file to execute when @ifset BARETARGET appropriate. @end ifset @ifclear BARETARGET appropriate, and for examining pure data in conjunction with a core dump. @end ifclear @item -se @var{file} Read symbol table from file @var{file} and use it as the executable file. @ifclear BARETARGET @item -core @var{file} @itemx -c @var{file} Use file @var{file} as a core dump to examine. @item -c @var{number} Connect to process ID @var{number}, as with the @code{attach} command (unless there is a file in core-dump format named @var{number}, in which case @samp{-c} specifies that file as a core dump to read). @end ifclear @item -command @var{file} @itemx -x @var{file} Execute @value{GDBN} commands from file @var{file}. @xref{Command Files,, Command files}. @item -directory @var{directory} @itemx -d @var{directory} Add @var{directory} to the path to search for source files. @ifclear BARETARGET @item -m @itemx -mapped @emph{Warning: this option depends on operating system facilities that are not supported on all systems.}@* If memory-mapped files are available on your system through the @code{mmap} system call, you can use this option to have @value{GDBN} write the symbols from your program into a reusable file in the current directory. If the program you are debugging is called @file{/tmp/fred}, the mapped symbol file is @file{./fred.syms}. Future @value{GDBN} debugging sessions notice the presence of this file, and can quickly map in symbol information from it, rather than reading the symbol table from the executable program. @c FIXME! Really host, not target? The @file{.syms} file is specific to the host machine where @value{GDBN} is run. It holds an exact image of the internal @value{GDBN} symbol table. It cannot be shared across multiple host platforms. @end ifclear @item -r @itemx -readnow Read each symbol file's entire symbol table immediately, rather than the default, which is to read it incrementally as it is needed. This makes startup slower, but makes future operations faster. @end table @ifclear BARETARGET The @code{-mapped} and @code{-readnow} options are typically combined in order to build a @file{.syms} file that contains complete symbol information. (@xref{Files,,Commands to specify files}, for information on @file{.syms} files.) A simple GDB invocation to do nothing but build a @file{.syms} file for future use is: @example gdb -batch -nx -mapped -readnow programname @end example @end ifclear @node Mode Options @subsection Choosing modes You can run @value{GDBN} in various alternative modes---for example, in batch mode or quiet mode. @table @code @item -nx @itemx -n Do not execute commands from any initialization files (normally called @file{@value{GDBINIT}}). Normally, the commands in these files are executed after all the command options and arguments have been processed. @xref{Command Files,,Command files}. @item -quiet @itemx -q ``Quiet''. Do not print the introductory and copyright messages. These messages are also suppressed in batch mode. @item -batch Run in batch mode. Exit with status @code{0} after processing all the command files specified with @samp{-x} (and all commands from initialization files, if not inhibited with @samp{-n}). Exit with nonzero status if an error occurs in executing the @value{GDBN} commands in the command files. Batch mode may be useful for running @value{GDBN} as a filter, for example to download and run a program on another computer; in order to make this more useful, the message @example Program exited normally. @end example @noindent (which is ordinarily issued whenever a program running under @value{GDBN} control terminates) is not issued when running in batch mode. @item -cd @var{directory} Run @value{GDBN} using @var{directory} as its working directory, instead of the current directory. @ifset LUCID @item -context @var{authentication} When the Energize programming system starts up @value{GDBN}, it uses this option to trigger an alternate mode of interaction. @var{authentication} is a pair of numeric codes that identify @value{GDBN} as a client in the Energize environment. Avoid this option when you run @value{GDBN} directly from the command line. See @ref{Energize,,Using @value{GDBN} with Energize} for more discussion of using @value{GDBN} with Energize. @end ifset @ifclear DOSHOST @item -fullname @itemx -f Emacs sets this option when it runs @value{GDBN} as a subprocess. It tells @value{GDBN} to output the full file name and line number in a standard, recognizable fashion each time a stack frame is displayed (which includes each time your program stops). This recognizable format looks like two @samp{\032} characters, followed by the file name, line number and character position separated by colons, and a newline. The Emacs-to-@value{GDBN} interface program uses the two @samp{\032} characters as a signal to display the source code for the frame. @end ifclear @ifset SERIAL @item -b @var{bps} Set the line speed (baud rate or bits per second) of any serial interface used by @value{GDBN} for remote debugging. @item -tty @var{device} Run using @var{device} for your program's standard input and output. @c FIXME: kingdon thinks there is more to -tty. Investigate. @end ifset @end table @node Quitting GDB @section Quitting @value{GDBN} @cindex exiting @value{GDBN} @cindex leaving @value{GDBN} @table @code @item quit @kindex quit @kindex q To exit @value{GDBN}, use the @code{quit} command (abbreviated @code{q}), or type an end-of-file character (usually @kbd{C-d}). @end table @cindex interrupt An interrupt (often @kbd{C-c}) does not exit from @value{GDBN}, but rather terminates the action of any @value{GDBN} command that is in progress and returns to @value{GDBN} command level. It is safe to type the interrupt character at any time because @value{GDBN} does not allow it to take effect until a time when it is safe. @ifclear BARETARGET If you have been using @value{GDBN} to control an attached process or device, you can release it with the @code{detach} command (@pxref{Attach, ,Debugging an already-running process}). @end ifclear @node Shell Commands @section Shell commands If you need to execute occasional shell commands during your debugging session, there is no need to leave or suspend @value{GDBN}; you can just use the @code{shell} command. @table @code @item shell @var{command string} @kindex shell @cindex shell escape Invoke a the standard shell to execute @var{command string}. @ifclear DOSHOST If it exists, the environment variable @code{SHELL} determines which shell to run. Otherwise @value{GDBN} uses @code{/bin/sh}. @end ifclear @end table The utility @code{make} is often needed in development environments. You do not have to use the @code{shell} command for this purpose in @value{GDBN}: @table @code @item make @var{make-args} @kindex make @cindex calling make Execute the @code{make} program with the specified arguments. This is equivalent to @samp{shell make @var{make-args}}. @end table @node Commands @chapter @value{GDBN} Commands You can abbreviate a @value{GDBN} command to the first few letters of the command name, if that abbreviation is unambiguous; and you can repeat certain @value{GDBN} commands by typing just @key{RET}. You can also use the @key{TAB} key to get @value{GDBN} to fill out the rest of a word in a command (or to show you the alternatives available, if there is more than one possibility). @menu * Command Syntax:: How to give commands to @value{GDBN} * Completion:: Command completion * Help:: How to ask @value{GDBN} for help @end menu @node Command Syntax @section Command syntax A @value{GDBN} command is a single line of input. There is no limit on how long it can be. It starts with a command name, which is followed by arguments whose meaning depends on the command name. For example, the command @code{step} accepts an argument which is the number of times to step, as in @samp{step 5}. You can also use the @code{step} command with no arguments. Some command names do not allow any arguments. @cindex abbreviation @value{GDBN} command names may always be truncated if that abbreviation is unambiguous. Other possible command abbreviations are listed in the documentation for individual commands. In some cases, even ambiguous abbreviations are allowed; for example, @code{s} is specially defined as equivalent to @code{step} even though there are other commands whose names start with @code{s}. You can test abbreviations by using them as arguments to the @code{help} command. @cindex repeating commands @kindex RET A blank line as input to @value{GDBN} (typing just @key{RET}) means to repeat the previous command. Certain commands (for example, @code{run}) will not repeat this way; these are commands whose unintentional repetition might cause trouble and which you are unlikely to want to repeat. The @code{list} and @code{x} commands, when you repeat them with @key{RET}, construct new arguments rather than repeating exactly as typed. This permits easy scanning of source or memory. @value{GDBN} can also use @key{RET} in another way: to partition lengthy output, in a way similar to the common utility @code{more} (@pxref{Screen Size,,Screen size}). Since it is easy to press one @key{RET} too many in this situation, @value{GDBN} disables command repetition after any command that generates this sort of display. @kindex # @cindex comment Any text from a @kbd{#} to the end of the line is a comment; it does nothing. This is useful mainly in command files (@pxref{Command Files,,Command files}). @node Completion @section Command completion @cindex completion @cindex word completion @value{GDBN} can fill in the rest of a word in a command for you, if there is only one possibility; it can also show you what the valid possibilities are for the next word in a command, at any time. This works for @value{GDBN} commands, @value{GDBN} subcommands, and the names of symbols in your program. Press the @key{TAB} key whenever you want @value{GDBN} to fill out the rest of a word. If there is only one possibility, @value{GDBN} fills in the word, and waits for you to finish the command (or press @key{RET} to enter it). For example, if you type @c FIXME "@key" does not distinguish its argument sufficiently to permit @c complete accuracy in these examples; space introduced for clarity. @c If texinfo enhancements make it unnecessary, it would be nice to @c replace " @key" by "@key" in the following... @example (@value{GDBP}) info bre @key{TAB} @end example @noindent @value{GDBN} fills in the rest of the word @samp{breakpoints}, since that is the only @code{info} subcommand beginning with @samp{bre}: @example (@value{GDBP}) info breakpoints @end example @noindent You can either press @key{RET} at this point, to run the @code{info breakpoints} command, or backspace and enter something else, if @samp{breakpoints} does not look like the command you expected. (If you were sure you wanted @code{info breakpoints} in the first place, you might as well just type @key{RET} immediately after @samp{info bre}, to exploit command abbreviations rather than command completion). If there is more than one possibility for the next word when you press @key{TAB}, @value{GDBN} sounds a bell. You can either supply more characters and try again, or just press @key{TAB} a second time; @value{GDBN} displays all the possible completions for that word. For example, you might want to set a breakpoint on a subroutine whose name begins with @samp{make_}, but when you type @kbd{b make_@key{TAB}} @value{GDBN} just sounds the bell. Typing @key{TAB} again displays all the function names in your program that begin with those characters, for example: @example (@value{GDBP}) b make_ @key{TAB} @exdent @value{GDBN} sounds bell; press @key{TAB} again, to see: make_a_section_from_file make_environ make_abs_section make_function_type make_blockvector make_pointer_type make_cleanup make_reference_type make_command make_symbol_completion_list (@value{GDBP}) b make_ @end example @noindent After displaying the available possibilities, @value{GDBN} copies your partial input (@samp{b make_} in the example) so you can finish the command. If you just want to see the list of alternatives in the first place, you can press @kbd{M-?} rather than pressing @key{TAB} twice. @kbd{M-?} means @kbd{@key{META} ?}. You can type this @ifclear DOSHOST either by holding down a key designated as the @key{META} shift on your keyboard (if there is one) while typing @kbd{?}, or @end ifclear as @key{ESC} followed by @kbd{?}. @cindex quotes in commands @cindex completion of quoted strings Sometimes the string you need, while logically a ``word'', may contain parentheses or other characters that @value{GDBN} normally excludes from its notion of a word. To permit word completion to work in this situation, you may enclose words in @code{'} (single quote marks) in @value{GDBN} commands. @ifclear CONLY The most likely situation where you might need this is in typing the name of a C++ function. This is because C++ allows function overloading (multiple definitions of the same function, distinguished by argument type). For example, when you want to set a breakpoint you may need to distinguish whether you mean the version of @code{name} that takes an @code{int} parameter, @code{name(int)}, or the version that takes a @code{float} parameter, @code{name(float)}. To use the word-completion facilities in this situation, type a single quote @code{'} at the beginning of the function name. This alerts @value{GDBN} that it may need to consider more information than usual when you press @key{TAB} or @kbd{M-?} to request word completion: @example (@value{GDBP}) b 'bubble( @key{M-?} bubble(double,double) bubble(int,int) (@value{GDBP}) b 'bubble( @end example In some cases, @value{GDBN} can tell that completing a name requires using quotes. When this happens, @value{GDBN} inserts the quote for you (while completing as much as it can) if you do not type the quote in the first place: @example (@value{GDBP}) b bub @key{TAB} @exdent @value{GDBN} alters your input line to the following, and rings a bell: (@value{GDBP}) b 'bubble( @end example @noindent In general, @value{GDBN} can tell that a quote is needed (and inserts it) if you have not yet started typing the argument list when you ask for completion on an overloaded symbol. @end ifclear @node Help @section Getting help @cindex online documentation @kindex help You can always ask @value{GDBN} itself for information on its commands, using the command @code{help}. @table @code @item help @itemx h @kindex h You can use @code{help} (abbreviated @code{h}) with no arguments to display a short list of named classes of commands: @smallexample (@value{GDBP}) help List of classes of commands: running -- Running the program stack -- Examining the stack data -- Examining data breakpoints -- Making program stop at certain points files -- Specifying and examining files status -- Status inquiries support -- Support facilities user-defined -- User-defined commands aliases -- Aliases of other commands obscure -- Obscure features Type "help" followed by a class name for a list of commands in that class. Type "help" followed by command name for full documentation. Command name abbreviations are allowed if unambiguous. (@value{GDBP}) @end smallexample @item help @var{class} Using one of the general help classes as an argument, you can get a list of the individual commands in that class. For example, here is the help display for the class @code{status}: @smallexample (@value{GDBP}) help status Status inquiries. List of commands: @c Line break in "show" line falsifies real output, but needed @c to fit in smallbook page size. show -- Generic command for showing things set with "set" info -- Generic command for printing status Type "help" followed by command name for full documentation. Command name abbreviations are allowed if unambiguous. (@value{GDBP}) @end smallexample @item help @var{command} With a command name as @code{help} argument, @value{GDBN} displays a short paragraph on how to use that command. @end table In addition to @code{help}, you can use the @value{GDBN} commands @code{info} and @code{show} to inquire about the state of your program, or the state of @value{GDBN} itself. Each command supports many topics of inquiry; this manual introduces each of them in the appropriate context. The listings under @code{info} and under @code{show} in the Index point to all the sub-commands. @xref{Index}. @c @group @table @code @item info @kindex info @kindex i This command (abbreviated @code{i}) is for describing the state of your program. For example, you can list the arguments given to your program with @code{info args}, list the registers currently in use with @code{info registers}, or list the breakpoints you have set with @code{info breakpoints}. You can get a complete list of the @code{info} sub-commands with @w{@code{help info}}. @kindex show @item show In contrast, @code{show} is for describing the state of @value{GDBN} itself. You can change most of the things you can @code{show}, by using the related command @code{set}; for example, you can control what number system is used for displays with @code{set radix}, or simply inquire which is currently in use with @code{show radix}. @kindex info set To display all the settable parameters and their current values, you can use @code{show} with no arguments; you may also use @code{info set}. Both commands produce the same display. @c FIXME: "info set" violates the rule that "info" is for state of @c FIXME...program. Ck w/ GNU: "info set" to be called something else, @c FIXME...or change desc of rule---eg "state of prog and debugging session"? @end table @c @end group Here are three miscellaneous @code{show} subcommands, all of which are exceptional in lacking corresponding @code{set} commands: @table @code @kindex show version @cindex version number @item show version Show what version of @value{GDBN} is running. You should include this information in @value{GDBN} bug-reports. If multiple versions of @value{GDBN} are in use at your site, you may occasionally want to determine which version of @value{GDBN} you are running; as @value{GDBN} evolves, new commands are introduced, and old ones may wither away. The version number is also announced when you start @value{GDBN}. @kindex show copying @item show copying Display information about permission for copying @value{GDBN}. @kindex show warranty @item show warranty Display the GNU ``NO WARRANTY'' statement. @end table @node Running @chapter Running Programs Under @value{GDBN} When you run a program under @value{GDBN}, you must first generate debugging information when you compile it. @ifclear BARETARGET You may start it with its arguments, if any, in an environment of your choice. You may redirect your program's input and output, debug an already running process, or kill a child process. @end ifclear @menu * Compilation:: Compiling for debugging * Starting:: Starting your program @ifclear BARETARGET * Arguments:: Your program's arguments * Environment:: Your program's environment * Working Directory:: Your program's working directory * Input/Output:: Your program's input and output * Attach:: Debugging an already-running process * Kill Process:: Killing the child process * Process Information:: Additional process information * Threads:: Debugging programs with multiple threads @end ifclear @end menu @node Compilation @section Compiling for debugging In order to debug a program effectively, you need to generate debugging information when you compile it. This debugging information is stored in the object file; it describes the data type of each variable or function and the correspondence between source line numbers and addresses in the executable code. To request debugging information, specify the @samp{-g} option when you run the compiler. Many C compilers are unable to handle the @samp{-g} and @samp{-O} options together. Using those compilers, you cannot generate optimized executables containing debugging information. @value{NGCC}, the GNU C compiler, supports @samp{-g} with or without @samp{-O}, making it possible to debug optimized code. We recommend that you @emph{always} use @samp{-g} whenever you compile a program. You may think your program is correct, but there is no sense in pushing your luck. @cindex optimized code, debugging @cindex debugging optimized code When you debug a program compiled with @samp{-g -O}, remember that the optimizer is rearranging your code; the debugger shows you what is really there. Do not be too surprised when the execution path does not exactly match your source file! An extreme example: if you define a variable, but never use it, @value{GDBN} never sees that variable---because the compiler optimizes it out of existence. Some things do not work as well with @samp{-g -O} as with just @samp{-g}, particularly on machines with instruction scheduling. If in doubt, recompile with @samp{-g} alone, and if this fixes the problem, please report it as a bug (including a test case!). Older versions of the GNU C compiler permitted a variant option @w{@samp{-gg}} for debugging information. @value{GDBN} no longer supports this format; if your GNU C compiler has this option, do not use it. @need 2000 @node Starting @section Starting your program @cindex starting @cindex running @table @code @item run @itemx r @kindex run Use the @code{run} command to start your program under @value{GDBN}. You must first specify the program name @ifset VXWORKS (except on VxWorks) @end ifset with an argument to @value{GDBN} (@pxref{Invocation, ,Getting In and Out of @value{GDBN}}), or by using the @code{file} or @code{exec-file} command (@pxref{Files, ,Commands to specify files}). @end table @ifclear BARETARGET If you are running your program in an execution environment that supports processes, @code{run} creates an inferior process and makes that process run your program. (In environments without processes, @code{run} jumps to the start of your program.) The execution of a program is affected by certain information it receives from its superior. @value{GDBN} provides ways to specify this information, which you must do @emph{before} starting your program. (You can change it after starting your program, but such changes only affect your program the next time you start it.) This information may be divided into four categories: @table @asis @item The @emph{arguments.} Specify the arguments to give your program as the arguments of the @code{run} command. If a shell is available on your target, the shell is used to pass the arguments, so that you may use normal conventions (such as wildcard expansion or variable substitution) in describing the arguments. In Unix systems, you can control which shell is used with the @code{SHELL} environment variable. @xref{Arguments, ,Your program's arguments}. @item The @emph{environment.} Your program normally inherits its environment from @value{GDBN}, but you can use the @value{GDBN} commands @code{set environment} and @code{unset environment} to change parts of the environment that affect your program. @xref{Environment, ,Your program's environment}. @item The @emph{working directory.} Your program inherits its working directory from @value{GDBN}. You can set the @value{GDBN} working directory with the @code{cd} command in @value{GDBN}. @xref{Working Directory, ,Your program's working directory}. @item The @emph{standard input and output.} Your program normally uses the same device for standard input and standard output as @value{GDBN} is using. You can redirect input and output in the @code{run} command line, or you can use the @code{tty} command to set a different device for your program. @xref{Input/Output, ,Your program's input and output}. @cindex pipes @emph{Warning:} While input and output redirection work, you cannot use pipes to pass the output of the program you are debugging to another program; if you attempt this, @value{GDBN} is likely to wind up debugging the wrong program. @end table @end ifclear When you issue the @code{run} command, your program begins to execute immediately. @xref{Stopping, ,Stopping and continuing}, for discussion of how to arrange for your program to stop. Once your program has stopped, you may call functions in your program, using the @code{print} or @code{call} commands. @xref{Data, ,Examining Data}. If the modification time of your symbol file has changed since the last time @value{GDBN} read its symbols, @value{GDBN} discards its symbol table, and reads it again. When it does this, @value{GDBN} tries to retain your current breakpoints. @ifclear BARETARGET @node Arguments @section Your program's arguments @cindex arguments (to your program) The arguments to your program can be specified by the arguments of the @code{run} command. They are passed to a shell, which expands wildcard characters and performs redirection of I/O, and thence to your program. Your @code{SHELL} environment variable (if it exists) specifies what shell @value{GDBN} uses. If you do not define @code{SHELL}, @value{GDBN} uses @code{/bin/sh}. @code{run} with no arguments uses the same arguments used by the previous @code{run}, or those set by the @code{set args} command. @kindex set args @table @code @item set args Specify the arguments to be used the next time your program is run. If @code{set args} has no arguments, @code{run} executes your program with no arguments. Once you have run your program with arguments, using @code{set args} before the next @code{run} is the only way to run it again without arguments. @item show args @kindex show args Show the arguments to give your program when it is started. @end table @node Environment @section Your program's environment @cindex environment (of your program) The @dfn{environment} consists of a set of environment variables and their values. Environment variables conventionally record such things as your user name, your home directory, your terminal type, and your search path for programs to run. Usually you set up environment variables with the shell and they are inherited by all the other programs you run. When debugging, it can be useful to try running your program with a modified environment without having to start @value{GDBN} over again. @table @code @item path @var{directory} @kindex path Add @var{directory} to the front of the @code{PATH} environment variable (the search path for executables), for both @value{GDBN} and your program. You may specify several directory names, separated by @samp{:} or whitespace. If @var{directory} is already in the path, it is moved to the front, so it is searched sooner. You can use the string @samp{$cwd} to refer to whatever is the current working directory at the time @value{GDBN} searches the path. If you use @samp{.} instead, it refers to the directory where you executed the @code{path} command. @value{GDBN} replaces @samp{.} in the @var{directory} argument (with the current path) before adding @var{directory} to the search path. @c 'path' is explicitly nonrepeatable, but RMS points out it is silly to @c document that, since repeating it would be a no-op. @item show paths @kindex show paths Display the list of search paths for executables (the @code{PATH} environment variable). @item show environment @r{[}@var{varname}@r{]} @kindex show environment Print the value of environment variable @var{varname} to be given to your program when it starts. If you do not supply @var{varname}, print the names and values of all environment variables to be given to your program. You can abbreviate @code{environment} as @code{env}. @item set environment @var{varname} @r{[}=@r{]} @var{value} @kindex set environment Set environment variable @var{varname} to @var{value}. The value changes for your program only, not for @value{GDBN} itself. @var{value} may be any string; the values of environment variables are just strings, and any interpretation is supplied by your program itself. The @var{value} parameter is optional; if it is eliminated, the variable is set to a null value. @c "any string" here does not include leading, trailing @c blanks. Gnu asks: does anyone care? For example, this command: @example set env USER = foo @end example @noindent tells a Unix program, when subsequently run, that its user is named @samp{foo}. (The spaces around @samp{=} are used for clarity here; they are not actually required.) @item unset environment @var{varname} @kindex unset environment Remove variable @var{varname} from the environment to be passed to your program. This is different from @samp{set env @var{varname} =}; @code{unset environment} removes the variable from the environment, rather than assigning it an empty value. @end table @emph{Warning:} @value{GDBN} runs your program using the shell indicated by your @code{SHELL} environment variable if it exists (or @code{/bin/sh} if not). If your @code{SHELL} variable names a shell that runs an initialization file---such as @file{.cshrc} for C-shell, or @file{.bashrc} for BASH---any variables you set in that file affect your program. You may wish to move setting of environment variables to files that are only run when you sign on, such as @file{.login} or @file{.profile}. @node Working Directory @section Your program's working directory @cindex working directory (of your program) Each time you start your program with @code{run}, it inherits its working directory from the current working directory of @value{GDBN}. The @value{GDBN} working directory is initially whatever it inherited from its parent process (typically the shell), but you can specify a new working directory in @value{GDBN} with the @code{cd} command. The @value{GDBN} working directory also serves as a default for the commands that specify files for @value{GDBN} to operate on. @xref{Files, ,Commands to specify files}. @table @code @item cd @var{directory} @kindex cd Set the @value{GDBN} working directory to @var{directory}. @item pwd @kindex pwd Print the @value{GDBN} working directory. @end table @node Input/Output @section Your program's input and output @cindex redirection @cindex i/o @cindex terminal By default, the program you run under @value{GDBN} does input and output to the same terminal that @value{GDBN} uses. @value{GDBN} switches the terminal to its own terminal modes to interact with you, but it records the terminal modes your program was using and switches back to them when you continue running your program. @table @code @item info terminal @kindex info terminal Displays information recorded by @value{GDBN} about the terminal modes your program is using. @end table You can redirect your program's input and/or output using shell redirection with the @code{run} command. For example, @example run > outfile @end example @noindent starts your program, diverting its output to the file @file{outfile}. @kindex tty @cindex controlling terminal Another way to specify where your program should do input and output is with the @code{tty} command. This command accepts a file name as argument, and causes this file to be the default for future @code{run} commands. It also resets the controlling terminal for the child process, for future @code{run} commands. For example, @example tty /dev/ttyb @end example @noindent directs that processes started with subsequent @code{run} commands default to do input and output on the terminal @file{/dev/ttyb} and have that as their controlling terminal. An explicit redirection in @code{run} overrides the @code{tty} command's effect on the input/output device, but not its effect on the controlling terminal. When you use the @code{tty} command or redirect input in the @code{run} command, only the input @emph{for your program} is affected. The input for @value{GDBN} still comes from your terminal. @node Attach @section Debugging an already-running process @kindex attach @cindex attach @table @code @item attach @var{process-id} This command attaches to a running process---one that was started outside @value{GDBN}. (@code{info files} shows your active targets.) The command takes as argument a process ID. The usual way to find out the process-id of a Unix process is with the @code{ps} utility, or with the @samp{jobs -l} shell command. @code{attach} does not repeat if you press @key{RET} a second time after executing the command. @end table To use @code{attach}, your program must be running in an environment which supports processes; for example, @code{attach} does not work for programs on bare-board targets that lack an operating system. You must also have permission to send the process a signal. When using @code{attach}, you should first use the @code{file} command to specify the program running in the process and load its symbol table. @xref{Files, ,Commands to Specify Files}. The first thing @value{GDBN} does after arranging to debug the specified process is to stop it. You can examine and modify an attached process with all the @value{GDBN} commands that are ordinarily available when you start processes with @code{run}. You can insert breakpoints; you can step and continue; you can modify storage. If you would rather the process continue running, you may use the @code{continue} command after attaching @value{GDBN} to the process. @table @code @item detach @kindex detach When you have finished debugging the attached process, you can use the @code{detach} command to release it from @value{GDBN} control. Detaching the process continues its execution. After the @code{detach} command, that process and @value{GDBN} become completely independent once more, and you are ready to @code{attach} another process or start one with @code{run}. @code{detach} does not repeat if you press @key{RET} again after executing the command. @end table If you exit @value{GDBN} or use the @code{run} command while you have an attached process, you kill that process. By default, @value{GDBN} asks for confirmation if you try to do either of these things; you can control whether or not you need to confirm by using the @code{set confirm} command (@pxref{Messages/Warnings, ,Optional warnings and messages}). @node Kill Process @c @group @section Killing the child process @table @code @item kill @kindex kill Kill the child process in which your program is running under @value{GDBN}. @end table This command is useful if you wish to debug a core dump instead of a running process. @value{GDBN} ignores any core dump file while your program is running. @c @end group On some operating systems, a program cannot be executed outside @value{GDBN} while you have breakpoints set on it inside @value{GDBN}. You can use the @code{kill} command in this situation to permit running your program outside the debugger. The @code{kill} command is also useful if you wish to recompile and relink your program, since on many systems it is impossible to modify an executable file while it is running in a process. In this case, when you next type @code{run}, @value{GDBN} notices that the file has changed, and reads the symbol table again (while trying to preserve your current breakpoint settings). @node Process Information @section Additional process information @kindex /proc @cindex process image Some operating systems provide a facility called @samp{/proc} that can be used to examine the image of a running process using file-system subroutines. If @value{GDBN} is configured for an operating system with this facility, the command @code{info proc} is available to report on several kinds of information about the process running your program. @table @code @item info proc @kindex info proc Summarize available information about the process. @item info proc mappings @kindex info proc mappings Report on the address ranges accessible in the program, with information on whether your program may read, write, or execute each range. @item info proc times @kindex info proc times Starting time, user CPU time, and system CPU time for your program and its children. @item info proc id @kindex info proc id Report on the process IDs related to your program: its own process ID, the ID of its parent, the process group ID, and the session ID. @item info proc status @kindex info proc status General information on the state of the process. If the process is stopped, this report includes the reason for stopping, and any signal received. @item info proc all Show all the above information about the process. @end table @node Threads @section Debugging programs with multiple threads @cindex threads of execution @cindex multiple threads @cindex switching threads In some operating systems, a single program may have more than one @dfn{thread} of execution. The precise semantics of threads differ from one operating system to another, but in general the threads of a single program are akin to multiple processes---except that they share one address space (that is, they can all examine and modify the same variables). On the other hand, each thread has its own registers and execution stack, and perhaps private memory. @value{GDBN} provides these facilities for debugging multi-thread programs: @itemize @bullet @item automatic notification of new threads @item @samp{thread @var{threadno}}, a command to switch among threads @item @samp{info threads}, a command to inquire about existing threads @item thread-specific breakpoints @end itemize @quotation @emph{Warning:} These facilities are not yet available on every @value{GDBN} configuration where the operating system supports threads. If your @value{GDBN} does not support threads, these commands have no effect. For example, a system without thread support shows no output from @samp{info threads}, and always rejects the @code{thread} command, like this: @smallexample (@value{GDBP}) info threads (@value{GDBP}) thread 1 Thread ID 1 not known. Use the "info threads" command to see the IDs of currently known threads. @end smallexample @c FIXME to implementors: how hard would it be to say "sorry, this GDB @c doesn't support threads"? @end quotation @cindex focus of debugging @cindex current thread The @value{GDBN} thread debugging facility allows you to observe all threads while your program runs---but whenever @value{GDBN} takes control, one thread in particular is always the focus of debugging. This thread is called the @dfn{current thread}. Debugging commands show program information from the perspective of the current thread. @kindex New @var{systag} @cindex thread identifier (system) @c FIXME-implementors!! It would be more helpful if the [New...] message @c included GDB's numeric thread handle, so you could just go to that @c thread without first checking `info threads'. Whenever @value{GDBN} detects a new thread in your program, it displays the target system's identification for the thread with a message in the form @samp{[New @var{systag}]}. @var{systag} is a thread identifier whose form varies depending on the particular system. For example, on LynxOS, you might see @example [New process 35 thread 27] @end example @noindent when @value{GDBN} notices a new thread. In contrast, on an SGI system, the @var{systag} is simply something like @samp{process 368}, with no further qualifier. @c FIXME!! (1) Does the [New...] message appear even for the very first @c thread of a program, or does it only appear for the @c second---i.e., when it becomes obvious we have a multithread @c program? @c (2) *Is* there necessarily a first thread always? Or do some @c multithread systems permit starting a program with multiple @c threads ab initio? @cindex thread number @cindex thread identifier (GDB) For debugging purposes, @value{GDBN} associates its own thread number---always a single integer---with each thread in your program. @table @code @item info threads @kindex info threads Display a summary of all threads currently in your program. @value{GDBN} displays for each thread (in this order): @enumerate @item the thread number assigned by @value{GDBN} @item the target system's thread identifier (@var{systag}) @item the current stack frame summary for that thread @end enumerate @noindent An asterisk @samp{*} to the left of the @value{GDBN} thread number indicates the current thread. For example, @end table @c end table here to get a little more width for example @smallexample (@value{GDBP}) info threads 3 process 35 thread 27 0x34e5 in sigpause () 2 process 35 thread 23 0x34e5 in sigpause () * 1 process 35 thread 13 main (argc=1, argv=0x7ffffff8) at threadtest.c:68 @end smallexample @table @code @item thread @var{threadno} @kindex thread @var{threadno} Make thread number @var{threadno} the current thread. The command argument @var{threadno} is the internal @value{GDBN} thread number, as shown in the first field of the @samp{info threads} display. @value{GDBN} responds by displaying the system identifier of the thread you selected, and its current stack frame summary: @smallexample @c FIXME!! This example made up; find a GDB w/threads and get real one (@value{GDBP}) thread 2 [Switching to process 35 thread 23] 0x34e5 in sigpause () @end smallexample @noindent As with the @samp{[New @dots{}]} message, the form of the text after @samp{Switching to} depends on your system's conventions for identifying threads. @end table @cindex automatic thread selection @cindex switching threads automatically @cindex threads, automatic switching Whenever @value{GDBN} stops your program, due to a breakpoint or a signal, it automatically selects the thread where that breakpoint or signal happened. @value{GDBN} alerts you to the context switch with a message of the form @samp{[Switching to @var{systag}]} to identify the thread. @xref{Thread Stops,,Stopping and starting multi-thread programs}, for more information about how @value{GDBN} behaves when you stop and start programs with multiple threads. @xref{Set Watchpoints,,Setting watchpoints}, for information about watchpoints in programs with multiple threads. @end ifclear @node Stopping @chapter Stopping and Continuing The principal purposes of using a debugger are so that you can stop your program before it terminates; or so that, if your program runs into trouble, you can investigate and find out why. Inside @value{GDBN}, your program may stop for any of several reasons, such as @ifclear BARETARGET a signal, @end ifclear a breakpoint, or reaching a new line after a @value{GDBN} command such as @code{step}. You may then examine and change variables, set new breakpoints or remove old ones, and then continue execution. Usually, the messages shown by @value{GDBN} provide ample explanation of the status of your program---but you can also explicitly request this information at any time. @table @code @item info program @kindex info program Display information about the status of your program: whether it is running or not, @ifclear BARETARGET what process it is, @end ifclear and why it stopped. @end table @menu @ifclear CONLY * Breakpoints:: Breakpoints, watchpoints, and exceptions @end ifclear @ifset CONLY * Breakpoints:: Breakpoints and watchpoints @end ifset @c Remnant makeinfo bug requires blank line after *successful* end-if in menu: * Continuing and Stepping:: Resuming execution @ifset POSIX * Signals:: Signals @end ifset @ifclear BARETARGET * Thread Stops:: Stopping and starting multi-thread programs @end ifclear @end menu @c makeinfo node-defaulting requires adjacency of @node and sectioning cmds @c ...hence distribute @node Breakpoints over two possible @if expansions. @c @ifclear CONLY @node Breakpoints @section Breakpoints, watchpoints, and exceptions @end ifclear @ifset CONLY @node Breakpoints @section Breakpoints and watchpoints @end ifset @cindex breakpoints A @dfn{breakpoint} makes your program stop whenever a certain point in the program is reached. For each breakpoint, you can add conditions to control in finer detail whether your program stops. You can set breakpoints with the @code{break} command and its variants (@pxref{Set Breaks, ,Setting breakpoints}), to specify the place where your program should stop by line number, function name or exact address in the program. @ifclear CONLY In languages with exception handling (such as GNU C++), you can also set breakpoints where an exception is raised (@pxref{Exception Handling,, Breakpoints and exceptions}). @end ifclear @cindex watchpoints @cindex memory tracing @cindex breakpoint on memory address @cindex breakpoint on variable modification A @dfn{watchpoint} is a special breakpoint that stops your program when the value of an expression changes. You must use a different command to set watchpoints (@pxref{Set Watchpoints, ,Setting watchpoints}), but aside from that, you can manage a watchpoint like any other breakpoint: you enable, disable, and delete both breakpoints and watchpoints using the same commands. You can arrange to have values from your program displayed automatically whenever @value{GDBN} stops at a breakpoint. @xref{Auto Display,, Automatic display}. @cindex breakpoint numbers @cindex numbers for breakpoints @value{GDBN} assigns a number to each breakpoint or watchpoint when you create it; these numbers are successive integers starting with one. In many of the commands for controlling various features of breakpoints you use the breakpoint number to say which breakpoint you want to change. Each breakpoint may be @dfn{enabled} or @dfn{disabled}; if disabled, it has no effect on your program until you enable it again. @menu * Set Breaks:: Setting breakpoints * Set Watchpoints:: Setting watchpoints @ifclear CONLY * Exception Handling:: Breakpoints and exceptions @end ifclear * Delete Breaks:: Deleting breakpoints * Disabling:: Disabling breakpoints * Conditions:: Break conditions * Break Commands:: Breakpoint command lists @ifclear CONLY * Breakpoint Menus:: Breakpoint menus @end ifclear @ifclear BARETARGET * Error in Breakpoints:: ``Cannot insert breakpoints'' @end ifclear @end menu @node Set Breaks @subsection Setting breakpoints @c FIXME LMB what does GDB do if no code on line of breakpt? @c consider in particular declaration with/without initialization. @c @c FIXME 2 is there stuff on this already? break at fun start, already init? @kindex break @kindex b @kindex $bpnum @cindex latest breakpoint Breakpoints are set with the @code{break} command (abbreviated @code{b}). The debugger convenience variable @samp{$bpnum} records the number of the beakpoint you've set most recently; see @ref{Convenience Vars,, Convenience variables}, for a discussion of what you can do with convenience variables. You have several ways to say where the breakpoint should go. @table @code @item break @var{function} Set a breakpoint at entry to function @var{function}. @ifclear CONLY When using source languages that permit overloading of symbols, such as C++, @var{function} may refer to more than one possible place to break. @xref{Breakpoint Menus,,Breakpoint menus}, for a discussion of that situation. @end ifclear @item break +@var{offset} @itemx break -@var{offset} Set a breakpoint some number of lines forward or back from the position at which execution stopped in the currently selected frame. @item break @var{linenum} Set a breakpoint at line @var{linenum} in the current source file. That file is the last file whose source text was printed. This breakpoint stops your program just before it executes any of the code on that line. @item break @var{filename}:@var{linenum} Set a breakpoint at line @var{linenum} in source file @var{filename}. @item break @var{filename}:@var{function} Set a breakpoint at entry to function @var{function} found in file @var{filename}. Specifying a file name as well as a function name is superfluous except when multiple files contain similarly named functions. @item break *@var{address} Set a breakpoint at address @var{address}. You can use this to set breakpoints in parts of your program which do not have debugging information or source files. @item break When called without any arguments, @code{break} sets a breakpoint at the next instruction to be executed in the selected stack frame (@pxref{Stack, ,Examining the Stack}). In any selected frame but the innermost, this makes your program stop as soon as control returns to that frame. This is similar to the effect of a @code{finish} command in the frame inside the selected frame---except that @code{finish} does not leave an active breakpoint. If you use @code{break} without an argument in the innermost frame, @value{GDBN} stops the next time it reaches the current location; this may be useful inside loops. @value{GDBN} normally ignores breakpoints when it resumes execution, until at least one instruction has been executed. If it did not do this, you would be unable to proceed past a breakpoint without first disabling the breakpoint. This rule applies whether or not the breakpoint already existed when your program stopped. @item break @dots{} if @var{cond} Set a breakpoint with condition @var{cond}; evaluate the expression @var{cond} each time the breakpoint is reached, and stop only if the value is nonzero---that is, if @var{cond} evaluates as true. @samp{@dots{}} stands for one of the possible arguments described above (or no argument) specifying where to break. @xref{Conditions, ,Break conditions}, for more information on breakpoint conditions. @item tbreak @var{args} @kindex tbreak Set a breakpoint enabled only for one stop. @var{args} are the same as for the @code{break} command, and the breakpoint is set in the same way, but the breakpoint is automatically deleted after the first time your program stops there. @xref{Disabling, ,Disabling breakpoints}. @item rbreak @var{regex} @kindex rbreak @cindex regular expression @c FIXME what kind of regexp? Set breakpoints on all functions matching the regular expression @var{regex}. This command sets an unconditional breakpoint on all matches, printing a list of all breakpoints it set. Once these breakpoints are set, they are treated just like the breakpoints set with the @code{break} command. You can delete them, disable them, or make them conditional the same way as any other breakpoint. @ifclear CONLY When debugging C++ programs, @code{rbreak} is useful for setting breakpoints on overloaded functions that are not members of any special classes. @end ifclear @kindex info breakpoints @cindex @code{$_} and @code{info breakpoints} @item info breakpoints @r{[}@var{n}@r{]} @itemx info break @r{[}@var{n}@r{]} @itemx info watchpoints @r{[}@var{n}@r{]} Print a table of all breakpoints and watchpoints set and not deleted, with the following columns for each breakpoint: @table @emph @item Breakpoint Numbers @item Type Breakpoint or watchpoint. @item Disposition Whether the breakpoint is marked to be disabled or deleted when hit. @item Enabled or Disabled Enabled breakpoints are marked with @samp{y}. @samp{n} marks breakpoints that are not enabled. @item Address Where the breakpoint is in your program, as a memory address @item What Where the breakpoint is in the source for your program, as a file and line number. @end table @noindent If a breakpoint is conditional, @code{info break} shows the condition on the line following the affected breakpoint; breakpoint commands, if any, are listed after that. @noindent @code{info break} with a breakpoint number @var{n} as argument lists only that breakpoint. The convenience variable @code{$_} and the default examining-address for the @code{x} command are set to the address of the last breakpoint listed (@pxref{Memory, ,Examining memory}). @end table @value{GDBN} allows you to set any number of breakpoints at the same place in your program. There is nothing silly or meaningless about this. When the breakpoints are conditional, this is even useful (@pxref{Conditions, ,Break conditions}). @cindex negative breakpoint numbers @cindex internal @value{GDBN} breakpoints @value{GDBN} itself sometimes sets breakpoints in your program for special purposes, such as proper handling of @code{longjmp} (in C programs). These internal breakpoints are assigned negative numbers, starting with @code{-1}; @samp{info breakpoints} does not display them. You can see these breakpoints with the @value{GDBN} maintenance command @samp{maint info breakpoints}. @table @code @kindex maint info breakpoints @item maint info breakpoints Using the same format as @samp{info breakpoints}, display both the breakpoints you've set explicitly, and those @value{GDBN} is using for internal purposes. Internal breakpoints are shown with negative breakpoint numbers. The type column identifies what kind of breakpoint is shown: @table @code @item breakpoint Normal, explicitly set breakpoint. @item watchpoint Normal, explicitly set watchpoint. @item longjmp Internal breakpoint, used to handle correctly stepping through @code{longjmp} calls. @item longjmp resume Internal breakpoint at the target of a @code{longjmp}. @item until Temporary internal breakpoint used by the @value{GDBN} @code{until} command. @item finish Temporary internal breakpoint used by the @value{GDBN} @code{finish} command. @end table @end table @node Set Watchpoints @subsection Setting watchpoints @cindex setting watchpoints You can use a watchpoint to stop execution whenever the value of an expression changes, without having to predict a particular place where this may happen. Watchpoints currently execute two orders of magnitude more slowly than other breakpoints, but this can be well worth it to catch errors where you have no clue what part of your program is the culprit. @ignore @c this "future releases" promise has been in too long, is getting @c embarrassing. But... @c FIXME: in future updates, check whether hardware watchpoints in on any @c platforms yet. As of 26jan94, they're very close on HPPA running @c Berkeley and on Irix 4. Some processors provide special hardware to support watchpoint evaluation; future releases of @value{GDBN} will use such hardware if it is available. @end ignore @table @code @kindex watch @item watch @var{expr} Set a watchpoint for an expression. @kindex info watchpoints @item info watchpoints This command prints a list of watchpoints and breakpoints; it is the same as @code{info break}. @end table @ifclear BARETARGET @quotation @cindex watchpoints and threads @cindex threads and watchpoints @emph{Warning:} in multi-thread programs, watchpoints have only limited usefulness. With the current watchpoint implementation, @value{GDBN} can only watch the value of an expression @emph{in a single thread}. If you are confident that the expression can only change due to the current thread's activity (and if you are also confident that no other thread can become current), then you can use watchpoints as usual. However, @value{GDBN} may not notice when a non-current thread's activity changes the expression. @end quotation @end ifclear @ifclear CONLY @node Exception Handling @subsection Breakpoints and exceptions @cindex exception handlers Some languages, such as GNU C++, implement exception handling. You can use @value{GDBN} to examine what caused your program to raise an exception, and to list the exceptions your program is prepared to handle at a given point in time. @table @code @item catch @var{exceptions} @kindex catch You can set breakpoints at active exception handlers by using the @code{catch} command. @var{exceptions} is a list of names of exceptions to catch. @end table You can use @code{info catch} to list active exception handlers. @xref{Frame Info, ,Information about a frame}. There are currently some limitations to exception handling in @value{GDBN}: @itemize @bullet @item If you call a function interactively, @value{GDBN} normally returns control to you when the function has finished executing. If the call raises an exception, however, the call may bypass the mechanism that returns control to you and cause your program to simply continue running until it hits a breakpoint, catches a signal that @value{GDBN} is listening for, or exits. @item You cannot raise an exception interactively. @item You cannot install an exception handler interactively. @end itemize @cindex raise exceptions Sometimes @code{catch} is not the best way to debug exception handling: if you need to know exactly where an exception is raised, it is better to stop @emph{before} the exception handler is called, since that way you can see the stack before any unwinding takes place. If you set a breakpoint in an exception handler instead, it may not be easy to find out where the exception was raised. To stop just before an exception handler is called, you need some knowledge of the implementation. In the case of GNU C++, exceptions are raised by calling a library function named @code{__raise_exception} which has the following ANSI C interface: @example /* @var{addr} is where the exception identifier is stored. ID is the exception identifier. */ void __raise_exception (void **@var{addr}, void *@var{id}); @end example @noindent To make the debugger catch all exceptions before any stack unwinding takes place, set a breakpoint on @code{__raise_exception} (@pxref{Breakpoints, ,Breakpoints; watchpoints; and exceptions}). With a conditional breakpoint (@pxref{Conditions, ,Break conditions}) that depends on the value of @var{id}, you can stop your program when a specific exception is raised. You can use multiple conditional breakpoints to stop your program when any of a number of exceptions are raised. @end ifclear @node Delete Breaks @subsection Deleting breakpoints @cindex clearing breakpoints, watchpoints @cindex deleting breakpoints, watchpoints It is often necessary to eliminate a breakpoint or watchpoint once it has done its job and you no longer want your program to stop there. This is called @dfn{deleting} the breakpoint. A breakpoint that has been deleted no longer exists; it is forgotten. With the @code{clear} command you can delete breakpoints according to where they are in your program. With the @code{delete} command you can delete individual breakpoints or watchpoints by specifying their breakpoint numbers. It is not necessary to delete a breakpoint to proceed past it. @value{GDBN} automatically ignores breakpoints on the first instruction to be executed when you continue execution without changing the execution address. @table @code @item clear @kindex clear Delete any breakpoints at the next instruction to be executed in the selected stack frame (@pxref{Selection, ,Selecting a frame}). When the innermost frame is selected, this is a good way to delete a breakpoint where your program just stopped. @item clear @var{function} @itemx clear @var{filename}:@var{function} Delete any breakpoints set at entry to the function @var{function}. @item clear @var{linenum} @itemx clear @var{filename}:@var{linenum} Delete any breakpoints set at or within the code of the specified line. @item delete @r{[}breakpoints@r{]} @r{[}@var{bnums}@dots{}@r{]} @cindex delete breakpoints @kindex delete @kindex d Delete the breakpoints or watchpoints of the numbers specified as arguments. If no argument is specified, delete all breakpoints (@value{GDBN} asks confirmation, unless you have @code{set confirm off}). You can abbreviate this command as @code{d}. @end table @node Disabling @subsection Disabling breakpoints @cindex disabled breakpoints @cindex enabled breakpoints Rather than deleting a breakpoint or watchpoint, you might prefer to @dfn{disable} it. This makes the breakpoint inoperative as if it had been deleted, but remembers the information on the breakpoint so that you can @dfn{enable} it again later. You disable and enable breakpoints and watchpoints with the @code{enable} and @code{disable} commands, optionally specifying one or more breakpoint numbers as arguments. Use @code{info break} or @code{info watch} to print a list of breakpoints or watchpoints if you do not know which numbers to use. A breakpoint or watchpoint can have any of four different states of enablement: @itemize @bullet @item Enabled. The breakpoint stops your program. A breakpoint set with the @code{break} command starts out in this state. @item Disabled. The breakpoint has no effect on your program. @item Enabled once. The breakpoint stops your program, but then becomes disabled. A breakpoint set with the @code{tbreak} command starts out in this state. @item Enabled for deletion. The breakpoint stops your program, but immediately after it does so it is deleted permanently. @end itemize You can use the following commands to enable or disable breakpoints and watchpoints: @table @code @item disable @r{[}breakpoints@r{]} @r{[}@var{bnums}@dots{}@r{]} @kindex disable breakpoints @kindex disable @kindex dis Disable the specified breakpoints---or all breakpoints, if none are listed. A disabled breakpoint has no effect but is not forgotten. All options such as ignore-counts, conditions and commands are remembered in case the breakpoint is enabled again later. You may abbreviate @code{disable} as @code{dis}. @item enable @r{[}breakpoints@r{]} @r{[}@var{bnums}@dots{}@r{]} @kindex enable breakpoints @kindex enable Enable the specified breakpoints (or all defined breakpoints). They become effective once again in stopping your program. @item enable @r{[}breakpoints@r{]} once @var{bnums}@dots{} Enable the specified breakpoints temporarily. @value{GDBN} disables any of these breakpoints immediately after stopping your program. @item enable @r{[}breakpoints@r{]} delete @var{bnums}@dots{} Enable the specified breakpoints to work once, then die. @value{GDBN} deletes any of these breakpoints as soon as your program stops there. @end table Save for a breakpoint set with @code{tbreak} (@pxref{Set Breaks, ,Setting breakpoints}), breakpoints that you set are initially enabled; subsequently, they become disabled or enabled only when you use one of the commands above. (The command @code{until} can set and delete a breakpoint of its own, but it does not change the state of your other breakpoints; see @ref{Continuing and Stepping, ,Continuing and stepping}.) @node Conditions @subsection Break conditions @cindex conditional breakpoints @cindex breakpoint conditions @c FIXME what is scope of break condition expr? Context where wanted? @c in particular for a watchpoint? The simplest sort of breakpoint breaks every time your program reaches a specified place. You can also specify a @dfn{condition} for a breakpoint. A condition is just a Boolean expression in your programming language (@pxref{Expressions, ,Expressions}). A breakpoint with a condition evaluates the expression each time your program reaches it, and your program stops only if the condition is @emph{true}. This is the converse of using assertions for program validation; in that situation, you want to stop when the assertion is violated---that is, when the condition is false. In C, if you want to test an assertion expressed by the condition @var{assert}, you should set the condition @samp{! @var{assert}} on the appropriate breakpoint. Conditions are also accepted for watchpoints; you may not need them, since a watchpoint is inspecting the value of an expression anyhow---but it might be simpler, say, to just set a watchpoint on a variable name, and specify a condition that tests whether the new value is an interesting one. Break conditions can have side effects, and may even call functions in your program. This can be useful, for example, to activate functions that log program progress, or to use your own print functions to format special data structures. The effects are completely predictable unless there is another enabled breakpoint at the same address. (In that case, @value{GDBN} might see the other breakpoint first and stop your program without checking the condition of this one.) Note that breakpoint commands are usually more convenient and flexible for the purpose of performing side effects when a breakpoint is reached (@pxref{Break Commands, ,Breakpoint command lists}). Break conditions can be specified when a breakpoint is set, by using @samp{if} in the arguments to the @code{break} command. @xref{Set Breaks, ,Setting breakpoints}. They can also be changed at any time with the @code{condition} command. The @code{watch} command does not recognize the @code{if} keyword; @code{condition} is the only way to impose a further condition on a watchpoint. @table @code @item condition @var{bnum} @var{expression} @kindex condition Specify @var{expression} as the break condition for breakpoint or watchpoint number @var{bnum}. After you set a condition, breakpoint @var{bnum} stops your program only if the value of @var{expression} is true (nonzero, in C). When you use @code{condition}, @value{GDBN} checks @var{expression} immediately for syntactic correctness, and to determine whether symbols in it have referents in the context of your breakpoint. @c FIXME so what does GDB do if there is no referent? Moreover, what @c about watchpoints? @value{GDBN} does not actually evaluate @var{expression} at the time the @code{condition} command is given, however. @xref{Expressions, ,Expressions}. @item condition @var{bnum} Remove the condition from breakpoint number @var{bnum}. It becomes an ordinary unconditional breakpoint. @end table @cindex ignore count (of breakpoint) A special case of a breakpoint condition is to stop only when the breakpoint has been reached a certain number of times. This is so useful that there is a special way to do it, using the @dfn{ignore count} of the breakpoint. Every breakpoint has an ignore count, which is an integer. Most of the time, the ignore count is zero, and therefore has no effect. But if your program reaches a breakpoint whose ignore count is positive, then instead of stopping, it just decrements the ignore count by one and continues. As a result, if the ignore count value is @var{n}, the breakpoint does not stop the next @var{n} times your program reaches it. @table @code @item ignore @var{bnum} @var{count} @kindex ignore Set the ignore count of breakpoint number @var{bnum} to @var{count}. The next @var{count} times the breakpoint is reached, your program's execution does not stop; other than to decrement the ignore count, @value{GDBN} takes no action. To make the breakpoint stop the next time it is reached, specify a count of zero. When you use @code{continue} to resume execution of your program from a breakpoint, you can specify an ignore count directly as an argument to @code{continue}, rather than using @code{ignore}. @xref{Continuing and Stepping,,Continuing and stepping}. If a breakpoint has a positive ignore count and a condition, the condition is not checked. Once the ignore count reaches zero, @value{GDBN} resumes checking the condition. You could achieve the effect of the ignore count with a condition such as @w{@samp{$foo-- <= 0}} using a debugger convenience variable that is decremented each time. @xref{Convenience Vars, ,Convenience variables}. @end table @node Break Commands @subsection Breakpoint command lists @cindex breakpoint commands You can give any breakpoint (or watchpoint) a series of commands to execute when your program stops due to that breakpoint. For example, you might want to print the values of certain expressions, or enable other breakpoints. @table @code @item commands @r{[}@var{bnum}@r{]} @itemx @dots{} @var{command-list} @dots{} @itemx end @kindex commands @kindex end Specify a list of commands for breakpoint number @var{bnum}. The commands themselves appear on the following lines. Type a line containing just @code{end} to terminate the commands. To remove all commands from a breakpoint, type @code{commands} and follow it immediately with @code{end}; that is, give no commands. With no @var{bnum} argument, @code{commands} refers to the last breakpoint or watchpoint set (not to the breakpoint most recently encountered). @end table Pressing @key{RET} as a means of repeating the last @value{GDBN} command is disabled within a @var{command-list}. You can use breakpoint commands to start your program up again. Simply use the @code{continue} command, or @code{step}, or any other command that resumes execution. Any other commands in the command list, after a command that resumes execution, are ignored. This is because any time you resume execution (even with a simple @code{next} or @code{step}), you may encounter another breakpoint---which could have its own command list, leading to ambiguities about which list to execute. @kindex silent If the first command you specify in a command list is @code{silent}, the usual message about stopping at a breakpoint is not printed. This may be desirable for breakpoints that are to print a specific message and then continue. If none of the remaining commands print anything, you see no sign that the breakpoint was reached. @code{silent} is meaningful only at the beginning of a breakpoint command list. The commands @code{echo}, @code{output}, and @code{printf} allow you to print precisely controlled output, and are often useful in silent breakpoints. @xref{Output, ,Commands for controlled output}. For example, here is how you could use breakpoint commands to print the value of @code{x} at entry to @code{foo} whenever @code{x} is positive. @example break foo if x>0 commands silent printf "x is %d\n",x cont end @end example One application for breakpoint commands is to compensate for one bug so you can test for another. Put a breakpoint just after the erroneous line of code, give it a condition to detect the case in which something erroneous has been done, and give it commands to assign correct values to any variables that need them. End with the @code{continue} command so that your program does not stop, and start with the @code{silent} command so that no output is produced. Here is an example: @example break 403 commands silent set x = y + 4 cont end @end example @ifclear CONLY @node Breakpoint Menus @subsection Breakpoint menus @cindex overloading @cindex symbol overloading Some programming languages (notably C++) permit a single function name to be defined several times, for application in different contexts. This is called @dfn{overloading}. When a function name is overloaded, @samp{break @var{function}} is not enough to tell @value{GDBN} where you want a breakpoint. If you realize this is a problem, you can use something like @samp{break @var{function}(@var{types})} to specify which particular version of the function you want. Otherwise, @value{GDBN} offers you a menu of numbered choices for different possible breakpoints, and waits for your selection with the prompt @samp{>}. The first two options are always @samp{[0] cancel} and @samp{[1] all}. Typing @kbd{1} sets a breakpoint at each definition of @var{function}, and typing @kbd{0} aborts the @code{break} command without setting any new breakpoints. For example, the following session excerpt shows an attempt to set a breakpoint at the overloaded symbol @code{String::after}. We choose three particular definitions of that function name: @c FIXME! This is likely to change to show arg type lists, at least @smallexample (@value{GDBP}) b String::after [0] cancel [1] all [2] file:String.cc; line number:867 [3] file:String.cc; line number:860 [4] file:String.cc; line number:875 [5] file:String.cc; line number:853 [6] file:String.cc; line number:846 [7] file:String.cc; line number:735 > 2 4 6 Breakpoint 1 at 0xb26c: file String.cc, line 867. Breakpoint 2 at 0xb344: file String.cc, line 875. Breakpoint 3 at 0xafcc: file String.cc, line 846. Multiple breakpoints were set. Use the "delete" command to delete unwanted breakpoints. (@value{GDBP}) @end smallexample @end ifclear @ifclear BARETARGET @node Error in Breakpoints @subsection ``Cannot insert breakpoints'' @c FIXME: "cannot insert breakpoints" error, v unclear. @c Q in pending mail to Gilmore. ---pesch@cygnus.com, 26mar91 @c some light may be shed by looking at instances of @c ONE_PROCESS_WRITETEXT. But error message seems possible otherwise @c too. pesch, 20sep91 Under some operating systems, breakpoints cannot be used in a program if any other process is running that program. In this situation, attempting to run or continue a program with a breakpoint causes @value{GDBN} to stop the other process. When this happens, you have three ways to proceed: @enumerate @item Remove or disable the breakpoints, then continue. @item Suspend @value{GDBN}, and copy the file containing your program to a new name. Resume @value{GDBN} and use the @code{exec-file} command to specify that @value{GDBN} should run your program under that name. Then start your program again. @c FIXME: RMS commented here "Show example". Maybe when someone @c explains the first FIXME: in this section... @item Relink your program so that the text segment is nonsharable, using the linker option @samp{-N}. The operating system limitation may not apply to nonsharable executables. @end enumerate @end ifclear @node Continuing and Stepping @section Continuing and stepping @cindex stepping @cindex continuing @cindex resuming execution @dfn{Continuing} means resuming program execution until your program completes normally. In contrast, @dfn{stepping} means executing just one more ``step'' of your program, where ``step'' may mean either one line of source code, or one machine instruction (depending on what particular command you use). Either when continuing or when stepping, your program may stop even sooner, due to @ifset BARETARGET a breakpoint. @end ifset @ifclear BARETARGET a breakpoint or a signal. (If due to a signal, you may want to use @code{handle}, or use @samp{signal 0} to resume execution. @xref{Signals, ,Signals}.) @end ifclear @table @code @item continue @r{[}@var{ignore-count}@r{]} @itemx c @r{[}@var{ignore-count}@r{]} @itemx fg @r{[}@var{ignore-count}@r{]} @kindex continue @kindex c @kindex fg Resume program execution, at the address where your program last stopped; any breakpoints set at that address are bypassed. The optional argument @var{ignore-count} allows you to specify a further number of times to ignore a breakpoint at this location; its effect is like that of @code{ignore} (@pxref{Conditions, ,Break conditions}). The argument @var{ignore-count} is meaningful only when your program stopped due to a breakpoint. At other times, the argument to @code{continue} is ignored. The synonyms @code{c} and @code{fg} are provided purely for convenience, and have exactly the same behavior as @code{continue}. @end table To resume execution at a different place, you can use @code{return} (@pxref{Returning, ,Returning from a function}) to go back to the calling function; or @code{jump} (@pxref{Jumping, ,Continuing at a different address}) to go to an arbitrary location in your program. A typical technique for using stepping is to set a breakpoint @ifclear CONLY (@pxref{Breakpoints, ,Breakpoints; watchpoints; and exceptions}) @end ifclear @ifset CONLY (@pxref{Breakpoints, ,Breakpoints and watchpoints}) @end ifset at the beginning of the function or the section of your program where a problem is believed to lie, run your program until it stops at that breakpoint, and then step through the suspect area, examining the variables that are interesting, until you see the problem happen. @table @code @item step @kindex step @kindex s Continue running your program until control reaches a different source line, then stop it and return control to @value{GDBN}. This command is abbreviated @code{s}. @quotation @c "without debugging information" is imprecise; actually "without line @c numbers in the debugging information". (gcc -g1 has debugging info but @c not line numbers). But it seems complex to try to make that @c distinction here. @emph{Warning:} If you use the @code{step} command while control is within a function that was compiled without debugging information, execution proceeds until control reaches a function that does have debugging information. Likewise, it will not step into a function which is compiled without debugging information. To step through functions without debugging information, use the @code{stepi} command, described below. @end quotation @item step @var{count} Continue running as in @code{step}, but do so @var{count} times. If a breakpoint is reached, @ifclear BARETARGET or a signal not related to stepping occurs before @var{count} steps, @end ifclear stepping stops right away. @item next @r{[}@var{count}@r{]} @kindex next @kindex n Continue to the next source line in the current (innermost) stack frame. Similar to @code{step}, but any function calls appearing within the line of code are executed without stopping. Execution stops when control reaches a different line of code at the stack level which was executing when the @code{next} command was given. This command is abbreviated @code{n}. An argument @var{count} is a repeat count, as for @code{step}. @code{next} within a function that lacks debugging information acts like @code{step}, but any function calls appearing within the code of the function are executed without stopping. @item finish @kindex finish Continue running until just after function in the selected stack frame returns. Print the returned value (if any). Contrast this with the @code{return} command (@pxref{Returning, ,Returning from a function}). @item until @kindex until @itemx u @kindex u Continue running until a source line past the current line, in the current stack frame, is reached. This command is used to avoid single stepping through a loop more than once. It is like the @code{next} command, except that when @code{until} encounters a jump, it automatically continues execution until the program counter is greater than the address of the jump. This means that when you reach the end of a loop after single stepping though it, @code{until} makes your program continue execution until it exits the loop. In contrast, a @code{next} command at the end of a loop simply steps back to the beginning of the loop, which forces you to step through the next iteration. @code{until} always stops your program if it attempts to exit the current stack frame. @code{until} may produce somewhat counterintuitive results if the order of machine code does not match the order of the source lines. For example, in the following excerpt from a debugging session, the @code{f} (@code{frame}) command shows that execution is stopped at line @code{206}; yet when we use @code{until}, we get to line @code{195}: @example (@value{GDBP}) f #0 main (argc=4, argv=0xf7fffae8) at m4.c:206 206 expand_input(); (@value{GDBP}) until 195 for ( ; argc > 0; NEXTARG) @{ @end example This happened because, for execution efficiency, the compiler had generated code for the loop closure test at the end, rather than the start, of the loop---even though the test in a C @code{for}-loop is written before the body of the loop. The @code{until} command appeared to step back to the beginning of the loop when it advanced to this expression; however, it has not really gone to an earlier statement---not in terms of the actual machine code. @code{until} with no argument works by means of single instruction stepping, and hence is slower than @code{until} with an argument. @item until @var{location} @itemx u @var{location} Continue running your program until either the specified location is reached, or the current stack frame returns. @var{location} is any of the forms of argument acceptable to @code{break} (@pxref{Set Breaks, ,Setting breakpoints}). This form of the command uses breakpoints, and hence is quicker than @code{until} without an argument. @item stepi @itemx si @kindex stepi @kindex si Execute one machine instruction, then stop and return to the debugger. It is often useful to do @samp{display/i $pc} when stepping by machine instructions. This makes @value{GDBN} automatically display the next instruction to be executed, each time your program stops. @xref{Auto Display,, Automatic display}. An argument is a repeat count, as in @code{step}. @need 750 @item nexti @itemx ni @kindex nexti @kindex ni Execute one machine instruction, but if it is a function call, proceed until the function returns. An argument is a repeat count, as in @code{next}. @end table @ifset POSIX @node Signals @section Signals @cindex signals A signal is an asynchronous event that can happen in a program. The operating system defines the possible kinds of signals, and gives each kind a name and a number. For example, in Unix @code{SIGINT} is the signal a program gets when you type an interrupt (often @kbd{C-c}); @code{SIGSEGV} is the signal a program gets from referencing a place in memory far away from all the areas in use; @code{SIGALRM} occurs when the alarm clock timer goes off (which happens only if your program has requested an alarm). @cindex fatal signals Some signals, including @code{SIGALRM}, are a normal part of the functioning of your program. Others, such as @code{SIGSEGV}, indicate errors; these signals are @dfn{fatal} (kill your program immediately) if the program has not specified in advance some other way to handle the signal. @code{SIGINT} does not indicate an error in your program, but it is normally fatal so it can carry out the purpose of the interrupt: to kill the program. @value{GDBN} has the ability to detect any occurrence of a signal in your program. You can tell @value{GDBN} in advance what to do for each kind of signal. @cindex handling signals Normally, @value{GDBN} is set up to ignore non-erroneous signals like @code{SIGALRM} (so as not to interfere with their role in the functioning of your program) but to stop your program immediately whenever an error signal happens. You can change these settings with the @code{handle} command. @table @code @item info signals @kindex info signals Print a table of all the kinds of signals and how @value{GDBN} has been told to handle each one. You can use this to see the signal numbers of all the defined types of signals. @item handle @var{signal} @var{keywords}@dots{} @kindex handle Change the way @value{GDBN} handles signal @var{signal}. @var{signal} can be the number of a signal or its name (with or without the @samp{SIG} at the beginning). The @var{keywords} say what change to make. @end table @c @group The keywords allowed by the @code{handle} command can be abbreviated. Their full names are: @table @code @item nostop @value{GDBN} should not stop your program when this signal happens. It may still print a message telling you that the signal has come in. @item stop @value{GDBN} should stop your program when this signal happens. This implies the @code{print} keyword as well. @item print @value{GDBN} should print a message when this signal happens. @item noprint @value{GDBN} should not mention the occurrence of the signal at all. This implies the @code{nostop} keyword as well. @item pass @value{GDBN} should allow your program to see this signal; your program can handle the signal, or else it may terminate if the signal is fatal and not handled. @item nopass @value{GDBN} should not allow your program to see this signal. @end table @c @end group When a signal stops your program, the signal is not visible until you continue. Your program sees the signal then, if @code{pass} is in effect for the signal in question @emph{at that time}. In other words, after @value{GDBN} reports a signal, you can use the @code{handle} command with @code{pass} or @code{nopass} to control whether your program sees that signal when you continue. You can also use the @code{signal} command to prevent your program from seeing a signal, or cause it to see a signal it normally would not see, or to give it any signal at any time. For example, if your program stopped due to some sort of memory reference error, you might store correct values into the erroneous variables and continue, hoping to see more execution; but your program would probably terminate immediately as a result of the fatal signal once it saw the signal. To prevent this, you can continue with @samp{signal 0}. @xref{Signaling, ,Giving your program a signal}. @end ifset @ifclear BARETARGET @node Thread Stops @section Stopping and starting multi-thread programs When your program has multiple threads (@pxref{Threads,, Debugging programs with multiple threads}), you can choose whether to set breakpoints on all threads, or on a particular thread. @table @code @cindex breakpoints and threads @cindex thread breakpoints @kindex break @dots{} thread @var{threadno} @item break @var{linespec} thread @var{threadno} @itemx break @var{linespec} thread @var{threadno} if @dots{} Use the qualifier @samp{thread @var{threadno}} with a breakpoint command to specify that you only want @value{GDBN} to stop the program when a particular thread reaches this breakpoint. @var{threadno} is one of the numeric thread identifiers assigned by @value{GDBN}, shown in the first column of the @samp{info threads} display. If you do not specify @samp{thread @var{threadno}} when you set a breakpoint, the breakpoint applies to @emph{all} threads of your program. You can use the @code{thread} qualifier on conditional breakpoints as well; in this case, place @samp{thread @var{threadno}} before the breakpoint condition, like this: @smallexample (gdb) break frik.c:13 thread 28 if bartab > lim @end smallexample @end table @cindex stopped threads @cindex threads, stopped Whenever your program stops under @value{GDBN} for any reason, @emph{all} threads of execution stop, not just the current thread. This allows you to examine the overall state of the program, including switching between threads, without worrying that things may change underfoot. @cindex continuing threads @cindex threads, continuing Conversely, whenever you restart the program, @emph{all} threads start executing. @emph{This is true even when single-stepping} with commands like @code{step} or @code{next}. In particular, @value{GDBN} cannot single-step all threads in lockstep. Since thread scheduling is up to your debugging target's operating system (not controlled by @value{GDBN}), other threads may execute more than one statement while the current thread completes a single step. Moreover, in general other threads stop in the middle of a statement, rather than at a clean statement boundary, when the program stops. You might even find your program stopped in another thread after continuing or even single-stepping. This happens whenever some other thread runs into a breakpoint, a signal, or an exception before the first thread completes whatever you requested. @end ifclear @node Stack @chapter Examining the Stack When your program has stopped, the first thing you need to know is where it stopped and how it got there. @cindex call stack Each time your program performs a function call, the information about where in your program the call was made from is saved in a block of data called a @dfn{stack frame}. The frame also contains the arguments of the call and the local variables of the function that was called. All the stack frames are allocated in a region of memory called the @dfn{call stack}. When your program stops, the @value{GDBN} commands for examining the stack allow you to see all of this information. @cindex selected frame One of the stack frames is @dfn{selected} by @value{GDBN} and many @value{GDBN} commands refer implicitly to the selected frame. In particular, whenever you ask @value{GDBN} for the value of a variable in your program, the value is found in the selected frame. There are special @value{GDBN} commands to select whichever frame you are interested in. When your program stops, @value{GDBN} automatically selects the currently executing frame and describes it briefly as the @code{frame} command does (@pxref{Frame Info, ,Information about a frame}). @menu * Frames:: Stack frames * Backtrace:: Backtraces * Selection:: Selecting a frame * Frame Info:: Information on a frame @ifset MIPS * MIPS Stack:: MIPS machines and the function stack @end ifset @end menu @node Frames @section Stack frames @cindex frame @cindex stack frame The call stack is divided up into contiguous pieces called @dfn{stack frames}, or @dfn{frames} for short; each frame is the data associated with one call to one function. The frame contains the arguments given to the function, the function's local variables, and the address at which the function is executing. @cindex initial frame @cindex outermost frame @cindex innermost frame When your program is started, the stack has only one frame, that of the function @code{main}. This is called the @dfn{initial} frame or the @dfn{outermost} frame. Each time a function is called, a new frame is made. Each time a function returns, the frame for that function invocation is eliminated. If a function is recursive, there can be many frames for the same function. The frame for the function in which execution is actually occurring is called the @dfn{innermost} frame. This is the most recently created of all the stack frames that still exist. @cindex frame pointer Inside your program, stack frames are identified by their addresses. A stack frame consists of many bytes, each of which has its own address; each kind of computer has a convention for choosing one of those bytes whose address serves as the address of the frame. Usually this address is kept in a register called the @dfn{frame pointer register} while execution is going on in that frame. @cindex frame number @value{GDBN} assigns numbers to all existing stack frames, starting with zero for the innermost frame, one for the frame that called it, and so on upward. These numbers do not really exist in your program; they are assigned by @value{GDBN} to give you a way of designating stack frames in @value{GDBN} commands. @c below produces an acceptable overful hbox. --mew 13aug1993 @cindex frameless execution Some compilers provide a way to compile functions so that they operate without stack frames. (For example, the @code{@value{GCC}} option @samp{-fomit-frame-pointer} generates functions without a frame.) This is occasionally done with heavily used library functions to save the frame setup time. @value{GDBN} has limited facilities for dealing with these function invocations. If the innermost function invocation has no stack frame, @value{GDBN} nevertheless regards it as though it had a separate frame, which is numbered zero as usual, allowing correct tracing of the function call chain. However, @value{GDBN} has no provision for frameless functions elsewhere in the stack. @node Backtrace @section Backtraces A backtrace is a summary of how your program got where it is. It shows one line per frame, for many frames, starting with the currently executing frame (frame zero), followed by its caller (frame one), and on up the stack. @table @code @item backtrace @itemx bt @kindex backtrace @kindex bt Print a backtrace of the entire stack: one line per frame for all frames in the stack. You can stop the backtrace at any time by typing the system interrupt character, normally @kbd{C-c}. @item backtrace @var{n} @itemx bt @var{n} Similar, but print only the innermost @var{n} frames. @item backtrace -@var{n} @itemx bt -@var{n} Similar, but print only the outermost @var{n} frames. @end table @kindex where @kindex info stack @kindex info s The names @code{where} and @code{info stack} (abbreviated @code{info s}) are additional aliases for @code{backtrace}. Each line in the backtrace shows the frame number and the function name. The program counter value is also shown---unless you use @code{set print address off}. The backtrace also shows the source file name and line number, as well as the arguments to the function. The program counter value is omitted if it is at the beginning of the code for that line number. Here is an example of a backtrace. It was made with the command @samp{bt 3}, so it shows the innermost three frames. @smallexample @group #0 m4_traceon (obs=0x24eb0, argc=1, argv=0x2b8c8) at builtin.c:993 #1 0x6e38 in expand_macro (sym=0x2b600) at macro.c:242 #2 0x6840 in expand_token (obs=0x0, t=177664, td=0xf7fffb08) at macro.c:71 (More stack frames follow...) @end group @end smallexample @noindent The display for frame zero does not begin with a program counter value, indicating that your program has stopped at the beginning of the code for line @code{993} of @code{builtin.c}. @node Selection @section Selecting a frame Most commands for examining the stack and other data in your program work on whichever stack frame is selected at the moment. Here are the commands for selecting a stack frame; all of them finish by printing a brief description of the stack frame just selected. @table @code @item frame @var{n} @itemx f @var{n} @kindex frame @kindex f Select frame number @var{n}. Recall that frame zero is the innermost (currently executing) frame, frame one is the frame that called the innermost one, and so on. The highest-numbered frame is the one for @code{main}. @item frame @var{addr} @itemx f @var{addr} Select the frame at address @var{addr}. This is useful mainly if the chaining of stack frames has been damaged by a bug, making it impossible for @value{GDBN} to assign numbers properly to all frames. In addition, this can be useful when your program has multiple stacks and switches between them. @ifclear H8EXCLUSIVE On the SPARC architecture, @code{frame} needs two addresses to select an arbitrary frame: a frame pointer and a stack pointer. On the MIPS and Alpha architecture, it needs two addresses: a stack pointer and a program counter. On the 29k architecture, it needs three addresses: a register stack pointer, a program counter, and a memory stack pointer. @c note to future updaters: this is conditioned on a flag @c SETUP_ARBITRARY_FRAME in the tm-*.h files. The above is up to date @c as of 27 Jan 1994. @end ifclear @item up @var{n} @kindex up Move @var{n} frames up the stack. For positive numbers @var{n}, this advances toward the outermost frame, to higher frame numbers, to frames that have existed longer. @var{n} defaults to one. @item down @var{n} @kindex down @kindex do Move @var{n} frames down the stack. For positive numbers @var{n}, this advances toward the innermost frame, to lower frame numbers, to frames that were created more recently. @var{n} defaults to one. You may abbreviate @code{down} as @code{do}. @end table All of these commands end by printing two lines of output describing the frame. The first line shows the frame number, the function name, the arguments, and the source file and line number of execution in that frame. The second line shows the text of that source line. @need 1000 For example: @smallexample @group (@value{GDBP}) up #1 0x22f0 in main (argc=1, argv=0xf7fffbf4, env=0xf7fffbfc) at env.c:10 10 read_input_file (argv[i]); @end group @end smallexample After such a printout, the @code{list} command with no arguments prints ten lines centered on the point of execution in the frame. @xref{List, ,Printing source lines}. @table @code @item up-silently @var{n} @itemx down-silently @var{n} @kindex down-silently @kindex up-silently These two commands are variants of @code{up} and @code{down}, respectively; they differ in that they do their work silently, without causing display of the new frame. They are intended primarily for use in @value{GDBN} command scripts, where the output might be unnecessary and distracting. @end table @node Frame Info @section Information about a frame There are several other commands to print information about the selected stack frame. @table @code @item frame @itemx f When used without any argument, this command does not change which frame is selected, but prints a brief description of the currently selected stack frame. It can be abbreviated @code{f}. With an argument, this command is used to select a stack frame. @xref{Selection, ,Selecting a frame}. @item info frame @itemx info f @kindex info frame @kindex info f This command prints a verbose description of the selected stack frame, including the address of the frame, the addresses of the next frame down (called by this frame) and the next frame up (caller of this frame), the language that the source code corresponding to this frame was written in, the address of the frame's arguments, the program counter saved in it (the address of execution in the caller frame), and which registers were saved in the frame. The verbose description is useful when something has gone wrong that has made the stack format fail to fit the usual conventions. @item info frame @var{addr} @itemx info f @var{addr} Print a verbose description of the frame at address @var{addr}, without selecting that frame. The selected frame remains unchanged by this command. This requires the same kind of address (more than one for some architectures) that you specify in the @code{frame} command. @xref{Selection, ,Selecting a frame}. @item info args @kindex info args Print the arguments of the selected frame, each on a separate line. @item info locals @kindex info locals Print the local variables of the selected frame, each on a separate line. These are all variables (declared either static or automatic) accessible at the point of execution of the selected frame. @ifclear CONLY @item info catch @kindex info catch @cindex catch exceptions @cindex exception handlers Print a list of all the exception handlers that are active in the current stack frame at the current point of execution. To see other exception handlers, visit the associated frame (using the @code{up}, @code{down}, or @code{frame} commands); then type @code{info catch}. @xref{Exception Handling, ,Breakpoints and exceptions}. @end ifclear @end table @ifset MIPS @node MIPS Stack @section MIPS machines and the function stack @cindex stack on MIPS @cindex MIPS stack MIPS based computers use an unusual stack frame, which sometimes requires @value{GDBN} to search backward in the object code to find the beginning of a function. @cindex response time, MIPS debugging To improve response time (especially for embedded applications, where @value{GDBN} may be restricted to a slow serial line for this search) you may want to limit the size of this search, using one of these commands: @c FIXME! So what happens when GDB does *not* find the beginning of a @c function? @cindex @code{heuristic-fence-post} (MIPS) @table @code @item set heuristic-fence-post @var{limit} Restrict @value{GDBN} to examining at most @var{limit} bytes in its search for the beginning of a function. A value of @code{0} (the default) means there is no limit. @item show heuristic-fence-post Display the current limit. @end table @noindent These commands are available @emph{only} when @value{GDBN} is configured for debugging programs on MIPS processors. @end ifset @node Source @chapter Examining Source Files @value{GDBN} can print parts of your program's source, since the debugging information recorded in the program tells @value{GDBN} what source files were used to build it. When your program stops, @value{GDBN} spontaneously prints the line where it stopped. Likewise, when you select a stack frame (@pxref{Selection, ,Selecting a frame}), @value{GDBN} prints the line where execution in that frame has stopped. You can print other portions of source files by explicit command. @ifclear DOSHOST If you use @value{GDBN} through its GNU Emacs interface, you may prefer to use Emacs facilities to view source; @pxref{Emacs, ,Using @value{GDBN} under GNU Emacs}. @end ifclear @menu * List:: Printing source lines @ifclear DOSHOST * Search:: Searching source files @end ifclear * Source Path:: Specifying source directories * Machine Code:: Source and machine code @end menu @node List @section Printing source lines @kindex list @kindex l To print lines from a source file, use the @code{list} command (abbreviated @code{l}). There are several ways to specify what part of the file you want to print. Here are the forms of the @code{list} command most commonly used: @table @code @item list @var{linenum} Print lines centered around line number @var{linenum} in the current source file. @item list @var{function} Print lines centered around the beginning of function @var{function}. @item list Print more lines. If the last lines printed were printed with a @code{list} command, this prints lines following the last lines printed; however, if the last line printed was a solitary line printed as part of displaying a stack frame (@pxref{Stack, ,Examining the Stack}), this prints lines centered around that line. @item list - Print lines just before the lines last printed. @end table By default, @value{GDBN} prints ten source lines with any of these forms of the @code{list} command. You can change this using @code{set listsize}: @table @code @item set listsize @var{count} @kindex set listsize Make the @code{list} command display @var{count} source lines (unless the @code{list} argument explicitly specifies some other number). @item show listsize @kindex show listsize Display the number of lines that @code{list} prints. @end table Repeating a @code{list} command with @key{RET} discards the argument, so it is equivalent to typing just @code{list}. This is more useful than listing the same lines again. An exception is made for an argument of @samp{-}; that argument is preserved in repetition so that each repetition moves up in the source file. @cindex linespec In general, the @code{list} command expects you to supply zero, one or two @dfn{linespecs}. Linespecs specify source lines; there are several ways of writing them but the effect is always to specify some source line. Here is a complete description of the possible arguments for @code{list}: @table @code @item list @var{linespec} Print lines centered around the line specified by @var{linespec}. @item list @var{first},@var{last} Print lines from @var{first} to @var{last}. Both arguments are linespecs. @item list ,@var{last} Print lines ending with @var{last}. @item list @var{first}, Print lines starting with @var{first}. @item list + Print lines just after the lines last printed. @item list - Print lines just before the lines last printed. @item list As described in the preceding table. @end table Here are the ways of specifying a single source line---all the kinds of linespec. @table @code @item @var{number} Specifies line @var{number} of the current source file. When a @code{list} command has two linespecs, this refers to the same source file as the first linespec. @item +@var{offset} Specifies the line @var{offset} lines after the last line printed. When used as the second linespec in a @code{list} command that has two, this specifies the line @var{offset} lines down from the first linespec. @item -@var{offset} Specifies the line @var{offset} lines before the last line printed. @item @var{filename}:@var{number} Specifies line @var{number} in the source file @var{filename}. @item @var{function} @c FIXME: "of the open-brace" is C-centric. When we add other langs... Specifies the line of the open-brace that begins the body of the function @var{function}. @item @var{filename}:@var{function} Specifies the line of the open-brace that begins the body of the function @var{function} in the file @var{filename}. You only need the file name with a function name to avoid ambiguity when there are identically named functions in different source files. @item *@var{address} Specifies the line containing the program address @var{address}. @var{address} may be any expression. @end table @ifclear DOSHOST @node Search @section Searching source files @cindex searching @kindex reverse-search There are two commands for searching through the current source file for a regular expression. @table @code @item forward-search @var{regexp} @itemx search @var{regexp} @kindex search @kindex forward-search The command @samp{forward-search @var{regexp}} checks each line, starting with the one following the last line listed, for a match for @var{regexp}. It lists the line that is found. You can use synonym @samp{search @var{regexp}} or abbreviate the command name as @code{fo}. @item reverse-search @var{regexp} The command @samp{reverse-search @var{regexp}} checks each line, starting with the one before the last line listed and going backward, for a match for @var{regexp}. It lists the line that is found. You can abbreviate this command as @code{rev}. @end table @end ifclear @node Source Path @section Specifying source directories @cindex source path @cindex directories for source files Executable programs sometimes do not record the directories of the source files from which they were compiled, just the names. Even when they do, the directories could be moved between the compilation and your debugging session. @value{GDBN} has a list of directories to search for source files; this is called the @dfn{source path}. Each time @value{GDBN} wants a source file, it tries all the directories in the list, in the order they are present in the list, until it finds a file with the desired name. Note that the executable search path is @emph{not} used for this purpose. Neither is the current working directory, unless it happens to be in the source path. If @value{GDBN} cannot find a source file in the source path, and the object program records a directory, @value{GDBN} tries that directory too. If the source path is empty, and there is no record of the compilation directory, @value{GDBN} looks in the current directory as a last resort. Whenever you reset or rearrange the source path, @value{GDBN} clears out any information it has cached about where source files are found and where each line is in the file. @kindex directory When you start @value{GDBN}, its source path is empty. To add other directories, use the @code{directory} command. @table @code @item directory @var{dirname} @dots{} Add directory @var{dirname} to the front of the source path. Several directory names may be given to this command, separated by @samp{:} or whitespace. You may specify a directory that is already in the source path; this moves it forward, so @value{GDBN} searches it sooner. @kindex cdir @kindex cwd @kindex $cdir @kindex $cwd @cindex compilation directory @cindex current directory @cindex working directory @cindex directory, current @cindex directory, compilation You can use the string @samp{$cdir} to refer to the compilation directory (if one is recorded), and @samp{$cwd} to refer to the current working directory. @samp{$cwd} is not the same as @samp{.}---the former tracks the current working directory as it changes during your @value{GDBN} session, while the latter is immediately expanded to the current directory at the time you add an entry to the source path. @item directory Reset the source path to empty again. This requires confirmation. @c RET-repeat for @code{directory} is explicitly disabled, but since @c repeating it would be a no-op we do not say that. (thanks to RMS) @item show directories @kindex show directories Print the source path: show which directories it contains. @end table If your source path is cluttered with directories that are no longer of interest, @value{GDBN} may sometimes cause confusion by finding the wrong versions of source. You can correct the situation as follows: @enumerate @item Use @code{directory} with no argument to reset the source path to empty. @item Use @code{directory} with suitable arguments to reinstall the directories you want in the source path. You can add all the directories in one command. @end enumerate @node Machine Code @section Source and machine code You can use the command @code{info line} to map source lines to program addresses (and vice versa), and the command @code{disassemble} to display a range of addresses as machine instructions. @table @code @item info line @var{linespec} @kindex info line Print the starting and ending addresses of the compiled code for source line @var{linespec}. You can specify source lines in any of the ways understood by the @code{list} command (@pxref{List, ,Printing source lines}). @end table For example, we can use @code{info line} to discover the location of the object code for the first line of function @code{m4_changequote}: @smallexample (@value{GDBP}) info line m4_changecom Line 895 of "builtin.c" starts at pc 0x634c and ends at 0x6350. @end smallexample @noindent We can also inquire (using @code{*@var{addr}} as the form for @var{linespec}) what source line covers a particular address: @smallexample (@value{GDBP}) info line *0x63ff Line 926 of "builtin.c" starts at pc 0x63e4 and ends at 0x6404. @end smallexample @cindex @code{$_} and @code{info line} After @code{info line}, the default address for the @code{x} command is changed to the starting address of the line, so that @samp{x/i} is sufficient to begin examining the machine code (@pxref{Memory, ,Examining memory}). Also, this address is saved as the value of the convenience variable @code{$_} (@pxref{Convenience Vars, ,Convenience variables}). @table @code @kindex disassemble @item disassemble @cindex assembly instructions @cindex instructions, assembly @cindex machine instructions @cindex listing machine instructions This specialized command dumps a range of memory as machine instructions. The default memory range is the function surrounding the program counter of the selected frame. A single argument to this command is a program counter value; @value{GDBN} dumps the function surrounding this value. Two arguments specify a range of addresses (first inclusive, second exclusive) to dump. @end table @ifclear H8EXCLUSIVE We can use @code{disassemble} to inspect the object code range shown in the last @code{info line} example (the example shows SPARC machine instructions): @smallexample (@value{GDBP}) disas 0x63e4 0x6404 Dump of assembler code from 0x63e4 to 0x6404: 0x63e4 : ble 0x63f8 0x63e8 : sethi %hi(0x4c00), %o0 0x63ec : ld [%i1+4], %o0 0x63f0 : b 0x63fc 0x63f4 : ld [%o0+4], %o0 0x63f8 : or %o0, 0x1a4, %o0 0x63fc : call 0x9288 0x6400 : nop End of assembler dump. @end smallexample @end ifclear @ifset H8EXCLUSIVE For example, here is the beginning of the output for the disassembly of a function @code{fact}: @smallexample (@value{GDBP}) disas fact Dump of assembler code for function fact: to 0x808c: 0x802c : 6d f2 mov.w r2,@@-r7 0x802e : 6d f3 mov.w r3,@@-r7 0x8030 : 6d f6 mov.w r6,@@-r7 0x8032 : 0d 76 mov.w r7,r6 0x8034 : 6f 70 00 08 mov.w @@(0x8,r7),r0 0x8038 19 11 sub.w r1,r1 . . . @end smallexample @end ifset @node Data @chapter Examining Data @cindex printing data @cindex examining data @kindex print @kindex inspect @c "inspect" is not quite a synonym if you are using Epoch, which we do not @c document because it is nonstandard... Under Epoch it displays in a @c different window or something like that. The usual way to examine data in your program is with the @code{print} command (abbreviated @code{p}), or its synonym @code{inspect}. @ifclear CONLY It evaluates and prints the value of an expression of the language your program is written in (@pxref{Languages, ,Using @value{GDBN} with Different Languages}). @end ifclear @table @code @item print @var{exp} @itemx print /@var{f} @var{exp} @var{exp} is an expression (in the source language). By default the value of @var{exp} is printed in a format appropriate to its data type; you can choose a different format by specifying @samp{/@var{f}}, where @var{f} is a letter specifying the format; @pxref{Output Formats,,Output formats}. @item print @itemx print /@var{f} If you omit @var{exp}, @value{GDBN} displays the last value again (from the @dfn{value history}; @pxref{Value History, ,Value history}). This allows you to conveniently inspect the same value in an alternative format. @end table A more low-level way of examining data is with the @code{x} command. It examines data in memory at a specified address and prints it in a specified format. @xref{Memory, ,Examining memory}. If you are interested in information about types, or about how the fields of a struct @ifclear CONLY or class @end ifclear are declared, use the @code{ptype @var{exp}} command rather than @code{print}. @xref{Symbols, ,Examining the Symbol Table}. @menu * Expressions:: Expressions * Variables:: Program variables * Arrays:: Artificial arrays * Output Formats:: Output formats * Memory:: Examining memory * Auto Display:: Automatic display * Print Settings:: Print settings * Value History:: Value history * Convenience Vars:: Convenience variables * Registers:: Registers @ifclear HAVE-FLOAT * Floating Point Hardware:: Floating point hardware @end ifclear @end menu @node Expressions @section Expressions @cindex expressions @code{print} and many other @value{GDBN} commands accept an expression and compute its value. Any kind of constant, variable or operator defined by the programming language you are using is valid in an expression in @value{GDBN}. This includes conditional expressions, function calls, casts and string constants. It unfortunately does not include symbols defined by preprocessor @code{#define} commands. @ifclear CONLY Because C is so widespread, most of the expressions shown in examples in this manual are in C. @xref{Languages, , Using @value{GDBN} with Different Languages}, for information on how to use expressions in other languages. In this section, we discuss operators that you can use in @value{GDBN} expressions regardless of your programming language. Casts are supported in all languages, not just in C, because it is so useful to cast a number into a pointer so as to examine a structure at that address in memory. @c FIXME: casts supported---Mod2 true? @end ifclear @value{GDBN} supports these operators in addition to those of programming languages: @table @code @item @@ @samp{@@} is a binary operator for treating parts of memory as arrays. @xref{Arrays, ,Artificial arrays}, for more information. @item :: @samp{::} allows you to specify a variable in terms of the file or function where it is defined. @xref{Variables, ,Program variables}. @item @{@var{type}@} @var{addr} @cindex @{@var{type}@} @cindex type casting memory @cindex memory, viewing as typed object @cindex casts, to view memory Refers to an object of type @var{type} stored at address @var{addr} in memory. @var{addr} may be any expression whose value is an integer or pointer (but parentheses are required around binary operators, just as in a cast). This construct is allowed regardless of what kind of data is normally supposed to reside at @var{addr}. @end table @node Variables @section Program variables The most common kind of expression to use is the name of a variable in your program. Variables in expressions are understood in the selected stack frame (@pxref{Selection, ,Selecting a frame}); they must either be global (or static) or be visible according to the scope rules of the programming language from the point of execution in that frame. This means that in the function @example foo (a) int a; @{ bar (a); @{ int b = test (); bar (b); @} @} @end example @noindent you can examine and use the variable @code{a} whenever your program is executing within the function @code{foo}, but you can only use or examine the variable @code{b} while your program is executing inside the block where @code{b} is declared. @cindex variable name conflict There is an exception: you can refer to a variable or function whose scope is a single source file even if the current execution point is not in this file. But it is possible to have more than one such variable or function with the same name (in different source files). If that happens, referring to that name has unpredictable effects. If you wish, you can specify a static variable in a particular function or file, using the colon-colon notation: @cindex colon-colon @iftex @c info cannot cope with a :: index entry, but why deprive hard copy readers? @kindex :: @end iftex @example @var{file}::@var{variable} @var{function}::@var{variable} @end example @noindent Here @var{file} or @var{function} is the name of the context for the static @var{variable}. In the case of file names, you can use quotes to make sure @value{GDBN} parses the file name as a single word---for example, to print a global value of @code{x} defined in @file{f2.c}: @example (@value{GDBP}) p 'f2.c'::x @end example @ifclear CONLY @cindex C++ scope resolution This use of @samp{::} is very rarely in conflict with the very similar use of the same notation in C++. @value{GDBN} also supports use of the C++ scope resolution operator in @value{GDBN} expressions. @c FIXME: Um, so what happens in one of those rare cases where it's in @c conflict?? --mew @end ifclear @cindex wrong values @cindex variable values, wrong @quotation @emph{Warning:} Occasionally, a local variable may appear to have the wrong value at certain points in a function---just after entry to a new scope, and just before exit. @end quotation You may see this problem when you are stepping by machine instructions. This is because on most machines, it takes more than one instruction to set up a stack frame (including local variable definitions); if you are stepping by machine instructions, variables may appear to have the wrong values until the stack frame is completely built. On exit, it usually also takes more than one machine instruction to destroy a stack frame; after you begin stepping through that group of instructions, local variable definitions may be gone. @node Arrays @section Artificial arrays @cindex artificial array @kindex @@ It is often useful to print out several successive objects of the same type in memory; a section of an array, or an array of dynamically determined size for which only a pointer exists in the program. You can do this by referring to a contiguous span of memory as an @dfn{artificial array}, using the binary operator @samp{@@}. The left operand of @samp{@@} should be the first element of the desired array, as an individual object. The right operand should be the desired length of the array. The result is an array value whose elements are all of the type of the left argument. The first element is actually the left argument; the second element comes from bytes of memory immediately following those that hold the first element, and so on. Here is an example. If a program says @example int *array = (int *) malloc (len * sizeof (int)); @end example @noindent you can print the contents of @code{array} with @example p *array@@len @end example The left operand of @samp{@@} must reside in memory. Array values made with @samp{@@} in this way behave just like other arrays in terms of subscripting, and are coerced to pointers when used in expressions. Artificial arrays most often appear in expressions via the value history (@pxref{Value History, ,Value history}), after printing one out. Sometimes the artificial array mechanism is not quite enough; in moderately complex data structures, the elements of interest may not actually be adjacent---for example, if you are interested in the values of pointers in an array. One useful work-around in this situation is to use a convenience variable (@pxref{Convenience Vars, ,Convenience variables}) as a counter in an expression that prints the first interesting value, and then repeat that expression via @key{RET}. For instance, suppose you have an array @code{dtab} of pointers to structures, and you are interested in the values of a field @code{fv} in each structure. Here is an example of what you might type: @example set $i = 0 p dtab[$i++]->fv @key{RET} @key{RET} @dots{} @end example @node Output Formats @section Output formats @cindex formatted output @cindex output formats By default, @value{GDBN} prints a value according to its data type. Sometimes this is not what you want. For example, you might want to print a number in hex, or a pointer in decimal. Or you might want to view data in memory at a certain address as a character string or as an instruction. To do these things, specify an @dfn{output format} when you print a value. The simplest use of output formats is to say how to print a value already computed. This is done by starting the arguments of the @code{print} command with a slash and a format letter. The format letters supported are: @table @code @item x Regard the bits of the value as an integer, and print the integer in hexadecimal. @item d Print as integer in signed decimal. @item u Print as integer in unsigned decimal. @item o Print as integer in octal. @item t Print as integer in binary. The letter @samp{t} stands for ``two''. @footnote{@samp{b} cannot be used because these format letters are also used with the @code{x} command, where @samp{b} stands for ``byte''; @pxref{Memory,,Examining memory}.} @item a @cindex unknown address, locating Print as an address, both absolute in hexadecimal and as an offset from the nearest preceding symbol. You can use this format used to discover where (in what function) an unknown address is located: @example (@value{GDBP}) p/a 0x54320 $3 = 0x54320 <_initialize_vx+396> @end example @item c Regard as an integer and print it as a character constant. @item f Regard the bits of the value as a floating point number and print using typical floating point syntax. @end table For example, to print the program counter in hex (@pxref{Registers}), type @example p/x $pc @end example @noindent Note that no space is required before the slash; this is because command names in @value{GDBN} cannot contain a slash. To reprint the last value in the value history with a different format, you can use the @code{print} command with just a format and no expression. For example, @samp{p/x} reprints the last value in hex. @node Memory @section Examining memory You can use the command @code{x} (for ``examine'') to examine memory in any of several formats, independently of your program's data types. @cindex examining memory @table @code @kindex x @item x/@var{nfu} @var{addr} @itemx x @var{addr} @itemx x Use the @code{x} command to examine memory. @end table @var{n}, @var{f}, and @var{u} are all optional parameters that specify how much memory to display and how to format it; @var{addr} is an expression giving the address where you want to start displaying memory. If you use defaults for @var{nfu}, you need not type the slash @samp{/}. Several commands set convenient defaults for @var{addr}. @table @r @item @var{n}, the repeat count The repeat count is a decimal integer; the default is 1. It specifies how much memory (counting by units @var{u}) to display. @c This really is **decimal**; unaffected by 'set radix' as of GDB @c 4.1.2. @item @var{f}, the display format The display format is one of the formats used by @code{print}, or @samp{s} (null-terminated string) or @samp{i} (machine instruction). The default is @samp{x} (hexadecimal) initially, or the format from the last time you used either @code{x} or @code{print}. @item @var{u}, the unit size The unit size is any of @table @code @item b Bytes. @item h Halfwords (two bytes). @item w Words (four bytes). This is the initial default. @item g Giant words (eight bytes). @end table Each time you specify a unit size with @code{x}, that size becomes the default unit the next time you use @code{x}. (For the @samp{s} and @samp{i} formats, the unit size is ignored and is normally not written.) @item @var{addr}, starting display address @var{addr} is the address where you want @value{GDBN} to begin displaying memory. The expression need not have a pointer value (though it may); it is always interpreted as an integer address of a byte of memory. @xref{Expressions, ,Expressions}, for more information on expressions. The default for @var{addr} is usually just after the last address examined---but several other commands also set the default address: @code{info breakpoints} (to the address of the last breakpoint listed), @code{info line} (to the starting address of a line), and @code{print} (if you use it to display a value from memory). @end table For example, @samp{x/3uh 0x54320} is a request to display three halfwords (@code{h}) of memory, formatted as unsigned decimal integers (@samp{u}), starting at address @code{0x54320}. @samp{x/4xw $sp} prints the four words (@samp{w}) of memory above the stack pointer (here, @samp{$sp}; @pxref{Registers}) in hexadecimal (@samp{x}). Since the letters indicating unit sizes are all distinct from the letters specifying output formats, you do not have to remember whether unit size or format comes first; either order works. The output specifications @samp{4xw} and @samp{4wx} mean exactly the same thing. (However, the count @var{n} must come first; @samp{wx4} does not work.) Even though the unit size @var{u} is ignored for the formats @samp{s} and @samp{i}, you might still want to use a count @var{n}; for example, @samp{3i} specifies that you want to see three machine instructions, including any operands. The command @code{disassemble} gives an alternative way of inspecting machine instructions; @pxref{Machine Code,,Source and machine code}. All the defaults for the arguments to @code{x} are designed to make it easy to continue scanning memory with minimal specifications each time you use @code{x}. For example, after you have inspected three machine instructions with @samp{x/3i @var{addr}}, you can inspect the next seven with just @samp{x/7}. If you use @key{RET} to repeat the @code{x} command, the repeat count @var{n} is used again; the other arguments default as for successive uses of @code{x}. @cindex @code{$_}, @code{$__}, and value history The addresses and contents printed by the @code{x} command are not saved in the value history because there is often too much of them and they would get in the way. Instead, @value{GDBN} makes these values available for subsequent use in expressions as values of the convenience variables @code{$_} and @code{$__}. After an @code{x} command, the last address examined is available for use in expressions in the convenience variable @code{$_}. The contents of that address, as examined, are available in the convenience variable @code{$__}. If the @code{x} command has a repeat count, the address and contents saved are from the last memory unit printed; this is not the same as the last address printed if several units were printed on the last line of output. @node Auto Display @section Automatic display @cindex automatic display @cindex display of expressions If you find that you want to print the value of an expression frequently (to see how it changes), you might want to add it to the @dfn{automatic display list} so that @value{GDBN} prints its value each time your program stops. Each expression added to the list is given a number to identify it; to remove an expression from the list, you specify that number. The automatic display looks like this: @example 2: foo = 38 3: bar[5] = (struct hack *) 0x3804 @end example @noindent This display shows item numbers, expressions and their current values. As with displays you request manually using @code{x} or @code{print}, you can specify the output format you prefer; in fact, @code{display} decides whether to use @code{print} or @code{x} depending on how elaborate your format specification is---it uses @code{x} if you specify a unit size, or one of the two formats (@samp{i} and @samp{s}) that are only supported by @code{x}; otherwise it uses @code{print}. @table @code @item display @var{exp} @kindex display Add the expression @var{exp} to the list of expressions to display each time your program stops. @xref{Expressions, ,Expressions}. @code{display} does not repeat if you press @key{RET} again after using it. @item display/@var{fmt} @var{exp} For @var{fmt} specifying only a display format and not a size or count, add the expression @var{exp} to the auto-display list but arrange to display it each time in the specified format @var{fmt}. @xref{Output Formats,,Output formats}. @item display/@var{fmt} @var{addr} For @var{fmt} @samp{i} or @samp{s}, or including a unit-size or a number of units, add the expression @var{addr} as a memory address to be examined each time your program stops. Examining means in effect doing @samp{x/@var{fmt} @var{addr}}. @xref{Memory, ,Examining memory}. @end table For example, @samp{display/i $pc} can be helpful, to see the machine instruction about to be executed each time execution stops (@samp{$pc} is a common name for the program counter; @pxref{Registers}). @table @code @item undisplay @var{dnums}@dots{} @itemx delete display @var{dnums}@dots{} @kindex delete display @kindex undisplay Remove item numbers @var{dnums} from the list of expressions to display. @code{undisplay} does not repeat if you press @key{RET} after using it. (Otherwise you would just get the error @samp{No display number @dots{}}.) @item disable display @var{dnums}@dots{} @kindex disable display Disable the display of item numbers @var{dnums}. A disabled display item is not printed automatically, but is not forgotten. It may be enabled again later. @item enable display @var{dnums}@dots{} @kindex enable display Enable display of item numbers @var{dnums}. It becomes effective once again in auto display of its expression, until you specify otherwise. @item display Display the current values of the expressions on the list, just as is done when your program stops. @item info display @kindex info display Print the list of expressions previously set up to display automatically, each one with its item number, but without showing the values. This includes disabled expressions, which are marked as such. It also includes expressions which would not be displayed right now because they refer to automatic variables not currently available. @end table If a display expression refers to local variables, then it does not make sense outside the lexical context for which it was set up. Such an expression is disabled when execution enters a context where one of its variables is not defined. For example, if you give the command @code{display last_char} while inside a function with an argument @code{last_char}, @value{GDBN} displays this argument while your program continues to stop inside that function. When it stops elsewhere---where there is no variable @code{last_char}---the display is disabled automatically. The next time your program stops where @code{last_char} is meaningful, you can enable the display expression once again. @node Print Settings @section Print settings @cindex format options @cindex print settings @value{GDBN} provides the following ways to control how arrays, structures, and symbols are printed. @noindent These settings are useful for debugging programs in any language: @table @code @item set print address @itemx set print address on @kindex set print address @value{GDBN} prints memory addresses showing the location of stack traces, structure values, pointer values, breakpoints, and so forth, even when it also displays the contents of those addresses. The default is @code{on}. For example, this is what a stack frame display looks like, with @code{set print address on}: @smallexample @group (@value{GDBP}) f #0 set_quotes (lq=0x34c78 "<<", rq=0x34c88 ">>") at input.c:530 530 if (lquote != def_lquote) @end group @end smallexample @item set print address off Do not print addresses when displaying their contents. For example, this is the same stack frame displayed with @code{set print address off}: @smallexample @group (@value{GDBP}) set print addr off (@value{GDBP}) f #0 set_quotes (lq="<<", rq=">>") at input.c:530 530 if (lquote != def_lquote) @end group @end smallexample You can use @samp{set print address off} to eliminate all machine dependent displays from the @value{GDBN} interface. For example, with @code{print address off}, you should get the same text for backtraces on all machines---whether or not they involve pointer arguments. @item show print address @kindex show print address Show whether or not addresses are to be printed. @end table When @value{GDBN} prints a symbolic address, it normally prints the closest earlier symbol plus an offset. If that symbol does not uniquely identify the address (for example, it is a name whose scope is a single source file), you may need to disambiguate. One way to do this is with @code{info line}, for example @samp{info line *0x4537}. Alternately, you can set @value{GDBN} to print the source file and line number when it prints a symbolic address: @table @code @item set print symbol-filename on @kindex set print symbol-filename Tell @value{GDBN} to print the source file name and line number of a symbol in the symbolic form of an address. @item set print symbol-filename off Do not print source file name and line number of a symbol. This is the default. @item show print symbol-filename @kindex show print symbol-filename Show whether or not @value{GDBN} will print the source file name and line number of a symbol in the symbolic form of an address. @end table Another situation where it is helpful to show symbol filenames and line numbers is when disassembling code; @value{GDBN} shows you the line number and source file that corresponds to each instruction. Also, you may wish to see the symbolic form only if the address being printed is reasonably close to the closest earlier symbol: @table @code @item set print max-symbolic-offset @var{max-offset} @kindex set print max-symbolic-offset Tell @value{GDBN} to only display the symbolic form of an address if the offset between the closest earlier symbol and the address is less than @var{max-offset}. The default is 0, which means to always print the symbolic form of an address, if any symbol precedes it. @item show print max-symbolic-offset @kindex show print max-symbolic-offset Ask how large the maximum offset is that @value{GDBN} prints in a symbolic address. @end table @cindex wild pointer, interpreting @cindex pointer, finding referent If you have a pointer and you are not sure where it points, try @samp{set print symbol-filename on}. Then you can determine the name and source file location of the variable where it points, using @samp{p/a @var{pointer}}. This interprets the address in symbolic form. For example, here @value{GDBN} shows that a variable @code{ptt} points at another variable @code{t}, defined in @file{hi2.c}: @example (@value{GDBP}) set print symbol-filename on (@value{GDBP}) p/a ptt $4 = 0xe008 @end example @quotation @emph{Warning:} For pointers that point to a local variable, @samp{p/a} does not show the symbol name and filename of the referent, even with the appropriate @code{set print} options turned on. @end quotation Other settings control how different kinds of objects are printed: @table @code @item set print array @itemx set print array on @kindex set print array Pretty-print arrays. This format is more convenient to read, but uses more space. The default is off. @item set print array off Return to compressed format for arrays. @item show print array @kindex show print array Show whether compressed or pretty format is selected for displaying arrays. @item set print elements @var{number-of-elements} @kindex set print elements If @value{GDBN} is printing a large array, it stops printing after it has printed the number of elements set by the @code{set print elements} command. This limit also applies to the display of strings. Setting the number of elements to zero means that the printing is unlimited. @item show print elements @kindex show print elements Display the number of elements of a large array that @value{GDBN} prints before losing patience. @item set print pretty on @kindex set print pretty Cause @value{GDBN} to print structures in an indented format with one member per line, like this: @smallexample @group $1 = @{ next = 0x0, flags = @{ sweet = 1, sour = 1 @}, meat = 0x54 "Pork" @} @end group @end smallexample @item set print pretty off Cause @value{GDBN} to print structures in a compact format, like this: @smallexample @group $1 = @{next = 0x0, flags = @{sweet = 1, sour = 1@}, \ meat = 0x54 "Pork"@} @end group @end smallexample @noindent This is the default format. @item show print pretty @kindex show print pretty Show which format @value{GDBN} is using to print structures. @item set print sevenbit-strings on @kindex set print sevenbit-strings Print using only seven-bit characters; if this option is set, @value{GDBN} displays any eight-bit characters (in strings or character values) using the notation @code{\}@var{nnn}. This setting is best if you are working in English (@sc{ascii}) and you use the high-order bit of characters as a marker or ``meta'' bit. @item set print sevenbit-strings off Print full eight-bit characters. This allows the use of more international character sets, and is the default. @item show print sevenbit-strings @kindex show print sevenbit-strings Show whether or not @value{GDBN} is printing only seven-bit characters. @item set print union on @kindex set print union Tell @value{GDBN} to print unions which are contained in structures. This is the default setting. @item set print union off Tell @value{GDBN} not to print unions which are contained in structures. @item show print union @kindex show print union Ask @value{GDBN} whether or not it will print unions which are contained in structures. For example, given the declarations @smallexample typedef enum @{Tree, Bug@} Species; typedef enum @{Big_tree, Acorn, Seedling@} Tree_forms; typedef enum @{Caterpillar, Cocoon, Butterfly@} Bug_forms; struct thing @{ Species it; union @{ Tree_forms tree; Bug_forms bug; @} form; @}; struct thing foo = @{Tree, @{Acorn@}@}; @end smallexample @noindent with @code{set print union on} in effect @samp{p foo} would print @smallexample $1 = @{it = Tree, form = @{tree = Acorn, bug = Cocoon@}@} @end smallexample @noindent and with @code{set print union off} in effect it would print @smallexample $1 = @{it = Tree, form = @{...@}@} @end smallexample @end table @ifclear CONLY @need 1000 @noindent These settings are of interest when debugging C++ programs: @table @code @item set print demangle @itemx set print demangle on @kindex set print demangle Print C++ names in their source form rather than in the encoded (``mangled'') form passed to the assembler and linker for type-safe linkage. The default is @samp{on}. @item show print demangle @kindex show print demangle Show whether C++ names are printed in mangled or demangled form. @item set print asm-demangle @itemx set print asm-demangle on @kindex set print asm-demangle Print C++ names in their source form rather than their mangled form, even in assembler code printouts such as instruction disassemblies. The default is off. @item show print asm-demangle @kindex show print asm-demangle Show whether C++ names in assembly listings are printed in mangled or demangled form. @item set demangle-style @var{style} @kindex set demangle-style @cindex C++ symbol decoding style @cindex symbol decoding style, C++ Choose among several encoding schemes used by different compilers to represent C++ names. The choices for @var{style} are currently: @table @code @item auto Allow @value{GDBN} to choose a decoding style by inspecting your program. @item gnu Decode based on the GNU C++ compiler (@code{g++}) encoding algorithm. @item lucid Decode based on the Lucid C++ compiler (@code{lcc}) encoding algorithm. @item arm Decode using the algorithm in the @cite{C++ Annotated Reference Manual}. @strong{Warning:} this setting alone is not sufficient to allow debugging @code{cfront}-generated executables. @value{GDBN} would require further enhancement to permit that. @end table @item show demangle-style @kindex show demangle-style Display the encoding style currently in use for decoding C++ symbols. @item set print object @itemx set print object on @kindex set print object When displaying a pointer to an object, identify the @emph{actual} (derived) type of the object rather than the @emph{declared} type, using the virtual function table. @item set print object off Display only the declared type of objects, without reference to the virtual function table. This is the default setting. @item show print object @kindex show print object Show whether actual, or declared, object types are displayed. @item set print vtbl @itemx set print vtbl on @kindex set print vtbl Pretty print C++ virtual function tables. The default is off. @item set print vtbl off Do not pretty print C++ virtual function tables. @item show print vtbl @kindex show print vtbl Show whether C++ virtual function tables are pretty printed, or not. @end table @end ifclear @node Value History @section Value history @cindex value history Values printed by the @code{print} command are saved in the @value{GDBN} @dfn{value history} so that you can refer to them in other expressions. Values are kept until the symbol table is re-read or discarded (for example with the @code{file} or @code{symbol-file} commands). When the symbol table changes, the value history is discarded, since the values may contain pointers back to the types defined in the symbol table. @cindex @code{$} @cindex @code{$$} @cindex history number The values printed are given @dfn{history numbers} by which you can refer to them. These are successive integers starting with one. @code{print} shows you the history number assigned to a value by printing @samp{$@var{num} = } before the value; here @var{num} is the history number. To refer to any previous value, use @samp{$} followed by the value's history number. The way @code{print} labels its output is designed to remind you of this. Just @code{$} refers to the most recent value in the history, and @code{$$} refers to the value before that. @code{$$@var{n}} refers to the @var{n}th value from the end; @code{$$2} is the value just prior to @code{$$}, @code{$$1} is equivalent to @code{$$}, and @code{$$0} is equivalent to @code{$}. For example, suppose you have just printed a pointer to a structure and want to see the contents of the structure. It suffices to type @example p *$ @end example If you have a chain of structures where the component @code{next} points to the next one, you can print the contents of the next one with this: @example p *$.next @end example @noindent You can print successive links in the chain by repeating this command---which you can do by just typing @key{RET}. Note that the history records values, not expressions. If the value of @code{x} is 4 and you type these commands: @example print x set x=5 @end example @noindent then the value recorded in the value history by the @code{print} command remains 4 even though the value of @code{x} has changed. @table @code @kindex show values @item show values Print the last ten values in the value history, with their item numbers. This is like @samp{p@ $$9} repeated ten times, except that @code{show values} does not change the history. @item show values @var{n} Print ten history values centered on history item number @var{n}. @item show values + Print ten history values just after the values last printed. If no more values are available, produces no display. @end table Pressing @key{RET} to repeat @code{show values @var{n}} has exactly the same effect as @samp{show values +}. @node Convenience Vars @section Convenience variables @cindex convenience variables @value{GDBN} provides @dfn{convenience variables} that you can use within @value{GDBN} to hold on to a value and refer to it later. These variables exist entirely within @value{GDBN}; they are not part of your program, and setting a convenience variable has no direct effect on further execution of your program. That is why you can use them freely. Convenience variables are prefixed with @samp{$}. Any name preceded by @samp{$} can be used for a convenience variable, unless it is one of the predefined machine-specific register names (@pxref{Registers}). (Value history references, in contrast, are @emph{numbers} preceded by @samp{$}. @xref{Value History, ,Value history}.) You can save a value in a convenience variable with an assignment expression, just as you would set a variable in your program. For example: @example set $foo = *object_ptr @end example @noindent would save in @code{$foo} the value contained in the object pointed to by @code{object_ptr}. Using a convenience variable for the first time creates it, but its value is @code{void} until you assign a new value. You can alter the value with another assignment at any time. Convenience variables have no fixed types. You can assign a convenience variable any type of value, including structures and arrays, even if that variable already has a value of a different type. The convenience variable, when used as an expression, has the type of its current value. @table @code @item show convenience @kindex show convenience Print a list of convenience variables used so far, and their values. Abbreviated @code{show con}. @end table One of the ways to use a convenience variable is as a counter to be incremented or a pointer to be advanced. For example, to print a field from successive elements of an array of structures: @example set $i = 0 print bar[$i++]->contents @i{@dots{} repeat that command by typing @key{RET}.} @end example Some convenience variables are created automatically by @value{GDBN} and given values likely to be useful. @table @code @item $_ @kindex $_ The variable @code{$_} is automatically set by the @code{x} command to the last address examined (@pxref{Memory, ,Examining memory}). Other commands which provide a default address for @code{x} to examine also set @code{$_} to that address; these commands include @code{info line} and @code{info breakpoint}. The type of @code{$_} is @code{void *} except when set by the @code{x} command, in which case it is a pointer to the type of @code{$__}. @item $__ @kindex $__ The variable @code{$__} is automatically set by the @code{x} command to the value found in the last address examined. Its type is chosen to match the format in which the data was printed. @end table @node Registers @section Registers @cindex registers You can refer to machine register contents, in expressions, as variables with names starting with @samp{$}. The names of registers are different for each machine; use @code{info registers} to see the names used on your machine. @table @code @item info registers @kindex info registers Print the names and values of all registers except floating-point registers (in the selected stack frame). @item info all-registers @kindex info all-registers @cindex floating point registers Print the names and values of all registers, including floating-point registers. @item info registers @var{regname} @dots{} Print the relativized value of each specified register @var{regname}. @var{regname} may be any register name valid on the machine you are using, with or without the initial @samp{$}. @end table @value{GDBN} has four ``standard'' register names that are available (in expressions) on most machines---whenever they do not conflict with an architecture's canonical mnemonics for registers. The register names @code{$pc} and @code{$sp} are used for the program counter register and the stack pointer. @code{$fp} is used for a register that contains a pointer to the current stack frame, and @code{$ps} is used for a register that contains the processor status. For example, you could print the program counter in hex with @example p/x $pc @end example @noindent or print the instruction to be executed next with @example x/i $pc @end example @noindent or add four to the stack pointer@footnote{This is a way of removing one word from the stack, on machines where stacks grow downward in memory (most machines, nowadays). This assumes that the innermost stack frame is selected; setting @code{$sp} is not allowed when other stack frames are selected. To pop entire frames off the stack, regardless of machine architecture, use @code{return}; @pxref{Returning, ,Returning from a function}.} with @example set $sp += 4 @end example Whenever possible, these four standard register names are available on your machine even though the machine has different canonical mnemonics, so long as there is no conflict. The @code{info registers} command shows the canonical names. For example, on the SPARC, @code{info registers} displays the processor status register as @code{$psr} but you can also refer to it as @code{$ps}. @value{GDBN} always considers the contents of an ordinary register as an integer when the register is examined in this way. Some machines have special registers which can hold nothing but floating point; these registers are considered to have floating point values. There is no way to refer to the contents of an ordinary register as floating point value (although you can @emph{print} it as a floating point value with @samp{print/f $@var{regname}}). Some registers have distinct ``raw'' and ``virtual'' data formats. This means that the data format in which the register contents are saved by the operating system is not the same one that your program normally sees. For example, the registers of the 68881 floating point coprocessor are always saved in ``extended'' (raw) format, but all C programs expect to work with ``double'' (virtual) format. In such cases, @value{GDBN} normally works with the virtual format only (the format that makes sense for your program), but the @code{info registers} command prints the data in both formats. Normally, register values are relative to the selected stack frame (@pxref{Selection, ,Selecting a frame}). This means that you get the value that the register would contain if all stack frames farther in were exited and their saved registers restored. In order to see the true contents of hardware registers, you must select the innermost frame (with @samp{frame 0}). However, @value{GDBN} must deduce where registers are saved, from the machine code generated by your compiler. If some registers are not saved, or if @value{GDBN} is unable to locate the saved registers, the selected stack frame makes no difference. @ifset AMD29K @table @code @item set rstack_high_address @var{address} @kindex set rstack_high_address @cindex AMD 29K register stack @cindex register stack, AMD29K On AMD 29000 family processors, registers are saved in a separate ``register stack''. There is no way for @value{GDBN} to determine the extent of this stack. Normally, @value{GDBN} just assumes that the stack is ``large enough''. This may result in @value{GDBN} referencing memory locations that do not exist. If necessary, you can get around this problem by specifying the ending address of the register stack with the @code{set rstack_high_address} command. The argument should be an address, which you probably want to precede with @samp{0x} to specify in hexadecimal. @item show rstack_high_address @kindex show rstack_high_address Display the current limit of the register stack, on AMD 29000 family processors. @end table @end ifset @ifclear HAVE-FLOAT @node Floating Point Hardware @section Floating point hardware @cindex floating point @c FIXME! Really host, not target? Depending on the host machine architecture, @value{GDBN} may be able to give you more information about the status of the floating point hardware. @table @code @item info float @kindex info float Display hardware-dependent information about the floating point unit. The exact contents and layout vary depending on the floating point chip; on some platforms, @samp{info float} is not available at all. @end table @c FIXME: this is a cop-out. Try to get examples, explanations. Only @c FIXME...supported currently on arm's and 386's. Mark properly with @c FIXME... m4 macros to isolate general statements from hardware-dep, @c FIXME... at that point. @end ifclear @ifclear CONLY @node Languages @chapter Using @value{GDBN} with Different Languages @cindex languages @ifset MOD2 Although programming languages generally have common aspects, they are rarely expressed in the same manner. For instance, in ANSI C, dereferencing a pointer @code{p} is accomplished by @code{*p}, but in Modula-2, it is accomplished by @code{p^}. Values can also be represented (and displayed) differently. Hex numbers in C are written like @samp{0x1ae}, while in Modula-2 they appear as @samp{1AEH}. @end ifset @cindex working language Language-specific information is built into @value{GDBN} for some languages, allowing you to express operations like the above in your program's native language, and allowing @value{GDBN} to output values in a manner consistent with the syntax of your program's native language. The language you use to build expressions, called the @dfn{working language}, can be selected manually, or @value{GDBN} can set it automatically. @menu * Setting:: Switching between source languages * Show:: Displaying the language @ifset MOD2 * Checks:: Type and range checks @end ifset * Support:: Supported languages @end menu @node Setting @section Switching between source languages There are two ways to control the working language---either have @value{GDBN} set it automatically, or select it manually yourself. You can use the @code{set language} command for either purpose. On startup, @value{GDBN} defaults to setting the language automatically. @menu * Manually:: Setting the working language manually * Automatically:: Having @value{GDBN} infer the source language @end menu @node Manually @subsection Setting the working language If you allow @value{GDBN} to set the language automatically, expressions are interpreted the same way in your debugging session and your program. @kindex set language If you wish, you may set the language manually. To do this, issue the command @samp{set language @var{lang}}, where @var{lang} is the name of a language, such as @ifclear MOD2 @code{c}. @end ifclear @ifset MOD2 @code{c} or @code{modula-2}. @end ifset For a list of the supported languages, type @samp{set language}. @c FIXME: rms: eventually this command should be "help set language". @ifset MOD2 Setting the language manually prevents @value{GDBN} from updating the working language automatically. This can lead to confusion if you try to debug a program when the working language is not the same as the source language, when an expression is acceptable to both languages---but means different things. For instance, if the current source file were written in C, and @value{GDBN} was parsing Modula-2, a command such as: @example print a = b + c @end example @noindent might not have the effect you intended. In C, this means to add @code{b} and @code{c} and place the result in @code{a}. The result printed would be the value of @code{a}. In Modula-2, this means to compare @code{a} to the result of @code{b+c}, yielding a @code{BOOLEAN} value. @end ifset @node Automatically @subsection Having @value{GDBN} infer the source language To have @value{GDBN} set the working language automatically, use @samp{set language local} or @samp{set language auto}. @value{GDBN} then infers the language that a program was written in by looking at the name of its source files, and examining their extensions: @table @file @ifset MOD2 @item *.mod Modula-2 source file @end ifset @item *.c C source file @item *.C @itemx *.cc C++ source file @end table This information is recorded for each function or procedure in a source file. When your program stops in a frame (usually by encountering a breakpoint), @value{GDBN} sets the working language to the language recorded for the function in that frame. If the language for a frame is unknown (that is, if the function or block corresponding to the frame was defined in a source file that does not have a recognized extension), the current working language is not changed, and @value{GDBN} issues a warning. This may not seem necessary for most programs, which are written entirely in one source language. However, program modules and libraries written in one source language can be used by a main program written in a different source language. Using @samp{set language auto} in this case frees you from having to set the working language manually. @node Show @section Displaying the language The following commands help you find out which language is the working language, and also what language source files were written in. @kindex show language @kindex info frame @kindex info source @table @code @item show language Display the current working language. This is the language you can use with commands such as @code{print} to build and compute expressions that may involve variables in your program. @item info frame Among the other information listed here (@pxref{Frame Info, ,Information about a frame}) is the source language for this frame. This language becomes the working language if you use an identifier from this frame. @item info source Among the other information listed here (@pxref{Symbols, ,Examining the Symbol Table}) is the source language of this source file. @end table @ifset MOD2 @node Checks @section Type and range checking @quotation @emph{Warning:} In this release, the @value{GDBN} commands for type and range checking are included, but they do not yet have any effect. This section documents the intended facilities. @end quotation @c FIXME remove warning when type/range code added Some languages are designed to guard you against making seemingly common errors through a series of compile- and run-time checks. These include checking the type of arguments to functions and operators, and making sure mathematical overflows are caught at run time. Checks such as these help to ensure a program's correctness once it has been compiled by eliminating type mismatches, and providing active checks for range errors when your program is running. @value{GDBN} can check for conditions like the above if you wish. Although @value{GDBN} does not check the statements in your program, it can check expressions entered directly into @value{GDBN} for evaluation via the @code{print} command, for example. As with the working language, @value{GDBN} can also decide whether or not to check automatically based on your program's source language. @xref{Support, ,Supported languages}, for the default settings of supported languages. @menu * Type Checking:: An overview of type checking * Range Checking:: An overview of range checking @end menu @cindex type checking @cindex checks, type @node Type Checking @subsection An overview of type checking Some languages, such as Modula-2, are strongly typed, meaning that the arguments to operators and functions have to be of the correct type, otherwise an error occurs. These checks prevent type mismatch errors from ever causing any run-time problems. For example, @example 1 + 2 @result{} 3 @exdent but @error{} 1 + 2.3 @end example The second example fails because the @code{CARDINAL} 1 is not type-compatible with the @code{REAL} 2.3. For expressions you use in @value{GDBN} commands, you can tell the @value{GDBN} type checker to skip checking; to treat any mismatches as errors and abandon the expression; or only issue warnings when type mismatches occur, but evaluate the expression anyway. When you choose the last of these, @value{GDBN} evaluates expressions like the second example above, but also issues a warning. Even though you may turn type checking off, other type-based reasons may prevent @value{GDBN} from evaluating an expression. For instance, @value{GDBN} does not know how to add an @code{int} and a @code{struct foo}. These particular type errors have nothing to do with the language in use, and usually arise from expressions, such as the one described above, which make little sense to evaluate anyway. Each language defines to what degree it is strict about type. For instance, both Modula-2 and C require the arguments to arithmetical operators to be numbers. In C, enumerated types and pointers can be represented as numbers, so that they are valid arguments to mathematical operators. @xref{Support, ,Supported languages}, for further details on specific languages. @value{GDBN} provides some additional commands for controlling the type checker: @kindex set check @kindex set check type @kindex show check type @table @code @item set check type auto Set type checking on or off based on the current working language. @xref{Support, ,Supported languages}, for the default settings for each language. @item set check type on @itemx set check type off Set type checking on or off, overriding the default setting for the current working language. Issue a warning if the setting does not match the language default. If any type mismatches occur in evaluating an expression while typechecking is on, @value{GDBN} prints a message and aborts evaluation of the expression. @item set check type warn Cause the type checker to issue warnings, but to always attempt to evaluate the expression. Evaluating the expression may still be impossible for other reasons. For example, @value{GDBN} cannot add numbers and structures. @item show type Show the current setting of the type checker, and whether or not @value{GDBN} is setting it automatically. @end table @cindex range checking @cindex checks, range @node Range Checking @subsection An overview of range checking In some languages (such as Modula-2), it is an error to exceed the bounds of a type; this is enforced with run-time checks. Such range checking is meant to ensure program correctness by making sure computations do not overflow, or indices on an array element access do not exceed the bounds of the array. For expressions you use in @value{GDBN} commands, you can tell @value{GDBN} to treat range errors in one of three ways: ignore them, always treat them as errors and abandon the expression, or issue warnings but evaluate the expression anyway. A range error can result from numerical overflow, from exceeding an array index bound, or when you type a constant that is not a member of any type. Some languages, however, do not treat overflows as an error. In many implementations of C, mathematical overflow causes the result to ``wrap around'' to lower values---for example, if @var{m} is the largest integer value, and @var{s} is the smallest, then @example @var{m} + 1 @result{} @var{s} @end example This, too, is specific to individual languages, and in some cases specific to individual compilers or machines. @xref{Support, , Supported languages}, for further details on specific languages. @value{GDBN} provides some additional commands for controlling the range checker: @kindex set check @kindex set check range @kindex show check range @table @code @item set check range auto Set range checking on or off based on the current working language. @xref{Support, ,Supported languages}, for the default settings for each language. @item set check range on @itemx set check range off Set range checking on or off, overriding the default setting for the current working language. A warning is issued if the setting does not match the language default. If a range error occurs, then a message is printed and evaluation of the expression is aborted. @item set check range warn Output messages when the @value{GDBN} range checker detects a range error, but attempt to evaluate the expression anyway. Evaluating the expression may still be impossible for other reasons, such as accessing memory that the process does not own (a typical example from many Unix systems). @item show range Show the current setting of the range checker, and whether or not it is being set automatically by @value{GDBN}. @end table @end ifset @node Support @section Supported languages @ifset MOD2 @value{GDBN} 4 supports C, C++, and Modula-2. @end ifset @ifclear MOD2 @value{GDBN} 4 supports C, and C++. @end ifclear Some @value{GDBN} features may be used in expressions regardless of the language you use: the @value{GDBN} @code{@@} and @code{::} operators, and the @samp{@{type@}addr} construct (@pxref{Expressions, ,Expressions}) can be used with the constructs of any supported language. The following sections detail to what degree each source language is supported by @value{GDBN}. These sections are not meant to be language tutorials or references, but serve only as a reference guide to what the @value{GDBN} expression parser accepts, and what input and output formats should look like for different languages. There are many good books written on each of these languages; please look to these for a language reference or tutorial. @ifset MOD2 @menu * C:: C and C++ * Modula-2:: Modula-2 @end menu @node C @subsection C and C++ @cindex C and C++ @cindex expressions in C or C++ Since C and C++ are so closely related, many features of @value{GDBN} apply to both languages. Whenever this is the case, we discuss both languages together. @end ifset @ifclear MOD2 @c Cancel this below, under same condition, at end of this chapter! @raisesections @end ifclear @cindex C++ @kindex g++ @cindex GNU C++ The C++ debugging facilities are jointly implemented by the GNU C++ compiler and @value{GDBN}. Therefore, to debug your C++ code effectively, you must compile your C++ programs with the GNU C++ compiler, @code{g++}. For best results when debugging C++ programs, use the stabs debugging format. You can select that format explicitly with the @code{g++} command-line options @samp{-gstabs} or @samp{-gstabs+}. See @ref{Debugging Options,,Options for Debugging Your Program or GNU CC, gcc.info, Using GNU CC}, for more information. @end ifclear @ifset CONLY @node C @chapter C Language Support @cindex C language @cindex expressions in C Information specific to the C language is built into @value{GDBN} so that you can use C expressions while degugging. This also permits @value{GDBN} to output values in a manner consistent with C conventions. @menu * C Operators:: C operators * C Constants:: C constants * Debugging C:: @value{GDBN} and C @end menu @end ifset @ifclear CONLY @menu * C Operators:: C and C++ operators * C Constants:: C and C++ constants * Cplus expressions:: C++ expressions * C Defaults:: Default settings for C and C++ @ifset MOD2 * C Checks:: C and C++ type and range checks @end ifset * Debugging C:: @value{GDBN} and C * Debugging C plus plus:: Special features for C++ @end menu @end ifclear @ifclear CONLY @cindex C and C++ operators @node C Operators @subsubsection C and C++ operators @end ifclear @ifset CONLY @cindex C operators @node C Operators @section C operators @end ifset Operators must be defined on values of specific types. For instance, @code{+} is defined on numbers, but not on structures. Operators are often defined on groups of types. @ifclear CONLY For the purposes of C and C++, the following definitions hold: @end ifclear @itemize @bullet @item @emph{Integral types} include @code{int} with any of its storage-class specifiers; @code{char}; and @code{enum}. @item @emph{Floating-point types} include @code{float} and @code{double}. @item @emph{Pointer types} include all types defined as @code{(@var{type} *)}. @item @emph{Scalar types} include all of the above. @end itemize @noindent The following operators are supported. They are listed here in order of increasing precedence: @table @code @item , The comma or sequencing operator. Expressions in a comma-separated list are evaluated from left to right, with the result of the entire expression being the last expression evaluated. @item = Assignment. The value of an assignment expression is the value assigned. Defined on scalar types. @item @var{op}= Used in an expression of the form @w{@code{@var{a} @var{op}= @var{b}}}, and translated to @w{@code{@var{a} = @var{a op b}}}. @w{@code{@var{op}=}} and @code{=} have the same precendence. @var{op} is any one of the operators @code{|}, @code{^}, @code{&}, @code{<<}, @code{>>}, @code{+}, @code{-}, @code{*}, @code{/}, @code{%}. @item ?: The ternary operator. @code{@var{a} ? @var{b} : @var{c}} can be thought of as: if @var{a} then @var{b} else @var{c}. @var{a} should be of an integral type. @item || Logical @sc{or}. Defined on integral types. @item && Logical @sc{and}. Defined on integral types. @item | Bitwise @sc{or}. Defined on integral types. @item ^ Bitwise exclusive-@sc{or}. Defined on integral types. @item & Bitwise @sc{and}. Defined on integral types. @item ==@r{, }!= Equality and inequality. Defined on scalar types. The value of these expressions is 0 for false and non-zero for true. @item <@r{, }>@r{, }<=@r{, }>= Less than, greater than, less than or equal, greater than or equal. Defined on scalar types. The value of these expressions is 0 for false and non-zero for true. @item <<@r{, }>> left shift, and right shift. Defined on integral types. @item @@ The @value{GDBN} ``artificial array'' operator (@pxref{Expressions, ,Expressions}). @item +@r{, }- Addition and subtraction. Defined on integral types, floating-point types and pointer types. @item *@r{, }/@r{, }% Multiplication, division, and modulus. Multiplication and division are defined on integral and floating-point types. Modulus is defined on integral types. @item ++@r{, }-- Increment and decrement. When appearing before a variable, the operation is performed before the variable is used in an expression; when appearing after it, the variable's value is used before the operation takes place. @item * Pointer dereferencing. Defined on pointer types. Same precedence as @code{++}. @item & Address operator. Defined on variables. Same precedence as @code{++}. @ifclear CONLY For debugging C++, @value{GDBN} implements a use of @samp{&} beyond what is allowed in the C++ language itself: you can use @samp{&(&@var{ref})} (or, if you prefer, simply @samp{&&@var{ref}}) to examine the address where a C++ reference variable (declared with @samp{&@var{ref}}) is stored. @end ifclear @item - Negative. Defined on integral and floating-point types. Same precedence as @code{++}. @item ! Logical negation. Defined on integral types. Same precedence as @code{++}. @item ~ Bitwise complement operator. Defined on integral types. Same precedence as @code{++}. @item .@r{, }-> Structure member, and pointer-to-structure member. For convenience, @value{GDBN} regards the two as equivalent, choosing whether to dereference a pointer based on the stored type information. Defined on @code{struct} and @code{union} data. @item [] Array indexing. @code{@var{a}[@var{i}]} is defined as @code{*(@var{a}+@var{i})}. Same precedence as @code{->}. @item () Function parameter list. Same precedence as @code{->}. @ifclear CONLY @item :: C++ scope resolution operator. Defined on @code{struct}, @code{union}, and @code{class} types. @end ifclear @item :: Doubled colons @ifclear CONLY also @end ifclear represent the @value{GDBN} scope operator (@pxref{Expressions, ,Expressions}). @ifclear CONLY Same precedence as @code{::}, above. @end ifclear @end table @ifclear CONLY @cindex C and C++ constants @node C Constants @subsubsection C and C++ constants @value{GDBN} allows you to express the constants of C and C++ in the following ways: @end ifclear @ifset CONLY @cindex C constants @node C Constants @section C constants @value{GDBN} allows you to express the constants of C in the following ways: @end ifset @itemize @bullet @item Integer constants are a sequence of digits. Octal constants are specified by a leading @samp{0} (ie. zero), and hexadecimal constants by a leading @samp{0x} or @samp{0X}. Constants may also end with a letter @samp{l}, specifying that the constant should be treated as a @code{long} value. @item Floating point constants are a sequence of digits, followed by a decimal point, followed by a sequence of digits, and optionally followed by an exponent. An exponent is of the form: @samp{@w{e@r{[[}+@r{]|}-@r{]}@var{nnn}}}, where @var{nnn} is another sequence of digits. The @samp{+} is optional for positive exponents. @item Enumerated constants consist of enumerated identifiers, or their integral equivalents. @item Character constants are a single character surrounded by single quotes (@code{'}), or a number---the ordinal value of the corresponding character (usually its @sc{ASCII} value). Within quotes, the single character may be represented by a letter or by @dfn{escape sequences}, which are of the form @samp{\@var{nnn}}, where @var{nnn} is the octal representation of the character's ordinal value; or of the form @samp{\@var{x}}, where @samp{@var{x}} is a predefined special character---for example, @samp{\n} for newline. @item String constants are a sequence of character constants surrounded by double quotes (@code{"}). @item Pointer constants are an integral value. You can also write pointers to constants using the C operator @samp{&}. @item Array constants are comma-separated lists surrounded by braces @samp{@{} and @samp{@}}; for example, @samp{@{1,2,3@}} is a three-element array of integers, @samp{@{@{1,2@}, @{3,4@}, @{5,6@}@}} is a three-by-two array, and @samp{@{&"hi", &"there", &"fred"@}} is a three-element array of pointers. @end itemize @ifclear CONLY @node Cplus expressions @subsubsection C++ expressions @cindex expressions in C++ @value{GDBN} expression handling has a number of extensions to interpret a significant subset of C++ expressions. @cindex C++ support, not in @sc{coff} @cindex @sc{coff} versus C++ @cindex C++ and object formats @cindex object formats and C++ @cindex a.out and C++ @cindex @sc{ecoff} and C++ @cindex @sc{xcoff} and C++ @cindex @sc{elf}/stabs and C++ @cindex @sc{elf}/@sc{dwarf} and C++ @c FIXME!! GDB may eventually be able to debug C++ using DWARF; check @c periodically whether this has happened... @quotation @emph{Warning:} @value{GDBN} can only debug C++ code if you compile with the GNU C++ compiler. Moreover, C++ debugging depends on the use of additional debugging information in the symbol table, and thus requires special support. @value{GDBN} has this support @emph{only} with the stabs debug format. In particular, if your compiler generates a.out, MIPS @sc{ecoff}, RS/6000 @sc{xcoff}, or @sc{elf} with stabs extensions to the symbol table, these facilities are all available. (With GNU CC, you can use the @samp{-gstabs} option to request stabs debugging extensions explicitly.) Where the object code format is standard @sc{coff} or @sc{dwarf} in @sc{elf}, on the other hand, most of the C++ support in @value{GDBN} does @emph{not} work. @end quotation @enumerate @cindex member functions @item Member function calls are allowed; you can use expressions like @example count = aml->GetOriginal(x, y) @end example @kindex this @cindex namespace in C++ @item While a member function is active (in the selected stack frame), your expressions have the same namespace available as the member function; that is, @value{GDBN} allows implicit references to the class instance pointer @code{this} following the same rules as C++. @cindex call overloaded functions @cindex type conversions in C++ @item You can call overloaded functions; @value{GDBN} resolves the function call to the right definition, with one restriction---you must use arguments of the type required by the function that you want to call. @value{GDBN} does not perform conversions requiring constructors or user-defined type operators. @cindex reference declarations @item @value{GDBN} understands variables declared as C++ references; you can use them in expressions just as you do in C++ source---they are automatically dereferenced. In the parameter list shown when @value{GDBN} displays a frame, the values of reference variables are not displayed (unlike other variables); this avoids clutter, since references are often used for large structures. The @emph{address} of a reference variable is always shown, unless you have specified @samp{set print address off}. @item @value{GDBN} supports the C++ name resolution operator @code{::}---your expressions can use it just as expressions in your program do. Since one scope may be defined in another, you can use @code{::} repeatedly if necessary, for example in an expression like @samp{@var{scope1}::@var{scope2}::@var{name}}. @value{GDBN} also allows resolving name scope by reference to source files, in both C and C++ debugging (@pxref{Variables, ,Program variables}). @end enumerate @node C Defaults @subsubsection C and C++ defaults @cindex C and C++ defaults If you allow @value{GDBN} to set type and range checking automatically, they both default to @code{off} whenever the working language changes to C or C++. This happens regardless of whether you, or @value{GDBN}, selected the working language. If you allow @value{GDBN} to set the language automatically, it sets the working language to C or C++ on entering code compiled from a source file whose name ends with @file{.c}, @file{.C}, or @file{.cc}. @xref{Automatically, ,Having @value{GDBN} infer the source language}, for further details. @ifset MOD2 @c Type checking is (a) primarily motivated by Modula-2, and (b) @c unimplemented. If (b) changes, it might make sense to let this node @c appear even if Mod-2 does not, but meanwhile ignore it. pesch 16jul93. @node C Checks @subsubsection C and C++ type and range checks @cindex C and C++ checks By default, when @value{GDBN} parses C or C++ expressions, type checking is not used. However, if you turn type checking on, @value{GDBN} considers two variables type equivalent if: @itemize @bullet @item The two variables are structured and have the same structure, union, or enumerated tag. @item Two two variables have the same type name, or types that have been declared equivalent through @code{typedef}. @ignore @c leaving this out because neither J Gilmore nor R Pesch understand it. @c FIXME--beers? @item The two @code{struct}, @code{union}, or @code{enum} variables are declared in the same declaration. (Note: this may not be true for all C compilers.) @end ignore @end itemize Range checking, if turned on, is done on mathematical operations. Array indices are not checked, since they are often used to index a pointer that is not itself an array. @end ifset @end ifclear @ifclear CONLY @node Debugging C @subsubsection @value{GDBN} and C @end ifclear @ifset CONLY @node Debugging C @section @value{GDBN} and C @end ifset The @code{set print union} and @code{show print union} commands apply to the @code{union} type. When set to @samp{on}, any @code{union} that is inside a @code{struct} @ifclear CONLY or @code{class} @end ifclear is also printed. Otherwise, it appears as @samp{@{...@}}. The @code{@@} operator aids in the debugging of dynamic arrays, formed with pointers and a memory allocation function. @xref{Expressions, ,Expressions}. @ifclear CONLY @node Debugging C plus plus @subsubsection @value{GDBN} features for C++ @cindex commands for C++ Some @value{GDBN} commands are particularly useful with C++, and some are designed specifically for use with C++. Here is a summary: @table @code @cindex break in overloaded functions @item @r{breakpoint menus} When you want a breakpoint in a function whose name is overloaded, @value{GDBN} breakpoint menus help you specify which function definition you want. @xref{Breakpoint Menus,,Breakpoint menus}. @cindex overloading in C++ @item rbreak @var{regex} Setting breakpoints using regular expressions is helpful for setting breakpoints on overloaded functions that are not members of any special classes. @xref{Set Breaks, ,Setting breakpoints}. @cindex C++ exception handling @item catch @var{exceptions} @itemx info catch Debug C++ exception handling using these commands. @xref{Exception Handling, ,Breakpoints and exceptions}. @cindex inheritance @item ptype @var{typename} Print inheritance relationships as well as other information for type @var{typename}. @xref{Symbols, ,Examining the Symbol Table}. @cindex C++ symbol display @item set print demangle @itemx show print demangle @itemx set print asm-demangle @itemx show print asm-demangle Control whether C++ symbols display in their source form, both when displaying code as C++ source and when displaying disassemblies. @xref{Print Settings, ,Print settings}. @item set print object @itemx show print object Choose whether to print derived (actual) or declared types of objects. @xref{Print Settings, ,Print settings}. @item set print vtbl @itemx show print vtbl Control the format for printing virtual function tables. @xref{Print Settings, ,Print settings}. @item @r{Overloaded symbol names} You can specify a particular definition of an overloaded symbol, using the same notation that is used to declare such symbols in C++: type @code{@var{symbol}(@var{types})} rather than just @var{symbol}. You can also use the @value{GDBN} command-line word completion facilities to list the available choices, or to finish the type list for you. @xref{Completion,, Command completion}, for details on how to do this. @end table @ifclear MOD2 @c cancels "raisesections" under same conditions near bgn of chapter @lowersections @end ifclear @ifset MOD2 @node Modula-2 @subsection Modula-2 @cindex Modula-2 The extensions made to @value{GDBN} to support Modula-2 only support output from the GNU Modula-2 compiler (which is currently being developed). Other Modula-2 compilers are not currently supported, and attempting to debug executables produced by them is most likely to give an error as @value{GDBN} reads in the executable's symbol table. @cindex expressions in Modula-2 @menu * M2 Operators:: Built-in operators * Built-In Func/Proc:: Built-in functions and procedures * M2 Constants:: Modula-2 constants * M2 Defaults:: Default settings for Modula-2 * Deviations:: Deviations from standard Modula-2 * M2 Checks:: Modula-2 type and range checks * M2 Scope:: The scope operators @code{::} and @code{.} * GDB/M2:: @value{GDBN} and Modula-2 @end menu @node M2 Operators @subsubsection Operators @cindex Modula-2 operators Operators must be defined on values of specific types. For instance, @code{+} is defined on numbers, but not on structures. Operators are often defined on groups of types. For the purposes of Modula-2, the following definitions hold: @itemize @bullet @item @emph{Integral types} consist of @code{INTEGER}, @code{CARDINAL}, and their subranges. @item @emph{Character types} consist of @code{CHAR} and its subranges. @item @emph{Floating-point types} consist of @code{REAL}. @item @emph{Pointer types} consist of anything declared as @code{POINTER TO @var{type}}. @item @emph{Scalar types} consist of all of the above. @item @emph{Set types} consist of @code{SET} and @code{BITSET} types. @item @emph{Boolean types} consist of @code{BOOLEAN}. @end itemize @noindent The following operators are supported, and appear in order of increasing precedence: @table @code @item , Function argument or array index separator. @item := Assignment. The value of @var{var} @code{:=} @var{value} is @var{value}. @item <@r{, }> Less than, greater than on integral, floating-point, or enumerated types. @item <=@r{, }>= Less than, greater than, less than or equal to, greater than or equal to on integral, floating-point and enumerated types, or set inclusion on set types. Same precedence as @code{<}. @item =@r{, }<>@r{, }# Equality and two ways of expressing inequality, valid on scalar types. Same precedence as @code{<}. In @value{GDBN} scripts, only @code{<>} is available for inequality, since @code{#} conflicts with the script comment character. @item IN Set membership. Defined on set types and the types of their members. Same precedence as @code{<}. @item OR Boolean disjunction. Defined on boolean types. @item AND@r{, }& Boolean conjuction. Defined on boolean types. @item @@ The @value{GDBN} ``artificial array'' operator (@pxref{Expressions, ,Expressions}). @item +@r{, }- Addition and subtraction on integral and floating-point types, or union and difference on set types. @item * Multiplication on integral and floating-point types, or set intersection on set types. @item / Division on floating-point types, or symmetric set difference on set types. Same precedence as @code{*}. @item DIV@r{, }MOD Integer division and remainder. Defined on integral types. Same precedence as @code{*}. @item - Negative. Defined on @code{INTEGER} and @code{REAL} data. @item ^ Pointer dereferencing. Defined on pointer types. @item NOT Boolean negation. Defined on boolean types. Same precedence as @code{^}. @item . @code{RECORD} field selector. Defined on @code{RECORD} data. Same precedence as @code{^}. @item [] Array indexing. Defined on @code{ARRAY} data. Same precedence as @code{^}. @item () Procedure argument list. Defined on @code{PROCEDURE} objects. Same precedence as @code{^}. @item ::@r{, }. @value{GDBN} and Modula-2 scope operators. @end table @quotation @emph{Warning:} Sets and their operations are not yet supported, so @value{GDBN} treats the use of the operator @code{IN}, or the use of operators @code{+}, @code{-}, @code{*}, @code{/}, @code{=}, , @code{<>}, @code{#}, @code{<=}, and @code{>=} on sets as an error. @end quotation @cindex Modula-2 built-ins @node Built-In Func/Proc @subsubsection Built-in functions and procedures Modula-2 also makes available several built-in procedures and functions. In describing these, the following metavariables are used: @table @var @item a represents an @code{ARRAY} variable. @item c represents a @code{CHAR} constant or variable. @item i represents a variable or constant of integral type. @item m represents an identifier that belongs to a set. Generally used in the same function with the metavariable @var{s}. The type of @var{s} should be @code{SET OF @var{mtype}} (where @var{mtype} is the type of @var{m}). @item n represents a variable or constant of integral or floating-point type. @item r represents a variable or constant of floating-point type. @item t represents a type. @item v represents a variable. @item x represents a variable or constant of one of many types. See the explanation of the function for details. @end table All Modula-2 built-in procedures also return a result, described below. @table @code @item ABS(@var{n}) Returns the absolute value of @var{n}. @item CAP(@var{c}) If @var{c} is a lower case letter, it returns its upper case equivalent, otherwise it returns its argument @item CHR(@var{i}) Returns the character whose ordinal value is @var{i}. @item DEC(@var{v}) Decrements the value in the variable @var{v}. Returns the new value. @item DEC(@var{v},@var{i}) Decrements the value in the variable @var{v} by @var{i}. Returns the new value. @item EXCL(@var{m},@var{s}) Removes the element @var{m} from the set @var{s}. Returns the new set. @item FLOAT(@var{i}) Returns the floating point equivalent of the integer @var{i}. @item HIGH(@var{a}) Returns the index of the last member of @var{a}. @item INC(@var{v}) Increments the value in the variable @var{v}. Returns the new value. @item INC(@var{v},@var{i}) Increments the value in the variable @var{v} by @var{i}. Returns the new value. @item INCL(@var{m},@var{s}) Adds the element @var{m} to the set @var{s} if it is not already there. Returns the new set. @item MAX(@var{t}) Returns the maximum value of the type @var{t}. @item MIN(@var{t}) Returns the minimum value of the type @var{t}. @item ODD(@var{i}) Returns boolean TRUE if @var{i} is an odd number. @item ORD(@var{x}) Returns the ordinal value of its argument. For example, the ordinal value of a character is its ASCII value (on machines supporting the ASCII character set). @var{x} must be of an ordered type, which include integral, character and enumerated types. @item SIZE(@var{x}) Returns the size of its argument. @var{x} can be a variable or a type. @item TRUNC(@var{r}) Returns the integral part of @var{r}. @item VAL(@var{t},@var{i}) Returns the member of the type @var{t} whose ordinal value is @var{i}. @end table @quotation @emph{Warning:} Sets and their operations are not yet supported, so @value{GDBN} treats the use of procedures @code{INCL} and @code{EXCL} as an error. @end quotation @cindex Modula-2 constants @node M2 Constants @subsubsection Constants @value{GDBN} allows you to express the constants of Modula-2 in the following ways: @itemize @bullet @item Integer constants are simply a sequence of digits. When used in an expression, a constant is interpreted to be type-compatible with the rest of the expression. Hexadecimal integers are specified by a trailing @samp{H}, and octal integers by a trailing @samp{B}. @item Floating point constants appear as a sequence of digits, followed by a decimal point and another sequence of digits. An optional exponent can then be specified, in the form @samp{E@r{[}+@r{|}-@r{]}@var{nnn}}, where @samp{@r{[}+@r{|}-@r{]}@var{nnn}} is the desired exponent. All of the digits of the floating point constant must be valid decimal (base 10) digits. @item Character constants consist of a single character enclosed by a pair of like quotes, either single (@code{'}) or double (@code{"}). They may also be expressed by their ordinal value (their ASCII value, usually) followed by a @samp{C}. @item String constants consist of a sequence of characters enclosed by a pair of like quotes, either single (@code{'}) or double (@code{"}). Escape sequences in the style of C are also allowed. @xref{C Constants, ,C and C++ constants}, for a brief explanation of escape sequences. @item Enumerated constants consist of an enumerated identifier. @item Boolean constants consist of the identifiers @code{TRUE} and @code{FALSE}. @item Pointer constants consist of integral values only. @item Set constants are not yet supported. @end itemize @node M2 Defaults @subsubsection Modula-2 defaults @cindex Modula-2 defaults If type and range checking are set automatically by @value{GDBN}, they both default to @code{on} whenever the working language changes to Modula-2. This happens regardless of whether you, or @value{GDBN}, selected the working language. If you allow @value{GDBN} to set the language automatically, then entering code compiled from a file whose name ends with @file{.mod} sets the working language to Modula-2. @xref{Automatically, ,Having @value{GDBN} set the language automatically}, for further details. @node Deviations @subsubsection Deviations from standard Modula-2 @cindex Modula-2, deviations from A few changes have been made to make Modula-2 programs easier to debug. This is done primarily via loosening its type strictness: @itemize @bullet @item Unlike in standard Modula-2, pointer constants can be formed by integers. This allows you to modify pointer variables during debugging. (In standard Modula-2, the actual address contained in a pointer variable is hidden from you; it can only be modified through direct assignment to another pointer variable or expression that returned a pointer.) @item C escape sequences can be used in strings and characters to represent non-printable characters. @value{GDBN} prints out strings with these escape sequences embedded. Single non-printable characters are printed using the @samp{CHR(@var{nnn})} format. @item The assignment operator (@code{:=}) returns the value of its right-hand argument. @item All built-in procedures both modify @emph{and} return their argument. @end itemize @node M2 Checks @subsubsection Modula-2 type and range checks @cindex Modula-2 checks @quotation @emph{Warning:} in this release, @value{GDBN} does not yet perform type or range checking. @end quotation @c FIXME remove warning when type/range checks added @value{GDBN} considers two Modula-2 variables type equivalent if: @itemize @bullet @item They are of types that have been declared equivalent via a @code{TYPE @var{t1} = @var{t2}} statement @item They have been declared on the same line. (Note: This is true of the GNU Modula-2 compiler, but it may not be true of other compilers.) @end itemize As long as type checking is enabled, any attempt to combine variables whose types are not equivalent is an error. Range checking is done on all mathematical operations, assignment, array index bounds, and all built-in functions and procedures. @node M2 Scope @subsubsection The scope operators @code{::} and @code{.} @cindex scope @kindex . @cindex colon, doubled as scope operator @ifinfo @kindex colon-colon @c Info cannot handle :: but TeX can. @end ifinfo @iftex @kindex :: @end iftex There are a few subtle differences between the Modula-2 scope operator (@code{.}) and the @value{GDBN} scope operator (@code{::}). The two have similar syntax: @example @var{module} . @var{id} @var{scope} :: @var{id} @end example @noindent where @var{scope} is the name of a module or a procedure, @var{module} the name of a module, and @var{id} is any declared identifier within your program, except another module. Using the @code{::} operator makes @value{GDBN} search the scope specified by @var{scope} for the identifier @var{id}. If it is not found in the specified scope, then @value{GDBN} searches all scopes enclosing the one specified by @var{scope}. Using the @code{.} operator makes @value{GDBN} search the current scope for the identifier specified by @var{id} that was imported from the definition module specified by @var{module}. With this operator, it is an error if the identifier @var{id} was not imported from definition module @var{module}, or if @var{id} is not an identifier in @var{module}. @node GDB/M2 @subsubsection @value{GDBN} and Modula-2 Some @value{GDBN} commands have little use when debugging Modula-2 programs. Five subcommands of @code{set print} and @code{show print} apply specifically to C and C++: @samp{vtbl}, @samp{demangle}, @samp{asm-demangle}, @samp{object}, and @samp{union}. The first four apply to C++, and the last to the C @code{union} type, which has no direct analogue in Modula-2. The @code{@@} operator (@pxref{Expressions, ,Expressions}), while available while using any language, is not useful with Modula-2. Its intent is to aid the debugging of @dfn{dynamic arrays}, which cannot be created in Modula-2 as they can in C or C++. However, because an address can be specified by an integral constant, the construct @samp{@{@var{type}@}@var{adrexp}} is still useful. (@pxref{Expressions, ,Expressions}) @cindex @code{#} in Modula-2 In @value{GDBN} scripts, the Modula-2 inequality operator @code{#} is interpreted as the beginning of a comment. Use @code{<>} instead. @end ifset @end ifclear @node Symbols @chapter Examining the Symbol Table The commands described in this section allow you to inquire about the symbols (names of variables, functions and types) defined in your program. This information is inherent in the text of your program and does not change as your program executes. @value{GDBN} finds it in your program's symbol table, in the file indicated when you started @value{GDBN} (@pxref{File Options, ,Choosing files}), or by one of the file-management commands (@pxref{Files, ,Commands to specify files}). @c FIXME! This might be intentionally specific to C and C++; if so, move @c to someplace in C section of lang chapter. @cindex symbol names @cindex names of symbols @cindex quoting names Occasionally, you may need to refer to symbols that contain unusual characters, which @value{GDBN} ordinarily treats as word delimiters. The most frequent case is in referring to static variables in other source files (@pxref{Variables,,Program variables}). File names are recorded in object files as debugging symbols, but @value{GDBN} would ordinarily parse a typical file name, like @file{foo.c}, as the three words @samp{foo} @samp{.} @samp{c}. To allow @value{GDBN} to recognize @samp{foo.c} as a single symbol, enclose it in single quotes; for example, @example p 'foo.c'::x @end example @noindent looks up the value of @code{x} in the scope of the file @file{foo.c}. @table @code @item info address @var{symbol} @kindex info address Describe where the data for @var{symbol} is stored. For a register variable, this says which register it is kept in. For a non-register local variable, this prints the stack-frame offset at which the variable is always stored. Note the contrast with @samp{print &@var{symbol}}, which does not work at all for a register variable, and for a stack local variable prints the exact address of the current instantiation of the variable. @item whatis @var{exp} @kindex whatis Print the data type of expression @var{exp}. @var{exp} is not actually evaluated, and any side-effecting operations (such as assignments or function calls) inside it do not take place. @xref{Expressions, ,Expressions}. @item whatis Print the data type of @code{$}, the last value in the value history. @item ptype @var{typename} @kindex ptype Print a description of data type @var{typename}. @var{typename} may be the name of a type, or for C code it may have the form @ifclear CONLY @samp{class @var{class-name}}, @end ifclear @samp{struct @var{struct-tag}}, @samp{union @var{union-tag}} or @samp{enum @var{enum-tag}}. @item ptype @var{exp} @itemx ptype Print a description of the type of expression @var{exp}. @code{ptype} differs from @code{whatis} by printing a detailed description, instead of just the name of the type. For example, for this variable declaration: @example struct complex @{double real; double imag;@} v; @end example @noindent the two commands give this output: @example @group (@value{GDBP}) whatis v type = struct complex (@value{GDBP}) ptype v type = struct complex @{ double real; double imag; @} @end group @end example @noindent As with @code{whatis}, using @code{ptype} without an argument refers to the type of @code{$}, the last value in the value history. @item info types @var{regexp} @itemx info types @kindex info types Print a brief description of all types whose name matches @var{regexp} (or all types in your program, if you supply no argument). Each complete typename is matched as though it were a complete line; thus, @samp{i type value} gives information on all types in your program whose name includes the string @code{value}, but @samp{i type ^value$} gives information only on types whose complete name is @code{value}. This command differs from @code{ptype} in two ways: first, like @code{whatis}, it does not print a detailed description; second, it lists all source files where a type is defined. @item info source @kindex info source Show the name of the current source file---that is, the source file for the function containing the current point of execution---and the language it was written in. @item info sources @kindex info sources Print the names of all source files in your program for which there is debugging information, organized into two lists: files whose symbols have already been read, and files whose symbols will be read when needed. @item info functions @kindex info functions Print the names and data types of all defined functions. @item info functions @var{regexp} Print the names and data types of all defined functions whose names contain a match for regular expression @var{regexp}. Thus, @samp{info fun step} finds all functions whose names include @code{step}; @samp{info fun ^step} finds those whose names start with @code{step}. @item info variables @kindex info variables Print the names and data types of all variables that are declared outside of functions (i.e., excluding local variables). @item info variables @var{regexp} Print the names and data types of all variables (except for local variables) whose names contain a match for regular expression @var{regexp}. @ignore This was never implemented. @item info methods @itemx info methods @var{regexp} @kindex info methods The @code{info methods} command permits the user to examine all defined methods within C++ program, or (with the @var{regexp} argument) a specific set of methods found in the various C++ classes. Many C++ classes provide a large number of methods. Thus, the output from the @code{ptype} command can be overwhelming and hard to use. The @code{info-methods} command filters the methods, printing only those which match the regular-expression @var{regexp}. @end ignore @item maint print symbols @var{filename} @itemx maint print psymbols @var{filename} @itemx maint print msymbols @var{filename} @kindex maint print symbols @cindex symbol dump @kindex maint print psymbols @cindex partial symbol dump Write a dump of debugging symbol data into the file @var{filename}. These commands are used to debug the @value{GDBN} symbol-reading code. Only symbols with debugging data are included. If you use @samp{maint print symbols}, @value{GDBN} includes all the symbols for which it has already collected full details: that is, @var{filename} reflects symbols for only those files whose symbols @value{GDBN} has read. You can use the command @code{info sources} to find out which files these are. If you use @samp{maint print psymbols} instead, the dump shows information about symbols that @value{GDBN} only knows partially---that is, symbols defined in files that @value{GDBN} has skimmed, but not yet read completely. Finally, @samp{maint print msymbols} dumps just the minimal symbol information required for each object file from which @value{GDBN} has read some symbols. @xref{Files, ,Commands to specify files}, for a discussion of how @value{GDBN} reads symbols (in the description of @code{symbol-file}). @end table @node Altering @chapter Altering Execution Once you think you have found an error in your program, you might want to find out for certain whether correcting the apparent error would lead to correct results in the rest of the run. You can find the answer by experiment, using the @value{GDBN} features for altering execution of the program. For example, you can store new values into variables or memory locations, @ifclear BARETARGET give your program a signal, restart it @end ifclear @ifset BARETARGET restart your program @end ifset at a different address, or even return prematurely from a function to its caller. @menu * Assignment:: Assignment to variables * Jumping:: Continuing at a different address @ifclear BARETARGET * Signaling:: Giving your program a signal @end ifclear * Returning:: Returning from a function * Calling:: Calling your program's functions * Patching:: Patching your program @end menu @node Assignment @section Assignment to variables @cindex assignment @cindex setting variables To alter the value of a variable, evaluate an assignment expression. @xref{Expressions, ,Expressions}. For example, @example print x=4 @end example @noindent stores the value 4 into the variable @code{x}, and then prints the value of the assignment expression (which is 4). @ifclear CONLY @xref{Languages, ,Using @value{GDBN} with Different Languages}, for more information on operators in supported languages. @end ifclear @kindex set variable @cindex variables, setting If you are not interested in seeing the value of the assignment, use the @code{set} command instead of the @code{print} command. @code{set} is really the same as @code{print} except that the expression's value is not printed and is not put in the value history (@pxref{Value History, ,Value history}). The expression is evaluated only for its effects. If the beginning of the argument string of the @code{set} command appears identical to a @code{set} subcommand, use the @code{set variable} command instead of just @code{set}. This command is identical to @code{set} except for its lack of subcommands. For example, if your program has a variable @code{width}, you get an error if you try to set a new value with just @samp{set width=13}, because @value{GDBN} has the command @code{set width}: @example (@value{GDBP}) whatis width type = double (@value{GDBP}) p width $4 = 13 (@value{GDBP}) set width=47 Invalid syntax in expression. @end example @noindent The invalid expression, of course, is @samp{=47}. In order to actually set the program's variable @code{width}, use @example (@value{GDBP}) set var width=47 @end example @value{GDBN} allows more implicit conversions in assignments than C; you can freely store an integer value into a pointer variable or vice versa, and you can convert any structure to any other structure that is the same length or shorter. @comment FIXME: how do structs align/pad in these conversions? @comment /pesch@cygnus.com 18dec1990 To store values into arbitrary places in memory, use the @samp{@{@dots{}@}} construct to generate a value of specified type at a specified address (@pxref{Expressions, ,Expressions}). For example, @code{@{int@}0x83040} refers to memory location @code{0x83040} as an integer (which implies a certain size and representation in memory), and @example set @{int@}0x83040 = 4 @end example @noindent stores the value 4 into that memory location. @node Jumping @section Continuing at a different address Ordinarily, when you continue your program, you do so at the place where it stopped, with the @code{continue} command. You can instead continue at an address of your own choosing, with the following commands: @table @code @item jump @var{linespec} @kindex jump Resume execution at line @var{linespec}. Execution stops again immediately if there is a breakpoint there. @xref{List, ,Printing source lines}, for a description of the different forms of @var{linespec}. The @code{jump} command does not change the current stack frame, or the stack pointer, or the contents of any memory location or any register other than the program counter. If line @var{linespec} is in a different function from the one currently executing, the results may be bizarre if the two functions expect different patterns of arguments or of local variables. For this reason, the @code{jump} command requests confirmation if the specified line is not in the function currently executing. However, even bizarre results are predictable if you are well acquainted with the machine-language code of your program. @item jump *@var{address} Resume execution at the instruction at address @var{address}. @end table You can get much the same effect as the @code{jump} command by storing a new value into the register @code{$pc}. The difference is that this does not start your program running; it only changes the address where it @emph{will} run when you continue. For example, @example set $pc = 0x485 @end example @noindent makes the next @code{continue} command or stepping command execute at address @code{0x485}, rather than at the address where your program stopped. @xref{Continuing and Stepping, ,Continuing and stepping}. The most common occasion to use the @code{jump} command is to back up, perhaps with more breakpoints set, over a portion of a program that has already executed, in order to examine its execution in more detail. @ifclear BARETARGET @c @group @node Signaling @section Giving your program a signal @table @code @item signal @var{signal} @kindex signal Resume execution where your program stopped, but immediately give it the signal @var{signal}. @var{signal} can be the name or the number of a signal. For example, on many systems @code{signal 2} and @code{signal SIGINT} are both ways of sending an interrupt signal. Alternatively, if @var{signal} is zero, continue execution without giving a signal. This is useful when your program stopped on account of a signal and would ordinary see the signal when resumed with the @code{continue} command; @samp{signal 0} causes it to resume without a signal. @code{signal} does not repeat when you press @key{RET} a second time after executing the command. @end table @c @end group Invoking the @code{signal} command is not the same as invoking the @code{kill} utility from the shell. Sending a signal with @code{kill} causes @value{GDBN} to decide what to do with the signal depending on the signal handling tables (@pxref{Signals}). The @code{signal} command passes the signal directly to your program. @end ifclear @node Returning @section Returning from a function @table @code @item return @itemx return @var{expression} @cindex returning from a function @kindex return You can cancel execution of a function call with the @code{return} command. If you give an @var{expression} argument, its value is used as the function's return value. @end table When you use @code{return}, @value{GDBN} discards the selected stack frame (and all frames within it). You can think of this as making the discarded frame return prematurely. If you wish to specify a value to be returned, give that value as the argument to @code{return}. This pops the selected stack frame (@pxref{Selection, ,Selecting a frame}), and any other frames inside of it, leaving its caller as the innermost remaining frame. That frame becomes selected. The specified value is stored in the registers used for returning values of functions. The @code{return} command does not resume execution; it leaves the program stopped in the state that would exist if the function had just returned. In contrast, the @code{finish} command (@pxref{Continuing and Stepping, ,Continuing and stepping}) resumes execution until the selected stack frame returns naturally. @node Calling @section Calling program functions @cindex calling functions @kindex call @table @code @item call @var{expr} Evaluate the expression @var{expr} without displaying @code{void} returned values. @end table You can use this variant of the @code{print} command if you want to execute a function from your program, but without cluttering the output with @code{void} returned values. The result is printed and saved in the value history, if it is not void. @node Patching @section Patching programs @cindex patching binaries @cindex writing into executables @ifclear BARETARGET @cindex writing into corefiles @end ifclear By default, @value{GDBN} opens the file containing your program's executable code @ifclear BARETARGET (or the corefile) @end ifclear read-only. This prevents accidental alterations to machine code; but it also prevents you from intentionally patching your program's binary. If you'd like to be able to patch the binary, you can specify that explicitly with the @code{set write} command. For example, you might want to turn on internal debugging flags, or even to make emergency repairs. @table @code @item set write on @itemx set write off @kindex set write If you specify @samp{set write on}, @value{GDBN} opens executable @ifclear BARETARGET and core @end ifclear files for both reading and writing; if you specify @samp{set write off} (the default), @value{GDBN} opens them read-only. If you have already loaded a file, you must load it again (using the @code{exec-file} @ifclear BARETARGET or @code{core-file} @end ifclear command) after changing @code{set write}, for your new setting to take effect. @item show write @kindex show write Display whether executable files @ifclear BARETARGET and core files @end ifclear are opened for writing as well as reading. @end table @node GDB Files @chapter @value{GDBN} Files @value{GDBN} needs to know the file name of the program to be debugged, both in order to read its symbol table and in order to start your program. @ifclear BARETARGET To debug a core dump of a previous run, you must also tell @value{GDBN} the name of the core dump file. @end ifclear @menu * Files:: Commands to specify files * Symbol Errors:: Errors reading symbol files @end menu @node Files @section Commands to specify files @cindex symbol table @ifclear BARETARGET @cindex core dump file The usual way to specify executable and core dump file names is with the command arguments given when you start @value{GDBN} (@pxref{Invocation, ,Getting In and Out of @value{GDBN}}. @end ifclear @ifset BARETARGET The usual way to specify an executable file name is with the command argument given when you start @value{GDBN}, (@pxref{Invocation, ,Getting In and Out of @value{GDBN}}. @end ifset Occasionally it is necessary to change to a different file during a @value{GDBN} session. Or you may run @value{GDBN} and forget to specify a file you want to use. In these situations the @value{GDBN} commands to specify new files are useful. @table @code @item file @var{filename} @cindex executable file @kindex file Use @var{filename} as the program to be debugged. It is read for its symbols and for the contents of pure memory. It is also the program executed when you use the @code{run} command. If you do not specify a directory and the file is not found in the @value{GDBN} working directory, @value{GDBN} uses the environment variable @code{PATH} as a list of directories to search, just as the shell does when looking for a program to run. You can change the value of this variable, for both @value{GDBN} and your program, using the @code{path} command. On systems with memory-mapped files, an auxiliary file @file{@var{filename}.syms} may hold symbol table information for @var{filename}. If so, @value{GDBN} maps in the symbol table from @file{@var{filename}.syms}, starting up more quickly. See the descriptions of the options @samp{-mapped} and @samp{-readnow} (available on the command line, and with the commands @code{file}, @code{symbol-file}, or @code{add-symbol-file}), for more information. @item file @code{file} with no argument makes @value{GDBN} discard any information it has on both executable file and the symbol table. @item exec-file @r{[} @var{filename} @r{]} @kindex exec-file Specify that the program to be run (but not the symbol table) is found in @var{filename}. @value{GDBN} searches the environment variable @code{PATH} if necessary to locate your program. Omitting @var{filename} means to discard information on the executable file. @item symbol-file @r{[} @var{filename} @r{]} @kindex symbol-file Read symbol table information from file @var{filename}. @code{PATH} is searched when necessary. Use the @code{file} command to get both symbol table and program to run from the same file. @code{symbol-file} with no argument clears out @value{GDBN} information on your program's symbol table. The @code{symbol-file} command causes @value{GDBN} to forget the contents of its convenience variables, the value history, and all breakpoints and auto-display expressions. This is because they may contain pointers to the internal data recording symbols and data types, which are part of the old symbol table data being discarded inside @value{GDBN}. @code{symbol-file} does not repeat if you press @key{RET} again after executing it once. When @value{GDBN} is configured for a particular environment, it understands debugging information in whatever format is the standard generated for that environment; you may use either a GNU compiler, or other compilers that adhere to the local conventions. Best results are usually obtained from GNU compilers; for example, using @code{@value{GCC}} you can generate debugging information for optimized code. On some kinds of object files, the @code{symbol-file} command does not normally read the symbol table in full right away. Instead, it scans the symbol table quickly to find which source files and which symbols are present. The details are read later, one source file at a time, as they are needed. The purpose of this two-stage reading strategy is to make @value{GDBN} start up faster. For the most part, it is invisible except for occasional pauses while the symbol table details for a particular source file are being read. (The @code{set verbose} command can turn these pauses into messages if desired. @xref{Messages/Warnings, ,Optional warnings and messages}.) We have not implemented the two-stage strategy for COFF yet. When the symbol table is stored in COFF format, @code{symbol-file} reads the symbol table data in full right away. @item symbol-file @var{filename} @r{[} -readnow @r{]} @r{[} -mapped @r{]} @itemx file @var{filename} @r{[} -readnow @r{]} @r{[} -mapped @r{]} @kindex readnow @cindex reading symbols immediately @cindex symbols, reading immediately @kindex mapped @cindex memory-mapped symbol file @cindex saving symbol table You can override the @value{GDBN} two-stage strategy for reading symbol tables by using the @samp{-readnow} option with any of the commands that load symbol table information, if you want to be sure @value{GDBN} has the entire symbol table available. @ifclear BARETARGET If memory-mapped files are available on your system through the @code{mmap} system call, you can use another option, @samp{-mapped}, to cause @value{GDBN} to write the symbols for your program into a reusable file. Future @value{GDBN} debugging sessions map in symbol information from this auxiliary symbol file (if the program has not changed), rather than spending time reading the symbol table from the executable program. Using the @samp{-mapped} option has the same effect as starting @value{GDBN} with the @samp{-mapped} command-line option. You can use both options together, to make sure the auxiliary symbol file has all the symbol information for your program. The auxiliary symbol file for a program called @var{myprog} is called @samp{@var{myprog}.syms}. Once this file exists (so long as it is newer than the corresponding executable), @value{GDBN} always attempts to use it when you debug @var{myprog}; no special options or commands are needed. The @file{.syms} file is specific to the host machine where you run @value{GDBN}. It holds an exact image of the internal @value{GDBN} symbol table. It cannot be shared across multiple host platforms. @c FIXME: for now no mention of directories, since this seems to be in @c flux. 13mar1992 status is that in theory GDB would look either in @c current dir or in same dir as myprog; but issues like competing @c GDB's, or clutter in system dirs, mean that in practice right now @c only current dir is used. FFish says maybe a special GDB hierarchy @c (eg rooted in val of env var GDBSYMS) could exist for mappable symbol @c files. @item core-file @r{[} @var{filename} @r{]} @kindex core @kindex core-file Specify the whereabouts of a core dump file to be used as the ``contents of memory''. Traditionally, core files contain only some parts of the address space of the process that generated them; @value{GDBN} can access the executable file itself for other parts. @code{core-file} with no argument specifies that no core file is to be used. Note that the core file is ignored when your program is actually running under @value{GDBN}. So, if you have been running your program and you wish to debug a core file instead, you must kill the subprocess in which the program is running. To do this, use the @code{kill} command (@pxref{Kill Process, ,Killing the child process}). @end ifclear @item load @var{filename} @kindex load @ifset GENERIC Depending on what remote debugging facilities are configured into @value{GDBN}, the @code{load} command may be available. Where it exists, it is meant to make @var{filename} (an executable) available for debugging on the remote system---by downloading, or dynamic linking, for example. @code{load} also records the @var{filename} symbol table in @value{GDBN}, like the @code{add-symbol-file} command. If your @value{GDBN} does not have a @code{load} command, attempting to execute it gets the error message ``@code{You can't do that when your target is @dots{}}'' @end ifset The file is loaded at whatever address is specified in the executable. For some object file formats, you can specify the load address when you link the program; for other formats, like a.out, the object file format specifies a fixed address. @c FIXME! This would be a good place for an xref to the GNU linker doc. @ifset VXWORKS On VxWorks, @code{load} links @var{filename} dynamically on the current target system as well as adding its symbols in @value{GDBN}. @end ifset @ifset I960 @cindex download to Nindy-960 With the Nindy interface to an Intel 960 board, @code{load} downloads @var{filename} to the 960 as well as adding its symbols in @value{GDBN}. @end ifset @ifset H8 @cindex download to H8/300 or H8/500 @cindex H8/300 or H8/500 download @cindex download to Hitachi SH @cindex Hitachi SH download When you select remote debugging to a Hitachi SH, H8/300, or H8/500 board (@pxref{Hitachi Remote,,@value{GDBN} and Hitachi Microprocessors}), the @code{load} command downloads your program to the Hitachi board and also opens it as the current executable target for @value{GDBN} on your host (like the @code{file} command). @end ifset @code{load} does not repeat if you press @key{RET} again after using it. @ifclear BARETARGET @item add-symbol-file @var{filename} @var{address} @itemx add-symbol-file @var{filename} @var{address} @r{[} -readnow @r{]} @r{[} -mapped @r{]} @kindex add-symbol-file @cindex dynamic linking The @code{add-symbol-file} command reads additional symbol table information from the file @var{filename}. You would use this command when @var{filename} has been dynamically loaded (by some other means) into the program that is running. @var{address} should be the memory address at which the file has been loaded; @value{GDBN} cannot figure this out for itself. You can specify @var{address} as an expression. The symbol table of the file @var{filename} is added to the symbol table originally read with the @code{symbol-file} command. You can use the @code{add-symbol-file} command any number of times; the new symbol data thus read keeps adding to the old. To discard all old symbol data instead, use the @code{symbol-file} command. @code{add-symbol-file} does not repeat if you press @key{RET} after using it. You can use the @samp{-mapped} and @samp{-readnow} options just as with the @code{symbol-file} command, to change how @value{GDBN} manages the symbol table information for @var{filename}. @end ifclear @item info files @itemx info target @kindex info files @kindex info target @code{info files} and @code{info target} are synonymous; both print the current target (@pxref{Targets, ,Specifying a Debugging Target}), including the @ifclear BARETARGET names of the executable and core dump files @end ifclear @ifset BARETARGET name of the executable file @end ifset currently in use by @value{GDBN}, and the files from which symbols were loaded. The command @code{help target} lists all possible targets rather than current ones. @end table All file-specifying commands allow both absolute and relative file names as arguments. @value{GDBN} always converts the file name to an absolute file name and remembers it that way. @ifclear BARETARGET @cindex shared libraries @value{GDBN} supports SunOS, SVr4, Irix 5, and IBM RS/6000 shared libraries. @value{GDBN} automatically loads symbol definitions from shared libraries when you use the @code{run} command, or when you examine a core file. (Before you issue the @code{run} command, @value{GDBN} does not understand references to a function in a shared library, however---unless you are debugging a core file). @c FIXME: some @value{GDBN} release may permit some refs to undef @c FIXME...symbols---eg in a break cmd---assuming they are from a shared @c FIXME...lib; check this from time to time when updating manual @table @code @item info share @itemx info sharedlibrary @kindex info sharedlibrary @kindex info share Print the names of the shared libraries which are currently loaded. @item sharedlibrary @var{regex} @itemx share @var{regex} @kindex sharedlibrary @kindex share This is an obsolescent command; you can use it to explicitly load shared object library symbols for files matching a Unix regular expression, but as with files loaded automatically, it only loads shared libraries required by your program for a core file or after typing @code{run}. If @var{regex} is omitted all shared libraries required by your program are loaded. @end table @end ifclear @node Symbol Errors @section Errors reading symbol files While reading a symbol file, @value{GDBN} occasionally encounters problems, such as symbol types it does not recognize, or known bugs in compiler output. By default, @value{GDBN} does not notify you of such problems, since they are relatively common and primarily of interest to people debugging compilers. If you are interested in seeing information about ill-constructed symbol tables, you can either ask @value{GDBN} to print only one message about each such type of problem, no matter how many times the problem occurs; or you can ask @value{GDBN} to print more messages, to see how many times the problems occur, with the @code{set complaints} command (@pxref{Messages/Warnings, ,Optional warnings and messages}). The messages currently printed, and their meanings, include: @table @code @item inner block not inside outer block in @var{symbol} The symbol information shows where symbol scopes begin and end (such as at the start of a function or a block of statements). This error indicates that an inner scope block is not fully contained in its outer scope blocks. @value{GDBN} circumvents the problem by treating the inner block as if it had the same scope as the outer block. In the error message, @var{symbol} may be shown as ``@code{(don't know)}'' if the outer block is not a function. @item block at @var{address} out of order The symbol information for symbol scope blocks should occur in order of increasing addresses. This error indicates that it does not do so. @value{GDBN} does not circumvent this problem, and has trouble locating symbols in the source file whose symbols it is reading. (You can often determine what source file is affected by specifying @code{set verbose on}. @xref{Messages/Warnings, ,Optional warnings and messages}.) @item bad block start address patched The symbol information for a symbol scope block has a start address smaller than the address of the preceding source line. This is known to occur in the SunOS 4.1.1 (and earlier) C compiler. @value{GDBN} circumvents the problem by treating the symbol scope block as starting on the previous source line. @item bad string table offset in symbol @var{n} @cindex foo Symbol number @var{n} contains a pointer into the string table which is larger than the size of the string table. @value{GDBN} circumvents the problem by considering the symbol to have the name @code{foo}, which may cause other problems if many symbols end up with this name. @item unknown symbol type @code{0x@var{nn}} The symbol information contains new data types that @value{GDBN} does not yet know how to read. @code{0x@var{nn}} is the symbol type of the misunderstood information, in hexadecimal. @value{GDBN} circumvents the error by ignoring this symbol information. This usually allows you to debug your program, though certain symbols are not accessible. If you encounter such a problem and feel like debugging it, you can debug @code{@value{GDBP}} with itself, breakpoint on @code{complain}, then go up to the function @code{read_dbx_symtab} and examine @code{*bufp} to see the symbol. @item stub type has NULL name @value{GDBN} could not find the full definition for @ifclear CONLY a struct or class. @end ifclear @ifset CONLY a struct. @end ifset @ifclear CONLY @item const/volatile indicator missing (ok if using g++ v1.x), got@dots{} The symbol information for a C++ member function is missing some information that recent versions of the compiler should have output for it. @end ifclear @item info mismatch between compiler and debugger @value{GDBN} could not parse a type specification output by the compiler. @end table @node Targets @chapter Specifying a Debugging Target @cindex debugging target @kindex target A @dfn{target} is the execution environment occupied by your program. @ifclear BARETARGET Often, @value{GDBN} runs in the same host environment as your program; in that case, the debugging target is specified as a side effect when you use the @code{file} or @code{core} commands. When you need more flexibility---for example, running @value{GDBN} on a physically separate host, or controlling a standalone system over a serial port or a realtime system over a TCP/IP connection---you @end ifclear @ifset BARETARGET You @end ifset can use the @code{target} command to specify one of the target types configured for @value{GDBN} (@pxref{Target Commands, ,Commands for managing targets}). @menu * Active Targets:: Active targets * Target Commands:: Commands for managing targets * Remote:: Remote debugging @end menu @node Active Targets @section Active targets @cindex stacking targets @cindex active targets @cindex multiple targets @ifclear BARETARGET There are three classes of targets: processes, core files, and executable files. @value{GDBN} can work concurrently on up to three active targets, one in each class. This allows you to (for example) start a process and inspect its activity without abandoning your work on a core file. For example, if you execute @samp{gdb a.out}, then the executable file @code{a.out} is the only active target. If you designate a core file as well---presumably from a prior run that crashed and coredumped---then @value{GDBN} has two active targets and uses them in tandem, looking first in the corefile target, then in the executable file, to satisfy requests for memory addresses. (Typically, these two classes of target are complementary, since core files contain only a program's read-write memory---variables and so on---plus machine status, while executable files contain only the program text and initialized data.) @end ifclear When you type @code{run}, your executable file becomes an active process target as well. When a process target is active, all @value{GDBN} commands requesting memory addresses refer to that target; addresses in an @ifclear BARETARGET active core file or @end ifclear executable file target are obscured while the process target is active. @ifset BARETARGET Use the @code{exec-file} command to select a new executable target (@pxref{Files, ,Commands to specify files}). @end ifset @ifclear BARETARGET Use the @code{core-file} and @code{exec-file} commands to select a new core file or executable target (@pxref{Files, ,Commands to specify files}). To specify as a target a process that is already running, use the @code{attach} command (@pxref{Attach, ,Debugging an already-running process}). @end ifclear @node Target Commands @section Commands for managing targets @table @code @item target @var{type} @var{parameters} Connects the @value{GDBN} host environment to a target @ifset BARETARGET machine. @end ifset @ifclear BARETARGET machine or process. A target is typically a protocol for talking to debugging facilities. You use the argument @var{type} to specify the type or protocol of the target machine. Further @var{parameters} are interpreted by the target protocol, but typically include things like device names or host names to connect with, process numbers, and baud rates. @end ifclear The @code{target} command does not repeat if you press @key{RET} again after executing the command. @item help target @kindex help target Displays the names of all targets available. To display targets currently selected, use either @code{info target} or @code{info files} (@pxref{Files, ,Commands to specify files}). @item help target @var{name} Describe a particular target, including any parameters necessary to select it. @end table Here are some common targets (available, or not, depending on the GDB configuration): @table @code @item target exec @var{program} @kindex target exec An executable file. @samp{target exec @var{program}} is the same as @samp{exec-file @var{program}}. @ifclear BARETARGET @item target core @var{filename} @kindex target core A core dump file. @samp{target core @var{filename}} is the same as @samp{core-file @var{filename}}. @end ifclear @ifset REMOTESTUB @item target remote @var{dev} @kindex target remote Remote serial target in GDB-specific protocol. The argument @var{dev} specifies what serial device to use for the connection (e.g. @file{/dev/ttya}). @xref{Remote, ,Remote debugging}. @end ifset @ifset SIMS @item target sim @kindex target sim CPU simulator. @xref{Simulator,,Simulated CPU Target}. @end ifset @ifset AMD29K @item target udi @var{keyword} @kindex target udi Remote AMD29K target, using the AMD UDI protocol. The @var{keyword} argument specifies which 29K board or simulator to use. @xref{UDI29K Remote,,The UDI protocol for AMD29K}. @item target amd-eb @var{dev} @var{speed} @var{PROG} @kindex target amd-eb @cindex AMD EB29K Remote PC-resident AMD EB29K board, attached over serial lines. @var{dev} is the serial device, as for @code{target remote}; @var{speed} allows you to specify the linespeed; and @var{PROG} is the name of the program to be debugged, as it appears to DOS on the PC. @xref{EB29K Remote, ,The EBMON protocol for AMD29K}. @end ifset @ifset H8 @item target hms @kindex target hms A Hitachi SH, H8/300, or H8/500 board, attached via serial line to your host. @ifclear H8EXCLUSIVE @c Unix only, not currently of interest for H8-only manual Use special commands @code{device} and @code{speed} to control the serial line and the communications speed used. @end ifclear @xref{Hitachi Remote,,@value{GDBN} and Hitachi Microprocessors}. @end ifset @ifset I960 @item target nindy @var{devicename} @kindex target nindy An Intel 960 board controlled by a Nindy Monitor. @var{devicename} is the name of the serial device to use for the connection, e.g. @file{/dev/ttya}. @xref{i960-Nindy Remote, ,@value{GDBN} with a remote i960 (Nindy)}. @end ifset @ifset ST2000 @item target st2000 @var{dev} @var{speed} @kindex target st2000 A Tandem ST2000 phone switch, running Tandem's STDBUG protocol. @var{dev} is the name of the device attached to the ST2000 serial line; @var{speed} is the communication line speed. The arguments are not used if @value{GDBN} is configured to connect to the ST2000 using TCP or Telnet. @xref{ST2000 Remote,,@value{GDBN} with a Tandem ST2000}. @end ifset @ifset VXWORKS @item target vxworks @var{machinename} @kindex target vxworks A VxWorks system, attached via TCP/IP. The argument @var{machinename} is the target system's machine name or IP address. @xref{VxWorks Remote, ,@value{GDBN} and VxWorks}. @end ifset @end table @ifset GENERIC Different targets are available on different configurations of @value{GDBN}; your configuration may have more or fewer targets. @end ifset @node Remote @section Remote debugging @cindex remote debugging If you are trying to debug a program running on a machine that cannot run GDB in the usual way, it is often useful to use remote debugging. For example, you might use remote debugging on an operating system kernel, or on a small system which does not have a general purpose operating system powerful enough to run a full-featured debugger. Some configurations of GDB have special serial or TCP/IP interfaces to make this work with particular debugging targets. In addition, GDB comes with a generic serial protocol (specific to GDB, but not specific to any particular target system) which you can use if you write the remote stubs---the code that runs on the remote system to communicate with GDB. Other remote targets may be available in your configuration of GDB; use @code{help target} to list them. @ifset GENERIC @c Text on starting up GDB in various specific cases; it goes up front @c in manuals configured for any of those particular situations, here @c otherwise. @menu @ifset REMOTESTUB * Remote Serial:: @value{GDBN} remote serial protocol @end ifset @ifset I960 * i960-Nindy Remote:: @value{GDBN} with a remote i960 (Nindy) @end ifset @ifset AMD29K * UDI29K Remote:: The UDI protocol for AMD29K * EB29K Remote:: The EBMON protocol for AMD29K @end ifset @ifset VXWORKS * VxWorks Remote:: @value{GDBN} and VxWorks @end ifset @ifset ST2000 * ST2000 Remote:: @value{GDBN} with a Tandem ST2000 @end ifset @ifset H8 * Hitachi Remote:: @value{GDBN} and Hitachi Microprocessors @end ifset @ifset MIPS * MIPS Remote:: @value{GDBN} and MIPS boards @end ifset @ifset SIMS * Simulator:: Simulated CPU target @end ifset @end menu @include remote.texi @end ifset @node Controlling GDB @chapter Controlling @value{GDBN} You can alter the way @value{GDBN} interacts with you by using the @code{set} command. For commands controlling how @value{GDBN} displays data, @pxref{Print Settings, ,Print settings}; other settings are described here. @menu * Prompt:: Prompt * Editing:: Command editing * History:: Command history * Screen Size:: Screen size * Numbers:: Numbers * Messages/Warnings:: Optional warnings and messages @end menu @node Prompt @section Prompt @cindex prompt @value{GDBN} indicates its readiness to read a command by printing a string called the @dfn{prompt}. This string is normally @samp{(@value{GDBP})}. You can change the prompt string with the @code{set prompt} command. For instance, when debugging @value{GDBN} with @value{GDBN}, it is useful to change the prompt in one of the @value{GDBN} sessions so that you can always tell which one you are talking to. @table @code @item set prompt @var{newprompt} @kindex set prompt Directs @value{GDBN} to use @var{newprompt} as its prompt string henceforth. @kindex show prompt @item show prompt Prints a line of the form: @samp{Gdb's prompt is: @var{your-prompt}} @end table @node Editing @section Command editing @cindex readline @cindex command line editing @value{GDBN} reads its input commands via the @dfn{readline} interface. This GNU library provides consistent behavior for programs which provide a command line interface to the user. Advantages are @code{emacs}-style or @code{vi}-style inline editing of commands, @code{csh}-like history substitution, and a storage and recall of command history across debugging sessions. You may control the behavior of command line editing in @value{GDBN} with the command @code{set}. @table @code @kindex set editing @cindex editing @item set editing @itemx set editing on Enable command line editing (enabled by default). @item set editing off Disable command line editing. @kindex show editing @item show editing Show whether command line editing is enabled. @end table @node History @section Command history @value{GDBN} can keep track of the commands you type during your debugging sessions, so that you can be certain of precisely what happened. Use these commands to manage the @value{GDBN} command history facility. @table @code @cindex history substitution @cindex history file @kindex set history filename @kindex GDBHISTFILE @item set history filename @var{fname} Set the name of the @value{GDBN} command history file to @var{fname}. This is the file where @value{GDBN} reads an initial command history list, and where it writes the command history from this session when it exits. You can access this list through history expansion or through the history command editing characters listed below. This file defaults to the value of the environment variable @code{GDBHISTFILE}, or to @file{./.gdb_history} if this variable is not set. @cindex history save @kindex set history save @item set history save @itemx set history save on Record command history in a file, whose name may be specified with the @code{set history filename} command. By default, this option is disabled. @item set history save off Stop recording command history in a file. @cindex history size @kindex set history size @item set history size @var{size} Set the number of commands which @value{GDBN} keeps in its history list. This defaults to the value of the environment variable @code{HISTSIZE}, or to 256 if this variable is not set. @end table @cindex history expansion History expansion assigns special meaning to the character @kbd{!}. @ifset have-readline-appendices @xref{Event Designators}. @end ifset Since @kbd{!} is also the logical not operator in C, history expansion is off by default. If you decide to enable history expansion with the @code{set history expansion on} command, you may sometimes need to follow @kbd{!} (when it is used as logical not, in an expression) with a space or a tab to prevent it from being expanded. The readline history facilities do not attempt substitution on the strings @kbd{!=} and @kbd{!(}, even when history expansion is enabled. The commands to control history expansion are: @table @code @kindex set history expansion @item set history expansion on @itemx set history expansion Enable history expansion. History expansion is off by default. @item set history expansion off Disable history expansion. The readline code comes with more complete documentation of editing and history expansion features. Users unfamiliar with @code{emacs} or @code{vi} may wish to read it. @ifset have-readline-appendices @xref{Command Line Editing}. @end ifset @c @group @kindex show history @item show history @itemx show history filename @itemx show history save @itemx show history size @itemx show history expansion These commands display the state of the @value{GDBN} history parameters. @code{show history} by itself displays all four states. @c @end group @end table @table @code @kindex show commands @item show commands Display the last ten commands in the command history. @item show commands @var{n} Print ten commands centered on command number @var{n}. @item show commands + Print ten commands just after the commands last printed. @end table @node Screen Size @section Screen size @cindex size of screen @cindex pauses in output Certain commands to @value{GDBN} may produce large amounts of information output to the screen. To help you read all of it, @value{GDBN} pauses and asks you for input at the end of each page of output. Type @key{RET} when you want to continue the output, or @kbd{q} to discard the remaining output. Also, the screen width setting determines when to wrap lines of output. Depending on what is being printed, @value{GDBN} tries to break the line at a readable place, rather than simply letting it overflow onto the following line. Normally @value{GDBN} knows the size of the screen from the termcap data base together with the value of the @code{TERM} environment variable and the @code{stty rows} and @code{stty cols} settings. If this is not correct, you can override it with the @code{set height} and @code{set width} commands: @table @code @item set height @var{lpp} @itemx show height @itemx set width @var{cpl} @itemx show width @kindex set height @kindex set width @kindex show width @kindex show height These @code{set} commands specify a screen height of @var{lpp} lines and a screen width of @var{cpl} characters. The associated @code{show} commands display the current settings. If you specify a height of zero lines, @value{GDBN} does not pause during output no matter how long the output is. This is useful if output is to a file or to an editor buffer. Likewise, you can specify @samp{set width 0} to prevent @value{GDBN} from wrapping its output. @end table @node Numbers @section Numbers @cindex number representation @cindex entering numbers You can always enter numbers in octal, decimal, or hexadecimal in @value{GDBN} by the usual conventions: octal numbers begin with @samp{0}, decimal numbers end with @samp{.}, and hexadecimal numbers begin with @samp{0x}. Numbers that begin with none of these are, by default, entered in base 10; likewise, the default display for numbers---when no particular format is specified---is base 10. You can change the default base for both input and output with the @code{set radix} command. @table @code @kindex set radix @item set radix @var{base} Set the default base for numeric input and display. Supported choices for @var{base} are decimal 8, 10, or 16. @var{base} must itself be specified either unambiguously or using the current default radix; for example, any of @example set radix 012 set radix 10. set radix 0xa @end example @noindent sets the base to decimal. On the other hand, @samp{set radix 10} leaves the radix unchanged no matter what it was. @kindex show radix @item show radix Display the current default base for numeric input and display. @end table @node Messages/Warnings @section Optional warnings and messages By default, @value{GDBN} is silent about its inner workings. If you are running on a slow machine, you may want to use the @code{set verbose} command. It makes @value{GDBN} tell you when it does a lengthy internal operation, so you will not think it has crashed. Currently, the messages controlled by @code{set verbose} are those which announce that the symbol table for a source file is being read; see @code{symbol-file} in @ref{Files, ,Commands to specify files}. @table @code @kindex set verbose @item set verbose on Enables @value{GDBN} output of certain informational messages. @item set verbose off Disables @value{GDBN} output of certain informational messages. @kindex show verbose @item show verbose Displays whether @code{set verbose} is on or off. @end table By default, if @value{GDBN} encounters bugs in the symbol table of an object file, it is silent; but if you are debugging a compiler, you may find this information useful (@pxref{Symbol Errors, ,Errors reading symbol files}). @table @code @kindex set complaints @item set complaints @var{limit} Permits @value{GDBN} to output @var{limit} complaints about each type of unusual symbols before becoming silent about the problem. Set @var{limit} to zero to suppress all complaints; set it to a large number to prevent complaints from being suppressed. @kindex show complaints @item show complaints Displays how many symbol complaints @value{GDBN} is permitted to produce. @end table By default, @value{GDBN} is cautious, and asks what sometimes seems to be a lot of stupid questions to confirm certain commands. For example, if you try to run a program which is already running: @example (@value{GDBP}) run The program being debugged has been started already. Start it from the beginning? (y or n) @end example If you are willing to unflinchingly face the consequences of your own commands, you can disable this ``feature'': @table @code @kindex set confirm @cindex flinching @cindex confirmation @cindex stupid questions @item set confirm off Disables confirmation requests. @item set confirm on Enables confirmation requests (the default). @item show confirm @kindex show confirm Displays state of confirmation requests. @end table @c FIXME this does not really belong here. But where *does* it belong? @cindex reloading symbols Some systems allow individual object files that make up your program to be replaced without stopping and restarting your program. @ifset VXWORKS For example, in VxWorks you can simply recompile a defective object file and keep on running. @end ifset If you are running on one of these systems, you can allow @value{GDBN} to reload the symbols for automatically relinked modules: @table @code @kindex set symbol-reloading @item set symbol-reloading on Replace symbol definitions for the corresponding source file when an object file with a particular name is seen again. @item set symbol-reloading off Do not replace symbol definitions when re-encountering object files of the same name. This is the default state; if you are not running on a system that permits automatically relinking modules, you should leave @code{symbol-reloading} off, since otherwise @value{GDBN} may discard symbols when linking large programs, that may contain several modules (from different directories or libraries) with the same name. @item show symbol-reloading Show the current @code{on} or @code{off} setting. @end table @node Sequences @chapter Canned Sequences of Commands Aside from breakpoint commands (@pxref{Break Commands, ,Breakpoint command lists}), @value{GDBN} provides two ways to store sequences of commands for execution as a unit: user-defined commands and command files. @menu * Define:: User-defined commands * Hooks:: User-defined command hooks * Command Files:: Command files * Output:: Commands for controlled output @end menu @node Define @section User-defined commands @cindex user-defined command A @dfn{user-defined command} is a sequence of @value{GDBN} commands to which you assign a new name as a command. This is done with the @code{define} command. @table @code @item define @var{commandname} @kindex define Define a command named @var{commandname}. If there is already a command by that name, you are asked to confirm that you want to redefine it. The definition of the command is made up of other @value{GDBN} command lines, which are given following the @code{define} command. The end of these commands is marked by a line containing @code{end}. @item document @var{commandname} @kindex document Give documentation to the user-defined command @var{commandname}. The command @var{commandname} must already be defined. This command reads lines of documentation just as @code{define} reads the lines of the command definition, ending with @code{end}. After the @code{document} command is finished, @code{help} on command @var{commandname} displays the documentation you have specified. You may use the @code{document} command again to change the documentation of a command. Redefining the command with @code{define} does not change the documentation. @item help user-defined @kindex help user-defined List all user-defined commands, with the first line of the documentation (if any) for each. @item show user @itemx show user @var{commandname} @kindex show user Display the @value{GDBN} commands used to define @var{commandname} (but not its documentation). If no @var{commandname} is given, display the definitions for all user-defined commands. @end table User-defined commands do not take arguments. When they are executed, the commands of the definition are not printed. An error in any command stops execution of the user-defined command. Commands that would ask for confirmation if used interactively proceed without asking when used inside a user-defined command. Many @value{GDBN} commands that normally print messages to say what they are doing omit the messages when used in a user-defined command. @node Hooks @section User-defined command hooks @cindex command files You may define @emph{hooks}, which are a special kind of user-defined command. Whenever you run the command @samp{foo}, if the user-defined command @samp{hook-foo} exists, it is executed (with no arguments) before that command. In addition, a pseudo-command, @samp{stop} exists. Defining (@samp{hook-stop}) makes the associated commands execute every time execution stops in your program: before breakpoint commands are run, displays are printed, or the stack frame is printed. @ifclear BARETARGET For example, to ignore @code{SIGALRM} signals while single-stepping, but treat them normally during normal execution, you could define: @example define hook-stop handle SIGALRM nopass end define hook-run handle SIGALRM pass end define hook-continue handle SIGLARM pass end @end example @end ifclear You can define a hook for any single-word command in @value{GDBN}, but not for command aliases; you should define a hook for the basic command name, e.g. @code{backtrace} rather than @code{bt}. @c FIXME! So how does Joe User discover whether a command is an alias @c or not? If an error occurs during the execution of your hook, execution of @value{GDBN} commands stops and @value{GDBN} issues a prompt (before the command that you actually typed had a chance to run). If you try to define a hook which does not match any known command, you get a warning from the @code{define} command. @node Command Files @section Command files @cindex command files A command file for @value{GDBN} is a file of lines that are @value{GDBN} commands. Comments (lines starting with @kbd{#}) may also be included. An empty line in a command file does nothing; it does not mean to repeat the last command, as it would from the terminal. @cindex init file @cindex @file{@value{GDBINIT}} When you start @value{GDBN}, it automatically executes commands from its @dfn{init files}. These are files named @file{@value{GDBINIT}}. @value{GDBN} reads the init file (if any) in your home directory, then processes command line options and operands, and then reads the init file (if any) in the current working directory. This is so the init file in your home directory can set options (such as @code{set complaints}) which affect the processing of the command line options and operands. The init files are not executed if you use the @samp{-nx} option; @pxref{Mode Options, ,Choosing modes}. @ifset GENERIC @cindex init file name On some configurations of @value{GDBN}, the init file is known by a different name (these are typically environments where a specialized form of GDB may need to coexist with other forms, hence a different name for the specialized version's init file). These are the environments with special init file names: @itemize @bullet @kindex .vxgdbinit @item VxWorks (Wind River Systems real-time OS): @samp{.vxgdbinit} @kindex .os68gdbinit @item OS68K (Enea Data Systems real-time OS): @samp{.os68gdbinit} @kindex .esgdbinit @item ES-1800 (Ericsson Telecom AB M68000 emulator): @samp{.esgdbinit} @end itemize @end ifset You can also request the execution of a command file with the @code{source} command: @table @code @item source @var{filename} @kindex source Execute the command file @var{filename}. @end table The lines in a command file are executed sequentially. They are not printed as they are executed. An error in any command terminates execution of the command file. Commands that would ask for confirmation if used interactively proceed without asking when used in a command file. Many @value{GDBN} commands that normally print messages to say what they are doing omit the messages when called from command files. @node Output @section Commands for controlled output During the execution of a command file or a user-defined command, normal @value{GDBN} output is suppressed; the only output that appears is what is explicitly printed by the commands in the definition. This section describes three commands useful for generating exactly the output you want. @table @code @item echo @var{text} @kindex echo @c I do not consider backslash-space a standard C escape sequence @c because it is not in ANSI. Print @var{text}. Nonprinting characters can be included in @var{text} using C escape sequences, such as @samp{\n} to print a newline. @strong{No newline is printed unless you specify one.} In addition to the standard C escape sequences, a backslash followed by a space stands for a space. This is useful for displaying a string with spaces at the beginning or the end, since leading and trailing spaces are otherwise trimmed from all arguments. To print @samp{@w{ }and foo =@w{ }}, use the command @samp{echo \@w{ }and foo = \@w{ }}. A backslash at the end of @var{text} can be used, as in C, to continue the command onto subsequent lines. For example, @example echo This is some text\n\ which is continued\n\ onto several lines.\n @end example produces the same output as @example echo This is some text\n echo which is continued\n echo onto several lines.\n @end example @item output @var{expression} @kindex output Print the value of @var{expression} and nothing but that value: no newlines, no @samp{$@var{nn} = }. The value is not entered in the value history either. @xref{Expressions, ,Expressions}, for more information on expressions. @item output/@var{fmt} @var{expression} Print the value of @var{expression} in format @var{fmt}. You can use the same formats as for @code{print}. @xref{Output Formats,,Output formats}, for more information. @item printf @var{string}, @var{expressions}@dots{} @kindex printf Print the values of the @var{expressions} under the control of @var{string}. The @var{expressions} are separated by commas and may be either numbers or pointers. Their values are printed as specified by @var{string}, exactly as if your program were to execute the C subroutine @example printf (@var{string}, @var{expressions}@dots{}); @end example For example, you can print two values in hex like this: @smallexample printf "foo, bar-foo = 0x%x, 0x%x\n", foo, bar-foo @end smallexample The only backslash-escape sequences that you can use in the format string are the simple ones that consist of backslash followed by a letter. @end table @ifclear DOSHOST @node Emacs @chapter Using @value{GDBN} under GNU Emacs @cindex emacs A special interface allows you to use GNU Emacs to view (and edit) the source files for the program you are debugging with @value{GDBN}. To use this interface, use the command @kbd{M-x gdb} in Emacs. Give the executable file you want to debug as an argument. This command starts @value{GDBN} as a subprocess of Emacs, with input and output through a newly created Emacs buffer. Using @value{GDBN} under Emacs is just like using @value{GDBN} normally except for two things: @itemize @bullet @item All ``terminal'' input and output goes through the Emacs buffer. @end itemize This applies both to @value{GDBN} commands and their output, and to the input and output done by the program you are debugging. This is useful because it means that you can copy the text of previous commands and input them again; you can even use parts of the output in this way. All the facilities of Emacs' Shell mode are available for interacting with your program. In particular, you can send signals the usual way---for example, @kbd{C-c C-c} for an interrupt, @kbd{C-c C-z} for a stop. @itemize @bullet @item @value{GDBN} displays source code through Emacs. @end itemize Each time @value{GDBN} displays a stack frame, Emacs automatically finds the source file for that frame and puts an arrow (@samp{=>}) at the left margin of the current line. Emacs uses a separate buffer for source display, and splits the screen to show both your @value{GDBN} session and the source. Explicit @value{GDBN} @code{list} or search commands still produce output as usual, but you probably have no reason to use them from Emacs. @quotation @emph{Warning:} If the directory where your program resides is not your current directory, it can be easy to confuse Emacs about the location of the source files, in which case the auxiliary display buffer does not appear to show your source. @value{GDBN} can find programs by searching your environment's @code{PATH} variable, so the @value{GDBN} input and output session proceeds normally; but Emacs does not get enough information back from @value{GDBN} to locate the source files in this situation. To avoid this problem, either start @value{GDBN} mode from the directory where your program resides, or specify an absolute file name when prompted for the @kbd{M-x gdb} argument. A similar confusion can result if you use the @value{GDBN} @code{file} command to switch to debugging a program in some other location, from an existing @value{GDBN} buffer in Emacs. @end quotation By default, @kbd{M-x gdb} calls the program called @file{gdb}. If you need to call @value{GDBN} by a different name (for example, if you keep several configurations around, with different names) you can set the Emacs variable @code{gdb-command-name}; for example, @example (setq gdb-command-name "mygdb") @end example @noindent (preceded by @kbd{ESC ESC}, or typed in the @code{*scratch*} buffer, or in your @file{.emacs} file) makes Emacs call the program named ``@code{mygdb}'' instead. In the @value{GDBN} I/O buffer, you can use these special Emacs commands in addition to the standard Shell mode commands: @table @kbd @item C-h m Describe the features of Emacs' @value{GDBN} Mode. @item M-s Execute to another source line, like the @value{GDBN} @code{step} command; also update the display window to show the current file and location. @item M-n Execute to next source line in this function, skipping all function calls, like the @value{GDBN} @code{next} command. Then update the display window to show the current file and location. @item M-i Execute one instruction, like the @value{GDBN} @code{stepi} command; update display window accordingly. @item M-x gdb-nexti Execute to next instruction, using the @value{GDBN} @code{nexti} command; update display window accordingly. @item C-c C-f Execute until exit from the selected stack frame, like the @value{GDBN} @code{finish} command. @item M-c Continue execution of your program, like the @value{GDBN} @code{continue} command. @emph{Warning:} In Emacs v19, this command is @kbd{C-c C-p}. @item M-u Go up the number of frames indicated by the numeric argument (@pxref{Arguments, , Numeric Arguments, emacs, The GNU Emacs Manual}), like the @value{GDBN} @code{up} command. @emph{Warning:} In Emacs v19, this command is @kbd{C-c C-u}. @item M-d Go down the number of frames indicated by the numeric argument, like the @value{GDBN} @code{down} command. @emph{Warning:} In Emacs v19, this command is @kbd{C-c C-d}. @item C-x & Read the number where the cursor is positioned, and insert it at the end of the @value{GDBN} I/O buffer. For example, if you wish to disassemble code around an address that was displayed earlier, type @kbd{disassemble}; then move the cursor to the address display, and pick up the argument for @code{disassemble} by typing @kbd{C-x &}. You can customize this further by defining elements of the list @code{gdb-print-command}; once it is defined, you can format or otherwise process numbers picked up by @kbd{C-x &} before they are inserted. A numeric argument to @kbd{C-x &} indicates that you wish special formatting, and also acts as an index to pick an element of the list. If the list element is a string, the number to be inserted is formatted using the Emacs function @code{format}; otherwise the number is passed as an argument to the corresponding list element. @end table In any source file, the Emacs command @kbd{C-x SPC} (@code{gdb-break}) tells @value{GDBN} to set a breakpoint on the source line point is on. If you accidentally delete the source-display buffer, an easy way to get it back is to type the command @code{f} in the @value{GDBN} buffer, to request a frame display; when you run under Emacs, this recreates the source buffer if necessary to show you the context of the current frame. The source files displayed in Emacs are in ordinary Emacs buffers which are visiting the source files in the usual way. You can edit the files with these buffers if you wish; but keep in mind that @value{GDBN} communicates with Emacs in terms of line numbers. If you add or delete lines from the text, the line numbers that @value{GDBN} knows cease to correspond properly with the code. @c The following dropped because Epoch is nonstandard. Reactivate @c if/when v19 does something similar. ---pesch@cygnus.com 19dec1990 @ignore @kindex emacs epoch environment @kindex epoch @kindex inspect Version 18 of Emacs has a built-in window system called the @code{epoch} environment. Users of this environment can use a new command, @code{inspect} which performs identically to @code{print} except that each value is printed in its own window. @end ignore @end ifclear @ifset LUCID @node Energize @chapter Using @value{GDBN} with Energize @cindex Energize The Energize Programming System is an integrated development environment that includes a point-and-click interface to many programming tools. When you use @value{GDBN} in this environment, you can use the standard Energize graphical interface to drive @value{GDBN}; you can also, if you choose, type @value{GDBN} commands as usual in a debugging window. Even if you use the graphical interface, the debugging window (which uses Emacs, and resembles the standard Emacs interface to @value{GDBN}) displays the equivalent commands, so that the history of your debugging session is properly reflected. When Energize starts up a @value{GDBN} session, it uses one of the command-line options @samp{-energize} or @samp{-cadillac} (``cadillac'' is the name of the communications protocol used by the Energize system). This option makes @value{GDBN} run as one of the tools in the Energize Tool Set: it sends all output to the Energize kernel, and accept input from it as well. See the user manual for the Energize Programming System for information on how to use the Energize graphical interface and the other development tools that Energize integrates with @value{GDBN}. @end ifset @node GDB Bugs @chapter Reporting Bugs in @value{GDBN} @cindex bugs in @value{GDBN} @cindex reporting bugs in @value{GDBN} Your bug reports play an essential role in making @value{GDBN} reliable. Reporting a bug may help you by bringing a solution to your problem, or it may not. But in any case the principal function of a bug report is to help the entire community by making the next version of @value{GDBN} work better. Bug reports are your contribution to the maintenance of @value{GDBN}. In order for a bug report to serve its purpose, you must include the information that enables us to fix the bug. @menu * Bug Criteria:: Have you found a bug? * Bug Reporting:: How to report bugs @end menu @node Bug Criteria @section Have you found a bug? @cindex bug criteria If you are not sure whether you have found a bug, here are some guidelines: @itemize @bullet @item @cindex fatal signal @cindex debugger crash @cindex crash of debugger If the debugger gets a fatal signal, for any input whatever, that is a @value{GDBN} bug. Reliable debuggers never crash. @item @cindex error on valid input If @value{GDBN} produces an error message for valid input, that is a bug. @item @cindex invalid input If @value{GDBN} does not produce an error message for invalid input, that is a bug. However, you should note that your idea of ``invalid input'' might be our idea of ``an extension'' or ``support for traditional practice''. @item If you are an experienced user of debugging tools, your suggestions for improvement of @value{GDBN} are welcome in any case. @end itemize @node Bug Reporting @section How to report bugs @cindex bug reports @cindex @value{GDBN} bugs, reporting A number of companies and individuals offer support for GNU products. If you obtained @value{GDBN} from a support organization, we recommend you contact that organization first. You can find contact information for many support companies and individuals in the file @file{etc/SERVICE} in the GNU Emacs distribution. In any event, we also recommend that you send bug reports for @value{GDBN} to one of these addresses: @example bug-gdb@@prep.ai.mit.edu @{ucbvax|mit-eddie|uunet@}!prep.ai.mit.edu!bug-gdb @end example @strong{Do not send bug reports to @samp{info-gdb}, or to @samp{help-gdb}, or to any newsgroups.} Most users of @value{GDBN} do not want to receive bug reports. Those that do, have arranged to receive @samp{bug-gdb}. The mailing list @samp{bug-gdb} has a newsgroup @samp{gnu.gdb.bug} which serves as a repeater. The mailing list and the newsgroup carry exactly the same messages. Often people think of posting bug reports to the newsgroup instead of mailing them. This appears to work, but it has one problem which can be crucial: a newsgroup posting often lacks a mail path back to the sender. Thus, if we need to ask for more information, we may be unable to reach you. For this reason, it is better to send bug reports to the mailing list. As a last resort, send bug reports on paper to: @example GNU Debugger Bugs Free Software Foundation 545 Tech Square Cambridge, MA 02139 @end example The fundamental principle of reporting bugs usefully is this: @strong{report all the facts}. If you are not sure whether to state a fact or leave it out, state it! Often people omit facts because they think they know what causes the problem and assume that some details do not matter. Thus, you might assume that the name of the variable you use in an example does not matter. Well, probably it does not, but one cannot be sure. Perhaps the bug is a stray memory reference which happens to fetch from the location where that name is stored in memory; perhaps, if the name were different, the contents of that location would fool the debugger into doing the right thing despite the bug. Play it safe and give a specific, complete example. That is the easiest thing for you to do, and the most helpful. Keep in mind that the purpose of a bug report is to enable us to fix the bug if it is new to us. It is not as important as what happens if the bug is already known. Therefore, always write your bug reports on the assumption that the bug has not been reported previously. Sometimes people give a few sketchy facts and ask, ``Does this ring a bell?'' Those bug reports are useless, and we urge everyone to @emph{refuse to respond to them} except to chide the sender to report bugs properly. To enable us to fix the bug, you should include all these things: @itemize @bullet @item The version of @value{GDBN}. @value{GDBN} announces it if you start with no arguments; you can also print it at any time using @code{show version}. Without this, we will not know whether there is any point in looking for the bug in the current version of @value{GDBN}. @item The type of machine you are using, and the operating system name and version number. @item What compiler (and its version) was used to compile @value{GDBN}---e.g. ``@value{GCC}--2.0''. @item What compiler (and its version) was used to compile the program you are debugging---e.g. ``@value{GCC}--2.0''. @item The command arguments you gave the compiler to compile your example and observe the bug. For example, did you use @samp{-O}? To guarantee you will not omit something important, list them all. A copy of the Makefile (or the output from make) is sufficient. If we were to try to guess the arguments, we would probably guess wrong and then we might not encounter the bug. @item A complete input script, and all necessary source files, that will reproduce the bug. @item A description of what behavior you observe that you believe is incorrect. For example, ``It gets a fatal signal.'' Of course, if the bug is that @value{GDBN} gets a fatal signal, then we will certainly notice it. But if the bug is incorrect output, we might not notice unless it is glaringly wrong. We are human, after all. You might as well not give us a chance to make a mistake. Even if the problem you experience is a fatal signal, you should still say so explicitly. Suppose something strange is going on, such as, your copy of @value{GDBN} is out of synch, or you have encountered a bug in the C library on your system. (This has happened!) Your copy might crash and ours would not. If you told us to expect a crash, then when ours fails to crash, we would know that the bug was not happening for us. If you had not told us to expect a crash, then we would not be able to draw any conclusion from our observations. @item If you wish to suggest changes to the @value{GDBN} source, send us context diffs. If you even discuss something in the @value{GDBN} source, refer to it by context, not by line number. The line numbers in our development sources will not match those in your sources. Your line numbers would convey no useful information to us. @end itemize Here are some things that are not necessary: @itemize @bullet @item A description of the envelope of the bug. Often people who encounter a bug spend a lot of time investigating which changes to the input file will make the bug go away and which changes will not affect it. This is often time consuming and not very useful, because the way we will find the bug is by running a single example under the debugger with breakpoints, not by pure deduction from a series of examples. We recommend that you save your time for something else. Of course, if you can find a simpler example to report @emph{instead} of the original one, that is a convenience for us. Errors in the output will be easier to spot, running under the debugger will take less time, and so on. However, simplification is not vital; if you do not want to do this, report the bug anyway and send us the entire test case you used. @item A patch for the bug. A patch for the bug does help us if it is a good one. But do not omit the necessary information, such as the test case, on the assumption that a patch is all we need. We might see problems with your patch and decide to fix the problem another way, or we might not understand it at all. Sometimes with a program as complicated as @value{GDBN} it is very hard to construct an example that will make the program follow a certain path through the code. If you do not send us the example, we will not be able to construct one, so we will not be able to verify that the bug is fixed. And if we cannot understand what bug you are trying to fix, or why your patch should be an improvement, we will not install it. A test case will help us to understand. @item A guess about what the bug is or what it depends on. Such guesses are usually wrong. Even we cannot guess right about such things without first using the debugger to find the facts. @end itemize @c The readline documentation is distributed with the readline code @c and consists of the two following files: @c rluser.texinfo @c inc-hist.texi @c Use -I with makeinfo to point to the appropriate directory, @c environment var TEXINPUTS with TeX. @include rluser.texinfo @include inc-hist.texi @ifset NOVEL @node Renamed Commands @appendix Renamed Commands The following commands were renamed in GDB 4, in order to make the command set as a whole more consistent and easier to use and remember: @kindex add-syms @kindex delete environment @kindex info copying @kindex info convenience @kindex info directories @kindex info editing @kindex info history @kindex info targets @kindex info values @kindex info version @kindex info warranty @kindex set addressprint @kindex set arrayprint @kindex set prettyprint @kindex set screen-height @kindex set screen-width @kindex set unionprint @kindex set vtblprint @kindex set demangle @kindex set asm-demangle @kindex set sevenbit-strings @kindex set array-max @kindex set caution @kindex set history write @kindex show addressprint @kindex show arrayprint @kindex show prettyprint @kindex show screen-height @kindex show screen-width @kindex show unionprint @kindex show vtblprint @kindex show demangle @kindex show asm-demangle @kindex show sevenbit-strings @kindex show array-max @kindex show caution @kindex show history write @kindex unset @c TEXI2ROFF-KILL @ifinfo @c END TEXI2ROFF-KILL @example OLD COMMAND NEW COMMAND @c TEXI2ROFF-KILL --------------- ------------------------------- @c END TEXI2ROFF-KILL add-syms add-symbol-file delete environment unset environment info convenience show convenience info copying show copying info directories show directories info editing show commands info history show values info targets help target info values show values info version show version info warranty show warranty set/show addressprint set/show print address set/show array-max set/show print elements set/show arrayprint set/show print array set/show asm-demangle set/show print asm-demangle set/show caution set/show confirm set/show demangle set/show print demangle set/show history write set/show history save set/show prettyprint set/show print pretty set/show screen-height set/show height set/show screen-width set/show width set/show sevenbit-strings set/show print sevenbit-strings set/show unionprint set/show print union set/show vtblprint set/show print vtbl unset [No longer an alias for delete] @end example @c TEXI2ROFF-KILL @end ifinfo @tex \vskip \parskip\vskip \baselineskip \halign{\tt #\hfil &\qquad#&\tt #\hfil\cr {\bf Old Command} &&{\bf New Command}\cr add-syms &&add-symbol-file\cr delete environment &&unset environment\cr info convenience &&show convenience\cr info copying &&show copying\cr info directories &&show directories \cr info editing &&show commands\cr info history &&show values\cr info targets &&help target\cr info values &&show values\cr info version &&show version\cr info warranty &&show warranty\cr set{\rm / }show addressprint &&set{\rm / }show print address\cr set{\rm / }show array-max &&set{\rm / }show print elements\cr set{\rm / }show arrayprint &&set{\rm / }show print array\cr set{\rm / }show asm-demangle &&set{\rm / }show print asm-demangle\cr set{\rm / }show caution &&set{\rm / }show confirm\cr set{\rm / }show demangle &&set{\rm / }show print demangle\cr set{\rm / }show history write &&set{\rm / }show history save\cr set{\rm / }show prettyprint &&set{\rm / }show print pretty\cr set{\rm / }show screen-height &&set{\rm / }show height\cr set{\rm / }show screen-width &&set{\rm / }show width\cr set{\rm / }show sevenbit-strings &&set{\rm / }show print sevenbit-strings\cr set{\rm / }show unionprint &&set{\rm / }show print union\cr set{\rm / }show vtblprint &&set{\rm / }show print vtbl\cr \cr unset &&\rm(No longer an alias for delete)\cr } @end tex @c END TEXI2ROFF-KILL @end ifset @ifclear PRECONFIGURED @node Formatting Documentation @appendix Formatting Documentation @cindex GDB reference card @cindex reference card The GDB 4 release includes an already-formatted reference card, ready for printing with PostScript or Ghostscript, in the @file{gdb} subdirectory of the main source directory@footnote{In @file{gdb-@value{GDBVN}/gdb/refcard.ps} of the version @value{GDBVN} release.}. If you can use PostScript or Ghostscript with your printer, you can print the reference card immediately with @file{refcard.ps}. The release also includes the source for the reference card. You can format it, using @TeX{}, by typing: @example make refcard.dvi @end example The GDB reference card is designed to print in landscape mode on US ``letter'' size paper; that is, on a sheet 11 inches wide by 8.5 inches high. You will need to specify this form of printing as an option to your @sc{dvi} output program. @cindex documentation All the documentation for GDB comes as part of the machine-readable distribution. The documentation is written in Texinfo format, which is a documentation system that uses a single source file to produce both on-line information and a printed manual. You can use one of the Info formatting commands to create the on-line version of the documentation and @TeX{} (or @code{texi2roff}) to typeset the printed version. GDB includes an already formatted copy of the on-line Info version of this manual in the @file{gdb} subdirectory. The main Info file is @file{gdb-@var{version-number}/gdb/gdb.info}, and it refers to subordinate files matching @samp{gdb.info*} in the same directory. If necessary, you can print out these files, or read them with any editor; but they are easier to read using the @code{info} subsystem in GNU Emacs or the standalone @code{info} program, available as part of the GNU Texinfo distribution. If you want to format these Info files yourself, you need one of the Info formatting programs, such as @code{texinfo-format-buffer} or @code{makeinfo}. If you have @code{makeinfo} installed, and are in the top level GDB source directory (@file{gdb-@value{GDBVN}}, in the case of version @value{GDBVN}), you can make the Info file by typing: @example cd gdb make gdb.info @end example If you want to typeset and print copies of this manual, you need @TeX{}, a program to print its @sc{dvi} output files, and @file{texinfo.tex}, the Texinfo definitions file. @TeX{} is a typesetting program; it does not print files directly, but produces output files called @sc{dvi} files. To print a typeset document, you need a program to print @sc{dvi} files. If your system has @TeX{} installed, chances are it has such a program. The precise command to use depends on your system; @kbd{lpr -d} is common; another (for PostScript devices) is @kbd{dvips}. The @sc{dvi} print command may require a file name without any extension or a @samp{.dvi} extension. @TeX{} also requires a macro definitions file called @file{texinfo.tex}. This file tells @TeX{} how to typeset a document written in Texinfo format. On its own, @TeX{} cannot read, much less typeset a Texinfo file. @file{texinfo.tex} is distributed with GDB and is located in the @file{gdb-@var{version-number}/texinfo} directory. If you have @TeX{} and a @sc{dvi} printer program installed, you can typeset and print this manual. First switch to the the @file{gdb} subdirectory of the main source directory (for example, to @file{gdb-@value{GDBVN}/gdb}) and then type: @example make gdb.dvi @end example @node Installing GDB @appendix Installing GDB @cindex configuring GDB @cindex installation GDB comes with a @code{configure} script that automates the process of preparing GDB for installation; you can then use @code{make} to build the @code{gdb} program. @iftex @c irrelevant in info file; it's as current as the code it lives with. @footnote{If you have a more recent version of GDB than @value{GDBVN}, look at the @file{README} file in the sources; we may have improved the installation procedures since publishing this manual.} @end iftex The GDB distribution includes all the source code you need for GDB in a single directory, whose name is usually composed by appending the version number to @samp{gdb}. For example, the GDB version @value{GDBVN} distribution is in the @file{gdb-@value{GDBVN}} directory. That directory contains: @table @code @item gdb-@value{GDBVN}/configure @r{(and supporting files)} script for configuring GDB and all its supporting libraries. @item gdb-@value{GDBVN}/gdb the source specific to GDB itself @item gdb-@value{GDBVN}/bfd source for the Binary File Descriptor library @item gdb-@value{GDBVN}/include GNU include files @item gdb-@value{GDBVN}/libiberty source for the @samp{-liberty} free software library @item gdb-@value{GDBVN}/opcodes source for the library of opcode tables and disassemblers @item gdb-@value{GDBVN}/readline source for the GNU command-line interface @item gdb-@value{GDBVN}/glob source for the GNU filename pattern-matching subroutine @item gdb-@value{GDBVN}/mmalloc source for the GNU memory-mapped malloc package @end table The simplest way to configure and build GDB is to run @code{configure} from the @file{gdb-@var{version-number}} source directory, which in this example is the @file{gdb-@value{GDBVN}} directory. First switch to the @file{gdb-@var{version-number}} source directory if you are not already in it; then run @code{configure}. Pass the identifier for the platform on which GDB will run as an argument. For example: @example cd gdb-@value{GDBVN} ./configure @var{host} make @end example @noindent where @var{host} is an identifier such as @samp{sun4} or @samp{decstation}, that identifies the platform where GDB will run. (You can often leave off @var{host}; @code{configure} tries to guess the correct value by examining your system.) Running @samp{configure @var{host}} and then running @code{make} builds the @file{bfd}, @file{readline}, @file{mmalloc}, and @file{libiberty} libraries, then @code{gdb} itself. The configured source files, and the binaries, are left in the corresponding source directories. @code{configure} is a Bourne-shell (@code{/bin/sh}) script; if your system does not recognize this automatically when you run a different shell, you may need to run @code{sh} on it explicitly: @example sh configure @var{host} @end example If you run @code{configure} from a directory that contains source directories for multiple libraries or programs, such as the @file{gdb-@value{GDBVN}} source directory for version @value{GDBVN}, @code{configure} creates configuration files for every directory level underneath (unless you tell it not to, with the @samp{--norecursion} option). You can run the @code{configure} script from any of the subordinate directories in the GDB distribution if you only want to configure that subdirectory, but be sure to specify a path to it. For example, with version @value{GDBVN}, type the following to configure only the @code{bfd} subdirectory: @example @group cd gdb-@value{GDBVN}/bfd ../configure @var{host} @end group @end example You can install @code{@value{GDBP}} anywhere; it has no hardwired paths. However, you should make sure that the shell on your path (named by the @samp{SHELL} environment variable) is publicly readable. Remember that GDB uses the shell to start your program---some systems refuse to let GDB debug child processes whose programs are not readable. @menu * Separate Objdir:: Compiling GDB in another directory * Config Names:: Specifying names for hosts and targets * configure Options:: Summary of options for configure @end menu @node Separate Objdir @section Compiling GDB in another directory If you want to run GDB versions for several host or target machines, you need a different @code{gdb} compiled for each combination of host and target. @code{configure} is designed to make this easy by allowing you to generate each configuration in a separate subdirectory, rather than in the source directory. If your @code{make} program handles the @samp{VPATH} feature (GNU @code{make} does), running @code{make} in each of these directories builds the @code{gdb} program specified there. To build @code{gdb} in a separate directory, run @code{configure} with the @samp{--srcdir} option to specify where to find the source. (You also need to specify a path to find @code{configure} itself from your working directory. If the path to @code{configure} would be the same as the argument to @samp{--srcdir}, you can leave out the @samp{--srcdir} option; it is assumed.) For example, with version @value{GDBVN}, you can build GDB in a separate directory for a Sun 4 like this: @example @group cd gdb-@value{GDBVN} mkdir ../gdb-sun4 cd ../gdb-sun4 ../gdb-@value{GDBVN}/configure sun4 make @end group @end example When @code{configure} builds a configuration using a remote source directory, it creates a tree for the binaries with the same structure (and using the same names) as the tree under the source directory. In the example, you'd find the Sun 4 library @file{libiberty.a} in the directory @file{gdb-sun4/libiberty}, and GDB itself in @file{gdb-sun4/gdb}. One popular reason to build several GDB configurations in separate directories is to configure GDB for cross-compiling (where GDB runs on one machine---the host---while debugging programs that run on another machine---the target). You specify a cross-debugging target by giving the @samp{--target=@var{target}} option to @code{configure}. When you run @code{make} to build a program or library, you must run it in a configured directory---whatever directory you were in when you called @code{configure} (or one of its subdirectories). The @code{Makefile} that @code{configure} generates in each source directory also runs recursively. If you type @code{make} in a source directory such as @file{gdb-@value{GDBVN}} (or in a separate configured directory configured with @samp{--srcdir=@var{dirname}/gdb-@value{GDBVN}}), you will build all the required libraries, and then build GDB. When you have multiple hosts or targets configured in separate directories, you can run @code{make} on them in parallel (for example, if they are NFS-mounted on each of the hosts); they will not interfere with each other. @node Config Names @section Specifying names for hosts and targets The specifications used for hosts and targets in the @code{configure} script are based on a three-part naming scheme, but some short predefined aliases are also supported. The full naming scheme encodes three pieces of information in the following pattern: @example @var{architecture}-@var{vendor}-@var{os} @end example For example, you can use the alias @code{sun4} as a @var{host} argument, or as the value for @var{target} in a @code{--target=@var{target}} option. The equivalent full name is @samp{sparc-sun-sunos4}. The @code{configure} script accompanying GDB does not provide any query facility to list all supported host and target names or aliases. @code{configure} calls the Bourne shell script @code{config.sub} to map abbreviations to full names; you can read the script, if you wish, or you can use it to test your guesses on abbreviations---for example: @smallexample % sh config.sub sun4 sparc-sun-sunos4.1.1 % sh config.sub sun3 m68k-sun-sunos4.1.1 % sh config.sub decstation mips-dec-ultrix4.2 % sh config.sub hp300bsd m68k-hp-bsd % sh config.sub i386v i386-unknown-sysv % sh config.sub i786v Invalid configuration `i786v': machine `i786v' not recognized @end smallexample @noindent @code{config.sub} is also distributed in the GDB source directory (@file{gdb-@value{GDBVN}}, for version @value{GDBVN}). @node configure Options @section @code{configure} options Here is a summary of the @code{configure} options and arguments that are most often useful for building @value{GDBN}. @code{configure} also has several other options not listed here. @inforef{What Configure Does,,configure.info}, for a full explanation of @code{configure}. @c FIXME: Would this be more, or less, useful as an xref (ref to printed @c manual in the printed manual, ref to info file only from the info file)? @example configure @r{[}--help@r{]} @r{[}--prefix=@var{dir}@r{]} @r{[}--srcdir=@var{dirname}@r{]} @r{[}--norecursion@r{]} @r{[}--rm@r{]} @r{[}--target=@var{target}@r{]} @var{host} @end example @noindent You may introduce options with a single @samp{-} rather than @samp{--} if you prefer; but you may abbreviate option names if you use @samp{--}. @table @code @item --help Display a quick summary of how to invoke @code{configure}. @item -prefix=@var{dir} Configure the source to install programs and files under directory @file{@var{dir}}. @c avoid splitting the warning from the explanation: @need 2000 @item --srcdir=@var{dirname} @strong{Warning: using this option requires GNU @code{make}, or another @code{make} that implements the @code{VPATH} feature.}@* Use this option to make configurations in directories separate from the GDB source directories. Among other things, you can use this to build (or maintain) several configurations simultaneously, in separate directories. @code{configure} writes configuration specific files in the current directory, but arranges for them to use the source in the directory @var{dirname}. @code{configure} creates directories under the working directory in parallel to the source directories below @var{dirname}. @item --norecursion Configure only the directory level where @code{configure} is executed; do not propagate configuration to subdirectories. @item --rm @emph{Remove} files otherwise built during configuration. @c This does not work (yet if ever). FIXME. @c @item --parse=@var{lang} @dots{} @c Configure the GDB expression parser to parse the listed languages. @c @samp{all} configures GDB for all supported languages. To get a @c list of all supported languages, omit the argument. Without this @c option, GDB is configured to parse all supported languages. @item --target=@var{target} Configure GDB for cross-debugging programs running on the specified @var{target}. Without this option, GDB is configured to debug programs that run on the same machine (@var{host}) as GDB itself. There is no convenient way to generate a list of all available targets. @item @var{host} @dots{} Configure GDB to run on the specified @var{host}. There is no convenient way to generate a list of all available hosts. @end table @noindent @code{configure} accepts other options, for compatibility with configuring other GNU tools recursively; but these are the only options that affect GDB or its supporting libraries. @end ifclear @node Index @unnumbered Index @printindex cp @tex % I think something like @colophon should be in texinfo. In the % meantime: \long\def\colophon{\hbox to0pt{}\vfill \centerline{The body of this manual is set in} \centerline{\fontname\tenrm,} \centerline{with headings in {\bf\fontname\tenbf}} \centerline{and examples in {\tt\fontname\tentt}.} \centerline{{\it\fontname\tenit\/},} \centerline{{\bf\fontname\tenbf}, and} \centerline{{\sl\fontname\tensl\/}} \centerline{are used for emphasis.}\vfill} \page\colophon % Blame: pesch@cygnus.com, 1991. @end tex @contents @bye gdb-4.13/gdb/doc/gdbint.texinfo 666 34562 1752 257753 5612317736 15000 0ustar fnfcygnus\input texinfo @setfilename gdbint.info @c $Id: gdbint.texinfo,v 1.76 1994/07/17 21:17:18 shebs Exp $ @ifinfo @format START-INFO-DIR-ENTRY * Gdb-Internals: (gdbint). The GNU debugger's internals. END-INFO-DIR-ENTRY @end format @end ifinfo @ifinfo This file documents the internals of the GNU debugger GDB. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by John Gilmore. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through Tex and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy or distribute modified versions of this manual under the terms of the GPL (for which purpose this text may be regarded as a program in the language TeX). @end ifinfo @setchapternewpage off @settitle GDB Internals @titlepage @title{Working in GDB} @subtitle{A guide to the internals of the GNU debugger} @author John Gilmore @author Cygnus Support @page @tex \def\$#1${{#1}} % Kluge: collect RCS revision info without $...$ \xdef\manvers{\$Revision: 1.76 $} % For use in headers, footers too {\parskip=0pt \hfill Cygnus Support\par \hfill \manvers\par \hfill \TeX{}info \texinfoversion\par } @end tex @vskip 0pt plus 1filll Copyright @copyright{} 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @end titlepage @node Top @c Perhaps this should be the title of the document (but only for info, @c not for TeX). Existing GNU manuals seem inconsistent on this point. @top Scope of this Document This document documents the internals of the GNU debugger, GDB. It is intended to document aspects of GDB which apply across many different parts of GDB (for example, @pxref{Coding Style}), or which are global aspects of design (for example, what are the major modules and which files document them in detail?). Information which pertains to specific data structures, functions, variables, etc., should be put in comments in the source code, not here. It is more likely to get noticed and kept up to date there. Some of the information in this document should probably be moved into comments. @menu * README:: The README File * Getting Started:: Getting started working on GDB * Debugging GDB:: Debugging GDB with itself * New Architectures:: Defining a New Host or Target Architecture * Config:: Adding a New Configuration * Host:: Adding a New Host * Native:: Adding a New Native Configuration * Target:: Adding a New Target * Languages:: Defining New Source Languages * Releases:: Configuring GDB for Release * Partial Symbol Tables:: How GDB reads symbols quickly at startup * Types:: How GDB keeps track of types * BFD support for GDB:: How BFD and GDB interface * Symbol Reading:: Defining New Symbol Readers * Cleanups:: Cleanups * Wrapping:: Wrapping Output Lines * Frames:: Keeping track of function calls * Remote Stubs:: Code that runs in targets and talks to GDB * Longjmp Support:: Stepping through longjmp's in the target * Coding Style:: Strunk and White for GDB maintainers * Clean Design:: Frank Lloyd Wright for GDB maintainers * Submitting Patches:: How to get your changes into GDB releases * Host Conditionals:: What features exist in the host * Target Conditionals:: What features exist in the target * Native Conditionals:: Conditionals for when host and target are same * Obsolete Conditionals:: Conditionals that don't exist any more * XCOFF:: The Object file format used on IBM's RS/6000 @end menu @node README @chapter The @file{README} File Check the @file{README} file, it often has useful information that does not appear anywhere else in the directory. @node Getting Started @chapter Getting Started Working on GDB GDB is a large and complicated program, and if you first starting to work on it, it can be hard to know where to start. Fortunately, if you know how to go about it, there are ways to figure out what is going on: @itemize @bullet @item This manual, the GDB Internals manual, has information which applies generally to many parts of GDB. @item Information about particular functions or data structures are located in comments with those functions or data structures. If you run across a function or a global variable which does not have a comment correctly explaining what is does, this can be thought of as a bug in GDB; feel free to submit a bug report, with a suggested comment if you can figure out what the comment should say (@pxref{Submitting Patches}). If you find a comment which is actually wrong, be especially sure to report that. Comments explaining the function of macros defined in host, target, or native dependent files can be in several places. Sometimes they are repeated every place the macro is defined. Sometimes they are where the macro is used. Sometimes there is a header file which supplies a default definition of the macro, and the comment is there. This manual also has a list of macros (@pxref{Host Conditionals}, @pxref{Target Conditionals}, @pxref{Native Conditionals}, and @pxref{Obsolete Conditionals}) with some documentation. @item Start with the header files. Once you some idea of how GDB's internal symbol tables are stored (see @file{symtab.h}, @file{gdbtypes.h}), you will find it much easier to understand the code which uses and creates those symbol tables. @item You may wish to process the information you are getting somehow, to enhance your understanding of it. Summarize it, translate it to another language, add some (perhaps trivial or non-useful) feature to GDB, use the code to predict what a test case would do and write the test case and verify your prediction, etc. If you are reading code and your eyes are starting to glaze over, this is a sign you need to use a more active approach. @item Once you have a part of GDB to start with, you can find more specifically the part you are looking for by stepping through each function with the @code{next} command. Do not use @code{step} or you will quickly get distracted; when the function you are stepping through calls another function try only to get a big-picture understanding (perhaps using the comment at the beginning of the function being called) of what it does. This way you can identify which of the functions being called by the function you are stepping through is the one which you are interested in. You may need to examine the data structures generated at each stage, with reference to the comments in the header files explaining what the data structures are supposed to look like. Of course, this same technique can be used if you are just reading the code, rather than actually stepping through it. The same general principle applies---when the code you are looking at calls something else, just try to understand generally what the code being called does, rather than worrying about all its details. @item A good place to start when tracking down some particular area is with a command which invokes that feature. Suppose you want to know how single-stepping works. As a GDB user, you know that the @code{step} command invokes single-stepping. The command is invoked via command tables (see @file{command.h}); by convention the function which actually performs the command is formed by taking the name of the command and adding @samp{_command}, or in the case of an @code{info} subcommand, @samp{_info}. For example, the @code{step} command invokes the @code{step_command} function and the @code{info display} command invokes @code{display_info}. When this convention is not followed, you might have to use @code{grep} or @kbd{M-x tags-search} in emacs, or run GDB on itself and set a breakpoint in @code{execute_command}. @item If all of the above fail, it may be appropriate to ask for information on @code{bug-gdb}. But @emph{never} post a generic question like ``I was wondering if anyone could give me some tips about understanding GDB''---if we had some magic secret we would put it in this manual. Suggestions for improving the manual are always welcome, of course. @end itemize Good luck! @node Debugging GDB @chapter Debugging GDB with itself If GDB is limping on your machine, this is the preferred way to get it fully functional. Be warned that in some ancient Unix systems, like Ultrix 4.2, a program can't be running in one process while it is being debugged in another. Rather than typing the command @code{@w{./gdb ./gdb}}, which works on Suns and such, you can copy @file{gdb} to @file{gdb2} and then type @code{@w{./gdb ./gdb2}}. When you run GDB in the GDB source directory, it will read a @file{.gdbinit} file that sets up some simple things to make debugging gdb easier. The @code{info} command, when executed without a subcommand in a GDB being debugged by gdb, will pop you back up to the top level gdb. See @file{.gdbinit} for details. If you use emacs, you will probably want to do a @code{make TAGS} after you configure your distribution; this will put the machine dependent routines for your local machine where they will be accessed first by @kbd{M-.} Also, make sure that you've either compiled GDB with your local cc, or have run @code{fixincludes} if you are compiling with gcc. @node New Architectures @chapter Defining a New Host or Target Architecture When building support for a new host and/or target, much of the work you need to do is handled by specifying configuration files; @pxref{Config,,Adding a New Configuration}. Further work can be divided into ``host-dependent'' (@pxref{Host,,Adding a New Host}) and ``target-dependent'' (@pxref{Target,,Adding a New Target}). The following discussion is meant to explain the difference between hosts and targets. @heading What is considered ``host-dependent'' versus ``target-dependent''? @dfn{Host} refers to attributes of the system where GDB runs. @dfn{Target} refers to the system where the program being debugged executes. In most cases they are the same machine, in which case a third type of @dfn{Native} attributes come into play. Defines and include files needed to build on the host are host support. Examples are tty support, system defined types, host byte order, host float format. Defines and information needed to handle the target format are target dependent. Examples are the stack frame format, instruction set, breakpoint instruction, registers, and how to set up and tear down the stack to call a function. Information that is only needed when the host and target are the same, is native dependent. One example is Unix child process support; if the host and target are not the same, doing a fork to start the target process is a bad idea. The various macros needed for finding the registers in the @code{upage}, running @code{ptrace}, and such are all in the native-dependent files. Another example of native-dependent code is support for features that are really part of the target environment, but which require @code{#include} files that are only available on the host system. Core file handling and @code{setjmp} handling are two common cases. When you want to make GDB work ``native'' on a particular machine, you have to include all three kinds of information. The dependent information in GDB is organized into files by naming conventions. Host-Dependent Files @table @file @item config/*/*.mh Sets Makefile parameters @item config/*/xm-*.h Global #include's and #define's and definitions @item *-xdep.c Global variables and functions @end table Native-Dependent Files @table @file @item config/*/*.mh Sets Makefile parameters (for @emph{both} host and native) @item config/*/nm-*.h #include's and #define's and definitions. This file is only included by the small number of modules that need it, so beware of doing feature-test #define's from its macros. @item *-nat.c global variables and functions @end table Target-Dependent Files @table @file @item config/*/*.mt Sets Makefile parameters @item config/*/tm-*.h Global #include's and #define's and definitions @item *-tdep.c Global variables and functions @end table At this writing, most supported hosts have had their host and native dependencies sorted out properly. There are a few stragglers, which can be recognized by the absence of NATDEPFILES lines in their @file{config/*/*.mh}. @node Config @chapter Adding a New Configuration Most of the work in making GDB compile on a new machine is in specifying the configuration of the machine. This is done in a dizzying variety of header files and configuration scripts, which we hope to make more sensible soon. Let's say your new host is called an @var{xxx} (e.g. @samp{sun4}), and its full three-part configuration name is @code{@var{xarch}-@var{xvend}-@var{xos}} (e.g. @samp{sparc-sun-sunos4}). In particular: In the top level directory, edit @file{config.sub} and add @var{xarch}, @var{xvend}, and @var{xos} to the lists of supported architectures, vendors, and operating systems near the bottom of the file. Also, add @var{xxx} as an alias that maps to @code{@var{xarch}-@var{xvend}-@var{xos}}. You can test your changes by running @example ./config.sub @var{xxx} @end example @noindent and @example ./config.sub @code{@var{xarch}-@var{xvend}-@var{xos}} @end example @noindent which should both respond with @code{@var{xarch}-@var{xvend}-@var{xos}} and no error messages. Now, go to the @file{bfd} directory and create a new file @file{bfd/hosts/h-@var{xxx}.h}. Examine the other @file{h-*.h} files as templates, and create one that brings in the right include files for your system, and defines any host-specific macros needed by BFD, the Binutils, GNU LD, or the Opcodes directories. (They all share the bfd @file{hosts} directory and the @file{configure.host} file.) Then edit @file{bfd/configure.host}. Add a line to recognize your @code{@var{xarch}-@var{xvend}-@var{xos}} configuration, and set @code{my_host} to @var{xxx} when you recognize it. This will cause your file @file{h-@var{xxx}.h} to be linked to @file{sysdep.h} at configuration time. When creating the line that recognizes your configuration, only match the fields that you really need to match; e.g. don't match the architecture or manufacturer if the OS is sufficient to distinguish the configuration that your @file{h-@var{xxx}.h} file supports. Don't match the manufacturer name unless you really need to. This should make future ports easier. Also, if this host requires any changes to the Makefile, create a file @file{bfd/config/@var{xxx}.mh}, which includes the required lines. It's possible that the @file{libiberty} and @file{readline} directories won't need any changes for your configuration, but if they do, you can change the @file{configure.in} file there to recognize your system and map to an @file{mh-@var{xxx}} file. Then add @file{mh-@var{xxx}} to the @file{config/} subdirectory, to set any makefile variables you need. The only current options in there are things like @samp{-DSYSV}. (This @file{mh-@var{xxx}} naming convention differs from elsewhere in GDB, by historical accident. It should be cleaned up so that all such files are called @file{@var{xxx}.mh}.) Aha! Now to configure GDB itself! Edit @file{gdb/configure.in} to recognize your system and set @code{gdb_host} to @var{xxx}, and (unless your desired target is already available) also set @code{gdb_target} to something appropriate (for instance, @var{xxx}). To handle new hosts, modify the segment after the comment @samp{# per-host}; to handle new targets, modify after @samp{# per-target}. @c Would it be simpler to just use different per-host and per-target @c *scripts*, and call them from {configure} ? Finally, you'll need to specify and define GDB's host-, native-, and target-dependent @file{.h} and @file{.c} files used for your configuration; the next two chapters discuss those. @node Host @chapter Adding a New Host Once you have specified a new configuration for your host (@pxref{Config,,Adding a New Configuration}), there are three remaining pieces to making GDB work on a new machine. First, you have to make it host on the new machine (compile there, handle that machine's terminals properly, etc). If you will be cross-debugging to some other kind of system that's already supported, you are done. If you want to use GDB to debug programs that run on the new machine, you have to get it to understand the machine's object files, symbol files, and interfaces to processes; @pxref{Target,,Adding a New Target} and @pxref{Native,,Adding a New Native Configuration} Several files control GDB's configuration for host systems: @table @file @item gdb/config/@var{arch}/@var{xxx}.mh Specifies Makefile fragments needed when hosting on machine @var{xxx}. In particular, this lists the required machine-dependent object files, by defining @samp{XDEPFILES=@dots{}}. Also specifies the header file which describes host @var{xxx}, by defining @code{XM_FILE= xm-@var{xxx}.h}. You can also define @code{CC}, @code{REGEX} and @code{REGEX1}, @code{SYSV_DEFINE}, @code{XM_CFLAGS}, @code{XM_ADD_FILES}, @code{XM_CLIBS}, @code{XM_CDEPS}, etc.; see @file{Makefile.in}. @item gdb/config/@var{arch}/xm-@var{xxx}.h (@file{xm.h} is a link to this file, created by configure). Contains C macro definitions describing the host system environment, such as byte order, host C compiler and library, ptrace support, and core file structure. Crib from existing @file{xm-*.h} files to create a new one. @item gdb/@var{xxx}-xdep.c Contains any miscellaneous C code required for this machine as a host. On many machines it doesn't exist at all. If it does exist, put @file{@var{xxx}-xdep.o} into the @code{XDEPFILES} line in @file{gdb/config/mh-@var{xxx}}. @end table @subheading Generic Host Support Files There are some ``generic'' versions of routines that can be used by various systems. These can be customized in various ways by macros defined in your @file{xm-@var{xxx}.h} file. If these routines work for the @var{xxx} host, you can just include the generic file's name (with @samp{.o}, not @samp{.c}) in @code{XDEPFILES}. Otherwise, if your machine needs custom support routines, you will need to write routines that perform the same functions as the generic file. Put them into @code{@var{xxx}-xdep.c}, and put @code{@var{xxx}-xdep.o} into @code{XDEPFILES}. @table @file @item ser-bsd.c This contains serial line support for Berkeley-derived Unix systems. @item ser-go32.c This contains serial line support for 32-bit programs running under DOS using the GO32 execution environment. @item ser-termios.c This contains serial line support for System V-derived Unix systems. @end table Now, you are now ready to try configuring GDB to compile using your system as its host. From the top level (above @file{bfd}, @file{gdb}, etc), do: @example ./configure @var{xxx} --target=vxworks960 @end example This will configure your system to cross-compile for VxWorks on the Intel 960, which is probably not what you really want, but it's a test case that works at this stage. (You haven't set up to be able to debug programs that run @emph{on} @var{xxx} yet.) If this succeeds, you can try building it all with: @example make @end example Repeat until the program configures, compiles, links, and runs. When run, it won't be able to do much (unless you have a VxWorks/960 board on your network) but you will know that the host support is pretty well done. Good luck! Comments and suggestions about this section are particularly welcome; send them to @samp{bug-gdb@@prep.ai.mit.edu}. @node Native @chapter Adding a New Native Configuration If you are making GDB run native on the @var{xxx} machine, you have plenty more work to do. Several files control GDB's configuration for native support: @table @file @item gdb/config/@var{xarch}/@var{xxx}.mh Specifies Makefile fragments needed when hosting @emph{or native} on machine @var{xxx}. In particular, this lists the required native-dependent object files, by defining @samp{NATDEPFILES=@dots{}}. Also specifies the header file which describes native support on @var{xxx}, by defining @samp{NAT_FILE= nm-@var{xxx}.h}. You can also define @samp{NAT_CFLAGS}, @samp{NAT_ADD_FILES}, @samp{NAT_CLIBS}, @samp{NAT_CDEPS}, etc.; see @file{Makefile.in}. @item gdb/config/@var{arch}/nm-@var{xxx}.h (@file{nm.h} is a link to this file, created by configure). Contains C macro definitions describing the native system environment, such as child process control and core file support. Crib from existing @file{nm-*.h} files to create a new one. @item gdb/@var{xxx}-nat.c Contains any miscellaneous C code required for this native support of this machine. On some machines it doesn't exist at all. @end table @subheading Generic Native Support Files There are some ``generic'' versions of routines that can be used by various systems. These can be customized in various ways by macros defined in your @file{nm-@var{xxx}.h} file. If these routines work for the @var{xxx} host, you can just include the generic file's name (with @samp{.o}, not @samp{.c}) in @code{NATDEPFILES}. Otherwise, if your machine needs custom support routines, you will need to write routines that perform the same functions as the generic file. Put them into @code{@var{xxx}-nat.c}, and put @code{@var{xxx}-nat.o} into @code{NATDEPFILES}. @table @file @item inftarg.c This contains the @emph{target_ops vector} that supports Unix child processes on systems which use ptrace and wait to control the child. @item procfs.c This contains the @emph{target_ops vector} that supports Unix child processes on systems which use /proc to control the child. @item fork-child.c This does the low-level grunge that uses Unix system calls to do a "fork and exec" to start up a child process. @item infptrace.c This is the low level interface to inferior processes for systems using the Unix @code{ptrace} call in a vanilla way. @item coredep.c::fetch_core_registers() Support for reading registers out of a core file. This routine calls @code{register_addr()}, see below. Now that BFD is used to read core files, virtually all machines should use @code{coredep.c}, and should just provide @code{fetch_core_registers} in @code{@var{xxx}-nat.c} (or @code{REGISTER_U_ADDR} in @code{nm-@var{xxx}.h}). @item coredep.c::register_addr() If your @code{nm-@var{xxx}.h} file defines the macro @code{REGISTER_U_ADDR(addr, blockend, regno)}, it should be defined to set @code{addr} to the offset within the @samp{user} struct of GDB register number @code{regno}. @code{blockend} is the offset within the ``upage'' of @code{u.u_ar0}. If @code{REGISTER_U_ADDR} is defined, @file{coredep.c} will define the @code{register_addr()} function and use the macro in it. If you do not define @code{REGISTER_U_ADDR}, but you are using the standard @code{fetch_core_registers()}, you will need to define your own version of @code{register_addr()}, put it into your @code{@var{xxx}-nat.c} file, and be sure @code{@var{xxx}-nat.o} is in the @code{NATDEPFILES} list. If you have your own @code{fetch_core_registers()}, you may not need a separate @code{register_addr()}. Many custom @code{fetch_core_registers()} implementations simply locate the registers themselves.@refill @end table When making GDB run native on a new operating system, to make it possible to debug core files, you will need to either write specific code for parsing your OS's core files, or customize @file{bfd/trad-core.c}. First, use whatever @code{#include} files your machine uses to define the struct of registers that is accessible (possibly in the u-area) in a core file (rather than @file{machine/reg.h}), and an include file that defines whatever header exists on a core file (e.g. the u-area or a @samp{struct core}). Then modify @code{trad_unix_core_file_p()} to use these values to set up the section information for the data segment, stack segment, any other segments in the core file (perhaps shared library contents or control information), ``registers'' segment, and if there are two discontiguous sets of registers (e.g. integer and float), the ``reg2'' segment. This section information basically delimits areas in the core file in a standard way, which the section-reading routines in BFD know how to seek around in. Then back in GDB, you need a matching routine called @code{fetch_core_registers()}. If you can use the generic one, it's in @file{coredep.c}; if not, it's in your @file{@var{xxx}-nat.c} file. It will be passed a char pointer to the entire ``registers'' segment, its length, and a zero; or a char pointer to the entire ``regs2'' segment, its length, and a 2. The routine should suck out the supplied register values and install them into GDB's ``registers'' array. (@xref{New Architectures,,Defining a New Host or Target Architecture}, for more info about this.) If your system uses @file{/proc} to control processes, and uses ELF format core files, then you may be able to use the same routines for reading the registers out of processes and out of core files. @node Target @chapter Adding a New Target For a new target called @var{ttt}, first specify the configuration as described in @ref{Config,,Adding a New Configuration}. If your new target is the same as your new host, you've probably already done that. A variety of files specify attributes of the GDB target environment: @table @file @item gdb/config/@var{arch}/@var{ttt}.mt Contains a Makefile fragment specific to this target. Specifies what object files are needed for target @var{ttt}, by defining @samp{TDEPFILES=@dots{}}. Also specifies the header file which describes @var{ttt}, by defining @samp{TM_FILE= tm-@var{ttt}.h}. You can also define @samp{TM_CFLAGS}, @samp{TM_CLIBS}, @samp{TM_CDEPS}, and other Makefile variables here; see @file{Makefile.in}. @item gdb/config/@var{arch}/tm-@var{ttt}.h (@file{tm.h} is a link to this file, created by configure). Contains macro definitions about the target machine's registers, stack frame format and instructions. Crib from existing @file{tm-*.h} files when building a new one. @item gdb/@var{ttt}-tdep.c Contains any miscellaneous code required for this target machine. On some machines it doesn't exist at all. Sometimes the macros in @file{tm-@var{ttt}.h} become very complicated, so they are implemented as functions here instead, and the macro is simply defined to call the function. @item gdb/exec.c Defines functions for accessing files that are executable on the target system. These functions open and examine an exec file, extract data from one, write data to one, print information about one, etc. Now that executable files are handled with BFD, every target should be able to use the generic exec.c rather than its own custom code. @item gdb/@var{arch}-pinsn.c Prints (disassembles) the target machine's instructions. This file is usually shared with other target machines which use the same processor, which is why it is @file{@var{arch}-pinsn.c} rather than @file{@var{ttt}-pinsn.c}. @item gdb/@var{arch}-opcode.h Contains some large initialized data structures describing the target machine's instructions. This is a bit strange for a @file{.h} file, but it's OK since it is only included in one place. @file{@var{arch}-opcode.h} is shared between the debugger and the assembler, if the GNU assembler has been ported to the target machine. @item gdb/config/@var{arch}/tm-@var{arch}.h This often exists to describe the basic layout of the target machine's processor chip (registers, stack, etc). If used, it is included by @file{tm-@var{xxx}.h}. It can be shared among many targets that use the same processor. @item gdb/@var{arch}-tdep.c Similarly, there are often common subroutines that are shared by all target machines that use this particular architecture. @end table When adding support for a new target machine, there are various areas of support that might need change, or might be OK. If you are using an existing object file format (a.out or COFF), there is probably little to be done. See @file{bfd/doc/bfd.texinfo} for more information on writing new a.out or COFF versions. If you need to add a new object file format, you must first add it to BFD. This is beyond the scope of this document right now. Basically you must build a transfer vector (of type @code{bfd_target}), which will mean writing all the required routines, and add it to the list in @file{bfd/targets.c}. You must then arrange for the BFD code to provide access to the debugging symbols. Generally GDB will have to call swapping routines from BFD and a few other BFD internal routines to locate the debugging information. As much as possible, GDB should not depend on the BFD internal data structures. For some targets (e.g., COFF), there is a special transfer vector used to call swapping routines, since the external data structures on various platforms have different sizes and layouts. Specialized routines that will only ever be implemented by one object file format may be called directly. This interface should be described in a file @file{bfd/libxxx.h}, which is included by GDB. If you are adding a new operating system for an existing CPU chip, add a @file{tm-@var{xos}.h} file that describes the operating system facilities that are unusual (extra symbol table info; the breakpoint instruction needed; etc). Then write a @file{tm-@var{xarch}-@var{xos}.h} that just @code{#include}s @file{tm-@var{xarch}.h} and @file{tm-@var{xos}.h}. (Now that we have three-part configuration names, this will probably get revised to separate the @var{xos} configuration from the @var{xarch} configuration.) @node Languages @chapter Adding a Source Language to GDB To add other languages to GDB's expression parser, follow the following steps: @table @emph @item Create the expression parser. This should reside in a file @file{@var{lang}-exp.y}. Routines for building parsed expressions into a @samp{union exp_element} list are in @file{parse.c}. Since we can't depend upon everyone having Bison, and YACC produces parsers that define a bunch of global names, the following lines @emph{must} be included at the top of the YACC parser, to prevent the various parsers from defining the same global names: @example #define yyparse @var{lang}_parse #define yylex @var{lang}_lex #define yyerror @var{lang}_error #define yylval @var{lang}_lval #define yychar @var{lang}_char #define yydebug @var{lang}_debug #define yypact @var{lang}_pact #define yyr1 @var{lang}_r1 #define yyr2 @var{lang}_r2 #define yydef @var{lang}_def #define yychk @var{lang}_chk #define yypgo @var{lang}_pgo #define yyact @var{lang}_act #define yyexca @var{lang}_exca #define yyerrflag @var{lang}_errflag #define yynerrs @var{lang}_nerrs @end example At the bottom of your parser, define a @code{struct language_defn} and initialize it with the right values for your language. Define an @code{initialize_@var{lang}} routine and have it call @samp{add_language(@var{lang}_language_defn)} to tell the rest of GDB that your language exists. You'll need some other supporting variables and functions, which will be used via pointers from your @code{@var{lang}_language_defn}. See the declaration of @code{struct language_defn} in @file{language.h}, and the other @file{*-exp.y} files, for more information. @item Add any evaluation routines, if necessary If you need new opcodes (that represent the operations of the language), add them to the enumerated type in @file{expression.h}. Add support code for these operations in @code{eval.c:evaluate_subexp()}. Add cases for new opcodes in two functions from @file{parse.c}: @code{prefixify_subexp()} and @code{length_of_subexp()}. These compute the number of @code{exp_element}s that a given operation takes up. @item Update some existing code Add an enumerated identifier for your language to the enumerated type @code{enum language} in @file{defs.h}. Update the routines in @file{language.c} so your language is included. These routines include type predicates and such, which (in some cases) are language dependent. If your language does not appear in the switch statement, an error is reported. Also included in @file{language.c} is the code that updates the variable @code{current_language}, and the routines that translate the @code{language_@var{lang}} enumerated identifier into a printable string. Update the function @code{_initialize_language} to include your language. This function picks the default language upon startup, so is dependent upon which languages that GDB is built for. Update @code{allocate_symtab} in @file{symfile.c} and/or symbol-reading code so that the language of each symtab (source file) is set properly. This is used to determine the language to use at each stack frame level. Currently, the language is set based upon the extension of the source file. If the language can be better inferred from the symbol information, please set the language of the symtab in the symbol-reading code. Add helper code to @code{expprint.c:print_subexp()} to handle any new expression opcodes you have added to @file{expression.h}. Also, add the printed representations of your operators to @code{op_print_tab}. @item Add a place of call Add a call to @code{@var{lang}_parse()} and @code{@var{lang}_error} in @code{parse.c:parse_exp_1()}. @item Use macros to trim code The user has the option of building GDB for some or all of the languages. If the user decides to build GDB for the language @var{lang}, then every file dependent on @file{language.h} will have the macro @code{_LANG_@var{lang}} defined in it. Use @code{#ifdef}s to leave out large routines that the user won't need if he or she is not using your language. Note that you do not need to do this in your YACC parser, since if GDB is not build for @var{lang}, then @file{@var{lang}-exp.tab.o} (the compiled form of your parser) is not linked into GDB at all. See the file @file{configure.in} for how GDB is configured for different languages. @item Edit @file{Makefile.in} Add dependencies in @file{Makefile.in}. Make sure you update the macro variables such as @code{HFILES} and @code{OBJS}, otherwise your code may not get linked in, or, worse yet, it may not get @code{tar}red into the distribution! @end table @node Releases @chapter Configuring GDB for Release From the top level directory (containing @file{gdb}, @file{bfd}, @file{libiberty}, and so on): @example make -f Makefile.in gdb.tar.Z @end example This will properly configure, clean, rebuild any files that are distributed pre-built (e.g. @file{c-exp.tab.c} or @file{refcard.ps}), and will then make a tarfile. (If the top level directory has already beenn configured, you can just do @code{make gdb.tar.Z} instead.) This procedure requires: @itemize @bullet @item symbolic links @item @code{makeinfo} (texinfo2 level) @item @TeX{} @item @code{dvips} @item @code{yacc} or @code{bison} @end itemize @noindent @dots{} and the usual slew of utilities (@code{sed}, @code{tar}, etc.). @subheading TEMPORARY RELEASE PROCEDURE FOR DOCUMENTATION @file{gdb.texinfo} is currently marked up using the texinfo-2 macros, which are not yet a default for anything (but we have to start using them sometime). For making paper, the only thing this implies is the right generation of @file{texinfo.tex} needs to be included in the distribution. For making info files, however, rather than duplicating the texinfo2 distribution, generate @file{gdb-all.texinfo} locally, and include the files @file{gdb.info*} in the distribution. Note the plural; @code{makeinfo} will split the document into one overall file and five or so included files. @node Partial Symbol Tables @chapter Partial Symbol Tables GDB has three types of symbol tables. @itemize @bullet @item full symbol tables (symtabs). These contain the main information about symbols and addresses. @item partial symbol tables (psymtabs). These contain enough information to know when to read the corresponding part of the full symbol table. @item minimal symbol tables (msymtabs). These contain information gleaned from non-debugging symbols. @end itemize This section describes partial symbol tables. A psymtab is constructed by doing a very quick pass over an executable file's debugging information. Small amounts of information are extracted -- enough to identify which parts of the symbol table will need to be re-read and fully digested later, when the user needs the information. The speed of this pass causes GDB to start up very quickly. Later, as the detailed rereading occurs, it occurs in small pieces, at various times, and the delay therefrom is mostly invisible to the user. (@xref{Symbol Reading}.) The symbols that show up in a file's psymtab should be, roughly, those visible to the debugger's user when the program is not running code from that file. These include external symbols and types, static symbols and types, and enum values declared at file scope. The psymtab also contains the range of instruction addresses that the full symbol table would represent. The idea is that there are only two ways for the user (or much of the code in the debugger) to reference a symbol: @itemize @bullet @item by its address (e.g. execution stops at some address which is inside a function in this file). The address will be noticed to be in the range of this psymtab, and the full symtab will be read in. @code{find_pc_function}, @code{find_pc_line}, and other @code{find_pc_@dots{}} functions handle this. @item by its name (e.g. the user asks to print a variable, or set a breakpoint on a function). Global names and file-scope names will be found in the psymtab, which will cause the symtab to be pulled in. Local names will have to be qualified by a global name, or a file-scope name, in which case we will have already read in the symtab as we evaluated the qualifier. Or, a local symbol can be referenced when we are "in" a local scope, in which case the first case applies. @code{lookup_symbol} does most of the work here. @end itemize The only reason that psymtabs exist is to cause a symtab to be read in at the right moment. Any symbol that can be elided from a psymtab, while still causing that to happen, should not appear in it. Since psymtabs don't have the idea of scope, you can't put local symbols in them anyway. Psymtabs don't have the idea of the type of a symbol, either, so types need not appear, unless they will be referenced by name. It is a bug for GDB to behave one way when only a psymtab has been read, and another way if the corresponding symtab has been read in. Such bugs are typically caused by a psymtab that does not contain all the visible symbols, or which has the wrong instruction address ranges. The psymtab for a particular section of a symbol-file (objfile) could be thrown away after the symtab has been read in. The symtab should always be searched before the psymtab, so the psymtab will never be used (in a bug-free environment). Currently, psymtabs are allocated on an obstack, and all the psymbols themselves are allocated in a pair of large arrays on an obstack, so there is little to be gained by trying to free them unless you want to do a lot more work. @node Types @chapter Types Fundamental Types (e.g., FT_VOID, FT_BOOLEAN). These are the fundamental types that GDB uses internally. Fundamental types from the various debugging formats (stabs, ELF, etc) are mapped into one of these. They are basically a union of all fundamental types that gdb knows about for all the languages that GDB knows about. Type Codes (e.g., TYPE_CODE_PTR, TYPE_CODE_ARRAY). Each time GDB builds an internal type, it marks it with one of these types. The type may be a fundamental type, such as TYPE_CODE_INT, or a derived type, such as TYPE_CODE_PTR which is a pointer to another type. Typically, several FT_* types map to one TYPE_CODE_* type, and are distinguished by other members of the type struct, such as whether the type is signed or unsigned, and how many bits it uses. Builtin Types (e.g., builtin_type_void, builtin_type_char). These are instances of type structs that roughly correspond to fundamental types and are created as global types for GDB to use for various ugly historical reasons. We eventually want to eliminate these. Note for example that builtin_type_int initialized in gdbtypes.c is basically the same as a TYPE_CODE_INT type that is initialized in c-lang.c for an FT_INTEGER fundamental type. The difference is that the builtin_type is not associated with any particular objfile, and only one instance exists, while c-lang.c builds as many TYPE_CODE_INT types as needed, with each one associated with some particular objfile. @node BFD support for GDB @chapter Binary File Descriptor Library Support for GDB BFD provides support for GDB in several ways: @table @emph @item identifying executable and core files BFD will identify a variety of file types, including a.out, coff, and several variants thereof, as well as several kinds of core files. @item access to sections of files BFD parses the file headers to determine the names, virtual addresses, sizes, and file locations of all the various named sections in files (such as the text section or the data section). GDB simply calls BFD to read or write section X at byte offset Y for length Z. @item specialized core file support BFD provides routines to determine the failing command name stored in a core file, the signal with which the program failed, and whether a core file matches (i.e. could be a core dump of) a particular executable file. @item locating the symbol information GDB uses an internal interface of BFD to determine where to find the symbol information in an executable file or symbol-file. GDB itself handles the reading of symbols, since BFD does not ``understand'' debug symbols, but GDB uses BFD's cached information to find the symbols, string table, etc. @end table @c The interface for symbol reading is described in @ref{Symbol @c Reading,,Symbol Reading}. @node Symbol Reading @chapter Symbol Reading GDB reads symbols from "symbol files". The usual symbol file is the file containing the program which GDB is debugging. GDB can be directed to use a different file for symbols (with the ``symbol-file'' command), and it can also read more symbols via the ``add-file'' and ``load'' commands, or while reading symbols from shared libraries. Symbol files are initially opened by @file{symfile.c} using the BFD library. BFD identifies the type of the file by examining its header. @code{symfile_init} then uses this identification to locate a set of symbol-reading functions. Symbol reading modules identify themselves to GDB by calling @code{add_symtab_fns} during their module initialization. The argument to @code{add_symtab_fns} is a @code{struct sym_fns} which contains the name (or name prefix) of the symbol format, the length of the prefix, and pointers to four functions. These functions are called at various times to process symbol-files whose identification matches the specified prefix. The functions supplied by each module are: @table @code @item @var{xxx}_symfile_init(struct sym_fns *sf) Called from @code{symbol_file_add} when we are about to read a new symbol file. This function should clean up any internal state (possibly resulting from half-read previous files, for example) and prepare to read a new symbol file. Note that the symbol file which we are reading might be a new "main" symbol file, or might be a secondary symbol file whose symbols are being added to the existing symbol table. The argument to @code{@var{xxx}_symfile_init} is a newly allocated @code{struct sym_fns} whose @code{bfd} field contains the BFD for the new symbol file being read. Its @code{private} field has been zeroed, and can be modified as desired. Typically, a struct of private information will be @code{malloc}'d, and a pointer to it will be placed in the @code{private} field. There is no result from @code{@var{xxx}_symfile_init}, but it can call @code{error} if it detects an unavoidable problem. @item @var{xxx}_new_init() Called from @code{symbol_file_add} when discarding existing symbols. This function need only handle the symbol-reading module's internal state; the symbol table data structures visible to the rest of GDB will be discarded by @code{symbol_file_add}. It has no arguments and no result. It may be called after @code{@var{xxx}_symfile_init}, if a new symbol table is being read, or may be called alone if all symbols are simply being discarded. @item @var{xxx}_symfile_read(struct sym_fns *sf, CORE_ADDR addr, int mainline) Called from @code{symbol_file_add} to actually read the symbols from a symbol-file into a set of psymtabs or symtabs. @code{sf} points to the struct sym_fns originally passed to @code{@var{xxx}_sym_init} for possible initialization. @code{addr} is the offset between the file's specified start address and its true address in memory. @code{mainline} is 1 if this is the main symbol table being read, and 0 if a secondary symbol file (e.g. shared library or dynamically loaded file) is being read.@refill @end table In addition, if a symbol-reading module creates psymtabs when @var{xxx}_symfile_read is called, these psymtabs will contain a pointer to a function @code{@var{xxx}_psymtab_to_symtab}, which can be called from any point in the GDB symbol-handling code. @table @code @item @var{xxx}_psymtab_to_symtab (struct partial_symtab *pst) Called from @code{psymtab_to_symtab} (or the PSYMTAB_TO_SYMTAB macro) if the psymtab has not already been read in and had its @code{pst->symtab} pointer set. The argument is the psymtab to be fleshed-out into a symtab. Upon return, pst->readin should have been set to 1, and pst->symtab should contain a pointer to the new corresponding symtab, or zero if there were no symbols in that part of the symbol file. @end table @node Cleanups @chapter Cleanups Cleanups are a structured way to deal with things that need to be done later. When your code does something (like @code{malloc} some memory, or open a file) that needs to be undone later (e.g. free the memory or close the file), it can make a cleanup. The cleanup will be done at some future point: when the command is finished, when an error occurs, or when your code decides it's time to do cleanups. You can also discard cleanups, that is, throw them away without doing what they say. This is only done if you ask that it be done. Syntax: @table @code @item struct cleanup *@var{old_chain}; Declare a variable which will hold a cleanup chain handle. @item @var{old_chain} = make_cleanup (@var{function}, @var{arg}); Make a cleanup which will cause @var{function} to be called with @var{arg} (a @code{char *}) later. The result, @var{old_chain}, is a handle that can be passed to @code{do_cleanups} or @code{discard_cleanups} later. Unless you are going to call @code{do_cleanups} or @code{discard_cleanups} yourself, you can ignore the result from @code{make_cleanup}. @item do_cleanups (@var{old_chain}); Perform all cleanups done since @code{make_cleanup} returned @var{old_chain}. E.g.: @example make_cleanup (a, 0); old = make_cleanup (b, 0); do_cleanups (old); @end example @noindent will call @code{b()} but will not call @code{a()}. The cleanup that calls @code{a()} will remain in the cleanup chain, and will be done later unless otherwise discarded.@refill @item discard_cleanups (@var{old_chain}); Same as @code{do_cleanups} except that it just removes the cleanups from the chain and does not call the specified functions. @end table Some functions, e.g. @code{fputs_filtered()} or @code{error()}, specify that they ``should not be called when cleanups are not in place''. This means that any actions you need to reverse in the case of an error or interruption must be on the cleanup chain before you call these functions, since they might never return to your code (they @samp{longjmp} instead). @node Wrapping @chapter Wrapping Output Lines Output that goes through @code{printf_filtered} or @code{fputs_filtered} or @code{fputs_demangled} needs only to have calls to @code{wrap_here} added in places that would be good breaking points. The utility routines will take care of actually wrapping if the line width is exceeded. The argument to @code{wrap_here} is an indentation string which is printed @emph{only} if the line breaks there. This argument is saved away and used later. It must remain valid until the next call to @code{wrap_here} or until a newline has been printed through the @code{*_filtered} functions. Don't pass in a local variable and then return! It is usually best to call @code{wrap_here()} after printing a comma or space. If you call it before printing a space, make sure that your indentation properly accounts for the leading space that will print if the line wraps there. Any function or set of functions that produce filtered output must finish by printing a newline, to flush the wrap buffer, before switching to unfiltered (``@code{printf}'') output. Symbol reading routines that print warnings are a good example. @node Frames @chapter Frames A frame is a construct that GDB uses to keep track of calling and called functions. @table @code @item FRAME_FP in the machine description has no meaning to the machine-independent part of GDB, except that it is used when setting up a new frame from scratch, as follows: @example create_new_frame (read_register (FP_REGNUM), read_pc ())); @end example Other than that, all the meaning imparted to @code{FP_REGNUM} is imparted by the machine-dependent code. So, @code{FP_REGNUM} can have any value that is convenient for the code that creates new frames. (@code{create_new_frame} calls @code{INIT_EXTRA_FRAME_INFO} if it is defined; that is where you should use the @code{FP_REGNUM} value, if your frames are nonstandard.) @item FRAME_CHAIN Given a GDB frame, determine the address of the calling function's frame. This will be used to create a new GDB frame struct, and then @code{INIT_EXTRA_FRAME_INFO} and @code{INIT_FRAME_PC} will be called for the new frame. @end table @node Remote Stubs @chapter Remote Stubs GDB's file @file{remote.c} talks a serial protocol to code that runs in the target system. GDB provides several sample ``stubs'' that can be integrated into target programs or operating systems for this purpose; they are named @file{*-stub.c}. The GDB user's manual describes how to put such a stub into your target code. What follows is a discussion of integrating the SPARC stub into a complicated operating system (rather than a simple program), by Stu Grossman, the author of this stub. The trap handling code in the stub assumes the following upon entry to trap_low: @enumerate @item %l1 and %l2 contain pc and npc respectively at the time of the trap @item traps are disabled @item you are in the correct trap window @end enumerate As long as your trap handler can guarantee those conditions, then there is no reason why you shouldn't be able to `share' traps with the stub. The stub has no requirement that it be jumped to directly from the hardware trap vector. That is why it calls @code{exceptionHandler()}, which is provided by the external environment. For instance, this could setup the hardware traps to actually execute code which calls the stub first, and then transfers to its own trap handler. For the most point, there probably won't be much of an issue with `sharing' traps, as the traps we use are usually not used by the kernel, and often indicate unrecoverable error conditions. Anyway, this is all controlled by a table, and is trivial to modify. The most important trap for us is for @code{ta 1}. Without that, we can't single step or do breakpoints. Everything else is unnecessary for the proper operation of the debugger/stub. From reading the stub, it's probably not obvious how breakpoints work. They are simply done by deposit/examine operations from GDB. @node Longjmp Support @chapter Longjmp Support GDB has support for figuring out that the target is doing a @code{longjmp} and for stopping at the target of the jump, if we are stepping. This is done with a few specialized internal breakpoints, which are visible in the @code{maint info breakpoint} command. To make this work, you need to define a macro called @code{GET_LONGJMP_TARGET}, which will examine the @code{jmp_buf} structure and extract the longjmp target address. Since @code{jmp_buf} is target specific, you will need to define it in the appropriate @file{tm-xxx.h} file. Look in @file{tm-sun4os4.h} and @file{sparc-tdep.c} for examples of how to do this. @node Coding Style @chapter Coding Style GDB is generally written using the GNU coding standards, as described in @file{standards.texi}, which is available for anonymous FTP from GNU archive sites. There are some additional considerations for GDB maintainers that reflect the unique environment and style of GDB maintenance. If you follow these guidelines, GDB will be more consistent and easier to maintain. GDB's policy on the use of prototypes is that prototypes are used to @emph{declare} functions but never to @emph{define} them. Simple macros are used in the declarations, so that a non-ANSI compiler can compile GDB without trouble. The simple macro calls are used like this: @example @code extern int memory_remove_breakpoint PARAMS ((CORE_ADDR, char *)); @end example Note the double parentheses around the parameter types. This allows an arbitrary number of parameters to be described, without freaking out the C preprocessor. When the function has no parameters, it should be described like: @example @code void noprocess PARAMS ((void)); @end example The @code{PARAMS} macro expands to its argument in ANSI C, or to a simple @code{()} in traditional C. All external functions should have a @code{PARAMS} declaration in a header file that callers include. All static functions should have such a declaration near the top of their source file. We don't have a gcc option that will properly check that these rules have been followed, but it's GDB policy, and we periodically check it using the tools available (plus manual labor), and clean up any remnants. @node Clean Design @chapter Clean Design In addition to getting the syntax right, there's the little question of semantics. Some things are done in certain ways in GDB because long experience has shown that the more obvious ways caused various kinds of trouble. In particular: @table @bullet @item You can't assume the byte order of anything that comes from a target (including @var{value}s, object files, and instructions). Such things must be byte-swapped using @code{SWAP_TARGET_AND_HOST} in GDB, or one of the swap routines defined in @file{bfd.h}, such as @code{bfd_get_32}. @item You can't assume that you know what interface is being used to talk to the target system. All references to the target must go through the current @code{target_ops} vector. @item You can't assume that the host and target machines are the same machine (except in the ``native'' support modules). In particular, you can't assume that the target machine's header files will be available on the host machine. Target code must bring along its own header files -- written from scratch or explicitly donated by their owner, to avoid copyright problems. @item Insertion of new @code{#ifdef}'s will be frowned upon. It's much better to write the code portably than to conditionalize it for various systems. @item New @code{#ifdef}'s which test for specific compilers or manufacturers or operating systems are unacceptable. All @code{#ifdef}'s should test for features. The information about which configurations contain which features should be segregated into the configuration files. Experience has proven far too often that a feature unique to one particular system often creeps into other systems; and that a conditional based on some predefined macro for your current system will become worthless over time, as new versions of your system come out that behave differently with regard to this feature. @item Adding code that handles specific architectures, operating systems, target interfaces, or hosts, is not acceptable in generic code. If a hook is needed at that point, invent a generic hook and define it for your configuration, with something like: @example #ifdef WRANGLE_SIGNALS WRANGLE_SIGNALS (signo); #endif @end example In your host, target, or native configuration file, as appropriate, define @code{WRANGLE_SIGNALS} to do the machine-dependent thing. Take a bit of care in defining the hook, so that it can be used by other ports in the future, if they need a hook in the same place. If the hook is not defined, the code should do whatever "most" machines want. Using @code{#ifdef}, as above, is the preferred way to do this, but sometimes that gets convoluted, in which case use @example #ifndef SPECIAL_FOO_HANDLING #define SPECIAL_FOO_HANDLING(pc, sp) (0) #endif @end example where the macro is used or in an appropriate header file. Whether to include a @dfn{small} hook, a hook around the exact pieces of code which are system-dependent, or whether to replace a whole function with a hook depends on the case. A good example of this dilemma can be found in @code{get_saved_register}. All machines that GDB 2.8 ran on just needed the @code{FRAME_FIND_SAVED_REGS} hook to find the saved registers. Then the SPARC and Pyramid came along, and @code{HAVE_REGISTER_WINDOWS} and @code{REGISTER_IN_WINDOW_P} were introduced. Then the 29k and 88k required the @code{GET_SAVED_REGISTER} hook. The first three are examples of small hooks; the latter replaces a whole function. In this specific case, it is useful to have both kinds; it would be a bad idea to replace all the uses of the small hooks with @code{GET_SAVED_REGISTER}, since that would result in much duplicated code. Other times, duplicating a few lines of code here or there is much cleaner than introducing a large number of small hooks. Another way to generalize GDB along a particular interface is with an attribute struct. For example, GDB has been generalized to handle multiple kinds of remote interfaces -- not by #ifdef's everywhere, but by defining the "target_ops" structure and having a current target (as well as a stack of targets below it, for memory references). Whenever something needs to be done that depends on which remote interface we are using, a flag in the current target_ops structure is tested (e.g. `target_has_stack'), or a function is called through a pointer in the current target_ops structure. In this way, when a new remote interface is added, only one module needs to be touched -- the one that actually implements the new remote interface. Other examples of attribute-structs are BFD access to multiple kinds of object file formats, or GDB's access to multiple source languages. Please avoid duplicating code. For example, in GDB 3.x all the code interfacing between @code{ptrace} and the rest of GDB was duplicated in @file{*-dep.c}, and so changing something was very painful. In GDB 4.x, these have all been consolidated into @file{infptrace.c}. @file{infptrace.c} can deal with variations between systems the same way any system-independent file would (hooks, #if defined, etc.), and machines which are radically different don't need to use infptrace.c at all. @item @emph{Do} write code that doesn't depend on the sizes of C data types, the format of the host's floating point numbers, the alignment of anything, or the order of evaluation of expressions. In short, follow good programming practices for writing portable C code. @end table @node Submitting Patches @chapter Submitting Patches Thanks for thinking of offering your changes back to the community of GDB users. In general we like to get well designed enhancements. Thanks also for checking in advance about the best way to transfer the changes. The two main problems with getting your patches in are, @table @bullet @item The GDB maintainers will only install ``cleanly designed'' patches. You may not always agree on what is clean design. @pxref{Coding Style}, @pxref{Clean Design}. @item If the maintainers don't have time to put the patch in when it arrives, or if there is any question about a patch, it goes into a large queue with everyone else's patches and bug reports. @end table I don't know how to get past these problems except by continuing to try. There are two issues here -- technical and legal. The legal issue is that to incorporate substantial changes requires a copyright assignment from you and/or your employer, granting ownership of the changes to the Free Software Foundation. You can get the standard document for doing this by sending mail to @code{gnu@@prep.ai.mit.edu} and asking for it. I recommend that people write in "All programs owned by the Free Software Foundation" as "NAME OF PROGRAM", so that changes in many programs (not just GDB, but GAS, Emacs, GCC, etc) can be contributed with only one piece of legalese pushed through the bureacracy and filed with the FSF. I can't start merging changes until this paperwork is received by the FSF (their rules, which I follow since I maintain it for them). Technically, the easiest way to receive changes is to receive each feature as a small context diff or unidiff, suitable for "patch". Each message sent to me should include the changes to C code and header files for a single feature, plus ChangeLog entries for each directory where files were modified, and diffs for any changes needed to the manuals (gdb/doc/gdb.texi or gdb/doc/gdbint.texi). If there are a lot of changes for a single feature, they can be split down into multiple messages. In this way, if I read and like the feature, I can add it to the sources with a single patch command, do some testing, and check it in. If you leave out the ChangeLog, I have to write one. If you leave out the doc, I have to puzzle out what needs documenting. Etc. The reason to send each change in a separate message is that I will not install some of the changes. They'll be returned to you with questions or comments. If I'm doing my job, my message back to you will say what you have to fix in order to make the change acceptable. The reason to have separate messages for separate features is so that other changes (which I @emph{am} willing to accept) can be installed while one or more changes are being reworked. If multiple features are sent in a single message, I tend to not put in the effort to sort out the acceptable changes from the unacceptable, so none of the features get installed until all are acceptable. If this sounds painful or authoritarian, well, it is. But I get a lot of bug reports and a lot of patches, and most of them don't get installed because I don't have the time to finish the job that the bug reporter or the contributor could have done. Patches that arrive complete, working, and well designed, tend to get installed on the day they arrive. The others go into a queue and get installed if and when I scan back over the queue -- which can literally take months sometimes. It's in both our interests to make patch installation easy -- you get your changes installed, and I make some forward progress on GDB in a normal 12-hour day (instead of them having to wait until I have a 14-hour or 16-hour day to spend cleaning up patches before I can install them). Please send patches to @code{bug-gdb@@prep.ai.mit.edu}, if they are less than about 25,000 characters. If longer than that, either make them available somehow (e.g. anonymous FTP), and announce it on @code{bug-gdb}, or send them directly to the GDB maintainers at @code{gdb-patches@@cygnus.com}. @node Host Conditionals @chapter Host Conditionals When GDB is configured and compiled, various macros are defined or left undefined, to control compilation based on the attributes of the host system. These macros and their meanings (or if the meaning is not documented here, then one of the source files where they are used is indicated) are: @emph{NOTE: For now, both host and target conditionals are here. Eliminate target conditionals from this list as they are identified.} @table @code @item BLOCK_ADDRESS_FUNCTION_RELATIVE dbxread.c @item GDBINIT_FILENAME The default name of GDB's initialization file (normally @file{.gdbinit}). @item KERNELDEBUG tm-hppa.h @item MEM_FNS_DECLARED Your host config file defines this if it includes declarations of @code{memcpy} and @code{memset}. Define this to avoid conflicts between the native include files and the declarations in @file{defs.h}. @item NO_SYS_FILE dbxread.c @item PYRAMID_CONTROL_FRAME_DEBUGGING pyr-xdep.c @item SIGWINCH_HANDLER_BODY utils.c @item ADDITIONAL_OPTIONS main.c @item ADDITIONAL_OPTION_CASES main.c @item ADDITIONAL_OPTION_HANDLER main.c @item ADDITIONAL_OPTION_HELP main.c @item ADDR_BITS_REMOVE defs.h @item AIX_BUGGY_PTRACE_CONTINUE infptrace.c @item ALIGN_STACK_ON_STARTUP main.c @item ALTOS altos-xdep.c @item ALTOS_AS xm-altos.h @item ASCII_COFF remote-adapt.c @item BCS tm-delta88.h @item BEFORE_MAIN_LOOP_HOOK main.c @item BELIEVE_PCC_PROMOTION coffread.c @item BELIEVE_PCC_PROMOTION_TYPE stabsread.c @item BITS_BIG_ENDIAN defs.h @item BKPT_AT_MAIN solib.c @item BLOCK_ADDRESS_ABSOLUTE dbxread.c @item BPT_VECTOR tm-m68k.h @item BROKEN_LARGE_ALLOCA Avoid large @code{alloca}'s. For example, on sun's, Large alloca's fail because the attempt to increase the stack limit in main() fails because shared libraries are allocated just below the initial stack limit. The SunOS kernel will not allow the stack to grow into the area occupied by the shared libraries. @item CALL_DUMMY valops.c @item CALL_DUMMY_LOCATION inferior.h @item CALL_DUMMY_STACK_ADJUST valops.c @item CFRONT_PRODUCER dwarfread.c @item CHILD_PREPARE_TO_STORE inftarg.c @item CLEAR_DEFERRED_STORES inflow.c @item CLEAR_SOLIB objfiles.c @item COFF_ENCAPSULATE hppabsd-tdep.c @item COFF_FORMAT symm-tdep.c @item CORE_NEEDS_RELOCATION stack.c @item CPLUS_MARKER cplus-dem.c @item C_ALLOCA regex.c @item C_GLBLREG coffread.c @item DBXREAD_ONLY partial-stab.h @item DBX_PARM_SYMBOL_CLASS stabsread.c @item DEBUG_INFO partial-stab.h @item DEBUG_PTRACE hppabsd-xdep.c @item DECR_PC_AFTER_BREAK breakpoint.c @item DEFAULT_PROMPT The default value of the prompt string (normally @code{"(gdb) "}). @item DELTA88 m88k-xdep.c @item DEV_TTY symmisc.c @item DGUX m88k-xdep.c @item DISABLE_UNSETTABLE_BREAK breakpoint.c @item DONT_USE_REMOTE remote.c @item DO_DEFERRED_STORES infrun.c @item DO_REGISTERS_INFO infcmd.c @item EXTRACT_RETURN_VALUE tm-m68k.h @item EXTRACT_STRUCT_VALUE_ADDRESS values.c @item EXTRA_FRAME_INFO frame.h @item EXTRA_SYMTAB_INFO symtab.h @item FILES_INFO_HOOK target.c @item FLOAT_INFO infcmd.c @item FOPEN_RB defs.h @item FUNCTION_EPILOGUE_SIZE coffread.c @item F_OK xm-ultra3.h @item GCC2_COMPILED_FLAG_SYMBOL dbxread.c @item GCC_COMPILED_FLAG_SYMBOL dbxread.c @item GCC_MANGLE_BUG symtab.c @item GCC_PRODUCER dwarfread.c @item GET_SAVED_REGISTER findvar.c @item GPLUS_PRODUCER dwarfread.c @item HANDLE_RBRAC partial-stab.h @item HAVE_MMAP In some cases, use the system call @code{mmap} for reading symbol tables. For some machines this allows for sharing and quick updates. @item HAVE_REGISTER_WINDOWS findvar.c @item HAVE_SIGSETMASK main.c @item HAVE_TERMIO inflow.c @item HEADER_SEEK_FD arm-tdep.c @item HOSTING_ONLY xm-rtbsd.h @item HOST_BYTE_ORDER findvar.c @item HPUX_ASM xm-hp300hpux.h @item HPUX_VERSION_5 hp300ux-xdep.c @item HP_OS_BUG infrun.c @item I80960 remote-vx.c @item IEEE_FLOAT valprint.c @item IGNORE_SYMBOL dbxread.c @item INIT_EXTRA_FRAME_INFO blockframe.c @item INIT_EXTRA_SYMTAB_INFO symfile.c @item INIT_FRAME_PC blockframe.c @item INNER_THAN valops.c @item INT_MAX defs.h @item INT_MIN defs.h @item IN_GDB i960-pinsn.c @item IN_SIGTRAMP infrun.c @item IN_SOLIB_TRAMPOLINE infrun.c @item ISATTY main.c @item IS_TRAPPED_INTERNALVAR values.c @item KERNELDEBUG dbxread.c @item KERNEL_DEBUGGING tm-ultra3.h @item KERNEL_U_ADDR Define this to the address of the @code{u} structure (the ``user struct'', also known as the ``u-page'') in kernel virtual memory. GDB needs to know this so that it can subtract this address from absolute addresses in the upage, that are obtained via ptrace or from core files. On systems that don't need this value, set it to zero. @item KERNEL_U_ADDR_BSD Define this to cause GDB to determine the address of @code{u} at runtime, by using Berkeley-style @code{nlist} on the kernel's image in the root directory. @item KERNEL_U_ADDR_HPUX Define this to cause GDB to determine the address of @code{u} at runtime, by using HP-style @code{nlist} on the kernel's image in the root directory. @item LCC_PRODUCER dwarfread.c @item LOG_FILE remote-adapt.c @item LONGERNAMES cplus-dem.c @item LONGEST defs.h @item CC_HAS_LONG_LONG defs.h @item PRINTF_HAS_LONG_LONG defs.h @item LONG_MAX defs.h @item LSEEK_NOT_LINEAR source.c @item L_LNNO32 coffread.c @item L_SET This macro is used as the argument to lseek (or, most commonly, bfd_seek). FIXME, should be replaced by SEEK_SET instead, which is the POSIX equivalent. @item MACHKERNELDEBUG hppabsd-tdep.c @item MAINTENANCE dwarfread.c @item MAINTENANCE_CMDS If the value of this is 1, then a number of optional maintenance commands are compiled in. @item MALLOC_INCOMPATIBLE Define this if the system's prototype for @code{malloc} differs from the @sc{ANSI} definition. @item MIPSEL mips-tdep.c @item MMAP_BASE_ADDRESS When using HAVE_MMAP, the first mapping should go at this address. @item MMAP_INCREMENT when using HAVE_MMAP, this is the increment between mappings. @item MONO ser-go32.c @item MOTOROLA xm-altos.h @item NBPG altos-xdep.c @item NEED_POSIX_SETPGID infrun.c @item NEED_TEXT_START_END exec.c @item NFAILURES regex.c @item NORETURN (in defs.h - is this really useful to define/undefine?) @item NOTDEF regex.c @item NOTDEF remote-adapt.c @item NOTDEF remote-mm.c @item NOTICE_SIGNAL_HANDLING_CHANGE infrun.c @item NO_HIF_SUPPORT remote-mm.c @item NO_JOB_CONTROL signals.h @item NO_MMALLOC GDB will use the @code{mmalloc} library for memory allocation for symbol reading, unless this symbol is defined. Define it on systems on which @code{mmalloc} does not work for some reason. One example is the DECstation, where its RPC library can't cope with our redefinition of @code{malloc} to call @code{mmalloc}. When defining @code{NO_MMALLOC}, you will also have to override the setting of @code{MMALLOC_LIB} to empty, in the Makefile. Therefore, this define is usually set on the command line by overriding @code{MMALLOC_DISABLE} in @file{config/*/*.mh}, rather than by defining it in @file{xm-*.h}. @item NO_MMALLOC_CHECK Define this if you are using @code{mmalloc}, but don't want the overhead of checking the heap with @code{mmcheck}. @item NO_SIGINTERRUPT remote-adapt.c @item NO_SINGLE_STEP infptrace.c @item NS32K_SVC_IMMED_OPERANDS ns32k-opcode.h @item NUMERIC_REG_NAMES mips-tdep.c @item N_SETV dbxread.c @item N_SET_MAGIC hppabsd-tdep.c @item NaN tm-umax.h @item ONE_PROCESS_WRITETEXT breakpoint.c @item O_BINARY exec.c @item O_RDONLY xm-ultra3.h @item PC convx-opcode.h @item PCC_SOL_BROKEN dbxread.c @item PC_IN_CALL_DUMMY inferior.h @item PC_LOAD_SEGMENT stack.c @item PRINT_RANDOM_SIGNAL infcmd.c @item PRINT_REGISTER_HOOK infcmd.c @item PRINT_TYPELESS_INTEGER valprint.c @item PROCESS_LINENUMBER_HOOK buildsym.c @item PROLOGUE_FIRSTLINE_OVERLAP infrun.c @item PSIGNAL_IN_SIGNAL_H defs.h @item PUSH_ARGUMENTS valops.c @item PYRAMID_CONTROL_FRAME_DEBUGGING pyr-xdep.c @item PYRAMID_CORE pyr-xdep.c @item PYRAMID_PTRACE pyr-xdep.c @item REGISTER_BYTES remote.c @item REGISTER_NAMES tm-a29k.h @item REG_STACK_SEGMENT exec.c @item REG_STRUCT_HAS_ADDR findvar.c @item RE_NREGS regex.h @item R_FP dwarfread.c @item R_OK xm-altos.h @item SEEK_END state.c @item SEEK_SET state.c @item SEM coffread.c @item SET_STACK_LIMIT_HUGE When defined, stack limits will be raised to their maximum. Use this if your host supports @code{setrlimit} and you have trouble with @code{stringtab} in @file{dbxread.c}. Also used in @file{fork-child.c} to return stack limits before child processes are forked. @item SHELL_COMMAND_CONCAT infrun.c @item SHELL_FILE infrun.c @item SHIFT_INST_REGS breakpoint.c @item SIGN_EXTEND_CHAR regex.c @item SIGTRAP_STOP_AFTER_LOAD infrun.c @item SKIP_TRAMPOLINE_CODE infrun.c @item SOLIB_ADD core.c @item STACK_ALIGN valops.c @item START_INFERIOR_TRAPS_EXPECTED infrun.c @item STOP_SIGNAL main.c @item SUN4_COMPILER_FEATURE infrun.c @item SUN_FIXED_LBRAC_BUG dbxread.c @item SVR4_SHARED_LIBS solib.c @item SWITCH_ENUM_BUG regex.c @item SYM1 tm-ultra3.h @item SYMBOL_RELOADING_DEFAULT symfile.c @item SYNTAX_TABLE regex.c @item Sword regex.c @item TIOCGETC inflow.c @item TIOCGLTC inflow.c @item TIOCGPGRP inflow.c @item TIOCLGET inflow.c @item TIOCLSET inflow.c @item TIOCNOTTY inflow.c @item T_ARG coffread.c @item T_VOID coffread.c @item UINT_MAX defs.h @item UPAGES altos-xdep.c @item USER m88k-tdep.c @item USE_GAS xm-news.h @item USE_O_NOCTTY inflow.c @item USE_STRUCT_CONVENTION values.c @item USG Means that System V (prior to SVR4) include files are in use. (FIXME: This symbol is abused in @file{infrun.c}, @file{regex.c}, @file{remote-nindy.c}, and @file{utils.c} for other things, at the moment.) @item USIZE xm-m88k.h @item U_FPSTATE i386-xdep.c @item VARIABLES_INSIDE_BLOCK dbxread.c @item WRS_ORIG remote-vx.c @item __GNUC__ news-xdep.c @item __GO32__ inflow.c @item __HPUX_ASM__ xm-hp300hpux.h @item __INT_VARARGS_H printcmd.c @item __not_on_pyr_yet pyr-xdep.c @item alloca defs.h @item const defs.h @item GOULD_PN gould-pinsn.c @item hp800 xm-hppabsd.h @item hpux hppabsd-core.c @item lint valarith.c @item longest_to_int defs.h @item mc68020 m68k-stub.c @item notdef gould-pinsn.c @item ns32k_opcodeT ns32k-opcode.h @item sgi mips-tdep.c @item sparc regex.c @item sun m68k-tdep.c @item sun386 tm-sun386.h @item test regex.c @item ultrix xm-mips.h @item volatile defs.h @end table @node Target Conditionals @chapter Target Conditionals When GDB is configured and compiled, various macros are defined or left undefined, to control compilation based on the attributes of the target system. These macros and their meanings are: @emph{NOTE: For now, both host and target conditionals are here. Eliminate host conditionals from this list as they are identified.} @table @code @item PUSH_DUMMY_FRAME Used in @samp{call_function_by_hand} to create an artificial stack frame. @item POP_FRAME Used in @samp{call_function_by_hand} to remove an artificial stack frame. @item BLOCK_ADDRESS_FUNCTION_RELATIVE dbxread.c @item KERNELDEBUG tm-hppa.h @item NO_SYS_FILE dbxread.c @item PYRAMID_CONTROL_FRAME_DEBUGGING pyr-xdep.c @item SIGWINCH_HANDLER_BODY utils.c @item ADDITIONAL_OPTIONS main.c @item ADDITIONAL_OPTION_CASES main.c @item ADDITIONAL_OPTION_HANDLER main.c @item ADDITIONAL_OPTION_HELP main.c @item ADDR_BITS_REMOVE defs.h @item ALIGN_STACK_ON_STARTUP main.c @item ALTOS altos-xdep.c @item ALTOS_AS xm-altos.h @item ASCII_COFF remote-adapt.c @item BCS tm-delta88.h @item BELIEVE_PCC_PROMOTION coffread.c @item BELIEVE_PCC_PROMOTION_TYPE stabsread.c @item BITS_BIG_ENDIAN defs.h @item BKPT_AT_MAIN solib.c @item BLOCK_ADDRESS_ABSOLUTE dbxread.c @item BPT_VECTOR tm-m68k.h @item BREAKPOINT tm-m68k.h @item CALL_DUMMY valops.c @item CALL_DUMMY_LOCATION inferior.h @item CALL_DUMMY_STACK_ADJUST valops.c @item CANNOT_FETCH_REGISTER (regno) A C expression that should be nonzero if @var{regno} cannot be fetched from an inferior process. This is only relevant if @code{FETCH_INFERIOR_REGISTERS} is not defined. @item CANNOT_STORE_REGISTER (regno) A C expression that should be nonzero if @var{regno} should not be written to the target. This is often the case for program counters, status words, and other special registers. If this is not defined, GDB will assume that all registers may be written. @item CFRONT_PRODUCER dwarfread.c @item CHILD_PREPARE_TO_STORE inftarg.c @item CLEAR_DEFERRED_STORES inflow.c @item CLEAR_SOLIB objfiles.c @item COFF_ENCAPSULATE hppabsd-tdep.c @item COFF_FORMAT symm-tdep.c @item CORE_NEEDS_RELOCATION stack.c @item CPLUS_MARKER cplus-dem.c @item C_GLBLREG coffread.c @item DBXREAD_ONLY partial-stab.h @item DBX_PARM_SYMBOL_CLASS stabsread.c @item DEBUG_INFO partial-stab.h @item DEBUG_PTRACE hppabsd-xdep.c @item DECR_PC_AFTER_BREAK breakpoint.c @item DELTA88 m88k-xdep.c @item DEV_TTY symmisc.c @item DGUX m88k-xdep.c @item DISABLE_UNSETTABLE_BREAK breakpoint.c @item DONT_USE_REMOTE remote.c @item DO_DEFERRED_STORES infrun.c @item DO_REGISTERS_INFO infcmd.c @item END_OF_TEXT_DEFAULT This is an expression that should designate the end of the text section (? FIXME ?) @item EXTRACT_RETURN_VALUE tm-m68k.h @item EXTRACT_STRUCT_VALUE_ADDRESS values.c @item EXTRA_FRAME_INFO frame.h @item EXTRA_SYMTAB_INFO symtab.h @item FILES_INFO_HOOK target.c @item FLOAT_INFO infcmd.c @item FOPEN_RB defs.h @item FP0_REGNUM a68v-xdep.c @item FPC_REGNUM mach386-xdep.c @item FP_REGNUM parse.c @item FRAMELESS_FUNCTION_INVOCATION blockframe.c @item FRAME_ARGS_ADDRESS_CORRECT stack.c @item FRAME_CHAIN Given FRAME, return a pointer to the calling frame. @item FRAME_CHAIN_COMBINE blockframe.c @item FRAME_CHAIN_VALID frame.h @item FRAME_CHAIN_VALID_ALTERNATE frame.h @item FRAME_FIND_SAVED_REGS stack.c @item FRAME_GET_BASEREG_VALUE frame.h @item FRAME_NUM_ARGS (val, fi) For the frame described by fi, set val to the number of arguments that are being passed. @item FRAME_SPECIFICATION_DYADIC stack.c @item FRAME_SAVED_PC Given FRAME, return the pc saved there. That is, the return address. @item FUNCTION_EPILOGUE_SIZE coffread.c @item F_OK xm-ultra3.h @item GCC2_COMPILED_FLAG_SYMBOL dbxread.c @item GCC_COMPILED_FLAG_SYMBOL dbxread.c @item GCC_MANGLE_BUG symtab.c @item GCC_PRODUCER dwarfread.c @item GDB_TARGET_IS_HPPA This determines whether horrible kludge code in dbxread.c and partial-stab.h is used to mangle multiple-symbol-table files from HPPA's. This should all be ripped out, and a scheme like elfread.c used. @item GDB_TARGET_IS_MACH386 mach386-xdep.c @item GDB_TARGET_IS_SUN3 a68v-xdep.c @item GDB_TARGET_IS_SUN386 sun386-xdep.c @item GET_LONGJMP_TARGET For most machines, this is a target-dependent parameter. On the DECstation and the Iris, this is a native-dependent parameter, since is needed to define it. This macro determines the target PC address that longjmp() will jump to, assuming that we have just stopped at a longjmp breakpoint. It takes a CORE_ADDR * as argument, and stores the target PC value through this pointer. It examines the current state of the machine as needed. @item GET_SAVED_REGISTER findvar.c @item GPLUS_PRODUCER dwarfread.c @item GR64_REGNUM remote-adapt.c @item GR64_REGNUM remote-mm.c @item HANDLE_RBRAC partial-stab.h @item HAVE_68881 m68k-tdep.c @item HAVE_REGISTER_WINDOWS findvar.c @item HAVE_SIGSETMASK main.c @item HAVE_TERMIO inflow.c @item HEADER_SEEK_FD arm-tdep.c @item HOSTING_ONLY xm-rtbsd.h @item HPUX_ASM xm-hp300hpux.h @item HPUX_VERSION_5 hp300ux-xdep.c @item HP_OS_BUG infrun.c @item I80960 remote-vx.c @item IBM6000_TARGET Shows that we are configured for an IBM RS/6000 target. This conditional should be eliminated (FIXME) and replaced by feature-specific macros. It was introduced in haste and we are repenting at leisure. @item IEEE_FLOAT valprint.c @item IGNORE_SYMBOL dbxread.c @item INIT_EXTRA_FRAME_INFO blockframe.c @item INIT_EXTRA_SYMTAB_INFO symfile.c @item INIT_FRAME_PC blockframe.c @item INNER_THAN valops.c @item INT_MAX defs.h @item INT_MIN defs.h @item IN_GDB i960-pinsn.c @item IN_SIGTRAMP infrun.c @item IN_SOLIB_TRAMPOLINE infrun.c @item ISATTY main.c @item IS_TRAPPED_INTERNALVAR values.c @item KERNELDEBUG dbxread.c @item KERNEL_DEBUGGING tm-ultra3.h @item LCC_PRODUCER dwarfread.c @item LOG_FILE remote-adapt.c @item LONGERNAMES cplus-dem.c @item LONGEST defs.h @item CC_HAS_LONG_LONG defs.h @item PRINTF_HAS_LONG_LONG defs.h @item LONG_MAX defs.h @item L_LNNO32 coffread.c @item MACHKERNELDEBUG hppabsd-tdep.c @item MAINTENANCE dwarfread.c @item MIPSEL mips-tdep.c @item MOTOROLA xm-altos.h @item NBPG altos-xdep.c @item NEED_POSIX_SETPGID infrun.c @item NEED_TEXT_START_END exec.c @item NNPC_REGNUM infrun.c @item NOTDEF remote-adapt.c @item NOTDEF remote-mm.c @item NOTICE_SIGNAL_HANDLING_CHANGE infrun.c @item NO_HIF_SUPPORT remote-mm.c @item NO_SIGINTERRUPT remote-adapt.c @item NO_SINGLE_STEP infptrace.c @item NPC_REGNUM infcmd.c @item NS32K_SVC_IMMED_OPERANDS ns32k-opcode.h @item NUMERIC_REG_NAMES mips-tdep.c @item N_SETV dbxread.c @item N_SET_MAGIC hppabsd-tdep.c @item NaN tm-umax.h @item ONE_PROCESS_WRITETEXT breakpoint.c @item PC convx-opcode.h @item PCC_SOL_BROKEN dbxread.c @item PC_IN_CALL_DUMMY inferior.h @item PC_LOAD_SEGMENT stack.c @item PC_REGNUM parse.c @item PRINT_RANDOM_SIGNAL infcmd.c @item PRINT_REGISTER_HOOK infcmd.c @item PRINT_TYPELESS_INTEGER valprint.c @item PROCESS_LINENUMBER_HOOK buildsym.c @item PROLOGUE_FIRSTLINE_OVERLAP infrun.c @item PSIGNAL_IN_SIGNAL_H defs.h @item PS_REGNUM parse.c @item PUSH_ARGUMENTS valops.c @item REGISTER_BYTES remote.c @item REGISTER_NAMES tm-a29k.h @item REG_STACK_SEGMENT exec.c @item REG_STRUCT_HAS_ADDR findvar.c @item R_FP dwarfread.c @item R_OK xm-altos.h @item SDB_REG_TO_REGNUM Define this to convert sdb register numbers into GDB regnums. If not defined, no conversion will be done. @item SEEK_END state.c @item SEEK_SET state.c @item SEM coffread.c @item SHELL_COMMAND_CONCAT infrun.c @item SHELL_FILE infrun.c @item SHIFT_INST_REGS breakpoint.c @item SIGTRAP_STOP_AFTER_LOAD infrun.c @item SKIP_PROLOGUE A C statement that advances the PC across any function entry prologue instructions so as to reach ``real'' code. @item SKIP_PROLOGUE_FRAMELESS_P A C statement that should behave similarly, but that can stop as soon as the function is known to have a frame. If not defined, @code{SKIP_PROLOGUE} will be used instead. @item SKIP_TRAMPOLINE_CODE infrun.c @item SOLIB_ADD core.c @item SP_REGNUM parse.c @item STAB_REG_TO_REGNUM Define this to convert stab register numbers (as gotten from `r' declarations) into GDB regnums. If not defined, no conversion will be done. @item STACK_ALIGN valops.c @item START_INFERIOR_TRAPS_EXPECTED infrun.c @item STOP_SIGNAL main.c @item STORE_RETURN_VALUE (type, valbuf) A C expression that stores a function return value of type @var{type}, where @var{valbuf} is the address of the value to be stored. @item SUN4_COMPILER_FEATURE infrun.c @item SUN_FIXED_LBRAC_BUG dbxread.c @item SVR4_SHARED_LIBS solib.c @item SYM1 tm-ultra3.h @item SYMBOL_RELOADING_DEFAULT symfile.c @item TARGET_BYTE_ORDER The ordering of bytes in the target. This must be defined to be either @code{BIG_ENDIAN} or @code{LITTLE_ENDIAN}. @item TARGET_CHAR_BIT Number of bits in a char; defaults to 8. @item TARGET_COMPLEX_BIT Number of bits in a complex number; defaults to @code{2 * TARGET_FLOAT_BIT}. @item TARGET_DOUBLE_BIT Number of bits in a double float; defaults to @code{8 * TARGET_CHAR_BIT}. @item TARGET_DOUBLE_COMPLEX_BIT Number of bits in a double complex; defaults to @code{2 * TARGET_DOUBLE_BIT}. @item TARGET_FLOAT_BIT Number of bits in a float; defaults to @code{4 * TARGET_CHAR_BIT}. @item TARGET_INT_BIT Number of bits in an integer; defaults to @code{4 * TARGET_CHAR_BIT}. @item TARGET_LONG_BIT Number of bits in a long integer; defaults to @code{4 * TARGET_CHAR_BIT}. @item TARGET_LONG_DOUBLE_BIT Number of bits in a long double float; defaults to @code{2 * TARGET_DOUBLE_BIT}. @item TARGET_LONG_LONG_BIT Number of bits in a long long integer; defaults to @code{2 * TARGET_LONG_BIT}. @item TARGET_PTR_BIT Number of bits in a pointer; defaults to @code{TARGET_INT_BIT}. @item TARGET_SHORT_BIT Number of bits in a short integer; defaults to @code{2 * TARGET_CHAR_BIT}. @item TARGET_READ_PC @item TARGET_WRITE_PC (val, pid) @item TARGET_READ_SP @item TARGET_WRITE_SP @item TARGET_READ_FP @item TARGET_WRITE_FP These change the behavior of @code{read_pc}, @code{write_pc}, @code{read_sp}, @code{write_sp}, @code{read_fp} and @code{write_fp}. For most targets, these may be left undefined. GDB will call the read and write register functions with the relevant @code{_REGNUM} argument. These macros are useful when a target keeps one of these registers in a hard to get at place; for example, part in a segment register and part in an ordinary register. @item T_ARG coffread.c @item T_VOID coffread.c @item UINT_MAX defs.h @item USER m88k-tdep.c @item USE_GAS xm-news.h @item USE_STRUCT_CONVENTION values.c @item USIZE xm-m88k.h @item U_FPSTATE i386-xdep.c @item VARIABLES_INSIDE_BLOCK dbxread.c @item WRS_ORIG remote-vx.c @item __GO32__ inflow.c @item __HPUX_ASM__ xm-hp300hpux.h @item __INT_VARARGS_H printcmd.c @item __not_on_pyr_yet pyr-xdep.c @item GOULD_PN gould-pinsn.c @item hp800 xm-hppabsd.h @item hpux hppabsd-core.c @item longest_to_int defs.h @item mc68020 m68k-stub.c @item ns32k_opcodeT ns32k-opcode.h @item sgi mips-tdep.c @item sun m68k-tdep.c @item sun386 tm-sun386.h @item test (Define this to enable testing code in regex.c.) @end table @node Native Conditionals @chapter Native Conditionals When GDB is configured and compiled, various macros are defined or left undefined, to control compilation when the host and target systems are the same. These macros should be defined (or left undefined) in @file{nm-@var{system}.h}. @table @code @item ATTACH_DETACH If defined, then GDB will include support for the @code{attach} and @code{detach} commands. @item FETCH_INFERIOR_REGISTERS Define this if the native-dependent code will provide its own routines @code{fetch_inferior_registers} and @code{store_inferior_registers} in @file{@var{HOST}-nat.c}. If this symbol is @emph{not} defined, and @file{infptrace.c} is included in this configuration, the default routines in @file{infptrace.c} are used for these functions. @item GET_LONGJMP_TARGET For most machines, this is a target-dependent parameter. On the DECstation and the Iris, this is a native-dependent parameter, since is needed to define it. This macro determines the target PC address that longjmp() will jump to, assuming that we have just stopped at a longjmp breakpoint. It takes a CORE_ADDR * as argument, and stores the target PC value through this pointer. It examines the current state of the machine as needed. @item PROC_NAME_FMT Defines the format for the name of a @file{/proc} device. Should be defined in @file{nm.h} @emph{only} in order to override the default definition in @file{procfs.c}. @item PTRACE_FP_BUG mach386-xdep.c @item PTRACE_ARG3_TYPE The type of the third argument to the @code{ptrace} system call, if it exists and is different from @code{int}. @item REGISTER_U_ADDR Defines the offset of the registers in the ``u area''; @pxref{Host}. @item SOLIB_CREATE_INFERIOR_HOOK Define this to expand into any shared-library-relocation code that you want to be run just after the child process has been forked. @item USE_PROC_FS This determines whether small routines in @file{*-tdep.c}, which translate register values between GDB's internal representation and the /proc representation, are compiled. @item U_REGS_OFFSET This is the offset of the registers in the upage. It need only be defined if the generic ptrace register access routines in @file{infptrace.c} are being used (that is, @file{infptrace.c} is configured in, and @code{FETCH_INFERIOR_REGISTERS} is not defined). If the default value from @file{infptrace.c} is good enough, leave it undefined. The default value means that u.u_ar0 @emph{points to} the location of the registers. I'm guessing that @code{#define U_REGS_OFFSET 0} means that u.u_ar0 @emph{is} the location of the registers. @end table @node Obsolete Conditionals @chapter Obsolete Conditionals Fragments of old code in GDB sometimes reference or set the following configuration macros. They should not be used by new code, and old uses should be removed as those parts of the debugger are otherwise touched. @table @code @item STACK_END_ADDR This macro used to define where the end of the stack appeared, for use in interpreting core file formats that don't record this address in the core file itself. This information is now configured in BFD, and GDB gets the info portably from there. The values in GDB's configuration files should be moved into BFD configuration files (if needed there), and deleted from all of GDB's config files. Any @file{@var{foo}-xdep.c} file that references STACK_END_ADDR is so old that it has never been converted to use BFD. Now that's old! @end table @node XCOFF @chapter The XCOFF Object File Format The IBM RS/6000 running AIX uses an object file format called xcoff. The COFF sections, symbols, and line numbers are used, but debugging symbols are dbx-style stabs whose strings are located in the @samp{.debug} section (rather than the string table). For more information, @xref{Top,,,stabs,The Stabs Debugging Format}, and search for XCOFF. The shared library scheme has a nice clean interface for figuring out what shared libraries are in use, but the catch is that everything which refers to addresses (symbol tables and breakpoints at least) needs to be relocated for both shared libraries and the main executable. At least using the standard mechanism this can only be done once the program has been run (or the core file has been read). @contents @bye gdb-4.13/gdb/doc/h8-cfg.texi 666 34562 1752 1540 5425617644 14022 0ustar fnfcygnus@c GDB version number is recorded in the variable GDBVN @include GDBvn.texi @c @set AGGLOMERATION @clear AMD29K @set BARETARGET @clear CONLY @set DOSHOST @clear FORTRAN @clear FSFDOC @clear GDBSERVER @clear GENERIC @set H8 @set H8EXCLUSIVE @clear HAVE-FLOAT @clear I960 @clear MOD2 @clear NOVEL @clear POSIX @set PRECONFIGURED @clear REMOTESTUB @set SIMS @clear SERIAL @clear SPARC @clear ST2000 @clear VXWORKS @clear Z8K @c ---------------------------------------------------------------------- @c STRINGS: @c @c Name of GDB program. Used also for (gdb) prompt string. @set GDBP gdb @c @c Name of GDB product. Used in running text. @set GDBN GDB @c @c Name of GDB initialization file. @set GDBINIT .gdbinit @c @c Name of target. @set TARGET Hitachi Microprocessors @c @c Name of GCC product @set NGCC GCC @c @c Name of GCC program @set GCC gcc gdb-4.13/gdb/doc/libgdb.texinfo 666 34562 1752 75040 5465306323 14713 0ustar fnfcygnus\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename libgdb.info @settitle Libgdb @setchapternewpage off @c %**end of header @ifinfo This file documents libgdb, the GNU symbolic debugger in a library. This is Edition 0.3, Oct 1993, of @cite{Libgdb}. Copyright 1993 Cygnus Support Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through TeX and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end ifinfo @c This title page illustrates only one of the @c two methods of forming a title page. @titlepage @title Libgdb @subtitle Version 0.3 @subtitle Oct 1993 @author Thomas Lord @c The following two commands @c start the copyright page. @page @vskip 0pt plus 1filll Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Copyright @copyright{} 1993 Cygnus Support @end titlepage @ifinfo @node Top, Overview, (dir), (dir) This info file documents libgdb: an API for GDB, the GNU symbolic debugger. @menu * Overview:: The basics of libgdb and this document. * Interpreter:: Libgdb is an Interpreter-Based Server. * Top Level:: You Provide the Top Level for the Libgdb Command Interpreter . * I/O:: How the Server's I/O Can be Used. * Invoking:: Invoking the Interpreter, Executing Commands. * Defining Commands:: How New Commands are Created. * Variables:: How Builtin Variables are Defined. * Asynchronous:: Scheduling Asynchronous Computations. * Commands:: Debugger Commands for Libgdb Applications @end menu @end ifinfo @node Overview, Interpreter, top, top @comment node-name, next, previous, up @chapter Overview @cindex overview @cindex definitions @heading Function and Purpose Libgdb is a package which provides an API to the functionality of GDB, the GNU symbolic debugger. It is specifically intended to support the development of a symbolic debugger with a graphic interface. @heading This Document This document is a specification of the libgdb API. It is written in the form of a programmer's manual. So the goal of this document is to explain what functions make up the API, and how they can be used in a running application. @heading Terminology In this document, @dfn{libgdb} refers to a library containing the functions defined herein, @dfn{application} refers to any program built with that library. @heading Dependencies Programs which are linked with libgdb must be linked with libbfd, libopcodes, libiberty, and libmmalloc. @heading Acknowledgments Essential contributions to this design were made by Stu Grossman, Jim Kingdon, and Rich Pixley. @node Interpreter, Top Level, Overview, Top @comment node-name, next, previous, up @chapter Libgdb is an Interpreter Based Server @cindex interpreter @cindex server To understand libgdb, it is necessary to understand how the library is structured. Historically, GDB is written as a small interpreter for a simple command language. The commands of the language perform useful debugging functions. Libgdb is built from GDB by turning the interpreter into a debugging server. The server reads debugging commands from any source and interprets them, directing the output arbitrarily. In addition to changing GDB from a tty-based program to a server, a number of new GDB commands have been added to make the server more useful for a program with a graphic interface. Finally, libgdb includes provisions for asynchronous processing within the application. Most operations that can be carried out with libgdb involve the GDB command interpreter. The usual mode of operation is that the operation is expressed as a string of GDB commands, which the interpreter is then invoked to carry out. The output from commands executed in this manner can be redirected in a variety of useful ways for further processing by the application. The command interpreter provides an extensive system of hooks so an application can monitor any aspect of the debugging library's state. An application can set its own breakpoints and attach commands and conditions to those. It is possible to attach hooks to any debugger command; the hooks are invoked whenever that command is about to be invoked. By means of these, the displays of a graphical interface can be kept fully up to date at all times. We show you how to define new primitives in the command language. By defining new primitives and using them in breakpoint scripts and command hooks, an application can schedule the execution of arbitrary C-code at almost any point of interest in the operation of libgdb. We show you how to define new GDB convenience variables for which your code computes a value on demand. Referring to such variables in a breakpoint condition is a convenient way to conditionalize breakpoints in novel ways. To summarize: in libgdb, the gdb command language is turned into a debugging server. The server takes commands as input, and the server's output is redirectable. An application uses libgdb by formatting debugging commands and invoking the interpreter. The application might maintain breakpoints, watchpoints and many kinds of hooks. An application can define new primitives for the interpreter. @node Top Level, I/O, Interpreter, Top @chapter You Provide the Top Level for the Libgdb Command Interpreter @cindex {top level} When you use libgdb, your code is providing a @dfn{top level} for the command language interpreter. The top level is significant because it provides commands for the the interpreter to execute. In addition, the top level is responsible for handling some kinds of errors, and performing certain cleanup operations on behalf of the interpreter. @heading Initialization Before calling any other libgdb functions, call this: @deftypefun void gdb_init (void) Perform one-time initialization for libgdb. @end deftypefun An application may wish to evaluate specific gdb commands as part of its own initialization. The details of how this can be accomplished are explained below. @heading The Top-Level Loop There is a strong presumption in libgdb that the application has the form of a loop. Here is what such a loop might look like: @example while (gdb_still_going ()) @{ if (!GDB_TOP_LEVEL ()) @{ char * command; gdb_start_top_loop (); command = process_events (); gdb_execute_command (command); gdb_finish_top_loop (); @} @} @end example The function @code{gdb_still_going} returns 1 until the gdb command `quit' is run. The macro @code{GDB_TOP_LEVEL} invokes setjmp to set the top level error handler. When a command results in an error, the interpreter exits with a longjmp. There is nothing special libgdb requires of the top level error handler other than it be present and that it restart the top level loop. Errors are explained in detail in a later chapter. Each time through the top level loop two important things happen: a debugger command is constructed on the basis of user input, and the interpreter is invoked to execute that command. In the sample code, the call to the imaginary function @code{process_events} represents the point at which a graphical interface should read input events until ready to execute a debugger command. The call to @code{gdb_execute_command} invokes the command interpreter (what happens to the output from the command will be explained later). Libgdb manages some resources using the top-level loop. The primary reason for this is error-handling: even if a command terminates with an error, it may already have allocated resources which need to be freed. The freeing of such resources takes place at the top-level, regardless of how the the command exits. The calls to @code{gdb_start_top_loop} and @code{gdb_finish_top_loop} let libgdb know when it is safe to perform operations associated with these resources. @heading Breakpoint Commands Breakpoint commands are scripts of GDB operations associated with particular breakpoints. When a breakpoint is reached, its associated commands are executed. Breakpoint commands are invoked by the libgdb function @code{gdb_finish_top_loop}. Notice that if control returns to the top-level error handler, the execution of breakpoint commands is bypassed. This can happen as a result of errors during either @code{gdb_execute_command} or @code{gdb_finish_top_loop}. @heading Application Initialization Sometimes it is inconvenient to execute commands via a command loop for example, the commands an application uses to initialize itself. An alternative to @code{execute_command} is @code{execute_catching_errors}. When @code{execute_catching_errors} is used, no top level error handler need be in effect, and it is not necessary to call @code{gdb_start_top_loop} or @code{gdb_finish_top_loop}. @heading Cleanup The debugger command ``quit'' performs all necessary cleanup for libgdb. After it has done so, it changes the return value of @code{gdb_still_going} to 0 and returns to the top level error handler. @node I/O, Invoking, Top Level, Top @comment node-name, next, previous, up @chapter How the Server's I/O Can be Used @cindex I/O In the last chapter it was pointed out that a libgdb application is responsible for providing commands for the interpreter to execute. However some commands require further input (for example, the ``quit'' command might ask for confirmation). Almost all commands produce output of some kind. The purpose of this section is to explain how libgdb performs its I/O, and how an application can take advantage of this. @heading I/O Vectors Libgdb has no fixed strategy for I/O. Instead, all operations are performed by functions called via structures of function pointers. Applications supply theses structures and can change them at any time. @deftp Type {struct gdb_input_vector} @deftpx Type {struct gdb_output_vector} These structures contain a set of function pointers. Each function determines how a particular type of i/o is performed. The details of these strucutres are explained below. The application allocates these structures, initializes them to all bits zero, fills in the function pointers, and then registers names for them them with libgdb. @end deftp @deftypefun void gdb_name_input_vector (@var{name}, @var{vec}) @deftypefunx void gdb_remove_input_vector (@var{name}, @var{vec}) @deftypefunx void gdb_name_output_vector (@var{name}, @var{vec}) @deftypefunx void gdb_remove_input_vector (@var{name}, @var{vec}) @example char * @var{name}; struct gdb_output_vector * @var{vec}; @end example These functions are used to give and remove names to i/o vectors. Note that if a name is used twice, the most recent definition applies. @end deftypefun @subheading Output An output vector is a structure with at least these fields: @example struct gdb_output_vector @{ /* output */ void (*put_string) (struct gdb_output_vector *, char * str); @} @end example Use the function @code{memset} or something equivalent to initialize an output vector to all bits zero. Then fill in the function pointer with your function. A debugger command can produce three kinds of output: error messages (such as when trying to delete a non-existent breakpoint), informational messages (such as the notification printed when a breakpoint is hit), and the output specifically requested by a command (for example, the value printed by the ``print'' command). At any given time, then, libgdb has three output vectors. These are called the @dfn{error}, @dfn{info}, @dfn{value} vector respectively. @subheading Input @example struct gdb_input_vector @{ int (*query) (struct gdb_input_vector *, char * prompt, int quit_allowed); int * (*selection) (struct gdb_input_vector *, char * prompt, char ** choices); char * (*read_string) (struct gdb_input_vector *, char * prompt); char ** (*read_strings) (struct gdb_input_vector *, char * prompt); @} @end example Use the function @code{memset} or something equivalent to initialize an input vector to all bits zero. Then fill in the function pointers with your functions. There are four kinds of input requests explicitly made by libgdb. A @dfn{query} is a yes or no question. The user can respond to a query with an affirmative or negative answer, or by telling gdb to abort the command (in some cases an abort is not permitted). Query should return 'y' or 'n' or 0 to abort. A @dfn{selection} is a list of options from which the user selects a subset. Selections should return a NULL terminated array of integers, which are indexes into the array of choices. It can return NULL instead to abort the command. The array returned by this function will be passed to @code{free} by libgdb. A @dfn{read_string} asks the user to supply an arbitrary string. It may return NULL to abort the command. The string returned by @code{read_string} should be allocated by @code{malloc}; it will be freed by libgdb. A @dfn{read_strings} asks the user to supply multiple lines of input (for example, the body of a command created using `define'). It, too, may return NULL to abort. The array and the strings returned by this function will be freed by libgdb. @heading I/O Redirection from the Application Top-Level @deftypefun struct gdb_io_vecs gdb_set_io (struct gdb_io_vecs *) @example struct gdb_io_vecs @{ struct gdb_input_vector * input; struct gdb_output_vector * error; struct gdb_output_vector * info; struct gdb_output_vector * value; @} @end example This establishes a new set of i/o vectors, and returns the old setting. Any of the pointers in this structure may be NULL, indicating that the current value should be used. This function is useful for setting up i/o vectors before any libgdb commands have been invoked (hence before any input or output has taken place). @end deftypefun It is explained in a later chapter how to redirect output temporarily. (@xref{Invoking}.) @heading I/O Redirection in Debugger Commands A libgdb application creates input and output vectors and assigns them names. Which input and output vectors are used by libgdb is established by executing these debugger commands: @defun {set input-vector} name @defunx {set error-output-vector} name @defunx {set info-output-vector} name @defunx {set value-output-vector} name Choose an I/O vector by name. @end defun A few debugger commands are for use only within commands defined using the debugger command `define' (they have no effect at other times). These commands exist so that an application can maintain hooks which redirect output without affecting the global I/O vectors. @defun with-input-vector name @defunx with-error-output-vector name @defunx with-info-output-vector name @defunx with-value-output-vector name Set an I/O vector, but only temporarily. The setting has effect only within the command definition in which it occurs. @end defun @heading Initial Conditions When libgdb is initialized, a set of default I/O vectors is put in place. The default vectors are called @code{default-input-vector}, @code{default-output-vector}, &c. The default query function always returns `y'. Other input functions always abort. The default output functions discard output silently. @node Invoking, Defining Commands, I/O, Top @chapter Invoking the Interpreter, Executing Commands @cindex {executing commands} @cindex {invoking the interpreter} This section introduces the libgdb functions which invoke the command interpreter. @deftypefun void gdb_execute_command (@var{command}) @example char * @var{command}; @end example Interpret the argument debugger command. An error handler must be set when this function is called. (@xref{Top Level}.) @end deftypefun It is possible to override the current I/O vectors for the duration of a single command: @deftypefun void gdb_execute_with_io (@var{command}, @var{vecs}) @example char * @var{command}; struct gdb_io_vecs * @var{vecs}; struct gdb_io_vecs @{ struct gdb_input_vector * input; struct gdb_output_vector * error; struct gdb_output_vector * info; struct gdb_output_vector * value; @} @end example Execute @var{command}, temporarily using the i/o vectors in @var{vecs}. Any of the vectors may be NULL, indicating that the current value should be used. An error handler must be in place when this function is used. @end deftypefun @deftypefun {struct gdb_str_output} gdb_execute_for_strings (@var{cmd}) @example char * cmd; @end example @deftypefunx {struct gdb_str_output} gdb_execute_for_strings2 (@var{cmd}, @var{input}) @example char * cmd; struct gdb_input_vector * input; @end example @page @example struct gdb_str_output @{ char * error; char * info; char * value; @}; @end example Execute @var{cmd}, collecting its output as strings. If no error occurs, all three strings will be present in the structure, the empty-string rather than NULL standing for no output of a particular kind. If the command aborts with an error, then the @code{value} field will be NULL, though the other two strings will be present. In all cases, the strings returned are allocated by malloc and should be freed by the caller. The first form listed uses the current input vector, but overrides the current output vector. The second form additionally allows the input vector to be overridden. This function does not require that an error handler be installed. @end deftypefun @deftypefun void execute_catching_errors (@var{command}) @example char * @var{command}; @end example Like @code{execute_command} except that no error handler is required. @end deftypefun @deftypefun void execute_with_text (@var{command}, @var{text}) @example char * @var{command}; char ** @var{text}; @end example Like @code{execute_catching_errors}, except that the input vector is overridden. The new input vector handles only calls to @code{query} (by returning 'y') and calls to @code{read_strings} by returning a copy of @var{text} and the strings it points to. This form of execute_command is useful for commands like @code{define}, @code{document}, and @code{commands}. @end deftypefun @node Defining Commands, Variables, Invoking, Top @comment node-name, next, previous, up @chapter How New Commands are Created @cindex {commands, defining} Applications are, of course, free to take advantage of the existing GDB macro definition capability (the @code{define} and @code{document} functions). In addition, an application can add new primitives to the GDB command language. @deftypefun void gdb_define_app_command (@var{name}, @var{fn}, @var{doc}) @example char * @var{name}; gdb_cmd_fn @var{fn}; char * @var{doc}; typedef void (*gdb_cmd_fn) (char * args); @end example Create a new command call @var{name}. The new command is in the @code{application} help class. When invoked, the command-line arguments to the command are passed as a single string. Calling this function twice with the same name replaces an earlier definition, but application commands can not replace builtin commands of the same name. The documentation string of the command is set to a copy the string @var{doc}. @end deftypefun @node Variables, Asynchronous, Defining Commands, Top @comment node-name, next, previous, up @chapter How Builtin Variables are Defined @cindex {variables, defining} Convenience variables provide a way for values maintained by libgdb to be referenced in expressions (e.g. @code{$bpnum}). Libgdb includes a means by which the application can define new, integer valued convenience variables: @page @deftypefun void gdb_define_int_var (@var{name}, @var{fn}, @var{fn_arg}) @example char * @var{name}; int (*@var{fn}) (void *); void * @var{fn_arg}; @end example This function defines (or undefines) a convenience variable called @var{name}. If @var{fn} is NULL, the variable becomes undefined. Otherwise, @var{fn} is a function which, when passed @var{fn_arg} returns the value of the newly defined variable. No libgdb functions should be called by @var{fn}. @end deftypefun One use for this function is to create breakpoint conditions computed in novel ways. This is done by defining a convenience variable and referring to that variable in a breakpoint condition expression. @node Asynchronous, Commands, Variables, Top @chapter Scheduling Asynchronous Computations @cindex asynchronous A running libgdb function can take a long time. Libgdb includes a hook so that an application can run intermittently during long debugger operations. @deftypefun void gdb_set_poll_fn (@var{fn}, @var{fn_arg}) @example void (*@var{fn})(void * fn_arg, int (*gdb_poll)()); void * @var{fn_arg}; @end example Arrange to call @var{fn} periodically during lengthy debugger operations. If @var{fn} is NULL, polling is turned off. @var{fn} should take two arguments: an opaque pointer passed as @var{fn_arg} to @code{gdb_set_poll_fn}, and a function pointer. The function pointer passed to @var{fn} is provided by libgdb and points to a function that returns 0 when the poll function should return. That is, when @code{(*gdb_poll)()} returns 0, libgdb is ready to continue @var{fn} should return quickly. It is possible that @code{(*gdb_poll)()} will return 0 the first time it is called, so it is reasonable for an application to do minimal processing before checking whether to return. No libgdb functions should be called from an application's poll function, with one exception: @code{gdb_request_quit}. @end deftypefun @deftypefun void gdb_request_quit (void) This function, if called from a poll function, requests that the currently executing libgdb command be interrupted as soon as possible, and that control be returned to the top-level via an error. The quit is not immediate. It will not occur until at least after the application's poll function returns. @end deftypefun @node Commands, Top, Asynchronous, Top @comment node-name, next, previous, up @chapter Debugger Commands for Libgdb Applications The debugger commands available to libgdb applications are the same commands available interactively via GDB. This section is an overview of the commands newly created as part of libgdb. This section is not by any means a complete reference to the GDB command language. See the GDB manual for such a reference. @menu * Command Hooks:: Setting Hooks to Execute With Debugger Commands. * View Commands:: View Commands Mirror Show Commands * Breakpoints:: The Application Can Have Its Own Breakpoints @end menu @node Command Hooks, View Commands, Commands, Commands @comment node-name, next, previous, up @section Setting Hooks to Execute With Debugger Commands. Debugger commands support hooks. A command hook is executed just before the interpreter invokes the hooked command. There are two hooks allowed for every command. By convention, one hook is for use by users, the other is for use by the application. A user hook is created for a command XYZZY by using @code{define-command} to create a command called @code{hook-XYZZY}. An application hook is created for a command XYZZY by using @code{define-command} to create a command called @code{apphook-XYZZY}. Application hooks are useful for interfaces which wish to continuously monitor certain aspects of debugger state. The application can set a hook on all commands that might modify the watched state. When the hook is executed, it can use i/o redirection to notify parts of the application that previous data may be out of date. After the top-level loop resumes, the application can recompute any values that may have changed. (@xref{I/O}.) @node View Commands, Breakpoints, Command Hooks, Commands @comment node-name, next, previous, up @section View Commands Mirror Show Commands The GDB command language contains many @code{set} and @code{show} commands. These commands are used to modify or examine parameters to the debugger. It is difficult to get the current state of a parameter from the @code{show} command because @code{show} is very verbose. @example (gdb) show check type Type checking is "auto; currently off". (gdb) show width Number of characters gdb thinks are in a line is 80. @end example For every @code{show} command, libgdb includes a @code{view} command. @code{view} is like @code{show} without the verbose commentary: @example (gdb) view check type auto; currently off (gdb) view width 80 @end example (The precise format of the ouput from @code{view} is subject to change. In particular, @code{view} may one-day print values which can be used as arguments to the corresponding @code{set} command.) @node Breakpoints, Structured Output, View Commands, Commands @comment node-name, next, previous, up @section The Application Can Have Its Own Breakpoints The GDB breakpoint commands were written with a strong presumption that all breakpoints are managed by a human user. Therefore, the command language contains commands like `delete' which affect all breakpoints without discrimination. In libgdb, there is added support for breakpoints and watchpoints which are set by the application and which should not be affected by ordinary, indiscriminate commands. These are called @dfn{protected} breakpoints. @deffn {Debugger Command} break-protected ... @deffnx {Debugger Command} watch-protected ... These work like @code{break} and @code{watch} except that the resulting breakpoint is given a negative number. Negative numbered breakpoints do not appear in the output of @code{info breakpoints} but do in that of @code{info all-breakpoints}. Negative numbered breakpoints are not affected by commands which ordinarily affect `all' breakpoints (e.g. @code{delete} with no arguments). Note that libgdb itself creates protected breakpoints, so programs should not rely on being able to allocate particular protected breakpoint numbers for themselves. @end deffn More than one breakpoint may be set at a given location. Libgdb adds the concept of @dfn{priority} to breakpoints. A priority is an integer, assigned to each breakpoint. When a breakpoint is reached, the conditions of all breakpoints at the same location are evaluated in order of ascending priority. When breakpoint commands are executed, they are also executed in ascending priority (until all have been executed, an error occurs, or one set of commands continues the target). @deffn {Debugger Command} priority n bplist Set the priority for breakpoints @var{bplist} to @var{n}. By default, breakpoints are assigned a priority of zero. @end deffn @node Structured Output, Commands, Breakpoints, Commands @comment node-name, next, previous, up @section Structured Output, The @code{Explain} Command (This section may be subject to considerable revision.) When GDB prints a the value of an expression, the printed representation contains information that can be usefully fed back into future commands and expressions. For example, @example (gdb) print foo $16 = @{v = 0x38ae0, v_length = 40@} @end example On the basis of this output, a user knows, for example, that @code{$16.v} refers to a pointer valued @code{0x38ae0} A new output command helps to make information like this available to the application. @deffn {Debugger Command} explain expression @deffnx {Debugger Command} explain /format expression Print the value of @var{expression} in the manner of the @code{print} command, but embed that output in a list syntax containing information about the structure of the output. @end deffn As an example, @code{explain argv} might produce this output: @example (exp-attribute ((expression "$19") (type "char **") (address "48560") (deref-expression "*$19")) "$19 = 0x3800\n") @end example The syntax of output from @code{explain} is: @example := | (exp-concat *) | (exp-attribute ) := ( * ) := ( ) @end example The string-concatenation of all of the @code{} (except those in property lists) yields the output generated by the equivalent @code{print} command. Quoted strings may contain quotes and backslashes if they are escaped by backslash. "\n" in a quoted string stands for newline; unescaped newlines do not occur within the strings output by @code{explain}. Property names are made up of alphabetic characters, dashes, and underscores. The set of properties is open-ended. As GDB acquires support for new source languages and other new capabilities, new property types may be added to the output of this command. Future commands may offer applications some selectivity concerning which properties are reported. The initial set of properties defined includes: @itemize @bullet @item @code{expression} This is an expression, such as @code{$42} or @code{$42.x}. The expression can be used to refer to the value printed in the attributed part of the string. @item @code{type} This is a user-readable name for the type of the attributed value. @item @code{address} If the value is stored in a target register, this is a register number. If the value is stored in a GDB convenience variable, this is an integer that is unique among all the convenience variables. Otherwise, this is the address in the target where the value is stored. @item @code{deref-expression} If the attributed value is a pointer type, this is an expression that refers to the dereferenced value. @end itemize Here is a larger example, using the same object passed to @code{print} in an earlier example of this section. @example (gdb) explain foo (exp-attribute ( (expression "$16") (type "struct bytecode_vector") (address 14336) ) (exp-concat "$16 = @{" (exp-attribute ( (expression "$16.v") (type "char *") (address 14336) (deref-expression "*$16.v") ) "v = 0x38ae0") (exp-attribute ( (expression "$16.v_length") (type "int") (address 14340) ) ", v_length = 40") "@}\n")) @end example It is undefined how libgdb will indent these lines of output or where newlines will be included. @bye gdb-4.13/gdb/doc/lpsrc.sed 666 34562 1752 1016 5135137464 13664 0ustar fnfcygnus/font defs: ---/,/end font defs ---/c\ %-------------------- PostScript (long names) font defs: -----------------\ \\font\\bbf=Times-Bold at 10pt\ \\font\\vbbf=Times-Bold at 12pt\ \\font\\smrm=Times-Roman at 6pt\ \\font\\brm=Times-Roman at 10pt\ \\font\\rm=Times-Roman at 8pt\ \\font\\it=Times-Italic at 8pt\ \\font\\tt=Courier at 8pt\ % Used only for \copyright, replacing plain TeX macro.\ \\font\\sym=Symbol at 7pt\ \\def\\copyright{{\\sym\\char'323}}\ %-------------------- end font defs --------------------------------- gdb-4.13/gdb/doc/psrc.sed 666 34562 1752 741 5135137466 13476 0ustar fnfcygnus/font defs: ---/,/end font defs ---/c\ %-------------------- PostScript (K Berry names) font defs: --------------\ \\font\\bbf=ptmb at 10pt\ \\font\\vbbf=ptmb at 12pt\ \\font\\smrm=ptmr at 6pt\ \\font\\brm=ptmr at 10pt\ \\font\\rm=ptmr at 8pt\ \\font\\it=ptmri at 8pt\ \\font\\tt=pcrr at 8pt\ % Used only for \copyright, replacing plain TeX macro.\ \\font\\sym=psyr at 7pt\ \\def\\copyright{{\\sym\\char'323}}\ %-------------------- end font defs --------------------------------- gdb-4.13/gdb/doc/refcard.tex 666 34562 1752 55104 5474756657 14244 0ustar fnfcygnus%%%%%%%%%%%%%%%% gdb-refcard.tex %%%%%%%%%%%%%%%% %This file is TeX source for a reference card describing GDB, the GNU debugger. %Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc. %Permission is granted to make and distribute verbatim copies of %this reference provided the copyright notices and permission notices %are preserved on all copies. % %TeX markup is a programming language; accordingly this file is source %for a program to generate a reference. % %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 1, 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 can find a copy of the GNU General Public License in the GDB %manual; or write to the Free Software Foundation, Inc., %675 Mass Ave, Cambridge, MA 02139, USA. % %You can contact the author as: pesch@cygnus.com % % Roland Pesch % Cygnus Support % 1937 Landings Drive % Mountain View, CA 94043 USA % % +1 415 903 1400 % % % % 22-AUG-1993 Andreas Vogel % % Modifications made in order to handle different papersizes correctly. % You only have to set the total width and height of the paper, the % horizontal and vertical margin space measured from *paper edge* % and the interline and interspec spacing. % In order to support a new papersize, you have to fiddle with the % latter four dimensions. Just try out a few values. % All other values will be computed at process time so it should be % quite easy to support different paper sizes - only four values to % guess :-) % % To find the configuration places, just search for the string % "CONFIGURATION". % % Andreas Vogel (av@ssw.de) % % % % Uncomment the following `magnification' command if you want to print % out in a larger font. Caution! You may need larger paper. You had % best avoid using 3-column output if you try this. See the ``Three % column format'' section below if you want to print in three column % format. % %\magnification=\magstep 1 % % NOTE ON INTENTIONAL OMISSIONS: This reference card includes most GDB % commands, but due to space constraints there are some things I chose % to omit. In general, not all synonyms for commands are covered, nor % all variations of a command. % The GDB-under-Emacs section omits gdb-mode functions without default % keybindings. GDB startup options are not described. % set print sevenbit-strings, set symbol-reloading omitted. % printsyms, printpsyms, omitted since they're for GDB maintenance primarily % share omitted due to obsolescence % set check range/type omitted at least til code is in GDB. % %-------------------- Three column format ----------------------- %%%% --- To disable three column format, comment out this entire section % Three-column format for landscape printing %-------- Papersize defs: \newdimen\totalwidth \newdimen\totalheight \newdimen\hmargin \newdimen\vmargin \newdimen\secskip \newdimen\lskip \newdimen\barwidth \newdimen\barheight \newdimen\intersecwidth %% %% START CONFIGURATION - PAPERSIZE DEFINITIONS %------- Papersize params: %% US letter paper (8.5x11in) %% \totalwidth=11in % total width of paper \totalheight=8.5in % total height of paper \hmargin=.25in % horizontal margin width \vmargin=.25in % vertical margin width \secskip=1pc % space between refcard secs \lskip=2pt % extra skip between \sec entries %------- end papersize params %% %% change according to personal taste, not papersize dependent %% \barwidth=.1pt % width of the cropmark bar \barheight=2pt % height of the cropmark bar \intersecwidth=0.5em % width between \itmwid and \dfnwid %% %% END CONFIGURATION - PAPERSIZE DEFINITIONS %% %% %% values to be computed - nothing to configure %% \newdimen\fullhsize % width of area without margins \newdimen\itmwid % width of item column \newdimen\dfnwid % width of definition column \newdimen\temp % only for temporary use %% %% adjust the offsets so the margins are measured *from paper edge* %% \hoffset=-1in \advance \hoffset by \hmargin \voffset=-1in \advance \voffset by \vmargin %% %% fullhsize = totalwidth - (2 * hmargin) %% \fullhsize=\totalwidth \temp=\hmargin \multiply \temp by 2 \advance \fullhsize by -\temp %% %% hsize = (fullhsize - (4 * hmargin) - (2 * barwidth)) / 3 %% \hsize=\fullhsize \temp=\hmargin \multiply \temp by 4 \advance \hsize by -\temp \temp=\barwidth \multiply \temp by 2 \advance \hsize by -\temp \divide \hsize by 3 %% %% vsize = totalheight - (2 * vmargin) %% \vsize=\totalheight \temp=\vmargin \multiply \temp by 2 \advance \vsize by -\temp %% %% itmwid = (hsize - intersecwidth) * 1/3 %% dfnwid = (hsize - intersecwidth) * 2/3 %% \temp=\hsize \advance \temp by -\intersecwidth \divide \temp by 3 \itmwid=\temp \dfnwid=\hsize \advance \dfnwid by -\itmwid %-------- end papersize defs \def\fulline{\hbox to \fullhsize} \let\lcr=L \newbox\leftcolumn\newbox\centercolumn \output={\if L\lcr \global\setbox\leftcolumn=\columnbox \global\let\lcr=C \else \if C\lcr \global\setbox\centercolumn=\columnbox \global\let\lcr=R \else \tripleformat \global\let\lcr=L \fi \fi % \ifnum\outputpenalty>-20000 \else\dosupereject\fi } %% %% START CONFIGURATION - ALTERNATIVE FOLDING GUIDES %% %% For NO printed folding guide, %% comment out other \def\vdecor's and uncomment: %\def\vdecor{\hskip\hmargin plus1fil\hskip\barwidth plus1fil\hskip\hmargin plus1fil} %% For SOLID LINE folding guide, %% comment out other \def\vdecor's and uncomment: %\def\vdecor{\hskip\hmargin plus1fil \vrule width \barwidth \hskip\hmargin plus1fil} %% For SMALL MARKS NEAR TOP AND BOTTOM as folding guide, %% comment out other \def\vdecor's and uncomment: \def\vdecor{\hskip\hmargin plus1fil \vbox to \vsize{\hbox to \barwidth{\vrule height\barheight width\barwidth}\vfill \hbox to \barwidth{\vrule height\barheight width\barwidth}}%THIS PERCENT SIGN IS ESSENTIAL \hskip\hmargin plus1fil} %% %% END CONFIGURATION - ALTERNATIVES FOR FOLDING GUIDES %% \def\tripleformat{\shipout\vbox{\fulline{\box\leftcolumn\vdecor \box\centercolumn\vdecor \columnbox} } \advancepageno} \def\columnbox{\leftline{\pagebody}} \def\bye{\par\vfill \supereject \if R\lcr \null\vfill\eject\fi \end} %-------------------- end three column format ----------------------- %-------------------- Computer Modern font defs: -------------------- \font\bbf=cmbx10 \font\vbbf=cmbx12 \font\smrm=cmr6 \font\brm=cmr10 \font\rm=cmr7 \font\it=cmti7 \font\tt=cmtt8 %-------------------- end font defs --------------------------------- % \hyphenpenalty=5000\tolerance=2000\raggedright\raggedbottom \normalbaselineskip=9pt\baselineskip=9pt % \parindent=0pt \parskip=0pt \footline={\vbox to0pt{\hss}} % \def\ctl#1{{\tt C-#1}} \def\opt#1{{\brm[{\rm #1}]}} \def\xtra#1{\noalign{\smallskip{\tt#1}}} % \long\def\sec#1;#2\endsec{\vskip \secskip \halign{% %COL 1 (of halign): \vtop{\hsize=\itmwid\tt ##\par\vskip \lskip }\hfil %COL 2 (of halign): &\vtop{\hsize=\dfnwid\hangafter=1\hangindent=\intersecwidth \rm ##\par\vskip \lskip}\cr %Tail of \long\def fills in halign body with \sec args: \noalign{{\bbf #1}\vskip \lskip} #2 } } {\vbbf GDB QUICK REFERENCE}\hfil{\smrm GDB Version 4}\qquad \sec Essential Commands; gdb {\it program} \opt{{\it core}}&debug {\it program} \opt{using coredump {\it core}}\cr b \opt{\it file\tt:}{\it function}&set breakpoint at {\it function} \opt{in \it file}\cr run \opt{{\it arglist}}&start your program \opt{with {\it arglist}}\cr bt& backtrace: display program stack\cr p {\it expr}&display the value of an expression\cr c &continue running your program\cr n &next line, stepping over function calls\cr s &next line, stepping into function calls\cr \endsec \sec Starting GDB; gdb&start GDB, with no debugging files\cr gdb {\it program}&begin debugging {\it program}\cr gdb {\it program core}&debug coredump {\it core} produced by {\it program}\cr gdb --help&describe command line options\cr \endsec \sec Stopping GDB; quit&exit GDB; also {\tt q} or {\tt EOF} (eg \ctl{d})\cr INTERRUPT&(eg \ctl{c}) terminate current command, or send to running process\cr \endsec \sec Getting Help; help&list classes of commands\cr help {\it class}&one-line descriptions for commands in {\it class}\cr help {\it command}&describe {\it command}\cr \endsec \sec Executing your Program; run {\it arglist}&start your program with {\it arglist}\cr run&start your program with current argument list\cr run $\ldots$ <{\it inf} >{\it outf}&start your program with input, output redirected\cr \cr kill&kill running program\cr \cr tty {\it dev}&use {\it dev} as stdin and stdout for next {\tt run}\cr set args {\it arglist}&specify {\it arglist} for next {\tt run}\cr set args&specify empty argument list\cr show args&display argument list\cr \cr show env&show all environment variables\cr show env {\it var}&show value of environment variable {\it var}\cr set env {\it var} {\it string}&set environment variable {\it var}\cr unset env {\it var}&remove {\it var} from environment\cr \endsec \sec Shell Commands; cd {\it dir}&change working directory to {\it dir}\cr pwd&Print working directory\cr make $\ldots$&call ``{\tt make}''\cr shell {\it cmd}&execute arbitrary shell command string\cr \endsec \vfill \line{\smrm \opt{ } surround optional arguments \hfill $\ldots$ show one or more arguments} \vskip\baselineskip \centerline{\smrm \copyright 1991, 1992, 1993 Free Software Foundation, Inc.\qquad Permissions on back} \eject \sec Breakpoints and Watchpoints; break \opt{\it file\tt:}{\it line}\par b \opt{\it file\tt:}{\it line}&set breakpoint at {\it line} number \opt{in \it file}\par eg:\quad{\tt break main.c:37}\quad\cr break \opt{\it file\tt:}{\it func}&set breakpoint at {\it func} \opt{in \it file}\cr break +{\it offset}\par break -{\it offset}&set break at {\it offset} lines from current stop\cr break *{\it addr}&set breakpoint at address {\it addr}\cr break&set breakpoint at next instruction\cr break $\ldots$ if {\it expr}&break conditionally on nonzero {\it expr}\cr cond {\it n} \opt{\it expr}&new conditional expression on breakpoint {\it n}; make unconditional if no {\it expr}\cr tbreak $\ldots$&temporary break; disable when reached\cr rbreak {\it regex}&break on all functions matching {\it regex}\cr watch {\it expr}&set a watchpoint for expression {\it expr}\cr catch {\it x}&break at C++ handler for exception {\it x}\cr \cr info break&show defined breakpoints\cr info watch&show defined watchpoints\cr \cr clear&delete breakpoints at next instruction\cr clear \opt{\it file\tt:}{\it fun}&delete breakpoints at entry to {\it fun}()\cr clear \opt{\it file\tt:}{\it line}&delete breakpoints on source line \cr delete \opt{{\it n}}&delete breakpoints \opt{or breakpoint {\it n}}\cr \cr disable \opt{{\it n}}&disable breakpoints \opt{or breakpoint {\it n}} \cr enable \opt{{\it n}}&enable breakpoints \opt{or breakpoint {\it n}} \cr enable once \opt{{\it n}}&enable breakpoints \opt{or breakpoint {\it n}}; disable again when reached \cr enable del \opt{{\it n}}&enable breakpoints \opt{or breakpoint {\it n}}; delete when reached \cr \cr ignore {\it n} {\it count}&ignore breakpoint {\it n}, {\it count} times\cr \cr commands {\it n}\par \qquad \opt{\tt silent}\par \qquad {\it command-list}&execute GDB {\it command-list} every time breakpoint {\it n} is reached. \opt{{\tt silent} suppresses default display}\cr end&end of {\it command-list}\cr \endsec \sec Program Stack; backtrace \opt{\it n}\par bt \opt{\it n}&print trace of all frames in stack; or of {\it n} frames---innermost if {\it n}{\tt >0}, outermost if {\it n}{\tt <0}\cr frame \opt{\it n}&select frame number {\it n} or frame at address {\it n}; if no {\it n}, display current frame\cr up {\it n}&select frame {\it n} frames up\cr down {\it n}&select frame {\it n} frames down\cr info frame \opt{\it addr}&describe selected frame, or frame at {\it addr}\cr info args&arguments of selected frame\cr info locals&local variables of selected frame\cr info reg \opt{\it rn}$\ldots$\par info all-reg \opt{\it rn}®ister values \opt{for regs {\it rn\/}} in selected frame; {\tt all-reg} includes floating point\cr info catch&exception handlers active in selected frame\cr \endsec \vfill\eject \sec Execution Control; continue \opt{\it count}\par c \opt{\it count}&continue running; if {\it count} specified, ignore this breakpoint next {\it count} times\cr \cr step \opt{\it count}\par s \opt{\it count}&execute until another line reached; repeat {\it count} times if specified\cr stepi \opt{\it count}\par si \opt{\it count}&step by machine instructions rather than source lines\cr \cr next \opt{\it count}\par n \opt{\it count}&execute next line, including any function calls\cr nexti \opt{\it count}\par ni \opt{\it count}&next machine instruction rather than source line\cr \cr until \opt{\it location}&run until next instruction (or {\it location})\cr finish&run until selected stack frame returns\cr return \opt{\it expr}&pop selected stack frame without executing \opt{setting return value}\cr signal {\it num}&resume execution with signal {\it s} (none if {\tt 0})\cr jump {\it line}\par jump *{\it address}&resume execution at specified {\it line} number or {\it address}\cr set var={\it expr}&evaluate {\it expr} without displaying it; use for altering program variables\cr \endsec \sec Display; print \opt{\tt/{\it f}\/} \opt{\it expr}\par p \opt{\tt/{\it f}\/} \opt{\it expr}&show value of {\it expr} \opt{or last value \tt \$} according to format {\it f}:\cr \qquad x&hexadecimal\cr \qquad d&signed decimal\cr \qquad u&unsigned decimal\cr \qquad o&octal\cr \qquad t&binary\cr \qquad a&address, absolute and relative\cr \qquad c&character\cr \qquad f&floating point\cr call \opt{\tt /{\it f}\/} {\it expr}&like {\tt print} but does not display {\tt void}\cr x \opt{\tt/{\it Nuf}\/} {\it expr}&examine memory at address {\it expr}; optional format spec follows slash\cr \quad {\it N}&count of how many units to display\cr \quad {\it u}&unit size; one of\cr &{\tt\qquad b}\ individual bytes\cr &{\tt\qquad h}\ halfwords (two bytes)\cr &{\tt\qquad w}\ words (four bytes)\cr &{\tt\qquad g}\ giant words (eight bytes)\cr \quad {\it f}&printing format. Any {\tt print} format, or\cr &{\tt\qquad s}\ null-terminated string\cr &{\tt\qquad i}\ machine instructions\cr disassem \opt{\it addr}&display memory as machine instructions\cr \endsec \sec Automatic Display; display \opt{\tt/\it f\/} {\it expr}&show value of {\it expr} each time program stops \opt{according to format {\it f}\/}\cr display&display all enabled expressions on list\cr undisplay {\it n}&remove number(s) {\it n} from list of automatically displayed expressions\cr disable disp {\it n}&disable display for expression(s) number {\it n}\cr enable disp {\it n}&enable display for expression(s) number {\it n}\cr info display&numbered list of display expressions\cr \endsec \vfill\eject \sec Expressions; {\it expr}&an expression in C, C++, or Modula-2 (including function calls), or:\cr {\it addr\/}@{\it len}&an array of {\it len} elements beginning at {\it addr}\cr {\it file}::{\it nm}&a variable or function {\it nm} defined in {\it file}\cr $\tt\{${\it type}$\tt\}${\it addr}&read memory at {\it addr} as specified {\it type}\cr \$&most recent displayed value\cr \${\it n}&{\it n}th displayed value\cr \$\$&displayed value previous to \$\cr \$\${\it n}&{\it n}th displayed value back from \$\cr \$\_&last address examined with {\tt x}\cr \$\_\_&value at address \$\_\cr \${\it var}&convenience variable; assign any value\cr \cr show values \opt{{\it n}}&show last 10 values \opt{or surrounding \${\it n}}\cr show conv&display all convenience variables\cr \endsec \sec Symbol Table; info address {\it s}&show where symbol {\it s} is stored\cr info func \opt{\it regex}&show names, types of defined functions (all, or matching {\it regex})\cr info var \opt{\it regex}&show names, types of global variables (all, or matching {\it regex})\cr whatis \opt{\it expr}\par ptype \opt{\it expr}&show data type of {\it expr} \opt{or \tt \$} without evaluating; {\tt ptype} gives more detail\cr ptype {\it type}&describe type, struct, union, or enum\cr \endsec \sec GDB Scripts; source {\it script}&read, execute GDB commands from file {\it script}\cr \cr define {\it cmd}\par \qquad {\it command-list}&create new GDB command {\it cmd}; execute script defined by {\it command-list}\cr end&end of {\it command-list}\cr document {\it cmd}\par \qquad {\it help-text}&create online documentation for new GDB command {\it cmd}\cr end&end of {\it help-text}\cr \endsec \sec Signals; handle {\it signal} {\it act}&specify GDB actions for {\it signal}:\cr \quad print&announce signal\cr \quad noprint&be silent for signal\cr \quad stop&halt execution on signal\cr \quad nostop&do not halt execution\cr \quad pass&allow your program to handle signal\cr \quad nopass&do not allow your program to see signal\cr info signals&show table of signals, GDB action for each\cr \endsec \sec Debugging Targets; target {\it type} {\it param}&connect to target machine, process, or file\cr help target&display available targets\cr attach {\it param}&connect to another process\cr detach&release target from GDB control\cr \endsec \vfill\eject \sec Controlling GDB; set {\it param} {\it value}&set one of GDB's internal parameters\cr show {\it param}&display current setting of parameter\cr \xtra{\rm Parameters understood by {\tt set} and {\tt show}:} \quad complaint {\it limit}&number of messages on unusual symbols\cr \quad confirm {\it on/off}&enable or disable cautionary queries\cr \quad editing {\it on/off}&control {\tt readline} command-line editing\cr \quad height {\it lpp}&number of lines before pause in display\cr \quad language {\it lang}&Language for GDB expressions ({\tt auto}, {\tt c} or {\tt modula-2})\cr \quad listsize {\it n}&number of lines shown by {\tt list}\cr \quad prompt {\it str}&use {\it str} as GDB prompt\cr \quad radix {\it base}&octal, decimal, or hex number representation\cr \quad verbose {\it on/off}&control messages when loading symbols\cr \quad width {\it cpl}&number of characters before line folded\cr \quad write {\it on/off}&Allow or forbid patching binary, core files (when reopened with {\tt exec} or {\tt core}) \cr \quad history $\ldots$\par \quad h $\ldots$&groups with the following options:\cr \quad h exp {\it off/on}&disable/enable {\tt readline} history expansion\cr \quad h file {\it filename}&file for recording GDB command history\cr \quad h size {\it size}&number of commands kept in history list\cr \quad h save {\it off/on}&control use of external file for command history\cr \cr \quad print $\ldots$\par \quad p $\ldots$&groups with the following options:\cr \quad p address {\it on/off}&print memory addresses in stacks, values\cr \quad p array {\it off/on}&compact or attractive format for arrays\cr \quad p demangl {\it on/off}&source (demangled) or internal form for C++ symbols\cr \quad p asm-dem {\it on/off}&demangle C++ symbols in machine-instruction output\cr \quad p elements {\it limit}&number of array elements to display\cr \quad p object {\it on/off}&print C++ derived types for objects\cr \quad p pretty {\it off/on}&struct display: compact or indented\cr \quad p union {\it on/off}&display of union members\cr \quad p vtbl {\it off/on}&display of C++ virtual function tables\cr \cr show commands&show last 10 commands\cr show commands {\it n}&show 10 commands around number {\it n}\cr show commands +&show next 10 commands\cr \endsec \sec Working Files; file \opt{\it file}&use {\it file} for both symbols and executable; with no arg, discard both\cr core \opt{\it file}&read {\it file} as coredump; or discard\cr exec \opt{\it file}&use {\it file} as executable only; or discard\cr symbol \opt{\it file}&use symbol table from {\it file}; or discard\cr load {\it file}&dynamically link {\it file\/} and add its symbols\cr add-sym {\it file} {\it addr}&read additional symbols from {\it file}, dynamically loaded at {\it addr}\cr info files&display working files and targets in use\cr path {\it dirs}&add {\it dirs} to front of path searched for executable and symbol files\cr show path&display executable and symbol file path\cr info share&list names of shared libraries currently loaded\cr \endsec \vfill\eject \sec Source Files; dir {\it names}&add directory {\it names} to front of source path\cr dir&clear source path\cr show dir&show current source path\cr \cr list&show next ten lines of source\cr list -&show previous ten lines\cr list {\it lines}&display source surrounding {\it lines}, specified as:\cr \quad{\opt{\it file\tt:}\it num}&line number \opt{in named file}\cr \quad{\opt{\it file\tt:}\it function}&beginning of function \opt{in named file}\cr \quad{\tt +\it off}&{\it off} lines after last printed\cr \quad{\tt -\it off}&{\it off} lines previous to last printed\cr \quad{\tt*\it address}&line containing {\it address}\cr list {\it f},{\it l}&from line {\it f} to line {\it l}\cr info line {\it num}&show starting, ending addresses of compiled code for source line {\it num}\cr info source&show name of current source file\cr info sources&list all source files in use\cr forw {\it regex}&search following source lines for {\it regex}\cr rev {\it regex}&search preceding source lines for {\it regex}\cr \endsec \sec GDB under GNU Emacs; M-x gdb&run GDB under Emacs\cr \ctl{h} m&describe GDB mode\cr M-s&step one line ({\tt step})\cr M-n&next line ({\tt next})\cr M-i&step one instruction ({\tt stepi})\cr \ctl{c} \ctl{f}&finish current stack frame ({\tt finish})\cr M-c&continue ({\tt cont})\cr M-u&up {\it arg} frames ({\tt up})\cr M-d&down {\it arg} frames ({\tt down})\cr \ctl{x} \&© number from point, insert at end\cr \ctl{x} SPC&(in source file) set break at point\cr \endsec \sec GDB License; show copying&Display GNU General Public License\cr show warranty&There is NO WARRANTY for GDB. Display full no-warranty statement.\cr \endsec \vfill {\smrm\parskip=6pt \centerline{Copyright \copyright 1991, 1992, 1993 Free Software Foundation, Inc.} \centerline{Roland Pesch (pesch@cygnus.com)} \centerline{The author assumes no responsibility for any errors on this card.} This card may be freely distributed under the terms of the GNU General Public License. \centerline{Please contribute to development of this card by annotating it.} GDB itself is free software; you are welcome to distribute copies of it under the terms of the GNU General Public License. There is absolutely no warranty for GDB. } \end gdb-4.13/gdb/doc/remote.texi 666 34562 1752 146304 5561721367 14310 0ustar fnfcygnus@c -*- Texinfo -*- @c Copyright (c) 1990 1991 1992 1993 Free Software Foundation, Inc. @c This file is part of the source for the GDB manual. @c This text diverted to "Remote Debugging" section in general case; @c however, if we're doing a manual specifically for one of these, it @c belongs up front (in "Getting In and Out" chapter). @ifset REMOTESTUB @node Remote Serial @subsection The @value{GDBN} remote serial protocol @cindex remote serial debugging, overview To debug a program running on another machine (the debugging @dfn{target} machine), you must first arrange for all the usual prerequisites for the program to run by itself. For example, for a C program, you need @enumerate @item A startup routine to set up the C runtime environment; these usually have a name like @file{crt0}. The startup routine may be supplied by your hardware supplier, or you may have to write your own. @item You probably need a C subroutine library to support your program's subroutine calls, notably managing input and output. @item A way of getting your program to the other machine---for example, a download program. These are often supplied by the hardware manufacturer, but you may have to write your own from hardware documentation. @end enumerate The next step is to arrange for your program to use a serial port to communicate with the machine where @value{GDBN} is running (the @dfn{host} machine). In general terms, the scheme looks like this: @table @emph @item On the host, @value{GDBN} already understands how to use this protocol; when everything else is set up, you can simply use the @samp{target remote} command (@pxref{Targets,,Specifying a Debugging Target}). @item On the target, you must link with your program a few special-purpose subroutines that implement the @value{GDBN} remote serial protocol. The file containing these subroutines is called a @dfn{debugging stub}. @ifset GDBSERVER On certain remote targets, you can use an auxiliary program @code{gdbserver} instead of linking a stub into your program. @xref{Server,,Using the @code{gdbserver} program}, for details. @end ifset @end table The debugging stub is specific to the architecture of the remote machine; for example, use @file{sparc-stub.c} to debug programs on @sc{sparc} boards. @cindex remote serial stub list These working remote stubs are distributed with @value{GDBN}: @table @code @item sparc-stub.c @kindex sparc-stub.c For @sc{sparc} architectures. @item m68k-stub.c @kindex m68k-stub.c @cindex Motorola 680x0 @cindex m680x0 For Motorola 680x0 architectures. @item i386-stub.c @kindex i386-stub.c @cindex Intel @cindex i386 For Intel 386 and compatible architectures. @end table The @file{README} file in the @value{GDBN} distribution may list other recently added stubs. @menu * Stub Contents:: What the stub can do for you * Bootstrapping:: What you must do for the stub * Debug Session:: Putting it all together * Protocol:: Outline of the communication protocol @ifset GDBSERVER * Server:: Using the `gdbserver' program @end ifset @end menu @node Stub Contents @subsubsection What the stub can do for you @cindex remote serial stub The debugging stub for your architecture supplies these three subroutines: @table @code @item set_debug_traps @kindex set_debug_traps @cindex remote serial stub, initialization This routine arranges for @code{handle_exception} to run when your program stops. You must call this subroutine explicitly near the beginning of your program. @item handle_exception @kindex handle_exception @cindex remote serial stub, main routine This is the central workhorse, but your program never calls it explicitly---the setup code arranges for @code{handle_exception} to run when a trap is triggered. @code{handle_exception} takes control when your program stops during execution (for example, on a breakpoint), and mediates communications with @value{GDBN} on the host machine. This is where the communications protocol is implemented; @code{handle_exception} acts as the @value{GDBN} representative on the target machine; it begins by sending summary information on the state of your program, then continues to execute, retrieving and transmitting any information @value{GDBN} needs, until you execute a @value{GDBN} command that makes your program resume; at that point, @code{handle_exception} returns control to your own code on the target machine. @item breakpoint @cindex @code{breakpoint} subroutine, remote Use this auxiliary subroutine to make your program contain a breakpoint. Depending on the particular situation, this may be the only way for @value{GDBN} to get control. For instance, if your target machine has some sort of interrupt button, you won't need to call this; pressing the interrupt button transfers control to @code{handle_exception}---in effect, to @value{GDBN}. On some machines, simply receiving characters on the serial port may also trigger a trap; again, in that situation, you don't need to call @code{breakpoint} from your own program---simply running @samp{target remote} from the host @value{GDBN} session gets control. Call @code{breakpoint} if none of these is true, or if you simply want to make certain your program stops at a predetermined point for the start of your debugging session. @end table @node Bootstrapping @subsubsection What you must do for the stub @cindex remote stub, support routines The debugging stubs that come with @value{GDBN} are set up for a particular chip architecture, but they have no information about the rest of your debugging target machine. First of all you need to tell the stub how to communicate with the serial port. @table @code @item int getDebugChar() @kindex getDebugChar Write this subroutine to read a single character from the serial port. It may be identical to @code{getchar} for your target system; a different name is used to allow you to distinguish the two if you wish. @item void putDebugChar(int) @kindex putDebugChar Write this subroutine to write a single character to the serial port. It may be identical to @code{putchar} for your target system; a different name is used to allow you to distinguish the two if you wish. @end table @cindex control C, and remote debugging @cindex interrupting remote targets If you want @value{GDBN} to be able to stop your program while it is running, you need to use an interrupt-driven serial driver, and arrange for it to stop when it receives a @code{^C} (@samp{\003}, the control-C character). That is the character which @value{GDBN} uses to tell the remote system to stop. Getting the debugging target to return the proper status to @value{GDBN} probably requires changes to the standard stub; one quick and dirty way is to just execute a breakpoint instruction (the ``dirty'' part is that @value{GDBN} reports a @code{SIGTRAP} instead of a @code{SIGINT}). Other routines you need to supply are: @table @code @item void exceptionHandler (int @var{exception_number}, void *@var{exception_address}) @kindex exceptionHandler Write this function to install @var{exception_address} in the exception handling tables. You need to do this because the stub does not have any way of knowing what the exception handling tables on your target system are like (for example, the processor's table might be in @sc{rom}, containing entries which point to a table in @sc{ram}). @var{exception_number} is the exception number which should be changed; its meaning is architecture-dependent (for example, different numbers might represent divide by zero, misaligned access, etc). When this exception occurs, control should be transferred directly to @var{exception_address}, and the processor state (stack, registers, and so on) should be just as it is when a processor exception occurs. So if you want to use a jump instruction to reach @var{exception_address}, it should be a simple jump, not a jump to subroutine. For the 386, @var{exception_address} should be installed as an interrupt gate so that interrupts are masked while the handler runs. The gate should be at privilege level 0 (the most privileged level). The @sc{sparc} and 68k stubs are able to mask interrupts themself without help from @code{exceptionHandler}. @item void flush_i_cache() @kindex flush_i_cache Write this subroutine to flush the instruction cache, if any, on your target machine. If there is no instruction cache, this subroutine may be a no-op. On target machines that have instruction caches, @value{GDBN} requires this function to make certain that the state of your program is stable. @end table @noindent You must also make sure this library routine is available: @table @code @item void *memset(void *, int, int) @kindex memset This is the standard library function @code{memset} that sets an area of memory to a known value. If you have one of the free versions of @code{libc.a}, @code{memset} can be found there; otherwise, you must either obtain it from your hardware manufacturer, or write your own. @end table If you do not use the GNU C compiler, you may need other standard library subroutines as well; this varies from one stub to another, but in general the stubs are likely to use any of the common library subroutines which @code{gcc} generates as inline code. @node Debug Session @subsubsection Putting it all together @cindex remote serial debugging summary In summary, when your program is ready to debug, you must follow these steps. @enumerate @item Make sure you have the supporting low-level routines (@pxref{Bootstrapping,,What you must do for the stub}): @display @code{getDebugChar}, @code{putDebugChar}, @code{flush_i_cache}, @code{memset}, @code{exceptionHandler}. @end display @item Insert these lines near the top of your program: @example set_debug_traps(); breakpoint(); @end example @item For the 680x0 stub only, you need to provide a variable called @code{exceptionHook}. Normally you just use @example void (*exceptionHook)() = 0; @end example but if before calling @code{set_debug_traps}, you set it to point to a function in your program, that function is called when @code{@value{GDBN}} continues after stopping on a trap (for example, bus error). The function indicated by @code{exceptionHook} is called with one parameter: an @code{int} which is the exception number. @item Compile and link together: your program, the @value{GDBN} debugging stub for your target architecture, and the supporting subroutines. @item Make sure you have a serial connection between your target machine and the @value{GDBN} host, and identify the serial port used for this on the host. @item @c The "remote" target now provides a `load' command, so we should @c document that. FIXME. Download your program to your target machine (or get it there by whatever means the manufacturer provides), and start it. @item To start remote debugging, run @value{GDBN} on the host machine, and specify as an executable file the program that is running in the remote machine. This tells @value{GDBN} how to find your program's symbols and the contents of its pure text. @cindex serial line, @code{target remote} Then establish communication using the @code{target remote} command. Its argument specifies how to communicate with the target machine---either via a devicename attached to a direct serial line, or a TCP port (usually to a terminal server which in turn has a serial line to the target). For example, to use a serial line connected to the device named @file{/dev/ttyb}: @example target remote /dev/ttyb @end example @cindex TCP port, @code{target remote} To use a TCP connection, use an argument of the form @code{@var{host}:port}. For example, to connect to port 2828 on a terminal server named @code{manyfarms}: @example target remote manyfarms:2828 @end example @end enumerate Now you can use all the usual commands to examine and change data and to step and continue the remote program. To resume the remote program and stop debugging it, use the @code{detach} command. @cindex interrupting remote programs @cindex remote programs, interrupting Whenever @value{GDBN} is waiting for the remote program, if you type the interrupt character (often @key{C-C}), @value{GDBN} attempts to stop the program. This may or may not succeed, depending in part on the hardware and the serial drivers the remote system uses. If you type the interrupt character once again, @value{GDBN} displays this prompt: @example Interrupted while waiting for the program. Give up (and stop debugging it)? (y or n) @end example If you type @kbd{y}, @value{GDBN} abandons the remote debugging session. (If you decide you want to try again later, you can use @samp{target remote} again to connect once more.) If you type @kbd{n}, @value{GDBN} goes back to waiting. @node Protocol @subsubsection Communication protocol @cindex debugging stub, example @cindex remote stub, example @cindex stub example, remote debugging The stub files provided with @value{GDBN} implement the target side of the communication protocol, and the @value{GDBN} side is implemented in the @value{GDBN} source file @file{remote.c}. Normally, you can simply allow these subroutines to communicate, and ignore the details. (If you're implementing your own stub file, you can still ignore the details: start with one of the existing stub files. @file{sparc-stub.c} is the best organized, and therefore the easiest to read.) However, there may be occasions when you need to know something about the protocol---for example, if there is only one serial port to your target machine, you might want your program to do something special if it recognizes a packet meant for @value{GDBN}. @cindex protocol, @value{GDBN} remote serial @cindex serial protocol, @value{GDBN} remote @cindex remote serial protocol All @value{GDBN} commands and responses (other than acknowledgements, which are single characters) are sent as a packet which includes a checksum. A packet is introduced with the character @samp{$}, and ends with the character @samp{#} followed by a two-digit checksum: @example $@var{packet info}#@var{checksum} @end example @cindex checksum, for @value{GDBN} remote @noindent @var{checksum} is computed as the modulo 256 sum of the @var{packet info} characters. When either the host or the target machine receives a packet, the first response expected is an acknowledgement: a single character, either @samp{+} (to indicate the package was received correctly) or @samp{-} (to request retransmission). The host (@value{GDBN}) sends commands, and the target (the debugging stub incorporated in your program) sends data in response. The target also sends data when your program stops. Command packets are distinguished by their first character, which identifies the kind of command. These are the commands currently supported: @table @code @item g Requests the values of CPU registers. @item G Sets the values of CPU registers. @item m@var{addr},@var{count} Read @var{count} bytes at location @var{addr}. @item M@var{addr},@var{count}:@dots{} Write @var{count} bytes at location @var{addr}. @need 500 @item c @itemx c@var{addr} Resume execution at the current address (or at @var{addr} if supplied). @need 500 @item s @itemx s@var{addr} Step the target program for one instruction, from either the current program counter or from @var{addr} if supplied. @item k Kill the target program. @item ? Report the most recent signal. To allow you to take advantage of the @value{GDBN} signal handling commands, one of the functions of the debugging stub is to report CPU traps as the corresponding POSIX signal values. @end table @kindex set remotedebug @kindex show remotedebug @cindex packets, reporting on stdout @cindex serial connections, debugging If you have trouble with the serial connection, you can use the command @code{set remotedebug}. This makes @value{GDBN} report on all packets sent back and forth across the serial line to the remote machine. The packet-debugging information is printed on the @value{GDBN} standard output stream. @code{set remotedebug off} turns it off, and @code{show remotedebug} shows you its current state. @ifset GDBSERVER @node Server @subsubsection Using the @code{gdbserver} program @kindex gdbserver @cindex remote connection without stubs @code{gdbserver} is a control program for Unix-like systems, which allows you to connect your program with a remote @value{GDBN} via @code{target remote}---but without linking in the usual debugging stub. @code{gdbserver} is not a complete replacement for the debugging stubs, because it requires essentially the same operating-system facilities that @value{GDBN} itself does. In fact, a system that can run @code{gdbserver} to connect to a remote @value{GDBN} could also run @value{GDBN} locally! @code{gdbserver} is sometimes useful nevertheless, because it is a much smaller program than @value{GDBN} itself. It is also easier to port than all of @value{GDBN}, so you may be able to get started more quickly on a new system by using @code{gdbserver}. Finally, if you develop code for real-time systems, you may find that the tradeoffs involved in real-time operation make it more convenient to do as much development work as possible on another system, for example by cross-compiling. You can use @code{gdbserver} to make a similar choice for debugging. @value{GDBN} and @code{gdbserver} communicate via either a serial line or a TCP connection, using the standard @value{GDBN} remote serial protocol. @table @emph @item On the target machine, you need to have a copy of the program you want to debug. @code{gdbserver} does not need your program's symbol table, so you can strip the program if necessary to save space. @value{GDBN} on the host system does all the symbol handling. To use the server, you must tell it how to communicate with @value{GDBN}; the name of your program; and the arguments for your program. The syntax is: @smallexample target> gdbserver @var{comm} @var{program} [ @var{args} @dots{} ] @end smallexample @var{comm} is either a device name (to use a serial line) or a TCP hostname and portnumber. For example, to debug Emacs with the argument @samp{foo.txt} and communicate with @value{GDBN} over the serial port @file{/dev/com1}: @smallexample target> gdbserver /dev/com1 emacs foo.txt @end smallexample @code{gdbserver} waits passively for the host @value{GDBN} to communicate with it. To use a TCP connection instead of a serial line: @smallexample target> gdbserver host:2345 emacs foo.txt @end smallexample The only difference from the previous example is the first argument, specifying that you are communicating with the host @value{GDBN} via TCP. The @samp{host:2345} argument means that @code{gdbserver} is to expect a TCP connection from machine @samp{host} to local TCP port 2345. (Currently, the @samp{host} part is ignored.) You can choose any number you want for the port number as long as it does not conflict with any TCP ports already in use on the target system (for example, @code{23} is reserved for @code{telnet}).@footnote{If you choose a port number that conflicts with another service, @code{gdbserver} prints an error message and exits.} You must use the same port number with the host @value{GDBN} @code{target remote} command. @item On the @value{GDBN} host machine, you need an unstripped copy of your program, since @value{GDBN} needs symbols and debugging information. Start up @value{GDBN} as usual, using the name of the local copy of your program as the first argument. (You may also need the @w{@samp{--baud}} option if the serial line is running at anything other than 9600 bps.) After that, use @code{target remote} to establish communications with @code{gdbserver}. Its argument is either a device name (usually a serial device, like @file{/dev/ttyb}), or a TCP port descriptor in the form @code{@var{host}:@var{PORT}}. For example: @smallexample (@value{GDBP}) target remote /dev/ttyb @end smallexample @noindent communicates with the server via serial line @file{/dev/ttyb}, and @smallexample (@value{GDBP}) target remote the-target:2345 @end smallexample @noindent communicates via a TCP connection to port 2345 on host @w{@file{the-target}}. For TCP connections, you must start up @code{gdbserver} prior to using the @code{target remote} command. Otherwise you may get an error whose text depends on the host system, but which usually looks something like @samp{Connection refused}. @end table @end ifset @end ifset @ifset I960 @node i960-Nindy Remote @subsection @value{GDBN} with a remote i960 (Nindy) @cindex Nindy @cindex i960 @dfn{Nindy} is a ROM Monitor program for Intel 960 target systems. When @value{GDBN} is configured to control a remote Intel 960 using Nindy, you can tell @value{GDBN} how to connect to the 960 in several ways: @itemize @bullet @item Through command line options specifying serial port, version of the Nindy protocol, and communications speed; @item By responding to a prompt on startup; @item By using the @code{target} command at any point during your @value{GDBN} session. @xref{Target Commands, ,Commands for managing targets}. @end itemize @menu * Nindy Startup:: Startup with Nindy * Nindy Options:: Options for Nindy * Nindy Reset:: Nindy reset command @end menu @node Nindy Startup @subsubsection Startup with Nindy If you simply start @code{@value{GDBP}} without using any command-line options, you are prompted for what serial port to use, @emph{before} you reach the ordinary @value{GDBN} prompt: @example Attach /dev/ttyNN -- specify NN, or "quit" to quit: @end example @noindent Respond to the prompt with whatever suffix (after @samp{/dev/tty}) identifies the serial port you want to use. You can, if you choose, simply start up with no Nindy connection by responding to the prompt with an empty line. If you do this and later wish to attach to Nindy, use @code{target} (@pxref{Target Commands, ,Commands for managing targets}). @node Nindy Options @subsubsection Options for Nindy These are the startup options for beginning your @value{GDBN} session with a Nindy-960 board attached: @table @code @item -r @var{port} Specify the serial port name of a serial interface to be used to connect to the target system. This option is only available when @value{GDBN} is configured for the Intel 960 target architecture. You may specify @var{port} as any of: a full pathname (e.g. @samp{-r /dev/ttya}), a device name in @file{/dev} (e.g. @samp{-r ttya}), or simply the unique suffix for a specific @code{tty} (e.g. @samp{-r a}). @item -O (An uppercase letter ``O'', not a zero.) Specify that @value{GDBN} should use the ``old'' Nindy monitor protocol to connect to the target system. This option is only available when @value{GDBN} is configured for the Intel 960 target architecture. @quotation @emph{Warning:} if you specify @samp{-O}, but are actually trying to connect to a target system that expects the newer protocol, the connection fails, appearing to be a speed mismatch. @value{GDBN} repeatedly attempts to reconnect at several different line speeds. You can abort this process with an interrupt. @end quotation @item -brk Specify that @value{GDBN} should first send a @code{BREAK} signal to the target system, in an attempt to reset it, before connecting to a Nindy target. @quotation @emph{Warning:} Many target systems do not have the hardware that this requires; it only works with a few boards. @end quotation @end table The standard @samp{-b} option controls the line speed used on the serial port. @c @group @node Nindy Reset @subsubsection Nindy reset command @table @code @item reset @kindex reset For a Nindy target, this command sends a ``break'' to the remote target system; this is only useful if the target has been equipped with a circuit to perform a hard reset (or some other interesting action) when a break is detected. @end table @c @end group @end ifset @ifset AMD29K @node UDI29K Remote @subsection The UDI protocol for AMD29K @cindex UDI @cindex AMD29K via UDI @value{GDBN} supports AMD's UDI (``Universal Debugger Interface'') protocol for debugging the a29k processor family. To use this configuration with AMD targets running the MiniMON monitor, you need the program @code{MONTIP}, available from AMD at no charge. You can also use @value{GDBN} with the UDI conformant a29k simulator program @code{ISSTIP}, also available from AMD. @table @code @item target udi @var{keyword} @kindex udi Select the UDI interface to a remote a29k board or simulator, where @var{keyword} is an entry in the AMD configuration file @file{udi_soc}. This file contains keyword entries which specify parameters used to connect to a29k targets. If the @file{udi_soc} file is not in your working directory, you must set the environment variable @samp{UDICONF} to its pathname. @end table @node EB29K Remote @subsection The EBMON protocol for AMD29K @cindex EB29K board @cindex running 29K programs AMD distributes a 29K development board meant to fit in a PC, together with a DOS-hosted monitor program called @code{EBMON}. As a shorthand term, this development system is called the ``EB29K''. To use @value{GDBN} from a Unix system to run programs on the EB29K board, you must first connect a serial cable between the PC (which hosts the EB29K board) and a serial port on the Unix system. In the following, we assume you've hooked the cable between the PC's @file{COM1} port and @file{/dev/ttya} on the Unix system. @menu * Comms (EB29K):: Communications setup * gdb-EB29K:: EB29K cross-debugging * Remote Log:: Remote log @end menu @node Comms (EB29K) @subsubsection Communications setup The next step is to set up the PC's port, by doing something like this in DOS on the PC: @example C:\> MODE com1:9600,n,8,1,none @end example @noindent This example---run on an MS DOS 4.0 system---sets the PC port to 9600 bps, no parity, eight data bits, one stop bit, and no ``retry'' action; you must match the communications parameters when establishing the Unix end of the connection as well. @c FIXME: Who knows what this "no retry action" crud from the DOS manual may @c mean? It's optional; leave it out? ---pesch@cygnus.com, 25feb91 To give control of the PC to the Unix side of the serial line, type the following at the DOS console: @example C:\> CTTY com1 @end example @noindent (Later, if you wish to return control to the DOS console, you can use the command @code{CTTY con}---but you must send it over the device that had control, in our example over the @file{COM1} serial line). From the Unix host, use a communications program such as @code{tip} or @code{cu} to communicate with the PC; for example, @example cu -s 9600 -l /dev/ttya @end example @noindent The @code{cu} options shown specify, respectively, the linespeed and the serial port to use. If you use @code{tip} instead, your command line may look something like the following: @example tip -9600 /dev/ttya @end example @noindent Your system may require a different name where we show @file{/dev/ttya} as the argument to @code{tip}. The communications parameters, including which port to use, are associated with the @code{tip} argument in the ``remote'' descriptions file---normally the system table @file{/etc/remote}. @c FIXME: What if anything needs doing to match the "n,8,1,none" part of @c the DOS side's comms setup? cu can support -o (odd @c parity), -e (even parity)---apparently no settings for no parity or @c for character size. Taken from stty maybe...? John points out tip @c can set these as internal variables, eg ~s parity=none; man stty @c suggests that it *might* work to stty these options with stdin or @c stdout redirected... ---pesch@cygnus.com, 25feb91 @kindex EBMON Using the @code{tip} or @code{cu} connection, change the DOS working directory to the directory containing a copy of your 29K program, then start the PC program @code{EBMON} (an EB29K control program supplied with your board by AMD). You should see an initial display from @code{EBMON} similar to the one that follows, ending with the @code{EBMON} prompt @samp{#}--- @example C:\> G: G:\> CD \usr\joe\work29k G:\USR\JOE\WORK29K> EBMON Am29000 PC Coprocessor Board Monitor, version 3.0-18 Copyright 1990 Advanced Micro Devices, Inc. Written by Gibbons and Associates, Inc. Enter '?' or 'H' for help PC Coprocessor Type = EB29K I/O Base = 0x208 Memory Base = 0xd0000 Data Memory Size = 2048KB Available I-RAM Range = 0x8000 to 0x1fffff Available D-RAM Range = 0x80002000 to 0x801fffff PageSize = 0x400 Register Stack Size = 0x800 Memory Stack Size = 0x1800 CPU PRL = 0x3 Am29027 Available = No Byte Write Available = Yes # ~. @end example Then exit the @code{cu} or @code{tip} program (done in the example by typing @code{~.} at the @code{EBMON} prompt). @code{EBMON} keeps running, ready for @value{GDBN} to take over. For this example, we've assumed what is probably the most convenient way to make sure the same 29K program is on both the PC and the Unix system: a PC/NFS connection that establishes ``drive @code{G:}'' on the PC as a file system on the Unix host. If you do not have PC/NFS or something similar connecting the two systems, you must arrange some other way---perhaps floppy-disk transfer---of getting the 29K program from the Unix system to the PC; @value{GDBN} does @emph{not} download it over the serial line. @node gdb-EB29K @subsubsection EB29K cross-debugging Finally, @code{cd} to the directory containing an image of your 29K program on the Unix system, and start @value{GDBN}---specifying as argument the name of your 29K program: @example cd /usr/joe/work29k @value{GDBP} myfoo @end example @need 500 Now you can use the @code{target} command: @example target amd-eb /dev/ttya 9600 MYFOO @c FIXME: test above 'target amd-eb' as spelled, with caps! caps are meant to @c emphasize that this is the name as seen by DOS (since I think DOS is @c single-minded about case of letters). ---pesch@cygnus.com, 25feb91 @end example @noindent In this example, we've assumed your program is in a file called @file{myfoo}. Note that the filename given as the last argument to @code{target amd-eb} should be the name of the program as it appears to DOS. In our example this is simply @code{MYFOO}, but in general it can include a DOS path, and depending on your transfer mechanism may not resemble the name on the Unix side. At this point, you can set any breakpoints you wish; when you are ready to see your program run on the 29K board, use the @value{GDBN} command @code{run}. To stop debugging the remote program, use the @value{GDBN} @code{detach} command. To return control of the PC to its console, use @code{tip} or @code{cu} once again, after your @value{GDBN} session has concluded, to attach to @code{EBMON}. You can then type the command @code{q} to shut down @code{EBMON}, returning control to the DOS command-line interpreter. Type @code{CTTY con} to return command input to the main DOS console, and type @kbd{~.} to leave @code{tip} or @code{cu}. @node Remote Log @subsubsection Remote log @kindex eb.log @cindex log file for EB29K The @code{target amd-eb} command creates a file @file{eb.log} in the current working directory, to help debug problems with the connection. @file{eb.log} records all the output from @code{EBMON}, including echoes of the commands sent to it. Running @samp{tail -f} on this file in another window often helps to understand trouble with @code{EBMON}, or unexpected events on the PC side of the connection. @end ifset @ifset ST2000 @node ST2000 Remote @subsection @value{GDBN} with a Tandem ST2000 To connect your ST2000 to the host system, see the manufacturer's manual. Once the ST2000 is physically attached, you can run @example target st2000 @var{dev} @var{speed} @end example @noindent to establish it as your debugging environment. @var{dev} is normally the name of a serial device, such as @file{/dev/ttya}, connected to the ST2000 via a serial line. You can instead specify @var{dev} as a TCP connection (for example, to a serial line attached via a terminal concentrator) using the syntax @code{@var{hostname}:@var{portnumber}}. The @code{load} and @code{attach} commands are @emph{not} defined for this target; you must load your program into the ST2000 as you normally would for standalone operation. @value{GDBN} reads debugging information (such as symbols) from a separate, debugging version of the program available on your host computer. @c FIXME!! This is terribly vague; what little content is here is @c basically hearsay. @cindex ST2000 auxiliary commands These auxiliary @value{GDBN} commands are available to help you with the ST2000 environment: @table @code @item st2000 @var{command} @kindex st2000 @var{cmd} @cindex STDBUG commands (ST2000) @cindex commands to STDBUG (ST2000) Send a @var{command} to the STDBUG monitor. See the manufacturer's manual for available commands. @item connect @cindex connect (to STDBUG) Connect the controlling terminal to the STDBUG command monitor. When you are done interacting with STDBUG, typing either of two character sequences gets you back to the @value{GDBN} command prompt: @kbd{@key{RET}~.} (Return, followed by tilde and period) or @kbd{@key{RET}~@key{C-d}} (Return, followed by tilde and control-D). @end table @end ifset @ifset VXWORKS @node VxWorks Remote @subsection @value{GDBN} and VxWorks @cindex VxWorks @value{GDBN} enables developers to spawn and debug tasks running on networked VxWorks targets from a Unix host. Already-running tasks spawned from the VxWorks shell can also be debugged. @value{GDBN} uses code that runs on both the Unix host and on the VxWorks target. The program @code{gdb} is installed and executed on the Unix host. (It may be installed with the name @code{vxgdb}, to distinguish it from a @value{GDBN} for debugging programs on the host itself.) The following information on connecting to VxWorks was current when this manual was produced; newer releases of VxWorks may use revised procedures. @kindex INCLUDE_RDB To use @value{GDBN} with VxWorks, you must rebuild your VxWorks kernel to include the remote debugging interface routines in the VxWorks library @file{rdb.a}. To do this, define @code{INCLUDE_RDB} in the VxWorks configuration file @file{configAll.h} and rebuild your VxWorks kernel. The resulting kernel contains @file{rdb.a}, and spawns the source debugging task @code{tRdbTask} when VxWorks is booted. For more information on configuring and remaking VxWorks, see the manufacturer's manual. @c VxWorks, see the @cite{VxWorks Programmer's Guide}. Once you have included @file{rdb.a} in your VxWorks system image and set your Unix execution search path to find @value{GDBN}, you are ready to run @value{GDBN}. From your Unix host, run @code{gdb} (or @code{vxgdb}, depending on your installation). @value{GDBN} comes up showing the prompt: @example (vxgdb) @end example @menu * VxWorks Connection:: Connecting to VxWorks * VxWorks Download:: VxWorks download * VxWorks Attach:: Running tasks @end menu @node VxWorks Connection @subsubsection Connecting to VxWorks The @value{GDBN} command @code{target} lets you connect to a VxWorks target on the network. To connect to a target whose host name is ``@code{tt}'', type: @example (vxgdb) target vxworks tt @end example @need 750 @value{GDBN} displays messages like these: @smallexample Attaching remote machine across net... Connected to tt. @end smallexample @need 1000 @value{GDBN} then attempts to read the symbol tables of any object modules loaded into the VxWorks target since it was last booted. @value{GDBN} locates these files by searching the directories listed in the command search path (@pxref{Environment, ,Your program's environment}); if it fails to find an object file, it displays a message such as: @example prog.o: No such file or directory. @end example When this happens, add the appropriate directory to the search path with the @value{GDBN} command @code{path}, and execute the @code{target} command again. @node VxWorks Download @subsubsection VxWorks download @cindex download to VxWorks If you have connected to the VxWorks target and you want to debug an object that has not yet been loaded, you can use the @value{GDBN} @code{load} command to download a file from Unix to VxWorks incrementally. The object file given as an argument to the @code{load} command is actually opened twice: first by the VxWorks target in order to download the code, then by @value{GDBN} in order to read the symbol table. This can lead to problems if the current working directories on the two systems differ. If both systems have NFS mounted the same filesystems, you can avoid these problems by using absolute paths. Otherwise, it is simplest to set the working directory on both systems to the directory in which the object file resides, and then to reference the file by its name, without any path. For instance, a program @file{prog.o} may reside in @file{@var{vxpath}/vw/demo/rdb} in VxWorks and in @file{@var{hostpath}/vw/demo/rdb} on the host. To load this program, type this on VxWorks: @example -> cd "@var{vxpath}/vw/demo/rdb" @end example Then, in @value{GDBN}, type: @example (vxgdb) cd @var{hostpath}/vw/demo/rdb (vxgdb) load prog.o @end example @value{GDBN} displays a response similar to this: @smallexample Reading symbol data from wherever/vw/demo/rdb/prog.o... done. @end smallexample You can also use the @code{load} command to reload an object module after editing and recompiling the corresponding source file. Note that this makes @value{GDBN} delete all currently-defined breakpoints, auto-displays, and convenience variables, and to clear the value history. (This is necessary in order to preserve the integrity of debugger data structures that reference the target system's symbol table.) @node VxWorks Attach @subsubsection Running tasks @cindex running VxWorks tasks You can also attach to an existing task using the @code{attach} command as follows: @example (vxgdb) attach @var{task} @end example @noindent where @var{task} is the VxWorks hexadecimal task ID. The task can be running or suspended when you attach to it. Running tasks are suspended at the time of attachment. @end ifset @ifset H8 @node Hitachi Remote @subsection @value{GDBN} and Hitachi microprocessors @value{GDBN} needs to know these things to talk to your Hitachi SH, H8/300, or H8/500: @enumerate @item that you want to use @samp{target hms}, the remote debugging interface for Hitachi microprocessors, or @samp{target e7000}, the in-circuit emulator for the Hitachi SH and the Hitachi 300H. (@samp{target hms} is the default when GDB is configured specifically for the Hitachi SH, H8/300, or H8/500.) @item what serial device connects your host to your Hitachi board (the first serial device available on your host is the default). @ifclear H8EXCLUSIVE @c this is only for Unix hosts, not of interest to Hitachi @item what speed to use over the serial device. @end ifclear @end enumerate @menu * Hitachi Boards:: Connecting to Hitachi boards. * Hitachi ICE:: Using the E7000 In-Circuit Emulator. * Hitachi Special:: Special @value{GDBN} commands for Hitachi micros. @end menu @node Hitachi Boards @subsubsection Connecting to Hitachi boards @ifclear H8EXCLUSIVE @c only for Unix hosts @kindex device @cindex serial device, Hitachi micros Use the special @code{@value{GDBP}} command @samp{device @var{port}} if you need to explicitly set the serial device. The default @var{port} is the first available port on your host. This is only necessary on Unix hosts, where it is typically something like @file{/dev/ttya}. @kindex speed @cindex serial line speed, Hitachi micros @code{@value{GDBP}} has another special command to set the communications speed: @samp{speed @var{bps}}. This command also is only used from Unix hosts; on DOS hosts, set the line speed as usual from outside GDB with the DOS @kbd{mode} command (for instance, @w{@samp{mode com2:9600,n,8,1,p}} for a 9600 bps connection). The @samp{device} and @samp{speed} commands are available only when you use a Unix host to debug your Hitachi microprocessor programs. If you use a DOS host, @end ifclear @value{GDBN} depends on an auxiliary terminate-and-stay-resident program called @code{asynctsr} to communicate with the development board through a PC serial port. You must also use the DOS @code{mode} command to set up the serial port on the DOS side. @ifset DOSHOST The following sample session illustrates the steps needed to start a program under @value{GDBN} control on an H8/300. The example uses a sample H8/300 program called @file{t.x}. The procedure is the same for the Hitachi SH and the H8/500. First hook up your development board. In this example, we use a board attached to serial port @code{COM2}; if you use a different serial port, substitute its name in the argument of the @code{mode} command. When you call @code{asynctsr}, the auxiliary comms program used by the degugger, you give it just the numeric part of the serial port's name; for example, @samp{asyncstr 2} below runs @code{asyncstr} on @code{COM2}. @example (eg-C:\H8300\TEST) mode com2:9600,n,8,1,p Resident portion of MODE loaded COM2: 9600, n, 8, 1, p (eg-C:\H8300\TEST) asynctsr 2 @end example @quotation @emph{Warning:} We have noticed a bug in PC-NFS that conflicts with @code{asynctsr}. If you also run PC-NFS on your DOS host, you may need to disable it, or even boot without it, to use @code{asynctsr} to control your development board. @end quotation @kindex target hms Now that serial communications are set up, and the development board is connected, you can start up @value{GDBN}. Call @code{@value{GDBP}} with the name of your program as the argument. @code{@value{GDBP}} prompts you, as usual, with the prompt @samp{(@value{GDBP})}. Use two special commands to begin your debugging session: @samp{target hms} to specify cross-debugging to the Hitachi board, and the @code{load} command to download your program to the board. @code{load} displays the names of the program's sections, and a @samp{*} for each 2K of data downloaded. (If you want to refresh @value{GDBN} data on symbols or on the executable file without downloading, use the @value{GDBN} commands @code{file} or @code{symbol-file}. These commands, and @code{load} itself, are described in @ref{Files,,Commands to specify files}.) @smallexample (eg-C:\H8300\TEST) @value{GDBP} t.x GDB is free software and you are welcome to distribute copies of it under certain conditions; type "show copying" to see the conditions. There is absolutely no warranty for GDB; type "show warranty" for details. GDB @value{GDBVN}, Copyright 1992 Free Software Foundation, Inc... (gdb) target hms Connected to remote H8/300 HMS system. (gdb) load t.x .text : 0x8000 .. 0xabde *********** .data : 0xabde .. 0xad30 * .stack : 0xf000 .. 0xf014 * @end smallexample At this point, you're ready to run or debug your program. From here on, you can use all the usual @value{GDBN} commands. The @code{break} command sets breakpoints; the @code{run} command starts your program; @code{print} or @code{x} display data; the @code{continue} command resumes execution after stopping at a breakpoint. You can use the @code{help} command at any time to find out more about @value{GDBN} commands. Remember, however, that @emph{operating system} facilities aren't available on your development board; for example, if your program hangs, you can't send an interrupt---but you can press the @sc{reset} switch! Use the @sc{reset} button on the development board @itemize @bullet @item to interrupt your program (don't use @kbd{ctl-C} on the DOS host---it has no way to pass an interrupt signal to the development board); and @item to return to the @value{GDBN} command prompt after your program finishes normally. The communications protocol provides no other way for @value{GDBN} to detect program completion. @end itemize In either case, @value{GDBN} sees the effect of a @sc{reset} on the development board as a ``normal exit'' of your program. @end ifset @node Hitachi ICE @subsubsection Using the E7000 in-circuit emulator @kindex target e7000 You can use the E7000 in-circuit emulator to develop code for either the Hitachi SH or the H8/300H. Use one of these forms of the @samp{target e7000} command to connect @value{GDBN} to your E7000: @table @code @item target e7000 @var{port} @var{speed} Use this form if your E7000 is connected to a serial port. The @var{port} argument identifies what serial port to use (for example, @samp{com2}). The third argument is the line speed in bits per second (for example, @samp{9600}). @item target e7000 @var{hostname} If your E7000 is installed as a host on a TCP/IP network, you can just specify its hostname; @value{GDBN} uses @code{telnet} to connect. @end table @node Hitachi Special @subsubsection Special @value{GDBN} commands for Hitachi micros Some @value{GDBN} commands are available only on the H8/300 or the H8/500 configurations: @table @code @kindex set machine @kindex show machine @item set machine h8300 @itemx set machine h8300h Condition @value{GDBN} for one of the two variants of the H8/300 architecture with @samp{set machine}. You can use @samp{show machine} to check which variant is currently in effect. @kindex set memory @var{mod} @cindex memory models, H8/500 @item set memory @var{mod} @itemx show memory Specify which H8/500 memory model (@var{mod}) you are using with @samp{set memory}; check which memory model is in effect with @samp{show memory}. The accepted values for @var{mod} are @code{small}, @code{big}, @code{medium}, and @code{compact}. @end table @end ifset @ifset MIPS @node MIPS Remote @subsection @value{GDBN} and remote MIPS boards @cindex MIPS boards @value{GDBN} can use the MIPS remote debugging protocol to talk to a MIPS board attached to a serial line. This is available when you configure @value{GDBN} with @samp{--target=mips-idt-ecoff}. @need 1000 Use these @value{GDBN} commands to specify the connection to your target board: @table @code @item target mips @var{port} @kindex target mips @var{port} To run a program on the board, start up @code{@value{GDBP}} with the name of your program as the argument. To connect to the board, use the command @samp{target mips @var{port}}, where @var{port} is the name of the serial port connected to the board. If the program has not already been downloaded to the board, you may use the @code{load} command to download it. You can then use all the usual @value{GDBN} commands. For example, this sequence connects to the target board through a serial port, and loads and runs a program called @var{prog} through the debugger: @example host$ @value{GDBP} @var{prog} GDB is free software and @dots{} (gdb) target mips /dev/ttyb (gdb) load @var{prog} (gdb) run @end example @item target mips @var{hostname}:@var{portnumber} On some @value{GDBN} host configurations, you can specify a TCP connection (for instance, to a serial line managed by a terminal concentrator) instead of a serial port, using the syntax @samp{@var{hostname}:@var{portnumber}}. @end table @noindent @value{GDBN} also supports these special commands for MIPS targets: @table @code @item set mipsfpu off @itemx show mipsfpu @kindex set mipsfpu off @kindex show mipsfpu @cindex MIPS remote floating point @cindex floating point, MIPS remote If your target board does not support the MIPS floating point coprocessor, you should use the command @samp{set mipsfpu off} (if you need this, you may wish to put the command in your @value{GDBINIT} file). This tells @value{GDBN} how to find the return value of functions which return floating point values. It also allows @value{GDBN} to avoid saving the floating point registers when calling functions on the board. (As usual, you can inquire about the @code{mipsfpu} variable with @samp{show mipsfpu}.) @item set remotedebug @var{n} @itemx show remotedebug @kindex set remotedebug @kindex show remotedebug @cindex @code{remotedebug}, MIPS protocol @cindex MIPS @code{remotedebug} protocol @c FIXME! For this to be useful, you must know something about the MIPS @c FIXME...protocol. Where is it described? You can see some debugging information about communications with the board by setting the @code{remotedebug} variable. If you set it to @code{1} using @samp{set remotedebug 1}, every packet is displayed. If you set it to @code{2}, every character is displayed. You can check the current value at any time with the command @samp{show remotedebug}. @item set timeout @var{seconds} @itemx set retransmit-timeout @var{seconds} @itemx show timeout @itemx show retransmit-timeout @cindex @code{timeout}, MIPS protocol @cindex @code{retransmit-timeout}, MIPS protocol @kindex set timeout @kindex show timeout @kindex set retransmit-timeout @kindex show retransmit-timeout You can control the timeout used while waiting for a packet, in the MIPS remote protocol, with the @code{set timeout @var{seconds}} command. The default is 5 seconds. Similarly, you can control the timeout used while waiting for an acknowledgement of a packet with the @code{set retransmit-timeout @var{seconds}} command. The default is 3 seconds. You can inspect both values with @code{show timeout} and @code{show retransmit-timeout}. (These commands are @emph{only} available when @value{GDBN} is configured for @samp{--target=mips-idt-ecoff}.) The timeout set by @code{set timeout} does not apply when @value{GDBN} is waiting for your program to stop. In that case, @value{GDBN} waits forever because it has no way of knowing how long the program is going to run before stopping. @end table @end ifset @ifset SIMS @node Simulator @subsection Simulated CPU target @ifset GENERIC @cindex simulator @cindex simulator, Z8000 @cindex Z8000 simulator @cindex simulator, H8/300 or H8/500 @cindex H8/300 or H8/500 simulator @cindex simulator, Hitachi SH @cindex Hitachi SH simulator @cindex CPU simulator For some configurations, @value{GDBN} includes a CPU simulator that you can use instead of a hardware CPU to debug your programs. Currently, a simulator is available when @value{GDBN} is configured to debug Zilog Z8000 or Hitachi microprocessor targets. @end ifset @ifclear GENERIC @ifset H8 @cindex simulator, H8/300 or H8/500 @cindex Hitachi H8/300 or H8/500 simulator @cindex simulator, Hitachi SH @cindex Hitachi SH simulator When configured for debugging Hitachi microprocessor targets, @value{GDBN} includes a CPU simulator for the target chip (a Hitachi SH, H8/300, or H8/500). @end ifset @ifset Z8K @cindex simulator, Z8000 @cindex Zilog Z8000 simulator When configured for debugging Zilog Z8000 targets, @value{GDBN} includes a Z8000 simulator. @end ifset @end ifclear @ifset Z8K For the Z8000 family, @samp{target sim} simulates either the Z8002 (the unsegmented variant of the Z8000 architecture) or the Z8001 (the segmented variant). The simulator recognizes which architecture is appropriate by inspecting the object code. @end ifset @table @code @item target sim @kindex sim @kindex target sim Debug programs on a simulated CPU @ifset GENERIC (which CPU depends on the @value{GDBN} configuration) @end ifset @end table @noindent After specifying this target, you can debug programs for the simulated CPU in the same style as programs for your host computer; use the @code{file} command to load a new program image, the @code{run} command to run your program, and so on. As well as making available all the usual machine registers (see @code{info reg}), this debugging target provides three additional items of information as specially named registers: @table @code @item cycles Counts clock-ticks in the simulator. @item insts Counts instructions run in the simulator. @item time Execution time in 60ths of a second. @end table You can refer to these values in @value{GDBN} expressions with the usual conventions; for example, @w{@samp{b fputc if $cycles>5000}} sets a conditional breakpoint that suspends only after at least 5000 simulated clock ticks. @end ifset gdb-4.13/gdb/doc/GDBvn.texi 666 34562 1752 20 5623251650 13625 0ustar fnfcygnus@set GDBVN 4.13 gdb-4.13/gdb/doc/stabs.texinfo 666 34562 1752 440474 5573213145 14632 0ustar fnfcygnus\input texinfo @setfilename stabs.info @c @finalout @ifinfo @format START-INFO-DIR-ENTRY * Stabs: (stabs). The "stabs" debugging information format. END-INFO-DIR-ENTRY @end format @end ifinfo @ifinfo This document describes the stabs debugging symbol tables. Copyright 1992, 1993 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Julia Menapace, Jim Kingdon, and David MacKenzie. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through Tex and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy or distribute modified versions of this manual under the terms of the GPL (for which purpose this text may be regarded as a program in the language TeX). @end ifinfo @setchapternewpage odd @settitle STABS @titlepage @title The ``stabs'' debug format @author Julia Menapace, Jim Kingdon, David MacKenzie @author Cygnus Support @page @tex \def\$#1${{#1}} % Kluge: collect RCS revision info without $...$ \xdef\manvers{\$Revision: 2.120 $} % For use in headers, footers too {\parskip=0pt \hfill Cygnus Support\par \hfill \manvers\par \hfill \TeX{}info \texinfoversion\par } @end tex @vskip 0pt plus 1filll Copyright @copyright{} 1992, 1993 Free Software Foundation, Inc. Contributed by Cygnus Support. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @end titlepage @ifinfo @node Top @top The "stabs" representation of debugging information This document describes the stabs debugging format. @menu * Overview:: Overview of stabs * Program Structure:: Encoding of the structure of the program * Constants:: Constants * Variables:: * Types:: Type definitions * Symbol Tables:: Symbol information in symbol tables * Cplusplus:: Appendixes: * Stab Types:: Symbol types in a.out files * Symbol Descriptors:: Table of symbol descriptors * Type Descriptors:: Table of type descriptors * Expanded Reference:: Reference information by stab type * Questions:: Questions and anomolies * XCOFF Differences:: Differences between GNU stabs in a.out and GNU stabs in XCOFF * Sun Differences:: Differences between GNU stabs and Sun native stabs * Stab Sections:: In some object file formats, stabs are in sections. * Symbol Types Index:: Index of symbolic stab symbol type names. @end menu @end ifinfo @node Overview @chapter Overview of Stabs @dfn{Stabs} refers to a format for information that describes a program to a debugger. This format was apparently invented by Peter Kessler at the University of California at Berkeley, for the @code{pdx} Pascal debugger; the format has spread widely since then. This document is one of the few published sources of documentation on stabs. It is believed to be comprehensive for stabs used by C. The lists of symbol descriptors (@pxref{Symbol Descriptors}) and type descriptors (@pxref{Type Descriptors}) are believed to be completely comprehensive. Stabs for COBOL-specific features and for variant records (used by Pascal and Modula-2) are poorly documented here. @c FIXME: Need to document all OS9000 stuff in GDB; see all references @c to os9k_stabs in stabsread.c. Other sources of information on stabs are @cite{Dbx and Dbxtool Interfaces}, 2nd edition, by Sun, 1988, and @cite{AIX Version 3.2 Files Reference}, Fourth Edition, September 1992, "dbx Stabstring Grammar" in the a.out section, page 2-31. This document is believed to incorporate the information from those two sources except where it explicitly directs you to them for more information. @menu * Flow:: Overview of debugging information flow * Stabs Format:: Overview of stab format * String Field:: The string field * C Example:: A simple example in C source * Assembly Code:: The simple example at the assembly level @end menu @node Flow @section Overview of Debugging Information Flow The GNU C compiler compiles C source in a @file{.c} file into assembly language in a @file{.s} file, which the assembler translates into a @file{.o} file, which the linker combines with other @file{.o} files and libraries to produce an executable file. With the @samp{-g} option, GCC puts in the @file{.s} file additional debugging information, which is slightly transformed by the assembler and linker, and carried through into the final executable. This debugging information describes features of the source file like line numbers, the types and scopes of variables, and function names, parameters, and scopes. For some object file formats, the debugging information is encapsulated in assembler directives known collectively as @dfn{stab} (symbol table) directives, which are interspersed with the generated code. Stabs are the native format for debugging information in the a.out and XCOFF object file formats. The GNU tools can also emit stabs in the COFF and ECOFF object file formats. The assembler adds the information from stabs to the symbol information it places by default in the symbol table and the string table of the @file{.o} file it is building. The linker consolidates the @file{.o} files into one executable file, with one symbol table and one string table. Debuggers use the symbol and string tables in the executable as a source of debugging information about the program. @node Stabs Format @section Overview of Stab Format There are three overall formats for stab assembler directives, differentiated by the first word of the stab. The name of the directive describes which combination of four possible data fields follows. It is either @code{.stabs} (string), @code{.stabn} (number), or @code{.stabd} (dot). IBM's XCOFF assembler uses @code{.stabx} (and some other directives such as @code{.file} and @code{.bi}) instead of @code{.stabs}, @code{.stabn} or @code{.stabd}. The overall format of each class of stab is: @example .stabs "@var{string}",@var{type},@var{other},@var{desc},@var{value} .stabn @var{type},@var{other},@var{desc},@var{value} .stabd @var{type},@var{other},@var{desc} .stabx "@var{string}",@var{value},@var{type},@var{sdb-type} @end example @c what is the correct term for "current file location"? My AIX @c assembler manual calls it "the value of the current location counter". For @code{.stabn} and @code{.stabd}, there is no @var{string} (the @code{n_strx} field is zero; see @ref{Symbol Tables}). For @code{.stabd}, the @var{value} field is implicit and has the value of the current file location. For @code{.stabx}, the @var{sdb-type} field is unused for stabs and can always be set to zero. The @var{other} field is almost always unused and can be set to zero. The number in the @var{type} field gives some basic information about which type of stab this is (or whether it @emph{is} a stab, as opposed to an ordinary symbol). Each valid type number defines a different stab type; further, the stab type defines the exact interpretation of, and possible values for, any remaining @var{string}, @var{desc}, or @var{value} fields present in the stab. @xref{Stab Types}, for a list in numeric order of the valid @var{type} field values for stab directives. @node String Field @section The String Field For most stabs the string field holds the meat of the debugging information. The flexible nature of this field is what makes stabs extensible. For some stab types the string field contains only a name. For other stab types the contents can be a great deal more complex. The overall format of the string field for most stab types is: @example "@var{name}:@var{symbol-descriptor} @var{type-information}" @end example @var{name} is the name of the symbol represented by the stab; it can contain a pair of colons (@pxref{Nested Symbols}). @var{name} can be omitted, which means the stab represents an unnamed object. For example, @samp{:t10=*2} defines type 10 as a pointer to type 2, but does not give the type a name. Omitting the @var{name} field is supported by AIX dbx and GDB after about version 4.8, but not other debuggers. GCC sometimes uses a single space as the name instead of omitting the name altogether; apparently that is supported by most debuggers. The @var{symbol-descriptor} following the @samp{:} is an alphabetic character that tells more specifically what kind of symbol the stab represents. If the @var{symbol-descriptor} is omitted, but type information follows, then the stab represents a local variable. For a list of symbol descriptors, see @ref{Symbol Descriptors}. The @samp{c} symbol descriptor is an exception in that it is not followed by type information. @xref{Constants}. @var{type-information} is either a @var{type-number}, or @samp{@var{type-number}=}. A @var{type-number} alone is a type reference, referring directly to a type that has already been defined. The @samp{@var{type-number}=} form is a type definition, where the number represents a new type which is about to be defined. The type definition may refer to other types by number, and those type numbers may be followed by @samp{=} and nested definitions. Also, the Lucid compiler will repeat @samp{@var{type-number}=} more than once if it wants to define several type numbers at once. In a type definition, if the character that follows the equals sign is non-numeric then it is a @var{type-descriptor}, and tells what kind of type is about to be defined. Any other values following the @var{type-descriptor} vary, depending on the @var{type-descriptor}. @xref{Type Descriptors}, for a list of @var{type-descriptor} values. If a number follows the @samp{=} then the number is a @var{type-reference}. For a full description of types, @ref{Types}. There is an AIX extension for type attributes. Following the @samp{=} are any number of type attributes. Each one starts with @samp{@@} and ends with @samp{;}. Debuggers, including AIX's dbx and GDB 4.10, skip any type attributes they do not recognize. GDB 4.9 and other versions of dbx may not do this. Because of a conflict with C++ (@pxref{Cplusplus}), new attributes should not be defined which begin with a digit, @samp{(}, or @samp{-}; GDB may be unable to distinguish those from the C++ type descriptor @samp{@@}. The attributes are: @table @code @item a@var{boundary} @var{boundary} is an integer specifying the alignment. I assume it applies to all variables of this type. @item p@var{integer} Pointer class (for checking). Not sure what this means, or how @var{integer} is interpreted. @item P Indicate this is a packed type, meaning that structure fields or array elements are placed more closely in memory, to save memory at the expense of speed. @item s@var{size} Size in bits of a variable of this type. This is fully supported by GDB 4.11 and later. @item S Indicate that this type is a string instead of an array of characters, or a bitstring instead of a set. It doesn't change the layout of the data being represented, but does enable the debugger to know which type it is. @end table All of this can make the string field quite long. All versions of GDB, and some versions of dbx, can handle arbitrarily long strings. But many versions of dbx (or assemblers or linkers, I'm not sure which) cretinously limit the strings to about 80 characters, so compilers which must work with such systems need to split the @code{.stabs} directive into several @code{.stabs} directives. Each stab duplicates every field except the string field. The string field of every stab except the last is marked as continued with a backslash at the end (in the assembly code this may be written as a double backslash, depending on the assembler). Removing the backslashes and concatenating the string fields of each stab produces the original, long string. Just to be incompatible (or so they don't have to worry about what the assembler does with backslashes), AIX can use @samp{?} instead of backslash. @node C Example @section A Simple Example in C Source To get the flavor of how stabs describe source information for a C program, let's look at the simple program: @example main() @{ printf("Hello world"); @} @end example When compiled with @samp{-g}, the program above yields the following @file{.s} file. Line numbers have been added to make it easier to refer to parts of the @file{.s} file in the description of the stabs that follows. @node Assembly Code @section The Simple Example at the Assembly Level This simple ``hello world'' example demonstrates several of the stab types used to describe C language source files. @example 1 gcc2_compiled.: 2 .stabs "/cygint/s1/users/jcm/play/",100,0,0,Ltext0 3 .stabs "hello.c",100,0,0,Ltext0 4 .text 5 Ltext0: 6 .stabs "int:t1=r1;-2147483648;2147483647;",128,0,0,0 7 .stabs "char:t2=r2;0;127;",128,0,0,0 8 .stabs "long int:t3=r1;-2147483648;2147483647;",128,0,0,0 9 .stabs "unsigned int:t4=r1;0;-1;",128,0,0,0 10 .stabs "long unsigned int:t5=r1;0;-1;",128,0,0,0 11 .stabs "short int:t6=r1;-32768;32767;",128,0,0,0 12 .stabs "long long int:t7=r1;0;-1;",128,0,0,0 13 .stabs "short unsigned int:t8=r1;0;65535;",128,0,0,0 14 .stabs "long long unsigned int:t9=r1;0;-1;",128,0,0,0 15 .stabs "signed char:t10=r1;-128;127;",128,0,0,0 16 .stabs "unsigned char:t11=r1;0;255;",128,0,0,0 17 .stabs "float:t12=r1;4;0;",128,0,0,0 18 .stabs "double:t13=r1;8;0;",128,0,0,0 19 .stabs "long double:t14=r1;8;0;",128,0,0,0 20 .stabs "void:t15=15",128,0,0,0 21 .align 4 22 LC0: 23 .ascii "Hello, world!\12\0" 24 .align 4 25 .global _main 26 .proc 1 27 _main: 28 .stabn 68,0,4,LM1 29 LM1: 30 !#PROLOGUE# 0 31 save %sp,-136,%sp 32 !#PROLOGUE# 1 33 call ___main,0 34 nop 35 .stabn 68,0,5,LM2 36 LM2: 37 LBB2: 38 sethi %hi(LC0),%o1 39 or %o1,%lo(LC0),%o0 40 call _printf,0 41 nop 42 .stabn 68,0,6,LM3 43 LM3: 44 LBE2: 45 .stabn 68,0,6,LM4 46 LM4: 47 L1: 48 ret 49 restore 50 .stabs "main:F1",36,0,0,_main 51 .stabn 192,0,0,LBB2 52 .stabn 224,0,0,LBE2 @end example @node Program Structure @chapter Encoding the Structure of the Program The elements of the program structure that stabs encode include the name of the main function, the names of the source and include files, the line numbers, procedure names and types, and the beginnings and ends of blocks of code. @menu * Main Program:: Indicate what the main program is * Source Files:: The path and name of the source file * Include Files:: Names of include files * Line Numbers:: * Procedures:: * Nested Procedures:: * Block Structure:: * Alternate Entry Points:: Entering procedures except at the beginning. @end menu @node Main Program @section Main Program @findex N_MAIN Most languages allow the main program to have any name. The @code{N_MAIN} stab type tells the debugger the name that is used in this program. Only the string field is significant; it is the name of a function which is the main program. Most C compilers do not use this stab (they expect the debugger to assume that the name is @code{main}), but some C compilers emit an @code{N_MAIN} stab for the @code{main} function. @node Source Files @section Paths and Names of the Source Files @findex N_SO Before any other stabs occur, there must be a stab specifying the source file. This information is contained in a symbol of stab type @code{N_SO}; the string field contains the name of the file. The value of the symbol is the start address of the portion of the text section corresponding to that file. With the Sun Solaris2 compiler, the desc field contains a source-language code. @c Do the debuggers use it? What are the codes? -djm Some compilers (for example, GCC2 and SunOS4 @file{/bin/cc}) also include the directory in which the source was compiled, in a second @code{N_SO} symbol preceding the one containing the file name. This symbol can be distinguished by the fact that it ends in a slash. Code from the @code{cfront} C++ compiler can have additional @code{N_SO} symbols for nonexistent source files after the @code{N_SO} for the real source file; these are believed to contain no useful information. For example: @example .stabs "/cygint/s1/users/jcm/play/",100,0,0,Ltext0 # @r{100 is N_SO} .stabs "hello.c",100,0,0,Ltext0 .text Ltext0: @end example Instead of @code{N_SO} symbols, XCOFF uses a @code{.file} assembler directive which assembles to a standard COFF @code{.file} symbol; explaining this in detail is outside the scope of this document. @node Include Files @section Names of Include Files There are several schemes for dealing with include files: the traditional @code{N_SOL} approach, Sun's @code{N_BINCL} approach, and the XCOFF @code{C_BINCL} approach (which despite the similar name has little in common with @code{N_BINCL}). @findex N_SOL An @code{N_SOL} symbol specifies which include file subsequent symbols refer to. The string field is the name of the file and the value is the text address corresponding to the end of the previous include file and the start of this one. To specify the main source file again, use an @code{N_SOL} symbol with the name of the main source file. @findex N_BINCL @findex N_EINCL @findex N_EXCL The @code{N_BINCL} approach works as follows. An @code{N_BINCL} symbol specifies the start of an include file. In an object file, only the string is significant; the Sun linker puts data into some of the other fields. The end of the include file is marked by an @code{N_EINCL} symbol (which has no string field). In an object file, there is no significant data in the @code{N_EINCL} symbol; the Sun linker puts data into some of the fields. @code{N_BINCL} and @code{N_EINCL} can be nested. If the linker detects that two source files have identical stabs between an @code{N_BINCL} and @code{N_EINCL} pair (as will generally be the case for a header file), then it only puts out the stabs once. Each additional occurance is replaced by an @code{N_EXCL} symbol. I believe the Sun (SunOS4, not sure about Solaris) linker is the only one which supports this feature. @c What do the fields of N_EXCL contain? -djm @findex C_BINCL @findex C_EINCL For the start of an include file in XCOFF, use the @file{.bi} assembler directive, which generates a @code{C_BINCL} symbol. A @file{.ei} directive, which generates a @code{C_EINCL} symbol, denotes the end of the include file. Both directives are followed by the name of the source file in quotes, which becomes the string for the symbol. The value of each symbol, produced automatically by the assembler and linker, is the offset into the executable of the beginning (inclusive, as you'd expect) or end (inclusive, as you would not expect) of the portion of the COFF line table that corresponds to this include file. @code{C_BINCL} and @code{C_EINCL} do not nest. @node Line Numbers @section Line Numbers @findex N_SLINE An @code{N_SLINE} symbol represents the start of a source line. The desc field contains the line number and the value contains the code address for the start of that source line. On most machines the address is absolute; for stabs in sections (@pxref{Stab Sections}), it is relative to the function in which the @code{N_SLINE} symbol occurs. @findex N_DSLINE @findex N_BSLINE GNU documents @code{N_DSLINE} and @code{N_BSLINE} symbols for line numbers in the data or bss segments, respectively. They are identical to @code{N_SLINE} but are relocated differently by the linker. They were intended to be used to describe the source location of a variable declaration, but I believe that GCC2 actually puts the line number in the desc field of the stab for the variable itself. GDB has been ignoring these symbols (unless they contain a string field) since at least GDB 3.5. For single source lines that generate discontiguous code, such as flow of control statements, there may be more than one line number entry for the same source line. In this case there is a line number entry at the start of each code range, each with the same line number. XCOFF does not use stabs for line numbers. Instead, it uses COFF line numbers (which are outside the scope of this document). Standard COFF line numbers cannot deal with include files, but in XCOFF this is fixed with the @code{C_BINCL} method of marking include files (@pxref{Include Files}). @node Procedures @section Procedures @findex N_FUN, for functions @findex N_FNAME @findex N_STSYM, for functions (Sun acc) @findex N_GSYM, for functions (Sun acc) All of the following stabs normally use the @code{N_FUN} symbol type. However, Sun's @code{acc} compiler on SunOS4 uses @code{N_GSYM} and @code{N_STSYM}, which means that the value of the stab for the function is useless and the debugger must get the address of the function from the non-stab symbols instead. BSD Fortran is said to use @code{N_FNAME} with the same restriction; the value of the symbol is not useful (I'm not sure it really does use this, because GDB doesn't handle this and no one has complained). A function is represented by an @samp{F} symbol descriptor for a global (extern) function, and @samp{f} for a static (local) function. The value is the address of the start of the function. For a.out, it is already relocated. For stabs in ELF, the SunPRO compiler version 2.0.1 and GCC put out an address which gets relocated by the linker. In a future release SunPRO is planning to put out zero, in which case the address can be found from the ELF (non-stab) symbol. Because looking things up in the ELF symbols would probably be slow, I'm not sure how to find which symbol of that name is the right one, and this doesn't provide any way to deal with nested functions, it would probably be better to make the value of the stab an address relative to the start of the file, or just absolute. See @ref{ELF Linker Relocation} for more information on linker relocation of stabs in ELF files. The type information of the stab represents the return type of the function; thus @samp{foo:f5} means that foo is a function returning type 5. There is no need to try to get the line number of the start of the function from the stab for the function; it is in the next @code{N_SLINE} symbol. @c FIXME: verify whether the "I suspect" below is true or not. Some compilers (such as Sun's Solaris compiler) support an extension for specifying the types of the arguments. I suspect this extension is not used for old (non-prototyped) function definitions in C. If the extension is in use, the type information of the stab for the function is followed by type information for each argument, with each argument preceded by @samp{;}. An argument type of 0 means that additional arguments are being passed, whose types and number may vary (@samp{...} in ANSI C). GDB has tolerated this extension (parsed the syntax, if not necessarily used the information) since at least version 4.8; I don't know whether all versions of dbx tolerate it. The argument types given here are not redundant with the symbols for the formal parameters (@pxref{Parameters}); they are the types of the arguments as they are passed, before any conversions might take place. For example, if a C function which is declared without a prototype takes a @code{float} argument, the value is passed as a @code{double} but then converted to a @code{float}. Debuggers need to use the types given in the arguments when printing values, but when calling the function they need to use the types given in the symbol defining the function. If the return type and types of arguments of a function which is defined in another source file are specified (i.e., a function prototype in ANSI C), traditionally compilers emit no stab; the only way for the debugger to find the information is if the source file where the function is defined was also compiled with debugging symbols. As an extension the Solaris compiler uses symbol descriptor @samp{P} followed by the return type of the function, followed by the arguments, each preceded by @samp{;}, as in a stab with symbol descriptor @samp{f} or @samp{F}. This use of symbol descriptor @samp{P} can be distinguished from its use for register parameters (@pxref{Register Parameters}) by the fact that it has symbol type @code{N_FUN}. The AIX documentation also defines symbol descriptor @samp{J} as an internal function. I assume this means a function nested within another function. It also says symbol descriptor @samp{m} is a module in Modula-2 or extended Pascal. Procedures (functions which do not return values) are represented as functions returning the @code{void} type in C. I don't see why this couldn't be used for all languages (inventing a @code{void} type for this purpose if necessary), but the AIX documentation defines @samp{I}, @samp{P}, and @samp{Q} for internal, global, and static procedures, respectively. These symbol descriptors are unusual in that they are not followed by type information. The following example shows a stab for a function @code{main} which returns type number @code{1}. The @code{_main} specified for the value is a reference to an assembler label which is used to fill in the start address of the function. @example .stabs "main:F1",36,0,0,_main # @r{36 is N_FUN} @end example The stab representing a procedure is located immediately following the code of the procedure. This stab is in turn directly followed by a group of other stabs describing elements of the procedure. These other stabs describe the procedure's parameters, its block local variables, and its block structure. @node Nested Procedures @section Nested Procedures For any of the symbol descriptors representing procedures, after the symbol descriptor and the type information is optionally a scope specifier. This consists of a comma, the name of the procedure, another comma, and the name of the enclosing procedure. The first name is local to the scope specified, and seems to be redundant with the name of the symbol (before the @samp{:}). This feature is used by GCC, and presumably Pascal, Modula-2, etc., compilers, for nested functions. If procedures are nested more than one level deep, only the immediately containing scope is specified. For example, this code: @example int foo (int x) @{ int bar (int y) @{ int baz (int z) @{ return x + y + z; @} return baz (x + 2 * y); @} return x + bar (3 * x); @} @end example @noindent produces the stabs: @example .stabs "baz:f1,baz,bar",36,0,0,_baz.15 # @r{36 is N_FUN} .stabs "bar:f1,bar,foo",36,0,0,_bar.12 .stabs "foo:F1",36,0,0,_foo @end example @node Block Structure @section Block Structure @findex N_LBRAC @findex N_RBRAC @c For GCC 2.5.8 or so stabs-in-coff, these are absolute instead of @c function relative (as documented below). But GDB has never been able @c to deal with that (it had wanted them to be relative to the file, but @c I just fixed that (between GDB 4.12 and 4.13)), so it is function @c relative just like ELF and SOM and the below documentation. The program's block structure is represented by the @code{N_LBRAC} (left brace) and the @code{N_RBRAC} (right brace) stab types. The variables defined inside a block precede the @code{N_LBRAC} symbol for most compilers, including GCC. Other compilers, such as the Convex, Acorn RISC machine, and Sun @code{acc} compilers, put the variables after the @code{N_LBRAC} symbol. The values of the @code{N_LBRAC} and @code{N_RBRAC} symbols are the start and end addresses of the code of the block, respectively. For most machines, they are relative to the starting address of this source file. For the Gould NP1, they are absolute. For stabs in sections (@pxref{Stab Sections}), they are relative to the function in which they occur. The @code{N_LBRAC} and @code{N_RBRAC} stabs that describe the block scope of a procedure are located after the @code{N_FUN} stab that represents the procedure itself. Sun documents the desc field of @code{N_LBRAC} and @code{N_RBRAC} symbols as containing the nesting level of the block. However, dbx seems to not care, and GCC always sets desc to zero. @node Alternate Entry Points @section Alternate Entry Points Some languages, like Fortran, have the ability to enter procedures at some place other than the beginning. One can declare an alternate entry point. The @code{N_ENTRY} stab is for this; however, the Sun FORTRAN compiler doesn't use it. According to AIX documentation, only the name of a @code{C_ENTRY} stab is significant; the address of the alternate entry point comes from the corresponding external symbol. A previous revision of this document said that the value of an @code{N_ENTRY} stab was the address of the alternate entry point, but I don't know the source for that information. @node Constants @chapter Constants The @samp{c} symbol descriptor indicates that this stab represents a constant. This symbol descriptor is an exception to the general rule that symbol descriptors are followed by type information. Instead, it is followed by @samp{=} and one of the following: @table @code @item b @var{value} Boolean constant. @var{value} is a numeric value; I assume it is 0 for false or 1 for true. @item c @var{value} Character constant. @var{value} is the numeric value of the constant. @item e @var{type-information} , @var{value} Constant whose value can be represented as integral. @var{type-information} is the type of the constant, as it would appear after a symbol descriptor (@pxref{String Field}). @var{value} is the numeric value of the constant. GDB 4.9 does not actually get the right value if @var{value} does not fit in a host @code{int}, but it does not do anything violent, and future debuggers could be extended to accept integers of any size (whether unsigned or not). This constant type is usually documented as being only for enumeration constants, but GDB has never imposed that restriction; I don't know about other debuggers. @item i @var{value} Integer constant. @var{value} is the numeric value. The type is some sort of generic integer type (for GDB, a host @code{int}); to specify the type explicitly, use @samp{e} instead. @item r @var{value} Real constant. @var{value} is the real value, which can be @samp{INF} (optionally preceded by a sign) for infinity, @samp{QNAN} for a quiet NaN (not-a-number), or @samp{SNAN} for a signalling NaN. If it is a normal number the format is that accepted by the C library function @code{atof}. @item s @var{string} String constant. @var{string} is a string enclosed in either @samp{'} (in which case @samp{'} characters within the string are represented as @samp{\'} or @samp{"} (in which case @samp{"} characters within the string are represented as @samp{\"}). @item S @var{type-information} , @var{elements} , @var{bits} , @var{pattern} Set constant. @var{type-information} is the type of the constant, as it would appear after a symbol descriptor (@pxref{String Field}). @var{elements} is the number of elements in the set (does this means how many bits of @var{pattern} are actually used, which would be redundant with the type, or perhaps the number of bits set in @var{pattern}? I don't get it), @var{bits} is the number of bits in the constant (meaning it specifies the length of @var{pattern}, I think), and @var{pattern} is a hexadecimal representation of the set. AIX documentation refers to a limit of 32 bytes, but I see no reason why this limit should exist. This form could probably be used for arbitrary constants, not just sets; the only catch is that @var{pattern} should be understood to be target, not host, byte order and format. @end table The boolean, character, string, and set constants are not supported by GDB 4.9, but it ignores them. GDB 4.8 and earlier gave an error message and refused to read symbols from the file containing the constants. The above information is followed by @samp{;}. @node Variables @chapter Variables Different types of stabs describe the various ways that variables can be allocated: on the stack, globally, in registers, in common blocks, statically, or as arguments to a function. @menu * Stack Variables:: Variables allocated on the stack. * Global Variables:: Variables used by more than one source file. * Register Variables:: Variables in registers. * Common Blocks:: Variables statically allocated together. * Statics:: Variables local to one source file. * Based Variables:: Fortran pointer based variables. * Parameters:: Variables for arguments to functions. @end menu @node Stack Variables @section Automatic Variables Allocated on the Stack If a variable's scope is local to a function and its lifetime is only as long as that function executes (C calls such variables @dfn{automatic}), it can be allocated in a register (@pxref{Register Variables}) or on the stack. @findex N_LSYM Each variable allocated on the stack has a stab with the symbol descriptor omitted. Since type information should begin with a digit, @samp{-}, or @samp{(}, only those characters precluded from being used for symbol descriptors. However, the Acorn RISC machine (ARM) is said to get this wrong: it puts out a mere type definition here, without the preceding @samp{@var{type-number}=}. This is a bad idea; there is no guarantee that type descriptors are distinct from symbol descriptors. Stabs for stack variables use the @code{N_LSYM} stab type. The value of the stab is the offset of the variable within the local variables. On most machines this is an offset from the frame pointer and is negative. The location of the stab specifies which block it is defined in; see @ref{Block Structure}. For example, the following C code: @example int main () @{ int x; @} @end example produces the following stabs: @example .stabs "main:F1",36,0,0,_main # @r{36 is N_FUN} .stabs "x:1",128,0,0,-12 # @r{128 is N_LSYM} .stabn 192,0,0,LBB2 # @r{192 is N_LBRAC} .stabn 224,0,0,LBE2 # @r{224 is N_RBRAC} @end example @xref{Procedures} for more information on the @code{N_FUN} stab, and @ref{Block Structure} for more information on the @code{N_LBRAC} and @code{N_RBRAC} stabs. @node Global Variables @section Global Variables @findex N_GSYM A variable whose scope is not specific to just one source file is represented by the @samp{G} symbol descriptor. These stabs use the @code{N_GSYM} stab type. The type information for the stab (@pxref{String Field}) gives the type of the variable. For example, the following source code: @example char g_foo = 'c'; @end example @noindent yields the following assembly code: @example .stabs "g_foo:G2",32,0,0,0 # @r{32 is N_GSYM} .global _g_foo .data _g_foo: .byte 99 @end example The address of the variable represented by the @code{N_GSYM} is not contained in the @code{N_GSYM} stab. The debugger gets this information from the external symbol for the global variable. In the example above, the @code{.global _g_foo} and @code{_g_foo:} lines tell the assembler to produce an external symbol. Some compilers, like GCC, output @code{N_GSYM} stabs only once, where the variable is defined. Other compilers, like SunOS4 /bin/cc, output a @code{N_GSYM} stab for each compilation unit which references the variable. @node Register Variables @section Register Variables @findex N_RSYM @c According to an old version of this manual, AIX uses C_RPSYM instead @c of C_RSYM. I am skeptical; this should be verified. Register variables have their own stab type, @code{N_RSYM}, and their own symbol descriptor, @samp{r}. The stab's value is the number of the register where the variable data will be stored. @c .stabs "name:type",N_RSYM,0,RegSize,RegNumber (Sun doc) AIX defines a separate symbol descriptor @samp{d} for floating point registers. This seems unnecessary; why not just just give floating point registers different register numbers? I have not verified whether the compiler actually uses @samp{d}. If the register is explicitly allocated to a global variable, but not initialized, as in: @example register int g_bar asm ("%g5"); @end example @noindent then the stab may be emitted at the end of the object file, with the other bss symbols. @node Common Blocks @section Common Blocks A common block is a statically allocated section of memory which can be referred to by several source files. It may contain several variables. I believe Fortran is the only language with this feature. @findex N_BCOMM @findex N_ECOMM @findex C_BCOMM @findex C_ECOMM A @code{N_BCOMM} stab begins a common block and an @code{N_ECOMM} stab ends it. The only field that is significant in these two stabs is the string, which names a normal (non-debugging) symbol that gives the address of the common block. According to IBM documentation, only the @code{N_BCOMM} has the name of the common block (even though their compiler actually puts it both places). @findex N_ECOML @findex C_ECOML The stabs for the members of the common block are between the @code{N_BCOMM} and the @code{N_ECOMM}; the value of each stab is the offset within the common block of that variable. IBM uses the @code{C_ECOML} stab type, and there is a corresponding @code{N_ECOML} stab type, but Sun's Fortran compiler uses @code{N_GSYM} instead. The variables within a common block use the @samp{V} symbol descriptor (I believe this is true of all Fortran variables). Other stabs (at least type declarations using @code{C_DECL}) can also be between the @code{N_BCOMM} and the @code{N_ECOMM}. @node Statics @section Static Variables Initialized static variables are represented by the @samp{S} and @samp{V} symbol descriptors. @samp{S} means file scope static, and @samp{V} means procedure scope static. One exception: in XCOFF, IBM's xlc compiler always uses @samp{V}, and whether it is file scope or not is distinguished by whether the stab is located within a function. @c This is probably not worth mentioning; it is only true on the sparc @c for `double' variables which although declared const are actually in @c the data segment (the text segment can't guarantee 8 byte alignment). @c (although GCC @c 2.4.5 has a bug in that it uses @code{N_FUN}, so neither dbx nor GDB can @c find the variables) @findex N_STSYM @findex N_LCSYM @findex N_FUN, for variables @findex N_ROSYM In a.out files, @code{N_STSYM} means the data section, @code{N_FUN} means the text section, and @code{N_LCSYM} means the bss section. For those systems with a read-only data section separate from the text section (Solaris), @code{N_ROSYM} means the read-only data section. For example, the source lines: @example static const int var_const = 5; static int var_init = 2; static int var_noinit; @end example @noindent yield the following stabs: @example .stabs "var_const:S1",36,0,0,_var_const # @r{36 is N_FUN} @dots{} .stabs "var_init:S1",38,0,0,_var_init # @r{38 is N_STSYM} @dots{} .stabs "var_noinit:S1",40,0,0,_var_noinit # @r{40 is N_LCSYM} @end example In XCOFF files, the stab type need not indicate the section; @code{C_STSYM} can be used for all statics. Also, each static variable is enclosed in a static block. A @code{C_BSTAT} (emitted with a @samp{.bs} assembler directive) symbol begins the static block; its value is the symbol number of the csect symbol whose value is the address of the static block, its section is the section of the variables in that static block, and its name is @samp{.bs}. A @code{C_ESTAT} (emitted with a @samp{.es} assembler directive) symbol ends the static block; its name is @samp{.es} and its value and section are ignored. In ECOFF files, the storage class is used to specify the section, so the stab type need not indicate the section. In ELF files, for the SunPRO compiler version 2.0.1, symbol descriptor @samp{S} means that the address is absolute (the linker relocates it) and symbol descriptor @samp{V} means that the address is relative to the start of the relevant section for that compilation unit. SunPRO has plans to have the linker stop relocating stabs; I suspect that their the debugger gets the address from the corresponding ELF (not stab) symbol. I'm not sure how to find which symbol of that name is the right one. The clean way to do all this would be to have a the value of a symbol descriptor @samp{S} symbol be an offset relative to the start of the file, just like everything else, but that introduces obvious compatibility problems. For more information on linker stab relocation, @xref{ELF Linker Relocation}. @node Based Variables @section Fortran Based Variables Fortran (at least, the Sun and SGI dialects of FORTRAN-77) has a feature which allows allocating arrays with @code{malloc}, but which avoids blurring the line between arrays and pointers the way that C does. In stabs such a variable uses the @samp{b} symbol descriptor. For example, the Fortran declarations @example real foo, foo10(10), foo10_5(10,5) pointer (foop, foo) pointer (foo10p, foo10) pointer (foo105p, foo10_5) @end example produce the stabs @example foo:b6 foo10:bar3;1;10;6 foo10_5:bar3;1;5;ar3;1;10;6 @end example In this example, @code{real} is type 6 and type 3 is an integral type which is the type of the subscripts of the array (probably @code{integer}). The @samp{b} symbol descriptor is like @samp{V} in that it denotes a statically allocated symbol whose scope is local to a function; see @xref{Statics}. The value of the symbol, instead of being the address of the variable itself, is the address of a pointer to that variable. So in the above example, the value of the @code{foo} stab is the address of a pointer to a real, the value of the @code{foo10} stab is the address of a pointer to a 10-element array of reals, and the value of the @code{foo10_5} stab is the address of a pointer to a 5-element array of 10-element arrays of reals. @node Parameters @section Parameters Formal parameters to a function are represented by a stab (or sometimes two; see below) for each parameter. The stabs are in the order in which the debugger should print the parameters (i.e., the order in which the parameters are declared in the source file). The exact form of the stab depends on how the parameter is being passed. @findex N_PSYM Parameters passed on the stack use the symbol descriptor @samp{p} and the @code{N_PSYM} symbol type. The value of the symbol is an offset used to locate the parameter on the stack; its exact meaning is machine-dependent, but on most machines it is an offset from the frame pointer. As a simple example, the code: @example main (argc, argv) int argc; char **argv; @end example produces the stabs: @example .stabs "main:F1",36,0,0,_main # @r{36 is N_FUN} .stabs "argc:p1",160,0,0,68 # @r{160 is N_PSYM} .stabs "argv:p20=*21=*2",160,0,0,72 @end example The type definition of @code{argv} is interesting because it contains several type definitions. Type 21 is pointer to type 2 (char) and @code{argv} (type 20) is pointer to type 21. @c FIXME: figure out what these mean and describe them coherently. The following symbol descriptors are also said to go with @code{N_PSYM}. The value of the symbol is said to be an offset from the argument pointer (I'm not sure whether this is true or not). @example pP (<>) pF Fortran function parameter X (function result variable) @end example @menu * Register Parameters:: * Local Variable Parameters:: * Reference Parameters:: * Conformant Arrays:: @end menu @node Register Parameters @subsection Passing Parameters in Registers If the parameter is passed in a register, then traditionally there are two symbols for each argument: @example .stabs "arg:p1" . . . ; N_PSYM .stabs "arg:r1" . . . ; N_RSYM @end example Debuggers use the second one to find the value, and the first one to know that it is an argument. @findex C_RPSYM @findex N_RSYM, for parameters Because that approach is kind of ugly, some compilers use symbol descriptor @samp{P} or @samp{R} to indicate an argument which is in a register. Symbol type @code{C_RPSYM} is used with @samp{R} and @code{N_RSYM} is used with @samp{P}. The symbol's value is the register number. @samp{P} and @samp{R} mean the same thing; the difference is that @samp{P} is a GNU invention and @samp{R} is an IBM (XCOFF) invention. As of version 4.9, GDB should handle either one. There is at least one case where GCC uses a @samp{p} and @samp{r} pair rather than @samp{P}; this is where the argument is passed in the argument list and then loaded into a register. According to the AIX documentation, symbol descriptor @samp{D} is for a parameter passed in a floating point register. This seems unnecessary---why not just use @samp{R} with a register number which indicates that it's a floating point register? I haven't verified whether the system actually does what the documentation indicates. @c FIXME: On the hppa this is for any type > 8 bytes, I think, and not @c for small structures (investigate). On the sparc and hppa, for a @samp{P} symbol whose type is a structure or union, the register contains the address of the structure. On the sparc, this is also true of a @samp{p} and @samp{r} pair (using Sun @code{cc}) or a @samp{p} symbol. However, if a (small) structure is really in a register, @samp{r} is used. And, to top it all off, on the hppa it might be a structure which was passed on the stack and loaded into a register and for which there is a @samp{p} and @samp{r} pair! I believe that symbol descriptor @samp{i} is supposed to deal with this case (it is said to mean "value parameter by reference, indirect access"; I don't know the source for this information), but I don't know details or what compilers or debuggers use it, if any (not GDB or GCC). It is not clear to me whether this case needs to be dealt with differently than parameters passed by reference (@pxref{Reference Parameters}). @node Local Variable Parameters @subsection Storing Parameters as Local Variables There is a case similar to an argument in a register, which is an argument that is actually stored as a local variable. Sometimes this happens when the argument was passed in a register and then the compiler stores it as a local variable. If possible, the compiler should claim that it's in a register, but this isn't always done. If a parameter is passed as one type and converted to a smaller type by the prologue (for example, the parameter is declared as a @code{float}, but the calling conventions specify that it is passed as a @code{double}), then GCC2 (sometimes) uses a pair of symbols. The first symbol uses symbol descriptor @samp{p} and the type which is passed. The second symbol has the type and location which the parameter actually has after the prologue. For example, suppose the following C code appears with no prototypes involved: @example void subr (f) float f; @{ @end example if @code{f} is passed as a double at stack offset 8, and the prologue converts it to a float in register number 0, then the stabs look like: @example .stabs "f:p13",160,0,3,8 # @r{160 is @code{N_PSYM}, here 13 is @code{double}} .stabs "f:r12",64,0,3,0 # @r{64 is @code{N_RSYM}, here 12 is @code{float}} @end example In both stabs 3 is the line number where @code{f} is declared (@pxref{Line Numbers}). @findex N_LSYM, for parameter GCC, at least on the 960, has another solution to the same problem. It uses a single @samp{p} symbol descriptor for an argument which is stored as a local variable but uses @code{N_LSYM} instead of @code{N_PSYM}. In this case, the value of the symbol is an offset relative to the local variables for that function, not relative to the arguments; on some machines those are the same thing, but not on all. @c This is mostly just background info; the part that logically belongs @c here is the last sentence. On the VAX or on other machines in which the calling convention includes the number of words of arguments actually passed, the debugger (GDB at least) uses the parameter symbols to keep track of whether it needs to print nameless arguments in addition to the formal parameters which it has printed because each one has a stab. For example, in @example extern int fprintf (FILE *stream, char *format, @dots{}); @dots{} fprintf (stdout, "%d\n", x); @end example there are stabs for @code{stream} and @code{format}. On most machines, the debugger can only print those two arguments (because it has no way of knowing that additional arguments were passed), but on the VAX or other machines with a calling convention which indicates the number of words of arguments, the debugger can print all three arguments. To do so, the parameter symbol (symbol descriptor @samp{p}) (not necessarily @samp{r} or symbol descriptor omitted symbols) needs to contain the actual type as passed (for example, @code{double} not @code{float} if it is passed as a double and converted to a float). @node Reference Parameters @subsection Passing Parameters by Reference If the parameter is passed by reference (e.g., Pascal @code{VAR} parameters), then the symbol descriptor is @samp{v} if it is in the argument list, or @samp{a} if it in a register. Other than the fact that these contain the address of the parameter rather than the parameter itself, they are identical to @samp{p} and @samp{R}, respectively. I believe @samp{a} is an AIX invention; @samp{v} is supported by all stabs-using systems as far as I know. @node Conformant Arrays @subsection Passing Conformant Array Parameters @c Is this paragraph correct? It is based on piecing together patchy @c information and some guesswork Conformant arrays are a feature of Modula-2, and perhaps other languages, in which the size of an array parameter is not known to the called function until run-time. Such parameters have two stabs: a @samp{x} for the array itself, and a @samp{C}, which represents the size of the array. The value of the @samp{x} stab is the offset in the argument list where the address of the array is stored (it this right? it is a guess); the value of the @samp{C} stab is the offset in the argument list where the size of the array (in elements? in bytes?) is stored. @node Types @chapter Defining Types The examples so far have described types as references to previously defined types, or defined in terms of subranges of or pointers to previously defined types. This chapter describes the other type descriptors that may follow the @samp{=} in a type definition. @menu * Builtin Types:: Integers, floating point, void, etc. * Miscellaneous Types:: Pointers, sets, files, etc. * Cross-References:: Referring to a type not yet defined. * Subranges:: A type with a specific range. * Arrays:: An aggregate type of same-typed elements. * Strings:: Like an array but also has a length. * Enumerations:: Like an integer but the values have names. * Structures:: An aggregate type of different-typed elements. * Typedefs:: Giving a type a name. * Unions:: Different types sharing storage. * Function Types:: @end menu @node Builtin Types @section Builtin Types Certain types are built in (@code{int}, @code{short}, @code{void}, @code{float}, etc.); the debugger recognizes these types and knows how to handle them. Thus, don't be surprised if some of the following ways of specifying builtin types do not specify everything that a debugger would need to know about the type---in some cases they merely specify enough information to distinguish the type from other types. The traditional way to define builtin types is convolunted, so new ways have been invented to describe them. Sun's @code{acc} uses special builtin type descriptors (@samp{b} and @samp{R}), and IBM uses negative type numbers. GDB accepts all three ways, as of version 4.8; dbx just accepts the traditional builtin types and perhaps one of the other two formats. The following sections describe each of these formats. @menu * Traditional Builtin Types:: Put on your seatbelts and prepare for kludgery * Builtin Type Descriptors:: Builtin types with special type descriptors * Negative Type Numbers:: Builtin types using negative type numbers @end menu @node Traditional Builtin Types @subsection Traditional Builtin Types This is the traditional, convoluted method for defining builtin types. There are several classes of such type definitions: integer, floating point, and @code{void}. @menu * Traditional Integer Types:: * Traditional Other Types:: @end menu @node Traditional Integer Types @subsubsection Traditional Integer Types Often types are defined as subranges of themselves. If the bounding values fit within an @code{int}, then they are given normally. For example: @example .stabs "int:t1=r1;-2147483648;2147483647;",128,0,0,0 # @r{128 is N_LSYM} .stabs "char:t2=r2;0;127;",128,0,0,0 @end example Builtin types can also be described as subranges of @code{int}: @example .stabs "unsigned short:t6=r1;0;65535;",128,0,0,0 @end example If the lower bound of a subrange is 0 and the upper bound is -1, the type is an unsigned integral type whose bounds are too big to describe in an @code{int}. Traditionally this is only used for @code{unsigned int} and @code{unsigned long}: @example .stabs "unsigned int:t4=r1;0;-1;",128,0,0,0 @end example For larger types, GCC 2.4.5 puts out bounds in octal, with one or more leading zeroes. In this case a negative bound consists of a number which is a 1 bit (for the sign bit) followed by a 0 bit for each bit in the number (except the sign bit), and a positive bound is one which is a 1 bit for each bit in the number (except possibly the sign bit). All known versions of dbx and GDB version 4 accept this (at least in the sense of not refusing to process the file), but GDB 3.5 refuses to read the whole file containing such symbols. So GCC 2.3.3 did not output the proper size for these types. As an example of octal bounds, the string fields of the stabs for 64 bit integer types look like: @c .stabs directives, etc., omitted to make it fit on the page. @example long int:t3=r1;001000000000000000000000;000777777777777777777777; long unsigned int:t5=r1;000000000000000000000000;001777777777777777777777; @end example If the lower bound of a subrange is 0 and the upper bound is negative, the type is an unsigned integral type whose size in bytes is the absolute value of the upper bound. I believe this is a Convex convention for @code{unsigned long long}. If the lower bound of a subrange is negative and the upper bound is 0, the type is a signed integral type whose size in bytes is the absolute value of the lower bound. I believe this is a Convex convention for @code{long long}. To distinguish this from a legitimate subrange, the type should be a subrange of itself. I'm not sure whether this is the case for Convex. @node Traditional Other Types @subsubsection Traditional Other Types If the upper bound of a subrange is 0 and the lower bound is positive, the type is a floating point type, and the lower bound of the subrange indicates the number of bytes in the type: @example .stabs "float:t12=r1;4;0;",128,0,0,0 .stabs "double:t13=r1;8;0;",128,0,0,0 @end example However, GCC writes @code{long double} the same way it writes @code{double}, so there is no way to distinguish. @example .stabs "long double:t14=r1;8;0;",128,0,0,0 @end example Complex types are defined the same way as floating-point types; there is no way to distinguish a single-precision complex from a double-precision floating-point type. The C @code{void} type is defined as itself: @example .stabs "void:t15=15",128,0,0,0 @end example I'm not sure how a boolean type is represented. @node Builtin Type Descriptors @subsection Defining Builtin Types Using Builtin Type Descriptors This is the method used by Sun's @code{acc} for defining builtin types. These are the type descriptors to define builtin types: @table @code @c FIXME: clean up description of width and offset, once we figure out @c what they mean @item b @var{signed} @var{char-flag} @var{width} ; @var{offset} ; @var{nbits} ; Define an integral type. @var{signed} is @samp{u} for unsigned or @samp{s} for signed. @var{char-flag} is @samp{c} which indicates this is a character type, or is omitted. I assume this is to distinguish an integral type from a character type of the same size, for example it might make sense to set it for the C type @code{wchar_t} so the debugger can print such variables differently (Solaris does not do this). Sun sets it on the C types @code{signed char} and @code{unsigned char} which arguably is wrong. @var{width} and @var{offset} appear to be for small objects stored in larger ones, for example a @code{short} in an @code{int} register. @var{width} is normally the number of bytes in the type. @var{offset} seems to always be zero. @var{nbits} is the number of bits in the type. Note that type descriptor @samp{b} used for builtin types conflicts with its use for Pascal space types (@pxref{Miscellaneous Types}); they can be distinguished because the character following the type descriptor will be a digit, @samp{(}, or @samp{-} for a Pascal space type, or @samp{u} or @samp{s} for a builtin type. @item w Documented by AIX to define a wide character type, but their compiler actually uses negative type numbers (@pxref{Negative Type Numbers}). @item R @var{fp-type} ; @var{bytes} ; Define a floating point type. @var{fp-type} has one of the following values: @table @code @item 1 (NF_SINGLE) IEEE 32-bit (single precision) floating point format. @item 2 (NF_DOUBLE) IEEE 64-bit (double precision) floating point format. @item 3 (NF_COMPLEX) @item 4 (NF_COMPLEX16) @item 5 (NF_COMPLEX32) @c "GDB source" really means @file{include/aout/stab_gnu.h}, but trying @c to put that here got an overfull hbox. These are for complex numbers. A comment in the GDB source describes them as Fortran @code{complex}, @code{double complex}, and @code{complex*16}, respectively, but what does that mean? (i.e., Single precision? Double precison?). @item 6 (NF_LDOUBLE) Long double. This should probably only be used for Sun format @code{long double}, and new codes should be used for other floating point formats (@code{NF_DOUBLE} can be used if a @code{long double} is really just an IEEE double, of course). @end table @var{bytes} is the number of bytes occupied by the type. This allows a debugger to perform some operations with the type even if it doesn't understand @var{fp-type}. @item g @var{type-information} ; @var{nbits} Documented by AIX to define a floating type, but their compiler actually uses negative type numbers (@pxref{Negative Type Numbers}). @item c @var{type-information} ; @var{nbits} Documented by AIX to define a complex type, but their compiler actually uses negative type numbers (@pxref{Negative Type Numbers}). @end table The C @code{void} type is defined as a signed integral type 0 bits long: @example .stabs "void:t19=bs0;0;0",128,0,0,0 @end example The Solaris compiler seems to omit the trailing semicolon in this case. Getting sloppy in this way is not a swift move because if a type is embedded in a more complex expression it is necessary to be able to tell where it ends. I'm not sure how a boolean type is represented. @node Negative Type Numbers @subsection Negative Type Numbers This is the method used in XCOFF for defining builtin types. Since the debugger knows about the builtin types anyway, the idea of negative type numbers is simply to give a special type number which indicates the builtin type. There is no stab defining these types. There are several subtle issues with negative type numbers. One is the size of the type. A builtin type (for example the C types @code{int} or @code{long}) might have different sizes depending on compiler options, the target architecture, the ABI, etc. This issue doesn't come up for IBM tools since (so far) they just target the RS/6000; the sizes indicated below for each size are what the IBM RS/6000 tools use. To deal with differing sizes, either define separate negative type numbers for each size (which works but requires changing the debugger, and, unless you get both AIX dbx and GDB to accept the change, introduces an incompatibility), or use a type attribute (@pxref{String Field}) to define a new type with the appropriate size (which merely requires a debugger which understands type attributes, like AIX dbx). For example, @example .stabs "boolean:t10=@@s8;-16",128,0,0,0 @end example defines an 8-bit boolean type, and @example .stabs "boolean:t10=@@s64;-16",128,0,0,0 @end example defines a 64-bit boolean type. A similar issue is the format of the type. This comes up most often for floating-point types, which could have various formats (particularly extended doubles, which vary quite a bit even among IEEE systems). Again, it is best to define a new negative type number for each different format; changing the format based on the target system has various problems. One such problem is that the Alpha has both VAX and IEEE floating types. One can easily imagine one library using the VAX types and another library in the same executable using the IEEE types. Another example is that the interpretation of whether a boolean is true or false can be based on the least significant bit, most significant bit, whether it is zero, etc., and different compilers (or different options to the same compiler) might provide different kinds of boolean. The last major issue is the names of the types. The name of a given type depends @emph{only} on the negative type number given; these do not vary depending on the language, the target system, or anything else. One can always define separate type numbers---in the following list you will see for example separate @code{int} and @code{integer*4} types which are identical except for the name. But compatibility can be maintained by not inventing new negative type numbers and instead just defining a new type with a new name. For example: @example .stabs "CARDINAL:t10=-8",128,0,0,0 @end example Here is the list of negative type numbers. The phrase @dfn{integral type} is used to mean twos-complement (I strongly suspect that all machines which use stabs use twos-complement; most machines use twos-complement these days). @table @code @item -1 @code{int}, 32 bit signed integral type. @item -2 @code{char}, 8 bit type holding a character. Both GDB and dbx on AIX treat this as signed. GCC uses this type whether @code{char} is signed or not, which seems like a bad idea. The AIX compiler (@code{xlc}) seems to avoid this type; it uses -5 instead for @code{char}. @item -3 @code{short}, 16 bit signed integral type. @item -4 @code{long}, 32 bit signed integral type. @item -5 @code{unsigned char}, 8 bit unsigned integral type. @item -6 @code{signed char}, 8 bit signed integral type. @item -7 @code{unsigned short}, 16 bit unsigned integral type. @item -8 @code{unsigned int}, 32 bit unsigned integral type. @item -9 @code{unsigned}, 32 bit unsigned integral type. @item -10 @code{unsigned long}, 32 bit unsigned integral type. @item -11 @code{void}, type indicating the lack of a value. @item -12 @code{float}, IEEE single precision. @item -13 @code{double}, IEEE double precision. @item -14 @code{long double}, IEEE double precision. The compiler claims the size will increase in a future release, and for binary compatibility you have to avoid using @code{long double}. I hope when they increase it they use a new negative type number. @item -15 @code{integer}. 32 bit signed integral type. @item -16 @code{boolean}. 32 bit type. GDB and GCC assume that zero is false, one is true, and other values have unspecified meaning. I hope this agrees with how the IBM tools use the type. @item -17 @code{short real}. IEEE single precision. @item -18 @code{real}. IEEE double precision. @item -19 @code{stringptr}. @xref{Strings}. @item -20 @code{character}, 8 bit unsigned character type. @item -21 @code{logical*1}, 8 bit type. This Fortran type has a split personality in that it is used for boolean variables, but can also be used for unsigned integers. 0 is false, 1 is true, and other values are non-boolean. @item -22 @code{logical*2}, 16 bit type. This Fortran type has a split personality in that it is used for boolean variables, but can also be used for unsigned integers. 0 is false, 1 is true, and other values are non-boolean. @item -23 @code{logical*4}, 32 bit type. This Fortran type has a split personality in that it is used for boolean variables, but can also be used for unsigned integers. 0 is false, 1 is true, and other values are non-boolean. @item -24 @code{logical}, 32 bit type. This Fortran type has a split personality in that it is used for boolean variables, but can also be used for unsigned integers. 0 is false, 1 is true, and other values are non-boolean. @item -25 @code{complex}. A complex type consisting of two IEEE single-precision floating point values. @item -26 @code{complex}. A complex type consisting of two IEEE double-precision floating point values. @item -27 @code{integer*1}, 8 bit signed integral type. @item -28 @code{integer*2}, 16 bit signed integral type. @item -29 @code{integer*4}, 32 bit signed integral type. @item -30 @code{wchar}. Wide character, 16 bits wide, unsigned (what format? Unicode?). @end table @node Miscellaneous Types @section Miscellaneous Types @table @code @item b @var{type-information} ; @var{bytes} Pascal space type. This is documented by IBM; what does it mean? This use of the @samp{b} type descriptor can be distinguished from its use for builtin integral types (@pxref{Builtin Type Descriptors}) because the character following the type descriptor is always a digit, @samp{(}, or @samp{-}. @item B @var{type-information} A volatile-qualified version of @var{type-information}. This is a Sun extension. References and stores to a variable with a volatile-qualified type must not be optimized or cached; they must occur as the user specifies them. @item d @var{type-information} File of type @var{type-information}. As far as I know this is only used by Pascal. @item k @var{type-information} A const-qualified version of @var{type-information}. This is a Sun extension. A variable with a const-qualified type cannot be modified. @item M @var{type-information} ; @var{length} Multiple instance type. The type seems to composed of @var{length} repetitions of @var{type-information}, for example @code{character*3} is represented by @samp{M-2;3}, where @samp{-2} is a reference to a character type (@pxref{Negative Type Numbers}). I'm not sure how this differs from an array. This appears to be a Fortran feature. @var{length} is a bound, like those in range types; see @ref{Subranges}. @item S @var{type-information} Pascal set type. @var{type-information} must be a small type such as an enumeration or a subrange, and the type is a bitmask whose length is specified by the number of elements in @var{type-information}. In CHILL, if it is a bitstring instead of a set, also use the @samp{S} type attribute (@pxref{String Field}). @item * @var{type-information} Pointer to @var{type-information}. @end table @node Cross-References @section Cross-References to Other Types A type can be used before it is defined; one common way to deal with that situation is just to use a type reference to a type which has not yet been defined. Another way is with the @samp{x} type descriptor, which is followed by @samp{s} for a structure tag, @samp{u} for a union tag, or @samp{e} for a enumerator tag, followed by the name of the tag, followed by @samp{:}. If the name contains @samp{::} between a @samp{<} and @samp{>} pair (for C++ templates), such a @samp{::} does not end the name---only a single @samp{:} ends the name; see @ref{Nested Symbols}. For example, the following C declarations: @example struct foo; struct foo *bar; @end example @noindent produce: @example .stabs "bar:G16=*17=xsfoo:",32,0,0,0 @end example Not all debuggers support the @samp{x} type descriptor, so on some machines GCC does not use it. I believe that for the above example it would just emit a reference to type 17 and never define it, but I haven't verified that. Modula-2 imported types, at least on AIX, use the @samp{i} type descriptor, which is followed by the name of the module from which the type is imported, followed by @samp{:}, followed by the name of the type. There is then optionally a comma followed by type information for the type. This differs from merely naming the type (@pxref{Typedefs}) in that it identifies the module; I don't understand whether the name of the type given here is always just the same as the name we are giving it, or whether this type descriptor is used with a nameless stab (@pxref{String Field}), or what. The symbol ends with @samp{;}. @node Subranges @section Subrange Types The @samp{r} type descriptor defines a type as a subrange of another type. It is followed by type information for the type of which it is a subrange, a semicolon, an integral lower bound, a semicolon, an integral upper bound, and a semicolon. The AIX documentation does not specify the trailing semicolon, in an effort to specify array indexes more cleanly, but a subrange which is not an array index has always included a trailing semicolon (@pxref{Arrays}). Instead of an integer, either bound can be one of the following: @table @code @item A @var{offset} The bound is passed by reference on the stack at offset @var{offset} from the argument list. @xref{Parameters}, for more information on such offsets. @item T @var{offset} The bound is passed by value on the stack at offset @var{offset} from the argument list. @item a @var{register-number} The bound is pased by reference in register number @var{register-number}. @item t @var{register-number} The bound is passed by value in register number @var{register-number}. @item J There is no bound. @end table Subranges are also used for builtin types; see @ref{Traditional Builtin Types}. @node Arrays @section Array Types Arrays use the @samp{a} type descriptor. Following the type descriptor is the type of the index and the type of the array elements. If the index type is a range type, it ends in a semicolon; otherwise (for example, if it is a type reference), there does not appear to be any way to tell where the types are separated. In an effort to clean up this mess, IBM documents the two types as being separated by a semicolon, and a range type as not ending in a semicolon (but this is not right for range types which are not array indexes, @pxref{Subranges}). I think probably the best solution is to specify that a semicolon ends a range type, and that the index type and element type of an array are separated by a semicolon, but that if the index type is a range type, the extra semicolon can be omitted. GDB (at least through version 4.9) doesn't support any kind of index type other than a range anyway; I'm not sure about dbx. It is well established, and widely used, that the type of the index, unlike most types found in the stabs, is merely a type definition, not type information (@pxref{String Field}) (that is, it need not start with @samp{@var{type-number}=} if it is defining a new type). According to a comment in GDB, this is also true of the type of the array elements; it gives @samp{ar1;1;10;ar1;1;10;4} as a legitimate way to express a two dimensional array. According to AIX documentation, the element type must be type information. GDB accepts either. The type of the index is often a range type, expressed as the type descriptor @samp{r} and some parameters. It defines the size of the array. In the example below, the range @samp{r1;0;2;} defines an index type which is a subrange of type 1 (integer), with a lower bound of 0 and an upper bound of 2. This defines the valid range of subscripts of a three-element C array. For example, the definition: @example char char_vec[3] = @{'a','b','c'@}; @end example @noindent produces the output: @example .stabs "char_vec:G19=ar1;0;2;2",32,0,0,0 .global _char_vec .align 4 _char_vec: .byte 97 .byte 98 .byte 99 @end example If an array is @dfn{packed}, the elements are spaced more closely than normal, saving memory at the expense of speed. For example, an array of 3-byte objects might, if unpacked, have each element aligned on a 4-byte boundary, but if packed, have no padding. One way to specify that something is packed is with type attributes (@pxref{String Field}). In the case of arrays, another is to use the @samp{P} type descriptor instead of @samp{a}. Other than specifying a packed array, @samp{P} is identical to @samp{a}. @c FIXME-what is it? A pointer? An open array is represented by the @samp{A} type descriptor followed by type information specifying the type of the array elements. @c FIXME: what is the format of this type? A pointer to a vector of pointers? An N-dimensional dynamic array is represented by @example D @var{dimensions} ; @var{type-information} @end example @c Does dimensions really have this meaning? The AIX documentation @c doesn't say. @var{dimensions} is the number of dimensions; @var{type-information} specifies the type of the array elements. @c FIXME: what is the format of this type? A pointer to some offsets in @c another array? A subarray of an N-dimensional array is represented by @example E @var{dimensions} ; @var{type-information} @end example @c Does dimensions really have this meaning? The AIX documentation @c doesn't say. @var{dimensions} is the number of dimensions; @var{type-information} specifies the type of the array elements. @node Strings @section Strings Some languages, like C or the original Pascal, do not have string types, they just have related things like arrays of characters. But most Pascals and various other languages have string types, which are indicated as follows: @table @code @item n @var{type-information} ; @var{bytes} @var{bytes} is the maximum length. I'm not sure what @var{type-information} is; I suspect that it means that this is a string of @var{type-information} (thus allowing a string of integers, a string of wide characters, etc., as well as a string of characters). Not sure what the format of this type is. This is an AIX feature. @item z @var{type-information} ; @var{bytes} Just like @samp{n} except that this is a gstring, not an ordinary string. I don't know the difference. @item N Pascal Stringptr. What is this? This is an AIX feature. @end table Languages, such as CHILL which have a string type which is basically just an array of characters use the @samp{S} type attribute (@pxref{String Field}). @node Enumerations @section Enumerations Enumerations are defined with the @samp{e} type descriptor. @c FIXME: Where does this information properly go? Perhaps it is @c redundant with something we already explain. The source line below declares an enumeration type at file scope. The type definition is located after the @code{N_RBRAC} that marks the end of the previous procedure's block scope, and before the @code{N_FUN} that marks the beginning of the next procedure's block scope. Therefore it does not describe a block local symbol, but a file local one. The source line: @example enum e_places @{first,second=3,last@}; @end example @noindent generates the following stab: @example .stabs "e_places:T22=efirst:0,second:3,last:4,;",128,0,0,0 @end example The symbol descriptor (@samp{T}) says that the stab describes a structure, enumeration, or union tag. The type descriptor @samp{e}, following the @samp{22=} of the type definition narrows it down to an enumeration type. Following the @samp{e} is a list of the elements of the enumeration. The format is @samp{@var{name}:@var{value},}. The list of elements ends with @samp{;}. The fact that @var{value} is specified as an integer can cause problems if the value is large. GCC 2.5.2 tries to output it in octal in that case with a leading zero, which is probably a good thing, although GDB 4.11 supports octal only in cases where decimal is perfectly good. Negative decimal values are supported by both GDB and dbx. There is no standard way to specify the size of an enumeration type; it is determined by the architecture (normally all enumerations types are 32 bits). Type attributes can be used to specify an enumeration type of another size for debuggers which support them; see @ref{String Field}. Enumeration types are unusual in that they define symbols for the enumeration values (@code{first}, @code{second}, and @code{third} in the above example), and even though these symbols are visible in the file as a whole (rather than being in a more local namespace like structure member names), they are defined in the type definition for the enumeration type rather than each having their own symbol. In order to be fast, GDB will only get symbols from such types (in its initial scan of the stabs) if the type is the first thing defined after a @samp{T} or @samp{t} symbol descriptor (the above example fulfills this requirement). If the type does not have a name, the compiler should emit it in a nameless stab (@pxref{String Field}); GCC does this. @node Structures @section Structures The encoding of structures in stabs can be shown with an example. The following source code declares a structure tag and defines an instance of the structure in global scope. Then a @code{typedef} equates the structure tag with a new type. Seperate stabs are generated for the structure tag, the structure @code{typedef}, and the structure instance. The stabs for the tag and the @code{typedef} are emited when the definitions are encountered. Since the structure elements are not initialized, the stab and code for the structure variable itself is located at the end of the program in the bss section. @example struct s_tag @{ int s_int; float s_float; char s_char_vec[8]; struct s_tag* s_next; @} g_an_s; typedef struct s_tag s_typedef; @end example The structure tag has an @code{N_LSYM} stab type because, like the enumeration, the symbol has file scope. Like the enumeration, the symbol descriptor is @samp{T}, for enumeration, structure, or tag type. The type descriptor @samp{s} following the @samp{16=} of the type definition narrows the symbol type to structure. Following the @samp{s} type descriptor is the number of bytes the structure occupies, followed by a description of each structure element. The structure element descriptions are of the form @var{name:type, bit offset from the start of the struct, number of bits in the element}. @c FIXME: phony line break. Can probably be fixed by using an example @c with fewer fields. @example # @r{128 is N_LSYM} .stabs "s_tag:T16=s20s_int:1,0,32;s_float:12,32,32; s_char_vec:17=ar1;0;7;2,64,64;s_next:18=*16,128,32;;",128,0,0,0 @end example In this example, the first two structure elements are previously defined types. For these, the type following the @samp{@var{name}:} part of the element description is a simple type reference. The other two structure elements are new types. In this case there is a type definition embedded after the @samp{@var{name}:}. The type definition for the array element looks just like a type definition for a standalone array. The @code{s_next} field is a pointer to the same kind of structure that the field is an element of. So the definition of structure type 16 contains a type definition for an element which is a pointer to type 16. If a field is a static member (this is a C++ feature in which a single variable appears to be a field of every structure of a given type) it still starts out with the field name, a colon, and the type, but then instead of a comma, bit position, comma, and bit size, there is a colon followed by the name of the variable which each such field refers to. If the structure has methods (a C++ feature), they follow the non-method fields; see @ref{Cplusplus}. @node Typedefs @section Giving a Type a Name To give a type a name, use the @samp{t} symbol descriptor. The type is specified by the type information (@pxref{String Field}) for the stab. For example, @example .stabs "s_typedef:t16",128,0,0,0 # @r{128 is N_LSYM} @end example specifies that @code{s_typedef} refers to type number 16. Such stabs have symbol type @code{N_LSYM} (or @code{C_DECL} for XCOFF). If you are specifying the tag name for a structure, union, or enumeration, use the @samp{T} symbol descriptor instead. I believe C is the only language with this feature. If the type is an opaque type (I believe this is a Modula-2 feature), AIX provides a type descriptor to specify it. The type descriptor is @samp{o} and is followed by a name. I don't know what the name means---is it always the same as the name of the type, or is this type descriptor used with a nameless stab (@pxref{String Field})? There optionally follows a comma followed by type information which defines the type of this type. If omitted, a semicolon is used in place of the comma and the type information, and the type is much like a generic pointer type---it has a known size but little else about it is specified. @node Unions @section Unions @example union u_tag @{ int u_int; float u_float; char* u_char; @} an_u; @end example This code generates a stab for a union tag and a stab for a union variable. Both use the @code{N_LSYM} stab type. If a union variable is scoped locally to the procedure in which it is defined, its stab is located immediately preceding the @code{N_LBRAC} for the procedure's block start. The stab for the union tag, however, is located preceding the code for the procedure in which it is defined. The stab type is @code{N_LSYM}. This would seem to imply that the union type is file scope, like the struct type @code{s_tag}. This is not true. The contents and position of the stab for @code{u_type} do not convey any infomation about its procedure local scope. @c FIXME: phony line break. Can probably be fixed by using an example @c with fewer fields. @smallexample # @r{128 is N_LSYM} .stabs "u_tag:T23=u4u_int:1,0,32;u_float:12,0,32;u_char:21,0,32;;", 128,0,0,0 @end smallexample The symbol descriptor @samp{T}, following the @samp{name:} means that the stab describes an enumeration, structure, or union tag. The type descriptor @samp{u}, following the @samp{23=} of the type definition, narrows it down to a union type definition. Following the @samp{u} is the number of bytes in the union. After that is a list of union element descriptions. Their format is @var{name:type, bit offset into the union, number of bytes for the element;}. The stab for the union variable is: @example .stabs "an_u:23",128,0,0,-20 # @r{128 is N_LSYM} @end example @samp{-20} specifies where the variable is stored (@pxref{Stack Variables}). @node Function Types @section Function Types Various types can be defined for function variables. These types are not used in defining functions (@pxref{Procedures}); they are used for things like pointers to functions. The simple, traditional, type is type descriptor @samp{f} is followed by type information for the return type of the function, followed by a semicolon. This does not deal with functions for which the number and types of the parameters are part of the type, as in Modula-2 or ANSI C. AIX provides extensions to specify these, using the @samp{f}, @samp{F}, @samp{p}, and @samp{R} type descriptors. First comes the type descriptor. If it is @samp{f} or @samp{F}, this type involves a function rather than a procedure, and the type information for the return type of the function follows, followed by a comma. Then comes the number of parameters to the function and a semicolon. Then, for each parameter, there is the name of the parameter followed by a colon (this is only present for type descriptors @samp{R} and @samp{F} which represent Pascal function or procedure parameters), type information for the parameter, a comma, 0 if passed by reference or 1 if passed by value, and a semicolon. The type definition ends with a semicolon. For example, this variable definition: @example int (*g_pf)(); @end example @noindent generates the following code: @example .stabs "g_pf:G24=*25=f1",32,0,0,0 .common _g_pf,4,"bss" @end example The variable defines a new type, 24, which is a pointer to another new type, 25, which is a function returning @code{int}. @node Symbol Tables @chapter Symbol Information in Symbol Tables This chapter describes the format of symbol table entries and how stab assembler directives map to them. It also describes the transformations that the assembler and linker make on data from stabs. @menu * Symbol Table Format:: * Transformations On Symbol Tables:: @end menu @node Symbol Table Format @section Symbol Table Format Each time the assembler encounters a stab directive, it puts each field of the stab into a corresponding field in a symbol table entry of its output file. If the stab contains a string field, the symbol table entry for that stab points to a string table entry containing the string data from the stab. Assembler labels become relocatable addresses. Symbol table entries in a.out have the format: @c FIXME: should refer to external, not internal. @example struct internal_nlist @{ unsigned long n_strx; /* index into string table of name */ unsigned char n_type; /* type of symbol */ unsigned char n_other; /* misc info (usually empty) */ unsigned short n_desc; /* description field */ bfd_vma n_value; /* value of symbol */ @}; @end example If the stab has a string, the @code{n_strx} field holds the offset in bytes of the string within the string table. The string is terminated by a NUL character. If the stab lacks a string (for example, it was produced by a @code{.stabn} or @code{.stabd} directive), the @code{n_strx} field is zero. Symbol table entries with @code{n_type} field values greater than 0x1f originated as stabs generated by the compiler (with one random exception). The other entries were placed in the symbol table of the executable by the assembler or the linker. @node Transformations On Symbol Tables @section Transformations on Symbol Tables The linker concatenates object files and does fixups of externally defined symbols. You can see the transformations made on stab data by the assembler and linker by examining the symbol table after each pass of the build. To do this, use @samp{nm -ap}, which dumps the symbol table, including debugging information, unsorted. For stab entries the columns are: @var{value}, @var{other}, @var{desc}, @var{type}, @var{string}. For assembler and linker symbols, the columns are: @var{value}, @var{type}, @var{string}. The low 5 bits of the stab type tell the linker how to relocate the value of the stab. Thus for stab types like @code{N_RSYM} and @code{N_LSYM}, where the value is an offset or a register number, the low 5 bits are @code{N_ABS}, which tells the linker not to relocate the value. Where the value of a stab contains an assembly language label, it is transformed by each build step. The assembler turns it into a relocatable address and the linker turns it into an absolute address. @menu * Transformations On Static Variables:: * Transformations On Global Variables:: * Stab Section Transformations:: For some object file formats, things are a bit different. @end menu @node Transformations On Static Variables @subsection Transformations on Static Variables This source line defines a static variable at file scope: @example static int s_g_repeat @end example @noindent The following stab describes the symbol: @example .stabs "s_g_repeat:S1",38,0,0,_s_g_repeat @end example @noindent The assembler transforms the stab into this symbol table entry in the @file{.o} file. The location is expressed as a data segment offset. @example 00000084 - 00 0000 STSYM s_g_repeat:S1 @end example @noindent In the symbol table entry from the executable, the linker has made the relocatable address absolute. @example 0000e00c - 00 0000 STSYM s_g_repeat:S1 @end example @node Transformations On Global Variables @subsection Transformations on Global Variables Stabs for global variables do not contain location information. In this case, the debugger finds location information in the assembler or linker symbol table entry describing the variable. The source line: @example char g_foo = 'c'; @end example @noindent generates the stab: @example .stabs "g_foo:G2",32,0,0,0 @end example The variable is represented by two symbol table entries in the object file (see below). The first one originated as a stab. The second one is an external symbol. The upper case @samp{D} signifies that the @code{n_type} field of the symbol table contains 7, @code{N_DATA} with local linkage. The stab's value is zero since the value is not used for @code{N_GSYM} stabs. The value of the linker symbol is the relocatable address corresponding to the variable. @example 00000000 - 00 0000 GSYM g_foo:G2 00000080 D _g_foo @end example @noindent These entries as transformed by the linker. The linker symbol table entry now holds an absolute address: @example 00000000 - 00 0000 GSYM g_foo:G2 @dots{} 0000e008 D _g_foo @end example @node Stab Section Transformations @subsection Transformations of Stabs in separate sections For object file formats using stabs in separate sections (@pxref{Stab Sections}), use @code{objdump --stabs} instead of @code{nm} to show the stabs in an object or executable file. @code{objdump} is a GNU utility; Sun does not provide any equivalent. The following example is for a stab whose value is an address is relative to the compilation unit (@pxref{ELF Linker Relocation}). For example, if the source line @example static int ld = 5; @end example appears within a function, then the assembly language output from the compiler contains: @example .Ddata.data: @dots{} .stabs "ld:V(0,3)",0x26,0,4,.L18-Ddata.data # @r{0x26 is N_STSYM} @dots{} .L18: .align 4 .word 0x5 @end example Because the value is formed by subtracting one symbol from another, the value is absolute, not relocatable, and so the object file contains @example Symnum n_type n_othr n_desc n_value n_strx String 31 STSYM 0 4 00000004 680 ld:V(0,3) @end example without any relocations, and the executable file also contains @example Symnum n_type n_othr n_desc n_value n_strx String 31 STSYM 0 4 00000004 680 ld:V(0,3) @end example @node Cplusplus @chapter GNU C++ Stabs @menu * Class Names:: C++ class names are both tags and typedefs. * Nested Symbols:: C++ symbol names can be within other types. * Basic Cplusplus Types:: * Simple Classes:: * Class Instance:: * Methods:: Method definition * Method Type Descriptor:: The @samp{#} type descriptor * Member Type Descriptor:: The @samp{@@} type descriptor * Protections:: * Method Modifiers:: * Virtual Methods:: * Inheritence:: * Virtual Base Classes:: * Static Members:: @end menu @node Class Names @section C++ Class Names In C++, a class name which is declared with @code{class}, @code{struct}, or @code{union}, is not only a tag, as in C, but also a type name. Thus there should be stabs with both @samp{t} and @samp{T} symbol descriptors (@pxref{Typedefs}). To save space, there is a special abbreviation for this case. If the @samp{T} symbol descriptor is followed by @samp{t}, then the stab defines both a type name and a tag. For example, the C++ code @example struct foo @{int x;@}; @end example can be represented as either @example .stabs "foo:T19=s4x:1,0,32;;",128,0,0,0 # @r{128 is N_LSYM} .stabs "foo:t19",128,0,0,0 @end example or @example .stabs "foo:Tt19=s4x:1,0,32;;",128,0,0,0 @end example @node Nested Symbols @section Defining a Symbol Within Another Type In C++, a symbol (such as a type name) can be defined within another type. @c FIXME: Needs example. In stabs, this is sometimes represented by making the name of a symbol which contains @samp{::}. Such a pair of colons does not end the name of the symbol, the way a single colon would (@pxref{String Field}). I'm not sure how consistently used or well thought out this mechanism is. So that a pair of colons in this position always has this meaning, @samp{:} cannot be used as a symbol descriptor. For example, if the string for a stab is @samp{foo::bar::baz:t5=*6}, then @code{foo::bar::baz} is the name of the symbol, @samp{t} is the symbol descriptor, and @samp{5=*6} is the type information. @node Basic Cplusplus Types @section Basic Types For C++ << the examples that follow are based on a01.C >> C++ adds two more builtin types to the set defined for C. These are the unknown type and the vtable record type. The unknown type, type 16, is defined in terms of itself like the void type. The vtable record type, type 17, is defined as a structure type and then as a structure tag. The structure has four fields: delta, index, pfn, and delta2. pfn is the function pointer. << In boilerplate $vtbl_ptr_type, what are the fields delta, index, and delta2 used for? >> This basic type is present in all C++ programs even if there are no virtual methods defined. @display .stabs "struct_name:sym_desc(type)type_def(17)=type_desc(struct)struct_bytes(8) elem_name(delta):type_ref(short int),bit_offset(0),field_bits(16); elem_name(index):type_ref(short int),bit_offset(16),field_bits(16); elem_name(pfn):type_def(18)=type_desc(ptr to)type_ref(void), bit_offset(32),field_bits(32); elem_name(delta2):type_def(short int);bit_offset(32),field_bits(16);;" N_LSYM, NIL, NIL @end display @smallexample .stabs "$vtbl_ptr_type:t17=s8 delta:6,0,16;index:6,16,16;pfn:18=*15,32,32;delta2:6,32,16;;" ,128,0,0,0 @end smallexample @display .stabs "name:sym_dec(struct tag)type_ref($vtbl_ptr_type)",N_LSYM,NIL,NIL,NIL @end display @example .stabs "$vtbl_ptr_type:T17",128,0,0,0 @end example @node Simple Classes @section Simple Class Definition The stabs describing C++ language features are an extension of the stabs describing C. Stabs representing C++ class types elaborate extensively on the stab format used to describe structure types in C. Stabs representing class type variables look just like stabs representing C language variables. Consider the following very simple class definition. @example class baseA @{ public: int Adat; int Ameth(int in, char other); @}; @end example The class @code{baseA} is represented by two stabs. The first stab describes the class as a structure type. The second stab describes a structure tag of the class type. Both stabs are of stab type @code{N_LSYM}. Since the stab is not located between an @code{N_FUN} and an @code{N_LBRAC} stab this indicates that the class is defined at file scope. If it were, then the @code{N_LSYM} would signify a local variable. A stab describing a C++ class type is similar in format to a stab describing a C struct, with each class member shown as a field in the structure. The part of the struct format describing fields is expanded to include extra information relevent to C++ class members. In addition, if the class has multiple base classes or virtual functions the struct format outside of the field parts is also augmented. In this simple example the field part of the C++ class stab representing member data looks just like the field part of a C struct stab. The section on protections describes how its format is sometimes extended for member data. The field part of a C++ class stab representing a member function differs substantially from the field part of a C struct stab. It still begins with @samp{name:} but then goes on to define a new type number for the member function, describe its return type, its argument types, its protection level, any qualifiers applied to the method definition, and whether the method is virtual or not. If the method is virtual then the method description goes on to give the vtable index of the method, and the type number of the first base class defining the method. When the field name is a method name it is followed by two colons rather than one. This is followed by a new type definition for the method. This is a number followed by an equal sign and the type of the method. Normally this will be a type declared using the @samp{#} type descriptor; see @ref{Method Type Descriptor}; static member functions are declared using the @samp{f} type descriptor instead; see @ref{Function Types}. The format of an overloaded operator method name differs from that of other methods. It is @samp{op$::@var{operator-name}.} where @var{operator-name} is the operator name such as @samp{+} or @samp{+=}. The name ends with a period, and any characters except the period can occur in the @var{operator-name} string. The next part of the method description represents the arguments to the method, preceeded by a colon and ending with a semi-colon. The types of the arguments are expressed in the same way argument types are expressed in C++ name mangling. In this example an @code{int} and a @code{char} map to @samp{ic}. This is followed by a number, a letter, and an asterisk or period, followed by another semicolon. The number indicates the protections that apply to the member function. Here the 2 means public. The letter encodes any qualifier applied to the method definition. In this case, @samp{A} means that it is a normal function definition. The dot shows that the method is not virtual. The sections that follow elaborate further on these fields and describe the additional information present for virtual methods. @display .stabs "class_name:sym_desc(type)type_def(20)=type_desc(struct)struct_bytes(4) field_name(Adat):type(int),bit_offset(0),field_bits(32); method_name(Ameth)::type_def(21)=type_desc(method)return_type(int); :arg_types(int char); protection(public)qualifier(normal)virtual(no);;" N_LSYM,NIL,NIL,NIL @end display @smallexample .stabs "baseA:t20=s4Adat:1,0,32;Ameth::21=##1;:ic;2A.;;",128,0,0,0 .stabs "class_name:sym_desc(struct tag)",N_LSYM,NIL,NIL,NIL .stabs "baseA:T20",128,0,0,0 @end smallexample @node Class Instance @section Class Instance As shown above, describing even a simple C++ class definition is accomplished by massively extending the stab format used in C to describe structure types. However, once the class is defined, C stabs with no modifications can be used to describe class instances. The following source: @example main () @{ baseA AbaseA; @} @end example @noindent yields the following stab describing the class instance. It looks no different from a standard C stab describing a local variable. @display .stabs "name:type_ref(baseA)", N_LSYM, NIL, NIL, frame_ptr_offset @end display @example .stabs "AbaseA:20",128,0,0,-20 @end example @node Methods @section Method Definition The class definition shown above declares Ameth. The C++ source below defines Ameth: @example int baseA::Ameth(int in, char other) @{ return in; @}; @end example This method definition yields three stabs following the code of the method. One stab describes the method itself and following two describe its parameters. Although there is only one formal argument all methods have an implicit argument which is the @code{this} pointer. The @code{this} pointer is a pointer to the object on which the method was called. Note that the method name is mangled to encode the class name and argument types. Name mangling is described in the @sc{arm} (@cite{The Annotated C++ Reference Manual}, by Ellis and Stroustrup, @sc{isbn} 0-201-51459-1); @file{gpcompare.texi} in Cygnus GCC distributions describes the differences between GNU mangling and @sc{arm} mangling. @c FIXME: Use @xref, especially if this is generally installed in the @c info tree. @c FIXME: This information should be in a net release, either of GCC or @c GDB. But gpcompare.texi doesn't seem to be in the FSF GCC. @example .stabs "name:symbol_desriptor(global function)return_type(int)", N_FUN, NIL, NIL, code_addr_of_method_start .stabs "Ameth__5baseAic:F1",36,0,0,_Ameth__5baseAic @end example Here is the stab for the @code{this} pointer implicit argument. The name of the @code{this} pointer is always @code{this}. Type 19, the @code{this} pointer is defined as a pointer to type 20, @code{baseA}, but a stab defining @code{baseA} has not yet been emited. Since the compiler knows it will be emited shortly, here it just outputs a cross reference to the undefined symbol, by prefixing the symbol name with @samp{xs}. @example .stabs "name:sym_desc(register param)type_def(19)= type_desc(ptr to)type_ref(baseA)= type_desc(cross-reference to)baseA:",N_RSYM,NIL,NIL,register_number .stabs "this:P19=*20=xsbaseA:",64,0,0,8 @end example The stab for the explicit integer argument looks just like a parameter to a C function. The last field of the stab is the offset from the argument pointer, which in most systems is the same as the frame pointer. @example .stabs "name:sym_desc(value parameter)type_ref(int)", N_PSYM,NIL,NIL,offset_from_arg_ptr .stabs "in:p1",160,0,0,72 @end example << The examples that follow are based on A1.C >> @node Method Type Descriptor @section The @samp{#} Type Descriptor This is like the @samp{f} type descriptor for functions (@pxref{Function Types}), except that a function which uses the @samp{#} type descriptor takes an extra argument as its first argument, for the @code{this} pointer. The @samp{#} type descriptor is optionally followed by the types of the arguments, then another @samp{#}. If the types of the arguments are omitted, so that the second @samp{#} immediately follows the @samp{#} which is the type descriptor, the arguments are being omitted (to save space) and can be deduced from the mangled name of the method. After the second @samp{#} there is type information for the return type of the method and a semicolon. Note that although such a type will normally be used to describe fields in structures, unions, or classes, for at least some versions of the compiler it can also be used in other contexts. @node Member Type Descriptor @section The @samp{@@} Type Descriptor The @samp{@@} type descriptor is for a member (class and variable) type. It is followed by type information for the offset basetype, a comma, and type information for the type of the field being pointed to. (FIXME: this is acknowledged to be gibberish. Can anyone say what really goes here?). Note that there is a conflict between this and type attributes (@pxref{String Field}); both use type descriptor @samp{@@}. Fortunately, the @samp{@@} type descriptor used in this C++ sense always will be followed by a digit, @samp{(}, or @samp{-}, and type attributes never start with those things. @node Protections @section Protections In the simple class definition shown above all member data and functions were publicly accessable. The example that follows contrasts public, protected and privately accessable fields and shows how these protections are encoded in C++ stabs. If the character following the @samp{@var{field-name}:} part of the string is @samp{/}, then the next character is the visibility. @samp{0} means private, @samp{1} means protected, and @samp{2} means public. Debuggers should ignore visibility characters they do not recognize, and assume a reasonable default (such as public) (GDB 4.11 does not, but this should be fixed in the next GDB release). If no visibility is specified the field is public. The visibility @samp{9} means that the field has been optimized out and is public (there is no way to specify an optimized out field with a private or protected visibility). Visibility @samp{9} is not supported by GDB 4.11; this should be fixed in the next GDB release. The following C++ source: @example class vis @{ private: int priv; protected: char prot; public: float pub; @}; @end example @noindent generates the following stab: @example # @r{128 is N_LSYM} .stabs "vis:T19=s12priv:/01,0,32;prot:/12,32,8;pub:12,64,32;;",128,0,0,0 @end example @samp{vis:T19=s12} indicates that type number 19 is a 12 byte structure named @code{vis} The @code{priv} field has public visibility (@samp{/0}), type int (@samp{1}), and offset and size @samp{,0,32;}. The @code{prot} field has protected visibility (@samp{/1}), type char (@samp{2}) and offset and size @samp{,32,8;}. The @code{pub} field has type float (@samp{12}), and offset and size @samp{,64,32;}. Protections for member functions are signified by one digit embeded in the field part of the stab describing the method. The digit is 0 if private, 1 if protected and 2 if public. Consider the C++ class definition below: @example class all_methods @{ private: int priv_meth(int in)@{return in;@}; protected: char protMeth(char in)@{return in;@}; public: float pubMeth(float in)@{return in;@}; @}; @end example It generates the following stab. The digit in question is to the left of an @samp{A} in each case. Notice also that in this case two symbol descriptors apply to the class name struct tag and struct type. @display .stabs "class_name:sym_desc(struct tag&type)type_def(21)= sym_desc(struct)struct_bytes(1) meth_name::type_def(22)=sym_desc(method)returning(int); :args(int);protection(private)modifier(normal)virtual(no); meth_name::type_def(23)=sym_desc(method)returning(char); :args(char);protection(protected)modifier(normal)virual(no); meth_name::type_def(24)=sym_desc(method)returning(float); :args(float);protection(public)modifier(normal)virtual(no);;", N_LSYM,NIL,NIL,NIL @end display @smallexample .stabs "all_methods:Tt21=s1priv_meth::22=##1;:i;0A.;protMeth::23=##2;:c;1A.; pubMeth::24=##12;:f;2A.;;",128,0,0,0 @end smallexample @node Method Modifiers @section Method Modifiers (@code{const}, @code{volatile}, @code{const volatile}) << based on a6.C >> In the class example described above all the methods have the normal modifier. This method modifier information is located just after the protection information for the method. This field has four possible character values. Normal methods use @samp{A}, const methods use @samp{B}, volatile methods use @samp{C}, and const volatile methods use @samp{D}. Consider the class definition below: @example class A @{ public: int ConstMeth (int arg) const @{ return arg; @}; char VolatileMeth (char arg) volatile @{ return arg; @}; float ConstVolMeth (float arg) const volatile @{return arg; @}; @}; @end example This class is described by the following stab: @display .stabs "class(A):sym_desc(struct)type_def(20)=type_desc(struct)struct_bytes(1) meth_name(ConstMeth)::type_def(21)sym_desc(method) returning(int);:arg(int);protection(public)modifier(const)virtual(no); meth_name(VolatileMeth)::type_def(22)=sym_desc(method) returning(char);:arg(char);protection(public)modifier(volatile)virt(no) meth_name(ConstVolMeth)::type_def(23)=sym_desc(method) returning(float);:arg(float);protection(public)modifer(const volatile) virtual(no);;", @dots{} @end display @example .stabs "A:T20=s1ConstMeth::21=##1;:i;2B.;VolatileMeth::22=##2;:c;2C.; ConstVolMeth::23=##12;:f;2D.;;",128,0,0,0 @end example @node Virtual Methods @section Virtual Methods << The following examples are based on a4.C >> The presence of virtual methods in a class definition adds additional data to the class description. The extra data is appended to the description of the virtual method and to the end of the class description. Consider the class definition below: @example class A @{ public: int Adat; virtual int A_virt (int arg) @{ return arg; @}; @}; @end example This results in the stab below describing class A. It defines a new type (20) which is an 8 byte structure. The first field of the class struct is @samp{Adat}, an integer, starting at structure offset 0 and occupying 32 bits. The second field in the class struct is not explicitly defined by the C++ class definition but is implied by the fact that the class contains a virtual method. This field is the vtable pointer. The name of the vtable pointer field starts with @samp{$vf} and continues with a type reference to the class it is part of. In this example the type reference for class A is 20 so the name of its vtable pointer field is @samp{$vf20}, followed by the usual colon. Next there is a type definition for the vtable pointer type (21). This is in turn defined as a pointer to another new type (22). Type 22 is the vtable itself, which is defined as an array, indexed by a range of integers between 0 and 1, and whose elements are of type 17. Type 17 was the vtable record type defined by the boilerplate C++ type definitions, as shown earlier. The bit offset of the vtable pointer field is 32. The number of bits in the field are not specified when the field is a vtable pointer. Next is the method definition for the virtual member function @code{A_virt}. Its description starts out using the same format as the non-virtual member functions described above, except instead of a dot after the @samp{A} there is an asterisk, indicating that the function is virtual. Since is is virtual some addition information is appended to the end of the method description. The first number represents the vtable index of the method. This is a 32 bit unsigned number with the high bit set, followed by a semi-colon. The second number is a type reference to the first base class in the inheritence hierarchy defining the virtual member function. In this case the class stab describes a base class so the virtual function is not overriding any other definition of the method. Therefore the reference is to the type number of the class that the stab is describing (20). This is followed by three semi-colons. One marks the end of the current sub-section, one marks the end of the method field, and the third marks the end of the struct definition. For classes containing virtual functions the very last section of the string part of the stab holds a type reference to the first base class. This is preceeded by @samp{~%} and followed by a final semi-colon. @display .stabs "class_name(A):type_def(20)=sym_desc(struct)struct_bytes(8) field_name(Adat):type_ref(int),bit_offset(0),field_bits(32); field_name(A virt func ptr):type_def(21)=type_desc(ptr to)type_def(22)= sym_desc(array)index_type_ref(range of int from 0 to 1); elem_type_ref(vtbl elem type), bit_offset(32); meth_name(A_virt)::typedef(23)=sym_desc(method)returning(int); :arg_type(int),protection(public)normal(yes)virtual(yes) vtable_index(1);class_first_defining(A);;;~%first_base(A);", N_LSYM,NIL,NIL,NIL @end display @c FIXME: bogus line break. @example .stabs "A:t20=s8Adat:1,0,32;$vf20:21=*22=ar1;0;1;17,32; A_virt::23=##1;:i;2A*-2147483647;20;;;~%20;",128,0,0,0 @end example @node Inheritence @section Inheritence Stabs describing C++ derived classes include additional sections that describe the inheritence hierarchy of the class. A derived class stab also encodes the number of base classes. For each base class it tells if the base class is virtual or not, and if the inheritence is private or public. It also gives the offset into the object of the portion of the object corresponding to each base class. This additional information is embeded in the class stab following the number of bytes in the struct. First the number of base classes appears bracketed by an exclamation point and a comma. Then for each base type there repeats a series: a virtual character, a visibilty character, a number, a comma, another number, and a semi-colon. The virtual character is @samp{1} if the base class is virtual and @samp{0} if not. The visibility character is @samp{2} if the derivation is public, @samp{1} if it is protected, and @samp{0} if it is private. Debuggers should ignore virtual or visibility characters they do not recognize, and assume a reasonable default (such as public and non-virtual) (GDB 4.11 does not, but this should be fixed in the next GDB release). The number following the virtual and visibility characters is the offset from the start of the object to the part of the object pertaining to the base class. After the comma, the second number is a type_descriptor for the base type. Finally a semi-colon ends the series, which repeats for each base class. The source below defines three base classes @code{A}, @code{B}, and @code{C} and the derived class @code{D}. @example class A @{ public: int Adat; virtual int A_virt (int arg) @{ return arg; @}; @}; class B @{ public: int B_dat; virtual int B_virt (int arg) @{return arg; @}; @}; class C @{ public: int Cdat; virtual int C_virt (int arg) @{return arg; @}; @}; class D : A, virtual B, public C @{ public: int Ddat; virtual int A_virt (int arg ) @{ return arg+1; @}; virtual int B_virt (int arg) @{ return arg+2; @}; virtual int C_virt (int arg) @{ return arg+3; @}; virtual int D_virt (int arg) @{ return arg; @}; @}; @end example Class stabs similar to the ones described earlier are generated for each base class. @c FIXME!!! the linebreaks in the following example probably make the @c examples literally unusable, but I don't know any other way to get @c them on the page. @c One solution would be to put some of the type definitions into @c separate stabs, even if that's not exactly what the compiler actually @c emits. @smallexample .stabs "A:T20=s8Adat:1,0,32;$vf20:21=*22=ar1;0;1;17,32; A_virt::23=##1;:i;2A*-2147483647;20;;;~%20;",128,0,0,0 .stabs "B:Tt25=s8Bdat:1,0,32;$vf25:21,32;B_virt::26=##1; :i;2A*-2147483647;25;;;~%25;",128,0,0,0 .stabs "C:Tt28=s8Cdat:1,0,32;$vf28:21,32;C_virt::29=##1; :i;2A*-2147483647;28;;;~%28;",128,0,0,0 @end smallexample In the stab describing derived class @code{D} below, the information about the derivation of this class is encoded as follows. @display .stabs "derived_class_name:symbol_descriptors(struct tag&type)= type_descriptor(struct)struct_bytes(32)!num_bases(3), base_virtual(no)inheritence_public(no)base_offset(0), base_class_type_ref(A); base_virtual(yes)inheritence_public(no)base_offset(NIL), base_class_type_ref(B); base_virtual(no)inheritence_public(yes)base_offset(64), base_class_type_ref(C); @dots{} @end display @c FIXME! fake linebreaks. @smallexample .stabs "D:Tt31=s32!3,000,20;100,25;0264,28;$vb25:24,128;Ddat: 1,160,32;A_virt::32=##1;:i;2A*-2147483647;20;;B_virt: :32:i;2A*-2147483647;25;;C_virt::32:i;2A*-2147483647; 28;;D_virt::32:i;2A*-2147483646;31;;;~%20;",128,0,0,0 @end smallexample @node Virtual Base Classes @section Virtual Base Classes A derived class object consists of a concatination in memory of the data areas defined by each base class, starting with the leftmost and ending with the rightmost in the list of base classes. The exception to this rule is for virtual inheritence. In the example above, class @code{D} inherits virtually from base class @code{B}. This means that an instance of a @code{D} object will not contain its own @code{B} part but merely a pointer to a @code{B} part, known as a virtual base pointer. In a derived class stab, the base offset part of the derivation information, described above, shows how the base class parts are ordered. The base offset for a virtual base class is always given as 0. Notice that the base offset for @code{B} is given as 0 even though @code{B} is not the first base class. The first base class @code{A} starts at offset 0. The field information part of the stab for class @code{D} describes the field which is the pointer to the virtual base class @code{B}. The vbase pointer name is @samp{$vb} followed by a type reference to the virtual base class. Since the type id for @code{B} in this example is 25, the vbase pointer name is @samp{$vb25}. @c FIXME!! fake linebreaks below @smallexample .stabs "D:Tt31=s32!3,000,20;100,25;0264,28;$vb25:24,128;Ddat:1, 160,32;A_virt::32=##1;:i;2A*-2147483647;20;;B_virt::32:i; 2A*-2147483647;25;;C_virt::32:i;2A*-2147483647;28;;D_virt: :32:i;2A*-2147483646;31;;;~%20;",128,0,0,0 @end smallexample Following the name and a semicolon is a type reference describing the type of the virtual base class pointer, in this case 24. Type 24 was defined earlier as the type of the @code{B} class @code{this} pointer. The @code{this} pointer for a class is a pointer to the class type. @example .stabs "this:P24=*25=xsB:",64,0,0,8 @end example Finally the field offset part of the vbase pointer field description shows that the vbase pointer is the first field in the @code{D} object, before any data fields defined by the class. The layout of a @code{D} class object is a follows, @code{Adat} at 0, the vtable pointer for @code{A} at 32, @code{Cdat} at 64, the vtable pointer for C at 96, the virtual base pointer for @code{B} at 128, and @code{Ddat} at 160. @node Static Members @section Static Members The data area for a class is a concatenation of the space used by the data members of the class. If the class has virtual methods, a vtable pointer follows the class data. The field offset part of each field description in the class stab shows this ordering. << How is this reflected in stabs? See Cygnus bug #677 for some info. >> @node Stab Types @appendix Table of Stab Types The following are all the possible values for the stab type field, for a.out files, in numeric order. This does not apply to XCOFF, but it does apply to stabs in sections (@pxref{Stab Sections}). Stabs in ECOFF use these values but add 0x8f300 to distinguish them from non-stab symbols. The symbolic names are defined in the file @file{include/aout/stabs.def}. @menu * Non-Stab Symbol Types:: Types from 0 to 0x1f * Stab Symbol Types:: Types from 0x20 to 0xff @end menu @node Non-Stab Symbol Types @appendixsec Non-Stab Symbol Types The following types are used by the linker and assembler, not by stab directives. Since this document does not attempt to describe aspects of object file format other than the debugging format, no details are given. @c Try to get most of these to fit on a single line. @iftex @tableindent=1.5in @end iftex @table @code @item 0x0 N_UNDF Undefined symbol @item 0x2 N_ABS File scope absolute symbol @item 0x3 N_ABS | N_EXT External absolute symbol @item 0x4 N_TEXT File scope text symbol @item 0x5 N_TEXT | N_EXT External text symbol @item 0x6 N_DATA File scope data symbol @item 0x7 N_DATA | N_EXT External data symbol @item 0x8 N_BSS File scope BSS symbol @item 0x9 N_BSS | N_EXT External BSS symbol @item 0x0c N_FN_SEQ Same as @code{N_FN}, for Sequent compilers @item 0x0a N_INDR Symbol is indirected to another symbol @item 0x12 N_COMM Common---visible after shared library dynamic link @item 0x14 N_SETA @itemx 0x15 N_SETA | N_EXT Absolute set element @item 0x16 N_SETT @itemx 0x17 N_SETT | N_EXT Text segment set element @item 0x18 N_SETD @itemx 0x19 N_SETD | N_EXT Data segment set element @item 0x1a N_SETB @itemx 0x1b N_SETB | N_EXT BSS segment set element @item 0x1c N_SETV @itemx 0x1d N_SETV | N_EXT Pointer to set vector @item 0x1e N_WARNING Print a warning message during linking @item 0x1f N_FN File name of a @file{.o} file @end table @node Stab Symbol Types @appendixsec Stab Symbol Types The following symbol types indicate that this is a stab. This is the full list of stab numbers, including stab types that are used in languages other than C. @table @code @item 0x20 N_GSYM Global symbol; see @ref{Global Variables}. @item 0x22 N_FNAME Function name (for BSD Fortran); see @ref{Procedures}. @item 0x24 N_FUN Function name (@pxref{Procedures}) or text segment variable (@pxref{Statics}). @item 0x26 N_STSYM Data segment file-scope variable; see @ref{Statics}. @item 0x28 N_LCSYM BSS segment file-scope variable; see @ref{Statics}. @item 0x2a N_MAIN Name of main routine; see @ref{Main Program}. @item 0x2c N_ROSYM Variable in @code{.rodata} section; see @ref{Statics}. @item 0x30 N_PC Global symbol (for Pascal); see @ref{N_PC}. @item 0x32 N_NSYMS Number of symbols (according to Ultrix V4.0); see @ref{N_NSYMS}. @item 0x34 N_NOMAP No DST map; see @ref{N_NOMAP}. @c FIXME: describe this solaris feature in the body of the text (see @c comments in include/aout/stab.def). @item 0x38 N_OBJ Object file (Solaris2). @c See include/aout/stab.def for (a little) more info. @item 0x3c N_OPT Debugger options (Solaris2). @item 0x40 N_RSYM Register variable; see @ref{Register Variables}. @item 0x42 N_M2C Modula-2 compilation unit; see @ref{N_M2C}. @item 0x44 N_SLINE Line number in text segment; see @ref{Line Numbers}. @item 0x46 N_DSLINE Line number in data segment; see @ref{Line Numbers}. @item 0x48 N_BSLINE Line number in bss segment; see @ref{Line Numbers}. @item 0x48 N_BROWS Sun source code browser, path to @file{.cb} file; see @ref{N_BROWS}. @item 0x4a N_DEFD GNU Modula2 definition module dependency; see @ref{N_DEFD}. @item 0x4c N_FLINE Function start/body/end line numbers (Solaris2). @item 0x50 N_EHDECL GNU C++ exception variable; see @ref{N_EHDECL}. @item 0x50 N_MOD2 Modula2 info "for imc" (according to Ultrix V4.0); see @ref{N_MOD2}. @item 0x54 N_CATCH GNU C++ @code{catch} clause; see @ref{N_CATCH}. @item 0x60 N_SSYM Structure of union element; see @ref{N_SSYM}. @item 0x62 N_ENDM Last stab for module (Solaris2). @item 0x64 N_SO Path and name of source file; see @ref{Source Files}. @item 0x80 N_LSYM Stack variable (@pxref{Stack Variables}) or type (@pxref{Typedefs}). @item 0x82 N_BINCL Beginning of an include file (Sun only); see @ref{Include Files}. @item 0x84 N_SOL Name of include file; see @ref{Include Files}. @item 0xa0 N_PSYM Parameter variable; see @ref{Parameters}. @item 0xa2 N_EINCL End of an include file; see @ref{Include Files}. @item 0xa4 N_ENTRY Alternate entry point; see @ref{Alternate Entry Points}. @item 0xc0 N_LBRAC Beginning of a lexical block; see @ref{Block Structure}. @item 0xc2 N_EXCL Place holder for a deleted include file; see @ref{Include Files}. @item 0xc4 N_SCOPE Modula2 scope information (Sun linker); see @ref{N_SCOPE}. @item 0xe0 N_RBRAC End of a lexical block; see @ref{Block Structure}. @item 0xe2 N_BCOMM Begin named common block; see @ref{Common Blocks}. @item 0xe4 N_ECOMM End named common block; see @ref{Common Blocks}. @item 0xe8 N_ECOML Member of a common block; see @ref{Common Blocks}. @c FIXME: How does this really work? Move it to main body of document. @item 0xea N_WITH Pascal @code{with} statement: type,,0,0,offset (Solaris2). @item 0xf0 N_NBTEXT Gould non-base registers; see @ref{Gould}. @item 0xf2 N_NBDATA Gould non-base registers; see @ref{Gould}. @item 0xf4 N_NBBSS Gould non-base registers; see @ref{Gould}. @item 0xf6 N_NBSTS Gould non-base registers; see @ref{Gould}. @item 0xf8 N_NBLCS Gould non-base registers; see @ref{Gould}. @end table @c Restore the default table indent @iftex @tableindent=.8in @end iftex @node Symbol Descriptors @appendix Table of Symbol Descriptors The symbol descriptor is the character which follows the colon in many stabs, and which tells what kind of stab it is. @xref{String Field}, for more information about their use. @c Please keep this alphabetical @table @code @c In TeX, this looks great, digit is in italics. But makeinfo insists @c on putting it in `', not realizing that @var should override @code. @c I don't know of any way to make makeinfo do the right thing. Seems @c like a makeinfo bug to me. @item @var{digit} @itemx ( @itemx - Variable on the stack; see @ref{Stack Variables}. @item : C++ nested symbol; see @xref{Nested Symbols} @item a Parameter passed by reference in register; see @ref{Reference Parameters}. @item b Based variable; see @ref{Based Variables}. @item c Constant; see @ref{Constants}. @item C Conformant array bound (Pascal, maybe other languages); @ref{Conformant Arrays}. Name of a caught exception (GNU C++). These can be distinguished because the latter uses @code{N_CATCH} and the former uses another symbol type. @item d Floating point register variable; see @ref{Register Variables}. @item D Parameter in floating point register; see @ref{Register Parameters}. @item f File scope function; see @ref{Procedures}. @item F Global function; see @ref{Procedures}. @item G Global variable; see @ref{Global Variables}. @item i @xref{Register Parameters}. @item I Internal (nested) procedure; see @ref{Nested Procedures}. @item J Internal (nested) function; see @ref{Nested Procedures}. @item L Label name (documented by AIX, no further information known). @item m Module; see @ref{Procedures}. @item p Argument list parameter; see @ref{Parameters}. @item pP @xref{Parameters}. @item pF Fortran Function parameter; see @ref{Parameters}. @item P Unfortunately, three separate meanings have been independently invented for this symbol descriptor. At least the GNU and Sun uses can be distinguished by the symbol type. Global Procedure (AIX) (symbol type used unknown); see @ref{Procedures}. Register parameter (GNU) (symbol type @code{N_PSYM}); see @ref{Parameters}. Prototype of function referenced by this file (Sun @code{acc}) (symbol type @code{N_FUN}). @item Q Static Procedure; see @ref{Procedures}. @item R Register parameter; see @ref{Register Parameters}. @item r Register variable; see @ref{Register Variables}. @item S File scope variable; see @ref{Statics}. @item s Local variable (OS9000). @item t Type name; see @ref{Typedefs}. @item T Enumeration, structure, or union tag; see @ref{Typedefs}. @item v Parameter passed by reference; see @ref{Reference Parameters}. @item V Procedure scope static variable; see @ref{Statics}. @item x Conformant array; see @ref{Conformant Arrays}. @item X Function return variable; see @ref{Parameters}. @end table @node Type Descriptors @appendix Table of Type Descriptors The type descriptor is the character which follows the type number and an equals sign. It specifies what kind of type is being defined. @xref{String Field}, for more information about their use. @table @code @item @var{digit} @itemx ( Type reference; see @ref{String Field}. @item - Reference to builtin type; see @ref{Negative Type Numbers}. @item # Method (C++); see @ref{Method Type Descriptor}. @item * Pointer; see @ref{Miscellaneous Types}. @item & Reference (C++). @item @@ Type Attributes (AIX); see @ref{String Field}. Member (class and variable) type (GNU C++); see @ref{Member Type Descriptor}. @item a Array; see @ref{Arrays}. @item A Open array; see @ref{Arrays}. @item b Pascal space type (AIX); see @ref{Miscellaneous Types}. Builtin integer type (Sun); see @ref{Builtin Type Descriptors}. Const and volatile qualfied type (OS9000). @item B Volatile-qualified type; see @ref{Miscellaneous Types}. @item c Complex builtin type (AIX); see @ref{Builtin Type Descriptors}. Const-qualified type (OS9000). @item C COBOL Picture type. See AIX documentation for details. @item d File type; see @ref{Miscellaneous Types}. @item D N-dimensional dynamic array; see @ref{Arrays}. @item e Enumeration type; see @ref{Enumerations}. @item E N-dimensional subarray; see @ref{Arrays}. @item f Function type; see @ref{Function Types}. @item F Pascal function parameter; see @ref{Function Types} @item g Builtin floating point type; see @ref{Builtin Type Descriptors}. @item G COBOL Group. See AIX documentation for details. @item i Imported type (AIX); see @ref{Cross-References}. Volatile-qualified type (OS9000). @item k Const-qualified type; see @ref{Miscellaneous Types}. @item K COBOL File Descriptor. See AIX documentation for details. @item M Multiple instance type; see @ref{Miscellaneous Types}. @item n String type; see @ref{Strings}. @item N Stringptr; see @ref{Strings}. @item o Opaque type; see @ref{Typedefs}. @item p Procedure; see @ref{Function Types}. @item P Packed array; see @ref{Arrays}. @item r Range type; see @ref{Subranges}. @item R Builtin floating type; see @ref{Builtin Type Descriptors} (Sun). Pascal subroutine parameter; see @ref{Function Types} (AIX). Detecting this conflict is possible with careful parsing (hint: a Pascal subroutine parameter type will always contain a comma, and a builtin type descriptor never will). @item s Structure type; see @ref{Structures}. @item S Set type; see @ref{Miscellaneous Types}. @item u Union; see @ref{Unions}. @item v Variant record. This is a Pascal and Modula-2 feature which is like a union within a struct in C. See AIX documentation for details. @item w Wide character; see @ref{Builtin Type Descriptors}. @item x Cross-reference; see @ref{Cross-References}. @item Y Used by IBM's xlC C++ compiler (for structures, I think). @item z gstring; see @ref{Strings}. @end table @node Expanded Reference @appendix Expanded Reference by Stab Type @c FIXME: This appendix should go away; see N_PSYM or N_SO for an example. For a full list of stab types, and cross-references to where they are described, see @ref{Stab Types}. This appendix just duplicates certain information from the main body of this document; eventually the information will all be in one place. Format of an entry: The first line is the symbol type (see @file{include/aout/stab.def}). The second line describes the language constructs the symbol type represents. The third line is the stab format with the significant stab fields named and the rest NIL. Subsequent lines expand upon the meaning and possible values for each significant stab field. Finally, any further information. @menu * N_PC:: Pascal global symbol * N_NSYMS:: Number of symbols * N_NOMAP:: No DST map * N_M2C:: Modula-2 compilation unit * N_BROWS:: Path to .cb file for Sun source code browser * N_DEFD:: GNU Modula2 definition module dependency * N_EHDECL:: GNU C++ exception variable * N_MOD2:: Modula2 information "for imc" * N_CATCH:: GNU C++ "catch" clause * N_SSYM:: Structure or union element * N_SCOPE:: Modula2 scope information (Sun only) * Gould:: non-base register symbols used on Gould systems * N_LENG:: Length of preceding entry @end menu @node N_PC @section N_PC @deffn @code{.stabs} N_PC @findex N_PC Global symbol (for Pascal). @example "name" -> "symbol_name" <> value -> supposedly the line number (stab.def is skeptical) @end example @display @file{stabdump.c} says: global pascal symbol: name,,0,subtype,line << subtype? >> @end display @end deffn @node N_NSYMS @section N_NSYMS @deffn @code{.stabn} N_NSYMS @findex N_NSYMS Number of symbols (according to Ultrix V4.0). @display 0, files,,funcs,lines (stab.def) @end display @end deffn @node N_NOMAP @section N_NOMAP @deffn @code{.stabs} N_NOMAP @findex N_NOMAP No DST map for symbol (according to Ultrix V4.0). I think this means a variable has been optimized out. @display name, ,0,type,ignored (stab.def) @end display @end deffn @node N_M2C @section N_M2C @deffn @code{.stabs} N_M2C @findex N_M2C Modula-2 compilation unit. @example "string" -> "unit_name,unit_time_stamp[,code_time_stamp]" desc -> unit_number value -> 0 (main unit) 1 (any other unit) @end example See @cite{Dbx and Dbxtool Interfaces}, 2nd edition, by Sun, 1988, for more information. @end deffn @node N_BROWS @section N_BROWS @deffn @code{.stabs} N_BROWS @findex N_BROWS Sun source code browser, path to @file{.cb} file <> "path to associated @file{.cb} file" Note: N_BROWS has the same value as N_BSLINE. @end deffn @node N_DEFD @section N_DEFD @deffn @code{.stabn} N_DEFD @findex N_DEFD GNU Modula2 definition module dependency. GNU Modula-2 definition module dependency. The value is the modification time of the definition file. The other field is non-zero if it is imported with the GNU M2 keyword @code{%INITIALIZE}. Perhaps @code{N_M2C} can be used if there are enough empty fields? @end deffn @node N_EHDECL @section N_EHDECL @deffn @code{.stabs} N_EHDECL @findex N_EHDECL GNU C++ exception variable <>. "@var{string} is variable name" Note: conflicts with @code{N_MOD2}. @end deffn @node N_MOD2 @section N_MOD2 @deffn @code{.stab?} N_MOD2 @findex N_MOD2 Modula2 info "for imc" (according to Ultrix V4.0) Note: conflicts with @code{N_EHDECL} <> @end deffn @node N_CATCH @section N_CATCH @deffn @code{.stabn} N_CATCH @findex N_CATCH GNU C++ @code{catch} clause GNU C++ @code{catch} clause. The value is its address. The desc field is nonzero if this entry is immediately followed by a @code{CAUGHT} stab saying what exception was caught. Multiple @code{CAUGHT} stabs means that multiple exceptions can be caught here. If desc is 0, it means all exceptions are caught here. @end deffn @node N_SSYM @section N_SSYM @deffn @code{.stabn} N_SSYM @findex N_SSYM Structure or union element. The value is the offset in the structure. <> @end deffn @node N_SCOPE @section N_SCOPE @deffn @code{.stab?} N_SCOPE @findex N_SCOPE Modula2 scope information (Sun linker) <> @end deffn @node Gould @section Non-base registers on Gould systems @deffn @code{.stab?} N_NBTEXT @deffnx @code{.stab?} N_NBDATA @deffnx @code{.stab?} N_NBBSS @deffnx @code{.stab?} N_NBSTS @deffnx @code{.stab?} N_NBLCS @findex N_NBTEXT @findex N_NBDATA @findex N_NBBSS @findex N_NBSTS @findex N_NBLCS These are used on Gould systems for non-base registers syms. However, the following values are not the values used by Gould; they are the values which GNU has been documenting for these values for a long time, without actually checking what Gould uses. I include these values only because perhaps some someone actually did something with the GNU information (I hope not, why GNU knowingly assigned wrong values to these in the header file is a complete mystery to me). @example 240 0xf0 N_NBTEXT ?? 242 0xf2 N_NBDATA ?? 244 0xf4 N_NBBSS ?? 246 0xf6 N_NBSTS ?? 248 0xf8 N_NBLCS ?? @end example @end deffn @node N_LENG @section N_LENG @deffn @code{.stabn} N_LENG @findex N_LENG Second symbol entry containing a length-value for the preceding entry. The value is the length. @end deffn @node Questions @appendix Questions and Anomalies @itemize @bullet @item @c I think this is changed in GCC 2.4.5 to put the line number there. For GNU C stabs defining local and global variables (@code{N_LSYM} and @code{N_GSYM}), the desc field is supposed to contain the source line number on which the variable is defined. In reality the desc field is always 0. (This behavior is defined in @file{dbxout.c} and putting a line number in desc is controlled by @samp{#ifdef WINNING_GDB}, which defaults to false). GDB supposedly uses this information if you say @samp{list @var{var}}. In reality, @var{var} can be a variable defined in the program and GDB says @samp{function @var{var} not defined}. @item In GNU C stabs, there seems to be no way to differentiate tag types: structures, unions, and enums (symbol descriptor @samp{T}) and typedefs (symbol descriptor @samp{t}) defined at file scope from types defined locally to a procedure or other more local scope. They all use the @code{N_LSYM} stab type. Types defined at procedure scope are emited after the @code{N_RBRAC} of the preceding function and before the code of the procedure in which they are defined. This is exactly the same as types defined in the source file between the two procedure bodies. GDB overcompensates by placing all types in block #1, the block for symbols of file scope. This is true for default, @samp{-ansi} and @samp{-traditional} compiler options. (Bugs gcc/1063, gdb/1066.) @item What ends the procedure scope? Is it the proc block's @code{N_RBRAC} or the next @code{N_FUN}? (I believe its the first.) @item @c FIXME: This should go with the other stuff about global variables. Global variable stabs don't have location information. This comes from the external symbol for the same variable. The external symbol has a leading underbar on the _name of the variable and the stab does not. How do we know these two symbol table entries are talking about the same symbol when their names are different? (Answer: the debugger knows that external symbols have leading underbars). @c FIXME: This is absurdly vague; there all kinds of differences, some @c of which are the same between gnu & sun, and some of which aren't. @c In particular, I'm pretty sure GCC works with Sun dbx by default. @c @item @c Can GCC be configured to output stabs the way the Sun compiler @c does, so that their native debugging tools work? It doesn't by @c default. GDB reads either format of stab. (GCC or SunC). How about @c dbx? @end itemize @node XCOFF Differences @appendix Differences Between GNU Stabs in a.out and GNU Stabs in XCOFF @c FIXME: Merge *all* these into the main body of the document. The AIX/RS6000 native object file format is XCOFF with stabs. This appendix only covers those differences which are not covered in the main body of this document. @itemize @bullet @item BSD a.out stab types correspond to AIX XCOFF storage classes. In general the mapping is @code{N_@var{stabtype}} becomes @code{C_@var{stabtype}}. Some stab types in a.out are not supported in XCOFF; most of these use @code{C_DECL}. @c FIXME: I think they are trying to say something about whether the @c assembler defaults the value to the location counter. @item If the XCOFF stab is an @code{N_FUN} (@code{C_FUN}) then follow the string field with @samp{,.} instead of just @samp{,}. @end itemize I think that's it for @file{.s} file differences. They could stand to be better presented. This is just a list of what I have noticed so far. There are a @emph{lot} of differences in the information in the symbol tables of the executable and object files. Mapping of a.out stab types to XCOFF storage classes: @example stab type storage class ------------------------------- N_GSYM C_GSYM N_FNAME unused N_FUN C_FUN N_STSYM C_STSYM N_LCSYM C_STSYM N_MAIN unknown N_PC unknown N_RSYM C_RSYM unknown C_RPSYM N_M2C unknown N_SLINE unknown N_DSLINE unknown N_BSLINE unknown N_BROWSE unchanged N_CATCH unknown N_SSYM unknown N_SO unknown N_LSYM C_LSYM various C_DECL N_BINCL unknown N_SOL unknown N_PSYM C_PSYM N_EINCL unknown N_ENTRY C_ENTRY N_LBRAC unknown N_EXCL unknown N_SCOPE unknown N_RBRAC unknown N_BCOMM C_BCOMM N_ECOMM C_ECOMM N_ECOML C_ECOML N_LENG unknown @end example @node Sun Differences @appendix Differences Between GNU Stabs and Sun Native Stabs @c FIXME: Merge all this stuff into the main body of the document. @itemize @bullet @item GNU C stabs define @emph{all} types, file or procedure scope, as @code{N_LSYM}. Sun doc talks about using @code{N_GSYM} too. @item Sun C stabs use type number pairs in the format (@var{file-number},@var{type-number}) where @var{file-number} is a number starting with 1 and incremented for each sub-source file in the compilation. @var{type-number} is a number starting with 1 and incremented for each new type defined in the compilation. GNU C stabs use the type number alone, with no source file number. @end itemize @node Stab Sections @appendix Using Stabs in Their Own Sections Many object file formats allow tools to create object files with custom sections containing any arbitrary data. For any such object file format, stabs can be embedded in special sections. This is how stabs are used with ELF and SOM, and aside from ECOFF and XCOFF, is how stabs are used with COFF. @menu * Stab Section Basics:: How to embed stabs in sections * ELF Linker Relocation:: Sun ELF hacks @end menu @node Stab Section Basics @appendixsec How to Embed Stabs in Sections The assembler creates two custom sections, a section named @code{.stab} which contains an array of fixed length structures, one struct per stab, and a section named @code{.stabstr} containing all the variable length strings that are referenced by stabs in the @code{.stab} section. The byte order of the stabs binary data depends on the object file format. For ELF, it matches the byte order of the ELF file itself, as determined from the @code{EI_DATA} field in the @code{e_ident} member of the ELF header. For SOM, it is always big-endian (is this true??? FIXME). For COFF, it matches the byte order of the COFF headers. The meaning of the fields is the same as for a.out (@pxref{Symbol Table Format}), except that the @code{n_strx} field is relative to the strings for the current compilation unit (which can be found using the synthetic N_UNDF stab described below), rather than the entire string table. The first stab in the @code{.stab} section for each compilation unit is synthetic, generated entirely by the assembler, with no corresponding @code{.stab} directive as input to the assembler. This stab contains the following fields: @table @code @item n_strx Offset in the @code{.stabstr} section to the source filename. @item n_type @code{N_UNDF}. @item n_other Unused field, always zero. This may eventually be used to hold overflows from the count in the @code{n_desc} field. @item n_desc Count of upcoming symbols, i.e., the number of remaining stabs for this source file. @item n_value Size of the string table fragment associated with this source file, in bytes. @end table The @code{.stabstr} section always starts with a null byte (so that string offsets of zero reference a null string), followed by random length strings, each of which is null byte terminated. The ELF section header for the @code{.stab} section has its @code{sh_link} member set to the section number of the @code{.stabstr} section, and the @code{.stabstr} section has its ELF section header @code{sh_type} member set to @code{SHT_STRTAB} to mark it as a string table. SOM and COFF have no way of linking the sections together or marking them as string tables. For COFF, the @code{.stab} and @code{.stabstr} sections are simply concatenated by the linker. GDB then uses the @code{n_desc} fields to figure out the extent of the original sections. Similarly, the @code{n_value} fields of the header symbols are added together in order to get the actual position of the strings in a desired @code{.stabstr} section. Although this design obviates any need for the linker to relocate or otherwise manipulate @code{.stab} and @code{.stabstr} sections, it also requires some care to ensure that the offsets are calculated correctly. For instance, if the linker were to pad in between the @code{.stabstr} sections before concatenating, then the offsets to strings in the middle of the executable's @code{.stabstr} section would be wrong. @node ELF Linker Relocation @appendixsec Having the Linker Relocate Stabs in ELF This section describes some Sun hacks for Stabs in ELF; it does not apply to COFF or SOM. To keep linking fast, you don't want the linker to have to relocate very many stabs. Making sure this is done for @code{N_SLINE}, @code{N_RBRAC}, and @code{N_LBRAC} stabs is the most important thing (see the descriptions of those stabs for more information). But Sun's stabs in ELF has taken this further, to make all addresses in the @code{n_value} field (functions and static variables) relative to the source file. For the @code{N_SO} symbol itself, Sun simply omits the address. To find the address of each section corresponding to a given source file, the compiler puts out symbols giving the address of each section for a given source file. Since these are ELF (not stab) symbols, the linker relocates them correctly without having to touch the stabs section. They are named @code{Bbss.bss} for the bss section, @code{Ddata.data} for the data section, and @code{Drodata.rodata} for the rodata section. For the text section, there is no such symbol (but there should be, see below). For an example of how these symbols work, @xref{Stab Section Transformations}. GCC does not provide these symbols; it instead relies on the stabs getting relocated. Thus addresses which would normally be relative to @code{Bbss.bss}, etc., are already relocated. The Sun linker provided with Solaris 2.2 and earlier relocates stabs using normal ELF relocation information, as it would do for any section. Sun has been threatening to kludge their linker to not do this (to speed up linking), even though the correct way to avoid having the linker do these relocations is to have the compiler no longer output relocatable values. Last I heard they had been talked out of the linker kludge. See Sun point patch 101052-01 and Sun bug 1142109. With the Sun compiler this affects @samp{S} symbol descriptor stabs (@pxref{Statics}) and functions (@pxref{Procedures}). In the latter case, to adopt the clean solution (making the value of the stab relative to the start of the compilation unit), it would be necessary to invent a @code{Ttext.text} symbol, analogous to the @code{Bbss.bss}, etc., symbols. I recommend this rather than using a zero value and getting the address from the ELF symbols. Finding the correct @code{Bbss.bss}, etc., symbol is difficult, because the linker simply concatenates the @code{.stab} sections from each @file{.o} file without including any information about which part of a @code{.stab} section comes from which @file{.o} file. The way GDB does this is to look for an ELF @code{STT_FILE} symbol which has the same name as the last component of the file name from the @code{N_SO} symbol in the stabs (for example, if the file name is @file{../../gdb/main.c}, it looks for an ELF @code{STT_FILE} symbol named @code{main.c}). This loses if different files have the same name (they could be in different directories, a library could have been copied from one system to another, etc.). It would be much cleaner to have the @code{Bbss.bss} symbols in the stabs themselves. Having the linker relocate them there is no more work than having the linker relocate ELF symbols, and it solves the problem of having to associate the ELF and stab symbols. However, no one has yet designed or implemented such a scheme. @node Symbol Types Index @unnumbered Symbol Types Index @printindex fn @contents @bye gdb-4.13/gdb/doc/refcard.dvi 666 34562 1752 52340 5623251703 14177 0ustar fnfcygnus÷ƒ’À;è TeX output 1994.08.13:1614‹ÿÿÿÿ  õ  ýÇ× ‘ÉÌ)ó2ÂÖN  cmbx12ÝGDB–U>QUICK“REFERENCE‘ƒ`ó¹Aa¨cmr6¯GDB“V‘ÿj«ersion“4ŽŸG‘ÉÌ)óò"V cmbx10ÂEssen®9tial‘U>CommandsŽ© ‘ÉÌ)óßCÊscmtt8Êgdb›U>ó't}\Êcmti7Òpr•–Áo“gr“am˜óKñ`y cmr10«[Òc“or“e«]ŽŽŽ‘dÄóÙ“ Rcmr7®debug›U>Òpr•–Áo“gr“am˜«[®using˜coredump˜Òc“or“e«]ŽŽŽŽ¤ ‘ÉÌ)Êb‘U>«[Ò leÊ:«]ÒfunctionŽŽŽ‘dÄ®set–U>breakp7oinÈãt“at“Òfunction“«[®in“Ò le«]ŽŽŽŽ¡‘ÉÌ)Êrun‘U>«[Òar–Áglist«]ŽŽŽ‘dÄ®start–U>yÈãour“program“«[®with“Òar–Áglist«]ŽŽŽŽŸ cŽ‘ÉÌ)ÊbtŽŽŽ‘dÄ®bac•Èãktrace:‘displa“y–U>program“stacÈãkŽŽŽŽ¤ ‘ÉÌ)Êp‘U>ÒexprŽŽŽ‘dÄ®displaÈãy–U>the“v‘Çalue“of“an“expressionŽŽŽŽ¡‘ÉÌ)ÊcŽŽŽ‘dÄ®con•Èãtin“ue–U>running“yÈãour“programŽŽŽŽ¡‘ÉÌ)ÊnŽŽŽ‘dÄ®next–U>line,“stepping“o•Èãv“er–U>function“callsŽŽŽŽ¡‘ÉÌ)ÊsŽŽŽ‘dÄ®next–U>line,“stepping“inÈãto“function“callsŽŽŽŽŸN8‘ÉÌ)ÂStarting‘U>GDBŽ¦‘ÉÌ)ÊgdbŽŽŽ‘dÄ®start–U>GDB,“with“no“debugging“ lesŽŽŽŽ¡‘ÉÌ)Êgdb‘U>Òpr•–Áo“gr“amŽŽŽ‘dÄ®b7egin–U>debugging“Òpr•–Áo“gr“amŽŽŽŽ¡‘ÉÌ)Êgdb›U>Òpr•–Áo“gr“am˜c“or“eŽŽŽ‘dÄ®debug–U>coredump“Òc•–Áor“e–U>®pro7duced“bÈãyŽ¡‘dÄÒpr•–Áo“gr“amŽŽŽŽŸ?ÿ‘ÉÌ)Êgdb‘U>--helpŽŽŽ‘dÄ®describ7e–U>command“line“optionsŽŽŽŽŸ¸ã‘ÉÌ)ÂStopping‘U>GDBŽ¦‘ÉÌ)ÊquitŽŽŽ‘dÄ®exit–U>GDB;“also“Êq“®or“ÊEOF“®(eg“ÊC-d®)ŽŽŽŽŸ ‘ÉÌ)ÊINTERRUPTŽŽŽ‘dÄ®(eg–U>ÊC-c®)“terminate“currenÈãt“command,“orŽ¡‘dÄsend–U>to“running“pro7cessŽŽŽŽŸ N8‘ÉÌ)ÂGetting‘U>HelpŽ¦‘ÉÌ)ÊhelpŽŽŽ‘dÄ®list–U>classes“of“commandsŽŽŽŽ¡‘ÉÌ)Êhelp‘U>ÒclassŽŽŽ‘dÄ®one-line–U>descriptions“for“commands“inŽ¡‘dÄÒclassŽŽŽŽŸ㎑ÉÌ)Êhelp‘U>Òc–ÁommandŽŽŽ‘dÄ®describ7e‘U>Òc–ÁommandŽŽŽŽŸ¸ã‘ÉÌ)ÂExecuting–U>y®9our“ProgramŽ¦‘ÉÌ)Êrun‘U>Òar–ÁglistŽŽŽ‘dÄ®start–U>yÈãour“program“with“Òar–ÁglistŽŽŽŽ¡‘ÉÌ)ÊrunŽŽŽ‘dÄ®start–U>yšÈãour“program“with“curren˜t“argumen˜tŽ¡‘dÄlistŽŽŽŽŸÜq‘ÉÌ)Êrun‘U>ó  b> cmmi10±:–ª¨:“:Ž‘U#Ê<Òinf‘U>Ê>ÒoutfŽŽŽ‘dÄ®start–U>yÈãour“program“with“input,“outputŽ¡‘dÄredirectedŽŽŽŽŸ ¡‘ÉÌ)ÊkillŽŽŽ‘dÄ®kill–U>running“programŽŽŽŽ¡¡‘ÉÌ)Êtty‘U>ÒdevŽŽŽ‘dÄ®use–U>Òdev“®as“stdin“and“stdout“for“next“ÊrunŽŽŽŽ¡‘ÉÌ)set–U>args“Òar–ÁglistŽŽŽ‘dÄ®sp7ecify–U>Òar–Áglist“®for“next“ÊrunŽŽŽŽ¡‘ÉÌ)set‘U>argsŽŽŽ‘dÄ®sp7ecify–U>emptšÈãy“argumen˜t“listŽŽŽŽ¡‘ÉÌ)Êshow‘U>argsŽŽŽ‘dÄ®displa•Èãy›U>argumen“t˜listŽŽŽŽ¡¡‘ÉÌ)Êshow‘U>envŽŽŽ‘dÄ®shošÈãw–U>all“en˜vironmen˜t“v‘ÇariablesŽŽŽŽ¡‘ÉÌ)Êshow–U>env“ÒvarŽŽŽ‘dÄ®shošÈãw–U>v‘Çalue“of“en˜vironmen˜t“v‘Çariable“ÒvarŽŽŽŽ¡‘ÉÌ)Êset–U>env“Òvar“stringŽŽŽ‘dÄ®set›U>en•Èãvironmen“t˜v‘Çariable˜ÒvarŽŽŽŽ¡‘ÉÌ)Êunset–U>env“ÒvarŽŽŽ‘dÄ®remo•Èãv“e–U>Òvar“®from“en•Èãvironmen“tŽŽŽŽŸ‘ÉÌ)ÂShell‘U>CommandsŽ¦‘ÉÌ)Êcd‘U>ÒdirŽŽŽ‘dÄ®c•Èãhange›U>w“orking˜directory˜to˜ÒdirŽŽŽŽ¡‘ÉÌ)ÊpwdŽŽŽ‘dÄ®Prin•Èãt›U>w“orking˜directoryŽŽŽŽ¡‘ÉÌ)Êmake‘U>±:–ª¨:“:ŽŽŽŽ‘dÄ®call‘U>\Êmake®"ŽŽŽŽ¡‘ÉÌ)Êshell‘U>ÒcmdŽŽŽ‘dÄ®execute–U>arbitrary“shell“command“stringŽŽŽŽŸhþ‘ÉÌ)«[–U>]“¯surround“optional“argumen•Î9ts‘ 8¶±:–ª¨:“:Ž‘8›¯sho“w–U>one“or“more“argumenÎ9tsŽŸ‘ÁéúžÑ´cŽŽŽ‘¾†ó !",š cmsy10· ŽŽŽŽ‘ȇ¯1991,–U>1992,“1993“F›ÿj«ree“Soft•Î9w“are–U>F˜oundation,“Inc.‘ª PšÎ9ermissions“on“bac˜kŽŽŽ ý¿× ’À§A„šŽ @(÷’À§A„šŽŽ ýÇ× ’ÒÒ"ÂBreakpQÇoinš®9ts–U>and“W‘ÿ «atc˜hpQÇoin˜tsŽŸ qÇ’ÒÒ"Êbreak‘U>«[Ò leÊ:«]ÒlineŽŸ ’ÒÒ"Êb‘U>«[Ò leÊ:«]ÒlineŽŽŽ’j½®set–U>breakp7oinšÈãt“at“Òline“®n˜um˜b7er“«[®in“Ò le«]ŽŸ ’j½®eg:‘øåÊbreak‘U>main.c:37ŽŽŽŽŸ’ÒÒ"break‘U>«[Ò leÊ:«]ÒfuncŽŽŽ’j½®set–U>breakp7oinÈãt“at“Òfunc“«[®in“Ò le«]ŽŽŽŽŸ cŽ’ÒÒ"Êbreak‘U>+Òo setŽŸ ’ÒÒ"Êbreak‘U>-Òo setŽŽŽ’j½®set–U>break“at“Òo set“®lines“from“currenÈãt“stopŽŽŽŽ©?ÿ’ÒÒ"Êbreak‘U>*ÒaddrŽŽŽ’j½®set–U>breakp7oinÈãt“at“address“ÒaddrŽŽŽŽ¤ ’ÒÒ"ÊbreakŽŽŽ’j½®set–U>breakp7oinÈãt“at“next“instructionŽŽŽŽ¡’ÒÒ"Êbreak‘U>±:–ª¨:“:Ž‘U#Êif‘U>ÒexprŽŽŽ’j½®break–U>conditionally“on“nonzero“ÒexprŽŽŽŽŸ Üq’ÒÒ"Êcond–U>Òn“«[Òexpr«]ŽŽŽ’j½®new–U>conditional“expression“on“breakp7oinÈãtŽ¡’"j½Òn®;–U>makÈãe“unconditional“if“no“ÒexprŽŽŽŽ¦’ÒÒ"Êtbreak‘U>±:–ª¨:“:ŽŽŽŽ’j½®temp7orary–U>break;“disable“when“reacÈãhedŽŽŽŽ¡’ÒÒ"Êrbreak‘U>Òr•–Áe“gexŽŽŽ’j½®break–U>on“all“functions“matcÈãhing“Òr•–Áe“gexŽŽŽŽ¡’ÒÒ"Êwatch‘U>ÒexprŽŽŽ’j½®set–U>a“w•Èãatc“hp7oin“t–U>for“expression“ÒexprŽŽŽŽ¡’ÒÒ"Êcatch‘U>ÒxŽŽŽ’j½®break–U>at“C++“handler“for“exception“ÒxŽŽŽŽ¡¡’ÒÒ"Êinfo‘U>breakŽŽŽ’j½®shošÈãw–U>de ned“breakp7oin˜tsŽŽŽŽ¡’ÒÒ"Êinfo‘U>watchŽŽŽ’j½®shošÈãw–U>de ned“w˜atc˜hp7oin˜tsŽŽŽŽ¡¡’ÒÒ"ÊclearŽŽŽ’j½®delete–U>breakp7oinÈãts“at“next“instructionŽŽŽŽŸ Üq’ÒÒ"Êclear‘U>«[Ò leÊ:«]ÒfunŽŽŽ’j½®delete–U>breakp7oinšÈãts“at“en˜try“to“Òfun®()ŽŽŽŽ¤ ’ÒÒ"Êclear‘U>«[Ò leÊ:«]ÒlineŽŽŽ’j½®delete–U>breakp7oinÈãts“on“source“lineŽŽŽŽ¡’ÒÒ"Êdelete‘U>«[Òn«]ŽŽŽ’j½®delete–U>breakpš7oinÈãts“«[®or“breakp˜oinÈãt“Òn«]ŽŽŽŽ© Ÿ €’ÒÒ"Êdisable‘U>«[Òn«]ŽŽŽ’j½®disable–U>breakpš7oinÈãts“«[®or“breakp˜oinÈãt“Òn«]ŽŽŽŽ¡’ÒÒ"Êenable‘U>«[Òn«]ŽŽŽ’j½®enable–U>breakpš7oinÈãts“«[®or“breakp˜oinÈãt“Òn«]ŽŽŽŽ¡’ÒÒ"Êenable–U>once“«[Òn«]ŽŽŽ’j½®enable–U>breakpš7oinÈãts“«[®or“breakp˜oinÈãt“Òn«]®;Ž¦’"j½disable–U>again“when“reacÈãhedŽŽŽŽŸÜq’ÒÒ"Êenable–U>del“«[Òn«]ŽŽŽ’j½®enable–U>breakpš7oinÈãts“«[®or“breakp˜oinÈãt“Òn«]®;Ž¦’"j½delete–U>when“reacÈãhedŽŽŽŽŸ ¦’ÒÒ"Êignore–U>Òn“c–ÁountŽŽŽ’j½®ignore–U>breakp7oinÈãt“Òn®,“Òc–Áount“®timesŽŽŽŽ¦¦’ÒÒ"Êcommands‘U>ÒnŽ¦’ãÒ2«[Êsilent«]Ž¦’ãÒ2Òc–Áommand-listŽŽŽ’j½®execute–U>GDB“Òc–Áommand-list“®evÈãery“timeŽ¦’"j½breakp7oinšÈãt–U>Òn“®is“reac˜hed.‘«[ÊsilentŽŸ ’"j½®suppresses–U>default“displaÈãy«]ŽŽŽŽŸcŽ’ÒÒ"ÊendŽŽŽ’j½®end–U>of“Òc–Áommand-listŽŽŽŽŸ’ÒÒ"ÂProgram‘U>Stac®9kŽŸ qÇ’ÒÒ"Êbacktrace‘U>«[Òn«]ŽŸ ’ÒÒ"Êbt‘U>«[Òn«]ŽŽŽ’j½®prinšÈãt–U>trace“of“all“frames“in“stac˜k;“or“of“ÒnŽ¦’"j½®frames|innermost–U>if“ÒnÊ>0®,“outermost“ifŽ¦’"j½ÒnÊ<0ŽŽŽŽŸ€’ÒÒ"frame‘U>«[Òn«]ŽŽŽ’j½®select–U>frame“n•Èãum“b7er–U>Òn“®or“frame“at“addressŽ¦’"j½Òn®;–U>if“no“Òn®,“displašÈãy“curren˜t“frameŽŽŽŽŸ8â’ÒÒ"Êup‘U>ÒnŽŽŽ’j½®select–U>frame“Òn“®frames“upŽŽŽŽ¦’ÒÒ"Êdown‘U>ÒnŽŽŽ’j½®select–U>frame“Òn“®frames“doÈãwnŽŽŽŽ¤ €’ÒÒ"Êinfo–U>frame“«[Òaddr«]ŽŽŽ’j½®describ7e–U>selected“frame,“or“frame“at“ÒaddrŽŽŽŽŸ cŽ’ÒÒ"Êinfo‘U>argsŽŽŽ’j½®argumenÈãts–U>of“selected“frameŽŽŽŽ¦’ÒÒ"Êinfo‘U>localsŽŽŽ’j½®lo7cal–U>v‘Çariables“of“selected“frameŽŽŽŽ¡’ÒÒ"Êinfo–U>reg“«[Òrn«]±:–ª¨:“:ŽŽŸ ’ÒÒ"Êinfo–U>all-reg“«[Òrn«]ŽŽŽ’j½®register–U>v‘Çalues“«[®for“regs“Òrn‘šB«]“®in“selectedŽ¦’"j½frame;–U>Êall-reg“®includes“ oating“p7oinÈãtŽŽŽŽŸcŽ’ÒÒ"Êinfo‘U>catchŽŽŽ’j½®exception–U>handlers“activÈãe“in“selected“frameŽŽŽŽŽŽ ý¿× ’É­:„šŽ @(÷’É­:„šŽŽ ýÇ× ’ÛØÂExecution‘U>Con®9trolŽ¤ ’ÛØÊcontinue‘U>«[Òc–Áount«]Ž¡’ÛØÊc‘U>«[Òc–Áount«]ŽŽŽ’&p¶®con•Èãtin“ue–U>running;“if“Òc–Áount“®sp7eci ed,“ignoreŽŸ ’+p¶this–U>breakp7oinÈãt“next“Òc–Áount“®timesŽŽŽŽ©€Ÿ €’ÛØÊstep‘U>«[Òc–Áount«]Ž¡’ÛØÊs‘U>«[Òc–Áount«]ŽŽŽ’&p¶®execute–U>unšÈãtil“another“line“reac˜hed;“rep7eatŽŸ ’+p¶Òc–Áount–U>®times“if“sp7eci edŽŽŽŽŸ’ÛØÊstepi‘U>«[Òc–Áount«]Ž¡’ÛØÊsi‘U>«[Òc–Áount«]ŽŽŽ’&p¶®step–U>bšÈãy“mac˜hine“instructions“rather“thanŽŸ ’+p¶source‘U>linesŽŽŽŽ¦Ÿ €’ÛØÊnext‘U>«[Òc–Áount«]Ž¡’ÛØÊn‘U>«[Òc–Áount«]ŽŽŽ’&p¶®execute–U>next“line,“including“anÈãy“functionŽŸ ’+p¶callsŽŽŽŽŸ’ÛØÊnexti‘U>«[Òc–Áount«]Ž¡’ÛØÊni‘U>«[Òc–Áount«]ŽŽŽ’&p¶®next–U>macÈãhine“instruction“rather“thanŽŸ ’+p¶source‘U>lineŽŽŽŽ¦¤ €’ÛØÊuntil‘U>«[Òlo•–Ác“ation«]ŽŽŽ’&p¶®run–U>unÈãtil“next“instruction“(or“Òlo•–Ác“ation®)ŽŽŽŽŸ cŽ’ÛØÊfinishŽŽŽ’&p¶®run–U>unšÈãtil“selected“stac˜k“frame“returnsŽŽŽŽ¡’ÛØÊreturn‘U>«[Òexpr«]ŽŽŽ’&p¶®p7op–U>selected“stacÈãk“frame“withoutŽŸ ’+p¶executing–U>«[®setting“return“v‘Çalue«]ŽŽŽŽŸÀ’ÛØÊsignal‘U>ÒnumŽŽŽ’&p¶®resume–U>execution“with“signal“Òs“®(none“if“Ê0®)ŽŽŽŽ¤ ’ÛØÊjump‘U>ÒlineŽ¡’ÛØÊjump‘U>*Òaddr–ÁessŽŽŽ’&p¶®resume–U>execution“at“spš7eci ed“Òline“®n•Èãum“b˜erŽ¡’+p¶or‘U>Òaddr–ÁessŽŽŽŽŸ£’ÛØÊset‘U>var=ÒexprŽŽŽ’&p¶®ev‘Çaluate–U>Òexpr“®without“displaÈãying“it;“useŽ¡’+p¶for–U>altering“program“v‘ÇariablesŽŽŽŽŸ N8’ÛØÂDispla®9yŽ© qÇ’ÛØÊprint–U>«[Ê/Òf‘† «]“[Òexpr«]ŽŸ ’ÛØÊp–U>«[Ê/Òf‘† «]“[Òexpr«]ŽŽŽ’&p¶®shoÈãw–U>vš‘Çalue“of“Òexpr“«[®or“last“v˜alue“Ê$«]Ž¡’+p¶®according–U>to“format“Òf®:ŽŽŽŽŸ\q’ìØ+ÊxŽŽŽ’&p¶®hexadecimalŽŽŽŽ¡’ìØ+ÊdŽŽŽ’&p¶®signed‘U>decimalŽŽŽŽ¡’ìØ+ÊuŽŽŽ’&p¶®unsigned‘U>decimalŽŽŽŽ¡’ìØ+ÊoŽŽŽ’&p¶®o7ctalŽŽŽŽ¡’ìØ+ÊtŽŽŽ’&p¶®binaryŽŽŽŽ¡’ìØ+ÊaŽŽŽ’&p¶®address,–U>absolute“and“relativÈãeŽŽŽŽ¡’ìØ+ÊcŽŽŽ’&p¶®cÈãharacterŽŽŽŽ¡’ìØ+ÊfŽŽŽ’&p¶® oating‘U>p7oinÈãtŽŽŽŽŸ Üq’ÛØÊcall–U>«[Ê/Òf‘† «]“ÒexprŽŽŽ’&p¶®likšÈãe–U>Êprint“®but“do7es“not“displa˜y“ÊvoidŽŽŽŽŸ ’ÛØx–U>«[Ê/ÒNuf‘† «]“ÒexprŽŽŽ’&p¶®examine–U>memory“at“address“Òexpr®;“optionalŽ¡’+p¶format–U>sp7ec“folloÈãws“slashŽŽŽŽŸ8â’äX#ÒNŽŽŽ’&p¶®counšÈãt–U>of“ho˜w“man˜y“units“to“displa˜yŽŽŽŽ¡’äX#ÒuŽŽŽ’&p¶®unit–U>size;“one“ofŽŽŽŽ¡’7pÆÊb–U>®individual“bÈãytesŽŽŽŽ¡’7pÆÊh–U>®halfwšÈãords“(t˜w˜o“b˜ytes)ŽŽŽŽ¡’7pÆÊw–U>®wšÈãords“(four“b˜ytes)ŽŽŽŽ¡’7pÆÊg–U>®gianšÈãt“w˜ords“(eigh˜t“b˜ytes)ŽŽŽŽ¡’äX#ÒfŽŽŽ’&p¶®prin•Èãting›U>format.‘An“y˜Êprint˜®format,˜orŽŽŽŽ¡’7pÆÊs–U>®nÈãull-terminated“stringŽŽŽŽ¡’7pÆÊi–U>®macÈãhine“instructionsŽŽŽŽŸ €’ÛØÊdisassem‘U>«[Òaddr«]ŽŽŽ’&p¶®displašÈãy–U>memory“as“mac˜hine“instructionsŽŽŽŽŸqÇ’ÛØÂAutomatic‘U>Displa®9yŽ¦’ÛØÊdisplay–U>«[Ê/Òf‘† «]“ÒexprŽŽŽ’&p¶®shošÈãw–U>v‘Çalue“of“Òexpr“®eac˜h“time“programŽ¡’+p¶stops–U>«[®according“to“format“Òf‘† «]ŽŽŽŽŸcŽ’ÛØÊdisplayŽŽŽ’&p¶®displaÈãy–U>all“enabled“expressions“on“listŽŽŽŽ© ’ÛØÊundisplay‘U>ÒnŽŽŽ’&p¶®remo•Èãv“e›U>n“um“b7er(s)˜Òn˜®from˜list˜ofŽ¡’+p¶automatically›U>displa•Èãy“ed˜expressionsŽŽŽŽŸœq’ÛØÊdisable–U>disp“ÒnŽŽŽ’&p¶®disable–U>displašÈãy“for“expression(s)“n˜um˜b7er“ÒnŽŽŽŽ¦’ÛØÊenable–U>disp“ÒnŽŽŽ’&p¶®enable–U>displašÈãy“for“expression(s)“n˜um˜b7er“ÒnŽŽŽŽ¡’ÛØÊinfo‘U>displayŽŽŽ’&p¶®n•Èãum“b7ered–U>list“of“displaÈãy“expressionsŽŽŽŽŽŽŽŒ‹*  õ  ýÇ× ‘ÉÌ)ÂExpressionsŽ© ‘ÉÌ)ÒexprŽŽŽ‘dÄ®an–U>expression“in“C,“C++,“or“Mo7dula-2ŽŸ ‘dÄ(including–U>function“calls),“or:ŽŽŽŽŸ£Ž‘ÉÌ)Òaddr‘ÀäÊ@ÒlenŽŽŽ‘dÄ®an–U>arrašÈãy“of“Òlen“®elemen˜ts“b7eginning“atŽŸ ‘dÄÒaddrŽŽŽŽŸÜq‘ÉÌ) leÊ::ÒnmŽŽŽ‘dÄ®a–U>v‘Çariable“or“function“Ònm“®de ned“in“Ò leŽŽŽŽŸ Üq‘ÉÌ)·fÒtyp–Áe·gÒaddrŽŽŽ‘dÄ®read–U>memory“at“Òaddr“®as“sp7eci ed“Òtyp–ÁeŽŽŽŽŸ 9‘ÉÌ)Ê$ŽŽŽ‘dÄ®most–U>recenšÈãt“displa˜y˜ed“v‘ÇalueŽŽŽŽ¤ ‘ÉÌ)Ê$ÒnŽŽŽ‘dÄn®th›U>displa•Èãy“ed˜v‘ÇalueŽŽŽŽ¡‘ÉÌ)Ê$$ŽŽŽ‘dÄ®displa•Èãy“ed–U>v‘Çalue“previous“to“$ŽŽŽŽ¡‘ÉÌ)Ê$$ÒnŽŽŽ‘dÄn®th›U>displa•Èãy“ed˜v‘Çalue˜bac“k˜from˜$ŽŽŽŽ¡‘ÉÌ)Ê$‘‚Ž‰ffŒÐŽŽŽŽ‘dÄ®last–U>address“examined“with“ÊxŽŽŽŽ¡‘ÉÌ)$‘‚Ž‰ffŒÐŽ‘‘ì‰ffŒÐŽŽŽŽ‘dÄ®v‘Çalue–U>at“address“$zr‰ffdFŽŽŽŽŽ¡‘ÉÌ)Ê$ÒvarŽŽŽ‘dÄ®con•Èãv“enience–U>vš‘Çariable;“assign“anÈãy“v˜alueŽŽŽŽ¡Ÿ €‘ÉÌ)Êshow–U>values“«[Òn«]ŽŽŽ‘dÄ®shoÈãw–U>last“10“v‘Çalues“«[®or“surrounding“$Òn«]ŽŽŽŽŸ cŽ‘ÉÌ)Êshow‘U>convŽŽŽ‘dÄ®displašÈãy–U>all“con˜v˜enience“v‘ÇariablesŽŽŽŽŸN8‘ÉÌ)ÂSym®9bQÇol‘U>T‘ÿ «ableŽ¦‘ÉÌ)Êinfo–U>address“ÒsŽŽŽ‘dÄ®shošÈãw–U>where“sym˜b7ol“Òs“®is“storedŽŽŽŽŸ Üq‘ÉÌ)Êinfo–U>func“«[Òr•–Áe“gex«]ŽŽŽ‘dÄ®shošÈãw–U>names,“t˜yp7es“of“de ned“functionsŽ¡‘dÄ(all,–U>or“matcÈãhing“Òr•–Áe“gex®)ŽŽŽŽ©@‘ÉÌ)Êinfo–U>var“«[Òr•–Áe“gex«]ŽŽŽ‘dÄ®shošÈãw–U>names,“t˜yp7es“of“global“v‘Çariables“(all,Ž¡‘dÄor–U>matcÈãhing“Òr•–Áe“gex®)ŽŽŽŽ¦‘ÉÌ)Êwhatis‘U>«[Òexpr«]ŽŸ ‘ÉÌ)Êptype‘U>«[Òexpr«]ŽŽŽ‘dÄ®shošÈãw–U>data“t˜yp7e“of“Òexpr“«[®or“Ê$«]“®withoutŽ¡‘dÄev‘Çaluating;–U>Êptype“®givÈães“more“detailŽŽŽŽŸ\q‘ÉÌ)Êptype‘U>Òtyp–ÁeŽŽŽ‘dÄ®describ•7e›U>tÈãyp“e,˜struct,˜union,˜or˜enÈãumŽŽŽŽŸ¸ã‘ÉÌ)ÂGDB‘U>ScriptsŽŸ ‘ÉÌ)Êsource‘U>ÒscriptŽŽŽ‘dÄ®read,–U>execute“GDB“commands“from“ leŽ¡‘dÄÒscriptŽŽŽŽŸ \q¡‘ÉÌ)Êdefine‘U>ÒcmdŽ¡‘ÚÌ9c–Áommand-listŽŽŽ‘dÄ®create–U>new“GDB“command“Òcmd®;“executeŽ¡‘dÄscript–U>de ned“bÈãy“Òc–Áommand-listŽŽŽŽ©?ÿ‘ÉÌ)ÊendŽŽŽ‘dÄ®end–U>of“Òc–Áommand-listŽŽŽŽ¡‘ÉÌ)Êdocument‘U>ÒcmdŽ¡‘ÚÌ9help-textŽŽŽ‘dÄ®create–U>online“do7cumenÈãtation“for“new“GDBŽ¡‘dÄcommand‘U>ÒcmdŽŽŽŽ¦‘ÉÌ)ÊendŽŽŽ‘dÄ®end–U>of“Òhelp-textŽŽŽŽŸN8‘ÉÌ)ÂSignalsŽ© ‘ÉÌ)Êhandle–U>Òsignal“actŽŽŽ‘dÄ®sp7ecify–U>GDB“actions“for“Òsignal®:ŽŽŽŽ¡‘ÒL1ÊprintŽŽŽ‘dÄ®announce‘U>signalŽŽŽŽ¡‘ÒL1ÊnoprintŽŽŽ‘dÄ®b7e–U>silenÈãt“for“signalŽŽŽŽ¡‘ÒL1ÊstopŽŽŽ‘dÄ®halt–U>execution“on“signalŽŽŽŽ¡‘ÒL1ÊnostopŽŽŽ‘dÄ®do–U>not“halt“executionŽŽŽŽ¡‘ÒL1ÊpassŽŽŽ‘dÄ®allo•Èãw›U>y“our˜program˜to˜handle˜signalŽŽŽŽ¡‘ÒL1ÊnopassŽŽŽ‘dÄ®do–U>not“allošÈãw“y˜our“program“to“see“signalŽŽŽŽ¡‘ÉÌ)Êinfo‘U>signalsŽŽŽ‘dÄ®shošÈãw–U>table“of“signals,“GDB“action“for“eac˜hŽŽŽŽŸ¸ã‘ÉÌ)ÂDebugging‘U>T‘ÿ «argetsŽ¦‘ÉÌ)Êtarget–U>Òtypš–Áe“p˜ar˜amŽŽŽ‘dÄ®connect–U>to“target“macÈãhine,“pro7cess,“or“ leŽŽŽŽ¡‘ÉÌ)Êhelp‘U>targetŽŽŽ‘dÄ®displa•Èãy›U>a“v‘Çailable˜targetsŽŽŽŽ¡‘ÉÌ)Êattach‘U>Òp•–Áar“amŽŽŽ‘dÄ®connect–U>to“another“pro7cessŽŽŽŽ¡‘ÉÌ)ÊdetachŽŽŽ‘dÄ®release–U>target“from“GDB“conÈãtrolŽŽŽŽŽŽ ý¿× ’À§A„šŽ @(÷’À§A„šŽŽ ýÇ× ’ÒÒ"ÂCon®9trolling‘U>GDBŽŸ ’ÒÒ"Êset›U>Òp•–Áar“am˜valueŽŽŽ’j½®set–U>one“of“GDB's“inÈãternal“parametersŽŽŽŽ¤ ’ÒÒ"Êshow‘U>Òp•–Áar“amŽŽŽ’j½®displa•Èãy›U>curren“t˜setting˜of˜parameterŽŽŽŽŸ ’ÒÒ"PÈãarameters›U>understo•7o“d˜bÈãy˜Êset˜®and˜Êshow®:Ž¡’ÛR*Êcomplaint‘U>ÒlimitŽŽŽ’j½®n•Èãum“b7er–U>of“messages“on“unšÈãusual“sym˜b7olsŽŽŽŽ© ’ÛR*Êconfirm‘U>Òon/o ŽŽŽ’j½®enable–U>or“disable“cautionary“queriesŽŽŽŽ¡’ÛR*Êediting‘U>Òon/o ŽŽŽ’j½®conÈãtrol–U>Êreadline“®command-line“editingŽŽŽŽ¡’ÛR*Êheight‘U>ÒlppŽŽŽ’j½®n•Èãum“bš7er–U>of“lines“b˜efore“pause“in“displaÈãyŽŽŽŽ¦’ÛR*Êlanguage‘U>ÒlangŽŽŽ’j½®Language–U>for“GDB“expressions“(Êauto®,“Êc“®orŽ¡’"j½Êmodula-2®)ŽŽŽŽ©£Ž’ÛR*Êlistsize‘U>ÒnŽŽŽ’j½®n•Èãum“b7er–U>of“lines“shošÈãwn“b˜y“ÊlistŽŽŽŽ¡’ÛR*prompt‘U>ÒstrŽŽŽ’j½®use–U>Òstr“®as“GDB“promptŽŽŽŽ¡’ÛR*Êradix‘U>Òb–ÁaseŽŽŽ’j½®oš7ctal,–U>decimal,“or“hex“n•Èãum“b˜erŽ¡’"j½represenÈãtationŽŽŽŽŸœq’ÛR*Êverbose‘U>Òon/o ŽŽŽ’j½®conšÈãtrol–U>messages“when“loading“sym˜b7olsŽŽŽŽ¡’ÛR*Êwidth‘U>ÒcplŽŽŽ’j½®n•Èãum“bš7er–U>of“cÈãharacters“b˜efore“line“foldedŽŽŽŽ¡’ÛR*Êwrite‘U>Òon/o ŽŽŽ’j½®AllošÈãw–U>or“forbid“patc˜hing“binary‘ÿZª,“core“ lesŽ¡’"j½(when–U>reop7ened“with“Êexec“®or“Êcore®)ŽŽŽŽ¦’ÛR*Êhistory‘U>±:–ª¨:“:ŽŽ¡’ÛR*Êh‘U>±:–ª¨:“:ŽŽŽŽ’j½®groups–U>with“the“folloÈãwing“options:ŽŽŽŽŸ@’ÛR*Êh–U>exp“Òo /onŽŽŽ’j½®disable/enable–U>Êreadline“®history“expansionŽŽŽŽ¡’ÛR*Êh–U>file“Ò lenameŽŽŽ’j½® le–U>for“recording“GDB“command“historyŽŽŽŽ¡’ÛR*Êh–U>size“ÒsizeŽŽŽ’j½®n•Èãum“b7er–U>of“commands“kÈãept“in“history“listŽŽŽŽ¡’ÛR*Êh–U>save“Òo /onŽŽŽ’j½®conÈãtrol–U>use“of“external“ le“for“commandŽ¡’"j½historyŽŽŽŽŸ \q¡’ÛR*Êprint‘U>±:–ª¨:“:ŽŽ¡’ÛR*Êp‘U>±:–ª¨:“:ŽŽŽŽ’j½®groups–U>with“the“folloÈãwing“options:ŽŽŽŽŸ’ÛR*Êp–U>address“Òon/o ŽŽŽ’j½®prinšÈãt–U>memory“addresses“in“stac˜ks,“v‘ÇaluesŽŽŽŽ¤ ’ÛR*Êp–U>array“Òo /onŽŽŽ’j½®compact–U>or“attractivšÈãe“format“for“arra˜ysŽŽŽŽ¡’ÛR*Êp–U>demangl“Òon/o ŽŽŽ’j½®source–U>(demangled)“or“inÈãternal“form“forŽŸ ’"j½C++‘U>symÈãb7olsŽŽŽŽŸœq’ÛR*Êp–U>asm-dem“Òon/o ŽŽŽ’j½®demangle–U>C++“symšÈãb7ols“in“mac˜hine-ŽŸ ’"j½instruction‘U>outputŽŽŽŽ©?ÿ’ÛR*Êp–U>elements“ÒlimitŽŽŽ’j½®n•Èãum“b7er–U>of“arrašÈãy“elemen˜ts“to“displa˜yŽŽŽŽ¡’ÛR*Êp–U>object“Òon/o ŽŽŽ’j½®prinšÈãt–U>C++“deriv˜ed“t˜yp7es“for“obn9jectsŽŽŽŽ¡’ÛR*Êp–U>pretty“Òo /onŽŽŽ’j½®struct–U>displašÈãy:‘compact“or“inden˜tedŽŽŽŽ¡’ÛR*Êp–U>union“Òon/o ŽŽŽ’j½®displašÈãy–U>of“union“mem˜b7ersŽŽŽŽ¡’ÛR*Êp–U>vtbl“Òo /onŽŽŽ’j½®displaÈãy–U>of“C++“virtual“function“tablesŽŽŽŽ¤ ¡’ÒÒ"Êshow‘U>commandsŽŽŽ’j½®shoÈãw–U>last“10“commandsŽŽŽŽ¡’ÒÒ"Êshow–U>commands“ÒnŽŽŽ’j½®shošÈãw–U>10“commands“around“n˜um˜b7er“ÒnŽŽŽŽ¡’ÒÒ"Êshow–U>commands“+ŽŽŽ’j½®shoÈãw–U>next“10“commandsŽŽŽŽŸ’ÒÒ"ÂW‘ÿ «orking‘U>FilesŽŸ qÇ’ÒÒ"Êfile‘U>«[Ò le«]ŽŽŽ’j½®use–U>Ò le“®for“bš7oth“symÈãb˜ols“and“executable;Ž¡’"j½with–U>no“arg,“discard“b7othŽŽŽŽŸÜq’ÒÒ"Êcore‘U>«[Ò le«]ŽŽŽ’j½®read–U>Ò le“®as“coredump;“or“discardŽŽŽŽ¤ ’ÒÒ"Êexec‘U>«[Ò le«]ŽŽŽ’j½®use–U>Ò le“®as“executable“only;“or“discardŽŽŽŽ¡’ÒÒ"Êsymbol‘U>«[Ò le«]ŽŽŽ’j½®use–U>symÈãb7ol“table“from“Ò le®;“or“discardŽŽŽŽŸ cŽ’ÒÒ"Êload‘U>Ò leŽŽŽ’j½®dynamically–U>link“Ò le‘×è®and“add“its“symÈãb7olsŽŽŽŽ¤ ’ÒÒ"Êadd-sym–U>Ò le“addrŽŽŽ’j½®read–U>additional“symÈãb7ols“from“Ò le®,Ž¡’"j½dynamically–U>loaded“at“ÒaddrŽŽŽŽ¦’ÒÒ"Êinfo‘U>filesŽŽŽ’j½®displa•Èãy›U>w“orking˜ les˜and˜targets˜in˜useŽŽŽŽ¡’ÒÒ"Êpath‘U>ÒdirsŽŽŽ’j½®add–U>Òdirs“®to“fronšÈãt“of“path“searc˜hed“forŽ¡’"j½executable–U>and“symÈãb7ol“ lesŽŽŽŽ¦’ÒÒ"Êshow‘U>pathŽŽŽ’j½®displašÈãy–U>executable“and“sym˜b7ol“ le“pathŽŽŽŽ¡’ÒÒ"Êinfo‘U>shareŽŽŽ’j½®list–U>names“of“shared“libraries“currenÈãtlyŽ¡’"j½loadedŽŽŽŽŽŽ ý¿× ’É­:„šŽ @(÷’É­:„šŽŽ ýÇ× ’ÛØÂSource‘U>FilesŽŸ ’ÛØÊdir‘U>ÒnamesŽŽŽ’&p¶®add–U>directory“Ònames“®to“fronÈãt“of“sourceŽŸ ’+p¶pathŽŽŽŽ©?ÿ’ÛØÊdirŽŽŽ’&p¶®clear–U>source“pathŽŽŽŽ¤ ’ÛØÊshow‘U>dirŽŽŽ’&p¶®sho•Èãw›U>curren“t˜source˜pathŽŽŽŽ¡¡’ÛØÊlistŽŽŽ’&p¶®shoÈãw–U>next“ten“lines“of“sourceŽŽŽŽ¡’ÛØÊlist‘U>-ŽŽŽ’&p¶®shoÈãw–U>previous“ten“linesŽŽŽŽ¡’ÛØÊlist‘U>ÒlinesŽŽŽ’&p¶®displaÈãy–U>source“surrounding“Òlines®,“sp7eci edŽ¡’+p¶as:ŽŽŽŽŸ€’äX#«[Ò leÊ:«]ÒnumŽŽŽ’&p¶®line›U>n•Èãum“b7er˜«[®in˜named˜ le«]ŽŽŽŽŸ ’äX#[Ò leÊ:«]ÒfunctionŽŽŽ’&p¶®b7eginning–U>of“function“«[®in“named“ le«]ŽŽŽŽŸ \q’äX#Ê+Òo ŽŽŽ’&p¶o –U>®lines“after“last“prinÈãtedŽŽŽŽ¡’äX#Ê-Òo ŽŽŽ’&p¶o –U>®lines“previous“to“last“prinÈãtedŽŽŽŽ¡’äX#Ê*Òaddr–ÁessŽŽŽ’&p¶®line–U>conÈãtaining“Òaddr–ÁessŽŽŽŽ¡’ÛØÊlist‘U>ÒfÊ,ÒlŽŽŽ’&p¶®from–U>line“Òf“®to“line“ÒlŽŽŽŽ¡’ÛØÊinfo–U>line“ÒnumŽŽŽ’&p¶®shoÈãw–U>starting,“ending“addresses“ofŽ¡’+p¶compiled–U>co7de“for“source“line“ÒnumŽŽŽŽ¦’ÛØÊinfo‘U>sourceŽŽŽ’&p¶®shošÈãw–U>name“of“curren˜t“source“ leŽŽŽŽ¡’ÛØÊinfo‘U>sourcesŽŽŽ’&p¶®list–U>all“source“ les“in“useŽŽŽŽ¡’ÛØÊforw‘U>Òr•–Áe“gexŽŽŽ’&p¶®searc•Èãh›U>follo“wing˜source˜lines˜for˜Òr•–Áe“gexŽŽŽŽ¡’ÛØÊrev‘U>Òr•–Áe“gexŽŽŽ’&p¶®searcÈãh–U>preceding“source“lines“for“Òr•–Áe“gexŽŽŽŽŸN8’ÛØÂGDB–U>under“GNU“EmacsŽŸ ’ÛØÊM-x‘U>gdbŽŽŽ’&p¶®run–U>GDB“under“EmacsŽŽŽŽ¡’ÛØÊC-h‘U>mŽŽŽ’&p¶®describš7e–U>GDB“mo˜deŽŽŽŽ¡’ÛØÊM-sŽŽŽ’&p¶®step–U>one“line“(Êstep®)ŽŽŽŽ© ’ÛØÊM-nŽŽŽ’&p¶®next–U>line“(Ênext®)ŽŽŽŽ¡’ÛØÊM-iŽŽŽ’&p¶®step–U>one“instruction“(Êstepi®)ŽŽŽŽ¦’ÛØÊC-c‘U>C-fŽŽŽ’&p¶® nish–U>currenšÈãt“stac˜k“frame“(Êfinish®)ŽŽŽŽ¡’ÛØÊM-cŽŽŽ’&p¶®con•Èãtin“ue‘U>(Êcont®)ŽŽŽŽ¡’ÛØÊM-uŽŽŽ’&p¶®up–U>Òar–Ág“®frames“(Êup®)ŽŽŽŽ¦’ÛØÊM-dŽŽŽ’&p¶®doÈãwn–U>Òar–Ág“®frames“(Êdown®)ŽŽŽŽ¡’ÛØÊC-x‘U>&ŽŽŽ’&p¶®cop•Èãy›U>n“um“b•7er˜from˜p“oinÈãt,˜insert˜at˜endŽŽŽŽ¡’ÛØÊC-x‘U>SPCŽŽŽ’&p¶®(in–U>source“ le)“set“break“at“p7oinÈãtŽŽŽŽŸ±Ç’ÛØÂGDB‘U>LicenseŽŸ ’ÛØÊshow‘U>copyingŽŽŽ’&p¶®DisplaÈãy–U>GNU“General“Public“LicenseŽŽŽŽ¡’ÛØÊshow‘U>warrantyŽŽŽ’&p¶®There–U>is“NO“W‘ÿ#ŽARRANTY“for“GDB.Ž¡’+p¶DisplašÈãy–U>full“no-w˜arran˜t˜y“statemen˜t.ŽŽŽŽŸA‰Ó’ç•Ì¯Cop•Î9yrigh“t‘±²žÑ´cŽŽŽ‘U>· ŽŽŽŽ‘ U?¯1991,–U>1992,“1993“F›ÿj«ree“Soft•Î9w“are–U>F˜oundation,“Inc.Ž¡’šnRoland›U>P•Î9esc“h˜(p1Æesc“h@cygn“us.com)Ž¡’á)&The–U>author“assumes“no“resp1ÆonsibilitšÎ9y“for“an˜y“errors“on“this“card.Ž©’ÛØThis–U>card“maÎ9y“b1Æe“freely“distributed“under“the“terms“of“the“GNUŽ¡’ÛØGeneral–U>Public“License.Ž¡’äŸ#Please–U>conšÎ9tribute“to“dev˜elopmen˜t“of“this“card“b˜y“annotating“it.Ž¦’ÛØGDB–U>itself“is“free“soft•Î9w“are;›U>y“ou˜are˜w“elcome˜to˜distribute˜copies˜ofŽ¡’ÛØit–U>under“the“terms“of“the“GNU“General“Public“License.‘There“isŽ¡’ÛØabsolutely–U>no“w•Î9arran“t“y–U>for“GDB.ŽŽŽŽŒø*‡ƒ’À;è õ À¡ìó2ÂÖN  cmbx12ó't}\Êcmti7óßCÊscmtt8óò"V cmbx10ó !",š cmsy10ó  b> cmmi10ó¹Aa¨cmr6óÙ“ Rcmr7óKñ`y cmr10ùSúßßßßgdb-4.13/gdb/coffread.c 666 34562 1752 165156 5606462324 13273 0ustar fnfcygnus/* Read coff symbol tables and convert to internal format, for GDB. Contributed by David D. Johnson, Brown University (ddj@cs.brown.edu). Copyright 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "breakpoint.h" #include "bfd.h" #include #include #include /* For time_t in libbfd.h. */ #include /* For time_t, if not in time.h. */ #include "libbfd.h" /* FIXME secret internal data from BFD */ #include "coff/internal.h" /* Internal format of COFF symbols in BFD */ #include "libcoff.h" /* FIXME secret internal data from BFD */ #include "symfile.h" #include "objfiles.h" #include "buildsym.h" #include "gdb-stabs.h" #include "stabsread.h" #include "complaints.h" struct coff_symfile_info { file_ptr min_lineno_offset; /* Where in file lowest line#s are */ file_ptr max_lineno_offset; /* 1+last byte of line#s in file */ asection *stabsect; /* Section pointer for .stab section */ asection *stabstrsect; /* Section pointer for .stab section */ asection *stabindexsect; /* Section pointer for .stab.index section */ char *stabstrdata; }; /* Translate an external name string into a user-visible name. */ #define EXTERNAL_NAME(string, abfd) \ (string[0] == bfd_get_symbol_leading_char(abfd)? string+1: string) /* To be an sdb debug type, type must have at least a basic or primary derived type. Using this rather than checking against T_NULL is said to prevent core dumps if we try to operate on Michael Bloom dbx-in-coff file. */ #define SDB_TYPE(type) (BTYPE(type) | (type & N_TMASK)) /* * Convert from an sdb register number to an internal gdb register number. * This should be defined in tm.h, if REGISTER_NAMES is not set up * to map one to one onto the sdb register numbers. */ #ifndef SDB_REG_TO_REGNUM # define SDB_REG_TO_REGNUM(value) (value) #endif /* Core address of start and end of text of current source file. This comes from a ".text" symbol where x_nlinno > 0. */ static CORE_ADDR cur_src_start_addr; static CORE_ADDR cur_src_end_addr; /* The addresses of the symbol table stream and number of symbols of the object file we are reading (as copied into core). */ static GDB_FILE *nlist_stream_global; static int nlist_nsyms_global; /* Vector of line number information. */ static struct linetable *line_vector; /* Index of next entry to go in line_vector_index. */ static int line_vector_index; /* Last line number recorded in the line vector. */ static int prev_line_number; /* Number of elements allocated for line_vector currently. */ static int line_vector_length; /* Pointers to scratch storage, used for reading raw symbols and auxents. */ static char *temp_sym; static char *temp_aux; /* Local variables that hold the shift and mask values for the COFF file that we are currently reading. These come back to us from BFD, and are referenced by their macro names, as well as internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF macros from ../internalcoff.h . */ static unsigned local_n_btmask; static unsigned local_n_btshft; static unsigned local_n_tmask; static unsigned local_n_tshift; #define N_BTMASK local_n_btmask #define N_BTSHFT local_n_btshft #define N_TMASK local_n_tmask #define N_TSHIFT local_n_tshift /* Local variables that hold the sizes in the file of various COFF structures. (We only need to know this to read them from the file -- BFD will then translate the data in them, into `internal_xxx' structs in the right byte order, alignment, etc.) */ static unsigned local_linesz; static unsigned local_symesz; static unsigned local_auxesz; /* Chain of typedefs of pointers to empty struct/union types. They are chained thru the SYMBOL_VALUE_CHAIN. */ static struct symbol *opaque_type_chain[HASHSIZE]; #if 0 /* The type of the function we are currently reading in. This is used by define_symbol to record the type of arguments to a function. */ struct type *in_function_type; #endif /* Complaints about various problems in the file being read */ struct complaint ef_complaint = {"Unmatched .ef symbol(s) ignored starting at symnum %d", 0, 0}; struct complaint bf_no_aux_complaint = {"`.bf' symbol %d has no aux entry", 0, 0}; struct complaint ef_no_aux_complaint = {"`.ef' symbol %d has no aux entry", 0, 0}; struct complaint lineno_complaint = {"Line number pointer %d lower than start of line numbers", 0, 0}; struct complaint unexpected_type_complaint = {"Unexpected type for symbol %s", 0, 0}; struct complaint bad_sclass_complaint = {"Bad n_sclass for symbol %s", 0, 0}; struct complaint misordered_blocks_complaint = {"Blocks out of order at address %x", 0, 0}; struct complaint tagndx_bad_complaint = {"Symbol table entry for %s has bad tagndx value", 0, 0}; struct complaint eb_complaint = {"Mismatched .eb symbol ignored starting at symnum %d", 0, 0}; /* Simplified internal version of coff symbol table information */ struct coff_symbol { char *c_name; int c_symnum; /* symbol number of this entry */ int c_naux; /* 0 if syment only, 1 if syment + auxent, etc */ long c_value; int c_sclass; int c_secnum; unsigned int c_type; }; static struct type * coff_read_struct_type PARAMS ((int, int, int)); static struct type * decode_base_type PARAMS ((struct coff_symbol *, unsigned int, union internal_auxent *)); static struct type * decode_type PARAMS ((struct coff_symbol *, unsigned int, union internal_auxent *)); static struct type * decode_function_type PARAMS ((struct coff_symbol *, unsigned int, union internal_auxent *)); static struct type * coff_read_enum_type PARAMS ((int, int, int)); static struct symbol * process_coff_symbol PARAMS ((struct coff_symbol *, union internal_auxent *, struct objfile *)); static void patch_opaque_types PARAMS ((struct symtab *)); static void patch_type PARAMS ((struct type *, struct type *)); static void enter_linenos PARAMS ((long, int, int)); static void free_linetab PARAMS ((void)); static int init_lineno PARAMS ((int, long, int)); static char * getsymname PARAMS ((struct internal_syment *)); static void free_stringtab PARAMS ((void)); static int init_stringtab PARAMS ((int, long)); static void read_one_sym PARAMS ((struct coff_symbol *, struct internal_syment *, union internal_auxent *)); static void read_coff_symtab PARAMS ((long, int, struct objfile *)); static void find_linenos PARAMS ((bfd *, sec_ptr, PTR)); static void coff_symfile_init PARAMS ((struct objfile *)); static void coff_new_init PARAMS ((struct objfile *)); static void coff_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int)); static void coff_symfile_finish PARAMS ((struct objfile *)); static void record_minimal_symbol PARAMS ((char *, CORE_ADDR, enum minimal_symbol_type, struct objfile *)); static void coff_end_symtab PARAMS ((struct objfile *)); static void complete_symtab PARAMS ((char *, CORE_ADDR, unsigned int)); static void coff_start_symtab PARAMS ((void)); static void coff_record_line PARAMS ((int, CORE_ADDR)); static struct type * coff_alloc_type PARAMS ((int)); static struct type ** coff_lookup_type PARAMS ((int)); static void coff_locate_sections PARAMS ((bfd *, asection *, PTR)); /* We are called once per section from coff_symfile_read. We need to examine each section we are passed, check to see if it is something we are interested in processing, and if so, stash away some access information for the section. FIXME: The section names should not be hardwired strings (what should they be? I don't think most object file formats have enough section flags to specify what kind of debug section it is -kingdon). */ static void coff_locate_sections (ignore_abfd, sectp, csip) bfd *ignore_abfd; asection *sectp; PTR csip; { register struct coff_symfile_info *csi; csi = (struct coff_symfile_info *) csip; if (STREQ (sectp->name, ".stab")) { csi->stabsect = sectp; } else if (STREQ (sectp->name, ".stabstr")) { csi->stabstrsect = sectp; } else if (STREQ (sectp->name, ".stab.index")) { csi->stabindexsect = sectp; } } /* Look up a coff type-number index. Return the address of the slot where the type for that index is stored. The type-number is in INDEX. This can be used for finding the type associated with that index or for associating a new type with the index. */ static struct type ** coff_lookup_type (index) register int index; { if (index >= type_vector_length) { int old_vector_length = type_vector_length; type_vector_length *= 2; if (index /* is still */ >= type_vector_length) { type_vector_length = index * 2; } type_vector = (struct type **) xrealloc ((char *) type_vector, type_vector_length * sizeof (struct type *)); memset (&type_vector[old_vector_length], 0, (type_vector_length - old_vector_length) * sizeof(struct type *)); } return &type_vector[index]; } /* Make sure there is a type allocated for type number index and return the type object. This can create an empty (zeroed) type object. */ static struct type * coff_alloc_type (index) int index; { register struct type **type_addr = coff_lookup_type (index); register struct type *type = *type_addr; /* If we are referring to a type not known at all yet, allocate an empty type for it. We will fill it in later if we find out how. */ if (type == NULL) { type = alloc_type (current_objfile); *type_addr = type; } return type; } /* Record a line number entry for line LINE at address PC. FIXME: Use record_line instead. */ static void coff_record_line (line, pc) int line; CORE_ADDR pc; { struct linetable_entry *e; /* Make sure line vector is big enough. */ if (line_vector_index + 2 >= line_vector_length) { line_vector_length *= 2; line_vector = (struct linetable *) xrealloc ((char *) line_vector, sizeof (struct linetable) + (line_vector_length * sizeof (struct linetable_entry))); } e = line_vector->item + line_vector_index++; e->line = line; e->pc = pc; } /* Start a new symtab for a new source file. This is called when a COFF ".file" symbol is seen; it indicates the start of data for one original source file. */ static void coff_start_symtab () { start_symtab ( /* We fill in the filename later. start_symtab puts this pointer into last_source file and in coff_end_symtab we assume we can free() it. FIXME: leaks memory. */ savestring ("", 0), /* We never know the directory name for COFF. */ NULL, /* The start address is irrelevant, since we set last_source_start_addr in coff_end_symtab. */ 0); /* Initialize the source file line number information for this file. */ if (line_vector) /* Unlikely, but maybe possible? */ free ((PTR)line_vector); line_vector_index = 0; line_vector_length = 1000; prev_line_number = -2; /* Force first line number to be explicit */ line_vector = (struct linetable *) xmalloc (sizeof (struct linetable) + line_vector_length * sizeof (struct linetable_entry)); } /* Save the vital information from when starting to read a file, for use when closing off the current file. NAME is the file name the symbols came from, START_ADDR is the first text address for the file, and SIZE is the number of bytes of text. */ static void complete_symtab (name, start_addr, size) char *name; CORE_ADDR start_addr; unsigned int size; { last_source_file = savestring (name, strlen (name)); cur_src_start_addr = start_addr; cur_src_end_addr = start_addr + size; if (current_objfile -> ei.entry_point >= cur_src_start_addr && current_objfile -> ei.entry_point < cur_src_end_addr) { current_objfile -> ei.entry_file_lowpc = cur_src_start_addr; current_objfile -> ei.entry_file_highpc = cur_src_end_addr; } } /* Finish the symbol definitions for one main source file, close off all the lexical contexts for that file (creating struct block's for them), then make the struct symtab for that file and put it in the list of all such. */ static void coff_end_symtab (objfile) struct objfile *objfile; { struct symtab *symtab; last_source_start_addr = cur_src_start_addr; /* For no good reason, this file stores the number of entries in a separate variable instead of in line_vector->nitems. Fix it. */ if (line_vector) line_vector->nitems = line_vector_index; /* For COFF, we only have one subfile, so we can just look at subfiles and not worry about there being other elements in the chain. We fill in various fields now because we didn't know them before (or because doing it now is simply an artifact of how this file used to be written). */ subfiles->line_vector = line_vector; subfiles->name = last_source_file; /* sort_pending is needed for amdcoff, at least. sort_linevec is needed for the SCO compiler. */ symtab = end_symtab (cur_src_end_addr, 1, 1, objfile, 0); if (symtab != NULL) free_named_symtabs (symtab->filename); /* Reinitialize for beginning of new file. */ line_vector = 0; line_vector_length = -1; last_source_file = NULL; } static void record_minimal_symbol (name, address, type, objfile) char *name; CORE_ADDR address; enum minimal_symbol_type type; struct objfile *objfile; { /* We don't want TDESC entry points in the minimal symbol table */ if (name[0] == '@') return; prim_record_minimal_symbol (savestring (name, strlen (name)), address, type, objfile); } /* coff_symfile_init () is the coff-specific initialization routine for reading symbols. It is passed a struct objfile which contains, among other things, the BFD for the file whose symbols are being read, and a slot for a pointer to "private data" which we fill with cookies and other treats for coff_symfile_read (). We will only be called if this is a COFF or COFF-like file. BFD handles figuring out the format of the file, and code in symtab.c uses BFD's determination to vector to us. The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */ static int text_bfd_scnum; static void coff_symfile_init (objfile) struct objfile *objfile; { asection *section; bfd *abfd = objfile->obfd; /* Allocate struct to keep track of stab reading. */ objfile->sym_stab_info = (PTR) xmmalloc (objfile -> md, sizeof (struct dbx_symfile_info)); memset ((PTR) objfile->sym_stab_info, 0, sizeof (struct dbx_symfile_info)); /* Allocate struct to keep track of the symfile */ objfile -> sym_private = xmmalloc (objfile -> md, sizeof (struct coff_symfile_info)); memset (objfile->sym_private, 0, sizeof (struct coff_symfile_info)); init_entry_point_info (objfile); /* Save the section number for the text section */ section = bfd_get_section_by_name (abfd, ".text"); if (section) text_bfd_scnum = section->index; else text_bfd_scnum = -1; } /* This function is called for every section; it finds the outer limits of the line table (minimum and maximum file offset) so that the mainline code can read the whole thing for efficiency. */ /* ARGSUSED */ static void find_linenos (abfd, asect, vpinfo) bfd *abfd; sec_ptr asect; PTR vpinfo; { struct coff_symfile_info *info; int size, count; file_ptr offset, maxoff; /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */ count = asect->lineno_count; /* End of warning */ if (count == 0) return; size = count * local_linesz; info = (struct coff_symfile_info *)vpinfo; /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */ offset = asect->line_filepos; /* End of warning */ if (offset < info->min_lineno_offset || info->min_lineno_offset == 0) info->min_lineno_offset = offset; maxoff = offset + size; if (maxoff > info->max_lineno_offset) info->max_lineno_offset = maxoff; } /* The BFD for this file -- only good while we're actively reading symbols into a psymtab or a symtab. */ static bfd *symfile_bfd; /* Read a symbol file, after initialization by coff_symfile_init. */ /* FIXME! Addr and Mainline are not used yet -- this will not work for shared libraries or add_file! */ /* ARGSUSED */ static void coff_symfile_read (objfile, section_offsets, mainline) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; { struct coff_symfile_info *info; struct dbx_symfile_info *dbxinfo; bfd *abfd = objfile->obfd; coff_data_type *cdata = coff_data (abfd); char *name = bfd_get_filename (abfd); int desc; register int val; int num_symbols; int symtab_offset; int stringtab_offset; struct cleanup *back_to; int stabsize, stabstrsize; info = (struct coff_symfile_info *) objfile -> sym_private; dbxinfo = (struct dbx_symfile_info *) objfile->sym_stab_info; symfile_bfd = abfd; /* Kludge for swap routines */ /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */ desc = fileno ((GDB_FILE *)(abfd->iostream)); /* File descriptor */ num_symbols = bfd_get_symcount (abfd); /* How many syms */ symtab_offset = cdata->sym_filepos; /* Symbol table file offset */ stringtab_offset = symtab_offset + /* String table file offset */ num_symbols * cdata->local_symesz; /* Set a few file-statics that give us specific information about the particular COFF file format we're reading. */ local_linesz = cdata->local_linesz; local_n_btmask = cdata->local_n_btmask; local_n_btshft = cdata->local_n_btshft; local_n_tmask = cdata->local_n_tmask; local_n_tshift = cdata->local_n_tshift; local_linesz = cdata->local_linesz; local_symesz = cdata->local_symesz; local_auxesz = cdata->local_auxesz; /* Allocate space for raw symbol and aux entries, based on their space requirements as reported by BFD. */ temp_sym = (char *) xmalloc (cdata->local_symesz + cdata->local_auxesz); temp_aux = temp_sym + cdata->local_symesz; back_to = make_cleanup (free_current_contents, &temp_sym); /* End of warning */ /* Read the line number table, all at once. */ info->min_lineno_offset = 0; info->max_lineno_offset = 0; bfd_map_over_sections (abfd, find_linenos, (PTR) info); make_cleanup (free_linetab, 0); val = init_lineno (desc, info->min_lineno_offset, info->max_lineno_offset - info->min_lineno_offset); if (val < 0) error ("\"%s\": error reading line numbers\n", name); /* Now read the string table, all at once. */ make_cleanup (free_stringtab, 0); val = init_stringtab (desc, stringtab_offset); if (val < 0) error ("\"%s\": can't get string table", name); init_minimal_symbol_collection (); make_cleanup (discard_minimal_symbols, 0); /* Now that the executable file is positioned at symbol table, process it and define symbols accordingly. */ read_coff_symtab ((long)symtab_offset, num_symbols, objfile); /* Sort symbols alphabetically within each block. */ { struct symtab *s; for (s = objfile -> symtabs; s != NULL; s = s -> next) { sort_symtab_syms (s); } } /* Install any minimal symbols that have been collected as the current minimal symbols for this objfile. */ install_minimal_symbols (objfile); bfd_map_over_sections (abfd, coff_locate_sections, (PTR) info); if (info->stabsect) { /* FIXME: dubious. Why can't we use something normal like bfd_get_section_contents? */ fseek ((GDB_FILE *) abfd->iostream, abfd->where, 0); stabsize = bfd_section_size (abfd, info->stabsect); stabstrsize = bfd_section_size (abfd, info->stabstrsect); coffstab_build_psymtabs (objfile, section_offsets, mainline, info->stabsect->filepos, stabsize, info->stabstrsect->filepos, stabstrsize); } do_cleanups (back_to); } static void coff_new_init (ignore) struct objfile *ignore; { } /* Perform any local cleanups required when we are done with a particular objfile. I.E, we are in the process of discarding all symbol information for an objfile, freeing up all memory held for it, and unlinking the objfile struct from the global list of known objfiles. */ static void coff_symfile_finish (objfile) struct objfile *objfile; { if (objfile -> sym_private != NULL) { mfree (objfile -> md, objfile -> sym_private); } } /* Given pointers to a symbol table in coff style exec file, analyze them and create struct symtab's describing the symbols. NSYMS is the number of symbols in the symbol table. We read them one at a time using read_one_sym (). */ static void read_coff_symtab (symtab_offset, nsyms, objfile) long symtab_offset; int nsyms; struct objfile *objfile; { GDB_FILE *stream; register struct context_stack *new; struct coff_symbol coff_symbol; register struct coff_symbol *cs = &coff_symbol; static struct internal_syment main_sym; static union internal_auxent main_aux; struct coff_symbol fcn_cs_saved; static struct internal_syment fcn_sym_saved; static union internal_auxent fcn_aux_saved; struct symtab *s; /* A .file is open. */ int in_source_file = 0; int next_file_symnum = -1; /* Name of the current file. */ char *filestring = ""; int depth = 0; int fcn_first_line = 0; int fcn_last_line = 0; int fcn_start_addr = 0; long fcn_line_ptr = 0; int val; stream = bfd_cache_lookup(objfile->obfd); if (!stream) perror_with_name(objfile->name); /* Work around a stdio bug in SunOS4.1.1 (this makes me nervous.... it's hard to know I've really worked around it. The fix should be harmless, anyway). The symptom of the bug is that the first fread (in read_one_sym), will (in my example) actually get data from file offset 268, when the fseek was to 264 (and ftell shows 264). This causes all hell to break loose. I was unable to reproduce this on a short test program which operated on the same file, performing (I think) the same sequence of operations. It stopped happening when I put in this rewind(). FIXME: Find out if this has been reported to Sun, whether it has been fixed in a later release, etc. */ rewind (stream); /* Position to read the symbol table. */ val = fseek (stream, (long)symtab_offset, 0); if (val < 0) perror_with_name (objfile->name); current_objfile = objfile; nlist_stream_global = stream; nlist_nsyms_global = nsyms; last_source_file = NULL; memset (opaque_type_chain, 0, sizeof opaque_type_chain); if (type_vector) /* Get rid of previous one */ free ((PTR)type_vector); type_vector_length = 160; type_vector = (struct type **) xmalloc (type_vector_length * sizeof (struct type *)); memset (type_vector, 0, type_vector_length * sizeof (struct type *)); coff_start_symtab (); symnum = 0; while (symnum < nsyms) { QUIT; /* Make this command interruptable. */ read_one_sym (cs, &main_sym, &main_aux); #ifdef SEM temp_sem_val = cs->c_name[0] << 24 | cs->c_name[1] << 16 | cs->c_name[2] << 8 | cs->c_name[3]; if (int_sem_val == temp_sem_val) last_coffsem = (int) strtol (cs->c_name+4, (char **) NULL, 10); #endif if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE) { if (last_source_file) coff_end_symtab (objfile); coff_start_symtab (); complete_symtab ("_globals_", 0, 0); /* done with all files, everything from here on out is globals */ } /* Special case for file with type declarations only, no text. */ if (!last_source_file && SDB_TYPE (cs->c_type) && cs->c_secnum == N_DEBUG) complete_symtab (filestring, 0, 0); /* Typedefs should not be treated as symbol definitions. */ if (ISFCN (cs->c_type) && cs->c_sclass != C_TPDEF) { /* Record all functions -- external and static -- in minsyms. */ record_minimal_symbol (cs->c_name, cs->c_value, mst_text, objfile); fcn_line_ptr = main_aux.x_sym.x_fcnary.x_fcn.x_lnnoptr; fcn_start_addr = cs->c_value; fcn_cs_saved = *cs; fcn_sym_saved = main_sym; fcn_aux_saved = main_aux; continue; } switch (cs->c_sclass) { case C_EFCN: case C_EXTDEF: case C_ULABEL: case C_USTATIC: case C_LINE: case C_ALIAS: case C_HIDDEN: complain (&bad_sclass_complaint, cs->c_name); break; case C_FILE: /* * c_value field contains symnum of next .file entry in table * or symnum of first global after last .file. */ next_file_symnum = cs->c_value; if (cs->c_naux > 0) filestring = coff_getfilename (&main_aux); else filestring = ""; /* * Complete symbol table for last object file * containing debugging information. */ if (last_source_file) { coff_end_symtab (objfile); coff_start_symtab (); } in_source_file = 1; break; case C_STAT: if (cs->c_name[0] == '.') { if (STREQ (cs->c_name, ".text")) { /* FIXME: don't wire in ".text" as section name or symbol name! */ /* Check for in_source_file deals with case of a file with debugging symbols followed by a later file with no symbols. */ if (in_source_file) complete_symtab (filestring, cs->c_value, main_aux.x_scn.x_scnlen); in_source_file = 0; } /* flush rest of '.' symbols */ break; } else if (!SDB_TYPE (cs->c_type) && cs->c_name[0] == 'L' && (strncmp (cs->c_name, "LI%", 3) == 0 || strncmp (cs->c_name, "LF%", 3) == 0 || strncmp (cs->c_name,"LC%",3) == 0 || strncmp (cs->c_name,"LP%",3) == 0 || strncmp (cs->c_name,"LPB%",4) == 0 || strncmp (cs->c_name,"LBB%",4) == 0 || strncmp (cs->c_name,"LBE%",4) == 0 || strncmp (cs->c_name,"LPBX%",5) == 0)) /* At least on a 3b1, gcc generates swbeg and string labels that look like this. Ignore them. */ break; /* fall in for static symbols that don't start with '.' */ case C_EXT: /* Record it in the minimal symbols regardless of SDB_TYPE. This parallels what we do for other debug formats, and probably is needed to make print_address_symbolic work right without the "set fast-symbolic-addr off" kludge. */ /* FIXME: This bogusly assumes the sections are in a certain order, text (SEC_CODE) sections are before data sections, etc. */ if (cs->c_secnum <= text_bfd_scnum+1) { /* text or absolute. (FIXME, should use mst_abs if absolute). */ record_minimal_symbol (cs->c_name, cs->c_value, cs->c_sclass == C_STAT ? mst_file_text : mst_text, objfile); } else { record_minimal_symbol (cs->c_name, cs->c_value, cs->c_sclass == C_STAT ? mst_file_data : mst_data, objfile); } if (SDB_TYPE (cs->c_type)) process_coff_symbol (cs, &main_aux, objfile); break; case C_FCN: if (STREQ (cs->c_name, ".bf")) { within_function = 1; /* value contains address of first non-init type code */ /* main_aux.x_sym.x_misc.x_lnsz.x_lnno contains line number of '{' } */ if (cs->c_naux != 1) complain (&bf_no_aux_complaint, cs->c_symnum); fcn_first_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno; /* Might want to check that locals are 0 and context_stack_depth is zero, and complain if not. */ depth = 0; new = push_context (depth, fcn_start_addr); fcn_cs_saved.c_name = getsymname (&fcn_sym_saved); new->name = process_coff_symbol (&fcn_cs_saved, &fcn_aux_saved, objfile); } else if (STREQ (cs->c_name, ".ef")) { /* the value of .ef is the address of epilogue code; not useful for gdb. */ /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno contains number of lines to '}' */ new = pop_context (); /* Stack must be empty now. */ if (context_stack_depth > 0 || new == NULL) { complain (&ef_complaint, cs->c_symnum); within_function = 0; break; } if (cs->c_naux != 1) { complain (&ef_no_aux_complaint, cs->c_symnum); fcn_last_line = 0x7FFFFFFF; } else { fcn_last_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno; } enter_linenos (fcn_line_ptr, fcn_first_line, fcn_last_line); finish_block (new->name, &local_symbols, new->old_blocks, new->start_addr, #if defined (FUNCTION_EPILOGUE_SIZE) /* This macro should be defined only on machines where the fcn_aux_saved.x_sym.x_misc.x_fsize field is always zero. So use the .bf record information that points to the epilogue and add the size of the epilogue. */ cs->c_value + FUNCTION_EPILOGUE_SIZE, #else fcn_cs_saved.c_value + fcn_aux_saved.x_sym.x_misc.x_fsize, #endif objfile ); within_function = 0; } break; case C_BLOCK: if (STREQ (cs->c_name, ".bb")) { push_context (++depth, cs->c_value); } else if (STREQ (cs->c_name, ".eb")) { new = pop_context (); if (depth-- != new->depth) { complain (&eb_complaint, symnum); break; } if (local_symbols && context_stack_depth > 0) { /* Make a block for the local symbols within. */ finish_block (0, &local_symbols, new->old_blocks, new->start_addr, cs->c_value, objfile); } /* Now pop locals of block just finished. */ local_symbols = new->locals; } break; default: process_coff_symbol (cs, &main_aux, objfile); break; } } if (last_source_file) coff_end_symtab (objfile); /* Patch up any opaque types (references to types that are not defined in the file where they are referenced, e.g. "struct foo *bar"). */ ALL_OBJFILE_SYMTABS (objfile, s) patch_opaque_types (s); current_objfile = NULL; } /* Routines for reading headers and symbols from executable. */ #ifdef FIXME /* Move these XXXMAGIC symbol defns into BFD! */ /* Read COFF file header, check magic number, and return number of symbols. */ read_file_hdr (chan, file_hdr) int chan; FILHDR *file_hdr; { lseek (chan, 0L, 0); if (myread (chan, (char *)file_hdr, FILHSZ) < 0) return -1; switch (file_hdr->f_magic) { #ifdef MC68MAGIC case MC68MAGIC: #endif #ifdef NS32GMAGIC case NS32GMAGIC: case NS32SMAGIC: #endif #ifdef I386MAGIC case I386MAGIC: #endif #ifdef CLIPPERMAGIC case CLIPPERMAGIC: #endif #if defined (MC68KWRMAGIC) \ && (!defined (MC68MAGIC) || MC68KWRMAGIC != MC68MAGIC) case MC68KWRMAGIC: #endif #ifdef MC68KROMAGIC case MC68KROMAGIC: case MC68KPGMAGIC: #endif #ifdef MC88DGMAGIC case MC88DGMAGIC: #endif #ifdef MC88MAGIC case MC88MAGIC: #endif #ifdef I960ROMAGIC case I960ROMAGIC: /* Intel 960 */ #endif #ifdef I960RWMAGIC case I960RWMAGIC: /* Intel 960 */ #endif return file_hdr->f_nsyms; default: #ifdef BADMAG if (BADMAG(file_hdr)) return -1; else return file_hdr->f_nsyms; #else return -1; #endif } } #endif /* Read the next symbol, swap it, and return it in both internal_syment form, and coff_symbol form. Also return its first auxent, if any, in internal_auxent form, and skip any other auxents. */ static void read_one_sym (cs, sym, aux) register struct coff_symbol *cs; register struct internal_syment *sym; register union internal_auxent *aux; { int i; cs->c_symnum = symnum; fread (temp_sym, local_symesz, 1, nlist_stream_global); bfd_coff_swap_sym_in (symfile_bfd, temp_sym, (char *)sym); cs->c_naux = sym->n_numaux & 0xff; if (cs->c_naux >= 1) { fread (temp_aux, local_auxesz, 1, nlist_stream_global); bfd_coff_swap_aux_in (symfile_bfd, temp_aux, sym->n_type, sym->n_sclass, 0, cs->c_naux, (char *)aux); /* If more than one aux entry, read past it (only the first aux is important). */ for (i = 1; i < cs->c_naux; i++) fread (temp_aux, local_auxesz, 1, nlist_stream_global); } cs->c_name = getsymname (sym); cs->c_value = sym->n_value; cs->c_sclass = (sym->n_sclass & 0xff); cs->c_secnum = sym->n_scnum; cs->c_type = (unsigned) sym->n_type; if (!SDB_TYPE (cs->c_type)) cs->c_type = 0; symnum += 1 + cs->c_naux; } /* Support for string table handling */ static char *stringtab = NULL; static int init_stringtab (chan, offset) int chan; long offset; { long length; int val; unsigned char lengthbuf[4]; free_stringtab (); /* If the file is stripped, the offset might be zero, indicating no string table. Just return with `stringtab' set to null. */ if (offset == 0) return 0; if (lseek (chan, offset, 0) < 0) return -1; val = myread (chan, (char *)lengthbuf, sizeof lengthbuf); length = bfd_h_get_32 (symfile_bfd, lengthbuf); /* If no string table is needed, then the file may end immediately after the symbols. Just return with `stringtab' set to null. */ if (val != sizeof lengthbuf || length < sizeof lengthbuf) return 0; stringtab = (char *) xmalloc (length); memcpy (stringtab, &length, sizeof length); if (length == sizeof length) /* Empty table -- just the count */ return 0; val = myread (chan, stringtab + sizeof lengthbuf, length - sizeof lengthbuf); if (val != length - sizeof lengthbuf || stringtab[length - 1] != '\0') return -1; return 0; } static void free_stringtab () { if (stringtab) free (stringtab); stringtab = NULL; } static char * getsymname (symbol_entry) struct internal_syment *symbol_entry; { static char buffer[SYMNMLEN+1]; char *result; if (symbol_entry->_n._n_n._n_zeroes == 0) { result = stringtab + symbol_entry->_n._n_n._n_offset; } else { strncpy (buffer, symbol_entry->_n._n_name, SYMNMLEN); buffer[SYMNMLEN] = '\0'; result = buffer; } return result; } /* Extract the file name from the aux entry of a C_FILE symbol. Return only the last component of the name. Result is in static storage and is only good for temporary use. */ char * coff_getfilename (aux_entry) union internal_auxent *aux_entry; { static char buffer[BUFSIZ]; register char *temp; char *result; if (aux_entry->x_file.x_n.x_zeroes == 0) strcpy (buffer, stringtab + aux_entry->x_file.x_n.x_offset); else { strncpy (buffer, aux_entry->x_file.x_fname, FILNMLEN); buffer[FILNMLEN] = '\0'; } result = buffer; if ((temp = strrchr (result, '/')) != NULL) result = temp + 1; return (result); } /* Support for line number handling */ static char *linetab = NULL; static long linetab_offset; static unsigned long linetab_size; /* Read in all the line numbers for fast lookups later. Leave them in external (unswapped) format in memory; we'll swap them as we enter them into GDB's data structures. */ static int init_lineno (chan, offset, size) int chan; long offset; int size; { int val; linetab_offset = offset; linetab_size = size; free_linetab(); if (size == 0) return 0; if (lseek (chan, offset, 0) < 0) return -1; /* Allocate the desired table, plus a sentinel */ linetab = (char *) xmalloc (size + local_linesz); val = myread (chan, linetab, size); if (val != size) return -1; /* Terminate it with an all-zero sentinel record */ memset (linetab + size, 0, local_linesz); return 0; } static void free_linetab () { if (linetab) free (linetab); linetab = NULL; } #if !defined (L_LNNO32) #define L_LNNO32(lp) ((lp)->l_lnno) #endif static void enter_linenos (file_offset, first_line, last_line) long file_offset; register int first_line; register int last_line; { register char *rawptr; struct internal_lineno lptr; if (file_offset < linetab_offset) { complain (&lineno_complaint, file_offset); if (file_offset > linetab_size) /* Too big to be an offset? */ return; file_offset += linetab_offset; /* Try reading at that linetab offset */ } rawptr = &linetab[file_offset - linetab_offset]; /* skip first line entry for each function */ rawptr += local_linesz; /* line numbers start at one for the first line of the function */ first_line--; for (;;) { bfd_coff_swap_lineno_in (symfile_bfd, rawptr, &lptr); rawptr += local_linesz; /* The next function, or the sentinel, will have L_LNNO32 zero; we exit. */ if (L_LNNO32 (&lptr) && L_LNNO32 (&lptr) <= last_line) coff_record_line (first_line + L_LNNO32 (&lptr), lptr.l_addr.l_paddr); else break; } } static void patch_type (type, real_type) struct type *type; struct type *real_type; { register struct type *target = TYPE_TARGET_TYPE (type); register struct type *real_target = TYPE_TARGET_TYPE (real_type); int field_size = TYPE_NFIELDS (real_target) * sizeof (struct field); TYPE_LENGTH (target) = TYPE_LENGTH (real_target); TYPE_NFIELDS (target) = TYPE_NFIELDS (real_target); TYPE_FIELDS (target) = (struct field *) TYPE_ALLOC (target, field_size); memcpy (TYPE_FIELDS (target), TYPE_FIELDS (real_target), field_size); if (TYPE_NAME (real_target)) { if (TYPE_NAME (target)) free (TYPE_NAME (target)); TYPE_NAME (target) = concat (TYPE_NAME (real_target), NULL); } } /* Patch up all appropriate typedef symbols in the opaque_type_chains so that they can be used to print out opaque data structures properly. */ static void patch_opaque_types (s) struct symtab *s; { register struct block *b; register int i; register struct symbol *real_sym; /* Go through the per-file symbols only */ b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK); for (i = BLOCK_NSYMS (b) - 1; i >= 0; i--) { /* Find completed typedefs to use to fix opaque ones. Remove syms from the chain when their types are stored, but search the whole chain, as there may be several syms from different files with the same name. */ real_sym = BLOCK_SYM (b, i); if (SYMBOL_CLASS (real_sym) == LOC_TYPEDEF && SYMBOL_NAMESPACE (real_sym) == VAR_NAMESPACE && TYPE_CODE (SYMBOL_TYPE (real_sym)) == TYPE_CODE_PTR && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (real_sym))) != 0) { register char *name = SYMBOL_NAME (real_sym); register int hash = hashname (name); register struct symbol *sym, *prev; prev = 0; for (sym = opaque_type_chain[hash]; sym;) { if (name[0] == SYMBOL_NAME (sym)[0] && STREQ (name + 1, SYMBOL_NAME (sym) + 1)) { if (prev) { SYMBOL_VALUE_CHAIN (prev) = SYMBOL_VALUE_CHAIN (sym); } else { opaque_type_chain[hash] = SYMBOL_VALUE_CHAIN (sym); } patch_type (SYMBOL_TYPE (sym), SYMBOL_TYPE (real_sym)); if (prev) { sym = SYMBOL_VALUE_CHAIN (prev); } else { sym = opaque_type_chain[hash]; } } else { prev = sym; sym = SYMBOL_VALUE_CHAIN (sym); } } } } } static struct symbol * process_coff_symbol (cs, aux, objfile) register struct coff_symbol *cs; register union internal_auxent *aux; struct objfile *objfile; { register struct symbol *sym = (struct symbol *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct symbol)); char *name; memset (sym, 0, sizeof (struct symbol)); name = cs->c_name; name = EXTERNAL_NAME (name, objfile->obfd); SYMBOL_NAME (sym) = obstack_copy0 (&objfile->symbol_obstack, name, strlen (name)); /* default assumptions */ SYMBOL_VALUE (sym) = cs->c_value; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; if (ISFCN (cs->c_type)) { #if 0 /* FIXME: This has NOT been tested. The DBX version has.. */ /* Generate a template for the type of this function. The types of the arguments will be added as we read the symbol table. */ struct type *new = (struct type *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct type)); memcpy (new, lookup_function_type (decode_function_type (cs, cs->c_type, aux)), sizeof(struct type)); SYMBOL_TYPE (sym) = new; in_function_type = SYMBOL_TYPE(sym); #else SYMBOL_TYPE(sym) = lookup_function_type (decode_function_type (cs, cs->c_type, aux)); #endif SYMBOL_CLASS (sym) = LOC_BLOCK; if (cs->c_sclass == C_STAT) add_symbol_to_list (sym, &file_symbols); else if (cs->c_sclass == C_EXT) add_symbol_to_list (sym, &global_symbols); } else { SYMBOL_TYPE (sym) = decode_type (cs, cs->c_type, aux); switch (cs->c_sclass) { case C_NULL: break; case C_AUTO: SYMBOL_CLASS (sym) = LOC_LOCAL; add_symbol_to_list (sym, &local_symbols); break; case C_EXT: SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value; add_symbol_to_list (sym, &global_symbols); break; case C_STAT: SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_VALUE_ADDRESS (sym) = (CORE_ADDR) cs->c_value; if (within_function) { /* Static symbol of local scope */ add_symbol_to_list (sym, &local_symbols); } else { /* Static symbol at top level of file */ add_symbol_to_list (sym, &file_symbols); } break; #ifdef C_GLBLREG /* AMD coff */ case C_GLBLREG: #endif case C_REG: SYMBOL_CLASS (sym) = LOC_REGISTER; SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM(cs->c_value); add_symbol_to_list (sym, &local_symbols); break; case C_LABEL: break; case C_ARG: SYMBOL_CLASS (sym) = LOC_ARG; #if 0 /* FIXME: This has not been tested. */ /* Add parameter to function. */ add_param_to_type(&in_function_type,sym); #endif add_symbol_to_list (sym, &local_symbols); #if !defined (BELIEVE_PCC_PROMOTION) && (TARGET_BYTE_ORDER == BIG_ENDIAN) { /* If PCC says a parameter is a short or a char, aligned on an int boundary, realign it to the "little end" of the int. */ struct type *temptype; temptype = lookup_fundamental_type (current_objfile, FT_INTEGER); if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (temptype) && TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT && 0 == SYMBOL_VALUE (sym) % TYPE_LENGTH (temptype)) { SYMBOL_VALUE (sym) += TYPE_LENGTH (temptype) - TYPE_LENGTH (SYMBOL_TYPE (sym)); } } #endif break; case C_REGPARM: SYMBOL_CLASS (sym) = LOC_REGPARM; SYMBOL_VALUE (sym) = SDB_REG_TO_REGNUM(cs->c_value); add_symbol_to_list (sym, &local_symbols); #if !defined (BELIEVE_PCC_PROMOTION) /* FIXME: This should retain the current type, since it's just a register value. gnu@adobe, 26Feb93 */ { /* If PCC says a parameter is a short or a char, it is really an int. */ struct type *temptype; temptype = lookup_fundamental_type (current_objfile, FT_INTEGER); if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (temptype) && TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT) { SYMBOL_TYPE (sym) = (TYPE_UNSIGNED (SYMBOL_TYPE (sym)) ? lookup_fundamental_type (current_objfile, FT_UNSIGNED_INTEGER) : temptype); } } #endif break; case C_TPDEF: SYMBOL_CLASS (sym) = LOC_TYPEDEF; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; /* If type has no name, give it one */ if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0) { if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR || TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_FUNC) { /* If we are giving a name to a type such as "pointer to foo" or "function returning foo", we better not set the TYPE_NAME. If the program contains "typedef char *caddr_t;", we don't want all variables of type char * to print as caddr_t. This is not just a consequence of GDB's type management; CC and GCC (at least through version 2.4) both output variables of either type char * or caddr_t with the type refering to the C_TPDEF symbol for caddr_t. If a future compiler cleans this up it GDB is not ready for it yet, but if it becomes ready we somehow need to disable this check (without breaking the PCC/GCC2.4 case). Sigh. Fortunately, this check seems not to be necessary for anything except pointers or functions. */ ; } else TYPE_NAME (SYMBOL_TYPE (sym)) = concat (SYMBOL_NAME (sym), NULL); } /* Keep track of any type which points to empty structured type, so it can be filled from a definition from another file. A simple forward reference (TYPE_CODE_UNDEF) is not an empty structured type, though; the forward references work themselves out via the magic of coff_lookup_type. */ if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR && TYPE_LENGTH (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) == 0 && TYPE_CODE (TYPE_TARGET_TYPE (SYMBOL_TYPE (sym))) != TYPE_CODE_UNDEF) { register int i = hashname (SYMBOL_NAME (sym)); SYMBOL_VALUE_CHAIN (sym) = opaque_type_chain[i]; opaque_type_chain[i] = sym; } add_symbol_to_list (sym, &file_symbols); break; case C_STRTAG: case C_UNTAG: case C_ENTAG: SYMBOL_CLASS (sym) = LOC_TYPEDEF; SYMBOL_NAMESPACE (sym) = STRUCT_NAMESPACE; /* Some compilers try to be helpful by inventing "fake" names for anonymous enums, structures, and unions, like "~0fake" or ".0fake". Thanks, but no thanks... */ if (TYPE_TAG_NAME (SYMBOL_TYPE (sym)) == 0) if (SYMBOL_NAME(sym) != NULL && *SYMBOL_NAME(sym) != '~' && *SYMBOL_NAME(sym) != '.') TYPE_TAG_NAME (SYMBOL_TYPE (sym)) = concat (SYMBOL_NAME (sym), NULL); add_symbol_to_list (sym, &file_symbols); break; default: break; } } return sym; } /* Decode a coff type specifier; return the type that is meant. */ static struct type * decode_type (cs, c_type, aux) register struct coff_symbol *cs; unsigned int c_type; register union internal_auxent *aux; { register struct type *type = 0; unsigned int new_c_type; if (c_type & ~N_BTMASK) { new_c_type = DECREF (c_type); if (ISPTR (c_type)) { type = decode_type (cs, new_c_type, aux); type = lookup_pointer_type (type); } else if (ISFCN (c_type)) { type = decode_type (cs, new_c_type, aux); type = lookup_function_type (type); } else if (ISARY (c_type)) { int i, n; register unsigned short *dim; struct type *base_type, *index_type, *range_type; /* Define an array type. */ /* auxent refers to array, not base type */ if (aux->x_sym.x_tagndx.l == 0) cs->c_naux = 0; /* shift the indices down */ dim = &aux->x_sym.x_fcnary.x_ary.x_dimen[0]; i = 1; n = dim[0]; for (i = 0; *dim && i < DIMNUM - 1; i++, dim++) *dim = *(dim + 1); *dim = 0; base_type = decode_type (cs, new_c_type, aux); index_type = lookup_fundamental_type (current_objfile, FT_INTEGER); range_type = create_range_type ((struct type *) NULL, index_type, 0, n - 1); type = create_array_type ((struct type *) NULL, base_type, range_type); } return type; } /* Reference to existing type. This only occurs with the struct, union, and enum types. EPI a29k coff fakes us out by producing aux entries with a nonzero x_tagndx for definitions of structs, unions, and enums, so we have to check the c_sclass field. SCO 3.2v4 cc gets confused with pointers to pointers to defined structs, and generates negative x_tagndx fields. */ if (cs->c_naux > 0 && aux->x_sym.x_tagndx.l != 0) { if (cs->c_sclass != C_STRTAG && cs->c_sclass != C_UNTAG && cs->c_sclass != C_ENTAG && aux->x_sym.x_tagndx.l >= 0) { type = coff_alloc_type (aux->x_sym.x_tagndx.l); return type; } else { complain (&tagndx_bad_complaint, cs->c_name); /* And fall through to decode_base_type... */ } } return decode_base_type (cs, BTYPE (c_type), aux); } /* Decode a coff type specifier for function definition; return the type that the function returns. */ static struct type * decode_function_type (cs, c_type, aux) register struct coff_symbol *cs; unsigned int c_type; register union internal_auxent *aux; { if (aux->x_sym.x_tagndx.l == 0) cs->c_naux = 0; /* auxent refers to function, not base type */ return decode_type (cs, DECREF (c_type), aux); } /* basic C types */ static struct type * decode_base_type (cs, c_type, aux) register struct coff_symbol *cs; unsigned int c_type; register union internal_auxent *aux; { struct type *type; switch (c_type) { case T_NULL: /* shows up with "void (*foo)();" structure members */ return lookup_fundamental_type (current_objfile, FT_VOID); #if 0 /* DGUX actually defines both T_ARG and T_VOID to the same value. */ #ifdef T_ARG case T_ARG: /* Shows up in DGUX, I think. Not sure where. */ return lookup_fundamental_type (current_objfile, FT_VOID); /* shouldn't show up here */ #endif #endif /* 0 */ #ifdef T_VOID case T_VOID: /* Intel 960 COFF has this symbol and meaning. */ return lookup_fundamental_type (current_objfile, FT_VOID); #endif case T_CHAR: return lookup_fundamental_type (current_objfile, FT_CHAR); case T_SHORT: return lookup_fundamental_type (current_objfile, FT_SHORT); case T_INT: return lookup_fundamental_type (current_objfile, FT_INTEGER); case T_LONG: return lookup_fundamental_type (current_objfile, FT_LONG); case T_FLOAT: return lookup_fundamental_type (current_objfile, FT_FLOAT); case T_DOUBLE: return lookup_fundamental_type (current_objfile, FT_DBL_PREC_FLOAT); case T_STRUCT: if (cs->c_naux != 1) { /* anonymous structure type */ type = coff_alloc_type (cs->c_symnum); TYPE_CODE (type) = TYPE_CODE_STRUCT; TYPE_NAME (type) = NULL; /* This used to set the tag to "". But I think setting it to NULL is right, and the printing code can print it as "struct {...}". */ TYPE_TAG_NAME (type) = NULL; INIT_CPLUS_SPECIFIC(type); TYPE_LENGTH (type) = 0; TYPE_FIELDS (type) = 0; TYPE_NFIELDS (type) = 0; } else { type = coff_read_struct_type (cs->c_symnum, aux->x_sym.x_misc.x_lnsz.x_size, aux->x_sym.x_fcnary.x_fcn.x_endndx.l); } return type; case T_UNION: if (cs->c_naux != 1) { /* anonymous union type */ type = coff_alloc_type (cs->c_symnum); TYPE_NAME (type) = NULL; /* This used to set the tag to "". But I think setting it to NULL is right, and the printing code can print it as "union {...}". */ TYPE_TAG_NAME (type) = NULL; INIT_CPLUS_SPECIFIC(type); TYPE_LENGTH (type) = 0; TYPE_FIELDS (type) = 0; TYPE_NFIELDS (type) = 0; } else { type = coff_read_struct_type (cs->c_symnum, aux->x_sym.x_misc.x_lnsz.x_size, aux->x_sym.x_fcnary.x_fcn.x_endndx.l); } TYPE_CODE (type) = TYPE_CODE_UNION; return type; case T_ENUM: if (cs->c_naux != 1) { /* anonymous enum type */ type = coff_alloc_type (cs->c_symnum); TYPE_CODE (type) = TYPE_CODE_ENUM; TYPE_NAME (type) = NULL; /* This used to set the tag to "". But I think setting it to NULL is right, and the printing code can print it as "enum {...}". */ TYPE_TAG_NAME (type) = NULL; TYPE_LENGTH (type) = 0; TYPE_FIELDS (type) = 0; TYPE_NFIELDS(type) = 0; } else { type = coff_read_enum_type (cs->c_symnum, aux->x_sym.x_misc.x_lnsz.x_size, aux->x_sym.x_fcnary.x_fcn.x_endndx.l); } return type; case T_MOE: /* shouldn't show up here */ break; case T_UCHAR: return lookup_fundamental_type (current_objfile, FT_UNSIGNED_CHAR); case T_USHORT: return lookup_fundamental_type (current_objfile, FT_UNSIGNED_SHORT); case T_UINT: return lookup_fundamental_type (current_objfile, FT_UNSIGNED_INTEGER); case T_ULONG: return lookup_fundamental_type (current_objfile, FT_UNSIGNED_LONG); } complain (&unexpected_type_complaint, cs->c_name); return lookup_fundamental_type (current_objfile, FT_VOID); } /* This page contains subroutines of read_type. */ /* Read the description of a structure (or union type) and return an object describing the type. */ static struct type * coff_read_struct_type (index, length, lastsym) int index; int length; int lastsym; { struct nextfield { struct nextfield *next; struct field field; }; register struct type *type; register struct nextfield *list = 0; struct nextfield *new; int nfields = 0; register int n; char *name; struct coff_symbol member_sym; register struct coff_symbol *ms = &member_sym; struct internal_syment sub_sym; union internal_auxent sub_aux; int done = 0; type = coff_alloc_type (index); TYPE_CODE (type) = TYPE_CODE_STRUCT; INIT_CPLUS_SPECIFIC(type); TYPE_LENGTH (type) = length; while (!done && symnum < lastsym && symnum < nlist_nsyms_global) { read_one_sym (ms, &sub_sym, &sub_aux); name = ms->c_name; name = EXTERNAL_NAME (name, current_objfile->obfd); switch (ms->c_sclass) { case C_MOS: case C_MOU: /* Get space to record the next field's data. */ new = (struct nextfield *) alloca (sizeof (struct nextfield)); new->next = list; list = new; /* Save the data. */ list->field.name = savestring (name, strlen (name)); list->field.type = decode_type (ms, ms->c_type, &sub_aux); list->field.bitpos = 8 * ms->c_value; list->field.bitsize = 0; nfields++; break; case C_FIELD: /* Get space to record the next field's data. */ new = (struct nextfield *) alloca (sizeof (struct nextfield)); new->next = list; list = new; /* Save the data. */ list->field.name = savestring (name, strlen (name)); list->field.type = decode_type (ms, ms->c_type, &sub_aux); list->field.bitpos = ms->c_value; list->field.bitsize = sub_aux.x_sym.x_misc.x_lnsz.x_size; nfields++; break; case C_EOS: done = 1; break; } } /* Now create the vector of fields, and record how big it is. */ TYPE_NFIELDS (type) = nfields; TYPE_FIELDS (type) = (struct field *) TYPE_ALLOC (type, sizeof (struct field) * nfields); /* Copy the saved-up fields into the field vector. */ for (n = nfields; list; list = list->next) TYPE_FIELD (type, --n) = list->field; return type; } /* Read a definition of an enumeration type, and create and return a suitable type object. Also defines the symbols that represent the values of the type. */ /* ARGSUSED */ static struct type * coff_read_enum_type (index, length, lastsym) int index; int length; int lastsym; { register struct symbol *sym; register struct type *type; int nsyms = 0; int done = 0; struct pending **symlist; struct coff_symbol member_sym; register struct coff_symbol *ms = &member_sym; struct internal_syment sub_sym; union internal_auxent sub_aux; struct pending *osyms, *syms; int o_nsyms; register int n; char *name; type = coff_alloc_type (index); if (within_function) symlist = &local_symbols; else symlist = &file_symbols; osyms = *symlist; o_nsyms = osyms ? osyms->nsyms : 0; while (!done && symnum < lastsym && symnum < nlist_nsyms_global) { read_one_sym (ms, &sub_sym, &sub_aux); name = ms->c_name; name = EXTERNAL_NAME (name, current_objfile->obfd); switch (ms->c_sclass) { case C_MOE: sym = (struct symbol *) xmalloc (sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); SYMBOL_NAME (sym) = savestring (name, strlen (name)); SYMBOL_CLASS (sym) = LOC_CONST; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; SYMBOL_VALUE (sym) = ms->c_value; add_symbol_to_list (sym, symlist); nsyms++; break; case C_EOS: /* Sometimes the linker (on 386/ix 2.0.2 at least) screws up the count of how many symbols to read. So stop on .eos. */ done = 1; break; } } /* Now fill in the fields of the type-structure. */ if (length > 0) TYPE_LENGTH (type) = length; else TYPE_LENGTH (type) = TARGET_INT_BIT / TARGET_CHAR_BIT; /* Assume ints */ TYPE_CODE (type) = TYPE_CODE_ENUM; TYPE_NFIELDS (type) = nsyms; TYPE_FIELDS (type) = (struct field *) TYPE_ALLOC (type, sizeof (struct field) * nsyms); /* Find the symbols for the values and put them into the type. The symbols can be found in the symlist that we put them on to cause them to be defined. osyms contains the old value of that symlist; everything up to there was defined by us. */ /* Note that we preserve the order of the enum constants, so that in something like "enum {FOO, LAST_THING=FOO}" we print FOO, not LAST_THING. */ for (syms = *symlist, n = 0; syms; syms = syms->next) { int j = 0; if (syms == osyms) j = o_nsyms; for (; j < syms->nsyms; j++,n++) { struct symbol *xsym = syms->symbol[j]; SYMBOL_TYPE (xsym) = type; TYPE_FIELD_NAME (type, n) = SYMBOL_NAME (xsym); TYPE_FIELD_VALUE (type, n) = 0; TYPE_FIELD_BITPOS (type, n) = SYMBOL_VALUE (xsym); TYPE_FIELD_BITSIZE (type, n) = 0; } if (syms == osyms) break; } return type; } struct section_offsets * coff_symfile_offsets (objfile, addr) struct objfile *objfile; CORE_ADDR addr; { struct section_offsets *section_offsets; int i; objfile->num_sections = SECT_OFF_MAX; section_offsets = (struct section_offsets *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct section_offsets) + sizeof (section_offsets->offsets) * (SECT_OFF_MAX-1)); for (i = 0; i < SECT_OFF_MAX; i++) ANOFFSET (section_offsets, i) = addr; return section_offsets; } /* Register our ability to parse symbols for coff BFD files */ static struct sym_fns coff_sym_fns = { bfd_target_coff_flavour, coff_new_init, /* sym_new_init: init anything gbl to entire symtab */ coff_symfile_init, /* sym_init: read initial info, setup for sym_read() */ coff_symfile_read, /* sym_read: read a symbol file into symtab */ coff_symfile_finish, /* sym_finish: finished with file, cleanup */ coff_symfile_offsets, /* sym_offsets: xlate external to internal form */ NULL /* next: pointer to next struct sym_fns */ }; void _initialize_coffread () { add_symtab_fns(&coff_sym_fns); } gdb-4.13/gdb/command.c 666 34562 1752 105405 5545050561 13125 0ustar fnfcygnus/* Handle lists of commands, their decoding and documentation, for GDB. Copyright 1986, 1989, 1990, 1991 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "gdbcmd.h" #include "symtab.h" #include "value.h" #include #include /* Prototypes for local functions */ static void undef_cmd_error PARAMS ((char *, char *)); static void show_user PARAMS ((char *, int)); static void show_user_1 PARAMS ((struct cmd_list_element *, GDB_FILE *)); static void make_command PARAMS ((char *, int)); static void shell_escape PARAMS ((char *, int)); static int parse_binary_operation PARAMS ((char *)); static void print_doc_line PARAMS ((GDB_FILE *, char *)); /* Add element named NAME. CLASS is the top level category into which commands are broken down for "help" purposes. FUN should be the function to execute the command; it will get a character string as argument, with leading and trailing blanks already eliminated. DOC is a documentation string for the command. Its first line should be a complete sentence. It should start with ? for a command that is an abbreviation or with * for a command that most users don't need to know about. Add this command to command list *LIST. */ struct cmd_list_element * add_cmd (name, class, fun, doc, list) char *name; enum command_class class; void (*fun) PARAMS ((char *, int)); char *doc; struct cmd_list_element **list; { register struct cmd_list_element *c = (struct cmd_list_element *) xmalloc (sizeof (struct cmd_list_element)); delete_cmd (name, list); c->next = *list; c->name = name; c->class = class; c->function.cfunc = fun; c->doc = doc; c->prefixlist = 0; c->prefixname = (char *)NULL; c->allow_unknown = 0; c->hook = 0; c->hookee = 0; c->cmd_pointer = 0; c->abbrev_flag = 0; c->type = not_set_cmd; c->completer = make_symbol_completion_list; c->var = 0; c->var_type = var_boolean; c->user_commands = 0; *list = c; return c; } /* Same as above, except that the abbrev_flag is set. */ #if 0 /* Currently unused */ struct cmd_list_element * add_abbrev_cmd (name, class, fun, doc, list) char *name; enum command_class class; void (*fun) PARAMS ((char *, int)); char *doc; struct cmd_list_element **list; { register struct cmd_list_element *c = add_cmd (name, class, fun, doc, list); c->abbrev_flag = 1; return c; } #endif struct cmd_list_element * add_alias_cmd (name, oldname, class, abbrev_flag, list) char *name; char *oldname; enum command_class class; int abbrev_flag; struct cmd_list_element **list; { /* Must do this since lookup_cmd tries to side-effect its first arg */ char *copied_name; register struct cmd_list_element *old; register struct cmd_list_element *c; copied_name = (char *) alloca (strlen (oldname) + 1); strcpy (copied_name, oldname); old = lookup_cmd (&copied_name, *list, "", 1, 1); if (old == 0) { delete_cmd (name, list); return 0; } c = add_cmd (name, class, old->function.cfunc, old->doc, list); c->prefixlist = old->prefixlist; c->prefixname = old->prefixname; c->allow_unknown = old->allow_unknown; c->abbrev_flag = abbrev_flag; c->cmd_pointer = old; return c; } /* Like add_cmd but adds an element for a command prefix: a name that should be followed by a subcommand to be looked up in another command list. PREFIXLIST should be the address of the variable containing that list. */ struct cmd_list_element * add_prefix_cmd (name, class, fun, doc, prefixlist, prefixname, allow_unknown, list) char *name; enum command_class class; void (*fun) PARAMS ((char *, int)); char *doc; struct cmd_list_element **prefixlist; char *prefixname; int allow_unknown; struct cmd_list_element **list; { register struct cmd_list_element *c = add_cmd (name, class, fun, doc, list); c->prefixlist = prefixlist; c->prefixname = prefixname; c->allow_unknown = allow_unknown; return c; } /* Like add_prefix_cmd but sets the abbrev_flag on the new command. */ struct cmd_list_element * add_abbrev_prefix_cmd (name, class, fun, doc, prefixlist, prefixname, allow_unknown, list) char *name; enum command_class class; void (*fun) PARAMS ((char *, int)); char *doc; struct cmd_list_element **prefixlist; char *prefixname; int allow_unknown; struct cmd_list_element **list; { register struct cmd_list_element *c = add_cmd (name, class, fun, doc, list); c->prefixlist = prefixlist; c->prefixname = prefixname; c->allow_unknown = allow_unknown; c->abbrev_flag = 1; return c; } /* This is an empty "cfunc". */ void not_just_help_class_command (args, from_tty) char *args; int from_tty; { } /* This is an empty "sfunc". */ static void empty_sfunc PARAMS ((char *, int, struct cmd_list_element *)); static void empty_sfunc (args, from_tty, c) char *args; int from_tty; struct cmd_list_element *c; { } /* Add element named NAME to command list LIST (the list for set or some sublist thereof). CLASS is as in add_cmd. VAR_TYPE is the kind of thing we are setting. VAR is address of the variable being controlled by this command. DOC is the documentation string. */ struct cmd_list_element * add_set_cmd (name, class, var_type, var, doc, list) char *name; enum command_class class; var_types var_type; char *var; char *doc; struct cmd_list_element **list; { struct cmd_list_element *c = add_cmd (name, class, NO_FUNCTION, doc, list); c->type = set_cmd; c->var_type = var_type; c->var = var; /* This needs to be something besides NO_FUNCTION so that this isn't treated as a help class. */ c->function.sfunc = empty_sfunc; return c; } /* Where SETCMD has already been added, add the corresponding show command to LIST and return a pointer to it. */ struct cmd_list_element * add_show_from_set (setcmd, list) struct cmd_list_element *setcmd; struct cmd_list_element **list; { struct cmd_list_element *showcmd = (struct cmd_list_element *) xmalloc (sizeof (struct cmd_list_element)); memcpy (showcmd, setcmd, sizeof (struct cmd_list_element)); delete_cmd (showcmd->name, list); showcmd->type = show_cmd; /* Replace "set " at start of docstring with "show ". */ if (setcmd->doc[0] == 'S' && setcmd->doc[1] == 'e' && setcmd->doc[2] == 't' && setcmd->doc[3] == ' ') showcmd->doc = concat ("Show ", setcmd->doc + 4, NULL); else fprintf_unfiltered (gdb_stderr, "GDB internal error: Bad docstring for set command\n"); showcmd->next = *list; *list = showcmd; return showcmd; } /* Remove the command named NAME from the command list. */ void delete_cmd (name, list) char *name; struct cmd_list_element **list; { register struct cmd_list_element *c; struct cmd_list_element *p; while (*list && STREQ ((*list)->name, name)) { if ((*list)->hookee) (*list)->hookee->hook = 0; /* Hook slips out of its mouth */ p = (*list)->next; free ((PTR)*list); *list = p; } if (*list) for (c = *list; c->next;) { if (STREQ (c->next->name, name)) { if (c->next->hookee) c->next->hookee->hook = 0; /* hooked cmd gets away. */ p = c->next->next; free ((PTR)c->next); c->next = p; } else c = c->next; } } /* This command really has to deal with two things: * 1) I want documentation on *this string* (usually called by * "help commandname"). * 2) I want documentation on *this list* (usually called by * giving a command that requires subcommands. Also called by saying * just "help".) * * I am going to split this into two seperate comamnds, help_cmd and * help_list. */ void help_cmd (command, stream) char *command; GDB_FILE *stream; { struct cmd_list_element *c; extern struct cmd_list_element *cmdlist; if (!command) { help_list (cmdlist, "", all_classes, stream); return; } c = lookup_cmd (&command, cmdlist, "", 0, 0); if (c == 0) return; /* There are three cases here. If c->prefixlist is nonzero, we have a prefix command. Print its documentation, then list its subcommands. If c->function is nonzero, we really have a command. Print its documentation and return. If c->function is zero, we have a class name. Print its documentation (as if it were a command) and then set class to the number of this class so that the commands in the class will be listed. */ fputs_filtered (c->doc, stream); fputs_filtered ("\n", stream); if (c->prefixlist == 0 && c->function.cfunc != NULL) return; fprintf_filtered (stream, "\n"); /* If this is a prefix command, print it's subcommands */ if (c->prefixlist) help_list (*c->prefixlist, c->prefixname, all_commands, stream); /* If this is a class name, print all of the commands in the class */ if (c->function.cfunc == NULL) help_list (cmdlist, "", c->class, stream); if (c->hook) fprintf_filtered (stream, "\nThis command has a hook defined: %s\n", c->hook->name); } /* * Get a specific kind of help on a command list. * * LIST is the list. * CMDTYPE is the prefix to use in the title string. * CLASS is the class with which to list the nodes of this list (see * documentation for help_cmd_list below), As usual, ALL_COMMANDS for * everything, ALL_CLASSES for just classes, and non-negative for only things * in a specific class. * and STREAM is the output stream on which to print things. * If you call this routine with a class >= 0, it recurses. */ void help_list (list, cmdtype, class, stream) struct cmd_list_element *list; char *cmdtype; enum command_class class; GDB_FILE *stream; { int len; char *cmdtype1, *cmdtype2; /* If CMDTYPE is "foo ", CMDTYPE1 gets " foo" and CMDTYPE2 gets "foo sub" */ len = strlen (cmdtype); cmdtype1 = (char *) alloca (len + 1); cmdtype1[0] = 0; cmdtype2 = (char *) alloca (len + 4); cmdtype2[0] = 0; if (len) { cmdtype1[0] = ' '; strncpy (cmdtype1 + 1, cmdtype, len - 1); cmdtype1[len] = 0; strncpy (cmdtype2, cmdtype, len - 1); strcpy (cmdtype2 + len - 1, " sub"); } if (class == all_classes) fprintf_filtered (stream, "List of classes of %scommands:\n\n", cmdtype2); else fprintf_filtered (stream, "List of %scommands:\n\n", cmdtype2); help_cmd_list (list, class, cmdtype, (int)class >= 0, stream); if (class == all_classes) fprintf_filtered (stream, "\n\ Type \"help%s\" followed by a class name for a list of commands in that class.", cmdtype1); fprintf_filtered (stream, "\n\ Type \"help%s\" followed by %scommand name for full documentation.\n\ Command name abbreviations are allowed if unambiguous.\n", cmdtype1, cmdtype2); } /* Print only the first line of STR on STREAM. */ static void print_doc_line (stream, str) GDB_FILE *stream; char *str; { static char *line_buffer = 0; static int line_size; register char *p; if (!line_buffer) { line_size = 80; line_buffer = (char *) xmalloc (line_size); } p = str; while (*p && *p != '\n' && *p != '.' && *p != ',') p++; if (p - str > line_size - 1) { line_size = p - str + 1; free ((PTR)line_buffer); line_buffer = (char *) xmalloc (line_size); } strncpy (line_buffer, str, p - str); line_buffer[p - str] = '\0'; if (islower (line_buffer[0])) line_buffer[0] = toupper (line_buffer[0]); fputs_filtered (line_buffer, stream); } /* * Implement a help command on command list LIST. * RECURSE should be non-zero if this should be done recursively on * all sublists of LIST. * PREFIX is the prefix to print before each command name. * STREAM is the stream upon which the output should be written. * CLASS should be: * A non-negative class number to list only commands in that * class. * ALL_COMMANDS to list all commands in list. * ALL_CLASSES to list all classes in list. * * Note that RECURSE will be active on *all* sublists, not just the * ones selected by the criteria above (ie. the selection mechanism * is at the low level, not the high-level). */ void help_cmd_list (list, class, prefix, recurse, stream) struct cmd_list_element *list; enum command_class class; char *prefix; int recurse; GDB_FILE *stream; { register struct cmd_list_element *c; for (c = list; c; c = c->next) { if (c->abbrev_flag == 0 && (class == all_commands || (class == all_classes && c->function.cfunc == NULL) || (class == c->class && c->function.cfunc != NULL))) { fprintf_filtered (stream, "%s%s -- ", prefix, c->name); print_doc_line (stream, c->doc); fputs_filtered ("\n", stream); } if (recurse && c->prefixlist != 0 && c->abbrev_flag == 0) help_cmd_list (*c->prefixlist, class, c->prefixname, 1, stream); } } /* This routine takes a line of TEXT and a CLIST in which to start the lookup. When it returns it will have incremented the text pointer past the section of text it matched, set *RESULT_LIST to point to the list in which the last word was matched, and will return a pointer to the cmd list element which the text matches. It will return NULL if no match at all was possible. It will return -1 (cast appropriately, ick) if ambigous matches are possible; in this case *RESULT_LIST will be set to point to the list in which there are ambiguous choices (and *TEXT will be set to the ambiguous text string). If the located command was an abbreviation, this routine returns the base command of the abbreviation. It does no error reporting whatsoever; control will always return to the superior routine. In the case of an ambiguous return (-1), *RESULT_LIST will be set to point at the prefix_command (ie. the best match) *or* (special case) will be NULL if no prefix command was ever found. For example, in the case of "info a", "info" matches without ambiguity, but "a" could be "args" or "address", so *RESULT_LIST is set to the cmd_list_element for "info". So in this case RESULT_LIST should not be interpeted as a pointer to the beginning of a list; it simply points to a specific command. In the case of an ambiguous return *TEXT is advanced past the last non-ambiguous prefix (e.g. "info t" can be "info types" or "info target"; upon return *TEXT has been advanced past "info "). If RESULT_LIST is NULL, don't set *RESULT_LIST (but don't otherwise affect the operation). This routine does *not* modify the text pointed to by TEXT. If IGNORE_HELP_CLASSES is nonzero, ignore any command list elements which are actually help classes rather than commands (i.e. the function field of the struct cmd_list_element is NULL). */ struct cmd_list_element * lookup_cmd_1 (text, clist, result_list, ignore_help_classes) char **text; struct cmd_list_element *clist, **result_list; int ignore_help_classes; { char *p, *command; int len, tmp, nfound; struct cmd_list_element *found, *c; while (**text == ' ' || **text == '\t') (*text)++; /* Treating underscores as part of command words is important so that "set args_foo()" doesn't get interpreted as "set args _foo()". */ for (p = *text; *p && (isalnum(*p) || *p == '-' || *p == '_'); p++) ; /* If nothing but whitespace, return 0. */ if (p == *text) return 0; len = p - *text; /* *text and p now bracket the first command word to lookup (and it's length is len). We copy this into a local temporary, converting to lower case as we go. */ command = (char *) alloca (len + 1); for (tmp = 0; tmp < len; tmp++) { char x = (*text)[tmp]; command[tmp] = isupper(x) ? tolower(x) : x; } command[len] = '\0'; /* Look it up. */ found = 0; nfound = 0; for (c = clist; c; c = c->next) if (!strncmp (command, c->name, len) && (!ignore_help_classes || c->function.cfunc)) { found = c; nfound++; if (c->name[len] == '\0') { nfound = 1; break; } } /* If nothing matches, we have a simple failure. */ if (nfound == 0) return 0; if (nfound > 1) { if (result_list != NULL) /* Will be modified in calling routine if we know what the prefix command is. */ *result_list = 0; return (struct cmd_list_element *) -1; /* Ambiguous. */ } /* We've matched something on this list. Move text pointer forward. */ *text = p; /* If this was an abbreviation, use the base command instead. */ if (found->cmd_pointer) found = found->cmd_pointer; /* If we found a prefix command, keep looking. */ if (found->prefixlist) { c = lookup_cmd_1 (text, *found->prefixlist, result_list, ignore_help_classes); if (!c) { /* Didn't find anything; this is as far as we got. */ if (result_list != NULL) *result_list = clist; return found; } else if (c == (struct cmd_list_element *) -1) { /* We've gotten this far properley, but the next step is ambiguous. We need to set the result list to the best we've found (if an inferior hasn't already set it). */ if (result_list != NULL) if (!*result_list) /* This used to say *result_list = *found->prefixlist If that was correct, need to modify the documentation at the top of this function to clarify what is supposed to be going on. */ *result_list = found; return c; } else { /* We matched! */ return c; } } else { if (result_list != NULL) *result_list = clist; return found; } } /* All this hair to move the space to the front of cmdtype */ static void undef_cmd_error (cmdtype, q) char *cmdtype, *q; { error ("Undefined %scommand: \"%s\". Try \"help%s%.*s\".", cmdtype, q, *cmdtype? " ": "", strlen(cmdtype)-1, cmdtype); } /* Look up the contents of *LINE as a command in the command list LIST. LIST is a chain of struct cmd_list_element's. If it is found, return the struct cmd_list_element for that command and update *LINE to point after the command name, at the first argument. If not found, call error if ALLOW_UNKNOWN is zero otherwise (or if error returns) return zero. Call error if specified command is ambiguous, unless ALLOW_UNKNOWN is negative. CMDTYPE precedes the word "command" in the error message. If INGNORE_HELP_CLASSES is nonzero, ignore any command list elements which are actually help classes rather than commands (i.e. the function field of the struct cmd_list_element is 0). */ struct cmd_list_element * lookup_cmd (line, list, cmdtype, allow_unknown, ignore_help_classes) char **line; struct cmd_list_element *list; char *cmdtype; int allow_unknown; int ignore_help_classes; { struct cmd_list_element *last_list = 0; struct cmd_list_element *c = lookup_cmd_1 (line, list, &last_list, ignore_help_classes); #if 0 /* This is wrong for complete_command. */ char *ptr = (*line) + strlen (*line) - 1; /* Clear off trailing whitespace. */ while (ptr >= *line && (*ptr == ' ' || *ptr == '\t')) ptr--; *(ptr + 1) = '\0'; #endif if (!c) { if (!allow_unknown) { if (!*line) error ("Lack of needed %scommand", cmdtype); else { char *p = *line, *q; while (isalnum(*p) || *p == '-') p++; q = (char *) alloca (p - *line + 1); strncpy (q, *line, p - *line); q[p-*line] = '\0'; undef_cmd_error (cmdtype, q); } } else return 0; } else if (c == (struct cmd_list_element *) -1) { /* Ambigous. Local values should be off prefixlist or called values. */ int local_allow_unknown = (last_list ? last_list->allow_unknown : allow_unknown); char *local_cmdtype = last_list ? last_list->prefixname : cmdtype; struct cmd_list_element *local_list = (last_list ? *(last_list->prefixlist) : list); if (local_allow_unknown < 0) { if (last_list) return last_list; /* Found something. */ else return 0; /* Found nothing. */ } else { /* Report as error. */ int amb_len; char ambbuf[100]; for (amb_len = 0; ((*line)[amb_len] && (*line)[amb_len] != ' ' && (*line)[amb_len] != '\t'); amb_len++) ; ambbuf[0] = 0; for (c = local_list; c; c = c->next) if (!strncmp (*line, c->name, amb_len)) { if (strlen (ambbuf) + strlen (c->name) + 6 < (int)sizeof ambbuf) { if (strlen (ambbuf)) strcat (ambbuf, ", "); strcat (ambbuf, c->name); } else { strcat (ambbuf, ".."); break; } } error ("Ambiguous %scommand \"%s\": %s.", local_cmdtype, *line, ambbuf); return 0; /* lint */ } } else { /* We've got something. It may still not be what the caller wants (if this command *needs* a subcommand). */ while (**line == ' ' || **line == '\t') (*line)++; if (c->prefixlist && **line && !c->allow_unknown) undef_cmd_error (c->prefixname, *line); /* Seems to be what he wants. Return it. */ return c; } return 0; } #if 0 /* Look up the contents of *LINE as a command in the command list LIST. LIST is a chain of struct cmd_list_element's. If it is found, return the struct cmd_list_element for that command and update *LINE to point after the command name, at the first argument. If not found, call error if ALLOW_UNKNOWN is zero otherwise (or if error returns) return zero. Call error if specified command is ambiguous, unless ALLOW_UNKNOWN is negative. CMDTYPE precedes the word "command" in the error message. */ struct cmd_list_element * lookup_cmd (line, list, cmdtype, allow_unknown) char **line; struct cmd_list_element *list; char *cmdtype; int allow_unknown; { register char *p; register struct cmd_list_element *c, *found; int nfound; char ambbuf[100]; char *processed_cmd; int i, cmd_len; /* Skip leading whitespace. */ while (**line == ' ' || **line == '\t') (*line)++; /* Clear out trailing whitespace. */ p = *line + strlen (*line); while (p != *line && (p[-1] == ' ' || p[-1] == '\t')) p--; *p = 0; /* Find end of command name. */ p = *line; while (*p == '-' || isalnum(*p)) p++; /* Look up the command name. If exact match, keep that. Otherwise, take command abbreviated, if unique. Note that (in my opinion) a null string does *not* indicate ambiguity; simply the end of the argument. */ if (p == *line) { if (!allow_unknown) error ("Lack of needed %scommand", cmdtype); return 0; } /* Copy over to a local buffer, converting to lowercase on the way. This is in case the command being parsed is a subcommand which doesn't match anything, and that's ok. We want the original untouched for the routine of the original command. */ processed_cmd = (char *) alloca (p - *line + 1); for (cmd_len = 0; cmd_len < p - *line; cmd_len++) { char x = (*line)[cmd_len]; if (isupper(x)) processed_cmd[cmd_len] = tolower(x); else processed_cmd[cmd_len] = x; } processed_cmd[cmd_len] = '\0'; /* Check all possibilities in the current command list. */ found = 0; nfound = 0; for (c = list; c; c = c->next) { if (!strncmp (processed_cmd, c->name, cmd_len)) { found = c; nfound++; if (c->name[cmd_len] == 0) { nfound = 1; break; } } } /* Report error for undefined command name. */ if (nfound != 1) { if (nfound > 1 && allow_unknown >= 0) { ambbuf[0] = 0; for (c = list; c; c = c->next) if (!strncmp (processed_cmd, c->name, cmd_len)) { if (strlen (ambbuf) + strlen (c->name) + 6 < sizeof ambbuf) { if (strlen (ambbuf)) strcat (ambbuf, ", "); strcat (ambbuf, c->name); } else { strcat (ambbuf, ".."); break; } } error ("Ambiguous %scommand \"%s\": %s.", cmdtype, processed_cmd, ambbuf); } else if (!allow_unknown) error ("Undefined %scommand: \"%s\".", cmdtype, processed_cmd); return 0; } /* Skip whitespace before the argument. */ while (*p == ' ' || *p == '\t') p++; *line = p; if (found->prefixlist && *p) { c = lookup_cmd (line, *found->prefixlist, found->prefixname, found->allow_unknown); if (c) return c; } return found; } #endif /* Helper function for SYMBOL_COMPLETION_FUNCTION. */ /* Return a vector of char pointers which point to the different possible completions in LIST of TEXT. WORD points in the same buffer as TEXT, and completions should be returned relative to this position. For example, suppose TEXT is "foo" and we want to complete to "foobar". If WORD is "oo", return "oobar"; if WORD is "baz/foo", return "baz/foobar". */ char ** complete_on_cmdlist (list, text, word) struct cmd_list_element *list; char *text; char *word; { struct cmd_list_element *ptr; char **matchlist; int sizeof_matchlist; int matches; int textlen = strlen (text); sizeof_matchlist = 10; matchlist = (char **) xmalloc (sizeof_matchlist * sizeof (char *)); matches = 0; for (ptr = list; ptr; ptr = ptr->next) if (!strncmp (ptr->name, text, textlen) && !ptr->abbrev_flag && (ptr->function.cfunc || ptr->prefixlist)) { if (matches == sizeof_matchlist) { sizeof_matchlist *= 2; matchlist = (char **) xrealloc ((char *)matchlist, (sizeof_matchlist * sizeof (char *))); } matchlist[matches] = (char *) xmalloc (strlen (word) + strlen (ptr->name) + 1); if (word == text) strcpy (matchlist[matches], ptr->name); else if (word > text) { /* Return some portion of ptr->name. */ strcpy (matchlist[matches], ptr->name + (word - text)); } else { /* Return some of text plus ptr->name. */ strncpy (matchlist[matches], word, text - word); matchlist[matches][text - word] = '\0'; strcat (matchlist[matches], ptr->name); } ++matches; } if (matches == 0) { free ((PTR)matchlist); matchlist = 0; } else { matchlist = (char **) xrealloc ((char *)matchlist, ((matches + 1) * sizeof (char *))); matchlist[matches] = (char *) 0; } return matchlist; } static int parse_binary_operation (arg) char *arg; { int length; if (!arg || !*arg) return 1; length = strlen (arg); while (arg[length - 1] == ' ' || arg[length - 1] == '\t') length--; if (!strncmp (arg, "on", length) || !strncmp (arg, "1", length) || !strncmp (arg, "yes", length)) return 1; else if (!strncmp (arg, "off", length) || !strncmp (arg, "0", length) || !strncmp (arg, "no", length)) return 0; else { error ("\"on\" or \"off\" expected."); return 0; } } /* Do a "set" or "show" command. ARG is NULL if no argument, or the text of the argument, and FROM_TTY is nonzero if this command is being entered directly by the user (i.e. these are just like any other command). C is the command list element for the command. */ void do_setshow_command (arg, from_tty, c) char *arg; int from_tty; struct cmd_list_element *c; { if (c->type == set_cmd) { switch (c->var_type) { case var_string: { char *new; char *p; char *q; int ch; if (arg == NULL) arg = ""; new = (char *) xmalloc (strlen (arg) + 2); p = arg; q = new; while ((ch = *p++) != '\000') { if (ch == '\\') { /* \ at end of argument is used after spaces so they won't be lost. */ /* This is obsolete now that we no longer strip trailing whitespace and actually, the backslash didn't get here in my test, readline or something did something funky with a backslash right before a newline. */ if (*p == 0) break; ch = parse_escape (&p); if (ch == 0) break; /* C loses */ else if (ch > 0) *q++ = ch; } else *q++ = ch; } #if 0 if (*(p - 1) != '\\') *q++ = ' '; #endif *q++ = '\0'; new = (char *) xrealloc (new, q - new); if (*(char **)c->var != NULL) free (*(char **)c->var); *(char **) c->var = new; } break; case var_string_noescape: if (arg == NULL) arg = ""; if (*(char **)c->var != NULL) free (*(char **)c->var); *(char **) c->var = savestring (arg, strlen (arg)); break; case var_filename: if (arg == NULL) error_no_arg ("filename to set it to."); if (*(char **)c->var != NULL) free (*(char **)c->var); *(char **)c->var = tilde_expand (arg); break; case var_boolean: *(int *) c->var = parse_binary_operation (arg); break; case var_uinteger: if (arg == NULL) error_no_arg ("integer to set it to."); *(unsigned int *) c->var = parse_and_eval_address (arg); if (*(unsigned int *) c->var == 0) *(unsigned int *) c->var = UINT_MAX; break; case var_integer: { unsigned int val; if (arg == NULL) error_no_arg ("integer to set it to."); val = parse_and_eval_address (arg); if (val == 0) *(int *) c->var = INT_MAX; else if (val >= INT_MAX) error ("integer %u out of range", val); else *(int *) c->var = val; break; } case var_zinteger: if (arg == NULL) error_no_arg ("integer to set it to."); *(int *) c->var = parse_and_eval_address (arg); break; default: error ("gdb internal error: bad var_type in do_setshow_command"); } } else if (c->type == show_cmd) { /* Print doc minus "show" at start. */ print_doc_line (gdb_stdout, c->doc + 5); fputs_filtered (" is ", gdb_stdout); wrap_here (" "); switch (c->var_type) { case var_string: { unsigned char *p; fputs_filtered ("\"", gdb_stdout); for (p = *(unsigned char **) c->var; *p != '\0'; p++) gdb_printchar (*p, gdb_stdout, '"'); fputs_filtered ("\"", gdb_stdout); } break; case var_string_noescape: case var_filename: fputs_filtered ("\"", gdb_stdout); fputs_filtered (*(char **) c->var, gdb_stdout); fputs_filtered ("\"", gdb_stdout); break; case var_boolean: fputs_filtered (*(int *) c->var ? "on" : "off", gdb_stdout); break; case var_uinteger: if (*(unsigned int *) c->var == UINT_MAX) { fputs_filtered ("unlimited", gdb_stdout); break; } /* else fall through */ case var_zinteger: fprintf_filtered (gdb_stdout, "%u", *(unsigned int *) c->var); break; case var_integer: if (*(int *) c->var == INT_MAX) { fputs_filtered ("unlimited", gdb_stdout); } else fprintf_filtered (gdb_stdout, "%d", *(int *) c->var); break; default: error ("gdb internal error: bad var_type in do_setshow_command"); } fputs_filtered (".\n", gdb_stdout); } else error ("gdb internal error: bad cmd_type in do_setshow_command"); (*c->function.sfunc) (NULL, from_tty, c); } /* Show all the settings in a list of show commands. */ void cmd_show_list (list, from_tty, prefix) struct cmd_list_element *list; int from_tty; char *prefix; { for (; list != NULL; list = list->next) { /* If we find a prefix, run its list, prefixing our output by its prefix (with "show " skipped). */ if (list->prefixlist && !list->abbrev_flag) cmd_show_list (*list->prefixlist, from_tty, list->prefixname + 5); if (list->type == show_cmd) { fputs_filtered (prefix, gdb_stdout); fputs_filtered (list->name, gdb_stdout); fputs_filtered (": ", gdb_stdout); do_setshow_command ((char *)NULL, from_tty, list); } } } /* ARGSUSED */ static void shell_escape (arg, from_tty) char *arg; int from_tty; { #ifdef CANT_FORK /* FIXME: what about errors (I don't know how GO32 system() handles them)? */ system (arg); #else /* Can fork. */ int rc, status, pid; char *p, *user_shell; if ((user_shell = (char *) getenv ("SHELL")) == NULL) user_shell = "/bin/sh"; /* Get the name of the shell for arg0 */ if ((p = strrchr (user_shell, '/')) == NULL) p = user_shell; else p++; /* Get past '/' */ if ((pid = fork()) == 0) { if (!arg) execl (user_shell, p, 0); else execl (user_shell, p, "-c", arg, 0); fprintf_unfiltered (gdb_stderr, "Cannot execute %s: %s\n", user_shell, safe_strerror (errno)); gdb_flush (gdb_stderr); _exit (0177); } if (pid != -1) while ((rc = wait (&status)) != pid && rc != -1) ; else error ("Fork failed"); #endif /* Can fork. */ } static void make_command (arg, from_tty) char *arg; int from_tty; { char *p; if (arg == 0) p = "make"; else { p = xmalloc (sizeof("make ") + strlen(arg)); strcpy (p, "make "); strcpy (p + sizeof("make ")-1, arg); } shell_escape (p, from_tty); } static void show_user_1 (c, stream) struct cmd_list_element *c; GDB_FILE *stream; { register struct command_line *cmdlines; cmdlines = c->user_commands; if (!cmdlines) return; fputs_filtered ("User command ", stream); fputs_filtered (c->name, stream); fputs_filtered (":\n", stream); while (cmdlines) { fputs_filtered (cmdlines->line, stream); fputs_filtered ("\n", stream); cmdlines = cmdlines->next; } fputs_filtered ("\n", stream); } /* ARGSUSED */ static void show_user (args, from_tty) char *args; int from_tty; { struct cmd_list_element *c; extern struct cmd_list_element *cmdlist; if (args) { c = lookup_cmd (&args, cmdlist, "", 0, 1); if (c->class != class_user) error ("Not a user command."); show_user_1 (c, gdb_stdout); } else { for (c = cmdlist; c; c = c->next) { if (c->class == class_user) show_user_1 (c, gdb_stdout); } } } void _initialize_command () { add_com ("shell", class_support, shell_escape, "Execute the rest of the line as a shell command. \n\ With no arguments, run an inferior shell."); add_com ("make", class_support, make_command, "Run the ``make'' program using the rest of the line as arguments."); add_cmd ("user", no_class, show_user, "Show definitions of user defined commands.\n\ Argument is the name of the user defined command.\n\ With no argument, show definitions of all user defined commands.", &showlist); } gdb-4.13/gdb/command.h 666 34562 1752 21117 5524005450 13101 0ustar fnfcygnus/* Header file for command-reading library command.c. Copyright (C) 1986, 1989, 1990 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (COMMAND_H) #define COMMAND_H 1 /* Not a set/show command. Note that some commands which begin with "set" or "show" might be in this category, if their syntax does not fall into one of the following categories. */ typedef enum cmd_types { not_set_cmd, set_cmd, show_cmd } cmd_types; /* Types of "set" or "show" command. */ typedef enum var_types { /* "on" or "off". *VAR is an integer which is nonzero for on, zero for off. */ var_boolean, /* Unsigned Integer. *VAR is an unsigned int. The user can type 0 to mean "unlimited", which is stored in *VAR as UINT_MAX. */ var_uinteger, /* Like var_uinteger but signed. *VAR is an int. The user can type 0 to mean "unlimited", which is stored in *VAR as INT_MAX. */ var_integer, /* String which the user enters with escapes (e.g. the user types \n and it is a real newline in the stored string). *VAR is a malloc'd string, or NULL if the string is empty. */ var_string, /* String which stores what the user types verbatim. *VAR is a malloc'd string, or NULL if the string is empty. */ var_string_noescape, /* String which stores a filename. *VAR is a malloc'd string, or NULL if the string is empty. */ var_filename, /* ZeroableInteger. *VAR is an int. Like Unsigned Integer except that zero really means zero. */ var_zinteger } var_types; /* This structure records one command'd definition. */ struct cmd_list_element { /* Points to next command in this list. */ struct cmd_list_element *next; /* Name of this command. */ char *name; /* Command class; class values are chosen by application program. */ enum command_class class; /* Function definition of this command. NO_FUNCTION for command class names and for help topics that are not really commands. */ union { /* If type is not_set_cmd, call it like this: */ void (*cfunc) PARAMS ((char *args, int from_tty)); /* If type is cmd_set or show_cmd, first set the variables, and then call this. */ void (*sfunc) PARAMS ((char *args, int from_tty, struct cmd_list_element *c)); } function; # define NO_FUNCTION ((void (*) PARAMS((char *args, int from_tty))) 0) /* Documentation of this command (or help topic). First line is brief documentation; remaining lines form, with it, the full documentation. First line should end with a period. Entire string should also end with a period, not a newline. */ char *doc; /* Hook for another command to be executed before this command. */ struct cmd_list_element *hook; /* Nonzero identifies a prefix command. For them, the address of the variable containing the list of subcommands. */ struct cmd_list_element **prefixlist; /* For prefix commands only: String containing prefix commands to get here: this one plus any others needed to get to it. Should end in a space. It is used before the word "command" in describing the commands reached through this prefix. */ char *prefixname; /* For prefix commands only: nonzero means do not get an error if subcommand is not recognized; call the prefix's own function in that case. */ char allow_unknown; /* Nonzero says this is an abbreviation, and should not be mentioned in lists of commands. This allows "br" to complete to "break", which it otherwise wouldn't. */ char abbrev_flag; /* Completion routine for this command. TEXT is the text beyond what was matched for the command itself (leading whitespace is skipped). It stops where we are supposed to stop completing (rl_point) and is '\0' terminated. Return value is a malloc'd vector of pointers to possible completions terminated with NULL. If there are no completions, returning a pointer to a NULL would work but returning NULL itself is also valid. WORD points in the same buffer as TEXT, and completions should be returned relative to this position. For example, suppose TEXT is "foo" and we want to complete to "foobar". If WORD is "oo", return "oobar"; if WORD is "baz/foo", return "baz/foobar". */ char ** (*completer) PARAMS ((char *text, char *word)); /* Type of "set" or "show" command (or SET_NOT_SET if not "set" or "show"). */ cmd_types type; /* Pointer to variable affected by "set" and "show". Doesn't matter if type is not_set. */ char *var; /* What kind of variable is *VAR? */ var_types var_type; /* Pointer to command strings of user-defined commands */ struct command_line *user_commands; /* Pointer to command that is hooked by this one, so the hook can be removed when this one is deleted. */ struct cmd_list_element *hookee; /* Pointer to command that is aliased by this one, so the aliased command can be located in case it has been hooked. */ struct cmd_list_element *cmd_pointer; }; /* Forward-declarations of the entry-points of command.c. */ extern struct cmd_list_element * add_cmd PARAMS ((char *, enum command_class, void (*fun) (char *, int), char *, struct cmd_list_element **)); extern struct cmd_list_element * add_alias_cmd PARAMS ((char *, char *, enum command_class, int, struct cmd_list_element **)); extern struct cmd_list_element * add_prefix_cmd PARAMS ((char *, enum command_class, void (*fun) (char *, int), char *, struct cmd_list_element **, char *, int, struct cmd_list_element **)); extern struct cmd_list_element * add_abbrev_prefix_cmd PARAMS ((char *, enum command_class, void (*fun) (char *, int), char *, struct cmd_list_element **, char *, int, struct cmd_list_element **)); extern struct cmd_list_element * lookup_cmd PARAMS ((char **, struct cmd_list_element *, char *, int, int)); extern struct cmd_list_element * lookup_cmd_1 PARAMS ((char **, struct cmd_list_element *, struct cmd_list_element **, int)); extern void add_com PARAMS ((char *, enum command_class, void (*fun)(char *, int), char *)); extern void add_com_alias PARAMS ((char *, char *, enum command_class, int)); extern void add_info PARAMS ((char *, void (*fun) (char *, int), char *)); extern void add_info_alias PARAMS ((char *, char *, int)); extern char **complete_on_cmdlist PARAMS ((struct cmd_list_element *, char *, char *)); extern void delete_cmd PARAMS ((char *, struct cmd_list_element **)); extern void help_cmd PARAMS ((char *, GDB_FILE *)); extern void help_list PARAMS ((struct cmd_list_element *, char *, enum command_class, GDB_FILE *)); extern void help_cmd_list PARAMS ((struct cmd_list_element *, enum command_class, char *, int, GDB_FILE *)); extern struct cmd_list_element * add_set_cmd PARAMS ((char *, enum command_class, var_types, char *, char *, struct cmd_list_element **)); extern struct cmd_list_element * add_show_from_set PARAMS ((struct cmd_list_element *, struct cmd_list_element **)); /* Do a "set" or "show" command. ARG is NULL if no argument, or the text of the argument, and FROM_TTY is nonzero if this command is being entered directly by the user (i.e. these are just like any other command). C is the command list element for the command. */ extern void do_setshow_command PARAMS ((char *, int, struct cmd_list_element *)); /* Do a "show" command for each thing on a command list. */ extern void cmd_show_list PARAMS ((struct cmd_list_element *, int, char *)); extern void error_no_arg PARAMS ((char *)); extern void dont_repeat PARAMS ((void)); /* Used to mark commands that don't do anything. If we just leave the function field NULL, the command is interpreted as a help topic, or as a class of commands. */ extern void not_just_help_class_command PARAMS ((char *, int)); #endif /* !defined (COMMAND_H) */ gdb-4.13/gdb/complaints.c 666 34562 1752 11055 5465305413 13635 0ustar fnfcygnus/* Support for complaint handling during symbol reading in GDB. Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "complaints.h" #include "gdbcmd.h" #include /* Structure to manage complaints about symbol file contents. */ struct complaint complaint_root[1] = { { (char *) NULL, /* Complaint message */ 0, /* Complaint counter */ complaint_root /* Next complaint. */ } }; /* How many complaints about a particular thing should be printed before we stop whining about it? Default is no whining at all, since so many systems have ill-constructed symbol files. */ static unsigned int stop_whining = 0; /* Should each complaint be self explanatory, or should we assume that a series of complaints is being produced? case 0: self explanatory message. case 1: First message of a series that must start off with explanation. case 2: Subsequent message, when user already knows we are reading symbols and we can just state our piece. */ static int complaint_series = 0; /* External variables and functions referenced. */ extern int info_verbose; /* Functions to handle complaints during symbol reading. */ /* Print a complaint about the input symbols, and link the complaint block into a chain for later handling. */ /* VARARGS */ void complain (va_alist) va_dcl { va_list args; struct complaint *complaint; va_start (args); complaint = va_arg (args, struct complaint *); complaint -> counter++; if (complaint -> next == NULL) { complaint -> next = complaint_root -> next; complaint_root -> next = complaint; } if (complaint -> counter > stop_whining) { return; } wrap_here (""); switch (complaint_series + (info_verbose << 1)) { /* Isolated messages, must be self-explanatory. */ case 0: begin_line (); puts_filtered ("During symbol reading, "); wrap_here (""); vprintf_filtered (complaint -> message, args); puts_filtered (".\n"); break; /* First of a series, without `set verbose'. */ case 1: begin_line (); puts_filtered ("During symbol reading..."); vprintf_filtered (complaint -> message, args); puts_filtered ("..."); wrap_here (""); complaint_series++; break; /* Subsequent messages of a series, or messages under `set verbose'. (We'll already have produced a "Reading in symbols for XXX..." message and will clean up at the end with a newline.) */ default: vprintf_filtered (complaint -> message, args); puts_filtered ("..."); wrap_here (""); } /* If GDB dumps core, we'd like to see the complaints first. Presumably GDB will not be sending so many complaints that this becomes a performance hog. */ gdb_flush (gdb_stdout); va_end (args); } /* Clear out all complaint counters that have ever been incremented. If sym_reading is 1, be less verbose about successive complaints, since the messages are appearing all together during a command that reads symbols (rather than scattered around as psymtabs get fleshed out into symtabs at random times). If noisy is 1, we are in a noisy symbol reading command, and our caller will print enough context for the user to figure it out. */ void clear_complaints (sym_reading, noisy) int sym_reading; int noisy; { struct complaint *p; for (p = complaint_root -> next; p != complaint_root; p = p -> next) { p -> counter = 0; } if (!sym_reading && !noisy && complaint_series > 1) { /* Terminate previous series, since caller won't. */ puts_filtered ("\n"); } complaint_series = sym_reading ? 1 + noisy : 0; } void _initialize_complaints () { add_show_from_set (add_set_cmd ("complaints", class_support, var_zinteger, (char *) &stop_whining, "Set max number of complaints about incorrect symbols.", &setlist), &showlist); } gdb-4.13/gdb/complaints.h 666 34562 1752 3002 5313346414 13611 0ustar fnfcygnus/* Definitions for complaint handling during symbol reading in GDB. Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Support for complaining about things in the symbol file that aren't catastrophic. Each such thing gets a counter. The first time we have the problem, during a symbol read, we report it. At the end of symbol reading, if verbose, we report how many of each problem we had. */ struct complaint { char *message; unsigned counter; struct complaint *next; }; /* Root of the chain of complaints that have at some point been issued. This is used to reset the counters, and/or report the total counts. */ extern struct complaint complaint_root[1]; /* Functions that handle complaints. (in complaints.c) */ extern void complain (); extern void clear_complaints PARAMS ((int, int)); gdb-4.13/gdb/configure.in 666 34562 1752 30040 5612316623 13623 0ustar fnfcygnus# This file is a shell script fragment that supplies the information # necessary to tailor a template configure script into the configure # script appropriate for this directory. For more information, check # any existing configure script. srcname="GDB" srctrigger=main.c configdirs="doc testsuite" # per-host: # Map host cpu into the config cpu subdirectory name. # The default is $host_cpu. case "${host_cpu}" in c[12]) gdb_host_cpu=convex ;; hppa*) gdb_host_cpu=pa ;; i[34]86) gdb_host_cpu=i386 ;; m68*) gdb_host_cpu=m68k ;; m88*) gdb_host_cpu=m88k ;; np1) gdb_host_cpu=gould ;; pyramid) gdb_host_cpu=pyr ;; *) gdb_host_cpu=$host_cpu ;; esac # map host info into gdb names. case "${host}" in a29k-*-*) gdb_host=ultra3 ;; alpha-*-osf*) gdb_host=alpha-osf1 ;; arm-*-*) gdb_host=arm ;; c[12]-*-*) gdb_host=convex ;; hppa*-*-bsd*) gdb_host=hppabsd ;; hppa*-*-hiux*) gdb_host=hppahpux ;; hppa*-*-hpux*) gdb_host=hppahpux ;; hppa*-*-osf*) gdb_host=hppabsd ;; i[34]86-ncr-*) gdb_host=ncr3000 ;; i[34]86-sequent-bsd*) gdb_host=symmetry ;; # dynix i[34]86-sequent-sysv4*) gdb_host=ptx4 ;; i[34]86-sequent-sysv*) gdb_host=ptx ;; i[34]86-*-aix*) gdb_host=i386aix ;; i[34]86-*-bsd*) gdb_host=i386bsd ;; i[34]86-*-netbsd*) gdb_host=i386bsd ;; i[34]86-*-go32*) gdb_host=go32 ;; i[34]86-*-linux*) gdb_host=linux ;; i[34]86-*-lynxos*) gdb_host=i386lynx ;; i[34]86-*-mach3*) gdb_host=i386m3 ;; i[34]86-*-mach*) gdb_host=i386mach ;; i[34]86-*-osf1mk*) gdb_host=osf1mk ;; i[34]86-*-sco3.2v4*) gdb_host=i386sco4 ;; i[34]86-*-sco*) gdb_host=i386sco ;; i[34]86-*-solaris*) gdb_host=i386sol2 ;; i[34]86-*-sunos*) gdb_host=sun386 ;; i[34]86-*-sysv3.2*) gdb_host=i386v32 ;; i[34]86-*-sysv32*) gdb_host=i386v32 ;; i[34]86-*-sysv4*) gdb_host=i386v4 ;; i[34]86-*-unixware) gdb_host=i386v4 ;; i[34]86-*-sysv*) gdb_host=i386v ;; i[34]86-*-isc*) gdb_host=i386v32 ;; i[34]86-*-os9k) gdb_host=i386os9k ;; m680[01]0-sun-sunos3*) gdb_host=sun2os3 ;; m680[01]0-sun-sunos4*) gdb_host=sun2os4 ;; m68030-sony-*) gdb_host=news1000 ;; m68*-altos-*) gdb_host=altos ;; m68*-apollo*-sysv*) gdb_host=apollo68v ;; m68*-apollo*-bsd*) gdb_host=apollo68b ;; m68*-att-*) gdb_host=3b1 ;; m68*-bull*-sysv*) gdb_host=dpx2 ;; m68*-hp-bsd*) gdb_host=hp300bsd ;; m68*-hp-hpux*) gdb_host=hp300hpux ;; m68*-isi-*) gdb_host=isi ;; m68*-*-lynxos*) gdb_host=m68klynx ;; m68*-*-sysv4*) gdb_host=m68kv4 ;; m68*-motorola-*) gdb_host=delta68 ;; m68*-sony-*) gdb_host=news ;; m68*-sun-sunos3*) gdb_host=sun3os3 ;; m68*-sun-sunos4*) gdb_host=sun3os4 ;; m68*-sun-*) gdb_host=sun3os4 ;; m88*-harris-cxux*) gdb_host=cxux ;; m88*-motorola-sysv4*) gdb_host=delta88v4 ;; m88*-motorola-sysv*) gdb_host=delta88 ;; m88*-*-mach3*) gdb_host=mach3 ;; m88*-*-*) gdb_host=m88k ;; mips-dec-mach3*) gdb_host=mach3 ;; mips-dec-*) gdb_host=decstation ;; mips-little-*) gdb_host=littlemips ;; mips-sgi-irix3*) gdb_host=irix3 ;; mips-sgi-irix4*) gdb_host=irix4 ;; mips-sgi-irix5*) gdb_host=irix5 ;; mips-sony-*) gdb_host=news-mips ;; mips-*-mach3*) gdb_host=mach3 ;; mips-*-sysv4*) gdb_host=mipsv4 ;; mips-*-sysv*) gdb_host=riscos ;; mips-*-riscos*) gdb_host=riscos ;; none-*-*) gdb_host=none ;; np1-*-*) gdb_host=np1 ;; ns32k-*-mach3*) gdb_host=mach3 ;; ns32k-umax-*) gdb_host=umax ;; ns32k-utek-sysv*) gdb_host=merlin ;; pn-*-*) gdb_host=pn ;; pyramid-*-*) gdb_host=pyramid ;; romp-*-*) gdb_host=rtbsd ;; rs6000-*-lynxos*) gdb_host=rs6000lynx ;; rs6000-*-*) gdb_host=rs6000 ;; sparc-*-lynxos*) gdb_host=sparclynx ;; sparc-*-solaris2*) gdb_host=sun4sol2 ;; sparc-*-sunos4*) gdb_host=sun4os4 ;; sparc-*-*) gdb_host=sun4os4 ;; tahoe-*-*) gdb_host=tahoe ;; vax-*-bsd*) gdb_host=vaxbsd ;; vax-*-ultrix2*) gdb_host=vaxult2 ;; vax-*-ultrix*) gdb_host=vaxult ;; esac if [ ! -f ${srcdir}/config/${gdb_host_cpu}/${gdb_host}.mh ]; then echo '***' "Gdb does not support host ${host}" 1>&2 exit 1 fi # We really shouldn't depend on there being a space after XM_FILE= ... hostfile=`awk '$1 == "XM_FILE=" { print $2 }' <${srcdir}/config/${gdb_host_cpu}/${gdb_host}.mh` # per-target: # Map target cpu into the config cpu subdirectory name. # The default is $target_cpu. case "${target_cpu}" in alpha) gdb_target_cpu=alpha ;; c[12]) gdb_target_cpu=convex ;; hppa*) gdb_target_cpu=pa ;; i[34]86) gdb_target_cpu=i386 ;; m68*) gdb_target_cpu=m68k ;; m88*) gdb_target_cpu=m88k ;; mips*) gdb_target_cpu=mips ;; np1) gdb_target_cpu=gould ;; pn) gdb_target_cpu=gould ;; pyramid) gdb_target_cpu=pyr ;; sparclite*) gdb_target_cpu=sparc configdirs="${configdirs} sparclite" ;; sparc*) gdb_target_cpu=sparc ;; *) gdb_target_cpu=$target_cpu ;; esac # map target info into gdb names. case "${target}" in a29k-*-aout*) gdb_target=a29k ;; a29k-*-coff*) gdb_target=a29k ;; a29k-*-elf*) gdb_target=a29k ;; a29k-*-ebmon*) gdb_target=a29k ;; a29k-*-kern*) gdb_target=a29k-kern ;; a29k-*-none*) gdb_target=a29k ;; a29k-*-sym1*) gdb_target=ultra3 ;; a29k-*-udi*) gdb_target=a29k-udi ;; alpha-*-osf*) gdb_target=alpha-osf1 ;; alpha-*-netware*) gdb_target=alpha-nw configdirs="${configdirs} nlm" ;; arm-*-*) gdb_target=arm ;; c1-*-*) gdb_target=convex ;; c2-*-*) gdb_target=convex ;; h8300-*-*) gdb_target=h8300hms ;; h8500-*-*) gdb_target=h8500hms ;; sh-*-*) gdb_target=sh ;; hppa*-*-bsd*) gdb_target=hppabsd ;; hppa*-*-hpux*) gdb_target=hppahpux ;; hppa*-*-hiux*) gdb_target=hppahpux ;; hppa*-*-osf*) gdb_target=hppaosf ;; i[34]86-sequent-bsd*) gdb_target=symmetry ;; i[34]86-sequent-sysv4*) gdb_target=ptx4 ;; i[34]86-sequent-sysv*) gdb_target=ptx ;; i[34]86-ncr-*) gdb_target=ncr3000 ;; i[34]86-*-aout*) gdb_target=i386aout ;; i[34]86-*-coff*) gdb_target=i386v ;; i[34]86-*-elf*) gdb_target=i386v ;; i[34]86-*-aix*) gdb_target=i386aix ;; i[34]86-*-bsd*) gdb_target=i386bsd ;; i[34]86-*-netbsd*) gdb_target=i386bsd ;; i[34]86-*-os9k) gdb_target=i386os9k ;; i[34]86-*-go32*) gdb_target=i386aout ;; i[34]86-*-lynxos*) gdb_target=i386lynx configdirs="${configdirs} gdbserver" ;; i[34]86-*-solaris*) gdb_target=i386sol2 ;; i[34]86-*-sunos*) gdb_target=sun386 ;; i[34]86-*-sysv4*) gdb_target=i386v4 ;; i[34]86-*-sco*) gdb_target=i386v ;; i[34]86-*-sysv*) gdb_target=i386v ;; i[34]86-*-linux*) gdb_target=linux ;; i[34]86-*-isc*) gdb_target=i386v ;; i[34]86-*-mach3*) gdb_target=i386m3 ;; i[34]86-*-mach*) gdb_target=i386mach ;; i[34]86-*-netware*) gdb_target=i386nw ;; i[34]86-*-osf1mk*) gdb_target=i386mk ;; i960-*-bout*) gdb_target=vxworks960 ;; i960-*-coff*) gdb_target=nindy960 ;; i960-*-elf*) gdb_target=nindy960 ;; i960-*-nindy*) gdb_target=nindy960 ;; i960-*-vxworks*) gdb_target=vxworks960 ;; m68000-*-sunos3*) gdb_target=sun2os3 ;; m68000-*-sunos4*) gdb_target=sun2os4 ;; m68*-apollo*-bsd*) gdb_target=apollo68b ;; m68*-bull-sysv*) gdb_target=dpx2 ;; m68*-hp-bsd*) gdb_target=hp300bsd ;; m68*-hp-hpux*) gdb_target=hp300hpux ;; m68*-altos-*) gdb_target=altos ;; m68*-att-*) gdb_target=3b1 ;; m68*-cisco*-*) gdb_target=cisco ;; m68*-ericsson-*) gdb_target=es1800 ;; m68*-isi-*) gdb_target=isi ;; m68*-motorola-*) gdb_target=delta68 ;; m68*-netx-*) gdb_target=vxworks68 ;; m68*-sony-*) gdb_target=news ;; m68*-tandem-*) gdb_target=st2000 ;; m68*-rom68k-*) gdb_target=monitor ;; m68*-*bug-*) gdb_target=monitor ;; m68*-monitor-*) gdb_target=monitor ;; m68*-*-aout*) gdb_target=monitor ;; m68*-*-coff*) gdb_target=monitor ;; m68*-*-elf*) gdb_target=monitor ;; m68*-*-lynxos*) gdb_target=m68klynx configdirs="${configdirs} gdbserver" ;; m68*-*-os68k*) gdb_target=os68k ;; m68*-*-sunos3*) gdb_target=sun3os3 ;; m68*-*-sunos4*) gdb_target=sun3os4 ;; m68*-*-sysv4*) gdb_target=m68kv4 ;; m68*-*-vxworks*) gdb_target=vxworks68 ;; m88*-harris-cxux*) gdb_target=cxux ;; m88*-motorola-sysv4*) gdb_target=delta88v4 ;; m88*-*-mach3*) gdb_target=mach3 ;; m88*-motorola-*) gdb_target=delta88 ;; m88*-*-*) gdb_target=m88k ;; mips64*-big-*) gdb_target=bigmips64 ;; mips*-big-*) gdb_target=bigmips ;; mips*-dec-mach3*) gdb_target=mach3 ;; mips*-dec-*) gdb_target=decstation ;; mips64*el-*-ecoff*) gdb_target=idtl64 ;; mips64*-idt-ecoff*) gdb_target=idt64 ;; mips64*el-*-elf*) gdb_target=idtl64 ;; mips64*-*-elf*) gdb_target=idt64 ;; mips*el-*-ecoff*) gdb_target=idtl ;; mips*-idt-ecoff*) gdb_target=idt ;; mips*el-*-elf*) gdb_target=idtl ;; mips*-*-elf*) gdb_target=idt ;; mips*-little-*) gdb_target=littlemips ;; mips*-sgi-irix5*) gdb_target=irix5 ;; mips*-sgi-*) gdb_target=irix3 ;; mips*-sony-*) gdb_target=bigmips ;; mips*-*-mach3*) gdb_target=mach3 ;; mips*-*-sysv4*) gdb_target=mipsv4 ;; mips*-*-sysv*) gdb_target=bigmips ;; mips*-*-riscos*) gdb_target=bigmips ;; none-*-*) gdb_target=none ;; np1-*-*) gdb_target=np1 ;; ns32k-*-mach3*) gdb_target=mach3 ;; ns32k-utek-sysv*) gdb_target=merlin ;; ns32k-utek-*) gdb_target=umax ;; pn-*-*) gdb_target=pn ;; pyramid-*-*) gdb_target=pyramid ;; rs6000-*-lynxos*) gdb_target=rs6000lynx ;; rs6000-*-*) gdb_target=rs6000 ;; sparc-*-aout*) gdb_target=sparc-em ;; sparc-*-coff*) gdb_target=sparc-em ;; sparc-*-elf*) gdb_target=sparc-em ;; sparc-*-lynxos*) gdb_target=sparclynx configdirs="${configdirs} gdbserver" ;; sparc-*-solaris2*) gdb_target=sun4sol2 ;; sparc-*-sunos4*) gdb_target=sun4os4 ;; sparc-*-vxworks*) gdb_target=vxsparc ;; sparc-*-*) gdb_target=sun4os4 ;; sparclite*-*-*) gdb_target=sparclite ;; sparc64-*-*) gdb_target=sp64 ;; tahoe-*-*) gdb_target=tahoe ;; vax-*-*) gdb_target=vax ;; z8k-*-sim*) gdb_target=z8ksim ;; z8k-*-coff*) gdb_target=z8ksim ;; esac if [ ! -f ${srcdir}/config/${gdb_target_cpu}/${gdb_target}.mt ]; then echo '***' "Gdb does not support target ${target}" 1>&2 exit 1 fi if [ -z "${removing}" ] ; then cat ${srcdir}/config/${gdb_host_cpu}/${gdb_host}.mh ${srcdir}/config/${gdb_target_cpu}/${gdb_target}.mt | awk '$1 == "#msg" { print substr($0,6)}' fi # We really shouldn't depend on there being a space after TM_FILE= ... targetfile=`awk '$1 == "TM_FILE=" { print $2 }' <${srcdir}/config/${gdb_target_cpu}/${gdb_target}.mt` # these really aren't orthogonal true/false values of the same condition, # but shells are slow enough that I like to reuse the test conditions # whenever possible # if [ "${target}" = "${host}" ] ; then nativefile=`awk '$1 == "NAT_FILE=" { print $2 }' <${srcdir}/config/${gdb_host_cpu}/${gdb_host}.mh` else # GDBserver is only useful in a "native" enviroment configdirs=`echo $configdirs | sed 's/gdbserver//'` fi host_makefile_frag=config/${gdb_host_cpu}/${gdb_host}.mh target_makefile_frag=config/${gdb_target_cpu}/${gdb_target}.mt # If hostfile (XM_FILE) and/or targetfile (TM_FILE) and/or nativefile # (NAT_FILE) is not set in the ?config/* file, we don't make the # corresponding links. But we have to remove the xm.h files and tm.h # files anyway, e.g. when switching from "configure host" to # "configure none". files= links= rm -f xm.h if [ "${hostfile}" != "" ]; then if [ -f ${srcdir}/config/${hostfile} ]; then files="${files} config/${hostfile}" else files="${files} config/${gdb_host_cpu}/${hostfile}" fi links="${links} xm.h" fi rm -f tm.h if [ "${targetfile}" != "" ]; then if [ -f ${srcdir}/config/${targetfile} ]; then files="${files} config/${targetfile}" else files="${files} config/${gdb_target_cpu}/${targetfile}" fi links="${links} tm.h" fi rm -f nm.h if [ "${nativefile}" != "" ]; then if [ -f ${srcdir}/config/${nativefile} ]; then files="${files} config/${nativefile}" else files="${files} config/${gdb_host_cpu}/${nativefile}" fi links="${links} nm.h" # temporary scaffolding until all hosts have the host/target/native # split in place. else files="${files} config/nm-trash.h" links="${links} nm.h" fi # post-target: case ${srcdir} in .) ;; *) grep "source ${srcdir}/.gdbinit" .gdbinit >/dev/null 2>/dev/null || \ echo "source ${srcdir}/.gdbinit" >> .gdbinit esac if [ "${nativefile}" = "" ] ; then sed -e '/^NATDEPFILES= /s//# NATDEPFILES= /' \ < Makefile > Makefile.tem mv -f Makefile.tem Makefile fi sed -e '/^TM_FILE[ ]*=/s,^TM_FILE[ ]*=[ ]*,&config/'"${gdb_target_cpu}"'/, /^XM_FILE[ ]*=/s,^XM_FILE[ ]*=[ ]*,&config/'"${gdb_host_cpu}"'/, /^NAT_FILE[ ]*=/s,^NAT_FILE[ ]*=[ ]*,&config/'"${gdb_host_cpu}"'/,' Makefile.tmp mv -f Makefile.tmp Makefile gdb-4.13/gdb/convex-pinsn.c 666 34562 1752 17344 5334170060 14113 0ustar fnfcygnus/* Print Convex instructions for GDB, the GNU debugger. Copyright 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" /* reg (fmt_field, inst_field) -- the {first,second,third} operand of instruction as fmt_field = [ijk] gets the value of the field from the [ijk] position of the instruction */ #define reg(a,b) ((char (*)[3])(op[fmt->a]))[inst.f0.b] /* lit (fmt_field) -- field [ijk] is a literal (PSW, VL, eg) */ #define lit(i) op[fmt->i] /* aj[j] -- name for A register j */ #define aj ((char (*)[3])(op[A])) union inst { struct { unsigned : 7; unsigned i : 3; unsigned j : 3; unsigned k : 3; unsigned : 16; unsigned : 32; } f0; struct { unsigned : 8; unsigned indir : 1; unsigned len : 1; unsigned j : 3; unsigned k : 3; unsigned : 16; unsigned : 32; } f1; unsigned char byte[8]; unsigned short half[4]; char signed_byte[8]; short signed_half[4]; }; struct opform { int mask; /* opcode mask */ int shift; /* opcode align */ struct formstr *formstr[3]; /* ST, E0, E1 */ }; struct formstr { unsigned lop:8, rop:5; /* opcode */ unsigned fmt:5; /* inst format */ unsigned i:5, j:5, k:2; /* operand formats */ }; #include "opcode/convex.h" CONST unsigned char formdecode [] = { 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, 4,4,4,4,4,4,4,4,5,5,5,5,6,6,7,8, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, }; CONST struct opform opdecode[] = { 0x7e00, 9, format0, e0_format0, e1_format0, 0x3f00, 8, format1, e0_format1, e1_format1, 0x1fc0, 6, format2, e0_format2, e1_format2, 0x0fc0, 6, format3, e0_format3, e1_format3, 0x0700, 8, format4, e0_format4, e1_format4, 0x03c0, 6, format5, e0_format5, e1_format5, 0x01f8, 3, format6, e0_format6, e1_format6, 0x00f8, 3, format7, e0_format7, e1_format7, 0x0000, 0, formatx, formatx, formatx, 0x0f80, 7, formatx, formatx, formatx, 0x0f80, 7, formatx, formatx, formatx, }; /* Print the instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; FILE *stream; { union inst inst; struct formstr *fmt; register int format, op1, pfx; int l; read_memory (memaddr, &inst, sizeof inst); /* Remove and note prefix, if present */ pfx = inst.half[0]; if ((pfx & 0xfff0) == 0x7ef0) { pfx = ((pfx >> 3) & 1) + 1; *(long long *) &inst = *(long long *) &inst.half[1]; } else pfx = 0; /* Split opcode into format.op1 and look up in appropriate table */ format = formdecode[inst.byte[0]]; op1 = (inst.half[0] & opdecode[format].mask) >> opdecode[format].shift; if (format == 9) { if (pfx) fmt = formatx; else if (inst.f1.j == 0) fmt = &format1a[op1]; else if (inst.f1.j == 1) fmt = &format1b[op1]; else fmt = formatx; } else fmt = &opdecode[format].formstr[pfx][op1]; /* Print it */ if (fmt->fmt == xxx) { /* noninstruction */ fprintf (stream, "0x%04x", pfx ? pfx : inst.half[0]); return 2; } if (pfx) pfx = 2; fprintf (stream, "%s%s%s", lop[fmt->lop], rop[fmt->rop], &" "[strlen(lop[fmt->lop]) + strlen(rop[fmt->rop])]); switch (fmt->fmt) { case rrr: /* three register */ fprintf (stream, "%s,%s,%s", reg(i,i), reg(j,j), reg(k,k)); return pfx + 2; case rr: /* two register */ fprintf (stream, "%s,%s", reg(i,j), reg(j,k)); return pfx + 2; case rxr: /* two register, reversed i and j fields */ fprintf (stream, "%s,%s", reg(i,k), reg(j,j)); return pfx + 2; case r: /* one register */ fprintf (stream, "%s", reg(i,k)); return pfx + 2; case nops: /* no operands */ return pfx + 2; case nr: /* short immediate, one register */ fprintf (stream, "#%d,%s", inst.f0.j, reg(i,k)); return pfx + 2; case pcrel: /* pc relative */ print_address (memaddr + 2 * inst.signed_byte[1], stream); return pfx + 2; case lr: /* literal, one register */ fprintf (stream, "%s,%s", lit(i), reg(j,k)); return pfx + 2; case rxl: /* one register, literal */ fprintf (stream, "%s,%s", reg(i,k), lit(j)); return pfx + 2; case rlr: /* register, literal, register */ fprintf (stream, "%s,%s,%s", reg(i,j), lit(j), reg(k,k)); return pfx + 2; case rrl: /* register, register, literal */ fprintf (stream, "%s,%s,%s", reg(i,j), reg(j,k), lit(k)); return pfx + 2; case iml: /* immediate, literal */ if (inst.f1.len) { fprintf (stream, "#%#x,%s", (inst.signed_half[1] << 16) + inst.half[2], lit(i)); return pfx + 6; } else { fprintf (stream, "#%d,%s", inst.signed_half[1], lit(i)); return pfx + 4; } case imr: /* immediate, register */ if (inst.f1.len) { fprintf (stream, "#%#x,%s", (inst.signed_half[1] << 16) + inst.half[2], reg(i,k)); return pfx + 6; } else { fprintf (stream, "#%d,%s", inst.signed_half[1], reg(i,k)); return pfx + 4; } case a1r: /* memory, register */ l = print_effa (inst, stream); fprintf (stream, ",%s", reg(i,k)); return pfx + l; case a1l: /* memory, literal */ l = print_effa (inst, stream); fprintf (stream, ",%s", lit(i)); return pfx + l; case a2r: /* register, memory */ fprintf (stream, "%s,", reg(i,k)); return pfx + print_effa (inst, stream); case a2l: /* literal, memory */ fprintf (stream, "%s,", lit(i)); return pfx + print_effa (inst, stream); case a3: /* memory */ return pfx + print_effa (inst, stream); case a4: /* system call */ l = 29; goto a4a5; case a5: /* trap */ l = 27; a4a5: if (inst.f1.len) { unsigned int m = (inst.signed_half[1] << 16) + inst.half[2]; fprintf (stream, "#%d,#%d", m >> l, m & (-1 >> (32-l))); return pfx + 6; } else { unsigned int m = inst.signed_half[1]; fprintf (stream, "#%d,#%d", m >> l, m & (-1 >> (32-l))); return pfx + 4; } } } /* print effective address @nnn(aj), return instruction length */ int print_effa (inst, stream) union inst inst; FILE *stream; { int n, l; if (inst.f1.len) { n = (inst.signed_half[1] << 16) + inst.half[2]; l = 6; } else { n = inst.signed_half[1]; l = 4; } if (inst.f1.indir) printf ("@"); if (!inst.f1.j) { print_address (n, stream); return l; } fprintf (stream, (n & 0xf0000000) == 0x80000000 ? "%#x(%s)" : "%d(%s)", n, aj[inst.f1.j]); return l; } gdb-4.13/gdb/convex-tdep.c 666 34562 1752 62462 5512362440 13724 0ustar fnfcygnus/* Convex stuff for GDB. Copyright (C) 1990, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "command.h" #include "symtab.h" #include "value.h" #include "frame.h" #include "inferior.h" #include "wait.h" #include #include #include "gdbcore.h" #include #include #include #include #include #include #include #include #include #include #include "gdbcmd.h" exec_file_command (filename, from_tty) char *filename; int from_tty; { int val; int n; struct stat st_exec; /* Eliminate all traces of old exec file. Mark text segment as empty. */ if (execfile) free (execfile); execfile = 0; data_start = 0; data_end = 0; text_start = 0; text_end = 0; exec_data_start = 0; exec_data_end = 0; if (execchan >= 0) close (execchan); execchan = -1; n_exec = 0; /* Now open and digest the file the user requested, if any. */ if (filename) { filename = tilde_expand (filename); make_cleanup (free, filename); execchan = openp (getenv ("PATH"), 1, filename, O_RDONLY, 0, &execfile); if (execchan < 0) perror_with_name (filename); if (myread (execchan, &filehdr, sizeof filehdr) < 0) perror_with_name (filename); if (! IS_SOFF_MAGIC (filehdr.h_magic)) error ("%s: not an executable file.", filename); if (myread (execchan, &opthdr, filehdr.h_opthdr) <= 0) perror_with_name (filename); /* Read through the section headers. For text, data, etc, record an entry in the exec file map. Record text_start and text_end. */ lseek (execchan, (long) filehdr.h_scnptr, 0); for (n = 0; n < filehdr.h_nscns; n++) { if (myread (execchan, &scnhdr, sizeof scnhdr) < 0) perror_with_name (filename); if ((scnhdr.s_flags & S_TYPMASK) >= S_TEXT && (scnhdr.s_flags & S_TYPMASK) <= S_COMON) { exec_map[n_exec].mem_addr = scnhdr.s_vaddr; exec_map[n_exec].mem_end = scnhdr.s_vaddr + scnhdr.s_size; exec_map[n_exec].file_addr = scnhdr.s_scnptr; exec_map[n_exec].type = scnhdr.s_flags & S_TYPMASK; n_exec++; if ((scnhdr.s_flags & S_TYPMASK) == S_TEXT) { text_start = scnhdr.s_vaddr; text_end = scnhdr.s_vaddr + scnhdr.s_size; } } } fstat (execchan, &st_exec); exec_mtime = st_exec.st_mtime; validate_files (); } else if (from_tty) printf_filtered ("No exec file now.\n"); /* Tell display code (if any) about the changed file name. */ if (exec_file_display_hook) (*exec_file_display_hook) (filename); } /* Read data from SOFF exec or core file. Return 0 on success, EIO if address out of bounds. */ int xfer_core_file (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; register int n; register int val; int xferchan; char **xferfile; int fileptr; int returnval = 0; while (len > 0) { xferfile = 0; xferchan = 0; /* Determine which file the next bunch of addresses reside in, and where in the file. Set the file's read/write pointer to point at the proper place for the desired address and set xferfile and xferchan for the correct file. If desired address is nonexistent, leave them zero. i is set to the number of bytes that can be handled along with the next address. */ i = len; for (n = 0; n < n_core; n++) { if (memaddr >= core_map[n].mem_addr && memaddr < core_map[n].mem_end && (core_map[n].thread == -1 || core_map[n].thread == inferior_thread)) { i = min (len, core_map[n].mem_end - memaddr); fileptr = core_map[n].file_addr + memaddr - core_map[n].mem_addr; if (core_map[n].file_addr) { xferfile = &corefile; xferchan = corechan; } break; } else if (core_map[n].mem_addr >= memaddr && core_map[n].mem_addr < memaddr + i) i = core_map[n].mem_addr - memaddr; } if (!xferfile) for (n = 0; n < n_exec; n++) { if (memaddr >= exec_map[n].mem_addr && memaddr < exec_map[n].mem_end) { i = min (len, exec_map[n].mem_end - memaddr); fileptr = exec_map[n].file_addr + memaddr - exec_map[n].mem_addr; if (exec_map[n].file_addr) { xferfile = &execfile; xferchan = execchan; } break; } else if (exec_map[n].mem_addr >= memaddr && exec_map[n].mem_addr < memaddr + i) i = exec_map[n].mem_addr - memaddr; } /* Now we know which file to use. Set up its pointer and transfer the data. */ if (xferfile) { if (*xferfile == 0) if (xferfile == &execfile) error ("No program file to examine."); else error ("No core dump file or running program to examine."); val = lseek (xferchan, fileptr, 0); if (val < 0) perror_with_name (*xferfile); val = myread (xferchan, myaddr, i); if (val < 0) perror_with_name (*xferfile); } /* If this address is for nonexistent memory, read zeros if reading, or do nothing if writing. */ else { memset (myaddr, '\0', i); returnval = EIO; } memaddr += i; myaddr += i; len -= i; } return returnval; } /* Here from info files command to print an address map. */ print_maps () { struct pmap ptrs[200]; int n; /* ID strings for core and executable file sections */ static char *idstr[] = { "0", "text", "data", "tdata", "bss", "tbss", "common", "ttext", "ctx", "tctx", "10", "11", "12", }; for (n = 0; n < n_core; n++) { core_map[n].which = 0; ptrs[n] = core_map[n]; } for (n = 0; n < n_exec; n++) { exec_map[n].which = 1; ptrs[n_core+n] = exec_map[n]; } qsort (ptrs, n_core + n_exec, sizeof *ptrs, ptr_cmp); for (n = 0; n < n_core + n_exec; n++) { struct pmap *p = &ptrs[n]; if (n > 0) { if (p->mem_addr < ptrs[n-1].mem_end) p->mem_addr = ptrs[n-1].mem_end; if (p->mem_addr >= p->mem_end) continue; } printf_filtered ("%08x .. %08x %-6s %s\n", p->mem_addr, p->mem_end, idstr[p->type], p->which ? execfile : corefile); } } /* Compare routine to put file sections in order. Sort into increasing order on address, and put core file sections before exec file sections if both files contain the same addresses. */ static ptr_cmp (a, b) struct pmap *a, *b; { if (a->mem_addr != b->mem_addr) return a->mem_addr - b->mem_addr; return a->which - b->which; } /* Trapped internal variables are used to handle special registers. A trapped i.v. calls a hook here every time it is dereferenced, to provide a new value for the variable, and it calls a hook here when a new value is assigned, to do something with the value. The vector registers are $vl, $vs, $vm, $vN, $VN (N in 0..7). The communication registers are $cN, $CN (N in 0..63). They not handled as regular registers because it's expensive to read them, and their size varies, and they have too many names. */ /* Return 1 if NAME is a trapped internal variable, else 0. */ int is_trapped_internalvar (name) char *name; { if ((name[0] == 'c' || name[0] == 'C') && name[1] >= '0' && name[1] <= '9' && (name[2] == '\0' || (name[2] >= '0' && name[2] <= '9' && name[3] == '\0' && name[1] != '0')) && atoi (&name[1]) < 64) return 1; if ((name[0] == 'v' || name[0] == 'V') && (((name[1] & -8) == '0' && name[2] == '\0') || STREQ (name, "vl") || STREQ (name, "vs") || STREQ (name, "vm"))) return 1; else return 0; } /* Return the value of trapped internal variable VAR */ value value_of_trapped_internalvar (var) struct internalvar *var; { char *name = var->name; value val; struct type *type; struct type *range_type; long len = *read_vector_register (VL_REGNUM); if (len <= 0 || len > 128) len = 128; if (STREQ (name, "vl")) { val = value_from_longest (builtin_type_int, (LONGEST) *read_vector_register_1 (VL_REGNUM)); } else if (STREQ (name, "vs")) { val = value_from_longest (builtin_type_int, (LONGEST) *read_vector_register_1 (VS_REGNUM)); } else if (STREQ (name, "vm")) { long vm[4]; long i, *p; memcpy (vm, read_vector_register_1 (VM_REGNUM), sizeof vm); range_type = create_range_type ((struct type *) NULL, builtin_type_int, 0, len - 1); type = create_array_type ((struct type *) NULL, builtin_type_int, range_type); val = allocate_value (type); p = (long *) VALUE_CONTENTS (val); for (i = 0; i < len; i++) *p++ = !! (vm[3 - (i >> 5)] & (1 << (i & 037))); } else if (name[0] == 'V') { range_type = create_range_type ((struct type *) NULL, builtin_type_int 0, len - 1); type = create_array_type ((struct type *) NULL, builtin_type_long_long, range_type); val = allocate_value (type); memcpy (VALUE_CONTENTS (val), read_vector_register_1 (name[1] - '0'), TYPE_LENGTH (type)); } else if (name[0] == 'v') { long *p1, *p2; range_type = create_range_type ((struct type *) NULL, builtin_type_int 0, len - 1); type = create_array_type ((struct type *) NULL, builtin_type_long, range_type); val = allocate_value (type); p1 = read_vector_register_1 (name[1] - '0'); p2 = (long *) VALUE_CONTENTS (val); while (--len >= 0) {p1++; *p2++ = *p1++;} } else if (name[0] == 'c') val = value_from_longest (builtin_type_int, read_comm_register (atoi (&name[1]))); else if (name[0] == 'C') val = value_from_longest (builtin_type_long_long, read_comm_register (atoi (&name[1]))); VALUE_LVAL (val) = lval_internalvar; VALUE_INTERNALVAR (val) = var; return val; } /* Handle a new value assigned to a trapped internal variable */ void set_trapped_internalvar (var, val, bitpos, bitsize, offset) struct internalvar *var; value val; int bitpos, bitsize, offset; { char *name = var->name; long long newval = value_as_long (val); if (STREQ (name, "vl")) write_vector_register (VL_REGNUM, 0, newval); else if (STREQ (name, "vs")) write_vector_register (VS_REGNUM, 0, newval); else if (name[0] == 'c' || name[0] == 'C') write_comm_register (atoi (&name[1]), newval); else if (STREQ (name, "vm")) error ("can't assign to $vm"); else { offset /= bitsize / 8; write_vector_register (name[1] - '0', offset, newval); } } /* Print an integer value when no format was specified. gdb normally prints these values in decimal, but the the leading 0x80000000 of pointers produces intolerable 10-digit negative numbers. If it looks like an address, print it in hex instead. */ decout (stream, type, val) FILE *stream; struct type *type; LONGEST val; { long lv = val; switch (output_radix) { case 0: if ((lv == val || (unsigned) lv == val) && ((lv & 0xf0000000) == 0x80000000 || ((lv & 0xf0000000) == 0xf0000000 && lv < STACK_END_ADDR))) { fprintf_filtered (stream, "%#x", lv); return; } case 10: fprintf_filtered (stream, TYPE_UNSIGNED (type) ? "%llu" : "%lld", val); return; case 8: if (TYPE_LENGTH (type) <= sizeof lv) fprintf_filtered (stream, "%#o", lv); else fprintf_filtered (stream, "%#llo", val); return; case 16: if (TYPE_LENGTH (type) <= sizeof lv) fprintf_filtered (stream, "%#x", lv); else fprintf_filtered (stream, "%#llx", val); return; } } /* Change the default output radix to 10 or 16, or set it to 0 (heuristic). This command is mostly obsolete now that the print command allows formats to apply to aggregates, but is still handy occasionally. */ static void set_base_command (arg) char *arg; { int new_radix; if (!arg) output_radix = 0; else { new_radix = atoi (arg); if (new_radix != 10 && new_radix != 16 && new_radix != 8) error ("base must be 8, 10 or 16, or null"); else output_radix = new_radix; } } /* Turn pipelining on or off in the inferior. */ static void set_pipelining_command (arg) char *arg; { if (!arg) { sequential = !sequential; printf_filtered ("%s\n", sequential ? "off" : "on"); } else if (STREQ (arg, "on")) sequential = 0; else if (STREQ (arg, "off")) sequential = 1; else error ("valid args are `on', to allow instructions to overlap, or\n\ `off', to prevent it and thereby pinpoint exceptions."); } /* Enable, disable, or force parallel execution in the inferior. */ static void set_parallel_command (arg) char *arg; { struct rlimit rl; int prevparallel = parallel; if (!strncmp (arg, "fixed", strlen (arg))) parallel = 2; else if (STREQ (arg, "on")) parallel = 1; else if (STREQ (arg, "off")) parallel = 0; else error ("valid args are `on', to allow multiple threads, or\n\ `fixed', to force multiple threads, or\n\ `off', to run with one thread only."); if ((prevparallel == 0) != (parallel == 0) && inferior_pid) printf_filtered ("will take effect at next run.\n"); getrlimit (RLIMIT_CONCUR, &rl); rl.rlim_cur = parallel ? rl.rlim_max : 1; setrlimit (RLIMIT_CONCUR, &rl); if (inferior_pid) set_fixed_scheduling (inferior_pid, parallel == 2); } /* Add a new name for an existing command. */ static void alias_command (arg) char *arg; { static char *aliaserr = "usage is `alias NEW OLD', no args allowed"; char *newname = arg; struct cmd_list_element *new, *old; if (!arg) error_no_arg ("newname oldname"); new = lookup_cmd (&arg, cmdlist, "", -1); if (new && !strncmp (newname, new->name, strlen (new->name))) { newname = new->name; if (!(*arg == '-' || (*arg >= 'a' && *arg <= 'z') || (*arg >= 'A' && *arg <= 'Z') || (*arg >= '0' && *arg <= '9'))) error (aliaserr); } else { arg = newname; while (*arg == '-' || (*arg >= 'a' && *arg <= 'z') || (*arg >= 'A' && *arg <= 'Z') || (*arg >= '0' && *arg <= '9')) arg++; if (*arg != ' ' && *arg != '\t') error (aliaserr); *arg = '\0'; arg++; } old = lookup_cmd (&arg, cmdlist, "", 0); if (*arg != '\0') error (aliaserr); if (new && !strncmp (newname, new->name, strlen (new->name))) { char *tem; if (new->class == (int) class_user || new->class == (int) class_alias) tem = "Redefine command \"%s\"? "; else tem = "Really redefine built-in command \"%s\"? "; if (!query (tem, new->name)) error ("Command \"%s\" not redefined.", new->name); } add_com (newname, class_alias, old->function, old->doc); } /* Print the current thread number, and any threads with signals in the queue. */ thread_info () { struct threadpid *p; if (have_inferior_p ()) { ps.pi_buffer = (char *) &comm_registers; ps.pi_nbytes = sizeof comm_registers; ps.pi_offset = 0; ps.pi_thread = inferior_thread; ioctl (inferior_fd, PIXRDCREGS, &ps); } /* FIXME: stop_signal is from target.h but stop_sigcode is a convex-specific thing. */ printf_filtered ("Current thread %d stopped with signal %d.%d (%s).\n", inferior_thread, stop_signal, stop_sigcode, subsig_name (stop_signal, stop_sigcode)); for (p = signal_stack; p->pid; p--) printf_filtered ("Thread %d stopped with signal %d.%d (%s).\n", p->thread, p->signo, p->subsig, subsig_name (p->signo, p->subsig)); if (iscrlbit (comm_registers.crctl.lbits.cc, 64+13)) printf_filtered ("New thread start pc %#x\n", (long) (comm_registers.crreg.pcpsw >> 32)); } /* Return string describing a signal.subcode number */ static char * subsig_name (signo, subcode) int signo, subcode; { static char *subsig4[] = { "error exit", "privileged instruction", "unknown", "unknown", "undefined opcode", 0}; static char *subsig5[] = {0, "breakpoint", "single step", "fork trap", "exec trap", "pfork trap", "join trap", "idle trap", "last thread", "wfork trap", "process breakpoint", "trap instruction", 0}; static char *subsig8[] = {0, "int overflow", "int divide check", "float overflow", "float divide check", "float underflow", "reserved operand", "sqrt error", "exp error", "ln error", "sin error", "cos error", 0}; static char *subsig10[] = {0, "invalid inward ring address", "invalid outward ring call", "invalid inward ring return", "invalid syscall gate", "invalid rtn frame length", "invalid comm reg address", "invalid trap gate", 0}; static char *subsig11[] = {0, "read access denied", "write access denied", "execute access denied", "segment descriptor fault", "page table fault", "data reference fault", "i/o access denied", "levt pte invalid", 0}; static char **subsig_list[] = {0, 0, 0, 0, subsig4, subsig5, 0, 0, subsig8, 0, subsig10, subsig11, 0}; int i; char *p; if ((p = strsignal (signo)) == NULL) p = "unknown"; if (signo >= (sizeof subsig_list / sizeof *subsig_list) || !subsig_list[signo]) return p; for (i = 1; subsig_list[signo][i]; i++) if (i == subcode) return subsig_list[signo][subcode]; return p; } /* Print a compact display of thread status, essentially x/i $pc for all active threads. */ static void threadstat () { int t; for (t = 0; t < n_threads; t++) if (thread_state[t] == PI_TALIVE) { printf_filtered ("%d%c %08x%c %d.%d ", t, (t == inferior_thread ? '*' : ' '), thread_pc[t], (thread_is_in_kernel[t] ? '#' : ' '), thread_signal[t], thread_sigcode[t]); print_insn (thread_pc[t], stdout); printf_filtered ("\n"); } } /* Change the current thread to ARG. */ set_thread_command (arg) char *arg; { int thread; if (!arg) { threadstat (); return; } thread = parse_and_eval_address (arg); if (thread < 0 || thread > n_threads || thread_state[thread] != PI_TALIVE) error ("no such thread."); select_thread (thread); stop_pc = read_pc (); flush_cached_frames (); set_current_frame (create_new_frame (read_register (FP_REGNUM), read_pc ())); select_frame (get_current_frame (), 0); print_stack_frame (selected_frame, selected_frame_level, -1); } /* Here on CONT command; gdb's dispatch address is changed to come here. Set global variable ALL_CONTINUE to tell resume() that it should start up all threads, and that a thread switch will not blow gdb's mind. */ static void convex_cont_command (proc_count_exp, from_tty) char *proc_count_exp; int from_tty; { all_continue = 1; cont_command (proc_count_exp, from_tty); } /* Here on 1CONT command. Resume only the current thread. */ one_cont_command (proc_count_exp, from_tty) char *proc_count_exp; int from_tty; { cont_command (proc_count_exp, from_tty); } /* Print the contents and lock bits of all communication registers, or just register ARG if ARG is a communication register, or the 3-word resource structure in memory at address ARG. */ comm_registers_info (arg) char *arg; { int i, regnum; if (arg) { if (sscanf (arg, "$c%d", ®num) == 1) { ; } else if (sscanf (arg, "$C%d", ®num) == 1) { ; } else { regnum = parse_and_eval_address (arg); if (regnum > 0) regnum &= ~0x8000; } if (regnum >= 64) error ("%s: invalid register name.", arg); /* if we got a (user) address, examine the resource struct there */ if (regnum < 0) { static int buf[3]; read_memory (regnum, buf, sizeof buf); printf_filtered ("%08x %08x%08x%s\n", regnum, buf[1], buf[2], buf[0] & 0xff ? " locked" : ""); return; } } ps.pi_buffer = (char *) &comm_registers; ps.pi_nbytes = sizeof comm_registers; ps.pi_offset = 0; ps.pi_thread = inferior_thread; ioctl (inferior_fd, PIXRDCREGS, &ps); for (i = 0; i < 64; i++) if (!arg || i == regnum) printf_filtered ("%2d 0x8%03x %016llx%s\n", i, i, comm_registers.crreg.r4[i], (iscrlbit (comm_registers.crctl.lbits.cc, i) ? " locked" : "")); } /* Print the psw */ static void psw_info (arg) char *arg; { struct pswbit { int bit; int pos; char *text; }; static struct pswbit pswbit[] = { { 0x80000000, -1, "A carry" }, { 0x40000000, -1, "A integer overflow" }, { 0x20000000, -1, "A zero divide" }, { 0x10000000, -1, "Integer overflow enable" }, { 0x08000000, -1, "Trace" }, { 0x06000000, 25, "Frame length" }, { 0x01000000, -1, "Sequential" }, { 0x00800000, -1, "S carry" }, { 0x00400000, -1, "S integer overflow" }, { 0x00200000, -1, "S zero divide" }, { 0x00100000, -1, "Zero divide enable" }, { 0x00080000, -1, "Floating underflow" }, { 0x00040000, -1, "Floating overflow" }, { 0x00020000, -1, "Floating reserved operand" }, { 0x00010000, -1, "Floating zero divide" }, { 0x00008000, -1, "Floating error enable" }, { 0x00004000, -1, "Floating underflow enable" }, { 0x00002000, -1, "IEEE" }, { 0x00001000, -1, "Sequential stores" }, { 0x00000800, -1, "Intrinsic error" }, { 0x00000400, -1, "Intrinsic error enable" }, { 0x00000200, -1, "Trace thread creates" }, { 0x00000100, -1, "Thread init trap" }, { 0x000000e0, 5, "Reserved" }, { 0x0000001f, 0, "Intrinsic error code" }, {0, 0, 0}, }; long psw; struct pswbit *p; if (arg) psw = parse_and_eval_address (arg); else psw = read_register (PS_REGNUM); for (p = pswbit; p->bit; p++) { if (p->pos < 0) printf_filtered ("%08x %s %s\n", p->bit, (psw & p->bit) ? "yes" : "no ", p->text); else printf_filtered ("%08x %3d %s\n", p->bit, (psw & p->bit) >> p->pos, p->text); } } void _initialize_convex_dep () { add_com ("alias", class_support, alias_command, "Add a new name for an existing command."); add_cmd ("base", class_vars, set_base_command, "Change the integer output radix to 8, 10 or 16\n\ or use just `set base' with no args to return to the ad-hoc default,\n\ which is 16 for integers that look like addresses, 10 otherwise.", &setlist); add_cmd ("pipeline", class_run, set_pipelining_command, "Enable or disable overlapped execution of instructions.\n\ With `set pipe off', exceptions are reported with\n\ $pc pointing at the instruction after the faulting one.\n\ The default is `set pipe on', which runs faster.", &setlist); add_cmd ("parallel", class_run, set_parallel_command, "Enable or disable multi-threaded execution of parallel code.\n\ `set parallel off' means run the program on a single CPU.\n\ `set parallel fixed' means run the program with all CPUs assigned to it.\n\ `set parallel on' means run the program on any CPUs that are available.", &setlist); add_com ("1cont", class_run, one_cont_command, "Continue the program, activating only the current thread.\n\ Args are the same as the `cont' command."); add_com ("thread", class_run, set_thread_command, "Change the current thread, the one under scrutiny and control.\n\ With no arg, show the active threads, the current one marked with *."); add_info ("threads", thread_info, "List status of active threads."); add_info ("comm-registers", comm_registers_info, "List communication registers and their contents.\n\ A communication register name as argument means describe only that register.\n\ An address as argument means describe the resource structure at that address.\n\ `Locked' means that the register has been sent to but not yet received from."); add_info ("psw", psw_info, "Display $ps, the processor status word, bit by bit.\n\ An argument means display that value's interpretation as a psw."); add_cmd ("convex", no_class, 0, "Convex-specific commands.\n\ 32-bit registers $pc $ps $sp $ap $fp $a1-5 $s0-7 $v0-7 $vl $vs $vm $c0-63\n\ 64-bit registers $S0-7 $V0-7 $C0-63\n\ \n\ info threads display info on stopped threads waiting to signal\n\ thread display list of active threads\n\ thread N select thread N (its registers, stack, memory, etc.)\n\ step, next, etc step selected thread only\n\ 1cont continue selected thread only\n\ cont continue all threads\n\ info comm-registers display contents of comm register(s) or a resource struct\n\ info psw display processor status word $ps\n\ set base N change integer radix used by `print' without a format\n\ set pipeline off exceptions are precise, $pc points after the faulting insn\n\ set pipeline on normal mode, $pc is somewhere ahead of faulting insn\n\ set parallel off program runs on a single CPU\n\ set parallel fixed all CPUs are assigned to the program\n\ set parallel on normal mode, parallel execution on random available CPUs\n\ ", &cmdlist); } gdb-4.13/gdb/convex-xdep.c 666 34562 1752 62411 5512362443 13725 0ustar fnfcygnus/* Convex host-dependent code for GDB. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "command.h" #include "symtab.h" #include "value.h" #include "frame.h" #include "inferior.h" #include "wait.h" #include #include #include "gdbcore.h" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* Per-thread data, read from the inferior at each stop and written back at each resume. */ /* Number of active threads. Tables are valid for thread numbers less than this. */ static int n_threads; #define MAXTHREADS 8 /* Thread state. The remaining data is valid only if this is PI_TALIVE. */ static int thread_state[MAXTHREADS]; /* Stop pc, signal, signal subcode */ static int thread_pc[MAXTHREADS]; static int thread_signal[MAXTHREADS]; static int thread_sigcode[MAXTHREADS]; /* Thread registers. If thread is selected, the regs are in registers[] instead. */ static char thread_regs[MAXTHREADS][REGISTER_BYTES]; /* 1 if the top frame on the thread's stack was a context frame, meaning that the kernel is up to something and we should not touch the thread at all except to resume it. */ static char thread_is_in_kernel[MAXTHREADS]; /* The currently selected thread's number. */ static int inferior_thread; /* Inferior process's file handle and a process control block to feed args to ioctl with. */ static int inferior_fd; static struct pcntl ps; /* SOFF file headers for exec or core file. */ static FILEHDR filehdr; static OPTHDR opthdr; static SCNHDR scnhdr; /* Address maps constructed from section headers of exec and core files. Defines process address -> file address translation. */ struct pmap { long mem_addr; /* process start address */ long mem_end; /* process end+1 address */ long file_addr; /* file start address */ long thread; /* -1 shared; 0,1,... thread-local */ long type; /* S_TEXT S_DATA S_BSS S_TBSS etc */ long which; /* used to sort map for info files */ }; static int n_exec, n_core; static struct pmap exec_map[100]; static struct pmap core_map[100]; /* Offsets in the core file of core_context and core_tcontext blocks. */ static int context_offset; static int tcontext_offset[MAXTHREADS]; /* Core file control blocks. */ static struct core_context_v70 c; static struct core_tcontext_v70 tc; static struct user u; static thread_t th; static proc_t pr; /* The registers of the currently selected thread. */ extern char registers[REGISTER_BYTES]; /* Vector and communication registers from core dump or from inferior. These are read on demand, ie, not normally valid. */ static struct vecst vector_registers; static struct creg_ctx comm_registers; /* Flag, set on a vanilla CONT command and cleared when the inferior is continued. */ static int all_continue; /* Flag, set when the inferior is continued by a vanilla CONT command, cleared if it is continued for any other purpose. */ static int thread_switch_ok; /* Stack of signals recieved from threads but not yet delivered to gdb. */ struct threadpid { int pid; int thread; int signo; int subsig; int pc; }; static struct threadpid signal_stack_bot[100]; static struct threadpid *signal_stack = signal_stack_bot; /* How to detect empty stack -- bottom frame is all zero. */ #define signal_stack_is_empty() (signal_stack->pid == 0) /* Mode controlled by SET PIPE command, controls the psw SEQ bit which forces each instruction to complete before the next one starts. */ static int sequential = 0; /* Mode controlled by the SET PARALLEL command. Values are: 0 concurrency limit 1 thread, dynamic scheduling 1 no concurrency limit, dynamic scheduling 2 no concurrency limit, fixed scheduling */ static int parallel = 1; /* Mode controlled by SET BASE command, output radix for unformatted integer typeout, as in argument lists, aggregates, and so on. Zero means guess whether it's an address (hex) or not (decimal). */ static int output_radix = 0; /* Signal subcode at last thread stop. */ static int stop_sigcode; /* Hack, see wait() below. */ static int exec_trap_timer; #include "gdbcmd.h" static struct type *vector_type (); static long *read_vector_register (); static long *read_vector_register_1 (); static void write_vector_register (); static unsigned LONGEST read_comm_register (); static void write_comm_register (); static void convex_cont_command (); static void thread_continue (); static void select_thread (); static void scan_stack (); static void set_fixed_scheduling (); static char *subsig_name (); static void psw_info (); static sig_noop (); static ptr_cmp (); /* Execute ptrace. Convex V7 replaced ptrace with pattach. Allow ptrace (0) as a no-op. */ int call_ptrace (request, pid, procaddr, buf) int request, pid; PTRACE_ARG3_TYPE procaddr; int buf; { if (request == 0) return; error ("no ptrace"); } /* Replacement for system execle routine. Convert it to an equivalent exect, which pattach insists on. */ execle (name, argv) char *name, *argv; { char ***envp = (char ***) &argv; while (*envp++) ; signal (SIGTRAP, sig_noop); exect (name, &argv, *envp); } /* Stupid handler for stupid trace trap that otherwise causes startup to stupidly hang. */ static sig_noop () {} /* Read registers from inferior into registers[] array. For convex, they are already there, read in when the inferior stops. */ void fetch_inferior_registers (regno) int regno; { } /* Store our register values back into the inferior. For Convex, do this only once, right before resuming inferior. */ void store_inferior_registers (regno) int regno; { } /* Copy LEN bytes from inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. On failure (cannot read from inferior, usually because address is out of bounds) returns the value of errno. */ int read_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { errno = 0; while (len > 0) { /* little-known undocumented max request size */ int i = (len < 12288) ? len : 12288; lseek (inferior_fd, memaddr, 0); read (inferior_fd, myaddr, i); memaddr += i; myaddr += i; len -= i; } if (errno) memset (myaddr, '\0', len); return errno; } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns errno on failure (cannot write the inferior) */ int write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { errno = 0; lseek (inferior_fd, memaddr, 0); write (inferior_fd, myaddr, len); return errno; } /* Here from create_inferior when the inferior process has been created and started up. We must do a pattach to grab it for debugging. Also, intercept the CONT command by altering its dispatch address. */ /* FIXME: This used to be called from a macro CREATE_INFERIOR_HOOK. But now init_trace_fun is in the same place. So re-write this to use the init_trace_fun (making convex a debugging target). */ create_inferior_hook (pid) int pid; { static char cont[] = "cont"; static char cont1[] = "c"; char *linep = cont; char *linep1 = cont1; char **line = &linep; char **line1 = &linep1; struct cmd_list_element *c; c = lookup_cmd (line, cmdlist, "", 0); c->function = convex_cont_command; c = lookup_cmd (line1, cmdlist, "", 0); c->function = convex_cont_command; inferior_fd = pattach (pid, O_EXCL); if (inferior_fd < 0) perror_with_name ("pattach"); inferior_thread = 0; set_fixed_scheduling (pid, parallel == 2); } /* Attach process PID for debugging. */ attach (pid) int pid; { int fd = pattach (pid, O_EXCL); if (fd < 0) perror_with_name ("pattach"); attach_flag = 1; /* wait for strange kernel reverberations to go away */ sleep (1); setpgrp (pid, pid); inferior_fd = fd; inferior_thread = 0; return pid; } /* Stop debugging the process whose number is PID and continue it with signal number SIGNAL. SIGNAL = 0 means just continue it. */ void detach (signal) int signal; { signal_stack = signal_stack_bot; thread_continue (-1, 0, signal); ioctl (inferior_fd, PIXDETACH, &ps); close (inferior_fd); inferior_fd = 0; attach_flag = 0; } /* Kill off the inferior process. */ kill_inferior () { if (inferior_pid == 0) return; ioctl (inferior_fd, PIXTERMINATE, 0); wait (0); target_mourn_inferior (); } /* Read vector register REG, and return a pointer to the value. */ static long * read_vector_register (reg) int reg; { if (have_inferior_p ()) { errno = 0; ps.pi_buffer = (char *) &vector_registers; ps.pi_nbytes = sizeof vector_registers; ps.pi_offset = 0; ps.pi_thread = inferior_thread; ioctl (inferior_fd, PIXRDVREGS, &ps); if (errno) memset (&vector_registers, '\0', sizeof vector_registers); } else if (corechan >= 0) { lseek (corechan, tcontext_offset[inferior_thread], 0); if (myread (corechan, &tc, sizeof tc) < 0) perror_with_name (corefile); lseek (corechan, tc.core_thread_p, 0); if (myread (corechan, &th, sizeof th) < 0) perror_with_name (corefile); lseek (corechan, tc.core_vregs_p, 0); if (myread (corechan, &vector_registers, 16*128) < 0) perror_with_name (corefile); vector_registers.vm[0] = th.t_vect_ctx.vc_vm[0]; vector_registers.vm[1] = th.t_vect_ctx.vc_vm[1]; vector_registers.vls = th.t_vect_ctx.vc_vls; } return read_vector_register_1 (reg); } /* Return a pointer to vector register REG, which must already have been fetched from the inferior or core file. */ static long * read_vector_register_1 (reg) int reg; { switch (reg) { case VM_REGNUM: return (long *) vector_registers.vm; case VS_REGNUM: return (long *) &vector_registers.vls; case VL_REGNUM: return 1 + (long *) &vector_registers.vls; default: return (long *) &vector_registers.vr[reg]; } } /* Write vector register REG, element ELEMENT, new value VAL. NB: must use read-modify-write on the entire vector state, since pattach does not do offsetted writes correctly. */ static void write_vector_register (reg, element, val) int reg, element; unsigned LONGEST val; { if (have_inferior_p ()) { errno = 0; ps.pi_thread = inferior_thread; ps.pi_offset = 0; ps.pi_buffer = (char *) &vector_registers; ps.pi_nbytes = sizeof vector_registers; ioctl (inferior_fd, PIXRDVREGS, &ps); switch (reg) { case VL_REGNUM: vector_registers.vls = (vector_registers.vls & 0xffffffff00000000LL) + (unsigned long) val; break; case VS_REGNUM: vector_registers.vls = (val << 32) + (unsigned long) vector_registers.vls; break; default: vector_registers.vr[reg].el[element] = val; break; } ioctl (inferior_fd, PIXWRVREGS, &ps); if (errno) perror_with_name ("writing vector register"); } } /* Return the contents of communication register NUM. */ static unsigned LONGEST read_comm_register (num) int num; { if (have_inferior_p ()) { ps.pi_buffer = (char *) &comm_registers; ps.pi_nbytes = sizeof comm_registers; ps.pi_offset = 0; ps.pi_thread = inferior_thread; ioctl (inferior_fd, PIXRDCREGS, &ps); } return comm_registers.crreg.r4[num]; } /* Store a new value VAL into communication register NUM. NB: Must use read-modify-write on the whole comm register set since pattach does not do offsetted writes correctly. */ static void write_comm_register (num, val) int num; unsigned LONGEST val; { if (have_inferior_p ()) { ps.pi_buffer = (char *) &comm_registers; ps.pi_nbytes = sizeof comm_registers; ps.pi_offset = 0; ps.pi_thread = inferior_thread; ioctl (inferior_fd, PIXRDCREGS, &ps); comm_registers.crreg.r4[num] = val; ioctl (inferior_fd, PIXWRCREGS, &ps); } } /* Resume execution of the inferior process. If STEP is nonzero, single-step it. If SIGNAL is nonzero, give it that signal. */ void resume (step, signal) int step; int signal; { errno = 0; if (step || signal) thread_continue (inferior_thread, step, signal); else thread_continue (-1, 0, 0); } /* Maybe resume some threads. THREAD is which thread to resume, or -1 to resume them all. STEP and SIGNAL are as in resume. Global variable ALL_CONTINUE is set when we are here to do a `cont' command; otherwise we may be doing `finish' or a call or something else that will not tolerate an automatic thread switch. If there are stopped threads waiting to deliver signals, and ALL_CONTINUE, do not actually resume anything. gdb will do a wait and see one of the stopped threads in the queue. */ static void thread_continue (thread, step, signal) int thread, step, signal; { int n; /* If we are to continue all threads, but not for the CONTINUE command, pay no attention and continue only the selected thread. */ if (thread < 0 && ! all_continue) thread = inferior_thread; /* If we are not stepping, we have now executed the continue part of a CONTINUE command. */ if (! step) all_continue = 0; /* Allow wait() to switch threads if this is an all-out continue. */ thread_switch_ok = thread < 0; /* If there are threads queued up, don't resume. */ if (thread_switch_ok && ! signal_stack_is_empty ()) return; /* OK, do it. */ for (n = 0; n < n_threads; n++) if (thread_state[n] == PI_TALIVE) { select_thread (n); if ((thread < 0 || n == thread) && ! thread_is_in_kernel[n]) { /* Blam the trace bits in the stack's saved psws to match the desired step mode. This is required so that single-stepping a return doesn't restore a psw with a clear trace bit and fly away, and conversely, proceeding through a return in a routine that was stepped into doesn't cause a phantom break by restoring a psw with the trace bit set. */ scan_stack (PSW_T_BIT, step); scan_stack (PSW_S_BIT, sequential); } ps.pi_buffer = registers; ps.pi_nbytes = REGISTER_BYTES; ps.pi_offset = 0; ps.pi_thread = n; if (! thread_is_in_kernel[n]) if (ioctl (inferior_fd, PIXWRREGS, &ps)) perror_with_name ("PIXWRREGS"); if (thread < 0 || n == thread) { ps.pi_pc = 1; ps.pi_signo = signal; if (ioctl (inferior_fd, step ? PIXSTEP : PIXCONTINUE, &ps) < 0) perror_with_name ("PIXCONTINUE"); } } if (ioctl (inferior_fd, PIXRUN, &ps) < 0) perror_with_name ("PIXRUN"); } /* Replacement for system wait routine. The system wait returns with one or more threads stopped by signals. Put stopped threads on a stack and return them one by one, so that it appears that wait returns one thread at a time. Global variable THREAD_SWITCH_OK is set when gdb can tolerate wait returning a new thread. If it is false, then only one thread is running; we will do a real wait, the thread will do something, and we will return that. */ pid_t wait (w) union wait *w; { int pid; if (!w) return wait3 (0, 0, 0); /* Do a real wait if we were told to, or if there are no queued threads. */ if (! thread_switch_ok || signal_stack_is_empty ()) { int thread; pid = wait3 (w, 0, 0); if (!WIFSTOPPED (*w) || pid != inferior_pid) return pid; /* The inferior has done something and stopped. Read in all the threads' registers, and queue up any signals that happened. */ if (ioctl (inferior_fd, PIXGETTHCOUNT, &ps) < 0) perror_with_name ("PIXGETTHCOUNT"); n_threads = ps.pi_othdcnt; for (thread = 0; thread < n_threads; thread++) { ps.pi_thread = thread; if (ioctl (inferior_fd, PIXGETSUBCODE, &ps) < 0) perror_with_name ("PIXGETSUBCODE"); thread_state[thread] = ps.pi_otstate; if (ps.pi_otstate == PI_TALIVE) { select_thread (thread); ps.pi_buffer = registers; ps.pi_nbytes = REGISTER_BYTES; ps.pi_offset = 0; ps.pi_thread = thread; if (ioctl (inferior_fd, PIXRDREGS, &ps) < 0) perror_with_name ("PIXRDREGS"); registers_fetched (); thread_pc[thread] = read_pc (); thread_signal[thread] = ps.pi_osigno; thread_sigcode[thread] = ps.pi_osigcode; /* If the thread's stack has a context frame on top, something fucked is going on. I do not know what, but do I know this: the only thing you can do with such a thread is continue it. */ thread_is_in_kernel[thread] = ((read_register (PS_REGNUM) >> 25) & 3) == 0; /* Signals push an extended frame and then fault with a ridiculous pc. Pop the frame. */ if (thread_pc[thread] > STACK_END_ADDR) { POP_FRAME; if (is_break_pc (thread_pc[thread])) thread_pc[thread] = read_pc () - 2; else thread_pc[thread] = read_pc (); write_register (PC_REGNUM, thread_pc[thread]); } if (ps.pi_osigno || ps.pi_osigcode) { signal_stack++; signal_stack->pid = pid; signal_stack->thread = thread; signal_stack->signo = thread_signal[thread]; signal_stack->subsig = thread_sigcode[thread]; signal_stack->pc = thread_pc[thread]; } /* The following hackery is caused by a unix 7.1 feature: the inferior's fixed scheduling mode is cleared when it execs the shell (since the shell is not a parallel program). So, note the 5.4 trap we get when the shell does its exec, then catch the 5.0 trap that occurs when the debuggee starts, and set fixed scheduling mode properly. */ if (ps.pi_osigno == 5 && ps.pi_osigcode == 4) exec_trap_timer = 1; else exec_trap_timer--; if (ps.pi_osigno == 5 && exec_trap_timer == 0) set_fixed_scheduling (pid, parallel == 2); } } if (signal_stack_is_empty ()) error ("no active threads?!"); } /* Select the thread that stopped, and return *w saying why. */ select_thread (signal_stack->thread); FIXME: need to convert from host sig. stop_signal = signal_stack->signo; stop_sigcode = signal_stack->subsig; WSETSTOP (*w, signal_stack->signo); w->w_thread = signal_stack->thread; return (signal_stack--)->pid; } /* Select thread THREAD -- its registers, stack, per-thread memory. This is the only routine that may assign to inferior_thread or thread_regs[]. */ static void select_thread (thread) int thread; { if (thread == inferior_thread) return; memcpy (thread_regs[inferior_thread], registers, REGISTER_BYTES); ps.pi_thread = inferior_thread = thread; if (have_inferior_p ()) ioctl (inferior_fd, PISETRWTID, &ps); memcpy (registers, thread_regs[thread], REGISTER_BYTES); } /* Routine to set or clear a psw bit in the psw and also all psws saved on the stack. Quits when we get to a frame in which the saved psw is correct. */ static void scan_stack (bit, val) long bit, val; { long ps = read_register (PS_REGNUM); long fp; if (val ? !(ps & bit) : (ps & bit)) { ps ^= bit; write_register (PS_REGNUM, ps); fp = read_register (FP_REGNUM); while (fp & 0x80000000) { ps = read_memory_integer (fp + 4, 4); if (val ? (ps & bit) : !(ps & bit)) break; ps ^= bit; write_memory (fp + 4, &ps, 4); fp = read_memory_integer (fp + 8, 4); } } } /* Set fixed scheduling (alliant mode) of process PID to ARG (0 or 1). */ static void set_fixed_scheduling (pid, arg) int arg; { struct pattributes pattr; getpattr (pid, &pattr); pattr.pattr_pfixed = arg; setpattr (pid, &pattr); } void core_file_command (filename, from_tty) char *filename; int from_tty; { int n; /* Discard all vestiges of any previous core file and mark data and stack spaces as empty. */ if (corefile) free (corefile); corefile = 0; if (corechan >= 0) close (corechan); corechan = -1; data_start = 0; data_end = 0; stack_start = STACK_END_ADDR; stack_end = STACK_END_ADDR; n_core = 0; /* Now, if a new core file was specified, open it and digest it. */ if (filename) { filename = tilde_expand (filename); make_cleanup (free, filename); if (have_inferior_p ()) error ("To look at a core file, you must kill the program with \"kill\"."); corechan = open (filename, O_RDONLY, 0); if (corechan < 0) perror_with_name (filename); if (myread (corechan, &filehdr, sizeof filehdr) < 0) perror_with_name (filename); if (!IS_CORE_SOFF_MAGIC (filehdr.h_magic)) error ("%s: not a core file.\n", filename); if (myread (corechan, &opthdr, filehdr.h_opthdr) < 0) perror_with_name (filename); /* Read through the section headers. For text, data, etc, record an entry in the core file map. For context and tcontext, record the file address of the context blocks. */ lseek (corechan, (long) filehdr.h_scnptr, 0); n_threads = 0; for (n = 0; n < filehdr.h_nscns; n++) { if (myread (corechan, &scnhdr, sizeof scnhdr) < 0) perror_with_name (filename); if ((scnhdr.s_flags & S_TYPMASK) >= S_TEXT && (scnhdr.s_flags & S_TYPMASK) <= S_COMON) { core_map[n_core].mem_addr = scnhdr.s_vaddr; core_map[n_core].mem_end = scnhdr.s_vaddr + scnhdr.s_size; core_map[n_core].file_addr = scnhdr.s_scnptr; core_map[n_core].type = scnhdr.s_flags & S_TYPMASK; if (core_map[n_core].type != S_TBSS && core_map[n_core].type != S_TDATA && core_map[n_core].type != S_TTEXT) core_map[n_core].thread = -1; else if (n_core == 0 || core_map[n_core-1].mem_addr != scnhdr.s_vaddr) core_map[n_core].thread = 0; else core_map[n_core].thread = core_map[n_core-1].thread + 1; n_core++; } else if ((scnhdr.s_flags & S_TYPMASK) == S_CONTEXT) context_offset = scnhdr.s_scnptr; else if ((scnhdr.s_flags & S_TYPMASK) == S_TCONTEXT) tcontext_offset[n_threads++] = scnhdr.s_scnptr; } /* Read the context block, struct user, struct proc, and the comm regs. */ lseek (corechan, context_offset, 0); if (myread (corechan, &c, sizeof c) < 0) perror_with_name (filename); lseek (corechan, c.core_user_p, 0); if (myread (corechan, &u, sizeof u) < 0) perror_with_name (filename); lseek (corechan, c.core_proc_p, 0); if (myread (corechan, &pr, sizeof pr) < 0) perror_with_name (filename); comm_registers = pr.p_creg; /* Core file apparently is really there. Make it really exist for xfer_core_file so we can do read_memory on it. */ if (filename[0] == '/') corefile = savestring (filename, strlen (filename)); else corefile = concat (current_directory, "/", filename, NULL); printf_filtered ("Program %s ", u.u_comm); /* Read the thread registers and fill in the thread_xxx[] data. */ for (n = 0; n < n_threads; n++) { select_thread (n); lseek (corechan, tcontext_offset[n], 0); if (myread (corechan, &tc, sizeof tc) < 0) perror_with_name (corefile); lseek (corechan, tc.core_thread_p, 0); if (myread (corechan, &th, sizeof th) < 0) perror_with_name (corefile); lseek (corechan, tc.core_syscall_context_p, 0); if (myread (corechan, registers, REGISTER_BYTES) < 0) perror_with_name (corefile); thread_signal[n] = th.t_cursig; thread_sigcode[n] = th.t_code; thread_state[n] = th.t_state; thread_pc[n] = read_pc (); if (thread_pc[n] > STACK_END_ADDR) { POP_FRAME; if (is_break_pc (thread_pc[n])) thread_pc[n] = read_pc () - 2; else thread_pc[n] = read_pc (); write_register (PC_REGNUM, thread_pc[n]); } printf_filtered ("thread %d received signal %d, %s\n", n, thread_signal[n], safe_strsignal (thread_signal[n])); } /* Select an interesting thread -- also-rans died with SIGKILL, so find one that didn't. */ for (n = 0; n < n_threads; n++) if (thread_signal[n] != 0 && thread_signal[n] != SIGKILL) { select_thread (n); stop_signal = thread_signal[n]; stop_sigcode = thread_sigcode[n]; break; } core_aouthdr.a_magic = 0; flush_cached_frames (); set_current_frame (create_new_frame (read_register (FP_REGNUM), read_pc ())); select_frame (get_current_frame (), 0); validate_files (); print_stack_frame (selected_frame, selected_frame_level, -1); } else if (from_tty) printf_filtered ("No core file now.\n"); } gdb-4.13/gdb/copying.awk 666 34562 1752 4463 5256062715 13464 0ustar fnfcygnusBEGIN { FS="\""; print "/* ==> Do not modify this file!! It is created automatically"; print " by copying.awk. Modify copying.awk instead. <== */"; print "" print "#include \"defs.h\"" print "#include \"command.h\"" print "#include \"gdbcmd.h\"" print "" print "static void" print "show_copying_command PARAMS ((char *, int));" print "" print "static void" print "show_warranty_command PARAMS ((char *, int));" print "" print "extern int immediate_quit;"; print "static void"; print "show_copying_command (ignore, from_tty)"; print " char *ignore;"; print " int from_tty;"; print "{"; print " immediate_quit++;"; } NR == 1,/^[ ]*NO WARRANTY[ ]*$/ { if ($0 ~ / /) { printf " printf_filtered (\"\\n\");\n"; } else if ($0 !~ /^[ ]*NO WARRANTY[ ]*$/) { printf " printf_filtered (\""; for (i = 1; i < NF; i++) printf "%s\\\"", $i; printf "%s\\n\");\n", $NF; } } /^[ ]*NO WARRANTY[ ]*$/ { print " immediate_quit--;"; print "}"; print ""; print "static void"; print "show_warranty_command (ignore, from_tty)"; print " char *ignore;"; print " int from_tty;"; print "{"; print " immediate_quit++;"; } /^[ ]*NO WARRANTY[ ]*$/, /^[ ]*END OF TERMS AND CONDITIONS[ ]*$/{ if (! ($0 ~ /^[ ]*END OF TERMS AND CONDITIONS[ ]*$/)) { printf " printf_filtered (\""; for (i = 1; i < NF; i++) printf "%s\\\"", $i; printf "%s\\n\");\n", $NF; } } END { print " immediate_quit--;"; print "}"; print ""; print "void" print "_initialize_copying ()"; print "{"; print " add_cmd (\"copying\", no_class, show_copying_command,"; print " \"Conditions for redistributing copies of GDB.\","; print " &showlist);"; print " add_cmd (\"warranty\", no_class, show_warranty_command,"; print " \"Various kinds of warranty you do not have.\","; print " &showlist);"; print ""; print " /* For old-timers, allow \"info copying\", etc. */"; print " add_info (\"copying\", show_copying_command,"; print " \"Conditions for redistributing copies of GDB.\");"; print " add_info (\"warranty\", show_warranty_command,"; print " \"Various kinds of warranty you do not have.\");"; print "}"; } gdb-4.13/gdb/copying.c 666 34562 1752 55240 5256062717 13145 0ustar fnfcygnus/* ==> Do not modify this file!! It is created automatically by copying.awk. Modify copying.awk instead. <== */ #include "defs.h" #include "command.h" #include "gdbcmd.h" static void show_copying_command PARAMS ((char *, int)); static void show_warranty_command PARAMS ((char *, int)); extern int immediate_quit; static void show_copying_command (ignore, from_tty) char *ignore; int from_tty; { immediate_quit++; printf_filtered (" GNU GENERAL PUBLIC LICENSE\n"); printf_filtered (" Version 2, June 1991\n"); printf_filtered ("\n"); printf_filtered (" Copyright (C) 1989, 1991 Free Software Foundation, Inc.\n"); printf_filtered (" 675 Mass Ave, Cambridge, MA 02139, USA\n"); printf_filtered (" Everyone is permitted to copy and distribute verbatim copies\n"); printf_filtered (" of this license document, but changing it is not allowed.\n"); printf_filtered ("\n"); printf_filtered (" Preamble\n"); printf_filtered ("\n"); printf_filtered (" The licenses for most software are designed to take away your\n"); printf_filtered ("freedom to share and change it. By contrast, the GNU General Public\n"); printf_filtered ("License is intended to guarantee your freedom to share and change free\n"); printf_filtered ("software--to make sure the software is free for all its users. This\n"); printf_filtered ("General Public License applies to most of the Free Software\n"); printf_filtered ("Foundation's software and to any other program whose authors commit to\n"); printf_filtered ("using it. (Some other Free Software Foundation software is covered by\n"); printf_filtered ("the GNU Library General Public License instead.) You can apply it to\n"); printf_filtered ("your programs, too.\n"); printf_filtered ("\n"); printf_filtered (" When we speak of free software, we are referring to freedom, not\n"); printf_filtered ("price. Our General Public Licenses are designed to make sure that you\n"); printf_filtered ("have the freedom to distribute copies of free software (and charge for\n"); printf_filtered ("this service if you wish), that you receive source code or can get it\n"); printf_filtered ("if you want it, that you can change the software or use pieces of it\n"); printf_filtered ("in new free programs; and that you know you can do these things.\n"); printf_filtered ("\n"); printf_filtered (" To protect your rights, we need to make restrictions that forbid\n"); printf_filtered ("anyone to deny you these rights or to ask you to surrender the rights.\n"); printf_filtered ("These restrictions translate to certain responsibilities for you if you\n"); printf_filtered ("distribute copies of the software, or if you modify it.\n"); printf_filtered ("\n"); printf_filtered (" For example, if you distribute copies of such a program, whether\n"); printf_filtered ("gratis or for a fee, you must give the recipients all the rights that\n"); printf_filtered ("you have. You must make sure that they, too, receive or can get the\n"); printf_filtered ("source code. And you must show them these terms so they know their\n"); printf_filtered ("rights.\n"); printf_filtered ("\n"); printf_filtered (" We protect your rights with two steps: (1) copyright the software, and\n"); printf_filtered ("(2) offer you this license which gives you legal permission to copy,\n"); printf_filtered ("distribute and/or modify the software.\n"); printf_filtered ("\n"); printf_filtered (" Also, for each author's protection and ours, we want to make certain\n"); printf_filtered ("that everyone understands that there is no warranty for this free\n"); printf_filtered ("software. If the software is modified by someone else and passed on, we\n"); printf_filtered ("want its recipients to know that what they have is not the original, so\n"); printf_filtered ("that any problems introduced by others will not reflect on the original\n"); printf_filtered ("authors' reputations.\n"); printf_filtered ("\n"); printf_filtered (" Finally, any free program is threatened constantly by software\n"); printf_filtered ("patents. We wish to avoid the danger that redistributors of a free\n"); printf_filtered ("program will individually obtain patent licenses, in effect making the\n"); printf_filtered ("program proprietary. To prevent this, we have made it clear that any\n"); printf_filtered ("patent must be licensed for everyone's free use or not licensed at all.\n"); printf_filtered ("\n"); printf_filtered (" The precise terms and conditions for copying, distribution and\n"); printf_filtered ("modification follow.\n"); printf_filtered ("\n"); printf_filtered (" GNU GENERAL PUBLIC LICENSE\n"); printf_filtered (" TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION\n"); printf_filtered ("\n"); printf_filtered (" 0. This License applies to any program or other work which contains\n"); printf_filtered ("a notice placed by the copyright holder saying it may be distributed\n"); printf_filtered ("under the terms of this General Public License. The \"Program\", below,\n"); printf_filtered ("refers to any such program or work, and a \"work based on the Program\"\n"); printf_filtered ("means either the Program or any derivative work under copyright law:\n"); printf_filtered ("that is to say, a work containing the Program or a portion of it,\n"); printf_filtered ("either verbatim or with modifications and/or translated into another\n"); printf_filtered ("language. (Hereinafter, translation is included without limitation in\n"); printf_filtered ("the term \"modification\".) Each licensee is addressed as \"you\".\n"); printf_filtered ("\n"); printf_filtered ("Activities other than copying, distribution and modification are not\n"); printf_filtered ("covered by this License; they are outside its scope. The act of\n"); printf_filtered ("running the Program is not restricted, and the output from the Program\n"); printf_filtered ("is covered only if its contents constitute a work based on the\n"); printf_filtered ("Program (independent of having been made by running the Program).\n"); printf_filtered ("Whether that is true depends on what the Program does.\n"); printf_filtered ("\n"); printf_filtered (" 1. You may copy and distribute verbatim copies of the Program's\n"); printf_filtered ("source code as you receive it, in any medium, provided that you\n"); printf_filtered ("conspicuously and appropriately publish on each copy an appropriate\n"); printf_filtered ("copyright notice and disclaimer of warranty; keep intact all the\n"); printf_filtered ("notices that refer to this License and to the absence of any warranty;\n"); printf_filtered ("and give any other recipients of the Program a copy of this License\n"); printf_filtered ("along with the Program.\n"); printf_filtered ("\n"); printf_filtered ("You may charge a fee for the physical act of transferring a copy, and\n"); printf_filtered ("you may at your option offer warranty protection in exchange for a fee.\n"); printf_filtered ("\n"); printf_filtered (" 2. You may modify your copy or copies of the Program or any portion\n"); printf_filtered ("of it, thus forming a work based on the Program, and copy and\n"); printf_filtered ("distribute such modifications or work under the terms of Section 1\n"); printf_filtered ("above, provided that you also meet all of these conditions:\n"); printf_filtered ("\n"); printf_filtered (" a) You must cause the modified files to carry prominent notices\n"); printf_filtered (" stating that you changed the files and the date of any change.\n"); printf_filtered ("\n"); printf_filtered (" b) You must cause any work that you distribute or publish, that in\n"); printf_filtered (" whole or in part contains or is derived from the Program or any\n"); printf_filtered (" part thereof, to be licensed as a whole at no charge to all third\n"); printf_filtered (" parties under the terms of this License.\n"); printf_filtered ("\n"); printf_filtered (" c) If the modified program normally reads commands interactively\n"); printf_filtered (" when run, you must cause it, when started running for such\n"); printf_filtered (" interactive use in the most ordinary way, to print or display an\n"); printf_filtered (" announcement including an appropriate copyright notice and a\n"); printf_filtered (" notice that there is no warranty (or else, saying that you provide\n"); printf_filtered (" a warranty) and that users may redistribute the program under\n"); printf_filtered (" these conditions, and telling the user how to view a copy of this\n"); printf_filtered (" License. (Exception: if the Program itself is interactive but\n"); printf_filtered (" does not normally print such an announcement, your work based on\n"); printf_filtered (" the Program is not required to print an announcement.)\n"); printf_filtered ("\n"); printf_filtered ("These requirements apply to the modified work as a whole. If\n"); printf_filtered ("identifiable sections of that work are not derived from the Program,\n"); printf_filtered ("and can be reasonably considered independent and separate works in\n"); printf_filtered ("themselves, then this License, and its terms, do not apply to those\n"); printf_filtered ("sections when you distribute them as separate works. But when you\n"); printf_filtered ("distribute the same sections as part of a whole which is a work based\n"); printf_filtered ("on the Program, the distribution of the whole must be on the terms of\n"); printf_filtered ("this License, whose permissions for other licensees extend to the\n"); printf_filtered ("entire whole, and thus to each and every part regardless of who wrote it.\n"); printf_filtered ("\n"); printf_filtered ("Thus, it is not the intent of this section to claim rights or contest\n"); printf_filtered ("your rights to work written entirely by you; rather, the intent is to\n"); printf_filtered ("exercise the right to control the distribution of derivative or\n"); printf_filtered ("collective works based on the Program.\n"); printf_filtered ("\n"); printf_filtered ("In addition, mere aggregation of another work not based on the Program\n"); printf_filtered ("with the Program (or with a work based on the Program) on a volume of\n"); printf_filtered ("a storage or distribution medium does not bring the other work under\n"); printf_filtered ("the scope of this License.\n"); printf_filtered ("\n"); printf_filtered (" 3. You may copy and distribute the Program (or a work based on it,\n"); printf_filtered ("under Section 2) in object code or executable form under the terms of\n"); printf_filtered ("Sections 1 and 2 above provided that you also do one of the following:\n"); printf_filtered ("\n"); printf_filtered (" a) Accompany it with the complete corresponding machine-readable\n"); printf_filtered (" source code, which must be distributed under the terms of Sections\n"); printf_filtered (" 1 and 2 above on a medium customarily used for software interchange; or,\n"); printf_filtered ("\n"); printf_filtered (" b) Accompany it with a written offer, valid for at least three\n"); printf_filtered (" years, to give any third party, for a charge no more than your\n"); printf_filtered (" cost of physically performing source distribution, a complete\n"); printf_filtered (" machine-readable copy of the corresponding source code, to be\n"); printf_filtered (" distributed under the terms of Sections 1 and 2 above on a medium\n"); printf_filtered (" customarily used for software interchange; or,\n"); printf_filtered ("\n"); printf_filtered (" c) Accompany it with the information you received as to the offer\n"); printf_filtered (" to distribute corresponding source code. (This alternative is\n"); printf_filtered (" allowed only for noncommercial distribution and only if you\n"); printf_filtered (" received the program in object code or executable form with such\n"); printf_filtered (" an offer, in accord with Subsection b above.)\n"); printf_filtered ("\n"); printf_filtered ("The source code for a work means the preferred form of the work for\n"); printf_filtered ("making modifications to it. For an executable work, complete source\n"); printf_filtered ("code means all the source code for all modules it contains, plus any\n"); printf_filtered ("associated interface definition files, plus the scripts used to\n"); printf_filtered ("control compilation and installation of the executable. However, as a\n"); printf_filtered ("special exception, the source code distributed need not include\n"); printf_filtered ("anything that is normally distributed (in either source or binary\n"); printf_filtered ("form) with the major components (compiler, kernel, and so on) of the\n"); printf_filtered ("operating system on which the executable runs, unless that component\n"); printf_filtered ("itself accompanies the executable.\n"); printf_filtered ("\n"); printf_filtered ("If distribution of executable or object code is made by offering\n"); printf_filtered ("access to copy from a designated place, then offering equivalent\n"); printf_filtered ("access to copy the source code from the same place counts as\n"); printf_filtered ("distribution of the source code, even though third parties are not\n"); printf_filtered ("compelled to copy the source along with the object code.\n"); printf_filtered ("\n"); printf_filtered (" 4. You may not copy, modify, sublicense, or distribute the Program\n"); printf_filtered ("except as expressly provided under this License. Any attempt\n"); printf_filtered ("otherwise to copy, modify, sublicense or distribute the Program is\n"); printf_filtered ("void, and will automatically terminate your rights under this License.\n"); printf_filtered ("However, parties who have received copies, or rights, from you under\n"); printf_filtered ("this License will not have their licenses terminated so long as such\n"); printf_filtered ("parties remain in full compliance.\n"); printf_filtered ("\n"); printf_filtered (" 5. You are not required to accept this License, since you have not\n"); printf_filtered ("signed it. However, nothing else grants you permission to modify or\n"); printf_filtered ("distribute the Program or its derivative works. These actions are\n"); printf_filtered ("prohibited by law if you do not accept this License. Therefore, by\n"); printf_filtered ("modifying or distributing the Program (or any work based on the\n"); printf_filtered ("Program), you indicate your acceptance of this License to do so, and\n"); printf_filtered ("all its terms and conditions for copying, distributing or modifying\n"); printf_filtered ("the Program or works based on it.\n"); printf_filtered ("\n"); printf_filtered (" 6. Each time you redistribute the Program (or any work based on the\n"); printf_filtered ("Program), the recipient automatically receives a license from the\n"); printf_filtered ("original licensor to copy, distribute or modify the Program subject to\n"); printf_filtered ("these terms and conditions. You may not impose any further\n"); printf_filtered ("restrictions on the recipients' exercise of the rights granted herein.\n"); printf_filtered ("You are not responsible for enforcing compliance by third parties to\n"); printf_filtered ("this License.\n"); printf_filtered ("\n"); printf_filtered (" 7. If, as a consequence of a court judgment or allegation of patent\n"); printf_filtered ("infringement or for any other reason (not limited to patent issues),\n"); printf_filtered ("conditions are imposed on you (whether by court order, agreement or\n"); printf_filtered ("otherwise) that contradict the conditions of this License, they do not\n"); printf_filtered ("excuse you from the conditions of this License. If you cannot\n"); printf_filtered ("distribute so as to satisfy simultaneously your obligations under this\n"); printf_filtered ("License and any other pertinent obligations, then as a consequence you\n"); printf_filtered ("may not distribute the Program at all. For example, if a patent\n"); printf_filtered ("license would not permit royalty-free redistribution of the Program by\n"); printf_filtered ("all those who receive copies directly or indirectly through you, then\n"); printf_filtered ("the only way you could satisfy both it and this License would be to\n"); printf_filtered ("refrain entirely from distribution of the Program.\n"); printf_filtered ("\n"); printf_filtered ("If any portion of this section is held invalid or unenforceable under\n"); printf_filtered ("any particular circumstance, the balance of the section is intended to\n"); printf_filtered ("apply and the section as a whole is intended to apply in other\n"); printf_filtered ("circumstances.\n"); printf_filtered ("\n"); printf_filtered ("It is not the purpose of this section to induce you to infringe any\n"); printf_filtered ("patents or other property right claims or to contest validity of any\n"); printf_filtered ("such claims; this section has the sole purpose of protecting the\n"); printf_filtered ("integrity of the free software distribution system, which is\n"); printf_filtered ("implemented by public license practices. Many people have made\n"); printf_filtered ("generous contributions to the wide range of software distributed\n"); printf_filtered ("through that system in reliance on consistent application of that\n"); printf_filtered ("system; it is up to the author/donor to decide if he or she is willing\n"); printf_filtered ("to distribute software through any other system and a licensee cannot\n"); printf_filtered ("impose that choice.\n"); printf_filtered ("\n"); printf_filtered ("This section is intended to make thoroughly clear what is believed to\n"); printf_filtered ("be a consequence of the rest of this License.\n"); printf_filtered ("\n"); printf_filtered (" 8. If the distribution and/or use of the Program is restricted in\n"); printf_filtered ("certain countries either by patents or by copyrighted interfaces, the\n"); printf_filtered ("original copyright holder who places the Program under this License\n"); printf_filtered ("may add an explicit geographical distribution limitation excluding\n"); printf_filtered ("those countries, so that distribution is permitted only in or among\n"); printf_filtered ("countries not thus excluded. In such case, this License incorporates\n"); printf_filtered ("the limitation as if written in the body of this License.\n"); printf_filtered ("\n"); printf_filtered (" 9. The Free Software Foundation may publish revised and/or new versions\n"); printf_filtered ("of the General Public License from time to time. Such new versions will\n"); printf_filtered ("be similar in spirit to the present version, but may differ in detail to\n"); printf_filtered ("address new problems or concerns.\n"); printf_filtered ("\n"); printf_filtered ("Each version is given a distinguishing version number. If the Program\n"); printf_filtered ("specifies a version number of this License which applies to it and \"any\n"); printf_filtered ("later version\", you have the option of following the terms and conditions\n"); printf_filtered ("either of that version or of any later version published by the Free\n"); printf_filtered ("Software Foundation. If the Program does not specify a version number of\n"); printf_filtered ("this License, you may choose any version ever published by the Free Software\n"); printf_filtered ("Foundation.\n"); printf_filtered ("\n"); printf_filtered (" 10. If you wish to incorporate parts of the Program into other free\n"); printf_filtered ("programs whose distribution conditions are different, write to the author\n"); printf_filtered ("to ask for permission. For software which is copyrighted by the Free\n"); printf_filtered ("Software Foundation, write to the Free Software Foundation; we sometimes\n"); printf_filtered ("make exceptions for this. Our decision will be guided by the two goals\n"); printf_filtered ("of preserving the free status of all derivatives of our free software and\n"); printf_filtered ("of promoting the sharing and reuse of software generally.\n"); printf_filtered ("\n"); immediate_quit--; } static void show_warranty_command (ignore, from_tty) char *ignore; int from_tty; { immediate_quit++; printf_filtered (" NO WARRANTY\n"); printf_filtered ("\n"); printf_filtered (" 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY\n"); printf_filtered ("FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN\n"); printf_filtered ("OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES\n"); printf_filtered ("PROVIDE THE PROGRAM \"AS IS\" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED\n"); printf_filtered ("OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF\n"); printf_filtered ("MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS\n"); printf_filtered ("TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE\n"); printf_filtered ("PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,\n"); printf_filtered ("REPAIR OR CORRECTION.\n"); printf_filtered ("\n"); printf_filtered (" 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING\n"); printf_filtered ("WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR\n"); printf_filtered ("REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,\n"); printf_filtered ("INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING\n"); printf_filtered ("OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED\n"); printf_filtered ("TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY\n"); printf_filtered ("YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER\n"); printf_filtered ("PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE\n"); printf_filtered ("POSSIBILITY OF SUCH DAMAGES.\n"); printf_filtered ("\n"); immediate_quit--; } void _initialize_copying () { add_cmd ("copying", no_class, show_copying_command, "Conditions for redistributing copies of GDB.", &showlist); add_cmd ("warranty", no_class, show_warranty_command, "Various kinds of warranty you do not have.", &showlist); /* For old-timers, allow "info copying", etc. */ add_info ("copying", show_copying_command, "Conditions for redistributing copies of GDB."); add_info ("warranty", show_warranty_command, "Various kinds of warranty you do not have."); } gdb-4.13/gdb/core-sol2.c 666 34562 1752 7151 5602604471 13252 0ustar fnfcygnus/* Machine independent support for Solaris 2 core files for GDB. Copyright 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Solaris comes with two flavours of core files, cores generated by an ELF executable and cores generated by programs that were run under BCP (the part of Solaris which allows it to run SunOS4 a.out files). This file combines the core register fetching from core-svr4.c and sparc-nat.c to be able to read both flavours. */ #include "defs.h" #undef gregset_t #undef fpregset_t #include #include #include #include #include #include #include "inferior.h" #include "target.h" #include "command.h" #include "gdbcore.h" void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned int reg_addr; /* Unused in this version */ { prgregset_t prgregset; prfpregset_t prfpregset; if (which == 0) { if (core_reg_size == sizeof (prgregset)) { memcpy ((char *) &prgregset, core_reg_sect, sizeof (prgregset)); supply_gregset (&prgregset); } else if (core_reg_size == sizeof (struct regs)) { #define gregs ((struct regs *)core_reg_sect) /* G0 *always* holds 0. */ *(int *)®isters[REGISTER_BYTE (0)] = 0; /* The globals and output registers. */ memcpy (®isters[REGISTER_BYTE (G1_REGNUM)], &gregs->r_g1, 15 * REGISTER_RAW_SIZE (G1_REGNUM)); *(int *)®isters[REGISTER_BYTE (PS_REGNUM)] = gregs->r_ps; *(int *)®isters[REGISTER_BYTE (PC_REGNUM)] = gregs->r_pc; *(int *)®isters[REGISTER_BYTE (NPC_REGNUM)] = gregs->r_npc; *(int *)®isters[REGISTER_BYTE (Y_REGNUM)] = gregs->r_y; /* My best guess at where to get the locals and input registers is exactly where they usually are, right above the stack pointer. If the core dump was caused by a bus error from blowing away the stack pointer (as is possible) then this won't work, but it's worth the try. */ { int sp; sp = *(int *)®isters[REGISTER_BYTE (SP_REGNUM)]; if (0 != target_read_memory (sp, ®isters[REGISTER_BYTE (L0_REGNUM)], 16 * REGISTER_RAW_SIZE (L0_REGNUM))) { warning ("couldn't read input and local registers from core file\n"); } } } else { warning ("wrong size gregset struct in core file"); } } else if (which == 2) { if (core_reg_size == sizeof (prfpregset)) { memcpy ((char *) &prfpregset, core_reg_sect, sizeof (prfpregset)); supply_fpregset (&prfpregset); } else if (core_reg_size >= sizeof (struct fpu)) { #define fpuregs ((struct fpu *) core_reg_sect) memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], &fpuregs->fpu_fr, sizeof (fpuregs->fpu_fr)); memcpy (®isters[REGISTER_BYTE (FPS_REGNUM)], &fpuregs->fpu_fsr, sizeof (FPU_FSR_TYPE)); } else { warning ("wrong size fpregset struct in core file"); } } } gdb-4.13/gdb/core-svr4.c 666 34562 1752 5714 5364710567 13305 0ustar fnfcygnus/* Machine independent support for SVR4 core files for GDB. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* N O T E S This version of fetch_core_registers() is used by most systems that implement /proc. For these systems, the general registers are laid out the same way in both the core file and the gregset_p structure. The current exception to this is Irix-4.*, where the gregset_p structure is split up into two pieces in the core file. The general register and floating point register sets are manipulated by separate ioctl's. This file makes the assumption that if FP0_REGNUM is defined, then support for the floating point register set is desired, regardless of whether or not the actual target has floating point hardware. */ #include "defs.h" #include #include #include #include #include #include "inferior.h" #include "target.h" #include "command.h" #include "gdbcore.h" /* GLOBAL FUNCTION fetch_core_registers -- fetch current registers from core file data SYNOPSIS void fetch_core_registers (char *core_reg_sect, unsigned core_reg_size, int which, unsigned in reg_addr) DESCRIPTION Read the values of either the general register set (WHICH equals 0) or the floating point register set (WHICH equals 2) from the core file data (pointed to by CORE_REG_SECT), and update gdb's idea of their current values. The CORE_REG_SIZE parameter is ignored. NOTES Use the indicated sizes to validate the gregset and fpregset structures. */ void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned int reg_addr; /* Unused in this version */ { gregset_t gregset; fpregset_t fpregset; if (which == 0) { if (core_reg_size != sizeof (gregset)) { warning ("wrong size gregset struct in core file"); } else { memcpy ((char *) &gregset, core_reg_sect, sizeof (gregset)); supply_gregset (&gregset); } } else if (which == 2) { if (core_reg_size != sizeof (fpregset)) { warning ("wrong size fpregset struct in core file"); } else { memcpy ((char *) &fpregset, core_reg_sect, sizeof (fpregset)); #if defined (FP0_REGNUM) supply_fpregset (&fpregset); #endif } } } gdb-4.13/gdb/core.c 666 34562 1752 20017 5561737054 12421 0ustar fnfcygnus/* Core dump and executable file functions above target vector, for GDB. Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include #include #include #include "frame.h" /* required by inferior.h */ #include "inferior.h" #include "symtab.h" #include "command.h" #include "gdbcmd.h" #include "bfd.h" #include "target.h" #include "gdbcore.h" #include "dis-asm.h" #include "language.h" extern char registers[]; /* Hook for `exec_file_command' command to call. */ void (*exec_file_display_hook) PARAMS ((char *)) = NULL; /* Binary file diddling handle for the core file. */ bfd *core_bfd = NULL; /* Backward compatability with old way of specifying core files. */ void core_file_command (filename, from_tty) char *filename; int from_tty; { struct target_ops *t; dont_repeat (); /* Either way, seems bogus. */ t = find_core_target (); if (t != NULL) if (!filename) (t->to_detach) (filename, from_tty); else (t->to_open) (filename, from_tty); else error ("GDB can't read core files on this machine."); } /* Call this to specify the hook for exec_file_command to call back. This is called from the x-window display code. */ void specify_exec_file_hook (hook) void (*hook) PARAMS ((char *)); { exec_file_display_hook = hook; } /* The exec file must be closed before running an inferior. If it is needed again after the inferior dies, it must be reopened. */ void close_exec_file () { #ifdef FIXME if (exec_bfd) bfd_tempclose (exec_bfd); #endif } void reopen_exec_file () { #ifdef FIXME if (exec_bfd) bfd_reopen (exec_bfd); #endif } /* If we have both a core file and an exec file, print a warning if they don't go together. */ void validate_files () { if (exec_bfd && core_bfd) { if (!core_file_matches_executable_p (core_bfd, exec_bfd)) warning ("core file may not match specified executable file."); else if (bfd_get_mtime(exec_bfd) > bfd_get_mtime(core_bfd)) warning ("exec file is newer than core file."); } } /* Return the name of the executable file as a string. ERR nonzero means get error if there is none specified; otherwise return 0 in that case. */ char * get_exec_file (err) int err; { if (exec_bfd) return bfd_get_filename(exec_bfd); if (!err) return NULL; error ("No executable file specified.\n\ Use the \"file\" or \"exec-file\" command."); return NULL; } /* Report a memory error with error(). */ void memory_error (status, memaddr) int status; CORE_ADDR memaddr; { if (status == EIO) { /* Actually, address between memaddr and memaddr + len was out of bounds. */ error_begin (); printf_filtered ("Cannot access memory at address "); print_address_numeric (memaddr, 1, gdb_stdout); printf_filtered (".\n"); return_to_top_level (RETURN_ERROR); } else { error_begin (); printf_filtered ("Error accessing memory address "); print_address_numeric (memaddr, 1, gdb_stdout); printf_filtered (": %s.\n", safe_strerror (status)); return_to_top_level (RETURN_ERROR); } } /* Same as target_read_memory, but report an error if can't read. */ void read_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int status; status = target_read_memory (memaddr, myaddr, len); if (status != 0) memory_error (status, memaddr); } /* Like target_read_memory, but slightly different parameters. */ int dis_asm_read_memory (memaddr, myaddr, len, info) bfd_vma memaddr; bfd_byte *myaddr; int len; disassemble_info *info; { return target_read_memory (memaddr, (char *) myaddr, len); } /* Like memory_error with slightly different parameters. */ void dis_asm_memory_error (status, memaddr, info) int status; bfd_vma memaddr; disassemble_info *info; { memory_error (status, memaddr); } /* Like print_address with slightly different parameters. */ void dis_asm_print_address (addr, info) bfd_vma addr; struct disassemble_info *info; { print_address (addr, info->stream); } /* Same as target_write_memory, but report an error if can't write. */ void write_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int status; status = target_write_memory (memaddr, myaddr, len); if (status != 0) memory_error (status, memaddr); } /* Read an integer from debugged memory, given address and number of bytes. */ LONGEST read_memory_integer (memaddr, len) CORE_ADDR memaddr; int len; { char buf[sizeof (LONGEST)]; read_memory (memaddr, buf, len); return extract_signed_integer (buf, len); } unsigned LONGEST read_memory_unsigned_integer (memaddr, len) CORE_ADDR memaddr; int len; { char buf[sizeof (unsigned LONGEST)]; read_memory (memaddr, buf, len); return extract_unsigned_integer (buf, len); } #if 0 /* Enable after 4.12. It is not tested. */ /* Search code. Targets can just make this their search function, or if the protocol has a less general search function, they can call this in the cases it can't handle. */ void generic_search (len, data, mask, startaddr, increment, lorange, hirange addr_found, data_found) int len; char *data; char *mask; CORE_ADDR startaddr; int increment; CORE_ADDR lorange; CORE_ADDR hirange; CORE_ADDR *addr_found; char *data_found; { int i; CORE_ADDR curaddr = startaddr; while (curaddr >= lorange && curaddr < hirange) { read_memory (curaddr, data_found, len); for (i = 0; i < len; ++i) if ((data_found[i] & mask[i]) != data[i]) goto try_again; /* It matches. */ *addr_found = curaddr; return; try_again: curaddr += increment; } *addr_found = (CORE_ADDR)0; return; } #endif /* 0 */ /* The current default bfd target. Points to storage allocated for gnutarget_string. */ char *gnutarget; /* Same thing, except it is "auto" not NULL for the default case. */ static char *gnutarget_string; static void set_gnutarget_command PARAMS ((char *, int, struct cmd_list_element *)); static void set_gnutarget_command (ignore, from_tty, c) char *ignore; int from_tty; struct cmd_list_element *c; { if (STREQ (gnutarget_string, "auto")) gnutarget = NULL; else gnutarget = gnutarget_string; } /* Set the gnutarget. */ void set_gnutarget (newtarget) char *newtarget; { if (gnutarget_string != NULL) free (gnutarget_string); gnutarget_string = savestring (newtarget, strlen (newtarget)); set_gnutarget_command (NULL, 0, NULL); } void _initialize_core() { struct cmd_list_element *c; c = add_cmd ("core-file", class_files, core_file_command, "Use FILE as core dump for examining memory and registers.\n\ No arg means have no core file. This command has been superseded by the\n\ `target core' and `detach' commands.", &cmdlist); c->completer = filename_completer; c = add_set_cmd ("gnutarget", class_files, var_string_noescape, (char *) &gnutarget_string, "Set the current BFD target.\n\ Use `set gnutarget auto' to specify automatic detection.", &setlist); c->function.sfunc = set_gnutarget_command; add_show_from_set (c, &showlist); if (getenv ("GNUTARGET")) set_gnutarget (getenv ("GNUTARGET")); else set_gnutarget ("auto"); } gdb-4.13/gdb/coredep.c 666 34562 1752 7450 5616266543 13101 0ustar fnfcygnus/* Extract registers from a "standard" core file, for GDB. Copyright (C) 1988-1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* core.c is supposed to be the more machine-independent aspects of this; this file is more machine-specific. */ #include "defs.h" #include #include #include "gdbcore.h" #include "value.h" /* For supply_register. */ #include "inferior.h" /* These are needed on various systems to expand REGISTER_U_ADDR. */ #ifndef USG #include #include #include #include #ifndef NO_PTRACE_H # ifdef PTRACE_IN_WRONG_PLACE # include # else /* !PTRACE_IN_WRONG_PLACE */ # include # endif /* !PTRACE_IN_WRONG_PLACE */ #endif /* NO_PTRACE_H */ #endif #ifndef CORE_REGISTER_ADDR #define CORE_REGISTER_ADDR(regno, regptr) register_addr(regno, regptr) #endif /* CORE_REGISTER_ADDR */ #ifdef NEED_SYS_CORE_H #include #endif /* Extract the register values out of the core file and store them where `read_register' will find them. CORE_REG_SECT points to the register values themselves, read into memory. CORE_REG_SIZE is the size of that area. WHICH says which set of registers we are handling (0 = int, 2 = float on machines where they are discontiguous). REG_ADDR is the offset from u.u_ar0 to the register values relative to core_reg_sect. This is used with old-fashioned core files to locate the registers in a large upage-plus-stack ".reg" section. Original upage address X is at location core_reg_sect+x+reg_addr. */ void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned reg_addr; { register int regno; register unsigned int addr; int bad_reg = -1; register reg_ptr = -reg_addr; /* Original u.u_ar0 is -reg_addr. */ int numregs = ARCH_NUM_REGS; /* If u.u_ar0 was an absolute address in the core file, relativize it now, so we can use it as an offset into core_reg_sect. When we're done, "register 0" will be at core_reg_sect+reg_ptr, and we can use CORE_REGISTER_ADDR to offset to the other registers. If this is a modern core file without a upage, reg_ptr will be zero and this is all a big NOP. */ if (reg_ptr > core_reg_size) reg_ptr -= KERNEL_U_ADDR; for (regno = 0; regno < numregs; regno++) { addr = CORE_REGISTER_ADDR (regno, reg_ptr); if (addr >= core_reg_size) { if (bad_reg < 0) bad_reg = regno; } else { supply_register (regno, core_reg_sect + addr); } } if (bad_reg >= 0) { error ("Register %s not found in core file.", reg_names[bad_reg]); } } #ifdef REGISTER_U_ADDR /* Return the address in the core dump or inferior of register REGNO. BLOCKEND is the address of the end of the user structure. */ unsigned int register_addr (regno, blockend) int regno; int blockend; { int addr; if (regno < 0 || regno >= ARCH_NUM_REGS) error ("Invalid register number %d.", regno); REGISTER_U_ADDR (addr, blockend, regno); return addr; } #endif /* REGISTER_U_ADDR */ gdb-4.13/gdb/corelow.c 666 34562 1752 21460 5530732372 13140 0ustar fnfcygnus/* Core dump and executable file functions below target vector, for GDB. Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include #include #include #include "frame.h" /* required by inferior.h */ #include "inferior.h" #include "symtab.h" #include "command.h" #include "bfd.h" #include "target.h" #include "gdbcore.h" #include "thread.h" static void core_files_info PARAMS ((struct target_ops *)); #ifdef SOLIB_ADD static int solib_add_stub PARAMS ((char *)); #endif static void core_close PARAMS ((int)); static void get_core_registers PARAMS ((int)); /* Discard all vestiges of any previous core file and mark data and stack spaces as empty. */ /* ARGSUSED */ static void core_close (quitting) int quitting; { inferior_pid = 0; /* Avoid confusion from thread stuff */ if (core_bfd) { free (bfd_get_filename (core_bfd)); bfd_close (core_bfd); core_bfd = NULL; #ifdef CLEAR_SOLIB CLEAR_SOLIB (); #endif if (core_ops.to_sections) { free ((PTR)core_ops.to_sections); core_ops.to_sections = NULL; core_ops.to_sections_end = NULL; } } } #ifdef SOLIB_ADD /* Stub function for catch_errors around shared library hacking. FROM_TTYP is really an int * which points to from_tty. */ static int solib_add_stub (from_ttyp) char *from_ttyp; { SOLIB_ADD (NULL, *(int *)from_ttyp, &core_ops); return 0; } #endif /* SOLIB_ADD */ /* Look for sections whose names start with `.reg/' so that we can extract the list of threads in a core file. */ static void add_to_thread_list (abfd, asect, reg_sect_arg) bfd *abfd; asection *asect; PTR reg_sect_arg; { int thread_id; asection *reg_sect = (asection *) reg_sect_arg; if (strncmp (bfd_section_name (abfd, asect), ".reg/", 5) != 0) return; thread_id = atoi (bfd_section_name (abfd, asect) + 5); add_thread (thread_id); /* Warning, Will Robinson, looking at BFD private data! */ if (asect->filepos == reg_sect->filepos) /* Did we find .reg? */ inferior_pid = thread_id; /* Yes, make it current */ } /* This routine opens and sets up the core file bfd */ void core_open (filename, from_tty) char *filename; int from_tty; { const char *p; int siggy; struct cleanup *old_chain; char *temp; bfd *temp_bfd; int ontop; int scratch_chan; target_preopen (from_tty); if (!filename) { error (core_bfd? "No core file specified. (Use `detach' to stop debugging a core file.)" : "No core file specified."); } filename = tilde_expand (filename); if (filename[0] != '/') { temp = concat (current_directory, "/", filename, NULL); free (filename); filename = temp; } old_chain = make_cleanup (free, filename); scratch_chan = open (filename, write_files? O_RDWR: O_RDONLY, 0); if (scratch_chan < 0) perror_with_name (filename); temp_bfd = bfd_fdopenr (filename, gnutarget, scratch_chan); if (temp_bfd == NULL) { perror_with_name (filename); } if (!bfd_check_format (temp_bfd, bfd_core)) { /* Do it after the err msg */ make_cleanup (bfd_close, temp_bfd); error ("\"%s\" is not a core dump: %s", filename, bfd_errmsg(bfd_get_error ())); } /* Looks semi-reasonable. Toss the old core file and work on the new. */ discard_cleanups (old_chain); /* Don't free filename any more */ unpush_target (&core_ops); core_bfd = temp_bfd; old_chain = make_cleanup (core_close, core_bfd); validate_files (); /* Find the data section */ if (build_section_table (core_bfd, &core_ops.to_sections, &core_ops.to_sections_end)) error ("Can't find sections in `%s': %s", bfd_get_filename(core_bfd), bfd_errmsg (bfd_get_error ())); ontop = !push_target (&core_ops); discard_cleanups (old_chain); p = bfd_core_file_failing_command (core_bfd); if (p) printf_filtered ("Core was generated by `%s'.\n", p); siggy = bfd_core_file_failing_signal (core_bfd); if (siggy > 0) printf_filtered ("Program terminated with signal %d, %s.\n", siggy, safe_strsignal (siggy)); /* Build up thread list from BFD sections. */ init_thread_list (); bfd_map_over_sections (core_bfd, add_to_thread_list, bfd_get_section_by_name (core_bfd, ".reg")); if (ontop) { /* Fetch all registers from core file */ target_fetch_registers (-1); /* Add symbols and section mappings for any shared libraries */ #ifdef SOLIB_ADD catch_errors (solib_add_stub, &from_tty, (char *)0, RETURN_MASK_ALL); #endif /* Now, set up the frame cache, and print the top of stack */ set_current_frame (create_new_frame (read_fp (), read_pc ())); select_frame (get_current_frame (), 0); print_stack_frame (selected_frame, selected_frame_level, 1); } else { warning ( "you won't be able to access this core file until you terminate\n\ your %s; do ``info files''", current_target->to_longname); } } void core_detach (args, from_tty) char *args; int from_tty; { if (args) error ("Too many arguments"); unpush_target (&core_ops); reinit_frame_cache (); if (from_tty) printf_filtered ("No core file now.\n"); } /* Get the registers out of a core file. This is the machine- independent part. Fetch_core_registers is the machine-dependent part, typically implemented in the xm-file for each architecture. */ /* We just get all the registers, so we don't use regno. */ /* ARGSUSED */ static void get_core_registers (regno) int regno; { sec_ptr reg_sec; unsigned size; char *the_regs; char secname[10]; /* Thread support. If inferior_pid is non-zero, then we have found a core file with threads (or multiple processes). In that case, we need to use the appropriate register section, else we just use `.reg'. */ /* XXX - same thing needs to be done for floating-point (.reg2) sections. */ if (inferior_pid) sprintf (secname, ".reg/%d", inferior_pid); else strcpy (secname, ".reg"); reg_sec = bfd_get_section_by_name (core_bfd, secname); if (!reg_sec) goto cant; size = bfd_section_size (core_bfd, reg_sec); the_regs = alloca (size); if (bfd_get_section_contents (core_bfd, reg_sec, the_regs, (file_ptr)0, size)) { fetch_core_registers (the_regs, size, 0, (unsigned) bfd_section_vma (abfd,reg_sec)); } else { cant: fprintf_filtered (gdb_stderr, "Couldn't fetch registers from core file: %s\n", bfd_errmsg (bfd_get_error ())); } /* Now do it again for the float registers, if they exist. */ reg_sec = bfd_get_section_by_name (core_bfd, ".reg2"); if (reg_sec) { size = bfd_section_size (core_bfd, reg_sec); the_regs = alloca (size); if (bfd_get_section_contents (core_bfd, reg_sec, the_regs, (file_ptr)0, size)) { fetch_core_registers (the_regs, size, 2, (unsigned) bfd_section_vma (abfd,reg_sec)); } else { fprintf_filtered (gdb_stderr, "Couldn't fetch register set 2 from core file: %s\n", bfd_errmsg (bfd_get_error ())); } } registers_fetched(); } static void core_files_info (t) struct target_ops *t; { print_section_info (t, core_bfd); } /* If mourn is being called in all the right places, this could be say `gdb internal error' (since generic_mourn calls breakpoint_init_inferior). */ static int ignore (addr, contents) CORE_ADDR addr; char *contents; { return 0; } struct target_ops core_ops = { "core", "Local core dump file", "Use a core file as a target. Specify the filename of the core file.", core_open, core_close, find_default_attach, core_detach, 0, 0, /* resume, wait */ get_core_registers, 0, 0, /* store_regs, prepare_to_store */ xfer_memory, core_files_info, ignore, ignore, /* core_insert_breakpoint, core_remove_breakpoint, */ 0, 0, 0, 0, 0, /* terminal stuff */ 0, 0, 0, /* kill, load, lookup sym */ find_default_create_inferior, 0, /* mourn_inferior */ 0, /* can_run */ 0, /* notice_signals */ core_stratum, 0, /* next */ 0, 1, 1, 1, 0, /* all mem, mem, stack, regs, exec */ 0, 0, /* section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_corelow() { add_target (&core_ops); } gdb-4.13/gdb/cp-valprint.c 666 34562 1752 33217 5564742137 13737 0ustar fnfcygnus/* Support for printing C++ values for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "obstack.h" #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "value.h" #include "command.h" #include "gdbcmd.h" #include "demangle.h" #include "annotate.h" int vtblprint; /* Controls printing of vtbl's */ int objectprint; /* Controls looking up an object's derived type using what we find in its vtables. */ struct obstack dont_print_obstack; static void cplus_print_value PARAMS ((struct type *, char *, GDB_FILE *, int, int, enum val_prettyprint, struct type **)); /* BEGIN-FIXME: Hooks into typeprint.c, find a better home for prototypes. */ extern void c_type_print_base PARAMS ((struct type *, GDB_FILE *, int, int)); extern void c_type_print_varspec_prefix PARAMS ((struct type *, GDB_FILE *, int, int)); extern void cp_type_print_method_args PARAMS ((struct type **, char *, char *, int, GDB_FILE *)); extern struct obstack dont_print_obstack; /* END-FIXME */ void cp_print_class_method (valaddr, type, stream) char *valaddr; struct type *type; GDB_FILE *stream; { struct type *domain; struct fn_field *f = NULL; int j = 0; int len2; int offset; char *kind = ""; CORE_ADDR addr; struct symbol *sym; unsigned len; unsigned int i; check_stub_type (TYPE_TARGET_TYPE (type)); domain = TYPE_DOMAIN_TYPE (TYPE_TARGET_TYPE (type)); if (domain == (struct type *)NULL) { fprintf_filtered (stream, ""); return; } addr = unpack_pointer (lookup_pointer_type (builtin_type_void), valaddr); if (METHOD_PTR_IS_VIRTUAL (addr)) { offset = METHOD_PTR_TO_VOFFSET (addr); len = TYPE_NFN_FIELDS (domain); for (i = 0; i < len; i++) { f = TYPE_FN_FIELDLIST1 (domain, i); len2 = TYPE_FN_FIELDLIST_LENGTH (domain, i); for (j = 0; j < len2; j++) { QUIT; if (TYPE_FN_FIELD_VOFFSET (f, j) == offset) { kind = "virtual "; goto common; } } } } else { sym = find_pc_function (addr); if (sym == 0) { error ("invalid pointer to member function"); } len = TYPE_NFN_FIELDS (domain); for (i = 0; i < len; i++) { f = TYPE_FN_FIELDLIST1 (domain, i); len2 = TYPE_FN_FIELDLIST_LENGTH (domain, i); for (j = 0; j < len2; j++) { QUIT; if (TYPE_FN_FIELD_STUB (f, j)) check_stub_method (domain, i, j); if (STREQ (SYMBOL_NAME (sym), TYPE_FN_FIELD_PHYSNAME (f, j))) { goto common; } } } } common: if (i < len) { fprintf_filtered (stream, "&"); c_type_print_varspec_prefix (TYPE_FN_FIELD_TYPE (f, j), stream, 0, 0); fprintf_unfiltered (stream, kind); if (TYPE_FN_FIELD_PHYSNAME (f, j)[0] == '_' && TYPE_FN_FIELD_PHYSNAME (f, j)[1] == CPLUS_MARKER) { cp_type_print_method_args (TYPE_FN_FIELD_ARGS (f, j) + 1, "~", TYPE_FN_FIELDLIST_NAME (domain, i), 0, stream); } else { cp_type_print_method_args (TYPE_FN_FIELD_ARGS (f, j), "", TYPE_FN_FIELDLIST_NAME (domain, i), 0, stream); } } else { fprintf_filtered (stream, "("); type_print (type, "", stream, -1); fprintf_filtered (stream, ") %d", (int) addr >> 3); } } /* This was what it was for gcc 2.4.5 and earlier. */ static const char vtbl_ptr_name_old[] = { CPLUS_MARKER,'v','t','b','l','_','p','t','r','_','t','y','p','e', 0 }; /* It was changed to this after 2.4.5. */ const char vtbl_ptr_name[] = { '_','_','v','t','b','l','_','p','t','r','_','t','y','p','e', 0 }; /* Return truth value for assertion that TYPE is of the type "pointer to virtual function". */ int cp_is_vtbl_ptr_type(type) struct type *type; { char *typename = type_name_no_tag (type); return (typename != NULL && (STREQ (typename, vtbl_ptr_name) || STREQ (typename, vtbl_ptr_name_old))); } /* Return truth value for the assertion that TYPE is of the type "pointer to virtual function table". */ int cp_is_vtbl_member(type) struct type *type; { if (TYPE_CODE (type) == TYPE_CODE_PTR) { type = TYPE_TARGET_TYPE (type); if (TYPE_CODE (type) == TYPE_CODE_ARRAY) { type = TYPE_TARGET_TYPE (type); if (TYPE_CODE (type) == TYPE_CODE_STRUCT /* if not using thunks */ || TYPE_CODE (type) == TYPE_CODE_PTR) /* if using thunks */ { /* Virtual functions tables are full of pointers to virtual functions. */ return cp_is_vtbl_ptr_type (type); } } } return 0; } /* Mutually recursive subroutines of cplus_print_value and c_val_print to print out a structure's fields: cp_print_value_fields and cplus_print_value. TYPE, VALADDR, STREAM, RECURSE, and PRETTY have the same meanings as in cplus_print_value and c_val_print. DONT_PRINT is an array of baseclass types that we should not print, or zero if called from top level. */ void cp_print_value_fields (type, valaddr, stream, format, recurse, pretty, dont_print) struct type *type; char *valaddr; GDB_FILE *stream; int format; int recurse; enum val_prettyprint pretty; struct type **dont_print; { int i, len, n_baseclasses; check_stub_type (type); fprintf_filtered (stream, "{"); len = TYPE_NFIELDS (type); n_baseclasses = TYPE_N_BASECLASSES (type); /* Print out baseclasses such that we don't print duplicates of virtual baseclasses. */ if (n_baseclasses > 0) cplus_print_value (type, valaddr, stream, format, recurse+1, pretty, dont_print); if (!len && n_baseclasses == 1) fprintf_filtered (stream, ""); else { extern int inspect_it; int fields_seen = 0; for (i = n_baseclasses; i < len; i++) { /* Check if static field */ if (TYPE_FIELD_STATIC (type, i)) continue; if (fields_seen) fprintf_filtered (stream, ", "); else if (n_baseclasses > 0) { if (pretty) { fprintf_filtered (stream, "\n"); print_spaces_filtered (2 + 2 * recurse, stream); fputs_filtered ("members of ", stream); fputs_filtered (type_name_no_tag (type), stream); fputs_filtered (": ", stream); } } fields_seen = 1; if (pretty) { fprintf_filtered (stream, "\n"); print_spaces_filtered (2 + 2 * recurse, stream); } else { wrap_here (n_spaces (2 + 2 * recurse)); } if (inspect_it) { if (TYPE_CODE (TYPE_FIELD_TYPE (type, i)) == TYPE_CODE_PTR) fputs_filtered ("\"( ptr \"", stream); else fputs_filtered ("\"( nodef \"", stream); fprintf_symbol_filtered (stream, TYPE_FIELD_NAME (type, i), language_cplus, DMGL_PARAMS | DMGL_ANSI); fputs_filtered ("\" \"", stream); fprintf_symbol_filtered (stream, TYPE_FIELD_NAME (type, i), language_cplus, DMGL_PARAMS | DMGL_ANSI); fputs_filtered ("\") \"", stream); } else { annotate_field_begin (TYPE_FIELD_TYPE (type, i)); fprintf_symbol_filtered (stream, TYPE_FIELD_NAME (type, i), language_cplus, DMGL_PARAMS | DMGL_ANSI); annotate_field_name_end (); fputs_filtered (" = ", stream); annotate_field_value (); } if (TYPE_FIELD_PACKED (type, i)) { value_ptr v; /* Bitfields require special handling, especially due to byte order problems. */ if (TYPE_FIELD_IGNORE (type, i)) { fputs_filtered ("", stream); } else { v = value_from_longest (TYPE_FIELD_TYPE (type, i), unpack_field_as_long (type, valaddr, i)); val_print (TYPE_FIELD_TYPE(type, i), VALUE_CONTENTS (v), 0, stream, format, 0, recurse + 1, pretty); } } else { if (TYPE_FIELD_IGNORE (type, i)) { fputs_filtered ("", stream); } else { val_print (TYPE_FIELD_TYPE (type, i), valaddr + TYPE_FIELD_BITPOS (type, i) / 8, 0, stream, format, 0, recurse + 1, pretty); } } annotate_field_end (); } if (pretty) { fprintf_filtered (stream, "\n"); print_spaces_filtered (2 * recurse, stream); } } fprintf_filtered (stream, "}"); } /* Special val_print routine to avoid printing multiple copies of virtual baseclasses. */ static void cplus_print_value (type, valaddr, stream, format, recurse, pretty, dont_print) struct type *type; char *valaddr; GDB_FILE *stream; int format; int recurse; enum val_prettyprint pretty; struct type **dont_print; { struct obstack tmp_obstack; struct type **last_dont_print = (struct type **)obstack_next_free (&dont_print_obstack); int i, n_baseclasses = TYPE_N_BASECLASSES (type); if (dont_print == 0) { /* If we're at top level, carve out a completely fresh chunk of the obstack and use that until this particular invocation returns. */ tmp_obstack = dont_print_obstack; /* Bump up the high-water mark. Now alpha is omega. */ obstack_finish (&dont_print_obstack); } for (i = 0; i < n_baseclasses; i++) { /* FIXME-32x64--assumes that a target pointer can fit in a char *. Fix it by nuking baseclass_addr. */ char *baddr; int err; char *basename; check_stub_type (TYPE_BASECLASS (type, i)); basename = TYPE_NAME (TYPE_BASECLASS (type, i)); if (BASETYPE_VIA_VIRTUAL (type, i)) { struct type **first_dont_print = (struct type **)obstack_base (&dont_print_obstack); int j = (struct type **)obstack_next_free (&dont_print_obstack) - first_dont_print; while (--j >= 0) if (TYPE_BASECLASS (type, i) == first_dont_print[j]) goto flush_it; obstack_ptr_grow (&dont_print_obstack, TYPE_BASECLASS (type, i)); } /* Fix to use baseclass_offset instead. FIXME */ baddr = baseclass_addr (type, i, valaddr, 0, &err); if (err == 0 && baddr == 0) error ("could not find virtual baseclass %s\n", basename ? basename : ""); if (pretty) { fprintf_filtered (stream, "\n"); print_spaces_filtered (2 * recurse, stream); } fputs_filtered ("<", stream); /* Not sure what the best notation is in the case where there is no baseclass name. */ fputs_filtered (basename ? basename : "", stream); fputs_filtered ("> = ", stream); if (err != 0) { fprintf_filtered (stream, ""); } else cp_print_value_fields (TYPE_BASECLASS (type, i), baddr, stream, format, recurse, pretty, (struct type **) obstack_base (&dont_print_obstack)); fputs_filtered (", ", stream); flush_it: ; } if (dont_print == 0) { /* Free the space used to deal with the printing of this type from top level. */ obstack_free (&dont_print_obstack, last_dont_print); /* Reset watermark so that we can continue protecting ourselves from whatever we were protecting ourselves. */ dont_print_obstack = tmp_obstack; } } void cp_print_class_member (valaddr, domain, stream, prefix) char *valaddr; struct type *domain; GDB_FILE *stream; char *prefix; { /* VAL is a byte offset into the structure type DOMAIN. Find the name of the field for that offset and print it. */ int extra = 0; int bits = 0; register unsigned int i; unsigned len = TYPE_NFIELDS (domain); /* @@ Make VAL into bit offset */ LONGEST val = unpack_long (builtin_type_int, valaddr) << 3; for (i = TYPE_N_BASECLASSES (domain); i < len; i++) { int bitpos = TYPE_FIELD_BITPOS (domain, i); QUIT; if (val == bitpos) break; if (val < bitpos && i != 0) { /* Somehow pointing into a field. */ i -= 1; extra = (val - TYPE_FIELD_BITPOS (domain, i)); if (extra & 0x7) bits = 1; else extra >>= 3; break; } } if (i < len) { char *name; fprintf_filtered (stream, prefix); name = type_name_no_tag (domain); if (name) fputs_filtered (name, stream); else c_type_print_base (domain, stream, 0, 0); fprintf_filtered (stream, "::"); fputs_filtered (TYPE_FIELD_NAME (domain, i), stream); if (extra) fprintf_filtered (stream, " + %d bytes", extra); if (bits) fprintf_filtered (stream, " (offset in bits)"); } else fprintf_filtered (stream, "%d", val >> 3); } void _initialize_cp_valprint () { add_show_from_set (add_set_cmd ("vtbl", class_support, var_boolean, (char *)&vtblprint, "Set printing of C++ virtual function tables.", &setprintlist), &showprintlist); add_show_from_set (add_set_cmd ("object", class_support, var_boolean, (char *)&objectprint, "Set printing of object's derived type based on vtable info.", &setprintlist), &showprintlist); /* Give people the defaults which they are used to. */ objectprint = 0; vtblprint = 0; obstack_begin (&dont_print_obstack, 32 * sizeof (struct type *)); } gdb-4.13/gdb/cxux-nat.c 666 34562 1752 37403 5623166443 13244 0ustar fnfcygnus/* Native support for Motorola 88k running Harris CX/UX. Copyright 1988, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include #include #include #include #include "gdbcore.h" #include #include "bfd.h" #include "symfile.h" #include "objfiles.h" #include "symtab.h" #ifndef USER /* added to support BCS ptrace_user */ #define USER ptrace_user #endif #include #include #include #include #include "symtab.h" #include "setjmp.h" #include "value.h" #include /* CX/UX provides them already, but as word offsets instead of char offsets */ #define SXIP_OFFSET (PT_SXIP * 4) #define SNIP_OFFSET (PT_SNIP * 4) #define SFIP_OFFSET (PT_SFIP * 4) #define PSR_OFFSET (PT_PSR * sizeof(int)) #define FPSR_OFFSET (PT_FPSR * sizeof(int)) #define FPCR_OFFSET (PT_FPCR * sizeof(int)) #define XREGADDR(r) (((char *)&u.pt_x0-(char *)&u) + \ ((r)-X0_REGNUM)*sizeof(X_REGISTER_RAW_TYPE)) extern int have_symbol_file_p(); extern jmp_buf stack_jmp; extern int errno; extern char registers[REGISTER_BYTES]; void fetch_inferior_registers (regno) int regno; /* Original value discarded */ { register unsigned int regaddr; char buf[MAX_REGISTER_RAW_SIZE]; register int i; struct USER u; unsigned int offset; offset = (char *) &u.pt_r0 - (char *) &u; regaddr = offset; /* byte offset to r0;*/ /* offset = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0) - KERNEL_U_ADDR; */ for (regno = 0; regno < PC_REGNUM; regno++) { /*regaddr = register_addr (regno, offset);*/ /* 88k enhancement */ for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) { *(int *) &buf[i] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0); regaddr += sizeof (int); } supply_register (regno, buf); } /* now load up registers 32-37; special pc registers */ *(int *) &buf[0] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) PSR_OFFSET,0); supply_register (PSR_REGNUM, buf); *(int *) &buf[0] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) FPSR_OFFSET,0); supply_register (FPSR_REGNUM, buf); *(int *) &buf[0] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) FPCR_OFFSET,0); supply_register (FPCR_REGNUM, buf); *(int *) &buf[0] = ptrace (3,inferior_pid, (PTRACE_ARG3_TYPE) SXIP_OFFSET ,0); supply_register (SXIP_REGNUM, buf); *(int *) &buf[0] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) SNIP_OFFSET,0); supply_register (SNIP_REGNUM, buf); *(int *) &buf[0] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) SFIP_OFFSET,0); supply_register (SFIP_REGNUM, buf); if (target_is_m88110) { for (regaddr = XREGADDR(X0_REGNUM), regno = X0_REGNUM; regno < NUM_REGS; regno++, regaddr += 16) { X_REGISTER_RAW_TYPE xval; *(int *) &xval.w1 = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0); *(int *) &xval.w2 = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr+4), 0); *(int *) &xval.w3 = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr+8), 0); *(int *) &xval.w4 = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr+12), 0); supply_register(regno, (void *)&xval); } } } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { register unsigned int regaddr; char buf[80]; struct USER u; unsigned int offset = (char *) &u.pt_r0 - (char *) &u; regaddr = offset; /* Don't try to deal with EXIP_REGNUM or ENIP_REGNUM, because I think either svr3 doesn't run on an 88110, or the kernel isolates the different (not completely sure this is true, but seems to be. */ if (regno >= 0) { /* regaddr = register_addr (regno, offset); */ if (regno < PC_REGNUM) { regaddr = offset + regno * sizeof (int); errno = 0; ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, read_register (regno)); if (errno != 0) { sprintf (buf, "writing register number %d", regno); perror_with_name (buf); } } else if (regno == PSR_REGNUM) ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) PSR_OFFSET, read_register(regno)); else if (regno == FPSR_REGNUM) ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) FPSR_OFFSET, read_register(regno)); else if (regno == FPCR_REGNUM) ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) FPCR_OFFSET, read_register(regno)); else if (regno == SXIP_REGNUM) ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) SXIP_OFFSET, read_register(regno)); else if (regno == SNIP_REGNUM) ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) SNIP_OFFSET, read_register(regno)); else if (regno == SFIP_REGNUM) ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) SFIP_OFFSET, read_register(regno)); else if (target_is_m88110 && regno < NUM_REGS) { X_REGISTER_RAW_TYPE xval; read_register_bytes(REGISTER_BYTE(regno), (char *)&xval, sizeof(X_REGISTER_RAW_TYPE)); regaddr = XREGADDR(regno); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, xval.w1); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr+4, xval.w2); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr+8, xval.w3); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr+12, xval.w4); } else printf_unfiltered ("Bad register number for store_inferior routine\n"); } else { for (regno = 0; regno < PC_REGNUM; regno++) { /* regaddr = register_addr (regno, offset); */ errno = 0; regaddr = offset + regno * sizeof (int); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, read_register (regno)); if (errno != 0) { sprintf (buf, "writing register number %d", regno); perror_with_name (buf); } } ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) PSR_OFFSET, read_register(regno)); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) FPSR_OFFSET,read_register(regno)); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) FPCR_OFFSET,read_register(regno)); ptrace (6,inferior_pid, (PTRACE_ARG3_TYPE) SXIP_OFFSET,read_register(SXIP_REGNUM)); ptrace (6,inferior_pid, (PTRACE_ARG3_TYPE) SNIP_OFFSET,read_register(SNIP_REGNUM)); ptrace (6,inferior_pid, (PTRACE_ARG3_TYPE) SFIP_OFFSET,read_register(SFIP_REGNUM)); if (target_is_m88110) { for (regno = X0_REGNUM; regno < NUM_REGS; regno++) { X_REGISTER_RAW_TYPE xval; read_register_bytes(REGISTER_BYTE(regno), (char *)&xval, sizeof(X_REGISTER_RAW_TYPE)); regaddr = XREGADDR(regno); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, xval.w1); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr+4), xval.w2); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr+8), xval.w3); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr+12), xval.w4); } } } } /* blockend is the address of the end of the user structure */ m88k_register_u_addr (blockend, regnum) int blockend, regnum; { struct USER u; int ustart = blockend - sizeof (struct USER); if (regnum < PSR_REGNUM) return (ustart + ((int) &u.pt_r0 - (int) &u) + REGISTER_SIZE * regnum); else if (regnum == PSR_REGNUM) return (ustart + ((int) &u.pt_psr) - (int) &u); else if (regnum == FPSR_REGNUM) return (ustart + ((int) &u.pt_fpsr) - (int) &u); else if (regnum == FPCR_REGNUM) return (ustart + ((int) &u.pt_fpcr) - (int) &u); else if (regnum == SXIP_REGNUM) return (ustart + SXIP_OFFSET); else if (regnum == SNIP_REGNUM) return (ustart + SNIP_OFFSET); else if (regnum == SFIP_REGNUM) return (ustart + SFIP_OFFSET); else if (target_is_m88110) return (ustart + ((int) &u.pt_x0 - (int) &u) + /* Must be X register */ sizeof(u.pt_x0) * (regnum - X0_REGNUM)); else return (blockend + REGISTER_SIZE * regnum); } #ifdef USE_PROC_FS #include /* Given a pointer to a general register set in /proc format (gregset_t *), unpack the register contents and supply them as gdb's idea of the current register values. */ void supply_gregset (gregsetp) gregset_t *gregsetp; { register int regi; register greg_t *regp = (greg_t *) gregsetp; for (regi=0; regi <= SP_REGNUM; regi++) supply_register (regi, (char *) (regp + regi)); supply_register (SXIP_REGNUM, (char *) (regp + R_XIP)); supply_register (SNIP_REGNUM, (char *) (regp + R_NIP)); supply_register (SFIP_REGNUM, (char *) (regp + R_FIP)); supply_register (PSR_REGNUM, (char *) (regp + R_PSR)); supply_register (FPSR_REGNUM, (char *) (regp + R_FPSR)); supply_register (FPCR_REGNUM, (char *) (regp + R_FPCR)); } void fill_gregset (gregsetp, regno) gregset_t *gregsetp; int regno; { int regi; register greg_t *regp = (greg_t *) gregsetp; extern char registers[]; for (regi = 0 ; regi <= R_R31 ; regi++) if ((regno == -1) || (regno == regi)) *(regp + regi) = *(int *) ®isters[REGISTER_BYTE(regi)]; if ((regno == -1) || (regno == SXIP_REGNUM)) *(regp + R_XIP) = *(int *) ®isters[REGISTER_BYTE(SXIP_REGNUM)]; if ((regno == -1) || (regno == SNIP_REGNUM)) *(regp + R_NIP) = *(int *) ®isters[REGISTER_BYTE(SNIP_REGNUM)]; if ((regno == -1) || (regno == SFIP_REGNUM)) *(regp + R_FIP) = *(int *) ®isters[REGISTER_BYTE(SFIP_REGNUM)]; if ((regno == -1) || (regno == PSR_REGNUM)) *(regp + R_PSR) = *(int *) ®isters[REGISTER_BYTE(PSR_REGNUM)]; if ((regno == -1) || (regno == FPSR_REGNUM)) *(regp + R_FPSR) = *(int *) ®isters[REGISTER_BYTE(FPSR_REGNUM)]; if ((regno == -1) || (regno == FPCR_REGNUM)) *(regp + R_FPCR) = *(int *) ®isters[REGISTER_BYTE(FPCR_REGNUM)]; } #endif /* USE_PROC_FS */ /* This support adds the equivalent of adb's % command. When the `add-shared-symbol-files' command is given, this routine scans the dynamic linker's link map and reads the minimal symbols from each shared object file listed in the map. */ struct link_map { unsigned long l_addr; /* address at which object is mapped */ char *l_name; /* full name of loaded object */ void *l_ld; /* dynamic structure of object */ struct link_map *l_next; /* next link object */ struct link_map *l_prev; /* previous link object */ }; #define LINKS_MAP_POINTER "_ld_tail" #define LIBC_FILE "/usr/lib/libc.so.1" #define SHARED_OFFSET 0xf0001000 #ifndef PATH_MAX #define PATH_MAX 1023 /* maximum size of path name on OS */ #endif void add_shared_symbol_files () { void *desc; struct link_map *ld_map, *lm, lms; struct minimal_symbol *minsym; struct objfile *objfile; char *path_name; if (! inferior_pid) { warning ("The program has not yet been started."); return; } objfile = symbol_file_add (LIBC_FILE, 0, 0, 0, 0, 1); minsym = lookup_minimal_symbol (LINKS_MAP_POINTER, objfile); ld_map = (struct link_map *) read_memory_integer (((int)SYMBOL_VALUE_ADDRESS(minsym) + SHARED_OFFSET), 4); lm = ld_map; while (lm) { int local_errno = 0; read_memory ((CORE_ADDR)lm, (char*)&lms, sizeof (struct link_map)); if (lms.l_name) { if (target_read_string ((CORE_ADDR)lms.l_name, &path_name, PATH_MAX, &local_errno)) { symbol_file_add (path_name, 1, lms.l_addr, 0, 0, 0); free(path_name); } } /* traverse links in reverse order so that we get the the symbols the user actually gets. */ lm = lms.l_prev; } } int target_is_m88110; #if defined(_ES_MP) #include unsigned int m88k_harris_core_register_addr (regno, reg_ptr) int regno, reg_ptr; { unsigned int word_offset; switch (regno) { case PSR_REGNUM: word_offset = R_EPSR; break; case FPSR_REGNUM: word_offset = R_FPSR; break; case FPCR_REGNUM: word_offset = R_FPCR; break; case SXIP_REGNUM: word_offset = R_EXIP; break; case SNIP_REGNUM: word_offset = R_ENIP; break; case SFIP_REGNUM: word_offset = R_EFIP; break; default: if (regno <= FP_REGNUM) word_offset = regno; else word_offset = ((regno - X0_REGNUM) * 4); } return (word_offset * 4); } #endif /* _ES_MP */ void _initialize_m88k_nat() { #ifdef _ES_MP /* Enable 88110 support, as we don't support the 88100 under ES/MP. */ target_is_m88110 = 1; #elif defined(_CX_UX) /* Determine whether we're running on an 88100 or an 88110. */ target_is_m88110 = (sinfo(SYSMACHINE,0) == SYS5800); #endif /* _CX_UX */ } #ifdef _ES_MP /* Given a pointer to a general register set in /proc format (gregset_t *), unpack the register contents and supply them as gdb's idea of the current register values. */ void supply_gregset (gregsetp) gregset_t *gregsetp; { register int regi; register greg_t *regp = (greg_t *) gregsetp; for (regi = 0 ; regi < R_R31 ; regi++) { supply_register (regi, (char *) (regp + regi)); } supply_register (PSR_REGNUM, (char *) (regp + R_EPSR)); supply_register (FPSR_REGNUM, (char *) (regp + R_FPSR)); supply_register (FPCR_REGNUM, (char *) (regp + R_FPCR)); supply_register (SXIP_REGNUM, (char *) (regp + R_EXIP)); supply_register (SNIP_REGNUM, (char *) (regp + R_ENIP)); supply_register (SFIP_REGNUM, (char *) (regp + R_EFIP)); } /* Given a pointer to a floating point register set in /proc format (fpregset_t *), unpack the register contents and supply them as gdb's idea of the current floating point register values. */ void supply_fpregset (fpregsetp) fpregset_t *fpregsetp; { register int regi; char *from; for (regi = FP0_REGNUM ; regi <= FPLAST_REGNUM ; regi++) { from = (char *) &((*fpregsetp)[regi-FP0_REGNUM]); supply_register (regi, from); } } #endif /* _ES_MP */ #ifdef _CX_UX #include unsigned int m88k_harris_core_register_addr(int regno, int reg_ptr) { unsigned int word_offset; switch (regno) { case PSR_REGNUM : word_offset = R_PSR; break; case FPSR_REGNUM : word_offset = R_FPSR; break; case FPCR_REGNUM : word_offset = R_FPCR; break; case SXIP_REGNUM : word_offset = R_XIP; break; case SNIP_REGNUM : word_offset = R_NIP; break; case SFIP_REGNUM : word_offset = R_FIP; break; default : if (regno <= FP_REGNUM) word_offset = regno; else word_offset = ((regno - X0_REGNUM) * 4) + R_X0; } return (word_offset * 4); } #endif /* _CX_UX */ gdb-4.13/gdb/dbxread.c 666 34562 1752 236675 5611327247 13140 0ustar fnfcygnus/* Read dbx symbol tables and convert to internal format, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This module provides three functions: dbx_symfile_init, which initializes to read a symbol file; dbx_new_init, which discards existing cached information when all symbols are being discarded; and dbx_symfile_read, which reads a symbol table from a file. dbx_symfile_read only does the minimum work necessary for letting the user "name" things symbolically; it does not read the entire symtab. Instead, it reads the external and static symbols and puts them in partial symbol tables. When more extensive information is requested of a file, the corresponding partial symbol table is mutated into a full fledged symbol table by going back and reading the symbols for real. dbx_psymtab_to_symtab() is the function that does this */ #include "defs.h" #include #if defined(USG) || defined(__CYGNUSCLIB__) #include #include #endif #include #include #ifndef NO_SYS_FILE #include #endif #include #include #include "symtab.h" #include "breakpoint.h" #include "command.h" #include "target.h" #include "gdbcore.h" /* for bfd stuff */ #include "libaout.h" /* FIXME Secret internal BFD stuff for a.out */ #include "symfile.h" #include "objfiles.h" #include "buildsym.h" #include "stabsread.h" #include "gdb-stabs.h" #include "demangle.h" #include "language.h" /* Needed inside partial-stab.h */ #include "complaints.h" #include "aout/aout64.h" #include "aout/stab_gnu.h" /* We always use GNU stabs, not native, now */ #if !defined (SEEK_SET) #define SEEK_SET 0 #define SEEK_CUR 1 #endif /* Each partial symbol table entry contains a pointer to private data for the read_symtab() function to use when expanding a partial symbol table entry to a full symbol table entry. For dbxread this structure contains the offset within the file symbol table of first local symbol for this file, and length (in bytes) of the section of the symbol table devoted to this file's symbols (actually, the section bracketed may contain more than just this file's symbols). It also contains further information needed to locate the symbols if they are in an ELF file. If ldsymlen is 0, the only reason for this thing's existence is the dependency list. Nothing else will happen when it is read in. */ #define LDSYMOFF(p) (((struct symloc *)((p)->read_symtab_private))->ldsymoff) #define LDSYMLEN(p) (((struct symloc *)((p)->read_symtab_private))->ldsymlen) #define SYMLOC(p) ((struct symloc *)((p)->read_symtab_private)) #define SYMBOL_SIZE(p) (SYMLOC(p)->symbol_size) #define SYMBOL_OFFSET(p) (SYMLOC(p)->symbol_offset) #define STRING_OFFSET(p) (SYMLOC(p)->string_offset) #define FILE_STRING_OFFSET(p) (SYMLOC(p)->file_string_offset) struct symloc { int ldsymoff; int ldsymlen; int symbol_size; int symbol_offset; int string_offset; int file_string_offset; }; /* Macro to determine which symbols to ignore when reading the first symbol of a file. Some machines override this definition. */ #ifndef IGNORE_SYMBOL /* This code is used on Ultrix systems. Ignore it */ #define IGNORE_SYMBOL(type) (type == (int)N_NSYMS) #endif /* Remember what we deduced to be the source language of this psymtab. */ static enum language psymtab_language = language_unknown; /* Nonzero means give verbose info on gdb action. From main.c. */ extern int info_verbose; /* The BFD for this file -- implicit parameter to next_symbol_text. */ static bfd *symfile_bfd; /* The size of each symbol in the symbol file (in external form). This is set by dbx_symfile_read when building psymtabs, and by dbx_psymtab_to_symtab when building symtabs. */ static unsigned symbol_size; /* This is the offset of the symbol table in the executable file */ static unsigned symbol_table_offset; /* This is the offset of the string table in the executable file */ static unsigned string_table_offset; /* For elf+stab executables, the n_strx field is not a simple index into the string table. Instead, each .o file has a base offset in the string table, and the associated symbols contain offsets from this base. The following two variables contain the base offset for the current and next .o files. */ static unsigned int file_string_table_offset; static unsigned int next_file_string_table_offset; /* .o and NLM files contain unrelocated addresses which are based at 0. When non-zero, this flag disables some of the special cases for Solaris elf+stab text addresses at location 0. */ static int symfile_relocatable = 0; /* If this is nonzero, N_LBRAC, N_RBRAC, and N_SLINE entries are relative to the function start address. */ static int block_address_function_relative = 0; /* This is the lowest text address we have yet encountered. */ static CORE_ADDR lowest_text_address; /* Complaints about the symbols we have encountered. */ struct complaint lbrac_complaint = {"bad block start address patched", 0, 0}; struct complaint string_table_offset_complaint = {"bad string table offset in symbol %d", 0, 0}; struct complaint unknown_symtype_complaint = {"unknown symbol type %s", 0, 0}; struct complaint unknown_symchar_complaint = {"unknown symbol descriptor `%c'", 0, 0}; struct complaint lbrac_rbrac_complaint = {"block start larger than block end", 0, 0}; struct complaint lbrac_unmatched_complaint = {"unmatched N_LBRAC before symtab pos %d", 0, 0}; struct complaint lbrac_mismatch_complaint = {"N_LBRAC/N_RBRAC symbol mismatch at symtab pos %d", 0, 0}; struct complaint repeated_header_complaint = {"\"repeated\" header file not previously seen, at symtab pos %d", 0, 0}; struct complaint repeated_header_name_complaint = {"\"repeated\" header file not previously seen, named %s", 0, 0}; /* During initial symbol readin, we need to have a structure to keep track of which psymtabs have which bincls in them. This structure is used during readin to setup the list of dependencies within each partial symbol table. */ struct header_file_location { char *name; /* Name of header file */ int instance; /* See above */ struct partial_symtab *pst; /* Partial symtab that has the BINCL/EINCL defs for this file */ }; /* The actual list and controling variables */ static struct header_file_location *bincl_list, *next_bincl; static int bincls_allocated; /* Local function prototypes */ static void free_header_files PARAMS ((void)); static void init_header_files PARAMS ((void)); static void read_ofile_symtab PARAMS ((struct partial_symtab *)); static void dbx_psymtab_to_symtab PARAMS ((struct partial_symtab *)); static void dbx_psymtab_to_symtab_1 PARAMS ((struct partial_symtab *)); static void read_dbx_dynamic_symtab PARAMS ((struct section_offsets *, struct objfile *objfile)); static void read_dbx_symtab PARAMS ((struct section_offsets *, struct objfile *, CORE_ADDR, int)); static void free_bincl_list PARAMS ((struct objfile *)); static struct partial_symtab * find_corresponding_bincl_psymtab PARAMS ((char *, int)); static void add_bincl_to_list PARAMS ((struct partial_symtab *, char *, int)); static void init_bincl_list PARAMS ((int, struct objfile *)); static void init_psymbol_list PARAMS ((struct objfile *)); static char * dbx_next_symbol_text PARAMS ((void)); static void fill_symbuf PARAMS ((bfd *)); static void dbx_symfile_init PARAMS ((struct objfile *)); static void dbx_new_init PARAMS ((struct objfile *)); static void dbx_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int)); static void dbx_symfile_finish PARAMS ((struct objfile *)); static void record_minimal_symbol PARAMS ((char *, CORE_ADDR, int, struct objfile *)); static void add_new_header_file PARAMS ((char *, int)); static void add_old_header_file PARAMS ((char *, int)); static void add_this_object_header_file PARAMS ((int)); /* Free up old header file tables */ static void free_header_files () { register int i; if (header_files != NULL) { for (i = 0; i < n_header_files; i++) { free (header_files[i].name); } free ((PTR)header_files); header_files = NULL; n_header_files = 0; } if (this_object_header_files) { free ((PTR)this_object_header_files); this_object_header_files = NULL; } n_allocated_header_files = 0; n_allocated_this_object_header_files = 0; } /* Allocate new header file tables */ static void init_header_files () { n_header_files = 0; n_allocated_header_files = 10; header_files = (struct header_file *) xmalloc (10 * sizeof (struct header_file)); n_allocated_this_object_header_files = 10; this_object_header_files = (int *) xmalloc (10 * sizeof (int)); } /* Add header file number I for this object file at the next successive FILENUM. */ static void add_this_object_header_file (i) int i; { if (n_this_object_header_files == n_allocated_this_object_header_files) { n_allocated_this_object_header_files *= 2; this_object_header_files = (int *) xrealloc ((char *) this_object_header_files, n_allocated_this_object_header_files * sizeof (int)); } this_object_header_files[n_this_object_header_files++] = i; } /* Add to this file an "old" header file, one already seen in a previous object file. NAME is the header file's name. INSTANCE is its instance code, to select among multiple symbol tables for the same header file. */ static void add_old_header_file (name, instance) char *name; int instance; { register struct header_file *p = header_files; register int i; for (i = 0; i < n_header_files; i++) if (STREQ (p[i].name, name) && instance == p[i].instance) { add_this_object_header_file (i); return; } complain (&repeated_header_complaint, symnum); complain (&repeated_header_name_complaint, name); } /* Add to this file a "new" header file: definitions for its types follow. NAME is the header file's name. Most often this happens only once for each distinct header file, but not necessarily. If it happens more than once, INSTANCE has a different value each time, and references to the header file use INSTANCE values to select among them. dbx output contains "begin" and "end" markers for each new header file, but at this level we just need to know which files there have been; so we record the file when its "begin" is seen and ignore the "end". */ static void add_new_header_file (name, instance) char *name; int instance; { register int i; /* Make sure there is room for one more header file. */ if (n_header_files == n_allocated_header_files) { n_allocated_header_files *= 2; header_files = (struct header_file *) xrealloc ((char *) header_files, (n_allocated_header_files * sizeof (struct header_file))); } /* Create an entry for this header file. */ i = n_header_files++; header_files[i].name = savestring (name, strlen(name)); header_files[i].instance = instance; header_files[i].length = 10; header_files[i].vector = (struct type **) xmalloc (10 * sizeof (struct type *)); memset (header_files[i].vector, 0, 10 * sizeof (struct type *)); add_this_object_header_file (i); } #if 0 static struct type ** explicit_lookup_type (real_filenum, index) int real_filenum, index; { register struct header_file *f = &header_files[real_filenum]; if (index >= f->length) { f->length *= 2; f->vector = (struct type **) xrealloc (f->vector, f->length * sizeof (struct type *)); memset (&f->vector[f->length / 2], '\0', f->length * sizeof (struct type *) / 2); } return &f->vector[index]; } #endif static void record_minimal_symbol (name, address, type, objfile) char *name; CORE_ADDR address; int type; struct objfile *objfile; { enum minimal_symbol_type ms_type; int section; switch (type) { case N_TEXT | N_EXT: ms_type = mst_text; section = SECT_OFF_TEXT; break; case N_DATA | N_EXT: ms_type = mst_data; section = SECT_OFF_DATA; break; case N_BSS | N_EXT: ms_type = mst_bss; section = SECT_OFF_BSS; break; case N_ABS | N_EXT: ms_type = mst_abs; section = -1; break; #ifdef N_SETV case N_SETV | N_EXT: ms_type = mst_data; section = SECT_OFF_DATA; break; case N_SETV: /* I don't think this type actually exists; since a N_SETV is the result of going over many .o files, it doesn't make sense to have one file local. */ ms_type = mst_file_data; section = SECT_OFF_DATA; break; #endif case N_TEXT: case N_NBTEXT: case N_FN: case N_FN_SEQ: ms_type = mst_file_text; section = SECT_OFF_TEXT; break; case N_DATA: ms_type = mst_file_data; /* Check for __DYNAMIC, which is used by Sun shared libraries. Record it as global even if it's local, not global, so lookup_minimal_symbol can find it. We don't check symbol_leading_char because for SunOS4 it always is '_'. */ if (name[8] == 'C' && STREQ ("__DYNAMIC", name)) ms_type = mst_data; /* Same with virtual function tables, both global and static. */ { char *tempstring = name; if (tempstring[0] == bfd_get_symbol_leading_char (objfile->obfd)) ++tempstring; if (VTBL_PREFIX_P ((tempstring))) ms_type = mst_data; } section = SECT_OFF_DATA; break; case N_BSS: ms_type = mst_file_bss; section = SECT_OFF_BSS; break; default: ms_type = mst_unknown; section = -1; break; } if ((ms_type == mst_file_text || ms_type == mst_text) && address < lowest_text_address) lowest_text_address = address; prim_record_minimal_symbol_and_info (obsavestring (name, strlen (name), &objfile -> symbol_obstack), address, ms_type, NULL, section, objfile); } /* Scan and build partial symbols for a symbol file. We have been initialized by a call to dbx_symfile_init, which put all the relevant info into a "struct dbx_symfile_info", hung off the objfile structure. SECTION_OFFSETS contains offsets relative to which the symbols in the various sections are (depending where the sections were actually loaded). MAINLINE is true if we are reading the main symbol table (as opposed to a shared lib or dynamically loaded file). */ static void dbx_symfile_read (objfile, section_offsets, mainline) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; /* FIXME comments above */ { bfd *sym_bfd; int val; struct cleanup *back_to; val = strlen (objfile->name); /* .o and .nlm files are relocatables with text, data and bss segs based at 0. This flag disables special (Solaris stabs-in-elf only) fixups for symbols with a value of 0. XXX - This is a Krock. Solaris stabs-in-elf should be fixed to determine pst->textlow without using this text seg of 0 fixup crap. */ if (strcmp (&objfile->name[val-2], ".o") == 0 || strcmp (&objfile->name[val-4], ".nlm") == 0) symfile_relocatable = 1; /* This is true for Solaris (and all other systems which put stabs in sections, hopefully, since it would be silly to do things differently from Solaris), and false for SunOS4 and other a.out file formats. */ block_address_function_relative = ((0 == strncmp (bfd_get_target (objfile->obfd), "elf", 3)) || (0 == strncmp (bfd_get_target (objfile->obfd), "som", 3)) || (0 == strncmp (bfd_get_target (objfile->obfd), "coff", 4)) || (0 == strncmp (bfd_get_target (objfile->obfd), "nlm", 3))); sym_bfd = objfile->obfd; val = bfd_seek (objfile->obfd, DBX_SYMTAB_OFFSET (objfile), SEEK_SET); if (val < 0) perror_with_name (objfile->name); /* If we are reinitializing, or if we have never loaded syms yet, init */ if (mainline || objfile->global_psymbols.size == 0 || objfile->static_psymbols.size == 0) init_psymbol_list (objfile); symbol_size = DBX_SYMBOL_SIZE (objfile); symbol_table_offset = DBX_SYMTAB_OFFSET (objfile); pending_blocks = 0; back_to = make_cleanup (really_free_pendings, 0); init_minimal_symbol_collection (); make_cleanup (discard_minimal_symbols, 0); /* Now that the symbol table data of the executable file are all in core, process them and define symbols accordingly. */ read_dbx_symtab (section_offsets, objfile, bfd_section_vma (sym_bfd, DBX_TEXT_SECT (objfile)), bfd_section_size (sym_bfd, DBX_TEXT_SECT (objfile))); /* Add the dynamic symbols. */ read_dbx_dynamic_symtab (section_offsets, objfile); /* Install any minimal symbols that have been collected as the current minimal symbols for this objfile. */ install_minimal_symbols (objfile); do_cleanups (back_to); } /* Initialize anything that needs initializing when a completely new symbol file is specified (not just adding some symbols from another file, e.g. a shared library). */ static void dbx_new_init (ignore) struct objfile *ignore; { stabsread_new_init (); buildsym_new_init (); init_header_files (); } /* dbx_symfile_init () is the dbx-specific initialization routine for reading symbols. It is passed a struct objfile which contains, among other things, the BFD for the file whose symbols are being read, and a slot for a pointer to "private data" which we fill with goodies. We read the string table into malloc'd space and stash a pointer to it. Since BFD doesn't know how to read debug symbols in a format-independent way (and may never do so...), we have to do it ourselves. We will never be called unless this is an a.out (or very similar) file. FIXME, there should be a cleaner peephole into the BFD environment here. */ #define DBX_STRINGTAB_SIZE_SIZE sizeof(long) /* FIXME */ static void dbx_symfile_init (objfile) struct objfile *objfile; { int val; bfd *sym_bfd = objfile->obfd; char *name = bfd_get_filename (sym_bfd); unsigned char size_temp[DBX_STRINGTAB_SIZE_SIZE]; /* Allocate struct to keep track of the symfile */ objfile->sym_stab_info = (PTR) xmmalloc (objfile -> md, sizeof (struct dbx_symfile_info)); /* FIXME POKING INSIDE BFD DATA STRUCTURES */ #define STRING_TABLE_OFFSET (sym_bfd->origin + obj_str_filepos (sym_bfd)) #define SYMBOL_TABLE_OFFSET (sym_bfd->origin + obj_sym_filepos (sym_bfd)) /* FIXME POKING INSIDE BFD DATA STRUCTURES */ DBX_SYMFILE_INFO (objfile)->stab_section_info = NULL; DBX_TEXT_SECT (objfile) = bfd_get_section_by_name (sym_bfd, ".text"); if (!DBX_TEXT_SECT (objfile)) error ("Can't find .text section in symbol file"); DBX_SYMBOL_SIZE (objfile) = obj_symbol_entry_size (sym_bfd); DBX_SYMCOUNT (objfile) = bfd_get_symcount (sym_bfd); DBX_SYMTAB_OFFSET (objfile) = SYMBOL_TABLE_OFFSET; /* Read the string table and stash it away in the psymbol_obstack. It is only needed as long as we need to expand psymbols into full symbols, so when we blow away the psymbol the string table goes away as well. Note that gdb used to use the results of attempting to malloc the string table, based on the size it read, as a form of sanity check for botched byte swapping, on the theory that a byte swapped string table size would be so totally bogus that the malloc would fail. Now that we put in on the psymbol_obstack, we can't do this since gdb gets a fatal error (out of virtual memory) if the size is bogus. We can however at least check to see if the size is less than the size of the size field itself, or larger than the size of the entire file. Note that all valid string tables have a size greater than zero, since the bytes used to hold the size are included in the count. */ if (STRING_TABLE_OFFSET == 0) { /* It appears that with the existing bfd code, STRING_TABLE_OFFSET will never be zero, even when there is no string table. This would appear to be a bug in bfd. */ DBX_STRINGTAB_SIZE (objfile) = 0; DBX_STRINGTAB (objfile) = NULL; } else { val = bfd_seek (sym_bfd, STRING_TABLE_OFFSET, SEEK_SET); if (val < 0) perror_with_name (name); memset ((PTR) size_temp, 0, sizeof (size_temp)); val = bfd_read ((PTR) size_temp, sizeof (size_temp), 1, sym_bfd); if (val < 0) { perror_with_name (name); } else if (val == 0) { /* With the existing bfd code, STRING_TABLE_OFFSET will be set to EOF if there is no string table, and attempting to read the size from EOF will read zero bytes. */ DBX_STRINGTAB_SIZE (objfile) = 0; DBX_STRINGTAB (objfile) = NULL; } else { /* Read some data that would appear to be the string table size. If there really is a string table, then it is probably the right size. Byteswap if necessary and validate the size. Note that the minimum is DBX_STRINGTAB_SIZE_SIZE. If we just read some random data that happened to be at STRING_TABLE_OFFSET, because bfd can't tell us there is no string table, the sanity checks may or may not catch this. */ DBX_STRINGTAB_SIZE (objfile) = bfd_h_get_32 (sym_bfd, size_temp); if (DBX_STRINGTAB_SIZE (objfile) < sizeof (size_temp) || DBX_STRINGTAB_SIZE (objfile) > bfd_get_size (sym_bfd)) error ("ridiculous string table size (%d bytes).", DBX_STRINGTAB_SIZE (objfile)); DBX_STRINGTAB (objfile) = (char *) obstack_alloc (&objfile -> psymbol_obstack, DBX_STRINGTAB_SIZE (objfile)); /* Now read in the string table in one big gulp. */ val = bfd_seek (sym_bfd, STRING_TABLE_OFFSET, SEEK_SET); if (val < 0) perror_with_name (name); val = bfd_read (DBX_STRINGTAB (objfile), DBX_STRINGTAB_SIZE (objfile), 1, sym_bfd); if (val != DBX_STRINGTAB_SIZE (objfile)) perror_with_name (name); } } } /* Perform any local cleanups required when we are done with a particular objfile. I.E, we are in the process of discarding all symbol information for an objfile, freeing up all memory held for it, and unlinking the objfile struct from the global list of known objfiles. */ static void dbx_symfile_finish (objfile) struct objfile *objfile; { if (objfile->sym_stab_info != NULL) { mfree (objfile -> md, objfile->sym_stab_info); } free_header_files (); } /* Buffer for reading the symbol table entries. */ static struct internal_nlist symbuf[4096]; static int symbuf_idx; static int symbuf_end; /* Name of last function encountered. Used in Solaris to approximate object file boundaries. */ static char *last_function_name; /* The address in memory of the string table of the object file we are reading (which might not be the "main" object file, but might be a shared library or some other dynamically loaded thing). This is set by read_dbx_symtab when building psymtabs, and by read_ofile_symtab when building symtabs, and is used only by next_symbol_text. */ static char *stringtab_global; /* Refill the symbol table input buffer and set the variables that control fetching entries from it. Reports an error if no data available. This function can read past the end of the symbol table (into the string table) but this does no harm. */ static void fill_symbuf (sym_bfd) bfd *sym_bfd; { int nbytes = bfd_read ((PTR)symbuf, sizeof (symbuf), 1, sym_bfd); if (nbytes < 0) perror_with_name (bfd_get_filename (sym_bfd)); else if (nbytes == 0) error ("Premature end of file reading symbol table"); symbuf_end = nbytes / symbol_size; symbuf_idx = 0; } #define SWAP_SYMBOL(symp, abfd) \ { \ (symp)->n_strx = bfd_h_get_32(abfd, \ (unsigned char *)&(symp)->n_strx); \ (symp)->n_desc = bfd_h_get_16 (abfd, \ (unsigned char *)&(symp)->n_desc); \ (symp)->n_value = bfd_h_get_32 (abfd, \ (unsigned char *)&(symp)->n_value); \ } /* Invariant: The symbol pointed to by symbuf_idx is the first one that hasn't been swapped. Swap the symbol at the same time that symbuf_idx is incremented. */ /* dbx allows the text of a symbol name to be continued into the next symbol name! When such a continuation is encountered (a \ at the end of the text of a name) call this function to get the continuation. */ static char * dbx_next_symbol_text () { if (symbuf_idx == symbuf_end) fill_symbuf (symfile_bfd); symnum++; SWAP_SYMBOL(&symbuf[symbuf_idx], symfile_bfd); return symbuf[symbuf_idx++].n_strx + stringtab_global + file_string_table_offset; } /* Initializes storage for all of the partial symbols that will be created by read_dbx_symtab and subsidiaries. */ static void init_psymbol_list (objfile) struct objfile *objfile; { /* Free any previously allocated psymbol lists. */ if (objfile -> global_psymbols.list) mfree (objfile -> md, (PTR)objfile -> global_psymbols.list); if (objfile -> static_psymbols.list) mfree (objfile -> md, (PTR)objfile -> static_psymbols.list); /* Current best guess is that there are approximately a twentieth of the total symbols (in a debugging file) are global or static oriented symbols */ objfile -> global_psymbols.size = DBX_SYMCOUNT (objfile) / 10; objfile -> static_psymbols.size = DBX_SYMCOUNT (objfile) / 10; objfile -> global_psymbols.next = objfile -> global_psymbols.list = (struct partial_symbol *) xmmalloc (objfile -> md, objfile -> global_psymbols.size * sizeof (struct partial_symbol)); objfile -> static_psymbols.next = objfile -> static_psymbols.list = (struct partial_symbol *) xmmalloc (objfile -> md, objfile -> static_psymbols.size * sizeof (struct partial_symbol)); } /* Initialize the list of bincls to contain none and have some allocated. */ static void init_bincl_list (number, objfile) int number; struct objfile *objfile; { bincls_allocated = number; next_bincl = bincl_list = (struct header_file_location *) xmmalloc (objfile -> md, bincls_allocated * sizeof(struct header_file_location)); } /* Add a bincl to the list. */ static void add_bincl_to_list (pst, name, instance) struct partial_symtab *pst; char *name; int instance; { if (next_bincl >= bincl_list + bincls_allocated) { int offset = next_bincl - bincl_list; bincls_allocated *= 2; bincl_list = (struct header_file_location *) xmrealloc (pst->objfile->md, (char *)bincl_list, bincls_allocated * sizeof (struct header_file_location)); next_bincl = bincl_list + offset; } next_bincl->pst = pst; next_bincl->instance = instance; next_bincl++->name = name; } /* Given a name, value pair, find the corresponding bincl in the list. Return the partial symtab associated with that header_file_location. */ static struct partial_symtab * find_corresponding_bincl_psymtab (name, instance) char *name; int instance; { struct header_file_location *bincl; for (bincl = bincl_list; bincl < next_bincl; bincl++) if (bincl->instance == instance && STREQ (name, bincl->name)) return bincl->pst; return (struct partial_symtab *) 0; } /* Free the storage allocated for the bincl list. */ static void free_bincl_list (objfile) struct objfile *objfile; { mfree (objfile -> md, (PTR)bincl_list); bincls_allocated = 0; } /* Scan a SunOs dynamic symbol table for symbols of interest and add them to the minimal symbol table. */ static void read_dbx_dynamic_symtab (section_offsets, objfile) struct section_offsets *section_offsets; struct objfile *objfile; { bfd *abfd = objfile->obfd; struct cleanup *back_to; int counter; long dynsym_size; long dynsym_count; asymbol **dynsyms; asymbol **symptr; arelent **relptr; long dynrel_size; long dynrel_count; arelent **dynrels; CORE_ADDR sym_value; /* Check that the symbol file has dynamic symbols that we know about. bfd_arch_unknown can happen if we are reading a sun3 symbol file on a sun4 host (and vice versa) and bfd is not configured --with-target=all. This would trigger an assertion in bfd/sunos.c, so we ignore the dynamic symbols in this case. */ if (bfd_get_flavour (abfd) != bfd_target_aout_flavour || (bfd_get_file_flags (abfd) & DYNAMIC) == 0 || bfd_get_arch (abfd) == bfd_arch_unknown) return; dynsym_size = bfd_get_dynamic_symtab_upper_bound (abfd); if (dynsym_size < 0) return; dynsyms = (asymbol **) xmalloc (dynsym_size); back_to = make_cleanup (free, dynsyms); dynsym_count = bfd_canonicalize_dynamic_symtab (abfd, dynsyms); if (dynsym_count < 0) { do_cleanups (back_to); return; } /* Enter dynamic symbols into the minimal symbol table if this is a stripped executable. */ if (bfd_get_symcount (abfd) <= 0) { symptr = dynsyms; for (counter = 0; counter < dynsym_count; counter++, symptr++) { asymbol *sym = *symptr; asection *sec; int type; sec = bfd_get_section (sym); /* BFD symbols are section relative. */ sym_value = sym->value + sec->vma; if (bfd_get_section_flags (abfd, sec) & SEC_CODE) { sym_value += ANOFFSET (section_offsets, SECT_OFF_TEXT); type = N_TEXT; } else if (bfd_get_section_flags (abfd, sec) & SEC_DATA) { sym_value += ANOFFSET (section_offsets, SECT_OFF_DATA); type = N_DATA; } else if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC) { sym_value += ANOFFSET (section_offsets, SECT_OFF_BSS); type = N_BSS; } else continue; if (sym->flags & BSF_GLOBAL) type |= N_EXT; record_minimal_symbol ((char *) bfd_asymbol_name (sym), sym_value, type, objfile); } } /* Symbols from shared libraries have a dynamic relocation entry that points to the associated slot in the procedure linkage table. We make a mininal symbol table entry with type mst_solib_trampoline at the address in the procedure linkage table. */ dynrel_size = bfd_get_dynamic_reloc_upper_bound (abfd); if (dynrel_size < 0) { do_cleanups (back_to); return; } dynrels = (arelent **) xmalloc (dynrel_size); make_cleanup (free, dynrels); dynrel_count = bfd_canonicalize_dynamic_reloc (abfd, dynrels, dynsyms); if (dynrel_count < 0) { do_cleanups (back_to); return; } for (counter = 0, relptr = dynrels; counter < dynrel_count; counter++, relptr++) { arelent *rel = *relptr; CORE_ADDR address = rel->address + ANOFFSET (section_offsets, SECT_OFF_DATA); switch (bfd_get_arch (abfd)) { case bfd_arch_sparc: if (rel->howto->type != RELOC_JMP_SLOT) continue; break; case bfd_arch_m68k: /* `16' is the type BFD produces for a jump table relocation. */ if (rel->howto->type != 16) continue; /* Adjust address in the jump table to point to the start of the bsr instruction. */ address -= 2; break; default: continue; } prim_record_minimal_symbol (bfd_asymbol_name (*rel->sym_ptr_ptr), address, mst_solib_trampoline, objfile); } do_cleanups (back_to); } /* Given pointers to an a.out symbol table in core containing dbx style data, setup partial_symtab's describing each source file for which debugging information is available. SYMFILE_NAME is the name of the file we are reading from and SECTION_OFFSETS is the set of offsets for the various sections of the file (a set of zeros if the mainline program). */ static void read_dbx_symtab (section_offsets, objfile, text_addr, text_size) struct section_offsets *section_offsets; struct objfile *objfile; CORE_ADDR text_addr; int text_size; { register struct internal_nlist *bufp = 0; /* =0 avoids gcc -Wall glitch */ register char *namestring; int nsl; int past_first_source_file = 0; CORE_ADDR last_o_file_start = 0; struct cleanup *back_to; bfd *abfd; /* Current partial symtab */ struct partial_symtab *pst; /* List of current psymtab's include files */ char **psymtab_include_list; int includes_allocated; int includes_used; /* Index within current psymtab dependency list */ struct partial_symtab **dependency_list; int dependencies_used, dependencies_allocated; /* FIXME. We probably want to change stringtab_global rather than add this while processing every symbol entry. FIXME. */ file_string_table_offset = 0; next_file_string_table_offset = 0; stringtab_global = DBX_STRINGTAB (objfile); pst = (struct partial_symtab *) 0; includes_allocated = 30; includes_used = 0; psymtab_include_list = (char **) alloca (includes_allocated * sizeof (char *)); dependencies_allocated = 30; dependencies_used = 0; dependency_list = (struct partial_symtab **) alloca (dependencies_allocated * sizeof (struct partial_symtab *)); /* Init bincl list */ init_bincl_list (20, objfile); back_to = make_cleanup (free_bincl_list, objfile); last_source_file = NULL; lowest_text_address = (CORE_ADDR)-1; symfile_bfd = objfile->obfd; /* For next_text_symbol */ abfd = objfile->obfd; symbuf_end = symbuf_idx = 0; next_symbol_text_func = dbx_next_symbol_text; for (symnum = 0; symnum < DBX_SYMCOUNT (objfile); symnum++) { /* Get the symbol for this run and pull out some info */ QUIT; /* allow this to be interruptable */ if (symbuf_idx == symbuf_end) fill_symbuf (abfd); bufp = &symbuf[symbuf_idx++]; /* * Special case to speed up readin. */ if (bufp->n_type == (unsigned char)N_SLINE) continue; SWAP_SYMBOL (bufp, abfd); /* Ok. There is a lot of code duplicated in the rest of this switch statement (for efficiency reasons). Since I don't like duplicating code, I will do my penance here, and describe the code which is duplicated: *) The assignment to namestring. *) The call to strchr. *) The addition of a partial symbol the the two partial symbol lists. This last is a large section of code, so I've imbedded it in the following macro. */ /* Set namestring based on bufp. If the string table index is invalid, give a fake name, and print a single error message per symbol file read, rather than abort the symbol reading or flood the user with messages. */ /*FIXME: Too many adds and indirections in here for the inner loop. */ #define SET_NAMESTRING()\ if (((unsigned)bufp->n_strx + file_string_table_offset) >= \ DBX_STRINGTAB_SIZE (objfile)) { \ complain (&string_table_offset_complaint, symnum); \ namestring = ""; \ } else \ namestring = bufp->n_strx + file_string_table_offset + \ DBX_STRINGTAB (objfile) #define CUR_SYMBOL_TYPE bufp->n_type #define CUR_SYMBOL_VALUE bufp->n_value #define DBXREAD_ONLY #define START_PSYMTAB(ofile,secoff,fname,low,symoff,global_syms,static_syms)\ start_psymtab(ofile, secoff, fname, low, symoff, global_syms, static_syms) #define END_PSYMTAB(pst,ilist,ninc,c_off,c_text,dep_list,n_deps)\ end_psymtab(pst,ilist,ninc,c_off,c_text,dep_list,n_deps) #include "partial-stab.h" } /* If there's stuff to be cleaned up, clean it up. */ if (DBX_SYMCOUNT (objfile) > 0 /* We have some syms */ /*FIXME, does this have a bug at start address 0? */ && last_o_file_start && objfile -> ei.entry_point < bufp->n_value && objfile -> ei.entry_point >= last_o_file_start) { objfile -> ei.entry_file_lowpc = last_o_file_start; objfile -> ei.entry_file_highpc = bufp->n_value; } if (pst) { end_psymtab (pst, psymtab_include_list, includes_used, symnum * symbol_size, (lowest_text_address == (CORE_ADDR)-1 ? (text_addr + section_offsets->offsets[SECT_OFF_TEXT]) : lowest_text_address) + text_size, dependency_list, dependencies_used); } do_cleanups (back_to); } /* Allocate and partially fill a partial symtab. It will be completely filled at the end of the symbol list. SYMFILE_NAME is the name of the symbol-file we are reading from, and ADDR is the address relative to which its symbols are (incremental) or 0 (normal). */ struct partial_symtab * start_psymtab (objfile, section_offsets, filename, textlow, ldsymoff, global_syms, static_syms) struct objfile *objfile; struct section_offsets *section_offsets; char *filename; CORE_ADDR textlow; int ldsymoff; struct partial_symbol *global_syms; struct partial_symbol *static_syms; { struct partial_symtab *result = start_psymtab_common(objfile, section_offsets, filename, textlow, global_syms, static_syms); result->read_symtab_private = (char *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct symloc)); LDSYMOFF(result) = ldsymoff; result->read_symtab = dbx_psymtab_to_symtab; SYMBOL_SIZE(result) = symbol_size; SYMBOL_OFFSET(result) = symbol_table_offset; STRING_OFFSET(result) = string_table_offset; FILE_STRING_OFFSET(result) = file_string_table_offset; /* If we're handling an ELF file, drag some section-relocation info for this source file out of the ELF symbol table, to compensate for Sun brain death. This replaces the section_offsets in this psymtab, if successful. */ elfstab_offset_sections (objfile, result); /* Deduce the source language from the filename for this psymtab. */ psymtab_language = deduce_language_from_filename (filename); return result; } /* Close off the current usage of PST. Returns PST or NULL if the partial symtab was empty and thrown away. FIXME: List variables and peculiarities of same. */ struct partial_symtab * end_psymtab (pst, include_list, num_includes, capping_symbol_offset, capping_text, dependency_list, number_dependencies) struct partial_symtab *pst; char **include_list; int num_includes; int capping_symbol_offset; CORE_ADDR capping_text; struct partial_symtab **dependency_list; int number_dependencies; { int i; struct objfile *objfile = pst -> objfile; if (capping_symbol_offset != -1) LDSYMLEN(pst) = capping_symbol_offset - LDSYMOFF(pst); pst->texthigh = capping_text; #ifdef N_SO_ADDRESS_MAYBE_MISSING /* Under Solaris, the N_SO symbols always have a value of 0, instead of the usual address of the .o file. Therefore, we have to do some tricks to fill in texthigh and textlow. The first trick is in partial-stab.h: if we see a static or global function, and the textlow for the current pst is still 0, then we use that function's address for the textlow of the pst. Now, to fill in texthigh, we remember the last function seen in the .o file (also in partial-stab.h). Also, there's a hack in bfd/elf.c and gdb/elfread.c to pass the ELF st_size field to here via the misc_info field. Therefore, we can fill in a reliable texthigh by taking the address plus size of the last function in the file. Unfortunately, that does not cover the case where the last function in the file is static. See the paragraph below for more comments on this situation. Finally, if we have a valid textlow for the current file, we run down the partial_symtab_list filling in previous texthighs that are still unknown. */ if (pst->texthigh == 0 && last_function_name) { char *p; int n; struct minimal_symbol *minsym; p = strchr (last_function_name, ':'); if (p == NULL) p = last_function_name; n = p - last_function_name; p = alloca (n + 1); strncpy (p, last_function_name, n); p[n] = 0; minsym = lookup_minimal_symbol (p, objfile); if (minsym) { pst->texthigh = SYMBOL_VALUE_ADDRESS (minsym) + (long) MSYMBOL_INFO (minsym); } else { /* This file ends with a static function, and it's difficult to imagine how hard it would be to track down the elf symbol. Luckily, most of the time no one will notice, since the next file will likely be compiled with -g, so the code below will copy the first fuction's start address back to our texthigh variable. (Also, if this file is the last one in a dynamically linked program, texthigh already has the right value.) If the next file isn't compiled with -g, then the last function in this file winds up owning all of the text space up to the next -g file, or the end (minus shared libraries). This only matters for single stepping, and even then it will still work, except that it will single step through all of the covered functions, instead of setting breakpoints around them as it usualy does. This makes it pretty slow, but at least it doesn't fail. We can fix this with a fairly big change to bfd, but we need to coordinate better with Cygnus if we want to do that. FIXME. */ } last_function_name = NULL; } /* this test will be true if the last .o file is only data */ if (pst->textlow == 0) /* This loses if the text section really starts at address zero (generally true when we are debugging a .o file, for example). That is why this whole thing is inside N_SO_ADDRESS_MAYBE_MISSING. */ pst->textlow = pst->texthigh; /* If we know our own starting text address, then walk through all other psymtabs for this objfile, and if any didn't know their ending text address, set it to our starting address. Take care to not set our own ending address to our starting address, nor to set addresses on `dependency' files that have both textlow and texthigh zero. */ if (pst->textlow) { struct partial_symtab *p1; ALL_OBJFILE_PSYMTABS (objfile, p1) { if (p1->texthigh == 0 && p1->textlow != 0 && p1 != pst) { p1->texthigh = pst->textlow; /* if this file has only data, then make textlow match texthigh */ if (p1->textlow == 0) p1->textlow = p1->texthigh; } } } /* End of kludge for patching Solaris textlow and texthigh. */ #endif /* N_SO_ADDRESS_MAYBE_MISSING. */ pst->n_global_syms = objfile->global_psymbols.next - (objfile->global_psymbols.list + pst->globals_offset); pst->n_static_syms = objfile->static_psymbols.next - (objfile->static_psymbols.list + pst->statics_offset); pst->number_of_dependencies = number_dependencies; if (number_dependencies) { pst->dependencies = (struct partial_symtab **) obstack_alloc (&objfile->psymbol_obstack, number_dependencies * sizeof (struct partial_symtab *)); memcpy (pst->dependencies, dependency_list, number_dependencies * sizeof (struct partial_symtab *)); } else pst->dependencies = 0; for (i = 0; i < num_includes; i++) { struct partial_symtab *subpst = allocate_psymtab (include_list[i], objfile); subpst->section_offsets = pst->section_offsets; subpst->read_symtab_private = (char *) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct symloc)); LDSYMOFF(subpst) = LDSYMLEN(subpst) = subpst->textlow = subpst->texthigh = 0; /* We could save slight bits of space by only making one of these, shared by the entire set of include files. FIXME-someday. */ subpst->dependencies = (struct partial_symtab **) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct partial_symtab *)); subpst->dependencies[0] = pst; subpst->number_of_dependencies = 1; subpst->globals_offset = subpst->n_global_syms = subpst->statics_offset = subpst->n_static_syms = 0; subpst->readin = 0; subpst->symtab = 0; subpst->read_symtab = pst->read_symtab; } sort_pst_symbols (pst); /* If there is already a psymtab or symtab for a file of this name, remove it. (If there is a symtab, more drastic things also happen.) This happens in VxWorks. */ free_named_symtabs (pst->filename); if (num_includes == 0 && number_dependencies == 0 && pst->n_global_syms == 0 && pst->n_static_syms == 0) { /* Throw away this psymtab, it's empty. We can't deallocate it, since it is on the obstack, but we can forget to chain it on the list. */ /* Empty psymtabs happen as a result of header files which don't have any symbols in them. There can be a lot of them. But this check is wrong, in that a psymtab with N_SLINE entries but nothing else is not empty, but we don't realize that. Fixing that without slowing things down might be tricky. */ struct partial_symtab *prev_pst; /* First, snip it out of the psymtab chain */ if (pst->objfile->psymtabs == pst) pst->objfile->psymtabs = pst->next; else for (prev_pst = pst->objfile->psymtabs; prev_pst; prev_pst = pst->next) if (prev_pst->next == pst) prev_pst->next = pst->next; /* Next, put it on a free list for recycling */ pst->next = pst->objfile->free_psymtabs; pst->objfile->free_psymtabs = pst; /* Indicate that psymtab was thrown away. */ pst = (struct partial_symtab *)NULL; } return pst; } static void dbx_psymtab_to_symtab_1 (pst) struct partial_symtab *pst; { struct cleanup *old_chain; int i; if (!pst) return; if (pst->readin) { fprintf_unfiltered (gdb_stderr, "Psymtab for %s already read in. Shouldn't happen.\n", pst->filename); return; } /* Read in all partial symtabs on which this one is dependent */ for (i = 0; i < pst->number_of_dependencies; i++) if (!pst->dependencies[i]->readin) { /* Inform about additional files that need to be read in. */ if (info_verbose) { fputs_filtered (" ", gdb_stdout); wrap_here (""); fputs_filtered ("and ", gdb_stdout); wrap_here (""); printf_filtered ("%s...", pst->dependencies[i]->filename); wrap_here (""); /* Flush output */ gdb_flush (gdb_stdout); } dbx_psymtab_to_symtab_1 (pst->dependencies[i]); } if (LDSYMLEN(pst)) /* Otherwise it's a dummy */ { /* Init stuff necessary for reading in symbols */ stabsread_init (); buildsym_init (); old_chain = make_cleanup (really_free_pendings, 0); file_string_table_offset = FILE_STRING_OFFSET (pst); symbol_size = SYMBOL_SIZE (pst); /* Read in this file's symbols */ bfd_seek (pst->objfile->obfd, SYMBOL_OFFSET (pst), SEEK_SET); read_ofile_symtab (pst); sort_symtab_syms (pst->symtab); do_cleanups (old_chain); } pst->readin = 1; } /* Read in all of the symbols for a given psymtab for real. Be verbose about it if the user wants that. */ static void dbx_psymtab_to_symtab (pst) struct partial_symtab *pst; { bfd *sym_bfd; if (!pst) return; if (pst->readin) { fprintf_unfiltered (gdb_stderr, "Psymtab for %s already read in. Shouldn't happen.\n", pst->filename); return; } if (LDSYMLEN(pst) || pst->number_of_dependencies) { /* Print the message now, before reading the string table, to avoid disconcerting pauses. */ if (info_verbose) { printf_filtered ("Reading in symbols for %s...", pst->filename); gdb_flush (gdb_stdout); } sym_bfd = pst->objfile->obfd; next_symbol_text_func = dbx_next_symbol_text; dbx_psymtab_to_symtab_1 (pst); /* Match with global symbols. This only needs to be done once, after all of the symtabs and dependencies have been read in. */ scan_file_globals (pst->objfile); /* Finish up the debug error message. */ if (info_verbose) printf_filtered ("done.\n"); } } /* Read in a defined section of a specific object file's symbols. */ static void read_ofile_symtab (pst) struct partial_symtab *pst; { register char *namestring; register struct internal_nlist *bufp; unsigned char type; unsigned max_symnum; register bfd *abfd; struct objfile *objfile; int sym_offset; /* Offset to start of symbols to read */ int sym_size; /* Size of symbols to read */ CORE_ADDR text_offset; /* Start of text segment for symbols */ int text_size; /* Size of text segment for symbols */ struct section_offsets *section_offsets; objfile = pst->objfile; sym_offset = LDSYMOFF(pst); sym_size = LDSYMLEN(pst); text_offset = pst->textlow; text_size = pst->texthigh - pst->textlow; section_offsets = pst->section_offsets; current_objfile = objfile; subfile_stack = NULL; stringtab_global = DBX_STRINGTAB (objfile); last_source_file = NULL; abfd = objfile->obfd; symfile_bfd = objfile->obfd; /* Implicit param to next_text_symbol */ symbuf_end = symbuf_idx = 0; /* It is necessary to actually read one symbol *before* the start of this symtab's symbols, because the GCC_COMPILED_FLAG_SYMBOL occurs before the N_SO symbol. Detecting this in read_dbx_symtab would slow down initial readin, so we look for it here instead. */ if (!processing_acc_compilation && sym_offset >= (int)symbol_size) { bfd_seek (symfile_bfd, sym_offset - symbol_size, SEEK_CUR); fill_symbuf (abfd); bufp = &symbuf[symbuf_idx++]; SWAP_SYMBOL (bufp, abfd); SET_NAMESTRING (); processing_gcc_compilation = 0; if (bufp->n_type == N_TEXT) { const char *tempstring = namestring; if (STREQ (namestring, GCC_COMPILED_FLAG_SYMBOL)) processing_gcc_compilation = 1; else if (STREQ (namestring, GCC2_COMPILED_FLAG_SYMBOL)) processing_gcc_compilation = 2; if (tempstring[0] == bfd_get_symbol_leading_char (symfile_bfd)) ++tempstring; if (STREQN (tempstring, "__gnu_compiled", 14)) processing_gcc_compilation = 2; } /* Try to select a C++ demangling based on the compilation unit producer. */ if (processing_gcc_compilation) { if (AUTO_DEMANGLING) { set_demangling_style (GNU_DEMANGLING_STYLE_STRING); } } } else { /* The N_SO starting this symtab is the first symbol, so we better not check the symbol before it. I'm not this can happen, but it doesn't hurt to check for it. */ bfd_seek (symfile_bfd, sym_offset, SEEK_CUR); processing_gcc_compilation = 0; } if (symbuf_idx == symbuf_end) fill_symbuf (abfd); bufp = &symbuf[symbuf_idx]; if (bufp->n_type != (unsigned char)N_SO) error("First symbol in segment of executable not a source symbol"); max_symnum = sym_size / symbol_size; for (symnum = 0; symnum < max_symnum; symnum++) { QUIT; /* Allow this to be interruptable */ if (symbuf_idx == symbuf_end) fill_symbuf(abfd); bufp = &symbuf[symbuf_idx++]; SWAP_SYMBOL (bufp, abfd); type = bufp->n_type; SET_NAMESTRING (); if (type & N_STAB) { process_one_symbol (type, bufp->n_desc, bufp->n_value, namestring, section_offsets, objfile); } /* We skip checking for a new .o or -l file; that should never happen in this routine. */ else if (type == N_TEXT) { /* I don't think this code will ever be executed, because the GCC_COMPILED_FLAG_SYMBOL usually is right before the N_SO symbol which starts this source file. However, there is no reason not to accept the GCC_COMPILED_FLAG_SYMBOL anywhere. */ if (STREQ (namestring, GCC_COMPILED_FLAG_SYMBOL)) processing_gcc_compilation = 1; else if (STREQ (namestring, GCC2_COMPILED_FLAG_SYMBOL)) processing_gcc_compilation = 2; if (AUTO_DEMANGLING) { set_demangling_style (GNU_DEMANGLING_STYLE_STRING); } } else if (type & N_EXT || type == (unsigned char)N_TEXT || type == (unsigned char)N_NBTEXT ) { /* Global symbol: see if we came across a dbx defintion for a corresponding symbol. If so, store the value. Remove syms from the chain when their values are stored, but search the whole chain, as there may be several syms from different files with the same name. */ /* This is probably not true. Since the files will be read in one at a time, each reference to a global symbol will be satisfied in each file as it appears. So we skip this section. */ ; } } current_objfile = NULL; /* In a Solaris elf file, this variable, which comes from the value of the N_SO symbol, will still be 0. Luckily, text_offset, which comes from pst->textlow is correct. */ if (last_source_start_addr == 0) last_source_start_addr = text_offset; pst->symtab = end_symtab (text_offset + text_size, 0, 0, objfile, SECT_OFF_TEXT); end_stabs (); } /* This handles a single symbol from the symbol-file, building symbols into a GDB symtab. It takes these arguments and an implicit argument. TYPE is the type field of the ".stab" symbol entry. DESC is the desc field of the ".stab" entry. VALU is the value field of the ".stab" entry. NAME is the symbol name, in our address space. SECTION_OFFSETS is a set of amounts by which the sections of this object file were relocated when it was loaded into memory. All symbols that refer to memory locations need to be offset by these amounts. OBJFILE is the object file from which we are reading symbols. It is used in end_symtab. */ void process_one_symbol (type, desc, valu, name, section_offsets, objfile) int type, desc; CORE_ADDR valu; char *name; struct section_offsets *section_offsets; struct objfile *objfile; { #ifdef SUN_FIXED_LBRAC_BUG /* If SUN_FIXED_LBRAC_BUG is defined, then it tells us whether we need to correct the address of N_LBRAC's. If it is not defined, then we never need to correct the addresses. */ /* This records the last pc address we've seen. We depend on there being an SLINE or FUN or SO before the first LBRAC, since the variable does not get reset in between reads of different symbol files. */ static CORE_ADDR last_pc_address; #endif register struct context_stack *new; /* This remembers the address of the start of a function. It is used because in Solaris 2, N_LBRAC, N_RBRAC, and N_SLINE entries are relative to the current function's start address. On systems other than Solaris 2, this just holds the SECT_OFF_TEXT value, and is used to relocate these symbol types rather than SECTION_OFFSETS. */ static CORE_ADDR function_start_offset; /* If this is nonzero, we've seen a non-gcc N_OPT symbol for this source file. Used to detect the SunPRO solaris compiler. */ static int n_opt_found; /* The stab type used for the definition of the last function. N_STSYM or N_GSYM for SunOS4 acc; N_FUN for other compilers. */ static int function_stab_type = 0; if (!block_address_function_relative) /* N_LBRAC, N_RBRAC and N_SLINE entries are not relative to the function start address, so just use the text offset. */ function_start_offset = ANOFFSET (section_offsets, SECT_OFF_TEXT); /* Something is wrong if we see real data before seeing a source file name. */ if (last_source_file == NULL && type != (unsigned char)N_SO) { /* Ignore any symbols which appear before an N_SO symbol. Currently no one puts symbols there, but we should deal gracefully with the case. A complain()t might be in order (if !IGNORE_SYMBOL (type)), but this should not be an error (). */ return; } switch (type) { case N_FUN: case N_FNAME: /* Relocate for dynamic loading */ valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); goto define_a_symbol; case N_LBRAC: /* This "symbol" just indicates the start of an inner lexical context within a function. */ #if defined(BLOCK_ADDRESS_ABSOLUTE) /* Relocate for dynamic loading (?). */ valu += function_start_offset; #else if (block_address_function_relative) /* Relocate for Sun ELF acc fn-relative syms. */ valu += function_start_offset; else /* On most machines, the block addresses are relative to the N_SO, the linker did not relocate them (sigh). */ valu += last_source_start_addr; #endif #ifdef SUN_FIXED_LBRAC_BUG if (!SUN_FIXED_LBRAC_BUG && valu < last_pc_address) { /* Patch current LBRAC pc value to match last handy pc value */ complain (&lbrac_complaint); valu = last_pc_address; } #endif new = push_context (desc, valu); break; case N_RBRAC: /* This "symbol" just indicates the end of an inner lexical context that was started with N_LBRAC. */ #if defined(BLOCK_ADDRESS_ABSOLUTE) /* Relocate for dynamic loading (?). */ valu += function_start_offset; #else if (block_address_function_relative) /* Relocate for Sun ELF acc fn-relative syms. */ valu += function_start_offset; else /* On most machines, the block addresses are relative to the N_SO, the linker did not relocate them (sigh). */ valu += last_source_start_addr; #endif new = pop_context(); if (desc != new->depth) complain (&lbrac_mismatch_complaint, symnum); /* Some compilers put the variable decls inside of an LBRAC/RBRAC block. This macro should be nonzero if this is true. DESC is N_DESC from the N_RBRAC symbol. GCC_P is true if we've detected the GCC_COMPILED_SYMBOL or the GCC2_COMPILED_SYMBOL. */ #if !defined (VARIABLES_INSIDE_BLOCK) #define VARIABLES_INSIDE_BLOCK(desc, gcc_p) 0 #endif /* Can only use new->locals as local symbols here if we're in gcc or on a machine that puts them before the lbrack. */ if (!VARIABLES_INSIDE_BLOCK(desc, processing_gcc_compilation)) local_symbols = new->locals; if (context_stack_depth > !VARIABLES_INSIDE_BLOCK(desc, processing_gcc_compilation)) { /* This is not the outermost LBRAC...RBRAC pair in the function, its local symbols preceded it, and are the ones just recovered from the context stack. Define the block for them (but don't bother if the block contains no symbols. Should we complain on blocks without symbols? I can't think of any useful purpose for them). */ if (local_symbols != NULL) { /* Muzzle a compiler bug that makes end < start. (which compilers? Is this ever harmful?). */ if (new->start_addr > valu) { complain (&lbrac_rbrac_complaint); new->start_addr = valu; } /* Make a block for the local symbols within. */ finish_block (0, &local_symbols, new->old_blocks, new->start_addr, valu, objfile); } } else { /* This is the outermost LBRAC...RBRAC pair. There is no need to do anything; leave the symbols that preceded it to be attached to the function's own block. We need to indicate that we just moved outside of the function. */ within_function = 0; } if (VARIABLES_INSIDE_BLOCK(desc, processing_gcc_compilation)) /* Now pop locals of block just finished. */ local_symbols = new->locals; break; case N_FN: case N_FN_SEQ: /* This kind of symbol indicates the start of an object file. */ /* Relocate for dynamic loading */ valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); break; case N_SO: /* This type of symbol indicates the start of data for one source file. Finish the symbol table of the previous source file (if any) and start accumulating a new symbol table. */ /* Relocate for dynamic loading */ valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); n_opt_found = 0; #ifdef SUN_FIXED_LBRAC_BUG last_pc_address = valu; /* Save for SunOS bug circumcision */ #endif #ifdef PCC_SOL_BROKEN /* pcc bug, occasionally puts out SO for SOL. */ if (context_stack_depth > 0) { start_subfile (name, NULL); break; } #endif if (last_source_file) { /* Check if previous symbol was also an N_SO (with some sanity checks). If so, that one was actually the directory name, and the current one is the real file name. Patch things up. */ if (previous_stab_code == (unsigned char) N_SO) { patch_subfile_names (current_subfile, name); break; /* Ignore repeated SOs */ } end_symtab (valu, 0, 0, objfile, SECT_OFF_TEXT); end_stabs (); } /* Null name means this just marks the end of text for this .o file. Don't start a new symtab in this case. */ if (*name == '\000') break; start_stabs (); start_symtab (name, NULL, valu); break; case N_SOL: /* This type of symbol indicates the start of data for a sub-source-file, one whose contents were copied or included in the compilation of the main source file (whose name was given in the N_SO symbol.) */ /* Relocate for dynamic loading */ valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); start_subfile (name, current_subfile->dirname); break; case N_BINCL: push_subfile (); add_new_header_file (name, valu); start_subfile (name, current_subfile->dirname); break; case N_EINCL: start_subfile (pop_subfile (), current_subfile->dirname); break; case N_EXCL: add_old_header_file (name, valu); break; case N_SLINE: /* This type of "symbol" really just records one line-number -- core-address correspondence. Enter it in the line list for this symbol table. */ /* Relocate for dynamic loading and for ELF acc fn-relative syms. */ valu += function_start_offset; #ifdef SUN_FIXED_LBRAC_BUG last_pc_address = valu; /* Save for SunOS bug circumcision */ #endif record_line (current_subfile, desc, valu); break; case N_BCOMM: common_block_start (name, objfile); break; case N_ECOMM: common_block_end (objfile); break; /* The following symbol types need to have the appropriate offset added to their value; then we process symbol definitions in the name. */ case N_STSYM: /* Static symbol in data seg */ case N_LCSYM: /* Static symbol in BSS seg */ case N_ROSYM: /* Static symbol in Read-only data seg */ /* HORRID HACK DEPT. However, it's Sun's furgin' fault. Solaris2's stabs-in-elf makes *most* symbols relative but leaves a few absolute (at least for Solaris 2.1 and version 2.0.1 of the SunPRO compiler). N_STSYM and friends sit on the fence. .stab "foo:S...",N_STSYM is absolute (ld relocates it) .stab "foo:V...",N_STSYM is relative (section base subtracted). This leaves us no choice but to search for the 'S' or 'V'... (or pass the whole section_offsets stuff down ONE MORE function call level, which we really don't want to do). */ { char *p; /* .o files and NLMs have non-zero text seg offsets, but don't need their static syms offset in this fashion. XXX - This is really a crock that should be fixed in the solib handling code so that I don't have to work around it here. */ if (!symfile_relocatable) { p = strchr (name, ':'); if (p != 0 && p[1] == 'S') { /* The linker relocated it. We don't want to add an elfstab_offset_sections-type offset, but we *do* want to add whatever solib.c passed to symbol_file_add as addr (this is known to affect SunOS4, and I suspect ELF too). Since elfstab_offset_sections currently does not muck with the text offset (there is no Ttext.text symbol), we can get addr from the text offset. If elfstab_offset_sections ever starts dealing with the text offset, and we still need to do this, we need to invent a SECT_OFF_ADDR_KLUDGE or something. */ valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); goto define_a_symbol; } } /* Since it's not the kludge case, re-dispatch to the right handler. */ switch (type) { case N_STSYM: goto case_N_STSYM; case N_LCSYM: goto case_N_LCSYM; case N_ROSYM: goto case_N_ROSYM; default: abort(); } } case_N_STSYM: /* Static symbol in data seg */ case N_DSLINE: /* Source line number, data seg */ valu += ANOFFSET (section_offsets, SECT_OFF_DATA); goto define_a_symbol; case_N_LCSYM: /* Static symbol in BSS seg */ case N_BSLINE: /* Source line number, bss seg */ /* N_BROWS: overlaps with N_BSLINE */ valu += ANOFFSET (section_offsets, SECT_OFF_BSS); goto define_a_symbol; case_N_ROSYM: /* Static symbol in Read-only data seg */ valu += ANOFFSET (section_offsets, SECT_OFF_RODATA); goto define_a_symbol; case N_ENTRY: /* Alternate entry point */ /* Relocate for dynamic loading */ valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); goto define_a_symbol; /* The following symbol types we don't know how to process. Handle them in a "default" way, but complain to people who care. */ default: case N_CATCH: /* Exception handler catcher */ case N_EHDECL: /* Exception handler name */ case N_PC: /* Global symbol in Pascal */ case N_M2C: /* Modula-2 compilation unit */ /* N_MOD2: overlaps with N_EHDECL */ case N_SCOPE: /* Modula-2 scope information */ case N_ECOML: /* End common (local name) */ case N_NBTEXT: /* Gould Non-Base-Register symbols??? */ case N_NBDATA: case N_NBBSS: case N_NBSTS: case N_NBLCS: complain (&unknown_symtype_complaint, local_hex_string (type)); /* FALLTHROUGH */ /* The following symbol types don't need the address field relocated, since it is either unused, or is absolute. */ define_a_symbol: case N_GSYM: /* Global variable */ case N_NSYMS: /* Number of symbols (ultrix) */ case N_NOMAP: /* No map? (ultrix) */ case N_RSYM: /* Register variable */ case N_DEFD: /* Modula-2 GNU module dependency */ case N_SSYM: /* Struct or union element */ case N_LSYM: /* Local symbol in stack */ case N_PSYM: /* Parameter variable */ case N_LENG: /* Length of preceding symbol type */ if (name) { int deftype; char *colon_pos = strchr (name, ':'); if (colon_pos == NULL) deftype = '\0'; else deftype = colon_pos[1]; switch (deftype) { case 'f': case 'F': function_stab_type = type; #ifdef SUN_FIXED_LBRAC_BUG /* The Sun acc compiler, under SunOS4, puts out functions with N_GSYM or N_STSYM. The problem is that the address of the symbol is no good (for N_GSYM it doesn't even attept an address; for N_STSYM it puts out an address but then it gets relocated relative to the data segment, not the text segment). Currently we can't fix this up later as we do for some types of symbol in scan_file_globals. Fortunately we do have a way of finding the address - we know that the value in last_pc_address is either the one we want (if we're dealing with the first function in an object file), or somewhere in the previous function. This means that we can use the minimal symbol table to get the address. */ /* On solaris up to 2.2, the N_FUN stab gets relocated. On Solaris 2.3, ld no longer relocates stabs (which is good), and the N_FUN's value is now always zero. The following code can't deal with this, because last_pc_address depends on getting the address from a N_SLINE or some such and in Solaris those are function relative. Best fix is probably to create a Ttext.text symbol and handle this like Ddata.data and so on. */ if (type == N_GSYM || type == N_STSYM) { struct minimal_symbol *m; int l = colon_pos - name; m = lookup_minimal_symbol_by_pc (last_pc_address); if (m && STREQN (SYMBOL_NAME (m), name, l)) /* last_pc_address was in this function */ valu = SYMBOL_VALUE (m); else if (m && STREQN (SYMBOL_NAME (m+1), name, l)) /* last_pc_address was in last function */ valu = SYMBOL_VALUE (m+1); else /* Not found - use last_pc_address (for finish_block) */ valu = last_pc_address; } last_pc_address = valu; /* Save for SunOS bug circumcision */ #endif if (block_address_function_relative) /* For Solaris 2.0 compilers, the block addresses and N_SLINE's are relative to the start of the function. On normal systems, and when using gcc on Solaris 2.0, these addresses are just absolute, or relative to the N_SO, depending on BLOCK_ADDRESS_ABSOLUTE. */ function_start_offset = valu; within_function = 1; if (context_stack_depth > 0) { new = pop_context (); /* Make a block for the local symbols within. */ finish_block (new->name, &local_symbols, new->old_blocks, new->start_addr, valu, objfile); } /* Stack must be empty now. */ if (context_stack_depth != 0) complain (&lbrac_unmatched_complaint, symnum); new = push_context (0, valu); new->name = define_symbol (valu, name, desc, type, objfile); break; default: define_symbol (valu, name, desc, type, objfile); break; } } break; /* We use N_OPT to carry the gcc2_compiled flag. Sun uses it for a bunch of other flags, too. Someday we may parse their flags; for now we ignore theirs and hope they'll ignore ours. */ case N_OPT: /* Solaris 2: Compiler options */ if (name) { if (STREQ (name, GCC2_COMPILED_FLAG_SYMBOL)) { processing_gcc_compilation = 2; #if 1 /* Works, but is experimental. -fnf */ if (AUTO_DEMANGLING) { set_demangling_style (GNU_DEMANGLING_STYLE_STRING); } #endif } else n_opt_found = 1; } break; /* The following symbol types can be ignored. */ case N_OBJ: /* Solaris 2: Object file dir and name */ /* N_UNDF: Solaris 2: file separator mark */ /* N_UNDF: -- we will never encounter it, since we only process one file's symbols at once. */ case N_ENDM: /* Solaris 2: End of module */ case N_MAIN: /* Name of main routine. */ break; } previous_stab_code = type; } /* FIXME: The only difference between this and elfstab_build_psymtabs is the call to install_minimal_symbols for elf. If the differences are really that small, the code should be shared. */ /* Scan and build partial symbols for an coff symbol file. The coff file has already been processed to get its minimal symbols. This routine is the equivalent of dbx_symfile_init and dbx_symfile_read rolled into one. OBJFILE is the object file we are reading symbols from. ADDR is the address relative to which the symbols are (e.g. the base address of the text segment). MAINLINE is true if we are reading the main symbol table (as opposed to a shared lib or dynamically loaded file). STABOFFSET and STABSIZE define the location in OBJFILE where the .stab section exists. STABSTROFFSET and STABSTRSIZE define the location in OBJFILE where the .stabstr section exists. This routine is mostly copied from dbx_symfile_init and dbx_symfile_read, adjusted for coff details. */ void coffstab_build_psymtabs (objfile, section_offsets, mainline, staboffset, stabsize, stabstroffset, stabstrsize) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; file_ptr staboffset; unsigned int stabsize; file_ptr stabstroffset; unsigned int stabstrsize; { int val; bfd *sym_bfd = objfile->obfd; char *name = bfd_get_filename (sym_bfd); struct dbx_symfile_info *info; /* There is already a dbx_symfile_info allocated by our caller. It might even contain some info from the coff symtab to help us. */ info = (struct dbx_symfile_info *) objfile->sym_stab_info; DBX_TEXT_SECT (objfile) = bfd_get_section_by_name (sym_bfd, ".text"); if (!DBX_TEXT_SECT (objfile)) error ("Can't find .text section in symbol file"); #define COFF_STABS_SYMBOL_SIZE 12 /* XXX FIXME XXX */ DBX_SYMBOL_SIZE (objfile) = COFF_STABS_SYMBOL_SIZE; DBX_SYMCOUNT (objfile) = stabsize / DBX_SYMBOL_SIZE (objfile); DBX_STRINGTAB_SIZE (objfile) = stabstrsize; DBX_SYMTAB_OFFSET (objfile) = staboffset; if (stabstrsize > bfd_get_size (sym_bfd)) error ("ridiculous string table size: %d bytes", stabstrsize); DBX_STRINGTAB (objfile) = (char *) obstack_alloc (&objfile->psymbol_obstack, stabstrsize+1); /* Now read in the string table in one big gulp. */ val = bfd_seek (sym_bfd, stabstroffset, SEEK_SET); if (val < 0) perror_with_name (name); val = bfd_read (DBX_STRINGTAB (objfile), stabstrsize, 1, sym_bfd); if (val != stabstrsize) perror_with_name (name); stabsread_new_init (); buildsym_new_init (); free_header_files (); init_header_files (); processing_acc_compilation = 1; /* In a coff file, we've already installed the minimal symbols that came from the coff (non-stab) symbol table, so always act like an incremental load here. */ dbx_symfile_read (objfile, section_offsets, 0); } /* Scan and build partial symbols for an ELF symbol file. This ELF file has already been processed to get its minimal symbols, and any DWARF symbols that were in it. This routine is the equivalent of dbx_symfile_init and dbx_symfile_read rolled into one. OBJFILE is the object file we are reading symbols from. ADDR is the address relative to which the symbols are (e.g. the base address of the text segment). MAINLINE is true if we are reading the main symbol table (as opposed to a shared lib or dynamically loaded file). STABOFFSET and STABSIZE define the location in OBJFILE where the .stab section exists. STABSTROFFSET and STABSTRSIZE define the location in OBJFILE where the .stabstr section exists. This routine is mostly copied from dbx_symfile_init and dbx_symfile_read, adjusted for elf details. */ void elfstab_build_psymtabs (objfile, section_offsets, mainline, staboffset, stabsize, stabstroffset, stabstrsize) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; file_ptr staboffset; unsigned int stabsize; file_ptr stabstroffset; unsigned int stabstrsize; { int val; bfd *sym_bfd = objfile->obfd; char *name = bfd_get_filename (sym_bfd); struct dbx_symfile_info *info; /* There is already a dbx_symfile_info allocated by our caller. It might even contain some info from the ELF symtab to help us. */ info = (struct dbx_symfile_info *) objfile->sym_stab_info; DBX_TEXT_SECT (objfile) = bfd_get_section_by_name (sym_bfd, ".text"); if (!DBX_TEXT_SECT (objfile)) error ("Can't find .text section in symbol file"); #define ELF_STABS_SYMBOL_SIZE 12 /* XXX FIXME XXX */ DBX_SYMBOL_SIZE (objfile) = ELF_STABS_SYMBOL_SIZE; DBX_SYMCOUNT (objfile) = stabsize / DBX_SYMBOL_SIZE (objfile); DBX_STRINGTAB_SIZE (objfile) = stabstrsize; DBX_SYMTAB_OFFSET (objfile) = staboffset; if (stabstrsize > bfd_get_size (sym_bfd)) error ("ridiculous string table size: %d bytes", stabstrsize); DBX_STRINGTAB (objfile) = (char *) obstack_alloc (&objfile->psymbol_obstack, stabstrsize+1); /* Now read in the string table in one big gulp. */ val = bfd_seek (sym_bfd, stabstroffset, SEEK_SET); if (val < 0) perror_with_name (name); val = bfd_read (DBX_STRINGTAB (objfile), stabstrsize, 1, sym_bfd); if (val != stabstrsize) perror_with_name (name); stabsread_new_init (); buildsym_new_init (); free_header_files (); init_header_files (); install_minimal_symbols (objfile); processing_acc_compilation = 1; /* In an elf file, we've already installed the minimal symbols that came from the elf (non-stab) symbol table, so always act like an incremental load here. */ dbx_symfile_read (objfile, section_offsets, 0); } /* Scan and build partial symbols for a file with special sections for stabs and stabstrings. The file has already been processed to get its minimal symbols, and any other symbols that might be necessary to resolve GSYMs. This routine is the equivalent of dbx_symfile_init and dbx_symfile_read rolled into one. OBJFILE is the object file we are reading symbols from. ADDR is the address relative to which the symbols are (e.g. the base address of the text segment). MAINLINE is true if we are reading the main symbol table (as opposed to a shared lib or dynamically loaded file). STAB_NAME is the name of the section that contains the stabs. STABSTR_NAME is the name of the section that contains the stab strings. This routine is mostly copied from dbx_symfile_init and dbx_symfile_read. */ void stabsect_build_psymtabs (objfile, section_offsets, mainline, stab_name, stabstr_name, text_name) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; char *stab_name; char *stabstr_name; char *text_name; { int val; bfd *sym_bfd = objfile->obfd; char *name = bfd_get_filename (sym_bfd); asection *stabsect; asection *stabstrsect; stabsect = bfd_get_section_by_name (sym_bfd, stab_name); stabstrsect = bfd_get_section_by_name (sym_bfd, stabstr_name); if (!stabsect) return; if (!stabstrsect) error ("stabsect_build_psymtabs: Found stabs (%s), but not string section (%s)", stab_name, stabstr_name); objfile->sym_stab_info = (PTR) xmalloc (sizeof (struct dbx_symfile_info)); memset (DBX_SYMFILE_INFO (objfile), 0, sizeof (struct dbx_symfile_info)); DBX_TEXT_SECT (objfile) = bfd_get_section_by_name (sym_bfd, text_name); if (!DBX_TEXT_SECT (objfile)) error ("Can't find %s section in symbol file", text_name); DBX_SYMBOL_SIZE (objfile) = sizeof (struct external_nlist); DBX_SYMCOUNT (objfile) = bfd_section_size (sym_bfd, stabsect) / DBX_SYMBOL_SIZE (objfile); DBX_STRINGTAB_SIZE (objfile) = bfd_section_size (sym_bfd, stabstrsect); DBX_SYMTAB_OFFSET (objfile) = stabsect->filepos; /* XXX - FIXME: POKING INSIDE BFD DATA STRUCTURES */ if (DBX_STRINGTAB_SIZE (objfile) > bfd_get_size (sym_bfd)) error ("ridiculous string table size: %d bytes", DBX_STRINGTAB_SIZE (objfile)); DBX_STRINGTAB (objfile) = (char *) obstack_alloc (&objfile->psymbol_obstack, DBX_STRINGTAB_SIZE (objfile) + 1); /* Now read in the string table in one big gulp. */ val = bfd_get_section_contents (sym_bfd, /* bfd */ stabstrsect, /* bfd section */ DBX_STRINGTAB (objfile), /* input buffer */ 0, /* offset into section */ DBX_STRINGTAB_SIZE (objfile)); /* amount to read */ if (!val) perror_with_name (name); stabsread_new_init (); buildsym_new_init (); free_header_files (); init_header_files (); install_minimal_symbols (objfile); /* Now, do an incremental load */ processing_acc_compilation = 1; dbx_symfile_read (objfile, section_offsets, 0); } /* Parse the user's idea of an offset for dynamic linking, into our idea of how to represent it for fast symbol reading. */ static struct section_offsets * dbx_symfile_offsets (objfile, addr) struct objfile *objfile; CORE_ADDR addr; { struct section_offsets *section_offsets; int i; objfile->num_sections = SECT_OFF_MAX; section_offsets = (struct section_offsets *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct section_offsets) + sizeof (section_offsets->offsets) * (SECT_OFF_MAX-1)); for (i = 0; i < SECT_OFF_MAX; i++) ANOFFSET (section_offsets, i) = addr; return section_offsets; } static struct sym_fns aout_sym_fns = { bfd_target_aout_flavour, dbx_new_init, /* sym_new_init: init anything gbl to entire symtab */ dbx_symfile_init, /* sym_init: read initial info, setup for sym_read() */ dbx_symfile_read, /* sym_read: read a symbol file into symtab */ dbx_symfile_finish, /* sym_finish: finished with file, cleanup */ dbx_symfile_offsets, /* sym_offsets: parse user's offsets to internal form */ NULL /* next: pointer to next struct sym_fns */ }; void _initialize_dbxread () { add_symtab_fns(&aout_sym_fns); } gdb-4.13/gdb/dcache.c 666 34562 1752 14327 5441652014 12674 0ustar fnfcygnus/* Caching code. Typically used by remote back ends for caching remote memory. Copyright 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dcache.h" #include "gdbcmd.h" extern int insque(); extern int remque(); int remote_dcache = 0; /* The data cache records all the data read from the remote machine since the last time it stopped. Each cache block holds LINE_SIZE bytes of data starting at a multiple-of-LINE_SIZE address. */ #define LINE_SIZE_MASK ((LINE_SIZE - 1)) /* eg 7*2+1= 111*/ #define XFORM(x) (((x) & LINE_SIZE_MASK) >> 2) /* Free all the data cache blocks, thus discarding all cached data. */ void dcache_flush (dcache) DCACHE *dcache; { register struct dcache_block *db; if (remote_dcache > 0) while ((db = dcache->dcache_valid.next) != &dcache->dcache_valid) { remque (db); insque (db, &dcache->dcache_free); } return; } /* * If addr is present in the dcache, return the address of the block * containing it. */ static struct dcache_block * dcache_hit (dcache, addr) DCACHE *dcache; unsigned int addr; { register struct dcache_block *db; if (addr & 3 || remote_dcache == 0) abort (); /* Search all cache blocks for one that is at this address. */ db = dcache->dcache_valid.next; while (db != &dcache->dcache_valid) { if ((addr & ~LINE_SIZE_MASK) == db->addr) return db; db = db->next; } return NULL; } /* Return the int data at address ADDR in dcache block DC. */ static int dcache_value (db, addr) struct dcache_block *db; unsigned int addr; { if (addr & 3 || remote_dcache == 0) abort (); return (db->data[XFORM (addr)]); } /* Get a free cache block, put or keep it on the valid list, and return its address. The caller should store into the block the address and data that it describes, then remque it from the free list and insert it into the valid list. This procedure prevents errors from creeping in if a memory retrieval is interrupted (which used to put garbage blocks in the valid list...). */ static struct dcache_block * dcache_alloc (dcache) DCACHE *dcache; { register struct dcache_block *db; if (remote_dcache == 0) abort(); if ((db = dcache->dcache_free.next) == &dcache->dcache_free) { /* If we can't get one from the free list, take last valid and put it on the free list. */ db = dcache->dcache_valid.last; remque (db); insque (db, &dcache->dcache_free); } remque (db); insque (db, &dcache->dcache_valid); return (db); } /* Using the data cache DCACHE return the contents of the word at address ADDR in the remote machine. */ int dcache_fetch (dcache, addr) DCACHE *dcache; CORE_ADDR addr; { register struct dcache_block *db; if (remote_dcache == 0) { int i; (*dcache->read_memory) (addr, (unsigned char *) &i, 4); return(i); } db = dcache_hit (dcache, addr); if (db == 0) { db = dcache_alloc (dcache); immediate_quit++; (*dcache->read_memory) (addr & ~LINE_SIZE_MASK, (unsigned char *) db->data, LINE_SIZE); immediate_quit--; db->addr = addr & ~LINE_SIZE_MASK; remque (db); /* Off the free list */ insque (db, &dcache->dcache_valid); /* On the valid list */ } return (dcache_value (db, addr)); } /* Write the word at ADDR both in the data cache and in the remote machine. */ void dcache_poke (dcache, addr, data) DCACHE *dcache; CORE_ADDR addr; int data; { register struct dcache_block *db; if (remote_dcache == 0) { (*dcache->write_memory) (addr, (unsigned char *) &data, 4); return; } /* First make sure the word is IN the cache. DB is its cache block. */ db = dcache_hit (dcache, addr); if (db == 0) { db = dcache_alloc (dcache); immediate_quit++; (*dcache->write_memory) (addr & ~LINE_SIZE_MASK, (unsigned char *) db->data, LINE_SIZE); immediate_quit--; db->addr = addr & ~LINE_SIZE_MASK; remque (db); /* Off the free list */ insque (db, &dcache->dcache_valid); /* On the valid list */ } /* Modify the word in the cache. */ db->data[XFORM (addr)] = data; /* Send the changed word. */ immediate_quit++; (*dcache->write_memory) (addr, (unsigned char *) &data, 4); immediate_quit--; } /* Initialize the data cache. */ DCACHE * dcache_init (reading, writing) memxferfunc reading; memxferfunc writing; { register i; register struct dcache_block *db; DCACHE *dcache; dcache = (DCACHE *) xmalloc (sizeof (*dcache)); dcache->read_memory = reading; dcache->write_memory = writing; dcache->the_cache = (struct dcache_block *) xmalloc (sizeof (*dcache->the_cache) * DCACHE_SIZE); dcache->dcache_free.next = dcache->dcache_free.last = &dcache->dcache_free; dcache->dcache_valid.next = dcache->dcache_valid.last = &dcache->dcache_valid; for (db = dcache->the_cache, i = 0; i < DCACHE_SIZE; i++, db++) insque (db, &dcache->dcache_free); return(dcache); } void _initialitize_dcache () { add_show_from_set (add_set_cmd ("remotecache", class_support, var_boolean, (char *) &remote_dcache, "\ Set cache use for remote targets.\n\ When on, use data caching for remote targets. For many remote targets\n\ this option can offer better throughput for reading target memory.\n\ Unfortunately, gdb does not currently know anything about volatile\n\ registers and thus data caching will produce incorrect results with\n\ volatile registers are in use. By default, this option is off.", &setlist), &showlist); } gdb-4.13/gdb/dcache.h 666 34562 1752 5246 5440770031 12660 0ustar fnfcygnus/* Declarations for caching. Typically used by remote back ends for caching remote memory. Copyright 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef DCACHE_H #define DCACHE_H /* The data cache leads to incorrect results because it doesn't know about volatile variables, thus making it impossible to debug functions which use hardware registers. Therefore it is #if 0'd out. Effect on performance is some, for backtraces of functions with a few arguments each. For functions with many arguments, the stack frames don't fit in the cache blocks, which makes the cache less helpful. Disabling the cache is a big performance win for fetching large structures, because the cache code fetched data in 16-byte chunks. */ #define LINE_SIZE_POWER (4) /* eg 1<<3 == 8 */ #define LINE_SIZE (1 << LINE_SIZE_POWER) /* Number of cache blocks */ #define DCACHE_SIZE (64) struct dcache_block { struct dcache_block *next, *last; unsigned int addr; /* Address for which data is recorded. */ int data[LINE_SIZE / sizeof (int)]; }; typedef int (*memxferfunc) PARAMS((CORE_ADDR memaddr, unsigned char *myaddr, int len)); typedef struct { /* Function to actually read the target memory. */ memxferfunc read_memory; /* Function to actually write the target memory */ memxferfunc write_memory; /* free list */ struct dcache_block dcache_free; /* in use list */ struct dcache_block dcache_valid; /* The cache itself. */ struct dcache_block *the_cache; } DCACHE; /* Using the data cache DCACHE return the contents of the word at address ADDR in the remote machine. */ int dcache_fetch PARAMS((DCACHE *dcache, CORE_ADDR addr)); /* Flush DCACHE. */ void dcache_flush PARAMS((DCACHE *dcache)); /* Initialize DCACHE. */ DCACHE *dcache_init PARAMS((memxferfunc reading, memxferfunc writing)); /* Write the word at ADDR both in the data cache and in the remote machine. */ void dcache_poke PARAMS((DCACHE *dcache, CORE_ADDR addr, int data)); #endif /* DCACHE_H */ gdb-4.13/gdb/defs.h 666 34562 1752 57620 5604634050 12417 0ustar fnfcygnus/* Basic, host-specific, and target-specific definitions for GDB. Copyright (C) 1986, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (DEFS_H) #define DEFS_H 1 #include /* First include ansidecl.h so we can use the various macro definitions here and in all subsequent file inclusions. */ #include "ansidecl.h" /* For BFD64 and bfd_vma. */ #include "bfd.h" /* An address in the program being debugged. Host byte order. Rather than duplicate all the logic in BFD which figures out what type this is (long, long long, etc.) and whether it needs to be 64 bits (the host/target interactions are subtle), we just use bfd_vma. */ typedef bfd_vma CORE_ADDR; #define min(a, b) ((a) < (b) ? (a) : (b)) #define max(a, b) ((a) > (b) ? (a) : (b)) /* Gdb does *lots* of string compares. Use macros to speed them up by avoiding function calls if the first characters are not the same. */ #define STRCMP(a,b) (*(a) == *(b) ? strcmp ((a), (b)) : (int)*(a) - (int)*(b)) #define STREQ(a,b) (*(a) == *(b) ? !strcmp ((a), (b)) : 0) #define STREQN(a,b,c) (*(a) == *(b) ? !strncmp ((a), (b), (c)) : 0) /* The character GNU C++ uses to build identifiers that must be unique from the program's identifiers (such as $this and $$vptr). */ #define CPLUS_MARKER '$' /* May be overridden to '.' for SysV */ #include /* System call error return status */ extern int quit_flag; extern int immediate_quit; extern int sevenbit_strings; extern void quit PARAMS ((void)); #define QUIT { if (quit_flag) quit (); } /* Command classes are top-level categories into which commands are broken down for "help" purposes. Notes on classes: class_alias is for alias commands which are not abbreviations of the original command. class-pseudo is for commands which are not really commands nor help topics ("stop"). */ enum command_class { /* Special args to help_list */ all_classes = -2, all_commands = -1, /* Classes of commands */ no_class = -1, class_run = 0, class_vars, class_stack, class_files, class_support, class_info, class_breakpoint, class_alias, class_obscure, class_user, class_maintenance, class_pseudo }; /* Languages represented in the symbol table and elsewhere. This should probably be in language.h, but since enum's can't be forward declared to satisfy opaque references before their actual definition, needs to be here. */ enum language { language_unknown, /* Language not known */ language_auto, /* Placeholder for automatic setting */ language_c, /* C */ language_cplus, /* C++ */ language_chill, /* Chill */ language_m2, /* Modula-2 */ language_asm /* Assembly language */ }; /* the cleanup list records things that have to be undone if an error happens (descriptors to be closed, memory to be freed, etc.) Each link in the chain records a function to call and an argument to give it. Use make_cleanup to add an element to the cleanup chain. Use do_cleanups to do all cleanup actions back to a given point in the chain. Use discard_cleanups to remove cleanups from the chain back to a given point, not doing them. */ struct cleanup { struct cleanup *next; void (*function) PARAMS ((PTR)); PTR arg; }; /* From blockframe.c */ extern int inside_entry_func PARAMS ((CORE_ADDR)); extern int inside_entry_file PARAMS ((CORE_ADDR addr)); extern int inside_main_func PARAMS ((CORE_ADDR pc)); /* From ch-lang.c, for the moment. (FIXME) */ extern char * chill_demangle PARAMS ((const char *)); /* From libiberty.a */ extern char * cplus_demangle PARAMS ((const char *, int)); extern char * cplus_mangle_opname PARAMS ((char *, int)); /* From libmmalloc.a (memory mapped malloc library) */ extern PTR mmalloc_attach PARAMS ((int, PTR)); extern PTR mmalloc_detach PARAMS ((PTR)); extern PTR mmalloc PARAMS ((PTR, long)); extern PTR mrealloc PARAMS ((PTR, PTR, long)); extern void mfree PARAMS ((PTR, PTR)); extern int mmalloc_setkey PARAMS ((PTR, int, PTR)); extern PTR mmalloc_getkey PARAMS ((PTR, int)); /* From utils.c */ extern int strcmp_iw PARAMS ((const char *, const char *)); extern char * safe_strerror PARAMS ((int)); extern char * safe_strsignal PARAMS ((int)); extern void init_malloc PARAMS ((void *)); extern void request_quit PARAMS ((int)); extern void do_cleanups PARAMS ((struct cleanup *)); extern void discard_cleanups PARAMS ((struct cleanup *)); /* The bare make_cleanup function is one of those rare beasts that takes almost any type of function as the first arg and anything that will fit in a "void *" as the second arg. Should be, once all calls and called-functions are cleaned up: extern struct cleanup * make_cleanup PARAMS ((void (*function) (void *), void *)); Until then, lint and/or various type-checking compiler options will complain about make_cleanup calls. It'd be wrong to just cast things, since the type actually passed when the function is called would be wrong. */ extern struct cleanup * make_cleanup (); extern struct cleanup * save_cleanups PARAMS ((void)); extern void restore_cleanups PARAMS ((struct cleanup *)); extern void free_current_contents PARAMS ((char **)); extern void null_cleanup PARAMS ((char **)); extern int myread PARAMS ((int, char *, int)); extern int query (); /* Annotation stuff. */ extern int annotation_level; /* in stack.c */ extern void begin_line PARAMS ((void)); extern void wrap_here PARAMS ((char *)); extern void reinitialize_more_filter PARAMS ((void)); typedef FILE GDB_FILE; #define gdb_stdout stdout #define gdb_stderr stderr extern int print_insn PARAMS ((CORE_ADDR, GDB_FILE *)); extern void gdb_flush PARAMS ((GDB_FILE *)); extern GDB_FILE * gdb_fopen PARAMS ((char * name, char * mode)); extern void fputs_filtered PARAMS ((const char *, GDB_FILE *)); extern void fputs_unfiltered PARAMS ((const char *, GDB_FILE *)); extern void fputc_unfiltered PARAMS ((int, GDB_FILE *)); extern void putc_unfiltered PARAMS ((int)); #define putchar_unfiltered(C) putc_unfiltered(C) extern void puts_filtered PARAMS ((char *)); extern void puts_unfiltered PARAMS ((char *)); extern void vprintf_filtered (); extern void vfprintf_filtered (); extern void fprintf_filtered (); extern void fprintfi_filtered (); extern void printf_filtered (); extern void printfi_filtered (); extern void vprintf_unfiltered (); extern void vfprintf_unfiltered (); extern void fprintf_unfiltered (); extern void printf_unfiltered (); extern void print_spaces PARAMS ((int, GDB_FILE *)); extern void print_spaces_filtered PARAMS ((int, GDB_FILE *)); extern char * n_spaces PARAMS ((int)); extern void gdb_printchar PARAMS ((int, GDB_FILE *, int)); /* Print a host address. */ extern void gdb_print_address PARAMS ((void *, GDB_FILE *)); extern void fprintf_symbol_filtered PARAMS ((GDB_FILE *, char *, enum language, int)); extern void perror_with_name PARAMS ((char *)); extern void print_sys_errmsg PARAMS ((char *, int)); /* From regex.c or libc. BSD 4.4 declares this with the argument type as "const char *" in unistd.h, so we can't declare the argument as "char *". */ extern char * re_comp PARAMS ((const char *)); /* From symfile.c */ extern void symbol_file_command PARAMS ((char *, int)); /* From main.c */ extern char * skip_quoted PARAMS ((char *)); extern char * gdb_readline PARAMS ((char *)); extern char * command_line_input PARAMS ((char *, int, char *)); extern void print_prompt PARAMS ((void)); extern int input_from_terminal_p PARAMS ((void)); /* From printcmd.c */ extern void set_next_address PARAMS ((CORE_ADDR)); extern void print_address_symbolic PARAMS ((CORE_ADDR, GDB_FILE *, int, char *)); extern void print_address_numeric PARAMS ((CORE_ADDR, int, GDB_FILE *)); extern void print_address PARAMS ((CORE_ADDR, GDB_FILE *)); /* From source.c */ extern int openp PARAMS ((char *, int, char *, int, int, char **)); extern void mod_path PARAMS ((char *, char **)); extern void directory_command PARAMS ((char *, int)); extern void init_source_path PARAMS ((void)); /* From findvar.c */ extern int read_relative_register_raw_bytes PARAMS ((int, char *)); /* From readline (but not in any readline .h files). */ extern char * tilde_expand PARAMS ((char *)); /* Structure for saved commands lines (for breakpoints, defined commands, etc). */ struct command_line { struct command_line *next; char *line; }; extern struct command_line * read_command_lines PARAMS ((void)); extern void free_command_lines PARAMS ((struct command_line **)); /* String containing the current directory (what getwd would return). */ extern char *current_directory; /* Default radixes for input and output. Only some values supported. */ extern unsigned input_radix; extern unsigned output_radix; /* Possibilities for prettyprint parameters to routines which print things. Like enum language, this should be in value.h, but needs to be here for the same reason. FIXME: If we can eliminate this as an arg to LA_VAL_PRINT, then we can probably move it back to value.h. */ enum val_prettyprint { Val_no_prettyprint = 0, Val_prettyprint, /* Use the default setting which the user has specified. */ Val_pretty_default }; /* Host machine definition. This will be a symlink to one of the xm-*.h files, built by the `configure' script. */ #include "xm.h" /* Native machine support. This will be a symlink to one of the nm-*.h files, built by the `configure' script. */ #include "nm.h" /* If the xm.h file did not define the mode string used to open the files, assume that binary files are opened the same way as text files */ #ifndef FOPEN_RB #include "fopen-same.h" #endif /* * Allow things in gdb to be declared "const". If compiling ANSI, it * just works. If compiling with gcc but non-ansi, redefine to __const__. * If non-ansi, non-gcc, then eliminate "const" entirely, making those * objects be read-write rather than read-only. */ #ifndef const #ifndef __STDC__ # ifdef __GNUC__ # define const __const__ # else # define const /*nothing*/ # endif /* GNUC */ #endif /* STDC */ #endif /* const */ #ifndef volatile #ifndef __STDC__ # ifdef __GNUC__ # define volatile __volatile__ # else # define volatile /*nothing*/ # endif /* GNUC */ #endif /* STDC */ #endif /* volatile */ #if 1 #define NORETURN /*nothing*/ #else /* not 1 */ /* FIXME: This is bogus. Having "volatile void" mean a function doesn't return is a gcc extension and should be based on #ifdef __GNUC__. Also, as of Sep 93 I'm told gcc is changing the syntax for ansi reasons (so declaring exit here as "volatile void" and as "void" in a system header loses). Using the new "__attributes__ ((noreturn));" syntax would lose for old versions of gcc; using typedef void exit_fn_type PARAMS ((int)); volatile exit_fn_type exit; would win. */ /* Some compilers (many AT&T SVR4 compilers for instance), do not accept declarations of functions that never return (exit for instance) as "volatile void". For such compilers "NORETURN" can be defined away to keep them happy */ #ifndef NORETURN # ifdef __lucid # define NORETURN /*nothing*/ # else # define NORETURN volatile # endif #endif #endif /* not 1 */ /* Defaults for system-wide constants (if not defined by xm.h, we fake it). */ #if !defined (UINT_MAX) #define UINT_MAX ((unsigned int)(~0)) /* 0xFFFFFFFF for 32-bits */ #endif #if !defined (INT_MAX) #define INT_MAX ((int)(UINT_MAX >> 1)) /* 0x7FFFFFFF for 32-bits */ #endif #if !defined (INT_MIN) #define INT_MIN (-INT_MAX - 1) /* 0x80000000 for 32-bits */ #endif #if !defined (ULONG_MAX) #define ULONG_MAX ((unsigned long)(~0L)) /* 0xFFFFFFFF for 32-bits */ #endif #if !defined (LONG_MAX) #define LONG_MAX ((long)(ULONG_MAX >> 1)) /* 0x7FFFFFFF for 32-bits */ #endif #ifdef BFD64 /* This is to make sure that LONGEST is at least as big as CORE_ADDR. */ #define LONGEST BFD_HOST_64_BIT #else /* No BFD64 */ /* If all compilers for this host support "long long" and we want to use it for LONGEST (the performance hit is about 10% on a testsuite run based on one DECstation test), then the xm.h file can define CC_HAS_LONG_LONG. Using GCC 1.39 on BSDI with long long causes about 700 new testsuite failures. Using long long for LONGEST on the DECstation causes 3 new FAILs in the testsuite and many heuristic fencepost warnings. These are not investigated, but a first guess would be that the BSDI problems are GCC bugs in long long support and the latter are GDB bugs. */ #ifndef CC_HAS_LONG_LONG # if defined (__GNUC__) && defined (FORCE_LONG_LONG) # define CC_HAS_LONG_LONG 1 # endif #endif /* LONGEST should not be a typedef, because "unsigned LONGEST" needs to work. CC_HAS_LONG_LONG is defined if the host compiler supports "long long" variables and we wish to make use of that support. */ #ifndef LONGEST # ifdef CC_HAS_LONG_LONG # define LONGEST long long # else # define LONGEST long # endif #endif #endif /* No BFD64 */ /* Convert a LONGEST to an int. This is used in contexts (e.g. number of arguments to a function, number in a value history, register number, etc.) where the value must not be larger than can fit in an int. */ extern int longest_to_int PARAMS ((LONGEST)); /* Assorted functions we can declare, now that const and volatile are defined. */ extern char * savestring PARAMS ((const char *, int)); extern char * msavestring PARAMS ((void *, const char *, int)); extern char * strsave PARAMS ((const char *)); extern char * mstrsave PARAMS ((void *, const char *)); extern char * concat PARAMS ((char *, ...)); extern PTR xmalloc PARAMS ((long)); extern PTR xrealloc PARAMS ((PTR, long)); extern PTR xmmalloc PARAMS ((PTR, long)); extern PTR xmrealloc PARAMS ((PTR, PTR, long)); extern PTR mmalloc PARAMS ((PTR, long)); extern PTR mrealloc PARAMS ((PTR, PTR, long)); extern void mfree PARAMS ((PTR, PTR)); extern int mmcheck PARAMS ((PTR, void (*) (void))); extern int mmtrace PARAMS ((void)); extern int parse_escape PARAMS ((char **)); extern const char * const reg_names[]; /* Message to be printed before the error message, when an error occurs. */ extern char *error_pre_print; /* Message to be printed before the warning message, when a warning occurs. */ extern char *warning_pre_print; extern NORETURN void /* Does not return to the caller. */ error (); extern void error_begin PARAMS ((void)); extern NORETURN void /* Does not return to the caller. */ fatal (); extern NORETURN void /* Not specified as volatile in ... */ exit PARAMS ((int)); /* 4.10.4.3 */ extern NORETURN void /* Does not return to the caller. */ nomem PARAMS ((long)); /* Reasons for calling return_to_top_level. */ enum return_reason { /* User interrupt. */ RETURN_QUIT, /* Any other error. */ RETURN_ERROR }; #define RETURN_MASK_QUIT (1 << (int)RETURN_QUIT) #define RETURN_MASK_ERROR (1 << (int)RETURN_ERROR) #define RETURN_MASK_ALL (RETURN_MASK_QUIT | RETURN_MASK_ERROR) typedef int return_mask; extern NORETURN void /* Does not return to the caller. */ return_to_top_level PARAMS ((enum return_reason)); extern int catch_errors PARAMS ((int (*) (char *), void *, char *, return_mask)); extern void warning_setup PARAMS ((void)); extern void warning (); /* Global functions from other, non-gdb GNU thingies (libiberty for instance) */ extern char * basename PARAMS ((char *)); extern char * getenv PARAMS ((const char *)); extern char ** buildargv PARAMS ((char *)); extern void freeargv PARAMS ((char **)); extern char * strerrno PARAMS ((int)); extern char * strsigno PARAMS ((int)); extern int errno_max PARAMS ((void)); extern int signo_max PARAMS ((void)); extern int strtoerrno PARAMS ((char *)); extern int strtosigno PARAMS ((char *)); extern char * strsignal PARAMS ((int)); /* From other system libraries */ #ifndef PSIGNAL_IN_SIGNAL_H extern void psignal PARAMS ((unsigned, const char *)); #endif /* For now, we can't include because it conflicts with "../include/getopt.h". (FIXME) However, if a function is defined in the ANSI C standard and a prototype for that function is defined and visible in any header file in an ANSI conforming environment, then that prototype must match the definition in the ANSI standard. So we can just duplicate them here without conflict, since they must be the same in all conforming ANSI environments. If these cause problems, then the environment is not ANSI conformant. */ #ifdef __STDC__ #include #endif extern int fclose PARAMS ((GDB_FILE *stream)); /* 4.9.5.1 */ extern void perror PARAMS ((const char *)); /* 4.9.10.4 */ extern double atof PARAMS ((const char *nptr)); /* 4.10.1.1 */ extern int atoi PARAMS ((const char *)); /* 4.10.1.2 */ #ifndef MALLOC_INCOMPATIBLE extern PTR malloc PARAMS ((size_t size)); /* 4.10.3.3 */ extern PTR realloc PARAMS ((void *ptr, size_t size)); /* 4.10.3.4 */ extern void free PARAMS ((void *)); /* 4.10.3.2 */ #endif /* MALLOC_INCOMPATIBLE */ extern void qsort PARAMS ((void *base, size_t nmemb, /* 4.10.5.2 */ size_t size, int (*compar)(const void *, const void *))); #ifndef MEM_FNS_DECLARED /* Some non-ANSI use void *, not char *. */ extern PTR memcpy PARAMS ((void *, const void *, size_t)); /* 4.11.2.1 */ extern int memcmp PARAMS ((const void *, const void *, size_t)); /* 4.11.4.1 */ #endif extern char * strchr PARAMS ((const char *, int)); /* 4.11.5.2 */ extern char * strrchr PARAMS ((const char *, int)); /* 4.11.5.5 */ extern char * strstr PARAMS ((const char *, const char *)); /* 4.11.5.7 */ extern char * strtok PARAMS ((char *, const char *)); /* 4.11.5.8 */ #ifndef MEM_FNS_DECLARED /* Some non-ANSI use void *, not char *. */ extern PTR memset PARAMS ((void *, int, size_t)); /* 4.11.6.1 */ #endif extern char * strerror PARAMS ((int)); /* 4.11.6.2 */ /* Various possibilities for alloca. */ #ifndef alloca # ifdef __GNUC__ # define alloca __builtin_alloca # else /* Not GNU C */ # ifdef sparc # include /* NOTE: Doesn't declare alloca() */ # endif /* We need to be careful not to declare this in a way which conflicts with bison. Bison never declares it as char *, but under various circumstances (like __hpux) we need to use void *. */ # if defined (__STDC__) || defined (__hpux) extern void *alloca (); # else /* Don't use void *. */ extern char *alloca (); # endif /* Don't use void *. */ # endif /* Not GNU C */ #endif /* alloca not defined */ /* TARGET_BYTE_ORDER and HOST_BYTE_ORDER must be defined to one of these. */ #if !defined (BIG_ENDIAN) #define BIG_ENDIAN 4321 #endif #if !defined (LITTLE_ENDIAN) #define LITTLE_ENDIAN 1234 #endif /* Target-system-dependent parameters for GDB. */ /* Target machine definition. This will be a symlink to one of the tm-*.h files, built by the `configure' script. */ #include "tm.h" /* Number of bits in a char or unsigned char for the target machine. Just like CHAR_BIT in but describes the target machine. */ #if !defined (TARGET_CHAR_BIT) #define TARGET_CHAR_BIT 8 #endif /* Number of bits in a short or unsigned short for the target machine. */ #if !defined (TARGET_SHORT_BIT) #define TARGET_SHORT_BIT (2 * TARGET_CHAR_BIT) #endif /* Number of bits in an int or unsigned int for the target machine. */ #if !defined (TARGET_INT_BIT) #define TARGET_INT_BIT (4 * TARGET_CHAR_BIT) #endif /* Number of bits in a long or unsigned long for the target machine. */ #if !defined (TARGET_LONG_BIT) #define TARGET_LONG_BIT (4 * TARGET_CHAR_BIT) #endif /* Number of bits in a long long or unsigned long long for the target machine. */ #if !defined (TARGET_LONG_LONG_BIT) #define TARGET_LONG_LONG_BIT (2 * TARGET_LONG_BIT) #endif /* Number of bits in a float for the target machine. */ #if !defined (TARGET_FLOAT_BIT) #define TARGET_FLOAT_BIT (4 * TARGET_CHAR_BIT) #endif /* Number of bits in a double for the target machine. */ #if !defined (TARGET_DOUBLE_BIT) #define TARGET_DOUBLE_BIT (8 * TARGET_CHAR_BIT) #endif /* Number of bits in a long double for the target machine. */ #if !defined (TARGET_LONG_DOUBLE_BIT) #define TARGET_LONG_DOUBLE_BIT (2 * TARGET_DOUBLE_BIT) #endif /* Number of bits in a "complex" for the target machine. */ #if !defined (TARGET_COMPLEX_BIT) #define TARGET_COMPLEX_BIT (2 * TARGET_FLOAT_BIT) #endif /* Number of bits in a "double complex" for the target machine. */ #if !defined (TARGET_DOUBLE_COMPLEX_BIT) #define TARGET_DOUBLE_COMPLEX_BIT (2 * TARGET_DOUBLE_BIT) #endif /* Number of bits in a pointer for the target machine */ #if !defined (TARGET_PTR_BIT) #define TARGET_PTR_BIT TARGET_INT_BIT #endif /* If we picked up a copy of CHAR_BIT from a configuration file (which may get it by including ) then use it to set the number of bits in a host char. If not, use the same size as the target. */ #if defined (CHAR_BIT) #define HOST_CHAR_BIT CHAR_BIT #else #define HOST_CHAR_BIT TARGET_CHAR_BIT #endif /* The bit byte-order has to do just with numbering of bits in debugging symbols and such. Conceptually, it's quite separate from byte/word byte order. */ #if !defined (BITS_BIG_ENDIAN) #if TARGET_BYTE_ORDER == BIG_ENDIAN #define BITS_BIG_ENDIAN 1 #endif /* Big endian. */ #if TARGET_BYTE_ORDER == LITTLE_ENDIAN #define BITS_BIG_ENDIAN 0 #endif /* Little endian. */ #endif /* BITS_BIG_ENDIAN not defined. */ /* In findvar.c. */ LONGEST extract_signed_integer PARAMS ((void *, int)); unsigned LONGEST extract_unsigned_integer PARAMS ((void *, int)); CORE_ADDR extract_address PARAMS ((void *, int)); void store_signed_integer PARAMS ((void *, int, LONGEST)); void store_unsigned_integer PARAMS ((void *, int, unsigned LONGEST)); void store_address PARAMS ((void *, int, CORE_ADDR)); double extract_floating PARAMS ((void *, int)); void store_floating PARAMS ((void *, int, double)); /* On some machines there are bits in addresses which are not really part of the address, but are used by the kernel, the hardware, etc. for special purposes. ADDR_BITS_REMOVE takes out any such bits so we get a "real" address such as one would find in a symbol table. This is used only for addresses of instructions, and even then I'm not sure it's used in all contexts. It exists to deal with there being a few stray bits in the PC which would mislead us, not as some sort of generic thing to handle alignment or segmentation (it's possible it should be in TARGET_READ_PC instead). */ #if !defined (ADDR_BITS_REMOVE) #define ADDR_BITS_REMOVE(addr) (addr) #endif /* No ADDR_BITS_REMOVE. */ /* From valops.c */ extern CORE_ADDR push_bytes PARAMS ((CORE_ADDR, char *, int)); extern CORE_ADDR push_word PARAMS ((CORE_ADDR, unsigned LONGEST)); /* Some parts of gdb might be considered optional, in the sense that they are not essential for being able to build a working, usable debugger for a specific environment. For example, the maintenance commands are there for the benefit of gdb maintainers. As another example, some environments really don't need gdb's that are able to read N different object file formats. In order to make it possible (but not necessarily recommended) to build "stripped down" versions of gdb, the following defines control selective compilation of those parts of gdb which can be safely left out when necessary. Note that the default is to include everything. */ #ifndef MAINTENANCE_CMDS #define MAINTENANCE_CMDS 1 #endif #endif /* !defined (DEFS_H) */ gdb-4.13/gdb/delta68-nat.c 666 34562 1752 4656 5470510564 13505 0ustar fnfcygnus/* Functions specific to running gdb native on a Motorola Delta Series sysV68. Copyright (C) 1993, Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include /* for MAXSIG in sys/user.h */ #include /* for ushort in sys/dir.h */ #include /* for struct direct in sys/user.h */ #include #include #if !defined (offsetof) #define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER) #endif /* Return the address in the core dump or inferior of register REGNO. BLOCKEND is the address of the end of the user structure. */ unsigned int register_addr (regno, blockend) int regno; int blockend; { static int sysv68reg[] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, -1, 15, 16 }; if (regno >= 0 && regno < sizeof(sysv68reg) / sizeof(sysv68reg[0])) return blockend + sysv68reg[regno] * 4; else if (regno < FPC_REGNUM) return offsetof (struct user, u_fpu.regs.reg[regno - FP0_REGNUM][0]); else if (regno == FPC_REGNUM) return offsetof (struct user, u_fpu.regs.control); else if (regno == FPS_REGNUM) return offsetof (struct user, u_fpu.regs.status); else if (regno == FPI_REGNUM) return offsetof (struct user, u_fpu.regs.iaddr); else { fprintf_unfiltered (gdb_stderr, "\ Internal error: invalid register number %d in REGISTER_U_ADDR\n", regno); return blockend; } } CORE_ADDR kernel_u_addr; /* Read the value of the u area from the kernel. */ void _initialize_delta68_nat () { struct nlist nl[2]; nl[0].n_name = "u"; nl[1].n_name = NULL; if (nlist ("/sysV68", nl) == 0 && nl[0].n_scnum != 0) kernel_u_addr = nl[0].n_value; else { perror ("Cannot get kernel u area address"); exit (1); } } gdb-4.13/gdb/demangle.c 666 34562 1752 14415 5544734562 13254 0ustar fnfcygnus/* Basic C++ demangling support for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file contains support code for C++ demangling that is common to a styles of demangling, and GDB specific. */ #include "defs.h" #include "command.h" #include "gdbcmd.h" #include "demangle.h" #include /* Select the default C++ demangling style to use. The default is "auto", which allows gdb to attempt to pick an appropriate demangling style for the executable it has loaded. It can be set to a specific style ("gnu", "lucid", "arm", etc.) in which case gdb will never attempt to do auto selection of the style unless you do an explicit "set demangle auto". To select one of these as the default, set DEFAULT_DEMANGLING_STYLE in the appropriate target configuration file. */ #ifndef DEFAULT_DEMANGLING_STYLE # define DEFAULT_DEMANGLING_STYLE AUTO_DEMANGLING_STYLE_STRING #endif /* String name for the current demangling style. Set by the "set demangling" command, printed as part of the output by the "show demangling" command. */ static char *current_demangling_style_string; /* List of supported demangling styles. Contains the name of the style as seen by the user, and the enum value that corresponds to that style. */ static const struct demangler { char *demangling_style_name; enum demangling_styles demangling_style; char *demangling_style_doc; } demanglers [] = { {AUTO_DEMANGLING_STYLE_STRING, auto_demangling, "Automatic selection based on executable"}, {GNU_DEMANGLING_STYLE_STRING, gnu_demangling, "GNU (g++) style demangling"}, {LUCID_DEMANGLING_STYLE_STRING, lucid_demangling, "Lucid (lcc) style demangling"}, {ARM_DEMANGLING_STYLE_STRING, arm_demangling, "ARM style demangling"}, {NULL, unknown_demangling, NULL} }; /* set current demangling style. called by the "set demangling" command after it has updated the current_demangling_style_string to match what the user has entered. if the user has entered a string that matches a known demangling style name in the demanglers[] array then just leave the string alone and update the current_demangling_style enum value to match. if the user has entered a string that doesn't match, including an empty string, then print a list of the currently known styles and restore the current_demangling_style_string to match the current_demangling_style enum value. Note: Assumes that current_demangling_style_string always points to a malloc'd string, even if it is a null-string. */ static void set_demangling_command (ignore, from_tty, c) char *ignore; int from_tty; struct cmd_list_element *c; { const struct demangler *dem; /* First just try to match whatever style name the user supplied with one of the known ones. Don't bother special casing for an empty name, we just treat it as any other style name that doesn't match. If we match, update the current demangling style enum. */ for (dem = demanglers; dem -> demangling_style_name != NULL; dem++) { if (STREQ (current_demangling_style_string, dem -> demangling_style_name)) { current_demangling_style = dem -> demangling_style; break; } } /* Check to see if we found a match. If not, gripe about any non-empty style name and supply a list of valid ones. FIXME: This should probably be done with some sort of completion and with help. */ if (dem -> demangling_style_name == NULL) { if (*current_demangling_style_string != '\0') { printf_unfiltered ("Unknown demangling style `%s'.\n", current_demangling_style_string); } printf_unfiltered ("The currently understood settings are:\n\n"); for (dem = demanglers; dem -> demangling_style_name != NULL; dem++) { printf_unfiltered ("%-10s %s\n", dem -> demangling_style_name, dem -> demangling_style_doc); if (dem -> demangling_style == current_demangling_style) { free (current_demangling_style_string); current_demangling_style_string = savestring (dem -> demangling_style_name, strlen (dem -> demangling_style_name)); } } if (current_demangling_style == unknown_demangling) { /* This can happen during initialization if gdb is compiled with a DEMANGLING_STYLE value that is unknown, so pick the first one as the default. */ current_demangling_style = demanglers[0].demangling_style; current_demangling_style_string = savestring (demanglers[0].demangling_style_name, strlen (demanglers[0].demangling_style_name)); warning ("`%s' style demangling chosen as the default.\n", current_demangling_style_string); } } } /* Fake a "set demangling" command. */ void set_demangling_style (style) char *style; { if (current_demangling_style_string != NULL) { free (current_demangling_style_string); } current_demangling_style_string = savestring (style, strlen (style)); set_demangling_command ((char *) NULL, 0); } void _initialize_demangler () { struct cmd_list_element *set, *show; set = add_set_cmd ("demangle-style", class_support, var_string_noescape, (char *) ¤t_demangling_style_string, "Set the current C++ demangling style.\n\ Use `set demangle-style' without arguments for a list of demangling styles.", &setlist); show = add_show_from_set (set, &showlist); set -> function.sfunc = set_demangling_command; /* Set the default demangling style chosen at compilation time. */ set_demangling_style (DEFAULT_DEMANGLING_STYLE); set_cplus_marker_for_demangling (CPLUS_MARKER); } gdb-4.13/gdb/dpx2-nat.c 666 34562 1752 4666 5461672733 13123 0ustar fnfcygnus/* DPX2 host interface. Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "gdbcore.h" #include #include #include #include #include #include #include #include /* this table must line up with REGISTER_NAMES in tm-68k.h */ /* symbols like 'A0' come from */ static int regmap[] = { R0, R1, R2, R3, R4, R5, R6, R7, A0, A1, A2, A3, A4, A5, A6, SP, PS, PC, FP0, FP1, FP2, FP3, FP4, FP5, FP6, FP7, FP_CR, FP_SR, FP_IAR }; /* blockend is the value of u.u_ar0, and points to the * place where D0 is stored */ int dpx2_register_u_addr (blockend, regnum) int blockend; int regnum; { if (regnum < FP0_REGNUM) return (blockend + 4 * regmap[regnum]); else return (int) &(((struct user *)0)->u_fpstate[regmap[regnum]]); } /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. Unfortunately this is not provided in the system header files. To make matters worse, this value also differs between the dpx/2200 and dpx/2300 models and nlist is not available on the dpx2. We use utsname() to decide on which model we are running. FIXME: This breaks cross examination of core files (it would not be hard to check whether u.u_ar0 is between 0x7fff5000 and 0x7fffc000 and if so use 0x7fff5000 and if not use 0x7fffc000. FIXME). */ #define KERNEL_U_ADDR_200 0x7fff5000 #define KERNEL_U_ADDR_300 0x7fffc000 CORE_ADDR kernel_u_addr; void _initialize_dpx2_nat () { struct utsname uts; if (uname (&uts) == 0 && strcmp (uts.machine, "DPX/2200") == 0) kernel_u_addr = KERNEL_U_ADDR_200; else kernel_u_addr = KERNEL_U_ADDR_300; } gdb-4.13/gdb/dst.h 666 34562 1752 155074 5462002027 12305 0ustar fnfcygnus/* */ /* Apollo object module DST (debug symbol table) description */ #ifndef apollo_dst_h #define apollo_dst_h #if defined(apollo) && !defined(__GNUC__) #define ALIGNED1 __attribute( (aligned(1)) ) #else /* Remove attribute directives from non-Apollo code: */ #define ALIGNED1 /* nil */ #endif /* Identification of this version of the debug symbol table. Producers of the debug symbol table must write these values into the version number field of the compilation unit record in .blocks . */ #define dst_version_major 1 #define dst_version_minor 3 /* ** Enumeration of debug record types appearing in .blocks and .symbols ... */ typedef enum { dst_typ_pad, /* 0 */ dst_typ_comp_unit, /* 1 */ dst_typ_section_tab, /* 2 */ dst_typ_file_tab, /* 3 */ dst_typ_block, /* 4 */ dst_typ_5, dst_typ_var, dst_typ_pointer, /* 7 */ dst_typ_array, /* 8 */ dst_typ_subrange, /* 9 */ dst_typ_set, /* 10 */ dst_typ_implicit_enum, /* 11 */ dst_typ_explicit_enum, /* 12 */ dst_typ_short_rec, /* 13 */ dst_typ_old_record, dst_typ_short_union, /* 15 */ dst_typ_old_union, dst_typ_file, /* 17 */ dst_typ_offset, /* 18 */ dst_typ_alias, /* 19 */ dst_typ_signature, /* 20 */ dst_typ_21, dst_typ_old_label, /* 22 */ dst_typ_scope, /* 23 */ dst_typ_end_scope, /* 24 */ dst_typ_25, dst_typ_26, dst_typ_string_tab, /* 27 */ dst_typ_global_name_tab, /* 28 */ dst_typ_forward, /* 29 */ dst_typ_aux_size, /* 30 */ dst_typ_aux_align, /* 31 */ dst_typ_aux_field_size, /* 32 */ dst_typ_aux_field_off, /* 33 */ dst_typ_aux_field_align, /* 34 */ dst_typ_aux_qual, /* 35 */ dst_typ_aux_var_bound, /* 36 */ dst_typ_extension, /* 37 */ dst_typ_string, /* 38 */ dst_typ_old_entry, dst_typ_const, /* 40 */ dst_typ_reference, /* 41 */ dst_typ_record, /* 42 */ dst_typ_union, /* 43 */ dst_typ_aux_type_deriv, /* 44 */ dst_typ_locpool, /* 45 */ dst_typ_variable, /* 46 */ dst_typ_label, /* 47 */ dst_typ_entry, /* 48 */ dst_typ_aux_lifetime, /* 49 */ dst_typ_aux_ptr_base, /* 50 */ dst_typ_aux_src_range, /* 51 */ dst_typ_aux_reg_val, /* 52 */ dst_typ_aux_unit_names, /* 53 */ dst_typ_aux_sect_info, /* 54 */ dst_typ_END_OF_ENUM } dst_rec_type_t; /* ** Dummy bounds for variably dimensioned arrays: */ #define dst_dummy_array_size 100 /* ** Reference to another item in the symbol table. ** ** The value of a dst_rel_offset_t is the relative offset from the start of the ** referencing record to the start of the referenced record, string, etc. ** ** The value of a NIL dst_rel_offset_t is zero. */ typedef long dst_rel_offset_t ALIGNED1; /* FIXME: Here and many places we make assumptions about sizes of host data types, structure layout, etc. Only needs to be fixed if we care about cross-debugging, though. */ /* ** Section-relative reference. ** ** The section index field is an index into the local compilation unit's ** section table (see dst_rec_section_tab_t)--NOT into the object module ** section table! ** ** The sect_offset field is the offset in bytes into the section. ** ** A NIL dst_sect_ref_t has a sect_index field of zero. Indexes originate ** at one. */ typedef struct { unsigned short sect_index; unsigned long sect_offset ALIGNED1; } dst_sect_ref_t; #define dst_sect_index_nil 0 #define dst_sect_index_origin 1 /* ** Source location descriptor. ** ** The file_index field is an index into the local compilation unit's ** file table (see dst_rec_file_tab_t). ** ** A NIL dst_src_loc_t has a file_index field of zero. Indexes originate ** at one. */ typedef struct { boolean reserved : 1; /* reserved for future use */ int file_index : 11; /* index into .blocks source file list */ int line_number : 20; /* source line number */ } dst_src_loc_t; #define dst_file_index_nil 0 #define dst_file_index_origin 1 /* ** Standard (primitive) type codes. */ typedef enum { dst_non_std_type, dst_int8_type, /* 8 bit integer */ dst_int16_type, /* 16 bit integer */ dst_int32_type, /* 32 bit integer */ dst_uint8_type, /* 8 bit unsigned integer */ dst_uint16_type, /* 16 bit unsigned integer */ dst_uint32_type, /* 32 bit unsigned integer */ dst_real32_type, /* single precision ieee floatining point */ dst_real64_type, /* double precision ieee floatining point */ dst_complex_type, /* single precision complex */ dst_dcomplex_type, /* double precision complex */ dst_bool8_type, /* boolean =logical*1 */ dst_bool16_type, /* boolean =logical*2 */ dst_bool32_type, /* boolean =logical*4 */ dst_char_type, /* 8 bit ascii character */ dst_string_type, /* string of 8 bit ascii characters */ dst_ptr_type, /* univ_pointer */ dst_set_type, /* generic 256 bit set */ dst_proc_type, /* generic procedure (signature not specified) */ dst_func_type, /* generic function (signature not specified) */ dst_void_type, /* c void type */ dst_uchar_type, /* c unsigned char */ dst_std_type_END_OF_ENUM } dst_std_type_t; /* ** General data type descriptor ** ** If the user_defined_type bit is clear, then the type is a standard type, and ** the remaining bits contain the dst_std_type_t of the type. If the bit is ** set, then the type is defined in a separate dst record, which is referenced ** by the remaining bits as a dst_rel_offset_t. */ typedef union { struct { boolean user_defined_type : 1; /* tag field */ int must_be_zero : 23; /* 23 bits of pad */ dst_std_type_t dtc : 8; /* 8 bit primitive data */ } std_type; struct { boolean user_defined_type : 1; /* tag field */ int doffset : 31; /* offset to type record */ } user_type; } dst_type_t ALIGNED1; /* The user_type.doffset field is a 31-bit signed value. Some versions of C do not support signed bit fields. The following macro will extract that field as a signed value: */ #define dst_user_type_offset(type_rec) \ ( ((int) ((type_rec).user_type.doffset << 1)) >> 1 ) /*================================================*/ /*========== RECORDS IN .blocks SECTION ==========*/ /*================================================*/ /*----------------------- COMPILATION UNIT record ----------------------- This must be the first record in each .blocks section. Provides a set of information describing the output of a single compilation and pointers to additional information for the compilation unit. */ typedef enum { dst_pc_code_locs, /* ranges in loc strings are pc ranges */ dst_comp_unit_END_OF_ENUM } dst_comp_unit_flag_t; typedef enum { dst_lang_unk, /* unknown language */ dst_lang_pas, /* Pascal */ dst_lang_ftn, /* FORTRAN */ dst_lang_c, /* C */ dst_lang_mod2, /* Modula-2 */ dst_lang_asm_m68k, /* 68K assembly language */ dst_lang_asm_a88k, /* AT assembly language */ dst_lang_ada, /* Ada */ dst_lang_cxx, /* C++ */ dst_lang_END_OF_ENUM } dst_lang_type_t; typedef struct { struct { unsigned char major_part; /* = dst_version_major */ unsigned char minor_part; /* = dst_version_minor */ } version; /* version of dst */ unsigned short flags; /* mask of dst_comp_unit_flag_t */ unsigned short lang_type; /* source language */ unsigned short number_of_blocks; /* number of blocks records */ dst_rel_offset_t root_block_offset; /* offset to root block (module?) */ dst_rel_offset_t section_table /* offset to section table record */; dst_rel_offset_t file_table; /* offset to file table record */ unsigned long data_size; /* total size of .blocks data */ } dst_rec_comp_unit_t ALIGNED1; /*-------------------- SECTION TABLE record -------------------- There must be one section table associated with each compilation unit. Other debug records refer to sections via their index in this table. The section base addresses in the table are virtual addresses of the sections, relocated by the linker. */ typedef struct { unsigned short number_of_sections; /* size of array: */ unsigned long section_base[dst_dummy_array_size] ALIGNED1; } dst_rec_section_tab_t ALIGNED1; /*----------------- FILE TABLE record ----------------- There must be one file table associated with each compilation unit describing the source (and include) files used by each compilation unit. Other debug records refer to files via their index in this table. The first entry is the primary source file. */ typedef struct { long dtm; /* time last modified (time_$clock_t) */ dst_rel_offset_t noffset; /* offset to name string for source file */ } dst_file_desc_t; typedef struct { unsigned short number_of_files; /* size of array: */ dst_file_desc_t files[dst_dummy_array_size] ALIGNED1; } dst_rec_file_tab_t ALIGNED1; /*----------------- NAME TABLE record ----------------- A name table record may appear as an auxiliary record to the file table, providing additional qualification of the file indexes for languages that need it (i.e. Ada). Name table entries parallel file table entries of the same file index. */ typedef struct { unsigned short number_of_names; /* size of array: */ dst_rel_offset_t names[dst_dummy_array_size] ALIGNED1; } dst_rec_name_tab_t ALIGNED1; /*-------------- BLOCK record -------------- Describes a lexical program block--a procedure, function, module, etc. */ /* Block types. These may be used in any way desired by the compiler writers. The debugger uses them only to give a description to the user of the type of a block. The debugger makes no other assumptions about the meaning of any of these. For example, the fact that a block is executable (e.g., program) or not (e.g., module) is expressed in block attributes (see below), not guessed at from the block type. */ typedef enum { dst_block_module, /* some pascal = modula = ada types */ dst_block_program, dst_block_procedure, dst_block_function, /* C function */ dst_block_subroutine, /* some fortran block types */ dst_block_block_data, dst_block_stmt_function, dst_block_package, /* a few particular to Ada */ dst_block_package_body, dst_block_subunit, dst_block_task, dst_block_file, /* a C outer scope? */ dst_block_class, /* C++ or Simula */ dst_block_END_OF_ENUM } dst_block_type_t; /* Block attributes. This is the information used by the debugger to represent the semantics of blocks. */ typedef enum { dst_block_main_entry, /* the block's entry point is a main entry into the compilation unit */ dst_block_executable, /* the block has an entry point */ dst_block_attr_END_OF_ENUM } dst_block_attr_t; /* Code range. Each block has associated with it one or more code ranges. An individual code range is identified by a range of source (possibly nil) and a range of executable code. For example, a block which has its executable code spread over multiple sections will have one code range per section. */ typedef struct { unsigned long code_size; /* size of executable code (in bytes ) */ dst_sect_ref_t code_start; /* starting address of executable code */ dst_sect_ref_t lines_start; /* start of line number tables */ } dst_code_range_t; typedef struct { dst_block_type_t block_type : 8; unsigned short flags : 8; /* mask of dst_block_attr_t flags */ dst_rel_offset_t sibling_block_off; /* offset to next sibling block */ dst_rel_offset_t child_block_off; /* offset to first contained block */ dst_rel_offset_t noffset; /* offset to block name string */ dst_sect_ref_t symbols_start; /* start of debug symbols */ unsigned short n_of_code_ranges; /* size of array... */ dst_code_range_t code_ranges[dst_dummy_array_size] ALIGNED1; } dst_rec_block_t ALIGNED1; /*-------------------------- AUX SECT INFO TABLE record -------------------------- Appears as an auxiliary to a block record. Expands code range information by providing references into additional, language-dependent sections for information related to specific code ranges of the block. Sect info table entries parallel code range array entries of the same index. */ typedef struct { unsigned char tag; /* currently can only be zero */ unsigned char number_of_refs; /* size of array: */ dst_sect_ref_t refs[dst_dummy_array_size] ALIGNED1; } dst_rec_sect_info_tab_t ALIGNED1; /*=================================================*/ /*========== RECORDS IN .symbols SECTION ==========*/ /*=================================================*/ /*----------------- CONSTANT record ----------------- Describes a symbolic constant. */ typedef struct { float r; /* real part */ float i; /* imaginary part */ } dst_complex_t; typedef struct { double dr; /* real part */ double di; /* imaginary part */ } dst_double_complex_t; /* The following record provides a way of describing constant values with non-standard type and no limit on size. */ typedef union { char char_data[dst_dummy_array_size]; short int_data [dst_dummy_array_size]; long long_data[dst_dummy_array_size]; } dst_big_kon_t; /* Representation of the value of a general constant. */ typedef struct { unsigned short length; /* size of constant value (bytes) */ union { unsigned short kon_int8; short kon_int16; long kon_int32 ALIGNED1; float kon_real ALIGNED1; double kon_dbl ALIGNED1; dst_complex_t kon_cplx ALIGNED1; dst_double_complex_t kon_dcplx ALIGNED1; char kon_char; dst_big_kon_t kon ALIGNED1; } val; /* value data of constant */ } dst_const_t ALIGNED1; typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of const definition */ dst_type_t type_desc; /* type of this (manifest) constant */ dst_const_t value; } dst_rec_const_t ALIGNED1; /*---------------- VARIABLE record ---------------- Describes a program variable. */ /* Variable attributes. These define certain variable semantics to the debugger. */ typedef enum { dst_var_attr_read_only, /* is read-only (a program literal) */ dst_var_attr_volatile, /* same as compiler's VOLATILE attribute */ dst_var_attr_global, /* is a global definition or reference */ dst_var_attr_compiler_gen, /* is compiler-generated */ dst_var_attr_static, /* has static location */ dst_var_attr_END_OF_ENUM } dst_var_attr_t; typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_rel_offset_t loffset; /* offset to loc string */ dst_src_loc_t src_loc; /* file/line of variable definition */ dst_type_t type_desc; /* type descriptor */ unsigned short attributes; /* mask of dst_var_attr_t flags */ } dst_rec_variable_t ALIGNED1; /*---------------- old VAR record ----------------- Used by older compilers to describe a variable */ typedef enum { dst_var_loc_unknown, /* Actually defined as "unknown" */ dst_var_loc_abs, /* Absolute address */ dst_var_loc_sect_off, /* Absolute address as a section offset */ dst_var_loc_ind_sect_off, /* An indexed section offset ???? */ dst_var_loc_reg, /* register */ dst_var_loc_reg_rel, /* register relative - usually fp */ dst_var_loc_ind_reg_rel, /* Indexed register relative */ dst_var_loc_ftn_ptr_based, /* Fortran pointer based */ dst_var_loc_pc_rel, /* PC relative. Really. */ dst_var_loc_external, /* External */ dst_var_loc_END_OF_ENUM } dst_var_loc_t; /* Locations come in two versions. The sort, and the long. The difference * between the short and the long is the addition of a statement number * field to the start andend of the range of the long, and and unkown * purpose field in the middle. Also, loc_type and loc_index aren't * bitfields in the long version. */ typedef struct { unsigned short loc_type : 4; unsigned short loc_index : 12; long location; short start_line; /* start_line and end_line? */ short end_line; /* I'm guessing here. */ } dst_var_loc_short_t; typedef struct { unsigned short loc_type; unsigned short loc_index; long location; short unknown; /* Always 0003 or 3b3c. Why? */ short start_statement; short start_line; short end_statement; short end_line; } dst_var_loc_long_t; typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of description */ dst_type_t type_desc; /* Type description */ unsigned short attributes; /* mask of dst_var_attr_t flags */ unsigned short no_of_locs : 15;/* Number of locations */ unsigned short short_locs : 1; /* True if short locations. */ union { dst_var_loc_short_t shorts[dst_dummy_array_size]; dst_var_loc_long_t longs[dst_dummy_array_size]; } locs; } dst_rec_var_t; /*---------------- old LABEL record ----------------- Used by older compilers to describe a label */ typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of description */ char location[12]; /* location string */ } dst_rec_old_label_t ALIGNED1; /*---------------- POINTER record ---------------- Describes a pointer type. */ typedef struct { dst_rel_offset_t noffset; /* offset to the name string for this type */ dst_src_loc_t src_loc; /* file/line of definition */ dst_type_t type_desc; /* base type of this pointer */ } dst_rec_pointer_t ALIGNED1; /*------------- ARRAY record ------------- Describes an array type. Multidimensional arrays are described with a number of dst_rec_array_t records, one per array dimension, each linked to the next through the elem_type_desc.doffset field. Each record must have its multi_dim flag set. If column_major is true (as with FORTRAN arrays) then the last array bound in the declaration is the first array index in memory, which is the opposite of the usual case (as with Pascal and C arrays). Variable array bounds are described by auxiliary records; if aux_var_bound records are present, the lo_bound and hi_bound fields of this record are ignored by the debugger. span_comp identifies one of the language-dependent ways in which the distance between successive array elements (span) is calculated. dst_use_span_field -- the span is the value of span field. dst_compute_from_prev -- the span is the size of the previous dimension. dst_compute_from_next -- the span is the size of the next dimension. In the latter two cases, the span field contains an amount of padding to add to the size of the appropriate dimension to calculate the span. */ typedef enum { dst_use_span_field, dst_compute_from_prev, dst_compute_from_next, dst_span_comp_END_OF_ENUM } dst_span_comp_t; typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of definition */ dst_type_t elem_type_desc; /* array element type */ dst_type_t indx_type_desc; /* array index type */ long lo_bound; /* lower bound of index */ long hi_bound; /* upper bound of index */ unsigned long span; /* see above */ unsigned long size; /* total array size (bytes) */ boolean multi_dim : 1; boolean is_packed : 1; /* true if packed array */ boolean is_signed : 1; /* true if packed elements are signed */ dst_span_comp_t span_comp : 2; /* how to compute span */ boolean column_major : 1; unsigned short reserved : 2; /* must be zero */ unsigned short elem_size : 8; /* element size if packed (bits) */ } dst_rec_array_t ALIGNED1; /*----------------- SUBRANGE record ----------------- Describes a subrange type. */ /* Variable subrange bounds are described by auxiliary records; if aux_var_bound records are present, the lo_bound and hi_bound fields of this record are ignored by the debugger. */ typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of subrange definition */ dst_type_t type_desc; /* parent type */ long lo_bound; /* lower bound of subrange */ long hi_bound; /* upper bound of subrange */ unsigned short size; /* storage size (bytes) */ } dst_rec_subrange_t ALIGNED1; /*--------------- STRING record --------------- Describes a string type. */ /* Variable subrange bounds are described by auxiliary records; if aux_var_bound records are present, the lo_bound and hi_bound fields of this record are ignored by the debugger. */ typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of string definition */ dst_type_t elem_type_desc; /* element type */ dst_type_t indx_type_desc; /* index type */ long lo_bound; /* lower bound */ long hi_bound; /* upper bound */ unsigned long size; /* total string size (bytes) if fixed */ } dst_rec_string_t ALIGNED1; /*--------------- SET record --------------- Describes a set type. */ typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of definition */ dst_type_t type_desc; /* element type */ unsigned short nbits; /* number of bits in set */ unsigned short size; /* storage size (bytes) */ } dst_rec_set_t ALIGNED1; /*----------------------------- IMPLICIT ENUMERATION record ----------------------------- Describes an enumeration type with implicit element values = 0, 1, 2, ... (Pascal-style). */ typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of definition */ unsigned short nelems; /* number of elements in enumeration */ unsigned short size; /* storage size (bytes) */ /* offsets to name strings of elements 0, 1, 2, ... */ dst_rel_offset_t elem_noffsets[dst_dummy_array_size]; } dst_rec_implicit_enum_t ALIGNED1; /*----------------------------- EXPLICIT ENUMERATION record ----------------------------- Describes an enumeration type with explicitly assigned element values (C-style). */ typedef struct { dst_rel_offset_t noffset; /* offset to element name string */ long value; /* element value */ } dst_enum_elem_t; typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of definition */ unsigned short nelems; /* number of elements in enumeration */ unsigned short size; /* storage size (bytes) */ /* name/value pairs, one describing each enumeration value: */ dst_enum_elem_t elems[dst_dummy_array_size]; } dst_rec_explicit_enum_t ALIGNED1; /*----------------------- RECORD / UNION record ----------------------- Describes a record (struct) or union. If the record is larger than 2**16 bytes then an attached aux record specifies its size. Also, if the record is stored in short form then attached records specify field offsets larger than 2**16 bytes. Whether the fields[] array or sfields[] array is used is selected by the dst_rec_type_t of the overall dst record. */ /* Record field descriptor, short form. This form handles only fields which are an even number of bytes long, located some number of bytes from the start of the record. */ typedef struct { dst_rel_offset_t noffset; /* offset to field name string */ dst_type_t type_desc; /* field type */ unsigned short foffset; /* field offset from start of record (bytes) */ } dst_short_field_t ALIGNED1; typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_type_t type_desc; /* field type */ unsigned short foffset; /* byte offset */ unsigned short is_packed : 1; /* True if field is packed */ unsigned short bit_offset : 6; /* Bit offset */ unsigned short size : 6; /* Size in bits */ unsigned short sign : 1; /* True if signed */ unsigned short pad : 2; /* Padding. Must be 0 */ } dst_old_field_t ALIGNED1; /* Tag enumeration for long record field descriptor: */ typedef enum { dst_field_byte, dst_field_bit, dst_field_loc, dst_field_END_OF_ENUM } dst_field_format_t; /* Record field descriptor, long form. The format of the field information is identified by the format_tag, which contains one of the above values. The field_byte variant is equivalent to the short form of field descriptor. The field_bit variant handles fields which are any number of bits long, located some number of bits from the start of the record. The field_loc variant allows the location of the field to be described by a general loc string. */ typedef struct { dst_rel_offset_t noffset; /* offset to name of field */ dst_type_t type_desc; /* type of field */ union { struct { dst_field_format_t format_tag: 2; /* dst_field_byte */ unsigned long offset: 30; /* offset of field in bytes */ } field_byte ALIGNED1; struct { dst_field_format_t format_tag: 2; /* dst_field_bit */ unsigned long nbits: 6; /* bit size of field */ unsigned long is_signed: 1; /* signed/unsigned attribute */ unsigned long bit_offset: 3; /* bit offset from byte boundary */ int pad: 4; /* must be zero */ unsigned short byte_offset; /* offset of byte boundary */ } field_bit ALIGNED1; struct { dst_field_format_t format_tag: 2; /* dst_field_loc */ int loffset: 30; /* dst_rel_offset_t to loc string */ } field_loc ALIGNED1; } f ALIGNED1; } dst_field_t; /* The field_loc.loffset field is a 30-bit signed value. Some versions of C do not support signed bit fields. The following macro will extract that field as a signed value: */ #define dst_field_loffset(field_rec) \ ( ((int) ((field_rec).f.field_loc.loffset << 2)) >> 2 ) typedef struct { dst_rel_offset_t noffset; /* offset to record name string */ dst_src_loc_t src_loc; /* file/line where this record is defined */ unsigned short size; /* storage size (bytes) */ unsigned short nfields; /* number of fields in this record */ union { dst_field_t fields[dst_dummy_array_size]; dst_short_field_t sfields[dst_dummy_array_size]; dst_old_field_t ofields[dst_dummy_array_size]; } f; /* array of fields */ } dst_rec_record_t ALIGNED1; /*------------- FILE record ------------- Describes a file type. */ typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line where type was defined */ dst_type_t type_desc; /* file element type */ } dst_rec_file_t ALIGNED1; /*--------------- OFFSET record --------------- Describes a Pascal offset type. (This type, an undocumented Domain Pascal extension, is currently not supported by the debugger) */ typedef struct { dst_rel_offset_t noffset; /* offset to the name string */ dst_src_loc_t src_loc; /* file/line of definition */ dst_type_t area_type_desc; /* area type */ dst_type_t base_type_desc; /* base type */ long lo_bound; /* low bound of the offset range */ long hi_bound; /* high bound of the offset range */ long bias; /* bias */ unsigned short scale; /* scale factor */ unsigned short size; /* storage size (bytes) */ } dst_rec_offset_t ALIGNED1; /*-------------- ALIAS record -------------- Describes a type alias (e.g., typedef). */ typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of definition */ dst_type_t type_desc; /* parent type */ } dst_rec_alias_t ALIGNED1; /*------------------ SIGNATURE record ------------------ Describes a procedure/function type. */ /* Enumeration of argument semantics. Note that most are mutually exclusive. */ typedef enum { dst_arg_attr_val, /* passed by value */ dst_arg_attr_ref, /* passed by reference */ dst_arg_attr_name, /* passed by name */ dst_arg_attr_in, /* readable in the callee */ dst_arg_attr_out, /* writable in the callee */ dst_arg_attr_hidden, /* not visible in the caller */ dst_arg_attr_END_OF_ENUM } dst_arg_attr_t; /* Argument descriptor. Actually points to a variable record for most of the information. */ typedef struct { dst_rel_offset_t var_offset; /* offset to variable record */ unsigned short attributes; /* a mask of dst_arg_attr_t flags */ } dst_arg_t ALIGNED1; typedef struct { dst_rel_offset_t noffset; /* offset to name string */ dst_src_loc_t src_loc; /* file/line of function definition */ dst_rel_offset_t result; /* offset to function result variable record */ unsigned short nargs; /* number of arguments */ dst_arg_t args[dst_dummy_array_size]; } dst_rec_signature_t ALIGNED1; /*-------------- SCOPE record -------------- Obsolete. Use the new ENTRY type instead. Old compilers may put this in as the first entry in a function, terminated by an end of scope entry. */ typedef struct { dst_rel_offset_t noffset; /* Name offset */ dst_src_loc_t start_line; /* Starting line */ dst_src_loc_t end_line; /* Ending line */ } dst_rec_scope_t ALIGNED1; /*-------------- ENTRY record -------------- Describes a procedure/function entry point. An entry record is to a signature record roughly as a variable record is to a type descriptor record. The entry_number field is keyed to the entry numbers in .lines -- the debugger locates the code location of an entry by searching the line number table for an entry numbered with the value of entry_number. The main entry is numbered zero. */ typedef struct { dst_rel_offset_t noffset; /* offset to entry name string */ dst_rel_offset_t loffset; /* where to jump to call this entry */ dst_src_loc_t src_loc; /* file/line of definition */ dst_rel_offset_t sig_desc; /* offset to signature descriptor */ unsigned int entry_number: 8; int pad: 8; /* must be zero */ } dst_rec_entry_t ALIGNED1; /*----------------------- Old format ENTRY record ----------------------- Supposedly obsolete but still used by some compilers. */ typedef struct { dst_rel_offset_t noffset; /* Offset to entry name string */ dst_src_loc_t src_loc; /* Location in source */ dst_rel_offset_t sig_desc; /* Signature description */ char unknown[36]; } dst_rec_old_entry_t ALIGNED1; /*-------------- LABEL record -------------- Describes a program label. */ typedef struct { dst_rel_offset_t noffset; /* offset to label string */ dst_rel_offset_t loffset; /* offset to loc string */ dst_src_loc_t src_loc; /* file/line of definition */ } dst_rec_label_t ALIGNED1; /*----------------------- AUXILIARY SIZE record ----------------------- May appear in the auxiliary record list of any type or variable record to modify the default size of the type or variable. */ typedef struct { unsigned long size; /* size (bytes) */ } dst_rec_aux_size_t ALIGNED1; /*----------------------- AUXILIARY ALIGN record ----------------------- May appear in the auxiliary record list of any type or variable record to modify the default alignment of the type or variable. */ typedef struct { unsigned short alignment; /* # of low order zero bits */ } dst_rec_aux_align_t ALIGNED1; /*----------------------------- AUXILIARY FIELD SIZE record ----------------------------- May appear in the auxiliary record list of any RECORD/UNION record to modify the default size of a field. */ typedef struct { unsigned short field_no; /* field number */ unsigned long size; /* size (bits) */ } dst_rec_aux_field_size_t ALIGNED1; /*----------------------------- AUXILIARY FIELD OFFSET record ----------------------------- May appear in the auxiliary record list of any RECORD/UNION record to specify a field offset larger than 2**16. */ typedef struct { unsigned short field_no; /* field number */ unsigned long foffset; /* offset */ } dst_rec_aux_field_off_t ALIGNED1; /*----------------------------- AUXILIARY FIELD ALIGN record ----------------------------- May appear in the auxiliary record list of any RECORD/UNION record to modify the default alignment of a field. */ typedef struct { unsigned short field_no; /* field number */ unsigned short alignment; /* number of low order zero bits */ } dst_rec_aux_field_align_t ALIGNED1; /*---------------------------- AUXILIARY VAR BOUND record ---------------------------- May appear in the auxiliary record list of any ARRAY, SUBRANGE or STRING record to describe a variable bound for the range of the type. */ typedef enum { dst_low_bound, /* the low bound is variable */ dst_high_bound, /* the high bound is variable */ dst_var_bound_END_OF_ENUM } dst_var_bound_t; typedef struct { unsigned short which; /* which bound */ dst_rel_offset_t voffset ALIGNED1; /* variable that defines bound */ } dst_rec_aux_var_bound_t ALIGNED1; /*---------------------------------- AUXILIARY TYPE DERIVATION record ---------------------------------- May appear in the auxiliary record list of any RECORD/UNION record to denote class inheritance of that type from a parent type. Inheritance implies that it is possible to convert the inheritor type to the inherited type, retaining those fields which were inherited. To allow this, orig_field_no, a field number into the record type, is provided. If orig_is_pointer is false, then the start of the inherited record is located at the location of the field indexed by orig_field_no. If orig_is_pointer is true, then it is located at the address contained in the field indexed by orig_field_no (assumed to be a pointer). */ typedef struct { dst_type_t parent_type; /* reference to inherited type */ unsigned short orig_field_no; boolean orig_is_pointer: 1; int unused: 15; /* must be zero */ } dst_rec_aux_type_deriv_t ALIGNED1; /*------------------------------------ AUXILIARY VARIABLE LIFETIME record ------------------------------------ May appear in the auxiliary record list of a VARIABLE record to add location information for an additional variable lifetime. */ typedef struct { dst_rel_offset_t loffset; } dst_rec_aux_lifetime_t ALIGNED1; /*------------------------------- AUXILIARY POINTER BASE record ------------------------------- May appear in the auxiliary record list of a VARIABLE record to provide a pointer base to substitute for references to any such bases in the location string of the variable. A pointer base is another VARIABLE record. When the variable is evaluated by the debugger, it uses the current value of the pointer base variable in computing its location. This is useful for representing FORTRAN pointer-based variables. */ typedef struct { dst_rel_offset_t voffset; } dst_rec_aux_ptr_base_t ALIGNED1; /*--------------------------------- AUXILIARY REGISTER VALUE record --------------------------------- May appear in the auxiliary record list of an ENTRY record to specify a register that must be set to a specific value before jumping to the entry point in a debugger "call". The debugger must set the debuggee register, specified by the register code, to the value of the *address* to which the location string resolves. If the address is register-relative, then the call cannot be made unless the current stack frame is the lexical parent of the entry. An example of this is when a (Pascal) nested procedure contains references to its parent's variables, which it accesses through a static link register. The static link register must be set to some address relative to the parent's stack base register. */ typedef struct { unsigned short reg; /* identifies register to set (isp enum) */ dst_rel_offset_t loffset; /* references a location string */ } dst_rec_aux_reg_val_t ALIGNED1; /*==========================================================*/ /*========== RECORDS USED IN .blocks AND .symbols ==========*/ /*==========================================================*/ /*--------------------- STRING TABLE record --------------------- A string table record contains any number of null-terminated, variable length strings. The length field gives the size in bytes of the text field, which can be any size. The global name table shares this format. This record appears in the .blocks section. Each string in the table identifies a global defined in the current compilation unit. The loc pool record shares this format as well. Loc strings are described elsewhere. */ typedef struct { unsigned long length; char text[dst_dummy_array_size]; } dst_rec_string_tab_t ALIGNED1; /*----------------------- AUXILIARY QUAL record ----------------------- May appear in the auxiliary record list of any BLOCK, VARIABLE, or type record to provide it with a fully-qualified, language-dependent name. */ typedef struct { dst_rel_offset_t lang_qual_name; } dst_rec_aux_qual_t ALIGNED1; /*---------------- FORWARD record ---------------- Reference to a record somewhere else. This allows identical definitions in different scopes to share data. */ typedef struct { dst_rel_offset_t rec_off; } dst_rec_forward_t ALIGNED1; /*------------------------------- AUXILIARY SOURCE RANGE record ------------------------------- May appear in the auxiliary record list of any BLOCK record to specify a range of source lines over which the block is active. */ typedef struct { dst_src_loc_t first_line; /* first source line */ dst_src_loc_t last_line; /* last source line */ } dst_rec_aux_src_range_t ALIGNED1; /*------------------ EXTENSION record ------------------ Provision for "foreign" records, such as might be generated by a non-Apollo compiler. Apollo software will ignore these. */ typedef struct { unsigned short rec_size; /* record size (bytes) */ unsigned short ext_type; /* defined by whoever generates it */ unsigned short ext_data; /* place-holder for arbitrary amount of data */ } dst_rec_extension_t ALIGNED1; /* ** DEBUG SYMBOL record -- The wrapper for all .blocks and .symbols records. ** ** This record ties together all previous .blocks and .symbols records ** together in a union with a common header. The rec_type field of the ** header identifies the record type. The rec_flags field currently only ** defines auxiliary record lists. ** ** If a record carries with it a non-null auxiliary record list, its ** dst_flag_has_aux_recs flag is set, and each of the records that follow ** it are treated as its auxiliary records, until the end of the compilation ** unit or scope is reached, or until an auxiliary record with its ** dst_flag_last_aux_rec flag set is reached. */ typedef enum { dst_flag_has_aux_recs, dst_flag_last_aux_rec, dst_rec_flag_END_OF_ENUM } dst_rec_flags_t; typedef struct { dst_rec_type_t rec_type : 8; /* record type */ int rec_flags: 8; /* mask of dst_rec_flags_t */ union /* switched on rec_type field above */ { /* dst_typ_pad requires no additional fields */ dst_rec_comp_unit_t comp_unit_; dst_rec_section_tab_t section_tab_; dst_rec_file_tab_t file_tab_; dst_rec_block_t block_; dst_rec_var_t var_; dst_rec_pointer_t pointer_; dst_rec_array_t array_; dst_rec_subrange_t subrange_; dst_rec_set_t set_; dst_rec_implicit_enum_t implicit_enum_; dst_rec_explicit_enum_t explicit_enum_; /* dst_typ_short_{rec,union} are represented by 'rec' (below) */ dst_rec_file_t file_; dst_rec_offset_t offset_; dst_rec_alias_t alias_; dst_rec_signature_t signature_; dst_rec_old_label_t old_label_; dst_rec_scope_t scope_; /* dst_typ_end_scope requires no additional fields */ dst_rec_string_tab_t string_tab_; /* dst_typ_global_name_tab is represented by 'string_tab' (above) */ dst_rec_forward_t forward_; dst_rec_aux_size_t aux_size_; dst_rec_aux_align_t aux_align_; dst_rec_aux_field_size_t aux_field_size_; dst_rec_aux_field_off_t aux_field_off_; dst_rec_aux_field_align_t aux_field_align_; dst_rec_aux_qual_t aux_qual_; dst_rec_aux_var_bound_t aux_var_bound_; dst_rec_extension_t extension_; dst_rec_string_t string_; dst_rec_const_t const_; /* dst_typ_reference is represented by 'pointer' (above) */ dst_rec_record_t record_; /* dst_typ_union is represented by 'record' (above) */ dst_rec_aux_type_deriv_t aux_type_deriv_; /* dst_typ_locpool is represented by 'string_tab' (above) */ dst_rec_variable_t variable_; dst_rec_label_t label_; dst_rec_entry_t entry_; dst_rec_aux_lifetime_t aux_lifetime_; dst_rec_aux_ptr_base_t aux_ptr_base_; dst_rec_aux_src_range_t aux_src_range_; dst_rec_aux_reg_val_t aux_reg_val_; dst_rec_name_tab_t aux_unit_names_; dst_rec_sect_info_tab_t aux_sect_info_; } rec_data ALIGNED1; } dst_rec_t, *dst_rec_ptr_t; /*===============================================*/ /*========== .lines SECTION DEFINITIONS =========*/ /*===============================================*/ /* The .lines section contains a sequence of line number tables. There is no record structure within the section. The start of the table for a routine is pointed to by the block record, and the end of the table is signaled by an escape code. A line number table is a sequence of bytes. The default entry contains a line number delta (-7..+7) in the high 4 bits and a pc delta (0..15) in the low 4 bits. Special cases, including when one or both of the values is too large to fit in 4 bits and other special cases are handled through escape entries. Escape entries are identified by the value 0x8 in the high 4 bits. The low 4 bits are occupied by a function code. Some escape entries are followed by additional arguments, which may be bytes, words, or longwords. This data is not aligned. The initial PC offset, file number and line number are zero. Normally, the table begins with a dst_ln_file escape which establishes the initial file and line number. All PC deltas are unsigned (thus the table is ordered by increasing PC); line number deltas are signed. The table ends with a dst_ln_end escape, which is followed by a final table entry whose PC delta gives the code size of the last statement. Escape Semantic --------- ------------------------------------------------------------ file Changes file state. The current source file remains constant until another file escape. Though the line number state is also updated by a file escape, a file escape does NOT constitute a line table entry. statement Alters the statement number of the next table entry. By default, all table entries refer to the first statement on a line. Statement number one is the second statement, and so on. entry Identifies the next table entry as the position of an entry point for the current block. The PC position should follow any procedure prologue code. An argument specifies the entry number, which is keyed to the entry number of the corresponding .symbols ENTRY record. exit Identifies the next table entry as the last position within the current block before a procedure epiloge and subsequent procedure exit. gap By default, the executable code corresponding to a table entry is assumed to extend to the beginning of the next table entry. If this is not the case--there is a "hole" in the table--then a gap escape should follow the first table entry to specify where the code for that entry ends. */ #define dst_ln_escape_flag -8 /* Escape function codes: */ typedef enum { dst_ln_pad, /* pad byte */ dst_ln_file, /* file escape. Next 4 bytes are a dst_src_loc_t */ dst_ln_dln1_dpc1, /* 1 byte line delta, 1 byte pc delta */ dst_ln_dln2_dpc2, /* 2 bytes line delta, 2 bytes pc delta */ dst_ln_ln4_pc4, /* 4 bytes ABSOLUTE line number, 4 bytes ABSOLUTE pc */ dst_ln_dln1_dpc0, /* 1 byte line delta, pc delta = 0 */ dst_ln_ln_off_1, /* statement escape, stmt # = 1 (2nd stmt on line) */ dst_ln_ln_off, /* statement escape, stmt # = next byte */ dst_ln_entry, /* entry escape, next byte is entry number */ dst_ln_exit, /* exit escape */ dst_ln_stmt_end, /* gap escape, 4 bytes pc delta */ dst_ln_escape_11, /* reserved */ dst_ln_escape_12, /* reserved */ dst_ln_escape_13, /* reserved */ dst_ln_nxt_byte, /* next byte contains the real escape code */ dst_ln_end, /* end escape, final entry follows */ dst_ln_escape_END_OF_ENUM } dst_ln_escape_t; /* Line number table entry */ typedef union { struct { unsigned int ln_delta : 4; /* 4 bit line number delta */ unsigned int pc_delta : 4; /* 4 bit pc delta */ } delta; struct { unsigned int esc_flag : 4; /* alias for ln_delta */ dst_ln_escape_t esc_code : 4; /* escape function code */ } esc; char sdata; /* signed data byte */ unsigned char udata; /* unsigned data byte */ } dst_ln_entry_t, *dst_ln_entry_ptr_t, dst_ln_table_t[dst_dummy_array_size]; /* The following macro will extract the ln_delta field as a signed value: */ #define dst_ln_ln_delta(ln_rec) \ ( ((short) ((ln_rec).delta.ln_delta << 12)) >> 12 ) typedef struct dst_sec_struct { char *buffer; long position; long size; long base; } dst_sec; /* Macros for access to the data */ #define DST_comp_unit(x) ((x)->rec_data.comp_unit_) #define DST_section_tab(x) ((x)->rec_data.section_tab_) #define DST_file_tab(x) ((x)->rec_data.file_tab_) #define DST_block(x) ((x)->rec_data.block_) #define DST_var(x) ((x)->rec_data.var_) #define DST_pointer(x) ((x)->rec_data.pointer_) #define DST_array(x) ((x)->rec_data.array_) #define DST_subrange(x) ((x)->rec_data.subrange_) #define DST_set(x) ((x)->rec_data.set_) #define DST_implicit_enum(x) ((x)->rec_data.implicit_enum_) #define DST_explicit_enum(x) ((x)->rec_data.explicit_enum_) #define DST_short_rec(x) ((x)->rec_data.record_) #define DST_short_union(x) ((x)->rec_data.record_) #define DST_file(x) ((x)->rec_data.file_) #define DST_offset(x) ((x)->rec_data.offset_) #define DST_alias(x) ((x)->rec_data.alias_) #define DST_signature(x) ((x)->rec_data.signature_) #define DST_old_label(x) ((x)->rec_data.old_label_) #define DST_scope(x) ((x)->rec_data.scope_) #define DST_string_tab(x) ((x)->rec_data.string_tab_) #define DST_global_name_tab(x) ((x)->rec_data.string_tab_) #define DST_forward(x) ((x)->rec_data.forward_) #define DST_aux_size(x) ((x)->rec_data.aux_size_) #define DST_aux_align(x) ((x)->rec_data.aux_align_) #define DST_aux_field_size(x) ((x)->rec_data.aux_field_size_) #define DST_aux_field_off(x) ((x)->rec_data.aux_field_off_) #define DST_aux_field_align(x) ((x)->rec_data.aux_field_align_) #define DST_aux_qual(x) ((x)->rec_data.aux_qual_) #define DST_aux_var_bound(x) ((x)->rec_data.aux_var_bound_) #define DST_extension(x) ((x)->rec_data.extension_) #define DST_string(x) ((x)->rec_data.string_) #define DST_const(x) ((x)->rec_data.const_) #define DST_reference(x) ((x)->rec_data.pointer_) #define DST_record(x) ((x)->rec_data.record_) #define DST_union(x) ((x)->rec_data.record_) #define DST_aux_type_deriv(x) ((x)->rec_data.aux_type_deriv_) #define DST_locpool(x) ((x)->rec_data.string_tab_) #define DST_variable(x) ((x)->rec_data.variable_) #define DST_label(x) ((x)->rec_data.label_) #define DST_entry(x) ((x)->rec_data.entry_) #define DST_aux_lifetime(x) ((x)->rec_data.aux_lifetime_) #define DST_aux_ptr_base(x) ((x)->rec_data.aux_ptr_base_) #define DST_aux_src_range(x) ((x)->rec_data.aux_src_range_) #define DST_aux_reg_val(x) ((x)->rec_data.aux_reg_val_) #define DST_aux_unit_names(x) ((x)->rec_data.aux_unit_names_) #define DST_aux_sect_info(x) ((x)->rec_data.aux_sect_info_) /* * Type codes for loc strings. I'm not entirely certain about all of * these, but they seem to work. * troy@cbme.unsw.EDU.AU * If you find a variable whose location can't be decoded, you should * find out it's code using "dstdump -s filename". It will record an * entry for the variable, and give a text representation of what * the locstring means. Before that explaination there will be a * number. In the LOCSTRING table, that number will appear before * the start of the location string. Location string codes are * five bit codes with a 3 bit argument. Check the high 5 bits of * the one byte code, and figure out where it goes in here. * Then figure out exactly what the meaning is and code it in * dstread.c * * Note that ranged locs mean that the variable is in different locations * depending on the current PC. We ignore these because (a) gcc can't handle * them, and (b), If you don't use high levels of optimisation they won't * occur. */ typedef enum { dst_lsc_end, /* End of string */ dst_lsc_indirect, /* Indirect through previous. Arg == 6 */ /* Or register ax (x=arg) */ dst_lsc_dreg, /* register dx (x=arg) */ dst_lsc_03, dst_lsc_section, /* Section (arg+1) */ dst_lsc_05, dst_lsc_06, dst_lsc_add, /* Add (arg+1)*2 */ dst_lsc_sub, /* Subtract (arg+1)*2 */ dst_lsc_09, dst_lsc_0a, dst_lsc_sec_byte, /* Section of next byte+1 */ dst_lsc_add_byte, /* Add next byte (arg == 5) or next word * (arg == 6) */ dst_lsc_sub_byte, /* Subtract next byte. (arg == 1) or next * word (arg == 6 ?) */ dst_lsc_sbreg, /* Stack base register (frame pointer). Arg==0*/ dst_lsc_0f, dst_lsc_ranged, /* location is pc dependent */ dst_lsc_11, dst_lsc_12, dst_lsc_13, dst_lsc_14, dst_lsc_15, dst_lsc_16, dst_lsc_17, dst_lsc_18, dst_lsc_19, dst_lsc_1a, dst_lsc_1b, dst_lsc_1c, dst_lsc_1d, dst_lsc_1e, dst_lsc_1f } dst_loc_string_code_t; /* If the following occurs after an addition/subtraction, that addition * or subtraction should be multiplied by 256. It's a complete byte, not * a code. */ #define dst_multiply_256 ((char) 0x73) typedef struct { char code : 5; char arg : 3; } dst_loc_header_t ALIGNED1; typedef union { dst_loc_header_t header; char data; } dst_loc_entry_t ALIGNED1; #undef ALIGNED1 #endif /* apollo_dst_h */ gdb-4.13/gdb/dstread.c 666 34562 1752 126760 5555246250 13147 0ustar fnfcygnus/* Read apollo DST symbol tables and convert to internal format, for GDB. Contributed by Troy Rollo, University of NSW (troy@cbme.unsw.edu.au). Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "breakpoint.h" #include "bfd.h" #include "symfile.h" #include "objfiles.h" #include "buildsym.h" #include #include #include "dst.h" CORE_ADDR cur_src_start_addr, cur_src_end_addr; dst_sec blocks_info, lines_info, symbols_info; /* Vector of line number information. */ static struct linetable *line_vector; /* Index of next entry to go in line_vector_index. */ static int line_vector_index; /* Last line number recorded in the line vector. */ static int prev_line_number; /* Number of elements allocated for line_vector currently. */ static int line_vector_length; static struct blockvector * make_blockvector PARAMS ((struct objfile *)); static int init_dst_sections PARAMS ((int)); static void read_dst_symtab PARAMS ((struct objfile *)); static void find_dst_sections PARAMS ((bfd *, sec_ptr, PTR)); static void dst_symfile_init PARAMS ((struct objfile *)); static void dst_new_init PARAMS ((struct objfile *)); static void dst_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int)); static void dst_symfile_finish PARAMS ((struct objfile *)); static void record_minimal_symbol PARAMS ((char *, CORE_ADDR, enum minimal_symbol_type, struct objfile *)); static void dst_end_symtab PARAMS ((struct objfile *)); static void complete_symtab PARAMS ((char *, CORE_ADDR, unsigned int)); static void dst_start_symtab PARAMS ((void)); static void dst_record_line PARAMS ((int, CORE_ADDR)); static struct blockvector * make_blockvector (objfile) struct objfile *objfile; { register struct pending_block *next, *next1; register struct blockvector *blockvector; register int i; /* Count the length of the list of blocks. */ for (next = pending_blocks, i = 0; next; next = next->next, i++); blockvector = (struct blockvector *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct blockvector) + (i - 1) * sizeof (struct block *)); /* Copy the blocks into the blockvector. This is done in reverse order, which happens to put the blocks into the proper order (ascending starting address). */ BLOCKVECTOR_NBLOCKS (blockvector) = i; for (next = pending_blocks; next; next = next->next) BLOCKVECTOR_BLOCK (blockvector, --i) = next->block; /* Now free the links of the list, and empty the list. */ for (next = pending_blocks; next; next = next1) { next1 = next->next; free ((PTR)next); } pending_blocks = 0; return blockvector; } /* Manage the vector of line numbers. */ /* FIXME: Use record_line instead. */ static void dst_record_line (line, pc) int line; CORE_ADDR pc; { struct linetable_entry *e; /* Make sure line vector is big enough. */ if (line_vector_index + 2 >= line_vector_length) { line_vector_length *= 2; line_vector = (struct linetable *) xrealloc ((char *) line_vector, sizeof (struct linetable) + (line_vector_length * sizeof (struct linetable_entry))); } e = line_vector->item + line_vector_index++; e->line = line; e->pc = pc; } /* Start a new symtab for a new source file. It indicates the start of data for one original source file. */ /* FIXME: use start_symtab, like coffread.c now does. */ static void dst_start_symtab () { /* Initialize the source file line number information for this file. */ if (line_vector) /* Unlikely, but maybe possible? */ free ((PTR)line_vector); line_vector_index = 0; line_vector_length = 1000; prev_line_number = -2; /* Force first line number to be explicit */ line_vector = (struct linetable *) xmalloc (sizeof (struct linetable) + line_vector_length * sizeof (struct linetable_entry)); } /* Save the vital information from when starting to read a file, for use when closing off the current file. NAME is the file name the symbols came from, START_ADDR is the first text address for the file, and SIZE is the number of bytes of text. */ static void complete_symtab (name, start_addr, size) char *name; CORE_ADDR start_addr; unsigned int size; { last_source_file = savestring (name, strlen (name)); cur_src_start_addr = start_addr; cur_src_end_addr = start_addr + size; if (current_objfile -> ei.entry_point >= cur_src_start_addr && current_objfile -> ei.entry_point < cur_src_end_addr) { current_objfile -> ei.entry_file_lowpc = cur_src_start_addr; current_objfile -> ei.entry_file_highpc = cur_src_end_addr; } } /* Finish the symbol definitions for one main source file, close off all the lexical contexts for that file (creating struct block's for them), then make the struct symtab for that file and put it in the list of all such. */ /* FIXME: Use end_symtab, like coffread.c now does. */ static void dst_end_symtab (objfile) struct objfile *objfile; { register struct symtab *symtab; register struct blockvector *blockvector; register struct linetable *lv; /* Create the blockvector that points to all the file's blocks. */ blockvector = make_blockvector (objfile); /* Now create the symtab object for this source file. */ symtab = allocate_symtab (last_source_file, objfile); /* Fill in its components. */ symtab->blockvector = blockvector; symtab->free_code = free_linetable; symtab->free_ptr = 0; symtab->filename = last_source_file; symtab->dirname = NULL; lv = line_vector; lv->nitems = line_vector_index; symtab->linetable = (struct linetable *) xrealloc ((char *) lv, (sizeof (struct linetable) + lv->nitems * sizeof (struct linetable_entry))); free_named_symtabs (symtab->filename); /* Reinitialize for beginning of new file. */ line_vector = 0; line_vector_length = -1; last_source_file = NULL; } static void record_minimal_symbol (name, address, type, objfile) char *name; CORE_ADDR address; enum minimal_symbol_type type; struct objfile *objfile; { prim_record_minimal_symbol (savestring (name, strlen (name)), address, type, objfile); } /* dst_symfile_init () is the dst-specific initialization routine for reading symbols. We will only be called if this is a DST or DST-like file. BFD handles figuring out the format of the file, and code in symtab.c uses BFD's determination to vector to us. The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */ static void dst_symfile_init (objfile) struct objfile *objfile; { asection *section; bfd *abfd = objfile->obfd; init_entry_point_info (objfile); } /* This function is called for every section; it finds the outer limits of the line table (minimum and maximum file offset) so that the mainline code can read the whole thing for efficiency. */ /* ARGSUSED */ static void find_dst_sections (abfd, asect, vpinfo) bfd *abfd; sec_ptr asect; PTR vpinfo; { int size, count; long base; file_ptr offset, maxoff; dst_sec *section; /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */ size = asect->_raw_size; offset = asect->filepos; base = asect->vma; /* End of warning */ section = NULL; if (!strcmp(asect->name, ".blocks")) section = &blocks_info; else if (!strcmp(asect->name, ".lines")) section = &lines_info; else if (!strcmp(asect->name, ".symbols")) section = &symbols_info; if (!section) return; section->size = size; section->position = offset; section->base = base; } /* The BFD for this file -- only good while we're actively reading symbols into a psymtab or a symtab. */ static bfd *symfile_bfd; /* Read a symbol file, after initialization by dst_symfile_init. */ /* FIXME! Addr and Mainline are not used yet -- this will not work for shared libraries or add_file! */ /* ARGSUSED */ static void dst_symfile_read (objfile, section_offsets, mainline) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; { bfd *abfd = objfile->obfd; char *name = bfd_get_filename (abfd); int desc; register int val; int num_symbols; int symtab_offset; int stringtab_offset; symfile_bfd = abfd; /* Kludge for swap routines */ /* WARNING WILL ROBINSON! ACCESSING BFD-PRIVATE DATA HERE! FIXME! */ desc = fileno ((GDB_FILE *)(abfd->iostream)); /* File descriptor */ /* Read the line number table, all at once. */ bfd_map_over_sections (abfd, find_dst_sections, (PTR)NULL); val = init_dst_sections (desc); if (val < 0) error ("\"%s\": error reading debugging symbol tables\n", name); init_minimal_symbol_collection (); make_cleanup (discard_minimal_symbols, 0); /* Now that the executable file is positioned at symbol table, process it and define symbols accordingly. */ read_dst_symtab (objfile); /* Sort symbols alphabetically within each block. */ { struct symtab *s; for (s = objfile -> symtabs; s != NULL; s = s -> next) { sort_symtab_syms (s); } } /* Install any minimal symbols that have been collected as the current minimal symbols for this objfile. */ install_minimal_symbols (objfile); } static void dst_new_init (ignore) struct objfile *ignore; { /* Nothin' to do */ } /* Perform any local cleanups required when we are done with a particular objfile. I.E, we are in the process of discarding all symbol information for an objfile, freeing up all memory held for it, and unlinking the objfile struct from the global list of known objfiles. */ static void dst_symfile_finish (objfile) struct objfile *objfile; { /* Nothing to do */ } /* Get the next line number from the DST. Returns 0 when we hit an * end directive or cannot continue for any other reason. * * Note that ordinary pc deltas are multiplied by two. Apparently * this is what was really intended. */ static int get_dst_line(buffer, pc) signed char **buffer; long *pc; { static last_pc = 0; static long last_line = 0; static int last_file = 0; dst_ln_entry_ptr_t entry; int size; dst_src_loc_t *src_loc; if (*pc != -1) { last_pc = *pc; *pc = -1; } entry = (dst_ln_entry_ptr_t) *buffer; while (dst_ln_ln_delta(*entry) == dst_ln_escape_flag) { switch(entry->esc.esc_code) { case dst_ln_pad: size = 1; /* pad byte */ break; case dst_ln_file: /* file escape. Next 4 bytes are a dst_src_loc_t */ size = 5; src_loc = (dst_src_loc_t *) (*buffer + 1); last_line = src_loc->line_number; last_file = src_loc->file_index; break; case dst_ln_dln1_dpc1: /* 1 byte line delta, 1 byte pc delta */ last_line += (*buffer)[1]; last_pc += 2 * (unsigned char) (*buffer)[2]; dst_record_line(last_line, last_pc); size = 3; break; case dst_ln_dln2_dpc2: /* 2 bytes line delta, 2 bytes pc delta */ last_line += *(short *) (*buffer + 1); last_pc += 2 * (*(short *) (*buffer + 3)); size = 5; dst_record_line(last_line, last_pc); break; case dst_ln_ln4_pc4: /* 4 bytes ABSOLUTE line number, 4 bytes ABSOLUTE pc */ last_line = *(unsigned long *) (*buffer + 1); last_pc = *(unsigned long *) (*buffer + 5); size = 9; dst_record_line(last_line, last_pc); break; case dst_ln_dln1_dpc0: /* 1 byte line delta, pc delta = 0 */ size = 2; last_line+= (*buffer)[1]; break; case dst_ln_ln_off_1: /* statement escape, stmt # = 1 (2nd stmt on line) */ size = 1; break; case dst_ln_ln_off: /* statement escape, stmt # = next byte */ size = 2; break; case dst_ln_entry: /* entry escape, next byte is entry number */ size = 2; break; case dst_ln_exit: /* exit escape */ size = 1; break; case dst_ln_stmt_end: /* gap escape, 4 bytes pc delta */ size = 5; /* last_pc += 2 * (*(long *) (*buffer + 1)); */ /* Apparently this isn't supposed to actually modify * the pc value. Totally weird. */ break; case dst_ln_escape_11: case dst_ln_escape_12: case dst_ln_escape_13: size = 1; break; case dst_ln_nxt_byte: /* This shouldn't happen. If it does, we're SOL */ return 0; break; case dst_ln_end: /* end escape, final entry follows */ return 0; } *buffer += (size < 0) ? -size : size; entry = (dst_ln_entry_ptr_t) *buffer; } last_line += dst_ln_ln_delta(*entry); last_pc += entry->delta.pc_delta * 2; (*buffer)++; dst_record_line(last_line, last_pc); return 1; } static void enter_all_lines(buffer, address) char *buffer; long address; { if (buffer) while (get_dst_line(&buffer, &address)); } static int get_dst_entry(buffer, ret_entry) char *buffer; dst_rec_ptr_t *ret_entry; { int size; dst_rec_ptr_t entry; static int last_type; int ar_size; static unsigned lu3; entry = (dst_rec_ptr_t) buffer; switch(entry->rec_type) { case dst_typ_pad: size = 0; break; case dst_typ_comp_unit: size = sizeof(DST_comp_unit(entry)); break; case dst_typ_section_tab: size = sizeof(DST_section_tab(entry)) + ((int) DST_section_tab(entry).number_of_sections - dst_dummy_array_size) * sizeof(long); break; case dst_typ_file_tab: size = sizeof(DST_file_tab(entry)) + ((int) DST_file_tab(entry).number_of_files - dst_dummy_array_size) * sizeof(dst_file_desc_t); break; case dst_typ_block: size = sizeof(DST_block(entry)) + ((int) DST_block(entry).n_of_code_ranges - dst_dummy_array_size) * sizeof(dst_code_range_t); break; case dst_typ_5: size = -1; break; case dst_typ_var: size = sizeof(DST_var(entry)) - sizeof(dst_var_loc_long_t) * dst_dummy_array_size + DST_var(entry).no_of_locs * ( DST_var(entry).short_locs ? sizeof(dst_var_loc_short_t): sizeof(dst_var_loc_long_t)); break; case dst_typ_pointer: size = sizeof(DST_pointer(entry)); break; case dst_typ_array: size = sizeof(DST_array(entry)); break; case dst_typ_subrange: size = sizeof(DST_subrange(entry)); break; case dst_typ_set: size = sizeof(DST_set(entry)); break; case dst_typ_implicit_enum: size = sizeof(DST_implicit_enum(entry)) + ((int) DST_implicit_enum(entry).nelems - dst_dummy_array_size) * sizeof(dst_rel_offset_t); break; case dst_typ_explicit_enum: size = sizeof(DST_explicit_enum(entry)) + ((int) DST_explicit_enum(entry).nelems - dst_dummy_array_size) * sizeof(dst_enum_elem_t); break; case dst_typ_short_rec: size = sizeof(DST_short_rec(entry)) + DST_short_rec(entry).nfields * sizeof(dst_short_field_t) - dst_dummy_array_size * sizeof(dst_field_t); break; case dst_typ_short_union: size = sizeof(DST_short_union(entry)) + DST_short_union(entry).nfields * sizeof(dst_short_field_t) - dst_dummy_array_size * sizeof(dst_field_t); break; case dst_typ_file: size = sizeof(DST_file(entry)); break; case dst_typ_offset: size = sizeof(DST_offset(entry)); break; case dst_typ_alias: size = sizeof(DST_alias(entry)); break; case dst_typ_signature: size = sizeof(DST_signature(entry)) + ((int) DST_signature(entry).nargs - dst_dummy_array_size) * sizeof(dst_arg_t); break; case dst_typ_21: size = -1; break; case dst_typ_old_label: size = sizeof(DST_old_label(entry)); break; case dst_typ_scope: size = sizeof(DST_scope(entry)); break; case dst_typ_end_scope: size = 0; break; case dst_typ_25: case dst_typ_26: size = -1; break; case dst_typ_string_tab: case dst_typ_global_name_tab: size = sizeof(DST_string_tab(entry)) + DST_string_tab(entry).length - dst_dummy_array_size; break; case dst_typ_forward: size = sizeof(DST_forward(entry)); get_dst_entry((char *) entry + DST_forward(entry).rec_off, &entry); break; case dst_typ_aux_size: size = sizeof(DST_aux_size(entry)); break; case dst_typ_aux_align: size = sizeof(DST_aux_align(entry)); break; case dst_typ_aux_field_size: size = sizeof(DST_aux_field_size(entry)); break; case dst_typ_aux_field_off: size = sizeof(DST_aux_field_off(entry)); break; case dst_typ_aux_field_align: size = sizeof(DST_aux_field_align(entry)); break; case dst_typ_aux_qual: size = sizeof(DST_aux_qual(entry)); break; case dst_typ_aux_var_bound: size = sizeof(DST_aux_var_bound(entry)); break; case dst_typ_extension: size = DST_extension(entry).rec_size; break; case dst_typ_string: size = sizeof(DST_string(entry)); break; case dst_typ_old_entry: size = 48; /* Obsolete entry type */ break; case dst_typ_const: size = sizeof(DST_const(entry)) + DST_const(entry).value.length - sizeof(DST_const(entry).value.val); break; case dst_typ_reference: size = sizeof(DST_reference(entry)); break; case dst_typ_old_record: case dst_typ_old_union: case dst_typ_record: case dst_typ_union: size = sizeof(DST_record(entry)) + ((int) DST_record(entry).nfields - dst_dummy_array_size) * sizeof(dst_field_t); break; case dst_typ_aux_type_deriv: size = sizeof(DST_aux_type_deriv(entry)); break; case dst_typ_locpool: size = sizeof(DST_locpool(entry)) + ((int) DST_locpool(entry).length - dst_dummy_array_size); break; case dst_typ_variable: size = sizeof(DST_variable(entry)); break; case dst_typ_label: size = sizeof(DST_label(entry)); break; case dst_typ_entry: size = sizeof(DST_entry(entry)); break; case dst_typ_aux_lifetime: size = sizeof(DST_aux_lifetime(entry)); break; case dst_typ_aux_ptr_base: size = sizeof(DST_aux_ptr_base(entry)); break; case dst_typ_aux_src_range: size = sizeof(DST_aux_src_range(entry)); break; case dst_typ_aux_reg_val: size = sizeof(DST_aux_reg_val(entry)); break; case dst_typ_aux_unit_names: size = sizeof(DST_aux_unit_names(entry)) + ((int) DST_aux_unit_names(entry).number_of_names - dst_dummy_array_size) * sizeof(dst_rel_offset_t); break; case dst_typ_aux_sect_info: size = sizeof(DST_aux_sect_info(entry)) + ((int) DST_aux_sect_info(entry).number_of_refs - dst_dummy_array_size) * sizeof(dst_sect_ref_t); break; default: size = -1; break; } if (size == -1) { fprintf_unfiltered(gdb_stderr, "Warning: unexpected DST entry type (%d) found\nLast valid entry was of type: %d\n", (int) entry->rec_type, last_type); fprintf_unfiltered(gdb_stderr, "Last unknown_3 value: %d\n", lu3); size = 0; } else last_type = entry->rec_type; if (size & 1) /* Align on a word boundary */ size++; size += 2; *ret_entry = entry; return size; } static int next_dst_entry(buffer, entry, table) char **buffer; dst_rec_ptr_t *entry; dst_sec *table; { if (*buffer - table->buffer >= table->size) { *entry = NULL; return 0; } *buffer += get_dst_entry(*buffer, entry); return 1; } #define NEXT_BLK(a, b) next_dst_entry(a, b, &blocks_info) #define NEXT_SYM(a, b) next_dst_entry(a, b, &symbols_info) #define DST_OFFSET(a, b) ((char *) (a) + (b)) static dst_rec_ptr_t section_table = NULL; char * get_sec_ref(ref) dst_sect_ref_t *ref; { dst_sec *section = NULL; long offset; if (!section_table || !ref->sect_index) return NULL; offset = DST_section_tab(section_table).section_base[ref->sect_index-1] + ref->sect_offset; if (offset >= blocks_info.base && offset < blocks_info.base + blocks_info.size) section = &blocks_info; else if (offset >= symbols_info.base && offset < symbols_info.base + symbols_info.size) section = &symbols_info; else if (offset >= lines_info.base && offset < lines_info.base + lines_info.size) section = &lines_info; if (!section) return NULL; return section->buffer + (offset - section->base); } CORE_ADDR dst_get_addr(int section, long offset) { if (!section_table || !section) return 0; return DST_section_tab(section_table).section_base[section-1] + offset; } CORE_ADDR dst_sym_addr(ref) dst_sect_ref_t *ref; { if (!section_table || !ref->sect_index) return 0; return DST_section_tab(section_table).section_base[ref->sect_index-1] + ref->sect_offset; } static struct type * create_new_type(objfile) struct objfile *objfile; { struct type *type; type = (struct type *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct type)); memset(type, 0, sizeof(struct type)); return type; } static struct symbol * create_new_symbol(objfile, name) struct objfile *objfile; char *name; { struct symbol *sym = (struct symbol *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); SYMBOL_NAME (sym) = obstack_copy0 (&objfile->symbol_obstack, name, strlen (name)); SYMBOL_VALUE (sym) = 0; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; SYMBOL_CLASS (sym) = LOC_BLOCK; return sym; }; static struct type * decode_dst_type PARAMS ((struct objfile *, dst_rec_ptr_t)); static struct type * decode_type_desc(objfile, type_desc, base) struct objfile *objfile; dst_type_t *type_desc; dst_rec_ptr_t base; { struct type *type; dst_rec_ptr_t entry; if (type_desc->std_type.user_defined_type) { entry = (dst_rec_ptr_t) DST_OFFSET(base, dst_user_type_offset(*type_desc)); type = decode_dst_type(objfile, entry); } else { switch(type_desc->std_type.dtc) { case dst_int8_type: type = builtin_type_signed_char; break; case dst_int16_type: type = builtin_type_short; break; case dst_int32_type: type = builtin_type_long; break; case dst_uint8_type: type = builtin_type_unsigned_char; break; case dst_uint16_type: type = builtin_type_unsigned_short; break; case dst_uint32_type: type = builtin_type_unsigned_long; break; case dst_real32_type: type = builtin_type_float; break; case dst_real64_type: type = builtin_type_double; break; case dst_complex_type: type = builtin_type_complex; break; case dst_dcomplex_type: type = builtin_type_double_complex; break; case dst_bool8_type: type = builtin_type_char; break; case dst_bool16_type: type = builtin_type_short; break; case dst_bool32_type: type = builtin_type_long; break; case dst_char_type: type = builtin_type_char; break; /* The next few are more complex. I will take care * of them properly at a later point. */ case dst_string_type: type = builtin_type_void; break; case dst_ptr_type: type = builtin_type_void; break; case dst_set_type: type = builtin_type_void; break; case dst_proc_type: type = builtin_type_void; break; case dst_func_type: type = builtin_type_void; break; /* Back tto some ordinary ones */ case dst_void_type: type = builtin_type_void; break; case dst_uchar_type: type = builtin_type_unsigned_char; break; default: type = builtin_type_void; break; } } return type; } struct structure_list { struct structure_list *next; struct type *type; }; static struct structure_list *struct_list = NULL; static struct type * find_dst_structure(name) char *name; { struct structure_list *element; for (element = struct_list; element; element = element->next) if (!strcmp(name, TYPE_NAME(element->type))) return element->type; return NULL; } static struct type * decode_dst_structure(objfile, entry, code, version) struct objfile *objfile; dst_rec_ptr_t entry; int code; int version; { struct type *type, *child_type; char *struct_name; char *name, *field_name; int i; int fieldoffset, fieldsize; dst_type_t type_desc; struct structure_list *element; struct_name = DST_OFFSET(entry, DST_record(entry).noffset); name = concat( (code == TYPE_CODE_UNION)?"union ":"struct ", struct_name, NULL); type = find_dst_structure(name); if (type) { free((PTR) name); return type; } type = create_new_type(objfile); TYPE_NAME(type) = obstack_copy0 (&objfile->symbol_obstack, name, strlen(name)); free((PTR) name); TYPE_CODE(type) = code; TYPE_LENGTH(type) = DST_record(entry).size; TYPE_NFIELDS(type) = DST_record(entry).nfields; TYPE_FIELDS(type) = (struct field *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct field) * DST_record(entry).nfields); fieldoffset = fieldsize = 0; INIT_CPLUS_SPECIFIC(type); element = (struct structure_list *) xmalloc(sizeof(struct structure_list)); element->type = type; element->next = struct_list; struct_list = element; for (i = 0; i < DST_record(entry).nfields; i++) { switch (version) { case 2: field_name = DST_OFFSET(entry, DST_record(entry).f.ofields[i].noffset); fieldoffset = DST_record(entry).f.ofields[i].foffset*8 + DST_record(entry).f.ofields[i].bit_offset; fieldsize = DST_record(entry).f.ofields[i].size; type_desc = DST_record(entry).f.ofields[i].type_desc; break; case 1: field_name = DST_OFFSET(entry, DST_record(entry).f.fields[i].noffset); type_desc = DST_record(entry).f.fields[i].type_desc; switch(DST_record(entry).f.fields[i].f.field_loc.format_tag) { case dst_field_byte: fieldoffset = DST_record(entry).f. fields[i].f.field_byte.offset * 8; fieldsize = -1; break; case dst_field_bit: fieldoffset = DST_record(entry).f. fields[i].f.field_bit.byte_offset * 8 + DST_record(entry).f. fields[i].f.field_bit.bit_offset; fieldsize = DST_record(entry).f. fields[i].f.field_bit.nbits; break; case dst_field_loc: fieldoffset += fieldsize; fieldsize = -1; break; } break; case 0: field_name = DST_OFFSET(entry, DST_record(entry).f.sfields[i].noffset); fieldoffset = DST_record(entry).f.sfields[i].foffset; type_desc = DST_record(entry).f.sfields[i].type_desc; if (i < DST_record(entry).nfields - 1) fieldsize = DST_record(entry).f.sfields[i+1].foffset; else fieldsize = DST_record(entry).size; fieldsize -= fieldoffset; fieldoffset *= 8; fieldsize *= 8; } TYPE_FIELDS(type)[i].name = obstack_copy0 (&objfile->symbol_obstack, field_name, strlen(field_name)); TYPE_FIELDS(type)[i].type = decode_type_desc(objfile, &type_desc, entry); if (fieldsize == -1) fieldsize = TYPE_LENGTH(TYPE_FIELDS(type)[i].type) * 8; TYPE_FIELDS(type)[i].bitsize = fieldsize; TYPE_FIELDS(type)[i].bitpos = fieldoffset; } return type; } static struct type * decode_dst_type(objfile, entry) struct objfile *objfile; dst_rec_ptr_t entry; { struct type *child_type, *type, *range_type, *index_type; switch(entry->rec_type) { case dst_typ_var: return decode_type_desc(objfile, &DST_var(entry).type_desc, entry); break; case dst_typ_variable: return decode_type_desc(objfile, &DST_variable(entry).type_desc, entry); break; case dst_typ_short_rec: return decode_dst_structure(objfile, entry, TYPE_CODE_STRUCT,0); case dst_typ_short_union: return decode_dst_structure(objfile, entry, TYPE_CODE_UNION, 0); case dst_typ_union: return decode_dst_structure(objfile, entry, TYPE_CODE_UNION, 1); case dst_typ_record: return decode_dst_structure(objfile, entry, TYPE_CODE_STRUCT,1); case dst_typ_old_union: return decode_dst_structure(objfile, entry, TYPE_CODE_UNION, 2); case dst_typ_old_record: return decode_dst_structure(objfile, entry, TYPE_CODE_STRUCT,2); case dst_typ_pointer: return make_pointer_type( decode_type_desc(objfile, &DST_pointer(entry).type_desc, entry), NULL); case dst_typ_array: child_type = decode_type_desc(objfile, &DST_pointer(entry).type_desc, entry); index_type = lookup_fundamental_type(objfile, FT_INTEGER); range_type = create_range_type ((struct type *) NULL, index_type, DST_array(entry).lo_bound, DST_array(entry).hi_bound); return create_array_type ((struct type *) NULL, child_type, range_type); case dst_typ_alias: return decode_type_desc(objfile, &DST_alias(entry).type_desc, entry); default: return builtin_type_int; } } struct symbol_list { struct symbol_list *next; struct symbol *symbol; }; static struct symbol_list *dst_global_symbols = NULL; static int total_globals = 0; static void decode_dst_locstring(locstr, sym) char *locstr; struct symbol *sym; { dst_loc_entry_t *entry, *next_entry; CORE_ADDR temp; int count = 0; while(1) { if (count++ == 100) { fprintf_unfiltered(gdb_stderr, "Error reading locstring\n"); break; } entry = (dst_loc_entry_t *) locstr; next_entry = (dst_loc_entry_t *) (locstr + 1); switch (entry->header.code) { case dst_lsc_end: /* End of string */ return; case dst_lsc_indirect:/* Indirect through previous. Arg == 6 */ /* Or register ax x == arg */ if (entry->header.arg < 6) { SYMBOL_CLASS(sym) = LOC_REGISTER; SYMBOL_VALUE(sym) = entry->header.arg + 8; } /* We predict indirects */ locstr++; break; case dst_lsc_dreg: SYMBOL_CLASS(sym) = LOC_REGISTER; SYMBOL_VALUE(sym) = entry->header.arg; locstr++; break; case dst_lsc_section:/* Section (arg+1) */ SYMBOL_VALUE(sym) = dst_get_addr(entry->header.arg+1, 0); locstr++; break; case dst_lsc_sec_byte: /* Section (next_byte+1) */ SYMBOL_VALUE(sym) = dst_get_addr(locstr[1]+1, 0); locstr+=2; break; case dst_lsc_add: /* Add (arg+1)*2 */ case dst_lsc_sub: /* Subtract (arg+1)*2 */ temp = (entry->header.arg + 1) * 2; locstr++; if (*locstr == dst_multiply_256) { temp <<= 8; locstr++; } switch(entry->header.code) { case dst_lsc_add: if (SYMBOL_CLASS(sym) == LOC_LOCAL) SYMBOL_CLASS(sym) = LOC_ARG; SYMBOL_VALUE(sym) += temp; break; case dst_lsc_sub: SYMBOL_VALUE(sym) -= temp; break; } break; case dst_lsc_add_byte: case dst_lsc_sub_byte: switch (entry->header.arg & 0x03) { case 1: temp = (unsigned char) locstr[1]; locstr += 2; break; case 2: temp = * (unsigned short *) (locstr + 1); locstr += 3; break; case 3: temp = * (unsigned long *) (locstr + 1); locstr += 5; break; } if (*locstr == dst_multiply_256) { temp <<= 8; locstr++; } switch(entry->header.code) { case dst_lsc_add_byte: if (SYMBOL_CLASS(sym) == LOC_LOCAL) SYMBOL_CLASS(sym) = LOC_ARG; SYMBOL_VALUE(sym) += temp; break; case dst_lsc_sub_byte: SYMBOL_VALUE(sym) -= temp; break; } break; case dst_lsc_sbreg: /* Stack base register (frame pointer). Arg==0*/ if (next_entry->header.code != dst_lsc_indirect) { SYMBOL_VALUE(sym) = 0; SYMBOL_CLASS(sym) = LOC_STATIC; return; } SYMBOL_VALUE(sym) = 0; SYMBOL_CLASS(sym) = LOC_LOCAL; locstr++; break; default: SYMBOL_VALUE(sym) = 0; SYMBOL_CLASS(sym) = LOC_STATIC; return; } } } static struct symbol_list * process_dst_symbols(objfile, entry, name, nsyms_ret) struct objfile *objfile; dst_rec_ptr_t entry; char *name; int *nsyms_ret; { struct symbol_list *list = NULL, *element; struct symbol *sym; char *symname; int nsyms = 0; char *location; long line; dst_type_t symtype; struct type *type; dst_var_attr_t attr; dst_var_loc_t loc_type; unsigned loc_index; long loc_value; if (!entry) { *nsyms_ret = 0; return NULL; } location = (char *) entry; while (NEXT_SYM(&location, &entry) && entry->rec_type != dst_typ_end_scope) { if (entry->rec_type == dst_typ_var) { if (DST_var(entry).short_locs) { loc_type = DST_var(entry).locs.shorts[0].loc_type; loc_index = DST_var(entry).locs.shorts[0].loc_index; loc_value = DST_var(entry).locs.shorts[0].location; } else { loc_type = DST_var(entry).locs.longs[0].loc_type; loc_index = DST_var(entry).locs.longs[0].loc_index; loc_value = DST_var(entry).locs.longs[0].location; } if (loc_type == dst_var_loc_external) continue; symname = DST_OFFSET(entry, DST_var(entry).noffset); line = DST_var(entry).src_loc.line_number; symtype = DST_var(entry).type_desc; attr = DST_var(entry).attributes; } else if (entry->rec_type == dst_typ_variable) { symname = DST_OFFSET(entry, DST_variable(entry).noffset); line = DST_variable(entry).src_loc.line_number; symtype = DST_variable(entry).type_desc; attr = DST_variable(entry).attributes; } else { continue; } if (symname && name && !strcmp(symname, name)) /* It's the function return value */ continue; sym = create_new_symbol(objfile, symname); if ((attr & (1<rec_type) { case dst_typ_var: switch(loc_type) { case dst_var_loc_abs: SYMBOL_VALUE_ADDRESS(sym) = loc_value; break; case dst_var_loc_sect_off: case dst_var_loc_ind_sect_off: /* What is this? */ SYMBOL_VALUE_ADDRESS(sym) = dst_get_addr( loc_index, loc_value); break; case dst_var_loc_ind_reg_rel: /* What is this? */ case dst_var_loc_reg_rel: /* If it isn't fp relative, specify the * register it's relative to. */ if (loc_index) { sym->aux_value.basereg = loc_index; } SYMBOL_VALUE(sym) = loc_value; if (loc_value > 0 && SYMBOL_CLASS(sym) == LOC_BASEREG) SYMBOL_CLASS(sym) = LOC_BASEREG_ARG; break; case dst_var_loc_reg: SYMBOL_VALUE(sym) = loc_index; SYMBOL_CLASS(sym) = LOC_REGISTER; break; } break; case dst_typ_variable: /* External variable..... don't try to interpret * its nonexistant locstring. */ if (DST_variable(entry).loffset == -1) continue; decode_dst_locstring(DST_OFFSET(entry, DST_variable(entry).loffset), sym); } element = (struct symbol_list *) xmalloc(sizeof(struct symbol_list)); if (attr & (1<next = dst_global_symbols; dst_global_symbols = element; total_globals++; } else { element->next = list; list = element; nsyms++; } element->symbol = sym; } *nsyms_ret = nsyms; return list; } static struct symbol * process_dst_function(objfile, entry, name, address) struct objfile *objfile; dst_rec_ptr_t entry; char *name; CORE_ADDR address; { struct symbol *sym; struct type *type, *ftype; dst_rec_ptr_t sym_entry, typ_entry; char *location; struct symbol_list *element; type = builtin_type_int; sym = create_new_symbol(objfile, name); SYMBOL_CLASS(sym) = LOC_BLOCK; if (entry) { location = (char *) entry; do { NEXT_SYM(&location, &sym_entry); } while (sym_entry && sym_entry->rec_type != dst_typ_signature); if (sym_entry) { SYMBOL_LINE(sym) = DST_signature(sym_entry).src_loc.line_number; if (DST_signature(sym_entry).result) { typ_entry = (dst_rec_ptr_t) DST_OFFSET(sym_entry, DST_signature(sym_entry).result); type = decode_dst_type(objfile, typ_entry); } } } if (!type->function_type) { ftype = create_new_type(objfile); type->function_type = ftype; ftype->target_type = type; ftype->code = TYPE_CODE_FUNC; } SYMBOL_TYPE(sym) = type->function_type; /* Now add ourselves to the global symbols list */ element = (struct symbol_list *) xmalloc(sizeof(struct symbol_list)); element->next = dst_global_symbols; dst_global_symbols = element; total_globals++; element->symbol = sym; return sym; } static struct block * process_dst_block(objfile, entry) struct objfile *objfile; dst_rec_ptr_t entry; { struct block *block; struct symbol *function = NULL; CORE_ADDR address; long size; char *name; dst_rec_ptr_t child_entry, symbol_entry; struct block *child_block; int total_symbols = 0; struct pending_block *pblock; char fake_name[20]; static long fake_seq = 0; struct symbol_list *symlist, *nextsym; int symnum; if (DST_block(entry).noffset) name = DST_OFFSET(entry, DST_block(entry).noffset); else name = NULL; if (DST_block(entry).n_of_code_ranges) { address = dst_sym_addr( &DST_block(entry).code_ranges[0].code_start); size = DST_block(entry).code_ranges[0].code_size; } else { address = -1; size = 0; } symbol_entry = (dst_rec_ptr_t) get_sec_ref(&DST_block(entry).symbols_start); switch(DST_block(entry).block_type) { /* These are all really functions. Even the "program" type. * This is because the Apollo OS was written in Pascal, and * in Pascal, the main procedure is described as the Program. * Cute, huh? */ case dst_block_procedure: case dst_block_function: case dst_block_subroutine: case dst_block_program: record_minimal_symbol(name, address, mst_text, objfile); function = process_dst_function( objfile, symbol_entry, name, address); enter_all_lines(get_sec_ref(&DST_block(entry).code_ranges[0].lines_start), address); break; case dst_block_block_data: break; default: /* GDB has to call it something, and the module name * won't cut it */ sprintf(fake_name, "block_%08lx", fake_seq++); function = process_dst_function( objfile, NULL, fake_name, address); break; } symlist = process_dst_symbols(objfile, symbol_entry, name, &total_symbols); block = (struct block *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct block) + (total_symbols - 1) * sizeof (struct symbol *)); symnum = 0; while (symlist) { nextsym = symlist->next; block->sym[symnum] = symlist->symbol; free((PTR) symlist); symlist = nextsym; symnum++; } BLOCK_NSYMS (block) = total_symbols; BLOCK_START (block) = address; BLOCK_END (block) = address + size; BLOCK_SUPERBLOCK (block) = 0; if (function) { SYMBOL_BLOCK_VALUE (function) = block; BLOCK_FUNCTION (block) = function; } else BLOCK_FUNCTION (block) = 0; pblock = (struct pending_block *) xmalloc (sizeof (struct pending_block)); pblock->block = block; pblock->next = pending_blocks; pending_blocks = pblock; if (DST_block(entry).child_block_off) { child_entry = (dst_rec_ptr_t) DST_OFFSET(entry, DST_block(entry).child_block_off); while (child_entry) { child_block = process_dst_block(objfile, child_entry); if (child_block) { if (BLOCK_START(child_block) < BLOCK_START(block) || BLOCK_START(block) == -1) BLOCK_START(block) = BLOCK_START(child_block); if (BLOCK_END(child_block) > BLOCK_END(block) || BLOCK_END(block) == -1) BLOCK_END(block) = BLOCK_END(child_block); BLOCK_SUPERBLOCK (child_block) = block; } if (DST_block(child_entry).sibling_block_off) child_entry = (dst_rec_ptr_t) DST_OFFSET( child_entry, DST_block(child_entry).sibling_block_off); else child_entry = NULL; } } return block; } static void read_dst_symtab (objfile) struct objfile *objfile; { char *buffer; dst_rec_ptr_t entry, file_table, root_block; char *source_file; struct block *block, *global_block; struct pending_block *pblock; int symnum; struct symbol_list *nextsym; int module_num = 0; struct structure_list *element; current_objfile = objfile; buffer = blocks_info.buffer; while (NEXT_BLK(&buffer, &entry)) { if (entry->rec_type == dst_typ_comp_unit) { file_table = (dst_rec_ptr_t) DST_OFFSET(entry, DST_comp_unit(entry).file_table); section_table = (dst_rec_ptr_t) DST_OFFSET(entry, DST_comp_unit(entry).section_table); root_block = (dst_rec_ptr_t) DST_OFFSET(entry, DST_comp_unit(entry).root_block_offset); source_file = DST_OFFSET(file_table, DST_file_tab(file_table).files[0].noffset); /* Point buffer to the start of the next comp_unit */ buffer = DST_OFFSET(entry, DST_comp_unit(entry).data_size); dst_start_symtab(); pblock = (struct pending_block *) xmalloc (sizeof (struct pending_block)); pblock->next = NULL; pending_blocks = pblock; block = process_dst_block(objfile, root_block); global_block = (struct block *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct block) + (total_globals - 1) * sizeof (struct symbol *)); BLOCK_NSYMS(global_block) = total_globals; for (symnum = 0; symnum < total_globals; symnum++) { nextsym = dst_global_symbols->next; global_block->sym[symnum] = dst_global_symbols->symbol; free((PTR) dst_global_symbols); dst_global_symbols = nextsym; } dst_global_symbols = NULL; total_globals = 0; BLOCK_FUNCTION(global_block) = 0; BLOCK_START(global_block) = BLOCK_START(block); BLOCK_END(global_block) = BLOCK_END(block); BLOCK_SUPERBLOCK(global_block) = 0; BLOCK_SUPERBLOCK(block) = global_block; pblock->block = global_block; complete_symtab(source_file, BLOCK_START(block), BLOCK_END(block) - BLOCK_START(block)); module_num++; dst_end_symtab(objfile); } } if (module_num) record_minimal_symbol("", BLOCK_END(block), mst_text, objfile); /* One more faked symbol to make sure nothing can ever run off the * end of the symbol table. This one represents the end of the * text space. It used to be (CORE_ADDR) -1 (effectively the highest * int possible), but some parts of gdb treated it as a signed * number and failed comparisons. We could equally use 7fffffff, * but no functions are ever mapped to an address higher than * 40000000 */ record_minimal_symbol("", (CORE_ADDR) 0x40000000, mst_text, objfile); while (struct_list) { element = struct_list; struct_list = element->next; free((PTR) element); } } /* Support for line number handling */ static char *linetab = NULL; static long linetab_offset; static unsigned long linetab_size; /* Read in all the line numbers for fast lookups later. Leave them in external (unswapped) format in memory; we'll swap them as we enter them into GDB's data structures. */ static int init_one_section(chan, secinfo) int chan; dst_sec *secinfo; { if (secinfo->size == 0 || lseek(chan, secinfo->position, 0) == -1 || (secinfo->buffer = xmalloc(secinfo->size)) == NULL || myread(chan, secinfo->buffer, secinfo->size) == -1) return 0; else return 1; } static int init_dst_sections (chan) int chan; { if (!init_one_section(chan, &blocks_info) || !init_one_section(chan, &lines_info) || !init_one_section(chan, &symbols_info)) return -1; else return 0; } /* Fake up support for relocating symbol addresses. FIXME. */ struct section_offsets dst_symfile_faker = {0}; struct section_offsets * dst_symfile_offsets (objfile, addr) struct objfile *objfile; CORE_ADDR addr; { objfile->num_sections = 1; return &dst_symfile_faker; } /* Register our ability to parse symbols for DST BFD files */ static struct sym_fns dst_sym_fns = { /* FIXME: Can this be integrated with coffread.c? If not, should it be a separate flavour like ecoff? */ (enum bfd_flavour)-2, dst_new_init, /* sym_new_init: init anything gbl to entire symtab */ dst_symfile_init, /* sym_init: read initial info, setup for sym_read() */ dst_symfile_read, /* sym_read: read a symbol file into symtab */ dst_symfile_finish, /* sym_finish: finished with file, cleanup */ dst_symfile_offsets, /* sym_offsets: xlate external to internal form */ NULL /* next: pointer to next struct sym_fns */ }; void _initialize_dstread () { add_symtab_fns(&dst_sym_fns); } gdb-4.13/gdb/dwarfread.c 666 34562 1752 326140 5611327314 13444 0ustar fnfcygnus/* DWARF debugging format support for GDB. Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support. Portions based on dbxread.c, mipsread.c, coffread.c, and dwarfread.c from a Data General SVR4 gdb port. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* FIXME: Do we need to generate dependencies in partial symtabs? (Perhaps we don't need to). FIXME: Resolve minor differences between what information we put in the partial symbol table and what dbxread puts in. For example, we don't yet put enum constants there. And dbxread seems to invent a lot of typedefs we never see. Use the new printpsym command to see the partial symbol table contents. FIXME: Figure out a better way to tell gdb about the name of the function contain the user's entry point (I.E. main()) FIXME: See other FIXME's and "ifdef 0" scattered throughout the code for other things to work on, if you get bored. :-) */ #include "defs.h" #include "bfd.h" #include "symtab.h" #include "gdbtypes.h" #include "symfile.h" #include "objfiles.h" #include "elf/dwarf.h" #include "buildsym.h" #include "demangle.h" #include "expression.h" /* Needed for enum exp_opcode in language.h, sigh... */ #include "language.h" #include "complaints.h" #include #include #ifndef NO_SYS_FILE #include #endif /* FIXME -- convert this to SEEK_SET a la POSIX, move to config files. */ #ifndef L_SET #define L_SET 0 #endif /* Some macros to provide DIE info for complaints. */ #define DIE_ID (curdie!=NULL ? curdie->die_ref : 0) #define DIE_NAME (curdie!=NULL && curdie->at_name!=NULL) ? curdie->at_name : "" /* Complaints that can be issued during DWARF debug info reading. */ struct complaint no_bfd_get_N = { "DIE @ 0x%x \"%s\", no bfd support for %d byte data object", 0, 0 }; struct complaint malformed_die = { "DIE @ 0x%x \"%s\", malformed DIE, bad length (%d bytes)", 0, 0 }; struct complaint bad_die_ref = { "DIE @ 0x%x \"%s\", reference to DIE (0x%x) outside compilation unit", 0, 0 }; struct complaint unknown_attribute_form = { "DIE @ 0x%x \"%s\", unknown attribute form (0x%x)", 0, 0 }; struct complaint unknown_attribute_length = { "DIE @ 0x%x \"%s\", unknown attribute length, skipped remaining attributes", 0, 0 }; struct complaint unexpected_fund_type = { "DIE @ 0x%x \"%s\", unexpected fundamental type 0x%x", 0, 0 }; struct complaint unknown_type_modifier = { "DIE @ 0x%x \"%s\", unknown type modifier %u", 0, 0 }; struct complaint volatile_ignored = { "DIE @ 0x%x \"%s\", type modifier 'volatile' ignored", 0, 0 }; struct complaint const_ignored = { "DIE @ 0x%x \"%s\", type modifier 'const' ignored", 0, 0 }; struct complaint botched_modified_type = { "DIE @ 0x%x \"%s\", botched modified type decoding (mtype 0x%x)", 0, 0 }; struct complaint op_deref2 = { "DIE @ 0x%x \"%s\", OP_DEREF2 address 0x%x not handled", 0, 0 }; struct complaint op_deref4 = { "DIE @ 0x%x \"%s\", OP_DEREF4 address 0x%x not handled", 0, 0 }; struct complaint basereg_not_handled = { "DIE @ 0x%x \"%s\", BASEREG %d not handled", 0, 0 }; struct complaint dup_user_type_allocation = { "DIE @ 0x%x \"%s\", internal error: duplicate user type allocation", 0, 0 }; struct complaint dup_user_type_definition = { "DIE @ 0x%x \"%s\", internal error: duplicate user type definition", 0, 0 }; struct complaint missing_tag = { "DIE @ 0x%x \"%s\", missing class, structure, or union tag", 0, 0 }; struct complaint bad_array_element_type = { "DIE @ 0x%x \"%s\", bad array element type attribute 0x%x", 0, 0 }; struct complaint subscript_data_items = { "DIE @ 0x%x \"%s\", can't decode subscript data items", 0, 0 }; struct complaint unhandled_array_subscript_format = { "DIE @ 0x%x \"%s\", array subscript format 0x%x not handled yet", 0, 0 }; struct complaint unknown_array_subscript_format = { "DIE @ 0x%x \"%s\", unknown array subscript format %x", 0, 0 }; struct complaint not_row_major = { "DIE @ 0x%x \"%s\", array not row major; not handled correctly", 0, 0 }; typedef unsigned int DIE_REF; /* Reference to a DIE */ #ifndef GCC_PRODUCER #define GCC_PRODUCER "GNU C " #endif #ifndef GPLUS_PRODUCER #define GPLUS_PRODUCER "GNU C++ " #endif #ifndef LCC_PRODUCER #define LCC_PRODUCER "NCR C/C++" #endif #ifndef CHILL_PRODUCER #define CHILL_PRODUCER "GNU Chill " #endif /* Flags to target_to_host() that tell whether or not the data object is expected to be signed. Used, for example, when fetching a signed integer in the target environment which is used as a signed integer in the host environment, and the two environments have different sized ints. In this case, *somebody* has to sign extend the smaller sized int. */ #define GET_UNSIGNED 0 /* No sign extension required */ #define GET_SIGNED 1 /* Sign extension required */ /* Defines for things which are specified in the document "DWARF Debugging Information Format" published by UNIX International, Programming Languages SIG. These defines are based on revision 1.0.0, Jan 20, 1992. */ #define SIZEOF_DIE_LENGTH 4 #define SIZEOF_DIE_TAG 2 #define SIZEOF_ATTRIBUTE 2 #define SIZEOF_FORMAT_SPECIFIER 1 #define SIZEOF_FMT_FT 2 #define SIZEOF_LINETBL_LENGTH 4 #define SIZEOF_LINETBL_LINENO 4 #define SIZEOF_LINETBL_STMT 2 #define SIZEOF_LINETBL_DELTA 4 #define SIZEOF_LOC_ATOM_CODE 1 #define FORM_FROM_ATTR(attr) ((attr) & 0xF) /* Implicitly specified */ /* Macros that return the sizes of various types of data in the target environment. FIXME: Currently these are just compile time constants (as they are in other parts of gdb as well). They need to be able to get the right size either from the bfd or possibly from the DWARF info. It would be nice if the DWARF producer inserted DIES that describe the fundamental types in the target environment into the DWARF info, similar to the way dbx stabs producers produce information about their fundamental types. */ #define TARGET_FT_POINTER_SIZE(objfile) (TARGET_PTR_BIT / TARGET_CHAR_BIT) #define TARGET_FT_LONG_SIZE(objfile) (TARGET_LONG_BIT / TARGET_CHAR_BIT) /* The Amiga SVR4 header file defines AT_element_list as a FORM_BLOCK2, and this is the value emitted by the AT&T compiler. However, the Issue 2 DWARF specification from AT&T defines it as a FORM_BLOCK4, as does the latest specification from UI/PLSIG. For backwards compatibility with the AT&T compiler produced executables we define AT_short_element_list for this variant. */ #define AT_short_element_list (0x00f0|FORM_BLOCK2) /* External variables referenced. */ extern int info_verbose; /* From main.c; nonzero => verbose */ extern char *warning_pre_print; /* From utils.c */ /* The DWARF debugging information consists of two major pieces, one is a block of DWARF Information Entries (DIE's) and the other is a line number table. The "struct dieinfo" structure contains the information for a single DIE, the one currently being processed. In order to make it easier to randomly access the attribute fields of the current DIE, which are specifically unordered within the DIE, each DIE is scanned and an instance of the "struct dieinfo" structure is initialized. Initialization is done in two levels. The first, done by basicdieinfo(), just initializes those fields that are vital to deciding whether or not to use this DIE, how to skip past it, etc. The second, done by the function completedieinfo(), fills in the rest of the information. Attributes which have block forms are not interpreted at the time the DIE is scanned, instead we just save pointers to the start of their value fields. Some fields have a flag _p that is set when the value of the field is valid (I.E. we found a matching attribute in the DIE). Since we may want to test for the presence of some attributes in the DIE, such as AT_low_pc, without restricting the values of the field, we need someway to note that we found such an attribute. */ typedef char BLOCK; struct dieinfo { char * die; /* Pointer to the raw DIE data */ unsigned long die_length; /* Length of the raw DIE data */ DIE_REF die_ref; /* Offset of this DIE */ unsigned short die_tag; /* Tag for this DIE */ unsigned long at_padding; unsigned long at_sibling; BLOCK * at_location; char * at_name; unsigned short at_fund_type; BLOCK * at_mod_fund_type; unsigned long at_user_def_type; BLOCK * at_mod_u_d_type; unsigned short at_ordering; BLOCK * at_subscr_data; unsigned long at_byte_size; unsigned short at_bit_offset; unsigned long at_bit_size; BLOCK * at_element_list; unsigned long at_stmt_list; unsigned long at_low_pc; unsigned long at_high_pc; unsigned long at_language; unsigned long at_member; unsigned long at_discr; BLOCK * at_discr_value; BLOCK * at_string_length; char * at_comp_dir; char * at_producer; unsigned long at_start_scope; unsigned long at_stride_size; unsigned long at_src_info; char * at_prototyped; unsigned int has_at_low_pc:1; unsigned int has_at_stmt_list:1; unsigned int has_at_byte_size:1; unsigned int short_element_list:1; }; static int diecount; /* Approximate count of dies for compilation unit */ static struct dieinfo *curdie; /* For warnings and such */ static char *dbbase; /* Base pointer to dwarf info */ static int dbsize; /* Size of dwarf info in bytes */ static int dbroff; /* Relative offset from start of .debug section */ static char *lnbase; /* Base pointer to line section */ static int isreg; /* Kludge to identify register variables */ /* Kludge to identify basereg references. Nonzero if we have an offset relative to a basereg. */ static int offreg; /* Which base register is it relative to? */ static int basereg; /* This value is added to each symbol value. FIXME: Generalize to the section_offsets structure used by dbxread (once this is done, pass the appropriate section number to end_symtab). */ static CORE_ADDR baseaddr; /* Add to each symbol value */ /* The section offsets used in the current psymtab or symtab. FIXME, only used to pass one value (baseaddr) at the moment. */ static struct section_offsets *base_section_offsets; /* Each partial symbol table entry contains a pointer to private data for the read_symtab() function to use when expanding a partial symbol table entry to a full symbol table entry. For DWARF debugging info, this data is contained in the following structure and macros are provided for easy access to the members given a pointer to a partial symbol table entry. dbfoff Always the absolute file offset to the start of the ".debug" section for the file containing the DIE's being accessed. dbroff Relative offset from the start of the ".debug" access to the first DIE to be accessed. When building the partial symbol table, this value will be zero since we are accessing the entire ".debug" section. When expanding a partial symbol table entry, this value will be the offset to the first DIE for the compilation unit containing the symbol that triggers the expansion. dblength The size of the chunk of DIE's being examined, in bytes. lnfoff The absolute file offset to the line table fragment. Ignored when building partial symbol tables, but used when expanding them, and contains the absolute file offset to the fragment of the ".line" section containing the line numbers for the current compilation unit. */ struct dwfinfo { file_ptr dbfoff; /* Absolute file offset to start of .debug section */ int dbroff; /* Relative offset from start of .debug section */ int dblength; /* Size of the chunk of DIE's being examined */ file_ptr lnfoff; /* Absolute file offset to line table fragment */ }; #define DBFOFF(p) (((struct dwfinfo *)((p)->read_symtab_private))->dbfoff) #define DBROFF(p) (((struct dwfinfo *)((p)->read_symtab_private))->dbroff) #define DBLENGTH(p) (((struct dwfinfo *)((p)->read_symtab_private))->dblength) #define LNFOFF(p) (((struct dwfinfo *)((p)->read_symtab_private))->lnfoff) /* The generic symbol table building routines have separate lists for file scope symbols and all all other scopes (local scopes). So we need to select the right one to pass to add_symbol_to_list(). We do it by keeping a pointer to the correct list in list_in_scope. FIXME: The original dwarf code just treated the file scope as the first local scope, and all other local scopes as nested local scopes, and worked fine. Check to see if we really need to distinguish these in buildsym.c */ struct pending **list_in_scope = &file_symbols; /* DIES which have user defined types or modified user defined types refer to other DIES for the type information. Thus we need to associate the offset of a DIE for a user defined type with a pointer to the type information. Originally this was done using a simple but expensive algorithm, with an array of unsorted structures, each containing an offset/type-pointer pair. This array was scanned linearly each time a lookup was done. The result was that gdb was spending over half it's startup time munging through this array of pointers looking for a structure that had the right offset member. The second attempt used the same array of structures, but the array was sorted using qsort each time a new offset/type was recorded, and a binary search was used to find the type pointer for a given DIE offset. This was even slower, due to the overhead of sorting the array each time a new offset/type pair was entered. The third attempt uses a fixed size array of type pointers, indexed by a value derived from the DIE offset. Since the minimum DIE size is 4 bytes, we can divide any DIE offset by 4 to obtain a unique index into this fixed size array. Since each element is a 4 byte pointer, it takes exactly as much memory to hold this array as to hold the DWARF info for a given compilation unit. But it gets freed as soon as we are done with it. This has worked well in practice, as a reasonable tradeoff between memory consumption and speed, without having to resort to much more complicated algorithms. */ static struct type **utypes; /* Pointer to array of user type pointers */ static int numutypes; /* Max number of user type pointers */ /* Maintain an array of referenced fundamental types for the current compilation unit being read. For DWARF version 1, we have to construct the fundamental types on the fly, since no information about the fundamental types is supplied. Each such fundamental type is created by calling a language dependent routine to create the type, and then a pointer to that type is then placed in the array at the index specified by it's FT_ value. The array has a fixed size set by the FT_NUM_MEMBERS compile time constant, which is the number of predefined fundamental types gdb knows how to construct. */ static struct type *ftypes[FT_NUM_MEMBERS]; /* Fundamental types */ /* Record the language for the compilation unit which is currently being processed. We know it once we have seen the TAG_compile_unit DIE, and we need it while processing the DIE's for that compilation unit. It is eventually saved in the symtab structure, but we don't finalize the symtab struct until we have processed all the DIE's for the compilation unit. We also need to get and save a pointer to the language struct for this language, so we can call the language dependent routines for doing things such as creating fundamental types. */ static enum language cu_language; static const struct language_defn *cu_language_defn; /* Forward declarations of static functions so we don't have to worry about ordering within this file. */ static int attribute_size PARAMS ((unsigned int)); static unsigned long target_to_host PARAMS ((char *, int, int, struct objfile *)); static void add_enum_psymbol PARAMS ((struct dieinfo *, struct objfile *)); static void handle_producer PARAMS ((char *)); static void read_file_scope PARAMS ((struct dieinfo *, char *, char *, struct objfile *)); static void read_func_scope PARAMS ((struct dieinfo *, char *, char *, struct objfile *)); static void read_lexical_block_scope PARAMS ((struct dieinfo *, char *, char *, struct objfile *)); static void scan_partial_symbols PARAMS ((char *, char *, struct objfile *)); static void scan_compilation_units PARAMS ((char *, char *, file_ptr, file_ptr, struct objfile *)); static void add_partial_symbol PARAMS ((struct dieinfo *, struct objfile *)); static void init_psymbol_list PARAMS ((struct objfile *, int)); static void basicdieinfo PARAMS ((struct dieinfo *, char *, struct objfile *)); static void completedieinfo PARAMS ((struct dieinfo *, struct objfile *)); static void dwarf_psymtab_to_symtab PARAMS ((struct partial_symtab *)); static void psymtab_to_symtab_1 PARAMS ((struct partial_symtab *)); static void read_ofile_symtab PARAMS ((struct partial_symtab *)); static void process_dies PARAMS ((char *, char *, struct objfile *)); static void read_structure_scope PARAMS ((struct dieinfo *, char *, char *, struct objfile *)); static struct type * decode_array_element_type PARAMS ((char *)); static struct type * decode_subscript_data_item PARAMS ((char *, char *)); static void dwarf_read_array_type PARAMS ((struct dieinfo *)); static void read_tag_pointer_type PARAMS ((struct dieinfo *dip)); static void read_tag_string_type PARAMS ((struct dieinfo *dip)); static void read_subroutine_type PARAMS ((struct dieinfo *, char *, char *)); static void read_enumeration PARAMS ((struct dieinfo *, char *, char *, struct objfile *)); static struct type * struct_type PARAMS ((struct dieinfo *, char *, char *, struct objfile *)); static struct type * enum_type PARAMS ((struct dieinfo *, struct objfile *)); static void decode_line_numbers PARAMS ((char *)); static struct type * decode_die_type PARAMS ((struct dieinfo *)); static struct type * decode_mod_fund_type PARAMS ((char *)); static struct type * decode_mod_u_d_type PARAMS ((char *)); static struct type * decode_modified_type PARAMS ((char *, unsigned int, int)); static struct type * decode_fund_type PARAMS ((unsigned int)); static char * create_name PARAMS ((char *, struct obstack *)); static struct type * lookup_utype PARAMS ((DIE_REF)); static struct type * alloc_utype PARAMS ((DIE_REF, struct type *)); static struct symbol * new_symbol PARAMS ((struct dieinfo *, struct objfile *)); static void synthesize_typedef PARAMS ((struct dieinfo *, struct objfile *, struct type *)); static int locval PARAMS ((char *)); static void set_cu_language PARAMS ((struct dieinfo *)); static struct type * dwarf_fundamental_type PARAMS ((struct objfile *, int)); /* LOCAL FUNCTION dwarf_fundamental_type -- lookup or create a fundamental type SYNOPSIS struct type * dwarf_fundamental_type (struct objfile *objfile, int typeid) DESCRIPTION DWARF version 1 doesn't supply any fundamental type information, so gdb has to construct such types. It has a fixed number of fundamental types that it knows how to construct, which is the union of all types that it knows how to construct for all languages that it knows about. These are enumerated in gdbtypes.h. As an example, assume we find a DIE that references a DWARF fundamental type of FT_integer. We first look in the ftypes array to see if we already have such a type, indexed by the gdb internal value of FT_INTEGER. If so, we simply return a pointer to that type. If not, then we ask an appropriate language dependent routine to create a type FT_INTEGER, using defaults reasonable for the current target machine, and install that type in ftypes for future reference. RETURNS Pointer to a fundamental type. */ static struct type * dwarf_fundamental_type (objfile, typeid) struct objfile *objfile; int typeid; { if (typeid < 0 || typeid >= FT_NUM_MEMBERS) { error ("internal error - invalid fundamental type id %d", typeid); } /* Look for this particular type in the fundamental type vector. If one is not found, create and install one appropriate for the current language and the current target machine. */ if (ftypes[typeid] == NULL) { ftypes[typeid] = cu_language_defn -> la_fund_type(objfile, typeid); } return (ftypes[typeid]); } /* LOCAL FUNCTION set_cu_language -- set local copy of language for compilation unit SYNOPSIS void set_cu_language (struct dieinfo *dip) DESCRIPTION Decode the language attribute for a compilation unit DIE and remember what the language was. We use this at various times when processing DIE's for a given compilation unit. RETURNS No return value. */ static void set_cu_language (dip) struct dieinfo *dip; { switch (dip -> at_language) { case LANG_C89: case LANG_C: cu_language = language_c; break; case LANG_C_PLUS_PLUS: cu_language = language_cplus; break; case LANG_CHILL: cu_language = language_chill; break; case LANG_MODULA2: cu_language = language_m2; break; case LANG_ADA83: case LANG_COBOL74: case LANG_COBOL85: case LANG_FORTRAN77: case LANG_FORTRAN90: case LANG_PASCAL83: /* We don't know anything special about these yet. */ cu_language = language_unknown; break; default: /* If no at_language, try to deduce one from the filename */ cu_language = deduce_language_from_filename (dip -> at_name); break; } cu_language_defn = language_def (cu_language); } /* GLOBAL FUNCTION dwarf_build_psymtabs -- build partial symtabs from DWARF debug info SYNOPSIS void dwarf_build_psymtabs (struct objfile *objfile, struct section_offsets *section_offsets, int mainline, file_ptr dbfoff, unsigned int dbfsize, file_ptr lnoffset, unsigned int lnsize) DESCRIPTION This function is called upon to build partial symtabs from files containing DIE's (Dwarf Information Entries) and DWARF line numbers. It is passed a bfd* containing the DIES and line number information, the corresponding filename for that file, a base address for relocating the symbols, a flag indicating whether or not this debugging information is from a "main symbol table" rather than a shared library or dynamically linked file, and file offset/size pairs for the DIE information and line number information. RETURNS No return value. */ void dwarf_build_psymtabs (objfile, section_offsets, mainline, dbfoff, dbfsize, lnoffset, lnsize) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; file_ptr dbfoff; unsigned int dbfsize; file_ptr lnoffset; unsigned int lnsize; { bfd *abfd = objfile->obfd; struct cleanup *back_to; current_objfile = objfile; dbsize = dbfsize; dbbase = xmalloc (dbsize); dbroff = 0; if ((bfd_seek (abfd, dbfoff, L_SET) != 0) || (bfd_read (dbbase, dbsize, 1, abfd) != dbsize)) { free (dbbase); error ("can't read DWARF data from '%s'", bfd_get_filename (abfd)); } back_to = make_cleanup (free, dbbase); /* If we are reinitializing, or if we have never loaded syms yet, init. Since we have no idea how many DIES we are looking at, we just guess some arbitrary value. */ if (mainline || objfile -> global_psymbols.size == 0 || objfile -> static_psymbols.size == 0) { init_psymbol_list (objfile, 1024); } /* Save the relocation factor where everybody can see it. */ base_section_offsets = section_offsets; baseaddr = ANOFFSET (section_offsets, 0); /* Follow the compilation unit sibling chain, building a partial symbol table entry for each one. Save enough information about each compilation unit to locate the full DWARF information later. */ scan_compilation_units (dbbase, dbbase + dbsize, dbfoff, lnoffset, objfile); do_cleanups (back_to); current_objfile = NULL; } /* LOCAL FUNCTION read_lexical_block_scope -- process all dies in a lexical block SYNOPSIS static void read_lexical_block_scope (struct dieinfo *dip, char *thisdie, char *enddie) DESCRIPTION Process all the DIES contained within a lexical block scope. Start a new scope, process the dies, and then close the scope. */ static void read_lexical_block_scope (dip, thisdie, enddie, objfile) struct dieinfo *dip; char *thisdie; char *enddie; struct objfile *objfile; { register struct context_stack *new; push_context (0, dip -> at_low_pc); process_dies (thisdie + dip -> die_length, enddie, objfile); new = pop_context (); if (local_symbols != NULL) { finish_block (0, &local_symbols, new -> old_blocks, new -> start_addr, dip -> at_high_pc, objfile); } local_symbols = new -> locals; } /* LOCAL FUNCTION lookup_utype -- look up a user defined type from die reference SYNOPSIS static type *lookup_utype (DIE_REF die_ref) DESCRIPTION Given a DIE reference, lookup the user defined type associated with that DIE, if it has been registered already. If not registered, then return NULL. Alloc_utype() can be called to register an empty type for this reference, which will be filled in later when the actual referenced DIE is processed. */ static struct type * lookup_utype (die_ref) DIE_REF die_ref; { struct type *type = NULL; int utypeidx; utypeidx = (die_ref - dbroff) / 4; if ((utypeidx < 0) || (utypeidx >= numutypes)) { complain (&bad_die_ref, DIE_ID, DIE_NAME); } else { type = *(utypes + utypeidx); } return (type); } /* LOCAL FUNCTION alloc_utype -- add a user defined type for die reference SYNOPSIS static type *alloc_utype (DIE_REF die_ref, struct type *utypep) DESCRIPTION Given a die reference DIE_REF, and a possible pointer to a user defined type UTYPEP, register that this reference has a user defined type and either use the specified type in UTYPEP or make a new empty type that will be filled in later. We should only be called after calling lookup_utype() to verify that there is not currently a type registered for DIE_REF. */ static struct type * alloc_utype (die_ref, utypep) DIE_REF die_ref; struct type *utypep; { struct type **typep; int utypeidx; utypeidx = (die_ref - dbroff) / 4; typep = utypes + utypeidx; if ((utypeidx < 0) || (utypeidx >= numutypes)) { utypep = dwarf_fundamental_type (current_objfile, FT_INTEGER); complain (&bad_die_ref, DIE_ID, DIE_NAME); } else if (*typep != NULL) { utypep = *typep; complain (&dup_user_type_allocation, DIE_ID, DIE_NAME); } else { if (utypep == NULL) { utypep = alloc_type (current_objfile); } *typep = utypep; } return (utypep); } /* LOCAL FUNCTION decode_die_type -- return a type for a specified die SYNOPSIS static struct type *decode_die_type (struct dieinfo *dip) DESCRIPTION Given a pointer to a die information structure DIP, decode the type of the die and return a pointer to the decoded type. All dies without specific types default to type int. */ static struct type * decode_die_type (dip) struct dieinfo *dip; { struct type *type = NULL; if (dip -> at_fund_type != 0) { type = decode_fund_type (dip -> at_fund_type); } else if (dip -> at_mod_fund_type != NULL) { type = decode_mod_fund_type (dip -> at_mod_fund_type); } else if (dip -> at_user_def_type) { if ((type = lookup_utype (dip -> at_user_def_type)) == NULL) { type = alloc_utype (dip -> at_user_def_type, NULL); } } else if (dip -> at_mod_u_d_type) { type = decode_mod_u_d_type (dip -> at_mod_u_d_type); } else { type = dwarf_fundamental_type (current_objfile, FT_INTEGER); } return (type); } /* LOCAL FUNCTION struct_type -- compute and return the type for a struct or union SYNOPSIS static struct type *struct_type (struct dieinfo *dip, char *thisdie, char *enddie, struct objfile *objfile) DESCRIPTION Given pointer to a die information structure for a die which defines a union or structure (and MUST define one or the other), and pointers to the raw die data that define the range of dies which define the members, compute and return the user defined type for the structure or union. */ static struct type * struct_type (dip, thisdie, enddie, objfile) struct dieinfo *dip; char *thisdie; char *enddie; struct objfile *objfile; { struct type *type; struct nextfield { struct nextfield *next; struct field field; }; struct nextfield *list = NULL; struct nextfield *new; int nfields = 0; int n; struct dieinfo mbr; char *nextdie; #if !BITS_BIG_ENDIAN int anonymous_size; #endif if ((type = lookup_utype (dip -> die_ref)) == NULL) { /* No forward references created an empty type, so install one now */ type = alloc_utype (dip -> die_ref, NULL); } INIT_CPLUS_SPECIFIC(type); switch (dip -> die_tag) { case TAG_class_type: TYPE_CODE (type) = TYPE_CODE_CLASS; break; case TAG_structure_type: TYPE_CODE (type) = TYPE_CODE_STRUCT; break; case TAG_union_type: TYPE_CODE (type) = TYPE_CODE_UNION; break; default: /* Should never happen */ TYPE_CODE (type) = TYPE_CODE_UNDEF; complain (&missing_tag, DIE_ID, DIE_NAME); break; } /* Some compilers try to be helpful by inventing "fake" names for anonymous enums, structures, and unions, like "~0fake" or ".0fake". Thanks, but no thanks... */ if (dip -> at_name != NULL && *dip -> at_name != '~' && *dip -> at_name != '.') { TYPE_TAG_NAME (type) = obconcat (&objfile -> type_obstack, "", "", dip -> at_name); } /* Use whatever size is known. Zero is a valid size. We might however wish to check has_at_byte_size to make sure that some byte size was given explicitly, but DWARF doesn't specify that explicit sizes of zero have to present, so complaining about missing sizes should probably not be the default. */ TYPE_LENGTH (type) = dip -> at_byte_size; thisdie += dip -> die_length; while (thisdie < enddie) { basicdieinfo (&mbr, thisdie, objfile); completedieinfo (&mbr, objfile); if (mbr.die_length <= SIZEOF_DIE_LENGTH) { break; } else if (mbr.at_sibling != 0) { nextdie = dbbase + mbr.at_sibling - dbroff; } else { nextdie = thisdie + mbr.die_length; } switch (mbr.die_tag) { case TAG_member: /* Get space to record the next field's data. */ new = (struct nextfield *) alloca (sizeof (struct nextfield)); new -> next = list; list = new; /* Save the data. */ list -> field.name = obsavestring (mbr.at_name, strlen (mbr.at_name), &objfile -> type_obstack); list -> field.type = decode_die_type (&mbr); list -> field.bitpos = 8 * locval (mbr.at_location); /* Handle bit fields. */ list -> field.bitsize = mbr.at_bit_size; #if BITS_BIG_ENDIAN /* For big endian bits, the at_bit_offset gives the additional bit offset from the MSB of the containing anonymous object to the MSB of the field. We don't have to do anything special since we don't need to know the size of the anonymous object. */ list -> field.bitpos += mbr.at_bit_offset; #else /* For little endian bits, we need to have a non-zero at_bit_size, so that we know we are in fact dealing with a bitfield. Compute the bit offset to the MSB of the anonymous object, subtract off the number of bits from the MSB of the field to the MSB of the object, and then subtract off the number of bits of the field itself. The result is the bit offset of the LSB of the field. */ if (mbr.at_bit_size > 0) { if (mbr.has_at_byte_size) { /* The size of the anonymous object containing the bit field is explicit, so use the indicated size (in bytes). */ anonymous_size = mbr.at_byte_size; } else { /* The size of the anonymous object containing the bit field matches the size of an object of the bit field's type. DWARF allows at_byte_size to be left out in such cases, as a debug information size optimization. */ anonymous_size = TYPE_LENGTH (list -> field.type); } list -> field.bitpos += anonymous_size * 8 - mbr.at_bit_offset - mbr.at_bit_size; } #endif nfields++; break; default: process_dies (thisdie, nextdie, objfile); break; } thisdie = nextdie; } /* Now create the vector of fields, and record how big it is. We may not even have any fields, if this DIE was generated due to a reference to an anonymous structure or union. In this case, TYPE_FLAG_STUB is set, which clues gdb in to the fact that it needs to search elsewhere for the full structure definition. */ if (nfields == 0) { TYPE_FLAGS (type) |= TYPE_FLAG_STUB; } else { TYPE_NFIELDS (type) = nfields; TYPE_FIELDS (type) = (struct field *) TYPE_ALLOC (type, sizeof (struct field) * nfields); /* Copy the saved-up fields into the field vector. */ for (n = nfields; list; list = list -> next) { TYPE_FIELD (type, --n) = list -> field; } } return (type); } /* LOCAL FUNCTION read_structure_scope -- process all dies within struct or union SYNOPSIS static void read_structure_scope (struct dieinfo *dip, char *thisdie, char *enddie, struct objfile *objfile) DESCRIPTION Called when we find the DIE that starts a structure or union scope (definition) to process all dies that define the members of the structure or union. DIP is a pointer to the die info struct for the DIE that names the structure or union. NOTES Note that we need to call struct_type regardless of whether or not the DIE has an at_name attribute, since it might be an anonymous structure or union. This gets the type entered into our set of user defined types. However, if the structure is incomplete (an opaque struct/union) then suppress creating a symbol table entry for it since gdb only wants to find the one with the complete definition. Note that if it is complete, we just call new_symbol, which does it's own checking about whether the struct/union is anonymous or not (and suppresses creating a symbol table entry itself). */ static void read_structure_scope (dip, thisdie, enddie, objfile) struct dieinfo *dip; char *thisdie; char *enddie; struct objfile *objfile; { struct type *type; struct symbol *sym; type = struct_type (dip, thisdie, enddie, objfile); if (!(TYPE_FLAGS (type) & TYPE_FLAG_STUB)) { sym = new_symbol (dip, objfile); if (sym != NULL) { SYMBOL_TYPE (sym) = type; if (cu_language == language_cplus) { synthesize_typedef (dip, objfile, type); } } } } /* LOCAL FUNCTION decode_array_element_type -- decode type of the array elements SYNOPSIS static struct type *decode_array_element_type (char *scan, char *end) DESCRIPTION As the last step in decoding the array subscript information for an array DIE, we need to decode the type of the array elements. We are passed a pointer to this last part of the subscript information and must return the appropriate type. If the type attribute is not recognized, just warn about the problem and return type int. */ static struct type * decode_array_element_type (scan) char *scan; { struct type *typep; DIE_REF die_ref; unsigned short attribute; unsigned short fundtype; int nbytes; attribute = target_to_host (scan, SIZEOF_ATTRIBUTE, GET_UNSIGNED, current_objfile); scan += SIZEOF_ATTRIBUTE; if ((nbytes = attribute_size (attribute)) == -1) { complain (&bad_array_element_type, DIE_ID, DIE_NAME, attribute); typep = dwarf_fundamental_type (current_objfile, FT_INTEGER); } else { switch (attribute) { case AT_fund_type: fundtype = target_to_host (scan, nbytes, GET_UNSIGNED, current_objfile); typep = decode_fund_type (fundtype); break; case AT_mod_fund_type: typep = decode_mod_fund_type (scan); break; case AT_user_def_type: die_ref = target_to_host (scan, nbytes, GET_UNSIGNED, current_objfile); if ((typep = lookup_utype (die_ref)) == NULL) { typep = alloc_utype (die_ref, NULL); } break; case AT_mod_u_d_type: typep = decode_mod_u_d_type (scan); break; default: complain (&bad_array_element_type, DIE_ID, DIE_NAME, attribute); typep = dwarf_fundamental_type (current_objfile, FT_INTEGER); break; } } return (typep); } /* LOCAL FUNCTION decode_subscript_data_item -- decode array subscript item SYNOPSIS static struct type * decode_subscript_data_item (char *scan, char *end) DESCRIPTION The array subscripts and the data type of the elements of an array are described by a list of data items, stored as a block of contiguous bytes. There is a data item describing each array dimension, and a final data item describing the element type. The data items are ordered the same as their appearance in the source (I.E. leftmost dimension first, next to leftmost second, etc). The data items describing each array dimension consist of four parts: (1) a format specifier, (2) type type of the subscript index, (3) a description of the low bound of the array dimension, and (4) a description of the high bound of the array dimension. The last data item is the description of the type of each of the array elements. We are passed a pointer to the start of the block of bytes containing the remaining data items, and a pointer to the first byte past the data. This function recursively decodes the remaining data items and returns a type. If we somehow fail to decode some data, we complain about it and return a type "array of int". BUGS FIXME: This code only implements the forms currently used by the AT&T and GNU C compilers. The end pointer is supplied for error checking, maybe we should use it for that... */ static struct type * decode_subscript_data_item (scan, end) char *scan; char *end; { struct type *typep = NULL; /* Array type we are building */ struct type *nexttype; /* Type of each element (may be array) */ struct type *indextype; /* Type of this index */ struct type *rangetype; unsigned int format; unsigned short fundtype; unsigned long lowbound; unsigned long highbound; int nbytes; format = target_to_host (scan, SIZEOF_FORMAT_SPECIFIER, GET_UNSIGNED, current_objfile); scan += SIZEOF_FORMAT_SPECIFIER; switch (format) { case FMT_ET: typep = decode_array_element_type (scan); break; case FMT_FT_C_C: fundtype = target_to_host (scan, SIZEOF_FMT_FT, GET_UNSIGNED, current_objfile); indextype = decode_fund_type (fundtype); scan += SIZEOF_FMT_FT; nbytes = TARGET_FT_LONG_SIZE (current_objfile); lowbound = target_to_host (scan, nbytes, GET_UNSIGNED, current_objfile); scan += nbytes; highbound = target_to_host (scan, nbytes, GET_UNSIGNED, current_objfile); scan += nbytes; nexttype = decode_subscript_data_item (scan, end); if (nexttype == NULL) { /* Munged subscript data or other problem, fake it. */ complain (&subscript_data_items, DIE_ID, DIE_NAME); nexttype = dwarf_fundamental_type (current_objfile, FT_INTEGER); } rangetype = create_range_type ((struct type *) NULL, indextype, lowbound, highbound); typep = create_array_type ((struct type *) NULL, nexttype, rangetype); break; case FMT_FT_C_X: case FMT_FT_X_C: case FMT_FT_X_X: case FMT_UT_C_C: case FMT_UT_C_X: case FMT_UT_X_C: case FMT_UT_X_X: complain (&unhandled_array_subscript_format, DIE_ID, DIE_NAME, format); nexttype = dwarf_fundamental_type (current_objfile, FT_INTEGER); rangetype = create_range_type ((struct type *) NULL, nexttype, 0, 0); typep = create_array_type ((struct type *) NULL, nexttype, rangetype); break; default: complain (&unknown_array_subscript_format, DIE_ID, DIE_NAME, format); nexttype = dwarf_fundamental_type (current_objfile, FT_INTEGER); rangetype = create_range_type ((struct type *) NULL, nexttype, 0, 0); typep = create_array_type ((struct type *) NULL, nexttype, rangetype); break; } return (typep); } /* LOCAL FUNCTION dwarf_read_array_type -- read TAG_array_type DIE SYNOPSIS static void dwarf_read_array_type (struct dieinfo *dip) DESCRIPTION Extract all information from a TAG_array_type DIE and add to the user defined type vector. */ static void dwarf_read_array_type (dip) struct dieinfo *dip; { struct type *type; struct type *utype; char *sub; char *subend; unsigned short blocksz; int nbytes; if (dip -> at_ordering != ORD_row_major) { /* FIXME: Can gdb even handle column major arrays? */ complain (¬_row_major, DIE_ID, DIE_NAME); } if ((sub = dip -> at_subscr_data) != NULL) { nbytes = attribute_size (AT_subscr_data); blocksz = target_to_host (sub, nbytes, GET_UNSIGNED, current_objfile); subend = sub + nbytes + blocksz; sub += nbytes; type = decode_subscript_data_item (sub, subend); if ((utype = lookup_utype (dip -> die_ref)) == NULL) { /* Install user defined type that has not been referenced yet. */ alloc_utype (dip -> die_ref, type); } else if (TYPE_CODE (utype) == TYPE_CODE_UNDEF) { /* Ick! A forward ref has already generated a blank type in our slot, and this type probably already has things pointing to it (which is what caused it to be created in the first place). If it's just a place holder we can plop our fully defined type on top of it. We can't recover the space allocated for our new type since it might be on an obstack, but we could reuse it if we kept a list of them, but it might not be worth it (FIXME). */ *utype = *type; } else { /* Double ick! Not only is a type already in our slot, but someone has decorated it. Complain and leave it alone. */ complain (&dup_user_type_definition, DIE_ID, DIE_NAME); } } } /* LOCAL FUNCTION read_tag_pointer_type -- read TAG_pointer_type DIE SYNOPSIS static void read_tag_pointer_type (struct dieinfo *dip) DESCRIPTION Extract all information from a TAG_pointer_type DIE and add to the user defined type vector. */ static void read_tag_pointer_type (dip) struct dieinfo *dip; { struct type *type; struct type *utype; type = decode_die_type (dip); if ((utype = lookup_utype (dip -> die_ref)) == NULL) { utype = lookup_pointer_type (type); alloc_utype (dip -> die_ref, utype); } else { TYPE_TARGET_TYPE (utype) = type; TYPE_POINTER_TYPE (type) = utype; /* We assume the machine has only one representation for pointers! */ /* FIXME: This confuses host<->target data representations, and is a poor assumption besides. */ TYPE_LENGTH (utype) = sizeof (char *); TYPE_CODE (utype) = TYPE_CODE_PTR; } } /* LOCAL FUNCTION read_tag_string_type -- read TAG_string_type DIE SYNOPSIS static void read_tag_string_type (struct dieinfo *dip) DESCRIPTION Extract all information from a TAG_string_type DIE and add to the user defined type vector. It isn't really a user defined type, but it behaves like one, with other DIE's using an AT_user_def_type attribute to reference it. */ static void read_tag_string_type (dip) struct dieinfo *dip; { struct type *utype; struct type *indextype; struct type *rangetype; unsigned long lowbound = 0; unsigned long highbound; if (dip -> has_at_byte_size) { /* A fixed bounds string */ highbound = dip -> at_byte_size - 1; } else { /* A varying length string. Stub for now. (FIXME) */ highbound = 1; } indextype = dwarf_fundamental_type (current_objfile, FT_INTEGER); rangetype = create_range_type ((struct type *) NULL, indextype, lowbound, highbound); utype = lookup_utype (dip -> die_ref); if (utype == NULL) { /* No type defined, go ahead and create a blank one to use. */ utype = alloc_utype (dip -> die_ref, (struct type *) NULL); } else { /* Already a type in our slot due to a forward reference. Make sure it is a blank one. If not, complain and leave it alone. */ if (TYPE_CODE (utype) != TYPE_CODE_UNDEF) { complain (&dup_user_type_definition, DIE_ID, DIE_NAME); return; } } /* Create the string type using the blank type we either found or created. */ utype = create_string_type (utype, rangetype); } /* LOCAL FUNCTION read_subroutine_type -- process TAG_subroutine_type dies SYNOPSIS static void read_subroutine_type (struct dieinfo *dip, char thisdie, char *enddie) DESCRIPTION Handle DIES due to C code like: struct foo { int (*funcp)(int a, long l); (Generates TAG_subroutine_type DIE) int b; }; NOTES The parameter DIES are currently ignored. See if gdb has a way to include this info in it's type system, and decode them if so. Is this what the type structure's "arg_types" field is for? (FIXME) */ static void read_subroutine_type (dip, thisdie, enddie) struct dieinfo *dip; char *thisdie; char *enddie; { struct type *type; /* Type that this function returns */ struct type *ftype; /* Function that returns above type */ /* Decode the type that this subroutine returns */ type = decode_die_type (dip); /* Check to see if we already have a partially constructed user defined type for this DIE, from a forward reference. */ if ((ftype = lookup_utype (dip -> die_ref)) == NULL) { /* This is the first reference to one of these types. Make a new one and place it in the user defined types. */ ftype = lookup_function_type (type); alloc_utype (dip -> die_ref, ftype); } else if (TYPE_CODE (ftype) == TYPE_CODE_UNDEF) { /* We have an existing partially constructed type, so bash it into the correct type. */ TYPE_TARGET_TYPE (ftype) = type; TYPE_FUNCTION_TYPE (type) = ftype; TYPE_LENGTH (ftype) = 1; TYPE_CODE (ftype) = TYPE_CODE_FUNC; } else { complain (&dup_user_type_definition, DIE_ID, DIE_NAME); } } /* LOCAL FUNCTION read_enumeration -- process dies which define an enumeration SYNOPSIS static void read_enumeration (struct dieinfo *dip, char *thisdie, char *enddie, struct objfile *objfile) DESCRIPTION Given a pointer to a die which begins an enumeration, process all the dies that define the members of the enumeration. NOTES Note that we need to call enum_type regardless of whether or not we have a symbol, since we might have an enum without a tag name (thus no symbol for the tagname). */ static void read_enumeration (dip, thisdie, enddie, objfile) struct dieinfo *dip; char *thisdie; char *enddie; struct objfile *objfile; { struct type *type; struct symbol *sym; type = enum_type (dip, objfile); sym = new_symbol (dip, objfile); if (sym != NULL) { SYMBOL_TYPE (sym) = type; if (cu_language == language_cplus) { synthesize_typedef (dip, objfile, type); } } } /* LOCAL FUNCTION enum_type -- decode and return a type for an enumeration SYNOPSIS static type *enum_type (struct dieinfo *dip, struct objfile *objfile) DESCRIPTION Given a pointer to a die information structure for the die which starts an enumeration, process all the dies that define the members of the enumeration and return a type pointer for the enumeration. At the same time, for each member of the enumeration, create a symbol for it with namespace VAR_NAMESPACE and class LOC_CONST, and give it the type of the enumeration itself. NOTES Note that the DWARF specification explicitly mandates that enum constants occur in reverse order from the source program order, for "consistency" and because this ordering is easier for many compilers to generate. (Draft 6, sec 3.8.5, Enumeration type Entries). Because gdb wants to see the enum members in program source order, we have to ensure that the order gets reversed while we are processing them. */ static struct type * enum_type (dip, objfile) struct dieinfo *dip; struct objfile *objfile; { struct type *type; struct nextfield { struct nextfield *next; struct field field; }; struct nextfield *list = NULL; struct nextfield *new; int nfields = 0; int n; char *scan; char *listend; unsigned short blocksz; struct symbol *sym; int nbytes; if ((type = lookup_utype (dip -> die_ref)) == NULL) { /* No forward references created an empty type, so install one now */ type = alloc_utype (dip -> die_ref, NULL); } TYPE_CODE (type) = TYPE_CODE_ENUM; /* Some compilers try to be helpful by inventing "fake" names for anonymous enums, structures, and unions, like "~0fake" or ".0fake". Thanks, but no thanks... */ if (dip -> at_name != NULL && *dip -> at_name != '~' && *dip -> at_name != '.') { TYPE_TAG_NAME (type) = obconcat (&objfile -> type_obstack, "", "", dip -> at_name); } if (dip -> at_byte_size != 0) { TYPE_LENGTH (type) = dip -> at_byte_size; } if ((scan = dip -> at_element_list) != NULL) { if (dip -> short_element_list) { nbytes = attribute_size (AT_short_element_list); } else { nbytes = attribute_size (AT_element_list); } blocksz = target_to_host (scan, nbytes, GET_UNSIGNED, objfile); listend = scan + nbytes + blocksz; scan += nbytes; while (scan < listend) { new = (struct nextfield *) alloca (sizeof (struct nextfield)); new -> next = list; list = new; list -> field.type = NULL; list -> field.bitsize = 0; list -> field.bitpos = target_to_host (scan, TARGET_FT_LONG_SIZE (objfile), GET_SIGNED, objfile); scan += TARGET_FT_LONG_SIZE (objfile); list -> field.name = obsavestring (scan, strlen (scan), &objfile -> type_obstack); scan += strlen (scan) + 1; nfields++; /* Handcraft a new symbol for this enum member. */ sym = (struct symbol *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); SYMBOL_NAME (sym) = create_name (list -> field.name, &objfile->symbol_obstack); SYMBOL_INIT_LANGUAGE_SPECIFIC (sym, cu_language); SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; SYMBOL_CLASS (sym) = LOC_CONST; SYMBOL_TYPE (sym) = type; SYMBOL_VALUE (sym) = list -> field.bitpos; add_symbol_to_list (sym, list_in_scope); } /* Now create the vector of fields, and record how big it is. This is where we reverse the order, by pulling the members off the list in reverse order from how they were inserted. If we have no fields (this is apparently possible in C++) then skip building a field vector. */ if (nfields > 0) { TYPE_NFIELDS (type) = nfields; TYPE_FIELDS (type) = (struct field *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct field) * nfields); /* Copy the saved-up fields into the field vector. */ for (n = 0; (n < nfields) && (list != NULL); list = list -> next) { TYPE_FIELD (type, n++) = list -> field; } } } return (type); } /* LOCAL FUNCTION read_func_scope -- process all dies within a function scope DESCRIPTION Process all dies within a given function scope. We are passed a die information structure pointer DIP for the die which starts the function scope, and pointers into the raw die data that define the dies within the function scope. For now, we ignore lexical block scopes within the function. The problem is that AT&T cc does not define a DWARF lexical block scope for the function itself, while gcc defines a lexical block scope for the function. We need to think about how to handle this difference, or if it is even a problem. (FIXME) */ static void read_func_scope (dip, thisdie, enddie, objfile) struct dieinfo *dip; char *thisdie; char *enddie; struct objfile *objfile; { register struct context_stack *new; if (objfile -> ei.entry_point >= dip -> at_low_pc && objfile -> ei.entry_point < dip -> at_high_pc) { objfile -> ei.entry_func_lowpc = dip -> at_low_pc; objfile -> ei.entry_func_highpc = dip -> at_high_pc; } if (STREQ (dip -> at_name, "main")) /* FIXME: hardwired name */ { objfile -> ei.main_func_lowpc = dip -> at_low_pc; objfile -> ei.main_func_highpc = dip -> at_high_pc; } new = push_context (0, dip -> at_low_pc); new -> name = new_symbol (dip, objfile); list_in_scope = &local_symbols; process_dies (thisdie + dip -> die_length, enddie, objfile); new = pop_context (); /* Make a block for the local symbols within. */ finish_block (new -> name, &local_symbols, new -> old_blocks, new -> start_addr, dip -> at_high_pc, objfile); list_in_scope = &file_symbols; } /* LOCAL FUNCTION handle_producer -- process the AT_producer attribute DESCRIPTION Perform any operations that depend on finding a particular AT_producer attribute. */ static void handle_producer (producer) char *producer; { /* If this compilation unit was compiled with g++ or gcc, then set the processing_gcc_compilation flag. */ processing_gcc_compilation = STREQN (producer, GPLUS_PRODUCER, strlen (GPLUS_PRODUCER)) || STREQN (producer, CHILL_PRODUCER, strlen (CHILL_PRODUCER)) || STREQN (producer, GCC_PRODUCER, strlen (GCC_PRODUCER)); /* Select a demangling style if we can identify the producer and if the current style is auto. We leave the current style alone if it is not auto. We also leave the demangling style alone if we find a gcc (cc1) producer, as opposed to a g++ (cc1plus) producer. */ if (AUTO_DEMANGLING) { if (STREQN (producer, GPLUS_PRODUCER, strlen (GPLUS_PRODUCER))) { set_demangling_style (GNU_DEMANGLING_STYLE_STRING); } else if (STREQN (producer, LCC_PRODUCER, strlen (LCC_PRODUCER))) { set_demangling_style (LUCID_DEMANGLING_STYLE_STRING); } } } /* LOCAL FUNCTION read_file_scope -- process all dies within a file scope DESCRIPTION Process all dies within a given file scope. We are passed a pointer to the die information structure for the die which starts the file scope, and pointers into the raw die data which mark the range of dies within the file scope. When the partial symbol table is built, the file offset for the line number table for each compilation unit is saved in the partial symbol table entry for that compilation unit. As the symbols for each compilation unit are read, the line number table is read into memory and the variable lnbase is set to point to it. Thus all we have to do is use lnbase to access the line number table for the current compilation unit. */ static void read_file_scope (dip, thisdie, enddie, objfile) struct dieinfo *dip; char *thisdie; char *enddie; struct objfile *objfile; { struct cleanup *back_to; struct symtab *symtab; if (objfile -> ei.entry_point >= dip -> at_low_pc && objfile -> ei.entry_point < dip -> at_high_pc) { objfile -> ei.entry_file_lowpc = dip -> at_low_pc; objfile -> ei.entry_file_highpc = dip -> at_high_pc; } set_cu_language (dip); if (dip -> at_producer != NULL) { handle_producer (dip -> at_producer); } numutypes = (enddie - thisdie) / 4; utypes = (struct type **) xmalloc (numutypes * sizeof (struct type *)); back_to = make_cleanup (free, utypes); memset (utypes, 0, numutypes * sizeof (struct type *)); memset (ftypes, 0, FT_NUM_MEMBERS * sizeof (struct type *)); start_symtab (dip -> at_name, dip -> at_comp_dir, dip -> at_low_pc); decode_line_numbers (lnbase); process_dies (thisdie + dip -> die_length, enddie, objfile); symtab = end_symtab (dip -> at_high_pc, 0, 0, objfile, 0); if (symtab != NULL) { symtab -> language = cu_language; } do_cleanups (back_to); utypes = NULL; numutypes = 0; } /* LOCAL FUNCTION process_dies -- process a range of DWARF Information Entries SYNOPSIS static void process_dies (char *thisdie, char *enddie, struct objfile *objfile) DESCRIPTION Process all DIE's in a specified range. May be (and almost certainly will be) called recursively. */ static void process_dies (thisdie, enddie, objfile) char *thisdie; char *enddie; struct objfile *objfile; { char *nextdie; struct dieinfo di; while (thisdie < enddie) { basicdieinfo (&di, thisdie, objfile); if (di.die_length < SIZEOF_DIE_LENGTH) { break; } else if (di.die_tag == TAG_padding) { nextdie = thisdie + di.die_length; } else { completedieinfo (&di, objfile); if (di.at_sibling != 0) { nextdie = dbbase + di.at_sibling - dbroff; } else { nextdie = thisdie + di.die_length; } #ifdef SMASH_TEXT_ADDRESS /* I think that these are always text, not data, addresses. */ SMASH_TEXT_ADDRESS (di.at_low_pc); SMASH_TEXT_ADDRESS (di.at_high_pc); #endif switch (di.die_tag) { case TAG_compile_unit: /* Skip Tag_compile_unit if we are already inside a compilation unit, we are unable to handle nested compilation units properly (FIXME). */ if (current_subfile == NULL) read_file_scope (&di, thisdie, nextdie, objfile); else nextdie = thisdie + di.die_length; break; case TAG_global_subroutine: case TAG_subroutine: if (di.has_at_low_pc) { read_func_scope (&di, thisdie, nextdie, objfile); } break; case TAG_lexical_block: read_lexical_block_scope (&di, thisdie, nextdie, objfile); break; case TAG_class_type: case TAG_structure_type: case TAG_union_type: read_structure_scope (&di, thisdie, nextdie, objfile); break; case TAG_enumeration_type: read_enumeration (&di, thisdie, nextdie, objfile); break; case TAG_subroutine_type: read_subroutine_type (&di, thisdie, nextdie); break; case TAG_array_type: dwarf_read_array_type (&di); break; case TAG_pointer_type: read_tag_pointer_type (&di); break; case TAG_string_type: read_tag_string_type (&di); break; default: new_symbol (&di, objfile); break; } } thisdie = nextdie; } } /* LOCAL FUNCTION decode_line_numbers -- decode a line number table fragment SYNOPSIS static void decode_line_numbers (char *tblscan, char *tblend, long length, long base, long line, long pc) DESCRIPTION Translate the DWARF line number information to gdb form. The ".line" section contains one or more line number tables, one for each ".line" section from the objects that were linked. The AT_stmt_list attribute for each TAG_source_file entry in the ".debug" section contains the offset into the ".line" section for the start of the table for that file. The table itself has the following structure: 4 bytes 4 bytes 10 bytes The table length is the total size of the table, including the 4 bytes for the length information. The base address is the address of the first instruction generated for the source file. Each source statement entry has the following structure:
4 bytes 2 bytes 4 bytes The line number is relative to the start of the file, starting with line 1. The statement position either -1 (0xFFFF) or the number of characters from the beginning of the line to the beginning of the statement. The address delta is the difference between the base address and the address of the first instruction for the statement. Note that we must copy the bytes from the packed table to our local variables before attempting to use them, to avoid alignment problems on some machines, particularly RISC processors. BUGS Does gdb expect the line numbers to be sorted? They are now by chance/luck, but are not required to be. (FIXME) The line with number 0 is unused, gdb apparently can discover the span of the last line some other way. How? (FIXME) */ static void decode_line_numbers (linetable) char *linetable; { char *tblscan; char *tblend; unsigned long length; unsigned long base; unsigned long line; unsigned long pc; if (linetable != NULL) { tblscan = tblend = linetable; length = target_to_host (tblscan, SIZEOF_LINETBL_LENGTH, GET_UNSIGNED, current_objfile); tblscan += SIZEOF_LINETBL_LENGTH; tblend += length; base = target_to_host (tblscan, TARGET_FT_POINTER_SIZE (objfile), GET_UNSIGNED, current_objfile); tblscan += TARGET_FT_POINTER_SIZE (objfile); base += baseaddr; while (tblscan < tblend) { line = target_to_host (tblscan, SIZEOF_LINETBL_LINENO, GET_UNSIGNED, current_objfile); tblscan += SIZEOF_LINETBL_LINENO + SIZEOF_LINETBL_STMT; pc = target_to_host (tblscan, SIZEOF_LINETBL_DELTA, GET_UNSIGNED, current_objfile); tblscan += SIZEOF_LINETBL_DELTA; pc += base; if (line != 0) { record_line (current_subfile, line, pc); } } } } /* LOCAL FUNCTION locval -- compute the value of a location attribute SYNOPSIS static int locval (char *loc) DESCRIPTION Given pointer to a string of bytes that define a location, compute the location and return the value. When computing values involving the current value of the frame pointer, the value zero is used, which results in a value relative to the frame pointer, rather than the absolute value. This is what GDB wants anyway. When the result is a register number, the global isreg flag is set, otherwise it is cleared. This is a kludge until we figure out a better way to handle the problem. Gdb's design does not mesh well with the DWARF notion of a location computing interpreter, which is a shame because the flexibility goes unused. NOTES Note that stack[0] is unused except as a default error return. Note that stack overflow is not yet handled. */ static int locval (loc) char *loc; { unsigned short nbytes; unsigned short locsize; auto long stack[64]; int stacki; char *end; int loc_atom_code; int loc_value_size; nbytes = attribute_size (AT_location); locsize = target_to_host (loc, nbytes, GET_UNSIGNED, current_objfile); loc += nbytes; end = loc + locsize; stacki = 0; stack[stacki] = 0; isreg = 0; offreg = 0; loc_value_size = TARGET_FT_LONG_SIZE (current_objfile); while (loc < end) { loc_atom_code = target_to_host (loc, SIZEOF_LOC_ATOM_CODE, GET_UNSIGNED, current_objfile); loc += SIZEOF_LOC_ATOM_CODE; switch (loc_atom_code) { case 0: /* error */ loc = end; break; case OP_REG: /* push register (number) */ stack[++stacki] = target_to_host (loc, loc_value_size, GET_UNSIGNED, current_objfile); loc += loc_value_size; isreg = 1; break; case OP_BASEREG: /* push value of register (number) */ /* Actually, we compute the value as if register has 0, so the value ends up being the offset from that register. */ offreg = 1; basereg = target_to_host (loc, loc_value_size, GET_UNSIGNED, current_objfile); loc += loc_value_size; stack[++stacki] = 0; break; case OP_ADDR: /* push address (relocated address) */ stack[++stacki] = target_to_host (loc, loc_value_size, GET_UNSIGNED, current_objfile); loc += loc_value_size; break; case OP_CONST: /* push constant (number) FIXME: signed or unsigned! */ stack[++stacki] = target_to_host (loc, loc_value_size, GET_SIGNED, current_objfile); loc += loc_value_size; break; case OP_DEREF2: /* pop, deref and push 2 bytes (as a long) */ complain (&op_deref2, DIE_ID, DIE_NAME, stack[stacki]); break; case OP_DEREF4: /* pop, deref and push 4 bytes (as a long) */ complain (&op_deref4, DIE_ID, DIE_NAME, stack[stacki]); break; case OP_ADD: /* pop top 2 items, add, push result */ stack[stacki - 1] += stack[stacki]; stacki--; break; } } return (stack[stacki]); } /* LOCAL FUNCTION read_ofile_symtab -- build a full symtab entry from chunk of DIE's SYNOPSIS static void read_ofile_symtab (struct partial_symtab *pst) DESCRIPTION When expanding a partial symbol table entry to a full symbol table entry, this is the function that gets called to read in the symbols for the compilation unit. A pointer to the newly constructed symtab, which is now the new first one on the objfile's symtab list, is stashed in the partial symbol table entry. */ static void read_ofile_symtab (pst) struct partial_symtab *pst; { struct cleanup *back_to; unsigned long lnsize; file_ptr foffset; bfd *abfd; char lnsizedata[SIZEOF_LINETBL_LENGTH]; abfd = pst -> objfile -> obfd; current_objfile = pst -> objfile; /* Allocate a buffer for the entire chunk of DIE's for this compilation unit, seek to the location in the file, and read in all the DIE's. */ diecount = 0; dbsize = DBLENGTH (pst); dbbase = xmalloc (dbsize); dbroff = DBROFF(pst); foffset = DBFOFF(pst) + dbroff; base_section_offsets = pst->section_offsets; baseaddr = ANOFFSET (pst->section_offsets, 0); if (bfd_seek (abfd, foffset, L_SET) || (bfd_read (dbbase, dbsize, 1, abfd) != dbsize)) { free (dbbase); error ("can't read DWARF data"); } back_to = make_cleanup (free, dbbase); /* If there is a line number table associated with this compilation unit then read the size of this fragment in bytes, from the fragment itself. Allocate a buffer for the fragment and read it in for future processing. */ lnbase = NULL; if (LNFOFF (pst)) { if (bfd_seek (abfd, LNFOFF (pst), L_SET) || (bfd_read ((PTR) lnsizedata, sizeof (lnsizedata), 1, abfd) != sizeof (lnsizedata))) { error ("can't read DWARF line number table size"); } lnsize = target_to_host (lnsizedata, SIZEOF_LINETBL_LENGTH, GET_UNSIGNED, pst -> objfile); lnbase = xmalloc (lnsize); if (bfd_seek (abfd, LNFOFF (pst), L_SET) || (bfd_read (lnbase, lnsize, 1, abfd) != lnsize)) { free (lnbase); error ("can't read DWARF line numbers"); } make_cleanup (free, lnbase); } process_dies (dbbase, dbbase + dbsize, pst -> objfile); do_cleanups (back_to); current_objfile = NULL; pst -> symtab = pst -> objfile -> symtabs; } /* LOCAL FUNCTION psymtab_to_symtab_1 -- do grunt work for building a full symtab entry SYNOPSIS static void psymtab_to_symtab_1 (struct partial_symtab *pst) DESCRIPTION Called once for each partial symbol table entry that needs to be expanded into a full symbol table entry. */ static void psymtab_to_symtab_1 (pst) struct partial_symtab *pst; { int i; struct cleanup *old_chain; if (pst != NULL) { if (pst->readin) { warning ("psymtab for %s already read in. Shouldn't happen.", pst -> filename); } else { /* Read in all partial symtabs on which this one is dependent */ for (i = 0; i < pst -> number_of_dependencies; i++) { if (!pst -> dependencies[i] -> readin) { /* Inform about additional files that need to be read in. */ if (info_verbose) { fputs_filtered (" ", gdb_stdout); wrap_here (""); fputs_filtered ("and ", gdb_stdout); wrap_here (""); printf_filtered ("%s...", pst -> dependencies[i] -> filename); wrap_here (""); gdb_flush (gdb_stdout); /* Flush output */ } psymtab_to_symtab_1 (pst -> dependencies[i]); } } if (DBLENGTH (pst)) /* Otherwise it's a dummy */ { buildsym_init (); old_chain = make_cleanup (really_free_pendings, 0); read_ofile_symtab (pst); if (info_verbose) { printf_filtered ("%d DIE's, sorting...", diecount); wrap_here (""); gdb_flush (gdb_stdout); } sort_symtab_syms (pst -> symtab); do_cleanups (old_chain); } pst -> readin = 1; } } } /* LOCAL FUNCTION dwarf_psymtab_to_symtab -- build a full symtab entry from partial one SYNOPSIS static void dwarf_psymtab_to_symtab (struct partial_symtab *pst) DESCRIPTION This is the DWARF support entry point for building a full symbol table entry from a partial symbol table entry. We are passed a pointer to the partial symbol table entry that needs to be expanded. */ static void dwarf_psymtab_to_symtab (pst) struct partial_symtab *pst; { if (pst != NULL) { if (pst -> readin) { warning ("psymtab for %s already read in. Shouldn't happen.", pst -> filename); } else { if (DBLENGTH (pst) || pst -> number_of_dependencies) { /* Print the message now, before starting serious work, to avoid disconcerting pauses. */ if (info_verbose) { printf_filtered ("Reading in symbols for %s...", pst -> filename); gdb_flush (gdb_stdout); } psymtab_to_symtab_1 (pst); #if 0 /* FIXME: Check to see what dbxread is doing here and see if we need to do an equivalent or is this something peculiar to stabs/a.out format. Match with global symbols. This only needs to be done once, after all of the symtabs and dependencies have been read in. */ scan_file_globals (pst -> objfile); #endif /* Finish up the verbose info message. */ if (info_verbose) { printf_filtered ("done.\n"); gdb_flush (gdb_stdout); } } } } } /* LOCAL FUNCTION init_psymbol_list -- initialize storage for partial symbols SYNOPSIS static void init_psymbol_list (struct objfile *objfile, int total_symbols) DESCRIPTION Initializes storage for all of the partial symbols that will be created by dwarf_build_psymtabs and subsidiaries. */ static void init_psymbol_list (objfile, total_symbols) struct objfile *objfile; int total_symbols; { /* Free any previously allocated psymbol lists. */ if (objfile -> global_psymbols.list) { mfree (objfile -> md, (PTR)objfile -> global_psymbols.list); } if (objfile -> static_psymbols.list) { mfree (objfile -> md, (PTR)objfile -> static_psymbols.list); } /* Current best guess is that there are approximately a twentieth of the total symbols (in a debugging file) are global or static oriented symbols */ objfile -> global_psymbols.size = total_symbols / 10; objfile -> static_psymbols.size = total_symbols / 10; objfile -> global_psymbols.next = objfile -> global_psymbols.list = (struct partial_symbol *) xmmalloc (objfile -> md, objfile -> global_psymbols.size * sizeof (struct partial_symbol)); objfile -> static_psymbols.next = objfile -> static_psymbols.list = (struct partial_symbol *) xmmalloc (objfile -> md, objfile -> static_psymbols.size * sizeof (struct partial_symbol)); } /* LOCAL FUNCTION add_enum_psymbol -- add enumeration members to partial symbol table DESCRIPTION Given pointer to a DIE that is known to be for an enumeration, extract the symbolic names of the enumeration members and add partial symbols for them. */ static void add_enum_psymbol (dip, objfile) struct dieinfo *dip; struct objfile *objfile; { char *scan; char *listend; unsigned short blocksz; int nbytes; if ((scan = dip -> at_element_list) != NULL) { if (dip -> short_element_list) { nbytes = attribute_size (AT_short_element_list); } else { nbytes = attribute_size (AT_element_list); } blocksz = target_to_host (scan, nbytes, GET_UNSIGNED, objfile); scan += nbytes; listend = scan + blocksz; while (scan < listend) { scan += TARGET_FT_LONG_SIZE (objfile); ADD_PSYMBOL_TO_LIST (scan, strlen (scan), VAR_NAMESPACE, LOC_CONST, objfile -> static_psymbols, 0, cu_language, objfile); scan += strlen (scan) + 1; } } } /* LOCAL FUNCTION add_partial_symbol -- add symbol to partial symbol table DESCRIPTION Given a DIE, if it is one of the types that we want to add to a partial symbol table, finish filling in the die info and then add a partial symbol table entry for it. NOTES The caller must ensure that the DIE has a valid name attribute. */ static void add_partial_symbol (dip, objfile) struct dieinfo *dip; struct objfile *objfile; { switch (dip -> die_tag) { case TAG_global_subroutine: ADD_PSYMBOL_TO_LIST (dip -> at_name, strlen (dip -> at_name), VAR_NAMESPACE, LOC_BLOCK, objfile -> global_psymbols, dip -> at_low_pc, cu_language, objfile); break; case TAG_global_variable: ADD_PSYMBOL_TO_LIST (dip -> at_name, strlen (dip -> at_name), VAR_NAMESPACE, LOC_STATIC, objfile -> global_psymbols, 0, cu_language, objfile); break; case TAG_subroutine: ADD_PSYMBOL_TO_LIST (dip -> at_name, strlen (dip -> at_name), VAR_NAMESPACE, LOC_BLOCK, objfile -> static_psymbols, dip -> at_low_pc, cu_language, objfile); break; case TAG_local_variable: ADD_PSYMBOL_TO_LIST (dip -> at_name, strlen (dip -> at_name), VAR_NAMESPACE, LOC_STATIC, objfile -> static_psymbols, 0, cu_language, objfile); break; case TAG_typedef: ADD_PSYMBOL_TO_LIST (dip -> at_name, strlen (dip -> at_name), VAR_NAMESPACE, LOC_TYPEDEF, objfile -> static_psymbols, 0, cu_language, objfile); break; case TAG_class_type: case TAG_structure_type: case TAG_union_type: case TAG_enumeration_type: /* Do not add opaque aggregate definitions to the psymtab. */ if (!dip -> has_at_byte_size) break; ADD_PSYMBOL_TO_LIST (dip -> at_name, strlen (dip -> at_name), STRUCT_NAMESPACE, LOC_TYPEDEF, objfile -> static_psymbols, 0, cu_language, objfile); if (cu_language == language_cplus) { /* For C++, these implicitly act as typedefs as well. */ ADD_PSYMBOL_TO_LIST (dip -> at_name, strlen (dip -> at_name), VAR_NAMESPACE, LOC_TYPEDEF, objfile -> static_psymbols, 0, cu_language, objfile); } break; } } /* LOCAL FUNCTION scan_partial_symbols -- scan DIE's within a single compilation unit DESCRIPTION Process the DIE's within a single compilation unit, looking for interesting DIE's that contribute to the partial symbol table entry for this compilation unit. NOTES There are some DIE's that may appear both at file scope and within the scope of a function. We are only interested in the ones at file scope, and the only way to tell them apart is to keep track of the scope. For example, consider the test case: static int i; main () { int j; } for which the relevant DWARF segment has the structure: 0x51: 0x23 global subrtn sibling 0x9b name main fund_type FT_integer low_pc 0x800004cc high_pc 0x800004d4 0x74: 0x23 local var sibling 0x97 name j fund_type FT_integer location OP_BASEREG 0xe OP_CONST 0xfffffffc OP_ADD 0x97: 0x4 0x9b: 0x1d local var sibling 0xb8 name i fund_type FT_integer location OP_ADDR 0x800025dc 0xb8: 0x4 We want to include the symbol 'i' in the partial symbol table, but not the symbol 'j'. In essence, we want to skip all the dies within the scope of a TAG_global_subroutine DIE. Don't attempt to add anonymous structures or unions since they have no name. Anonymous enumerations however are processed, because we want to extract their member names (the check for a tag name is done later). Also, for variables and subroutines, check that this is the place where the actual definition occurs, rather than just a reference to an external. */ static void scan_partial_symbols (thisdie, enddie, objfile) char *thisdie; char *enddie; struct objfile *objfile; { char *nextdie; char *temp; struct dieinfo di; while (thisdie < enddie) { basicdieinfo (&di, thisdie, objfile); if (di.die_length < SIZEOF_DIE_LENGTH) { break; } else { nextdie = thisdie + di.die_length; /* To avoid getting complete die information for every die, we only do it (below) for the cases we are interested in. */ switch (di.die_tag) { case TAG_global_subroutine: case TAG_subroutine: completedieinfo (&di, objfile); if (di.at_name && (di.has_at_low_pc || di.at_location)) { add_partial_symbol (&di, objfile); /* If there is a sibling attribute, adjust the nextdie pointer to skip the entire scope of the subroutine. Apply some sanity checking to make sure we don't overrun or underrun the range of remaining DIE's */ if (di.at_sibling != 0) { temp = dbbase + di.at_sibling - dbroff; if ((temp < thisdie) || (temp >= enddie)) { complain (&bad_die_ref, DIE_ID, DIE_NAME, di.at_sibling); } else { nextdie = temp; } } } break; case TAG_global_variable: case TAG_local_variable: completedieinfo (&di, objfile); if (di.at_name && (di.has_at_low_pc || di.at_location)) { add_partial_symbol (&di, objfile); } break; case TAG_typedef: case TAG_class_type: case TAG_structure_type: case TAG_union_type: completedieinfo (&di, objfile); if (di.at_name) { add_partial_symbol (&di, objfile); } break; case TAG_enumeration_type: completedieinfo (&di, objfile); if (di.at_name) { add_partial_symbol (&di, objfile); } add_enum_psymbol (&di, objfile); break; } } thisdie = nextdie; } } /* LOCAL FUNCTION scan_compilation_units -- build a psymtab entry for each compilation DESCRIPTION This is the top level dwarf parsing routine for building partial symbol tables. It scans from the beginning of the DWARF table looking for the first TAG_compile_unit DIE, and then follows the sibling chain to locate each additional TAG_compile_unit DIE. For each TAG_compile_unit DIE it creates a partial symtab structure, calls a subordinate routine to collect all the compilation unit's global DIE's, file scope DIEs, typedef DIEs, etc, and then links the new partial symtab structure into the partial symbol table. It also records the appropriate information in the partial symbol table entry to allow the chunk of DIE's and line number table for this compilation unit to be located and re-read later, to generate a complete symbol table entry for the compilation unit. Thus it effectively partitions up a chunk of DIE's for multiple compilation units into smaller DIE chunks and line number tables, and associates them with a partial symbol table entry. NOTES If any compilation unit has no line number table associated with it for some reason (a missing at_stmt_list attribute, rather than just one with a value of zero, which is valid) then we ensure that the recorded file offset is zero so that the routine which later reads line number table fragments knows that there is no fragment to read. RETURNS Returns no value. */ static void scan_compilation_units (thisdie, enddie, dbfoff, lnoffset, objfile) char *thisdie; char *enddie; file_ptr dbfoff; file_ptr lnoffset; struct objfile *objfile; { char *nextdie; struct dieinfo di; struct partial_symtab *pst; int culength; int curoff; file_ptr curlnoffset; while (thisdie < enddie) { basicdieinfo (&di, thisdie, objfile); if (di.die_length < SIZEOF_DIE_LENGTH) { break; } else if (di.die_tag != TAG_compile_unit) { nextdie = thisdie + di.die_length; } else { completedieinfo (&di, objfile); set_cu_language (&di); if (di.at_sibling != 0) { nextdie = dbbase + di.at_sibling - dbroff; } else { nextdie = thisdie + di.die_length; } curoff = thisdie - dbbase; culength = nextdie - thisdie; curlnoffset = di.has_at_stmt_list ? lnoffset + di.at_stmt_list : 0; /* First allocate a new partial symbol table structure */ pst = start_psymtab_common (objfile, base_section_offsets, di.at_name, di.at_low_pc, objfile -> global_psymbols.next, objfile -> static_psymbols.next); pst -> texthigh = di.at_high_pc; pst -> read_symtab_private = (char *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct dwfinfo)); DBFOFF (pst) = dbfoff; DBROFF (pst) = curoff; DBLENGTH (pst) = culength; LNFOFF (pst) = curlnoffset; pst -> read_symtab = dwarf_psymtab_to_symtab; /* Now look for partial symbols */ scan_partial_symbols (thisdie + di.die_length, nextdie, objfile); pst -> n_global_syms = objfile -> global_psymbols.next - (objfile -> global_psymbols.list + pst -> globals_offset); pst -> n_static_syms = objfile -> static_psymbols.next - (objfile -> static_psymbols.list + pst -> statics_offset); sort_pst_symbols (pst); /* If there is already a psymtab or symtab for a file of this name, remove it. (If there is a symtab, more drastic things also happen.) This happens in VxWorks. */ free_named_symtabs (pst -> filename); } thisdie = nextdie; } } /* LOCAL FUNCTION new_symbol -- make a symbol table entry for a new symbol SYNOPSIS static struct symbol *new_symbol (struct dieinfo *dip, struct objfile *objfile) DESCRIPTION Given a pointer to a DWARF information entry, figure out if we need to make a symbol table entry for it, and if so, create a new entry and return a pointer to it. */ static struct symbol * new_symbol (dip, objfile) struct dieinfo *dip; struct objfile *objfile; { struct symbol *sym = NULL; if (dip -> at_name != NULL) { sym = (struct symbol *) obstack_alloc (&objfile -> symbol_obstack, sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); SYMBOL_NAME (sym) = create_name (dip -> at_name, &objfile->symbol_obstack); /* default assumptions */ SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_TYPE (sym) = decode_die_type (dip); /* If this symbol is from a C++ compilation, then attempt to cache the demangled form for future reference. This is a typical time versus space tradeoff, that was decided in favor of time because it sped up C++ symbol lookups by a factor of about 20. */ SYMBOL_LANGUAGE (sym) = cu_language; SYMBOL_INIT_DEMANGLED_NAME (sym, &objfile -> symbol_obstack); switch (dip -> die_tag) { case TAG_label: SYMBOL_VALUE (sym) = dip -> at_low_pc; SYMBOL_CLASS (sym) = LOC_LABEL; break; case TAG_global_subroutine: case TAG_subroutine: SYMBOL_VALUE (sym) = dip -> at_low_pc; SYMBOL_TYPE (sym) = lookup_function_type (SYMBOL_TYPE (sym)); SYMBOL_CLASS (sym) = LOC_BLOCK; if (dip -> die_tag == TAG_global_subroutine) { add_symbol_to_list (sym, &global_symbols); } else { add_symbol_to_list (sym, list_in_scope); } break; case TAG_global_variable: if (dip -> at_location != NULL) { SYMBOL_VALUE (sym) = locval (dip -> at_location); add_symbol_to_list (sym, &global_symbols); SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_VALUE (sym) += baseaddr; } break; case TAG_local_variable: if (dip -> at_location != NULL) { SYMBOL_VALUE (sym) = locval (dip -> at_location); add_symbol_to_list (sym, list_in_scope); if (isreg) { SYMBOL_CLASS (sym) = LOC_REGISTER; } else if (offreg) { SYMBOL_CLASS (sym) = LOC_BASEREG; SYMBOL_BASEREG (sym) = basereg; } else { SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_VALUE (sym) += baseaddr; } } break; case TAG_formal_parameter: if (dip -> at_location != NULL) { SYMBOL_VALUE (sym) = locval (dip -> at_location); } add_symbol_to_list (sym, list_in_scope); if (isreg) { SYMBOL_CLASS (sym) = LOC_REGPARM; } else if (offreg) { SYMBOL_CLASS (sym) = LOC_BASEREG_ARG; SYMBOL_BASEREG (sym) = basereg; } else { SYMBOL_CLASS (sym) = LOC_ARG; } break; case TAG_unspecified_parameters: /* From varargs functions; gdb doesn't seem to have any interest in this information, so just ignore it for now. (FIXME?) */ break; case TAG_class_type: case TAG_structure_type: case TAG_union_type: case TAG_enumeration_type: SYMBOL_CLASS (sym) = LOC_TYPEDEF; SYMBOL_NAMESPACE (sym) = STRUCT_NAMESPACE; add_symbol_to_list (sym, list_in_scope); break; case TAG_typedef: SYMBOL_CLASS (sym) = LOC_TYPEDEF; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, list_in_scope); break; default: /* Not a tag we recognize. Hopefully we aren't processing trash data, but since we must specifically ignore things we don't recognize, there is nothing else we should do at this point. */ break; } } return (sym); } /* LOCAL FUNCTION synthesize_typedef -- make a symbol table entry for a "fake" typedef SYNOPSIS static void synthesize_typedef (struct dieinfo *dip, struct objfile *objfile, struct type *type); DESCRIPTION Given a pointer to a DWARF information entry, synthesize a typedef for the name in the DIE, using the specified type. This is used for C++ class, structs, unions, and enumerations to set up the tag name as a type. */ static void synthesize_typedef (dip, objfile, type) struct dieinfo *dip; struct objfile *objfile; struct type *type; { struct symbol *sym = NULL; if (dip -> at_name != NULL) { sym = (struct symbol *) obstack_alloc (&objfile -> symbol_obstack, sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); SYMBOL_NAME (sym) = create_name (dip -> at_name, &objfile->symbol_obstack); SYMBOL_INIT_LANGUAGE_SPECIFIC (sym, cu_language); SYMBOL_TYPE (sym) = type; SYMBOL_CLASS (sym) = LOC_TYPEDEF; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, list_in_scope); } } /* LOCAL FUNCTION decode_mod_fund_type -- decode a modified fundamental type SYNOPSIS static struct type *decode_mod_fund_type (char *typedata) DESCRIPTION Decode a block of data containing a modified fundamental type specification. TYPEDATA is a pointer to the block, which starts with a length containing the size of the rest of the block. At the end of the block is a fundmental type code value that gives the fundamental type. Everything in between are type modifiers. We simply compute the number of modifiers and call the general function decode_modified_type to do the actual work. */ static struct type * decode_mod_fund_type (typedata) char *typedata; { struct type *typep = NULL; unsigned short modcount; int nbytes; /* Get the total size of the block, exclusive of the size itself */ nbytes = attribute_size (AT_mod_fund_type); modcount = target_to_host (typedata, nbytes, GET_UNSIGNED, current_objfile); typedata += nbytes; /* Deduct the size of the fundamental type bytes at the end of the block. */ modcount -= attribute_size (AT_fund_type); /* Now do the actual decoding */ typep = decode_modified_type (typedata, modcount, AT_mod_fund_type); return (typep); } /* LOCAL FUNCTION decode_mod_u_d_type -- decode a modified user defined type SYNOPSIS static struct type *decode_mod_u_d_type (char *typedata) DESCRIPTION Decode a block of data containing a modified user defined type specification. TYPEDATA is a pointer to the block, which consists of a two byte length, containing the size of the rest of the block. At the end of the block is a four byte value that gives a reference to a user defined type. Everything in between are type modifiers. We simply compute the number of modifiers and call the general function decode_modified_type to do the actual work. */ static struct type * decode_mod_u_d_type (typedata) char *typedata; { struct type *typep = NULL; unsigned short modcount; int nbytes; /* Get the total size of the block, exclusive of the size itself */ nbytes = attribute_size (AT_mod_u_d_type); modcount = target_to_host (typedata, nbytes, GET_UNSIGNED, current_objfile); typedata += nbytes; /* Deduct the size of the reference type bytes at the end of the block. */ modcount -= attribute_size (AT_user_def_type); /* Now do the actual decoding */ typep = decode_modified_type (typedata, modcount, AT_mod_u_d_type); return (typep); } /* LOCAL FUNCTION decode_modified_type -- decode modified user or fundamental type SYNOPSIS static struct type *decode_modified_type (char *modifiers, unsigned short modcount, int mtype) DESCRIPTION Decode a modified type, either a modified fundamental type or a modified user defined type. MODIFIERS is a pointer to the block of bytes that define MODCOUNT modifiers. Immediately following the last modifier is a short containing the fundamental type or a long containing the reference to the user defined type. Which one is determined by MTYPE, which is either AT_mod_fund_type or AT_mod_u_d_type to indicate what modified type we are generating. We call ourself recursively to generate each modified type,` until MODCOUNT reaches zero, at which point we have consumed all the modifiers and generate either the fundamental type or user defined type. When the recursion unwinds, each modifier is applied in turn to generate the full modified type. NOTES If we find a modifier that we don't recognize, and it is not one of those reserved for application specific use, then we issue a warning and simply ignore the modifier. BUGS We currently ignore MOD_const and MOD_volatile. (FIXME) */ static struct type * decode_modified_type (modifiers, modcount, mtype) char *modifiers; unsigned int modcount; int mtype; { struct type *typep = NULL; unsigned short fundtype; DIE_REF die_ref; char modifier; int nbytes; if (modcount == 0) { switch (mtype) { case AT_mod_fund_type: nbytes = attribute_size (AT_fund_type); fundtype = target_to_host (modifiers, nbytes, GET_UNSIGNED, current_objfile); typep = decode_fund_type (fundtype); break; case AT_mod_u_d_type: nbytes = attribute_size (AT_user_def_type); die_ref = target_to_host (modifiers, nbytes, GET_UNSIGNED, current_objfile); if ((typep = lookup_utype (die_ref)) == NULL) { typep = alloc_utype (die_ref, NULL); } break; default: complain (&botched_modified_type, DIE_ID, DIE_NAME, mtype); typep = dwarf_fundamental_type (current_objfile, FT_INTEGER); break; } } else { modifier = *modifiers++; typep = decode_modified_type (modifiers, --modcount, mtype); switch (modifier) { case MOD_pointer_to: typep = lookup_pointer_type (typep); break; case MOD_reference_to: typep = lookup_reference_type (typep); break; case MOD_const: complain (&const_ignored, DIE_ID, DIE_NAME); /* FIXME */ break; case MOD_volatile: complain (&volatile_ignored, DIE_ID, DIE_NAME); /* FIXME */ break; default: if (!(MOD_lo_user <= (unsigned char) modifier && (unsigned char) modifier <= MOD_hi_user)) { complain (&unknown_type_modifier, DIE_ID, DIE_NAME, modifier); } break; } } return (typep); } /* LOCAL FUNCTION decode_fund_type -- translate basic DWARF type to gdb base type DESCRIPTION Given an integer that is one of the fundamental DWARF types, translate it to one of the basic internal gdb types and return a pointer to the appropriate gdb type (a "struct type *"). NOTES For robustness, if we are asked to translate a fundamental type that we are unprepared to deal with, we return int so callers can always depend upon a valid type being returned, and so gdb may at least do something reasonable by default. If the type is not in the range of those types defined as application specific types, we also issue a warning. */ static struct type * decode_fund_type (fundtype) unsigned int fundtype; { struct type *typep = NULL; switch (fundtype) { case FT_void: typep = dwarf_fundamental_type (current_objfile, FT_VOID); break; case FT_boolean: /* Was FT_set in AT&T version */ typep = dwarf_fundamental_type (current_objfile, FT_BOOLEAN); break; case FT_pointer: /* (void *) */ typep = dwarf_fundamental_type (current_objfile, FT_VOID); typep = lookup_pointer_type (typep); break; case FT_char: typep = dwarf_fundamental_type (current_objfile, FT_CHAR); break; case FT_signed_char: typep = dwarf_fundamental_type (current_objfile, FT_SIGNED_CHAR); break; case FT_unsigned_char: typep = dwarf_fundamental_type (current_objfile, FT_UNSIGNED_CHAR); break; case FT_short: typep = dwarf_fundamental_type (current_objfile, FT_SHORT); break; case FT_signed_short: typep = dwarf_fundamental_type (current_objfile, FT_SIGNED_SHORT); break; case FT_unsigned_short: typep = dwarf_fundamental_type (current_objfile, FT_UNSIGNED_SHORT); break; case FT_integer: typep = dwarf_fundamental_type (current_objfile, FT_INTEGER); break; case FT_signed_integer: typep = dwarf_fundamental_type (current_objfile, FT_SIGNED_INTEGER); break; case FT_unsigned_integer: typep = dwarf_fundamental_type (current_objfile, FT_UNSIGNED_INTEGER); break; case FT_long: typep = dwarf_fundamental_type (current_objfile, FT_LONG); break; case FT_signed_long: typep = dwarf_fundamental_type (current_objfile, FT_SIGNED_LONG); break; case FT_unsigned_long: typep = dwarf_fundamental_type (current_objfile, FT_UNSIGNED_LONG); break; case FT_long_long: typep = dwarf_fundamental_type (current_objfile, FT_LONG_LONG); break; case FT_signed_long_long: typep = dwarf_fundamental_type (current_objfile, FT_SIGNED_LONG_LONG); break; case FT_unsigned_long_long: typep = dwarf_fundamental_type (current_objfile, FT_UNSIGNED_LONG_LONG); break; case FT_float: typep = dwarf_fundamental_type (current_objfile, FT_FLOAT); break; case FT_dbl_prec_float: typep = dwarf_fundamental_type (current_objfile, FT_DBL_PREC_FLOAT); break; case FT_ext_prec_float: typep = dwarf_fundamental_type (current_objfile, FT_EXT_PREC_FLOAT); break; case FT_complex: typep = dwarf_fundamental_type (current_objfile, FT_COMPLEX); break; case FT_dbl_prec_complex: typep = dwarf_fundamental_type (current_objfile, FT_DBL_PREC_COMPLEX); break; case FT_ext_prec_complex: typep = dwarf_fundamental_type (current_objfile, FT_EXT_PREC_COMPLEX); break; } if (typep == NULL) { typep = dwarf_fundamental_type (current_objfile, FT_INTEGER); if (!(FT_lo_user <= fundtype && fundtype <= FT_hi_user)) { complain (&unexpected_fund_type, DIE_ID, DIE_NAME, fundtype); } } return (typep); } /* LOCAL FUNCTION create_name -- allocate a fresh copy of a string on an obstack DESCRIPTION Given a pointer to a string and a pointer to an obstack, allocates a fresh copy of the string on the specified obstack. */ static char * create_name (name, obstackp) char *name; struct obstack *obstackp; { int length; char *newname; length = strlen (name) + 1; newname = (char *) obstack_alloc (obstackp, length); strcpy (newname, name); return (newname); } /* LOCAL FUNCTION basicdieinfo -- extract the minimal die info from raw die data SYNOPSIS void basicdieinfo (char *diep, struct dieinfo *dip, struct objfile *objfile) DESCRIPTION Given a pointer to raw DIE data, and a pointer to an instance of a die info structure, this function extracts the basic information from the DIE data required to continue processing this DIE, along with some bookkeeping information about the DIE. The information we absolutely must have includes the DIE tag, and the DIE length. If we need the sibling reference, then we will have to call completedieinfo() to process all the remaining DIE information. Note that since there is no guarantee that the data is properly aligned in memory for the type of access required (indirection through anything other than a char pointer), and there is no guarantee that it is in the same byte order as the gdb host, we call a function which deals with both alignment and byte swapping issues. Possibly inefficient, but quite portable. We also take care of some other basic things at this point, such as ensuring that the instance of the die info structure starts out completely zero'd and that curdie is initialized for use in error reporting if we have a problem with the current die. NOTES All DIE's must have at least a valid length, thus the minimum DIE size is SIZEOF_DIE_LENGTH. In order to have a valid tag, the DIE size must be at least SIZEOF_DIE_TAG larger, otherwise they are forced to be TAG_padding DIES. Padding DIES must be at least SIZEOF_DIE_LENGTH in length, implying that if a padding DIE is used for alignment and the amount needed is less than SIZEOF_DIE_LENGTH, then the padding DIE has to be big enough to align to the next alignment boundry. We do some basic sanity checking here, such as verifying that the length of the die would not cause it to overrun the recorded end of the buffer holding the DIE info. If we find a DIE that is either too small or too large, we force it's length to zero which should cause the caller to take appropriate action. */ static void basicdieinfo (dip, diep, objfile) struct dieinfo *dip; char *diep; struct objfile *objfile; { curdie = dip; memset (dip, 0, sizeof (struct dieinfo)); dip -> die = diep; dip -> die_ref = dbroff + (diep - dbbase); dip -> die_length = target_to_host (diep, SIZEOF_DIE_LENGTH, GET_UNSIGNED, objfile); if ((dip -> die_length < SIZEOF_DIE_LENGTH) || ((diep + dip -> die_length) > (dbbase + dbsize))) { complain (&malformed_die, DIE_ID, DIE_NAME, dip -> die_length); dip -> die_length = 0; } else if (dip -> die_length < (SIZEOF_DIE_LENGTH + SIZEOF_DIE_TAG)) { dip -> die_tag = TAG_padding; } else { diep += SIZEOF_DIE_LENGTH; dip -> die_tag = target_to_host (diep, SIZEOF_DIE_TAG, GET_UNSIGNED, objfile); } } /* LOCAL FUNCTION completedieinfo -- finish reading the information for a given DIE SYNOPSIS void completedieinfo (struct dieinfo *dip, struct objfile *objfile) DESCRIPTION Given a pointer to an already partially initialized die info structure, scan the raw DIE data and finish filling in the die info structure from the various attributes found. Note that since there is no guarantee that the data is properly aligned in memory for the type of access required (indirection through anything other than a char pointer), and there is no guarantee that it is in the same byte order as the gdb host, we call a function which deals with both alignment and byte swapping issues. Possibly inefficient, but quite portable. NOTES Each time we are called, we increment the diecount variable, which keeps an approximate count of the number of dies processed for each compilation unit. This information is presented to the user if the info_verbose flag is set. */ static void completedieinfo (dip, objfile) struct dieinfo *dip; struct objfile *objfile; { char *diep; /* Current pointer into raw DIE data */ char *end; /* Terminate DIE scan here */ unsigned short attr; /* Current attribute being scanned */ unsigned short form; /* Form of the attribute */ int nbytes; /* Size of next field to read */ diecount++; diep = dip -> die; end = diep + dip -> die_length; diep += SIZEOF_DIE_LENGTH + SIZEOF_DIE_TAG; while (diep < end) { attr = target_to_host (diep, SIZEOF_ATTRIBUTE, GET_UNSIGNED, objfile); diep += SIZEOF_ATTRIBUTE; if ((nbytes = attribute_size (attr)) == -1) { complain (&unknown_attribute_length, DIE_ID, DIE_NAME); diep = end; continue; } switch (attr) { case AT_fund_type: dip -> at_fund_type = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_ordering: dip -> at_ordering = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_bit_offset: dip -> at_bit_offset = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_sibling: dip -> at_sibling = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_stmt_list: dip -> at_stmt_list = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); dip -> has_at_stmt_list = 1; break; case AT_low_pc: dip -> at_low_pc = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); dip -> at_low_pc += baseaddr; dip -> has_at_low_pc = 1; break; case AT_high_pc: dip -> at_high_pc = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); dip -> at_high_pc += baseaddr; break; case AT_language: dip -> at_language = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_user_def_type: dip -> at_user_def_type = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_byte_size: dip -> at_byte_size = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); dip -> has_at_byte_size = 1; break; case AT_bit_size: dip -> at_bit_size = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_member: dip -> at_member = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_discr: dip -> at_discr = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_location: dip -> at_location = diep; break; case AT_mod_fund_type: dip -> at_mod_fund_type = diep; break; case AT_subscr_data: dip -> at_subscr_data = diep; break; case AT_mod_u_d_type: dip -> at_mod_u_d_type = diep; break; case AT_element_list: dip -> at_element_list = diep; dip -> short_element_list = 0; break; case AT_short_element_list: dip -> at_element_list = diep; dip -> short_element_list = 1; break; case AT_discr_value: dip -> at_discr_value = diep; break; case AT_string_length: dip -> at_string_length = diep; break; case AT_name: dip -> at_name = diep; break; case AT_comp_dir: /* For now, ignore any "hostname:" portion, since gdb doesn't know how to deal with it. (FIXME). */ dip -> at_comp_dir = strrchr (diep, ':'); if (dip -> at_comp_dir != NULL) { dip -> at_comp_dir++; } else { dip -> at_comp_dir = diep; } break; case AT_producer: dip -> at_producer = diep; break; case AT_start_scope: dip -> at_start_scope = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_stride_size: dip -> at_stride_size = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_src_info: dip -> at_src_info = target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case AT_prototyped: dip -> at_prototyped = diep; break; default: /* Found an attribute that we are unprepared to handle. However it is specifically one of the design goals of DWARF that consumers should ignore unknown attributes. As long as the form is one that we recognize (so we know how to skip it), we can just ignore the unknown attribute. */ break; } form = FORM_FROM_ATTR (attr); switch (form) { case FORM_DATA2: diep += 2; break; case FORM_DATA4: case FORM_REF: diep += 4; break; case FORM_DATA8: diep += 8; break; case FORM_ADDR: diep += TARGET_FT_POINTER_SIZE (objfile); break; case FORM_BLOCK2: diep += 2 + target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case FORM_BLOCK4: diep += 4 + target_to_host (diep, nbytes, GET_UNSIGNED, objfile); break; case FORM_STRING: diep += strlen (diep) + 1; break; default: complain (&unknown_attribute_form, DIE_ID, DIE_NAME, form); diep = end; break; } } } /* LOCAL FUNCTION target_to_host -- swap in target data to host SYNOPSIS target_to_host (char *from, int nbytes, int signextend, struct objfile *objfile) DESCRIPTION Given pointer to data in target format in FROM, a byte count for the size of the data in NBYTES, a flag indicating whether or not the data is signed in SIGNEXTEND, and a pointer to the current objfile in OBJFILE, convert the data to host format and return the converted value. NOTES FIXME: If we read data that is known to be signed, and expect to use it as signed data, then we need to explicitly sign extend the result until the bfd library is able to do this for us. */ static unsigned long target_to_host (from, nbytes, signextend, objfile) char *from; int nbytes; int signextend; /* FIXME: Unused */ struct objfile *objfile; { unsigned long rtnval; switch (nbytes) { case 8: rtnval = bfd_get_64 (objfile -> obfd, (bfd_byte *) from); break; case 4: rtnval = bfd_get_32 (objfile -> obfd, (bfd_byte *) from); break; case 2: rtnval = bfd_get_16 (objfile -> obfd, (bfd_byte *) from); break; case 1: rtnval = bfd_get_8 (objfile -> obfd, (bfd_byte *) from); break; default: complain (&no_bfd_get_N, DIE_ID, DIE_NAME, nbytes); rtnval = 0; break; } return (rtnval); } /* LOCAL FUNCTION attribute_size -- compute size of data for a DWARF attribute SYNOPSIS static int attribute_size (unsigned int attr) DESCRIPTION Given a DWARF attribute in ATTR, compute the size of the first piece of data associated with this attribute and return that size. Returns -1 for unrecognized attributes. */ static int attribute_size (attr) unsigned int attr; { int nbytes; /* Size of next data for this attribute */ unsigned short form; /* Form of the attribute */ form = FORM_FROM_ATTR (attr); switch (form) { case FORM_STRING: /* A variable length field is next */ nbytes = 0; break; case FORM_DATA2: /* Next 2 byte field is the data itself */ case FORM_BLOCK2: /* Next 2 byte field is a block length */ nbytes = 2; break; case FORM_DATA4: /* Next 4 byte field is the data itself */ case FORM_BLOCK4: /* Next 4 byte field is a block length */ case FORM_REF: /* Next 4 byte field is a DIE offset */ nbytes = 4; break; case FORM_DATA8: /* Next 8 byte field is the data itself */ nbytes = 8; break; case FORM_ADDR: /* Next field size is target sizeof(void *) */ nbytes = TARGET_FT_POINTER_SIZE (objfile); break; default: complain (&unknown_attribute_form, DIE_ID, DIE_NAME, form); nbytes = -1; break; } return (nbytes); } gdb-4.13/gdb/elfread.c 666 34562 1752 60045 5615303125 13064 0ustar fnfcygnus/* Read ELF (Executable and Linking Format) object files for GDB. Copyright 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "bfd.h" #include #include "libelf.h" #include "elf/mips.h" #include "symtab.h" #include "symfile.h" #include "objfiles.h" #include "buildsym.h" #include "stabsread.h" #include "gdb-stabs.h" #include "complaints.h" #include "demangle.h" /* The struct elfinfo is available only during ELF symbol table and psymtab reading. It is destroyed at the complation of psymtab-reading. It's local to elf_symfile_read. */ struct elfinfo { file_ptr dboffset; /* Offset to dwarf debug section */ unsigned int dbsize; /* Size of dwarf debug section */ file_ptr lnoffset; /* Offset to dwarf line number section */ unsigned int lnsize; /* Size of dwarf line number section */ asection *stabsect; /* Section pointer for .stab section */ asection *stabindexsect; /* Section pointer for .stab.index section */ asection *mdebugsect; /* Section pointer for .mdebug section */ }; /* Various things we might complain about... */ struct complaint section_info_complaint = {"elf/stab section information %s without a preceding file symbol", 0, 0}; struct complaint section_info_dup_complaint = {"duplicated elf/stab section information for %s", 0, 0}; struct complaint stab_info_mismatch_complaint = {"elf/stab section information missing for %s", 0, 0}; struct complaint stab_info_questionable_complaint = {"elf/stab section information questionable for %s", 0, 0}; static void elf_symfile_init PARAMS ((struct objfile *)); static void elf_new_init PARAMS ((struct objfile *)); static void elf_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int)); static void elf_symfile_finish PARAMS ((struct objfile *)); static void elf_symtab_read PARAMS ((bfd *, CORE_ADDR, struct objfile *, int)); static void free_elfinfo PARAMS ((void *)); static struct section_offsets * elf_symfile_offsets PARAMS ((struct objfile *, CORE_ADDR)); static void record_minimal_symbol_and_info PARAMS ((char *, CORE_ADDR, enum minimal_symbol_type, char *, struct objfile *)); static void elf_locate_sections PARAMS ((bfd *, asection *, void *)); /* We are called once per section from elf_symfile_read. We need to examine each section we are passed, check to see if it is something we are interested in processing, and if so, stash away some access information for the section. For now we recognize the dwarf debug information sections and line number sections from matching their section names. The ELF definition is no real help here since it has no direct knowledge of DWARF (by design, so any debugging format can be used). We also recognize the ".stab" sections used by the Sun compilers released with Solaris 2. FIXME: The section names should not be hardwired strings (what should they be? I don't think most object file formats have enough section flags to specify what kind of debug section it is -kingdon). */ static void elf_locate_sections (ignore_abfd, sectp, eip) bfd *ignore_abfd; asection *sectp; PTR eip; { register struct elfinfo *ei; ei = (struct elfinfo *) eip; if (STREQ (sectp -> name, ".debug")) { ei -> dboffset = sectp -> filepos; ei -> dbsize = bfd_get_section_size_before_reloc (sectp); } else if (STREQ (sectp -> name, ".line")) { ei -> lnoffset = sectp -> filepos; ei -> lnsize = bfd_get_section_size_before_reloc (sectp); } else if (STREQ (sectp -> name, ".stab")) { ei -> stabsect = sectp; } else if (STREQ (sectp -> name, ".stab.index")) { ei -> stabindexsect = sectp; } else if (STREQ (sectp -> name, ".mdebug")) { ei -> mdebugsect = sectp; } } #if 0 /* Currently unused */ char * elf_interpreter (abfd) bfd *abfd; { sec_ptr interp_sec; unsigned size; char *interp = NULL; interp_sec = bfd_get_section_by_name (abfd, ".interp"); if (interp_sec) { size = bfd_section_size (abfd, interp_sec); interp = alloca (size); if (bfd_get_section_contents (abfd, interp_sec, interp, (file_ptr)0, size)) { interp = savestring (interp, size - 1); } else { interp = NULL; } } return (interp); } #endif static void record_minimal_symbol_and_info (name, address, ms_type, info, objfile) char *name; CORE_ADDR address; enum minimal_symbol_type ms_type; char *info; /* FIXME, is this really char *? */ struct objfile *objfile; { int section; /* Guess the section from the type. This is likely to be wrong in some cases. */ switch (ms_type) { case mst_text: case mst_file_text: section = SECT_OFF_TEXT; #ifdef SMASH_TEXT_ADDRESS SMASH_TEXT_ADDRESS (address); #endif break; case mst_data: case mst_file_data: section = SECT_OFF_DATA; break; case mst_bss: case mst_file_bss: section = SECT_OFF_BSS; break; default: section = -1; break; } name = obsavestring (name, strlen (name), &objfile -> symbol_obstack); prim_record_minimal_symbol_and_info (name, address, ms_type, info, section, objfile); } /* LOCAL FUNCTION elf_symtab_read -- read the symbol table of an ELF file SYNOPSIS void elf_symtab_read (bfd *abfd, CORE_ADDR addr, struct objfile *objfile) DESCRIPTION Given an open bfd, a base address to relocate symbols to, and a flag that specifies whether or not this bfd is for an executable or not (may be shared library for example), add all the global function and data symbols to the minimal symbol table. In stabs-in-ELF, as implemented by Sun, there are some local symbols defined in the ELF symbol table, which can be used to locate the beginnings of sections from each ".o" file that was linked to form the executable objfile. We gather any such info and record it in data structures hung off the objfile's private data. */ static void elf_symtab_read (abfd, addr, objfile, dynamic) bfd *abfd; CORE_ADDR addr; struct objfile *objfile; int dynamic; { long storage_needed; asymbol *sym; asymbol **symbol_table; long number_of_symbols; long i; int index; struct cleanup *back_to; CORE_ADDR symaddr; enum minimal_symbol_type ms_type; /* If sectinfo is nonNULL, it contains section info that should end up filed in the objfile. */ struct stab_section_info *sectinfo = NULL; /* If filesym is nonzero, it points to a file symbol, but we haven't seen any section info for it yet. */ asymbol *filesym = 0; struct dbx_symfile_info *dbx = (struct dbx_symfile_info *) objfile->sym_stab_info; unsigned long size; int stripped = (bfd_get_symcount (abfd) == 0); if (dynamic) { storage_needed = bfd_get_dynamic_symtab_upper_bound (abfd); /* Nothing to be done if there is no dynamic symtab. */ if (storage_needed < 0) return; } else { storage_needed = bfd_get_symtab_upper_bound (abfd); if (storage_needed < 0) error ("Can't read symbols from %s: %s", bfd_get_filename (abfd), bfd_errmsg (bfd_get_error ())); } if (storage_needed > 0) { symbol_table = (asymbol **) xmalloc (storage_needed); back_to = make_cleanup (free, symbol_table); if (dynamic) number_of_symbols = bfd_canonicalize_dynamic_symtab (abfd, symbol_table); else number_of_symbols = bfd_canonicalize_symtab (abfd, symbol_table); if (number_of_symbols < 0) error ("Can't read symbols from %s: %s", bfd_get_filename (abfd), bfd_errmsg (bfd_get_error ())); for (i = 0; i < number_of_symbols; i++) { sym = symbol_table[i]; if (sym -> name == NULL || *sym -> name == '\0') { /* Skip names that don't exist (shouldn't happen), or names that are null strings (may happen). */ continue; } /* If it is a nonstripped executable, do not enter dynamic symbols, as the dynamic symbol table is usually a subset of the main symbol table. On Irix 5 however, the symbols for the procedure linkage table entries have meaningful values only in the dynamic symbol table, so we always examine undefined symbols. */ if (dynamic && !stripped && sym -> section != &bfd_und_section) continue; if (sym -> flags & BSF_FILE) { /* STT_FILE debugging symbol that helps stabs-in-elf debugging. Chain any old one onto the objfile; remember new sym. */ if (sectinfo != NULL) { sectinfo -> next = dbx -> stab_section_info; dbx -> stab_section_info = sectinfo; sectinfo = NULL; } filesym = sym; } else if (sym -> flags & (BSF_GLOBAL | BSF_LOCAL | BSF_WEAK)) { /* Select global/local/weak symbols. Note that bfd puts abs symbols in their own section, so all symbols we are interested in will have a section. */ /* Bfd symbols are section relative. */ symaddr = sym -> value + sym -> section -> vma; /* Relocate all non-absolute symbols by base address. */ if (sym -> section != &bfd_abs_section) { symaddr += addr; } /* For non-absolute symbols, use the type of the section they are relative to, to intuit text/data. Bfd provides no way of figuring this out for absolute symbols. */ if (sym -> section == &bfd_und_section && (sym -> flags & BSF_GLOBAL) && (sym -> flags & BSF_FUNCTION)) { /* Symbol is a reference to a function defined in a shared library. If its value is non zero then it is usually the absolute address of the corresponding entry in the procedure linkage table. If its value is zero then the dynamic linker has to resolve the symbol. We are unable to find any meaningful address for this symbol in the executable file, so we skip it. Irix 5 has a zero value for all shared library functions in the main symbol table, but the dynamic symbol table provides the right values. */ ms_type = mst_solib_trampoline; symaddr = sym -> value; if (symaddr == 0) continue; symaddr += addr; } else if (sym -> section == &bfd_abs_section) { /* This is a hack to get the minimal symbol type right for Irix 5, which has absolute adresses with special section indices for dynamic symbols. */ unsigned short shndx = ((elf_symbol_type *) sym)->internal_elf_sym.st_shndx; switch (shndx) { case SHN_MIPS_TEXT: ms_type = mst_text; break; case SHN_MIPS_DATA: ms_type = mst_data; break; case SHN_MIPS_ACOMMON: ms_type = mst_bss; break; default: ms_type = mst_abs; } } else if (sym -> section -> flags & SEC_CODE) { if (sym -> flags & BSF_GLOBAL) { ms_type = mst_text; } else if ((sym->name[0] == '.' && sym->name[1] == 'L') || ((sym -> flags & BSF_LOCAL) && sym->name[0] == 'L' && sym->name[1] == 'L')) /* Looks like a compiler-generated label. Skip it. The assembler should be skipping these (to keep executables small), but apparently with gcc on the delta m88k SVR4, it loses. So to have us check too should be harmless (but I encourage people to fix this in the assembler instead of adding checks here). */ continue; else { ms_type = mst_file_text; } } else if (sym -> section -> flags & SEC_ALLOC) { if (sym -> flags & BSF_GLOBAL) { if (sym -> section -> flags & SEC_LOAD) { ms_type = mst_data; } else { ms_type = mst_bss; } } else if (sym -> flags & BSF_LOCAL) { /* Named Local variable in a Data section. Check its name for stabs-in-elf. The STREQ macro checks the first character inline, so we only actually do a strcmp function call on names that start with 'B' or 'D' */ index = SECT_OFF_MAX; if (STREQ ("Bbss.bss", sym -> name)) { index = SECT_OFF_BSS; } else if (STREQ ("Ddata.data", sym -> name)) { index = SECT_OFF_DATA; } else if (STREQ ("Drodata.rodata", sym -> name)) { index = SECT_OFF_RODATA; } if (index != SECT_OFF_MAX) { /* Found a special local symbol. Allocate a sectinfo, if needed, and fill it in. */ if (sectinfo == NULL) { sectinfo = (struct stab_section_info *) xmmalloc (objfile -> md, sizeof (*sectinfo)); memset ((PTR) sectinfo, 0, sizeof (*sectinfo)); if (filesym == NULL) { complain (§ion_info_complaint, sym -> name); } else { sectinfo -> filename = (char *) filesym -> name; } } if (sectinfo -> sections[index] != 0) { complain (§ion_info_dup_complaint, sectinfo -> filename); } /* Bfd symbols are section relative. */ symaddr = sym -> value + sym -> section -> vma; /* Relocate non-absolute symbols by base address. */ if (sym -> section != &bfd_abs_section) { symaddr += addr; } sectinfo -> sections[index] = symaddr; /* The special local symbols don't go in the minimal symbol table, so ignore this one. */ continue; } /* Not a special stabs-in-elf symbol, do regular symbol processing. */ if (sym -> section -> flags & SEC_LOAD) { ms_type = mst_file_data; } else { ms_type = mst_file_bss; } } else { ms_type = mst_unknown; } } else { /* FIXME: Solaris2 shared libraries include lots of odd "absolute" and "undefined" symbols, that play hob with actions like finding what function the PC is in. Ignore them if they aren't text, data, or bss. */ /* ms_type = mst_unknown; */ continue; /* Skip this symbol. */ } /* Pass symbol size field in via BFD. FIXME!!! */ size = ((elf_symbol_type *) sym) -> internal_elf_sym.st_size; record_minimal_symbol_and_info ((char *) sym -> name, symaddr, ms_type, (PTR) size, objfile); } } do_cleanups (back_to); } } /* Scan and build partial symbols for a symbol file. We have been initialized by a call to elf_symfile_init, which currently does nothing. SECTION_OFFSETS is a set of offsets to apply to relocate the symbols in each section. We simplify it down to a single offset for all symbols. FIXME. MAINLINE is true if we are reading the main symbol table (as opposed to a shared lib or dynamically loaded file). This function only does the minimum work necessary for letting the user "name" things symbolically; it does not read the entire symtab. Instead, it reads the external and static symbols and puts them in partial symbol tables. When more extensive information is requested of a file, the corresponding partial symbol table is mutated into a full fledged symbol table by going back and reading the symbols for real. We look for sections with specific names, to tell us what debug format to look for: FIXME!!! dwarf_build_psymtabs() builds psymtabs for DWARF symbols; elfstab_build_psymtabs() handles STABS symbols; mdebug_build_psymtabs() handles ECOFF debugging information. Note that ELF files have a "minimal" symbol table, which looks a lot like a COFF symbol table, but has only the minimal information necessary for linking. We process this also, and use the information to build gdb's minimal symbol table. This gives us some minimal debugging capability even for files compiled without -g. */ static void elf_symfile_read (objfile, section_offsets, mainline) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; { bfd *abfd = objfile->obfd; struct elfinfo ei; struct cleanup *back_to; CORE_ADDR offset; init_minimal_symbol_collection (); back_to = make_cleanup (discard_minimal_symbols, 0); memset ((char *) &ei, 0, sizeof (ei)); /* Allocate struct to keep track of the symfile */ objfile->sym_stab_info = (PTR) xmmalloc (objfile -> md, sizeof (struct dbx_symfile_info)); memset ((char *) objfile->sym_stab_info, 0, sizeof (struct dbx_symfile_info)); make_cleanup (free_elfinfo, (PTR) objfile); /* Process the normal ELF symbol table first. This may write some chain of info into the dbx_symfile_info in objfile->sym_stab_info, which can later be used by elfstab_offset_sections. */ /* FIXME, should take a section_offsets param, not just an offset. */ offset = ANOFFSET (section_offsets, 0); elf_symtab_read (abfd, offset, objfile, 0); /* Add the dynamic symbols. */ elf_symtab_read (abfd, offset, objfile, 1); /* Now process debugging information, which is contained in special ELF sections. We first have to find them... */ bfd_map_over_sections (abfd, elf_locate_sections, (PTR) &ei); if (ei.dboffset && ei.lnoffset) { /* DWARF sections */ dwarf_build_psymtabs (objfile, section_offsets, mainline, ei.dboffset, ei.dbsize, ei.lnoffset, ei.lnsize); } if (ei.stabsect) { asection *str_sect; /* Stab sections have an associated string table that looks like a separate section. */ str_sect = bfd_get_section_by_name (abfd, ".stabstr"); /* FIXME should probably warn about a stab section without a stabstr. */ if (str_sect) elfstab_build_psymtabs (objfile, section_offsets, mainline, ei.stabsect->filepos, bfd_section_size (abfd, ei.stabsect), str_sect->filepos, bfd_section_size (abfd, str_sect)); } if (ei.mdebugsect) { const struct ecoff_debug_swap *swap; /* .mdebug section, presumably holding ECOFF debugging information. */ swap = get_elf_backend_data (abfd)->elf_backend_ecoff_debug_swap; if (swap) elfmdebug_build_psymtabs (objfile, swap, ei.mdebugsect, section_offsets); } /* Install any minimal symbols that have been collected as the current minimal symbols for this objfile. */ install_minimal_symbols (objfile); do_cleanups (back_to); } /* This cleans up the objfile's sym_stab_info pointer, and the chain of stab_section_info's, that might be dangling from it. */ static void free_elfinfo (objp) PTR objp; { struct objfile *objfile = (struct objfile *)objp; struct dbx_symfile_info *dbxinfo = (struct dbx_symfile_info *) objfile->sym_stab_info; struct stab_section_info *ssi, *nssi; ssi = dbxinfo->stab_section_info; while (ssi) { nssi = ssi->next; mfree (objfile->md, ssi); ssi = nssi; } dbxinfo->stab_section_info = 0; /* Just say No mo info about this. */ } /* Initialize anything that needs initializing when a completely new symbol file is specified (not just adding some symbols from another file, e.g. a shared library). We reinitialize buildsym, since we may be reading stabs from an ELF file. */ static void elf_new_init (ignore) struct objfile *ignore; { stabsread_new_init (); buildsym_new_init (); } /* Perform any local cleanups required when we are done with a particular objfile. I.E, we are in the process of discarding all symbol information for an objfile, freeing up all memory held for it, and unlinking the objfile struct from the global list of known objfiles. */ static void elf_symfile_finish (objfile) struct objfile *objfile; { if (objfile -> sym_stab_info != NULL) { mfree (objfile -> md, objfile -> sym_stab_info); } } /* ELF specific initialization routine for reading symbols. It is passed a pointer to a struct sym_fns which contains, among other things, the BFD for the file whose symbols are being read, and a slot for a pointer to "private data" which we can fill with goodies. For now at least, we have nothing in particular to do, so this function is just a stub. */ static void elf_symfile_init (ignore) struct objfile *ignore; { } /* ELF specific parsing routine for section offsets. Plain and simple for now. */ static struct section_offsets * elf_symfile_offsets (objfile, addr) struct objfile *objfile; CORE_ADDR addr; { struct section_offsets *section_offsets; int i; objfile->num_sections = SECT_OFF_MAX; section_offsets = (struct section_offsets *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct section_offsets) + sizeof (section_offsets->offsets) * (SECT_OFF_MAX-1)); for (i = 0; i < SECT_OFF_MAX; i++) ANOFFSET (section_offsets, i) = addr; return section_offsets; } /* When handling an ELF file that contains Sun STABS debug info, some of the debug info is relative to the particular chunk of the section that was generated in its individual .o file. E.g. offsets to static variables are relative to the start of the data segment *for that module before linking*. This information is painfully squirreled away in the ELF symbol table as local symbols with wierd names. Go get 'em when needed. */ void elfstab_offset_sections (objfile, pst) struct objfile *objfile; struct partial_symtab *pst; { char *filename = pst->filename; struct dbx_symfile_info *dbx = (struct dbx_symfile_info *) objfile->sym_stab_info; struct stab_section_info *maybe = dbx->stab_section_info; struct stab_section_info *questionable = 0; int i; char *p; /* The ELF symbol info doesn't include path names, so strip the path (if any) from the psymtab filename. */ while (0 != (p = strchr (filename, '/'))) filename = p+1; /* FIXME: This linear search could speed up significantly if it was chained in the right order to match how we search it, and if we unchained when we found a match. */ for (; maybe; maybe = maybe->next) { if (filename[0] == maybe->filename[0] && STREQ (filename, maybe->filename)) { /* We found a match. But there might be several source files (from different directories) with the same name. */ if (0 == maybe->found) break; questionable = maybe; /* Might use it later. */ } } if (maybe == 0 && questionable != 0) { complain (&stab_info_questionable_complaint, filename); maybe = questionable; } if (maybe) { /* Found it! Allocate a new psymtab struct, and fill it in. */ maybe->found++; pst->section_offsets = (struct section_offsets *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct section_offsets) + sizeof (pst->section_offsets->offsets) * (SECT_OFF_MAX-1)); for (i = 0; i < SECT_OFF_MAX; i++) ANOFFSET (pst->section_offsets, i) = maybe->sections[i]; return; } /* We were unable to find any offsets for this file. Complain. */ if (dbx->stab_section_info) /* If there *is* any info, */ complain (&stab_info_mismatch_complaint, filename); } /* Register that we are able to handle ELF object file formats. */ static struct sym_fns elf_sym_fns = { bfd_target_elf_flavour, elf_new_init, /* sym_new_init: init anything gbl to entire symtab */ elf_symfile_init, /* sym_init: read initial info, setup for sym_read() */ elf_symfile_read, /* sym_read: read a symbol file into symtab */ elf_symfile_finish, /* sym_finish: finished with file, cleanup */ elf_symfile_offsets, /* sym_offsets: Translate ext. to int. relocation */ NULL /* next: pointer to next struct sym_fns */ }; void _initialize_elfread () { add_symtab_fns (&elf_sym_fns); } gdb-4.13/gdb/gdb.info 666 34562 1752 13133 5623251657 12736 0ustar fnfcygnusThis is Info file ./gdb.info, produced by Makeinfo-1.52 from the input file gdb.texinfo. START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY This file documents the GNU debugger GDB. This is Edition 4.12, January 1994, of `Debugging with GDB: the GNU Source-Level Debugger' for GDB Version 4.13. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions.  Indirect: gdb.info-1: 995 gdb.info-2: 50087 gdb.info-3: 98476 gdb.info-4: 140557 gdb.info-5: 189575 gdb.info-6: 239086 gdb.info-7: 288267 gdb.info-8: 335452  Tag Table: (Indirect) Node: Top995 Node: Summary2565 Node: Free Software4166 Node: Contributors4904 Node: New Features8969 Node: Sample Session13071 Node: Invocation19940 Node: Invoking GDB20405 Node: File Options22144 Node: Mode Options25311 Node: Quitting GDB27476 Node: Shell Commands28191 Node: Commands28938 Node: Command Syntax29571 Node: Completion31426 Node: Help35474 Node: Running39246 Node: Compilation40285 Node: Starting42075 Node: Arguments45247 Node: Environment46251 Node: Working Directory49347 Node: Input/Output50087 Node: Attach51692 Node: Kill Process53938 Node: Process Information54908 Node: Threads56177 Node: Stopping60264 Node: Breakpoints61400 Node: Set Breaks63588 Node: Set Watchpoints70192 Node: Exception Handling71410 Node: Delete Breaks73924 Node: Disabling75552 Node: Conditions78168 Node: Break Commands82712 Node: Breakpoint Menus85554 Node: Error in Breakpoints87259 Node: Continuing and Stepping88163 Node: Signals94865 Node: Thread Stops98476 Node: Stack100664 Node: Frames102138 Node: Backtrace104407 Node: Selection106139 Node: Frame Info108875 Node: MIPS Stack111108 Node: Source111980 Node: List112929 Node: Search116377 Node: Source Path117176 Node: Machine Code119838 Node: Data122306 Node: Expressions124181 Node: Variables125863 Node: Arrays128384 Node: Output Formats130467 Node: Memory132539 Node: Auto Display136806 Node: Print Settings140557 Node: Value History149701 Node: Convenience Vars152088 Node: Registers154745 Node: Floating Point Hardware159338 Node: Languages159843 Node: Setting161011 Node: Manually161545 Node: Automatically162725 Node: Show164042 Node: Checks164918 Node: Type Checking166274 Node: Range Checking168954 Node: Support171295 Node: C172211 Node: C Operators173332 Node: C Constants177387 Node: Cplus expressions179290 Node: C Defaults181885 Node: C Checks182503 Node: Debugging C183210 Node: Debugging C plus plus183679 Node: Modula-2185691 Node: M2 Operators186579 Node: Built-In Func/Proc189575 Node: M2 Constants192314 Node: M2 Defaults193903 Node: Deviations194498 Node: M2 Checks195585 Node: M2 Scope196385 Node: GDB/M2197394 Node: Symbols198333 Node: Altering204067 Node: Assignment205049 Node: Jumping207159 Node: Signaling209161 Node: Returning210281 Node: Calling211473 Node: Patching211947 Node: GDB Files213017 Node: Files213482 Node: Symbol Errors223715 Node: Targets227294 Node: Active Targets228184 Node: Target Commands229756 Node: Remote233128 Node: Remote Serial234532 Node: Stub Contents236985 Node: Bootstrapping239086 Node: Debug Session242855 Node: Protocol246016 Node: Server248833 Node: i960-Nindy Remote252864 Node: Nindy Startup253684 Node: Nindy Options254369 Node: Nindy Reset255983 Node: UDI29K Remote256367 Node: EB29K Remote257272 Node: Comms (EB29K)258090 Node: gdb-EB29K261269 Node: Remote Log262635 Node: ST2000 Remote263110 Node: VxWorks Remote264571 Node: VxWorks Connection266187 Node: VxWorks Download267113 Node: VxWorks Attach268841 Node: Hitachi Remote269231 Node: Hitachi Boards270159 Node: Hitachi ICE271222 Node: Hitachi Special272010 Node: MIPS Remote272736 Node: Simulator275986 Node: Controlling GDB277472 Node: Prompt278083 Node: Editing278692 Node: History279459 Node: Screen Size282156 Node: Numbers283552 Node: Messages/Warnings284662 Node: Sequences287707 Node: Define288267 Node: Hooks290262 Node: Command Files291660 Node: Output293632 Node: Emacs296039 Node: GDB Bugs301985 Node: Bug Criteria302703 Node: Bug Reporting303457 Node: Command Line Editing310664 Node: Introduction and Notation311085 Node: Readline Interaction312102 Node: Readline Bare Essentials313236 Node: Readline Movement Commands314739 Node: Readline Killing Commands315625 Node: Readline Arguments317263 Node: Readline Init File318209 Node: Readline Init Syntax319030 Node: Commands For Moving322962 Node: Commands For History323582 Node: Commands For Text324651 Node: Commands For Killing326367 Node: Numeric Arguments327489 Node: Commands For Completion327927 Node: Miscellaneous Commands328646 Node: Readline Vi Mode329398 Node: Using History Interactively330105 Node: History Interaction330462 Node: Event Designators331510 Node: Word Designators332149 Node: Modifiers333045 Node: Renamed Commands333790 Node: Formatting Documentation335452 Node: Installing GDB338786 Node: Separate Objdir342266 Node: Config Names344809 Node: configure Options346237 Node: Index348561  End Tag Table gdb-4.13/gdb/environ.c 666 34562 1752 11273 5623163412 13143 0ustar fnfcygnus/* environ.c -- library for manipulating environments for GNU. Copyright (C) 1986, 1989 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define min(a, b) ((a) < (b) ? (a) : (b)) #define max(a, b) ((a) > (b) ? (a) : (b)) #include "defs.h" #include "environ.h" #include #include "gdbcore.h" /* Return a new environment object. */ struct environ * make_environ () { register struct environ *e; e = (struct environ *) xmalloc (sizeof (struct environ)); e->allocated = 10; e->vector = (char **) xmalloc ((e->allocated + 1) * sizeof (char *)); e->vector[0] = 0; return e; } /* Free an environment and all the strings in it. */ void free_environ (e) register struct environ *e; { register char **vector = e->vector; while (*vector) free (*vector++); free (e); } /* Copy the environment given to this process into E. Also copies all the strings in it, so we can be sure that all strings in these environments are safe to free. */ void init_environ (e) register struct environ *e; { extern char **environ; register int i; if (environ == NULL) return; for (i = 0; environ[i]; i++) /*EMPTY*/; if (e->allocated < i) { e->allocated = max (i, e->allocated + 10); e->vector = (char **) xrealloc ((char *)e->vector, (e->allocated + 1) * sizeof (char *)); } memcpy (e->vector, environ, (i + 1) * sizeof (char *)); while (--i >= 0) { register int len = strlen (e->vector[i]); register char *new = (char *) xmalloc (len + 1); memcpy (new, e->vector[i], len + 1); e->vector[i] = new; } } /* Return the vector of environment E. This is used to get something to pass to execve. */ char ** environ_vector (e) struct environ *e; { return e->vector; } /* Return the value in environment E of variable VAR. */ char * get_in_environ (e, var) const struct environ *e; const char *var; { register int len = strlen (var); register char **vector = e->vector; register char *s; for (; (s = *vector) != NULL; vector++) if (STREQN (s, var, len) && s[len] == '=') return &s[len + 1]; return 0; } /* Store the value in E of VAR as VALUE. */ void set_in_environ (e, var, value) struct environ *e; const char *var; const char *value; { register int i; register int len = strlen (var); register char **vector = e->vector; register char *s; for (i = 0; (s = vector[i]) != NULL; i++) if (STREQN (s, var, len) && s[len] == '=') break; if (s == 0) { if (i == e->allocated) { e->allocated += 10; vector = (char **) xrealloc ((char *)vector, (e->allocated + 1) * sizeof (char *)); e->vector = vector; } vector[i + 1] = 0; } else free (s); s = (char *) xmalloc (len + strlen (value) + 2); strcpy (s, var); strcat (s, "="); strcat (s, value); vector[i] = s; /* This used to handle setting the PATH and GNUTARGET variables specially. The latter has been replaced by "set gnutarget" (which has worked since GDB 4.11). The former affects searching the PATH to find SHELL, and searching the PATH to find the argument of "symbol-file" or "exec-file". Maybe we should have some kind of "set exec-path" for that. But in any event, having "set env" affect anything besides the inferior is a bad idea. What if we want to change the environment we pass to the program without afecting GDB's behavior? */ return; } /* Remove the setting for variable VAR from environment E. */ void unset_in_environ (e, var) struct environ *e; char *var; { register int len = strlen (var); register char **vector = e->vector; register char *s; for (; (s = *vector) != NULL; vector++) { if (STREQN (s, var, len) && s[len] == '=') { free (s); /* Walk through the vector, shuffling args down by one, including the NULL terminator. Can't use memcpy() here since the regions overlap, and memmove() might not be available. */ while ((vector[0] = vector[1]) != NULL) { vector++; } break; } } } gdb-4.13/gdb/environ.h 666 34562 1752 3312 5151053157 13123 0ustar fnfcygnus/* Header for environment manipulation library. Copyright 1989, 1992 Free Software Foundation. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (ENVIRON_H) #define ENVIRON_H 1 /* We manipulate environments represented as these structures. */ struct environ { /* Number of usable slots allocated in VECTOR. VECTOR always has one slot not counted here, to hold the terminating zero. */ int allocated; /* A vector of slots, ALLOCATED + 1 of them. The first few slots contain strings "VAR=VALUE" and the next one contains zero. Then come some unused slots. */ char **vector; }; extern struct environ * make_environ PARAMS ((void)); extern void free_environ PARAMS ((struct environ *)); extern void init_environ PARAMS ((struct environ *)); extern char * get_in_environ PARAMS ((const struct environ *, const char *)); extern void set_in_environ PARAMS ((struct environ *, const char *, const char *)); extern void unset_in_environ PARAMS ((struct environ *, char *)); extern char ** environ_vector PARAMS ((struct environ *)); #endif /* defined (ENVIRON_H) */ gdb-4.13/gdb/eval.c 666 34562 1752 106145 5604431445 12440 0ustar fnfcygnus/* Evaluate expressions for GDB. Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include "symtab.h" #include "gdbtypes.h" #include "value.h" #include "expression.h" #include "target.h" #include "frame.h" #include "demangle.h" #include "language.h" /* For CAST_IS_CONVERSION */ /* Values of NOSIDE argument to eval_subexp. */ enum noside { EVAL_NORMAL, EVAL_SKIP, /* Only effect is to increment pos. */ EVAL_AVOID_SIDE_EFFECTS /* Don't modify any variables or call any functions. The value returned will have the correct type, and will have an approximately correct lvalue type (inaccuracy: anything that is listed as being in a register in the function in which it was declared will be lval_register). */ }; /* Prototypes for local functions. */ static value_ptr evaluate_subexp_for_sizeof PARAMS ((struct expression *, int *)); static value_ptr evaluate_subexp_with_coercion PARAMS ((struct expression *, int *, enum noside)); static value_ptr evaluate_subexp_for_address PARAMS ((struct expression *, int *, enum noside)); static value_ptr evaluate_subexp PARAMS ((struct type *, struct expression *, int *, enum noside)); /* Parse the string EXP as a C expression, evaluate it, and return the result as a number. */ CORE_ADDR parse_and_eval_address (exp) char *exp; { struct expression *expr = parse_expression (exp); register CORE_ADDR addr; register struct cleanup *old_chain = make_cleanup (free_current_contents, &expr); addr = value_as_pointer (evaluate_expression (expr)); do_cleanups (old_chain); return addr; } /* Like parse_and_eval_address but takes a pointer to a char * variable and advanced that variable across the characters parsed. */ CORE_ADDR parse_and_eval_address_1 (expptr) char **expptr; { struct expression *expr = parse_exp_1 (expptr, (struct block *)0, 0); register CORE_ADDR addr; register struct cleanup *old_chain = make_cleanup (free_current_contents, &expr); addr = value_as_pointer (evaluate_expression (expr)); do_cleanups (old_chain); return addr; } value_ptr parse_and_eval (exp) char *exp; { struct expression *expr = parse_expression (exp); register value_ptr val; register struct cleanup *old_chain = make_cleanup (free_current_contents, &expr); val = evaluate_expression (expr); do_cleanups (old_chain); return val; } /* Parse up to a comma (or to a closeparen) in the string EXPP as an expression, evaluate it, and return the value. EXPP is advanced to point to the comma. */ value_ptr parse_to_comma_and_eval (expp) char **expp; { struct expression *expr = parse_exp_1 (expp, (struct block *) 0, 1); register value_ptr val; register struct cleanup *old_chain = make_cleanup (free_current_contents, &expr); val = evaluate_expression (expr); do_cleanups (old_chain); return val; } /* Evaluate an expression in internal prefix form such as is constructed by parse.y. See expression.h for info on the format of an expression. */ value_ptr evaluate_expression (exp) struct expression *exp; { int pc = 0; return evaluate_subexp (NULL_TYPE, exp, &pc, EVAL_NORMAL); } /* Evaluate an expression, avoiding all memory references and getting a value whose type alone is correct. */ value_ptr evaluate_type (exp) struct expression *exp; { int pc = 0; return evaluate_subexp (NULL_TYPE, exp, &pc, EVAL_AVOID_SIDE_EFFECTS); } static value_ptr evaluate_subexp (expect_type, exp, pos, noside) struct type *expect_type; register struct expression *exp; register int *pos; enum noside noside; { enum exp_opcode op; int tem, tem2, tem3; register int pc, pc2 = 0, oldpos; register value_ptr arg1 = NULL, arg2 = NULL, arg3; struct type *type; int nargs; value_ptr *argvec; pc = (*pos)++; op = exp->elts[pc].opcode; switch (op) { case OP_SCOPE: tem = longest_to_int (exp->elts[pc + 2].longconst); (*pos) += 4 + BYTES_TO_EXP_ELEM (tem + 1); arg1 = value_struct_elt_for_reference (exp->elts[pc + 1].type, 0, exp->elts[pc + 1].type, &exp->elts[pc + 3].string, expect_type); if (arg1 == NULL) error ("There is no field named %s", &exp->elts[pc + 3].string); return arg1; case OP_LONG: (*pos) += 3; return value_from_longest (exp->elts[pc + 1].type, exp->elts[pc + 2].longconst); case OP_DOUBLE: (*pos) += 3; return value_from_double (exp->elts[pc + 1].type, exp->elts[pc + 2].doubleconst); case OP_VAR_VALUE: (*pos) += 3; if (noside == EVAL_SKIP) goto nosideret; if (noside == EVAL_AVOID_SIDE_EFFECTS) { struct symbol * sym = exp->elts[pc + 2].symbol; enum lval_type lv; switch (SYMBOL_CLASS (sym)) { case LOC_CONST: case LOC_LABEL: case LOC_CONST_BYTES: lv = not_lval; break; case LOC_REGISTER: case LOC_REGPARM: lv = lval_register; break; default: lv = lval_memory; break; } return value_zero (SYMBOL_TYPE (sym), lv); } else return value_of_variable (exp->elts[pc + 2].symbol, exp->elts[pc + 1].block); case OP_LAST: (*pos) += 2; return access_value_history (longest_to_int (exp->elts[pc + 1].longconst)); case OP_REGISTER: (*pos) += 2; return value_of_register (longest_to_int (exp->elts[pc + 1].longconst)); case OP_BOOL: (*pos) += 2; return value_from_longest (builtin_type_chill_bool, exp->elts[pc + 1].longconst); case OP_INTERNALVAR: (*pos) += 2; return value_of_internalvar (exp->elts[pc + 1].internalvar); case OP_STRING: tem = longest_to_int (exp->elts[pc + 1].longconst); (*pos) += 3 + BYTES_TO_EXP_ELEM (tem + 1); if (noside == EVAL_SKIP) goto nosideret; return value_string (&exp->elts[pc + 2].string, tem); case OP_BITSTRING: error ("support for OP_BITSTRING unimplemented"); break; case OP_ARRAY: (*pos) += 3; tem2 = longest_to_int (exp->elts[pc + 1].longconst); tem3 = longest_to_int (exp->elts[pc + 2].longconst); nargs = tem3 - tem2 + 1; argvec = (value_ptr *) alloca (sizeof (value_ptr) * nargs); for (tem = 0; tem < nargs; tem++) { /* Ensure that array expressions are coerced into pointer objects. */ argvec[tem] = evaluate_subexp_with_coercion (exp, pos, noside); } if (noside == EVAL_SKIP) goto nosideret; return (value_array (tem2, tem3, argvec)); break; case TERNOP_COND: /* Skip third and second args to evaluate the first one. */ arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (value_logical_not (arg1)) { evaluate_subexp (NULL_TYPE, exp, pos, EVAL_SKIP); return evaluate_subexp (NULL_TYPE, exp, pos, noside); } else { arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); evaluate_subexp (NULL_TYPE, exp, pos, EVAL_SKIP); return arg2; } case OP_FUNCALL: (*pos) += 2; op = exp->elts[*pos].opcode; if (op == STRUCTOP_MEMBER || op == STRUCTOP_MPTR) { int fnptr; nargs = longest_to_int (exp->elts[pc + 1].longconst) + 1; /* First, evaluate the structure into arg2 */ pc2 = (*pos)++; if (noside == EVAL_SKIP) goto nosideret; if (op == STRUCTOP_MEMBER) { arg2 = evaluate_subexp_for_address (exp, pos, noside); } else { arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); } /* If the function is a virtual function, then the aggregate value (providing the structure) plays its part by providing the vtable. Otherwise, it is just along for the ride: call the function directly. */ arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); fnptr = longest_to_int (value_as_long (arg1)); if (METHOD_PTR_IS_VIRTUAL(fnptr)) { int fnoffset = METHOD_PTR_TO_VOFFSET(fnptr); struct type *basetype; struct type *domain_type = TYPE_DOMAIN_TYPE (TYPE_TARGET_TYPE (VALUE_TYPE (arg1))); int i, j; basetype = TYPE_TARGET_TYPE (VALUE_TYPE (arg2)); if (domain_type != basetype) arg2 = value_cast(lookup_pointer_type (domain_type), arg2); basetype = TYPE_VPTR_BASETYPE (domain_type); for (i = TYPE_NFN_FIELDS (basetype) - 1; i >= 0; i--) { struct fn_field *f = TYPE_FN_FIELDLIST1 (basetype, i); /* If one is virtual, then all are virtual. */ if (TYPE_FN_FIELD_VIRTUAL_P (f, 0)) for (j = TYPE_FN_FIELDLIST_LENGTH (basetype, i) - 1; j >= 0; --j) if (TYPE_FN_FIELD_VOFFSET (f, j) == fnoffset) { value_ptr temp = value_ind (arg2); arg1 = value_virtual_fn_field (&temp, f, j, domain_type, 0); arg2 = value_addr (temp); goto got_it; } } if (i < 0) error ("virtual function at index %d not found", fnoffset); } else { VALUE_TYPE (arg1) = lookup_pointer_type (TYPE_TARGET_TYPE (VALUE_TYPE (arg1))); } got_it: /* Now, say which argument to start evaluating from */ tem = 2; } else if (op == STRUCTOP_STRUCT || op == STRUCTOP_PTR) { /* Hair for method invocations */ int tem2; nargs = longest_to_int (exp->elts[pc + 1].longconst) + 1; /* First, evaluate the structure into arg2 */ pc2 = (*pos)++; tem2 = longest_to_int (exp->elts[pc2 + 1].longconst); *pos += 3 + BYTES_TO_EXP_ELEM (tem2 + 1); if (noside == EVAL_SKIP) goto nosideret; if (op == STRUCTOP_STRUCT) { /* If v is a variable in a register, and the user types v.method (), this will produce an error, because v has no address. A possible way around this would be to allocate a copy of the variable on the stack, copy in the contents, call the function, and copy out the contents. I.e. convert this from call by reference to call by copy-return (or whatever it's called). However, this does not work because it is not the same: the method being called could stash a copy of the address, and then future uses through that address (after the method returns) would be expected to use the variable itself, not some copy of it. */ arg2 = evaluate_subexp_for_address (exp, pos, noside); } else { arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); } /* Now, say which argument to start evaluating from */ tem = 2; } else { nargs = longest_to_int (exp->elts[pc + 1].longconst); tem = 0; } /* Allocate arg vector, including space for the function to be called in argvec[0] and a terminating NULL */ argvec = (value_ptr *) alloca (sizeof (value_ptr) * (nargs + 2)); for (; tem <= nargs; tem++) /* Ensure that array expressions are coerced into pointer objects. */ argvec[tem] = evaluate_subexp_with_coercion (exp, pos, noside); /* signal end of arglist */ argvec[tem] = 0; if (op == STRUCTOP_STRUCT || op == STRUCTOP_PTR) { int static_memfuncp; value_ptr temp = arg2; char tstr[64]; argvec[1] = arg2; argvec[0] = 0; strcpy(tstr, &exp->elts[pc2+2].string); if (!argvec[0]) { temp = arg2; argvec[0] = value_struct_elt (&temp, argvec+1, tstr, &static_memfuncp, op == STRUCTOP_STRUCT ? "structure" : "structure pointer"); } arg2 = value_from_longest (lookup_pointer_type(VALUE_TYPE (temp)), VALUE_ADDRESS (temp)+VALUE_OFFSET (temp)); argvec[1] = arg2; if (static_memfuncp) { argvec[1] = argvec[0]; nargs--; argvec++; } } else if (op == STRUCTOP_MEMBER || op == STRUCTOP_MPTR) { argvec[1] = arg2; argvec[0] = arg1; } if (noside == EVAL_SKIP) goto nosideret; if (noside == EVAL_AVOID_SIDE_EFFECTS) { /* If the return type doesn't look like a function type, call an error. This can happen if somebody tries to turn a variable into a function call. This is here because people often want to call, eg, strcmp, which gdb doesn't know is a function. If gdb isn't asked for it's opinion (ie. through "whatis"), it won't offer it. */ struct type *ftype = TYPE_TARGET_TYPE (VALUE_TYPE (argvec[0])); if (ftype) return allocate_value (TYPE_TARGET_TYPE (VALUE_TYPE (argvec[0]))); else error ("Expression of type other than \"Function returning ...\" used as function"); } return call_function_by_hand (argvec[0], nargs, argvec + 1); case STRUCTOP_STRUCT: tem = longest_to_int (exp->elts[pc + 1].longconst); (*pos) += 3 + BYTES_TO_EXP_ELEM (tem + 1); arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (noside == EVAL_AVOID_SIDE_EFFECTS) return value_zero (lookup_struct_elt_type (VALUE_TYPE (arg1), &exp->elts[pc + 2].string, 0), lval_memory); else { value_ptr temp = arg1; return value_struct_elt (&temp, NULL, &exp->elts[pc + 2].string, NULL, "structure"); } case STRUCTOP_PTR: tem = longest_to_int (exp->elts[pc + 1].longconst); (*pos) += 3 + BYTES_TO_EXP_ELEM (tem + 1); arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (noside == EVAL_AVOID_SIDE_EFFECTS) return value_zero (lookup_struct_elt_type (VALUE_TYPE (arg1), &exp->elts[pc + 2].string, 0), lval_memory); else { value_ptr temp = arg1; return value_struct_elt (&temp, NULL, &exp->elts[pc + 2].string, NULL, "structure pointer"); } case STRUCTOP_MEMBER: arg1 = evaluate_subexp_for_address (exp, pos, noside); goto handle_pointer_to_member; case STRUCTOP_MPTR: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); handle_pointer_to_member: arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (TYPE_CODE (VALUE_TYPE (arg2)) != TYPE_CODE_PTR) goto bad_pointer_to_member; type = TYPE_TARGET_TYPE (VALUE_TYPE (arg2)); if (TYPE_CODE (type) == TYPE_CODE_METHOD) error ("not implemented: pointer-to-method in pointer-to-member construct"); if (TYPE_CODE (type) != TYPE_CODE_MEMBER) goto bad_pointer_to_member; /* Now, convert these values to an address. */ arg1 = value_cast (lookup_pointer_type (TYPE_DOMAIN_TYPE (type)), arg1); arg3 = value_from_longest (lookup_pointer_type (TYPE_TARGET_TYPE (type)), value_as_long (arg1) + value_as_long (arg2)); return value_ind (arg3); bad_pointer_to_member: error("non-pointer-to-member value used in pointer-to-member construct"); case BINOP_CONCAT: arg1 = evaluate_subexp_with_coercion (exp, pos, noside); arg2 = evaluate_subexp_with_coercion (exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) return value_x_binop (arg1, arg2, op, OP_NULL); else return value_concat (arg1, arg2); case BINOP_ASSIGN: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside); if (noside == EVAL_SKIP || noside == EVAL_AVOID_SIDE_EFFECTS) return arg1; if (binop_user_defined_p (op, arg1, arg2)) return value_x_binop (arg1, arg2, op, OP_NULL); else return value_assign (arg1, arg2); case BINOP_ASSIGN_MODIFY: (*pos) += 2; arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside); if (noside == EVAL_SKIP || noside == EVAL_AVOID_SIDE_EFFECTS) return arg1; op = exp->elts[pc + 1].opcode; if (binop_user_defined_p (op, arg1, arg2)) return value_x_binop (arg1, arg2, BINOP_ASSIGN_MODIFY, op); else if (op == BINOP_ADD) arg2 = value_add (arg1, arg2); else if (op == BINOP_SUB) arg2 = value_sub (arg1, arg2); else arg2 = value_binop (arg1, arg2, op); return value_assign (arg1, arg2); case BINOP_ADD: arg1 = evaluate_subexp_with_coercion (exp, pos, noside); arg2 = evaluate_subexp_with_coercion (exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) return value_x_binop (arg1, arg2, op, OP_NULL); else return value_add (arg1, arg2); case BINOP_SUB: arg1 = evaluate_subexp_with_coercion (exp, pos, noside); arg2 = evaluate_subexp_with_coercion (exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) return value_x_binop (arg1, arg2, op, OP_NULL); else return value_sub (arg1, arg2); case BINOP_MUL: case BINOP_DIV: case BINOP_REM: case BINOP_MOD: case BINOP_LSH: case BINOP_RSH: case BINOP_BITWISE_AND: case BINOP_BITWISE_IOR: case BINOP_BITWISE_XOR: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) return value_x_binop (arg1, arg2, op, OP_NULL); else if (noside == EVAL_AVOID_SIDE_EFFECTS && (op == BINOP_DIV || op == BINOP_REM || op == BINOP_MOD)) return value_zero (VALUE_TYPE (arg1), not_lval); else return value_binop (arg1, arg2, op); case BINOP_SUBSCRIPT: arg1 = evaluate_subexp_with_coercion (exp, pos, noside); arg2 = evaluate_subexp_with_coercion (exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (noside == EVAL_AVOID_SIDE_EFFECTS) { /* If the user attempts to subscript something that has no target type (like a plain int variable for example), then report this as an error. */ type = TYPE_TARGET_TYPE (VALUE_TYPE (arg1)); if (type) return value_zero (type, VALUE_LVAL (arg1)); else error ("cannot subscript something of type `%s'", TYPE_NAME (VALUE_TYPE (arg1))); } if (binop_user_defined_p (op, arg1, arg2)) return value_x_binop (arg1, arg2, op, OP_NULL); else return value_subscript (arg1, arg2); case BINOP_IN: arg1 = evaluate_subexp_with_coercion (exp, pos, noside); arg2 = evaluate_subexp_with_coercion (exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; return value_in (arg1, arg2); case MULTI_SUBSCRIPT: (*pos) += 2; nargs = longest_to_int (exp->elts[pc + 1].longconst); arg1 = evaluate_subexp_with_coercion (exp, pos, noside); while (nargs-- > 0) { arg2 = evaluate_subexp_with_coercion (exp, pos, noside); /* FIXME: EVAL_SKIP handling may not be correct. */ if (noside == EVAL_SKIP) { if (nargs > 0) { continue; } else { goto nosideret; } } /* FIXME: EVAL_AVOID_SIDE_EFFECTS handling may not be correct. */ if (noside == EVAL_AVOID_SIDE_EFFECTS) { /* If the user attempts to subscript something that has no target type (like a plain int variable for example), then report this as an error. */ type = TYPE_TARGET_TYPE (VALUE_TYPE (arg1)); if (type != NULL) { arg1 = value_zero (type, VALUE_LVAL (arg1)); noside = EVAL_SKIP; continue; } else { error ("cannot subscript something of type `%s'", TYPE_NAME (VALUE_TYPE (arg1))); } } if (binop_user_defined_p (op, arg1, arg2)) { arg1 = value_x_binop (arg1, arg2, op, OP_NULL); } else { arg1 = value_subscript (arg1, arg2); } } return (arg1); case BINOP_LOGICAL_AND: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) { arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); goto nosideret; } oldpos = *pos; arg2 = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS); *pos = oldpos; if (binop_user_defined_p (op, arg1, arg2)) { arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); return value_x_binop (arg1, arg2, op, OP_NULL); } else { tem = value_logical_not (arg1); arg2 = evaluate_subexp (NULL_TYPE, exp, pos, (tem ? EVAL_SKIP : noside)); return value_from_longest (builtin_type_int, (LONGEST) (!tem && !value_logical_not (arg2))); } case BINOP_LOGICAL_OR: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) { arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); goto nosideret; } oldpos = *pos; arg2 = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS); *pos = oldpos; if (binop_user_defined_p (op, arg1, arg2)) { arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); return value_x_binop (arg1, arg2, op, OP_NULL); } else { tem = value_logical_not (arg1); arg2 = evaluate_subexp (NULL_TYPE, exp, pos, (!tem ? EVAL_SKIP : noside)); return value_from_longest (builtin_type_int, (LONGEST) (!tem || !value_logical_not (arg2))); } case BINOP_EQUAL: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) { return value_x_binop (arg1, arg2, op, OP_NULL); } else { tem = value_equal (arg1, arg2); return value_from_longest (builtin_type_int, (LONGEST) tem); } case BINOP_NOTEQUAL: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) { return value_x_binop (arg1, arg2, op, OP_NULL); } else { tem = value_equal (arg1, arg2); return value_from_longest (builtin_type_int, (LONGEST) ! tem); } case BINOP_LESS: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) { return value_x_binop (arg1, arg2, op, OP_NULL); } else { tem = value_less (arg1, arg2); return value_from_longest (builtin_type_int, (LONGEST) tem); } case BINOP_GTR: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) { return value_x_binop (arg1, arg2, op, OP_NULL); } else { tem = value_less (arg2, arg1); return value_from_longest (builtin_type_int, (LONGEST) tem); } case BINOP_GEQ: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) { return value_x_binop (arg1, arg2, op, OP_NULL); } else { tem = value_less (arg2, arg1) || value_equal (arg1, arg2); return value_from_longest (builtin_type_int, (LONGEST) tem); } case BINOP_LEQ: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (VALUE_TYPE (arg1), exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (binop_user_defined_p (op, arg1, arg2)) { return value_x_binop (arg1, arg2, op, OP_NULL); } else { tem = value_less (arg1, arg2) || value_equal (arg1, arg2); return value_from_longest (builtin_type_int, (LONGEST) tem); } case BINOP_REPEAT: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg2 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (TYPE_CODE (VALUE_TYPE (arg2)) != TYPE_CODE_INT) error ("Non-integral right operand for \"@\" operator."); if (noside == EVAL_AVOID_SIDE_EFFECTS) return allocate_repeat_value (VALUE_TYPE (arg1), longest_to_int (value_as_long (arg2))); else return value_repeat (arg1, longest_to_int (value_as_long (arg2))); case BINOP_COMMA: evaluate_subexp (NULL_TYPE, exp, pos, noside); return evaluate_subexp (NULL_TYPE, exp, pos, noside); case UNOP_NEG: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (unop_user_defined_p (op, arg1)) return value_x_unop (arg1, op); else return value_neg (arg1); case UNOP_COMPLEMENT: /* C++: check for and handle destructor names. */ op = exp->elts[*pos].opcode; arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (unop_user_defined_p (UNOP_COMPLEMENT, arg1)) return value_x_unop (arg1, UNOP_COMPLEMENT); else return value_complement (arg1); case UNOP_LOGICAL_NOT: arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (unop_user_defined_p (op, arg1)) return value_x_unop (arg1, op); else return value_from_longest (builtin_type_int, (LONGEST) value_logical_not (arg1)); case UNOP_IND: if (expect_type && TYPE_CODE (expect_type) == TYPE_CODE_PTR) expect_type = TYPE_TARGET_TYPE (expect_type); arg1 = evaluate_subexp (expect_type, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (noside == EVAL_AVOID_SIDE_EFFECTS) { if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_PTR || TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_REF /* In C you can dereference an array to get the 1st elt. */ || TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_ARRAY ) return value_zero (TYPE_TARGET_TYPE (VALUE_TYPE (arg1)), lval_memory); else if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_INT) /* GDB allows dereferencing an int. */ return value_zero (builtin_type_int, lval_memory); else error ("Attempt to take contents of a non-pointer value."); } return value_ind (arg1); case UNOP_ADDR: /* C++: check for and handle pointer to members. */ op = exp->elts[*pos].opcode; if (noside == EVAL_SKIP) { if (op == OP_SCOPE) { int temm = longest_to_int (exp->elts[pc+3].longconst); (*pos) += 3 + BYTES_TO_EXP_ELEM (temm + 1); } else evaluate_subexp (expect_type, exp, pos, EVAL_SKIP); goto nosideret; } return evaluate_subexp_for_address (exp, pos, noside); case UNOP_SIZEOF: if (noside == EVAL_SKIP) { evaluate_subexp (NULL_TYPE, exp, pos, EVAL_SKIP); goto nosideret; } return evaluate_subexp_for_sizeof (exp, pos); case UNOP_CAST: (*pos) += 2; arg1 = evaluate_subexp (expect_type, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; return value_cast (exp->elts[pc + 1].type, arg1); case UNOP_MEMVAL: (*pos) += 2; arg1 = evaluate_subexp (expect_type, exp, pos, noside); if (noside == EVAL_SKIP) goto nosideret; if (noside == EVAL_AVOID_SIDE_EFFECTS) return value_zero (exp->elts[pc + 1].type, lval_memory); else return value_at_lazy (exp->elts[pc + 1].type, value_as_pointer (arg1)); case UNOP_PREINCREMENT: arg1 = evaluate_subexp (expect_type, exp, pos, noside); if (noside == EVAL_SKIP || noside == EVAL_AVOID_SIDE_EFFECTS) return arg1; else if (unop_user_defined_p (op, arg1)) { return value_x_unop (arg1, op); } else { arg2 = value_add (arg1, value_from_longest (builtin_type_char, (LONGEST) 1)); return value_assign (arg1, arg2); } case UNOP_PREDECREMENT: arg1 = evaluate_subexp (expect_type, exp, pos, noside); if (noside == EVAL_SKIP || noside == EVAL_AVOID_SIDE_EFFECTS) return arg1; else if (unop_user_defined_p (op, arg1)) { return value_x_unop (arg1, op); } else { arg2 = value_sub (arg1, value_from_longest (builtin_type_char, (LONGEST) 1)); return value_assign (arg1, arg2); } case UNOP_POSTINCREMENT: arg1 = evaluate_subexp (expect_type, exp, pos, noside); if (noside == EVAL_SKIP || noside == EVAL_AVOID_SIDE_EFFECTS) return arg1; else if (unop_user_defined_p (op, arg1)) { return value_x_unop (arg1, op); } else { arg2 = value_add (arg1, value_from_longest (builtin_type_char, (LONGEST) 1)); value_assign (arg1, arg2); return arg1; } case UNOP_POSTDECREMENT: arg1 = evaluate_subexp (expect_type, exp, pos, noside); if (noside == EVAL_SKIP || noside == EVAL_AVOID_SIDE_EFFECTS) return arg1; else if (unop_user_defined_p (op, arg1)) { return value_x_unop (arg1, op); } else { arg2 = value_sub (arg1, value_from_longest (builtin_type_char, (LONGEST) 1)); value_assign (arg1, arg2); return arg1; } case OP_THIS: (*pos) += 1; return value_of_this (1); case OP_TYPE: error ("Attempt to use a type name as an expression"); default: /* Removing this case and compiling with gcc -Wall reveals that a lot of cases are hitting this case. Some of these should probably be removed from expression.h (e.g. do we need a BINOP_SCOPE and an OP_SCOPE?); others are legitimate expressions which are (apparently) not fully implemented. If there are any cases landing here which mean a user error, then they should be separate cases, with more descriptive error messages. */ error ("\ GDB does not (yet) know how to evaluated that kind of expression"); } nosideret: return value_from_longest (builtin_type_long, (LONGEST) 1); } /* Evaluate a subexpression of EXP, at index *POS, and return the address of that subexpression. Advance *POS over the subexpression. If the subexpression isn't an lvalue, get an error. NOSIDE may be EVAL_AVOID_SIDE_EFFECTS; then only the type of the result need be correct. */ static value_ptr evaluate_subexp_for_address (exp, pos, noside) register struct expression *exp; register int *pos; enum noside noside; { enum exp_opcode op; register int pc; struct symbol *var; pc = (*pos); op = exp->elts[pc].opcode; switch (op) { case UNOP_IND: (*pos)++; return evaluate_subexp (NULL_TYPE, exp, pos, noside); case UNOP_MEMVAL: (*pos) += 3; return value_cast (lookup_pointer_type (exp->elts[pc + 1].type), evaluate_subexp (NULL_TYPE, exp, pos, noside)); case OP_VAR_VALUE: var = exp->elts[pc + 2].symbol; /* C++: The "address" of a reference should yield the address * of the object pointed to. Let value_addr() deal with it. */ if (TYPE_CODE (SYMBOL_TYPE (var)) == TYPE_CODE_REF) goto default_case; (*pos) += 4; if (noside == EVAL_AVOID_SIDE_EFFECTS) { struct type *type = lookup_pointer_type (SYMBOL_TYPE (var)); enum address_class sym_class = SYMBOL_CLASS (var); if (sym_class == LOC_CONST || sym_class == LOC_CONST_BYTES || sym_class == LOC_REGISTER || sym_class == LOC_REGPARM) error ("Attempt to take address of register or constant."); return value_zero (type, not_lval); } else return locate_var_value (var, block_innermost_frame (exp->elts[pc + 1].block)); default: default_case: if (noside == EVAL_AVOID_SIDE_EFFECTS) { value_ptr x = evaluate_subexp (NULL_TYPE, exp, pos, noside); if (VALUE_LVAL (x) == lval_memory) return value_zero (lookup_pointer_type (VALUE_TYPE (x)), not_lval); else error ("Attempt to take address of non-lval"); } return value_addr (evaluate_subexp (NULL_TYPE, exp, pos, noside)); } } /* Evaluate like `evaluate_subexp' except coercing arrays to pointers. When used in contexts where arrays will be coerced anyway, this is equivalent to `evaluate_subexp' but much faster because it avoids actually fetching array contents (perhaps obsolete now that we have VALUE_LAZY). Note that we currently only do the coercion for C expressions, where arrays are zero based and the coercion is correct. For other languages, with nonzero based arrays, coercion loses. Use CAST_IS_CONVERSION to decide if coercion is appropriate. */ static value_ptr evaluate_subexp_with_coercion (exp, pos, noside) register struct expression *exp; register int *pos; enum noside noside; { register enum exp_opcode op; register int pc; register value_ptr val; struct symbol *var; pc = (*pos); op = exp->elts[pc].opcode; switch (op) { case OP_VAR_VALUE: var = exp->elts[pc + 2].symbol; if (TYPE_CODE (SYMBOL_TYPE (var)) == TYPE_CODE_ARRAY && CAST_IS_CONVERSION) { (*pos) += 4; val = locate_var_value (var, block_innermost_frame (exp->elts[pc + 1].block)); return value_cast (lookup_pointer_type (TYPE_TARGET_TYPE (SYMBOL_TYPE (var))), val); } /* FALLTHROUGH */ default: return evaluate_subexp (NULL_TYPE, exp, pos, noside); } } /* Evaluate a subexpression of EXP, at index *POS, and return a value for the size of that subexpression. Advance *POS over the subexpression. */ static value_ptr evaluate_subexp_for_sizeof (exp, pos) register struct expression *exp; register int *pos; { enum exp_opcode op; register int pc; value_ptr val; pc = (*pos); op = exp->elts[pc].opcode; switch (op) { /* This case is handled specially so that we avoid creating a value for the result type. If the result type is very big, it's desirable not to create a value unnecessarily. */ case UNOP_IND: (*pos)++; val = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS); return value_from_longest (builtin_type_int, (LONGEST) TYPE_LENGTH (TYPE_TARGET_TYPE (VALUE_TYPE (val)))); case UNOP_MEMVAL: (*pos) += 3; return value_from_longest (builtin_type_int, (LONGEST) TYPE_LENGTH (exp->elts[pc + 1].type)); case OP_VAR_VALUE: (*pos) += 4; return value_from_longest (builtin_type_int, (LONGEST) TYPE_LENGTH (SYMBOL_TYPE (exp->elts[pc + 2].symbol))); default: val = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS); return value_from_longest (builtin_type_int, (LONGEST) TYPE_LENGTH (VALUE_TYPE (val))); } } /* Parse a type expression in the string [P..P+LENGTH). */ struct type * parse_and_eval_type (p, length) char *p; int length; { char *tmp = (char *)alloca (length + 4); struct expression *expr; tmp[0] = '('; memcpy (tmp+1, p, length); tmp[length+1] = ')'; tmp[length+2] = '0'; tmp[length+3] = '\0'; expr = parse_expression (tmp); if (expr->elts[0].opcode != UNOP_CAST) error ("Internal error in eval_type."); return expr->elts[1].type; } gdb-4.13/gdb/exec.c 666 34562 1752 33763 5561737100 12421 0ustar fnfcygnus/* Work with executable files, for GDB. Copyright 1988, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "target.h" #include "gdbcmd.h" #include "language.h" #ifdef USG #include #endif #include #include #include #include "gdbcore.h" #include #include #ifndef O_BINARY #define O_BINARY 0 #endif /* Prototypes for local functions */ static void add_to_section_table PARAMS ((bfd *, sec_ptr, PTR)); static void exec_close PARAMS ((int)); static void file_command PARAMS ((char *, int)); static void set_section_command PARAMS ((char *, int)); static void exec_files_info PARAMS ((struct target_ops *)); extern int info_verbose; /* The Binary File Descriptor handle for the executable file. */ bfd *exec_bfd = NULL; /* Whether to open exec and core files read-only or read-write. */ int write_files = 0; /* Text start and end addresses (KLUDGE) if needed */ #ifdef NEED_TEXT_START_END CORE_ADDR text_start = 0; CORE_ADDR text_end = 0; #endif /* Forward decl */ extern struct target_ops exec_ops; /* ARGSUSED */ static void exec_close (quitting) int quitting; { if (exec_bfd) { char *name = bfd_get_filename (exec_bfd); bfd_close (exec_bfd); free (name); exec_bfd = NULL; } if (exec_ops.to_sections) { free ((PTR)exec_ops.to_sections); exec_ops.to_sections = NULL; exec_ops.to_sections_end = NULL; } } /* Process the first arg in ARGS as the new exec file. Note that we have to explicitly ignore additional args, since we can be called from file_command(), which also calls symbol_file_command() which can take multiple args. */ void exec_file_command (args, from_tty) char *args; int from_tty; { char **argv; char *filename; target_preopen (from_tty); /* Remove any previous exec file. */ unpush_target (&exec_ops); /* Now open and digest the file the user requested, if any. */ if (args) { char *scratch_pathname; int scratch_chan; /* Scan through the args and pick up the first non option arg as the filename. */ if ((argv = buildargv (args)) == NULL) { nomem (0); } make_cleanup (freeargv, (char *) argv); for (; (*argv != NULL) && (**argv == '-'); argv++) {;} if (*argv == NULL) { error ("no exec file name was specified"); } filename = tilde_expand (*argv); make_cleanup (free, filename); scratch_chan = openp (getenv ("PATH"), 1, filename, write_files? O_RDWR|O_BINARY: O_RDONLY|O_BINARY, 0, &scratch_pathname); if (scratch_chan < 0) perror_with_name (filename); exec_bfd = bfd_fdopenr (scratch_pathname, gnutarget, scratch_chan); if (!exec_bfd) error ("Could not open `%s' as an executable file: %s", scratch_pathname, bfd_errmsg (bfd_get_error ())); if (!bfd_check_format (exec_bfd, bfd_object)) { /* Make sure to close exec_bfd, or else "run" might try to use it. */ exec_close (0); error ("\"%s\": not in executable format: %s.", scratch_pathname, bfd_errmsg (bfd_get_error ())); } if (build_section_table (exec_bfd, &exec_ops.to_sections, &exec_ops.to_sections_end)) { /* Make sure to close exec_bfd, or else "run" might try to use it. */ exec_close (0); error ("Can't find the file sections in `%s': %s", exec_bfd->filename, bfd_errmsg (bfd_get_error ())); } #ifdef NEED_TEXT_START_END /* text_end is sometimes used for where to put call dummies. A few ports use these for other purposes too. */ { struct section_table *p; /* Set text_start to the lowest address of the start of any readonly code section and set text_end to the highest address of the end of any readonly code section. */ text_start = ~(CORE_ADDR)0; text_end = (CORE_ADDR)0; for (p = exec_ops.to_sections; p < exec_ops.to_sections_end; p++) if (bfd_get_section_flags (p->bfd, p->the_bfd_section) & (SEC_CODE | SEC_READONLY)) { if (text_start > p->addr) text_start = p->addr; if (text_end < p->endaddr) text_end = p->endaddr; } } #endif validate_files (); push_target (&exec_ops); /* Tell display code (if any) about the changed file name. */ if (exec_file_display_hook) (*exec_file_display_hook) (filename); } else if (from_tty) printf_unfiltered ("No exec file now.\n"); } /* Set both the exec file and the symbol file, in one command. What a novelty. Why did GDB go through four major releases before this command was added? */ static void file_command (arg, from_tty) char *arg; int from_tty; { /* FIXME, if we lose on reading the symbol file, we should revert the exec file, but that's rough. */ exec_file_command (arg, from_tty); symbol_file_command (arg, from_tty); } /* Locate all mappable sections of a BFD file. table_pp_char is a char * to get it through bfd_map_over_sections; we cast it back to its proper type. */ static void add_to_section_table (abfd, asect, table_pp_char) bfd *abfd; sec_ptr asect; PTR table_pp_char; { struct section_table **table_pp = (struct section_table **)table_pp_char; flagword aflag; aflag = bfd_get_section_flags (abfd, asect); if (!(aflag & SEC_ALLOC)) return; if (0 == bfd_section_size (abfd, asect)) return; (*table_pp)->bfd = abfd; (*table_pp)->the_bfd_section = asect; (*table_pp)->addr = bfd_section_vma (abfd, asect); (*table_pp)->endaddr = (*table_pp)->addr + bfd_section_size (abfd, asect); (*table_pp)++; } /* Builds a section table, given args BFD, SECTABLE_PTR, SECEND_PTR. Returns 0 if OK, 1 on error. */ int build_section_table (some_bfd, start, end) bfd *some_bfd; struct section_table **start, **end; { unsigned count; count = bfd_count_sections (some_bfd); if (*start) free ((PTR)*start); *start = (struct section_table *) xmalloc (count * sizeof (**start)); *end = *start; bfd_map_over_sections (some_bfd, add_to_section_table, (char *)end); if (*end > *start + count) abort(); /* We could realloc the table, but it probably loses for most files. */ return 0; } /* Read or write the exec file. Args are address within a BFD file, address within gdb address-space, length, and a flag indicating whether to read or write. Result is a length: 0: We cannot handle this address and length. > 0: We have handled N bytes starting at this address. (If N == length, we did it all.) We might be able to handle more bytes beyond this length, but no promises. < 0: We cannot handle this address, but if somebody else handles (-N) bytes, we can start from there. The same routine is used to handle both core and exec files; we just tail-call it with more arguments to select between them. */ int xfer_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; { boolean res; struct section_table *p; CORE_ADDR nextsectaddr, memend; boolean (*xfer_fn) PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type)); if (len <= 0) abort(); memend = memaddr + len; xfer_fn = write? bfd_set_section_contents: bfd_get_section_contents; nextsectaddr = memend; for (p = target->to_sections; p < target->to_sections_end; p++) { if (p->addr <= memaddr) if (p->endaddr >= memend) { /* Entire transfer is within this section. */ res = xfer_fn (p->bfd, p->the_bfd_section, myaddr, memaddr - p->addr, len); return (res != 0) ? len : 0; } else if (p->endaddr <= memaddr) { /* This section ends before the transfer starts. */ continue; } else { /* This section overlaps the transfer. Just do half. */ len = p->endaddr - memaddr; res = xfer_fn (p->bfd, p->the_bfd_section, myaddr, memaddr - p->addr, len); return (res != 0) ? len : 0; } else if (p->addr < nextsectaddr) nextsectaddr = p->addr; } if (nextsectaddr >= memend) return 0; /* We can't help */ else return - (nextsectaddr - memaddr); /* Next boundary where we can help */ } #ifdef FIXME #ifdef REG_STACK_SEGMENT /* MOVE TO BFD... */ /* Pyramids and AM29000s have an extra segment in the virtual address space for the (control) stack of register-window frames. The AM29000 folk call it the "register stack" rather than the "memory stack". */ else if (memaddr >= reg_stack_start && memaddr < reg_stack_end) { i = min (len, reg_stack_end - memaddr); fileptr = memaddr - reg_stack_start + reg_stack_offset; wanna_xfer = coredata; } #endif /* REG_STACK_SEGMENT */ #endif /* FIXME */ void print_section_info (t, abfd) struct target_ops *t; bfd *abfd; { struct section_table *p; printf_filtered ("\t`%s', ", bfd_get_filename(abfd)); wrap_here (" "); printf_filtered ("file type %s.\n", bfd_get_target(abfd)); if (abfd == exec_bfd) { printf_filtered ("\tEntry point: "); print_address_numeric (bfd_get_start_address (abfd), 1, gdb_stdout); printf_filtered ("\n"); } for (p = t->to_sections; p < t->to_sections_end; p++) { /* FIXME-32x64 need a print_address_numeric with field width */ printf_filtered ("\t%s", local_hex_string_custom ((unsigned long) p->addr, "08l")); printf_filtered (" - %s", local_hex_string_custom ((unsigned long) p->endaddr, "08l")); if (info_verbose) printf_filtered (" @ %s", local_hex_string_custom ((unsigned long) p->the_bfd_section->filepos, "08l")); printf_filtered (" is %s", bfd_section_name (p->bfd, p->the_bfd_section)); if (p->bfd != abfd) { printf_filtered (" in %s", bfd_get_filename (p->bfd)); } printf_filtered ("\n"); } } static void exec_files_info (t) struct target_ops *t; { print_section_info (t, exec_bfd); } static void set_section_command (args, from_tty) char *args; int from_tty; { struct section_table *p; char *secname; unsigned seclen; unsigned long secaddr; char secprint[100]; long offset; if (args == 0) error ("Must specify section name and its virtual address"); /* Parse out section name */ for (secname = args; !isspace(*args); args++) ; seclen = args - secname; /* Parse out new virtual address */ secaddr = parse_and_eval_address (args); for (p = exec_ops.to_sections; p < exec_ops.to_sections_end; p++) { if (!strncmp (secname, bfd_section_name (exec_bfd, p->the_bfd_section), seclen) && bfd_section_name (exec_bfd, p->the_bfd_section)[seclen] == '\0') { offset = secaddr - p->addr; p->addr += offset; p->endaddr += offset; if (from_tty) exec_files_info(&exec_ops); return; } } if (seclen >= sizeof (secprint)) seclen = sizeof (secprint) - 1; strncpy (secprint, secname, seclen); secprint[seclen] = '\0'; error ("Section %s not found", secprint); } /* If mourn is being called in all the right places, this could be say `gdb internal error' (since generic_mourn calls breakpoint_init_inferior). */ static int ignore (addr, contents) CORE_ADDR addr; char *contents; { return 0; } struct target_ops exec_ops = { "exec", "Local exec file", "Use an executable file as a target.\n\ Specify the filename of the executable file.", exec_file_command, exec_close, /* open, close */ find_default_attach, 0, 0, 0, /* attach, detach, resume, wait, */ 0, 0, /* fetch_registers, store_registers, */ 0, /* prepare_to_store, */ xfer_memory, exec_files_info, ignore, ignore, /* insert_breakpoint, remove_breakpoint, */ 0, 0, 0, 0, 0, /* terminal stuff */ 0, 0, /* kill, load */ 0, /* lookup sym */ find_default_create_inferior, 0, /* mourn_inferior */ 0, /* can_run */ 0, /* notice_signals */ file_stratum, 0, /* next */ 0, 1, 0, 0, 0, /* all mem, mem, stack, regs, exec */ 0, 0, /* section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_exec() { struct cmd_list_element *c; c = add_cmd ("file", class_files, file_command, "Use FILE as program to be debugged.\n\ It is read for its symbols, for getting the contents of pure memory,\n\ and it is the program executed when you use the `run' command.\n\ If FILE cannot be found as specified, your execution directory path\n\ ($PATH) is searched for a command of that name.\n\ No arg means to have no executable file and no symbols.", &cmdlist); c->completer = filename_completer; c = add_cmd ("exec-file", class_files, exec_file_command, "Use FILE as program for getting contents of pure memory.\n\ If FILE cannot be found as specified, your execution directory path\n\ is searched for a command of that name.\n\ No arg means have no executable file.", &cmdlist); c->completer = filename_completer; add_com ("section", class_files, set_section_command, "Change the base address of section SECTION of the exec file to ADDR.\n\ This can be used if the exec file does not contain section addresses,\n\ (such as in the a.out format), or when the addresses specified in the\n\ file itself are wrong. Each section must be changed separately. The\n\ ``info files'' command lists all the sections and their addresses."); add_show_from_set (add_set_cmd ("write", class_support, var_boolean, (char *)&write_files, "Set writing into executable and core files.", &setlist), &showlist); add_target (&exec_ops); } gdb-4.13/gdb/expprint.c 666 34562 1752 47265 5535232752 13354 0ustar fnfcygnus/* Print in infix form a struct expression. Copyright (C) 1986, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "value.h" #include "language.h" #include "parser-defs.h" /* Prototypes for local functions */ static void print_subexp PARAMS ((struct expression *, int *, GDB_FILE *, enum precedence)); static void print_simple_m2_func PARAMS ((char *, struct expression *, int *, GDB_FILE *)); void print_expression (exp, stream) struct expression *exp; GDB_FILE *stream; { int pc = 0; print_subexp (exp, &pc, stream, PREC_NULL); } /* Print the subexpression of EXP that starts in position POS, on STREAM. PREC is the precedence of the surrounding operator; if the precedence of the main operator of this subexpression is less, parentheses are needed here. */ static void print_subexp (exp, pos, stream, prec) register struct expression *exp; register int *pos; GDB_FILE *stream; enum precedence prec; { register unsigned tem; register const struct op_print *op_print_tab; register int pc; unsigned nargs; register char *op_str; int assign_modify = 0; enum exp_opcode opcode; enum precedence myprec = PREC_NULL; /* Set to 1 for a right-associative operator. */ int assoc = 0; value_ptr val; char *tempstr = NULL; op_print_tab = exp->language_defn->la_op_print_tab; pc = (*pos)++; opcode = exp->elts[pc].opcode; switch (opcode) { /* Common ops */ case OP_SCOPE: myprec = PREC_PREFIX; assoc = 0; fputs_filtered (type_name_no_tag (exp->elts[pc + 1].type), stream); fputs_filtered ("::", stream); nargs = longest_to_int (exp->elts[pc + 2].longconst); (*pos) += 4 + BYTES_TO_EXP_ELEM (nargs + 1); fputs_filtered (&exp->elts[pc + 3].string, stream); return; case OP_LONG: (*pos) += 3; value_print (value_from_longest (exp->elts[pc + 1].type, exp->elts[pc + 2].longconst), stream, 0, Val_no_prettyprint); return; case OP_DOUBLE: (*pos) += 3; value_print (value_from_double (exp->elts[pc + 1].type, exp->elts[pc + 2].doubleconst), stream, 0, Val_no_prettyprint); return; case OP_VAR_VALUE: { struct block *b; (*pos) += 3; b = exp->elts[pc + 1].block; if (b != NULL && BLOCK_FUNCTION (b) != NULL && SYMBOL_SOURCE_NAME (BLOCK_FUNCTION (b)) != NULL) { fputs_filtered (SYMBOL_SOURCE_NAME (BLOCK_FUNCTION (b)), stream); fputs_filtered ("::", stream); } fputs_filtered (SYMBOL_SOURCE_NAME (exp->elts[pc + 2].symbol), stream); } return; case OP_LAST: (*pos) += 2; fprintf_filtered (stream, "$%d", longest_to_int (exp->elts[pc + 1].longconst)); return; case OP_REGISTER: (*pos) += 2; fprintf_filtered (stream, "$%s", reg_names[longest_to_int (exp->elts[pc + 1].longconst)]); return; case OP_BOOL: (*pos) += 2; fprintf_filtered (stream, "%s", longest_to_int (exp->elts[pc + 1].longconst) ? "TRUE" : "FALSE"); return; case OP_INTERNALVAR: (*pos) += 2; fprintf_filtered (stream, "$%s", internalvar_name (exp->elts[pc + 1].internalvar)); return; case OP_FUNCALL: (*pos) += 2; nargs = longest_to_int (exp->elts[pc + 1].longconst); print_subexp (exp, pos, stream, PREC_SUFFIX); fputs_filtered (" (", stream); for (tem = 0; tem < nargs; tem++) { if (tem != 0) fputs_filtered (", ", stream); print_subexp (exp, pos, stream, PREC_ABOVE_COMMA); } fputs_filtered (")", stream); return; case OP_STRING: nargs = longest_to_int (exp -> elts[pc + 1].longconst); (*pos) += 3 + BYTES_TO_EXP_ELEM (nargs + 1); /* LA_PRINT_STRING will print using the current repeat count threshold. If necessary, we can temporarily set it to zero, or pass it as an additional parameter to LA_PRINT_STRING. -fnf */ LA_PRINT_STRING (stream, &exp->elts[pc + 2].string, nargs, 0); return; case OP_BITSTRING: error ("support for OP_BITSTRING unimplemented"); break; case OP_ARRAY: (*pos) += 3; nargs = longest_to_int (exp->elts[pc + 2].longconst); nargs -= longest_to_int (exp->elts[pc + 1].longconst); nargs++; tem = 0; if (exp->elts[pc + 4].opcode == OP_LONG && exp->elts[pc + 5].type == builtin_type_char && exp->language_defn->la_language == language_c) { /* Attempt to print C character arrays using string syntax. Walk through the args, picking up one character from each of the OP_LONG expression elements. If any array element does not match our expection of what we should find for a simple string, revert back to array printing. Note that the last expression element is an explicit null terminator byte, which doesn't get printed. */ tempstr = alloca (nargs); pc += 4; while (tem < nargs) { if (exp->elts[pc].opcode != OP_LONG || exp->elts[pc + 1].type != builtin_type_char) { /* Not a simple array of char, use regular array printing. */ tem = 0; break; } else { tempstr[tem++] = longest_to_int (exp->elts[pc + 2].longconst); pc += 4; } } } if (tem > 0) { LA_PRINT_STRING (stream, tempstr, nargs - 1, 0); (*pos) = pc; } else { fputs_filtered (" {", stream); for (tem = 0; tem < nargs; tem++) { if (tem != 0) { fputs_filtered (", ", stream); } print_subexp (exp, pos, stream, PREC_ABOVE_COMMA); } fputs_filtered ("}", stream); } return; case TERNOP_COND: if ((int) prec > (int) PREC_COMMA) fputs_filtered ("(", stream); /* Print the subexpressions, forcing parentheses around any binary operations within them. This is more parentheses than are strictly necessary, but it looks clearer. */ print_subexp (exp, pos, stream, PREC_HYPER); fputs_filtered (" ? ", stream); print_subexp (exp, pos, stream, PREC_HYPER); fputs_filtered (" : ", stream); print_subexp (exp, pos, stream, PREC_HYPER); if ((int) prec > (int) PREC_COMMA) fputs_filtered (")", stream); return; case STRUCTOP_STRUCT: tem = longest_to_int (exp->elts[pc + 1].longconst); (*pos) += 3 + BYTES_TO_EXP_ELEM (tem + 1); print_subexp (exp, pos, stream, PREC_SUFFIX); fputs_filtered (".", stream); fputs_filtered (&exp->elts[pc + 2].string, stream); return; /* Will not occur for Modula-2 */ case STRUCTOP_PTR: tem = longest_to_int (exp->elts[pc + 1].longconst); (*pos) += 3 + BYTES_TO_EXP_ELEM (tem + 1); print_subexp (exp, pos, stream, PREC_SUFFIX); fputs_filtered ("->", stream); fputs_filtered (&exp->elts[pc + 2].string, stream); return; case BINOP_SUBSCRIPT: print_subexp (exp, pos, stream, PREC_SUFFIX); fputs_filtered ("[", stream); print_subexp (exp, pos, stream, PREC_ABOVE_COMMA); fputs_filtered ("]", stream); return; case UNOP_POSTINCREMENT: print_subexp (exp, pos, stream, PREC_SUFFIX); fputs_filtered ("++", stream); return; case UNOP_POSTDECREMENT: print_subexp (exp, pos, stream, PREC_SUFFIX); fputs_filtered ("--", stream); return; case UNOP_CAST: (*pos) += 2; if ((int) prec > (int) PREC_PREFIX) fputs_filtered ("(", stream); fputs_filtered ("(", stream); type_print (exp->elts[pc + 1].type, "", stream, 0); fputs_filtered (") ", stream); print_subexp (exp, pos, stream, PREC_PREFIX); if ((int) prec > (int) PREC_PREFIX) fputs_filtered (")", stream); return; case UNOP_MEMVAL: (*pos) += 2; if ((int) prec > (int) PREC_PREFIX) fputs_filtered ("(", stream); if (exp->elts[pc + 1].type->code == TYPE_CODE_FUNC && exp->elts[pc + 3].opcode == OP_LONG) { /* We have a minimal symbol fn, probably. It's encoded as a UNOP_MEMVAL (function-type) of an OP_LONG (int, address). Swallow the OP_LONG (including both its opcodes); ignore its type; print the value in the type of the MEMVAL. */ (*pos) += 4; val = value_at_lazy (exp->elts[pc + 1].type, (CORE_ADDR) exp->elts[pc + 5].longconst); value_print (val, stream, 0, Val_no_prettyprint); } else { fputs_filtered ("{", stream); type_print (exp->elts[pc + 1].type, "", stream, 0); fputs_filtered ("} ", stream); print_subexp (exp, pos, stream, PREC_PREFIX); } if ((int) prec > (int) PREC_PREFIX) fputs_filtered (")", stream); return; case BINOP_ASSIGN_MODIFY: opcode = exp->elts[pc + 1].opcode; (*pos) += 2; myprec = PREC_ASSIGN; assoc = 1; assign_modify = 1; op_str = "???"; for (tem = 0; op_print_tab[tem].opcode != OP_NULL; tem++) if (op_print_tab[tem].opcode == opcode) { op_str = op_print_tab[tem].string; break; } if (op_print_tab[tem].opcode != opcode) /* Not found; don't try to keep going because we don't know how to interpret further elements. */ error ("Invalid expression"); break; /* C++ ops */ case OP_THIS: ++(*pos); fputs_filtered ("this", stream); return; /* Modula-2 ops */ case MULTI_SUBSCRIPT: (*pos) += 2; nargs = longest_to_int (exp->elts[pc + 1].longconst); print_subexp (exp, pos, stream, PREC_SUFFIX); fprintf_unfiltered (stream, " ["); for (tem = 0; tem < nargs; tem++) { if (tem != 0) fprintf_unfiltered (stream, ", "); print_subexp (exp, pos, stream, PREC_ABOVE_COMMA); } fprintf_unfiltered (stream, "]"); return; case BINOP_VAL: (*pos)+=2; fprintf_unfiltered(stream,"VAL("); type_print(exp->elts[pc+1].type,"",stream,0); fprintf_unfiltered(stream,","); print_subexp(exp,pos,stream,PREC_PREFIX); fprintf_unfiltered(stream,")"); return; case UNOP_CAP: print_simple_m2_func("CAP",exp,pos,stream); return; case UNOP_CHR: print_simple_m2_func("CHR",exp,pos,stream); return; case UNOP_ORD: print_simple_m2_func("ORD",exp,pos,stream); return; case UNOP_ABS: print_simple_m2_func("ABS",exp,pos,stream); return; case UNOP_FLOAT: print_simple_m2_func("FLOAT",exp,pos,stream); return; case UNOP_HIGH: print_simple_m2_func("HIGH",exp,pos,stream); return; case UNOP_MAX: print_simple_m2_func("MAX",exp,pos,stream); return; case UNOP_MIN: print_simple_m2_func("MIN",exp,pos,stream); return; case UNOP_ODD: print_simple_m2_func("ODD",exp,pos,stream); return; case UNOP_TRUNC: print_simple_m2_func("TRUNC",exp,pos,stream); return; case BINOP_INCL: case BINOP_EXCL: error("print_subexp: Not implemented."); /* Default ops */ default: op_str = "???"; for (tem = 0; op_print_tab[tem].opcode != OP_NULL; tem++) if (op_print_tab[tem].opcode == opcode) { op_str = op_print_tab[tem].string; myprec = op_print_tab[tem].precedence; assoc = op_print_tab[tem].right_assoc; break; } if (op_print_tab[tem].opcode != opcode) /* Not found; don't try to keep going because we don't know how to interpret further elements. For example, this happens if opcode is OP_TYPE. */ error ("Invalid expression"); } if ((int) myprec < (int) prec) fputs_filtered ("(", stream); if ((int) opcode > (int) BINOP_END) { /* Unary prefix operator. */ fputs_filtered (op_str, stream); print_subexp (exp, pos, stream, PREC_PREFIX); } else { /* Binary operator. */ /* Print left operand. If operator is right-associative, increment precedence for this operand. */ print_subexp (exp, pos, stream, (enum precedence) ((int) myprec + assoc)); /* Print the operator itself. */ if (assign_modify) fprintf_filtered (stream, " %s= ", op_str); else if (op_str[0] == ',') fprintf_filtered (stream, "%s ", op_str); else fprintf_filtered (stream, " %s ", op_str); /* Print right operand. If operator is left-associative, increment precedence for this operand. */ print_subexp (exp, pos, stream, (enum precedence) ((int) myprec + !assoc)); } if ((int) myprec < (int) prec) fputs_filtered (")", stream); } /* Print out something of the form (). This is used to print out some builtin Modula-2 functions. FIXME: There is probably some way to get the precedence rules to do this (print a unary operand with parens around it). */ static void print_simple_m2_func(s,exp,pos,stream) char *s; register struct expression *exp; register int *pos; GDB_FILE *stream; { fprintf_unfiltered(stream,"%s(",s); print_subexp(exp,pos,stream,PREC_PREFIX); fprintf_unfiltered(stream,")"); } /* Return the operator corresponding to opcode OP as a string. NULL indicates that the opcode was not found in the current language table. */ char * op_string(op) enum exp_opcode op; { int tem; register const struct op_print *op_print_tab; op_print_tab = current_language->la_op_print_tab; for (tem = 0; op_print_tab[tem].opcode != OP_NULL; tem++) if (op_print_tab[tem].opcode == op) return op_print_tab[tem].string; return NULL; } #ifdef DEBUG_EXPRESSIONS /* Support for dumping the raw data from expressions in a human readable form. */ void dump_expression (exp, stream, note) struct expression *exp; GDB_FILE *stream; char *note; { int elt; char *opcode_name; char *eltscan; int eltsize; fprintf_filtered (stream, "Dump of expression @ "); gdb_print_address (exp, stream); fprintf_filtered (stream, ", %s:\n", note); fprintf_filtered (stream, "\tLanguage %s, %d elements, %d bytes each.\n", exp->language_defn->la_name, exp -> nelts, sizeof (union exp_element)); fprintf_filtered (stream, "\t%5s %20s %16s %s\n", "Index", "Opcode", "Hex Value", "String Value"); for (elt = 0; elt < exp -> nelts; elt++) { fprintf_filtered (stream, "\t%5d ", elt); switch (exp -> elts[elt].opcode) { default: opcode_name = ""; break; case OP_NULL: opcode_name = "OP_NULL"; break; case BINOP_ADD: opcode_name = "BINOP_ADD"; break; case BINOP_SUB: opcode_name = "BINOP_SUB"; break; case BINOP_MUL: opcode_name = "BINOP_MUL"; break; case BINOP_DIV: opcode_name = "BINOP_DIV"; break; case BINOP_REM: opcode_name = "BINOP_REM"; break; case BINOP_MOD: opcode_name = "BINOP_MOD"; break; case BINOP_LSH: opcode_name = "BINOP_LSH"; break; case BINOP_RSH: opcode_name = "BINOP_RSH"; break; case BINOP_LOGICAL_AND: opcode_name = "BINOP_LOGICAL_AND"; break; case BINOP_LOGICAL_OR: opcode_name = "BINOP_LOGICAL_OR"; break; case BINOP_BITWISE_AND: opcode_name = "BINOP_BITWISE_AND"; break; case BINOP_BITWISE_IOR: opcode_name = "BINOP_BITWISE_IOR"; break; case BINOP_BITWISE_XOR: opcode_name = "BINOP_BITWISE_XOR"; break; case BINOP_EQUAL: opcode_name = "BINOP_EQUAL"; break; case BINOP_NOTEQUAL: opcode_name = "BINOP_NOTEQUAL"; break; case BINOP_LESS: opcode_name = "BINOP_LESS"; break; case BINOP_GTR: opcode_name = "BINOP_GTR"; break; case BINOP_LEQ: opcode_name = "BINOP_LEQ"; break; case BINOP_GEQ: opcode_name = "BINOP_GEQ"; break; case BINOP_REPEAT: opcode_name = "BINOP_REPEAT"; break; case BINOP_ASSIGN: opcode_name = "BINOP_ASSIGN"; break; case BINOP_COMMA: opcode_name = "BINOP_COMMA"; break; case BINOP_SUBSCRIPT: opcode_name = "BINOP_SUBSCRIPT"; break; case MULTI_SUBSCRIPT: opcode_name = "MULTI_SUBSCRIPT"; break; case BINOP_EXP: opcode_name = "BINOP_EXP"; break; case BINOP_MIN: opcode_name = "BINOP_MIN"; break; case BINOP_MAX: opcode_name = "BINOP_MAX"; break; case BINOP_SCOPE: opcode_name = "BINOP_SCOPE"; break; case STRUCTOP_MEMBER: opcode_name = "STRUCTOP_MEMBER"; break; case STRUCTOP_MPTR: opcode_name = "STRUCTOP_MPTR"; break; case BINOP_INTDIV: opcode_name = "BINOP_INTDIV"; break; case BINOP_ASSIGN_MODIFY: opcode_name = "BINOP_ASSIGN_MODIFY"; break; case BINOP_VAL: opcode_name = "BINOP_VAL"; break; case BINOP_INCL: opcode_name = "BINOP_INCL"; break; case BINOP_EXCL: opcode_name = "BINOP_EXCL"; break; case BINOP_CONCAT: opcode_name = "BINOP_CONCAT"; break; case BINOP_END: opcode_name = "BINOP_END"; break; case TERNOP_COND: opcode_name = "TERNOP_COND"; break; case OP_LONG: opcode_name = "OP_LONG"; break; case OP_DOUBLE: opcode_name = "OP_DOUBLE"; break; case OP_VAR_VALUE: opcode_name = "OP_VAR_VALUE"; break; case OP_LAST: opcode_name = "OP_LAST"; break; case OP_REGISTER: opcode_name = "OP_REGISTER"; break; case OP_INTERNALVAR: opcode_name = "OP_INTERNALVAR"; break; case OP_FUNCALL: opcode_name = "OP_FUNCALL"; break; case OP_STRING: opcode_name = "OP_STRING"; break; case OP_BITSTRING: opcode_name = "OP_BITSTRING"; break; case OP_ARRAY: opcode_name = "OP_ARRAY"; break; case UNOP_CAST: opcode_name = "UNOP_CAST"; break; case UNOP_MEMVAL: opcode_name = "UNOP_MEMVAL"; break; case UNOP_NEG: opcode_name = "UNOP_NEG"; break; case UNOP_LOGICAL_NOT: opcode_name = "UNOP_LOGICAL_NOT"; break; case UNOP_COMPLEMENT: opcode_name = "UNOP_COMPLEMENT"; break; case UNOP_IND: opcode_name = "UNOP_IND"; break; case UNOP_ADDR: opcode_name = "UNOP_ADDR"; break; case UNOP_PREINCREMENT: opcode_name = "UNOP_PREINCREMENT"; break; case UNOP_POSTINCREMENT: opcode_name = "UNOP_POSTINCREMENT"; break; case UNOP_PREDECREMENT: opcode_name = "UNOP_PREDECREMENT"; break; case UNOP_POSTDECREMENT: opcode_name = "UNOP_POSTDECREMENT"; break; case UNOP_SIZEOF: opcode_name = "UNOP_SIZEOF"; break; case UNOP_PLUS: opcode_name = "UNOP_PLUS"; break; case UNOP_CAP: opcode_name = "UNOP_CAP"; break; case UNOP_CHR: opcode_name = "UNOP_CHR"; break; case UNOP_ORD: opcode_name = "UNOP_ORD"; break; case UNOP_ABS: opcode_name = "UNOP_ABS"; break; case UNOP_FLOAT: opcode_name = "UNOP_FLOAT"; break; case UNOP_HIGH: opcode_name = "UNOP_HIGH"; break; case UNOP_MAX: opcode_name = "UNOP_MAX"; break; case UNOP_MIN: opcode_name = "UNOP_MIN"; break; case UNOP_ODD: opcode_name = "UNOP_ODD"; break; case UNOP_TRUNC: opcode_name = "UNOP_TRUNC"; break; case OP_BOOL: opcode_name = "OP_BOOL"; break; case OP_M2_STRING: opcode_name = "OP_M2_STRING"; break; case STRUCTOP_STRUCT: opcode_name = "STRUCTOP_STRUCT"; break; case STRUCTOP_PTR: opcode_name = "STRUCTOP_PTR"; break; case OP_THIS: opcode_name = "OP_THIS"; break; case OP_SCOPE: opcode_name = "OP_SCOPE"; break; case OP_TYPE: opcode_name = "OP_TYPE"; break; } fprintf_filtered (stream, "%20s ", opcode_name); fprintf_filtered (stream, #if defined (PRINTF_HAS_LONG_LONG) "%ll16x ", #else "%l16x ", #endif exp -> elts[elt].longconst); for (eltscan = (char *) &exp->elts[elt], eltsize = sizeof (union exp_element) ; eltsize-- > 0; eltscan++) { fprintf_filtered (stream, "%c", isprint (*eltscan) ? (*eltscan & 0xFF) : '.'); } fprintf_filtered (stream, "\n"); } } #endif /* DEBUG_EXPRESSIONS */ gdb-4.13/gdb/expression.h 666 34562 1752 26205 5503240727 13672 0ustar fnfcygnus/* Definitions for expressions stored in reversed prefix form, for GDB. Copyright 1986, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (EXPRESSION_H) #define EXPRESSION_H 1 #ifdef __STDC__ struct block; /* Forward declaration for prototypes */ #endif /* Definitions for saved C expressions. */ /* An expression is represented as a vector of union exp_element's. Each exp_element is an opcode, except that some opcodes cause the following exp_element to be treated as a long or double constant or as a variable. The opcodes are obeyed, using a stack for temporaries. The value is left on the temporary stack at the end. */ /* When it is necessary to include a string, it can occupy as many exp_elements as it needs. We find the length of the string using strlen, divide to find out how many exp_elements are used up, and skip that many. Strings, like numbers, are indicated by the preceding opcode. */ enum exp_opcode { /* Used when it's necessary to pass an opcode which will be ignored, or to catch uninitialized values. */ OP_NULL, /* BINOP_... operate on two values computed by following subexpressions, replacing them by one result value. They take no immediate arguments. */ BINOP_ADD, /* + */ BINOP_SUB, /* - */ BINOP_MUL, /* * */ BINOP_DIV, /* / */ BINOP_REM, /* % */ BINOP_MOD, /* mod (Knuth 1.2.4) */ BINOP_LSH, /* << */ BINOP_RSH, /* >> */ BINOP_LOGICAL_AND, /* && */ BINOP_LOGICAL_OR, /* || */ BINOP_BITWISE_AND, /* & */ BINOP_BITWISE_IOR, /* | */ BINOP_BITWISE_XOR, /* ^ */ BINOP_EQUAL, /* == */ BINOP_NOTEQUAL, /* != */ BINOP_LESS, /* < */ BINOP_GTR, /* > */ BINOP_LEQ, /* <= */ BINOP_GEQ, /* >= */ BINOP_REPEAT, /* @ */ BINOP_ASSIGN, /* = */ BINOP_COMMA, /* , */ BINOP_SUBSCRIPT, /* x[y] */ BINOP_EXP, /* Exponentiation */ /* C++. */ BINOP_MIN, /* ? */ BINOP_SCOPE, /* :: */ /* STRUCTOP_MEMBER is used for pointer-to-member constructs. X . * Y translates into X STRUCTOP_MEMBER Y. */ STRUCTOP_MEMBER, /* STRUCTOP_MPTR is used for pointer-to-member constructs when X is a pointer instead of an aggregate. */ STRUCTOP_MPTR, /* end of C++. */ /* For Modula-2 integer division DIV */ BINOP_INTDIV, BINOP_ASSIGN_MODIFY, /* +=, -=, *=, and so on. The following exp_element is another opcode, a BINOP_, saying how to modify. Then comes another BINOP_ASSIGN_MODIFY, making three exp_elements in total. */ /* Modula-2 standard (binary) procedures*/ BINOP_VAL, BINOP_INCL, BINOP_EXCL, /* Concatenate two operands, such as character strings or bitstrings. If the first operand is a integer expression, then it means concatenate the second operand with itself that many times. */ BINOP_CONCAT, /* For Chill and Pascal. */ BINOP_IN, /* Returns 1 iff ARG1 IN ARG2. */ /* This must be the highest BINOP_ value, for expprint.c. */ BINOP_END, /* Operates on three values computed by following subexpressions. */ TERNOP_COND, /* ?: */ /* Multidimensional subscript operator, such as Modula-2 x[a,b,...]. The dimensionality is encoded in the operator, like the number of function arguments in OP_FUNCALL, I.E. . The value of the first following subexpression is subscripted by each of the next following subexpressions, one per dimension. */ MULTI_SUBSCRIPT, /* The OP_... series take immediate following arguments. After the arguments come another OP_... (the same one) so that the grouping can be recognized from the end. */ /* OP_LONG is followed by a type pointer in the next exp_element and the long constant value in the following exp_element. Then comes another OP_LONG. Thus, the operation occupies four exp_elements. */ OP_LONG, /* OP_DOUBLE is similar but takes a double constant instead of a long one. */ OP_DOUBLE, /* OP_VAR_VALUE takes one struct block * in the following element, and one struct symbol * in the following exp_element, followed by another OP_VAR_VALUE, making four exp_elements. If the block is non-NULL, evaluate the symbol relative to the innermost frame executing in that block; if the block is NULL use the selected frame. */ OP_VAR_VALUE, /* OP_LAST is followed by an integer in the next exp_element. The integer is zero for the last value printed, or it is the absolute number of a history element. With another OP_LAST at the end, this makes three exp_elements. */ OP_LAST, /* OP_REGISTER is followed by an integer in the next exp_element. This is the number of a register to fetch (as an int). With another OP_REGISTER at the end, this makes three exp_elements. */ OP_REGISTER, /* OP_INTERNALVAR is followed by an internalvar ptr in the next exp_element. With another OP_INTERNALVAR at the end, this makes three exp_elements. */ OP_INTERNALVAR, /* OP_FUNCALL is followed by an integer in the next exp_element. The integer is the number of args to the function call. That many plus one values from following subexpressions are used, the first one being the function. The integer is followed by a repeat of OP_FUNCALL, making three exp_elements. */ OP_FUNCALL, /* OP_STRING represents a string constant. Its format is the same as that of a STRUCTOP, but the string data is just made into a string constant when the operation is executed. */ OP_STRING, /* OP_BITSTRING represents a packed bitstring constant. Its format is the same as that of a STRUCTOP, but the bitstring data is just made into a bitstring constant when the operation is executed. */ OP_BITSTRING, /* OP_ARRAY creates an array constant out of the following subexpressions. It is followed by two exp_elements, the first containing an integer that is the lower bound of the array and the second containing another integer that is the upper bound of the array. The second integer is followed by a repeat of OP_ARRAY, making four exp_elements total. The bounds are used to compute the number of following subexpressions to consume, as well as setting the bounds in the created array constant. The type of the elements is taken from the type of the first subexp, and they must all match. */ OP_ARRAY, /* UNOP_CAST is followed by a type pointer in the next exp_element. With another UNOP_CAST at the end, this makes three exp_elements. It casts the value of the following subexpression. */ UNOP_CAST, /* UNOP_MEMVAL is followed by a type pointer in the next exp_element With another UNOP_MEMVAL at the end, this makes three exp_elements. It casts the contents of the word addressed by the value of the following subexpression. */ UNOP_MEMVAL, /* UNOP_... operate on one value from a following subexpression and replace it with a result. They take no immediate arguments. */ UNOP_NEG, /* Unary - */ UNOP_LOGICAL_NOT, /* Unary ! */ UNOP_COMPLEMENT, /* Unary ~ */ UNOP_IND, /* Unary * */ UNOP_ADDR, /* Unary & */ UNOP_PREINCREMENT, /* ++ before an expression */ UNOP_POSTINCREMENT, /* ++ after an expression */ UNOP_PREDECREMENT, /* -- before an expression */ UNOP_POSTDECREMENT, /* -- after an expression */ UNOP_SIZEOF, /* Unary sizeof (followed by expression) */ UNOP_PLUS, /* Unary plus */ UNOP_CAP, /* Modula-2 standard (unary) procedures */ UNOP_CHR, UNOP_ORD, UNOP_ABS, UNOP_FLOAT, UNOP_HIGH, UNOP_MAX, UNOP_MIN, UNOP_ODD, UNOP_TRUNC, OP_BOOL, /* Modula-2 builtin BOOLEAN type */ OP_M2_STRING, /* Modula-2 string constants */ /* STRUCTOP_... operate on a value from a following subexpression by extracting a structure component specified by a string that appears in the following exp_elements (as many as needed). STRUCTOP_STRUCT is used for "." and STRUCTOP_PTR for "->". They differ only in the error message given in case the value is not suitable or the structure component specified is not found. The length of the string follows the opcode, followed by BYTES_TO_EXP_ELEM(length) elements containing the data of the string, followed by the length again and the opcode again. */ STRUCTOP_STRUCT, STRUCTOP_PTR, /* C++ */ /* OP_THIS is just a placeholder for the class instance variable. It just comes in a tight (OP_THIS, OP_THIS) pair. */ OP_THIS, /* OP_SCOPE surrounds a type name and a field name. The type name is encoded as one element, but the field name stays as a string, which, of course, is variable length. */ OP_SCOPE, /* OP_TYPE is for parsing types, and used with the "ptype" command so we can look up types that are qualified by scope, either with the GDB "::" operator, or the Modula-2 '.' operator. */ OP_TYPE }; union exp_element { enum exp_opcode opcode; struct symbol *symbol; LONGEST longconst; double doubleconst; /* Really sizeof (union exp_element) characters (or less for the last element of a string). */ char string; struct type *type; struct internalvar *internalvar; struct block *block; }; struct expression { const struct language_defn *language_defn; /* language it was entered in */ int nelts; union exp_element elts[1]; }; /* Macros for converting between number of expression elements and bytes to store that many expression elements. */ #define EXP_ELEM_TO_BYTES(elements) \ ((elements) * sizeof (union exp_element)) #define BYTES_TO_EXP_ELEM(bytes) \ (((bytes) + sizeof (union exp_element) - 1) / sizeof (union exp_element)) /* From parse.c */ extern struct expression * parse_expression PARAMS ((char *)); extern struct expression * parse_exp_1 PARAMS ((char **, struct block *, int)); /* The innermost context required by the stack and register variables we've encountered so far. To use this, set it to NULL, then call parse_, then look at it. */ extern struct block *innermost_block; /* From expprint.c */ extern void print_expression PARAMS ((struct expression *, GDB_FILE *)); extern char * op_string PARAMS ((enum exp_opcode)); /* To enable dumping of all parsed expressions in a human readable form, define DEBUG_EXPRESSIONS. This is a compile time constant at the moment, since it's not clear that this feature is important enough to include by default. */ #ifdef DEBUG_EXPRESSIONS extern void dump_expression PARAMS ((struct expression *, GDB_FILE *, char *)); #define DUMP_EXPRESSION(exp,file,note) dump_expression ((exp), (file), (note)) #else #define DUMP_EXPRESSION(exp,file,note) /* Null expansion */ #endif /* DEBUG_EXPRESSIONS */ #endif /* !defined (EXPRESSION_H) */ gdb-4.13/gdb/findvar.c 666 34562 1752 75752 5612072172 13130 0ustar fnfcygnus/* Find a variable's value in memory, for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "frame.h" #include "value.h" #include "gdbcore.h" #include "inferior.h" #include "target.h" /* Basic byte-swapping routines. GDB has needed these for a long time... All extract a target-format integer at ADDR which is LEN bytes long. */ #if TARGET_CHAR_BIT != 8 || HOST_CHAR_BIT != 8 /* 8 bit characters are a pretty safe assumption these days, so we assume it throughout all these swapping routines. If we had to deal with 9 bit characters, we would need to make len be in bits and would have to re-write these routines... */ you lose #endif LONGEST extract_signed_integer (addr, len) PTR addr; int len; { LONGEST retval; unsigned char *p; unsigned char *startaddr = (unsigned char *)addr; unsigned char *endaddr = startaddr + len; if (len > sizeof (LONGEST)) error ("\ That operation is not available on integers of more than %d bytes.", sizeof (LONGEST)); /* Start at the most significant end of the integer, and work towards the least significant. */ #if TARGET_BYTE_ORDER == BIG_ENDIAN p = startaddr; #else p = endaddr - 1; #endif /* Do the sign extension once at the start. */ retval = ((LONGEST)*p ^ 0x80) - 0x80; #if TARGET_BYTE_ORDER == BIG_ENDIAN for (++p; p < endaddr; ++p) #else for (--p; p >= startaddr; --p) #endif { retval = (retval << 8) | *p; } return retval; } unsigned LONGEST extract_unsigned_integer (addr, len) PTR addr; int len; { unsigned LONGEST retval; unsigned char *p; unsigned char *startaddr = (unsigned char *)addr; unsigned char *endaddr = startaddr + len; if (len > sizeof (unsigned LONGEST)) error ("\ That operation is not available on integers of more than %d bytes.", sizeof (unsigned LONGEST)); /* Start at the most significant end of the integer, and work towards the least significant. */ retval = 0; #if TARGET_BYTE_ORDER == BIG_ENDIAN for (p = startaddr; p < endaddr; ++p) #else for (p = endaddr - 1; p >= startaddr; --p) #endif { retval = (retval << 8) | *p; } return retval; } CORE_ADDR extract_address (addr, len) PTR addr; int len; { /* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure whether we want this to be true eventually. */ return extract_unsigned_integer (addr, len); } void store_signed_integer (addr, len, val) PTR addr; int len; LONGEST val; { unsigned char *p; unsigned char *startaddr = (unsigned char *)addr; unsigned char *endaddr = startaddr + len; /* Start at the least significant end of the integer, and work towards the most significant. */ #if TARGET_BYTE_ORDER == BIG_ENDIAN for (p = endaddr - 1; p >= startaddr; --p) #else for (p = startaddr; p < endaddr; ++p) #endif { *p = val & 0xff; val >>= 8; } } void store_unsigned_integer (addr, len, val) PTR addr; int len; unsigned LONGEST val; { unsigned char *p; unsigned char *startaddr = (unsigned char *)addr; unsigned char *endaddr = startaddr + len; /* Start at the least significant end of the integer, and work towards the most significant. */ #if TARGET_BYTE_ORDER == BIG_ENDIAN for (p = endaddr - 1; p >= startaddr; --p) #else for (p = startaddr; p < endaddr; ++p) #endif { *p = val & 0xff; val >>= 8; } } void store_address (addr, len, val) PTR addr; int len; CORE_ADDR val; { /* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure whether we want this to be true eventually. */ store_unsigned_integer (addr, len, (LONGEST)val); } /* Swap LEN bytes at BUFFER between target and host byte-order. This is the wrong way to do byte-swapping because it assumes that you have a way to have a host variable of exactly the right size. Once extract_floating and store_floating have been fixed, this can go away. */ #if TARGET_BYTE_ORDER == HOST_BYTE_ORDER #define SWAP_TARGET_AND_HOST(buffer,len) #else /* Target and host byte order differ. */ #define SWAP_TARGET_AND_HOST(buffer,len) \ { \ char tmp; \ char *p = (char *)(buffer); \ char *q = ((char *)(buffer)) + len - 1; \ for (; p < q; p++, q--) \ { \ tmp = *q; \ *q = *p; \ *p = tmp; \ } \ } #endif /* Target and host byte order differ. */ /* There are many problems with floating point cross-debugging. 1. These routines only handle byte-swapping, not conversion of formats. So if host is IEEE floating and target is VAX floating, or vice-versa, it loses. This means that we can't (yet) use these routines for extendeds. Extendeds are handled by REGISTER_CONVERTIBLE. What we want is to use floatformat.h, but that doesn't yet handle VAX floating at all. 2. We can't deal with it if there is more than one floating point format in use. This has to be fixed at the unpack_double level. 3. We probably should have a LONGEST_DOUBLE or DOUBLEST or whatever we want to call it which is long double where available. */ double extract_floating (addr, len) PTR addr; int len; { if (len == sizeof (float)) { float retval; memcpy (&retval, addr, sizeof (retval)); SWAP_TARGET_AND_HOST (&retval, sizeof (retval)); return retval; } else if (len == sizeof (double)) { double retval; memcpy (&retval, addr, sizeof (retval)); SWAP_TARGET_AND_HOST (&retval, sizeof (retval)); return retval; } else { error ("Can't deal with a floating point number of %d bytes.", len); } } void store_floating (addr, len, val) PTR addr; int len; double val; { if (len == sizeof (float)) { float floatval = val; SWAP_TARGET_AND_HOST (&floatval, sizeof (floatval)); memcpy (addr, &floatval, sizeof (floatval)); } else if (len == sizeof (double)) { SWAP_TARGET_AND_HOST (&val, sizeof (val)); memcpy (addr, &val, sizeof (val)); } else { error ("Can't deal with a floating point number of %d bytes.", len); } } #if !defined (GET_SAVED_REGISTER) /* Return the address in which frame FRAME's value of register REGNUM has been saved in memory. Or return zero if it has not been saved. If REGNUM specifies the SP, the value we return is actually the SP value, not an address where it was saved. */ CORE_ADDR find_saved_register (frame, regnum) FRAME frame; int regnum; { struct frame_info *fi; struct frame_saved_regs saved_regs; register FRAME frame1 = 0; register CORE_ADDR addr = 0; if (frame == 0) /* No regs saved if want current frame */ return 0; #ifdef HAVE_REGISTER_WINDOWS /* We assume that a register in a register window will only be saved in one place (since the name changes and/or disappears as you go towards inner frames), so we only call get_frame_saved_regs on the current frame. This is directly in contradiction to the usage below, which assumes that registers used in a frame must be saved in a lower (more interior) frame. This change is a result of working on a register window machine; get_frame_saved_regs always returns the registers saved within a frame, within the context (register namespace) of that frame. */ /* However, note that we don't want this to return anything if nothing is saved (if there's a frame inside of this one). Also, callers to this routine asking for the stack pointer want the stack pointer saved for *this* frame; this is returned from the next frame. */ if (REGISTER_IN_WINDOW_P(regnum)) { frame1 = get_next_frame (frame); if (!frame1) return 0; /* Registers of this frame are active. */ /* Get the SP from the next frame in; it will be this current frame. */ if (regnum != SP_REGNUM) frame1 = frame; fi = get_frame_info (frame1); get_frame_saved_regs (fi, &saved_regs); return saved_regs.regs[regnum]; /* ... which might be zero */ } #endif /* HAVE_REGISTER_WINDOWS */ /* Note that this next routine assumes that registers used in frame x will be saved only in the frame that x calls and frames interior to it. This is not true on the sparc, but the above macro takes care of it, so we should be all right. */ while (1) { QUIT; frame1 = get_prev_frame (frame1); if (frame1 == 0 || frame1 == frame) break; fi = get_frame_info (frame1); get_frame_saved_regs (fi, &saved_regs); if (saved_regs.regs[regnum]) addr = saved_regs.regs[regnum]; } return addr; } /* Find register number REGNUM relative to FRAME and put its (raw, target format) contents in *RAW_BUFFER. Set *OPTIMIZED if the variable was optimized out (and thus can't be fetched). Set *LVAL to lval_memory, lval_register, or not_lval, depending on whether the value was fetched from memory, from a register, or in a strange and non-modifiable way (e.g. a frame pointer which was calculated rather than fetched). Set *ADDRP to the address, either in memory on as a REGISTER_BYTE offset into the registers array. Note that this implementation never sets *LVAL to not_lval. But it can be replaced by defining GET_SAVED_REGISTER and supplying your own. The argument RAW_BUFFER must point to aligned memory. */ void get_saved_register (raw_buffer, optimized, addrp, frame, regnum, lval) char *raw_buffer; int *optimized; CORE_ADDR *addrp; FRAME frame; int regnum; enum lval_type *lval; { CORE_ADDR addr; /* Normal systems don't optimize out things with register numbers. */ if (optimized != NULL) *optimized = 0; addr = find_saved_register (frame, regnum); if (addr != 0) { if (lval != NULL) *lval = lval_memory; if (regnum == SP_REGNUM) { if (raw_buffer != NULL) { /* Put it back in target format. */ store_address (raw_buffer, REGISTER_RAW_SIZE (regnum), addr); } if (addrp != NULL) *addrp = 0; return; } if (raw_buffer != NULL) read_memory (addr, raw_buffer, REGISTER_RAW_SIZE (regnum)); } else { if (lval != NULL) *lval = lval_register; addr = REGISTER_BYTE (regnum); if (raw_buffer != NULL) read_register_gen (regnum, raw_buffer); } if (addrp != NULL) *addrp = addr; } #endif /* GET_SAVED_REGISTER. */ /* Copy the bytes of register REGNUM, relative to the current stack frame, into our memory at MYADDR, in target byte order. The number of bytes copied is REGISTER_RAW_SIZE (REGNUM). Returns 1 if could not be read, 0 if could. */ int read_relative_register_raw_bytes (regnum, myaddr) int regnum; char *myaddr; { int optim; if (regnum == FP_REGNUM && selected_frame) { /* Put it back in target format. */ store_address (myaddr, REGISTER_RAW_SIZE(FP_REGNUM), FRAME_FP(selected_frame)); return 0; } get_saved_register (myaddr, &optim, (CORE_ADDR *) NULL, selected_frame, regnum, (enum lval_type *)NULL); return optim; } /* Return a `value' with the contents of register REGNUM in its virtual format, with the type specified by REGISTER_VIRTUAL_TYPE. */ value_ptr value_of_register (regnum) int regnum; { CORE_ADDR addr; int optim; register value_ptr reg_val; char raw_buffer[MAX_REGISTER_RAW_SIZE]; enum lval_type lval; get_saved_register (raw_buffer, &optim, &addr, selected_frame, regnum, &lval); reg_val = allocate_value (REGISTER_VIRTUAL_TYPE (regnum)); /* Convert raw data to virtual format if necessary. */ #ifdef REGISTER_CONVERTIBLE if (REGISTER_CONVERTIBLE (regnum)) { REGISTER_CONVERT_TO_VIRTUAL (regnum, REGISTER_VIRTUAL_TYPE (regnum), raw_buffer, VALUE_CONTENTS_RAW (reg_val)); } else #endif memcpy (VALUE_CONTENTS_RAW (reg_val), raw_buffer, REGISTER_RAW_SIZE (regnum)); VALUE_LVAL (reg_val) = lval; VALUE_ADDRESS (reg_val) = addr; VALUE_REGNO (reg_val) = regnum; VALUE_OPTIMIZED_OUT (reg_val) = optim; return reg_val; } /* Low level examining and depositing of registers. The caller is responsible for making sure that the inferior is stopped before calling the fetching routines, or it will get garbage. (a change from GDB version 3, in which the caller got the value from the last stop). */ /* Contents of the registers in target byte order. We allocate some extra slop since we do a lot of memcpy's around `registers', and failing-soft is better than failing hard. */ char registers[REGISTER_BYTES + /* SLOP */ 256]; /* Nonzero if that register has been fetched. */ char register_valid[NUM_REGS]; /* The thread/process associated with the current set of registers. For now, -1 is special, and means `no current process'. */ int registers_pid = -1; /* Indicate that registers may have changed, so invalidate the cache. */ void registers_changed () { int i; int numregs = ARCH_NUM_REGS; registers_pid = -1; for (i = 0; i < numregs; i++) register_valid[i] = 0; } /* Indicate that all registers have been fetched, so mark them all valid. */ void registers_fetched () { int i; int numregs = ARCH_NUM_REGS; for (i = 0; i < numregs; i++) register_valid[i] = 1; } /* Copy LEN bytes of consecutive data from registers starting with the REGBYTE'th byte of register data into memory at MYADDR. */ void read_register_bytes (regbyte, myaddr, len) int regbyte; char *myaddr; int len; { /* Fetch all registers. */ int i, numregs; if (registers_pid != inferior_pid) { registers_changed (); registers_pid = inferior_pid; } numregs = ARCH_NUM_REGS; for (i = 0; i < numregs; i++) if (!register_valid[i]) { target_fetch_registers (-1); break; } if (myaddr != NULL) memcpy (myaddr, ®isters[regbyte], len); } /* Read register REGNO into memory at MYADDR, which must be large enough for REGISTER_RAW_BYTES (REGNO). Target byte-order. If the register is known to be the size of a CORE_ADDR or smaller, read_register can be used instead. */ void read_register_gen (regno, myaddr) int regno; char *myaddr; { if (registers_pid != inferior_pid) { registers_changed (); registers_pid = inferior_pid; } if (!register_valid[regno]) target_fetch_registers (regno); memcpy (myaddr, ®isters[REGISTER_BYTE (regno)], REGISTER_RAW_SIZE (regno)); } /* Copy LEN bytes of consecutive data from memory at MYADDR into registers starting with the REGBYTE'th byte of register data. */ void write_register_bytes (regbyte, myaddr, len) int regbyte; char *myaddr; int len; { if (registers_pid != inferior_pid) { registers_changed (); registers_pid = inferior_pid; } /* Make sure the entire registers array is valid. */ read_register_bytes (0, (char *)NULL, REGISTER_BYTES); memcpy (®isters[regbyte], myaddr, len); target_store_registers (-1); } /* Return the raw contents of register REGNO, regarding it as an integer. */ /* This probably should be returning LONGEST rather than CORE_ADDR. */ CORE_ADDR read_register (regno) int regno; { if (registers_pid != inferior_pid) { registers_changed (); registers_pid = inferior_pid; } if (!register_valid[regno]) target_fetch_registers (regno); return extract_address (®isters[REGISTER_BYTE (regno)], REGISTER_RAW_SIZE(regno)); } CORE_ADDR read_register_pid (regno, pid) int regno, pid; { int save_pid; CORE_ADDR retval; if (pid == inferior_pid) return read_register (regno); save_pid = inferior_pid; inferior_pid = pid; retval = read_register (regno); inferior_pid = save_pid; return retval; } /* Registers we shouldn't try to store. */ #if !defined (CANNOT_STORE_REGISTER) #define CANNOT_STORE_REGISTER(regno) 0 #endif /* Store VALUE, into the raw contents of register number REGNO. */ /* FIXME: The val arg should probably be a LONGEST. */ void write_register (regno, val) int regno; LONGEST val; { PTR buf; int size; /* On the sparc, writing %g0 is a no-op, so we don't even want to change the registers array if something writes to this register. */ if (CANNOT_STORE_REGISTER (regno)) return; if (registers_pid != inferior_pid) { registers_changed (); registers_pid = inferior_pid; } size = REGISTER_RAW_SIZE(regno); buf = alloca (size); store_signed_integer (buf, size, (LONGEST) val); /* If we have a valid copy of the register, and new value == old value, then don't bother doing the actual store. */ if (register_valid [regno] && memcmp (®isters[REGISTER_BYTE (regno)], buf, size) == 0) return; target_prepare_to_store (); memcpy (®isters[REGISTER_BYTE (regno)], buf, size); register_valid [regno] = 1; target_store_registers (regno); } void write_register_pid (regno, val, pid) int regno; LONGEST val; int pid; { int save_pid; if (pid == inferior_pid) { write_register (regno, val); return; } save_pid = inferior_pid; inferior_pid = pid; write_register (regno, val); inferior_pid = save_pid; } /* Record that register REGNO contains VAL. This is used when the value is obtained from the inferior or core dump, so there is no need to store the value there. */ void supply_register (regno, val) int regno; char *val; { if (registers_pid != inferior_pid) { registers_changed (); registers_pid = inferior_pid; } register_valid[regno] = 1; memcpy (®isters[REGISTER_BYTE (regno)], val, REGISTER_RAW_SIZE (regno)); /* On some architectures, e.g. HPPA, there are a few stray bits in some registers, that the rest of the code would like to ignore. */ #ifdef CLEAN_UP_REGISTER_VALUE CLEAN_UP_REGISTER_VALUE(regno, ®isters[REGISTER_BYTE(regno)]); #endif } /* This routine is getting awfully cluttered with #if's. It's probably time to turn this into READ_PC and define it in the tm.h file. Ditto for write_pc. */ CORE_ADDR read_pc () { #ifdef TARGET_READ_PC return TARGET_READ_PC (inferior_pid); #else return ADDR_BITS_REMOVE ((CORE_ADDR) read_register_pid (PC_REGNUM, inferior_pid)); #endif } CORE_ADDR read_pc_pid (pid) int pid; { #ifdef TARGET_READ_PC return TARGET_READ_PC (pid); #else return ADDR_BITS_REMOVE ((CORE_ADDR) read_register_pid (PC_REGNUM, pid)); #endif } void write_pc (val) CORE_ADDR val; { #ifdef TARGET_WRITE_PC TARGET_WRITE_PC (val, inferior_pid); #else write_register_pid (PC_REGNUM, (long) val, inferior_pid); #ifdef NPC_REGNUM write_register_pid (NPC_REGNUM, (long) val + 4, inferior_pid); #ifdef NNPC_REGNUM write_register_pid (NNPC_REGNUM, (long) val + 8, inferior_pid); #endif #endif #endif } void write_pc_pid (val, pid) CORE_ADDR val; int pid; { #ifdef TARGET_WRITE_PC TARGET_WRITE_PC (val, pid); #else write_register_pid (PC_REGNUM, (long) val, pid); #ifdef NPC_REGNUM write_register_pid (NPC_REGNUM, (long) val + 4, pid); #ifdef NNPC_REGNUM write_register_pid (NNPC_REGNUM, (long) val + 8, pid); #endif #endif #endif } /* Cope with strage ways of getting to the stack and frame pointers */ CORE_ADDR read_sp () { #ifdef TARGET_READ_SP return TARGET_READ_SP (); #else return read_register (SP_REGNUM); #endif } void write_sp (val) CORE_ADDR val; { #ifdef TARGET_WRITE_SP TARGET_WRITE_SP (val); #else write_register (SP_REGNUM, val); #endif } CORE_ADDR read_fp () { #ifdef TARGET_READ_FP return TARGET_READ_FP (); #else return read_register (FP_REGNUM); #endif } void write_fp (val) CORE_ADDR val; { #ifdef TARGET_WRITE_FP TARGET_WRITE_FP (val); #else write_register (FP_REGNUM, val); #endif } /* Will calling read_var_value or locate_var_value on SYM end up caring what frame it is being evaluated relative to? SYM must be non-NULL. */ int symbol_read_needs_frame (sym) struct symbol *sym; { switch (SYMBOL_CLASS (sym)) { /* All cases listed explicitly so that gcc -Wall will detect it if we failed to consider one. */ case LOC_REGISTER: case LOC_ARG: case LOC_REF_ARG: case LOC_REGPARM: case LOC_REGPARM_ADDR: case LOC_LOCAL: case LOC_LOCAL_ARG: case LOC_BASEREG: case LOC_BASEREG_ARG: return 1; case LOC_UNDEF: case LOC_CONST: case LOC_STATIC: case LOC_TYPEDEF: case LOC_LABEL: /* Getting the address of a label can be done independently of the block, even if some *uses* of that address wouldn't work so well without the right frame. */ case LOC_BLOCK: case LOC_CONST_BYTES: case LOC_OPTIMIZED_OUT: return 0; } return 1; } /* Given a struct symbol for a variable, and a stack frame id, read the value of the variable and return a (pointer to a) struct value containing the value. If the variable cannot be found, return a zero pointer. If FRAME is NULL, use the selected_frame. */ value_ptr read_var_value (var, frame) register struct symbol *var; FRAME frame; { register value_ptr v; struct frame_info *fi; struct type *type = SYMBOL_TYPE (var); CORE_ADDR addr; register int len; v = allocate_value (type); VALUE_LVAL (v) = lval_memory; /* The most likely possibility. */ len = TYPE_LENGTH (type); if (frame == 0) frame = selected_frame; switch (SYMBOL_CLASS (var)) { case LOC_CONST: /* Put the constant back in target format. */ store_signed_integer (VALUE_CONTENTS_RAW (v), len, (LONGEST) SYMBOL_VALUE (var)); VALUE_LVAL (v) = not_lval; return v; case LOC_LABEL: /* Put the constant back in target format. */ store_address (VALUE_CONTENTS_RAW (v), len, SYMBOL_VALUE_ADDRESS (var)); VALUE_LVAL (v) = not_lval; return v; case LOC_CONST_BYTES: { char *bytes_addr; bytes_addr = SYMBOL_VALUE_BYTES (var); memcpy (VALUE_CONTENTS_RAW (v), bytes_addr, len); VALUE_LVAL (v) = not_lval; return v; } case LOC_STATIC: addr = SYMBOL_VALUE_ADDRESS (var); break; case LOC_ARG: fi = get_frame_info (frame); if (fi == NULL) return 0; addr = FRAME_ARGS_ADDRESS (fi); if (!addr) { return 0; } addr += SYMBOL_VALUE (var); break; case LOC_REF_ARG: fi = get_frame_info (frame); if (fi == NULL) return 0; addr = FRAME_ARGS_ADDRESS (fi); if (!addr) { return 0; } addr += SYMBOL_VALUE (var); addr = read_memory_unsigned_integer (addr, TARGET_PTR_BIT / TARGET_CHAR_BIT); break; case LOC_LOCAL: case LOC_LOCAL_ARG: fi = get_frame_info (frame); if (fi == NULL) return 0; addr = FRAME_LOCALS_ADDRESS (fi); addr += SYMBOL_VALUE (var); break; case LOC_BASEREG: case LOC_BASEREG_ARG: { char buf[MAX_REGISTER_RAW_SIZE]; get_saved_register (buf, NULL, NULL, frame, SYMBOL_BASEREG (var), NULL); addr = extract_address (buf, REGISTER_RAW_SIZE (SYMBOL_BASEREG (var))); addr += SYMBOL_VALUE (var); break; } case LOC_TYPEDEF: error ("Cannot look up value of a typedef"); break; case LOC_BLOCK: VALUE_ADDRESS (v) = BLOCK_START (SYMBOL_BLOCK_VALUE (var)); return v; case LOC_REGISTER: case LOC_REGPARM: case LOC_REGPARM_ADDR: { struct block *b; if (frame == NULL) return 0; b = get_frame_block (frame); if (SYMBOL_CLASS (var) == LOC_REGPARM_ADDR) { addr = value_as_pointer (value_from_register (lookup_pointer_type (type), SYMBOL_VALUE (var), frame)); VALUE_LVAL (v) = lval_memory; } else return value_from_register (type, SYMBOL_VALUE (var), frame); } break; case LOC_OPTIMIZED_OUT: VALUE_LVAL (v) = not_lval; VALUE_OPTIMIZED_OUT (v) = 1; return v; default: error ("Cannot look up value of a botched symbol."); break; } VALUE_ADDRESS (v) = addr; VALUE_LAZY (v) = 1; return v; } /* Return a value of type TYPE, stored in register REGNUM, in frame FRAME. */ value_ptr value_from_register (type, regnum, frame) struct type *type; int regnum; FRAME frame; { char raw_buffer [MAX_REGISTER_RAW_SIZE]; CORE_ADDR addr; int optim; value_ptr v = allocate_value (type); int len = TYPE_LENGTH (type); char *value_bytes = 0; int value_bytes_copied = 0; int num_storage_locs; enum lval_type lval; VALUE_REGNO (v) = regnum; num_storage_locs = (len > REGISTER_VIRTUAL_SIZE (regnum) ? ((len - 1) / REGISTER_RAW_SIZE (regnum)) + 1 : 1); if (num_storage_locs > 1 #ifdef GDB_TARGET_IS_H8500 || TYPE_CODE (type) == TYPE_CODE_PTR #endif ) { /* Value spread across multiple storage locations. */ int local_regnum; int mem_stor = 0, reg_stor = 0; int mem_tracking = 1; CORE_ADDR last_addr = 0; CORE_ADDR first_addr = 0; value_bytes = (char *) alloca (len + MAX_REGISTER_RAW_SIZE); /* Copy all of the data out, whereever it may be. */ #ifdef GDB_TARGET_IS_H8500 /* This piece of hideosity is required because the H8500 treats registers differently depending upon whether they are used as pointers or not. As a pointer, a register needs to have a page register tacked onto the front. An alternate way to do this would be to have gcc output different register numbers for the pointer & non-pointer form of the register. But, it doesn't, so we're stuck with this. */ if (TYPE_CODE (type) == TYPE_CODE_PTR && len > 2) { int page_regnum; switch (regnum) { case R0_REGNUM: case R1_REGNUM: case R2_REGNUM: case R3_REGNUM: page_regnum = SEG_D_REGNUM; break; case R4_REGNUM: case R5_REGNUM: page_regnum = SEG_E_REGNUM; break; case R6_REGNUM: case R7_REGNUM: page_regnum = SEG_T_REGNUM; break; } value_bytes[0] = 0; get_saved_register (value_bytes + 1, &optim, &addr, frame, page_regnum, &lval); if (lval == lval_register) reg_stor++; else mem_stor++; first_addr = addr; last_addr = addr; get_saved_register (value_bytes + 2, &optim, &addr, frame, regnum, &lval); if (lval == lval_register) reg_stor++; else { mem_stor++; mem_tracking = mem_tracking && (addr == last_addr); } last_addr = addr; } else #endif /* GDB_TARGET_IS_H8500 */ for (local_regnum = regnum; value_bytes_copied < len; (value_bytes_copied += REGISTER_RAW_SIZE (local_regnum), ++local_regnum)) { get_saved_register (value_bytes + value_bytes_copied, &optim, &addr, frame, local_regnum, &lval); if (regnum == local_regnum) first_addr = addr; if (lval == lval_register) reg_stor++; else { mem_stor++; mem_tracking = (mem_tracking && (regnum == local_regnum || addr == last_addr)); } last_addr = addr; } if ((reg_stor && mem_stor) || (mem_stor && !mem_tracking)) /* Mixed storage; all of the hassle we just went through was for some good purpose. */ { VALUE_LVAL (v) = lval_reg_frame_relative; VALUE_FRAME (v) = FRAME_FP (frame); VALUE_FRAME_REGNUM (v) = regnum; } else if (mem_stor) { VALUE_LVAL (v) = lval_memory; VALUE_ADDRESS (v) = first_addr; } else if (reg_stor) { VALUE_LVAL (v) = lval_register; VALUE_ADDRESS (v) = first_addr; } else fatal ("value_from_register: Value not stored anywhere!"); VALUE_OPTIMIZED_OUT (v) = optim; /* Any structure stored in more than one register will always be an integral number of registers. Otherwise, you'd need to do some fiddling with the last register copied here for little endian machines. */ /* Copy into the contents section of the value. */ memcpy (VALUE_CONTENTS_RAW (v), value_bytes, len); /* Finally do any conversion necessary when extracting this type from more than one register. */ #ifdef REGISTER_CONVERT_TO_TYPE REGISTER_CONVERT_TO_TYPE(regnum, type, VALUE_CONTENTS_RAW(v)); #endif return v; } /* Data is completely contained within a single register. Locate the register's contents in a real register or in core; read the data in raw format. */ get_saved_register (raw_buffer, &optim, &addr, frame, regnum, &lval); VALUE_OPTIMIZED_OUT (v) = optim; VALUE_LVAL (v) = lval; VALUE_ADDRESS (v) = addr; /* Convert raw data to virtual format if necessary. */ #ifdef REGISTER_CONVERTIBLE if (REGISTER_CONVERTIBLE (regnum)) { REGISTER_CONVERT_TO_VIRTUAL (regnum, type, raw_buffer, VALUE_CONTENTS_RAW (v)); } else #endif { /* Raw and virtual formats are the same for this register. */ #if TARGET_BYTE_ORDER == BIG_ENDIAN if (len < REGISTER_RAW_SIZE (regnum)) { /* Big-endian, and we want less than full size. */ VALUE_OFFSET (v) = REGISTER_RAW_SIZE (regnum) - len; } #endif memcpy (VALUE_CONTENTS_RAW (v), raw_buffer + VALUE_OFFSET (v), len); } return v; } /* Given a struct symbol for a variable or function, and a stack frame id, return a (pointer to a) struct value containing the properly typed address. */ value_ptr locate_var_value (var, frame) register struct symbol *var; FRAME frame; { CORE_ADDR addr = 0; struct type *type = SYMBOL_TYPE (var); value_ptr lazy_value; /* Evaluate it first; if the result is a memory address, we're fine. Lazy evaluation pays off here. */ lazy_value = read_var_value (var, frame); if (lazy_value == 0) error ("Address of \"%s\" is unknown.", SYMBOL_SOURCE_NAME (var)); if (VALUE_LAZY (lazy_value) || TYPE_CODE (type) == TYPE_CODE_FUNC) { addr = VALUE_ADDRESS (lazy_value); return value_from_longest (lookup_pointer_type (type), (LONGEST) addr); } /* Not a memory address; check what the problem was. */ switch (VALUE_LVAL (lazy_value)) { case lval_register: case lval_reg_frame_relative: error ("Address requested for identifier \"%s\" which is in a register.", SYMBOL_SOURCE_NAME (var)); break; default: error ("Can't take address of \"%s\" which isn't an lvalue.", SYMBOL_SOURCE_NAME (var)); break; } return 0; /* For lint -- never reached */ } gdb-4.13/gdb/fork-child.c 666 34562 1752 21145 5600155115 13500 0ustar fnfcygnus/* Fork a Unix child process, and set up to debug it, for GDB. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include "frame.h" /* required by inferior.h */ #include "inferior.h" #include "target.h" #include "wait.h" #include "gdbcore.h" #include "terminal.h" #include "thread.h" #include extern char **environ; #ifndef SHELL_FILE #define SHELL_FILE "/bin/sh" #endif /* Start an inferior Unix child process and sets inferior_pid to its pid. EXEC_FILE is the file to run. ALLARGS is a string containing the arguments to the program. ENV is the environment vector to pass. SHELL_FILE is the shell file, or NULL if we should pick one. Errors reported with error(). */ void fork_inferior (exec_file, allargs, env, traceme_fun, init_trace_fun, shell_file) char *exec_file; char *allargs; char **env; void (*traceme_fun) PARAMS ((void)); void (*init_trace_fun) PARAMS ((int)); char *shell_file; { int pid; char *shell_command; static char default_shell_file[] = SHELL_FILE; int len; /* Set debug_fork then attach to the child while it sleeps, to debug. */ static int debug_fork = 0; /* This is set to the result of setpgrp, which if vforked, will be visible to you in the parent process. It's only used by humans for debugging. */ static int debug_setpgrp = 657473; char **save_our_env; /* If no exec file handed to us, get it from the exec-file command -- with a good, common error message if none is specified. */ if (exec_file == 0) exec_file = get_exec_file(1); /* The user might want tilde-expansion, and in general probably wants the program to behave the same way as if run from his/her favorite shell. So we let the shell run it for us. FIXME-maybe, we might want a "set shell" command so the user can change the shell from within GDB (if so, change callers which pass in a non-NULL shell_file too). */ if (shell_file == NULL) shell_file = getenv ("SHELL"); if (shell_file == NULL) shell_file = default_shell_file; /* Multiplying the length of exec_file by 4 is to account for the fact that it may expand when quoted; it is a worst-case number based on every character being '. */ len = 5 + 4 * strlen (exec_file) + 1 + strlen (allargs) + 1 + /*slop*/ 12; /* If desired, concat something onto the front of ALLARGS. SHELL_COMMAND is the result. */ #ifdef SHELL_COMMAND_CONCAT shell_command = (char *) alloca (strlen (SHELL_COMMAND_CONCAT) + len); strcpy (shell_command, SHELL_COMMAND_CONCAT); #else shell_command = (char *) alloca (len); shell_command[0] = '\0'; #endif strcat (shell_command, "exec "); /* Now add exec_file, quoting as necessary. */ { char *p; int need_to_quote; /* Quoting in this style is said to work with all shells. But csh on IRIX 4.0.1 can't deal with it. So we only quote it if we need to. */ p = exec_file; while (1) { switch (*p) { case '\'': case '"': case '(': case ')': case '$': case '&': case ';': case '<': case '>': case ' ': case '\n': case '\t': need_to_quote = 1; goto end_scan; case '\0': need_to_quote = 0; goto end_scan; default: break; } ++p; } end_scan: if (need_to_quote) { strcat (shell_command, "'"); for (p = exec_file; *p != '\0'; ++p) { if (*p == '\'') strcat (shell_command, "'\\''"); else strncat (shell_command, p, 1); } strcat (shell_command, "'"); } else strcat (shell_command, exec_file); } strcat (shell_command, " "); strcat (shell_command, allargs); /* exec is said to fail if the executable is open. */ close_exec_file (); /* Retain a copy of our environment variables, since the child will replace the value of environ and if we're vforked, we have to restore it. */ save_our_env = environ; /* Tell the terminal handling subsystem what tty we plan to run on; it will just record the information for later. */ new_tty_prefork (inferior_io_terminal); /* It is generally good practice to flush any possible pending stdio output prior to doing a fork, to avoid the possibility of both the parent and child flushing the same data after the fork. */ gdb_flush (gdb_stdout); gdb_flush (gdb_stderr); #if defined(USG) && !defined(HAVE_VFORK) pid = fork (); #else if (debug_fork) pid = fork (); else pid = vfork (); #endif if (pid < 0) perror_with_name ("vfork"); if (pid == 0) { if (debug_fork) sleep (debug_fork); /* Run inferior in a separate process group. */ debug_setpgrp = gdb_setpgid (); if (debug_setpgrp == -1) perror("setpgrp failed in child"); /* Ask the tty subsystem to switch to the one we specified earlier (or to share the current terminal, if none was specified). */ new_tty (); /* Changing the signal handlers for the inferior after a vfork can also change them for the superior, so we don't mess with signals here. See comments in initialize_signals for how we get the right signal handlers for the inferior. */ /* "Trace me, Dr. Memory!" */ (*traceme_fun) (); /* There is no execlpe call, so we have to set the environment for our child in the global variable. If we've vforked, this clobbers the parent, but environ is restored a few lines down in the parent. By the way, yes we do need to look down the path to find $SHELL. Rich Pixley says so, and I agree. */ environ = env; execlp (shell_file, shell_file, "-c", shell_command, (char *)0); fprintf_unfiltered (gdb_stderr, "Cannot exec %s: %s.\n", shell_file, safe_strerror (errno)); gdb_flush (gdb_stderr); _exit (0177); } /* Restore our environment in case a vforked child clob'd it. */ environ = save_our_env; init_thread_list(); inferior_pid = pid; /* Needed for wait_for_inferior stuff below */ /* Now that we have a child process, make it our target, and initialize anything target-vector-specific that needs initializing. */ (*init_trace_fun)(pid); /* We are now in the child process of interest, having exec'd the correct program, and are poised at the first instruction of the new program. */ #ifdef SOLIB_CREATE_INFERIOR_HOOK SOLIB_CREATE_INFERIOR_HOOK (pid); #endif } /* Accept NTRAPS traps from the inferior. */ void startup_inferior (ntraps) int ntraps; { int pending_execs = ntraps; int terminal_initted; /* The process was started by the fork that created it, but it will have stopped one instruction after execing the shell. Here we must get it up to actual execution of the real program. */ clear_proceed_status (); init_wait_for_inferior (); terminal_initted = 0; #ifdef STARTUP_INFERIOR STARTUP_INFERIOR (pending_execs); #else while (1) { stop_soon_quietly = 1; /* Make wait_for_inferior be quiet */ wait_for_inferior (); if (stop_signal != TARGET_SIGNAL_TRAP) { /* Let shell child handle its own signals in its own way */ /* FIXME, what if child has exit()ed? Must exit loop somehow */ resume (0, stop_signal); } else { /* We handle SIGTRAP, however; it means child did an exec. */ if (!terminal_initted) { /* Now that the child has exec'd we know it has already set its process group. On POSIX systems, tcsetpgrp will fail with EPERM if we try it before the child's setpgid. */ /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); terminal_initted = 1; } if (0 == --pending_execs) break; resume (0, TARGET_SIGNAL_0); /* Just make it go on */ } } #endif /* STARTUP_INFERIOR */ stop_soon_quietly = 0; } gdb-4.13/gdb/frame.h 666 34562 1752 20466 5553072464 12576 0ustar fnfcygnus/* Definitions for dealing with stack frames, for GDB, the GNU debugger. Copyright 1986, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (FRAME_H) #define FRAME_H 1 /* A FRAME identifies a specific stack frame. It is not constant over calls to the inferior (frame addresses are, see below). This is implemented as a "struct frame_info *". This file and blockframe.c are the only places which are allowed to use the equivalence between FRAME and struct frame_info *. Exception: Prototypes in other files use "struct frame_info *" because this file might not be included. The distinction between a FRAME and a "struct frame_info *" is made with the idea of maybe someday changing a FRAME to be something else, but seems to me that a "struct frame_info *" is fully general (since any necessarily fields can be added; changing the meaning of existing fields is not helped by the FRAME distinction), and this distinction merely creates unnecessary hair. -kingdon, 18 May 93. */ typedef struct frame_info *FRAME; /* Convert from a "struct frame_info *" into a FRAME. */ #define FRAME_INFO_ID(f) (f) /* Convert from a FRAME into a "struct frame_info *". */ extern struct frame_info * get_frame_info PARAMS ((FRAME)); /* Type of the address of a frame. It is widely assumed (at least in prototypes in headers which might not include this header) that this is the same as CORE_ADDR, and no one can think of a case in which it wouldn't be, so it might be best to remove this typedef. */ typedef CORE_ADDR FRAME_ADDR; /* Convert from a FRAME into a frame address. Except in the machine-dependent *FRAME* macros, a frame address has no defined meaning other than as a magic cookie which identifies a frame over calls to the inferior. The only known exception is inferior.h (PC_IN_CALL_DUMMY) [ON_STACK]; see comments there. You cannot assume that a frame address contains enough information to reconstruct the frame; if you want more than just to identify the frame (e.g. be able to fetch variables relative to that frame), then save the whole struct frame_info (and the next struct frame_info, since the latter is used for fetching variables on some machines). */ #define FRAME_FP(fr) ((fr)->frame) /* We keep a cache of stack frames, each of which is a "struct frame_info". The innermost one gets allocated (in wait_for_inferior) each time the inferior stops; current_frame points to it. Additional frames get allocated (in get_prev_frame_info) as needed, and are chained through the next and prev fields. Any time that the frame cache becomes invalid (most notably when we execute something, but also if we change how we interpret the frames (e.g. "set heuristic-fence-post" in mips-tdep.c, or anything which reads new symbols)), we should call reinit_frame_cache. */ struct frame_info { /* Nominal address of the frame described. See comments at FRAME_FP about what this means outside the *FRAME* macros; in the *FRAME* macros, it can mean whatever makes most sense for this machine. */ FRAME_ADDR frame; /* Address at which execution is occurring in this frame. For the innermost frame, it's the current pc. For other frames, it is a pc saved in the next frame. */ CORE_ADDR pc; /* Nonzero if this is a frame associated with calling a signal handler. Set by machine-dependent code. On some machines, if the machine-dependent code fails to check for this, the backtrace will look relatively normal. For example, on the i386 #3 0x158728 in sighold () On other machines (e.g. rs6000), the machine-dependent code better set this to prevent us from trying to print it like a normal frame. */ int signal_handler_caller; /* Anything extra for this structure that may have been defined in the machine dependent files. */ #ifdef EXTRA_FRAME_INFO EXTRA_FRAME_INFO #endif /* We should probably also store a "struct frame_saved_regs" here. This is already done by some machines (e.g. config/m88k/tm-m88k.h) but there is no reason it couldn't be general. */ /* Pointers to the next and previous frame_info's in the frame cache. */ FRAME next, prev; }; /* Describe the saved registers of a frame. */ struct frame_saved_regs { /* For each register, address of where it was saved on entry to the frame, or zero if it was not saved on entry to this frame. This includes special registers such as pc and fp saved in special ways in the stack frame. The SP_REGNUM is even more special, the address here is the sp for the next frame, not the address where the sp was saved. */ CORE_ADDR regs[NUM_REGS]; }; /* Define a default FRAME_CHAIN_VALID, in the form that is suitable for most targets. If FRAME_CHAIN_VALID returns zero it means that the given frame is the outermost one and has no caller. If a particular target needs a different definition, then it can override the definition here by providing one in the tm file. */ #if !defined (FRAME_CHAIN_VALID) #if defined (FRAME_CHAIN_VALID_ALTERNATE) /* Use the alternate method of avoiding running up off the end of the frame chain or following frames back into the startup code. See the comments in objfiles.h. */ #define FRAME_CHAIN_VALID(chain, thisframe) \ ((chain) != 0 \ && !inside_main_func ((thisframe) -> pc) \ && !inside_entry_func ((thisframe) -> pc)) #else #define FRAME_CHAIN_VALID(chain, thisframe) \ ((chain) != 0 \ && !inside_entry_file (FRAME_SAVED_PC (thisframe))) #endif /* FRAME_CHAIN_VALID_ALTERNATE */ #endif /* FRAME_CHAIN_VALID */ /* The stack frame that the user has specified for commands to act on. Note that one cannot assume this is the address of valid data. */ extern FRAME selected_frame; /* Level of the selected frame: 0 for innermost, 1 for its caller, ... or -1 for frame specified by address with no defined level. */ extern int selected_frame_level; extern struct frame_info * get_prev_frame_info PARAMS ((FRAME)); extern FRAME create_new_frame PARAMS ((FRAME_ADDR, CORE_ADDR)); extern void flush_cached_frames PARAMS ((void)); extern void reinit_frame_cache PARAMS ((void)); extern void get_frame_saved_regs PARAMS ((struct frame_info *, struct frame_saved_regs *)); extern void set_current_frame PARAMS ((FRAME)); extern FRAME get_prev_frame PARAMS ((FRAME)); extern FRAME get_current_frame PARAMS ((void)); extern FRAME get_next_frame PARAMS ((FRAME)); extern struct block * get_frame_block PARAMS ((FRAME)); extern struct block * get_current_block PARAMS ((void)); extern struct block * get_selected_block PARAMS ((void)); extern struct symbol * get_frame_function PARAMS ((FRAME)); extern CORE_ADDR get_frame_pc PARAMS ((FRAME)); extern CORE_ADDR get_pc_function_start PARAMS ((CORE_ADDR)); extern struct block * block_for_pc PARAMS ((CORE_ADDR)); extern int frameless_look_for_prologue PARAMS ((FRAME)); extern void print_frame_args PARAMS ((struct symbol *, struct frame_info *, int, GDB_FILE *)); extern FRAME find_relative_frame PARAMS ((FRAME, int*)); extern void print_stack_frame PARAMS ((FRAME, int, int)); extern void select_frame PARAMS ((FRAME, int)); extern void record_selected_frame PARAMS ((FRAME_ADDR *, int *)); extern void print_frame_info PARAMS ((struct frame_info *, int, int, int)); extern CORE_ADDR find_saved_register PARAMS ((FRAME, int)); extern FRAME block_innermost_frame PARAMS ((struct block *)); extern FRAME find_frame_addr_in_frame_chain PARAMS ((FRAME_ADDR)); extern CORE_ADDR sigtramp_saved_pc PARAMS ((FRAME)); #endif /* !defined (FRAME_H) */ gdb-4.13/gdb/gcc.patch 666 34562 1752 4065 5341102122 13041 0ustar fnfcygnusIn the 2.3.2 release of gcc/g++, how the compiler handles resolving multiple inheritance lattices was reworked to properly discover ambiguities. We recently found an example which causes this new algorithm to fail in a very subtle way. For the time being, this patch will make the compiler use the old algorithm, which works for the failing case we've found. Note it will revert the compiler's ability to properly deduce MI ambiguities in many cases (to its state in 2.2.2 and 2.3.1). This bug will be fixed in the next gcc/g++ release. Brendan Kehoe (brendan@cygnus.com) *** cp-search.c.~1~ Thu Feb 18 18:03:24 1993 --- cp-search.c Thu Feb 18 18:03:27 1993 *************** *** 2389,2392 **** --- 2389,2393 ---- if ((*qfn)(base_binfo)) { + #if 0 if (fn == dfs_init_vbase_pointers) { *************** *** 2464,2467 **** --- 2465,2469 ---- saw_first_vbase = save_saw_first_vbase; } else + #endif dfs_walk (base_binfo, fn, qfn); } *************** dfs_init_vbase_pointers (binfo) *** 2658,2661 **** --- 2660,2664 ---- return; + #if 0 this_vbase_ptr = vbase_decl_ptr_intermediate; *************** dfs_init_vbase_pointers (binfo) *** 2662,2668 **** if (TYPE_POINTER_TO (type) != TREE_TYPE (this_vbase_ptr)) my_friendly_abort (125); - #if 0 distance = get_base_distance (type, TREE_TYPE (vbase_decl), 0, &path); if (distance == -2) { --- 2665,2672 ---- if (TYPE_POINTER_TO (type) != TREE_TYPE (this_vbase_ptr)) my_friendly_abort (125); + #endif distance = get_base_distance (type, TREE_TYPE (vbase_decl), 0, &path); + #if 0 if (distance == -2) { *************** dfs_init_vbase_pointers (binfo) *** 2669,2672 **** --- 2673,2677 ---- error ("inheritance lattice too complex below"); } + #endif while (path) { *************** dfs_init_vbase_pointers (binfo) *** 2682,2685 **** --- 2687,2691 ---- this_vbase_ptr = convert_pointer_to (type, vbase_decl_ptr); + #if 0 /* This happens when it is ambiguous. */ if (this_vbase_ptr == error_mark_node) gdb-4.13/gdb/gdb-stabs.h 666 34562 1752 6277 5454051427 13332 0ustar fnfcygnus/* Definitions for symbol-reading containing "stabs", for GDB. Copyright 1992 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by John Gilmore. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file exists to hold the common definitions required of most of the symbol-readers that end up using stabs. The common use of these `symbol-type-specific' customizations of the generic data structures makes the stabs-oriented symbol readers able to call each others' functions as required. */ #if !defined (GDBSTABS_H) #define GDBSTABS_H /* Offsets in the psymtab's section_offsets array for various kinds of stabs symbols. Every psymtab built from stabs will have these offsets filled in by these guidelines, so that when actually reading symbols, the proper offset can simply be selected and added to the symbol value. */ #define SECT_OFF_TEXT 0 #define SECT_OFF_DATA 1 #define SECT_OFF_BSS 2 #define SECT_OFF_RODATA 3 #define SECT_OFF_MAX 4 /* Count of possible values */ /* The stab_section_info chain remembers info from the ELF symbol table, while psymtabs are being built for the other symbol tables in the objfile. It is destroyed at the complation of psymtab-reading. Any info that was used from it has been copied into psymtabs. */ struct stab_section_info { char *filename; CORE_ADDR sections[SECT_OFF_MAX]; struct stab_section_info *next; int found; /* Count of times it's found in searching */ }; /* Information is passed among various dbxread routines for accessing symbol files. A pointer to this structure is kept in the sym_stab_info field of the objfile struct. */ struct dbx_symfile_info { asection *text_sect; /* Text section accessor */ int symcount; /* How many symbols are there in the file */ char *stringtab; /* The actual string table */ int stringtab_size; /* Its size */ file_ptr symtab_offset; /* Offset in file to symbol table */ int symbol_size; /* Bytes in a single symbol */ struct stab_section_info *stab_section_info; /* section starting points of the original .o files before linking. */ }; #define DBX_SYMFILE_INFO(o) ((struct dbx_symfile_info *)((o)->sym_stab_info)) #define DBX_TEXT_SECT(o) (DBX_SYMFILE_INFO(o)->text_sect) #define DBX_SYMCOUNT(o) (DBX_SYMFILE_INFO(o)->symcount) #define DBX_STRINGTAB(o) (DBX_SYMFILE_INFO(o)->stringtab) #define DBX_STRINGTAB_SIZE(o) (DBX_SYMFILE_INFO(o)->stringtab_size) #define DBX_SYMTAB_OFFSET(o) (DBX_SYMFILE_INFO(o)->symtab_offset) #define DBX_SYMBOL_SIZE(o) (DBX_SYMFILE_INFO(o)->symbol_size) #endif /* GDBSTABS_H */ gdb-4.13/gdb/gdb.1 666 34562 1752 17552 5122231302 12127 0ustar fnfcygnus.\" Copyright (c) 1991 Free Software Foundation .\" See section COPYING for conditions for redistribution .\" $Id: gdb.1,v 1.3 1991/12/13 22:22:58 pesch Exp $ .TH gdb 1 "4nov1991" "GNU Tools" "GNU Tools" .SH NAME gdb \- The GNU Debugger .SH SYNOPSIS .na .TP .B gdb .RB "[\|" \-help "\|]" .RB "[\|" \-nx "\|]" .RB "[\|" \-q "\|]" .RB "[\|" \-batch "\|]" .RB "[\|" \-cd=\c .I dir\c \|] .RB "[\|" \-f "\|]" .RB "[\|" "\-b\ "\c .IR bps "\|]" .RB "[\|" "\-tty="\c .IR dev "\|]" .RB "[\|" "\-s "\c .I symfile\c \&\|] .RB "[\|" "\-e "\c .I prog\c \&\|] .RB "[\|" "\-se "\c .I prog\c \&\|] .RB "[\|" "\-c "\c .I core\c \&\|] .RB "[\|" "\-x "\c .I cmds\c \&\|] .RB "[\|" "\-d "\c .I dir\c \&\|] .RB "[\|" \c .I prog\c .RB "[\|" \c .IR core \||\| procID\c \&\|]\&\|] .ad b .SH DESCRIPTION The purpose of a debugger such as GDB is to allow you to see what is going on ``inside'' another program while it executes\(em\&or what another program was doing at the moment it crashed. GDB can do four main kinds of things (plus other things in support of these) to help you catch bugs in the act: .TP \ \ \ \(bu Start your program, specifying anything that might affect its behavior. .TP \ \ \ \(bu Make your program stop on specified conditions. .TP \ \ \ \(bu Examine what has happened, when your program has stopped. .TP \ \ \ \(bu Change things in your program, so you can experiment with correcting the effects of one bug and go on to learn about another. .PP You can use GDB to debug programs written in C, C++, and Modula-2. Fortran support will be added when a GNU Fortran compiler is ready. GDB is invoked with the shell command \c .B gdb\c \&. Once started, it reads commands from the terminal until you tell it to exit with the GDB command \c .B quit\c \&. You can get online help from \c .B gdb\c \& itself by using the command \c .B help\c \&. You can run \c .B gdb\c \& with no arguments or options; but the most usual way to start GDB is with one argument or two, specifying an executable program as the argument: .sp .br gdb\ program .br .sp You can also start with both an executable program and a core file specified: .sp .br gdb\ program\ core .br .sp You can, instead, specify a process ID as a second argument, if you want to debug a running process: .sp .br gdb\ program\ 1234 .br .sp would attach GDB to process \c .B 1234\c \& (unless you also have a file named `\|\c .B 1234\c \&\|'; GDB does check for a core file first). Here are some of the most frequently needed GDB commands: .TP .B break \fR[\|\fIfile\fB:\fR\|]\fIfunction \& Set a breakpoint at \c .I function\c \& (in \c .I file\c \&). .TP .B run \fR[\|\fIarglist\fR\|] Start your program (with \c .I arglist\c \&, if specified). .TP .B bt Backtrace: display the program stack. .TP .BI print " expr"\c \& Display the value of an expression. .TP .B c Continue running your program (after stopping, e.g. at a breakpoint). .TP .B next Execute next program line (after stopping); step \c .I over\c \& any function calls in the line. .TP .B step Execute next program line (after stopping); step \c .I into\c \& any function calls in the line. .TP .B help \fR[\|\fIname\fR\|] Show information about GDB command \c .I name\c \&, or general information about using GDB. .TP .B quit Exit from GDB. .PP For full details on GDB, see \c .I Using GDB: A Guide to the GNU Source-Level Debugger\c \&, by Richard M. Stallman and Roland H. Pesch. The same text is available online as the \c .B gdb\c \& entry in the \c .B info\c \& program. .SH OPTIONS Any arguments other than options specify an executable file and core file (or process ID); that is, the first argument encountered with no associated option flag is equivalent to a `\|\c .B \-se\c \&\|' option, and the second, if any, is equivalent to a `\|\c .B \-c\c \&\|' option if it's the name of a file. Many options have both long and short forms; both are shown here. The long forms are also recognized if you truncate them, so long as enough of the option is present to be unambiguous. (If you prefer, you can flag option arguments with `\|\c .B +\c \&\|' rather than `\|\c .B \-\c \&\|', though we illustrate the more usual convention.) All the options and command line arguments you give are processed in sequential order. The order makes a difference when the `\|\c .B \-x\c \&\|' option is used. .TP .B \-help .TP .B \-h List all options, with brief explanations. .TP .BI "\-symbols=" "file"\c .TP .BI "\-s " "file"\c \& Read symbol table from file \c .I file\c \&. .TP .BI "\-exec=" "file"\c .TP .BI "\-e " "file"\c \& Use file \c .I file\c \& as the executable file to execute when appropriate, and for examining pure data in conjunction with a core dump. .TP .BI "\-se=" "file"\c \& Read symbol table from file \c .I file\c \& and use it as the executable file. .TP .BI "\-core=" "file"\c .TP .BI "\-c " "file"\c \& Use file \c .I file\c \& as a core dump to examine. .TP .BI "\-command=" "file"\c .TP .BI "\-x " "file"\c \& Execute GDB commands from file \c .I file\c \&. .TP .BI "\-directory=" "directory"\c .TP .BI "\-d " "directory"\c \& Add \c .I directory\c \& to the path to search for source files. .PP .TP .B \-nx .TP .B \-n Do not execute commands from any `\|\c .B .gdbinit\c \&\|' initialization files. Normally, the commands in these files are executed after all the command options and arguments have been processed. .TP .B \-quiet .TP .B \-q ``Quiet''. Do not print the introductory and copyright messages. These messages are also suppressed in batch mode. .TP .B \-batch Run in batch mode. Exit with status \c .B 0\c \& after processing all the command files specified with `\|\c .B \-x\c \&\|' (and `\|\c .B .gdbinit\c \&\|', if not inhibited). Exit with nonzero status if an error occurs in executing the GDB commands in the command files. Batch mode may be useful for running GDB as a filter, for example to download and run a program on another computer; in order to make this more useful, the message .sp .br Program\ exited\ normally. .br .sp (which is ordinarily issued whenever a program running under GDB control terminates) is not issued when running in batch mode. .TP .BI "\-cd=" "directory"\c \& Run GDB using \c .I directory\c \& as its working directory, instead of the current directory. .TP .B \-fullname .TP .B \-f Emacs sets this option when it runs GDB as a subprocess. It tells GDB to output the full file name and line number in a standard, recognizable fashion each time a stack frame is displayed (which includes each time the program stops). This recognizable format looks like two `\|\c .B \032\c \&\|' characters, followed by the file name, line number and character position separated by colons, and a newline. The Emacs-to-GDB interface program uses the two `\|\c .B \032\c \&\|' characters as a signal to display the source code for the frame. .TP .BI "\-b " "bps"\c \& Set the line speed (baud rate or bits per second) of any serial interface used by GDB for remote debugging. .TP .BI "\-tty=" "device"\c \& Run using \c .I device\c \& for your program's standard input and output. .PP .SH "SEE ALSO" .RB "`\|" gdb "\|'" entry in .B info\c \&; .I Using GDB: A Guide to the GNU Source-Level Debugger\c , Richard M. Stallman and Roland H. Pesch, July 1991. .SH COPYING Copyright (c) 1991 Free Software Foundation, Inc. .PP Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. .PP Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. .PP Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be included in translations approved by the Free Software Foundation instead of in the original English. gdb-4.13/gdb/gdba.el 666 34562 1752 251274 5602561011 12557 0ustar fnfcygnus(defmacro gud (form) (` (save-excursion (set-buffer "*gud-a.out*") (, form)))) (defun dbug (foo &optional fun) (save-excursion (set-buffer (get-buffer-create "*trace*")) (goto-char (point-max)) (insert "***" (symbol-name foo) "\n") (if fun (funcall fun)))) ;;; gud.el --- Grand Unified Debugger mode for gdb, sdb, dbx, or xdb ;;; under Emacs ;; Author: Eric S. Raymond ;; Maintainer: FSF ;; Version: 1.3 ;; Keywords: unix, tools ;; Copyright (C) 1992, 1993 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. ;; GNU Emacs 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 2, or (at your option) ;; any later version. ;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: ;; The ancestral gdb.el was by W. Schelter ;; It was later rewritten by rms. Some ideas were due to Masanobu. ;; Grand Unification (sdb/dbx support) by Eric S. Raymond ;; The overloading code was then rewritten by Barry Warsaw , ;; who also hacked the mode to use comint.el. Shane Hartman ;; added support for xdb (HPUX debugger). ;; Cygnus Support added support for gdb's --annotate=2. ;;; Code: (require 'comint) (require 'etags) ;; ====================================================================== ;; GUD commands must be visible in C buffers visited by GUD (defvar gud-key-prefix "\C-x\C-a" "Prefix of all GUD commands valid in C buffers.") (global-set-key (concat gud-key-prefix "\C-l") 'gud-refresh) (global-set-key "\C-x " 'gud-break) ;; backward compatibility hack ;; ====================================================================== ;; the overloading mechanism (defun gud-overload-functions (gud-overload-alist) "Overload functions defined in GUD-OVERLOAD-ALIST. This association list has elements of the form (ORIGINAL-FUNCTION-NAME OVERLOAD-FUNCTION)" (mapcar (function (lambda (p) (fset (car p) (symbol-function (cdr p))))) gud-overload-alist)) (defun gud-massage-args (file args) (error "GUD not properly entered.")) (defun gud-marker-filter (str) (error "GUD not properly entered.")) (defun gud-find-file (f) (error "GUD not properly entered.")) ;; ====================================================================== ;; command definition ;; This macro is used below to define some basic debugger interface commands. ;; Of course you may use `gud-def' with any other debugger command, including ;; user defined ones. ;; A macro call like (gud-def FUNC NAME KEY DOC) expands to a form ;; which defines FUNC to send the command NAME to the debugger, gives ;; it the docstring DOC, and binds that function to KEY in the GUD ;; major mode. The function is also bound in the global keymap with the ;; GUD prefix. (defmacro gud-def (func cmd key &optional doc) "Define FUNC to be a command sending STR and bound to KEY, with optional doc string DOC. Certain %-escapes in the string arguments are interpreted specially if present. These are: %f name (without directory) of current source file. %d directory of current source file. %l number of current source line %e text of the C lvalue or function-call expression surrounding point. %a text of the hexadecimal address surrounding point %p prefix argument to the command (if any) as a number The `current' source file is the file of the current buffer (if we're in a C file) or the source file current at the last break or step (if we're in the GUD buffer). The `current' line is that of the current buffer (if we're in a source file) or the source line number at the last break or step (if we're in the GUD buffer)." (list 'progn (list 'defun func '(arg) (or doc "") '(interactive "p") (list 'gud-call cmd 'arg)) (if key (list 'define-key '(current-local-map) (concat "\C-c" key) (list 'quote func))) (if key (list 'global-set-key (list 'concat 'gud-key-prefix key) (list 'quote func))))) ;; Where gud-display-frame should put the debugging arrow. This is ;; set by the marker-filter, which scans the debugger's output for ;; indications of the current program counter. (defvar gud-last-frame nil) ;; Used by gud-refresh, which should cause gud-display-frame to redisplay ;; the last frame, even if it's been called before and gud-last-frame has ;; been set to nil. (defvar gud-last-last-frame nil) ;; All debugger-specific information is collected here. ;; Here's how it works, in case you ever need to add a debugger to the mode. ;; ;; Each entry must define the following at startup: ;; ;; ;; comint-prompt-regexp ;; gud--massage-args ;; gud--marker-filter ;; gud--find-file ;; ;; The job of the massage-args method is to modify the given list of ;; debugger arguments before running the debugger. ;; ;; The job of the marker-filter method is to detect file/line markers in ;; strings and set the global gud-last-frame to indicate what display ;; action (if any) should be triggered by the marker. Note that only ;; whatever the method *returns* is displayed in the buffer; thus, you ;; can filter the debugger's output, interpreting some and passing on ;; the rest. ;; ;; The job of the find-file method is to visit and return the buffer indicated ;; by the car of gud-tag-frame. This may be a file name, a tag name, or ;; something else. ;; ====================================================================== ;; gdb functions ;;; History of argument lists passed to gdb. (defvar gud-gdb-history nil) (defun gud-gdb-massage-args (file args) (cons "--annotate=2" (cons file args))) ;; ;; In this world, there are gdb instance objects (of unspecified ;; representation) and buffers associated with those objects. ;; ;; ;; gdb-instance objects ;; (defun make-gdb-instance (proc) "Create a gdb instance object from a gdb process." (setq last-proc proc) (let ((instance (cons 'gdb-instance proc))) (save-excursion (set-buffer (process-buffer proc)) (setq gdb-buffer-instance instance) (progn (mapcar 'make-variable-buffer-local gdb-instance-variables) (setq gdb-buffer-type 'gud) ;; If we're taking over the buffer of another process, ;; take over it's ancillery buffers as well. ;; (let ((dead (or old-gdb-buffer-instance))) (mapcar (function (lambda (b) (progn (set-buffer b) (if (eq dead gdb-buffer-instance) (setq gdb-buffer-instance instance))))) (buffer-list))))) instance)) (defun gdb-instance-process (inst) (cdr inst)) ;;; The list of instance variables is built up by the expansions of ;;; DEF-GDB-VARIABLE ;;; (defvar gdb-instance-variables '() "A list of variables that are local to the gud buffer associated with a gdb instance.") (defmacro def-gdb-variable (name accessor setter &optional default doc) (` (progn (defvar (, name) (, default) (, (or doc "undocumented"))) (if (not (memq '(, name) gdb-instance-variables)) (setq gdb-instance-variables (cons '(, name) gdb-instance-variables))) (, (and accessor (` (defun (, accessor) (instance) (let ((buffer (gdb-get-instance-buffer instance 'gud))) (and buffer (save-excursion (set-buffer buffer) (, name)))))))) (, (and setter (` (defun (, setter) (instance val) (let ((buffer (gdb-get-instance-buffer instance 'gud))) (and buffer (save-excursion (set-buffer buffer) (setq (, name) val))))))))))) (defmacro def-gdb-var (root-symbol &optional default doc) (let* ((root (symbol-name root-symbol)) (accessor (intern (concat "gdb-instance-" root))) (setter (intern (concat "set-gdb-instance-" root))) (var-name (intern (concat "gdb-" root)))) (` (def-gdb-variable (, var-name) (, accessor) (, setter) (, default) (, doc))))) (def-gdb-var buffer-instance nil "In an instance buffer, the buffer's instance.") (def-gdb-var buffer-type nil "One of the symbols bound in gdb-instance-buffer-rules") (def-gdb-var burst "" "A string of characters from gdb that have not yet been processed.") (def-gdb-var input-queue () "A list of high priority gdb command objects.") (def-gdb-var idle-input-queue () "A list of low priority gdb command objects.") (def-gdb-var prompting nil "True when gdb is idle with no pending input.") (def-gdb-var output-sink 'user "The disposition of the output of the current gdb command. Possible values are these symbols: user -- gdb output should be copied to the gud buffer for the user to see. inferior -- gdb output should be copied to the inferior-io buffer pre-emacs -- output should be ignored util the post-prompt annotation is received. Then the output-sink becomes:... emacs -- output should be collected in the partial-output-buffer for subsequent processing by a command. This is the disposition of output generated by commands that gud mode sends to gdb on its own behalf. post-emacs -- ignore input until the prompt annotation is received, then go to USER disposition. ") (def-gdb-var current-item nil "The most recent command item sent to gdb.") (def-gdb-var pending-triggers '() "A list of trigger functions that have run later than their output handlers.") (defun in-gdb-instance-context (instance form) "Funcall `form' in the gud buffer of `instance'" (save-excursion (set-buffer (gdb-get-instance-buffer instance 'gud)) (funcall form))) ;; end of instance vars ;; ;; finding instances ;; (defun gdb-proc->instance (proc) (save-excursion (set-buffer (process-buffer proc)) gdb-buffer-instance)) (defun gdb-mru-instance-buffer () "Return the most recently used (non-auxiliary) gdb gud buffer." (save-excursion (gdb-goto-first-gdb-instance (buffer-list)))) (defun gdb-goto-first-gdb-instance (blist) "Use gdb-mru-instance-buffer -- not this." (and blist (progn (set-buffer (car blist)) (or (and gdb-buffer-instance (eq gdb-buffer-type 'gud) (car blist)) (gdb-goto-first-gdb-instance (cdr blist)))))) (defun buffer-gdb-instance (buf) (save-excursion (set-buffer buf) gdb-buffer-instance)) (defun gdb-needed-default-instance () "Return the most recently used gdb instance or signal an error." (let ((buffer (gdb-mru-instance-buffer))) (or (and buffer (buffer-gdb-instance buffer)) (error "No instance of gdb found.")))) (defun gdb-instance-target-string (instance) "The apparent name of the program being debugged by a gdb instance. For sure this the root string used in smashing together the gud buffer's name, even if that doesn't happen to be the name of a program." (in-gdb-instance-context instance (function (lambda () gud-target-name)))) ;; ;; Instance Buffers. ;; ;; More than one buffer can be associated with a gdb instance. ;; ;; Each buffer has a TYPE -- a symbol that identifies the function ;; of that particular buffer. ;; ;; The usual gud interaction buffer is given the type `gud' and ;; is constructed specially. ;; ;; Others are constructed by gdb-get-create-instance-buffer and ;; named according to the rules set forth in the gdb-instance-buffer-rules-assoc (defun gdb-get-instance-buffer (instance key) "Return the instance buffer for `instance' tagged with type `key'. The key should be one of the cars in `gdb-instance-buffer-rules-assoc'." (save-excursion (gdb-look-for-tagged-buffer instance key (buffer-list)))) (defun gdb-get-create-instance-buffer (instance key) "Create a new gdb instance buffer of the type specified by `key'. The key should be one of the cars in `gdb-instance-buffer-rules-assoc'." (or (gdb-get-instance-buffer instance key) (let* ((rules (assoc key gdb-instance-buffer-rules-assoc)) (name (funcall (gdb-rules-name-maker rules) instance)) (new (get-buffer-create name))) (save-excursion (set-buffer new) (make-variable-buffer-local 'gdb-buffer-type) (setq gdb-buffer-type key) (make-variable-buffer-local 'gdb-buffer-instance) (setq gdb-buffer-instance instance) (if (cdr (cdr rules)) (funcall (car (cdr (cdr rules))))) new)))) (defun gdb-rules-name-maker (rules) (car (cdr rules))) (defun gdb-look-for-tagged-buffer (instance key bufs) (let ((retval nil)) (while (and (not retval) bufs) (set-buffer (car bufs)) (if (and (eq gdb-buffer-instance instance) (eq gdb-buffer-type key)) (setq retval (car bufs))) (setq bufs (cdr bufs)) ) retval)) (defun gdb-instance-buffer-p (buf) (save-excursion (set-buffer buf) (and gdb-buffer-type (not (eq gdb-buffer-type 'gud))))) ;; ;; This assoc maps buffer type symbols to rules. Each rule is a list of ;; at least one and possible more functions. The functions have these ;; roles in defining a buffer type: ;; ;; NAME - take an instance, return a name for this type buffer for that ;; instance. ;; The remaining function(s) are optional: ;; ;; MODE - called in new new buffer with no arguments, should establish ;; the proper mode for the buffer. ;; (defvar gdb-instance-buffer-rules-assoc '()) (defun gdb-set-instance-buffer-rules (buffer-type &rest rules) (let ((binding (assoc buffer-type gdb-instance-buffer-rules-assoc))) (if binding (setcdr binding rules) (setq gdb-instance-buffer-rules-assoc (cons (cons buffer-type rules) gdb-instance-buffer-rules-assoc))))) (gdb-set-instance-buffer-rules 'gud 'error) ; gud buffers are an exception to the rules ;; ;; partial-output buffers ;; ;; These accumulate output from a command executed on ;; behalf of emacs (rather than the user). ;; (gdb-set-instance-buffer-rules 'gdb-partial-output-buffer 'gdb-partial-output-name) (defun gdb-partial-output-name (instance) (concat "*partial-output-" (gdb-instance-target-string instance) "*")) (gdb-set-instance-buffer-rules 'gdb-inferior-io 'gdb-inferior-io-name 'gud-inferior-io-mode) (defun gdb-inferior-io-name (instance) (concat "*input/output of " (gdb-instance-target-string instance) "*")) (defvar gdb-inferior-io-mode-map (copy-keymap comint-mode-map)) (define-key comint-mode-map "\C-c\C-c" 'gdb-inferior-io-interrupt) (define-key comint-mode-map "\C-c\C-z" 'gdb-inferior-io-stop) (define-key comint-mode-map "\C-c\C-\\" 'gdb-inferior-io-quit) (define-key comint-mode-map "\C-c\C-d" 'gdb-inferior-io-eof) (defun gud-inferior-io-mode () "Major mode for gud inferior-io. \\{comint-mode-map}" ;; We want to use comint because it has various nifty and familiar ;; features. We don't need a process, but comint wants one, so create ;; a dummy one. (make-comint (substring (buffer-name) 1 (- (length (buffer-name)) 1)) "/bin/cat") (setq major-mode 'gud-inferior-io-mode) (setq mode-name "Debuggee I/O") (setq comint-input-sender 'gud-inferior-io-sender) ) (defun gud-inferior-io-sender (proc string) (save-excursion (set-buffer (process-buffer proc)) (let ((instance gdb-buffer-instance)) (set-buffer (gdb-get-instance-buffer instance 'gud)) (let ((gud-proc (get-buffer-process (current-buffer)))) (process-send-string gud-proc string) (process-send-string gud-proc "\n") )) )) (defun gdb-inferior-io-interrupt (instance) "Interrupt the program being debugged." (interactive (list (gdb-needed-default-instance))) (interrupt-process (get-buffer-process (gdb-get-instance-buffer instance 'gud)) comint-ptyp)) (defun gdb-inferior-io-quit (instance) "Send quit signal to the program being debugged." (interactive (list (gdb-needed-default-instance))) (quit-process (get-buffer-process (gdb-get-instance-buffer instance 'gud)) comint-ptyp)) (defun gdb-inferior-io-stop (instance) "Stop the program being debugged." (interactive (list (gdb-needed-default-instance))) (stop-process (get-buffer-process (gdb-get-instance-buffer instance 'gud)) comint-ptyp)) (defun gdb-inferior-io-eof (instance) "Send end-of-file to the program being debugged." (interactive (list (gdb-needed-default-instance))) (process-send-eof (get-buffer-process (gdb-get-instance-buffer instance 'gud)))) ;; ;; gdb communications ;; ;; INPUT: things sent to gdb ;; ;; Each instance has a high and low priority ;; input queue. Low priority input is sent only ;; when the high priority queue is idle. ;; ;; The queues are lists. Each element is either ;; a string (indicating user or user-like input) ;; or a list of the form: ;; ;; (INPUT-STRING HANDLER-FN) ;; ;; ;; The handler function will be called from the ;; partial-output buffer when the command completes. ;; This is the way to write commands which ;; invoke gdb commands autonomously. ;; ;; These lists are consumed tail first. ;; (defun gdb-send (proc string) "A comint send filter for gdb. This filter may simply queue output for a later time." (let ((instance (gdb-proc->instance proc))) (gdb-instance-enqueue-input instance (concat string "\n")))) ;; Note: Stuff enqueued here will be sent to the next prompt, even if it ;; is a query, or other non-top-level prompt. To guarantee stuff will get ;; sent to the top-level prompt, currently it must be put in the idle queue. ;; ^^^^^^^^^ ;; [This should encourage gud extentions that invoke gdb commands to let ;; the user go first; it is not a bug. -t] ;; (defun gdb-instance-enqueue-input (instance item) (if (gdb-instance-prompting instance) (progn (gdb-send-item instance item) (set-gdb-instance-prompting instance nil)) (set-gdb-instance-input-queue instance (cons item (gdb-instance-input-queue instance))))) (defun gdb-instance-dequeue-input (instance) (let ((queue (gdb-instance-input-queue instance))) (and queue (if (not (cdr queue)) (let ((answer (car queue))) (set-gdb-instance-input-queue instance '()) answer) (gdb-take-last-elt queue))))) (defun gdb-instance-enqueue-idle-input (instance item) (if (and (gdb-instance-prompting instance) (not (gdb-instance-input-queue instance))) (progn (gdb-send-item instance item) (set-gdb-instance-prompting instance nil)) (set-gdb-instance-idle-input-queue instance (cons item (gdb-instance-idle-input-queue instance))))) (defun gdb-instance-dequeue-idle-input (instance) (let ((queue (gdb-instance-idle-input-queue instance))) (and queue (if (not (cdr queue)) (let ((answer (car queue))) (set-gdb-instance-idle-input-queue instance '()) answer) (gdb-take-last-elt queue))))) ; Don't use this in general. (defun gdb-take-last-elt (l) (if (cdr (cdr l)) (gdb-take-last-elt (cdr l)) (let ((answer (car (cdr l)))) (setcdr l '()) answer))) ;; ;; output -- things gdb prints to emacs ;; ;; GDB output is a stream interrupted by annotations. ;; Annotations can be recognized by their beginning ;; with \C-j\C-z\C-z\C-j ;; ;; The tag is a string obeying symbol syntax. ;; ;; The optional part `' can be either the empty string ;; or a space followed by more data relating to the annotation. ;; For example, the SOURCE annotation is followed by a filename, ;; line number and various useless goo. This data must not include ;; any newlines. ;; (defun gud-gdb-marker-filter (string) "A gud marker filter for gdb." ;; Bogons don't tell us the process except through scoping crud. (let ((instance (gdb-proc->instance proc))) (gdb-output-burst instance string))) (defvar gdb-annotation-rules '(("frames-invalid" gdb-invalidate-frames) ("breakpoints-invalid" gdb-invalidate-breakpoints) ("pre-prompt" gdb-pre-prompt) ("prompt" gdb-prompt) ("commands" gdb-subprompt) ("overload-choice" gdb-subprompt) ("query" gdb-subprompt) ("prompt-for-continue" gdb-subprompt) ("post-prompt" gdb-post-prompt) ("source" gdb-source) ("starting" gdb-starting) ("exited" gdb-stopping) ("signalled" gdb-stopping) ("signal" gdb-stopping) ("breakpoint" gdb-stopping) ("watchpoint" gdb-stopping) ("stopped" gdb-stopped) ) "An assoc mapping annotation tags to functions which process them.") (defun gdb-ignore-annotation (instance args) nil) (defconst gdb-source-spec-regexp "\\(.*\\):\\([0-9]*\\):[0-9]*:[a-z]*:0x[a-f0-9]*") ;; Do not use this except as an annotation handler." (defun gdb-source (instance args) (string-match gdb-source-spec-regexp args) ;; Extract the frame position from the marker. (setq gud-last-frame (cons (substring args (match-beginning 1) (match-end 1)) (string-to-int (substring args (match-beginning 2) (match-end 2)))))) ;; An annotation handler for `prompt'. ;; This sends the next command (if any) to gdb. (defun gdb-prompt (instance ignored) (let ((sink (gdb-instance-output-sink instance))) (cond ((eq sink 'user) t) ((eq sink 'post-emacs) (set-gdb-instance-output-sink instance 'user)) (t (set-gdb-instance-output-sink instance 'user) (error "Phase error in gdb-prompt (got %s)" sink)))) (let ((highest (gdb-instance-dequeue-input instance))) (if highest (gdb-send-item instance highest) (let ((lowest (gdb-instance-dequeue-idle-input instance))) (if lowest (gdb-send-item instance lowest) (progn (set-gdb-instance-prompting instance t) (gud-display-frame))))))) ;; An annotation handler for non-top-level prompts. (defun gdb-subprompt (instance ignored) (let ((highest (gdb-instance-dequeue-input instance))) (if highest (gdb-send-item instance highest) (set-gdb-instance-prompting instance t)))) (defun gdb-send-item (instance item) (set-gdb-instance-current-item instance item) (if (stringp item) (progn (set-gdb-instance-output-sink instance 'user) (process-send-string (gdb-instance-process instance) item)) (progn (gdb-clear-partial-output instance) (set-gdb-instance-output-sink instance 'pre-emacs) (process-send-string (gdb-instance-process instance) (car item))))) ;; An annotation handler for `pre-prompt'. ;; This terminates the collection of output from a previous ;; command if that happens to be in effect. (defun gdb-pre-prompt (instance ignored) (let ((sink (gdb-instance-output-sink instance))) (cond ((eq sink 'user) t) ((eq sink 'emacs) (set-gdb-instance-output-sink instance 'post-emacs) (let ((handler (car (cdr (gdb-instance-current-item instance))))) (save-excursion (set-buffer (gdb-get-create-instance-buffer instance 'gdb-partial-output-buffer)) (funcall handler)))) (t (set-gdb-instance-output-sink instance 'user) (error "Output sink phase error 1."))))) ;; An annotation handler for `starting'. This says that I/O for the subprocess ;; is now the program being debugged, not GDB. (defun gdb-starting (instance ignored) (let ((sink (gdb-instance-output-sink instance))) (cond ((eq sink 'user) (set-gdb-instance-output-sink instance 'inferior) ;; FIXME: need to send queued input ) (t (error "Unexpected `starting' annotation"))))) ;; An annotation handler for `exited' and other annotations which say that ;; I/O for the subprocess is now GDB, not the program being debugged. (defun gdb-stopping (instance ignored) (let ((sink (gdb-instance-output-sink instance))) (cond ((eq sink 'inferior) (set-gdb-instance-output-sink instance 'user) ) (t (error "Unexpected stopping annotation"))))) ;; An annotation handler for `stopped'. It is just like gdb-stopping, except ;; that if we already set the output sink to 'user in gdb-stopping, that is ;; fine. (defun gdb-stopped (instance ignored) (let ((sink (gdb-instance-output-sink instance))) (cond ((eq sink 'inferior) (set-gdb-instance-output-sink instance 'user) ) ((eq sink 'user) t) (t (error "Unexpected stopping annotation"))))) ;; An annotation handler for `post-prompt'. ;; This begins the collection of output from the current ;; command if that happens to be appropriate." (defun gdb-post-prompt (instance ignored) (gdb-invalidate-registers instance ignored) (let ((sink (gdb-instance-output-sink instance))) (cond ((eq sink 'user) t) ((eq sink 'pre-emacs) (set-gdb-instance-output-sink instance 'emacs)) (t (set-gdb-instance-output-sink instance 'user) (error "Output sink phase error 3."))))) ;; Handle a burst of output from a gdb instance. ;; This function is (indirectly) used as a gud-marker-filter. ;; It must return output (if any) to be insterted in the gud ;; buffer. (defun gdb-output-burst (instance string) "Handle a burst of output from a gdb instance. This function is (indirectly) used as a gud-marker-filter. It must return output (if any) to be insterted in the gud buffer." (save-match-data (let ( ;; Recall the left over burst from last time (burst (concat (gdb-instance-burst instance) string)) ;; Start accumulating output for the gud buffer (output "")) ;; Process all the complete markers in this chunk. (while (string-match "\n\032\032\\(.*\\)\n" burst) (let ((annotation (substring burst (match-beginning 1) (match-end 1)))) ;; Stuff prior to the match is just ordinary output. ;; It is either concatenated to OUTPUT or directed ;; elsewhere. (setq output (gdb-concat-output instance output (substring burst 0 (match-beginning 0)))) ;; Take that stuff off the burst. (setq burst (substring burst (match-end 0))) ;; Parse the tag from the annotation, and maybe its arguments. (string-match "\\(\\S-*\\) ?\\(.*\\)" annotation) (let* ((annotation-type (substring annotation (match-beginning 1) (match-end 1))) (annotation-arguments (substring annotation (match-beginning 2) (match-end 2))) (annotation-rule (assoc annotation-type gdb-annotation-rules))) ;; Call the handler for this annotation. (if annotation-rule (funcall (car (cdr annotation-rule)) instance annotation-arguments) ;; Else the annotation is not recognized. Ignore it silently, ;; so that GDB can add new annotations without causing ;; us to blow up. )))) ;; Does the remaining text end in a partial line? ;; If it does, then keep part of the burst until we get more. (if (string-match "\n\\'\\|\n\032\\'\\|\n\032\032.*\\'" burst) (progn ;; Everything before the potential marker start can be output. (setq output (gdb-concat-output instance output (substring burst 0 (match-beginning 0)))) ;; Everything after, we save, to combine with later input. (setq burst (substring burst (match-beginning 0)))) ;; In case we know the burst contains no partial annotations: (progn (setq output (gdb-concat-output instance output burst)) (setq burst ""))) ;; Save the remaining burst for the next call to this function. (set-gdb-instance-burst instance burst) output))) (defun gdb-concat-output (instance so-far new) (let ((sink (gdb-instance-output-sink instance))) (cond ((eq sink 'user) (concat so-far new)) ((or (eq sink 'pre-emacs) (eq sink 'post-emacs)) so-far) ((eq sink 'emacs) (gdb-append-to-partial-output instance new) so-far) ((eq sink 'inferior) (gdb-append-to-inferior-io instance new) so-far) (t (error "Bogon output sink %S" sink))))) (defun gdb-append-to-partial-output (instance string) (save-excursion (set-buffer (gdb-get-create-instance-buffer instance 'gdb-partial-output-buffer)) (goto-char (point-max)) (insert string))) (defun gdb-clear-partial-output (instance) (save-excursion (set-buffer (gdb-get-create-instance-buffer instance 'gdb-partial-output-buffer)) (delete-region (point-min) (point-max)))) (defun gdb-append-to-inferior-io (instance string) (save-excursion (set-buffer (gdb-get-create-instance-buffer instance 'gdb-inferior-io)) (goto-char (point-max)) (insert-before-markers string)) (gud-display-buffer (gdb-get-create-instance-buffer instance 'gdb-inferior-io))) (defun gdb-clear-inferior-io (instance) (save-excursion (set-buffer (gdb-get-create-instance-buffer instance 'gdb-inferior-io)) (delete-region (point-min) (point-max)))) ;; One trick is to have a command who's output is always available in ;; a buffer of it's own, and is always up to date. We build several ;; buffers of this type. ;; ;; There are two aspects to this: gdb has to tell us when the output ;; for that command might have changed, and we have to be able to run ;; the command behind the user's back. ;; ;; The idle input queue and the output phasing associated with ;; the instance variable `(gdb-instance-output-sink instance)' help ;; us to run commands behind the user's back. ;; ;; Below is the code for specificly managing buffers of output from one ;; command. ;; ;; The trigger function is suitable for use in the assoc GDB-ANNOTATION-RULES ;; It adds an idle input for the command we are tracking. It should be the ;; annotation rule binding of whatever gdb sends to tell us this command ;; might have changed it's output. ;; ;; NAME is the fucntion name. DEMAND-PREDICATE tests if output is really needed. ;; GDB-COMMAND is a string of such. OUTPUT-HANDLER is the function bound to the ;; input in the input queue (see comment about ``gdb communications'' above). (defmacro def-gdb-auto-update-trigger (name demand-predicate gdb-command output-handler) (` (defun (, name) (instance &optional ignored) (if (and ((, demand-predicate) instance) (not (member '(, name) (gdb-instance-pending-triggers instance)))) (progn (gdb-instance-enqueue-idle-input instance (list (, gdb-command) '(, output-handler))) (set-gdb-instance-pending-triggers instance (cons '(, name) (gdb-instance-pending-triggers instance)))))))) (defmacro def-gdb-auto-update-handler (name trigger buf-key) (` (defun (, name) () (set-gdb-instance-pending-triggers instance (delq '(, trigger) (gdb-instance-pending-triggers instance))) (let ((buf (gdb-get-instance-buffer instance '(, buf-key)))) (and buf (save-excursion (set-buffer buf) (let ((p (point)) (buffer-read-only nil)) (delete-region (point-min) (point-max)) (insert-buffer (gdb-get-create-instance-buffer instance 'gdb-partial-output-buffer)) (goto-char p)))))))) (defmacro def-gdb-auto-updated-buffer (buffer-key trigger-name gdb-command output-handler-name) (` (progn (def-gdb-auto-update-trigger (, trigger-name) ;; The demand predicate: (lambda (instance) (gdb-get-instance-buffer instance '(, buffer-key))) (, gdb-command) (, output-handler-name)) (def-gdb-auto-update-handler (, output-handler-name) (, trigger-name) (, buffer-key))))) ;; ;; Breakpoint buffers ;; ;; These display the output of `info breakpoints'. ;; (gdb-set-instance-buffer-rules 'gdb-breakpoints-buffer 'gdb-breakpoints-buffer-name 'gud-breakpoints-mode) (def-gdb-auto-updated-buffer gdb-breakpoints-buffer ;; This defines the auto update rule for buffers of type ;; `gdb-breakpoints-buffer'. ;; ;; It defines a function to serve as the annotation handler that ;; handles the `foo-invalidated' message. That function is called: gdb-invalidate-breakpoints ;; To update the buffer, this command is sent to gdb. "server info breakpoints\n" ;; This also defines a function to be the handler for the output ;; from the command above. That function will copy the output into ;; the appropriately typed buffer. That function will be called: gdb-info-breakpoints-handler) (defun gdb-breakpoints-buffer-name (instance) (save-excursion (set-buffer (process-buffer (gdb-instance-process instance))) (concat "*breakpoints of " (gdb-instance-target-string instance) "*"))) (defun gud-display-breakpoints-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-display-buffer (gdb-get-create-instance-buffer instance 'gdb-breakpoints-buffer))) (defun gud-frame-breakpoints-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-frame-buffer (gdb-get-create-instance-buffer instance 'gdb-breakpoints-buffer))) (defvar gud-breakpoints-mode-map nil) (setq gud-breakpoints-mode-map (make-keymap)) (suppress-keymap gud-breakpoints-mode-map) (define-key gud-breakpoints-mode-map " " 'gud-toggle-bp-this-line) (define-key gud-breakpoints-mode-map "d" 'gud-delete-bp-this-line) (defun gud-breakpoints-mode () "Major mode for gud breakpoints. \\{gud-breakpoints-mode-map}" (setq major-mode 'gud-breakpoints-mode) (setq mode-name "Breakpoints") (use-local-map gud-breakpoints-mode-map) (setq buffer-read-only t) (gdb-invalidate-breakpoints gdb-buffer-instance)) (defun gud-toggle-bp-this-line () (interactive) (save-excursion (beginning-of-line 1) (if (not (looking-at "\\([0-9]*\\)\\s-*\\S-*\\s-*\\S-*\\s-*\\(.\\)")) (error "Not recognized as breakpoint line (demo foo).") (gdb-instance-enqueue-idle-input gdb-buffer-instance (list (concat (if (eq ?y (char-after (match-beginning 2))) "server disable " "server enable ") (buffer-substring (match-beginning 0) (match-end 1)) "\n") '(lambda () nil))) ))) (defun gud-delete-bp-this-line () (interactive) (save-excursion (beginning-of-line 1) (if (not (looking-at "\\([0-9]*\\)\\s-*\\S-*\\s-*\\S-*\\s-*\\(.\\)")) (error "Not recognized as breakpoint line (demo foo).") (gdb-instance-enqueue-idle-input gdb-buffer-instance (list (concat "server delete " (buffer-substring (match-beginning 0) (match-end 1)) "\n") '(lambda () nil))) ))) ;; ;; Frames buffers. These display a perpetually correct bactracktrace ;; (from the command `where'). ;; ;; Alas, if your stack is deep, they are costly. ;; (gdb-set-instance-buffer-rules 'gdb-stack-buffer 'gdb-stack-buffer-name 'gud-frames-mode) (def-gdb-auto-updated-buffer gdb-stack-buffer gdb-invalidate-frames "server where\n" gdb-info-frames-handler) (defun gdb-stack-buffer-name (instance) (save-excursion (set-buffer (process-buffer (gdb-instance-process instance))) (concat "*stack frames of " (gdb-instance-target-string instance) "*"))) (defun gud-display-stack-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-display-buffer (gdb-get-create-instance-buffer instance 'gdb-stack-buffer))) (defun gud-frame-stack-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-frame-buffer (gdb-get-create-instance-buffer instance 'gdb-stack-buffer))) (defvar gud-frames-mode-map nil) (setq gud-frames-mode-map (make-keymap)) (suppress-keymap gud-frames-mode-map) (define-key gud-frames-mode-map [mouse-2] 'gud-frames-select-by-mouse) (defun gud-frames-mode () "Major mode for gud frames. \\{gud-frames-mode-map}" (setq major-mode 'gud-frames-mode) (setq mode-name "Frames") (setq buffer-read-only t) (use-local-map gud-frames-mode-map) (gdb-invalidate-frames gdb-buffer-instance)) (defun gud-get-frame-number () (save-excursion (let* ((pos (re-search-backward "^#\\([0-9]*\\)" nil t)) (n (or (and pos (string-to-int (buffer-substring (match-beginning 1) (match-end 1)))) 0))) n))) (defun gud-frames-select-by-mouse (e) (interactive "e") (let (selection) (save-excursion (set-buffer (window-buffer (posn-window (event-end e)))) (save-excursion (goto-char (posn-point (event-end e))) (setq selection (gud-get-frame-number)))) (select-window (posn-window (event-end e))) (save-excursion (set-buffer (gdb-get-instance-buffer (gdb-needed-default-instance) 'gud)) (gud-call "fr %p" selection) (gud-display-frame)))) ;; ;; Registers buffers ;; (def-gdb-auto-updated-buffer gdb-registers-buffer gdb-invalidate-registers "server info registers\n" gdb-info-registers-handler) (gdb-set-instance-buffer-rules 'gdb-registers-buffer 'gdb-registers-buffer-name 'gud-registers-mode) (defvar gud-registers-mode-map nil) (setq gud-registers-mode-map (make-keymap)) (suppress-keymap gud-registers-mode-map) (defun gud-registers-mode () "Major mode for gud registers. \\{gud-registers-mode-map}" (setq major-mode 'gud-registers-mode) (setq mode-name "Registers") (setq buffer-read-only t) (use-local-map gud-registers-mode-map) (gdb-invalidate-registers gdb-buffer-instance)) (defun gdb-registers-buffer-name (instance) (save-excursion (set-buffer (process-buffer (gdb-instance-process instance))) (concat "*registers of " (gdb-instance-target-string instance) "*"))) (defun gud-display-registers-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-display-buffer (gdb-get-create-instance-buffer instance 'gdb-registers-buffer))) (defun gud-frame-registers-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-frame-buffer (gdb-get-create-instance-buffer instance 'gdb-registers-buffer))) ;;;; Menu windows: ;; MENU-LIST is ((option option option...) (option option ...)...) ;; (defun gud-display-menu (menu-list) (setq fill-column (min 120 (- (window-width) (min 8 (window-width))))) (while menu-list (mapcar (function (lambda (x) (insert (symbol-name x) " "))) (car menu-list)) (fill-paragraph nil) (insert "\n\n") (setq menu-list (cdr menu-list))) (goto-char (point-min)) (while (re-search-forward "\\([^ \n]+\\)\\(\n\\| \\)" nil t) (put-text-property (match-beginning 1) (match-end 1) 'mouse-face 'highlight)) (goto-char (point-min))) (defun gud-goto-menu (menu) (setq gud-menu-position menu) (let ((buffer-read-only nil)) (delete-region (point-min) (point-max)) (gud-display-menu menu))) (defun gud-menu-pick (event) "Choose an item from a gdb command menu." (interactive "e") (let (choice) (save-excursion (set-buffer (window-buffer (posn-window (event-start event)))) (goto-char (posn-point (event-start event))) (let (beg end) (skip-chars-forward "^ \t\n") (setq end (point)) (skip-chars-backward "^ \t\n") (setq beg (point)) (setq choice (buffer-substring beg end)) (message choice) (gud-invoke-menu (intern choice)))))) (defun gud-invoke-menu (symbol) (let ((meaning (assoc symbol gud-menu-rules))) (cond ((and (consp meaning) (consp (car (cdr meaning)))) (gud-goto-menu (car (cdr meaning)))) (meaning (call-interactively (car (cdr meaning))))))) (gdb-set-instance-buffer-rules 'gdb-command-buffer 'gdb-command-buffer-name 'gud-command-mode) (defvar gud-command-mode-map nil) (setq gud-command-mode-map (make-keymap)) (suppress-keymap gud-command-mode-map) (define-key gud-command-mode-map [mouse-2] 'gud-menu-pick) (defun gud-command-mode () "Major mode for gud menu. \\{gud-command-mode-map}" (interactive) (setq major-mode 'gud-command-mode) (setq mode-name "Menu") (setq buffer-read-only t) (use-local-map gud-command-mode-map) (make-variable-buffer-local 'gud-menu-position) (if (not gud-menu-position) (gud-goto-menu gud-running-menu))) (defun gdb-command-buffer-name (instance) (save-excursion (set-buffer (process-buffer (gdb-instance-process instance))) (concat "*menu of " (gdb-instance-target-string instance) "*"))) (defun gud-display-command-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-display-buffer (gdb-get-create-instance-buffer instance 'gdb-command-buffer) 6)) (defun gud-frame-command-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-frame-buffer (gdb-get-create-instance-buffer instance 'gdb-command-buffer))) (defvar gud-selected-menu-titles ()) (setq gud-selected-menu-titles '(RUNNING STACK DATA BREAKPOINTS FILES)) (setq gud-running-menu (list '(RUNNING stack breakpoints files) '(target run next step continue finish stepi kill help-running))) (setq gud-stack-menu (list '(running STACK breakpoints files) '(up down frame backtrace return help-stack))) (setq gud-data-menu (list '(running stack DATA breakpoints files) '(whatis ptype print set display undisplay disassemble help-data))) (setq gud-breakpoints-menu (list '(running stack BREAKPOINTS files) '(awatch rwatch watch break delete enable disable condition ignore help-breakpoints))) (setq gud-files-menu (list '(running stack breakpoints FILES) '(file core-file help-files) '(exec-file load symbol-file add-symbol-file sharedlibrary))) (setq gud-menu-rules (list (list 'running gud-running-menu) (list 'RUNNING gud-running-menu) (list 'stack gud-stack-menu) (list 'STACK gud-stack-menu) (list 'data gud-data-menu) (list 'DATA gud-data-menu) (list 'breakpoints gud-breakpoints-menu) (list 'BREAKPOINTS gud-breakpoints-menu) (list 'files gud-files-menu) (list 'FILES gud-files-menu) (list 'target 'gud-target) (list 'kill 'gud-kill) (list 'stepi 'gud-stepi) (list 'step 'gud-step) (list 'next 'gud-next) (list 'finish 'gud-finish) (list 'continue 'gud-cont) (list 'run 'gud-run) (list 'backtrace 'gud-backtrace) (list 'frame 'gud-frame) (list 'down 'gud-down) (list 'up 'gud-up) (list 'return 'gud-return) (list 'file 'gud-file) (list 'core-file 'gud-core-file) (list 'cd 'gud-cd) (list 'exec-file 'gud-exec-file) (list 'load 'gud-load) (list 'symbol-file 'gud-symbol-file) (list 'add-symbol-file 'gud-add-symbol-file) (list 'sharedlibrary 'gud-sharedlibrary) )) (defun gdb-call-showing-gud (instance command) (gud-display-gud-buffer instance) (comint-input-sender (gdb-instance-process instance) command)) (defvar gud-target-history ()) (defun gud-temp-buffer-show (buf) (let ((ow (selected-window))) (unwind-protect (progn (pop-to-buffer buf) ;; This insertion works around a bug in emacs. ;; The bug is that all the empty space after a ;; highlighted word that terminates a buffer ;; gets highlighted. That's really ugly, so ;; make sure a highlighted word can't ever ;; terminate the buffer. (goto-char (point-max)) (insert "\n") (goto-char (point-min)) (if (< (window-height) 10) (enlarge-window (- 10 (window-height))))) (select-window ow)))) (defun gud-target (instance command) (interactive (let* ((instance (gdb-needed-default-instance)) (temp-buffer-show-function (function gud-temp-buffer-show)) (target-name (completing-read (format "Target type: ") '(("remote") ("core") ("child") ("exec")) nil t nil 'gud-target-history))) (list instance (cond ((equal target-name "child") "run") ((equal target-name "core") (concat "target core " (read-file-name "core file: " nil "core" t))) ((equal target-name "exec") (concat "target exec " (read-file-name "exec file: " nil "a.out" t))) ((equal target-name "remote") (concat "target remote " (read-file-name "serial line for remote: " "/dev/" "ttya" t))) (t "echo No such target command!"))))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) command))) (defun gud-backtrace () (interactive) (let ((instance (gdb-needed-default-instance))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) "backtrace")))) (defun gud-frame () (interactive) (let ((instance (gdb-needed-default-instance))) (apply comint-input-sender (list (gdb-instance-process instance) "frame")))) (defun gud-return (instance command) (interactive (let ((temp-buffer-show-function (function gud-temp-buffer-show))) (list (gdb-needed-default-instance) (concat "return " (read-string "Expression to return: "))))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) command))) (defun gud-file (instance command) (interactive (let ((temp-buffer-show-function (function gud-temp-buffer-show))) (list (gdb-needed-default-instance) (concat "file " (read-file-name "Executable to debug: " nil "a.out" t))))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) command))) (defun gud-core-file (instance command) (interactive (let ((temp-buffer-show-function (function gud-temp-buffer-show))) (list (gdb-needed-default-instance) (concat "core " (read-file-name "Core file to debug: " nil "core-file" t))))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) command))) (defun gud-cd (dir) (interactive "FChange GDB's default directory: ") (let ((instance (gdb-needed-default-instance))) (save-excursion (set-buffer (gdb-get-instance-buffer instance 'gud)) (cd dir)) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) (concat "cd " dir))))) (defun gud-exec-file (instance command) (interactive (let ((temp-buffer-show-function (function gud-temp-buffer-show))) (list (gdb-needed-default-instance) (concat "exec-file " (read-file-name "Init memory from executable: " nil "a.out" t))))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) command))) (defun gud-load (instance command) (interactive (let ((temp-buffer-show-function (function gud-temp-buffer-show))) (list (gdb-needed-default-instance) (concat "load " (read-file-name "Dynamicly load from file: " nil "a.out" t))))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) command))) (defun gud-symbol-file (instance command) (interactive (let ((temp-buffer-show-function (function gud-temp-buffer-show))) (list (gdb-needed-default-instance) (concat "symbol-file " (read-file-name "Read symbol table from file: " nil "a.out" t))))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) command))) (defun gud-add-symbol-file (instance command) (interactive (let ((temp-buffer-show-function (function gud-temp-buffer-show))) (list (gdb-needed-default-instance) (concat "add-symbol-file " (read-file-name "Add symbols from file: " nil "a.out" t))))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) command))) (defun gud-sharedlibrary (instance command) (interactive (let ((temp-buffer-show-function (function gud-temp-buffer-show))) (list (gdb-needed-default-instance) (concat "sharedlibrary " (read-string "Load symbols for files matching regexp: "))))) (gud-display-gud-buffer instance) (apply comint-input-sender (list (gdb-instance-process instance) command))) ;;;; Window management ;;; FIXME: This should only return true for buffers in the current instance (defun gud-protected-buffer-p (buffer) "Is BUFFER a buffer which we want to leave displayed?" (save-excursion (set-buffer buffer) (or gdb-buffer-type overlay-arrow-position))) ;;; The way we abuse the dedicated-p flag is pretty gross, but seems ;;; to do the right thing. Seeing as there is no way for Lisp code to ;;; get at the use_time field of a window, I'm not sure there exists a ;;; more elegant solution without writing C code. (defun gud-display-buffer (buf &optional size) (let ((must-split nil) (answer nil)) (unwind-protect (progn (walk-windows '(lambda (win) (if (gud-protected-buffer-p (window-buffer win)) (set-window-dedicated-p win t)))) (setq answer (get-buffer-window buf)) (if (not answer) (let ((window (get-lru-window))) (if window (progn (set-window-buffer window buf) (setq answer window)) (setq must-split t))))) (walk-windows '(lambda (win) (if (gud-protected-buffer-p (window-buffer win)) (set-window-dedicated-p win nil))))) (if must-split (let* ((largest (get-largest-window)) (cur-size (window-height largest)) (new-size (and size (< size cur-size) (- cur-size size)))) (setq answer (split-window largest new-size)) (set-window-buffer answer buf))) answer)) (defun existing-source-window (buffer) (catch 'found (save-excursion (walk-windows (function (lambda (win) (if (and overlay-arrow-position (eq (window-buffer win) (marker-buffer overlay-arrow-position))) (progn (set-window-buffer win buffer) (throw 'found win)))))) nil))) (defun gud-display-source-buffer (buffer) (or (existing-source-window buffer) (gud-display-buffer buffer))) (defun gud-frame-buffer (buf) (save-excursion (set-buffer buf) (make-frame))) ;;; Shared keymap initialization: (defun make-windows-menu (map) (define-key map [menu-bar displays] (cons "GDB-Windows" (make-sparse-keymap "GDB-Windows"))) (define-key map [menu-bar displays gdb] '("Gdb" . gud-display-gud-buffer)) (define-key map [menu-bar displays registers] '("Registers" . gud-display-registers-buffer)) (define-key map [menu-bar displays frames] '("Stack" . gud-display-stack-buffer)) (define-key map [menu-bar displays breakpoints] '("Breakpoints" . gud-display-breakpoints-buffer)) (define-key map [menu-bar displays commands] '("Commands" . gud-display-command-buffer))) (defun gud-display-gud-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-display-buffer (gdb-get-create-instance-buffer instance 'gud))) (make-windows-menu gud-breakpoints-mode-map) (make-windows-menu gud-frames-mode-map) (make-windows-menu gud-registers-mode-map) (defun make-frames-menu (map) (define-key map [menu-bar frames] (cons "GDB-Frames" (make-sparse-keymap "GDB-Frames"))) (define-key map [menu-bar frames gdb] '("Gdb" . gud-frame-gud-buffer)) (define-key map [menu-bar frames registers] '("Registers" . gud-frame-registers-buffer)) (define-key map [menu-bar frames frames] '("Stack" . gud-frame-stack-buffer)) (define-key map [menu-bar frames breakpoints] '("Breakpoints" . gud-frame-breakpoints-buffer)) (define-key map [menu-bar displays commands] '("Commands" . gud-display-command-buffer))) (defun gud-frame-gud-buffer (instance) (interactive (list (gdb-needed-default-instance))) (gud-frame-buffer (gdb-get-create-instance-buffer instance 'gud))) (make-frames-menu gud-breakpoints-mode-map) (make-frames-menu gud-frames-mode-map) (make-frames-menu gud-registers-mode-map) (defun gud-gdb-find-file (f) (find-file-noselect f)) ;;;###autoload (defun gdb (command-line) "Run gdb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger." (interactive (list (read-from-minibuffer "Run gdb (like this): " (if (consp gud-gdb-history) (car gud-gdb-history) "gdb ") nil nil '(gud-gdb-history . 1)))) (gud-overload-functions '((gud-massage-args . gud-gdb-massage-args) (gud-marker-filter . gud-gdb-marker-filter) (gud-find-file . gud-gdb-find-file) )) (let* ((words (gud-chop-words command-line)) (program (car words)) (file-word (let ((w (cdr words))) (while (and w (= ?- (aref (car w) 0))) (setq w (cdr w))) (car w))) (args (delq file-word (cdr words))) (file (expand-file-name file-word)) (filepart (file-name-nondirectory file)) (buffer-name (concat "*gud-" filepart "*"))) (setq gdb-first-time (not (get-buffer-process buffer-name)))) (gud-common-init command-line) (gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.") (gud-def gud-tbreak "tbreak %f:%l" "\C-t" "Set breakpoint at current line.") (gud-def gud-remove "clear %l" "\C-d" "Remove breakpoint at current line") (gud-def gud-kill "kill" nil "Kill the program.") (gud-def gud-run "run" nil "Run the program.") (gud-def gud-stepi "stepi %p" "\C-i" "Step one instruction with display.") (gud-def gud-step "step %p" "\C-s" "Step one source line with display.") (gud-def gud-next "next %p" "\C-n" "Step one line (skip functions).") (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") (gud-def gud-cont "cont" "\C-r" "Continue with display.") (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") (gud-def gud-print "print %e" "\C-p" "Evaluate C expression at point.") (setq comint-prompt-regexp "^(.*gdb[+]?) *") (setq comint-input-sender 'gdb-send) (run-hooks 'gdb-mode-hook) (let ((instance (make-gdb-instance (get-buffer-process (current-buffer))) )) (if gdb-first-time (gdb-clear-inferior-io instance))) ) ;; ====================================================================== ;; sdb functions ;;; History of argument lists passed to sdb. (defvar gud-sdb-history nil) (defvar gud-sdb-needs-tags (not (file-exists-p "/var")) "If nil, we're on a System V Release 4 and don't need the tags hack.") (defvar gud-sdb-lastfile nil) (defun gud-sdb-massage-args (file args) (cons file args)) (defun gud-sdb-marker-filter (string) (cond ;; System V Release 3.2 uses this format ((string-match "\\(^0x\\w* in \\|^\\|\n\\)\\([^:\n]*\\):\\([0-9]*\\):.*\n" string) (setq gud-last-frame (cons (substring string (match-beginning 2) (match-end 2)) (string-to-int (substring string (match-beginning 3) (match-end 3)))))) ;; System V Release 4.0 ((string-match "^\\(BREAKPOINT\\|STEPPED\\) process [0-9]+ function [^ ]+ in \\(.+\\)\n" string) (setq gud-sdb-lastfile (substring string (match-beginning 2) (match-end 2)))) ((and gud-sdb-lastfile (string-match "^\\([0-9]+\\):" string)) (setq gud-last-frame (cons gud-sdb-lastfile (string-to-int (substring string (match-beginning 1) (match-end 1)))))) (t (setq gud-sdb-lastfile nil))) string) (defun gud-sdb-find-file (f) (if gud-sdb-needs-tags (find-tag-noselect f) (find-file-noselect f))) ;;;###autoload (defun sdb (command-line) "Run sdb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger." (interactive (list (read-from-minibuffer "Run sdb (like this): " (if (consp gud-sdb-history) (car gud-sdb-history) "sdb ") nil nil '(gud-sdb-history . 1)))) (if (and gud-sdb-needs-tags (not (and (boundp 'tags-file-name) (file-exists-p tags-file-name)))) (error "The sdb support requires a valid tags table to work.")) (gud-overload-functions '((gud-massage-args . gud-sdb-massage-args) (gud-marker-filter . gud-sdb-marker-filter) (gud-find-file . gud-sdb-find-file) )) (gud-common-init command-line) (gud-def gud-break "%l b" "\C-b" "Set breakpoint at current line.") (gud-def gud-tbreak "%l c" "\C-t" "Set temporary breakpoint at current line.") (gud-def gud-remove "%l d" "\C-d" "Remove breakpoint at current line") (gud-def gud-step "s %p" "\C-s" "Step one source line with display.") (gud-def gud-stepi "i %p" "\C-i" "Step one instruction with display.") (gud-def gud-next "S %p" "\C-n" "Step one line (skip functions).") (gud-def gud-cont "c" "\C-r" "Continue with display.") (gud-def gud-print "%e/" "\C-p" "Evaluate C expression at point.") (setq comint-prompt-regexp "\\(^\\|\n\\)\\*") (run-hooks 'sdb-mode-hook) ) ;; ====================================================================== ;; dbx functions ;;; History of argument lists passed to dbx. (defvar gud-dbx-history nil) (defun gud-dbx-massage-args (file args) (cons file args)) (defun gud-dbx-marker-filter (string) (if (or (string-match "stopped in .* at line \\([0-9]*\\) in file \"\\([^\"]*\\)\"" string) (string-match "signal .* in .* at line \\([0-9]*\\) in file \"\\([^\"]*\\)\"" string)) (setq gud-last-frame (cons (substring string (match-beginning 2) (match-end 2)) (string-to-int (substring string (match-beginning 1) (match-end 1)))))) string) (defun gud-dbx-find-file (f) (find-file-noselect f)) ;;;###autoload (defun dbx (command-line) "Run dbx on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger." (interactive (list (read-from-minibuffer "Run dbx (like this): " (if (consp gud-dbx-history) (car gud-dbx-history) "dbx ") nil nil '(gud-dbx-history . 1)))) (gud-overload-functions '((gud-massage-args . gud-dbx-massage-args) (gud-marker-filter . gud-dbx-marker-filter) (gud-find-file . gud-dbx-find-file) )) (gud-common-init command-line) (gud-def gud-break "file \"%d%f\"\nstop at %l" "\C-b" "Set breakpoint at current line.") ;; (gud-def gud-break "stop at \"%f\":%l" ;; "\C-b" "Set breakpoint at current line.") (gud-def gud-remove "clear %l" "\C-d" "Remove breakpoint at current line") (gud-def gud-step "step %p" "\C-s" "Step one line with display.") (gud-def gud-stepi "stepi %p" "\C-i" "Step one instruction with display.") (gud-def gud-next "next %p" "\C-n" "Step one line (skip functions).") (gud-def gud-cont "cont" "\C-r" "Continue with display.") (gud-def gud-up "up %p" "<" "Up (numeric arg) stack frames.") (gud-def gud-down "down %p" ">" "Down (numeric arg) stack frames.") (gud-def gud-print "print %e" "\C-p" "Evaluate C expression at point.") (setq comint-prompt-regexp "^[^)]*dbx) *") (run-hooks 'dbx-mode-hook) ) ;; ====================================================================== ;; xdb (HP PARISC debugger) functions ;;; History of argument lists passed to xdb. (defvar gud-xdb-history nil) (defvar gud-xdb-directories nil "*A list of directories that xdb should search for source code. If nil, only source files in the program directory will be known to xdb. The file names should be absolute, or relative to the directory containing the executable being debugged.") (defun gud-xdb-massage-args (file args) (nconc (let ((directories gud-xdb-directories) (result nil)) (while directories (setq result (cons (car directories) (cons "-d" result))) (setq directories (cdr directories))) (nreverse (cons file result))) args)) (defun gud-xdb-file-name (f) "Transform a relative pathname to a full pathname in xdb mode" (let ((result nil)) (if (file-exists-p f) (setq result (expand-file-name f)) (let ((directories gud-xdb-directories)) (while directories (let ((path (concat (car directories) "/" f))) (if (file-exists-p path) (setq result (expand-file-name path) directories nil))) (setq directories (cdr directories))))) result)) ;; xdb does not print the lines all at once, so we have to accumulate them (defvar gud-xdb-accumulation "") (defun gud-xdb-marker-filter (string) (let (result) (if (or (string-match comint-prompt-regexp string) (string-match ".*\012" string)) (setq result (concat gud-xdb-accumulation string) gud-xdb-accumulation "") (setq gud-xdb-accumulation (concat gud-xdb-accumulation string))) (if result (if (or (string-match "\\([^\n \t:]+\\): [^:]+: \\([0-9]+\\):" result) (string-match "[^: \t]+:[ \t]+\\([^:]+\\): [^:]+: \\([0-9]+\\):" result)) (let ((line (string-to-int (substring result (match-beginning 2) (match-end 2)))) (file (gud-xdb-file-name (substring result (match-beginning 1) (match-end 1))))) (if file (setq gud-last-frame (cons file line)))))) (or result ""))) (defun gud-xdb-find-file (f) (let ((realf (gud-xdb-file-name f))) (if realf (find-file-noselect realf)))) ;;;###autoload (defun xdb (command-line) "Run xdb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger. You can set the variable 'gud-xdb-directories' to a list of program source directories if your program contains sources from more than one directory." (interactive (list (read-from-minibuffer "Run xdb (like this): " (if (consp gud-xdb-history) (car gud-xdb-history) "xdb ") nil nil '(gud-xdb-history . 1)))) (gud-overload-functions '((gud-massage-args . gud-xdb-massage-args) (gud-marker-filter . gud-xdb-marker-filter) (gud-find-file . gud-xdb-find-file))) (gud-common-init command-line) (gud-def gud-break "b %f:%l" "\C-b" "Set breakpoint at current line.") (gud-def gud-tbreak "b %f:%l\\t" "\C-t" "Set temporary breakpoint at current line.") (gud-def gud-remove "db" "\C-d" "Remove breakpoint at current line") (gud-def gud-step "s %p" "\C-s" "Step one line with display.") (gud-def gud-next "S %p" "\C-n" "Step one line (skip functions).") (gud-def gud-cont "c" "\C-r" "Continue with display.") (gud-def gud-up "up %p" "<" "Up (numeric arg) stack frames.") (gud-def gud-down "down %p" ">" "Down (numeric arg) stack frames.") (gud-def gud-finish "bu\\t" "\C-f" "Finish executing current function.") (gud-def gud-print "p %e" "\C-p" "Evaluate C expression at point.") (setq comint-prompt-regexp "^>") (make-local-variable 'gud-xdb-accumulation) (setq gud-xdb-accumulation "") (run-hooks 'xdb-mode-hook)) ;; ====================================================================== ;; perldb functions ;;; History of argument lists passed to perldb. (defvar gud-perldb-history nil) (defun gud-perldb-massage-args (file args) (cons "-d" (cons file (cons "-emacs" args)))) ;; There's no guarantee that Emacs will hand the filter the entire ;; marker at once; it could be broken up across several strings. We ;; might even receive a big chunk with several markers in it. If we ;; receive a chunk of text which looks like it might contain the ;; beginning of a marker, we save it here between calls to the ;; filter. (defvar gud-perldb-marker-acc "") (defun gud-perldb-marker-filter (string) (save-match-data (setq gud-perldb-marker-acc (concat gud-perldb-marker-acc string)) (let ((output "")) ;; Process all the complete markers in this chunk. (while (string-match "^\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n" gud-perldb-marker-acc) (setq ;; Extract the frame position from the marker. gud-last-frame (cons (substring gud-perldb-marker-acc (match-beginning 1) (match-end 1)) (string-to-int (substring gud-perldb-marker-acc (match-beginning 2) (match-end 2)))) ;; Append any text before the marker to the output we're going ;; to return - we don't include the marker in this text. output (concat output (substring gud-perldb-marker-acc 0 (match-beginning 0))) ;; Set the accumulator to the remaining text. gud-perldb-marker-acc (substring gud-perldb-marker-acc (match-end 0)))) ;; Does the remaining text look like it might end with the ;; beginning of another marker? If it does, then keep it in ;; gud-perldb-marker-acc until we receive the rest of it. Since we ;; know the full marker regexp above failed, it's pretty simple to ;; test for marker starts. (if (string-match "^\032.*\\'" gud-perldb-marker-acc) (progn ;; Everything before the potential marker start can be output. (setq output (concat output (substring gud-perldb-marker-acc 0 (match-beginning 0)))) ;; Everything after, we save, to combine with later input. (setq gud-perldb-marker-acc (substring gud-perldb-marker-acc (match-beginning 0)))) (setq output (concat output gud-perldb-marker-acc) gud-perldb-marker-acc "")) output))) (defun gud-perldb-find-file (f) (find-file-noselect f)) ;;;###autoload (defun perldb (command-line) "Run perldb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger." (interactive (list (read-from-minibuffer "Run perldb (like this): " (if (consp gud-perldb-history) (car gud-perldb-history) "perl ") nil nil '(gud-perldb-history . 1)))) (gud-overload-functions '((gud-massage-args . gud-perldb-massage-args) (gud-marker-filter . gud-perldb-marker-filter) (gud-find-file . gud-perldb-find-file) )) (gud-common-init command-line) (gud-def gud-break "b %l" "\C-b" "Set breakpoint at current line.") (gud-def gud-remove "d %l" "\C-d" "Remove breakpoint at current line") (gud-def gud-step "s" "\C-s" "Step one source line with display.") (gud-def gud-next "n" "\C-n" "Step one line (skip functions).") (gud-def gud-cont "c" "\C-r" "Continue with display.") ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") ; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") ; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") (gud-def gud-print "%e" "\C-p" "Evaluate perl expression at point.") (setq comint-prompt-regexp "^ DB<[0-9]+> ") (run-hooks 'perldb-mode-hook) ) ;; ;; End of debugger-specific information ;; ;;; When we send a command to the debugger via gud-call, it's annoying ;;; to see the command and the new prompt inserted into the debugger's ;;; buffer; we have other ways of knowing the command has completed. ;;; ;;; If the buffer looks like this: ;;; -------------------- ;;; (gdb) set args foo bar ;;; (gdb) -!- ;;; -------------------- ;;; (the -!- marks the location of point), and we type `C-x SPC' in a ;;; source file to set a breakpoint, we want the buffer to end up like ;;; this: ;;; -------------------- ;;; (gdb) set args foo bar ;;; Breakpoint 1 at 0x92: file make-docfile.c, line 49. ;;; (gdb) -!- ;;; -------------------- ;;; Essentially, the old prompt is deleted, and the command's output ;;; and the new prompt take its place. ;;; ;;; Not echoing the command is easy enough; you send it directly using ;;; comint-input-sender, and it never enters the buffer. However, ;;; getting rid of the old prompt is trickier; you don't want to do it ;;; when you send the command, since that will result in an annoying ;;; flicker as the prompt is deleted, redisplay occurs while Emacs ;;; waits for a response from the debugger, and the new prompt is ;;; inserted. Instead, we'll wait until we actually get some output ;;; from the subprocess before we delete the prompt. If the command ;;; produced no output other than a new prompt, that prompt will most ;;; likely be in the first chunk of output received, so we will delete ;;; the prompt and then replace it with an identical one. If the ;;; command produces output, the prompt is moving anyway, so the ;;; flicker won't be annoying. ;;; ;;; So - when we want to delete the prompt upon receipt of the next ;;; chunk of debugger output, we position gud-delete-prompt-marker at ;;; the start of the prompt; the process filter will notice this, and ;;; delete all text between it and the process output marker. If ;;; gud-delete-prompt-marker points nowhere, we leave the current ;;; prompt alone. (defvar gud-delete-prompt-marker nil) (defvar gdbish-comint-mode-map (copy-keymap comint-mode-map)) (define-key gdbish-comint-mode-map "\C-c\M-\C-r" 'gud-display-registers-buffer) (define-key gdbish-comint-mode-map "\C-c\M-\C-f" 'gud-display-stack-buffer) (define-key gdbish-comint-mode-map "\C-c\M-\C-b" 'gud-display-breakpoints-buffer) (make-windows-menu gdbish-comint-mode-map) (make-frames-menu gdbish-comint-mode-map) (defun gud-mode () "Major mode for interacting with an inferior debugger process. You start it up with one of the commands M-x gdb, M-x sdb, M-x dbx, or M-x xdb. Each entry point finishes by executing a hook; `gdb-mode-hook', `sdb-mode-hook', `dbx-mode-hook' or `xdb-mode-hook' respectively. After startup, the following commands are available in both the GUD interaction buffer and any source buffer GUD visits due to a breakpoint stop or step operation: \\[gud-break] sets a breakpoint at the current file and line. In the GUD buffer, the current file and line are those of the last breakpoint or step. In a source buffer, they are the buffer's file and current line. \\[gud-remove] removes breakpoints on the current file and line. \\[gud-refresh] displays in the source window the last line referred to in the gud buffer. \\[gud-step], \\[gud-next], and \\[gud-stepi] do a step-one-line, step-one-line (not entering function calls), and step-one-instruction and then update the source window with the current file and position. \\[gud-cont] continues execution. \\[gud-print] tries to find the largest C lvalue or function-call expression around point, and sends it to the debugger for value display. The above commands are common to all supported debuggers except xdb which does not support stepping instructions. Under gdb, sdb and xdb, \\[gud-tbreak] behaves exactly like \\[gud-break], except that the breakpoint is temporary; that is, it is removed when execution stops on it. Under gdb, dbx, and xdb, \\[gud-up] pops up through an enclosing stack frame. \\[gud-down] drops back down through one. If you are using gdb or xdb, \\[gud-finish] runs execution to the return from the current function and stops. All the keystrokes above are accessible in the GUD buffer with the prefix C-c, and in all buffers through the prefix C-x C-a. All pre-defined functions for which the concept make sense repeat themselves the appropriate number of times if you give a prefix argument. You may use the `gud-def' macro in the initialization hook to define other commands. Other commands for interacting with the debugger process are inherited from comint mode, which see." (interactive) (comint-mode) (setq major-mode 'gud-mode) (setq mode-name "Debugger") (setq mode-line-process '(": %s")) (use-local-map (copy-keymap gdbish-comint-mode-map)) (setq gud-last-frame nil) (make-local-variable 'comint-prompt-regexp) (make-local-variable 'gud-delete-prompt-marker) (setq gud-delete-prompt-marker (make-marker)) (run-hooks 'gud-mode-hook) ) (defvar gud-comint-buffer nil) ;; Chop STRING into words separated by SPC or TAB and return a list of them. (defun gud-chop-words (string) (let ((i 0) (beg 0) (len (length string)) (words nil)) (while (< i len) (if (memq (aref string i) '(?\t ? )) (progn (setq words (cons (substring string beg i) words) beg (1+ i)) (while (and (< beg len) (memq (aref string beg) '(?\t ? ))) (setq beg (1+ beg))) (setq i (1+ beg))) (setq i (1+ i)))) (if (< beg len) (setq words (cons (substring string beg) words))) (nreverse words))) (defvar gud-target-name "--unknown--" "The apparent name of the program being debugged in a gud buffer. For sure this the root string used in smashing together the gud buffer's name, even if that doesn't happen to be the name of a program.") ;; Perform initializations common to all debuggers. (defun gud-common-init (command-line) (let* ((words (gud-chop-words command-line)) (program (car words)) (file-word (let ((w (cdr words))) (while (and w (= ?- (aref (car w) 0))) (setq w (cdr w))) (car w))) (args (delq file-word (cdr words))) (file (expand-file-name file-word)) (filepart (file-name-nondirectory file)) (buffer-name (concat "*gud-" filepart "*"))) (switch-to-buffer buffer-name) (setq default-directory (file-name-directory file)) (or (bolp) (newline)) (insert "Current directory is " default-directory "\n") (let ((old-instance gdb-buffer-instance)) (apply 'make-comint (concat "gud-" filepart) program nil (gud-massage-args file args)) (gud-mode) (make-variable-buffer-local 'old-gdb-buffer-instance) (setq old-gdb-buffer-instance old-instance)) (make-variable-buffer-local 'gud-target-name) (setq gud-target-name filepart)) (set-process-filter (get-buffer-process (current-buffer)) 'gud-filter) (set-process-sentinel (get-buffer-process (current-buffer)) 'gud-sentinel) (gud-set-buffer) ) (defun gud-set-buffer () (cond ((eq major-mode 'gud-mode) (setq gud-comint-buffer (current-buffer))))) ;; These functions are responsible for inserting output from your debugger ;; into the buffer. The hard work is done by the method that is ;; the value of gud-marker-filter. (defun gud-filter (proc string) ;; Here's where the actual buffer insertion is done (let ((inhibit-quit t)) (save-excursion (set-buffer (process-buffer proc)) (let (moving output-after-point) (save-excursion (goto-char (process-mark proc)) ;; If we have been so requested, delete the debugger prompt. (if (marker-buffer gud-delete-prompt-marker) (progn (delete-region (point) gud-delete-prompt-marker) (set-marker gud-delete-prompt-marker nil))) (insert-before-markers (gud-marker-filter string)) (setq moving (= (point) (process-mark proc))) (setq output-after-point (< (point) (process-mark proc))) ;; Check for a filename-and-line number. ;; Don't display the specified file ;; unless (1) point is at or after the position where output appears ;; and (2) this buffer is on the screen. (if (and gud-last-frame (not output-after-point) (get-buffer-window (current-buffer))) (gud-display-frame))) (if moving (goto-char (process-mark proc))))))) (defun gud-proc-died (proc) ;; Stop displaying an arrow in a source file. (setq overlay-arrow-position nil) ;; Kill the dummy process, so that C-x C-c won't worry about it. (save-excursion (set-buffer (process-buffer proc)) (kill-process (get-buffer-process (gdb-get-instance-buffer gdb-buffer-instance 'gdb-inferior-io)))) ) (defun gud-sentinel (proc msg) (cond ((null (buffer-name (process-buffer proc))) ;; buffer killed (gud-proc-died proc) (set-process-buffer proc nil)) ((memq (process-status proc) '(signal exit)) (gud-proc-died proc) ;; Fix the mode line. (setq mode-line-process (concat ": " (symbol-name (process-status proc)))) (let* ((obuf (current-buffer))) ;; save-excursion isn't the right thing if ;; process-buffer is current-buffer (unwind-protect (progn ;; Write something in *compilation* and hack its mode line, (set-buffer (process-buffer proc)) ;; Force mode line redisplay soon (set-buffer-modified-p (buffer-modified-p)) (if (eobp) (insert ?\n mode-name " " msg) (save-excursion (goto-char (point-max)) (insert ?\n mode-name " " msg))) ;; If buffer and mode line will show that the process ;; is dead, we can delete it now. Otherwise it ;; will stay around until M-x list-processes. (delete-process proc)) ;; Restore old buffer, but don't restore old point ;; if obuf is the gud buffer. (set-buffer obuf)))))) (defun gud-display-frame () "Find and obey the last filename-and-line marker from the debugger. Obeying it means displaying in another window the specified file and line." (interactive) (if gud-last-frame (progn ; (gud-set-buffer) (gud-display-line (car gud-last-frame) (cdr gud-last-frame)) (setq gud-last-last-frame gud-last-frame gud-last-frame nil)))) ;; Make sure the file named TRUE-FILE is in a buffer that appears on the screen ;; and that its line LINE is visible. ;; Put the overlay-arrow on the line LINE in that buffer. ;; Most of the trickiness in here comes from wanting to preserve the current ;; region-restriction if that's possible. We use an explicit display-buffer ;; to get around the fact that this is called inside a save-excursion. (defun gud-display-line (true-file line) (let* ((buffer (gud-find-file true-file)) (window (gud-display-source-buffer buffer)) (pos)) (if (not window) (error "foo bar baz")) ;;; (if (equal buffer (current-buffer)) ;;; nil ;;; (setq buffer-read-only nil)) (save-excursion ;;; (setq buffer-read-only t) (set-buffer buffer) (save-restriction (widen) (goto-line line) (setq pos (point)) (setq overlay-arrow-string "=>") (or overlay-arrow-position (setq overlay-arrow-position (make-marker))) (set-marker overlay-arrow-position (point) (current-buffer))) (cond ((or (< pos (point-min)) (> pos (point-max))) (widen) (goto-char pos)))) (set-window-point window overlay-arrow-position))) ;;; The gud-call function must do the right thing whether its invoking ;;; keystroke is from the GUD buffer itself (via major-mode binding) ;;; or a C buffer. In the former case, we want to supply data from ;;; gud-last-frame. Here's how we do it: (defun gud-format-command (str arg) (let ((insource (not (eq (current-buffer) gud-comint-buffer)))) (if (string-match "\\(.*\\)%f\\(.*\\)" str) (setq str (concat (substring str (match-beginning 1) (match-end 1)) (file-name-nondirectory (if insource (buffer-file-name) (car gud-last-frame))) (substring str (match-beginning 2) (match-end 2))))) (if (string-match "\\(.*\\)%d\\(.*\\)" str) (setq str (concat (substring str (match-beginning 1) (match-end 1)) (file-name-directory (if insource (buffer-file-name) (car gud-last-frame))) (substring str (match-beginning 2) (match-end 2))))) (if (string-match "\\(.*\\)%l\\(.*\\)" str) (setq str (concat (substring str (match-beginning 1) (match-end 1)) (if insource (save-excursion (beginning-of-line) (save-restriction (widen) (1+ (count-lines 1 (point))))) (cdr gud-last-frame)) (substring str (match-beginning 2) (match-end 2))))) (if (string-match "\\(.*\\)%e\\(.*\\)" str) (setq str (concat (substring str (match-beginning 1) (match-end 1)) (find-c-expr) (substring str (match-beginning 2) (match-end 2))))) (if (string-match "\\(.*\\)%a\\(.*\\)" str) (setq str (concat (substring str (match-beginning 1) (match-end 1)) (gud-read-address) (substring str (match-beginning 2) (match-end 2))))) (if (string-match "\\(.*\\)%p\\(.*\\)" str) (setq str (concat (substring str (match-beginning 1) (match-end 1)) (if arg (int-to-string arg) "") (substring str (match-beginning 2) (match-end 2))))) ) str ) (defun gud-read-address () "Return a string containing the core-address found in the buffer at point." (save-excursion (let ((pt (point)) found begin) (setq found (if (search-backward "0x" (- pt 7) t) (point))) (cond (found (forward-char 2) (buffer-substring found (progn (re-search-forward "[^0-9a-f]") (forward-char -1) (point)))) (t (setq begin (progn (re-search-backward "[^0-9]") (forward-char 1) (point))) (forward-char 1) (re-search-forward "[^0-9]") (forward-char -1) (buffer-substring begin (point))))))) (defun gud-call (fmt &optional arg) (let ((msg (gud-format-command fmt arg))) (message "Command: %s" msg) (sit-for 0) (gud-basic-call msg))) (defun gud-basic-call (command) "Invoke the debugger COMMAND displaying source in other window." (interactive) (gud-set-buffer) (let ((proc (get-buffer-process gud-comint-buffer))) ;; Arrange for the current prompt to get deleted. (save-excursion (set-buffer gud-comint-buffer) (goto-char (process-mark proc)) (beginning-of-line) (if (looking-at comint-prompt-regexp) (set-marker gud-delete-prompt-marker (point))) (apply comint-input-sender (list proc command))))) (defun gud-refresh (&optional arg) "Fix up a possibly garbled display, and redraw the arrow." (interactive "P") (recenter arg) (or gud-last-frame (setq gud-last-frame gud-last-last-frame)) (gud-display-frame)) ;;; Code for parsing expressions out of C code. The single entry point is ;;; find-c-expr, which tries to return an lvalue expression from around point. ;;; ;;; The rest of this file is a hacked version of gdbsrc.el by ;;; Debby Ayers , ;;; Rich Schaefer Schlumberger, Austin, Tx. (defun find-c-expr () "Returns the C expr that surrounds point." (interactive) (save-excursion (let ((p) (expr) (test-expr)) (setq p (point)) (setq expr (expr-cur)) (setq test-expr (expr-prev)) (while (expr-compound test-expr expr) (setq expr (cons (car test-expr) (cdr expr))) (goto-char (car expr)) (setq test-expr (expr-prev))) (goto-char p) (setq test-expr (expr-next)) (while (expr-compound expr test-expr) (setq expr (cons (car expr) (cdr test-expr))) (setq test-expr (expr-next)) ) (buffer-substring (car expr) (cdr expr))))) (defun expr-cur () "Returns the expr that point is in; point is set to beginning of expr. The expr is represented as a cons cell, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies the character after the end of the expr." (let ((p (point)) (begin) (end)) (expr-backward-sexp) (setq begin (point)) (expr-forward-sexp) (setq end (point)) (if (>= p end) (progn (setq begin p) (goto-char p) (expr-forward-sexp) (setq end (point)) ) ) (goto-char begin) (cons begin end))) (defun expr-backward-sexp () "Version of `backward-sexp' that catches errors." (condition-case nil (backward-sexp) (error t))) (defun expr-forward-sexp () "Version of `forward-sexp' that catches errors." (condition-case nil (forward-sexp) (error t))) (defun expr-prev () "Returns the previous expr, point is set to beginning of that expr. The expr is represented as a cons cell, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies the character after the end of the expr" (let ((begin) (end)) (expr-backward-sexp) (setq begin (point)) (expr-forward-sexp) (setq end (point)) (goto-char begin) (cons begin end))) (defun expr-next () "Returns the following expr, point is set to beginning of that expr. The expr is represented as a cons cell, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies the character after the end of the expr." (let ((begin) (end)) (expr-forward-sexp) (expr-forward-sexp) (setq end (point)) (expr-backward-sexp) (setq begin (point)) (cons begin end))) (defun expr-compound-sep (span-start span-end) "Returns '.' for '->' & '.', returns ' ' for white space, returns '?' for other punctuation." (let ((result ? ) (syntax)) (while (< span-start span-end) (setq syntax (char-syntax (char-after span-start))) (cond ((= syntax ? ) t) ((= syntax ?.) (setq syntax (char-after span-start)) (cond ((= syntax ?.) (setq result ?.)) ((and (= syntax ?-) (= (char-after (+ span-start 1)) ?>)) (setq result ?.) (setq span-start (+ span-start 1))) (t (setq span-start span-end) (setq result ??))))) (setq span-start (+ span-start 1))) result)) (defun expr-compound (first second) "Non-nil if concatenating FIRST and SECOND makes a single C token. The two exprs are represented as a cons cells, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies the character after the end of the expr. Link exprs of the form: Expr -> Expr Expr . Expr Expr (Expr) Expr [Expr] (Expr) Expr [Expr] Expr" (let ((span-start (cdr first)) (span-end (car second)) (syntax)) (setq syntax (expr-compound-sep span-start span-end)) (cond ((= (car first) (car second)) nil) ((= (cdr first) (cdr second)) nil) ((= syntax ?.) t) ((= syntax ? ) (setq span-start (char-after (- span-start 1))) (setq span-end (char-after span-end)) (cond ((= span-start ?) ) t ) ((= span-start ?] ) t ) ((= span-end ?( ) t ) ((= span-end ?[ ) t ) (t nil)) ) (t nil)))) (provide 'gud) ;;; gud.el ends here gdb-4.13/gdb/gdbcmd.h 666 34562 1752 5511 5412472501 12664 0ustar fnfcygnus/* Header file for GDB-specific command-line stuff. Copyright 1986, 1989, 1990, 1992 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (GDBCMD_H) #define GDBCMD_H 1 #include "command.h" /* Chain containing all defined commands. */ extern struct cmd_list_element *cmdlist; /* Chain containing all defined info subcommands. */ extern struct cmd_list_element *infolist; /* Chain containing all defined enable subcommands. */ extern struct cmd_list_element *enablelist; /* Chain containing all defined disable subcommands. */ extern struct cmd_list_element *disablelist; /* Chain containing all defined delete subcommands. */ extern struct cmd_list_element *deletelist; /* Chain containing all defined "enable breakpoint" subcommands. */ extern struct cmd_list_element *enablebreaklist; /* Chain containing all defined set subcommands */ extern struct cmd_list_element *setlist; /* Chain containing all defined unset subcommands */ extern struct cmd_list_element *unsetlist; /* Chain containing all defined show subcommands. */ extern struct cmd_list_element *showlist; /* Chain containing all defined \"set history\". */ extern struct cmd_list_element *sethistlist; /* Chain containing all defined \"show history\". */ extern struct cmd_list_element *showhistlist; /* Chain containing all defined \"unset history\". */ extern struct cmd_list_element *unsethistlist; /* Chain containing all defined maintenance subcommands. */ extern struct cmd_list_element *maintenancelist; /* Chain containing all defined "maintenance info" subcommands. */ extern struct cmd_list_element *maintenanceinfolist; /* Chain containing all defined "maintenance print" subcommands. */ extern struct cmd_list_element *maintenanceprintlist; extern struct cmd_list_element *setprintlist; extern struct cmd_list_element *showprintlist; extern struct cmd_list_element *setchecklist; extern struct cmd_list_element *showchecklist; extern void execute_user_command PARAMS ((struct cmd_list_element *, char *)); extern void execute_command PARAMS ((char *, int)); extern char **noop_completer PARAMS ((char *, char *)); extern char **filename_completer PARAMS ((char *, char *)); #endif /* !defined (GDBCMD_H) */ gdb-4.13/gdb/gdbcore.h 666 34562 1752 10035 5515313163 13070 0ustar fnfcygnus/* Machine independent variables that describe the core file under GDB. Copyright 1986, 1987, 1989, 1990, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Interface routines for core, executable, etc. */ #if !defined (GDBCORE_H) #define GDBCORE_H 1 #include "bfd.h" /* Binary File Description */ /* Return the name of the executable file as a string. ERR nonzero means get error if there is none specified; otherwise return 0 in that case. */ extern char * get_exec_file PARAMS ((int err)); /* Nonzero if there is a core file. */ extern int have_core_file_p PARAMS ((void)); /* Read "memory data" from whatever target or inferior we have. Returns zero if successful, errno value if not. EIO is used for address out of bounds. If breakpoints are inserted, returns shadow contents, not the breakpoints themselves. From breakpoint.c. */ extern int read_memory_nobpt PARAMS ((CORE_ADDR memaddr, char *myaddr, unsigned len)); /* Report a memory error with error(). */ extern void memory_error PARAMS ((int status, CORE_ADDR memaddr)); /* Like target_read_memory, but report an error if can't read. */ extern void read_memory PARAMS ((CORE_ADDR memaddr, char *myaddr, int len)); /* Read an integer from debugged memory, given address and number of bytes. */ extern LONGEST read_memory_integer PARAMS ((CORE_ADDR memaddr, int len)); /* Read an unsigned integer from debugged memory, given address and number of bytes. */ extern unsigned LONGEST read_memory_unsigned_integer PARAMS ((CORE_ADDR memaddr, int len)); /* This takes a char *, not void *. This is probably right, because passing in an int * or whatever is wrong with respect to byteswapping, alignment, different sizes for host vs. target types, etc. */ extern void write_memory PARAMS ((CORE_ADDR memaddr, char *myaddr, int len)); extern void generic_search PARAMS ((int len, char *data, char *mask, CORE_ADDR startaddr, int increment, CORE_ADDR lorange, CORE_ADDR hirange, CORE_ADDR *addr_found, char *data_found)); /* Hook for `exec_file_command' command to call. */ extern void (*exec_file_display_hook) PARAMS ((char *filename)); extern void specify_exec_file_hook PARAMS ((void (*hook) (char *filename))); /* Binary File Diddlers for the exec and core files */ extern bfd *core_bfd; extern bfd *exec_bfd; /* Whether to open exec and core files read-only or read-write. */ extern int write_files; extern void core_file_command PARAMS ((char *filename, int from_tty)); extern void exec_file_command PARAMS ((char *filename, int from_tty)); extern void validate_files PARAMS ((void)); extern unsigned int register_addr PARAMS ((int regno, int blockend)); extern int xfer_core_file PARAMS ((CORE_ADDR memaddr, char *myaddr, int len)); extern void fetch_core_registers PARAMS ((char *core_reg_sect, unsigned core_reg_size, int which, unsigned int reg_addr)); extern void registers_fetched PARAMS ((void)); #if !defined (KERNEL_U_ADDR) extern CORE_ADDR kernel_u_addr; #define KERNEL_U_ADDR kernel_u_addr #endif /* The target vector for core files */ extern struct target_ops core_ops; /* target vector functions called directly from elsewhere */ void core_open PARAMS ((char *, int)); void core_detach PARAMS ((char *, int)); /* The current default bfd target. */ extern char *gnutarget; extern void set_gnutarget PARAMS ((char *)); #endif /* !defined (GDBCORE_H) */ gdb-4.13/gdb/gdbtypes.c 666 34562 1752 132152 5566222556 13337 0ustar fnfcygnus/* Support routines for manipulating internal types for GDB. Copyright (C) 1992 Free Software Foundation, Inc. Contributed by Cygnus Support, using pieces from other GDB modules. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include "bfd.h" #include "symtab.h" #include "symfile.h" #include "objfiles.h" #include "gdbtypes.h" #include "expression.h" #include "language.h" #include "target.h" #include "value.h" #include "demangle.h" #include "complaints.h" /* These variables point to the objects representing the predefined C data types. */ struct type *builtin_type_void; struct type *builtin_type_char; struct type *builtin_type_short; struct type *builtin_type_int; struct type *builtin_type_long; struct type *builtin_type_long_long; struct type *builtin_type_signed_char; struct type *builtin_type_unsigned_char; struct type *builtin_type_unsigned_short; struct type *builtin_type_unsigned_int; struct type *builtin_type_unsigned_long; struct type *builtin_type_unsigned_long_long; struct type *builtin_type_float; struct type *builtin_type_double; struct type *builtin_type_long_double; struct type *builtin_type_complex; struct type *builtin_type_double_complex; struct type *builtin_type_string; /* Alloc a new type structure and fill it with some defaults. If OBJFILE is non-NULL, then allocate the space for the type structure in that objfile's type_obstack. */ struct type * alloc_type (objfile) struct objfile *objfile; { register struct type *type; /* Alloc the structure and start off with all fields zeroed. */ if (objfile == NULL) { type = (struct type *) xmalloc (sizeof (struct type)); } else { type = (struct type *) obstack_alloc (&objfile -> type_obstack, sizeof (struct type)); } memset ((char *) type, 0, sizeof (struct type)); /* Initialize the fields that might not be zero. */ TYPE_CODE (type) = TYPE_CODE_UNDEF; TYPE_OBJFILE (type) = objfile; TYPE_VPTR_FIELDNO (type) = -1; return (type); } /* Lookup a pointer to a type TYPE. TYPEPTR, if nonzero, points to a pointer to memory where the pointer type should be stored. If *TYPEPTR is zero, update it to point to the pointer type we return. We allocate new memory if needed. */ struct type * make_pointer_type (type, typeptr) struct type *type; struct type **typeptr; { register struct type *ntype; /* New type */ struct objfile *objfile; ntype = TYPE_POINTER_TYPE (type); if (ntype) if (typeptr == 0) return ntype; /* Don't care about alloc, and have new type. */ else if (*typeptr == 0) { *typeptr = ntype; /* Tracking alloc, and we have new type. */ return ntype; } if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */ { ntype = alloc_type (TYPE_OBJFILE (type)); if (typeptr) *typeptr = ntype; } else /* We have storage, but need to reset it. */ { ntype = *typeptr; objfile = TYPE_OBJFILE (ntype); memset ((char *) ntype, 0, sizeof (struct type)); TYPE_OBJFILE (ntype) = objfile; } TYPE_TARGET_TYPE (ntype) = type; TYPE_POINTER_TYPE (type) = ntype; /* FIXME! Assume the machine has only one representation for pointers! */ TYPE_LENGTH (ntype) = TARGET_PTR_BIT / TARGET_CHAR_BIT; TYPE_CODE (ntype) = TYPE_CODE_PTR; /* pointers are unsigned */ TYPE_FLAGS (ntype) |= TYPE_FLAG_UNSIGNED; if (!TYPE_POINTER_TYPE (type)) /* Remember it, if don't have one. */ TYPE_POINTER_TYPE (type) = ntype; return ntype; } /* Given a type TYPE, return a type of pointers to that type. May need to construct such a type if this is the first use. */ struct type * lookup_pointer_type (type) struct type *type; { return make_pointer_type (type, (struct type **)0); } /* Lookup a C++ `reference' to a type TYPE. TYPEPTR, if nonzero, points to a pointer to memory where the reference type should be stored. If *TYPEPTR is zero, update it to point to the reference type we return. We allocate new memory if needed. */ struct type * make_reference_type (type, typeptr) struct type *type; struct type **typeptr; { register struct type *ntype; /* New type */ struct objfile *objfile; ntype = TYPE_REFERENCE_TYPE (type); if (ntype) if (typeptr == 0) return ntype; /* Don't care about alloc, and have new type. */ else if (*typeptr == 0) { *typeptr = ntype; /* Tracking alloc, and we have new type. */ return ntype; } if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */ { ntype = alloc_type (TYPE_OBJFILE (type)); if (typeptr) *typeptr = ntype; } else /* We have storage, but need to reset it. */ { ntype = *typeptr; objfile = TYPE_OBJFILE (ntype); memset ((char *) ntype, 0, sizeof (struct type)); TYPE_OBJFILE (ntype) = objfile; } TYPE_TARGET_TYPE (ntype) = type; TYPE_REFERENCE_TYPE (type) = ntype; /* FIXME! Assume the machine has only one representation for references, and that it matches the (only) representation for pointers! */ TYPE_LENGTH (ntype) = TARGET_PTR_BIT / TARGET_CHAR_BIT; TYPE_CODE (ntype) = TYPE_CODE_REF; if (!TYPE_REFERENCE_TYPE (type)) /* Remember it, if don't have one. */ TYPE_REFERENCE_TYPE (type) = ntype; return ntype; } /* Same as above, but caller doesn't care about memory allocation details. */ struct type * lookup_reference_type (type) struct type *type; { return make_reference_type (type, (struct type **)0); } /* Lookup a function type that returns type TYPE. TYPEPTR, if nonzero, points to a pointer to memory where the function type should be stored. If *TYPEPTR is zero, update it to point to the function type we return. We allocate new memory if needed. */ struct type * make_function_type (type, typeptr) struct type *type; struct type **typeptr; { register struct type *ntype; /* New type */ struct objfile *objfile; ntype = TYPE_FUNCTION_TYPE (type); if (ntype) if (typeptr == 0) return ntype; /* Don't care about alloc, and have new type. */ else if (*typeptr == 0) { *typeptr = ntype; /* Tracking alloc, and we have new type. */ return ntype; } if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */ { ntype = alloc_type (TYPE_OBJFILE (type)); if (typeptr) *typeptr = ntype; } else /* We have storage, but need to reset it. */ { ntype = *typeptr; objfile = TYPE_OBJFILE (ntype); memset ((char *) ntype, 0, sizeof (struct type)); TYPE_OBJFILE (ntype) = objfile; } TYPE_TARGET_TYPE (ntype) = type; TYPE_FUNCTION_TYPE (type) = ntype; TYPE_LENGTH (ntype) = 1; TYPE_CODE (ntype) = TYPE_CODE_FUNC; if (!TYPE_FUNCTION_TYPE (type)) /* Remember it, if don't have one. */ TYPE_FUNCTION_TYPE (type) = ntype; return ntype; } /* Given a type TYPE, return a type of functions that return that type. May need to construct such a type if this is the first use. */ struct type * lookup_function_type (type) struct type *type; { return make_function_type (type, (struct type **)0); } /* Implement direct support for MEMBER_TYPE in GNU C++. May need to construct such a type if this is the first use. The TYPE is the type of the member. The DOMAIN is the type of the aggregate that the member belongs to. */ struct type * lookup_member_type (type, domain) struct type *type; struct type *domain; { register struct type *mtype; mtype = alloc_type (TYPE_OBJFILE (type)); smash_to_member_type (mtype, domain, type); return (mtype); } /* Allocate a stub method whose return type is TYPE. This apparently happens for speed of symbol reading, since parsing out the arguments to the method is cpu-intensive, the way we are doing it. So, we will fill in arguments later. This always returns a fresh type. */ struct type * allocate_stub_method (type) struct type *type; { struct type *mtype; mtype = alloc_type (TYPE_OBJFILE (type)); TYPE_TARGET_TYPE (mtype) = type; /* _DOMAIN_TYPE (mtype) = unknown yet */ /* _ARG_TYPES (mtype) = unknown yet */ TYPE_FLAGS (mtype) = TYPE_FLAG_STUB; TYPE_CODE (mtype) = TYPE_CODE_METHOD; TYPE_LENGTH (mtype) = 1; return (mtype); } /* Create a range type using either a blank type supplied in RESULT_TYPE, or creating a new type, inheriting the objfile from INDEX_TYPE. Indices will be of type INDEX_TYPE, and will range from LOW_BOUND to HIGH_BOUND, inclusive. FIXME: Maybe we should check the TYPE_CODE of RESULT_TYPE to make sure it is TYPE_CODE_UNDEF before we bash it into a range type? */ struct type * create_range_type (result_type, index_type, low_bound, high_bound) struct type *result_type; struct type *index_type; int low_bound; int high_bound; { if (result_type == NULL) { result_type = alloc_type (TYPE_OBJFILE (index_type)); } TYPE_CODE (result_type) = TYPE_CODE_RANGE; TYPE_TARGET_TYPE (result_type) = index_type; TYPE_LENGTH (result_type) = TYPE_LENGTH (index_type); TYPE_NFIELDS (result_type) = 2; TYPE_FIELDS (result_type) = (struct field *) TYPE_ALLOC (result_type, 2 * sizeof (struct field)); memset (TYPE_FIELDS (result_type), 0, 2 * sizeof (struct field)); TYPE_FIELD_BITPOS (result_type, 0) = low_bound; TYPE_FIELD_BITPOS (result_type, 1) = high_bound; TYPE_FIELD_TYPE (result_type, 0) = builtin_type_int; /* FIXME */ TYPE_FIELD_TYPE (result_type, 1) = builtin_type_int; /* FIXME */ return (result_type); } /* A lot of code assumes that the "index type" of an array/string/ set/bitstring is specifically a range type, though in some languages it can be any discrete type. */ struct type * force_to_range_type (type) struct type *type; { switch (TYPE_CODE (type)) { case TYPE_CODE_RANGE: return type; case TYPE_CODE_ENUM: { int low_bound = TYPE_FIELD_BITPOS (type, 0); int high_bound = TYPE_FIELD_BITPOS (type, TYPE_NFIELDS (type) - 1); struct type *range_type = create_range_type (NULL, type, low_bound, high_bound); TYPE_NAME (range_type) = TYPE_NAME (range_type); TYPE_DUMMY_RANGE (range_type) = 1; return range_type; } case TYPE_CODE_BOOL: { struct type *range_type = create_range_type (NULL, type, 0, 1); TYPE_NAME (range_type) = TYPE_NAME (range_type); TYPE_DUMMY_RANGE (range_type) = 1; return range_type; } case TYPE_CODE_CHAR: { struct type *range_type = create_range_type (NULL, type, 0, 255); TYPE_NAME (range_type) = TYPE_NAME (range_type); TYPE_DUMMY_RANGE (range_type) = 1; return range_type; } default: { static struct complaint msg = { "array index type must be a discrete type", 0, 0}; complain (&msg); return create_range_type (NULL, builtin_type_int, 0, 0); } } } /* Create an array type using either a blank type supplied in RESULT_TYPE, or creating a new type, inheriting the objfile from RANGE_TYPE. Elements will be of type ELEMENT_TYPE, the indices will be of type RANGE_TYPE. FIXME: Maybe we should check the TYPE_CODE of RESULT_TYPE to make sure it is TYPE_CODE_UNDEF before we bash it into an array type? */ struct type * create_array_type (result_type, element_type, range_type) struct type *result_type; struct type *element_type; struct type *range_type; { int low_bound; int high_bound; range_type = force_to_range_type (range_type); if (result_type == NULL) { result_type = alloc_type (TYPE_OBJFILE (range_type)); } TYPE_CODE (result_type) = TYPE_CODE_ARRAY; TYPE_TARGET_TYPE (result_type) = element_type; low_bound = TYPE_LOW_BOUND (range_type); high_bound = TYPE_HIGH_BOUND (range_type); TYPE_LENGTH (result_type) = TYPE_LENGTH (element_type) * (high_bound - low_bound + 1); TYPE_NFIELDS (result_type) = 1; TYPE_FIELDS (result_type) = (struct field *) TYPE_ALLOC (result_type, sizeof (struct field)); memset (TYPE_FIELDS (result_type), 0, sizeof (struct field)); TYPE_FIELD_TYPE (result_type, 0) = range_type; TYPE_VPTR_FIELDNO (result_type) = -1; return (result_type); } /* Create a string type using either a blank type supplied in RESULT_TYPE, or creating a new type. String types are similar enough to array of char types that we can use create_array_type to build the basic type and then bash it into a string type. For fixed length strings, the range type contains 0 as the lower bound and the length of the string minus one as the upper bound. FIXME: Maybe we should check the TYPE_CODE of RESULT_TYPE to make sure it is TYPE_CODE_UNDEF before we bash it into a string type? */ struct type * create_string_type (result_type, range_type) struct type *result_type; struct type *range_type; { result_type = create_array_type (result_type, builtin_type_char, range_type); TYPE_CODE (result_type) = TYPE_CODE_STRING; return (result_type); } struct type * create_set_type (result_type, domain_type) struct type *result_type; struct type *domain_type; { int low_bound, high_bound, bit_length; if (result_type == NULL) { result_type = alloc_type (TYPE_OBJFILE (domain_type)); } domain_type = force_to_range_type (domain_type); TYPE_CODE (result_type) = TYPE_CODE_SET; TYPE_NFIELDS (result_type) = 1; TYPE_FIELDS (result_type) = (struct field *) TYPE_ALLOC (result_type, 1 * sizeof (struct field)); memset (TYPE_FIELDS (result_type), 0, sizeof (struct field)); TYPE_FIELD_TYPE (result_type, 0) = domain_type; low_bound = TYPE_LOW_BOUND (domain_type); high_bound = TYPE_HIGH_BOUND (domain_type); bit_length = high_bound - low_bound + 1; if (bit_length <= TARGET_CHAR_BIT) TYPE_LENGTH (result_type) = 1; else if (bit_length <= TARGET_SHORT_BIT) TYPE_LENGTH (result_type) = TARGET_SHORT_BIT / TARGET_CHAR_BIT; else TYPE_LENGTH (result_type) = ((bit_length + TARGET_INT_BIT - 1) / TARGET_INT_BIT) * TARGET_CHAR_BIT; return (result_type); } /* Smash TYPE to be a type of members of DOMAIN with type TO_TYPE. A MEMBER is a wierd thing -- it amounts to a typed offset into a struct, e.g. "an int at offset 8". A MEMBER TYPE doesn't include the offset (that's the value of the MEMBER itself), but does include the structure type into which it points (for some reason). When "smashing" the type, we preserve the objfile that the old type pointed to, since we aren't changing where the type is actually allocated. */ void smash_to_member_type (type, domain, to_type) struct type *type; struct type *domain; struct type *to_type; { struct objfile *objfile; objfile = TYPE_OBJFILE (type); memset ((char *) type, 0, sizeof (struct type)); TYPE_OBJFILE (type) = objfile; TYPE_TARGET_TYPE (type) = to_type; TYPE_DOMAIN_TYPE (type) = domain; TYPE_LENGTH (type) = 1; /* In practice, this is never needed. */ TYPE_CODE (type) = TYPE_CODE_MEMBER; } /* Smash TYPE to be a type of method of DOMAIN with type TO_TYPE. METHOD just means `function that gets an extra "this" argument'. When "smashing" the type, we preserve the objfile that the old type pointed to, since we aren't changing where the type is actually allocated. */ void smash_to_method_type (type, domain, to_type, args) struct type *type; struct type *domain; struct type *to_type; struct type **args; { struct objfile *objfile; objfile = TYPE_OBJFILE (type); memset ((char *) type, 0, sizeof (struct type)); TYPE_OBJFILE (type) = objfile; TYPE_TARGET_TYPE (type) = to_type; TYPE_DOMAIN_TYPE (type) = domain; TYPE_ARG_TYPES (type) = args; TYPE_LENGTH (type) = 1; /* In practice, this is never needed. */ TYPE_CODE (type) = TYPE_CODE_METHOD; } /* Return a typename for a struct/union/enum type without "struct ", "union ", or "enum ". If the type has a NULL name, return NULL. */ char * type_name_no_tag (type) register const struct type *type; { if (TYPE_TAG_NAME (type) != NULL) return TYPE_TAG_NAME (type); /* Is there code which expects this to return the name if there is no tag name? My guess is that this is mainly used for C++ in cases where the two will always be the same. */ return TYPE_NAME (type); } /* Lookup a primitive type named NAME. Return zero if NAME is not a primitive type.*/ struct type * lookup_primitive_typename (name) char *name; { struct type ** const *p; for (p = current_language -> la_builtin_type_vector; *p != NULL; p++) { if (STREQ ((**p) -> name, name)) { return (**p); } } return (NULL); } /* Lookup a typedef or primitive type named NAME, visible in lexical block BLOCK. If NOERR is nonzero, return zero if NAME is not suitably defined. */ struct type * lookup_typename (name, block, noerr) char *name; struct block *block; int noerr; { register struct symbol *sym; register struct type *tmp; sym = lookup_symbol (name, block, VAR_NAMESPACE, 0, (struct symtab **) NULL); if (sym == NULL || SYMBOL_CLASS (sym) != LOC_TYPEDEF) { tmp = lookup_primitive_typename (name); if (tmp) { return (tmp); } else if (!tmp && noerr) { return (NULL); } else { error ("No type named %s.", name); } } return (SYMBOL_TYPE (sym)); } struct type * lookup_unsigned_typename (name) char *name; { char *uns = alloca (strlen (name) + 10); strcpy (uns, "unsigned "); strcpy (uns + 9, name); return (lookup_typename (uns, (struct block *) NULL, 0)); } struct type * lookup_signed_typename (name) char *name; { struct type *t; char *uns = alloca (strlen (name) + 8); strcpy (uns, "signed "); strcpy (uns + 7, name); t = lookup_typename (uns, (struct block *) NULL, 1); /* If we don't find "signed FOO" just try again with plain "FOO". */ if (t != NULL) return t; return lookup_typename (name, (struct block *) NULL, 0); } /* Lookup a structure type named "struct NAME", visible in lexical block BLOCK. */ struct type * lookup_struct (name, block) char *name; struct block *block; { register struct symbol *sym; sym = lookup_symbol (name, block, STRUCT_NAMESPACE, 0, (struct symtab **) NULL); if (sym == NULL) { error ("No struct type named %s.", name); } if (TYPE_CODE (SYMBOL_TYPE (sym)) != TYPE_CODE_STRUCT) { error ("This context has class, union or enum %s, not a struct.", name); } return (SYMBOL_TYPE (sym)); } /* Lookup a union type named "union NAME", visible in lexical block BLOCK. */ struct type * lookup_union (name, block) char *name; struct block *block; { register struct symbol *sym; sym = lookup_symbol (name, block, STRUCT_NAMESPACE, 0, (struct symtab **) NULL); if (sym == NULL) { error ("No union type named %s.", name); } if (TYPE_CODE (SYMBOL_TYPE (sym)) != TYPE_CODE_UNION) { error ("This context has class, struct or enum %s, not a union.", name); } return (SYMBOL_TYPE (sym)); } /* Lookup an enum type named "enum NAME", visible in lexical block BLOCK. */ struct type * lookup_enum (name, block) char *name; struct block *block; { register struct symbol *sym; sym = lookup_symbol (name, block, STRUCT_NAMESPACE, 0, (struct symtab **) NULL); if (sym == NULL) { error ("No enum type named %s.", name); } if (TYPE_CODE (SYMBOL_TYPE (sym)) != TYPE_CODE_ENUM) { error ("This context has class, struct or union %s, not an enum.", name); } return (SYMBOL_TYPE (sym)); } /* Lookup a template type named "template NAME", visible in lexical block BLOCK. */ struct type * lookup_template_type (name, type, block) char *name; struct type *type; struct block *block; { struct symbol *sym; char *nam = (char*) alloca(strlen(name) + strlen(type->name) + 4); strcpy (nam, name); strcat (nam, "<"); strcat (nam, type->name); strcat (nam, " >"); /* FIXME, extra space still introduced in gcc? */ sym = lookup_symbol (nam, block, VAR_NAMESPACE, 0, (struct symtab **)NULL); if (sym == NULL) { error ("No template type named %s.", name); } if (TYPE_CODE (SYMBOL_TYPE (sym)) != TYPE_CODE_STRUCT) { error ("This context has class, union or enum %s, not a struct.", name); } return (SYMBOL_TYPE (sym)); } /* Given a type TYPE, lookup the type of the component of type named NAME. TYPE can be either a struct or union, or a pointer or reference to a struct or union. If it is a pointer or reference, its target type is automatically used. Thus '.' and '->' are interchangable, as specified for the definitions of the expression element types STRUCTOP_STRUCT and STRUCTOP_PTR. If NOERR is nonzero, return zero if NAME is not suitably defined. If NAME is the name of a baseclass type, return that type. */ struct type * lookup_struct_elt_type (type, name, noerr) struct type *type; char *name; int noerr; { int i; while (TYPE_CODE (type) == TYPE_CODE_PTR || TYPE_CODE (type) == TYPE_CODE_REF) type = TYPE_TARGET_TYPE (type); if (TYPE_CODE (type) != TYPE_CODE_STRUCT && TYPE_CODE (type) != TYPE_CODE_UNION) { target_terminal_ours (); gdb_flush (gdb_stdout); fprintf_unfiltered (gdb_stderr, "Type "); type_print (type, "", gdb_stderr, -1); error (" is not a structure or union type."); } check_stub_type (type); #if 0 /* FIXME: This change put in by Michael seems incorrect for the case where the structure tag name is the same as the member name. I.E. when doing "ptype bell->bar" for "struct foo { int bar; int foo; } bell;" Disabled by fnf. */ { char *typename; typename = type_name_no_tag (type); if (typename != NULL && STREQ (typename, name)) return type; } #endif for (i = TYPE_NFIELDS (type) - 1; i >= TYPE_N_BASECLASSES (type); i--) { char *t_field_name = TYPE_FIELD_NAME (type, i); if (t_field_name && STREQ (t_field_name, name)) { return TYPE_FIELD_TYPE (type, i); } } /* OK, it's not in this class. Recursively check the baseclasses. */ for (i = TYPE_N_BASECLASSES (type) - 1; i >= 0; i--) { struct type *t; t = lookup_struct_elt_type (TYPE_BASECLASS (type, i), name, noerr); if (t != NULL) { return t; } } if (noerr) { return NULL; } target_terminal_ours (); gdb_flush (gdb_stdout); fprintf_unfiltered (gdb_stderr, "Type "); type_print (type, "", gdb_stderr, -1); fprintf_unfiltered (gdb_stderr, " has no component named "); fputs_filtered (name, gdb_stderr); error ("."); return (struct type *)-1; /* For lint */ } /* If possible, make the vptr_fieldno and vptr_basetype fields of TYPE valid. Callers should be aware that in some cases (for example, the type or one of its baseclasses is a stub type and we are debugging a .o file), this function will not be able to find the virtual function table pointer, and vptr_fieldno will remain -1 and vptr_basetype will remain NULL. */ void fill_in_vptr_fieldno (type) struct type *type; { check_stub_type (type); if (TYPE_VPTR_FIELDNO (type) < 0) { int i; /* We must start at zero in case the first (and only) baseclass is virtual (and hence we cannot share the table pointer). */ for (i = 0; i < TYPE_N_BASECLASSES (type); i++) { fill_in_vptr_fieldno (TYPE_BASECLASS (type, i)); if (TYPE_VPTR_FIELDNO (TYPE_BASECLASS (type, i)) >= 0) { TYPE_VPTR_FIELDNO (type) = TYPE_VPTR_FIELDNO (TYPE_BASECLASS (type, i)); TYPE_VPTR_BASETYPE (type) = TYPE_VPTR_BASETYPE (TYPE_BASECLASS (type, i)); break; } } } } /* Added by Bryan Boreham, Kewill, Sun Sep 17 18:07:17 1989. If this is a stubbed struct (i.e. declared as struct foo *), see if we can find a full definition in some other file. If so, copy this definition, so we can use it in future. There used to be a comment (but not any code) that if we don't find a full definition, we'd set a flag so we don't spend time in the future checking the same type. That would be a mistake, though--we might load in more symbols which contain a full definition for the type. This used to be coded as a macro, but I don't think it is called often enough to merit such treatment. */ struct complaint stub_noname_complaint = {"stub type has NULL name", 0, 0}; void check_stub_type (type) struct type *type; { if (TYPE_FLAGS(type) & TYPE_FLAG_STUB) { char* name = type_name_no_tag (type); /* FIXME: shouldn't we separately check the TYPE_NAME and the TYPE_TAG_NAME, and look in STRUCT_NAMESPACE and/or VAR_NAMESPACE as appropriate? (this code was written before TYPE_NAME and TYPE_TAG_NAME were separate). */ struct symbol *sym; if (name == NULL) { complain (&stub_noname_complaint); return; } sym = lookup_symbol (name, 0, STRUCT_NAMESPACE, 0, (struct symtab **) NULL); if (sym) { memcpy ((char *)type, (char *)SYMBOL_TYPE(sym), sizeof (struct type)); } } if (TYPE_FLAGS (type) & TYPE_FLAG_TARGET_STUB) { struct type *range_type; check_stub_type (TYPE_TARGET_TYPE (type)); if (!(TYPE_FLAGS (TYPE_TARGET_TYPE (type)) & TYPE_FLAG_STUB) && TYPE_CODE (type) == TYPE_CODE_ARRAY && TYPE_NFIELDS (type) == 1 && (TYPE_CODE (range_type = TYPE_FIELD_TYPE (type, 0)) == TYPE_CODE_RANGE)) { /* Now recompute the length of the array type, based on its number of elements and the target type's length. */ TYPE_LENGTH (type) = ((TYPE_FIELD_BITPOS (range_type, 1) - TYPE_FIELD_BITPOS (range_type, 0) + 1) * TYPE_LENGTH (TYPE_TARGET_TYPE (type))); TYPE_FLAGS (type) &= ~TYPE_FLAG_TARGET_STUB; } } } /* Ugly hack to convert method stubs into method types. He ain't kiddin'. This demangles the name of the method into a string including argument types, parses out each argument type, generates a string casting a zero to that type, evaluates the string, and stuffs the resulting type into an argtype vector!!! Then it knows the type of the whole function (including argument types for overloading), which info used to be in the stab's but was removed to hack back the space required for them. */ void check_stub_method (type, i, j) struct type *type; int i; int j; { struct fn_field *f; char *mangled_name = gdb_mangle_name (type, i, j); char *demangled_name = cplus_demangle (mangled_name, DMGL_PARAMS | DMGL_ANSI); char *argtypetext, *p; int depth = 0, argcount = 1; struct type **argtypes; struct type *mtype; if (demangled_name == NULL) { error ("Internal: Cannot demangle mangled name `%s'.", mangled_name); } /* Now, read in the parameters that define this type. */ argtypetext = strchr (demangled_name, '(') + 1; p = argtypetext; while (*p) { if (*p == '(') { depth += 1; } else if (*p == ')') { depth -= 1; } else if (*p == ',' && depth == 0) { argcount += 1; } p += 1; } /* We need two more slots: one for the THIS pointer, and one for the NULL [...] or void [end of arglist]. */ argtypes = (struct type **) TYPE_ALLOC (type, (argcount + 2) * sizeof (struct type *)); p = argtypetext; /* FIXME: This is wrong for static member functions. */ argtypes[0] = lookup_pointer_type (type); argcount = 1; if (*p != ')') /* () means no args, skip while */ { depth = 0; while (*p) { if (depth <= 0 && (*p == ',' || *p == ')')) { /* Avoid parsing of ellipsis, they will be handled below. */ if (strncmp (argtypetext, "...", p - argtypetext) != 0) { argtypes[argcount] = parse_and_eval_type (argtypetext, p - argtypetext); argcount += 1; } argtypetext = p + 1; } if (*p == '(') { depth += 1; } else if (*p == ')') { depth -= 1; } p += 1; } } if (p[-2] != '.') /* Not '...' */ { argtypes[argcount] = builtin_type_void; /* List terminator */ } else { argtypes[argcount] = NULL; /* Ellist terminator */ } free (demangled_name); f = TYPE_FN_FIELDLIST1 (type, i); TYPE_FN_FIELD_PHYSNAME (f, j) = mangled_name; /* Now update the old "stub" type into a real type. */ mtype = TYPE_FN_FIELD_TYPE (f, j); TYPE_DOMAIN_TYPE (mtype) = type; TYPE_ARG_TYPES (mtype) = argtypes; TYPE_FLAGS (mtype) &= ~TYPE_FLAG_STUB; TYPE_FN_FIELD_STUB (f, j) = 0; } const struct cplus_struct_type cplus_struct_default; void allocate_cplus_struct_type (type) struct type *type; { if (!HAVE_CPLUS_STRUCT (type)) { TYPE_CPLUS_SPECIFIC (type) = (struct cplus_struct_type *) TYPE_ALLOC (type, sizeof (struct cplus_struct_type)); *(TYPE_CPLUS_SPECIFIC(type)) = cplus_struct_default; } } /* Helper function to initialize the standard scalar types. If NAME is non-NULL and OBJFILE is non-NULL, then we make a copy of the string pointed to by name in the type_obstack for that objfile, and initialize the type name to that copy. There are places (mipsread.c in particular, where init_type is called with a NULL value for NAME). */ struct type * init_type (code, length, flags, name, objfile) enum type_code code; int length; int flags; char *name; struct objfile *objfile; { register struct type *type; type = alloc_type (objfile); TYPE_CODE (type) = code; TYPE_LENGTH (type) = length; TYPE_FLAGS (type) |= flags; if ((name != NULL) && (objfile != NULL)) { TYPE_NAME (type) = obsavestring (name, strlen (name), &objfile -> type_obstack); } else { TYPE_NAME (type) = name; } /* C++ fancies. */ if (code == TYPE_CODE_STRUCT || code == TYPE_CODE_UNION) { INIT_CPLUS_SPECIFIC (type); } return (type); } /* Look up a fundamental type for the specified objfile. May need to construct such a type if this is the first use. Some object file formats (ELF, COFF, etc) do not define fundamental types such as "int" or "double". Others (stabs for example), do define fundamental types. For the formats which don't provide fundamental types, gdb can create such types, using defaults reasonable for the current language and the current target machine. NOTE: This routine is obsolescent. Each debugging format reader should manage it's own fundamental types, either creating them from suitable defaults or reading them from the debugging information, whichever is appropriate. The DWARF reader has already been fixed to do this. Once the other readers are fixed, this routine will go away. Also note that fundamental types should be managed on a compilation unit basis in a multi-language environment, not on a linkage unit basis as is done here. */ struct type * lookup_fundamental_type (objfile, typeid) struct objfile *objfile; int typeid; { register struct type **typep; register int nbytes; if (typeid < 0 || typeid >= FT_NUM_MEMBERS) { error ("internal error - invalid fundamental type id %d", typeid); } /* If this is the first time we need a fundamental type for this objfile then we need to initialize the vector of type pointers. */ if (objfile -> fundamental_types == NULL) { nbytes = FT_NUM_MEMBERS * sizeof (struct type *); objfile -> fundamental_types = (struct type **) obstack_alloc (&objfile -> type_obstack, nbytes); memset ((char *) objfile -> fundamental_types, 0, nbytes); } /* Look for this particular type in the fundamental type vector. If one is not found, create and install one appropriate for the current language. */ typep = objfile -> fundamental_types + typeid; if (*typep == NULL) { *typep = create_fundamental_type (objfile, typeid); } return (*typep); } int can_dereference (t) struct type *t; { /* FIXME: Should we return true for references as well as pointers? */ return (t != NULL && TYPE_CODE (t) == TYPE_CODE_PTR && TYPE_CODE (TYPE_TARGET_TYPE (t)) != TYPE_CODE_VOID); } #if MAINTENANCE_CMDS static void print_bit_vector (bits, nbits) B_TYPE *bits; int nbits; { int bitno; for (bitno = 0; bitno < nbits; bitno++) { if ((bitno % 8) == 0) { puts_filtered (" "); } if (B_TST (bits, bitno)) { printf_filtered ("1"); } else { printf_filtered ("0"); } } } /* The args list is a strange beast. It is either terminated by a NULL pointer for varargs functions, or by a pointer to a TYPE_CODE_VOID type for normal fixed argcount functions. (FIXME someday) Also note the first arg should be the "this" pointer, we may not want to include it since we may get into a infinitely recursive situation. */ static void print_arg_types (args, spaces) struct type **args; int spaces; { if (args != NULL) { while (*args != NULL) { recursive_dump_type (*args, spaces + 2); if ((*args++) -> code == TYPE_CODE_VOID) { break; } } } } static void dump_fn_fieldlists (type, spaces) struct type *type; int spaces; { int method_idx; int overload_idx; struct fn_field *f; printfi_filtered (spaces, "fn_fieldlists "); gdb_print_address (TYPE_FN_FIELDLISTS (type), gdb_stdout); printf_filtered ("\n"); for (method_idx = 0; method_idx < TYPE_NFN_FIELDS (type); method_idx++) { f = TYPE_FN_FIELDLIST1 (type, method_idx); printfi_filtered (spaces + 2, "[%d] name '%s' (", method_idx, TYPE_FN_FIELDLIST_NAME (type, method_idx)); gdb_print_address (TYPE_FN_FIELDLIST_NAME (type, method_idx), gdb_stdout); printf_filtered (") length %d\n", TYPE_FN_FIELDLIST_LENGTH (type, method_idx)); for (overload_idx = 0; overload_idx < TYPE_FN_FIELDLIST_LENGTH (type, method_idx); overload_idx++) { printfi_filtered (spaces + 4, "[%d] physname '%s' (", overload_idx, TYPE_FN_FIELD_PHYSNAME (f, overload_idx)); gdb_print_address (TYPE_FN_FIELD_PHYSNAME (f, overload_idx), gdb_stdout); printf_filtered (")\n"); printfi_filtered (spaces + 8, "type "); gdb_print_address (TYPE_FN_FIELD_TYPE (f, overload_idx), gdb_stdout); printf_filtered ("\n"); recursive_dump_type (TYPE_FN_FIELD_TYPE (f, overload_idx), spaces + 8 + 2); printfi_filtered (spaces + 8, "args "); gdb_print_address (TYPE_FN_FIELD_ARGS (f, overload_idx), gdb_stdout); printf_filtered ("\n"); print_arg_types (TYPE_FN_FIELD_ARGS (f, overload_idx), spaces); printfi_filtered (spaces + 8, "fcontext "); gdb_print_address (TYPE_FN_FIELD_FCONTEXT (f, overload_idx), gdb_stdout); printf_filtered ("\n"); printfi_filtered (spaces + 8, "is_const %d\n", TYPE_FN_FIELD_CONST (f, overload_idx)); printfi_filtered (spaces + 8, "is_volatile %d\n", TYPE_FN_FIELD_VOLATILE (f, overload_idx)); printfi_filtered (spaces + 8, "is_private %d\n", TYPE_FN_FIELD_PRIVATE (f, overload_idx)); printfi_filtered (spaces + 8, "is_protected %d\n", TYPE_FN_FIELD_PROTECTED (f, overload_idx)); printfi_filtered (spaces + 8, "is_stub %d\n", TYPE_FN_FIELD_STUB (f, overload_idx)); printfi_filtered (spaces + 8, "voffset %u\n", TYPE_FN_FIELD_VOFFSET (f, overload_idx)); } } } static void print_cplus_stuff (type, spaces) struct type *type; int spaces; { printfi_filtered (spaces, "n_baseclasses %d\n", TYPE_N_BASECLASSES (type)); printfi_filtered (spaces, "nfn_fields %d\n", TYPE_NFN_FIELDS (type)); printfi_filtered (spaces, "nfn_fields_total %d\n", TYPE_NFN_FIELDS_TOTAL (type)); if (TYPE_N_BASECLASSES (type) > 0) { printfi_filtered (spaces, "virtual_field_bits (%d bits at *", TYPE_N_BASECLASSES (type)); gdb_print_address (TYPE_FIELD_VIRTUAL_BITS (type), gdb_stdout); printf_filtered (")"); print_bit_vector (TYPE_FIELD_VIRTUAL_BITS (type), TYPE_N_BASECLASSES (type)); puts_filtered ("\n"); } if (TYPE_NFIELDS (type) > 0) { if (TYPE_FIELD_PRIVATE_BITS (type) != NULL) { printfi_filtered (spaces, "private_field_bits (%d bits at *", TYPE_NFIELDS (type)); gdb_print_address (TYPE_FIELD_PRIVATE_BITS (type), gdb_stdout); printf_filtered (")"); print_bit_vector (TYPE_FIELD_PRIVATE_BITS (type), TYPE_NFIELDS (type)); puts_filtered ("\n"); } if (TYPE_FIELD_PROTECTED_BITS (type) != NULL) { printfi_filtered (spaces, "protected_field_bits (%d bits at *", TYPE_NFIELDS (type)); gdb_print_address (TYPE_FIELD_PROTECTED_BITS (type), gdb_stdout); printf_filtered (")"); print_bit_vector (TYPE_FIELD_PROTECTED_BITS (type), TYPE_NFIELDS (type)); puts_filtered ("\n"); } } if (TYPE_NFN_FIELDS (type) > 0) { dump_fn_fieldlists (type, spaces); } } void recursive_dump_type (type, spaces) struct type *type; int spaces; { int idx; printfi_filtered (spaces, "type node "); gdb_print_address (type, gdb_stdout); printf_filtered ("\n"); printfi_filtered (spaces, "name '%s' (", TYPE_NAME (type) ? TYPE_NAME (type) : ""); gdb_print_address (TYPE_NAME (type), gdb_stdout); printf_filtered (")\n"); if (TYPE_TAG_NAME (type) != NULL) { printfi_filtered (spaces, "tagname '%s' (", TYPE_TAG_NAME (type)); gdb_print_address (TYPE_TAG_NAME (type), gdb_stdout); printf_filtered (")\n"); } printfi_filtered (spaces, "code 0x%x ", TYPE_CODE (type)); switch (TYPE_CODE (type)) { case TYPE_CODE_UNDEF: printf_filtered ("(TYPE_CODE_UNDEF)"); break; case TYPE_CODE_PTR: printf_filtered ("(TYPE_CODE_PTR)"); break; case TYPE_CODE_ARRAY: printf_filtered ("(TYPE_CODE_ARRAY)"); break; case TYPE_CODE_STRUCT: printf_filtered ("(TYPE_CODE_STRUCT)"); break; case TYPE_CODE_UNION: printf_filtered ("(TYPE_CODE_UNION)"); break; case TYPE_CODE_ENUM: printf_filtered ("(TYPE_CODE_ENUM)"); break; case TYPE_CODE_FUNC: printf_filtered ("(TYPE_CODE_FUNC)"); break; case TYPE_CODE_INT: printf_filtered ("(TYPE_CODE_INT)"); break; case TYPE_CODE_FLT: printf_filtered ("(TYPE_CODE_FLT)"); break; case TYPE_CODE_VOID: printf_filtered ("(TYPE_CODE_VOID)"); break; case TYPE_CODE_SET: printf_filtered ("(TYPE_CODE_SET)"); break; case TYPE_CODE_RANGE: printf_filtered ("(TYPE_CODE_RANGE)"); break; case TYPE_CODE_STRING: printf_filtered ("(TYPE_CODE_STRING)"); break; case TYPE_CODE_ERROR: printf_filtered ("(TYPE_CODE_ERROR)"); break; case TYPE_CODE_MEMBER: printf_filtered ("(TYPE_CODE_MEMBER)"); break; case TYPE_CODE_METHOD: printf_filtered ("(TYPE_CODE_METHOD)"); break; case TYPE_CODE_REF: printf_filtered ("(TYPE_CODE_REF)"); break; case TYPE_CODE_CHAR: printf_filtered ("(TYPE_CODE_CHAR)"); break; case TYPE_CODE_BOOL: printf_filtered ("(TYPE_CODE_BOOL)"); break; default: printf_filtered ("(UNKNOWN TYPE CODE)"); break; } puts_filtered ("\n"); printfi_filtered (spaces, "length %d\n", TYPE_LENGTH (type)); printfi_filtered (spaces, "objfile "); gdb_print_address (TYPE_OBJFILE (type), gdb_stdout); printf_filtered ("\n"); printfi_filtered (spaces, "target_type "); gdb_print_address (TYPE_TARGET_TYPE (type), gdb_stdout); printf_filtered ("\n"); if (TYPE_TARGET_TYPE (type) != NULL) { recursive_dump_type (TYPE_TARGET_TYPE (type), spaces + 2); } printfi_filtered (spaces, "pointer_type "); gdb_print_address (TYPE_POINTER_TYPE (type), gdb_stdout); printf_filtered ("\n"); printfi_filtered (spaces, "reference_type "); gdb_print_address (TYPE_REFERENCE_TYPE (type), gdb_stdout); printf_filtered ("\n"); printfi_filtered (spaces, "function_type "); gdb_print_address (TYPE_FUNCTION_TYPE (type), gdb_stdout); printf_filtered ("\n"); printfi_filtered (spaces, "flags 0x%x", TYPE_FLAGS (type)); if (TYPE_FLAGS (type) & TYPE_FLAG_UNSIGNED) { puts_filtered (" TYPE_FLAG_UNSIGNED"); } if (TYPE_FLAGS (type) & TYPE_FLAG_STUB) { puts_filtered (" TYPE_FLAG_STUB"); } puts_filtered ("\n"); printfi_filtered (spaces, "nfields %d ", TYPE_NFIELDS (type)); gdb_print_address (TYPE_FIELDS (type), gdb_stdout); puts_filtered ("\n"); for (idx = 0; idx < TYPE_NFIELDS (type); idx++) { printfi_filtered (spaces + 2, "[%d] bitpos %d bitsize %d type ", idx, TYPE_FIELD_BITPOS (type, idx), TYPE_FIELD_BITSIZE (type, idx)); gdb_print_address (TYPE_FIELD_TYPE (type, idx), gdb_stdout); printf_filtered (" name '%s' (", TYPE_FIELD_NAME (type, idx) != NULL ? TYPE_FIELD_NAME (type, idx) : ""); gdb_print_address (TYPE_FIELD_NAME (type, idx), gdb_stdout); printf_filtered (")\n"); if (TYPE_FIELD_TYPE (type, idx) != NULL) { recursive_dump_type (TYPE_FIELD_TYPE (type, idx), spaces + 4); } } printfi_filtered (spaces, "vptr_basetype "); gdb_print_address (TYPE_VPTR_BASETYPE (type), gdb_stdout); puts_filtered ("\n"); if (TYPE_VPTR_BASETYPE (type) != NULL) { recursive_dump_type (TYPE_VPTR_BASETYPE (type), spaces + 2); } printfi_filtered (spaces, "vptr_fieldno %d\n", TYPE_VPTR_FIELDNO (type)); switch (TYPE_CODE (type)) { case TYPE_CODE_METHOD: case TYPE_CODE_FUNC: printfi_filtered (spaces, "arg_types "); gdb_print_address (TYPE_ARG_TYPES (type), gdb_stdout); puts_filtered ("\n"); print_arg_types (TYPE_ARG_TYPES (type), spaces); break; case TYPE_CODE_STRUCT: printfi_filtered (spaces, "cplus_stuff "); gdb_print_address (TYPE_CPLUS_SPECIFIC (type), gdb_stdout); puts_filtered ("\n"); print_cplus_stuff (type, spaces); break; default: /* We have to pick one of the union types to be able print and test the value. Pick cplus_struct_type, even though we know it isn't any particular one. */ printfi_filtered (spaces, "type_specific "); gdb_print_address (TYPE_CPLUS_SPECIFIC (type), gdb_stdout); if (TYPE_CPLUS_SPECIFIC (type) != NULL) { printf_filtered (" (unknown data form)"); } printf_filtered ("\n"); break; } } #endif /* MAINTENANCE_CMDS */ void _initialize_gdbtypes () { builtin_type_void = init_type (TYPE_CODE_VOID, 1, 0, "void", (struct objfile *) NULL); builtin_type_char = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "char", (struct objfile *) NULL); builtin_type_signed_char = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "signed char", (struct objfile *) NULL); builtin_type_unsigned_char = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned char", (struct objfile *) NULL); builtin_type_short = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, 0, "short", (struct objfile *) NULL); builtin_type_unsigned_short = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned short", (struct objfile *) NULL); builtin_type_int = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "int", (struct objfile *) NULL); builtin_type_unsigned_int = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned int", (struct objfile *) NULL); builtin_type_long = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, 0, "long", (struct objfile *) NULL); builtin_type_unsigned_long = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned long", (struct objfile *) NULL); builtin_type_long_long = init_type (TYPE_CODE_INT, TARGET_LONG_LONG_BIT / TARGET_CHAR_BIT, 0, "long long", (struct objfile *) NULL); builtin_type_unsigned_long_long = init_type (TYPE_CODE_INT, TARGET_LONG_LONG_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned long long", (struct objfile *) NULL); builtin_type_float = init_type (TYPE_CODE_FLT, TARGET_FLOAT_BIT / TARGET_CHAR_BIT, 0, "float", (struct objfile *) NULL); builtin_type_double = init_type (TYPE_CODE_FLT, TARGET_DOUBLE_BIT / TARGET_CHAR_BIT, 0, "double", (struct objfile *) NULL); builtin_type_long_double = init_type (TYPE_CODE_FLT, TARGET_LONG_DOUBLE_BIT / TARGET_CHAR_BIT, 0, "long double", (struct objfile *) NULL); builtin_type_complex = init_type (TYPE_CODE_FLT, TARGET_COMPLEX_BIT / TARGET_CHAR_BIT, 0, "complex", (struct objfile *) NULL); builtin_type_double_complex = init_type (TYPE_CODE_FLT, TARGET_DOUBLE_COMPLEX_BIT / TARGET_CHAR_BIT, 0, "double complex", (struct objfile *) NULL); builtin_type_string = init_type (TYPE_CODE_STRING, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "string", (struct objfile *) NULL); } gdb-4.13/gdb/gdbtypes.h 666 34562 1752 62754 5566222550 13330 0ustar fnfcygnus/* Internal type definitions for GDB. Copyright (C) 1992 Free Software Foundation, Inc. Contributed by Cygnus Support, using pieces from other GDB modules. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (GDBTYPES_H) #define GDBTYPES_H 1 /* Codes for `fundamental types'. This is a monstrosity based on the bogus notion that there are certain compiler-independent `fundamental types'. None of these is well-defined (how big is FT_SHORT? Does it depend on the language? How does the language-specific code know which type to correlate to FT_SHORT?) */ #define FT_VOID 0 #define FT_BOOLEAN 1 #define FT_CHAR 2 #define FT_SIGNED_CHAR 3 #define FT_UNSIGNED_CHAR 4 #define FT_SHORT 5 #define FT_SIGNED_SHORT 6 #define FT_UNSIGNED_SHORT 7 #define FT_INTEGER 8 #define FT_SIGNED_INTEGER 9 #define FT_UNSIGNED_INTEGER 10 #define FT_LONG 11 #define FT_SIGNED_LONG 12 #define FT_UNSIGNED_LONG 13 #define FT_LONG_LONG 14 #define FT_SIGNED_LONG_LONG 15 #define FT_UNSIGNED_LONG_LONG 16 #define FT_FLOAT 17 #define FT_DBL_PREC_FLOAT 18 #define FT_EXT_PREC_FLOAT 19 #define FT_COMPLEX 20 #define FT_DBL_PREC_COMPLEX 21 #define FT_EXT_PREC_COMPLEX 22 #define FT_STRING 23 #define FT_FIXED_DECIMAL 24 #define FT_FLOAT_DECIMAL 25 #define FT_BYTE 26 #define FT_UNSIGNED_BYTE 27 #define FT_NUM_MEMBERS 28 /* Highest FT_* above, plus one. */ /* Some macros for char-based bitfields. */ #define B_SET(a,x) ((a)[(x)>>3] |= (1 << ((x)&7))) #define B_CLR(a,x) ((a)[(x)>>3] &= ~(1 << ((x)&7))) #define B_TST(a,x) ((a)[(x)>>3] & (1 << ((x)&7))) #define B_TYPE unsigned char #define B_BYTES(x) ( 1 + ((x)>>3) ) #define B_CLRALL(a,x) memset ((a), 0, B_BYTES(x)) /* Different kinds of data types are distinguished by the `code' field. */ enum type_code { TYPE_CODE_UNDEF, /* Not used; catches errors */ TYPE_CODE_PTR, /* Pointer type */ TYPE_CODE_ARRAY, /* Array type with lower & upper bounds. */ TYPE_CODE_STRUCT, /* C struct or Pascal record */ TYPE_CODE_UNION, /* C union or Pascal variant part */ TYPE_CODE_ENUM, /* Enumeration type */ TYPE_CODE_FUNC, /* Function type */ TYPE_CODE_INT, /* Integer type */ /* Floating type. This is *NOT* a complex type. Complex types, when we have them, will have their own type code (or TYPE_CODE_ERROR if we can parse a complex type but not manipulate it). There are parts of GDB which bogusly assume that TYPE_CODE_FLT can mean complex. */ TYPE_CODE_FLT, /* Void type. The length field specifies the length (probably always one) which is used in pointer arithmetic involving pointers to this type, but actually dereferencing such a pointer is invalid; a void type has no length and no actual representation in memory or registers. A pointer to a void type is a generic pointer. */ TYPE_CODE_VOID, TYPE_CODE_SET, /* Pascal sets */ TYPE_CODE_RANGE, /* Range (integers within spec'd bounds) */ /* A string type which is like an array of character but prints differently (at least for CHILL). It does not contain a length field as Pascal strings (for many Pascals, anyway) do; if we want to deal with such strings, we should use a new type code. */ TYPE_CODE_STRING, /* String of bits; like TYPE_CODE_SET but prints differently (at least for CHILL). */ TYPE_CODE_BITSTRING, /* Unknown type. The length field is valid if we were able to deduce that much about the type, or 0 if we don't even know that. */ TYPE_CODE_ERROR, /* C++ */ TYPE_CODE_MEMBER, /* Member type */ TYPE_CODE_METHOD, /* Method type */ TYPE_CODE_REF, /* C++ Reference types */ TYPE_CODE_CHAR, /* *real* character type */ /* Boolean type. 0 is false, 1 is true, and other values are non-boolean (e.g. FORTRAN "logical" used as unsigned int). */ TYPE_CODE_BOOL }; /* For now allow source to use TYPE_CODE_CLASS for C++ classes, as an alias for TYPE_CODE_STRUCT. This is for DWARF, which has a distinct "class" attribute. Perhaps we should actually have a separate TYPE_CODE so that we can print "class" or "struct" depending on what the debug info said. It's not clear we should bother. */ #define TYPE_CODE_CLASS TYPE_CODE_STRUCT /* Some bits for the type's flags word. */ /* Unsigned integer type. If this is not set for a TYPE_CODE_INT, the type is signed. */ #define TYPE_FLAG_UNSIGNED (1 << 0) /* This appears in a type's flags word if it is a stub type (e.g., if someone referenced a type that wasn't defined in a source file via (struct sir_not_appearing_in_this_film *)). */ #define TYPE_FLAG_STUB (1 << 2) /* The target type of this type is a stub type, and this type needs to be updated if it gets un-stubbed in check_stub_type. Currently only used for arrays, in which TYPE_LENGTH of the array gets set based on the TYPE_LENGTH of the target type. */ #define TYPE_FLAG_TARGET_STUB (1 << 3) struct type { /* Code for kind of type */ enum type_code code; /* Name of this type, or NULL if none. This is used for printing only, except by poorly designed C++ code. For looking up a name, look for a symbol in the VAR_NAMESPACE. */ char *name; /* Tag name for this type, or NULL if none. This means that the name of the type consists of a keyword followed by the tag name. Which keyword is determined by the type code ("struct" for TYPE_CODE_STRUCT, etc.). As far as I know C/C++ are the only languages with this feature. This is used for printing only, except by poorly designed C++ code. For looking up a name, look for a symbol in the STRUCT_NAMESPACE. One more legitimate use is that if TYPE_FLAG_STUB is set, this is the name to use to look for definitions in other files. */ char *tag_name; /* Length, in units of TARGET_CHAR_BIT bits, of storage for a value of this type */ unsigned length; /* Every type is now associated with a particular objfile, and the type is allocated on the type_obstack for that objfile. One problem however, is that there are times when gdb allocates new types while it is not in the process of reading symbols from a particular objfile. Fortunately, these happen when the type being created is a derived type of an existing type, such as in lookup_pointer_type(). So we can just allocate the new type using the same objfile as the existing type, but to do this we need a backpointer to the objfile from the existing type. Yes this is somewhat ugly, but without major overhaul of the internal type system, it can't be avoided for now. */ struct objfile *objfile; /* For a pointer type, describes the type of object pointed to. For an array type, describes the type of the elements. For a function or method type, describes the type of the return value. For a range type, describes the type of the full range. Unused otherwise. */ struct type *target_type; /* Type that is a pointer to this type. NULL if no such pointer-to type is known yet. The debugger may add the address of such a type if it has to construct one later. */ struct type *pointer_type; /* C++: also need a reference type. */ struct type *reference_type; /* Type that is a function returning this type. NULL if no such function type is known here. The debugger may add the address of such a type if it has to construct one later. */ struct type *function_type; /* Flags about this type. */ short flags; /* Number of fields described for this type */ short nfields; /* For structure and union types, a description of each field. For set and pascal array types, there is one "field", whose type is the domain type of the set or array. For range types, there are two "fields", the minimum and maximum values (both inclusive). For enum types, each possible value is described by one "field". For C++ classes, there is one field for each base class (if it is a derived class) plus one field for each class data member. Member functions are recorded elsewhere. Using a pointer to a separate array of fields allows all types to have the same size, which is useful because we can allocate the space for a type before we know what to put in it. */ struct field { /* Position of this field, counting in bits from start of containing structure. For a function type, this is the position in the argument list of this argument. For a range bound or enum value, this is the value itself. (FIXME: What about ranges larger than host int size?) For BITS_BIG_ENDIAN=1 targets, it is the bit offset to the MSB. For BITS_BIG_ENDIAN=0 targets, it is the bit offset to the LSB. */ int bitpos; /* Size of this field, in bits, or zero if not packed. For an unpacked field, the field's type's length says how many bytes the field occupies. */ /* FIXME: This is abused by TYPE_FIELD_STATIC_PHYSNAME to contain a pointer, so it has to be long. */ long bitsize; /* In a struct or enum type, type of this field. In a function type, type of this argument. In an array type, the domain-type of the array. */ struct type *type; /* Name of field, value or argument. NULL for range bounds and array domains. */ char *name; } *fields; /* For types with virtual functions, VPTR_BASETYPE is the base class which defined the virtual function table pointer. For types that are pointer to member types, VPTR_BASETYPE is the type that this pointer is a member of. Unused otherwise. */ struct type *vptr_basetype; /* Field number of the virtual function table pointer in VPTR_BASETYPE. If -1, we were unable to find the virtual function table pointer in initial symbol reading, and fill_in_vptr_fieldno should be called to find it if possible. Unused if this type does not have virtual functions. */ int vptr_fieldno; /* Slot to point to additional language-specific fields of this type. */ union type_specific { /* ARG_TYPES is for TYPE_CODE_METHOD and TYPE_CODE_FUNC. */ struct type **arg_types; /* CPLUS_STUFF is for TYPE_CODE_STRUCT. It is initialized to point to cplus_struct_default, a default static instance of a struct cplus_struct_type. */ struct cplus_struct_type *cplus_stuff; } type_specific; }; #define NULL_TYPE ((struct type *) 0) /* C++ language-specific information for TYPE_CODE_STRUCT and TYPE_CODE_UNION nodes. */ struct cplus_struct_type { /* Number of base classes this type derives from. The baseclasses are stored in the first N_BASECLASSES fields (i.e. the `fields' field of the struct type). I think only the `type' field of such a field has any meaning. */ short n_baseclasses; /* Number of methods with unique names. All overloaded methods with the same name count only once. */ short nfn_fields; /* Number of methods described for this type plus all the methods that it derives from. */ int nfn_fields_total; /* For derived classes, the number of base classes is given by n_baseclasses and virtual_field_bits is a bit vector containing one bit per base class. If the base class is virtual, the corresponding bit will be set. I.E, given: class A{}; class B{}; class C : public B, public virtual A {}; B is a baseclass of C; A is a virtual baseclass for C. This is a C++ 2.0 language feature. */ B_TYPE *virtual_field_bits; /* For classes with private fields, the number of fields is given by nfields and private_field_bits is a bit vector containing one bit per field. If the field is private, the corresponding bit will be set. */ B_TYPE *private_field_bits; /* For classes with protected fields, the number of fields is given by nfields and protected_field_bits is a bit vector containing one bit per field. If the field is private, the corresponding bit will be set. */ B_TYPE *protected_field_bits; /* for classes with fields to be ignored, either this is optimized out or this field has length 0 */ B_TYPE *ignore_field_bits; /* For classes, structures, and unions, a description of each field, which consists of an overloaded name, followed by the types of arguments that the method expects, and then the name after it has been renamed to make it distinct. fn_fieldlists points to an array of nfn_fields of these. */ struct fn_fieldlist { /* The overloaded name. */ char *name; /* The number of methods with this name. */ int length; /* The list of methods. */ struct fn_field { /* If is_stub is clear, this is the mangled name which we can look up to find the address of the method (FIXME: it would be cleaner to have a pointer to the struct symbol here instead). */ /* If is_stub is set, this is the portion of the mangled name which specifies the arguments. For example, "ii", if there are two int arguments, or "" if there are no arguments. See gdb_mangle_name for the conversion from this format to the one used if is_stub is clear. */ char *physname; /* The return value of the method */ struct type *type; /* The argument list. Only valid if is_stub is clear. Contains the type of each argument, including `this', and ending with a NULL pointer after the last argument. Should not contain a `this' pointer for static member functions. */ struct type **args; /* For virtual functions. First baseclass that defines this virtual function. */ struct type *fcontext; /* Attributes. */ unsigned int is_const : 1; unsigned int is_volatile : 1; unsigned int is_private : 1; unsigned int is_protected : 1; /* A stub method only has some fields valid (but they are enough to reconstruct the rest of the fields). */ unsigned int is_stub : 1; /* Unused. */ unsigned int dummy : 3; /* Index into that baseclass's virtual function table, minus 2; else if static: VOFFSET_STATIC; else: 0. */ unsigned int voffset : 24; # define VOFFSET_STATIC 1 } *fn_fields; } *fn_fieldlists; }; /* The default value of TYPE_CPLUS_SPECIFIC(T) points to the this shared static structure. */ extern const struct cplus_struct_type cplus_struct_default; extern void allocate_cplus_struct_type PARAMS ((struct type *)); #define INIT_CPLUS_SPECIFIC(type) \ (TYPE_CPLUS_SPECIFIC(type)=(struct cplus_struct_type*)&cplus_struct_default) #define ALLOCATE_CPLUS_STRUCT_TYPE(type) allocate_cplus_struct_type (type) #define HAVE_CPLUS_STRUCT(type) \ (TYPE_CPLUS_SPECIFIC(type) != &cplus_struct_default) #define TYPE_NAME(thistype) (thistype)->name #define TYPE_TAG_NAME(type) ((type)->tag_name) #define TYPE_TARGET_TYPE(thistype) (thistype)->target_type #define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type #define TYPE_FUNCTION_TYPE(thistype) (thistype)->function_type #define TYPE_LENGTH(thistype) (thistype)->length #define TYPE_OBJFILE(thistype) (thistype)->objfile #define TYPE_FLAGS(thistype) (thistype)->flags #define TYPE_UNSIGNED(thistype) ((thistype)->flags & TYPE_FLAG_UNSIGNED) #define TYPE_CODE(thistype) (thistype)->code #define TYPE_NFIELDS(thistype) (thistype)->nfields #define TYPE_FIELDS(thistype) (thistype)->fields #define TYPE_LOW_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 0) #define TYPE_HIGH_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 1) /* If TYPE_DUMMY_RANGE is true for a range type, it was allocated by force_to_range_type. */ #define TYPE_DUMMY_RANGE(type) ((type)->vptr_fieldno) /* C++ */ #define TYPE_VPTR_BASETYPE(thistype) (thistype)->vptr_basetype #define TYPE_DOMAIN_TYPE(thistype) (thistype)->vptr_basetype #define TYPE_VPTR_FIELDNO(thistype) (thistype)->vptr_fieldno #define TYPE_FN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fields #define TYPE_NFN_FIELDS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields #define TYPE_NFN_FIELDS_TOTAL(thistype) TYPE_CPLUS_SPECIFIC(thistype)->nfn_fields_total #define TYPE_TYPE_SPECIFIC(thistype) (thistype)->type_specific #define TYPE_ARG_TYPES(thistype) (thistype)->type_specific.arg_types #define TYPE_CPLUS_SPECIFIC(thistype) (thistype)->type_specific.cplus_stuff #define TYPE_BASECLASS(thistype,index) (thistype)->fields[index].type #define TYPE_N_BASECLASSES(thistype) TYPE_CPLUS_SPECIFIC(thistype)->n_baseclasses #define TYPE_BASECLASS_NAME(thistype,index) (thistype)->fields[index].name #define TYPE_BASECLASS_BITPOS(thistype,index) (thistype)->fields[index].bitpos #define BASETYPE_VIA_PUBLIC(thistype, index) (!TYPE_FIELD_PRIVATE(thistype, index)) #define BASETYPE_VIA_VIRTUAL(thistype, index) \ B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (index)) #define TYPE_FIELD(thistype, n) (thistype)->fields[n] #define TYPE_FIELD_TYPE(thistype, n) (thistype)->fields[n].type #define TYPE_FIELD_NAME(thistype, n) (thistype)->fields[n].name #define TYPE_FIELD_VALUE(thistype, n) (* (int*) &(thistype)->fields[n].type) #define TYPE_FIELD_BITPOS(thistype, n) (thistype)->fields[n].bitpos #define TYPE_FIELD_BITSIZE(thistype, n) (thistype)->fields[n].bitsize #define TYPE_FIELD_PACKED(thistype, n) (thistype)->fields[n].bitsize #define TYPE_FIELD_PRIVATE_BITS(thistype) \ TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits #define TYPE_FIELD_PROTECTED_BITS(thistype) \ TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits #define TYPE_FIELD_IGNORE_BITS(thistype) \ TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits #define TYPE_FIELD_VIRTUAL_BITS(thistype) \ TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits #define SET_TYPE_FIELD_PRIVATE(thistype, n) \ B_SET (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n)) #define SET_TYPE_FIELD_PROTECTED(thistype, n) \ B_SET (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n)) #define SET_TYPE_FIELD_IGNORE(thistype, n) \ B_SET (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n)) #define SET_TYPE_FIELD_VIRTUAL(thistype, n) \ B_SET (TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n)) #define TYPE_FIELD_PRIVATE(thistype, n) \ (TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits == NULL ? 0 \ : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->private_field_bits, (n))) #define TYPE_FIELD_PROTECTED(thistype, n) \ (TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits == NULL ? 0 \ : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->protected_field_bits, (n))) #define TYPE_FIELD_IGNORE(thistype, n) \ (TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits == NULL ? 0 \ : B_TST(TYPE_CPLUS_SPECIFIC(thistype)->ignore_field_bits, (n))) #define TYPE_FIELD_VIRTUAL(thistype, n) \ B_TST(TYPE_CPLUS_SPECIFIC(thistype)->virtual_field_bits, (n)) #define TYPE_FIELD_STATIC(thistype, n) ((thistype)->fields[n].bitpos == -1) #define TYPE_FIELD_STATIC_PHYSNAME(thistype, n) ((char *)(thistype)->fields[n].bitsize) #define TYPE_FN_FIELDLISTS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists #define TYPE_FN_FIELDLIST(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n] #define TYPE_FN_FIELDLIST1(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].fn_fields #define TYPE_FN_FIELDLIST_NAME(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].name #define TYPE_FN_FIELDLIST_LENGTH(thistype, n) TYPE_CPLUS_SPECIFIC(thistype)->fn_fieldlists[n].length #define TYPE_FN_FIELD(thisfn, n) (thisfn)[n] #define TYPE_FN_FIELD_PHYSNAME(thisfn, n) (thisfn)[n].physname #define TYPE_FN_FIELD_TYPE(thisfn, n) (thisfn)[n].type #define TYPE_FN_FIELD_ARGS(thisfn, n) TYPE_ARG_TYPES ((thisfn)[n].type) #define TYPE_FN_FIELD_CONST(thisfn, n) ((thisfn)[n].is_const) #define TYPE_FN_FIELD_VOLATILE(thisfn, n) ((thisfn)[n].is_volatile) #define TYPE_FN_FIELD_PRIVATE(thisfn, n) ((thisfn)[n].is_private) #define TYPE_FN_FIELD_PROTECTED(thisfn, n) ((thisfn)[n].is_protected) #define TYPE_FN_FIELD_STUB(thisfn, n) ((thisfn)[n].is_stub) #define TYPE_FN_FIELD_FCONTEXT(thisfn, n) ((thisfn)[n].fcontext) #define TYPE_FN_FIELD_VOFFSET(thisfn, n) ((thisfn)[n].voffset-2) #define TYPE_FN_FIELD_VIRTUAL_P(thisfn, n) ((thisfn)[n].voffset > 1) #define TYPE_FN_FIELD_STATIC_P(thisfn, n) ((thisfn)[n].voffset == VOFFSET_STATIC) extern struct type *builtin_type_void; extern struct type *builtin_type_char; extern struct type *builtin_type_short; extern struct type *builtin_type_int; extern struct type *builtin_type_long; extern struct type *builtin_type_signed_char; extern struct type *builtin_type_unsigned_char; extern struct type *builtin_type_unsigned_short; extern struct type *builtin_type_unsigned_int; extern struct type *builtin_type_unsigned_long; extern struct type *builtin_type_float; extern struct type *builtin_type_double; extern struct type *builtin_type_long_double; extern struct type *builtin_type_complex; extern struct type *builtin_type_double_complex; extern struct type *builtin_type_string; /* This type represents a type that was unrecognized in symbol read-in. */ extern struct type *builtin_type_error; extern struct type *builtin_type_long_long; extern struct type *builtin_type_unsigned_long_long; /* Modula-2 types */ extern struct type *builtin_type_m2_char; extern struct type *builtin_type_m2_int; extern struct type *builtin_type_m2_card; extern struct type *builtin_type_m2_real; extern struct type *builtin_type_m2_bool; /* Chill types */ extern struct type *builtin_type_chill_bool; extern struct type *builtin_type_chill_char; extern struct type *builtin_type_chill_long; extern struct type *builtin_type_chill_ulong; extern struct type *builtin_type_chill_real; /* Maximum and minimum values of built-in types */ #define MAX_OF_TYPE(t) \ TYPE_UNSIGNED(t) ? UMAX_OF_SIZE(TYPE_LENGTH(t)) \ : MAX_OF_SIZE(TYPE_LENGTH(t)) #define MIN_OF_TYPE(t) \ TYPE_UNSIGNED(t) ? UMIN_OF_SIZE(TYPE_LENGTH(t)) \ : MIN_OF_SIZE(TYPE_LENGTH(t)) /* Allocate space for storing data associated with a particular type. We ensure that the space is allocated using the same mechanism that was used to allocate the space for the type structure itself. I.E. if the type is on an objfile's type_obstack, then the space for data associated with that type will also be allocated on the type_obstack. If the type is not associated with any particular objfile (such as builtin types), then the data space will be allocated with xmalloc, the same as for the type structure. */ #define TYPE_ALLOC(t,size) \ (TYPE_OBJFILE (t) != NULL \ ? obstack_alloc (&TYPE_OBJFILE (t) -> type_obstack, size) \ : xmalloc (size)) extern struct type * alloc_type PARAMS ((struct objfile *)); extern struct type * init_type PARAMS ((enum type_code, int, int, char *, struct objfile *)); extern struct type * lookup_reference_type PARAMS ((struct type *)); extern struct type * make_reference_type PARAMS ((struct type *, struct type **)); extern struct type * lookup_member_type PARAMS ((struct type *, struct type *)); extern void smash_to_method_type PARAMS ((struct type *, struct type *, struct type *, struct type **)); extern void smash_to_member_type PARAMS ((struct type *, struct type *, struct type *)); extern struct type * allocate_stub_method PARAMS ((struct type *)); extern char * type_name_no_tag PARAMS ((const struct type *)); extern struct type * lookup_struct_elt_type PARAMS ((struct type *, char *, int)); extern struct type * make_pointer_type PARAMS ((struct type *, struct type **)); extern struct type * lookup_pointer_type PARAMS ((struct type *)); extern struct type * make_function_type PARAMS ((struct type *, struct type **)); extern struct type * lookup_function_type PARAMS ((struct type *)); extern struct type * create_range_type PARAMS ((struct type *, struct type *, int, int)); extern struct type * create_array_type PARAMS ((struct type *, struct type *, struct type *)); extern struct type * create_string_type PARAMS ((struct type *, struct type *)); extern struct type * create_set_type PARAMS ((struct type *, struct type *)); extern struct type * lookup_unsigned_typename PARAMS ((char *)); extern struct type * lookup_signed_typename PARAMS ((char *)); extern void check_stub_type PARAMS ((struct type *)); extern void check_stub_method PARAMS ((struct type *, int, int)); extern struct type * lookup_primitive_typename PARAMS ((char *)); extern char * gdb_mangle_name PARAMS ((struct type *, int, int)); extern struct type * builtin_type PARAMS ((char **)); extern struct type * lookup_typename PARAMS ((char *, struct block *, int)); extern struct type * lookup_template_type PARAMS ((char *, struct type *, struct block *)); extern struct type * lookup_fundamental_type PARAMS ((struct objfile *, int)); extern void fill_in_vptr_fieldno PARAMS ((struct type *)); #if MAINTENANCE_CMDS extern void recursive_dump_type PARAMS ((struct type *, int)); #endif /* printcmd.c */ extern void print_scalar_formatted PARAMS ((char *, struct type *, int, int, GDB_FILE *)); extern int can_dereference PARAMS ((struct type *)); #if MAINTENANCE_CMDS extern void maintenance_print_type PARAMS ((char *, int)); #endif #endif /* GDBTYPES_H */ gdb-4.13/gdb/go32-xdep.c 666 34562 1752 1715 5515051717 13157 0ustar fnfcygnus/* Host-dependent code for dos running GO32 for GDB, the GNU debugger. Copyright 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include int sigsetmask (mask) int mask; { return 0; } void strlwr (str) char *str; { for (; *str; str++) *str = tolower(*str); } gdb-4.13/gdb/gould-pinsn.c 666 34562 1752 15121 5155005102 13705 0ustar fnfcygnus/* Print GOULD RISC instructions for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "frame.h" #include "gdbcore.h" #if defined GOULD_PN #include "opcode/pn.h" #else #include "opcode/np1.h" #endif /* GOULD RISC instructions are never longer than this many bytes. */ #define MAXLEN 4 /* Number of elements in the opcode table. */ #define NOPCODES (sizeof gld_opcodes / sizeof gld_opcodes[0]) /* Print the GOULD instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; FILE *stream; { unsigned char buffer[MAXLEN]; register int i; register char *d; register int bestmask; unsigned best; int temp, index, bestlen; read_memory (memaddr, buffer, MAXLEN); bestmask = 0; index = -1; best = 0xffffffff; for (i = 0; i < NOPCODES; i++) { register unsigned int opcode = gld_opcodes[i].opcode; register unsigned int mask = gld_opcodes[i].mask; register unsigned int len = gld_opcodes[i].length; register unsigned int test; /* Get possible opcode bytes into integer */ test = buffer[0] << 24; test |= buffer[1] << 16; test |= buffer[2] << 8; test |= buffer[3]; /* Mask with opcode and see if match */ if ((opcode & mask) == (test & mask)) { /* See if second or third match */ if (index >= 0) { /* Take new one if it looks good */ if (bestlen == MAXLEN && len == MAXLEN) { /* See if lower bits matched */ if (((bestmask & 3) == 0) && ((mask & 3) != 0)) { bestmask = mask; bestlen = len; best = test; index = i; } } } else { /* First match, save it */ bestmask = mask; bestlen = len; best = test; index = i; } } } /* Handle undefined instructions. */ if (index < 0) { fprintf (stream, "undefined 0%o",(buffer[0]<<8)+buffer[1]); return 2; } /* Print instruction name */ fprintf (stream, "%-12s", gld_opcodes[index].name); /* Adjust if short instruction */ if (gld_opcodes[index].length < 4) { best >>= 16; i = 0; } else { i = 16; } /* Dump out instruction arguments */ for (d = gld_opcodes[index].args; *d; ++d) { switch (*d) { case 'f': fprintf (stream, "%d", (best >> (7 + i)) & 7); break; case 'r': fprintf (stream, "r%d", (best >> (7 + i)) & 7); break; case 'R': fprintf (stream, "r%d", (best >> (4 + i)) & 7); break; case 'b': fprintf (stream, "b%d", (best >> (7 + i)) & 7); break; case 'B': fprintf (stream, "b%d", (best >> (4 + i)) & 7); break; case 'v': fprintf (stream, "b%d", (best >> (7 + i)) & 7); break; case 'V': fprintf (stream, "b%d", (best >> (4 + i)) & 7); break; case 'X': temp = (best >> 20) & 7; if (temp) fprintf (stream, "r%d", temp); else putc ('0', stream); break; case 'A': temp = (best >> 16) & 7; if (temp) fprintf (stream, "(b%d)", temp); break; case 'S': fprintf (stream, "#%d", best & 0x1f); break; case 'I': fprintf (stream, "#%x", best & 0xffff); break; case 'O': fprintf (stream, "%x", best & 0xffff); break; case 'h': fprintf (stream, "%d", best & 0xfffe); break; case 'd': fprintf (stream, "%d", best & 0xfffc); break; case 'T': fprintf (stream, "%d", (best >> 8) & 0xff); break; case 'N': fprintf (stream, "%d", best & 0xff); break; default: putc (*d, stream); break; } } /* Return length of instruction */ return (gld_opcodes[index].length); } /* * Find the number of arguments to a function. */ findarg(frame) struct frame_info *frame; { register struct symbol *func; register unsigned pc; #ifdef notdef /* find starting address of frame function */ pc = get_pc_function_start (frame->pc); /* find function symbol info */ func = find_pc_function (pc); /* call blockframe code to look for match */ if (func != NULL) return (func->value.block->nsyms / sizeof(int)); #endif return (-1); } /* * In the case of the NPL, the frame's norminal address is Br2 and the * previous routines frame is up the stack X bytes. Finding out what * 'X' is can be tricky. * * 1.) stored in the code function header xA(Br1). * 2.) must be careful of recurssion. */ FRAME_ADDR findframe(thisframe) FRAME thisframe; { register FRAME_ADDR pointer; FRAME_ADDR framechain(); #if 0 struct frame_info *frame; /* Setup toplevel frame structure */ frame->pc = read_pc(); frame->next_frame = 0; frame->frame = read_register (SP_REGNUM); /* Br2 */ /* Search for this frame (start at current Br2) */ do { pointer = framechain(frame); frame->next_frame = frame->frame; frame->frame = pointer; frame->pc = FRAME_SAVED_PC(frame); } while (frame->next_frame != thisframe); #endif pointer = framechain (thisframe); /* stop gap for now, end at __base3 */ if (thisframe->pc == 0) return 0; return pointer; } /* * Gdb front-end and internal framechain routine. * Go back up stack one level. Tricky... */ FRAME_ADDR framechain(frame) register struct frame_info *frame; { register CORE_ADDR func, prevsp; register unsigned value; /* Get real function start address from internal frame address */ func = get_pc_function_start(frame->pc); /* If no stack given, read register Br1 "(sp)" */ if (!frame->frame) prevsp = read_register (SP_REGNUM); else prevsp = frame->frame; /* Check function header, case #2 */ value = read_memory_integer (func, 4); if (value) { /* 32bit call push value stored in function header */ prevsp += value; } else { /* read half-word from suabr at start of function */ prevsp += read_memory_integer (func + 10, 2); } return (prevsp); } gdb-4.13/gdb/gould-xdep.c 666 34562 1752 6655 5400443704 13521 0ustar fnfcygnus/* Low level interface to ptrace, for GDB when running under Unix. Copyright (C) 1986, 1987, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include #include #include #include #include #include #include "gdbcore.h" #include #include /* Work with core dump and executable files, for GDB. This code would be in core.c if it weren't machine-dependent. */ void core_file_command (filename, from_tty) char *filename; int from_tty; { int val; extern char registers[]; /* Discard all vestiges of any previous core file and mark data and stack spaces as empty. */ if (corefile) free (corefile); corefile = 0; if (corechan >= 0) close (corechan); corechan = -1; data_start = 0; data_end = 0; stack_start = STACK_END_ADDR; stack_end = STACK_END_ADDR; /* Now, if a new core file was specified, open it and digest it. */ if (filename) { filename = tilde_expand (filename); make_cleanup (free, filename); if (have_inferior_p ()) error ("To look at a core file, you must kill the program with \"kill\"."); corechan = open (filename, O_RDONLY, 0); if (corechan < 0) perror_with_name (filename); /* 4.2-style (and perhaps also sysV-style) core dump file. */ { struct user u; int reg_offset; val = myread (corechan, &u, sizeof u); if (val < 0) perror_with_name (filename); data_start = exec_data_start; data_end = data_start + NBPG * u.u_dsize; stack_start = stack_end - NBPG * u.u_ssize; data_offset = NBPG * UPAGES; stack_offset = NBPG * (UPAGES + u.u_dsize); reg_offset = (int) u.u_ar0 - KERNEL_U_ADDR; /* I don't know where to find this info. So, for now, mark it as not available. */ core_aouthdr.a_magic = 0; /* Read the register values out of the core file and store them where `read_register' will find them. */ { register int regno; for (regno = 0; regno < NUM_REGS; regno++) { char buf[MAX_REGISTER_RAW_SIZE]; val = lseek (corechan, register_addr (regno, reg_offset), 0); if (val < 0) perror_with_name (filename); val = myread (corechan, buf, sizeof buf); if (val < 0) perror_with_name (filename); supply_register (regno, buf); } } } if (filename[0] == '/') corefile = savestring (filename, strlen (filename)); else { corefile = concat (current_directory, "/", filename, NULL); } set_current_frame ( create_new_frame (read_register (FP_REGNUM), read_pc ())); select_frame (get_current_frame (), 0); validate_files (); } else if (from_tty) printf ("No core file now.\n"); } gdb-4.13/gdb/h8300-tdep.c 666 34562 1752 27656 5502457455 13204 0ustar fnfcygnus/* Target-machine dependent code for Hitachi H8/300, for GDB. Copyright (C) 1988, 1990, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Contributed by Steve Chamberlain sac@cygnus.com */ #include "defs.h" #include "frame.h" #include "obstack.h" #include "symtab.h" #include #include "gdbcmd.h" #include "gdbtypes.h" #undef NUM_REGS #define NUM_REGS 11 #define UNSIGNED_SHORT(X) ((X) & 0xffff) /* an easy to debug H8 stack frame looks like: 0x6df6 push r6 0x0d76 mov.w r7,r6 0x6dfn push reg 0x7905 nnnn mov.w #n,r5 or 0x1b87 subs #2,sp 0x1957 sub.w r5,sp */ #define IS_PUSH(x) ((x & 0xff00)==0x6d00) #define IS_PUSH_FP(x) (x == 0x6df6) #define IS_MOVE_FP(x) (x == 0x0d76) #define IS_MOV_SP_FP(x) (x == 0x0d76) #define IS_SUB2_SP(x) (x==0x1b87) #define IS_MOVK_R5(x) (x==0x7905) #define IS_SUB_R5SP(x) (x==0x1957) static CORE_ADDR examine_prologue (); void frame_find_saved_regs (); CORE_ADDR h8300_skip_prologue (start_pc) CORE_ADDR start_pc; { short int w; w = read_memory_unsigned_integer (start_pc, 2); /* Skip past all push insns */ while (IS_PUSH_FP (w)) { start_pc += 2; w = read_memory_unsigned_integer (start_pc, 2); } /* Skip past a move to FP */ if (IS_MOVE_FP (w)) { start_pc += 2; w = read_memory_unsigned_integer (start_pc, 2); } /* Skip the stack adjust */ if (IS_MOVK_R5 (w)) { start_pc += 2; w = read_memory_unsigned_integer (start_pc, 2); } if (IS_SUB_R5SP (w)) { start_pc += 2; w = read_memory_unsigned_integer (start_pc, 2); } while (IS_SUB2_SP (w)) { start_pc += 2; w = read_memory_unsigned_integer (start_pc, 2); } return start_pc; } int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO(info, stream); if (h8300hmode) return print_insn_h8300h (memaddr, &info); else return print_insn_h8300 (memaddr, &info); } /* Given a GDB frame, determine the address of the calling function's frame. This will be used to create a new GDB frame struct, and then INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame. For us, the frame address is its stack pointer value, so we look up the function prologue to determine the caller's sp value, and return it. */ FRAME_ADDR FRAME_CHAIN (thisframe) FRAME thisframe; { frame_find_saved_regs (thisframe, (struct frame_saved_regs *) 0); return thisframe->fsr->regs[SP_REGNUM]; } /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. We cache the result of doing this in the frame_cache_obstack, since it is fairly expensive. */ void frame_find_saved_regs (fi, fsr) struct frame_info *fi; struct frame_saved_regs *fsr; { register CORE_ADDR next_addr; register CORE_ADDR *saved_regs; register int regnum; register struct frame_saved_regs *cache_fsr; extern struct obstack frame_cache_obstack; CORE_ADDR ip; struct symtab_and_line sal; CORE_ADDR limit; if (!fi->fsr) { cache_fsr = (struct frame_saved_regs *) obstack_alloc (&frame_cache_obstack, sizeof (struct frame_saved_regs)); memset (cache_fsr, '\0', sizeof (struct frame_saved_regs)); fi->fsr = cache_fsr; /* Find the start and end of the function prologue. If the PC is in the function prologue, we only consider the part that has executed already. */ ip = get_pc_function_start (fi->pc); sal = find_pc_line (ip, 0); limit = (sal.end && sal.end < fi->pc) ? sal.end : fi->pc; /* This will fill in fields in *fi as well as in cache_fsr. */ examine_prologue (ip, limit, fi->frame, cache_fsr, fi); } if (fsr) *fsr = *fi->fsr; } /* Fetch the instruction at ADDR, returning 0 if ADDR is beyond LIM or is not the address of a valid instruction, the address of the next instruction beyond ADDR otherwise. *PWORD1 receives the first word of the instruction.*/ CORE_ADDR NEXT_PROLOGUE_INSN (addr, lim, pword1) CORE_ADDR addr; CORE_ADDR lim; INSN_WORD *pword1; { char buf[2]; if (addr < lim + 8) { read_memory (addr, buf, 2); *pword1 = extract_signed_integer (buf, 2); return addr + 2; } return 0; } /* Examine the prologue of a function. `ip' points to the first instruction. `limit' is the limit of the prologue (e.g. the addr of the first linenumber, or perhaps the program counter if we're stepping through). `frame_sp' is the stack pointer value in use in this frame. `fsr' is a pointer to a frame_saved_regs structure into which we put info about the registers saved by this frame. `fi' is a struct frame_info pointer; we fill in various fields in it to reflect the offsets of the arg pointer and the locals pointer. */ static CORE_ADDR examine_prologue (ip, limit, after_prolog_fp, fsr, fi) register CORE_ADDR ip; register CORE_ADDR limit; FRAME_ADDR after_prolog_fp; struct frame_saved_regs *fsr; struct frame_info *fi; { register CORE_ADDR next_ip; int r; int i; int have_fp = 0; register int src; register struct pic_prologue_code *pcode; INSN_WORD insn_word; int size, offset; /* Number of things pushed onto stack, starts at 2/4, 'cause the PC is already there */ unsigned int reg_save_depth = h8300hmode ? 4 : 2; unsigned int auto_depth = 0; /* Number of bytes of autos */ char in_frame[11]; /* One for each reg */ memset (in_frame, 1, 11); for (r = 0; r < 8; r++) { fsr->regs[r] = 0; } if (after_prolog_fp == 0) { after_prolog_fp = read_register (SP_REGNUM); } if (ip == 0 || ip & (h8300hmode ? ~0xffff : ~0xffff)) return 0; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn_word); /* Skip over any fp push instructions */ fsr->regs[6] = after_prolog_fp; while (next_ip && IS_PUSH_FP (insn_word)) { ip = next_ip; in_frame[insn_word & 0x7] = reg_save_depth; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn_word); reg_save_depth += 2; } /* Is this a move into the fp */ if (next_ip && IS_MOV_SP_FP (insn_word)) { ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn_word); have_fp = 1; } /* Skip over any stack adjustment, happens either with a number of sub#2,sp or a mov #x,r5 sub r5,sp */ if (next_ip && IS_SUB2_SP (insn_word)) { while (next_ip && IS_SUB2_SP (insn_word)) { auto_depth += 2; ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn_word); } } else { if (next_ip && IS_MOVK_R5 (insn_word)) { ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn_word); auto_depth += insn_word; next_ip = NEXT_PROLOGUE_INSN (next_ip, limit, &insn_word); auto_depth += insn_word; } } /* Work out which regs are stored where */ while (next_ip && IS_PUSH (insn_word)) { ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn_word); fsr->regs[r] = after_prolog_fp + auto_depth; auto_depth += 2; } /* The args are always reffed based from the stack pointer */ fi->args_pointer = after_prolog_fp; /* Locals are always reffed based from the fp */ fi->locals_pointer = after_prolog_fp; /* The PC is at a known place */ fi->from_pc = read_memory_unsigned_integer (after_prolog_fp + 2, BINWORD); /* Rememeber any others too */ in_frame[PC_REGNUM] = 0; if (have_fp) /* We keep the old FP in the SP spot */ fsr->regs[SP_REGNUM] = read_memory_unsigned_integer (fsr->regs[6], BINWORD); else fsr->regs[SP_REGNUM] = after_prolog_fp + auto_depth; return (ip); } void init_extra_frame_info (fromleaf, fi) int fromleaf; struct frame_info *fi; { fi->fsr = 0; /* Not yet allocated */ fi->args_pointer = 0; /* Unknown */ fi->locals_pointer = 0; /* Unknown */ fi->from_pc = 0; } /* Return the saved PC from this frame. If the frame has a memory copy of SRP_REGNUM, use that. If not, just use the register SRP_REGNUM itself. */ CORE_ADDR frame_saved_pc (frame) FRAME frame; { return frame->from_pc; } CORE_ADDR frame_locals_address (fi) struct frame_info *fi; { if (!fi->locals_pointer) { struct frame_saved_regs ignore; get_frame_saved_regs (fi, &ignore); } return fi->locals_pointer; } /* Return the address of the argument block for the frame described by FI. Returns 0 if the address is unknown. */ CORE_ADDR frame_args_address (fi) struct frame_info *fi; { if (!fi->args_pointer) { struct frame_saved_regs ignore; get_frame_saved_regs (fi, &ignore); } return fi->args_pointer; } void h8300_pop_frame () { unsigned regnum; struct frame_saved_regs fsr; struct frame_info *fi; FRAME frame = get_current_frame (); fi = get_frame_info (frame); get_frame_saved_regs (fi, &fsr); for (regnum = 0; regnum < 8; regnum++) { if (fsr.regs[regnum]) { write_register (regnum, read_memory_integer(fsr.regs[regnum]), BINWORD); } flush_cached_frames (); set_current_frame (create_new_frame (read_register (FP_REGNUM), read_pc ())); } } struct cmd_list_element *setmemorylist; static void h8300_command(args, from_tty) { extern int h8300hmode; h8300hmode = 0; } static void h8300h_command(args, from_tty) { extern int h8300hmode; h8300hmode = 1; } static void set_machine (args, from_tty) char *args; int from_tty; { printf_unfiltered ("\"set machine\" must be followed by h8300 or h8300h.\n"); help_list (setmemorylist, "set memory ", -1, gdb_stdout); } void _initialize_h8300m () { add_prefix_cmd ("machine", no_class, set_machine, "set the machine type", &setmemorylist, "set machine ", 0, &setlist); add_cmd ("h8300", class_support, h8300_command, "Set machine to be H8/300.", &setmemorylist); add_cmd ("h8300h", class_support, h8300h_command, "Set machine to be H8/300H.", &setmemorylist); } void print_register_hook (regno) { if (regno == 8) { /* CCR register */ int C, Z, N, V; unsigned char b[4]; unsigned char l; read_relative_register_raw_bytes (regno, b); l = b[REGISTER_VIRTUAL_SIZE(8) -1]; printf_unfiltered ("\t"); printf_unfiltered ("I-%d - ", (l & 0x80) != 0); printf_unfiltered ("H-%d - ", (l & 0x20) != 0); N = (l & 0x8) != 0; Z = (l & 0x4) != 0; V = (l & 0x2) != 0; C = (l & 0x1) != 0; printf_unfiltered ("N-%d ", N); printf_unfiltered ("Z-%d ", Z); printf_unfiltered ("V-%d ", V); printf_unfiltered ("C-%d ", C); if ((C | Z) == 0) printf_unfiltered ("u> "); if ((C | Z) == 1) printf_unfiltered ("u<= "); if ((C == 0)) printf_unfiltered ("u>= "); if (C == 1) printf_unfiltered ("u< "); if (Z == 0) printf_unfiltered ("!= "); if (Z == 1) printf_unfiltered ("== "); if ((N ^ V) == 0) printf_unfiltered (">= "); if ((N ^ V) == 1) printf_unfiltered ("< "); if ((Z | (N ^ V)) == 0) printf_unfiltered ("> "); if ((Z | (N ^ V)) == 1) printf_unfiltered ("<= "); } } gdb-4.13/gdb/h8500-tdep.c 666 34562 1752 36153 5553560044 13171 0ustar fnfcygnus/* Target-machine dependent code for Hitachi H8/500, for GDB. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Contributed by Steve Chamberlain sac@cygnus.com */ #include "defs.h" #include "frame.h" #include "obstack.h" #include "symtab.h" #include "gdbtypes.h" #include "gdbcmd.h" #include "value.h" #include "dis-asm.h" #include "../opcodes/h8500-opc.h" ; #define UNSIGNED_SHORT(X) ((X) & 0xffff) int code_size = 2; int data_size = 2; /* Shape of an H8/500 frame : arg-n .. arg-2 arg-1 return address <2 or 4 bytes> old fp <2 bytes> auto-n .. auto-1 saved registers */ /* an easy to debug H8 stack frame looks like: 0x6df6 push r6 0x0d76 mov.w r7,r6 0x6dfn push reg 0x7905 nnnn mov.w #n,r5 or 0x1b87 subs #2,sp 0x1957 sub.w r5,sp */ #define IS_PUSH(x) (((x) & 0xff00)==0x6d00) #define IS_LINK_8(x) ((x) == 0x17) #define IS_LINK_16(x) ((x) == 0x1f) #define IS_MOVE_FP(x) ((x) == 0x0d76) #define IS_MOV_SP_FP(x) ((x) == 0x0d76) #define IS_SUB2_SP(x) ((x) == 0x1b87) #define IS_MOVK_R5(x) ((x) == 0x7905) #define IS_SUB_R5SP(x) ((x) == 0x1957) #define LINK_8 0x17 #define LINK_16 0x1f int minimum_mode = 1; CORE_ADDR examine_prologue (); void frame_find_saved_regs (); CORE_ADDR h8500_skip_prologue (start_pc) CORE_ADDR start_pc; { short int w; w = read_memory_integer (start_pc, 1); if (w == LINK_8) { start_pc += 2; w = read_memory_integer (start_pc, 1); } if (w == LINK_16) { start_pc += 3; w = read_memory_integer (start_pc, 2); } return start_pc; } int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO (info, stream); return print_insn_h8500 (memaddr, &info); } /* Given a GDB frame, determine the address of the calling function's frame. This will be used to create a new GDB frame struct, and then INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame. For us, the frame address is its stack pointer value, so we look up the function prologue to determine the caller's sp value, and return it. */ FRAME_ADDR h8500_frame_chain (thisframe) FRAME thisframe; { if (!inside_entry_file (thisframe->pc)) return (read_memory_integer (FRAME_FP (thisframe), PTR_SIZE)); else return 0; } /* Fetch the instruction at ADDR, returning 0 if ADDR is beyond LIM or is not the address of a valid instruction, the address of the next instruction beyond ADDR otherwise. *PWORD1 receives the first word of the instruction.*/ CORE_ADDR NEXT_PROLOGUE_INSN (addr, lim, pword1) CORE_ADDR addr; CORE_ADDR lim; char *pword1; { if (addr < lim + 8) { read_memory (addr, pword1, 1); read_memory (addr, pword1 + 1, 1); return 1; } return 0; } /* Examine the prologue of a function. `ip' points to the first instruction. `limit' is the limit of the prologue (e.g. the addr of the first linenumber, or perhaps the program counter if we're stepping through). `frame_sp' is the stack pointer value in use in this frame. `fsr' is a pointer to a frame_saved_regs structure into which we put info about the registers saved by this frame. `fi' is a struct frame_info pointer; we fill in various fields in it to reflect the offsets of the arg pointer and the locals pointer. */ /* Return the saved PC from this frame. */ CORE_ADDR frame_saved_pc (frame) FRAME frame; { return read_memory_integer ((frame)->frame + 2, PTR_SIZE); } CORE_ADDR frame_locals_address (fi) struct frame_info *fi; { return fi->frame; } /* Return the address of the argument block for the frame described by FI. Returns 0 if the address is unknown. */ CORE_ADDR frame_args_address (fi) struct frame_info *fi; { return fi->frame; } void h8300_pop_frame () { unsigned regnum; struct frame_saved_regs fsr; struct frame_info *fi; FRAME frame = get_current_frame (); fi = get_frame_info (frame); get_frame_saved_regs (fi, &fsr); for (regnum = 0; regnum < 8; regnum++) { if (fsr.regs[regnum]) { write_register (regnum, read_memory_short (fsr.regs[regnum])); } flush_cached_frames (); set_current_frame (create_new_frame (read_register (FP_REGNUM), read_pc ())); } } void print_register_hook (regno) { if (regno == CCR_REGNUM) { /* CCR register */ int C, Z, N, V; unsigned char b[2]; unsigned char l; read_relative_register_raw_bytes (regno, b); l = b[1]; printf_unfiltered ("\t"); printf_unfiltered ("I-%d - ", (l & 0x80) != 0); N = (l & 0x8) != 0; Z = (l & 0x4) != 0; V = (l & 0x2) != 0; C = (l & 0x1) != 0; printf_unfiltered ("N-%d ", N); printf_unfiltered ("Z-%d ", Z); printf_unfiltered ("V-%d ", V); printf_unfiltered ("C-%d ", C); if ((C | Z) == 0) printf_unfiltered ("u> "); if ((C | Z) == 1) printf_unfiltered ("u<= "); if ((C == 0)) printf_unfiltered ("u>= "); if (C == 1) printf_unfiltered ("u< "); if (Z == 0) printf_unfiltered ("!= "); if (Z == 1) printf_unfiltered ("== "); if ((N ^ V) == 0) printf_unfiltered (">= "); if ((N ^ V) == 1) printf_unfiltered ("< "); if ((Z | (N ^ V)) == 0) printf_unfiltered ("> "); if ((Z | (N ^ V)) == 1) printf_unfiltered ("<= "); } } int h8500_register_size (regno) int regno; { switch (regno) { case SEG_C_REGNUM: case SEG_D_REGNUM: case SEG_E_REGNUM: case SEG_T_REGNUM: return 1; case R0_REGNUM: case R1_REGNUM: case R2_REGNUM: case R3_REGNUM: case R4_REGNUM: case R5_REGNUM: case R6_REGNUM: case R7_REGNUM: case CCR_REGNUM: return 2; case PR0_REGNUM: case PR1_REGNUM: case PR2_REGNUM: case PR3_REGNUM: case PR4_REGNUM: case PR5_REGNUM: case PR6_REGNUM: case PR7_REGNUM: case PC_REGNUM: return 4; } } struct type * h8500_register_virtual_type (regno) int regno; { switch (regno) { case SEG_C_REGNUM: case SEG_E_REGNUM: case SEG_D_REGNUM: case SEG_T_REGNUM: return builtin_type_unsigned_char; case R0_REGNUM: case R1_REGNUM: case R2_REGNUM: case R3_REGNUM: case R4_REGNUM: case R5_REGNUM: case R6_REGNUM: case R7_REGNUM: case CCR_REGNUM: return builtin_type_unsigned_short; case PR0_REGNUM: case PR1_REGNUM: case PR2_REGNUM: case PR3_REGNUM: case PR4_REGNUM: case PR5_REGNUM: case PR6_REGNUM: case PR7_REGNUM: case PC_REGNUM: return builtin_type_unsigned_long; default: abort (); } } /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ void frame_find_saved_regs (frame_info, frame_saved_regs) struct frame_info *frame_info; struct frame_saved_regs *frame_saved_regs; { register int regnum; register int regmask; register CORE_ADDR next_addr; register CORE_ADDR pc; unsigned char thebyte; memset (frame_saved_regs, '\0', sizeof *frame_saved_regs); if ((frame_info)->pc >= (frame_info)->frame - CALL_DUMMY_LENGTH - FP_REGNUM * 4 - 4 && (frame_info)->pc <= (frame_info)->frame) { next_addr = (frame_info)->frame; pc = (frame_info)->frame - CALL_DUMMY_LENGTH - FP_REGNUM * 4 - 4; } else { pc = get_pc_function_start ((frame_info)->pc); /* Verify we have a link a6 instruction next; if not we lose. If we win, find the address above the saved regs using the amount of storage from the link instruction. */ thebyte = read_memory_integer (pc, 1); if (0x1f == thebyte) next_addr = (frame_info)->frame + read_memory_integer (pc += 1, 2), pc += 2; else if (0x17 == thebyte) next_addr = (frame_info)->frame + read_memory_integer (pc += 1, 1), pc += 1; else goto lose; #if 0 /* FIXME steve */ /* If have an add:g.waddal #-n, sp next, adjust next_addr. */ if ((0x0c0177777 & read_memory_integer (pc, 2)) == 0157774) next_addr += read_memory_integer (pc += 2, 4), pc += 4; #endif } thebyte = read_memory_integer (pc, 1); if (thebyte == 0x12) { /* Got stm */ pc++; regmask = read_memory_integer (pc, 1); pc++; for (regnum = 0; regnum < 8; regnum++, regmask >>= 1) { if (regmask & 1) { (frame_saved_regs)->regs[regnum] = (next_addr += 2) - 2; } } thebyte = read_memory_integer (pc, 1); } /* Maybe got a load of pushes */ while (thebyte == 0xbf) { pc++; regnum = read_memory_integer (pc, 1) & 0x7; pc++; (frame_saved_regs)->regs[regnum] = (next_addr += 2) - 2; thebyte = read_memory_integer (pc, 1); } lose:; /* Remember the address of the frame pointer */ (frame_saved_regs)->regs[FP_REGNUM] = (frame_info)->frame; /* This is where the old sp is hidden */ (frame_saved_regs)->regs[SP_REGNUM] = (frame_info)->frame; /* And the PC - remember the pushed FP is always two bytes long */ (frame_saved_regs)->regs[PC_REGNUM] = (frame_info)->frame + 2; } saved_pc_after_call (frame) { int x; int a = read_register (SP_REGNUM); x = read_memory_integer (a, code_size); if (code_size == 2) { /* Stick current code segement onto top */ x &= 0xffff; x |= read_register (SEG_C_REGNUM) << 16; } x &= 0xffffff; return x; } /* Nonzero if instruction at PC is a return instruction. */ about_to_return (pc) { int b1 = read_memory_integer (pc, 1); switch (b1) { case 0x14: /* rtd #8 */ case 0x1c: /* rtd #16 */ case 0x19: /* rts */ case 0x1a: /* rte */ return 1; case 0x11: { int b2 = read_memory_integer (pc + 1, 1); switch (b2) { case 0x18: /* prts */ case 0x14: /* prtd #8 */ case 0x16: /* prtd #16 */ return 1; } } } return 0; } void h8500_set_pointer_size (newsize) int newsize; { static int oldsize = 0; if (oldsize != newsize) { printf_unfiltered ("pointer size set to %d bits\n", newsize); oldsize = newsize; if (newsize == 32) { minimum_mode = 0; } else { minimum_mode = 1; } _initialize_gdbtypes (); } } struct cmd_list_element *setmemorylist; #define C(name,a,b,c) name () { h8500_set_pointer_size(a); code_size = b; data_size = c; } C(big_command, 32,4,4); C(medium_command, 32, 4,2); C(compact_command, 32,2,4); C(small_command, 16,2,2); static void set_memory (args, from_tty) char *args; int from_tty; { printf_unfiltered ("\"set memory\" must be followed by the name of a memory subcommand.\n"); help_list (setmemorylist, "set memory ", -1, gdb_stdout); } /* See if variable name is ppc or pr[0-7] */ int h8500_is_trapped_internalvar (name) char *name; { if (name[0] != 'p') return 0; if (strcmp (name + 1, "pc") == 0) return 1; if (name[1] == 'r' && name[2] >= '0' && name[2] <= '7' && name[3] == '\000') return 1; else return 0; } value_ptr h8500_value_of_trapped_internalvar (var) struct internalvar *var; { LONGEST regval; unsigned char regbuf[4]; int page_regnum, regnum; regnum = var->name[2] == 'c' ? PC_REGNUM : var->name[2] - '0'; switch (var->name[2]) { case 'c': page_regnum = SEG_C_REGNUM; break; case '0': case '1': case '2': case '3': page_regnum = SEG_D_REGNUM; break; case '4': case '5': page_regnum = SEG_E_REGNUM; break; case '6': case '7': page_regnum = SEG_T_REGNUM; break; } get_saved_register (regbuf, NULL, NULL, selected_frame, page_regnum, NULL); regval = regbuf[0] << 16; get_saved_register (regbuf, NULL, NULL, selected_frame, regnum, NULL); regval |= regbuf[0] << 8 | regbuf[1]; /* XXX host/target byte order */ free (var->value); /* Free up old value */ var->value = value_from_longest (builtin_type_unsigned_long, regval); release_value (var->value); /* Unchain new value */ VALUE_LVAL (var->value) = lval_internalvar; VALUE_INTERNALVAR (var->value) = var; return var->value; } void h8500_set_trapped_internalvar (var, newval, bitpos, bitsize, offset) struct internalvar *var; int offset, bitpos, bitsize; value_ptr newval; { char *page_regnum, *regnum; char expression[100]; unsigned new_regval; struct type *type; enum type_code newval_type_code; type = VALUE_TYPE (newval); newval_type_code = TYPE_CODE (type); if ((newval_type_code != TYPE_CODE_INT && newval_type_code != TYPE_CODE_PTR) || TYPE_LENGTH (type) != sizeof (new_regval)) error ("Illegal type (%s) for assignment to $%s\n", TYPE_NAME (type), var->name); new_regval = *(long *) VALUE_CONTENTS_RAW (newval); regnum = var->name + 1; switch (var->name[2]) { case 'c': page_regnum = "cp"; break; case '0': case '1': case '2': case '3': page_regnum = "dp"; break; case '4': case '5': page_regnum = "ep"; break; case '6': case '7': page_regnum = "tp"; break; } sprintf (expression, "$%s=%d", page_regnum, new_regval >> 16); parse_and_eval (expression); sprintf (expression, "$%s=%d", regnum, new_regval & 0xffff); parse_and_eval (expression); } void _initialize_h8500_tdep () { add_prefix_cmd ("memory", no_class, set_memory, "set the memory model", &setmemorylist, "set memory ", 0, &setlist); add_cmd ("small", class_support, small_command, "Set small memory model. (16 bit code, 16 bit data)", &setmemorylist); add_cmd ("big", class_support, big_command, "Set big memory model. (32 bit code, 32 bit data)", &setmemorylist); add_cmd ("medium", class_support, medium_command, "Set medium memory model. (32 bit code, 16 bit data)", &setmemorylist); add_cmd ("compact", class_support, compact_command, "Set compact memory model. (16 bit code, 32 bit data)", &setmemorylist); } CORE_ADDR target_read_sp () { return read_register (PR7_REGNUM); } void target_write_sp (v) CORE_ADDR v; { write_register (PR7_REGNUM, v); } CORE_ADDR target_read_pc () { return read_register (PC_REGNUM); } void target_write_pc (v) CORE_ADDR v; { write_register (PC_REGNUM, v); } CORE_ADDR target_read_fp () { return read_register (PR6_REGNUM); } void target_write_fp (v) CORE_ADDR v; { write_register (PR6_REGNUM, v); } gdb-4.13/gdb/hp300ux-nat.c 666 34562 1752 15347 5531302564 13461 0ustar fnfcygnus/* HP/UX native interface for HP 300's, for GDB when running under Unix. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" /* Defining this means some system include files define some extra stuff. */ #define WOPR #include #include #include #include #include #include #include #include "gdbcore.h" #include /* Get kernel_u_addr using HPUX-style nlist(). */ CORE_ADDR kernel_u_addr; struct hpnlist { char * n_name; long n_value; unsigned char n_type; unsigned char n_length; short n_almod; short n_unused; }; static struct hpnlist nl[] = {{ "_u", -1, }, { (char *) 0, }}; /* read the value of the u area from the hp-ux kernel */ void _initialize_hp300ux_nat () { #ifndef HPUX_VERSION_5 nlist ("/hp-ux", nl); kernel_u_addr = nl[0].n_value; #else /* HPUX version 5. */ kernel_u_addr = (CORE_ADDR) 0x0097900; #endif } #define INFERIOR_AR0(u) \ ((ptrace \ (PT_RUAREA, inferior_pid, \ (PTRACE_ARG3_TYPE) ((char *) &u.u_ar0 - (char *) &u), 0, 0)) \ - kernel_u_addr) static void fetch_inferior_register (regno, regaddr) register int regno; register unsigned int regaddr; { #ifndef HPUX_VERSION_5 if (regno == PS_REGNUM) { union { int i; short s[2]; } ps_val; int regval; ps_val.i = (ptrace (PT_RUAREA, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0, 0)); regval = ps_val.s[0]; supply_register (regno, (char *)®val); } else #endif /* not HPUX_VERSION_5 */ { char buf[MAX_REGISTER_RAW_SIZE]; register int i; for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) { *(int *) &buf[i] = ptrace (PT_RUAREA, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0, 0); regaddr += sizeof (int); } supply_register (regno, buf); } return; } static void store_inferior_register_1 (regno, regaddr, val) int regno; unsigned int regaddr; int val; { errno = 0; ptrace (PT_WUAREA, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, val, 0); #if 0 /* HP-UX randomly sets errno to non-zero for regno == 25. However, the value is correctly written, so ignore errno. */ if (errno != 0) { char string_buf[64]; sprintf (string_buf, "writing register number %d", regno); perror_with_name (string_buf); } #endif return; } static void store_inferior_register (regno, regaddr) register int regno; register unsigned int regaddr; { #ifndef HPUX_VERSION_5 if (regno == PS_REGNUM) { union { int i; short s[2]; } ps_val; ps_val.i = (ptrace (PT_RUAREA, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0, 0)); ps_val.s[0] = (read_register (regno)); store_inferior_register_1 (regno, regaddr, ps_val.i); } else #endif /* not HPUX_VERSION_5 */ { char buf[MAX_REGISTER_RAW_SIZE]; register int i; extern char registers[]; for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) { store_inferior_register_1 (regno, regaddr, (*(int *) ®isters[(REGISTER_BYTE (regno)) + i])); regaddr += sizeof (int); } } return; } void fetch_inferior_registers (regno) int regno; { struct user u; register unsigned int ar0_offset; ar0_offset = (INFERIOR_AR0 (u)); if (regno == -1) { for (regno = 0; (regno < FP0_REGNUM); regno++) fetch_inferior_register (regno, (REGISTER_ADDR (ar0_offset, regno))); for (; (regno < NUM_REGS); regno++) fetch_inferior_register (regno, (FP_REGISTER_ADDR (u, regno))); } else fetch_inferior_register (regno, (regno < FP0_REGNUM ? REGISTER_ADDR (ar0_offset, regno) : FP_REGISTER_ADDR (u, regno))); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) register int regno; { struct user u; register unsigned int ar0_offset; extern char registers[]; if (regno >= FP0_REGNUM) { store_inferior_register (regno, (FP_REGISTER_ADDR (u, regno))); return; } ar0_offset = (INFERIOR_AR0 (u)); if (regno >= 0) { store_inferior_register (regno, (REGISTER_ADDR (ar0_offset, regno))); return; } for (regno = 0; (regno < FP0_REGNUM); regno++) store_inferior_register (regno, (REGISTER_ADDR (ar0_offset, regno))); for (; (regno < NUM_REGS); regno++) store_inferior_register (regno, (FP_REGISTER_ADDR (u, regno))); return; } #if 0 /* This function is no longer used. The version in coredep.c is used instead. */ /* Take the register values out of a core file and store them where `read_register' will find them. */ #ifdef HPUX_VERSION_5 #define e_PS e_regs[PS] #define e_PC e_regs[PC] #endif /* HPUX_VERSION_5 */ void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned int core_reg_size; int which; unsigned int reg_addr; /* Unused in this version */ { int val, regno; struct user u; struct exception_stack *pes = (struct exception_stack *) core_reg_sect; #define es (*pes) char *buf; if (which == 0) { if (core_reg_size < ((char *) &es.e_offset - (char *) &es.e_regs[R0])) error ("Not enough registers in core file"); for (regno = 0; (regno < PS_REGNUM); regno++) supply_register (regno, (char *) &es.e_regs[regno + R0]); val = es.e_PS; supply_register (regno++, (char *) &val); supply_register (regno++, (char *) &es.e_PC); } else if (which == 2) { /* FIXME: This may not work if the float regs and control regs are discontinuous. */ for (regno = FP0_REGNUM, buf = core_reg_sect; (regno < NUM_REGS); buf += REGISTER_RAW_SIZE (regno), regno++) { supply_register (regno, buf); } } } #endif /* 0 */ int getpagesize () { return 4096; } gdb-4.13/gdb/hppa-pinsn.c 666 34562 1752 2421 5465305505 13520 0ustar fnfcygnus/* Disassembler for the PA-RISC. Somewhat derived from sparc-pinsn.c. Copyright 1989, 1990, 1992 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dis-asm.h" /* Print the instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO (info, stream); return print_insn_hppa (memaddr, &info); } gdb-4.13/gdb/hppa-tdep.c 666 34562 1752 166722 5606134010 13370 0ustar fnfcygnus/* Machine-dependent code which would otherwise be in inflow.c and core.c, for GDB, the GNU debugger. This code is for the HP PA-RISC cpu. Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "value.h" /* For argument passing to the inferior */ #include "symtab.h" #ifdef USG #include #endif #include #include #include #include #ifdef COFF_ENCAPSULATE #include "a.out.encap.h" #else #include #endif #ifndef N_SET_MAGIC #define N_SET_MAGIC(exec, val) ((exec).a_magic = (val)) #endif /*#include After a.out.h */ #include #include #include #include "wait.h" #include "gdbcore.h" #include "gdbcmd.h" #include "target.h" #include "symfile.h" #include "objfiles.h" static int restore_pc_queue PARAMS ((struct frame_saved_regs *fsr)); static int hppa_alignof PARAMS ((struct type *arg)); CORE_ADDR frame_saved_pc PARAMS ((FRAME frame)); static int prologue_inst_adjust_sp PARAMS ((unsigned long)); static int is_branch PARAMS ((unsigned long)); static int inst_saves_gr PARAMS ((unsigned long)); static int inst_saves_fr PARAMS ((unsigned long)); static int pc_in_interrupt_handler PARAMS ((CORE_ADDR)); static int pc_in_linker_stub PARAMS ((CORE_ADDR)); static int compare_unwind_entries PARAMS ((struct unwind_table_entry *, struct unwind_table_entry *)); static void read_unwind_info PARAMS ((struct objfile *)); static void internalize_unwinds PARAMS ((struct objfile *, struct unwind_table_entry *, asection *, unsigned int, unsigned int)); /* Routines to extract various sized constants out of hppa instructions. */ /* This assumes that no garbage lies outside of the lower bits of value. */ int sign_extend (val, bits) unsigned val, bits; { return (int)(val >> bits - 1 ? (-1 << bits) | val : val); } /* For many immediate values the sign bit is the low bit! */ int low_sign_extend (val, bits) unsigned val, bits; { return (int)((val & 0x1 ? (-1 << (bits - 1)) : 0) | val >> 1); } /* extract the immediate field from a ld{bhw}s instruction */ unsigned get_field (val, from, to) unsigned val, from, to; { val = val >> 31 - to; return val & ((1 << 32 - from) - 1); } unsigned set_field (val, from, to, new_val) unsigned *val, from, to; { unsigned mask = ~((1 << (to - from + 1)) << (31 - from)); return *val = *val & mask | (new_val << (31 - from)); } /* extract a 3-bit space register number from a be, ble, mtsp or mfsp */ extract_3 (word) unsigned word; { return GET_FIELD (word, 18, 18) << 2 | GET_FIELD (word, 16, 17); } extract_5_load (word) unsigned word; { return low_sign_extend (word >> 16 & MASK_5, 5); } /* extract the immediate field from a st{bhw}s instruction */ int extract_5_store (word) unsigned word; { return low_sign_extend (word & MASK_5, 5); } /* extract the immediate field from a break instruction */ unsigned extract_5r_store (word) unsigned word; { return (word & MASK_5); } /* extract the immediate field from a {sr}sm instruction */ unsigned extract_5R_store (word) unsigned word; { return (word >> 16 & MASK_5); } /* extract an 11 bit immediate field */ int extract_11 (word) unsigned word; { return low_sign_extend (word & MASK_11, 11); } /* extract a 14 bit immediate field */ int extract_14 (word) unsigned word; { return low_sign_extend (word & MASK_14, 14); } /* deposit a 14 bit constant in a word */ unsigned deposit_14 (opnd, word) int opnd; unsigned word; { unsigned sign = (opnd < 0 ? 1 : 0); return word | ((unsigned)opnd << 1 & MASK_14) | sign; } /* extract a 21 bit constant */ int extract_21 (word) unsigned word; { int val; word &= MASK_21; word <<= 11; val = GET_FIELD (word, 20, 20); val <<= 11; val |= GET_FIELD (word, 9, 19); val <<= 2; val |= GET_FIELD (word, 5, 6); val <<= 5; val |= GET_FIELD (word, 0, 4); val <<= 2; val |= GET_FIELD (word, 7, 8); return sign_extend (val, 21) << 11; } /* deposit a 21 bit constant in a word. Although 21 bit constants are usually the top 21 bits of a 32 bit constant, we assume that only the low 21 bits of opnd are relevant */ unsigned deposit_21 (opnd, word) unsigned opnd, word; { unsigned val = 0; val |= GET_FIELD (opnd, 11 + 14, 11 + 18); val <<= 2; val |= GET_FIELD (opnd, 11 + 12, 11 + 13); val <<= 2; val |= GET_FIELD (opnd, 11 + 19, 11 + 20); val <<= 11; val |= GET_FIELD (opnd, 11 + 1, 11 + 11); val <<= 1; val |= GET_FIELD (opnd, 11 + 0, 11 + 0); return word | val; } /* extract a 12 bit constant from branch instructions */ int extract_12 (word) unsigned word; { return sign_extend (GET_FIELD (word, 19, 28) | GET_FIELD (word, 29, 29) << 10 | (word & 0x1) << 11, 12) << 2; } /* extract a 17 bit constant from branch instructions, returning the 19 bit signed value. */ int extract_17 (word) unsigned word; { return sign_extend (GET_FIELD (word, 19, 28) | GET_FIELD (word, 29, 29) << 10 | GET_FIELD (word, 11, 15) << 11 | (word & 0x1) << 16, 17) << 2; } /* Compare the start address for two unwind entries returning 1 if the first address is larger than the second, -1 if the second is larger than the first, and zero if they are equal. */ static int compare_unwind_entries (a, b) struct unwind_table_entry *a; struct unwind_table_entry *b; { if (a->region_start > b->region_start) return 1; else if (a->region_start < b->region_start) return -1; else return 0; } static void internalize_unwinds (objfile, table, section, entries, size) struct objfile *objfile; struct unwind_table_entry *table; asection *section; unsigned int entries, size; { /* We will read the unwind entries into temporary memory, then fill in the actual unwind table. */ if (size > 0) { unsigned long tmp; unsigned i; char *buf = alloca (size); bfd_get_section_contents (objfile->obfd, section, buf, 0, size); /* Now internalize the information being careful to handle host/target endian issues. */ for (i = 0; i < entries; i++) { table[i].region_start = bfd_get_32 (objfile->obfd, (bfd_byte *)buf); buf += 4; table[i].region_end = bfd_get_32 (objfile->obfd, (bfd_byte *)buf); buf += 4; tmp = bfd_get_32 (objfile->obfd, (bfd_byte *)buf); buf += 4; table[i].Cannot_unwind = (tmp >> 31) & 0x1;; table[i].Millicode = (tmp >> 30) & 0x1; table[i].Millicode_save_sr0 = (tmp >> 29) & 0x1; table[i].Region_description = (tmp >> 27) & 0x3; table[i].reserved1 = (tmp >> 26) & 0x1; table[i].Entry_SR = (tmp >> 25) & 0x1; table[i].Entry_FR = (tmp >> 21) & 0xf; table[i].Entry_GR = (tmp >> 16) & 0x1f; table[i].Args_stored = (tmp >> 15) & 0x1; table[i].Variable_Frame = (tmp >> 14) & 0x1; table[i].Separate_Package_Body = (tmp >> 13) & 0x1; table[i].Frame_Extension_Millicode = (tmp >> 12 ) & 0x1; table[i].Stack_Overflow_Check = (tmp >> 11) & 0x1; table[i].Two_Instruction_SP_Increment = (tmp >> 10) & 0x1; table[i].Ada_Region = (tmp >> 9) & 0x1; table[i].reserved2 = (tmp >> 5) & 0xf; table[i].Save_SP = (tmp >> 4) & 0x1; table[i].Save_RP = (tmp >> 3) & 0x1; table[i].Save_MRP_in_frame = (tmp >> 2) & 0x1; table[i].extn_ptr_defined = (tmp >> 1) & 0x1; table[i].Cleanup_defined = tmp & 0x1; tmp = bfd_get_32 (objfile->obfd, (bfd_byte *)buf); buf += 4; table[i].MPE_XL_interrupt_marker = (tmp >> 31) & 0x1; table[i].HP_UX_interrupt_marker = (tmp >> 30) & 0x1; table[i].Large_frame = (tmp >> 29) & 0x1; table[i].reserved4 = (tmp >> 27) & 0x3; table[i].Total_frame_size = tmp & 0x7ffffff; } } } /* Read in the backtrace information stored in the `$UNWIND_START$' section of the object file. This info is used mainly by find_unwind_entry() to find out the stack frame size and frame pointer used by procedures. We put everything on the psymbol obstack in the objfile so that it automatically gets freed when the objfile is destroyed. */ static void read_unwind_info (objfile) struct objfile *objfile; { asection *unwind_sec, *elf_unwind_sec, *stub_unwind_sec; unsigned unwind_size, elf_unwind_size, stub_unwind_size, total_size; unsigned index, unwind_entries, elf_unwind_entries; unsigned stub_entries, total_entries; struct obj_unwind_info *ui; ui = obstack_alloc (&objfile->psymbol_obstack, sizeof (struct obj_unwind_info)); ui->table = NULL; ui->cache = NULL; ui->last = -1; /* Get hooks to all unwind sections. Note there is no linker-stub unwind section in ELF at the moment. */ unwind_sec = bfd_get_section_by_name (objfile->obfd, "$UNWIND_START$"); elf_unwind_sec = bfd_get_section_by_name (objfile->obfd, ".PARISC.unwind"); stub_unwind_sec = bfd_get_section_by_name (objfile->obfd, "$UNWIND_END$"); /* Get sizes and unwind counts for all sections. */ if (unwind_sec) { unwind_size = bfd_section_size (objfile->obfd, unwind_sec); unwind_entries = unwind_size / UNWIND_ENTRY_SIZE; } else { unwind_size = 0; unwind_entries = 0; } if (elf_unwind_sec) { elf_unwind_size = bfd_section_size (objfile->obfd, elf_unwind_sec); elf_unwind_entries = elf_unwind_size / UNWIND_ENTRY_SIZE; } else { elf_unwind_size = 0; elf_unwind_entries = 0; } if (stub_unwind_sec) { stub_unwind_size = bfd_section_size (objfile->obfd, stub_unwind_sec); stub_entries = stub_unwind_size / STUB_UNWIND_ENTRY_SIZE; } else { stub_unwind_size = 0; stub_entries = 0; } /* Compute total number of unwind entries and their total size. */ total_entries = unwind_entries + elf_unwind_entries + stub_entries; total_size = total_entries * sizeof (struct unwind_table_entry); /* Allocate memory for the unwind table. */ ui->table = obstack_alloc (&objfile->psymbol_obstack, total_size); ui->last = total_entries - 1; /* Internalize the standard unwind entries. */ index = 0; internalize_unwinds (objfile, &ui->table[index], unwind_sec, unwind_entries, unwind_size); index += unwind_entries; internalize_unwinds (objfile, &ui->table[index], elf_unwind_sec, elf_unwind_entries, elf_unwind_size); index += elf_unwind_entries; /* Now internalize the stub unwind entries. */ if (stub_unwind_size > 0) { unsigned int i; char *buf = alloca (stub_unwind_size); /* Read in the stub unwind entries. */ bfd_get_section_contents (objfile->obfd, stub_unwind_sec, buf, 0, stub_unwind_size); /* Now convert them into regular unwind entries. */ for (i = 0; i < stub_entries; i++, index++) { /* Clear out the next unwind entry. */ memset (&ui->table[index], 0, sizeof (struct unwind_table_entry)); /* Convert offset & size into region_start and region_end. Stuff away the stub type into "reserved" fields. */ ui->table[index].region_start = bfd_get_32 (objfile->obfd, (bfd_byte *) buf); buf += 4; ui->table[index].stub_type = bfd_get_8 (objfile->obfd, (bfd_byte *) buf); buf += 2; ui->table[index].region_end = ui->table[index].region_start + 4 * (bfd_get_16 (objfile->obfd, (bfd_byte *) buf) - 1); buf += 2; } } /* Unwind table needs to be kept sorted. */ qsort (ui->table, total_entries, sizeof (struct unwind_table_entry), compare_unwind_entries); /* Keep a pointer to the unwind information. */ objfile->obj_private = (PTR) ui; } /* Lookup the unwind (stack backtrace) info for the given PC. We search all of the objfiles seeking the unwind table entry for this PC. Each objfile contains a sorted list of struct unwind_table_entry. Since we do a binary search of the unwind tables, we depend upon them to be sorted. */ static struct unwind_table_entry * find_unwind_entry(pc) CORE_ADDR pc; { int first, middle, last; struct objfile *objfile; ALL_OBJFILES (objfile) { struct obj_unwind_info *ui; ui = OBJ_UNWIND_INFO (objfile); if (!ui) { read_unwind_info (objfile); ui = OBJ_UNWIND_INFO (objfile); } /* First, check the cache */ if (ui->cache && pc >= ui->cache->region_start && pc <= ui->cache->region_end) return ui->cache; /* Not in the cache, do a binary search */ first = 0; last = ui->last; while (first <= last) { middle = (first + last) / 2; if (pc >= ui->table[middle].region_start && pc <= ui->table[middle].region_end) { ui->cache = &ui->table[middle]; return &ui->table[middle]; } if (pc < ui->table[middle].region_start) last = middle - 1; else first = middle + 1; } } /* ALL_OBJFILES() */ return NULL; } /* Called to determine if PC is in an interrupt handler of some kind. */ static int pc_in_interrupt_handler (pc) CORE_ADDR pc; { struct unwind_table_entry *u; struct minimal_symbol *msym_us; u = find_unwind_entry (pc); if (!u) return 0; /* Oh joys. HPUX sets the interrupt bit for _sigreturn even though its frame isn't a pure interrupt frame. Deal with this. */ msym_us = lookup_minimal_symbol_by_pc (pc); return u->HP_UX_interrupt_marker && !IN_SIGTRAMP (pc, SYMBOL_NAME (msym_us)); } /* Called when no unwind descriptor was found for PC. Returns 1 if it appears that PC is in a linker stub. */ static int pc_in_linker_stub (pc) CORE_ADDR pc; { int found_magic_instruction = 0; int i; char buf[4]; /* If unable to read memory, assume pc is not in a linker stub. */ if (target_read_memory (pc, buf, 4) != 0) return 0; /* We are looking for something like ; $$dyncall jams RP into this special spot in the frame (RP') ; before calling the "call stub" ldw -18(sp),rp ldsid (rp),r1 ; Get space associated with RP into r1 mtsp r1,sp ; Move it into space register 0 be,n 0(sr0),rp) ; back to your regularly scheduled program */ /* Maximum known linker stub size is 4 instructions. Search forward from the given PC, then backward. */ for (i = 0; i < 4; i++) { /* If we hit something with an unwind, stop searching this direction. */ if (find_unwind_entry (pc + i * 4) != 0) break; /* Check for ldsid (rp),r1 which is the magic instruction for a return from a cross-space function call. */ if (read_memory_integer (pc + i * 4, 4) == 0x004010a1) { found_magic_instruction = 1; break; } /* Add code to handle long call/branch and argument relocation stubs here. */ } if (found_magic_instruction != 0) return 1; /* Now look backward. */ for (i = 0; i < 4; i++) { /* If we hit something with an unwind, stop searching this direction. */ if (find_unwind_entry (pc - i * 4) != 0) break; /* Check for ldsid (rp),r1 which is the magic instruction for a return from a cross-space function call. */ if (read_memory_integer (pc - i * 4, 4) == 0x004010a1) { found_magic_instruction = 1; break; } /* Add code to handle long call/branch and argument relocation stubs here. */ } return found_magic_instruction; } static int find_return_regnum(pc) CORE_ADDR pc; { struct unwind_table_entry *u; u = find_unwind_entry (pc); if (!u) return RP_REGNUM; if (u->Millicode) return 31; return RP_REGNUM; } /* Return size of frame, or -1 if we should use a frame pointer. */ int find_proc_framesize (pc) CORE_ADDR pc; { struct unwind_table_entry *u; struct minimal_symbol *msym_us; u = find_unwind_entry (pc); if (!u) { if (pc_in_linker_stub (pc)) /* Linker stubs have a zero size frame. */ return 0; else return -1; } msym_us = lookup_minimal_symbol_by_pc (pc); /* If Save_SP is set, and we're not in an interrupt or signal caller, then we have a frame pointer. Use it. */ if (u->Save_SP && !pc_in_interrupt_handler (pc) && !IN_SIGTRAMP (pc, SYMBOL_NAME (msym_us))) return -1; return u->Total_frame_size << 3; } /* Return offset from sp at which rp is saved, or 0 if not saved. */ static int rp_saved PARAMS ((CORE_ADDR)); static int rp_saved (pc) CORE_ADDR pc; { struct unwind_table_entry *u; u = find_unwind_entry (pc); if (!u) { if (pc_in_linker_stub (pc)) /* This is the so-called RP'. */ return -24; else return 0; } if (u->Save_RP) return -20; else if (u->stub_type != 0) { switch (u->stub_type) { case EXPORT: return -24; case PARAMETER_RELOCATION: return -8; default: return 0; } } else return 0; } int frameless_function_invocation (frame) FRAME frame; { struct unwind_table_entry *u; u = find_unwind_entry (frame->pc); if (u == 0) return 0; return (u->Total_frame_size == 0 && u->stub_type == 0); } CORE_ADDR saved_pc_after_call (frame) FRAME frame; { int ret_regnum; ret_regnum = find_return_regnum (get_frame_pc (frame)); return read_register (ret_regnum) & ~0x3; } CORE_ADDR frame_saved_pc (frame) FRAME frame; { CORE_ADDR pc = get_frame_pc (frame); struct unwind_table_entry *u; /* BSD, HPUX & OSF1 all lay out the hardware state in the same manner at the base of the frame in an interrupt handler. Registers within are saved in the exact same order as GDB numbers registers. How convienent. */ if (pc_in_interrupt_handler (pc)) return read_memory_integer (frame->frame + PC_REGNUM * 4, 4) & ~0x3; /* Deal with signal handler caller frames too. */ if (frame->signal_handler_caller) { CORE_ADDR rp; FRAME_SAVED_PC_IN_SIGTRAMP (frame, &rp); return rp; } restart: if (frameless_function_invocation (frame)) { int ret_regnum; ret_regnum = find_return_regnum (pc); /* If the next frame is an interrupt frame or a signal handler caller, then we need to look in the saved register area to get the return pointer (the values in the registers may not correspond to anything useful). */ if (frame->next && (frame->next->signal_handler_caller || pc_in_interrupt_handler (frame->next->pc))) { struct frame_info *fi; struct frame_saved_regs saved_regs; fi = get_frame_info (frame->next); get_frame_saved_regs (fi, &saved_regs); if (read_memory_integer (saved_regs.regs[FLAGS_REGNUM] & 0x2, 4)) pc = read_memory_integer (saved_regs.regs[31], 4) & ~0x3; else pc = read_memory_integer (saved_regs.regs[RP_REGNUM], 4) & ~0x3; } else pc = read_register (ret_regnum) & ~0x3; } else { int rp_offset = rp_saved (pc); /* Similar to code in frameless function case. If the next frame is a signal or interrupt handler, then dig the right information out of the saved register info. */ if (rp_offset == 0 && frame->next && (frame->next->signal_handler_caller || pc_in_interrupt_handler (frame->next->pc))) { struct frame_info *fi; struct frame_saved_regs saved_regs; fi = get_frame_info (frame->next); get_frame_saved_regs (fi, &saved_regs); if (read_memory_integer (saved_regs.regs[FLAGS_REGNUM] & 0x2, 4)) pc = read_memory_integer (saved_regs.regs[31], 4) & ~0x3; else pc = read_memory_integer (saved_regs.regs[RP_REGNUM], 4) & ~0x3; } else if (rp_offset == 0) pc = read_register (RP_REGNUM) & ~0x3; else pc = read_memory_integer (frame->frame + rp_offset, 4) & ~0x3; } /* If PC is inside a linker stub, then dig out the address the stub will return to. */ u = find_unwind_entry (pc); if (u && u->stub_type != 0) goto restart; return pc; } /* We need to correct the PC and the FP for the outermost frame when we are in a system call. */ void init_extra_frame_info (fromleaf, frame) int fromleaf; struct frame_info *frame; { int flags; int framesize; if (frame->next && !fromleaf) return; /* If the next frame represents a frameless function invocation then we have to do some adjustments that are normally done by FRAME_CHAIN. (FRAME_CHAIN is not called in this case.) */ if (fromleaf) { /* Find the framesize of *this* frame without peeking at the PC in the current frame structure (it isn't set yet). */ framesize = find_proc_framesize (FRAME_SAVED_PC (get_next_frame (frame))); /* Now adjust our base frame accordingly. If we have a frame pointer use it, else subtract the size of this frame from the current frame. (we always want frame->frame to point at the lowest address in the frame). */ if (framesize == -1) frame->frame = read_register (FP_REGNUM); else frame->frame -= framesize; return; } flags = read_register (FLAGS_REGNUM); if (flags & 2) /* In system call? */ frame->pc = read_register (31) & ~0x3; /* The outermost frame is always derived from PC-framesize One might think frameless innermost frames should have a frame->frame that is the same as the parent's frame->frame. That is wrong; frame->frame in that case should be the *high* address of the parent's frame. It's complicated as hell to explain, but the parent *always* creates some stack space for the child. So the child actually does have a frame of some sorts, and its base is the high address in its parent's frame. */ framesize = find_proc_framesize(frame->pc); if (framesize == -1) frame->frame = read_register (FP_REGNUM); else frame->frame = read_register (SP_REGNUM) - framesize; } /* Given a GDB frame, determine the address of the calling function's frame. This will be used to create a new GDB frame struct, and then INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame. This may involve searching through prologues for several functions at boundaries where GCC calls HP C code, or where code which has a frame pointer calls code without a frame pointer. */ FRAME_ADDR frame_chain (frame) struct frame_info *frame; { int my_framesize, caller_framesize; struct unwind_table_entry *u; CORE_ADDR frame_base; /* Handle HPUX, BSD, and OSF1 style interrupt frames first. These are easy; at *sp we have a full save state strucutre which we can pull the old stack pointer from. Also see frame_saved_pc for code to dig a saved PC out of the save state structure. */ if (pc_in_interrupt_handler (frame->pc)) frame_base = read_memory_integer (frame->frame + SP_REGNUM * 4, 4); else if (frame->signal_handler_caller) { FRAME_BASE_BEFORE_SIGTRAMP (frame, &frame_base); } else frame_base = frame->frame; /* Get frame sizes for the current frame and the frame of the caller. */ my_framesize = find_proc_framesize (frame->pc); caller_framesize = find_proc_framesize (FRAME_SAVED_PC(frame)); /* If caller does not have a frame pointer, then its frame can be found at current_frame - caller_framesize. */ if (caller_framesize != -1) return frame_base - caller_framesize; /* Both caller and callee have frame pointers and are GCC compiled (SAVE_SP bit in unwind descriptor is on for both functions. The previous frame pointer is found at the top of the current frame. */ if (caller_framesize == -1 && my_framesize == -1) return read_memory_integer (frame_base, 4); /* Caller has a frame pointer, but callee does not. This is a little more difficult as GCC and HP C lay out locals and callee register save areas very differently. The previous frame pointer could be in a register, or in one of several areas on the stack. Walk from the current frame to the innermost frame examining unwind descriptors to determine if %r3 ever gets saved into the stack. If so return whatever value got saved into the stack. If it was never saved in the stack, then the value in %r3 is still valid, so use it. We use information from unwind descriptors to determine if %r3 is saved into the stack (Entry_GR field has this information). */ while (frame) { u = find_unwind_entry (frame->pc); if (!u) { /* We could find this information by examining prologues. I don't think anyone has actually written any tools (not even "strip") which leave them out of an executable, so maybe this is a moot point. */ warning ("Unable to find unwind for PC 0x%x -- Help!", frame->pc); return 0; } /* Entry_GR specifies the number of callee-saved general registers saved in the stack. It starts at %r3, so %r3 would be 1. */ if (u->Entry_GR >= 1 || u->Save_SP || frame->signal_handler_caller || pc_in_interrupt_handler (frame->pc)) break; else frame = frame->next; } if (frame) { /* We may have walked down the chain into a function with a frame pointer. */ if (u->Save_SP && !frame->signal_handler_caller && !pc_in_interrupt_handler (frame->pc)) return read_memory_integer (frame->frame, 4); /* %r3 was saved somewhere in the stack. Dig it out. */ else { struct frame_info *fi; struct frame_saved_regs saved_regs; fi = get_frame_info (frame); get_frame_saved_regs (fi, &saved_regs); return read_memory_integer (saved_regs.regs[FP_REGNUM], 4); } } else { /* The value in %r3 was never saved into the stack (thus %r3 still holds the value of the previous frame pointer). */ return read_register (FP_REGNUM); } } /* To see if a frame chain is valid, see if the caller looks like it was compiled with gcc. */ int frame_chain_valid (chain, thisframe) FRAME_ADDR chain; FRAME thisframe; { struct minimal_symbol *msym_us; struct minimal_symbol *msym_start; struct unwind_table_entry *u, *next_u = NULL; FRAME next; if (!chain) return 0; u = find_unwind_entry (thisframe->pc); if (u == NULL) return 1; /* We can't just check that the same of msym_us is "_start", because someone idiotically decided that they were going to make a Ltext_end symbol with the same address. This Ltext_end symbol is totally indistinguishable (as nearly as I can tell) from the symbol for a function which is (legitimately, since it is in the user's namespace) named Ltext_end, so we can't just ignore it. */ msym_us = lookup_minimal_symbol_by_pc (FRAME_SAVED_PC (thisframe)); msym_start = lookup_minimal_symbol ("_start", NULL); if (msym_us && msym_start && SYMBOL_VALUE_ADDRESS (msym_us) == SYMBOL_VALUE_ADDRESS (msym_start)) return 0; next = get_next_frame (thisframe); if (next) next_u = find_unwind_entry (next->pc); /* If this frame does not save SP, has no stack, isn't a stub, and doesn't "call" an interrupt routine or signal handler caller, then its not valid. */ if (u->Save_SP || u->Total_frame_size || u->stub_type != 0 || (thisframe->next && thisframe->next->signal_handler_caller) || (next_u && next_u->HP_UX_interrupt_marker)) return 1; if (pc_in_linker_stub (thisframe->pc)) return 1; return 0; } /* * These functions deal with saving and restoring register state * around a function call in the inferior. They keep the stack * double-word aligned; eventually, on an hp700, the stack will have * to be aligned to a 64-byte boundary. */ int push_dummy_frame () { register CORE_ADDR sp; register int regnum; int int_buffer; double freg_buffer; /* Space for "arguments"; the RP goes in here. */ sp = read_register (SP_REGNUM) + 48; int_buffer = read_register (RP_REGNUM) | 0x3; write_memory (sp - 20, (char *)&int_buffer, 4); int_buffer = read_register (FP_REGNUM); write_memory (sp, (char *)&int_buffer, 4); write_register (FP_REGNUM, sp); sp += 8; for (regnum = 1; regnum < 32; regnum++) if (regnum != RP_REGNUM && regnum != FP_REGNUM) sp = push_word (sp, read_register (regnum)); sp += 4; for (regnum = FP0_REGNUM; regnum < NUM_REGS; regnum++) { read_register_bytes (REGISTER_BYTE (regnum), (char *)&freg_buffer, 8); sp = push_bytes (sp, (char *)&freg_buffer, 8); } sp = push_word (sp, read_register (IPSW_REGNUM)); sp = push_word (sp, read_register (SAR_REGNUM)); sp = push_word (sp, read_register (PCOQ_HEAD_REGNUM)); sp = push_word (sp, read_register (PCSQ_HEAD_REGNUM)); sp = push_word (sp, read_register (PCOQ_TAIL_REGNUM)); sp = push_word (sp, read_register (PCSQ_TAIL_REGNUM)); write_register (SP_REGNUM, sp); } find_dummy_frame_regs (frame, frame_saved_regs) struct frame_info *frame; struct frame_saved_regs *frame_saved_regs; { CORE_ADDR fp = frame->frame; int i; frame_saved_regs->regs[RP_REGNUM] = fp - 20 & ~0x3; frame_saved_regs->regs[FP_REGNUM] = fp; frame_saved_regs->regs[1] = fp + 8; for (fp += 12, i = 3; i < 32; i++) { if (i != FP_REGNUM) { frame_saved_regs->regs[i] = fp; fp += 4; } } fp += 4; for (i = FP0_REGNUM; i < NUM_REGS; i++, fp += 8) frame_saved_regs->regs[i] = fp; frame_saved_regs->regs[IPSW_REGNUM] = fp; frame_saved_regs->regs[SAR_REGNUM] = fp + 4; frame_saved_regs->regs[PCOQ_HEAD_REGNUM] = fp + 8; frame_saved_regs->regs[PCSQ_HEAD_REGNUM] = fp + 12; frame_saved_regs->regs[PCOQ_TAIL_REGNUM] = fp + 16; frame_saved_regs->regs[PCSQ_TAIL_REGNUM] = fp + 20; } int hppa_pop_frame () { register FRAME frame = get_current_frame (); register CORE_ADDR fp; register int regnum; struct frame_saved_regs fsr; struct frame_info *fi; double freg_buffer; fi = get_frame_info (frame); fp = fi->frame; get_frame_saved_regs (fi, &fsr); #ifndef NO_PC_SPACE_QUEUE_RESTORE if (fsr.regs[IPSW_REGNUM]) /* Restoring a call dummy frame */ restore_pc_queue (&fsr); #endif for (regnum = 31; regnum > 0; regnum--) if (fsr.regs[regnum]) write_register (regnum, read_memory_integer (fsr.regs[regnum], 4)); for (regnum = NUM_REGS - 1; regnum >= FP0_REGNUM ; regnum--) if (fsr.regs[regnum]) { read_memory (fsr.regs[regnum], (char *)&freg_buffer, 8); write_register_bytes (REGISTER_BYTE (regnum), (char *)&freg_buffer, 8); } if (fsr.regs[IPSW_REGNUM]) write_register (IPSW_REGNUM, read_memory_integer (fsr.regs[IPSW_REGNUM], 4)); if (fsr.regs[SAR_REGNUM]) write_register (SAR_REGNUM, read_memory_integer (fsr.regs[SAR_REGNUM], 4)); /* If the PC was explicitly saved, then just restore it. */ if (fsr.regs[PCOQ_TAIL_REGNUM]) write_register (PCOQ_TAIL_REGNUM, read_memory_integer (fsr.regs[PCOQ_TAIL_REGNUM], 4)); /* Else use the value in %rp to set the new PC. */ else target_write_pc (read_register (RP_REGNUM), 0); write_register (FP_REGNUM, read_memory_integer (fp, 4)); if (fsr.regs[IPSW_REGNUM]) /* call dummy */ write_register (SP_REGNUM, fp - 48); else write_register (SP_REGNUM, fp); flush_cached_frames (); set_current_frame (create_new_frame (read_register (FP_REGNUM), read_pc ())); } /* * After returning to a dummy on the stack, restore the instruction * queue space registers. */ static int restore_pc_queue (fsr) struct frame_saved_regs *fsr; { CORE_ADDR pc = read_pc (); CORE_ADDR new_pc = read_memory_integer (fsr->regs[PCOQ_HEAD_REGNUM], 4); int pid; struct target_waitstatus w; int insn_count; /* Advance past break instruction in the call dummy. */ write_register (PCOQ_HEAD_REGNUM, pc + 4); write_register (PCOQ_TAIL_REGNUM, pc + 8); /* * HPUX doesn't let us set the space registers or the space * registers of the PC queue through ptrace. Boo, hiss. * Conveniently, the call dummy has this sequence of instructions * after the break: * mtsp r21, sr0 * ble,n 0(sr0, r22) * * So, load up the registers and single step until we are in the * right place. */ write_register (21, read_memory_integer (fsr->regs[PCSQ_HEAD_REGNUM], 4)); write_register (22, new_pc); for (insn_count = 0; insn_count < 3; insn_count++) { /* FIXME: What if the inferior gets a signal right now? Want to merge this into wait_for_inferior (as a special kind of watchpoint? By setting a breakpoint at the end? Is there any other choice? Is there *any* way to do this stuff with ptrace() or some equivalent?). */ resume (1, 0); target_wait (inferior_pid, &w); if (w.kind == TARGET_WAITKIND_SIGNALLED) { stop_signal = w.value.sig; terminal_ours_for_output (); printf_unfiltered ("\nProgram terminated with signal %s, %s.\n", target_signal_to_name (stop_signal), target_signal_to_string (stop_signal)); gdb_flush (gdb_stdout); return 0; } } target_terminal_ours (); (current_target->to_fetch_registers) (-1); return 1; } CORE_ADDR hppa_push_arguments (nargs, args, sp, struct_return, struct_addr) int nargs; value_ptr *args; CORE_ADDR sp; int struct_return; CORE_ADDR struct_addr; { /* array of arguments' offsets */ int *offset = (int *)alloca(nargs * sizeof (int)); int cum = 0; int i, alignment; for (i = 0; i < nargs; i++) { /* Coerce chars to int & float to double if necessary */ args[i] = value_arg_coerce (args[i]); cum += TYPE_LENGTH (VALUE_TYPE (args[i])); /* value must go at proper alignment. Assume alignment is a power of two.*/ alignment = hppa_alignof (VALUE_TYPE (args[i])); if (cum % alignment) cum = (cum + alignment) & -alignment; offset[i] = -cum; } sp += max ((cum + 7) & -8, 16); for (i = 0; i < nargs; i++) write_memory (sp + offset[i], VALUE_CONTENTS (args[i]), TYPE_LENGTH (VALUE_TYPE (args[i]))); if (struct_return) write_register (28, struct_addr); return sp + 32; } /* * Insert the specified number of args and function address * into a call sequence of the above form stored at DUMMYNAME. * * On the hppa we need to call the stack dummy through $$dyncall. * Therefore our version of FIX_CALL_DUMMY takes an extra argument, * real_pc, which is the location where gdb should start up the * inferior to do the function call. */ CORE_ADDR hppa_fix_call_dummy (dummy, pc, fun, nargs, args, type, gcc_p) char *dummy; CORE_ADDR pc; CORE_ADDR fun; int nargs; value_ptr *args; struct type *type; int gcc_p; { CORE_ADDR dyncall_addr, sr4export_addr; struct minimal_symbol *msymbol; int flags = read_register (FLAGS_REGNUM); struct unwind_table_entry *u; msymbol = lookup_minimal_symbol ("$$dyncall", (struct objfile *) NULL); if (msymbol == NULL) error ("Can't find an address for $$dyncall trampoline"); dyncall_addr = SYMBOL_VALUE_ADDRESS (msymbol); /* FUN could be a procedure label, in which case we have to get its real address and the value of its GOT/DP. */ if (fun & 0x2) { /* Get the GOT/DP value for the target function. It's at *(fun+4). Note the call dummy is *NOT* allowed to trash %r19 before calling the target function. */ write_register (19, read_memory_integer ((fun & ~0x3) + 4, 4)); /* Now get the real address for the function we are calling, it's at *fun. */ fun = (CORE_ADDR) read_memory_integer (fun & ~0x3, 4); } /* If we are calling an import stub (eg calling into a dynamic library) then have sr4export call the magic __d_plt_call routine which is linked in from end.o. (You can't use _sr4export to call the import stub as the value in sp-24 will get fried and you end up returning to the wrong location. You can't call the import stub directly as the code to bind the PLT entry to a function can't return to a stack address.) */ u = find_unwind_entry (fun); if (u && u->stub_type == IMPORT) { CORE_ADDR new_fun; msymbol = lookup_minimal_symbol ("__d_plt_call", (struct objfile *) NULL); if (msymbol == NULL) error ("Can't find an address for __d_plt_call trampoline"); /* This is where sr4export will jump to. */ new_fun = SYMBOL_VALUE_ADDRESS (msymbol); /* We have to store the address of the stub in __shlib_funcptr. */ msymbol = lookup_minimal_symbol ("__shlib_funcptr", (struct objfile *)NULL); if (msymbol == NULL) error ("Can't find an address for __shlib_funcptr"); target_write_memory (SYMBOL_VALUE_ADDRESS (msymbol), (char *)&fun, 4); fun = new_fun; } /* We still need sr4export's address too. */ msymbol = lookup_minimal_symbol ("_sr4export", (struct objfile *) NULL); if (msymbol == NULL) error ("Can't find an address for _sr4export trampoline"); sr4export_addr = SYMBOL_VALUE_ADDRESS (msymbol); store_unsigned_integer (&dummy[9*REGISTER_SIZE], REGISTER_SIZE, deposit_21 (fun >> 11, extract_unsigned_integer (&dummy[9*REGISTER_SIZE], REGISTER_SIZE))); store_unsigned_integer (&dummy[10*REGISTER_SIZE], REGISTER_SIZE, deposit_14 (fun & MASK_11, extract_unsigned_integer (&dummy[10*REGISTER_SIZE], REGISTER_SIZE))); store_unsigned_integer (&dummy[12*REGISTER_SIZE], REGISTER_SIZE, deposit_21 (sr4export_addr >> 11, extract_unsigned_integer (&dummy[12*REGISTER_SIZE], REGISTER_SIZE))); store_unsigned_integer (&dummy[13*REGISTER_SIZE], REGISTER_SIZE, deposit_14 (sr4export_addr & MASK_11, extract_unsigned_integer (&dummy[13*REGISTER_SIZE], REGISTER_SIZE))); write_register (22, pc); /* If we are in a syscall, then we should call the stack dummy directly. $$dyncall is not needed as the kernel sets up the space id registers properly based on the value in %r31. In fact calling $$dyncall will not work because the value in %r22 will be clobbered on the syscall exit path. */ if (flags & 2) return pc; else return dyncall_addr; } /* Get the PC from %r31 if currently in a syscall. Also mask out privilege bits. */ CORE_ADDR target_read_pc (pid) int pid; { int flags = read_register (FLAGS_REGNUM); if (flags & 2) return read_register (31) & ~0x3; return read_register (PC_REGNUM) & ~0x3; } /* Write out the PC. If currently in a syscall, then also write the new PC value into %r31. */ void target_write_pc (v, pid) CORE_ADDR v; int pid; { int flags = read_register (FLAGS_REGNUM); /* If in a syscall, then set %r31. Also make sure to get the privilege bits set correctly. */ if (flags & 2) write_register (31, (long) (v | 0x3)); write_register (PC_REGNUM, (long) v); write_register (NPC_REGNUM, (long) v + 4); } /* return the alignment of a type in bytes. Structures have the maximum alignment required by their fields. */ static int hppa_alignof (arg) struct type *arg; { int max_align, align, i; switch (TYPE_CODE (arg)) { case TYPE_CODE_PTR: case TYPE_CODE_INT: case TYPE_CODE_FLT: return TYPE_LENGTH (arg); case TYPE_CODE_ARRAY: return hppa_alignof (TYPE_FIELD_TYPE (arg, 0)); case TYPE_CODE_STRUCT: case TYPE_CODE_UNION: max_align = 2; for (i = 0; i < TYPE_NFIELDS (arg); i++) { /* Bit fields have no real alignment. */ if (!TYPE_FIELD_BITPOS (arg, i)) { align = hppa_alignof (TYPE_FIELD_TYPE (arg, i)); max_align = max (max_align, align); } } return max_align; default: return 4; } } /* Print the register regnum, or all registers if regnum is -1 */ pa_do_registers_info (regnum, fpregs) int regnum; int fpregs; { char raw_regs [REGISTER_BYTES]; int i; for (i = 0; i < NUM_REGS; i++) read_relative_register_raw_bytes (i, raw_regs + REGISTER_BYTE (i)); if (regnum == -1) pa_print_registers (raw_regs, regnum, fpregs); else if (regnum < FP0_REGNUM) printf_unfiltered ("%s %x\n", reg_names[regnum], *(long *)(raw_regs + REGISTER_BYTE (regnum))); else pa_print_fp_reg (regnum); } pa_print_registers (raw_regs, regnum, fpregs) char *raw_regs; int regnum; int fpregs; { int i; for (i = 0; i < 18; i++) printf_unfiltered ("%8.8s: %8x %8.8s: %8x %8.8s: %8x %8.8s: %8x\n", reg_names[i], *(int *)(raw_regs + REGISTER_BYTE (i)), reg_names[i + 18], *(int *)(raw_regs + REGISTER_BYTE (i + 18)), reg_names[i + 36], *(int *)(raw_regs + REGISTER_BYTE (i + 36)), reg_names[i + 54], *(int *)(raw_regs + REGISTER_BYTE (i + 54))); if (fpregs) for (i = 72; i < NUM_REGS; i++) pa_print_fp_reg (i); } pa_print_fp_reg (i) int i; { unsigned char raw_buffer[MAX_REGISTER_RAW_SIZE]; unsigned char virtual_buffer[MAX_REGISTER_VIRTUAL_SIZE]; /* Get 32bits of data. */ read_relative_register_raw_bytes (i, raw_buffer); /* Put it in the buffer. No conversions are ever necessary. */ memcpy (virtual_buffer, raw_buffer, REGISTER_RAW_SIZE (i)); fputs_filtered (reg_names[i], gdb_stdout); print_spaces_filtered (8 - strlen (reg_names[i]), gdb_stdout); fputs_filtered ("(single precision) ", gdb_stdout); val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, gdb_stdout, 0, 1, 0, Val_pretty_default); printf_filtered ("\n"); /* If "i" is even, then this register can also be a double-precision FP register. Dump it out as such. */ if ((i % 2) == 0) { /* Get the data in raw format for the 2nd half. */ read_relative_register_raw_bytes (i + 1, raw_buffer); /* Copy it into the appropriate part of the virtual buffer. */ memcpy (virtual_buffer + REGISTER_RAW_SIZE (i), raw_buffer, REGISTER_RAW_SIZE (i)); /* Dump it as a double. */ fputs_filtered (reg_names[i], gdb_stdout); print_spaces_filtered (8 - strlen (reg_names[i]), gdb_stdout); fputs_filtered ("(double precision) ", gdb_stdout); val_print (builtin_type_double, virtual_buffer, 0, gdb_stdout, 0, 1, 0, Val_pretty_default); printf_filtered ("\n"); } } /* Figure out if PC is in a trampoline, and if so find out where the trampoline will jump to. If not in a trampoline, return zero. Simple code examination probably is not a good idea since the code sequences in trampolines can also appear in user code. We use unwinds and information from the minimal symbol table to determine when we're in a trampoline. This won't work for ELF (yet) since it doesn't create stub unwind entries. Whether or not ELF will create stub unwinds or normal unwinds for linker stubs is still being debated. This should handle simple calls through dyncall or sr4export, long calls, argument relocation stubs, and dyncall/sr4export calling an argument relocation stub. It even handles some stubs used in dynamic executables. */ CORE_ADDR skip_trampoline_code (pc, name) CORE_ADDR pc; char *name; { long orig_pc = pc; long prev_inst, curr_inst, loc; static CORE_ADDR dyncall = 0; static CORE_ADDR sr4export = 0; struct minimal_symbol *msym; struct unwind_table_entry *u; /* FIXME XXX - dyncall and sr4export must be initialized whenever we get a new exec file */ if (!dyncall) { msym = lookup_minimal_symbol ("$$dyncall", NULL); if (msym) dyncall = SYMBOL_VALUE_ADDRESS (msym); else dyncall = -1; } if (!sr4export) { msym = lookup_minimal_symbol ("_sr4export", NULL); if (msym) sr4export = SYMBOL_VALUE_ADDRESS (msym); else sr4export = -1; } /* Addresses passed to dyncall may *NOT* be the actual address of the funtion. So we may have to do something special. */ if (pc == dyncall) { pc = (CORE_ADDR) read_register (22); /* If bit 30 (counting from the left) is on, then pc is the address of the PLT entry for this function, not the address of the function itself. Bit 31 has meaning too, but only for MPE. */ if (pc & 0x2) pc = (CORE_ADDR) read_memory_integer (pc & ~0x3, 4); } else if (pc == sr4export) pc = (CORE_ADDR) (read_register (22)); /* Get the unwind descriptor corresponding to PC, return zero if no unwind was found. */ u = find_unwind_entry (pc); if (!u) return 0; /* If this isn't a linker stub, then return now. */ if (u->stub_type == 0) return orig_pc == pc ? 0 : pc & ~0x3; /* It's a stub. Search for a branch and figure out where it goes. Note we have to handle multi insn branch sequences like ldil;ble. Most (all?) other branches can be determined by examining the contents of certain registers and the stack. */ loc = pc; curr_inst = 0; prev_inst = 0; while (1) { /* Make sure we haven't walked outside the range of this stub. */ if (u != find_unwind_entry (loc)) { warning ("Unable to find branch in linker stub"); return orig_pc == pc ? 0 : pc & ~0x3; } prev_inst = curr_inst; curr_inst = read_memory_integer (loc, 4); /* Does it look like a branch external using %r1? Then it's the branch from the stub to the actual function. */ if ((curr_inst & 0xffe0e000) == 0xe0202000) { /* Yup. See if the previous instruction loaded a value into %r1. If so compute and return the jump address. */ if ((prev_inst & 0xffe0e000) == 0x20202000) return (extract_21 (prev_inst) + extract_17 (curr_inst)) & ~0x3; else { warning ("Unable to find ldil X,%%r1 before ble Y(%%sr4,%%r1)."); return orig_pc == pc ? 0 : pc & ~0x3; } } /* Does it look like bl X,%rp or bl X,%r0? Another way to do a branch from the stub to the actual function. */ else if ((curr_inst & 0xffe0e000) == 0xe8400000 || (curr_inst & 0xffe0e000) == 0xe8000000) return (loc + extract_17 (curr_inst) + 8) & ~0x3; /* Does it look like bv (rp)? Note this depends on the current stack pointer being the same as the stack pointer in the stub itself! This is a branch on from the stub back to the original caller. */ else if ((curr_inst & 0xffe0e000) == 0xe840c000) { /* Yup. See if the previous instruction loaded rp from sp - 8. */ if (prev_inst == 0x4bc23ff1) return (read_memory_integer (read_register (SP_REGNUM) - 8, 4)) & ~0x3; else { warning ("Unable to find restore of %%rp before bv (%%rp)."); return orig_pc == pc ? 0 : pc & ~0x3; } } /* What about be,n 0(sr0,%rp)? It's just another way we return to the original caller from the stub. Used in dynamic executables. */ else if (curr_inst == 0xe0400002) { /* The value we jump to is sitting in sp - 24. But that's loaded several instructions before the be instruction. I guess we could check for the previous instruction being mtsp %r1,%sr0 if we want to do sanity checking. */ return (read_memory_integer (read_register (SP_REGNUM) - 24, 4)) & ~0x3; } /* Haven't found the branch yet, but we're still in the stub. Keep looking. */ loc += 4; } } /* For the given instruction (INST), return any adjustment it makes to the stack pointer or zero for no adjustment. This only handles instructions commonly found in prologues. */ static int prologue_inst_adjust_sp (inst) unsigned long inst; { /* This must persist across calls. */ static int save_high21; /* The most common way to perform a stack adjustment ldo X(sp),sp */ if ((inst & 0xffffc000) == 0x37de0000) return extract_14 (inst); /* stwm X,D(sp) */ if ((inst & 0xffe00000) == 0x6fc00000) return extract_14 (inst); /* addil high21,%r1; ldo low11,(%r1),%r30) save high bits in save_high21 for later use. */ if ((inst & 0xffe00000) == 0x28200000) { save_high21 = extract_21 (inst); return 0; } if ((inst & 0xffff0000) == 0x343e0000) return save_high21 + extract_14 (inst); /* fstws as used by the HP compilers. */ if ((inst & 0xffffffe0) == 0x2fd01220) return extract_5_load (inst); /* No adjustment. */ return 0; } /* Return nonzero if INST is a branch of some kind, else return zero. */ static int is_branch (inst) unsigned long inst; { switch (inst >> 26) { case 0x20: case 0x21: case 0x22: case 0x23: case 0x28: case 0x29: case 0x2a: case 0x2b: case 0x30: case 0x31: case 0x32: case 0x33: case 0x38: case 0x39: case 0x3a: return 1; default: return 0; } } /* Return the register number for a GR which is saved by INST or zero it INST does not save a GR. Note we only care about full 32bit register stores (that's the only kind of stores the prologue will use). */ static int inst_saves_gr (inst) unsigned long inst; { /* Does it look like a stw? */ if ((inst >> 26) == 0x1a) return extract_5R_store (inst); /* Does it look like a stwm? */ if ((inst >> 26) == 0x1b) return extract_5R_store (inst); return 0; } /* Return the register number for a FR which is saved by INST or zero it INST does not save a FR. Note we only care about full 64bit register stores (that's the only kind of stores the prologue will use). */ static int inst_saves_fr (inst) unsigned long inst; { if ((inst & 0xfc1fffe0) == 0x2c101220) return extract_5r_store (inst); return 0; } /* Advance PC across any function entry prologue instructions to reach some "real" code. Use information in the unwind table to determine what exactly should be in the prologue. */ CORE_ADDR skip_prologue (pc) CORE_ADDR pc; { char buf[4]; unsigned long inst, stack_remaining, save_gr, save_fr, save_rp, save_sp; int status, i; struct unwind_table_entry *u; u = find_unwind_entry (pc); if (!u) return pc; /* If we are not at the beginning of a function, then return now. */ if ((pc & ~0x3) != u->region_start) return pc; /* This is how much of a frame adjustment we need to account for. */ stack_remaining = u->Total_frame_size << 3; /* Magic register saves we want to know about. */ save_rp = u->Save_RP; save_sp = u->Save_SP; /* Turn the Entry_GR field into a bitmask. */ save_gr = 0; for (i = 3; i < u->Entry_GR + 3; i++) { /* Frame pointer gets saved into a special location. */ if (u->Save_SP && i == FP_REGNUM) continue; save_gr |= (1 << i); } /* Turn the Entry_FR field into a bitmask too. */ save_fr = 0; for (i = 12; i < u->Entry_FR + 12; i++) save_fr |= (1 << i); /* Loop until we find everything of interest or hit a branch. For unoptimized GCC code and for any HP CC code this will never ever examine any user instructions. For optimzied GCC code we're faced with problems. GCC will schedule its prologue and make prologue instructions available for delay slot filling. The end result is user code gets mixed in with the prologue and a prologue instruction may be in the delay slot of the first branch or call. Some unexpected things are expected with debugging optimized code, so we allow this routine to walk past user instructions in optimized GCC code. */ while (save_gr || save_fr || save_rp || save_sp || stack_remaining > 0) { status = target_read_memory (pc, buf, 4); inst = extract_unsigned_integer (buf, 4); /* Yow! */ if (status != 0) return pc; /* Note the interesting effects of this instruction. */ stack_remaining -= prologue_inst_adjust_sp (inst); /* There is only one instruction used for saving RP into the stack. */ if (inst == 0x6bc23fd9) save_rp = 0; /* This is the only way we save SP into the stack. At this time the HP compilers never bother to save SP into the stack. */ if ((inst & 0xffffc000) == 0x6fc10000) save_sp = 0; /* Account for general and floating-point register saves. */ save_gr &= ~(1 << inst_saves_gr (inst)); save_fr &= ~(1 << inst_saves_fr (inst)); /* Quit if we hit any kind of branch. This can happen if a prologue instruction is in the delay slot of the first call/branch. */ if (is_branch (inst)) break; /* Bump the PC. */ pc += 4; } return pc; } /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ void hppa_frame_find_saved_regs (frame_info, frame_saved_regs) struct frame_info *frame_info; struct frame_saved_regs *frame_saved_regs; { CORE_ADDR pc; struct unwind_table_entry *u; unsigned long inst, stack_remaining, save_gr, save_fr, save_rp, save_sp; int status, i, reg; char buf[4]; int fp_loc = -1; /* Zero out everything. */ memset (frame_saved_regs, '\0', sizeof (struct frame_saved_regs)); /* Call dummy frames always look the same, so there's no need to examine the dummy code to determine locations of saved registers; instead, let find_dummy_frame_regs fill in the correct offsets for the saved registers. */ if ((frame_info->pc >= frame_info->frame && frame_info->pc <= (frame_info->frame + CALL_DUMMY_LENGTH + 32 * 4 + (NUM_REGS - FP0_REGNUM) * 8 + 6 * 4))) find_dummy_frame_regs (frame_info, frame_saved_regs); /* Interrupt handlers are special too. They lay out the register state in the exact same order as the register numbers in GDB. */ if (pc_in_interrupt_handler (frame_info->pc)) { for (i = 0; i < NUM_REGS; i++) { /* SP is a little special. */ if (i == SP_REGNUM) frame_saved_regs->regs[SP_REGNUM] = read_memory_integer (frame_info->frame + SP_REGNUM * 4, 4); else frame_saved_regs->regs[i] = frame_info->frame + i * 4; } return; } /* Handle signal handler callers. */ if (frame_info->signal_handler_caller) { FRAME_FIND_SAVED_REGS_IN_SIGTRAMP (frame_info, frame_saved_regs); return; } /* Get the starting address of the function referred to by the PC saved in frame_info. */ pc = get_pc_function_start (frame_info->pc); /* Yow! */ u = find_unwind_entry (pc); if (!u) return; /* This is how much of a frame adjustment we need to account for. */ stack_remaining = u->Total_frame_size << 3; /* Magic register saves we want to know about. */ save_rp = u->Save_RP; save_sp = u->Save_SP; /* Turn the Entry_GR field into a bitmask. */ save_gr = 0; for (i = 3; i < u->Entry_GR + 3; i++) { /* Frame pointer gets saved into a special location. */ if (u->Save_SP && i == FP_REGNUM) continue; save_gr |= (1 << i); } /* Turn the Entry_FR field into a bitmask too. */ save_fr = 0; for (i = 12; i < u->Entry_FR + 12; i++) save_fr |= (1 << i); /* The frame always represents the value of %sp at entry to the current function (and is thus equivalent to the "saved" stack pointer. */ frame_saved_regs->regs[SP_REGNUM] = frame_info->frame; /* Loop until we find everything of interest or hit a branch. For unoptimized GCC code and for any HP CC code this will never ever examine any user instructions. For optimzied GCC code we're faced with problems. GCC will schedule its prologue and make prologue instructions available for delay slot filling. The end result is user code gets mixed in with the prologue and a prologue instruction may be in the delay slot of the first branch or call. Some unexpected things are expected with debugging optimized code, so we allow this routine to walk past user instructions in optimized GCC code. */ while (save_gr || save_fr || save_rp || save_sp || stack_remaining > 0) { status = target_read_memory (pc, buf, 4); inst = extract_unsigned_integer (buf, 4); /* Yow! */ if (status != 0) return; /* Note the interesting effects of this instruction. */ stack_remaining -= prologue_inst_adjust_sp (inst); /* There is only one instruction used for saving RP into the stack. */ if (inst == 0x6bc23fd9) { save_rp = 0; frame_saved_regs->regs[RP_REGNUM] = frame_info->frame - 20; } /* Just note that we found the save of SP into the stack. The value for frame_saved_regs was computed above. */ if ((inst & 0xffffc000) == 0x6fc10000) save_sp = 0; /* Account for general and floating-point register saves. */ reg = inst_saves_gr (inst); if (reg >= 3 && reg <= 18 && (!u->Save_SP || reg != FP_REGNUM)) { save_gr &= ~(1 << reg); /* stwm with a positive displacement is a *post modify*. */ if ((inst >> 26) == 0x1b && extract_14 (inst) >= 0) frame_saved_regs->regs[reg] = frame_info->frame; else { /* Handle code with and without frame pointers. */ if (u->Save_SP) frame_saved_regs->regs[reg] = frame_info->frame + extract_14 (inst); else frame_saved_regs->regs[reg] = frame_info->frame + (u->Total_frame_size << 3) + extract_14 (inst); } } /* GCC handles callee saved FP regs a little differently. It emits an instruction to put the value of the start of the FP store area into %r1. It then uses fstds,ma with a basereg of %r1 for the stores. HP CC emits them at the current stack pointer modifying the stack pointer as it stores each register. */ /* ldo X(%r3),%r1 or ldo X(%r30),%r1. */ if ((inst & 0xffffc000) == 0x34610000 || (inst & 0xffffc000) == 0x37c10000) fp_loc = extract_14 (inst); reg = inst_saves_fr (inst); if (reg >= 12 && reg <= 21) { /* Note +4 braindamage below is necessary because the FP status registers are internally 8 registers rather than the expected 4 registers. */ save_fr &= ~(1 << reg); if (fp_loc == -1) { /* 1st HP CC FP register store. After this instruction we've set enough state that the GCC and HPCC code are both handled in the same manner. */ frame_saved_regs->regs[reg + FP4_REGNUM + 4] = frame_info->frame; fp_loc = 8; } else { frame_saved_regs->regs[reg + FP0_REGNUM + 4] = frame_info->frame + fp_loc; fp_loc += 8; } } /* Quit if we hit any kind of branch. This can happen if a prologue instruction is in the delay slot of the first call/branch. */ if (is_branch (inst)) break; /* Bump the PC. */ pc += 4; } } #ifdef MAINTENANCE_CMDS static void unwind_command (exp, from_tty) char *exp; int from_tty; { CORE_ADDR address; union { int *foo; struct unwind_table_entry *u; } xxx; /* If we have an expression, evaluate it and use it as the address. */ if (exp != 0 && *exp != 0) address = parse_and_eval_address (exp); else return; xxx.u = find_unwind_entry (address); if (!xxx.u) { printf_unfiltered ("Can't find unwind table entry for PC 0x%x\n", address); return; } printf_unfiltered ("%08x\n%08X\n%08X\n%08X\n", xxx.foo[0], xxx.foo[1], xxx.foo[2], xxx.foo[3]); } #endif /* MAINTENANCE_CMDS */ void _initialize_hppa_tdep () { #ifdef MAINTENANCE_CMDS add_cmd ("unwind", class_maintenance, unwind_command, "Print unwind table entry at given address.", &maintenanceprintlist); #endif /* MAINTENANCE_CMDS */ } gdb-4.13/gdb/hppab-nat.c 666 34562 1752 12710 5553065254 13341 0ustar fnfcygnus/* Machine-dependent hooks for the unix child process stratum. This code is for the HP PA-RISC cpu. Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "target.h" #include /* Use an extra level of indirection for ptrace calls. This lets us breakpoint usefully on call_ptrace. It also allows us to pass an extra argument to ptrace without using an ANSI-C specific macro. */ #define ptrace call_ptrace #if !defined (offsetof) #define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER) #endif /* U_REGS_OFFSET is the offset of the registers within the u area. */ #if !defined (U_REGS_OFFSET) #define U_REGS_OFFSET \ ptrace (PT_READ_U, inferior_pid, \ (PTRACE_ARG3_TYPE) (offsetof (struct user, u_ar0)), 0) \ - KERNEL_U_ADDR #endif /* Fetch one register. */ static void fetch_register (regno) int regno; { register unsigned int regaddr; char buf[MAX_REGISTER_RAW_SIZE]; register int i; /* Offset of registers within the u area. */ unsigned int offset; offset = U_REGS_OFFSET; regaddr = register_addr (regno, offset); for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) { errno = 0; *(int *) &buf[i] = ptrace (PT_RUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0); regaddr += sizeof (int); if (errno != 0) { /* Warning, not error, in case we are attached; sometimes the kernel doesn't let us at the registers. */ char *err = safe_strerror (errno); char *msg = alloca (strlen (err) + 128); sprintf (msg, "reading register %s: %s", reg_names[regno], err); warning (msg); goto error_exit; } } supply_register (regno, buf); error_exit:; } /* Fetch all registers, or just one, from the child process. */ void fetch_inferior_registers (regno) int regno; { if (regno == -1) for (regno = 0; regno < NUM_REGS; regno++) fetch_register (regno); else fetch_register (regno); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { register unsigned int regaddr; extern char registers[]; register int i; unsigned int offset = U_REGS_OFFSET; if (regno >= 0) { regaddr = register_addr (regno, offset); for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(int)) { errno = 0; ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, *(int *) ®isters[REGISTER_BYTE (regno) + i]); if (errno != 0) { char *err = safe_strerror (errno); char *msg = alloca (strlen (err) + 128); sprintf (msg, "writing register %s: %s", reg_names[regno], err); warning (msg); } regaddr += sizeof(int); } } else { for (regno = 0; regno < NUM_REGS; regno++) { if (CANNOT_STORE_REGISTER (regno)) continue; store_inferior_registers (regno); } } return; } /* PT_PROT is specific to the PA BSD kernel and isn't documented anywhere (except here). PT_PROT allows one to enable/disable the data memory break bit for pages of memory in an inferior process. This bit is used to cause "Data memory break traps" to occur when the appropriate page is written to. The arguments are as follows: PT_PROT -- The ptrace action to perform. INFERIOR_PID -- The pid of the process who's page table entries will be modified. PT_ARGS -- The *address* of a 3 word block of memory which has additional information: word 0 -- The start address to watch. This should be a page-aligned address. word 1 -- The ending address to watch. Again, this should be a page aligned address. word 2 -- Nonzero to enable the data memory break bit on the given address range or zero to disable the data memory break bit on the given address range. This call may fail if the given addresses are not valid in the inferior process. This most often happens when restarting a program which as watchpoints inserted on heap or stack memory. */ #define PT_PROT 21 int hppa_set_watchpoint (addr, len, flag) int addr, len, flag; { int pt_args[3]; pt_args[0] = addr; pt_args[1] = addr + len; pt_args[2] = flag; /* Mask off the lower 12 bits since we want to work on a page basis. */ pt_args[0] >>= 12; pt_args[1] >>= 12; /* Rounding adjustments. */ pt_args[1] -= pt_args[0]; pt_args[1]++; /* Put the lower 12 bits back as zero. */ pt_args[0] <<= 12; pt_args[1] <<= 12; /* Do it. */ return ptrace (PT_PROT, inferior_pid, (PTRACE_ARG3_TYPE) pt_args, 0); } gdb-4.13/gdb/hppah-nat.c 666 34562 1752 15206 5520000505 13330 0ustar fnfcygnus/* Machine-dependent hooks for the unix child process stratum, for HPUX PA-RISC. Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "target.h" #include extern CORE_ADDR text_end; static void fetch_register (); void fetch_inferior_registers (regno) int regno; { if (regno == -1) for (regno = 0; regno < NUM_REGS; regno++) fetch_register (regno); else fetch_register (regno); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { register unsigned int regaddr; char buf[80]; extern char registers[]; register int i; unsigned int offset = U_REGS_OFFSET; int scratch; if (regno >= 0) { regaddr = register_addr (regno, offset); errno = 0; if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM) { scratch = *(int *) ®isters[REGISTER_BYTE (regno)] | 0x3; ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, scratch, 0); if (errno != 0) { /* Error, even if attached. Failing to write these two registers is pretty serious. */ sprintf (buf, "writing register number %d", regno); perror_with_name (buf); } } else for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(int)) { errno = 0; ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, *(int *) ®isters[REGISTER_BYTE (regno) + i], 0); if (errno != 0) { /* Warning, not error, in case we are attached; sometimes the kernel doesn't let us at the registers. */ char *err = safe_strerror (errno); char *msg = alloca (strlen (err) + 128); sprintf (msg, "writing register %s: %s", reg_names[regno], err); warning (msg); goto error_exit; } regaddr += sizeof(int); } } else { for (regno = 0; regno < NUM_REGS; regno++) { if (CANNOT_STORE_REGISTER (regno)) continue; store_inferior_registers (regno); } } error_exit: return; } /* Fetch one register. */ static void fetch_register (regno) int regno; { register unsigned int regaddr; char buf[MAX_REGISTER_RAW_SIZE]; char mess[128]; /* For messages */ register int i; /* Offset of registers within the u area. */ unsigned int offset; offset = U_REGS_OFFSET; regaddr = register_addr (regno, offset); for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) { errno = 0; *(int *) &buf[i] = ptrace (PT_RUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0, 0); regaddr += sizeof (int); if (errno != 0) { /* Warning, not error, in case we are attached; sometimes the kernel doesn't let us at the registers. */ char *err = safe_strerror (errno); char *msg = alloca (strlen (err) + 128); sprintf (msg, "reading register %s: %s", reg_names[regno], err); warning (msg); goto error_exit; } } if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM) buf[3] &= ~0x3; supply_register (regno, buf); error_exit:; } /* Copy LEN bytes to or from inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. Copy to inferior if WRITE is nonzero. Returns the length copied, which is either the LEN argument or zero. This xfer function does not do partial moves, since child_ops doesn't allow memory operations to cross below us in the target stack anyway. */ int child_xfer_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & - sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); if (write) { /* Fill start and end extra bytes of buffer with existing memory data. */ if (addr != memaddr || len < (int)sizeof (int)) { /* Need part of initial word -- fetch it. */ buffer[0] = ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, inferior_pid, (PTRACE_ARG3_TYPE) addr, 0, 0); } if (count > 1) /* FIXME, avoid if even boundary */ { buffer[count - 1] = ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, inferior_pid, (PTRACE_ARG3_TYPE) (addr + (count - 1) * sizeof (int)), 0, 0); } /* Copy data to be written over corresponding part of buffer */ memcpy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (int)) { /* The HP-UX kernel crashes if you use PT_WDUSER to write into the text segment. FIXME -- does it work to write into the data segment using WIUSER, or do these idiots really expect us to figure out which segment the address is in, so we can use a separate system call for it??! */ errno = 0; ptrace (addr < text_end ? PT_WIUSER : PT_WDUSER, inferior_pid, (PTRACE_ARG3_TYPE) addr, buffer[i], 0); if (errno) return 0; } } else { /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; buffer[i] = ptrace (addr < text_end ? PT_RIUSER : PT_RDUSER, inferior_pid, (PTRACE_ARG3_TYPE) addr, 0, 0); if (errno) return 0; QUIT; } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); } return len; } gdb-4.13/gdb/i386-nlmstub.c 666 34562 1752 65534 5573407301 13651 0ustar fnfcygnus/* i386-nlmstub.c -- NLM debugging stub for the i386. This is originally based on an m68k software stub written by Glenn Engel at HP, but has changed quite a bit. It was modified for the i386 by Jim Kingdon, Cygnus Support. It was modified to run under NetWare by Ian Lance Taylor, Cygnus Support. This code is intended to produce an NLM (a NetWare Loadable Module) to run under NetWare on an i386 platform. To create the NLM, compile this code into an object file using the NLM SDK on any i386 host, and use the nlmconv program (available in the GNU binutils) to transform the resulting object file into an NLM. */ /**************************************************************************** THIS SOFTWARE IS NOT COPYRIGHTED HP offers the following for use in the public domain. HP makes no warranty with regard to the software or it's performance and the user accepts the software "AS IS" with all faults. HP DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. ****************************************************************************/ /**************************************************************************** * * The following gdb commands are supported: * * command function Return value * * g return the value of the CPU registers hex data or ENN * G set the value of the CPU registers OK or ENN * * mAA..AA,LLLL Read LLLL bytes at address AA..AA hex data or ENN * MAA..AA,LLLL: Write LLLL bytes at address AA.AA OK or ENN * * c Resume at current address SNN ( signal NN) * cAA..AA Continue at address AA..AA SNN * * s Step one instruction SNN * sAA..AA Step one instruction from AA..AA SNN * * k kill * * ? What was the last sigval ? SNN (signal NN) * * All commands and responses are sent with a packet which includes a * checksum. A packet consists of * * $#. * * where * :: * :: < two hex digits computed as modulo 256 sum of > * * When a packet is received, it is first acknowledged with either '+' or '-'. * '+' indicates a successful transfer. '-' indicates a failed transfer. * * Example: * * Host: Reply: * $m0,10#2a +$00010203040506070809101112131415#42 * ****************************************************************************/ #include #include #include #include #include #include #include #include #include #include #include #include /****************************************************/ /* This information is from Novell. It is not in any of the standard NetWare header files. */ struct DBG_LoadDefinitionStructure { void *reserved1[4]; LONG reserved5; LONG LDCodeImageOffset; LONG LDCodeImageLength; LONG LDDataImageOffset; LONG LDDataImageLength; LONG LDUninitializedDataLength; LONG LDCustomDataOffset; LONG LDCustomDataSize; LONG reserved6[2]; LONG (*LDInitializationProcedure)(void); }; #define LO_NORMAL 0x0000 #define LO_STARTUP 0x0001 #define LO_PROTECT 0x0002 #define LO_DEBUG 0x0004 #define LO_AUTO_LOAD 0x0008 /* Loader returned error codes */ #define LOAD_COULD_NOT_FIND_FILE 1 #define LOAD_ERROR_READING_FILE 2 #define LOAD_NOT_NLM_FILE_FORMAT 3 #define LOAD_WRONG_NLM_FILE_VERSION 4 #define LOAD_REENTRANT_INITIALIZE_FAILURE 5 #define LOAD_CAN_NOT_LOAD_MULTIPLE_COPIES 6 #define LOAD_ALREADY_IN_PROGRESS 7 #define LOAD_NOT_ENOUGH_MEMORY 8 #define LOAD_INITIALIZE_FAILURE 9 #define LOAD_INCONSISTENT_FILE_FORMAT 10 #define LOAD_CAN_NOT_LOAD_AT_STARTUP 11 #define LOAD_AUTO_LOAD_MODULES_NOT_LOADED 12 #define LOAD_UNRESOLVED_EXTERNAL 13 #define LOAD_PUBLIC_ALREADY_DEFINED 14 /****************************************************/ /* The main thread ID. */ static int mainthread; /* An error message for the main thread to print. */ static char *error_message; /* The AIO port handle. */ static int AIOhandle; /* BUFMAX defines the maximum number of characters in inbound/outbound buffers. At least NUMREGBYTES*2 are needed for register packets */ #define BUFMAX (REGISTER_BYTES * 2 + 16) /* remote_debug > 0 prints ill-formed commands in valid packets and checksum errors. */ static int remote_debug = 1; static const char hexchars[] = "0123456789abcdef"; /* Register values. All of these values *MUST* agree with tm.h */ #define SP_REGNUM 4 /* Contains address of top of stack */ #define PC_REGNUM 8 /* Contains program counter */ #define FP_REGNUM 5 /* Virtual frame pointer */ #define NUM_REGS 16 /* Number of machine registers */ #define REGISTER_BYTES (NUM_REGS * 4) /* Total size of registers array */ #define ExceptionPC ExceptionEIP #define DECR_PC_AFTER_BREAK 1 /* int 3 leaves PC pointing after insn */ #define BREAKPOINT {0xcc} #define StackFrame T_TSS_StackFrame unsigned char breakpoint_insn[] = BREAKPOINT; #define BREAKPOINT_SIZE (sizeof breakpoint_insn) static void flush_i_cache() {} static char *mem2hex (void *mem, char *buf, int count, int may_fault); static char *hex2mem (char *buf, void *mem, int count, int may_fault); static void set_step_traps (struct StackFrame *); static void clear_step_traps (struct StackFrame *); #if 0 __main() {}; #endif /* Read a character from the serial port. This must busy wait, but that's OK because we will be the only thread running anyhow. */ static int getDebugChar () { int err; LONG got; unsigned char ret; do { err = AIOReadData (AIOhandle, (char *) &ret, 1, &got); if (err != 0) { error_message = "AIOReadData failed"; ResumeThread (mainthread); return -1; } } while (got == 0); return ret; } /* Write a character to the serial port. Returns 0 on failure, non-zero on success. */ static int putDebugChar (c) unsigned char c; { int err; LONG put; put = 0; while (put < 1) { err = AIOWriteData (AIOhandle, (char *) &c, 1, &put); if (err != 0) ConsolePrintf ("AIOWriteData: err = %d, put = %d\r\n", err, put); } return 1; } /* Get the registers out of the frame information. */ static void frame_to_registers (frame, regs) struct StackFrame *frame; char *regs; { /* Copy EAX -> EDI */ mem2hex (&frame->ExceptionEAX, ®s[0 * 4 * 2], 4 * 8, 0); /* Copy EIP & PS */ mem2hex (&frame->ExceptionPC, ®s[8 * 4 * 2], 4 * 2, 0); /* Copy CS, SS, DS */ mem2hex (&frame->ExceptionCS, ®s[10 * 4 * 2], 4 * 3, 0); /* Copy ES */ mem2hex (&frame->ExceptionES, ®s[13 * 4 * 2], 4 * 1, 0); /* Copy FS & GS */ mem2hex (&frame->ExceptionFS, ®s[14 * 4 * 2], 4 * 2, 0); } /* Put the registers back into the frame information. */ static void registers_to_frame (regs, frame) char *regs; struct StackFrame *frame; { /* Copy EAX -> EDI */ hex2mem (®s[0 * 4 * 2], &frame->ExceptionEAX, 4 * 8, 0); /* Copy EIP & PS */ hex2mem (®s[8 * 4 * 2], &frame->ExceptionPC, 4 * 2, 0); /* Copy CS, SS, DS */ hex2mem (®s[10 * 4 * 2], &frame->ExceptionCS, 4 * 3, 0); /* Copy ES */ hex2mem (®s[13 * 4 * 2], &frame->ExceptionES, 4 * 1, 0); /* Copy FS & GS */ hex2mem (®s[14 * 4 * 2], &frame->ExceptionFS, 4 * 2, 0); } /* Turn a hex character into a number. */ static int hex (ch) char ch; { if ((ch >= 'a') && (ch <= 'f')) return (ch-'a'+10); if ((ch >= '0') && (ch <= '9')) return (ch-'0'); if ((ch >= 'A') && (ch <= 'F')) return (ch-'A'+10); return (-1); } /* Scan for the sequence $#. Returns 0 on failure, non-zero on success. */ static int getpacket (buffer) char * buffer; { unsigned char checksum; unsigned char xmitcsum; int i; int count; int ch; do { /* wait around for the start character, ignore all other characters */ while ((ch = getDebugChar()) != '$') if (ch == -1) return 0; checksum = 0; xmitcsum = -1; count = 0; /* now, read until a # or end of buffer is found */ while (count < BUFMAX) { ch = getDebugChar(); if (ch == -1) return 0; if (ch == '#') break; checksum = checksum + ch; buffer[count] = ch; count = count + 1; } buffer[count] = 0; if (ch == '#') { ch = getDebugChar (); if (ch == -1) return 0; xmitcsum = hex(ch) << 4; ch = getDebugChar (); if (ch == -1) return 0; xmitcsum += hex(ch); if (checksum != xmitcsum) { if (remote_debug) ConsolePrintf ("bad checksum. My count = 0x%x, sent=0x%x. buf=%s\n", checksum,xmitcsum,buffer); /* failed checksum */ if (! putDebugChar('-')) return 0; return 1; } else { /* successful transfer */ if (! putDebugChar('+')) return 0; /* if a sequence char is present, reply the sequence ID */ if (buffer[2] == ':') { if (! putDebugChar (buffer[0]) || ! putDebugChar (buffer[1])) return 0; /* remove sequence chars from buffer */ count = strlen(buffer); for (i=3; i <= count; i++) buffer[i-3] = buffer[i]; } } } } while (checksum != xmitcsum); if (remote_debug) ConsolePrintf ("Received packet \"%s\"\r\n", buffer); return 1; } /* Send the packet in buffer. Returns 0 on failure, non-zero on success. */ static int putpacket (buffer) char * buffer; { unsigned char checksum; int count; int ch; if (remote_debug) ConsolePrintf ("Sending packet \"%s\"\r\n", buffer); /* $#. */ do { if (! putDebugChar('$')) return 0; checksum = 0; count = 0; while (ch=buffer[count]) { if (! putDebugChar(ch)) return 0; checksum += ch; count += 1; } if (! putDebugChar('#') || ! putDebugChar(hexchars[checksum >> 4]) || ! putDebugChar(hexchars[checksum % 16])) return 0; ch = getDebugChar (); if (ch == -1) return 0; } while (ch != '+'); return 1; } static char remcomInBuffer[BUFMAX]; static char remcomOutBuffer[BUFMAX]; static short error; static void debug_error (format, parm) char *format; char *parm; { if (remote_debug) { ConsolePrintf (format, parm); ConsolePrintf ("\n"); } } /* This is set if we could get a memory access fault. */ static int mem_may_fault; /* Indicate to caller of mem2hex or hex2mem that there has been an error. */ static volatile int mem_err = 0; /* These are separate functions so that they are so short and sweet that the compiler won't save any registers (if there is a fault to mem_fault, they won't get restored, so there better not be any saved). */ static int get_char (addr) char *addr; { return *addr; } static void set_char (addr, val) char *addr; int val; { *addr = val; } /* This bit of assembly language just returns from a function. If a memory error occurs within get_char or set_char, the debugger handler points EIP at these instructions to get out. */ extern void just_return (); asm (".globl just_return"); asm (".globl _just_return"); asm ("just_return:"); asm ("_just_return:"); asm ("leave"); asm ("ret"); /* convert the memory pointed to by mem into hex, placing result in buf */ /* return a pointer to the last char put in buf (null) */ /* If MAY_FAULT is non-zero, then we should set mem_err in response to a fault; if zero treat a fault like any other fault in the stub. */ static char * mem2hex (mem, buf, count, may_fault) void *mem; char *buf; int count; int may_fault; { int i; unsigned char ch; char *ptr = mem; mem_may_fault = may_fault; for (i = 0; i < count; i++) { ch = get_char (ptr++); if (may_fault && mem_err) return (buf); *buf++ = hexchars[ch >> 4]; *buf++ = hexchars[ch % 16]; } *buf = 0; mem_may_fault = 0; return(buf); } /* convert the hex array pointed to by buf into binary to be placed in mem */ /* return a pointer to the character AFTER the last byte written */ static char * hex2mem (buf, mem, count, may_fault) char *buf; void *mem; int count; int may_fault; { int i; unsigned char ch; char *ptr = mem; mem_may_fault = may_fault; for (i=0;i=0) { *intValue = (*intValue <<4) | hexValue; numChars ++; } else break; (*ptr)++; } return (numChars); } static void set_step_traps (frame) struct StackFrame *frame; { frame->ExceptionSystemFlags |= 0x100; } static void clear_step_traps (frame) struct StackFrame *frame; { frame->ExceptionSystemFlags &= ~0x100; } static void do_status (ptr, frame) char *ptr; struct StackFrame *frame; { int sigval; sigval = computeSignal (frame->ExceptionNumber); sprintf (ptr, "T%02x", sigval); ptr += 3; sprintf (ptr, "%02x:", PC_REGNUM); ptr = mem2hex (&frame->ExceptionPC, ptr + 3, 4, 0); *ptr++ = ';'; sprintf (ptr, "%02x:", SP_REGNUM); ptr = mem2hex (&frame->ExceptionESP, ptr + 3, 4, 0); *ptr++ = ';'; sprintf (ptr, "%02x:", FP_REGNUM); ptr = mem2hex (&frame->ExceptionEBP, ptr + 3, 4, 0); *ptr++ = ';'; *ptr = '\000'; } /* This function does all command processing for interfacing to gdb. It is called whenever an exception occurs in the module being debugged. */ static LONG handle_exception (frame) struct StackFrame *frame; { int addr, length; char *ptr; static struct DBG_LoadDefinitionStructure *ldinfo = 0; static unsigned char first_insn[BREAKPOINT_SIZE]; /* The first instruction in the program. */ /* Apparently the bell can sometimes be ringing at this point, and should be stopped. */ StopBell (); if (remote_debug) { ConsolePrintf ("vector=%d: %s, sr=%08x, pc=%08x, thread=%08x\r\n", frame->ExceptionNumber, frame->ExceptionDescription, frame->ExceptionSystemFlags, frame->ExceptionPC, GetThreadID ()); } switch (frame->ExceptionNumber) { case START_NLM_EVENT: /* If the NLM just started, we record the module load information and the thread ID, and set a breakpoint at the first instruction in the program. */ ldinfo = ((struct DBG_LoadDefinitionStructure *) frame->ExceptionErrorCode); memcpy (first_insn, ldinfo->LDInitializationProcedure, BREAKPOINT_SIZE); memcpy (ldinfo->LDInitializationProcedure, breakpoint_insn, BREAKPOINT_SIZE); flush_i_cache (); return RETURN_TO_PROGRAM; case ENTER_DEBUGGER_EVENT: case KEYBOARD_BREAK_EVENT: /* Pass some events on to the next debugger, in case it will handle them. */ return RETURN_TO_NEXT_DEBUGGER; case 3: /* Breakpoint */ /* After we've reached the initial breakpoint, reset it. */ if (frame->ExceptionPC - DECR_PC_AFTER_BREAK == (LONG) ldinfo->LDInitializationProcedure && memcmp (ldinfo->LDInitializationProcedure, breakpoint_insn, BREAKPOINT_SIZE) == 0) { memcpy (ldinfo->LDInitializationProcedure, first_insn, BREAKPOINT_SIZE); frame->ExceptionPC -= DECR_PC_AFTER_BREAK; flush_i_cache (); } /* Normal breakpoints end up here */ do_status (remcomOutBuffer, frame); break; default: /* At the moment, we don't care about most of the unusual NetWare exceptions. */ if (frame->ExceptionNumber > 31) return RETURN_TO_PROGRAM; /* Most machine level exceptions end up here */ do_status (remcomOutBuffer, frame); break; case 11: /* Segment not present */ case 13: /* General protection */ case 14: /* Page fault */ /* If we get a GP fault, and mem_may_fault is set, and the instruction pointer is near set_char or get_char, then we caused the fault ourselves accessing an illegal memory location. */ if (mem_may_fault && ((frame->ExceptionPC >= (long) &set_char && frame->ExceptionPC < (long) &set_char + 50) || (frame->ExceptionPC >= (long) &get_char && frame->ExceptionPC < (long) &get_char + 50))) { mem_err = 1; /* Point the instruction pointer at an assembly language stub which just returns from the function. */ frame->ExceptionPC = (long) &just_return; /* Keep going. This will act as though it returned from set_char or get_char. The calling routine will check mem_err, and do the right thing. */ return RETURN_TO_PROGRAM; } /* Random mem fault, report it */ do_status (remcomOutBuffer, frame); break; case TERMINATE_NLM_EVENT: /* There is no way to get the exit status. */ sprintf (remcomOutBuffer, "W%02x", 0); break; /* We generate our own status */ } /* FIXME: How do we know that this exception has anything to do with the program we are debugging? We can check whether the PC is in the range of the module we are debugging, but that doesn't help much since an error could occur in a library routine. */ clear_step_traps (frame); if (! putpacket(remcomOutBuffer)) return RETURN_TO_NEXT_DEBUGGER; if (frame->ExceptionNumber == TERMINATE_NLM_EVENT) { ResumeThread (mainthread); return RETURN_TO_PROGRAM; } while (1) { error = 0; remcomOutBuffer[0] = 0; if (! getpacket (remcomInBuffer)) return RETURN_TO_NEXT_DEBUGGER; switch (remcomInBuffer[0]) { case '?': do_status (remcomOutBuffer, frame); break; case 'd': remote_debug = !(remote_debug); /* toggle debug flag */ break; case 'g': /* return the value of the CPU registers */ frame_to_registers (frame, remcomOutBuffer); break; case 'G': /* set the value of the CPU registers - return OK */ registers_to_frame (&remcomInBuffer[1], frame); strcpy(remcomOutBuffer,"OK"); break; case 'm': /* mAA..AA,LLLL Read LLLL bytes at address AA..AA */ /* TRY TO READ %x,%x. IF SUCCEED, SET PTR = 0 */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr,&addr)) if (*(ptr++) == ',') if (hexToInt(&ptr,&length)) { ptr = 0; mem_err = 0; mem2hex((char*) addr, remcomOutBuffer, length, 1); if (mem_err) { strcpy (remcomOutBuffer, "E03"); debug_error ("memory fault"); } } if (ptr) { strcpy(remcomOutBuffer,"E01"); debug_error("malformed read memory command: %s",remcomInBuffer); } break; case 'M': /* MAA..AA,LLLL: Write LLLL bytes at address AA.AA return OK */ /* TRY TO READ '%x,%x:'. IF SUCCEED, SET PTR = 0 */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr,&addr)) if (*(ptr++) == ',') if (hexToInt(&ptr,&length)) if (*(ptr++) == ':') { mem_err = 0; hex2mem(ptr, (char*) addr, length, 1); if (mem_err) { strcpy (remcomOutBuffer, "E03"); debug_error ("memory fault"); } else { strcpy(remcomOutBuffer,"OK"); } ptr = 0; } if (ptr) { strcpy(remcomOutBuffer,"E02"); debug_error("malformed write memory command: %s",remcomInBuffer); } break; case 'c': case 's': /* cAA..AA Continue at address AA..AA(optional) */ /* sAA..AA Step one instruction from AA..AA(optional) */ /* try to read optional parameter, pc unchanged if no parm */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr,&addr)) { /* registers[PC_REGNUM].lo = addr;*/ fprintf (stderr, "Setting PC to 0x%x\n", addr); while (1); } if (remcomInBuffer[0] == 's') set_step_traps (frame); flush_i_cache (); return RETURN_TO_PROGRAM; case 'k': /* kill the program */ KillMe (ldinfo); ResumeThread (mainthread); return RETURN_TO_PROGRAM; case 'q': /* Query message */ if (strcmp (&remcomInBuffer[1], "Offsets") == 0) { sprintf (remcomOutBuffer, "Text=%x;Data=%x;Bss=%x", ldinfo->LDCodeImageOffset, ldinfo->LDDataImageOffset, ldinfo->LDDataImageOffset + ldinfo->LDDataImageLength); } else sprintf (remcomOutBuffer, "E04, Unknown query %s", &remcomInBuffer[1]); break; } /* reply to the request */ if (! putpacket(remcomOutBuffer)) return RETURN_TO_NEXT_DEBUGGER; } } char *baudRates[] = { "50", "75", "110", "134.5", "150", "300", "600", "1200", "1800", "2000", "2400", "3600", "4800", "7200", "9600", "19200", "38400", "57600", "115200" }; char dataBits[] = "5678"; char *stopBits[] = { "1", "1.5", "2" }; char parity[] = "NOEMS"; /* Start up. The main thread opens the named serial I/O port, loads the named NLM module and then goes to sleep. The serial I/O port is named as a board number and a port number. It would be more DOS like to provide a menu of available serial ports, but I don't want to have to figure out how to do that. */ int main (argc, argv) int argc; char **argv; { int hardware, board, port; LONG err; struct debuggerStructure s; char *cmdlin; int i; /* Use the -B option to invoke the NID if you want to debug the stub. */ if (argc > 1 && strcmp(argv[1], "-B") == 0) { Breakpoint(argc); ++argv, --argc; } if (argc < 4) { fprintf (stderr, "Usage: load gdbserve board port program [arguments]\n"); exit (1); } hardware = -1; board = strtol (argv[1], (char **) NULL, 0); port = strtol (argv[2], (char **) NULL, 0); err = AIOAcquirePort (&hardware, &board, &port, &AIOhandle); if (err != AIO_SUCCESS) { switch (err) { case AIO_PORT_NOT_AVAILABLE: fprintf (stderr, "Port not available\n"); break; case AIO_BOARD_NUMBER_INVALID: case AIO_PORT_NUMBER_INVALID: fprintf (stderr, "No such port\n"); break; default: fprintf (stderr, "Could not open port: %d\n", err); break; } exit (1); } err = AIOConfigurePort (AIOhandle, AIO_BAUD_9600, AIO_DATA_BITS_8, AIO_STOP_BITS_1, AIO_PARITY_NONE, AIO_HARDWARE_FLOW_CONTROL_OFF); if (err == AIO_QUALIFIED_SUCCESS) { AIOPORTCONFIG portConfig; AIODVRCONFIG dvrConfig; fprintf (stderr, "Port configuration changed!\n"); AIOGetPortConfiguration (AIOhandle, &portConfig, &dvrConfig); fprintf (stderr, " Bit Rate: %s, Data Bits: %c, Stop Bits: %s, Parity: %c,\ Flow:%s\n", baudRates[portConfig.bitRate], dataBits[portConfig.dataBits], stopBits[portConfig.stopBits], parity[portConfig.parityMode], portConfig.flowCtrlMode ? "ON" : "OFF"); } else if (err != AIO_SUCCESS) { fprintf (stderr, "Could not configure port: %d\n", err); AIOReleasePort (AIOhandle); exit (1); } if (AIOSetExternalControl(AIOhandle, AIO_EXTERNAL_CONTROL, (AIO_EXTCTRL_DTR | AIO_EXTCTRL_RTS)) != AIO_SUCCESS) { LONG extStatus, chgdExtStatus; fprintf (stderr, "Could not set desired port controls!\n"); AIOGetExternalStatus (AIOhandle, &extStatus, &chgdExtStatus); fprintf (stderr, "Port controls now: %d, %d\n", extStatus, chgdExtStatus); } /* Register ourselves as an alternate debugger. */ memset (&s, 0, sizeof s); s.DDSResourceTag = ((struct ResourceTagStructure *) AllocateResourceTag (GetNLMHandle (), (BYTE *)"gdbserver", DebuggerSignature)); if (s.DDSResourceTag == 0) { fprintf (stderr, "AllocateResourceTag failed\n"); AIOReleasePort (AIOhandle); exit (1); } s.DDSdebuggerEntry = handle_exception; s.DDSFlags = TSS_FRAME_BIT; err = RegisterDebuggerRTag (&s, AT_FIRST); if (err != 0) { fprintf (stderr, "RegisterDebuggerRTag failed\n"); AIOReleasePort (AIOhandle); exit (1); } /* Get the command line we were invoked with, and advance it past our name and the board and port arguments. */ cmdlin = getcmd ((char *) NULL); for (i = 0; i < 2; i++) { while (! isspace (*cmdlin)) ++cmdlin; while (isspace (*cmdlin)) ++cmdlin; } /* In case GDB is started before us, ack any packets (presumably "$?#xx") sitting there. */ if (! putDebugChar ('+')) { fprintf (stderr, "putDebugChar failed\n"); UnRegisterDebugger (&s); AIOReleasePort (AIOhandle); exit (1); } mainthread = GetThreadID (); if (remote_debug > 0) ConsolePrintf ("About to call LoadModule with \"%s\" %08x\r\n", cmdlin, __GetScreenID (GetCurrentScreen())); /* Start up the module to be debugged. */ err = LoadModule ((struct ScreenStruct *) __GetScreenID (GetCurrentScreen()), (BYTE *)cmdlin, LO_DEBUG); if (err != 0) { fprintf (stderr, "LoadModule failed: %d\n", err); UnRegisterDebugger (&s); AIOReleasePort (AIOhandle); exit (1); } /* Wait for the debugger to wake us up. */ if (remote_debug > 0) ConsolePrintf ("Suspending main thread (%08x)\r\n", mainthread); SuspendThread (mainthread); if (remote_debug > 0) ConsolePrintf ("Resuming main thread (%08x)\r\n", mainthread); /* If we are woken up, print an optional error message, deregister ourselves and exit. */ if (error_message != NULL) fprintf (stderr, "%s\n", error_message); UnRegisterDebugger (&s); AIOReleasePort (AIOhandle); exit (0); } gdb-4.13/gdb/i386-pinsn.c 666 34562 1752 2252 5465305512 13261 0ustar fnfcygnus/* Print i386 instructions for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dis-asm.h" /* Print the instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO(info, stream); return print_insn_i386 (memaddr, &info); } gdb-4.13/gdb/i386-stub.c 666 34562 1752 63614 5522076537 13146 0ustar fnfcygnus/**************************************************************************** THIS SOFTWARE IS NOT COPYRIGHTED HP offers the following for use in the public domain. HP makes no warranty with regard to the software or it's performance and the user accepts the software "AS IS" with all faults. HP DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. ****************************************************************************/ /**************************************************************************** * Header: remcom.c,v 1.34 91/03/09 12:29:49 glenne Exp $ * * Module name: remcom.c $ * Revision: 1.34 $ * Date: 91/03/09 12:29:49 $ * Contributor: Lake Stevens Instrument Division$ * * Description: low level support for gdb debugger. $ * * Considerations: only works on target hardware $ * * Written by: Glenn Engel $ * ModuleState: Experimental $ * * NOTES: See Below $ * * Modified for 386 by Jim Kingdon, Cygnus Support. * * To enable debugger support, two things need to happen. One, a * call to set_debug_traps() is necessary in order to allow any breakpoints * or error conditions to be properly intercepted and reported to gdb. * Two, a breakpoint needs to be generated to begin communication. This * is most easily accomplished by a call to breakpoint(). Breakpoint() * simulates a breakpoint by executing a trap #1. * * The external function exceptionHandler() is * used to attach a specific handler to a specific 386 vector number. * It should use the same privilege level it runs at. It should * install it as an interrupt gate so that interrupts are masked * while the handler runs. * Also, need to assign exceptionHook and oldExceptionHook. * * Because gdb will sometimes write to the stack area to execute function * calls, this program cannot rely on using the supervisor stack so it * uses it's own stack area reserved in the int array remcomStack. * ************* * * The following gdb commands are supported: * * command function Return value * * g return the value of the CPU registers hex data or ENN * G set the value of the CPU registers OK or ENN * * mAA..AA,LLLL Read LLLL bytes at address AA..AA hex data or ENN * MAA..AA,LLLL: Write LLLL bytes at address AA.AA OK or ENN * * c Resume at current address SNN ( signal NN) * cAA..AA Continue at address AA..AA SNN * * s Step one instruction SNN * sAA..AA Step one instruction from AA..AA SNN * * k kill * * ? What was the last sigval ? SNN (signal NN) * * All commands and responses are sent with a packet which includes a * checksum. A packet consists of * * $#. * * where * :: * :: < two hex digits computed as modulo 256 sum of > * * When a packet is received, it is first acknowledged with either '+' or '-'. * '+' indicates a successful transfer. '-' indicates a failed transfer. * * Example: * * Host: Reply: * $m0,10#2a +$00010203040506070809101112131415#42 * ****************************************************************************/ #include #include /************************************************************************ * * external low-level support routines */ typedef void (*ExceptionHook)(int); /* pointer to function with int parm */ typedef void (*Function)(); /* pointer to a function */ extern putDebugChar(); /* write a single character */ extern getDebugChar(); /* read and return a single char */ extern Function exceptionHandler(); /* assign an exception handler */ extern ExceptionHook exceptionHook; /* hook variable for errors/exceptions */ /************************************************************************/ /* BUFMAX defines the maximum number of characters in inbound/outbound buffers*/ /* at least NUMREGBYTES*2 are needed for register packets */ #define BUFMAX 400 static char initialized; /* boolean flag. != 0 means we've been initialized */ int remote_debug; /* debug > 0 prints ill-formed commands in valid packets & checksum errors */ void waitabit(); static const char hexchars[]="0123456789abcdef"; /* Number of bytes of registers. */ #define NUMREGBYTES 64 enum regnames {EAX, ECX, EDX, EBX, ESP, EBP, ESI, EDI, PC /* also known as eip */, PS /* also known as eflags */, CS, SS, DS, ES, FS, GS}; /* * these should not be static cuz they can be used outside this module */ int registers[NUMREGBYTES/4]; #define STACKSIZE 10000 int remcomStack[STACKSIZE/sizeof(int)]; static int* stackPtr = &remcomStack[STACKSIZE/sizeof(int) - 1]; /* * In many cases, the system will want to continue exception processing * when a continue command is given. * oldExceptionHook is a function to invoke in this case. */ static ExceptionHook oldExceptionHook; /*************************** ASSEMBLY CODE MACROS *************************/ /* */ extern void return_to_prog (); /* Restore the program's registers (including the stack pointer, which means we get the right stack and don't have to worry about popping our return address and any stack frames and so on) and return. */ asm(".text"); asm(".globl _return_to_prog"); asm("_return_to_prog:"); asm(" movw _registers+44, %ss"); asm(" movl _registers+16, %esp"); asm(" movl _registers+4, %ecx"); asm(" movl _registers+8, %edx"); asm(" movl _registers+12, %ebx"); asm(" movl _registers+20, %ebp"); asm(" movl _registers+24, %esi"); asm(" movl _registers+28, %edi"); asm(" movw _registers+48, %ds"); asm(" movw _registers+52, %es"); asm(" movw _registers+56, %fs"); asm(" movw _registers+60, %gs"); asm(" movl _registers+36, %eax"); asm(" pushl %eax"); /* saved eflags */ asm(" movl _registers+40, %eax"); asm(" pushl %eax"); /* saved cs */ asm(" movl _registers+32, %eax"); asm(" pushl %eax"); /* saved eip */ asm(" movl _registers, %eax"); /* use iret to restore pc and flags together so that trace flag works right. */ asm(" iret"); #define BREAKPOINT() asm(" int $3"); /* Put the error code here just in case the user cares. */ int gdb_i386errcode; /* Likewise, the vector number here (since GDB only gets the signal number through the usual means, and that's not very specific). */ int gdb_i386vector = -1; /* GDB stores segment registers in 32-bit words (that's just the way m-i386v.h is written). So zero the appropriate areas in registers. */ #define SAVE_REGISTERS1() \ asm ("movl %eax, _registers"); \ asm ("movl %ecx, _registers+4"); \ asm ("movl %edx, _registers+8"); \ asm ("movl %ebx, _registers+12"); \ asm ("movl %ebp, _registers+20"); \ asm ("movl %esi, _registers+24"); \ asm ("movl %edi, _registers+28"); \ asm ("movw $0, %ax"); \ asm ("movw %ds, _registers+48"); \ asm ("movw %ax, _registers+50"); \ asm ("movw %es, _registers+52"); \ asm ("movw %ax, _registers+54"); \ asm ("movw %fs, _registers+56"); \ asm ("movw %ax, _registers+58"); \ asm ("movw %gs, _registers+60"); \ asm ("movw %ax, _registers+62"); #define SAVE_ERRCODE() \ asm ("popl %ebx"); \ asm ("movl %ebx, _gdb_i386errcode"); #define SAVE_REGISTERS2() \ asm ("popl %ebx"); /* old eip */ \ asm ("movl %ebx, _registers+32"); \ asm ("popl %ebx"); /* old cs */ \ asm ("movl %ebx, _registers+40"); \ asm ("movw %ax, _registers+42"); \ asm ("popl %ebx"); /* old eflags */ \ asm ("movl %ebx, _registers+36"); \ /* Now that we've done the pops, we can save the stack pointer."); */ \ asm ("movw %ss, _registers+44"); \ asm ("movw %ax, _registers+46"); \ asm ("movl %esp, _registers+16"); /* See if mem_fault_routine is set, if so just IRET to that address. */ #define CHECK_FAULT() \ asm ("cmpl $0, _mem_fault_routine"); \ asm ("jne mem_fault"); asm (".text"); asm ("mem_fault:"); /* OK to clobber temp registers; we're just going to end up in set_mem_err. */ /* Pop error code from the stack and save it. */ asm (" popl %eax"); asm (" movl %eax, _gdb_i386errcode"); asm (" popl %eax"); /* eip */ /* We don't want to return there, we want to return to the function pointed to by mem_fault_routine instead. */ asm (" movl _mem_fault_routine, %eax"); asm (" popl %ecx"); /* cs (low 16 bits; junk in hi 16 bits). */ asm (" popl %edx"); /* eflags */ /* Remove this stack frame; when we do the iret, we will be going to the start of a function, so we want the stack to look just like it would after a "call" instruction. */ asm (" leave"); /* Push the stuff that iret wants. */ asm (" pushl %edx"); /* eflags */ asm (" pushl %ecx"); /* cs */ asm (" pushl %eax"); /* eip */ /* Zero mem_fault_routine. */ asm (" movl $0, %eax"); asm (" movl %eax, _mem_fault_routine"); asm ("iret"); #define CALL_HOOK() asm("call _remcomHandler"); /* This function is called when a i386 exception occurs. It saves * all the cpu regs in the _registers array, munges the stack a bit, * and invokes an exception handler (remcom_handler). * * stack on entry: stack on exit: * old eflags vector number * old cs (zero-filled to 32 bits) * old eip * */ extern void _catchException3(); asm(".text"); asm(".globl __catchException3"); asm("__catchException3:"); SAVE_REGISTERS1(); SAVE_REGISTERS2(); asm ("pushl $3"); CALL_HOOK(); /* Same thing for exception 1. */ extern void _catchException1(); asm(".text"); asm(".globl __catchException1"); asm("__catchException1:"); SAVE_REGISTERS1(); SAVE_REGISTERS2(); asm ("pushl $1"); CALL_HOOK(); /* Same thing for exception 0. */ extern void _catchException0(); asm(".text"); asm(".globl __catchException0"); asm("__catchException0:"); SAVE_REGISTERS1(); SAVE_REGISTERS2(); asm ("pushl $0"); CALL_HOOK(); /* Same thing for exception 4. */ extern void _catchException4(); asm(".text"); asm(".globl __catchException4"); asm("__catchException4:"); SAVE_REGISTERS1(); SAVE_REGISTERS2(); asm ("pushl $4"); CALL_HOOK(); /* Same thing for exception 5. */ extern void _catchException5(); asm(".text"); asm(".globl __catchException5"); asm("__catchException5:"); SAVE_REGISTERS1(); SAVE_REGISTERS2(); asm ("pushl $5"); CALL_HOOK(); /* Same thing for exception 6. */ extern void _catchException6(); asm(".text"); asm(".globl __catchException6"); asm("__catchException6:"); SAVE_REGISTERS1(); SAVE_REGISTERS2(); asm ("pushl $6"); CALL_HOOK(); /* Same thing for exception 7. */ extern void _catchException7(); asm(".text"); asm(".globl __catchException7"); asm("__catchException7:"); SAVE_REGISTERS1(); SAVE_REGISTERS2(); asm ("pushl $7"); CALL_HOOK(); /* Same thing for exception 8. */ extern void _catchException8(); asm(".text"); asm(".globl __catchException8"); asm("__catchException8:"); SAVE_REGISTERS1(); SAVE_ERRCODE(); SAVE_REGISTERS2(); asm ("pushl $8"); CALL_HOOK(); /* Same thing for exception 9. */ extern void _catchException9(); asm(".text"); asm(".globl __catchException9"); asm("__catchException9:"); SAVE_REGISTERS1(); SAVE_REGISTERS2(); asm ("pushl $9"); CALL_HOOK(); /* Same thing for exception 10. */ extern void _catchException10(); asm(".text"); asm(".globl __catchException10"); asm("__catchException10:"); SAVE_REGISTERS1(); SAVE_ERRCODE(); SAVE_REGISTERS2(); asm ("pushl $10"); CALL_HOOK(); /* Same thing for exception 12. */ extern void _catchException12(); asm(".text"); asm(".globl __catchException12"); asm("__catchException12:"); SAVE_REGISTERS1(); SAVE_ERRCODE(); SAVE_REGISTERS2(); asm ("pushl $12"); CALL_HOOK(); /* Same thing for exception 16. */ extern void _catchException16(); asm(".text"); asm(".globl __catchException16"); asm("__catchException16:"); SAVE_REGISTERS1(); SAVE_REGISTERS2(); asm ("pushl $16"); CALL_HOOK(); /* For 13, 11, and 14 we have to deal with the CHECK_FAULT stuff. */ /* Same thing for exception 13. */ extern void _catchException13 (); asm (".text"); asm (".globl __catchException13"); asm ("__catchException13:"); CHECK_FAULT(); SAVE_REGISTERS1(); SAVE_ERRCODE(); SAVE_REGISTERS2(); asm ("pushl $13"); CALL_HOOK(); /* Same thing for exception 11. */ extern void _catchException11 (); asm (".text"); asm (".globl __catchException11"); asm ("__catchException11:"); CHECK_FAULT(); SAVE_REGISTERS1(); SAVE_ERRCODE(); SAVE_REGISTERS2(); asm ("pushl $11"); CALL_HOOK(); /* Same thing for exception 14. */ extern void _catchException14 (); asm (".text"); asm (".globl __catchException14"); asm ("__catchException14:"); CHECK_FAULT(); SAVE_REGISTERS1(); SAVE_ERRCODE(); SAVE_REGISTERS2(); asm ("pushl $14"); CALL_HOOK(); /* * remcomHandler is a front end for handle_exception. It moves the * stack pointer into an area reserved for debugger use. */ asm("_remcomHandler:"); asm(" popl %eax"); /* pop off return address */ asm(" popl %eax"); /* get the exception number */ asm(" movl _stackPtr, %esp"); /* move to remcom stack area */ asm(" pushl %eax"); /* push exception onto stack */ asm(" call _handle_exception"); /* this never returns */ void _returnFromException() { return_to_prog (); } int hex(ch) char ch; { if ((ch >= 'a') && (ch <= 'f')) return (ch-'a'+10); if ((ch >= '0') && (ch <= '9')) return (ch-'0'); if ((ch >= 'A') && (ch <= 'F')) return (ch-'A'+10); return (-1); } /* scan for the sequence $# */ void getpacket(buffer) char * buffer; { unsigned char checksum; unsigned char xmitcsum; int i; int count; char ch; do { /* wait around for the start character, ignore all other characters */ while ((ch = getDebugChar()) != '$'); checksum = 0; xmitcsum = -1; count = 0; /* now, read until a # or end of buffer is found */ while (count < BUFMAX) { ch = getDebugChar(); if (ch == '#') break; checksum = checksum + ch; buffer[count] = ch; count = count + 1; } buffer[count] = 0; if (ch == '#') { xmitcsum = hex(getDebugChar()) << 4; xmitcsum += hex(getDebugChar()); if ((remote_debug ) && (checksum != xmitcsum)) { fprintf (gdb ,"bad checksum. My count = 0x%x, sent=0x%x. buf=%s\n", checksum,xmitcsum,buffer); } if (checksum != xmitcsum) putDebugChar('-'); /* failed checksum */ else { putDebugChar('+'); /* successful transfer */ /* if a sequence char is present, reply the sequence ID */ if (buffer[2] == ':') { putDebugChar( buffer[0] ); putDebugChar( buffer[1] ); /* remove sequence chars from buffer */ count = strlen(buffer); for (i=3; i <= count; i++) buffer[i-3] = buffer[i]; } } } } while (checksum != xmitcsum); } /* send the packet in buffer. */ void putpacket(buffer) char * buffer; { unsigned char checksum; int count; char ch; /* $#. */ do { putDebugChar('$'); checksum = 0; count = 0; while (ch=buffer[count]) { if (! putDebugChar(ch)) return; checksum += ch; count += 1; } putDebugChar('#'); putDebugChar(hexchars[checksum >> 4]); putDebugChar(hexchars[checksum % 16]); } while (getDebugChar() != '+'); } char remcomInBuffer[BUFMAX]; char remcomOutBuffer[BUFMAX]; static short error; void debug_error(format, parm) char * format; char * parm; { if (remote_debug) fprintf (stderr,format,parm); } /* Address of a routine to RTE to if we get a memory fault. */ static volatile void (*mem_fault_routine)() = NULL; /* Indicate to caller of mem2hex or hex2mem that there has been an error. */ static volatile int mem_err = 0; void set_mem_err () { mem_err = 1; } /* These are separate functions so that they are so short and sweet that the compiler won't save any registers (if there is a fault to mem_fault, they won't get restored, so there better not be any saved). */ int get_char (addr) char *addr; { return *addr; } void set_char (addr, val) char *addr; int val; { *addr = val; } /* convert the memory pointed to by mem into hex, placing result in buf */ /* return a pointer to the last char put in buf (null) */ /* If MAY_FAULT is non-zero, then we should set mem_err in response to a fault; if zero treat a fault like any other fault in the stub. */ char* mem2hex(mem, buf, count, may_fault) char* mem; char* buf; int count; int may_fault; { int i; unsigned char ch; if (may_fault) mem_fault_routine = set_mem_err; for (i=0;i> 4]; *buf++ = hexchars[ch % 16]; } *buf = 0; if (may_fault) mem_fault_routine = NULL; return(buf); } /* convert the hex array pointed to by buf into binary to be placed in mem */ /* return a pointer to the character AFTER the last byte written */ char* hex2mem(buf, mem, count, may_fault) char* buf; char* mem; int count; int may_fault; { int i; unsigned char ch; if (may_fault) mem_fault_routine = set_mem_err; for (i=0;i=0) { *intValue = (*intValue <<4) | hexValue; numChars ++; } else break; (*ptr)++; } return (numChars); } /* * This function does all command procesing for interfacing to gdb. */ void handle_exception(int exceptionVector) { int sigval; int addr, length; char * ptr; int newPC; gdb_i386vector = exceptionVector; if (remote_debug) printf("vector=%d, sr=0x%x, pc=0x%x\n", exceptionVector, registers[ PS ], registers[ PC ]); /* reply to host that an exception has occurred */ sigval = computeSignal( exceptionVector ); remcomOutBuffer[0] = 'S'; remcomOutBuffer[1] = hexchars[sigval >> 4]; remcomOutBuffer[2] = hexchars[sigval % 16]; remcomOutBuffer[3] = 0; putpacket(remcomOutBuffer); while (1==1) { error = 0; remcomOutBuffer[0] = 0; getpacket(remcomInBuffer); switch (remcomInBuffer[0]) { case '?' : remcomOutBuffer[0] = 'S'; remcomOutBuffer[1] = hexchars[sigval >> 4]; remcomOutBuffer[2] = hexchars[sigval % 16]; remcomOutBuffer[3] = 0; break; case 'd' : remote_debug = !(remote_debug); /* toggle debug flag */ break; case 'g' : /* return the value of the CPU registers */ mem2hex((char*) registers, remcomOutBuffer, NUMREGBYTES, 0); break; case 'G' : /* set the value of the CPU registers - return OK */ hex2mem(&remcomInBuffer[1], (char*) registers, NUMREGBYTES, 0); strcpy(remcomOutBuffer,"OK"); break; /* mAA..AA,LLLL Read LLLL bytes at address AA..AA */ case 'm' : /* TRY TO READ %x,%x. IF SUCCEED, SET PTR = 0 */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr,&addr)) if (*(ptr++) == ',') if (hexToInt(&ptr,&length)) { ptr = 0; mem_err = 0; mem2hex((char*) addr, remcomOutBuffer, length, 1); if (mem_err) { strcpy (remcomOutBuffer, "E03"); debug_error ("memory fault"); } } if (ptr) { strcpy(remcomOutBuffer,"E01"); debug_error("malformed read memory command: %s",remcomInBuffer); } break; /* MAA..AA,LLLL: Write LLLL bytes at address AA.AA return OK */ case 'M' : /* TRY TO READ '%x,%x:'. IF SUCCEED, SET PTR = 0 */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr,&addr)) if (*(ptr++) == ',') if (hexToInt(&ptr,&length)) if (*(ptr++) == ':') { mem_err = 0; hex2mem(ptr, (char*) addr, length, 1); if (mem_err) { strcpy (remcomOutBuffer, "E03"); debug_error ("memory fault"); } else { strcpy(remcomOutBuffer,"OK"); } ptr = 0; } if (ptr) { strcpy(remcomOutBuffer,"E02"); debug_error("malformed write memory command: %s",remcomInBuffer); } break; /* cAA..AA Continue at address AA..AA(optional) */ /* sAA..AA Step one instruction from AA..AA(optional) */ case 'c' : case 's' : /* try to read optional parameter, pc unchanged if no parm */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr,&addr)) registers[ PC ] = addr; newPC = registers[ PC]; /* clear the trace bit */ registers[ PS ] &= 0xfffffeff; /* set the trace bit if we're stepping */ if (remcomInBuffer[0] == 's') registers[ PS ] |= 0x100; /* * If we found a match for the PC AND we are not returning * as a result of a breakpoint (33), * trace exception (9), nmi (31), jmp to * the old exception handler as if this code never ran. */ #if 0 /* Don't really think we need this, except maybe for protection exceptions. */ /* * invoke the previous handler. */ if (oldExceptionHook) (*oldExceptionHook) (frame->exceptionVector); newPC = registers[ PC ]; /* pc may have changed */ #endif /* 0 */ _returnFromException(); /* this is a jump */ break; /* kill the program */ case 'k' : /* do nothing */ #if 0 /* Huh? This doesn't look like "nothing". m68k-stub.c and sparc-stub.c don't have it. */ BREAKPOINT(); #endif break; } /* switch */ /* reply to the request */ putpacket(remcomOutBuffer); } } /* this function is used to set up exception handlers for tracing and breakpoints */ void set_debug_traps() { extern void remcomHandler(); int exception; stackPtr = &remcomStack[STACKSIZE/sizeof(int) - 1]; exceptionHandler (0, _catchException0); exceptionHandler (1, _catchException1); exceptionHandler (3, _catchException3); exceptionHandler (4, _catchException4); exceptionHandler (5, _catchException5); exceptionHandler (6, _catchException6); exceptionHandler (7, _catchException7); exceptionHandler (8, _catchException8); exceptionHandler (9, _catchException9); exceptionHandler (10, _catchException10); exceptionHandler (11, _catchException11); exceptionHandler (12, _catchException12); exceptionHandler (13, _catchException13); exceptionHandler (14, _catchException14); exceptionHandler (16, _catchException16); if (exceptionHook != remcomHandler) { oldExceptionHook = exceptionHook; exceptionHook = remcomHandler; } /* In case GDB is started before us, ack any packets (presumably "$?#xx") sitting there. */ putDebugChar ('+'); initialized = 1; } /* This function will generate a breakpoint exception. It is used at the beginning of a program to sync up with a debugger and can be used otherwise as a quick means to stop program execution and "break" into the debugger. */ void breakpoint() { if (initialized) #if 0 handle_exception(3); #else BREAKPOINT(); #endif waitabit(); } int waitlimit = 1000000; #if 0 void bogon() { waitabit(); } #endif void waitabit() { int i; for (i = 0; i < waitlimit; i++) ; } gdb-4.13/gdb/i386-tdep.c 666 34562 1752 42513 5535232760 13114 0ustar fnfcygnus/* Intel 386 target-dependent stuff. Copyright (C) 1988, 1989, 1991, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "gdbcore.h" #include "target.h" #include "floatformat.h" #include "symtab.h" static long i386_get_frame_setup PARAMS ((int)); static void i386_follow_jump PARAMS ((void)); static void codestream_read PARAMS ((unsigned char *, int)); static void codestream_seek PARAMS ((int)); static unsigned char codestream_fill PARAMS ((int)); /* helper functions for tm-i386.h */ /* Stdio style buffering was used to minimize calls to ptrace, but this buffering did not take into account that the code section being accessed may not be an even number of buffers long (even if the buffer is only sizeof(int) long). In cases where the code section size happened to be a non-integral number of buffers long, attempting to read the last buffer would fail. Simply using target_read_memory and ignoring errors, rather than read_memory, is not the correct solution, since legitimate access errors would then be totally ignored. To properly handle this situation and continue to use buffering would require that this code be able to determine the minimum code section size granularity (not the alignment of the section itself, since the actual failing case that pointed out this problem had a section alignment of 4 but was not a multiple of 4 bytes long), on a target by target basis, and then adjust it's buffer size accordingly. This is messy, but potentially feasible. It probably needs the bfd library's help and support. For now, the buffer size is set to 1. (FIXME -fnf) */ #define CODESTREAM_BUFSIZ 1 /* Was sizeof(int), see note above. */ static CORE_ADDR codestream_next_addr; static CORE_ADDR codestream_addr; static unsigned char codestream_buf[CODESTREAM_BUFSIZ]; static int codestream_off; static int codestream_cnt; #define codestream_tell() (codestream_addr + codestream_off) #define codestream_peek() (codestream_cnt == 0 ? \ codestream_fill(1): codestream_buf[codestream_off]) #define codestream_get() (codestream_cnt-- == 0 ? \ codestream_fill(0) : codestream_buf[codestream_off++]) static unsigned char codestream_fill (peek_flag) int peek_flag; { codestream_addr = codestream_next_addr; codestream_next_addr += CODESTREAM_BUFSIZ; codestream_off = 0; codestream_cnt = CODESTREAM_BUFSIZ; read_memory (codestream_addr, (char *) codestream_buf, CODESTREAM_BUFSIZ); if (peek_flag) return (codestream_peek()); else return (codestream_get()); } static void codestream_seek (place) int place; { codestream_next_addr = place / CODESTREAM_BUFSIZ; codestream_next_addr *= CODESTREAM_BUFSIZ; codestream_cnt = 0; codestream_fill (1); while (codestream_tell() != place) codestream_get (); } static void codestream_read (buf, count) unsigned char *buf; int count; { unsigned char *p; int i; p = buf; for (i = 0; i < count; i++) *p++ = codestream_get (); } /* next instruction is a jump, move to target */ static void i386_follow_jump () { unsigned char buf[4]; long delta; int data16; CORE_ADDR pos; pos = codestream_tell (); data16 = 0; if (codestream_peek () == 0x66) { codestream_get (); data16 = 1; } switch (codestream_get ()) { case 0xe9: /* relative jump: if data16 == 0, disp32, else disp16 */ if (data16) { codestream_read (buf, 2); delta = extract_signed_integer (buf, 2); /* include size of jmp inst (including the 0x66 prefix). */ pos += delta + 4; } else { codestream_read (buf, 4); delta = extract_signed_integer (buf, 4); pos += delta + 5; } break; case 0xeb: /* relative jump, disp8 (ignore data16) */ codestream_read (buf, 1); /* Sign-extend it. */ delta = extract_signed_integer (buf, 1); pos += delta + 2; break; } codestream_seek (pos); } /* * find & return amound a local space allocated, and advance codestream to * first register push (if any) * * if entry sequence doesn't make sense, return -1, and leave * codestream pointer random */ static long i386_get_frame_setup (pc) int pc; { unsigned char op; codestream_seek (pc); i386_follow_jump (); op = codestream_get (); if (op == 0x58) /* popl %eax */ { /* * this function must start with * * popl %eax 0x58 * xchgl %eax, (%esp) 0x87 0x04 0x24 * or xchgl %eax, 0(%esp) 0x87 0x44 0x24 0x00 * * (the system 5 compiler puts out the second xchg * inst, and the assembler doesn't try to optimize it, * so the 'sib' form gets generated) * * this sequence is used to get the address of the return * buffer for a function that returns a structure */ int pos; unsigned char buf[4]; static unsigned char proto1[3] = { 0x87,0x04,0x24 }; static unsigned char proto2[4] = { 0x87,0x44,0x24,0x00 }; pos = codestream_tell (); codestream_read (buf, 4); if (memcmp (buf, proto1, 3) == 0) pos += 3; else if (memcmp (buf, proto2, 4) == 0) pos += 4; codestream_seek (pos); op = codestream_get (); /* update next opcode */ } if (op == 0x55) /* pushl %ebp */ { /* check for movl %esp, %ebp - can be written two ways */ switch (codestream_get ()) { case 0x8b: if (codestream_get () != 0xec) return (-1); break; case 0x89: if (codestream_get () != 0xe5) return (-1); break; default: return (-1); } /* check for stack adjustment * * subl $XXX, %esp * * note: you can't subtract a 16 bit immediate * from a 32 bit reg, so we don't have to worry * about a data16 prefix */ op = codestream_peek (); if (op == 0x83) { /* subl with 8 bit immed */ codestream_get (); if (codestream_get () != 0xec) /* Some instruction starting with 0x83 other than subl. */ { codestream_seek (codestream_tell () - 2); return 0; } /* subl with signed byte immediate * (though it wouldn't make sense to be negative) */ return (codestream_get()); } else if (op == 0x81) { char buf[4]; /* Maybe it is subl with 32 bit immedediate. */ codestream_get(); if (codestream_get () != 0xec) /* Some instruction starting with 0x81 other than subl. */ { codestream_seek (codestream_tell () - 2); return 0; } /* It is subl with 32 bit immediate. */ codestream_read ((unsigned char *)buf, 4); return extract_signed_integer (buf, 4); } else { return (0); } } else if (op == 0xc8) { char buf[2]; /* enter instruction: arg is 16 bit unsigned immed */ codestream_read ((unsigned char *)buf, 2); codestream_get (); /* flush final byte of enter instruction */ return extract_unsigned_integer (buf, 2); } return (-1); } /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ int i386_frame_num_args (fi) struct frame_info *fi; { #if 1 return -1; #else /* This loses because not only might the compiler not be popping the args right after the function call, it might be popping args from both this call and a previous one, and we would say there are more args than there really are. */ int retpc; unsigned char op; struct frame_info *pfi; /* on the 386, the instruction following the call could be: popl %ecx - one arg addl $imm, %esp - imm/4 args; imm may be 8 or 32 bits anything else - zero args */ int frameless; FRAMELESS_FUNCTION_INVOCATION (fi, frameless); if (frameless) /* In the absence of a frame pointer, GDB doesn't get correct values for nameless arguments. Return -1, so it doesn't print any nameless arguments. */ return -1; pfi = get_prev_frame_info (fi); if (pfi == 0) { /* Note: this can happen if we are looking at the frame for main, because FRAME_CHAIN_VALID won't let us go into start. If we have debugging symbols, that's not really a big deal; it just means it will only show as many arguments to main as are declared. */ return -1; } else { retpc = pfi->pc; op = read_memory_integer (retpc, 1); if (op == 0x59) /* pop %ecx */ return 1; else if (op == 0x83) { op = read_memory_integer (retpc+1, 1); if (op == 0xc4) /* addl $, %esp */ return (read_memory_integer (retpc+2,1)&0xff)/4; else return 0; } else if (op == 0x81) { /* add with 32 bit immediate */ op = read_memory_integer (retpc+1, 1); if (op == 0xc4) /* addl $, %esp */ return read_memory_integer (retpc+2, 4) / 4; else return 0; } else { return 0; } } #endif } /* * parse the first few instructions of the function to see * what registers were stored. * * We handle these cases: * * The startup sequence can be at the start of the function, * or the function can start with a branch to startup code at the end. * * %ebp can be set up with either the 'enter' instruction, or * 'pushl %ebp, movl %esp, %ebp' (enter is too slow to be useful, * but was once used in the sys5 compiler) * * Local space is allocated just below the saved %ebp by either the * 'enter' instruction, or by 'subl $, %esp'. 'enter' has * a 16 bit unsigned argument for space to allocate, and the * 'addl' instruction could have either a signed byte, or * 32 bit immediate. * * Next, the registers used by this function are pushed. In * the sys5 compiler they will always be in the order: %edi, %esi, %ebx * (and sometimes a harmless bug causes it to also save but not restore %eax); * however, the code below is willing to see the pushes in any order, * and will handle up to 8 of them. * * If the setup sequence is at the end of the function, then the * next instruction will be a branch back to the start. */ void i386_frame_find_saved_regs (fip, fsrp) struct frame_info *fip; struct frame_saved_regs *fsrp; { long locals; unsigned char op; CORE_ADDR dummy_bottom; CORE_ADDR adr; int i; memset (fsrp, 0, sizeof *fsrp); /* if frame is the end of a dummy, compute where the * beginning would be */ dummy_bottom = fip->frame - 4 - REGISTER_BYTES - CALL_DUMMY_LENGTH; /* check if the PC is in the stack, in a dummy frame */ if (dummy_bottom <= fip->pc && fip->pc <= fip->frame) { /* all regs were saved by push_call_dummy () */ adr = fip->frame; for (i = 0; i < NUM_REGS; i++) { adr -= REGISTER_RAW_SIZE (i); fsrp->regs[i] = adr; } return; } locals = i386_get_frame_setup (get_pc_function_start (fip->pc)); if (locals >= 0) { adr = fip->frame - 4 - locals; for (i = 0; i < 8; i++) { op = codestream_get (); if (op < 0x50 || op > 0x57) break; #ifdef I386_REGNO_TO_SYMMETRY /* Dynix uses different internal numbering. Ick. */ fsrp->regs[I386_REGNO_TO_SYMMETRY(op - 0x50)] = adr; #else fsrp->regs[op - 0x50] = adr; #endif adr -= 4; } } fsrp->regs[PC_REGNUM] = fip->frame + 4; fsrp->regs[FP_REGNUM] = fip->frame; } /* return pc of first real instruction */ int i386_skip_prologue (pc) int pc; { unsigned char op; int i; static unsigned char pic_pat[6] = { 0xe8, 0, 0, 0, 0, /* call 0x0 */ 0x5b, /* popl %ebx */ }; CORE_ADDR pos; if (i386_get_frame_setup (pc) < 0) return (pc); /* found valid frame setup - codestream now points to * start of push instructions for saving registers */ /* skip over register saves */ for (i = 0; i < 8; i++) { op = codestream_peek (); /* break if not pushl inst */ if (op < 0x50 || op > 0x57) break; codestream_get (); } /* The native cc on SVR4 in -K PIC mode inserts the following code to get the address of the global offset table (GOT) into register %ebx. call 0x0 popl %ebx movl %ebx,x(%ebp) (optional) addl y,%ebx This code is with the rest of the prologue (at the end of the function), so we have to skip it to get to the first real instruction at the start of the function. */ pos = codestream_tell (); for (i = 0; i < 6; i++) { op = codestream_get (); if (pic_pat [i] != op) break; } if (i == 6) { unsigned char buf[4]; long delta = 6; op = codestream_get (); if (op == 0x89) /* movl %ebx, x(%ebp) */ { op = codestream_get (); if (op == 0x5d) /* one byte offset from %ebp */ { delta += 3; codestream_read (buf, 1); } else if (op == 0x9d) /* four byte offset from %ebp */ { delta += 6; codestream_read (buf, 4); } else /* unexpected instruction */ delta = -1; op = codestream_get (); } /* addl y,%ebx */ if (delta > 0 && op == 0x81 && codestream_get () == 0xc3) { pos += delta + 6; } } codestream_seek (pos); i386_follow_jump (); return (codestream_tell ()); } void i386_push_dummy_frame () { CORE_ADDR sp = read_register (SP_REGNUM); int regnum; char regbuf[MAX_REGISTER_RAW_SIZE]; sp = push_word (sp, read_register (PC_REGNUM)); sp = push_word (sp, read_register (FP_REGNUM)); write_register (FP_REGNUM, sp); for (regnum = 0; regnum < NUM_REGS; regnum++) { read_register_gen (regnum, regbuf); sp = push_bytes (sp, regbuf, REGISTER_RAW_SIZE (regnum)); } write_register (SP_REGNUM, sp); } void i386_pop_frame () { FRAME frame = get_current_frame (); CORE_ADDR fp; int regnum; struct frame_saved_regs fsr; struct frame_info *fi; char regbuf[MAX_REGISTER_RAW_SIZE]; fi = get_frame_info (frame); fp = fi->frame; get_frame_saved_regs (fi, &fsr); for (regnum = 0; regnum < NUM_REGS; regnum++) { CORE_ADDR adr; adr = fsr.regs[regnum]; if (adr) { read_memory (adr, regbuf, REGISTER_RAW_SIZE (regnum)); write_register_bytes (REGISTER_BYTE (regnum), regbuf, REGISTER_RAW_SIZE (regnum)); } } write_register (FP_REGNUM, read_memory_integer (fp, 4)); write_register (PC_REGNUM, read_memory_integer (fp + 4, 4)); write_register (SP_REGNUM, fp + 8); flush_cached_frames (); set_current_frame ( create_new_frame (read_register (FP_REGNUM), read_pc ())); } #ifdef GET_LONGJMP_TARGET /* Figure out where the longjmp will land. Slurp the args out of the stack. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into PC. This routine returns true on success. */ int get_longjmp_target(pc) CORE_ADDR *pc; { char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT]; CORE_ADDR sp, jb_addr; sp = read_register (SP_REGNUM); if (target_read_memory (sp + SP_ARG0, /* Offset of first arg on stack */ buf, TARGET_PTR_BIT / TARGET_CHAR_BIT)) return 0; jb_addr = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT); if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf, TARGET_PTR_BIT / TARGET_CHAR_BIT)) return 0; *pc = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT); return 1; } #endif /* GET_LONGJMP_TARGET */ #ifdef I386_AIX_TARGET /* On AIX, floating point values are returned in floating point registers. */ void i386_extract_return_value(type, regbuf, valbuf) struct type *type; char regbuf[REGISTER_BYTES]; char *valbuf; { if (TYPE_CODE_FLT == TYPE_CODE(type)) { double d; /* 387 %st(0), gcc uses this */ floatformat_to_double (&floatformat_i387_ext, ®buf[REGISTER_BYTE(FP0_REGNUM)], &d); store_floating (valbuf, TYPE_LENGTH (type), d); } else { memcpy (valbuf, regbuf, TYPE_LENGTH (type)); } } #endif /* I386_AIX_TARGET */ #ifdef I386V4_SIGTRAMP_SAVED_PC /* Get saved user PC for sigtramp from the pushed ucontext on the stack for all three variants of SVR4 sigtramps. */ CORE_ADDR i386v4_sigtramp_saved_pc (frame) FRAME frame; { CORE_ADDR saved_pc_offset = 4; char *name = NULL; find_pc_partial_function (frame->pc, &name, (CORE_ADDR *)NULL,(CORE_ADDR *)NULL); if (name) { if (STREQ (name, "_sigreturn")) saved_pc_offset = 132 + 14 * 4; else if (STREQ (name, "_sigacthandler")) saved_pc_offset = 80 + 14 * 4; else if (STREQ (name, "sigvechandler")) saved_pc_offset = 120 + 14 * 4; } if (frame->next) return read_memory_integer (frame->next->frame + saved_pc_offset, 4); return read_memory_integer (read_register (SP_REGNUM) + saved_pc_offset, 4); } #endif /* I386V4_SIGTRAMP_SAVED_PC */ gdb-4.13/gdb/i386aix-nat.c 666 34562 1752 17652 5534304345 13450 0ustar fnfcygnus/* Intel 386 native support. Copyright (C) 1988, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "language.h" #include "gdbcore.h" #ifdef USG #include #endif #include #include #include #include #include #include #include #include #include #include /* Does AIX define this in ? */ extern int errno; #ifndef NO_SYS_REG_H #include #endif #include "floatformat.h" #include "target.h" /* this table must line up with REGISTER_NAMES in tm-i386v.h */ /* symbols like 'EAX' come from */ static int regmap[] = { EAX, ECX, EDX, EBX, USP, EBP, ESI, EDI, EIP, EFL, CS, SS, DS, ES, FS, GS, }; /* blockend is the value of u.u_ar0, and points to the * place where GS is stored */ int i386_register_u_addr (blockend, regnum) int blockend; int regnum; { #if 0 /* this will be needed if fp registers are reinstated */ /* for now, you can look at them with 'info float' * sys5 wont let you change them with ptrace anyway */ if (regnum >= FP0_REGNUM && regnum <= FP7_REGNUM) { int ubase, fpstate; struct user u; ubase = blockend + 4 * (SS + 1) - KSTKSZ; fpstate = ubase + ((char *)&u.u_fpstate - (char *)&u); return (fpstate + 0x1c + 10 * (regnum - FP0_REGNUM)); } else #endif return (blockend + 4 * regmap[regnum]); } /* The code below only work on the aix ps/2 (i386-ibm-aix) - * mtranle@paris - Sat Apr 11 10:34:12 1992 */ struct env387 { unsigned short control; unsigned short r0; unsigned short status; unsigned short r1; unsigned short tag; unsigned short r2; unsigned long eip; unsigned short code_seg; unsigned short opcode; unsigned long operand; unsigned short operand_seg; unsigned short r3; unsigned char regs[8][10]; }; static print_387_status (status, ep) unsigned short status; struct env387 *ep; { int i; int bothstatus; int top; int fpreg; unsigned char *p; bothstatus = ((status != 0) && (ep->status != 0)); if (status != 0) { if (bothstatus) printf_unfiltered ("u: "); print_387_status_word (status); } if (ep->status != 0) { if (bothstatus) printf_unfiltered ("e: "); print_387_status_word (ep->status); } print_387_control_word (ep->control); printf_unfiltered ("last exception: "); printf_unfiltered ("opcode %s; ", local_hex_string(ep->opcode)); printf_unfiltered ("pc %s:", local_hex_string(ep->code_seg)); printf_unfiltered ("%s; ", local_hex_string(ep->eip)); printf_unfiltered ("operand %s", local_hex_string(ep->operand_seg)); printf_unfiltered (":%s\n", local_hex_string(ep->operand)); top = ((ep->status >> 11) & 7); printf_unfiltered ("regno tag msb lsb value\n"); for (fpreg = 7; fpreg >= 0; fpreg--) { double val; printf_unfiltered ("%s %d: ", fpreg == top ? "=>" : " ", fpreg); switch ((ep->tag >> ((7 - fpreg) * 2)) & 3) { case 0: printf_unfiltered ("valid "); break; case 1: printf_unfiltered ("zero "); break; case 2: printf_unfiltered ("trap "); break; case 3: printf_unfiltered ("empty "); break; } for (i = 9; i >= 0; i--) printf_unfiltered ("%02x", ep->regs[fpreg][i]); i387_to_double ((char *)ep->regs[fpreg], (char *)&val); printf_unfiltered (" %#g\n", val); } } static struct env387 core_env387; void i386_float_info () { struct env387 fps; int fpsaved = 0; /* We need to reverse the order of the registers. Apparently AIX stores the highest-numbered ones first. */ struct env387 fps_fixed; int i; if (inferior_pid) { char buf[10]; unsigned short status; ptrace (PT_READ_FPR, inferior_pid, buf, offsetof(struct env387, status)); memcpy (&status, buf, sizeof (status)); fpsaved = status; } else { if ((fpsaved = core_env387.status) != 0) memcpy(&fps, &core_env387, sizeof(fps)); } if (fpsaved == 0) { printf_unfiltered ("no floating point status saved\n"); return; } if (inferior_pid) { int offset; for (offset = 0; offset < sizeof(fps); offset += 10) { char buf[10]; ptrace (PT_READ_FPR, inferior_pid, buf, offset); memcpy ((char *)&fps.control + offset, buf, MIN(10, sizeof(fps) - offset)); } } fps_fixed = fps; for (i = 0; i < 8; ++i) memcpy (fps_fixed.regs[i], fps.regs[7 - i], 10); print_387_status (0, &fps_fixed); } /* Fetch one register. */ static void fetch_register (regno) int regno; { char buf[MAX_REGISTER_RAW_SIZE]; if (regno < FP0_REGNUM) *(int *)buf = ptrace (PT_READ_GPR, inferior_pid, PT_REG(regmap[regno]), 0, 0); else ptrace (PT_READ_FPR, inferior_pid, buf, (regno - FP0_REGNUM)*10 + offsetof(struct env387, regs)); supply_register (regno, buf); } void fetch_inferior_registers (regno) int regno; { if (regno < 0) for (regno = 0; regno < NUM_REGS; regno++) fetch_register (regno); else fetch_register (regno); } /* store one register */ static void store_register (regno) int regno; { char buf[80]; extern char registers[]; errno = 0; if (regno < FP0_REGNUM) ptrace (PT_WRITE_GPR, inferior_pid, PT_REG(regmap[regno]), *(int *) ®isters[REGISTER_BYTE (regno)], 0); else ptrace (PT_WRITE_FPR, inferior_pid, ®isters[REGISTER_BYTE (regno)], (regno - FP0_REGNUM)*10 + offsetof(struct env387, regs)); if (errno != 0) { sprintf (buf, "writing register number %d", regno); perror_with_name (buf); } } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { if (regno < 0) for (regno = 0; regno < NUM_REGS; regno++) store_register (regno); else store_register (regno); } #ifndef CD_AX /* defined in sys/i386/coredump.h */ # define CD_AX 0 # define CD_BX 1 # define CD_CX 2 # define CD_DX 3 # define CD_SI 4 # define CD_DI 5 # define CD_BP 6 # define CD_SP 7 # define CD_FL 8 # define CD_IP 9 # define CD_CS 10 # define CD_DS 11 # define CD_ES 12 # define CD_FS 13 # define CD_GS 14 # define CD_SS 15 #endif /* * The order here in core_regmap[] has to be the same as in * regmap[] above. */ static int core_regmap[] = { CD_AX, CD_CX, CD_DX, CD_BX, CD_SP, CD_BP, CD_SI, CD_DI, CD_IP, CD_FL, CD_CS, CD_SS, CD_DS, CD_ES, CD_FS, CD_GS, }; void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned int reg_addr; /* ignored */ { if (which == 0) { /* Integer registers */ #define cd_regs(n) ((int *)core_reg_sect)[n] #define regs(n) *((int *) ®isters[REGISTER_BYTE (n)]) int i; for (i = 0; i < FP0_REGNUM; i++) regs(i) = cd_regs(core_regmap[i]); } else if (which == 2) { /* Floating point registers */ if (core_reg_size >= sizeof (core_env387)) memcpy (&core_env387, core_reg_sect, core_reg_size); else fprintf_unfiltered (gdb_stderr, "Couldn't read float regs from core file\n"); } } gdb-4.13/gdb/i386b-nat.c 666 34562 1752 4025 5513321141 13044 0ustar fnfcygnus/* Native-dependent code for BSD Unix running on i386's, for GDB. Copyright 1988, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include /* this table must line up with REGISTER_NAMES in tm-i386.h */ /* symbols like 'tEAX' come from */ static int tregmap[] = { tEAX, tECX, tEDX, tEBX, tESP, tEBP, tESI, tEDI, tEIP, tEFLAGS, tCS, tSS }; #ifdef sEAX static int sregmap[] = { sEAX, sECX, sEDX, sEBX, sESP, sEBP, sESI, sEDI, sEIP, sEFLAGS, sCS, sSS }; #else /* No sEAX */ /* NetBSD has decided to collapse the s* and t* symbols. So if the s* ones aren't around, use the t* ones for sregmap too. */ static int sregmap[] = { tEAX, tECX, tEDX, tEBX, tESP, tEBP, tESI, tEDI, tEIP, tEFLAGS, tCS, tSS }; #endif /* No sEAX */ /* blockend is the value of u.u_ar0, and points to the place where ES is stored. */ int i386_register_u_addr (blockend, regnum) int blockend; int regnum; { /* The following condition is a kludge to get at the proper register map depending upon the state of pcb_flag. The proper condition would be if (u.u_pcb.pcb_flag & FM_TRAP) but that would require a ptrace call here and wouldn't work for corefiles. */ if (blockend < 0x1fcc) return (blockend + 4 * tregmap[regnum]); else return (blockend + 4 * sregmap[regnum]); } gdb-4.13/gdb/i386ly-tdep.c 666 34562 1752 3136 5476450030 13433 0ustar fnfcygnus/* Target-dependent code for Intel 386 running LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "target.h" /* Return the PC of the caller from the call frame. Assumes the subr prologue has already been executed, and the frame pointer setup. If this is the outermost frame, we check to see if we are in a system call by examining the previous instruction. If so, then the return PC is actually at SP+4 because system calls use a different calling sequence. */ CORE_ADDR i386lynx_saved_pc_after_call (frame) struct frame_info *frame; { char opcode[7]; static const unsigned char call_inst[] = {0x9a, 0, 0, 0, 0, 8, 0}; /* lcall 0x8,0x0 */ read_memory (frame->pc - 7, opcode, 7); if (memcmp (opcode, call_inst, 7) == 0) return read_memory_integer (read_register (SP_REGNUM) + 4, 4); return read_memory_integer (read_register (SP_REGNUM), 4); } gdb-4.13/gdb/i386m3-nat.c 666 34562 1752 26135 5544734023 13203 0ustar fnfcygnus/* Low level interface to I386 running mach 3.0. Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "floatformat.h" #include #include #include #include #include /* Hmmm... Should this not be here? * Now for i386_float_info() target_has_execution */ #include /* This mess is duplicated in bfd/i386mach3.h * * This is an ugly way to hack around the incorrect * definition of UPAGES in i386/machparam.h. * * The definition should specify the size reserved * for "struct user" in core files in PAGES, * but instead it gives it in 512-byte core-clicks * for i386 and i860. */ #include #if UPAGES == 16 #define UAREA_SIZE ctob(UPAGES) #elif UPAGES == 2 #define UAREA_SIZE (NBPG*UPAGES) #else FIXME!! UPAGES is neither 2 nor 16 #endif /* @@@ Should move print_387_status() to i387-tdep.c */ extern void print_387_control_word (); /* i387-tdep.h */ extern void print_387_status_word (); #define private static /* Find offsets to thread states at compile time. * If your compiler does not grok this, calculate offsets * offsets yourself and use them (or get a compatible compiler :-) */ #define REG_OFFSET(reg) (int)(&((struct i386_thread_state *)0)->reg) /* at reg_offset[i] is the offset to the i386_thread_state * location where the gdb registers[i] is stored. */ static int reg_offset[] = { REG_OFFSET(eax), REG_OFFSET(ecx), REG_OFFSET(edx), REG_OFFSET(ebx), REG_OFFSET(uesp), REG_OFFSET(ebp), REG_OFFSET(esi), REG_OFFSET(edi), REG_OFFSET(eip), REG_OFFSET(efl), REG_OFFSET(cs), REG_OFFSET(ss), REG_OFFSET(ds), REG_OFFSET(es), REG_OFFSET(fs), REG_OFFSET(gs) }; #define REG_ADDRESS(state,regnum) ((char *)(state)+reg_offset[regnum]) /* Fetch COUNT contiguous registers from thread STATE starting from REGNUM * Caller knows that the regs handled in one transaction are of same size. */ #define FETCH_REGS(state, regnum, count) \ memcpy (®isters[REGISTER_BYTE (regnum)], \ REG_ADDRESS (state, regnum), \ count*REGISTER_SIZE) /* Store COUNT contiguous registers to thread STATE starting from REGNUM */ #define STORE_REGS(state, regnum, count) \ memcpy (REG_ADDRESS (state, regnum), \ ®isters[REGISTER_BYTE (regnum)], \ count*REGISTER_SIZE) /* * Fetch inferiors registers for gdb. * REGNO specifies which (as gdb views it) register, -1 for all. */ void fetch_inferior_registers (regno) int regno; { kern_return_t ret; thread_state_data_t state; unsigned int stateCnt = i386_THREAD_STATE_COUNT; int index; if (! MACH_PORT_VALID (current_thread)) error ("fetch inferior registers: Invalid thread"); if (must_suspend_thread) setup_thread (current_thread, 1); ret = thread_get_state (current_thread, i386_THREAD_STATE, state, &stateCnt); if (ret != KERN_SUCCESS) warning ("fetch_inferior_registers: %s ", mach_error_string (ret)); #if 0 /* It may be more effective to store validate all of them, * since we fetched them all anyway */ else if (regno != -1) supply_register (regno, (char *)state+reg_offset[regno]); #endif else { for (index = 0; index < NUM_REGS; index++) supply_register (index, (char *)state+reg_offset[index]); } if (must_suspend_thread) setup_thread (current_thread, 0); } /* Store our register values back into the inferior. * If REGNO is -1, do this for all registers. * Otherwise, REGNO specifies which register * * On mach3 all registers are always saved in one call. */ void store_inferior_registers (regno) int regno; { kern_return_t ret; thread_state_data_t state; unsigned int stateCnt = i386_THREAD_STATE_COUNT; register int index; if (! MACH_PORT_VALID (current_thread)) error ("store inferior registers: Invalid thread"); if (must_suspend_thread) setup_thread (current_thread, 1); /* Fetch the state of the current thread */ ret = thread_get_state (current_thread, i386_THREAD_STATE, state, &stateCnt); if (ret != KERN_SUCCESS) { warning ("store_inferior_registers (get): %s", mach_error_string (ret)); if (must_suspend_thread) setup_thread (current_thread, 0); return; } /* move gdb's registers to thread's state * * Since we save all registers anyway, save the ones * that gdb thinks are valid (e.g. ignore the regno * parameter) */ #if 0 if (regno != -1) STORE_REGS (state, regno, 1); else #endif { for (index = 0; index < NUM_REGS; index++) STORE_REGS (state, index, 1); } /* Write gdb's current view of register to the thread */ ret = thread_set_state (current_thread, i386_THREAD_STATE, state, i386_THREAD_STATE_COUNT); if (ret != KERN_SUCCESS) warning ("store_inferior_registers (set): %s", mach_error_string (ret)); if (must_suspend_thread) setup_thread (current_thread, 0); } /* Return the address in the core dump or inferior of register REGNO. * BLOCKEND should be the address of the end of the UPAGES area read * in memory, but it's not? * * Currently our UX server dumps the whole thread state to the * core file. If your UX does something else, adapt the routine * below to return the offset to the given register. * * Called by coredep.c(fetch_core_registers) */ unsigned int register_addr (regno, blockend) int regno; int blockend; { unsigned int addr; if (regno < 0 || regno >= NUM_REGS) error ("Invalid register number %d.", regno); /* UAREA_SIZE == 8 kB in i386 */ addr = (unsigned int)REG_ADDRESS (UAREA_SIZE - sizeof(struct i386_thread_state), regno); return addr; } /* jtv@hut.fi: I copied and modified this 387 code from * gdb/i386-xdep.c. Modifications for Mach 3.0. * * i387 status dumper. See also i387-tdep.c */ struct env387 { unsigned short control; unsigned short r0; unsigned short status; unsigned short r1; unsigned short tag; unsigned short r2; unsigned long eip; unsigned short code_seg; unsigned short opcode; unsigned long operand; unsigned short operand_seg; unsigned short r3; unsigned char regs[8][10]; }; /* This routine is machine independent? * Should move it to i387-tdep.c but you need to export struct env387 */ private print_387_status (status, ep) unsigned short status; struct env387 *ep; { int i; int bothstatus; int top; int fpreg; unsigned char *p; bothstatus = ((status != 0) && (ep->status != 0)); if (status != 0) { if (bothstatus) printf_unfiltered ("u: "); print_387_status_word (status); } if (ep->status != 0) { if (bothstatus) printf_unfiltered ("e: "); print_387_status_word (ep->status); } print_387_control_word (ep->control); printf_unfiltered ("last exception: "); printf_unfiltered ("opcode %s; ", local_hex_string(ep->opcode)); printf_unfiltered ("pc %s:", local_hex_string(ep->code_seg)); printf_unfiltered ("%s; ", local_hex_string(ep->eip)); printf_unfiltered ("operand %s", local_hex_string(ep->operand_seg)); printf_unfiltered (":%s\n", local_hex_string(ep->operand)); top = (ep->status >> 11) & 7; printf_unfiltered ("regno tag msb lsb value\n"); for (fpreg = 7; fpreg >= 0; fpreg--) { double val; printf_unfiltered ("%s %d: ", fpreg == top ? "=>" : " ", fpreg); switch ((ep->tag >> (fpreg * 2)) & 3) { case 0: printf_unfiltered ("valid "); break; case 1: printf_unfiltered ("zero "); break; case 2: printf_unfiltered ("trap "); break; case 3: printf_unfiltered ("empty "); break; } for (i = 9; i >= 0; i--) printf_unfiltered ("%02x", ep->regs[fpreg][i]); floatformat_to_double (&floatformat_i387_ext, (char *)ep->regs[fpreg], &val); printf_unfiltered (" %g\n", val); } if (ep->r0) printf_unfiltered ("warning: reserved0 is %s\n", local_hex_string(ep->r0)); if (ep->r1) printf_unfiltered ("warning: reserved1 is %s\n", local_hex_string(ep->r1)); if (ep->r2) printf_unfiltered ("warning: reserved2 is %s\n", local_hex_string(ep->r2)); if (ep->r3) printf_unfiltered ("warning: reserved3 is %s\n", local_hex_string(ep->r3)); } /* * values that go into fp_kind (from ) */ #define FP_NO 0 /* no fp chip, no emulator (no fp support) */ #define FP_SW 1 /* no fp chip, using software emulator */ #define FP_HW 2 /* chip present bit */ #define FP_287 2 /* 80287 chip present */ #define FP_387 3 /* 80387 chip present */ typedef struct fpstate { #if 1 unsigned char state[FP_STATE_BYTES]; /* "hardware" state */ #else struct env387 state; /* Actually this */ #endif int status; /* Duplicate status */ } *fpstate_t; /* Mach 3 specific routines. */ private boolean_t get_i387_state (fstate) struct fpstate *fstate; { kern_return_t ret; thread_state_data_t state; unsigned int fsCnt = i386_FLOAT_STATE_COUNT; struct i386_float_state *fsp; ret = thread_get_state (current_thread, i386_FLOAT_STATE, state, &fsCnt); if (ret != KERN_SUCCESS) { warning ("Can not get live floating point state: %s", mach_error_string (ret)); return FALSE; } fsp = (struct i386_float_state *)state; /* The 387 chip (also 486 counts) or a software emulator? */ if (!fsp->initialized || (fsp->fpkind != FP_387 && fsp->fpkind != FP_SW)) return FALSE; /* Clear the target then copy thread's float state there. Make a copy of the status word, for some reason? */ memset (fstate, 0, sizeof (struct fpstate)); fstate->status = fsp->exc_status; memcpy (fstate->state, (char *)&fsp->hw_state, FP_STATE_BYTES); return TRUE; } private boolean_t get_i387_core_state (fstate) struct fpstate *fstate; { /* Not implemented yet. Core files do not contain float state. */ return FALSE; } /* * This is called by "info float" command */ void i386_mach3_float_info() { char buf [sizeof (struct fpstate) + 2 * sizeof (int)]; boolean_t valid = FALSE; fpstate_t fps; if (target_has_execution) valid = get_i387_state (buf); #if 0 else if (WE HAVE CORE FILE) /* @@@@ Core files not supported */ valid = get_i387_core_state (buf); #endif if (!valid) { warning ("no floating point status saved"); return; } fps = (fpstate_t) buf; print_387_status (fps->status, (struct env387 *)fps->state); } gdb-4.13/gdb/i386mach-nat.c 666 34562 1752 10404 5441203443 13555 0ustar fnfcygnus/* Native dependent code for Mach 386's for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "gdbcore.h" #include #include #include #include #include #include #include #include #include #include #include void fetch_inferior_registers (regno) int regno; /* Original value discarded */ { struct regs inferior_registers; struct fp_state inferior_fp_registers; extern char registers[]; registers_fetched (); ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers); memcpy (registers, &inferior_registers, sizeof inferior_registers); memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], inferior_fp_registers.f_st, sizeof inferior_fp_registers.f_st); memcpy (®isters[REGISTER_BYTE (FPC_REGNUM)], &inferior_fp_registers.f_ctrl, sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { struct regs inferior_registers; struct fp_state inferior_fp_registers; extern char registers[]; memcpy (&inferior_registers, registers, 20 * 4); memcpy (inferior_fp_registers.f_st,®isters[REGISTER_BYTE (FP0_REGNUM)], sizeof inferior_fp_registers.f_st); memcpy (&inferior_fp_registers.f_ctrl, ®isters[REGISTER_BYTE (FPC_REGNUM)], sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st); #ifdef PTRACE_FP_BUG if (regno == FP_REGNUM || regno == -1) /* Storing the frame pointer requires a gross hack, in which an instruction that moves eax into ebp gets single-stepped. */ { int stack = inferior_registers.r_reg[SP_REGNUM]; int stuff = ptrace (PTRACE_PEEKDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack); int reg = inferior_registers.r_reg[EAX]; inferior_registers.r_reg[EAX] = inferior_registers.r_reg[FP_REGNUM]; ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); ptrace (PTRACE_POKEDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack, 0xc589); ptrace (PTRACE_SINGLESTEP, inferior_pid, (PTRACE_ARG3_TYPE) stack, 0); wait (0); ptrace (PTRACE_POKEDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack, stuff); inferior_registers.r_reg[EAX] = reg; } #endif ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); ptrace (PTRACE_SETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers); } /* Work with core files, for GDB. */ void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned int reg_addr; /* Unused in this version */ { int val; extern char registers[]; switch (which) { case 0: case 1: memcpy (registers, core_reg_sect, core_reg_size); break; case 2: #ifdef FP0_REGNUM memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], core_reg_sect, core_reg_size); /* FIXME, probably bogus */ #endif #ifdef FPC_REGNUM memcpy (®isters[REGISTER_BYTE (FPC_REGNUM)], &corestr.c_fpu.f_fpstatus.f_ctrl, sizeof corestr.c_fpu.f_fpstatus - sizeof corestr.c_fpu.f_fpstatus.f_st); #endif break; } } gdb-4.13/gdb/i386v-nat.c 666 34562 1752 21175 5622266134 13130 0ustar fnfcygnus/* Intel 386 native support for SYSV systems (pre-SVR4). Copyright (C) 1988, 1989, 1991, 1992, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "language.h" #include "gdbcore.h" #ifdef USG #include #endif #include #include #include #include #include #include #ifdef TARGET_CAN_USE_HARDWARE_WATCHPOINT #include #endif #include #include #ifndef NO_SYS_REG_H #include #endif #include "floatformat.h" #include "target.h" /* this table must line up with REGISTER_NAMES in tm-i386v.h */ /* symbols like 'EAX' come from */ static int regmap[] = { EAX, ECX, EDX, EBX, UESP, EBP, ESI, EDI, EIP, EFL, CS, SS, DS, ES, FS, GS, }; /* blockend is the value of u.u_ar0, and points to the * place where GS is stored */ int i386_register_u_addr (blockend, regnum) int blockend; int regnum; { #if 0 /* this will be needed if fp registers are reinstated */ /* for now, you can look at them with 'info float' * sys5 wont let you change them with ptrace anyway */ if (regnum >= FP0_REGNUM && regnum <= FP7_REGNUM) { int ubase, fpstate; struct user u; ubase = blockend + 4 * (SS + 1) - KSTKSZ; fpstate = ubase + ((char *)&u.u_fpstate - (char *)&u); return (fpstate + 0x1c + 10 * (regnum - FP0_REGNUM)); } else #endif return (blockend + 4 * regmap[regnum]); } #ifdef TARGET_CAN_USE_HARDWARE_WATCHPOINT #if !defined (offsetof) #define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER) #endif /* Record the value of the debug control register. */ static int debug_control_mirror; /* Record which address associates with which register. */ static CORE_ADDR address_lookup[DR_LASTADDR - DR_FIRSTADDR + 1]; static int i386_insert_nonaligned_watchpoint PARAMS ((int, CORE_ADDR, CORE_ADDR, int, int)); static int i386_insert_aligned_watchpoint PARAMS ((pid, addr, len, rw)); /* Insert a watchpoint. */ int i386_insert_watchpoint (pid, addr, len, rw) int pid; CORE_ADDR addr; int len; int rw; { return i386_insert_aligned_watchpoint (pid, addr, addr, len, rw); } static int i386_insert_aligned_watchpoint (pid, waddr, addr, len, rw) int pid; CORE_ADDR waddr; CORE_ADDR addr; int len; int rw; { int i; int read_write_bits, len_bits; int free_debug_register; int register_number; /* Look for a free debug register. */ for (i = DR_FIRSTADDR; i <= DR_LASTADDR; i++) { if (address_lookup[i - DR_FIRSTADDR] == 0) break; } /* No more debug registers! */ if (i > DR_LASTADDR) return -1; read_write_bits = ((rw & 1) ? DR_RW_READ : 0) | ((rw & 2) ? DR_RW_WRITE : 0); if (len == 1) len_bits = DR_LEN_1; else if (len == 2) { if (addr % 2) return i386_insert_nonaligned_watchpoint (pid, waddr, addr, len, rw); len_bits = DR_LEN_2; } else if (len == 4) { if (addr % 4) return i386_insert_nonaligned_watchpoint (pid, waddr, addr, len, rw); len_bits = DR_LEN_4; } else return i386_insert_nonaligned_watchpoint (pid, waddr, addr, len, rw); free_debug_register = i; register_number = free_debug_register - DR_FIRSTADDR; debug_control_mirror |= ((read_write_bits | len_bits) << (DR_CONTROL_SHIFT + DR_CONTROL_SIZE * register_number)); debug_control_mirror |= (1 << (DR_LOCAL_ENABLE_SHIFT + DR_ENABLE_SIZE * register_number)); debug_control_mirror |= DR_LOCAL_SLOWDOWN; debug_control_mirror &= ~DR_CONTROL_RESERVED; ptrace (6, pid, offsetof (struct user, u_debugreg[DR_CONTROL]), debug_control_mirror); ptrace (6, pid, offsetof (struct user, u_debugreg[free_debug_register]), addr); /* Record where we came from. */ address_lookup[register_number] = addr; return 0; } static int i386_insert_nonaligned_watchpoint (pid, waddr, addr, len, rw) int pid; CORE_ADDR waddr; CORE_ADDR addr; int len; int rw; { int align; int size; int rv; static int size_try_array[16] = { 1, 1, 1, 1, /* trying size one */ 2, 1, 2, 1, /* trying size two */ 2, 1, 2, 1, /* trying size three */ 4, 1, 2, 1 /* trying size four */ }; rv = 0; while (len > 0) { align = addr % 4; /* Four is the maximum length for 386. */ size = (len > 4) ? 3 : len - 1; size = size_try_array[size * 4 + align]; rv = i386_insert_watchpoint (pid, waddr, addr, size, rw); if (rv) { i386_remove_watchpoint (pid, waddr, size); return rv; } addr += size; len -= size; } return rv; } /* Remove a watchpoint. */ int i386_remove_watchpoint (pid, addr, len) int pid; CORE_ADDR addr; int len; { int i; int register_number; for (i = DR_FIRSTADDR; i <= DR_LASTADDR; i++) { register_number = i - DR_FIRSTADDR; if (address_lookup[register_number] == addr) { debug_control_mirror &= ~(1 << (DR_LOCAL_ENABLE_SHIFT + DR_ENABLE_SIZE * register_number)); address_lookup[register_number] = 0; } } ptrace (6, pid, offsetof (struct user, u_debugreg[DR_CONTROL]), debug_control_mirror); ptrace (6, pid, offsetof (struct user, u_debugreg[DR_STATUS]), 0); return 0; } /* Check if stopped by a watchpoint. */ CORE_ADDR i386_stopped_by_watchpoint (pid) int pid; { int i; int status; status = ptrace (3, pid, offsetof (struct user, u_debugreg[DR_STATUS]), 0); ptrace (6, pid, offsetof (struct user, u_debugreg[DR_STATUS]), 0); for (i = DR_FIRSTADDR; i <= DR_LASTADDR; i++) { if (status & (1 << (i - DR_FIRSTADDR))) return address_lookup[i - DR_FIRSTADDR]; } return 0; } #endif /* TARGET_CAN_USE_HARDWARE_WATCHPOINT */ #if 0 /* using FLOAT_INFO as is would be a problem. FLOAT_INFO is called via a command xxx and eventually calls ptrace without ever having traversed the target vector. This would be terribly impolite behaviour for a sun4 hosted remote gdb. A fix might be to move this code into the "info registers" command. rich@cygnus.com 15 Sept 92. */ i386_float_info () { struct user u; /* just for address computations */ int i; /* fpstate defined in */ struct fpstate *fpstatep; char buf[sizeof (struct fpstate) + 2 * sizeof (int)]; unsigned int uaddr; char fpvalid = 0; unsigned int rounded_addr; unsigned int rounded_size; extern int corechan; int skip; uaddr = (char *)&u.u_fpvalid - (char *)&u; if (target_has_execution) { unsigned int data; unsigned int mask; rounded_addr = uaddr & -sizeof (int); data = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) rounded_addr, 0); mask = 0xff << ((uaddr - rounded_addr) * 8); fpvalid = ((data & mask) != 0); } #if 0 else { if (lseek (corechan, uaddr, 0) < 0) perror ("seek on core file"); if (myread (corechan, &fpvalid, 1) < 0) perror ("read on core file"); } #endif /* no core support yet */ if (fpvalid == 0) { printf_unfiltered ("no floating point status saved\n"); return; } uaddr = (char *)&U_FPSTATE(u) - (char *)&u; if (target_has_execution) { int *ip; rounded_addr = uaddr & -sizeof (int); rounded_size = (((uaddr + sizeof (struct fpstate)) - uaddr) + sizeof (int) - 1) / sizeof (int); skip = uaddr - rounded_addr; ip = (int *)buf; for (i = 0; i < rounded_size; i++) { *ip++ = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) rounded_addr, 0); rounded_addr += sizeof (int); } } #if 0 else { if (lseek (corechan, uaddr, 0) < 0) perror_with_name ("seek on core file"); if (myread (corechan, buf, sizeof (struct fpstate)) < 0) perror_with_name ("read from core file"); skip = 0; } #endif /* 0 */ fpstatep = (struct fpstate *)(buf + skip); print_387_status (fpstatep->status, (struct env387 *)fpstatep->state); } #endif /* never */ gdb-4.13/gdb/i386v4-nat.c 666 34562 1752 7636 5267744627 13217 0ustar fnfcygnus/* Native-dependent code for SVR4 Unix running on i386's, for GDB. Copyright 1988, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include /* The /proc interface divides the target machine's register set up into two different sets, the general register set (gregset) and the floating point register set (fpregset). For each set, there is an ioctl to get the current register set and another ioctl to set the current values. The actual structure passed through the ioctl interface is, of course, naturally machine dependent, and is different for each set of registers. For the i386 for example, the general register set is typically defined by: typedef int gregset_t[19]; (in ) #define GS 0 (in ) #define FS 1 ... #define UESP 17 #define SS 18 and the floating point set by: typedef struct fpregset { union { struct fpchip_state // fp extension state // { int state[27]; // 287/387 saved state // int status; // status word saved at exception // } fpchip_state; struct fp_emul_space // for emulators // { char fp_emul[246]; char fp_epad[2]; } fp_emul_space; int f_fpregs[62]; // union of the above // } fp_reg_set; long f_wregs[33]; // saved weitek state // } fpregset_t; These routines provide the packing and unpacking of gregset_t and fpregset_t formatted data. */ /* This is a duplicate of the table in i386-xdep.c. */ static int regmap[] = { EAX, ECX, EDX, EBX, UESP, EBP, ESI, EDI, EIP, EFL, CS, SS, DS, ES, FS, GS, }; /* Given a pointer to a general register set in /proc format (gregset_t *), unpack the register contents and supply them as gdb's idea of the current register values. */ void supply_gregset (gregsetp) gregset_t *gregsetp; { register int regi; register greg_t *regp = (greg_t *) gregsetp; extern int regmap[]; for (regi = 0 ; regi < NUM_REGS ; regi++) { supply_register (regi, (char *) (regp + regmap[regi])); } } void fill_gregset (gregsetp, regno) gregset_t *gregsetp; int regno; { int regi; register greg_t *regp = (greg_t *) gregsetp; extern char registers[]; extern int regmap[]; for (regi = 0 ; regi < NUM_REGS ; regi++) { if ((regno == -1) || (regno == regi)) { *(regp + regmap[regi]) = *(int *) ®isters[REGISTER_BYTE (regi)]; } } } #if defined (FP0_REGNUM) /* Given a pointer to a floating point register set in /proc format (fpregset_t *), unpack the register contents and supply them as gdb's idea of the current floating point register values. */ void supply_fpregset (fpregsetp) fpregset_t *fpregsetp; { register int regi; /* FIXME: see m68k-tdep.c for an example, for the m68k. */ } /* Given a pointer to a floating point register set in /proc format (fpregset_t *), update the register specified by REGNO from gdb's idea of the current floating point register set. If REGNO is -1, update them all. */ void fill_fpregset (fpregsetp, regno) fpregset_t *fpregsetp; int regno; { int regi; char *to; char *from; extern char registers[]; /* FIXME: see m68k-tdep.c for an example, for the m68k. */ } #endif /* defined (FP0_REGNUM) */ gdb-4.13/gdb/i387-tdep.c 666 34562 1752 6517 5534304335 13076 0ustar fnfcygnus/* Intel 387 floating point stuff. Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "language.h" #include "gdbcore.h" #include "floatformat.h" /* FIXME: Eliminate these routines when we have the time to change all the callers. */ void i387_to_double (from, to) char *from; char *to; { floatformat_to_double (&floatformat_i387_ext, from, (double *)to); } void double_to_i387 (from, to) char *from; char *to; { floatformat_from_double (&floatformat_i387_ext, (double *)from, to); } void print_387_control_word (control) unsigned int control; { printf_unfiltered ("control %s: ", local_hex_string(control)); printf_unfiltered ("compute to "); switch ((control >> 8) & 3) { case 0: printf_unfiltered ("24 bits; "); break; case 1: printf_unfiltered ("(bad); "); break; case 2: printf_unfiltered ("53 bits; "); break; case 3: printf_unfiltered ("64 bits; "); break; } printf_unfiltered ("round "); switch ((control >> 10) & 3) { case 0: printf_unfiltered ("NEAREST; "); break; case 1: printf_unfiltered ("DOWN; "); break; case 2: printf_unfiltered ("UP; "); break; case 3: printf_unfiltered ("CHOP; "); break; } if (control & 0x3f) { printf_unfiltered ("mask:"); if (control & 0x0001) printf_unfiltered (" INVALID"); if (control & 0x0002) printf_unfiltered (" DENORM"); if (control & 0x0004) printf_unfiltered (" DIVZ"); if (control & 0x0008) printf_unfiltered (" OVERF"); if (control & 0x0010) printf_unfiltered (" UNDERF"); if (control & 0x0020) printf_unfiltered (" LOS"); printf_unfiltered (";"); } printf_unfiltered ("\n"); if (control & 0xe080) warning ("reserved bits on: %s\n", local_hex_string(control & 0xe080)); } void print_387_status_word (status) unsigned int status; { printf_unfiltered ("status %s: ", local_hex_string (status)); if (status & 0xff) { printf_unfiltered ("exceptions:"); if (status & 0x0001) printf_unfiltered (" INVALID"); if (status & 0x0002) printf_unfiltered (" DENORM"); if (status & 0x0004) printf_unfiltered (" DIVZ"); if (status & 0x0008) printf_unfiltered (" OVERF"); if (status & 0x0010) printf_unfiltered (" UNDERF"); if (status & 0x0020) printf_unfiltered (" LOS"); if (status & 0x0040) printf_unfiltered (" FPSTACK"); printf_unfiltered ("; "); } printf_unfiltered ("flags: %d%d%d%d; ", (status & 0x4000) != 0, (status & 0x0400) != 0, (status & 0x0200) != 0, (status & 0x0100) != 0); printf_unfiltered ("top %d\n", (status >> 11) & 7); } gdb-4.13/gdb/i960-pinsn.c 666 34562 1752 11050 5465305526 13300 0ustar fnfcygnus/* i80960 instruction disassembler for GDB. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dis-asm.h" /* Print the instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO(info, stream); return print_insn_i960 (memaddr, &info); } /****************************************/ /* MEM format */ /****************************************/ struct tabent { char *name; char numops; }; static int /* returns instruction length: 4 or 8 */ mem( memaddr, word1, word2, noprint ) unsigned long memaddr; unsigned long word1, word2; int noprint; /* If TRUE, return instruction length, but don't output any text. */ { int i, j; int len; int mode; int offset; const char *reg1, *reg2, *reg3; /* This lookup table is too sparse to make it worth typing in, but not * so large as to make a sparse array necessary. We allocate the * table at runtime, initialize all entries to empty, and copy the * real ones in from an initialization table. * * NOTE: In this table, the meaning of 'numops' is: * 1: single operand * 2: 2 operands, load instruction * -2: 2 operands, store instruction */ static struct tabent *mem_tab = NULL; /* Opcodes of 0x8X, 9X, aX, bX, and cX must be in the table. */ #define MEM_MIN 0x80 #define MEM_MAX 0xcf #define MEM_SIZ ((MEM_MAX-MEM_MIN+1) * sizeof(struct tabent)) static struct { int opcode; char *name; char numops; } mem_init[] = { 0x80, "ldob", 2, 0x82, "stob", -2, 0x84, "bx", 1, 0x85, "balx", 2, 0x86, "callx", 1, 0x88, "ldos", 2, 0x8a, "stos", -2, 0x8c, "lda", 2, 0x90, "ld", 2, 0x92, "st", -2, 0x98, "ldl", 2, 0x9a, "stl", -2, 0xa0, "ldt", 2, 0xa2, "stt", -2, 0xb0, "ldq", 2, 0xb2, "stq", -2, 0xc0, "ldib", 2, 0xc2, "stib", -2, 0xc8, "ldis", 2, 0xca, "stis", -2, 0, NULL, 0 }; if ( mem_tab == NULL ){ mem_tab = (struct tabent *) xmalloc( MEM_SIZ ); memset( mem_tab, '\0', MEM_SIZ ); for ( i = 0; mem_init[i].opcode != 0; i++ ){ j = mem_init[i].opcode - MEM_MIN; mem_tab[j].name = mem_init[i].name; mem_tab[j].numops = mem_init[i].numops; } } i = ((word1 >> 24) & 0xff) - MEM_MIN; mode = (word1 >> 10) & 0xf; if ( (mem_tab[i].name != NULL) /* Valid instruction */ && ((mode == 5) || (mode >=12)) ){ /* With 32-bit displacement */ len = 8; } else { len = 4; } if ( noprint ){ return len; } abort (); } /* Read the i960 instruction at 'memaddr' and return the address of the next instruction after that, or 0 if 'memaddr' is not the address of a valid instruction. The first word of the instruction is stored at 'pword1', and the second word, if any, is stored at 'pword2'. */ CORE_ADDR next_insn (memaddr, pword1, pword2) unsigned long *pword1, *pword2; CORE_ADDR memaddr; { int len; char buf[8]; /* Read the two (potential) words of the instruction at once, to eliminate the overhead of two calls to read_memory (). FIXME: Loses if the first one is readable but the second is not (e.g. last word of the segment). */ read_memory (memaddr, buf, 8); *pword1 = extract_unsigned_integer (buf, 4); *pword2 = extract_unsigned_integer (buf + 4, 4); /* Divide instruction set into classes based on high 4 bits of opcode*/ switch ((*pword1 >> 28) & 0xf) { case 0x0: case 0x1: /* ctrl */ case 0x2: case 0x3: /* cobr */ case 0x5: case 0x6: case 0x7: /* reg */ len = 4; break; case 0x8: case 0x9: case 0xa: case 0xb: case 0xc: len = mem (memaddr, *pword1, *pword2, 1); break; default: /* invalid instruction */ len = 0; break; } if (len) return memaddr + len; else return 0; } gdb-4.13/gdb/main.c 666 34562 1752 34454 5623251020 12406 0ustar fnfcygnus/* Top level stuff for GDB, the GNU debugger. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include "top.h" #include "target.h" #include "inferior.h" #include "call-cmds.h" #include "getopt.h" #include #include #include #include /* R_OK lives in either unistd.h or sys/file.h. */ #ifdef USG #include #endif #ifndef NO_SYS_FILE #include #endif /* Temporary variable for SET_TOP_LEVEL. */ static int top_level_val; /* Do a setjmp on error_return and quit_return. catch_errors is generally a cleaner way to do this, but main() would look pretty ugly if it had to use catch_errors each time. */ #define SET_TOP_LEVEL() \ (((top_level_val = setjmp (error_return)) \ ? (PTR) 0 : (PTR) memcpy (quit_return, error_return, sizeof (jmp_buf))) \ , top_level_val) extern void gdb_init PARAMS ((void)); int main (argc, argv) int argc; char **argv; { int count; static int quiet = 0; static int batch = 0; /* Pointers to various arguments from command line. */ char *symarg = NULL; char *execarg = NULL; char *corearg = NULL; char *cdarg = NULL; char *ttyarg = NULL; /* These are static so that we can take their address in an initializer. */ static int print_help; static int print_version; /* Pointers to all arguments of --command option. */ char **cmdarg; /* Allocated size of cmdarg. */ int cmdsize; /* Number of elements of cmdarg used. */ int ncmd; /* Indices of all arguments of --directory option. */ char **dirarg; /* Allocated size. */ int dirsize; /* Number of elements used. */ int ndir; struct stat homebuf, cwdbuf; char *homedir, *homeinit; register int i; /* This needs to happen before the first use of malloc. */ init_malloc ((PTR) NULL); #if defined (ALIGN_STACK_ON_STARTUP) i = (int) &count & 0x3; if (i != 0) alloca (4 - i); #endif /* If error() is called from initialization code, just exit */ if (SET_TOP_LEVEL ()) { exit(1); } cmdsize = 1; cmdarg = (char **) xmalloc (cmdsize * sizeof (*cmdarg)); ncmd = 0; dirsize = 1; dirarg = (char **) xmalloc (dirsize * sizeof (*dirarg)); ndir = 0; quit_flag = 0; line = (char *) xmalloc (linesize); line[0] = '\0'; /* Terminate saved (now empty) cmd line */ instream = stdin; getcwd (gdb_dirbuf, sizeof (gdb_dirbuf)); current_directory = gdb_dirbuf; /* Parse arguments and options. */ { int c; /* When var field is 0, use flag field to record the equivalent short option (or arbitrary numbers starting at 10 for those with no equivalent). */ static struct option long_options[] = { {"readnow", no_argument, &readnow_symbol_files, 1}, {"r", no_argument, &readnow_symbol_files, 1}, {"mapped", no_argument, &mapped_symbol_files, 1}, {"m", no_argument, &mapped_symbol_files, 1}, {"quiet", no_argument, &quiet, 1}, {"q", no_argument, &quiet, 1}, {"silent", no_argument, &quiet, 1}, {"nx", no_argument, &inhibit_gdbinit, 1}, {"n", no_argument, &inhibit_gdbinit, 1}, {"batch", no_argument, &batch, 1}, {"epoch", no_argument, &epoch_interface, 1}, /* This is a synonym for "--annotate=1". --annotate is now preferred, but keep this here for a long time because people will be running emacses which use --fullname. */ {"fullname", no_argument, 0, 'f'}, {"f", no_argument, 0, 'f'}, {"annotate", required_argument, 0, 12}, {"help", no_argument, &print_help, 1}, {"se", required_argument, 0, 10}, {"symbols", required_argument, 0, 's'}, {"s", required_argument, 0, 's'}, {"exec", required_argument, 0, 'e'}, {"e", required_argument, 0, 'e'}, {"core", required_argument, 0, 'c'}, {"c", required_argument, 0, 'c'}, {"command", required_argument, 0, 'x'}, {"version", no_argument, &print_version, 1}, {"x", required_argument, 0, 'x'}, {"directory", required_argument, 0, 'd'}, {"cd", required_argument, 0, 11}, {"tty", required_argument, 0, 't'}, {"baud", required_argument, 0, 'b'}, {"b", required_argument, 0, 'b'}, /* Allow machine descriptions to add more options... */ #ifdef ADDITIONAL_OPTIONS ADDITIONAL_OPTIONS #endif {0, no_argument, 0, 0}, }; while (1) { int option_index; c = getopt_long_only (argc, argv, "", long_options, &option_index); if (c == EOF) break; /* Long option that takes an argument. */ if (c == 0 && long_options[option_index].flag == 0) c = long_options[option_index].val; switch (c) { case 0: /* Long option that just sets a flag. */ break; case 10: symarg = optarg; execarg = optarg; break; case 11: cdarg = optarg; break; case 12: /* FIXME: what if the syntax is wrong (e.g. not digits)? */ annotation_level = atoi (optarg); break; case 'f': annotation_level = 1; break; case 's': symarg = optarg; break; case 'e': execarg = optarg; break; case 'c': corearg = optarg; break; case 'x': cmdarg[ncmd++] = optarg; if (ncmd >= cmdsize) { cmdsize *= 2; cmdarg = (char **) xrealloc ((char *)cmdarg, cmdsize * sizeof (*cmdarg)); } break; case 'd': dirarg[ndir++] = optarg; if (ndir >= dirsize) { dirsize *= 2; dirarg = (char **) xrealloc ((char *)dirarg, dirsize * sizeof (*dirarg)); } break; case 't': ttyarg = optarg; break; case 'q': quiet = 1; break; case 'b': { int i; char *p; i = strtol (optarg, &p, 0); if (i == 0 && p == optarg) /* Don't use *_filtered or warning() (which relies on current_target) until after initialize_all_files(). */ fprintf_unfiltered (gdb_stderr, "warning: could not set baud rate to `%s'.\n", optarg); else baud_rate = i; } break; #ifdef ADDITIONAL_OPTION_CASES ADDITIONAL_OPTION_CASES #endif case '?': fprintf_unfiltered (gdb_stderr, "Use `%s --help' for a complete list of options.\n", argv[0]); exit (1); } } /* OK, that's all the options. The other arguments are filenames. */ count = 0; for (; optind < argc; optind++) switch (++count) { case 1: symarg = argv[optind]; execarg = argv[optind]; break; case 2: corearg = argv[optind]; break; case 3: fprintf_unfiltered (gdb_stderr, "Excess command line arguments ignored. (%s%s)\n", argv[optind], (optind == argc - 1) ? "" : " ..."); break; } if (batch) quiet = 1; } gdb_init (); /* Do these (and anything which might call wrap_here or *_filtered) after initialize_all_files. */ if (print_version) { print_gdb_version (gdb_stdout); wrap_here (""); printf_filtered ("\n"); exit (0); } if (print_help) { /* --version is intentionally not documented here, because we are printing the version here, and the help is long enough already. */ print_gdb_version (gdb_stdout); /* Make sure the output gets printed. */ wrap_here (""); printf_filtered ("\n"); /* But don't use *_filtered here. We don't want to prompt for continue no matter how small the screen or how much we're going to print. */ fputs_unfiltered ("\ This is the GNU debugger. Usage:\n\ gdb [options] [executable-file [core-file or process-id]]\n\ Options:\n\ --help Print this message.\n\ --quiet Do not print version number on startup.\n\ --fullname Output information used by emacs-GDB interface.\n\ --epoch Output information used by epoch emacs-GDB interface.\n\ --batch Exit after processing options.\n\ --nx Do not read .gdbinit file.\n\ --tty=TTY Use TTY for input/output by the program being debugged.\n\ --cd=DIR Change current directory to DIR.\n\ --directory=DIR Search for source files in DIR.\n\ --command=FILE Execute GDB commands from FILE.\n\ --symbols=SYMFILE Read symbols from SYMFILE.\n\ --exec=EXECFILE Use EXECFILE as the executable.\n\ --se=FILE Use FILE as symbol file and executable file.\n\ --core=COREFILE Analyze the core dump COREFILE.\n\ -b BAUDRATE Set serial port baud rate used for remote debugging.\n\ --mapped Use mapped symbol files if supported on this system.\n\ --readnow Fully read symbol files on first access.\n\ ", gdb_stdout); #ifdef ADDITIONAL_OPTION_HELP fputs_unfiltered (ADDITIONAL_OPTION_HELP, gdb_stdout); #endif fputs_unfiltered ("\n\ For more information, type \"help\" from within GDB, or consult the\n\ GDB manual (available as on-line info or a printed manual).\n", gdb_stdout); exit (0); } if (!quiet) { /* Print all the junk at the top, with trailing "..." if we are about to read a symbol file (possibly slowly). */ print_gnu_advertisement (); print_gdb_version (gdb_stdout); if (symarg) printf_filtered (".."); wrap_here(""); gdb_flush (gdb_stdout); /* Force to screen during slow operations */ } error_pre_print = "\n\n"; /* We may get more than one warning, don't double space all of them... */ warning_pre_print = "\nwarning: "; /* Read and execute $HOME/.gdbinit file, if it exists. This is done *before* all the command line arguments are processed; it sets global parameters, which are independent of what file you are debugging or what directory you are in. */ homedir = getenv ("HOME"); if (homedir) { homeinit = (char *) alloca (strlen (getenv ("HOME")) + strlen (gdbinit) + 10); strcpy (homeinit, getenv ("HOME")); strcat (homeinit, "/"); strcat (homeinit, gdbinit); if (!inhibit_gdbinit && access (homeinit, R_OK) == 0) { if (!SET_TOP_LEVEL ()) source_command (homeinit, 0); } do_cleanups (ALL_CLEANUPS); /* Do stats; no need to do them elsewhere since we'll only need them if homedir is set. Make sure that they are zero in case one of them fails (this guarantees that they won't match if either exists). */ memset (&homebuf, 0, sizeof (struct stat)); memset (&cwdbuf, 0, sizeof (struct stat)); stat (homeinit, &homebuf); stat (gdbinit, &cwdbuf); /* We'll only need this if homedir was set. */ } /* Now perform all the actions indicated by the arguments. */ if (cdarg != NULL) { if (!SET_TOP_LEVEL ()) { cd_command (cdarg, 0); } } do_cleanups (ALL_CLEANUPS); for (i = 0; i < ndir; i++) if (!SET_TOP_LEVEL ()) directory_command (dirarg[i], 0); free ((PTR)dirarg); do_cleanups (ALL_CLEANUPS); if (execarg != NULL && symarg != NULL && STREQ (execarg, symarg)) { /* The exec file and the symbol-file are the same. If we can't open it, better only print one error message. */ if (!SET_TOP_LEVEL ()) { exec_file_command (execarg, !batch); symbol_file_command (symarg, 0); } } else { if (execarg != NULL) if (!SET_TOP_LEVEL ()) exec_file_command (execarg, !batch); if (symarg != NULL) if (!SET_TOP_LEVEL ()) symbol_file_command (symarg, 0); } do_cleanups (ALL_CLEANUPS); /* After the symbol file has been read, print a newline to get us beyond the copyright line... But errors should still set off the error message with a (single) blank line. */ if (!quiet) printf_filtered ("\n"); error_pre_print = "\n"; warning_pre_print = "\nwarning: "; if (corearg != NULL) if (!SET_TOP_LEVEL ()) core_file_command (corearg, !batch); else if (isdigit (corearg[0]) && !SET_TOP_LEVEL ()) attach_command (corearg, !batch); do_cleanups (ALL_CLEANUPS); if (ttyarg != NULL) if (!SET_TOP_LEVEL ()) tty_command (ttyarg, !batch); do_cleanups (ALL_CLEANUPS); #ifdef ADDITIONAL_OPTION_HANDLER ADDITIONAL_OPTION_HANDLER; #endif /* Error messages should no longer be distinguished with extra output. */ error_pre_print = 0; warning_pre_print = "warning: "; /* Read the .gdbinit file in the current directory, *if* it isn't the same as the $HOME/.gdbinit file (it should exist, also). */ if (!homedir || memcmp ((char *) &homebuf, (char *) &cwdbuf, sizeof (struct stat))) if (!inhibit_gdbinit && access (gdbinit, R_OK) == 0) { if (!SET_TOP_LEVEL ()) source_command (gdbinit, 0); } do_cleanups (ALL_CLEANUPS); for (i = 0; i < ncmd; i++) { if (!SET_TOP_LEVEL ()) { if (cmdarg[i][0] == '-' && cmdarg[i][1] == '\0') read_command_file (stdin); else source_command (cmdarg[i], !batch); do_cleanups (ALL_CLEANUPS); } } free ((PTR)cmdarg); /* Read in the old history after all the command files have been read. */ init_history(); if (batch) { /* We have hit the end of the batch file. */ exit (0); } /* Do any host- or target-specific hacks. This is used for i960 targets to force the user to set a nindy target and spec its parameters. */ #ifdef BEFORE_MAIN_LOOP_HOOK BEFORE_MAIN_LOOP_HOOK; #endif /* The command loop. */ while (1) { if (!SET_TOP_LEVEL ()) { do_cleanups (ALL_CLEANUPS); /* Do complete cleanup */ command_loop (); quit_command ((char *)0, instream == stdin); } } /* No exit -- exit is through quit_command. */ } void init_proc () { } int proc_wait (pid, status) int pid; int *status; { #ifndef __GO32__ return wait (status); #endif } void proc_remove_foreign (pid) int pid; { } void fputs_unfiltered (linebuffer, stream) const char *linebuffer; FILE *stream; { fputs (linebuffer, stream); } gdb-4.13/gdb/i960-tdep.c 666 34562 1752 52010 5534304352 13077 0ustar fnfcygnus/* Target-machine dependent code for the Intel 960 Copyright (C) 1991 Free Software Foundation, Inc. Contributed by Intel Corporation. examine_prologue and other parts contributed by Wind River Systems. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Miscellaneous i80960-dependent routines. Most are called from macros defined in "tm-i960.h". */ #include "defs.h" #include #include "symtab.h" #include "value.h" #include "frame.h" #include "floatformat.h" #include "target.h" /* gdb960 is always running on a non-960 host. Check its characteristics. This routine must be called as part of gdb initialization. */ static void check_host() { int i; static struct typestruct { int hostsize; /* Size of type on host */ int i960size; /* Size of type on i960 */ char *typename; /* Name of type, for error msg */ } types[] = { { sizeof(short), 2, "short" }, { sizeof(int), 4, "int" }, { sizeof(long), 4, "long" }, { sizeof(float), 4, "float" }, { sizeof(double), 8, "double" }, { sizeof(char *), 4, "pointer" }, }; #define TYPELEN (sizeof(types) / sizeof(struct typestruct)) /* Make sure that host type sizes are same as i960 */ for ( i = 0; i < TYPELEN; i++ ){ if ( types[i].hostsize != types[i].i960size ){ printf_unfiltered("sizeof(%s) != %d: PROCEED AT YOUR OWN RISK!\n", types[i].typename, types[i].i960size ); } } } /* Examine an i960 function prologue, recording the addresses at which registers are saved explicitly by the prologue code, and returning the address of the first instruction after the prologue (but not after the instruction at address LIMIT, as explained below). LIMIT places an upper bound on addresses of the instructions to be examined. If the prologue code scan reaches LIMIT, the scan is aborted and LIMIT is returned. This is used, when examining the prologue for the current frame, to keep examine_prologue () from claiming that a given register has been saved when in fact the instruction that saves it has not yet been executed. LIMIT is used at other times to stop the scan when we hit code after the true function prologue (e.g. for the first source line) which might otherwise be mistaken for function prologue. The format of the function prologue matched by this routine is derived from examination of the source to gcc960 1.21, particularly the routine i960_function_prologue (). A "regular expression" for the function prologue is given below: (lda LRn, g14 mov g14, g[0-7] (mov 0, g14) | (lda 0, g14))? (mov[qtl]? g[0-15], r[4-15])* ((addo [1-31], sp, sp) | (lda n(sp), sp))? (st[qtl]? g[0-15], n(fp))* (cmpobne 0, g14, LFn mov sp, g14 lda 0x30(sp), sp LFn: stq g0, (g14) stq g4, 0x10(g14) stq g8, 0x20(g14))? (st g14, n(fp))? (mov g13,r[4-15])? */ /* Macros for extracting fields from i960 instructions. */ #define BITMASK(pos, width) (((0x1 << (width)) - 1) << (pos)) #define EXTRACT_FIELD(val, pos, width) ((val) >> (pos) & BITMASK (0, width)) #define REG_SRC1(insn) EXTRACT_FIELD (insn, 0, 5) #define REG_SRC2(insn) EXTRACT_FIELD (insn, 14, 5) #define REG_SRCDST(insn) EXTRACT_FIELD (insn, 19, 5) #define MEM_SRCDST(insn) EXTRACT_FIELD (insn, 19, 5) #define MEMA_OFFSET(insn) EXTRACT_FIELD (insn, 0, 12) /* Fetch the instruction at ADDR, returning 0 if ADDR is beyond LIM or is not the address of a valid instruction, the address of the next instruction beyond ADDR otherwise. *PWORD1 receives the first word of the instruction, and (for two-word instructions), *PWORD2 receives the second. */ #define NEXT_PROLOGUE_INSN(addr, lim, pword1, pword2) \ (((addr) < (lim)) ? next_insn (addr, pword1, pword2) : 0) static CORE_ADDR examine_prologue (ip, limit, frame_addr, fsr) register CORE_ADDR ip; register CORE_ADDR limit; FRAME_ADDR frame_addr; struct frame_saved_regs *fsr; { register CORE_ADDR next_ip; register int src, dst; register unsigned int *pcode; unsigned int insn1, insn2; int size; int within_leaf_prologue; CORE_ADDR save_addr; static unsigned int varargs_prologue_code [] = { 0x3507a00c, /* cmpobne 0x0, g14, LFn */ 0x5cf01601, /* mov sp, g14 */ 0x8c086030, /* lda 0x30(sp), sp */ 0xb2879000, /* LFn: stq g0, (g14) */ 0xb2a7a010, /* stq g4, 0x10(g14) */ 0xb2c7a020 /* stq g8, 0x20(g14) */ }; /* Accept a leaf procedure prologue code fragment if present. Note that ip might point to either the leaf or non-leaf entry point; we look for the non-leaf entry point first: */ within_leaf_prologue = 0; if ((next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2)) && ((insn1 & 0xfffff000) == 0x8cf00000 /* lda LRx, g14 (MEMA) */ || (insn1 & 0xfffffc60) == 0x8cf03000)) /* lda LRx, g14 (MEMB) */ { within_leaf_prologue = 1; next_ip = NEXT_PROLOGUE_INSN (next_ip, limit, &insn1, &insn2); } /* Now look for the prologue code at a leaf entry point: */ if (next_ip && (insn1 & 0xff87ffff) == 0x5c80161e /* mov g14, gx */ && REG_SRCDST (insn1) <= G0_REGNUM + 7) { within_leaf_prologue = 1; if ((next_ip = NEXT_PROLOGUE_INSN (next_ip, limit, &insn1, &insn2)) && (insn1 == 0x8cf00000 /* lda 0, g14 */ || insn1 == 0x5cf01e00)) /* mov 0, g14 */ { ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); within_leaf_prologue = 0; } } /* If something that looks like the beginning of a leaf prologue has been seen, but the remainder of the prologue is missing, bail. We don't know what we've got. */ if (within_leaf_prologue) return (ip); /* Accept zero or more instances of "mov[qtl]? gx, ry", where y >= 4. This may cause us to mistake the moving of a register parameter to a local register for the saving of a callee-saved register, but that can't be helped, since with the "-fcall-saved" flag, any register can be made callee-saved. */ while (next_ip && (insn1 & 0xfc802fb0) == 0x5c000610 && (dst = REG_SRCDST (insn1)) >= (R0_REGNUM + 4)) { src = REG_SRC1 (insn1); size = EXTRACT_FIELD (insn1, 24, 2) + 1; save_addr = frame_addr + ((dst - R0_REGNUM) * 4); while (size--) { fsr->regs[src++] = save_addr; save_addr += 4; } ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); } /* Accept an optional "addo n, sp, sp" or "lda n(sp), sp". */ if (next_ip && ((insn1 & 0xffffffe0) == 0x59084800 /* addo n, sp, sp */ || (insn1 & 0xfffff000) == 0x8c086000 /* lda n(sp), sp (MEMA) */ || (insn1 & 0xfffffc60) == 0x8c087400)) /* lda n(sp), sp (MEMB) */ { ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); } /* Accept zero or more instances of "st[qtl]? gx, n(fp)". This may cause us to mistake the copying of a register parameter to the frame for the saving of a callee-saved register, but that can't be helped, since with the "-fcall-saved" flag, any register can be made callee-saved. We can, however, refuse to accept a save of register g14, since that is matched explicitly below. */ while (next_ip && ((insn1 & 0xf787f000) == 0x9287e000 /* stl? gx, n(fp) (MEMA) */ || (insn1 & 0xf787fc60) == 0x9287f400 /* stl? gx, n(fp) (MEMB) */ || (insn1 & 0xef87f000) == 0xa287e000 /* st[tq] gx, n(fp) (MEMA) */ || (insn1 & 0xef87fc60) == 0xa287f400) /* st[tq] gx, n(fp) (MEMB) */ && ((src = MEM_SRCDST (insn1)) != G14_REGNUM)) { save_addr = frame_addr + ((insn1 & BITMASK (12, 1)) ? insn2 : MEMA_OFFSET (insn1)); size = (insn1 & BITMASK (29, 1)) ? ((insn1 & BITMASK (28, 1)) ? 4 : 3) : ((insn1 & BITMASK (27, 1)) ? 2 : 1); while (size--) { fsr->regs[src++] = save_addr; save_addr += 4; } ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); } /* Accept the varargs prologue code if present. */ size = sizeof (varargs_prologue_code) / sizeof (int); pcode = varargs_prologue_code; while (size-- && next_ip && *pcode++ == insn1) { ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); } /* Accept an optional "st g14, n(fp)". */ if (next_ip && ((insn1 & 0xfffff000) == 0x92f7e000 /* st g14, n(fp) (MEMA) */ || (insn1 & 0xfffffc60) == 0x92f7f400)) /* st g14, n(fp) (MEMB) */ { fsr->regs[G14_REGNUM] = frame_addr + ((insn1 & BITMASK (12, 1)) ? insn2 : MEMA_OFFSET (insn1)); ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); } /* Accept zero or one instance of "mov g13, ry", where y >= 4. This is saving the address where a struct should be returned. */ if (next_ip && (insn1 & 0xff802fbf) == 0x5c00061d && (dst = REG_SRCDST (insn1)) >= (R0_REGNUM + 4)) { save_addr = frame_addr + ((dst - R0_REGNUM) * 4); fsr->regs[G0_REGNUM+13] = save_addr; ip = next_ip; #if 0 /* We'll need this once there is a subsequent instruction examined. */ next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn1, &insn2); #endif } return (ip); } /* Given an ip value corresponding to the start of a function, return the ip of the first instruction after the function prologue. */ CORE_ADDR skip_prologue (ip) CORE_ADDR (ip); { struct frame_saved_regs saved_regs_dummy; struct symtab_and_line sal; CORE_ADDR limit; sal = find_pc_line (ip, 0); limit = (sal.end) ? sal.end : 0xffffffff; return (examine_prologue (ip, limit, (FRAME_ADDR) 0, &saved_regs_dummy)); } /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. We cache the result of doing this in the frame_cache_obstack, since it is fairly expensive. */ void frame_find_saved_regs (fi, fsr) struct frame_info *fi; struct frame_saved_regs *fsr; { register CORE_ADDR next_addr; register CORE_ADDR *saved_regs; register int regnum; register struct frame_saved_regs *cache_fsr; extern struct obstack frame_cache_obstack; CORE_ADDR ip; struct symtab_and_line sal; CORE_ADDR limit; if (!fi->fsr) { cache_fsr = (struct frame_saved_regs *) obstack_alloc (&frame_cache_obstack, sizeof (struct frame_saved_regs)); memset (cache_fsr, '\0', sizeof (struct frame_saved_regs)); fi->fsr = cache_fsr; /* Find the start and end of the function prologue. If the PC is in the function prologue, we only consider the part that has executed already. */ ip = get_pc_function_start (fi->pc); sal = find_pc_line (ip, 0); limit = (sal.end && sal.end < fi->pc) ? sal.end: fi->pc; examine_prologue (ip, limit, fi->frame, cache_fsr); /* Record the addresses at which the local registers are saved. Strictly speaking, we should only do this for non-leaf procedures, but no one will ever look at these values if it is a leaf procedure, since local registers are always caller-saved. */ next_addr = (CORE_ADDR) fi->frame; saved_regs = cache_fsr->regs; for (regnum = R0_REGNUM; regnum <= R15_REGNUM; regnum++) { *saved_regs++ = next_addr; next_addr += 4; } cache_fsr->regs[FP_REGNUM] = cache_fsr->regs[PFP_REGNUM]; } *fsr = *fi->fsr; /* Fetch the value of the sp from memory every time, since it is conceivable that it has changed since the cache was flushed. This unfortunately undoes much of the savings from caching the saved register values. I suggest adding an argument to get_frame_saved_regs () specifying the register number we're interested in (or -1 for all registers). This would be passed through to FRAME_FIND_SAVED_REGS (), permitting more efficient computation of saved register addresses (e.g., on the i960, we don't have to examine the prologue to find local registers). -- markf@wrs.com FIXME, we don't need to refetch this, since the cache is cleared every time the child process is restarted. If GDB itself modifies SP, it has to clear the cache by hand (does it?). -gnu */ fsr->regs[SP_REGNUM] = read_memory_integer (fsr->regs[SP_REGNUM], 4); } /* Return the address of the argument block for the frame described by FI. Returns 0 if the address is unknown. */ CORE_ADDR frame_args_address (fi, must_be_correct) struct frame_info *fi; { register FRAME frame; struct frame_saved_regs fsr; CORE_ADDR ap; /* If g14 was saved in the frame by the function prologue code, return the saved value. If the frame is current and we are being sloppy, return the value of g14. Otherwise, return zero. */ frame = FRAME_INFO_ID (fi); get_frame_saved_regs (fi, &fsr); if (fsr.regs[G14_REGNUM]) ap = read_memory_integer (fsr.regs[G14_REGNUM],4); else { if (must_be_correct) return 0; /* Don't cache this result */ if (get_next_frame (frame)) ap = 0; else ap = read_register (G14_REGNUM); if (ap == 0) ap = fi->frame; } fi->arg_pointer = ap; /* Cache it for next time */ return ap; } /* Return the address of the return struct for the frame described by FI. Returns 0 if the address is unknown. */ CORE_ADDR frame_struct_result_address (fi) struct frame_info *fi; { register FRAME frame; struct frame_saved_regs fsr; CORE_ADDR ap; /* If the frame is non-current, check to see if g14 was saved in the frame by the function prologue code; return the saved value if so, zero otherwise. If the frame is current, return the value of g14. FIXME, shouldn't this use the saved value as long as we are past the function prologue, and only use the current value if we have no saved value and are at TOS? -- gnu@cygnus.com */ frame = FRAME_INFO_ID (fi); if (get_next_frame (frame)) { get_frame_saved_regs (fi, &fsr); if (fsr.regs[G13_REGNUM]) ap = read_memory_integer (fsr.regs[G13_REGNUM],4); else ap = 0; } else { ap = read_register (G13_REGNUM); } return ap; } /* Return address to which the currently executing leafproc will return, or 0 if ip is not in a leafproc (or if we can't tell if it is). Do this by finding the starting address of the routine in which ip lies. If the instruction there is "mov g14, gx" (where x is in [0,7]), this is a leafproc and the return address is in register gx. Well, this is true unless the return address points at a RET instruction in the current procedure, which indicates that we have a 'dual entry' routine that has been entered through the CALL entry point. */ CORE_ADDR leafproc_return (ip) CORE_ADDR ip; /* ip from currently executing function */ { register struct minimal_symbol *msymbol; char *p; int dst; unsigned int insn1, insn2; CORE_ADDR return_addr; if ((msymbol = lookup_minimal_symbol_by_pc (ip)) != NULL) { if ((p = strchr(SYMBOL_NAME (msymbol), '.')) && STREQ (p, ".lf")) { if (next_insn (SYMBOL_VALUE_ADDRESS (msymbol), &insn1, &insn2) && (insn1 & 0xff87ffff) == 0x5c80161e /* mov g14, gx */ && (dst = REG_SRCDST (insn1)) <= G0_REGNUM + 7) { /* Get the return address. If the "mov g14, gx" instruction hasn't been executed yet, read the return address from g14; otherwise, read it from the register into which g14 was moved. */ return_addr = read_register ((ip == SYMBOL_VALUE_ADDRESS (msymbol)) ? G14_REGNUM : dst); /* We know we are in a leaf procedure, but we don't know whether the caller actually did a "bal" to the ".lf" entry point, or a normal "call" to the non-leaf entry point one instruction before. In the latter case, the return address will be the address of a "ret" instruction within the procedure itself. We test for this below. */ if (!next_insn (return_addr, &insn1, &insn2) || (insn1 & 0xff000000) != 0xa000000 /* ret */ || lookup_minimal_symbol_by_pc (return_addr) != msymbol) return (return_addr); } } } return (0); } /* Immediately after a function call, return the saved pc. Can't go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. On the i960, the frame *is* set up immediately after the call, unless the function is a leaf procedure. */ CORE_ADDR saved_pc_after_call (frame) FRAME frame; { CORE_ADDR saved_pc; CORE_ADDR get_frame_pc (); saved_pc = leafproc_return (get_frame_pc (frame)); if (!saved_pc) saved_pc = FRAME_SAVED_PC (frame); return (saved_pc); } /* Discard from the stack the innermost frame, restoring all saved registers. */ pop_frame () { register struct frame_info *current_fi, *prev_fi; register int i; CORE_ADDR save_addr; CORE_ADDR leaf_return_addr; struct frame_saved_regs fsr; char local_regs_buf[16 * 4]; current_fi = get_frame_info (get_current_frame ()); /* First, undo what the hardware does when we return. If this is a non-leaf procedure, restore local registers from the save area in the calling frame. Otherwise, load the return address obtained from leafproc_return () into the rip. */ leaf_return_addr = leafproc_return (current_fi->pc); if (!leaf_return_addr) { /* Non-leaf procedure. Restore local registers, incl IP. */ prev_fi = get_frame_info (get_prev_frame (FRAME_INFO_ID (current_fi))); read_memory (prev_fi->frame, local_regs_buf, sizeof (local_regs_buf)); write_register_bytes (REGISTER_BYTE (R0_REGNUM), local_regs_buf, sizeof (local_regs_buf)); /* Restore frame pointer. */ write_register (FP_REGNUM, prev_fi->frame); } else { /* Leaf procedure. Just restore the return address into the IP. */ write_register (RIP_REGNUM, leaf_return_addr); } /* Now restore any global regs that the current function had saved. */ get_frame_saved_regs (current_fi, &fsr); for (i = G0_REGNUM; i < G14_REGNUM; i++) { if (save_addr = fsr.regs[i]) write_register (i, read_memory_integer (save_addr, 4)); } /* Flush the frame cache, create a frame for the new innermost frame, and make it the current frame. */ flush_cached_frames (); set_current_frame (create_new_frame (read_register (FP_REGNUM), read_pc ())); } /* Given a 960 stop code (fault or trace), return the signal which corresponds. */ enum target_signal i960_fault_to_signal (fault) int fault; { switch (fault) { case 0: return TARGET_SIGNAL_BUS; /* parallel fault */ case 1: return TARGET_SIGNAL_UNKNOWN; case 2: return TARGET_SIGNAL_ILL; /* operation fault */ case 3: return TARGET_SIGNAL_FPE; /* arithmetic fault */ case 4: return TARGET_SIGNAL_FPE; /* floating point fault */ /* constraint fault. This appears not to distinguish between a range constraint fault (which should be SIGFPE) and a privileged fault (which should be SIGILL). */ case 5: return TARGET_SIGNAL_ILL; case 6: return TARGET_SIGNAL_SEGV; /* virtual memory fault */ /* protection fault. This is for an out-of-range argument to "calls". I guess it also could be SIGILL. */ case 7: return TARGET_SIGNAL_SEGV; case 8: return TARGET_SIGNAL_BUS; /* machine fault */ case 9: return TARGET_SIGNAL_BUS; /* structural fault */ case 0xa: return TARGET_SIGNAL_ILL; /* type fault */ case 0xb: return TARGET_SIGNAL_UNKNOWN; /* reserved fault */ case 0xc: return TARGET_SIGNAL_BUS; /* process fault */ case 0xd: return TARGET_SIGNAL_SEGV; /* descriptor fault */ case 0xe: return TARGET_SIGNAL_BUS; /* event fault */ case 0xf: return TARGET_SIGNAL_UNKNOWN; /* reserved fault */ case 0x10: return TARGET_SIGNAL_TRAP; /* single-step trace */ case 0x11: return TARGET_SIGNAL_TRAP; /* branch trace */ case 0x12: return TARGET_SIGNAL_TRAP; /* call trace */ case 0x13: return TARGET_SIGNAL_TRAP; /* return trace */ case 0x14: return TARGET_SIGNAL_TRAP; /* pre-return trace */ case 0x15: return TARGET_SIGNAL_TRAP; /* supervisor call trace */ case 0x16: return TARGET_SIGNAL_TRAP; /* breakpoint trace */ default: return TARGET_SIGNAL_UNKNOWN; } } /* Initialization stub */ void _initialize_i960_tdep () { check_host (); } gdb-4.13/gdb/infcmd.c 666 34562 1752 113203 5612072177 12744 0ustar fnfcygnus/* Memory-access and commands for "inferior" (child) process, for GDB. Copyright 1986, 1987, 1988, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include #include #include "symtab.h" #include "gdbtypes.h" #include "frame.h" #include "inferior.h" #include "environ.h" #include "value.h" #include "gdbcmd.h" #include "gdbcore.h" #include "target.h" #include "language.h" static void continue_command PARAMS ((char *, int)); static void until_next_command PARAMS ((int)); static void until_command PARAMS ((char *, int)); static void path_info PARAMS ((char *, int)); static void path_command PARAMS ((char *, int)); static void unset_command PARAMS ((char *, int)); static void float_info PARAMS ((char *, int)); static void detach_command PARAMS ((char *, int)); static void nofp_registers_info PARAMS ((char *, int)); static void all_registers_info PARAMS ((char *, int)); static void registers_info PARAMS ((char *, int)); static void do_registers_info PARAMS ((int, int)); static void unset_environment_command PARAMS ((char *, int)); static void set_environment_command PARAMS ((char *, int)); static void environment_info PARAMS ((char *, int)); static void program_info PARAMS ((char *, int)); static void finish_command PARAMS ((char *, int)); static void signal_command PARAMS ((char *, int)); static void jump_command PARAMS ((char *, int)); static void step_1 PARAMS ((int, int, char *)); static void nexti_command PARAMS ((char *, int)); static void stepi_command PARAMS ((char *, int)); static void next_command PARAMS ((char *, int)); static void step_command PARAMS ((char *, int)); static void run_command PARAMS ((char *, int)); #define ERROR_NO_INFERIOR \ if (!target_has_execution) error ("The program is not being run."); /* String containing arguments to give to the program, separated by spaces. Empty string (pointer to '\0') means no args. */ static char *inferior_args; /* File name for default use for standard in/out in the inferior. */ char *inferior_io_terminal; /* Pid of our debugged inferior, or 0 if no inferior now. Since various parts of infrun.c test this to see whether there is a program being debugged it should be nonzero (currently 3 is used) for remote debugging. */ int inferior_pid; /* Last signal that the inferior received (why it stopped). */ enum target_signal stop_signal; /* Address at which inferior stopped. */ CORE_ADDR stop_pc; /* Stack frame when program stopped. */ FRAME_ADDR stop_frame_address; /* Chain containing status of breakpoint(s) that we have stopped at. */ bpstat stop_bpstat; /* Flag indicating that a command has proceeded the inferior past the current breakpoint. */ int breakpoint_proceeded; /* Nonzero if stopped due to a step command. */ int stop_step; /* Nonzero if stopped due to completion of a stack dummy routine. */ int stop_stack_dummy; /* Nonzero if stopped due to a random (unexpected) signal in inferior process. */ int stopped_by_random_signal; /* Range to single step within. If this is nonzero, respond to a single-step signal by continuing to step if the pc is in this range. */ CORE_ADDR step_range_start; /* Inclusive */ CORE_ADDR step_range_end; /* Exclusive */ /* Stack frame address as of when stepping command was issued. This is how we know when we step into a subroutine call, and how to set the frame for the breakpoint used to step out. */ FRAME_ADDR step_frame_address; /* 1 means step over all subroutine calls. 0 means don't step over calls (used by stepi). -1 means step over calls to undebuggable functions. */ int step_over_calls; /* If stepping, nonzero means step count is > 1 so don't print frame next time inferior stops if it stops due to stepping. */ int step_multi; /* Environment to use for running inferior, in format described in environ.h. */ struct environ *inferior_environ; /* ARGSUSED */ void tty_command (file, from_tty) char *file; int from_tty; { if (file == 0) error_no_arg ("terminal name for running target process"); inferior_io_terminal = savestring (file, strlen (file)); } static void run_command (args, from_tty) char *args; int from_tty; { char *exec_file; dont_repeat (); /* Shouldn't this be target_has_execution? FIXME. */ if (inferior_pid) { if ( !query ("The program being debugged has been started already.\n\ Start it from the beginning? ")) error ("Program not restarted."); target_kill (); } clear_breakpoint_hit_counts (); exec_file = (char *) get_exec_file (0); /* The exec file is re-read every time we do a generic_mourn_inferior, so we just have to worry about the symbol file. */ reread_symbols (); /* We keep symbols from add-symbol-file, on the grounds that the user might want to add some symbols before running the program (right?). But sometimes (dynamic loading where the user manually introduces the new symbols with add-symbol-file), the code which the symbols describe does not persist between runs. Currently the user has to manually nuke all symbols between runs if they want them to go away (PR 2207). This is probably reasonable. */ if (args) { char *cmd; cmd = concat ("set args ", args, NULL); make_cleanup (free, cmd); execute_command (cmd, from_tty); } if (from_tty) { puts_filtered("Starting program: "); if (exec_file) puts_filtered(exec_file); puts_filtered(" "); puts_filtered(inferior_args); puts_filtered("\n"); gdb_flush (gdb_stdout); } target_create_inferior (exec_file, inferior_args, environ_vector (inferior_environ)); } static void continue_command (proc_count_exp, from_tty) char *proc_count_exp; int from_tty; { ERROR_NO_INFERIOR; /* If have argument, set proceed count of breakpoint we stopped at. */ if (proc_count_exp != NULL) { bpstat bs = stop_bpstat; int num = bpstat_num (&bs); if (num == 0 && from_tty) { printf_filtered ("Not stopped at any breakpoint; argument ignored.\n"); } while (num != 0) { set_ignore_count (num, parse_and_eval_address (proc_count_exp) - 1, from_tty); /* set_ignore_count prints a message ending with a period. So print two spaces before "Continuing.". */ if (from_tty) printf_filtered (" "); num = bpstat_num (&bs); } } if (from_tty) printf_filtered ("Continuing.\n"); clear_proceed_status (); proceed ((CORE_ADDR) -1, TARGET_SIGNAL_DEFAULT, 0); } /* Step until outside of current statement. */ /* ARGSUSED */ static void step_command (count_string, from_tty) char *count_string; int from_tty; { step_1 (0, 0, count_string); } /* Likewise, but skip over subroutine calls as if single instructions. */ /* ARGSUSED */ static void next_command (count_string, from_tty) char *count_string; int from_tty; { step_1 (1, 0, count_string); } /* Likewise, but step only one instruction. */ /* ARGSUSED */ static void stepi_command (count_string, from_tty) char *count_string; int from_tty; { step_1 (0, 1, count_string); } /* ARGSUSED */ static void nexti_command (count_string, from_tty) char *count_string; int from_tty; { step_1 (1, 1, count_string); } static void step_1 (skip_subroutines, single_inst, count_string) int skip_subroutines; int single_inst; char *count_string; { register int count = 1; FRAME fr; struct cleanup *cleanups = 0; ERROR_NO_INFERIOR; count = count_string ? parse_and_eval_address (count_string) : 1; if (!single_inst || skip_subroutines) /* leave si command alone */ { enable_longjmp_breakpoint(); cleanups = make_cleanup(disable_longjmp_breakpoint, 0); } for (; count > 0; count--) { clear_proceed_status (); fr = get_current_frame (); if (!fr) /* Avoid coredump here. Why tho? */ error ("No current frame"); step_frame_address = FRAME_FP (fr); if (! single_inst) { find_pc_line_pc_range (stop_pc, &step_range_start, &step_range_end); if (step_range_end == 0) { char *name; if (find_pc_partial_function (stop_pc, &name, &step_range_start, &step_range_end) == 0) error ("Cannot find bounds of current function"); target_terminal_ours (); printf_filtered ("\ Single stepping until exit from function %s, \n\ which has no line number information.\n", name); gdb_flush (gdb_stdout); } } else { /* Say we are stepping, but stop after one insn whatever it does. */ step_range_start = step_range_end = 1; if (!skip_subroutines) /* It is stepi. Don't step over function calls, not even to functions lacking line numbers. */ step_over_calls = 0; } if (skip_subroutines) step_over_calls = 1; step_multi = (count > 1); proceed ((CORE_ADDR) -1, TARGET_SIGNAL_DEFAULT, 1); if (! stop_step) break; /* FIXME: On nexti, this may have already been done (when we hit the step resume break, I think). Probably this should be moved to wait_for_inferior (near the top). */ #if defined (SHIFT_INST_REGS) SHIFT_INST_REGS(); #endif } if (!single_inst || skip_subroutines) do_cleanups(cleanups); } /* Continue program at specified address. */ static void jump_command (arg, from_tty) char *arg; int from_tty; { register CORE_ADDR addr; struct symtabs_and_lines sals; struct symtab_and_line sal; struct symbol *fn; struct symbol *sfn; ERROR_NO_INFERIOR; if (!arg) error_no_arg ("starting address"); sals = decode_line_spec_1 (arg, 1); if (sals.nelts != 1) { error ("Unreasonable jump request"); } sal = sals.sals[0]; free ((PTR)sals.sals); if (sal.symtab == 0 && sal.pc == 0) error ("No source file has been specified."); resolve_sal_pc (&sal); /* May error out */ /* See if we are trying to jump to another function. */ fn = get_frame_function (get_current_frame ()); sfn = find_pc_function (sal.pc); if (fn != NULL && sfn != fn) { if (!query ("Line %d is not in `%s'. Jump anyway? ", sal.line, SYMBOL_SOURCE_NAME (fn))) { error ("Not confirmed."); /* NOTREACHED */ } } addr = sal.pc; if (from_tty) { printf_filtered ("Continuing at "); print_address_numeric (addr, 1, gdb_stdout); printf_filtered (".\n"); } clear_proceed_status (); proceed (addr, TARGET_SIGNAL_0, 0); } /* Continue program giving it specified signal. */ static void signal_command (signum_exp, from_tty) char *signum_exp; int from_tty; { enum target_signal oursig; dont_repeat (); /* Too dangerous. */ ERROR_NO_INFERIOR; if (!signum_exp) error_no_arg ("signal number"); /* It would be even slicker to make signal names be valid expressions, (the type could be "enum $signal" or some such), then the user could assign them to convenience variables. */ oursig = target_signal_from_name (signum_exp); if (oursig == TARGET_SIGNAL_UNKNOWN) { /* Not found as a name, try it as an expression. */ /* The numeric signal refers to our own internal signal numbering from target.h, not to host/target signal number. This is a feature; users really should be using symbolic names anyway, and the common ones like SIGHUP, SIGINT, SIGALRM, etc. will work right anyway. */ int signum = parse_and_eval_address (signum_exp); if (signum < 0 || signum >= (int)TARGET_SIGNAL_LAST || signum == (int)TARGET_SIGNAL_UNKNOWN || signum == (int)TARGET_SIGNAL_DEFAULT) error ("Invalid signal number %d.", signum); oursig = signum; } if (from_tty) { if (oursig == TARGET_SIGNAL_0) printf_filtered ("Continuing with no signal.\n"); else printf_filtered ("Continuing with signal %s.\n", target_signal_to_name (oursig)); } clear_proceed_status (); proceed (stop_pc, oursig, 0); } /* Call breakpoint_auto_delete on the current contents of the bpstat pointed to by arg (which is really a bpstat *). */ void breakpoint_auto_delete_contents (arg) PTR arg; { breakpoint_auto_delete (*(bpstat *)arg); } /* Execute a "stack dummy", a piece of code stored in the stack by the debugger to be executed in the inferior. To call: first, do PUSH_DUMMY_FRAME. Then push the contents of the dummy. It should end with a breakpoint insn. Then call here, passing address at which to start the dummy. The contents of all registers are saved before the dummy frame is popped and copied into the buffer BUFFER. The dummy's frame is automatically popped whenever that break is hit. If that is the first time the program stops, run_stack_dummy returns to its caller with that frame already gone and returns 0. Otherwise, run_stack-dummy returns 1 (the frame will eventually be popped when we do hit that breakpoint). */ /* DEBUG HOOK: 4 => return instead of letting the stack dummy run. */ static int stack_dummy_testing = 0; int run_stack_dummy (addr, buffer) CORE_ADDR addr; char buffer[REGISTER_BYTES]; { struct cleanup *old_cleanups = make_cleanup (null_cleanup, 0); /* Now proceed, having reached the desired place. */ clear_proceed_status (); if (stack_dummy_testing & 4) { POP_FRAME; return(0); } #ifdef CALL_DUMMY_BREAKPOINT_OFFSET { struct breakpoint *bpt; struct symtab_and_line sal; #if CALL_DUMMY_LOCATION != AT_ENTRY_POINT sal.pc = addr - CALL_DUMMY_START_OFFSET + CALL_DUMMY_BREAKPOINT_OFFSET; #else sal.pc = CALL_DUMMY_ADDRESS (); #endif sal.symtab = NULL; sal.line = 0; /* Set up a FRAME for the dummy frame so we can pass it to set_momentary_breakpoint. We need to give the breakpoint a frame in case there is only one copy of the dummy (e.g. CALL_DUMMY_LOCATION == AFTER_TEXT_END). */ flush_cached_frames (); set_current_frame (create_new_frame (read_fp (), sal.pc)); /* If defined, CALL_DUMMY_BREAKPOINT_OFFSET is where we need to put a breakpoint instruction. If not, the call dummy already has the breakpoint instruction in it. addr is the address of the call dummy plus the CALL_DUMMY_START_OFFSET, so we need to subtract the CALL_DUMMY_START_OFFSET. */ bpt = set_momentary_breakpoint (sal, get_current_frame (), bp_call_dummy); bpt->disposition = delete; /* If all error()s out of proceed ended up calling normal_stop (and perhaps they should; it already does in the special case of error out of resume()), then we wouldn't need this. */ make_cleanup (breakpoint_auto_delete_contents, &stop_bpstat); } #endif /* CALL_DUMMY_BREAKPOINT_OFFSET. */ proceed_to_finish = 1; /* We want stop_registers, please... */ proceed (addr, TARGET_SIGNAL_0, 0); discard_cleanups (old_cleanups); if (!stop_stack_dummy) return 1; /* On return, the stack dummy has been popped already. */ memcpy (buffer, stop_registers, sizeof stop_registers); return 0; } /* Proceed until we reach a different source line with pc greater than our current one or exit the function. We skip calls in both cases. Note that eventually this command should probably be changed so that only source lines are printed out when we hit the breakpoint we set. This may involve changes to wait_for_inferior and the proceed status code. */ /* ARGSUSED */ static void until_next_command (from_tty) int from_tty; { FRAME frame; CORE_ADDR pc; struct symbol *func; struct symtab_and_line sal; clear_proceed_status (); frame = get_current_frame (); /* Step until either exited from this function or greater than the current line (if in symbolic section) or pc (if not). */ pc = read_pc (); func = find_pc_function (pc); if (!func) { struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (pc); if (msymbol == NULL) error ("Execution is not within a known function."); step_range_start = SYMBOL_VALUE_ADDRESS (msymbol); step_range_end = pc; } else { sal = find_pc_line (pc, 0); step_range_start = BLOCK_START (SYMBOL_BLOCK_VALUE (func)); step_range_end = sal.end; } step_over_calls = 1; step_frame_address = FRAME_FP (frame); step_multi = 0; /* Only one call to proceed */ proceed ((CORE_ADDR) -1, TARGET_SIGNAL_DEFAULT, 1); } static void until_command (arg, from_tty) char *arg; int from_tty; { if (!target_has_execution) error ("The program is not running."); if (arg) until_break_command (arg, from_tty); else until_next_command (from_tty); } /* "finish": Set a temporary breakpoint at the place the selected frame will return to, then continue. */ static void finish_command (arg, from_tty) char *arg; int from_tty; { struct symtab_and_line sal; register FRAME frame; struct frame_info *fi; register struct symbol *function; struct breakpoint *breakpoint; struct cleanup *old_chain; if (arg) error ("The \"finish\" command does not take any arguments."); if (!target_has_execution) error ("The program is not running."); if (selected_frame == NULL) error ("No selected frame."); frame = get_prev_frame (selected_frame); if (frame == 0) error ("\"finish\" not meaningful in the outermost frame."); clear_proceed_status (); fi = get_frame_info (frame); sal = find_pc_line (fi->pc, 0); sal.pc = fi->pc; breakpoint = set_momentary_breakpoint (sal, frame, bp_finish); old_chain = make_cleanup(delete_breakpoint, breakpoint); /* Find the function we will return from. */ fi = get_frame_info (selected_frame); function = find_pc_function (fi->pc); /* Print info on the selected frame, including level number but not source. */ if (from_tty) { printf_filtered ("Run till exit from "); print_stack_frame (selected_frame, selected_frame_level, 0); } proceed_to_finish = 1; /* We want stop_registers, please... */ proceed ((CORE_ADDR) -1, TARGET_SIGNAL_DEFAULT, 0); /* Did we stop at our breakpoint? */ if (bpstat_find_breakpoint(stop_bpstat, breakpoint) != NULL && function != 0) { struct type *value_type; register value_ptr val; CORE_ADDR funcaddr; value_type = TYPE_TARGET_TYPE (SYMBOL_TYPE (function)); if (!value_type) fatal ("internal: finish_command: function has no target type"); if (TYPE_CODE (value_type) == TYPE_CODE_VOID) return; funcaddr = BLOCK_START (SYMBOL_BLOCK_VALUE (function)); val = value_being_returned (value_type, stop_registers, using_struct_return (value_of_variable (function, NULL), funcaddr, value_type, BLOCK_GCC_COMPILED (SYMBOL_BLOCK_VALUE (function)))); printf_filtered ("Value returned is $%d = ", record_latest_value (val)); value_print (val, gdb_stdout, 0, Val_no_prettyprint); printf_filtered ("\n"); } do_cleanups(old_chain); } /* ARGSUSED */ static void program_info (args, from_tty) char *args; int from_tty; { bpstat bs = stop_bpstat; int num = bpstat_num (&bs); if (!target_has_execution) { printf_filtered ("The program being debugged is not being run.\n"); return; } target_files_info (); printf_filtered ("Program stopped at %s.\n", local_hex_string((unsigned long) stop_pc)); if (stop_step) printf_filtered ("It stopped after being stepped.\n"); else if (num != 0) { /* There may be several breakpoints in the same place, so this isn't as strange as it seems. */ while (num != 0) { if (num < 0) printf_filtered ("It stopped at a breakpoint that has since been deleted.\n"); else printf_filtered ("It stopped at breakpoint %d.\n", num); num = bpstat_num (&bs); } } else if (stop_signal != TARGET_SIGNAL_0) { printf_filtered ("It stopped with signal %s, %s.\n", target_signal_to_name (stop_signal), target_signal_to_string (stop_signal)); } if (!from_tty) printf_filtered ("Type \"info stack\" or \"info registers\" for more information.\n"); } static void environment_info (var, from_tty) char *var; int from_tty; { if (var) { register char *val = get_in_environ (inferior_environ, var); if (val) { puts_filtered (var); puts_filtered (" = "); puts_filtered (val); puts_filtered ("\n"); } else { puts_filtered ("Environment variable \""); puts_filtered (var); puts_filtered ("\" not defined.\n"); } } else { register char **vector = environ_vector (inferior_environ); while (*vector) { puts_filtered (*vector++); puts_filtered ("\n"); } } } static void set_environment_command (arg, from_tty) char *arg; int from_tty; { register char *p, *val, *var; int nullset = 0; if (arg == 0) error_no_arg ("environment variable and value"); /* Find seperation between variable name and value */ p = (char *) strchr (arg, '='); val = (char *) strchr (arg, ' '); if (p != 0 && val != 0) { /* We have both a space and an equals. If the space is before the equals, walk forward over the spaces til we see a nonspace (possibly the equals). */ if (p > val) while (*val == ' ') val++; /* Now if the = is after the char following the spaces, take the char following the spaces. */ if (p > val) p = val - 1; } else if (val != 0 && p == 0) p = val; if (p == arg) error_no_arg ("environment variable to set"); if (p == 0 || p[1] == 0) { nullset = 1; if (p == 0) p = arg + strlen (arg); /* So that savestring below will work */ } else { /* Not setting variable value to null */ val = p + 1; while (*val == ' ' || *val == '\t') val++; } while (p != arg && (p[-1] == ' ' || p[-1] == '\t')) p--; var = savestring (arg, p - arg); if (nullset) { printf_filtered ("Setting environment variable \"%s\" to null value.\n", var); set_in_environ (inferior_environ, var, ""); } else set_in_environ (inferior_environ, var, val); free (var); } static void unset_environment_command (var, from_tty) char *var; int from_tty; { if (var == 0) { /* If there is no argument, delete all environment variables. Ask for confirmation if reading from the terminal. */ if (!from_tty || query ("Delete all environment variables? ")) { free_environ (inferior_environ); inferior_environ = make_environ (); } } else unset_in_environ (inferior_environ, var); } /* Handle the execution path (PATH variable) */ static const char path_var_name[] = "PATH"; /* ARGSUSED */ static void path_info (args, from_tty) char *args; int from_tty; { puts_filtered ("Executable and object file path: "); puts_filtered (get_in_environ (inferior_environ, path_var_name)); puts_filtered ("\n"); } /* Add zero or more directories to the front of the execution path. */ static void path_command (dirname, from_tty) char *dirname; int from_tty; { char *exec_path; dont_repeat (); exec_path = strsave (get_in_environ (inferior_environ, path_var_name)); mod_path (dirname, &exec_path); set_in_environ (inferior_environ, path_var_name, exec_path); free (exec_path); if (from_tty) path_info ((char *)NULL, from_tty); } const char * const reg_names[] = REGISTER_NAMES; /* Print out the machine register regnum. If regnum is -1, print all registers (fpregs == 1) or all non-float registers (fpregs == 0). For most machines, having all_registers_info() print the register(s) one per line is good enough. If a different format is required, (eg, for MIPS or Pyramid 90x, which both have lots of regs), or there is an existing convention for showing all the registers, define the macro DO_REGISTERS_INFO(regnum, fp) to provide that format. */ #if !defined (DO_REGISTERS_INFO) #define DO_REGISTERS_INFO(regnum, fp) do_registers_info(regnum, fp) static void do_registers_info (regnum, fpregs) int regnum; int fpregs; { register int i; int numregs = ARCH_NUM_REGS; for (i = 0; i < numregs; i++) { char raw_buffer[MAX_REGISTER_RAW_SIZE]; char virtual_buffer[MAX_REGISTER_VIRTUAL_SIZE]; /* Decide between printing all regs, nonfloat regs, or specific reg. */ if (regnum == -1) { if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT && !fpregs) continue; } else { if (i != regnum) continue; } fputs_filtered (reg_names[i], gdb_stdout); print_spaces_filtered (15 - strlen (reg_names[i]), gdb_stdout); /* Get the data in raw format. */ if (read_relative_register_raw_bytes (i, raw_buffer)) { printf_filtered ("Invalid register contents\n"); continue; } /* Convert raw data to virtual format if necessary. */ #ifdef REGISTER_CONVERTIBLE if (REGISTER_CONVERTIBLE (i)) { REGISTER_CONVERT_TO_VIRTUAL (i, REGISTER_VIRTUAL_TYPE (i), raw_buffer, virtual_buffer); } else #endif memcpy (virtual_buffer, raw_buffer, REGISTER_VIRTUAL_SIZE (i)); /* If virtual format is floating, print it that way, and in raw hex. */ if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT && ! INVALID_FLOAT (virtual_buffer, REGISTER_VIRTUAL_SIZE (i))) { register int j; val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0, gdb_stdout, 0, 1, 0, Val_pretty_default); printf_filtered ("\t(raw 0x"); for (j = 0; j < REGISTER_RAW_SIZE (i); j++) printf_filtered ("%02x", (unsigned char)raw_buffer[j]); printf_filtered (")"); } /* FIXME! val_print probably can handle all of these cases now... */ /* Else if virtual format is too long for printf, print in hex a byte at a time. */ else if (REGISTER_VIRTUAL_SIZE (i) > sizeof (long)) { register int j; printf_filtered ("0x"); for (j = 0; j < REGISTER_VIRTUAL_SIZE (i); j++) printf_filtered ("%02x", (unsigned char)virtual_buffer[j]); } /* Else print as integer in hex and in decimal. */ else { val_print (REGISTER_VIRTUAL_TYPE (i), raw_buffer, 0, gdb_stdout, 'x', 1, 0, Val_pretty_default); printf_filtered ("\t"); val_print (REGISTER_VIRTUAL_TYPE (i), raw_buffer, 0, gdb_stdout, 0, 1, 0, Val_pretty_default); } /* The SPARC wants to print even-numbered float regs as doubles in addition to printing them as floats. */ #ifdef PRINT_REGISTER_HOOK PRINT_REGISTER_HOOK (i); #endif printf_filtered ("\n"); } } #endif /* no DO_REGISTERS_INFO. */ static void registers_info (addr_exp, fpregs) char *addr_exp; int fpregs; { int regnum, numregs; register char *end; if (!target_has_registers) error ("The program has no registers now."); if (!addr_exp) { DO_REGISTERS_INFO(-1, fpregs); return; } do { if (addr_exp[0] == '$') addr_exp++; end = addr_exp; while (*end != '\0' && *end != ' ' && *end != '\t') ++end; numregs = ARCH_NUM_REGS; for (regnum = 0; regnum < numregs; regnum++) if (!strncmp (addr_exp, reg_names[regnum], end - addr_exp) && strlen (reg_names[regnum]) == end - addr_exp) goto found; if (*addr_exp >= '0' && *addr_exp <= '9') regnum = atoi (addr_exp); /* Take a number */ if (regnum >= numregs) /* Bad name, or bad number */ error ("%.*s: invalid register", end - addr_exp, addr_exp); found: DO_REGISTERS_INFO(regnum, fpregs); addr_exp = end; while (*addr_exp == ' ' || *addr_exp == '\t') ++addr_exp; } while (*addr_exp != '\0'); } static void all_registers_info (addr_exp, from_tty) char *addr_exp; int from_tty; { registers_info (addr_exp, 1); } static void nofp_registers_info (addr_exp, from_tty) char *addr_exp; int from_tty; { registers_info (addr_exp, 0); } /* * TODO: * Should save/restore the tty state since it might be that the * program to be debugged was started on this tty and it wants * the tty in some state other than what we want. If it's running * on another terminal or without a terminal, then saving and * restoring the tty state is a harmless no-op. * This only needs to be done if we are attaching to a process. */ /* attach_command -- takes a program started up outside of gdb and ``attaches'' to it. This stops it cold in its tracks and allows us to start debugging it. and wait for the trace-trap that results from attaching. */ void attach_command (args, from_tty) char *args; int from_tty; { dont_repeat (); /* Not for the faint of heart */ if (target_has_execution) { if (query ("A program is being debugged already. Kill it? ")) target_kill (); else error ("Not killed."); } target_attach (args, from_tty); /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); /* Set up execution context to know that we should return from wait_for_inferior as soon as the target reports a stop. */ init_wait_for_inferior (); clear_proceed_status (); stop_soon_quietly = 1; #ifndef MACH /* Mach 3 does not generate any traps when attaching to inferior, and to set up frames we can do this. */ wait_for_inferior (); #endif #ifdef SOLIB_ADD /* Add shared library symbols from the newly attached process, if any. */ SOLIB_ADD ((char *)0, from_tty, (struct target_ops *)0); #endif normal_stop (); } /* * detach_command -- * takes a program previously attached to and detaches it. * The program resumes execution and will no longer stop * on signals, etc. We better not have left any breakpoints * in the program or it'll die when it hits one. For this * to work, it may be necessary for the process to have been * previously attached. It *might* work if the program was * started via the normal ptrace (PTRACE_TRACEME). */ static void detach_command (args, from_tty) char *args; int from_tty; { dont_repeat (); /* Not for the faint of heart */ target_detach (args, from_tty); } /* ARGSUSED */ static void float_info (addr_exp, from_tty) char *addr_exp; int from_tty; { #ifdef FLOAT_INFO FLOAT_INFO; #else printf_filtered ("No floating point info available for this processor.\n"); #endif } /* ARGSUSED */ static void unset_command (args, from_tty) char *args; int from_tty; { printf_filtered ("\"unset\" must be followed by the name of an unset subcommand.\n"); help_list (unsetlist, "unset ", -1, gdb_stdout); } void _initialize_infcmd () { struct cmd_list_element *c; add_com ("tty", class_run, tty_command, "Set terminal for future runs of program being debugged."); add_show_from_set (add_set_cmd ("args", class_run, var_string_noescape, (char *)&inferior_args, "Set arguments to give program being debugged when it is started.\n\ Follow this command with any number of args, to be passed to the program.", &setlist), &showlist); c = add_cmd ("environment", no_class, environment_info, "The environment to give the program, or one variable's value.\n\ With an argument VAR, prints the value of environment variable VAR to\n\ give the program being debugged. With no arguments, prints the entire\n\ environment to be given to the program.", &showlist); c->completer = noop_completer; add_prefix_cmd ("unset", no_class, unset_command, "Complement to certain \"set\" commands", &unsetlist, "unset ", 0, &cmdlist); c = add_cmd ("environment", class_run, unset_environment_command, "Cancel environment variable VAR for the program.\n\ This does not affect the program until the next \"run\" command.", &unsetlist); c->completer = noop_completer; c = add_cmd ("environment", class_run, set_environment_command, "Set environment variable value to give the program.\n\ Arguments are VAR VALUE where VAR is variable name and VALUE is value.\n\ VALUES of environment variables are uninterpreted strings.\n\ This does not affect the program until the next \"run\" command.", &setlist); c->completer = noop_completer; add_com ("path", class_files, path_command, "Add directory DIR(s) to beginning of search path for object files.\n\ $cwd in the path means the current working directory.\n\ This path is equivalent to the $PATH shell variable. It is a list of\n\ directories, separated by colons. These directories are searched to find\n\ fully linked executable files and separately compiled object files as needed."); c = add_cmd ("paths", no_class, path_info, "Current search path for finding object files.\n\ $cwd in the path means the current working directory.\n\ This path is equivalent to the $PATH shell variable. It is a list of\n\ directories, separated by colons. These directories are searched to find\n\ fully linked executable files and separately compiled object files as needed.", &showlist); c->completer = noop_completer; add_com ("attach", class_run, attach_command, "Attach to a process or file outside of GDB.\n\ This command attaches to another target, of the same type as your last\n\ `target' command (`info files' will show your target stack).\n\ The command may take as argument a process id or a device file.\n\ For a process id, you must have permission to send the process a signal,\n\ and it must have the same effective uid as the debugger.\n\ When using \"attach\", you should use the \"file\" command to specify\n\ the program running in the process, and to load its symbol table."); add_com ("detach", class_run, detach_command, "Detach a process or file previously attached.\n\ If a process, it is no longer traced, and it continues its execution. If you\n\ were debugging a file, the file is closed and gdb no longer accesses it."); add_com ("signal", class_run, signal_command, "Continue program giving it signal number SIGNUMBER."); add_com ("stepi", class_run, stepi_command, "Step one instruction exactly.\n\ Argument N means do this N times (or till program stops for another reason)."); add_com_alias ("si", "stepi", class_alias, 0); add_com ("nexti", class_run, nexti_command, "Step one instruction, but proceed through subroutine calls.\n\ Argument N means do this N times (or till program stops for another reason)."); add_com_alias ("ni", "nexti", class_alias, 0); add_com ("finish", class_run, finish_command, "Execute until selected stack frame returns.\n\ Upon return, the value returned is printed and put in the value history."); add_com ("next", class_run, next_command, "Step program, proceeding through subroutine calls.\n\ Like the \"step\" command as long as subroutine calls do not happen;\n\ when they do, the call is treated as one instruction.\n\ Argument N means do this N times (or till program stops for another reason)."); add_com_alias ("n", "next", class_run, 1); add_com ("step", class_run, step_command, "Step program until it reaches a different source line.\n\ Argument N means do this N times (or till program stops for another reason)."); add_com_alias ("s", "step", class_run, 1); add_com ("until", class_run, until_command, "Execute until the program reaches a source line greater than the current\n\ or a specified line or address or function (same args as break command).\n\ Execution will also stop upon exit from the current stack frame."); add_com_alias ("u", "until", class_run, 1); add_com ("jump", class_run, jump_command, "Continue program being debugged at specified line or address.\n\ Give as argument either LINENUM or *ADDR, where ADDR is an expression\n\ for an address to start at."); add_com ("continue", class_run, continue_command, "Continue program being debugged, after signal or breakpoint.\n\ If proceeding from breakpoint, a number N may be used as an argument,\n\ which means to set the ignore count of that breakpoint to N - 1 (so that\n\ the breakpoint won't break until the Nth time it is reached)."); add_com_alias ("c", "cont", class_run, 1); add_com_alias ("fg", "cont", class_run, 1); add_com ("run", class_run, run_command, "Start debugged program. You may specify arguments to give it.\n\ Args may include \"*\", or \"[...]\"; they are expanded using \"sh\".\n\ Input and output redirection with \">\", \"<\", or \">>\" are also allowed.\n\n\ With no arguments, uses arguments last specified (with \"run\" or \"set args\").\n\ To cancel previous arguments and run with no arguments,\n\ use \"set args\" without arguments."); add_com_alias ("r", "run", class_run, 1); add_info ("registers", nofp_registers_info, "List of integer registers and their contents, for selected stack frame.\n\ Register name as argument means describe only that register."); add_info ("all-registers", all_registers_info, "List of all registers and their contents, for selected stack frame.\n\ Register name as argument means describe only that register."); add_info ("program", program_info, "Execution status of the program."); add_info ("float", float_info, "Print the status of the floating point unit\n"); inferior_args = savestring ("", 1); /* Initially no args */ inferior_environ = make_environ (); init_environ (inferior_environ); } gdb-4.13/gdb/inferior.h 666 34562 1752 26655 5612072165 13321 0ustar fnfcygnus/* Variables that describe the inferior process running under GDB: Where it is, why it stopped, and how to step it. Copyright 1986, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (INFERIOR_H) #define INFERIOR_H 1 /* For bpstat. */ #include "breakpoint.h" /* For FRAME_ADDR. */ #include "frame.h" /* For enum target_signal. */ #include "target.h" /* * Structure in which to save the status of the inferior. Save * through "save_inferior_status", restore through * "restore_inferior_status". * This pair of routines should be called around any transfer of * control to the inferior which you don't want showing up in your * control variables. */ struct inferior_status { enum target_signal stop_signal; CORE_ADDR stop_pc; FRAME_ADDR stop_frame_address; bpstat stop_bpstat; int stop_step; int stop_stack_dummy; int stopped_by_random_signal; int trap_expected; CORE_ADDR step_range_start; CORE_ADDR step_range_end; FRAME_ADDR step_frame_address; int step_over_calls; CORE_ADDR step_resume_break_address; int stop_after_trap; int stop_soon_quietly; FRAME_ADDR selected_frame_address; int selected_level; char stop_registers[REGISTER_BYTES]; /* These are here because if call_function_by_hand has written some registers and then decides to call error(), we better not have changed any registers. */ char registers[REGISTER_BYTES]; int breakpoint_proceeded; int restore_stack_info; int proceed_to_finish; }; /* This macro gives the number of registers actually in use by the inferior. This may be less than the total number of registers, perhaps depending on the actual CPU in use or program being run. */ #ifndef ARCH_NUM_REGS #define ARCH_NUM_REGS NUM_REGS #endif extern void save_inferior_status PARAMS ((struct inferior_status *, int)); extern void restore_inferior_status PARAMS ((struct inferior_status *)); extern void set_sigint_trap PARAMS ((void)); extern void clear_sigint_trap PARAMS ((void)); extern void set_sigio_trap PARAMS ((void)); extern void clear_sigio_trap PARAMS ((void)); /* File name for default use for standard in/out in the inferior. */ extern char *inferior_io_terminal; /* Pid of our debugged inferior, or 0 if no inferior now. */ extern int inferior_pid; /* Character array containing an image of the inferior programs' registers. */ extern char registers[]; /* Array of validity bits (one per register). Nonzero at position XXX_REGNUM means that `registers' contains a valid copy of inferior register XXX. */ extern char register_valid[NUM_REGS]; extern void clear_proceed_status PARAMS ((void)); extern void proceed PARAMS ((CORE_ADDR, enum target_signal, int)); extern void kill_inferior PARAMS ((void)); extern void generic_mourn_inferior PARAMS ((void)); extern void terminal_ours PARAMS ((void)); extern int run_stack_dummy PARAMS ((CORE_ADDR, char [REGISTER_BYTES])); extern CORE_ADDR read_pc PARAMS ((void)); extern CORE_ADDR read_pc_pid PARAMS ((int)); extern void write_pc PARAMS ((CORE_ADDR)); extern CORE_ADDR read_sp PARAMS ((void)); extern void write_sp PARAMS ((CORE_ADDR)); extern CORE_ADDR read_fp PARAMS ((void)); extern void write_fp PARAMS ((CORE_ADDR)); extern void wait_for_inferior PARAMS ((void)); extern void init_wait_for_inferior PARAMS ((void)); extern void close_exec_file PARAMS ((void)); extern void reopen_exec_file PARAMS ((void)); /* The `resume' routine should only be called in special circumstances. Normally, use `proceed', which handles a lot of bookkeeping. */ extern void resume PARAMS ((int, enum target_signal)); /* From misc files */ extern void store_inferior_registers PARAMS ((int)); extern void fetch_inferior_registers PARAMS ((int)); extern void solib_create_inferior_hook PARAMS ((void)); extern void child_terminal_info PARAMS ((char *, int)); extern void term_info PARAMS ((char *, int)); extern void terminal_ours_for_output PARAMS ((void)); extern void terminal_inferior PARAMS ((void)); extern void terminal_init_inferior PARAMS ((void)); /* From infptrace.c */ extern int attach PARAMS ((int)); void detach PARAMS ((int)); extern void child_resume PARAMS ((int, int, enum target_signal)); #ifndef PTRACE_ARG3_TYPE #define PTRACE_ARG3_TYPE int /* Correct definition for most systems. */ #endif extern int call_ptrace PARAMS ((int, int, PTRACE_ARG3_TYPE, int)); /* From procfs.c */ extern int proc_iterate_over_mappings PARAMS ((int (*) (int, CORE_ADDR))); /* From fork-child.c */ extern void fork_inferior PARAMS ((char *, char *, char **, void (*) (void), void (*) (int), char *)); extern void startup_inferior PARAMS ((int)); /* From inflow.c */ extern void new_tty_prefork PARAMS ((char *)); extern int gdb_has_a_terminal PARAMS ((void)); /* From infrun.c */ extern void start_remote PARAMS ((void)); extern void normal_stop PARAMS ((void)); extern int signal_stop_state PARAMS ((int)); extern int signal_print_state PARAMS ((int)); extern int signal_pass_state PARAMS ((int)); /* From infcmd.c */ extern void tty_command PARAMS ((char *, int)); extern void attach_command PARAMS ((char *, int)); /* Last signal that the inferior received (why it stopped). */ extern enum target_signal stop_signal; /* Address at which inferior stopped. */ extern CORE_ADDR stop_pc; /* Stack frame when program stopped. */ extern FRAME_ADDR stop_frame_address; /* Chain containing status of breakpoint(s) that we have stopped at. */ extern bpstat stop_bpstat; /* Flag indicating that a command has proceeded the inferior past the current breakpoint. */ extern int breakpoint_proceeded; /* Nonzero if stopped due to a step command. */ extern int stop_step; /* Nonzero if stopped due to completion of a stack dummy routine. */ extern int stop_stack_dummy; /* Nonzero if program stopped due to a random (unexpected) signal in inferior process. */ extern int stopped_by_random_signal; /* Range to single step within. If this is nonzero, respond to a single-step signal by continuing to step if the pc is in this range. If step_range_start and step_range_end are both 1, it means to step for a single instruction (FIXME: it might clean up wait_for_inferior in a minor way if this were changed to the address of the instruction and that address plus one. But maybe not.). */ extern CORE_ADDR step_range_start; /* Inclusive */ extern CORE_ADDR step_range_end; /* Exclusive */ /* Stack frame address as of when stepping command was issued. This is how we know when we step into a subroutine call, and how to set the frame for the breakpoint used to step out. */ extern FRAME_ADDR step_frame_address; /* 1 means step over all subroutine calls. -1 means step over calls to undebuggable functions. */ extern int step_over_calls; /* If stepping, nonzero means step count is > 1 so don't print frame next time inferior stops if it stops due to stepping. */ extern int step_multi; /* Nonzero means expecting a trap and caller will handle it themselves. It is used after attach, due to attaching to a process; when running in the shell before the child program has been exec'd; and when running some kinds of remote stuff (FIXME?). */ extern int stop_soon_quietly; /* Nonzero if proceed is being used for a "finish" command or a similar situation when stop_registers should be saved. */ extern int proceed_to_finish; /* Save register contents here when about to pop a stack dummy frame, if-and-only-if proceed_to_finish is set. Thus this contains the return value from the called function (assuming values are returned in a register). */ extern char stop_registers[REGISTER_BYTES]; /* Nonzero if the child process in inferior_pid was attached rather than forked. */ extern int attach_flag; /* Sigtramp is a routine that the kernel calls (which then calls the signal handler). On most machines it is a library routine that is linked into the executable. This macro, given a program counter value and the name of the function in which that PC resides (which can be null if the name is not known), returns nonzero if the PC and name show that we are in sigtramp. On most machines just see if the name is sigtramp (and if we have no name, assume we are not in sigtramp). */ #if !defined (IN_SIGTRAMP) # if defined (SIGTRAMP_START) # define IN_SIGTRAMP(pc, name) \ ((pc) >= SIGTRAMP_START \ && (pc) < SIGTRAMP_END \ ) # else # define IN_SIGTRAMP(pc, name) \ (name && STREQ ("_sigtramp", name)) # endif #endif /* Possible values for CALL_DUMMY_LOCATION. */ #define ON_STACK 1 #define BEFORE_TEXT_END 2 #define AFTER_TEXT_END 3 #define AT_ENTRY_POINT 4 #if !defined (CALL_DUMMY_LOCATION) #define CALL_DUMMY_LOCATION ON_STACK #endif /* No CALL_DUMMY_LOCATION. */ /* Are we in a call dummy? The code below which allows DECR_PC_AFTER_BREAK below is for infrun.c, which may give the macro a pc without that subtracted out. */ #if !defined (PC_IN_CALL_DUMMY) #if CALL_DUMMY_LOCATION == BEFORE_TEXT_END extern CORE_ADDR text_end; #define PC_IN_CALL_DUMMY(pc, sp, frame_address) \ ((pc) >= text_end - CALL_DUMMY_LENGTH \ && (pc) <= text_end + DECR_PC_AFTER_BREAK) #endif /* Before text_end. */ #if CALL_DUMMY_LOCATION == AFTER_TEXT_END extern CORE_ADDR text_end; #define PC_IN_CALL_DUMMY(pc, sp, frame_address) \ ((pc) >= text_end \ && (pc) <= text_end + CALL_DUMMY_LENGTH + DECR_PC_AFTER_BREAK) #endif /* After text_end. */ #if CALL_DUMMY_LOCATION == ON_STACK /* Is the PC in a call dummy? SP and FRAME_ADDRESS are the bottom and top of the stack frame which we are checking, where "bottom" and "top" refer to some section of memory which contains the code for the call dummy. Calls to this macro assume that the contents of SP_REGNUM and FP_REGNUM (or the saved values thereof), respectively, are the things to pass. This won't work on the 29k, where SP_REGNUM and FP_REGNUM don't have that meaning, but the 29k doesn't use ON_STACK. This could be fixed by generalizing this scheme, perhaps by passing in a frame and adding a few fields, at least on machines which need them for PC_IN_CALL_DUMMY. Something simpler, like checking for the stack segment, doesn't work, since various programs (threads implementations, gcc nested function stubs, etc) may either allocate stack frames in another segment, or allocate other kinds of code on the stack. */ #define PC_IN_CALL_DUMMY(pc, sp, frame_address) \ ((sp) INNER_THAN (pc) && (frame_address != 0) && (pc) INNER_THAN (frame_address)) #endif /* On stack. */ #if CALL_DUMMY_LOCATION == AT_ENTRY_POINT #define PC_IN_CALL_DUMMY(pc, sp, frame_address) \ ((pc) >= CALL_DUMMY_ADDRESS () \ && (pc) <= (CALL_DUMMY_ADDRESS () + DECR_PC_AFTER_BREAK)) #endif /* At entry point. */ #endif /* No PC_IN_CALL_DUMMY. */ #endif /* !defined (INFERIOR_H) */ gdb-4.13/gdb/inflow.c 666 34562 1752 45346 5616266537 13007 0ustar fnfcygnus/* Low level interface to ptrace, for GDB when running under Unix. Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "command.h" #include "signals.h" #include "serial.h" #include "terminal.h" #include "target.h" #include "thread.h" #include #include #if !defined (HAVE_TERMIOS) && !defined (HAVE_TERMIO) && !defined (HAVE_SGTTY) && !defined (__GO32__) #define HAVE_SGTTY #endif #if defined (HAVE_TERMIOS) #include #include #endif #ifdef HAVE_TERMIOS #define PROCESS_GROUP_TYPE pid_t #endif #ifdef HAVE_SGTTY #ifdef SHORT_PGRP /* This is only used for the ultra. Does it have pid_t? */ #define PROCESS_GROUP_TYPE short #else #define PROCESS_GROUP_TYPE int #endif #endif /* sgtty */ static void kill_command PARAMS ((char *, int)); static void terminal_ours_1 PARAMS ((int)); /* Record terminal status separately for debugger and inferior. */ static serial_t stdin_serial; /* TTY state for the inferior. We save it whenever the inferior stops, and restore it when it resumes. */ static serial_ttystate inferior_ttystate; /* Our own tty state, which we restore every time we need to deal with the terminal. We only set it once, when GDB first starts. The settings of flags which readline saves and restores and unimportant. */ static serial_ttystate our_ttystate; /* fcntl flags for us and the inferior. Saved and restored just like {our,inferior}_ttystate. */ static int tflags_inferior; static int tflags_ours; #ifdef PROCESS_GROUP_TYPE /* Process group for us and the inferior. Saved and restored just like {our,inferior}_ttystate. */ PROCESS_GROUP_TYPE our_process_group; PROCESS_GROUP_TYPE inferior_process_group; #endif /* While the inferior is running, we want SIGINT and SIGQUIT to go to the inferior only. If we have job control, that takes care of it. If not, we save our handlers in these two variables and set SIGINT and SIGQUIT to SIG_IGN. */ static void (*sigint_ours) (); static void (*sigquit_ours) (); /* The name of the tty (from the `tty' command) that we gave to the inferior when it was last started. */ static char *inferior_thisrun_terminal; /* Nonzero if our terminal settings are in effect. Zero if the inferior's settings are in effect. Ignored if !gdb_has_a_terminal (). */ static int terminal_is_ours; enum {yes, no, have_not_checked} gdb_has_a_terminal_flag = have_not_checked; /* Does GDB have a terminal (on stdin)? */ int gdb_has_a_terminal () { switch (gdb_has_a_terminal_flag) { case yes: return 1; case no: return 0; case have_not_checked: /* Get all the current tty settings (including whether we have a tty at all!). Can't do this in _initialize_inflow because SERIAL_FDOPEN won't work until the serial_ops_list is initialized. */ #ifdef F_GETFL tflags_ours = fcntl (0, F_GETFL, 0); #endif gdb_has_a_terminal_flag = no; stdin_serial = SERIAL_FDOPEN (0); if (stdin_serial != NULL) { our_ttystate = SERIAL_GET_TTY_STATE (stdin_serial); if (our_ttystate != NULL) { gdb_has_a_terminal_flag = yes; #ifdef HAVE_TERMIOS our_process_group = tcgetpgrp (0); #endif #ifdef HAVE_SGTTY ioctl (0, TIOCGPGRP, &our_process_group); #endif } } return gdb_has_a_terminal_flag == yes; default: /* "Can't happen". */ return 0; } } /* Macro for printing errors from ioctl operations */ #define OOPSY(what) \ if (result == -1) \ fprintf_unfiltered(gdb_stderr, "[%s failed in terminal_inferior: %s]\n", \ what, strerror (errno)) static void terminal_ours_1 PARAMS ((int)); /* Initialize the terminal settings we record for the inferior, before we actually run the inferior. */ void terminal_init_inferior () { if (gdb_has_a_terminal ()) { /* We could just as well copy our_ttystate (if we felt like adding a new function SERIAL_COPY_TTY_STATE). */ if (inferior_ttystate) free (inferior_ttystate); inferior_ttystate = SERIAL_GET_TTY_STATE (stdin_serial); #ifdef PROCESS_GROUP_TYPE #ifdef PIDGET /* This is for Lynx, and should be cleaned up by having Lynx be a separate debugging target with a version of target_terminal_init_inferior which passes in the process group to a generic routine which does all the work (and the non-threaded child_terminal_init_inferior can just pass in inferior_pid to the same routine). */ inferior_process_group = PIDGET (inferior_pid); #else inferior_process_group = inferior_pid; #endif #endif /* Make sure that next time we call terminal_inferior (which will be before the program runs, as it needs to be), we install the new process group. */ terminal_is_ours = 1; } } /* Put the inferior's terminal settings into effect. This is preparation for starting or resuming the inferior. */ void terminal_inferior () { if (gdb_has_a_terminal () && terminal_is_ours && inferior_thisrun_terminal == 0) { int result; #ifdef F_GETFL /* Is there a reason this is being done twice? It happens both places we use F_SETFL, so I'm inclined to think perhaps there is some reason, however perverse. Perhaps not though... */ result = fcntl (0, F_SETFL, tflags_inferior); result = fcntl (0, F_SETFL, tflags_inferior); OOPSY ("fcntl F_SETFL"); #endif /* Because we were careful to not change in or out of raw mode in terminal_ours, we will not change in our out of raw mode with this call, so we don't flush any input. */ result = SERIAL_SET_TTY_STATE (stdin_serial, inferior_ttystate); OOPSY ("setting tty state"); if (!job_control) { sigint_ours = (void (*) ()) signal (SIGINT, SIG_IGN); sigquit_ours = (void (*) ()) signal (SIGQUIT, SIG_IGN); } /* If attach_flag is set, we don't know whether we are sharing a terminal with the inferior or not. (attaching a process without a terminal is one case where we do not; attaching a process which we ran from the same shell as GDB via `&' is one case where we do, I think (but perhaps this is not `sharing' in the sense that we need to save and restore tty state)). I don't know if there is any way to tell whether we are sharing a terminal. So what we do is to go through all the saving and restoring of the tty state, but ignore errors setting the process group, which will happen if we are not sharing a terminal). */ if (job_control) { #ifdef HAVE_TERMIOS result = tcsetpgrp (0, inferior_process_group); if (!attach_flag) OOPSY ("tcsetpgrp"); #endif #ifdef HAVE_SGTTY result = ioctl (0, TIOCSPGRP, &inferior_process_group); if (!attach_flag) OOPSY ("TIOCSPGRP"); #endif } } terminal_is_ours = 0; } /* Put some of our terminal settings into effect, enough to get proper results from our output, but do not change into or out of RAW mode so that no input is discarded. After doing this, either terminal_ours or terminal_inferior should be called to get back to a normal state of affairs. */ void terminal_ours_for_output () { terminal_ours_1 (1); } /* Put our terminal settings into effect. First record the inferior's terminal settings so they can be restored properly later. */ void terminal_ours () { terminal_ours_1 (0); } /* output_only is not used, and should not be used unless we introduce separate terminal_is_ours and terminal_is_ours_for_output flags. */ static void terminal_ours_1 (output_only) int output_only; { /* Checking inferior_thisrun_terminal is necessary so that if GDB is running in the background, it won't block trying to do the ioctl()'s below. Checking gdb_has_a_terminal avoids attempting all the ioctl's when running in batch. */ if (inferior_thisrun_terminal != 0 || gdb_has_a_terminal () == 0) return; if (!terminal_is_ours) { /* Ignore this signal since it will happen when we try to set the pgrp. */ void (*osigttou) (); int result; terminal_is_ours = 1; #ifdef SIGTTOU if (job_control) osigttou = (void (*) ()) signal (SIGTTOU, SIG_IGN); #endif if (inferior_ttystate) free (inferior_ttystate); inferior_ttystate = SERIAL_GET_TTY_STATE (stdin_serial); #ifdef HAVE_TERMIOS inferior_process_group = tcgetpgrp (0); #endif #ifdef HAVE_SGTTY ioctl (0, TIOCGPGRP, &inferior_process_group); #endif /* Here we used to set ICANON in our ttystate, but I believe this was an artifact from before when we used readline. Readline sets the tty state when it needs to. FIXME-maybe: However, query() expects non-raw mode and doesn't use readline. Maybe query should use readline (on the other hand, this only matters for HAVE_SGTTY, not termio or termios, I think). */ /* Set tty state to our_ttystate. We don't change in our out of raw mode, to avoid flushing input. We need to do the same thing regardless of output_only, because we don't have separate terminal_is_ours and terminal_is_ours_for_output flags. It's OK, though, since readline will deal with raw mode when/if it needs to. */ SERIAL_NOFLUSH_SET_TTY_STATE (stdin_serial, our_ttystate, inferior_ttystate); if (job_control) { #ifdef HAVE_TERMIOS result = tcsetpgrp (0, our_process_group); #if 0 /* This fails on Ultrix with EINVAL if you run the testsuite in the background with nohup, and then log out. GDB never used to check for an error here, so perhaps there are other such situations as well. */ if (result == -1) fprintf_unfiltered (gdb_stderr, "[tcsetpgrp failed in terminal_ours: %s]\n", strerror (errno)); #endif #endif /* termios */ #ifdef HAVE_SGTTY result = ioctl (0, TIOCSPGRP, &our_process_group); #endif } #ifdef SIGTTOU if (job_control) signal (SIGTTOU, osigttou); #endif if (!job_control) { signal (SIGINT, sigint_ours); signal (SIGQUIT, sigquit_ours); } #ifdef F_GETFL tflags_inferior = fcntl (0, F_GETFL, 0); /* Is there a reason this is being done twice? It happens both places we use F_SETFL, so I'm inclined to think perhaps there is some reason, however perverse. Perhaps not though... */ result = fcntl (0, F_SETFL, tflags_ours); result = fcntl (0, F_SETFL, tflags_ours); #endif result = result; /* lint */ } } /* ARGSUSED */ void term_info (arg, from_tty) char *arg; int from_tty; { target_terminal_info (arg, from_tty); } /* ARGSUSED */ void child_terminal_info (args, from_tty) char *args; int from_tty; { if (!gdb_has_a_terminal ()) { printf_filtered ("This GDB does not control a terminal.\n"); return; } printf_filtered ("Inferior's terminal status (currently saved by GDB):\n"); /* First the fcntl flags. */ { int flags; flags = tflags_inferior; printf_filtered ("File descriptor flags = "); #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif /* (O_ACCMODE) parens are to avoid Ultrix header file bug */ switch (flags & (O_ACCMODE)) { case O_RDONLY: printf_filtered ("O_RDONLY"); break; case O_WRONLY: printf_filtered ("O_WRONLY"); break; case O_RDWR: printf_filtered ("O_RDWR"); break; } flags &= ~(O_ACCMODE); #ifdef O_NONBLOCK if (flags & O_NONBLOCK) printf_filtered (" | O_NONBLOCK"); flags &= ~O_NONBLOCK; #endif #if defined (O_NDELAY) /* If O_NDELAY and O_NONBLOCK are defined to the same thing, we will print it as O_NONBLOCK, which is good cause that is what POSIX has, and the flag will already be cleared by the time we get here. */ if (flags & O_NDELAY) printf_filtered (" | O_NDELAY"); flags &= ~O_NDELAY; #endif if (flags & O_APPEND) printf_filtered (" | O_APPEND"); flags &= ~O_APPEND; #if defined (O_BINARY) if (flags & O_BINARY) printf_filtered (" | O_BINARY"); flags &= ~O_BINARY; #endif if (flags) printf_filtered (" | 0x%x", flags); printf_filtered ("\n"); } #ifdef PROCESS_GROUP_TYPE printf_filtered ("Process group = %d\n", inferior_process_group); #endif SERIAL_PRINT_TTY_STATE (stdin_serial, inferior_ttystate); } /* NEW_TTY_PREFORK is called before forking a new child process, so we can record the state of ttys in the child to be formed. TTYNAME is null if we are to share the terminal with gdb; or points to a string containing the name of the desired tty. NEW_TTY is called in new child processes under Unix, which will become debugger target processes. This actually switches to the terminal specified in the NEW_TTY_PREFORK call. */ void new_tty_prefork (ttyname) char *ttyname; { /* Save the name for later, for determining whether we and the child are sharing a tty. */ inferior_thisrun_terminal = ttyname; } void new_tty () { register int tty; if (inferior_thisrun_terminal == 0) return; #if !defined(__GO32__) #ifdef TIOCNOTTY /* Disconnect the child process from our controlling terminal. On some systems (SVR4 for example), this may cause a SIGTTOU, so temporarily ignore SIGTTOU. */ tty = open("/dev/tty", O_RDWR); if (tty > 0) { void (*osigttou) (); osigttou = (void (*)()) signal(SIGTTOU, SIG_IGN); ioctl(tty, TIOCNOTTY, 0); close(tty); signal(SIGTTOU, osigttou); } #endif /* Now open the specified new terminal. */ #ifdef USE_O_NOCTTY tty = open(inferior_thisrun_terminal, O_RDWR | O_NOCTTY); #else tty = open(inferior_thisrun_terminal, O_RDWR); #endif if (tty == -1) { print_sys_errmsg (inferior_thisrun_terminal, errno); _exit(1); } /* Avoid use of dup2; doesn't exist on all systems. */ if (tty != 0) { close (0); dup (tty); } if (tty != 1) { close (1); dup (tty); } if (tty != 2) { close (2); dup (tty); } if (tty > 2) close(tty); #endif /* !go32 */ } /* Kill the inferior process. Make us have no inferior. */ /* ARGSUSED */ static void kill_command (arg, from_tty) char *arg; int from_tty; { /* Shouldn't this be target_has_execution? FIXME. */ if (inferior_pid == 0) error ("The program is not being run."); if (!query ("Kill the program being debugged? ")) error ("Not confirmed."); target_kill (); init_thread_list(); /* Destroy thread info */ /* Killing off the inferior can leave us with a core file. If so, print the state we are left in. */ if (target_has_stack) { printf_filtered ("In %s,\n", current_target->to_longname); if (selected_frame == NULL) fputs_filtered ("No selected stack frame.\n", gdb_stdout); else print_stack_frame (selected_frame, selected_frame_level, 1); } } /* Call set_sigint_trap when you need to pass a signal on to an attached process when handling SIGINT */ /* ARGSUSED */ static void pass_signal (signo) int signo; { kill (inferior_pid, SIGINT); } static void (*osig)(); void set_sigint_trap() { osig = (void (*) ()) signal (SIGINT, pass_signal); } void clear_sigint_trap() { signal (SIGINT, osig); } #if defined (SIGIO) && defined (FASYNC) && defined (FD_SET) && defined (F_SETOWN) static void (*old_sigio) (); static void handle_sigio (signo) int signo; { int numfds; fd_set readfds; signal (SIGIO, handle_sigio); FD_ZERO (&readfds); FD_SET (target_activity_fd, &readfds); numfds = select (target_activity_fd + 1, &readfds, NULL, NULL, NULL); if (numfds >= 0 && FD_ISSET (target_activity_fd, &readfds)) { if ((*target_activity_function) ()) kill (inferior_pid, SIGINT); } } static int old_fcntl_flags; void set_sigio_trap () { if (target_activity_function) { old_sigio = (void (*) ()) signal (SIGIO, handle_sigio); fcntl (target_activity_fd, F_SETOWN, getpid()); old_fcntl_flags = fcntl (target_activity_fd, F_GETFL, 0); fcntl (target_activity_fd, F_SETFL, old_fcntl_flags | FASYNC); } } void clear_sigio_trap () { if (target_activity_function) { signal (SIGIO, old_sigio); fcntl (target_activity_fd, F_SETFL, old_fcntl_flags); } } #else /* No SIGIO. */ void set_sigio_trap () { if (target_activity_function) abort (); } void clear_sigio_trap () { if (target_activity_function) abort (); } #endif /* No SIGIO. */ /* This is here because this is where we figure out whether we (probably) have job control. Just using job_control only does part of it because setpgid or setpgrp might not exist on a system without job control. It might be considered misplaced (on the other hand, process groups and job control are closely related to ttys). For a more clean implementation, in libiberty, put a setpgid which merely calls setpgrp and a setpgrp which does nothing (any system with job control will have one or the other). */ int gdb_setpgid () { int retval = 0; if (job_control) { #if defined (NEED_POSIX_SETPGID) || defined (HAVE_TERMIOS) /* Do all systems with termios have setpgid? I hope so. */ /* setpgid (0, 0) is supposed to work and mean the same thing as this, but on Ultrix 4.2A it fails with EPERM (and setpgid (getpid (), getpid ()) succeeds). */ retval = setpgid (getpid (), getpid ()); #else #if defined (TIOCGPGRP) #if defined(USG) && !defined(SETPGRP_ARGS) retval = setpgrp (); #else retval = setpgrp (getpid (), getpid ()); #endif /* USG */ #endif /* TIOCGPGRP. */ #endif /* NEED_POSIX_SETPGID */ } return retval; } void _initialize_inflow () { add_info ("terminal", term_info, "Print inferior's saved terminal status."); add_com ("kill", class_run, kill_command, "Kill execution of program being debugged."); inferior_pid = 0; terminal_is_ours = 1; /* OK, figure out whether we have job control. If neither termios nor sgtty (i.e. termio or go32), leave job_control 0. */ #if defined (HAVE_TERMIOS) /* Do all systems with termios have the POSIX way of identifying job control? I hope so. */ #ifdef _POSIX_JOB_CONTROL job_control = 1; #else job_control = sysconf (_SC_JOB_CONTROL); #endif #endif /* termios */ #ifdef HAVE_SGTTY #ifdef TIOCGPGRP job_control = 1; #else job_control = 0; #endif /* TIOCGPGRP */ #endif /* sgtty */ } gdb-4.13/gdb/infptrace.c 666 34562 1752 30476 5612072203 13437 0ustar fnfcygnus/* Low level Unix child interface to ptrace, for GDB when running under Unix. Copyright 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "target.h" #ifdef USG #include #endif #include #include #include #include #ifndef NO_PTRACE_H #ifdef PTRACE_IN_WRONG_PLACE #include #else #include #endif #endif /* NO_PTRACE_H */ #if !defined (PT_KILL) #define PT_KILL 8 #endif #if !defined (PT_STEP) #define PT_STEP 9 #define PT_CONTINUE 7 #define PT_READ_U 3 #define PT_WRITE_U 6 #define PT_READ_I 1 #define PT_READ_D 2 #define PT_WRITE_I 4 #define PT_WRITE_D 5 #endif /* No PT_STEP. */ #ifndef PT_ATTACH #define PT_ATTACH PTRACE_ATTACH #endif #ifndef PT_DETACH #define PT_DETACH PTRACE_DETACH #endif #include "gdbcore.h" #ifndef NO_SYS_FILE #include #endif #if 0 /* Don't think this is used anymore. On the sequent (not sure whether it's dynix or ptx or both), it is included unconditionally by sys/user.h and not protected against multiple inclusion. */ #include #endif #if !defined (FETCH_INFERIOR_REGISTERS) #include /* Probably need to poke the user structure */ #if defined (KERNEL_U_ADDR_BSD) #include /* For struct nlist */ #endif /* KERNEL_U_ADDR_BSD. */ #endif /* !FETCH_INFERIOR_REGISTERS */ /* This function simply calls ptrace with the given arguments. It exists so that all calls to ptrace are isolated in this machine-dependent file. */ int call_ptrace (request, pid, addr, data) int request, pid; PTRACE_ARG3_TYPE addr; int data; { return ptrace (request, pid, addr, data #if defined (FIVE_ARG_PTRACE) /* Deal with HPUX 8.0 braindamage. We never use the calls which require the fifth argument. */ , 0 #endif ); } #if defined (DEBUG_PTRACE) || defined (FIVE_ARG_PTRACE) /* For the rest of the file, use an extra level of indirection */ /* This lets us breakpoint usefully on call_ptrace. */ #define ptrace call_ptrace #endif void kill_inferior () { if (inferior_pid == 0) return; /* ptrace PT_KILL only works if process is stopped!!! So stop it with a real signal first, if we can. FIXME: This is bogus. When the inferior is not stopped, GDB should just be waiting for it. Either the following line is unecessary, or there is some problem elsewhere in GDB which causes us to get here when the inferior is not stopped. */ kill (inferior_pid, SIGKILL); ptrace (PT_KILL, inferior_pid, (PTRACE_ARG3_TYPE) 0, 0); wait ((int *)0); target_mourn_inferior (); } #ifndef CHILD_RESUME /* Resume execution of the inferior process. If STEP is nonzero, single-step it. If SIGNAL is nonzero, give it that signal. */ void child_resume (pid, step, signal) int pid; int step; enum target_signal signal; { errno = 0; if (pid == -1) /* Resume all threads. */ /* I think this only gets used in the non-threaded case, where "resume all threads" and "resume inferior_pid" are the same. */ pid = inferior_pid; /* An address of (PTRACE_ARG3_TYPE)1 tells ptrace to continue from where it was. (If GDB wanted it to start some other way, we have already written a new PC value to the child.) If this system does not support PT_STEP, a higher level function will have called single_step() to transmute the step request into a continue request (by setting breakpoints on all possible successor instructions), so we don't have to worry about that here. */ if (step) ptrace (PT_STEP, pid, (PTRACE_ARG3_TYPE) 1, target_signal_to_host (signal)); else ptrace (PT_CONTINUE, pid, (PTRACE_ARG3_TYPE) 1, target_signal_to_host (signal)); if (errno) perror_with_name ("ptrace"); } #endif /* CHILD_RESUME */ #ifdef ATTACH_DETACH /* Start debugging the process whose number is PID. */ int attach (pid) int pid; { errno = 0; ptrace (PT_ATTACH, pid, (PTRACE_ARG3_TYPE) 0, 0); if (errno) perror_with_name ("ptrace"); attach_flag = 1; return pid; } /* Stop debugging the process whose number is PID and continue it with signal number SIGNAL. SIGNAL = 0 means just continue it. */ void detach (signal) int signal; { errno = 0; ptrace (PT_DETACH, inferior_pid, (PTRACE_ARG3_TYPE) 1, signal); if (errno) perror_with_name ("ptrace"); attach_flag = 0; } #endif /* ATTACH_DETACH */ /* Default the type of the ptrace transfer to int. */ #ifndef PTRACE_XFER_TYPE #define PTRACE_XFER_TYPE int #endif /* KERNEL_U_ADDR is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #if defined (KERNEL_U_ADDR_BSD) && !defined (FETCH_INFERIOR_REGISTERS) /* Get kernel_u_addr using BSD-style nlist(). */ CORE_ADDR kernel_u_addr; #endif /* KERNEL_U_ADDR_BSD. */ void _initialize_kernel_u_addr () { #if defined (KERNEL_U_ADDR_BSD) && !defined (FETCH_INFERIOR_REGISTERS) struct nlist names[2]; names[0].n_un.n_name = "_u"; names[1].n_un.n_name = NULL; if (nlist ("/vmunix", names) == 0) kernel_u_addr = names[0].n_value; else fatal ("Unable to get kernel u area address."); #endif /* KERNEL_U_ADDR_BSD. */ } #if !defined (FETCH_INFERIOR_REGISTERS) #if !defined (offsetof) #define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER) #endif /* U_REGS_OFFSET is the offset of the registers within the u area. */ #if !defined (U_REGS_OFFSET) #define U_REGS_OFFSET \ ptrace (PT_READ_U, inferior_pid, \ (PTRACE_ARG3_TYPE) (offsetof (struct user, u_ar0)), 0) \ - KERNEL_U_ADDR #endif /* Registers we shouldn't try to fetch. */ #if !defined (CANNOT_FETCH_REGISTER) #define CANNOT_FETCH_REGISTER(regno) 0 #endif /* Fetch one register. */ static void fetch_register (regno) int regno; { /* This isn't really an address. But ptrace thinks of it as one. */ CORE_ADDR regaddr; char buf[MAX_REGISTER_RAW_SIZE]; char mess[128]; /* For messages */ register int i; /* Offset of registers within the u area. */ unsigned int offset; if (CANNOT_FETCH_REGISTER (regno)) { memset (buf, '\0', REGISTER_RAW_SIZE (regno)); /* Supply zeroes */ supply_register (regno, buf); return; } offset = U_REGS_OFFSET; regaddr = register_addr (regno, offset); for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (PTRACE_XFER_TYPE)) { errno = 0; *(PTRACE_XFER_TYPE *) &buf[i] = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0); regaddr += sizeof (PTRACE_XFER_TYPE); if (errno != 0) { sprintf (mess, "reading register %s (#%d)", reg_names[regno], regno); perror_with_name (mess); } } supply_register (regno, buf); } /* Fetch all registers, or just one, from the child process. */ void fetch_inferior_registers (regno) int regno; { int numregs; if (regno == -1) { numregs = ARCH_NUM_REGS; for (regno = 0; regno < numregs; regno++) fetch_register (regno); } else fetch_register (regno); } /* Registers we shouldn't try to store. */ #if !defined (CANNOT_STORE_REGISTER) #define CANNOT_STORE_REGISTER(regno) 0 #endif /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { /* This isn't really an address. But ptrace thinks of it as one. */ CORE_ADDR regaddr; char buf[80]; register int i, numregs; unsigned int offset = U_REGS_OFFSET; if (regno >= 0) { regaddr = register_addr (regno, offset); for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(PTRACE_XFER_TYPE)) { errno = 0; ptrace (PT_WRITE_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, *(PTRACE_XFER_TYPE *) ®isters[REGISTER_BYTE (regno) + i]); if (errno != 0) { sprintf (buf, "writing register number %d(%d)", regno, i); perror_with_name (buf); } regaddr += sizeof(PTRACE_XFER_TYPE); } } else { numregs = ARCH_NUM_REGS; for (regno = 0; regno < numregs; regno++) { if (CANNOT_STORE_REGISTER (regno)) continue; regaddr = register_addr (regno, offset); for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(PTRACE_XFER_TYPE)) { errno = 0; ptrace (PT_WRITE_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, *(PTRACE_XFER_TYPE *) ®isters[REGISTER_BYTE (regno) + i]); if (errno != 0) { sprintf (buf, "writing register number %d(%d)", regno, i); perror_with_name (buf); } regaddr += sizeof(PTRACE_XFER_TYPE); } } } } #endif /* !defined (FETCH_INFERIOR_REGISTERS). */ #if !defined (CHILD_XFER_MEMORY) /* NOTE! I tried using PTRACE_READDATA, etc., to read and write memory in the NEW_SUN_PTRACE case. It ought to be straightforward. But it appears that writing did not write the data that I specified. I cannot understand where it got the data that it actually did write. */ /* Copy LEN bytes to or from inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. Copy to inferior if WRITE is nonzero. Returns the length copied, which is either the LEN argument or zero. This xfer function does not do partial moves, since child_ops doesn't allow memory operations to cross below us in the target stack anyway. */ int child_xfer_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & - sizeof (PTRACE_XFER_TYPE); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (PTRACE_XFER_TYPE) - 1) / sizeof (PTRACE_XFER_TYPE); /* Allocate buffer of that many longwords. */ register PTRACE_XFER_TYPE *buffer = (PTRACE_XFER_TYPE *) alloca (count * sizeof (PTRACE_XFER_TYPE)); if (write) { /* Fill start and end extra bytes of buffer with existing memory data. */ if (addr != memaddr || len < (int) sizeof (PTRACE_XFER_TYPE)) { /* Need part of initial word -- fetch it. */ buffer[0] = ptrace (PT_READ_I, inferior_pid, (PTRACE_ARG3_TYPE) addr, 0); } if (count > 1) /* FIXME, avoid if even boundary */ { buffer[count - 1] = ptrace (PT_READ_I, inferior_pid, ((PTRACE_ARG3_TYPE) (addr + (count - 1) * sizeof (PTRACE_XFER_TYPE))), 0); } /* Copy data to be written over corresponding part of buffer */ memcpy ((char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), myaddr, len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE)) { errno = 0; ptrace (PT_WRITE_D, inferior_pid, (PTRACE_ARG3_TYPE) addr, buffer[i]); if (errno) { /* Using the appropriate one (I or D) is necessary for Gould NP1, at least. */ errno = 0; ptrace (PT_WRITE_I, inferior_pid, (PTRACE_ARG3_TYPE) addr, buffer[i]); } if (errno) return 0; } } else { /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE)) { errno = 0; buffer[i] = ptrace (PT_READ_I, inferior_pid, (PTRACE_ARG3_TYPE) addr, 0); if (errno) return 0; QUIT; } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), len); } return len; } #endif /* !defined (CHILD_XFER_MEMORY). */ gdb-4.13/gdb/infrun.c 666 34562 1752 173244 5622333233 13012 0ustar fnfcygnus/* Target-struct-independent code to start (run) and stop an inferior process. Copyright 1986, 1987, 1988, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include #include "symtab.h" #include "frame.h" #include "inferior.h" #include "breakpoint.h" #include "wait.h" #include "gdbcore.h" #include "gdbcmd.h" #include "target.h" #include "thread.h" #include "annotate.h" #include /* unistd.h is needed to #define X_OK */ #ifdef USG #include #else #include #endif /* Prototypes for local functions */ static void signals_info PARAMS ((char *, int)); static void handle_command PARAMS ((char *, int)); static void sig_print_info PARAMS ((enum target_signal)); static void sig_print_header PARAMS ((void)); static void resume_cleanups PARAMS ((int)); static int hook_stop_stub PARAMS ((char *)); /* GET_LONGJMP_TARGET returns the PC at which longjmp() will resume the program. It needs to examine the jmp_buf argument and extract the PC from it. The return value is non-zero on success, zero otherwise. */ #ifndef GET_LONGJMP_TARGET #define GET_LONGJMP_TARGET(PC_ADDR) 0 #endif /* Some machines have trampoline code that sits between function callers and the actual functions themselves. If this machine doesn't have such things, disable their processing. */ #ifndef SKIP_TRAMPOLINE_CODE #define SKIP_TRAMPOLINE_CODE(pc) 0 #endif /* For SVR4 shared libraries, each call goes through a small piece of trampoline code in the ".plt" section. IN_SOLIB_TRAMPOLINE evaluates to nonzero if we are current stopped in one of these. */ #ifndef IN_SOLIB_TRAMPOLINE #define IN_SOLIB_TRAMPOLINE(pc,name) 0 #endif /* On some systems, the PC may be left pointing at an instruction that won't actually be executed. This is usually indicated by a bit in the PSW. If we find ourselves in such a state, then we step the target beyond the nullified instruction before returning control to the user so as to avoid confusion. */ #ifndef INSTRUCTION_NULLIFIED #define INSTRUCTION_NULLIFIED 0 #endif /* Tables of how to react to signals; the user sets them. */ static unsigned char *signal_stop; static unsigned char *signal_print; static unsigned char *signal_program; #define SET_SIGS(nsigs,sigs,flags) \ do { \ int signum = (nsigs); \ while (signum-- > 0) \ if ((sigs)[signum]) \ (flags)[signum] = 1; \ } while (0) #define UNSET_SIGS(nsigs,sigs,flags) \ do { \ int signum = (nsigs); \ while (signum-- > 0) \ if ((sigs)[signum]) \ (flags)[signum] = 0; \ } while (0) /* Command list pointer for the "stop" placeholder. */ static struct cmd_list_element *stop_command; /* Nonzero if breakpoints are now inserted in the inferior. */ static int breakpoints_inserted; /* Function inferior was in as of last step command. */ static struct symbol *step_start_function; /* Nonzero if we are expecting a trace trap and should proceed from it. */ static int trap_expected; /* Nonzero if the next time we try to continue the inferior, it will step one instruction and generate a spurious trace trap. This is used to compensate for a bug in HP-UX. */ static int trap_expected_after_continue; /* Nonzero means expecting a trace trap and should stop the inferior and return silently when it happens. */ int stop_after_trap; /* Nonzero means expecting a trap and caller will handle it themselves. It is used after attach, due to attaching to a process; when running in the shell before the child program has been exec'd; and when running some kinds of remote stuff (FIXME?). */ int stop_soon_quietly; /* Nonzero if proceed is being used for a "finish" command or a similar situation when stop_registers should be saved. */ int proceed_to_finish; /* Save register contents here when about to pop a stack dummy frame, if-and-only-if proceed_to_finish is set. Thus this contains the return value from the called function (assuming values are returned in a register). */ char stop_registers[REGISTER_BYTES]; /* Nonzero if program stopped due to error trying to insert breakpoints. */ static int breakpoints_failed; /* Nonzero after stop if current stack frame should be printed. */ static int stop_print_frame; #ifdef NO_SINGLE_STEP extern int one_stepped; /* From machine dependent code */ extern void single_step (); /* Same. */ #endif /* NO_SINGLE_STEP */ /* Things to clean up if we QUIT out of resume (). */ /* ARGSUSED */ static void resume_cleanups (arg) int arg; { normal_stop (); } /* Resume the inferior, but allow a QUIT. This is useful if the user wants to interrupt some lengthy single-stepping operation (for child processes, the SIGINT goes to the inferior, and so we get a SIGINT random_signal, but for remote debugging and perhaps other targets, that's not true). STEP nonzero if we should step (zero to continue instead). SIG is the signal to give the inferior (zero for none). */ void resume (step, sig) int step; enum target_signal sig; { struct cleanup *old_cleanups = make_cleanup (resume_cleanups, 0); QUIT; #ifdef CANNOT_STEP_BREAKPOINT /* Most targets can step a breakpoint instruction, thus executing it normally. But if this one cannot, just continue and we will hit it anyway. */ if (step && breakpoints_inserted && breakpoint_here_p (read_pc ())) step = 0; #endif #ifdef NO_SINGLE_STEP if (step) { single_step(sig); /* Do it the hard way, w/temp breakpoints */ step = 0; /* ...and don't ask hardware to do it. */ } #endif /* Handle any optimized stores to the inferior NOW... */ #ifdef DO_DEFERRED_STORES DO_DEFERRED_STORES; #endif /* Install inferior's terminal modes. */ target_terminal_inferior (); target_resume (-1, step, sig); discard_cleanups (old_cleanups); } /* Clear out all variables saying what to do when inferior is continued. First do this, then set the ones you want, then call `proceed'. */ void clear_proceed_status () { trap_expected = 0; step_range_start = 0; step_range_end = 0; step_frame_address = 0; step_over_calls = -1; stop_after_trap = 0; stop_soon_quietly = 0; proceed_to_finish = 0; breakpoint_proceeded = 1; /* We're about to proceed... */ /* Discard any remaining commands or status from previous stop. */ bpstat_clear (&stop_bpstat); } /* Basic routine for continuing the program in various fashions. ADDR is the address to resume at, or -1 for resume where stopped. SIGGNAL is the signal to give it, or 0 for none, or -1 for act according to how it stopped. STEP is nonzero if should trap after one instruction. -1 means return after that and print nothing. You should probably set various step_... variables before calling here, if you are stepping. You should call clear_proceed_status before calling proceed. */ void proceed (addr, siggnal, step) CORE_ADDR addr; enum target_signal siggnal; int step; { int oneproc = 0; if (step > 0) step_start_function = find_pc_function (read_pc ()); if (step < 0) stop_after_trap = 1; if (addr == (CORE_ADDR)-1) { /* If there is a breakpoint at the address we will resume at, step one instruction before inserting breakpoints so that we do not stop right away. */ if (breakpoint_here_p (read_pc ())) oneproc = 1; #ifdef STEP_SKIPS_DELAY /* Check breakpoint_here_p first, because breakpoint_here_p is fast (it just checks internal GDB data structures) and STEP_SKIPS_DELAY is slow (it needs to read memory from the target). */ if (breakpoint_here_p (read_pc () + 4) && STEP_SKIPS_DELAY (read_pc ())) oneproc = 1; #endif /* STEP_SKIPS_DELAY */ } else write_pc (addr); #ifdef PREPARE_TO_PROCEED /* In a multi-threaded task we may select another thread and then continue. In this case the thread that stopped at a breakpoint will immediately cause another stop, if it is not stepped over first. On the other hand, if (ADDR != -1) we only want to single step over the breakpoint if we did switch to another thread. If we are single stepping, don't do any of the above. (Note that in the current implementation single stepping another thread after a breakpoint and then continuing will cause the original breakpoint to be hit again, but you can always continue, so it's not a big deal.) */ if (! step && PREPARE_TO_PROCEED (1) && breakpoint_here_p (read_pc ())) oneproc = 1; #endif /* PREPARE_TO_PROCEED */ if (trap_expected_after_continue) { /* If (step == 0), a trap will be automatically generated after the first instruction is executed. Force step one instruction to clear this condition. This should not occur if step is nonzero, but it is harmless in that case. */ oneproc = 1; trap_expected_after_continue = 0; } if (oneproc) /* We will get a trace trap after one instruction. Continue it automatically and insert breakpoints then. */ trap_expected = 1; else { int temp = insert_breakpoints (); if (temp) { print_sys_errmsg ("ptrace", temp); error ("Cannot insert breakpoints.\n\ The same program may be running in another process."); } breakpoints_inserted = 1; } if (siggnal != TARGET_SIGNAL_DEFAULT) stop_signal = siggnal; /* If this signal should not be seen by program, give it zero. Used for debugging signals. */ else if (!signal_program[stop_signal]) stop_signal = TARGET_SIGNAL_0; annotate_starting (); /* Resume inferior. */ resume (oneproc || step || bpstat_should_step (), stop_signal); /* Wait for it to stop (if not standalone) and in any case decode why it stopped, and act accordingly. */ wait_for_inferior (); normal_stop (); } /* Record the pc and sp of the program the last time it stopped. These are just used internally by wait_for_inferior, but need to be preserved over calls to it and cleared when the inferior is started. */ static CORE_ADDR prev_pc; static CORE_ADDR prev_sp; static CORE_ADDR prev_func_start; static char *prev_func_name; static CORE_ADDR prev_frame_address; /* Start remote-debugging of a machine over a serial link. */ void start_remote () { init_wait_for_inferior (); clear_proceed_status (); stop_soon_quietly = 1; trap_expected = 0; wait_for_inferior (); normal_stop (); } /* Initialize static vars when a new inferior begins. */ void init_wait_for_inferior () { /* These are meaningless until the first time through wait_for_inferior. */ prev_pc = 0; prev_sp = 0; prev_func_start = 0; prev_func_name = NULL; prev_frame_address = 0; trap_expected_after_continue = 0; breakpoints_inserted = 0; breakpoint_init_inferior (); /* Don't confuse first call to proceed(). */ stop_signal = TARGET_SIGNAL_0; } static void delete_breakpoint_current_contents (arg) PTR arg; { struct breakpoint **breakpointp = (struct breakpoint **)arg; if (*breakpointp != NULL) delete_breakpoint (*breakpointp); } /* Wait for control to return from inferior to debugger. If inferior gets a signal, we may decide to start it up again instead of returning. That is why there is a loop in this function. When this function actually returns it means the inferior should be left stopped and GDB should read more commands. */ void wait_for_inferior () { struct cleanup *old_cleanups; struct target_waitstatus w; int another_trap; int random_signal; CORE_ADDR stop_sp = 0; CORE_ADDR stop_func_start; CORE_ADDR stop_func_end; char *stop_func_name; CORE_ADDR prologue_pc = 0, tmp; struct symtab_and_line sal; int remove_breakpoints_on_following_step = 0; int current_line; struct symtab *current_symtab; int handling_longjmp = 0; /* FIXME */ struct breakpoint *step_resume_breakpoint = NULL; struct breakpoint *through_sigtramp_breakpoint = NULL; int pid; old_cleanups = make_cleanup (delete_breakpoint_current_contents, &step_resume_breakpoint); make_cleanup (delete_breakpoint_current_contents, &through_sigtramp_breakpoint); sal = find_pc_line(prev_pc, 0); current_line = sal.line; current_symtab = sal.symtab; /* Are we stepping? */ #define CURRENTLY_STEPPING() \ ((through_sigtramp_breakpoint == NULL \ && !handling_longjmp \ && ((step_range_end && step_resume_breakpoint == NULL) \ || trap_expected)) \ || bpstat_should_step ()) while (1) { /* We have to invalidate the registers BEFORE calling target_wait because they can be loaded from the target while in target_wait. This makes remote debugging a bit more efficient for those targets that provide critical registers as part of their normal status mechanism. */ registers_changed (); pid = target_wait (-1, &w); flush_cached_frames (); /* If it's a new process, add it to the thread database */ if (pid != inferior_pid && !in_thread_list (pid)) { fprintf_unfiltered (gdb_stderr, "[New %s]\n", target_pid_to_str (pid)); add_thread (pid); /* We may want to consider not doing a resume here in order to give the user a chance to play with the new thread. It might be good to make that a user-settable option. */ /* At this point, all threads are stopped (happens automatically in either the OS or the native code). Therefore we need to continue all threads in order to make progress. */ target_resume (-1, 0, TARGET_SIGNAL_0); continue; } switch (w.kind) { case TARGET_WAITKIND_LOADED: /* Ignore it gracefully. */ if (breakpoints_inserted) { mark_breakpoints_out (); insert_breakpoints (); } resume (0, TARGET_SIGNAL_0); continue; case TARGET_WAITKIND_SPURIOUS: resume (0, TARGET_SIGNAL_0); continue; case TARGET_WAITKIND_EXITED: target_terminal_ours (); /* Must do this before mourn anyway */ annotate_exited (w.value.integer); if (w.value.integer) printf_filtered ("\nProgram exited with code 0%o.\n", (unsigned int)w.value.integer); else printf_filtered ("\nProgram exited normally.\n"); gdb_flush (gdb_stdout); target_mourn_inferior (); #ifdef NO_SINGLE_STEP one_stepped = 0; #endif stop_print_frame = 0; goto stop_stepping; case TARGET_WAITKIND_SIGNALLED: stop_print_frame = 0; stop_signal = w.value.sig; target_terminal_ours (); /* Must do this before mourn anyway */ annotate_signalled (); target_kill (); /* kill mourns as well */ printf_filtered ("\nProgram terminated with signal "); annotate_signal_name (); printf_filtered ("%s", target_signal_to_name (stop_signal)); annotate_signal_name_end (); printf_filtered (", "); annotate_signal_string (); printf_filtered ("%s", target_signal_to_string (stop_signal)); annotate_signal_string_end (); printf_filtered (".\n"); printf_filtered ("The program no longer exists.\n"); gdb_flush (gdb_stdout); #ifdef NO_SINGLE_STEP one_stepped = 0; #endif goto stop_stepping; case TARGET_WAITKIND_STOPPED: /* This is the only case in which we keep going; the above cases end in a continue or goto. */ break; } stop_signal = w.value.sig; stop_pc = read_pc_pid (pid); /* See if a thread hit a thread-specific breakpoint that was meant for another thread. If so, then step that thread past the breakpoint, and continue it. */ if (stop_signal == TARGET_SIGNAL_TRAP && breakpoints_inserted && breakpoint_here_p (stop_pc - DECR_PC_AFTER_BREAK)) { random_signal = 0; if (!breakpoint_thread_match (stop_pc - DECR_PC_AFTER_BREAK, pid)) { /* Saw a breakpoint, but it was hit by the wrong thread. Just continue. */ write_pc (stop_pc - DECR_PC_AFTER_BREAK); remove_breakpoints (); target_resume (pid, 1, TARGET_SIGNAL_0); /* Single step */ /* FIXME: What if a signal arrives instead of the single-step happening? */ target_wait (pid, &w); insert_breakpoints (); target_resume (pid, 0, TARGET_SIGNAL_0); continue; } } else random_signal = 1; /* See if something interesting happened to the non-current thread. If so, then switch to that thread, and eventually give control back to the user. */ if (pid != inferior_pid) { int printed = 0; /* If it's a random signal for a non-current thread, notify user if he's expressed an interest. */ if (random_signal && signal_print[stop_signal]) { printed = 1; target_terminal_ours_for_output (); printf_filtered ("\nProgram received signal %s, %s.\n", target_signal_to_name (stop_signal), target_signal_to_string (stop_signal)); gdb_flush (gdb_stdout); } /* If it's not SIGTRAP and not a signal we want to stop for, then continue the thread. */ if (stop_signal != TARGET_SIGNAL_TRAP && !signal_stop[stop_signal]) { if (printed) target_terminal_inferior (); /* Clear the signal if it should not be passed. */ if (signal_program[stop_signal] == 0) stop_signal = TARGET_SIGNAL_0; target_resume (pid, 0, stop_signal); continue; } /* It's a SIGTRAP or a signal we're interested in. Switch threads, and fall into the rest of wait_for_inferior(). */ inferior_pid = pid; printf_filtered ("[Switching to %s]\n", target_pid_to_str (pid)); flush_cached_frames (); trap_expected = 0; if (step_resume_breakpoint) { delete_breakpoint (step_resume_breakpoint); step_resume_breakpoint = NULL; } /* Not sure whether we need to blow this away too, but probably it is like the step-resume breakpoint. */ if (through_sigtramp_breakpoint) { delete_breakpoint (through_sigtramp_breakpoint); through_sigtramp_breakpoint = NULL; } prev_pc = 0; prev_sp = 0; prev_func_name = NULL; step_range_start = 0; step_range_end = 0; step_frame_address = 0; handling_longjmp = 0; another_trap = 0; } #ifdef NO_SINGLE_STEP if (one_stepped) single_step (0); /* This actually cleans up the ss */ #endif /* NO_SINGLE_STEP */ /* If PC is pointing at a nullified instruction, then step beyond it so that the user won't be confused when GDB appears to be ready to execute it. */ if (INSTRUCTION_NULLIFIED) { resume (1, 0); continue; } set_current_frame (create_new_frame (read_fp (), stop_pc)); select_frame (get_current_frame (), 0); #ifdef HAVE_STEPPABLE_WATCHPOINT /* It may not be necessary to disable the watchpoint to stop over it. For example, the PA can (with some kernel cooperation) single step over a watchpoint without disabling the watchpoint. */ if (STOPPED_BY_WATCHPOINT (w)) { resume (1, 0); continue; } #endif #ifdef HAVE_NONSTEPPABLE_WATCHPOINT /* It is far more common to need to disable a watchpoint to step the inferior over it. FIXME. What else might a debug register or page protection watchpoint scheme need here? */ if (STOPPED_BY_WATCHPOINT (w)) { remove_breakpoints (); resume (1, 0); /* FIXME: This is bogus. You can't interact with the inferior except when it is stopped. It apparently happens to work on Irix4, but it depends on /proc allowing us to muck with the memory of a running process, and the kernel deciding to run one instruction of the inferior before it executes our insert_breakpoints code, which seems like an awfully dubious assumption. */ insert_breakpoints (); continue; } #endif #ifdef HAVE_CONTINUABLE_WATCHPOINT /* It may be possible to simply continue after a watchpoint. */ STOPPED_BY_WATCHPOINT (w); #endif stop_frame_address = FRAME_FP (get_current_frame ()); stop_sp = read_sp (); stop_func_start = 0; stop_func_name = 0; /* Don't care about return value; stop_func_start and stop_func_name will both be 0 if it doesn't work. */ find_pc_partial_function (stop_pc, &stop_func_name, &stop_func_start, &stop_func_end); stop_func_start += FUNCTION_START_OFFSET; another_trap = 0; bpstat_clear (&stop_bpstat); stop_step = 0; stop_stack_dummy = 0; stop_print_frame = 1; random_signal = 0; stopped_by_random_signal = 0; breakpoints_failed = 0; /* Look at the cause of the stop, and decide what to do. The alternatives are: 1) break; to really stop and return to the debugger, 2) drop through to start up again (set another_trap to 1 to single step once) 3) set random_signal to 1, and the decision between 1 and 2 will be made according to the signal handling tables. */ /* First, distinguish signals caused by the debugger from signals that have to do with the program's own actions. Note that breakpoint insns may cause SIGTRAP or SIGILL or SIGEMT, depending on the operating system version. Here we detect when a SIGILL or SIGEMT is really a breakpoint and change it to SIGTRAP. */ if (stop_signal == TARGET_SIGNAL_TRAP || (breakpoints_inserted && (stop_signal == TARGET_SIGNAL_ILL || stop_signal == TARGET_SIGNAL_EMT )) || stop_soon_quietly) { if (stop_signal == TARGET_SIGNAL_TRAP && stop_after_trap) { stop_print_frame = 0; break; } if (stop_soon_quietly) break; /* Don't even think about breakpoints if just proceeded over a breakpoint. However, if we are trying to proceed over a breakpoint and end up in sigtramp, then through_sigtramp_breakpoint will be set and we should check whether we've hit the step breakpoint. */ if (stop_signal == TARGET_SIGNAL_TRAP && trap_expected && through_sigtramp_breakpoint == NULL) bpstat_clear (&stop_bpstat); else { /* See if there is a breakpoint at the current PC. */ stop_bpstat = bpstat_stop_status (&stop_pc, stop_frame_address, #if DECR_PC_AFTER_BREAK /* Notice the case of stepping through a jump that lands just after a breakpoint. Don't confuse that with hitting the breakpoint. What we check for is that 1) stepping is going on and 2) the pc before the last insn does not match the address of the breakpoint before the current pc. */ (prev_pc != stop_pc - DECR_PC_AFTER_BREAK && CURRENTLY_STEPPING ()) #else /* DECR_PC_AFTER_BREAK zero */ 0 #endif /* DECR_PC_AFTER_BREAK zero */ ); /* Following in case break condition called a function. */ stop_print_frame = 1; } if (stop_signal == TARGET_SIGNAL_TRAP) random_signal = !(bpstat_explains_signal (stop_bpstat) || trap_expected #ifndef CALL_DUMMY_BREAKPOINT_OFFSET || PC_IN_CALL_DUMMY (stop_pc, stop_sp, stop_frame_address) #endif /* No CALL_DUMMY_BREAKPOINT_OFFSET. */ || (step_range_end && step_resume_breakpoint == NULL)); else { random_signal = !(bpstat_explains_signal (stop_bpstat) /* End of a stack dummy. Some systems (e.g. Sony news) give another signal besides SIGTRAP, so check here as well as above. */ #ifndef CALL_DUMMY_BREAKPOINT_OFFSET || PC_IN_CALL_DUMMY (stop_pc, stop_sp, stop_frame_address) #endif /* No CALL_DUMMY_BREAKPOINT_OFFSET. */ ); if (!random_signal) stop_signal = TARGET_SIGNAL_TRAP; } } else random_signal = 1; /* For the program's own signals, act according to the signal handling tables. */ if (random_signal) { /* Signal not for debugging purposes. */ int printed = 0; stopped_by_random_signal = 1; if (signal_print[stop_signal]) { printed = 1; target_terminal_ours_for_output (); annotate_signal (); printf_filtered ("\nProgram received signal "); annotate_signal_name (); printf_filtered ("%s", target_signal_to_name (stop_signal)); annotate_signal_name_end (); printf_filtered (", "); annotate_signal_string (); printf_filtered ("%s", target_signal_to_string (stop_signal)); annotate_signal_string_end (); printf_filtered (".\n"); gdb_flush (gdb_stdout); } if (signal_stop[stop_signal]) break; /* If not going to stop, give terminal back if we took it away. */ else if (printed) target_terminal_inferior (); /* Clear the signal if it should not be passed. */ if (signal_program[stop_signal] == 0) stop_signal = TARGET_SIGNAL_0; /* I'm not sure whether this needs to be check_sigtramp2 or whether it could/should be keep_going. */ goto check_sigtramp2; } /* Handle cases caused by hitting a breakpoint. */ { CORE_ADDR jmp_buf_pc; struct bpstat_what what; what = bpstat_what (stop_bpstat); if (what.call_dummy) { stop_stack_dummy = 1; #ifdef HP_OS_BUG trap_expected_after_continue = 1; #endif } switch (what.main_action) { case BPSTAT_WHAT_SET_LONGJMP_RESUME: /* If we hit the breakpoint at longjmp, disable it for the duration of this command. Then, install a temporary breakpoint at the target of the jmp_buf. */ disable_longjmp_breakpoint(); remove_breakpoints (); breakpoints_inserted = 0; if (!GET_LONGJMP_TARGET(&jmp_buf_pc)) goto keep_going; /* Need to blow away step-resume breakpoint, as it interferes with us */ if (step_resume_breakpoint != NULL) { delete_breakpoint (step_resume_breakpoint); step_resume_breakpoint = NULL; } /* Not sure whether we need to blow this away too, but probably it is like the step-resume breakpoint. */ if (through_sigtramp_breakpoint != NULL) { delete_breakpoint (through_sigtramp_breakpoint); through_sigtramp_breakpoint = NULL; } #if 0 /* FIXME - Need to implement nested temporary breakpoints */ if (step_over_calls > 0) set_longjmp_resume_breakpoint(jmp_buf_pc, get_current_frame()); else #endif /* 0 */ set_longjmp_resume_breakpoint(jmp_buf_pc, NULL); handling_longjmp = 1; /* FIXME */ goto keep_going; case BPSTAT_WHAT_CLEAR_LONGJMP_RESUME: case BPSTAT_WHAT_CLEAR_LONGJMP_RESUME_SINGLE: remove_breakpoints (); breakpoints_inserted = 0; #if 0 /* FIXME - Need to implement nested temporary breakpoints */ if (step_over_calls && (stop_frame_address INNER_THAN step_frame_address)) { another_trap = 1; goto keep_going; } #endif /* 0 */ disable_longjmp_breakpoint(); handling_longjmp = 0; /* FIXME */ if (what.main_action == BPSTAT_WHAT_CLEAR_LONGJMP_RESUME) break; /* else fallthrough */ case BPSTAT_WHAT_SINGLE: if (breakpoints_inserted) remove_breakpoints (); breakpoints_inserted = 0; another_trap = 1; /* Still need to check other stuff, at least the case where we are stepping and step out of the right range. */ break; case BPSTAT_WHAT_STOP_NOISY: stop_print_frame = 1; /* We are about to nuke the step_resume_breakpoint and through_sigtramp_breakpoint via the cleanup chain, so no need to worry about it here. */ goto stop_stepping; case BPSTAT_WHAT_STOP_SILENT: stop_print_frame = 0; /* We are about to nuke the step_resume_breakpoint and through_sigtramp_breakpoint via the cleanup chain, so no need to worry about it here. */ goto stop_stepping; case BPSTAT_WHAT_STEP_RESUME: delete_breakpoint (step_resume_breakpoint); step_resume_breakpoint = NULL; break; case BPSTAT_WHAT_THROUGH_SIGTRAMP: delete_breakpoint (through_sigtramp_breakpoint); through_sigtramp_breakpoint = NULL; /* If were waiting for a trap, hitting the step_resume_break doesn't count as getting it. */ if (trap_expected) another_trap = 1; break; case BPSTAT_WHAT_LAST: /* Not a real code, but listed here to shut up gcc -Wall. */ case BPSTAT_WHAT_KEEP_CHECKING: break; } } /* We come here if we hit a breakpoint but should not stop for it. Possibly we also were stepping and should stop for that. So fall through and test for stepping. But, if not stepping, do not stop. */ #ifndef CALL_DUMMY_BREAKPOINT_OFFSET /* This is the old way of detecting the end of the stack dummy. An architecture which defines CALL_DUMMY_BREAKPOINT_OFFSET gets handled above. As soon as we can test it on all of them, all architectures should define it. */ /* If this is the breakpoint at the end of a stack dummy, just stop silently, unless the user was doing an si/ni, in which case she'd better know what she's doing. */ if (PC_IN_CALL_DUMMY (stop_pc, stop_sp, stop_frame_address) && !step_range_end) { stop_print_frame = 0; stop_stack_dummy = 1; #ifdef HP_OS_BUG trap_expected_after_continue = 1; #endif break; } #endif /* No CALL_DUMMY_BREAKPOINT_OFFSET. */ if (step_resume_breakpoint) /* Having a step-resume breakpoint overrides anything else having to do with stepping commands until that breakpoint is reached. */ /* I'm not sure whether this needs to be check_sigtramp2 or whether it could/should be keep_going. */ goto check_sigtramp2; if (step_range_end == 0) /* Likewise if we aren't even stepping. */ /* I'm not sure whether this needs to be check_sigtramp2 or whether it could/should be keep_going. */ goto check_sigtramp2; /* If stepping through a line, keep going if still within it. */ if (stop_pc >= step_range_start && stop_pc < step_range_end /* The step range might include the start of the function, so if we are at the start of the step range and either the stack or frame pointers just changed, we've stepped outside */ && !(stop_pc == step_range_start && stop_frame_address && (stop_sp INNER_THAN prev_sp || stop_frame_address != step_frame_address))) { /* We might be doing a BPSTAT_WHAT_SINGLE and getting a signal. So definately need to check for sigtramp here. */ goto check_sigtramp2; } /* We stepped out of the stepping range. See if that was due to a subroutine call that we should proceed to the end of. */ /* Did we just take a signal? */ if (IN_SIGTRAMP (stop_pc, stop_func_name) && !IN_SIGTRAMP (prev_pc, prev_func_name)) { /* We've just taken a signal; go until we are back to the point where we took it and one more. */ /* This code is needed at least in the following case: The user types "next" and then a signal arrives (before the "next" is done). */ /* Note that if we are stopped at a breakpoint, then we need the step_resume breakpoint to override any breakpoints at the same location, so that we will still step over the breakpoint even though the signal happened. */ { struct symtab_and_line sr_sal; sr_sal.pc = prev_pc; sr_sal.symtab = NULL; sr_sal.line = 0; /* We could probably be setting the frame to prev_frame_address; the reason we don't is that it didn't used to exist. */ step_resume_breakpoint = set_momentary_breakpoint (sr_sal, NULL, bp_step_resume); if (breakpoints_inserted) insert_breakpoints (); } /* If this is stepi or nexti, make sure that the stepping range gets us past that instruction. */ if (step_range_end == 1) /* FIXME: Does this run afoul of the code below which, if we step into the middle of a line, resets the stepping range? */ step_range_end = (step_range_start = prev_pc) + 1; remove_breakpoints_on_following_step = 1; goto keep_going; } #if 1 if (stop_func_start) { struct symtab *s; /* Do this after the IN_SIGTRAMP check; it might give an error. */ prologue_pc = stop_func_start; /* Don't skip the prologue if this is assembly source */ s = find_pc_symtab (stop_pc); if (s && s->language != language_asm) SKIP_PROLOGUE (prologue_pc); } if ((/* Might be a non-recursive call. If the symbols are missing enough that stop_func_start == prev_func_start even though they are really two functions, we will treat some calls as jumps. */ stop_func_start != prev_func_start /* Might be a recursive call if either we have a prologue or the call instruction itself saves the PC on the stack. */ || prologue_pc != stop_func_start || stop_sp != prev_sp) && (/* PC is completely out of bounds of any known objfiles. Treat like a subroutine call. */ ! stop_func_start /* If we do a call, we will be at the start of a function... */ || stop_pc == stop_func_start /* ...except on the Alpha with -O (and also Irix 5 and perhaps others), in which we might call the address after the load of gp. Since prologues don't contain calls, we can't return to within one, and we don't jump back into them, so this check is OK. */ || stop_pc < prologue_pc /* ...and if it is a leaf function, the prologue might consist of gp loading only, so the call transfers to the first instruction after the prologue. */ || (stop_pc == prologue_pc /* Distinguish this from the case where we jump back to the first instruction after the prologue, within a function. */ && stop_func_start != prev_func_start) /* If we end up in certain places, it means we did a subroutine call. I'm not completely sure this is necessary now that we have the above checks with stop_func_start (and now that find_pc_partial_function is pickier). */ || IN_SOLIB_TRAMPOLINE (stop_pc, stop_func_name) /* If none of the above apply, it is a jump within a function, or a return from a subroutine. The other case is longjmp, which can no longer happen here as long as the handling_longjmp stuff is working. */ )) #else /* This is experimental code which greatly simplifies the subroutine call test. I've actually tested on the Alpha, and it works great. -Stu */ if (in_prologue (stop_pc, NULL) || (prev_func_start != 0 && stop_func_start == 0)) #endif { /* It's a subroutine call. */ if (step_over_calls == 0) { /* I presume that step_over_calls is only 0 when we're supposed to be stepping at the assembly language level ("stepi"). Just stop. */ stop_step = 1; break; } if (step_over_calls > 0) /* We're doing a "next". */ goto step_over_function; /* If we are in a function call trampoline (a stub between the calling routine and the real function), locate the real function. That's what tells us (a) whether we want to step into it at all, and (b) what prologue we want to run to the end of, if we do step into it. */ tmp = SKIP_TRAMPOLINE_CODE (stop_pc); if (tmp != 0) stop_func_start = tmp; /* If we have line number information for the function we are thinking of stepping into, step into it. If there are several symtabs at that PC (e.g. with include files), just want to know whether *any* of them have line numbers. find_pc_line handles this. */ { struct symtab_and_line tmp_sal; tmp_sal = find_pc_line (stop_func_start, 0); if (tmp_sal.line != 0) goto step_into_function; } step_over_function: /* A subroutine call has happened. */ { /* Set a special breakpoint after the return */ struct symtab_and_line sr_sal; sr_sal.pc = ADDR_BITS_REMOVE (SAVED_PC_AFTER_CALL (get_current_frame ())); sr_sal.symtab = NULL; sr_sal.line = 0; step_resume_breakpoint = set_momentary_breakpoint (sr_sal, get_current_frame (), bp_step_resume); step_resume_breakpoint->frame = prev_frame_address; if (breakpoints_inserted) insert_breakpoints (); } goto keep_going; step_into_function: /* Subroutine call with source code we should not step over. Do step to the first line of code in it. */ { struct symtab *s; s = find_pc_symtab (stop_pc); if (s && s->language != language_asm) SKIP_PROLOGUE (stop_func_start); } sal = find_pc_line (stop_func_start, 0); /* Use the step_resume_break to step until the end of the prologue, even if that involves jumps (as it seems to on the vax under 4.2). */ /* If the prologue ends in the middle of a source line, continue to the end of that source line (if it is still within the function). Otherwise, just go to end of prologue. */ #ifdef PROLOGUE_FIRSTLINE_OVERLAP /* no, don't either. It skips any code that's legitimately on the first line. */ #else if (sal.end && sal.pc != stop_func_start && sal.end < stop_func_end) stop_func_start = sal.end; #endif if (stop_func_start == stop_pc) { /* We are already there: stop now. */ stop_step = 1; break; } else /* Put the step-breakpoint there and go until there. */ { struct symtab_and_line sr_sal; sr_sal.pc = stop_func_start; sr_sal.symtab = NULL; sr_sal.line = 0; /* Do not specify what the fp should be when we stop since on some machines the prologue is where the new fp value is established. */ step_resume_breakpoint = set_momentary_breakpoint (sr_sal, NULL, bp_step_resume); if (breakpoints_inserted) insert_breakpoints (); /* And make sure stepping stops right away then. */ step_range_end = step_range_start; } goto keep_going; } /* We've wandered out of the step range. */ sal = find_pc_line(stop_pc, 0); if (step_range_end == 1) { /* It is stepi or nexti. We always want to stop stepping after one instruction. */ stop_step = 1; break; } if (sal.line == 0) { /* We have no line number information. That means to stop stepping (does this always happen right after one instruction, when we do "s" in a function with no line numbers, or can this happen as a result of a return or longjmp?). */ stop_step = 1; break; } if (stop_pc == sal.pc && (current_line != sal.line || current_symtab != sal.symtab)) { /* We are at the start of a different line. So stop. Note that we don't stop if we step into the middle of a different line. That is said to make things like for (;;) statements work better. */ stop_step = 1; break; } /* We aren't done stepping. Optimize by setting the stepping range to the line. (We might not be in the original line, but if we entered a new line in mid-statement, we continue stepping. This makes things like for(;;) statements work better.) */ if (stop_func_end && sal.end >= stop_func_end) { /* If this is the last line of the function, don't keep stepping (it would probably step us out of the function). This is particularly necessary for a one-line function, in which after skipping the prologue we better stop even though we will be in mid-line. */ stop_step = 1; break; } step_range_start = sal.pc; step_range_end = sal.end; goto keep_going; check_sigtramp2: if (trap_expected && IN_SIGTRAMP (stop_pc, stop_func_name) && !IN_SIGTRAMP (prev_pc, prev_func_name)) { /* What has happened here is that we have just stepped the inferior with a signal (because it is a signal which shouldn't make us stop), thus stepping into sigtramp. So we need to set a step_resume_break_address breakpoint and continue until we hit it, and then step. FIXME: This should be more enduring than a step_resume breakpoint; we should know that we will later need to keep going rather than re-hitting the breakpoint here (see testsuite/gdb.t06/signals.exp where it says "exceedingly difficult"). */ struct symtab_and_line sr_sal; sr_sal.pc = prev_pc; sr_sal.symtab = NULL; sr_sal.line = 0; /* We perhaps could set the frame if we kept track of what the frame corresponding to prev_pc was. But we don't, so don't. */ through_sigtramp_breakpoint = set_momentary_breakpoint (sr_sal, NULL, bp_through_sigtramp); if (breakpoints_inserted) insert_breakpoints (); remove_breakpoints_on_following_step = 1; another_trap = 1; } keep_going: /* Come to this label when you need to resume the inferior. It's really much cleaner to do a goto than a maze of if-else conditions. */ /* Save the pc before execution, to compare with pc after stop. */ prev_pc = read_pc (); /* Might have been DECR_AFTER_BREAK */ prev_func_start = stop_func_start; /* Ok, since if DECR_PC_AFTER BREAK is defined, the original pc would not have been at the start of a function. */ prev_func_name = stop_func_name; prev_sp = stop_sp; prev_frame_address = stop_frame_address; /* If we did not do break;, it means we should keep running the inferior and not return to debugger. */ if (trap_expected && stop_signal != TARGET_SIGNAL_TRAP) { /* We took a signal (which we are supposed to pass through to the inferior, else we'd have done a break above) and we haven't yet gotten our trap. Simply continue. */ resume (CURRENTLY_STEPPING (), stop_signal); } else { /* Either the trap was not expected, but we are continuing anyway (the user asked that this signal be passed to the child) -- or -- The signal was SIGTRAP, e.g. it was our signal, but we decided we should resume from it. We're going to run this baby now! Insert breakpoints now, unless we are trying to one-proceed past a breakpoint. */ /* If we've just finished a special step resume and we don't want to hit a breakpoint, pull em out. */ if (step_resume_breakpoint == NULL && through_sigtramp_breakpoint == NULL && remove_breakpoints_on_following_step) { remove_breakpoints_on_following_step = 0; remove_breakpoints (); breakpoints_inserted = 0; } else if (!breakpoints_inserted && (through_sigtramp_breakpoint != NULL || !another_trap)) { breakpoints_failed = insert_breakpoints (); if (breakpoints_failed) break; breakpoints_inserted = 1; } trap_expected = another_trap; if (stop_signal == TARGET_SIGNAL_TRAP) stop_signal = TARGET_SIGNAL_0; #ifdef SHIFT_INST_REGS /* I'm not sure when this following segment applies. I do know, now, that we shouldn't rewrite the regs when we were stopped by a random signal from the inferior process. */ /* FIXME: Shouldn't this be based on the valid bit of the SXIP? (this is only used on the 88k). */ if (!bpstat_explains_signal (stop_bpstat) && (stop_signal != TARGET_SIGNAL_CHLD) && !stopped_by_random_signal) SHIFT_INST_REGS(); #endif /* SHIFT_INST_REGS */ resume (CURRENTLY_STEPPING (), stop_signal); } } stop_stepping: if (target_has_execution) { /* Assuming the inferior still exists, set these up for next time, just like we did above if we didn't break out of the loop. */ prev_pc = read_pc (); prev_func_start = stop_func_start; prev_func_name = stop_func_name; prev_sp = stop_sp; prev_frame_address = stop_frame_address; } do_cleanups (old_cleanups); } /* Here to return control to GDB when the inferior stops for real. Print appropriate messages, remove breakpoints, give terminal our modes. STOP_PRINT_FRAME nonzero means print the executing frame (pc, function, args, file, line number and line text). BREAKPOINTS_FAILED nonzero means stop was due to error attempting to insert breakpoints. */ void normal_stop () { /* Make sure that the current_frame's pc is correct. This is a correction for setting up the frame info before doing DECR_PC_AFTER_BREAK */ if (target_has_execution && get_current_frame()) (get_current_frame ())->pc = read_pc (); if (breakpoints_failed) { target_terminal_ours_for_output (); print_sys_errmsg ("ptrace", breakpoints_failed); printf_filtered ("Stopped; cannot insert breakpoints.\n\ The same program may be running in another process.\n"); } if (target_has_execution && breakpoints_inserted) if (remove_breakpoints ()) { target_terminal_ours_for_output (); printf_filtered ("Cannot remove breakpoints because program is no longer writable.\n\ It might be running in another process.\n\ Further execution is probably impossible.\n"); } breakpoints_inserted = 0; /* Delete the breakpoint we stopped at, if it wants to be deleted. Delete any breakpoint that is to be deleted at the next stop. */ breakpoint_auto_delete (stop_bpstat); /* If an auto-display called a function and that got a signal, delete that auto-display to avoid an infinite recursion. */ if (stopped_by_random_signal) disable_current_display (); if (step_multi && stop_step) goto done; target_terminal_ours (); /* Look up the hook_stop and run it if it exists. */ if (stop_command->hook) { catch_errors (hook_stop_stub, (char *)stop_command->hook, "Error while running hook_stop:\n", RETURN_MASK_ALL); } if (!target_has_stack) goto done; /* Select innermost stack frame except on return from a stack dummy routine, or if the program has exited. Print it without a level number if we have changed functions or hit a breakpoint. Print source line if we have one. */ if (!stop_stack_dummy) { if (stop_print_frame) { int source_only; source_only = bpstat_print (stop_bpstat); source_only = source_only || ( stop_step && step_frame_address == stop_frame_address && step_start_function == find_pc_function (stop_pc)); print_stack_frame (selected_frame, -1, source_only? -1: 1); /* Display the auto-display expressions. */ do_displays (); } } /* Save the function value return registers, if we care. We might be about to restore their previous contents. */ if (proceed_to_finish) read_register_bytes (0, stop_registers, REGISTER_BYTES); if (stop_stack_dummy) { /* Pop the empty frame that contains the stack dummy. POP_FRAME ends with a setting of the current frame, so we can use that next. */ POP_FRAME; /* Set stop_pc to what it was before we called the function. Can't rely on restore_inferior_status because that only gets called if we don't stop in the called function. */ stop_pc = read_pc(); select_frame (get_current_frame (), 0); } done: annotate_stopped (); } static int hook_stop_stub (cmd) char *cmd; { execute_user_command ((struct cmd_list_element *)cmd, 0); return (0); } int signal_stop_state (signo) int signo; { return signal_stop[signo]; } int signal_print_state (signo) int signo; { return signal_print[signo]; } int signal_pass_state (signo) int signo; { return signal_program[signo]; } static void sig_print_header () { printf_filtered ("\ Signal Stop\tPrint\tPass to program\tDescription\n"); } static void sig_print_info (oursig) enum target_signal oursig; { char *name = target_signal_to_name (oursig); printf_filtered ("%s", name); printf_filtered ("%*.*s ", 13 - strlen (name), 13 - strlen (name), " "); printf_filtered ("%s\t", signal_stop[oursig] ? "Yes" : "No"); printf_filtered ("%s\t", signal_print[oursig] ? "Yes" : "No"); printf_filtered ("%s\t\t", signal_program[oursig] ? "Yes" : "No"); printf_filtered ("%s\n", target_signal_to_string (oursig)); } /* Specify how various signals in the inferior should be handled. */ static void handle_command (args, from_tty) char *args; int from_tty; { char **argv; int digits, wordlen; int sigfirst, signum, siglast; enum target_signal oursig; int allsigs; int nsigs; unsigned char *sigs; struct cleanup *old_chain; if (args == NULL) { error_no_arg ("signal to handle"); } /* Allocate and zero an array of flags for which signals to handle. */ nsigs = (int)TARGET_SIGNAL_LAST; sigs = (unsigned char *) alloca (nsigs); memset (sigs, 0, nsigs); /* Break the command line up into args. */ argv = buildargv (args); if (argv == NULL) { nomem (0); } old_chain = make_cleanup (freeargv, (char *) argv); /* Walk through the args, looking for signal oursigs, signal names, and actions. Signal numbers and signal names may be interspersed with actions, with the actions being performed for all signals cumulatively specified. Signal ranges can be specified as -. */ while (*argv != NULL) { wordlen = strlen (*argv); for (digits = 0; isdigit ((*argv)[digits]); digits++) {;} allsigs = 0; sigfirst = siglast = -1; if (wordlen >= 1 && !strncmp (*argv, "all", wordlen)) { /* Apply action to all signals except those used by the debugger. Silently skip those. */ allsigs = 1; sigfirst = 0; siglast = nsigs - 1; } else if (wordlen >= 1 && !strncmp (*argv, "stop", wordlen)) { SET_SIGS (nsigs, sigs, signal_stop); SET_SIGS (nsigs, sigs, signal_print); } else if (wordlen >= 1 && !strncmp (*argv, "ignore", wordlen)) { UNSET_SIGS (nsigs, sigs, signal_program); } else if (wordlen >= 2 && !strncmp (*argv, "print", wordlen)) { SET_SIGS (nsigs, sigs, signal_print); } else if (wordlen >= 2 && !strncmp (*argv, "pass", wordlen)) { SET_SIGS (nsigs, sigs, signal_program); } else if (wordlen >= 3 && !strncmp (*argv, "nostop", wordlen)) { UNSET_SIGS (nsigs, sigs, signal_stop); } else if (wordlen >= 3 && !strncmp (*argv, "noignore", wordlen)) { SET_SIGS (nsigs, sigs, signal_program); } else if (wordlen >= 4 && !strncmp (*argv, "noprint", wordlen)) { UNSET_SIGS (nsigs, sigs, signal_print); UNSET_SIGS (nsigs, sigs, signal_stop); } else if (wordlen >= 4 && !strncmp (*argv, "nopass", wordlen)) { UNSET_SIGS (nsigs, sigs, signal_program); } else if (digits > 0) { /* It is numeric. The numeric signal refers to our own internal signal numbering from target.h, not to host/target signal number. This is a feature; users really should be using symbolic names anyway, and the common ones like SIGHUP, SIGINT, SIGALRM, etc. will work right anyway. */ sigfirst = siglast = atoi (*argv); if ((*argv)[digits] == '-') { siglast = atoi ((*argv) + digits + 1); } if (sigfirst > siglast) { /* Bet he didn't figure we'd think of this case... */ signum = sigfirst; sigfirst = siglast; siglast = signum; } if (sigfirst < 0 || sigfirst >= nsigs) { error ("Signal %d not in range 0-%d", sigfirst, nsigs - 1); } if (siglast < 0 || siglast >= nsigs) { error ("Signal %d not in range 0-%d", siglast, nsigs - 1); } } else { oursig = target_signal_from_name (*argv); if (oursig != TARGET_SIGNAL_UNKNOWN) { sigfirst = siglast = (int)oursig; } else { /* Not a number and not a recognized flag word => complain. */ error ("Unrecognized or ambiguous flag word: \"%s\".", *argv); } } /* If any signal numbers or symbol names were found, set flags for which signals to apply actions to. */ for (signum = sigfirst; signum >= 0 && signum <= siglast; signum++) { switch ((enum target_signal)signum) { case TARGET_SIGNAL_TRAP: case TARGET_SIGNAL_INT: if (!allsigs && !sigs[signum]) { if (query ("%s is used by the debugger.\n\ Are you sure you want to change it? ", target_signal_to_name ((enum target_signal)signum))) { sigs[signum] = 1; } else { printf_unfiltered ("Not confirmed, unchanged.\n"); gdb_flush (gdb_stdout); } } break; default: sigs[signum] = 1; break; } } argv++; } target_notice_signals(inferior_pid); if (from_tty) { /* Show the results. */ sig_print_header (); for (signum = 0; signum < nsigs; signum++) { if (sigs[signum]) { sig_print_info (signum); } } } do_cleanups (old_chain); } /* Print current contents of the tables set by the handle command. It is possible we should just be printing signals actually used by the current target (but for things to work right when switching targets, all signals should be in the signal tables). */ static void signals_info (signum_exp, from_tty) char *signum_exp; int from_tty; { enum target_signal oursig; sig_print_header (); if (signum_exp) { /* First see if this is a symbol name. */ oursig = target_signal_from_name (signum_exp); if (oursig == TARGET_SIGNAL_UNKNOWN) { /* Nope, maybe it's an address which evaluates to a signal number. */ /* The numeric signal refers to our own internal signal numbering from target.h, not to host/target signal number. This is a feature; users really should be using symbolic names anyway, and the common ones like SIGHUP, SIGINT, SIGALRM, etc. will work right anyway. */ int i = parse_and_eval_address (signum_exp); if (i >= (int)TARGET_SIGNAL_LAST || i < 0 || i == (int)TARGET_SIGNAL_UNKNOWN || i == (int)TARGET_SIGNAL_DEFAULT) error ("Signal number out of bounds."); oursig = (enum target_signal)i; } sig_print_info (oursig); return; } printf_filtered ("\n"); /* These ugly casts brought to you by the native VAX compiler. */ for (oursig = TARGET_SIGNAL_FIRST; (int)oursig < (int)TARGET_SIGNAL_LAST; oursig = (enum target_signal)((int)oursig + 1)) { QUIT; if (oursig != TARGET_SIGNAL_UNKNOWN && oursig != TARGET_SIGNAL_DEFAULT && oursig != TARGET_SIGNAL_0) sig_print_info (oursig); } printf_filtered ("\nUse the \"handle\" command to change these tables.\n"); } /* Save all of the information associated with the inferior<==>gdb connection. INF_STATUS is a pointer to a "struct inferior_status" (defined in inferior.h). */ void save_inferior_status (inf_status, restore_stack_info) struct inferior_status *inf_status; int restore_stack_info; { inf_status->stop_signal = stop_signal; inf_status->stop_pc = stop_pc; inf_status->stop_frame_address = stop_frame_address; inf_status->stop_step = stop_step; inf_status->stop_stack_dummy = stop_stack_dummy; inf_status->stopped_by_random_signal = stopped_by_random_signal; inf_status->trap_expected = trap_expected; inf_status->step_range_start = step_range_start; inf_status->step_range_end = step_range_end; inf_status->step_frame_address = step_frame_address; inf_status->step_over_calls = step_over_calls; inf_status->stop_after_trap = stop_after_trap; inf_status->stop_soon_quietly = stop_soon_quietly; /* Save original bpstat chain here; replace it with copy of chain. If caller's caller is walking the chain, they'll be happier if we hand them back the original chain when restore_i_s is called. */ inf_status->stop_bpstat = stop_bpstat; stop_bpstat = bpstat_copy (stop_bpstat); inf_status->breakpoint_proceeded = breakpoint_proceeded; inf_status->restore_stack_info = restore_stack_info; inf_status->proceed_to_finish = proceed_to_finish; memcpy (inf_status->stop_registers, stop_registers, REGISTER_BYTES); read_register_bytes (0, inf_status->registers, REGISTER_BYTES); record_selected_frame (&(inf_status->selected_frame_address), &(inf_status->selected_level)); return; } struct restore_selected_frame_args { FRAME_ADDR frame_address; int level; }; static int restore_selected_frame PARAMS ((char *)); /* Restore the selected frame. args is really a struct restore_selected_frame_args * (declared as char * for catch_errors) telling us what frame to restore. Returns 1 for success, or 0 for failure. An error message will have been printed on error. */ static int restore_selected_frame (args) char *args; { struct restore_selected_frame_args *fr = (struct restore_selected_frame_args *) args; FRAME fid; int level = fr->level; fid = find_relative_frame (get_current_frame (), &level); /* If inf_status->selected_frame_address is NULL, there was no previously selected frame. */ if (fid == 0 || FRAME_FP (fid) != fr->frame_address || level != 0) { warning ("Unable to restore previously selected frame.\n"); return 0; } select_frame (fid, fr->level); return(1); } void restore_inferior_status (inf_status) struct inferior_status *inf_status; { stop_signal = inf_status->stop_signal; stop_pc = inf_status->stop_pc; stop_frame_address = inf_status->stop_frame_address; stop_step = inf_status->stop_step; stop_stack_dummy = inf_status->stop_stack_dummy; stopped_by_random_signal = inf_status->stopped_by_random_signal; trap_expected = inf_status->trap_expected; step_range_start = inf_status->step_range_start; step_range_end = inf_status->step_range_end; step_frame_address = inf_status->step_frame_address; step_over_calls = inf_status->step_over_calls; stop_after_trap = inf_status->stop_after_trap; stop_soon_quietly = inf_status->stop_soon_quietly; bpstat_clear (&stop_bpstat); stop_bpstat = inf_status->stop_bpstat; breakpoint_proceeded = inf_status->breakpoint_proceeded; proceed_to_finish = inf_status->proceed_to_finish; memcpy (stop_registers, inf_status->stop_registers, REGISTER_BYTES); /* The inferior can be gone if the user types "print exit(0)" (and perhaps other times). */ if (target_has_execution) write_register_bytes (0, inf_status->registers, REGISTER_BYTES); /* The inferior can be gone if the user types "print exit(0)" (and perhaps other times). */ /* FIXME: If we are being called after stopping in a function which is called from gdb, we should not be trying to restore the selected frame; it just prints a spurious error message (The message is useful, however, in detecting bugs in gdb (like if gdb clobbers the stack)). In fact, should we be restoring the inferior status at all in that case? . */ if (target_has_stack && inf_status->restore_stack_info) { struct restore_selected_frame_args fr; fr.level = inf_status->selected_level; fr.frame_address = inf_status->selected_frame_address; /* The point of catch_errors is that if the stack is clobbered, walking the stack might encounter a garbage pointer and error() trying to dereference it. */ if (catch_errors (restore_selected_frame, &fr, "Unable to restore previously selected frame:\n", RETURN_MASK_ERROR) == 0) /* Error in restoring the selected frame. Select the innermost frame. */ select_frame (get_current_frame (), 0); } } void _initialize_infrun () { register int i; register int numsigs; add_info ("signals", signals_info, "What debugger does when program gets various signals.\n\ Specify a signal number as argument to print info on that signal only."); add_info_alias ("handle", "signals", 0); add_com ("handle", class_run, handle_command, "Specify how to handle a signal.\n\ Args are signal numbers and actions to apply to those signals.\n\ Signal numbers may be numeric (ex. 11) or symbolic (ex. SIGSEGV).\n\ Numeric ranges may be specified with the form LOW-HIGH (ex. 14-21).\n\ The special arg \"all\" is recognized to mean all signals except those\n\ used by the debugger, typically SIGTRAP and SIGINT.\n\ Recognized actions include \"stop\", \"nostop\", \"print\", \"noprint\",\n\ \"pass\", \"nopass\", \"ignore\", or \"noignore\".\n\ Stop means reenter debugger if this signal happens (implies print).\n\ Print means print a message if this signal happens.\n\ Pass means let program see this signal; otherwise program doesn't know.\n\ Ignore is a synonym for nopass and noignore is a synonym for pass.\n\ Pass and Stop may be combined."); stop_command = add_cmd ("stop", class_obscure, not_just_help_class_command, "There is no `stop' command, but you can set a hook on `stop'.\n\ This allows you to set a list of commands to be run each time execution\n\ of the program stops.", &cmdlist); numsigs = (int)TARGET_SIGNAL_LAST; signal_stop = (unsigned char *) xmalloc (sizeof (signal_stop[0]) * numsigs); signal_print = (unsigned char *) xmalloc (sizeof (signal_print[0]) * numsigs); signal_program = (unsigned char *) xmalloc (sizeof (signal_program[0]) * numsigs); for (i = 0; i < numsigs; i++) { signal_stop[i] = 1; signal_print[i] = 1; signal_program[i] = 1; } /* Signals caused by debugger's own actions should not be given to the program afterwards. */ signal_program[TARGET_SIGNAL_TRAP] = 0; signal_program[TARGET_SIGNAL_INT] = 0; /* Signals that are not errors should not normally enter the debugger. */ signal_stop[TARGET_SIGNAL_ALRM] = 0; signal_print[TARGET_SIGNAL_ALRM] = 0; signal_stop[TARGET_SIGNAL_VTALRM] = 0; signal_print[TARGET_SIGNAL_VTALRM] = 0; signal_stop[TARGET_SIGNAL_PROF] = 0; signal_print[TARGET_SIGNAL_PROF] = 0; signal_stop[TARGET_SIGNAL_CHLD] = 0; signal_print[TARGET_SIGNAL_CHLD] = 0; signal_stop[TARGET_SIGNAL_IO] = 0; signal_print[TARGET_SIGNAL_IO] = 0; signal_stop[TARGET_SIGNAL_POLL] = 0; signal_print[TARGET_SIGNAL_POLL] = 0; signal_stop[TARGET_SIGNAL_URG] = 0; signal_print[TARGET_SIGNAL_URG] = 0; } gdb-4.13/gdb/inftarg.c 666 34562 1752 20356 5573160520 13120 0ustar fnfcygnus/* Target-vector operations for controlling Unix child processes, for GDB. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. Contributed by Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" /* required by inferior.h */ #include "inferior.h" #include "target.h" #include "wait.h" #include "gdbcore.h" #include "command.h" #include static void child_prepare_to_store PARAMS ((void)); #ifndef CHILD_WAIT static int child_wait PARAMS ((int, struct target_waitstatus *)); #endif /* CHILD_WAIT */ static void child_open PARAMS ((char *, int)); static void child_files_info PARAMS ((struct target_ops *)); static void child_detach PARAMS ((char *, int)); static void child_attach PARAMS ((char *, int)); static void ptrace_me PARAMS ((void)); static void ptrace_him PARAMS ((int)); static void child_create_inferior PARAMS ((char *, char *, char **)); static void child_mourn_inferior PARAMS ((void)); static int child_can_run PARAMS ((void)); extern char **environ; /* Forward declaration */ extern struct target_ops child_ops; #ifndef CHILD_WAIT /* Wait for child to do something. Return pid of child, or -1 in case of error; store status through argument pointer OURSTATUS. */ static int child_wait (pid, ourstatus) int pid; struct target_waitstatus *ourstatus; { int save_errno; int status; do { if (attach_flag) set_sigint_trap(); /* Causes SIGINT to be passed on to the attached process. */ set_sigio_trap (); pid = proc_wait (inferior_pid, &status); save_errno = errno; clear_sigio_trap (); if (attach_flag) clear_sigint_trap(); if (pid == -1) { if (save_errno == EINTR) continue; fprintf_unfiltered (gdb_stderr, "Child process unexpectedly missing: %s.\n", safe_strerror (save_errno)); /* Claim it exited with unknown signal. */ ourstatus->kind = TARGET_WAITKIND_SIGNALLED; ourstatus->value.sig = TARGET_SIGNAL_UNKNOWN; return -1; } } while (pid != inferior_pid); /* Some other child died or stopped */ store_waitstatus (ourstatus, status); return pid; } #endif /* CHILD_WAIT */ /* Attach to process PID, then initialize for debugging it. */ static void child_attach (args, from_tty) char *args; int from_tty; { if (!args) error_no_arg ("process-id to attach"); #ifndef ATTACH_DETACH error ("Can't attach to a process on this machine."); #else { char *exec_file; int pid; pid = atoi (args); if (pid == getpid()) /* Trying to masturbate? */ error ("I refuse to debug myself!"); if (from_tty) { exec_file = (char *) get_exec_file (0); if (exec_file) printf_unfiltered ("Attaching to program `%s', %s\n", exec_file, target_pid_to_str (pid)); else printf_unfiltered ("Attaching to %s\n", target_pid_to_str (pid)); gdb_flush (gdb_stdout); } attach (pid); inferior_pid = pid; push_target (&child_ops); } #endif /* ATTACH_DETACH */ } /* Take a program previously attached to and detaches it. The program resumes execution and will no longer stop on signals, etc. We'd better not have left any breakpoints in the program or it'll die when it hits one. For this to work, it may be necessary for the process to have been previously attached. It *might* work if the program was started via the normal ptrace (PTRACE_TRACEME). */ static void child_detach (args, from_tty) char *args; int from_tty; { #ifdef ATTACH_DETACH { int siggnal = 0; if (from_tty) { char *exec_file = get_exec_file (0); if (exec_file == 0) exec_file = ""; printf_unfiltered ("Detaching from program: %s %s\n", exec_file, target_pid_to_str (inferior_pid)); gdb_flush (gdb_stdout); } if (args) siggnal = atoi (args); detach (siggnal); inferior_pid = 0; unpush_target (&child_ops); } #else error ("This version of Unix does not support detaching a process."); #endif } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void child_prepare_to_store () { #ifdef CHILD_PREPARE_TO_STORE CHILD_PREPARE_TO_STORE (); #endif } /* Print status information about what we're accessing. */ static void child_files_info (ignore) struct target_ops *ignore; { printf_unfiltered ("\tUsing the running image of %s %s.\n", attach_flag? "attached": "child", target_pid_to_str (inferior_pid)); } /* ARGSUSED */ static void child_open (arg, from_tty) char *arg; int from_tty; { error ("Use the \"run\" command to start a Unix child process."); } /* Stub function which causes the inferior that runs it, to be ptrace-able by its parent process. */ static void ptrace_me () { /* "Trace me, Dr. Memory!" */ call_ptrace (0, 0, (PTRACE_ARG3_TYPE) 0, 0); } /* Stub function which causes the GDB that runs it, to start ptrace-ing the child process. */ static void ptrace_him (pid) int pid; { push_target (&child_ops); #ifdef START_INFERIOR_TRAPS_EXPECTED startup_inferior (START_INFERIOR_TRAPS_EXPECTED); #else /* One trap to exec the shell, one to exec the program being debugged. */ startup_inferior (2); #endif } /* Start an inferior Unix child process and sets inferior_pid to its pid. EXEC_FILE is the file to run. ALLARGS is a string containing the arguments to the program. ENV is the environment vector to pass. Errors reported with error(). */ static void child_create_inferior (exec_file, allargs, env) char *exec_file; char *allargs; char **env; { fork_inferior (exec_file, allargs, env, ptrace_me, ptrace_him, NULL); /* We are at the first instruction we care about. */ /* Pedal to the metal... */ proceed ((CORE_ADDR) -1, TARGET_SIGNAL_0, 0); } static void child_mourn_inferior () { unpush_target (&child_ops); proc_remove_foreign (inferior_pid); generic_mourn_inferior (); } static int child_can_run () { return(1); } struct target_ops child_ops = { "child", /* to_shortname */ "Unix child process", /* to_longname */ "Unix child process (started by the \"run\" command).", /* to_doc */ child_open, /* to_open */ 0, /* to_close */ child_attach, /* to_attach */ child_detach, /* to_detach */ child_resume, /* to_resume */ child_wait, /* to_wait */ fetch_inferior_registers, /* to_fetch_registers */ store_inferior_registers, /* to_store_registers */ child_prepare_to_store, /* to_prepare_to_store */ child_xfer_memory, /* to_xfer_memory */ child_files_info, /* to_files_info */ memory_insert_breakpoint, /* to_insert_breakpoint */ memory_remove_breakpoint, /* to_remove_breakpoint */ terminal_init_inferior, /* to_terminal_init */ terminal_inferior, /* to_terminal_inferior */ terminal_ours_for_output, /* to_terminal_ours_for_output */ terminal_ours, /* to_terminal_ours */ child_terminal_info, /* to_terminal_info */ kill_inferior, /* to_kill */ 0, /* to_load */ 0, /* to_lookup_symbol */ child_create_inferior, /* to_create_inferior */ child_mourn_inferior, /* to_mourn_inferior */ child_can_run, /* to_can_run */ 0, /* to_notice_signals */ process_stratum, /* to_stratum */ 0, /* to_next */ 1, /* to_has_all_memory */ 1, /* to_has_memory */ 1, /* to_has_stack */ 1, /* to_has_registers */ 1, /* to_has_execution */ 0, /* sections */ 0, /* sections_end */ OPS_MAGIC /* to_magic */ }; void _initialize_inftarg () { add_target (&child_ops); } gdb-4.13/gdb/irix4-nat.c 666 34562 1752 11347 5441203445 13303 0ustar fnfcygnus/* Native support for the SGI Iris running IRIX version 4, for GDB. Copyright 1988, 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by Alessandro Forin(af@cs.cmu.edu) at CMU and by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin. Implemented for Irix 4.x by Garrett A. Wollman. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include #include #include /* For JB_XXX. */ /* Size of elements in jmpbuf */ #define JB_ELEMENT_SIZE 4 typedef unsigned int greg_t; /* why isn't this defined? */ /* * See the comment in m68k-tdep.c regarding the utility of these functions. */ void supply_gregset (gregsetp) gregset_t *gregsetp; { register int regi; register greg_t *regp = (greg_t *)(gregsetp->gp_regs); /* FIXME: somewhere, there should be a #define for the meaning of this magic number 32; we should use that. */ for(regi = 0; regi < 32; regi++) supply_register (regi, (char *)(regp + regi)); supply_register (PC_REGNUM, (char *)&(gregsetp->gp_pc)); supply_register (HI_REGNUM, (char *)&(gregsetp->gp_mdhi)); supply_register (LO_REGNUM, (char *)&(gregsetp->gp_mdlo)); supply_register (PS_REGNUM, (char *)&(gregsetp->gp_cause)); } void fill_gregset (gregsetp, regno) gregset_t *gregsetp; int regno; { int regi; register greg_t *regp = (greg_t *)(gregsetp->gp_regs); /* same FIXME as above wrt 32*/ for (regi = 0; regi < 32; regi++) if ((regno == -1) || (regno == regi)) *(regp + regi) = *(greg_t *) ®isters[REGISTER_BYTE (regi)]; if ((regno == -1) || (regno == PC_REGNUM)) gregsetp->gp_pc = *(greg_t *) ®isters[REGISTER_BYTE (PC_REGNUM)]; if ((regno == -1) || (regno == PS_REGNUM)) gregsetp->gp_cause = *(greg_t *) ®isters[REGISTER_BYTE (PS_REGNUM)]; if ((regno == -1) || (regno == HI_REGNUM)) gregsetp->gp_mdhi = *(greg_t *) ®isters[REGISTER_BYTE (HI_REGNUM)]; if ((regno == -1) || (regno == LO_REGNUM)) gregsetp->gp_mdlo = *(greg_t *) ®isters[REGISTER_BYTE (LO_REGNUM)]; } /* * Now we do the same thing for floating-point registers. * We don't bother to condition on FP0_REGNUM since any * reasonable MIPS configuration has an R3010 in it. * * Again, see the comments in m68k-tdep.c. */ void supply_fpregset (fpregsetp) fpregset_t *fpregsetp; { register int regi; for (regi = 0; regi < 32; regi++) supply_register (FP0_REGNUM + regi, (char *)&fpregsetp->fp_r.fp_regs[regi]); supply_register (FCRCS_REGNUM, (char *)&fpregsetp->fp_csr); /* FIXME: how can we supply FCRIR_REGNUM? SGI doesn't tell us. */ } void fill_fpregset (fpregsetp, regno) fpregset_t *fpregsetp; int regno; { int regi; char *from, *to; for (regi = FP0_REGNUM; regi < FP0_REGNUM + 32; regi++) { if ((regno == -1) || (regno == regi)) { from = (char *) ®isters[REGISTER_BYTE (regi)]; to = (char *) &(fpregsetp->fp_r.fp_regs[regi - FP0_REGNUM]); memcpy(to, from, REGISTER_RAW_SIZE (regi)); } } if ((regno == -1) || (regno == FCRCS_REGNUM)) fpregsetp->fp_csr = *(unsigned *) ®isters[REGISTER_BYTE(FCRCS_REGNUM)]; } /* Figure out where the longjmp will land. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into PC. This routine returns true on success. */ int get_longjmp_target (pc) CORE_ADDR *pc; { char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT]; CORE_ADDR jb_addr; jb_addr = read_register (A0_REGNUM); if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf, TARGET_PTR_BIT / TARGET_CHAR_BIT)) return 0; *pc = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT); return 1; } void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; /* Unused */ unsigned int reg_addr; /* Unused */ { if (core_reg_size != REGISTER_BYTES) { warning ("wrong size gregset struct in core file"); return; } memcpy ((char *)registers, core_reg_sect, core_reg_size); } gdb-4.13/gdb/irix5-nat.c 666 34562 1752 72563 5621013134 13305 0ustar fnfcygnus/* Native support for the SGI Iris running IRIX version 5, for GDB. Copyright 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Alessandro Forin(af@cs.cmu.edu) at CMU and by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin. Implemented for Irix 4.x by Garrett A. Wollman. Modified for Irix 5.x by Ian Lance Taylor. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "gdbcore.h" #include "target.h" #include #include #include /* For JB_XXX. */ /* Size of elements in jmpbuf */ #define JB_ELEMENT_SIZE 4 /* * See the comment in m68k-tdep.c regarding the utility of these functions. * * These definitions are from the MIPS SVR4 ABI, so they may work for * any MIPS SVR4 target. */ void supply_gregset (gregsetp) gregset_t *gregsetp; { register int regi; register greg_t *regp = &(*gregsetp)[0]; for(regi = 0; regi <= CTX_RA; regi++) supply_register (regi, (char *)(regp + regi)); supply_register (PC_REGNUM, (char *)(regp + CTX_EPC)); supply_register (HI_REGNUM, (char *)(regp + CTX_MDHI)); supply_register (LO_REGNUM, (char *)(regp + CTX_MDLO)); supply_register (CAUSE_REGNUM, (char *)(regp + CTX_CAUSE)); } void fill_gregset (gregsetp, regno) gregset_t *gregsetp; int regno; { int regi; register greg_t *regp = &(*gregsetp)[0]; for (regi = 0; regi <= CTX_RA; regi++) if ((regno == -1) || (regno == regi)) *(regp + regi) = *(greg_t *) ®isters[REGISTER_BYTE (regi)]; if ((regno == -1) || (regno == PC_REGNUM)) *(regp + CTX_EPC) = *(greg_t *) ®isters[REGISTER_BYTE (PC_REGNUM)]; if ((regno == -1) || (regno == CAUSE_REGNUM)) *(regp + CTX_CAUSE) = *(greg_t *) ®isters[REGISTER_BYTE (PS_REGNUM)]; if ((regno == -1) || (regno == HI_REGNUM)) *(regp + CTX_MDHI) = *(greg_t *) ®isters[REGISTER_BYTE (HI_REGNUM)]; if ((regno == -1) || (regno == LO_REGNUM)) *(regp + CTX_MDLO) = *(greg_t *) ®isters[REGISTER_BYTE (LO_REGNUM)]; } /* * Now we do the same thing for floating-point registers. * We don't bother to condition on FP0_REGNUM since any * reasonable MIPS configuration has an R3010 in it. * * Again, see the comments in m68k-tdep.c. */ void supply_fpregset (fpregsetp) fpregset_t *fpregsetp; { register int regi; for (regi = 0; regi < 32; regi++) supply_register (FP0_REGNUM + regi, (char *)&fpregsetp->fp_r.fp_regs[regi]); supply_register (FCRCS_REGNUM, (char *)&fpregsetp->fp_csr); /* FIXME: how can we supply FCRIR_REGNUM? SGI doesn't tell us. */ } void fill_fpregset (fpregsetp, regno) fpregset_t *fpregsetp; int regno; { int regi; char *from, *to; for (regi = FP0_REGNUM; regi < FP0_REGNUM + 32; regi++) { if ((regno == -1) || (regno == regi)) { from = (char *) ®isters[REGISTER_BYTE (regi)]; to = (char *) &(fpregsetp->fp_r.fp_regs[regi - FP0_REGNUM]); memcpy(to, from, REGISTER_RAW_SIZE (regi)); } } if ((regno == -1) || (regno == FCRCS_REGNUM)) fpregsetp->fp_csr = *(unsigned *) ®isters[REGISTER_BYTE(FCRCS_REGNUM)]; } /* Figure out where the longjmp will land. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into PC. This routine returns true on success. */ int get_longjmp_target (pc) CORE_ADDR *pc; { char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT]; CORE_ADDR jb_addr; jb_addr = read_register (A0_REGNUM); if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf, TARGET_PTR_BIT / TARGET_CHAR_BIT)) return 0; *pc = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT); return 1; } void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; /* Unused */ unsigned int reg_addr; /* Unused */ { if (core_reg_size != REGISTER_BYTES) { warning ("wrong size gregset struct in core file"); return; } memcpy ((char *)registers, core_reg_sect, core_reg_size); } /* Irix 5 uses what appears to be a unique form of shared library support. This is a copy of solib.c modified for Irix 5. */ #include #include #include #include #include /* includes and , which causes conflicts with our versions of those files included by tm-mips.h. Prevent from including them with some appropriate defines. */ #define __SYM_H__ #define __SYMCONST_H__ #include #include "symtab.h" #include "bfd.h" #include "symfile.h" #include "objfiles.h" #include "command.h" #include "frame.h" #include "regex.h" #include "inferior.h" #include "language.h" /* We need to set a breakpoint at a point when we know that the mapping of shared libraries is complete. dbx simply breaks at main (or, for FORTRAN, MAIN__), so we do the same. We can not break at the very beginning of main, because the startup code will jump into main after the GP initialization instructions. SOLIB_BKPT_OFFSET is used to skip those instructions. */ #define SOLIB_BKPT_OFFSET 12 static char *bkpt_names[] = { "main", "MAIN__", NULL }; /* The symbol which starts off the list of shared libraries. */ #define DEBUG_BASE "__rld_obj_head" /* How to get the loaded address of a shared library. */ #define LM_ADDR(so) ((so)->lm.o_praw) char shadow_contents[BREAKPOINT_MAX]; /* Stash old bkpt addr contents */ struct so_list { struct so_list *next; /* next structure in linked list */ struct obj_list ll; struct obj lm; /* copy of link map from inferior */ struct obj_list *lladdr; /* addr in inferior lm was read from */ CORE_ADDR lmend; /* upper addr bound of mapped object */ char symbols_loaded; /* flag: symbols read in yet? */ char from_tty; /* flag: print msgs? */ struct objfile *objfile; /* objfile for loaded lib */ struct section_table *sections; struct section_table *sections_end; struct section_table *textsection; bfd *abfd; }; static struct so_list *so_list_head; /* List of known shared objects */ static CORE_ADDR debug_base; /* Base of dynamic linker structures */ static CORE_ADDR breakpoint_addr; /* Address where end bkpt is set */ /* Local function prototypes */ static void sharedlibrary_command PARAMS ((char *, int)); static int enable_break PARAMS ((void)); static int disable_break PARAMS ((void)); static void info_sharedlibrary_command PARAMS ((char *, int)); static int symbol_add_stub PARAMS ((char *)); static struct so_list * find_solib PARAMS ((struct so_list *)); static struct obj_list * first_link_map_member PARAMS ((void)); static CORE_ADDR locate_base PARAMS ((void)); static void solib_map_sections PARAMS ((struct so_list *)); /* LOCAL FUNCTION solib_map_sections -- open bfd and build sections for shared lib SYNOPSIS static void solib_map_sections (struct so_list *so) DESCRIPTION Given a pointer to one of the shared objects in our list of mapped objects, use the recorded name to open a bfd descriptor for the object, build a section table, and then relocate all the section addresses by the base address at which the shared object was mapped. FIXMES In most (all?) cases the shared object file name recorded in the dynamic linkage tables will be a fully qualified pathname. For cases where it isn't, do we really mimic the systems search mechanism correctly in the below code (particularly the tilde expansion stuff?). */ static void solib_map_sections (so) struct so_list *so; { char *filename; char *scratch_pathname; int scratch_chan; struct section_table *p; struct cleanup *old_chain; bfd *abfd; CORE_ADDR offset; filename = tilde_expand (so -> lm.o_path); old_chain = make_cleanup (free, filename); scratch_chan = openp (getenv ("PATH"), 1, filename, O_RDONLY, 0, &scratch_pathname); if (scratch_chan < 0) { scratch_chan = openp (getenv ("LD_LIBRARY_PATH"), 1, filename, O_RDONLY, 0, &scratch_pathname); } if (scratch_chan < 0) { perror_with_name (filename); } /* Leave scratch_pathname allocated. abfd->name will point to it. */ abfd = bfd_fdopenr (scratch_pathname, gnutarget, scratch_chan); if (!abfd) { close (scratch_chan); error ("Could not open `%s' as an executable file: %s", scratch_pathname, bfd_errmsg (bfd_get_error ())); } /* Leave bfd open, core_xfer_memory and "info files" need it. */ so -> abfd = abfd; abfd -> cacheable = true; if (!bfd_check_format (abfd, bfd_object)) { error ("\"%s\": not in executable format: %s.", scratch_pathname, bfd_errmsg (bfd_get_error ())); } if (build_section_table (abfd, &so -> sections, &so -> sections_end)) { error ("Can't find the file sections in `%s': %s", bfd_get_filename (exec_bfd), bfd_errmsg (bfd_get_error ())); } /* Irix 5 shared objects are pre-linked to particular addresses although the dynamic linker may have to relocate them if the address ranges of the libraries used by the main program clash. The offset is the difference between the address where the object is mapped and the binding address of the shared library. */ offset = (CORE_ADDR) LM_ADDR (so) - so -> lm.o_base_address; for (p = so -> sections; p < so -> sections_end; p++) { /* Relocate the section binding addresses as recorded in the shared object's file by the offset to get the address to which the object was actually mapped. */ p -> addr += offset; p -> endaddr += offset; so -> lmend = (CORE_ADDR) max (p -> endaddr, so -> lmend); if (STREQ (p -> the_bfd_section -> name, ".text")) { so -> textsection = p; } } /* Free the file names, close the file now. */ do_cleanups (old_chain); } /* LOCAL FUNCTION locate_base -- locate the base address of dynamic linker structs SYNOPSIS CORE_ADDR locate_base (void) DESCRIPTION For both the SunOS and SVR4 shared library implementations, if the inferior executable has been linked dynamically, there is a single address somewhere in the inferior's data space which is the key to locating all of the dynamic linker's runtime structures. This address is the value of the symbol defined by the macro DEBUG_BASE. The job of this function is to find and return that address, or to return 0 if there is no such address (the executable is statically linked for example). For SunOS, the job is almost trivial, since the dynamic linker and all of it's structures are statically linked to the executable at link time. Thus the symbol for the address we are looking for has already been added to the minimal symbol table for the executable's objfile at the time the symbol file's symbols were read, and all we have to do is look it up there. Note that we explicitly do NOT want to find the copies in the shared library. The SVR4 version is much more complicated because the dynamic linker and it's structures are located in the shared C library, which gets run as the executable's "interpreter" by the kernel. We have to go to a lot more work to discover the address of DEBUG_BASE. Because of this complexity, we cache the value we find and return that value on subsequent invocations. Note there is no copy in the executable symbol tables. Irix 5 is basically like SunOS. Note that we can assume nothing about the process state at the time we need to find this address. We may be stopped on the first instruc- tion of the interpreter (C shared library), the first instruction of the executable itself, or somewhere else entirely (if we attached to the process for example). */ static CORE_ADDR locate_base () { struct minimal_symbol *msymbol; CORE_ADDR address = 0; msymbol = lookup_minimal_symbol (DEBUG_BASE, symfile_objfile); if ((msymbol != NULL) && (SYMBOL_VALUE_ADDRESS (msymbol) != 0)) { address = SYMBOL_VALUE_ADDRESS (msymbol); } return (address); } /* LOCAL FUNCTION first_link_map_member -- locate first member in dynamic linker's map SYNOPSIS static struct link_map *first_link_map_member (void) DESCRIPTION Read in a copy of the first member in the inferior's dynamic link map from the inferior's dynamic linker structures, and return a pointer to the copy in our address space. */ static struct obj_list * first_link_map_member () { struct obj_list *lm; struct obj_list s; read_memory (debug_base, (char *) &lm, sizeof (struct obj_list *)); if (lm == NULL) return NULL; /* The first entry in the list is the object file we are debugging, so skip it. */ read_memory ((CORE_ADDR) lm, (char *) &s, sizeof (struct obj_list)); return s.next; } /* LOCAL FUNCTION find_solib -- step through list of shared objects SYNOPSIS struct so_list *find_solib (struct so_list *so_list_ptr) DESCRIPTION This module contains the routine which finds the names of any loaded "images" in the current process. The argument in must be NULL on the first call, and then the returned value must be passed in on subsequent calls. This provides the capability to "step" down the list of loaded objects. On the last object, a NULL value is returned. */ static struct so_list * find_solib (so_list_ptr) struct so_list *so_list_ptr; /* Last lm or NULL for first one */ { struct so_list *so_list_next = NULL; struct obj_list *lm = NULL; struct so_list *new; if (so_list_ptr == NULL) { /* We are setting up for a new scan through the loaded images. */ if ((so_list_next = so_list_head) == NULL) { /* We have not already read in the dynamic linking structures from the inferior, lookup the address of the base structure. */ debug_base = locate_base (); if (debug_base != 0) { /* Read the base structure in and find the address of the first link map list member. */ lm = first_link_map_member (); } } } else { /* We have been called before, and are in the process of walking the shared library list. Advance to the next shared object. */ if ((lm = so_list_ptr->ll.next) == NULL) { /* We have hit the end of the list, so check to see if any were added, but be quiet if we can't read from the target any more. */ int status = target_read_memory ((CORE_ADDR) so_list_ptr -> lladdr, (char *) &(so_list_ptr -> ll), sizeof (struct obj_list)); if (status == 0) { lm = so_list_ptr->ll.next; } else { lm = NULL; } } so_list_next = so_list_ptr -> next; } if ((so_list_next == NULL) && (lm != NULL)) { int errcode; char *buffer; /* Get next link map structure from inferior image and build a local abbreviated load_map structure */ new = (struct so_list *) xmalloc (sizeof (struct so_list)); memset ((char *) new, 0, sizeof (struct so_list)); new -> lladdr = lm; /* Add the new node as the next node in the list, or as the root node if this is the first one. */ if (so_list_ptr != NULL) { so_list_ptr -> next = new; } else { so_list_head = new; } so_list_next = new; read_memory ((CORE_ADDR) lm, (char *) &(new -> ll), sizeof (struct obj_list)); read_memory ((CORE_ADDR) new->ll.data, (char *) &(new -> lm), sizeof (struct obj)); target_read_string ((CORE_ADDR)new->lm.o_path, &buffer, INT_MAX, &errcode); if (errcode != 0) memory_error (errcode, (CORE_ADDR)new->lm.o_path); new->lm.o_path = buffer; solib_map_sections (new); } return (so_list_next); } /* A small stub to get us past the arg-passing pinhole of catch_errors. */ static int symbol_add_stub (arg) char *arg; { register struct so_list *so = (struct so_list *) arg; /* catch_errs bogon */ so -> objfile = symbol_file_add (so -> lm.o_path, so -> from_tty, (unsigned int) so -> textsection -> addr, 0, 0, 0); return (1); } /* GLOBAL FUNCTION solib_add -- add a shared library file to the symtab and section list SYNOPSIS void solib_add (char *arg_string, int from_tty, struct target_ops *target) DESCRIPTION */ void solib_add (arg_string, from_tty, target) char *arg_string; int from_tty; struct target_ops *target; { register struct so_list *so = NULL; /* link map state variable */ /* Last shared library that we read. */ struct so_list *so_last = NULL; char *re_err; int count; int old; if ((re_err = re_comp (arg_string ? arg_string : ".")) != NULL) { error ("Invalid regexp: %s", re_err); } /* Add the shared library sections to the section table of the specified target, if any. We have to do this before reading the symbol files as symbol_file_add calls reinit_frame_cache and creating a new frame might access memory in the shared library. */ if (target) { /* Count how many new section_table entries there are. */ so = NULL; count = 0; while ((so = find_solib (so)) != NULL) { if (so -> lm.o_path[0]) { count += so -> sections_end - so -> sections; } } if (count) { /* Reallocate the target's section table including the new size. */ if (target -> to_sections) { old = target -> to_sections_end - target -> to_sections; target -> to_sections = (struct section_table *) xrealloc ((char *)target -> to_sections, (sizeof (struct section_table)) * (count + old)); } else { old = 0; target -> to_sections = (struct section_table *) xmalloc ((sizeof (struct section_table)) * count); } target -> to_sections_end = target -> to_sections + (count + old); /* Add these section table entries to the target's table. */ while ((so = find_solib (so)) != NULL) { if (so -> lm.o_path[0]) { count = so -> sections_end - so -> sections; memcpy ((char *) (target -> to_sections + old), so -> sections, (sizeof (struct section_table)) * count); old += count; } } } } /* Now add the symbol files. */ while ((so = find_solib (so)) != NULL) { if (so -> lm.o_path[0] && re_exec (so -> lm.o_path)) { so -> from_tty = from_tty; if (so -> symbols_loaded) { if (from_tty) { printf_unfiltered ("Symbols already loaded for %s\n", so -> lm.o_path); } } else if (catch_errors (symbol_add_stub, (char *) so, "Error while reading shared library symbols:\n", RETURN_MASK_ALL)) { so_last = so; so -> symbols_loaded = 1; } } } } /* LOCAL FUNCTION info_sharedlibrary_command -- code for "info sharedlibrary" SYNOPSIS static void info_sharedlibrary_command () DESCRIPTION Walk through the shared library list and print information about each attached library. */ static void info_sharedlibrary_command (ignore, from_tty) char *ignore; int from_tty; { register struct so_list *so = NULL; /* link map state variable */ int header_done = 0; if (exec_bfd == NULL) { printf_unfiltered ("No exec file.\n"); return; } while ((so = find_solib (so)) != NULL) { if (so -> lm.o_path[0]) { if (!header_done) { printf_unfiltered("%-12s%-12s%-12s%s\n", "From", "To", "Syms Read", "Shared Object Library"); header_done++; } printf_unfiltered ("%-12s", local_hex_string_custom ((unsigned long) LM_ADDR (so), "08l")); printf_unfiltered ("%-12s", local_hex_string_custom ((unsigned long) so -> lmend, "08l")); printf_unfiltered ("%-12s", so -> symbols_loaded ? "Yes" : "No"); printf_unfiltered ("%s\n", so -> lm.o_path); } } if (so_list_head == NULL) { printf_unfiltered ("No shared libraries loaded at this time.\n"); } } /* GLOBAL FUNCTION solib_address -- check to see if an address is in a shared lib SYNOPSIS int solib_address (CORE_ADDR address) DESCRIPTION Provides a hook for other gdb routines to discover whether or not a particular address is within the mapped address space of a shared library. Any address between the base mapping address and the first address beyond the end of the last mapping, is considered to be within the shared library address space, for our purposes. For example, this routine is called at one point to disable breakpoints which are in shared libraries that are not currently mapped in. */ int solib_address (address) CORE_ADDR address; { register struct so_list *so = 0; /* link map state variable */ while ((so = find_solib (so)) != NULL) { if (so -> lm.o_path[0]) { if ((address >= (CORE_ADDR) LM_ADDR (so)) && (address < (CORE_ADDR) so -> lmend)) { return (1); } } } return (0); } /* Called by free_all_symtabs */ void clear_solib() { struct so_list *next; char *bfd_filename; while (so_list_head) { if (so_list_head -> sections) { free ((PTR)so_list_head -> sections); } if (so_list_head -> abfd) { bfd_filename = bfd_get_filename (so_list_head -> abfd); bfd_close (so_list_head -> abfd); } else /* This happens for the executable on SVR4. */ bfd_filename = NULL; next = so_list_head -> next; if (bfd_filename) free ((PTR)bfd_filename); free (so_list_head->lm.o_path); free ((PTR)so_list_head); so_list_head = next; } debug_base = 0; } /* LOCAL FUNCTION disable_break -- remove the "mapping changed" breakpoint SYNOPSIS static int disable_break () DESCRIPTION Removes the breakpoint that gets hit when the dynamic linker completes a mapping change. */ static int disable_break () { int status = 1; /* Note that breakpoint address and original contents are in our address space, so we just need to write the original contents back. */ if (memory_remove_breakpoint (breakpoint_addr, shadow_contents) != 0) { status = 0; } /* For the SVR4 version, we always know the breakpoint address. For the SunOS version we don't know it until the above code is executed. Grumble if we are stopped anywhere besides the breakpoint address. */ if (stop_pc != breakpoint_addr) { warning ("stopped at unknown breakpoint while handling shared libraries"); } return (status); } /* LOCAL FUNCTION enable_break -- arrange for dynamic linker to hit breakpoint SYNOPSIS int enable_break (void) DESCRIPTION Both the SunOS and the SVR4 dynamic linkers have, as part of their debugger interface, support for arranging for the inferior to hit a breakpoint after mapping in the shared libraries. This function enables that breakpoint. For SunOS, there is a special flag location (in_debugger) which we set to 1. When the dynamic linker sees this flag set, it will set a breakpoint at a location known only to itself, after saving the original contents of that place and the breakpoint address itself, in it's own internal structures. When we resume the inferior, it will eventually take a SIGTRAP when it runs into the breakpoint. We handle this (in a different place) by restoring the contents of the breakpointed location (which is only known after it stops), chasing around to locate the shared libraries that have been loaded, then resuming. For SVR4, the debugger interface structure contains a member (r_brk) which is statically initialized at the time the shared library is built, to the offset of a function (_r_debug_state) which is guaran- teed to be called once before mapping in a library, and again when the mapping is complete. At the time we are examining this member, it contains only the unrelocated offset of the function, so we have to do our own relocation. Later, when the dynamic linker actually runs, it relocates r_brk to be the actual address of _r_debug_state(). The debugger interface structure also contains an enumeration which is set to either RT_ADD or RT_DELETE prior to changing the mapping, depending upon whether or not the library is being mapped or unmapped, and then set to RT_CONSISTENT after the library is mapped/unmapped. Irix 5, on the other hand, has no such features. Instead, we set a breakpoint at main. */ static int enable_break () { int success = 0; struct minimal_symbol *msymbol; char **bkpt_namep; CORE_ADDR bkpt_addr; /* Scan through the list of symbols, trying to look up the symbol and set a breakpoint there. Terminate loop when we/if we succeed. */ breakpoint_addr = 0; for (bkpt_namep = bkpt_names; *bkpt_namep != NULL; bkpt_namep++) { msymbol = lookup_minimal_symbol (*bkpt_namep, symfile_objfile); if ((msymbol != NULL) && (SYMBOL_VALUE_ADDRESS (msymbol) != 0)) { bkpt_addr = SYMBOL_VALUE_ADDRESS (msymbol); #ifdef SOLIB_BKPT_OFFSET /* We only want to skip if bkpt_addr is currently pointing at a GP setting instruction. */ { char buf[4]; if (target_read_memory (bkpt_addr, buf, 4) == 0) { unsigned long insn; insn = extract_unsigned_integer (buf, 4); if ((insn & 0xffff0000) == 0x3c1c0000) /* lui $gp,n */ bkpt_addr += SOLIB_BKPT_OFFSET; } } #endif if (target_insert_breakpoint (bkpt_addr, shadow_contents) == 0) { breakpoint_addr = bkpt_addr; success = 1; break; } } } return (success); } /* GLOBAL FUNCTION solib_create_inferior_hook -- shared library startup support SYNOPSIS void solib_create_inferior_hook() DESCRIPTION When gdb starts up the inferior, it nurses it along (through the shell) until it is ready to execute it's first instruction. At this point, this function gets called via expansion of the macro SOLIB_CREATE_INFERIOR_HOOK. For SunOS executables, this first instruction is typically the one at "_start", or a similar text label, regardless of whether the executable is statically or dynamically linked. The runtime startup code takes care of dynamically linking in any shared libraries, once gdb allows the inferior to continue. For SVR4 executables, this first instruction is either the first instruction in the dynamic linker (for dynamically linked executables) or the instruction at "start" for statically linked executables. For dynamically linked executables, the system first exec's /lib/libc.so.N, which contains the dynamic linker, and starts it running. The dynamic linker maps in any needed shared libraries, maps in the actual user executable, and then jumps to "start" in the user executable. For both SunOS shared libraries, and SVR4 shared libraries, we can arrange to cooperate with the dynamic linker to discover the names of shared libraries that are dynamically linked, and the base addresses to which they are linked. This function is responsible for discovering those names and addresses, and saving sufficient information about them to allow their symbols to be read at a later time. FIXME Between enable_break() and disable_break(), this code does not properly handle hitting breakpoints which the user might have set in the startup code or in the dynamic linker itself. Proper handling will probably have to wait until the implementation is changed to use the "breakpoint handler function" method. Also, what if child has exit()ed? Must exit loop somehow. */ void solib_create_inferior_hook() { if (!enable_break ()) { warning ("shared library handler failed to enable breakpoint"); return; } /* Now run the target. It will eventually hit the breakpoint, at which point all of the libraries will have been mapped in and we can go groveling around in the dynamic linker structures to find out what we need to know about them. */ clear_proceed_status (); stop_soon_quietly = 1; stop_signal = 0; do { target_resume (-1, 0, stop_signal); wait_for_inferior (); } while (stop_signal != SIGTRAP); stop_soon_quietly = 0; /* We are now either at the "mapping complete" breakpoint (or somewhere else, a condition we aren't prepared to deal with anyway), so adjust the PC as necessary after a breakpoint, disable the breakpoint, and add any shared libraries that were mapped in. */ if (DECR_PC_AFTER_BREAK) { stop_pc -= DECR_PC_AFTER_BREAK; write_register (PC_REGNUM, stop_pc); } if (!disable_break ()) { warning ("shared library handler failed to disable breakpoint"); } solib_add ((char *) 0, 0, (struct target_ops *) 0); } /* LOCAL FUNCTION sharedlibrary_command -- handle command to explicitly add library SYNOPSIS static void sharedlibrary_command (char *args, int from_tty) DESCRIPTION */ static void sharedlibrary_command (args, from_tty) char *args; int from_tty; { dont_repeat (); solib_add (args, from_tty, (struct target_ops *) 0); } void _initialize_solib() { add_com ("sharedlibrary", class_files, sharedlibrary_command, "Load shared object library symbols for files matching REGEXP."); add_info ("sharedlibrary", info_sharedlibrary_command, "Status of loaded shared object libraries."); } gdb-4.13/gdb/isi-xdep.c 666 34562 1752 1511 5407123373 13161 0ustar fnfcygnus/* Copyright (C) 1993 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include int rloc[] = { R0, R1, R2, R3, R4, R5, R6, R7, R8, R9, R10, R11, R12, R13, FP, SP, PS, PC }; gdb-4.13/gdb/kdb-start.c 666 34562 1752 2053 5314042413 13324 0ustar fnfcygnus/* Main loop for the standalone kernel debugger, for GDB, the GNU Debugger. Copyright 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" static char *args[] = {"kdb", "kdb-symbols", 0}; static char *environment[] = {0}; char **environ; start () { INIT_STACK (kdb_stack_beg, kdb_stack_end); environ = environment; main (2, args, environment); } gdb-4.13/gdb/language.c 666 34562 1752 104050 5574226645 13277 0ustar fnfcygnus/* Multiple source language support for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. Contributed by the Department of Computer Science at the State University of New York at Buffalo. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file contains functions that return things that are specific to languages. Each function should examine current_language if necessary, and return the appropriate result. */ /* FIXME: Most of these would be better organized as macros which return data out of a "language-specific" struct pointer that is set whenever the working language changes. That would be a lot faster. */ #include "defs.h" #include #include #include "symtab.h" #include "gdbtypes.h" #include "value.h" #include "gdbcmd.h" #include "frame.h" #include "expression.h" #include "language.h" #include "target.h" #include "parser-defs.h" static void show_language_command PARAMS ((char *, int)); static void set_language_command PARAMS ((char *, int)); static void show_type_command PARAMS ((char *, int)); static void set_type_command PARAMS ((char *, int)); static void show_range_command PARAMS ((char *, int)); static void set_range_command PARAMS ((char *, int)); static void set_range_str PARAMS ((void)); static void set_type_str PARAMS ((void)); static void set_lang_str PARAMS ((void)); static void unk_lang_error PARAMS ((char *)); static int unk_lang_parser PARAMS ((void)); static void show_check PARAMS ((char *, int)); static void set_check PARAMS ((char *, int)); static void set_type_range PARAMS ((void)); /* Forward declaration */ extern const struct language_defn unknown_language_defn; extern char *warning_pre_print; /* The current (default at startup) state of type and range checking. (If the modes are set to "auto", though, these are changed based on the default language at startup, and then again based on the language of the first source file. */ enum range_mode range_mode = range_mode_auto; enum range_check range_check = range_check_off; enum type_mode type_mode = type_mode_auto; enum type_check type_check = type_check_off; /* The current language and language_mode (see language.h) */ const struct language_defn *current_language = &unknown_language_defn; enum language_mode language_mode = language_mode_auto; /* The language that the user expects to be typing in (the language of main(), or the last language we notified them about, or C). */ const struct language_defn *expected_language; /* The list of supported languages. The list itself is malloc'd. */ static const struct language_defn **languages; static unsigned languages_size; static unsigned languages_allocsize; #define DEFAULT_ALLOCSIZE 4 /* The "set language/type/range" commands all put stuff in these buffers. This is to make them work as set/show commands. The user's string is copied here, then the set_* commands look at them and update them to something that looks nice when it is printed out. */ static char *language; static char *type; static char *range; /* Warning issued when current_language and the language of the current frame do not match. */ char lang_frame_mismatch_warn[] = "Warning: the current language does not match this frame."; /* This page contains the functions corresponding to GDB commands and their helpers. */ /* Show command. Display a warning if the language set does not match the frame. */ static void show_language_command (ignore, from_tty) char *ignore; int from_tty; { enum language flang; /* The language of the current frame */ flang = get_frame_language(); if (flang != language_unknown && language_mode == language_mode_manual && current_language->la_language != flang) printf_filtered("%s\n",lang_frame_mismatch_warn); } /* Set command. Change the current working language. */ static void set_language_command (ignore, from_tty) char *ignore; int from_tty; { int i; enum language flang; char *err_lang; /* FIXME -- do this from the list, with HELP. */ if (!language || !language[0]) { printf_unfiltered("The currently understood settings are:\n\n"); printf_unfiltered ("local or auto Automatic setting based on source file\n"); printf_unfiltered ("c Use the C language\n"); printf_unfiltered ("c++ Use the C++ language\n"); printf_unfiltered ("chill Use the Chill language\n"); printf_unfiltered ("modula-2 Use the Modula-2 language\n"); /* Restore the silly string. */ set_language(current_language->la_language); return; } /* Search the list of languages for a match. */ for (i = 0; i < languages_size; i++) { if (STREQ (languages[i]->la_name, language)) { /* Found it! Go into manual mode, and use this language. */ if (languages[i]->la_language == language_auto) { /* Enter auto mode. Set to the current frame's language, if known. */ language_mode = language_mode_auto; flang = get_frame_language(); if (flang!=language_unknown) set_language(flang); expected_language = current_language; return; } else { /* Enter manual mode. Set the specified language. */ language_mode = language_mode_manual; current_language = languages[i]; set_type_range (); set_lang_str(); expected_language = current_language; return; } } } /* Reset the language (esp. the global string "language") to the correct values. */ err_lang=savestring(language,strlen(language)); make_cleanup (free, err_lang); /* Free it after error */ set_language(current_language->la_language); error ("Unknown language `%s'.",err_lang); } /* Show command. Display a warning if the type setting does not match the current language. */ static void show_type_command(ignore, from_tty) char *ignore; int from_tty; { if (type_check != current_language->la_type_check) printf_unfiltered( "Warning: the current type check setting does not match the language.\n"); } /* Set command. Change the setting for type checking. */ static void set_type_command(ignore, from_tty) char *ignore; int from_tty; { if (STREQ(type,"on")) { type_check = type_check_on; type_mode = type_mode_manual; } else if (STREQ(type,"warn")) { type_check = type_check_warn; type_mode = type_mode_manual; } else if (STREQ(type,"off")) { type_check = type_check_off; type_mode = type_mode_manual; } else if (STREQ(type,"auto")) { type_mode = type_mode_auto; set_type_range(); /* Avoid hitting the set_type_str call below. We did it in set_type_range. */ return; } set_type_str(); show_type_command((char *)NULL, from_tty); } /* Show command. Display a warning if the range setting does not match the current language. */ static void show_range_command(ignore, from_tty) char *ignore; int from_tty; { if (range_check != current_language->la_range_check) printf_unfiltered( "Warning: the current range check setting does not match the language.\n"); } /* Set command. Change the setting for range checking. */ static void set_range_command(ignore, from_tty) char *ignore; int from_tty; { if (STREQ(range,"on")) { range_check = range_check_on; range_mode = range_mode_manual; } else if (STREQ(range,"warn")) { range_check = range_check_warn; range_mode = range_mode_manual; } else if (STREQ(range,"off")) { range_check = range_check_off; range_mode = range_mode_manual; } else if (STREQ(range,"auto")) { range_mode = range_mode_auto; set_type_range(); /* Avoid hitting the set_range_str call below. We did it in set_type_range. */ return; } set_range_str(); show_range_command((char *)0, from_tty); } /* Set the status of range and type checking based on the current modes and the current language. If SHOW is non-zero, then print out the current language, type and range checking status. */ static void set_type_range() { if (range_mode == range_mode_auto) range_check = current_language->la_range_check; if (type_mode == type_mode_auto) type_check = current_language->la_type_check; set_type_str(); set_range_str(); } /* Set current language to (enum language) LANG. */ void set_language(lang) enum language lang; { int i; for (i = 0; i < languages_size; i++) { if (languages[i]->la_language == lang) { current_language = languages[i]; set_type_range (); set_lang_str(); break; } } } /* This page contains functions that update the global vars language, type and range. */ static void set_lang_str() { char *prefix = ""; free (language); if (language_mode == language_mode_auto) prefix = "auto; currently "; language = concat(prefix, current_language->la_name, NULL); } static void set_type_str() { char *tmp, *prefix = ""; free (type); if (type_mode==type_mode_auto) prefix = "auto; currently "; switch(type_check) { case type_check_on: tmp = "on"; break; case type_check_off: tmp = "off"; break; case type_check_warn: tmp = "warn"; break; default: error ("Unrecognized type check setting."); } type = concat(prefix,tmp,NULL); } static void set_range_str() { char *tmp, *pref = ""; free (range); if (range_mode==range_mode_auto) pref = "auto; currently "; switch(range_check) { case range_check_on: tmp = "on"; break; case range_check_off: tmp = "off"; break; case range_check_warn: tmp = "warn"; break; default: error ("Unrecognized range check setting."); } range = concat(pref,tmp,NULL); } /* Print out the current language settings: language, range and type checking. If QUIETLY, print only what has changed. */ void language_info (quietly) int quietly; { if (quietly && expected_language == current_language) return; expected_language = current_language; printf_unfiltered("Current language: %s\n",language); show_language_command((char *)0, 1); if (!quietly) { printf_unfiltered("Type checking: %s\n",type); show_type_command((char *)0, 1); printf_unfiltered("Range checking: %s\n",range); show_range_command((char *)0, 1); } } /* Return the result of a binary operation. */ #if 0 /* Currently unused */ struct type * binop_result_type (v1, v2) value_ptr v1, v2; { int l1,l2,size,uns; l1 = TYPE_LENGTH(VALUE_TYPE(v1)); l2 = TYPE_LENGTH(VALUE_TYPE(v2)); switch(current_language->la_language) { case language_c: case language_cplus: if (TYPE_CODE(VALUE_TYPE(v1))==TYPE_CODE_FLT) return TYPE_CODE(VALUE_TYPE(v2)) == TYPE_CODE_FLT && l2 > l1 ? VALUE_TYPE(v2) : VALUE_TYPE(v1); else if (TYPE_CODE(VALUE_TYPE(v2))==TYPE_CODE_FLT) return TYPE_CODE(VALUE_TYPE(v1)) == TYPE_CODE_FLT && l1 > l2 ? VALUE_TYPE(v1) : VALUE_TYPE(v2); else if (TYPE_UNSIGNED(VALUE_TYPE(v1)) && l1 > l2) return VALUE_TYPE(v1); else if (TYPE_UNSIGNED(VALUE_TYPE(v2)) && l2 > l1) return VALUE_TYPE(v2); else /* Both are signed. Result is the longer type */ return l1 > l2 ? VALUE_TYPE(v1) : VALUE_TYPE(v2); break; case language_m2: /* If we are doing type-checking, l1 should equal l2, so this is not needed. */ return l1 > l2 ? VALUE_TYPE(v1) : VALUE_TYPE(v2); break; case language_chill: error ("Missing Chill support in function binop_result_check.");/*FIXME*/ } abort(); return (struct type *)0; /* For lint */ } #endif /* 0 */ /* This page contains functions that return format strings for printf for printing out numbers in different formats */ /* Returns the appropriate printf format for hexadecimal numbers. */ char * local_hex_format_custom(pre) char *pre; { static char form[50]; strcpy (form, local_hex_format_prefix ()); strcat (form, "%"); strcat (form, pre); strcat (form, local_hex_format_specifier ()); strcat (form, local_hex_format_suffix ()); return form; } /* Converts a number to hexadecimal and stores it in a static string. Returns a pointer to this string. */ char * local_hex_string (num) unsigned long num; { static char res[50]; sprintf (res, local_hex_format(), num); return res; } /* Converts a number to custom hexadecimal and stores it in a static string. Returns a pointer to this string. */ char * local_hex_string_custom(num,pre) unsigned long num; char *pre; { static char res[50]; sprintf (res, local_hex_format_custom(pre), num); return res; } /* Returns the appropriate printf format for octal numbers. */ char * local_octal_format_custom(pre) char *pre; { static char form[50]; strcpy (form, local_octal_format_prefix ()); strcat (form, "%"); strcat (form, pre); strcat (form, local_octal_format_specifier ()); strcat (form, local_octal_format_suffix ()); return form; } /* Returns the appropriate printf format for decimal numbers. */ char * local_decimal_format_custom(pre) char *pre; { static char form[50]; strcpy (form, local_decimal_format_prefix ()); strcat (form, "%"); strcat (form, pre); strcat (form, local_decimal_format_specifier ()); strcat (form, local_decimal_format_suffix ()); return form; } /* This page contains functions that are used in type/range checking. They all return zero if the type/range check fails. It is hoped that these will make extending GDB to parse different languages a little easier. These are primarily used in eval.c when evaluating expressions and making sure that their types are correct. Instead of having a mess of conjucted/disjuncted expressions in an "if", the ideas of type can be wrapped up in the following functions. Note that some of them are not currently dependent upon which language is currently being parsed. For example, floats are the same in C and Modula-2 (ie. the only floating point type has TYPE_CODE of TYPE_CODE_FLT), while booleans are different. */ /* Returns non-zero if its argument is a simple type. This is the same for both Modula-2 and for C. In the C case, TYPE_CODE_CHAR will never occur, and thus will never cause the failure of the test. */ int simple_type(type) struct type *type; { switch (TYPE_CODE (type)) { case TYPE_CODE_INT: case TYPE_CODE_CHAR: case TYPE_CODE_ENUM: case TYPE_CODE_FLT: case TYPE_CODE_RANGE: case TYPE_CODE_BOOL: return 1; default: return 0; } } /* Returns non-zero if its argument is of an ordered type. An ordered type is one in which the elements can be tested for the properties of "greater than", "less than", etc, or for which the operations "increment" or "decrement" make sense. */ int ordered_type (type) struct type *type; { switch (TYPE_CODE (type)) { case TYPE_CODE_INT: case TYPE_CODE_CHAR: case TYPE_CODE_ENUM: case TYPE_CODE_FLT: case TYPE_CODE_RANGE: return 1; default: return 0; } } /* Returns non-zero if the two types are the same */ int same_type (arg1, arg2) struct type *arg1, *arg2; { if (structured_type(arg1) ? !structured_type(arg2) : structured_type(arg2)) /* One is structured and one isn't */ return 0; else if (structured_type(arg1) && structured_type(arg2)) return arg1 == arg2; else if (numeric_type(arg1) && numeric_type(arg2)) return (TYPE_CODE(arg2) == TYPE_CODE(arg1)) && (TYPE_UNSIGNED(arg1) == TYPE_UNSIGNED(arg2)) ? 1 : 0; else return arg1==arg2; } /* Returns non-zero if the type is integral */ int integral_type (type) struct type *type; { switch(current_language->la_language) { case language_c: case language_cplus: return (TYPE_CODE(type) != TYPE_CODE_INT) && (TYPE_CODE(type) != TYPE_CODE_ENUM) ? 0 : 1; case language_m2: return TYPE_CODE(type) != TYPE_CODE_INT ? 0 : 1; case language_chill: error ("Missing Chill support in function integral_type."); /*FIXME*/ default: error ("Language not supported."); } } /* Returns non-zero if the value is numeric */ int numeric_type (type) struct type *type; { switch (TYPE_CODE (type)) { case TYPE_CODE_INT: case TYPE_CODE_FLT: return 1; default: return 0; } } /* Returns non-zero if the value is a character type */ int character_type (type) struct type *type; { switch(current_language->la_language) { case language_chill: case language_m2: return TYPE_CODE(type) != TYPE_CODE_CHAR ? 0 : 1; case language_c: case language_cplus: return (TYPE_CODE(type) == TYPE_CODE_INT) && TYPE_LENGTH(type) == sizeof(char) ? 1 : 0; default: return (0); } } /* Returns non-zero if the value is a string type */ int string_type (type) struct type *type; { switch(current_language->la_language) { case language_chill: case language_m2: return TYPE_CODE(type) != TYPE_CODE_STRING ? 0 : 1; case language_c: case language_cplus: /* C does not have distinct string type. */ return (0); default: return (0); } } /* Returns non-zero if the value is a boolean type */ int boolean_type (type) struct type *type; { if (TYPE_CODE (type) == TYPE_CODE_BOOL) return 1; switch(current_language->la_language) { case language_c: case language_cplus: /* Might be more cleanly handled by having a TYPE_CODE_INT_NOT_BOOL for CHILL and such languages, or a TYPE_CODE_INT_OR_BOOL for C. */ if (TYPE_CODE (type) == TYPE_CODE_INT) return 1; default: break; } return 0; } /* Returns non-zero if the value is a floating-point type */ int float_type (type) struct type *type; { return TYPE_CODE(type) == TYPE_CODE_FLT; } /* Returns non-zero if the value is a pointer type */ int pointer_type(type) struct type *type; { return TYPE_CODE(type) == TYPE_CODE_PTR || TYPE_CODE(type) == TYPE_CODE_REF; } /* Returns non-zero if the value is a structured type */ int structured_type(type) struct type *type; { switch(current_language->la_language) { case language_c: case language_cplus: return (TYPE_CODE(type) == TYPE_CODE_STRUCT) || (TYPE_CODE(type) == TYPE_CODE_UNION) || (TYPE_CODE(type) == TYPE_CODE_ARRAY); case language_m2: return (TYPE_CODE(type) == TYPE_CODE_STRUCT) || (TYPE_CODE(type) == TYPE_CODE_SET) || (TYPE_CODE(type) == TYPE_CODE_ARRAY); case language_chill: error ("Missing Chill support in function structured_type."); /*FIXME*/ default: return (0); } } /* This page contains functions that return info about (struct value) values used in GDB. */ /* Returns non-zero if the value VAL represents a true value. */ int value_true (val) value_ptr val; { /* It is possible that we should have some sort of error if a non-boolean value is used in this context. Possibly dependent on some kind of "boolean-checking" option like range checking. But it should probably not depend on the language except insofar as is necessary to identify a "boolean" value (i.e. in C using a float, pointer, etc., as a boolean should be an error, probably). */ return !value_logical_not (val); } /* Returns non-zero if the operator OP is defined on the values ARG1 and ARG2. */ #if 0 /* Currently unused */ void binop_type_check(arg1,arg2,op) value_ptr arg1,arg2; int op; { struct type *t1, *t2; /* If we're not checking types, always return success. */ if (!STRICT_TYPE) return; t1=VALUE_TYPE(arg1); if (arg2 != NULL) t2=VALUE_TYPE(arg2); else t2=NULL; switch(op) { case BINOP_ADD: case BINOP_SUB: if ((numeric_type(t1) && pointer_type(t2)) || (pointer_type(t1) && numeric_type(t2))) { warning ("combining pointer and integer.\n"); break; } case BINOP_MUL: case BINOP_LSH: case BINOP_RSH: if (!numeric_type(t1) || !numeric_type(t2)) type_op_error ("Arguments to %s must be numbers.",op); else if (!same_type(t1,t2)) type_op_error ("Arguments to %s must be of the same type.",op); break; case BINOP_LOGICAL_AND: case BINOP_LOGICAL_OR: if (!boolean_type(t1) || !boolean_type(t2)) type_op_error ("Arguments to %s must be of boolean type.",op); break; case BINOP_EQUAL: if ((pointer_type(t1) && !(pointer_type(t2) || integral_type(t2))) || (pointer_type(t2) && !(pointer_type(t1) || integral_type(t1)))) type_op_error ("A pointer can only be compared to an integer or pointer.",op); else if ((pointer_type(t1) && integral_type(t2)) || (integral_type(t1) && pointer_type(t2))) { warning ("combining integer and pointer.\n"); break; } else if (!simple_type(t1) || !simple_type(t2)) type_op_error ("Arguments to %s must be of simple type.",op); else if (!same_type(t1,t2)) type_op_error ("Arguments to %s must be of the same type.",op); break; case BINOP_REM: case BINOP_MOD: if (!integral_type(t1) || !integral_type(t2)) type_op_error ("Arguments to %s must be of integral type.",op); break; case BINOP_LESS: case BINOP_GTR: case BINOP_LEQ: case BINOP_GEQ: if (!ordered_type(t1) || !ordered_type(t2)) type_op_error ("Arguments to %s must be of ordered type.",op); else if (!same_type(t1,t2)) type_op_error ("Arguments to %s must be of the same type.",op); break; case BINOP_ASSIGN: if (pointer_type(t1) && !integral_type(t2)) type_op_error ("A pointer can only be assigned an integer.",op); else if (pointer_type(t1) && integral_type(t2)) { warning ("combining integer and pointer."); break; } else if (!simple_type(t1) || !simple_type(t2)) type_op_error ("Arguments to %s must be of simple type.",op); else if (!same_type(t1,t2)) type_op_error ("Arguments to %s must be of the same type.",op); break; case BINOP_CONCAT: /* FIXME: Needs to handle bitstrings as well. */ if (!(string_type(t1) || character_type(t1) || integral_type(t1)) || !(string_type(t2) || character_type(t2) || integral_type(t2))) type_op_error ("Arguments to %s must be strings or characters.", op); break; /* Unary checks -- arg2 is null */ case UNOP_LOGICAL_NOT: if (!boolean_type(t1)) type_op_error ("Argument to %s must be of boolean type.",op); break; case UNOP_PLUS: case UNOP_NEG: if (!numeric_type(t1)) type_op_error ("Argument to %s must be of numeric type.",op); break; case UNOP_IND: if (integral_type(t1)) { warning ("combining pointer and integer.\n"); break; } else if (!pointer_type(t1)) type_op_error ("Argument to %s must be a pointer.",op); break; case UNOP_PREINCREMENT: case UNOP_POSTINCREMENT: case UNOP_PREDECREMENT: case UNOP_POSTDECREMENT: if (!ordered_type(t1)) type_op_error ("Argument to %s must be of an ordered type.",op); break; default: /* Ok. The following operators have different meanings in different languages. */ switch(current_language->la_language) { #ifdef _LANG_c case language_c: case language_cplus: switch(op) { case BINOP_DIV: if (!numeric_type(t1) || !numeric_type(t2)) type_op_error ("Arguments to %s must be numbers.",op); break; } break; #endif #ifdef _LANG_m2 case language_m2: switch(op) { case BINOP_DIV: if (!float_type(t1) || !float_type(t2)) type_op_error ("Arguments to %s must be floating point numbers.",op); break; case BINOP_INTDIV: if (!integral_type(t1) || !integral_type(t2)) type_op_error ("Arguments to %s must be of integral type.",op); break; } #endif #ifdef _LANG_chill case language_chill: error ("Missing Chill support in function binop_type_check.");/*FIXME*/ #endif } } } #endif /* 0 */ /* This page contains functions for the printing out of error messages that occur during type- and range- checking. */ /* Prints the format string FMT with the operator as a string corresponding to the opcode OP. If FATAL is non-zero, then this is an error and error () is called. Otherwise, it is a warning and printf() is called. */ void op_error (fmt,op,fatal) char *fmt; enum exp_opcode op; int fatal; { if (fatal) error (fmt,op_string(op)); else { warning (fmt,op_string(op)); } } /* These are called when a language fails a type- or range-check. The first argument should be a printf()-style format string, and the rest of the arguments should be its arguments. If [type|range]_check is [type|range]_check_on, then return_to_top_level() is called in the style of error (). Otherwise, the message is prefixed by the value of warning_pre_print and we do not return to the top level. */ void type_error (va_alist) va_dcl { va_list args; char *string; if (type_check == type_check_warn) fprintf_filtered (gdb_stderr, warning_pre_print); else error_begin (); va_start (args); string = va_arg (args, char *); vfprintf_filtered (gdb_stderr, string, args); fprintf_filtered (gdb_stderr, "\n"); va_end (args); if (type_check == type_check_on) return_to_top_level (RETURN_ERROR); } void range_error (va_alist) va_dcl { va_list args; char *string; if (range_check == range_check_warn) fprintf_filtered (gdb_stderr, warning_pre_print); else error_begin (); va_start (args); string = va_arg (args, char *); vfprintf_filtered (gdb_stderr, string, args); fprintf_filtered (gdb_stderr, "\n"); va_end (args); if (range_check == range_check_on) return_to_top_level (RETURN_ERROR); } /* This page contains miscellaneous functions */ /* Return the language struct for a given language enum. */ const struct language_defn * language_def(lang) enum language lang; { int i; for (i = 0; i < languages_size; i++) { if (languages[i]->la_language == lang) { return languages[i]; } } return NULL; } /* Return the language as a string */ char * language_str(lang) enum language lang; { int i; for (i = 0; i < languages_size; i++) { if (languages[i]->la_language == lang) { return languages[i]->la_name; } } return "Unknown"; } static void set_check (ignore, from_tty) char *ignore; int from_tty; { printf_unfiltered( "\"set check\" must be followed by the name of a check subcommand.\n"); help_list(setchecklist, "set check ", -1, gdb_stdout); } static void show_check (ignore, from_tty) char *ignore; int from_tty; { cmd_show_list(showchecklist, from_tty, ""); } /* Add a language to the set of known languages. */ void add_language (lang) const struct language_defn *lang; { if (lang->la_magic != LANG_MAGIC) { fprintf_unfiltered(gdb_stderr, "Magic number of %s language struct wrong\n", lang->la_name); abort(); } if (!languages) { languages_allocsize = DEFAULT_ALLOCSIZE; languages = (const struct language_defn **) xmalloc (languages_allocsize * sizeof (*languages)); } if (languages_size >= languages_allocsize) { languages_allocsize *= 2; languages = (const struct language_defn **) xrealloc ((char *) languages, languages_allocsize * sizeof (*languages)); } languages[languages_size++] = lang; } /* Define the language that is no language. */ static int unk_lang_parser () { return 1; } static void unk_lang_error (msg) char *msg; { error ("Attempted to parse an expression with unknown language"); } static void unk_lang_printchar (c, stream) register int c; GDB_FILE *stream; { error ("internal error - unimplemented function unk_lang_printchar called."); } static void unk_lang_printstr (stream, string, length, force_ellipses) GDB_FILE *stream; char *string; unsigned int length; int force_ellipses; { error ("internal error - unimplemented function unk_lang_printstr called."); } static struct type * unk_lang_create_fundamental_type (objfile, typeid) struct objfile *objfile; int typeid; { error ("internal error - unimplemented function unk_lang_create_fundamental_type called."); } void unk_lang_print_type (type, varstring, stream, show, level) struct type *type; char *varstring; GDB_FILE *stream; int show; int level; { error ("internal error - unimplemented function unk_lang_print_type called."); } int unk_lang_val_print (type, valaddr, address, stream, format, deref_ref, recurse, pretty) struct type *type; char *valaddr; CORE_ADDR address; GDB_FILE *stream; int format; int deref_ref; int recurse; enum val_prettyprint pretty; { error ("internal error - unimplemented function unk_lang_val_print called."); } int unk_lang_value_print (val, stream, format, pretty) value_ptr val; GDB_FILE *stream; int format; enum val_prettyprint pretty; { error ("internal error - unimplemented function unk_lang_value_print called."); } static struct type ** const (unknown_builtin_types[]) = { 0 }; static const struct op_print unk_op_print_tab[] = { {NULL, OP_NULL, PREC_NULL, 0} }; const struct language_defn unknown_language_defn = { "unknown", language_unknown, &unknown_builtin_types[0], range_check_off, type_check_off, unk_lang_parser, unk_lang_error, unk_lang_printchar, /* Print character constant */ unk_lang_printstr, unk_lang_create_fundamental_type, unk_lang_print_type, /* Print a type using appropriate syntax */ unk_lang_val_print, /* Print a value using appropriate syntax */ unk_lang_value_print, /* Print a top-level value */ &builtin_type_error, /* longest floating point type */ {"", "", "", ""}, /* Binary format info */ {"0%lo", "0", "o", ""}, /* Octal format info */ {"%ld", "", "d", ""}, /* Decimal format info */ {"0x%lx", "0x", "x", ""}, /* Hex format info */ unk_op_print_tab, /* expression operators for printing */ LANG_MAGIC }; /* These two structs define fake entries for the "local" and "auto" options. */ const struct language_defn auto_language_defn = { "auto", language_auto, &unknown_builtin_types[0], range_check_off, type_check_off, unk_lang_parser, unk_lang_error, unk_lang_printchar, /* Print character constant */ unk_lang_printstr, unk_lang_create_fundamental_type, unk_lang_print_type, /* Print a type using appropriate syntax */ unk_lang_val_print, /* Print a value using appropriate syntax */ unk_lang_value_print, /* Print a top-level value */ &builtin_type_error, /* longest floating point type */ {"", "", "", ""}, /* Binary format info */ {"0%lo", "0", "o", ""}, /* Octal format info */ {"%ld", "", "d", ""}, /* Decimal format info */ {"0x%lx", "0x", "x", ""}, /* Hex format info */ unk_op_print_tab, /* expression operators for printing */ LANG_MAGIC }; const struct language_defn local_language_defn = { "local", language_auto, &unknown_builtin_types[0], range_check_off, type_check_off, unk_lang_parser, unk_lang_error, unk_lang_printchar, /* Print character constant */ unk_lang_printstr, unk_lang_create_fundamental_type, unk_lang_print_type, /* Print a type using appropriate syntax */ unk_lang_val_print, /* Print a value using appropriate syntax */ unk_lang_value_print, /* Print a top-level value */ &builtin_type_error, /* longest floating point type */ {"", "", "", ""}, /* Binary format info */ {"0%lo", "0", "o", ""}, /* Octal format info */ {"%ld", "", "d", ""}, /* Decimal format info */ {"0x%lx", "0x", "x", ""}, /* Hex format info */ unk_op_print_tab, /* expression operators for printing */ LANG_MAGIC }; /* Initialize the language routines */ void _initialize_language() { struct cmd_list_element *set, *show; /* GDB commands for language specific stuff */ set = add_set_cmd ("language", class_support, var_string_noescape, (char *)&language, "Set the current source language.", &setlist); show = add_show_from_set (set, &showlist); set->function.cfunc = set_language_command; show->function.cfunc = show_language_command; add_prefix_cmd ("check", no_class, set_check, "Set the status of the type/range checker", &setchecklist, "set check ", 0, &setlist); add_alias_cmd ("c", "check", no_class, 1, &setlist); add_alias_cmd ("ch", "check", no_class, 1, &setlist); add_prefix_cmd ("check", no_class, show_check, "Show the status of the type/range checker", &showchecklist, "show check ", 0, &showlist); add_alias_cmd ("c", "check", no_class, 1, &showlist); add_alias_cmd ("ch", "check", no_class, 1, &showlist); set = add_set_cmd ("type", class_support, var_string_noescape, (char *)&type, "Set type checking. (on/warn/off/auto)", &setchecklist); show = add_show_from_set (set, &showchecklist); set->function.cfunc = set_type_command; show->function.cfunc = show_type_command; set = add_set_cmd ("range", class_support, var_string_noescape, (char *)&range, "Set range checking. (on/warn/off/auto)", &setchecklist); show = add_show_from_set (set, &showchecklist); set->function.cfunc = set_range_command; show->function.cfunc = show_range_command; add_language (&unknown_language_defn); add_language (&local_language_defn); add_language (&auto_language_defn); language = savestring ("auto",strlen("auto")); range = savestring ("auto",strlen("auto")); type = savestring ("auto",strlen("auto")); /* Have the above take effect */ set_language_command (language, 0); set_type_command (NULL, 0); set_range_command (NULL, 0); } gdb-4.13/gdb/language.h 666 34562 1752 32370 5574226643 13267 0ustar fnfcygnus/* Source-language-related definitions for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. Contributed by the Department of Computer Science at the State University of New York at Buffalo. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (LANGUAGE_H) #define LANGUAGE_H 1 #ifdef __STDC__ /* Forward decls for prototypes */ struct value; struct objfile; /* enum exp_opcode; ANSI's `wisdom' didn't include forward enum decls. */ #endif /* This used to be included to configure GDB for one or more specific languages. Now it is shortcutted to configure for all of them. FIXME. */ /* #include "lang_def.h" */ #define _LANG_c #define _LANG_m2 #define _LANG_chill /* range_mode == range_mode_auto: range_check set automatically to default of language. range_mode_manual: range_check set manually by user. */ extern enum range_mode {range_mode_auto, range_mode_manual} range_mode; /* range_check == range_check_on: Ranges are checked in GDB expressions, producing errors. range_check_warn: Ranges are checked, producing warnings. range_check_off: Ranges are not checked in GDB expressions. */ extern enum range_check {range_check_off, range_check_warn, range_check_on} range_check; /* type_mode == type_mode_auto: type_check set automatically to default of language type_mode_manual: type_check set manually by user. */ extern enum type_mode {type_mode_auto, type_mode_manual} type_mode; /* type_check == type_check_on: Types are checked in GDB expressions, producing errors. type_check_warn: Types are checked, producing warnings. type_check_off: Types are not checked in GDB expressions. */ extern enum type_check {type_check_off, type_check_warn, type_check_on} type_check; /* Information for doing language dependent formatting of printed values. */ struct language_format_info { /* The format that can be passed directly to standard C printf functions to generate a completely formatted value in the format appropriate for the language. */ char *la_format; /* The prefix to be used when directly printing a value, or constructing a standard C printf format. This generally is everything up to the conversion specification (the part introduced by the '%' character and terminated by the conversion specifier character). */ char *la_format_prefix; /* The conversion specifier. This is generally everything after the field width and precision, typically only a single character such as 'o' for octal format or 'x' for hexadecimal format. */ char *la_format_specifier; /* The suffix to be used when directly printing a value, or constructing a standard C printf format. This generally is everything after the conversion specification (the part introduced by the '%' character and terminated by the conversion specifier character). */ char *la_format_suffix; /* Suffix for custom format string */ }; /* Structure tying together assorted information about a language. */ struct language_defn { /* Name of the language */ char *la_name; /* its symtab language-enum (defs.h) */ enum language la_language; /* Its builtin types. This is a vector ended by a NULL pointer. These types can be specified by name in parsing types in expressions, regardless of whether the program being debugged actually defines such a type. */ struct type ** const *la_builtin_type_vector; /* Default range checking */ enum range_check la_range_check; /* Default type checking */ enum type_check la_type_check; /* Parser function. */ int (*la_parser) PARAMS((void)); /* Parser error function */ void (*la_error) PARAMS ((char *)); void (*la_printchar) PARAMS ((int, GDB_FILE *)); void (*la_printstr) PARAMS ((GDB_FILE *, char *, unsigned int, int)); struct type *(*la_fund_type) PARAMS ((struct objfile *, int)); /* Print a type using syntax appropriate for this language. */ void (*la_print_type) PARAMS ((struct type *, char *, GDB_FILE *, int, int)); /* Print a value using syntax appropriate for this language. */ int (*la_val_print) PARAMS ((struct type *, char *, CORE_ADDR, GDB_FILE *, int, int, int, enum val_prettyprint)); /* Print a top-level value using syntax appropriate for this language. */ int (*la_value_print) PARAMS ((struct value *, GDB_FILE *, int, enum val_prettyprint)); /* Longest floating point type */ struct type **la_longest_float; /* Base 2 (binary) formats. */ struct language_format_info la_binary_format; /* Base 8 (octal) formats. */ struct language_format_info la_octal_format; /* Base 10 (decimal) formats */ struct language_format_info la_decimal_format; /* Base 16 (hexadecimal) formats */ struct language_format_info la_hex_format; /* Table for printing expressions */ const struct op_print *la_op_print_tab; /* Add fields above this point, so the magic number is always last. */ /* Magic number for compat checking */ long la_magic; }; #define LANG_MAGIC 910823L /* Pointer to the language_defn for our current language. This pointer always points to *some* valid struct; it can be used without checking it for validity. The current language affects expression parsing and evaluation (FIXME: it might be cleaner to make the evaluation-related stuff separate exp_opcodes for each different set of semantics. We should at least think this through more clearly with respect to what happens if the language is changed between parsing and evaluation) and printing of things like types and arrays. It does *not* affect symbol-reading-- each source file in a symbol-file has its own language and we should keep track of that regardless of the language when symbols are read. If we want some manual setting for the language of symbol files (e.g. detecting when ".c" files are C++), it should be a seprate setting from the current_language. */ extern const struct language_defn *current_language; /* Pointer to the language_defn expected by the user, e.g. the language of main(), or the language we last mentioned in a message, or C. */ extern const struct language_defn *expected_language; /* language_mode == language_mode_auto: current_language automatically set upon selection of scope (e.g. stack frame) language_mode_manual: current_language set only by user. */ extern enum language_mode {language_mode_auto, language_mode_manual} language_mode; /* These macros define the behaviour of the expression evaluator. */ /* Should we strictly type check expressions? */ #define STRICT_TYPE (type_check != type_check_off) /* Should we range check values against the domain of their type? */ #define RANGE_CHECK (range_check != range_check_off) /* "cast" really means conversion */ /* FIXME -- should be a setting in language_defn */ #define CAST_IS_CONVERSION (current_language->la_language == language_c || \ current_language->la_language == language_cplus) extern void language_info PARAMS ((int)); extern void set_language PARAMS ((enum language)); /* This page contains functions that return things that are specific to languages. Each of these functions is based on the current setting of working_lang, which the user sets with the "set language" command. */ /* Returns some built-in types */ #define longest_float() (*current_language->la_longest_float) #define create_fundamental_type(objfile,typeid) \ (current_language->la_fund_type(objfile, typeid)) #define LA_PRINT_TYPE(type,varstring,stream,show,level) \ (current_language->la_print_type(type,varstring,stream,show,level)) #define LA_VAL_PRINT(type,valaddr,addr,stream,fmt,deref,recurse,pretty) \ (current_language->la_val_print(type,valaddr,addr,stream,fmt,deref, \ recurse,pretty)) #define LA_VALUE_PRINT(val,stream,fmt,pretty) \ (current_language->la_value_print(val,stream,fmt,pretty)) /* Return a format string for printf that will print a number in one of the local (language-specific) formats. Result is static and is overwritten by the next call. Takes printf options like "08" or "l" (to produce e.g. %08x or %lx). */ #define local_binary_format() \ (current_language->la_binary_format.la_format) #define local_binary_format_prefix() \ (current_language->la_binary_format.la_format_prefix) #define local_binary_format_specifier() \ (current_language->la_binary_format.la_format_specifier) #define local_binary_format_suffix() \ (current_language->la_binary_format.la_format_suffix) #define local_octal_format() \ (current_language->la_octal_format.la_format) #define local_octal_format_prefix() \ (current_language->la_octal_format.la_format_prefix) #define local_octal_format_specifier() \ (current_language->la_octal_format.la_format_specifier) #define local_octal_format_suffix() \ (current_language->la_octal_format.la_format_suffix) #define local_decimal_format() \ (current_language->la_decimal_format.la_format) #define local_decimal_format_prefix() \ (current_language->la_decimal_format.la_format_prefix) #define local_decimal_format_specifier() \ (current_language->la_decimal_format.la_format_specifier) #define local_decimal_format_suffix() \ (current_language->la_decimal_format.la_format_suffix) #define local_hex_format() \ (current_language->la_hex_format.la_format) #define local_hex_format_prefix() \ (current_language->la_hex_format.la_format_prefix) #define local_hex_format_specifier() \ (current_language->la_hex_format.la_format_specifier) #define local_hex_format_suffix() \ (current_language->la_hex_format.la_format_suffix) #define LA_PRINT_CHAR(ch, stream) \ (current_language->la_printchar(ch, stream)) #define LA_PRINT_STRING(stream, string, length, force_ellipses) \ (current_language->la_printstr(stream, string, length, force_ellipses)) /* Test a character to decide whether it can be printed in literal form or needs to be printed in another representation. For example, in C the literal form of the character with octal value 141 is 'a' and the "other representation" is '\141'. The "other representation" is program language dependent. */ #define PRINT_LITERAL_FORM(c) \ ((c)>=0x20 && ((c)<0x7F || (c)>=0xA0) && (!sevenbit_strings || (c)<0x80)) /* Return a format string for printf that will print a number in one of the local (language-specific) formats. Result is static and is overwritten by the next call. Takes printf options like "08" or "l" (to produce e.g. %08x or %lx). */ extern char * local_decimal_format_custom PARAMS ((char *)); /* language.c */ extern char * local_octal_format_custom PARAMS ((char *)); /* language.c */ extern char * local_hex_format_custom PARAMS ((char *)); /* language.c */ /* Return a string that contains a number formatted in one of the local (language-specific) formats. Result is static and is overwritten by the next call. Takes printf options like "08" or "l". */ extern char * local_hex_string PARAMS ((unsigned long)); /* language.c */ extern char * local_hex_string_custom PARAMS ((unsigned long, char *)); /* language.c */ /* Type predicates */ extern int simple_type PARAMS ((struct type *)); extern int ordered_type PARAMS ((struct type *)); extern int same_type PARAMS ((struct type *, struct type *)); extern int integral_type PARAMS ((struct type *)); extern int numeric_type PARAMS ((struct type *)); extern int character_type PARAMS ((struct type *)); extern int boolean_type PARAMS ((struct type *)); extern int float_type PARAMS ((struct type *)); extern int pointer_type PARAMS ((struct type *)); extern int structured_type PARAMS ((struct type *)); /* Checks Binary and Unary operations for semantic type correctness */ /* FIXME: Does not appear to be used */ #define unop_type_check(v,o) binop_type_check((v),NULL,(o)) extern void binop_type_check PARAMS ((struct value *, struct value *, int)); /* Error messages */ extern void op_error PARAMS ((char *fmt, enum exp_opcode, int)); #define type_op_error(f,o) \ op_error((f),(o),type_check==type_check_on ? 1 : 0) #define range_op_error(f,o) \ op_error((f),(o),range_check==range_check_on ? 1 : 0) extern void type_error (); void range_error (); /* Data: Does this value represent "truth" to the current language? */ extern int value_true PARAMS ((struct value *)); /* Misc: The string representing a particular enum language. */ extern const struct language_defn * language_def PARAMS ((enum language)); extern char * language_str PARAMS ((enum language)); /* Add a language to the set known by GDB (at initialization time). */ extern void add_language PARAMS ((const struct language_defn *)); extern enum language get_frame_language PARAMS ((void)); /* In stack.c */ #endif /* defined (LANGUAGE_H) */ gdb-4.13/gdb/lynx-nat.c 666 34562 1752 43536 5604132024 13236 0ustar fnfcygnus/* Native-dependent code for LynxOS. Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "target.h" #include #include #include static unsigned long registers_addr PARAMS ((int pid)); #define X(ENTRY)(offsetof(struct econtext, ENTRY)) #ifdef I386 /* Mappings from tm-i386v.h */ static int regmap[] = { X(eax), X(ecx), X(edx), X(ebx), X(esp), /* sp */ X(ebp), /* fp */ X(esi), X(edi), X(eip), /* pc */ X(flags), /* ps */ X(cs), X(ss), X(ds), X(es), X(ecode), /* Lynx doesn't give us either fs or gs, so */ X(fault), /* we just substitute these two in the hopes that they are useful. */ }; #endif /* I386 */ #ifdef M68K /* Mappings from tm-m68k.h */ static int regmap[] = { X(regs[0]), /* d0 */ X(regs[1]), /* d1 */ X(regs[2]), /* d2 */ X(regs[3]), /* d3 */ X(regs[4]), /* d4 */ X(regs[5]), /* d5 */ X(regs[6]), /* d6 */ X(regs[7]), /* d7 */ X(regs[8]), /* a0 */ X(regs[9]), /* a1 */ X(regs[10]), /* a2 */ X(regs[11]), /* a3 */ X(regs[12]), /* a4 */ X(regs[13]), /* a5 */ X(regs[14]), /* fp */ offsetof (st_t, usp) - offsetof (st_t, ec), /* sp */ X(status), /* ps */ X(pc), X(fregs[0*3]), /* fp0 */ X(fregs[1*3]), /* fp1 */ X(fregs[2*3]), /* fp2 */ X(fregs[3*3]), /* fp3 */ X(fregs[4*3]), /* fp4 */ X(fregs[5*3]), /* fp5 */ X(fregs[6*3]), /* fp6 */ X(fregs[7*3]), /* fp7 */ X(fcregs[0]), /* fpcontrol */ X(fcregs[1]), /* fpstatus */ X(fcregs[2]), /* fpiaddr */ X(ssw), /* fpcode */ X(fault), /* fpflags */ }; #endif /* M68K */ #ifdef SPARC /* Mappings from tm-sparc.h */ #define FX(ENTRY)(offsetof(struct fcontext, ENTRY)) static int regmap[] = { -1, /* g0 */ X(g1), X(g2), X(g3), X(g4), -1, /* g5->g7 aren't saved by Lynx */ -1, -1, X(o[0]), X(o[1]), X(o[2]), X(o[3]), X(o[4]), X(o[5]), X(o[6]), /* sp */ X(o[7]), /* ra */ -1,-1,-1,-1,-1,-1,-1,-1, /* l0 -> l7 */ -1,-1,-1,-1,-1,-1,-1,-1, /* i0 -> i7 */ FX(f.fregs[0]), /* f0 */ FX(f.fregs[1]), FX(f.fregs[2]), FX(f.fregs[3]), FX(f.fregs[4]), FX(f.fregs[5]), FX(f.fregs[6]), FX(f.fregs[7]), FX(f.fregs[8]), FX(f.fregs[9]), FX(f.fregs[10]), FX(f.fregs[11]), FX(f.fregs[12]), FX(f.fregs[13]), FX(f.fregs[14]), FX(f.fregs[15]), FX(f.fregs[16]), FX(f.fregs[17]), FX(f.fregs[18]), FX(f.fregs[19]), FX(f.fregs[20]), FX(f.fregs[21]), FX(f.fregs[22]), FX(f.fregs[23]), FX(f.fregs[24]), FX(f.fregs[25]), FX(f.fregs[26]), FX(f.fregs[27]), FX(f.fregs[28]), FX(f.fregs[29]), FX(f.fregs[30]), FX(f.fregs[31]), X(y), X(psr), X(wim), X(tbr), X(pc), X(npc), FX(fsr), /* fpsr */ -1, /* cpsr */ }; #endif /* SPARC */ #ifdef rs6000 static int regmap[] = { X(iregs[0]), /* r0 */ X(iregs[1]), X(iregs[2]), X(iregs[3]), X(iregs[4]), X(iregs[5]), X(iregs[6]), X(iregs[7]), X(iregs[8]), X(iregs[9]), X(iregs[10]), X(iregs[11]), X(iregs[12]), X(iregs[13]), X(iregs[14]), X(iregs[15]), X(iregs[16]), X(iregs[17]), X(iregs[18]), X(iregs[19]), X(iregs[20]), X(iregs[21]), X(iregs[22]), X(iregs[23]), X(iregs[24]), X(iregs[25]), X(iregs[26]), X(iregs[27]), X(iregs[28]), X(iregs[29]), X(iregs[30]), X(iregs[31]), X(fregs[0]), /* f0 */ X(fregs[1]), X(fregs[2]), X(fregs[3]), X(fregs[4]), X(fregs[5]), X(fregs[6]), X(fregs[7]), X(fregs[8]), X(fregs[9]), X(fregs[10]), X(fregs[11]), X(fregs[12]), X(fregs[13]), X(fregs[14]), X(fregs[15]), X(fregs[16]), X(fregs[17]), X(fregs[18]), X(fregs[19]), X(fregs[20]), X(fregs[21]), X(fregs[22]), X(fregs[23]), X(fregs[24]), X(fregs[25]), X(fregs[26]), X(fregs[27]), X(fregs[28]), X(fregs[29]), X(fregs[30]), X(fregs[31]), X(srr0), /* IAR (PC) */ X(srr1), /* MSR (PS) */ X(cr), /* CR */ X(lr), /* LR */ X(ctr), /* CTR */ X(xer), /* XER */ X(mq) /* MQ */ }; #endif /* rs6000 */ #ifdef SPARC /* This routine handles some oddball cases for Sparc registers and LynxOS. In partucular, it causes refs to G0, g5->7, and all fp regs to return zero. It also handles knows where to find the I & L regs on the stack. */ void fetch_inferior_registers (regno) int regno; { int whatregs = 0; #define WHATREGS_FLOAT 1 #define WHATREGS_GEN 2 #define WHATREGS_STACK 4 if (regno == -1) whatregs = WHATREGS_FLOAT | WHATREGS_GEN | WHATREGS_STACK; else if (regno >= L0_REGNUM && regno <= I7_REGNUM) whatregs = WHATREGS_STACK; else if (regno >= FP0_REGNUM && regno < FP0_REGNUM + 32) whatregs = WHATREGS_FLOAT; else whatregs = WHATREGS_GEN; if (whatregs & WHATREGS_GEN) { struct econtext ec; /* general regs */ char buf[MAX_REGISTER_RAW_SIZE]; int retval; int i; errno = 0; retval = ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &ec, 0); if (errno) perror_with_name ("ptrace(PTRACE_GETREGS)"); memset (buf, 0, REGISTER_RAW_SIZE (G0_REGNUM)); supply_register (G0_REGNUM, buf); supply_register (TBR_REGNUM, (char *)&ec.tbr); memcpy (®isters[REGISTER_BYTE (G1_REGNUM)], &ec.g1, 4 * REGISTER_RAW_SIZE (G1_REGNUM)); for (i = G1_REGNUM; i <= G1_REGNUM + 3; i++) register_valid[i] = 1; supply_register (PS_REGNUM, (char *)&ec.psr); supply_register (Y_REGNUM, (char *)&ec.y); supply_register (PC_REGNUM, (char *)&ec.pc); supply_register (NPC_REGNUM, (char *)&ec.npc); supply_register (WIM_REGNUM, (char *)&ec.wim); memcpy (®isters[REGISTER_BYTE (O0_REGNUM)], ec.o, 8 * REGISTER_RAW_SIZE (O0_REGNUM)); for (i = O0_REGNUM; i <= O0_REGNUM + 7; i++) register_valid[i] = 1; } if (whatregs & WHATREGS_STACK) { CORE_ADDR sp; int i; sp = read_register (SP_REGNUM); target_xfer_memory (sp + FRAME_SAVED_I0, ®isters[REGISTER_BYTE(I0_REGNUM)], 8 * REGISTER_RAW_SIZE (I0_REGNUM), 0); for (i = I0_REGNUM; i <= I7_REGNUM; i++) register_valid[i] = 1; target_xfer_memory (sp + FRAME_SAVED_L0, ®isters[REGISTER_BYTE(L0_REGNUM)], 8 * REGISTER_RAW_SIZE (L0_REGNUM), 0); for (i = L0_REGNUM; i <= L0_REGNUM + 7; i++) register_valid[i] = 1; } if (whatregs & WHATREGS_FLOAT) { struct fcontext fc; /* fp regs */ int retval; int i; errno = 0; retval = ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &fc, 0); if (errno) perror_with_name ("ptrace(PTRACE_GETFPREGS)"); memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], fc.f.fregs, 32 * REGISTER_RAW_SIZE (FP0_REGNUM)); for (i = FP0_REGNUM; i <= FP0_REGNUM + 31; i++) register_valid[i] = 1; supply_register (FPS_REGNUM, (char *)&fc.fsr); } } /* This routine handles storing of the I & L regs for the Sparc. The trick here is that they actually live on the stack. The really tricky part is that when changing the stack pointer, the I & L regs must be written to where the new SP points, otherwise the regs will be incorrect when the process is started up again. We assume that the I & L regs are valid at this point. */ void store_inferior_registers (regno) int regno; { int whatregs = 0; if (regno == -1) whatregs = WHATREGS_FLOAT | WHATREGS_GEN | WHATREGS_STACK; else if (regno >= L0_REGNUM && regno <= I7_REGNUM) whatregs = WHATREGS_STACK; else if (regno >= FP0_REGNUM && regno < FP0_REGNUM + 32) whatregs = WHATREGS_FLOAT; else if (regno == SP_REGNUM) whatregs = WHATREGS_STACK | WHATREGS_GEN; else whatregs = WHATREGS_GEN; if (whatregs & WHATREGS_GEN) { struct econtext ec; /* general regs */ int retval; ec.tbr = read_register (TBR_REGNUM); memcpy (&ec.g1, ®isters[REGISTER_BYTE (G1_REGNUM)], 4 * REGISTER_RAW_SIZE (G1_REGNUM)); ec.psr = read_register (PS_REGNUM); ec.y = read_register (Y_REGNUM); ec.pc = read_register (PC_REGNUM); ec.npc = read_register (NPC_REGNUM); ec.wim = read_register (WIM_REGNUM); memcpy (ec.o, ®isters[REGISTER_BYTE (O0_REGNUM)], 8 * REGISTER_RAW_SIZE (O0_REGNUM)); errno = 0; retval = ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &ec, 0); if (errno) perror_with_name ("ptrace(PTRACE_SETREGS)"); } if (whatregs & WHATREGS_STACK) { int regoffset; CORE_ADDR sp; sp = read_register (SP_REGNUM); if (regno == -1 || regno == SP_REGNUM) { if (!register_valid[L0_REGNUM+5]) abort(); target_xfer_memory (sp + FRAME_SAVED_I0, ®isters[REGISTER_BYTE (I0_REGNUM)], 8 * REGISTER_RAW_SIZE (I0_REGNUM), 1); target_xfer_memory (sp + FRAME_SAVED_L0, ®isters[REGISTER_BYTE (L0_REGNUM)], 8 * REGISTER_RAW_SIZE (L0_REGNUM), 1); } else if (regno >= L0_REGNUM && regno <= I7_REGNUM) { if (!register_valid[regno]) abort(); if (regno >= L0_REGNUM && regno <= L0_REGNUM + 7) regoffset = REGISTER_BYTE (regno) - REGISTER_BYTE (L0_REGNUM) + FRAME_SAVED_L0; else regoffset = REGISTER_BYTE (regno) - REGISTER_BYTE (I0_REGNUM) + FRAME_SAVED_I0; target_xfer_memory (sp + regoffset, ®isters[REGISTER_BYTE (regno)], REGISTER_RAW_SIZE (regno), 1); } } if (whatregs & WHATREGS_FLOAT) { struct fcontext fc; /* fp regs */ int retval; /* We read fcontext first so that we can get good values for fq_t... */ errno = 0; retval = ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &fc, 0); if (errno) perror_with_name ("ptrace(PTRACE_GETFPREGS)"); memcpy (fc.f.fregs, ®isters[REGISTER_BYTE (FP0_REGNUM)], 32 * REGISTER_RAW_SIZE (FP0_REGNUM)); fc.fsr = read_register (FPS_REGNUM); errno = 0; retval = ptrace (PTRACE_SETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &fc, 0); if (errno) perror_with_name ("ptrace(PTRACE_SETFPREGS)"); } } #endif /* SPARC */ #if defined (I386) || defined (M68K) || defined (rs6000) /* Return the offset relative to the start of the per-thread data to the saved context block. */ static unsigned long registers_addr(pid) int pid; { CORE_ADDR stblock; int ecpoff = offsetof(st_t, ecp); CORE_ADDR ecp; errno = 0; stblock = (CORE_ADDR) ptrace (PTRACE_THREADUSER, pid, (PTRACE_ARG3_TYPE)0, 0); if (errno) perror_with_name ("ptrace(PTRACE_THREADUSER)"); ecp = (CORE_ADDR) ptrace (PTRACE_PEEKTHREAD, pid, (PTRACE_ARG3_TYPE)ecpoff, 0); if (errno) perror_with_name ("ptrace(PTRACE_PEEKTHREAD)"); return ecp - stblock; } /* Fetch one or more registers from the inferior. REGNO == -1 to get them all. We actually fetch more than requested, when convenient, marking them as valid so we won't fetch them again. */ void fetch_inferior_registers (regno) int regno; { int reglo, reghi; int i; unsigned long ecp; if (regno == -1) { reglo = 0; reghi = NUM_REGS - 1; } else reglo = reghi = regno; ecp = registers_addr (inferior_pid); for (regno = reglo; regno <= reghi; regno++) { char buf[MAX_REGISTER_RAW_SIZE]; int ptrace_fun = PTRACE_PEEKTHREAD; #ifdef M68K ptrace_fun = regno == SP_REGNUM ? PTRACE_PEEKUSP : PTRACE_PEEKTHREAD; #endif for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) { unsigned int reg; errno = 0; reg = ptrace (ptrace_fun, inferior_pid, (PTRACE_ARG3_TYPE) (ecp + regmap[regno] + i), 0); if (errno) perror_with_name ("ptrace(PTRACE_PEEKUSP)"); *(int *)&buf[i] = reg; } supply_register (regno, buf); } } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ /* Registers we shouldn't try to store. */ #if !defined (CANNOT_STORE_REGISTER) #define CANNOT_STORE_REGISTER(regno) 0 #endif void store_inferior_registers (regno) int regno; { int reglo, reghi; int i; unsigned long ecp; if (regno == -1) { reglo = 0; reghi = NUM_REGS - 1; } else reglo = reghi = regno; ecp = registers_addr (inferior_pid); for (regno = reglo; regno <= reghi; regno++) { int ptrace_fun = PTRACE_POKEUSER; if (CANNOT_STORE_REGISTER (regno)) continue; #ifdef M68K ptrace_fun = regno == SP_REGNUM ? PTRACE_POKEUSP : PTRACE_POKEUSER; #endif for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) { unsigned int reg; reg = *(unsigned int *)®isters[REGISTER_BYTE (regno) + i]; errno = 0; ptrace (ptrace_fun, inferior_pid, (PTRACE_ARG3_TYPE) (ecp + regmap[regno] + i), reg); if (errno) perror_with_name ("ptrace(PTRACE_POKEUSP)"); } } } #endif /* defined (I386) || defined (M68K) || defined (rs6000) */ /* Wait for child to do something. Return pid of child, or -1 in case of error; store status through argument pointer OURSTATUS. */ int child_wait (pid, ourstatus) int pid; struct target_waitstatus *ourstatus; { int save_errno; int thread; union wait status; while (1) { int sig; if (attach_flag) set_sigint_trap(); /* Causes SIGINT to be passed on to the attached process. */ pid = wait (&status); #ifdef SPARC /* Swap halves of status so that the rest of GDB can understand it */ status = (status << 16) | ((unsigned)status >> 16); #endif save_errno = errno; if (attach_flag) clear_sigint_trap(); if (pid == -1) { if (save_errno == EINTR) continue; fprintf_unfiltered (gdb_stderr, "Child process unexpectedly missing: %s.\n", safe_strerror (save_errno)); /* Claim it exited with unknown signal. */ ourstatus->kind = TARGET_WAITKIND_SIGNALLED; ourstatus->value.sig = TARGET_SIGNAL_UNKNOWN; return -1; } if (pid != PIDGET (inferior_pid)) /* Some other process?!? */ continue; thread = status.w_tid; /* Get thread id from status */ /* Initial thread value can only be acquired via wait, so we have to resort to this hack. */ if (TIDGET (inferior_pid) == 0) { inferior_pid = BUILDPID (inferior_pid, thread); add_thread (inferior_pid); } pid = BUILDPID (pid, thread); if (WIFSTOPPED(status) && WSTOPSIG(status) == SIGTRAP && !in_thread_list (pid)) { int realsig; realsig = ptrace (PTRACE_GETTRACESIG, pid, 0); if (realsig == SIGNEWTHREAD) { /* Simply ignore new thread notification, as we can't do anything useful with such threads. All ptrace calls at this point just fail for no apparent reason. The thread will eventually get a real signal when it becomes real. */ child_resume (pid, 0, TARGET_SIGNAL_0); continue; } } store_waitstatus (ourstatus, status.w_status); return pid; } } /* Resume execution of the inferior process. If STEP is nonzero, single-step it. If SIGNAL is nonzero, give it that signal. */ void child_resume (pid, step, signal) int pid; int step; enum target_signal signal; { int func; errno = 0; if (pid == -1) { /* Resume all threads. */ pid = inferior_pid; } func = step ? PTRACE_SINGLESTEP_ONE : PTRACE_CONT; /* An address of (PTRACE_ARG3_TYPE)1 tells ptrace to continue from where it was. (If GDB wanted it to start some other way, we have already written a new PC value to the child.) If this system does not support PT_STEP, a higher level function will have called single_step() to transmute the step request into a continue request (by setting breakpoints on all possible successor instructions), so we don't have to worry about that here. */ ptrace (func, pid, (PTRACE_ARG3_TYPE) 1, target_signal_to_host (signal)); if (errno) perror_with_name ("ptrace"); } /* Convert a Lynx process ID to a string. Returns the string in a static buffer. */ char * lynx_pid_to_str (pid) int pid; { static char buf[40]; sprintf (buf, "process %d thread %d", PIDGET (pid), TIDGET (pid)); return buf; } /* Extract the register values out of the core file and store them where `read_register' will find them. CORE_REG_SECT points to the register values themselves, read into memory. CORE_REG_SIZE is the size of that area. WHICH says which set of registers we are handling (0 = int, 2 = float on machines where they are discontiguous). REG_ADDR is the offset from u.u_ar0 to the register values relative to core_reg_sect. This is used with old-fashioned core files to locate the registers in a large upage-plus-stack ".reg" section. Original upage address X is at location core_reg_sect+x+reg_addr. */ void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned reg_addr; { struct st_entry s; unsigned int regno; for (regno = 0; regno < NUM_REGS; regno++) supply_register (regno, core_reg_sect + offsetof (st_t, ec) + regmap[regno]); #ifdef SPARC /* Fetching this register causes all of the I & L regs to be read from the stack and validated. */ fetch_inferior_registers (I0_REGNUM); #endif } gdb-4.13/gdb/m2-exp.y 666 34562 1752 64706 5564320255 12636 0ustar fnfcygnus/* YACC grammar for Modula-2 expressions, for GDB. Copyright (C) 1986, 1989, 1990, 1991, 1993, 1994 Free Software Foundation, Inc. Generated from expread.y (now c-exp.y) and contributed by the Department of Computer Science at the State University of New York at Buffalo, 1991. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Parse a Modula-2 expression from text in a string, and return the result as a struct expression pointer. That structure contains arithmetic operations in reverse polish, with constants represented by operations that are followed by special data. See expression.h for the details of the format. What is important here is that it can be built up sequentially during the process of parsing; the lower levels of the tree always come first in the result. Note that malloc's and realloc's in this file are transformed to xmalloc and xrealloc respectively by the same sed command in the makefile that remaps any other malloc/realloc inserted by the parser generator. Doing this with #defines and trying to control the interaction with include files ( and for example) just became too messy, particularly when such includes can be inserted at random times by the parser generator. */ %{ #include "defs.h" #include #include "expression.h" #include "language.h" #include "value.h" #include "parser-defs.h" #include "m2-lang.h" #include "bfd.h" /* Required by objfiles.h. */ #include "symfile.h" /* Required by objfiles.h. */ #include "objfiles.h" /* For have_full_symbols and have_partial_symbols */ /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc), as well as gratuitiously global symbol names, so we can have multiple yacc generated parsers in gdb. Note that these are only the variables produced by yacc. If other parser generators (bison, byacc, etc) produce additional global names that conflict at link time, then those parser generators need to be fixed instead of adding those names to this list. */ #define yymaxdepth m2_maxdepth #define yyparse m2_parse #define yylex m2_lex #define yyerror m2_error #define yylval m2_lval #define yychar m2_char #define yydebug m2_debug #define yypact m2_pact #define yyr1 m2_r1 #define yyr2 m2_r2 #define yydef m2_def #define yychk m2_chk #define yypgo m2_pgo #define yyact m2_act #define yyexca m2_exca #define yyerrflag m2_errflag #define yynerrs m2_nerrs #define yyps m2_ps #define yypv m2_pv #define yys m2_s #define yy_yys m2_yys #define yystate m2_state #define yytmp m2_tmp #define yyv m2_v #define yy_yyv m2_yyv #define yyval m2_val #define yylloc m2_lloc #define yyreds m2_reds /* With YYDEBUG defined */ #define yytoks m2_toks /* With YYDEBUG defined */ #ifndef YYDEBUG #define YYDEBUG 0 /* Default to no yydebug support */ #endif int yyparse PARAMS ((void)); static int yylex PARAMS ((void)); void yyerror PARAMS ((char *)); #if 0 static char * make_qualname PARAMS ((char *, char *)); #endif static int parse_number PARAMS ((int)); /* The sign of the number being parsed. */ static int number_sign = 1; /* The block that the module specified by the qualifer on an identifer is contained in, */ #if 0 static struct block *modblock=0; #endif %} /* Although the yacc "value" of an expression is not used, since the result is stored in the structure being created, other node types do have values. */ %union { LONGEST lval; unsigned LONGEST ulval; double dval; struct symbol *sym; struct type *tval; struct stoken sval; int voidval; struct block *bval; enum exp_opcode opcode; struct internalvar *ivar; struct type **tvec; int *ivec; } %type exp type_exp start set %type variable %type type %type block %type fblock %token INT HEX ERROR %token UINT M2_TRUE M2_FALSE CHAR %token FLOAT /* Both NAME and TYPENAME tokens represent symbols in the input, and both convey their data as strings. But a TYPENAME is a string that happens to be defined as a typedef or builtin type name (such as int or char) and a NAME is any other symbol. Contexts where this distinction is not important can use the nonterminal "name", which matches either NAME or TYPENAME. */ %token STRING %token NAME BLOCKNAME IDENT VARNAME %token TYPENAME %token SIZE CAP ORD HIGH ABS MIN_FUNC MAX_FUNC FLOAT_FUNC VAL CHR ODD TRUNC %token INC DEC INCL EXCL /* The GDB scope operator */ %token COLONCOLON %token LAST REGNAME %token INTERNAL_VAR /* M2 tokens */ %left ',' %left ABOVE_COMMA %nonassoc ASSIGN %left '<' '>' LEQ GEQ '=' NOTEQUAL '#' IN %left OROR %left LOGICAL_AND '&' %left '@' %left '+' '-' %left '*' '/' DIV MOD %right UNARY %right '^' DOT '[' '(' %right NOT '~' %left COLONCOLON QID /* This is not an actual token ; it is used for precedence. %right QID */ %% start : exp | type_exp ; type_exp: type { write_exp_elt_opcode(OP_TYPE); write_exp_elt_type($1); write_exp_elt_opcode(OP_TYPE); } ; /* Expressions */ exp : exp '^' %prec UNARY { write_exp_elt_opcode (UNOP_IND); } exp : '-' { number_sign = -1; } exp %prec UNARY { number_sign = 1; write_exp_elt_opcode (UNOP_NEG); } ; exp : '+' exp %prec UNARY { write_exp_elt_opcode(UNOP_PLUS); } ; exp : not_exp exp %prec UNARY { write_exp_elt_opcode (UNOP_LOGICAL_NOT); } ; not_exp : NOT | '~' ; exp : CAP '(' exp ')' { write_exp_elt_opcode (UNOP_CAP); } ; exp : ORD '(' exp ')' { write_exp_elt_opcode (UNOP_ORD); } ; exp : ABS '(' exp ')' { write_exp_elt_opcode (UNOP_ABS); } ; exp : HIGH '(' exp ')' { write_exp_elt_opcode (UNOP_HIGH); } ; exp : MIN_FUNC '(' type ')' { write_exp_elt_opcode (UNOP_MIN); write_exp_elt_type ($3); write_exp_elt_opcode (UNOP_MIN); } ; exp : MAX_FUNC '(' type ')' { write_exp_elt_opcode (UNOP_MAX); write_exp_elt_type ($3); write_exp_elt_opcode (UNOP_MIN); } ; exp : FLOAT_FUNC '(' exp ')' { write_exp_elt_opcode (UNOP_FLOAT); } ; exp : VAL '(' type ',' exp ')' { write_exp_elt_opcode (BINOP_VAL); write_exp_elt_type ($3); write_exp_elt_opcode (BINOP_VAL); } ; exp : CHR '(' exp ')' { write_exp_elt_opcode (UNOP_CHR); } ; exp : ODD '(' exp ')' { write_exp_elt_opcode (UNOP_ODD); } ; exp : TRUNC '(' exp ')' { write_exp_elt_opcode (UNOP_TRUNC); } ; exp : SIZE exp %prec UNARY { write_exp_elt_opcode (UNOP_SIZEOF); } ; exp : INC '(' exp ')' { write_exp_elt_opcode(UNOP_PREINCREMENT); } ; exp : INC '(' exp ',' exp ')' { write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); write_exp_elt_opcode(BINOP_ADD); write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); } ; exp : DEC '(' exp ')' { write_exp_elt_opcode(UNOP_PREDECREMENT);} ; exp : DEC '(' exp ',' exp ')' { write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); write_exp_elt_opcode(BINOP_SUB); write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); } ; exp : exp DOT NAME { write_exp_elt_opcode (STRUCTOP_STRUCT); write_exp_string ($3); write_exp_elt_opcode (STRUCTOP_STRUCT); } ; exp : set ; exp : exp IN set { error("Sets are not implemented.");} ; exp : INCL '(' exp ',' exp ')' { error("Sets are not implemented.");} ; exp : EXCL '(' exp ',' exp ')' { error("Sets are not implemented.");} set : '{' arglist '}' { error("Sets are not implemented.");} | type '{' arglist '}' { error("Sets are not implemented.");} ; /* Modula-2 array subscript notation [a,b,c...] */ exp : exp '[' /* This function just saves the number of arguments that follow in the list. It is *not* specific to function types */ { start_arglist(); } non_empty_arglist ']' %prec DOT { write_exp_elt_opcode (MULTI_SUBSCRIPT); write_exp_elt_longcst ((LONGEST) end_arglist()); write_exp_elt_opcode (MULTI_SUBSCRIPT); } ; exp : exp '(' /* This is to save the value of arglist_len being accumulated by an outer function call. */ { start_arglist (); } arglist ')' %prec DOT { write_exp_elt_opcode (OP_FUNCALL); write_exp_elt_longcst ((LONGEST) end_arglist ()); write_exp_elt_opcode (OP_FUNCALL); } ; arglist : ; arglist : exp { arglist_len = 1; } ; arglist : arglist ',' exp %prec ABOVE_COMMA { arglist_len++; } ; non_empty_arglist : exp { arglist_len = 1; } ; non_empty_arglist : non_empty_arglist ',' exp %prec ABOVE_COMMA { arglist_len++; } ; /* GDB construct */ exp : '{' type '}' exp %prec UNARY { write_exp_elt_opcode (UNOP_MEMVAL); write_exp_elt_type ($2); write_exp_elt_opcode (UNOP_MEMVAL); } ; exp : type '(' exp ')' %prec UNARY { write_exp_elt_opcode (UNOP_CAST); write_exp_elt_type ($1); write_exp_elt_opcode (UNOP_CAST); } ; exp : '(' exp ')' { } ; /* Binary operators in order of decreasing precedence. Note that some of these operators are overloaded! (ie. sets) */ /* GDB construct */ exp : exp '@' exp { write_exp_elt_opcode (BINOP_REPEAT); } ; exp : exp '*' exp { write_exp_elt_opcode (BINOP_MUL); } ; exp : exp '/' exp { write_exp_elt_opcode (BINOP_DIV); } ; exp : exp DIV exp { write_exp_elt_opcode (BINOP_INTDIV); } ; exp : exp MOD exp { write_exp_elt_opcode (BINOP_REM); } ; exp : exp '+' exp { write_exp_elt_opcode (BINOP_ADD); } ; exp : exp '-' exp { write_exp_elt_opcode (BINOP_SUB); } ; exp : exp '=' exp { write_exp_elt_opcode (BINOP_EQUAL); } ; exp : exp NOTEQUAL exp { write_exp_elt_opcode (BINOP_NOTEQUAL); } | exp '#' exp { write_exp_elt_opcode (BINOP_NOTEQUAL); } ; exp : exp LEQ exp { write_exp_elt_opcode (BINOP_LEQ); } ; exp : exp GEQ exp { write_exp_elt_opcode (BINOP_GEQ); } ; exp : exp '<' exp { write_exp_elt_opcode (BINOP_LESS); } ; exp : exp '>' exp { write_exp_elt_opcode (BINOP_GTR); } ; exp : exp LOGICAL_AND exp { write_exp_elt_opcode (BINOP_LOGICAL_AND); } ; exp : exp OROR exp { write_exp_elt_opcode (BINOP_LOGICAL_OR); } ; exp : exp ASSIGN exp { write_exp_elt_opcode (BINOP_ASSIGN); } ; /* Constants */ exp : M2_TRUE { write_exp_elt_opcode (OP_BOOL); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_BOOL); } ; exp : M2_FALSE { write_exp_elt_opcode (OP_BOOL); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_BOOL); } ; exp : INT { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_m2_int); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_LONG); } ; exp : UINT { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_m2_card); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_LONG); } ; exp : CHAR { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_m2_char); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_LONG); } ; exp : FLOAT { write_exp_elt_opcode (OP_DOUBLE); write_exp_elt_type (builtin_type_m2_real); write_exp_elt_dblcst ($1); write_exp_elt_opcode (OP_DOUBLE); } ; exp : variable ; /* The GDB internal variable $$, et al. */ exp : LAST { write_exp_elt_opcode (OP_LAST); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_LAST); } ; exp : REGNAME { write_exp_elt_opcode (OP_REGISTER); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_REGISTER); } ; exp : SIZE '(' type ')' %prec UNARY { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_int); write_exp_elt_longcst ((LONGEST) TYPE_LENGTH ($3)); write_exp_elt_opcode (OP_LONG); } ; exp : STRING { write_exp_elt_opcode (OP_M2_STRING); write_exp_string ($1); write_exp_elt_opcode (OP_M2_STRING); } ; /* This will be used for extensions later. Like adding modules. */ block : fblock { $$ = SYMBOL_BLOCK_VALUE($1); } ; fblock : BLOCKNAME { struct symbol *sym = lookup_symbol (copy_name ($1), expression_context_block, VAR_NAMESPACE, 0, NULL); $$ = sym;} ; /* GDB scope operator */ fblock : block COLONCOLON BLOCKNAME { struct symbol *tem = lookup_symbol (copy_name ($3), $1, VAR_NAMESPACE, 0, NULL); if (!tem || SYMBOL_CLASS (tem) != LOC_BLOCK) error ("No function \"%s\" in specified context.", copy_name ($3)); $$ = tem; } ; /* Useful for assigning to PROCEDURE variables */ variable: fblock { write_exp_elt_opcode(OP_VAR_VALUE); write_exp_elt_block (NULL); write_exp_elt_sym ($1); write_exp_elt_opcode (OP_VAR_VALUE); } ; /* GDB internal ($foo) variable */ variable: INTERNAL_VAR { write_exp_elt_opcode (OP_INTERNALVAR); write_exp_elt_intern ($1); write_exp_elt_opcode (OP_INTERNALVAR); } ; /* GDB scope operator */ variable: block COLONCOLON NAME { struct symbol *sym; sym = lookup_symbol (copy_name ($3), $1, VAR_NAMESPACE, 0, NULL); if (sym == 0) error ("No symbol \"%s\" in specified context.", copy_name ($3)); write_exp_elt_opcode (OP_VAR_VALUE); /* block_found is set by lookup_symbol. */ write_exp_elt_block (block_found); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); } ; /* Base case for variables. */ variable: NAME { struct symbol *sym; int is_a_field_of_this; sym = lookup_symbol (copy_name ($1), expression_context_block, VAR_NAMESPACE, &is_a_field_of_this, NULL); if (sym) { if (symbol_read_needs_frame (sym)) { if (innermost_block == 0 || contained_in (block_found, innermost_block)) innermost_block = block_found; } write_exp_elt_opcode (OP_VAR_VALUE); /* We want to use the selected frame, not another more inner frame which happens to be in the same block. */ write_exp_elt_block (NULL); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); } else { struct minimal_symbol *msymbol; register char *arg = copy_name ($1); msymbol = lookup_minimal_symbol (arg, NULL); if (msymbol != NULL) { write_exp_msymbol (msymbol, lookup_function_type (builtin_type_int), builtin_type_int); } else if (!have_full_symbols () && !have_partial_symbols ()) error ("No symbol table is loaded. Use the \"symbol-file\" command."); else error ("No symbol \"%s\" in current context.", copy_name ($1)); } } ; type : TYPENAME { $$ = lookup_typename (copy_name ($1), expression_context_block, 0); } ; %% #if 0 /* FIXME! */ int overflow(a,b) long a,b; { return (MAX_OF_TYPE(builtin_type_m2_int) - b) < a; } int uoverflow(a,b) unsigned long a,b; { return (MAX_OF_TYPE(builtin_type_m2_card) - b) < a; } #endif /* FIXME */ /* Take care of parsing a number (anything that starts with a digit). Set yylval and return the token type; update lexptr. LEN is the number of characters in it. */ /*** Needs some error checking for the float case ***/ static int parse_number (olen) int olen; { register char *p = lexptr; register LONGEST n = 0; register LONGEST prevn = 0; register int c,i,ischar=0; register int base = input_radix; register int len = olen; int unsigned_p = number_sign == 1 ? 1 : 0; if(p[len-1] == 'H') { base = 16; len--; } else if(p[len-1] == 'C' || p[len-1] == 'B') { base = 8; ischar = p[len-1] == 'C'; len--; } /* Scan the number */ for (c = 0; c < len; c++) { if (p[c] == '.' && base == 10) { /* It's a float since it contains a point. */ yylval.dval = atof (p); lexptr += len; return FLOAT; } if (p[c] == '.' && base != 10) error("Floating point numbers must be base 10."); if (base == 10 && (p[c] < '0' || p[c] > '9')) error("Invalid digit \'%c\' in number.",p[c]); } while (len-- > 0) { c = *p++; n *= base; if( base == 8 && (c == '8' || c == '9')) error("Invalid digit \'%c\' in octal number.",c); if (c >= '0' && c <= '9') i = c - '0'; else { if (base == 16 && c >= 'A' && c <= 'F') i = c - 'A' + 10; else return ERROR; } n+=i; if(i >= base) return ERROR; if(!unsigned_p && number_sign == 1 && (prevn >= n)) unsigned_p=1; /* Try something unsigned */ /* Don't do the range check if n==i and i==0, since that special case will give an overflow error. */ if(RANGE_CHECK && n!=i && i) { if((unsigned_p && (unsigned)prevn >= (unsigned)n) || ((!unsigned_p && number_sign==-1) && -prevn <= -n)) range_error("Overflow on numeric constant."); } prevn=n; } lexptr = p; if(*p == 'B' || *p == 'C' || *p == 'H') lexptr++; /* Advance past B,C or H */ if (ischar) { yylval.ulval = n; return CHAR; } else if ( unsigned_p && number_sign == 1) { yylval.ulval = n; return UINT; } else if((unsigned_p && (n<0))) { range_error("Overflow on numeric constant -- number too large."); /* But, this can return if range_check == range_warn. */ } yylval.lval = n; return INT; } /* Some tokens */ static struct { char name[2]; int token; } tokentab2[] = { { {'<', '>'}, NOTEQUAL }, { {':', '='}, ASSIGN }, { {'<', '='}, LEQ }, { {'>', '='}, GEQ }, { {':', ':'}, COLONCOLON }, }; /* Some specific keywords */ struct keyword { char keyw[10]; int token; }; static struct keyword keytab[] = { {"OR" , OROR }, {"IN", IN },/* Note space after IN */ {"AND", LOGICAL_AND}, {"ABS", ABS }, {"CHR", CHR }, {"DEC", DEC }, {"NOT", NOT }, {"DIV", DIV }, {"INC", INC }, {"MAX", MAX_FUNC }, {"MIN", MIN_FUNC }, {"MOD", MOD }, {"ODD", ODD }, {"CAP", CAP }, {"ORD", ORD }, {"VAL", VAL }, {"EXCL", EXCL }, {"HIGH", HIGH }, {"INCL", INCL }, {"SIZE", SIZE }, {"FLOAT", FLOAT_FUNC }, {"TRUNC", TRUNC }, }; /* Read one token, getting characters through lexptr. */ /* This is where we will check to make sure that the language and the operators used are compatible */ static int yylex () { register int c; register int namelen; register int i; register char *tokstart; register char quote; retry: tokstart = lexptr; /* See if it is a special token of length 2 */ for( i = 0 ; i < sizeof tokentab2 / sizeof tokentab2[0] ; i++) if(STREQN(tokentab2[i].name, tokstart, 2)) { lexptr += 2; return tokentab2[i].token; } switch (c = *tokstart) { case 0: return 0; case ' ': case '\t': case '\n': lexptr++; goto retry; case '(': paren_depth++; lexptr++; return c; case ')': if (paren_depth == 0) return 0; paren_depth--; lexptr++; return c; case ',': if (comma_terminates && paren_depth == 0) return 0; lexptr++; return c; case '.': /* Might be a floating point number. */ if (lexptr[1] >= '0' && lexptr[1] <= '9') break; /* Falls into number code. */ else { lexptr++; return DOT; } /* These are character tokens that appear as-is in the YACC grammar */ case '+': case '-': case '*': case '/': case '^': case '<': case '>': case '[': case ']': case '=': case '{': case '}': case '#': case '@': case '~': case '&': lexptr++; return c; case '\'' : case '"': quote = c; for (namelen = 1; (c = tokstart[namelen]) != quote && c != '\0'; namelen++) if (c == '\\') { c = tokstart[++namelen]; if (c >= '0' && c <= '9') { c = tokstart[++namelen]; if (c >= '0' && c <= '9') c = tokstart[++namelen]; } } if(c != quote) error("Unterminated string or character constant."); yylval.sval.ptr = tokstart + 1; yylval.sval.length = namelen - 1; lexptr += namelen + 1; if(namelen == 2) /* Single character */ { yylval.ulval = tokstart[1]; return CHAR; } else return STRING; } /* Is it a number? */ /* Note: We have already dealt with the case of the token '.'. See case '.' above. */ if ((c >= '0' && c <= '9')) { /* It's a number. */ int got_dot = 0, got_e = 0; register char *p = tokstart; int toktype; for (++p ;; ++p) { if (!got_e && (*p == 'e' || *p == 'E')) got_dot = got_e = 1; else if (!got_dot && *p == '.') got_dot = 1; else if (got_e && (p[-1] == 'e' || p[-1] == 'E') && (*p == '-' || *p == '+')) /* This is the sign of the exponent, not the end of the number. */ continue; else if ((*p < '0' || *p > '9') && (*p < 'A' || *p > 'F') && (*p != 'H')) /* Modula-2 hexadecimal number */ break; } toktype = parse_number (p - tokstart); if (toktype == ERROR) { char *err_copy = (char *) alloca (p - tokstart + 1); memcpy (err_copy, tokstart, p - tokstart); err_copy[p - tokstart] = 0; error ("Invalid number \"%s\".", err_copy); } lexptr = p; return toktype; } if (!(c == '_' || c == '$' || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z'))) /* We must have come across a bad character (e.g. ';'). */ error ("Invalid character '%c' in expression.", c); /* It's a name. See how long it is. */ namelen = 0; for (c = tokstart[namelen]; (c == '_' || c == '$' || (c >= '0' && c <= '9') || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')); c = tokstart[++namelen]) ; /* The token "if" terminates the expression and is NOT removed from the input stream. */ if (namelen == 2 && tokstart[0] == 'i' && tokstart[1] == 'f') { return 0; } lexptr += namelen; /* Handle the tokens $digits; also $ (short for $0) and $$ (short for $$1) and $$digits (equivalent to $<-digits> if you could type that). Make token type LAST, and put the number (the digits) in yylval. */ if (*tokstart == '$') { register int negate = 0; c = 1; /* Double dollar means negate the number and add -1 as well. Thus $$ alone means -1. */ if (namelen >= 2 && tokstart[1] == '$') { negate = 1; c = 2; } if (c == namelen) { /* Just dollars (one or two) */ yylval.lval = - negate; return LAST; } /* Is the rest of the token digits? */ for (; c < namelen; c++) if (!(tokstart[c] >= '0' && tokstart[c] <= '9')) break; if (c == namelen) { yylval.lval = atoi (tokstart + 1 + negate); if (negate) yylval.lval = - yylval.lval; return LAST; } } /* Handle tokens that refer to machine registers: $ followed by a register name. */ if (*tokstart == '$') { for (c = 0; c < NUM_REGS; c++) if (namelen - 1 == strlen (reg_names[c]) && STREQN (tokstart + 1, reg_names[c], namelen - 1)) { yylval.lval = c; return REGNAME; } for (c = 0; c < num_std_regs; c++) if (namelen - 1 == strlen (std_regs[c].name) && STREQN (tokstart + 1, std_regs[c].name, namelen - 1)) { yylval.lval = std_regs[c].regnum; return REGNAME; } } /* Lookup special keywords */ for(i = 0 ; i < sizeof(keytab) / sizeof(keytab[0]) ; i++) if(namelen == strlen(keytab[i].keyw) && STREQN(tokstart,keytab[i].keyw,namelen)) return keytab[i].token; yylval.sval.ptr = tokstart; yylval.sval.length = namelen; /* Any other names starting in $ are debugger internal variables. */ if (*tokstart == '$') { yylval.ivar = (struct internalvar *) lookup_internalvar (copy_name (yylval.sval) + 1); return INTERNAL_VAR; } /* Use token-type BLOCKNAME for symbols that happen to be defined as functions. If this is not so, then ... Use token-type TYPENAME for symbols that happen to be defined currently as names of types; NAME for other symbols. The caller is not constrained to care about the distinction. */ { char *tmp = copy_name (yylval.sval); struct symbol *sym; if (lookup_partial_symtab (tmp)) return BLOCKNAME; sym = lookup_symbol (tmp, expression_context_block, VAR_NAMESPACE, 0, NULL); if (sym && SYMBOL_CLASS (sym) == LOC_BLOCK) return BLOCKNAME; if (lookup_typename (copy_name (yylval.sval), expression_context_block, 1)) return TYPENAME; if(sym) { switch(sym->class) { case LOC_STATIC: case LOC_REGISTER: case LOC_ARG: case LOC_REF_ARG: case LOC_REGPARM: case LOC_REGPARM_ADDR: case LOC_LOCAL: case LOC_LOCAL_ARG: case LOC_BASEREG: case LOC_BASEREG_ARG: case LOC_CONST: case LOC_CONST_BYTES: case LOC_OPTIMIZED_OUT: return NAME; case LOC_TYPEDEF: return TYPENAME; case LOC_BLOCK: return BLOCKNAME; case LOC_UNDEF: error("internal: Undefined class in m2lex()"); case LOC_LABEL: error("internal: Unforseen case in m2lex()"); } } else { /* Built-in BOOLEAN type. This is sort of a hack. */ if(STREQN(tokstart,"TRUE",4)) { yylval.ulval = 1; return M2_TRUE; } else if(STREQN(tokstart,"FALSE",5)) { yylval.ulval = 0; return M2_FALSE; } } /* Must be another type of name... */ return NAME; } } #if 0 /* Unused */ static char * make_qualname(mod,ident) char *mod, *ident; { char *new = malloc(strlen(mod)+strlen(ident)+2); strcpy(new,mod); strcat(new,"."); strcat(new,ident); return new; } #endif /* 0 */ void yyerror (msg) char *msg; { error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr); } gdb-4.13/gdb/m2-lang.c 666 34562 1752 30376 5574226661 12740 0ustar fnfcygnus/* Modula 2 language support routines for GDB, the GNU debugger. Copyright 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "parser-defs.h" #include "language.h" #include "m2-lang.h" #include "c-lang.h" /* Print the character C on STREAM as part of the contents of a literal string whose delimiter is QUOTER. Note that that format for printing characters and strings is language specific. FIXME: This is a copy of the same function from c-exp.y. It should be replaced with a true Modula version. */ static void emit_char (c, stream, quoter) register int c; GDB_FILE *stream; int quoter; { c &= 0xFF; /* Avoid sign bit follies */ if (PRINT_LITERAL_FORM (c)) { if (c == '\\' || c == quoter) { fputs_filtered ("\\", stream); } fprintf_filtered (stream, "%c", c); } else { switch (c) { case '\n': fputs_filtered ("\\n", stream); break; case '\b': fputs_filtered ("\\b", stream); break; case '\t': fputs_filtered ("\\t", stream); break; case '\f': fputs_filtered ("\\f", stream); break; case '\r': fputs_filtered ("\\r", stream); break; case '\033': fputs_filtered ("\\e", stream); break; case '\007': fputs_filtered ("\\a", stream); break; default: fprintf_filtered (stream, "\\%.3o", (unsigned int) c); break; } } } /* FIXME: This is a copy of the same function from c-exp.y. It should be replaced with a true Modula version. */ static void m2_printchar (c, stream) int c; GDB_FILE *stream; { fputs_filtered ("'", stream); emit_char (c, stream, '\''); fputs_filtered ("'", stream); } /* Print the character string STRING, printing at most LENGTH characters. Printing stops early if the number hits print_max; repeat counts are printed as appropriate. Print ellipses at the end if we had to stop before printing LENGTH characters, or if FORCE_ELLIPSES. FIXME: This is a copy of the same function from c-exp.y. It should be replaced with a true Modula version. */ static void m2_printstr (stream, string, length, force_ellipses) GDB_FILE *stream; char *string; unsigned int length; int force_ellipses; { register unsigned int i; unsigned int things_printed = 0; int in_quotes = 0; int need_comma = 0; extern int inspect_it; extern int repeat_count_threshold; extern int print_max; if (length == 0) { fputs_filtered ("\"\"", gdb_stdout); return; } for (i = 0; i < length && things_printed < print_max; ++i) { /* Position of the character we are examining to see whether it is repeated. */ unsigned int rep1; /* Number of repetitions we have detected so far. */ unsigned int reps; QUIT; if (need_comma) { fputs_filtered (", ", stream); need_comma = 0; } rep1 = i + 1; reps = 1; while (rep1 < length && string[rep1] == string[i]) { ++rep1; ++reps; } if (reps > repeat_count_threshold) { if (in_quotes) { if (inspect_it) fputs_filtered ("\\\", ", stream); else fputs_filtered ("\", ", stream); in_quotes = 0; } m2_printchar (string[i], stream); fprintf_filtered (stream, " ", reps); i = rep1 - 1; things_printed += repeat_count_threshold; need_comma = 1; } else { if (!in_quotes) { if (inspect_it) fputs_filtered ("\\\"", stream); else fputs_filtered ("\"", stream); in_quotes = 1; } emit_char (string[i], stream, '"'); ++things_printed; } } /* Terminate the quotes if necessary. */ if (in_quotes) { if (inspect_it) fputs_filtered ("\\\"", stream); else fputs_filtered ("\"", stream); } if (force_ellipses || i < length) fputs_filtered ("...", stream); } /* FIXME: This is a copy of c_create_fundamental_type(), before all the non-C types were stripped from it. Needs to be fixed by an experienced Modula programmer. */ static struct type * m2_create_fundamental_type (objfile, typeid) struct objfile *objfile; int typeid; { register struct type *type = NULL; switch (typeid) { default: /* FIXME: For now, if we are asked to produce a type not in this language, create the equivalent of a C integer type with the name "". When all the dust settles from the type reconstruction work, this should probably become an error. */ type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "", objfile); warning ("internal error: no Modula fundamental type %d", typeid); break; case FT_VOID: type = init_type (TYPE_CODE_VOID, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "void", objfile); break; case FT_BOOLEAN: type = init_type (TYPE_CODE_BOOL, TARGET_CHAR_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "boolean", objfile); break; case FT_STRING: type = init_type (TYPE_CODE_STRING, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "string", objfile); break; case FT_CHAR: type = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "char", objfile); break; case FT_SIGNED_CHAR: type = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "signed char", objfile); break; case FT_UNSIGNED_CHAR: type = init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned char", objfile); break; case FT_SHORT: type = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, 0, "short", objfile); break; case FT_SIGNED_SHORT: type = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, 0, "short", objfile); /* FIXME-fnf */ break; case FT_UNSIGNED_SHORT: type = init_type (TYPE_CODE_INT, TARGET_SHORT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned short", objfile); break; case FT_INTEGER: type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "int", objfile); break; case FT_SIGNED_INTEGER: type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "int", objfile); /* FIXME -fnf */ break; case FT_UNSIGNED_INTEGER: type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned int", objfile); break; case FT_FIXED_DECIMAL: type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "fixed decimal", objfile); break; case FT_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, 0, "long", objfile); break; case FT_SIGNED_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, 0, "long", objfile); /* FIXME -fnf */ break; case FT_UNSIGNED_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned long", objfile); break; case FT_LONG_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_LONG_BIT / TARGET_CHAR_BIT, 0, "long long", objfile); break; case FT_SIGNED_LONG_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_LONG_BIT / TARGET_CHAR_BIT, 0, "signed long long", objfile); break; case FT_UNSIGNED_LONG_LONG: type = init_type (TYPE_CODE_INT, TARGET_LONG_LONG_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned long long", objfile); break; case FT_FLOAT: type = init_type (TYPE_CODE_FLT, TARGET_FLOAT_BIT / TARGET_CHAR_BIT, 0, "float", objfile); break; case FT_DBL_PREC_FLOAT: type = init_type (TYPE_CODE_FLT, TARGET_DOUBLE_BIT / TARGET_CHAR_BIT, 0, "double", objfile); break; case FT_FLOAT_DECIMAL: type = init_type (TYPE_CODE_FLT, TARGET_DOUBLE_BIT / TARGET_CHAR_BIT, 0, "floating decimal", objfile); break; case FT_EXT_PREC_FLOAT: type = init_type (TYPE_CODE_FLT, TARGET_LONG_DOUBLE_BIT / TARGET_CHAR_BIT, 0, "long double", objfile); break; case FT_COMPLEX: type = init_type (TYPE_CODE_FLT, TARGET_COMPLEX_BIT / TARGET_CHAR_BIT, 0, "complex", objfile); break; case FT_DBL_PREC_COMPLEX: type = init_type (TYPE_CODE_FLT, TARGET_DOUBLE_COMPLEX_BIT / TARGET_CHAR_BIT, 0, "double complex", objfile); break; case FT_EXT_PREC_COMPLEX: type = init_type (TYPE_CODE_FLT, TARGET_DOUBLE_COMPLEX_BIT / TARGET_CHAR_BIT, 0, "long double complex", objfile); break; } return (type); } /* Table of operators and their precedences for printing expressions. */ static const struct op_print m2_op_print_tab[] = { {"+", BINOP_ADD, PREC_ADD, 0}, {"+", UNOP_PLUS, PREC_PREFIX, 0}, {"-", BINOP_SUB, PREC_ADD, 0}, {"-", UNOP_NEG, PREC_PREFIX, 0}, {"*", BINOP_MUL, PREC_MUL, 0}, {"/", BINOP_DIV, PREC_MUL, 0}, {"DIV", BINOP_INTDIV, PREC_MUL, 0}, {"MOD", BINOP_REM, PREC_MUL, 0}, {":=", BINOP_ASSIGN, PREC_ASSIGN, 1}, {"OR", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0}, {"AND", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0}, {"NOT", UNOP_LOGICAL_NOT, PREC_PREFIX, 0}, {"=", BINOP_EQUAL, PREC_EQUAL, 0}, {"<>", BINOP_NOTEQUAL, PREC_EQUAL, 0}, {"<=", BINOP_LEQ, PREC_ORDER, 0}, {">=", BINOP_GEQ, PREC_ORDER, 0}, {">", BINOP_GTR, PREC_ORDER, 0}, {"<", BINOP_LESS, PREC_ORDER, 0}, {"^", UNOP_IND, PREC_PREFIX, 0}, {"@", BINOP_REPEAT, PREC_REPEAT, 0}, {NULL, 0, 0, 0} }; /* The built-in types of Modula-2. */ struct type *builtin_type_m2_char; struct type *builtin_type_m2_int; struct type *builtin_type_m2_card; struct type *builtin_type_m2_real; struct type *builtin_type_m2_bool; struct type ** const (m2_builtin_types[]) = { &builtin_type_m2_char, &builtin_type_m2_int, &builtin_type_m2_card, &builtin_type_m2_real, &builtin_type_m2_bool, 0 }; const struct language_defn m2_language_defn = { "modula-2", language_m2, m2_builtin_types, range_check_on, type_check_on, m2_parse, /* parser */ m2_error, /* parser error function */ m2_printchar, /* Print character constant */ m2_printstr, /* function to print string constant */ m2_create_fundamental_type, /* Create fundamental type in this language */ m2_print_type, /* Print a type using appropriate syntax */ m2_val_print, /* Print a value using appropriate syntax */ c_value_print, /* Print a top-level value */ &builtin_type_m2_real, /* longest floating point type */ {"", "", "", ""}, /* Binary format info */ {"%loB", "", "o", "B"}, /* Octal format info */ {"%ld", "", "d", ""}, /* Decimal format info */ {"0%lXH", "0", "X", "H"}, /* Hex format info */ m2_op_print_tab, /* expression operators for printing */ LANG_MAGIC }; /* Initialization for Modula-2 */ void _initialize_m2_language () { /* Modula-2 "pervasive" types. NOTE: these can be redefined!!! */ builtin_type_m2_int = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "INTEGER", (struct objfile *) NULL); builtin_type_m2_card = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "CARDINAL", (struct objfile *) NULL); builtin_type_m2_real = init_type (TYPE_CODE_FLT, TARGET_FLOAT_BIT / TARGET_CHAR_BIT, 0, "REAL", (struct objfile *) NULL); builtin_type_m2_char = init_type (TYPE_CODE_CHAR, TARGET_CHAR_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "CHAR", (struct objfile *) NULL); builtin_type_m2_bool = init_type (TYPE_CODE_BOOL, TARGET_INT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "BOOLEAN", (struct objfile *) NULL); add_language (&m2_language_defn); } gdb-4.13/gdb/m2-lang.h 666 34562 1752 2240 5465305564 12711 0ustar fnfcygnus/* Modula 2 language support definitions for GDB, the GNU debugger. Copyright 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ extern int m2_parse PARAMS ((void)); /* Defined in m2-exp.y */ extern void m2_error PARAMS ((char *)); /* Defined in m2-exp.y */ extern void /* Defined in m2-typeprint.c */ m2_print_type PARAMS ((struct type *, char *, GDB_FILE *, int, int)); extern int m2_val_print PARAMS ((struct type *, char *, CORE_ADDR, GDB_FILE *, int, int, int, enum val_prettyprint)); gdb-4.13/gdb/m2-typeprint.c 666 34562 1752 2733 5465305565 14031 0ustar fnfcygnus/* Support for printing Modula 2 types for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "obstack.h" #include "bfd.h" /* Binary File Description */ #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "value.h" #include "gdbcore.h" #include "target.h" #include "command.h" #include "gdbcmd.h" #include "language.h" #include "demangle.h" #include "m2-lang.h" #include #include void m2_print_type (type, varstring, stream, show, level) struct type *type; char *varstring; GDB_FILE *stream; int show; int level; { extern void c_print_type PARAMS ((struct type *, char *, GDB_FILE *, int, int)); c_print_type (type, varstring, stream, show, level); /* FIXME */ } gdb-4.13/gdb/m2-valprint.c 666 34562 1752 2757 5465305567 13642 0ustar fnfcygnus/* Support for printing Modula 2 values for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "obstack.h" #include "symtab.h" #include "gdbtypes.h" #include "valprint.h" /* FIXME: For now, just explicitly declare c_val_print and use it instead */ int m2_val_print (type, valaddr, address, stream, format, deref_ref, recurse, pretty) struct type *type; char *valaddr; CORE_ADDR address; GDB_FILE *stream; int format; int deref_ref; int recurse; enum val_prettyprint pretty; { extern int c_val_print PARAMS ((struct type *, char *, CORE_ADDR, GDB_FILE *, int, int, int, enum val_prettyprint)); return (c_val_print (type, valaddr, address, stream, format, deref_ref, recurse, pretty)); } gdb-4.13/gdb/m3-nat.c 666 34562 1752 344535 5620274102 12610 0ustar fnfcygnus/* Interface GDB to Mach 3.0 operating systems. (Most) Mach 3.0 related routines live in this file. Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Author: Jukka Virtanen * Computing Centre * Helsinki University of Technology * Finland * * Thanks to my friends who helped with ideas and testing: * * Johannes Helander, Antti Louko, Tero Mononen, * jvh@cs.hut.fi alo@hut.fi tmo@cs.hut.fi * * Tero Kivinen and Eamonn McManus * kivinen@cs.hut.fi emcmanus@gr.osf.org * */ #include #include #include #include #include #include #include #include #include #include "defs.h" #include "inferior.h" #include "symtab.h" #include "value.h" #include "language.h" #include "target.h" #include "wait.h" #include "gdbcmd.h" #include "gdbcore.h" #if 0 #include #else #define MACH_TYPE_TASK 1 #define MACH_TYPE_THREAD 2 #endif /* Included only for signal names and NSIG * * note: There are many problems in signal handling with * gdb in Mach 3.0 in general. */ #include #define SIG_UNKNOWN 0 /* Exception that has no matching unix signal */ #include /* This is what a cproc looks like. This is here partly because cthread_internals.h is not a header we can just #include, partly with an eye towards perhaps getting this to work with cross-debugging someday. Best solution is if CMU publishes a real interface to this stuff. */ #define CPROC_NEXT_OFFSET 0 #define CPROC_NEXT_SIZE (TARGET_PTR_BIT / HOST_CHAR_BIT) #define CPROC_INCARNATION_OFFSET (CPROC_NEXT_OFFSET + CPROC_NEXT_SIZE) #define CPROC_INCARNATION_SIZE (sizeof (cthread_t)) #define CPROC_LIST_OFFSET (CPROC_INCARNATION_OFFSET + CPROC_INCARNATION_SIZE) #define CPROC_LIST_SIZE (TARGET_PTR_BIT / HOST_CHAR_BIT) #define CPROC_WAIT_OFFSET (CPROC_LIST_OFFSET + CPROC_LIST_SIZE) #define CPROC_WAIT_SIZE (TARGET_PTR_BIT / HOST_CHAR_BIT) #define CPROC_REPLY_OFFSET (CPROC_WAIT_OFFSET + CPROC_WAIT_SIZE) #define CPROC_REPLY_SIZE (sizeof (mach_port_t)) #define CPROC_CONTEXT_OFFSET (CPROC_REPLY_OFFSET + CPROC_REPLY_SIZE) #define CPROC_CONTEXT_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT) #define CPROC_LOCK_OFFSET (CPROC_CONTEXT_OFFSET + CPROC_CONTEXT_SIZE) #define CPROC_LOCK_SIZE (sizeof (spin_lock_t)) #define CPROC_STATE_OFFSET (CPROC_LOCK_OFFSET + CPROC_LOCK_SIZE) #define CPROC_STATE_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT) #define CPROC_WIRED_OFFSET (CPROC_STATE_OFFSET + CPROC_STATE_SIZE) #define CPROC_WIRED_SIZE (sizeof (mach_port_t)) #define CPROC_BUSY_OFFSET (CPROC_WIRED_OFFSET + CPROC_WIRED_SIZE) #define CPROC_BUSY_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT) #define CPROC_MSG_OFFSET (CPROC_BUSY_OFFSET + CPROC_BUSY_SIZE) #define CPROC_MSG_SIZE (sizeof (mach_msg_header_t)) #define CPROC_BASE_OFFSET (CPROC_MSG_OFFSET + CPROC_MSG_SIZE) #define CPROC_BASE_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT) #define CPROC_SIZE_OFFSET (CPROC_BASE_OFFSET + CPROC_BASE_SIZE) #define CPROC_SIZE_SIZE (TARGET_INT_BIT / HOST_CHAR_BIT) #define CPROC_SIZE (CPROC_SIZE_OFFSET + CPROC_SIZE_SIZE) /* Values for the state field in the cproc. */ #define CPROC_RUNNING 0 #define CPROC_SWITCHING 1 #define CPROC_BLOCKED 2 #define CPROC_CONDWAIT 4 /* For cproc and kernel thread mapping */ typedef struct gdb_thread { mach_port_t name; CORE_ADDR sp; CORE_ADDR pc; CORE_ADDR fp; boolean_t in_emulator; int slotid; /* This is for the mthreads list. It points to the cproc list. Perhaps the two lists should be merged (or perhaps it was a mistake to make them both use a struct gdb_thread). */ struct gdb_thread *cproc; /* These are for the cproc list, which is linked through the next field of the struct gdb_thread. */ char raw_cproc[CPROC_SIZE]; /* The cthread which is pointed to by the incarnation field from the cproc. This points to the copy we've read into GDB. */ cthread_t cthread; /* Point back to the mthreads list. */ int reverse_map; struct gdb_thread *next; } *gdb_thread_t; /* * Actions for Mach exceptions. * * sigmap field maps the exception to corresponding Unix signal. * * I do not know how to map the exception to unix signal * if SIG_UNKNOWN is specified. */ struct exception_list { char *name; boolean_t forward; boolean_t print; int sigmap; } exception_map[] = { {"not_mach3_exception", FALSE, TRUE, SIG_UNKNOWN}, {"EXC_BAD_ACCESS", FALSE, TRUE, SIGSEGV}, {"EXC_BAD_INSTRUCTION", FALSE, TRUE, SIGILL}, {"EXC_ARITHMETIC", FALSE, TRUE, SIGFPE}, {"EXC_EMULATION", FALSE, TRUE, SIGEMT}, /* ??? */ {"EXC_SOFTWARE", FALSE, TRUE, SIG_UNKNOWN}, {"EXC_BREAKPOINT", FALSE, FALSE, SIGTRAP} }; /* Mach exception table size */ int max_exception = sizeof(exception_map)/sizeof(struct exception_list) - 1; #define MAX_EXCEPTION max_exception WAITTYPE wait_status; /* If you define this, intercepted bsd server calls will be * dumped while waiting the inferior to EXEC the correct * program */ /* #define DUMP_SYSCALL /* debugging interceptor */ /* xx_debug() outputs messages if this is nonzero. * If > 1, DUMP_SYSCALL will dump message contents. */ int debug_level = 0; /* "Temporary" debug stuff */ void xx_debug (fmt, a,b,c) char *fmt; int a,b,c; { if (debug_level) warning (fmt, a, b, c); } /* This is in libmach.a */ extern mach_port_t name_server_port; /* Set in catch_exception_raise */ int stop_exception, stop_code, stop_subcode; int stopped_in_exception; /* Thread that was the active thread when we stopped */ thread_t stop_thread = MACH_PORT_NULL; char *hostname = ""; /* Set when task is attached or created */ boolean_t emulator_present = FALSE; task_t inferior_task; thread_t current_thread; /* Exception ports for inferior task */ mach_port_t inferior_exception_port = MACH_PORT_NULL; mach_port_t inferior_old_exception_port = MACH_PORT_NULL; /* task exceptions and notifications */ mach_port_t inferior_wait_port_set = MACH_PORT_NULL; mach_port_t our_notify_port = MACH_PORT_NULL; /* This is "inferior_wait_port_set" when not single stepping, and * "singlestepped_thread_port" when we are single stepping. * * This is protected by a cleanup function: discard_single_step() */ mach_port_t currently_waiting_for = MACH_PORT_NULL; /* A port for external messages to gdb. * External in the meaning that they do not come * from the inferior_task, but rather from external * tasks. * * As a debugging feature: * A debugger debugging another debugger can stop the * inferior debugger by the following command sequence * (without running external programs) * * (top-gdb) set stop_inferior_gdb () * (top-gdb) continue */ mach_port_t our_message_port = MACH_PORT_NULL; /* For single stepping */ mach_port_t thread_exception_port = MACH_PORT_NULL; mach_port_t thread_saved_exception_port = MACH_PORT_NULL; mach_port_t singlestepped_thread_port = MACH_PORT_NULL; /* For machid calls */ mach_port_t mid_server = MACH_PORT_NULL; mach_port_t mid_auth = MACH_PORT_NULL; /* If gdb thinks the inferior task is not suspended, it * must take suspend/abort the threads when it reads the state. */ int must_suspend_thread = 0; /* When single stepping, we switch the port that mach_really_wait() listens to. * This cleanup is a guard to prevent the port set from being left to * the singlestepped_thread_port when error() is called. * This is nonzero only when we are single stepping. */ #define NULL_CLEANUP (struct cleanup *)0 struct cleanup *cleanup_step = NULL_CLEANUP; extern struct target_ops m3_ops; static void m3_kill_inferior (); #if 0 #define MACH_TYPE_EXCEPTION_PORT -1 #endif /* Chain of ports to remember requested notifications. */ struct port_chain { struct port_chain *next; mach_port_t port; int type; int mid; /* Now only valid with MACH_TYPE_THREAD and */ /* MACH_TYPE_THREAD */ }; typedef struct port_chain *port_chain_t; /* Room for chain nodes comes from pchain_obstack */ struct obstack pchain_obstack; struct obstack *port_chain_obstack = &pchain_obstack; /* For thread handling */ struct obstack Cproc_obstack; struct obstack *cproc_obstack = &Cproc_obstack; /* the list of notified ports */ port_chain_t notify_chain = (port_chain_t) NULL; port_chain_t port_chain_insert (list, name, type) port_chain_t list; mach_port_t name; int type; { kern_return_t ret; port_chain_t new; int mid; if (! MACH_PORT_VALID (name)) return list; if (type == MACH_TYPE_TASK || type == MACH_TYPE_THREAD) { if (! MACH_PORT_VALID (mid_server)) { warning ("Machid server port invalid, can not map port 0x%x to MID", name); mid = name; } else { ret = machid_mach_register (mid_server, mid_auth, name, type, &mid); if (ret != KERN_SUCCESS) { warning ("Can not map name (0x%x) to MID with machid", name); mid = name; } } } else abort (); new = (port_chain_t) obstack_alloc (port_chain_obstack, sizeof (struct port_chain)); new->next = list; new->port = name; new->type = type; new->mid = mid; return new; } port_chain_t port_chain_delete (list, elem) port_chain_t list; mach_port_t elem; { if (list) if (list->port == elem) list = list->next; else while (list->next) { if (list->next->port == elem) list->next = list->next->next; /* GCd with obstack_free() */ else list = list->next; } return list; } void port_chain_destroy (ostack) struct obstack *ostack; { obstack_free (ostack, 0); obstack_init (ostack); } port_chain_t port_chain_member (list, elem) port_chain_t list; mach_port_t elem; { while (list) { if (list->port == elem) return list; list = list->next; } return (port_chain_t) NULL; } int map_port_name_to_mid (name, type) mach_port_t name; int type; { port_chain_t elem; if (!MACH_PORT_VALID (name)) return -1; elem = port_chain_member (notify_chain, name); if (elem && (elem->type == type)) return elem->mid; if (elem) return -1; if (! MACH_PORT_VALID (mid_server)) { warning ("Machid server port invalid, can not map port 0x%x to mid", name); return -1; } else { int mid; kern_return_t ret; ret = machid_mach_register (mid_server, mid_auth, name, type, &mid); if (ret != KERN_SUCCESS) { warning ("Can not map name (0x%x) to mid with machid", name); return -1; } return mid; } } /* Guard for currently_waiting_for and singlestepped_thread_port */ static void discard_single_step (thread) thread_t thread; { currently_waiting_for = inferior_wait_port_set; cleanup_step = NULL_CLEANUP; if (MACH_PORT_VALID (thread) && MACH_PORT_VALID (singlestepped_thread_port)) setup_single_step (thread, FALSE); } setup_single_step (thread, start_step) thread_t thread; boolean_t start_step; { kern_return_t ret; if (! MACH_PORT_VALID (thread)) error ("Invalid thread supplied to setup_single_step"); else { mach_port_t teport; /* Get the current thread exception port */ ret = thread_get_exception_port (thread, &teport); CHK ("Getting thread's exception port", ret); if (start_step) { if (MACH_PORT_VALID (singlestepped_thread_port)) { warning ("Singlestepped_thread_port (0x%x) is still valid?", singlestepped_thread_port); singlestepped_thread_port = MACH_PORT_NULL; } /* If we are already stepping this thread */ if (MACH_PORT_VALID (teport) && teport == thread_exception_port) { ret = mach_port_deallocate (mach_task_self (), teport); CHK ("Could not deallocate thread exception port", ret); } else { ret = thread_set_exception_port (thread, thread_exception_port); CHK ("Setting exception port for thread", ret); #if 0 /* Insert thread exception port to wait port set */ ret = mach_port_move_member (mach_task_self(), thread_exception_port, inferior_wait_port_set); CHK ("Moving thread exception port to inferior_wait_port_set", ret); #endif thread_saved_exception_port = teport; } thread_trace (thread, TRUE); singlestepped_thread_port = thread_exception_port; currently_waiting_for = singlestepped_thread_port; cleanup_step = make_cleanup (discard_single_step, thread); } else { if (! MACH_PORT_VALID (teport)) error ("Single stepped thread had an invalid exception port?"); if (teport != thread_exception_port) error ("Single stepped thread had an unknown exception port?"); ret = mach_port_deallocate (mach_task_self (), teport); CHK ("Couldn't deallocate thread exception port", ret); #if 0 /* Remove thread exception port from wait port set */ ret = mach_port_move_member (mach_task_self(), thread_exception_port, MACH_PORT_NULL); CHK ("Removing thread exception port from inferior_wait_port_set", ret); #endif /* Restore thread's old exception port */ ret = thread_set_exception_port (thread, thread_saved_exception_port); CHK ("Restoring stepped thread's exception port", ret); if (MACH_PORT_VALID (thread_saved_exception_port)) (void) mach_port_deallocate (mach_task_self (), thread_saved_exception_port); thread_trace (thread, FALSE); singlestepped_thread_port = MACH_PORT_NULL; currently_waiting_for = inferior_wait_port_set; if (cleanup_step) discard_cleanups (cleanup_step); } } } static request_notify (name, variant, type) mach_port_t name; mach_msg_id_t variant; int type; { kern_return_t ret; mach_port_t previous_port_dummy = MACH_PORT_NULL; if (! MACH_PORT_VALID (name)) return; if (port_chain_member (notify_chain, name)) return; ret = mach_port_request_notification (mach_task_self(), name, variant, 1, our_notify_port, MACH_MSG_TYPE_MAKE_SEND_ONCE, &previous_port_dummy); CHK ("Serious: request_notify failed", ret); (void) mach_port_deallocate (mach_task_self (), previous_port_dummy); notify_chain = port_chain_insert (notify_chain, name, type); } reverse_msg_bits(msgp, type) mach_msg_header_t *msgp; int type; { int rbits,lbits; rbits = MACH_MSGH_BITS_REMOTE(msgp->msgh_bits); lbits = type; msgp->msgh_bits = (msgp->msgh_bits & ~MACH_MSGH_BITS_PORTS_MASK) | MACH_MSGH_BITS(lbits,rbits); } /* On the third day He said: Let this be global and then it was global. When creating the inferior fork, the child code in inflow.c sets the name of the bootstrap_port in its address space to this variable. The name is transferred to our address space with mach3_read_inferior(). Thou shalt not do this with task_get_bootstrap_port() in this task, since the name in the inferior task is different than the one we get. For blessed are the meek, as they shall inherit the address space. */ mach_port_t original_server_port_name = MACH_PORT_NULL; /* Called from inferior after FORK but before EXEC */ static void m3_trace_me () { kern_return_t ret; /* Get the NAME of the bootstrap port in this task so that GDB can read it */ ret = task_get_bootstrap_port (mach_task_self (), &original_server_port_name); if (ret != KERN_SUCCESS) abort (); ret = mach_port_deallocate (mach_task_self (), original_server_port_name); if (ret != KERN_SUCCESS) abort (); /* Suspend this task to let the parent change my ports. Resumed by the debugger */ ret = task_suspend (mach_task_self ()); if (ret != KERN_SUCCESS) abort (); } /* * Intercept system calls to Unix server. * After EXEC_COUNTER calls to exec(), return. * * Pre-assertion: Child is suspended. (Not verified) * Post-condition: Child is suspended after EXEC_COUNTER exec() calls. */ void intercept_exec_calls (exec_counter) int exec_counter; { int terminal_initted = 0; struct syscall_msg_t { mach_msg_header_t header; mach_msg_type_t type; char room[ 2000 ]; /* Enuff space */ }; struct syscall_msg_t syscall_in, syscall_out; mach_port_t fake_server; mach_port_t original_server_send; mach_port_t original_exec_reply; mach_port_t exec_reply; mach_port_t exec_reply_send; mach_msg_type_name_t acquired; mach_port_t emulator_server_port_name; struct task_basic_info info; mach_msg_type_number_t info_count; kern_return_t ret; if (exec_counter <= 0) return; /* We are already set up in the correct program */ ret = mach_port_allocate(mach_task_self(), MACH_PORT_RIGHT_RECEIVE, &fake_server); CHK("create inferior_fake_server port failed", ret); /* Wait for inferior_task to suspend itself */ while(1) { info_count = sizeof (info); ret = task_info (inferior_task, TASK_BASIC_INFO, (task_info_t)&info, &info_count); CHK ("Task info", ret); if (info.suspend_count) break; /* Note that the definition of the parameter was undefined * at the time of this writing, so I just use an `ad hoc' value. */ (void) swtch_pri (42); /* Universal Priority Value */ } /* Read the inferior's bootstrap port name */ if (!mach3_read_inferior (&original_server_port_name, &original_server_port_name, sizeof (original_server_port_name))) error ("Can't read inferior task bootstrap port name"); /* @@ BUG: If more than 1 send right GDB will FAIL!!! */ /* Should get refs, and set them back when restoring */ /* Steal the original bsd server send right from inferior */ ret = mach_port_extract_right (inferior_task, original_server_port_name, MACH_MSG_TYPE_MOVE_SEND, &original_server_send, &acquired); CHK("mach_port_extract_right (bsd server send)",ret); if (acquired != MACH_MSG_TYPE_PORT_SEND) error("Incorrect right extracted, send right to bsd server excpected"); ret = mach_port_insert_right (inferior_task, original_server_port_name, fake_server, MACH_MSG_TYPE_MAKE_SEND); CHK("mach_port_insert_right (fake server send)",ret); xx_debug ("inferior task bsd server ports set up \nfs %x, ospn %x, oss %x\n", fake_server, original_server_port_name, original_server_send); /* A receive right to the reply generated by unix server exec() request */ ret = mach_port_allocate(mach_task_self(), MACH_PORT_RIGHT_RECEIVE, &exec_reply); CHK("create intercepted_reply_port port failed", ret); /* Pass this send right to Unix server so it replies to us after exec() */ ret = mach_port_extract_right (mach_task_self (), exec_reply, MACH_MSG_TYPE_MAKE_SEND_ONCE, &exec_reply_send, &acquired); CHK("mach_port_extract_right (exec_reply)",ret); if (acquired != MACH_MSG_TYPE_PORT_SEND_ONCE) error("Incorrect right extracted, send once excpected for exec reply"); ret = mach_port_move_member(mach_task_self(), fake_server, inferior_wait_port_set); CHK ("Moving fake syscall port to inferior_wait_port_set", ret); xx_debug ("syscall fake server set up, resuming inferior\n"); ret = task_resume (inferior_task); CHK("task_resume (startup)", ret); /* Read requests from the inferior. Pass directly through everything else except exec() calls. */ while(exec_counter > 0) { ret = mach_msg (&syscall_in.header, /* header */ MACH_RCV_MSG, /* options */ 0, /* send size */ sizeof (struct syscall_msg_t), /* receive size */ inferior_wait_port_set, /* receive_name */ MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); CHK("mach_msg (intercepted sycall)", ret); #ifdef DUMP_SYSCALL print_msg (&syscall_in.header); #endif /* ASSERT : msgh_local_port == fake_server */ if (notify_server (&syscall_in.header, &syscall_out.header)) error ("received a notify while intercepting syscalls"); if (syscall_in.header.msgh_id == MIG_EXEC_SYSCALL_ID) { xx_debug ("Received EXEC SYSCALL, counter = %d\n", exec_counter); if (exec_counter == 1) { original_exec_reply = syscall_in.header.msgh_remote_port; syscall_in.header.msgh_remote_port = exec_reply_send; } if (!terminal_initted) { /* Now that the child has exec'd we know it has already set its process group. On POSIX systems, tcsetpgrp will fail with EPERM if we try it before the child's setpgid. */ /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); terminal_initted = 1; } exec_counter--; } syscall_in.header.msgh_local_port = syscall_in.header.msgh_remote_port; syscall_in.header.msgh_remote_port = original_server_send; reverse_msg_bits(&syscall_in.header, MACH_MSG_TYPE_COPY_SEND); ret = mach_msg_send (&syscall_in.header); CHK ("Forwarded syscall", ret); } ret = mach_port_move_member(mach_task_self(), fake_server, MACH_PORT_NULL); CHK ("Moving fake syscall out of inferior_wait_port_set", ret); ret = mach_port_move_member(mach_task_self(), exec_reply, inferior_wait_port_set); CHK ("Moving exec_reply to inferior_wait_port_set", ret); ret = mach_msg (&syscall_in.header, /* header */ MACH_RCV_MSG, /* options */ 0, /* send size */ sizeof (struct syscall_msg_t), /* receive size */ inferior_wait_port_set, /* receive_name */ MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); CHK("mach_msg (exec reply)", ret); ret = task_suspend (inferior_task); CHK ("Suspending inferior after last exec", ret); must_suspend_thread = 0; xx_debug ("Received exec reply from bsd server, suspended inferior task\n"); #ifdef DUMP_SYSCALL print_msg (&syscall_in.header); #endif /* Message should appear as if it came from the unix server */ syscall_in.header.msgh_local_port = MACH_PORT_NULL; /* and go to the inferior task original reply port */ syscall_in.header.msgh_remote_port = original_exec_reply; reverse_msg_bits(&syscall_in.header, MACH_MSG_TYPE_MOVE_SEND_ONCE); ret = mach_msg_send (&syscall_in.header); CHK ("Forwarding exec reply to inferior", ret); /* Garbage collect */ ret = mach_port_deallocate (inferior_task, original_server_port_name); CHK ("deallocating fake server send right", ret); ret = mach_port_insert_right (inferior_task, original_server_port_name, original_server_send, MACH_MSG_TYPE_MOVE_SEND); CHK ("Restoring the original bsd server send right", ret); ret = mach_port_destroy (mach_task_self (), fake_server); fake_server = MACH_PORT_DEAD; CHK("mach_port_destroy (fake_server)", ret); ret = mach_port_destroy (mach_task_self (), exec_reply); exec_reply = MACH_PORT_DEAD; CHK("mach_port_destroy (exec_reply)", ret); xx_debug ("Done with exec call interception\n"); } void consume_send_rights (thread_list, thread_count) thread_array_t thread_list; int thread_count; { int index; if (!thread_count) return; for (index = 0; index < thread_count; index++) { /* Since thread kill command kills threads, don't check ret */ (void) mach_port_deallocate (mach_task_self (), thread_list [ index ]); } } /* suspend/abort/resume a thread. */ setup_thread (thread, what) mach_port_t thread; int what; { kern_return_t ret; if (what) { ret = thread_suspend (thread); CHK ("setup_thread thread_suspend", ret); ret = thread_abort (thread); CHK ("setup_thread thread_abort", ret); } else { ret = thread_resume (thread); CHK ("setup_thread thread_resume", ret); } } int map_slot_to_mid (slot, threads, thread_count) int slot; thread_array_t threads; int thread_count; { kern_return_t ret; int deallocate = 0; int index; int mid; if (! threads) { deallocate++; ret = task_threads (inferior_task, &threads, &thread_count); CHK ("Can not select a thread from a dead task", ret); } if (slot < 0 || slot >= thread_count) { if (deallocate) { consume_send_rights (threads, thread_count); (void) vm_deallocate (mach_task_self(), (vm_address_t)threads, (thread_count * sizeof(mach_port_t))); } if (slot < 0) error ("invalid slot number"); else return -(slot+1); } mid = map_port_name_to_mid (threads [slot], MACH_TYPE_THREAD); if (deallocate) { consume_send_rights (threads, thread_count); (void) vm_deallocate (mach_task_self(), (vm_address_t)threads, (thread_count * sizeof(mach_port_t))); } return mid; } static int parse_thread_id (arg, thread_count, slots) char *arg; int thread_count; int slots; { kern_return_t ret; int mid; int slot; int index; if (arg == 0) return 0; while (*arg && (*arg == ' ' || *arg == '\t')) arg++; if (! *arg) return 0; /* Currently parse MID and @SLOTNUMBER */ if (*arg != '@') { mid = atoi (arg); if (mid <= 0) error ("valid thread mid expected"); return mid; } arg++; slot = atoi (arg); if (slot < 0) error ("invalid slot number"); /* If you want slot numbers to remain slot numbers, set slots. * * Well, since 0 is reserved, return the ordinal number * of the thread rather than the slot number. Awk, this * counts as a kludge. */ if (slots) return -(slot+1); if (thread_count && slot >= thread_count) return -(slot+1); mid = map_slot_to_mid (slot); return mid; } /* THREAD_ID 0 is special; it selects the first kernel * thread from the list (i.e. SLOTNUMBER 0) * This is used when starting the program with 'run' or when attaching. * * If FLAG is 0 the context is not changed, and the registers, frame, etc * will continue to describe the old thread. * * If FLAG is nonzero, really select the thread. * If FLAG is 2, the THREAD_ID is a slotnumber instead of a mid. * */ kern_return_t select_thread (task, thread_id, flag) mach_port_t task; int thread_id; int flag; { thread_array_t thread_list; int thread_count; kern_return_t ret; int index; thread_t new_thread = MACH_PORT_NULL; if (thread_id < 0) error ("Can't select cprocs without kernel thread"); ret = task_threads (task, &thread_list, &thread_count); if (ret != KERN_SUCCESS) { warning ("Can not select a thread from a dead task"); m3_kill_inferior (); return KERN_FAILURE; } if (thread_count == 0) { /* The task can not do anything anymore, but it still * exists as a container for memory and ports. */ registers_changed (); warning ("Task %d has no threads", map_port_name_to_mid (task, MACH_TYPE_TASK)); current_thread = MACH_PORT_NULL; (void) vm_deallocate(mach_task_self(), (vm_address_t) thread_list, (thread_count * sizeof(mach_port_t))); return KERN_FAILURE; } if (! thread_id || flag == 2) { /* First thread or a slotnumber */ if (! thread_id) new_thread = thread_list[0]; else { if (thread_id < thread_count) new_thread = thread_list[ thread_id ]; else { (void) vm_deallocate(mach_task_self(), (vm_address_t) thread_list, (thread_count * sizeof(mach_port_t))); error ("No such thread slot number : %d", thread_id); } } } else { for (index = 0; index < thread_count; index++) if (thread_id == map_port_name_to_mid (thread_list [index], MACH_TYPE_THREAD)) { new_thread = thread_list [index]; index = -1; break; } if (index != -1) error ("No thread with mid %d", thread_id); } /* Notify when the selected thread dies */ request_notify (new_thread, MACH_NOTIFY_DEAD_NAME, MACH_TYPE_THREAD); ret = vm_deallocate(mach_task_self(), (vm_address_t) thread_list, (thread_count * sizeof(mach_port_t))); CHK ("vm_deallocate", ret); if (! flag) current_thread = new_thread; else { #if 0 if (MACH_PORT_VALID (current_thread)) { /* Store the gdb's view of the thread we are deselecting * * @@ I think gdb updates registers immediately when they are * changed, so don't do this. */ ret = thread_abort (current_thread); CHK ("Could not abort system calls when saving state of old thread", ret); target_prepare_to_store (); target_store_registers (-1); } #endif registers_changed (); current_thread = new_thread; ret = thread_abort (current_thread); CHK ("Could not abort system calls when selecting a thread", ret); stop_pc = read_pc(); set_current_frame (create_new_frame (read_register (FP_REGNUM), stop_pc)); select_frame (get_current_frame (), 0); stop_frame_address = FRAME_FP (get_current_frame ()); } return KERN_SUCCESS; } /* * Switch to use thread named NEW_THREAD. * Return it's MID */ int switch_to_thread (new_thread) thread_t new_thread; { thread_t saved_thread = current_thread; int mid; mid = map_port_name_to_mid (new_thread, MACH_TYPE_THREAD); if (mid == -1) warning ("Can't map thread name 0x%x to mid", new_thread); else if (select_thread (inferior_task, mid, 1) != KERN_SUCCESS) { if (current_thread) current_thread = saved_thread; error ("Could not select thread %d", mid); } return mid; } /* Do this in gdb after doing FORK but before STARTUP_INFERIOR. * Note that the registers are not yet valid in the inferior task. */ static void m3_trace_him (pid) int pid; { kern_return_t ret; push_target (&m3_ops); inferior_task = task_by_pid (pid); if (! MACH_PORT_VALID (inferior_task)) error ("Can not map Unix pid %d to Mach task", pid); /* Clean up previous notifications and create new ones */ setup_notify_port (1); /* When notification appears, the inferior task has died */ request_notify (inferior_task, MACH_NOTIFY_DEAD_NAME, MACH_TYPE_TASK); emulator_present = have_emulator_p (inferior_task); /* By default, select the first thread, * If task has no threads, gives a warning * Does not fetch registers, since they are not yet valid. */ select_thread (inferior_task, 0, 0); inferior_exception_port = MACH_PORT_NULL; setup_exception_port (); xx_debug ("Now the debugged task is created\n"); /* One trap to exec the shell, one to exec the program being debugged. */ intercept_exec_calls (2); } setup_exception_port () { kern_return_t ret; ret = mach_port_allocate (mach_task_self(), MACH_PORT_RIGHT_RECEIVE, &inferior_exception_port); CHK("mach_port_allocate",ret); /* add send right */ ret = mach_port_insert_right (mach_task_self (), inferior_exception_port, inferior_exception_port, MACH_MSG_TYPE_MAKE_SEND); CHK("mach_port_insert_right",ret); ret = mach_port_move_member (mach_task_self(), inferior_exception_port, inferior_wait_port_set); CHK("mach_port_move_member",ret); ret = task_get_special_port (inferior_task, TASK_EXCEPTION_PORT, &inferior_old_exception_port); CHK ("task_get_special_port(old exc)",ret); ret = task_set_special_port (inferior_task, TASK_EXCEPTION_PORT, inferior_exception_port); CHK("task_set_special_port",ret); ret = mach_port_deallocate (mach_task_self (), inferior_exception_port); CHK("mack_port_deallocate",ret); #if 0 /* When notify appears, the inferior_task's exception * port has been destroyed. * * Not used, since the dead_name_notification already * appears when task dies. * */ request_notify (inferior_exception_port, MACH_NOTIFY_NO_SENDERS, MACH_TYPE_EXCEPTION_PORT); #endif } /* Nonzero if gdb is waiting for a message */ int mach_really_waiting; /* Wait for the inferior to stop for some reason. - Loop on notifications until inferior_task dies. - Loop on exceptions until stopped_in_exception comes true. (e.g. we receive a single step trace trap) - a message arrives to gdb's message port There is no other way to exit this loop. Returns the inferior_pid for rest of gdb. Side effects: Set *OURSTATUS. */ int mach_really_wait (pid, ourstatus) int pid; struct target_waitstatus *ourstatus; { kern_return_t ret; int w; struct msg { mach_msg_header_t header; mach_msg_type_t foo; int data[8000]; } in_msg, out_msg; /* Either notify (death), exception or message can stop the inferior */ stopped_in_exception = FALSE; while (1) { QUIT; stop_exception = stop_code = stop_subcode = -1; stop_thread = MACH_PORT_NULL; mach_really_waiting = 1; ret = mach_msg (&in_msg.header, /* header */ MACH_RCV_MSG, /* options */ 0, /* send size */ sizeof (struct msg), /* receive size */ currently_waiting_for, /* receive name */ MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); mach_really_waiting = 0; CHK("mach_msg (receive)", ret); /* Check if we received a notify of the childs' death */ if (notify_server (&in_msg.header, &out_msg.header)) { /* If inferior_task is null then the inferior has gone away and we want to return to command level. Otherwise it was just an informative message and we need to look to see if there are any more. */ if (inferior_task != MACH_PORT_NULL) continue; else { /* Collect Unix exit status for gdb */ wait3(&w, WNOHANG, 0); /* This mess is here to check that the rest of * gdb knows that the inferior died. It also * tries to hack around the fact that Mach 3.0 (mk69) * unix server (ux28) does not always know what * has happened to it's children when mach-magic * is applied on them. */ if ((!WIFEXITED(w) && WIFSTOPPED(w)) || (WIFEXITED(w) && WEXITSTATUS(w) > 0377)) { WSETEXIT(w, 0); warning ("Using exit value 0 for terminated task"); } else if (!WIFEXITED(w)) { int sig = WTERMSIG(w); /* Signals cause problems. Warn the user. */ if (sig != SIGKILL) /* Bad luck if garbage matches this */ warning ("The terminating signal stuff may be nonsense"); else if (sig > NSIG) { WSETEXIT(w, 0); warning ("Using exit value 0 for terminated task"); } } store_waitstatus (ourstatus, w); return inferior_pid; } } /* Hmm. Check for exception, as it was not a notification. exc_server() does an upcall to catch_exception_raise() if this rpc is an exception. Further actions are decided there. */ if (! exc_server (&in_msg.header, &out_msg.header)) { /* Not an exception, check for message. * * Messages don't come from the inferior, or if they * do they better be asynchronous or it will hang. */ if (gdb_message_server (&in_msg.header)) continue; error ("Unrecognized message received in mach_really_wait"); } /* Send the reply of the exception rpc to the suspended task */ ret = mach_msg_send (&out_msg.header); CHK ("mach_msg_send (exc reply)", ret); if (stopped_in_exception) { /* Get unix state. May be changed in mach3_exception_actions() */ wait3(&w, WNOHANG, 0); mach3_exception_actions (&w, FALSE, "Task"); store_waitstatus (ourstatus, w); return inferior_pid; } } } /* Called by macro DO_QUIT() in utils.c(quit). * This is called just before calling error() to return to command level */ void mach3_quit () { int mid; kern_return_t ret; if (mach_really_waiting) { ret = task_suspend (inferior_task); if (ret != KERN_SUCCESS) { warning ("Could not suspend task for interrupt: %s", mach_error_string (ret)); mach_really_waiting = 0; return; } } must_suspend_thread = 0; mach_really_waiting = 0; mid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD); if (mid == -1) { warning ("Selecting first existing kernel thread"); mid = 0; } current_thread = MACH_PORT_NULL; /* Force setup */ select_thread (inferior_task, mid, 1); return; } #if 0 /* bogus bogus bogus. It is NOT OK to quit out of target_wait. */ /* If ^C is typed when we are waiting for a message * and your Unix server is able to notice that we * should quit now. * * Called by REQUEST_QUIT() from utils.c(request_quit) */ void mach3_request_quit () { if (mach_really_waiting) immediate_quit = 1; } #endif /* * Gdb message server. * Currently implemented is the STOP message, that causes * gdb to return to the command level like ^C had been typed from terminal. */ int gdb_message_server (InP) mach_msg_header_t *InP; { kern_return_t ret; int mid; if (InP->msgh_local_port == our_message_port) { /* A message coming to our_message_port. Check validity */ switch (InP->msgh_id) { case GDB_MESSAGE_ID_STOP: ret = task_suspend (inferior_task); if (ret != KERN_SUCCESS) warning ("Could not suspend task for stop message: %s", mach_error_string (ret)); /* QUIT in mach_really_wait() loop. */ request_quit (0); break; default: warning ("Invalid message id %d received, ignored.", InP->msgh_id); break; } return 1; } /* Message not handled by this server */ return 0; } /* NOTE: This is not an RPC call. It is a simpleroutine. * * This is not called from this gdb code. * * It may be called by another debugger to cause this * debugger to enter command level: * * (gdb) set stop_inferior_gdb () * (gdb) continue * * External program "stop-gdb" implements this also. */ void stop_inferior_gdb () { kern_return_t ret; /* Code generated by mig, with minor cleanups :-) * * simpleroutine stop_inferior_gdb (our_message_port : mach_port_t); */ typedef struct { mach_msg_header_t Head; } Request; Request Mess; register Request *InP = &Mess; InP->Head.msgh_bits = MACH_MSGH_BITS(MACH_MSG_TYPE_COPY_SEND, 0); /* msgh_size passed as argument */ InP->Head.msgh_remote_port = our_message_port; InP->Head.msgh_local_port = MACH_PORT_NULL; InP->Head.msgh_seqno = 0; InP->Head.msgh_id = GDB_MESSAGE_ID_STOP; ret = mach_msg (&InP->Head, MACH_SEND_MSG|MACH_MSG_OPTION_NONE, sizeof(Request), 0, MACH_PORT_NULL, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); } #ifdef THREAD_ALLOWED_TO_BREAK /* * Return 1 if the MID specifies the thread that caused the * last exception. * Since catch_exception_raise() selects the thread causing * the last exception to current_thread, we just check that * it is selected and the last exception was a breakpoint. */ int mach_thread_for_breakpoint (mid) int mid; { int cmid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD); if (mid < 0) { mid = map_slot_to_mid (-(mid+1), 0, 0); if (mid < 0) return 0; /* Don't stop, no such slot */ } if (! mid || cmid == -1) return 1; /* stop */ return cmid == mid && stop_exception == EXC_BREAKPOINT; } #endif /* THREAD_ALLOWED_TO_BREAK */ #ifdef THREAD_PARSE_ID /* * Map a thread id string (MID or a @SLOTNUMBER) * to a thread-id. * * 0 matches all threads. * Otherwise the meaning is defined only in this file. * (mach_thread_for_breakpoint uses it) * * @@ This allows non-existent MIDs to be specified. * It now also allows non-existent slots to be * specified. (Slot numbers stored are negative, * and the magnitude is one greater than the actual * slot index. (Since 0 is reserved)) */ int mach_thread_parse_id (arg) char *arg; { int mid; if (arg == 0) error ("thread id excpected"); mid = parse_thread_id (arg, 0, 1); return mid; } #endif /* THREAD_PARSE_ID */ #ifdef THREAD_OUTPUT_ID char * mach_thread_output_id (mid) int mid; { static char foobar [20]; if (mid > 0) sprintf (foobar, "mid %d", mid); else if (mid < 0) sprintf (foobar, "@%d", -(mid+1)); else sprintf (foobar, "*any thread*"); return foobar; } #endif /* THREAD_OUTPUT_ID */ /* Called with hook PREPARE_TO_PROCEED() from infrun.c. * * If we have switched threads and stopped at breakpoint return 1 otherwise 0. * * if SELECT_IT is nonzero, reselect the thread that was active when * we stopped at a breakpoint. * */ mach3_prepare_to_proceed (select_it) int select_it; { if (stop_thread && stop_thread != current_thread && stop_exception == EXC_BREAKPOINT) { int mid; if (! select_it) return 1; mid = switch_to_thread (stop_thread); return 1; } return 0; } /* this stuff here is an upcall via libmach/excServer.c and mach_really_wait which does the actual upcall. The code will pass the exception to the inferior if: - The task that signaled is not the inferior task (e.g. when debugging another debugger) - The user has explicitely requested to pass on the exceptions. (e.g to the default unix exception handler, which maps exceptions to signals, or the user has her own exception handler) - If the thread that signaled is being single-stepped and it has set it's own exception port and the exception is not EXC_BREAKPOINT. (Maybe this is not desirable?) */ kern_return_t catch_exception_raise (port, thread, task, exception, code, subcode) mach_port_t port; thread_t thread; task_t task; int exception, code, subcode; { kern_return_t ret; boolean_t signal_thread; int mid = map_port_name_to_mid (thread, MACH_TYPE_THREAD); if (! MACH_PORT_VALID (thread)) { /* If the exception was sent and thread dies before we receive it, THREAD will be MACH_PORT_DEAD */ current_thread = thread = MACH_PORT_NULL; error ("Received exception from nonexistent thread"); } /* Check if the task died in transit. * @@ Isn't the thread also invalid in such case? */ if (! MACH_PORT_VALID (task)) { current_thread = thread = MACH_PORT_NULL; error ("Received exception from nonexistent task"); } if (exception < 0 || exception > MAX_EXCEPTION) fatal ("catch_exception_raise: unknown exception code %d thread %d", exception, mid); if (! MACH_PORT_VALID (inferior_task)) error ("got an exception, but inferior_task is null or dead"); stop_exception = exception; stop_code = code; stop_subcode = subcode; stop_thread = thread; signal_thread = exception != EXC_BREAKPOINT && port == singlestepped_thread_port && MACH_PORT_VALID (thread_saved_exception_port); /* If it was not our inferior or if we want to forward * the exception to the inferior's handler, do it here * * Note: If you have forwarded EXC_BREAKPOINT I trust you know why. */ if (task != inferior_task || signal_thread || exception_map [exception].forward) { mach_port_t eport = inferior_old_exception_port; if (signal_thread) { /* GDB now forwards the exeption to thread's original handler, since the user propably knows what he is doing. Give a message, though. */ mach3_exception_actions ((WAITTYPE *)NULL, TRUE, "Thread"); eport = thread_saved_exception_port; } /* Send the exception to the original handler */ ret = exception_raise (eport, thread, task, exception, code, subcode); (void) mach_port_deallocate (mach_task_self (), task); (void) mach_port_deallocate (mach_task_self (), thread); /* If we come here, we don't want to trace any more, since we * will never stop for tracing anyway. */ discard_single_step (thread); /* Do not stop the inferior */ return ret; } /* Now gdb handles the exception */ stopped_in_exception = TRUE; ret = task_suspend (task); CHK ("Error suspending inferior after exception", ret); must_suspend_thread = 0; if (current_thread != thread) { if (MACH_PORT_VALID (singlestepped_thread_port)) /* Cleanup discards single stepping */ error ("Exception from thread %d while singlestepping thread %d", mid, map_port_name_to_mid (current_thread, MACH_TYPE_THREAD)); /* Then select the thread that caused the exception */ if (select_thread (inferior_task, mid, 0) != KERN_SUCCESS) error ("Could not select thread %d causing exception", mid); else warning ("Gdb selected thread %d", mid); } /* If we receive an exception that is not breakpoint * exception, we interrupt the single step and return to * debugger. Trace condition is cleared. */ if (MACH_PORT_VALID (singlestepped_thread_port)) { if (stop_exception != EXC_BREAKPOINT) warning ("Single step interrupted by exception"); else if (port == singlestepped_thread_port) { /* Single step exception occurred, remove trace bit * and return to gdb. */ if (! MACH_PORT_VALID (current_thread)) error ("Single stepped thread is not valid"); /* Resume threads, but leave the task suspended */ resume_all_threads (0); } else warning ("Breakpoint while single stepping?"); discard_single_step (current_thread); } (void) mach_port_deallocate (mach_task_self (), task); (void) mach_port_deallocate (mach_task_self (), thread); return KERN_SUCCESS; } int port_valid (port, mask) mach_port_t port; int mask; { kern_return_t ret; mach_port_type_t type; ret = mach_port_type (mach_task_self (), port, &type); if (ret != KERN_SUCCESS || (type & mask) != mask) return 0; return 1; } /* @@ No vm read cache implemented yet */ boolean_t vm_read_cache_valid = FALSE; /* * Read inferior task's LEN bytes from ADDR and copy it to MYADDR * in gdb's address space. * * Return 0 on failure; number of bytes read otherwise. */ int mach3_read_inferior (addr, myaddr, length) CORE_ADDR addr; char *myaddr; int length; { kern_return_t ret; vm_address_t low_address = (vm_address_t) trunc_page (addr); vm_size_t aligned_length = (vm_size_t) round_page (addr+length) - low_address; pointer_t copied_memory; int copy_count; /* Get memory from inferior with page aligned addresses */ ret = vm_read (inferior_task, low_address, aligned_length, &copied_memory, ©_count); if (ret != KERN_SUCCESS) { /* the problem is that the inferior might be killed for whatever reason * before we go to mach_really_wait. This is one place that ought to * catch many of those errors. * @@ A better fix would be to make all external events to GDB * to arrive via a SINGLE port set. (Including user input!) */ if (! port_valid (inferior_task, MACH_PORT_TYPE_SEND)) { m3_kill_inferior (); error ("Inferior killed (task port invalid)"); } else { #ifdef OSF extern int errno; /* valprint.c gives nicer format if this does not screw it. Eamonn seems to like this, so I enable it if OSF is defined... */ warning ("[read inferior %x failed: %s]", addr, mach_error_string (ret)); errno = 0; #endif return 0; } } memcpy (myaddr, (char *)addr - low_address + copied_memory, length); ret = vm_deallocate (mach_task_self (), copied_memory, copy_count); CHK("mach3_read_inferior vm_deallocate failed", ret); return length; } #ifdef __STDC__ #define CHK_GOTO_OUT(str,ret) \ do if (ret != KERN_SUCCESS) { errstr = #str; goto out; } while(0) #else #define CHK_GOTO_OUT(str,ret) \ do if (ret != KERN_SUCCESS) { errstr = str; goto out; } while(0) #endif struct vm_region_list { struct vm_region_list *next; vm_prot_t protection; vm_address_t start; vm_size_t length; }; struct obstack region_obstack; /* * Write inferior task's LEN bytes from ADDR and copy it to MYADDR * in gdb's address space. */ int mach3_write_inferior (addr, myaddr, length) CORE_ADDR addr; char *myaddr; int length; { kern_return_t ret; vm_address_t low_address = (vm_address_t) trunc_page (addr); vm_size_t aligned_length = (vm_size_t) round_page (addr+length) - low_address; pointer_t copied_memory; int copy_count; int deallocate = 0; char *errstr = "Bug in mach3_write_inferior"; struct vm_region_list *region_element; struct vm_region_list *region_head = (struct vm_region_list *)NULL; /* Get memory from inferior with page aligned addresses */ ret = vm_read (inferior_task, low_address, aligned_length, &copied_memory, ©_count); CHK_GOTO_OUT ("mach3_write_inferior vm_read failed", ret); deallocate++; memcpy ((char *)addr - low_address + copied_memory, myaddr, length); obstack_init (®ion_obstack); /* Do writes atomically. * First check for holes and unwritable memory. */ { vm_size_t remaining_length = aligned_length; vm_address_t region_address = low_address; struct vm_region_list *scan; while(region_address < low_address + aligned_length) { vm_prot_t protection; vm_prot_t max_protection; vm_inherit_t inheritance; boolean_t shared; mach_port_t object_name; vm_offset_t offset; vm_size_t region_length = remaining_length; vm_address_t old_address = region_address; ret = vm_region (inferior_task, ®ion_address, ®ion_length, &protection, &max_protection, &inheritance, &shared, &object_name, &offset); CHK_GOTO_OUT ("vm_region failed", ret); /* Check for holes in memory */ if (old_address != region_address) { warning ("No memory at 0x%x. Nothing written", old_address); ret = KERN_SUCCESS; length = 0; goto out; } if (!(max_protection & VM_PROT_WRITE)) { warning ("Memory at address 0x%x is unwritable. Nothing written", old_address); ret = KERN_SUCCESS; length = 0; goto out; } /* Chain the regions for later use */ region_element = (struct vm_region_list *) obstack_alloc (®ion_obstack, sizeof (struct vm_region_list)); region_element->protection = protection; region_element->start = region_address; region_element->length = region_length; /* Chain the regions along with protections */ region_element->next = region_head; region_head = region_element; region_address += region_length; remaining_length = remaining_length - region_length; } /* If things fail after this, we give up. * Somebody is messing up inferior_task's mappings. */ /* Enable writes to the chained vm regions */ for (scan = region_head; scan; scan = scan->next) { boolean_t protection_changed = FALSE; if (!(scan->protection & VM_PROT_WRITE)) { ret = vm_protect (inferior_task, scan->start, scan->length, FALSE, scan->protection | VM_PROT_WRITE); CHK_GOTO_OUT ("vm_protect: enable write failed", ret); } } ret = vm_write (inferior_task, low_address, copied_memory, aligned_length); CHK_GOTO_OUT ("vm_write failed", ret); /* Set up the original region protections, if they were changed */ for (scan = region_head; scan; scan = scan->next) { boolean_t protection_changed = FALSE; if (!(scan->protection & VM_PROT_WRITE)) { ret = vm_protect (inferior_task, scan->start, scan->length, FALSE, scan->protection); CHK_GOTO_OUT ("vm_protect: enable write failed", ret); } } } out: if (deallocate) { obstack_free (®ion_obstack, 0); (void) vm_deallocate (mach_task_self (), copied_memory, copy_count); } if (ret != KERN_SUCCESS) { warning ("%s %s", errstr, mach_error_string (ret)); return 0; } return length; } /* Return 0 on failure, number of bytes handled otherwise. */ static int m3_xfer_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* IGNORED */ { int result; if (write) result = mach3_write_inferior (memaddr, myaddr, len); else result = mach3_read_inferior (memaddr, myaddr, len); return result; } static char * translate_state(state) int state; { switch (state) { case TH_STATE_RUNNING: return("R"); case TH_STATE_STOPPED: return("S"); case TH_STATE_WAITING: return("W"); case TH_STATE_UNINTERRUPTIBLE: return("U"); case TH_STATE_HALTED: return("H"); default: return("?"); } } static char * translate_cstate (state) int state; { switch (state) { case CPROC_RUNNING: return "R"; case CPROC_SWITCHING: return "S"; case CPROC_BLOCKED: return "B"; case CPROC_CONDWAIT: return "C"; case CPROC_CONDWAIT|CPROC_SWITCHING: return "CS"; default: return "?"; } } /* type == MACH_MSG_TYPE_COPY_SEND || type == MACH_MSG_TYPE_MAKE_SEND */ mach_port_t /* no mach_port_name_t found in include files. */ map_inferior_port_name (inferior_name, type) mach_port_t inferior_name; mach_msg_type_name_t type; { kern_return_t ret; mach_msg_type_name_t acquired; mach_port_t iport; ret = mach_port_extract_right (inferior_task, inferior_name, type, &iport, &acquired); CHK("mach_port_extract_right (map_inferior_port_name)", ret); if (acquired != MACH_MSG_TYPE_PORT_SEND) error("Incorrect right extracted, (map_inferior_port_name)"); ret = mach_port_deallocate (mach_task_self (), iport); CHK ("Deallocating mapped port (map_inferior_port_name)", ret); return iport; } /* * Naming convention: * Always return user defined name if found. * _K == A kernel thread with no matching CPROC * _C == A cproc with no current cthread * _t == A cthread with no user defined name * * The digits that follow the _names are the SLOT number of the * kernel thread if there is such a thing, otherwise just a negation * of the sequential number of such cprocs. */ static char buf[7]; static char * get_thread_name (one_cproc, id) gdb_thread_t one_cproc; int id; { if (one_cproc) if (one_cproc->cthread == NULL) { /* cproc not mapped to any cthread */ sprintf(buf, "_C%d", id); } else if (! one_cproc->cthread->name) { /* cproc and cthread, but no name */ sprintf(buf, "_t%d", id); } else return (char *)(one_cproc->cthread->name); else { if (id < 0) warning ("Inconsistency in thread name id %d", id); /* Kernel thread without cproc */ sprintf(buf, "_K%d", id); } return buf; } int fetch_thread_info (task, mthreads_out) mach_port_t task; gdb_thread_t *mthreads_out; /* out */ { kern_return_t ret; thread_array_t th_table; int th_count; gdb_thread_t mthreads = NULL; int index; ret = task_threads (task, &th_table, &th_count); if (ret != KERN_SUCCESS) { warning ("Error getting inferior's thread list:%s", mach_error_string(ret)); m3_kill_inferior (); return -1; } mthreads = (gdb_thread_t) obstack_alloc (cproc_obstack, th_count * sizeof (struct gdb_thread)); for (index = 0; index < th_count; index++) { thread_t saved_thread = MACH_PORT_NULL; int mid; if (must_suspend_thread) setup_thread (th_table[ index ], 1); if (th_table[index] != current_thread) { saved_thread = current_thread; mid = switch_to_thread (th_table[ index ]); } mthreads[index].name = th_table[index]; mthreads[index].cproc = NULL; /* map_cprocs_to_kernel_threads() */ mthreads[index].in_emulator = FALSE; mthreads[index].slotid = index; mthreads[index].sp = read_register (SP_REGNUM); mthreads[index].fp = read_register (FP_REGNUM); mthreads[index].pc = read_pc (); if (MACH_PORT_VALID (saved_thread)) mid = switch_to_thread (saved_thread); if (must_suspend_thread) setup_thread (th_table[ index ], 0); } consume_send_rights (th_table, th_count); ret = vm_deallocate (mach_task_self(), (vm_address_t)th_table, (th_count * sizeof(mach_port_t))); if (ret != KERN_SUCCESS) { warning ("Error trying to deallocate thread list : %s", mach_error_string (ret)); } *mthreads_out = mthreads; return th_count; } /* * Current emulator always saves the USP on top of * emulator stack below struct emul_stack_top stuff. */ CORE_ADDR fetch_usp_from_emulator_stack (sp) CORE_ADDR sp; { CORE_ADDR stack_pointer; sp = (sp & ~(EMULATOR_STACK_SIZE-1)) + EMULATOR_STACK_SIZE - sizeof (struct emul_stack_top); if (mach3_read_inferior (sp, &stack_pointer, sizeof (CORE_ADDR)) != sizeof (CORE_ADDR)) { warning ("Can't read user sp from emulator stack address 0x%x", sp); return 0; } return stack_pointer; } #ifdef MK67 /* get_emulation_vector() interface was changed after mk67 */ #define EMUL_VECTOR_COUNT 400 /* Value does not matter too much */ #endif /* MK67 */ /* Check if the emulator exists at task's address space. */ boolean_t have_emulator_p (task) task_t task; { kern_return_t ret; #ifndef EMUL_VECTOR_COUNT vm_offset_t *emulation_vector; int n; #else vm_offset_t emulation_vector[ EMUL_VECTOR_COUNT ]; int n = EMUL_VECTOR_COUNT; #endif int i; int vector_start; ret = task_get_emulation_vector (task, &vector_start, #ifndef EMUL_VECTOR_COUNT &emulation_vector, #else emulation_vector, #endif &n); CHK("task_get_emulation_vector", ret); xx_debug ("%d vectors from %d at 0x%08x\n", n, vector_start, emulation_vector); for(i = 0; i < n; i++) { vm_offset_t entry = emulation_vector [i]; if (EMULATOR_BASE <= entry && entry <= EMULATOR_END) return TRUE; else if (entry) { static boolean_t informed = FALSE; if (!informed) { warning("Emulation vector address 0x08%x outside emulator space", entry); informed = TRUE; } } } return FALSE; } /* Map cprocs to kernel threads and vice versa. */ void map_cprocs_to_kernel_threads (cprocs, mthreads, thread_count) gdb_thread_t cprocs; gdb_thread_t mthreads; int thread_count; { int index; gdb_thread_t scan; boolean_t all_mapped = TRUE; LONGEST stack_base; LONGEST stack_size; for (scan = cprocs; scan; scan = scan->next) { /* Default to: no kernel thread for this cproc */ scan->reverse_map = -1; /* Check if the cproc is found by its stack */ for (index = 0; index < thread_count; index++) { stack_base = extract_signed_integer (scan->raw_cproc + CPROC_BASE_OFFSET, CPROC_BASE_SIZE); stack_size = extract_signed_integer (scan->raw_cproc + CPROC_SIZE_OFFSET, CPROC_SIZE_SIZE); if ((mthreads + index)->sp > stack_base && (mthreads + index)->sp <= stack_base + stack_size) { (mthreads + index)->cproc = scan; scan->reverse_map = index; break; } } all_mapped &= (scan->reverse_map != -1); } /* Check for threads that are currently in the emulator. * If so, they have a different stack, and the still unmapped * cprocs may well get mapped to these threads. * * If: * - cproc stack does not match any kernel thread stack pointer * - there is at least one extra kernel thread * that has no cproc mapped above. * - some kernel thread stack pointer points to emulator space * then we find the user stack pointer saved in the emulator * stack, and try to map that to the cprocs. * * Also set in_emulator for kernel threads. */ if (emulator_present) { for (index = 0; index < thread_count; index++) { CORE_ADDR emul_sp; CORE_ADDR usp; gdb_thread_t mthread = (mthreads+index); emul_sp = mthread->sp; if (mthread->cproc == NULL && EMULATOR_BASE <= emul_sp && emul_sp <= EMULATOR_END) { mthread->in_emulator = emulator_present; if (!all_mapped && cprocs) { usp = fetch_usp_from_emulator_stack (emul_sp); /* @@ Could be more accurate */ if (! usp) error ("Zero stack pointer read from emulator?"); /* Try to match this stack pointer to the cprocs that * don't yet have a kernel thread. */ for (scan = cprocs; scan; scan = scan->next) { /* Check is this unmapped CPROC stack contains * the user stack pointer saved in the * emulator. */ if (scan->reverse_map == -1) { stack_base = extract_signed_integer (scan->raw_cproc + CPROC_BASE_OFFSET, CPROC_BASE_SIZE); stack_size = extract_signed_integer (scan->raw_cproc + CPROC_SIZE_OFFSET, CPROC_SIZE_SIZE); if (usp > stack_base && usp <= stack_base + stack_size) { mthread->cproc = scan; scan->reverse_map = index; break; } } } } } } } } /* * Format of the thread_list command * * slot mid sel name emul ks susp cstate wired address */ #define TL_FORMAT "%-2.2s %5d%c %-10.10s %1.1s%s%-5.5s %-2.2s %-5.5s " #define TL_HEADER "\n@ MID Name KState CState Where\n" void print_tl_address (stream, pc) GDB_FILE *stream; CORE_ADDR pc; { if (! lookup_minimal_symbol_by_pc (pc)) fprintf_filtered (stream, local_hex_format(), pc); else { extern int addressprint; extern int asm_demangle; int store = addressprint; addressprint = 0; print_address_symbolic (pc, stream, asm_demangle, ""); addressprint = store; } } /* For thread names, but also for gdb_message_port external name */ #define MAX_NAME_LEN 50 /* Returns the address of variable NAME or 0 if not found */ CORE_ADDR lookup_address_of_variable (name) char *name; { struct symbol *sym; CORE_ADDR symaddr = 0; struct minimal_symbol *msymbol; sym = lookup_symbol (name, (struct block *)NULL, VAR_NAMESPACE, (int *)NULL, (struct symtab **)NULL); if (sym) symaddr = SYMBOL_VALUE (sym); if (! symaddr) { msymbol = lookup_minimal_symbol (name, (struct objfile *) NULL); if (msymbol && msymbol->type == mst_data) symaddr = SYMBOL_VALUE_ADDRESS (msymbol); } return symaddr; } static gdb_thread_t get_cprocs() { gdb_thread_t cproc_head; gdb_thread_t cproc_copy; CORE_ADDR their_cprocs; char *buf[TARGET_PTR_BIT / HOST_CHAR_BIT]; char *name; cthread_t cthread; CORE_ADDR symaddr; symaddr = lookup_address_of_variable ("cproc_list"); if (! symaddr) { /* cproc_list is not in a file compiled with debugging symbols, but don't give up yet */ symaddr = lookup_address_of_variable ("cprocs"); if (symaddr) { static int informed = 0; if (!informed) { informed++; warning ("Your program is loaded with an old threads library."); warning ("GDB does not know the old form of threads"); warning ("so things may not work."); } } } /* Stripped or no -lthreads loaded or "cproc_list" is in wrong segment. */ if (! symaddr) return NULL; /* Get the address of the first cproc in the task */ if (!mach3_read_inferior (symaddr, buf, TARGET_PTR_BIT / HOST_CHAR_BIT)) error ("Can't read cproc master list at address (0x%x).", symaddr); their_cprocs = extract_address (buf, TARGET_PTR_BIT / HOST_CHAR_BIT); /* Scan the CPROCs in the task. CPROCs are chained with LIST field, not NEXT field, which chains mutexes, condition variables and queues */ cproc_head = NULL; while (their_cprocs != (CORE_ADDR)0) { CORE_ADDR cproc_copy_incarnation; cproc_copy = (gdb_thread_t) obstack_alloc (cproc_obstack, sizeof (struct gdb_thread)); if (!mach3_read_inferior (their_cprocs, &cproc_copy->raw_cproc[0], CPROC_SIZE)) error("Can't read next cproc at 0x%x.", their_cprocs); their_cprocs = extract_address (cproc_copy->raw_cproc + CPROC_LIST_OFFSET, CPROC_LIST_SIZE); cproc_copy_incarnation = extract_address (cproc_copy->raw_cproc + CPROC_INCARNATION_OFFSET, CPROC_INCARNATION_SIZE); if (cproc_copy_incarnation == (CORE_ADDR)0) cproc_copy->cthread = NULL; else { /* This CPROC has an attached CTHREAD. Get its name */ cthread = (cthread_t)obstack_alloc (cproc_obstack, sizeof(struct cthread)); if (!mach3_read_inferior (cproc_copy_incarnation, cthread, sizeof(struct cthread))) error("Can't read next thread at 0x%x.", cproc_copy_incarnation); cproc_copy->cthread = cthread; if (cthread->name) { name = (char *) obstack_alloc (cproc_obstack, MAX_NAME_LEN); if (!mach3_read_inferior(cthread->name, name, MAX_NAME_LEN)) error("Can't read next thread's name at 0x%x.", cthread->name); cthread->name = name; } } /* insert in front */ cproc_copy->next = cproc_head; cproc_head = cproc_copy; } return cproc_head; } #ifndef FETCH_CPROC_STATE /* * Check if your machine does not grok the way this routine * fetches the FP,PC and SP of a cproc that is not * currently attached to any kernel thread (e.g. its cproc.context * field points to the place in stack where the context * is saved). * * If it doesn't, define your own routine. */ #define FETCH_CPROC_STATE(mth) mach3_cproc_state (mth) int mach3_cproc_state (mthread) gdb_thread_t mthread; { int context; if (! mthread || !mthread->cproc) return -1; context = extract_signed_integer (mthread->cproc->raw_cproc + CPROC_CONTEXT_OFFSET, CPROC_CONTEXT_SIZE); if (context == 0) return -1; mthread->sp = context + MACHINE_CPROC_SP_OFFSET; if (mach3_read_inferior (context + MACHINE_CPROC_PC_OFFSET, &mthread->pc, sizeof (CORE_ADDR)) != sizeof (CORE_ADDR)) { warning ("Can't read cproc pc from inferior"); return -1; } if (mach3_read_inferior (context + MACHINE_CPROC_FP_OFFSET, &mthread->fp, sizeof (CORE_ADDR)) != sizeof (CORE_ADDR)) { warning ("Can't read cproc fp from inferior"); return -1; } return 0; } #endif /* FETCH_CPROC_STATE */ void thread_list_command() { thread_basic_info_data_t ths; int thread_count; gdb_thread_t cprocs; gdb_thread_t scan; int index; char *name; char selected; char *wired; int infoCnt; kern_return_t ret; mach_port_t mid_or_port; gdb_thread_t their_threads; gdb_thread_t kthread; int neworder = 1; char *fmt = "There are %d kernel threads in task %d.\n"; int tmid = map_port_name_to_mid (inferior_task, MACH_TYPE_TASK); MACH_ERROR_NO_INFERIOR; thread_count = fetch_thread_info (inferior_task, &their_threads); if (thread_count == -1) return; if (thread_count == 1) fmt = "There is %d kernel thread in task %d.\n"; printf_filtered (fmt, thread_count, tmid); puts_filtered (TL_HEADER); cprocs = get_cprocs(); map_cprocs_to_kernel_threads (cprocs, their_threads, thread_count); for (scan = cprocs; scan; scan = scan->next) { int mid; char buf[10]; char slot[3]; int cproc_state = extract_signed_integer (scan->raw_cproc + CPROC_STATE_OFFSET, CPROC_STATE_SIZE); selected = ' '; /* a wired cproc? */ wired = (extract_address (scan->raw_cproc + CPROC_WIRED_OFFSET, CPROC_WIRED_SIZE) ? "wired" : ""); if (scan->reverse_map != -1) kthread = (their_threads + scan->reverse_map); else kthread = NULL; if (kthread) { /* These cprocs have a kernel thread */ mid = map_port_name_to_mid (kthread->name, MACH_TYPE_THREAD); infoCnt = THREAD_BASIC_INFO_COUNT; ret = thread_info (kthread->name, THREAD_BASIC_INFO, (thread_info_t)&ths, &infoCnt); if (ret != KERN_SUCCESS) { warning ("Unable to get basic info on thread %d : %s", mid, mach_error_string (ret)); continue; } /* Who is the first to have more than 100 threads */ sprintf (slot, "%d", kthread->slotid%100); if (kthread->name == current_thread) selected = '*'; if (ths.suspend_count) sprintf (buf, "%d", ths.suspend_count); else buf[0] = '\000'; #if 0 if (ths.flags & TH_FLAGS_SWAPPED) strcat (buf, "S"); #endif if (ths.flags & TH_FLAGS_IDLE) strcat (buf, "I"); /* FIXME: May run afloul of arbitrary limit in printf_filtered. */ printf_filtered (TL_FORMAT, slot, mid, selected, get_thread_name (scan, kthread->slotid), kthread->in_emulator ? "E" : "", translate_state (ths.run_state), buf, translate_cstate (cproc_state), wired); print_tl_address (gdb_stdout, kthread->pc); } else { /* These cprocs don't have a kernel thread. * find out the calling frame with * FETCH_CPROC_STATE. */ struct gdb_thread state; #if 0 /* jtv -> emcmanus: why do you want this here? */ if (scan->incarnation == NULL) continue; /* EMcM */ #endif /* FIXME: May run afloul of arbitrary limit in printf_filtered. */ printf_filtered (TL_FORMAT, "-", -neworder, /* Pseudo MID */ selected, get_thread_name (scan, -neworder), "", "-", /* kernel state */ "", translate_cstate (cproc_state), ""); state.cproc = scan; if (FETCH_CPROC_STATE (&state) == -1) puts_filtered ("???"); else print_tl_address (gdb_stdout, state.pc); neworder++; } puts_filtered ("\n"); } /* Scan for kernel threads without cprocs */ for (index = 0; index < thread_count; index++) { if (! their_threads[index].cproc) { int mid; char buf[10]; char slot[3]; mach_port_t name = their_threads[index].name; mid = map_port_name_to_mid (name, MACH_TYPE_THREAD); infoCnt = THREAD_BASIC_INFO_COUNT; ret = thread_info(name, THREAD_BASIC_INFO, (thread_info_t)&ths, &infoCnt); if (ret != KERN_SUCCESS) { warning ("Unable to get basic info on thread %d : %s", mid, mach_error_string (ret)); continue; } sprintf (slot, "%d", index%100); if (name == current_thread) selected = '*'; else selected = ' '; if (ths.suspend_count) sprintf (buf, "%d", ths.suspend_count); else buf[0] = '\000'; #if 0 if (ths.flags & TH_FLAGS_SWAPPED) strcat (buf, "S"); #endif if (ths.flags & TH_FLAGS_IDLE) strcat (buf, "I"); /* FIXME: May run afloul of arbitrary limit in printf_filtered. */ printf_filtered (TL_FORMAT, slot, mid, selected, get_thread_name (NULL, index), their_threads[index].in_emulator ? "E" : "", translate_state (ths.run_state), buf, "", /* No cproc state */ ""); /* Can't be wired */ print_tl_address (gdb_stdout, their_threads[index].pc); puts_filtered ("\n"); } } obstack_free (cproc_obstack, 0); obstack_init (cproc_obstack); } void thread_select_command(args, from_tty) char *args; int from_tty; { int mid; thread_array_t thread_list; int thread_count; kern_return_t ret; int is_slot = 0; MACH_ERROR_NO_INFERIOR; if (!args) error_no_arg ("MID or @SLOTNUMBER to specify a thread to select"); while (*args == ' ' || *args == '\t') args++; if (*args == '@') { is_slot++; args++; } mid = atoi(args); if (mid == 0) if (!is_slot || *args != '0') /* Rudimentary checks */ error ("You must select threads by MID or @SLOTNUMBER"); if (select_thread (inferior_task, mid, is_slot?2:1) != KERN_SUCCESS) return; if (from_tty) printf_filtered ("Thread %d selected\n", is_slot ? map_port_name_to_mid (current_thread, MACH_TYPE_THREAD) : mid); } thread_trace (thread, set) mach_port_t thread; boolean_t set; { int flavor = TRACE_FLAVOR; unsigned int stateCnt = TRACE_FLAVOR_SIZE; kern_return_t ret; thread_state_data_t state; if (! MACH_PORT_VALID (thread)) { warning ("thread_trace: invalid thread"); return; } if (must_suspend_thread) setup_thread (thread, 1); ret = thread_get_state(thread, flavor, state, &stateCnt); CHK ("thread_trace: error reading thread state", ret); if (set) { TRACE_SET (thread, state); } else { if (! TRACE_CLEAR (thread, state)) { if (must_suspend_thread) setup_thread (thread, 0); return; } } ret = thread_set_state(thread, flavor, state, stateCnt); CHK ("thread_trace: error writing thread state", ret); if (must_suspend_thread) setup_thread (thread, 0); } #ifdef FLUSH_INFERIOR_CACHE /* When over-writing code on some machines the I-Cache must be flushed explicitly, because it is not kept coherent by the lazy hardware. This definitely includes breakpoints, for instance, or else we end up looping in mysterious Bpt traps */ flush_inferior_icache(pc, amount) CORE_ADDR pc; { vm_machine_attribute_val_t flush = MATTR_VAL_ICACHE_FLUSH; kern_return_t ret; ret = vm_machine_attribute (inferior_task, pc, amount, MATTR_CACHE, &flush); if (ret != KERN_SUCCESS) warning ("Error flushing inferior's cache : %s", mach_error_string (ret)); } #endif FLUSH_INFERIOR_CACHE static suspend_all_threads (from_tty) int from_tty; { kern_return_t ret; thread_array_t thread_list; int thread_count, index; int infoCnt; thread_basic_info_data_t th_info; ret = task_threads (inferior_task, &thread_list, &thread_count); if (ret != KERN_SUCCESS) { warning ("Could not suspend inferior threads."); m3_kill_inferior (); return_to_top_level (RETURN_ERROR); } for (index = 0; index < thread_count; index++) { int mid; mid = map_port_name_to_mid (thread_list[ index ], MACH_TYPE_THREAD); ret = thread_suspend(thread_list[ index ]); if (ret != KERN_SUCCESS) warning ("Error trying to suspend thread %d : %s", mid, mach_error_string (ret)); if (from_tty) { infoCnt = THREAD_BASIC_INFO_COUNT; ret = thread_info (thread_list[ index ], THREAD_BASIC_INFO, (thread_info_t) &th_info, &infoCnt); CHK ("suspend can't get thread info", ret); warning ("Thread %d suspend count is %d", mid, th_info.suspend_count); } } consume_send_rights (thread_list, thread_count); ret = vm_deallocate(mach_task_self(), (vm_address_t)thread_list, (thread_count * sizeof(int))); CHK ("Error trying to deallocate thread list", ret); } void thread_suspend_command (args, from_tty) char *args; int from_tty; { kern_return_t ret; int mid; mach_port_t saved_thread; int infoCnt; thread_basic_info_data_t th_info; MACH_ERROR_NO_INFERIOR; if (!strcasecmp (args, "all")) { suspend_all_threads (from_tty); return; } saved_thread = current_thread; mid = parse_thread_id (args, 0, 0); if (mid < 0) error ("You can suspend only existing kernel threads with MID or @SLOTNUMBER"); if (mid == 0) mid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD); else if (select_thread (inferior_task, mid, 0) != KERN_SUCCESS) { if (current_thread) current_thread = saved_thread; error ("Could not select thread %d", mid); } ret = thread_suspend (current_thread); if (ret != KERN_SUCCESS) warning ("thread_suspend failed : %s", mach_error_string (ret)); infoCnt = THREAD_BASIC_INFO_COUNT; ret = thread_info (current_thread, THREAD_BASIC_INFO, (thread_info_t) &th_info, &infoCnt); CHK ("suspend can't get thread info", ret); warning ("Thread %d suspend count is %d", mid, th_info.suspend_count); current_thread = saved_thread; } resume_all_threads (from_tty) int from_tty; { kern_return_t ret; thread_array_t thread_list; int thread_count, index; int mid; int infoCnt; thread_basic_info_data_t th_info; ret = task_threads (inferior_task, &thread_list, &thread_count); if (ret != KERN_SUCCESS) { m3_kill_inferior (); error("task_threads", mach_error_string( ret)); } for (index = 0; index < thread_count; index++) { infoCnt = THREAD_BASIC_INFO_COUNT; ret = thread_info (thread_list [ index ], THREAD_BASIC_INFO, (thread_info_t) &th_info, &infoCnt); CHK ("resume_all can't get thread info", ret); mid = map_port_name_to_mid (thread_list[ index ], MACH_TYPE_THREAD); if (! th_info.suspend_count) { if (mid != -1 && from_tty) warning ("Thread %d is not suspended", mid); continue; } ret = thread_resume (thread_list[ index ]); if (ret != KERN_SUCCESS) warning ("Error trying to resume thread %d : %s", mid, mach_error_string (ret)); else if (mid != -1 && from_tty) warning ("Thread %d suspend count is %d", mid, --th_info.suspend_count); } consume_send_rights (thread_list, thread_count); ret = vm_deallocate(mach_task_self(), (vm_address_t)thread_list, (thread_count * sizeof(int))); CHK("Error trying to deallocate thread list", ret); } void thread_resume_command (args, from_tty) char *args; int from_tty; { int mid; mach_port_t saved_thread; kern_return_t ret; thread_basic_info_data_t th_info; int infoCnt = THREAD_BASIC_INFO_COUNT; MACH_ERROR_NO_INFERIOR; if (!strcasecmp (args, "all")) { resume_all_threads (from_tty); return; } saved_thread = current_thread; mid = parse_thread_id (args, 0, 0); if (mid < 0) error ("You can resume only existing kernel threads with MID or @SLOTNUMBER"); if (mid == 0) mid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD); else if (select_thread (inferior_task, mid, 0) != KERN_SUCCESS) { if (current_thread) current_thread = saved_thread; return_to_top_level (RETURN_ERROR); } ret = thread_info (current_thread, THREAD_BASIC_INFO, (thread_info_t) &th_info, &infoCnt); CHK ("resume can't get thread info", ret); if (! th_info.suspend_count) { warning ("Thread %d is not suspended", mid); goto out; } ret = thread_resume (current_thread); if (ret != KERN_SUCCESS) warning ("thread_resume failed : %s", mach_error_string (ret)); else { th_info.suspend_count--; warning ("Thread %d suspend count is %d", mid, th_info.suspend_count); } out: current_thread = saved_thread; } void thread_kill_command (args, from_tty) char *args; int from_tty; { int mid; kern_return_t ret; int thread_count; thread_array_t thread_table; int index; mach_port_t thread_to_kill = MACH_PORT_NULL; MACH_ERROR_NO_INFERIOR; if (!args) error_no_arg ("thread mid to kill from the inferior task"); mid = parse_thread_id (args, 0, 0); if (mid < 0) error ("You can kill only existing kernel threads with MID or @SLOTNUMBER"); if (mid) { ret = machid_mach_port (mid_server, mid_auth, mid, &thread_to_kill); CHK ("thread_kill_command: machid_mach_port map failed", ret); } else mid = map_port_name_to_mid (current_thread, MACH_TYPE_THREAD); /* Don't allow gdb to kill *any* thread in the system. Use mkill program for that */ ret = task_threads (inferior_task, &thread_table, &thread_count); CHK ("Error getting inferior's thread list", ret); if (thread_to_kill == current_thread) { ret = thread_terminate (thread_to_kill); CHK ("Thread could not be terminated", ret); if (select_thread (inferior_task, 0, 1) != KERN_SUCCESS) warning ("Last thread was killed, use \"kill\" command to kill task"); } else for (index = 0; index < thread_count; index++) if (thread_table [ index ] == thread_to_kill) { ret = thread_terminate (thread_to_kill); CHK ("Thread could not be terminated", ret); } if (thread_count > 1) consume_send_rights (thread_table, thread_count); ret = vm_deallocate (mach_task_self(), (vm_address_t)thread_table, (thread_count * sizeof(mach_port_t))); CHK ("Error trying to deallocate thread list", ret); warning ("Thread %d killed", mid); } /* Task specific commands; add more if you like */ void task_resume_command (args, from_tty) char *args; int from_tty; { kern_return_t ret; task_basic_info_data_t ta_info; int infoCnt = TASK_BASIC_INFO_COUNT; int mid = map_port_name_to_mid (inferior_task, MACH_TYPE_TASK); MACH_ERROR_NO_INFERIOR; /* Would be trivial to change, but is it desirable? */ if (args) error ("Currently gdb can resume only it's inferior task"); ret = task_info (inferior_task, TASK_BASIC_INFO, (task_info_t) &ta_info, &infoCnt); CHK ("task_resume_command: task_info failed", ret); if (ta_info.suspend_count == 0) error ("Inferior task %d is not suspended", mid); else if (ta_info.suspend_count == 1 && from_tty && !query ("Suspend count is now 1. Do you know what you are doing? ")) error ("Task not resumed"); ret = task_resume (inferior_task); CHK ("task_resume_command: task_resume", ret); if (ta_info.suspend_count == 1) { warning ("Inferior task %d is no longer suspended", mid); must_suspend_thread = 1; /* @@ This is not complete: Registers change all the time when not suspended! */ registers_changed (); } else warning ("Inferior task %d suspend count is now %d", mid, ta_info.suspend_count-1); } void task_suspend_command (args, from_tty) char *args; int from_tty; { kern_return_t ret; task_basic_info_data_t ta_info; int infoCnt = TASK_BASIC_INFO_COUNT; int mid = map_port_name_to_mid (inferior_task, MACH_TYPE_TASK); MACH_ERROR_NO_INFERIOR; /* Would be trivial to change, but is it desirable? */ if (args) error ("Currently gdb can suspend only it's inferior task"); ret = task_suspend (inferior_task); CHK ("task_suspend_command: task_suspend", ret); must_suspend_thread = 0; ret = task_info (inferior_task, TASK_BASIC_INFO, (task_info_t) &ta_info, &infoCnt); CHK ("task_suspend_command: task_info failed", ret); warning ("Inferior task %d suspend count is now %d", mid, ta_info.suspend_count); } static char * get_size (bytes) int bytes; { static char size [ 30 ]; int zz = bytes/1024; if (zz / 1024) sprintf (size, "%-2.1f M", ((float)bytes)/(1024.0*1024.0)); else sprintf (size, "%d K", zz); return size; } /* Does this require the target task to be suspended?? I don't think so. */ void task_info_command (args, from_tty) char *args; int from_tty; { int mid = -5; mach_port_t task; kern_return_t ret; task_basic_info_data_t ta_info; int infoCnt = TASK_BASIC_INFO_COUNT; int page_size = round_page(1); int thread_count = 0; if (MACH_PORT_VALID (inferior_task)) mid = map_port_name_to_mid (inferior_task, MACH_TYPE_TASK); task = inferior_task; if (args) { int tmid = atoi (args); if (tmid <= 0) error ("Invalid mid %d for task info", tmid); if (tmid != mid) { mid = tmid; ret = machid_mach_port (mid_server, mid_auth, tmid, &task); CHK ("task_info_command: machid_mach_port map failed", ret); } } if (mid < 0) error ("You have to give the task MID as an argument"); ret = task_info (task, TASK_BASIC_INFO, (task_info_t) &ta_info, &infoCnt); CHK ("task_info_command: task_info failed", ret); printf_filtered ("\nTask info for task %d:\n\n", mid); printf_filtered (" Suspend count : %d\n", ta_info.suspend_count); printf_filtered (" Base priority : %d\n", ta_info.base_priority); printf_filtered (" Virtual size : %s\n", get_size (ta_info.virtual_size)); printf_filtered (" Resident size : %s\n", get_size (ta_info.resident_size)); { thread_array_t thread_list; ret = task_threads (task, &thread_list, &thread_count); CHK ("task_info_command: task_threads", ret); printf_filtered (" Thread count : %d\n", thread_count); consume_send_rights (thread_list, thread_count); ret = vm_deallocate(mach_task_self(), (vm_address_t)thread_list, (thread_count * sizeof(int))); CHK("Error trying to deallocate thread list", ret); } if (have_emulator_p (task)) printf_filtered (" Emulator at : 0x%x..0x%x\n", EMULATOR_BASE, EMULATOR_END); else printf_filtered (" No emulator.\n"); if (thread_count && task == inferior_task) printf_filtered ("\nUse the \"thread list\" command to see the threads\n"); } /* You may either FORWARD the exception to the inferior, or KEEP * it and return to GDB command level. * * exception mid [ forward | keep ] */ static void exception_command (args, from_tty) char *args; int from_tty; { char *scan = args; int exception; int len; if (!args) error_no_arg ("exception number action"); while (*scan == ' ' || *scan == '\t') scan++; if ('0' <= *scan && *scan <= '9') while ('0' <= *scan && *scan <= '9') scan++; else error ("exception number action"); exception = atoi (args); if (exception <= 0 || exception > MAX_EXCEPTION) error ("Allowed exception numbers are in range 1..%d", MAX_EXCEPTION); if (*scan != ' ' && *scan != '\t') error ("exception number must be followed by a space"); else while (*scan == ' ' || *scan == '\t') scan++; args = scan; len = 0; while (*scan) { len++; scan++; } if (!len) error("exception number action"); if (!strncasecmp (args, "forward", len)) exception_map[ exception ].forward = TRUE; else if (!strncasecmp (args, "keep", len)) exception_map[ exception ].forward = FALSE; else error ("exception action is either \"keep\" or \"forward\""); } static void print_exception_info (exception) int exception; { boolean_t forward = exception_map[ exception ].forward; printf_filtered ("%s\t(%d): ", exception_map[ exception ].name, exception); if (!forward) if (exception_map[ exception ].sigmap != SIG_UNKNOWN) printf_filtered ("keep and handle as signal %d\n", exception_map[ exception ].sigmap); else printf_filtered ("keep and handle as unknown signal %d\n", exception_map[ exception ].sigmap); else printf_filtered ("forward exception to inferior\n"); } void exception_info (args, from_tty) char *args; int from_tty; { int exception; if (!args) for (exception = 1; exception <= MAX_EXCEPTION; exception++) print_exception_info (exception); else { exception = atoi (args); if (exception <= 0 || exception > MAX_EXCEPTION) error ("Invalid exception number, values from 1 to %d allowed", MAX_EXCEPTION); print_exception_info (exception); } } /* Check for actions for mach exceptions. */ mach3_exception_actions (w, force_print_only, who) WAITTYPE *w; boolean_t force_print_only; char *who; { boolean_t force_print = FALSE; if (force_print_only || exception_map[stop_exception].sigmap == SIG_UNKNOWN) force_print = TRUE; else WSETSTOP (*w, exception_map[stop_exception].sigmap); if (exception_map[stop_exception].print || force_print) { target_terminal_ours (); printf_filtered ("\n%s received %s exception : ", who, exception_map[stop_exception].name); wrap_here (" "); switch(stop_exception) { case EXC_BAD_ACCESS: printf_filtered ("referencing address 0x%x : %s\n", stop_subcode, mach_error_string (stop_code)); break; case EXC_BAD_INSTRUCTION: printf_filtered ("illegal or undefined instruction. code %d subcode %d\n", stop_code, stop_subcode); break; case EXC_ARITHMETIC: printf_filtered ("code %d\n", stop_code); break; case EXC_EMULATION: printf_filtered ("code %d subcode %d\n", stop_code, stop_subcode); break; case EXC_SOFTWARE: printf_filtered ("%s specific, code 0x%x\n", stop_code < 0xffff ? "hardware" : "os emulation", stop_code); break; case EXC_BREAKPOINT: printf_filtered ("type %d (machine dependent)\n", stop_code); break; default: fatal ("Unknown exception"); } } } setup_notify_port (create_new) int create_new; { kern_return_t ret; if (MACH_PORT_VALID (our_notify_port)) { ret = mach_port_destroy (mach_task_self (), our_notify_port); CHK ("Could not destroy our_notify_port", ret); } our_notify_port = MACH_PORT_NULL; notify_chain = (port_chain_t) NULL; port_chain_destroy (port_chain_obstack); if (create_new) { ret = mach_port_allocate (mach_task_self(), MACH_PORT_RIGHT_RECEIVE, &our_notify_port); if (ret != KERN_SUCCESS) fatal("Creating notify port %s", mach_error_string(ret)); ret = mach_port_move_member(mach_task_self(), our_notify_port, inferior_wait_port_set); if (ret != KERN_SUCCESS) fatal("initial move member %s",mach_error_string(ret)); } } /* * Register our message port to the net name server * * Currently used only by the external stop-gdb program * since ^C does not work if you would like to enter * gdb command level while debugging your program. * * NOTE: If the message port is sometimes used for other * purposes also, the NAME must not be a guessable one. * Then, there should be a way to change it. */ char registered_name[ MAX_NAME_LEN ]; void message_port_info (args, from_tty) char *args; int from_tty; { if (registered_name[0]) printf_filtered ("gdb's message port name: '%s'\n", registered_name); else printf_filtered ("gdb's message port is not currently registered\n"); } void gdb_register_port (name, port) char *name; mach_port_t port; { kern_return_t ret; static int already_signed = 0; int len; if (! MACH_PORT_VALID (port) || !name || !*name) { warning ("Invalid registration request"); return; } if (! already_signed) { ret = mach_port_insert_right (mach_task_self (), our_message_port, our_message_port, MACH_MSG_TYPE_MAKE_SEND); CHK ("Failed to create a signature to our_message_port", ret); already_signed = 1; } else if (already_signed > 1) { ret = netname_check_out (name_server_port, registered_name, our_message_port); CHK ("Failed to check out gdb's message port", ret); registered_name[0] = '\000'; already_signed = 1; } ret = netname_check_in (name_server_port, /* Name server port */ name, /* Name of service */ our_message_port, /* Signature */ port); /* Creates a new send right */ CHK("Failed to check in the port", ret); len = 0; while(len < MAX_NAME_LEN && *(name+len)) { registered_name[len] = *(name+len); len++; } registered_name[len] = '\000'; already_signed = 2; } struct cmd_list_element *cmd_thread_list; struct cmd_list_element *cmd_task_list; /*ARGSUSED*/ static void thread_command (arg, from_tty) char *arg; int from_tty; { printf_unfiltered ("\"thread\" must be followed by the name of a thread command.\n"); help_list (cmd_thread_list, "thread ", -1, gdb_stdout); } /*ARGSUSED*/ static void task_command (arg, from_tty) char *arg; int from_tty; { printf_unfiltered ("\"task\" must be followed by the name of a task command.\n"); help_list (cmd_task_list, "task ", -1, gdb_stdout); } add_mach_specific_commands () { /* Thread handling commands */ /* FIXME: Move our thread support into the generic thread.c stuff so we can share that code. */ add_prefix_cmd ("mthread", class_stack, thread_command, "Generic command for handling Mach threads in the debugged task.", &cmd_thread_list, "thread ", 0, &cmdlist); add_com_alias ("th", "mthread", class_stack, 1); add_cmd ("select", class_stack, thread_select_command, "Select and print MID of the selected thread", &cmd_thread_list); add_cmd ("list", class_stack, thread_list_command, "List info of task's threads. Selected thread is marked with '*'", &cmd_thread_list); add_cmd ("suspend", class_run, thread_suspend_command, "Suspend one or all of the threads in the selected task.", &cmd_thread_list); add_cmd ("resume", class_run, thread_resume_command, "Resume one or all of the threads in the selected task.", &cmd_thread_list); add_cmd ("kill", class_run, thread_kill_command, "Kill the specified thread MID from inferior task.", &cmd_thread_list); #if 0 /* The rest of this support (condition_thread) was not merged. It probably should not be merged in this form, but instead added to the generic GDB thread support. */ add_cmd ("break", class_breakpoint, condition_thread, "Breakpoint N will only be effective for thread MID or @SLOT\n\ If MID/@SLOT is omitted allow all threads to break at breakpoint", &cmd_thread_list); #endif /* Thread command shorthands (for backward compatibility) */ add_alias_cmd ("ts", "mthread select", 0, 0, &cmdlist); add_alias_cmd ("tl", "mthread list", 0, 0, &cmdlist); /* task handling commands */ add_prefix_cmd ("task", class_stack, task_command, "Generic command for handling debugged task.", &cmd_task_list, "task ", 0, &cmdlist); add_com_alias ("ta", "task", class_stack, 1); add_cmd ("suspend", class_run, task_suspend_command, "Suspend the inferior task.", &cmd_task_list); add_cmd ("resume", class_run, task_resume_command, "Resume the inferior task.", &cmd_task_list); add_cmd ("info", no_class, task_info_command, "Print information about the specified task.", &cmd_task_list); /* Print my message port name */ add_info ("message-port", message_port_info, "Returns the name of gdb's message port in the netnameserver"); /* Exception commands */ add_info ("exceptions", exception_info, "What debugger does when program gets various exceptions.\n\ Specify an exception number as argument to print info on that\n\ exception only."); add_com ("exception", class_run, exception_command, "Specify how to handle an exception.\n\ Args are exception number followed by \"forward\" or \"keep\".\n\ `Forward' means forward the exception to the program's normal exception\n\ handler.\n\ `Keep' means reenter debugger if this exception happens, and GDB maps\n\ the exception to some signal (see info exception)\n\ Normally \"keep\" is used to return to GDB on exception."); } kern_return_t do_mach_notify_dead_name (notify, name) mach_port_t notify; mach_port_t name; { kern_return_t kr = KERN_SUCCESS; /* Find the thing that notified */ port_chain_t element = port_chain_member (notify_chain, name); /* Take name of from unreceived dead name notification list */ notify_chain = port_chain_delete (notify_chain, name); if (! element) error ("Received a dead name notify from unchained port (0x%x)", name); switch (element->type) { case MACH_TYPE_THREAD: target_terminal_ours_for_output (); if (name == current_thread) { printf_filtered ("\nCurrent thread %d died", element->mid); current_thread = MACH_PORT_NULL; } else printf_filtered ("\nThread %d died", element->mid); break; case MACH_TYPE_TASK: target_terminal_ours_for_output (); if (name != inferior_task) printf_filtered ("Task %d died, but it was not the selected task", element->mid); else { printf_filtered ("Current task %d died", element->mid); mach_port_destroy (mach_task_self(), name); inferior_task = MACH_PORT_NULL; if (notify_chain) warning ("There were still unreceived dead_name_notifications???"); /* Destroy the old notifications */ setup_notify_port (0); } break; default: error ("Unregistered dead_name 0x%x notification received. Type is %d, mid is 0x%x", name, element->type, element->mid); break; } return KERN_SUCCESS; } kern_return_t do_mach_notify_msg_accepted (notify, name) mach_port_t notify; mach_port_t name; { warning ("do_mach_notify_msg_accepted : notify %x, name %x", notify, name); return KERN_SUCCESS; } kern_return_t do_mach_notify_no_senders (notify, mscount) mach_port_t notify; mach_port_mscount_t mscount; { warning ("do_mach_notify_no_senders : notify %x, mscount %x", notify, mscount); return KERN_SUCCESS; } kern_return_t do_mach_notify_port_deleted (notify, name) mach_port_t notify; mach_port_t name; { warning ("do_mach_notify_port_deleted : notify %x, name %x", notify, name); return KERN_SUCCESS; } kern_return_t do_mach_notify_port_destroyed (notify, rights) mach_port_t notify; mach_port_t rights; { warning ("do_mach_notify_port_destroyed : notify %x, rights %x", notify, rights); return KERN_SUCCESS; } kern_return_t do_mach_notify_send_once (notify) mach_port_t notify; { #ifdef DUMP_SYSCALL /* MANY of these are generated. */ warning ("do_mach_notify_send_once : notify %x", notify); #endif return KERN_SUCCESS; } /* Kills the inferior. It's gone when you call this */ static void kill_inferior_fast () { WAITTYPE w; if (inferior_pid == 0 || inferior_pid == 1) return; /* kill() it, since the Unix server does not otherwise notice when * killed with task_terminate(). */ if (inferior_pid > 0) kill (inferior_pid, SIGKILL); /* It's propably terminate already */ (void) task_terminate (inferior_task); inferior_task = MACH_PORT_NULL; current_thread = MACH_PORT_NULL; wait3 (&w, WNOHANG, 0); setup_notify_port (0); } static void m3_kill_inferior () { kill_inferior_fast (); target_mourn_inferior (); } /* Clean up after the inferior dies. */ static void m3_mourn_inferior () { unpush_target (&m3_ops); generic_mourn_inferior (); } /* Fork an inferior process, and start debugging it. */ static void m3_create_inferior (exec_file, allargs, env) char *exec_file; char *allargs; char **env; { fork_inferior (exec_file, allargs, env, m3_trace_me, m3_trace_him, NULL); /* We are at the first instruction we care about. */ /* Pedal to the metal... */ proceed ((CORE_ADDR) -1, 0, 0); } /* Mark our target-struct as eligible for stray "run" and "attach" commands. */ static int m3_can_run () { return 1; } /* Mach 3.0 does not need ptrace for anything * Make sure nobody uses it on mach. */ ptrace (a,b,c,d) int a,b,c,d; { error ("Lose, Lose! Somebody called ptrace\n"); } /* Resume execution of the inferior process. If STEP is nonzero, single-step it. If SIGNAL is nonzero, give it that signal. */ void m3_resume (pid, step, signal) int pid; int step; enum target_signal signal; { kern_return_t ret; if (step) { thread_basic_info_data_t th_info; unsigned int infoCnt = THREAD_BASIC_INFO_COUNT; /* There is no point in single stepping when current_thread * is dead. */ if (! MACH_PORT_VALID (current_thread)) error ("No thread selected; can not single step"); /* If current_thread is suspended, tracing it would never return. */ ret = thread_info (current_thread, THREAD_BASIC_INFO, (thread_info_t) &th_info, &infoCnt); CHK ("child_resume: can't get thread info", ret); if (th_info.suspend_count) error ("Can't trace a suspended thread. Use \"thread resume\" command to resume it"); } vm_read_cache_valid = FALSE; if (signal && inferior_pid > 0) /* Do not signal, if attached by MID */ kill (inferior_pid, target_signal_to_host (signal)); if (step) { suspend_all_threads (0); setup_single_step (current_thread, TRUE); ret = thread_resume (current_thread); CHK ("thread_resume", ret); } ret = task_resume (inferior_task); if (ret == KERN_FAILURE) warning ("Task was not suspended"); else CHK ("Resuming task", ret); /* HACK HACK This is needed by the multiserver system HACK HACK */ while ((ret = task_resume(inferior_task)) == KERN_SUCCESS) /* make sure it really runs */; /* HACK HACK This is needed by the multiserver system HACK HACK */ } #ifdef ATTACH_DETACH /* Start debugging the process with the given task */ void task_attach (tid) task_t tid; { kern_return_t ret; inferior_task = tid; ret = task_suspend (inferior_task); CHK("task_attach: task_suspend", ret); must_suspend_thread = 0; setup_notify_port (1); request_notify (inferior_task, MACH_NOTIFY_DEAD_NAME, MACH_TYPE_TASK); setup_exception_port (); emulator_present = have_emulator_p (inferior_task); attach_flag = 1; } /* Well, we can call error also here and leave the * target stack inconsistent. Sigh. * Fix this sometime (the only way to fail here is that * the task has no threads at all, which is rare, but * possible; or if the target task has died, which is also * possible, but unlikely, since it has been suspended. * (Someone must have killed it)) */ void attach_to_thread () { if (select_thread (inferior_task, 0, 1) != KERN_SUCCESS) error ("Could not select any threads to attach to"); } mid_attach (mid) int mid; { kern_return_t ret; ret = machid_mach_port (mid_server, mid_auth, mid, &inferior_task); CHK("mid_attach: machid_mach_port", ret); task_attach (inferior_task); return mid; } /* * Start debugging the process whose unix process-id is PID. * A negative "pid" value is legal and signifies a mach_id not a unix pid. * * Prevent (possible unwanted) dangerous operations by enabled users * like "atta 0" or "atta foo" (equal to the previous :-) and * "atta pidself". Anyway, the latter is allowed by specifying a MID. */ static int m3_do_attach (pid) int pid; { kern_return_t ret; if (pid == 0) error("MID=0, Debugging the master unix server does not compute"); /* Foo. This assumes gdb has a unix pid */ if (pid == getpid()) error ("I will debug myself only by mid. (Gdb would suspend itself!)"); if (pid < 0) { mid_attach (-(pid)); /* inferior_pid will be NEGATIVE! */ inferior_pid = pid; return inferior_pid; } inferior_task = task_by_pid (pid); if (! MACH_PORT_VALID (inferior_task)) error("Cannot map Unix pid %d to Mach task port", pid); task_attach (inferior_task); inferior_pid = pid; return inferior_pid; } /* Attach to process PID, then initialize for debugging it and wait for the trace-trap that results from attaching. */ static void m3_attach (args, from_tty) char *args; int from_tty; { char *exec_file; int pid; if (!args) error_no_arg ("process-id to attach"); pid = atoi (args); if (pid == getpid()) /* Trying to masturbate? */ error ("I refuse to debug myself!"); if (from_tty) { exec_file = (char *) get_exec_file (0); if (exec_file) printf_unfiltered ("Attaching to program `%s', %s\n", exec_file, target_pid_to_str (pid)); else printf_unfiltered ("Attaching to %s\n", target_pid_to_str (pid)); gdb_flush (gdb_stdout); } m3_do_attach (pid); inferior_pid = pid; push_target (&m3_ops); } void deallocate_inferior_ports () { kern_return_t ret; thread_array_t thread_list; int thread_count, index; if (!MACH_PORT_VALID (inferior_task)) return; ret = task_threads (inferior_task, &thread_list, &thread_count); if (ret != KERN_SUCCESS) { warning ("deallocate_inferior_ports: task_threads", mach_error_string(ret)); return; } /* Get rid of send rights to task threads */ for (index = 0; index < thread_count; index++) { int rights; ret = mach_port_get_refs (mach_task_self (), thread_list[index], MACH_PORT_RIGHT_SEND, &rights); CHK("deallocate_inferior_ports: get refs", ret); if (rights > 0) { ret = mach_port_mod_refs (mach_task_self (), thread_list[index], MACH_PORT_RIGHT_SEND, -rights); CHK("deallocate_inferior_ports: mod refs", ret); } } ret = mach_port_mod_refs (mach_task_self (), inferior_exception_port, MACH_PORT_RIGHT_RECEIVE, -1); CHK ("deallocate_inferior_ports: cannot get rid of exception port", ret); ret = mach_port_deallocate (mach_task_self (), inferior_task); CHK ("deallocate_task_port: deallocating inferior_task", ret); current_thread = MACH_PORT_NULL; inferior_task = MACH_PORT_NULL; } /* Stop debugging the process whose number is PID and continue it with signal number SIGNAL. SIGNAL = 0 means just continue it. */ static void m3_do_detach (signal) int signal; { kern_return_t ret; MACH_ERROR_NO_INFERIOR; if (current_thread != MACH_PORT_NULL) { /* Store the gdb's view of the thread we are deselecting * before we detach. * @@ I am really not sure if this is ever needeed. */ target_prepare_to_store (); target_store_registers (-1); } ret = task_set_special_port (inferior_task, TASK_EXCEPTION_PORT, inferior_old_exception_port); CHK ("task_set_special_port", ret); /* Discard all requested notifications */ setup_notify_port (0); if (remove_breakpoints ()) warning ("Could not remove breakpoints when detaching"); if (signal && inferior_pid > 0) kill (inferior_pid, signal); /* the task might be dead by now */ (void) task_resume (inferior_task); deallocate_inferior_ports (); attach_flag = 0; } /* Take a program previously attached to and detaches it. The program resumes execution and will no longer stop on signals, etc. We'd better not have left any breakpoints in the program or it'll die when it hits one. For this to work, it may be necessary for the process to have been previously attached. It *might* work if the program was started via fork. */ static void m3_detach (args, from_tty) char *args; int from_tty; { int siggnal = 0; if (from_tty) { char *exec_file = get_exec_file (0); if (exec_file == 0) exec_file = ""; printf_unfiltered ("Detaching from program: %s %s\n", exec_file, target_pid_to_str (inferior_pid)); gdb_flush (gdb_stdout); } if (args) siggnal = atoi (args); m3_do_detach (siggnal); inferior_pid = 0; unpush_target (&m3_ops); /* Pop out of handling an inferior */ } #endif /* ATTACH_DETACH */ /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void m3_prepare_to_store () { #ifdef CHILD_PREPARE_TO_STORE CHILD_PREPARE_TO_STORE (); #endif } /* Print status information about what we're accessing. */ static void m3_files_info (ignore) struct target_ops *ignore; { /* FIXME: should print MID and all that crap. */ printf_unfiltered ("\tUsing the running image of %s %s.\n", attach_flag? "attached": "child", target_pid_to_str (inferior_pid)); } static void m3_open (arg, from_tty) char *arg; int from_tty; { error ("Use the \"run\" command to start a Unix child process."); } #ifdef DUMP_SYSCALL #ifdef __STDC__ #define STR(x) #x #else #define STR(x) "x" #endif char *bsd1_names[] = { "execve", "fork", "take_signal", "sigreturn", "getrusage", "chdir", "chroot", "open", "creat", "mknod", "link", "symlink", "unlink", "access", "stat", "readlink", "chmod", "chown", "utimes", "truncate", "rename", "mkdir", "rmdir", "xutimes", "mount", "umount", "acct", "setquota", "write_short", "write_long", "send_short", "send_long", "sendto_short", "sendto_long", "select", "task_by_pid", "recvfrom_short", "recvfrom_long", "setgroups", "setrlimit", "sigvec", "sigstack", "settimeofday", "adjtime", "setitimer", "sethostname", "bind", "accept", "connect", "setsockopt", "getsockopt", "getsockname", "getpeername", "init_process", "table_set", "table_get", "pioctl", "emulator_error", "readwrite", "share_wakeup", 0, "maprw_request_it", "maprw_release_it", "maprw_remap", "pid_by_task", }; int bsd1_nnames = sizeof(bsd1_names)/sizeof(bsd1_names[0]); char* name_str(name,buf) int name; char *buf; { switch (name) { case MACH_MSG_TYPE_BOOLEAN: return "boolean"; case MACH_MSG_TYPE_INTEGER_16: return "short"; case MACH_MSG_TYPE_INTEGER_32: return "long"; case MACH_MSG_TYPE_CHAR: return "char"; case MACH_MSG_TYPE_BYTE: return "byte"; case MACH_MSG_TYPE_REAL: return "real"; case MACH_MSG_TYPE_STRING: return "string"; default: sprintf(buf,"%d",name); return buf; } } char * id_str(id,buf) int id; char *buf; { char *p; if (id >= 101000 && id < 101000+bsd1_nnames) { if (p = bsd1_names[id-101000]) return p; } if (id == 102000) return "psignal_retry"; if (id == 100000) return "syscall"; sprintf(buf,"%d",id); return buf; } print_msg(mp) mach_msg_header_t *mp; { char *fmt_x = "%20s : 0x%08x\n"; char *fmt_d = "%20s : %10d\n"; char *fmt_s = "%20s : %s\n"; char buf[100]; puts_filtered ("\n"); #define pr(fmt,h,x) printf_filtered(fmt,STR(x),(h).x) pr(fmt_x,(*mp),msgh_bits); pr(fmt_d,(*mp),msgh_size); pr(fmt_x,(*mp),msgh_remote_port); pr(fmt_x,(*mp),msgh_local_port); pr(fmt_d,(*mp),msgh_kind); printf_filtered(fmt_s,STR(msgh_id),id_str(mp->msgh_id,buf)); if (debug_level > 1) { char *p,*ep,*dp; int plen; p = (char*)mp; ep = p+mp->msgh_size; p += sizeof(*mp); for(; p < ep; p += plen) { mach_msg_type_t *tp; mach_msg_type_long_t *tlp; int name,size,number; tp = (mach_msg_type_t*)p; if (tp->msgt_longform) { tlp = (mach_msg_type_long_t*)tp; name = tlp->msgtl_name; size = tlp->msgtl_size; number = tlp->msgtl_number; plen = sizeof(*tlp); } else { name = tp->msgt_name; size = tp->msgt_size; number = tp->msgt_number; plen = sizeof(*tp); } printf_filtered("name=%-16s size=%2d number=%7d inline=%d long=%d deal=%d\n", name_str(name,buf),size,number,tp->msgt_inline, tp->msgt_longform, tp->msgt_deallocate); dp = p+plen; if (tp->msgt_inline) { int l; l = size*number/8; l = (l+sizeof(long)-1)&~((sizeof(long))-1); plen += l; print_data(dp,size,number); } else { plen += sizeof(int*); } printf_filtered("plen=%d\n",plen); } } } print_data(p,size,number) char *p; { int *ip; short *sp; int i; switch (size) { case 8: for(i = 0; i < number; i++) { printf_filtered(" %02x",p[i]); } break; case 16: sp = (short*)p; for(i = 0; i < number; i++) { printf_filtered(" %04x",sp[i]); } break; case 32: ip = (int*)p; for(i = 0; i < number; i++) { printf_filtered(" %08x",ip[i]); } break; } puts_filtered("\n"); } #endif DUMP_SYSCALL struct target_ops m3_ops = { "mach", /* to_shortname */ "Mach child process", /* to_longname */ "Mach child process (started by the \"run\" command).", /* to_doc */ m3_open, /* to_open */ 0, /* to_close */ m3_attach, /* to_attach */ m3_detach, /* to_detach */ m3_resume, /* to_resume */ mach_really_wait, /* to_wait */ fetch_inferior_registers, /* to_fetch_registers */ store_inferior_registers, /* to_store_registers */ m3_prepare_to_store, /* to_prepare_to_store */ m3_xfer_memory, /* to_xfer_memory */ m3_files_info, /* to_files_info */ memory_insert_breakpoint, /* to_insert_breakpoint */ memory_remove_breakpoint, /* to_remove_breakpoint */ terminal_init_inferior, /* to_terminal_init */ terminal_inferior, /* to_terminal_inferior */ terminal_ours_for_output, /* to_terminal_ours_for_output */ terminal_ours, /* to_terminal_ours */ child_terminal_info, /* to_terminal_info */ m3_kill_inferior, /* to_kill */ 0, /* to_load */ 0, /* to_lookup_symbol */ m3_create_inferior, /* to_create_inferior */ m3_mourn_inferior, /* to_mourn_inferior */ m3_can_run, /* to_can_run */ 0, /* to_notice_signals */ process_stratum, /* to_stratum */ 0, /* to_next */ 1, /* to_has_all_memory */ 1, /* to_has_memory */ 1, /* to_has_stack */ 1, /* to_has_registers */ 1, /* to_has_execution */ 0, /* sections */ 0, /* sections_end */ OPS_MAGIC /* to_magic */ }; void _initialize_m3_nat () { kern_return_t ret; add_target (&m3_ops); ret = mach_port_allocate(mach_task_self(), MACH_PORT_RIGHT_PORT_SET, &inferior_wait_port_set); if (ret != KERN_SUCCESS) fatal("initial port set %s",mach_error_string(ret)); /* mach_really_wait now waits for this */ currently_waiting_for = inferior_wait_port_set; ret = netname_look_up(name_server_port, hostname, "MachID", &mid_server); if (ret != KERN_SUCCESS) { mid_server = MACH_PORT_NULL; warning ("initialize machid: netname_lookup_up(MachID) : %s", mach_error_string(ret)); warning ("Some (most?) features disabled..."); } mid_auth = mach_privileged_host_port(); if (mid_auth == MACH_PORT_NULL) mid_auth = mach_task_self(); obstack_init (port_chain_obstack); ret = mach_port_allocate (mach_task_self (), MACH_PORT_RIGHT_RECEIVE, &thread_exception_port); CHK ("Creating thread_exception_port for single stepping", ret); ret = mach_port_insert_right (mach_task_self (), thread_exception_port, thread_exception_port, MACH_MSG_TYPE_MAKE_SEND); CHK ("Inserting send right to thread_exception_port", ret); /* Allocate message port */ ret = mach_port_allocate (mach_task_self (), MACH_PORT_RIGHT_RECEIVE, &our_message_port); if (ret != KERN_SUCCESS) warning ("Creating message port %s", mach_error_string (ret)); else { char buf[ MAX_NAME_LEN ]; ret = mach_port_move_member(mach_task_self (), our_message_port, inferior_wait_port_set); if (ret != KERN_SUCCESS) warning ("message move member %s", mach_error_string (ret)); /* @@@@ No way to change message port name currently */ /* Foo. This assumes gdb has a unix pid */ sprintf (buf, "gdb-%d", getpid ()); gdb_register_port (buf, our_message_port); } /* Heap for thread commands */ obstack_init (cproc_obstack); add_mach_specific_commands (); } gdb-4.13/gdb/m68k-pinsn.c 666 34562 1752 2265 5465305576 13373 0ustar fnfcygnus/* Print Motorola 68k instructions for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dis-asm.h" /* Print the m68k instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO(info, stream); return print_insn_m68k (memaddr, &info); } gdb-4.13/gdb/m68k-stub.c 666 34562 1752 104507 5542644514 13255 0ustar fnfcygnus/**************************************************************************** THIS SOFTWARE IS NOT COPYRIGHTED HP offers the following for use in the public domain. HP makes no warranty with regard to the software or it's performance and the user accepts the software "AS IS" with all faults. HP DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. ****************************************************************************/ /**************************************************************************** * Header: remcom.c,v 1.34 91/03/09 12:29:49 glenne Exp $ * * Module name: remcom.c $ * Revision: 1.34 $ * Date: 91/03/09 12:29:49 $ * Contributor: Lake Stevens Instrument Division$ * * Description: low level support for gdb debugger. $ * * Considerations: only works on target hardware $ * * Written by: Glenn Engel $ * ModuleState: Experimental $ * * NOTES: See Below $ * * To enable debugger support, two things need to happen. One, a * call to set_debug_traps() is necessary in order to allow any breakpoints * or error conditions to be properly intercepted and reported to gdb. * Two, a breakpoint needs to be generated to begin communication. This * is most easily accomplished by a call to breakpoint(). Breakpoint() * simulates a breakpoint by executing a trap #1. The breakpoint instruction * is hardwired to trap #1 because not to do so is a compatibility problem-- * there either should be a standard breakpoint instruction, or the protocol * should be extended to provide some means to communicate which breakpoint * instruction is in use (or have the stub insert the breakpoint). * * Some explanation is probably necessary to explain how exceptions are * handled. When an exception is encountered the 68000 pushes the current * program counter and status register onto the supervisor stack and then * transfers execution to a location specified in it's vector table. * The handlers for the exception vectors are hardwired to jmp to an address * given by the relation: (exception - 256) * 6. These are decending * addresses starting from -6, -12, -18, ... By allowing 6 bytes for * each entry, a jsr, jmp, bsr, ... can be used to enter the exception * handler. Using a jsr to handle an exception has an added benefit of * allowing a single handler to service several exceptions and use the * return address as the key differentiation. The vector number can be * computed from the return address by [ exception = (addr + 1530) / 6 ]. * The sole purpose of the routine _catchException is to compute the * exception number and push it on the stack in place of the return address. * The external function exceptionHandler() is * used to attach a specific handler to a specific m68k exception. * For 68020 machines, the ability to have a return address around just * so the vector can be determined is not necessary because the '020 pushes an * extra word onto the stack containing the vector offset * * Because gdb will sometimes write to the stack area to execute function * calls, this program cannot rely on using the supervisor stack so it * uses it's own stack area reserved in the int array remcomStack. * ************* * * The following gdb commands are supported: * * command function Return value * * g return the value of the CPU registers hex data or ENN * G set the value of the CPU registers OK or ENN * * mAA..AA,LLLL Read LLLL bytes at address AA..AA hex data or ENN * MAA..AA,LLLL: Write LLLL bytes at address AA.AA OK or ENN * * c Resume at current address SNN ( signal NN) * cAA..AA Continue at address AA..AA SNN * * s Step one instruction SNN * sAA..AA Step one instruction from AA..AA SNN * * k kill * * ? What was the last sigval ? SNN (signal NN) * * All commands and responses are sent with a packet which includes a * checksum. A packet consists of * * $#. * * where * :: * :: < two hex digits computed as modulo 256 sum of > * * When a packet is received, it is first acknowledged with either '+' or '-'. * '+' indicates a successful transfer. '-' indicates a failed transfer. * * Example: * * Host: Reply: * $m0,10#2a +$00010203040506070809101112131415#42 * ****************************************************************************/ #include #include #include /************************************************************************ * * external low-level support routines */ typedef void (*ExceptionHook)(int); /* pointer to function with int parm */ typedef void (*Function)(); /* pointer to a function */ extern putDebugChar(); /* write a single character */ extern getDebugChar(); /* read and return a single char */ extern Function exceptionHandler(); /* assign an exception handler */ extern ExceptionHook exceptionHook; /* hook variable for errors/exceptions */ /************************/ /* FORWARD DECLARATIONS */ /************************/ static void initializeRemcomErrorFrame (); /************************************************************************/ /* BUFMAX defines the maximum number of characters in inbound/outbound buffers*/ /* at least NUMREGBYTES*2 are needed for register packets */ #define BUFMAX 400 static char initialized; /* boolean flag. != 0 means we've been initialized */ int remote_debug; /* debug > 0 prints ill-formed commands in valid packets & checksum errors */ static const char hexchars[]="0123456789abcdef"; /* there are 180 bytes of registers on a 68020 w/68881 */ /* many of the fpa registers are 12 byte (96 bit) registers */ #define NUMREGBYTES 180 enum regnames {D0,D1,D2,D3,D4,D5,D6,D7, A0,A1,A2,A3,A4,A5,A6,A7, PS,PC, FP0,FP1,FP2,FP3,FP4,FP5,FP6,FP7, FPCONTROL,FPSTATUS,FPIADDR }; /* We keep a whole frame cache here. "Why?", I hear you cry, "doesn't GDB handle that sort of thing?" Well, yes, I believe the only reason for this cache is to save and restore floating point state (fsave/frestore). A cleaner way to do this would be to make the fsave data part of the registers which GDB deals with like any other registers. This should not be a performance problem if the ability to read individual registers is added to the protocol. */ typedef struct FrameStruct { struct FrameStruct *previous; int exceptionPC; /* pc value when this frame created */ int exceptionVector; /* cpu vector causing exception */ short frameSize; /* size of cpu frame in words */ short sr; /* for 68000, this not always sr */ int pc; short format; int fsaveHeader; int morejunk[0]; /* exception frame, fp save... */ } Frame; #define FRAMESIZE 500 int gdbFrameStack[FRAMESIZE]; static Frame *lastFrame; /* * these should not be static cuz they can be used outside this module */ int registers[NUMREGBYTES/4]; int superStack; #define STACKSIZE 10000 int remcomStack[STACKSIZE/sizeof(int)]; static int* stackPtr = &remcomStack[STACKSIZE/sizeof(int) - 1]; /* * In many cases, the system will want to continue exception processing * when a continue command is given. * oldExceptionHook is a function to invoke in this case. */ static ExceptionHook oldExceptionHook; #ifdef mc68020 /* the size of the exception stack on the 68020 varies with the type of * exception. The following table is the number of WORDS used * for each exception format. */ const short exceptionSize[] = { 4,4,6,4,4,4,4,4,29,10,16,46,12,4,4,4 }; #endif #ifdef mc68332 static const short exceptionSize[] = { 4,4,6,4,4,4,4,4,4,4,4,4,16,4,4,4 }; #endif /************* jump buffer used for setjmp/longjmp **************************/ jmp_buf remcomEnv; /*************************** ASSEMBLY CODE MACROS *************************/ /* */ #ifdef __HAVE_68881__ /* do an fsave, then remember the address to begin a restore from */ #define SAVE_FP_REGS() asm(" fsave a0@-"); \ asm(" fmovemx fp0-fp7,_registers+72"); \ asm(" fmoveml fpcr/fpsr/fpi,_registers+168"); #define RESTORE_FP_REGS() \ asm(" \n\ fmoveml _registers+168,fpcr/fpsr/fpi \n\ fmovemx _registers+72,fp0-fp7 \n\ cmpl #-1,a0@ | skip frestore flag set ? \n\ beq skip_frestore \n\ frestore a0@+ \n\ skip_frestore: \n\ "); #else #define SAVE_FP_REGS() #define RESTORE_FP_REGS() #endif /* __HAVE_68881__ */ void return_to_super(); void return_to_user(); asm(" .text .globl _return_to_super _return_to_super: movel _registers+60,sp /* get new stack pointer */ movel _lastFrame,a0 /* get last frame info */ bra return_to_any .globl _return_to_user _return_to_user: movel _registers+60,a0 /* get usp */ movel a0,usp /* set usp */ movel _superStack,sp /* get original stack pointer */ return_to_any: movel _lastFrame,a0 /* get last frame info */ movel a0@+,_lastFrame /* link in previous frame */ addql #8,a0 /* skip over pc, vector#*/ movew a0@+,d0 /* get # of words in cpu frame */ addw d0,a0 /* point to end of data */ addw d0,a0 /* point to end of data */ movel a0,a1 # # copy the stack frame subql #1,d0 copyUserLoop: movew a1@-,sp@- dbf d0,copyUserLoop "); RESTORE_FP_REGS() asm(" moveml _registers,d0-d7/a0-a6"); asm(" rte"); /* pop and go! */ #define DISABLE_INTERRUPTS() asm(" oriw #0x0700,sr"); #define BREAKPOINT() asm(" trap #1"); /* this function is called immediately when a level 7 interrupt occurs */ /* if the previous interrupt level was 7 then we're already servicing */ /* this interrupt and an rte is in order to return to the debugger. */ /* For the 68000, the offset for sr is 6 due to the jsr return address */ asm(" .text .globl __debug_level7 __debug_level7: movew d0,sp@-"); #if defined (mc68020) || defined (mc68332) asm(" movew sp@(2),d0"); #else asm(" movew sp@(6),d0"); #endif asm(" andiw #0x700,d0 cmpiw #0x700,d0 beq _already7 movew sp@+,d0 bra __catchException _already7: movew sp@+,d0"); #if !defined (mc68020) && !defined (mc68332) asm(" lea sp@(4),sp"); /* pull off 68000 return address */ #endif asm(" rte"); extern void _catchException (); #if defined (mc68020) || defined (mc68332) /* This function is called when a 68020 exception occurs. It saves * all the cpu and fpcp regs in the _registers array, creates a frame on a * linked list of frames which has the cpu and fpcp stack frames needed * to properly restore the context of these processors, and invokes * an exception handler (remcom_handler). * * stack on entry: stack on exit: * N bytes of junk exception # MSWord * Exception Format Word exception # MSWord * Program counter LSWord * Program counter MSWord * Status Register * * */ asm(" .text .globl __catchException __catchException:"); DISABLE_INTERRUPTS(); asm(" moveml d0-d7/a0-a6,_registers /* save registers */ movel _lastFrame,a0 /* last frame pointer */ "); SAVE_FP_REGS(); asm(" lea _registers,a5 /* get address of registers */ movew sp@,d1 /* get status register */ movew d1,a5@(66) /* save sr */ movel sp@(2),a4 /* save pc in a4 for later use */ movel a4,a5@(68) /* save pc in _regisers[] */ # # figure out how many bytes in the stack frame movew sp@(6),d0 /* get '020 exception format */ movew d0,d2 /* make a copy of format word */ andiw #0xf000,d0 /* mask off format type */ rolw #5,d0 /* rotate into the low byte *2 */ lea _exceptionSize,a1 addw d0,a1 /* index into the table */ movew a1@,d0 /* get number of words in frame */ movew d0,d3 /* save it */ subw d0,a0 /* adjust save pointer */ subw d0,a0 /* adjust save pointer(bytes) */ movel a0,a1 /* copy save pointer */ subql #1,d0 /* predecrement loop counter */ # # copy the frame saveFrameLoop: movew sp@+,a1@+ dbf d0,saveFrameLoop # # now that the stack has been clenaed, # save the a7 in use at time of exception movel sp,_superStack /* save supervisor sp */ andiw #0x2000,d1 /* were we in supervisor mode ? */ beq userMode movel a7,a5@(60) /* save a7 */ bra a7saveDone userMode: movel usp,a1 movel a1,a5@(60) /* save user stack pointer */ a7saveDone: # # save size of frame movew d3,a0@- # # compute exception number andl #0xfff,d2 /* mask off vector offset */ lsrw #2,d2 /* divide by 4 to get vect num */ movel d2,a0@- /* save it */ # # save pc causing exception movel a4,a0@- # # save old frame link and set the new value movel _lastFrame,a1 /* last frame pointer */ movel a1,a0@- /* save pointer to prev frame */ movel a0,_lastFrame movel d2,sp@- /* push exception num */ movel _exceptionHook,a0 /* get address of handler */ jbsr a0@ /* and call it */ clrl sp@ /* replace exception num parm with frame ptr */ jbsr __returnFromException /* jbsr, but never returns */ "); #else /* mc68000 */ /* This function is called when an exception occurs. It translates the * return address found on the stack into an exception vector # which * is then handled by either handle_exception or a system handler. * _catchException provides a front end for both. * * stack on entry: stack on exit: * Program counter MSWord exception # MSWord * Program counter LSWord exception # MSWord * Status Register * Return Address MSWord * Return Address LSWord */ asm(" .text .globl __catchException __catchException:"); DISABLE_INTERRUPTS(); asm(" moveml d0-d7/a0-a6,_registers /* save registers */ movel _lastFrame,a0 /* last frame pointer */ "); SAVE_FP_REGS(); asm(" lea _registers,a5 /* get address of registers */ movel sp@+,d2 /* pop return address */ addl #1530,d2 /* convert return addr to */ divs #6,d2 /* exception number */ extl d2 moveql #3,d3 /* assume a three word frame */ cmpiw #3,d2 /* bus error or address error ? */ bgt normal /* if >3 then normal error */ movel sp@+,a0@- /* copy error info to frame buff*/ movel sp@+,a0@- /* these are never used */ moveql #7,d3 /* this is a 7 word frame */ normal: movew sp@+,d1 /* pop status register */ movel sp@+,a4 /* pop program counter */ movew d1,a5@(66) /* save sr */ movel a4,a5@(68) /* save pc in _regisers[] */ movel a4,a0@- /* copy pc to frame buffer */ movew d1,a0@- /* copy sr to frame buffer */ movel sp,_superStack /* save supervisor sp */ andiw #0x2000,d1 /* were we in supervisor mode ? */ beq userMode movel a7,a5@(60) /* save a7 */ bra saveDone userMode: movel usp,a1 /* save user stack pointer */ movel a1,a5@(60) /* save user stack pointer */ saveDone: movew d3,a0@- /* push frame size in words */ movel d2,a0@- /* push vector number */ movel a4,a0@- /* push exception pc */ # # save old frame link and set the new value movel _lastFrame,a1 /* last frame pointer */ movel a1,a0@- /* save pointer to prev frame */ movel a0,_lastFrame movel d2,sp@- /* push exception num */ movel _exceptionHook,a0 /* get address of handler */ jbsr a0@ /* and call it */ clrl sp@ /* replace exception num parm with frame ptr */ jbsr __returnFromException /* jbsr, but never returns */ "); #endif /* * remcomHandler is a front end for handle_exception. It moves the * stack pointer into an area reserved for debugger use in case the * breakpoint happened in supervisor mode. */ asm("_remcomHandler:"); asm(" addl #4,sp"); /* pop off return address */ asm(" movel sp@+,d0"); /* get the exception number */ asm(" movel _stackPtr,sp"); /* move to remcom stack area */ asm(" movel d0,sp@-"); /* push exception onto stack */ asm(" jbsr _handle_exception"); /* this never returns */ asm(" rts"); /* return */ void _returnFromException( Frame *frame ) { /* if no passed in frame, use the last one */ if (! frame) { frame = lastFrame; frame->frameSize = 4; frame->format = 0; frame->fsaveHeader = -1; /* restore regs, but we dont have fsave info*/ } #if !defined (mc68020) && !defined (mc68332) /* a 68000 cannot use the internal info pushed onto a bus error * or address error frame when doing an RTE so don't put this info * onto the stack or the stack will creep every time this happens. */ frame->frameSize=3; #endif /* throw away any frames in the list after this frame */ lastFrame = frame; frame->sr = registers[(int) PS]; frame->pc = registers[(int) PC]; if (registers[(int) PS] & 0x2000) { /* return to supervisor mode... */ return_to_super(); } else { /* return to user mode */ return_to_user(); } } int hex(ch) char ch; { if ((ch >= 'a') && (ch <= 'f')) return (ch-'a'+10); if ((ch >= '0') && (ch <= '9')) return (ch-'0'); if ((ch >= 'A') && (ch <= 'F')) return (ch-'A'+10); return (-1); } /* scan for the sequence $# */ void getpacket(buffer) char * buffer; { unsigned char checksum; unsigned char xmitcsum; int i; int count; char ch; do { /* wait around for the start character, ignore all other characters */ while ((ch = getDebugChar()) != '$'); checksum = 0; xmitcsum = -1; count = 0; /* now, read until a # or end of buffer is found */ while (count < BUFMAX) { ch = getDebugChar(); if (ch == '#') break; checksum = checksum + ch; buffer[count] = ch; count = count + 1; } buffer[count] = 0; if (ch == '#') { xmitcsum = hex(getDebugChar()) << 4; xmitcsum += hex(getDebugChar()); if ((remote_debug ) && (checksum != xmitcsum)) { fprintf (stderr,"bad checksum. My count = 0x%x, sent=0x%x. buf=%s\n", checksum,xmitcsum,buffer); } if (checksum != xmitcsum) putDebugChar('-'); /* failed checksum */ else { putDebugChar('+'); /* successful transfer */ /* if a sequence char is present, reply the sequence ID */ if (buffer[2] == ':') { putDebugChar( buffer[0] ); putDebugChar( buffer[1] ); /* remove sequence chars from buffer */ count = strlen(buffer); for (i=3; i <= count; i++) buffer[i-3] = buffer[i]; } } } } while (checksum != xmitcsum); } /* send the packet in buffer. The host get's one chance to read it. This routine does not wait for a positive acknowledge. */ void putpacket(buffer) char * buffer; { unsigned char checksum; int count; char ch; /* $#. */ do { putDebugChar('$'); checksum = 0; count = 0; while (ch=buffer[count]) { if (! putDebugChar(ch)) return; checksum += ch; count += 1; } putDebugChar('#'); putDebugChar(hexchars[checksum >> 4]); putDebugChar(hexchars[checksum % 16]); } while (1 == 0); /* (getDebugChar() != '+'); */ } char remcomInBuffer[BUFMAX]; char remcomOutBuffer[BUFMAX]; static short error; void debug_error(format, parm) char * format; char * parm; { if (remote_debug) fprintf (stderr,format,parm); } /* convert the memory pointed to by mem into hex, placing result in buf */ /* return a pointer to the last char put in buf (null) */ char* mem2hex(mem, buf, count) char* mem; char* buf; int count; { int i; unsigned char ch; for (i=0;i> 4]; *buf++ = hexchars[ch % 16]; } *buf = 0; return(buf); } /* convert the hex array pointed to by buf into binary to be placed in mem */ /* return a pointer to the character AFTER the last byte written */ char* hex2mem(buf, mem, count) char* buf; char* mem; int count; { int i; unsigned char ch; for (i=0;i=0) { *intValue = (*intValue <<4) | hexValue; numChars ++; } else break; (*ptr)++; } return (numChars); } /* * This function does all command procesing for interfacing to gdb. */ void handle_exception(int exceptionVector) { int sigval; int addr, length; char * ptr; int newPC; Frame *frame; if (remote_debug) printf("vector=%d, sr=0x%x, pc=0x%x\n", exceptionVector, registers[ PS ], registers[ PC ]); /* reply to host that an exception has occurred */ sigval = computeSignal( exceptionVector ); remcomOutBuffer[0] = 'S'; remcomOutBuffer[1] = hexchars[sigval >> 4]; remcomOutBuffer[2] = hexchars[sigval % 16]; remcomOutBuffer[3] = 0; putpacket(remcomOutBuffer); while (1==1) { error = 0; remcomOutBuffer[0] = 0; getpacket(remcomInBuffer); switch (remcomInBuffer[0]) { case '?' : remcomOutBuffer[0] = 'S'; remcomOutBuffer[1] = hexchars[sigval >> 4]; remcomOutBuffer[2] = hexchars[sigval % 16]; remcomOutBuffer[3] = 0; break; case 'd' : remote_debug = !(remote_debug); /* toggle debug flag */ break; case 'g' : /* return the value of the CPU registers */ mem2hex((char*) registers, remcomOutBuffer, NUMREGBYTES); break; case 'G' : /* set the value of the CPU registers - return OK */ hex2mem(&remcomInBuffer[1], (char*) registers, NUMREGBYTES); strcpy(remcomOutBuffer,"OK"); break; /* mAA..AA,LLLL Read LLLL bytes at address AA..AA */ case 'm' : if (setjmp(remcomEnv) == 0) { exceptionHandler(2,handle_buserror); /* TRY TO READ %x,%x. IF SUCCEED, SET PTR = 0 */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr,&addr)) if (*(ptr++) == ',') if (hexToInt(&ptr,&length)) { ptr = 0; mem2hex((char*) addr, remcomOutBuffer, length); } if (ptr) { strcpy(remcomOutBuffer,"E01"); debug_error("malformed read memory command: %s",remcomInBuffer); } } else { exceptionHandler(2,_catchException); strcpy(remcomOutBuffer,"E03"); debug_error("bus error"); } /* restore handler for bus error */ exceptionHandler(2,_catchException); break; /* MAA..AA,LLLL: Write LLLL bytes at address AA.AA return OK */ case 'M' : if (setjmp(remcomEnv) == 0) { exceptionHandler(2,handle_buserror); /* TRY TO READ '%x,%x:'. IF SUCCEED, SET PTR = 0 */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr,&addr)) if (*(ptr++) == ',') if (hexToInt(&ptr,&length)) if (*(ptr++) == ':') { hex2mem(ptr, (char*) addr, length); ptr = 0; strcpy(remcomOutBuffer,"OK"); } if (ptr) { strcpy(remcomOutBuffer,"E02"); debug_error("malformed write memory command: %s",remcomInBuffer); } } else { exceptionHandler(2,_catchException); strcpy(remcomOutBuffer,"E03"); debug_error("bus error"); } /* restore handler for bus error */ exceptionHandler(2,_catchException); break; /* cAA..AA Continue at address AA..AA(optional) */ /* sAA..AA Step one instruction from AA..AA(optional) */ case 'c' : case 's' : /* try to read optional parameter, pc unchanged if no parm */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr,&addr)) registers[ PC ] = addr; newPC = registers[ PC]; /* clear the trace bit */ registers[ PS ] &= 0x7fff; /* set the trace bit if we're stepping */ if (remcomInBuffer[0] == 's') registers[ PS ] |= 0x8000; /* * look for newPC in the linked list of exception frames. * if it is found, use the old frame it. otherwise, * fake up a dummy frame in returnFromException(). */ if (remote_debug) printf("new pc = 0x%x\n",newPC); frame = lastFrame; while (frame) { if (remote_debug) printf("frame at 0x%x has pc=0x%x, except#=%d\n", frame,frame->exceptionPC, frame->exceptionVector); if (frame->exceptionPC == newPC) break; /* bingo! a match */ /* * for a breakpoint instruction, the saved pc may * be off by two due to re-executing the instruction * replaced by the trap instruction. Check for this. */ if ((frame->exceptionVector == 33) && (frame->exceptionPC == (newPC+2))) break; if (frame == frame->previous) { frame = 0; /* no match found */ break; } frame = frame->previous; } /* * If we found a match for the PC AND we are not returning * as a result of a breakpoint (33), * trace exception (9), nmi (31), jmp to * the old exception handler as if this code never ran. */ if (frame) { if ((frame->exceptionVector != 9) && (frame->exceptionVector != 31) && (frame->exceptionVector != 33)) { /* * invoke the previous handler. */ if (oldExceptionHook) (*oldExceptionHook) (frame->exceptionVector); newPC = registers[ PC ]; /* pc may have changed */ if (newPC != frame->exceptionPC) { if (remote_debug) printf("frame at 0x%x has pc=0x%x, except#=%d\n", frame,frame->exceptionPC, frame->exceptionVector); /* re-use the last frame, we're skipping it (longjump?)*/ frame = (Frame *) 0; _returnFromException( frame ); /* this is a jump */ } } } /* if we couldn't find a frame, create one */ if (frame == 0) { frame = lastFrame -1 ; /* by using a bunch of print commands with breakpoints, it's possible for the frame stack to creep down. If it creeps too far, give up and reset it to the top. Normal use should not see this happen. */ if ((unsigned int) (frame-2) < (unsigned int) &gdbFrameStack) { initializeRemcomErrorFrame(); frame = lastFrame; } frame->previous = lastFrame; lastFrame = frame; frame = 0; /* null so _return... will properly initialize it */ } _returnFromException( frame ); /* this is a jump */ break; /* kill the program */ case 'k' : /* do nothing */ break; } /* switch */ /* reply to the request */ putpacket(remcomOutBuffer); } } void initializeRemcomErrorFrame() { lastFrame = ((Frame *) &gdbFrameStack[FRAMESIZE-1]) - 1; lastFrame->previous = lastFrame; } /* this function is used to set up exception handlers for tracing and breakpoints */ void set_debug_traps() { extern void _debug_level7(); extern void remcomHandler(); int exception; initializeRemcomErrorFrame(); stackPtr = &remcomStack[STACKSIZE/sizeof(int) - 1]; for (exception = 2; exception <= 23; exception++) exceptionHandler(exception,_catchException); /* level 7 interrupt */ exceptionHandler(31,_debug_level7); /* breakpoint exception (trap #1) */ exceptionHandler(33,_catchException); /* This is a trap #8 instruction. Apparently it is someone's software convention for some sort of SIGFPE condition. Whose? How many people are being screwed by having this code the way it is? Is there a clean solution? */ exceptionHandler(40,_catchException); /* 48 to 54 are floating point coprocessor errors */ for (exception = 48; exception <= 54; exception++) exceptionHandler(exception,_catchException); if (oldExceptionHook != remcomHandler) { oldExceptionHook = exceptionHook; exceptionHook = remcomHandler; } initialized = 1; } /* This function will generate a breakpoint exception. It is used at the beginning of a program to sync up with a debugger and can be used otherwise as a quick means to stop program execution and "break" into the debugger. */ void breakpoint() { if (initialized) BREAKPOINT(); } gdb-4.13/gdb/m68k-tdep.c 666 34562 1752 35347 5610362517 13215 0ustar fnfcygnus/* Target dependent code for the Motorola 68000 series. Copyright (C) 1990, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "symtab.h" /* Push an empty stack frame, to record the current PC, etc. */ void m68k_push_dummy_frame () { register CORE_ADDR sp = read_register (SP_REGNUM); register int regnum; char raw_buffer[12]; sp = push_word (sp, read_register (PC_REGNUM)); sp = push_word (sp, read_register (FP_REGNUM)); write_register (FP_REGNUM, sp); /* Always save the floating-point registers, whether they exist on this target or not. */ for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--) { read_register_bytes (REGISTER_BYTE (regnum), raw_buffer, 12); sp = push_bytes (sp, raw_buffer, 12); } for (regnum = FP_REGNUM - 1; regnum >= 0; regnum--) { sp = push_word (sp, read_register (regnum)); } sp = push_word (sp, read_register (PS_REGNUM)); write_register (SP_REGNUM, sp); } /* Discard from the stack the innermost frame, restoring all saved registers. */ void m68k_pop_frame () { register FRAME frame = get_current_frame (); register CORE_ADDR fp; register int regnum; struct frame_saved_regs fsr; struct frame_info *fi; char raw_buffer[12]; fi = get_frame_info (frame); fp = fi -> frame; get_frame_saved_regs (fi, &fsr); for (regnum = FP0_REGNUM + 7 ; regnum >= FP0_REGNUM ; regnum--) { if (fsr.regs[regnum]) { read_memory (fsr.regs[regnum], raw_buffer, 12); write_register_bytes (REGISTER_BYTE (regnum), raw_buffer, 12); } } for (regnum = FP_REGNUM - 1 ; regnum >= 0 ; regnum--) { if (fsr.regs[regnum]) { write_register (regnum, read_memory_integer (fsr.regs[regnum], 4)); } } if (fsr.regs[PS_REGNUM]) { write_register (PS_REGNUM, read_memory_integer (fsr.regs[PS_REGNUM], 4)); } write_register (FP_REGNUM, read_memory_integer (fp, 4)); write_register (PC_REGNUM, read_memory_integer (fp + 4, 4)); write_register (SP_REGNUM, fp + 8); flush_cached_frames (); set_current_frame (create_new_frame (read_register (FP_REGNUM), read_pc ())); } /* Given an ip value corresponding to the start of a function, return the ip of the first instruction after the function prologue. This is the generic m68k support. Machines which require something different can override the SKIP_PROLOGUE macro to point elsewhere. Some instructions which typically may appear in a function prologue include: A link instruction, word form: link.w %a6,&0 4e56 XXXX A link instruction, long form: link.l %fp,&F%1 480e XXXX XXXX A movm instruction to preserve integer regs: movm.l &M%1,(4,%sp) 48ef XXXX XXXX A fmovm instruction to preserve float regs: fmovm &FPM%1,(FPO%1,%sp) f237 XXXX XXXX XXXX XXXX Some profiling setup code (FIXME, not recognized yet): lea.l (.L3,%pc),%a1 43fb XXXX XXXX XXXX bsr _mcount 61ff XXXX XXXX */ #define P_LINK_L 0x480e #define P_LINK_W 0x4e56 #define P_MOV_L 0x207c #define P_JSR 0x4eb9 #define P_BSR 0x61ff #define P_LEA_L 0x43fb #define P_MOVM_L 0x48ef #define P_FMOVM 0xf237 #define P_TRAP 0x4e40 CORE_ADDR m68k_skip_prologue (ip) CORE_ADDR ip; { register CORE_ADDR limit; struct symtab_and_line sal; register int op; /* Find out if there is a known limit for the extent of the prologue. If so, ensure we don't go past it. If not, assume "infinity". */ sal = find_pc_line (ip, 0); limit = (sal.end) ? sal.end : (CORE_ADDR) ~0; while (ip < limit) { op = read_memory_integer (ip, 2); op &= 0xFFFF; if (op == P_LINK_W) { ip += 4; /* Skip link.w */ } else if (op == 0x4856) ip += 2; /* Skip pea %fp */ else if (op == 0x2c4f) ip += 2; /* Skip move.l %sp, %fp */ else if (op == P_LINK_L) { ip += 6; /* Skip link.l */ } else if (op == P_MOVM_L) { ip += 6; /* Skip movm.l */ } else if (op == P_FMOVM) { ip += 10; /* Skip fmovm */ } else { break; /* Found unknown code, bail out. */ } } return (ip); } void m68k_find_saved_regs (frame_info, saved_regs) struct frame_info *frame_info; struct frame_saved_regs *saved_regs; { register int regnum; register int regmask; register CORE_ADDR next_addr; register CORE_ADDR pc; /* First possible address for a pc in a call dummy for this frame. */ CORE_ADDR possible_call_dummy_start = (frame_info)->frame - CALL_DUMMY_LENGTH - FP_REGNUM*4 - 4 - 8*12; int nextinsn; memset (saved_regs, 0, sizeof (*saved_regs)); if ((frame_info)->pc >= possible_call_dummy_start && (frame_info)->pc <= (frame_info)->frame) { /* It is a call dummy. We could just stop now, since we know what the call dummy saves and where. But this code proceeds to parse the "prologue" which is part of the call dummy. This is needlessly complex and confusing. FIXME. */ next_addr = (frame_info)->frame; pc = possible_call_dummy_start; } else { pc = get_pc_function_start ((frame_info)->pc); if (0x4856 == read_memory_integer (pc, 2) && 0x2c4f == read_memory_integer (pc + 2, 2)) { /* pea %fp move.l %sp, %fp */ pc += 4; next_addr = frame_info->frame; } else if (044016 == read_memory_integer (pc, 2)) /* link.l %fp */ /* Find the address above the saved regs using the amount of storage from the link instruction. */ next_addr = (frame_info)->frame + read_memory_integer (pc += 2, 4), pc+=4; else if (047126 == read_memory_integer (pc, 2)) /* link.w %fp */ /* Find the address above the saved regs using the amount of storage from the link instruction. */ next_addr = (frame_info)->frame + read_memory_integer (pc += 2, 2), pc+=2; else goto lose; /* If have an addal #-n, sp next, adjust next_addr. */ if ((0177777 & read_memory_integer (pc, 2)) == 0157774) next_addr += read_memory_integer (pc += 2, 4), pc += 4; } regmask = read_memory_integer (pc + 2, 2); /* Here can come an fmovem. Check for it. */ nextinsn = 0xffff & read_memory_integer (pc, 2); if (0xf227 == nextinsn && (regmask & 0xff00) == 0xe000) { pc += 4; /* Regmask's low bit is for register fp7, the first pushed */ for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--, regmask >>= 1) if (regmask & 1) saved_regs->regs[regnum] = (next_addr -= 12); regmask = read_memory_integer (pc + 2, 2); } /* next should be a moveml to (sp) or -(sp) or a movl r,-(sp) */ if (0044327 == read_memory_integer (pc, 2)) { pc += 4; /* Regmask's low bit is for register 0, the first written */ for (regnum = 0; regnum < 16; regnum++, regmask >>= 1) if (regmask & 1) saved_regs->regs[regnum] = (next_addr += 4) - 4; } else if (0044347 == read_memory_integer (pc, 2)) { pc += 4; /* Regmask's low bit is for register 15, the first pushed */ for (regnum = 15; regnum >= 0; regnum--, regmask >>= 1) if (regmask & 1) saved_regs->regs[regnum] = (next_addr -= 4); } else if (0x2f00 == (0xfff0 & read_memory_integer (pc, 2))) { regnum = 0xf & read_memory_integer (pc, 2); pc += 2; saved_regs->regs[regnum] = (next_addr -= 4); /* gcc, at least, may use a pair of movel instructions when saving exactly 2 registers. */ if (0x2f00 == (0xfff0 & read_memory_integer (pc, 2))) { regnum = 0xf & read_memory_integer (pc, 2); pc += 2; saved_regs->regs[regnum] = (next_addr -= 4); } } /* fmovemx to index of sp may follow. */ regmask = read_memory_integer (pc + 2, 2); nextinsn = 0xffff & read_memory_integer (pc, 2); if (0xf236 == nextinsn && (regmask & 0xff00) == 0xf000) { pc += 10; /* Regmask's low bit is for register fp0, the first written */ for (regnum = FP0_REGNUM + 7; regnum >= FP0_REGNUM; regnum--, regmask >>= 1) if (regmask & 1) saved_regs->regs[regnum] = (next_addr += 12) - 12; regmask = read_memory_integer (pc + 2, 2); } /* clrw -(sp); movw ccr,-(sp) may follow. */ if (0x426742e7 == read_memory_integer (pc, 4)) saved_regs->regs[PS_REGNUM] = (next_addr -= 4); lose: ; saved_regs->regs[SP_REGNUM] = (frame_info)->frame + 8; saved_regs->regs[FP_REGNUM] = (frame_info)->frame; saved_regs->regs[PC_REGNUM] = (frame_info)->frame + 4; #ifdef SIG_SP_FP_OFFSET /* Adjust saved SP_REGNUM for fake _sigtramp frames. */ if (frame_info->signal_handler_caller && frame_info->next) saved_regs->regs[SP_REGNUM] = frame_info->next->frame + SIG_SP_FP_OFFSET; #endif } #ifdef USE_PROC_FS /* Target dependent support for /proc */ #include /* The /proc interface divides the target machine's register set up into two different sets, the general register set (gregset) and the floating point register set (fpregset). For each set, there is an ioctl to get the current register set and another ioctl to set the current values. The actual structure passed through the ioctl interface is, of course, naturally machine dependent, and is different for each set of registers. For the m68k for example, the general register set is typically defined by: typedef int gregset_t[18]; #define R_D0 0 ... #define R_PS 17 and the floating point set by: typedef struct fpregset { int f_pcr; int f_psr; int f_fpiaddr; int f_fpregs[8][3]; (8 regs, 96 bits each) } fpregset_t; These routines provide the packing and unpacking of gregset_t and fpregset_t formatted data. */ /* Atari SVR4 has R_SR but not R_PS */ #if !defined (R_PS) && defined (R_SR) #define R_PS R_SR #endif /* Given a pointer to a general register set in /proc format (gregset_t *), unpack the register contents and supply them as gdb's idea of the current register values. */ void supply_gregset (gregsetp) gregset_t *gregsetp; { register int regi; register greg_t *regp = (greg_t *) gregsetp; for (regi = 0 ; regi < R_PC ; regi++) { supply_register (regi, (char *) (regp + regi)); } supply_register (PS_REGNUM, (char *) (regp + R_PS)); supply_register (PC_REGNUM, (char *) (regp + R_PC)); } void fill_gregset (gregsetp, regno) gregset_t *gregsetp; int regno; { register int regi; register greg_t *regp = (greg_t *) gregsetp; extern char registers[]; for (regi = 0 ; regi < R_PC ; regi++) { if ((regno == -1) || (regno == regi)) { *(regp + regi) = *(int *) ®isters[REGISTER_BYTE (regi)]; } } if ((regno == -1) || (regno == PS_REGNUM)) { *(regp + R_PS) = *(int *) ®isters[REGISTER_BYTE (PS_REGNUM)]; } if ((regno == -1) || (regno == PC_REGNUM)) { *(regp + R_PC) = *(int *) ®isters[REGISTER_BYTE (PC_REGNUM)]; } } #if defined (FP0_REGNUM) /* Given a pointer to a floating point register set in /proc format (fpregset_t *), unpack the register contents and supply them as gdb's idea of the current floating point register values. */ void supply_fpregset (fpregsetp) fpregset_t *fpregsetp; { register int regi; char *from; for (regi = FP0_REGNUM ; regi < FPC_REGNUM ; regi++) { from = (char *) &(fpregsetp -> f_fpregs[regi-FP0_REGNUM][0]); supply_register (regi, from); } supply_register (FPC_REGNUM, (char *) &(fpregsetp -> f_pcr)); supply_register (FPS_REGNUM, (char *) &(fpregsetp -> f_psr)); supply_register (FPI_REGNUM, (char *) &(fpregsetp -> f_fpiaddr)); } /* Given a pointer to a floating point register set in /proc format (fpregset_t *), update the register specified by REGNO from gdb's idea of the current floating point register set. If REGNO is -1, update them all. */ void fill_fpregset (fpregsetp, regno) fpregset_t *fpregsetp; int regno; { int regi; char *to; char *from; extern char registers[]; for (regi = FP0_REGNUM ; regi < FPC_REGNUM ; regi++) { if ((regno == -1) || (regno == regi)) { from = (char *) ®isters[REGISTER_BYTE (regi)]; to = (char *) &(fpregsetp -> f_fpregs[regi-FP0_REGNUM][0]); memcpy (to, from, REGISTER_RAW_SIZE (regi)); } } if ((regno == -1) || (regno == FPC_REGNUM)) { fpregsetp -> f_pcr = *(int *) ®isters[REGISTER_BYTE (FPC_REGNUM)]; } if ((regno == -1) || (regno == FPS_REGNUM)) { fpregsetp -> f_psr = *(int *) ®isters[REGISTER_BYTE (FPS_REGNUM)]; } if ((regno == -1) || (regno == FPI_REGNUM)) { fpregsetp -> f_fpiaddr = *(int *) ®isters[REGISTER_BYTE (FPI_REGNUM)]; } } #endif /* defined (FP0_REGNUM) */ #endif /* USE_PROC_FS */ #ifdef GET_LONGJMP_TARGET /* Figure out where the longjmp will land. Slurp the args out of the stack. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into PC. This routine returns true on success. */ int get_longjmp_target(pc) CORE_ADDR *pc; { char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT]; CORE_ADDR sp, jb_addr; sp = read_register(SP_REGNUM); if (target_read_memory (sp + SP_ARG0, /* Offset of first arg on stack */ buf, TARGET_PTR_BIT / TARGET_CHAR_BIT)) return 0; jb_addr = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT); if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf, TARGET_PTR_BIT / TARGET_CHAR_BIT)) return 0; *pc = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT); return 1; } #endif /* GET_LONGJMP_TARGET */ /* Immediately after a function call, return the saved pc before the frame is setup. For sun3's, we check for the common case of being inside of a system call, and if so, we know that Sun pushes the call # on the stack prior to doing the trap. */ CORE_ADDR m68k_saved_pc_after_call(frame) struct frame_info *frame; { #ifdef SYSCALL_TRAP int op; op = read_memory_integer (frame->pc - SYSCALL_TRAP_OFFSET, 2); if (op == SYSCALL_TRAP) return read_memory_integer (read_register (SP_REGNUM) + 4, 4); else #endif /* SYSCALL_TRAP */ return read_memory_integer (read_register (SP_REGNUM), 4); } gdb-4.13/gdb/m88k-nat.c 666 34562 1752 20470 5507351423 13033 0ustar fnfcygnus/* Native-dependent Motorola 88xxx support for GDB, the GNU Debugger. Copyright 1988, 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include #include #include #include #include "gdbcore.h" #include #ifndef USER /* added to support BCS ptrace_user */ #define USER ptrace_user #endif #include #include #include #include #include "symtab.h" #include "setjmp.h" #include "value.h" #ifdef DELTA88 #include /* define offsets to the pc instruction offsets in ptrace_user struct */ #define SXIP_OFFSET ((char *)&u.pt_sigframe.sig_sxip - (char *)&u) #define SNIP_OFFSET ((char *)&u.pt_sigframe.sig_snip - (char *)&u) #define SFIP_OFFSET ((char *)&u.pt_sigframe.sig_sfip - (char *)&u) #else /* define offsets to the pc instruction offsets in ptrace_user struct */ #define SXIP_OFFSET ((char *)&u.pt_sigframe.dg_sigframe.sc_sxip - (char *)&u) #define SNIP_OFFSET ((char *)&u.pt_sigframe.dg_sigframe.sc_snip - (char *)&u) #define SFIP_OFFSET ((char *)&u.pt_sigframe.dg_sigframe.sc_sfip - (char *)&u) #endif extern int have_symbol_file_p(); extern jmp_buf stack_jmp; extern int errno; extern char registers[REGISTER_BYTES]; void fetch_inferior_registers (regno) int regno; /* Original value discarded */ { register unsigned int regaddr; char buf[MAX_REGISTER_RAW_SIZE]; register int i; struct USER u; unsigned int offset; offset = (char *) &u.pt_r0 - (char *) &u; regaddr = offset; /* byte offset to r0;*/ /* offset = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0) - KERNEL_U_ADDR; */ for (regno = 0; regno < NUM_REGS; regno++) { /*regaddr = register_addr (regno, offset);*/ /* 88k enhancement */ for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) { *(int *) &buf[i] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0); regaddr += sizeof (int); } supply_register (regno, buf); } /* now load up registers 36 - 38; special pc registers */ *(int *) &buf[0] = ptrace (3,inferior_pid, (PTRACE_ARG3_TYPE) SXIP_OFFSET ,0); supply_register (SXIP_REGNUM, buf); *(int *) &buf[0] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) SNIP_OFFSET,0); supply_register (SNIP_REGNUM, buf); *(int *) &buf[0] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) SFIP_OFFSET,0); supply_register (SFIP_REGNUM, buf); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { register unsigned int regaddr; char buf[80]; struct USER u; unsigned int offset = (char *) &u.pt_r0 - (char *) &u; regaddr = offset; /* Don't try to deal with EXIP_REGNUM or ENIP_REGNUM, because I think either svr3 doesn't run on an 88110, or the kernel isolates the different (not completely sure this is true, but seems to be. */ if (regno >= 0) { /* regaddr = register_addr (regno, offset); */ if (regno < PC_REGNUM) { regaddr = offset + regno * sizeof (int); errno = 0; ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, read_register (regno)); if (errno != 0) { sprintf (buf, "writing register number %d", regno); perror_with_name (buf); } } else if (regno == SXIP_REGNUM) ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) SXIP_OFFSET, read_register(regno)); else if (regno == SNIP_REGNUM) ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) SNIP_OFFSET, read_register(regno)); else if (regno == SFIP_REGNUM) ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) SFIP_OFFSET, read_register(regno)); else printf_unfiltered ("Bad register number for store_inferior routine\n"); } else { for (regno = 0; regno < PC_REGNUM; regno++) { /* regaddr = register_addr (regno, offset); */ errno = 0; regaddr = offset + regno * sizeof (int); ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, read_register (regno)); if (errno != 0) { sprintf (buf, "writing register number %d", regno); perror_with_name (buf); } } ptrace (6,inferior_pid, (PTRACE_ARG3_TYPE) SXIP_OFFSET,read_register(SXIP_REGNUM)); ptrace (6,inferior_pid, (PTRACE_ARG3_TYPE) SNIP_OFFSET,read_register(SNIP_REGNUM)); ptrace (6,inferior_pid, (PTRACE_ARG3_TYPE) SFIP_OFFSET,read_register(SFIP_REGNUM)); } } /* blockend is the address of the end of the user structure */ m88k_register_u_addr (blockend, regnum) { struct USER u; int ustart = blockend - sizeof (struct USER); switch (regnum) { case 0: case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11: case 12: case 13: case 14: case 15: case 16: case 17: case 18: case 19: case 20: case 21: case 22: case 23: case 24: case 25: case 26: case 27: case 28: case 29: case 30: case 31: return (ustart + ((int) &u.pt_r0 - (int) &u) + REGISTER_SIZE * regnum); case PSR_REGNUM: return (ustart + ((int) &u.pt_psr - (int) &u)); case FPSR_REGNUM: return (ustart + ((int) &u.pt_fpsr - (int) &u)); case FPCR_REGNUM: return (ustart + ((int) &u.pt_fpcr - (int) &u)); case SXIP_REGNUM: return (ustart + SXIP_OFFSET); case SNIP_REGNUM: return (ustart + SNIP_OFFSET); case SFIP_REGNUM: return (ustart + SFIP_OFFSET); default: if (regnum < NUM_REGS) /* The register is one of those which is not defined... give it zero */ return (ustart + ((int) &u.pt_r0 - (int) &u)); else return (blockend + REGISTER_SIZE * regnum); } } #ifdef USE_PROC_FS #include /* Given a pointer to a general register set in /proc format (gregset_t *), unpack the register contents and supply them as gdb's idea of the current register values. */ void supply_gregset (gregsetp) gregset_t *gregsetp; { register int regi; register greg_t *regp = (greg_t *) gregsetp; for (regi=0; regi <= SP_REGNUM; regi++) supply_register (regi, (char *) (regp + regi)); supply_register (SXIP_REGNUM, (char *) (regp + R_XIP)); supply_register (SNIP_REGNUM, (char *) (regp + R_NIP)); supply_register (SFIP_REGNUM, (char *) (regp + R_FIP)); supply_register (PSR_REGNUM, (char *) (regp + R_PSR)); supply_register (FPSR_REGNUM, (char *) (regp + R_FPSR)); supply_register (FPCR_REGNUM, (char *) (regp + R_FPCR)); } void fill_gregset (gregsetp, regno) gregset_t *gregsetp; int regno; { int regi; register greg_t *regp = (greg_t *) gregsetp; extern char registers[]; for (regi = 0 ; regi <= R_R31 ; regi++) if ((regno == -1) || (regno == regi)) *(regp + regi) = *(int *) ®isters[REGISTER_BYTE(regi)]; if ((regno == -1) || (regno == SXIP_REGNUM)) *(regp + R_XIP) = *(int *) ®isters[REGISTER_BYTE(SXIP_REGNUM)]; if ((regno == -1) || (regno == SNIP_REGNUM)) *(regp + R_NIP) = *(int *) ®isters[REGISTER_BYTE(SNIP_REGNUM)]; if ((regno == -1) || (regno == SFIP_REGNUM)) *(regp + R_FIP) = *(int *) ®isters[REGISTER_BYTE(SFIP_REGNUM)]; if ((regno == -1) || (regno == PSR_REGNUM)) *(regp + R_PSR) = *(int *) ®isters[REGISTER_BYTE(PSR_REGNUM)]; if ((regno == -1) || (regno == FPSR_REGNUM)) *(regp + R_FPSR) = *(int *) ®isters[REGISTER_BYTE(FPSR_REGNUM)]; if ((regno == -1) || (regno == FPCR_REGNUM)) *(regp + R_FPCR) = *(int *) ®isters[REGISTER_BYTE(FPCR_REGNUM)]; } #endif /* USE_PROC_FS */ gdb-4.13/gdb/m88k-tdep.c 666 34562 1752 45755 5611600564 13221 0ustar fnfcygnus/* Target-machine dependent code for Motorola 88000 series, for GDB. Copyright (C) 1988, 1990, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "value.h" #include "gdbcore.h" #include "symtab.h" #include "setjmp.h" #include "value.h" /* Size of an instruction */ #define BYTES_PER_88K_INSN 4 void frame_find_saved_regs (); /* is this target an m88110? Otherwise assume m88100. This has relevance for the ways in which we screw with instruction pointers. */ int target_is_m88110 = 0; /* Given a GDB frame, determine the address of the calling function's frame. This will be used to create a new GDB frame struct, and then INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame. For us, the frame address is its stack pointer value, so we look up the function prologue to determine the caller's sp value, and return it. */ FRAME_ADDR frame_chain (thisframe) FRAME thisframe; { frame_find_saved_regs (thisframe, (struct frame_saved_regs *) 0); /* NOTE: this depends on frame_find_saved_regs returning the VALUE, not the ADDRESS, of SP_REGNUM. It also depends on the cache of frame_find_saved_regs results. */ if (thisframe->fsr->regs[SP_REGNUM]) return thisframe->fsr->regs[SP_REGNUM]; else return thisframe->frame; /* Leaf fn -- next frame up has same SP. */ } int frameless_function_invocation (frame) FRAME frame; { frame_find_saved_regs (frame, (struct frame_saved_regs *) 0); /* NOTE: this depends on frame_find_saved_regs returning the VALUE, not the ADDRESS, of SP_REGNUM. It also depends on the cache of frame_find_saved_regs results. */ if (frame->fsr->regs[SP_REGNUM]) return 0; /* Frameful -- return addr saved somewhere */ else return 1; /* Frameless -- no saved return address */ } void init_extra_frame_info (fromleaf, fi) int fromleaf; struct frame_info *fi; { fi->fsr = 0; /* Not yet allocated */ fi->args_pointer = 0; /* Unknown */ fi->locals_pointer = 0; /* Unknown */ } /* Examine an m88k function prologue, recording the addresses at which registers are saved explicitly by the prologue code, and returning the address of the first instruction after the prologue (but not after the instruction at address LIMIT, as explained below). LIMIT places an upper bound on addresses of the instructions to be examined. If the prologue code scan reaches LIMIT, the scan is aborted and LIMIT is returned. This is used, when examining the prologue for the current frame, to keep examine_prologue () from claiming that a given register has been saved when in fact the instruction that saves it has not yet been executed. LIMIT is used at other times to stop the scan when we hit code after the true function prologue (e.g. for the first source line) which might otherwise be mistaken for function prologue. The format of the function prologue matched by this routine is derived from examination of the source to gcc 1.95, particularly the routine output_prologue () in config/out-m88k.c. subu r31,r31,n # stack pointer update (st rn,r31,offset)? # save incoming regs (st.d rn,r31,offset)? (addu r30,r31,n)? # frame pointer update (pic sequence)? # PIC code prologue (or rn,rm,0)? # Move parameters to other regs */ /* Macros for extracting fields from instructions. */ #define BITMASK(pos, width) (((0x1 << (width)) - 1) << (pos)) #define EXTRACT_FIELD(val, pos, width) ((val) >> (pos) & BITMASK (0, width)) #define SUBU_OFFSET(x) ((unsigned)(x & 0xFFFF)) #define ST_OFFSET(x) ((unsigned)((x) & 0xFFFF)) #define ST_SRC(x) EXTRACT_FIELD ((x), 21, 5) #define ADDU_OFFSET(x) ((unsigned)(x & 0xFFFF)) /* * prologue_insn_tbl is a table of instructions which may comprise a * function prologue. Associated with each table entry (corresponding * to a single instruction or group of instructions), is an action. * This action is used by examine_prologue (below) to determine * the state of certain machine registers and where the stack frame lives. */ enum prologue_insn_action { PIA_SKIP, /* don't care what the instruction does */ PIA_NOTE_ST, /* note register stored and where */ PIA_NOTE_STD, /* note pair of registers stored and where */ PIA_NOTE_SP_ADJUSTMENT, /* note stack pointer adjustment */ PIA_NOTE_FP_ASSIGNMENT, /* note frame pointer assignment */ PIA_NOTE_PROLOGUE_END, /* no more prologue */ }; struct prologue_insns { unsigned long insn; unsigned long mask; enum prologue_insn_action action; }; struct prologue_insns prologue_insn_tbl[] = { /* Various register move instructions */ { 0x58000000, 0xf800ffff, PIA_SKIP }, /* or/or.u with immed of 0 */ { 0xf4005800, 0xfc1fffe0, PIA_SKIP }, /* or rd, r0, rs */ { 0xf4005800, 0xfc00ffff, PIA_SKIP }, /* or rd, rs, r0 */ /* Stack pointer setup: "subu sp, sp, n" where n is a multiple of 8 */ { 0x67ff0000, 0xffff0007, PIA_NOTE_SP_ADJUSTMENT }, /* Frame pointer assignment: "addu r30, r31, n" */ { 0x63df0000, 0xffff0000, PIA_NOTE_FP_ASSIGNMENT }, /* Store to stack instructions; either "st rx, sp, n" or "st.d rx, sp, n" */ { 0x241f0000, 0xfc1f0000, PIA_NOTE_ST }, /* st rx, sp, n */ { 0x201f0000, 0xfc1f0000, PIA_NOTE_STD }, /* st.d rs, sp, n */ /* Instructions needed for setting up r25 for pic code. */ { 0x5f200000, 0xffff0000, PIA_SKIP }, /* or.u r25, r0, offset_high */ { 0xcc000002, 0xffffffff, PIA_SKIP }, /* bsr.n Lab */ { 0x5b390000, 0xffff0000, PIA_SKIP }, /* or r25, r25, offset_low */ { 0xf7396001, 0xffffffff, PIA_SKIP }, /* Lab: addu r25, r25, r1 */ /* Various branch or jump instructions which have a delay slot -- these do not form part of the prologue, but the instruction in the delay slot might be a store instruction which should be noted. */ { 0xc4000000, 0xe4000000, PIA_NOTE_PROLOGUE_END }, /* br.n, bsr.n, bb0.n, or bb1.n */ { 0xec000000, 0xfc000000, PIA_NOTE_PROLOGUE_END }, /* bcnd.n */ { 0xf400c400, 0xfffff7e0, PIA_NOTE_PROLOGUE_END } /* jmp.n or jsr.n */ }; /* Fetch the instruction at ADDR, returning 0 if ADDR is beyond LIM or is not the address of a valid instruction, the address of the next instruction beyond ADDR otherwise. *PWORD1 receives the first word of the instruction. */ #define NEXT_PROLOGUE_INSN(addr, lim, pword1) \ (((addr) < (lim)) ? next_insn (addr, pword1) : 0) /* Read the m88k instruction at 'memaddr' and return the address of the next instruction after that, or 0 if 'memaddr' is not the address of a valid instruction. The instruction is stored at 'pword1'. */ CORE_ADDR next_insn (memaddr, pword1) unsigned long *pword1; CORE_ADDR memaddr; { *pword1 = read_memory_integer (memaddr, BYTES_PER_88K_INSN); return memaddr + BYTES_PER_88K_INSN; } /* Read a register from frames called by us (or from the hardware regs). */ static int read_next_frame_reg(fi, regno) FRAME fi; int regno; { for (; fi; fi = fi->next) { if (regno == SP_REGNUM) return fi->frame; else if (fi->fsr->regs[regno]) return read_memory_integer(fi->fsr->regs[regno], 4); } return read_register(regno); } /* Examine the prologue of a function. `ip' points to the first instruction. `limit' is the limit of the prologue (e.g. the addr of the first linenumber, or perhaps the program counter if we're stepping through). `frame_sp' is the stack pointer value in use in this frame. `fsr' is a pointer to a frame_saved_regs structure into which we put info about the registers saved by this frame. `fi' is a struct frame_info pointer; we fill in various fields in it to reflect the offsets of the arg pointer and the locals pointer. */ static CORE_ADDR examine_prologue (ip, limit, frame_sp, fsr, fi) register CORE_ADDR ip; register CORE_ADDR limit; FRAME_ADDR frame_sp; struct frame_saved_regs *fsr; struct frame_info *fi; { register CORE_ADDR next_ip; register int src; unsigned int insn; int size, offset; char must_adjust[32]; /* If set, must adjust offsets in fsr */ int sp_offset = -1; /* -1 means not set (valid must be mult of 8) */ int fp_offset = -1; /* -1 means not set */ CORE_ADDR frame_fp; CORE_ADDR prologue_end = 0; memset (must_adjust, '\0', sizeof (must_adjust)); next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn); while (next_ip) { struct prologue_insns *pip; for (pip=prologue_insn_tbl; (insn & pip->mask) != pip->insn; ) if (++pip >= prologue_insn_tbl + sizeof prologue_insn_tbl) goto end_of_prologue_found; /* not a prologue insn */ switch (pip->action) { case PIA_NOTE_ST: case PIA_NOTE_STD: if (sp_offset != -1) { src = ST_SRC (insn); offset = ST_OFFSET (insn); must_adjust[src] = 1; fsr->regs[src++] = offset; /* Will be adjusted later */ if (pip->action == PIA_NOTE_STD && src < 32) { offset += 4; must_adjust[src] = 1; fsr->regs[src++] = offset; } } else goto end_of_prologue_found; break; case PIA_NOTE_SP_ADJUSTMENT: if (sp_offset == -1) sp_offset = -SUBU_OFFSET (insn); else goto end_of_prologue_found; break; case PIA_NOTE_FP_ASSIGNMENT: if (fp_offset == -1) fp_offset = ADDU_OFFSET (insn); else goto end_of_prologue_found; break; case PIA_NOTE_PROLOGUE_END: if (!prologue_end) prologue_end = ip; break; case PIA_SKIP: default : /* Do nothing */ break; } ip = next_ip; next_ip = NEXT_PROLOGUE_INSN (ip, limit, &insn); } end_of_prologue_found: if (prologue_end) ip = prologue_end; /* We're done with the prologue. If we don't care about the stack frame itself, just return. (Note that fsr->regs has been trashed, but the one caller who calls with fi==0 passes a dummy there.) */ if (fi == 0) return ip; /* OK, now we have: sp_offset original (before any alloca calls) displacement of SP (will be negative). fp_offset displacement from original SP to the FP for this frame or -1. fsr->regs[0..31] displacement from original SP to the stack location where reg[0..31] is stored. must_adjust[0..31] set if corresponding offset was set. If alloca has been called between the function prologue and the current IP, then the current SP (frame_sp) will not be the original SP as set by the function prologue. If the current SP is not the original SP, then the compiler will have allocated an FP for this frame, fp_offset will be set, and we can use it to calculate the original SP. Then, we figure out where the arguments and locals are, and relocate the offsets in fsr->regs to absolute addresses. */ if (fp_offset != -1) { /* We have a frame pointer, so get it, and base our calc's on it. */ frame_fp = (CORE_ADDR) read_next_frame_reg (fi->next, ACTUAL_FP_REGNUM); frame_sp = frame_fp - fp_offset; } else { /* We have no frame pointer, therefore frame_sp is still the same value as set by prologue. But where is the frame itself? */ if (must_adjust[SRP_REGNUM]) { /* Function header saved SRP (r1), the return address. Frame starts 4 bytes down from where it was saved. */ frame_fp = frame_sp + fsr->regs[SRP_REGNUM] - 4; fi->locals_pointer = frame_fp; } else { /* Function header didn't save SRP (r1), so we are in a leaf fn or are otherwise confused. */ frame_fp = -1; } } /* The locals are relative to the FP (whether it exists as an allocated register, or just as an assumed offset from the SP) */ fi->locals_pointer = frame_fp; /* The arguments are just above the SP as it was before we adjusted it on entry. */ fi->args_pointer = frame_sp - sp_offset; /* Now that we know the SP value used by the prologue, we know where it saved all the registers. */ for (src = 0; src < 32; src++) if (must_adjust[src]) fsr->regs[src] += frame_sp; /* The saved value of the SP is always known. */ /* (we hope...) */ if (fsr->regs[SP_REGNUM] != 0 && fsr->regs[SP_REGNUM] != frame_sp - sp_offset) fprintf_unfiltered(gdb_stderr, "Bad saved SP value %x != %x, offset %x!\n", fsr->regs[SP_REGNUM], frame_sp - sp_offset, sp_offset); fsr->regs[SP_REGNUM] = frame_sp - sp_offset; return (ip); } /* Given an ip value corresponding to the start of a function, return the ip of the first instruction after the function prologue. */ CORE_ADDR skip_prologue (ip) CORE_ADDR (ip); { struct frame_saved_regs saved_regs_dummy; struct symtab_and_line sal; CORE_ADDR limit; sal = find_pc_line (ip, 0); limit = (sal.end) ? sal.end : 0xffffffff; return (examine_prologue (ip, limit, (FRAME_ADDR) 0, &saved_regs_dummy, (struct frame_info *)0 )); } /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. We cache the result of doing this in the frame_cache_obstack, since it is fairly expensive. */ void frame_find_saved_regs (fi, fsr) struct frame_info *fi; struct frame_saved_regs *fsr; { register struct frame_saved_regs *cache_fsr; extern struct obstack frame_cache_obstack; CORE_ADDR ip; struct symtab_and_line sal; CORE_ADDR limit; if (!fi->fsr) { cache_fsr = (struct frame_saved_regs *) obstack_alloc (&frame_cache_obstack, sizeof (struct frame_saved_regs)); memset (cache_fsr, '\0', sizeof (struct frame_saved_regs)); fi->fsr = cache_fsr; /* Find the start and end of the function prologue. If the PC is in the function prologue, we only consider the part that has executed already. In the case where the PC is not in the function prologue, we set limit to two instructions beyond where the prologue ends in case if any of the prologue instructions were moved into a delay slot of a branch instruction. */ ip = get_pc_function_start (fi->pc); sal = find_pc_line (ip, 0); limit = (sal.end && sal.end < fi->pc) ? sal.end + 2 * BYTES_PER_88K_INSN : fi->pc; /* This will fill in fields in *fi as well as in cache_fsr. */ #ifdef SIGTRAMP_FRAME_FIXUP if (fi->signal_handler_caller) SIGTRAMP_FRAME_FIXUP(fi->frame); #endif examine_prologue (ip, limit, fi->frame, cache_fsr, fi); #ifdef SIGTRAMP_SP_FIXUP if (fi->signal_handler_caller && fi->fsr->regs[SP_REGNUM]) SIGTRAMP_SP_FIXUP(fi->fsr->regs[SP_REGNUM]); #endif } if (fsr) *fsr = *fi->fsr; } /* Return the address of the locals block for the frame described by FI. Returns 0 if the address is unknown. NOTE! Frame locals are referred to by negative offsets from the argument pointer, so this is the same as frame_args_address(). */ CORE_ADDR frame_locals_address (fi) struct frame_info *fi; { struct frame_saved_regs fsr; if (fi->args_pointer) /* Cached value is likely there. */ return fi->args_pointer; /* Nope, generate it. */ get_frame_saved_regs (fi, &fsr); return fi->args_pointer; } /* Return the address of the argument block for the frame described by FI. Returns 0 if the address is unknown. */ CORE_ADDR frame_args_address (fi) struct frame_info *fi; { struct frame_saved_regs fsr; if (fi->args_pointer) /* Cached value is likely there. */ return fi->args_pointer; /* Nope, generate it. */ get_frame_saved_regs (fi, &fsr); return fi->args_pointer; } /* Return the saved PC from this frame. If the frame has a memory copy of SRP_REGNUM, use that. If not, just use the register SRP_REGNUM itself. */ CORE_ADDR frame_saved_pc (frame) FRAME frame; { return read_next_frame_reg(frame, SRP_REGNUM); } #define DUMMY_FRAME_SIZE 192 static void write_word (sp, word) CORE_ADDR sp; unsigned LONGEST word; { register int len = REGISTER_SIZE; char buffer[MAX_REGISTER_RAW_SIZE]; store_unsigned_integer (buffer, len, word); write_memory (sp, buffer, len); } void m88k_push_dummy_frame() { register CORE_ADDR sp = read_register (SP_REGNUM); register int rn; int offset; sp -= DUMMY_FRAME_SIZE; /* allocate a bunch of space */ for (rn = 0, offset = 0; rn <= SP_REGNUM; rn++, offset+=4) write_word (sp+offset, read_register(rn)); write_word (sp+offset, read_register (SXIP_REGNUM)); offset += 4; write_word (sp+offset, read_register (SNIP_REGNUM)); offset += 4; write_word (sp+offset, read_register (SFIP_REGNUM)); offset += 4; write_word (sp+offset, read_register (PSR_REGNUM)); offset += 4; write_word (sp+offset, read_register (FPSR_REGNUM)); offset += 4; write_word (sp+offset, read_register (FPCR_REGNUM)); offset += 4; write_register (SP_REGNUM, sp); write_register (ACTUAL_FP_REGNUM, sp); } void pop_frame () { register FRAME frame = get_current_frame (); register CORE_ADDR fp; register int regnum; struct frame_saved_regs fsr; struct frame_info *fi; fi = get_frame_info (frame); fp = fi -> frame; get_frame_saved_regs (fi, &fsr); if (PC_IN_CALL_DUMMY (read_pc(), read_register(SP_REGNUM), FRAME_FP(fi))) { /* FIXME: I think get_frame_saved_regs should be handling this so that we can deal with the saved registers properly (e.g. frame 1 is a call dummy, the user types "frame 2" and then "print $ps"). */ register CORE_ADDR sp = read_register (ACTUAL_FP_REGNUM); int offset; for (regnum = 0, offset = 0; regnum <= SP_REGNUM; regnum++, offset+=4) (void) write_register (regnum, read_memory_integer (sp+offset, 4)); write_register (SXIP_REGNUM, read_memory_integer (sp+offset, 4)); offset += 4; write_register (SNIP_REGNUM, read_memory_integer (sp+offset, 4)); offset += 4; write_register (SFIP_REGNUM, read_memory_integer (sp+offset, 4)); offset += 4; write_register (PSR_REGNUM, read_memory_integer (sp+offset, 4)); offset += 4; write_register (FPSR_REGNUM, read_memory_integer (sp+offset, 4)); offset += 4; write_register (FPCR_REGNUM, read_memory_integer (sp+offset, 4)); offset += 4; } else { for (regnum = FP_REGNUM ; regnum > 0 ; regnum--) if (fsr.regs[regnum]) write_register (regnum, read_memory_integer (fsr.regs[regnum], 4)); write_pc(frame_saved_pc(frame)); } reinit_frame_cache (); } gdb-4.13/gdb/m88k-pinsn.c 666 34562 1752 2461 5465305605 13364 0ustar fnfcygnus/* Print instructions for the Motorola 88000, for GDB and GNU Binutils. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB and the GNU Binutils. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dis-asm.h" /* Print the m88k instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes, which is always 4. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO (info, stream); /* print_insn_m88k is in opcodes/m88k-dis.c. */ return print_insn_m88k ((bfd_vma) memaddr, &info); } gdb-4.13/gdb/c-exp.tab.c 666 34562 1752 237077 5623251670 13304 0ustar fnfcygnus /* A Bison parser, made from ./c-exp.y with Bison version GNU Bison version 1.22 */ #define YYBISON 1 /* Identify Bison output. */ #define INT 258 #define FLOAT 259 #define STRING 260 #define NAME 261 #define TYPENAME 262 #define NAME_OR_INT 263 #define STRUCT 264 #define CLASS 265 #define UNION 266 #define ENUM 267 #define SIZEOF 268 #define UNSIGNED 269 #define COLONCOLON 270 #define TEMPLATE 271 #define ERROR 272 #define SIGNED_KEYWORD 273 #define LONG 274 #define SHORT 275 #define INT_KEYWORD 276 #define CONST_KEYWORD 277 #define VOLATILE_KEYWORD 278 #define LAST 279 #define REGNAME 280 #define VARIABLE 281 #define ASSIGN_MODIFY 282 #define THIS 283 #define ABOVE_COMMA 284 #define OROR 285 #define ANDAND 286 #define EQUAL 287 #define NOTEQUAL 288 #define LEQ 289 #define GEQ 290 #define LSH 291 #define RSH 292 #define UNARY 293 #define INCREMENT 294 #define DECREMENT 295 #define ARROW 296 #define BLOCKNAME 297 #line 38 "./c-exp.y" #include "defs.h" #include #include "expression.h" #include "value.h" #include "parser-defs.h" #include "language.h" #include "c-lang.h" #include "bfd.h" /* Required by objfiles.h. */ #include "symfile.h" /* Required by objfiles.h. */ #include "objfiles.h" /* For have_full_symbols and have_partial_symbols */ /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc), as well as gratuitiously global symbol names, so we can have multiple yacc generated parsers in gdb. Note that these are only the variables produced by yacc. If other parser generators (bison, byacc, etc) produce additional global names that conflict at link time, then those parser generators need to be fixed instead of adding those names to this list. */ #define yymaxdepth c_maxdepth #define yyparse c_parse #define yylex c_lex #define yyerror c_error #define yylval c_lval #define yychar c_char #define yydebug c_debug #define yypact c_pact #define yyr1 c_r1 #define yyr2 c_r2 #define yydef c_def #define yychk c_chk #define yypgo c_pgo #define yyact c_act #define yyexca c_exca #define yyerrflag c_errflag #define yynerrs c_nerrs #define yyps c_ps #define yypv c_pv #define yys c_s #define yy_yys c_yys #define yystate c_state #define yytmp c_tmp #define yyv c_v #define yy_yyv c_yyv #define yyval c_val #define yylloc c_lloc #define yyreds c_reds /* With YYDEBUG defined */ #define yytoks c_toks /* With YYDEBUG defined */ #ifndef YYDEBUG #define YYDEBUG 0 /* Default to no yydebug support */ #endif int yyparse PARAMS ((void)); static int yylex PARAMS ((void)); void yyerror PARAMS ((char *)); #line 107 "./c-exp.y" typedef union { LONGEST lval; struct { LONGEST val; struct type *type; } typed_val; double dval; struct symbol *sym; struct type *tval; struct stoken sval; struct ttype tsym; struct symtoken ssym; int voidval; struct block *bval; enum exp_opcode opcode; struct internalvar *ivar; struct type **tvec; int *ivec; } YYSTYPE; #line 129 "./c-exp.y" /* YYSTYPE gets defined by %union */ static int parse_number PARAMS ((char *, int, int, YYSTYPE *)); #ifndef YYLTYPE typedef struct yyltype { int timestamp; int first_line; int first_column; int last_line; int last_column; char *text; } yyltype; #define YYLTYPE yyltype #endif #include #ifndef __cplusplus #ifndef __STDC__ #define const #endif #endif #define YYFINAL 211 #define YYFLAG -32768 #define YYNTBASE 67 #define YYTRANSLATE(x) ((unsigned)(x) <= 297 ? yytranslate[x] : 89) static const char yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 60, 2, 2, 2, 51, 37, 2, 58, 63, 49, 47, 29, 48, 56, 50, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 66, 2, 40, 31, 41, 32, 46, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 57, 2, 62, 36, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 64, 35, 65, 61, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 30, 33, 34, 38, 39, 42, 43, 44, 45, 52, 53, 54, 55, 59 }; #if YYDEBUG != 0 static const short yyprhs[] = { 0, 0, 2, 4, 6, 8, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 46, 50, 55, 59, 63, 68, 73, 74, 80, 82, 83, 85, 89, 91, 95, 100, 105, 109, 113, 117, 121, 125, 129, 133, 137, 141, 145, 149, 153, 157, 161, 165, 169, 173, 177, 181, 185, 191, 195, 199, 201, 203, 205, 207, 209, 211, 213, 218, 220, 222, 224, 228, 232, 236, 241, 243, 246, 248, 250, 253, 256, 259, 263, 267, 269, 272, 274, 277, 279, 283, 286, 288, 291, 293, 296, 300, 303, 307, 309, 313, 315, 317, 319, 321, 324, 328, 331, 335, 339, 344, 347, 351, 354, 357, 360, 363, 366, 368, 371, 373, 379, 382, 385, 387, 389, 391, 393, 395, 399, 401, 403, 405, 407, 409 }; static const short yyrhs[] = { 69, 0, 68, 0, 83, 0, 70, 0, 69, 29, 70, 0, 49, 70, 0, 37, 70, 0, 48, 70, 0, 60, 70, 0, 61, 70, 0, 53, 70, 0, 54, 70, 0, 70, 53, 0, 70, 54, 0, 13, 70, 0, 70, 55, 87, 0, 70, 55, 77, 0, 70, 55, 49, 70, 0, 70, 56, 87, 0, 70, 56, 77, 0, 70, 56, 49, 70, 0, 70, 57, 69, 62, 0, 0, 70, 58, 71, 73, 63, 0, 64, 0, 0, 70, 0, 73, 29, 70, 0, 65, 0, 72, 73, 74, 0, 72, 83, 74, 70, 0, 58, 83, 63, 70, 0, 58, 69, 63, 0, 70, 46, 70, 0, 70, 49, 70, 0, 70, 50, 70, 0, 70, 51, 70, 0, 70, 47, 70, 0, 70, 48, 70, 0, 70, 44, 70, 0, 70, 45, 70, 0, 70, 38, 70, 0, 70, 39, 70, 0, 70, 42, 70, 0, 70, 43, 70, 0, 70, 40, 70, 0, 70, 41, 70, 0, 70, 37, 70, 0, 70, 36, 70, 0, 70, 35, 70, 0, 70, 34, 70, 0, 70, 33, 70, 0, 70, 32, 70, 66, 70, 0, 70, 31, 70, 0, 70, 27, 70, 0, 3, 0, 8, 0, 4, 0, 76, 0, 24, 0, 25, 0, 26, 0, 13, 58, 83, 63, 0, 5, 0, 28, 0, 59, 0, 75, 15, 87, 0, 75, 15, 87, 0, 84, 15, 87, 0, 84, 15, 61, 87, 0, 77, 0, 15, 87, 0, 88, 0, 84, 0, 84, 22, 0, 84, 23, 0, 84, 79, 0, 84, 22, 79, 0, 84, 23, 79, 0, 49, 0, 49, 79, 0, 37, 0, 37, 79, 0, 80, 0, 58, 79, 63, 0, 80, 81, 0, 81, 0, 80, 82, 0, 82, 0, 57, 62, 0, 57, 3, 62, 0, 58, 63, 0, 58, 86, 63, 0, 78, 0, 84, 15, 49, 0, 7, 0, 21, 0, 19, 0, 20, 0, 19, 21, 0, 14, 19, 21, 0, 19, 19, 0, 19, 19, 21, 0, 14, 19, 19, 0, 14, 19, 19, 21, 0, 20, 21, 0, 14, 20, 21, 0, 9, 87, 0, 10, 87, 0, 11, 87, 0, 12, 87, 0, 14, 85, 0, 14, 0, 18, 85, 0, 18, 0, 16, 87, 40, 83, 41, 0, 22, 84, 0, 23, 84, 0, 7, 0, 21, 0, 19, 0, 20, 0, 83, 0, 86, 29, 83, 0, 6, 0, 59, 0, 7, 0, 8, 0, 6, 0, 59, 0 }; #endif #if YYDEBUG != 0 static const short yyrline[] = { 0, 211, 212, 215, 222, 223, 228, 231, 234, 238, 242, 246, 250, 254, 258, 262, 266, 272, 279, 283, 289, 297, 301, 305, 309, 315, 319, 322, 326, 330, 333, 340, 346, 352, 358, 362, 366, 370, 374, 378, 382, 386, 390, 394, 398, 402, 406, 410, 414, 418, 422, 426, 430, 434, 438, 442, 448, 455, 466, 473, 476, 482, 488, 494, 501, 526, 533, 551, 562, 578, 591, 616, 617, 652, 710, 716, 717, 718, 720, 722, 726, 728, 730, 732, 734, 737, 739, 744, 751, 753, 757, 759, 763, 765, 777, 778, 783, 785, 787, 789, 791, 793, 795, 797, 799, 801, 803, 805, 807, 810, 813, 816, 819, 821, 823, 825, 827, 834, 835, 838, 839, 845, 851, 860, 865, 872, 873, 874, 875, 878, 879 }; static const char * const yytname[] = { "$","error","$illegal.","INT","FLOAT", "STRING","NAME","TYPENAME","NAME_OR_INT","STRUCT","CLASS","UNION","ENUM","SIZEOF", "UNSIGNED","COLONCOLON","TEMPLATE","ERROR","SIGNED_KEYWORD","LONG","SHORT","INT_KEYWORD", "CONST_KEYWORD","VOLATILE_KEYWORD","LAST","REGNAME","VARIABLE","ASSIGN_MODIFY", "THIS","','","ABOVE_COMMA","'='","'?'","OROR","ANDAND","'|'","'^'","'&'","EQUAL", "NOTEQUAL","'<'","'>'","LEQ","GEQ","LSH","RSH","'@'","'+'","'-'","'*'","'/'", "'%'","UNARY","INCREMENT","DECREMENT","ARROW","'.'","'['","'('","BLOCKNAME", "'!'","'~'","']'","')'","'{'","'}'","':'","start","type_exp","exp1","exp","@1", "lcurly","arglist","rcurly","block","variable","qualified_name","ptype","abs_decl", "direct_abs_decl","array_mod","func_mod","type","typebase","typename","nonempty_typelist", "name","name_not_typename","" }; #endif static const short yyr1[] = { 0, 67, 67, 68, 69, 69, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 71, 70, 72, 73, 73, 73, 74, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 75, 75, 76, 77, 77, 76, 76, 76, 78, 78, 78, 78, 78, 78, 79, 79, 79, 79, 79, 80, 80, 80, 80, 80, 81, 81, 82, 82, 83, 83, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 85, 85, 85, 85, 86, 86, 87, 87, 87, 87, 88, 88 }; static const short yyr2[] = { 0, 1, 1, 1, 1, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 4, 3, 3, 4, 4, 0, 5, 1, 0, 1, 3, 1, 3, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, 3, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 3, 3, 3, 4, 1, 2, 1, 1, 2, 2, 2, 3, 3, 1, 2, 1, 2, 1, 3, 2, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 1, 1, 1, 2, 3, 2, 3, 3, 4, 2, 3, 2, 2, 2, 2, 2, 1, 2, 1, 5, 2, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1 }; static const short yydefact[] = { 0, 56, 58, 64, 129, 96, 57, 0, 0, 0, 0, 0, 113, 0, 0, 115, 98, 99, 97, 0, 0, 60, 61, 62, 65, 0, 0, 0, 0, 0, 0, 130, 0, 0, 25, 2, 1, 4, 26, 0, 59, 71, 94, 3, 74, 73, 125, 127, 128, 126, 108, 109, 110, 111, 0, 15, 0, 119, 121, 122, 120, 112, 72, 0, 121, 122, 114, 102, 100, 106, 117, 118, 7, 8, 6, 11, 12, 0, 0, 9, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 13, 14, 0, 0, 0, 23, 27, 0, 0, 0, 0, 75, 76, 82, 80, 0, 0, 77, 84, 87, 89, 0, 0, 104, 101, 107, 0, 103, 33, 0, 5, 55, 54, 0, 52, 51, 50, 49, 48, 42, 43, 46, 47, 44, 45, 40, 41, 34, 38, 39, 35, 36, 37, 127, 0, 17, 16, 0, 20, 19, 0, 26, 0, 29, 30, 0, 68, 95, 0, 69, 78, 79, 83, 81, 0, 90, 92, 0, 123, 74, 0, 0, 86, 88, 63, 105, 0, 32, 0, 18, 21, 22, 0, 28, 31, 70, 91, 85, 0, 0, 93, 116, 53, 24, 124, 0, 0, 0 }; static const short yydefgoto[] = { 209, 35, 77, 37, 165, 38, 111, 168, 39, 40, 41, 42, 121, 122, 123, 124, 182, 56, 61, 184, 173, 45 }; static const short yypact[] = { 202, -32768,-32768,-32768,-32768,-32768,-32768, 8, 8, 8, 8, 264, 29, 8, 8, 103, 14, -8,-32768, 222, 222, -32768,-32768,-32768,-32768, 202, 202, 202, 202, 202, 202, 11, 202, 202,-32768,-32768, 3, 466, 202, 22,-32768, -32768,-32768,-32768, 373,-32768,-32768,-32768,-32768,-32768,-32768, -32768,-32768,-32768, 202, -13, 38,-32768, 98, 44,-32768, -32768,-32768, 36,-32768,-32768,-32768, 79,-32768,-32768,-32768, -32768, -13, -13, -13, -13, -13, -17, 58, -13, -13, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202, 202,-32768,-32768, 349, 393, 202,-32768, 466, -18, 42, 8, 97, 69, 69, 69, 69, 7, 129, -32768, 55,-32768,-32768, 62, 50, 95,-32768,-32768, 222, -32768,-32768, 202, 466, 466, 466, 430, 518, 542, 565, 587, 608, 627, 627, 249, 249, 249, 249, 640, 640, 652, 119, 119, -13, -13, -13, 113, 202,-32768,-32768, 202,-32768,-32768, -2, 202, 202,-32768,-32768, 202, 127, -32768, 8,-32768,-32768,-32768,-32768,-32768, 82,-32768,-32768, 90,-32768, 402, -12, 52,-32768,-32768, 326,-32768, 114, -13, 202, -13, -13,-32768, -11, 466, -13,-32768,-32768, -32768, 115, 222,-32768,-32768, 493,-32768,-32768, 163, 171, -32768 }; static const short yypgoto[] = {-32768, -32768, 6, -4,-32768,-32768, 15, 67,-32768,-32768, 53, -32768, 17,-32768, 59, 60, 1, 0, 168,-32768, -5, -32768 }; #define YYLAST 710 static const short yytable[] = { 44, 43, 50, 51, 52, 53, 36, 55, 62, 63, 178, 166, 81, 69, 46, 47, 48, 203, 166, 70, 71, 72, 73, 74, 75, 76, -66, 81, 79, 80, 44, 78, 81, 67, 110, 68, 57, 113, 44, 112, 104, 105, 106, 107, 108, 109, 132, 167, 58, 59, 60, 204, 207, 126, 44, 125, 46, 47, 48, 5, 195, 7, 8, 9, 10, 129, 12, 49, 14, 179, 15, 16, 17, 18, 19, 20, 130, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 131, 160, 163, 46, 47, 48, 117, 167, 170, 49, 57, 172, 119, 185, 164, 180, 189, 127, 118, 128, 183, 133, 64, 65, 60, 188, 119, 120, -96, 191, 183, 190, 174, 175, 176, 177, 5, 181, 7, 8, 9, 10, -67, 12, 200, 14, 171, 15, 16, 17, 18, 19, 20, 201, 193, 205, 49, 194, 172, 159, 162, 110, 197, 210, 171, 198, 117, 199, 101, 102, 103, 211, 104, 105, 106, 107, 108, 109, 118, 169, 196, 186, 187, 66, 191, 183, 119, 120, 206, 0, 0, 0, 180, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 183, 208, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 0, 15, 16, 17, 18, 19, 20, 21, 22, 23, 5, 24, 7, 8, 9, 10, 0, 12, 0, 14, 25, 15, 16, 17, 18, 19, 20, 0, 0, 0, 0, 26, 27, 0, 0, 0, 28, 29, 0, 0, 0, 30, 31, 32, 33, 0, 0, 34, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 0, 15, 16, 17, 18, 19, 20, 21, 22, 23, 0, 24, 96, 97, 98, 99, 100, 101, 102, 103, 25, 104, 105, 106, 107, 108, 109, 0, 0, 0, 0, 26, 27, 0, 0, 0, 28, 29, 0, 0, 0, 54, 31, 32, 33, 0, 0, 34, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 0, 15, 16, 17, 18, 19, 20, 21, 22, 23, 0, 24, 46, 157, 48, 7, 8, 9, 10, 0, 12, 0, 14, 0, 15, 16, 17, 18, 19, 20, 0, 0, 0, 0, 0, 0, 28, 29, 0, 0, 0, 30, 31, 32, 33, 114, 0, 34, 0, 0, 0, 0, 115, 116, 0, 158, 46, 157, 48, 7, 8, 9, 10, 0, 12, 49, 14, 117, 15, 16, 17, 18, 19, 20, 202, 0, 0, 0, 0, 118, 0, 115, 116, 0, 0, 0, 0, 119, 120, 0, 0, 0, 0, 0, 0, 0, 117, 0, 0, 161, 0, 0, 0, 0, 0, 0, 0, 0, 118, 49, 0, 0, 0, 0, 82, 0, 119, 120, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 0, 0, 0, 0, 82, 0, 0, 192, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 98, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109, 99, 100, 101, 102, 103, 0, 104, 105, 106, 107, 108, 109 }; static const short yycheck[] = { 0, 0, 7, 8, 9, 10, 0, 11, 13, 14, 3, 29, 29, 21, 6, 7, 8, 29, 29, 19, 20, 25, 26, 27, 28, 29, 15, 29, 32, 33, 30, 30, 29, 19, 38, 21, 7, 15, 38, 38, 53, 54, 55, 56, 57, 58, 63, 65, 19, 20, 21, 63, 63, 15, 54, 54, 6, 7, 8, 7, 62, 9, 10, 11, 12, 21, 14, 59, 16, 62, 18, 19, 20, 21, 22, 23, 40, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 21, 106, 107, 6, 7, 8, 37, 65, 113, 59, 7, 61, 57, 58, 108, 63, 21, 19, 49, 21, 120, 63, 19, 20, 21, 63, 57, 58, 15, 133, 130, 130, 115, 116, 117, 118, 7, 120, 9, 10, 11, 12, 15, 14, 62, 16, 49, 18, 19, 20, 21, 22, 23, 63, 158, 41, 59, 161, 61, 106, 107, 165, 166, 0, 49, 169, 37, 172, 49, 50, 51, 0, 53, 54, 55, 56, 57, 58, 49, 112, 165, 122, 122, 15, 188, 185, 57, 58, 192, -1, -1, -1, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 203, 203, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, -1, 18, 19, 20, 21, 22, 23, 24, 25, 26, 7, 28, 9, 10, 11, 12, -1, 14, -1, 16, 37, 18, 19, 20, 21, 22, 23, -1, -1, -1, -1, 48, 49, -1, -1, -1, 53, 54, -1, -1, -1, 58, 59, 60, 61, -1, -1, 64, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, -1, 18, 19, 20, 21, 22, 23, 24, 25, 26, -1, 28, 44, 45, 46, 47, 48, 49, 50, 51, 37, 53, 54, 55, 56, 57, 58, -1, -1, -1, -1, 48, 49, -1, -1, -1, 53, 54, -1, -1, -1, 58, 59, 60, 61, -1, -1, 64, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, -1, 18, 19, 20, 21, 22, 23, 24, 25, 26, -1, 28, 6, 7, 8, 9, 10, 11, 12, -1, 14, -1, 16, -1, 18, 19, 20, 21, 22, 23, -1, -1, -1, -1, -1, -1, 53, 54, -1, -1, -1, 58, 59, 60, 61, 15, -1, 64, -1, -1, -1, -1, 22, 23, -1, 49, 6, 7, 8, 9, 10, 11, 12, -1, 14, 59, 16, 37, 18, 19, 20, 21, 22, 23, 15, -1, -1, -1, -1, 49, -1, 22, 23, -1, -1, -1, -1, 57, 58, -1, -1, -1, -1, -1, -1, -1, 37, -1, -1, 49, -1, -1, -1, -1, -1, -1, -1, -1, 49, 59, -1, -1, -1, -1, 27, -1, 57, 58, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, -1, -1, -1, -1, 27, -1, -1, 66, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, 46, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58, 47, 48, 49, 50, 51, -1, 53, 54, 55, 56, 57, 58 }; /* -*-C-*- Note some compilers choke on comments on `#line' lines. */ #line 3 "/usr/unsupported/lib/bison.simple" /* Skeleton output parser for bison, Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman 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 1, 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef alloca #ifdef __GNUC__ #define alloca __builtin_alloca #else /* not GNU C. */ #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) #include #else /* not sparc */ #if defined (MSDOS) && !defined (__TURBOC__) #else /* not MSDOS, or __TURBOC__ */ #if defined(_AIX) #pragma alloca #else /* not MSDOS, __TURBOC__, or _AIX */ #ifdef __hpux #ifdef __cplusplus extern "C" { void *alloca (unsigned int); }; #else /* not __cplusplus */ void *alloca (); #endif /* not __cplusplus */ #endif /* __hpux */ #endif /* not _AIX */ #endif /* not MSDOS, or __TURBOC__ */ #endif /* not sparc. */ #endif /* not GNU C. */ #endif /* alloca not defined. */ /* This is the parser code that is written into each bison parser when the %semantic_parser declaration is not specified in the grammar. It was written by Richard Stallman by simplifying the hairy parser used when %semantic_parser is specified. */ /* Note: there must be only one dollar sign in this file. It is replaced by the list of actions, each action as one case of the switch. */ #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY -2 #define YYEOF 0 #define YYACCEPT return(0) #define YYABORT return(1) #define YYERROR goto yyerrlab1 /* Like YYERROR except do call yyerror. This remains here temporarily to ease the transition to the new meaning of YYERROR, for GCC. Once GCC version 2 has supplanted version 1, this can go. */ #define YYFAIL goto yyerrlab #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(token, value) \ do \ if (yychar == YYEMPTY && yylen == 1) \ { yychar = (token), yylval = (value); \ yychar1 = YYTRANSLATE (yychar); \ YYPOPSTACK; \ goto yybackup; \ } \ else \ { yyerror ("syntax error: cannot back up"); YYERROR; } \ while (0) #define YYTERROR 1 #define YYERRCODE 256 #ifndef YYPURE #define YYLEX yylex() #endif #ifdef YYPURE #ifdef YYLSP_NEEDED #define YYLEX yylex(&yylval, &yylloc) #else #define YYLEX yylex(&yylval) #endif #endif /* If nonreentrant, generate the variables here */ #ifndef YYPURE int yychar; /* the lookahead symbol */ YYSTYPE yylval; /* the semantic value of the */ /* lookahead symbol */ #ifdef YYLSP_NEEDED YYLTYPE yylloc; /* location data for the lookahead */ /* symbol */ #endif int yynerrs; /* number of parse errors so far */ #endif /* not YYPURE */ #if YYDEBUG != 0 int yydebug; /* nonzero means print parse trace */ /* Since this is uninitialized, it does not stop multiple parsers from coexisting. */ #endif /* YYINITDEPTH indicates the initial size of the parser's stacks */ #ifndef YYINITDEPTH #define YYINITDEPTH 200 #endif /* YYMAXDEPTH is the maximum size the stacks can grow to (effective only if the built-in stack extension method is used). */ #if YYMAXDEPTH == 0 #undef YYMAXDEPTH #endif #ifndef YYMAXDEPTH #define YYMAXDEPTH 10000 #endif /* Prevent warning if -Wstrict-prototypes. */ #ifdef __GNUC__ int yyparse (void); #endif #if __GNUC__ > 1 /* GNU C and GNU C++ define this. */ #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT) #else /* not GNU C or C++ */ #ifndef __cplusplus /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (from, to, count) char *from; char *to; int count; { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #else /* __cplusplus */ /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (char *from, char *to, int count) { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #endif #endif #line 184 "/usr/unsupported/lib/bison.simple" int yyparse() { register int yystate; register int yyn; register short *yyssp; register YYSTYPE *yyvsp; int yyerrstatus; /* number of tokens to shift before error messages enabled */ int yychar1 = 0; /* lookahead token as an internal (translated) token number */ short yyssa[YYINITDEPTH]; /* the state stack */ YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */ short *yyss = yyssa; /* refer to the stacks thru separate pointers */ YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to xreallocate them elsewhere */ #ifdef YYLSP_NEEDED YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */ YYLTYPE *yyls = yylsa; YYLTYPE *yylsp; #define YYPOPSTACK (yyvsp--, yyssp--, yylsp--) #else #define YYPOPSTACK (yyvsp--, yyssp--) #endif int yystacksize = YYINITDEPTH; #ifdef YYPURE int yychar; YYSTYPE yylval; int yynerrs; #ifdef YYLSP_NEEDED YYLTYPE yylloc; #endif #endif YYSTYPE yyval; /* the variable used to return */ /* semantic values from the action */ /* routines */ int yylen; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Starting parse\n"); #endif yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ /* Initialize stack pointers. Waste one element of value and location stack so that they stay on the same level as the state stack. The wasted elements are never initialized. */ yyssp = yyss - 1; yyvsp = yyvs; #ifdef YYLSP_NEEDED yylsp = yyls; #endif /* Push a new state, which is found in yystate . */ /* In all cases, when you get here, the value and location stacks have just been pushed. so pushing a state here evens the stacks. */ yynewstate: *++yyssp = yystate; if (yyssp >= yyss + yystacksize - 1) { /* Give user a chance to xreallocate the stack */ /* Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; short *yyss1 = yyss; #ifdef YYLSP_NEEDED YYLTYPE *yyls1 = yyls; #endif /* Get the current used size of the three stacks, in elements. */ int size = yyssp - yyss + 1; #ifdef yyoverflow /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. */ #ifdef YYLSP_NEEDED /* This used to be a conditional around just the two extra args, but that might be undefined if yyoverflow is a macro. */ yyoverflow("parser stack overflow", &yyss1, size * sizeof (*yyssp), &yyvs1, size * sizeof (*yyvsp), &yyls1, size * sizeof (*yylsp), &yystacksize); #else yyoverflow("parser stack overflow", &yyss1, size * sizeof (*yyssp), &yyvs1, size * sizeof (*yyvsp), &yystacksize); #endif yyss = yyss1; yyvs = yyvs1; #ifdef YYLSP_NEEDED yyls = yyls1; #endif #else /* no yyoverflow */ /* Extend the stack our own way. */ if (yystacksize >= YYMAXDEPTH) { yyerror("parser stack overflow"); return 2; } yystacksize *= 2; if (yystacksize > YYMAXDEPTH) yystacksize = YYMAXDEPTH; yyss = (short *) alloca (yystacksize * sizeof (*yyssp)); __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp)); yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp)); __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp)); #ifdef YYLSP_NEEDED yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp)); __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp)); #endif #endif /* no yyoverflow */ yyssp = yyss + size - 1; yyvsp = yyvs + size - 1; #ifdef YYLSP_NEEDED yylsp = yyls + size - 1; #endif #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Stack size increased to %d\n", yystacksize); #endif if (yyssp >= yyss + yystacksize - 1) YYABORT; } #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Entering state %d\n", yystate); #endif goto yybackup; yybackup: /* Do appropriate processing given the current state. */ /* Read a lookahead token if we need one and don't already have one. */ /* yyresume: */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; if (yyn == YYFLAG) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ /* yychar is either YYEMPTY or YYEOF or a valid token in external form. */ if (yychar == YYEMPTY) { #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Reading a token: "); #endif yychar = YYLEX; } /* Convert token to internal form (in yychar1) for indexing tables with */ if (yychar <= 0) /* This means end of input. */ { yychar1 = 0; yychar = YYEOF; /* Don't call YYLEX any more */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Now at end of input.\n"); #endif } else { yychar1 = YYTRANSLATE(yychar); #if YYDEBUG != 0 if (yydebug) { fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]); /* Give the individual parser a way to print the precise meaning of a token, for further debugging info. */ #ifdef YYPRINT YYPRINT (stderr, yychar, yylval); #endif fprintf (stderr, ")\n"); } #endif } yyn += yychar1; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1) goto yydefault; yyn = yytable[yyn]; /* yyn is what to do for this token type in this state. Negative => reduce, -yyn is rule number. Positive => shift, yyn is new state. New state is final state => don't bother to shift, just return success. 0, or most negative number => error. */ if (yyn < 0) { if (yyn == YYFLAG) goto yyerrlab; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrlab; if (yyn == YYFINAL) YYACCEPT; /* Shift the lookahead token. */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]); #endif /* Discard the token being shifted unless it is eof. */ if (yychar != YYEOF) yychar = YYEMPTY; *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif /* count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; yystate = yyn; goto yynewstate; /* Do the default action for the current state. */ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; /* Do a reduction. yyn is the number of a rule to reduce with. */ yyreduce: yylen = yyr2[yyn]; if (yylen > 0) yyval = yyvsp[1-yylen]; /* implement default value of the action */ #if YYDEBUG != 0 if (yydebug) { int i; fprintf (stderr, "Reducing via rule %d (line %d), ", yyn, yyrline[yyn]); /* Print the symbols being reduced, and their result. */ for (i = yyprhs[yyn]; yyrhs[i] > 0; i++) fprintf (stderr, "%s ", yytname[yyrhs[i]]); fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]); } #endif switch (yyn) { case 3: #line 216 "./c-exp.y" { write_exp_elt_opcode(OP_TYPE); write_exp_elt_type(yyvsp[0].tval); write_exp_elt_opcode(OP_TYPE);; break;} case 5: #line 224 "./c-exp.y" { write_exp_elt_opcode (BINOP_COMMA); ; break;} case 6: #line 229 "./c-exp.y" { write_exp_elt_opcode (UNOP_IND); ; break;} case 7: #line 232 "./c-exp.y" { write_exp_elt_opcode (UNOP_ADDR); ; break;} case 8: #line 235 "./c-exp.y" { write_exp_elt_opcode (UNOP_NEG); ; break;} case 9: #line 239 "./c-exp.y" { write_exp_elt_opcode (UNOP_LOGICAL_NOT); ; break;} case 10: #line 243 "./c-exp.y" { write_exp_elt_opcode (UNOP_COMPLEMENT); ; break;} case 11: #line 247 "./c-exp.y" { write_exp_elt_opcode (UNOP_PREINCREMENT); ; break;} case 12: #line 251 "./c-exp.y" { write_exp_elt_opcode (UNOP_PREDECREMENT); ; break;} case 13: #line 255 "./c-exp.y" { write_exp_elt_opcode (UNOP_POSTINCREMENT); ; break;} case 14: #line 259 "./c-exp.y" { write_exp_elt_opcode (UNOP_POSTDECREMENT); ; break;} case 15: #line 263 "./c-exp.y" { write_exp_elt_opcode (UNOP_SIZEOF); ; break;} case 16: #line 267 "./c-exp.y" { write_exp_elt_opcode (STRUCTOP_PTR); write_exp_string (yyvsp[0].sval); write_exp_elt_opcode (STRUCTOP_PTR); ; break;} case 17: #line 273 "./c-exp.y" { /* exp->type::name becomes exp->*(&type::name) */ /* Note: this doesn't work if name is a static member! FIXME */ write_exp_elt_opcode (UNOP_ADDR); write_exp_elt_opcode (STRUCTOP_MPTR); ; break;} case 18: #line 280 "./c-exp.y" { write_exp_elt_opcode (STRUCTOP_MPTR); ; break;} case 19: #line 284 "./c-exp.y" { write_exp_elt_opcode (STRUCTOP_STRUCT); write_exp_string (yyvsp[0].sval); write_exp_elt_opcode (STRUCTOP_STRUCT); ; break;} case 20: #line 290 "./c-exp.y" { /* exp.type::name becomes exp.*(&type::name) */ /* Note: this doesn't work if name is a static member! FIXME */ write_exp_elt_opcode (UNOP_ADDR); write_exp_elt_opcode (STRUCTOP_MEMBER); ; break;} case 21: #line 298 "./c-exp.y" { write_exp_elt_opcode (STRUCTOP_MEMBER); ; break;} case 22: #line 302 "./c-exp.y" { write_exp_elt_opcode (BINOP_SUBSCRIPT); ; break;} case 23: #line 308 "./c-exp.y" { start_arglist (); ; break;} case 24: #line 310 "./c-exp.y" { write_exp_elt_opcode (OP_FUNCALL); write_exp_elt_longcst ((LONGEST) end_arglist ()); write_exp_elt_opcode (OP_FUNCALL); ; break;} case 25: #line 316 "./c-exp.y" { start_arglist (); ; break;} case 27: #line 323 "./c-exp.y" { arglist_len = 1; ; break;} case 28: #line 327 "./c-exp.y" { arglist_len++; ; break;} case 29: #line 331 "./c-exp.y" { yyval.lval = end_arglist () - 1; ; break;} case 30: #line 334 "./c-exp.y" { write_exp_elt_opcode (OP_ARRAY); write_exp_elt_longcst ((LONGEST) 0); write_exp_elt_longcst ((LONGEST) yyvsp[0].lval); write_exp_elt_opcode (OP_ARRAY); ; break;} case 31: #line 341 "./c-exp.y" { write_exp_elt_opcode (UNOP_MEMVAL); write_exp_elt_type (yyvsp[-2].tval); write_exp_elt_opcode (UNOP_MEMVAL); ; break;} case 32: #line 347 "./c-exp.y" { write_exp_elt_opcode (UNOP_CAST); write_exp_elt_type (yyvsp[-2].tval); write_exp_elt_opcode (UNOP_CAST); ; break;} case 33: #line 353 "./c-exp.y" { ; break;} case 34: #line 359 "./c-exp.y" { write_exp_elt_opcode (BINOP_REPEAT); ; break;} case 35: #line 363 "./c-exp.y" { write_exp_elt_opcode (BINOP_MUL); ; break;} case 36: #line 367 "./c-exp.y" { write_exp_elt_opcode (BINOP_DIV); ; break;} case 37: #line 371 "./c-exp.y" { write_exp_elt_opcode (BINOP_REM); ; break;} case 38: #line 375 "./c-exp.y" { write_exp_elt_opcode (BINOP_ADD); ; break;} case 39: #line 379 "./c-exp.y" { write_exp_elt_opcode (BINOP_SUB); ; break;} case 40: #line 383 "./c-exp.y" { write_exp_elt_opcode (BINOP_LSH); ; break;} case 41: #line 387 "./c-exp.y" { write_exp_elt_opcode (BINOP_RSH); ; break;} case 42: #line 391 "./c-exp.y" { write_exp_elt_opcode (BINOP_EQUAL); ; break;} case 43: #line 395 "./c-exp.y" { write_exp_elt_opcode (BINOP_NOTEQUAL); ; break;} case 44: #line 399 "./c-exp.y" { write_exp_elt_opcode (BINOP_LEQ); ; break;} case 45: #line 403 "./c-exp.y" { write_exp_elt_opcode (BINOP_GEQ); ; break;} case 46: #line 407 "./c-exp.y" { write_exp_elt_opcode (BINOP_LESS); ; break;} case 47: #line 411 "./c-exp.y" { write_exp_elt_opcode (BINOP_GTR); ; break;} case 48: #line 415 "./c-exp.y" { write_exp_elt_opcode (BINOP_BITWISE_AND); ; break;} case 49: #line 419 "./c-exp.y" { write_exp_elt_opcode (BINOP_BITWISE_XOR); ; break;} case 50: #line 423 "./c-exp.y" { write_exp_elt_opcode (BINOP_BITWISE_IOR); ; break;} case 51: #line 427 "./c-exp.y" { write_exp_elt_opcode (BINOP_LOGICAL_AND); ; break;} case 52: #line 431 "./c-exp.y" { write_exp_elt_opcode (BINOP_LOGICAL_OR); ; break;} case 53: #line 435 "./c-exp.y" { write_exp_elt_opcode (TERNOP_COND); ; break;} case 54: #line 439 "./c-exp.y" { write_exp_elt_opcode (BINOP_ASSIGN); ; break;} case 55: #line 443 "./c-exp.y" { write_exp_elt_opcode (BINOP_ASSIGN_MODIFY); write_exp_elt_opcode (yyvsp[-1].opcode); write_exp_elt_opcode (BINOP_ASSIGN_MODIFY); ; break;} case 56: #line 449 "./c-exp.y" { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (yyvsp[0].typed_val.type); write_exp_elt_longcst ((LONGEST)(yyvsp[0].typed_val.val)); write_exp_elt_opcode (OP_LONG); ; break;} case 57: #line 456 "./c-exp.y" { YYSTYPE val; parse_number (yyvsp[0].ssym.stoken.ptr, yyvsp[0].ssym.stoken.length, 0, &val); write_exp_elt_opcode (OP_LONG); write_exp_elt_type (val.typed_val.type); write_exp_elt_longcst ((LONGEST)val.typed_val.val); write_exp_elt_opcode (OP_LONG); ; break;} case 58: #line 467 "./c-exp.y" { write_exp_elt_opcode (OP_DOUBLE); write_exp_elt_type (builtin_type_double); write_exp_elt_dblcst (yyvsp[0].dval); write_exp_elt_opcode (OP_DOUBLE); ; break;} case 60: #line 477 "./c-exp.y" { write_exp_elt_opcode (OP_LAST); write_exp_elt_longcst ((LONGEST) yyvsp[0].lval); write_exp_elt_opcode (OP_LAST); ; break;} case 61: #line 483 "./c-exp.y" { write_exp_elt_opcode (OP_REGISTER); write_exp_elt_longcst ((LONGEST) yyvsp[0].lval); write_exp_elt_opcode (OP_REGISTER); ; break;} case 62: #line 489 "./c-exp.y" { write_exp_elt_opcode (OP_INTERNALVAR); write_exp_elt_intern (yyvsp[0].ivar); write_exp_elt_opcode (OP_INTERNALVAR); ; break;} case 63: #line 495 "./c-exp.y" { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_int); write_exp_elt_longcst ((LONGEST) TYPE_LENGTH (yyvsp[-1].tval)); write_exp_elt_opcode (OP_LONG); ; break;} case 64: #line 502 "./c-exp.y" { /* C strings are converted into array constants with an explicit null byte added at the end. Thus the array upper bound is the string length. There is no such thing in C as a completely empty string. */ char *sp = yyvsp[0].sval.ptr; int count = yyvsp[0].sval.length; while (count-- > 0) { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_char); write_exp_elt_longcst ((LONGEST)(*sp++)); write_exp_elt_opcode (OP_LONG); } write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_char); write_exp_elt_longcst ((LONGEST)'\0'); write_exp_elt_opcode (OP_LONG); write_exp_elt_opcode (OP_ARRAY); write_exp_elt_longcst ((LONGEST) 0); write_exp_elt_longcst ((LONGEST) (yyvsp[0].sval.length)); write_exp_elt_opcode (OP_ARRAY); ; break;} case 65: #line 527 "./c-exp.y" { write_exp_elt_opcode (OP_THIS); write_exp_elt_opcode (OP_THIS); ; break;} case 66: #line 534 "./c-exp.y" { if (yyvsp[0].ssym.sym != 0) yyval.bval = SYMBOL_BLOCK_VALUE (yyvsp[0].ssym.sym); else { struct symtab *tem = lookup_symtab (copy_name (yyvsp[0].ssym.stoken)); if (tem) yyval.bval = BLOCKVECTOR_BLOCK (BLOCKVECTOR (tem), STATIC_BLOCK); else error ("No file or function \"%s\".", copy_name (yyvsp[0].ssym.stoken)); } ; break;} case 67: #line 552 "./c-exp.y" { struct symbol *tem = lookup_symbol (copy_name (yyvsp[0].sval), yyvsp[-2].bval, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (!tem || SYMBOL_CLASS (tem) != LOC_BLOCK) error ("No function \"%s\" in specified context.", copy_name (yyvsp[0].sval)); yyval.bval = SYMBOL_BLOCK_VALUE (tem); ; break;} case 68: #line 563 "./c-exp.y" { struct symbol *sym; sym = lookup_symbol (copy_name (yyvsp[0].sval), yyvsp[-2].bval, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (sym == 0) error ("No symbol \"%s\" in specified context.", copy_name (yyvsp[0].sval)); write_exp_elt_opcode (OP_VAR_VALUE); /* block_found is set by lookup_symbol. */ write_exp_elt_block (block_found); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); ; break;} case 69: #line 579 "./c-exp.y" { struct type *type = yyvsp[-2].tval; if (TYPE_CODE (type) != TYPE_CODE_STRUCT && TYPE_CODE (type) != TYPE_CODE_UNION) error ("`%s' is not defined as an aggregate type.", TYPE_NAME (type)); write_exp_elt_opcode (OP_SCOPE); write_exp_elt_type (type); write_exp_string (yyvsp[0].sval); write_exp_elt_opcode (OP_SCOPE); ; break;} case 70: #line 592 "./c-exp.y" { struct type *type = yyvsp[-3].tval; struct stoken tmp_token; if (TYPE_CODE (type) != TYPE_CODE_STRUCT && TYPE_CODE (type) != TYPE_CODE_UNION) error ("`%s' is not defined as an aggregate type.", TYPE_NAME (type)); if (!STREQ (type_name_no_tag (type), yyvsp[0].sval.ptr)) error ("invalid destructor `%s::~%s'", type_name_no_tag (type), yyvsp[0].sval.ptr); tmp_token.ptr = (char*) alloca (yyvsp[0].sval.length + 2); tmp_token.length = yyvsp[0].sval.length + 1; tmp_token.ptr[0] = '~'; memcpy (tmp_token.ptr+1, yyvsp[0].sval.ptr, yyvsp[0].sval.length); tmp_token.ptr[tmp_token.length] = 0; write_exp_elt_opcode (OP_SCOPE); write_exp_elt_type (type); write_exp_string (tmp_token); write_exp_elt_opcode (OP_SCOPE); ; break;} case 72: #line 618 "./c-exp.y" { char *name = copy_name (yyvsp[0].sval); struct symbol *sym; struct minimal_symbol *msymbol; sym = lookup_symbol (name, (const struct block *) NULL, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (sym) { write_exp_elt_opcode (OP_VAR_VALUE); write_exp_elt_block (NULL); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); break; } msymbol = lookup_minimal_symbol (name, (struct objfile *) NULL); if (msymbol != NULL) { write_exp_msymbol (msymbol, lookup_function_type (builtin_type_int), builtin_type_int); } else if (!have_full_symbols () && !have_partial_symbols ()) error ("No symbol table is loaded. Use the \"file\" command."); else error ("No symbol \"%s\" in current context.", name); ; break;} case 73: #line 653 "./c-exp.y" { struct symbol *sym = yyvsp[0].ssym.sym; if (sym) { if (symbol_read_needs_frame (sym)) { if (innermost_block == 0 || contained_in (block_found, innermost_block)) innermost_block = block_found; } write_exp_elt_opcode (OP_VAR_VALUE); /* We want to use the selected frame, not another more inner frame which happens to be in the same block. */ write_exp_elt_block (NULL); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); } else if (yyvsp[0].ssym.is_a_field_of_this) { /* C++: it hangs off of `this'. Must not inadvertently convert from a method call to data ref. */ if (innermost_block == 0 || contained_in (block_found, innermost_block)) innermost_block = block_found; write_exp_elt_opcode (OP_THIS); write_exp_elt_opcode (OP_THIS); write_exp_elt_opcode (STRUCTOP_PTR); write_exp_string (yyvsp[0].ssym.stoken); write_exp_elt_opcode (STRUCTOP_PTR); } else { struct minimal_symbol *msymbol; register char *arg = copy_name (yyvsp[0].ssym.stoken); msymbol = lookup_minimal_symbol (arg, (struct objfile *) NULL); if (msymbol != NULL) { write_exp_msymbol (msymbol, lookup_function_type (builtin_type_int), builtin_type_int); } else if (!have_full_symbols () && !have_partial_symbols ()) error ("No symbol table is loaded. Use the \"file\" command."); else error ("No symbol \"%s\" in current context.", copy_name (yyvsp[0].ssym.stoken)); } ; break;} case 77: #line 719 "./c-exp.y" { yyval.tval = follow_types (yyvsp[-1].tval); ; break;} case 78: #line 721 "./c-exp.y" { yyval.tval = follow_types (yyvsp[-2].tval); ; break;} case 79: #line 723 "./c-exp.y" { yyval.tval = follow_types (yyvsp[-2].tval); ; break;} case 80: #line 727 "./c-exp.y" { push_type (tp_pointer); yyval.voidval = 0; ; break;} case 81: #line 729 "./c-exp.y" { push_type (tp_pointer); yyval.voidval = yyvsp[0].voidval; ; break;} case 82: #line 731 "./c-exp.y" { push_type (tp_reference); yyval.voidval = 0; ; break;} case 83: #line 733 "./c-exp.y" { push_type (tp_reference); yyval.voidval = yyvsp[0].voidval; ; break;} case 85: #line 738 "./c-exp.y" { yyval.voidval = yyvsp[-1].voidval; ; break;} case 86: #line 740 "./c-exp.y" { push_type_int (yyvsp[0].lval); push_type (tp_array); ; break;} case 87: #line 745 "./c-exp.y" { push_type_int (yyvsp[0].lval); push_type (tp_array); yyval.voidval = 0; ; break;} case 88: #line 752 "./c-exp.y" { push_type (tp_function); ; break;} case 89: #line 754 "./c-exp.y" { push_type (tp_function); ; break;} case 90: #line 758 "./c-exp.y" { yyval.lval = -1; ; break;} case 91: #line 760 "./c-exp.y" { yyval.lval = yyvsp[-1].typed_val.val; ; break;} case 92: #line 764 "./c-exp.y" { yyval.voidval = 0; ; break;} case 93: #line 766 "./c-exp.y" { free ((PTR)yyvsp[-1].tvec); yyval.voidval = 0; ; break;} case 95: #line 779 "./c-exp.y" { yyval.tval = lookup_member_type (builtin_type_int, yyvsp[-2].tval); ; break;} case 96: #line 784 "./c-exp.y" { yyval.tval = yyvsp[0].tsym.type; ; break;} case 97: #line 786 "./c-exp.y" { yyval.tval = builtin_type_int; ; break;} case 98: #line 788 "./c-exp.y" { yyval.tval = builtin_type_long; ; break;} case 99: #line 790 "./c-exp.y" { yyval.tval = builtin_type_short; ; break;} case 100: #line 792 "./c-exp.y" { yyval.tval = builtin_type_long; ; break;} case 101: #line 794 "./c-exp.y" { yyval.tval = builtin_type_unsigned_long; ; break;} case 102: #line 796 "./c-exp.y" { yyval.tval = builtin_type_long_long; ; break;} case 103: #line 798 "./c-exp.y" { yyval.tval = builtin_type_long_long; ; break;} case 104: #line 800 "./c-exp.y" { yyval.tval = builtin_type_unsigned_long_long; ; break;} case 105: #line 802 "./c-exp.y" { yyval.tval = builtin_type_unsigned_long_long; ; break;} case 106: #line 804 "./c-exp.y" { yyval.tval = builtin_type_short; ; break;} case 107: #line 806 "./c-exp.y" { yyval.tval = builtin_type_unsigned_short; ; break;} case 108: #line 808 "./c-exp.y" { yyval.tval = lookup_struct (copy_name (yyvsp[0].sval), expression_context_block); ; break;} case 109: #line 811 "./c-exp.y" { yyval.tval = lookup_struct (copy_name (yyvsp[0].sval), expression_context_block); ; break;} case 110: #line 814 "./c-exp.y" { yyval.tval = lookup_union (copy_name (yyvsp[0].sval), expression_context_block); ; break;} case 111: #line 817 "./c-exp.y" { yyval.tval = lookup_enum (copy_name (yyvsp[0].sval), expression_context_block); ; break;} case 112: #line 820 "./c-exp.y" { yyval.tval = lookup_unsigned_typename (TYPE_NAME(yyvsp[0].tsym.type)); ; break;} case 113: #line 822 "./c-exp.y" { yyval.tval = builtin_type_unsigned_int; ; break;} case 114: #line 824 "./c-exp.y" { yyval.tval = lookup_signed_typename (TYPE_NAME(yyvsp[0].tsym.type)); ; break;} case 115: #line 826 "./c-exp.y" { yyval.tval = builtin_type_int; ; break;} case 116: #line 828 "./c-exp.y" { yyval.tval = lookup_template_type(copy_name(yyvsp[-3].sval), yyvsp[-1].tval, expression_context_block); ; break;} case 117: #line 834 "./c-exp.y" { yyval.tval = yyvsp[0].tval; ; break;} case 118: #line 835 "./c-exp.y" { yyval.tval = yyvsp[0].tval; ; break;} case 120: #line 840 "./c-exp.y" { yyval.tsym.stoken.ptr = "int"; yyval.tsym.stoken.length = 3; yyval.tsym.type = builtin_type_int; ; break;} case 121: #line 846 "./c-exp.y" { yyval.tsym.stoken.ptr = "long"; yyval.tsym.stoken.length = 4; yyval.tsym.type = builtin_type_long; ; break;} case 122: #line 852 "./c-exp.y" { yyval.tsym.stoken.ptr = "short"; yyval.tsym.stoken.length = 5; yyval.tsym.type = builtin_type_short; ; break;} case 123: #line 861 "./c-exp.y" { yyval.tvec = (struct type **) xmalloc (sizeof (struct type *) * 2); yyval.ivec[0] = 1; /* Number of types in vector */ yyval.tvec[1] = yyvsp[0].tval; ; break;} case 124: #line 866 "./c-exp.y" { int len = sizeof (struct type *) * (++(yyvsp[-2].ivec[0]) + 1); yyval.tvec = (struct type **) xrealloc ((char *) yyvsp[-2].tvec, len); yyval.tvec[yyval.ivec[0]] = yyvsp[0].tval; ; break;} case 125: #line 872 "./c-exp.y" { yyval.sval = yyvsp[0].ssym.stoken; ; break;} case 126: #line 873 "./c-exp.y" { yyval.sval = yyvsp[0].ssym.stoken; ; break;} case 127: #line 874 "./c-exp.y" { yyval.sval = yyvsp[0].tsym.stoken; ; break;} case 128: #line 875 "./c-exp.y" { yyval.sval = yyvsp[0].ssym.stoken; ; break;} } /* the action file gets copied in in place of this dollarsign */ #line 465 "/usr/unsupported/lib/bison.simple" yyvsp -= yylen; yyssp -= yylen; #ifdef YYLSP_NEEDED yylsp -= yylen; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif *++yyvsp = yyval; #ifdef YYLSP_NEEDED yylsp++; if (yylen == 0) { yylsp->first_line = yylloc.first_line; yylsp->first_column = yylloc.first_column; yylsp->last_line = (yylsp-1)->last_line; yylsp->last_column = (yylsp-1)->last_column; yylsp->text = 0; } else { yylsp->last_line = (yylsp+yylen-1)->last_line; yylsp->last_column = (yylsp+yylen-1)->last_column; } #endif /* Now "shift" the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTBASE] + *yyssp; if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTBASE]; goto yynewstate; yyerrlab: /* here on detecting error */ if (! yyerrstatus) /* If not already recovering from an error, report this error. */ { ++yynerrs; #ifdef YYERROR_VERBOSE yyn = yypact[yystate]; if (yyn > YYFLAG && yyn < YYLAST) { int size = 0; char *msg; int x, count; count = 0; /* Start X at -yyn if nec to avoid negative indexes in yycheck. */ for (x = (yyn < 0 ? -yyn : 0); x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) size += strlen(yytname[x]) + 15, count++; msg = (char *) xmalloc(size + 15); if (msg != 0) { strcpy(msg, "parse error"); if (count < 5) { count = 0; for (x = (yyn < 0 ? -yyn : 0); x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) { strcat(msg, count == 0 ? ", expecting `" : " or `"); strcat(msg, yytname[x]); strcat(msg, "'"); count++; } } yyerror(msg); free(msg); } else yyerror ("parse error; also virtual memory exceeded"); } else #endif /* YYERROR_VERBOSE */ yyerror("parse error"); } goto yyerrlab1; yyerrlab1: /* here on error raised explicitly by an action */ if (yyerrstatus == 3) { /* if just tried and failed to reuse lookahead token after an error, discard it. */ /* return failure if at end of input */ if (yychar == YYEOF) YYABORT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]); #endif yychar = YYEMPTY; } /* Else will try to reuse lookahead token after shifting the error token. */ yyerrstatus = 3; /* Each real token shifted decrements this */ goto yyerrhandle; yyerrdefault: /* current state does not do anything special for the error token. */ #if 0 /* This is wrong; only states that explicitly want error tokens should shift them. */ yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/ if (yyn) goto yydefault; #endif yyerrpop: /* pop the current state because it cannot handle the error token */ if (yyssp == yyss) YYABORT; yyvsp--; yystate = *--yyssp; #ifdef YYLSP_NEEDED yylsp--; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "Error: state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif yyerrhandle: yyn = yypact[yystate]; if (yyn == YYFLAG) goto yyerrdefault; yyn += YYTERROR; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR) goto yyerrdefault; yyn = yytable[yyn]; if (yyn < 0) { if (yyn == YYFLAG) goto yyerrpop; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrpop; if (yyn == YYFINAL) YYACCEPT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting error token, "); #endif *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif yystate = yyn; goto yynewstate; } #line 889 "./c-exp.y" /* Take care of parsing a number (anything that starts with a digit). Set yylval and return the token type; update lexptr. LEN is the number of characters in it. */ /*** Needs some error checking for the float case ***/ static int parse_number (p, len, parsed_float, putithere) register char *p; register int len; int parsed_float; YYSTYPE *putithere; { /* FIXME: Shouldn't these be unsigned? We don't deal with negative values here, and we do kind of silly things like cast to unsigned. */ register LONGEST n = 0; register LONGEST prevn = 0; unsigned LONGEST un; register int i = 0; register int c; register int base = input_radix; int unsigned_p = 0; /* Number of "L" suffixes encountered. */ int long_p = 0; /* We have found a "L" or "U" suffix. */ int found_suffix = 0; unsigned LONGEST high_bit; struct type *signed_type; struct type *unsigned_type; if (parsed_float) { /* It's a float since it contains a point or an exponent. */ putithere->dval = atof (p); return FLOAT; } /* Handle base-switching prefixes 0x, 0t, 0d, 0 */ if (p[0] == '0') switch (p[1]) { case 'x': case 'X': if (len >= 3) { p += 2; base = 16; len -= 2; } break; case 't': case 'T': case 'd': case 'D': if (len >= 3) { p += 2; base = 10; len -= 2; } break; default: base = 8; break; } while (len-- > 0) { c = *p++; if (c >= 'A' && c <= 'Z') c += 'a' - 'A'; if (c != 'l' && c != 'u') n *= base; if (c >= '0' && c <= '9') { if (found_suffix) return ERROR; n += i = c - '0'; } else { if (base > 10 && c >= 'a' && c <= 'f') { if (found_suffix) return ERROR; n += i = c - 'a' + 10; } else if (c == 'l') { ++long_p; found_suffix = 1; } else if (c == 'u') { unsigned_p = 1; found_suffix = 1; } else return ERROR; /* Char not a digit */ } if (i >= base) return ERROR; /* Invalid digit in this base */ /* Portably test for overflow (only works for nonzero values, so make a second check for zero). FIXME: Can't we just make n and prevn unsigned and avoid this? */ if (c != 'l' && c != 'u' && (prevn >= n) && n != 0) unsigned_p = 1; /* Try something unsigned */ /* Portably test for unsigned overflow. FIXME: This check is wrong; for example it doesn't find overflow on 0x123456789 when LONGEST is 32 bits. */ if (c != 'l' && c != 'u' && n != 0) { if ((unsigned_p && (unsigned LONGEST) prevn >= (unsigned LONGEST) n)) error ("Numeric constant too large."); } prevn = n; } /* An integer constant is an int, a long, or a long long. An L suffix forces it to be long; an LL suffix forces it to be long long. If not forced to a larger size, it gets the first type of the above that it fits in. To figure out whether it fits, we shift it right and see whether anything remains. Note that we can't shift sizeof (LONGEST) * HOST_CHAR_BIT bits or more in one operation, because many compilers will warn about such a shift (which always produces a zero result). Sometimes TARGET_INT_BIT or TARGET_LONG_BIT will be that big, sometimes not. To deal with the case where it is we just always shift the value more than once, with fewer bits each time. */ un = (unsigned LONGEST)n >> 2; if (long_p == 0 && (un >> (TARGET_INT_BIT - 2)) == 0) { high_bit = ((unsigned LONGEST)1) << (TARGET_INT_BIT-1); /* A large decimal (not hex or octal) constant (between INT_MAX and UINT_MAX) is a long or unsigned long, according to ANSI, never an unsigned int, but this code treats it as unsigned int. This probably should be fixed. GCC gives a warning on such constants. */ unsigned_type = builtin_type_unsigned_int; signed_type = builtin_type_int; } else if (long_p <= 1 && (un >> (TARGET_LONG_BIT - 2)) == 0) { high_bit = ((unsigned LONGEST)1) << (TARGET_LONG_BIT-1); unsigned_type = builtin_type_unsigned_long; signed_type = builtin_type_long; } else { high_bit = (((unsigned LONGEST)1) << (TARGET_LONG_LONG_BIT - 32 - 1) << 16 << 16); if (high_bit == 0) /* A long long does not fit in a LONGEST. */ high_bit = (unsigned LONGEST)1 << (sizeof (LONGEST) * HOST_CHAR_BIT - 1); unsigned_type = builtin_type_unsigned_long_long; signed_type = builtin_type_long_long; } putithere->typed_val.val = n; /* If the high bit of the worked out type is set then this number has to be unsigned. */ if (unsigned_p || (n & high_bit)) { putithere->typed_val.type = unsigned_type; } else { putithere->typed_val.type = signed_type; } return INT; } struct token { char *operator; int token; enum exp_opcode opcode; }; static const struct token tokentab3[] = { {">>=", ASSIGN_MODIFY, BINOP_RSH}, {"<<=", ASSIGN_MODIFY, BINOP_LSH} }; static const struct token tokentab2[] = { {"+=", ASSIGN_MODIFY, BINOP_ADD}, {"-=", ASSIGN_MODIFY, BINOP_SUB}, {"*=", ASSIGN_MODIFY, BINOP_MUL}, {"/=", ASSIGN_MODIFY, BINOP_DIV}, {"%=", ASSIGN_MODIFY, BINOP_REM}, {"|=", ASSIGN_MODIFY, BINOP_BITWISE_IOR}, {"&=", ASSIGN_MODIFY, BINOP_BITWISE_AND}, {"^=", ASSIGN_MODIFY, BINOP_BITWISE_XOR}, {"++", INCREMENT, BINOP_END}, {"--", DECREMENT, BINOP_END}, {"->", ARROW, BINOP_END}, {"&&", ANDAND, BINOP_END}, {"||", OROR, BINOP_END}, {"::", COLONCOLON, BINOP_END}, {"<<", LSH, BINOP_END}, {">>", RSH, BINOP_END}, {"==", EQUAL, BINOP_END}, {"!=", NOTEQUAL, BINOP_END}, {"<=", LEQ, BINOP_END}, {">=", GEQ, BINOP_END} }; /* Read one token, getting characters through lexptr. */ static int yylex () { int c; int namelen; unsigned int i; char *tokstart; char *tokptr; int tempbufindex; static char *tempbuf; static int tempbufsize; retry: tokstart = lexptr; /* See if it is a special token of length 3. */ for (i = 0; i < sizeof tokentab3 / sizeof tokentab3[0]; i++) if (STREQN (tokstart, tokentab3[i].operator, 3)) { lexptr += 3; yylval.opcode = tokentab3[i].opcode; return tokentab3[i].token; } /* See if it is a special token of length 2. */ for (i = 0; i < sizeof tokentab2 / sizeof tokentab2[0]; i++) if (STREQN (tokstart, tokentab2[i].operator, 2)) { lexptr += 2; yylval.opcode = tokentab2[i].opcode; return tokentab2[i].token; } switch (c = *tokstart) { case 0: return 0; case ' ': case '\t': case '\n': lexptr++; goto retry; case '\'': /* We either have a character constant ('0' or '\177' for example) or we have a quoted symbol reference ('foo(int,int)' in C++ for example). */ lexptr++; c = *lexptr++; if (c == '\\') c = parse_escape (&lexptr); yylval.typed_val.val = c; yylval.typed_val.type = builtin_type_char; c = *lexptr++; if (c != '\'') { namelen = skip_quoted (tokstart) - tokstart; if (namelen > 2) { lexptr = tokstart + namelen; if (lexptr[-1] != '\'') error ("Unmatched single quote."); namelen -= 2; tokstart++; goto tryname; } error ("Invalid character constant."); } return INT; case '(': paren_depth++; lexptr++; return c; case ')': if (paren_depth == 0) return 0; paren_depth--; lexptr++; return c; case ',': if (comma_terminates && paren_depth == 0) return 0; lexptr++; return c; case '.': /* Might be a floating point number. */ if (lexptr[1] < '0' || lexptr[1] > '9') goto symbol; /* Nope, must be a symbol. */ /* FALL THRU into number case. */ case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': { /* It's a number. */ int got_dot = 0, got_e = 0, toktype; register char *p = tokstart; int hex = input_radix > 10; if (c == '0' && (p[1] == 'x' || p[1] == 'X')) { p += 2; hex = 1; } else if (c == '0' && (p[1]=='t' || p[1]=='T' || p[1]=='d' || p[1]=='D')) { p += 2; hex = 0; } for (;; ++p) { /* This test includes !hex because 'e' is a valid hex digit and thus does not indicate a floating point number when the radix is hex. */ if (!hex && !got_e && (*p == 'e' || *p == 'E')) got_dot = got_e = 1; /* This test does not include !hex, because a '.' always indicates a decimal floating point number regardless of the radix. */ else if (!got_dot && *p == '.') got_dot = 1; else if (got_e && (p[-1] == 'e' || p[-1] == 'E') && (*p == '-' || *p == '+')) /* This is the sign of the exponent, not the end of the number. */ continue; /* We will take any letters or digits. parse_number will complain if past the radix, or if L or U are not final. */ else if ((*p < '0' || *p > '9') && ((*p < 'a' || *p > 'z') && (*p < 'A' || *p > 'Z'))) break; } toktype = parse_number (tokstart, p - tokstart, got_dot|got_e, &yylval); if (toktype == ERROR) { char *err_copy = (char *) alloca (p - tokstart + 1); memcpy (err_copy, tokstart, p - tokstart); err_copy[p - tokstart] = 0; error ("Invalid number \"%s\".", err_copy); } lexptr = p; return toktype; } case '+': case '-': case '*': case '/': case '%': case '|': case '&': case '^': case '~': case '!': case '@': case '<': case '>': case '[': case ']': case '?': case ':': case '=': case '{': case '}': symbol: lexptr++; return c; case '"': /* Build the gdb internal form of the input string in tempbuf, translating any standard C escape forms seen. Note that the buffer is null byte terminated *only* for the convenience of debugging gdb itself and printing the buffer contents when the buffer contains no embedded nulls. Gdb does not depend upon the buffer being null byte terminated, it uses the length string instead. This allows gdb to handle C strings (as well as strings in other languages) with embedded null bytes */ tokptr = ++tokstart; tempbufindex = 0; do { /* Grow the static temp buffer if necessary, including allocating the first one on demand. */ if (tempbufindex + 1 >= tempbufsize) { tempbuf = (char *) xrealloc (tempbuf, tempbufsize += 64); } switch (*tokptr) { case '\0': case '"': /* Do nothing, loop will terminate. */ break; case '\\': tokptr++; c = parse_escape (&tokptr); if (c == -1) { continue; } tempbuf[tempbufindex++] = c; break; default: tempbuf[tempbufindex++] = *tokptr++; break; } } while ((*tokptr != '"') && (*tokptr != '\0')); if (*tokptr++ != '"') { error ("Unterminated string in expression."); } tempbuf[tempbufindex] = '\0'; /* See note above */ yylval.sval.ptr = tempbuf; yylval.sval.length = tempbufindex; lexptr = tokptr; return (STRING); } if (!(c == '_' || c == '$' || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z'))) /* We must have come across a bad character (e.g. ';'). */ error ("Invalid character '%c' in expression.", c); /* It's a name. See how long it is. */ namelen = 0; for (c = tokstart[namelen]; (c == '_' || c == '$' || (c >= '0' && c <= '9') || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')); c = tokstart[++namelen]) ; /* The token "if" terminates the expression and is NOT removed from the input stream. */ if (namelen == 2 && tokstart[0] == 'i' && tokstart[1] == 'f') { return 0; } lexptr += namelen; /* Handle the tokens $digits; also $ (short for $0) and $$ (short for $$1) and $$digits (equivalent to $<-digits> if you could type that). Make token type LAST, and put the number (the digits) in yylval. */ tryname: if (*tokstart == '$') { register int negate = 0; c = 1; /* Double dollar means negate the number and add -1 as well. Thus $$ alone means -1. */ if (namelen >= 2 && tokstart[1] == '$') { negate = 1; c = 2; } if (c == namelen) { /* Just dollars (one or two) */ yylval.lval = - negate; return LAST; } /* Is the rest of the token digits? */ for (; c < namelen; c++) if (!(tokstart[c] >= '0' && tokstart[c] <= '9')) break; if (c == namelen) { yylval.lval = atoi (tokstart + 1 + negate); if (negate) yylval.lval = - yylval.lval; return LAST; } } /* Handle tokens that refer to machine registers: $ followed by a register name. */ if (*tokstart == '$') { for (c = 0; c < NUM_REGS; c++) if (namelen - 1 == strlen (reg_names[c]) && STREQN (tokstart + 1, reg_names[c], namelen - 1)) { yylval.lval = c; return REGNAME; } for (c = 0; c < num_std_regs; c++) if (namelen - 1 == strlen (std_regs[c].name) && STREQN (tokstart + 1, std_regs[c].name, namelen - 1)) { yylval.lval = std_regs[c].regnum; return REGNAME; } } /* Catch specific keywords. Should be done with a data structure. */ switch (namelen) { case 8: if (STREQN (tokstart, "unsigned", 8)) return UNSIGNED; if (current_language->la_language == language_cplus && STREQN (tokstart, "template", 8)) return TEMPLATE; if (STREQN (tokstart, "volatile", 8)) return VOLATILE_KEYWORD; break; case 6: if (STREQN (tokstart, "struct", 6)) return STRUCT; if (STREQN (tokstart, "signed", 6)) return SIGNED_KEYWORD; if (STREQN (tokstart, "sizeof", 6)) return SIZEOF; break; case 5: if (current_language->la_language == language_cplus && STREQN (tokstart, "class", 5)) return CLASS; if (STREQN (tokstart, "union", 5)) return UNION; if (STREQN (tokstart, "short", 5)) return SHORT; if (STREQN (tokstart, "const", 5)) return CONST_KEYWORD; break; case 4: if (STREQN (tokstart, "enum", 4)) return ENUM; if (STREQN (tokstart, "long", 4)) return LONG; if (current_language->la_language == language_cplus && STREQN (tokstart, "this", 4)) { static const char this_name[] = { CPLUS_MARKER, 't', 'h', 'i', 's', '\0' }; if (lookup_symbol (this_name, expression_context_block, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL)) return THIS; } break; case 3: if (STREQN (tokstart, "int", 3)) return INT_KEYWORD; break; default: break; } yylval.sval.ptr = tokstart; yylval.sval.length = namelen; /* Any other names starting in $ are debugger internal variables. */ if (*tokstart == '$') { yylval.ivar = lookup_internalvar (copy_name (yylval.sval) + 1); return VARIABLE; } /* Use token-type BLOCKNAME for symbols that happen to be defined as functions or symtabs. If this is not so, then ... Use token-type TYPENAME for symbols that happen to be defined currently as names of types; NAME for other symbols. The caller is not constrained to care about the distinction. */ { char *tmp = copy_name (yylval.sval); struct symbol *sym; int is_a_field_of_this = 0; int hextype; sym = lookup_symbol (tmp, expression_context_block, VAR_NAMESPACE, current_language->la_language == language_cplus ? &is_a_field_of_this : (int *) NULL, (struct symtab **) NULL); /* Call lookup_symtab, not lookup_partial_symtab, in case there are no psymtabs (coff, xcoff, or some future change to blow away the psymtabs once once symbols are read). */ if ((sym && SYMBOL_CLASS (sym) == LOC_BLOCK) || lookup_symtab (tmp)) { yylval.ssym.sym = sym; yylval.ssym.is_a_field_of_this = is_a_field_of_this; return BLOCKNAME; } if (sym && SYMBOL_CLASS (sym) == LOC_TYPEDEF) { #if 1 /* Despite the following flaw, we need to keep this code enabled. Because we can get called from check_stub_method, if we don't handle nested types then it screws many operations in any program which uses nested types. */ /* In "A::x", if x is a member function of A and there happens to be a type (nested or not, since the stabs don't make that distinction) named x, then this code incorrectly thinks we are dealing with nested types rather than a member function. */ char *p; char *namestart; struct symbol *best_sym; /* Look ahead to detect nested types. This probably should be done in the grammar, but trying seemed to introduce a lot of shift/reduce and reduce/reduce conflicts. It's possible that it could be done, though. Or perhaps a non-grammar, but less ad hoc, approach would work well. */ /* Since we do not currently have any way of distinguishing a nested type from a non-nested one (the stabs don't tell us whether a type is nested), we just ignore the containing type. */ p = lexptr; best_sym = sym; while (1) { /* Skip whitespace. */ while (*p == ' ' || *p == '\t' || *p == '\n') ++p; if (*p == ':' && p[1] == ':') { /* Skip the `::'. */ p += 2; /* Skip whitespace. */ while (*p == ' ' || *p == '\t' || *p == '\n') ++p; namestart = p; while (*p == '_' || *p == '$' || (*p >= '0' && *p <= '9') || (*p >= 'a' && *p <= 'z') || (*p >= 'A' && *p <= 'Z')) ++p; if (p != namestart) { struct symbol *cur_sym; /* As big as the whole rest of the expression, which is at least big enough. */ char *tmp = alloca (strlen (namestart)+1); memcpy (tmp, namestart, p - namestart); tmp[p - namestart] = '\0'; cur_sym = lookup_symbol (tmp, expression_context_block, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (cur_sym) { if (SYMBOL_CLASS (cur_sym) == LOC_TYPEDEF) { best_sym = cur_sym; lexptr = p; } else break; } else break; } else break; } else break; } yylval.tsym.type = SYMBOL_TYPE (best_sym); #else /* not 0 */ yylval.tsym.type = SYMBOL_TYPE (sym); #endif /* not 0 */ return TYPENAME; } if ((yylval.tsym.type = lookup_primitive_typename (tmp)) != 0) return TYPENAME; /* Input names that aren't symbols but ARE valid hex numbers, when the input radix permits them, can be names or numbers depending on the parse. Note we support radixes > 16 here. */ if (!sym && ((tokstart[0] >= 'a' && tokstart[0] < 'a' + input_radix - 10) || (tokstart[0] >= 'A' && tokstart[0] < 'A' + input_radix - 10))) { YYSTYPE newlval; /* Its value is ignored. */ hextype = parse_number (tokstart, namelen, 0, &newlval); if (hextype == INT) { yylval.ssym.sym = sym; yylval.ssym.is_a_field_of_this = is_a_field_of_this; return NAME_OR_INT; } } /* Any other kind of symbol */ yylval.ssym.sym = sym; yylval.ssym.is_a_field_of_this = is_a_field_of_this; return NAME; } } void yyerror (msg) char *msg; { error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr); } gdb-4.13/gdb/ch-exp.tab.c 666 34562 1752 246540 5623251671 13450 0ustar fnfcygnus /* A Bison parser, made from ./ch-exp.y with Bison version GNU Bison version 1.22 */ #define YYBISON 1 /* Identify Bison output. */ #define FIXME_01 258 #define FIXME_02 259 #define FIXME_03 260 #define FIXME_04 261 #define FIXME_05 262 #define FIXME_06 263 #define FIXME_07 264 #define FIXME_08 265 #define FIXME_09 266 #define FIXME_10 267 #define FIXME_11 268 #define FIXME_12 269 #define FIXME_13 270 #define FIXME_14 271 #define FIXME_15 272 #define FIXME_16 273 #define FIXME_17 274 #define FIXME_18 275 #define FIXME_19 276 #define FIXME_20 277 #define FIXME_21 278 #define FIXME_22 279 #define FIXME_24 280 #define FIXME_25 281 #define FIXME_26 282 #define FIXME_27 283 #define FIXME_28 284 #define FIXME_29 285 #define FIXME_30 286 #define INTEGER_LITERAL 287 #define BOOLEAN_LITERAL 288 #define CHARACTER_LITERAL 289 #define FLOAT_LITERAL 290 #define GENERAL_PROCEDURE_NAME 291 #define LOCATION_NAME 292 #define SET_LITERAL 293 #define EMPTINESS_LITERAL 294 #define CHARACTER_STRING_LITERAL 295 #define BIT_STRING_LITERAL 296 #define TYPENAME 297 #define FIELD_NAME 298 #define CASE 299 #define OF 300 #define ESAC 301 #define LOGIOR 302 #define ORIF 303 #define LOGXOR 304 #define LOGAND 305 #define ANDIF 306 #define NOTEQUAL 307 #define GTR 308 #define LEQ 309 #define IN 310 #define SLASH_SLASH 311 #define MOD 312 #define REM 313 #define NOT 314 #define POINTER 315 #define RECEIVE 316 #define UP 317 #define IF 318 #define THEN 319 #define ELSE 320 #define FI 321 #define ELSIF 322 #define ILLEGAL_TOKEN 323 #define NUM 324 #define PRED 325 #define SUCC 326 #define ABS 327 #define CARD 328 #define MAX_TOKEN 329 #define MIN_TOKEN 330 #define SIZE 331 #define UPPER 332 #define LOWER 333 #define LENGTH 334 #define GDB_REGNAME 335 #define GDB_LAST 336 #define GDB_VARIABLE 337 #define GDB_ASSIGNMENT 338 #line 54 "./ch-exp.y" #include "defs.h" #include #include #include "expression.h" #include "language.h" #include "value.h" #include "parser-defs.h" #include "ch-lang.h" #include "bfd.h" /* Required by objfiles.h. */ #include "symfile.h" /* Required by objfiles.h. */ #include "objfiles.h" /* For have_full_symbols and have_partial_symbols */ /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc), as well as gratuitiously global symbol names, so we can have multiple yacc generated parsers in gdb. Note that these are only the variables produced by yacc. If other parser generators (bison, byacc, etc) produce additional global names that conflict at link time, then those parser generators need to be fixed instead of adding those names to this list. */ #define yymaxdepth chill_maxdepth #define yyparse chill_parse #define yylex chill_lex #define yyerror chill_error #define yylval chill_lval #define yychar chill_char #define yydebug chill_debug #define yypact chill_pact #define yyr1 chill_r1 #define yyr2 chill_r2 #define yydef chill_def #define yychk chill_chk #define yypgo chill_pgo #define yyact chill_act #define yyexca chill_exca #define yyerrflag chill_errflag #define yynerrs chill_nerrs #define yyps chill_ps #define yypv chill_pv #define yys chill_s #define yy_yys chill_yys #define yystate chill_state #define yytmp chill_tmp #define yyv chill_v #define yy_yyv chill_yyv #define yyval chill_val #define yylloc chill_lloc #define yyreds chill_reds /* With YYDEBUG defined */ #define yytoks chill_toks /* With YYDEBUG defined */ #ifndef YYDEBUG #define YYDEBUG 0 /* Default to no yydebug support */ #endif int yyparse PARAMS ((void)); static int yylex PARAMS ((void)); void yyerror PARAMS ((char *)); #line 124 "./ch-exp.y" typedef union { LONGEST lval; unsigned LONGEST ulval; struct { LONGEST val; struct type *type; } typed_val; double dval; struct symbol *sym; struct type *tval; struct stoken sval; struct ttype tsym; struct symtoken ssym; int voidval; struct block *bval; enum exp_opcode opcode; struct internalvar *ivar; struct type **tvec; int *ivec; } YYSTYPE; #ifndef YYLTYPE typedef struct yyltype { int timestamp; int first_line; int first_column; int last_line; int last_column; char *text; } yyltype; #define YYLTYPE yyltype #endif #include #ifndef __cplusplus #ifndef __STDC__ #define const #endif #endif #define YYFINAL 254 #define YYFLAG -32768 #define YYNTBASE 99 #define YYTRANSLATE(x) ((unsigned)(x) <= 338 ? yytranslate[x] : 162) static const char yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 74, 75, 64, 62, 98, 63, 44, 65, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 46, 45, 59, 55, 57, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 72, 2, 73, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 47, 48, 49, 50, 51, 52, 53, 54, 56, 58, 60, 61, 66, 67, 68, 69, 70, 71, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97 }; #if YYDEBUG != 0 static const short yyprhs[] = { 0, 0, 2, 4, 6, 8, 10, 12, 15, 17, 19, 21, 23, 25, 27, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 96, 103, 110, 111, 117, 124, 131, 134, 137, 139, 141, 143, 145, 149, 151, 153, 155, 161, 171, 174, 177, 182, 184, 189, 191, 195, 199, 203, 205, 209, 213, 215, 219, 223, 227, 231, 235, 239, 243, 245, 249, 253, 257, 259, 263, 267, 271, 275, 277, 280, 283, 286, 289, 292, 294, 298, 303, 308, 313, 318, 323, 328, 333, 338, 343, 348, 353, 358, 360, 365, 370, 375, 377, 379, 381, 383, 385, 387, 389, 391, 393, 395, 397, 399, 401, 403, 405, 407, 409, 411, 413, 415, 417, 419, 421, 423 }; static const short yyrhs[] = { 100, 0, 138, 0, 122, 0, 101, 0, 3, 0, 103, 0, 105, 70, 0, 37, 0, 95, 0, 94, 0, 96, 0, 5, 0, 122, 0, 104, 98, 122, 0, 106, 0, 107, 0, 108, 0, 109, 0, 110, 0, 111, 0, 112, 0, 114, 0, 115, 0, 116, 0, 117, 0, 118, 0, 119, 0, 120, 0, 121, 0, 102, 0, 145, 0, 146, 0, 147, 0, 148, 0, 36, 0, 32, 0, 33, 0, 34, 0, 35, 0, 38, 0, 39, 0, 40, 0, 41, 0, 6, 0, 149, 74, 150, 75, 0, 149, 74, 151, 46, 152, 75, 0, 149, 74, 150, 76, 153, 75, 0, 0, 141, 74, 113, 104, 75, 0, 141, 74, 154, 46, 155, 75, 0, 141, 74, 156, 76, 153, 75, 0, 105, 43, 0, 138, 121, 0, 7, 0, 136, 0, 8, 0, 9, 0, 74, 122, 75, 0, 128, 0, 135, 0, 123, 0, 77, 157, 124, 125, 80, 0, 47, 158, 48, 127, 72, 79, 126, 73, 49, 0, 78, 159, 0, 79, 159, 0, 81, 157, 124, 125, 0, 122, 0, 160, 46, 126, 45, 0, 129, 0, 128, 50, 129, 0, 128, 51, 129, 0, 128, 52, 129, 0, 130, 0, 129, 53, 130, 0, 129, 54, 130, 0, 131, 0, 130, 55, 131, 0, 130, 56, 131, 0, 130, 57, 131, 0, 130, 58, 131, 0, 130, 59, 131, 0, 130, 60, 131, 0, 130, 61, 131, 0, 132, 0, 131, 62, 132, 0, 131, 63, 132, 0, 131, 66, 132, 0, 133, 0, 132, 64, 133, 0, 132, 65, 133, 0, 132, 67, 133, 0, 132, 68, 133, 0, 134, 0, 63, 134, 0, 69, 134, 0, 121, 108, 0, 70, 102, 0, 71, 161, 0, 105, 0, 102, 97, 100, 0, 83, 74, 122, 75, 0, 84, 74, 122, 75, 0, 85, 74, 122, 75, 0, 86, 74, 122, 75, 0, 87, 74, 122, 75, 0, 88, 74, 122, 75, 0, 89, 74, 122, 75, 0, 90, 74, 122, 75, 0, 90, 74, 137, 75, 0, 91, 74, 139, 75, 0, 92, 74, 139, 75, 0, 93, 74, 140, 75, 0, 138, 0, 142, 74, 122, 75, 0, 143, 74, 122, 75, 0, 144, 74, 104, 75, 0, 42, 0, 122, 0, 138, 0, 122, 0, 105, 0, 10, 0, 11, 0, 12, 0, 13, 0, 14, 0, 15, 0, 16, 0, 17, 0, 18, 0, 19, 0, 20, 0, 21, 0, 22, 0, 23, 0, 24, 0, 27, 0, 28, 0, 29, 0, 30, 0, 31, 0 }; #endif #if YYDEBUG != 0 static const short yyrline[] = { 0, 316, 317, 323, 327, 333, 341, 342, 350, 357, 363, 369, 375, 383, 387, 394, 398, 402, 406, 410, 414, 418, 422, 426, 430, 434, 438, 442, 446, 450, 458, 466, 470, 474, 478, 482, 493, 500, 506, 513, 520, 524, 528, 534, 544, 553, 561, 565, 573, 577, 587, 591, 599, 608, 618, 626, 634, 642, 650, 658, 662, 666, 672, 676, 682, 688, 692, 698, 704, 712, 716, 720, 724, 732, 736, 740, 748, 752, 756, 760, 764, 768, 772, 776, 785, 789, 793, 797, 805, 809, 813, 817, 821, 829, 833, 837, 841, 851, 855, 859, 868, 877, 882, 886, 890, 894, 898, 902, 906, 908, 913, 917, 921, 927, 931, 935, 939, 945, 948, 952, 958, 966, 975, 976, 977, 978, 979, 980, 981, 982, 983, 984, 985, 986, 987, 988, 989, 990, 991, 992, 993, 994 }; static const char * const yytname[] = { "$","error","$illegal.","FIXME_01", "FIXME_02","FIXME_03","FIXME_04","FIXME_05","FIXME_06","FIXME_07","FIXME_08", "FIXME_09","FIXME_10","FIXME_11","FIXME_12","FIXME_13","FIXME_14","FIXME_15", "FIXME_16","FIXME_17","FIXME_18","FIXME_19","FIXME_20","FIXME_21","FIXME_22", "FIXME_24","FIXME_25","FIXME_26","FIXME_27","FIXME_28","FIXME_29","FIXME_30", "INTEGER_LITERAL","BOOLEAN_LITERAL","CHARACTER_LITERAL","FLOAT_LITERAL","GENERAL_PROCEDURE_NAME", "LOCATION_NAME","SET_LITERAL","EMPTINESS_LITERAL","CHARACTER_STRING_LITERAL", "BIT_STRING_LITERAL","TYPENAME","FIELD_NAME","'.'","';'","':'","CASE","OF","ESAC", "LOGIOR","ORIF","LOGXOR","LOGAND","ANDIF","'='","NOTEQUAL","'>'","GTR","'<'", "LEQ","IN","'+'","'-'","'*'","'/'","SLASH_SLASH","MOD","REM","NOT","POINTER", "RECEIVE","'['","']'","'('","')'","UP","IF","THEN","ELSE","FI","ELSIF","ILLEGAL_TOKEN", "NUM","PRED","SUCC","ABS","CARD","MAX_TOKEN","MIN_TOKEN","SIZE","UPPER","LOWER", "LENGTH","GDB_REGNAME","GDB_LAST","GDB_VARIABLE","GDB_ASSIGNMENT","','","start", "value","undefined_value","location","access_name","expression_list","primitive_value", "location_contents","value_name","literal","tuple","value_string_element","value_string_slice", "value_array_element","@1","value_array_slice","value_structure_field","expression_conversion", "value_procedure_call","value_built_in_routine_call","start_expression","zero_adic_operator", "parenthesised_expression","expression","conditional_expression","then_alternative", "else_alternative","sub_expression","value_case_alternative","operand_0","operand_1", "operand_2","operand_3","operand_4","operand_5","operand_6","single_assignment_action", "chill_value_built_in_routine_call","mode_argument","mode_name","upper_lower_argument", "length_argument","array_primitive_value","array_mode_name","string_mode_name", "variant_structure_mode_name","synonym_name","value_enumeration_name","value_do_with_name", "value_receive_name","string_primitive_value","start_element","left_element", "right_element","slice_size","lower_element","upper_element","first_element", "boolean_expression","case_selector_list","subexpression","case_label_specification", "buffer_location","" }; #endif static const short yyr1[] = { 0, 99, 99, 100, 100, 101, 102, 102, 103, 103, 103, 103, 103, 104, 104, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 106, 107, 107, 107, 107, 107, 108, 108, 108, 108, 108, 108, 108, 108, 109, 110, 111, 111, 113, 112, 114, 114, 115, 116, 117, 118, 119, 120, 121, 122, 122, 122, 123, 123, 124, 125, 125, 126, 127, 128, 128, 128, 128, 129, 129, 129, 130, 130, 130, 130, 130, 130, 130, 130, 131, 131, 131, 131, 132, 132, 132, 132, 132, 133, 133, 133, 133, 134, 134, 134, 135, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 137, 137, 137, 137, 138, 139, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161 }; static const short yyr2[] = { 0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 6, 6, 0, 5, 6, 6, 2, 2, 1, 1, 1, 1, 3, 1, 1, 1, 5, 9, 2, 2, 4, 1, 4, 1, 3, 3, 3, 1, 3, 3, 1, 3, 3, 3, 3, 3, 3, 3, 1, 3, 3, 3, 1, 3, 3, 3, 3, 1, 2, 2, 2, 2, 2, 1, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; static const short yydefact[] = { 0, 5, 12, 44, 54, 56, 57, 125, 126, 127, 128, 129, 36, 37, 38, 39, 35, 8, 40, 41, 42, 43, 117, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 9, 11, 1, 4, 30, 6, 99, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 3, 61, 59, 69, 73, 76, 84, 88, 93, 60, 55, 2, 0, 31, 32, 33, 34, 0, 138, 0, 30, 29, 94, 0, 95, 97, 121, 141, 98, 0, 137, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 52, 7, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 53, 48, 0, 0, 58, 0, 0, 0, 0, 0, 0, 0, 0, 0, 122, 123, 124, 0, 0, 113, 0, 0, 0, 118, 119, 0, 0, 120, 0, 100, 70, 71, 72, 74, 75, 77, 78, 79, 80, 81, 82, 83, 85, 86, 87, 89, 90, 91, 92, 134, 136, 0, 0, 0, 130, 131, 0, 0, 140, 0, 0, 139, 64, 0, 0, 0, 101, 102, 103, 104, 105, 106, 107, 108, 109, 0, 0, 0, 110, 111, 112, 0, 13, 0, 0, 45, 0, 0, 0, 0, 65, 0, 62, 0, 0, 0, 49, 0, 135, 0, 133, 0, 0, 132, 0, 0, 67, 0, 0, 114, 115, 116, 14, 50, 51, 47, 46, 0, 68, 66, 0, 63, 0, 0, 0 }; static const short yydefgoto[] = { 252, 44, 45, 46, 47, 211, 48, 49, 50, 51, 52, 53, 54, 55, 181, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 136, 195, 237, 189, 66, 67, 68, 69, 70, 71, 72, 73, 74, 148, 87, 155, 158, 76, 150, 151, 152, 77, 78, 79, 80, 81, 186, 187, 234, 231, 182, 229, 183, 95, 83, 192, 190, 92 }; static const short yypact[] = { 127, -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, -32768,-32768, 5, 495, 495, 587, 55, 311, 86, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, -32768,-32768,-32768,-32768,-32768, 28,-32768, -35,-32768,-32768, -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, -32768,-32768, -16,-32768,-32768, -38, -5, -29, -7, -14, -32768,-32768,-32768,-32768, 53, 54,-32768,-32768,-32768,-32768, 63,-32768, 81,-32768,-32768,-32768, 53,-32768, -34, -33, -32768,-32768, 64,-32768, 67, 311, 311, 311, 311, 311, 311, 311, 219, 311, 311, 311, 127,-32768,-32768,-32768, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403,-32768, 60, 2, 108,-32768, 117, 4, 72, 73, 74, 75, 76, 77, 79,-32768,-32768,-32768, 80, 82, 53, 84, 96, 97,-32768, 53, 98, 100,-32768, 101,-32768, -5, -5, -5, -29, -29, -7, -7, -7, -7, -7, -7, -7, -14, -14, -14,-32768,-32768,-32768,-32768,-32768,-32768, 311, 110, 104,-32768,-32768, -18, 126,-32768, 109, 136, -32768,-32768, 117, 86, 103,-32768,-32768,-32768,-32768,-32768, -32768,-32768,-32768,-32768, 311, 311, 311,-32768,-32768,-32768, -64,-32768, 161, 164,-32768, 164, 166, 113, 311,-32768, 67,-32768, 112, 114, -60,-32768, 311,-32768, 118,-32768, 119, 120,-32768, 125, 311,-32768, 143, 4,-32768,-32768, -32768,-32768,-32768,-32768,-32768,-32768, 129,-32768,-32768, 154, -32768, 205, 206,-32768 }; static const short yypgoto[] = {-32768, 102,-32768, -20,-32768, 1, 211,-32768,-32768, 175,-32768, -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, -32768, -23, -28,-32768, 18, 3, 8,-32768,-32768, -46, -27, -75, -44, -66, 65,-32768,-32768,-32768, 7, 135, -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, -32768,-32768,-32768, 26,-32768,-32768,-32768, 51,-32768, 56, -32768,-32768 }; #define YYLAST 683 static const short yytable[] = { 93, 85, 85, 85, 84, 84, 89, 75, 108, -30, 108, 226, 111, 112, 113, 241, 12, 13, 14, 15, 184, 185, 18, 19, 20, 21, 116, 117, 118, 119, 120, 121, 122, 82, 227, 109, -30, 109, 227, -121, -30, 165, 166, 167, 168, 169, 170, 171, 114, 115, 126, 127, 130, 128, 129, 123, 124, 215, 216, 125, 175, 176, 177, 178, 130, 160, 161, 162, 137, 138, 139, 140, 141, 142, 143, 147, 153, 153, 157, 172, 173, 174, 179, 193, 180, 194, 91, 163, 164, 86, 88, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, 149, 154, 154, 94, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 130, 28, 131, 133, 1, 130, 2, 3, 4, 5, 6, 132, 188, 134, 7, 8, 9, 10, 11, 135, 191, 196, 197, 198, 199, 200, 201, 212, 202, 203, 213, 204, 205, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 206, 207, 217, 208, 23, 209, 210, 223, 224, 212, 214, 218, 219, 222, 228, 230, 233, 239, 248, 240, 24, 236, 235, 243, 244, 245, 25, 26, 27, 242, 246, 28, 250, 251, 29, 253, 254, 236, 225, 159, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 2, 3, 4, 5, 6, 144, 145, 146, 7, 8, 9, 10, 11, 90, 110, 238, 156, 249, 232, 247, 0, 221, 0, 0, 0, 220, 0, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 0, 0, 0, 0, 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, 25, 26, 27, 0, 0, 28, 0, 0, 29, 0, 0, 0, 0, 0, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 2, 3, 4, 5, 6, 0, 0, 0, 7, 8, 9, 10, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 0, 0, 0, 0, 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, 25, 26, 27, 0, 0, 28, 0, 0, 29, 0, 0, 0, 0, 0, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 2, 3, 4, 5, 6, 0, 0, 0, 7, 8, 9, 10, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, 25, 26, 27, 0, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 2, 3, 4, 5, 6, 0, 0, 0, 7, 8, 9, 10, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 26, 27, 0, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 2, 3, 4, 5, 6, 0, 0, 0, 7, 8, 9, 10, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43 }; static const short yycheck[] = { 28, 24, 25, 26, 24, 25, 26, 0, 43, 43, 43, 75, 50, 51, 52, 75, 32, 33, 34, 35, 18, 19, 38, 39, 40, 41, 55, 56, 57, 58, 59, 60, 61, 28, 98, 70, 70, 70, 98, 74, 74, 116, 117, 118, 119, 120, 121, 122, 53, 54, 64, 65, 75, 67, 68, 62, 63, 75, 76, 66, 126, 127, 128, 129, 87, 111, 112, 113, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 123, 124, 125, 22, 79, 24, 81, 31, 114, 115, 24, 25, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 103, 104, 105, 27, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 97, 149, 74, 74, 48, 3, 154, 5, 6, 7, 8, 9, 74, 30, 75, 13, 14, 15, 16, 17, 78, 29, 75, 75, 75, 75, 75, 75, 181, 75, 75, 46, 75, 74, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 74, 74, 46, 75, 47, 75, 75, 205, 206, 207, 76, 72, 46, 80, 23, 21, 20, 75, 45, 75, 63, 219, 79, 75, 75, 75, 69, 70, 71, 227, 75, 74, 73, 49, 77, 0, 0, 235, 207, 107, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 26, 63, 221, 105, 238, 216, 235, -1, 194, -1, -1, -1, 193, -1, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, -1, -1, -1, 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 63, -1, -1, -1, -1, -1, 69, 70, 71, -1, -1, 74, -1, -1, 77, -1, -1, -1, -1, -1, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 5, 6, 7, 8, 9, -1, -1, -1, 13, 14, 15, 16, 17, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, -1, -1, -1, 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 63, -1, -1, -1, -1, -1, 69, 70, 71, -1, -1, 74, -1, -1, 77, -1, -1, -1, -1, -1, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 5, 6, 7, 8, 9, -1, -1, -1, 13, 14, 15, 16, 17, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 63, -1, -1, -1, -1, -1, 69, 70, 71, -1, -1, 74, -1, -1, -1, -1, -1, -1, -1, -1, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 5, 6, 7, 8, 9, -1, -1, -1, 13, 14, 15, 16, 17, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 70, 71, -1, -1, 74, -1, -1, -1, -1, -1, -1, -1, -1, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 5, 6, 7, 8, 9, -1, -1, -1, 13, 14, 15, 16, 17, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, -1, -1, -1, -1, -1, -1, -1, -1, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96 }; /* -*-C-*- Note some compilers choke on comments on `#line' lines. */ #line 3 "/usr/unsupported/lib/bison.simple" /* Skeleton output parser for bison, Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman 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 1, 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef alloca #ifdef __GNUC__ #define alloca __builtin_alloca #else /* not GNU C. */ #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) #include #else /* not sparc */ #if defined (MSDOS) && !defined (__TURBOC__) #else /* not MSDOS, or __TURBOC__ */ #if defined(_AIX) #pragma alloca #else /* not MSDOS, __TURBOC__, or _AIX */ #ifdef __hpux #ifdef __cplusplus extern "C" { void *alloca (unsigned int); }; #else /* not __cplusplus */ void *alloca (); #endif /* not __cplusplus */ #endif /* __hpux */ #endif /* not _AIX */ #endif /* not MSDOS, or __TURBOC__ */ #endif /* not sparc. */ #endif /* not GNU C. */ #endif /* alloca not defined. */ /* This is the parser code that is written into each bison parser when the %semantic_parser declaration is not specified in the grammar. It was written by Richard Stallman by simplifying the hairy parser used when %semantic_parser is specified. */ /* Note: there must be only one dollar sign in this file. It is replaced by the list of actions, each action as one case of the switch. */ #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY -2 #define YYEOF 0 #define YYACCEPT return(0) #define YYABORT return(1) #define YYERROR goto yyerrlab1 /* Like YYERROR except do call yyerror. This remains here temporarily to ease the transition to the new meaning of YYERROR, for GCC. Once GCC version 2 has supplanted version 1, this can go. */ #define YYFAIL goto yyerrlab #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(token, value) \ do \ if (yychar == YYEMPTY && yylen == 1) \ { yychar = (token), yylval = (value); \ yychar1 = YYTRANSLATE (yychar); \ YYPOPSTACK; \ goto yybackup; \ } \ else \ { yyerror ("syntax error: cannot back up"); YYERROR; } \ while (0) #define YYTERROR 1 #define YYERRCODE 256 #ifndef YYPURE #define YYLEX yylex() #endif #ifdef YYPURE #ifdef YYLSP_NEEDED #define YYLEX yylex(&yylval, &yylloc) #else #define YYLEX yylex(&yylval) #endif #endif /* If nonreentrant, generate the variables here */ #ifndef YYPURE int yychar; /* the lookahead symbol */ YYSTYPE yylval; /* the semantic value of the */ /* lookahead symbol */ #ifdef YYLSP_NEEDED YYLTYPE yylloc; /* location data for the lookahead */ /* symbol */ #endif int yynerrs; /* number of parse errors so far */ #endif /* not YYPURE */ #if YYDEBUG != 0 int yydebug; /* nonzero means print parse trace */ /* Since this is uninitialized, it does not stop multiple parsers from coexisting. */ #endif /* YYINITDEPTH indicates the initial size of the parser's stacks */ #ifndef YYINITDEPTH #define YYINITDEPTH 200 #endif /* YYMAXDEPTH is the maximum size the stacks can grow to (effective only if the built-in stack extension method is used). */ #if YYMAXDEPTH == 0 #undef YYMAXDEPTH #endif #ifndef YYMAXDEPTH #define YYMAXDEPTH 10000 #endif /* Prevent warning if -Wstrict-prototypes. */ #ifdef __GNUC__ int yyparse (void); #endif #if __GNUC__ > 1 /* GNU C and GNU C++ define this. */ #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT) #else /* not GNU C or C++ */ #ifndef __cplusplus /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (from, to, count) char *from; char *to; int count; { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #else /* __cplusplus */ /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (char *from, char *to, int count) { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #endif #endif #line 184 "/usr/unsupported/lib/bison.simple" int yyparse() { register int yystate; register int yyn; register short *yyssp; register YYSTYPE *yyvsp; int yyerrstatus; /* number of tokens to shift before error messages enabled */ int yychar1 = 0; /* lookahead token as an internal (translated) token number */ short yyssa[YYINITDEPTH]; /* the state stack */ YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */ short *yyss = yyssa; /* refer to the stacks thru separate pointers */ YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to xreallocate them elsewhere */ #ifdef YYLSP_NEEDED YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */ YYLTYPE *yyls = yylsa; YYLTYPE *yylsp; #define YYPOPSTACK (yyvsp--, yyssp--, yylsp--) #else #define YYPOPSTACK (yyvsp--, yyssp--) #endif int yystacksize = YYINITDEPTH; #ifdef YYPURE int yychar; YYSTYPE yylval; int yynerrs; #ifdef YYLSP_NEEDED YYLTYPE yylloc; #endif #endif YYSTYPE yyval; /* the variable used to return */ /* semantic values from the action */ /* routines */ int yylen; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Starting parse\n"); #endif yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ /* Initialize stack pointers. Waste one element of value and location stack so that they stay on the same level as the state stack. The wasted elements are never initialized. */ yyssp = yyss - 1; yyvsp = yyvs; #ifdef YYLSP_NEEDED yylsp = yyls; #endif /* Push a new state, which is found in yystate . */ /* In all cases, when you get here, the value and location stacks have just been pushed. so pushing a state here evens the stacks. */ yynewstate: *++yyssp = yystate; if (yyssp >= yyss + yystacksize - 1) { /* Give user a chance to xreallocate the stack */ /* Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; short *yyss1 = yyss; #ifdef YYLSP_NEEDED YYLTYPE *yyls1 = yyls; #endif /* Get the current used size of the three stacks, in elements. */ int size = yyssp - yyss + 1; #ifdef yyoverflow /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. */ #ifdef YYLSP_NEEDED /* This used to be a conditional around just the two extra args, but that might be undefined if yyoverflow is a macro. */ yyoverflow("parser stack overflow", &yyss1, size * sizeof (*yyssp), &yyvs1, size * sizeof (*yyvsp), &yyls1, size * sizeof (*yylsp), &yystacksize); #else yyoverflow("parser stack overflow", &yyss1, size * sizeof (*yyssp), &yyvs1, size * sizeof (*yyvsp), &yystacksize); #endif yyss = yyss1; yyvs = yyvs1; #ifdef YYLSP_NEEDED yyls = yyls1; #endif #else /* no yyoverflow */ /* Extend the stack our own way. */ if (yystacksize >= YYMAXDEPTH) { yyerror("parser stack overflow"); return 2; } yystacksize *= 2; if (yystacksize > YYMAXDEPTH) yystacksize = YYMAXDEPTH; yyss = (short *) alloca (yystacksize * sizeof (*yyssp)); __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp)); yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp)); __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp)); #ifdef YYLSP_NEEDED yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp)); __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp)); #endif #endif /* no yyoverflow */ yyssp = yyss + size - 1; yyvsp = yyvs + size - 1; #ifdef YYLSP_NEEDED yylsp = yyls + size - 1; #endif #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Stack size increased to %d\n", yystacksize); #endif if (yyssp >= yyss + yystacksize - 1) YYABORT; } #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Entering state %d\n", yystate); #endif goto yybackup; yybackup: /* Do appropriate processing given the current state. */ /* Read a lookahead token if we need one and don't already have one. */ /* yyresume: */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; if (yyn == YYFLAG) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ /* yychar is either YYEMPTY or YYEOF or a valid token in external form. */ if (yychar == YYEMPTY) { #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Reading a token: "); #endif yychar = YYLEX; } /* Convert token to internal form (in yychar1) for indexing tables with */ if (yychar <= 0) /* This means end of input. */ { yychar1 = 0; yychar = YYEOF; /* Don't call YYLEX any more */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Now at end of input.\n"); #endif } else { yychar1 = YYTRANSLATE(yychar); #if YYDEBUG != 0 if (yydebug) { fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]); /* Give the individual parser a way to print the precise meaning of a token, for further debugging info. */ #ifdef YYPRINT YYPRINT (stderr, yychar, yylval); #endif fprintf (stderr, ")\n"); } #endif } yyn += yychar1; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1) goto yydefault; yyn = yytable[yyn]; /* yyn is what to do for this token type in this state. Negative => reduce, -yyn is rule number. Positive => shift, yyn is new state. New state is final state => don't bother to shift, just return success. 0, or most negative number => error. */ if (yyn < 0) { if (yyn == YYFLAG) goto yyerrlab; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrlab; if (yyn == YYFINAL) YYACCEPT; /* Shift the lookahead token. */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]); #endif /* Discard the token being shifted unless it is eof. */ if (yychar != YYEOF) yychar = YYEMPTY; *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif /* count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; yystate = yyn; goto yynewstate; /* Do the default action for the current state. */ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; /* Do a reduction. yyn is the number of a rule to reduce with. */ yyreduce: yylen = yyr2[yyn]; if (yylen > 0) yyval = yyvsp[1-yylen]; /* implement default value of the action */ #if YYDEBUG != 0 if (yydebug) { int i; fprintf (stderr, "Reducing via rule %d (line %d), ", yyn, yyrline[yyn]); /* Print the symbols being reduced, and their result. */ for (i = yyprhs[yyn]; yyrhs[i] > 0; i++) fprintf (stderr, "%s ", yytname[yyrhs[i]]); fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]); } #endif switch (yyn) { case 1: #line 316 "./ch-exp.y" { ; break;} case 2: #line 318 "./ch-exp.y" { write_exp_elt_opcode(OP_TYPE); write_exp_elt_type(yyvsp[0].tsym.type); write_exp_elt_opcode(OP_TYPE);; break;} case 3: #line 324 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 4: #line 328 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 5: #line 334 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 7: #line 343 "./ch-exp.y" { write_exp_elt_opcode (UNOP_IND); ; break;} case 8: #line 351 "./ch-exp.y" { write_exp_elt_opcode (OP_VAR_VALUE); write_exp_elt_block (NULL); write_exp_elt_sym (yyvsp[0].ssym.sym); write_exp_elt_opcode (OP_VAR_VALUE); ; break;} case 9: #line 358 "./ch-exp.y" { write_exp_elt_opcode (OP_LAST); write_exp_elt_longcst (yyvsp[0].lval); write_exp_elt_opcode (OP_LAST); ; break;} case 10: #line 364 "./ch-exp.y" { write_exp_elt_opcode (OP_REGISTER); write_exp_elt_longcst (yyvsp[0].lval); write_exp_elt_opcode (OP_REGISTER); ; break;} case 11: #line 370 "./ch-exp.y" { write_exp_elt_opcode (OP_INTERNALVAR); write_exp_elt_intern (yyvsp[0].ivar); write_exp_elt_opcode (OP_INTERNALVAR); ; break;} case 12: #line 376 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 13: #line 384 "./ch-exp.y" { arglist_len = 1; ; break;} case 14: #line 388 "./ch-exp.y" { arglist_len++; ; break;} case 15: #line 395 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 16: #line 399 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 17: #line 403 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 18: #line 407 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 19: #line 411 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 20: #line 415 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 21: #line 419 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 22: #line 423 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 23: #line 427 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 24: #line 431 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 25: #line 435 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 26: #line 439 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 27: #line 443 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 28: #line 447 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 29: #line 451 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 30: #line 459 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 31: #line 467 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 32: #line 471 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 33: #line 475 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 34: #line 479 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 35: #line 483 "./ch-exp.y" { write_exp_elt_opcode (OP_VAR_VALUE); write_exp_elt_block (NULL); write_exp_elt_sym (yyvsp[0].ssym.sym); write_exp_elt_opcode (OP_VAR_VALUE); ; break;} case 36: #line 494 "./ch-exp.y" { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (yyvsp[0].typed_val.type); write_exp_elt_longcst ((LONGEST) (yyvsp[0].typed_val.val)); write_exp_elt_opcode (OP_LONG); ; break;} case 37: #line 501 "./ch-exp.y" { write_exp_elt_opcode (OP_BOOL); write_exp_elt_longcst ((LONGEST) yyvsp[0].ulval); write_exp_elt_opcode (OP_BOOL); ; break;} case 38: #line 507 "./ch-exp.y" { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (yyvsp[0].typed_val.type); write_exp_elt_longcst ((LONGEST) (yyvsp[0].typed_val.val)); write_exp_elt_opcode (OP_LONG); ; break;} case 39: #line 514 "./ch-exp.y" { write_exp_elt_opcode (OP_DOUBLE); write_exp_elt_type (builtin_type_double); write_exp_elt_dblcst (yyvsp[0].dval); write_exp_elt_opcode (OP_DOUBLE); ; break;} case 40: #line 521 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 41: #line 525 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 42: #line 529 "./ch-exp.y" { write_exp_elt_opcode (OP_STRING); write_exp_string (yyvsp[0].sval); write_exp_elt_opcode (OP_STRING); ; break;} case 43: #line 535 "./ch-exp.y" { write_exp_elt_opcode (OP_BITSTRING); write_exp_bitstring (yyvsp[0].sval); write_exp_elt_opcode (OP_BITSTRING); ; break;} case 44: #line 545 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 45: #line 554 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 46: #line 562 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 47: #line 566 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 48: #line 576 "./ch-exp.y" { start_arglist (); ; break;} case 49: #line 578 "./ch-exp.y" { write_exp_elt_opcode (MULTI_SUBSCRIPT); write_exp_elt_longcst ((LONGEST) end_arglist ()); write_exp_elt_opcode (MULTI_SUBSCRIPT); ; break;} case 50: #line 588 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 51: #line 592 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 52: #line 600 "./ch-exp.y" { write_exp_elt_opcode (STRUCTOP_STRUCT); write_exp_string (yyvsp[0].sval); write_exp_elt_opcode (STRUCTOP_STRUCT); ; break;} case 53: #line 609 "./ch-exp.y" { write_exp_elt_opcode (UNOP_CAST); write_exp_elt_type (yyvsp[-1].tsym.type); write_exp_elt_opcode (UNOP_CAST); ; break;} case 54: #line 619 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 55: #line 627 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 56: #line 635 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 57: #line 643 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 58: #line 651 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 59: #line 659 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 60: #line 663 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 61: #line 667 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 62: #line 673 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 63: #line 677 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 64: #line 683 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 65: #line 689 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 66: #line 693 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 67: #line 699 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 68: #line 705 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 69: #line 713 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 70: #line 717 "./ch-exp.y" { write_exp_elt_opcode (BINOP_BITWISE_IOR); ; break;} case 71: #line 721 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 72: #line 725 "./ch-exp.y" { write_exp_elt_opcode (BINOP_BITWISE_XOR); ; break;} case 73: #line 733 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 74: #line 737 "./ch-exp.y" { write_exp_elt_opcode (BINOP_BITWISE_AND); ; break;} case 75: #line 741 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 76: #line 749 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 77: #line 753 "./ch-exp.y" { write_exp_elt_opcode (BINOP_EQUAL); ; break;} case 78: #line 757 "./ch-exp.y" { write_exp_elt_opcode (BINOP_NOTEQUAL); ; break;} case 79: #line 761 "./ch-exp.y" { write_exp_elt_opcode (BINOP_GTR); ; break;} case 80: #line 765 "./ch-exp.y" { write_exp_elt_opcode (BINOP_GEQ); ; break;} case 81: #line 769 "./ch-exp.y" { write_exp_elt_opcode (BINOP_LESS); ; break;} case 82: #line 773 "./ch-exp.y" { write_exp_elt_opcode (BINOP_LEQ); ; break;} case 83: #line 777 "./ch-exp.y" { write_exp_elt_opcode (BINOP_IN); ; break;} case 84: #line 786 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 85: #line 790 "./ch-exp.y" { write_exp_elt_opcode (BINOP_ADD); ; break;} case 86: #line 794 "./ch-exp.y" { write_exp_elt_opcode (BINOP_SUB); ; break;} case 87: #line 798 "./ch-exp.y" { write_exp_elt_opcode (BINOP_CONCAT); ; break;} case 88: #line 806 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 89: #line 810 "./ch-exp.y" { write_exp_elt_opcode (BINOP_MUL); ; break;} case 90: #line 814 "./ch-exp.y" { write_exp_elt_opcode (BINOP_DIV); ; break;} case 91: #line 818 "./ch-exp.y" { write_exp_elt_opcode (BINOP_MOD); ; break;} case 92: #line 822 "./ch-exp.y" { write_exp_elt_opcode (BINOP_REM); ; break;} case 93: #line 830 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 94: #line 834 "./ch-exp.y" { write_exp_elt_opcode (UNOP_NEG); ; break;} case 95: #line 838 "./ch-exp.y" { write_exp_elt_opcode (UNOP_LOGICAL_NOT); ; break;} case 96: #line 844 "./ch-exp.y" { write_exp_elt_opcode (BINOP_CONCAT); ; break;} case 97: #line 852 "./ch-exp.y" { write_exp_elt_opcode (UNOP_ADDR); ; break;} case 98: #line 856 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 99: #line 860 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 100: #line 870 "./ch-exp.y" { write_exp_elt_opcode (BINOP_ASSIGN); ; break;} case 101: #line 879 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 102: #line 883 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 103: #line 887 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 104: #line 891 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 105: #line 895 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 106: #line 899 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 107: #line 903 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 108: #line 907 "./ch-exp.y" { write_exp_elt_opcode (UNOP_SIZEOF); ; break;} case 109: #line 909 "./ch-exp.y" { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_int); write_exp_elt_longcst ((LONGEST) TYPE_LENGTH (yyvsp[-1].tval)); write_exp_elt_opcode (OP_LONG); ; break;} case 110: #line 914 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 111: #line 918 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 112: #line 922 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 113: #line 928 "./ch-exp.y" { yyval.tval = yyvsp[0].tsym.type; ; break;} case 114: #line 932 "./ch-exp.y" { yyval.tval = 0; /* FIXME */ ; break;} case 115: #line 936 "./ch-exp.y" { yyval.tval = 0; /* FIXME */ ; break;} case 116: #line 940 "./ch-exp.y" { yyval.tval = 0; /* FIXME */ ; break;} case 118: #line 949 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 119: #line 953 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 120: #line 959 "./ch-exp.y" { yyval.voidval = 0; /* FIXME */ ; break;} case 121: #line 967 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 122: #line 975 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 123: #line 976 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 124: #line 977 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 125: #line 978 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 126: #line 979 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 127: #line 980 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 128: #line 981 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 129: #line 982 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 130: #line 983 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 131: #line 984 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 132: #line 985 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 133: #line 986 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 134: #line 987 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 135: #line 988 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 136: #line 989 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 137: #line 990 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 138: #line 991 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 139: #line 992 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 140: #line 993 "./ch-exp.y" { yyval.voidval = 0; ; break;} case 141: #line 994 "./ch-exp.y" { yyval.voidval = 0; ; break;} } /* the action file gets copied in in place of this dollarsign */ #line 465 "/usr/unsupported/lib/bison.simple" yyvsp -= yylen; yyssp -= yylen; #ifdef YYLSP_NEEDED yylsp -= yylen; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif *++yyvsp = yyval; #ifdef YYLSP_NEEDED yylsp++; if (yylen == 0) { yylsp->first_line = yylloc.first_line; yylsp->first_column = yylloc.first_column; yylsp->last_line = (yylsp-1)->last_line; yylsp->last_column = (yylsp-1)->last_column; yylsp->text = 0; } else { yylsp->last_line = (yylsp+yylen-1)->last_line; yylsp->last_column = (yylsp+yylen-1)->last_column; } #endif /* Now "shift" the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTBASE] + *yyssp; if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTBASE]; goto yynewstate; yyerrlab: /* here on detecting error */ if (! yyerrstatus) /* If not already recovering from an error, report this error. */ { ++yynerrs; #ifdef YYERROR_VERBOSE yyn = yypact[yystate]; if (yyn > YYFLAG && yyn < YYLAST) { int size = 0; char *msg; int x, count; count = 0; /* Start X at -yyn if nec to avoid negative indexes in yycheck. */ for (x = (yyn < 0 ? -yyn : 0); x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) size += strlen(yytname[x]) + 15, count++; msg = (char *) xmalloc(size + 15); if (msg != 0) { strcpy(msg, "parse error"); if (count < 5) { count = 0; for (x = (yyn < 0 ? -yyn : 0); x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) { strcat(msg, count == 0 ? ", expecting `" : " or `"); strcat(msg, yytname[x]); strcat(msg, "'"); count++; } } yyerror(msg); free(msg); } else yyerror ("parse error; also virtual memory exceeded"); } else #endif /* YYERROR_VERBOSE */ yyerror("parse error"); } goto yyerrlab1; yyerrlab1: /* here on error raised explicitly by an action */ if (yyerrstatus == 3) { /* if just tried and failed to reuse lookahead token after an error, discard it. */ /* return failure if at end of input */ if (yychar == YYEOF) YYABORT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]); #endif yychar = YYEMPTY; } /* Else will try to reuse lookahead token after shifting the error token. */ yyerrstatus = 3; /* Each real token shifted decrements this */ goto yyerrhandle; yyerrdefault: /* current state does not do anything special for the error token. */ #if 0 /* This is wrong; only states that explicitly want error tokens should shift them. */ yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/ if (yyn) goto yydefault; #endif yyerrpop: /* pop the current state because it cannot handle the error token */ if (yyssp == yyss) YYABORT; yyvsp--; yystate = *--yyssp; #ifdef YYLSP_NEEDED yylsp--; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "Error: state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif yyerrhandle: yyn = yypact[yystate]; if (yyn == YYFLAG) goto yyerrdefault; yyn += YYTERROR; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR) goto yyerrdefault; yyn = yytable[yyn]; if (yyn < 0) { if (yyn == YYFLAG) goto yyerrpop; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrpop; if (yyn == YYFINAL) YYACCEPT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting error token, "); #endif *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif yystate = yyn; goto yynewstate; } #line 996 "./ch-exp.y" /* Implementation of a dynamically expandable buffer for processing input characters acquired through lexptr and building a value to return in yylval. */ static char *tempbuf; /* Current buffer contents */ static int tempbufsize; /* Size of allocated buffer */ static int tempbufindex; /* Current index into buffer */ #define GROWBY_MIN_SIZE 64 /* Minimum amount to grow buffer by */ #define CHECKBUF(size) \ do { \ if (tempbufindex + (size) >= tempbufsize) \ { \ growbuf_by_size (size); \ } \ } while (0); /* Grow the static temp buffer if necessary, including allocating the first one on demand. */ static void growbuf_by_size (count) int count; { int growby; growby = max (count, GROWBY_MIN_SIZE); tempbufsize += growby; if (tempbuf == NULL) { tempbuf = (char *) xmalloc (tempbufsize); } else { tempbuf = (char *) xrealloc (tempbuf, tempbufsize); } } /* Try to consume a simple name string token. If successful, returns a pointer to a nullbyte terminated copy of the name that can be used in symbol table lookups. If not successful, returns NULL. */ static char * match_simple_name_string () { char *tokptr = lexptr; if (isalpha (*tokptr) || *tokptr == '_') { char *result; do { tokptr++; } while (isalnum (*tokptr) || (*tokptr == '_')); yylval.sval.ptr = lexptr; yylval.sval.length = tokptr - lexptr; lexptr = tokptr; result = copy_name (yylval.sval); return result; } return (NULL); } /* Start looking for a value composed of valid digits as set by the base in use. Note that '_' characters are valid anywhere, in any quantity, and are simply ignored. Since we must find at least one valid digit, or reject this token as an integer literal, we keep track of how many digits we have encountered. */ static int decode_integer_value (base, tokptrptr, ivalptr) int base; char **tokptrptr; int *ivalptr; { char *tokptr = *tokptrptr; int temp; int digits = 0; while (*tokptr != '\0') { temp = *tokptr; if (isupper (temp)) temp = tolower (temp); tokptr++; switch (temp) { case '_': continue; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': temp -= '0'; break; case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': temp -= 'a'; temp += 10; break; default: temp = base; break; } if (temp < base) { digits++; *ivalptr *= base; *ivalptr += temp; } else { /* Found something not in domain for current base. */ tokptr--; /* Unconsume what gave us indigestion. */ break; } } /* If we didn't find any digits, then we don't have a valid integer value, so reject the entire token. Otherwise, update the lexical scan pointer, and return non-zero for success. */ if (digits == 0) { return (0); } else { *tokptrptr = tokptr; return (1); } } static int decode_integer_literal (valptr, tokptrptr) int *valptr; char **tokptrptr; { char *tokptr = *tokptrptr; int base = 0; int ival = 0; int explicit_base = 0; /* Look for an explicit base specifier, which is optional. */ switch (*tokptr) { case 'd': case 'D': explicit_base++; base = 10; tokptr++; break; case 'b': case 'B': explicit_base++; base = 2; tokptr++; break; case 'h': case 'H': explicit_base++; base = 16; tokptr++; break; case 'o': case 'O': explicit_base++; base = 8; tokptr++; break; default: base = 10; break; } /* If we found an explicit base ensure that the character after the explicit base is a single quote. */ if (explicit_base && (*tokptr++ != '\'')) { return (0); } /* Attempt to decode whatever follows as an integer value in the indicated base, updating the token pointer in the process and computing the value into ival. Also, if we have an explicit base, then the next character must not be a single quote, or we have a bitstring literal, so reject the entire token in this case. Otherwise, update the lexical scan pointer, and return non-zero for success. */ if (!decode_integer_value (base, &tokptr, &ival)) { return (0); } else if (explicit_base && (*tokptr == '\'')) { return (0); } else { *valptr = ival; *tokptrptr = tokptr; return (1); } } /* If it wasn't for the fact that floating point values can contain '_' characters, we could just let strtod do all the hard work by letting it try to consume as much of the current token buffer as possible and find a legal conversion. Unfortunately we need to filter out the '_' characters before calling strtod, which we do by copying the other legal chars to a local buffer to be converted. However since we also need to keep track of where the last unconsumed character in the input buffer is, we have transfer only as many characters as may compose a legal floating point value. */ static int match_float_literal () { char *tokptr = lexptr; char *buf; char *copy; double dval; extern double strtod (); /* Make local buffer in which to build the string to convert. This is required because underscores are valid in chill floating point numbers but not in the string passed to strtod to convert. The string will be no longer than our input string. */ copy = buf = (char *) alloca (strlen (tokptr) + 1); /* Transfer all leading digits to the conversion buffer, discarding any underscores. */ while (isdigit (*tokptr) || *tokptr == '_') { if (*tokptr != '_') { *copy++ = *tokptr; } tokptr++; } /* Now accept either a '.', or one of [eEdD]. Dot is legal regardless of whether we found any leading digits, and we simply accept it and continue on to look for the fractional part and/or exponent. One of [eEdD] is legal only if we have seen digits, and means that there is no fractional part. If we find neither of these, then this is not a floating point number, so return failure. */ switch (*tokptr++) { case '.': /* Accept and then look for fractional part and/or exponent. */ *copy++ = '.'; break; case 'e': case 'E': case 'd': case 'D': if (copy == buf) { return (0); } *copy++ = 'e'; goto collect_exponent; break; default: return (0); break; } /* We found a '.', copy any fractional digits to the conversion buffer, up to the first nondigit, non-underscore character. */ while (isdigit (*tokptr) || *tokptr == '_') { if (*tokptr != '_') { *copy++ = *tokptr; } tokptr++; } /* Look for an exponent, which must start with one of [eEdD]. If none is found, jump directly to trying to convert what we have collected so far. */ switch (*tokptr) { case 'e': case 'E': case 'd': case 'D': *copy++ = 'e'; tokptr++; break; default: goto convert_float; break; } /* Accept an optional '-' or '+' following one of [eEdD]. */ collect_exponent: if (*tokptr == '+' || *tokptr == '-') { *copy++ = *tokptr++; } /* Now copy an exponent into the conversion buffer. Note that at the moment underscores are *not* allowed in exponents. */ while (isdigit (*tokptr)) { *copy++ = *tokptr++; } /* If we transfered any chars to the conversion buffer, try to interpret its contents as a floating point value. If any characters remain, then we must not have a valid floating point string. */ convert_float: *copy = '\0'; if (copy != buf) { dval = strtod (buf, ©); if (*copy == '\0') { yylval.dval = dval; lexptr = tokptr; return (FLOAT_LITERAL); } } return (0); } /* Recognize a string literal. A string literal is a sequence of characters enclosed in matching single or double quotes, except that a single character inside single quotes is a character literal, which we reject as a string literal. To embed the terminator character inside a string, it is simply doubled (I.E. "this""is""one""string") */ static int match_string_literal () { char *tokptr = lexptr; for (tempbufindex = 0, tokptr++; *tokptr != '\0'; tokptr++) { CHECKBUF (1); if (*tokptr == *lexptr) { if (*(tokptr + 1) == *lexptr) { tokptr++; } else { break; } } tempbuf[tempbufindex++] = *tokptr; } if (*tokptr == '\0' /* no terminator */ || (tempbufindex == 1 && *tokptr == '\'')) /* char literal */ { return (0); } else { tempbuf[tempbufindex] = '\0'; yylval.sval.ptr = tempbuf; yylval.sval.length = tempbufindex; lexptr = ++tokptr; return (CHARACTER_STRING_LITERAL); } } /* Recognize a character literal. A character literal is single character or a control sequence, enclosed in single quotes. A control sequence is a comma separated list of one or more integer literals, enclosed in parenthesis and introduced with a circumflex character. EX: 'a' '^(7)' '^(7,8)' As a GNU chill extension, the syntax C'xx' is also recognized as a character literal, where xx is a hex value for the character. Note that more than a single character, enclosed in single quotes, is a string literal. Also note that the control sequence form is not in GNU Chill since it is ambiguous with the string literal form using single quotes. I.E. is '^(7)' a character literal or a string literal. In theory it it possible to tell by context, but GNU Chill doesn't accept the control sequence form, so neither do we (for now the code is disabled). Returns CHARACTER_LITERAL if a match is found. */ static int match_character_literal () { char *tokptr = lexptr; int ival = 0; if ((*tokptr == 'c' || *tokptr == 'C') && (*(tokptr + 1) == '\'')) { /* We have a GNU chill extension form, so skip the leading "C'", decode the hex value, and then ensure that we have a trailing single quote character. */ tokptr += 2; if (!decode_integer_value (16, &tokptr, &ival) || (*tokptr != '\'')) { return (0); } tokptr++; } else if (*tokptr == '\'') { tokptr++; /* Determine which form we have, either a control sequence or the single character form. */ if ((*tokptr == '^') && (*(tokptr + 1) == '(')) { #if 0 /* Disable, see note above. -fnf */ /* Match and decode a control sequence. Return zero if we don't find a valid integer literal, or if the next unconsumed character after the integer literal is not the trailing ')'. FIXME: We currently don't handle the multiple integer literal form. */ tokptr += 2; if (!decode_integer_literal (&ival, &tokptr) || (*tokptr++ != ')')) { return (0); } #else return (0); #endif } else { ival = *tokptr++; } /* The trailing quote has not yet been consumed. If we don't find it, then we have no match. */ if (*tokptr++ != '\'') { return (0); } } else { /* Not a character literal. */ return (0); } yylval.typed_val.val = ival; yylval.typed_val.type = builtin_type_chill_char; lexptr = tokptr; return (CHARACTER_LITERAL); } /* Recognize an integer literal, as specified in Z.200 sec 5.2.4.2. Note that according to 5.2.4.2, a single "_" is also a valid integer literal, however GNU-chill requires there to be at least one "digit" in any integer literal. */ static int match_integer_literal () { char *tokptr = lexptr; int ival; if (!decode_integer_literal (&ival, &tokptr)) { return (0); } else { yylval.typed_val.val = ival; yylval.typed_val.type = builtin_type_int; lexptr = tokptr; return (INTEGER_LITERAL); } } /* Recognize a bit-string literal, as specified in Z.200 sec 5.2.4.8 Note that according to 5.2.4.8, a single "_" is also a valid bit-string literal, however GNU-chill requires there to be at least one "digit" in any bit-string literal. */ static int match_bitstring_literal () { char *tokptr = lexptr; int mask; int bitoffset = 0; int bitcount = 0; int base; int digit; tempbufindex = 0; /* Look for the required explicit base specifier. */ switch (*tokptr++) { case 'b': case 'B': base = 2; break; case 'o': case 'O': base = 8; break; case 'h': case 'H': base = 16; break; default: return (0); break; } /* Ensure that the character after the explicit base is a single quote. */ if (*tokptr++ != '\'') { return (0); } while (*tokptr != '\0' && *tokptr != '\'') { digit = *tokptr; if (isupper (digit)) digit = tolower (digit); tokptr++; switch (digit) { case '_': continue; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': digit -= '0'; break; case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': digit -= 'a'; digit += 10; break; default: return (0); break; } if (digit >= base) { /* Found something not in domain for current base. */ return (0); } else { /* Extract bits from digit, starting with the msbit appropriate for the current base, and packing them into the bitstring byte, starting at the lsbit. */ for (mask = (base >> 1); mask > 0; mask >>= 1) { bitcount++; CHECKBUF (1); if (digit & mask) { tempbuf[tempbufindex] |= (1 << bitoffset); } bitoffset++; if (bitoffset == HOST_CHAR_BIT) { bitoffset = 0; tempbufindex++; } } } } /* Verify that we consumed everything up to the trailing single quote, and that we found some bits (IE not just underbars). */ if (*tokptr++ != '\'') { return (0); } else { yylval.sval.ptr = tempbuf; yylval.sval.length = bitcount; lexptr = tokptr; return (BIT_STRING_LITERAL); } } /* Recognize tokens that start with '$'. These include: $regname A native register name or a "standard register name". Return token GDB_REGNAME. $variable A convenience variable with a name chosen by the user. Return token GDB_VARIABLE. $digits Value history with index , starting from the first value which has index 1. Return GDB_LAST. $$digits Value history with index relative to the last value. I.E. $$0 is the last value, $$1 is the one previous to that, $$2 is the one previous to $$1, etc. Return token GDB_LAST. $ | $0 | $$0 The last value in the value history. Return token GDB_LAST. $$ An abbreviation for the second to the last value in the value history, I.E. $$1 Return token GDB_LAST. Note that we currently assume that register names and convenience variables follow the convention of starting with a letter or '_'. */ static int match_dollar_tokens () { char *tokptr; int regno; int namelength; int negate; int ival; /* We will always have a successful match, even if it is just for a single '$', the abbreviation for $$0. So advance lexptr. */ tokptr = ++lexptr; if (*tokptr == '_' || isalpha (*tokptr)) { /* Look for a match with a native register name, usually something like "r0" for example. */ for (regno = 0; regno < NUM_REGS; regno++) { namelength = strlen (reg_names[regno]); if (STREQN (tokptr, reg_names[regno], namelength) && !isalnum (tokptr[namelength])) { yylval.lval = regno; lexptr += namelength; return (GDB_REGNAME); } } /* Look for a match with a standard register name, usually something like "pc", which gdb always recognizes as the program counter regardless of what the native register name is. */ for (regno = 0; regno < num_std_regs; regno++) { namelength = strlen (std_regs[regno].name); if (STREQN (tokptr, std_regs[regno].name, namelength) && !isalnum (tokptr[namelength])) { yylval.lval = std_regs[regno].regnum; lexptr += namelength; return (GDB_REGNAME); } } /* Attempt to match against a convenience variable. Note that this will always succeed, because if no variable of that name already exists, the lookup_internalvar will create one for us. Also note that both lexptr and tokptr currently point to the start of the input string we are trying to match, and that we have already tested the first character for non-numeric, so we don't have to treat it specially. */ while (*tokptr == '_' || isalnum (*tokptr)) { tokptr++; } yylval.sval.ptr = lexptr; yylval.sval.length = tokptr - lexptr; yylval.ivar = lookup_internalvar (copy_name (yylval.sval)); lexptr = tokptr; return (GDB_VARIABLE); } /* Since we didn't match against a register name or convenience variable, our only choice left is a history value. */ if (*tokptr == '$') { negate = 1; ival = 1; tokptr++; } else { negate = 0; ival = 0; } /* Attempt to decode more characters as an integer value giving the index in the history list. If successful, the value will overwrite ival (currently 0 or 1), and if not, ival will be left alone, which is good since it is currently correct for the '$' or '$$' case. */ decode_integer_literal (&ival, &tokptr); yylval.lval = negate ? -ival : ival; lexptr = tokptr; return (GDB_LAST); } struct token { char *operator; int token; }; static const struct token idtokentab[] = { { "length", LENGTH }, { "lower", LOWER }, { "upper", UPPER }, { "andif", ANDIF }, { "pred", PRED }, { "succ", SUCC }, { "card", CARD }, { "size", SIZE }, { "orif", ORIF }, { "num", NUM }, { "abs", ABS }, { "max", MAX_TOKEN }, { "min", MIN_TOKEN }, { "mod", MOD }, { "rem", REM }, { "not", NOT }, { "xor", LOGXOR }, { "and", LOGAND }, { "in", IN }, { "or", LOGIOR } }; static const struct token tokentab2[] = { { ":=", GDB_ASSIGNMENT }, { "//", SLASH_SLASH }, { "->", POINTER }, { "/=", NOTEQUAL }, { "<=", LEQ }, { ">=", GTR } }; /* Read one token, getting characters through lexptr. */ /* This is where we will check to make sure that the language and the operators used are compatible. */ static int yylex () { unsigned int i; int token; char *inputname; struct symbol *sym; /* Skip over any leading whitespace. */ while (isspace (*lexptr)) { lexptr++; } /* Look for special single character cases which can't be the first character of some other multicharacter token. */ switch (*lexptr) { case '\0': return (0); case ',': case '=': case ';': case '!': case '+': case '*': case '(': case ')': case '[': case ']': return (*lexptr++); } /* Look for characters which start a particular kind of multicharacter token, such as a character literal, register name, convenience variable name, string literal, etc. */ switch (*lexptr) { case '\'': case '\"': /* First try to match a string literal, which is any sequence of characters enclosed in matching single or double quotes, except that a single character inside single quotes is a character literal, so we have to catch that case also. */ token = match_string_literal (); if (token != 0) { return (token); } if (*lexptr == '\'') { token = match_character_literal (); if (token != 0) { return (token); } } break; case 'C': case 'c': token = match_character_literal (); if (token != 0) { return (token); } break; case '$': token = match_dollar_tokens (); if (token != 0) { return (token); } break; } /* See if it is a special token of length 2. */ for (i = 0; i < sizeof (tokentab2) / sizeof (tokentab2[0]); i++) { if (STREQN (lexptr, tokentab2[i].operator, 2)) { lexptr += 2; return (tokentab2[i].token); } } /* Look for single character cases which which could be the first character of some other multicharacter token, but aren't, or we would already have found it. */ switch (*lexptr) { case '-': case ':': case '/': case '<': case '>': return (*lexptr++); } /* Look for a float literal before looking for an integer literal, so we match as much of the input stream as possible. */ token = match_float_literal (); if (token != 0) { return (token); } token = match_bitstring_literal (); if (token != 0) { return (token); } token = match_integer_literal (); if (token != 0) { return (token); } /* Try to match a simple name string, and if a match is found, then further classify what sort of name it is and return an appropriate token. Note that attempting to match a simple name string consumes the token from lexptr, so we can't back out if we later find that we can't classify what sort of name it is. */ inputname = match_simple_name_string (); if (inputname != NULL) { char *simplename = (char*) alloca (strlen (inputname)); char *dptr = simplename, *sptr = inputname; for (; *sptr; sptr++) *dptr++ = isupper (*sptr) ? tolower(*sptr) : *sptr; /* See if it is a reserved identifier. */ for (i = 0; i < sizeof (idtokentab) / sizeof (idtokentab[0]); i++) { if (STREQ (simplename, idtokentab[i].operator)) { return (idtokentab[i].token); } } /* Look for other special tokens. */ if (STREQ (simplename, "true")) { yylval.ulval = 1; return (BOOLEAN_LITERAL); } if (STREQ (simplename, "false")) { yylval.ulval = 0; return (BOOLEAN_LITERAL); } sym = lookup_symbol (inputname, expression_context_block, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (sym == NULL && strcmp (inputname, simplename) != 0) { sym = lookup_symbol (simplename, expression_context_block, VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); } if (sym != NULL) { yylval.ssym.stoken.ptr = NULL; yylval.ssym.stoken.length = 0; yylval.ssym.sym = sym; yylval.ssym.is_a_field_of_this = 0; /* FIXME, C++'ism */ switch (SYMBOL_CLASS (sym)) { case LOC_BLOCK: /* Found a procedure name. */ return (GENERAL_PROCEDURE_NAME); case LOC_STATIC: /* Found a global or local static variable. */ return (LOCATION_NAME); case LOC_REGISTER: case LOC_ARG: case LOC_REF_ARG: case LOC_REGPARM: case LOC_REGPARM_ADDR: case LOC_LOCAL: case LOC_LOCAL_ARG: case LOC_BASEREG: case LOC_BASEREG_ARG: if (innermost_block == NULL || contained_in (block_found, innermost_block)) { innermost_block = block_found; } return (LOCATION_NAME); break; case LOC_CONST: case LOC_LABEL: return (LOCATION_NAME); break; case LOC_TYPEDEF: yylval.tsym.type = SYMBOL_TYPE (sym); return TYPENAME; case LOC_UNDEF: case LOC_CONST_BYTES: case LOC_OPTIMIZED_OUT: error ("Symbol \"%s\" names no location.", inputname); break; } } else if (!have_full_symbols () && !have_partial_symbols ()) { error ("No symbol table is loaded. Use the \"file\" command."); } else { error ("No symbol \"%s\" in current context.", inputname); } } /* Catch single character tokens which are not part of some longer token. */ switch (*lexptr) { case '.': /* Not float for example. */ lexptr++; while (isspace (*lexptr)) lexptr++; inputname = match_simple_name_string (); if (!inputname) return '.'; return FIELD_NAME; } return (ILLEGAL_TOKEN); } void yyerror (msg) char *msg; { error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr); } gdb-4.13/gdb/maint.c 666 34562 1752 21620 5563752747 12612 0ustar fnfcygnus/* Support for GDB maintenance commands. Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */ #include #include "command.h" #include "gdbcmd.h" #include "symtab.h" #include "gdbtypes.h" #include "demangle.h" #include "gdbcore.h" #include "expression.h" /* For language.h */ #include "language.h" static void maintenance_command PARAMS ((char *, int)); static void maintenance_dump_me PARAMS ((char *, int)); static void maintenance_demangle PARAMS ((char *, int)); /* LOCAL FUNCTION maintenance_command -- access the maintenance subcommands SYNOPSIS void maintenance_command (char *args, int from_tty) DESCRIPTION */ static void maintenance_command (args, from_tty) char *args; int from_tty; { printf_unfiltered ("\"maintenance\" must be followed by the name of a maintenance command.\n"); help_list (maintenancelist, "maintenance ", -1, gdb_stdout); } /* ARGSUSED */ static void maintenance_dump_me (args, from_tty) char *args; int from_tty; { if (query ("Should GDB dump core? ")) { signal (SIGQUIT, SIG_DFL); kill (getpid (), SIGQUIT); } } /* Someday we should allow demangling for things other than just explicit strings. For example, we might want to be able to specify the address of a string in either GDB's process space or the debuggee's process space, and have gdb fetch and demangle that string. If we have a char* pointer "ptr" that points to a string, we might want to be able to given just the name and have GDB demangle and print what it points to, etc. (FIXME) */ static void maintenance_demangle (args, from_tty) char *args; int from_tty; { char *demangled; if (args == NULL || *args == '\0') { printf_unfiltered ("\"maintenance demangle\" takes an argument to demangle.\n"); } else { demangled = cplus_demangle (args, DMGL_ANSI | DMGL_PARAMS); if (demangled != NULL) { printf_unfiltered ("%s\n", demangled); free (demangled); } else { printf_unfiltered ("Can't demangle \"%s\"\n", args); } } } /* The "maintenance info" command is defined as a prefix, with allow_unknown 0. Therefore, its own definition is called only for "maintenance info" with no args. */ /* ARGSUSED */ static void maintenance_info_command (arg, from_tty) char *arg; int from_tty; { printf_unfiltered ("\"maintenance info\" must be followed by the name of an info command.\n"); help_list (maintenanceinfolist, "maintenance info ", -1, gdb_stdout); } static void print_section_table (abfd, asect, ignore) bfd *abfd; asection *asect; PTR ignore; { flagword flags; flags = bfd_get_section_flags (abfd, asect); /* FIXME-32x64: Need print_address_numeric with field width. */ printf_filtered (" %s", local_hex_string_custom ((unsigned long) bfd_section_vma (abfd, asect), "08l")); printf_filtered ("->%s", local_hex_string_custom ((unsigned long) (bfd_section_vma (abfd, asect) + bfd_section_size (abfd, asect)), "08l")); printf_filtered (" at %s", local_hex_string_custom ((unsigned long) asect->filepos, "08l")); printf_filtered (": %s", bfd_section_name (abfd, asect)); if (flags & SEC_ALLOC) printf_filtered (" ALLOC"); if (flags & SEC_LOAD) printf_filtered (" LOAD"); if (flags & SEC_RELOC) printf_filtered (" RELOC"); if (flags & SEC_READONLY) printf_filtered (" READONLY"); if (flags & SEC_CODE) printf_filtered (" CODE"); if (flags & SEC_DATA) printf_filtered (" DATA"); if (flags & SEC_ROM) printf_filtered (" ROM"); if (flags & SEC_CONSTRUCTOR) printf_filtered (" CONSTRUCTOR"); if (flags & SEC_HAS_CONTENTS) printf_filtered (" HAS_CONTENTS"); if (flags & SEC_NEVER_LOAD) printf_filtered (" NEVER_LOAD"); if (flags & SEC_COFF_SHARED_LIBRARY) printf_filtered (" COFF_SHARED_LIBRARY"); if (flags & SEC_IS_COMMON) printf_filtered (" IS_COMMON"); printf_filtered ("\n"); } /* ARGSUSED */ static void maintenance_info_sections (arg, from_tty) char *arg; int from_tty; { if (exec_bfd) { printf_filtered ("Exec file:\n"); printf_filtered (" `%s', ", bfd_get_filename(exec_bfd)); wrap_here (" "); printf_filtered ("file type %s.\n", bfd_get_target(exec_bfd)); bfd_map_over_sections(exec_bfd, print_section_table, 0); } if (core_bfd) { printf_filtered ("Core file:\n"); printf_filtered (" `%s', ", bfd_get_filename(core_bfd)); wrap_here (" "); printf_filtered ("file type %s.\n", bfd_get_target(core_bfd)); bfd_map_over_sections(core_bfd, print_section_table, 0); } } /* The "maintenance print" command is defined as a prefix, with allow_unknown 0. Therefore, its own definition is called only for "maintenance print" with no args. */ /* ARGSUSED */ static void maintenance_print_command (arg, from_tty) char *arg; int from_tty; { printf_unfiltered ("\"maintenance print\" must be followed by the name of a print command.\n"); help_list (maintenanceprintlist, "maintenance print ", -1, gdb_stdout); } #endif /* MAINTENANCE_CMDS */ void _initialize_maint_cmds () { #if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */ add_prefix_cmd ("maintenance", class_maintenance, maintenance_command, "Commands for use by GDB maintainers.\n\ Includes commands to dump specific internal GDB structures in\n\ a human readable form, to cause GDB to deliberately dump core,\n\ to test internal functions such as the C++ demangler, etc.", &maintenancelist, "maintenance ", 0, &cmdlist); add_com_alias ("mt", "maintenance", class_maintenance, 1); add_prefix_cmd ("info", class_maintenance, maintenance_info_command, "Commands for showing internal info about the program being debugged.", &maintenanceinfolist, "maintenance info ", 0, &maintenancelist); add_cmd ("sections", class_maintenance, maintenance_info_sections, "List the BFD sections of the exec and core files.", &maintenanceinfolist); add_prefix_cmd ("print", class_maintenance, maintenance_print_command, "Maintenance command for printing GDB internal state.", &maintenanceprintlist, "maintenance print ", 0, &maintenancelist); add_cmd ("dump-me", class_maintenance, maintenance_dump_me, "Get fatal error; make debugger dump its core.\n\ GDB sets it's handling of SIGQUIT back to SIG_DFL and then sends\n\ itself a SIGQUIT signal.", &maintenancelist); add_cmd ("demangle", class_maintenance, maintenance_demangle, "Demangle a C++ mangled name.\n\ Call internal GDB demangler routine to demangle a C++ link name\n\ and prints the result.", &maintenancelist); add_cmd ("type", class_maintenance, maintenance_print_type, "Print a type chain for a given symbol.\n\ For each node in a type chain, print the raw data for each member of\n\ the type structure, and the interpretation of the data.", &maintenanceprintlist); add_cmd ("symbols", class_maintenance, maintenance_print_symbols, "Print dump of current symbol definitions.\n\ Entries in the full symbol table are dumped to file OUTFILE.\n\ If a SOURCE file is specified, dump only that file's symbols.", &maintenanceprintlist); add_cmd ("msymbols", class_maintenance, maintenance_print_msymbols, "Print dump of current minimal symbol definitions.\n\ Entries in the minimal symbol table are dumped to file OUTFILE.\n\ If a SOURCE file is specified, dump only that file's minimal symbols.", &maintenanceprintlist); add_cmd ("psymbols", class_maintenance, maintenance_print_psymbols, "Print dump of current partial symbol definitions.\n\ Entries in the partial symbol table are dumped to file OUTFILE.\n\ If a SOURCE file is specified, dump only that file's partial symbols.", &maintenanceprintlist); add_cmd ("objfiles", class_maintenance, maintenance_print_objfiles, "Print dump of current object file definitions.", &maintenanceprintlist); add_cmd ("check-symtabs", class_maintenance, maintenance_check_symtabs, "Check consistency of psymtabs and symtabs.", &maintenancelist); #endif /* MAINTENANCE_CMDS */ } gdb-4.13/gdb/mdebugread.c 666 34562 1752 351004 5601357621 13604 0ustar fnfcygnus/* Read a symbol table in ECOFF format (Third-Eye). Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Original version contributed by Alessandro Forin (af@cs.cmu.edu) at CMU. Major work by Per Bothner, John Gilmore and Ian Lance Taylor at Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This module provides the function mdebug_build_psymtabs. It reads ECOFF debugging information into partial symbol tables. The debugging information is read from two structures. A struct ecoff_debug_swap includes the sizes of each ECOFF structure and swapping routines; these are fixed for a particular target. A struct ecoff_debug_info points to the debugging information for a particular object file. ECOFF symbol tables are mostly written in the byte order of the target machine. However, one section of the table (the auxiliary symbol information) is written in the host byte order. There is a bit in the other symbol info which describes which host byte order was used. ECOFF thereby takes the trophy from Intel `b.out' for the most brain-dead adaptation of a file format to byte order. This module can read all four of the known byte-order combinations, on any type of host. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "gdbcore.h" #include "symfile.h" #include "objfiles.h" #include "obstack.h" #include "buildsym.h" #include "stabsread.h" #include "complaints.h" #if !defined (SEEK_SET) #define SEEK_SET 0 #define SEEK_CUR 1 #endif /* These are needed if the tm.h file does not contain the necessary mips specific definitions. */ #ifndef MIPS_EFI_SYMBOL_NAME #define MIPS_EFI_SYMBOL_NAME "__GDB_EFI_INFO__" #include "coff/sym.h" #include "coff/symconst.h" typedef struct mips_extra_func_info { long numargs; PDR pdr; } *mips_extra_func_info_t; #ifndef RA_REGNUM #define RA_REGNUM 0 #endif #endif #ifdef USG #include #endif #include #include #include #include #include "gdb-stabs.h" #include "bfd.h" #include "coff/ecoff.h" /* COFF-like aspects of ecoff files */ #include "libaout.h" /* Private BFD a.out information. */ #include "aout/aout64.h" #include "aout/stab_gnu.h" /* STABS information */ #include "expression.h" #include "language.h" /* Needed inside partial-stab.h */ /* Provide a default mapping from a ecoff register number to a gdb REGNUM. */ #ifndef ECOFF_REG_TO_REGNUM #define ECOFF_REG_TO_REGNUM(num) (num) #endif /* Each partial symbol table entry contains a pointer to private data for the read_symtab() function to use when expanding a partial symbol table entry to a full symbol table entry. For mdebugread this structure contains the index of the FDR that this psymtab represents and a pointer to the BFD that the psymtab was created from. */ #define PST_PRIVATE(p) ((struct symloc *)(p)->read_symtab_private) #define FDR_IDX(p) (PST_PRIVATE(p)->fdr_idx) #define CUR_BFD(p) (PST_PRIVATE(p)->cur_bfd) #define DEBUG_SWAP(p) (PST_PRIVATE(p)->debug_swap) #define DEBUG_INFO(p) (PST_PRIVATE(p)->debug_info) #define PENDING_LIST(p) (PST_PRIVATE(p)->pending_list) struct symloc { int fdr_idx; bfd *cur_bfd; const struct ecoff_debug_swap *debug_swap; struct ecoff_debug_info *debug_info; struct mdebug_pending **pending_list; EXTR *extern_tab; /* Pointer to external symbols for this file. */ int extern_count; /* Size of extern_tab. */ enum language pst_language; }; /* Things we import explicitly from other modules */ extern int info_verbose; /* Various complaints about symbol reading that don't abort the process */ static struct complaint bad_file_number_complaint = {"bad file number %d", 0, 0}; static struct complaint index_complaint = {"bad aux index at symbol %s", 0, 0}; static struct complaint aux_index_complaint = {"bad proc end in aux found from symbol %s", 0, 0}; static struct complaint block_index_complaint = {"bad aux index at block symbol %s", 0, 0}; static struct complaint unknown_ext_complaint = {"unknown external symbol %s", 0, 0}; static struct complaint unknown_sym_complaint = {"unknown local symbol %s", 0, 0}; static struct complaint unknown_st_complaint = {"with type %d", 0, 0}; static struct complaint block_overflow_complaint = {"block containing %s overfilled", 0, 0}; static struct complaint basic_type_complaint = {"cannot map ECOFF basic type 0x%x for %s", 0, 0}; static struct complaint unknown_type_qual_complaint = {"unknown type qualifier 0x%x", 0, 0}; static struct complaint array_index_type_complaint = {"illegal array index type for %s, assuming int", 0, 0}; static struct complaint bad_tag_guess_complaint = {"guessed tag type of %s incorrectly", 0, 0}; static struct complaint block_member_complaint = {"declaration block contains unhandled symbol type %d", 0, 0}; static struct complaint stEnd_complaint = {"stEnd with storage class %d not handled", 0, 0}; static struct complaint unknown_mdebug_symtype_complaint = {"unknown symbol type 0x%x", 0, 0}; static struct complaint stab_unknown_complaint = {"unknown stabs symbol %s", 0, 0}; static struct complaint pdr_for_nonsymbol_complaint = {"PDR for %s, but no symbol", 0, 0}; static struct complaint pdr_static_symbol_complaint = {"can't handle PDR for static proc at 0x%lx", 0, 0}; static struct complaint bad_setjmp_pdr_complaint = {"fixing bad setjmp PDR from libc", 0, 0}; static struct complaint bad_fbitfield_complaint = {"can't handle TIR fBitfield for %s", 0, 0}; static struct complaint bad_continued_complaint = {"illegal TIR continued for %s", 0, 0}; static struct complaint bad_rfd_entry_complaint = {"bad rfd entry for %s: file %d, index %d", 0, 0}; static struct complaint unexpected_type_code_complaint = {"unexpected type code for %s", 0, 0}; static struct complaint unable_to_cross_ref_complaint = {"unable to cross ref btTypedef for %s", 0, 0}; static struct complaint illegal_forward_tq0_complaint = {"illegal tq0 in forward typedef for %s", 0, 0}; static struct complaint illegal_forward_bt_complaint = {"illegal bt %d in forward typedef for %s", 0, 0}; static struct complaint bad_linetable_guess_complaint = {"guessed size of linetable for %s incorrectly", 0, 0}; static struct complaint bad_ext_ifd_complaint = {"bad ifd for external symbol: %d (max %d)", 0, 0}; static struct complaint bad_ext_iss_complaint = {"bad iss for external symbol: %ld (max %ld)", 0, 0}; /* Macros and extra defs */ /* Puns: hard to find whether -g was used and how */ #define MIN_GLEVEL GLEVEL_0 #define compare_glevel(a,b) \ (((a) == GLEVEL_3) ? ((b) < GLEVEL_3) : \ ((b) == GLEVEL_3) ? -1 : (int)((b) - (a))) /* Things that really are local to this module */ /* Remember what we deduced to be the source language of this psymtab. */ static enum language psymtab_language = language_unknown; /* Current BFD. */ static bfd *cur_bfd; /* How to parse debugging information for CUR_BFD. */ static const struct ecoff_debug_swap *debug_swap; /* Pointers to debugging information for CUR_BFD. */ static struct ecoff_debug_info *debug_info; /* Pointer to current file decriptor record, and its index */ static FDR *cur_fdr; static int cur_fd; /* Index of current symbol */ static int cur_sdx; /* Note how much "debuggable" this image is. We would like to see at least one FDR with full symbols */ static max_gdbinfo; static max_glevel; /* When examining .o files, report on undefined symbols */ static int n_undef_symbols, n_undef_labels, n_undef_vars, n_undef_procs; /* Pseudo symbol to use when putting stabs into the symbol table. */ static char stabs_symbol[] = STABS_SYMBOL; /* Types corresponding to btComplex, btDComplex, etc. These are here rather than in gdbtypes.c or some such, because the meaning of codes like btComplex is specific to the mdebug debug format. FIXME: We should be using our own types thoughout this file, instead of sometimes using builtin_type_*. */ static struct type *mdebug_type_complex; static struct type *mdebug_type_double_complex; static struct type *mdebug_type_fixed_dec; static struct type *mdebug_type_float_dec; static struct type *mdebug_type_string; /* Forward declarations */ static int upgrade_type PARAMS ((int, struct type **, int, union aux_ext *, int, char *)); static void parse_partial_symbols PARAMS ((struct objfile *, struct section_offsets *)); static FDR *get_rfd PARAMS ((int, int)); static int has_opaque_xref PARAMS ((FDR *, SYMR *)); static int cross_ref PARAMS ((int, union aux_ext *, struct type **, enum type_code, char **, int, char *)); static struct symbol * new_symbol PARAMS ((char *)); static struct type * new_type PARAMS ((char *)); static struct block * new_block PARAMS ((int)); static struct symtab * new_symtab PARAMS ((char *, int, int, struct objfile *)); static struct linetable * new_linetable PARAMS ((int)); static struct blockvector * new_bvect PARAMS ((int)); static int parse_symbol PARAMS ((SYMR *, union aux_ext *, char *, int, struct section_offsets *)); static struct type * parse_type PARAMS ((int, union aux_ext *, unsigned int, int *, int, char *)); static struct symbol * mylookup_symbol PARAMS ((char *, struct block *, enum namespace, enum address_class)); static struct block * shrink_block PARAMS ((struct block *, struct symtab *)); static PTR xzalloc PARAMS ((unsigned int)); static void sort_blocks PARAMS ((struct symtab *)); static int compare_blocks PARAMS ((const void *, const void *)); static struct partial_symtab * new_psymtab PARAMS ((char *, struct objfile *, struct section_offsets *)); static void psymtab_to_symtab_1 PARAMS ((struct partial_symtab *, char *)); static void add_block PARAMS ((struct block *, struct symtab *)); static void add_symbol PARAMS ((struct symbol *, struct block *)); static int add_line PARAMS ((struct linetable *, int, CORE_ADDR, int)); static struct linetable * shrink_linetable PARAMS ((struct linetable *)); static void handle_psymbol_enumerators PARAMS ((struct objfile *, FDR *, int)); static char * mdebug_next_symbol_text PARAMS ((void)); /* Address bounds for the signal trampoline in inferior, if any */ CORE_ADDR sigtramp_address, sigtramp_end; /* Allocate zeroed memory */ static PTR xzalloc (size) unsigned int size; { PTR p = xmalloc (size); memset (p, 0, size); return p; } /* Exported procedure: Builds a symtab from the PST partial one. Restores the environment in effect when PST was created, delegates most of the work to an ancillary procedure, and sorts and reorders the symtab list at the end */ static void mdebug_psymtab_to_symtab (pst) struct partial_symtab *pst; { if (!pst) return; if (info_verbose) { printf_filtered ("Reading in symbols for %s...", pst->filename); gdb_flush (gdb_stdout); } next_symbol_text_func = mdebug_next_symbol_text; psymtab_to_symtab_1 (pst, pst->filename); /* Match with global symbols. This only needs to be done once, after all of the symtabs and dependencies have been read in. */ scan_file_globals (pst->objfile); if (info_verbose) printf_filtered ("done.\n"); } /* File-level interface functions */ /* Find a file descriptor given its index RF relative to a file CF */ static FDR * get_rfd (cf, rf) int cf, rf; { FDR *fdrs; register FDR *f; RFDT rfd; fdrs = debug_info->fdr; f = fdrs + cf; /* Object files do not have the RFD table, all refs are absolute */ if (f->rfdBase == 0) return fdrs + rf; (*debug_swap->swap_rfd_in) (cur_bfd, ((char *) debug_info->external_rfd + ((f->rfdBase + rf) * debug_swap->external_rfd_size)), &rfd); return fdrs + rfd; } /* Return a safer print NAME for a file descriptor */ static char * fdr_name (f) FDR *f; { if (f->rss == -1) return ""; if (f->rss == 0) return ""; return debug_info->ss + f->issBase + f->rss; } /* Read in and parse the symtab of the file OBJFILE. Symbols from different sections are relocated via the SECTION_OFFSETS. */ void mdebug_build_psymtabs (objfile, swap, info, section_offsets) struct objfile *objfile; const struct ecoff_debug_swap *swap; struct ecoff_debug_info *info; struct section_offsets *section_offsets; { cur_bfd = objfile->obfd; debug_swap = swap; debug_info = info; /* Make sure all the FDR information is swapped in. */ if (info->fdr == (FDR *) NULL) { char *fdr_src; char *fdr_end; FDR *fdr_ptr; info->fdr = (FDR *) obstack_alloc (&objfile->psymbol_obstack, (info->symbolic_header.ifdMax * sizeof (FDR))); fdr_src = info->external_fdr; fdr_end = (fdr_src + info->symbolic_header.ifdMax * swap->external_fdr_size); fdr_ptr = info->fdr; for (; fdr_src < fdr_end; fdr_src += swap->external_fdr_size, fdr_ptr++) (*swap->swap_fdr_in) (objfile->obfd, fdr_src, fdr_ptr); } parse_partial_symbols (objfile, section_offsets); #if 0 /* Check to make sure file was compiled with -g. If not, warn the user of this limitation. */ if (compare_glevel (max_glevel, GLEVEL_2) < 0) { if (max_gdbinfo == 0) printf_unfiltered ("\n%s not compiled with -g, debugging support is limited.\n", objfile->name); printf_unfiltered ("You should compile with -g2 or -g3 for best debugging support.\n"); gdb_flush (gdb_stdout); } #endif } /* Local utilities */ /* Map of FDR indexes to partial symtabs */ struct pst_map { struct partial_symtab *pst; /* the psymtab proper */ long n_globals; /* exported globals (external symbols) */ long globals_offset; /* cumulative */ }; /* Utility stack, used to nest procedures and blocks properly. It is a doubly linked list, to avoid too many alloc/free. Since we might need it quite a few times it is NOT deallocated after use. */ static struct parse_stack { struct parse_stack *next, *prev; struct symtab *cur_st; /* Current symtab. */ struct block *cur_block; /* Block in it. */ /* What are we parsing. stFile, or stBlock are for files and blocks. stProc or stStaticProc means we have seen the start of a procedure, but not the start of the block within in. When we see the start of that block, we change it to stNil, without pushing a new block, i.e. stNil means both a procedure and a block. */ int blocktype; int maxsyms; /* Max symbols in this block. */ struct type *cur_type; /* Type we parse fields for. */ int cur_field; /* Field number in cur_type. */ CORE_ADDR procadr; /* Start addres of this procedure */ int numargs; /* Its argument count */ } *top_stack; /* Top stack ptr */ /* Enter a new lexical context */ static void push_parse_stack () { struct parse_stack *new; /* Reuse frames if possible */ if (top_stack && top_stack->prev) new = top_stack->prev; else new = (struct parse_stack *) xzalloc (sizeof (struct parse_stack)); /* Initialize new frame with previous content */ if (top_stack) { register struct parse_stack *prev = new->prev; *new = *top_stack; top_stack->prev = new; new->prev = prev; new->next = top_stack; } top_stack = new; } /* Exit a lexical context */ static void pop_parse_stack () { if (!top_stack) return; if (top_stack->next) top_stack = top_stack->next; } /* Cross-references might be to things we haven't looked at yet, e.g. type references. To avoid too many type duplications we keep a quick fixup table, an array of lists of references indexed by file descriptor */ struct mdebug_pending { struct mdebug_pending *next; /* link */ char *s; /* the unswapped symbol */ struct type *t; /* its partial type descriptor */ }; /* The pending information is kept for an entire object file, and used to be in the sym_private field. I took it out when I split mdebugread from mipsread, because this might not be the only type of symbols read from an object file. Instead, we allocate the pending information table when we create the partial symbols, and we store a pointer to the single table in each psymtab. */ static struct mdebug_pending **pending_list; /* Check whether we already saw symbol SH in file FH */ static struct mdebug_pending * is_pending_symbol (fh, sh) FDR *fh; char *sh; { int f_idx = fh - debug_info->fdr; register struct mdebug_pending *p; /* Linear search is ok, list is typically no more than 10 deep */ for (p = pending_list[f_idx]; p; p = p->next) if (p->s == sh) break; return p; } /* Add a new symbol SH of type T */ static void add_pending (fh, sh, t) FDR *fh; char *sh; struct type *t; { int f_idx = fh - debug_info->fdr; struct mdebug_pending *p = is_pending_symbol (fh, sh); /* Make sure we do not make duplicates */ if (!p) { p = ((struct mdebug_pending *) obstack_alloc (¤t_objfile->psymbol_obstack, sizeof (struct mdebug_pending))); p->s = sh; p->t = t; p->next = pending_list[f_idx]; pending_list[f_idx] = p; } } /* Parsing Routines proper. */ /* Parse a single symbol. Mostly just make up a GDB symbol for it. For blocks, procedures and types we open a new lexical context. This is basically just a big switch on the symbol's type. Argument AX is the base pointer of aux symbols for this file (fh->iauxBase). EXT_SH points to the unswapped symbol, which is needed for struct, union, etc., types; it is NULL for an EXTR. BIGEND says whether aux symbols are big-endian or little-endian. Return count of SYMR's handled (normally one). */ static int parse_symbol (sh, ax, ext_sh, bigend, section_offsets) SYMR *sh; union aux_ext *ax; char *ext_sh; int bigend; struct section_offsets *section_offsets; { const bfd_size_type external_sym_size = debug_swap->external_sym_size; void (* const swap_sym_in) PARAMS ((bfd *, PTR, SYMR *)) = debug_swap->swap_sym_in; char *name; struct symbol *s; struct block *b; struct mdebug_pending *pend; struct type *t; struct field *f; int count = 1; enum address_class class; TIR tir; long svalue = sh->value; int bitsize; if (ext_sh == (char *) NULL) name = debug_info->ssext + sh->iss; else name = debug_info->ss + cur_fdr->issBase + sh->iss; switch (sh->sc) { case scText: /* The value of a stEnd symbol is the displacement from the corresponding start symbol value, do not relocate it. */ if (sh->st != stEnd) sh->value += ANOFFSET (section_offsets, SECT_OFF_TEXT); break; case scData: case scSData: case scRData: case scPData: case scXData: sh->value += ANOFFSET (section_offsets, SECT_OFF_DATA); break; case scBss: case scSBss: sh->value += ANOFFSET (section_offsets, SECT_OFF_BSS); break; } switch (sh->st) { case stNil: break; case stGlobal: /* external symbol, goes into global block */ class = LOC_STATIC; b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (top_stack->cur_st), GLOBAL_BLOCK); s = new_symbol (name); SYMBOL_VALUE_ADDRESS (s) = (CORE_ADDR) sh->value; goto data; case stStatic: /* static data, goes into current block. */ class = LOC_STATIC; b = top_stack->cur_block; s = new_symbol (name); if (sh->sc == scCommon) { /* It is a FORTRAN common block. At least for SGI Fortran the address is not in the symbol; we need to fix it later in scan_file_globals. */ int bucket = hashname (SYMBOL_NAME (s)); SYMBOL_VALUE_CHAIN (s) = global_sym_chain[bucket]; global_sym_chain[bucket] = s; } else SYMBOL_VALUE_ADDRESS (s) = (CORE_ADDR) sh->value; goto data; case stLocal: /* local variable, goes into current block */ if (sh->sc == scRegister) { class = LOC_REGISTER; svalue = ECOFF_REG_TO_REGNUM (svalue); } else class = LOC_LOCAL; b = top_stack->cur_block; s = new_symbol (name); SYMBOL_VALUE (s) = svalue; data: /* Common code for symbols describing data */ SYMBOL_NAMESPACE (s) = VAR_NAMESPACE; SYMBOL_CLASS (s) = class; add_symbol (s, b); /* Type could be missing in a number of cases */ if (sh->sc == scUndefined || sh->sc == scNil) SYMBOL_TYPE (s) = builtin_type_int; /* undefined? */ else SYMBOL_TYPE (s) = parse_type (cur_fd, ax, sh->index, 0, bigend, name); /* Value of a data symbol is its memory address */ break; case stParam: /* arg to procedure, goes into current block */ max_gdbinfo++; top_stack->numargs++; /* Special GNU C++ name. */ if (name[0] == CPLUS_MARKER && name[1] == 't' && name[2] == 0) name = "this"; /* FIXME, not alloc'd in obstack */ s = new_symbol (name); SYMBOL_NAMESPACE (s) = VAR_NAMESPACE; switch (sh->sc) { case scRegister: /* Pass by value in register. */ SYMBOL_CLASS(s) = LOC_REGPARM; svalue = ECOFF_REG_TO_REGNUM (svalue); break; case scVar: /* Pass by reference on stack. */ SYMBOL_CLASS(s) = LOC_REF_ARG; break; case scVarRegister: /* Pass by reference in register. */ SYMBOL_CLASS(s) = LOC_REGPARM_ADDR; svalue = ECOFF_REG_TO_REGNUM (svalue); break; default: /* Pass by value on stack. */ SYMBOL_CLASS(s) = LOC_ARG; break; } SYMBOL_VALUE (s) = svalue; SYMBOL_TYPE (s) = parse_type (cur_fd, ax, sh->index, 0, bigend, name); add_symbol (s, top_stack->cur_block); #if 0 /* FIXME: This has not been tested. See dbxread.c */ /* Add the type of this parameter to the function/procedure type of this block. */ add_param_to_type (&top_stack->cur_block->function->type, s); #endif break; case stLabel: /* label, goes into current block */ s = new_symbol (name); SYMBOL_NAMESPACE (s) = VAR_NAMESPACE; /* so that it can be used */ SYMBOL_CLASS (s) = LOC_LABEL; /* but not misused */ SYMBOL_VALUE_ADDRESS (s) = (CORE_ADDR) sh->value; SYMBOL_TYPE (s) = builtin_type_int; add_symbol (s, top_stack->cur_block); break; case stProc: /* Procedure, usually goes into global block */ case stStaticProc: /* Static procedure, goes into current block */ s = new_symbol (name); SYMBOL_NAMESPACE (s) = VAR_NAMESPACE; SYMBOL_CLASS (s) = LOC_BLOCK; /* Type of the return value */ if (sh->sc == scUndefined || sh->sc == scNil) t = builtin_type_int; else t = parse_type (cur_fd, ax, sh->index + 1, 0, bigend, name); b = top_stack->cur_block; if (sh->st == stProc) { struct blockvector *bv = BLOCKVECTOR (top_stack->cur_st); /* The next test should normally be true, but provides a hook for nested functions (which we don't want to make global). */ if (b == BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK)) b = BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK); /* Irix 5 sometimes has duplicate names for the same function. We want to add such names up at the global level, not as a nested function. */ else if (sh->value == top_stack->procadr) b = BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK); } add_symbol (s, b); /* Make a type for the procedure itself */ #if 0 /* FIXME: This has not been tested yet! See dbxread.c */ /* Generate a template for the type of this function. The types of the arguments will be added as we read the symbol table. */ memcpy (lookup_function_type (t), SYMBOL_TYPE (s), sizeof (struct type)); #else SYMBOL_TYPE (s) = lookup_function_type (t); #endif /* Create and enter a new lexical context */ b = new_block (top_stack->maxsyms); SYMBOL_BLOCK_VALUE (s) = b; BLOCK_FUNCTION (b) = s; BLOCK_START (b) = BLOCK_END (b) = sh->value; BLOCK_SUPERBLOCK (b) = top_stack->cur_block; add_block (b, top_stack->cur_st); /* Not if we only have partial info */ if (sh->sc == scUndefined || sh->sc == scNil) break; push_parse_stack (); top_stack->cur_block = b; top_stack->blocktype = sh->st; top_stack->cur_type = SYMBOL_TYPE (s); top_stack->cur_field = -1; top_stack->procadr = sh->value; top_stack->numargs = 0; break; /* Beginning of code for structure, union, and enum definitions. They all share a common set of local variables, defined here. */ { enum type_code type_code; char *ext_tsym; int nfields; long max_value; struct field *f; case stStruct: /* Start a block defining a struct type */ type_code = TYPE_CODE_STRUCT; goto structured_common; case stUnion: /* Start a block defining a union type */ type_code = TYPE_CODE_UNION; goto structured_common; case stEnum: /* Start a block defining an enum type */ type_code = TYPE_CODE_ENUM; goto structured_common; case stBlock: /* Either a lexical block, or some type */ if (sh->sc != scInfo && sh->sc != scCommon) goto case_stBlock_code; /* Lexical block */ type_code = TYPE_CODE_UNDEF; /* We have a type. */ /* Common code for handling struct, union, enum, and/or as-yet- unknown-type blocks of info about structured data. `type_code' has been set to the proper TYPE_CODE, if we know it. */ structured_common: push_parse_stack (); top_stack->blocktype = stBlock; /* First count the number of fields and the highest value. */ nfields = 0; max_value = 0; for (ext_tsym = ext_sh + external_sym_size; ; ext_tsym += external_sym_size) { SYMR tsym; (*swap_sym_in) (cur_bfd, ext_tsym, &tsym); switch (tsym.st) { case stEnd: goto end_of_fields; case stMember: if (nfields == 0 && type_code == TYPE_CODE_UNDEF) /* If the type of the member is Nil (or Void), without qualifiers, assume the tag is an enumeration. */ if (tsym.index == indexNil) type_code = TYPE_CODE_ENUM; else { (*debug_swap->swap_tir_in) (bigend, &ax[tsym.index].a_ti, &tir); if ((tir.bt == btNil || tir.bt == btVoid) && tir.tq0 == tqNil) type_code = TYPE_CODE_ENUM; } nfields++; if (tsym.value > max_value) max_value = tsym.value; break; case stBlock: case stUnion: case stEnum: case stStruct: { #if 0 /* This is a no-op; is it trying to tell us something we should be checking? */ if (tsym.sc == scVariant); /*UNIMPLEMENTED*/ #endif if (tsym.index != 0) { /* This is something like a struct within a struct. Skip over the fields of the inner struct. The -1 is because the for loop will increment ext_tsym. */ ext_tsym = ((char *) debug_info->external_sym + ((cur_fdr->isymBase + tsym.index - 1) * external_sym_size)); } } break; case stTypedef: /* mips cc puts out a typedef for struct x if it is not yet defined when it encounters struct y { struct x *xp; }; Just ignore it. */ break; case stIndirect: /* Irix5 cc puts out a stIndirect for struct x if it is not yet defined when it encounters struct y { struct x *xp; }; Just ignore it. */ break; default: complain (&block_member_complaint, tsym.st); } } end_of_fields:; /* In an stBlock, there is no way to distinguish structs, unions, and enums at this point. This is a bug in the original design (that has been fixed with the recent addition of the stStruct, stUnion, and stEnum symbol types.) The way you can tell is if/when you see a variable or field of that type. In that case the variable's type (in the AUX table) says if the type is struct, union, or enum, and points back to the stBlock here. So you can patch the tag kind up later - but only if there actually is a variable or field of that type. So until we know for sure, we will guess at this point. The heuristic is: If the first member has index==indexNil or a void type, assume we have an enumeration. Otherwise, if there is more than one member, and all the members have offset 0, assume we have a union. Otherwise, assume we have a struct. The heuristic could guess wrong in the case of of an enumeration with no members or a union with one (or zero) members, or when all except the last field of a struct have width zero. These are uncommon and/or illegal situations, and in any case guessing wrong probably doesn't matter much. But if we later do find out we were wrong, we fixup the tag kind. Members of an enumeration must be handled differently from struct/union fields, and that is harder to patch up, but luckily we shouldn't need to. (If there are any enumeration members, we can tell for sure it's an enum here.) */ if (type_code == TYPE_CODE_UNDEF) if (nfields > 1 && max_value == 0) type_code = TYPE_CODE_UNION; else type_code = TYPE_CODE_STRUCT; /* Create a new type or use the pending type. */ pend = is_pending_symbol (cur_fdr, ext_sh); if (pend == (struct mdebug_pending *) NULL) { t = new_type (NULL); add_pending (cur_fdr, ext_sh, t); } else t = pend->t; /* Do not set the tag name if it is a compiler generated tag name (.Fxx or .xxfake or empty) for unnamed struct/union/enums. Alpha cc puts out an sh->iss of zero for those. */ if (sh->iss == 0 || name[0] == '.' || name[0] == '\0') TYPE_TAG_NAME (t) = NULL; else TYPE_TAG_NAME (t) = obconcat (¤t_objfile->symbol_obstack, "", "", name); TYPE_CODE (t) = type_code; TYPE_LENGTH (t) = sh->value; TYPE_NFIELDS (t) = nfields; TYPE_FIELDS (t) = f = ((struct field *) TYPE_ALLOC (t, nfields * sizeof (struct field))); if (type_code == TYPE_CODE_ENUM) { /* This is a non-empty enum. */ /* DEC c89 has the number of enumerators in the sh.value field, not the type length, so we have to compensate for that incompatibility quirk. This might do the wrong thing for an enum with one or two enumerators and gcc -gcoff -fshort-enums, but these cases are hopefully rare enough. */ if (TYPE_LENGTH (t) == TYPE_NFIELDS (t)) TYPE_LENGTH (t) = TARGET_INT_BIT / HOST_CHAR_BIT; for (ext_tsym = ext_sh + external_sym_size; ; ext_tsym += external_sym_size) { SYMR tsym; struct symbol *enum_sym; (*swap_sym_in) (cur_bfd, ext_tsym, &tsym); if (tsym.st != stMember) break; f->bitpos = tsym.value; f->type = t; f->name = debug_info->ss + cur_fdr->issBase + tsym.iss; f->bitsize = 0; enum_sym = ((struct symbol *) obstack_alloc (¤t_objfile->symbol_obstack, sizeof (struct symbol))); memset ((PTR) enum_sym, 0, sizeof (struct symbol)); SYMBOL_NAME (enum_sym) = f->name; SYMBOL_CLASS (enum_sym) = LOC_CONST; SYMBOL_TYPE (enum_sym) = t; SYMBOL_NAMESPACE (enum_sym) = VAR_NAMESPACE; SYMBOL_VALUE (enum_sym) = tsym.value; add_symbol (enum_sym, top_stack->cur_block); /* Skip the stMembers that we've handled. */ count++; f++; } } /* make this the current type */ top_stack->cur_type = t; top_stack->cur_field = 0; /* Do not create a symbol for alpha cc unnamed structs. */ if (sh->iss == 0) break; /* gcc puts out an empty struct for an opaque struct definitions, do not create a symbol for it either. */ if (TYPE_NFIELDS (t) == 0) { TYPE_FLAGS (t) |= TYPE_FLAG_STUB; break; } s = new_symbol (name); SYMBOL_NAMESPACE (s) = STRUCT_NAMESPACE; SYMBOL_CLASS (s) = LOC_TYPEDEF; SYMBOL_VALUE (s) = 0; SYMBOL_TYPE (s) = t; add_symbol (s, top_stack->cur_block); break; /* End of local variables shared by struct, union, enum, and block (as yet unknown struct/union/enum) processing. */ } case_stBlock_code: /* beginnning of (code) block. Value of symbol is the displacement from procedure start */ push_parse_stack (); /* Do not start a new block if this is the outermost block of a procedure. This allows the LOC_BLOCK symbol to point to the block with the local variables, so funcname::var works. */ if (top_stack->blocktype == stProc || top_stack->blocktype == stStaticProc) { top_stack->blocktype = stNil; break; } top_stack->blocktype = stBlock; b = new_block (top_stack->maxsyms); BLOCK_START (b) = sh->value + top_stack->procadr; BLOCK_SUPERBLOCK (b) = top_stack->cur_block; top_stack->cur_block = b; add_block (b, top_stack->cur_st); break; case stEnd: /* end (of anything) */ if (sh->sc == scInfo || sh->sc == scCommon) { /* Finished with type */ top_stack->cur_type = 0; } else if (sh->sc == scText && (top_stack->blocktype == stProc || top_stack->blocktype == stStaticProc)) { /* Finished with procedure */ struct blockvector *bv = BLOCKVECTOR (top_stack->cur_st); struct mips_extra_func_info *e; struct block *b; int i; BLOCK_END (top_stack->cur_block) += sh->value; /* size */ /* Make up special symbol to contain procedure specific info */ s = new_symbol (MIPS_EFI_SYMBOL_NAME); SYMBOL_NAMESPACE (s) = LABEL_NAMESPACE; SYMBOL_CLASS (s) = LOC_CONST; SYMBOL_TYPE (s) = builtin_type_void; e = ((struct mips_extra_func_info *) obstack_alloc (¤t_objfile->symbol_obstack, sizeof (struct mips_extra_func_info))); SYMBOL_VALUE (s) = (long) e; e->numargs = top_stack->numargs; add_symbol (s, top_stack->cur_block); /* Reallocate symbols, saving memory */ b = shrink_block (top_stack->cur_block, top_stack->cur_st); /* f77 emits proc-level with address bounds==[0,0], So look for such child blocks, and patch them. */ for (i = 0; i < BLOCKVECTOR_NBLOCKS (bv); i++) { struct block *b_bad = BLOCKVECTOR_BLOCK (bv, i); if (BLOCK_SUPERBLOCK (b_bad) == b && BLOCK_START (b_bad) == top_stack->procadr && BLOCK_END (b_bad) == top_stack->procadr) { BLOCK_START (b_bad) = BLOCK_START (b); BLOCK_END (b_bad) = BLOCK_END (b); } } } else if (sh->sc == scText && top_stack->blocktype == stBlock) { /* End of (code) block. The value of the symbol is the displacement from the procedure`s start address of the end of this block. */ BLOCK_END (top_stack->cur_block) = sh->value + top_stack->procadr; shrink_block (top_stack->cur_block, top_stack->cur_st); } else if (sh->sc == scText && top_stack->blocktype == stNil) { /* End of outermost block. Pop parse stack and ignore. The following stEnd of stProc will take care of the block. */ ; } else if (sh->sc == scText && top_stack->blocktype == stFile) { /* End of file. Pop parse stack and ignore. Higher level code deals with this. */ ; } else complain (&stEnd_complaint, sh->sc); pop_parse_stack (); /* restore previous lexical context */ break; case stMember: /* member of struct or union */ f = &TYPE_FIELDS (top_stack->cur_type)[top_stack->cur_field++]; f->name = name; f->bitpos = sh->value; bitsize = 0; f->type = parse_type (cur_fd, ax, sh->index, &bitsize, bigend, name); f->bitsize = bitsize; break; case stIndirect: /* forward declaration on Irix5 */ /* Forward declarations from Irix5 cc are handled by cross_ref, skip them. */ break; case stTypedef: /* type definition */ /* Typedefs for forward declarations and opaque structs from alpha cc are handled by cross_ref, skip them. */ if (sh->iss == 0) break; /* Parse the type or use the pending type. */ pend = is_pending_symbol (cur_fdr, ext_sh); if (pend == (struct mdebug_pending *) NULL) { t = parse_type (cur_fd, ax, sh->index, (int *)NULL, bigend, name); add_pending (cur_fdr, ext_sh, t); } else t = pend->t; /* mips cc puts out a typedef with the name of the struct for forward declarations. These should not go into the symbol table and TYPE_NAME should not be set for them. They can't be distinguished from an intentional typedef to the same name however: x.h: struct x { int ix; int jx; }; struct xx; x.c: typedef struct x x; struct xx {int ixx; int jxx; }; generates a cross referencing stTypedef for x and xx. The user visible effect of this is that the type of a pointer to struct foo sometimes is given as `foo *' instead of `struct foo *'. The problem is fixed with alpha cc and Irix5 cc. */ /* However if the typedef cross references to an opaque aggregate, it is safe to omit it from the symbol table. */ if (has_opaque_xref (cur_fdr, sh)) break; s = new_symbol (name); SYMBOL_NAMESPACE (s) = VAR_NAMESPACE; SYMBOL_CLASS (s) = LOC_TYPEDEF; SYMBOL_BLOCK_VALUE (s) = top_stack->cur_block; SYMBOL_TYPE (s) = t; add_symbol (s, top_stack->cur_block); /* Incomplete definitions of structs should not get a name. */ if (TYPE_NAME (SYMBOL_TYPE (s)) == NULL && (TYPE_NFIELDS (SYMBOL_TYPE (s)) != 0 || (TYPE_CODE (SYMBOL_TYPE (s)) != TYPE_CODE_STRUCT && TYPE_CODE (SYMBOL_TYPE (s)) != TYPE_CODE_UNION))) { if (TYPE_CODE (SYMBOL_TYPE (s)) == TYPE_CODE_PTR || TYPE_CODE (SYMBOL_TYPE (s)) == TYPE_CODE_FUNC) { /* If we are giving a name to a type such as "pointer to foo" or "function returning foo", we better not set the TYPE_NAME. If the program contains "typedef char *caddr_t;", we don't want all variables of type char * to print as caddr_t. This is not just a consequence of GDB's type management; CC and GCC (at least through version 2.4) both output variables of either type char * or caddr_t with the type refering to the stTypedef symbol for caddr_t. If a future compiler cleans this up it GDB is not ready for it yet, but if it becomes ready we somehow need to disable this check (without breaking the PCC/GCC2.4 case). Sigh. Fortunately, this check seems not to be necessary for anything except pointers or functions. */ } else TYPE_NAME (SYMBOL_TYPE (s)) = SYMBOL_NAME (s); } break; case stFile: /* file name */ push_parse_stack (); top_stack->blocktype = sh->st; break; /* I`ve never seen these for C */ case stRegReloc: break; /* register relocation */ case stForward: break; /* forwarding address */ case stConstant: break; /* constant */ default: complain (&unknown_mdebug_symtype_complaint, sh->st); break; } return count; } /* Parse the type information provided in the raw AX entries for the symbol SH. Return the bitfield size in BS, in case. We must byte-swap the AX entries before we use them; BIGEND says whether they are big-endian or little-endian (from fh->fBigendian). */ static struct type * parse_type (fd, ax, aux_index, bs, bigend, sym_name) int fd; union aux_ext *ax; unsigned int aux_index; int *bs; int bigend; char *sym_name; { /* Null entries in this map are treated specially */ static struct type **map_bt[] = { &builtin_type_void, /* btNil */ 0, /* btAdr */ &builtin_type_char, /* btChar */ &builtin_type_unsigned_char,/* btUChar */ &builtin_type_short, /* btShort */ &builtin_type_unsigned_short, /* btUShort */ &builtin_type_int, /* btInt */ &builtin_type_unsigned_int, /* btUInt */ &builtin_type_long, /* btLong */ &builtin_type_unsigned_long,/* btULong */ &builtin_type_float, /* btFloat */ &builtin_type_double, /* btDouble */ 0, /* btStruct */ 0, /* btUnion */ 0, /* btEnum */ 0, /* btTypedef */ 0, /* btRange */ 0, /* btSet */ &mdebug_type_complex, /* btComplex */ &mdebug_type_double_complex, /* btDComplex */ 0, /* btIndirect */ &mdebug_type_fixed_dec, /* btFixedDec */ &mdebug_type_float_dec, /* btFloatDec */ &mdebug_type_string, /* btString */ 0, /* btBit */ 0, /* btPicture */ &builtin_type_void, /* btVoid */ 0, /* DEC C++: Pointer to member */ 0, /* DEC C++: Virtual function table */ 0, /* DEC C++: Class (Record) */ &builtin_type_long, /* btLong64 */ &builtin_type_unsigned_long, /* btULong64 */ &builtin_type_long_long, /* btLongLong64 */ &builtin_type_unsigned_long_long, /* btULongLong64 */ &builtin_type_unsigned_long, /* btAdr64 */ &builtin_type_long, /* btInt64 */ &builtin_type_unsigned_long, /* btUInt64 */ }; TIR t[1]; struct type *tp = 0; enum type_code type_code = TYPE_CODE_UNDEF; /* Handle undefined types, they have indexNil. */ if (aux_index == indexNil) return builtin_type_int; /* Handle corrupt aux indices. */ if (aux_index >= (debug_info->fdr + fd)->caux) { complain (&index_complaint, sym_name); return builtin_type_int; } ax += aux_index; /* Use aux as a type information record, map its basic type. */ (*debug_swap->swap_tir_in) (bigend, &ax->a_ti, t); if (t->bt >= (sizeof (map_bt) / sizeof (*map_bt))) { complain (&basic_type_complaint, t->bt, sym_name); return builtin_type_int; } if (map_bt[t->bt]) { tp = *map_bt[t->bt]; } else { tp = NULL; /* Cannot use builtin types -- build our own */ switch (t->bt) { case btAdr: tp = lookup_pointer_type (builtin_type_void); break; case btStruct: type_code = TYPE_CODE_STRUCT; break; case btUnion: type_code = TYPE_CODE_UNION; break; case btEnum: type_code = TYPE_CODE_ENUM; break; case btRange: type_code = TYPE_CODE_RANGE; break; case btSet: type_code = TYPE_CODE_SET; break; case btTypedef: /* alpha cc uses this for typedefs. The true type will be obtained by crossreferencing below. */ type_code = TYPE_CODE_ERROR; break; default: complain (&basic_type_complaint, t->bt, sym_name); return builtin_type_int; } } /* Move on to next aux */ ax++; if (t->fBitfield) { /* Inhibit core dumps with some cfront generated objects that corrupt the TIR. */ if (bs == (int *)NULL) { complain (&bad_fbitfield_complaint, sym_name); return builtin_type_int; } *bs = AUX_GET_WIDTH (bigend, ax); ax++; } /* All these types really point to some (common) MIPS type definition, and only the type-qualifiers fully identify them. We'll make the same effort at sharing. */ if (t->bt == btStruct || t->bt == btUnion || t->bt == btEnum || /* btSet (I think) implies that the name is a tag name, not a typedef name. This apparently is a MIPS extension for C sets. */ t->bt == btSet) { char *name; /* Try to cross reference this type, build new type on failure. */ ax += cross_ref (fd, ax, &tp, type_code, &name, bigend, sym_name); if (tp == (struct type *) NULL) tp = init_type (type_code, 0, 0, (char *) NULL, current_objfile); /* DEC c89 produces cross references to qualified aggregate types, dereference them. */ while (TYPE_CODE (tp) == TYPE_CODE_PTR || TYPE_CODE (tp) == TYPE_CODE_ARRAY) tp = tp->target_type; /* Make sure that TYPE_CODE(tp) has an expected type code. Any type may be returned from cross_ref if file indirect entries are corrupted. */ if (TYPE_CODE (tp) != TYPE_CODE_STRUCT && TYPE_CODE (tp) != TYPE_CODE_UNION && TYPE_CODE (tp) != TYPE_CODE_ENUM) { complain (&unexpected_type_code_complaint, sym_name); } else { /* Usually, TYPE_CODE(tp) is already type_code. The main exception is if we guessed wrong re struct/union/enum. But for struct vs. union a wrong guess is harmless, so don't complain(). */ if ((TYPE_CODE (tp) == TYPE_CODE_ENUM && type_code != TYPE_CODE_ENUM) || (TYPE_CODE (tp) != TYPE_CODE_ENUM && type_code == TYPE_CODE_ENUM)) { complain (&bad_tag_guess_complaint, sym_name); } if (TYPE_CODE (tp) != type_code) { TYPE_CODE (tp) = type_code; } /* Do not set the tag name if it is a compiler generated tag name (.Fxx or .xxfake or empty) for unnamed struct/union/enums. */ if (name[0] == '.' || name[0] == '\0') TYPE_TAG_NAME (tp) = NULL; else if (TYPE_TAG_NAME (tp) == NULL || !STREQ (TYPE_TAG_NAME (tp), name)) TYPE_TAG_NAME (tp) = obsavestring (name, strlen (name), ¤t_objfile->type_obstack); } } /* All these types really point to some (common) MIPS type definition, and only the type-qualifiers fully identify them. We'll make the same effort at sharing. FIXME: btIndirect cannot happen here as it is handled by the switch t->bt above. And we are not doing any guessing on range types. */ if (t->bt == btIndirect || t->bt == btRange) { char *name; /* Try to cross reference this type, build new type on failure. */ ax += cross_ref (fd, ax, &tp, type_code, &name, bigend, sym_name); if (tp == (struct type *) NULL) tp = init_type (type_code, 0, 0, (char *) NULL, current_objfile); /* Make sure that TYPE_CODE(tp) has an expected type code. Any type may be returned from cross_ref if file indirect entries are corrupted. */ if (TYPE_CODE (tp) != TYPE_CODE_RANGE) { complain (&unexpected_type_code_complaint, sym_name); } else { /* Usually, TYPE_CODE(tp) is already type_code. The main exception is if we guessed wrong re struct/union/enum. */ if (TYPE_CODE (tp) != type_code) { complain (&bad_tag_guess_complaint, sym_name); TYPE_CODE (tp) = type_code; } if (TYPE_NAME (tp) == NULL || !STREQ (TYPE_NAME (tp), name)) TYPE_NAME (tp) = obsavestring (name, strlen (name), ¤t_objfile->type_obstack); } } if (t->bt == btTypedef) { char *name; /* Try to cross reference this type, it should succeed. */ ax += cross_ref (fd, ax, &tp, type_code, &name, bigend, sym_name); if (tp == (struct type *) NULL) { complain (&unable_to_cross_ref_complaint, sym_name); tp = builtin_type_int; } } /* Deal with range types */ if (t->bt == btRange) { TYPE_NFIELDS (tp) = 2; TYPE_FIELDS (tp) = ((struct field *) TYPE_ALLOC (tp, 2 * sizeof (struct field))); TYPE_FIELD_NAME (tp, 0) = obsavestring ("Low", strlen ("Low"), ¤t_objfile->type_obstack); TYPE_FIELD_BITPOS (tp, 0) = AUX_GET_DNLOW (bigend, ax); ax++; TYPE_FIELD_NAME (tp, 1) = obsavestring ("High", strlen ("High"), ¤t_objfile->type_obstack); TYPE_FIELD_BITPOS (tp, 1) = AUX_GET_DNHIGH (bigend, ax); ax++; } /* Parse all the type qualifiers now. If there are more than 6 the game will continue in the next aux */ while (1) { #define PARSE_TQ(tq) \ if (t->tq != tqNil) \ ax += upgrade_type(fd, &tp, t->tq, ax, bigend, sym_name); \ else \ break; PARSE_TQ (tq0); PARSE_TQ (tq1); PARSE_TQ (tq2); PARSE_TQ (tq3); PARSE_TQ (tq4); PARSE_TQ (tq5); #undef PARSE_TQ /* mips cc 2.x and gcc never put out continued aux entries. */ if (!t->continued) break; (*debug_swap->swap_tir_in) (bigend, &ax->a_ti, t); ax++; } /* Complain for illegal continuations due to corrupt aux entries. */ if (t->continued) complain (&bad_continued_complaint, sym_name); return tp; } /* Make up a complex type from a basic one. Type is passed by reference in TPP and side-effected as necessary. The type qualifier TQ says how to handle the aux symbols at AX for the symbol SX we are currently analyzing. BIGEND says whether aux symbols are big-endian or little-endian. Returns the number of aux symbols we parsed. */ static int upgrade_type (fd, tpp, tq, ax, bigend, sym_name) int fd; struct type **tpp; int tq; union aux_ext *ax; int bigend; char *sym_name; { int off; struct type *t; /* Used in array processing */ int rf, id; FDR *fh; struct type *range; struct type *indx; int lower, upper; RNDXR rndx; switch (tq) { case tqPtr: t = lookup_pointer_type (*tpp); *tpp = t; return 0; case tqProc: t = lookup_function_type (*tpp); *tpp = t; return 0; case tqArray: off = 0; /* Determine and record the domain type (type of index) */ (*debug_swap->swap_rndx_in) (bigend, &ax->a_rndx, &rndx); id = rndx.index; rf = rndx.rfd; if (rf == 0xfff) { ax++; rf = AUX_GET_ISYM (bigend, ax); off++; } fh = get_rfd (fd, rf); indx = parse_type (fd, debug_info->external_aux + fh->iauxBase, id, (int *) NULL, bigend, sym_name); /* The bounds type should be an integer type, but might be anything else due to corrupt aux entries. */ if (TYPE_CODE (indx) != TYPE_CODE_INT) { complain (&array_index_type_complaint, sym_name); indx = builtin_type_int; } /* Get the bounds, and create the array type. */ ax++; lower = AUX_GET_DNLOW (bigend, ax); ax++; upper = AUX_GET_DNHIGH (bigend, ax); ax++; rf = AUX_GET_WIDTH (bigend, ax); /* bit size of array element */ range = create_range_type ((struct type *) NULL, indx, lower, upper); t = create_array_type ((struct type *) NULL, *tpp, range); /* We used to fill in the supplied array element bitsize here if the TYPE_LENGTH of the target type was zero. This happens for a `pointer to an array of anonymous structs', but in this case the array element bitsize is also zero, so nothing is gained. And we used to check the TYPE_LENGTH of the target type against the supplied array element bitsize. gcc causes a mismatch for `pointer to array of object', since the sdb directives it uses do not have a way of specifying the bitsize, but it does no harm (the TYPE_LENGTH should be correct) and we should be able to ignore the erroneous bitsize from the auxiliary entry safely. dbx seems to ignore it too. */ *tpp = t; return 4 + off; case tqVol: /* Volatile -- currently ignored */ return 0; case tqConst: /* Const -- currently ignored */ return 0; default: complain (&unknown_type_qual_complaint, tq); return 0; } } /* Parse a procedure descriptor record PR. Note that the procedure is parsed _after_ the local symbols, now we just insert the extra information we need into a MIPS_EFI_SYMBOL_NAME symbol that has already been placed in the procedure's main block. Note also that images that have been partially stripped (ld -x) have been deprived of local symbols, and we have to cope with them here. FIRST_OFF is the offset of the first procedure for this FDR; we adjust the address by this amount, but I don't know why. SEARCH_SYMTAB is the symtab to look for the function which contains the MIPS_EFI_SYMBOL_NAME symbol in question, or NULL to use top_stack->cur_block. */ static void parse_procedure PARAMS ((PDR *, struct symtab *, unsigned long, struct partial_symtab *)); static void parse_procedure (pr, search_symtab, first_off, pst) PDR *pr; struct symtab *search_symtab; unsigned long first_off; struct partial_symtab *pst; { struct symbol *s, *i; struct block *b; struct mips_extra_func_info *e; char *sh_name; /* Simple rule to find files linked "-x" */ if (cur_fdr->rss == -1) { if (pr->isym == -1) { /* Static procedure at address pr->adr. Sigh. */ /* FIXME-32x64. assuming pr->adr fits in long. */ complain (&pdr_static_symbol_complaint, (unsigned long) pr->adr); return; } else { /* external */ EXTR she; (*debug_swap->swap_ext_in) (cur_bfd, ((char *) debug_info->external_ext + (pr->isym * debug_swap->external_ext_size)), &she); sh_name = debug_info->ssext + she.asym.iss; } } else { /* Full symbols */ SYMR sh; (*debug_swap->swap_sym_in) (cur_bfd, ((char *) debug_info->external_sym + ((cur_fdr->isymBase + pr->isym) * debug_swap->external_sym_size)), &sh); sh_name = debug_info->ss + cur_fdr->issBase + sh.iss; } if (search_symtab != NULL) { #if 0 /* This loses both in the case mentioned (want a static, find a global), but also if we are looking up a non-mangled name which happens to match the name of a mangled function. */ /* We have to save the cur_fdr across the call to lookup_symbol. If the pdr is for a static function and if a global function with the same name exists, lookup_symbol will eventually read in the symtab for the global function and clobber cur_fdr. */ FDR *save_cur_fdr = cur_fdr; s = lookup_symbol (sh_name, NULL, VAR_NAMESPACE, 0, NULL); cur_fdr = save_cur_fdr; #else s = mylookup_symbol (sh_name, BLOCKVECTOR_BLOCK (BLOCKVECTOR (search_symtab), STATIC_BLOCK), VAR_NAMESPACE, LOC_BLOCK); #endif } else s = mylookup_symbol (sh_name, top_stack->cur_block, VAR_NAMESPACE, LOC_BLOCK); if (s != 0) { b = SYMBOL_BLOCK_VALUE (s); } else { complain (&pdr_for_nonsymbol_complaint, sh_name); #if 1 return; #else /* FIXME -- delete. We can't do symbol allocation now; it's all done. */ s = new_symbol (sh_name); SYMBOL_NAMESPACE (s) = VAR_NAMESPACE; SYMBOL_CLASS (s) = LOC_BLOCK; /* Donno its type, hope int is ok */ SYMBOL_TYPE (s) = lookup_function_type (builtin_type_int); add_symbol (s, top_stack->cur_block); /* Wont have symbols for this one */ b = new_block (2); SYMBOL_BLOCK_VALUE (s) = b; BLOCK_FUNCTION (b) = s; BLOCK_START (b) = pr->adr; /* BOUND used to be the end of procedure's text, but the argument is no longer passed in. */ BLOCK_END (b) = bound; BLOCK_SUPERBLOCK (b) = top_stack->cur_block; add_block (b, top_stack->cur_st); #endif } i = mylookup_symbol (MIPS_EFI_SYMBOL_NAME, b, LABEL_NAMESPACE, LOC_CONST); if (i) { e = (struct mips_extra_func_info *) SYMBOL_VALUE (i); e->pdr = *pr; e->pdr.isym = (long) s; e->pdr.adr += pst->textlow - first_off; /* Correct incorrect setjmp procedure descriptor from the library to make backtrace through setjmp work. */ if (e->pdr.pcreg == 0 && STREQ (sh_name, "setjmp")) { complain (&bad_setjmp_pdr_complaint, 0); e->pdr.pcreg = RA_REGNUM; e->pdr.regmask = 0x80000000; e->pdr.regoffset = -4; } } } /* Relocate the extra function info pointed to by the symbol table. */ void ecoff_relocate_efi (sym, delta) struct symbol *sym; CORE_ADDR delta; { struct mips_extra_func_info *e; e = (struct mips_extra_func_info *) SYMBOL_VALUE (sym); e->pdr.adr += delta; } /* Parse the external symbol ES. Just call parse_symbol() after making sure we know where the aux are for it. BIGEND says whether aux entries are big-endian or little-endian. This routine clobbers top_stack->cur_block and ->cur_st. */ static void parse_external PARAMS ((EXTR *, int, struct section_offsets *)); static void parse_external (es, bigend, section_offsets) EXTR *es; int bigend; struct section_offsets *section_offsets; { union aux_ext *ax; if (es->ifd != ifdNil) { cur_fd = es->ifd; cur_fdr = debug_info->fdr + cur_fd; ax = debug_info->external_aux + cur_fdr->iauxBase; } else { cur_fdr = debug_info->fdr; ax = 0; } /* Reading .o files */ if (es->asym.sc == scUndefined || es->asym.sc == scNil) { char *what; switch (es->asym.st) { case stNil: /* These are generated for static symbols in .o files, ignore them. */ return; case stStaticProc: case stProc: what = "procedure"; n_undef_procs++; break; case stGlobal: what = "variable"; n_undef_vars++; break; case stLabel: what = "label"; n_undef_labels++; break; default: what = "symbol"; break; } n_undef_symbols++; /* FIXME: Turn this into a complaint? */ if (info_verbose) printf_filtered ("Warning: %s `%s' is undefined (in %s)\n", what, debug_info->ssext + es->asym.iss, fdr_name (cur_fdr)); return; } switch (es->asym.st) { case stProc: case stStaticProc: /* There is no need to parse the external procedure symbols. If they are from objects compiled without -g, their index will be indexNil, and the symbol definition from the minimal symbol is preferrable (yielding a function returning int instead of int). If the index points to a local procedure symbol, the local symbol already provides the correct type. Note that the index of the external procedure symbol points to the local procedure symbol in the local symbol table, and _not_ to the auxiliary symbol info. */ break; case stGlobal: case stLabel: /* Note that the case of a symbol with indexNil must be handled anyways by parse_symbol(). */ parse_symbol (&es->asym, ax, (char *) NULL, bigend, section_offsets); break; default: break; } } /* Parse the line number info for file descriptor FH into GDB's linetable LT. MIPS' encoding requires a little bit of magic to get things out. Note also that MIPS' line numbers can go back and forth, apparently we can live with that and do not need to reorder our linetables */ static void parse_lines PARAMS ((FDR *, PDR *, struct linetable *, int, struct partial_symtab *)); static void parse_lines (fh, pr, lt, maxlines, pst) FDR *fh; PDR *pr; struct linetable *lt; int maxlines; struct partial_symtab *pst; { unsigned char *base; int j, k; int delta, count, lineno = 0; unsigned long first_off = pr->adr; if (fh->cbLine == 0) return; /* Scan by procedure descriptors */ k = 0; for (j = 0; j < fh->cpd; j++, pr++) { long l; unsigned long adr; unsigned char *halt; /* No code for this one */ if (pr->iline == ilineNil || pr->lnLow == -1 || pr->lnHigh == -1) continue; /* Determine start and end address of compressed line bytes for this procedure. */ base = debug_info->line + fh->cbLineOffset; if (j != (fh->cpd - 1)) halt = base + pr[1].cbLineOffset; else halt = base + fh->cbLine; base += pr->cbLineOffset; adr = pst->textlow + pr->adr - first_off; l = adr >> 2; /* in words */ for (lineno = pr->lnLow; base < halt; ) { count = *base & 0x0f; delta = *base++ >> 4; if (delta >= 8) delta -= 16; if (delta == -8) { delta = (base[0] << 8) | base[1]; if (delta >= 0x8000) delta -= 0x10000; base += 2; } lineno += delta; /* first delta is 0 */ /* Complain if the line table overflows. Could happen with corrupt binaries. */ if (lt->nitems >= maxlines) { complain (&bad_linetable_guess_complaint, fdr_name (fh)); break; } k = add_line (lt, lineno, l, k); l += count + 1; } } } /* Master parsing procedure for first-pass reading of file symbols into a partial_symtab. */ static void parse_partial_symbols (objfile, section_offsets) struct objfile *objfile; struct section_offsets *section_offsets; { const bfd_size_type external_sym_size = debug_swap->external_sym_size; const bfd_size_type external_rfd_size = debug_swap->external_rfd_size; const bfd_size_type external_ext_size = debug_swap->external_ext_size; void (* const swap_ext_in) PARAMS ((bfd *, PTR, EXTR *)) = debug_swap->swap_ext_in; void (* const swap_sym_in) PARAMS ((bfd *, PTR, SYMR *)) = debug_swap->swap_sym_in; void (* const swap_rfd_in) PARAMS ((bfd *, PTR, RFDT *)) = debug_swap->swap_rfd_in; int f_idx, s_idx; HDRR *hdr = &debug_info->symbolic_header; /* Running pointers */ FDR *fh; char *ext_out; char *ext_out_end; EXTR *ext_block; register EXTR *ext_in; EXTR *ext_in_end; SYMR sh; struct partial_symtab *pst; int past_first_source_file = 0; /* List of current psymtab's include files */ char **psymtab_include_list; int includes_allocated; int includes_used; EXTR *extern_tab; struct pst_map *fdr_to_pst; /* Index within current psymtab dependency list */ struct partial_symtab **dependency_list; int dependencies_used, dependencies_allocated; struct cleanup *old_chain; char *name; enum language prev_language; asection *text_sect; int relocatable = 0; /* Irix 5.2 shared libraries have a fh->adr field of zero, but the shared libraries are prelinked at a high memory address. We have to adjust the start address of the object file for this case, by setting it to the start address of the first procedure in the file. But we should do no adjustments if we are debugging a .o file, where the text section (and fh->adr) really starts at zero. */ text_sect = bfd_get_section_by_name (cur_bfd, ".text"); if (text_sect != NULL && (bfd_get_section_flags (cur_bfd, text_sect) & SEC_RELOC)) relocatable = 1; extern_tab = (EXTR *) obstack_alloc (&objfile->psymbol_obstack, sizeof (EXTR) * hdr->iextMax); includes_allocated = 30; includes_used = 0; psymtab_include_list = (char **) alloca (includes_allocated * sizeof (char *)); next_symbol_text_func = mdebug_next_symbol_text; dependencies_allocated = 30; dependencies_used = 0; dependency_list = (struct partial_symtab **) alloca (dependencies_allocated * sizeof (struct partial_symtab *)); last_source_file = NULL; /* * Big plan: * * Only parse the Local and External symbols, and the Relative FDR. * Fixup enough of the loader symtab to be able to use it. * Allocate space only for the file's portions we need to * look at. (XXX) */ max_gdbinfo = 0; max_glevel = MIN_GLEVEL; /* Allocate the map FDR -> PST. Minor hack: -O3 images might claim some global data belongs to FDR -1. We`ll go along with that */ fdr_to_pst = (struct pst_map *) xzalloc ((hdr->ifdMax + 1) * sizeof *fdr_to_pst); old_chain = make_cleanup (free, fdr_to_pst); fdr_to_pst++; { struct partial_symtab *pst = new_psymtab ("", objfile, section_offsets); fdr_to_pst[-1].pst = pst; FDR_IDX (pst) = -1; } /* Allocate the global pending list. */ pending_list = ((struct mdebug_pending **) obstack_alloc (&objfile->psymbol_obstack, hdr->ifdMax * sizeof (struct mdebug_pending *))); memset ((PTR) pending_list, 0, hdr->ifdMax * sizeof (struct mdebug_pending *)); /* Pass 0 over external syms: swap them in. */ ext_block = (EXTR *) xmalloc (hdr->iextMax * sizeof (EXTR)); make_cleanup (free, ext_block); ext_out = (char *) debug_info->external_ext; ext_out_end = ext_out + hdr->iextMax * external_ext_size; ext_in = ext_block; for (; ext_out < ext_out_end; ext_out += external_ext_size, ext_in++) (*swap_ext_in) (cur_bfd, ext_out, ext_in); /* Pass 1 over external syms: Presize and partition the list */ ext_in = ext_block; ext_in_end = ext_in + hdr->iextMax; for (; ext_in < ext_in_end; ext_in++) { /* See calls to complain below. */ if (ext_in->ifd >= -1 && ext_in->ifd < hdr->ifdMax && ext_in->asym.iss >= 0 && ext_in->asym.iss < hdr->issExtMax) fdr_to_pst[ext_in->ifd].n_globals++; } /* Pass 1.5 over files: partition out global symbol space */ s_idx = 0; for (f_idx = -1; f_idx < hdr->ifdMax; f_idx++) { fdr_to_pst[f_idx].globals_offset = s_idx; s_idx += fdr_to_pst[f_idx].n_globals; fdr_to_pst[f_idx].n_globals = 0; } /* Pass 2 over external syms: fill in external symbols */ ext_in = ext_block; ext_in_end = ext_in + hdr->iextMax; for (; ext_in < ext_in_end; ext_in++) { enum minimal_symbol_type ms_type = mst_text; CORE_ADDR svalue = ext_in->asym.value; /* The Irix 5 native tools seem to sometimes generate bogus external symbols. */ if (ext_in->ifd < -1 || ext_in->ifd >= hdr->ifdMax) { complain (&bad_ext_ifd_complaint, ext_in->ifd, hdr->ifdMax); continue; } if (ext_in->asym.iss < 0 || ext_in->asym.iss >= hdr->issExtMax) { complain (&bad_ext_iss_complaint, ext_in->asym.iss, hdr->issExtMax); continue; } extern_tab[fdr_to_pst[ext_in->ifd].globals_offset + fdr_to_pst[ext_in->ifd].n_globals++] = *ext_in; if (ext_in->asym.sc == scUndefined || ext_in->asym.sc == scNil) continue; name = debug_info->ssext + ext_in->asym.iss; switch (ext_in->asym.st) { case stProc: svalue += ANOFFSET (section_offsets, SECT_OFF_TEXT); break; case stStaticProc: ms_type = mst_file_text; svalue += ANOFFSET (section_offsets, SECT_OFF_TEXT); break; case stGlobal: if (ext_in->asym.sc == scCommon) { /* The value of a common symbol is its size, not its address. Ignore it. */ continue; } else if (ext_in->asym.sc == scData || ext_in->asym.sc == scSData || ext_in->asym.sc == scRData || ext_in->asym.sc == scPData || ext_in->asym.sc == scXData) { ms_type = mst_data; svalue += ANOFFSET (section_offsets, SECT_OFF_DATA); } else { ms_type = mst_bss; svalue += ANOFFSET (section_offsets, SECT_OFF_BSS); } break; case stLabel: if (ext_in->asym.sc == scAbs) ms_type = mst_abs; else if (ext_in->asym.sc == scText || ext_in->asym.sc == scInit || ext_in->asym.sc == scFini) { ms_type = mst_file_text; svalue += ANOFFSET (section_offsets, SECT_OFF_TEXT); } else if (ext_in->asym.sc == scData || ext_in->asym.sc == scSData || ext_in->asym.sc == scRData || ext_in->asym.sc == scPData || ext_in->asym.sc == scXData) { ms_type = mst_file_data; svalue += ANOFFSET (section_offsets, SECT_OFF_DATA); } else { ms_type = mst_file_bss; svalue += ANOFFSET (section_offsets, SECT_OFF_BSS); } break; case stLocal: /* The alpha has the section start addresses in stLocal symbols whose name starts with a `.'. Skip those but complain for all other stLocal symbols. */ if (name[0] == '.') continue; /* Fall through. */ default: ms_type = mst_unknown; complain (&unknown_ext_complaint, name); } prim_record_minimal_symbol (name, svalue, ms_type, objfile); } /* Pass 3 over files, over local syms: fill in static symbols */ for (f_idx = 0; f_idx < hdr->ifdMax; f_idx++) { struct partial_symtab *save_pst; EXTR *ext_ptr; CORE_ADDR textlow; cur_fdr = fh = debug_info->fdr + f_idx; if (fh->csym == 0) { fdr_to_pst[f_idx].pst = NULL; continue; } /* Determine the start address for this object file from the file header and relocate it, except for Irix 5.2 zero fh->adr. */ if (fh->cpd) { textlow = fh->adr; if (relocatable || textlow != 0) textlow += ANOFFSET (section_offsets, SECT_OFF_TEXT); } else textlow = 0; pst = start_psymtab_common (objfile, section_offsets, fdr_name (fh), textlow, objfile->global_psymbols.next, objfile->static_psymbols.next); pst->read_symtab_private = ((char *) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct symloc))); memset ((PTR) pst->read_symtab_private, 0, sizeof (struct symloc)); save_pst = pst; FDR_IDX (pst) = f_idx; CUR_BFD (pst) = cur_bfd; DEBUG_SWAP (pst) = debug_swap; DEBUG_INFO (pst) = debug_info; PENDING_LIST (pst) = pending_list; /* The way to turn this into a symtab is to call... */ pst->read_symtab = mdebug_psymtab_to_symtab; /* Set up language for the pst. The language from the FDR is used if it is unambigious (e.g. cfront with native cc and g++ will set the language to C). Otherwise we have to deduce the language from the filename. Native ecoff has every header file in a separate FDR, so deduce_language_from_filename will return language_unknown for a header file, which is not what we want. But the FDRs for the header files are after the FDR for the source file, so we can assign the language of the source file to the following header files. Then we save the language in the private pst data so that we can reuse it when building symtabs. */ prev_language = psymtab_language; switch (fh->lang) { case langCplusplusV2: psymtab_language = language_cplus; break; default: psymtab_language = deduce_language_from_filename (fdr_name (fh)); break; } if (psymtab_language == language_unknown) psymtab_language = prev_language; PST_PRIVATE (pst)->pst_language = psymtab_language; pst->texthigh = pst->textlow; /* For stabs-in-ecoff files, the second symbol must be @stab. This symbol is emitted by mips-tfile to signal that the current object file uses encapsulated stabs instead of mips ecoff for local symbols. (It is the second symbol because the first symbol is the stFile used to signal the start of a file). */ processing_gcc_compilation = 0; if (fh->csym >= 2) { (*swap_sym_in) (cur_bfd, ((char *) debug_info->external_sym + (fh->isymBase + 1) * external_sym_size), &sh); if (STREQ (debug_info->ss + fh->issBase + sh.iss, stabs_symbol)) processing_gcc_compilation = 2; } if (processing_gcc_compilation != 0) { for (cur_sdx = 2; cur_sdx < fh->csym; cur_sdx++) { int type_code; char *namestring; (*swap_sym_in) (cur_bfd, (((char *) debug_info->external_sym) + (fh->isymBase + cur_sdx) * external_sym_size), &sh); type_code = ECOFF_UNMARK_STAB (sh.index); if (!ECOFF_IS_STAB (&sh)) { if (sh.st == stProc || sh.st == stStaticProc) { long procaddr; long isym; sh.value += ANOFFSET (section_offsets, SECT_OFF_TEXT); if (sh.st == stStaticProc) { namestring = debug_info->ss + fh->issBase + sh.iss; prim_record_minimal_symbol_and_info (namestring, sh.value, mst_file_text, NULL, SECT_OFF_TEXT, objfile); } procaddr = sh.value; isym = AUX_GET_ISYM (fh->fBigendian, (debug_info->external_aux + fh->iauxBase + sh.index)); (*swap_sym_in) (cur_bfd, ((char *) debug_info->external_sym + ((fh->isymBase + isym - 1) * external_sym_size)), &sh); if (sh.st == stEnd) { long high = procaddr + sh.value; /* Kludge for Irix 5.2 zero fh->adr. */ if (!relocatable && (pst->textlow == 0 || procaddr < pst->textlow)) pst->textlow = procaddr; if (high > pst->texthigh) pst->texthigh = high; } } else if (sh.st == stStatic) { switch (sh.sc) { case scUndefined: case scNil: case scAbs: break; case scData: case scSData: case scRData: case scPData: case scXData: namestring = debug_info->ss + fh->issBase + sh.iss; sh.value += ANOFFSET (section_offsets, SECT_OFF_DATA); prim_record_minimal_symbol_and_info (namestring, sh.value, mst_file_data, NULL, SECT_OFF_DATA, objfile); break; default: namestring = debug_info->ss + fh->issBase + sh.iss; sh.value += ANOFFSET (section_offsets, SECT_OFF_BSS); prim_record_minimal_symbol_and_info (namestring, sh.value, mst_file_bss, NULL, SECT_OFF_BSS, objfile); break; } } continue; } #define SET_NAMESTRING() \ namestring = debug_info->ss + fh->issBase + sh.iss #define CUR_SYMBOL_TYPE type_code #define CUR_SYMBOL_VALUE sh.value #define START_PSYMTAB(ofile,secoff,fname,low,symoff,global_syms,static_syms)\ pst = save_pst #define END_PSYMTAB(pst,ilist,ninc,c_off,c_text,dep_list,n_deps) (void)0 #define HANDLE_RBRAC(val) \ if ((val) > save_pst->texthigh) save_pst->texthigh = (val); #include "partial-stab.h" } } else { for (cur_sdx = 0; cur_sdx < fh->csym;) { char *name; enum address_class class; (*swap_sym_in) (cur_bfd, ((char *) debug_info->external_sym + ((fh->isymBase + cur_sdx) * external_sym_size)), &sh); if (ECOFF_IS_STAB (&sh)) { cur_sdx++; continue; } /* Non absolute static symbols go into the minimal table. */ if (sh.sc == scUndefined || sh.sc == scNil || (sh.index == indexNil && (sh.st != stStatic || sh.sc == scAbs))) { /* FIXME, premature? */ cur_sdx++; continue; } name = debug_info->ss + fh->issBase + sh.iss; switch (sh.sc) { case scText: /* The value of a stEnd symbol is the displacement from the corresponding start symbol value, do not relocate it. */ if (sh.st != stEnd) sh.value += ANOFFSET (section_offsets, SECT_OFF_TEXT); break; case scData: case scSData: case scRData: case scPData: case scXData: sh.value += ANOFFSET (section_offsets, SECT_OFF_DATA); break; case scBss: case scSBss: sh.value += ANOFFSET (section_offsets, SECT_OFF_BSS); break; } switch (sh.st) { long high; long procaddr; int new_sdx; case stStaticProc: prim_record_minimal_symbol_and_info (name, sh.value, mst_file_text, NULL, SECT_OFF_TEXT, objfile); /* FALLTHROUGH */ case stProc: /* Usually there is a local and a global stProc symbol for a function. This means that the function name has already been entered into the mimimal symbol table while processing the global symbols in pass 2 above. One notable exception is the PROGRAM name from f77 compiled executables, it is only put out as local stProc symbol, and a global MAIN__ stProc symbol points to it. It doesn't matter though, as gdb is still able to find the PROGRAM name via the partial symbol table, and the MAIN__ symbol via the minimal symbol table. */ if (sh.st == stProc) ADD_PSYMBOL_TO_LIST (name, strlen (name), VAR_NAMESPACE, LOC_BLOCK, objfile->global_psymbols, sh.value, psymtab_language, objfile); else ADD_PSYMBOL_TO_LIST (name, strlen (name), VAR_NAMESPACE, LOC_BLOCK, objfile->static_psymbols, sh.value, psymtab_language, objfile); /* Skip over procedure to next one. */ if (sh.index >= hdr->iauxMax) { /* Should not happen, but does when cross-compiling with the MIPS compiler. FIXME -- pull later. */ complain (&index_complaint, name); new_sdx = cur_sdx + 1; /* Don't skip at all */ } else new_sdx = AUX_GET_ISYM (fh->fBigendian, (debug_info->external_aux + fh->iauxBase + sh.index)); procaddr = sh.value; if (new_sdx <= cur_sdx) { /* This should not happen either... FIXME. */ complain (&aux_index_complaint, name); new_sdx = cur_sdx + 1; /* Don't skip backward */ } cur_sdx = new_sdx; (*swap_sym_in) (cur_bfd, ((char *) debug_info->external_sym + ((fh->isymBase + cur_sdx - 1) * external_sym_size)), &sh); if (sh.st != stEnd) continue; /* Kludge for Irix 5.2 zero fh->adr. */ if (!relocatable && (pst->textlow == 0 || procaddr < pst->textlow)) pst->textlow = procaddr; high = procaddr + sh.value; if (high > pst->texthigh) pst->texthigh = high; continue; case stStatic: /* Variable */ if (sh.sc == scData || sh.sc == scSData || sh.sc == scRData || sh.sc == scPData || sh.sc == scXData) prim_record_minimal_symbol_and_info (name, sh.value, mst_file_data, NULL, SECT_OFF_DATA, objfile); else prim_record_minimal_symbol_and_info (name, sh.value, mst_file_bss, NULL, SECT_OFF_BSS, objfile); class = LOC_STATIC; break; case stIndirect:/* Irix5 forward declaration */ /* Skip forward declarations from Irix5 cc */ goto skip; case stTypedef:/* Typedef */ /* Skip typedefs for forward declarations and opaque structs from alpha and mips cc. */ if (sh.iss == 0 || has_opaque_xref (fh, &sh)) goto skip; class = LOC_TYPEDEF; break; case stConstant: /* Constant decl */ class = LOC_CONST; break; case stUnion: case stStruct: case stEnum: case stBlock: /* { }, str, un, enum*/ /* Do not create a partial symbol for cc unnamed aggregates and gcc empty aggregates. */ if ((sh.sc == scInfo || sh.sc == scCommon) && sh.iss != 0 && sh.index != cur_sdx + 2) { ADD_PSYMBOL_TO_LIST (name, strlen (name), STRUCT_NAMESPACE, LOC_TYPEDEF, objfile->static_psymbols, sh.value, psymtab_language, objfile); } handle_psymbol_enumerators (objfile, fh, sh.st); /* Skip over the block */ new_sdx = sh.index; if (new_sdx <= cur_sdx) { /* This happens with the Ultrix kernel. */ complain (&block_index_complaint, name); new_sdx = cur_sdx + 1; /* Don't skip backward */ } cur_sdx = new_sdx; continue; case stFile: /* File headers */ case stLabel: /* Labels */ case stEnd: /* Ends of files */ goto skip; case stLocal: /* Local variables */ /* Normally these are skipped because we skip over all blocks we see. However, these can occur as visible symbols in a .h file that contains code. */ goto skip; default: /* Both complaints are valid: one gives symbol name, the other the offending symbol type. */ complain (&unknown_sym_complaint, name); complain (&unknown_st_complaint, sh.st); cur_sdx++; continue; } /* Use this gdb symbol */ ADD_PSYMBOL_TO_LIST (name, strlen (name), VAR_NAMESPACE, class, objfile->static_psymbols, sh.value, psymtab_language, objfile); skip: cur_sdx++; /* Go to next file symbol */ } /* Now do enter the external symbols. */ ext_ptr = &extern_tab[fdr_to_pst[f_idx].globals_offset]; cur_sdx = fdr_to_pst[f_idx].n_globals; PST_PRIVATE (save_pst)->extern_count = cur_sdx; PST_PRIVATE (save_pst)->extern_tab = ext_ptr; for (; --cur_sdx >= 0; ext_ptr++) { enum address_class class; SYMR *psh; char *name; CORE_ADDR svalue; if (ext_ptr->ifd != f_idx) abort (); psh = &ext_ptr->asym; /* Do not add undefined symbols to the partial symbol table. */ if (psh->sc == scUndefined || psh->sc == scNil) continue; svalue = psh->value; switch (psh->sc) { case scText: svalue += ANOFFSET (section_offsets, SECT_OFF_TEXT); break; case scData: case scSData: case scRData: case scPData: case scXData: svalue += ANOFFSET (section_offsets, SECT_OFF_DATA); break; case scBss: case scSBss: svalue += ANOFFSET (section_offsets, SECT_OFF_BSS); break; } switch (psh->st) { case stNil: /* These are generated for static symbols in .o files, ignore them. */ continue; case stProc: case stStaticProc: /* External procedure symbols have been entered into the minimal symbol table in pass 2 above. Ignore them, as parse_external will ignore them too. */ continue; case stLabel: class = LOC_LABEL; break; default: complain (&unknown_ext_complaint, debug_info->ssext + psh->iss); /* Fall through, pretend it's global. */ case stGlobal: class = LOC_STATIC; break; } name = debug_info->ssext + psh->iss; ADD_PSYMBOL_ADDR_TO_LIST (name, strlen (name), VAR_NAMESPACE, class, objfile->global_psymbols, svalue, psymtab_language, objfile); } } /* Link pst to FDR. end_psymtab returns NULL if the psymtab was empty and put on the free list. */ fdr_to_pst[f_idx].pst = end_psymtab (save_pst, psymtab_include_list, includes_used, -1, save_pst->texthigh, dependency_list, dependencies_used); if (objfile->ei.entry_point >= save_pst->textlow && objfile->ei.entry_point < save_pst->texthigh) { objfile->ei.entry_file_lowpc = save_pst->textlow; objfile->ei.entry_file_highpc = save_pst->texthigh; } } /* Now scan the FDRs for dependencies */ for (f_idx = 0; f_idx < hdr->ifdMax; f_idx++) { fh = f_idx + debug_info->fdr; pst = fdr_to_pst[f_idx].pst; if (pst == (struct partial_symtab *)NULL) continue; /* This should catch stabs-in-ecoff. */ if (fh->crfd <= 1) continue; /* Skip the first file indirect entry as it is a self dependency for source files or a reverse .h -> .c dependency for header files. */ pst->number_of_dependencies = 0; pst->dependencies = ((struct partial_symtab **) obstack_alloc (&objfile->psymbol_obstack, ((fh->crfd - 1) * sizeof (struct partial_symtab *)))); for (s_idx = 1; s_idx < fh->crfd; s_idx++) { RFDT rh; (*swap_rfd_in) (cur_bfd, ((char *) debug_info->external_rfd + (fh->rfdBase + s_idx) * external_rfd_size), &rh); if (rh < 0 || rh >= hdr->ifdMax) { complain (&bad_file_number_complaint, rh); continue; } /* Skip self dependencies of header files. */ if (rh == f_idx) continue; /* Do not add to dependeny list if psymtab was empty. */ if (fdr_to_pst[rh].pst == (struct partial_symtab *)NULL) continue; pst->dependencies[pst->number_of_dependencies++] = fdr_to_pst[rh].pst; } } /* Remove the dummy psymtab created for -O3 images above, if it is still empty, to enable the detection of stripped executables. */ if (objfile->psymtabs->next == NULL && objfile->psymtabs->number_of_dependencies == 0 && objfile->psymtabs->n_global_syms == 0 && objfile->psymtabs->n_static_syms == 0) objfile->psymtabs = NULL; do_cleanups (old_chain); } /* If the current psymbol has an enumerated type, we need to add all the the enum constants to the partial symbol table. */ static void handle_psymbol_enumerators (objfile, fh, stype) struct objfile *objfile; FDR *fh; int stype; { const bfd_size_type external_sym_size = debug_swap->external_sym_size; void (* const swap_sym_in) PARAMS ((bfd *, PTR, SYMR *)) = debug_swap->swap_sym_in; char *ext_sym = ((char *) debug_info->external_sym + ((fh->isymBase + cur_sdx + 1) * external_sym_size)); SYMR sh; TIR tir; switch (stype) { case stEnum: break; case stBlock: /* It is an enumerated type if the next symbol entry is a stMember and its auxiliary index is indexNil or its auxiliary entry is a plain btNil or btVoid. */ (*swap_sym_in) (cur_bfd, ext_sym, &sh); if (sh.st != stMember) return; if (sh.index == indexNil) break; (*debug_swap->swap_tir_in) (fh->fBigendian, &(debug_info->external_aux + fh->iauxBase + sh.index)->a_ti, &tir); if ((tir.bt != btNil && tir.bt != btVoid) || tir.tq0 != tqNil) return; break; default: return; } for (;;) { char *name; (*swap_sym_in) (cur_bfd, ext_sym, &sh); if (sh.st != stMember) break; name = debug_info->ss + cur_fdr->issBase + sh.iss; /* Note that the value doesn't matter for enum constants in psymtabs, just in symtabs. */ ADD_PSYMBOL_TO_LIST (name, strlen (name), VAR_NAMESPACE, LOC_CONST, objfile->static_psymbols, 0, psymtab_language, objfile); ext_sym += external_sym_size; } } static char * mdebug_next_symbol_text () { SYMR sh; cur_sdx++; (*debug_swap->swap_sym_in) (cur_bfd, ((char *) debug_info->external_sym + ((cur_fdr->isymBase + cur_sdx) * debug_swap->external_sym_size)), &sh); return debug_info->ss + cur_fdr->issBase + sh.iss; } /* Ancillary function to psymtab_to_symtab(). Does all the work for turning the partial symtab PST into a symtab, recurring first on all dependent psymtabs. The argument FILENAME is only passed so we can see in debug stack traces what file is being read. This function has a split personality, based on whether the symbol table contains ordinary ecoff symbols, or stabs-in-ecoff. The flow of control and even the memory allocation differs. FIXME. */ static void psymtab_to_symtab_1 (pst, filename) struct partial_symtab *pst; char *filename; { bfd_size_type external_sym_size; bfd_size_type external_pdr_size; void (*swap_sym_in) PARAMS ((bfd *, PTR, SYMR *)); void (*swap_pdr_in) PARAMS ((bfd *, PTR, PDR *)); int i; struct symtab *st; FDR *fh; struct linetable *lines; if (pst->readin) return; pst->readin = 1; /* Read in all partial symbtabs on which this one is dependent. NOTE that we do have circular dependencies, sigh. We solved that by setting pst->readin before this point. */ for (i = 0; i < pst->number_of_dependencies; i++) if (!pst->dependencies[i]->readin) { /* Inform about additional files to be read in. */ if (info_verbose) { fputs_filtered (" ", gdb_stdout); wrap_here (""); fputs_filtered ("and ", gdb_stdout); wrap_here (""); printf_filtered ("%s...", pst->dependencies[i]->filename); wrap_here (""); /* Flush output */ gdb_flush (gdb_stdout); } /* We only pass the filename for debug purposes */ psymtab_to_symtab_1 (pst->dependencies[i], pst->dependencies[i]->filename); } /* Do nothing if this is a dummy psymtab. */ if (pst->n_global_syms == 0 && pst->n_static_syms == 0 && pst->textlow == 0 && pst->texthigh == 0) return; /* Now read the symbols for this symtab */ cur_bfd = CUR_BFD (pst); debug_swap = DEBUG_SWAP (pst); debug_info = DEBUG_INFO (pst); pending_list = PENDING_LIST (pst); external_sym_size = debug_swap->external_sym_size; external_pdr_size = debug_swap->external_pdr_size; swap_sym_in = debug_swap->swap_sym_in; swap_pdr_in = debug_swap->swap_pdr_in; current_objfile = pst->objfile; cur_fd = FDR_IDX (pst); fh = ((cur_fd == -1) ? (FDR *) NULL : debug_info->fdr + cur_fd); cur_fdr = fh; /* See comment in parse_partial_symbols about the @stabs sentinel. */ processing_gcc_compilation = 0; if (fh != (FDR *) NULL && fh->csym >= 2) { SYMR sh; (*swap_sym_in) (cur_bfd, ((char *) debug_info->external_sym + (fh->isymBase + 1) * external_sym_size), &sh); if (STREQ (debug_info->ss + fh->issBase + sh.iss, stabs_symbol)) { /* We indicate that this is a GCC compilation so that certain features will be enabled in stabsread/dbxread. */ processing_gcc_compilation = 2; } } if (processing_gcc_compilation != 0) { char *pdr_ptr; char *pdr_end; int first_pdr; unsigned long first_off = 0; /* This symbol table contains stabs-in-ecoff entries. */ /* Parse local symbols first */ if (fh->csym <= 2) /* FIXME, this blows psymtab->symtab ptr */ { current_objfile = NULL; return; } for (cur_sdx = 2; cur_sdx < fh->csym; cur_sdx++) { SYMR sh; char *name; CORE_ADDR valu; (*swap_sym_in) (cur_bfd, (((char *) debug_info->external_sym) + (fh->isymBase + cur_sdx) * external_sym_size), &sh); name = debug_info->ss + fh->issBase + sh.iss; valu = sh.value; if (ECOFF_IS_STAB (&sh)) { int type_code = ECOFF_UNMARK_STAB (sh.index); /* We should never get non N_STAB symbols here, but they should be harmless, so keep process_one_symbol from complaining about them. */ if (type_code & N_STAB) { process_one_symbol (type_code, 0, valu, name, pst->section_offsets, pst->objfile); } if (type_code == N_FUN) { /* Make up special symbol to contain procedure specific info */ struct mips_extra_func_info *e = ((struct mips_extra_func_info *) obstack_alloc (¤t_objfile->symbol_obstack, sizeof (struct mips_extra_func_info))); struct symbol *s = new_symbol (MIPS_EFI_SYMBOL_NAME); SYMBOL_NAMESPACE (s) = LABEL_NAMESPACE; SYMBOL_CLASS (s) = LOC_CONST; SYMBOL_TYPE (s) = builtin_type_void; SYMBOL_VALUE (s) = (long) e; add_symbol_to_list (s, &local_symbols); } } else if (sh.st == stLabel) { if (sh.index == indexNil) { /* This is what the gcc2_compiled and __gnu_compiled_* show up as. So don't complain. */ ; } else /* Handle encoded stab line number. */ record_line (current_subfile, sh.index, valu); } else if (sh.st == stProc || sh.st == stStaticProc || sh.st == stStatic || sh.st == stEnd) /* These are generated by gcc-2.x, do not complain */ ; else complain (&stab_unknown_complaint, name); } st = end_symtab (pst->texthigh, 0, 0, pst->objfile, SECT_OFF_TEXT); end_stabs (); /* Sort the symbol table now, we are done adding symbols to it. We must do this before parse_procedure calls lookup_symbol. */ sort_symtab_syms (st); /* There used to be a call to sort_blocks here, but this should not be necessary for stabs symtabs. And as sort_blocks modifies the start address of the GLOBAL_BLOCK to the FIRST_LOCAL_BLOCK, it did the wrong thing if the first procedure in a file was generated via asm statements. */ /* Fill in procedure info next. */ first_pdr = 1; pdr_ptr = ((char *) debug_info->external_pdr + fh->ipdFirst * external_pdr_size); pdr_end = pdr_ptr + fh->cpd * external_pdr_size; for (; pdr_ptr < pdr_end; pdr_ptr += external_pdr_size) { PDR pr; (*swap_pdr_in) (cur_bfd, pdr_ptr, &pr); if (first_pdr) { first_off = pr.adr; first_pdr = 0; } parse_procedure (&pr, st, first_off, pst); } } else { /* This symbol table contains ordinary ecoff entries. */ /* FIXME: doesn't use pst->section_offsets. */ int f_max; int maxlines; EXTR *ext_ptr; /* How many symbols will we need */ /* FIXME, this does not count enum values. */ f_max = pst->n_global_syms + pst->n_static_syms; if (fh == 0) { maxlines = 0; st = new_symtab ("unknown", f_max, 0, pst->objfile); } else { f_max += fh->csym + fh->cpd; maxlines = 2 * fh->cline; st = new_symtab (pst->filename, 2 * f_max, maxlines, pst->objfile); /* The proper language was already determined when building the psymtab, use it. */ st->language = PST_PRIVATE (pst)->pst_language; } psymtab_language = st->language; lines = LINETABLE (st); /* Get a new lexical context */ push_parse_stack (); top_stack->cur_st = st; top_stack->cur_block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (st), STATIC_BLOCK); BLOCK_START (top_stack->cur_block) = pst->textlow; BLOCK_END (top_stack->cur_block) = 0; top_stack->blocktype = stFile; top_stack->maxsyms = 2 * f_max; top_stack->cur_type = 0; top_stack->procadr = 0; top_stack->numargs = 0; if (fh) { char *sym_ptr; char *sym_end; /* Parse local symbols first */ sym_ptr = ((char *) debug_info->external_sym + fh->isymBase * external_sym_size); sym_end = sym_ptr + fh->csym * external_sym_size; while (sym_ptr < sym_end) { SYMR sh; int c; (*swap_sym_in) (cur_bfd, sym_ptr, &sh); c = parse_symbol (&sh, debug_info->external_aux + fh->iauxBase, sym_ptr, fh->fBigendian, pst->section_offsets); sym_ptr += c * external_sym_size; } /* Linenumbers. At the end, check if we can save memory. parse_lines has to look ahead an arbitrary number of PDR structures, so we swap them all first. */ if (fh->cpd > 0) { PDR *pr_block; struct cleanup *old_chain; char *pdr_ptr; char *pdr_end; PDR *pdr_in; PDR *pdr_in_end; pr_block = (PDR *) xmalloc (fh->cpd * sizeof (PDR)); old_chain = make_cleanup (free, pr_block); pdr_ptr = ((char *) debug_info->external_pdr + fh->ipdFirst * external_pdr_size); pdr_end = pdr_ptr + fh->cpd * external_pdr_size; pdr_in = pr_block; for (; pdr_ptr < pdr_end; pdr_ptr += external_pdr_size, pdr_in++) (*swap_pdr_in) (cur_bfd, pdr_ptr, pdr_in); parse_lines (fh, pr_block, lines, maxlines, pst); if (lines->nitems < fh->cline) lines = shrink_linetable (lines); /* Fill in procedure info next. */ pdr_in = pr_block; pdr_in_end = pdr_in + fh->cpd; for (; pdr_in < pdr_in_end; pdr_in++) parse_procedure (pdr_in, 0, pr_block->adr, pst); do_cleanups (old_chain); } } LINETABLE (st) = lines; /* .. and our share of externals. XXX use the global list to speed up things here. how? FIXME, Maybe quit once we have found the right number of ext's? */ top_stack->cur_st = st; top_stack->cur_block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (top_stack->cur_st), GLOBAL_BLOCK); top_stack->blocktype = stFile; top_stack->maxsyms = (debug_info->symbolic_header.isymMax + debug_info->symbolic_header.ipdMax + debug_info->symbolic_header.iextMax); ext_ptr = PST_PRIVATE (pst)->extern_tab; for (i = PST_PRIVATE (pst)->extern_count; --i >= 0; ext_ptr++) parse_external (ext_ptr, fh->fBigendian, pst->section_offsets); /* If there are undefined symbols, tell the user. The alpha has an undefined symbol for every symbol that is from a shared library, so tell the user only if verbose is on. */ if (info_verbose && n_undef_symbols) { printf_filtered ("File %s contains %d unresolved references:", st->filename, n_undef_symbols); printf_filtered ("\n\t%4d variables\n\t%4d procedures\n\t%4d labels\n", n_undef_vars, n_undef_procs, n_undef_labels); n_undef_symbols = n_undef_labels = n_undef_vars = n_undef_procs = 0; } pop_parse_stack (); st->primary = 1; /* Sort the symbol table now, we are done adding symbols to it.*/ sort_symtab_syms (st); sort_blocks (st); } /* Now link the psymtab and the symtab. */ pst->symtab = st; current_objfile = NULL; } /* Ancillary parsing procedures. */ /* Return 1 if the symbol pointed to by SH has a cross reference to an opaque aggregate type, else 0. */ static int has_opaque_xref (fh, sh) FDR *fh; SYMR *sh; { TIR tir; union aux_ext *ax; RNDXR rn[1]; unsigned int rf; if (sh->index == indexNil) return 0; ax = debug_info->external_aux + fh->iauxBase + sh->index; (*debug_swap->swap_tir_in) (fh->fBigendian, &ax->a_ti, &tir); if (tir.bt != btStruct && tir.bt != btUnion && tir.bt != btEnum) return 0; ax++; (*debug_swap->swap_rndx_in) (fh->fBigendian, &ax->a_rndx, rn); if (rn->rfd == 0xfff) rf = AUX_GET_ISYM (fh->fBigendian, ax + 1); else rf = rn->rfd; if (rf != -1) return 0; return 1; } /* Lookup the type at relative index RN. Return it in TPP if found and in any event come up with its name PNAME. BIGEND says whether aux symbols are big-endian or not (from fh->fBigendian). Return value says how many aux symbols we ate. */ static int cross_ref (fd, ax, tpp, type_code, pname, bigend, sym_name) int fd; union aux_ext *ax; struct type **tpp; enum type_code type_code; /* Use to alloc new type if none is found. */ char **pname; int bigend; char *sym_name; { RNDXR rn[1]; unsigned int rf; int result = 1; FDR *fh; char *esh; SYMR sh; int xref_fd; struct mdebug_pending *pend; *tpp = (struct type *)NULL; (*debug_swap->swap_rndx_in) (bigend, &ax->a_rndx, rn); /* Escape index means 'the next one' */ if (rn->rfd == 0xfff) { result++; rf = AUX_GET_ISYM (bigend, ax + 1); } else { rf = rn->rfd; } /* mips cc uses a rf of -1 for opaque struct definitions. Set TYPE_FLAG_STUB for these types so that check_stub_type will resolve them if the struct gets defined in another compilation unit. */ if (rf == -1) { *pname = ""; *tpp = init_type (type_code, 0, 0, (char *) NULL, current_objfile); TYPE_FLAGS (*tpp) |= TYPE_FLAG_STUB; return result; } /* mips cc uses an escaped rn->index of 0 for struct return types of procedures that were compiled without -g. These will always remain undefined. */ if (rn->rfd == 0xfff && rn->index == 0) { *pname = ""; return result; } /* Find the relative file descriptor and the symbol in it. */ fh = get_rfd (fd, rf); xref_fd = fh - debug_info->fdr; if (rn->index >= fh->csym) { /* File indirect entry is corrupt. */ *pname = ""; complain (&bad_rfd_entry_complaint, sym_name, xref_fd, rn->index); return result; } /* If we have processed this symbol then we left a forwarding pointer to the type in the pending list. If not, we`ll put it in a list of pending types, to be processed later when the file will be. In any event, we collect the name for the type here. */ esh = ((char *) debug_info->external_sym + ((fh->isymBase + rn->index) * debug_swap->external_sym_size)); (*debug_swap->swap_sym_in) (cur_bfd, esh, &sh); /* Make sure that this type of cross reference can be handled. */ if ((sh.sc != scInfo || (sh.st != stBlock && sh.st != stTypedef && sh.st != stIndirect && sh.st != stStruct && sh.st != stUnion && sh.st != stEnum)) && (sh.sc != scCommon || sh.st != stBlock)) { /* File indirect entry is corrupt. */ *pname = ""; complain (&bad_rfd_entry_complaint, sym_name, xref_fd, rn->index); return result; } *pname = debug_info->ss + fh->issBase + sh.iss; pend = is_pending_symbol (fh, esh); if (pend) *tpp = pend->t; else { /* We have not yet seen this type. */ if ((sh.iss == 0 && sh.st == stTypedef) || sh.st == stIndirect) { TIR tir; /* alpha cc puts out a stTypedef with a sh.iss of zero for two cases: a) forward declarations of structs/unions/enums which are not defined in this compilation unit. For these the type will be void. This is a bad design decision as cross referencing across compilation units is impossible due to the missing name. b) forward declarations of structs/unions/enums which are defined later in this file or in another file in the same compilation unit. Irix5 cc uses a stIndirect symbol for this. Simply cross reference those again to get the true type. The forward references are not entered in the pending list and in the symbol table. */ (*debug_swap->swap_tir_in) (bigend, &(debug_info->external_aux + fh->iauxBase + sh.index)->a_ti, &tir); if (tir.tq0 != tqNil) complain (&illegal_forward_tq0_complaint, sym_name); switch (tir.bt) { case btVoid: *tpp = init_type (type_code, 0, 0, (char *) NULL, current_objfile); *pname = ""; break; case btStruct: case btUnion: case btEnum: cross_ref (xref_fd, (debug_info->external_aux + fh->iauxBase + sh.index + 1), tpp, type_code, pname, fh->fBigendian, sym_name); break; default: complain (&illegal_forward_bt_complaint, tir.bt, sym_name); *tpp = init_type (type_code, 0, 0, (char *) NULL, current_objfile); break; } return result; } else if (sh.st == stTypedef) { /* Parse the type for a normal typedef. This might recursively call cross_ref till we get a non typedef'ed type. FIXME: This is not correct behaviour, but gdb currently cannot handle typedefs without type copying. But type copying is impossible as we might have mutual forward references between two files and the copied type would not get filled in when we later parse its definition. */ *tpp = parse_type (xref_fd, debug_info->external_aux + fh->iauxBase, sh.index, (int *)NULL, fh->fBigendian, debug_info->ss + fh->issBase + sh.iss); } else { /* Cross reference to a struct/union/enum which is defined in another file in the same compilation unit but that file has not been parsed yet. Initialize the type only, it will be filled in when it's definition is parsed. */ *tpp = init_type (type_code, 0, 0, (char *) NULL, current_objfile); } add_pending (fh, esh, *tpp); } /* We used one auxent normally, two if we got a "next one" rf. */ return result; } /* Quick&dirty lookup procedure, to avoid the MI ones that require keeping the symtab sorted */ static struct symbol * mylookup_symbol (name, block, namespace, class) char *name; register struct block *block; enum namespace namespace; enum address_class class; { register int bot, top, inc; register struct symbol *sym; bot = 0; top = BLOCK_NSYMS (block); inc = name[0]; while (bot < top) { sym = BLOCK_SYM (block, bot); if (SYMBOL_NAME (sym)[0] == inc && SYMBOL_NAMESPACE (sym) == namespace && SYMBOL_CLASS (sym) == class && strcmp (SYMBOL_NAME (sym), name) == 0) return sym; bot++; } block = BLOCK_SUPERBLOCK (block); if (block) return mylookup_symbol (name, block, namespace, class); return 0; } /* Add a new symbol S to a block B. Infrequently, we will need to reallocate the block to make it bigger. We only detect this case when adding to top_stack->cur_block, since that's the only time we know how big the block is. FIXME. */ static void add_symbol (s, b) struct symbol *s; struct block *b; { int nsyms = BLOCK_NSYMS (b)++; struct block *origb; struct parse_stack *stackp; if (b == top_stack->cur_block && nsyms >= top_stack->maxsyms) { complain (&block_overflow_complaint, SYMBOL_NAME (s)); /* In this case shrink_block is actually grow_block, since BLOCK_NSYMS(b) is larger than its current size. */ origb = b; b = shrink_block (top_stack->cur_block, top_stack->cur_st); /* Now run through the stack replacing pointers to the original block. shrink_block has already done this for the blockvector and BLOCK_FUNCTION. */ for (stackp = top_stack; stackp; stackp = stackp->next) { if (stackp->cur_block == origb) { stackp->cur_block = b; stackp->maxsyms = BLOCK_NSYMS (b); } } } BLOCK_SYM (b, nsyms) = s; } /* Add a new block B to a symtab S */ static void add_block (b, s) struct block *b; struct symtab *s; { struct blockvector *bv = BLOCKVECTOR (s); bv = (struct blockvector *) xrealloc ((PTR) bv, (sizeof (struct blockvector) + BLOCKVECTOR_NBLOCKS (bv) * sizeof (bv->block))); if (bv != BLOCKVECTOR (s)) BLOCKVECTOR (s) = bv; BLOCKVECTOR_BLOCK (bv, BLOCKVECTOR_NBLOCKS (bv)++) = b; } /* Add a new linenumber entry (LINENO,ADR) to a linevector LT. MIPS' linenumber encoding might need more than one byte to describe it, LAST is used to detect these continuation lines. Combining lines with the same line number seems like a bad idea. E.g: There could be a line number entry with the same line number after the prologue and GDB should not ignore it (this is a better way to find a prologue than mips_skip_prologue). But due to the compressed line table format there are line number entries for the same line which are needed to bridge the gap to the next line number entry. These entries have a bogus address info with them and we are unable to tell them from intended duplicate line number entries. This is another reason why -ggdb debugging format is preferable. */ static int add_line (lt, lineno, adr, last) struct linetable *lt; int lineno; CORE_ADDR adr; int last; { /* DEC c89 sometimes produces zero linenos which confuse gdb. Change them to something sensible. */ if (lineno == 0) lineno = 1; if (last == 0) last = -2; /* make sure we record first line */ if (last == lineno) /* skip continuation lines */ return lineno; lt->item[lt->nitems].line = lineno; lt->item[lt->nitems++].pc = adr << 2; return lineno; } /* Sorting and reordering procedures */ /* Blocks with a smaller low bound should come first */ static int compare_blocks (arg1, arg2) const PTR arg1; const PTR arg2; { register int addr_diff; struct block **b1 = (struct block **) arg1; struct block **b2 = (struct block **) arg2; addr_diff = (BLOCK_START ((*b1))) - (BLOCK_START ((*b2))); if (addr_diff == 0) return (BLOCK_END ((*b2))) - (BLOCK_END ((*b1))); return addr_diff; } /* Sort the blocks of a symtab S. Reorder the blocks in the blockvector by code-address, as required by some MI search routines */ static void sort_blocks (s) struct symtab *s; { struct blockvector *bv = BLOCKVECTOR (s); if (BLOCKVECTOR_NBLOCKS (bv) <= 2) { /* Cosmetic */ if (BLOCK_END (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK)) == 0) BLOCK_START (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK)) = 0; if (BLOCK_END (BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK)) == 0) BLOCK_START (BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK)) = 0; return; } /* * This is very unfortunate: normally all functions are compiled in * the order they are found, but if the file is compiled -O3 things * are very different. It would be nice to find a reliable test * to detect -O3 images in advance. */ if (BLOCKVECTOR_NBLOCKS (bv) > 3) qsort (&BLOCKVECTOR_BLOCK (bv, FIRST_LOCAL_BLOCK), BLOCKVECTOR_NBLOCKS (bv) - FIRST_LOCAL_BLOCK, sizeof (struct block *), compare_blocks); { register CORE_ADDR high = 0; register int i, j = BLOCKVECTOR_NBLOCKS (bv); for (i = FIRST_LOCAL_BLOCK; i < j; i++) if (high < BLOCK_END (BLOCKVECTOR_BLOCK (bv, i))) high = BLOCK_END (BLOCKVECTOR_BLOCK (bv, i)); BLOCK_END (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK)) = high; } BLOCK_START (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK)) = BLOCK_START (BLOCKVECTOR_BLOCK (bv, FIRST_LOCAL_BLOCK)); BLOCK_START (BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK)) = BLOCK_START (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK)); BLOCK_END (BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK)) = BLOCK_END (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK)); } /* Constructor/restructor/destructor procedures */ /* Allocate a new symtab for NAME. Needs an estimate of how many symbols MAXSYMS and linenumbers MAXLINES we'll put in it */ static struct symtab * new_symtab (name, maxsyms, maxlines, objfile) char *name; int maxsyms; int maxlines; struct objfile *objfile; { struct symtab *s = allocate_symtab (name, objfile); LINETABLE (s) = new_linetable (maxlines); /* All symtabs must have at least two blocks */ BLOCKVECTOR (s) = new_bvect (2); BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), GLOBAL_BLOCK) = new_block (maxsyms); BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK) = new_block (maxsyms); BLOCK_SUPERBLOCK (BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK)) = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), GLOBAL_BLOCK); s->free_code = free_linetable; return (s); } /* Allocate a new partial_symtab NAME */ static struct partial_symtab * new_psymtab (name, objfile, section_offsets) char *name; struct objfile *objfile; struct section_offsets *section_offsets; { struct partial_symtab *psymtab; psymtab = allocate_psymtab (name, objfile); psymtab->section_offsets = section_offsets; /* Keep a backpointer to the file's symbols */ psymtab->read_symtab_private = ((char *) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct symloc))); memset ((PTR) psymtab->read_symtab_private, 0, sizeof (struct symloc)); CUR_BFD (psymtab) = cur_bfd; DEBUG_SWAP (psymtab) = debug_swap; DEBUG_INFO (psymtab) = debug_info; PENDING_LIST (psymtab) = pending_list; /* The way to turn this into a symtab is to call... */ psymtab->read_symtab = mdebug_psymtab_to_symtab; return (psymtab); } /* Allocate a linetable array of the given SIZE. Since the struct already includes one item, we subtract one when calculating the proper size to allocate. */ static struct linetable * new_linetable (size) int size; { struct linetable *l; size = (size - 1) * sizeof (l->item) + sizeof (struct linetable); l = (struct linetable *) xmalloc (size); l->nitems = 0; return l; } /* Oops, too big. Shrink it. This was important with the 2.4 linetables, I am not so sure about the 3.4 ones. Since the struct linetable already includes one item, we subtract one when calculating the proper size to allocate. */ static struct linetable * shrink_linetable (lt) struct linetable *lt; { return (struct linetable *) xrealloc ((PTR) lt, (sizeof (struct linetable) + ((lt->nitems - 1) * sizeof (lt->item)))); } /* Allocate and zero a new blockvector of NBLOCKS blocks. */ static struct blockvector * new_bvect (nblocks) int nblocks; { struct blockvector *bv; int size; size = sizeof (struct blockvector) + nblocks * sizeof (struct block *); bv = (struct blockvector *) xzalloc (size); BLOCKVECTOR_NBLOCKS (bv) = nblocks; return bv; } /* Allocate and zero a new block of MAXSYMS symbols */ static struct block * new_block (maxsyms) int maxsyms; { int size = sizeof (struct block) + (maxsyms - 1) * sizeof (struct symbol *); return (struct block *) xzalloc (size); } /* Ooops, too big. Shrink block B in symtab S to its minimal size. Shrink_block can also be used by add_symbol to grow a block. */ static struct block * shrink_block (b, s) struct block *b; struct symtab *s; { struct block *new; struct blockvector *bv = BLOCKVECTOR (s); int i; /* Just reallocate it and fix references to the old one */ new = (struct block *) xrealloc ((PTR) b, (sizeof (struct block) + ((BLOCK_NSYMS (b) - 1) * sizeof (struct symbol *)))); /* Should chase pointers to old one. Fortunately, that`s just the block`s function and inferior blocks */ if (BLOCK_FUNCTION (new) && SYMBOL_BLOCK_VALUE (BLOCK_FUNCTION (new)) == b) SYMBOL_BLOCK_VALUE (BLOCK_FUNCTION (new)) = new; for (i = 0; i < BLOCKVECTOR_NBLOCKS (bv); i++) if (BLOCKVECTOR_BLOCK (bv, i) == b) BLOCKVECTOR_BLOCK (bv, i) = new; else if (BLOCK_SUPERBLOCK (BLOCKVECTOR_BLOCK (bv, i)) == b) BLOCK_SUPERBLOCK (BLOCKVECTOR_BLOCK (bv, i)) = new; return new; } /* Create a new symbol with printname NAME */ static struct symbol * new_symbol (name) char *name; { struct symbol *s = ((struct symbol *) obstack_alloc (¤t_objfile->symbol_obstack, sizeof (struct symbol))); memset ((PTR) s, 0, sizeof (*s)); SYMBOL_NAME (s) = name; SYMBOL_LANGUAGE (s) = psymtab_language; SYMBOL_INIT_DEMANGLED_NAME (s, ¤t_objfile->symbol_obstack); return s; } /* Create a new type with printname NAME */ static struct type * new_type (name) char *name; { struct type *t; t = alloc_type (current_objfile); TYPE_NAME (t) = name; TYPE_CPLUS_SPECIFIC (t) = (struct cplus_struct_type *) &cplus_struct_default; return t; } /* Read ECOFF debugging information from a BFD section. This is called from elfread.c. It parses the section into a ecoff_debug_info struct, and then lets the rest of the file handle it as normal. */ void elfmdebug_build_psymtabs (objfile, swap, sec, section_offsets) struct objfile *objfile; const struct ecoff_debug_swap *swap; asection *sec; struct section_offsets *section_offsets; { bfd *abfd = objfile->obfd; struct ecoff_debug_info *info; info = ((struct ecoff_debug_info *) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct ecoff_debug_info))); if (!(*swap->read_debug_info) (abfd, sec, info)) error ("Error reading ECOFF debugging information: %s", bfd_errmsg (bfd_get_error ())); mdebug_build_psymtabs (objfile, swap, info, section_offsets); } /* Things used for calling functions in the inferior. These functions are exported to our companion mips-tdep.c file and are here because they play with the symbol-table explicitly. */ /* Sigtramp: make sure we have all the necessary information about the signal trampoline code. Since the official code from MIPS does not do so, we make up that information ourselves. If they fix the library (unlikely) this code will neutralize itself. */ /* FIXME: This function is called only by mips-tdep.c. It needs to be here because it calls functions defined in this file, but perhaps this could be handled in a better way. */ void fixup_sigtramp () { struct symbol *s; struct symtab *st; struct block *b, *b0 = NULL; sigtramp_address = -1; /* We have to handle the following cases here: a) The Mips library has a sigtramp label within sigvec. b) Irix has a _sigtramp which we want to use, but it also has sigvec. */ s = lookup_symbol ("sigvec", 0, VAR_NAMESPACE, 0, NULL); if (s != 0) { b0 = SYMBOL_BLOCK_VALUE (s); s = lookup_symbol ("sigtramp", b0, VAR_NAMESPACE, 0, NULL); } if (s == 0) { /* No sigvec or no sigtramp inside sigvec, try _sigtramp. */ s = lookup_symbol ("_sigtramp", 0, VAR_NAMESPACE, 0, NULL); } /* But maybe this program uses its own version of sigvec */ if (s == 0) return; /* Did we or MIPSco fix the library ? */ if (SYMBOL_CLASS (s) == LOC_BLOCK) { sigtramp_address = BLOCK_START (SYMBOL_BLOCK_VALUE (s)); sigtramp_end = BLOCK_END (SYMBOL_BLOCK_VALUE (s)); return; } sigtramp_address = SYMBOL_VALUE (s); sigtramp_end = sigtramp_address + 0x88; /* black magic */ /* But what symtab does it live in ? */ st = find_pc_symtab (SYMBOL_VALUE (s)); /* * Ok, there goes the fix: turn it into a procedure, with all the * needed info. Note we make it a nested procedure of sigvec, * which is the way the (assembly) code is actually written. */ SYMBOL_NAMESPACE (s) = VAR_NAMESPACE; SYMBOL_CLASS (s) = LOC_BLOCK; SYMBOL_TYPE (s) = init_type (TYPE_CODE_FUNC, 4, 0, (char *) NULL, st->objfile); TYPE_TARGET_TYPE (SYMBOL_TYPE (s)) = builtin_type_void; /* Need a block to allocate MIPS_EFI_SYMBOL_NAME in */ b = new_block (1); SYMBOL_BLOCK_VALUE (s) = b; BLOCK_START (b) = sigtramp_address; BLOCK_END (b) = sigtramp_end; BLOCK_FUNCTION (b) = s; BLOCK_SUPERBLOCK (b) = BLOCK_SUPERBLOCK (b0); add_block (b, st); sort_blocks (st); /* Make a MIPS_EFI_SYMBOL_NAME entry for it */ { struct mips_extra_func_info *e = ((struct mips_extra_func_info *) xzalloc (sizeof (struct mips_extra_func_info))); e->numargs = 0; /* the kernel thinks otherwise */ e->pdr.frameoffset = 32; e->pdr.framereg = SP_REGNUM; /* Note that setting pcreg is no longer strictly necessary as mips_frame_saved_pc is now aware of signal handler frames. */ e->pdr.pcreg = PC_REGNUM; e->pdr.regmask = -2; /* Offset to saved r31, in the sigtramp case the saved registers are above the frame in the sigcontext. We have 4 alignment bytes, 12 bytes for onstack, mask and pc, 32 * 4 bytes for the general registers, 12 bytes for mdhi, mdlo, ownedfp and 32 * 4 bytes for the floating point registers. */ e->pdr.regoffset = 4 + 12 + 31 * 4; e->pdr.fregmask = -1; /* Offset to saved f30 (first saved *double* register). */ e->pdr.fregoffset = 4 + 12 + 32 * 4 + 12 + 30 * 4; e->pdr.isym = (long) s; e->pdr.adr = sigtramp_address; current_objfile = st->objfile; /* Keep new_symbol happy */ s = new_symbol (MIPS_EFI_SYMBOL_NAME); SYMBOL_VALUE (s) = (long) e; SYMBOL_NAMESPACE (s) = LABEL_NAMESPACE; SYMBOL_CLASS (s) = LOC_CONST; SYMBOL_TYPE (s) = builtin_type_void; current_objfile = NULL; } BLOCK_SYM (b, BLOCK_NSYMS (b)++) = s; } void _initialize_mdebugread () { /* Missing basic types */ /* Is a "string" the way btString means it the same as TYPE_CODE_STRING? FIXME. */ mdebug_type_string = init_type (TYPE_CODE_STRING, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "string", (struct objfile *) NULL); mdebug_type_complex = init_type (TYPE_CODE_ERROR, TARGET_COMPLEX_BIT / TARGET_CHAR_BIT, 0, "complex", (struct objfile *) NULL); mdebug_type_double_complex = init_type (TYPE_CODE_ERROR, TARGET_DOUBLE_COMPLEX_BIT / TARGET_CHAR_BIT, 0, "double complex", (struct objfile *) NULL); /* We use TYPE_CODE_INT to print these as integers. Does this do any good? Would we be better off with TYPE_CODE_ERROR? Should TYPE_CODE_ERROR print things in hex if it knows the size? */ mdebug_type_fixed_dec = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "fixed decimal", (struct objfile *) NULL); mdebug_type_float_dec = init_type (TYPE_CODE_ERROR, TARGET_DOUBLE_BIT / TARGET_CHAR_BIT, 0, "floating decimal", (struct objfile *) NULL); } gdb-4.13/gdb/mem-break.c 666 34562 1752 5716 5421021054 13277 0ustar fnfcygnus/* Simulate breakpoints by patching locations in the target system, for GDB. Copyright 1990, 1991 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by John Gilmore. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #ifdef BREAKPOINT /* This file is only useful if BREAKPOINT is set. If not, we punt. */ #include "symtab.h" #include "breakpoint.h" #include "inferior.h" #include "target.h" /* This is the sequence of bytes we insert for a breakpoint. On some machines, breakpoints are handled by the target environment and we don't have to worry about them here. */ static unsigned char break_insn[] = BREAKPOINT; /* This is only to check that BREAKPOINT fits in BREAKPOINT_MAX bytes. */ static unsigned char check_break_insn_size[BREAKPOINT_MAX] = BREAKPOINT; /* Insert a breakpoint on targets that don't have any better breakpoint support. We read the contents of the target location and stash it, then overwrite it with a breakpoint instruction. ADDR is the target location in the target machine. CONTENTS_CACHE is a pointer to memory allocated for saving the target contents. It is guaranteed by the caller to be long enough to save sizeof BREAKPOINT bytes (this is accomplished via BREAKPOINT_MAX). */ int memory_insert_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { int val; val = target_read_memory (addr, contents_cache, sizeof break_insn); if (val == 0) val = target_write_memory (addr, (char *)break_insn, sizeof break_insn); return val; } int memory_remove_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { return target_write_memory (addr, contents_cache, sizeof break_insn); } /* FIXME: This is a hack and should depend on the debugging target. See comment in breakpoint.c where this is used. */ int memory_breakpoint_size = sizeof (break_insn); #else /* BREAKPOINT */ char nogo[] = "Breakpoints not implemented for this target."; int memory_insert_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { error (nogo); return 0; /* lint */ } int memory_remove_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { error (nogo); return 0; /* lint */ } int memory_breakpoint_size = -1; #endif /* BREAKPOINT */ gdb-4.13/gdb/minimon.h 666 34562 1752 36256 5064007541 13145 0ustar fnfcygnus/* Definitions and macros for support of AMD's remote debugger, MiniMON. Copyright (C) 1990, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Some basic types. FIXME, this should be done by declaring bitfield * sizes in the structs. We can't portably depend on a "long int" being * 32 bits, etc. */ typedef long int INT32; /* 32 bit integer */ typedef unsigned long int UINT32; /* 32 bit integer (unsigned) */ typedef unsigned long int ADDR32; /* 32 bit address */ typedef unsigned long int INST32; /* 32 bit instruction */ typedef long int BOOLEAN; /* Boolean value (32 bit) */ typedef unsigned char BYTE; /* byte (8 bit) */ typedef short int INT16; /* 16 bit integer */ typedef unsigned short int UINT16; /* 16 bit integer (unsigned) */ /****************************************************************************/ /************************* Message Information ******************************/ /****************************************************************************/ /* * Error codes */ /* General errors */ #define EMUSAGE 1 /* Bad args / flags */ #define EMFAIL 2 /* Unrecoverable error */ #define EMBADADDR 3 /* Illegal address */ #define EMBADREG 4 /* Illegal register */ #define EMSYNTAX 5 /* Illegal command syntax */ #define EMACCESS 6 /* Could not access memory */ #define EMALLOC 7 /* Could not allocate memory */ #define EMTARGET 8 /* Unknown target type */ #define EMHINIT 9 /* Could not initialize host */ #define EMCOMM 10 /* Could not open communication channel */ /* Message errors */ #define EMBADMSG 11 /* Unknown message type */ #define EMMSG2BIG 12 /* Message to large for buffer */ #define EMNOSEND 13 /* Could not send message */ #define EMNORECV 14 /* Could not receive message */ #define EMRESET 15 /* Could not RESET target */ #define EMCONFIG 16 /* Could not get target CONFIG */ #define EMSTATUS 17 /* Could not get target STATUS */ #define EMREAD 18 /* Could not READ target memory */ #define EMWRITE 19 /* Could not WRITE target memory */ #define EMBKPTSET 20 /* Could not set breakpoint */ #define EMBKPTRM 21 /* Could not remove breakpoint */ #define EMBKPTSTAT 22 /* Could not get breakpoint status */ #define EMBKPTNONE 23 /* All breakpoints in use */ #define EMBKPTUSED 24 /* Breakpoints already in use */ #define EMCOPY 25 /* Could not COPY target memory */ #define EMFILL 26 /* Could not FILL target memory */ #define EMINIT 27 /* Could not initialize target memory */ #define EMGO 28 /* Could not start execution */ #define EMSTEP 29 /* Could not single step */ #define EMBREAK 30 /* Could not BREAK */ #define EMHIF 31 /* Could not perform HIF service */ #define EMCHANNEL0 32 /* Could not read CHANNEL0 */ #define EMCHANNEL1 33 /* Could not write CHANNEL1 */ /* COFF file loader errors */ #define EMOPEN 34 /* Could not open COFF file */ #define EMHDR 35 /* Could not read COFF header */ #define EMMAGIC 36 /* Bad magic number */ #define EMAOUT 37 /* Could not read COFF a.out header */ #define EMSCNHDR 38 /* Could not read COFF section header */ #define EMSCN 39 /* Could not read COFF section */ #define EMCLOSE 40 /* Could not close COFF file */ /* Log file errors */ #define EMLOGOPEN 41 /* Could not open log file */ #define EMLOGREAD 42 /* Could not read log file */ #define EMLOGWRITE 43 /* Could not write to log file */ #define EMLOGCLOSE 44 /* Could not close log file */ /* Command file errors */ #define EMCMDOPEN 45 /* Could not open command file */ #define EMCMDREAD 46 /* Could not read command file */ #define EMCMDWRITE 47 /* Could not write to command file */ #define EMCMDCLOSE 48 /* Could not close comand file */ #define EMTIMEOUT 49 /* Host timed out waiting for a message */ #define EMCOMMTYPE 50 /* A '-t' flag must be specified */ #define EMCOMMERR 51 /* Communication error */ #define EMBAUD 52 /* Invalid baud rate specified */ /* * Memory Spaces */ #define LOCAL_REG 0 /* Local processor register */ #define GLOBAL_REG 1 /* Global processor register */ #define SPECIAL_REG 2 /* Special processor register */ #define TLB_REG 3 /* Translation Lookaside Buffer */ #define COPROC_REG 4 /* Coprocessor register */ #define I_MEM 5 /* Instruction Memory */ #define D_MEM 6 /* Data Memory */ #define I_ROM 7 /* Instruction ROM */ #define D_ROM 8 /* Data ROM */ #define I_O 9 /* Input/Output */ #define I_CACHE 10 /* Instruction Cache */ #define D_CACHE 11 /* Data Cache */ /* To supress warnings for zero length array definitions */ #define DUMMY 1 /* ** Host to target definitions */ #define RESET 0 #define CONFIG_REQ 1 #define STATUS_REQ 2 #define READ_REQ 3 #define WRITE_REQ 4 #define BKPT_SET 5 #define BKPT_RM 6 #define BKPT_STAT 7 #define COPY 8 #define FILL 9 #define INIT 10 #define GO 11 #define STEP 12 #define BREAK 13 #define HIF_CALL_RTN 64 #define CHANNEL0 65 #define CHANNEL1_ACK 66 /* ** Target to host definitions */ #define RESET_ACK 32 #define CONFIG 33 #define STATUS 34 #define READ_ACK 35 #define WRITE_ACK 36 #define BKPT_SET_ACK 37 #define BKPT_RM_ACK 38 #define BKPT_STAT_ACK 39 #define COPY_ACK 40 #define FILL_ACK 41 #define INIT_ACK 42 #define HALT 43 #define ERROR 63 #define HIF_CALL 96 #define CHANNEL0_ACK 97 #define CHANNEL1 98 /* A "generic" message */ struct generic_msg_t { INT32 code; /* generic */ INT32 length; BYTE byte[DUMMY]; }; /* A "generic" message (with an INT32 array) */ struct generic_int32_msg_t { INT32 code; /* generic */ INT32 length; INT32 int32[DUMMY]; }; /* ** Host to target messages */ struct reset_msg_t { INT32 code; /* 0 */ INT32 length; }; struct config_req_msg_t { INT32 code; /* 1 */ INT32 length; }; struct status_req_msg_t { INT32 code; /* 2 */ INT32 length; }; struct read_req_msg_t { INT32 code; /* 3 */ INT32 length; INT32 memory_space; ADDR32 address; INT32 byte_count; }; struct write_req_msg_t { INT32 code; /* 4 */ INT32 length; INT32 memory_space; ADDR32 address; INT32 byte_count; BYTE data[DUMMY]; }; struct write_r_msg_t { INT32 code; /* 4 */ INT32 length; INT32 memory_space; ADDR32 address; INT32 byte_count; INT32 data[DUMMY]; }; struct bkpt_set_msg_t { INT32 code; /* 5 */ INT32 length; INT32 memory_space; ADDR32 bkpt_addr; INT32 pass_count; INT32 bkpt_type; }; struct bkpt_rm_msg_t { INT32 code; /* 6 */ INT32 length; INT32 memory_space; ADDR32 bkpt_addr; }; struct bkpt_stat_msg_t { INT32 code; /* 7 */ INT32 length; INT32 memory_space; ADDR32 bkpt_addr; }; struct copy_msg_t { INT32 code; /* 8 */ INT32 length; INT32 source_space; ADDR32 source_addr; INT32 dest_space; ADDR32 dest_addr; INT32 byte_count; }; struct fill_msg_t { INT32 code; /* 9 */ INT32 length; INT32 memory_space; ADDR32 start_addr; INT32 fill_count; INT32 byte_count; BYTE fill_data[DUMMY]; }; struct init_msg_t { INT32 code; /* 10 */ INT32 length; ADDR32 text_start; ADDR32 text_end; ADDR32 data_start; ADDR32 data_end; ADDR32 entry_point; INT32 mem_stack_size; INT32 reg_stack_size; ADDR32 arg_start; INT32 os_control; }; struct go_msg_t { INT32 code; /* 11 */ INT32 length; }; struct step_msg_t { INT32 code; /* 12 */ INT32 length; INT32 count; }; struct break_msg_t { INT32 code; /* 13 */ INT32 length; }; struct hif_call_rtn_msg_t { INT32 code; /* 64 */ INT32 length; INT32 service_number; INT32 gr121; INT32 gr96; INT32 gr97; }; struct channel0_msg_t { INT32 code; /* 65 */ INT32 length; BYTE data; }; struct channel1_ack_msg_t { INT32 code; /* 66 */ INT32 length; }; /* ** Target to host messages */ struct reset_ack_msg_t { INT32 code; /* 32 */ INT32 length; }; struct config_msg_t { INT32 code; /* 33 */ INT32 length; INT32 processor_id; INT32 version; ADDR32 I_mem_start; INT32 I_mem_size; ADDR32 D_mem_start; INT32 D_mem_size; ADDR32 ROM_start; INT32 ROM_size; INT32 max_msg_size; INT32 max_bkpts; INT32 coprocessor; INT32 reserved; }; struct status_msg_t { INT32 code; /* 34 */ INT32 length; INT32 msgs_sent; INT32 msgs_received; INT32 errors; INT32 bkpts_hit; INT32 bkpts_free; INT32 traps; INT32 fills; INT32 spills; INT32 cycles; INT32 reserved; }; struct read_ack_msg_t { INT32 code; /* 35 */ INT32 length; INT32 memory_space; ADDR32 address; INT32 byte_count; BYTE data[DUMMY]; }; struct read_r_ack_msg_t { INT32 code; /* 35 */ INT32 length; INT32 memory_space; ADDR32 address; INT32 byte_count; INT32 data[DUMMY]; }; struct write_ack_msg_t { INT32 code; /* 36 */ INT32 length; INT32 memory_space; ADDR32 address; INT32 byte_count; }; struct bkpt_set_ack_msg_t { INT32 code; /* 37 */ INT32 length; INT32 memory_space; ADDR32 address; INT32 pass_count; INT32 bkpt_type; }; struct bkpt_rm_ack_msg_t { INT32 code; /* 38 */ INT32 length; INT32 memory_space; ADDR32 address; }; struct bkpt_stat_ack_msg_t { INT32 code; /* 39 */ INT32 length; INT32 memory_space; ADDR32 address; INT32 pass_count; INT32 bkpt_type; }; struct copy_ack_msg_t { INT32 code; /* 40 */ INT32 length; INT32 source_space; ADDR32 source_addr; INT32 dest_space; ADDR32 dest_addr; INT32 byte_count; }; struct fill_ack_msg_t { INT32 code; /* 41 */ INT32 length; INT32 memory_space; ADDR32 start_addr; INT32 fill_count; INT32 byte_count; }; struct init_ack_msg_t { INT32 code; /* 42 */ INT32 length; }; struct halt_msg_t { INT32 code; /* 43 */ INT32 length; INT32 memory_space; ADDR32 pc0; ADDR32 pc1; INT32 trap_number; }; struct error_msg_t { INT32 code; /* 63 */ INT32 length; INT32 error_code; INT32 memory_space; ADDR32 address; }; struct hif_call_msg_t { INT32 code; /* 96 */ INT32 length; INT32 service_number; INT32 lr2; INT32 lr3; INT32 lr4; }; struct channel0_ack_msg_t { INT32 code; /* 97 */ INT32 length; }; struct channel1_msg_t { INT32 code; /* 98 */ INT32 length; BYTE data[DUMMY]; }; /* ** Union all of the message types together */ union msg_t { struct generic_msg_t generic_msg; struct generic_int32_msg_t generic_int32_msg; struct reset_msg_t reset_msg; struct config_req_msg_t config_req_msg; struct status_req_msg_t status_req_msg; struct read_req_msg_t read_req_msg; struct write_req_msg_t write_req_msg; struct write_r_msg_t write_r_msg; struct bkpt_set_msg_t bkpt_set_msg; struct bkpt_rm_msg_t bkpt_rm_msg; struct bkpt_stat_msg_t bkpt_stat_msg; struct copy_msg_t copy_msg; struct fill_msg_t fill_msg; struct init_msg_t init_msg; struct go_msg_t go_msg; struct step_msg_t step_msg; struct break_msg_t break_msg; struct hif_call_rtn_msg_t hif_call_rtn_msg; struct channel0_msg_t channel0_msg; struct channel1_ack_msg_t channel1_ack_msg; struct reset_ack_msg_t reset_ack_msg; struct config_msg_t config_msg; struct status_msg_t status_msg; struct read_ack_msg_t read_ack_msg; struct read_r_ack_msg_t read_r_ack_msg; struct write_ack_msg_t write_ack_msg; struct bkpt_set_ack_msg_t bkpt_set_ack_msg; struct bkpt_rm_ack_msg_t bkpt_rm_ack_msg; struct bkpt_stat_ack_msg_t bkpt_stat_ack_msg; struct copy_ack_msg_t copy_ack_msg; struct fill_ack_msg_t fill_ack_msg; struct init_ack_msg_t init_ack_msg; struct halt_msg_t halt_msg; struct error_msg_t error_msg; struct hif_call_msg_t hif_call_msg; struct channel0_ack_msg_t channel0_ack_msg; struct channel1_msg_t channel1_msg; }; gdb-4.13/gdb/minsyms.c 666 34562 1752 53137 5551123250 13163 0ustar fnfcygnus/* GDB routines for manipulating the minimal symbol tables. Copyright 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support, using pieces from other GDB modules. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file contains support routines for creating, manipulating, and destroying minimal symbol tables. Minimal symbol tables are used to hold some very basic information about all defined global symbols (text, data, bss, abs, etc). The only two required pieces of information are the symbol's name and the address associated with that symbol. In many cases, even if a file was compiled with no special options for debugging at all, as long as was not stripped it will contain sufficient information to build useful minimal symbol tables using this structure. Even when a file contains enough debugging information to build a full symbol table, these minimal symbols are still useful for quickly mapping between names and addresses, and vice versa. They are also sometimes used to figure out what full symbol table entries need to be read in. */ #include "defs.h" #include #include "symtab.h" #include "bfd.h" #include "symfile.h" #include "objfiles.h" #include "demangle.h" #include "gdb-stabs.h" /* Accumulate the minimal symbols for each objfile in bunches of BUNCH_SIZE. At the end, copy them all into one newly allocated location on an objfile's symbol obstack. */ #define BUNCH_SIZE 127 struct msym_bunch { struct msym_bunch *next; struct minimal_symbol contents[BUNCH_SIZE]; }; /* Bunch currently being filled up. The next field points to chain of filled bunches. */ static struct msym_bunch *msym_bunch; /* Number of slots filled in current bunch. */ static int msym_bunch_index; /* Total number of minimal symbols recorded so far for the objfile. */ static int msym_count; /* Prototypes for local functions. */ static int compare_minimal_symbols PARAMS ((const void *, const void *)); static int compact_minimal_symbols PARAMS ((struct minimal_symbol *, int)); /* Look through all the current minimal symbol tables and find the first minimal symbol that matches NAME. If OBJF is non-NULL, it specifies a particular objfile and the search is limited to that objfile. Returns a pointer to the minimal symbol that matches, or NULL if no match is found. Note: One instance where there may be duplicate minimal symbols with the same name is when the symbol tables for a shared library and the symbol tables for an executable contain global symbols with the same names (the dynamic linker deals with the duplication). */ struct minimal_symbol * lookup_minimal_symbol (name, objf) register const char *name; struct objfile *objf; { struct objfile *objfile; struct minimal_symbol *msymbol; struct minimal_symbol *found_symbol = NULL; struct minimal_symbol *found_file_symbol = NULL; struct minimal_symbol *trampoline_symbol = NULL; for (objfile = object_files; objfile != NULL && found_symbol == NULL; objfile = objfile -> next) { if (objf == NULL || objf == objfile) { for (msymbol = objfile -> msymbols; msymbol != NULL && SYMBOL_NAME (msymbol) != NULL && found_symbol == NULL; msymbol++) { if (SYMBOL_MATCHES_NAME (msymbol, name)) { switch (MSYMBOL_TYPE (msymbol)) { case mst_file_text: case mst_file_data: case mst_file_bss: /* It is file-local. If we find more than one, just return the latest one (the user can't expect useful behavior in that case). */ found_file_symbol = msymbol; break; case mst_solib_trampoline: /* If a trampoline symbol is found, we prefer to keep looking for the *real* symbol. If the actual symbol is not found, then we'll use the trampoline entry. */ if (trampoline_symbol == NULL) trampoline_symbol = msymbol; break; case mst_unknown: default: found_symbol = msymbol; break; } } } } } /* External symbols are best. */ if (found_symbol) return found_symbol; /* File-local symbols are next best. */ if (found_file_symbol) return found_file_symbol; /* Symbols for shared library trampolines are next best. */ if (trampoline_symbol) return trampoline_symbol; return NULL; } /* Search through the minimal symbol table for each objfile and find the symbol whose address is the largest address that is still less than or equal to PC. Returns a pointer to the minimal symbol if such a symbol is found, or NULL if PC is not in a suitable range. Note that we need to look through ALL the minimal symbol tables before deciding on the symbol that comes closest to the specified PC. This is because objfiles can overlap, for example objfile A has .text at 0x100 and .data at 0x40000 and objfile B has .text at 0x234 and .data at 0x40048. */ struct minimal_symbol * lookup_minimal_symbol_by_pc (pc) register CORE_ADDR pc; { register int lo; register int hi; register int new; register struct objfile *objfile; register struct minimal_symbol *msymbol; register struct minimal_symbol *best_symbol = NULL; for (objfile = object_files; objfile != NULL; objfile = objfile -> next) { /* If this objfile has a minimal symbol table, go search it using a binary search. Note that a minimal symbol table always consists of at least two symbols, a "real" symbol and the terminating "null symbol". If there are no real symbols, then there is no minimal symbol table at all. */ if ((msymbol = objfile -> msymbols) != NULL) { lo = 0; hi = objfile -> minimal_symbol_count - 1; /* This code assumes that the minimal symbols are sorted by ascending address values. If the pc value is greater than or equal to the first symbol's address, then some symbol in this minimal symbol table is a suitable candidate for being the "best" symbol. This includes the last real symbol, for cases where the pc value is larger than any address in this vector. By iterating until the address associated with the current hi index (the endpoint of the test interval) is less than or equal to the desired pc value, we accomplish two things: (1) the case where the pc value is larger than any minimal symbol address is trivially solved, (2) the address associated with the hi index is always the one we want when the interation terminates. In essence, we are iterating the test interval down until the pc value is pushed out of it from the high end. Warning: this code is trickier than it would appear at first. */ /* Should also requires that pc is <= end of objfile. FIXME! */ if (pc >= SYMBOL_VALUE_ADDRESS (&msymbol[lo])) { while (SYMBOL_VALUE_ADDRESS (&msymbol[hi]) > pc) { /* pc is still strictly less than highest address */ /* Note "new" will always be >= lo */ new = (lo + hi) / 2; if ((SYMBOL_VALUE_ADDRESS (&msymbol[new]) >= pc) || (lo == new)) { hi = new; } else { lo = new; } } /* The minimal symbol indexed by hi now is the best one in this objfile's minimal symbol table. See if it is the best one overall. */ /* Skip any absolute symbols. This is apparently what adb and dbx do, and is needed for the CM-5. There are two known possible problems: (1) on ELF, apparently end, edata, etc. are absolute. Not sure ignoring them here is a big deal, but if we want to use them, the fix would go in elfread.c. (2) I think shared library entry points on the NeXT are absolute. If we want special handling for this it probably should be triggered by a special mst_abs_or_lib or some such. */ while (hi >= 0 && msymbol[hi].type == mst_abs) --hi; if (hi >= 0 && ((best_symbol == NULL) || (SYMBOL_VALUE_ADDRESS (best_symbol) < SYMBOL_VALUE_ADDRESS (&msymbol[hi])))) { best_symbol = &msymbol[hi]; } } } } return (best_symbol); } /* Prepare to start collecting minimal symbols. Note that presetting msym_bunch_index to BUNCH_SIZE causes the first call to save a minimal symbol to allocate the memory for the first bunch. */ void init_minimal_symbol_collection () { msym_count = 0; msym_bunch = NULL; msym_bunch_index = BUNCH_SIZE; } void prim_record_minimal_symbol (name, address, ms_type, objfile) const char *name; CORE_ADDR address; enum minimal_symbol_type ms_type; struct objfile *objfile; { int section; switch (ms_type) { case mst_text: case mst_file_text: case mst_solib_trampoline: section = SECT_OFF_TEXT; break; case mst_data: case mst_file_data: section = SECT_OFF_DATA; break; case mst_bss: case mst_file_bss: section = SECT_OFF_BSS; break; default: section = -1; } prim_record_minimal_symbol_and_info (name, address, ms_type, NULL, section, objfile); } void prim_record_minimal_symbol_and_info (name, address, ms_type, info, section, objfile) const char *name; CORE_ADDR address; enum minimal_symbol_type ms_type; char *info; int section; struct objfile *objfile; { register struct msym_bunch *new; register struct minimal_symbol *msymbol; if (ms_type == mst_file_text) { /* Don't put gcc_compiled, __gnu_compiled_cplus, and friends into the minimal symbols, because if there is also another symbol at the same address (e.g. the first function of the file), lookup_minimal_symbol_by_pc would have no way of getting the right one. */ if (name[0] == 'g' && (strcmp (name, GCC_COMPILED_FLAG_SYMBOL) == 0 || strcmp (name, GCC2_COMPILED_FLAG_SYMBOL) == 0)) return; { const char *tempstring = name; if (tempstring[0] == bfd_get_symbol_leading_char (objfile->obfd)) ++tempstring; if (STREQN (tempstring, "__gnu_compiled", 14)) return; } } if (msym_bunch_index == BUNCH_SIZE) { new = (struct msym_bunch *) xmalloc (sizeof (struct msym_bunch)); msym_bunch_index = 0; new -> next = msym_bunch; msym_bunch = new; } msymbol = &msym_bunch -> contents[msym_bunch_index]; SYMBOL_NAME (msymbol) = (char *) name; SYMBOL_INIT_LANGUAGE_SPECIFIC (msymbol, language_unknown); SYMBOL_VALUE_ADDRESS (msymbol) = address; SYMBOL_SECTION (msymbol) = section; MSYMBOL_TYPE (msymbol) = ms_type; /* FIXME: This info, if it remains, needs its own field. */ MSYMBOL_INFO (msymbol) = info; /* FIXME! */ msym_bunch_index++; msym_count++; } /* Compare two minimal symbols by address and return a signed result based on unsigned comparisons, so that we sort into unsigned numeric order. */ static int compare_minimal_symbols (fn1p, fn2p) const PTR fn1p; const PTR fn2p; { register const struct minimal_symbol *fn1; register const struct minimal_symbol *fn2; fn1 = (const struct minimal_symbol *) fn1p; fn2 = (const struct minimal_symbol *) fn2p; if (SYMBOL_VALUE_ADDRESS (fn1) < SYMBOL_VALUE_ADDRESS (fn2)) { return (-1); } else if (SYMBOL_VALUE_ADDRESS (fn1) > SYMBOL_VALUE_ADDRESS (fn2)) { return (1); } else { return (0); } } /* Discard the currently collected minimal symbols, if any. If we wish to save them for later use, we must have already copied them somewhere else before calling this function. FIXME: We could allocate the minimal symbol bunches on their own obstack and then simply blow the obstack away when we are done with it. Is it worth the extra trouble though? */ /* ARGSUSED */ void discard_minimal_symbols (foo) int foo; { register struct msym_bunch *next; while (msym_bunch != NULL) { next = msym_bunch -> next; free ((PTR)msym_bunch); msym_bunch = next; } } /* Compact duplicate entries out of a minimal symbol table by walking through the table and compacting out entries with duplicate addresses and matching names. Return the number of entries remaining. On entry, the table resides between msymbol[0] and msymbol[mcount]. On exit, it resides between msymbol[0] and msymbol[result_count]. When files contain multiple sources of symbol information, it is possible for the minimal symbol table to contain many duplicate entries. As an example, SVR4 systems use ELF formatted object files, which usually contain at least two different types of symbol tables (a standard ELF one and a smaller dynamic linking table), as well as DWARF debugging information for files compiled with -g. Without compacting, the minimal symbol table for gdb itself contains over a 1000 duplicates, about a third of the total table size. Aside from the potential trap of not noticing that two successive entries identify the same location, this duplication impacts the time required to linearly scan the table, which is done in a number of places. So we just do one linear scan here and toss out the duplicates. Note that we are not concerned here about recovering the space that is potentially freed up, because the strings themselves are allocated on the symbol_obstack, and will get automatically freed when the symbol table is freed. The caller can free up the unused minimal symbols at the end of the compacted region if their allocation strategy allows it. Also note we only go up to the next to last entry within the loop and then copy the last entry explicitly after the loop terminates. Since the different sources of information for each symbol may have different levels of "completeness", we may have duplicates that have one entry with type "mst_unknown" and the other with a known type. So if the one we are leaving alone has type mst_unknown, overwrite its type with the type from the one we are compacting out. */ static int compact_minimal_symbols (msymbol, mcount) struct minimal_symbol *msymbol; int mcount; { struct minimal_symbol *copyfrom; struct minimal_symbol *copyto; if (mcount > 0) { copyfrom = copyto = msymbol; while (copyfrom < msymbol + mcount - 1) { if (SYMBOL_VALUE_ADDRESS (copyfrom) == SYMBOL_VALUE_ADDRESS ((copyfrom + 1)) && (STREQ (SYMBOL_NAME (copyfrom), SYMBOL_NAME ((copyfrom + 1))))) { if (MSYMBOL_TYPE((copyfrom + 1)) == mst_unknown) { MSYMBOL_TYPE ((copyfrom + 1)) = MSYMBOL_TYPE (copyfrom); } copyfrom++; } else { *copyto++ = *copyfrom++; } } *copyto++ = *copyfrom++; mcount = copyto - msymbol; } return (mcount); } /* Add the minimal symbols in the existing bunches to the objfile's official minimal symbol table. In most cases there is no minimal symbol table yet for this objfile, and the existing bunches are used to create one. Once in a while (for shared libraries for example), we add symbols (e.g. common symbols) to an existing objfile. Because of the way minimal symbols are collected, we generally have no way of knowing what source language applies to any particular minimal symbol. Specifically, we have no way of knowing if the minimal symbol comes from a C++ compilation unit or not. So for the sake of supporting cached demangled C++ names, we have no choice but to try and demangle each new one that comes in. If the demangling succeeds, then we assume it is a C++ symbol and set the symbol's language and demangled name fields appropriately. Note that in order to avoid unnecessary demanglings, and allocating obstack space that subsequently can't be freed for the demangled names, we mark all newly added symbols with language_auto. After compaction of the minimal symbols, we go back and scan the entire minimal symbol table looking for these new symbols. For each new symbol we attempt to demangle it, and if successful, record it as a language_cplus symbol and cache the demangled form on the symbol obstack. Symbols which don't demangle are marked as language_unknown symbols, which inhibits future attempts to demangle them if we later add more minimal symbols. */ void install_minimal_symbols (objfile) struct objfile *objfile; { register int bindex; register int mcount; register struct msym_bunch *bunch; register struct minimal_symbol *msymbols; int alloc_count; register char leading_char; if (msym_count > 0) { /* Allocate enough space in the obstack, into which we will gather the bunches of new and existing minimal symbols, sort them, and then compact out the duplicate entries. Once we have a final table, we will give back the excess space. */ alloc_count = msym_count + objfile->minimal_symbol_count + 1; obstack_blank (&objfile->symbol_obstack, alloc_count * sizeof (struct minimal_symbol)); msymbols = (struct minimal_symbol *) obstack_base (&objfile->symbol_obstack); /* Copy in the existing minimal symbols, if there are any. */ if (objfile->minimal_symbol_count) memcpy ((char *)msymbols, (char *)objfile->msymbols, objfile->minimal_symbol_count * sizeof (struct minimal_symbol)); /* Walk through the list of minimal symbol bunches, adding each symbol to the new contiguous array of symbols. Note that we start with the current, possibly partially filled bunch (thus we use the current msym_bunch_index for the first bunch we copy over), and thereafter each bunch is full. */ mcount = objfile->minimal_symbol_count; leading_char = bfd_get_symbol_leading_char (objfile->obfd); for (bunch = msym_bunch; bunch != NULL; bunch = bunch -> next) { for (bindex = 0; bindex < msym_bunch_index; bindex++, mcount++) { msymbols[mcount] = bunch -> contents[bindex]; SYMBOL_LANGUAGE (&msymbols[mcount]) = language_auto; if (SYMBOL_NAME (&msymbols[mcount])[0] == leading_char) { SYMBOL_NAME(&msymbols[mcount])++; } } msym_bunch_index = BUNCH_SIZE; } /* Sort the minimal symbols by address. */ qsort (msymbols, mcount, sizeof (struct minimal_symbol), compare_minimal_symbols); /* Compact out any duplicates, and free up whatever space we are no longer using. */ mcount = compact_minimal_symbols (msymbols, mcount); obstack_blank (&objfile->symbol_obstack, (mcount + 1 - alloc_count) * sizeof (struct minimal_symbol)); msymbols = (struct minimal_symbol *) obstack_finish (&objfile->symbol_obstack); /* We also terminate the minimal symbol table with a "null symbol", which is *not* included in the size of the table. This makes it easier to find the end of the table when we are handed a pointer to some symbol in the middle of it. Zero out the fields in the "null symbol" allocated at the end of the array. Note that the symbol count does *not* include this null symbol, which is why it is indexed by mcount and not mcount-1. */ SYMBOL_NAME (&msymbols[mcount]) = NULL; SYMBOL_VALUE_ADDRESS (&msymbols[mcount]) = 0; MSYMBOL_INFO (&msymbols[mcount]) = NULL; MSYMBOL_TYPE (&msymbols[mcount]) = mst_unknown; SYMBOL_INIT_LANGUAGE_SPECIFIC (&msymbols[mcount], language_unknown); /* Attach the minimal symbol table to the specified objfile. The strings themselves are also located in the symbol_obstack of this objfile. */ objfile -> minimal_symbol_count = mcount; objfile -> msymbols = msymbols; /* Now walk through all the minimal symbols, selecting the newly added ones and attempting to cache their C++ demangled names. */ for ( ; mcount-- > 0 ; msymbols++) { SYMBOL_INIT_DEMANGLED_NAME (msymbols, &objfile->symbol_obstack); } } } /* Check if PC is in a shared library trampoline code stub. Return minimal symbol for the trampoline entry or NULL if PC is not in a trampoline code stub. */ struct minimal_symbol * lookup_solib_trampoline_symbol_by_pc (pc) CORE_ADDR pc; { struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (pc); if (msymbol != NULL && MSYMBOL_TYPE (msymbol) == mst_solib_trampoline) return msymbol; return NULL; } /* If PC is in a shared library trampoline code stub, return the address of the `real' function belonging to the stub. Return 0 if PC is not in a trampoline code stub or if the real function is not found in the minimal symbol table. We may fail to find the right function if a function with the same name is defined in more than one shared library, but this is considered bad programming style. We could return 0 if we find a duplicate function in case this matters someday. */ CORE_ADDR find_solib_trampoline_target (pc) CORE_ADDR pc; { struct objfile *objfile; struct minimal_symbol *msymbol; struct minimal_symbol *tsymbol = lookup_solib_trampoline_symbol_by_pc (pc); if (tsymbol != NULL) { ALL_MSYMBOLS (objfile, msymbol) { if (MSYMBOL_TYPE (msymbol) == mst_text && STREQ (SYMBOL_NAME (msymbol), SYMBOL_NAME (tsymbol))) return SYMBOL_VALUE_ADDRESS (msymbol); } } return 0; } gdb-4.13/gdb/mips-nat.c 666 34562 1752 15260 5417416360 13217 0ustar fnfcygnus/* Low level DECstation interface to ptrace, for GDB when running native. Copyright 1988, 1989, 1991, 1992 Free Software Foundation, Inc. Contributed by Alessandro Forin(af@cs.cmu.edu) at CMU and by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "gdbcore.h" #include #include #include #include #undef JB_S0 #undef JB_S1 #undef JB_S2 #undef JB_S3 #undef JB_S4 #undef JB_S5 #undef JB_S6 #undef JB_S7 #undef JB_SP #undef JB_S8 #undef JB_PC #undef JB_SR #undef NJBREGS #include /* For JB_XXX. */ /* Size of elements in jmpbuf */ #define JB_ELEMENT_SIZE 4 /* Map gdb internal register number to ptrace ``address''. These ``addresses'' are defined in DECstation */ #define REGISTER_PTRACE_ADDR(regno) \ (regno < 32 ? GPR_BASE + regno \ : regno == PC_REGNUM ? PC \ : regno == CAUSE_REGNUM ? CAUSE \ : regno == HI_REGNUM ? MMHI \ : regno == LO_REGNUM ? MMLO \ : regno == FCRCS_REGNUM ? FPC_CSR \ : regno == FCRIR_REGNUM ? FPC_EIR \ : regno >= FP0_REGNUM ? FPR_BASE + (regno - FP0_REGNUM) \ : 0) static char zerobuf[MAX_REGISTER_RAW_SIZE] = {0}; /* Get all registers from the inferior */ void fetch_inferior_registers (regno) int regno; { register unsigned int regaddr; char buf[MAX_REGISTER_RAW_SIZE]; register int i; registers_fetched (); for (regno = 1; regno < NUM_REGS; regno++) { regaddr = REGISTER_PTRACE_ADDR (regno); for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) { *(int *) &buf[i] = ptrace (PT_READ_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0); regaddr += sizeof (int); } supply_register (regno, buf); } supply_register (ZERO_REGNUM, zerobuf); /* Frame ptr reg must appear to be 0; it is faked by stack handling code. */ supply_register (FP_REGNUM, zerobuf); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { register unsigned int regaddr; char buf[80]; if (regno == 0) return; if (regno > 0) { regaddr = REGISTER_PTRACE_ADDR (regno); errno = 0; ptrace (PT_WRITE_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, read_register (regno)); if (errno != 0) { sprintf (buf, "writing register number %d", regno); perror_with_name (buf); } } else { for (regno = 0; regno < NUM_REGS; regno++) { if (regno == ZERO_REGNUM || regno == PS_REGNUM || regno == BADVADDR_REGNUM || regno == CAUSE_REGNUM || regno == FCRIR_REGNUM || regno == FP_REGNUM || (regno >= FIRST_EMBED_REGNUM && regno <= LAST_EMBED_REGNUM)) continue; regaddr = REGISTER_PTRACE_ADDR (regno); errno = 0; ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, read_register (regno)); if (errno != 0) { sprintf (buf, "writing all regs, number %d", regno); perror_with_name (buf); } } } } /* Figure out where the longjmp will land. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into PC. This routine returns true on success. */ int get_longjmp_target(pc) CORE_ADDR *pc; { CORE_ADDR jb_addr; char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT]; jb_addr = read_register (A0_REGNUM); if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf, TARGET_PTR_BIT / TARGET_CHAR_BIT)) return 0; *pc = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT); return 1; } /* Extract the register values out of the core file and store them where `read_register' will find them. CORE_REG_SECT points to the register values themselves, read into memory. CORE_REG_SIZE is the size of that area. WHICH says which set of registers we are handling (0 = int, 2 = float on machines where they are discontiguous). REG_ADDR is the offset from u.u_ar0 to the register values relative to core_reg_sect. This is used with old-fashioned core files to locate the registers in a large upage-plus-stack ".reg" section. Original upage address X is at location core_reg_sect+x+reg_addr. */ void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned reg_addr; { register int regno; register unsigned int addr; int bad_reg = -1; register reg_ptr = -reg_addr; /* Original u.u_ar0 is -reg_addr. */ /* If u.u_ar0 was an absolute address in the core file, relativize it now, so we can use it as an offset into core_reg_sect. When we're done, "register 0" will be at core_reg_sect+reg_ptr, and we can use register_addr to offset to the other registers. If this is a modern core file without a upage, reg_ptr will be zero and this is all a big NOP. */ if (reg_ptr > core_reg_size) #ifdef KERNEL_U_ADDR reg_ptr -= KERNEL_U_ADDR; #else error ("Old mips core file can't be processed on this machine."); #endif for (regno = 0; regno < NUM_REGS; regno++) { addr = register_addr (regno, reg_ptr); if (addr >= core_reg_size) { if (bad_reg < 0) bad_reg = regno; } else { supply_register (regno, core_reg_sect + addr); } } if (bad_reg >= 0) { error ("Register %s not found in core file.", reg_names[bad_reg]); } supply_register (ZERO_REGNUM, zerobuf); /* Frame ptr reg must appear to be 0; it is faked by stack handling code. */ supply_register (FP_REGNUM, zerobuf); } /* Return the address in the core dump or inferior of register REGNO. BLOCKEND is the address of the end of the user structure. */ unsigned int register_addr (regno, blockend) int regno; int blockend; { int addr; if (regno < 0 || regno >= NUM_REGS) error ("Invalid register number %d.", regno); REGISTER_U_ADDR (addr, blockend, regno); return addr; } gdb-4.13/gdb/mips-pinsn.c 666 34562 1752 2546 5465305621 13547 0ustar fnfcygnus/* Print mips instructions for GDB, the GNU debugger. Copyright 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dis-asm.h" /* Print the mips instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes, which is always 4. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO(info, stream); /* print_insn_mips is in opcodes/mips-dis.c. */ if (TARGET_BYTE_ORDER == BIG_ENDIAN) return print_insn_big_mips ((bfd_vma) memaddr, &info); else return print_insn_little_mips ((bfd_vma) memaddr, &info); } gdb-4.13/gdb/mips-tdep.c 666 34562 1752 110236 5621013136 13377 0ustar fnfcygnus/* Target-dependent code for the MIPS architecture, for GDB, the GNU Debugger. Copyright 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Alessandro Forin(af@cs.cmu.edu) at CMU and by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "symtab.h" #include "value.h" #include "gdbcmd.h" #include "language.h" #include "gdbcore.h" #include "symfile.h" #include "objfiles.h" #include "gdbtypes.h" #include "opcode/mips.h" #define VM_MIN_ADDRESS (unsigned)0x400000 /* FIXME: Put this declaration in frame.h. */ extern struct obstack frame_cache_obstack; #if 0 static int mips_in_lenient_prologue PARAMS ((CORE_ADDR, CORE_ADDR)); #endif /* Some MIPS boards don't support floating point, so we permit the user to turn it off. */ int mips_fpu = 1; /* Heuristic_proc_start may hunt through the text section for a long time across a 2400 baud serial line. Allows the user to limit this search. */ static unsigned int heuristic_fence_post = 0; #define PROC_LOW_ADDR(proc) ((proc)->pdr.adr) /* least address */ #define PROC_HIGH_ADDR(proc) ((proc)->pdr.iline) /* upper address bound */ #define PROC_FRAME_OFFSET(proc) ((proc)->pdr.frameoffset) #define PROC_FRAME_REG(proc) ((proc)->pdr.framereg) #define PROC_REG_MASK(proc) ((proc)->pdr.regmask) #define PROC_FREG_MASK(proc) ((proc)->pdr.fregmask) #define PROC_REG_OFFSET(proc) ((proc)->pdr.regoffset) #define PROC_FREG_OFFSET(proc) ((proc)->pdr.fregoffset) #define PROC_PC_REG(proc) ((proc)->pdr.pcreg) #define PROC_SYMBOL(proc) (*(struct symbol**)&(proc)->pdr.isym) #define _PROC_MAGIC_ 0x0F0F0F0F #define PROC_DESC_IS_DUMMY(proc) ((proc)->pdr.isym == _PROC_MAGIC_) #define SET_PROC_DESC_IS_DUMMY(proc) ((proc)->pdr.isym = _PROC_MAGIC_) struct linked_proc_info { struct mips_extra_func_info info; struct linked_proc_info *next; } *linked_proc_desc_table = NULL; /* Guaranteed to set fci->saved_regs to some values (it never leaves it NULL). */ void mips_find_saved_regs (fci) FRAME fci; { int ireg; CORE_ADDR reg_position; /* r0 bit means kernel trap */ int kernel_trap; /* What registers have been saved? Bitmasks. */ unsigned long gen_mask, float_mask; mips_extra_func_info_t proc_desc; fci->saved_regs = (struct frame_saved_regs *) obstack_alloc (&frame_cache_obstack, sizeof(struct frame_saved_regs)); memset (fci->saved_regs, 0, sizeof (struct frame_saved_regs)); proc_desc = fci->proc_desc; if (proc_desc == NULL) /* I'm not sure how/whether this can happen. Normally when we can't find a proc_desc, we "synthesize" one using heuristic_proc_desc and set the saved_regs right away. */ return; kernel_trap = PROC_REG_MASK(proc_desc) & 1; gen_mask = kernel_trap ? 0xFFFFFFFF : PROC_REG_MASK(proc_desc); float_mask = kernel_trap ? 0xFFFFFFFF : PROC_FREG_MASK(proc_desc); if (/* In any frame other than the innermost, we assume that all registers have been saved. This assumes that all register saves in a function happen before the first function call. */ fci->next == NULL /* In a dummy frame we know exactly where things are saved. */ && !PROC_DESC_IS_DUMMY (proc_desc) /* Not sure exactly what kernel_trap means, but if it means the kernel saves the registers without a prologue doing it, we better not examine the prologue to see whether registers have been saved yet. */ && !kernel_trap) { /* We need to figure out whether the registers that the proc_desc claims are saved have been saved yet. */ CORE_ADDR addr; int status; char buf[4]; unsigned long inst; /* Bitmasks; set if we have found a save for the register. */ unsigned long gen_save_found = 0; unsigned long float_save_found = 0; for (addr = PROC_LOW_ADDR (proc_desc); addr < fci->pc /*&& (gen_mask != gen_save_found || float_mask != float_save_found)*/; addr += 4) { status = read_memory_nobpt (addr, buf, 4); if (status) memory_error (status, addr); inst = extract_unsigned_integer (buf, 4); if (/* sw reg,n($sp) */ (inst & 0xffe00000) == 0xafa00000 /* sw reg,n($r30) */ || (inst & 0xffe00000) == 0xafc00000 /* sd reg,n($sp) */ || (inst & 0xffe00000) == 0xffa00000) { /* It might be possible to use the instruction to find the offset, rather than the code below which is based on things being in a certain order in the frame, but figuring out what the instruction's offset is relative to might be a little tricky. */ int reg = (inst & 0x001f0000) >> 16; gen_save_found |= (1 << reg); } else if (/* swc1 freg,n($sp) */ (inst & 0xffe00000) == 0xe7a00000 /* swc1 freg,n($r30) */ || (inst & 0xffe00000) == 0xe7c00000 /* sdc1 freg,n($sp) */ || (inst & 0xffe00000) == 0xf7a00000) { int reg = ((inst & 0x001f0000) >> 16); float_save_found |= (1 << reg); } } gen_mask = gen_save_found; float_mask = float_save_found; } /* Fill in the offsets for the registers which gen_mask says were saved. */ reg_position = fci->frame + PROC_REG_OFFSET (proc_desc); for (ireg= 31; gen_mask; --ireg, gen_mask <<= 1) if (gen_mask & 0x80000000) { fci->saved_regs->regs[ireg] = reg_position; reg_position -= MIPS_REGSIZE; } /* Fill in the offsets for the registers which float_mask says were saved. */ reg_position = fci->frame + PROC_FREG_OFFSET (proc_desc); /* The freg_offset points to where the first *double* register is saved. So skip to the high-order word. */ reg_position += 4; for (ireg = 31; float_mask; --ireg, float_mask <<= 1) if (float_mask & 0x80000000) { fci->saved_regs->regs[FP0_REGNUM+ireg] = reg_position; reg_position -= MIPS_REGSIZE; } fci->saved_regs->regs[PC_REGNUM] = fci->saved_regs->regs[RA_REGNUM]; } static int read_next_frame_reg(fi, regno) FRAME fi; int regno; { /* If it is the frame for sigtramp we have a complete sigcontext somewhere above the frame and we get the saved registers from there. If the stack layout for sigtramp changes we might have to change these constants and the companion fixup_sigtramp in mdebugread.c */ #ifndef SIGFRAME_BASE /* To satisfy alignment restrictions the sigcontext is located 4 bytes above the sigtramp frame. */ #define SIGFRAME_BASE 4 #define SIGFRAME_PC_OFF (SIGFRAME_BASE + 2 * 4) #define SIGFRAME_REGSAVE_OFF (SIGFRAME_BASE + 3 * 4) #endif #ifndef SIGFRAME_REG_SIZE #define SIGFRAME_REG_SIZE 4 #endif for (; fi; fi = fi->next) { if (fi->signal_handler_caller) { int offset; if (regno == PC_REGNUM) offset = SIGFRAME_PC_OFF; else if (regno < 32) offset = (SIGFRAME_REGSAVE_OFF + regno * SIGFRAME_REG_SIZE); else return 0; return read_memory_integer(fi->frame + offset, MIPS_REGSIZE); } else if (regno == SP_REGNUM) return fi->frame; else { if (fi->saved_regs == NULL) mips_find_saved_regs (fi); if (fi->saved_regs->regs[regno]) return read_memory_integer(fi->saved_regs->regs[regno], MIPS_REGSIZE); } } return read_register (regno); } int mips_frame_saved_pc(frame) FRAME frame; { mips_extra_func_info_t proc_desc = frame->proc_desc; /* We have to get the saved pc from the sigcontext if it is a signal handler frame. */ int pcreg = frame->signal_handler_caller ? PC_REGNUM : (proc_desc ? PROC_PC_REG(proc_desc) : RA_REGNUM); if (proc_desc && PROC_DESC_IS_DUMMY(proc_desc)) return read_memory_integer(frame->frame - 4, 4); return read_next_frame_reg(frame, pcreg); } static struct mips_extra_func_info temp_proc_desc; static struct frame_saved_regs temp_saved_regs; /* This fencepost looks highly suspicious to me. Removing it also seems suspicious as it could affect remote debugging across serial lines. */ static CORE_ADDR heuristic_proc_start(pc) CORE_ADDR pc; { CORE_ADDR start_pc = pc; CORE_ADDR fence = start_pc - heuristic_fence_post; if (start_pc == 0) return 0; if (heuristic_fence_post == UINT_MAX || fence < VM_MIN_ADDRESS) fence = VM_MIN_ADDRESS; /* search back for previous return */ for (start_pc -= 4; ; start_pc -= 4) if (start_pc < fence) { /* It's not clear to me why we reach this point when stop_soon_quietly, but with this test, at least we don't print out warnings for every child forked (eg, on decstation). 22apr93 rich@cygnus.com. */ if (!stop_soon_quietly) { static int blurb_printed = 0; if (fence == VM_MIN_ADDRESS) warning("Hit beginning of text section without finding"); else warning("Hit heuristic-fence-post without finding"); warning("enclosing function for address 0x%x", pc); if (!blurb_printed) { printf_filtered ("\ This warning occurs if you are debugging a function without any symbols\n\ (for example, in a stripped executable). In that case, you may wish to\n\ increase the size of the search with the `set heuristic-fence-post' command.\n\ \n\ Otherwise, you told GDB there was a function where there isn't one, or\n\ (more likely) you have encountered a bug in GDB.\n"); blurb_printed = 1; } } return 0; } else if (ABOUT_TO_RETURN(start_pc)) break; start_pc += 8; /* skip return, and its delay slot */ #if 0 /* skip nops (usually 1) 0 - is this */ while (start_pc < pc && read_memory_integer (start_pc, 4) == 0) start_pc += 4; #endif return start_pc; } static mips_extra_func_info_t heuristic_proc_desc(start_pc, limit_pc, next_frame) CORE_ADDR start_pc, limit_pc; FRAME next_frame; { CORE_ADDR sp = read_next_frame_reg (next_frame, SP_REGNUM); CORE_ADDR cur_pc; int frame_size; int has_frame_reg = 0; int reg30 = 0; /* Value of $r30. Used by gcc for frame-pointer */ unsigned long reg_mask = 0; if (start_pc == 0) return NULL; memset(&temp_proc_desc, '\0', sizeof(temp_proc_desc)); memset(&temp_saved_regs, '\0', sizeof(struct frame_saved_regs)); PROC_LOW_ADDR(&temp_proc_desc) = start_pc; if (start_pc + 200 < limit_pc) limit_pc = start_pc + 200; restart: frame_size = 0; for (cur_pc = start_pc; cur_pc < limit_pc; cur_pc += 4) { char buf[4]; unsigned long word; int status; status = read_memory_nobpt (cur_pc, buf, 4); if (status) memory_error (status, cur_pc); word = extract_unsigned_integer (buf, 4); if ((word & 0xFFFF0000) == 0x27bd0000) /* addiu $sp,$sp,-i */ frame_size += (-word) & 0xFFFF; else if ((word & 0xFFFF0000) == 0x23bd0000) /* addu $sp,$sp,-i */ frame_size += (-word) & 0xFFFF; else if ((word & 0xFFE00000) == 0xafa00000) { /* sw reg,offset($sp) */ int reg = (word & 0x001F0000) >> 16; reg_mask |= 1 << reg; temp_saved_regs.regs[reg] = sp + (word & 0xffff); } else if ((word & 0xFFFF0000) == 0x27be0000) { /* addiu $30,$sp,size */ if ((word & 0xffff) != frame_size) reg30 = sp + (word & 0xffff); else if (!has_frame_reg) { int alloca_adjust; has_frame_reg = 1; reg30 = read_next_frame_reg(next_frame, 30); alloca_adjust = reg30 - (sp + (word & 0xffff)); if (alloca_adjust > 0) { /* FP > SP + frame_size. This may be because * of an alloca or somethings similar. * Fix sp to "pre-alloca" value, and try again. */ sp += alloca_adjust; goto restart; } } } else if ((word & 0xFFE00000) == 0xafc00000) { /* sw reg,offset($30) */ int reg = (word & 0x001F0000) >> 16; reg_mask |= 1 << reg; temp_saved_regs.regs[reg] = reg30 + (word & 0xffff); } } if (has_frame_reg) { PROC_FRAME_REG(&temp_proc_desc) = 30; PROC_FRAME_OFFSET(&temp_proc_desc) = 0; } else { PROC_FRAME_REG(&temp_proc_desc) = SP_REGNUM; PROC_FRAME_OFFSET(&temp_proc_desc) = frame_size; } PROC_REG_MASK(&temp_proc_desc) = reg_mask; PROC_PC_REG(&temp_proc_desc) = RA_REGNUM; return &temp_proc_desc; } static mips_extra_func_info_t find_proc_desc(pc, next_frame) CORE_ADDR pc; FRAME next_frame; { mips_extra_func_info_t proc_desc; struct block *b = block_for_pc(pc); struct symbol *sym; CORE_ADDR startaddr; find_pc_partial_function (pc, NULL, &startaddr, NULL); if (b == NULL) sym = NULL; else { if (startaddr > BLOCK_START (b)) /* This is the "pathological" case referred to in a comment in print_frame_info. It might be better to move this check into symbol reading. */ sym = NULL; else sym = lookup_symbol (MIPS_EFI_SYMBOL_NAME, b, LABEL_NAMESPACE, 0, NULL); } if (sym) { /* IF this is the topmost frame AND * (this proc does not have debugging information OR * the PC is in the procedure prologue) * THEN create a "heuristic" proc_desc (by analyzing * the actual code) to replace the "official" proc_desc. */ proc_desc = (mips_extra_func_info_t)SYMBOL_VALUE(sym); if (next_frame == NULL) { struct symtab_and_line val; struct symbol *proc_symbol = PROC_DESC_IS_DUMMY(proc_desc) ? 0 : PROC_SYMBOL(proc_desc); if (proc_symbol) { val = find_pc_line (BLOCK_START (SYMBOL_BLOCK_VALUE(proc_symbol)), 0); val.pc = val.end ? val.end : pc; } if (!proc_symbol || pc < val.pc) { mips_extra_func_info_t found_heuristic = heuristic_proc_desc(PROC_LOW_ADDR(proc_desc), pc, next_frame); if (found_heuristic) proc_desc = found_heuristic; } } } else { /* Is linked_proc_desc_table really necessary? It only seems to be used by procedure call dummys. However, the procedures being called ought to have their own proc_descs, and even if they don't, heuristic_proc_desc knows how to create them! */ register struct linked_proc_info *link; for (link = linked_proc_desc_table; link; link = link->next) if (PROC_LOW_ADDR(&link->info) <= pc && PROC_HIGH_ADDR(&link->info) > pc) return &link->info; if (startaddr == 0) startaddr = heuristic_proc_start (pc); proc_desc = heuristic_proc_desc (startaddr, pc, next_frame); } return proc_desc; } mips_extra_func_info_t cached_proc_desc; FRAME_ADDR mips_frame_chain(frame) FRAME frame; { mips_extra_func_info_t proc_desc; CORE_ADDR saved_pc = FRAME_SAVED_PC(frame); if (saved_pc == 0 || inside_entry_file (saved_pc)) return 0; proc_desc = find_proc_desc(saved_pc, frame); if (!proc_desc) return 0; cached_proc_desc = proc_desc; /* If no frame pointer and frame size is zero, we must be at end of stack (or otherwise hosed). If we don't check frame size, we loop forever if we see a zero size frame. */ if (PROC_FRAME_REG (proc_desc) == SP_REGNUM && PROC_FRAME_OFFSET (proc_desc) == 0 /* The previous frame from a sigtramp frame might be frameless and have frame size zero. */ && !frame->signal_handler_caller) return 0; else return read_next_frame_reg(frame, PROC_FRAME_REG(proc_desc)) + PROC_FRAME_OFFSET(proc_desc); } void init_extra_frame_info(fci) struct frame_info *fci; { /* Use proc_desc calculated in frame_chain */ mips_extra_func_info_t proc_desc = fci->next ? cached_proc_desc : find_proc_desc(fci->pc, fci->next); fci->saved_regs = NULL; fci->proc_desc = proc_desc == &temp_proc_desc ? 0 : proc_desc; if (proc_desc) { /* Fixup frame-pointer - only needed for top frame */ /* This may not be quite right, if proc has a real frame register. Get the value of the frame relative sp, procedure might have been interrupted by a signal at it's very start. */ if (fci->pc == PROC_LOW_ADDR (proc_desc) && !PROC_DESC_IS_DUMMY (proc_desc)) fci->frame = read_next_frame_reg (fci->next, SP_REGNUM); else fci->frame = read_next_frame_reg (fci->next, PROC_FRAME_REG (proc_desc)) + PROC_FRAME_OFFSET (proc_desc); if (proc_desc == &temp_proc_desc) { fci->saved_regs = (struct frame_saved_regs*) obstack_alloc (&frame_cache_obstack, sizeof (struct frame_saved_regs)); *fci->saved_regs = temp_saved_regs; fci->saved_regs->regs[PC_REGNUM] = fci->saved_regs->regs[RA_REGNUM]; } /* hack: if argument regs are saved, guess these contain args */ if ((PROC_REG_MASK(proc_desc) & 0xF0) == 0) fci->num_args = -1; else if ((PROC_REG_MASK(proc_desc) & 0x80) == 0) fci->num_args = 4; else if ((PROC_REG_MASK(proc_desc) & 0x40) == 0) fci->num_args = 3; else if ((PROC_REG_MASK(proc_desc) & 0x20) == 0) fci->num_args = 2; else if ((PROC_REG_MASK(proc_desc) & 0x10) == 0) fci->num_args = 1; } } /* MIPS stack frames are almost impenetrable. When execution stops, we basically have to look at symbol information for the function that we stopped in, which tells us *which* register (if any) is the base of the frame pointer, and what offset from that register the frame itself is at. This presents a problem when trying to examine a stack in memory (that isn't executing at the moment), using the "frame" command. We don't have a PC, nor do we have any registers except SP. This routine takes two arguments, SP and PC, and tries to make the cached frames look as if these two arguments defined a frame on the cache. This allows the rest of info frame to extract the important arguments without difficulty. */ FRAME setup_arbitrary_frame (argc, argv) int argc; FRAME_ADDR *argv; { if (argc != 2) error ("MIPS frame specifications require two arguments: sp and pc"); return create_new_frame (argv[0], argv[1]); } CORE_ADDR mips_push_arguments(nargs, args, sp, struct_return, struct_addr) int nargs; value_ptr *args; CORE_ADDR sp; int struct_return; CORE_ADDR struct_addr; { register i; int accumulate_size = struct_return ? MIPS_REGSIZE : 0; struct mips_arg { char *contents; int len; int offset; }; struct mips_arg *mips_args = (struct mips_arg*)alloca((nargs + 4) * sizeof(struct mips_arg)); register struct mips_arg *m_arg; int fake_args = 0; for (i = 0, m_arg = mips_args; i < nargs; i++, m_arg++) { value_ptr arg = value_arg_coerce (args[i]); m_arg->len = TYPE_LENGTH (VALUE_TYPE (arg)); /* This entire mips-specific routine is because doubles must be aligned * on 8-byte boundaries. It still isn't quite right, because MIPS decided * to align 'struct {int a, b}' on 4-byte boundaries (even though this * breaks their varargs implementation...). A correct solution * requires an simulation of gcc's 'alignof' (and use of 'alignof' * in stdarg.h/varargs.h). * On the 64 bit r4000 we always pass the first four arguments * using eight bytes each, so that we can load them up correctly * in CALL_DUMMY. */ if (m_arg->len > 4) accumulate_size = (accumulate_size + 7) & -8; m_arg->offset = accumulate_size; m_arg->contents = VALUE_CONTENTS(arg); #ifndef GDB_TARGET_IS_MIPS64 accumulate_size = (accumulate_size + m_arg->len + 3) & -4; #else if (accumulate_size >= 4 * MIPS_REGSIZE) accumulate_size = (accumulate_size + m_arg->len + 3) &~ 4; else { static char zeroes[8] = { 0 }; int len = m_arg->len; if (len < 8) { #if TARGET_BYTE_ORDER == BIG_ENDIAN m_arg->offset += 8 - len; #endif ++m_arg; m_arg->len = 8 - len; m_arg->contents = zeroes; #if TARGET_BYTE_ORDER == BIG_ENDIAN m_arg->offset = accumulate_size; #else m_arg->offset = accumulate_size + len; #endif ++fake_args; } accumulate_size = (accumulate_size + len + 7) & ~8; } #endif } accumulate_size = (accumulate_size + 7) & (-8); if (accumulate_size < 4 * MIPS_REGSIZE) accumulate_size = 4 * MIPS_REGSIZE; sp -= accumulate_size; for (i = nargs + fake_args; m_arg--, --i >= 0; ) write_memory(sp + m_arg->offset, m_arg->contents, m_arg->len); if (struct_return) { char buf[TARGET_PTR_BIT / HOST_CHAR_BIT]; store_address (buf, sizeof buf, struct_addr); write_memory (sp, buf, sizeof buf); } return sp; } /* MASK(i,j) == (1<info; CORE_ADDR sp = read_register (SP_REGNUM); CORE_ADDR save_address; link->next = linked_proc_desc_table; linked_proc_desc_table = link; #define PUSH_FP_REGNUM 16 /* must be a register preserved across calls */ #define GEN_REG_SAVE_MASK MASK(1,16)|MASK(24,28)|(1<<31) #define GEN_REG_SAVE_COUNT 22 #define FLOAT_REG_SAVE_MASK MASK(0,19) #define FLOAT_REG_SAVE_COUNT 20 #define SPECIAL_REG_SAVE_COUNT 4 /* * The registers we must save are all those not preserved across * procedure calls. Dest_Reg (see tm-mips.h) must also be saved. * In addition, we must save the PC, and PUSH_FP_REGNUM. * (Ideally, we should also save MDLO/-HI and FP Control/Status reg.) * * Dummy frame layout: * (high memory) * Saved PC * Saved MMHI, MMLO, FPC_CSR * Saved R31 * Saved R28 * ... * Saved R1 * Saved D18 (i.e. F19, F18) * ... * Saved D0 (i.e. F1, F0) * CALL_DUMMY (subroutine stub; see tm-mips.h) * Parameter build area (not yet implemented) * (low memory) */ PROC_REG_MASK(proc_desc) = GEN_REG_SAVE_MASK; PROC_FREG_MASK(proc_desc) = mips_fpu ? FLOAT_REG_SAVE_MASK : 0; PROC_REG_OFFSET(proc_desc) = /* offset of (Saved R31) from FP */ -sizeof(long) - 4 * SPECIAL_REG_SAVE_COUNT; PROC_FREG_OFFSET(proc_desc) = /* offset of (Saved D18) from FP */ -sizeof(double) - 4 * (SPECIAL_REG_SAVE_COUNT + GEN_REG_SAVE_COUNT); /* save general registers */ save_address = sp + PROC_REG_OFFSET(proc_desc); for (ireg = 32; --ireg >= 0; ) if (PROC_REG_MASK(proc_desc) & (1 << ireg)) { read_register_gen (ireg, buffer); /* Need to fix the save_address decrement below, and also make sure that we don't run into problems with the size of the dummy frame or any of the offsets within it. */ if (REGISTER_RAW_SIZE (ireg) > 4) error ("Cannot call functions on mips64"); write_memory (save_address, buffer, REGISTER_RAW_SIZE (ireg)); save_address -= 4; } /* save floating-points registers starting with high order word */ save_address = sp + PROC_FREG_OFFSET(proc_desc) + 4; for (ireg = 32; --ireg >= 0; ) if (PROC_FREG_MASK(proc_desc) & (1 << ireg)) { read_register_gen (ireg + FP0_REGNUM, buffer); if (REGISTER_RAW_SIZE (ireg + FP0_REGNUM) > 4) error ("Cannot call functions on mips64"); write_memory (save_address, buffer, REGISTER_RAW_SIZE (ireg + FP0_REGNUM)); save_address -= 4; } write_register (PUSH_FP_REGNUM, sp); PROC_FRAME_REG(proc_desc) = PUSH_FP_REGNUM; PROC_FRAME_OFFSET(proc_desc) = 0; read_register_gen (PC_REGNUM, buffer); write_memory (sp - 4, buffer, REGISTER_RAW_SIZE (PC_REGNUM)); read_register_gen (HI_REGNUM, buffer); write_memory (sp - 8, buffer, REGISTER_RAW_SIZE (HI_REGNUM)); read_register_gen (LO_REGNUM, buffer); write_memory (sp - 12, buffer, REGISTER_RAW_SIZE (LO_REGNUM)); if (mips_fpu) read_register_gen (FCRCS_REGNUM, buffer); else memset (buffer, 0, REGISTER_RAW_SIZE (FCRCS_REGNUM)); write_memory (sp - 16, buffer, REGISTER_RAW_SIZE (FCRCS_REGNUM)); sp -= 4 * (GEN_REG_SAVE_COUNT + (mips_fpu ? FLOAT_REG_SAVE_COUNT : 0) + SPECIAL_REG_SAVE_COUNT); write_register (SP_REGNUM, sp); PROC_LOW_ADDR(proc_desc) = sp - CALL_DUMMY_SIZE + CALL_DUMMY_START_OFFSET; PROC_HIGH_ADDR(proc_desc) = sp; SET_PROC_DESC_IS_DUMMY(proc_desc); PROC_PC_REG(proc_desc) = RA_REGNUM; } void mips_pop_frame() { register int regnum; FRAME frame = get_current_frame (); CORE_ADDR new_sp = frame->frame; mips_extra_func_info_t proc_desc = frame->proc_desc; write_register (PC_REGNUM, FRAME_SAVED_PC(frame)); if (frame->saved_regs == NULL) mips_find_saved_regs (frame); if (proc_desc) { for (regnum = 32; --regnum >= 0; ) if (PROC_REG_MASK(proc_desc) & (1 << regnum)) write_register (regnum, read_memory_integer (frame->saved_regs->regs[regnum], 4)); for (regnum = 32; --regnum >= 0; ) if (PROC_FREG_MASK(proc_desc) & (1 << regnum)) write_register (regnum + FP0_REGNUM, read_memory_integer (frame->saved_regs->regs[regnum + FP0_REGNUM], 4)); } write_register (SP_REGNUM, new_sp); flush_cached_frames (); /* We let mips_init_extra_frame_info figure out the frame pointer */ set_current_frame (create_new_frame (0, read_pc ())); if (proc_desc && PROC_DESC_IS_DUMMY(proc_desc)) { struct linked_proc_info *pi_ptr, *prev_ptr; for (pi_ptr = linked_proc_desc_table, prev_ptr = NULL; pi_ptr != NULL; prev_ptr = pi_ptr, pi_ptr = pi_ptr->next) { if (&pi_ptr->info == proc_desc) break; } if (pi_ptr == NULL) error ("Can't locate dummy extra frame info\n"); if (prev_ptr != NULL) prev_ptr->next = pi_ptr->next; else linked_proc_desc_table = pi_ptr->next; free (pi_ptr); write_register (HI_REGNUM, read_memory_integer(new_sp - 8, 4)); write_register (LO_REGNUM, read_memory_integer(new_sp - 12, 4)); if (mips_fpu) write_register (FCRCS_REGNUM, read_memory_integer(new_sp - 16, 4)); } } static void mips_print_register (regnum, all) int regnum, all; { unsigned char raw_buffer[MAX_REGISTER_RAW_SIZE]; struct type *our_type = init_type (TYPE_CODE_INT, /* We will fill in the length for each register. */ 0, TYPE_FLAG_UNSIGNED, NULL, NULL); /* Get the data in raw format. */ if (read_relative_register_raw_bytes (regnum, raw_buffer)) { printf_filtered ("%s: [Invalid]", reg_names[regnum]); return; } /* If an even floating pointer register, also print as double. */ if (regnum >= FP0_REGNUM && regnum < FP0_REGNUM+32 && !((regnum-FP0_REGNUM) & 1)) { char dbuffer[MAX_REGISTER_RAW_SIZE]; read_relative_register_raw_bytes (regnum, dbuffer); read_relative_register_raw_bytes (regnum+1, dbuffer+4); #ifdef REGISTER_CONVERT_TO_TYPE REGISTER_CONVERT_TO_TYPE(regnum, builtin_type_double, dbuffer); #endif printf_filtered ("(d%d: ", regnum-FP0_REGNUM); val_print (builtin_type_double, dbuffer, 0, gdb_stdout, 0, 1, 0, Val_pretty_default); printf_filtered ("); "); } fputs_filtered (reg_names[regnum], gdb_stdout); /* The problem with printing numeric register names (r26, etc.) is that the user can't use them on input. Probably the best solution is to fix it so that either the numeric or the funky (a2, etc.) names are accepted on input. */ if (regnum < 32) printf_filtered ("(r%d): ", regnum); else printf_filtered (": "); /* If virtual format is floating, print it that way. */ if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (regnum)) == TYPE_CODE_FLT && ! INVALID_FLOAT (raw_buffer, REGISTER_VIRTUAL_SIZE(regnum))) { val_print (REGISTER_VIRTUAL_TYPE (regnum), raw_buffer, 0, gdb_stdout, 0, 1, 0, Val_pretty_default); } /* Else print as integer in hex. */ else { print_scalar_formatted (raw_buffer, REGISTER_VIRTUAL_TYPE (regnum), 'x', 0, gdb_stdout); } } /* Replacement for generic do_registers_info. */ void mips_do_registers_info (regnum, fpregs) int regnum; int fpregs; { if (regnum != -1) { mips_print_register (regnum, 0); printf_filtered ("\n"); } else { for (regnum = 0; regnum < NUM_REGS; ) { if ((!fpregs) && regnum >= FP0_REGNUM && regnum <= FCRIR_REGNUM) { regnum++; continue; } mips_print_register (regnum, 1); regnum++; if ((regnum & 3) == 0 || regnum == NUM_REGS) printf_filtered (";\n"); else printf_filtered ("; "); } } } /* Return number of args passed to a frame. described by FIP. Can return -1, meaning no way to tell. */ int mips_frame_num_args(fip) FRAME fip; { #if 0 struct chain_info_t *p; p = mips_find_cached_frame(FRAME_FP(fip)); if (p->valid) return p->the_info.numargs; #endif return -1; } /* Is this a branch with a delay slot? */ static int is_delayed PARAMS ((unsigned long)); static int is_delayed (insn) unsigned long insn; { int i; for (i = 0; i < NUMOPCODES; ++i) if (mips_opcodes[i].pinfo != INSN_MACRO && (insn & mips_opcodes[i].mask) == mips_opcodes[i].match) break; return (i < NUMOPCODES && (mips_opcodes[i].pinfo & (INSN_UNCOND_BRANCH_DELAY | INSN_COND_BRANCH_DELAY | INSN_COND_BRANCH_LIKELY))); } int mips_step_skips_delay (pc) CORE_ADDR pc; { char buf[4]; if (target_read_memory (pc, buf, 4) != 0) /* If error reading memory, guess that it is not a delayed branch. */ return 0; return is_delayed (extract_unsigned_integer (buf, 4)); } /* To skip prologues, I use this predicate. Returns either PC itself if the code at PC does not look like a function prologue; otherwise returns an address that (if we're lucky) follows the prologue. If LENIENT, then we must skip everything which is involved in setting up the frame (it's OK to skip more, just so long as we don't skip anything which might clobber the registers which are being saved. We must skip more in the case where part of the prologue is in the delay slot of a non-prologue instruction). */ CORE_ADDR mips_skip_prologue (pc, lenient) CORE_ADDR pc; int lenient; { unsigned long inst; int offset; int seen_sp_adjust = 0; int load_immediate_bytes = 0; /* Skip the typical prologue instructions. These are the stack adjustment instruction and the instructions that save registers on the stack or in the gcc frame. */ for (offset = 0; offset < 100; offset += 4) { char buf[4]; int status; status = read_memory_nobpt (pc + offset, buf, 4); if (status) memory_error (status, pc + offset); inst = extract_unsigned_integer (buf, 4); #if 0 if (lenient && is_delayed (inst)) continue; #endif if ((inst & 0xffff0000) == 0x27bd0000) /* addiu $sp,$sp,offset */ seen_sp_adjust = 1; else if (inst == 0x03a1e823 || /* subu $sp,$sp,$at */ inst == 0x03a8e823) /* subu $sp,$sp,$t0 */ seen_sp_adjust = 1; else if ((inst & 0xFFE00000) == 0xAFA00000 && (inst & 0x001F0000)) continue; /* sw reg,n($sp) */ /* reg != $zero */ else if ((inst & 0xFFE00000) == 0xE7A00000) /* swc1 freg,n($sp) */ continue; else if ((inst & 0xF3E00000) == 0xA3C00000 && (inst & 0x001F0000)) /* sx reg,n($s8) */ continue; /* reg != $zero */ else if (inst == 0x03A0F021) /* move $s8,$sp */ continue; else if ((inst & 0xFF9F07FF) == 0x00800021) /* move reg,$a0-$a3 */ continue; else if ((inst & 0xffff0000) == 0x3c1c0000) /* lui $gp,n */ continue; else if ((inst & 0xffff0000) == 0x279c0000) /* addiu $gp,$gp,n */ continue; else if (inst == 0x0399e021 /* addu $gp,$gp,$t9 */ || inst == 0x033ce021) /* addu $gp,$t9,$gp */ continue; /* The following instructions load $at or $t0 with an immediate value in preparation for a stack adjustment via subu $sp,$sp,[$at,$t0]. These instructions could also initialize a local variable, so we accept them only before a stack adjustment instruction was seen. */ else if (!seen_sp_adjust) { if ((inst & 0xffff0000) == 0x3c010000 || /* lui $at,n */ (inst & 0xffff0000) == 0x3c080000) /* lui $t0,n */ { load_immediate_bytes += 4; continue; } else if ((inst & 0xffff0000) == 0x34210000 || /* ori $at,$at,n */ (inst & 0xffff0000) == 0x35080000 || /* ori $t0,$t0,n */ (inst & 0xffff0000) == 0x34010000 || /* ori $at,$zero,n */ (inst & 0xffff0000) == 0x34080000) /* ori $t0,$zero,n */ { load_immediate_bytes += 4; continue; } else break; } else break; } /* In a frameless function, we might have incorrectly skipped some load immediate instructions. Undo the skipping if the load immediate was not followed by a stack adjustment. */ if (load_immediate_bytes && !seen_sp_adjust) offset -= load_immediate_bytes; return pc + offset; } #if 0 /* The lenient prologue stuff should be superceded by the code in init_extra_frame_info which looks to see whether the stores mentioned in the proc_desc have actually taken place. */ /* Is address PC in the prologue (loosely defined) for function at STARTADDR? */ static int mips_in_lenient_prologue (startaddr, pc) CORE_ADDR startaddr; CORE_ADDR pc; { CORE_ADDR end_prologue = mips_skip_prologue (startaddr, 1); return pc >= startaddr && pc < end_prologue; } #endif /* Given a return value in `regbuf' with a type `valtype', extract and copy its value into `valbuf'. */ void mips_extract_return_value (valtype, regbuf, valbuf) struct type *valtype; char regbuf[REGISTER_BYTES]; char *valbuf; { int regnum; regnum = TYPE_CODE (valtype) == TYPE_CODE_FLT && mips_fpu ? FP0_REGNUM : 2; memcpy (valbuf, regbuf + REGISTER_BYTE (regnum), TYPE_LENGTH (valtype)); #ifdef REGISTER_CONVERT_TO_TYPE REGISTER_CONVERT_TO_TYPE(regnum, valtype, valbuf); #endif } /* Given a return value in `regbuf' with a type `valtype', write it's value into the appropriate register. */ void mips_store_return_value (valtype, valbuf) struct type *valtype; char *valbuf; { int regnum; char raw_buffer[MAX_REGISTER_RAW_SIZE]; regnum = TYPE_CODE (valtype) == TYPE_CODE_FLT && mips_fpu ? FP0_REGNUM : 2; memcpy(raw_buffer, valbuf, TYPE_LENGTH (valtype)); #ifdef REGISTER_CONVERT_FROM_TYPE REGISTER_CONVERT_FROM_TYPE(regnum, valtype, raw_buffer); #endif write_register_bytes(REGISTER_BYTE (regnum), raw_buffer, TYPE_LENGTH (valtype)); } /* These exist in mdebugread.c. */ extern CORE_ADDR sigtramp_address, sigtramp_end; extern void fixup_sigtramp PARAMS ((void)); /* Exported procedure: Is PC in the signal trampoline code */ int in_sigtramp (pc, ignore) CORE_ADDR pc; char *ignore; /* function name */ { if (sigtramp_address == 0) fixup_sigtramp (); return (pc >= sigtramp_address && pc < sigtramp_end); } static void reinit_frame_cache_sfunc PARAMS ((char *, int, struct cmd_list_element *)); /* Just like reinit_frame_cache, but with the right arguments to be callable as an sfunc. */ static void reinit_frame_cache_sfunc (args, from_tty, c) char *args; int from_tty; struct cmd_list_element *c; { reinit_frame_cache (); } void _initialize_mips_tdep () { struct cmd_list_element *c; /* Let the user turn off floating point and set the fence post for heuristic_proc_start. */ add_show_from_set (add_set_cmd ("mipsfpu", class_support, var_boolean, (char *) &mips_fpu, "Set use of floating point coprocessor.\n\ Turn off to avoid using floating point instructions when calling functions\n\ or dealing with return values.", &setlist), &showlist); /* We really would like to have both "0" and "unlimited" work, but command.c doesn't deal with that. So make it a var_zinteger because the user can always use "999999" or some such for unlimited. */ c = add_set_cmd ("heuristic-fence-post", class_support, var_zinteger, (char *) &heuristic_fence_post, "\ Set the distance searched for the start of a function.\n\ If you are debugging a stripped executable, GDB needs to search through the\n\ program for the start of a function. This command sets the distance of the\n\ search. The only need to set it is when debugging a stripped executable.", &setlist); /* We need to throw away the frame cache when we set this, since it might change our ability to get backtraces. */ c->function.sfunc = reinit_frame_cache_sfunc; add_show_from_set (c, &showlist); } gdb-4.13/gdb/mipsm3-nat.c 666 34562 1752 26577 5507351430 13470 0ustar fnfcygnus/* Definitions to make GDB run on a mips box under Mach 3.0 Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Mach specific routines for little endian mips (e.g. pmax) * running Mach 3.0 * * Author: Jukka Virtanen */ #include "defs.h" #include "inferior.h" #include #include #include #include #include /* Find offsets to thread states at compile time. * If your compiler does not grok this, check the hand coded * offsets and use them. */ #if 1 #define REG_OFFSET(reg) (int)(&((struct mips_thread_state *)0)->reg) #define CREG_OFFSET(reg) (int)(&((struct mips_float_state *)0)->reg) #define EREG_OFFSET(reg) (int)(&((struct mips_exc_state *)0)->reg) /* at reg_offset[i] is the offset to the mips_thread_state * location where the gdb registers[i] is stored. * * -1 means mach does not save it anywhere. */ static int reg_offset[] = { /* zero at v0 v1 */ -1, REG_OFFSET(r1), REG_OFFSET(r2), REG_OFFSET(r3), /* a0 a1 a2 a3 */ REG_OFFSET(r4), REG_OFFSET(r5), REG_OFFSET(r6), REG_OFFSET(r7), /* t0 t1 t2 t3 */ REG_OFFSET(r8), REG_OFFSET(r9), REG_OFFSET(r10), REG_OFFSET(r11), /* t4 t5 t6 t7 */ REG_OFFSET(r12), REG_OFFSET(r13), REG_OFFSET(r14), REG_OFFSET(r15), /* s0 s1 s2 s3 */ REG_OFFSET(r16), REG_OFFSET(r17), REG_OFFSET(r18), REG_OFFSET(r19), /* s4 s5 s6 s7 */ REG_OFFSET(r20), REG_OFFSET(r21), REG_OFFSET(r22), REG_OFFSET(r23), /* t8 t9 k0 k1 */ REG_OFFSET(r24), REG_OFFSET(r25), REG_OFFSET(r26), REG_OFFSET(r27), /* gp sp s8(30) == fp(72) ra */ REG_OFFSET(r28), REG_OFFSET(r29), REG_OFFSET(r30), REG_OFFSET(r31), /* sr(32) PS_REGNUM */ EREG_OFFSET(coproc_state), /* lo(33) hi(34) */ REG_OFFSET(mdlo), REG_OFFSET(mdhi), /* bad(35) cause(36) pc(37) */ EREG_OFFSET(address), EREG_OFFSET(cause), REG_OFFSET(pc), /* f0(38) f1(39) f2(40) f3(41) */ CREG_OFFSET(r0), CREG_OFFSET(r1), CREG_OFFSET(r2), CREG_OFFSET(r3), CREG_OFFSET(r4), CREG_OFFSET(r5), CREG_OFFSET(r6), CREG_OFFSET(r7), CREG_OFFSET(r8), CREG_OFFSET(r9), CREG_OFFSET(r10), CREG_OFFSET(r11), CREG_OFFSET(r12), CREG_OFFSET(r13), CREG_OFFSET(r14), CREG_OFFSET(r15), CREG_OFFSET(r16), CREG_OFFSET(r17), CREG_OFFSET(r18), CREG_OFFSET(r19), CREG_OFFSET(r20), CREG_OFFSET(r21), CREG_OFFSET(r22), CREG_OFFSET(r23), CREG_OFFSET(r24), CREG_OFFSET(r25), CREG_OFFSET(r26), CREG_OFFSET(r27), CREG_OFFSET(r28), CREG_OFFSET(r29), CREG_OFFSET(r30), CREG_OFFSET(r31), /* fsr(70) fir(71) fp(72) == s8(30) */ CREG_OFFSET(csr), CREG_OFFSET(esr), REG_OFFSET(r30) }; #else /* If the compiler does not grok the above defines */ static int reg_offset[] = { /* mach_thread_state offsets: */ -1, 0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60, 64, 68, 72, 76, 80, 84, 88, 92, 96,100,104, 108,112,116,120, /*sr, lo, hi,addr,cause,pc */ 8,124,128, 4, 0,132, /* mach_float_state offsets: */ 0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60, 64, 68, 72, 76, 80, 84, 88, 92, 96,100,104,108, 112,116,120,124, /*fsr,fir*/ 128,132, /* FP_REGNUM pseudo maps to s8==r30 in mach_thread_state */ 116 }; #endif /* Fetch COUNT contiguous registers from thread STATE starting from REGNUM * Caller knows that the regs handled in one transaction are of same size. */ #define FETCH_REGS(state, regnum, count) \ memcpy (®isters[REGISTER_BYTE (regnum)], \ (char *)state+reg_offset[ regnum ], \ count*REGISTER_SIZE) /* Store COUNT contiguous registers to thread STATE starting from REGNUM */ #define STORE_REGS(state, regnum, count) \ memcpy ((char *)state+reg_offset[ regnum ], \ ®isters[REGISTER_BYTE (regnum)], \ count*REGISTER_SIZE) #define REGS_ALL -1 #define REGS_NORMAL 1 #define REGS_EXC 2 #define REGS_COP1 4 /* Hardware regs that matches FP_REGNUM */ #define MACH_FP_REGNUM 30 /* Fech thread's registers. if regno == -1, fetch all regs */ void fetch_inferior_registers (regno) int regno; { kern_return_t ret; thread_state_data_t state; struct mips_exc_state exc_state; int stateCnt = MIPS_THREAD_STATE_COUNT; int which_regs = 0; /* A bit mask */ if (! MACH_PORT_VALID (current_thread)) error ("fetch inferior registers: Invalid thread"); if (regno < -1 || regno >= NUM_REGS) error ("invalid register %d supplied to fetch_inferior_registers", regno); if (regno == -1) which_regs = REGS_ALL; else if (regno == ZERO_REGNUM) { int zero = 0; supply_register (ZERO_REGNUM, &zero); return; } else if ((ZERO_REGNUM < regno && regno < PS_REGNUM) || regno == FP_REGNUM || regno == LO_REGNUM || regno == HI_REGNUM || regno == PC_REGNUM) which_regs = REGS_NORMAL; else if (FP0_REGNUM <= regno && regno <= FCRIR_REGNUM) which_regs = REGS_COP1 | REGS_EXC; else which_regs = REGS_EXC; /* fetch regs saved to mips_thread_state */ if (which_regs & REGS_NORMAL) { ret = thread_get_state (current_thread, MIPS_THREAD_STATE, state, &stateCnt); CHK ("fetch inferior registers: thread_get_state", ret); if (which_regs == REGS_NORMAL) { /* Fetch also FP_REGNUM if fetching MACH_FP_REGNUM and vice versa */ if (regno == MACH_FP_REGNUM || regno == FP_REGNUM) { supply_register (FP_REGNUM, (char *)state+reg_offset[ MACH_FP_REGNUM ]); supply_register (MACH_FP_REGNUM, (char *)state+reg_offset[ MACH_FP_REGNUM ]); } else supply_register (regno, (char *)state+reg_offset[ regno ]); return; } /* ZERO_REGNUM is always zero */ *(int *) registers = 0; /* Copy thread saved regs 1..31 to gdb's reg value array * Luckily, they are contiquous */ FETCH_REGS (state, 1, 31); /* Copy mdlo and mdhi */ FETCH_REGS (state, LO_REGNUM, 2); /* Copy PC */ FETCH_REGS (state, PC_REGNUM, 1); /* Mach 3.0 saves FP to MACH_FP_REGNUM. * For some reason gdb wants to assign a pseudo register for it. */ FETCH_REGS (state, FP_REGNUM, 1); } /* Read exc state. Also read if need to fetch floats */ if (which_regs & REGS_EXC) { stateCnt = MIPS_EXC_STATE_COUNT; ret = thread_get_state (current_thread, MIPS_EXC_STATE, (thread_state_t) &exc_state, &stateCnt); CHK ("fetch inferior regs (exc): thread_get_state", ret); /* We need to fetch exc_state to see if the floating * state is valid for the thread. */ /* cproc_state: Which coprocessors the thread uses */ supply_register (PS_REGNUM, (char *)&exc_state+reg_offset[ PS_REGNUM ]); if (which_regs == REGS_EXC || which_regs == REGS_ALL) { supply_register (BADVADDR_REGNUM, (char *)&exc_state+reg_offset[ BADVADDR_REGNUM ]); supply_register (CAUSE_REGNUM, (char *)&exc_state+reg_offset[ CAUSE_REGNUM ]); if (which_regs == REGS_EXC) return; } } if (which_regs & REGS_COP1) { /* If the thread does not have saved COPROC1, set regs to zero */ if (! (exc_state.coproc_state & MIPS_STATUS_USE_COP1)) bzero (®isters[ REGISTER_BYTE (FP0_REGNUM) ], sizeof (struct mips_float_state)); else { stateCnt = MIPS_FLOAT_STATE_COUNT; ret = thread_get_state (current_thread, MIPS_FLOAT_STATE, state, &stateCnt); CHK ("fetch inferior regs (floats): thread_get_state", ret); if (regno != -1) { supply_register (regno, (char *)state+reg_offset[ regno ]); return; } FETCH_REGS (state, FP0_REGNUM, 34); } } /* All registers are valid, if not returned yet */ registers_fetched (); } /* Store gdb's view of registers to the thread. * All registers are always valid when entering here. * @@ ahem, maybe that is too strict, we could validate the necessary ones * here. * * Hmm. It seems that gdb set $reg=value command first reads everything, * then sets the reg and then stores everything. -> we must make sure * that the immutable registers are not changed by reading them first. */ void store_inferior_registers (regno) register int regno; { thread_state_data_t state; kern_return_t ret; if (! MACH_PORT_VALID (current_thread)) error ("store inferior registers: Invalid thread"); /* Check for read only regs. * @@ If some of these is can be changed, fix this */ if (regno == ZERO_REGNUM || regno == PS_REGNUM || regno == BADVADDR_REGNUM || regno == CAUSE_REGNUM || regno == FCRIR_REGNUM) { message ("You can not alter read-only register `%s'", reg_names[ regno ]); fetch_inferior_registers (regno); return; } if (regno == -1) { /* Don't allow these to change */ /* ZERO_REGNUM */ *(int *)registers = 0; fetch_inferior_registers (PS_REGNUM); fetch_inferior_registers (BADVADDR_REGNUM); fetch_inferior_registers (CAUSE_REGNUM); fetch_inferior_registers (FCRIR_REGNUM); } if (regno == -1 || (ZERO_REGNUM < regno && regno <= PC_REGNUM)) { #if 1 /* Mach 3.0 saves thread's FP to MACH_FP_REGNUM. * GDB wants assigns a pseudo register FP_REGNUM for frame pointer. * * @@@ Here I assume (!) that gdb's FP has the value that * should go to threads frame pointer. If not true, this * fails badly!!!!! */ memcpy (®isters[REGISTER_BYTE (MACH_FP_REGNUM)], ®isters[REGISTER_BYTE (FP_REGNUM)], REGISTER_RAW_SIZE (FP_REGNUM)); #endif /* Save gdb's regs 1..31 to thread saved regs 1..31 * Luckily, they are contiquous */ STORE_REGS (state, 1, 31); /* Save mdlo, mdhi */ STORE_REGS (state, LO_REGNUM, 2); /* Save PC */ STORE_REGS (state, PC_REGNUM, 1); ret = thread_set_state (current_thread, MIPS_THREAD_STATE, state, MIPS_FLOAT_STATE_COUNT); CHK ("store inferior regs : thread_set_state", ret); } if (regno == -1 || regno >= FP0_REGNUM) { /* If thread has floating state, save it */ if (read_register (PS_REGNUM) & MIPS_STATUS_USE_COP1) { /* Do NOT save FCRIR_REGNUM */ STORE_REGS (state, FP0_REGNUM, 33); ret = thread_set_state (current_thread, MIPS_FLOAT_STATE, state, MIPS_FLOAT_STATE_COUNT); CHK ("store inferior registers (floats): thread_set_state", ret); } else if (regno != -1) message ("Thread does not use floating point unit, floating regs not saved"); } } gdb-4.13/gdb/mipsread.c 666 34562 1752 33063 5606462344 13277 0ustar fnfcygnus/* Read a symbol table in MIPS' format (Third-Eye). Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Alessandro Forin (af@cs.cmu.edu) at CMU. Major work by Per Bothner, John Gilmore and Ian Lance Taylor at Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Read symbols from an ECOFF file. Most of the work is done in mdebugread.c. */ #include "defs.h" #include #include "bfd.h" #include "symtab.h" #include "symfile.h" #include "objfiles.h" #include "buildsym.h" #include "stabsread.h" #include "gdb-stabs.h" #include "coff/sym.h" #include "coff/internal.h" #include "coff/ecoff.h" #include "libcoff.h" /* Private BFD COFF information. */ #include "libecoff.h" /* Private BFD ECOFF information. */ #include "elf/common.h" #include "elf/mips.h" static void mipscoff_new_init PARAMS ((struct objfile *)); static void mipscoff_symfile_init PARAMS ((struct objfile *)); static void mipscoff_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int)); static void mipscoff_symfile_finish PARAMS ((struct objfile *)); static struct section_offsets * mipscoff_symfile_offsets PARAMS ((struct objfile *, CORE_ADDR)); static void read_alphacoff_dynamic_symtab PARAMS ((struct section_offsets *, struct objfile *objfile)); /* Initialize anything that needs initializing when a completely new symbol file is specified (not just adding some symbols from another file, e.g. a shared library). */ extern CORE_ADDR sigtramp_address; static void mipscoff_new_init (ignore) struct objfile *ignore; { sigtramp_address = 0; stabsread_new_init (); buildsym_new_init (); } /* Initialize to read a symbol file (nothing to do). */ static void mipscoff_symfile_init (objfile) struct objfile *objfile; { } /* Read a symbol file from a file. */ static void mipscoff_symfile_read (objfile, section_offsets, mainline) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; { bfd *abfd = objfile->obfd; struct cleanup * back_to; init_minimal_symbol_collection (); back_to = make_cleanup (discard_minimal_symbols, 0); /* Now that the executable file is positioned at symbol table, process it and define symbols accordingly. */ if (!((*ecoff_backend (abfd)->debug_swap.read_debug_info) (abfd, (asection *) NULL, &ecoff_data (abfd)->debug_info))) error ("Error reading symbol table: %s", bfd_errmsg (bfd_get_error ())); mdebug_build_psymtabs (objfile, &ecoff_backend (abfd)->debug_swap, &ecoff_data (abfd)->debug_info, section_offsets); /* Add the dynamic symbols if we are reading the main symbol table. */ if (mainline) read_alphacoff_dynamic_symtab (section_offsets, objfile); /* Install any minimal symbols that have been collected as the current minimal symbols for this objfile. */ install_minimal_symbols (objfile); do_cleanups (back_to); } /* Perform any local cleanups required when we are done with a particular objfile. */ static void mipscoff_symfile_finish (objfile) struct objfile *objfile; { } /* Fake up identical offsets for all sections. */ static struct section_offsets * mipscoff_symfile_offsets (objfile, addr) struct objfile *objfile; CORE_ADDR addr; { struct section_offsets *section_offsets; int i; objfile->num_sections = SECT_OFF_MAX; section_offsets = ((struct section_offsets *) obstack_alloc (&objfile->psymbol_obstack, (sizeof (struct section_offsets) + (sizeof (section_offsets->offsets) * (SECT_OFF_MAX - 1))))); for (i = 0; i < SECT_OFF_MAX; i++) ANOFFSET (section_offsets, i) = addr; return section_offsets; } /* Alpha OSF/1 encapsulates the dynamic symbols in ELF format in a standard coff section. The ELF format for the symbols differs from the format defined in elf/external.h. It seems that a normal ELF 32 bit format is used, and the representation only changes because longs are 64 bit on the alpha. In addition, the handling of text/data section indices for symbols is different from the ELF ABI. As the BFD linker currently does not support dynamic linking on the alpha, there seems to be no reason to pollute BFD with another mixture of object file formats for now. */ /* Format of an alpha external ELF symbol. */ typedef struct { unsigned char st_name[4]; /* Symbol name, index in string tbl */ unsigned char st_pad[4]; /* Pad to long word boundary */ unsigned char st_value[8]; /* Value of the symbol */ unsigned char st_size[4]; /* Associated symbol size */ unsigned char st_info[1]; /* Type and binding attributes */ unsigned char st_other[1]; /* No defined meaning, 0 */ unsigned char st_shndx[2]; /* Associated section index */ } Elfalpha_External_Sym; /* Format of an alpha external ELF dynamic info structure. */ typedef struct { unsigned char d_tag[4]; /* Tag */ unsigned char d_pad[4]; /* Pad to long word boundary */ union { unsigned char d_ptr[8]; /* Pointer value */ unsigned char d_val[4]; /* Integer value */ } d_un; } Elfalpha_External_Dyn; /* Struct to obtain the section pointers for alpha dynamic symbol info. */ struct alphacoff_dynsecinfo { asection *sym_sect; /* Section pointer for .dynsym section */ asection *str_sect; /* Section pointer for .dynstr section */ asection *dyninfo_sect; /* Section pointer for .dynamic section */ asection *got_sect; /* Section pointer for .got section */ }; static void alphacoff_locate_sections PARAMS ((bfd *, asection *, void *)); /* We are called once per section from read_alphacoff_dynamic_symtab. We need to examine each section we are passed, check to see if it is something we are interested in processing, and if so, stash away some access information for the section. */ static void alphacoff_locate_sections (ignore_abfd, sectp, sip) bfd *ignore_abfd; asection *sectp; PTR sip; { register struct alphacoff_dynsecinfo *si; si = (struct alphacoff_dynsecinfo *) sip; if (STREQ (sectp->name, ".dynsym")) { si->sym_sect = sectp; } else if (STREQ (sectp->name, ".dynstr")) { si->str_sect = sectp; } else if (STREQ (sectp->name, ".dynamic")) { si->dyninfo_sect = sectp; } else if (STREQ (sectp->name, ".got")) { si->got_sect = sectp; } } /* Scan an alpha dynamic symbol table for symbols of interest and add them to the minimal symbol table. */ static void read_alphacoff_dynamic_symtab (section_offsets, objfile) struct section_offsets *section_offsets; struct objfile *objfile; { bfd *abfd = objfile->obfd; struct alphacoff_dynsecinfo si; char *sym_secptr; char *str_secptr; char *dyninfo_secptr; char *got_secptr; bfd_size_type sym_secsize; bfd_size_type str_secsize; bfd_size_type dyninfo_secsize; bfd_size_type got_secsize; int sym_count; int i; int stripped; Elfalpha_External_Sym *x_symp; char *dyninfo_p; char *dyninfo_end; int got_entry_size = 8; int dt_mips_local_gotno = -1; int dt_mips_gotsym = -1; /* We currently only know how to handle alpha dynamic symbols. */ if (bfd_get_arch (abfd) != bfd_arch_alpha) return; /* Locate the dynamic symbols sections and read them in. */ memset ((char *) &si, 0, sizeof (si)); bfd_map_over_sections (abfd, alphacoff_locate_sections, (PTR) &si); if (si.sym_sect == NULL || si.str_sect == NULL || si.dyninfo_sect == NULL || si.got_sect == NULL) return; sym_secsize = bfd_get_section_size_before_reloc (si.sym_sect); str_secsize = bfd_get_section_size_before_reloc (si.str_sect); dyninfo_secsize = bfd_get_section_size_before_reloc (si.dyninfo_sect); got_secsize = bfd_get_section_size_before_reloc (si.got_sect); sym_secptr = alloca (sym_secsize); str_secptr = alloca (str_secsize); dyninfo_secptr = alloca (dyninfo_secsize); got_secptr = alloca (got_secsize); if (!bfd_get_section_contents (abfd, si.sym_sect, sym_secptr, (file_ptr)0, sym_secsize)) return; if (!bfd_get_section_contents (abfd, si.str_sect, str_secptr, (file_ptr)0, str_secsize)) return; if (!bfd_get_section_contents (abfd, si.dyninfo_sect, dyninfo_secptr, (file_ptr)0, dyninfo_secsize)) return; if (!bfd_get_section_contents (abfd, si.got_sect, got_secptr, (file_ptr)0, got_secsize)) return; /* Find the number of local GOT entries and the index for the the first dynamic symbol in the GOT. */ for (dyninfo_p = dyninfo_secptr, dyninfo_end = dyninfo_p + dyninfo_secsize; dyninfo_p < dyninfo_end; dyninfo_p += sizeof (Elfalpha_External_Dyn)) { Elfalpha_External_Dyn *x_dynp = (Elfalpha_External_Dyn *)dyninfo_p; long dyn_tag; dyn_tag = bfd_h_get_32 (abfd, (bfd_byte *) x_dynp->d_tag); if (dyn_tag == DT_NULL) break; else if (dyn_tag == DT_MIPS_LOCAL_GOTNO) { dt_mips_local_gotno = bfd_h_get_32 (abfd, (bfd_byte *) x_dynp->d_un.d_val); } else if (dyn_tag == DT_MIPS_GOTSYM) { dt_mips_gotsym = bfd_h_get_32 (abfd, (bfd_byte *) x_dynp->d_un.d_val); } } if (dt_mips_local_gotno < 0 || dt_mips_gotsym < 0) return; /* Scan all dynamic symbols and enter them into the minimal symbol table if appropriate. */ sym_count = sym_secsize / sizeof (Elfalpha_External_Sym); stripped = (bfd_get_symcount (abfd) == 0); /* Skip first symbol, which is a null dummy. */ for (i = 1, x_symp = (Elfalpha_External_Sym *) sym_secptr + 1; i < sym_count; i++, x_symp++) { unsigned long strx; char *name; bfd_vma sym_value; unsigned char sym_info; unsigned int sym_shndx; int isglobal; enum minimal_symbol_type ms_type; strx = bfd_h_get_32 (abfd, (bfd_byte *) x_symp->st_name); if (strx >= str_secsize) continue; name = str_secptr + strx; if (*name == '\0' || *name == '.') continue; sym_value = bfd_h_get_64 (abfd, (bfd_byte *) x_symp->st_value); sym_info = bfd_h_get_8 (abfd, (bfd_byte *) x_symp->st_info); sym_shndx = bfd_h_get_16 (abfd, (bfd_byte *) x_symp->st_shndx); isglobal = (ELF_ST_BIND (sym_info) == STB_GLOBAL); if (sym_shndx == SHN_UNDEF) { /* Handle undefined functions which are defined in a shared library. */ if (ELF_ST_TYPE (sym_info) != STT_FUNC || ELF_ST_BIND (sym_info) != STB_GLOBAL) continue; ms_type = mst_solib_trampoline; /* If sym_value is nonzero, it points to the shared library trampoline entry, which is what we are looking for. If sym_value is zero, then we have to get the GOT entry for the symbol. If the GOT entry is nonzero, it represents the quickstart address of the function and we use that as the symbol value. If the GOT entry is zero, the function address has to be resolved by the runtime loader before the executable is started. We are unable to find any meaningful address for these functions in the executable file, so we skip them. */ if (sym_value == 0) { int got_entry_offset = (i - dt_mips_gotsym + dt_mips_local_gotno) * got_entry_size; if (got_entry_offset < 0 || got_entry_offset >= got_secsize) continue; sym_value = bfd_h_get_64 (abfd, (bfd_byte *) (got_secptr + got_entry_offset)); if (sym_value == 0) continue; } } else { /* Symbols defined in the executable itself. We only care about them if this is a stripped executable, otherwise they have been retrieved from the normal symbol table already. */ if (!stripped) continue; if (sym_shndx == SHN_MIPS_TEXT) { if (isglobal) ms_type = mst_text; else ms_type = mst_file_text; sym_value += ANOFFSET (section_offsets, SECT_OFF_TEXT); } else if (sym_shndx == SHN_MIPS_DATA) { if (isglobal) ms_type = mst_data; else ms_type = mst_file_data; sym_value += ANOFFSET (section_offsets, SECT_OFF_DATA); } else if (sym_shndx == SHN_MIPS_ACOMMON) { if (isglobal) ms_type = mst_bss; else ms_type = mst_file_bss; sym_value += ANOFFSET (section_offsets, SECT_OFF_BSS); } else if (sym_shndx == SHN_ABS) { ms_type = mst_abs; } else { continue; } } prim_record_minimal_symbol (obsavestring (name, strlen (name), &objfile -> symbol_obstack), sym_value, ms_type, objfile); } } /* Initialization */ static struct sym_fns ecoff_sym_fns = { bfd_target_ecoff_flavour, mipscoff_new_init, /* sym_new_init: init anything gbl to entire symtab */ mipscoff_symfile_init, /* sym_init: read initial info, setup for sym_read() */ mipscoff_symfile_read, /* sym_read: read a symbol file into symtab */ mipscoff_symfile_finish, /* sym_finish: finished with file, cleanup */ mipscoff_symfile_offsets, /* sym_offsets: dummy FIXME til implem sym reloc */ NULL /* next: pointer to next struct sym_fns */ }; void _initialize_mipsread () { add_symtab_fns (&ecoff_sym_fns); } gdb-4.13/gdb/mipsv4-nat.c 666 34562 1752 10061 5551123262 13456 0ustar fnfcygnus/* Native support for MIPS running SVR4, for GDB. Copyright 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "gdbcore.h" #include "target.h" #include #include #include /* For JB_XXX. */ /* Size of elements in jmpbuf */ #define JB_ELEMENT_SIZE 4 /* * See the comment in m68k-tdep.c regarding the utility of these functions. * * These definitions are from the MIPS SVR4 ABI, so they may work for * any MIPS SVR4 target. */ void supply_gregset (gregsetp) gregset_t *gregsetp; { register int regi; register greg_t *regp = &(*gregsetp)[0]; for(regi = 0; regi <= CXT_RA; regi++) supply_register (regi, (char *)(regp + regi)); supply_register (PC_REGNUM, (char *)(regp + CXT_EPC)); supply_register (HI_REGNUM, (char *)(regp + CXT_MDHI)); supply_register (LO_REGNUM, (char *)(regp + CXT_MDLO)); supply_register (CAUSE_REGNUM, (char *)(regp + CXT_CAUSE)); } void fill_gregset (gregsetp, regno) gregset_t *gregsetp; int regno; { int regi; register greg_t *regp = &(*gregsetp)[0]; for (regi = 0; regi <= 32; regi++) if ((regno == -1) || (regno == regi)) *(regp + regi) = *(greg_t *) ®isters[REGISTER_BYTE (regi)]; if ((regno == -1) || (regno == PC_REGNUM)) *(regp + CXT_EPC) = *(greg_t *) ®isters[REGISTER_BYTE (PC_REGNUM)]; if ((regno == -1) || (regno == CAUSE_REGNUM)) *(regp + CXT_CAUSE) = *(greg_t *) ®isters[REGISTER_BYTE (PS_REGNUM)]; if ((regno == -1) || (regno == HI_REGNUM)) *(regp + CXT_MDHI) = *(greg_t *) ®isters[REGISTER_BYTE (HI_REGNUM)]; if ((regno == -1) || (regno == LO_REGNUM)) *(regp + CXT_MDLO) = *(greg_t *) ®isters[REGISTER_BYTE (LO_REGNUM)]; } /* * Now we do the same thing for floating-point registers. * We don't bother to condition on FP0_REGNUM since any * reasonable MIPS configuration has an R3010 in it. * * Again, see the comments in m68k-tdep.c. */ void supply_fpregset (fpregsetp) fpregset_t *fpregsetp; { register int regi; for (regi = 0; regi < 32; regi++) supply_register (FP0_REGNUM + regi, (char *)&fpregsetp->fp_r.fp_regs[regi]); supply_register (FCRCS_REGNUM, (char *)&fpregsetp->fp_csr); /* FIXME: how can we supply FCRIR_REGNUM? The ABI doesn't tell us. */ } void fill_fpregset (fpregsetp, regno) fpregset_t *fpregsetp; int regno; { int regi; char *from, *to; for (regi = FP0_REGNUM; regi < FP0_REGNUM + 32; regi++) { if ((regno == -1) || (regno == regi)) { from = (char *) ®isters[REGISTER_BYTE (regi)]; to = (char *) &(fpregsetp->fp_r.fp_regs[regi - FP0_REGNUM]); memcpy(to, from, REGISTER_RAW_SIZE (regi)); } } if ((regno == -1) || (regno == FCRCS_REGNUM)) fpregsetp->fp_csr = *(unsigned *) ®isters[REGISTER_BYTE(FCRCS_REGNUM)]; } /* Figure out where the longjmp will land. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (_JB_PC) that we will land at. The pc is copied into PC. This routine returns true on success. */ int get_longjmp_target (pc) CORE_ADDR *pc; { char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT]; CORE_ADDR jb_addr; jb_addr = read_register (A0_REGNUM); if (target_read_memory (jb_addr + _JB_PC * JB_ELEMENT_SIZE, buf, TARGET_PTR_BIT / TARGET_CHAR_BIT)) return 0; *pc = extract_address (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT); return 1; } gdb-4.13/gdb/monitor.h 666 34562 1752 5012 5337546420 13137 0ustar fnfcygnus/* Remote debugging interface for ROM68K boot monitor, for GDB. * Copyright 1990, 1991, 1992 Free Software Foundation, Inc. * Contributed by Cygnus Support. Written by Rob Savoye for Cygnus. * * Copyright 1990, 1991, 1992 Free Software Foundation, Inc. * Contributed by Cygnus Support. Written by Rob Savoye for Cygnus. * * This file is part of GDB. * * 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 2 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, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ struct monitor_ops { char *execute; /* execute or usually GO command */ char *resume; /* continue command */ char *step; /* single step */ char *set_break; /* set a breakpoint */ char *clr_break; /* clear a breakpoint */ char *set_mem; /* set memory to a value */ char *dis_mem; /* display memory */ char *mem_prompt; /* prompt memory commands use */ char *set_reg; /* set a register */ char *reg_delim; /* delimiter between registers */ char *get_reg; /* read a register */ char *load; /* download command */ char *prompt; /* monitor command prompt */ char *cmd_delim; /* end-of-command delimitor */ char *cmd_end; /* optional command terminator */ }; extern struct monitor_ops *current_monitor; #define GO_CMD (current_monitor->execute) #define CONT_CMD (current_monitor->resume) #define STEP_CMD (current_monitor->step) #define SET_BREAK_CMD (current_monitor->set_break) #define CLR_BREAK_CMD (current_monitor->clr_break) #define MEM_SET_CMD (current_monitor->set_mem) #define MEM_DIS_CMD (current_monitor->dis_mem) #define LOAD_CMD (current_monitor->load) #define GET_REG (current_monitor->get_reg) #define REG_DELIM (current_monitor->reg_delim) #define SET_REG (current_monitor->set_reg) #define CMD_END (current_monitor->cmd_end) #define CMD_DELIM (current_monitor->cmd_delim) #define PROMPT (current_monitor->prompt) #define MEM_PROMPT (current_monitor->mem_prompt) #define push_monitor(x) current_monitor = x; gdb-4.13/gdb/m2-exp.tab.c 666 34562 1752 176256 5623251673 13404 0ustar fnfcygnus /* A Bison parser, made from ./m2-exp.y with Bison version GNU Bison version 1.22 */ #define YYBISON 1 /* Identify Bison output. */ #define INT 258 #define HEX 259 #define ERROR 260 #define UINT 261 #define M2_TRUE 262 #define M2_FALSE 263 #define CHAR 264 #define FLOAT 265 #define STRING 266 #define NAME 267 #define BLOCKNAME 268 #define IDENT 269 #define VARNAME 270 #define TYPENAME 271 #define SIZE 272 #define CAP 273 #define ORD 274 #define HIGH 275 #define ABS 276 #define MIN_FUNC 277 #define MAX_FUNC 278 #define FLOAT_FUNC 279 #define VAL 280 #define CHR 281 #define ODD 282 #define TRUNC 283 #define INC 284 #define DEC 285 #define INCL 286 #define EXCL 287 #define COLONCOLON 288 #define LAST 289 #define REGNAME 290 #define INTERNAL_VAR 291 #define ABOVE_COMMA 292 #define ASSIGN 293 #define LEQ 294 #define GEQ 295 #define NOTEQUAL 296 #define IN 297 #define OROR 298 #define LOGICAL_AND 299 #define DIV 300 #define MOD 301 #define UNARY 302 #define DOT 303 #define NOT 304 #define QID 305 #line 40 "./m2-exp.y" #include "defs.h" #include #include "expression.h" #include "language.h" #include "value.h" #include "parser-defs.h" #include "m2-lang.h" #include "bfd.h" /* Required by objfiles.h. */ #include "symfile.h" /* Required by objfiles.h. */ #include "objfiles.h" /* For have_full_symbols and have_partial_symbols */ /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc), as well as gratuitiously global symbol names, so we can have multiple yacc generated parsers in gdb. Note that these are only the variables produced by yacc. If other parser generators (bison, byacc, etc) produce additional global names that conflict at link time, then those parser generators need to be fixed instead of adding those names to this list. */ #define yymaxdepth m2_maxdepth #define yyparse m2_parse #define yylex m2_lex #define yyerror m2_error #define yylval m2_lval #define yychar m2_char #define yydebug m2_debug #define yypact m2_pact #define yyr1 m2_r1 #define yyr2 m2_r2 #define yydef m2_def #define yychk m2_chk #define yypgo m2_pgo #define yyact m2_act #define yyexca m2_exca #define yyerrflag m2_errflag #define yynerrs m2_nerrs #define yyps m2_ps #define yypv m2_pv #define yys m2_s #define yy_yys m2_yys #define yystate m2_state #define yytmp m2_tmp #define yyv m2_v #define yy_yyv m2_yyv #define yyval m2_val #define yylloc m2_lloc #define yyreds m2_reds /* With YYDEBUG defined */ #define yytoks m2_toks /* With YYDEBUG defined */ #ifndef YYDEBUG #define YYDEBUG 0 /* Default to no yydebug support */ #endif int yyparse PARAMS ((void)); static int yylex PARAMS ((void)); void yyerror PARAMS ((char *)); #if 0 static char * make_qualname PARAMS ((char *, char *)); #endif static int parse_number PARAMS ((int)); /* The sign of the number being parsed. */ static int number_sign = 1; /* The block that the module specified by the qualifer on an identifer is contained in, */ #if 0 static struct block *modblock=0; #endif #line 126 "./m2-exp.y" typedef union { LONGEST lval; unsigned LONGEST ulval; double dval; struct symbol *sym; struct type *tval; struct stoken sval; int voidval; struct block *bval; enum exp_opcode opcode; struct internalvar *ivar; struct type **tvec; int *ivec; } YYSTYPE; #ifndef YYLTYPE typedef struct yyltype { int timestamp; int first_line; int first_column; int last_line; int last_column; char *text; } yyltype; #define YYLTYPE yyltype #endif #include #ifndef __cplusplus #ifndef __STDC__ #define const #endif #endif #define YYFINAL 183 #define YYFLAG -32768 #define YYNTBASE 70 #define YYTRANSLATE(x) ((unsigned)(x) <= 305 ? yytranslate[x] : 84) static const char yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 46, 2, 2, 50, 2, 62, 66, 54, 52, 37, 53, 2, 55, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 40, 44, 41, 2, 51, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 61, 2, 69, 59, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 67, 2, 68, 64, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 38, 39, 42, 43, 45, 47, 48, 49, 56, 57, 58, 60, 63, 65 }; #if YYDEBUG != 0 static const short yyprhs[] = { 0, 0, 2, 4, 6, 9, 10, 14, 17, 20, 22, 24, 29, 34, 39, 44, 49, 54, 59, 66, 71, 76, 81, 84, 89, 96, 101, 108, 112, 114, 118, 125, 132, 136, 141, 142, 148, 149, 155, 156, 158, 162, 164, 168, 173, 178, 182, 186, 190, 194, 198, 202, 206, 210, 214, 218, 222, 226, 230, 234, 238, 242, 246, 250, 252, 254, 256, 258, 260, 262, 264, 266, 268, 273, 275, 277, 279, 283, 285, 287, 291, 293 }; static const short yyrhs[] = { 72, 0, 71, 0, 83, 0, 72, 59, 0, 0, 53, 73, 72, 0, 52, 72, 0, 74, 72, 0, 63, 0, 64, 0, 18, 62, 72, 66, 0, 19, 62, 72, 66, 0, 21, 62, 72, 66, 0, 20, 62, 72, 66, 0, 22, 62, 83, 66, 0, 23, 62, 83, 66, 0, 24, 62, 72, 66, 0, 25, 62, 83, 37, 72, 66, 0, 26, 62, 72, 66, 0, 27, 62, 72, 66, 0, 28, 62, 72, 66, 0, 17, 72, 0, 29, 62, 72, 66, 0, 29, 62, 72, 37, 72, 66, 0, 30, 62, 72, 66, 0, 30, 62, 72, 37, 72, 66, 0, 72, 60, 12, 0, 75, 0, 72, 47, 75, 0, 31, 62, 72, 37, 72, 66, 0, 32, 62, 72, 37, 72, 66, 0, 67, 78, 68, 0, 83, 67, 78, 68, 0, 0, 72, 61, 76, 79, 69, 0, 0, 72, 62, 77, 78, 66, 0, 0, 72, 0, 78, 37, 72, 0, 72, 0, 79, 37, 72, 0, 67, 83, 68, 72, 0, 83, 62, 72, 66, 0, 62, 72, 66, 0, 72, 51, 72, 0, 72, 54, 72, 0, 72, 55, 72, 0, 72, 56, 72, 0, 72, 57, 72, 0, 72, 52, 72, 0, 72, 53, 72, 0, 72, 44, 72, 0, 72, 45, 72, 0, 72, 46, 72, 0, 72, 42, 72, 0, 72, 43, 72, 0, 72, 40, 72, 0, 72, 41, 72, 0, 72, 49, 72, 0, 72, 48, 72, 0, 72, 39, 72, 0, 7, 0, 8, 0, 3, 0, 6, 0, 9, 0, 10, 0, 82, 0, 34, 0, 35, 0, 17, 62, 83, 66, 0, 11, 0, 81, 0, 13, 0, 80, 33, 13, 0, 81, 0, 36, 0, 80, 33, 12, 0, 12, 0, 16, 0 }; #endif #if YYDEBUG != 0 static const short yyrline[] = { 0, 197, 198, 201, 210, 213, 215, 220, 224, 228, 229, 232, 236, 240, 244, 248, 254, 260, 264, 270, 274, 278, 282, 287, 291, 297, 301, 307, 313, 316, 320, 324, 327, 329, 335, 340, 346, 350, 356, 359, 363, 368, 373, 378, 384, 390, 398, 402, 406, 410, 414, 418, 422, 426, 430, 432, 436, 440, 444, 448, 452, 456, 460, 467, 473, 479, 486, 495, 503, 510, 514, 520, 526, 533, 540, 544, 553, 565, 573, 580, 596, 646 }; static const char * const yytname[] = { "$","error","$illegal.","INT","HEX", "ERROR","UINT","M2_TRUE","M2_FALSE","CHAR","FLOAT","STRING","NAME","BLOCKNAME", "IDENT","VARNAME","TYPENAME","SIZE","CAP","ORD","HIGH","ABS","MIN_FUNC","MAX_FUNC", "FLOAT_FUNC","VAL","CHR","ODD","TRUNC","INC","DEC","INCL","EXCL","COLONCOLON", "LAST","REGNAME","INTERNAL_VAR","','","ABOVE_COMMA","ASSIGN","'<'","'>'","LEQ", "GEQ","'='","NOTEQUAL","'#'","IN","OROR","LOGICAL_AND","'&'","'@'","'+'","'-'", "'*'","'/'","DIV","MOD","UNARY","'^'","DOT","'['","'('","NOT","'~'","QID","')'", "'{'","'}'","']'","start","type_exp","exp","@1","not_exp","set","@2","@3","arglist", "non_empty_arglist","block","fblock","variable","type","" }; #endif static const short yyr1[] = { 0, 70, 70, 71, 72, 73, 72, 72, 72, 74, 74, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 75, 75, 76, 72, 77, 72, 78, 78, 78, 79, 79, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 80, 81, 81, 82, 82, 82, 82, 83 }; static const short yyr2[] = { 0, 1, 1, 1, 2, 0, 3, 2, 2, 1, 1, 4, 4, 4, 4, 4, 4, 4, 6, 4, 4, 4, 2, 4, 6, 4, 6, 3, 1, 3, 6, 6, 3, 4, 0, 5, 0, 5, 0, 1, 3, 1, 3, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 3, 1, 1, 3, 1, 1 }; static const short yydefact[] = { 0, 65, 66, 63, 64, 67, 68, 73, 80, 75, 81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 70, 71, 78, 0, 5, 0, 9, 10, 38, 2, 1, 0, 28, 0, 77, 69, 3, 0, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 34, 36, 8, 0, 0, 38, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 45, 0, 32, 0, 62, 58, 59, 56, 57, 53, 54, 55, 38, 29, 0, 61, 60, 46, 51, 52, 47, 48, 49, 50, 27, 0, 38, 79, 76, 0, 0, 72, 11, 12, 14, 13, 15, 16, 17, 0, 19, 20, 21, 0, 23, 0, 25, 0, 0, 40, 43, 41, 0, 0, 44, 33, 0, 0, 0, 0, 0, 0, 35, 37, 18, 24, 26, 30, 31, 42, 0, 0, 0 }; static const short yydefgoto[] = { 181, 36, 65, 63, 38, 39, 136, 137, 66, 163, 40, 41, 42, 46 }; static const short yypact[] = { 157, -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, 219, -35, -28, -19, -17, -8, 2, 3, 4, 5, 14, 25, 26, 28, 29, 34,-32768,-32768,-32768, 157, -32768, 157,-32768,-32768, 157,-32768, 774, 157,-32768, -4, 65,-32768, -36, 157, -20, -36, 157, 157, 157, 157, 12, 12, 157, 12, 157, 157, 157, 157, 157, 157, 157, -20, 157, 304, 774, -32, -43, 157, 157, 157, 157, 157, 157, 157, 157, -15, 157, 157, 157, 157, 157, 157, 157, 157, 157,-32768, 50,-32768,-32768, -20, -5, 157, 157, 27, 332, 360, 388, 416, 31, 33, 444, 63, 472, 500, 528, 248, 276, 724, 750, -20, -32768, 157,-32768, 157, 798, -39, -39, -39, -39, -39, -39, -39, 157,-32768, 37, 64, 78, 142, 87, 87, -20, -20, -20, -20,-32768, 157, 157,-32768,-32768, 556, -31,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, 157, -32768,-32768,-32768, 157,-32768, 157,-32768, 157, 157, 774, -20, 774, -34, -33,-32768,-32768, 584, 612, 640, 668, 696, 157,-32768,-32768,-32768,-32768,-32768,-32768,-32768, 774, 101, 106,-32768 }; static const short yypgoto[] = {-32768, -32768, 0,-32768,-32768, 32,-32768,-32768, -91,-32768,-32768, -32768,-32768, 51 }; #define YYLAST 860 static const short yytable[] = { 37, 10, 141, 172, 112, 112, 112, 138, 139, 77, 78, 45, 79, 80, 81, 82, 83, 84, 85, 92, 86, 87, 88, 89, 93, 114, 92, 47, 10, 91, 62, 93, 64, 174, 48, 173, 113, 166, 90, 86, 87, 88, 89, 49, 64, 50, 164, 95, 96, 97, 98, 43, 123, 101, 51, 103, 104, 105, 106, 107, 108, 109, 135, 110, 52, 53, 54, 55, 115, 116, 117, 118, 119, 120, 121, 122, 56, 126, 127, 128, 129, 130, 131, 132, 133, 134, 67, 57, 58, 92, 59, 60, 140, 142, 93, 94, 61, 147, -74, 148, 150, 182, 99, 100, 93, 102, 183, 0, 124, 0, 0, 0, 160, 78, 161, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 125, 0, 79, 80, 81, 82, 83, 84, 85, 162, 86, 87, 88, 89, 82, 83, 84, 85, 0, 86, 87, 88, 89, 167, 0, 0, 0, 168, 0, 169, 0, 170, 171, 1, 0, 0, 2, 3, 4, 5, 6, 7, 8, 9, 0, 180, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 0, 27, 28, 29, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 0, 30, 31, 0, 0, 0, 0, 0, 0, 0, 0, 32, 33, 34, 1, 0, 35, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 0, 27, 28, 29, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 31, 0, 0, 0, 0, 0, 0, 0, 0, 44, 33, 34, 0, 154, 35, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 156, 155, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 157, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 111, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 143, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 144, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 145, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 146, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 149, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 151, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 152, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 153, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 165, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 175, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 176, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 177, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 0, 178, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 0, 0, 158, 179, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 159, 0, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89,-32768, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 0, 79, 80, 81, 82, 83, 84, 85, 0, 86, 87, 88, 89 }; static const short yycheck[] = { 0, 16, 93, 37, 37, 37, 37, 12, 13, 48, 49, 11, 51, 52, 53, 54, 55, 56, 57, 62, 59, 60, 61, 62, 67, 68, 62, 62, 16, 33, 30, 67, 32, 66, 62, 69, 68, 68, 38, 59, 60, 61, 62, 62, 44, 62, 137, 47, 48, 49, 50, 0, 67, 53, 62, 55, 56, 57, 58, 59, 60, 61, 12, 63, 62, 62, 62, 62, 68, 69, 70, 71, 72, 73, 74, 75, 62, 77, 78, 79, 80, 81, 82, 83, 84, 85, 35, 62, 62, 62, 62, 62, 92, 66, 67, 44, 62, 66, 33, 66, 37, 0, 51, 52, 67, 54, 0, -1, 76, -1, -1, -1, 112, 49, 114, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, 76, -1, 51, 52, 53, 54, 55, 56, 57, 136, 59, 60, 61, 62, 54, 55, 56, 57, -1, 59, 60, 61, 62, 150, -1, -1, -1, 154, -1, 156, -1, 158, 159, 3, -1, -1, 6, 7, 8, 9, 10, 11, 12, 13, -1, 172, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, -1, 34, 35, 36, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, -1, 52, 53, -1, -1, -1, -1, -1, -1, -1, -1, 62, 63, 64, 3, -1, 67, 6, 7, 8, 9, 10, 11, 12, 13, -1, -1, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, -1, 34, 35, 36, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 52, 53, -1, -1, -1, -1, -1, -1, -1, -1, 62, 63, 64, -1, 37, 67, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, 37, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, -1, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, -1, -1, 37, 66, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, 37, -1, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, -1, 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, 62 }; /* -*-C-*- Note some compilers choke on comments on `#line' lines. */ #line 3 "/usr/unsupported/lib/bison.simple" /* Skeleton output parser for bison, Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman 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 1, 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef alloca #ifdef __GNUC__ #define alloca __builtin_alloca #else /* not GNU C. */ #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) #include #else /* not sparc */ #if defined (MSDOS) && !defined (__TURBOC__) #else /* not MSDOS, or __TURBOC__ */ #if defined(_AIX) #pragma alloca #else /* not MSDOS, __TURBOC__, or _AIX */ #ifdef __hpux #ifdef __cplusplus extern "C" { void *alloca (unsigned int); }; #else /* not __cplusplus */ void *alloca (); #endif /* not __cplusplus */ #endif /* __hpux */ #endif /* not _AIX */ #endif /* not MSDOS, or __TURBOC__ */ #endif /* not sparc. */ #endif /* not GNU C. */ #endif /* alloca not defined. */ /* This is the parser code that is written into each bison parser when the %semantic_parser declaration is not specified in the grammar. It was written by Richard Stallman by simplifying the hairy parser used when %semantic_parser is specified. */ /* Note: there must be only one dollar sign in this file. It is replaced by the list of actions, each action as one case of the switch. */ #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY -2 #define YYEOF 0 #define YYACCEPT return(0) #define YYABORT return(1) #define YYERROR goto yyerrlab1 /* Like YYERROR except do call yyerror. This remains here temporarily to ease the transition to the new meaning of YYERROR, for GCC. Once GCC version 2 has supplanted version 1, this can go. */ #define YYFAIL goto yyerrlab #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(token, value) \ do \ if (yychar == YYEMPTY && yylen == 1) \ { yychar = (token), yylval = (value); \ yychar1 = YYTRANSLATE (yychar); \ YYPOPSTACK; \ goto yybackup; \ } \ else \ { yyerror ("syntax error: cannot back up"); YYERROR; } \ while (0) #define YYTERROR 1 #define YYERRCODE 256 #ifndef YYPURE #define YYLEX yylex() #endif #ifdef YYPURE #ifdef YYLSP_NEEDED #define YYLEX yylex(&yylval, &yylloc) #else #define YYLEX yylex(&yylval) #endif #endif /* If nonreentrant, generate the variables here */ #ifndef YYPURE int yychar; /* the lookahead symbol */ YYSTYPE yylval; /* the semantic value of the */ /* lookahead symbol */ #ifdef YYLSP_NEEDED YYLTYPE yylloc; /* location data for the lookahead */ /* symbol */ #endif int yynerrs; /* number of parse errors so far */ #endif /* not YYPURE */ #if YYDEBUG != 0 int yydebug; /* nonzero means print parse trace */ /* Since this is uninitialized, it does not stop multiple parsers from coexisting. */ #endif /* YYINITDEPTH indicates the initial size of the parser's stacks */ #ifndef YYINITDEPTH #define YYINITDEPTH 200 #endif /* YYMAXDEPTH is the maximum size the stacks can grow to (effective only if the built-in stack extension method is used). */ #if YYMAXDEPTH == 0 #undef YYMAXDEPTH #endif #ifndef YYMAXDEPTH #define YYMAXDEPTH 10000 #endif /* Prevent warning if -Wstrict-prototypes. */ #ifdef __GNUC__ int yyparse (void); #endif #if __GNUC__ > 1 /* GNU C and GNU C++ define this. */ #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT) #else /* not GNU C or C++ */ #ifndef __cplusplus /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (from, to, count) char *from; char *to; int count; { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #else /* __cplusplus */ /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (char *from, char *to, int count) { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #endif #endif #line 184 "/usr/unsupported/lib/bison.simple" int yyparse() { register int yystate; register int yyn; register short *yyssp; register YYSTYPE *yyvsp; int yyerrstatus; /* number of tokens to shift before error messages enabled */ int yychar1 = 0; /* lookahead token as an internal (translated) token number */ short yyssa[YYINITDEPTH]; /* the state stack */ YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */ short *yyss = yyssa; /* refer to the stacks thru separate pointers */ YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to xreallocate them elsewhere */ #ifdef YYLSP_NEEDED YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */ YYLTYPE *yyls = yylsa; YYLTYPE *yylsp; #define YYPOPSTACK (yyvsp--, yyssp--, yylsp--) #else #define YYPOPSTACK (yyvsp--, yyssp--) #endif int yystacksize = YYINITDEPTH; #ifdef YYPURE int yychar; YYSTYPE yylval; int yynerrs; #ifdef YYLSP_NEEDED YYLTYPE yylloc; #endif #endif YYSTYPE yyval; /* the variable used to return */ /* semantic values from the action */ /* routines */ int yylen; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Starting parse\n"); #endif yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ /* Initialize stack pointers. Waste one element of value and location stack so that they stay on the same level as the state stack. The wasted elements are never initialized. */ yyssp = yyss - 1; yyvsp = yyvs; #ifdef YYLSP_NEEDED yylsp = yyls; #endif /* Push a new state, which is found in yystate . */ /* In all cases, when you get here, the value and location stacks have just been pushed. so pushing a state here evens the stacks. */ yynewstate: *++yyssp = yystate; if (yyssp >= yyss + yystacksize - 1) { /* Give user a chance to xreallocate the stack */ /* Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; short *yyss1 = yyss; #ifdef YYLSP_NEEDED YYLTYPE *yyls1 = yyls; #endif /* Get the current used size of the three stacks, in elements. */ int size = yyssp - yyss + 1; #ifdef yyoverflow /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. */ #ifdef YYLSP_NEEDED /* This used to be a conditional around just the two extra args, but that might be undefined if yyoverflow is a macro. */ yyoverflow("parser stack overflow", &yyss1, size * sizeof (*yyssp), &yyvs1, size * sizeof (*yyvsp), &yyls1, size * sizeof (*yylsp), &yystacksize); #else yyoverflow("parser stack overflow", &yyss1, size * sizeof (*yyssp), &yyvs1, size * sizeof (*yyvsp), &yystacksize); #endif yyss = yyss1; yyvs = yyvs1; #ifdef YYLSP_NEEDED yyls = yyls1; #endif #else /* no yyoverflow */ /* Extend the stack our own way. */ if (yystacksize >= YYMAXDEPTH) { yyerror("parser stack overflow"); return 2; } yystacksize *= 2; if (yystacksize > YYMAXDEPTH) yystacksize = YYMAXDEPTH; yyss = (short *) alloca (yystacksize * sizeof (*yyssp)); __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp)); yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp)); __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp)); #ifdef YYLSP_NEEDED yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp)); __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp)); #endif #endif /* no yyoverflow */ yyssp = yyss + size - 1; yyvsp = yyvs + size - 1; #ifdef YYLSP_NEEDED yylsp = yyls + size - 1; #endif #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Stack size increased to %d\n", yystacksize); #endif if (yyssp >= yyss + yystacksize - 1) YYABORT; } #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Entering state %d\n", yystate); #endif goto yybackup; yybackup: /* Do appropriate processing given the current state. */ /* Read a lookahead token if we need one and don't already have one. */ /* yyresume: */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; if (yyn == YYFLAG) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ /* yychar is either YYEMPTY or YYEOF or a valid token in external form. */ if (yychar == YYEMPTY) { #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Reading a token: "); #endif yychar = YYLEX; } /* Convert token to internal form (in yychar1) for indexing tables with */ if (yychar <= 0) /* This means end of input. */ { yychar1 = 0; yychar = YYEOF; /* Don't call YYLEX any more */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Now at end of input.\n"); #endif } else { yychar1 = YYTRANSLATE(yychar); #if YYDEBUG != 0 if (yydebug) { fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]); /* Give the individual parser a way to print the precise meaning of a token, for further debugging info. */ #ifdef YYPRINT YYPRINT (stderr, yychar, yylval); #endif fprintf (stderr, ")\n"); } #endif } yyn += yychar1; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1) goto yydefault; yyn = yytable[yyn]; /* yyn is what to do for this token type in this state. Negative => reduce, -yyn is rule number. Positive => shift, yyn is new state. New state is final state => don't bother to shift, just return success. 0, or most negative number => error. */ if (yyn < 0) { if (yyn == YYFLAG) goto yyerrlab; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrlab; if (yyn == YYFINAL) YYACCEPT; /* Shift the lookahead token. */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]); #endif /* Discard the token being shifted unless it is eof. */ if (yychar != YYEOF) yychar = YYEMPTY; *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif /* count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; yystate = yyn; goto yynewstate; /* Do the default action for the current state. */ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; /* Do a reduction. yyn is the number of a rule to reduce with. */ yyreduce: yylen = yyr2[yyn]; if (yylen > 0) yyval = yyvsp[1-yylen]; /* implement default value of the action */ #if YYDEBUG != 0 if (yydebug) { int i; fprintf (stderr, "Reducing via rule %d (line %d), ", yyn, yyrline[yyn]); /* Print the symbols being reduced, and their result. */ for (i = yyprhs[yyn]; yyrhs[i] > 0; i++) fprintf (stderr, "%s ", yytname[yyrhs[i]]); fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]); } #endif switch (yyn) { case 3: #line 202 "./m2-exp.y" { write_exp_elt_opcode(OP_TYPE); write_exp_elt_type(yyvsp[0].tval); write_exp_elt_opcode(OP_TYPE); ; break;} case 4: #line 211 "./m2-exp.y" { write_exp_elt_opcode (UNOP_IND); ; break;} case 5: #line 214 "./m2-exp.y" { number_sign = -1; ; break;} case 6: #line 216 "./m2-exp.y" { number_sign = 1; write_exp_elt_opcode (UNOP_NEG); ; break;} case 7: #line 221 "./m2-exp.y" { write_exp_elt_opcode(UNOP_PLUS); ; break;} case 8: #line 225 "./m2-exp.y" { write_exp_elt_opcode (UNOP_LOGICAL_NOT); ; break;} case 11: #line 233 "./m2-exp.y" { write_exp_elt_opcode (UNOP_CAP); ; break;} case 12: #line 237 "./m2-exp.y" { write_exp_elt_opcode (UNOP_ORD); ; break;} case 13: #line 241 "./m2-exp.y" { write_exp_elt_opcode (UNOP_ABS); ; break;} case 14: #line 245 "./m2-exp.y" { write_exp_elt_opcode (UNOP_HIGH); ; break;} case 15: #line 249 "./m2-exp.y" { write_exp_elt_opcode (UNOP_MIN); write_exp_elt_type (yyvsp[-1].tval); write_exp_elt_opcode (UNOP_MIN); ; break;} case 16: #line 255 "./m2-exp.y" { write_exp_elt_opcode (UNOP_MAX); write_exp_elt_type (yyvsp[-1].tval); write_exp_elt_opcode (UNOP_MIN); ; break;} case 17: #line 261 "./m2-exp.y" { write_exp_elt_opcode (UNOP_FLOAT); ; break;} case 18: #line 265 "./m2-exp.y" { write_exp_elt_opcode (BINOP_VAL); write_exp_elt_type (yyvsp[-3].tval); write_exp_elt_opcode (BINOP_VAL); ; break;} case 19: #line 271 "./m2-exp.y" { write_exp_elt_opcode (UNOP_CHR); ; break;} case 20: #line 275 "./m2-exp.y" { write_exp_elt_opcode (UNOP_ODD); ; break;} case 21: #line 279 "./m2-exp.y" { write_exp_elt_opcode (UNOP_TRUNC); ; break;} case 22: #line 283 "./m2-exp.y" { write_exp_elt_opcode (UNOP_SIZEOF); ; break;} case 23: #line 288 "./m2-exp.y" { write_exp_elt_opcode(UNOP_PREINCREMENT); ; break;} case 24: #line 292 "./m2-exp.y" { write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); write_exp_elt_opcode(BINOP_ADD); write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); ; break;} case 25: #line 298 "./m2-exp.y" { write_exp_elt_opcode(UNOP_PREDECREMENT);; break;} case 26: #line 302 "./m2-exp.y" { write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); write_exp_elt_opcode(BINOP_SUB); write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); ; break;} case 27: #line 308 "./m2-exp.y" { write_exp_elt_opcode (STRUCTOP_STRUCT); write_exp_string (yyvsp[0].sval); write_exp_elt_opcode (STRUCTOP_STRUCT); ; break;} case 29: #line 317 "./m2-exp.y" { error("Sets are not implemented.");; break;} case 30: #line 321 "./m2-exp.y" { error("Sets are not implemented.");; break;} case 31: #line 325 "./m2-exp.y" { error("Sets are not implemented.");; break;} case 32: #line 328 "./m2-exp.y" { error("Sets are not implemented.");; break;} case 33: #line 330 "./m2-exp.y" { error("Sets are not implemented.");; break;} case 34: #line 339 "./m2-exp.y" { start_arglist(); ; break;} case 35: #line 341 "./m2-exp.y" { write_exp_elt_opcode (MULTI_SUBSCRIPT); write_exp_elt_longcst ((LONGEST) end_arglist()); write_exp_elt_opcode (MULTI_SUBSCRIPT); ; break;} case 36: #line 349 "./m2-exp.y" { start_arglist (); ; break;} case 37: #line 351 "./m2-exp.y" { write_exp_elt_opcode (OP_FUNCALL); write_exp_elt_longcst ((LONGEST) end_arglist ()); write_exp_elt_opcode (OP_FUNCALL); ; break;} case 39: #line 360 "./m2-exp.y" { arglist_len = 1; ; break;} case 40: #line 364 "./m2-exp.y" { arglist_len++; ; break;} case 41: #line 369 "./m2-exp.y" { arglist_len = 1; ; break;} case 42: #line 374 "./m2-exp.y" { arglist_len++; ; break;} case 43: #line 379 "./m2-exp.y" { write_exp_elt_opcode (UNOP_MEMVAL); write_exp_elt_type (yyvsp[-2].tval); write_exp_elt_opcode (UNOP_MEMVAL); ; break;} case 44: #line 385 "./m2-exp.y" { write_exp_elt_opcode (UNOP_CAST); write_exp_elt_type (yyvsp[-3].tval); write_exp_elt_opcode (UNOP_CAST); ; break;} case 45: #line 391 "./m2-exp.y" { ; break;} case 46: #line 399 "./m2-exp.y" { write_exp_elt_opcode (BINOP_REPEAT); ; break;} case 47: #line 403 "./m2-exp.y" { write_exp_elt_opcode (BINOP_MUL); ; break;} case 48: #line 407 "./m2-exp.y" { write_exp_elt_opcode (BINOP_DIV); ; break;} case 49: #line 411 "./m2-exp.y" { write_exp_elt_opcode (BINOP_INTDIV); ; break;} case 50: #line 415 "./m2-exp.y" { write_exp_elt_opcode (BINOP_REM); ; break;} case 51: #line 419 "./m2-exp.y" { write_exp_elt_opcode (BINOP_ADD); ; break;} case 52: #line 423 "./m2-exp.y" { write_exp_elt_opcode (BINOP_SUB); ; break;} case 53: #line 427 "./m2-exp.y" { write_exp_elt_opcode (BINOP_EQUAL); ; break;} case 54: #line 431 "./m2-exp.y" { write_exp_elt_opcode (BINOP_NOTEQUAL); ; break;} case 55: #line 433 "./m2-exp.y" { write_exp_elt_opcode (BINOP_NOTEQUAL); ; break;} case 56: #line 437 "./m2-exp.y" { write_exp_elt_opcode (BINOP_LEQ); ; break;} case 57: #line 441 "./m2-exp.y" { write_exp_elt_opcode (BINOP_GEQ); ; break;} case 58: #line 445 "./m2-exp.y" { write_exp_elt_opcode (BINOP_LESS); ; break;} case 59: #line 449 "./m2-exp.y" { write_exp_elt_opcode (BINOP_GTR); ; break;} case 60: #line 453 "./m2-exp.y" { write_exp_elt_opcode (BINOP_LOGICAL_AND); ; break;} case 61: #line 457 "./m2-exp.y" { write_exp_elt_opcode (BINOP_LOGICAL_OR); ; break;} case 62: #line 461 "./m2-exp.y" { write_exp_elt_opcode (BINOP_ASSIGN); ; break;} case 63: #line 468 "./m2-exp.y" { write_exp_elt_opcode (OP_BOOL); write_exp_elt_longcst ((LONGEST) yyvsp[0].ulval); write_exp_elt_opcode (OP_BOOL); ; break;} case 64: #line 474 "./m2-exp.y" { write_exp_elt_opcode (OP_BOOL); write_exp_elt_longcst ((LONGEST) yyvsp[0].ulval); write_exp_elt_opcode (OP_BOOL); ; break;} case 65: #line 480 "./m2-exp.y" { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_m2_int); write_exp_elt_longcst ((LONGEST) yyvsp[0].lval); write_exp_elt_opcode (OP_LONG); ; break;} case 66: #line 487 "./m2-exp.y" { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_m2_card); write_exp_elt_longcst ((LONGEST) yyvsp[0].ulval); write_exp_elt_opcode (OP_LONG); ; break;} case 67: #line 496 "./m2-exp.y" { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_m2_char); write_exp_elt_longcst ((LONGEST) yyvsp[0].ulval); write_exp_elt_opcode (OP_LONG); ; break;} case 68: #line 504 "./m2-exp.y" { write_exp_elt_opcode (OP_DOUBLE); write_exp_elt_type (builtin_type_m2_real); write_exp_elt_dblcst (yyvsp[0].dval); write_exp_elt_opcode (OP_DOUBLE); ; break;} case 70: #line 515 "./m2-exp.y" { write_exp_elt_opcode (OP_LAST); write_exp_elt_longcst ((LONGEST) yyvsp[0].lval); write_exp_elt_opcode (OP_LAST); ; break;} case 71: #line 521 "./m2-exp.y" { write_exp_elt_opcode (OP_REGISTER); write_exp_elt_longcst ((LONGEST) yyvsp[0].lval); write_exp_elt_opcode (OP_REGISTER); ; break;} case 72: #line 527 "./m2-exp.y" { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (builtin_type_int); write_exp_elt_longcst ((LONGEST) TYPE_LENGTH (yyvsp[-1].tval)); write_exp_elt_opcode (OP_LONG); ; break;} case 73: #line 534 "./m2-exp.y" { write_exp_elt_opcode (OP_M2_STRING); write_exp_string (yyvsp[0].sval); write_exp_elt_opcode (OP_M2_STRING); ; break;} case 74: #line 541 "./m2-exp.y" { yyval.bval = SYMBOL_BLOCK_VALUE(yyvsp[0].sym); ; break;} case 75: #line 545 "./m2-exp.y" { struct symbol *sym = lookup_symbol (copy_name (yyvsp[0].sval), expression_context_block, VAR_NAMESPACE, 0, NULL); yyval.sym = sym;; break;} case 76: #line 554 "./m2-exp.y" { struct symbol *tem = lookup_symbol (copy_name (yyvsp[0].sval), yyvsp[-2].bval, VAR_NAMESPACE, 0, NULL); if (!tem || SYMBOL_CLASS (tem) != LOC_BLOCK) error ("No function \"%s\" in specified context.", copy_name (yyvsp[0].sval)); yyval.sym = tem; ; break;} case 77: #line 566 "./m2-exp.y" { write_exp_elt_opcode(OP_VAR_VALUE); write_exp_elt_block (NULL); write_exp_elt_sym (yyvsp[0].sym); write_exp_elt_opcode (OP_VAR_VALUE); ; break;} case 78: #line 574 "./m2-exp.y" { write_exp_elt_opcode (OP_INTERNALVAR); write_exp_elt_intern (yyvsp[0].ivar); write_exp_elt_opcode (OP_INTERNALVAR); ; break;} case 79: #line 581 "./m2-exp.y" { struct symbol *sym; sym = lookup_symbol (copy_name (yyvsp[0].sval), yyvsp[-2].bval, VAR_NAMESPACE, 0, NULL); if (sym == 0) error ("No symbol \"%s\" in specified context.", copy_name (yyvsp[0].sval)); write_exp_elt_opcode (OP_VAR_VALUE); /* block_found is set by lookup_symbol. */ write_exp_elt_block (block_found); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); ; break;} case 80: #line 597 "./m2-exp.y" { struct symbol *sym; int is_a_field_of_this; sym = lookup_symbol (copy_name (yyvsp[0].sval), expression_context_block, VAR_NAMESPACE, &is_a_field_of_this, NULL); if (sym) { if (symbol_read_needs_frame (sym)) { if (innermost_block == 0 || contained_in (block_found, innermost_block)) innermost_block = block_found; } write_exp_elt_opcode (OP_VAR_VALUE); /* We want to use the selected frame, not another more inner frame which happens to be in the same block. */ write_exp_elt_block (NULL); write_exp_elt_sym (sym); write_exp_elt_opcode (OP_VAR_VALUE); } else { struct minimal_symbol *msymbol; register char *arg = copy_name (yyvsp[0].sval); msymbol = lookup_minimal_symbol (arg, NULL); if (msymbol != NULL) { write_exp_msymbol (msymbol, lookup_function_type (builtin_type_int), builtin_type_int); } else if (!have_full_symbols () && !have_partial_symbols ()) error ("No symbol table is loaded. Use the \"symbol-file\" command."); else error ("No symbol \"%s\" in current context.", copy_name (yyvsp[0].sval)); } ; break;} case 81: #line 647 "./m2-exp.y" { yyval.tval = lookup_typename (copy_name (yyvsp[0].sval), expression_context_block, 0); ; break;} } /* the action file gets copied in in place of this dollarsign */ #line 465 "/usr/unsupported/lib/bison.simple" yyvsp -= yylen; yyssp -= yylen; #ifdef YYLSP_NEEDED yylsp -= yylen; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif *++yyvsp = yyval; #ifdef YYLSP_NEEDED yylsp++; if (yylen == 0) { yylsp->first_line = yylloc.first_line; yylsp->first_column = yylloc.first_column; yylsp->last_line = (yylsp-1)->last_line; yylsp->last_column = (yylsp-1)->last_column; yylsp->text = 0; } else { yylsp->last_line = (yylsp+yylen-1)->last_line; yylsp->last_column = (yylsp+yylen-1)->last_column; } #endif /* Now "shift" the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTBASE] + *yyssp; if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTBASE]; goto yynewstate; yyerrlab: /* here on detecting error */ if (! yyerrstatus) /* If not already recovering from an error, report this error. */ { ++yynerrs; #ifdef YYERROR_VERBOSE yyn = yypact[yystate]; if (yyn > YYFLAG && yyn < YYLAST) { int size = 0; char *msg; int x, count; count = 0; /* Start X at -yyn if nec to avoid negative indexes in yycheck. */ for (x = (yyn < 0 ? -yyn : 0); x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) size += strlen(yytname[x]) + 15, count++; msg = (char *) xmalloc(size + 15); if (msg != 0) { strcpy(msg, "parse error"); if (count < 5) { count = 0; for (x = (yyn < 0 ? -yyn : 0); x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) { strcat(msg, count == 0 ? ", expecting `" : " or `"); strcat(msg, yytname[x]); strcat(msg, "'"); count++; } } yyerror(msg); free(msg); } else yyerror ("parse error; also virtual memory exceeded"); } else #endif /* YYERROR_VERBOSE */ yyerror("parse error"); } goto yyerrlab1; yyerrlab1: /* here on error raised explicitly by an action */ if (yyerrstatus == 3) { /* if just tried and failed to reuse lookahead token after an error, discard it. */ /* return failure if at end of input */ if (yychar == YYEOF) YYABORT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]); #endif yychar = YYEMPTY; } /* Else will try to reuse lookahead token after shifting the error token. */ yyerrstatus = 3; /* Each real token shifted decrements this */ goto yyerrhandle; yyerrdefault: /* current state does not do anything special for the error token. */ #if 0 /* This is wrong; only states that explicitly want error tokens should shift them. */ yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/ if (yyn) goto yydefault; #endif yyerrpop: /* pop the current state because it cannot handle the error token */ if (yyssp == yyss) YYABORT; yyvsp--; yystate = *--yyssp; #ifdef YYLSP_NEEDED yylsp--; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "Error: state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif yyerrhandle: yyn = yypact[yystate]; if (yyn == YYFLAG) goto yyerrdefault; yyn += YYTERROR; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR) goto yyerrdefault; yyn = yytable[yyn]; if (yyn < 0) { if (yyn == YYFLAG) goto yyerrpop; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrpop; if (yyn == YYFINAL) YYACCEPT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting error token, "); #endif *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif yystate = yyn; goto yynewstate; } #line 652 "./m2-exp.y" #if 0 /* FIXME! */ int overflow(a,b) long a,b; { return (MAX_OF_TYPE(builtin_type_m2_int) - b) < a; } int uoverflow(a,b) unsigned long a,b; { return (MAX_OF_TYPE(builtin_type_m2_card) - b) < a; } #endif /* FIXME */ /* Take care of parsing a number (anything that starts with a digit). Set yylval and return the token type; update lexptr. LEN is the number of characters in it. */ /*** Needs some error checking for the float case ***/ static int parse_number (olen) int olen; { register char *p = lexptr; register LONGEST n = 0; register LONGEST prevn = 0; register int c,i,ischar=0; register int base = input_radix; register int len = olen; int unsigned_p = number_sign == 1 ? 1 : 0; if(p[len-1] == 'H') { base = 16; len--; } else if(p[len-1] == 'C' || p[len-1] == 'B') { base = 8; ischar = p[len-1] == 'C'; len--; } /* Scan the number */ for (c = 0; c < len; c++) { if (p[c] == '.' && base == 10) { /* It's a float since it contains a point. */ yylval.dval = atof (p); lexptr += len; return FLOAT; } if (p[c] == '.' && base != 10) error("Floating point numbers must be base 10."); if (base == 10 && (p[c] < '0' || p[c] > '9')) error("Invalid digit \'%c\' in number.",p[c]); } while (len-- > 0) { c = *p++; n *= base; if( base == 8 && (c == '8' || c == '9')) error("Invalid digit \'%c\' in octal number.",c); if (c >= '0' && c <= '9') i = c - '0'; else { if (base == 16 && c >= 'A' && c <= 'F') i = c - 'A' + 10; else return ERROR; } n+=i; if(i >= base) return ERROR; if(!unsigned_p && number_sign == 1 && (prevn >= n)) unsigned_p=1; /* Try something unsigned */ /* Don't do the range check if n==i and i==0, since that special case will give an overflow error. */ if(RANGE_CHECK && n!=i && i) { if((unsigned_p && (unsigned)prevn >= (unsigned)n) || ((!unsigned_p && number_sign==-1) && -prevn <= -n)) range_error("Overflow on numeric constant."); } prevn=n; } lexptr = p; if(*p == 'B' || *p == 'C' || *p == 'H') lexptr++; /* Advance past B,C or H */ if (ischar) { yylval.ulval = n; return CHAR; } else if ( unsigned_p && number_sign == 1) { yylval.ulval = n; return UINT; } else if((unsigned_p && (n<0))) { range_error("Overflow on numeric constant -- number too large."); /* But, this can return if range_check == range_warn. */ } yylval.lval = n; return INT; } /* Some tokens */ static struct { char name[2]; int token; } tokentab2[] = { { {'<', '>'}, NOTEQUAL }, { {':', '='}, ASSIGN }, { {'<', '='}, LEQ }, { {'>', '='}, GEQ }, { {':', ':'}, COLONCOLON }, }; /* Some specific keywords */ struct keyword { char keyw[10]; int token; }; static struct keyword keytab[] = { {"OR" , OROR }, {"IN", IN },/* Note space after IN */ {"AND", LOGICAL_AND}, {"ABS", ABS }, {"CHR", CHR }, {"DEC", DEC }, {"NOT", NOT }, {"DIV", DIV }, {"INC", INC }, {"MAX", MAX_FUNC }, {"MIN", MIN_FUNC }, {"MOD", MOD }, {"ODD", ODD }, {"CAP", CAP }, {"ORD", ORD }, {"VAL", VAL }, {"EXCL", EXCL }, {"HIGH", HIGH }, {"INCL", INCL }, {"SIZE", SIZE }, {"FLOAT", FLOAT_FUNC }, {"TRUNC", TRUNC }, }; /* Read one token, getting characters through lexptr. */ /* This is where we will check to make sure that the language and the operators used are compatible */ static int yylex () { register int c; register int namelen; register int i; register char *tokstart; register char quote; retry: tokstart = lexptr; /* See if it is a special token of length 2 */ for( i = 0 ; i < sizeof tokentab2 / sizeof tokentab2[0] ; i++) if(STREQN(tokentab2[i].name, tokstart, 2)) { lexptr += 2; return tokentab2[i].token; } switch (c = *tokstart) { case 0: return 0; case ' ': case '\t': case '\n': lexptr++; goto retry; case '(': paren_depth++; lexptr++; return c; case ')': if (paren_depth == 0) return 0; paren_depth--; lexptr++; return c; case ',': if (comma_terminates && paren_depth == 0) return 0; lexptr++; return c; case '.': /* Might be a floating point number. */ if (lexptr[1] >= '0' && lexptr[1] <= '9') break; /* Falls into number code. */ else { lexptr++; return DOT; } /* These are character tokens that appear as-is in the YACC grammar */ case '+': case '-': case '*': case '/': case '^': case '<': case '>': case '[': case ']': case '=': case '{': case '}': case '#': case '@': case '~': case '&': lexptr++; return c; case '\'' : case '"': quote = c; for (namelen = 1; (c = tokstart[namelen]) != quote && c != '\0'; namelen++) if (c == '\\') { c = tokstart[++namelen]; if (c >= '0' && c <= '9') { c = tokstart[++namelen]; if (c >= '0' && c <= '9') c = tokstart[++namelen]; } } if(c != quote) error("Unterminated string or character constant."); yylval.sval.ptr = tokstart + 1; yylval.sval.length = namelen - 1; lexptr += namelen + 1; if(namelen == 2) /* Single character */ { yylval.ulval = tokstart[1]; return CHAR; } else return STRING; } /* Is it a number? */ /* Note: We have already dealt with the case of the token '.'. See case '.' above. */ if ((c >= '0' && c <= '9')) { /* It's a number. */ int got_dot = 0, got_e = 0; register char *p = tokstart; int toktype; for (++p ;; ++p) { if (!got_e && (*p == 'e' || *p == 'E')) got_dot = got_e = 1; else if (!got_dot && *p == '.') got_dot = 1; else if (got_e && (p[-1] == 'e' || p[-1] == 'E') && (*p == '-' || *p == '+')) /* This is the sign of the exponent, not the end of the number. */ continue; else if ((*p < '0' || *p > '9') && (*p < 'A' || *p > 'F') && (*p != 'H')) /* Modula-2 hexadecimal number */ break; } toktype = parse_number (p - tokstart); if (toktype == ERROR) { char *err_copy = (char *) alloca (p - tokstart + 1); memcpy (err_copy, tokstart, p - tokstart); err_copy[p - tokstart] = 0; error ("Invalid number \"%s\".", err_copy); } lexptr = p; return toktype; } if (!(c == '_' || c == '$' || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z'))) /* We must have come across a bad character (e.g. ';'). */ error ("Invalid character '%c' in expression.", c); /* It's a name. See how long it is. */ namelen = 0; for (c = tokstart[namelen]; (c == '_' || c == '$' || (c >= '0' && c <= '9') || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')); c = tokstart[++namelen]) ; /* The token "if" terminates the expression and is NOT removed from the input stream. */ if (namelen == 2 && tokstart[0] == 'i' && tokstart[1] == 'f') { return 0; } lexptr += namelen; /* Handle the tokens $digits; also $ (short for $0) and $$ (short for $$1) and $$digits (equivalent to $<-digits> if you could type that). Make token type LAST, and put the number (the digits) in yylval. */ if (*tokstart == '$') { register int negate = 0; c = 1; /* Double dollar means negate the number and add -1 as well. Thus $$ alone means -1. */ if (namelen >= 2 && tokstart[1] == '$') { negate = 1; c = 2; } if (c == namelen) { /* Just dollars (one or two) */ yylval.lval = - negate; return LAST; } /* Is the rest of the token digits? */ for (; c < namelen; c++) if (!(tokstart[c] >= '0' && tokstart[c] <= '9')) break; if (c == namelen) { yylval.lval = atoi (tokstart + 1 + negate); if (negate) yylval.lval = - yylval.lval; return LAST; } } /* Handle tokens that refer to machine registers: $ followed by a register name. */ if (*tokstart == '$') { for (c = 0; c < NUM_REGS; c++) if (namelen - 1 == strlen (reg_names[c]) && STREQN (tokstart + 1, reg_names[c], namelen - 1)) { yylval.lval = c; return REGNAME; } for (c = 0; c < num_std_regs; c++) if (namelen - 1 == strlen (std_regs[c].name) && STREQN (tokstart + 1, std_regs[c].name, namelen - 1)) { yylval.lval = std_regs[c].regnum; return REGNAME; } } /* Lookup special keywords */ for(i = 0 ; i < sizeof(keytab) / sizeof(keytab[0]) ; i++) if(namelen == strlen(keytab[i].keyw) && STREQN(tokstart,keytab[i].keyw,namelen)) return keytab[i].token; yylval.sval.ptr = tokstart; yylval.sval.length = namelen; /* Any other names starting in $ are debugger internal variables. */ if (*tokstart == '$') { yylval.ivar = (struct internalvar *) lookup_internalvar (copy_name (yylval.sval) + 1); return INTERNAL_VAR; } /* Use token-type BLOCKNAME for symbols that happen to be defined as functions. If this is not so, then ... Use token-type TYPENAME for symbols that happen to be defined currently as names of types; NAME for other symbols. The caller is not constrained to care about the distinction. */ { char *tmp = copy_name (yylval.sval); struct symbol *sym; if (lookup_partial_symtab (tmp)) return BLOCKNAME; sym = lookup_symbol (tmp, expression_context_block, VAR_NAMESPACE, 0, NULL); if (sym && SYMBOL_CLASS (sym) == LOC_BLOCK) return BLOCKNAME; if (lookup_typename (copy_name (yylval.sval), expression_context_block, 1)) return TYPENAME; if(sym) { switch(sym->class) { case LOC_STATIC: case LOC_REGISTER: case LOC_ARG: case LOC_REF_ARG: case LOC_REGPARM: case LOC_REGPARM_ADDR: case LOC_LOCAL: case LOC_LOCAL_ARG: case LOC_BASEREG: case LOC_BASEREG_ARG: case LOC_CONST: case LOC_CONST_BYTES: case LOC_OPTIMIZED_OUT: return NAME; case LOC_TYPEDEF: return TYPENAME; case LOC_BLOCK: return BLOCKNAME; case LOC_UNDEF: error("internal: Undefined class in m2lex()"); case LOC_LABEL: error("internal: Unforseen case in m2lex()"); } } else { /* Built-in BOOLEAN type. This is sort of a hack. */ if(STREQN(tokstart,"TRUE",4)) { yylval.ulval = 1; return M2_TRUE; } else if(STREQN(tokstart,"FALSE",5)) { yylval.ulval = 0; return M2_FALSE; } } /* Must be another type of name... */ return NAME; } } #if 0 /* Unused */ static char * make_qualname(mod,ident) char *mod, *ident; { char *new = xmalloc(strlen(mod)+strlen(ident)+2); strcpy(new,mod); strcat(new,"."); strcat(new,ident); return new; } #endif /* 0 */ void yyerror (msg) char *msg; { error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr); } gdb-4.13/gdb/gdb.info-1 666 34562 1752 141647 5623251656 13127 0ustar fnfcygnusThis is Info file ./gdb.info, produced by Makeinfo-1.52 from the input file gdb.texinfo. START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY This file documents the GNU debugger GDB. This is Edition 4.12, January 1994, of `Debugging with GDB: the GNU Source-Level Debugger' for GDB Version 4.13. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions.  File: gdb.info, Node: Top, Next: Summary, Prev: (DIR), Up: (DIR) Debugging with GDB ****************** This file describes GDB, the GNU symbolic debugger. This is Edition 4.12, January 1994, for GDB Version 4.13. * Menu: * Summary:: Summary of GDB * New Features:: New features since GDB version 3.5 * Sample Session:: A sample GDB session * Invocation:: Getting in and out of GDB * Commands:: GDB commands * Running:: Running programs under GDB * Stopping:: Stopping and continuing * Stack:: Examining the stack * Source:: Examining source files * Data:: Examining data * Languages:: Using GDB with different languages * Symbols:: Examining the symbol table * Altering:: Altering execution * GDB Files:: GDB files * Targets:: Specifying a debugging target * Controlling GDB:: Controlling GDB * Sequences:: Canned sequences of commands * Emacs:: Using GDB under GNU Emacs * GDB Bugs:: Reporting bugs in GDB * Command Line Editing:: Facilities of the readline library * Using History Interactively:: * Renamed Commands:: * Formatting Documentation:: How to format and print GDB documentation * Installing GDB:: Installing GDB * Index:: Index  File: gdb.info, Node: Summary, Next: New Features, Prev: Top, Up: Top Summary of GDB ************** The purpose of a debugger such as GDB is to allow you to see what is going on "inside" another program while it executes--or what another program was doing at the moment it crashed. GDB can do four main kinds of things (plus other things in support of these) to help you catch bugs in the act: * Start your program, specifying anything that might affect its behavior. * Make your program stop on specified conditions. * Examine what has happened, when your program has stopped. * Change things in your program, so you can experiment with correcting the effects of one bug and go on to learn about another. You can use GDB to debug programs written in C or C++. For more information, see *Note C and C++: C. Support for Modula-2 and Chill is partial. For information on Modula-2, see *Note Modula-2: Modula-2. There is no further documentation on Chill yet. Debugging Pascal programs which use sets, subranges, file variables, or nested functions does not currently work. GDB does not support entering expressions, printing values, or similar features using Pascal syntax. GDB can be used to debug programs written in Fortran, although it does not yet support entering expressions, printing values, or similar features using Fortran syntax. It may be necessary to refer to some variables with a trailing underscore. * Menu: * Free Software:: Freely redistributable software * Contributors:: Contributors to GDB  File: gdb.info, Node: Free Software, Next: Contributors, Up: Summary Free software ============= GDB is "free software", protected by the GNU General Public License (GPL). The GPL gives you the freedom to copy or adapt a licensed program--but every person getting a copy also gets with it the freedom to modify that copy (which means that they must get access to the source code), and the freedom to distribute further copies. Typical software companies use copyrights to limit your freedoms; the Free Software Foundation uses the GPL to preserve these freedoms. Fundamentally, the General Public License is a license which says that you have these freedoms and that you cannot take these freedoms away from anyone else.  File: gdb.info, Node: Contributors, Prev: Free Software, Up: Summary Contributors to GDB =================== Richard Stallman was the original author of GDB, and of many other GNU programs. Many others have contributed to its development. This section attempts to credit major contributors. One of the virtues of free software is that everyone is free to contribute to it; with regret, we cannot actually acknowledge everyone here. The file `ChangeLog' in the GDB distribution approximates a blow-by-blow account. Changes much prior to version 2.0 are lost in the mists of time. *Plea:* Additions to this section are particularly welcome. If you or your friends (or enemies, to be evenhanded) have been unfairly omitted from this list, we would like to add your names! So that they may not regard their long labor as thankless, we particularly thank those who shepherded GDB through major releases: Fred Fish (releases 4.12, 4.11, 4.10, and 4.9), Stu Grossman and John Gilmore (releases 4.8, 4.7, 4.6, 4.5, and 4.4), John Gilmore (releases 4.3, 4.2, 4.1, 4.0, and 3.9); Jim Kingdon (releases 3.5, 3.4, and 3.3); and Randy Smith (releases 3.2, 3.1, and 3.0). As major maintainer of GDB for some period, each contributed significantly to the structure, stability, and capabilities of the entire debugger. Richard Stallman, assisted at various times by Peter TerMaat, Chris Hanson, and Richard Mlynarik, handled releases through 2.8. Michael Tiemann is the author of most of the GNU C++ support in GDB, with significant additional contributions from Per Bothner. James Clark wrote the GNU C++ demangler. Early work on C++ was by Peter TerMaat (who also did much general update work leading to release 3.0). GDB 4 uses the BFD subroutine library to examine multiple object-file formats; BFD was a joint project of David V. Henkel-Wallace, Rich Pixley, Steve Chamberlain, and John Gilmore. David Johnson wrote the original COFF support; Pace Willison did the original support for encapsulated COFF. Adam de Boor and Bradley Davis contributed the ISI Optimum V support. Per Bothner, Noboyuki Hikichi, and Alessandro Forin contributed MIPS support. Jean-Daniel Fekete contributed Sun 386i support. Chris Hanson improved the HP9000 support. Noboyuki Hikichi and Tomoyuki Hasei contributed Sony/News OS 3 support. David Johnson contributed Encore Umax support. Jyrki Kuoppala contributed Altos 3068 support. Jeff Law contributed HP PA and SOM support. Keith Packard contributed NS32K support. Doug Rabson contributed Acorn Risc Machine support. Bob Rusk contributed Harris Nighthawk CX-UX support. Chris Smith contributed Convex support (and Fortran debugging). Jonathan Stone contributed Pyramid support. Michael Tiemann contributed SPARC support. Tim Tucker contributed support for the Gould NP1 and Gould Powernode. Pace Willison contributed Intel 386 support. Jay Vosburgh contributed Symmetry support. Rich Schaefer and Peter Schauer helped with support of SunOS shared libraries. Jay Fenlason and Roland McGrath ensured that GDB and GAS agree about several machine instruction sets. Patrick Duval, Ted Goldstein, Vikram Koka and Glenn Engel helped develop remote debugging. Intel Corporation and Wind River Systems contributed remote debugging modules for their products. Brian Fox is the author of the readline libraries providing command-line editing and command history. Andrew Beers of SUNY Buffalo wrote the language-switching code, the Modula-2 support, and contributed the Languages chapter of this manual. Fred Fish wrote most of the support for Unix System Vr4. He also enhanced the command-completion support to cover C++ overloaded symbols. Hitachi America, Ltd. sponsored the support for Hitachi microprocessors. Kung Hsu, Jeff Law, and Rick Sladkey added support for hardware watchpoints. Stu Grossman wrote gdbserver. Jim Kingdon, Peter Schauer, Ian Taylor, and Stu Grossman made nearly innumerable bug fixes and cleanups throughout GDB.  File: gdb.info, Node: New Features, Next: Sample Session, Prev: Summary, Up: Top New Features since GDB Version 3.5 ********************************** *Targets* Using the new command `target', you can select at runtime whether you are debugging local files, local processes, standalone systems over a serial port, or realtime systems over a TCP/IP connection. The command `load' can download programs into a remote system. Serial stubs are available for Motorola 680x0, Intel 80386, and Sparc remote systems; GDB also supports debugging realtime processes running under VxWorks, using SunRPC Remote Procedure Calls over TCP/IP to talk to a debugger stub on the target system. Internally, GDB now uses a function vector to mediate access to different targets; if you need to add your own support for a remote protocol, this makes it much easier. *Watchpoints* GDB now sports watchpoints as well as breakpoints. You can use a watchpoint to stop execution whenever the value of an expression changes, without having to predict a particular place in your program where this may happen. *Wide Output* Commands that issue wide output now insert newlines at places designed to make the output more readable. *Object Code Formats* GDB uses a new library called the Binary File Descriptor (BFD) Library to permit it to switch dynamically, without reconfiguration or recompilation, between different object-file formats. Formats currently supported are COFF, ELF, a.out, Intel 960 b.out, MIPS ECOFF, HPPA SOM (with stabs debugging), and S-records; files may be read as .o files, archive libraries, or core dumps. BFD is available as a subroutine library so that other programs may take advantage of it, and the other GNU binary utilities are being converted to use it. *Configuration and Ports* Compile-time configuration (to select a particular architecture and operating system) is much easier. The script `configure' now allows you to configure GDB as either a native debugger or a cross-debugger. *Note Installing GDB::, for details on how to configure. *Interaction* The user interface to the GDB control variables is simpler, and is consolidated in two commands, `set' and `show'. Output lines are now broken at readable places, rather than overflowing onto the next line. You can suppress output of machine-level addresses, displaying only source language information. *C++* GDB now supports C++ multiple inheritance (if used with a GCC version 2 compiler), and also has limited support for C++ exception handling, with the commands `catch' and `info catch': GDB can break when an exception is raised, before the stack is peeled back to the exception handler's context. *Modula-2* GDB now has preliminary support for the GNU Modula-2 compiler, currently under development at the State University of New York at Buffalo. Coordinated development of both GDB and the GNU Modula-2 compiler will continue. Other Modula-2 compilers are currently not supported, and attempting to debug programs compiled with them will likely result in an error as the symbol table of the executable is read in. *Command Rationalization* Many GDB commands have been renamed to make them easier to remember and use. In particular, the subcommands of `info' and `show'/`set' are grouped to make the former refer to the state of your program, and the latter refer to the state of GDB itself. *Note Renamed Commands::, for details on what commands were renamed. *Shared Libraries* GDB 4 can debug programs and core files that use SunOS, SVR4, or IBM RS/6000 shared libraries. *Threads* On some systems, GDB 4 has facilities to debug multi-thread programs. *Reference Card* GDB 4 has a reference card. *Note Formatting the Documentation: Formatting Documentation, for instructions about how to print it.  File: gdb.info, Node: Sample Session, Next: Invocation, Prev: New Features, Up: Top A Sample GDB Session ******************** You can use this manual at your leisure to read all about GDB. However, a handful of commands are enough to get started using the debugger. This chapter illustrates those commands. One of the preliminary versions of GNU `m4' (a generic macro processor) exhibits the following bug: sometimes, when we change its quote strings from the default, the commands used to capture one macro definition within another stop working. In the following short `m4' session, we define a macro `foo' which expands to `0000'; we then use the `m4' built-in `defn' to define `bar' as the same thing. However, when we change the open quote string to `' and the close quote string to `', the same procedure fails to define a new synonym `baz': $ cd gnu/m4 $ ./m4 define(foo,0000) foo 0000 define(bar,defn(`foo')) bar 0000 changequote(,) define(baz,defn(foo)) baz C-d m4: End of input: 0: fatal error: EOF in string Let us use GDB to try to see what is going on. $ gdb m4 GDB is free software and you are welcome to distribute copies of it under certain conditions; type "show copying" to see the conditions. There is absolutely no warranty for GDB; type "show warranty" for details. GDB 4.13, Copyright 1993 Free Software Foundation, Inc... (gdb) GDB reads only enough symbol data to know where to find the rest when needed; as a result, the first prompt comes up very quickly. We now tell GDB to use a narrower display width than usual, so that examples fit in this manual. (gdb) set width 70 We need to see how the `m4' built-in `changequote' works. Having looked at the source, we know the relevant subroutine is `m4_changequote', so we set a breakpoint there with the GDB `break' command. (gdb) break m4_changequote Breakpoint 1 at 0x62f4: file builtin.c, line 879. Using the `run' command, we start `m4' running under GDB control; as long as control does not reach the `m4_changequote' subroutine, the program runs as usual: (gdb) run Starting program: /work/Editorial/gdb/gnu/m4/m4 define(foo,0000) foo 0000 To trigger the breakpoint, we call `changequote'. GDB suspends execution of `m4', displaying information about the context where it stops. changequote(,) Breakpoint 1, m4_changequote (argc=3, argv=0x33c70) at builtin.c:879 879 if (bad_argc(TOKEN_DATA_TEXT(argv[0]),argc,1,3)) Now we use the command `n' (`next') to advance execution to the next line of the current function. (gdb) n 882 set_quotes((argc >= 2) ? TOKEN_DATA_TEXT(argv[1])\ : nil, `set_quotes' looks like a promising subroutine. We can go into it by using the command `s' (`step') instead of `next'. `step' goes to the next line to be executed in *any* subroutine, so it steps into `set_quotes'. (gdb) s set_quotes (lq=0x34c78 "", rq=0x34c88 "") at input.c:530 530 if (lquote != def_lquote) The display that shows the subroutine where `m4' is now suspended (and its arguments) is called a stack frame display. It shows a summary of the stack. We can use the `backtrace' command (which can also be spelled `bt'), to see where we are in the stack as a whole: the `backtrace' command displays a stack frame for each active subroutine. (gdb) bt #0 set_quotes (lq=0x34c78 "", rq=0x34c88 "") at input.c:530 #1 0x6344 in m4_changequote (argc=3, argv=0x33c70) at builtin.c:882 #2 0x8174 in expand_macro (sym=0x33320) at macro.c:242 #3 0x7a88 in expand_token (obs=0x0, t=209696, td=0xf7fffa30) at macro.c:71 #4 0x79dc in expand_input () at macro.c:40 #5 0x2930 in main (argc=0, argv=0xf7fffb20) at m4.c:195 We step through a few more lines to see what happens. The first two times, we can use `s'; the next two times we use `n' to avoid falling into the `xstrdup' subroutine. (gdb) s 0x3b5c 532 if (rquote != def_rquote) (gdb) s 0x3b80 535 lquote = (lq == nil || *lq == '\0') ? \ def_lquote : xstrdup(lq); (gdb) n 536 rquote = (rq == nil || *rq == '\0') ? def_rquote\ : xstrdup(rq); (gdb) n 538 len_lquote = strlen(rquote); The last line displayed looks a little odd; we can examine the variables `lquote' and `rquote' to see if they are in fact the new left and right quotes we specified. We use the command `p' (`print') to see their values. (gdb) p lquote $1 = 0x35d40 "" (gdb) p rquote $2 = 0x35d50 "" `lquote' and `rquote' are indeed the new left and right quotes. To look at some context, we can display ten lines of source surrounding the current line with the `l' (`list') command. (gdb) l 533 xfree(rquote); 534 535 lquote = (lq == nil || *lq == '\0') ? def_lquote\ : xstrdup (lq); 536 rquote = (rq == nil || *rq == '\0') ? def_rquote\ : xstrdup (rq); 537 538 len_lquote = strlen(rquote); 539 len_rquote = strlen(lquote); 540 } 541 542 void Let us step past the two lines that set `len_lquote' and `len_rquote', and then examine the values of those variables. (gdb) n 539 len_rquote = strlen(lquote); (gdb) n 540 } (gdb) p len_lquote $3 = 9 (gdb) p len_rquote $4 = 7 That certainly looks wrong, assuming `len_lquote' and `len_rquote' are meant to be the lengths of `lquote' and `rquote' respectively. We can set them to better values using the `p' command, since it can print the value of any expression--and that expression can include subroutine calls and assignments. (gdb) p len_lquote=strlen(lquote) $5 = 7 (gdb) p len_rquote=strlen(rquote) $6 = 9 Is that enough to fix the problem of using the new quotes with the `m4' built-in `defn'? We can allow `m4' to continue executing with the `c' (`continue') command, and then try the example that caused trouble initially: (gdb) c Continuing. define(baz,defn(foo)) baz 0000 Success! The new quotes now work just as well as the default ones. The problem seems to have been just the two typos defining the wrong lengths. We allow `m4' exit by giving it an EOF as input: C-d Program exited normally. The message `Program exited normally.' is from GDB; it indicates `m4' has finished executing. We can end our GDB session with the GDB `quit' command. (gdb) quit  File: gdb.info, Node: Invocation, Next: Commands, Prev: Sample Session, Up: Top Getting In and Out of GDB ************************* This chapter discusses how to start GDB, and how to get out of it. (The essentials: type `gdb' to start GDB, and type `quit' or `C-d' to exit.) * Menu: * Invoking GDB:: How to start GDB * Quitting GDB:: How to quit GDB * Shell Commands:: How to use shell commands inside GDB  File: gdb.info, Node: Invoking GDB, Next: Quitting GDB, Up: Invocation Invoking GDB ============ Invoke GDB by running the program `gdb'. Once started, GDB reads commands from the terminal until you tell it to exit. You can also run `gdb' with a variety of arguments and options, to specify more of your debugging environment at the outset. The command-line options described here are designed to cover a variety of situations; in some environments, some of these options may effectively be unavailable. The most usual way to start GDB is with one argument, specifying an executable program: gdb PROGRAM You can also start with both an executable program and a core file specified: gdb PROGRAM CORE You can, instead, specify a process ID as a second argument, if you want to debug a running process: gdb PROGRAM 1234 would attach GDB to process `1234' (unless you also have a file named `1234'; GDB does check for a core file first). Taking advantage of the second command-line argument requires a fairly complete operating system; when you use GDB as a remote debugger attached to a bare board, there may not be any notion of "process", and there is often no way to get a core dump. You can further control how GDB starts up by using command-line options. GDB itself can remind you of the options available. Type gdb -help to display all available options and briefly describe their use (`gdb -h' is a shorter equivalent). All options and command line arguments you give are processed in sequential order. The order makes a difference when the `-x' option is used. * Menu: * File Options:: Choosing files * Mode Options:: Choosing modes  File: gdb.info, Node: File Options, Next: Mode Options, Up: Invoking GDB Choosing files -------------- When GDB starts, it reads any arguments other than options as specifying an executable file and core file (or process ID). This is the same as if the arguments were specified by the `-se' and `-c' options respectively. (GDB reads the first argument that does not have an associated option flag as equivalent to the `-se' option followed by that argument; and the second argument that does not have an associated option flag, if any, as equivalent to the `-c' option followed by that argument.) Many options have both long and short forms; both are shown in the following list. GDB also recognizes the long forms if you truncate them, so long as enough of the option is present to be unambiguous. (If you prefer, you can flag option arguments with `--' rather than `-', though we illustrate the more usual convention.) `-symbols FILE' `-s FILE' Read symbol table from file FILE. `-exec FILE' `-e FILE' Use file FILE as the executable file to execute when appropriate, and for examining pure data in conjunction with a core dump. `-se FILE' Read symbol table from file FILE and use it as the executable file. `-core FILE' `-c FILE' Use file FILE as a core dump to examine. `-c NUMBER' Connect to process ID NUMBER, as with the `attach' command (unless there is a file in core-dump format named NUMBER, in which case `-c' specifies that file as a core dump to read). `-command FILE' `-x FILE' Execute GDB commands from file FILE. *Note Command files: Command Files. `-directory DIRECTORY' `-d DIRECTORY' Add DIRECTORY to the path to search for source files. `-m' `-mapped' *Warning: this option depends on operating system facilities that are not supported on all systems.* If memory-mapped files are available on your system through the `mmap' system call, you can use this option to have GDB write the symbols from your program into a reusable file in the current directory. If the program you are debugging is called `/tmp/fred', the mapped symbol file is `./fred.syms'. Future GDB debugging sessions notice the presence of this file, and can quickly map in symbol information from it, rather than reading the symbol table from the executable program. The `.syms' file is specific to the host machine where GDB is run. It holds an exact image of the internal GDB symbol table. It cannot be shared across multiple host platforms. `-r' `-readnow' Read each symbol file's entire symbol table immediately, rather than the default, which is to read it incrementally as it is needed. This makes startup slower, but makes future operations faster. The `-mapped' and `-readnow' options are typically combined in order to build a `.syms' file that contains complete symbol information. (*Note Commands to specify files: Files, for information on `.syms' files.) A simple GDB invocation to do nothing but build a `.syms' file for future use is: gdb -batch -nx -mapped -readnow programname  File: gdb.info, Node: Mode Options, Prev: File Options, Up: Invoking GDB Choosing modes -------------- You can run GDB in various alternative modes--for example, in batch mode or quiet mode. `-nx' `-n' Do not execute commands from any initialization files (normally called `.gdbinit'). Normally, the commands in these files are executed after all the command options and arguments have been processed. *Note Command files: Command Files. `-quiet' `-q' "Quiet". Do not print the introductory and copyright messages. These messages are also suppressed in batch mode. `-batch' Run in batch mode. Exit with status `0' after processing all the command files specified with `-x' (and all commands from initialization files, if not inhibited with `-n'). Exit with nonzero status if an error occurs in executing the GDB commands in the command files. Batch mode may be useful for running GDB as a filter, for example to download and run a program on another computer; in order to make this more useful, the message Program exited normally. (which is ordinarily issued whenever a program running under GDB control terminates) is not issued when running in batch mode. `-cd DIRECTORY' Run GDB using DIRECTORY as its working directory, instead of the current directory. `-fullname' `-f' Emacs sets this option when it runs GDB as a subprocess. It tells GDB to output the full file name and line number in a standard, recognizable fashion each time a stack frame is displayed (which includes each time your program stops). This recognizable format looks like two `\032' characters, followed by the file name, line number and character position separated by colons, and a newline. The Emacs-to-GDB interface program uses the two `\032' characters as a signal to display the source code for the frame. `-b BPS' Set the line speed (baud rate or bits per second) of any serial interface used by GDB for remote debugging. `-tty DEVICE' Run using DEVICE for your program's standard input and output.  File: gdb.info, Node: Quitting GDB, Next: Shell Commands, Prev: Invoking GDB, Up: Invocation Quitting GDB ============ `quit' To exit GDB, use the `quit' command (abbreviated `q'), or type an end-of-file character (usually `C-d'). An interrupt (often `C-c') does not exit from GDB, but rather terminates the action of any GDB command that is in progress and returns to GDB command level. It is safe to type the interrupt character at any time because GDB does not allow it to take effect until a time when it is safe. If you have been using GDB to control an attached process or device, you can release it with the `detach' command (*note Debugging an already-running process: Attach.).  File: gdb.info, Node: Shell Commands, Prev: Quitting GDB, Up: Invocation Shell commands ============== If you need to execute occasional shell commands during your debugging session, there is no need to leave or suspend GDB; you can just use the `shell' command. `shell COMMAND STRING' Invoke a the standard shell to execute COMMAND STRING. If it exists, the environment variable `SHELL' determines which shell to run. Otherwise GDB uses `/bin/sh'. The utility `make' is often needed in development environments. You do not have to use the `shell' command for this purpose in GDB: `make MAKE-ARGS' Execute the `make' program with the specified arguments. This is equivalent to `shell make MAKE-ARGS'.  File: gdb.info, Node: Commands, Next: Running, Prev: Invocation, Up: Top GDB Commands ************ You can abbreviate a GDB command to the first few letters of the command name, if that abbreviation is unambiguous; and you can repeat certain GDB commands by typing just RET. You can also use the TAB key to get GDB to fill out the rest of a word in a command (or to show you the alternatives available, if there is more than one possibility). * Menu: * Command Syntax:: How to give commands to GDB * Completion:: Command completion * Help:: How to ask GDB for help  File: gdb.info, Node: Command Syntax, Next: Completion, Up: Commands Command syntax ============== A GDB command is a single line of input. There is no limit on how long it can be. It starts with a command name, which is followed by arguments whose meaning depends on the command name. For example, the command `step' accepts an argument which is the number of times to step, as in `step 5'. You can also use the `step' command with no arguments. Some command names do not allow any arguments. GDB command names may always be truncated if that abbreviation is unambiguous. Other possible command abbreviations are listed in the documentation for individual commands. In some cases, even ambiguous abbreviations are allowed; for example, `s' is specially defined as equivalent to `step' even though there are other commands whose names start with `s'. You can test abbreviations by using them as arguments to the `help' command. A blank line as input to GDB (typing just RET) means to repeat the previous command. Certain commands (for example, `run') will not repeat this way; these are commands whose unintentional repetition might cause trouble and which you are unlikely to want to repeat. The `list' and `x' commands, when you repeat them with RET, construct new arguments rather than repeating exactly as typed. This permits easy scanning of source or memory. GDB can also use RET in another way: to partition lengthy output, in a way similar to the common utility `more' (*note Screen size: Screen Size.). Since it is easy to press one RET too many in this situation, GDB disables command repetition after any command that generates this sort of display. Any text from a `#' to the end of the line is a comment; it does nothing. This is useful mainly in command files (*note Command files: Command Files.).  File: gdb.info, Node: Completion, Next: Help, Prev: Command Syntax, Up: Commands Command completion ================== GDB can fill in the rest of a word in a command for you, if there is only one possibility; it can also show you what the valid possibilities are for the next word in a command, at any time. This works for GDB commands, GDB subcommands, and the names of symbols in your program. Press the TAB key whenever you want GDB to fill out the rest of a word. If there is only one possibility, GDB fills in the word, and waits for you to finish the command (or press RET to enter it). For example, if you type (gdb) info bre TAB GDB fills in the rest of the word `breakpoints', since that is the only `info' subcommand beginning with `bre': (gdb) info breakpoints You can either press RET at this point, to run the `info breakpoints' command, or backspace and enter something else, if `breakpoints' does not look like the command you expected. (If you were sure you wanted `info breakpoints' in the first place, you might as well just type RET immediately after `info bre', to exploit command abbreviations rather than command completion). If there is more than one possibility for the next word when you press TAB, GDB sounds a bell. You can either supply more characters and try again, or just press TAB a second time; GDB displays all the possible completions for that word. For example, you might want to set a breakpoint on a subroutine whose name begins with `make_', but when you type `b make_TAB' GDB just sounds the bell. Typing TAB again displays all the function names in your program that begin with those characters, for example: (gdb) b make_ TAB GDB sounds bell; press TAB again, to see: make_a_section_from_file make_environ make_abs_section make_function_type make_blockvector make_pointer_type make_cleanup make_reference_type make_command make_symbol_completion_list (gdb) b make_ After displaying the available possibilities, GDB copies your partial input (`b make_' in the example) so you can finish the command. If you just want to see the list of alternatives in the first place, you can press `M-?' rather than pressing TAB twice. `M-?' means `META ?'. You can type this either by holding down a key designated as the META shift on your keyboard (if there is one) while typing `?', or as ESC followed by `?'. Sometimes the string you need, while logically a "word", may contain parentheses or other characters that GDB normally excludes from its notion of a word. To permit word completion to work in this situation, you may enclose words in `'' (single quote marks) in GDB commands. The most likely situation where you might need this is in typing the name of a C++ function. This is because C++ allows function overloading (multiple definitions of the same function, distinguished by argument type). For example, when you want to set a breakpoint you may need to distinguish whether you mean the version of `name' that takes an `int' parameter, `name(int)', or the version that takes a `float' parameter, `name(float)'. To use the word-completion facilities in this situation, type a single quote `'' at the beginning of the function name. This alerts GDB that it may need to consider more information than usual when you press TAB or `M-?' to request word completion: (gdb) b 'bubble( M-? bubble(double,double) bubble(int,int) (gdb) b 'bubble( In some cases, GDB can tell that completing a name requires using quotes. When this happens, GDB inserts the quote for you (while completing as much as it can) if you do not type the quote in the first place: (gdb) b bub TAB GDB alters your input line to the following, and rings a bell: (gdb) b 'bubble( In general, GDB can tell that a quote is needed (and inserts it) if you have not yet started typing the argument list when you ask for completion on an overloaded symbol.  File: gdb.info, Node: Help, Prev: Completion, Up: Commands Getting help ============ You can always ask GDB itself for information on its commands, using the command `help'. `help' `h' You can use `help' (abbreviated `h') with no arguments to display a short list of named classes of commands: (gdb) help List of classes of commands: running -- Running the program stack -- Examining the stack data -- Examining data breakpoints -- Making program stop at certain points files -- Specifying and examining files status -- Status inquiries support -- Support facilities user-defined -- User-defined commands aliases -- Aliases of other commands obscure -- Obscure features Type "help" followed by a class name for a list of commands in that class. Type "help" followed by command name for full documentation. Command name abbreviations are allowed if unambiguous. (gdb) `help CLASS' Using one of the general help classes as an argument, you can get a list of the individual commands in that class. For example, here is the help display for the class `status': (gdb) help status Status inquiries. List of commands: show -- Generic command for showing things set with "set" info -- Generic command for printing status Type "help" followed by command name for full documentation. Command name abbreviations are allowed if unambiguous. (gdb) `help COMMAND' With a command name as `help' argument, GDB displays a short paragraph on how to use that command. In addition to `help', you can use the GDB commands `info' and `show' to inquire about the state of your program, or the state of GDB itself. Each command supports many topics of inquiry; this manual introduces each of them in the appropriate context. The listings under `info' and under `show' in the Index point to all the sub-commands. *Note Index::. `info' This command (abbreviated `i') is for describing the state of your program. For example, you can list the arguments given to your program with `info args', list the registers currently in use with `info registers', or list the breakpoints you have set with `info breakpoints'. You can get a complete list of the `info' sub-commands with `help info'. `show' In contrast, `show' is for describing the state of GDB itself. You can change most of the things you can `show', by using the related command `set'; for example, you can control what number system is used for displays with `set radix', or simply inquire which is currently in use with `show radix'. To display all the settable parameters and their current values, you can use `show' with no arguments; you may also use `info set'. Both commands produce the same display. Here are three miscellaneous `show' subcommands, all of which are exceptional in lacking corresponding `set' commands: `show version' Show what version of GDB is running. You should include this information in GDB bug-reports. If multiple versions of GDB are in use at your site, you may occasionally want to determine which version of GDB you are running; as GDB evolves, new commands are introduced, and old ones may wither away. The version number is also announced when you start GDB. `show copying' Display information about permission for copying GDB. `show warranty' Display the GNU "NO WARRANTY" statement.  File: gdb.info, Node: Running, Next: Stopping, Prev: Commands, Up: Top Running Programs Under GDB ************************** When you run a program under GDB, you must first generate debugging information when you compile it. You may start it with its arguments, if any, in an environment of your choice. You may redirect your program's input and output, debug an already running process, or kill a child process. * Menu: * Compilation:: Compiling for debugging * Starting:: Starting your program * Arguments:: Your program's arguments * Environment:: Your program's environment * Working Directory:: Your program's working directory * Input/Output:: Your program's input and output * Attach:: Debugging an already-running process * Kill Process:: Killing the child process * Process Information:: Additional process information * Threads:: Debugging programs with multiple threads  File: gdb.info, Node: Compilation, Next: Starting, Up: Running Compiling for debugging ======================= In order to debug a program effectively, you need to generate debugging information when you compile it. This debugging information is stored in the object file; it describes the data type of each variable or function and the correspondence between source line numbers and addresses in the executable code. To request debugging information, specify the `-g' option when you run the compiler. Many C compilers are unable to handle the `-g' and `-O' options together. Using those compilers, you cannot generate optimized executables containing debugging information. GCC, the GNU C compiler, supports `-g' with or without `-O', making it possible to debug optimized code. We recommend that you *always* use `-g' whenever you compile a program. You may think your program is correct, but there is no sense in pushing your luck. When you debug a program compiled with `-g -O', remember that the optimizer is rearranging your code; the debugger shows you what is really there. Do not be too surprised when the execution path does not exactly match your source file! An extreme example: if you define a variable, but never use it, GDB never sees that variable--because the compiler optimizes it out of existence. Some things do not work as well with `-g -O' as with just `-g', particularly on machines with instruction scheduling. If in doubt, recompile with `-g' alone, and if this fixes the problem, please report it as a bug (including a test case!). Older versions of the GNU C compiler permitted a variant option `-gg' for debugging information. GDB no longer supports this format; if your GNU C compiler has this option, do not use it.  File: gdb.info, Node: Starting, Next: Arguments, Prev: Compilation, Up: Running Starting your program ===================== `run' `r' Use the `run' command to start your program under GDB. You must first specify the program name (except on VxWorks) with an argument to GDB (*note Getting In and Out of GDB: Invocation.), or by using the `file' or `exec-file' command (*note Commands to specify files: Files.). If you are running your program in an execution environment that supports processes, `run' creates an inferior process and makes that process run your program. (In environments without processes, `run' jumps to the start of your program.) The execution of a program is affected by certain information it receives from its superior. GDB provides ways to specify this information, which you must do *before* starting your program. (You can change it after starting your program, but such changes only affect your program the next time you start it.) This information may be divided into four categories: The *arguments.* Specify the arguments to give your program as the arguments of the `run' command. If a shell is available on your target, the shell is used to pass the arguments, so that you may use normal conventions (such as wildcard expansion or variable substitution) in describing the arguments. In Unix systems, you can control which shell is used with the `SHELL' environment variable. *Note Your program's arguments: Arguments. The *environment.* Your program normally inherits its environment from GDB, but you can use the GDB commands `set environment' and `unset environment' to change parts of the environment that affect your program. *Note Your program's environment: Environment. The *working directory.* Your program inherits its working directory from GDB. You can set the GDB working directory with the `cd' command in GDB. *Note Your program's working directory: Working Directory. The *standard input and output.* Your program normally uses the same device for standard input and standard output as GDB is using. You can redirect input and output in the `run' command line, or you can use the `tty' command to set a different device for your program. *Note Your program's input and output: Input/Output. *Warning:* While input and output redirection work, you cannot use pipes to pass the output of the program you are debugging to another program; if you attempt this, GDB is likely to wind up debugging the wrong program. When you issue the `run' command, your program begins to execute immediately. *Note Stopping and continuing: Stopping, for discussion of how to arrange for your program to stop. Once your program has stopped, you may call functions in your program, using the `print' or `call' commands. *Note Examining Data: Data. If the modification time of your symbol file has changed since the last time GDB read its symbols, GDB discards its symbol table, and reads it again. When it does this, GDB tries to retain your current breakpoints.  File: gdb.info, Node: Arguments, Next: Environment, Prev: Starting, Up: Running Your program's arguments ======================== The arguments to your program can be specified by the arguments of the `run' command. They are passed to a shell, which expands wildcard characters and performs redirection of I/O, and thence to your program. Your `SHELL' environment variable (if it exists) specifies what shell GDB uses. If you do not define `SHELL', GDB uses `/bin/sh'. `run' with no arguments uses the same arguments used by the previous `run', or those set by the `set args' command. `set args' Specify the arguments to be used the next time your program is run. If `set args' has no arguments, `run' executes your program with no arguments. Once you have run your program with arguments, using `set args' before the next `run' is the only way to run it again without arguments. `show args' Show the arguments to give your program when it is started.  File: gdb.info, Node: Environment, Next: Working Directory, Prev: Arguments, Up: Running Your program's environment ========================== The "environment" consists of a set of environment variables and their values. Environment variables conventionally record such things as your user name, your home directory, your terminal type, and your search path for programs to run. Usually you set up environment variables with the shell and they are inherited by all the other programs you run. When debugging, it can be useful to try running your program with a modified environment without having to start GDB over again. `path DIRECTORY' Add DIRECTORY to the front of the `PATH' environment variable (the search path for executables), for both GDB and your program. You may specify several directory names, separated by `:' or whitespace. If DIRECTORY is already in the path, it is moved to the front, so it is searched sooner. You can use the string `$cwd' to refer to whatever is the current working directory at the time GDB searches the path. If you use `.' instead, it refers to the directory where you executed the `path' command. GDB replaces `.' in the DIRECTORY argument (with the current path) before adding DIRECTORY to the search path. `show paths' Display the list of search paths for executables (the `PATH' environment variable). `show environment [VARNAME]' Print the value of environment variable VARNAME to be given to your program when it starts. If you do not supply VARNAME, print the names and values of all environment variables to be given to your program. You can abbreviate `environment' as `env'. `set environment VARNAME [=] VALUE' Set environment variable VARNAME to VALUE. The value changes for your program only, not for GDB itself. VALUE may be any string; the values of environment variables are just strings, and any interpretation is supplied by your program itself. The VALUE parameter is optional; if it is eliminated, the variable is set to a null value. For example, this command: set env USER = foo tells a Unix program, when subsequently run, that its user is named `foo'. (The spaces around `=' are used for clarity here; they are not actually required.) `unset environment VARNAME' Remove variable VARNAME from the environment to be passed to your program. This is different from `set env VARNAME ='; `unset environment' removes the variable from the environment, rather than assigning it an empty value. *Warning:* GDB runs your program using the shell indicated by your `SHELL' environment variable if it exists (or `/bin/sh' if not). If your `SHELL' variable names a shell that runs an initialization file--such as `.cshrc' for C-shell, or `.bashrc' for BASH--any variables you set in that file affect your program. You may wish to move setting of environment variables to files that are only run when you sign on, such as `.login' or `.profile'.  File: gdb.info, Node: Working Directory, Next: Input/Output, Prev: Environment, Up: Running Your program's working directory ================================ Each time you start your program with `run', it inherits its working directory from the current working directory of GDB. The GDB working directory is initially whatever it inherited from its parent process (typically the shell), but you can specify a new working directory in GDB with the `cd' command. The GDB working directory also serves as a default for the commands that specify files for GDB to operate on. *Note Commands to specify files: Files. `cd DIRECTORY' Set the GDB working directory to DIRECTORY. `pwd' Print the GDB working directory. gdb-4.13/gdb/gdb.info-2 666 34562 1752 140350 5623251656 13116 0ustar fnfcygnusThis is Info file ./gdb.info, produced by Makeinfo-1.52 from the input file gdb.texinfo. START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY This file documents the GNU debugger GDB. This is Edition 4.12, January 1994, of `Debugging with GDB: the GNU Source-Level Debugger' for GDB Version 4.13. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions.  File: gdb.info, Node: Input/Output, Next: Attach, Prev: Working Directory, Up: Running Your program's input and output =============================== By default, the program you run under GDB does input and output to the same terminal that GDB uses. GDB switches the terminal to its own terminal modes to interact with you, but it records the terminal modes your program was using and switches back to them when you continue running your program. `info terminal' Displays information recorded by GDB about the terminal modes your program is using. You can redirect your program's input and/or output using shell redirection with the `run' command. For example, run > outfile starts your program, diverting its output to the file `outfile'. Another way to specify where your program should do input and output is with the `tty' command. This command accepts a file name as argument, and causes this file to be the default for future `run' commands. It also resets the controlling terminal for the child process, for future `run' commands. For example, tty /dev/ttyb directs that processes started with subsequent `run' commands default to do input and output on the terminal `/dev/ttyb' and have that as their controlling terminal. An explicit redirection in `run' overrides the `tty' command's effect on the input/output device, but not its effect on the controlling terminal. When you use the `tty' command or redirect input in the `run' command, only the input *for your program* is affected. The input for GDB still comes from your terminal.  File: gdb.info, Node: Attach, Next: Kill Process, Prev: Input/Output, Up: Running Debugging an already-running process ==================================== `attach PROCESS-ID' This command attaches to a running process--one that was started outside GDB. (`info files' shows your active targets.) The command takes as argument a process ID. The usual way to find out the process-id of a Unix process is with the `ps' utility, or with the `jobs -l' shell command. `attach' does not repeat if you press RET a second time after executing the command. To use `attach', your program must be running in an environment which supports processes; for example, `attach' does not work for programs on bare-board targets that lack an operating system. You must also have permission to send the process a signal. When using `attach', you should first use the `file' command to specify the program running in the process and load its symbol table. *Note Commands to Specify Files: Files. The first thing GDB does after arranging to debug the specified process is to stop it. You can examine and modify an attached process with all the GDB commands that are ordinarily available when you start processes with `run'. You can insert breakpoints; you can step and continue; you can modify storage. If you would rather the process continue running, you may use the `continue' command after attaching GDB to the process. `detach' When you have finished debugging the attached process, you can use the `detach' command to release it from GDB control. Detaching the process continues its execution. After the `detach' command, that process and GDB become completely independent once more, and you are ready to `attach' another process or start one with `run'. `detach' does not repeat if you press RET again after executing the command. If you exit GDB or use the `run' command while you have an attached process, you kill that process. By default, GDB asks for confirmation if you try to do either of these things; you can control whether or not you need to confirm by using the `set confirm' command (*note Optional warnings and messages: Messages/Warnings.).  File: gdb.info, Node: Kill Process, Next: Process Information, Prev: Attach, Up: Running Killing the child process ========================= `kill' Kill the child process in which your program is running under GDB. This command is useful if you wish to debug a core dump instead of a running process. GDB ignores any core dump file while your program is running. On some operating systems, a program cannot be executed outside GDB while you have breakpoints set on it inside GDB. You can use the `kill' command in this situation to permit running your program outside the debugger. The `kill' command is also useful if you wish to recompile and relink your program, since on many systems it is impossible to modify an executable file while it is running in a process. In this case, when you next type `run', GDB notices that the file has changed, and reads the symbol table again (while trying to preserve your current breakpoint settings).  File: gdb.info, Node: Process Information, Next: Threads, Prev: Kill Process, Up: Running Additional process information ============================== Some operating systems provide a facility called `/proc' that can be used to examine the image of a running process using file-system subroutines. If GDB is configured for an operating system with this facility, the command `info proc' is available to report on several kinds of information about the process running your program. `info proc' Summarize available information about the process. `info proc mappings' Report on the address ranges accessible in the program, with information on whether your program may read, write, or execute each range. `info proc times' Starting time, user CPU time, and system CPU time for your program and its children. `info proc id' Report on the process IDs related to your program: its own process ID, the ID of its parent, the process group ID, and the session ID. `info proc status' General information on the state of the process. If the process is stopped, this report includes the reason for stopping, and any signal received. `info proc all' Show all the above information about the process.  File: gdb.info, Node: Threads, Prev: Process Information, Up: Running Debugging programs with multiple threads ======================================== In some operating systems, a single program may have more than one "thread" of execution. The precise semantics of threads differ from one operating system to another, but in general the threads of a single program are akin to multiple processes--except that they share one address space (that is, they can all examine and modify the same variables). On the other hand, each thread has its own registers and execution stack, and perhaps private memory. GDB provides these facilities for debugging multi-thread programs: * automatic notification of new threads * `thread THREADNO', a command to switch among threads * `info threads', a command to inquire about existing threads * thread-specific breakpoints *Warning:* These facilities are not yet available on every GDB configuration where the operating system supports threads. If your GDB does not support threads, these commands have no effect. For example, a system without thread support shows no output from `info threads', and always rejects the `thread' command, like this: (gdb) info threads (gdb) thread 1 Thread ID 1 not known. Use the "info threads" command to see the IDs of currently known threads. The GDB thread debugging facility allows you to observe all threads while your program runs--but whenever GDB takes control, one thread in particular is always the focus of debugging. This thread is called the "current thread". Debugging commands show program information from the perspective of the current thread. Whenever GDB detects a new thread in your program, it displays the target system's identification for the thread with a message in the form `[New SYSTAG]'. SYSTAG is a thread identifier whose form varies depending on the particular system. For example, on LynxOS, you might see [New process 35 thread 27] when GDB notices a new thread. In contrast, on an SGI system, the SYSTAG is simply something like `process 368', with no further qualifier. For debugging purposes, GDB associates its own thread number--always a single integer--with each thread in your program. `info threads' Display a summary of all threads currently in your program. GDB displays for each thread (in this order): 1. the thread number assigned by GDB 2. the target system's thread identifier (SYSTAG) 3. the current stack frame summary for that thread An asterisk `*' to the left of the GDB thread number indicates the current thread. For example, (gdb) info threads 3 process 35 thread 27 0x34e5 in sigpause () 2 process 35 thread 23 0x34e5 in sigpause () * 1 process 35 thread 13 main (argc=1, argv=0x7ffffff8) at threadtest.c:68 `thread THREADNO' Make thread number THREADNO the current thread. The command argument THREADNO is the internal GDB thread number, as shown in the first field of the `info threads' display. GDB responds by displaying the system identifier of the thread you selected, and its current stack frame summary: (gdb) thread 2 [Switching to process 35 thread 23] 0x34e5 in sigpause () As with the `[New ...]' message, the form of the text after `Switching to' depends on your system's conventions for identifying threads. Whenever GDB stops your program, due to a breakpoint or a signal, it automatically selects the thread where that breakpoint or signal happened. GDB alerts you to the context switch with a message of the form `[Switching to SYSTAG]' to identify the thread. *Note Stopping and starting multi-thread programs: Thread Stops, for more information about how GDB behaves when you stop and start programs with multiple threads. *Note Setting watchpoints: Set Watchpoints, for information about watchpoints in programs with multiple threads.  File: gdb.info, Node: Stopping, Next: Stack, Prev: Running, Up: Top Stopping and Continuing *********************** The principal purposes of using a debugger are so that you can stop your program before it terminates; or so that, if your program runs into trouble, you can investigate and find out why. Inside GDB, your program may stop for any of several reasons, such as a signal, a breakpoint, or reaching a new line after a GDB command such as `step'. You may then examine and change variables, set new breakpoints or remove old ones, and then continue execution. Usually, the messages shown by GDB provide ample explanation of the status of your program--but you can also explicitly request this information at any time. `info program' Display information about the status of your program: whether it is running or not, what process it is, and why it stopped. * Menu: * Breakpoints:: Breakpoints, watchpoints, and exceptions * Continuing and Stepping:: Resuming execution * Signals:: Signals * Thread Stops:: Stopping and starting multi-thread programs  File: gdb.info, Node: Breakpoints, Next: Continuing and Stepping, Up: Stopping Breakpoints, watchpoints, and exceptions ======================================== A "breakpoint" makes your program stop whenever a certain point in the program is reached. For each breakpoint, you can add conditions to control in finer detail whether your program stops. You can set breakpoints with the `break' command and its variants (*note Setting breakpoints: Set Breaks.), to specify the place where your program should stop by line number, function name or exact address in the program. In languages with exception handling (such as GNU C++), you can also set breakpoints where an exception is raised (*note Breakpoints and exceptions: Exception Handling.). A "watchpoint" is a special breakpoint that stops your program when the value of an expression changes. You must use a different command to set watchpoints (*note Setting watchpoints: Set Watchpoints.), but aside from that, you can manage a watchpoint like any other breakpoint: you enable, disable, and delete both breakpoints and watchpoints using the same commands. You can arrange to have values from your program displayed automatically whenever GDB stops at a breakpoint. *Note Automatic display: Auto Display. GDB assigns a number to each breakpoint or watchpoint when you create it; these numbers are successive integers starting with one. In many of the commands for controlling various features of breakpoints you use the breakpoint number to say which breakpoint you want to change. Each breakpoint may be "enabled" or "disabled"; if disabled, it has no effect on your program until you enable it again. * Menu: * Set Breaks:: Setting breakpoints * Set Watchpoints:: Setting watchpoints * Exception Handling:: Breakpoints and exceptions * Delete Breaks:: Deleting breakpoints * Disabling:: Disabling breakpoints * Conditions:: Break conditions * Break Commands:: Breakpoint command lists * Breakpoint Menus:: Breakpoint menus * Error in Breakpoints:: "Cannot insert breakpoints"  File: gdb.info, Node: Set Breaks, Next: Set Watchpoints, Up: Breakpoints Setting breakpoints ------------------- Breakpoints are set with the `break' command (abbreviated `b'). The debugger convenience variable `$bpnum' records the number of the beakpoint you've set most recently; see *Note Convenience variables: Convenience Vars, for a discussion of what you can do with convenience variables. You have several ways to say where the breakpoint should go. `break FUNCTION' Set a breakpoint at entry to function FUNCTION. When using source languages that permit overloading of symbols, such as C++, FUNCTION may refer to more than one possible place to break. *Note Breakpoint menus: Breakpoint Menus, for a discussion of that situation. `break +OFFSET' `break -OFFSET' Set a breakpoint some number of lines forward or back from the position at which execution stopped in the currently selected frame. `break LINENUM' Set a breakpoint at line LINENUM in the current source file. That file is the last file whose source text was printed. This breakpoint stops your program just before it executes any of the code on that line. `break FILENAME:LINENUM' Set a breakpoint at line LINENUM in source file FILENAME. `break FILENAME:FUNCTION' Set a breakpoint at entry to function FUNCTION found in file FILENAME. Specifying a file name as well as a function name is superfluous except when multiple files contain similarly named functions. `break *ADDRESS' Set a breakpoint at address ADDRESS. You can use this to set breakpoints in parts of your program which do not have debugging information or source files. `break' When called without any arguments, `break' sets a breakpoint at the next instruction to be executed in the selected stack frame (*note Examining the Stack: Stack.). In any selected frame but the innermost, this makes your program stop as soon as control returns to that frame. This is similar to the effect of a `finish' command in the frame inside the selected frame--except that `finish' does not leave an active breakpoint. If you use `break' without an argument in the innermost frame, GDB stops the next time it reaches the current location; this may be useful inside loops. GDB normally ignores breakpoints when it resumes execution, until at least one instruction has been executed. If it did not do this, you would be unable to proceed past a breakpoint without first disabling the breakpoint. This rule applies whether or not the breakpoint already existed when your program stopped. `break ... if COND' Set a breakpoint with condition COND; evaluate the expression COND each time the breakpoint is reached, and stop only if the value is nonzero--that is, if COND evaluates as true. `...' stands for one of the possible arguments described above (or no argument) specifying where to break. *Note Break conditions: Conditions, for more information on breakpoint conditions. `tbreak ARGS' Set a breakpoint enabled only for one stop. ARGS are the same as for the `break' command, and the breakpoint is set in the same way, but the breakpoint is automatically deleted after the first time your program stops there. *Note Disabling breakpoints: Disabling. `rbreak REGEX' Set breakpoints on all functions matching the regular expression REGEX. This command sets an unconditional breakpoint on all matches, printing a list of all breakpoints it set. Once these breakpoints are set, they are treated just like the breakpoints set with the `break' command. You can delete them, disable them, or make them conditional the same way as any other breakpoint. When debugging C++ programs, `rbreak' is useful for setting breakpoints on overloaded functions that are not members of any special classes. `info breakpoints [N]' `info break [N]' `info watchpoints [N]' Print a table of all breakpoints and watchpoints set and not deleted, with the following columns for each breakpoint: *Breakpoint Numbers* *Type* Breakpoint or watchpoint. *Disposition* Whether the breakpoint is marked to be disabled or deleted when hit. *Enabled or Disabled* Enabled breakpoints are marked with `y'. `n' marks breakpoints that are not enabled. *Address* Where the breakpoint is in your program, as a memory address *What* Where the breakpoint is in the source for your program, as a file and line number. If a breakpoint is conditional, `info break' shows the condition on the line following the affected breakpoint; breakpoint commands, if any, are listed after that. `info break' with a breakpoint number N as argument lists only that breakpoint. The convenience variable `$_' and the default examining-address for the `x' command are set to the address of the last breakpoint listed (*note Examining memory: Memory.). GDB allows you to set any number of breakpoints at the same place in your program. There is nothing silly or meaningless about this. When the breakpoints are conditional, this is even useful (*note Break conditions: Conditions.). GDB itself sometimes sets breakpoints in your program for special purposes, such as proper handling of `longjmp' (in C programs). These internal breakpoints are assigned negative numbers, starting with `-1'; `info breakpoints' does not display them. You can see these breakpoints with the GDB maintenance command `maint info breakpoints'. `maint info breakpoints' Using the same format as `info breakpoints', display both the breakpoints you've set explicitly, and those GDB is using for internal purposes. Internal breakpoints are shown with negative breakpoint numbers. The type column identifies what kind of breakpoint is shown: `breakpoint' Normal, explicitly set breakpoint. `watchpoint' Normal, explicitly set watchpoint. `longjmp' Internal breakpoint, used to handle correctly stepping through `longjmp' calls. `longjmp resume' Internal breakpoint at the target of a `longjmp'. `until' Temporary internal breakpoint used by the GDB `until' command. `finish' Temporary internal breakpoint used by the GDB `finish' command.  File: gdb.info, Node: Set Watchpoints, Next: Exception Handling, Prev: Set Breaks, Up: Breakpoints Setting watchpoints ------------------- You can use a watchpoint to stop execution whenever the value of an expression changes, without having to predict a particular place where this may happen. Watchpoints currently execute two orders of magnitude more slowly than other breakpoints, but this can be well worth it to catch errors where you have no clue what part of your program is the culprit. `watch EXPR' Set a watchpoint for an expression. `info watchpoints' This command prints a list of watchpoints and breakpoints; it is the same as `info break'. *Warning:* in multi-thread programs, watchpoints have only limited usefulness. With the current watchpoint implementation, GDB can only watch the value of an expression *in a single thread*. If you are confident that the expression can only change due to the current thread's activity (and if you are also confident that no other thread can become current), then you can use watchpoints as usual. However, GDB may not notice when a non-current thread's activity changes the expression.  File: gdb.info, Node: Exception Handling, Next: Delete Breaks, Prev: Set Watchpoints, Up: Breakpoints Breakpoints and exceptions -------------------------- Some languages, such as GNU C++, implement exception handling. You can use GDB to examine what caused your program to raise an exception, and to list the exceptions your program is prepared to handle at a given point in time. `catch EXCEPTIONS' You can set breakpoints at active exception handlers by using the `catch' command. EXCEPTIONS is a list of names of exceptions to catch. You can use `info catch' to list active exception handlers. *Note Information about a frame: Frame Info. There are currently some limitations to exception handling in GDB: * If you call a function interactively, GDB normally returns control to you when the function has finished executing. If the call raises an exception, however, the call may bypass the mechanism that returns control to you and cause your program to simply continue running until it hits a breakpoint, catches a signal that GDB is listening for, or exits. * You cannot raise an exception interactively. * You cannot install an exception handler interactively. Sometimes `catch' is not the best way to debug exception handling: if you need to know exactly where an exception is raised, it is better to stop *before* the exception handler is called, since that way you can see the stack before any unwinding takes place. If you set a breakpoint in an exception handler instead, it may not be easy to find out where the exception was raised. To stop just before an exception handler is called, you need some knowledge of the implementation. In the case of GNU C++, exceptions are raised by calling a library function named `__raise_exception' which has the following ANSI C interface: /* ADDR is where the exception identifier is stored. ID is the exception identifier. */ void __raise_exception (void **ADDR, void *ID); To make the debugger catch all exceptions before any stack unwinding takes place, set a breakpoint on `__raise_exception' (*note Breakpoints; watchpoints; and exceptions: Breakpoints.). With a conditional breakpoint (*note Break conditions: Conditions.) that depends on the value of ID, you can stop your program when a specific exception is raised. You can use multiple conditional breakpoints to stop your program when any of a number of exceptions are raised.  File: gdb.info, Node: Delete Breaks, Next: Disabling, Prev: Exception Handling, Up: Breakpoints Deleting breakpoints -------------------- It is often necessary to eliminate a breakpoint or watchpoint once it has done its job and you no longer want your program to stop there. This is called "deleting" the breakpoint. A breakpoint that has been deleted no longer exists; it is forgotten. With the `clear' command you can delete breakpoints according to where they are in your program. With the `delete' command you can delete individual breakpoints or watchpoints by specifying their breakpoint numbers. It is not necessary to delete a breakpoint to proceed past it. GDB automatically ignores breakpoints on the first instruction to be executed when you continue execution without changing the execution address. `clear' Delete any breakpoints at the next instruction to be executed in the selected stack frame (*note Selecting a frame: Selection.). When the innermost frame is selected, this is a good way to delete a breakpoint where your program just stopped. `clear FUNCTION' `clear FILENAME:FUNCTION' Delete any breakpoints set at entry to the function FUNCTION. `clear LINENUM' `clear FILENAME:LINENUM' Delete any breakpoints set at or within the code of the specified line. `delete [breakpoints] [BNUMS...]' Delete the breakpoints or watchpoints of the numbers specified as arguments. If no argument is specified, delete all breakpoints (GDB asks confirmation, unless you have `set confirm off'). You can abbreviate this command as `d'.  File: gdb.info, Node: Disabling, Next: Conditions, Prev: Delete Breaks, Up: Breakpoints Disabling breakpoints --------------------- Rather than deleting a breakpoint or watchpoint, you might prefer to "disable" it. This makes the breakpoint inoperative as if it had been deleted, but remembers the information on the breakpoint so that you can "enable" it again later. You disable and enable breakpoints and watchpoints with the `enable' and `disable' commands, optionally specifying one or more breakpoint numbers as arguments. Use `info break' or `info watch' to print a list of breakpoints or watchpoints if you do not know which numbers to use. A breakpoint or watchpoint can have any of four different states of enablement: * Enabled. The breakpoint stops your program. A breakpoint set with the `break' command starts out in this state. * Disabled. The breakpoint has no effect on your program. * Enabled once. The breakpoint stops your program, but then becomes disabled. A breakpoint set with the `tbreak' command starts out in this state. * Enabled for deletion. The breakpoint stops your program, but immediately after it does so it is deleted permanently. You can use the following commands to enable or disable breakpoints and watchpoints: `disable [breakpoints] [BNUMS...]' Disable the specified breakpoints--or all breakpoints, if none are listed. A disabled breakpoint has no effect but is not forgotten. All options such as ignore-counts, conditions and commands are remembered in case the breakpoint is enabled again later. You may abbreviate `disable' as `dis'. `enable [breakpoints] [BNUMS...]' Enable the specified breakpoints (or all defined breakpoints). They become effective once again in stopping your program. `enable [breakpoints] once BNUMS...' Enable the specified breakpoints temporarily. GDB disables any of these breakpoints immediately after stopping your program. `enable [breakpoints] delete BNUMS...' Enable the specified breakpoints to work once, then die. GDB deletes any of these breakpoints as soon as your program stops there. Save for a breakpoint set with `tbreak' (*note Setting breakpoints: Set Breaks.), breakpoints that you set are initially enabled; subsequently, they become disabled or enabled only when you use one of the commands above. (The command `until' can set and delete a breakpoint of its own, but it does not change the state of your other breakpoints; see *Note Continuing and stepping: Continuing and Stepping.)  File: gdb.info, Node: Conditions, Next: Break Commands, Prev: Disabling, Up: Breakpoints Break conditions ---------------- The simplest sort of breakpoint breaks every time your program reaches a specified place. You can also specify a "condition" for a breakpoint. A condition is just a Boolean expression in your programming language (*note Expressions: Expressions.). A breakpoint with a condition evaluates the expression each time your program reaches it, and your program stops only if the condition is *true*. This is the converse of using assertions for program validation; in that situation, you want to stop when the assertion is violated--that is, when the condition is false. In C, if you want to test an assertion expressed by the condition ASSERT, you should set the condition `! ASSERT' on the appropriate breakpoint. Conditions are also accepted for watchpoints; you may not need them, since a watchpoint is inspecting the value of an expression anyhow--but it might be simpler, say, to just set a watchpoint on a variable name, and specify a condition that tests whether the new value is an interesting one. Break conditions can have side effects, and may even call functions in your program. This can be useful, for example, to activate functions that log program progress, or to use your own print functions to format special data structures. The effects are completely predictable unless there is another enabled breakpoint at the same address. (In that case, GDB might see the other breakpoint first and stop your program without checking the condition of this one.) Note that breakpoint commands are usually more convenient and flexible for the purpose of performing side effects when a breakpoint is reached (*note Breakpoint command lists: Break Commands.). Break conditions can be specified when a breakpoint is set, by using `if' in the arguments to the `break' command. *Note Setting breakpoints: Set Breaks. They can also be changed at any time with the `condition' command. The `watch' command does not recognize the `if' keyword; `condition' is the only way to impose a further condition on a watchpoint. `condition BNUM EXPRESSION' Specify EXPRESSION as the break condition for breakpoint or watchpoint number BNUM. After you set a condition, breakpoint BNUM stops your program only if the value of EXPRESSION is true (nonzero, in C). When you use `condition', GDB checks EXPRESSION immediately for syntactic correctness, and to determine whether symbols in it have referents in the context of your breakpoint. G{No Value For "DBN"} does not actually evaluate EXPRESSION at the time the `condition' command is given, however. *Note Expressions: Expressions. `condition BNUM' Remove the condition from breakpoint number BNUM. It becomes an ordinary unconditional breakpoint. A special case of a breakpoint condition is to stop only when the breakpoint has been reached a certain number of times. This is so useful that there is a special way to do it, using the "ignore count" of the breakpoint. Every breakpoint has an ignore count, which is an integer. Most of the time, the ignore count is zero, and therefore has no effect. But if your program reaches a breakpoint whose ignore count is positive, then instead of stopping, it just decrements the ignore count by one and continues. As a result, if the ignore count value is N, the breakpoint does not stop the next N times your program reaches it. `ignore BNUM COUNT' Set the ignore count of breakpoint number BNUM to COUNT. The next COUNT times the breakpoint is reached, your program's execution does not stop; other than to decrement the ignore count, GDB takes no action. To make the breakpoint stop the next time it is reached, specify a count of zero. When you use `continue' to resume execution of your program from a breakpoint, you can specify an ignore count directly as an argument to `continue', rather than using `ignore'. *Note Continuing and stepping: Continuing and Stepping. If a breakpoint has a positive ignore count and a condition, the condition is not checked. Once the ignore count reaches zero, GDB resumes checking the condition. You could achieve the effect of the ignore count with a condition such as `$foo-- <= 0' using a debugger convenience variable that is decremented each time. *Note Convenience variables: Convenience Vars.  File: gdb.info, Node: Break Commands, Next: Breakpoint Menus, Prev: Conditions, Up: Breakpoints Breakpoint command lists ------------------------ You can give any breakpoint (or watchpoint) a series of commands to execute when your program stops due to that breakpoint. For example, you might want to print the values of certain expressions, or enable other breakpoints. `commands [BNUM]' `... COMMAND-LIST ...' `end' Specify a list of commands for breakpoint number BNUM. The commands themselves appear on the following lines. Type a line containing just `end' to terminate the commands. To remove all commands from a breakpoint, type `commands' and follow it immediately with `end'; that is, give no commands. With no BNUM argument, `commands' refers to the last breakpoint or watchpoint set (not to the breakpoint most recently encountered). Pressing RET as a means of repeating the last GDB command is disabled within a COMMAND-LIST. You can use breakpoint commands to start your program up again. Simply use the `continue' command, or `step', or any other command that resumes execution. Any other commands in the command list, after a command that resumes execution, are ignored. This is because any time you resume execution (even with a simple `next' or `step'), you may encounter another breakpoint--which could have its own command list, leading to ambiguities about which list to execute. If the first command you specify in a command list is `silent', the usual message about stopping at a breakpoint is not printed. This may be desirable for breakpoints that are to print a specific message and then continue. If none of the remaining commands print anything, you see no sign that the breakpoint was reached. `silent' is meaningful only at the beginning of a breakpoint command list. The commands `echo', `output', and `printf' allow you to print precisely controlled output, and are often useful in silent breakpoints. *Note Commands for controlled output: Output. For example, here is how you could use breakpoint commands to print the value of `x' at entry to `foo' whenever `x' is positive. break foo if x>0 commands silent printf "x is %d\n",x cont end One application for breakpoint commands is to compensate for one bug so you can test for another. Put a breakpoint just after the erroneous line of code, give it a condition to detect the case in which something erroneous has been done, and give it commands to assign correct values to any variables that need them. End with the `continue' command so that your program does not stop, and start with the `silent' command so that no output is produced. Here is an example: break 403 commands silent set x = y + 4 cont end  File: gdb.info, Node: Breakpoint Menus, Next: Error in Breakpoints, Prev: Break Commands, Up: Breakpoints Breakpoint menus ---------------- Some programming languages (notably C++) permit a single function name to be defined several times, for application in different contexts. This is called "overloading". When a function name is overloaded, `break FUNCTION' is not enough to tell GDB where you want a breakpoint. If you realize this is a problem, you can use something like `break FUNCTION(TYPES)' to specify which particular version of the function you want. Otherwise, GDB offers you a menu of numbered choices for different possible breakpoints, and waits for your selection with the prompt `>'. The first two options are always `[0] cancel' and `[1] all'. Typing `1' sets a breakpoint at each definition of FUNCTION, and typing `0' aborts the `break' command without setting any new breakpoints. For example, the following session excerpt shows an attempt to set a breakpoint at the overloaded symbol `String::after'. We choose three particular definitions of that function name: (gdb) b String::after [0] cancel [1] all [2] file:String.cc; line number:867 [3] file:String.cc; line number:860 [4] file:String.cc; line number:875 [5] file:String.cc; line number:853 [6] file:String.cc; line number:846 [7] file:String.cc; line number:735 > 2 4 6 Breakpoint 1 at 0xb26c: file String.cc, line 867. Breakpoint 2 at 0xb344: file String.cc, line 875. Breakpoint 3 at 0xafcc: file String.cc, line 846. Multiple breakpoints were set. Use the "delete" command to delete unwanted breakpoints. (gdb)  File: gdb.info, Node: Error in Breakpoints, Prev: Breakpoint Menus, Up: Breakpoints "Cannot insert breakpoints" --------------------------- Under some operating systems, breakpoints cannot be used in a program if any other process is running that program. In this situation, attempting to run or continue a program with a breakpoint causes GDB to stop the other process. When this happens, you have three ways to proceed: 1. Remove or disable the breakpoints, then continue. 2. Suspend GDB, and copy the file containing your program to a new name. Resume GDB and use the `exec-file' command to specify that GDB should run your program under that name. Then start your program again. 3. Relink your program so that the text segment is nonsharable, using the linker option `-N'. The operating system limitation may not apply to nonsharable executables.  File: gdb.info, Node: Continuing and Stepping, Next: Signals, Prev: Breakpoints, Up: Stopping Continuing and stepping ======================= "Continuing" means resuming program execution until your program completes normally. In contrast, "stepping" means executing just one more "step" of your program, where "step" may mean either one line of source code, or one machine instruction (depending on what particular command you use). Either when continuing or when stepping, your program may stop even sooner, due to a breakpoint or a signal. (If due to a signal, you may want to use `handle', or use `signal 0' to resume execution. *Note Signals: Signals.) `continue [IGNORE-COUNT]' `c [IGNORE-COUNT]' `fg [IGNORE-COUNT]' Resume program execution, at the address where your program last stopped; any breakpoints set at that address are bypassed. The optional argument IGNORE-COUNT allows you to specify a further number of times to ignore a breakpoint at this location; its effect is like that of `ignore' (*note Break conditions: Conditions.). The argument IGNORE-COUNT is meaningful only when your program stopped due to a breakpoint. At other times, the argument to `continue' is ignored. The synonyms `c' and `fg' are provided purely for convenience, and have exactly the same behavior as `continue'. To resume execution at a different place, you can use `return' (*note Returning from a function: Returning.) to go back to the calling function; or `jump' (*note Continuing at a different address: Jumping.) to go to an arbitrary location in your program. A typical technique for using stepping is to set a breakpoint (*note Breakpoints; watchpoints; and exceptions: Breakpoints.) at the beginning of the function or the section of your program where a problem is believed to lie, run your program until it stops at that breakpoint, and then step through the suspect area, examining the variables that are interesting, until you see the problem happen. `step' Continue running your program until control reaches a different source line, then stop it and return control to GDB. This command is abbreviated `s'. *Warning:* If you use the `step' command while control is within a function that was compiled without debugging information, execution proceeds until control reaches a function that does have debugging information. Likewise, it will not step into a function which is compiled without debugging information. To step through functions without debugging information, use the `stepi' command, described below. `step COUNT' Continue running as in `step', but do so COUNT times. If a breakpoint is reached, or a signal not related to stepping occurs before COUNT steps, stepping stops right away. `next [COUNT]' Continue to the next source line in the current (innermost) stack frame. Similar to `step', but any function calls appearing within the line of code are executed without stopping. Execution stops when control reaches a different line of code at the stack level which was executing when the `next' command was given. This command is abbreviated `n'. An argument COUNT is a repeat count, as for `step'. `next' within a function that lacks debugging information acts like `step', but any function calls appearing within the code of the function are executed without stopping. `finish' Continue running until just after function in the selected stack frame returns. Print the returned value (if any). Contrast this with the `return' command (*note Returning from a function: Returning.). `until' `u' Continue running until a source line past the current line, in the current stack frame, is reached. This command is used to avoid single stepping through a loop more than once. It is like the `next' command, except that when `until' encounters a jump, it automatically continues execution until the program counter is greater than the address of the jump. This means that when you reach the end of a loop after single stepping though it, `until' makes your program continue execution until it exits the loop. In contrast, a `next' command at the end of a loop simply steps back to the beginning of the loop, which forces you to step through the next iteration. `until' always stops your program if it attempts to exit the current stack frame. `until' may produce somewhat counterintuitive results if the order of machine code does not match the order of the source lines. For example, in the following excerpt from a debugging session, the `f' (`frame') command shows that execution is stopped at line `206'; yet when we use `until', we get to line `195': (gdb) f #0 main (argc=4, argv=0xf7fffae8) at m4.c:206 206 expand_input(); (gdb) until 195 for ( ; argc > 0; NEXTARG) { This happened because, for execution efficiency, the compiler had generated code for the loop closure test at the end, rather than the start, of the loop--even though the test in a C `for'-loop is written before the body of the loop. The `until' command appeared to step back to the beginning of the loop when it advanced to this expression; however, it has not really gone to an earlier statement--not in terms of the actual machine code. `until' with no argument works by means of single instruction stepping, and hence is slower than `until' with an argument. `until LOCATION' `u LOCATION' Continue running your program until either the specified location is reached, or the current stack frame returns. LOCATION is any of the forms of argument acceptable to `break' (*note Setting breakpoints: Set Breaks.). This form of the command uses breakpoints, and hence is quicker than `until' without an argument. `stepi' `si' Execute one machine instruction, then stop and return to the debugger. It is often useful to do `display/i $pc' when stepping by machine instructions. This makes GDB automatically display the next instruction to be executed, each time your program stops. *Note Automatic display: Auto Display. An argument is a repeat count, as in `step'. `nexti' `ni' Execute one machine instruction, but if it is a function call, proceed until the function returns. An argument is a repeat count, as in `next'.  File: gdb.info, Node: Signals, Next: Thread Stops, Prev: Continuing and Stepping, Up: Stopping Signals ======= A signal is an asynchronous event that can happen in a program. The operating system defines the possible kinds of signals, and gives each kind a name and a number. For example, in Unix `SIGINT' is the signal a program gets when you type an interrupt (often `C-c'); `SIGSEGV' is the signal a program gets from referencing a place in memory far away from all the areas in use; `SIGALRM' occurs when the alarm clock timer goes off (which happens only if your program has requested an alarm). Some signals, including `SIGALRM', are a normal part of the functioning of your program. Others, such as `SIGSEGV', indicate errors; these signals are "fatal" (kill your program immediately) if the program has not specified in advance some other way to handle the signal. `SIGINT' does not indicate an error in your program, but it is normally fatal so it can carry out the purpose of the interrupt: to kill the program. GDB has the ability to detect any occurrence of a signal in your program. You can tell GDB in advance what to do for each kind of signal. Normally, GDB is set up to ignore non-erroneous signals like `SIGALRM' (so as not to interfere with their role in the functioning of your program) but to stop your program immediately whenever an error signal happens. You can change these settings with the `handle' command. `info signals' Print a table of all the kinds of signals and how GDB has been told to handle each one. You can use this to see the signal numbers of all the defined types of signals. `handle SIGNAL KEYWORDS...' Change the way GDB handles signal SIGNAL. SIGNAL can be the number of a signal or its name (with or without the `SIG' at the beginning). The KEYWORDS say what change to make. The keywords allowed by the `handle' command can be abbreviated. Their full names are: `nostop' GDB should not stop your program when this signal happens. It may still print a message telling you that the signal has come in. `stop' GDB should stop your program when this signal happens. This implies the `print' keyword as well. `print' GDB should print a message when this signal happens. `noprint' GDB should not mention the occurrence of the signal at all. This implies the `nostop' keyword as well. `pass' GDB should allow your program to see this signal; your program can handle the signal, or else it may terminate if the signal is fatal and not handled. `nopass' GDB should not allow your program to see this signal. When a signal stops your program, the signal is not visible until you continue. Your program sees the signal then, if `pass' is in effect for the signal in question *at that time*. In other words, after GDB reports a signal, you can use the `handle' command with `pass' or `nopass' to control whether your program sees that signal when you continue. You can also use the `signal' command to prevent your program from seeing a signal, or cause it to see a signal it normally would not see, or to give it any signal at any time. For example, if your program stopped due to some sort of memory reference error, you might store correct values into the erroneous variables and continue, hoping to see more execution; but your program would probably terminate immediately as a result of the fatal signal once it saw the signal. To prevent this, you can continue with `signal 0'. *Note Giving your program a signal: Signaling. gdb-4.13/gdb/gdb.info-3 666 34562 1752 124104 5623251656 13116 0ustar fnfcygnusThis is Info file ./gdb.info, produced by Makeinfo-1.52 from the input file gdb.texinfo. START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY This file documents the GNU debugger GDB. This is Edition 4.12, January 1994, of `Debugging with GDB: the GNU Source-Level Debugger' for GDB Version 4.13. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions.  File: gdb.info, Node: Thread Stops, Prev: Signals, Up: Stopping Stopping and starting multi-thread programs =========================================== When your program has multiple threads (*note Debugging programs with multiple threads: Threads.), you can choose whether to set breakpoints on all threads, or on a particular thread. `break LINESPEC thread THREADNO' `break LINESPEC thread THREADNO if ...' Use the qualifier `thread THREADNO' with a breakpoint command to specify that you only want GDB to stop the program when a particular thread reaches this breakpoint. THREADNO is one of the numeric thread identifiers assigned by GDB, shown in the first column of the `info threads' display. If you do not specify `thread THREADNO' when you set a breakpoint, the breakpoint applies to *all* threads of your program. You can use the `thread' qualifier on conditional breakpoints as well; in this case, place `thread THREADNO' before the breakpoint condition, like this: (gdb) break frik.c:13 thread 28 if bartab > lim Whenever your program stops under GDB for any reason, *all* threads of execution stop, not just the current thread. This allows you to examine the overall state of the program, including switching between threads, without worrying that things may change underfoot. Conversely, whenever you restart the program, *all* threads start executing. *This is true even when single-stepping* with commands like `step' or `next'. In particular, GDB cannot single-step all threads in lockstep. Since thread scheduling is up to your debugging target's operating system (not controlled by GDB), other threads may execute more than one statement while the current thread completes a single step. Moreover, in general other threads stop in the middle of a statement, rather than at a clean statement boundary, when the program stops. You might even find your program stopped in another thread after continuing or even single-stepping. This happens whenever some other thread runs into a breakpoint, a signal, or an exception before the first thread completes whatever you requested.  File: gdb.info, Node: Stack, Next: Source, Prev: Stopping, Up: Top Examining the Stack ******************* When your program has stopped, the first thing you need to know is where it stopped and how it got there. Each time your program performs a function call, the information about where in your program the call was made from is saved in a block of data called a "stack frame". The frame also contains the arguments of the call and the local variables of the function that was called. All the stack frames are allocated in a region of memory called the "call stack". When your program stops, the GDB commands for examining the stack allow you to see all of this information. One of the stack frames is "selected" by GDB and many GDB commands refer implicitly to the selected frame. In particular, whenever you ask GDB for the value of a variable in your program, the value is found in the selected frame. There are special GDB commands to select whichever frame you are interested in. When your program stops, GDB automatically selects the currently executing frame and describes it briefly as the `frame' command does (*note Information about a frame: Frame Info.). * Menu: * Frames:: Stack frames * Backtrace:: Backtraces * Selection:: Selecting a frame * Frame Info:: Information on a frame * MIPS Stack:: MIPS machines and the function stack  File: gdb.info, Node: Frames, Next: Backtrace, Up: Stack Stack frames ============ The call stack is divided up into contiguous pieces called "stack frames", or "frames" for short; each frame is the data associated with one call to one function. The frame contains the arguments given to the function, the function's local variables, and the address at which the function is executing. When your program is started, the stack has only one frame, that of the function `main'. This is called the "initial" frame or the "outermost" frame. Each time a function is called, a new frame is made. Each time a function returns, the frame for that function invocation is eliminated. If a function is recursive, there can be many frames for the same function. The frame for the function in which execution is actually occurring is called the "innermost" frame. This is the most recently created of all the stack frames that still exist. Inside your program, stack frames are identified by their addresses. A stack frame consists of many bytes, each of which has its own address; each kind of computer has a convention for choosing one of those bytes whose address serves as the address of the frame. Usually this address is kept in a register called the "frame pointer register" while execution is going on in that frame. GDB assigns numbers to all existing stack frames, starting with zero for the innermost frame, one for the frame that called it, and so on upward. These numbers do not really exist in your program; they are assigned by GDB to give you a way of designating stack frames in GDB commands. Some compilers provide a way to compile functions so that they operate without stack frames. (For example, the `gcc' option `-fomit-frame-pointer' generates functions without a frame.) This is occasionally done with heavily used library functions to save the frame setup time. GDB has limited facilities for dealing with these function invocations. If the innermost function invocation has no stack frame, GDB nevertheless regards it as though it had a separate frame, which is numbered zero as usual, allowing correct tracing of the function call chain. However, GDB has no provision for frameless functions elsewhere in the stack.  File: gdb.info, Node: Backtrace, Next: Selection, Prev: Frames, Up: Stack Backtraces ========== A backtrace is a summary of how your program got where it is. It shows one line per frame, for many frames, starting with the currently executing frame (frame zero), followed by its caller (frame one), and on up the stack. `backtrace' `bt' Print a backtrace of the entire stack: one line per frame for all frames in the stack. You can stop the backtrace at any time by typing the system interrupt character, normally `C-c'. `backtrace N' `bt N' Similar, but print only the innermost N frames. `backtrace -N' `bt -N' Similar, but print only the outermost N frames. The names `where' and `info stack' (abbreviated `info s') are additional aliases for `backtrace'. Each line in the backtrace shows the frame number and the function name. The program counter value is also shown--unless you use `set print address off'. The backtrace also shows the source file name and line number, as well as the arguments to the function. The program counter value is omitted if it is at the beginning of the code for that line number. Here is an example of a backtrace. It was made with the command `bt 3', so it shows the innermost three frames. #0 m4_traceon (obs=0x24eb0, argc=1, argv=0x2b8c8) at builtin.c:993 #1 0x6e38 in expand_macro (sym=0x2b600) at macro.c:242 #2 0x6840 in expand_token (obs=0x0, t=177664, td=0xf7fffb08) at macro.c:71 (More stack frames follow...) The display for frame zero does not begin with a program counter value, indicating that your program has stopped at the beginning of the code for line `993' of `builtin.c'.  File: gdb.info, Node: Selection, Next: Frame Info, Prev: Backtrace, Up: Stack Selecting a frame ================= Most commands for examining the stack and other data in your program work on whichever stack frame is selected at the moment. Here are the commands for selecting a stack frame; all of them finish by printing a brief description of the stack frame just selected. `frame N' `f N' Select frame number N. Recall that frame zero is the innermost (currently executing) frame, frame one is the frame that called the innermost one, and so on. The highest-numbered frame is the one for `main'. `frame ADDR' `f ADDR' Select the frame at address ADDR. This is useful mainly if the chaining of stack frames has been damaged by a bug, making it impossible for GDB to assign numbers properly to all frames. In addition, this can be useful when your program has multiple stacks and switches between them. On the SPARC architecture, `frame' needs two addresses to select an arbitrary frame: a frame pointer and a stack pointer. On the MIPS and Alpha architecture, it needs two addresses: a stack pointer and a program counter. On the 29k architecture, it needs three addresses: a register stack pointer, a program counter, and a memory stack pointer. `up N' Move N frames up the stack. For positive numbers N, this advances toward the outermost frame, to higher frame numbers, to frames that have existed longer. N defaults to one. `down N' Move N frames down the stack. For positive numbers N, this advances toward the innermost frame, to lower frame numbers, to frames that were created more recently. N defaults to one. You may abbreviate `down' as `do'. All of these commands end by printing two lines of output describing the frame. The first line shows the frame number, the function name, the arguments, and the source file and line number of execution in that frame. The second line shows the text of that source line. For example: (gdb) up #1 0x22f0 in main (argc=1, argv=0xf7fffbf4, env=0xf7fffbfc) at env.c:10 10 read_input_file (argv[i]); After such a printout, the `list' command with no arguments prints ten lines centered on the point of execution in the frame. *Note Printing source lines: List. `up-silently N' `down-silently N' These two commands are variants of `up' and `down', respectively; they differ in that they do their work silently, without causing display of the new frame. They are intended primarily for use in GDB command scripts, where the output might be unnecessary and distracting.  File: gdb.info, Node: Frame Info, Next: MIPS Stack, Prev: Selection, Up: Stack Information about a frame ========================= There are several other commands to print information about the selected stack frame. `frame' `f' When used without any argument, this command does not change which frame is selected, but prints a brief description of the currently selected stack frame. It can be abbreviated `f'. With an argument, this command is used to select a stack frame. *Note Selecting a frame: Selection. `info frame' `info f' This command prints a verbose description of the selected stack frame, including the address of the frame, the addresses of the next frame down (called by this frame) and the next frame up (caller of this frame), the language that the source code corresponding to this frame was written in, the address of the frame's arguments, the program counter saved in it (the address of execution in the caller frame), and which registers were saved in the frame. The verbose description is useful when something has gone wrong that has made the stack format fail to fit the usual conventions. `info frame ADDR' `info f ADDR' Print a verbose description of the frame at address ADDR, without selecting that frame. The selected frame remains unchanged by this command. This requires the same kind of address (more than one for some architectures) that you specify in the `frame' command. *Note Selecting a frame: Selection. `info args' Print the arguments of the selected frame, each on a separate line. `info locals' Print the local variables of the selected frame, each on a separate line. These are all variables (declared either static or automatic) accessible at the point of execution of the selected frame. `info catch' Print a list of all the exception handlers that are active in the current stack frame at the current point of execution. To see other exception handlers, visit the associated frame (using the `up', `down', or `frame' commands); then type `info catch'. *Note Breakpoints and exceptions: Exception Handling.  File: gdb.info, Node: MIPS Stack, Prev: Frame Info, Up: Stack MIPS machines and the function stack ==================================== MIPS based computers use an unusual stack frame, which sometimes requires GDB to search backward in the object code to find the beginning of a function. To improve response time (especially for embedded applications, where GDB may be restricted to a slow serial line for this search) you may want to limit the size of this search, using one of these commands: `set heuristic-fence-post LIMIT' Restrict GDB to examining at most LIMIT bytes in its search for the beginning of a function. A value of `0' (the default) means there is no limit. `show heuristic-fence-post' Display the current limit. These commands are available *only* when GDB is configured for debugging programs on MIPS processors.  File: gdb.info, Node: Source, Next: Data, Prev: Stack, Up: Top Examining Source Files ********************** GDB can print parts of your program's source, since the debugging information recorded in the program tells GDB what source files were used to build it. When your program stops, GDB spontaneously prints the line where it stopped. Likewise, when you select a stack frame (*note Selecting a frame: Selection.), GDB prints the line where execution in that frame has stopped. You can print other portions of source files by explicit command. If you use GDB through its GNU Emacs interface, you may prefer to use Emacs facilities to view source; *note Using GDB under GNU Emacs: Emacs.. * Menu: * List:: Printing source lines * Search:: Searching source files * Source Path:: Specifying source directories * Machine Code:: Source and machine code  File: gdb.info, Node: List, Next: Search, Up: Source Printing source lines ===================== To print lines from a source file, use the `list' command (abbreviated `l'). There are several ways to specify what part of the file you want to print. Here are the forms of the `list' command most commonly used: `list LINENUM' Print lines centered around line number LINENUM in the current source file. `list FUNCTION' Print lines centered around the beginning of function FUNCTION. `list' Print more lines. If the last lines printed were printed with a `list' command, this prints lines following the last lines printed; however, if the last line printed was a solitary line printed as part of displaying a stack frame (*note Examining the Stack: Stack.), this prints lines centered around that line. `list -' Print lines just before the lines last printed. By default, GDB prints ten source lines with any of these forms of the `list' command. You can change this using `set listsize': `set listsize COUNT' Make the `list' command display COUNT source lines (unless the `list' argument explicitly specifies some other number). `show listsize' Display the number of lines that `list' prints. Repeating a `list' command with RET discards the argument, so it is equivalent to typing just `list'. This is more useful than listing the same lines again. An exception is made for an argument of `-'; that argument is preserved in repetition so that each repetition moves up in the source file. In general, the `list' command expects you to supply zero, one or two "linespecs". Linespecs specify source lines; there are several ways of writing them but the effect is always to specify some source line. Here is a complete description of the possible arguments for `list': `list LINESPEC' Print lines centered around the line specified by LINESPEC. `list FIRST,LAST' Print lines from FIRST to LAST. Both arguments are linespecs. `list ,LAST' Print lines ending with LAST. `list FIRST,' Print lines starting with FIRST. `list +' Print lines just after the lines last printed. `list -' Print lines just before the lines last printed. `list' As described in the preceding table. Here are the ways of specifying a single source line--all the kinds of linespec. `NUMBER' Specifies line NUMBER of the current source file. When a `list' command has two linespecs, this refers to the same source file as the first linespec. `+OFFSET' Specifies the line OFFSET lines after the last line printed. When used as the second linespec in a `list' command that has two, this specifies the line OFFSET lines down from the first linespec. `-OFFSET' Specifies the line OFFSET lines before the last line printed. `FILENAME:NUMBER' Specifies line NUMBER in the source file FILENAME. `FUNCTION' Specifies the line of the open-brace that begins the body of the function FUNCTION. `FILENAME:FUNCTION' Specifies the line of the open-brace that begins the body of the function FUNCTION in the file FILENAME. You only need the file name with a function name to avoid ambiguity when there are identically named functions in different source files. `*ADDRESS' Specifies the line containing the program address ADDRESS. ADDRESS may be any expression.  File: gdb.info, Node: Search, Next: Source Path, Prev: List, Up: Source Searching source files ====================== There are two commands for searching through the current source file for a regular expression. `forward-search REGEXP' `search REGEXP' The command `forward-search REGEXP' checks each line, starting with the one following the last line listed, for a match for REGEXP. It lists the line that is found. You can use synonym `search REGEXP' or abbreviate the command name as `fo'. `reverse-search REGEXP' The command `reverse-search REGEXP' checks each line, starting with the one before the last line listed and going backward, for a match for REGEXP. It lists the line that is found. You can abbreviate this command as `rev'.  File: gdb.info, Node: Source Path, Next: Machine Code, Prev: Search, Up: Source Specifying source directories ============================= Executable programs sometimes do not record the directories of the source files from which they were compiled, just the names. Even when they do, the directories could be moved between the compilation and your debugging session. GDB has a list of directories to search for source files; this is called the "source path". Each time GDB wants a source file, it tries all the directories in the list, in the order they are present in the list, until it finds a file with the desired name. Note that the executable search path is *not* used for this purpose. Neither is the current working directory, unless it happens to be in the source path. If GDB cannot find a source file in the source path, and the object program records a directory, GDB tries that directory too. If the source path is empty, and there is no record of the compilation directory, GDB looks in the current directory as a last resort. Whenever you reset or rearrange the source path, GDB clears out any information it has cached about where source files are found and where each line is in the file. When you start GDB, its source path is empty. To add other directories, use the `directory' command. `directory DIRNAME ...' Add directory DIRNAME to the front of the source path. Several directory names may be given to this command, separated by `:' or whitespace. You may specify a directory that is already in the source path; this moves it forward, so GDB searches it sooner. You can use the string `$cdir' to refer to the compilation directory (if one is recorded), and `$cwd' to refer to the current working directory. `$cwd' is not the same as `.'--the former tracks the current working directory as it changes during your GDB session, while the latter is immediately expanded to the current directory at the time you add an entry to the source path. `directory' Reset the source path to empty again. This requires confirmation. `show directories' Print the source path: show which directories it contains. If your source path is cluttered with directories that are no longer of interest, GDB may sometimes cause confusion by finding the wrong versions of source. You can correct the situation as follows: 1. Use `directory' with no argument to reset the source path to empty. 2. Use `directory' with suitable arguments to reinstall the directories you want in the source path. You can add all the directories in one command.  File: gdb.info, Node: Machine Code, Prev: Source Path, Up: Source Source and machine code ======================= You can use the command `info line' to map source lines to program addresses (and vice versa), and the command `disassemble' to display a range of addresses as machine instructions. `info line LINESPEC' Print the starting and ending addresses of the compiled code for source line LINESPEC. You can specify source lines in any of the ways understood by the `list' command (*note Printing source lines: List.). For example, we can use `info line' to discover the location of the object code for the first line of function `m4_changequote': (gdb) info line m4_changecom Line 895 of "builtin.c" starts at pc 0x634c and ends at 0x6350. We can also inquire (using `*ADDR' as the form for LINESPEC) what source line covers a particular address: (gdb) info line *0x63ff Line 926 of "builtin.c" starts at pc 0x63e4 and ends at 0x6404. After `info line', the default address for the `x' command is changed to the starting address of the line, so that `x/i' is sufficient to begin examining the machine code (*note Examining memory: Memory.). Also, this address is saved as the value of the convenience variable `$_' (*note Convenience variables: Convenience Vars.). `disassemble' This specialized command dumps a range of memory as machine instructions. The default memory range is the function surrounding the program counter of the selected frame. A single argument to this command is a program counter value; GDB dumps the function surrounding this value. Two arguments specify a range of addresses (first inclusive, second exclusive) to dump. We can use `disassemble' to inspect the object code range shown in the last `info line' example (the example shows SPARC machine instructions): (gdb) disas 0x63e4 0x6404 Dump of assembler code from 0x63e4 to 0x6404: 0x63e4 : ble 0x63f8 0x63e8 : sethi %hi(0x4c00), %o0 0x63ec : ld [%i1+4], %o0 0x63f0 : b 0x63fc 0x63f4 : ld [%o0+4], %o0 0x63f8 : or %o0, 0x1a4, %o0 0x63fc : call 0x9288 0x6400 : nop End of assembler dump.  File: gdb.info, Node: Data, Next: Languages, Prev: Source, Up: Top Examining Data ************** The usual way to examine data in your program is with the `print' command (abbreviated `p'), or its synonym `inspect'. It evaluates and prints the value of an expression of the language your program is written in (*note Using GDB with Different Languages: Languages.). `print EXP' `print /F EXP' EXP is an expression (in the source language). By default the value of EXP is printed in a format appropriate to its data type; you can choose a different format by specifying `/F', where F is a letter specifying the format; *note Output formats: Output Formats.. `print' `print /F' If you omit EXP, GDB displays the last value again (from the "value history"; *note Value history: Value History.). This allows you to conveniently inspect the same value in an alternative format. A more low-level way of examining data is with the `x' command. It examines data in memory at a specified address and prints it in a specified format. *Note Examining memory: Memory. If you are interested in information about types, or about how the fields of a struct or class are declared, use the `ptype EXP' command rather than `print'. *Note Examining the Symbol Table: Symbols. * Menu: * Expressions:: Expressions * Variables:: Program variables * Arrays:: Artificial arrays * Output Formats:: Output formats * Memory:: Examining memory * Auto Display:: Automatic display * Print Settings:: Print settings * Value History:: Value history * Convenience Vars:: Convenience variables * Registers:: Registers * Floating Point Hardware:: Floating point hardware  File: gdb.info, Node: Expressions, Next: Variables, Up: Data Expressions =========== `print' and many other GDB commands accept an expression and compute its value. Any kind of constant, variable or operator defined by the programming language you are using is valid in an expression in GDB. This includes conditional expressions, function calls, casts and string constants. It unfortunately does not include symbols defined by preprocessor `#define' commands. Because C is so widespread, most of the expressions shown in examples in this manual are in C. *Note Using GDB with Different Languages: Languages, for information on how to use expressions in other languages. In this section, we discuss operators that you can use in GDB expressions regardless of your programming language. Casts are supported in all languages, not just in C, because it is so useful to cast a number into a pointer so as to examine a structure at that address in memory. GDB supports these operators in addition to those of programming languages: `@' `@' is a binary operator for treating parts of memory as arrays. *Note Artificial arrays: Arrays, for more information. `::' `::' allows you to specify a variable in terms of the file or function where it is defined. *Note Program variables: Variables. `{TYPE} ADDR' Refers to an object of type TYPE stored at address ADDR in memory. ADDR may be any expression whose value is an integer or pointer (but parentheses are required around binary operators, just as in a cast). This construct is allowed regardless of what kind of data is normally supposed to reside at ADDR.  File: gdb.info, Node: Variables, Next: Arrays, Prev: Expressions, Up: Data Program variables ================= The most common kind of expression to use is the name of a variable in your program. Variables in expressions are understood in the selected stack frame (*note Selecting a frame: Selection.); they must either be global (or static) or be visible according to the scope rules of the programming language from the point of execution in that frame. This means that in the function foo (a) int a; { bar (a); { int b = test (); bar (b); } } you can examine and use the variable `a' whenever your program is executing within the function `foo', but you can only use or examine the variable `b' while your program is executing inside the block where `b' is declared. There is an exception: you can refer to a variable or function whose scope is a single source file even if the current execution point is not in this file. But it is possible to have more than one such variable or function with the same name (in different source files). If that happens, referring to that name has unpredictable effects. If you wish, you can specify a static variable in a particular function or file, using the colon-colon notation: FILE::VARIABLE FUNCTION::VARIABLE Here FILE or FUNCTION is the name of the context for the static VARIABLE. In the case of file names, you can use quotes to make sure GDB parses the file name as a single word--for example, to print a global value of `x' defined in `f2.c': (gdb) p 'f2.c'::x This use of `::' is very rarely in conflict with the very similar use of the same notation in C++. GDB also supports use of the C++ scope resolution operator in GDB expressions. *Warning:* Occasionally, a local variable may appear to have the wrong value at certain points in a function--just after entry to a new scope, and just before exit. You may see this problem when you are stepping by machine instructions. This is because on most machines, it takes more than one instruction to set up a stack frame (including local variable definitions); if you are stepping by machine instructions, variables may appear to have the wrong values until the stack frame is completely built. On exit, it usually also takes more than one machine instruction to destroy a stack frame; after you begin stepping through that group of instructions, local variable definitions may be gone.  File: gdb.info, Node: Arrays, Next: Output Formats, Prev: Variables, Up: Data Artificial arrays ================= It is often useful to print out several successive objects of the same type in memory; a section of an array, or an array of dynamically determined size for which only a pointer exists in the program. You can do this by referring to a contiguous span of memory as an "artificial array", using the binary operator `@'. The left operand of `@' should be the first element of the desired array, as an individual object. The right operand should be the desired length of the array. The result is an array value whose elements are all of the type of the left argument. The first element is actually the left argument; the second element comes from bytes of memory immediately following those that hold the first element, and so on. Here is an example. If a program says int *array = (int *) malloc (len * sizeof (int)); you can print the contents of `array' with p *array@len The left operand of `@' must reside in memory. Array values made with `@' in this way behave just like other arrays in terms of subscripting, and are coerced to pointers when used in expressions. Artificial arrays most often appear in expressions via the value history (*note Value history: Value History.), after printing one out. Sometimes the artificial array mechanism is not quite enough; in moderately complex data structures, the elements of interest may not actually be adjacent--for example, if you are interested in the values of pointers in an array. One useful work-around in this situation is to use a convenience variable (*note Convenience variables: Convenience Vars.) as a counter in an expression that prints the first interesting value, and then repeat that expression via RET. For instance, suppose you have an array `dtab' of pointers to structures, and you are interested in the values of a field `fv' in each structure. Here is an example of what you might type: set $i = 0 p dtab[$i++]->fv RET RET ...  File: gdb.info, Node: Output Formats, Next: Memory, Prev: Arrays, Up: Data Output formats ============== By default, GDB prints a value according to its data type. Sometimes this is not what you want. For example, you might want to print a number in hex, or a pointer in decimal. Or you might want to view data in memory at a certain address as a character string or as an instruction. To do these things, specify an "output format" when you print a value. The simplest use of output formats is to say how to print a value already computed. This is done by starting the arguments of the `print' command with a slash and a format letter. The format letters supported are: `x' Regard the bits of the value as an integer, and print the integer in hexadecimal. `d' Print as integer in signed decimal. `u' Print as integer in unsigned decimal. `o' Print as integer in octal. `t' Print as integer in binary. The letter `t' stands for "two". (1) `a' Print as an address, both absolute in hexadecimal and as an offset from the nearest preceding symbol. You can use this format used to discover where (in what function) an unknown address is located: (gdb) p/a 0x54320 $3 = 0x54320 <_initialize_vx+396> `c' Regard as an integer and print it as a character constant. `f' Regard the bits of the value as a floating point number and print using typical floating point syntax. For example, to print the program counter in hex (*note Registers::.), type p/x $pc Note that no space is required before the slash; this is because command names in GDB cannot contain a slash. To reprint the last value in the value history with a different format, you can use the `print' command with just a format and no expression. For example, `p/x' reprints the last value in hex. ---------- Footnotes ---------- (1) `b' cannot be used because these format letters are also used with the `x' command, where `b' stands for "byte"; *note Examining memory: Memory..  File: gdb.info, Node: Memory, Next: Auto Display, Prev: Output Formats, Up: Data Examining memory ================ You can use the command `x' (for "examine") to examine memory in any of several formats, independently of your program's data types. `x/NFU ADDR' `x ADDR' `x' Use the `x' command to examine memory. N, F, and U are all optional parameters that specify how much memory to display and how to format it; ADDR is an expression giving the address where you want to start displaying memory. If you use defaults for NFU, you need not type the slash `/'. Several commands set convenient defaults for ADDR. N, the repeat count The repeat count is a decimal integer; the default is 1. It specifies how much memory (counting by units U) to display. F, the display format The display format is one of the formats used by `print', or `s' (null-terminated string) or `i' (machine instruction). The default is `x' (hexadecimal) initially, or the format from the last time you used either `x' or `print'. U, the unit size The unit size is any of `b' Bytes. `h' Halfwords (two bytes). `w' Words (four bytes). This is the initial default. `g' Giant words (eight bytes). Each time you specify a unit size with `x', that size becomes the default unit the next time you use `x'. (For the `s' and `i' formats, the unit size is ignored and is normally not written.) ADDR, starting display address ADDR is the address where you want GDB to begin displaying memory. The expression need not have a pointer value (though it may); it is always interpreted as an integer address of a byte of memory. *Note Expressions: Expressions, for more information on expressions. The default for ADDR is usually just after the last address examined--but several other commands also set the default address: `info breakpoints' (to the address of the last breakpoint listed), `info line' (to the starting address of a line), and `print' (if you use it to display a value from memory). For example, `x/3uh 0x54320' is a request to display three halfwords (`h') of memory, formatted as unsigned decimal integers (`u'), starting at address `0x54320'. `x/4xw $sp' prints the four words (`w') of memory above the stack pointer (here, `$sp'; *note Registers::.) in hexadecimal (`x'). Since the letters indicating unit sizes are all distinct from the letters specifying output formats, you do not have to remember whether unit size or format comes first; either order works. The output specifications `4xw' and `4wx' mean exactly the same thing. (However, the count N must come first; `wx4' does not work.) Even though the unit size U is ignored for the formats `s' and `i', you might still want to use a count N; for example, `3i' specifies that you want to see three machine instructions, including any operands. The command `disassemble' gives an alternative way of inspecting machine instructions; *note Source and machine code: Machine Code.. All the defaults for the arguments to `x' are designed to make it easy to continue scanning memory with minimal specifications each time you use `x'. For example, after you have inspected three machine instructions with `x/3i ADDR', you can inspect the next seven with just `x/7'. If you use RET to repeat the `x' command, the repeat count N is used again; the other arguments default as for successive uses of `x'. The addresses and contents printed by the `x' command are not saved in the value history because there is often too much of them and they would get in the way. Instead, GDB makes these values available for subsequent use in expressions as values of the convenience variables `$_' and `$__'. After an `x' command, the last address examined is available for use in expressions in the convenience variable `$_'. The contents of that address, as examined, are available in the convenience variable `$__'. If the `x' command has a repeat count, the address and contents saved are from the last memory unit printed; this is not the same as the last address printed if several units were printed on the last line of output.  File: gdb.info, Node: Auto Display, Next: Print Settings, Prev: Memory, Up: Data Automatic display ================= If you find that you want to print the value of an expression frequently (to see how it changes), you might want to add it to the "automatic display list" so that GDB prints its value each time your program stops. Each expression added to the list is given a number to identify it; to remove an expression from the list, you specify that number. The automatic display looks like this: 2: foo = 38 3: bar[5] = (struct hack *) 0x3804 This display shows item numbers, expressions and their current values. As with displays you request manually using `x' or `print', you can specify the output format you prefer; in fact, `display' decides whether to use `print' or `x' depending on how elaborate your format specification is--it uses `x' if you specify a unit size, or one of the two formats (`i' and `s') that are only supported by `x'; otherwise it uses `print'. `display EXP' Add the expression EXP to the list of expressions to display each time your program stops. *Note Expressions: Expressions. `display' does not repeat if you press RET again after using it. `display/FMT EXP' For FMT specifying only a display format and not a size or count, add the expression EXP to the auto-display list but arrange to display it each time in the specified format FMT. *Note Output formats: Output Formats. `display/FMT ADDR' For FMT `i' or `s', or including a unit-size or a number of units, add the expression ADDR as a memory address to be examined each time your program stops. Examining means in effect doing `x/FMT ADDR'. *Note Examining memory: Memory. For example, `display/i $pc' can be helpful, to see the machine instruction about to be executed each time execution stops (`$pc' is a common name for the program counter; *note Registers::.). `undisplay DNUMS...' `delete display DNUMS...' Remove item numbers DNUMS from the list of expressions to display. `undisplay' does not repeat if you press RET after using it. (Otherwise you would just get the error `No display number ...'.) `disable display DNUMS...' Disable the display of item numbers DNUMS. A disabled display item is not printed automatically, but is not forgotten. It may be enabled again later. `enable display DNUMS...' Enable display of item numbers DNUMS. It becomes effective once again in auto display of its expression, until you specify otherwise. `display' Display the current values of the expressions on the list, just as is done when your program stops. `info display' Print the list of expressions previously set up to display automatically, each one with its item number, but without showing the values. This includes disabled expressions, which are marked as such. It also includes expressions which would not be displayed right now because they refer to automatic variables not currently available. If a display expression refers to local variables, then it does not make sense outside the lexical context for which it was set up. Such an expression is disabled when execution enters a context where one of its variables is not defined. For example, if you give the command `display last_char' while inside a function with an argument `last_char', GDB displays this argument while your program continues to stop inside that function. When it stops elsewhere--where there is no variable `last_char'--the display is disabled automatically. The next time your program stops where `last_char' is meaningful, you can enable the display expression once again. gdb-4.13/gdb/news-xdep.c 666 34562 1752 3043 5022640532 13345 0ustar fnfcygnus/* Low level interface to ptrace, for GDB when running under Unix. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef __GNUC__ /* Bad implement execle(3). It's depend for "/bin/cc". main() { printf("execle:\n"); execle(FILE, ARGS, envp); exit(1); } GCC: link a6,#0 pea LC5 ; call printf jbsr _printf ; ; (not popd stack) pea _envp ; call execle clrl sp@- pea LC4 pea LC4 pea LC4 pea LC3 pea LC6 jbsr _execle addw #32,sp ; delayed pop !! /bin/cc: link.l fp,#L23 movem.l #L24,(sp) pea L26 ; call printf jbsr _printf addq.l #4,sp ; <--- popd stack !! pea _envp ; call execle clr.l -(sp) pea L32 */ execle(name, args) char *name, *args; { register char **env = &args; while (*env++) ; execve(name, (char **)&args, (char **)*env); } #endif gdb-4.13/gdb/nindy-tdep.c 666 34562 1752 4545 5325227305 13523 0ustar fnfcygnus/* Target-machine dependent code for the NINDY monitor running on the Intel 960 Copyright (C) 1991 Free Software Foundation, Inc. Contributed by Intel Corporation. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Miscellaneous NINDY-dependent routines. Some replace macros normally defined in "tm.h". */ #include "defs.h" #include "symtab.h" #include "frame.h" /* 'start_frame' is a variable in the NINDY runtime startup routine that contains the frame pointer of the 'start' routine (the routine that calls 'main'). By reading its contents out of remote memory, we can tell where the frame chain ends: backtraces should halt before they display this frame. */ int nindy_frame_chain_valid (chain, curframe) unsigned int chain; FRAME curframe; { struct symbol *sym; struct minimal_symbol *msymbol; /* crtnindy.o is an assembler module that is assumed to be linked * first in an i80960 executable. It contains the true entry point; * it performs startup up initialization and then calls 'main'. * * 'sf' is the name of a variable in crtnindy.o that is set * during startup to the address of the first frame. * * 'a' is the address of that variable in 80960 memory. */ static char sf[] = "start_frame"; CORE_ADDR a; chain &= ~0x3f; /* Zero low 6 bits because previous frame pointers contain return status info in them. */ if ( chain == 0 ){ return 0; } sym = lookup_symbol(sf, 0, VAR_NAMESPACE, (int *)NULL, (struct symtab **)NULL); if ( sym != 0 ){ a = SYMBOL_VALUE (sym); } else { msymbol = lookup_minimal_symbol (sf, (struct objfile *) NULL); if (msymbol == NULL) return 0; a = SYMBOL_VALUE_ADDRESS (msymbol); } return ( chain != read_memory_integer(a,4) ); } gdb-4.13/gdb/nlmread.c 666 34562 1752 22336 5606462347 13121 0ustar fnfcygnus/* Read NLM (NetWare Loadable Module) format executable files for GDB. Copyright 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support (fnf@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include "bfd.h" #include "symtab.h" #include "symfile.h" #include "objfiles.h" #include "gdb-stabs.h" #include "buildsym.h" #include "stabsread.h" static void nlm_new_init PARAMS ((struct objfile *)); static void nlm_symfile_init PARAMS ((struct objfile *)); static void nlm_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int)); static void nlm_symfile_finish PARAMS ((struct objfile *)); static void nlm_symtab_read PARAMS ((bfd *, CORE_ADDR, struct objfile *)); static struct section_offsets * nlm_symfile_offsets PARAMS ((struct objfile *, CORE_ADDR)); static void record_minimal_symbol PARAMS ((char *, CORE_ADDR, enum minimal_symbol_type, struct objfile *)); /* Initialize anything that needs initializing when a completely new symbol file is specified (not just adding some symbols from another file, e.g. a shared library). We reinitialize buildsym, since gdb will be able to read stabs from an NLM file at some point in the near future. */ static void nlm_new_init (ignore) struct objfile *ignore; { stabsread_new_init (); buildsym_new_init (); } /* NLM specific initialization routine for reading symbols. It is passed a pointer to a struct sym_fns which contains, among other things, the BFD for the file whose symbols are being read, and a slot for a pointer to "private data" which we can fill with goodies. For now at least, we have nothing in particular to do, so this function is just a stub. */ static void nlm_symfile_init (ignore) struct objfile *ignore; { } static void record_minimal_symbol (name, address, ms_type, objfile) char *name; CORE_ADDR address; enum minimal_symbol_type ms_type; struct objfile *objfile; { name = obsavestring (name, strlen (name), &objfile -> symbol_obstack); prim_record_minimal_symbol (name, address, ms_type, objfile); } /* LOCAL FUNCTION nlm_symtab_read -- read the symbol table of an NLM file SYNOPSIS void nlm_symtab_read (bfd *abfd, CORE_ADDR addr, struct objfile *objfile) DESCRIPTION Given an open bfd, a base address to relocate symbols to, and a flag that specifies whether or not this bfd is for an executable or not (may be shared library for example), add all the global function and data symbols to the minimal symbol table. */ static void nlm_symtab_read (abfd, addr, objfile) bfd *abfd; CORE_ADDR addr; struct objfile *objfile; { long storage_needed; asymbol *sym; asymbol **symbol_table; long number_of_symbols; long i; struct cleanup *back_to; CORE_ADDR symaddr; enum minimal_symbol_type ms_type; storage_needed = bfd_get_symtab_upper_bound (abfd); if (storage_needed < 0) error ("Can't read symbols from %s: %s", bfd_get_filename (abfd), bfd_errmsg (bfd_get_error ())); if (storage_needed > 0) { symbol_table = (asymbol **) xmalloc (storage_needed); back_to = make_cleanup (free, symbol_table); number_of_symbols = bfd_canonicalize_symtab (abfd, symbol_table); if (number_of_symbols < 0) error ("Can't read symbols from %s: %s", bfd_get_filename (abfd), bfd_errmsg (bfd_get_error ())); for (i = 0; i < number_of_symbols; i++) { sym = symbol_table[i]; if (/*sym -> flags & BSF_GLOBAL*/ 1) { /* Bfd symbols are section relative. */ symaddr = sym -> value + sym -> section -> vma; /* Relocate all non-absolute symbols by base address. */ if (sym -> section != &bfd_abs_section) symaddr += addr; /* For non-absolute symbols, use the type of the section they are relative to, to intuit text/data. BFD provides no way of figuring this out for absolute symbols. */ if (sym -> section -> flags & SEC_CODE) ms_type = mst_text; else if (sym -> section -> flags & SEC_DATA) ms_type = mst_data; else ms_type = mst_unknown; record_minimal_symbol ((char *) sym -> name, symaddr, ms_type, objfile); } } do_cleanups (back_to); } } /* Scan and build partial symbols for a symbol file. We have been initialized by a call to nlm_symfile_init, which currently does nothing. SECTION_OFFSETS is a set of offsets to apply to relocate the symbols in each section. We simplify it down to a single offset for all symbols. FIXME. MAINLINE is true if we are reading the main symbol table (as opposed to a shared lib or dynamically loaded file). This function only does the minimum work necessary for letting the user "name" things symbolically; it does not read the entire symtab. Instead, it reads the external and static symbols and puts them in partial symbol tables. When more extensive information is requested of a file, the corresponding partial symbol table is mutated into a full fledged symbol table by going back and reading the symbols for real. Note that NLM files have two sets of information that is potentially useful for building gdb's minimal symbol table. The first is a list of the publically exported symbols, and is currently used to build bfd's canonical symbol table. The second is an optional native debugging format which contains additional symbols (and possibly duplicates of the publically exported symbols). The optional native debugging format is not currently used. */ static void nlm_symfile_read (objfile, section_offsets, mainline) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; { bfd *abfd = objfile -> obfd; struct cleanup *back_to; CORE_ADDR offset; struct symbol *mainsym; init_minimal_symbol_collection (); back_to = make_cleanup (discard_minimal_symbols, 0); /* FIXME, should take a section_offsets param, not just an offset. */ offset = ANOFFSET (section_offsets, 0); /* Process the NLM export records, which become the bfd's canonical symbol table. */ nlm_symtab_read (abfd, offset, objfile); stabsect_build_psymtabs (objfile, section_offsets, mainline, ".stab", ".stabstr", ".text"); mainsym = lookup_symbol ("main", NULL, VAR_NAMESPACE, NULL, NULL); if (mainsym && SYMBOL_CLASS(mainsym) == LOC_BLOCK) { objfile->ei.main_func_lowpc = BLOCK_START (SYMBOL_BLOCK_VALUE (mainsym)); objfile->ei.main_func_highpc = BLOCK_END (SYMBOL_BLOCK_VALUE (mainsym)); } /* FIXME: We could locate and read the optional native debugging format here and add the symbols to the minimal symbol table. */ /* Install any minimal symbols that have been collected as the current minimal symbols for this objfile. */ install_minimal_symbols (objfile); do_cleanups (back_to); } /* Perform any local cleanups required when we are done with a particular objfile. I.E, we are in the process of discarding all symbol information for an objfile, freeing up all memory held for it, and unlinking the objfile struct from the global list of known objfiles. */ static void nlm_symfile_finish (objfile) struct objfile *objfile; { if (objfile -> sym_private != NULL) { mfree (objfile -> md, objfile -> sym_private); } } /* NLM specific parsing routine for section offsets. FIXME: This may or may not be necessary. All the symbol readers seem to have similar code. See if it can be generalized and moved elsewhere. */ static struct section_offsets * nlm_symfile_offsets (objfile, addr) struct objfile *objfile; CORE_ADDR addr; { struct section_offsets *section_offsets; int i; objfile->num_sections = SECT_OFF_MAX; section_offsets = (struct section_offsets *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct section_offsets) + sizeof (section_offsets->offsets) * (SECT_OFF_MAX-1)); for (i = 0; i < SECT_OFF_MAX; i++) { ANOFFSET (section_offsets, i) = addr; } return (section_offsets); } /* Register that we are able to handle NLM file format. */ static struct sym_fns nlm_sym_fns = { bfd_target_nlm_flavour, nlm_new_init, /* sym_new_init: init anything gbl to entire symtab */ nlm_symfile_init, /* sym_init: read initial info, setup for sym_read() */ nlm_symfile_read, /* sym_read: read a symbol file into symtab */ nlm_symfile_finish, /* sym_finish: finished with file, cleanup */ nlm_symfile_offsets, /* sym_offsets: Translate ext. to int. relocation */ NULL /* next: pointer to next struct sym_fns */ }; void _initialize_nlmread () { add_symtab_fns (&nlm_sym_fns); } gdb-4.13/gdb/ns32k-opcode.h 666 34562 1752 26326 5043302316 13676 0ustar fnfcygnus/* ns32k-opcode.h */ #ifndef ns32k_opcodeT #define ns32k_opcodeT int #endif /* no ns32k_opcodeT */ struct not_wot /* ns32k opcode table: wot to do with this */ /* particular opcode */ { int obits; /* number of opcode bits */ int ibits; /* number of instruction bits */ ns32k_opcodeT code; /* op-code (may be > 8 bits!) */ char *args; /* how to compile said opcode */ }; struct not /* ns32k opcode text */ { char * name; /* opcode name: lowercase string [key] */ struct not_wot detail; /* rest of opcode table [datum] */ }; /* Instructions look like this: basic instruction--1, 2, or 3 bytes index byte for operand A, if operand A is indexed--1 byte index byte for operand B, if operand B is indexed--1 byte addressing extension for operand A addressing extension for operand B implied operands Operand A is the operand listed first in the following opcode table. Operand B is the operand listed second in the following opcode table. All instructions have at most 2 general operands, so this is enough. The implied operands are associated with operands other than A and B. Each operand has a digit and a letter. The digit gives the position in the assembly language. The letter, one of the following, tells us what kind of operand it is. */ /* F : 32 bit float * L : 64 bit float * B : byte * W : word * D : double-word * Q : quad-word * d : displacement * q : quick * i : immediate (8 bits) * r : register number (3 bits) * p : displacement - pc relative addressing */ static struct not notstrs[] = { { "absf", 14,24, 0x35be, "1F2F" }, { "absl", 14,24, 0x34be, "1L2L" }, { "absb", 14,24, 0x304e, "1B2B" }, { "absw", 14,24, 0x314e, "1W2W" }, { "absd", 14,24, 0x334e, "1D2D" }, { "acbb", 7,16, 0x4c, "2B1q3p" }, { "acbw", 7,16, 0x4d, "2W1q3p" }, { "acbd", 7,16, 0x4f, "2D1q3p" }, { "addf", 14,24, 0x01be, "1F2F" }, { "addl", 14,24, 0x00be, "1L2L" }, { "addb", 6,16, 0x00, "1B2B" }, { "addw", 6,16, 0x01, "1W2W" }, { "addd", 6,16, 0x03, "1D2D" }, { "addcb", 6,16, 0x10, "1B2B" }, { "addcw", 6,16, 0x11, "1W2W" }, { "addcd", 6,16, 0x13, "1D2D" }, { "addpb", 14,24, 0x3c4e, "1B2B" }, { "addpw", 14,24, 0x3d4e, "1W2W" }, { "addpd", 14,24, 0x3f4e, "1D2D" }, { "addqb", 7,16, 0x0c, "2B1q" }, { "addqw", 7,16, 0x0d, "2W1q" }, { "addqd", 7,16, 0x0f, "2D1q" }, { "addr", 6,16, 0x27, "1D2D" }, { "adjspb", 11,16, 0x057c, "1B" }, { "adjspw", 11,16, 0x057d, "1W" }, { "adjspd", 11,16, 0x057f, "1D" }, { "andb", 6,16, 0x28, "1B2B" }, { "andw", 6,16, 0x29, "1W2W" }, { "andd", 6,16, 0x2b, "1D2D" }, { "ashb", 14,24, 0x044e, "1B2B" }, { "ashw", 14,24, 0x054e, "1B2W" }, { "ashd", 14,24, 0x074e, "1B2D" }, { "beq", 8,8, 0x0a, "1p" }, { "bne", 8,8, 0x1a, "1p" }, { "bcs", 8,8, 0x2a, "1p" }, { "bcc", 8,8, 0x3a, "1p" }, { "bhi", 8,8, 0x4a, "1p" }, { "bls", 8,8, 0x5a, "1p" }, { "bgt", 8,8, 0x6a, "1p" }, { "ble", 8,8, 0x7a, "1p" }, { "bfs", 8,8, 0x8a, "1p" }, { "bfc", 8,8, 0x9a, "1p" }, { "blo", 8,8, 0xaa, "1p" }, { "bhs", 8,8, 0xba, "1p" }, { "blt", 8,8, 0xca, "1p" }, { "bge", 8,8, 0xda, "1p" }, { "bicb", 6,16, 0x08, "1B2B" }, { "bicw", 6,16, 0x09, "1W2W" }, { "bicd", 6,16, 0x0b, "1D2D" }, { "bicpsrb", 11,16, 0x17c, "1B" }, { "bicpsrw", 11,16, 0x17d, "1W" }, { "bispsrb", 11,16, 0x37c, "1B" }, { "bispsrw", 11,16, 0x37d, "1W" }, { "bpt", 8,8, 0xf2, "" }, { "br", 8,8, 0xea, "1p" }, { "bsr", 8,8, 0x02, "1p" }, { "caseb", 11,16, 0x77c, "1B" }, { "casew", 11,16, 0x77d, "1W" }, { "cased", 11,16, 0x77f, "1D" }, { "cbitb", 14,24, 0x084e, "1B2D" }, { "cbitw", 14,24, 0x094e, "1W2D" }, { "cbitd", 14,24, 0x0b4e, "1D2D" }, { "cbitib", 14,24, 0x0c4e, "1B2D" }, { "cbitiw", 14,24, 0x0d4e, "1W2D" }, { "cbitid", 14,24, 0x0f4e, "1D2D" }, { "checkb", 11,24, 0x0ee, "2A3B1r" }, { "checkw", 11,24, 0x1ee, "2A3B1r" }, { "checkd", 11,24, 0x3ee, "2A3D1r" }, { "cmpf", 14,24, 0x09be, "1F2F" }, { "cmpl", 14,24, 0x08be, "1L2L" }, { "cmpb", 6,16, 0x04, "1B2B" }, { "cmpw", 6,16, 0x05, "1W2W" }, { "cmpd", 6,16, 0x07, "1D2D" }, { "cmpmb", 14,24, 0x04ce, "1D2D3d" }, { "cmpmw", 14,24, 0x05ce, "1D2D3d" }, { "cmpmd", 14,24, 0x07ce, "1D2D3d" }, { "cmpqb", 7,16, 0x1c, "2B1q" }, { "cmpqw", 7,16, 0x1d, "2W1q" }, { "cmpqd", 7,16, 0x1f, "2D1q" }, { "cmpsb", 16,16, 0x040e, "1i" }, { "cmpsw", 16,16, 0x050e, "1i" }, { "cmpsd", 16,16, 0x070e, "1i" }, { "cmpst", 16,16, 0x840e, "1i" }, { "comb", 14,24, 0x344e, "1B2B" }, { "comw", 14,24, 0x354e, "1W2W" }, { "comd", 14,24, 0x374e, "1D2D" }, { "cvtp", 11,24, 0x036e, "2D3D1r" }, { "cxp", 8,8, 0x22, "1p" }, { "cxpd", 11,16, 0x07f, "1D" }, { "deib", 14,24, 0x2cce, "1B2W" }, { "deiw", 14,24, 0x2dce, "1W2D" }, { "deid", 14,24, 0x2fce, "1D2Q" }, { "dia", 8,8, 0xc2, "" }, { "divf", 14,24, 0x21be, "1F2F" }, { "divl", 14,24, 0x20be, "1L2L" }, { "divb", 14,24, 0x3cce, "1B2B" }, { "divw", 14,24, 0x3dce, "1W2W" }, { "divd", 14,24, 0x3fce, "1D2D" }, { "enter", 8,8, 0x82, "1i2d" }, { "exit", 8,8, 0x92, "1i" }, { "extb", 11,24, 0x02e, "2D3B1r4d" }, { "extw", 11,24, 0x12e, "2D3W1r4d" }, { "extd", 11,24, 0x32e, "2D3D1r4d" }, { "extsb", 14,24, 0x0cce, "1D2B3i" }, { "extsw", 14,24, 0x0dce, "1D2W3i" }, { "extsd", 14,24, 0x0fce, "1D2D3i" }, { "ffsb", 14,24, 0x046e, "1B2B" }, { "ffsw", 14,24, 0x056e, "1W2B" }, { "ffsd", 14,24, 0x076e, "1D2B" }, { "flag", 8,8, 0xd2, "" }, { "floorfb", 14,24, 0x3c3e, "1F2B" }, { "floorfw", 14,24, 0x3d3e, "1F2W" }, { "floorfd", 14,24, 0x3f3e, "1F2D" }, { "floorlb", 14,24, 0x383e, "1L2B" }, { "floorlw", 14,24, 0x393e, "1L2W" }, { "floorld", 14,24, 0x3b3e, "1L2D" }, { "ibitb", 14,24, 0x384e, "1B2D" }, { "ibitw", 14,24, 0x394e, "1W2D" }, { "ibitd", 14,24, 0x3b4e, "1D2D" }, { "indexb", 11,24, 0x42e, "2B3B1r" }, { "indexw", 11,24, 0x52e, "2W3W1r" }, { "indexd", 11,24, 0x72e, "2D3D1r" }, { "insb", 11,24, 0x0ae, "2B3B1r4d" }, { "insw", 11,24, 0x1ae, "2W3W1r4d" }, { "insd", 11,24, 0x3ae, "2D3D1r4d" }, { "inssb", 14,24, 0x08ce, "1B2D3i" }, { "inssw", 14,24, 0x09ce, "1W2D3i" }, { "inssd", 14,24, 0x0bce, "1D2D3i" }, { "jsr", 11,16, 0x67f, "1A" }, { "jump", 11,16, 0x27f, "1A" }, { "lfsr", 19,24, 0x00f3e,"1D" }, { "lmr", 15,24, 0x0b1e, "2D1q" }, { "lprb", 7,16, 0x6c, "2B1q" }, { "lprw", 7,16, 0x6d, "2W1q" }, { "lprd", 7,16, 0x6f, "2D1q" }, { "lshb", 14,24, 0x144e, "1B2B" }, { "lshw", 14,24, 0x154e, "1B2W" }, { "lshd", 14,24, 0x174e, "1B2D" }, { "meib", 14,24, 0x24ce, "1B2W" }, { "meiw", 14,24, 0x25ce, "1W2D" }, { "meid", 14,24, 0x27ce, "1D2Q" }, { "modb", 14,24, 0x38ce, "1B2B" }, { "modw", 14,24, 0x39ce, "1W2W" }, { "modd", 14,24, 0x3bce, "1D2D" }, { "movf", 14,24, 0x05be, "1F2F" }, { "movl", 14,24, 0x04be, "1L2L" }, { "movb", 6,16, 0x14, "1B2B" }, { "movw", 6,16, 0x15, "1W2W" }, { "movd", 6,16, 0x17, "1D2D" }, { "movbf", 14,24, 0x043e, "1B2F" }, { "movwf", 14,24, 0x053e, "1W2F" }, { "movdf", 14,24, 0x073e, "1D2F" }, { "movbl", 14,24, 0x003e, "1B2L" }, { "movwl", 14,24, 0x013e, "1W2L" }, { "movdl", 14,24, 0x033e, "1D2L" }, { "movfl", 14,24, 0x1b3e, "1F2L" }, { "movlf", 14,24, 0x163e, "1L2F" }, { "movmb", 14,24, 0x00ce, "1D2D3d" }, { "movmw", 14,24, 0x01ce, "1D2D3d" }, { "movmd", 14,24, 0x03ce, "1D2D3d" }, { "movqb", 7,16, 0x5c, "2B1q" }, { "movqw", 7,16, 0x5d, "2B1q" }, { "movqd", 7,16, 0x5f, "2B1q" }, { "movsb", 16,16, 0x000e, "1i" }, { "movsw", 16,16, 0x010e, "1i" }, { "movsd", 16,16, 0x030e, "1i" }, { "movst", 16,16, 0x800e, "1i" }, { "movsub", 14,24, 0x0cae, "1A1A" }, { "movsuw", 14,24, 0x0dae, "1A1A" }, { "movsud", 14,24, 0x0fae, "1A1A" }, { "movusb", 14,24, 0x1cae, "1A1A" }, { "movusw", 14,24, 0x1dae, "1A1A" }, { "movusd", 14,24, 0x1fae, "1A1A" }, { "movxbd", 14,24, 0x1cce, "1B2D" }, { "movxwd", 14,24, 0x1dce, "1W2D" }, { "movxbw", 14,24, 0x10ce, "1B2W" }, { "movzbd", 14,24, 0x18ce, "1B2D" }, { "movzwd", 14,24, 0x19ce, "1W2D" }, { "movzbw", 14,24, 0x14ce, "1B2W" }, { "mulf", 14,24, 0x31be, "1F2F" }, { "mull", 14,24, 0x30be, "1L2L" }, { "mulb", 14,24, 0x20ce, "1B2B" }, { "mulw", 14,24, 0x21ce, "1W2W" }, { "muld", 14,24, 0x23ce, "1D2D" }, { "negf", 14,24, 0x15be, "1F2F" }, { "negl", 14,24, 0x14be, "1L2L" }, { "negb", 14,24, 0x204e, "1B2B" }, { "negw", 14,24, 0x214e, "1W2W" }, { "negd", 14,24, 0x234e, "1D2D" }, { "nop", 8,8, 0xa2, "" }, { "notb", 14,24, 0x244e, "1B2B" }, { "notw", 14,24, 0x254e, "1W2W" }, { "notd", 14,24, 0x274e, "1D2D" }, { "orb", 6,16, 0x18, "1B1B" }, { "orw", 6,16, 0x19, "1W1W" }, { "ord", 6,16, 0x1b, "1D2D" }, { "quob", 14,24, 0x30ce, "1B2B" }, { "quow", 14,24, 0x31ce, "1W2W" }, { "quod", 14,24, 0x33ce, "1D2D" }, { "rdval", 19,24, 0x0031e,"1A" }, { "remb", 14,24, 0x34ce, "1B2B" }, { "remw", 14,24, 0x35ce, "1W2W" }, { "remd", 14,24, 0x37ce, "1D2D" }, { "restore", 8,8, 0x72, "1i" }, { "ret", 8,8, 0x12, "1d" }, { "reti", 8,8, 0x52, "" }, { "rett", 8,8, 0x42, "" }, { "rotb", 14,24, 0x004e, "1B2B" }, { "rotw", 14,24, 0x014e, "1B2W" }, { "rotd", 14,24, 0x034e, "1B2D" }, { "roundfb", 14,24, 0x243e, "1F2B" }, { "roundfw", 14,24, 0x253e, "1F2W" }, { "roundfd", 14,24, 0x273e, "1F2D" }, { "roundlb", 14,24, 0x203e, "1L2B" }, { "roundlw", 14,24, 0x213e, "1L2W" }, { "roundld", 14,24, 0x233e, "1L2D" }, { "rxp", 8,8, 0x32, "1d" }, { "sCONDb", 7,16, 0x3c, "2B1q" }, { "sCONDw", 7,16, 0x3d, "2D1q" }, { "sCONDd", 7,16, 0x3f, "2D1q" }, { "save", 8,8, 0x62, "1i" }, { "sbitb", 14,24, 0x184e, "1B2A" }, { "sbitw", 14,24, 0x194e, "1W2A" }, { "sbitd", 14,24, 0x1b4e, "1D2A" }, { "sbitib", 14,24, 0x1c4e, "1B2A" }, { "sbitiw", 14,24, 0x1d4e, "1W2A" }, { "sbitid", 14,24, 0x1f4e, "1D2A" }, { "setcfg", 15,24, 0x0b0e, "5D1q" }, { "sfsr", 14,24, 0x373e, "5D1D" }, { "skpsb", 16,16, 0x0c0e, "1i" }, { "skpsw", 16,16, 0x0d0e, "1i" }, { "skpsd", 16,16, 0x0f0e, "1i" }, { "skpst", 16,16, 0x8c0e, "1i" }, { "smr", 15,24, 0x0f1e, "2D1q" }, { "sprb", 7,16, 0x2c, "2B1q" }, { "sprw", 7,16, 0x2d, "2W1q" }, { "sprd", 7,16, 0x2f, "2D1q" }, { "subf", 14,24, 0x11be, "1F2F" }, { "subl", 14,24, 0x10be, "1L2L" }, { "subb", 6,16, 0x20, "1B2B" }, { "subw", 6,16, 0x21, "1W2W" }, { "subd", 6,16, 0x23, "1D2D" }, { "subcb", 6,16, 0x30, "1B2B" }, { "subcw", 6,16, 0x31, "1W2W" }, { "subcd", 6,16, 0x33, "1D2D" }, { "subpb", 14,24, 0x2c4e, "1B2B" }, { "subpw", 14,24, 0x2d4e, "1W2W" }, { "subpd", 14,24, 0x2f4e, "1D2D" }, #ifdef NS32K_SVC_IMMED_OPERANDS { "svc", 8,8, 0xe2, "2i1i" }, /* not really, but unix uses it */ #else { "svc", 8,8, 0xe2, "" }, /* not really, but unix uses it */ #endif { "tbitb", 6,16, 0x34, "1B2A" }, { "tbitw", 6,16, 0x35, "1W2A" }, { "tbitd", 6,16, 0x37, "1D2A" }, { "truncfb", 14,24, 0x2c3e, "1F2B" }, { "truncfw", 14,24, 0x2d3e, "1F2W" }, { "truncfd", 14,24, 0x2f3e, "1F2D" }, { "trunclb", 14,24, 0x283e, "1L2B" }, { "trunclw", 14,24, 0x293e, "1L2W" }, { "truncld", 14,24, 0x2b3e, "1L2D" }, { "wait", 8,8, 0xb2, "" }, { "wrval", 19,24, 0x0071e,"1A" }, { "xorb", 6,16, 0x38, "1B2B" }, { "xorw", 6,16, 0x39, "1W2W" }, { "xord", 6,16, 0x3b, "1D2D" }, }; /* notstrs */ /* end: ns32k.opcode.h */ #define MAX_ARGS 4 #define ARG_LEN 50 gdb-4.13/gdb/ns32k-pinsn.c 666 34562 1752 30654 5441220422 13545 0ustar fnfcygnus/* Print National Semiconductor 32000 instructions for GDB, the GNU debugger. Copyright 1986, 1988, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "ns32k-opcode.h" #include "gdbcore.h" /* 32000 instructions are never longer than this. */ #define MAXLEN 62 /* Number of elements in the opcode table. */ #define NOPCODES (sizeof notstrs / sizeof notstrs[0]) #define NEXT_IS_ADDR '|' /* * extract "count" bits starting "offset" bits * into buffer */ int bit_extract (buffer, offset, count) char *buffer; int offset; int count; { int result; int mask; int bit; buffer += offset >> 3; offset &= 7; bit = 1; result = 0; while (count--) { if ((*buffer & (1 << offset))) result |= bit; if (++offset == 8) { offset = 0; buffer++; } bit <<= 1; } return result; } float fbit_extract (buffer, offset, count) { union { int ival; float fval; } foo; foo.ival = bit_extract (buffer, offset, 32); return foo.fval; } double dbit_extract (buffer, offset, count) { union { struct {int low, high; } ival; double dval; } foo; foo.ival.low = bit_extract (buffer, offset, 32); foo.ival.high = bit_extract (buffer, offset+32, 32); return foo.dval; } sign_extend (value, bits) { value = value & ((1 << bits) - 1); return (value & (1 << (bits-1)) ? value | (~((1 << bits) - 1)) : value); } flip_bytes (ptr, count) char *ptr; int count; { char tmp; while (count > 0) { tmp = *ptr; ptr[0] = ptr[count-1]; ptr[count-1] = tmp; ptr++; count -= 2; } } /* Given a character C, does it represent a general addressing mode? */ #define Is_gen(c) \ ((c) == 'F' || (c) == 'L' || (c) == 'B' \ || (c) == 'W' || (c) == 'D' || (c) == 'A') /* Adressing modes. */ #define Adrmod_index_byte 0x1c #define Adrmod_index_word 0x1d #define Adrmod_index_doubleword 0x1e #define Adrmod_index_quadword 0x1f /* Is MODE an indexed addressing mode? */ #define Adrmod_is_index(mode) \ (mode == Adrmod_index_byte \ || mode == Adrmod_index_word \ || mode == Adrmod_index_doubleword \ || mode == Adrmod_index_quadword) /* Print the 32000 instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; FILE *stream; { unsigned char buffer[MAXLEN]; register int i; register unsigned char *p; register char *d; unsigned short first_word; int gen, disp; int ioffset; /* bits into instruction */ int aoffset; /* bits into arguments */ char arg_bufs[MAX_ARGS+1][ARG_LEN]; int argnum; int maxarg; read_memory (memaddr, buffer, MAXLEN); first_word = *(unsigned short *) buffer; for (i = 0; i < NOPCODES; i++) if ((first_word & ((1 << notstrs[i].detail.obits) - 1)) == notstrs[i].detail.code) break; /* Handle undefined instructions. */ if (i == NOPCODES) { fprintf (stream, "0%o", buffer[0]); return 1; } fprintf (stream, "%s", notstrs[i].name); ioffset = notstrs[i].detail.ibits; aoffset = notstrs[i].detail.ibits; d = notstrs[i].detail.args; if (*d) { /* Offset in bits of the first thing beyond each index byte. Element 0 is for operand A and element 1 is for operand B. The rest are irrelevant, but we put them here so we don't index outside the array. */ int index_offset[MAX_ARGS]; /* 0 for operand A, 1 for operand B, greater for other args. */ int whicharg = 0; fputc ('\t', stream); maxarg = 0; /* First we have to find and keep track of the index bytes, if we are using scaled indexed addressing mode, since the index bytes occur right after the basic instruction, not as part of the addressing extension. */ if (Is_gen(d[1])) { int addr_mode = bit_extract (buffer, ioffset - 5, 5); if (Adrmod_is_index (addr_mode)) { aoffset += 8; index_offset[0] = aoffset; } } if (d[2] && Is_gen(d[3])) { int addr_mode = bit_extract (buffer, ioffset - 10, 5); if (Adrmod_is_index (addr_mode)) { aoffset += 8; index_offset[1] = aoffset; } } while (*d) { argnum = *d - '1'; d++; if (argnum > maxarg && argnum < MAX_ARGS) maxarg = argnum; ioffset = print_insn_arg (*d, ioffset, &aoffset, buffer, memaddr, arg_bufs[argnum], index_offset[whicharg]); d++; whicharg++; } for (argnum = 0; argnum <= maxarg; argnum++) { CORE_ADDR addr; char *ch; for (ch = arg_bufs[argnum]; *ch;) { if (*ch == NEXT_IS_ADDR) { ++ch; addr = atoi (ch); print_address (addr, stream); while (*ch && *ch != NEXT_IS_ADDR) ++ch; if (*ch) ++ch; } else putc (*ch++, stream); } if (argnum < maxarg) fprintf (stream, ", "); } } return aoffset / 8; } /* Print an instruction operand of category given by d. IOFFSET is the bit position below which small (<1 byte) parts of the operand can be found (usually in the basic instruction, but for indexed addressing it can be in the index byte). AOFFSETP is a pointer to the bit position of the addressing extension. BUFFER contains the instruction. ADDR is where BUFFER was read from. Put the disassembled version of the operand in RESULT. INDEX_OFFSET is the bit position of the index byte (it contains garbage if this operand is not a general operand using scaled indexed addressing mode). */ print_insn_arg (d, ioffset, aoffsetp, buffer, addr, result, index_offset) char d; int ioffset, *aoffsetp; char *buffer; CORE_ADDR addr; char *result; int index_offset; { int addr_mode; float Fvalue; double Lvalue; int Ivalue; int disp1, disp2; int index; switch (d) { case 'F': case 'L': case 'B': case 'W': case 'D': case 'A': addr_mode = bit_extract (buffer, ioffset-5, 5); ioffset -= 5; switch (addr_mode) { case 0x0: case 0x1: case 0x2: case 0x3: case 0x4: case 0x5: case 0x6: case 0x7: switch (d) { case 'F': case 'L': sprintf (result, "f%d", addr_mode); break; default: sprintf (result, "r%d", addr_mode); } break; case 0x8: case 0x9: case 0xa: case 0xb: case 0xc: case 0xd: case 0xe: case 0xf: disp1 = get_displacement (buffer, aoffsetp); sprintf (result, "%d(r%d)", disp1, addr_mode & 7); break; case 0x10: case 0x11: case 0x12: disp1 = get_displacement (buffer, aoffsetp); disp2 = get_displacement (buffer, aoffsetp); sprintf (result, "%d(%d(%s))", disp2, disp1, addr_mode==0x10?"fp":addr_mode==0x11?"sp":"sb"); break; case 0x13: sprintf (result, "reserved"); break; case 0x14: switch (d) { case 'B': Ivalue = bit_extract (buffer, *aoffsetp, 8); Ivalue = sign_extend (Ivalue, 8); *aoffsetp += 8; sprintf (result, "$%d", Ivalue); break; case 'W': Ivalue = bit_extract (buffer, *aoffsetp, 16); flip_bytes (&Ivalue, 2); *aoffsetp += 16; Ivalue = sign_extend (Ivalue, 16); sprintf (result, "$%d", Ivalue); break; case 'D': Ivalue = bit_extract (buffer, *aoffsetp, 32); flip_bytes (&Ivalue, 4); *aoffsetp += 32; sprintf (result, "$%d", Ivalue); break; case 'A': Ivalue = bit_extract (buffer, *aoffsetp, 32); flip_bytes (&Ivalue, 4); *aoffsetp += 32; sprintf (result, "$|%d|", Ivalue); break; case 'F': Fvalue = fbit_extract (buffer, *aoffsetp, 32); flip_bytes (&Fvalue, 4); *aoffsetp += 32; sprintf (result, "$%g", Fvalue); break; case 'L': Lvalue = dbit_extract (buffer, *aoffsetp, 64); flip_bytes (&Lvalue, 8); *aoffsetp += 64; sprintf (result, "$%g", Lvalue); break; } break; case 0x15: disp1 = get_displacement (buffer, aoffsetp); sprintf (result, "@|%d|", disp1); break; case 0x16: disp1 = get_displacement (buffer, aoffsetp); disp2 = get_displacement (buffer, aoffsetp); sprintf (result, "EXT(%d) + %d", disp1, disp2); break; case 0x17: sprintf (result, "tos"); break; case 0x18: disp1 = get_displacement (buffer, aoffsetp); sprintf (result, "%d(fp)", disp1); break; case 0x19: disp1 = get_displacement (buffer, aoffsetp); sprintf (result, "%d(sp)", disp1); break; case 0x1a: disp1 = get_displacement (buffer, aoffsetp); sprintf (result, "%d(sb)", disp1); break; case 0x1b: disp1 = get_displacement (buffer, aoffsetp); sprintf (result, "|%d|", addr + disp1); break; case 0x1c: case 0x1d: case 0x1e: case 0x1f: index = bit_extract (buffer, index_offset - 8, 3); print_insn_arg (d, index_offset, aoffsetp, buffer, addr, result, 0); { static char *ind[] = {"b", "w", "d", "q"}; char *off; off = result + strlen (result); sprintf (off, "[r%d:%s]", index, ind[addr_mode & 3]); } break; } break; case 'q': Ivalue = bit_extract (buffer, ioffset-4, 4); Ivalue = sign_extend (Ivalue, 4); sprintf (result, "%d", Ivalue); ioffset -= 4; break; case 'r': Ivalue = bit_extract (buffer, ioffset-3, 3); sprintf (result, "r%d", Ivalue&7); ioffset -= 3; break; case 'd': sprintf (result, "%d", get_displacement (buffer, aoffsetp)); break; case 'p': sprintf (result, "%c%d%c", NEXT_IS_ADDR, addr + get_displacement (buffer, aoffsetp), NEXT_IS_ADDR); break; case 'i': Ivalue = bit_extract (buffer, *aoffsetp, 8); *aoffsetp += 8; sprintf (result, "0x%x", Ivalue); break; } return ioffset; } get_displacement (buffer, aoffsetp) char *buffer; int *aoffsetp; { int Ivalue; Ivalue = bit_extract (buffer, *aoffsetp, 8); switch (Ivalue & 0xc0) { case 0x00: case 0x40: Ivalue = sign_extend (Ivalue, 7); *aoffsetp += 8; break; case 0x80: Ivalue = bit_extract (buffer, *aoffsetp, 16); flip_bytes (&Ivalue, 2); Ivalue = sign_extend (Ivalue, 14); *aoffsetp += 16; break; case 0xc0: Ivalue = bit_extract (buffer, *aoffsetp, 32); flip_bytes (&Ivalue, 4); Ivalue = sign_extend (Ivalue, 30); *aoffsetp += 32; break; } return Ivalue; } /* Return the number of locals in the current frame given a pc pointing to the enter instruction. This is used in the macro FRAME_FIND_SAVED_REGS. */ ns32k_localcount (enter_pc) CORE_ADDR enter_pc; { unsigned char localtype; int localcount; localtype = read_memory_integer (enter_pc+2, 1); if ((localtype & 0x80) == 0) localcount = localtype; else if ((localtype & 0xc0) == 0x80) localcount = (((localtype & 0x3f) << 8) | (read_memory_integer (enter_pc+3, 1) & 0xff)); else localcount = (((localtype & 0x3f) << 24) | ((read_memory_integer (enter_pc+3, 1) & 0xff) << 16) | ((read_memory_integer (enter_pc+4, 1) & 0xff) << 8 ) | (read_memory_integer (enter_pc+5, 1) & 0xff)); return localcount; } /* * Get the address of the enter opcode for the function * containing PC, if there is an enter for the function, * and if the pc is between the enter and exit. * Returns positive address if pc is between enter/exit, * 1 if pc before enter or after exit, 0 otherwise. */ CORE_ADDR ns32k_get_enter_addr (pc) CORE_ADDR pc; { CORE_ADDR enter_addr; unsigned char op; if (ABOUT_TO_RETURN (pc)) return 1; /* after exit */ enter_addr = get_pc_function_start (pc); if (pc == enter_addr) return 1; /* before enter */ op = read_memory_integer (enter_addr, 1); if (op != 0x82) return 0; /* function has no enter/exit */ return enter_addr; /* pc is between enter and exit */ } gdb-4.13/gdb/ns32km3-nat.c 666 34562 1752 12610 5507351431 13440 0ustar fnfcygnus/* Low level interface to ns532 running mach 3.0. Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include #include #include #include #include #define private static /* Find offsets to thread states at compile time. * If your compiler does not grok this, calculate offsets * offsets yourself and use them (or get a compatible compiler :-) */ #define REG_N_OFFSET(reg) (int)(&((struct ns532_combined_state *)0)->ts.reg) #define REG_F_OFFSET(reg) (int)(&((struct ns532_combined_state *)0)->fs.reg) /* at reg_offset[i] is the offset to the ns532_combined_state * location where the gdb registers[i] is stored. */ static int reg_offset[] = { REG_N_OFFSET(r0), REG_N_OFFSET(r1), REG_N_OFFSET(r2), REG_N_OFFSET(r3), REG_N_OFFSET(r4), REG_N_OFFSET(r5), REG_N_OFFSET(r6), REG_N_OFFSET(r7), REG_F_OFFSET(l0a), REG_F_OFFSET(l1a),REG_F_OFFSET(l2a),REG_F_OFFSET(l3a), REG_F_OFFSET(l4a), REG_F_OFFSET(l5a),REG_F_OFFSET(l6a),REG_F_OFFSET(l7a), REG_N_OFFSET(sp), REG_N_OFFSET(fp), REG_N_OFFSET(pc), REG_N_OFFSET(psr), REG_F_OFFSET(fsr), REG_F_OFFSET(l0a), REG_F_OFFSET(l2a),REG_F_OFFSET(l4a),REG_F_OFFSET(l6a) /* @@@ 532 has more double length floating point regs, not accessed currently */ }; /* Fetch COUNT contiguous registers from thread STATE starting from REGNUM * Caller knows that the regs handled in one transaction are of same size. */ #define FETCH_REGS(state, regnum, count) \ memcpy (®isters[REGISTER_BYTE (regnum)], \ (char *)state+reg_offset[ regnum ], \ count*REGISTER_SIZE) /* Store COUNT contiguous registers to thread STATE starting from REGNUM */ #define STORE_REGS(state, regnum, count) \ memcpy ((char *)state+reg_offset[ regnum ], \ ®isters[REGISTER_BYTE (regnum)], \ count*REGISTER_SIZE) /* 4.4 bfd support function */ /* jtv@hut.fi: UNIMPLEMENTED!!!!! */ void fetch_core_registers (core_regs, core_reg_size, which) char *core_regs; unsigned int core_reg_size; int which; { error ("Unimplemented routine fetch_core_registers called"); } /* * Fetch inferiors registers for gdb. * REGNO specifies which (as gdb views it) register, -1 for all. */ void fetch_inferior_registers (regno) int regno; { kern_return_t ret; thread_state_data_t state; unsigned int stateCnt = NS532_COMBINED_STATE_COUNT; int index; if (! MACH_PORT_VALID (current_thread)) error ("fetch inferior registers: Invalid thread"); if (must_suspend_thread) setup_thread (current_thread, 1); ret = thread_get_state (current_thread, NS532_COMBINED_STATE, state, &stateCnt); if (ret != KERN_SUCCESS) message ("fetch_inferior_registers: %s ", mach_error_string (ret)); #if 0 /* It may be more effective to store validate all of them, * since we fetched them all anyway */ else if (regno != -1) supply_register (regno, (char *)state+reg_offset[regno]); #endif else { for (index = 0; index < NUM_REGS; index++) supply_register (index, (char *)state+reg_offset[index]); } if (must_suspend_thread) setup_thread (current_thread, 0); } /* Store our register values back into the inferior. * If REGNO is -1, do this for all registers. * Otherwise, REGNO specifies which register * * On mach3 all registers are always saved in one call. */ void store_inferior_registers (regno) int regno; { kern_return_t ret; thread_state_data_t state; unsigned int stateCnt = NS532_COMBINED_STATE_COUNT; register int index; if (! MACH_PORT_VALID (current_thread)) error ("store inferior registers: Invalid thread"); if (must_suspend_thread) setup_thread (current_thread, 1); /* Fetch the state of the current thread */ ret = thread_get_state (current_thread, NS532_COMBINED_STATE, state, &stateCnt); if (ret != KERN_SUCCESS) { message ("store_inferior_registers (get): %s", mach_error_string (ret)); if (must_suspend_thread) setup_thread (current_thread, 0); return; } /* move gdb's registers to thread's state * * Since we save all registers anyway, save the ones * that gdb thinks are valid (e.g. ignore the regno * parameter) */ #if 0 if (regno != -1) STORE_REGS (state, regno, 1); else #endif { for (index = 0; index < NUM_REGS; index++) STORE_REGS (state, index, 1); } /* Write gdb's current view of register to the thread */ ret = thread_set_state (current_thread, NS532_COMBINED_STATE, state, NS532_COMBINED_STATE_COUNT); if (ret != KERN_SUCCESS) message ("store_inferior_registers (set): %s", mach_error_string (ret)); if (must_suspend_thread) setup_thread (current_thread, 0); } gdb-4.13/gdb/objfiles.c 666 34562 1752 62715 5575533351 13300 0ustar fnfcygnus/* GDB routines for manipulating objfiles. Copyright 1992 Free Software Foundation, Inc. Contributed by Cygnus Support, using pieces from other GDB modules. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file contains support routines for creating, manipulating, and destroying objfile structures. */ #include "defs.h" #include "bfd.h" /* Binary File Description */ #include "symtab.h" #include "symfile.h" #include "objfiles.h" #include "gdb-stabs.h" #include "target.h" #include #include #include #include /* Prototypes for local functions */ #if !defined(NO_MMALLOC) && defined(HAVE_MMAP) static int open_existing_mapped_file PARAMS ((char *, long, int)); static int open_mapped_file PARAMS ((char *filename, long mtime, int mapped)); static CORE_ADDR map_to_address PARAMS ((void)); #endif /* !defined(NO_MMALLOC) && defined(HAVE_MMAP) */ /* Message to be printed before the error message, when an error occurs. */ extern char *error_pre_print; /* Externally visible variables that are owned by this module. See declarations in objfile.h for more info. */ struct objfile *object_files; /* Linked list of all objfiles */ struct objfile *current_objfile; /* For symbol file being read in */ struct objfile *symfile_objfile; /* Main symbol table loaded from */ int mapped_symbol_files; /* Try to use mapped symbol files */ /* Locate all mappable sections of a BFD file. objfile_p_char is a char * to get it through bfd_map_over_sections; we cast it back to its proper type. */ static void add_to_objfile_sections (abfd, asect, objfile_p_char) bfd *abfd; sec_ptr asect; PTR objfile_p_char; { struct objfile *objfile = (struct objfile *) objfile_p_char; struct obj_section section; flagword aflag; aflag = bfd_get_section_flags (abfd, asect); if (!(aflag & SEC_ALLOC)) return; if (0 == bfd_section_size (abfd, asect)) return; section.offset = 0; section.objfile = objfile; section.the_bfd_section = asect; section.addr = bfd_section_vma (abfd, asect); section.endaddr = section.addr + bfd_section_size (abfd, asect); obstack_grow (&objfile->psymbol_obstack, §ion, sizeof(section)); objfile->sections_end = (struct obj_section *) (((unsigned long) objfile->sections_end) + 1); } /* Builds a section table for OBJFILE. Returns 0 if OK, 1 on error (in which case bfd_error contains the error). */ int build_objfile_section_table (objfile) struct objfile *objfile; { /* objfile->sections can be already set when reading a mapped symbol file. I believe that we do need to rebuild the section table in this case (we rebuild other things derived from the bfd), but we can't free the old one (it's in the psymbol_obstack). So we just waste some memory. */ objfile->sections_end = 0; bfd_map_over_sections (objfile->obfd, add_to_objfile_sections, (char *)objfile); objfile->sections = (struct obj_section *) obstack_finish (&objfile->psymbol_obstack); objfile->sections_end = objfile->sections + (unsigned long) objfile->sections_end; return(0); } /* Given a pointer to an initialized bfd (ABFD) and a flag that indicates whether or not an objfile is to be mapped (MAPPED), allocate a new objfile struct, fill it in as best we can, link it into the list of all known objfiles, and return a pointer to the new objfile struct. */ struct objfile * allocate_objfile (abfd, mapped) bfd *abfd; int mapped; { struct objfile *objfile = NULL; mapped |= mapped_symbol_files; #if !defined(NO_MMALLOC) && defined(HAVE_MMAP) { /* If we can support mapped symbol files, try to open/reopen the mapped file that corresponds to the file from which we wish to read symbols. If the objfile is to be mapped, we must malloc the structure itself using the mmap version, and arrange that all memory allocation for the objfile uses the mmap routines. If we are reusing an existing mapped file, from which we get our objfile pointer, we have to make sure that we update the pointers to the alloc/free functions in the obstack, in case these functions have moved within the current gdb. */ int fd; fd = open_mapped_file (bfd_get_filename (abfd), bfd_get_mtime (abfd), mapped); if (fd >= 0) { CORE_ADDR mapto; PTR md; if (((mapto = map_to_address ()) == 0) || ((md = mmalloc_attach (fd, (PTR) mapto)) == NULL)) { close (fd); } else if ((objfile = (struct objfile *) mmalloc_getkey (md, 0)) != NULL) { /* Update memory corruption handler function addresses. */ init_malloc (md); objfile -> md = md; objfile -> mmfd = fd; /* Update pointers to functions to *our* copies */ obstack_chunkfun (&objfile -> psymbol_obstack, xmmalloc); obstack_freefun (&objfile -> psymbol_obstack, mfree); obstack_chunkfun (&objfile -> symbol_obstack, xmmalloc); obstack_freefun (&objfile -> symbol_obstack, mfree); obstack_chunkfun (&objfile -> type_obstack, xmmalloc); obstack_freefun (&objfile -> type_obstack, mfree); /* If already in objfile list, unlink it. */ unlink_objfile (objfile); /* Forget things specific to a particular gdb, may have changed. */ objfile -> sf = NULL; } else { /* Set up to detect internal memory corruption. MUST be done before the first malloc. See comments in init_malloc() and mmcheck(). */ init_malloc (md); objfile = (struct objfile *) xmmalloc (md, sizeof (struct objfile)); memset (objfile, 0, sizeof (struct objfile)); objfile -> md = md; objfile -> mmfd = fd; objfile -> flags |= OBJF_MAPPED; mmalloc_setkey (objfile -> md, 0, objfile); obstack_specify_allocation_with_arg (&objfile -> psymbol_obstack, 0, 0, xmmalloc, mfree, objfile -> md); obstack_specify_allocation_with_arg (&objfile -> symbol_obstack, 0, 0, xmmalloc, mfree, objfile -> md); obstack_specify_allocation_with_arg (&objfile -> type_obstack, 0, 0, xmmalloc, mfree, objfile -> md); } } if (mapped && (objfile == NULL)) { warning ("symbol table for '%s' will not be mapped", bfd_get_filename (abfd)); } } #else /* defined(NO_MMALLOC) || !defined(HAVE_MMAP) */ if (mapped) { warning ("this version of gdb does not support mapped symbol tables."); /* Turn off the global flag so we don't try to do mapped symbol tables any more, which shuts up gdb unless the user specifically gives the "mapped" keyword again. */ mapped_symbol_files = 0; } #endif /* !defined(NO_MMALLOC) && defined(HAVE_MMAP) */ /* If we don't support mapped symbol files, didn't ask for the file to be mapped, or failed to open the mapped file for some reason, then revert back to an unmapped objfile. */ if (objfile == NULL) { objfile = (struct objfile *) xmalloc (sizeof (struct objfile)); memset (objfile, 0, sizeof (struct objfile)); objfile -> md = NULL; obstack_specify_allocation (&objfile -> psymbol_obstack, 0, 0, xmalloc, free); obstack_specify_allocation (&objfile -> symbol_obstack, 0, 0, xmalloc, free); obstack_specify_allocation (&objfile -> type_obstack, 0, 0, xmalloc, free); } /* Update the per-objfile information that comes from the bfd, ensuring that any data that is reference is saved in the per-objfile data region. */ objfile -> obfd = abfd; if (objfile -> name != NULL) { mfree (objfile -> md, objfile -> name); } objfile -> name = mstrsave (objfile -> md, bfd_get_filename (abfd)); objfile -> mtime = bfd_get_mtime (abfd); /* Build section table. */ if (build_objfile_section_table (objfile)) { error ("Can't find the file sections in `%s': %s", objfile -> name, bfd_errmsg (bfd_get_error ())); } /* Push this file onto the head of the linked list of other such files. */ objfile -> next = object_files; object_files = objfile; return (objfile); } /* Unlink OBJFILE from the list of known objfiles, if it is found in the list. It is not a bug, or error, to call this function if OBJFILE is not known to be in the current list. This is done in the case of mapped objfiles, for example, just to ensure that the mapped objfile doesn't appear twice in the list. Since the list is threaded, linking in a mapped objfile twice would create a circular list. If OBJFILE turns out to be in the list, we zap it's NEXT pointer after unlinking it, just to ensure that we have completely severed any linkages between the OBJFILE and the list. */ void unlink_objfile (objfile) struct objfile *objfile; { struct objfile** objpp; for (objpp = &object_files; *objpp != NULL; objpp = &((*objpp) -> next)) { if (*objpp == objfile) { *objpp = (*objpp) -> next; objfile -> next = NULL; break; } } } /* Destroy an objfile and all the symtabs and psymtabs under it. Note that as much as possible is allocated on the symbol_obstack and psymbol_obstack, so that the memory can be efficiently freed. Things which we do NOT free because they are not in malloc'd memory or not in memory specific to the objfile include: objfile -> sf FIXME: If the objfile is using reusable symbol information (via mmalloc), then we need to take into account the fact that more than one process may be using the symbol information at the same time (when mmalloc is extended to support cooperative locking). When more than one process is using the mapped symbol info, we need to be more careful about when we free objects in the reusable area. */ void free_objfile (objfile) struct objfile *objfile; { /* First do any symbol file specific actions required when we are finished with a particular symbol file. Note that if the objfile is using reusable symbol information (via mmalloc) then each of these routines is responsible for doing the correct thing, either freeing things which are valid only during this particular gdb execution, or leaving them to be reused during the next one. */ if (objfile -> sf != NULL) { (*objfile -> sf -> sym_finish) (objfile); } /* We always close the bfd. */ if (objfile -> obfd != NULL) { char *name = bfd_get_filename (objfile->obfd); bfd_close (objfile -> obfd); free (name); } /* Remove it from the chain of all objfiles. */ unlink_objfile (objfile); /* Before the symbol table code was redone to make it easier to selectively load and remove information particular to a specific linkage unit, gdb used to do these things whenever the monolithic symbol table was blown away. How much still needs to be done is unknown, but we play it safe for now and keep each action until it is shown to be no longer needed. */ #if defined (CLEAR_SOLIB) CLEAR_SOLIB (); /* CLEAR_SOLIB closes the bfd's for any shared libraries. But the to_sections for a core file might refer to those bfd's. So detach any core file. */ { struct target_ops *t = find_core_target (); if (t != NULL) (t->to_detach) (NULL, 0); } #endif /* I *think* all our callers call clear_symtab_users. If so, no need to call this here. */ clear_pc_function_cache (); /* The last thing we do is free the objfile struct itself for the non-reusable case, or detach from the mapped file for the reusable case. Note that the mmalloc_detach or the mfree is the last thing we can do with this objfile. */ #if !defined(NO_MMALLOC) && defined(HAVE_MMAP) if (objfile -> flags & OBJF_MAPPED) { /* Remember the fd so we can close it. We can't close it before doing the detach, and after the detach the objfile is gone. */ int mmfd; mmfd = objfile -> mmfd; mmalloc_detach (objfile -> md); objfile = NULL; close (mmfd); } #endif /* !defined(NO_MMALLOC) && defined(HAVE_MMAP) */ /* If we still have an objfile, then either we don't support reusable objfiles or this one was not reusable. So free it normally. */ if (objfile != NULL) { if (objfile -> name != NULL) { mfree (objfile -> md, objfile -> name); } if (objfile->global_psymbols.list) mfree (objfile->md, objfile->global_psymbols.list); if (objfile->static_psymbols.list) mfree (objfile->md, objfile->static_psymbols.list); /* Free the obstacks for non-reusable objfiles */ obstack_free (&objfile -> psymbol_obstack, 0); obstack_free (&objfile -> symbol_obstack, 0); obstack_free (&objfile -> type_obstack, 0); mfree (objfile -> md, objfile); objfile = NULL; } } /* Free all the object files at once and clean up their users. */ void free_all_objfiles () { struct objfile *objfile, *temp; ALL_OBJFILES_SAFE (objfile, temp) { free_objfile (objfile); } clear_symtab_users (); } /* Relocate OBJFILE to NEW_OFFSETS. There should be OBJFILE->NUM_SECTIONS entries in new_offsets. */ void objfile_relocate (objfile, new_offsets) struct objfile *objfile; struct section_offsets *new_offsets; { struct section_offsets *delta = (struct section_offsets *) alloca (sizeof (struct section_offsets) + objfile->num_sections * sizeof (delta->offsets)); { int i; int something_changed = 0; for (i = 0; i < objfile->num_sections; ++i) { ANOFFSET (delta, i) = ANOFFSET (new_offsets, i) - ANOFFSET (objfile->section_offsets, i); if (ANOFFSET (delta, i) != 0) something_changed = 1; } if (!something_changed) return; } /* OK, get all the symtabs. */ { struct symtab *s; ALL_OBJFILE_SYMTABS (objfile, s) { struct linetable *l; struct blockvector *bv; int i; /* First the line table. */ l = LINETABLE (s); if (l) { for (i = 0; i < l->nitems; ++i) l->item[i].pc += ANOFFSET (delta, s->block_line_section); } /* Don't relocate a shared blockvector more than once. */ if (!s->primary) continue; bv = BLOCKVECTOR (s); for (i = 0; i < BLOCKVECTOR_NBLOCKS (bv); ++i) { struct block *b; int j; b = BLOCKVECTOR_BLOCK (bv, i); BLOCK_START (b) += ANOFFSET (delta, s->block_line_section); BLOCK_END (b) += ANOFFSET (delta, s->block_line_section); for (j = 0; j < BLOCK_NSYMS (b); ++j) { struct symbol *sym = BLOCK_SYM (b, j); /* The RS6000 code from which this was taken skipped any symbols in STRUCT_NAMESPACE or UNDEF_NAMESPACE. But I'm leaving out that test, on the theory that they can't possibly pass the tests below. */ if ((SYMBOL_CLASS (sym) == LOC_LABEL || SYMBOL_CLASS (sym) == LOC_STATIC) && SYMBOL_SECTION (sym) >= 0) { SYMBOL_VALUE_ADDRESS (sym) += ANOFFSET (delta, SYMBOL_SECTION (sym)); } #ifdef MIPS_EFI_SYMBOL_NAME /* Relocate Extra Function Info for ecoff. */ else if (SYMBOL_CLASS (sym) == LOC_CONST && SYMBOL_NAMESPACE (sym) == LABEL_NAMESPACE && STRCMP (SYMBOL_NAME (sym), MIPS_EFI_SYMBOL_NAME) == 0) ecoff_relocate_efi (sym, ANOFFSET (delta, s->block_line_section)); #endif } } } } { struct partial_symtab *p; ALL_OBJFILE_PSYMTABS (objfile, p) { /* FIXME: specific to symbol readers which use gdb-stabs.h. We can only get away with it since objfile_relocate is only used on XCOFF, which lacks psymtabs, and for gdb-stabs.h targets. */ p->textlow += ANOFFSET (delta, SECT_OFF_TEXT); p->texthigh += ANOFFSET (delta, SECT_OFF_TEXT); } } { struct partial_symbol *psym; for (psym = objfile->global_psymbols.list; psym < objfile->global_psymbols.next; psym++) if (SYMBOL_SECTION (psym) >= 0) SYMBOL_VALUE_ADDRESS (psym) += ANOFFSET (delta, SYMBOL_SECTION (psym)); for (psym = objfile->static_psymbols.list; psym < objfile->static_psymbols.next; psym++) if (SYMBOL_SECTION (psym) >= 0) SYMBOL_VALUE_ADDRESS (psym) += ANOFFSET (delta, SYMBOL_SECTION (psym)); } { struct minimal_symbol *msym; ALL_OBJFILE_MSYMBOLS (objfile, msym) if (SYMBOL_SECTION (msym) >= 0) SYMBOL_VALUE_ADDRESS (msym) += ANOFFSET (delta, SYMBOL_SECTION (msym)); } { int i; for (i = 0; i < objfile->num_sections; ++i) ANOFFSET (objfile->section_offsets, i) = ANOFFSET (new_offsets, i); } { struct obj_section *s; bfd *abfd; abfd = symfile_objfile->obfd; for (s = symfile_objfile->sections; s < symfile_objfile->sections_end; ++s) { flagword flags; flags = bfd_get_section_flags (abfd, s->the_bfd_section); if (flags & SEC_CODE) { s->addr += ANOFFSET (delta, SECT_OFF_TEXT); s->endaddr += ANOFFSET (delta, SECT_OFF_TEXT); } else if (flags & (SEC_DATA | SEC_LOAD)) { s->addr += ANOFFSET (delta, SECT_OFF_DATA); s->endaddr += ANOFFSET (delta, SECT_OFF_DATA); } else if (flags & SEC_ALLOC) { s->addr += ANOFFSET (delta, SECT_OFF_BSS); s->endaddr += ANOFFSET (delta, SECT_OFF_BSS); } } } if (objfile->ei.entry_point != ~0) objfile->ei.entry_point += ANOFFSET (delta, SECT_OFF_TEXT); if (objfile->ei.entry_func_lowpc != INVALID_ENTRY_LOWPC) { objfile->ei.entry_func_lowpc += ANOFFSET (delta, SECT_OFF_TEXT); objfile->ei.entry_func_highpc += ANOFFSET (delta, SECT_OFF_TEXT); } if (objfile->ei.entry_file_lowpc != INVALID_ENTRY_LOWPC) { objfile->ei.entry_file_lowpc += ANOFFSET (delta, SECT_OFF_TEXT); objfile->ei.entry_file_highpc += ANOFFSET (delta, SECT_OFF_TEXT); } if (objfile->ei.main_func_lowpc != INVALID_ENTRY_LOWPC) { objfile->ei.main_func_lowpc += ANOFFSET (delta, SECT_OFF_TEXT); objfile->ei.main_func_highpc += ANOFFSET (delta, SECT_OFF_TEXT); } } /* Many places in gdb want to test just to see if we have any partial symbols available. This function returns zero if none are currently available, nonzero otherwise. */ int have_partial_symbols () { struct objfile *ofp; ALL_OBJFILES (ofp) { if (ofp -> psymtabs != NULL) { return 1; } } return 0; } /* Many places in gdb want to test just to see if we have any full symbols available. This function returns zero if none are currently available, nonzero otherwise. */ int have_full_symbols () { struct objfile *ofp; ALL_OBJFILES (ofp) { if (ofp -> symtabs != NULL) { return 1; } } return 0; } /* Many places in gdb want to test just to see if we have any minimal symbols available. This function returns zero if none are currently available, nonzero otherwise. */ int have_minimal_symbols () { struct objfile *ofp; ALL_OBJFILES (ofp) { if (ofp -> msymbols != NULL) { return 1; } } return 0; } #if !defined(NO_MMALLOC) && defined(HAVE_MMAP) /* Given the name of a mapped symbol file in SYMSFILENAME, and the timestamp of the corresponding symbol file in MTIME, try to open an existing file with the name SYMSFILENAME and verify it is more recent than the base file by checking it's timestamp against MTIME. If SYMSFILENAME does not exist (or can't be stat'd), simply returns -1. If SYMSFILENAME does exist, but is out of date, we check to see if the user has specified creation of a mapped file. If so, we don't issue any warning message because we will be creating a new mapped file anyway, overwriting the old one. If not, then we issue a warning message so that the user will know why we aren't using this existing mapped symbol file. In either case, we return -1. If SYMSFILENAME does exist and is not out of date, but can't be opened for some reason, then prints an appropriate system error message and returns -1. Otherwise, returns the open file descriptor. */ static int open_existing_mapped_file (symsfilename, mtime, mapped) char *symsfilename; long mtime; int mapped; { int fd = -1; struct stat sbuf; if (stat (symsfilename, &sbuf) == 0) { if (sbuf.st_mtime < mtime) { if (!mapped) { warning ("mapped symbol file `%s' is out of date, ignored it", symsfilename); } } else if ((fd = open (symsfilename, O_RDWR)) < 0) { if (error_pre_print) { printf_unfiltered (error_pre_print); } print_sys_errmsg (symsfilename, errno); } } return (fd); } /* Look for a mapped symbol file that corresponds to FILENAME and is more recent than MTIME. If MAPPED is nonzero, the user has asked that gdb use a mapped symbol file for this file, so create a new one if one does not currently exist. If found, then return an open file descriptor for the file, otherwise return -1. This routine is responsible for implementing the policy that generates the name of the mapped symbol file from the name of a file containing symbols that gdb would like to read. Currently this policy is to append ".syms" to the name of the file. This routine is also responsible for implementing the policy that determines where the mapped symbol file is found (the search path). This policy is that when reading an existing mapped file, a file of the correct name in the current directory takes precedence over a file of the correct name in the same directory as the symbol file. When creating a new mapped file, it is always created in the current directory. This helps to minimize the chances of a user unknowingly creating big mapped files in places like /bin and /usr/local/bin, and allows a local copy to override a manually installed global copy (in /bin for example). */ static int open_mapped_file (filename, mtime, mapped) char *filename; long mtime; int mapped; { int fd; char *symsfilename; /* First try to open an existing file in the current directory, and then try the directory where the symbol file is located. */ symsfilename = concat ("./", basename (filename), ".syms", (char *) NULL); if ((fd = open_existing_mapped_file (symsfilename, mtime, mapped)) < 0) { free (symsfilename); symsfilename = concat (filename, ".syms", (char *) NULL); fd = open_existing_mapped_file (symsfilename, mtime, mapped); } /* If we don't have an open file by now, then either the file does not already exist, or the base file has changed since it was created. In either case, if the user has specified use of a mapped file, then create a new mapped file, truncating any existing one. If we can't create one, print a system error message saying why we can't. By default the file is rw for everyone, with the user's umask taking care of turning off the permissions the user wants off. */ if ((fd < 0) && mapped) { free (symsfilename); symsfilename = concat ("./", basename (filename), ".syms", (char *) NULL); if ((fd = open (symsfilename, O_RDWR | O_CREAT | O_TRUNC, 0666)) < 0) { if (error_pre_print) { printf_unfiltered (error_pre_print); } print_sys_errmsg (symsfilename, errno); } } free (symsfilename); return (fd); } /* Return the base address at which we would like the next objfile's mapped data to start. For now, we use the kludge that the configuration specifies a base address to which it is safe to map the first mmalloc heap, and an increment to add to this address for each successive heap. There are a lot of issues to deal with here to make this work reasonably, including: Avoid memory collisions with existing mapped address spaces Reclaim address spaces when their mmalloc heaps are unmapped When mmalloc heaps are shared between processes they have to be mapped at the same addresses in each Once created, a mmalloc heap that is to be mapped back in must be mapped at the original address. I.E. each objfile will expect to be remapped at it's original address. This becomes a problem if the desired address is already in use. etc, etc, etc. */ static CORE_ADDR map_to_address () { #if defined(MMAP_BASE_ADDRESS) && defined (MMAP_INCREMENT) static CORE_ADDR next = MMAP_BASE_ADDRESS; CORE_ADDR mapto = next; next += MMAP_INCREMENT; return (mapto); #else return (0); #endif } #endif /* !defined(NO_MMALLOC) && defined(HAVE_MMAP) */ /* Returns a section whose range includes PC or NULL if none found. */ struct obj_section * find_pc_section(pc) CORE_ADDR pc; { struct obj_section *s; struct objfile *objfile; ALL_OBJFILES (objfile) for (s = objfile->sections; s < objfile->sections_end; ++s) if (s->addr <= pc && pc < s->endaddr) return(s); return(NULL); } /* In SVR4, we recognize a trampoline by it's section name. That is, if the pc is in a section named ".plt" then we are in a trampoline. */ int in_plt_section(pc, name) CORE_ADDR pc; char *name; { struct obj_section *s; int retval = 0; s = find_pc_section(pc); retval = (s != NULL && s->the_bfd_section->name != NULL && STREQ (s->the_bfd_section->name, ".plt")); return(retval); } gdb-4.13/gdb/objfiles.h 666 34562 1752 42226 5604431442 13267 0ustar fnfcygnus/* Definitions for symbol file management in GDB. Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (OBJFILES_H) #define OBJFILES_H /* This structure maintains information on a per-objfile basis about the "entry point" of the objfile, and the scope within which the entry point exists. It is possible that gdb will see more than one objfile that is executable, each with its own entry point. For example, for dynamically linked executables in SVR4, the dynamic linker code is contained within the shared C library, which is actually executable and is run by the kernel first when an exec is done of a user executable that is dynamically linked. The dynamic linker within the shared C library then maps in the various program segments in the user executable and jumps to the user executable's recorded entry point, as if the call had been made directly by the kernel. The traditional gdb method of using this info is to use the recorded entry point to set the variables entry_file_lowpc and entry_file_highpc from the debugging information, where these values are the starting address (inclusive) and ending address (exclusive) of the instruction space in the executable which correspond to the "startup file", I.E. crt0.o in most cases. This file is assumed to be a startup file and frames with pc's inside it are treated as nonexistent. Setting these variables is necessary so that backtraces do not fly off the bottom of the stack. Gdb also supports an alternate method to avoid running off the bottom of the stack. There are two frames that are "special", the frame for the function containing the process entry point, since it has no predecessor frame, and the frame for the function containing the user code entry point (the main() function), since all the predecessor frames are for the process startup code. Since we have no guarantee that the linked in startup modules have any debugging information that gdb can use, we need to avoid following frame pointers back into frames that might have been built in the startup code, as we might get hopelessly confused. However, we almost always have debugging information available for main(). These variables are used to save the range of PC values which are valid within the main() function and within the function containing the process entry point. If we always consider the frame for main() as the outermost frame when debugging user code, and the frame for the process entry point function as the outermost frame when debugging startup code, then all we have to do is have FRAME_CHAIN_VALID return false whenever a frame's current PC is within the range specified by these variables. In essence, we set "ceilings" in the frame chain beyond which we will not proceed when following the frame chain back up the stack. A nice side effect is that we can still debug startup code without running off the end of the frame chain, assuming that we have usable debugging information in the startup modules, and if we choose to not use the block at main, or can't find it for some reason, everything still works as before. And if we have no startup code debugging information but we do have usable information for main(), backtraces from user code don't go wandering off into the startup code. To use this method, define your FRAME_CHAIN_VALID macro like: #define FRAME_CHAIN_VALID(chain, thisframe) \ (chain != 0 \ && !(inside_main_func ((thisframe)->pc)) \ && !(inside_entry_func ((thisframe)->pc))) and add initializations of the four scope controlling variables inside the object file / debugging information processing modules. */ struct entry_info { /* The value we should use for this objects entry point. The illegal/unknown value needs to be something other than 0, ~0 for instance, which is much less likely than 0. */ CORE_ADDR entry_point; #define INVALID_ENTRY_POINT (~0) /* ~0 will not be in any file, we hope. */ /* Start (inclusive) and end (exclusive) of function containing the entry point. */ CORE_ADDR entry_func_lowpc; CORE_ADDR entry_func_highpc; /* Start (inclusive) and end (exclusive) of object file containing the entry point. */ CORE_ADDR entry_file_lowpc; CORE_ADDR entry_file_highpc; /* Start (inclusive) and end (exclusive) of the user code main() function. */ CORE_ADDR main_func_lowpc; CORE_ADDR main_func_highpc; /* Use these values when any of the above ranges is invalid. */ /* We use these values because it guarantees that there is no number that is both >= LOWPC && < HIGHPC. It is also highly unlikely that 3 is a valid module or function start address (as opposed to 0). */ #define INVALID_ENTRY_LOWPC (3) #define INVALID_ENTRY_HIGHPC (1) }; /* Sections in an objfile. It is strange that we have both this notion of "sections" and the one used by section_offsets. Section as used here, (currently at least) means a BFD section, and the sections are set up from the BFD sections in allocate_objfile. The sections in section_offsets have their meaning determined by the symbol format, and they are set up by the sym_offsets function for that symbol file format. I'm not sure this could or should be changed, however. */ struct obj_section { CORE_ADDR addr; /* lowest address in section */ CORE_ADDR endaddr; /* 1+highest address in section */ /* This field is being used for nefarious purposes by syms_from_objfile. It is said to be redundant with section_offsets; it's not really being used that way, however, it's some sort of hack I don't understand and am not going to try to eliminate (yet, anyway). FIXME. It was documented as "offset between (end)addr and actual memory addresses", but that's not true; addr & endaddr are actual memory addresses. */ CORE_ADDR offset; sec_ptr the_bfd_section; /* BFD section pointer */ /* Objfile this section is part of. */ struct objfile *objfile; }; /* Master structure for keeping track of each file from which gdb reads symbols. There are several ways these get allocated: 1. The main symbol file, symfile_objfile, set by the symbol-file command, 2. Additional symbol files added by the add-symbol-file command, 3. Shared library objfiles, added by ADD_SOLIB, 4. symbol files for modules that were loaded when GDB attached to a remote system (see remote-vx.c). */ struct objfile { /* All struct objfile's are chained together by their next pointers. The global variable "object_files" points to the first link in this chain. FIXME: There is a problem here if the objfile is reusable, and if multiple users are to be supported. The problem is that the objfile list is linked through a member of the objfile struct itself, which is only valid for one gdb process. The list implementation needs to be changed to something like: struct list {struct list *next; struct objfile *objfile}; where the list structure is completely maintained separately within each gdb process. */ struct objfile *next; /* The object file's name. Malloc'd; free it if you free this struct. */ char *name; /* Some flag bits for this objfile. */ unsigned short flags; /* Each objfile points to a linked list of symtabs derived from this file, one symtab structure for each compilation unit (source file). Each link in the symtab list contains a backpointer to this objfile. */ struct symtab *symtabs; /* Each objfile points to a linked list of partial symtabs derived from this file, one partial symtab structure for each compilation unit (source file). */ struct partial_symtab *psymtabs; /* List of freed partial symtabs, available for re-use */ struct partial_symtab *free_psymtabs; /* The object file's BFD. Can be null, in which case bfd_open (name) and put the result here. */ bfd *obfd; /* The modification timestamp of the object file, as of the last time we read its symbols. */ long mtime; /* Obstacks to hold objects that should be freed when we load a new symbol table from this object file. */ struct obstack psymbol_obstack; /* Partial symbols */ struct obstack symbol_obstack; /* Full symbols */ struct obstack type_obstack; /* Types */ /* Vectors of all partial symbols read in from file. The actual data is stored in the psymbol_obstack. */ struct psymbol_allocation_list global_psymbols; struct psymbol_allocation_list static_psymbols; /* Each file contains a pointer to an array of minimal symbols for all global symbols that are defined within the file. The array is terminated by a "null symbol", one that has a NULL pointer for the name and a zero value for the address. This makes it easy to walk through the array when passed a pointer to somewhere in the middle of it. There is also a count of the number of symbols, which does include the terminating null symbol. The array itself, as well as all the data that it points to, should be allocated on the symbol_obstack for this file. */ struct minimal_symbol *msymbols; int minimal_symbol_count; /* For object file formats which don't specify fundamental types, gdb can create such types. For now, it maintains a vector of pointers to these internally created fundamental types on a per objfile basis, however it really should ultimately keep them on a per-compilation-unit basis, to account for linkage-units that consist of a number of compilation units that may have different fundamental types, such as linking C modules with ADA modules, or linking C modules that are compiled with 32-bit ints with C modules that are compiled with 64-bit ints (not inherently evil with a smarter linker). */ struct type **fundamental_types; /* The mmalloc() malloc-descriptor for this objfile if we are using the memory mapped malloc() package to manage storage for this objfile's data. NULL if we are not. */ PTR md; /* The file descriptor that was used to obtain the mmalloc descriptor for this objfile. If we call mmalloc_detach with the malloc descriptor we should then close this file descriptor. */ int mmfd; /* Structure which keeps track of functions that manipulate objfile's of the same type as this objfile. I.E. the function to read partial symbols for example. Note that this structure is in statically allocated memory, and is shared by all objfiles that use the object module reader of this type. */ struct sym_fns *sf; /* The per-objfile information about the entry point, the scope (file/func) containing the entry point, and the scope of the user's main() func. */ struct entry_info ei; /* Information about stabs. Will be filled in with a dbx_symfile_info struct by those readers that need it. */ PTR sym_stab_info; /* Hook for information for use by the symbol reader (currently used for information shared by sym_init and sym_read). It is typically a pointer to malloc'd memory. The symbol reader's finish function is responsible for freeing the memory thusly allocated. */ PTR sym_private; /* Hook for target-architecture-specific information. This must point to memory allocated on one of the obstacks in this objfile, so that it gets freed automatically when reading a new object file. */ PTR obj_private; /* Set of relocation offsets to apply to each section. Currently on the psymbol_obstack (which makes no sense, but I'm not sure it's harming anything). These offsets indicate that all symbols (including partial and minimal symbols) which have been read have been relocated by this much. Symbols which are yet to be read need to be relocated by it. */ struct section_offsets *section_offsets; int num_sections; /* set of section begin and end addresses used to map pc addresses into sections. Currently on the psymbol_obstack (which makes no sense, but I'm not sure it's harming anything). */ struct obj_section *sections, *sections_end; /* two auxiliary fields, used to hold the fp of separate symbol files */ FILE *auxf1, *auxf2; }; /* Defines for the objfile flag word. */ /* Gdb can arrange to allocate storage for all objects related to a particular objfile in a designated section of its address space, managed at a low level by mmap() and using a special version of malloc that handles malloc/free/realloc on top of the mmap() interface. This allows the "internal gdb state" for a particular objfile to be dumped to a gdb state file and subsequently reloaded at a later time. */ #define OBJF_MAPPED (1 << 0) /* Objfile data is mmap'd */ /* When using mapped/remapped predigested gdb symbol information, we need a flag that indicates that we have previously done an initial symbol table read from this particular objfile. We can't just look for the absence of any of the three symbol tables (msymbols, psymtab, symtab) because if the file has no symbols for example, none of these will exist. */ #define OBJF_SYMS (1 << 1) /* Have tried to read symbols */ /* The object file that the main symbol table was loaded from (e.g. the argument to the "symbol-file" or "file" command). */ extern struct objfile *symfile_objfile; /* When we need to allocate a new type, we need to know which type_obstack to allocate the type on, since there is one for each objfile. The places where types are allocated are deeply buried in function call hierarchies which know nothing about objfiles, so rather than trying to pass a particular objfile down to them, we just do an end run around them and set current_objfile to be whatever objfile we expect to be using at the time types are being allocated. For instance, when we start reading symbols for a particular objfile, we set current_objfile to point to that objfile, and when we are done, we set it back to NULL, to ensure that we never put a type someplace other than where we are expecting to put it. FIXME: Maybe we should review the entire type handling system and see if there is a better way to avoid this problem. */ extern struct objfile *current_objfile; /* All known objfiles are kept in a linked list. This points to the root of this list. */ extern struct objfile *object_files; /* Declarations for functions defined in objfiles.c */ extern struct objfile * allocate_objfile PARAMS ((bfd *, int)); extern int build_objfile_section_table PARAMS ((struct objfile *)); extern void unlink_objfile PARAMS ((struct objfile *)); extern void free_objfile PARAMS ((struct objfile *)); extern void free_all_objfiles PARAMS ((void)); extern void objfile_relocate PARAMS ((struct objfile *, struct section_offsets *)); extern int have_partial_symbols PARAMS ((void)); extern int have_full_symbols PARAMS ((void)); /* Functions for dealing with the minimal symbol table, really a misc address<->symbol mapping for things we don't have debug symbols for. */ extern int have_minimal_symbols PARAMS ((void)); extern struct obj_section * find_pc_section PARAMS((CORE_ADDR pc)); /* Traverse all object files. ALL_OBJFILES_SAFE works even if you delete the objfile during the traversal. */ #define ALL_OBJFILES(obj) \ for ((obj) = object_files; (obj) != NULL; (obj) = (obj)->next) #define ALL_OBJFILES_SAFE(obj,nxt) \ for ((obj) = object_files; \ (obj) != NULL? ((nxt)=(obj)->next,1) :0; \ (obj) = (nxt)) /* Traverse all symtabs in one objfile. */ #define ALL_OBJFILE_SYMTABS(objfile, s) \ for ((s) = (objfile) -> symtabs; (s) != NULL; (s) = (s) -> next) /* Traverse all psymtabs in one objfile. */ #define ALL_OBJFILE_PSYMTABS(objfile, p) \ for ((p) = (objfile) -> psymtabs; (p) != NULL; (p) = (p) -> next) /* Traverse all minimal symbols in one objfile. */ #define ALL_OBJFILE_MSYMBOLS(objfile, m) \ for ((m) = (objfile) -> msymbols; SYMBOL_NAME(m) != NULL; (m)++) /* Traverse all symtabs in all objfiles. */ #define ALL_SYMTABS(objfile, s) \ ALL_OBJFILES (objfile) \ ALL_OBJFILE_SYMTABS (objfile, s) /* Traverse all psymtabs in all objfiles. */ #define ALL_PSYMTABS(objfile, p) \ ALL_OBJFILES (objfile) \ ALL_OBJFILE_PSYMTABS (objfile, p) /* Traverse all minimal symbols in all objfiles. */ #define ALL_MSYMBOLS(objfile, m) \ ALL_OBJFILES (objfile) \ if ((objfile)->msymbols) \ ALL_OBJFILE_MSYMBOLS (objfile, m) #endif /* !defined (OBJFILES_H) */ gdb-4.13/gdb/os9kread.c 666 34562 1752 144745 5606462352 13245 0ustar fnfcygnus/* Read os9/os9k symbol tables and convert to internal format, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This module provides three functions: os9k_symfile_init, which initializes to read a symbol file; os9k_new_init, which discards existing cached information when all symbols are being discarded; and os9k_symfile_read, which reads a symbol table from a file. os9k_symfile_read only does the minimum work necessary for letting the user "name" things symbolically; it does not read the entire symtab. Instead, it reads the external and static symbols and puts them in partial symbol tables. When more extensive information is requested of a file, the corresponding partial symbol table is mutated into a full fledged symbol table by going back and reading the symbols for real. os9k_psymtab_to_symtab() is the function that does this */ #include "defs.h" #include #include #if defined(USG) || defined(__CYGNUSCLIB__) #include #include #endif #include #include #ifndef NO_SYS_FILE #include #endif #include #include #include "symtab.h" #include "breakpoint.h" #include "command.h" #include "target.h" #include "gdbcore.h" /* for bfd stuff */ #include "libbfd.h" /* FIXME Secret internal BFD stuff (bfd_read) */ #include "libaout.h" /* FIXME Secret internal BFD stuff for a.out */ #include "symfile.h" #include "objfiles.h" #include "buildsym.h" #include "gdb-stabs.h" #include "demangle.h" #include "language.h" /* Needed inside partial-stab.h */ #include "complaints.h" #include "os9k.h" #include "stabsread.h" #if !defined (SEEK_SET) #define SEEK_SET 0 #define SEEK_CUR 1 #endif /* Each partial symbol table entry contains a pointer to private data for the read_symtab() function to use when expanding a partial symbol table entry to a full symbol table entry. For dbxread this structure contains the offset within the file symbol table of first local symbol for this file, and count of the section of the symbol table devoted to this file's symbols (actually, the section bracketed may contain more than just this file's symbols). It also contains further information needed to locate the symbols if they are in an ELF file. If ldsymcnt is 0, the only reason for this thing's existence is the dependency list. Nothing else will happen when it is read in. */ #define LDSYMOFF(p) (((struct symloc *)((p)->read_symtab_private))->ldsymoff) #define LDSYMCNT(p) (((struct symloc *)((p)->read_symtab_private))->ldsymnum) struct symloc { int ldsymoff; int ldsymnum; }; /* Remember what we deduced to be the source language of this psymtab. */ static enum language psymtab_language = language_unknown; /* keep partial symbol table file nested depth */ static int psymfile_depth = 0; /* keep symbol table file nested depth */ static int symfile_depth = 0; /* Nonzero means give verbose info on gdb action. From main.c. */ extern int info_verbose; extern int previous_stab_code; /* Name of last function encountered. Used in Solaris to approximate object file boundaries. */ static char *last_function_name; /* Complaints about the symbols we have encountered. */ extern struct complaint lbrac_complaint; extern struct complaint unknown_symtype_complaint; extern struct complaint unknown_symchar_complaint; extern struct complaint lbrac_rbrac_complaint; extern struct complaint repeated_header_complaint; extern struct complaint repeated_header_name_complaint; #if 0 static struct complaint lbrac_unmatched_complaint = {"unmatched Increment Block Entry before symtab pos %d", 0, 0}; static struct complaint lbrac_mismatch_complaint = {"IBE/IDE symbol mismatch at symtab pos %d", 0, 0}; #endif /* Local function prototypes */ static void os9k_read_ofile_symtab PARAMS ((struct partial_symtab *)); static void os9k_psymtab_to_symtab PARAMS ((struct partial_symtab *)); static void os9k_psymtab_to_symtab_1 PARAMS ((struct partial_symtab *)); static void read_os9k_psymtab PARAMS ((struct section_offsets *, struct objfile *, CORE_ADDR, int)); static void init_psymbol_list PARAMS ((struct objfile *)); static int fill_sym PARAMS ((FILE *, bfd *)); static void os9k_symfile_init PARAMS ((struct objfile *)); static void os9k_new_init PARAMS ((struct objfile *)); static void os9k_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int)); static void os9k_symfile_finish PARAMS ((struct objfile *)); static void os9k_process_one_symbol PARAMS ((int, int, CORE_ADDR, char *, struct section_offsets *, struct objfile *)); static struct partial_symtab * os9k_start_psymtab PARAMS ((struct objfile *, struct section_offsets *, char *, CORE_ADDR, int, int, struct partial_symbol *, struct partial_symbol *)); static struct partial_symtab * os9k_end_psymtab PARAMS ((struct partial_symtab *, char **, int, int, CORE_ADDR, struct partial_symtab **, int)); static void record_minimal_symbol PARAMS ((char *, CORE_ADDR, int, struct objfile *, struct section_offsets *)); #define HANDLE_RBRAC(val) \ if ((val) > pst->texthigh) pst->texthigh = (val); #define SWAP_STBHDR(hdrp, abfd) \ { \ (hdrp)->fmtno = bfd_get_16(abfd, (unsigned char *)&(hdrp)->fmtno); \ (hdrp)->crc = bfd_get_32(abfd, (unsigned char *)&(hdrp)->crc); \ (hdrp)->offset = bfd_get_32(abfd, (unsigned char *)&(hdrp)->offset); \ (hdrp)->nsym = bfd_get_32(abfd, (unsigned char *)&(hdrp)->nsym); \ } #define SWAP_STBSYM(symp, abfd) \ { \ (symp)->value = bfd_get_32(abfd, (unsigned char *)&(symp)->value); \ (symp)->type = bfd_get_16(abfd, (unsigned char *)&(symp)->type); \ (symp)->stroff = bfd_get_32(abfd, (unsigned char *)&(symp)->stroff); \ } #define N_DATA 0 #define N_BSS 1 #define N_RDATA 2 #define N_IDATA 3 #define N_TEXT 4 #define N_ABS 6 static void record_minimal_symbol (name, address, type, objfile, section_offsets) char *name; CORE_ADDR address; int type; struct objfile *objfile; struct section_offsets *section_offsets; { enum minimal_symbol_type ms_type; switch (type) { case N_TEXT: ms_type = mst_text; address += ANOFFSET(section_offsets, SECT_OFF_TEXT); break; case N_DATA: ms_type = mst_data; break; case N_BSS: ms_type = mst_bss; break; case N_RDATA: ms_type = mst_bss; break; case N_IDATA: ms_type = mst_data; break; case N_ABS: ms_type = mst_abs; break; default: ms_type = mst_unknown; break; } prim_record_minimal_symbol (obsavestring (name, strlen(name), &objfile->symbol_obstack), address, ms_type, objfile); } /* read and process .stb file and store in minimal symbol table */ typedef char mhhdr[80]; struct stbhdr { mhhdr comhdr; char * name; short fmtno; int crc; int offset; int nsym; char *pad; }; struct stbsymbol { int value; short type; int stroff; }; #define STBSYMSIZE 10 static void read_minimal_symbols(objfile, section_offsets) struct objfile *objfile; struct section_offsets *section_offsets; { FILE *fp; bfd *abfd; struct stbhdr hdr; struct stbsymbol sym; int ch, i, j, off; char buf[64], buf1[128]; fp = objfile->auxf1; if (fp == NULL) return; abfd = objfile->obfd; fread(&hdr.comhdr[0], sizeof(mhhdr), 1, fp); i = 0; ch = getc(fp); while (ch != -1) { buf[i] = (char)ch; i++; if (ch == 0) break; ch = getc(fp); }; if (i%2) ch=getc(fp); hdr.name = &buf[0]; fread(&hdr.fmtno, sizeof(hdr.fmtno), 1, fp); fread(&hdr.crc, sizeof(hdr.crc), 1, fp); fread(&hdr.offset, sizeof(hdr.offset), 1, fp); fread(&hdr.nsym, sizeof(hdr.nsym), 1, fp); SWAP_STBHDR(&hdr, abfd); /* read symbols */ init_minimal_symbol_collection(); off = hdr.offset; for (i = hdr.nsym; i > 0; i--) { fseek(fp, (long)off, 0); fread(&sym.value, sizeof(sym.value), 1, fp); fread(&sym.type, sizeof(sym.type), 1, fp); fread(&sym.stroff, sizeof(sym.stroff), 1, fp); SWAP_STBSYM (&sym, abfd); fseek(fp, (long)sym.stroff, 0); j = 0; ch = getc(fp); while (ch != -1) { buf1[j] = (char)ch; j++; if (ch == 0) break; ch = getc(fp); }; record_minimal_symbol(buf1, sym.value, sym.type&7, objfile, section_offsets); off += STBSYMSIZE; }; install_minimal_symbols (objfile); return; } /* Scan and build partial symbols for a symbol file. We have been initialized by a call to os9k_symfile_init, which put all the relevant info into a "struct os9k_symfile_info", hung off the objfile structure. SECTION_OFFSETS contains offsets relative to which the symbols in the various sections are (depending where the sections were actually loaded). MAINLINE is true if we are reading the main symbol table (as opposed to a shared lib or dynamically loaded file). */ static void os9k_symfile_read (objfile, section_offsets, mainline) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; /* FIXME comments above */ { bfd *sym_bfd; struct cleanup *back_to; sym_bfd = objfile->obfd; /* If we are reinitializing, or if we have never loaded syms yet, init */ if (mainline || objfile->global_psymbols.size == 0 || objfile->static_psymbols.size == 0) init_psymbol_list (objfile); pending_blocks = 0; back_to = make_cleanup (really_free_pendings, 0); make_cleanup (discard_minimal_symbols, 0); read_minimal_symbols (objfile, section_offsets); /* Now that the symbol table data of the executable file are all in core, process them and define symbols accordingly. */ read_os9k_psymtab (section_offsets, objfile, bfd_section_vma (sym_bfd, DBX_TEXT_SECT (objfile)), bfd_section_size (sym_bfd, DBX_TEXT_SECT (objfile))); do_cleanups (back_to); } /* Initialize anything that needs initializing when a completely new symbol file is specified (not just adding some symbols from another file, e.g. a shared library). */ static void os9k_new_init (ignore) struct objfile *ignore; { stabsread_new_init (); buildsym_new_init (); psymfile_depth = 0; /* init_header_files (); */ } /* os9k_symfile_init () It is passed a struct objfile which contains, among other things, the BFD for the file whose symbols are being read, and a slot for a pointer to "private data" which we fill with goodies. Since BFD doesn't know how to read debug symbols in a format-independent way (and may never do so...), we have to do it ourselves. We will never be called unless this is an a.out (or very similar) file. FIXME, there should be a cleaner peephole into the BFD environment here. */ static void os9k_symfile_init (objfile) struct objfile *objfile; { bfd *sym_bfd = objfile->obfd; char *name = bfd_get_filename (sym_bfd); char dbgname[512], stbname[512]; FILE *symfile = 0; FILE *minfile = 0; strcpy(dbgname, name); strcat(dbgname, ".dbg"); strcpy(stbname, name); strcat(stbname, ".stb"); if ((symfile = fopen(dbgname, "r")) == NULL) { warning("Symbol file %s not found", dbgname); } objfile->auxf2 = symfile; if ((minfile = fopen(stbname, "r")) == NULL) { warning("Symbol file %s not found", stbname); } objfile->auxf1 = minfile; /* Allocate struct to keep track of the symfile */ objfile->sym_stab_info = (PTR) xmmalloc (objfile -> md, sizeof (struct dbx_symfile_info)); DBX_SYMFILE_INFO (objfile)->stab_section_info = NULL; DBX_TEXT_SECT (objfile) = bfd_get_section_by_name (sym_bfd, ".text"); if (!DBX_TEXT_SECT (objfile)) error ("Can't find .text section in file"); DBX_SYMBOL_SIZE (objfile) = 0; /* variable size symbol */ DBX_SYMCOUNT (objfile) = 0; /* used to be bfd_get_symcount(sym_bfd) */ DBX_SYMTAB_OFFSET (objfile) = 0; /* used to be SYMBOL_TABLE_OFFSET */ } /* Perform any local cleanups required when we are done with a particular objfile. I.E, we are in the process of discarding all symbol information for an objfile, freeing up all memory held for it, and unlinking the objfile struct from the global list of known objfiles. */ static void os9k_symfile_finish (objfile) struct objfile *objfile; { if (objfile->sym_stab_info != NULL) { mfree (objfile -> md, objfile->sym_stab_info); } /* free_header_files (); */ } struct st_dbghdr { int sync; short rev; int crc; short os; short cpu; }; #define SYNC (int)0xefbefeca #define SWAP_DBGHDR(hdrp, abfd) \ { \ (hdrp)->sync = bfd_get_32(abfd, (unsigned char *)&(hdrp)->sync); \ (hdrp)->rev = bfd_get_16(abfd, (unsigned char *)&(hdrp)->rev); \ (hdrp)->crc = bfd_get_32(abfd, (unsigned char *)&(hdrp)->crc); \ (hdrp)->os = bfd_get_16(abfd, (unsigned char *)&(hdrp)->os); \ (hdrp)->cpu = bfd_get_16(abfd, (unsigned char *)&(hdrp)->cpu); \ } #define N_SYM_CMPLR 0 #define N_SYM_SLINE 1 #define N_SYM_SYM 2 #define N_SYM_LBRAC 3 #define N_SYM_RBRAC 4 #define N_SYM_SE 5 struct internal_symstruct { short n_type; short n_desc; long n_value; char * n_strx; }; static struct internal_symstruct symbol; static struct internal_symstruct *symbuf = &symbol; static char strbuf[4096]; static struct st_dbghdr dbghdr; static short cmplrid; #define VER_PRE_ULTRAC ((short)4) #define VER_ULTRAC ((short)5) static int fill_sym (dbg_file, abfd) FILE *dbg_file; bfd *abfd; { short si, nmask; long li; int ii; char *p; int nbytes = fread(&si, sizeof(si), 1, dbg_file); if (nbytes == 0) return 0; if (nbytes < 0) perror_with_name ("reading .dbg file."); symbuf->n_desc = 0; symbuf->n_value = 0; symbuf->n_strx = NULL; symbuf->n_type = bfd_get_16 (abfd, (unsigned char *)&si); symbuf->n_type = 0xf & symbuf->n_type; switch (symbuf->n_type) { case N_SYM_CMPLR: fread(&si, sizeof(si), 1, dbg_file); symbuf->n_desc = bfd_get_16(abfd, (unsigned char *)&si); cmplrid = symbuf->n_desc & 0xff; break; case N_SYM_SLINE: fread(&li, sizeof(li), 1, dbg_file); symbuf->n_value = bfd_get_32(abfd, (unsigned char *)&li); fread(&li, sizeof(li), 1, dbg_file); li = bfd_get_32(abfd, (unsigned char *)&li); symbuf->n_strx = (char *)(li >> 12); symbuf->n_desc = li & 0xfff; break; case N_SYM_SYM: fread(&li, sizeof(li), 1, dbg_file); symbuf->n_value = bfd_get_32(abfd, (unsigned char *)&li); si = 0; do { ii = getc(dbg_file); strbuf[si++] = (char) ii; } while (ii != 0 || si % 2 != 0); symbuf->n_strx = strbuf; p = (char *) strchr (strbuf, ':'); if (!p) break; if ((p[1] == 'F' || p[1] == 'f') && cmplrid == VER_PRE_ULTRAC) { fread(&si, sizeof(si), 1, dbg_file); nmask = bfd_get_16(abfd, (unsigned char *)&si); for (ii=0; iin_value = bfd_get_32(abfd, (unsigned char *)&li); break; case N_SYM_RBRAC: fread(&li, sizeof(li), 1, dbg_file); symbuf->n_value = bfd_get_32(abfd, (unsigned char *)&li); break; case N_SYM_SE: break; } return 1; } /* Initializes storage for all of the partial symbols that will be created by read_dbx_symtab and subsidiaries. */ static void init_psymbol_list (objfile) struct objfile *objfile; { /* Free any previously allocated psymbol lists. */ if (objfile -> global_psymbols.list) mfree (objfile -> md, (PTR)objfile -> global_psymbols.list); if (objfile -> static_psymbols.list) mfree (objfile -> md, (PTR)objfile -> static_psymbols.list); /* Current best guess is that there are approximately a twentieth of the total symbols (in a debugging file) are global or static oriented symbols */ objfile -> global_psymbols.size = DBX_SYMCOUNT (objfile) / 10; objfile -> static_psymbols.size = DBX_SYMCOUNT (objfile) / 10; objfile -> global_psymbols.next = objfile -> global_psymbols.list = (struct partial_symbol *) xmmalloc (objfile -> md, objfile -> global_psymbols.size * sizeof (struct partial_symbol)); objfile -> static_psymbols.next = objfile -> static_psymbols.list = (struct partial_symbol *) xmmalloc (objfile -> md, objfile -> static_psymbols.size * sizeof (struct partial_symbol)); } /* Given pointers to an a.out symbol table in core containing dbx style data, setup partial_symtab's describing each source file for which debugging information is available. SYMFILE_NAME is the name of the file we are reading from and SECTION_OFFSETS is the set of offsets for the various sections of the file (a set of zeros if the mainline program). */ static void read_os9k_psymtab (section_offsets, objfile, text_addr, text_size) struct section_offsets *section_offsets; struct objfile *objfile; CORE_ADDR text_addr; int text_size; { register struct internal_symstruct *bufp = 0; /* =0 avoids gcc -Wall glitch*/ register char *namestring; int past_first_source_file = 0; CORE_ADDR last_o_file_start = 0; #if 0 struct cleanup *back_to; #endif bfd *abfd; FILE *fp; /* End of the text segment of the executable file. */ static CORE_ADDR end_of_text_addr; /* Current partial symtab */ static struct partial_symtab *pst = 0; /* List of current psymtab's include files */ char **psymtab_include_list; int includes_allocated; int includes_used; /* Index within current psymtab dependency list */ struct partial_symtab **dependency_list; int dependencies_used, dependencies_allocated; includes_allocated = 30; includes_used = 0; psymtab_include_list = (char **) alloca (includes_allocated * sizeof (char *)); dependencies_allocated = 30; dependencies_used = 0; dependency_list = (struct partial_symtab **) alloca (dependencies_allocated * sizeof (struct partial_symtab *)); last_source_file = NULL; #ifdef END_OF_TEXT_DEFAULT end_of_text_addr = END_OF_TEXT_DEFAULT; #else end_of_text_addr = text_addr + section_offsets->offsets[SECT_OFF_TEXT] + text_size; /* Relocate */ #endif abfd = objfile->obfd; fp = objfile->auxf2; if (!fp) return; fread(&dbghdr.sync, sizeof(dbghdr.sync), 1, fp); fread(&dbghdr.rev, sizeof(dbghdr.rev), 1, fp); fread(&dbghdr.crc, sizeof(dbghdr.crc), 1, fp); fread(&dbghdr.os, sizeof(dbghdr.os), 1, fp); fread(&dbghdr.cpu, sizeof(dbghdr.cpu), 1, fp); SWAP_DBGHDR(&dbghdr, abfd); symnum = 0; while(1) { int ret; long cursymoffset; /* Get the symbol for this run and pull out some info */ QUIT; /* allow this to be interruptable */ cursymoffset = ftell(objfile->auxf2); ret = fill_sym(objfile->auxf2, abfd); if (ret <= 0) break; else symnum++; bufp = symbuf; /* Special case to speed up readin. */ if (bufp->n_type == (short)N_SYM_SLINE) continue; #define CUR_SYMBOL_VALUE bufp->n_value /* partial-stab.h */ switch (bufp->n_type) { char *p; case N_SYM_CMPLR: continue; case N_SYM_SE: CUR_SYMBOL_VALUE += ANOFFSET(section_offsets, SECT_OFF_TEXT); if (psymfile_depth == 1 && pst) { os9k_end_psymtab (pst, psymtab_include_list, includes_used, symnum, CUR_SYMBOL_VALUE, dependency_list, dependencies_used); pst = (struct partial_symtab *) 0; includes_used = 0; dependencies_used = 0; } psymfile_depth--; continue; case N_SYM_SYM: /* Typedef or automatic variable. */ namestring = bufp->n_strx; p = (char *) strchr (namestring, ':'); if (!p) continue; /* Not a debugging symbol. */ /* Main processing section for debugging symbols which the initial read through the symbol tables needs to worry about. If we reach this point, the symbol which we are considering is definitely one we are interested in. p must also contain the (valid) index into the namestring which indicates the debugging type symbol. */ switch (p[1]) { case 'S' : { unsigned long valu; enum language tmp_language; char *str, *p; int n; valu = CUR_SYMBOL_VALUE; if (valu) valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); past_first_source_file = 1; p = strchr(namestring, ':'); if (p) n = p-namestring; else n = strlen(namestring); str = alloca(n+1); strncpy(str, namestring, n); str[n] = '\0'; if (psymfile_depth == 0) { if (!pst) pst = os9k_start_psymtab (objfile, section_offsets, str, valu, cursymoffset, symnum-1, objfile -> global_psymbols.next, objfile -> static_psymbols.next); } else { /* this is a include file */ tmp_language = deduce_language_from_filename (str); if (tmp_language != language_unknown && (tmp_language != language_c || psymtab_language != language_cplus)) psymtab_language = tmp_language; /* if (pst && STREQ (str, pst->filename)) continue; { register int i; for (i = 0; i < includes_used; i++) if (STREQ (str, psymtab_include_list[i])) { i = -1; break; } if (i == -1) continue; } */ psymtab_include_list[includes_used++] = str; if (includes_used >= includes_allocated) { char **orig = psymtab_include_list; psymtab_include_list = (char **) alloca ((includes_allocated *= 2) * sizeof (char *)); memcpy ((PTR)psymtab_include_list, (PTR)orig, includes_used * sizeof (char *)); } } psymfile_depth++; continue; } case 'v': ADD_PSYMBOL_ADDR_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_STATIC, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; case 'V': ADD_PSYMBOL_ADDR_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_STATIC, objfile->global_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; case 'T': if (p != namestring) /* a name is there, not just :T... */ { ADD_PSYMBOL_TO_LIST (namestring, p - namestring, STRUCT_NAMESPACE, LOC_TYPEDEF, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); if (p[2] == 't') { /* Also a typedef with the same name. */ ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_TYPEDEF, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); p += 1; } /* The semantics of C++ state that "struct foo { ... }" also defines a typedef for "foo". Unfortuantely, cfront never makes the typedef when translating from C++ to C. We make the typedef here so that "ptype foo" works as expected for cfront translated code. */ else if (psymtab_language == language_cplus) { /* Also a typedef with the same name. */ ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_TYPEDEF, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); } } goto check_enum; case 't': if (p != namestring) /* a name is there, not just :T... */ { ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_TYPEDEF, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); } check_enum: /* If this is an enumerated type, we need to add all the enum constants to the partial symbol table. This does not cover enums without names, e.g. "enum {a, b} c;" in C, but fortunately those are rare. There is no way for GDB to find those from the enum type without spending too much time on it. Thus to solve this problem, the compiler needs to put out the enum in a nameless type. GCC2 does this. */ /* We are looking for something of the form ":" ("t" | "T") [ "="] "e" { ":" ","} ";". */ /* Skip over the colon and the 't' or 'T'. */ p += 2; /* This type may be given a number. Also, numbers can come in pairs like (0,26). Skip over it. */ while ((*p >= '0' && *p <= '9') || *p == '(' || *p == ',' || *p == ')' || *p == '=') p++; if (*p++ == 'e') { /* We have found an enumerated type. skip size */ while (*p >= '0' && *p <= '9') p++; /* According to comments in read_enum_type a comma could end it instead of a semicolon. I don't know where that happens. Accept either. */ while (*p && *p != ';' && *p != ',') { char *q; /* Check for and handle cretinous dbx symbol name continuation! if (*p == '\\') p = next_symbol_text (); */ /* Point to the character after the name of the enum constant. */ for (q = p; *q && *q != ':'; q++) ; /* Note that the value doesn't matter for enum constants in psymtabs, just in symtabs. */ ADD_PSYMBOL_TO_LIST (p, q - p, VAR_NAMESPACE, LOC_CONST, objfile->static_psymbols, 0, psymtab_language, objfile); /* Point past the name. */ p = q; /* Skip over the value. */ while (*p && *p != ',') p++; /* Advance past the comma. */ if (*p) p++; } } continue; case 'c': /* Constant, e.g. from "const" in Pascal. */ ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_CONST, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; case 'f': CUR_SYMBOL_VALUE += ANOFFSET(section_offsets, SECT_OFF_TEXT); if (pst && pst->textlow == 0) pst->textlow = CUR_SYMBOL_VALUE; ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_BLOCK, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; case 'F': CUR_SYMBOL_VALUE += ANOFFSET(section_offsets, SECT_OFF_TEXT); if (pst && pst->textlow == 0) pst->textlow = CUR_SYMBOL_VALUE; ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_BLOCK, objfile->global_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; case 'p': case 'l': case 's': continue; case ':': /* It is a C++ nested symbol. We don't need to record it (I don't think); if we try to look up foo::bar::baz, then symbols for the symtab containing foo should get read in, I think. */ /* Someone says sun cc puts out symbols like /foo/baz/maclib::/usr/local/bin/maclib, which would get here with a symbol type of ':'. */ continue; default: /* Unexpected symbol descriptor. The second and subsequent stabs of a continued stab can show up here. The question is whether they ever can mimic a normal stab--it would be nice if not, since we certainly don't want to spend the time searching to the end of every string looking for a backslash. */ complain (&unknown_symchar_complaint, p[1]); continue; } case N_SYM_RBRAC: CUR_SYMBOL_VALUE += ANOFFSET(section_offsets, SECT_OFF_TEXT); #ifdef HANDLE_RBRAC HANDLE_RBRAC(CUR_SYMBOL_VALUE); continue; #endif case N_SYM_LBRAC: continue; default: /* If we haven't found it yet, ignore it. It's probably some new type we don't know about yet. */ complain (&unknown_symtype_complaint, local_hex_string ((unsigned long) bufp->n_type)); continue; } } DBX_SYMCOUNT (objfile) = symnum; /* If there's stuff to be cleaned up, clean it up. */ if (DBX_SYMCOUNT (objfile) > 0 /*FIXME, does this have a bug at start address 0? */ && last_o_file_start && objfile -> ei.entry_point < bufp->n_value && objfile -> ei.entry_point >= last_o_file_start) { objfile -> ei.entry_file_lowpc = last_o_file_start; objfile -> ei.entry_file_highpc = bufp->n_value; } if (pst) { os9k_end_psymtab (pst, psymtab_include_list, includes_used, symnum, end_of_text_addr, dependency_list, dependencies_used); } /* do_cleanups (back_to); */ } /* Allocate and partially fill a partial symtab. It will be completely filled at the end of the symbol list. SYMFILE_NAME is the name of the symbol-file we are reading from, and ADDR is the address relative to which its symbols are (incremental) or 0 (normal). */ static struct partial_symtab * os9k_start_psymtab (objfile, section_offsets, filename, textlow, ldsymoff,ldsymcnt, global_syms, static_syms) struct objfile *objfile; struct section_offsets *section_offsets; char *filename; CORE_ADDR textlow; int ldsymoff; int ldsymcnt; struct partial_symbol *global_syms; struct partial_symbol *static_syms; { struct partial_symtab *result = start_psymtab_common(objfile, section_offsets, filename, textlow, global_syms, static_syms); result->read_symtab_private = (char *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct symloc)); LDSYMOFF(result) = ldsymoff; LDSYMCNT(result) = ldsymcnt; result->read_symtab = os9k_psymtab_to_symtab; /* Deduce the source language from the filename for this psymtab. */ psymtab_language = deduce_language_from_filename (filename); return result; } /* Close off the current usage of PST. Returns PST or NULL if the partial symtab was empty and thrown away. FIXME: List variables and peculiarities of same. */ static struct partial_symtab * os9k_end_psymtab (pst, include_list, num_includes, capping_symbol_cnt, capping_text, dependency_list, number_dependencies) struct partial_symtab *pst; char **include_list; int num_includes; int capping_symbol_cnt; CORE_ADDR capping_text; struct partial_symtab **dependency_list; int number_dependencies; /* struct partial_symbol *capping_global, *capping_static;*/ { int i; struct partial_symtab *p1; struct objfile *objfile = pst -> objfile; if (capping_symbol_cnt != -1) LDSYMCNT(pst) = capping_symbol_cnt - LDSYMCNT(pst); /* Under Solaris, the N_SO symbols always have a value of 0, instead of the usual address of the .o file. Therefore, we have to do some tricks to fill in texthigh and textlow. The first trick is in partial-stab.h: if we see a static or global function, and the textlow for the current pst is still 0, then we use that function's address for the textlow of the pst. Now, to fill in texthigh, we remember the last function seen in the .o file (also in partial-stab.h). Also, there's a hack in bfd/elf.c and gdb/elfread.c to pass the ELF st_size field to here via the misc_info field. Therefore, we can fill in a reliable texthigh by taking the address plus size of the last function in the file. Unfortunately, that does not cover the case where the last function in the file is static. See the paragraph below for more comments on this situation. Finally, if we have a valid textlow for the current file, we run down the partial_symtab_list filling in previous texthighs that are still unknown. */ if (pst->texthigh == 0 && last_function_name) { char *p; int n; struct minimal_symbol *minsym; p = strchr (last_function_name, ':'); if (p == NULL) p = last_function_name; n = p - last_function_name; p = alloca (n + 1); strncpy (p, last_function_name, n); p[n] = 0; minsym = lookup_minimal_symbol (p, objfile); if (minsym) { pst->texthigh = SYMBOL_VALUE_ADDRESS(minsym)+(long)MSYMBOL_INFO(minsym); } else { /* This file ends with a static function, and it's difficult to imagine how hard it would be to track down the elf symbol. Luckily, most of the time no one will notice, since the next file will likely be compiled with -g, so the code below will copy the first fuction's start address back to our texthigh variable. (Also, if this file is the last one in a dynamically linked program, texthigh already has the right value.) If the next file isn't compiled with -g, then the last function in this file winds up owning all of the text space up to the next -g file, or the end (minus shared libraries). This only matters for single stepping, and even then it will still work, except that it will single step through all of the covered functions, instead of setting breakpoints around them as it usualy does. This makes it pretty slow, but at least it doesn't fail. We can fix this with a fairly big change to bfd, but we need to coordinate better with Cygnus if we want to do that. FIXME. */ } last_function_name = NULL; } /* this test will be true if the last .o file is only data */ if (pst->textlow == 0) pst->textlow = pst->texthigh; /* If we know our own starting text address, then walk through all other psymtabs for this objfile, and if any didn't know their ending text address, set it to our starting address. Take care to not set our own ending address to our starting address, nor to set addresses on `dependency' files that have both textlow and texthigh zero. */ if (pst->textlow) { ALL_OBJFILE_PSYMTABS (objfile, p1) { if (p1->texthigh == 0 && p1->textlow != 0 && p1 != pst) { p1->texthigh = pst->textlow; /* if this file has only data, then make textlow match texthigh */ if (p1->textlow == 0) p1->textlow = p1->texthigh; } } } /* End of kludge for patching Solaris textlow and texthigh. */ pst->n_global_syms = objfile->global_psymbols.next - (objfile->global_psymbols.list + pst->globals_offset); pst->n_static_syms = objfile->static_psymbols.next - (objfile->static_psymbols.list + pst->statics_offset); pst->number_of_dependencies = number_dependencies; if (number_dependencies) { pst->dependencies = (struct partial_symtab **) obstack_alloc (&objfile->psymbol_obstack, number_dependencies * sizeof (struct partial_symtab *)); memcpy (pst->dependencies, dependency_list, number_dependencies * sizeof (struct partial_symtab *)); } else pst->dependencies = 0; for (i = 0; i < num_includes; i++) { struct partial_symtab *subpst = allocate_psymtab (include_list[i], objfile); subpst->section_offsets = pst->section_offsets; subpst->read_symtab_private = (char *) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct symloc)); LDSYMOFF(subpst) = LDSYMCNT(subpst) = subpst->textlow = subpst->texthigh = 0; /* We could save slight bits of space by only making one of these, shared by the entire set of include files. FIXME-someday. */ subpst->dependencies = (struct partial_symtab **) obstack_alloc (&objfile->psymbol_obstack, sizeof (struct partial_symtab *)); subpst->dependencies[0] = pst; subpst->number_of_dependencies = 1; subpst->globals_offset = subpst->n_global_syms = subpst->statics_offset = subpst->n_static_syms = 0; subpst->readin = 0; subpst->symtab = 0; subpst->read_symtab = pst->read_symtab; } sort_pst_symbols (pst); /* If there is already a psymtab or symtab for a file of this name, remove it. (If there is a symtab, more drastic things also happen.) This happens in VxWorks. */ free_named_symtabs (pst->filename); if (num_includes == 0 && number_dependencies == 0 && pst->n_global_syms == 0 && pst->n_static_syms == 0) { /* Throw away this psymtab, it's empty. We can't deallocate it, since it is on the obstack, but we can forget to chain it on the list. */ struct partial_symtab *prev_pst; /* First, snip it out of the psymtab chain */ if (pst->objfile->psymtabs == pst) pst->objfile->psymtabs = pst->next; else for (prev_pst = pst->objfile->psymtabs; prev_pst; prev_pst = pst->next) if (prev_pst->next == pst) prev_pst->next = pst->next; /* Next, put it on a free list for recycling */ pst->next = pst->objfile->free_psymtabs; pst->objfile->free_psymtabs = pst; /* Indicate that psymtab was thrown away. */ pst = (struct partial_symtab *)NULL; } return pst; } static void os9k_psymtab_to_symtab_1 (pst) struct partial_symtab *pst; { struct cleanup *old_chain; int i; if (!pst) return; if (pst->readin) { fprintf_unfiltered (gdb_stderr, "Psymtab for %s already read in. Shouldn't happen.\n", pst->filename); return; } /* Read in all partial symtabs on which this one is dependent */ for (i = 0; i < pst->number_of_dependencies; i++) if (!pst->dependencies[i]->readin) { /* Inform about additional files that need to be read in. */ if (info_verbose) { fputs_filtered (" ", gdb_stdout); wrap_here (""); fputs_filtered ("and ", gdb_stdout); wrap_here (""); printf_filtered ("%s...", pst->dependencies[i]->filename); wrap_here (""); /* Flush output */ gdb_flush (gdb_stdout); } os9k_psymtab_to_symtab_1 (pst->dependencies[i]); } if (LDSYMCNT(pst)) /* Otherwise it's a dummy */ { /* Init stuff necessary for reading in symbols */ stabsread_init (); buildsym_init (); old_chain = make_cleanup (really_free_pendings, 0); /* Read in this file's symbols */ os9k_read_ofile_symtab (pst); sort_symtab_syms (pst->symtab); do_cleanups (old_chain); } pst->readin = 1; } /* Read in all of the symbols for a given psymtab for real. Be verbose about it if the user wants that. */ static void os9k_psymtab_to_symtab (pst) struct partial_symtab *pst; { bfd *sym_bfd; if (!pst) return; if (pst->readin) { fprintf_unfiltered (gdb_stderr, "Psymtab for %s already read in. Shouldn't happen.\n", pst->filename); return; } if (LDSYMCNT(pst) || pst->number_of_dependencies) { /* Print the message now, before reading the string table, to avoid disconcerting pauses. */ if (info_verbose) { printf_filtered ("Reading in symbols for %s...", pst->filename); gdb_flush (gdb_stdout); } sym_bfd = pst->objfile->obfd; os9k_psymtab_to_symtab_1 (pst); /* Match with global symbols. This only needs to be done once, after all of the symtabs and dependencies have been read in. */ scan_file_globals (pst->objfile); /* Finish up the debug error message. */ if (info_verbose) printf_filtered ("done.\n"); } } /* Read in a defined section of a specific object file's symbols. */ static void os9k_read_ofile_symtab (pst) struct partial_symtab *pst; { register struct internal_symstruct *bufp; unsigned char type; unsigned max_symnum; register bfd *abfd; struct objfile *objfile; int sym_offset; /* Offset to start of symbols to read */ CORE_ADDR text_offset; /* Start of text segment for symbols */ int text_size; /* Size of text segment for symbols */ struct section_offsets *section_offsets; FILE *dbg_file; objfile = pst->objfile; sym_offset = LDSYMOFF(pst); max_symnum = LDSYMCNT(pst); text_offset = pst->textlow; text_size = pst->texthigh - pst->textlow; section_offsets = pst->section_offsets; current_objfile = objfile; subfile_stack = NULL; last_source_file = NULL; abfd = objfile->obfd; dbg_file = objfile->auxf2; #if 0 /* It is necessary to actually read one symbol *before* the start of this symtab's symbols, because the GCC_COMPILED_FLAG_SYMBOL occurs before the N_SO symbol. Detecting this in read_dbx_symtab would slow down initial readin, so we look for it here instead. */ if (!processing_acc_compilation && sym_offset >= (int)symbol_size) { fseek (objefile->auxf2, sym_offset, SEEK_CUR); fill_sym(objfile->auxf2, abfd); bufp = symbuf; processing_gcc_compilation = 0; if (bufp->n_type == N_TEXT) { if (STREQ (namestring, GCC_COMPILED_FLAG_SYMBOL)) processing_gcc_compilation = 1; else if (STREQ (namestring, GCC2_COMPILED_FLAG_SYMBOL)) processing_gcc_compilation = 2; } /* Try to select a C++ demangling based on the compilation unit producer. */ if (processing_gcc_compilation) { if (AUTO_DEMANGLING) { set_demangling_style (GNU_DEMANGLING_STYLE_STRING); } } } else { /* The N_SO starting this symtab is the first symbol, so we better not check the symbol before it. I'm not this can happen, but it doesn't hurt to check for it. */ bfd_seek (symfile_bfd, sym_offset, SEEK_CUR); processing_gcc_compilation = 0; } #endif /* 0 */ fseek(dbg_file, (long)sym_offset, 0); /* if (bufp->n_type != (unsigned char)N_SYM_SYM) error("First symbol in segment of executable not a source symbol"); */ for (symnum = 0; symnum < max_symnum; symnum++) { QUIT; /* Allow this to be interruptable */ fill_sym(dbg_file, abfd); bufp = symbuf; type = bufp->n_type; os9k_process_one_symbol ((int)type, (int)bufp->n_desc, (CORE_ADDR)bufp->n_value, bufp->n_strx, section_offsets, objfile); /* We skip checking for a new .o or -l file; that should never happen in this routine. */ #if 0 else if (type == N_TEXT) { /* I don't think this code will ever be executed, because the GCC_COMPILED_FLAG_SYMBOL usually is right before the N_SO symbol which starts this source file. However, there is no reason not to accept the GCC_COMPILED_FLAG_SYMBOL anywhere. */ if (STREQ (namestring, GCC_COMPILED_FLAG_SYMBOL)) processing_gcc_compilation = 1; else if (STREQ (namestring, GCC2_COMPILED_FLAG_SYMBOL)) processing_gcc_compilation = 2; if (AUTO_DEMANGLING) { set_demangling_style (GNU_DEMANGLING_STYLE_STRING); } } else if (type & N_EXT || type == (unsigned char)N_TEXT || type == (unsigned char)N_NBTEXT ) { /* Global symbol: see if we came across a dbx defintion for a corresponding symbol. If so, store the value. Remove syms from the chain when their values are stored, but search the whole chain, as there may be several syms from different files with the same name. */ /* This is probably not true. Since the files will be read in one at a time, each reference to a global symbol will be satisfied in each file as it appears. So we skip this section. */ ; } #endif /* 0 */ } current_objfile = NULL; /* In a Solaris elf file, this variable, which comes from the value of the N_SO symbol, will still be 0. Luckily, text_offset, which comes from pst->textlow is correct. */ if (last_source_start_addr == 0) last_source_start_addr = text_offset; pst->symtab = end_symtab (text_offset + text_size, 0, 0, objfile, SECT_OFF_TEXT); end_stabs (); } /* This handles a single symbol from the symbol-file, building symbols into a GDB symtab. It takes these arguments and an implicit argument. TYPE is the type field of the ".stab" symbol entry. DESC is the desc field of the ".stab" entry. VALU is the value field of the ".stab" entry. NAME is the symbol name, in our address space. SECTION_OFFSETS is a set of amounts by which the sections of this object file were relocated when it was loaded into memory. All symbols that refer to memory locations need to be offset by these amounts. OBJFILE is the object file from which we are reading symbols. It is used in end_symtab. */ static void os9k_process_one_symbol (type, desc, valu, name, section_offsets, objfile) int type, desc; CORE_ADDR valu; char *name; struct section_offsets *section_offsets; struct objfile *objfile; { register struct context_stack *new; /* The stab type used for the definition of the last function. N_STSYM or N_GSYM for SunOS4 acc; N_FUN for other compilers. */ static int function_stab_type = 0; #if 0 /* Something is wrong if we see real data before seeing a source file name. */ if (last_source_file == NULL && type != (unsigned char)N_SO) { /* Ignore any symbols which appear before an N_SO symbol. Currently no one puts symbols there, but we should deal gracefully with the case. A complain()t might be in order (if !IGNORE_SYMBOL (type)), but this should not be an error (). */ return; } #endif /* 0 */ switch (type) { case N_SYM_LBRAC: /* On most machines, the block addresses are relative to the N_SO, the linker did not relocate them (sigh). */ valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); new = push_context (desc, valu); break; case N_SYM_RBRAC: valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); new = pop_context(); #if !defined (OS9K_VARIABLES_INSIDE_BLOCK) #define OS9K_VARIABLES_INSIDE_BLOCK(desc, gcc_p) 1 #endif if (!OS9K_VARIABLES_INSIDE_BLOCK(desc, processing_gcc_compilation)) local_symbols = new->locals; if (context_stack_depth > 1) { /* This is not the outermost LBRAC...RBRAC pair in the function, its local symbols preceded it, and are the ones just recovered from the context stack. Define the block for them (but don't bother if the block contains no symbols. Should we complain on blocks without symbols? I can't think of any useful purpose for them). */ if (local_symbols != NULL) { /* Muzzle a compiler bug that makes end < start. (which compilers? Is this ever harmful?). */ if (new->start_addr > valu) { complain (&lbrac_rbrac_complaint); new->start_addr = valu; } /* Make a block for the local symbols within. */ finish_block (0, &local_symbols, new->old_blocks, new->start_addr, valu, objfile); } } else { if (context_stack_depth == 0) { within_function = 0; /* Make a block for the local symbols within. */ finish_block (new->name, &local_symbols, new->old_blocks, new->start_addr, valu, objfile); } else { /* attach local_symbols to the end of new->locals */ if (!new->locals) new->locals = local_symbols; else { struct pending *p; p = new->locals; while (p->next) p = p->next; p->next = local_symbols; } } } if (OS9K_VARIABLES_INSIDE_BLOCK(desc, processing_gcc_compilation)) /* Now pop locals of block just finished. */ local_symbols = new->locals; break; case N_SYM_SLINE: /* This type of "symbol" really just records one line-number -- core-address correspondence. Enter it in the line list for this symbol table. */ /* Relocate for dynamic loading and for ELF acc fn-relative syms. */ valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); record_line (current_subfile, (int)name, valu); break; /* The following symbol types need to have the appropriate offset added to their value; then we process symbol definitions in the name. */ case N_SYM_SYM: if (name) { char deftype; char *dirn, *n; char *p = strchr (name, ':'); if (p == NULL) deftype = '\0'; else deftype = p[1]; switch (deftype) { case 'S': valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); n = strrchr(name, '/'); if (n != NULL) { *n = '\0'; n++; dirn = name; } else { n = name; dirn = NULL; } *p = '\0'; if (symfile_depth++ == 0) { if (last_source_file) { end_symtab (valu, 0, 0, objfile, SECT_OFF_TEXT); end_stabs (); } start_stabs (); os9k_stabs = 1; start_symtab (n, dirn, valu); } else { push_subfile(); start_subfile (n, dirn!=NULL ? dirn : current_subfile->dirname); } break; case 'f': case 'F': valu += ANOFFSET (section_offsets, SECT_OFF_TEXT); function_stab_type = type; within_function = 1; new = push_context (0, valu); new->name = define_symbol (valu, name, desc, type, objfile); break; case 'V': case 'v': valu += ANOFFSET (section_offsets, SECT_OFF_DATA); define_symbol (valu, name, desc, type, objfile); break; default: define_symbol (valu, name, desc, type, objfile); break; } } break; case N_SYM_SE: if (--symfile_depth != 0) start_subfile(pop_subfile(), current_subfile->dirname); break; default: complain (&unknown_symtype_complaint, local_hex_string((unsigned long) type)); /* FALLTHROUGH */ break; case N_SYM_CMPLR: break; } previous_stab_code = type; } /* Parse the user's idea of an offset for dynamic linking, into our idea of how to represent it for fast symbol reading. */ static struct section_offsets * os9k_symfile_offsets (objfile, addr) struct objfile *objfile; CORE_ADDR addr; { struct section_offsets *section_offsets; int i; objfile->num_sections = SECT_OFF_MAX; section_offsets = (struct section_offsets *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct section_offsets) + sizeof (section_offsets->offsets) * (SECT_OFF_MAX-1)); for (i = 0; i < SECT_OFF_MAX; i++) ANOFFSET (section_offsets, i) = addr; return section_offsets; } static struct sym_fns os9k_sym_fns = { bfd_target_os9k_flavour, os9k_new_init, /* sym_new_init: init anything gbl to entire symtab */ os9k_symfile_init, /* sym_init: read initial info, setup for sym_read() */ os9k_symfile_read, /* sym_read: read a symbol file into symtab */ os9k_symfile_finish, /* sym_finish: finished with file, cleanup */ os9k_symfile_offsets, /* sym_offsets: parse user's offsets to internal form*/ NULL /* next: pointer to next struct sym_fns */ }; void _initialize_os9kread () { add_symtab_fns(&os9k_sym_fns); } gdb-4.13/gdb/osfsolib.c 666 34562 1752 50572 5606462354 13320 0ustar fnfcygnus/* Handle OSF/1 shared libraries for GDB, the GNU Debugger. Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* FIXME: Most of this code could be merged with solib.c by using next_link_map_member and xfer_link_map_member in solib.c. */ #include "defs.h" #include #include #include #include #include "symtab.h" #include "bfd.h" #include "symfile.h" #include "objfiles.h" #include "gdbcore.h" #include "command.h" #include "target.h" #include "frame.h" #include "regex.h" #include "inferior.h" #include "language.h" #define MAX_PATH_SIZE 256 /* FIXME: Should be dynamic */ /* FIXME: This is a terrible hack for shared library support under OSF/1. The main problem is that the needed definitions are not contained in the system header files. The ldr_* routines described in loader(3) would be the way to go here. But they do not work for arbitrary target processes (as documented). */ #ifndef USE_LDR_ROUTINES #define RLD_CONTEXT_ADDRESS 0x3ffc0000000 typedef struct { CORE_ADDR next; CORE_ADDR previous; CORE_ADDR unknown; char *module_name; CORE_ADDR modinfo_addr; } ldr_module_info_t; typedef struct { CORE_ADDR unknown1; CORE_ADDR unknown2; CORE_ADDR head; CORE_ADDR tail; } ldr_context_t; static ldr_context_t ldr_context; #else #include #endif /* Define our own link_map structure. This will help to share code with solib.c. */ struct link_map { CORE_ADDR l_addr; /* address at which object mapped */ char *l_name; /* full name of loaded object */ ldr_module_info_t module_info; /* corresponding module info */ }; #define LM_ADDR(so) ((so) -> lm.l_addr) #define LM_NAME(so) ((so) -> lm.l_name) struct so_list { struct so_list *next; /* next structure in linked list */ struct link_map lm; /* copy of link map from inferior */ struct link_map *lmaddr; /* addr in inferior lm was read from */ CORE_ADDR lmend; /* upper addr bound of mapped object */ char so_name[MAX_PATH_SIZE]; /* shared object lib name (FIXME) */ char symbols_loaded; /* flag: symbols read in yet? */ char from_tty; /* flag: print msgs? */ struct objfile *objfile; /* objfile for loaded lib */ struct section_table *sections; struct section_table *sections_end; struct section_table *textsection; bfd *abfd; }; static struct so_list *so_list_head; /* List of known shared objects */ extern int fdmatch PARAMS ((int, int)); /* In libiberty */ /* Local function prototypes */ static void sharedlibrary_command PARAMS ((char *, int)); static void info_sharedlibrary_command PARAMS ((char *, int)); static int symbol_add_stub PARAMS ((char *)); static struct so_list * find_solib PARAMS ((struct so_list *)); static struct link_map * first_link_map_member PARAMS ((void)); static struct link_map * next_link_map_member PARAMS ((struct so_list *)); static void xfer_link_map_member PARAMS ((struct so_list *, struct link_map *)); static void solib_map_sections PARAMS ((struct so_list *)); /* LOCAL FUNCTION solib_map_sections -- open bfd and build sections for shared lib SYNOPSIS static void solib_map_sections (struct so_list *so) DESCRIPTION Given a pointer to one of the shared objects in our list of mapped objects, use the recorded name to open a bfd descriptor for the object, build a section table, and then relocate all the section addresses by the base address at which the shared object was mapped. FIXMES In most (all?) cases the shared object file name recorded in the dynamic linkage tables will be a fully qualified pathname. For cases where it isn't, do we really mimic the systems search mechanism correctly in the below code (particularly the tilde expansion stuff?). */ static void solib_map_sections (so) struct so_list *so; { char *filename; char *scratch_pathname; int scratch_chan; struct section_table *p; struct cleanup *old_chain; bfd *abfd; filename = tilde_expand (so -> so_name); old_chain = make_cleanup (free, filename); scratch_chan = openp (getenv ("PATH"), 1, filename, O_RDONLY, 0, &scratch_pathname); if (scratch_chan < 0) { scratch_chan = openp (getenv ("LD_LIBRARY_PATH"), 1, filename, O_RDONLY, 0, &scratch_pathname); } if (scratch_chan < 0) { perror_with_name (filename); } /* Leave scratch_pathname allocated. bfd->name will point to it. */ abfd = bfd_fdopenr (scratch_pathname, gnutarget, scratch_chan); if (!abfd) { close (scratch_chan); error ("Could not open `%s' as an executable file: %s", scratch_pathname, bfd_errmsg (bfd_get_error ())); } /* Leave bfd open, core_xfer_memory and "info files" need it. */ so -> abfd = abfd; abfd -> cacheable = true; if (!bfd_check_format (abfd, bfd_object)) { error ("\"%s\": not in executable format: %s.", scratch_pathname, bfd_errmsg (bfd_get_error ())); } if (build_section_table (abfd, &so -> sections, &so -> sections_end)) { error ("Can't find the file sections in `%s': %s", bfd_get_filename (exec_bfd), bfd_errmsg (bfd_get_error ())); } for (p = so -> sections; p < so -> sections_end; p++) { /* Relocate the section binding addresses as recorded in the shared object's file by the base address to which the object was actually mapped. */ p -> addr += (CORE_ADDR) LM_ADDR (so); p -> endaddr += (CORE_ADDR) LM_ADDR (so); so -> lmend = (CORE_ADDR) max (p -> endaddr, so -> lmend); if (STREQ (p -> the_bfd_section -> name, ".text")) { so -> textsection = p; } } /* Free the file names, close the file now. */ do_cleanups (old_chain); } /* LOCAL FUNCTION first_link_map_member -- locate first member in dynamic linker's map SYNOPSIS static struct link_map *first_link_map_member (void) DESCRIPTION Read in a copy of the first member in the inferior's dynamic link map from the inferior's dynamic linker structures, and return a pointer to the copy in our address space. */ static struct link_map * first_link_map_member () { struct link_map *lm = NULL; static struct link_map first_lm; #ifdef USE_LDR_ROUTINES ldr_module_t mod_id = LDR_NULL_MODULE; size_t retsize; if (ldr_next_module(inferior_pid, &mod_id) != 0 || mod_id == LDR_NULL_MODULE || ldr_inq_module(inferior_pid, mod_id, &first_lm.module_info, sizeof(ldr_module_info_t), &retsize) != 0) return lm; #else CORE_ADDR ldr_context_addr; if (target_read_memory ((CORE_ADDR) RLD_CONTEXT_ADDRESS, (char *) &ldr_context_addr, sizeof (CORE_ADDR)) != 0 || target_read_memory (ldr_context_addr, (char *) &ldr_context, sizeof (ldr_context_t)) != 0 || target_read_memory ((CORE_ADDR) ldr_context.head, (char *) &first_lm.module_info, sizeof (ldr_module_info_t)) != 0) return lm; #endif lm = &first_lm; /* The first entry is for the main program and should be skipped. */ lm->l_name = NULL; return lm; } static struct link_map * next_link_map_member (so_list_ptr) struct so_list *so_list_ptr; { struct link_map *lm = NULL; static struct link_map next_lm; #ifdef USE_LDR_ROUTINES ldr_module_t mod_id = lm->module_info.lmi_modid; size_t retsize; if (ldr_next_module(inferior_pid, &mod_id) != 0 || mod_id == LDR_NULL_MODULE || ldr_inq_module(inferior_pid, mod_id, &next_lm.module_info, sizeof(ldr_module_info_t), &retsize) != 0) return lm; lm = &next_lm; lm->l_name = lm->module_info.lmi_name; #else CORE_ADDR ldr_context_addr; /* Reread context in case ldr_context.tail was updated. */ if (target_read_memory ((CORE_ADDR) RLD_CONTEXT_ADDRESS, (char *) &ldr_context_addr, sizeof (CORE_ADDR)) != 0 || target_read_memory (ldr_context_addr, (char *) &ldr_context, sizeof (ldr_context_t)) != 0 || so_list_ptr->lm.module_info.modinfo_addr == ldr_context.tail || target_read_memory (so_list_ptr->lm.module_info.next, (char *) &next_lm.module_info, sizeof (ldr_module_info_t)) != 0) return lm; lm = &next_lm; lm->l_name = lm->module_info.module_name; #endif return lm; } static void xfer_link_map_member (so_list_ptr, lm) struct so_list *so_list_ptr; struct link_map *lm; { so_list_ptr->lm = *lm; /* OSF/1 has absolute addresses in shared libraries. */ LM_ADDR (so_list_ptr) = 0; /* There is one entry that has no name (for the inferior executable) since it is not a shared object. */ if (LM_NAME (so_list_ptr) != 0) { #ifdef USE_LDR_ROUTINES int len = strlen (LM_NAME (so_list_ptr) + 1); if (len > MAX_PATH_SIZE) len = MAX_PATH_SIZE; strncpy (so_list_ptr->so_name, LM_NAME (so_list_ptr), MAX_PATH_SIZE); #else int errcode; char *buffer; target_read_string ((CORE_ADDR) LM_NAME (so_list_ptr), &buffer, MAX_PATH_SIZE - 1, &errcode); if (errcode != 0) error ("xfer_link_map_member: Can't read pathname for load map: %s\n", safe_strerror (errcode)); strncpy (so_list_ptr->so_name, buffer, MAX_PATH_SIZE - 1); free (buffer); #endif so_list_ptr->so_name[MAX_PATH_SIZE - 1] = '\0'; solib_map_sections (so_list_ptr); } } /* LOCAL FUNCTION find_solib -- step through list of shared objects SYNOPSIS struct so_list *find_solib (struct so_list *so_list_ptr) DESCRIPTION This module contains the routine which finds the names of any loaded "images" in the current process. The argument in must be NULL on the first call, and then the returned value must be passed in on subsequent calls. This provides the capability to "step" down the list of loaded objects. On the last object, a NULL value is returned. The arg and return value are "struct link_map" pointers, as defined in . */ static struct so_list * find_solib (so_list_ptr) struct so_list *so_list_ptr; /* Last lm or NULL for first one */ { struct so_list *so_list_next = NULL; struct link_map *lm = NULL; struct so_list *new; if (so_list_ptr == NULL) { /* We are setting up for a new scan through the loaded images. */ if ((so_list_next = so_list_head) == NULL) { /* Find the first link map list member. */ lm = first_link_map_member (); } } else { /* We have been called before, and are in the process of walking the shared library list. Advance to the next shared object. */ lm = next_link_map_member (so_list_ptr); so_list_next = so_list_ptr -> next; } if ((so_list_next == NULL) && (lm != NULL)) { /* Get next link map structure from inferior image and build a local abbreviated load_map structure */ new = (struct so_list *) xmalloc (sizeof (struct so_list)); memset ((char *) new, 0, sizeof (struct so_list)); new -> lmaddr = lm; /* Add the new node as the next node in the list, or as the root node if this is the first one. */ if (so_list_ptr != NULL) { so_list_ptr -> next = new; } else { so_list_head = new; } so_list_next = new; xfer_link_map_member (new, lm); } return (so_list_next); } /* A small stub to get us past the arg-passing pinhole of catch_errors. */ static int symbol_add_stub (arg) char *arg; { register struct so_list *so = (struct so_list *) arg; /* catch_errs bogon */ so -> objfile = symbol_file_add (so -> so_name, so -> from_tty, so -> textsection -> addr, 0, 0, 0); return (1); } /* GLOBAL FUNCTION solib_add -- add a shared library file to the symtab and section list SYNOPSIS void solib_add (char *arg_string, int from_tty, struct target_ops *target) DESCRIPTION */ void solib_add (arg_string, from_tty, target) char *arg_string; int from_tty; struct target_ops *target; { register struct so_list *so = NULL; /* link map state variable */ /* Last shared library that we read. */ struct so_list *so_last = NULL; char *re_err; int count; int old; if ((re_err = re_comp (arg_string ? arg_string : ".")) != NULL) { error ("Invalid regexp: %s", re_err); } /* Add the shared library sections to the section table of the specified target, if any. We have to do this before reading the symbol files as symbol_file_add calls reinit_frame_cache and creating a new frame might access memory in the shared library. */ if (target) { /* Count how many new section_table entries there are. */ so = NULL; count = 0; while ((so = find_solib (so)) != NULL) { if (so -> so_name[0]) { count += so -> sections_end - so -> sections; } } if (count) { /* Reallocate the target's section table including the new size. */ if (target -> to_sections) { old = target -> to_sections_end - target -> to_sections; target -> to_sections = (struct section_table *) xrealloc ((char *)target -> to_sections, (sizeof (struct section_table)) * (count + old)); } else { old = 0; target -> to_sections = (struct section_table *) xmalloc ((sizeof (struct section_table)) * count); } target -> to_sections_end = target -> to_sections + (count + old); /* Add these section table entries to the target's table. */ while ((so = find_solib (so)) != NULL) { if (so -> so_name[0]) { count = so -> sections_end - so -> sections; memcpy ((char *) (target -> to_sections + old), so -> sections, (sizeof (struct section_table)) * count); old += count; } } } } /* Now add the symbol files. */ so = NULL; while ((so = find_solib (so)) != NULL) { if (so -> so_name[0] && re_exec (so -> so_name)) { so -> from_tty = from_tty; if (so -> symbols_loaded) { if (from_tty) { printf_unfiltered ("Symbols already loaded for %s\n", so -> so_name); } } else if (catch_errors (symbol_add_stub, (char *) so, "Error while reading shared library symbols:\n", RETURN_MASK_ALL)) { so_last = so; so -> symbols_loaded = 1; } } } } /* LOCAL FUNCTION info_sharedlibrary_command -- code for "info sharedlibrary" SYNOPSIS static void info_sharedlibrary_command () DESCRIPTION Walk through the shared library list and print information about each attached library. */ static void info_sharedlibrary_command (ignore, from_tty) char *ignore; int from_tty; { register struct so_list *so = NULL; /* link map state variable */ int header_done = 0; if (exec_bfd == NULL) { printf_unfiltered ("No exec file.\n"); return; } while ((so = find_solib (so)) != NULL) { if (so -> so_name[0]) { unsigned long txt_start = 0; unsigned long txt_end = 0; if (!header_done) { printf_unfiltered("%-20s%-20s%-12s%s\n", "From", "To", "Syms Read", "Shared Object Library"); header_done++; } if (so -> textsection) { txt_start = (unsigned long) so -> textsection -> addr; txt_end = (unsigned long) so -> textsection -> endaddr; } printf_unfiltered ("%-20s", local_hex_string_custom (txt_start, "08l")); printf_unfiltered ("%-20s", local_hex_string_custom (txt_end, "08l")); printf_unfiltered ("%-12s", so -> symbols_loaded ? "Yes" : "No"); printf_unfiltered ("%s\n", so -> so_name); } } if (so_list_head == NULL) { printf_unfiltered ("No shared libraries loaded at this time.\n"); } } /* GLOBAL FUNCTION solib_address -- check to see if an address is in a shared lib SYNOPSIS int solib_address (CORE_ADDR address) DESCRIPTION Provides a hook for other gdb routines to discover whether or not a particular address is within the mapped address space of a shared library. Any address between the base mapping address and the first address beyond the end of the last mapping, is considered to be within the shared library address space, for our purposes. For example, this routine is called at one point to disable breakpoints which are in shared libraries that are not currently mapped in. */ int solib_address (address) CORE_ADDR address; { register struct so_list *so = 0; /* link map state variable */ while ((so = find_solib (so)) != NULL) { if (so -> so_name[0] && so -> textsection) { if ((address >= (CORE_ADDR) so -> textsection -> addr) && (address < (CORE_ADDR) so -> textsection -> endaddr)) { return (1); } } } return (0); } /* Called by free_all_symtabs */ void clear_solib() { struct so_list *next; char *bfd_filename; while (so_list_head) { if (so_list_head -> sections) { free ((PTR)so_list_head -> sections); } if (so_list_head -> abfd) { bfd_filename = bfd_get_filename (so_list_head -> abfd); bfd_close (so_list_head -> abfd); } else /* This happens for the executable on SVR4. */ bfd_filename = NULL; next = so_list_head -> next; if (bfd_filename) free ((PTR)bfd_filename); free ((PTR)so_list_head); so_list_head = next; } } /* GLOBAL FUNCTION solib_create_inferior_hook -- shared library startup support SYNOPSIS void solib_create_inferior_hook() DESCRIPTION When gdb starts up the inferior, it nurses it along (through the shell) until it is ready to execute it's first instruction. At this point, this function gets called via expansion of the macro SOLIB_CREATE_INFERIOR_HOOK. For a statically bound executable, this first instruction is the one at "_start", or a similar text label. No further processing is needed in that case. For a dynamically bound executable, this first instruction is somewhere in the rld, and the actual user executable is not yet mapped in. We continue the inferior again, rld then maps in the actual user executable and any needed shared libraries and then sends itself a SIGTRAP. At that point we discover the names of all shared libraries and read their symbols in. FIXME This code does not properly handle hitting breakpoints which the user might have set in the rld itself. Proper handling would have to check if the SIGTRAP happened due to a kill call. Also, what if child has exit()ed? Must exit loop somehow. */ void solib_create_inferior_hook() { /* Nothing to do for statically bound executables. */ if (symfile_objfile == NULL || symfile_objfile->obfd == NULL || ((bfd_get_file_flags (symfile_objfile->obfd) & DYNAMIC) == 0)) return; /* Now run the target. It will eventually get a SIGTRAP, at which point all of the libraries will have been mapped in and we can go groveling around in the rld structures to find out what we need to know about them. */ clear_proceed_status (); stop_soon_quietly = 1; stop_signal = TARGET_SIGNAL_0; do { target_resume (-1, 0, stop_signal); wait_for_inferior (); } while (stop_signal != TARGET_SIGNAL_TRAP); /* solib_add will call reinit_frame_cache via symbol_file_add. But we are stopped in the runtime loader and we do not have symbols for the runtime loader. So heuristic_proc_start will be called and will put out an annoying warning. Delaying the resetting of stop_soon_quietly until after symbol loading suppresses the warning. */ solib_add ((char *) 0, 0, (struct target_ops *) 0); stop_soon_quietly = 0; } /* LOCAL FUNCTION sharedlibrary_command -- handle command to explicitly add library SYNOPSIS static void sharedlibrary_command (char *args, int from_tty) DESCRIPTION */ static void sharedlibrary_command (args, from_tty) char *args; int from_tty; { dont_repeat (); solib_add (args, from_tty, (struct target_ops *) 0); } void _initialize_solib() { add_com ("sharedlibrary", class_files, sharedlibrary_command, "Load shared object library symbols for files matching REGEXP."); add_info ("sharedlibrary", info_sharedlibrary_command, "Status of loaded shared object libraries."); } gdb-4.13/gdb/parse.c 666 34562 1752 53531 5555247267 12617 0ustar fnfcygnus/* Parse expressions for GDB. Copyright (C) 1986, 1989, 1990, 1991, 1994 Free Software Foundation, Inc. Modified from expread.y by the Department of Computer Science at the State University of New York at Buffalo, 1991. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Parse an expression from text in a string, and return the result as a struct expression pointer. That structure contains arithmetic operations in reverse polish, with constants represented by operations that are followed by special data. See expression.h for the details of the format. What is important here is that it can be built up sequentially during the process of parsing; the lower levels of the tree always come first in the result. */ #include "defs.h" #include #include "symtab.h" #include "gdbtypes.h" #include "frame.h" #include "expression.h" #include "value.h" #include "command.h" #include "language.h" #include "parser-defs.h" /* Global variables declared in parser-defs.h (and commented there). */ struct expression *expout; int expout_size; int expout_ptr; struct block *expression_context_block; struct block *innermost_block; int arglist_len; union type_stack_elt *type_stack; int type_stack_depth, type_stack_size; char *lexptr; char *namecopy; int paren_depth; int comma_terminates; static void free_funcalls PARAMS ((void)); static void prefixify_expression PARAMS ((struct expression *)); static int length_of_subexp PARAMS ((struct expression *, int)); static void prefixify_subexp PARAMS ((struct expression *, struct expression *, int, int)); /* Data structure for saving values of arglist_len for function calls whose arguments contain other function calls. */ struct funcall { struct funcall *next; int arglist_len; }; static struct funcall *funcall_chain; /* Assign machine-independent names to certain registers (unless overridden by the REGISTER_NAMES table) */ #ifdef NO_STD_REGS unsigned num_std_regs = 0; struct std_regs std_regs[1]; #else struct std_regs std_regs[] = { #ifdef PC_REGNUM { "pc", PC_REGNUM }, #endif #ifdef FP_REGNUM { "fp", FP_REGNUM }, #endif #ifdef SP_REGNUM { "sp", SP_REGNUM }, #endif #ifdef PS_REGNUM { "ps", PS_REGNUM }, #endif }; unsigned num_std_regs = (sizeof std_regs / sizeof std_regs[0]); #endif /* Begin counting arguments for a function call, saving the data about any containing call. */ void start_arglist () { register struct funcall *new; new = (struct funcall *) xmalloc (sizeof (struct funcall)); new->next = funcall_chain; new->arglist_len = arglist_len; arglist_len = 0; funcall_chain = new; } /* Return the number of arguments in a function call just terminated, and restore the data for the containing function call. */ int end_arglist () { register int val = arglist_len; register struct funcall *call = funcall_chain; funcall_chain = call->next; arglist_len = call->arglist_len; free ((PTR)call); return val; } /* Free everything in the funcall chain. Used when there is an error inside parsing. */ static void free_funcalls () { register struct funcall *call, *next; for (call = funcall_chain; call; call = next) { next = call->next; free ((PTR)call); } } /* This page contains the functions for adding data to the struct expression being constructed. */ /* Add one element to the end of the expression. */ /* To avoid a bug in the Sun 4 compiler, we pass things that can fit into a register through here */ void write_exp_elt (expelt) union exp_element expelt; { if (expout_ptr >= expout_size) { expout_size *= 2; expout = (struct expression *) xrealloc ((char *) expout, sizeof (struct expression) + EXP_ELEM_TO_BYTES (expout_size)); } expout->elts[expout_ptr++] = expelt; } void write_exp_elt_opcode (expelt) enum exp_opcode expelt; { union exp_element tmp; tmp.opcode = expelt; write_exp_elt (tmp); } void write_exp_elt_sym (expelt) struct symbol *expelt; { union exp_element tmp; tmp.symbol = expelt; write_exp_elt (tmp); } void write_exp_elt_block (b) struct block *b; { union exp_element tmp; tmp.block = b; write_exp_elt (tmp); } void write_exp_elt_longcst (expelt) LONGEST expelt; { union exp_element tmp; tmp.longconst = expelt; write_exp_elt (tmp); } void write_exp_elt_dblcst (expelt) double expelt; { union exp_element tmp; tmp.doubleconst = expelt; write_exp_elt (tmp); } void write_exp_elt_type (expelt) struct type *expelt; { union exp_element tmp; tmp.type = expelt; write_exp_elt (tmp); } void write_exp_elt_intern (expelt) struct internalvar *expelt; { union exp_element tmp; tmp.internalvar = expelt; write_exp_elt (tmp); } /* Add a string constant to the end of the expression. String constants are stored by first writing an expression element that contains the length of the string, then stuffing the string constant itself into however many expression elements are needed to hold it, and then writing another expression element that contains the length of the string. I.E. an expression element at each end of the string records the string length, so you can skip over the expression elements containing the actual string bytes from either end of the string. Note that this also allows gdb to handle strings with embedded null bytes, as is required for some languages. Don't be fooled by the fact that the string is null byte terminated, this is strictly for the convenience of debugging gdb itself. Gdb Gdb does not depend up the string being null terminated, since the actual length is recorded in expression elements at each end of the string. The null byte is taken into consideration when computing how many expression elements are required to hold the string constant, of course. */ void write_exp_string (str) struct stoken str; { register int len = str.length; register int lenelt; register char *strdata; /* Compute the number of expression elements required to hold the string (including a null byte terminator), along with one expression element at each end to record the actual string length (not including the null byte terminator). */ lenelt = 2 + BYTES_TO_EXP_ELEM (len + 1); /* Ensure that we have enough available expression elements to store everything. */ if ((expout_ptr + lenelt) >= expout_size) { expout_size = max (expout_size * 2, expout_ptr + lenelt + 10); expout = (struct expression *) xrealloc ((char *) expout, (sizeof (struct expression) + EXP_ELEM_TO_BYTES (expout_size))); } /* Write the leading length expression element (which advances the current expression element index), then write the string constant followed by a terminating null byte, and then write the trailing length expression element. */ write_exp_elt_longcst ((LONGEST) len); strdata = (char *) &expout->elts[expout_ptr]; memcpy (strdata, str.ptr, len); *(strdata + len) = '\0'; expout_ptr += lenelt - 2; write_exp_elt_longcst ((LONGEST) len); } /* Add a bitstring constant to the end of the expression. Bitstring constants are stored by first writing an expression element that contains the length of the bitstring (in bits), then stuffing the bitstring constant itself into however many expression elements are needed to hold it, and then writing another expression element that contains the length of the bitstring. I.E. an expression element at each end of the bitstring records the bitstring length, so you can skip over the expression elements containing the actual bitstring bytes from either end of the bitstring. */ void write_exp_bitstring (str) struct stoken str; { register int bits = str.length; /* length in bits */ register int len = (bits + HOST_CHAR_BIT - 1) / HOST_CHAR_BIT; register int lenelt; register char *strdata; /* Compute the number of expression elements required to hold the bitstring, along with one expression element at each end to record the actual bitstring length in bits. */ lenelt = 2 + BYTES_TO_EXP_ELEM (len); /* Ensure that we have enough available expression elements to store everything. */ if ((expout_ptr + lenelt) >= expout_size) { expout_size = max (expout_size * 2, expout_ptr + lenelt + 10); expout = (struct expression *) xrealloc ((char *) expout, (sizeof (struct expression) + EXP_ELEM_TO_BYTES (expout_size))); } /* Write the leading length expression element (which advances the current expression element index), then write the bitstring constant, and then write the trailing length expression element. */ write_exp_elt_longcst ((LONGEST) bits); strdata = (char *) &expout->elts[expout_ptr]; memcpy (strdata, str.ptr, len); expout_ptr += lenelt - 2; write_exp_elt_longcst ((LONGEST) bits); } /* Type that corresponds to the address given in a minimal symbol. */ static struct type *msymbol_addr_type; /* Add the appropriate elements for a minimal symbol to the end of the expression. */ void write_exp_msymbol (msymbol, text_symbol_type, data_symbol_type) struct minimal_symbol *msymbol; struct type *text_symbol_type; struct type *data_symbol_type; { write_exp_elt_opcode (OP_LONG); write_exp_elt_type (msymbol_addr_type); write_exp_elt_longcst ((LONGEST) SYMBOL_VALUE_ADDRESS (msymbol)); write_exp_elt_opcode (OP_LONG); write_exp_elt_opcode (UNOP_MEMVAL); switch (msymbol -> type) { case mst_text: case mst_file_text: case mst_solib_trampoline: write_exp_elt_type (text_symbol_type); break; case mst_data: case mst_file_data: case mst_bss: case mst_file_bss: write_exp_elt_type (data_symbol_type); break; default: write_exp_elt_type (builtin_type_char); break; } write_exp_elt_opcode (UNOP_MEMVAL); } /* Return a null-terminated temporary copy of the name of a string token. */ char * copy_name (token) struct stoken token; { memcpy (namecopy, token.ptr, token.length); namecopy[token.length] = 0; return namecopy; } /* Reverse an expression from suffix form (in which it is constructed) to prefix form (in which we can conveniently print or execute it). */ static void prefixify_expression (expr) register struct expression *expr; { register int len = sizeof (struct expression) + EXP_ELEM_TO_BYTES (expr->nelts); register struct expression *temp; register int inpos = expr->nelts, outpos = 0; temp = (struct expression *) alloca (len); /* Copy the original expression into temp. */ memcpy (temp, expr, len); prefixify_subexp (temp, expr, inpos, outpos); } /* Return the number of exp_elements in the subexpression of EXPR whose last exp_element is at index ENDPOS - 1 in EXPR. */ static int length_of_subexp (expr, endpos) register struct expression *expr; register int endpos; { register int oplen = 1; register int args = 0; register int i; if (endpos < 1) error ("?error in length_of_subexp"); i = (int) expr->elts[endpos - 1].opcode; switch (i) { /* C++ */ case OP_SCOPE: oplen = longest_to_int (expr->elts[endpos - 2].longconst); oplen = 5 + BYTES_TO_EXP_ELEM (oplen + 1); break; case OP_LONG: case OP_DOUBLE: case OP_VAR_VALUE: oplen = 4; break; case OP_TYPE: case OP_BOOL: case OP_LAST: case OP_REGISTER: case OP_INTERNALVAR: oplen = 3; break; case OP_FUNCALL: oplen = 3; args = 1 + longest_to_int (expr->elts[endpos - 2].longconst); break; case UNOP_MAX: case UNOP_MIN: oplen = 3; break; case BINOP_VAL: case UNOP_CAST: case UNOP_MEMVAL: oplen = 3; args = 1; break; case UNOP_ABS: case UNOP_CAP: case UNOP_CHR: case UNOP_FLOAT: case UNOP_HIGH: case UNOP_ODD: case UNOP_ORD: case UNOP_TRUNC: oplen = 1; args = 1; break; case STRUCTOP_STRUCT: case STRUCTOP_PTR: args = 1; /* fall through */ case OP_M2_STRING: case OP_STRING: oplen = longest_to_int (expr->elts[endpos - 2].longconst); oplen = 4 + BYTES_TO_EXP_ELEM (oplen + 1); break; case OP_BITSTRING: oplen = longest_to_int (expr->elts[endpos - 2].longconst); oplen = (oplen + HOST_CHAR_BIT - 1) / HOST_CHAR_BIT; oplen = 4 + BYTES_TO_EXP_ELEM (oplen); break; case OP_ARRAY: oplen = 4; args = longest_to_int (expr->elts[endpos - 2].longconst); args -= longest_to_int (expr->elts[endpos - 3].longconst); args += 1; break; case TERNOP_COND: args = 3; break; /* Modula-2 */ case MULTI_SUBSCRIPT: oplen=3; args = 1 + longest_to_int (expr->elts[endpos- 2].longconst); break; case BINOP_ASSIGN_MODIFY: oplen = 3; args = 2; break; /* C++ */ case OP_THIS: oplen = 2; break; default: args = 1 + (i < (int) BINOP_END); } while (args > 0) { oplen += length_of_subexp (expr, endpos - oplen); args--; } return oplen; } /* Copy the subexpression ending just before index INEND in INEXPR into OUTEXPR, starting at index OUTBEG. In the process, convert it from suffix to prefix form. */ static void prefixify_subexp (inexpr, outexpr, inend, outbeg) register struct expression *inexpr; struct expression *outexpr; register int inend; int outbeg; { register int oplen = 1; register int args = 0; register int i; int *arglens; enum exp_opcode opcode; /* Compute how long the last operation is (in OPLEN), and also how many preceding subexpressions serve as arguments for it (in ARGS). */ opcode = inexpr->elts[inend - 1].opcode; switch (opcode) { /* C++ */ case OP_SCOPE: oplen = longest_to_int (inexpr->elts[inend - 2].longconst); oplen = 5 + BYTES_TO_EXP_ELEM (oplen + 1); break; case OP_LONG: case OP_DOUBLE: case OP_VAR_VALUE: oplen = 4; break; case OP_TYPE: case OP_BOOL: case OP_LAST: case OP_REGISTER: case OP_INTERNALVAR: oplen = 3; break; case OP_FUNCALL: oplen = 3; args = 1 + longest_to_int (inexpr->elts[inend - 2].longconst); break; case UNOP_MIN: case UNOP_MAX: oplen = 3; break; case UNOP_CAST: case UNOP_MEMVAL: oplen = 3; args = 1; break; case UNOP_ABS: case UNOP_CAP: case UNOP_CHR: case UNOP_FLOAT: case UNOP_HIGH: case UNOP_ODD: case UNOP_ORD: case UNOP_TRUNC: oplen=1; args=1; break; case STRUCTOP_STRUCT: case STRUCTOP_PTR: args = 1; /* fall through */ case OP_M2_STRING: case OP_STRING: oplen = longest_to_int (inexpr->elts[inend - 2].longconst); oplen = 4 + BYTES_TO_EXP_ELEM (oplen + 1); break; case OP_BITSTRING: oplen = longest_to_int (inexpr->elts[inend - 2].longconst); oplen = (oplen + HOST_CHAR_BIT - 1) / HOST_CHAR_BIT; oplen = 4 + BYTES_TO_EXP_ELEM (oplen); break; case OP_ARRAY: oplen = 4; args = longest_to_int (inexpr->elts[inend - 2].longconst); args -= longest_to_int (inexpr->elts[inend - 3].longconst); args += 1; break; case TERNOP_COND: args = 3; break; case BINOP_ASSIGN_MODIFY: oplen = 3; args = 2; break; /* Modula-2 */ case MULTI_SUBSCRIPT: oplen=3; args = 1 + longest_to_int (inexpr->elts[inend - 2].longconst); break; /* C++ */ case OP_THIS: oplen = 2; break; default: args = 1 + ((int) opcode < (int) BINOP_END); } /* Copy the final operator itself, from the end of the input to the beginning of the output. */ inend -= oplen; memcpy (&outexpr->elts[outbeg], &inexpr->elts[inend], EXP_ELEM_TO_BYTES (oplen)); outbeg += oplen; /* Find the lengths of the arg subexpressions. */ arglens = (int *) alloca (args * sizeof (int)); for (i = args - 1; i >= 0; i--) { oplen = length_of_subexp (inexpr, inend); arglens[i] = oplen; inend -= oplen; } /* Now copy each subexpression, preserving the order of the subexpressions, but prefixifying each one. In this loop, inend starts at the beginning of the expression this level is working on and marches forward over the arguments. outbeg does similarly in the output. */ for (i = 0; i < args; i++) { oplen = arglens[i]; inend += oplen; prefixify_subexp (inexpr, outexpr, inend, outbeg); outbeg += oplen; } } /* This page contains the two entry points to this file. */ /* Read an expression from the string *STRINGPTR points to, parse it, and return a pointer to a struct expression that we malloc. Use block BLOCK as the lexical context for variable names; if BLOCK is zero, use the block of the selected stack frame. Meanwhile, advance *STRINGPTR to point after the expression, at the first nonwhite character that is not part of the expression (possibly a null character). If COMMA is nonzero, stop if a comma is reached. */ struct expression * parse_exp_1 (stringptr, block, comma) char **stringptr; struct block *block; int comma; { struct cleanup *old_chain; lexptr = *stringptr; paren_depth = 0; type_stack_depth = 0; comma_terminates = comma; if (lexptr == 0 || *lexptr == 0) error_no_arg ("expression to compute"); old_chain = make_cleanup (free_funcalls, 0); funcall_chain = 0; expression_context_block = block ? block : get_selected_block (); namecopy = (char *) alloca (strlen (lexptr) + 1); expout_size = 10; expout_ptr = 0; expout = (struct expression *) xmalloc (sizeof (struct expression) + EXP_ELEM_TO_BYTES (expout_size)); expout->language_defn = current_language; make_cleanup (free_current_contents, &expout); if (current_language->la_parser ()) current_language->la_error (NULL); discard_cleanups (old_chain); /* Record the actual number of expression elements, and then reallocate the expression memory so that we free up any excess elements. */ expout->nelts = expout_ptr; expout = (struct expression *) xrealloc ((char *) expout, sizeof (struct expression) + EXP_ELEM_TO_BYTES (expout_ptr));; /* Convert expression from postfix form as generated by yacc parser, to a prefix form. */ DUMP_EXPRESSION (expout, gdb_stdout, "before conversion to prefix form"); prefixify_expression (expout); DUMP_EXPRESSION (expout, gdb_stdout, "after conversion to prefix form"); *stringptr = lexptr; return expout; } /* Parse STRING as an expression, and complain if this fails to use up all of the contents of STRING. */ struct expression * parse_expression (string) char *string; { register struct expression *exp; exp = parse_exp_1 (&string, 0, 0); if (*string) error ("Junk after end of expression."); return exp; } /* Stuff for maintaining a stack of types. Currently just used by C, but probably useful for any language which declares its types "backwards". */ void push_type (tp) enum type_pieces tp; { if (type_stack_depth == type_stack_size) { type_stack_size *= 2; type_stack = (union type_stack_elt *) xrealloc ((char *) type_stack, type_stack_size * sizeof (*type_stack)); } type_stack[type_stack_depth++].piece = tp; } void push_type_int (n) int n; { if (type_stack_depth == type_stack_size) { type_stack_size *= 2; type_stack = (union type_stack_elt *) xrealloc ((char *) type_stack, type_stack_size * sizeof (*type_stack)); } type_stack[type_stack_depth++].int_val = n; } enum type_pieces pop_type () { if (type_stack_depth) return type_stack[--type_stack_depth].piece; return tp_end; } int pop_type_int () { if (type_stack_depth) return type_stack[--type_stack_depth].int_val; /* "Can't happen". */ return 0; } /* Pop the type stack and return the type which corresponds to FOLLOW_TYPE as modified by all the stuff on the stack. */ struct type * follow_types (follow_type) struct type *follow_type; { int done = 0; int array_size; struct type *range_type; while (!done) switch (pop_type ()) { case tp_end: done = 1; break; case tp_pointer: follow_type = lookup_pointer_type (follow_type); break; case tp_reference: follow_type = lookup_reference_type (follow_type); break; case tp_array: array_size = pop_type_int (); if (array_size != -1) { range_type = create_range_type ((struct type *) NULL, builtin_type_int, 0, array_size - 1); follow_type = create_array_type ((struct type *) NULL, follow_type, range_type); } else follow_type = lookup_pointer_type (follow_type); break; case tp_function: follow_type = lookup_function_type (follow_type); break; } return follow_type; } void _initialize_parse () { type_stack_size = 80; type_stack_depth = 0; type_stack = (union type_stack_elt *) xmalloc (type_stack_size * sizeof (*type_stack)); /* We don't worry too much about what the name of this type is because the name should rarely appear in output to the user. */ msymbol_addr_type = init_type (TYPE_CODE_PTR, TARGET_PTR_BIT / HOST_CHAR_BIT, 0, "void *", NULL); } gdb-4.13/gdb/parser-defs.h 666 34562 1752 12667 5555247270 13724 0ustar fnfcygnus/* Parser definitions for GDB. Copyright (C) 1986, 1989, 1990, 1991 Free Software Foundation, Inc. Modified from expread.y by the Department of Computer Science at the State University of New York at Buffalo. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (PARSER_DEFS_H) #define PARSER_DEFS_H 1 struct std_regs { char *name; int regnum; }; extern struct std_regs std_regs[]; extern unsigned num_std_regs; extern struct expression *expout; extern int expout_size; extern int expout_ptr; /* If this is nonzero, this block is used as the lexical context for symbol names. */ extern struct block *expression_context_block; /* The innermost context required by the stack and register variables we've encountered so far. */ extern struct block *innermost_block; /* The block in which the most recently discovered symbol was found. FIXME: Should be declared along with lookup_symbol in symtab.h; is not related specifically to parsing. */ extern struct block *block_found; /* Number of arguments seen so far in innermost function call. */ extern int arglist_len; /* A string token, either a char-string or bit-string. Char-strings are used, for example, for the names of symbols. */ struct stoken { /* Pointer to first byte of char-string or first bit of bit-string */ char *ptr; /* Length of string in bytes for char-string or bits for bit-string */ int length; }; struct ttype { struct stoken stoken; struct type *type; }; struct symtoken { struct stoken stoken; struct symbol *sym; int is_a_field_of_this; }; /* For parsing of complicated types. An array should be preceded in the list by the size of the array. */ enum type_pieces {tp_end = -1, tp_pointer, tp_reference, tp_array, tp_function}; /* The stack can contain either an enum type_pieces or an int. */ union type_stack_elt { enum type_pieces piece; int int_val; }; extern union type_stack_elt *type_stack; extern int type_stack_depth, type_stack_size; extern void write_exp_elt PARAMS ((union exp_element)); extern void write_exp_elt_opcode PARAMS ((enum exp_opcode)); extern void write_exp_elt_sym PARAMS ((struct symbol *)); extern void write_exp_elt_longcst PARAMS ((LONGEST)); extern void write_exp_elt_dblcst PARAMS ((double)); extern void write_exp_elt_type PARAMS ((struct type *)); extern void write_exp_elt_intern PARAMS ((struct internalvar *)); extern void write_exp_string PARAMS ((struct stoken)); extern void write_exp_bitstring PARAMS ((struct stoken)); extern void write_exp_elt_block PARAMS ((struct block *)); extern void write_exp_msymbol PARAMS ((struct minimal_symbol *, struct type *, struct type *)); extern void start_arglist PARAMS ((void)); extern int end_arglist PARAMS ((void)); extern char * copy_name PARAMS ((struct stoken)); extern void push_type PARAMS ((enum type_pieces)); extern void push_type_int PARAMS ((int)); extern enum type_pieces pop_type PARAMS ((void)); extern int pop_type_int PARAMS ((void)); extern struct type *follow_types PARAMS ((struct type *)); /* During parsing of a C expression, the pointer to the next character is in this variable. */ extern char *lexptr; /* Tokens that refer to names do so with explicit pointer and length, so they can share the storage that lexptr is parsing. When it is necessary to pass a name to a function that expects a null-terminated string, the substring is copied out into a block of storage that namecopy points to. namecopy is allocated once, guaranteed big enough, for each parsing. */ extern char *namecopy; /* Current depth in parentheses within the expression. */ extern int paren_depth; /* Nonzero means stop parsing on first comma (if not within parentheses). */ extern int comma_terminates; /* These codes indicate operator precedences for expression printing, least tightly binding first. */ /* Adding 1 to a precedence value is done for binary operators, on the operand which is more tightly bound, so that operators of equal precedence within that operand will get parentheses. */ /* PREC_HYPER and PREC_ABOVE_COMMA are not the precedence of any operator; they are used as the "surrounding precedence" to force various kinds of things to be parenthesized. */ enum precedence { PREC_NULL, PREC_COMMA, PREC_ABOVE_COMMA, PREC_ASSIGN, PREC_LOGICAL_OR, PREC_LOGICAL_AND, PREC_BITWISE_IOR, PREC_BITWISE_AND, PREC_BITWISE_XOR, PREC_EQUAL, PREC_ORDER, PREC_SHIFT, PREC_ADD, PREC_MUL, PREC_REPEAT, PREC_HYPER, PREC_PREFIX, PREC_SUFFIX }; /* Table mapping opcodes into strings for printing operators and precedences of the operators. */ struct op_print { char *string; enum exp_opcode opcode; /* Precedence of operator. These values are used only by comparisons. */ enum precedence precedence; int right_assoc; }; #endif /* PARSER_DEFS_H */ gdb-4.13/gdb/partial-stab.h 666 34562 1752 50532 5557246010 14056 0ustar fnfcygnus/* Shared code to pre-read a stab (dbx-style), when building a psymtab. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The following need to be defined: SET_NAMESTRING() --Set namestring to name of symbol. CUR_SYMBOL_TYPE --Type code of current symbol. CUR_SYMBOL_VALUE --Value field of current symbol. May be adjusted here. */ /* End of macro definitions, now let's handle them symbols! */ switch (CUR_SYMBOL_TYPE) { char *p; /* * Standard, external, non-debugger, symbols */ case N_TEXT | N_EXT: case N_NBTEXT | N_EXT: CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_TEXT); goto record_it; case N_DATA | N_EXT: case N_NBDATA | N_EXT: CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_DATA); goto record_it; case N_BSS: case N_BSS | N_EXT: case N_NBBSS | N_EXT: case N_SETV | N_EXT: /* FIXME, is this in BSS? */ CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_BSS); goto record_it; case N_ABS | N_EXT: record_it: #ifdef DBXREAD_ONLY SET_NAMESTRING(); bss_ext_symbol: record_minimal_symbol (namestring, CUR_SYMBOL_VALUE, CUR_SYMBOL_TYPE, objfile); /* Always */ #endif /* DBXREAD_ONLY */ continue; /* Standard, local, non-debugger, symbols */ case N_NBTEXT: /* We need to be able to deal with both N_FN or N_TEXT, because we have no way of knowing whether the sys-supplied ld or GNU ld was used to make the executable. Sequents throw in another wrinkle -- they renumbered N_FN. */ case N_FN: case N_FN_SEQ: case N_TEXT: #ifdef DBXREAD_ONLY CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_TEXT); SET_NAMESTRING(); if ((namestring[0] == '-' && namestring[1] == 'l') || (namestring [(nsl = strlen (namestring)) - 1] == 'o' && namestring [nsl - 2] == '.') #ifdef GDB_TARGET_IS_HPPA /* some cooperation from gcc to get around ld stupidity */ || (namestring[0] == 'e' && STREQ (namestring, "end_file.")) #endif ) { #ifndef GDB_TARGET_IS_HPPA if (objfile -> ei.entry_point < CUR_SYMBOL_VALUE && objfile -> ei.entry_point >= last_o_file_start) { objfile -> ei.entry_file_lowpc = last_o_file_start; objfile -> ei.entry_file_highpc = CUR_SYMBOL_VALUE; } #endif if (past_first_source_file && pst /* The gould NP1 uses low values for .o and -l symbols which are not the address. */ && CUR_SYMBOL_VALUE >= pst->textlow) { END_PSYMTAB (pst, psymtab_include_list, includes_used, symnum * symbol_size, CUR_SYMBOL_VALUE, dependency_list, dependencies_used); pst = (struct partial_symtab *) 0; includes_used = 0; dependencies_used = 0; } else past_first_source_file = 1; last_o_file_start = CUR_SYMBOL_VALUE; } else goto record_it; #endif /* DBXREAD_ONLY */ continue; case N_DATA: CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_DATA); goto record_it; case N_UNDF | N_EXT: #ifdef DBXREAD_ONLY if (CUR_SYMBOL_VALUE != 0) { /* This is a "Fortran COMMON" symbol. See if the target environment knows where it has been relocated to. */ CORE_ADDR reladdr; SET_NAMESTRING(); if (target_lookup_symbol (namestring, &reladdr)) { continue; /* Error in lookup; ignore symbol for now. */ } CUR_SYMBOL_TYPE ^= (N_BSS^N_UNDF); /* Define it as a bss-symbol */ CUR_SYMBOL_VALUE = reladdr; goto bss_ext_symbol; } #endif /* DBXREAD_ONLY */ continue; /* Just undefined, not COMMON */ case N_UNDF: #ifdef DBXREAD_ONLY if (processing_acc_compilation && bufp->n_strx == 1) { /* Deal with relative offsets in the string table used in ELF+STAB under Solaris. If we want to use the n_strx field, which contains the name of the file, we must adjust file_string_table_offset *before* calling SET_NAMESTRING(). */ past_first_source_file = 1; file_string_table_offset = next_file_string_table_offset; next_file_string_table_offset = file_string_table_offset + bufp->n_value; if (next_file_string_table_offset < file_string_table_offset) error ("string table offset backs up at %d", symnum); /* FIXME -- replace error() with complaint. */ continue; } #endif /* DBXREAD_ONLY */ continue; /* Lots of symbol types we can just ignore. */ case N_ABS: case N_NBDATA: case N_NBBSS: continue; /* Keep going . . .*/ /* * Special symbol types for GNU */ case N_INDR: case N_INDR | N_EXT: case N_SETA: case N_SETA | N_EXT: case N_SETT: case N_SETT | N_EXT: case N_SETD: case N_SETD | N_EXT: case N_SETB: case N_SETB | N_EXT: case N_SETV: continue; /* * Debugger symbols */ case N_SO: { unsigned long valu; static int prev_so_symnum = -10; static int first_so_symnum; char *p; valu = CUR_SYMBOL_VALUE + ANOFFSET (section_offsets, SECT_OFF_TEXT); past_first_source_file = 1; if (prev_so_symnum != symnum - 1) { /* Here if prev stab wasn't N_SO */ first_so_symnum = symnum; if (pst) { END_PSYMTAB (pst, psymtab_include_list, includes_used, symnum * symbol_size, valu, dependency_list, dependencies_used); pst = (struct partial_symtab *) 0; includes_used = 0; dependencies_used = 0; } } prev_so_symnum = symnum; /* End the current partial symtab and start a new one */ SET_NAMESTRING(); /* Some compilers (including gcc) emit a pair of initial N_SOs. The first one is a directory name; the second the file name. If pst exists, is empty, and has a filename ending in '/', we assume the previous N_SO was a directory name. */ p = strrchr (namestring, '/'); if (p && *(p+1) == '\000') continue; /* Simply ignore directory name SOs */ /* Some other compilers (C++ ones in particular) emit useless SOs for non-existant .c files. We ignore all subsequent SOs that immediately follow the first. */ if (!pst) pst = START_PSYMTAB (objfile, section_offsets, namestring, valu, first_so_symnum * symbol_size, objfile -> global_psymbols.next, objfile -> static_psymbols.next); continue; } case N_BINCL: { #ifdef DBXREAD_ONLY enum language tmp_language; /* Add this bincl to the bincl_list for future EXCLs. No need to save the string; it'll be around until read_dbx_symtab function returns */ SET_NAMESTRING(); tmp_language = deduce_language_from_filename (namestring); /* Only change the psymtab's language if we've learned something useful (eg. tmp_language is not language_unknown). In addition, to match what start_subfile does, never change from C++ to C. */ if (tmp_language != language_unknown && (tmp_language != language_c || psymtab_language != language_cplus)) psymtab_language = tmp_language; add_bincl_to_list (pst, namestring, CUR_SYMBOL_VALUE); /* Mark down an include file in the current psymtab */ goto record_include_file; #else /* DBXREAD_ONLY */ continue; #endif } case N_SOL: { enum language tmp_language; /* Mark down an include file in the current psymtab */ SET_NAMESTRING(); tmp_language = deduce_language_from_filename (namestring); /* Only change the psymtab's language if we've learned something useful (eg. tmp_language is not language_unknown). In addition, to match what start_subfile does, never change from C++ to C. */ if (tmp_language != language_unknown && (tmp_language != language_c || psymtab_language != language_cplus)) psymtab_language = tmp_language; /* In C++, one may expect the same filename to come round many times, when code is coming alternately from the main file and from inline functions in other files. So I check to see if this is a file we've seen before -- either the main source file, or a previously included file. This seems to be a lot of time to be spending on N_SOL, but things like "break c-exp.y:435" need to work (I suppose the psymtab_include_list could be hashed or put in a binary tree, if profiling shows this is a major hog). */ if (pst && STREQ (namestring, pst->filename)) continue; { register int i; for (i = 0; i < includes_used; i++) if (STREQ (namestring, psymtab_include_list[i])) { i = -1; break; } if (i == -1) continue; } #ifdef DBXREAD_ONLY record_include_file: #endif psymtab_include_list[includes_used++] = namestring; if (includes_used >= includes_allocated) { char **orig = psymtab_include_list; psymtab_include_list = (char **) alloca ((includes_allocated *= 2) * sizeof (char *)); memcpy ((PTR)psymtab_include_list, (PTR)orig, includes_used * sizeof (char *)); } continue; } case N_LSYM: /* Typedef or automatic variable. */ case N_STSYM: /* Data seg var -- static */ case N_LCSYM: /* BSS " */ case N_ROSYM: /* Read-only data seg var -- static. */ case N_NBSTS: /* Gould nobase. */ case N_NBLCS: /* symbols. */ case N_FUN: case N_GSYM: /* Global (extern) variable; can be data or bss (sigh FIXME). */ /* Following may probably be ignored; I'll leave them here for now (until I do Pascal and Modula 2 extensions). */ case N_PC: /* I may or may not need this; I suspect not. */ case N_M2C: /* I suspect that I can ignore this here. */ case N_SCOPE: /* Same. */ SET_NAMESTRING(); p = (char *) strchr (namestring, ':'); if (!p) continue; /* Not a debugging symbol. */ /* Main processing section for debugging symbols which the initial read through the symbol tables needs to worry about. If we reach this point, the symbol which we are considering is definitely one we are interested in. p must also contain the (valid) index into the namestring which indicates the debugging type symbol. */ switch (p[1]) { case 'S': CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_DATA); ADD_PSYMBOL_ADDR_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_STATIC, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; case 'G': CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_DATA); /* The addresses in these entries are reported to be wrong. See the code that reads 'G's for symtabs. */ ADD_PSYMBOL_ADDR_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_STATIC, objfile->global_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; case 'T': if (p != namestring) /* a name is there, not just :T... */ { ADD_PSYMBOL_TO_LIST (namestring, p - namestring, STRUCT_NAMESPACE, LOC_TYPEDEF, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); if (p[2] == 't') { /* Also a typedef with the same name. */ ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_TYPEDEF, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); p += 1; } /* The semantics of C++ state that "struct foo { ... }" also defines a typedef for "foo". Unfortuantely, cfront never makes the typedef when translating from C++ to C. We make the typedef here so that "ptype foo" works as expected for cfront translated code. */ else if (psymtab_language == language_cplus) { /* Also a typedef with the same name. */ ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_TYPEDEF, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); } } goto check_enum; case 't': if (p != namestring) /* a name is there, not just :T... */ { ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_TYPEDEF, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); } check_enum: /* If this is an enumerated type, we need to add all the enum constants to the partial symbol table. This does not cover enums without names, e.g. "enum {a, b} c;" in C, but fortunately those are rare. There is no way for GDB to find those from the enum type without spending too much time on it. Thus to solve this problem, the compiler needs to put out the enum in a nameless type. GCC2 does this. */ /* We are looking for something of the form ":" ("t" | "T") [ "="] "e" { ":" ","} ";". */ /* Skip over the colon and the 't' or 'T'. */ p += 2; /* This type may be given a number. Also, numbers can come in pairs like (0,26). Skip over it. */ while ((*p >= '0' && *p <= '9') || *p == '(' || *p == ',' || *p == ')' || *p == '=') p++; if (*p++ == 'e') { /* We have found an enumerated type. */ /* According to comments in read_enum_type a comma could end it instead of a semicolon. I don't know where that happens. Accept either. */ while (*p && *p != ';' && *p != ',') { char *q; /* Check for and handle cretinous dbx symbol name continuation! */ if (*p == '\\' || (*p == '?' && p[1] == '\0')) p = next_symbol_text (); /* Point to the character after the name of the enum constant. */ for (q = p; *q && *q != ':'; q++) ; /* Note that the value doesn't matter for enum constants in psymtabs, just in symtabs. */ ADD_PSYMBOL_TO_LIST (p, q - p, VAR_NAMESPACE, LOC_CONST, objfile->static_psymbols, 0, psymtab_language, objfile); /* Point past the name. */ p = q; /* Skip over the value. */ while (*p && *p != ',') p++; /* Advance past the comma. */ if (*p) p++; } } continue; case 'c': /* Constant, e.g. from "const" in Pascal. */ ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_CONST, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; case 'f': CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_TEXT); #ifdef DBXREAD_ONLY /* Kludges for ELF/STABS with Sun ACC */ last_function_name = namestring; /* Do not fix textlow==0 for .o or NLM files, as 0 is a legit value for the bottom of the text seg in those cases. */ if (pst && pst->textlow == 0 && !symfile_relocatable) pst->textlow = CUR_SYMBOL_VALUE; #if 0 if (startup_file_end == 0) startup_file_end = CUR_SYMBOL_VALUE; #endif /* End kludge. */ #endif /* DBXREAD_ONLY */ ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_BLOCK, objfile->static_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; /* Global functions were ignored here, but now they are put into the global psymtab like one would expect. They're also in the minimal symbol table. */ case 'F': CUR_SYMBOL_VALUE += ANOFFSET (section_offsets, SECT_OFF_TEXT); #ifdef DBXREAD_ONLY /* Kludges for ELF/STABS with Sun ACC */ last_function_name = namestring; /* Do not fix textlow==0 for .o or NLM files, as 0 is a legit value for the bottom of the text seg in those cases. */ if (pst && pst->textlow == 0 && !symfile_relocatable) pst->textlow = CUR_SYMBOL_VALUE; #if 0 if (startup_file_end == 0) startup_file_end = CUR_SYMBOL_VALUE; #endif /* End kludge. */ #endif /* DBXREAD_ONLY */ ADD_PSYMBOL_TO_LIST (namestring, p - namestring, VAR_NAMESPACE, LOC_BLOCK, objfile->global_psymbols, CUR_SYMBOL_VALUE, psymtab_language, objfile); continue; /* Two things show up here (hopefully); static symbols of local scope (static used inside braces) or extensions of structure symbols. We can ignore both. */ case 'V': case '(': case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': continue; case ':': /* It is a C++ nested symbol. We don't need to record it (I don't think); if we try to look up foo::bar::baz, then symbols for the symtab containing foo should get read in, I think. */ /* Someone says sun cc puts out symbols like /foo/baz/maclib::/usr/local/bin/maclib, which would get here with a symbol type of ':'. */ continue; default: /* Unexpected symbol descriptor. The second and subsequent stabs of a continued stab can show up here. The question is whether they ever can mimic a normal stab--it would be nice if not, since we certainly don't want to spend the time searching to the end of every string looking for a backslash. */ complain (&unknown_symchar_complaint, p[1]); /* Ignore it; perhaps it is an extension that we don't know about. */ continue; } case N_EXCL: #ifdef DBXREAD_ONLY SET_NAMESTRING(); /* Find the corresponding bincl and mark that psymtab on the psymtab dependency list */ { struct partial_symtab *needed_pst = find_corresponding_bincl_psymtab (namestring, CUR_SYMBOL_VALUE); /* If this include file was defined earlier in this file, leave it alone. */ if (needed_pst == pst) continue; if (needed_pst) { int i; int found = 0; for (i = 0; i < dependencies_used; i++) if (dependency_list[i] == needed_pst) { found = 1; break; } /* If it's already in the list, skip the rest. */ if (found) continue; dependency_list[dependencies_used++] = needed_pst; if (dependencies_used >= dependencies_allocated) { struct partial_symtab **orig = dependency_list; dependency_list = (struct partial_symtab **) alloca ((dependencies_allocated *= 2) * sizeof (struct partial_symtab *)); memcpy ((PTR)dependency_list, (PTR)orig, (dependencies_used * sizeof (struct partial_symtab *))); #ifdef DEBUG_INFO fprintf_unfiltered (gdb_stderr, "Had to reallocate dependency list.\n"); fprintf_unfiltered (gdb_stderr, "New dependencies allocated: %d\n", dependencies_allocated); #endif } } else error ("Invalid symbol data: \"repeated\" header file not previously seen, at symtab pos %d.", symnum); } #endif /* DBXREAD_ONLY */ continue; case N_RBRAC: #ifdef HANDLE_RBRAC HANDLE_RBRAC(CUR_SYMBOL_VALUE); continue; #endif case N_EINCL: case N_DSLINE: case N_BSLINE: case N_SSYM: /* Claim: Structure or union element. Hopefully, I can ignore this. */ case N_ENTRY: /* Alternate entry point; can ignore. */ case N_MAIN: /* Can definitely ignore this. */ case N_CATCH: /* These are GNU C++ extensions */ case N_EHDECL: /* that can safely be ignored here. */ case N_LENG: case N_BCOMM: case N_ECOMM: case N_ECOML: case N_FNAME: case N_SLINE: case N_RSYM: case N_PSYM: case N_LBRAC: case N_NSYMS: /* Ultrix 4.0: symbol count */ case N_DEFD: /* GNU Modula-2 */ case N_OBJ: /* useless types from Solaris */ case N_OPT: case N_ENDM: /* These symbols aren't interesting; don't worry about them */ continue; default: /* If we haven't found it yet, ignore it. It's probably some new type we don't know about yet. */ complain (&unknown_symtype_complaint, local_hex_string (CUR_SYMBOL_TYPE)); continue; } gdb-4.13/gdb/printcmd.c 666 34562 1752 164520 5566472345 13345 0ustar fnfcygnus/* Print values for GNU debugger GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include #include "frame.h" #include "symtab.h" #include "gdbtypes.h" #include "value.h" #include "language.h" #include "expression.h" #include "gdbcore.h" #include "gdbcmd.h" #include "target.h" #include "breakpoint.h" #include "demangle.h" #include "valprint.h" #include "annotate.h" extern int asm_demangle; /* Whether to demangle syms in asm printouts */ extern int addressprint; /* Whether to print hex addresses in HLL " */ struct format_data { int count; char format; char size; }; /* Last specified output format. */ static char last_format = 'x'; /* Last specified examination size. 'b', 'h', 'w' or `q'. */ static char last_size = 'w'; /* Default address to examine next. */ static CORE_ADDR next_address; /* Last address examined. */ static CORE_ADDR last_examine_address; /* Contents of last address examined. This is not valid past the end of the `x' command! */ static value_ptr last_examine_value; /* Largest offset between a symbolic value and an address, that will be printed as `0x1234 '. */ static unsigned int max_symbolic_offset = UINT_MAX; /* Append the source filename and linenumber of the symbol when printing a symbolic value as `' if set. */ static int print_symbol_filename = 0; /* Number of auto-display expression currently being displayed. So that we can disable it if we get an error or a signal within it. -1 when not doing one. */ int current_display_number; /* Flag to low-level print routines that this value is being printed in an epoch window. We'd like to pass this as a parameter, but every routine would need to take it. Perhaps we can encapsulate this in the I/O stream once we have GNU stdio. */ int inspect_it = 0; struct display { /* Chain link to next auto-display item. */ struct display *next; /* Expression to be evaluated and displayed. */ struct expression *exp; /* Item number of this auto-display item. */ int number; /* Display format specified. */ struct format_data format; /* Innermost block required by this expression when evaluated */ struct block *block; /* Status of this display (enabled or disabled) */ enum enable status; }; /* Chain of expressions whose values should be displayed automatically each time the program stops. */ static struct display *display_chain; static int display_number; /* Prototypes for local functions */ static void delete_display PARAMS ((int)); static void enable_display PARAMS ((char *, int)); static void disable_display_command PARAMS ((char *, int)); static void disassemble_command PARAMS ((char *, int)); static void printf_command PARAMS ((char *, int)); static void print_frame_nameless_args PARAMS ((struct frame_info *, long, int, int, GDB_FILE *)); static void display_info PARAMS ((char *, int)); static void do_one_display PARAMS ((struct display *)); static void undisplay_command PARAMS ((char *, int)); static void free_display PARAMS ((struct display *)); static void display_command PARAMS ((char *, int)); static void x_command PARAMS ((char *, int)); static void address_info PARAMS ((char *, int)); static void set_command PARAMS ((char *, int)); static void output_command PARAMS ((char *, int)); static void call_command PARAMS ((char *, int)); static void inspect_command PARAMS ((char *, int)); static void print_command PARAMS ((char *, int)); static void print_command_1 PARAMS ((char *, int, int)); static void validate_format PARAMS ((struct format_data, char *)); static void do_examine PARAMS ((struct format_data, CORE_ADDR)); static void print_formatted PARAMS ((value_ptr, int, int)); static struct format_data decode_format PARAMS ((char **, int, int)); /* Decode a format specification. *STRING_PTR should point to it. OFORMAT and OSIZE are used as defaults for the format and size if none are given in the format specification. If OSIZE is zero, then the size field of the returned value should be set only if a size is explicitly specified by the user. The structure returned describes all the data found in the specification. In addition, *STRING_PTR is advanced past the specification and past all whitespace following it. */ static struct format_data decode_format (string_ptr, oformat, osize) char **string_ptr; int oformat; int osize; { struct format_data val; register char *p = *string_ptr; val.format = '?'; val.size = '?'; val.count = 1; if (*p >= '0' && *p <= '9') val.count = atoi (p); while (*p >= '0' && *p <= '9') p++; /* Now process size or format letters that follow. */ while (1) { if (*p == 'b' || *p == 'h' || *p == 'w' || *p == 'g') val.size = *p++; else if (*p >= 'a' && *p <= 'z') val.format = *p++; else break; } while (*p == ' ' || *p == '\t') p++; *string_ptr = p; /* Set defaults for format and size if not specified. */ if (val.format == '?') { if (val.size == '?') { /* Neither has been specified. */ val.format = oformat; val.size = osize; } else /* If a size is specified, any format makes a reasonable default except 'i'. */ val.format = oformat == 'i' ? 'x' : oformat; } else if (val.size == '?') switch (val.format) { case 'a': case 's': /* Pick the appropriate size for an address. */ if (TARGET_PTR_BIT == 64) val.size = osize ? 'g' : osize; else if (TARGET_PTR_BIT == 32) val.size = osize ? 'w' : osize; else if (TARGET_PTR_BIT == 16) val.size = osize ? 'h' : osize; else /* Bad value for TARGET_PTR_BIT */ abort (); break; case 'f': /* Floating point has to be word or giantword. */ if (osize == 'w' || osize == 'g') val.size = osize; else /* Default it to giantword if the last used size is not appropriate. */ val.size = osize ? 'g' : osize; break; case 'c': /* Characters default to one byte. */ val.size = osize ? 'b' : osize; break; default: /* The default is the size most recently specified. */ val.size = osize; } return val; } /* Print value VAL on gdb_stdout according to FORMAT, a letter or 0. Do not end with a newline. 0 means print VAL according to its own type. SIZE is the letter for the size of datum being printed. This is used to pad hex numbers so they line up. */ static void print_formatted (val, format, size) register value_ptr val; register int format; int size; { int len = TYPE_LENGTH (VALUE_TYPE (val)); if (VALUE_LVAL (val) == lval_memory) next_address = VALUE_ADDRESS (val) + len; switch (format) { case 's': next_address = VALUE_ADDRESS (val) + value_print (value_addr (val), gdb_stdout, format, Val_pretty_default); break; case 'i': /* The old comment says "Force output out, print_insn not using _filtered". I'm not completely sure what that means, I suspect most print_insn now do use _filtered, so I guess it's obsolete. */ /* We often wrap here if there are long symbolic names. */ wrap_here (" "); next_address = VALUE_ADDRESS (val) + print_insn (VALUE_ADDRESS (val), gdb_stdout); break; default: if (format == 0 || TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_ARRAY || TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_STRING || TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_STRUCT || TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_UNION || VALUE_REPEATED (val)) value_print (val, gdb_stdout, format, Val_pretty_default); else print_scalar_formatted (VALUE_CONTENTS (val), VALUE_TYPE (val), format, size, gdb_stdout); } } /* Print a scalar of data of type TYPE, pointed to in GDB by VALADDR, according to letters FORMAT and SIZE on STREAM. FORMAT may not be zero. Formats s and i are not supported at this level. This is how the elements of an array or structure are printed with a format. */ void print_scalar_formatted (valaddr, type, format, size, stream) char *valaddr; struct type *type; int format; int size; GDB_FILE *stream; { LONGEST val_long; int len = TYPE_LENGTH (type); if (len > sizeof (LONGEST) && (format == 't' || format == 'c' || format == 'o' || format == 'u' || format == 'd' || format == 'x')) { /* We can't print it normally, but we can print it in hex. Printing it in the wrong radix is more useful than saying "use /x, you dummy". */ /* FIXME: we could also do octal or binary if that was the desired format. */ /* FIXME: we should be using the size field to give us a minimum field width to print. */ val_print_type_code_int (type, valaddr, stream); return; } if (format != 'f') val_long = unpack_long (type, valaddr); /* If we are printing it as unsigned, truncate it in case it is actually a negative signed value (e.g. "print/u (short)-1" should print 65535 (if shorts are 16 bits) instead of 4294967295). */ if (format != 'd') { if (len < sizeof (LONGEST)) val_long &= ((LONGEST) 1 << HOST_CHAR_BIT * len) - 1; } switch (format) { case 'x': if (!size) { /* no size specified, like in print. Print varying # of digits. */ print_longest (stream, 'x', 1, val_long); } else switch (size) { case 'b': case 'h': case 'w': case 'g': print_longest (stream, size, 1, val_long); break; default: error ("Undefined output size \"%c\".", size); } break; case 'd': print_longest (stream, 'd', 1, val_long); break; case 'u': print_longest (stream, 'u', 0, val_long); break; case 'o': if (val_long) print_longest (stream, 'o', 1, val_long); else fprintf_filtered (stream, "0"); break; case 'a': print_address (unpack_pointer (type, valaddr), stream); break; case 'c': value_print (value_from_longest (builtin_type_char, val_long), stream, 0, Val_pretty_default); break; case 'f': if (len == sizeof (float)) type = builtin_type_float; else if (len == sizeof (double)) type = builtin_type_double; print_floating (valaddr, type, stream); break; case 0: abort (); case 't': /* Binary; 't' stands for "two". */ { char bits[8*(sizeof val_long) + 1]; char *cp = bits; int width; if (!size) width = 8*(sizeof val_long); else switch (size) { case 'b': width = 8; break; case 'h': width = 16; break; case 'w': width = 32; break; case 'g': width = 64; break; default: error ("Undefined output size \"%c\".", size); } bits[width] = '\0'; while (width-- > 0) { bits[width] = (val_long & 1) ? '1' : '0'; val_long >>= 1; } if (!size) { while (*cp && *cp == '0') cp++; if (*cp == '\0') cp--; } fprintf_filtered (stream, local_binary_format_prefix()); fprintf_filtered (stream, cp); fprintf_filtered (stream, local_binary_format_suffix()); } break; default: error ("Undefined output format \"%c\".", format); } } /* Specify default address for `x' command. `info lines' uses this. */ void set_next_address (addr) CORE_ADDR addr; { next_address = addr; /* Make address available to the user as $_. */ set_internalvar (lookup_internalvar ("_"), value_from_longest (lookup_pointer_type (builtin_type_void), (LONGEST) addr)); } /* Optionally print address ADDR symbolically as on STREAM, after LEADIN. Print nothing if no symbolic name is found nearby. Optionally also print source file and line number, if available. DO_DEMANGLE controls whether to print a symbol in its native "raw" form, or to interpret it as a possible C++ name and convert it back to source form. However note that DO_DEMANGLE can be overridden by the specific settings of the demangle and asm_demangle variables. */ void print_address_symbolic (addr, stream, do_demangle, leadin) CORE_ADDR addr; GDB_FILE *stream; int do_demangle; char *leadin; { struct minimal_symbol *msymbol; struct symbol *symbol; struct symtab *symtab = 0; CORE_ADDR name_location = 0; char *name = ""; /* First try to find the address in the symbol table, then in the minsyms. Take the closest one. */ /* This is defective in the sense that it only finds text symbols. So really this is kind of pointless--we should make sure that the minimal symbols have everything we need (by changing that we could save some memory, but for many debug format--ELF/DWARF or anything/stabs--it would be inconvenient to eliminate those minimal symbols anyway). */ symbol = find_pc_function (addr); if (symbol) name_location = BLOCK_START (SYMBOL_BLOCK_VALUE (symbol)); if (symbol) { if (do_demangle) name = SYMBOL_SOURCE_NAME (symbol); else name = SYMBOL_LINKAGE_NAME (symbol); } msymbol = lookup_minimal_symbol_by_pc (addr); if (msymbol != NULL) { if (SYMBOL_VALUE_ADDRESS (msymbol) > name_location || symbol == NULL) { /* The msymbol is closer to the address than the symbol; use the msymbol instead. */ symbol = 0; symtab = 0; name_location = SYMBOL_VALUE_ADDRESS (msymbol); if (do_demangle) name = SYMBOL_SOURCE_NAME (msymbol); else name = SYMBOL_LINKAGE_NAME (msymbol); } } if (symbol == NULL && msymbol == NULL) return; /* If the nearest symbol is too far away, don't print anything symbolic. */ /* For when CORE_ADDR is larger than unsigned int, we do math in CORE_ADDR. But when we detect unsigned wraparound in the CORE_ADDR math, we ignore this test and print the offset, because addr+max_symbolic_offset has wrapped through the end of the address space back to the beginning, giving bogus comparison. */ if (addr > name_location + max_symbolic_offset && name_location + max_symbolic_offset > name_location) return; fputs_filtered (leadin, stream); fputs_filtered ("<", stream); fputs_filtered (name, stream); if (addr != name_location) fprintf_filtered (stream, "+%u", (unsigned int)(addr - name_location)); /* Append source filename and line number if desired. Give specific line # of this addr, if we have it; else line # of the nearest symbol. */ if (print_symbol_filename) { struct symtab_and_line sal; sal = find_pc_line (addr, 0); if (sal.symtab) fprintf_filtered (stream, " at %s:%d", sal.symtab->filename, sal.line); else if (symtab && symbol && symbol->line) fprintf_filtered (stream, " at %s:%d", symtab->filename, symbol->line); else if (symtab) fprintf_filtered (stream, " in %s", symtab->filename); } fputs_filtered (">", stream); } /* Print address ADDR on STREAM. USE_LOCAL means the same thing as for print_longest. */ void print_address_numeric (addr, use_local, stream) CORE_ADDR addr; int use_local; GDB_FILE *stream; { /* This assumes a CORE_ADDR can fit in a LONGEST. Probably a safe assumption. We pass use_local but I'm not completely sure whether that is correct. When (if ever) should we *not* use_local? */ print_longest (stream, 'x', 1, (unsigned LONGEST) addr); } /* Print address ADDR symbolically on STREAM. First print it as a number. Then perhaps print after the number. */ void print_address (addr, stream) CORE_ADDR addr; GDB_FILE *stream; { print_address_numeric (addr, 1, stream); print_address_symbolic (addr, stream, asm_demangle, " "); } /* Print address ADDR symbolically on STREAM. Parameter DEMANGLE controls whether to print the symbolic name "raw" or demangled. Global setting "addressprint" controls whether to print hex address or not. */ void print_address_demangle (addr, stream, do_demangle) CORE_ADDR addr; GDB_FILE *stream; int do_demangle; { if (addr == 0) { fprintf_filtered (stream, "0"); } else if (addressprint) { print_address_numeric (addr, 1, stream); print_address_symbolic (addr, stream, do_demangle, " "); } else { print_address_symbolic (addr, stream, do_demangle, ""); } } /* These are the types that $__ will get after an examine command of one of these sizes. */ static struct type *examine_b_type; static struct type *examine_h_type; static struct type *examine_w_type; static struct type *examine_g_type; /* Examine data at address ADDR in format FMT. Fetch it from memory and print on gdb_stdout. */ static void do_examine (fmt, addr) struct format_data fmt; CORE_ADDR addr; { register char format = 0; register char size; register int count = 1; struct type *val_type = NULL; register int i; register int maxelts; format = fmt.format; size = fmt.size; count = fmt.count; next_address = addr; /* String or instruction format implies fetch single bytes regardless of the specified size. */ if (format == 's' || format == 'i') size = 'b'; if (size == 'b') val_type = examine_b_type; else if (size == 'h') val_type = examine_h_type; else if (size == 'w') val_type = examine_w_type; else if (size == 'g') val_type = examine_g_type; maxelts = 8; if (size == 'w') maxelts = 4; if (size == 'g') maxelts = 2; if (format == 's' || format == 'i') maxelts = 1; /* Print as many objects as specified in COUNT, at most maxelts per line, with the address of the next one at the start of each line. */ while (count > 0) { print_address (next_address, gdb_stdout); printf_filtered (":"); for (i = maxelts; i > 0 && count > 0; i--, count--) { printf_filtered ("\t"); /* Note that print_formatted sets next_address for the next object. */ last_examine_address = next_address; last_examine_value = value_at (val_type, next_address); print_formatted (last_examine_value, format, size); } printf_filtered ("\n"); gdb_flush (gdb_stdout); } } static void validate_format (fmt, cmdname) struct format_data fmt; char *cmdname; { if (fmt.size != 0) error ("Size letters are meaningless in \"%s\" command.", cmdname); if (fmt.count != 1) error ("Item count other than 1 is meaningless in \"%s\" command.", cmdname); if (fmt.format == 'i' || fmt.format == 's') error ("Format letter \"%c\" is meaningless in \"%s\" command.", fmt.format, cmdname); } /* Evaluate string EXP as an expression in the current language and print the resulting value. EXP may contain a format specifier as the first argument ("/x myvar" for example, to print myvar in hex). */ static void print_command_1 (exp, inspect, voidprint) char *exp; int inspect; int voidprint; { struct expression *expr; register struct cleanup *old_chain = 0; register char format = 0; register value_ptr val; struct format_data fmt; int cleanup = 0; /* Pass inspect flag to the rest of the print routines in a global (sigh). */ inspect_it = inspect; if (exp && *exp == '/') { exp++; fmt = decode_format (&exp, last_format, 0); validate_format (fmt, "print"); last_format = format = fmt.format; } else { fmt.count = 1; fmt.format = 0; fmt.size = 0; } if (exp && *exp) { extern int objectprint; struct type *type; expr = parse_expression (exp); old_chain = make_cleanup (free_current_contents, &expr); cleanup = 1; val = evaluate_expression (expr); /* C++: figure out what type we actually want to print it as. */ type = VALUE_TYPE (val); if (objectprint && ( TYPE_CODE (type) == TYPE_CODE_PTR || TYPE_CODE (type) == TYPE_CODE_REF) && ( TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_STRUCT || TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_UNION)) { value_ptr v; v = value_from_vtable_info (val, TYPE_TARGET_TYPE (type)); if (v != 0) { val = v; type = VALUE_TYPE (val); } } } else val = access_value_history (0); if (voidprint || (val && VALUE_TYPE (val) && TYPE_CODE (VALUE_TYPE (val)) != TYPE_CODE_VOID)) { int histindex = record_latest_value (val); if (histindex >= 0) annotate_value_history_begin (histindex, VALUE_TYPE (val)); else annotate_value_begin (VALUE_TYPE (val)); if (inspect) printf_unfiltered ("\031(gdb-makebuffer \"%s\" %d '(\"", exp, histindex); else if (histindex >= 0) printf_filtered ("$%d = ", histindex); if (histindex >= 0) annotate_value_history_value (); print_formatted (val, format, fmt.size); printf_filtered ("\n"); if (histindex >= 0) annotate_value_history_end (); else annotate_value_end (); if (inspect) printf_unfiltered("\") )\030"); } if (cleanup) do_cleanups (old_chain); inspect_it = 0; /* Reset print routines to normal */ } /* ARGSUSED */ static void print_command (exp, from_tty) char *exp; int from_tty; { print_command_1 (exp, 0, 1); } /* Same as print, except in epoch, it gets its own window */ /* ARGSUSED */ static void inspect_command (exp, from_tty) char *exp; int from_tty; { extern int epoch_interface; print_command_1 (exp, epoch_interface, 1); } /* Same as print, except it doesn't print void results. */ /* ARGSUSED */ static void call_command (exp, from_tty) char *exp; int from_tty; { print_command_1 (exp, 0, 0); } /* ARGSUSED */ static void output_command (exp, from_tty) char *exp; int from_tty; { struct expression *expr; register struct cleanup *old_chain; register char format = 0; register value_ptr val; struct format_data fmt; if (exp && *exp == '/') { exp++; fmt = decode_format (&exp, 0, 0); validate_format (fmt, "output"); format = fmt.format; } expr = parse_expression (exp); old_chain = make_cleanup (free_current_contents, &expr); val = evaluate_expression (expr); annotate_value_begin (VALUE_TYPE (val)); print_formatted (val, format, fmt.size); annotate_value_end (); do_cleanups (old_chain); } /* ARGSUSED */ static void set_command (exp, from_tty) char *exp; int from_tty; { struct expression *expr = parse_expression (exp); register struct cleanup *old_chain = make_cleanup (free_current_contents, &expr); evaluate_expression (expr); do_cleanups (old_chain); } /* ARGSUSED */ static void address_info (exp, from_tty) char *exp; int from_tty; { register struct symbol *sym; register struct minimal_symbol *msymbol; register long val; register long basereg; int is_a_field_of_this; /* C++: lookup_symbol sets this to nonzero if exp is a field of `this'. */ if (exp == 0) error ("Argument required."); sym = lookup_symbol (exp, get_selected_block (), VAR_NAMESPACE, &is_a_field_of_this, (struct symtab **)NULL); if (sym == NULL) { if (is_a_field_of_this) { printf_filtered ("Symbol \""); fprintf_symbol_filtered (gdb_stdout, exp, current_language->la_language, DMGL_ANSI); printf_filtered ("\" is a field of the local class variable `this'\n"); return; } msymbol = lookup_minimal_symbol (exp, (struct objfile *) NULL); if (msymbol != NULL) { printf_filtered ("Symbol \""); fprintf_symbol_filtered (gdb_stdout, exp, current_language->la_language, DMGL_ANSI); printf_filtered ("\" is at "); print_address_numeric (SYMBOL_VALUE_ADDRESS (msymbol), 1, gdb_stdout); printf_filtered (" in a file compiled without debugging.\n"); } else error ("No symbol \"%s\" in current context.", exp); return; } printf_filtered ("Symbol \""); fprintf_symbol_filtered (gdb_stdout, SYMBOL_NAME (sym), current_language->la_language, DMGL_ANSI); printf_filtered ("\" is ", SYMBOL_NAME (sym)); val = SYMBOL_VALUE (sym); basereg = SYMBOL_BASEREG (sym); switch (SYMBOL_CLASS (sym)) { case LOC_CONST: case LOC_CONST_BYTES: printf_filtered ("constant"); break; case LOC_LABEL: printf_filtered ("a label at address "); print_address_numeric (SYMBOL_VALUE_ADDRESS (sym), 1, gdb_stdout); break; case LOC_REGISTER: printf_filtered ("a variable in register %s", reg_names[val]); break; case LOC_STATIC: printf_filtered ("static storage at address "); print_address_numeric (SYMBOL_VALUE_ADDRESS (sym), 1, gdb_stdout); break; case LOC_REGPARM: printf_filtered ("an argument in register %s", reg_names[val]); break; case LOC_REGPARM_ADDR: printf_filtered ("address of an argument in register %s", reg_names[val]); break; case LOC_ARG: printf_filtered ("an argument at offset %ld", val); break; case LOC_LOCAL_ARG: printf_filtered ("an argument at frame offset %ld", val); break; case LOC_LOCAL: printf_filtered ("a local variable at frame offset %ld", val); break; case LOC_REF_ARG: printf_filtered ("a reference argument at offset %ld", val); break; case LOC_BASEREG: printf_filtered ("a variable at offset %ld from register %s", val, reg_names[basereg]); break; case LOC_BASEREG_ARG: printf_filtered ("an argument at offset %ld from register %s", val, reg_names[basereg]); break; case LOC_TYPEDEF: printf_filtered ("a typedef"); break; case LOC_BLOCK: printf_filtered ("a function at address "); print_address_numeric (BLOCK_START (SYMBOL_BLOCK_VALUE (sym)), 1, gdb_stdout); break; case LOC_OPTIMIZED_OUT: printf_filtered ("optimized out"); break; default: printf_filtered ("of unknown (botched) type"); break; } printf_filtered (".\n"); } static void x_command (exp, from_tty) char *exp; int from_tty; { struct expression *expr; struct format_data fmt; struct cleanup *old_chain; struct value *val; fmt.format = last_format; fmt.size = last_size; fmt.count = 1; if (exp && *exp == '/') { exp++; fmt = decode_format (&exp, last_format, last_size); } /* If we have an expression, evaluate it and use it as the address. */ if (exp != 0 && *exp != 0) { expr = parse_expression (exp); /* Cause expression not to be there any more if this command is repeated with Newline. But don't clobber a user-defined command's definition. */ if (from_tty) *exp = 0; old_chain = make_cleanup (free_current_contents, &expr); val = evaluate_expression (expr); if (TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_REF) val = value_ind (val); /* In rvalue contexts, such as this, functions are coerced into pointers to functions. This makes "x/i main" work. */ if (/* last_format == 'i' && */ TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_FUNC && VALUE_LVAL (val) == lval_memory) next_address = VALUE_ADDRESS (val); else next_address = value_as_pointer (val); do_cleanups (old_chain); } do_examine (fmt, next_address); /* If the examine succeeds, we remember its size and format for next time. */ last_size = fmt.size; last_format = fmt.format; /* Set a couple of internal variables if appropriate. */ if (last_examine_value) { /* Make last address examined available to the user as $_. Use the correct pointer type. */ set_internalvar (lookup_internalvar ("_"), value_from_longest ( lookup_pointer_type (VALUE_TYPE (last_examine_value)), (LONGEST) last_examine_address)); /* Make contents of last address examined available to the user as $__.*/ set_internalvar (lookup_internalvar ("__"), last_examine_value); } } /* Add an expression to the auto-display chain. Specify the expression. */ static void display_command (exp, from_tty) char *exp; int from_tty; { struct format_data fmt; register struct expression *expr; register struct display *new; if (exp == 0) { do_displays (); return; } if (*exp == '/') { exp++; fmt = decode_format (&exp, 0, 0); if (fmt.size && fmt.format == 0) fmt.format = 'x'; if (fmt.format == 'i' || fmt.format == 's') fmt.size = 'b'; } else { fmt.format = 0; fmt.size = 0; fmt.count = 0; } innermost_block = 0; expr = parse_expression (exp); new = (struct display *) xmalloc (sizeof (struct display)); new->exp = expr; new->block = innermost_block; new->next = display_chain; new->number = ++display_number; new->format = fmt; new->status = enabled; display_chain = new; if (from_tty && target_has_execution) do_one_display (new); dont_repeat (); } static void free_display (d) struct display *d; { free ((PTR)d->exp); free ((PTR)d); } /* Clear out the display_chain. Done when new symtabs are loaded, since this invalidates the types stored in many expressions. */ void clear_displays () { register struct display *d; while ((d = display_chain) != NULL) { free ((PTR)d->exp); display_chain = d->next; free ((PTR)d); } } /* Delete the auto-display number NUM. */ static void delete_display (num) int num; { register struct display *d1, *d; if (!display_chain) error ("No display number %d.", num); if (display_chain->number == num) { d1 = display_chain; display_chain = d1->next; free_display (d1); } else for (d = display_chain; ; d = d->next) { if (d->next == 0) error ("No display number %d.", num); if (d->next->number == num) { d1 = d->next; d->next = d1->next; free_display (d1); break; } } } /* Delete some values from the auto-display chain. Specify the element numbers. */ static void undisplay_command (args, from_tty) char *args; int from_tty; { register char *p = args; register char *p1; register int num; if (args == 0) { if (query ("Delete all auto-display expressions? ")) clear_displays (); dont_repeat (); return; } while (*p) { p1 = p; while (*p1 >= '0' && *p1 <= '9') p1++; if (*p1 && *p1 != ' ' && *p1 != '\t') error ("Arguments must be display numbers."); num = atoi (p); delete_display (num); p = p1; while (*p == ' ' || *p == '\t') p++; } dont_repeat (); } /* Display a single auto-display. Do nothing if the display cannot be printed in the current context, or if the display is disabled. */ static void do_one_display (d) struct display *d; { int within_current_scope; if (d->status == disabled) return; if (d->block) within_current_scope = contained_in (get_selected_block (), d->block); else within_current_scope = 1; if (!within_current_scope) return; current_display_number = d->number; annotate_display_begin (); printf_filtered ("%d", d->number); annotate_display_number_end (); printf_filtered (": "); if (d->format.size) { CORE_ADDR addr; annotate_display_format (); printf_filtered ("x/"); if (d->format.count != 1) printf_filtered ("%d", d->format.count); printf_filtered ("%c", d->format.format); if (d->format.format != 'i' && d->format.format != 's') printf_filtered ("%c", d->format.size); printf_filtered (" "); annotate_display_expression (); print_expression (d->exp, gdb_stdout); annotate_display_expression_end (); if (d->format.count != 1) printf_filtered ("\n"); else printf_filtered (" "); addr = value_as_pointer (evaluate_expression (d->exp)); if (d->format.format == 'i') addr = ADDR_BITS_REMOVE (addr); annotate_display_value (); do_examine (d->format, addr); } else { annotate_display_format (); if (d->format.format) printf_filtered ("/%c ", d->format.format); annotate_display_expression (); print_expression (d->exp, gdb_stdout); annotate_display_expression_end (); printf_filtered (" = "); annotate_display_expression (); print_formatted (evaluate_expression (d->exp), d->format.format, d->format.size); printf_filtered ("\n"); } annotate_display_end (); gdb_flush (gdb_stdout); current_display_number = -1; } /* Display all of the values on the auto-display chain which can be evaluated in the current scope. */ void do_displays () { register struct display *d; for (d = display_chain; d; d = d->next) do_one_display (d); } /* Delete the auto-display which we were in the process of displaying. This is done when there is an error or a signal. */ void disable_display (num) int num; { register struct display *d; for (d = display_chain; d; d = d->next) if (d->number == num) { d->status = disabled; return; } printf_unfiltered ("No display number %d.\n", num); } void disable_current_display () { if (current_display_number >= 0) { disable_display (current_display_number); fprintf_unfiltered (gdb_stderr, "Disabling display %d to avoid infinite recursion.\n", current_display_number); } current_display_number = -1; } static void display_info (ignore, from_tty) char *ignore; int from_tty; { register struct display *d; if (!display_chain) printf_unfiltered ("There are no auto-display expressions now.\n"); else printf_filtered ("Auto-display expressions now in effect:\n\ Num Enb Expression\n"); for (d = display_chain; d; d = d->next) { printf_filtered ("%d: %c ", d->number, "ny"[(int)d->status]); if (d->format.size) printf_filtered ("/%d%c%c ", d->format.count, d->format.size, d->format.format); else if (d->format.format) printf_filtered ("/%c ", d->format.format); print_expression (d->exp, gdb_stdout); if (d->block && !contained_in (get_selected_block (), d->block)) printf_filtered (" (cannot be evaluated in the current context)"); printf_filtered ("\n"); gdb_flush (gdb_stdout); } } static void enable_display (args, from_tty) char *args; int from_tty; { register char *p = args; register char *p1; register int num; register struct display *d; if (p == 0) { for (d = display_chain; d; d = d->next) d->status = enabled; } else while (*p) { p1 = p; while (*p1 >= '0' && *p1 <= '9') p1++; if (*p1 && *p1 != ' ' && *p1 != '\t') error ("Arguments must be display numbers."); num = atoi (p); for (d = display_chain; d; d = d->next) if (d->number == num) { d->status = enabled; goto win; } printf_unfiltered ("No display number %d.\n", num); win: p = p1; while (*p == ' ' || *p == '\t') p++; } } /* ARGSUSED */ static void disable_display_command (args, from_tty) char *args; int from_tty; { register char *p = args; register char *p1; register struct display *d; if (p == 0) { for (d = display_chain; d; d = d->next) d->status = disabled; } else while (*p) { p1 = p; while (*p1 >= '0' && *p1 <= '9') p1++; if (*p1 && *p1 != ' ' && *p1 != '\t') error ("Arguments must be display numbers."); disable_display (atoi (p)); p = p1; while (*p == ' ' || *p == '\t') p++; } } /* Print the value in stack frame FRAME of a variable specified by a struct symbol. */ void print_variable_value (var, frame, stream) struct symbol *var; FRAME frame; GDB_FILE *stream; { value_ptr val = read_var_value (var, frame); value_print (val, stream, 0, Val_pretty_default); } /* Print the arguments of a stack frame, given the function FUNC running in that frame (as a symbol), the info on the frame, and the number of args according to the stack frame (or -1 if unknown). */ /* References here and elsewhere to "number of args according to the stack frame" appear in all cases to refer to "number of ints of args according to the stack frame". At least for VAX, i386, isi. */ void print_frame_args (func, fi, num, stream) struct symbol *func; struct frame_info *fi; int num; GDB_FILE *stream; { struct block *b = NULL; int nsyms = 0; int first = 1; register int i; register struct symbol *sym; register value_ptr val; /* Offset of next stack argument beyond the one we have seen that is at the highest offset. -1 if we haven't come to a stack argument yet. */ long highest_offset = -1; int arg_size; /* Number of ints of arguments that we have printed so far. */ int args_printed = 0; if (func) { b = SYMBOL_BLOCK_VALUE (func); nsyms = BLOCK_NSYMS (b); } for (i = 0; i < nsyms; i++) { QUIT; sym = BLOCK_SYM (b, i); /* Keep track of the highest stack argument offset seen, and skip over any kinds of symbols we don't care about. */ switch (SYMBOL_CLASS (sym)) { case LOC_ARG: case LOC_REF_ARG: { long current_offset = SYMBOL_VALUE (sym); arg_size = TYPE_LENGTH (SYMBOL_TYPE (sym)); /* Compute address of next argument by adding the size of this argument and rounding to an int boundary. */ current_offset = ((current_offset + arg_size + sizeof (int) - 1) & ~(sizeof (int) - 1)); /* If this is the highest offset seen yet, set highest_offset. */ if (highest_offset == -1 || (current_offset > highest_offset)) highest_offset = current_offset; /* Add the number of ints we're about to print to args_printed. */ args_printed += (arg_size + sizeof (int) - 1) / sizeof (int); } /* We care about types of symbols, but don't need to keep track of stack offsets in them. */ case LOC_REGPARM: case LOC_REGPARM_ADDR: case LOC_LOCAL_ARG: case LOC_BASEREG_ARG: break; /* Other types of symbols we just skip over. */ default: continue; } /* We have to look up the symbol because arguments can have two entries (one a parameter, one a local) and the one we want is the local, which lookup_symbol will find for us. This includes gcc1 (not gcc2) on the sparc when passing a small structure and gcc2 when the argument type is float and it is passed as a double and converted to float by the prologue (in the latter case the type of the LOC_ARG symbol is double and the type of the LOC_LOCAL symbol is float). */ /* But if the parameter name is null, don't try it. Null parameter names occur on the RS/6000, for traceback tables. FIXME, should we even print them? */ if (*SYMBOL_NAME (sym)) { struct symbol *nsym; nsym = lookup_symbol (SYMBOL_NAME (sym), b, VAR_NAMESPACE, (int *)NULL, (struct symtab **)NULL); if (SYMBOL_CLASS (nsym) == LOC_REGISTER) { /* There is a LOC_ARG/LOC_REGISTER pair. This means that it was passed on the stack and loaded into a register, or passed in a register and stored in a stack slot. GDB 3.x used the LOC_ARG; GDB 4.0-4.11 used the LOC_REGISTER. Reasons for using the LOC_ARG: (1) because find_saved_registers may be slow for remote debugging, (2) because registers are often re-used and stack slots rarely (never?) are. Therefore using the stack slot is much less likely to print garbage. Reasons why we might want to use the LOC_REGISTER: (1) So that the backtrace prints the same value as "print foo". I see no compelling reason why this needs to be the case; having the backtrace print the value which was passed in, and "print foo" print the value as modified within the called function, makes perfect sense to me. Additional note: It might be nice if "info args" displayed both values. One more note: There is a case with sparc structure passing where we need to use the LOC_REGISTER, but this is dealt with by creating a single LOC_REGPARM in symbol reading. */ /* Leave sym (the LOC_ARG) alone. */ ; } else sym = nsym; } /* Print the current arg. */ if (! first) fprintf_filtered (stream, ", "); wrap_here (" "); annotate_arg_begin (); fprintf_symbol_filtered (stream, SYMBOL_SOURCE_NAME (sym), SYMBOL_LANGUAGE (sym), DMGL_PARAMS | DMGL_ANSI); annotate_arg_name_end (); fputs_filtered ("=", stream); /* Avoid value_print because it will deref ref parameters. We just want to print their addresses. Print ??? for args whose address we do not know. We pass 2 as "recurse" to val_print because our standard indentation here is 4 spaces, and val_print indents 2 for each recurse. */ val = read_var_value (sym, FRAME_INFO_ID (fi)); annotate_arg_value (val == NULL ? NULL : VALUE_TYPE (val)); if (val) val_print (VALUE_TYPE (val), VALUE_CONTENTS (val), VALUE_ADDRESS (val), stream, 0, 0, 2, Val_no_prettyprint); else fputs_filtered ("???", stream); annotate_arg_end (); first = 0; } /* Don't print nameless args in situations where we don't know enough about the stack to find them. */ if (num != -1) { long start; if (highest_offset == -1) start = FRAME_ARGS_SKIP; else start = highest_offset; print_frame_nameless_args (fi, start, num - args_printed, first, stream); } } /* Print nameless args on STREAM. FI is the frameinfo for this frame, START is the offset of the first nameless arg, and NUM is the number of nameless args to print. FIRST is nonzero if this is the first argument (not just the first nameless arg). */ static void print_frame_nameless_args (fi, start, num, first, stream) struct frame_info *fi; long start; int num; int first; GDB_FILE *stream; { int i; CORE_ADDR argsaddr; long arg_value; for (i = 0; i < num; i++) { QUIT; #ifdef NAMELESS_ARG_VALUE NAMELESS_ARG_VALUE (fi, start, &arg_value); #else argsaddr = FRAME_ARGS_ADDRESS (fi); if (!argsaddr) return; arg_value = read_memory_integer (argsaddr + start, sizeof (int)); #endif if (!first) fprintf_filtered (stream, ", "); #ifdef PRINT_NAMELESS_INTEGER PRINT_NAMELESS_INTEGER (stream, arg_value); #else #ifdef PRINT_TYPELESS_INTEGER PRINT_TYPELESS_INTEGER (stream, builtin_type_int, (LONGEST) arg_value); #else fprintf_filtered (stream, "%d", arg_value); #endif /* PRINT_TYPELESS_INTEGER */ #endif /* PRINT_NAMELESS_INTEGER */ first = 0; start += sizeof (int); } } /* ARGSUSED */ static void printf_command (arg, from_tty) char *arg; int from_tty; { register char *f; register char *s = arg; char *string; value_ptr *val_args; char *substrings; char *current_substring; int nargs = 0; int allocated_args = 20; struct cleanup *old_cleanups; val_args = (value_ptr *) xmalloc (allocated_args * sizeof (value_ptr)); old_cleanups = make_cleanup (free_current_contents, &val_args); if (s == 0) error_no_arg ("format-control string and values to print"); /* Skip white space before format string */ while (*s == ' ' || *s == '\t') s++; /* A format string should follow, enveloped in double quotes */ if (*s++ != '"') error ("Bad format string, missing '\"'."); /* Parse the format-control string and copy it into the string STRING, processing some kinds of escape sequence. */ f = string = (char *) alloca (strlen (s) + 1); while (*s != '"') { int c = *s++; switch (c) { case '\0': error ("Bad format string, non-terminated '\"'."); case '\\': switch (c = *s++) { case '\\': *f++ = '\\'; break; case 'a': #ifdef __STDC__ *f++ = '\a'; #else *f++ = '\007'; /* Bell */ #endif break; case 'b': *f++ = '\b'; break; case 'f': *f++ = '\f'; break; case 'n': *f++ = '\n'; break; case 'r': *f++ = '\r'; break; case 't': *f++ = '\t'; break; case 'v': *f++ = '\v'; break; case '"': *f++ = '"'; break; default: /* ??? TODO: handle other escape sequences */ error ("Unrecognized escape character \\%c in format string.", c); } break; default: *f++ = c; } } /* Skip over " and following space and comma. */ s++; *f++ = '\0'; while (*s == ' ' || *s == '\t') s++; if (*s != ',' && *s != 0) error ("Invalid argument syntax"); if (*s == ',') s++; while (*s == ' ' || *s == '\t') s++; /* Need extra space for the '\0's. Doubling the size is sufficient. */ substrings = alloca (strlen (string) * 2); current_substring = substrings; { /* Now scan the string for %-specs and see what kinds of args they want. argclass[I] classifies the %-specs so we can give printf_filtered something of the right size. */ enum argclass {no_arg, int_arg, string_arg, double_arg, long_long_arg}; enum argclass *argclass; enum argclass this_argclass; char *last_arg; int nargs_wanted; int lcount; int i; argclass = (enum argclass *) alloca (strlen (s) * sizeof *argclass); nargs_wanted = 0; f = string; last_arg = string; while (*f) if (*f++ == '%') { lcount = 0; while (strchr ("0123456789.hlL-+ #", *f)) { if (*f == 'l' || *f == 'L') lcount++; f++; } switch (*f) { case 's': this_argclass = string_arg; break; case 'e': case 'f': case 'g': this_argclass = double_arg; break; case '*': error ("`*' not supported for precision or width in printf"); case 'n': error ("Format specifier `n' not supported in printf"); case '%': this_argclass = no_arg; break; default: if (lcount > 1) this_argclass = long_long_arg; else this_argclass = int_arg; break; } f++; if (this_argclass != no_arg) { strncpy (current_substring, last_arg, f - last_arg); current_substring += f - last_arg; *current_substring++ = '\0'; last_arg = f; argclass[nargs_wanted++] = this_argclass; } } /* Now, parse all arguments and evaluate them. Store the VALUEs in VAL_ARGS. */ while (*s != '\0') { char *s1; if (nargs == allocated_args) val_args = (value_ptr *) xrealloc ((char *) val_args, (allocated_args *= 2) * sizeof (value_ptr)); s1 = s; val_args[nargs] = parse_to_comma_and_eval (&s1); /* If format string wants a float, unchecked-convert the value to floating point of the same size */ if (argclass[nargs] == double_arg) { if (TYPE_LENGTH (VALUE_TYPE (val_args[nargs])) == sizeof (float)) VALUE_TYPE (val_args[nargs]) = builtin_type_float; if (TYPE_LENGTH (VALUE_TYPE (val_args[nargs])) == sizeof (double)) VALUE_TYPE (val_args[nargs]) = builtin_type_double; } nargs++; s = s1; if (*s == ',') s++; } if (nargs != nargs_wanted) error ("Wrong number of arguments for specified format-string"); /* Now actually print them. */ current_substring = substrings; for (i = 0; i < nargs; i++) { switch (argclass[i]) { case string_arg: { char *str; CORE_ADDR tem; int j; tem = value_as_pointer (val_args[i]); /* This is a %s argument. Find the length of the string. */ for (j = 0; ; j++) { char c; QUIT; read_memory (tem + j, &c, 1); if (c == 0) break; } /* Copy the string contents into a string inside GDB. */ str = (char *) alloca (j + 1); read_memory (tem, str, j); str[j] = 0; printf_filtered (current_substring, str); } break; case double_arg: { double val = value_as_double (val_args[i]); printf_filtered (current_substring, val); break; } case long_long_arg: #if defined (CC_HAS_LONG_LONG) && defined (PRINTF_HAS_LONG_LONG) { long long val = value_as_long (val_args[i]); printf_filtered (current_substring, val); break; } #else error ("long long not supported in printf"); #endif case int_arg: { /* FIXME: there should be separate int_arg and long_arg. */ long val = value_as_long (val_args[i]); printf_filtered (current_substring, val); break; } default: error ("internal error in printf_command"); } /* Skip to the next substring. */ current_substring += strlen (current_substring) + 1; } /* Print the portion of the format string after the last argument. */ printf_filtered (last_arg); } do_cleanups (old_cleanups); } /* Dump a specified section of assembly code. With no command line arguments, this command will dump the assembly code for the function surrounding the pc value in the selected frame. With one argument, it will dump the assembly code surrounding that pc value. Two arguments are interpeted as bounds within which to dump assembly. */ /* ARGSUSED */ static void disassemble_command (arg, from_tty) char *arg; int from_tty; { CORE_ADDR low, high; char *name; CORE_ADDR pc; char *space_index; name = NULL; if (!arg) { if (!selected_frame) error ("No frame selected.\n"); pc = get_frame_pc (selected_frame); if (find_pc_partial_function (pc, &name, &low, &high) == 0) error ("No function contains program counter for selected frame.\n"); } else if (!(space_index = (char *) strchr (arg, ' '))) { /* One argument. */ pc = parse_and_eval_address (arg); if (find_pc_partial_function (pc, &name, &low, &high) == 0) error ("No function contains specified address.\n"); } else { /* Two arguments. */ *space_index = '\0'; low = parse_and_eval_address (arg); high = parse_and_eval_address (space_index + 1); } printf_filtered ("Dump of assembler code "); if (name != NULL) { printf_filtered ("for function %s:\n", name); } else { printf_filtered ("from "); print_address_numeric (low, 1, gdb_stdout); printf_filtered (" to "); print_address_numeric (high, 1, gdb_stdout); printf_filtered (":\n"); } /* Dump the specified range. */ for (pc = low; pc < high; ) { QUIT; print_address (pc, gdb_stdout); printf_filtered (":\t"); /* We often wrap here if there are long symbolic names. */ wrap_here (" "); pc += print_insn (pc, gdb_stdout); printf_filtered ("\n"); } printf_filtered ("End of assembler dump.\n"); gdb_flush (gdb_stdout); } void _initialize_printcmd () { current_display_number = -1; add_info ("address", address_info, "Describe where variable VAR is stored."); add_com ("x", class_vars, x_command, "Examine memory: x/FMT ADDRESS.\n\ ADDRESS is an expression for the memory address to examine.\n\ FMT is a repeat count followed by a format letter and a size letter.\n\ Format letters are o(octal), x(hex), d(decimal), u(unsigned decimal),\n\ t(binary), f(float), a(address), i(instruction), c(char) and s(string).\n\ Size letters are b(byte), h(halfword), w(word), g(giant, 8 bytes).\n\ The specified number of objects of the specified size are printed\n\ according to the format.\n\n\ Defaults for format and size letters are those previously used.\n\ Default count is 1. Default address is following last thing printed\n\ with this command or \"print\"."); add_com ("disassemble", class_vars, disassemble_command, "Disassemble a specified section of memory.\n\ Default is the function surrounding the pc of the selected frame.\n\ With a single argument, the function surrounding that address is dumped.\n\ Two arguments are taken as a range of memory to dump."); #if 0 add_com ("whereis", class_vars, whereis_command, "Print line number and file of definition of variable."); #endif add_info ("display", display_info, "Expressions to display when program stops, with code numbers."); add_cmd ("undisplay", class_vars, undisplay_command, "Cancel some expressions to be displayed when program stops.\n\ Arguments are the code numbers of the expressions to stop displaying.\n\ No argument means cancel all automatic-display expressions.\n\ \"delete display\" has the same effect as this command.\n\ Do \"info display\" to see current list of code numbers.", &cmdlist); add_com ("display", class_vars, display_command, "Print value of expression EXP each time the program stops.\n\ /FMT may be used before EXP as in the \"print\" command.\n\ /FMT \"i\" or \"s\" or including a size-letter is allowed,\n\ as in the \"x\" command, and then EXP is used to get the address to examine\n\ and examining is done as in the \"x\" command.\n\n\ With no argument, display all currently requested auto-display expressions.\n\ Use \"undisplay\" to cancel display requests previously made."); add_cmd ("display", class_vars, enable_display, "Enable some expressions to be displayed when program stops.\n\ Arguments are the code numbers of the expressions to resume displaying.\n\ No argument means enable all automatic-display expressions.\n\ Do \"info display\" to see current list of code numbers.", &enablelist); add_cmd ("display", class_vars, disable_display_command, "Disable some expressions to be displayed when program stops.\n\ Arguments are the code numbers of the expressions to stop displaying.\n\ No argument means disable all automatic-display expressions.\n\ Do \"info display\" to see current list of code numbers.", &disablelist); add_cmd ("display", class_vars, undisplay_command, "Cancel some expressions to be displayed when program stops.\n\ Arguments are the code numbers of the expressions to stop displaying.\n\ No argument means cancel all automatic-display expressions.\n\ Do \"info display\" to see current list of code numbers.", &deletelist); add_com ("printf", class_vars, printf_command, "printf \"printf format string\", arg1, arg2, arg3, ..., argn\n\ This is useful for formatted output in user-defined commands."); add_com ("output", class_vars, output_command, "Like \"print\" but don't put in value history and don't print newline.\n\ This is useful in user-defined commands."); add_prefix_cmd ("set", class_vars, set_command, "Evaluate expression EXP and assign result to variable VAR, using assignment\n\ syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\ example). VAR may be a debugger \"convenience\" variable (names starting\n\ with $), a register (a few standard names starting with $), or an actual\n\ variable in the program being debugged. EXP is any valid expression.\n\ Use \"set variable\" for variables with names identical to set subcommands.\n\ \nWith a subcommand, this command modifies parts of the gdb environment.\n\ You can see these environment settings with the \"show\" command.", &setlist, "set ", 1, &cmdlist); /* "call" is the same as "set", but handy for dbx users to call fns. */ add_com ("call", class_vars, call_command, "Call a function in the program.\n\ The argument is the function name and arguments, in the notation of the\n\ current working language. The result is printed and saved in the value\n\ history, if it is not void."); add_cmd ("variable", class_vars, set_command, "Evaluate expression EXP and assign result to variable VAR, using assignment\n\ syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\ example). VAR may be a debugger \"convenience\" variable (names starting\n\ with $), a register (a few standard names starting with $), or an actual\n\ variable in the program being debugged. EXP is any valid expression.\n\ This may usually be abbreviated to simply \"set\".", &setlist); add_com ("print", class_vars, print_command, concat ("Print value of expression EXP.\n\ Variables accessible are those of the lexical environment of the selected\n\ stack frame, plus all those whose scope is global or an entire file.\n\ \n\ $NUM gets previous value number NUM. $ and $$ are the last two values.\n\ $$NUM refers to NUM'th value back from the last one.\n\ Names starting with $ refer to registers (with the values they would have\n\ if the program were to return to the stack frame now selected, restoring\n\ all registers saved by frames farther in) or else to debugger\n\ \"convenience\" variables (any such name not a known register).\n\ Use assignment expressions to give values to convenience variables.\n", "\n\ {TYPE}ADREXP refers to a datum of data type TYPE, located at address ADREXP.\n\ @ is a binary operator for treating consecutive data objects\n\ anywhere in memory as an array. FOO@NUM gives an array whose first\n\ element is FOO, whose second element is stored in the space following\n\ where FOO is stored, etc. FOO must be an expression whose value\n\ resides in memory.\n", "\n\ EXP may be preceded with /FMT, where FMT is a format letter\n\ but no count or size letter (see \"x\" command).", NULL)); add_com_alias ("p", "print", class_vars, 1); add_com ("inspect", class_vars, inspect_command, "Same as \"print\" command, except that if you are running in the epoch\n\ environment, the value is printed in its own window."); add_show_from_set ( add_set_cmd ("max-symbolic-offset", no_class, var_uinteger, (char *)&max_symbolic_offset, "Set the largest offset that will be printed in form.", &setprintlist), &showprintlist); add_show_from_set ( add_set_cmd ("symbol-filename", no_class, var_boolean, (char *)&print_symbol_filename, "Set printing of source filename and line number with .", &setprintlist), &showprintlist); examine_b_type = init_type (TYPE_CODE_INT, 1, 0, NULL, NULL); examine_h_type = init_type (TYPE_CODE_INT, 2, 0, NULL, NULL); examine_w_type = init_type (TYPE_CODE_INT, 4, 0, NULL, NULL); examine_g_type = init_type (TYPE_CODE_INT, 8, 0, NULL, NULL); } gdb-4.13/gdb/procfs.c 666 34562 1752 265612 5622333237 13012 0ustar fnfcygnus/* Machine independent support for SVR4 /proc (process file system) for GDB. Copyright 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* N O T E S For information on the details of using /proc consult section proc(4) in the UNIX System V Release 4 System Administrator's Reference Manual. The general register and floating point register sets are manipulated by separate ioctl's. This file makes the assumption that if FP0_REGNUM is defined, then support for the floating point register set is desired, regardless of whether or not the actual target has floating point hardware. */ #include "defs.h" #include #include #include #include #include #include #include #include #include #include #include "inferior.h" #include "target.h" #include "command.h" #include "gdbcore.h" #define MAX_SYSCALLS 256 /* Maximum number of syscalls for table */ #ifndef PROC_NAME_FMT #define PROC_NAME_FMT "/proc/%05d" #endif extern struct target_ops procfs_ops; /* Forward declaration */ #if 1 /* FIXME: Gross and ugly hack to resolve coredep.c global */ CORE_ADDR kernel_u_addr; #endif #ifdef BROKEN_SIGINFO_H /* Workaround broken SGS */ #undef si_pid #define si_pid _data._proc.pid #undef si_uid #define si_uid _data._proc._pdata._kill.uid #endif /* BROKEN_SIGINFO_H */ /* All access to the inferior, either one started by gdb or one that has been attached to, is controlled by an instance of a procinfo structure, defined below. Since gdb currently only handles one inferior at a time, the procinfo structure for the inferior is statically allocated and only one exists at any given time. There is a separate procinfo structure for use by the "info proc" command, so that we can print useful information about any random process without interfering with the inferior's procinfo information. */ struct procinfo { struct procinfo *next; int pid; /* Process ID of inferior */ int fd; /* File descriptor for /proc entry */ char *pathname; /* Pathname to /proc entry */ int had_event; /* poll/select says something happened */ int was_stopped; /* Nonzero if was stopped prior to attach */ int nopass_next_sigstop; /* Don't pass a sigstop on next resume */ prrun_t prrun; /* Control state when it is run */ prstatus_t prstatus; /* Current process status info */ gregset_t gregset; /* General register set */ fpregset_t fpregset; /* Floating point register set */ fltset_t fltset; /* Current traced hardware fault set */ sigset_t trace; /* Current traced signal set */ sysset_t exitset; /* Current traced system call exit set */ sysset_t entryset; /* Current traced system call entry set */ fltset_t saved_fltset; /* Saved traced hardware fault set */ sigset_t saved_trace; /* Saved traced signal set */ sigset_t saved_sighold; /* Saved held signal set */ sysset_t saved_exitset; /* Saved traced system call exit set */ sysset_t saved_entryset; /* Saved traced system call entry set */ }; /* List of inferior process information */ static struct procinfo *procinfo_list = NULL; static struct pollfd *poll_list; /* pollfds used for waiting on /proc */ static int num_poll_list = 0; /* Number of entries in poll_list */ static int last_resume_pid = -1; /* Last pid used with procfs_resume */ /* Much of the information used in the /proc interface, particularly for printing status information, is kept as tables of structures of the following form. These tables can be used to map numeric values to their symbolic names and to a string that describes their specific use. */ struct trans { int value; /* The numeric value */ char *name; /* The equivalent symbolic value */ char *desc; /* Short description of value */ }; /* Translate bits in the pr_flags member of the prstatus structure, into the names and desc information. */ static struct trans pr_flag_table[] = { #if defined (PR_STOPPED) PR_STOPPED, "PR_STOPPED", "Process is stopped", #endif #if defined (PR_ISTOP) PR_ISTOP, "PR_ISTOP", "Stopped on an event of interest", #endif #if defined (PR_DSTOP) PR_DSTOP, "PR_DSTOP", "A stop directive is in effect", #endif #if defined (PR_ASLEEP) PR_ASLEEP, "PR_ASLEEP", "Sleeping in an interruptible system call", #endif #if defined (PR_FORK) PR_FORK, "PR_FORK", "Inherit-on-fork is in effect", #endif #if defined (PR_RLC) PR_RLC, "PR_RLC", "Run-on-last-close is in effect", #endif #if defined (PR_PTRACE) PR_PTRACE, "PR_PTRACE", "Process is being controlled by ptrace", #endif #if defined (PR_PCINVAL) PR_PCINVAL, "PR_PCINVAL", "PC refers to an invalid virtual address", #endif #if defined (PR_ISSYS) PR_ISSYS, "PR_ISSYS", "Is a system process", #endif #if defined (PR_STEP) PR_STEP, "PR_STEP", "Process has single step pending", #endif #if defined (PR_KLC) PR_KLC, "PR_KLC", "Kill-on-last-close is in effect", #endif #if defined (PR_ASYNC) PR_ASYNC, "PR_ASYNC", "Asynchronous stop is in effect", #endif #if defined (PR_PCOMPAT) PR_PCOMPAT, "PR_PCOMPAT", "Ptrace compatibility mode in effect", #endif 0, NULL, NULL }; /* Translate values in the pr_why field of the prstatus struct. */ static struct trans pr_why_table[] = { #if defined (PR_REQUESTED) PR_REQUESTED, "PR_REQUESTED", "Directed to stop via PIOCSTOP/PIOCWSTOP", #endif #if defined (PR_SIGNALLED) PR_SIGNALLED, "PR_SIGNALLED", "Receipt of a traced signal", #endif #if defined (PR_FAULTED) PR_FAULTED, "PR_FAULTED", "Incurred a traced hardware fault", #endif #if defined (PR_SYSENTRY) PR_SYSENTRY, "PR_SYSENTRY", "Entry to a traced system call", #endif #if defined (PR_SYSEXIT) PR_SYSEXIT, "PR_SYSEXIT", "Exit from a traced system call", #endif #if defined (PR_JOBCONTROL) PR_JOBCONTROL, "PR_JOBCONTROL", "Default job control stop signal action", #endif #if defined (PR_SUSPENDED) PR_SUSPENDED, "PR_SUSPENDED", "Process suspended", #endif 0, NULL, NULL }; /* Hardware fault translation table. */ static struct trans faults_table[] = { #if defined (FLTILL) FLTILL, "FLTILL", "Illegal instruction", #endif #if defined (FLTPRIV) FLTPRIV, "FLTPRIV", "Privileged instruction", #endif #if defined (FLTBPT) FLTBPT, "FLTBPT", "Breakpoint trap", #endif #if defined (FLTTRACE) FLTTRACE, "FLTTRACE", "Trace trap", #endif #if defined (FLTACCESS) FLTACCESS, "FLTACCESS", "Memory access fault", #endif #if defined (FLTBOUNDS) FLTBOUNDS, "FLTBOUNDS", "Memory bounds violation", #endif #if defined (FLTIOVF) FLTIOVF, "FLTIOVF", "Integer overflow", #endif #if defined (FLTIZDIV) FLTIZDIV, "FLTIZDIV", "Integer zero divide", #endif #if defined (FLTFPE) FLTFPE, "FLTFPE", "Floating-point exception", #endif #if defined (FLTSTACK) FLTSTACK, "FLTSTACK", "Unrecoverable stack fault", #endif #if defined (FLTPAGE) FLTPAGE, "FLTPAGE", "Recoverable page fault", #endif 0, NULL, NULL }; /* Translation table for signal generation information. See UNIX System V Release 4 Programmer's Reference Manual, siginfo(5). */ static struct sigcode { int signo; int code; char *codename; char *desc; } siginfo_table[] = { #if defined (SIGILL) && defined (ILL_ILLOPC) SIGILL, ILL_ILLOPC, "ILL_ILLOPC", "Illegal opcode", #endif #if defined (SIGILL) && defined (ILL_ILLOPN) SIGILL, ILL_ILLOPN, "ILL_ILLOPN", "Illegal operand", #endif #if defined (SIGILL) && defined (ILL_ILLADR) SIGILL, ILL_ILLADR, "ILL_ILLADR", "Illegal addressing mode", #endif #if defined (SIGILL) && defined (ILL_ILLTRP) SIGILL, ILL_ILLTRP, "ILL_ILLTRP", "Illegal trap", #endif #if defined (SIGILL) && defined (ILL_PRVOPC) SIGILL, ILL_PRVOPC, "ILL_PRVOPC", "Privileged opcode", #endif #if defined (SIGILL) && defined (ILL_PRVREG) SIGILL, ILL_PRVREG, "ILL_PRVREG", "Privileged register", #endif #if defined (SIGILL) && defined (ILL_COPROC) SIGILL, ILL_COPROC, "ILL_COPROC", "Coprocessor error", #endif #if defined (SIGILL) && defined (ILL_BADSTK) SIGILL, ILL_BADSTK, "ILL_BADSTK", "Internal stack error", #endif #if defined (SIGFPE) && defined (FPE_INTDIV) SIGFPE, FPE_INTDIV, "FPE_INTDIV", "Integer divide by zero", #endif #if defined (SIGFPE) && defined (FPE_INTOVF) SIGFPE, FPE_INTOVF, "FPE_INTOVF", "Integer overflow", #endif #if defined (SIGFPE) && defined (FPE_FLTDIV) SIGFPE, FPE_FLTDIV, "FPE_FLTDIV", "Floating point divide by zero", #endif #if defined (SIGFPE) && defined (FPE_FLTOVF) SIGFPE, FPE_FLTOVF, "FPE_FLTOVF", "Floating point overflow", #endif #if defined (SIGFPE) && defined (FPE_FLTUND) SIGFPE, FPE_FLTUND, "FPE_FLTUND", "Floating point underflow", #endif #if defined (SIGFPE) && defined (FPE_FLTRES) SIGFPE, FPE_FLTRES, "FPE_FLTRES", "Floating point inexact result", #endif #if defined (SIGFPE) && defined (FPE_FLTINV) SIGFPE, FPE_FLTINV, "FPE_FLTINV", "Invalid floating point operation", #endif #if defined (SIGFPE) && defined (FPE_FLTSUB) SIGFPE, FPE_FLTSUB, "FPE_FLTSUB", "Subscript out of range", #endif #if defined (SIGSEGV) && defined (SEGV_MAPERR) SIGSEGV, SEGV_MAPERR, "SEGV_MAPERR", "Address not mapped to object", #endif #if defined (SIGSEGV) && defined (SEGV_ACCERR) SIGSEGV, SEGV_ACCERR, "SEGV_ACCERR", "Invalid permissions for object", #endif #if defined (SIGBUS) && defined (BUS_ADRALN) SIGBUS, BUS_ADRALN, "BUS_ADRALN", "Invalid address alignment", #endif #if defined (SIGBUS) && defined (BUS_ADRERR) SIGBUS, BUS_ADRERR, "BUS_ADRERR", "Non-existent physical address", #endif #if defined (SIGBUS) && defined (BUS_OBJERR) SIGBUS, BUS_OBJERR, "BUS_OBJERR", "Object specific hardware error", #endif #if defined (SIGTRAP) && defined (TRAP_BRKPT) SIGTRAP, TRAP_BRKPT, "TRAP_BRKPT", "Process breakpoint", #endif #if defined (SIGTRAP) && defined (TRAP_TRACE) SIGTRAP, TRAP_TRACE, "TRAP_TRACE", "Process trace trap", #endif #if defined (SIGCLD) && defined (CLD_EXITED) SIGCLD, CLD_EXITED, "CLD_EXITED", "Child has exited", #endif #if defined (SIGCLD) && defined (CLD_KILLED) SIGCLD, CLD_KILLED, "CLD_KILLED", "Child was killed", #endif #if defined (SIGCLD) && defined (CLD_DUMPED) SIGCLD, CLD_DUMPED, "CLD_DUMPED", "Child has terminated abnormally", #endif #if defined (SIGCLD) && defined (CLD_TRAPPED) SIGCLD, CLD_TRAPPED, "CLD_TRAPPED", "Traced child has trapped", #endif #if defined (SIGCLD) && defined (CLD_STOPPED) SIGCLD, CLD_STOPPED, "CLD_STOPPED", "Child has stopped", #endif #if defined (SIGCLD) && defined (CLD_CONTINUED) SIGCLD, CLD_CONTINUED, "CLD_CONTINUED", "Stopped child had continued", #endif #if defined (SIGPOLL) && defined (POLL_IN) SIGPOLL, POLL_IN, "POLL_IN", "Input input available", #endif #if defined (SIGPOLL) && defined (POLL_OUT) SIGPOLL, POLL_OUT, "POLL_OUT", "Output buffers available", #endif #if defined (SIGPOLL) && defined (POLL_MSG) SIGPOLL, POLL_MSG, "POLL_MSG", "Input message available", #endif #if defined (SIGPOLL) && defined (POLL_ERR) SIGPOLL, POLL_ERR, "POLL_ERR", "I/O error", #endif #if defined (SIGPOLL) && defined (POLL_PRI) SIGPOLL, POLL_PRI, "POLL_PRI", "High priority input available", #endif #if defined (SIGPOLL) && defined (POLL_HUP) SIGPOLL, POLL_HUP, "POLL_HUP", "Device disconnected", #endif 0, 0, NULL, NULL }; static char *syscall_table[MAX_SYSCALLS]; /* Prototypes for local functions */ static void set_proc_siginfo PARAMS ((struct procinfo *, int)); static void init_syscall_table PARAMS ((void)); static char * syscallname PARAMS ((int)); static char * signalname PARAMS ((int)); static char * errnoname PARAMS ((int)); static int proc_address_to_fd PARAMS ((struct procinfo *, CORE_ADDR, int)); static int open_proc_file PARAMS ((int, struct procinfo *, int)); static void close_proc_file PARAMS ((struct procinfo *)); static void unconditionally_kill_inferior PARAMS ((struct procinfo *)); static NORETURN void proc_init_failed PARAMS ((struct procinfo *, char *)); static void info_proc PARAMS ((char *, int)); static void info_proc_flags PARAMS ((struct procinfo *, int)); static void info_proc_stop PARAMS ((struct procinfo *, int)); static void info_proc_siginfo PARAMS ((struct procinfo *, int)); static void info_proc_syscalls PARAMS ((struct procinfo *, int)); static void info_proc_mappings PARAMS ((struct procinfo *, int)); static void info_proc_signals PARAMS ((struct procinfo *, int)); static void info_proc_faults PARAMS ((struct procinfo *, int)); static char * mappingflags PARAMS ((long)); static char * lookupname PARAMS ((struct trans *, unsigned int, char *)); static char * lookupdesc PARAMS ((struct trans *, unsigned int)); static int do_attach PARAMS ((int pid)); static void do_detach PARAMS ((int siggnal)); static void procfs_create_inferior PARAMS ((char *, char *, char **)); static void procfs_notice_signals PARAMS ((int pid)); static struct procinfo * find_procinfo PARAMS ((pid_t pid, int okfail)); /* External function prototypes that can't be easily included in any header file because the args are typedefs in system include files. */ extern void supply_gregset PARAMS ((gregset_t *)); extern void fill_gregset PARAMS ((gregset_t *, int)); extern void supply_fpregset PARAMS ((fpregset_t *)); extern void fill_fpregset PARAMS ((fpregset_t *, int)); /* LOCAL FUNCTION find_procinfo -- convert a process id to a struct procinfo SYNOPSIS static struct procinfo * find_procinfo (pid_t pid, int okfail); DESCRIPTION Given a process id, look it up in the procinfo chain. Returns a struct procinfo *. If can't find pid, then call error(), unless okfail is set, in which case, return NULL; */ static struct procinfo * find_procinfo (pid, okfail) pid_t pid; int okfail; { struct procinfo *procinfo; for (procinfo = procinfo_list; procinfo; procinfo = procinfo->next) if (procinfo->pid == pid) return procinfo; if (okfail) return NULL; error ("procfs (find_procinfo): Couldn't locate pid %d", pid); } /* LOCAL MACRO current_procinfo -- convert inferior_pid to a struct procinfo SYNOPSIS static struct procinfo * current_procinfo; DESCRIPTION Looks up inferior_pid in the procinfo chain. Always returns a struct procinfo *. If process can't be found, we error() out. */ #define current_procinfo find_procinfo (inferior_pid, 0) /* LOCAL FUNCTION add_fd -- Add the fd to the poll/select list SYNOPSIS static void add_fd (struct procinfo *); DESCRIPTION Add the fd of the supplied procinfo to the list of fds used for poll/select operations. */ static void add_fd (pi) struct procinfo *pi; { if (num_poll_list <= 0) poll_list = (struct pollfd *) xmalloc (sizeof (struct pollfd)); else poll_list = (struct pollfd *) xrealloc (poll_list, (num_poll_list + 1) * sizeof (struct pollfd)); poll_list[num_poll_list].fd = pi->fd; poll_list[num_poll_list].events = POLLPRI; num_poll_list++; } static void remove_fd (pi) struct procinfo *pi; { int i; for (i = 0; i < num_poll_list; i++) { if (poll_list[i].fd == pi->fd) { if (i != num_poll_list - 1) memcpy (poll_list, poll_list + i + 1, (num_poll_list - i - 1) * sizeof (struct pollfd)); num_poll_list--; if (num_poll_list == 0) free (poll_list); else poll_list = (struct pollfd *) xrealloc (poll_list, num_poll_list * sizeof (struct pollfd)); return; } } } #define LOSING_POLL unixware_sux static struct procinfo * wait_fd () { struct procinfo *pi; int num_fds; int i; if (attach_flag) set_sigint_trap (); /* Causes SIGINT to be passed on to the attached process. */ set_sigio_trap (); #ifndef LOSING_POLL num_fds = poll (poll_list, num_poll_list, -1); #else pi = current_procinfo; while (ioctl (pi->fd, PIOCWSTOP, &pi->prstatus) < 0) { if (errno == ENOENT) { /* Process exited. */ pi->prstatus.pr_flags = 0; break; } else if (errno != EINTR) { print_sys_errmsg (pi->pathname, errno); error ("PIOCWSTOP failed"); } } pi->had_event = 1; #endif if (attach_flag) clear_sigint_trap(); clear_sigio_trap (); #ifndef LOSING_POLL if (num_fds <= 0) { print_sys_errmsg ("poll failed\n", errno); error ("Poll failed, returned %d", num_fds); } for (i = 0; i < num_poll_list && num_fds > 0; i++) { if ((poll_list[i].revents & (POLLPRI|POLLERR|POLLHUP|POLLNVAL)) == 0) continue; for (pi = procinfo_list; pi; pi = pi->next) { if (poll_list[i].fd == pi->fd) { if (ioctl (pi->fd, PIOCSTATUS, &pi->prstatus) < 0) { print_sys_errmsg (pi->pathname, errno); error ("PIOCSTATUS failed"); } num_fds--; pi->had_event = 1; break; } } if (!pi) error ("procfs_wait: Couldn't find procinfo for fd %d\n", poll_list[i].fd); } #endif /* LOSING_POLL */ return pi; } /* LOCAL FUNCTION lookupdesc -- translate a value to a summary desc string SYNOPSIS static char *lookupdesc (struct trans *transp, unsigned int val); DESCRIPTION Given a pointer to a translation table and a value to be translated, lookup the desc string and return it. */ static char * lookupdesc (transp, val) struct trans *transp; unsigned int val; { char *desc; for (desc = NULL; transp -> name != NULL; transp++) { if (transp -> value == val) { desc = transp -> desc; break; } } /* Didn't find a translation for the specified value, set a default one. */ if (desc == NULL) { desc = "Unknown"; } return (desc); } /* LOCAL FUNCTION lookupname -- translate a value to symbolic name SYNOPSIS static char *lookupname (struct trans *transp, unsigned int val, char *prefix); DESCRIPTION Given a pointer to a translation table, a value to be translated, and a default prefix to return if the value can't be translated, match the value with one of the translation table entries and return a pointer to the symbolic name. If no match is found it just returns the value as a printable string, with the given prefix. The previous such value, if any, is freed at this time. */ static char * lookupname (transp, val, prefix) struct trans *transp; unsigned int val; char *prefix; { static char *locbuf; char *name; for (name = NULL; transp -> name != NULL; transp++) { if (transp -> value == val) { name = transp -> name; break; } } /* Didn't find a translation for the specified value, build a default one using the specified prefix and return it. The lifetime of the value is only until the next one is needed. */ if (name == NULL) { if (locbuf != NULL) { free (locbuf); } locbuf = xmalloc (strlen (prefix) + 16); sprintf (locbuf, "%s %u", prefix, val); name = locbuf; } return (name); } static char * sigcodename (sip) siginfo_t *sip; { struct sigcode *scp; char *name = NULL; static char locbuf[32]; for (scp = siginfo_table; scp -> codename != NULL; scp++) { if ((scp -> signo == sip -> si_signo) && (scp -> code == sip -> si_code)) { name = scp -> codename; break; } } if (name == NULL) { sprintf (locbuf, "sigcode %u", sip -> si_signo); name = locbuf; } return (name); } static char * sigcodedesc (sip) siginfo_t *sip; { struct sigcode *scp; char *desc = NULL; for (scp = siginfo_table; scp -> codename != NULL; scp++) { if ((scp -> signo == sip -> si_signo) && (scp -> code == sip -> si_code)) { desc = scp -> desc; break; } } if (desc == NULL) { desc = "Unrecognized signal or trap use"; } return (desc); } /* LOCAL FUNCTION syscallname - translate a system call number into a system call name SYNOPSIS char *syscallname (int syscallnum) DESCRIPTION Given a system call number, translate it into the printable name of a system call, or into "syscall " if it is an unknown number. */ static char * syscallname (syscallnum) int syscallnum; { static char locbuf[32]; char *rtnval; if (syscallnum >= 0 && syscallnum < MAX_SYSCALLS) { rtnval = syscall_table[syscallnum]; } else { sprintf (locbuf, "syscall %u", syscallnum); rtnval = locbuf; } return (rtnval); } /* LOCAL FUNCTION init_syscall_table - initialize syscall translation table SYNOPSIS void init_syscall_table (void) DESCRIPTION Dynamically initialize the translation table to convert system call numbers into printable system call names. Done once per gdb run, on initialization. NOTES This is awfully ugly, but preprocessor tricks to make it prettier tend to be nonportable. */ static void init_syscall_table () { #if defined (SYS_exit) syscall_table[SYS_exit] = "exit"; #endif #if defined (SYS_fork) syscall_table[SYS_fork] = "fork"; #endif #if defined (SYS_read) syscall_table[SYS_read] = "read"; #endif #if defined (SYS_write) syscall_table[SYS_write] = "write"; #endif #if defined (SYS_open) syscall_table[SYS_open] = "open"; #endif #if defined (SYS_close) syscall_table[SYS_close] = "close"; #endif #if defined (SYS_wait) syscall_table[SYS_wait] = "wait"; #endif #if defined (SYS_creat) syscall_table[SYS_creat] = "creat"; #endif #if defined (SYS_link) syscall_table[SYS_link] = "link"; #endif #if defined (SYS_unlink) syscall_table[SYS_unlink] = "unlink"; #endif #if defined (SYS_exec) syscall_table[SYS_exec] = "exec"; #endif #if defined (SYS_execv) syscall_table[SYS_execv] = "execv"; #endif #if defined (SYS_execve) syscall_table[SYS_execve] = "execve"; #endif #if defined (SYS_chdir) syscall_table[SYS_chdir] = "chdir"; #endif #if defined (SYS_time) syscall_table[SYS_time] = "time"; #endif #if defined (SYS_mknod) syscall_table[SYS_mknod] = "mknod"; #endif #if defined (SYS_chmod) syscall_table[SYS_chmod] = "chmod"; #endif #if defined (SYS_chown) syscall_table[SYS_chown] = "chown"; #endif #if defined (SYS_brk) syscall_table[SYS_brk] = "brk"; #endif #if defined (SYS_stat) syscall_table[SYS_stat] = "stat"; #endif #if defined (SYS_lseek) syscall_table[SYS_lseek] = "lseek"; #endif #if defined (SYS_getpid) syscall_table[SYS_getpid] = "getpid"; #endif #if defined (SYS_mount) syscall_table[SYS_mount] = "mount"; #endif #if defined (SYS_umount) syscall_table[SYS_umount] = "umount"; #endif #if defined (SYS_setuid) syscall_table[SYS_setuid] = "setuid"; #endif #if defined (SYS_getuid) syscall_table[SYS_getuid] = "getuid"; #endif #if defined (SYS_stime) syscall_table[SYS_stime] = "stime"; #endif #if defined (SYS_ptrace) syscall_table[SYS_ptrace] = "ptrace"; #endif #if defined (SYS_alarm) syscall_table[SYS_alarm] = "alarm"; #endif #if defined (SYS_fstat) syscall_table[SYS_fstat] = "fstat"; #endif #if defined (SYS_pause) syscall_table[SYS_pause] = "pause"; #endif #if defined (SYS_utime) syscall_table[SYS_utime] = "utime"; #endif #if defined (SYS_stty) syscall_table[SYS_stty] = "stty"; #endif #if defined (SYS_gtty) syscall_table[SYS_gtty] = "gtty"; #endif #if defined (SYS_access) syscall_table[SYS_access] = "access"; #endif #if defined (SYS_nice) syscall_table[SYS_nice] = "nice"; #endif #if defined (SYS_statfs) syscall_table[SYS_statfs] = "statfs"; #endif #if defined (SYS_sync) syscall_table[SYS_sync] = "sync"; #endif #if defined (SYS_kill) syscall_table[SYS_kill] = "kill"; #endif #if defined (SYS_fstatfs) syscall_table[SYS_fstatfs] = "fstatfs"; #endif #if defined (SYS_pgrpsys) syscall_table[SYS_pgrpsys] = "pgrpsys"; #endif #if defined (SYS_xenix) syscall_table[SYS_xenix] = "xenix"; #endif #if defined (SYS_dup) syscall_table[SYS_dup] = "dup"; #endif #if defined (SYS_pipe) syscall_table[SYS_pipe] = "pipe"; #endif #if defined (SYS_times) syscall_table[SYS_times] = "times"; #endif #if defined (SYS_profil) syscall_table[SYS_profil] = "profil"; #endif #if defined (SYS_plock) syscall_table[SYS_plock] = "plock"; #endif #if defined (SYS_setgid) syscall_table[SYS_setgid] = "setgid"; #endif #if defined (SYS_getgid) syscall_table[SYS_getgid] = "getgid"; #endif #if defined (SYS_signal) syscall_table[SYS_signal] = "signal"; #endif #if defined (SYS_msgsys) syscall_table[SYS_msgsys] = "msgsys"; #endif #if defined (SYS_sys3b) syscall_table[SYS_sys3b] = "sys3b"; #endif #if defined (SYS_acct) syscall_table[SYS_acct] = "acct"; #endif #if defined (SYS_shmsys) syscall_table[SYS_shmsys] = "shmsys"; #endif #if defined (SYS_semsys) syscall_table[SYS_semsys] = "semsys"; #endif #if defined (SYS_ioctl) syscall_table[SYS_ioctl] = "ioctl"; #endif #if defined (SYS_uadmin) syscall_table[SYS_uadmin] = "uadmin"; #endif #if defined (SYS_utssys) syscall_table[SYS_utssys] = "utssys"; #endif #if defined (SYS_fsync) syscall_table[SYS_fsync] = "fsync"; #endif #if defined (SYS_umask) syscall_table[SYS_umask] = "umask"; #endif #if defined (SYS_chroot) syscall_table[SYS_chroot] = "chroot"; #endif #if defined (SYS_fcntl) syscall_table[SYS_fcntl] = "fcntl"; #endif #if defined (SYS_ulimit) syscall_table[SYS_ulimit] = "ulimit"; #endif #if defined (SYS_rfsys) syscall_table[SYS_rfsys] = "rfsys"; #endif #if defined (SYS_rmdir) syscall_table[SYS_rmdir] = "rmdir"; #endif #if defined (SYS_mkdir) syscall_table[SYS_mkdir] = "mkdir"; #endif #if defined (SYS_getdents) syscall_table[SYS_getdents] = "getdents"; #endif #if defined (SYS_sysfs) syscall_table[SYS_sysfs] = "sysfs"; #endif #if defined (SYS_getmsg) syscall_table[SYS_getmsg] = "getmsg"; #endif #if defined (SYS_putmsg) syscall_table[SYS_putmsg] = "putmsg"; #endif #if defined (SYS_poll) syscall_table[SYS_poll] = "poll"; #endif #if defined (SYS_lstat) syscall_table[SYS_lstat] = "lstat"; #endif #if defined (SYS_symlink) syscall_table[SYS_symlink] = "symlink"; #endif #if defined (SYS_readlink) syscall_table[SYS_readlink] = "readlink"; #endif #if defined (SYS_setgroups) syscall_table[SYS_setgroups] = "setgroups"; #endif #if defined (SYS_getgroups) syscall_table[SYS_getgroups] = "getgroups"; #endif #if defined (SYS_fchmod) syscall_table[SYS_fchmod] = "fchmod"; #endif #if defined (SYS_fchown) syscall_table[SYS_fchown] = "fchown"; #endif #if defined (SYS_sigprocmask) syscall_table[SYS_sigprocmask] = "sigprocmask"; #endif #if defined (SYS_sigsuspend) syscall_table[SYS_sigsuspend] = "sigsuspend"; #endif #if defined (SYS_sigaltstack) syscall_table[SYS_sigaltstack] = "sigaltstack"; #endif #if defined (SYS_sigaction) syscall_table[SYS_sigaction] = "sigaction"; #endif #if defined (SYS_sigpending) syscall_table[SYS_sigpending] = "sigpending"; #endif #if defined (SYS_context) syscall_table[SYS_context] = "context"; #endif #if defined (SYS_evsys) syscall_table[SYS_evsys] = "evsys"; #endif #if defined (SYS_evtrapret) syscall_table[SYS_evtrapret] = "evtrapret"; #endif #if defined (SYS_statvfs) syscall_table[SYS_statvfs] = "statvfs"; #endif #if defined (SYS_fstatvfs) syscall_table[SYS_fstatvfs] = "fstatvfs"; #endif #if defined (SYS_nfssys) syscall_table[SYS_nfssys] = "nfssys"; #endif #if defined (SYS_waitsys) syscall_table[SYS_waitsys] = "waitsys"; #endif #if defined (SYS_sigsendsys) syscall_table[SYS_sigsendsys] = "sigsendsys"; #endif #if defined (SYS_hrtsys) syscall_table[SYS_hrtsys] = "hrtsys"; #endif #if defined (SYS_acancel) syscall_table[SYS_acancel] = "acancel"; #endif #if defined (SYS_async) syscall_table[SYS_async] = "async"; #endif #if defined (SYS_priocntlsys) syscall_table[SYS_priocntlsys] = "priocntlsys"; #endif #if defined (SYS_pathconf) syscall_table[SYS_pathconf] = "pathconf"; #endif #if defined (SYS_mincore) syscall_table[SYS_mincore] = "mincore"; #endif #if defined (SYS_mmap) syscall_table[SYS_mmap] = "mmap"; #endif #if defined (SYS_mprotect) syscall_table[SYS_mprotect] = "mprotect"; #endif #if defined (SYS_munmap) syscall_table[SYS_munmap] = "munmap"; #endif #if defined (SYS_fpathconf) syscall_table[SYS_fpathconf] = "fpathconf"; #endif #if defined (SYS_vfork) syscall_table[SYS_vfork] = "vfork"; #endif #if defined (SYS_fchdir) syscall_table[SYS_fchdir] = "fchdir"; #endif #if defined (SYS_readv) syscall_table[SYS_readv] = "readv"; #endif #if defined (SYS_writev) syscall_table[SYS_writev] = "writev"; #endif #if defined (SYS_xstat) syscall_table[SYS_xstat] = "xstat"; #endif #if defined (SYS_lxstat) syscall_table[SYS_lxstat] = "lxstat"; #endif #if defined (SYS_fxstat) syscall_table[SYS_fxstat] = "fxstat"; #endif #if defined (SYS_xmknod) syscall_table[SYS_xmknod] = "xmknod"; #endif #if defined (SYS_clocal) syscall_table[SYS_clocal] = "clocal"; #endif #if defined (SYS_setrlimit) syscall_table[SYS_setrlimit] = "setrlimit"; #endif #if defined (SYS_getrlimit) syscall_table[SYS_getrlimit] = "getrlimit"; #endif #if defined (SYS_lchown) syscall_table[SYS_lchown] = "lchown"; #endif #if defined (SYS_memcntl) syscall_table[SYS_memcntl] = "memcntl"; #endif #if defined (SYS_getpmsg) syscall_table[SYS_getpmsg] = "getpmsg"; #endif #if defined (SYS_putpmsg) syscall_table[SYS_putpmsg] = "putpmsg"; #endif #if defined (SYS_rename) syscall_table[SYS_rename] = "rename"; #endif #if defined (SYS_uname) syscall_table[SYS_uname] = "uname"; #endif #if defined (SYS_setegid) syscall_table[SYS_setegid] = "setegid"; #endif #if defined (SYS_sysconfig) syscall_table[SYS_sysconfig] = "sysconfig"; #endif #if defined (SYS_adjtime) syscall_table[SYS_adjtime] = "adjtime"; #endif #if defined (SYS_systeminfo) syscall_table[SYS_systeminfo] = "systeminfo"; #endif #if defined (SYS_seteuid) syscall_table[SYS_seteuid] = "seteuid"; #endif #if defined (SYS_sproc) syscall_table[SYS_sproc] = "sproc"; #endif } /* LOCAL FUNCTION procfs_kill_inferior - kill any currently inferior SYNOPSIS void procfs_kill_inferior (void) DESCRIPTION Kill any current inferior. NOTES Kills even attached inferiors. Presumably the user has already been prompted that the inferior is an attached one rather than one started by gdb. (FIXME?) */ static void procfs_kill_inferior () { target_mourn_inferior (); } /* LOCAL FUNCTION unconditionally_kill_inferior - terminate the inferior SYNOPSIS static void unconditionally_kill_inferior (struct procinfo *) DESCRIPTION Kill the specified inferior. NOTE A possibly useful enhancement would be to first try sending the inferior a terminate signal, politely asking it to commit suicide, before we murder it (we could call that politely_kill_inferior()). */ static void unconditionally_kill_inferior (pi) struct procinfo *pi; { int signo; int ppid; ppid = pi->prstatus.pr_ppid; signo = SIGKILL; ioctl (pi->fd, PIOCKILL, &signo); close_proc_file (pi); /* Only wait() for our direct children. Our grandchildren zombies are killed by the death of their parents. */ if (ppid == getpid()) wait ((int *) 0); } /* LOCAL FUNCTION procfs_xfer_memory -- copy data to or from inferior memory space SYNOPSIS int procfs_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len, int dowrite, struct target_ops target) DESCRIPTION Copy LEN bytes to/from inferior's memory starting at MEMADDR from/to debugger memory starting at MYADDR. Copy from inferior if DOWRITE is zero or to inferior if DOWRITE is nonzero. Returns the length copied, which is either the LEN argument or zero. This xfer function does not do partial moves, since procfs_ops doesn't allow memory operations to cross below us in the target stack anyway. NOTES The /proc interface makes this an almost trivial task. */ static int procfs_xfer_memory (memaddr, myaddr, len, dowrite, target) CORE_ADDR memaddr; char *myaddr; int len; int dowrite; struct target_ops *target; /* ignored */ { int nbytes = 0; struct procinfo *pi; pi = current_procinfo; if (lseek(pi->fd, (off_t) memaddr, 0) == (off_t) memaddr) { if (dowrite) { nbytes = write (pi->fd, myaddr, len); } else { nbytes = read (pi->fd, myaddr, len); } if (nbytes < 0) { nbytes = 0; } } return (nbytes); } /* LOCAL FUNCTION procfs_store_registers -- copy register values back to inferior SYNOPSIS void procfs_store_registers (int regno) DESCRIPTION Store our current register values back into the inferior. If REGNO is -1 then store all the register, otherwise store just the value specified by REGNO. NOTES If we are storing only a single register, we first have to get all the current values from the process, overwrite the desired register in the gregset with the one we want from gdb's registers, and then send the whole set back to the process. For writing all the registers, all we have to do is generate the gregset and send it to the process. Also note that the process has to be stopped on an event of interest for this to work, which basically means that it has to have been run under the control of one of the other /proc ioctl calls and not ptrace. Since we don't use ptrace anyway, we don't worry about this fine point, but it is worth noting for future reference. Gdb is confused about what this function is supposed to return. Some versions return a value, others return nothing. Some are declared to return a value and actually return nothing. Gdb ignores anything returned. (FIXME) */ static void procfs_store_registers (regno) int regno; { struct procinfo *pi; pi = current_procinfo; if (regno != -1) { ioctl (pi->fd, PIOCGREG, &pi->gregset); } fill_gregset (&pi->gregset, regno); ioctl (pi->fd, PIOCSREG, &pi->gregset); #if defined (FP0_REGNUM) /* Now repeat everything using the floating point register set, if the target has floating point hardware. Since we ignore the returned value, we'll never know whether it worked or not anyway. */ if (regno != -1) { ioctl (pi->fd, PIOCGFPREG, &pi->fpregset); } fill_fpregset (&pi->fpregset, regno); ioctl (pi->fd, PIOCSFPREG, &pi->fpregset); #endif /* FP0_REGNUM */ } /* LOCAL FUNCTION create_procinfo - initialize access to a /proc entry SYNOPSIS struct procinfo * create_procinfo (int pid) DESCRIPTION Allocate a procinfo structure, open the /proc file and then set up the set of signals and faults that are to be traced. Returns a pointer to the new procinfo structure. NOTES If proc_init_failed ever gets called, control returns to the command processing loop via the standard error handling code. */ static struct procinfo * create_procinfo (pid) int pid; { struct procinfo *pi; if (find_procinfo (pid, 1)) return; /* All done! It already exists */ pi = (struct procinfo *) xmalloc (sizeof (struct procinfo)); if (!open_proc_file (pid, pi, O_RDWR)) proc_init_failed (pi, "can't open process file"); /* Add new process to process info list */ pi->next = procinfo_list; procinfo_list = pi; add_fd (pi); /* Add to list for poll/select */ memset ((char *) &pi->prrun, 0, sizeof (pi->prrun)); prfillset (&pi->prrun.pr_trace); procfs_notice_signals (pid); prfillset (&pi->prrun.pr_fault); prdelset (&pi->prrun.pr_fault, FLTPAGE); if (ioctl (pi->fd, PIOCWSTOP, &pi->prstatus) < 0) proc_init_failed (pi, "PIOCWSTOP failed"); if (ioctl (pi->fd, PIOCSFAULT, &pi->prrun.pr_fault) < 0) proc_init_failed (pi, "PIOCSFAULT failed"); return pi; } /* LOCAL FUNCTION procfs_init_inferior - initialize target vector and access to a /proc entry SYNOPSIS void procfs_init_inferior (int pid) DESCRIPTION When gdb starts an inferior, this function is called in the parent process immediately after the fork. It waits for the child to stop on the return from the exec system call (the child itself takes care of ensuring that this is set up), then sets up the set of signals and faults that are to be traced. NOTES If proc_init_failed ever gets called, control returns to the command processing loop via the standard error handling code. */ static void procfs_init_inferior (pid) int pid; { push_target (&procfs_ops); create_procinfo (pid); add_thread (pid); /* Setup initial thread */ /* One trap to exec the shell, one to exec the program being debugged. */ startup_inferior (2); } /* GLOBAL FUNCTION procfs_notice_signals SYNOPSIS static void procfs_notice_signals (int pid); DESCRIPTION When the user changes the state of gdb's signal handling via the "handle" command, this function gets called to see if any change in the /proc interface is required. It is also called internally by other /proc interface functions to initialize the state of the traced signal set. One thing it does is that signals for which the state is "nostop", "noprint", and "pass", have their trace bits reset in the pr_trace field, so that they are no longer traced. This allows them to be delivered directly to the inferior without the debugger ever being involved. */ static void procfs_notice_signals (pid) int pid; { int signo; struct procinfo *pi; pi = find_procinfo (pid, 0); for (signo = 0; signo < NSIG; signo++) { if (signal_stop_state (target_signal_from_host (signo)) == 0 && signal_print_state (target_signal_from_host (signo)) == 0 && signal_pass_state (target_signal_from_host (signo)) == 1) { prdelset (&pi->prrun.pr_trace, signo); } else { praddset (&pi->prrun.pr_trace, signo); } } if (ioctl (pi->fd, PIOCSTRACE, &pi->prrun.pr_trace)) { print_sys_errmsg ("PIOCSTRACE failed", errno); } } /* LOCAL FUNCTION proc_set_exec_trap -- arrange for exec'd child to halt at startup SYNOPSIS void proc_set_exec_trap (void) DESCRIPTION This function is called in the child process when starting up an inferior, prior to doing the exec of the actual inferior. It sets the child process's exitset to make exit from the exec system call an event of interest to stop on, and then simply returns. The child does the exec, the system call returns, and the child stops at the first instruction, ready for the gdb parent process to take control of it. NOTE We need to use all local variables since the child may be sharing it's data space with the parent, if vfork was used rather than fork. Also note that we want to turn off the inherit-on-fork flag in the child process so that any grand-children start with all tracing flags cleared. */ static void proc_set_exec_trap () { sysset_t exitset; sysset_t entryset; auto char procname[32]; int fd; sprintf (procname, PROC_NAME_FMT, getpid ()); if ((fd = open (procname, O_RDWR)) < 0) { perror (procname); gdb_flush (gdb_stderr); _exit (127); } premptyset (&exitset); premptyset (&entryset); /* GW: Rationale... Not all systems with /proc have all the exec* syscalls with the same names. On the SGI, for example, there is no SYS_exec, but there *is* a SYS_execv. So, we try to account for that. */ #ifdef SYS_exec praddset (&exitset, SYS_exec); #endif #ifdef SYS_execve praddset (&exitset, SYS_execve); #endif #ifdef SYS_execv praddset (&exitset, SYS_execv); #endif if (ioctl (fd, PIOCSEXIT, &exitset) < 0) { perror (procname); gdb_flush (gdb_stderr); _exit (127); } praddset (&entryset, SYS_exit); if (ioctl (fd, PIOCSENTRY, &entryset) < 0) { perror (procname); gdb_flush (gdb_stderr); _exit (126); } /* Turn off inherit-on-fork flag so that all grand-children of gdb start with tracing flags cleared. */ #if defined (PIOCRESET) /* New method */ { long pr_flags; pr_flags = PR_FORK; ioctl (fd, PIOCRESET, &pr_flags); } #else #if defined (PIOCRFORK) /* Original method */ ioctl (fd, PIOCRFORK, NULL); #endif #endif /* Turn on run-on-last-close flag so that this process will not hang if GDB goes away for some reason. */ #if defined (PIOCSET) /* New method */ { long pr_flags; pr_flags = PR_RLC; (void) ioctl (fd, PIOCSET, &pr_flags); } #else #if defined (PIOCSRLC) /* Original method */ (void) ioctl (fd, PIOCSRLC, 0); #endif #endif } /* GLOBAL FUNCTION proc_iterate_over_mappings -- call function for every mapped space SYNOPSIS int proc_iterate_over_mappings (int (*func)()) DESCRIPTION Given a pointer to a function, call that function for every mapped address space, passing it an open file descriptor for the file corresponding to that mapped address space (if any) and the base address of the mapped space. Quit when we hit the end of the mappings or the function returns nonzero. */ int proc_iterate_over_mappings (func) int (*func) PARAMS ((int, CORE_ADDR)); { int nmap; int fd; int funcstat = 0; struct prmap *prmaps; struct prmap *prmap; struct procinfo *pi; pi = current_procinfo; if (ioctl (pi->fd, PIOCNMAP, &nmap) == 0) { prmaps = (struct prmap *) alloca ((nmap + 1) * sizeof (*prmaps)); if (ioctl (pi->fd, PIOCMAP, prmaps) == 0) { for (prmap = prmaps; prmap -> pr_size && funcstat == 0; ++prmap) { fd = proc_address_to_fd (pi, (CORE_ADDR) prmap -> pr_vaddr, 0); funcstat = (*func) (fd, (CORE_ADDR) prmap -> pr_vaddr); close (fd); } } } return (funcstat); } #if 0 /* Currently unused */ /* GLOBAL FUNCTION proc_base_address -- find base address for segment containing address SYNOPSIS CORE_ADDR proc_base_address (CORE_ADDR addr) DESCRIPTION Given an address of a location in the inferior, find and return the base address of the mapped segment containing that address. This is used for example, by the shared library support code, where we have the pc value for some location in the shared library where we are stopped, and need to know the base address of the segment containing that address. */ CORE_ADDR proc_base_address (addr) CORE_ADDR addr; { int nmap; struct prmap *prmaps; struct prmap *prmap; CORE_ADDR baseaddr = 0; struct procinfo *pi; pi = current_procinfo; if (ioctl (pi->fd, PIOCNMAP, &nmap) == 0) { prmaps = (struct prmap *) alloca ((nmap + 1) * sizeof (*prmaps)); if (ioctl (pi->fd, PIOCMAP, prmaps) == 0) { for (prmap = prmaps; prmap -> pr_size; ++prmap) { if ((prmap -> pr_vaddr <= (caddr_t) addr) && (prmap -> pr_vaddr + prmap -> pr_size > (caddr_t) addr)) { baseaddr = (CORE_ADDR) prmap -> pr_vaddr; break; } } } } return (baseaddr); } #endif /* 0 */ /* LOCAL FUNCTION proc_address_to_fd -- return open fd for file mapped to address SYNOPSIS int proc_address_to_fd (struct procinfo *pi, CORE_ADDR addr, complain) DESCRIPTION Given an address in the current inferior's address space, use the /proc interface to find an open file descriptor for the file that this address was mapped in from. Return -1 if there is no current inferior. Print a warning message if there is an inferior but the address corresponds to no file (IE a bogus address). */ static int proc_address_to_fd (pi, addr, complain) struct procinfo *pi; CORE_ADDR addr; int complain; { int fd = -1; if ((fd = ioctl (pi->fd, PIOCOPENM, (caddr_t *) &addr)) < 0) { if (complain) { print_sys_errmsg (pi->pathname, errno); warning ("can't find mapped file for address 0x%x", addr); } } return (fd); } /* Attach to process PID, then initialize for debugging it and wait for the trace-trap that results from attaching. */ static void procfs_attach (args, from_tty) char *args; int from_tty; { char *exec_file; int pid; if (!args) error_no_arg ("process-id to attach"); pid = atoi (args); if (pid == getpid()) /* Trying to masturbate? */ error ("I refuse to debug myself!"); if (from_tty) { exec_file = (char *) get_exec_file (0); if (exec_file) printf_unfiltered ("Attaching to program `%s', %s\n", exec_file, target_pid_to_str (pid)); else printf_unfiltered ("Attaching to %s\n", target_pid_to_str (pid)); gdb_flush (gdb_stdout); } do_attach (pid); inferior_pid = pid; push_target (&procfs_ops); } /* Take a program previously attached to and detaches it. The program resumes execution and will no longer stop on signals, etc. We'd better not have left any breakpoints in the program or it'll die when it hits one. For this to work, it may be necessary for the process to have been previously attached. It *might* work if the program was started via the normal ptrace (PTRACE_TRACEME). */ static void procfs_detach (args, from_tty) char *args; int from_tty; { int siggnal = 0; if (from_tty) { char *exec_file = get_exec_file (0); if (exec_file == 0) exec_file = ""; printf_unfiltered ("Detaching from program: %s %s\n", exec_file, target_pid_to_str (inferior_pid)); gdb_flush (gdb_stdout); } if (args) siggnal = atoi (args); do_detach (siggnal); inferior_pid = 0; unpush_target (&procfs_ops); /* Pop out of handling an inferior */ } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void procfs_prepare_to_store () { #ifdef CHILD_PREPARE_TO_STORE CHILD_PREPARE_TO_STORE (); #endif } /* Print status information about what we're accessing. */ static void procfs_files_info (ignore) struct target_ops *ignore; { printf_unfiltered ("\tUsing the running image of %s %s via /proc.\n", attach_flag? "attached": "child", target_pid_to_str (inferior_pid)); } /* ARGSUSED */ static void procfs_open (arg, from_tty) char *arg; int from_tty; { error ("Use the \"run\" command to start a Unix child process."); } /* LOCAL FUNCTION do_attach -- attach to an already existing process SYNOPSIS int do_attach (int pid) DESCRIPTION Attach to an already existing process with the specified process id. If the process is not already stopped, query whether to stop it or not. NOTES The option of stopping at attach time is specific to the /proc versions of gdb. Versions using ptrace force the attachee to stop. (I have changed this version to do so, too. All you have to do is "continue" to make it go on. -- gnu@cygnus.com) */ static int do_attach (pid) int pid; { int result; struct procinfo *pi; pi = (struct procinfo *) xmalloc (sizeof (struct procinfo)); if (!open_proc_file (pid, pi, O_RDWR)) { free (pi); perror_with_name (pi->pathname); /* NOTREACHED */ } /* Add new process to process info list */ pi->next = procinfo_list; procinfo_list = pi; add_fd (pi); /* Add to list for poll/select */ /* Get current status of process and if it is not already stopped, then stop it. Remember whether or not it was stopped when we first examined it. */ if (ioctl (pi->fd, PIOCSTATUS, &pi->prstatus) < 0) { print_sys_errmsg (pi->pathname, errno); close_proc_file (pi); error ("PIOCSTATUS failed"); } if (pi->prstatus.pr_flags & (PR_STOPPED | PR_ISTOP)) { pi->was_stopped = 1; } else { pi->was_stopped = 0; if (1 || query ("Process is currently running, stop it? ")) { /* Make it run again when we close it. */ #if defined (PIOCSET) /* New method */ { long pr_flags; pr_flags = PR_RLC; result = ioctl (pi->fd, PIOCSET, &pr_flags); } #else #if defined (PIOCSRLC) /* Original method */ result = ioctl (pi->fd, PIOCSRLC, 0); #endif #endif if (result < 0) { print_sys_errmsg (pi->pathname, errno); close_proc_file (pi); error ("PIOCSRLC or PIOCSET failed"); } if (ioctl (pi->fd, PIOCSTOP, &pi->prstatus) < 0) { print_sys_errmsg (pi->pathname, errno); close_proc_file (pi); error ("PIOCSTOP failed"); } pi->nopass_next_sigstop = 1; } else { printf_unfiltered ("Ok, gdb will wait for %s to stop.\n", target_pid_to_str (pid)); } } /* Remember some things about the inferior that we will, or might, change so that we can restore them when we detach. */ ioctl (pi->fd, PIOCGTRACE, &pi->saved_trace); ioctl (pi->fd, PIOCGHOLD, &pi->saved_sighold); ioctl (pi->fd, PIOCGFAULT, &pi->saved_fltset); ioctl (pi->fd, PIOCGENTRY, &pi->saved_entryset); ioctl (pi->fd, PIOCGEXIT, &pi->saved_exitset); /* Set up trace and fault sets, as gdb expects them. */ memset (&pi->prrun, 0, sizeof (pi->prrun)); prfillset (&pi->prrun.pr_trace); procfs_notice_signals (pid); prfillset (&pi->prrun.pr_fault); prdelset (&pi->prrun.pr_fault, FLTPAGE); if (ioctl (pi->fd, PIOCSFAULT, &pi->prrun.pr_fault)) { print_sys_errmsg ("PIOCSFAULT failed", errno); } if (ioctl (pi->fd, PIOCSTRACE, &pi->prrun.pr_trace)) { print_sys_errmsg ("PIOCSTRACE failed", errno); } attach_flag = 1; return (pid); } /* LOCAL FUNCTION do_detach -- detach from an attached-to process SYNOPSIS void do_detach (int signal) DESCRIPTION Detach from the current attachee. If signal is non-zero, the attachee is started running again and sent the specified signal. If signal is zero and the attachee was not already stopped when we attached to it, then we make it runnable again when we detach. Otherwise, we query whether or not to make the attachee runnable again, since we may simply want to leave it in the state it was in when we attached. We report any problems, but do not consider them errors, since we MUST detach even if some things don't seem to go right. This may not be the ideal situation. (FIXME). */ static void do_detach (signal) int signal; { int result; struct procinfo *pi; pi = current_procinfo; if (signal) { set_proc_siginfo (pi, signal); } if (ioctl (pi->fd, PIOCSEXIT, &pi->saved_exitset) < 0) { print_sys_errmsg (pi->pathname, errno); printf_unfiltered ("PIOCSEXIT failed.\n"); } if (ioctl (pi->fd, PIOCSENTRY, &pi->saved_entryset) < 0) { print_sys_errmsg (pi->pathname, errno); printf_unfiltered ("PIOCSENTRY failed.\n"); } if (ioctl (pi->fd, PIOCSTRACE, &pi->saved_trace) < 0) { print_sys_errmsg (pi->pathname, errno); printf_unfiltered ("PIOCSTRACE failed.\n"); } if (ioctl (pi->fd, PIOCSHOLD, &pi->saved_sighold) < 0) { print_sys_errmsg (pi->pathname, errno); printf_unfiltered ("PIOSCHOLD failed.\n"); } if (ioctl (pi->fd, PIOCSFAULT, &pi->saved_fltset) < 0) { print_sys_errmsg (pi->pathname, errno); printf_unfiltered ("PIOCSFAULT failed.\n"); } if (ioctl (pi->fd, PIOCSTATUS, &pi->prstatus) < 0) { print_sys_errmsg (pi->pathname, errno); printf_unfiltered ("PIOCSTATUS failed.\n"); } else { if (signal || (pi->prstatus.pr_flags & (PR_STOPPED | PR_ISTOP))) { if (signal || !pi->was_stopped || query ("Was stopped when attached, make it runnable again? ")) { /* Clear any fault that might have stopped it. */ if (ioctl (pi->fd, PIOCCFAULT, 0)) { print_sys_errmsg (pi->pathname, errno); printf_unfiltered ("PIOCCFAULT failed.\n"); } /* Make it run again when we close it. */ #if defined (PIOCSET) /* New method */ { long pr_flags; pr_flags = PR_RLC; result = ioctl (pi->fd, PIOCSET, &pr_flags); } #else #if defined (PIOCSRLC) /* Original method */ result = ioctl (pi->fd, PIOCSRLC, 0); #endif #endif if (result) { print_sys_errmsg (pi->pathname, errno); printf_unfiltered ("PIOCSRLC or PIOCSET failed.\n"); } } } } close_proc_file (pi); attach_flag = 0; } /* emulate wait() as much as possible. Wait for child to do something. Return pid of child, or -1 in case of error; store status in *OURSTATUS. Not sure why we can't just use wait(), but it seems to have problems when applied to a process being controlled with the /proc interface. We have a race problem here with no obvious solution. We need to let the inferior run until it stops on an event of interest, which means that we need to use the PIOCWSTOP ioctl. However, we cannot use this ioctl if the process is already stopped on something that is not an event of interest, or the call will hang indefinitely. Thus we first use PIOCSTATUS to see if the process is not stopped. If not, then we use PIOCWSTOP. But during the window between the two, if the process stops for any reason that is not an event of interest (such as a job control signal) then gdb will hang. One possible workaround is to set an alarm to wake up every minute of so and check to see if the process is still running, and if so, then reissue the PIOCWSTOP. But this is a real kludge, so has not been implemented. FIXME: investigate alternatives. FIXME: Investigate why wait() seems to have problems with programs being control by /proc routines. */ static int procfs_wait (pid, ourstatus) int pid; struct target_waitstatus *ourstatus; { short what; short why; int statval = 0; int checkerr = 0; int rtnval = -1; struct procinfo *pi; if (pid != -1) /* Non-specific process? */ pi = NULL; else for (pi = procinfo_list; pi; pi = pi->next) if (pi->had_event) break; if (!pi) { wait_again: pi = wait_fd (); } if (pid != -1) for (pi = procinfo_list; pi; pi = pi->next) if (pi->pid == pid && pi->had_event) break; if (!pi && !checkerr) goto wait_again; if (!checkerr && !(pi->prstatus.pr_flags & (PR_STOPPED | PR_ISTOP))) { if (ioctl (pi->fd, PIOCWSTOP, &pi->prstatus) < 0) { checkerr++; } } if (checkerr) { if (errno == ENOENT) { rtnval = wait (&statval); if (rtnval != inferior_pid) { print_sys_errmsg (pi->pathname, errno); error ("PIOCWSTOP, wait failed, returned %d", rtnval); /* NOTREACHED */ } } else { print_sys_errmsg (pi->pathname, errno); error ("PIOCSTATUS or PIOCWSTOP failed."); /* NOTREACHED */ } } else if (pi->prstatus.pr_flags & (PR_STOPPED | PR_ISTOP)) { rtnval = pi->prstatus.pr_pid; why = pi->prstatus.pr_why; what = pi->prstatus.pr_what; switch (why) { case PR_SIGNALLED: statval = (what << 8) | 0177; break; case PR_SYSENTRY: if (what != SYS_exit) error ("PR_SYSENTRY, unknown system call %d", what); pi->prrun.pr_flags = PRCFAULT; if (ioctl (pi->fd, PIOCRUN, &pi->prrun) != 0) perror_with_name (pi->pathname); rtnval = wait (&statval); break; case PR_SYSEXIT: switch (what) { #ifdef SYS_exec case SYS_exec: #endif #ifdef SYS_execve case SYS_execve: #endif #ifdef SYS_execv case SYS_execv: #endif statval = (SIGTRAP << 8) | 0177; break; #ifdef SYS_sproc case SYS_sproc: /* We've just detected the completion of an sproc system call. Now we need to setup a procinfo struct for this thread, and notify the thread system of the new arrival. */ /* If sproc failed, then nothing interesting happened. Continue the process and go back to sleep. */ if (pi->prstatus.pr_errno != 0) { pi->prrun.pr_flags &= PRSTEP; pi->prrun.pr_flags |= PRCFAULT; if (ioctl (pi->fd, PIOCRUN, &pi->prrun) != 0) perror_with_name (pi->pathname); goto wait_again; } /* At this point, the new thread is stopped at it's first instruction, and the parent is stopped at the exit from sproc. */ /* Notify the caller of the arrival of a new thread. */ create_procinfo (pi->prstatus.pr_rval1); rtnval = pi->prstatus.pr_rval1; statval = (SIGTRAP << 8) | 0177; break; case SYS_fork: #ifdef SYS_vfork case SYS_vfork: #endif /* At this point, we've detected the completion of a fork (or vfork) call in our child. The grandchild is also stopped because we set inherit-on-fork earlier. (Note that nobody has the grandchilds' /proc file open at this point.) We will release the grandchild from the debugger by opening it's /proc file and then closing it. Since run-on-last-close is set, the grandchild continues on its' merry way. */ { struct procinfo *pitemp; pitemp = create_procinfo (pi->prstatus.pr_rval1); if (pitemp) close_proc_file (pitemp); if (ioctl (pi->fd, PIOCRUN, &pi->prrun) != 0) perror_with_name (pi->pathname); } goto wait_again; #endif /* SYS_sproc */ default: error ("PIOCSTATUS (PR_SYSEXIT): Unknown system call %d", what); } break; case PR_REQUESTED: statval = (SIGSTOP << 8) | 0177; break; case PR_JOBCONTROL: statval = (what << 8) | 0177; break; case PR_FAULTED: switch (what) { #ifdef FLTWATCH case FLTWATCH: statval = (SIGTRAP << 8) | 0177; break; #endif #ifdef FLTKWATCH case FLTKWATCH: statval = (SIGTRAP << 8) | 0177; break; #endif #ifndef FAULTED_USE_SIGINFO /* Irix, contrary to the documentation, fills in 0 for si_signo. Solaris fills in si_signo. I'm not sure about others. */ case FLTPRIV: case FLTILL: statval = (SIGILL << 8) | 0177; break; case FLTBPT: case FLTTRACE: statval = (SIGTRAP << 8) | 0177; break; case FLTSTACK: case FLTACCESS: case FLTBOUNDS: statval = (SIGSEGV << 8) | 0177; break; case FLTIOVF: case FLTIZDIV: case FLTFPE: statval = (SIGFPE << 8) | 0177; break; case FLTPAGE: /* Recoverable page fault */ #endif /* not FAULTED_USE_SIGINFO */ default: /* Use the signal which the kernel assigns. This is better than trying to second-guess it from the fault. In fact, I suspect that FLTACCESS can be either SIGSEGV or SIGBUS. */ statval = ((pi->prstatus.pr_info.si_signo) << 8) | 0177; break; } break; default: error ("PIOCWSTOP, unknown why %d, what %d", why, what); } /* Stop all the other threads when any of them stops. */ { struct procinfo *procinfo; for (procinfo = procinfo_list; procinfo; procinfo = procinfo->next) { if (!procinfo->had_event) if (ioctl (procinfo->fd, PIOCSTOP, &procinfo->prstatus) < 0) { print_sys_errmsg (procinfo->pathname, errno); error ("PIOCSTOP failed"); } } } } else { error ("PIOCWSTOP, stopped for unknown/unhandled reason, flags %#x", pi->prstatus.pr_flags); } store_waitstatus (ourstatus, statval); if (rtnval == -1) /* No more children to wait for */ { fprintf_unfiltered (gdb_stderr, "Child process unexpectedly missing.\n"); /* Claim it exited with unknown signal. */ ourstatus->kind = TARGET_WAITKIND_SIGNALLED; ourstatus->value.sig = TARGET_SIGNAL_UNKNOWN; return rtnval; } pi->had_event = 0; /* Indicate that we've seen this one */ return (rtnval); } /* LOCAL FUNCTION set_proc_siginfo - set a process's current signal info SYNOPSIS void set_proc_siginfo (struct procinfo *pip, int signo); DESCRIPTION Given a pointer to a process info struct in PIP and a signal number in SIGNO, set the process's current signal and its associated signal information. The signal will be delivered to the process immediately after execution is resumed, even if it is being held. In addition, this particular delivery will not cause another PR_SIGNALLED stop even if the signal is being traced. If we are not delivering the same signal that the prstatus siginfo struct contains information about, then synthesize a siginfo struct to match the signal we are doing to deliver, make it of the type "generated by a user process", and send this synthesized copy. When used to set the inferior's signal state, this will be required if we are not currently stopped because of a traced signal, or if we decide to continue with a different signal. Note that when continuing the inferior from a stop due to receipt of a traced signal, we either have set PRCSIG to clear the existing signal, or we have to call this function to do a PIOCSSIG with either the existing siginfo struct from pr_info, or one we have synthesized appropriately for the signal we want to deliver. Otherwise if the signal is still being traced, the inferior will immediately stop again. See siginfo(5) for more details. */ static void set_proc_siginfo (pip, signo) struct procinfo *pip; int signo; { struct siginfo newsiginfo; struct siginfo *sip; if (signo == pip -> prstatus.pr_info.si_signo) { sip = &pip -> prstatus.pr_info; } else { memset ((char *) &newsiginfo, 0, sizeof (newsiginfo)); sip = &newsiginfo; sip -> si_signo = signo; sip -> si_code = 0; sip -> si_errno = 0; sip -> si_pid = getpid (); sip -> si_uid = getuid (); } if (ioctl (pip -> fd, PIOCSSIG, sip) < 0) { print_sys_errmsg (pip -> pathname, errno); warning ("PIOCSSIG failed"); } } /* Resume execution of process PID. If STEP is nozero, then just single step it. If SIGNAL is nonzero, restart it with that signal activated. */ static void procfs_resume (pid, step, signo) int pid; int step; enum target_signal signo; { int signal_to_pass; struct procinfo *pi, *procinfo; pi = find_procinfo (pid == -1 ? inferior_pid : pid, 0); errno = 0; pi->prrun.pr_flags = PRSTRACE | PRSFAULT | PRCFAULT; #if 0 /* It should not be necessary. If the user explicitly changes the value, value_assign calls write_register_bytes, which writes it. */ /* It may not be absolutely necessary to specify the PC value for restarting, but to be safe we use the value that gdb considers to be current. One case where this might be necessary is if the user explicitly changes the PC value that gdb considers to be current. FIXME: Investigate if this is necessary or not. */ #ifdef PRSVADDR_BROKEN /* Can't do this under Solaris running on a Sparc, as there seems to be no place to put nPC. In fact, if you use this, nPC seems to be set to some random garbage. We have to rely on the fact that PC and nPC have been written previously via PIOCSREG during a register flush. */ pi->prrun.pr_vaddr = (caddr_t) *(int *) ®isters[REGISTER_BYTE (PC_REGNUM)]; pi->prrun.pr_flags != PRSVADDR; #endif #endif if (signo == TARGET_SIGNAL_STOP && pi->nopass_next_sigstop) /* When attaching to a child process, if we forced it to stop with a PIOCSTOP, then we will have set the nopass_next_sigstop flag. Upon resuming the first time after such a stop, we explicitly inhibit sending it another SIGSTOP, which would be the normal result of default signal handling. One potential drawback to this is that we will also ignore any attempt to by the user to explicitly continue after the attach with a SIGSTOP. Ultimately this problem should be dealt with by making the routines that deal with the inferior a little smarter, and possibly even allow an inferior to continue running at the same time as gdb. (FIXME?) */ signal_to_pass = 0; else if (signo == TARGET_SIGNAL_TSTP && pi->prstatus.pr_cursig == SIGTSTP && pi->prstatus.pr_action.sa_handler == SIG_DFL) /* We are about to pass the inferior a SIGTSTP whose action is SIG_DFL. The SIG_DFL action for a SIGTSTP is to stop (notifying the parent via wait()), and then keep going from the same place when the parent is ready for you to keep going. So under the debugger, it should do nothing (as if the program had been stopped and then later resumed. Under ptrace, this happens for us, but under /proc, the system obligingly stops the process, and wait_for_inferior would have no way of distinguishing that type of stop (which indicates that we should just start it again), with a stop due to the pr_trace field of the prrun_t struct. Note that if the SIGTSTP is being caught, we *do* need to pass it, because the handler needs to get executed. */ signal_to_pass = 0; else signal_to_pass = target_signal_to_host (signo); if (signal_to_pass) { set_proc_siginfo (pi, signal_to_pass); } else { pi->prrun.pr_flags |= PRCSIG; } pi->nopass_next_sigstop = 0; if (step) { pi->prrun.pr_flags |= PRSTEP; } if (ioctl (pi->fd, PIOCRUN, &pi->prrun) != 0) { perror_with_name (pi->pathname); /* NOTREACHED */ } pi->had_event = 0; /* Continue all the other threads that haven't had an event of interest. */ if (pid == -1) for (procinfo = procinfo_list; procinfo; procinfo = procinfo->next) { if (pi != procinfo && !procinfo->had_event) { procinfo->prrun.pr_flags &= PRSTEP; procinfo->prrun.pr_flags |= PRCFAULT | PRCSIG; ioctl (procinfo->fd, PIOCSTATUS, &procinfo->prstatus); if (ioctl (procinfo->fd, PIOCRUN, &procinfo->prrun) < 0) { if (ioctl (procinfo->fd, PIOCSTATUS, &procinfo->prstatus) < 0) { fprintf_unfiltered(gdb_stderr, "PIOCSTATUS failed, errno=%d\n", errno); } print_sys_errmsg (procinfo->pathname, errno); error ("PIOCRUN failed"); } ioctl (procinfo->fd, PIOCSTATUS, &procinfo->prstatus); } } } /* LOCAL FUNCTION procfs_fetch_registers -- fetch current registers from inferior SYNOPSIS void procfs_fetch_registers (int regno) DESCRIPTION Read the current values of the inferior's registers, both the general register set and floating point registers (if supported) and update gdb's idea of their current values. */ static void procfs_fetch_registers (regno) int regno; { struct procinfo *pi; pi = current_procinfo; if (ioctl (pi->fd, PIOCGREG, &pi->gregset) != -1) { supply_gregset (&pi->gregset); } #if defined (FP0_REGNUM) if (ioctl (pi->fd, PIOCGFPREG, &pi->fpregset) != -1) { supply_fpregset (&pi->fpregset); } #endif } /* LOCAL FUNCTION proc_init_failed - called whenever /proc access initialization fails SYNOPSIS static void proc_init_failed (struct procinfo *pi, char *why) DESCRIPTION This function is called whenever initialization of access to a /proc entry fails. It prints a suitable error message, does some cleanup, and then invokes the standard error processing routine which dumps us back into the command loop. */ static void proc_init_failed (pi, why) struct procinfo *pi; char *why; { print_sys_errmsg (pi->pathname, errno); kill (pi->pid, SIGKILL); close_proc_file (pi); error (why); /* NOTREACHED */ } /* LOCAL FUNCTION close_proc_file - close any currently open /proc entry SYNOPSIS static void close_proc_file (struct procinfo *pip) DESCRIPTION Close any currently open /proc entry and mark the process information entry as invalid. In order to ensure that we don't try to reuse any stale information, the pid, fd, and pathnames are explicitly invalidated, which may be overkill. */ static void close_proc_file (pip) struct procinfo *pip; { struct procinfo *procinfo; remove_fd (pip); /* Remove fd from poll/select list */ close (pip -> fd); free (pip -> pathname); /* Unlink pip from the procinfo chain. Note pip might not be on the list. */ if (procinfo_list == pip) procinfo_list = pip->next; else for (procinfo = procinfo_list; procinfo; procinfo = procinfo->next) if (procinfo->next == pip) procinfo->next = pip->next; free (pip); } /* LOCAL FUNCTION open_proc_file - open a /proc entry for a given process id SYNOPSIS static int open_proc_file (int pid, struct procinfo *pip, int mode) DESCRIPTION Given a process id and a mode, close the existing open /proc entry (if any) and open one for the new process id, in the specified mode. Once it is open, then mark the local process information structure as valid, which guarantees that the pid, fd, and pathname fields match an open /proc entry. Returns zero if the open fails, nonzero otherwise. Note that the pathname is left intact, even when the open fails, so that callers can use it to construct meaningful error messages rather than just "file open failed". */ static int open_proc_file (pid, pip, mode) int pid; struct procinfo *pip; int mode; { pip -> next = NULL; pip -> had_event = 0; pip -> pathname = xmalloc (32); pip -> pid = pid; sprintf (pip -> pathname, PROC_NAME_FMT, pid); if ((pip -> fd = open (pip -> pathname, mode)) < 0) return 0; return 1; } static char * mappingflags (flags) long flags; { static char asciiflags[8]; strcpy (asciiflags, "-------"); #if defined (MA_PHYS) if (flags & MA_PHYS) asciiflags[0] = 'd'; #endif if (flags & MA_STACK) asciiflags[1] = 's'; if (flags & MA_BREAK) asciiflags[2] = 'b'; if (flags & MA_SHARED) asciiflags[3] = 's'; if (flags & MA_READ) asciiflags[4] = 'r'; if (flags & MA_WRITE) asciiflags[5] = 'w'; if (flags & MA_EXEC) asciiflags[6] = 'x'; return (asciiflags); } static void info_proc_flags (pip, summary) struct procinfo *pip; int summary; { struct trans *transp; printf_filtered ("%-32s", "Process status flags:"); if (!summary) { printf_filtered ("\n\n"); } for (transp = pr_flag_table; transp -> name != NULL; transp++) { if (pip -> prstatus.pr_flags & transp -> value) { if (summary) { printf_filtered ("%s ", transp -> name); } else { printf_filtered ("\t%-16s %s.\n", transp -> name, transp -> desc); } } } printf_filtered ("\n"); } static void info_proc_stop (pip, summary) struct procinfo *pip; int summary; { struct trans *transp; int why; int what; why = pip -> prstatus.pr_why; what = pip -> prstatus.pr_what; if (pip -> prstatus.pr_flags & PR_STOPPED) { printf_filtered ("%-32s", "Reason for stopping:"); if (!summary) { printf_filtered ("\n\n"); } for (transp = pr_why_table; transp -> name != NULL; transp++) { if (why == transp -> value) { if (summary) { printf_filtered ("%s ", transp -> name); } else { printf_filtered ("\t%-16s %s.\n", transp -> name, transp -> desc); } break; } } /* Use the pr_why field to determine what the pr_what field means, and print more information. */ switch (why) { case PR_REQUESTED: /* pr_what is unused for this case */ break; case PR_JOBCONTROL: case PR_SIGNALLED: if (summary) { printf_filtered ("%s ", signalname (what)); } else { printf_filtered ("\t%-16s %s.\n", signalname (what), safe_strsignal (what)); } break; case PR_SYSENTRY: if (summary) { printf_filtered ("%s ", syscallname (what)); } else { printf_filtered ("\t%-16s %s.\n", syscallname (what), "Entered this system call"); } break; case PR_SYSEXIT: if (summary) { printf_filtered ("%s ", syscallname (what)); } else { printf_filtered ("\t%-16s %s.\n", syscallname (what), "Returned from this system call"); } break; case PR_FAULTED: if (summary) { printf_filtered ("%s ", lookupname (faults_table, what, "fault")); } else { printf_filtered ("\t%-16s %s.\n", lookupname (faults_table, what, "fault"), lookupdesc (faults_table, what)); } break; } printf_filtered ("\n"); } } static void info_proc_siginfo (pip, summary) struct procinfo *pip; int summary; { struct siginfo *sip; if ((pip -> prstatus.pr_flags & PR_STOPPED) && (pip -> prstatus.pr_why == PR_SIGNALLED || pip -> prstatus.pr_why == PR_FAULTED)) { printf_filtered ("%-32s", "Additional signal/fault info:"); sip = &pip -> prstatus.pr_info; if (summary) { printf_filtered ("%s ", signalname (sip -> si_signo)); if (sip -> si_errno > 0) { printf_filtered ("%s ", errnoname (sip -> si_errno)); } if (sip -> si_code <= 0) { printf_filtered ("sent by %s, uid %d ", target_pid_to_str (sip -> si_pid), sip -> si_uid); } else { printf_filtered ("%s ", sigcodename (sip)); if ((sip -> si_signo == SIGILL) || (sip -> si_signo == SIGFPE) || (sip -> si_signo == SIGSEGV) || (sip -> si_signo == SIGBUS)) { printf_filtered ("addr=%#x ", sip -> si_addr); } else if ((sip -> si_signo == SIGCHLD)) { printf_filtered ("child %s, status %u ", target_pid_to_str (sip -> si_pid), sip -> si_status); } else if ((sip -> si_signo == SIGPOLL)) { printf_filtered ("band %u ", sip -> si_band); } } } else { printf_filtered ("\n\n"); printf_filtered ("\t%-16s %s.\n", signalname (sip -> si_signo), safe_strsignal (sip -> si_signo)); if (sip -> si_errno > 0) { printf_filtered ("\t%-16s %s.\n", errnoname (sip -> si_errno), safe_strerror (sip -> si_errno)); } if (sip -> si_code <= 0) { printf_filtered ("\t%-16u %s\n", sip -> si_pid, /* XXX need target_pid_to_str() */ "PID of process sending signal"); printf_filtered ("\t%-16u %s\n", sip -> si_uid, "UID of process sending signal"); } else { printf_filtered ("\t%-16s %s.\n", sigcodename (sip), sigcodedesc (sip)); if ((sip -> si_signo == SIGILL) || (sip -> si_signo == SIGFPE)) { printf_filtered ("\t%-16#x %s.\n", sip -> si_addr, "Address of faulting instruction"); } else if ((sip -> si_signo == SIGSEGV) || (sip -> si_signo == SIGBUS)) { printf_filtered ("\t%-16#x %s.\n", sip -> si_addr, "Address of faulting memory reference"); } else if ((sip -> si_signo == SIGCHLD)) { printf_filtered ("\t%-16u %s.\n", sip -> si_pid, /* XXX need target_pid_to_str() */ "Child process ID"); printf_filtered ("\t%-16u %s.\n", sip -> si_status, "Child process exit value or signal"); } else if ((sip -> si_signo == SIGPOLL)) { printf_filtered ("\t%-16u %s.\n", sip -> si_band, "Band event for POLL_{IN,OUT,MSG}"); } } } printf_filtered ("\n"); } } static void info_proc_syscalls (pip, summary) struct procinfo *pip; int summary; { int syscallnum; if (!summary) { #if 0 /* FIXME: Needs to use gdb-wide configured info about system calls. */ if (pip -> prstatus.pr_flags & PR_ASLEEP) { int syscallnum = pip -> prstatus.pr_reg[R_D0]; if (summary) { printf_filtered ("%-32s", "Sleeping in system call:"); printf_filtered ("%s", syscallname (syscallnum)); } else { printf_filtered ("Sleeping in system call '%s'.\n", syscallname (syscallnum)); } } #endif if (ioctl (pip -> fd, PIOCGENTRY, &pip -> entryset) < 0) { print_sys_errmsg (pip -> pathname, errno); error ("PIOCGENTRY failed"); } if (ioctl (pip -> fd, PIOCGEXIT, &pip -> exitset) < 0) { print_sys_errmsg (pip -> pathname, errno); error ("PIOCGEXIT failed"); } printf_filtered ("System call tracing information:\n\n"); printf_filtered ("\t%-12s %-8s %-8s\n", "System call", "Entry", "Exit"); for (syscallnum = 0; syscallnum < MAX_SYSCALLS; syscallnum++) { QUIT; if (syscall_table[syscallnum] != NULL) { printf_filtered ("\t%-12s ", syscall_table[syscallnum]); printf_filtered ("%-8s ", prismember (&pip -> entryset, syscallnum) ? "on" : "off"); printf_filtered ("%-8s ", prismember (&pip -> exitset, syscallnum) ? "on" : "off"); printf_filtered ("\n"); } } printf_filtered ("\n"); } } static char * signalname (signo) int signo; { char *name; static char locbuf[32]; name = strsigno (signo); if (name == NULL) { sprintf (locbuf, "Signal %d", signo); } else { sprintf (locbuf, "%s (%d)", name, signo); } return (locbuf); } static char * errnoname (errnum) int errnum; { char *name; static char locbuf[32]; name = strerrno (errnum); if (name == NULL) { sprintf (locbuf, "Errno %d", errnum); } else { sprintf (locbuf, "%s (%d)", name, errnum); } return (locbuf); } static void info_proc_signals (pip, summary) struct procinfo *pip; int summary; { int signo; if (!summary) { if (ioctl (pip -> fd, PIOCGTRACE, &pip -> trace) < 0) { print_sys_errmsg (pip -> pathname, errno); error ("PIOCGTRACE failed"); } printf_filtered ("Disposition of signals:\n\n"); printf_filtered ("\t%-15s %-8s %-8s %-8s %s\n\n", "Signal", "Trace", "Hold", "Pending", "Description"); for (signo = 0; signo < NSIG; signo++) { QUIT; printf_filtered ("\t%-15s ", signalname (signo)); printf_filtered ("%-8s ", prismember (&pip -> trace, signo) ? "on" : "off"); printf_filtered ("%-8s ", prismember (&pip -> prstatus.pr_sighold, signo) ? "on" : "off"); printf_filtered ("%-8s ", prismember (&pip -> prstatus.pr_sigpend, signo) ? "yes" : "no"); printf_filtered (" %s\n", safe_strsignal (signo)); } printf_filtered ("\n"); } } static void info_proc_faults (pip, summary) struct procinfo *pip; int summary; { struct trans *transp; if (!summary) { if (ioctl (pip -> fd, PIOCGFAULT, &pip -> fltset) < 0) { print_sys_errmsg (pip -> pathname, errno); error ("PIOCGFAULT failed"); } printf_filtered ("Current traced hardware fault set:\n\n"); printf_filtered ("\t%-12s %-8s\n", "Fault", "Trace"); for (transp = faults_table; transp -> name != NULL; transp++) { QUIT; printf_filtered ("\t%-12s ", transp -> name); printf_filtered ("%-8s", prismember (&pip -> fltset, transp -> value) ? "on" : "off"); printf_filtered ("\n"); } printf_filtered ("\n"); } } static void info_proc_mappings (pip, summary) struct procinfo *pip; int summary; { int nmap; struct prmap *prmaps; struct prmap *prmap; if (!summary) { printf_filtered ("Mapped address spaces:\n\n"); printf_filtered ("\t%10s %10s %10s %10s %7s\n", "Start Addr", " End Addr", " Size", " Offset", "Flags"); if (ioctl (pip -> fd, PIOCNMAP, &nmap) == 0) { prmaps = (struct prmap *) alloca ((nmap + 1) * sizeof (*prmaps)); if (ioctl (pip -> fd, PIOCMAP, prmaps) == 0) { for (prmap = prmaps; prmap -> pr_size; ++prmap) { printf_filtered ("\t%#10x %#10x %#10x %#10x %7s\n", prmap -> pr_vaddr, prmap -> pr_vaddr + prmap -> pr_size - 1, prmap -> pr_size, prmap -> pr_off, mappingflags (prmap -> pr_mflags)); } } } printf_filtered ("\n"); } } /* LOCAL FUNCTION info_proc -- implement the "info proc" command SYNOPSIS void info_proc (char *args, int from_tty) DESCRIPTION Implement gdb's "info proc" command by using the /proc interface to print status information about any currently running process. Examples of the use of "info proc" are: info proc (prints summary info for current inferior) info proc 123 (prints summary info for process with pid 123) info proc mappings (prints address mappings) info proc times (prints process/children times) info proc id (prints pid, ppid, gid, sid, etc) FIXME: i proc id not implemented. info proc status (prints general process state info) FIXME: i proc status not implemented. info proc signals (prints info about signal handling) info proc all (prints all info) */ static void info_proc (args, from_tty) char *args; int from_tty; { int pid; struct procinfo *pip; struct cleanup *old_chain; char **argv; int argsize; int summary = 1; int flags = 0; int syscalls = 0; int signals = 0; int faults = 0; int mappings = 0; int times = 0; int id = 0; int status = 0; int all = 0; old_chain = make_cleanup (null_cleanup, 0); /* Default to using the current inferior if no pid specified. Note that inferior_pid may be 0, hence we set okerr. */ pip = find_procinfo (inferior_pid, 1); if (args != NULL) { if ((argv = buildargv (args)) == NULL) { nomem (0); } make_cleanup (freeargv, (char *) argv); while (*argv != NULL) { argsize = strlen (*argv); if (argsize >= 1 && strncmp (*argv, "all", argsize) == 0) { summary = 0; all = 1; } else if (argsize >= 2 && strncmp (*argv, "faults", argsize) == 0) { summary = 0; faults = 1; } else if (argsize >= 2 && strncmp (*argv, "flags", argsize) == 0) { summary = 0; flags = 1; } else if (argsize >= 1 && strncmp (*argv, "id", argsize) == 0) { summary = 0; id = 1; } else if (argsize >= 1 && strncmp (*argv, "mappings", argsize) == 0) { summary = 0; mappings = 1; } else if (argsize >= 2 && strncmp (*argv, "signals", argsize) == 0) { summary = 0; signals = 1; } else if (argsize >= 2 && strncmp (*argv, "status", argsize) == 0) { summary = 0; status = 1; } else if (argsize >= 2 && strncmp (*argv, "syscalls", argsize) == 0) { summary = 0; syscalls = 1; } else if (argsize >= 1 && strncmp (*argv, "times", argsize) == 0) { summary = 0; times = 1; } else if ((pid = atoi (*argv)) > 0) { pip = (struct procinfo *) xmalloc (sizeof (struct procinfo)); memset (pip, 0, sizeof (*pip)); pip->pid = pid; if (!open_proc_file (pid, pip, O_RDONLY)) { perror_with_name (pip -> pathname); /* NOTREACHED */ } make_cleanup (close_proc_file, pip); } else if (**argv != '\000') { error ("Unrecognized or ambiguous keyword `%s'.", *argv); } argv++; } } /* If we don't have a valid open process at this point, then we have no inferior or didn't specify a specific pid. */ if (!pip) { error ("\ No process. Start debugging a program or specify an explicit process ID."); } if (ioctl (pip -> fd, PIOCSTATUS, &(pip -> prstatus)) < 0) { print_sys_errmsg (pip -> pathname, errno); error ("PIOCSTATUS failed"); } /* Print verbose information of the requested type(s), or just a summary of the information for all types. */ printf_filtered ("\nInformation for %s:\n\n", pip -> pathname); if (summary || all || flags) { info_proc_flags (pip, summary); } if (summary || all) { info_proc_stop (pip, summary); } if (summary || all || signals || faults) { info_proc_siginfo (pip, summary); } if (summary || all || syscalls) { info_proc_syscalls (pip, summary); } if (summary || all || mappings) { info_proc_mappings (pip, summary); } if (summary || all || signals) { info_proc_signals (pip, summary); } if (summary || all || faults) { info_proc_faults (pip, summary); } printf_filtered ("\n"); /* All done, deal with closing any temporary process info structure, freeing temporary memory , etc. */ do_cleanups (old_chain); } /* LOCAL FUNCTION procfs_set_sproc_trap -- arrange for child to stop on sproc(). SYNOPSIS void procfs_set_sproc_trap (struct procinfo *) DESCRIPTION This function sets up a trap on sproc system call exits so that we can detect the arrival of a new thread. We are called with the new thread stopped prior to it's first instruction. Also note that we turn on the inherit-on-fork flag in the child process so that any grand-children start with all tracing flags set. */ #ifdef SYS_sproc static void procfs_set_sproc_trap (pi) struct procinfo *pi; { sysset_t exitset; if (ioctl (pi->fd, PIOCGEXIT, &exitset) < 0) { print_sys_errmsg (pi->pathname, errno); error ("PIOCGEXIT failed"); } praddset (&exitset, SYS_sproc); /* We trap on fork() and vfork() in order to disable debugging in our grand- children and descendant processes. At this time, GDB can only handle threads (multiple processes, one address space). forks (and execs) result in the creation of multiple address spaces, which GDB can't handle yet. */ praddset (&exitset, SYS_fork); #ifdef SYS_vfork praddset (&exitset, SYS_vfork); #endif if (ioctl (pi->fd, PIOCSEXIT, &exitset) < 0) { print_sys_errmsg (pi->pathname, errno); error ("PIOCSEXIT failed"); } /* Turn on inherit-on-fork flag so that all grand-children of gdb start with tracing flags set. */ #ifdef PIOCSET /* New method */ { long pr_flags; pr_flags = PR_FORK; ioctl (pi->fd, PIOCSET, &pr_flags); } #else #ifdef PIOCSFORK /* Original method */ ioctl (pi->fd, PIOCSFORK, NULL); #endif #endif } #endif /* SYS_sproc */ /* Fork an inferior process, and start debugging it with /proc. */ static void procfs_create_inferior (exec_file, allargs, env) char *exec_file; char *allargs; char **env; { char *shell_file = getenv ("SHELL"); char *tryname; if (shell_file != NULL && strchr (shell_file, '/') == NULL) { /* We will be looking down the PATH to find shell_file. If we just do this the normal way (via execlp, which operates by attempting an exec for each element of the PATH until it finds one which succeeds), then there will be an exec for each failed attempt, each of which will cause a PR_SYSEXIT stop, and we won't know how to distinguish the PR_SYSEXIT's for these failed execs with the ones for successful execs (whether the exec has succeeded is stored at that time in the carry bit or some such architecture-specific and non-ABI-specified place). So I can't think of anything better than to search the PATH now. This has several disadvantages: (1) There is a race condition; if we find a file now and it is deleted before we exec it, we lose, even if the deletion leaves a valid file further down in the PATH, (2) there is no way to know exactly what an executable (in the sense of "capable of being exec'd") file is. Using access() loses because it may lose if the caller is the superuser; failing to use it loses if there are ACLs or some such. */ char *p; char *p1; /* FIXME-maybe: might want "set path" command so user can change what path is used from within GDB. */ char *path = getenv ("PATH"); int len; struct stat statbuf; if (path == NULL) path = "/bin:/usr/bin"; tryname = alloca (strlen (path) + strlen (shell_file) + 2); for (p = path; p != NULL; p = p1 ? p1 + 1: NULL) { p1 = strchr (p, ':'); if (p1 != NULL) len = p1 - p; else len = strlen (p); strncpy (tryname, p, len); tryname[len] = '\0'; strcat (tryname, "/"); strcat (tryname, shell_file); if (access (tryname, X_OK) < 0) continue; if (stat (tryname, &statbuf) < 0) continue; if (!S_ISREG (statbuf.st_mode)) /* We certainly need to reject directories. I'm not quite as sure about FIFOs, sockets, etc., but I kind of doubt that people want to exec() these things. */ continue; break; } if (p == NULL) /* Not found. This must be an error rather than merely passing the file to execlp(), because execlp() would try all the exec()s, causing GDB to get confused. */ error ("Can't find shell %s in PATH", shell_file); shell_file = tryname; } fork_inferior (exec_file, allargs, env, proc_set_exec_trap, procfs_init_inferior, shell_file); /* We are at the first instruction we care about. */ /* Pedal to the metal... */ /* Setup traps on exit from sproc() */ #ifdef SYS_sproc procfs_set_sproc_trap (current_procinfo); #endif proceed ((CORE_ADDR) -1, TARGET_SIGNAL_0, 0); } /* Clean up after the inferior dies. */ static void procfs_mourn_inferior () { struct procinfo *pi; for (pi = procinfo_list; pi; pi = pi->next) unconditionally_kill_inferior (pi); unpush_target (&procfs_ops); generic_mourn_inferior (); } /* Mark our target-struct as eligible for stray "run" and "attach" commands. */ static int procfs_can_run () { return(1); } #ifdef TARGET_CAN_USE_HARDWARE_WATCHPOINT /* Insert a watchpoint */ int procfs_set_watchpoint(pid, addr, len, rw) int pid; CORE_ADDR addr; int len; int rw; { struct procinfo *pi; prwatch_t wpt; pi = find_procinfo (pid == -1 ? inferior_pid : pid, 0); wpt.pr_vaddr = (caddr_t)addr; wpt.pr_size = len; wpt.pr_wflags = ((rw & 1) ? MA_READ : 0) | ((rw & 2) ? MA_WRITE : 0); if (ioctl (pi->fd, PIOCSWATCH, &wpt) < 0) { if (errno == E2BIG) return -1; /* Currently it sometimes happens that the same watchpoint gets deleted twice - don't die in this case (FIXME please) */ if (errno == ESRCH && len == 0) return 0; print_sys_errmsg (pi->pathname, errno); error ("PIOCSWATCH failed"); } return 0; } int procfs_stopped_by_watchpoint(pid) int pid; { struct procinfo *pi; short what; short why; pi = find_procinfo (pid == -1 ? inferior_pid : pid, 0); if (pi->prstatus.pr_flags & (PR_STOPPED | PR_ISTOP)) { why = pi->prstatus.pr_why; what = pi->prstatus.pr_what; if (why == PR_FAULTED #if defined (FLTWATCH) && defined (FLTKWATCH) && (what == FLTWATCH) || (what == FLTKWATCH) #else #ifdef FLTWATCH && (what == FLTWATCH) #endif #ifdef FLTKWATCH && (what == FLTKWATCH) #endif #endif ) return what; } return 0; } #endif struct target_ops procfs_ops = { "procfs", /* to_shortname */ "Unix /proc child process", /* to_longname */ "Unix /proc child process (started by the \"run\" command).", /* to_doc */ procfs_open, /* to_open */ 0, /* to_close */ procfs_attach, /* to_attach */ procfs_detach, /* to_detach */ procfs_resume, /* to_resume */ procfs_wait, /* to_wait */ procfs_fetch_registers, /* to_fetch_registers */ procfs_store_registers, /* to_store_registers */ procfs_prepare_to_store, /* to_prepare_to_store */ procfs_xfer_memory, /* to_xfer_memory */ procfs_files_info, /* to_files_info */ memory_insert_breakpoint, /* to_insert_breakpoint */ memory_remove_breakpoint, /* to_remove_breakpoint */ terminal_init_inferior, /* to_terminal_init */ terminal_inferior, /* to_terminal_inferior */ terminal_ours_for_output, /* to_terminal_ours_for_output */ terminal_ours, /* to_terminal_ours */ child_terminal_info, /* to_terminal_info */ procfs_kill_inferior, /* to_kill */ 0, /* to_load */ 0, /* to_lookup_symbol */ procfs_create_inferior, /* to_create_inferior */ procfs_mourn_inferior, /* to_mourn_inferior */ procfs_can_run, /* to_can_run */ procfs_notice_signals, /* to_notice_signals */ process_stratum, /* to_stratum */ 0, /* to_next */ 1, /* to_has_all_memory */ 1, /* to_has_memory */ 1, /* to_has_stack */ 1, /* to_has_registers */ 1, /* to_has_execution */ 0, /* sections */ 0, /* sections_end */ OPS_MAGIC /* to_magic */ }; void _initialize_procfs () { add_target (&procfs_ops); add_info ("proc", info_proc, "Show process status information using /proc entry.\n\ Specify process id or use current inferior by default.\n\ Specify keywords for detailed information; default is summary.\n\ Keywords are: `all', `faults', `flags', `id', `mappings', `signals',\n\ `status', `syscalls', and `times'.\n\ Unambiguous abbreviations may be used."); init_syscall_table (); } gdb-4.13/gdb/ptx4-nat.c 666 34562 1752 13024 5544677614 13156 0ustar fnfcygnus/* Native-dependent code for ptx 4.0 Copyright 1988, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "gdbcore.h" #include #include #include #include /* Given a pointer to a general register set in /proc format (gregset_t *), unpack the register contents and supply them as gdb's idea of the current register values. */ void supply_gregset (gregsetp) gregset_t *gregsetp; { supply_register(EAX_REGNUM, (char *)&(*gregsetp)[EAX]); supply_register(EDX_REGNUM, (char *)&(*gregsetp)[EDX]); supply_register(ECX_REGNUM, (char *)&(*gregsetp)[ECX]); supply_register(EBX_REGNUM, (char *)&(*gregsetp)[EBX]); supply_register(ESI_REGNUM, (char *)&(*gregsetp)[ESI]); supply_register(EDI_REGNUM, (char *)&(*gregsetp)[EDI]); supply_register(ESP_REGNUM, (char *)&(*gregsetp)[UESP]); supply_register(EBP_REGNUM, (char *)&(*gregsetp)[EBP]); supply_register(EIP_REGNUM, (char *)&(*gregsetp)[EIP]); supply_register(EFLAGS_REGNUM, (char *)&(*gregsetp)[EFL]); } void fill_gregset (gregsetp, regno) gregset_t *gregsetp; int regno; { int regi; extern char registers[]; for (regi = 0 ; regi < NUM_REGS ; regi++) { if ((regno == -1) || (regno == regi)) { (*gregsetp)[regi] = *(greg_t *)®isters[REGISTER_BYTE (regi)]; } } } #if defined (FP0_REGNUM) /* Given a pointer to a floating point register set in /proc format (fpregset_t *), unpack the register contents and supply them as gdb's idea of the current floating point register values. */ void supply_fpregset (fpregsetp) fpregset_t *fpregsetp; { supply_fpu_registers((struct fpusave *)&fpregsetp->fp_reg_set); supply_fpa_registers((struct fpasave *)&fpregsetp->f_wregs); } /* Given a pointer to a floating point register set in /proc format (fpregset_t *), update the register specified by REGNO from gdb's idea of the current floating point register set. If REGNO is -1, update them all. */ void fill_fpregset (fpregsetp, regno) fpregset_t *fpregsetp; int regno; { int regi; char *to; char *from; extern char registers[]; /* FIXME: see m68k-tdep.c for an example, for the m68k. */ } #endif /* defined (FP0_REGNUM) */ /* * This doesn't quite do the same thing as the procfs.c version, but give * it the same name so we don't have to put an ifdef in solib.c. */ /* this could use elf_interpreter() from elfread.c */ int proc_iterate_over_mappings(func) int (*func) PARAMS ((int, CORE_ADDR)); { vaddr_t curseg, memptr; pt_vseg_t pv; int rv, cmperr; sec_ptr interp_sec; char *interp_content; int interp_fd, funcstat; unsigned int size; char buf1[NBPG], buf2[NBPG]; /* * The following is really vile. We can get the name of the * shared library from the exec_bfd, and we can get a list of * each virtual memory segment, but there is no simple way to * find the mapped segment from the shared library (ala * procfs's PIOCOPENMEM). As a pretty nasty kludge, we * compare the virtual memory segment to the contents of the * .interp file. If they match, we assume that we've got the * right one. */ /* * TODO: for attach, use XPT_OPENT to get the executable, in * case we're attached without knowning the executable's * filename. */ #ifdef VERBOSE_DEBUG printf("proc_iter\n"); #endif interp_sec = bfd_get_section_by_name(exec_bfd, ".interp"); if (!interp_sec) { return 0; } size = bfd_section_size(exec_bfd, interp_sec); interp_content = alloca(size); if (0 == bfd_get_section_contents(exec_bfd, interp_sec, interp_content, (file_ptr)0, size)) { return 0; } #ifdef VERBOSE_DEBUG printf("proc_iter: \"%s\"\n", interp_content); #endif interp_fd = open(interp_content, O_RDONLY, 0); if (-1 == interp_fd) { return 0; } curseg = 0; while (1) { rv = ptrace(PT_NEXT_VSEG, inferior_pid, &pv, curseg); #ifdef VERBOSE_DEBUG printf("PT_NEXT_VSEG: rv %d errno %d\n", rv, errno); #endif if (-1 == rv) break; if (0 == rv) break; #ifdef VERBOSE_DEBUG printf("pv.pv_start 0x%x pv_size 0x%x pv_prot 0x%x\n", pv.pv_start, pv.pv_size, pv.pv_prot); #endif curseg = pv.pv_start + pv.pv_size; rv = lseek(interp_fd, 0, SEEK_SET); if (-1 == rv) { perror("lseek"); close(interp_fd); return 0; } for (memptr = pv.pv_start; memptr < pv.pv_start + pv.pv_size; memptr += NBPG) { #ifdef VERBOSE_DEBUG printf("memptr 0x%x\n", memptr); #endif rv = read(interp_fd, buf1, NBPG); if (-1 == rv) { perror("read"); close(interp_fd); return 0; } rv = ptrace(PT_RDATA_PAGE, inferior_pid, buf2, memptr); if (-1 == rv) { perror("ptrace"); close(interp_fd); return 0; } cmperr = memcmp(buf1, buf2, NBPG); if (cmperr) break; } if (0 == cmperr) { /* this is it */ funcstat = (*func)(interp_fd, pv.pv_start); break; } } close(interp_fd); return 0; } gdb-4.13/gdb/pyr-pinsn.c 666 34562 1752 22547 5465305670 13440 0ustar fnfcygnus/* Print Pyramid Technology 90x instructions for GDB, the GNU Debugger. Copyright 1988, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB, the GNU debugger. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "opcode/pyr.h" #include "gdbcore.h" /* A couple of functions used for debugging frame-handling on Pyramids. (The Pyramid-dependent handling of register values for windowed registers is known to be buggy.) When debugging, these functions can supplant the normal definitions of some of the macros in tm-pyramid.h The quantity of information produced when these functions are used makes the gdb unusable as a debugger for user programs. */ extern unsigned pyr_saved_pc(), pyr_frame_chain(); CORE_ADDR pyr_frame_chain(frame) CORE_ADDR frame; { int foo=frame - CONTROL_STACK_FRAME_SIZE; /* printf_unfiltered ("...following chain from %x: got %x\n", frame, foo);*/ return foo; } CORE_ADDR pyr_saved_pc(frame) CORE_ADDR frame; { int foo=0; foo = read_memory_integer (((CORE_ADDR)(frame))+60, 4); printf_unfiltered ("..reading pc from frame 0x%0x+%d regs: got %0x\n", frame, 60/4, foo); return foo; } /* Pyramid instructions are never longer than this many bytes. */ #define MAXLEN 24 /* Number of elements in the opcode table. */ /*const*/ static int nopcodes = (sizeof (pyr_opcodes) / sizeof( pyr_opcodes[0])); #define NOPCODES (nopcodes) /* Let's be byte-independent so we can use this as a cross-assembler. */ #define NEXTLONG(p) \ (p += 4, (((((p[-4] << 8) + p[-3]) << 8) + p[-2]) << 8) + p[-1]) /* Print one instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; FILE *stream; { unsigned char buffer[MAXLEN]; register int i, nargs, insn_size =4; register unsigned char *p; register char *d; register int insn_opcode, operand_mode; register int index_multiplier, index_reg_regno, op_1_regno, op_2_regno ; long insn; /* first word of the insn, not broken down. */ pyr_insn_format insn_decode; /* the same, broken out into op{code,erands} */ long extra_1, extra_2; read_memory (memaddr, buffer, MAXLEN); insn_decode = *((pyr_insn_format *) buffer); insn = * ((int *) buffer); insn_opcode = insn_decode.operator; operand_mode = insn_decode.mode; index_multiplier = insn_decode.index_scale; index_reg_regno = insn_decode.index_reg; op_1_regno = insn_decode.operand_1; op_2_regno = insn_decode.operand_2; if (*((int *)buffer) == 0x0) { /* "halt" looks just like an invalid "jump" to the insn decoder, so is dealt with as a special case */ fprintf_unfiltered (stream, "halt"); return (4); } for (i = 0; i < NOPCODES; i++) if (pyr_opcodes[i].datum.code == insn_opcode) break; if (i == NOPCODES) /* FIXME: Handle unrecognised instructions better. */ fprintf_unfiltered (stream, "???\t#%08x\t(op=%x mode =%x)", insn, insn_decode.operator, insn_decode.mode); else { /* Print the mnemonic for the instruction. Pyramid insn operands are so regular that we can deal with almost all of them separately. Unconditional branches are an exception: they are encoded as conditional branches (branch if false condition, I think) with no condition specified. The average user will not be aware of this. To maintain their illusion that an unconditional branch insn exists, we will have to FIXME to treat the insn mnemnonic of all branch instructions here as a special case: check the operands of branch insn and print an appropriate mnemonic. */ fprintf_unfiltered (stream, "%s\t", pyr_opcodes[i].name); /* Print the operands of the insn (as specified in insn.operand_mode). Branch operands of branches are a special case: they are a word offset, not a byte offset. */ if (insn_decode.operator == 0x01 || insn_decode.operator == 0x02) { register int bit_codes=(insn >> 16)&0xf; register int i; register int displacement = (insn & 0x0000ffff) << 2; static char cc_bit_names[] = "cvzn"; /* z,n,c,v: strange order? */ /* Is bfc and no bits specified an unconditional branch?*/ for (i=0;i<4;i++) { if ((bit_codes) & 0x1) fputc_unfiltered (cc_bit_names[i], stream); bit_codes >>= 1; } fprintf_unfiltered (stream, ",%0x", displacement + memaddr); return (insn_size); } switch (operand_mode) { case 0: fprintf_unfiltered (stream, "%s,%s", reg_names [op_1_regno], reg_names [op_2_regno]); break; case 1: fprintf_unfiltered (stream, " 0x%0x,%s", op_1_regno, reg_names [op_2_regno]); break; case 2: read_memory (memaddr+4, buffer, MAXLEN); insn_size += 4; extra_1 = * ((int *) buffer); fprintf_unfiltered (stream, " $0x%0x,%s", extra_1, reg_names [op_2_regno]); break; case 3: fprintf_unfiltered (stream, " (%s),%s", reg_names [op_1_regno], reg_names [op_2_regno]); break; case 4: read_memory (memaddr+4, buffer, MAXLEN); insn_size += 4; extra_1 = * ((int *) buffer); fprintf_unfiltered (stream, " 0x%0x(%s),%s", extra_1, reg_names [op_1_regno], reg_names [op_2_regno]); break; /* S1 destination mode */ case 5: fprintf_unfiltered (stream, ((index_reg_regno) ? "%s,(%s)[%s*%1d]" : "%s,(%s)"), reg_names [op_1_regno], reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; case 6: fprintf_unfiltered (stream, ((index_reg_regno) ? " $%#0x,(%s)[%s*%1d]" : " $%#0x,(%s)"), op_1_regno, reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; case 7: read_memory (memaddr+4, buffer, MAXLEN); insn_size += 4; extra_1 = * ((int *) buffer); fprintf_unfiltered (stream, ((index_reg_regno) ? " $%#0x,(%s)[%s*%1d]" : " $%#0x,(%s)"), extra_1, reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; case 8: fprintf_unfiltered (stream, ((index_reg_regno) ? " (%s),(%s)[%s*%1d]" : " (%s),(%s)"), reg_names [op_1_regno], reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; case 9: read_memory (memaddr+4, buffer, MAXLEN); insn_size += 4; extra_1 = * ((int *) buffer); fprintf_unfiltered (stream, ((index_reg_regno) ? "%#0x(%s),(%s)[%s*%1d]" : "%#0x(%s),(%s)"), extra_1, reg_names [op_1_regno], reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; /* S2 destination mode */ case 10: read_memory (memaddr+4, buffer, MAXLEN); insn_size += 4; extra_1 = * ((int *) buffer); fprintf_unfiltered (stream, ((index_reg_regno) ? "%s,%#0x(%s)[%s*%1d]" : "%s,%#0x(%s)"), reg_names [op_1_regno], extra_1, reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; case 11: read_memory (memaddr+4, buffer, MAXLEN); insn_size += 4; extra_1 = * ((int *) buffer); fprintf_unfiltered (stream, ((index_reg_regno) ? " $%#0x,%#0x(%s)[%s*%1d]" : " $%#0x,%#0x(%s)"), op_1_regno, extra_1, reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; case 12: read_memory (memaddr+4, buffer, MAXLEN); insn_size += 4; extra_1 = * ((int *) buffer); read_memory (memaddr+8, buffer, MAXLEN); insn_size += 4; extra_2 = * ((int *) buffer); fprintf_unfiltered (stream, ((index_reg_regno) ? " $%#0x,%#0x(%s)[%s*%1d]" : " $%#0x,%#0x(%s)"), extra_1, extra_2, reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; case 13: read_memory (memaddr+4, buffer, MAXLEN); insn_size += 4; extra_1 = * ((int *) buffer); fprintf_unfiltered (stream, ((index_reg_regno) ? " (%s),%#0x(%s)[%s*%1d]" : " (%s),%#0x(%s)"), reg_names [op_1_regno], extra_1, reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; case 14: read_memory (memaddr+4, buffer, MAXLEN); insn_size += 4; extra_1 = * ((int *) buffer); read_memory (memaddr+8, buffer, MAXLEN); insn_size += 4; extra_2 = * ((int *) buffer); fprintf_unfiltered (stream, ((index_reg_regno) ? "%#0x(%s),%#0x(%s)[%s*%1d]" : "%#0x(%s),%#0x(%s) "), extra_1, reg_names [op_1_regno], extra_2, reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); break; default: fprintf_unfiltered (stream, ((index_reg_regno) ? "%s,%s [%s*%1d]" : "%s,%s"), reg_names [op_1_regno], reg_names [op_2_regno], reg_names [index_reg_regno], index_multiplier); fprintf_unfiltered (stream, "\t\t# unknown mode in %08x", insn); break; } /* switch */ } { return insn_size; } abort (); } gdb-4.13/gdb/pyr-tdep.c 666 34562 1752 10532 5465305672 13236 0ustar fnfcygnus/* Pyramid target-dependent code for GDB. Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" /*** Prettier register printing. ***/ /* Print registers in the same format as pyramid's dbx, adb, sdb. */ pyr_print_registers(reg_buf, regnum) long *reg_buf[]; { register int regno; int usp, ksp; struct user u; for (regno = 0; regno < 16; regno++) { printf_unfiltered/*_filtered*/ ("%6.6s: %8x %6.6s: %8x %6s: %8x %6s: %8x\n", reg_names[regno], reg_buf[regno], reg_names[regno+16], reg_buf[regno+16], reg_names[regno+32], reg_buf[regno+32], reg_names[regno+48], reg_buf[regno+48]); } usp = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) ((char *)&u.u_pcb.pcb_usp) - ((char *)&u), 0); ksp = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) ((char *)&u.u_pcb.pcb_ksp) - ((char *)&u), 0); printf_unfiltered/*_filtered*/ ("\n%6.6s: %8x %6.6s: %8x (%08x) %6.6s %8x\n", reg_names[CSP_REGNUM],reg_buf[CSP_REGNUM], reg_names[KSP_REGNUM], reg_buf[KSP_REGNUM], ksp, "usp", usp); } /* Print the register regnum, or all registers if regnum is -1. fpregs is currently ignored. */ pyr_do_registers_info (regnum, fpregs) int regnum; int fpregs; { /* On a pyr, we know a virtual register can always fit in an long. Here (and elsewhere) we take advantage of that. Yuk. */ long raw_regs[MAX_REGISTER_RAW_SIZE*NUM_REGS]; register int i; for (i = 0 ; i < 64 ; i++) { read_relative_register_raw_bytes(i, raw_regs+i); } if (regnum == -1) pyr_print_registers (raw_regs, regnum); else for (i = 0; i < NUM_REGS; i++) if (i == regnum) { long val = raw_regs[i]; fputs_filtered (reg_names[i], stdout); printf_filtered(":"); print_spaces_filtered (6 - strlen (reg_names[i]), stdout); if (val == 0) printf_filtered ("0"); else printf_filtered ("%s %d", local_hex_string_custom(val,"08"), val); printf_filtered("\n"); } } /*** Debugging editions of various macros from m-pyr.h ****/ CORE_ADDR frame_locals_address (frame) FRAME frame; { register int addr = find_saved_register (frame,CFP_REGNUM); register int result = read_memory_integer (addr, 4); #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING fprintf_unfiltered (stderr, "\t[[..frame_locals:%8x, %s= %x @%x fcfp= %x foo= %x\n\t gr13=%x pr13=%x tr13=%x @%x]]\n", frame->frame, reg_names[CFP_REGNUM], result, addr, frame->frame_cfp, (CFP_REGNUM), read_register(13), read_register(29), read_register(61), find_saved_register(frame, 61)); #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */ /* FIXME: I thought read_register (CFP_REGNUM) should be the right answer; or at least CFP_REGNUM relative to FRAME (ie, result). There seems to be a bug in the way the innermost frame is set up. */ return ((frame->next) ? result: frame->frame_cfp); } CORE_ADDR frame_args_addr (frame) FRAME frame; { register int addr = find_saved_register (frame,CFP_REGNUM); register int result = read_memory_integer (addr, 4); #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING fprintf_unfiltered (stderr, "\t[[..frame_args:%8x, %s= %x @%x fcfp= %x r_r= %x\n\t gr13=%x pr13=%x tr13=%x @%x]]\n", frame->frame, reg_names[CFP_REGNUM], result, addr, frame->frame_cfp, read_register(CFP_REGNUM), read_register(13), read_register(29), read_register(61), find_saved_register(frame, 61)); #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */ /* FIXME: I thought read_register (CFP_REGNUM) should be the right answer; or at least CFP_REGNUM relative to FRAME (ie, result). There seems to be a bug in the way the innermost frame is set up. */ return ((frame->next) ? result: frame->frame_cfp); } gdb-4.13/gdb/pyr-xdep.c 666 34562 1752 25552 5465305674 13254 0ustar fnfcygnus/* Low level Pyramid interface to ptrace, for GDB when running under Unix. Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include #include #include #include /* #include Can we live without this? */ #include "gdbcore.h" #include /* After a.out.h */ #include #include void fetch_inferior_registers (regno) int regno; { register int datum; register unsigned int regaddr; int reg_buf[NUM_REGS+1]; struct user u; register int skipped_frames = 0; registers_fetched (); for (regno = 0; regno < 64; regno++) { reg_buf[regno] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) regno, 0); #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) printf_unfiltered ("Fetching register %s, got %0x\n", reg_names[regno], reg_buf[regno]); #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */ if (reg_buf[regno] == -1 && errno == EIO) { printf_unfiltered("fetch_interior_registers: fetching register %s\n", reg_names[regno]); errno = 0; } supply_register (regno, reg_buf+regno); } /* that leaves regs 64, 65, and 66 */ datum = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) (((char *)&u.u_pcb.pcb_csp) - ((char *)&u)), 0); /* FIXME: Find the Current Frame Pointer (CFP). CFP is a global register (ie, NOT windowed), that gets saved in a frame iff the code for that frame has a prologue (ie, "adsf N"). If there is a prologue, the adsf insn saves the old cfp in pr13, cfp is set to sp, and N bytes of locals are allocated (sp is decremented by n). This makes finding CFP hard. I guess the right way to do it is: - If this is the innermost frame, believe ptrace() or the core area. - Otherwise: Find the first insn of the current frame. - find the saved pc; - find the call insn that saved it; - figure out where the call is to; - if the first insn is an adsf, we got a frame pointer. */ /* Normal processors have separate stack pointers for user and kernel mode. Getting the last user mode frame on such machines is easy: the kernel context of the ptrace()'d process is on the kernel stack, and the USP points to what we want. But Pyramids only have a single cfp for both user and kernel mode. And processes being ptrace()'d have some kernel-context control frames on their stack. To avoid tracing back into the kernel context of an inferior, we skip 0 or more contiguous control frames where the pc is in the kernel. */ while (1) { register int inferior_saved_pc; inferior_saved_pc = ptrace (1, inferior_pid, (PTRACE_ARG3_TYPE) (datum+((32+15)*4)), 0); if (inferior_saved_pc > 0) break; #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) printf_unfiltered("skipping kernel frame %08x, pc=%08x\n", datum, inferior_saved_pc); #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */ skipped_frames++; datum -= CONTROL_STACK_FRAME_SIZE; } reg_buf[CSP_REGNUM] = datum; supply_register(CSP_REGNUM, reg_buf+CSP_REGNUM); #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING if (skipped_frames) { fprintf_unfiltered (stderr, "skipped %d frames from %x to %x; cfp was %x, now %x\n", skipped_frames, reg_buf[CSP_REGNUM]); } #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */ } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { register unsigned int regaddr; char buf[80]; if (regno >= 0) { if ((0 <= regno) && (regno < 64)) { /*regaddr = register_addr (regno, offset);*/ regaddr = regno; errno = 0; ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, read_register (regno)); if (errno != 0) { sprintf (buf, "writing register number %d", regno); perror_with_name (buf); } } } else { for (regno = 0; regno < NUM_REGS; regno++) { /*regaddr = register_addr (regno, offset);*/ regaddr = regno; errno = 0; ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, read_register (regno)); if (errno != 0) { sprintf (buf, "writing all regs, number %d", regno); perror_with_name (buf); } } } /*** Extensions to core and dump files, for GDB. */ extern unsigned int last_frame_offset; #ifdef PYRAMID_CORE /* Can't make definitions here static, since core.c needs them to do bounds checking on the core-file areas. O well. */ /* have two stacks: one for data, one for register windows. */ extern CORE_ADDR reg_stack_start; extern CORE_ADDR reg_stack_end; /* need this so we can find the global registers: they never get saved. */ CORE_ADDR global_reg_offset; static CORE_ADDR last_frame_address; CORE_ADDR last_frame_offset; /* Address in core file of start of register window stack area. Don't know if is this any of meaningful, useful or necessary. */ extern int reg_stack_offset; #endif /* PYRAMID_CORE */ /* Work with core dump and executable files, for GDB. This code would be in core.c if it weren't machine-dependent. */ void core_file_command (filename, from_tty) char *filename; int from_tty; { int val; extern char registers[]; /* Discard all vestiges of any previous core file and mark data and stack spaces as empty. */ if (corefile) free (corefile); corefile = 0; if (corechan >= 0) close (corechan); corechan = -1; data_start = 0; data_end = 0; stack_start = STACK_END_ADDR; stack_end = STACK_END_ADDR; #ifdef PYRAMID_CORE reg_stack_start = CONTROL_STACK_ADDR; reg_stack_end = CONTROL_STACK_ADDR; /* this isn't strictly true...*/ #endif /* PYRAMID_CORE */ /* Now, if a new core file was specified, open it and digest it. */ if (filename) { filename = tilde_expand (filename); make_cleanup (free, filename); if (have_inferior_p ()) error ("To look at a core file, you must kill the program with \"kill\"."); corechan = open (filename, O_RDONLY, 0); if (corechan < 0) perror_with_name (filename); /* 4.2-style (and perhaps also sysV-style) core dump file. */ { struct user u; unsigned int reg_offset; val = myread (corechan, &u, sizeof u); if (val < 0) perror_with_name ("Not a core file: reading upage"); if (val != sizeof u) error ("Not a core file: could only read %d bytes", val); data_start = exec_data_start; data_end = data_start + NBPG * u.u_dsize; data_offset = NBPG * UPAGES; stack_offset = NBPG * (UPAGES + u.u_dsize); /* find registers in core file */ #ifdef PYRAMID_PTRACE stack_start = stack_end - NBPG * u.u_ussize; reg_stack_offset = stack_offset + (NBPG *u.u_ussize); reg_stack_end = reg_stack_start + NBPG * u.u_cssize; last_frame_address = ((int) u.u_pcb.pcb_csp); last_frame_offset = reg_stack_offset + last_frame_address - CONTROL_STACK_ADDR ; global_reg_offset = (char *)&u - (char *)&u.u_pcb.pcb_gr0 ; /* skip any control-stack frames that were executed in the kernel. */ while (1) { char buf[4]; val = lseek (corechan, last_frame_offset+(47*4), 0); if (val < 0) perror_with_name (filename); val = myread (corechan, buf, sizeof buf); if (val < 0) perror_with_name (filename); if (*(int *)buf >= 0) break; printf_unfiltered ("skipping frame %s\n", local_hex_string (last_frame_address)); last_frame_offset -= CONTROL_STACK_FRAME_SIZE; last_frame_address -= CONTROL_STACK_FRAME_SIZE; } reg_offset = last_frame_offset; #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) printf_unfiltered ("Control stack pointer = %s\n", local_hex_string (u.u_pcb.pcb_csp)); printf_unfiltered ("offset to control stack %d outermost frame %d (%s)\n", reg_stack_offset, reg_offset, local_hex_string (last_frame_address)); #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */ #else /* not PYRAMID_CORE */ stack_start = stack_end - NBPG * u.u_ssize; reg_offset = (int) u.u_ar0 - KERNEL_U_ADDR; #endif /* not PYRAMID_CORE */ #ifdef __not_on_pyr_yet /* Some machines put an absolute address in here and some put the offset in the upage of the regs. */ reg_offset = (int) u.u_ar0; if (reg_offset > NBPG * UPAGES) reg_offset -= KERNEL_U_ADDR; #endif /* I don't know where to find this info. So, for now, mark it as not available. */ N_SET_MAGIC (core_aouthdr, 0); /* Read the register values out of the core file and store them where `read_register' will find them. */ { register int regno; for (regno = 0; regno < 64; regno++) { char buf[MAX_REGISTER_RAW_SIZE]; val = lseek (corechan, register_addr (regno, reg_offset), 0); if (val < 0 || (val = myread (corechan, buf, sizeof buf)) < 0) { char * buffer = (char *) alloca (strlen (reg_names[regno]) + 30); strcpy (buffer, "Reading register "); strcat (buffer, reg_names[regno]); perror_with_name (buffer); } if (val < 0) perror_with_name (filename); #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING printf_unfiltered ("[reg %s(%d), offset in file %s=0x%0x, addr =0x%0x, =%0x]\n", reg_names[regno], regno, filename, register_addr(regno, reg_offset), regno * 4 + last_frame_address, *((int *)buf)); #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */ supply_register (regno, buf); } } } if (filename[0] == '/') corefile = savestring (filename, strlen (filename)); else { corefile = concat (current_directory, "/", filename, NULL); } #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) printf_unfiltered ("Providing CSP (%s) as nominal address of current frame.\n", local_hex_string(last_frame_address)); #endif PYRAMID_CONTROL_FRAME_DEBUGGING /* FIXME: Which of the following is correct? */ #if 0 set_current_frame ( create_new_frame (read_register (FP_REGNUM), read_pc ())); #else set_current_frame ( create_new_frame (last_frame_address, read_pc ())); #endif select_frame (get_current_frame (), 0); validate_files (); } else if (from_tty) printf_unfiltered ("No core file now.\n"); } gdb-4.13/gdb/regex.c 666 34562 1752 133001 5621013143 12600 0ustar fnfcygnus/* Extended regular expression matching and search library. Copyright (C) 1985, 1989 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* To test, compile with -Dtest. This Dtestable feature turns this into a self-contained program which reads a pattern, describes how it compiles, then reads a string and searches for it. */ #ifdef emacs /* The `emacs' switch turns on certain special matching commands that make sense only in emacs. */ #include "config.h" #include "lisp.h" #include "buffer.h" #include "syntax.h" #else /* not emacs */ #include "defs.h" #include /* * Define the syntax stuff, so we can do the \<...\> things. */ #ifndef Sword /* must be non-zero in some of the tests below... */ #define Sword 1 #endif #define SYNTAX(c) re_syntax_table[c] #ifdef SYNTAX_TABLE char *re_syntax_table; #else static char re_syntax_table[256]; static void init_syntax_once () { register int c; static int done = 0; if (done) return; memset (re_syntax_table, '\0', sizeof re_syntax_table); for (c = 'a'; c <= 'z'; c++) re_syntax_table[c] = Sword; for (c = 'A'; c <= 'Z'; c++) re_syntax_table[c] = Sword; for (c = '0'; c <= '9'; c++) re_syntax_table[c] = Sword; done = 1; } #endif /* SYNTAX_TABLE */ #endif /* not emacs */ #include "regex.h" /* Number of failure points to allocate space for initially, when matching. If this number is exceeded, more space is allocated, so it is not a hard limit. */ #ifndef NFAILURES #define NFAILURES 80 #endif /* NFAILURES */ /* width of a byte in bits */ #define BYTEWIDTH 8 /* We remove any previous definition of `SIGN_EXTEND_CHAR', since ours (we hope) works properly with all combinations of machines, compilers, `char' and `unsigned char' argument types. (Per Bothner suggested the basic approach.) */ #undef SIGN_EXTEND_CHAR #if __STDC__ #define SIGN_EXTEND_CHAR(c) ((signed char) (c)) #else /* not __STDC__ */ /* As in Harbison and Steele. */ #define SIGN_EXTEND_CHAR(c) ((((unsigned char) (c)) ^ 128) - 128) #endif static int obscure_syntax = 0; /* Specify the precise syntax of regexp for compilation. This provides for compatibility for various utilities which historically have different, incompatible syntaxes. The argument SYNTAX is a bit-mask containing the two bits RE_NO_BK_PARENS and RE_NO_BK_VBAR. */ int re_set_syntax (syntax) int syntax; { int ret; ret = obscure_syntax; obscure_syntax = syntax; return ret; } /* re_compile_pattern takes a regular-expression string and converts it into a buffer full of byte commands for matching. PATTERN is the address of the pattern string SIZE is the length of it. BUFP is a struct re_pattern_buffer * which points to the info on where to store the byte commands. This structure contains a char * which points to the actual space, which should have been obtained with malloc. re_compile_pattern may use realloc to grow the buffer space. The number of bytes of commands can be found out by looking in the struct re_pattern_buffer that bufp pointed to, after re_compile_pattern returns. */ #define PATPUSH(ch) (*b++ = (char) (ch)) #define PATFETCH(c) \ {if (p == pend) goto end_of_pattern; \ c = * (unsigned char *) p++; \ if (translate) c = translate[c]; } #define PATFETCH_RAW(c) \ {if (p == pend) goto end_of_pattern; \ c = * (unsigned char *) p++; } #define PATUNFETCH p-- /* This is not an arbitrary limit: the arguments which represent offsets into the pattern are two bytes long. So if 2^16 bytes turns out to be too small, many things would have to change. */ #define MAX_BUF_SIZE (1 << 16) /* Extend the buffer by twice its current size via realloc and reset the pointers that pointed into the old block to point to the correct places in the new one. If extending the buffer results in it being larger than MAX_BUF_SIZE, then flag memory exhausted. */ #define EXTEND_BUFFER \ do { \ char *old_buffer = bufp->buffer; \ if (bufp->allocated == MAX_BUF_SIZE) \ goto too_big; \ bufp->allocated <<= 1; \ if (bufp->allocated > MAX_BUF_SIZE) \ bufp->allocated = MAX_BUF_SIZE; \ bufp->buffer = (char *) realloc (bufp->buffer, bufp->allocated);\ if (bufp->buffer == NULL) \ goto memory_exhausted; \ /* If the buffer moved, move all the pointers into it. */ \ if (old_buffer != bufp->buffer) \ { \ b = (b - old_buffer) + bufp->buffer; \ begalt = (begalt - old_buffer) + bufp->buffer; \ if (fixup_jump) \ fixup_jump = (fixup_jump - old_buffer) + bufp->buffer;\ if (laststart) \ laststart = (laststart - old_buffer) + bufp->buffer; \ if (pending_exact) \ pending_exact = (pending_exact - old_buffer) + bufp->buffer; \ } \ } while (0) static void store_jump (), insert_jump (); char * re_compile_pattern (pattern, size, bufp) char *pattern; int size; struct re_pattern_buffer *bufp; { register char *b = bufp->buffer; register char *p = pattern; char *pend = pattern + size; register unsigned c, c1; char *p1; unsigned char *translate = (unsigned char *) bufp->translate; /* address of the count-byte of the most recently inserted "exactn" command. This makes it possible to tell whether a new exact-match character can be added to that command or requires a new "exactn" command. */ char *pending_exact = 0; /* address of the place where a forward-jump should go to the end of the containing expression. Each alternative of an "or", except the last, ends with a forward-jump of this sort. */ char *fixup_jump = 0; /* address of start of the most recently finished expression. This tells postfix * where to find the start of its operand. */ char *laststart = 0; /* In processing a repeat, 1 means zero matches is allowed */ char zero_times_ok; /* In processing a repeat, 1 means many matches is allowed */ char many_times_ok; /* address of beginning of regexp, or inside of last \( */ char *begalt = b; /* Stack of information saved by \( and restored by \). Four stack elements are pushed by each \(: First, the value of b. Second, the value of fixup_jump. Third, the value of regnum. Fourth, the value of begalt. */ int stackb[40]; int *stackp = stackb; int *stacke = stackb + 40; int *stackt; /* Counts \('s as they are encountered. Remembered for the matching \), where it becomes the "register number" to put in the stop_memory command */ int regnum = 1; bufp->fastmap_accurate = 0; #ifndef emacs #ifndef SYNTAX_TABLE /* * Initialize the syntax table. */ init_syntax_once(); #endif #endif if (bufp->allocated == 0) { bufp->allocated = 28; if (bufp->buffer) /* EXTEND_BUFFER loses when bufp->allocated is 0 */ bufp->buffer = (char *) realloc (bufp->buffer, 28); else /* Caller did not allocate a buffer. Do it for him */ bufp->buffer = (char *) malloc (28); if (!bufp->buffer) goto memory_exhausted; begalt = b = bufp->buffer; } while (p != pend) { if (b - bufp->buffer > bufp->allocated - 10) /* Note that EXTEND_BUFFER clobbers c */ EXTEND_BUFFER; PATFETCH (c); switch (c) { case '$': if (obscure_syntax & RE_TIGHT_VBAR) { if (! (obscure_syntax & RE_CONTEXT_INDEP_OPS) && p != pend) goto normal_char; /* Make operand of last vbar end before this `$'. */ if (fixup_jump) store_jump (fixup_jump, jump, b); fixup_jump = 0; PATPUSH (endline); break; } /* $ means succeed if at end of line, but only in special contexts. If randomly in the middle of a pattern, it is a normal character. */ if (p == pend || *p == '\n' || (obscure_syntax & RE_CONTEXT_INDEP_OPS) || (obscure_syntax & RE_NO_BK_PARENS ? *p == ')' : *p == '\\' && p[1] == ')') || (obscure_syntax & RE_NO_BK_VBAR ? *p == '|' : *p == '\\' && p[1] == '|')) { PATPUSH (endline); break; } goto normal_char; case '^': /* ^ means succeed if at beg of line, but only if no preceding pattern. */ if (laststart && p[-2] != '\n' && ! (obscure_syntax & RE_CONTEXT_INDEP_OPS)) goto normal_char; if (obscure_syntax & RE_TIGHT_VBAR) { if (p != pattern + 1 && ! (obscure_syntax & RE_CONTEXT_INDEP_OPS)) goto normal_char; PATPUSH (begline); begalt = b; } else PATPUSH (begline); break; case '+': case '?': if (obscure_syntax & RE_BK_PLUS_QM) goto normal_char; handle_plus: case '*': /* If there is no previous pattern, char not special. */ if (!laststart && ! (obscure_syntax & RE_CONTEXT_INDEP_OPS)) goto normal_char; /* If there is a sequence of repetition chars, collapse it down to equivalent to just one. */ zero_times_ok = 0; many_times_ok = 0; while (1) { zero_times_ok |= c != '+'; many_times_ok |= c != '?'; if (p == pend) break; PATFETCH (c); if (c == '*') ; else if (!(obscure_syntax & RE_BK_PLUS_QM) && (c == '+' || c == '?')) ; else if ((obscure_syntax & RE_BK_PLUS_QM) && c == '\\') { int c1; PATFETCH (c1); if (!(c1 == '+' || c1 == '?')) { PATUNFETCH; PATUNFETCH; break; } c = c1; } else { PATUNFETCH; break; } } /* Star, etc. applied to an empty pattern is equivalent to an empty pattern. */ if (!laststart) break; /* Now we know whether 0 matches is allowed, and whether 2 or more matches is allowed. */ if (many_times_ok) { /* If more than one repetition is allowed, put in a backward jump at the end. */ store_jump (b, maybe_finalize_jump, laststart - 3); b += 3; } insert_jump (on_failure_jump, laststart, b + 3, b); pending_exact = 0; b += 3; if (!zero_times_ok) { /* At least one repetition required: insert before the loop a skip over the initial on-failure-jump instruction */ insert_jump (dummy_failure_jump, laststart, laststart + 6, b); b += 3; } break; case '.': laststart = b; PATPUSH (anychar); break; case '[': while (b - bufp->buffer > bufp->allocated - 3 - (1 << BYTEWIDTH) / BYTEWIDTH) /* Note that EXTEND_BUFFER clobbers c */ EXTEND_BUFFER; laststart = b; if (*p == '^') PATPUSH (charset_not), p++; else PATPUSH (charset); p1 = p; PATPUSH ((1 << BYTEWIDTH) / BYTEWIDTH); /* Clear the whole map */ memset (b, '\0', (1 << BYTEWIDTH) / BYTEWIDTH); /* Read in characters and ranges, setting map bits */ while (1) { PATFETCH (c); if (c == ']' && p != p1 + 1) break; if (*p == '-' && p[1] != ']') { PATFETCH (c1); PATFETCH (c1); while (c <= c1) b[c / BYTEWIDTH] |= 1 << (c % BYTEWIDTH), c++; } else { b[c / BYTEWIDTH] |= 1 << (c % BYTEWIDTH); } } /* Discard any bitmap bytes that are all 0 at the end of the map. Decrement the map-length byte too. */ while ((int) b[-1] > 0 && b[b[-1] - 1] == 0) b[-1]--; b += b[-1]; break; case '(': if (! (obscure_syntax & RE_NO_BK_PARENS)) goto normal_char; else goto handle_open; case ')': if (! (obscure_syntax & RE_NO_BK_PARENS)) goto normal_char; else goto handle_close; case '\n': if (! (obscure_syntax & RE_NEWLINE_OR)) goto normal_char; else goto handle_bar; case '|': if (! (obscure_syntax & RE_NO_BK_VBAR)) goto normal_char; else goto handle_bar; case '\\': if (p == pend) goto invalid_pattern; PATFETCH_RAW (c); switch (c) { case '(': if (obscure_syntax & RE_NO_BK_PARENS) goto normal_backsl; handle_open: if (stackp == stacke) goto nesting_too_deep; if (regnum < RE_NREGS) { PATPUSH (start_memory); PATPUSH (regnum); } *stackp++ = b - bufp->buffer; *stackp++ = fixup_jump ? fixup_jump - bufp->buffer + 1 : 0; *stackp++ = regnum++; *stackp++ = begalt - bufp->buffer; fixup_jump = 0; laststart = 0; begalt = b; break; case ')': if (obscure_syntax & RE_NO_BK_PARENS) goto normal_backsl; handle_close: if (stackp == stackb) goto unmatched_close; begalt = *--stackp + bufp->buffer; if (fixup_jump) store_jump (fixup_jump, jump, b); if (stackp[-1] < RE_NREGS) { PATPUSH (stop_memory); PATPUSH (stackp[-1]); } stackp -= 2; fixup_jump = 0; if (*stackp) fixup_jump = *stackp + bufp->buffer - 1; laststart = *--stackp + bufp->buffer; break; case '|': if (obscure_syntax & RE_NO_BK_VBAR) goto normal_backsl; handle_bar: insert_jump (on_failure_jump, begalt, b + 6, b); pending_exact = 0; b += 3; if (fixup_jump) store_jump (fixup_jump, jump, b); fixup_jump = b; b += 3; laststart = 0; begalt = b; break; #ifdef emacs case '=': PATPUSH (at_dot); break; case 's': laststart = b; PATPUSH (syntaxspec); PATFETCH (c); PATPUSH (syntax_spec_code[c]); break; case 'S': laststart = b; PATPUSH (notsyntaxspec); PATFETCH (c); PATPUSH (syntax_spec_code[c]); break; #endif /* emacs */ case 'w': laststart = b; PATPUSH (wordchar); break; case 'W': laststart = b; PATPUSH (notwordchar); break; case '<': PATPUSH (wordbeg); break; case '>': PATPUSH (wordend); break; case 'b': PATPUSH (wordbound); break; case 'B': PATPUSH (notwordbound); break; case '`': PATPUSH (begbuf); break; case '\'': PATPUSH (endbuf); break; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': c1 = c - '0'; if (c1 >= regnum) goto normal_char; for (stackt = stackp - 2; stackt > stackb; stackt -= 4) if (*stackt == c1) goto normal_char; laststart = b; PATPUSH (duplicate); PATPUSH (c1); break; case '+': case '?': if (obscure_syntax & RE_BK_PLUS_QM) goto handle_plus; default: normal_backsl: /* You might think it would be useful for \ to mean not to translate; but if we don't translate it it will never match anything. */ if (translate) c = translate[c]; goto normal_char; } break; default: normal_char: if (!pending_exact || pending_exact + *pending_exact + 1 != b || *pending_exact == 0177 || *p == '*' || *p == '^' || ((obscure_syntax & RE_BK_PLUS_QM) ? *p == '\\' && (p[1] == '+' || p[1] == '?') : (*p == '+' || *p == '?'))) { laststart = b; PATPUSH (exactn); pending_exact = b; PATPUSH (0); } PATPUSH (c); (*pending_exact)++; } } if (fixup_jump) store_jump (fixup_jump, jump, b); if (stackp != stackb) goto unmatched_open; bufp->used = b - bufp->buffer; return 0; invalid_pattern: return "Invalid regular expression"; unmatched_open: return "Unmatched \\("; unmatched_close: return "Unmatched \\)"; end_of_pattern: return "Premature end of regular expression"; nesting_too_deep: return "Nesting too deep"; too_big: return "Regular expression too big"; memory_exhausted: return "Memory exhausted"; } /* Store where `from' points a jump operation to jump to where `to' points. `opcode' is the opcode to store. */ static void store_jump (from, opcode, to) char *from, *to; char opcode; { from[0] = opcode; from[1] = (to - (from + 3)) & 0377; from[2] = (to - (from + 3)) >> 8; } /* Open up space at char FROM, and insert there a jump to TO. CURRENT_END gives te end of the storage no in use, so we know how much data to copy up. OP is the opcode of the jump to insert. If you call this function, you must zero out pending_exact. */ static void insert_jump (op, from, to, current_end) char op; char *from, *to, *current_end; { register char *pto = current_end + 3; register char *pfrom = current_end; while (pfrom != from) *--pto = *--pfrom; store_jump (from, op, to); } /* Given a pattern, compute a fastmap from it. The fastmap records which of the (1 << BYTEWIDTH) possible characters can start a string that matches the pattern. This fastmap is used by re_search to skip quickly over totally implausible text. The caller must supply the address of a (1 << BYTEWIDTH)-byte data area as bufp->fastmap. The other components of bufp describe the pattern to be used. */ void re_compile_fastmap (bufp) struct re_pattern_buffer *bufp; { unsigned char *pattern = (unsigned char *) bufp->buffer; int size = bufp->used; register char *fastmap = bufp->fastmap; register unsigned char *p = pattern; register unsigned char *pend = pattern + size; register int j; unsigned char *translate = (unsigned char *) bufp->translate; unsigned char *stackb[NFAILURES]; unsigned char **stackp = stackb; memset (fastmap, '\0', (1 << BYTEWIDTH)); bufp->fastmap_accurate = 1; bufp->can_be_null = 0; while (p) { if (p == pend) { bufp->can_be_null = 1; break; } #ifdef SWITCH_ENUM_BUG switch ((int) ((enum regexpcode) *p++)) #else switch ((enum regexpcode) *p++) #endif { case exactn: if (translate) fastmap[translate[p[1]]] = 1; else fastmap[p[1]] = 1; break; case begline: case before_dot: case at_dot: case after_dot: case begbuf: case endbuf: case wordbound: case notwordbound: case wordbeg: case wordend: continue; case endline: if (translate) fastmap[translate['\n']] = 1; else fastmap['\n'] = 1; if (bufp->can_be_null != 1) bufp->can_be_null = 2; break; case finalize_jump: case maybe_finalize_jump: case jump: case dummy_failure_jump: bufp->can_be_null = 1; j = *p++ & 0377; j += SIGN_EXTEND_CHAR (*(char *)p) << 8; p += j + 1; /* The 1 compensates for missing ++ above */ if (j > 0) continue; /* Jump backward reached implies we just went through the body of a loop and matched nothing. Opcode jumped to should be an on_failure_jump. Just treat it like an ordinary jump. For a * loop, it has pushed its failure point already; if so, discard that as redundant. */ if ((enum regexpcode) *p != on_failure_jump) continue; p++; j = *p++ & 0377; j += SIGN_EXTEND_CHAR (*(char *)p) << 8; p += j + 1; /* The 1 compensates for missing ++ above */ if (stackp != stackb && *stackp == p) stackp--; continue; case on_failure_jump: j = *p++ & 0377; j += SIGN_EXTEND_CHAR (*(char *)p) << 8; p++; *++stackp = p + j; continue; case start_memory: case stop_memory: p++; continue; case duplicate: bufp->can_be_null = 1; fastmap['\n'] = 1; case anychar: for (j = 0; j < (1 << BYTEWIDTH); j++) if (j != '\n') fastmap[j] = 1; if (bufp->can_be_null) return; /* Don't return; check the alternative paths so we can set can_be_null if appropriate. */ break; case wordchar: for (j = 0; j < (1 << BYTEWIDTH); j++) if (SYNTAX (j) == Sword) fastmap[j] = 1; break; case notwordchar: for (j = 0; j < (1 << BYTEWIDTH); j++) if (SYNTAX (j) != Sword) fastmap[j] = 1; break; #ifdef emacs case syntaxspec: k = *p++; for (j = 0; j < (1 << BYTEWIDTH); j++) if (SYNTAX (j) == (enum syntaxcode) k) fastmap[j] = 1; break; case notsyntaxspec: k = *p++; for (j = 0; j < (1 << BYTEWIDTH); j++) if (SYNTAX (j) != (enum syntaxcode) k) fastmap[j] = 1; break; #endif /* emacs */ case charset: for (j = *p++ * BYTEWIDTH - 1; j >= 0; j--) if (p[j / BYTEWIDTH] & (1 << (j % BYTEWIDTH))) { if (translate) fastmap[translate[j]] = 1; else fastmap[j] = 1; } break; case charset_not: /* Chars beyond end of map must be allowed */ for (j = *p * BYTEWIDTH; j < (1 << BYTEWIDTH); j++) if (translate) fastmap[translate[j]] = 1; else fastmap[j] = 1; for (j = *p++ * BYTEWIDTH - 1; j >= 0; j--) if (!(p[j / BYTEWIDTH] & (1 << (j % BYTEWIDTH)))) { if (translate) fastmap[translate[j]] = 1; else fastmap[j] = 1; } break; } /* Get here means we have successfully found the possible starting characters of one path of the pattern. We need not follow this path any farther. Instead, look at the next alternative remembered in the stack. */ if (stackp != stackb) p = *stackp--; else break; } } /* Like re_search_2, below, but only one string is specified. */ int re_search (pbufp, string, size, startpos, range, regs) struct re_pattern_buffer *pbufp; char *string; int size, startpos, range; struct re_registers *regs; { return re_search_2 (pbufp, 0, 0, string, size, startpos, range, regs, size); } /* Like re_match_2 but tries first a match starting at index STARTPOS, then at STARTPOS + 1, and so on. RANGE is the number of places to try before giving up. If RANGE is negative, the starting positions tried are STARTPOS, STARTPOS - 1, etc. It is up to the caller to make sure that range is not so large as to take the starting position outside of the input strings. The value returned is the position at which the match was found, or -1 if no match was found, or -2 if error (such as failure stack overflow). */ int re_search_2 (pbufp, string1, size1, string2, size2, startpos, range, regs, mstop) struct re_pattern_buffer *pbufp; char *string1, *string2; int size1, size2; int startpos; register int range; struct re_registers *regs; int mstop; { register char *fastmap = pbufp->fastmap; register unsigned char *translate = (unsigned char *) pbufp->translate; int total = size1 + size2; int val; /* Update the fastmap now if not correct already */ if (fastmap && !pbufp->fastmap_accurate) re_compile_fastmap (pbufp); /* Don't waste time in a long search for a pattern that says it is anchored. */ if (pbufp->used > 0 && (enum regexpcode) pbufp->buffer[0] == begbuf && range > 0) { if (startpos > 0) return -1; else range = 1; } while (1) { /* If a fastmap is supplied, skip quickly over characters that cannot possibly be the start of a match. Note, however, that if the pattern can possibly match the null string, we must test it at each starting point so that we take the first null string we get. */ if (fastmap && startpos < total && pbufp->can_be_null != 1) { if (range > 0) { register int lim = 0; register unsigned char *p; int irange = range; if (startpos < size1 && startpos + range >= size1) lim = range - (size1 - startpos); p = ((unsigned char *) &(startpos >= size1 ? string2 - size1 : string1)[startpos]); if (translate) { while (range > lim && !fastmap[translate[*p++]]) range--; } else { while (range > lim && !fastmap[*p++]) range--; } startpos += irange - range; } else { register unsigned char c; if (startpos >= size1) c = string2[startpos - size1]; else c = string1[startpos]; c &= 0xff; if (translate ? !fastmap[translate[c]] : !fastmap[c]) goto advance; } } if (range >= 0 && startpos == total && fastmap && pbufp->can_be_null == 0) return -1; val = re_match_2 (pbufp, string1, size1, string2, size2, startpos, regs, mstop); if (0 <= val) { if (val == -2) return -2; return startpos; } #ifdef C_ALLOCA alloca (0); #endif /* C_ALLOCA */ advance: if (!range) break; if (range > 0) range--, startpos++; else range++, startpos--; } return -1; } #ifndef emacs /* emacs never uses this */ int re_match (pbufp, string, size, pos, regs) struct re_pattern_buffer *pbufp; char *string; int size, pos; struct re_registers *regs; { return re_match_2 (pbufp, 0, 0, string, size, pos, regs, size); } #endif /* emacs */ /* Maximum size of failure stack. Beyond this, overflow is an error. */ int re_max_failures = 2000; static int memcmp_translate(); /* Match the pattern described by PBUFP against data which is the virtual concatenation of STRING1 and STRING2. SIZE1 and SIZE2 are the sizes of the two data strings. Start the match at position POS. Do not consider matching past the position MSTOP. If pbufp->fastmap is nonzero, then it had better be up to date. The reason that the data to match are specified as two components which are to be regarded as concatenated is so this function can be used directly on the contents of an Emacs buffer. -1 is returned if there is no match. -2 is returned if there is an error (such as match stack overflow). Otherwise the value is the length of the substring which was matched. */ int re_match_2 (pbufp, string1, size1, string2, size2, pos, regs, mstop) struct re_pattern_buffer *pbufp; unsigned char *string1, *string2; int size1, size2; int pos; struct re_registers *regs; int mstop; { register unsigned char *p = (unsigned char *) pbufp->buffer; register unsigned char *pend = p + pbufp->used; /* End of first string */ unsigned char *end1; /* End of second string */ unsigned char *end2; /* Pointer just past last char to consider matching */ unsigned char *end_match_1, *end_match_2; register unsigned char *d, *dend; register int mcnt; unsigned char *translate = (unsigned char *) pbufp->translate; /* Failure point stack. Each place that can handle a failure further down the line pushes a failure point on this stack. It consists of two char *'s. The first one pushed is where to resume scanning the pattern; the second pushed is where to resume scanning the strings. If the latter is zero, the failure point is a "dummy". If a failure happens and the innermost failure point is dormant, it discards that failure point and tries the next one. */ unsigned char *initial_stack[2 * NFAILURES]; unsigned char **stackb = initial_stack; unsigned char **stackp = stackb, **stacke = &stackb[2 * NFAILURES]; /* Information on the "contents" of registers. These are pointers into the input strings; they record just what was matched (on this attempt) by some part of the pattern. The start_memory command stores the start of a register's contents and the stop_memory command stores the end. At that point, regstart[regnum] points to the first character in the register, regend[regnum] points to the first character beyond the end of the register, regstart_seg1[regnum] is true iff regstart[regnum] points into string1, and regend_seg1[regnum] is true iff regend[regnum] points into string1. */ unsigned char *regstart[RE_NREGS]; unsigned char *regend[RE_NREGS]; unsigned char regstart_seg1[RE_NREGS], regend_seg1[RE_NREGS]; /* Set up pointers to ends of strings. Don't allow the second string to be empty unless both are empty. */ if (!size2) { string2 = string1; size2 = size1; string1 = 0; size1 = 0; } end1 = string1 + size1; end2 = string2 + size2; /* Compute where to stop matching, within the two strings */ if (mstop <= size1) { end_match_1 = string1 + mstop; end_match_2 = string2; } else { end_match_1 = end1; end_match_2 = string2 + mstop - size1; } /* Initialize \) text positions to -1 to mark ones that no \( or \) has been seen for. */ for (mcnt = 0; mcnt < sizeof (regend) / sizeof (*regend); mcnt++) regend[mcnt] = (unsigned char *) -1; /* `p' scans through the pattern as `d' scans through the data. `dend' is the end of the input string that `d' points within. `d' is advanced into the following input string whenever necessary, but this happens before fetching; therefore, at the beginning of the loop, `d' can be pointing at the end of a string, but it cannot equal string2. */ if (pos <= size1) d = string1 + pos, dend = end_match_1; else d = string2 + pos - size1, dend = end_match_2; /* Write PREFETCH; just before fetching a character with *d. */ #define PREFETCH \ while (d == dend) \ { if (dend == end_match_2) goto fail; /* end of string2 => failure */ \ d = string2; /* end of string1 => advance to string2. */ \ dend = end_match_2; } /* This loop loops over pattern commands. It exits by returning from the function if match is complete, or it drops through if match fails at this starting point in the input data. */ while (1) { if (p == pend) /* End of pattern means we have succeeded! */ { /* If caller wants register contents data back, convert it to indices */ if (regs) { regs->start[0] = pos; if (dend == end_match_1) regs->end[0] = d - string1; else regs->end[0] = d - string2 + size1; for (mcnt = 1; mcnt < RE_NREGS; mcnt++) { if (regend[mcnt] == (unsigned char *) -1) { regs->start[mcnt] = -1; regs->end[mcnt] = -1; continue; } if (regstart_seg1[mcnt]) regs->start[mcnt] = regstart[mcnt] - string1; else regs->start[mcnt] = regstart[mcnt] - string2 + size1; if (regend_seg1[mcnt]) regs->end[mcnt] = regend[mcnt] - string1; else regs->end[mcnt] = regend[mcnt] - string2 + size1; } } if (dend == end_match_1) return (d - string1 - pos); else return d - string2 + size1 - pos; } /* Otherwise match next pattern command */ #ifdef SWITCH_ENUM_BUG switch ((int) ((enum regexpcode) *p++)) #else switch ((enum regexpcode) *p++) #endif { /* \( is represented by a start_memory, \) by a stop_memory. Both of those commands contain a "register number" argument. The text matched within the \( and \) is recorded under that number. Then, \ turns into a `duplicate' command which is followed by the numeric value of as the register number. */ case start_memory: regstart[*p] = d; regstart_seg1[*p++] = (dend == end_match_1); break; case stop_memory: regend[*p] = d; regend_seg1[*p++] = (dend == end_match_1); break; case duplicate: { int regno = *p++; /* Get which register to match against */ register unsigned char *d2, *dend2; d2 = regstart[regno]; dend2 = ((regstart_seg1[regno] == regend_seg1[regno]) ? regend[regno] : end_match_1); while (1) { /* Advance to next segment in register contents, if necessary */ while (d2 == dend2) { if (dend2 == end_match_2) break; if (dend2 == regend[regno]) break; d2 = string2, dend2 = regend[regno]; /* end of string1 => advance to string2. */ } /* At end of register contents => success */ if (d2 == dend2) break; /* Advance to next segment in data being matched, if necessary */ PREFETCH; /* mcnt gets # consecutive chars to compare */ mcnt = dend - d; if (mcnt > dend2 - d2) mcnt = dend2 - d2; /* Compare that many; failure if mismatch, else skip them. */ if (translate ? memcmp_translate (d, d2, mcnt, translate) : memcmp (d, d2, mcnt)) goto fail; d += mcnt, d2 += mcnt; } } break; case anychar: /* fetch a data character */ PREFETCH; /* Match anything but a newline. */ if ((translate ? translate[*d++] : *d++) == '\n') goto fail; break; case charset: case charset_not: { /* Nonzero for charset_not */ int not = 0; register int c; if (*(p - 1) == (unsigned char) charset_not) not = 1; /* fetch a data character */ PREFETCH; if (translate) c = translate [*d]; else c = *d; if (c < *p * BYTEWIDTH && p[1 + c / BYTEWIDTH] & (1 << (c % BYTEWIDTH))) not = !not; p += 1 + *p; if (!not) goto fail; d++; break; } case begline: if (d == string1 || d[-1] == '\n') break; goto fail; case endline: if (d == end2 || (d == end1 ? (size2 == 0 || *string2 == '\n') : *d == '\n')) break; goto fail; /* "or" constructs ("|") are handled by starting each alternative with an on_failure_jump that points to the start of the next alternative. Each alternative except the last ends with a jump to the joining point. (Actually, each jump except for the last one really jumps to the following jump, because tensioning the jumps is a hassle.) */ /* The start of a stupid repeat has an on_failure_jump that points past the end of the repeat text. This makes a failure point so that, on failure to match a repetition, matching restarts past as many repetitions have been found with no way to fail and look for another one. */ /* A smart repeat is similar but loops back to the on_failure_jump so that each repetition makes another failure point. */ case on_failure_jump: if (stackp == stacke) { unsigned char **stackx; if (stacke - stackb > re_max_failures * 2) return -2; stackx = (unsigned char **) alloca (2 * (stacke - stackb) * sizeof (char *)); memcpy (stackx, stackb, (stacke - stackb) * sizeof (char *)); stackp = stackx + (stackp - stackb); stacke = stackx + 2 * (stacke - stackb); stackb = stackx; } mcnt = *p++ & 0377; mcnt += SIGN_EXTEND_CHAR (*(char *)p) << 8; p++; *stackp++ = mcnt + p; *stackp++ = d; break; /* The end of a smart repeat has an maybe_finalize_jump back. Change it either to a finalize_jump or an ordinary jump. */ case maybe_finalize_jump: mcnt = *p++ & 0377; mcnt += SIGN_EXTEND_CHAR (*(char *)p) << 8; p++; { register unsigned char *p2 = p; /* Compare what follows with the begining of the repeat. If we can establish that there is nothing that they would both match, we can change to finalize_jump */ while (p2 != pend && (*p2 == (unsigned char) stop_memory || *p2 == (unsigned char) start_memory)) p2++; if (p2 == pend) p[-3] = (unsigned char) finalize_jump; else if (*p2 == (unsigned char) exactn || *p2 == (unsigned char) endline) { register int c = *p2 == (unsigned char) endline ? '\n' : p2[2]; register unsigned char *p1 = p + mcnt; /* p1[0] ... p1[2] are an on_failure_jump. Examine what follows that */ if (p1[3] == (unsigned char) exactn && p1[5] != c) p[-3] = (unsigned char) finalize_jump; else if (p1[3] == (unsigned char) charset || p1[3] == (unsigned char) charset_not) { int not = p1[3] == (unsigned char) charset_not; if (c < p1[4] * BYTEWIDTH && p1[5 + c / BYTEWIDTH] & (1 << (c % BYTEWIDTH))) not = !not; /* not is 1 if c would match */ /* That means it is not safe to finalize */ if (!not) p[-3] = (unsigned char) finalize_jump; } } } p -= 2; if (p[-1] != (unsigned char) finalize_jump) { p[-1] = (unsigned char) jump; goto nofinalize; } /* The end of a stupid repeat has a finalize-jump back to the start, where another failure point will be made which will point after all the repetitions found so far. */ case finalize_jump: stackp -= 2; case jump: nofinalize: mcnt = *p++ & 0377; mcnt += SIGN_EXTEND_CHAR (*(char *)p) << 8; p += mcnt + 1; /* The 1 compensates for missing ++ above */ break; case dummy_failure_jump: if (stackp == stacke) { unsigned char **stackx = (unsigned char **) alloca (2 * (stacke - stackb) * sizeof (char *)); memcpy (stackx, stackb, (stacke - stackb) * sizeof (char *)); stackp = stackx + (stackp - stackb); stacke = stackx + 2 * (stacke - stackb); stackb = stackx; } *stackp++ = 0; *stackp++ = 0; goto nofinalize; case wordbound: if (d == string1 /* Points to first char */ || d == end2 /* Points to end */ || (d == end1 && size2 == 0)) /* Points to end */ break; if ((SYNTAX (d[-1]) == Sword) != (SYNTAX (d == end1 ? *string2 : *d) == Sword)) break; goto fail; case notwordbound: if (d == string1 /* Points to first char */ || d == end2 /* Points to end */ || (d == end1 && size2 == 0)) /* Points to end */ goto fail; if ((SYNTAX (d[-1]) == Sword) != (SYNTAX (d == end1 ? *string2 : *d) == Sword)) goto fail; break; case wordbeg: if (d == end2 /* Points to end */ || (d == end1 && size2 == 0) /* Points to end */ || SYNTAX (* (d == end1 ? string2 : d)) != Sword) /* Next char not a letter */ goto fail; if (d == string1 /* Points to first char */ || SYNTAX (d[-1]) != Sword) /* prev char not letter */ break; goto fail; case wordend: if (d == string1 /* Points to first char */ || SYNTAX (d[-1]) != Sword) /* prev char not letter */ goto fail; if (d == end2 /* Points to end */ || (d == end1 && size2 == 0) /* Points to end */ || SYNTAX (d == end1 ? *string2 : *d) != Sword) /* Next char not a letter */ break; goto fail; #ifdef emacs case before_dot: if (((d - string2 <= (unsigned) size2) ? d - bf_p2 : d - bf_p1) <= point) goto fail; break; case at_dot: if (((d - string2 <= (unsigned) size2) ? d - bf_p2 : d - bf_p1) == point) goto fail; break; case after_dot: if (((d - string2 <= (unsigned) size2) ? d - bf_p2 : d - bf_p1) >= point) goto fail; break; case wordchar: mcnt = (int) Sword; goto matchsyntax; case syntaxspec: mcnt = *p++; matchsyntax: PREFETCH; if (SYNTAX (*d++) != (enum syntaxcode) mcnt) goto fail; break; case notwordchar: mcnt = (int) Sword; goto matchnotsyntax; case notsyntaxspec: mcnt = *p++; matchnotsyntax: PREFETCH; if (SYNTAX (*d++) == (enum syntaxcode) mcnt) goto fail; break; #else case wordchar: PREFETCH; if (SYNTAX (*d++) == 0) goto fail; break; case notwordchar: PREFETCH; if (SYNTAX (*d++) != 0) goto fail; break; #endif /* not emacs */ case begbuf: if (d == string1) /* Note, d cannot equal string2 */ break; /* unless string1 == string2. */ goto fail; case endbuf: if (d == end2 || (d == end1 && size2 == 0)) break; goto fail; case exactn: /* Match the next few pattern characters exactly. mcnt is how many characters to match. */ mcnt = *p++; if (translate) { do { PREFETCH; if (translate[*d++] != *p++) goto fail; } while (--mcnt); } else { do { PREFETCH; if (*d++ != *p++) goto fail; } while (--mcnt); } break; } continue; /* Successfully matched one pattern command; keep matching */ /* Jump here if any matching operation fails. */ fail: if (stackp != stackb) /* A restart point is known. Restart there and pop it. */ { if (!stackp[-2]) { /* If innermost failure point is dormant, flush it and keep looking */ stackp -= 2; goto fail; } d = *--stackp; p = *--stackp; if (d >= string1 && d <= end1) dend = end_match_1; } else break; /* Matching at this starting point really fails! */ } return -1; /* Failure to match */ } static int memcmp_translate (s1, s2, len, translate) unsigned char *s1, *s2; register int len; unsigned char *translate; { register unsigned char *p1 = s1, *p2 = s2; while (len) { if (translate [*p1++] != translate [*p2++]) return 1; len--; } return 0; } /* Entry points compatible with bsd4.2 regex library */ #ifndef emacs static struct re_pattern_buffer re_comp_buf; char * re_comp (s) const char *s; { if (!s) { if (!re_comp_buf.buffer) return "No previous regular expression"; return 0; } if (!re_comp_buf.buffer) { if (!(re_comp_buf.buffer = (char *) malloc (200))) return "Memory exhausted"; re_comp_buf.allocated = 200; if (!(re_comp_buf.fastmap = (char *) malloc (1 << BYTEWIDTH))) return "Memory exhausted"; } return re_compile_pattern (s, strlen (s), &re_comp_buf); } int re_exec (s) char *s; { int len = strlen (s); return 0 <= re_search (&re_comp_buf, s, len, 0, len, 0); } #endif /* emacs */ #ifdef test #include /* Indexed by a character, gives the upper case equivalent of the character */ static char upcase[0400] = { 000, 001, 002, 003, 004, 005, 006, 007, 010, 011, 012, 013, 014, 015, 016, 017, 020, 021, 022, 023, 024, 025, 026, 027, 030, 031, 032, 033, 034, 035, 036, 037, 040, 041, 042, 043, 044, 045, 046, 047, 050, 051, 052, 053, 054, 055, 056, 057, 060, 061, 062, 063, 064, 065, 066, 067, 070, 071, 072, 073, 074, 075, 076, 077, 0100, 0101, 0102, 0103, 0104, 0105, 0106, 0107, 0110, 0111, 0112, 0113, 0114, 0115, 0116, 0117, 0120, 0121, 0122, 0123, 0124, 0125, 0126, 0127, 0130, 0131, 0132, 0133, 0134, 0135, 0136, 0137, 0140, 0101, 0102, 0103, 0104, 0105, 0106, 0107, 0110, 0111, 0112, 0113, 0114, 0115, 0116, 0117, 0120, 0121, 0122, 0123, 0124, 0125, 0126, 0127, 0130, 0131, 0132, 0173, 0174, 0175, 0176, 0177, 0200, 0201, 0202, 0203, 0204, 0205, 0206, 0207, 0210, 0211, 0212, 0213, 0214, 0215, 0216, 0217, 0220, 0221, 0222, 0223, 0224, 0225, 0226, 0227, 0230, 0231, 0232, 0233, 0234, 0235, 0236, 0237, 0240, 0241, 0242, 0243, 0244, 0245, 0246, 0247, 0250, 0251, 0252, 0253, 0254, 0255, 0256, 0257, 0260, 0261, 0262, 0263, 0264, 0265, 0266, 0267, 0270, 0271, 0272, 0273, 0274, 0275, 0276, 0277, 0300, 0301, 0302, 0303, 0304, 0305, 0306, 0307, 0310, 0311, 0312, 0313, 0314, 0315, 0316, 0317, 0320, 0321, 0322, 0323, 0324, 0325, 0326, 0327, 0330, 0331, 0332, 0333, 0334, 0335, 0336, 0337, 0340, 0341, 0342, 0343, 0344, 0345, 0346, 0347, 0350, 0351, 0352, 0353, 0354, 0355, 0356, 0357, 0360, 0361, 0362, 0363, 0364, 0365, 0366, 0367, 0370, 0371, 0372, 0373, 0374, 0375, 0376, 0377 }; main (argc, argv) int argc; char **argv; { char pat[80]; struct re_pattern_buffer buf; int i; char c; char fastmap[(1 << BYTEWIDTH)]; /* Allow a command argument to specify the style of syntax. */ if (argc > 1) obscure_syntax = atoi (argv[1]); buf.allocated = 40; buf.buffer = (char *) malloc (buf.allocated); buf.fastmap = fastmap; buf.translate = upcase; while (1) { gets (pat); if (*pat) { re_compile_pattern (pat, strlen(pat), &buf); for (i = 0; i < buf.used; i++) printchar (buf.buffer[i]); putchar_unfiltered ('\n'); printf_unfiltered ("%d allocated, %d used.\n", buf.allocated, buf.used); re_compile_fastmap (&buf); printf_unfiltered ("Allowed by fastmap: "); for (i = 0; i < (1 << BYTEWIDTH); i++) if (fastmap[i]) printchar (i); putchar_unfiltered ('\n'); } gets (pat); /* Now read the string to match against */ i = re_match (&buf, pat, strlen (pat), 0, 0); printf_unfiltered ("Match value %d.\n", i); } } #ifdef NOTDEF print_buf (bufp) struct re_pattern_buffer *bufp; { int i; printf_unfiltered ("buf is :\n----------------\n"); for (i = 0; i < bufp->used; i++) printchar (bufp->buffer[i]); printf_unfiltered ("\n%d allocated, %d used.\n", bufp->allocated, bufp->used); printf_unfiltered ("Allowed by fastmap: "); for (i = 0; i < (1 << BYTEWIDTH); i++) if (bufp->fastmap[i]) printchar (i); printf_unfiltered ("\nAllowed by translate: "); if (bufp->translate) for (i = 0; i < (1 << BYTEWIDTH); i++) if (bufp->translate[i]) printchar (i); printf_unfiltered ("\nfastmap is%s accurate\n", bufp->fastmap_accurate ? "" : "n't"); printf_unfiltered ("can %s be null\n----------", bufp->can_be_null ? "" : "not"); } #endif printchar (c) char c; { if (c < 041 || c >= 0177) { putchar_unfiltered ('\\'); putchar_unfiltered (((c >> 6) & 3) + '0'); putchar_unfiltered (((c >> 3) & 7) + '0'); putchar_unfiltered ((c & 7) + '0'); } else putchar_unfiltered (c); } error (string) char *string; { puts_unfiltered (string); exit (1); } #endif /* test */ gdb-4.13/gdb/regex.h 666 34562 1752 17323 5461572015 12607 0ustar fnfcygnus/* Definitions for data structures callers pass the regex library. Copyright (C) 1985, 1989 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Define number of parens for which we record the beginnings and ends. This affects how much space the `struct re_registers' type takes up. */ #ifndef RE_NREGS #define RE_NREGS 10 #endif /* These bits are used in the obscure_syntax variable to choose among alternative regexp syntaxes. */ /* 1 means plain parentheses serve as grouping, and backslash parentheses are needed for literal searching. 0 means backslash-parentheses are grouping, and plain parentheses are for literal searching. */ #define RE_NO_BK_PARENS 1 /* 1 means plain | serves as the "or"-operator, and \| is a literal. 0 means \| serves as the "or"-operator, and | is a literal. */ #define RE_NO_BK_VBAR 2 /* 0 means plain + or ? serves as an operator, and \+, \? are literals. 1 means \+, \? are operators and plain +, ? are literals. */ #define RE_BK_PLUS_QM 4 /* 1 means | binds tighter than ^ or $. 0 means the contrary. */ #define RE_TIGHT_VBAR 8 /* 1 means treat \n as an _OR operator 0 means treat it as a normal character */ #define RE_NEWLINE_OR 16 /* 0 means that a special characters (such as *, ^, and $) always have their special meaning regardless of the surrounding context. 1 means that special characters may act as normal characters in some contexts. Specifically, this applies to: ^ - only special at the beginning, or after ( or | $ - only special at the end, or before ) or | *, +, ? - only special when not after the beginning, (, or | */ #define RE_CONTEXT_INDEP_OPS 32 /* Now define combinations of bits for the standard possibilities. */ #define RE_SYNTAX_AWK (RE_NO_BK_PARENS | RE_NO_BK_VBAR | RE_CONTEXT_INDEP_OPS) #define RE_SYNTAX_EGREP (RE_SYNTAX_AWK | RE_NEWLINE_OR) #define RE_SYNTAX_GREP (RE_BK_PLUS_QM | RE_NEWLINE_OR) #define RE_SYNTAX_EMACS 0 /* This data structure is used to represent a compiled pattern. */ struct re_pattern_buffer { char *buffer; /* Space holding the compiled pattern commands. */ int allocated; /* Size of space that buffer points to */ int used; /* Length of portion of buffer actually occupied */ char *fastmap; /* Pointer to fastmap, if any, or zero if none. */ /* re_search uses the fastmap, if there is one, to skip quickly over totally implausible characters */ char *translate; /* Translate table to apply to all characters before comparing. Or zero for no translation. The translation is applied to a pattern when it is compiled and to data when it is matched. */ char fastmap_accurate; /* Set to zero when a new pattern is stored, set to one when the fastmap is updated from it. */ char can_be_null; /* Set to one by compiling fastmap if this pattern might match the null string. It does not necessarily match the null string in that case, but if this is zero, it cannot. 2 as value means can match null string but at end of range or before a character listed in the fastmap. */ }; /* Structure to store "register" contents data in. Pass the address of such a structure as an argument to re_match, etc., if you want this information back. start[i] and end[i] record the string matched by \( ... \) grouping i, for i from 1 to RE_NREGS - 1. start[0] and end[0] record the entire string matched. */ struct re_registers { int start[RE_NREGS]; int end[RE_NREGS]; }; /* These are the command codes that appear in compiled regular expressions, one per byte. Some command codes are followed by argument bytes. A command code can specify any interpretation whatever for its arguments. Zero-bytes may appear in the compiled regular expression. */ enum regexpcode { unused, exactn, /* followed by one byte giving n, and then by n literal bytes */ begline, /* fails unless at beginning of line */ endline, /* fails unless at end of line */ jump, /* followed by two bytes giving relative address to jump to */ on_failure_jump, /* followed by two bytes giving relative address of place to resume at in case of failure. */ finalize_jump, /* Throw away latest failure point and then jump to address. */ maybe_finalize_jump, /* Like jump but finalize if safe to do so. This is used to jump back to the beginning of a repeat. If the command that follows this jump is clearly incompatible with the one at the beginning of the repeat, such that we can be sure that there is no use backtracking out of repetitions already completed, then we finalize. */ dummy_failure_jump, /* jump, and push a dummy failure point. This failure point will be thrown away if an attempt is made to use it for a failure. A + construct makes this before the first repeat. */ anychar, /* matches any one character */ charset, /* matches any one char belonging to specified set. First following byte is # bitmap bytes. Then come bytes for a bit-map saying which chars are in. Bits in each byte are ordered low-bit-first. A character is in the set if its bit is 1. A character too large to have a bit in the map is automatically not in the set */ charset_not, /* similar but match any character that is NOT one of those specified */ start_memory, /* starts remembering the text that is matched and stores it in a memory register. followed by one byte containing the register number. Register numbers must be in the range 0 through NREGS. */ stop_memory, /* stops remembering the text that is matched and stores it in a memory register. followed by one byte containing the register number. Register numbers must be in the range 0 through NREGS. */ duplicate, /* match a duplicate of something remembered. Followed by one byte containing the index of the memory register. */ before_dot, /* Succeeds if before dot */ at_dot, /* Succeeds if at dot */ after_dot, /* Succeeds if after dot */ begbuf, /* Succeeds if at beginning of buffer */ endbuf, /* Succeeds if at end of buffer */ wordchar, /* Matches any word-constituent character */ notwordchar, /* Matches any char that is not a word-constituent */ wordbeg, /* Succeeds if at word beginning */ wordend, /* Succeeds if at word end */ wordbound, /* Succeeds if at a word boundary */ notwordbound, /* Succeeds if not at a word boundary */ syntaxspec, /* Matches any character whose syntax is specified. followed by a byte which contains a syntax code, Sword or such like */ notsyntaxspec /* Matches any character whose syntax differs from the specified. */ }; extern char *re_compile_pattern (); /* Is this really advertised? */ extern void re_compile_fastmap (); extern int re_search (), re_search_2 (); extern int re_match (), re_match_2 (); /* 4.2 bsd compatibility (yuck) */ extern char *re_comp (); extern int re_exec (); #ifdef SYNTAX_TABLE extern char *re_syntax_table; #endif extern int re_set_syntax (); gdb-4.13/gdb/rem-multi.shar 666 34562 1752 73750 5110012112 14076 0ustar fnfcygnus#!/bin/sh # This is a shell archive. # Run the file through sh to extract its contents. # shar: Shell Archiver # Run the following text with /bin/sh to create: # Remote_Makefile # remote_gutils.c # remote_inflow.c # remote_server.c # remote_utils.c # This archive created: Fri Jun 23 17:06:55 1989 cat << \SHAR_EOF > Remote_Makefile # Makefile for the remote server for GDB, the GNU debugger. # Copyright (C) 1986, 1989 Free Software Foundation, Inc. # # This file is part of GDB. # # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. CFLAGS = -g CC = cc SERVER = remote_server.o\ remote_inflow.o\ remote_utils.o\ remote_gutils.o prog : $(SERVER) $(CC) -g -o serve $(SERVER) SHAR_EOF cat << \SHAR_EOF > remote_gutils.c /* General utility routines for the remote server for GDB, the GNU debugger. Copyright (C) 1986, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include "defs.h" void error (); void fatal (); /* Chain of cleanup actions established with make_cleanup, to be executed if an error happens. */ static struct cleanup *cleanup_chain; /* Nonzero means a quit has been requested. */ int quit_flag; /* Nonzero means quit immediately if Control-C is typed now, rather than waiting until QUIT is executed. */ int immediate_quit; /* Add a new cleanup to the cleanup_chain, and return the previous chain pointer to be passed later to do_cleanups or discard_cleanups. Args are FUNCTION to clean up with, and ARG to pass to it. */ struct cleanup * make_cleanup (function, arg) void (*function) (); int arg; { register struct cleanup *new = (struct cleanup *) xmalloc (sizeof (struct cleanup)); register struct cleanup *old_chain = cleanup_chain; new->next = cleanup_chain; new->function = function; new->arg = arg; cleanup_chain = new; return old_chain; } /* Discard cleanups and do the actions they describe until we get back to the point OLD_CHAIN in the cleanup_chain. */ void do_cleanups (old_chain) register struct cleanup *old_chain; { register struct cleanup *ptr; while ((ptr = cleanup_chain) != old_chain) { (*ptr->function) (ptr->arg); cleanup_chain = ptr->next; free (ptr); } } /* Discard cleanups, not doing the actions they describe, until we get back to the point OLD_CHAIN in the cleanup_chain. */ void discard_cleanups (old_chain) register struct cleanup *old_chain; { register struct cleanup *ptr; while ((ptr = cleanup_chain) != old_chain) { cleanup_chain = ptr->next; free (ptr); } } /* This function is useful for cleanups. Do foo = xmalloc (...); old_chain = make_cleanup (free_current_contents, &foo); to arrange to free the object thus allocated. */ void free_current_contents (location) char **location; { free (*location); } /* Generally useful subroutines used throughout the program. */ /* Like malloc but get error if no storage available. */ char * xmalloc (size) long size; { register char *val = (char *) malloc (size); if (!val) fatal ("virtual memory exhausted.", 0); return val; } /* Like realloc but get error if no storage available. */ char * xrealloc (ptr, size) char *ptr; long size; { register char *val = (char *) realloc (ptr, size); if (!val) fatal ("virtual memory exhausted.", 0); return val; } /* Print the system error message for errno, and also mention STRING as the file name for which the error was encountered. Then return to command level. */ void perror_with_name (string) char *string; { extern int sys_nerr; extern char *sys_errlist[]; extern int errno; char *err; char *combined; if (errno < sys_nerr) err = sys_errlist[errno]; else err = "unknown error"; combined = (char *) alloca (strlen (err) + strlen (string) + 3); strcpy (combined, string); strcat (combined, ": "); strcat (combined, err); error ("%s.", combined); } /* Print the system error message for ERRCODE, and also mention STRING as the file name for which the error was encountered. */ void print_sys_errmsg (string, errcode) char *string; int errcode; { extern int sys_nerr; extern char *sys_errlist[]; char *err; char *combined; if (errcode < sys_nerr) err = sys_errlist[errcode]; else err = "unknown error"; combined = (char *) alloca (strlen (err) + strlen (string) + 3); strcpy (combined, string); strcat (combined, ": "); strcat (combined, err); printf ("%s.\n", combined); } void quit () { fflush (stdout); ioctl (fileno (stdout), TIOCFLUSH, 0); error ("Quit"); } /* Control C comes here */ void request_quit () { quit_flag = 1; if (immediate_quit) quit (); } /* Print an error message and return to command level. STRING is the error message, used as a fprintf string, and ARG is passed as an argument to it. */ void error (string, arg1, arg2, arg3) char *string; int arg1, arg2, arg3; { fflush (stdout); fprintf (stderr, string, arg1, arg2, arg3); fprintf (stderr, "\n"); /************return_to_top_level ();************/ } /* Print an error message and exit reporting failure. This is for a error that we cannot continue from. STRING and ARG are passed to fprintf. */ void fatal (string, arg) char *string; int arg; { fprintf (stderr, "gdb: "); fprintf (stderr, string, arg); fprintf (stderr, "\n"); exit (1); } /* Make a copy of the string at PTR with SIZE characters (and add a null character at the end in the copy). Uses malloc to get the space. Returns the address of the copy. */ char * savestring (ptr, size) char *ptr; int size; { register char *p = (char *) xmalloc (size + 1); bcopy (ptr, p, size); p[size] = 0; return p; } void print_spaces (n, file) register int n; register FILE *file; { while (n-- > 0) fputc (' ', file); } /* Ask user a y-or-n question and return 1 iff answer is yes. Takes three args which are given to printf to print the question. The first, a control string, should end in "? ". It should not say how to answer, because we do that. */ int query (ctlstr, arg1, arg2) char *ctlstr; { register int answer; /* Automatically answer "yes" if input is not from a terminal. */ /***********if (!input_from_terminal_p ()) return 1; *************************/ while (1) { printf (ctlstr, arg1, arg2); printf ("(y or n) "); fflush (stdout); answer = fgetc (stdin); clearerr (stdin); /* in case of C-d */ if (answer != '\n') while (fgetc (stdin) != '\n') clearerr (stdin); if (answer >= 'a') answer -= 040; if (answer == 'Y') return 1; if (answer == 'N') return 0; printf ("Please answer y or n.\n"); } } /* Parse a C escape sequence. STRING_PTR points to a variable containing a pointer to the string to parse. That pointer is updated past the characters we use. The value of the escape sequence is returned. A negative value means the sequence \ newline was seen, which is supposed to be equivalent to nothing at all. If \ is followed by a null character, we return a negative value and leave the string pointer pointing at the null character. If \ is followed by 000, we return 0 and leave the string pointer after the zeros. A value of 0 does not mean end of string. */ int parse_escape (string_ptr) char **string_ptr; { register int c = *(*string_ptr)++; switch (c) { case 'a': return '\a'; case 'b': return '\b'; case 'e': return 033; case 'f': return '\f'; case 'n': return '\n'; case 'r': return '\r'; case 't': return '\t'; case 'v': return '\v'; case '\n': return -2; case 0: (*string_ptr)--; return 0; case '^': c = *(*string_ptr)++; if (c == '\\') c = parse_escape (string_ptr); if (c == '?') return 0177; return (c & 0200) | (c & 037); case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': { register int i = c - '0'; register int count = 0; while (++count < 3) { if ((c = *(*string_ptr)++) >= '0' && c <= '7') { i *= 8; i += c - '0'; } else { (*string_ptr)--; break; } } return i; } default: return c; } } void printchar (ch, stream) unsigned char ch; FILE *stream; { register int c = ch; if (c < 040 || c >= 0177) { if (c == '\n') fprintf (stream, "\\n"); else if (c == '\b') fprintf (stream, "\\b"); else if (c == '\t') fprintf (stream, "\\t"); else if (c == '\f') fprintf (stream, "\\f"); else if (c == '\r') fprintf (stream, "\\r"); else if (c == 033) fprintf (stream, "\\e"); else if (c == '\a') fprintf (stream, "\\a"); else fprintf (stream, "\\%03o", c); } else { if (c == '\\' || c == '"' || c == '\'') fputc ('\\', stream); fputc (c, stream); } } SHAR_EOF cat << \SHAR_EOF > remote_inflow.c /* Low level interface to ptrace, for GDB when running under Unix. Copyright (C) 1986, 1987 Free Software Foundation, Inc. */ #include "defs.h" #include "param.h" #include "wait.h" #include "frame.h" #include "inferior.h" /*************************** #include "initialize.h" ****************************/ #include #include #include #include #include #include #include #include /***************Begin MY defs*********************/ int quit_flag = 0; char registers[REGISTER_BYTES]; /* Index within `registers' of the first byte of the space for register N. */ char buf2[MAX_REGISTER_RAW_SIZE]; /***************End MY defs*********************/ #ifdef NEW_SUN_PTRACE #include #include #endif extern char **environ; extern int errno; extern int inferior_pid; void error(), quit(), perror_with_name(); int query(); void supply_register(), write_register(); CORE_ADDR read_register(); /* Nonzero if we are debugging an attached outside process rather than an inferior. */ /* Start an inferior process and returns its pid. ALLARGS is a vector of program-name and args. ENV is the environment vector to pass. */ int create_inferior (allargs, env) char **allargs; char **env; { int pid; extern int sys_nerr; extern char *sys_errlist[]; extern int errno; /* exec is said to fail if the executable is open. */ /****************close_exec_file ();*****************/ pid = vfork (); if (pid < 0) perror_with_name ("vfork"); if (pid == 0) { /* Run inferior in a separate process group. */ setpgrp (getpid (), getpid ()); /* Not needed on Sun, at least, and loses there because it clobbers the superior. */ /*??? signal (SIGQUIT, SIG_DFL); signal (SIGINT, SIG_DFL); */ errno = 0; ptrace (0); execle ("/bin/sh", "sh", "-c", allargs, 0, env); fprintf (stderr, "Cannot exec /bin/sh: %s.\n", errno < sys_nerr ? sys_errlist[errno] : "unknown error"); fflush (stderr); _exit (0177); } return pid; } /* Kill the inferior process. Make us have no inferior. */ kill_inferior () { if (inferior_pid == 0) return; ptrace (8, inferior_pid, 0, 0); wait (0); /*************inferior_died ();****VK**************/ } /* Resume execution of the inferior process. If STEP is nonzero, single-step it. If SIGNAL is nonzero, give it that signal. */ unsigned char resume (step, signal,status) int step; int signal; char *status; { int pid ; WAITTYPE w; errno = 0; ptrace (step ? 9 : 7, inferior_pid, 1, signal); if (errno) perror_with_name ("ptrace"); pid = wait(&w); if(pid != inferior_pid) perror_with_name ("wait"); if(WIFEXITED(w)) { printf("\nchild exited with retcode = %x \n",WRETCODE(w)); *status = 'E'; return((unsigned char) WRETCODE(w)); } else if(!WIFSTOPPED(w)) { printf("\nchild did terminated with signal = %x \n",WTERMSIG(w)); *status = 'T'; return((unsigned char) WTERMSIG(w)); } else { printf("\nchild stopped with signal = %x \n",WSTOPSIG(w)); *status = 'S'; return((unsigned char) WSTOPSIG(w)); } } #ifdef NEW_SUN_PTRACE void fetch_inferior_registers () { struct regs inferior_registers; struct fp_status inferior_fp_registers; extern char registers[]; ptrace (PTRACE_GETREGS, inferior_pid, &inferior_registers); if (errno) perror_with_name ("ptrace"); /**********debugging begin **********/ print_some_registers(&inferior_registers); /**********debugging end **********/ ptrace (PTRACE_GETFPREGS, inferior_pid, &inferior_fp_registers); if (errno) perror_with_name ("ptrace"); bcopy (&inferior_registers, registers, 16 * 4); bcopy (&inferior_fp_registers, ®isters[REGISTER_BYTE (FP0_REGNUM)], sizeof inferior_fp_registers.fps_regs); *(int *)®isters[REGISTER_BYTE (PS_REGNUM)] = inferior_registers.r_ps; *(int *)®isters[REGISTER_BYTE (PC_REGNUM)] = inferior_registers.r_pc; bcopy (&inferior_fp_registers.fps_control, ®isters[REGISTER_BYTE (FPC_REGNUM)], sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ store_inferior_registers (regno) int regno; { struct regs inferior_registers; struct fp_status inferior_fp_registers; extern char registers[]; bcopy (registers, &inferior_registers, 16 * 4); bcopy (®isters[REGISTER_BYTE (FP0_REGNUM)], &inferior_fp_registers, sizeof inferior_fp_registers.fps_regs); inferior_registers.r_ps = *(int *)®isters[REGISTER_BYTE (PS_REGNUM)]; inferior_registers.r_pc = *(int *)®isters[REGISTER_BYTE (PC_REGNUM)]; bcopy (®isters[REGISTER_BYTE (FPC_REGNUM)], &inferior_fp_registers.fps_control, sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs); ptrace (PTRACE_SETREGS, inferior_pid, &inferior_registers); if (errno) perror_with_name ("ptrace"); ptrace (PTRACE_SETFPREGS, inferior_pid, &inferior_fp_registers); if (errno) perror_with_name ("ptrace"); } #endif /* not NEW_SUN_PTRACE */ /* NOTE! I tried using PTRACE_READDATA, etc., to read and write memory in the NEW_SUN_PTRACE case. It ought to be straightforward. But it appears that writing did not write the data that I specified. I cannot understand where it got the data that it actually did write. */ /* Copy LEN bytes from inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. */ read_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & - sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (int)) { buffer[i] = ptrace (1, inferior_pid, addr, 0); } /* Copy appropriate bytes out of the buffer. */ bcopy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. On failure (cannot write the inferior) returns the value of errno. */ int write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & - sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); extern int errno; /* Fill start and end extra bytes of buffer with existing memory data. */ buffer[0] = ptrace (1, inferior_pid, addr, 0); if (count > 1) { buffer[count - 1] = ptrace (1, inferior_pid, addr + (count - 1) * sizeof (int), 0); } /* Copy data to be written over corresponding part of buffer */ bcopy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; ptrace (4, inferior_pid, addr, buffer[i]); if (errno) return errno; } return 0; } void try_writing_regs_command () { register int i; register int value; extern int errno; if (inferior_pid == 0) error ("There is no inferior process now."); fetch_inferior_registers(); for (i = 0;i<18 ; i ++) { QUIT; errno = 0; value = read_register(i); write_register ( i, value); if (errno == 0) { printf (" Succeeded with register %d; value 0x%x (%d).\n", i, value, value); } else printf (" Failed with register %d.\n", i); } } void initialize () { inferior_pid = 0; } /* Return the contents of register REGNO, regarding it as an integer. */ CORE_ADDR read_register (regno) int regno; { /* This loses when REGISTER_RAW_SIZE (regno) != sizeof (int) */ return *(int *) ®isters[REGISTER_BYTE (regno)]; } /* Store VALUE in the register number REGNO, regarded as an integer. */ void write_register (regno, val) int regno, val; { /* This loses when REGISTER_RAW_SIZE (regno) != sizeof (int) */ *(int *) ®isters[REGISTER_BYTE (regno)] = val; if (have_inferior_p ()) store_inferior_registers (regno); } int have_inferior_p () { return inferior_pid != 0; } print_some_registers(regs) int regs[]; { register int i; for (i = 0; i < 18; i++) { printf("reg[%d] = %x\n", i, regs[i]); } } SHAR_EOF cat << \SHAR_EOF > remote_server.c /* Main code for remote server for GDB, the GNU Debugger. Copyright (C) 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "param.h" #include void read_inferior_memory(), fetch_inferior_registers(); unsigned char resume(); void kill_inferior(); void initialize(), try_writing_regs_command(); int create_inferior(), read_register(); extern char registers[]; int inferior_pid; extern char **environ; /* Descriptor for I/O to remote machine. */ int remote_desc; int kiodebug = 0; int remote_debugging; void remote_send (); void putpkt (); void getpkt (); void remote_open(); void write_ok(); void write_enn(); void convert_ascii_to_int(); void convert_int_to_ascii(); void prepare_resume_reply(); void decode_m_packet(); void decode_M_packet(); main(argc,argv) int argc; char *argv[]; { char ch,status, own_buf[2000], mem_buf[2000]; int i=0; unsigned char signal; unsigned int mem_addr, len; initialize(); printf("\nwill open serial link\n"); remote_open("/dev/ttya",0); if(argc < 2) { printf("Enter name of program to be run with command line args\n"); gets(own_buf); inferior_pid = create_inferior(own_buf,environ); printf("\nProcess %s created; pid = %d\n",own_buf,inferior_pid); } else { inferior_pid = create_inferior(argv[1],environ); printf("\nProcess %s created; pid = %d\n",argv[1],inferior_pid); } do { getpkt(own_buf); printf("\nPacket received is>:%s\n",own_buf); i = 0; ch = own_buf[i++]; switch (ch) { case 'h': /**********This is only for tweaking the gdb+ program *******/ signal = resume(1,0,&status); prepare_resume_reply(own_buf,status,signal); break; /*************end tweak*************************************/ case 'g': fetch_inferior_registers(); convert_int_to_ascii(registers,own_buf,REGISTER_BYTES); break; case 'G': convert_ascii_to_int(&own_buf[1],registers,REGISTER_BYTES); if(store_inferior_registers(-1)==0) write_ok(own_buf); else write_enn(own_buf); break; case 'm': decode_m_packet(&own_buf[1],&mem_addr,&len); read_inferior_memory(mem_addr,mem_buf,len); convert_int_to_ascii(mem_buf,own_buf,len); break; case 'M': decode_M_packet(&own_buf[1],&mem_addr,&len,mem_buf); if(write_inferior_memory(mem_addr,mem_buf,len)==0) write_ok(own_buf); else write_enn(own_buf); break; case 'c': signal = resume(0,0,&status); printf("\nSignal received is >: %0x \n",signal); prepare_resume_reply(own_buf,status,signal); break; case 's': signal = resume(1,0,&status); prepare_resume_reply(own_buf,status,signal); break; case 'k': kill_inferior(); sprintf(own_buf,"q"); putpkt(own_buf); printf("\nObtained kill request...terminating\n"); close(remote_desc); exit(0); case 't': try_writing_regs_command(); own_buf[0] = '\0'; break; default : printf("\nUnknown option chosen by master\n"); write_enn(own_buf); break; } putpkt(own_buf); } while(1) ; close(remote_desc); /** now get out of here**/ printf("\nFinished reading data from serial link - Bye!\n"); exit(0); } SHAR_EOF cat << \SHAR_EOF > remote_utils.c /* Remote utility routines for the remote server for GDB, the GNU debugger. Copyright (C) 1986, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "param.h" #include #include #include #include #include #include #include extern int remote_desc; extern int remote_debugging; extern int kiodebug; void remote_open(); void remote_send(); void putpkt(); void getpkt(); void write_ok(); void write_enn(); void convert_ascii_to_int(); void convert_int_to_ascii(); void prepare_resume_reply(); /* Open a connection to a remote debugger. NAME is the filename used for communication. */ void remote_open (name, from_tty) char *name; int from_tty; { struct sgttyb sg; remote_debugging = 0; remote_desc = open (name, O_RDWR); if (remote_desc < 0) printf("\ncould not open remote device\n"); ioctl (remote_desc, TIOCGETP, &sg); sg.sg_flags = RAW; ioctl (remote_desc, TIOCSETP, &sg); if (from_tty) printf ("Remote debugging using %s\n", name); remote_debugging = 1; } /* Convert hex digit A to a number. */ static int fromhex (a) int a; { if (a >= '0' && a <= '9') return a - '0'; else if (a >= 'a' && a <= 'f') return a - 'a' + 10; else perror ("Reply contains invalid hex digit"); } /* Convert number NIB to a hex digit. */ static int tohex (nib) int nib; { if (nib < 10) return '0'+nib; else return 'a'+nib-10; } /* Send the command in BUF to the remote machine, and read the reply into BUF. Report an error if we get an error reply. */ void remote_send (buf) char *buf; { putpkt (buf); getpkt (buf); if (buf[0] == 'E') perror ("Remote failure reply: %s", buf); } /* Send a packet to the remote machine, with error checking. The data of the packet is in BUF. */ void putpkt (buf) char *buf; { int i; unsigned char csum = 0; char buf2[500]; char buf3[1]; int cnt = strlen (buf); char *p; if (kiodebug) fprintf (stderr, "Sending packet: %s\n", buf); /* Copy the packet into buffer BUF2, encapsulating it and giving it a checksum. */ p = buf2; *p++ = '$'; for (i = 0; i < cnt; i++) { csum += buf[i]; *p++ = buf[i]; } *p++ = '#'; *p++ = tohex ((csum >> 4) & 0xf); *p++ = tohex (csum & 0xf); /* Send it over and over until we get a positive ack. */ do { write (remote_desc, buf2, p - buf2); read (remote_desc, buf3, 1); } while (buf3[0] != '+'); } static int readchar () { char buf[1]; while (read (remote_desc, buf, 1) != 1) ; return buf[0] & 0x7f; } /* Read a packet from the remote machine, with error checking, and store it in BUF. */ void getpkt (buf) char *buf; { char *bp; unsigned char csum, c, c1, c2; extern kiodebug; while (1) { csum = 0; while ((c = readchar()) != '$'); bp = buf; while (1) { c = readchar (); if (c == '#') break; *bp++ = c; csum += c; } *bp = 0; c1 = fromhex (readchar ()); c2 = fromhex (readchar ()); if (csum == (c1 << 4) + c2) break; printf ("Bad checksum, sentsum=0x%x, csum=0x%x, buf=%s\n", (c1 << 4) + c2, csum, buf); write (remote_desc, "-", 1); } write (remote_desc, "+", 1); if (kiodebug) fprintf (stderr,"Packet received :%s\n", buf); } void write_ok(buf) char *buf; { buf[0] = 'O'; buf[1] = 'k'; buf[2] = '\0'; } void write_enn(buf) char *buf; { buf[0] = 'E'; buf[1] = 'N'; buf[2] = 'N'; buf[3] = '\0'; } void convert_int_to_ascii(from,to,n) char *from, *to; int n; { int nib ; char ch; while( n-- ) { ch = *from++; nib = ((ch & 0xf0) >> 4)& 0x0f; *to++ = tohex(nib); nib = ch & 0x0f; *to++ = tohex(nib); } *to++ = 0; } void convert_ascii_to_int(from,to,n) char *from, *to; int n; { int nib1,nib2 ; while( n-- ) { nib1 = fromhex(*from++); nib2 = fromhex(*from++); *to++ = (((nib1 & 0x0f)<< 4)& 0xf0) | (nib2 & 0x0f); } } void prepare_resume_reply(buf,status,signal) char *buf ,status; unsigned char signal; { int nib; char ch; *buf++ = 'S'; *buf++ = status; nib = ((signal & 0xf0) >> 4) ; *buf++ = tohex(nib); nib = signal & 0x0f; *buf++ = tohex(nib); *buf++ = 0; } void decode_m_packet(from,mem_addr_ptr,len_ptr) char *from; unsigned int *mem_addr_ptr, *len_ptr; { int i = 0, j = 0 ; char ch; *mem_addr_ptr = *len_ptr = 0; /************debugging begin************/ printf("\nIn decode_m_packet"); /************debugging end************/ while((ch = from[i++]) != ',') { *mem_addr_ptr = *mem_addr_ptr << 4; *mem_addr_ptr |= fromhex(ch) & 0x0f; } /************debugging begin************/ printf("\nFinished mem_addr part"); /************debugging end************/ for(j=0; j < 4; j++) { if((ch = from[i++]) == 0) break; *len_ptr = *len_ptr << 4; *len_ptr |= fromhex(ch) & 0x0f; } /************debugging begin************/ printf("\nFinished len_ptr part"); /************debugging end************/ } void decode_M_packet(from,mem_addr_ptr,len_ptr,to) char *from, *to; unsigned int *mem_addr_ptr, *len_ptr; { int i = 0, j = 0 ; char ch; *mem_addr_ptr = *len_ptr = 0; /************debugging begin************/ printf("\nIn decode_M_packet"); /************debugging end************/ while((ch = from[i++]) != ',') { *mem_addr_ptr = *mem_addr_ptr << 4; *mem_addr_ptr |= fromhex(ch) & 0x0f; } /************debugging begin************/ printf("\nFinished mem_addr part: memaddr = %x",*mem_addr_ptr); /************debugging end************/ while((ch = from[i++]) != ':') { *len_ptr = *len_ptr << 4; *len_ptr |= fromhex(ch) & 0x0f; } /************debugging begin************/ printf("\nFinished len_ptr part: len = %d",*len_ptr); /************debugging end************/ convert_ascii_to_int(&from[i++],to,*len_ptr); /************debugging begin************/ printf("\nmembuf : %x",*(int *)to); /************debugging end************/ } SHAR_EOF # End of shell archive exit 0 gdb-4.13/gdb/remote-adapt.c 666 34562 1752 104105 5513036613 14062 0ustar fnfcygnus/* Remote debugging interface for AMD 290*0 Adapt Monitor Version 2.1d18. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. Contributed by David Wood at New York University (wood@lab.ultra.nyu.edu). Adapted from work done at Cygnus Support in remote-eb.c. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is like remote.c but is for an esoteric situation-- having a 29k board attached to an Adapt inline monitor. The monitor is connected via serial line to a unix machine running gdb. 3/91 - developed on Sun3 OS 4.1, by David Wood o - I can't get binary coff to load. o - I can't get 19200 baud rate to work. 7/91 o - Freeze mode tracing can be done on a 29050. */ #include "defs.h" #include #include "inferior.h" #include "wait.h" #include "value.h" #include #include #include #include #include "terminal.h" #include "target.h" #include "gdbcore.h" /* External data declarations */ extern int stop_soon_quietly; /* for wait_for_inferior */ /* Forward data declarations */ extern struct target_ops adapt_ops; /* Forward declaration */ /* Forward function declarations */ static void adapt_fetch_registers (); static void adapt_store_registers (); static void adapt_close (); static int adapt_clear_breakpoints(); #define FREEZE_MODE (read_register(CPS_REGNUM) && 0x400) #define USE_SHADOW_PC ((processor_type == a29k_freeze_mode) && FREEZE_MODE) /* Can't seem to get binary coff working */ #define ASCII_COFF /* Adapt will be downloaded with ascii coff */ /* FIXME: Replace with `set remotedebug'. */ #define LOG_FILE "adapt.log" #if defined (LOG_FILE) FILE *log_file=NULL; #endif static int timeout = 5; static char *dev_name; /* Descriptor for I/O to remote machine. Initialize it to -1 so that adapt_open knows that we don't have a file open when the program starts. */ int adapt_desc = -1; /* stream which is fdopen'd from adapt_desc. Only valid when adapt_desc != -1. */ FILE *adapt_stream; #define ON 1 #define OFF 0 static void rawmode(desc, turnon) int desc; int turnon; { TERMINAL sg; if (desc < 0) return; ioctl (desc, TIOCGETP, &sg); if (turnon) { #ifdef HAVE_TERMIO sg.c_lflag &= ~(ICANON); #else sg.sg_flags |= RAW; #endif } else { #ifdef HAVE_TERMIO sg.c_lflag |= ICANON; #else sg.sg_flags &= ~(RAW); #endif } ioctl (desc, TIOCSETP, &sg); } /* Suck up all the input from the adapt */ slurp_input() { char buf[8]; #ifdef HAVE_TERMIO /* termio does the timeout for us. */ while (read (adapt_desc, buf, 8) > 0); #else alarm (timeout); while (read (adapt_desc, buf, 8) > 0); alarm (0); #endif } /* Read a character from the remote system, doing all the fancy timeout stuff. */ static int readchar () { char buf; buf = '\0'; #ifdef HAVE_TERMIO /* termio does the timeout for us. */ read (adapt_desc, &buf, 1); #else alarm (timeout); if (read (adapt_desc, &buf, 1) < 0) { if (errno == EINTR) error ("Timeout reading from remote system."); else perror_with_name ("remote"); } alarm (0); #endif if (buf == '\0') error ("Timeout reading from remote system."); #if defined (LOG_FILE) putc (buf & 0x7f, log_file); #endif return buf & 0x7f; } /* Keep discarding input from the remote system, until STRING is found. Let the user break out immediately. */ static void expect (string) char *string; { char *p = string; fflush(adapt_stream); immediate_quit = 1; while (1) { if (readchar() == *p) { p++; if (*p == '\0') { immediate_quit = 0; return; } } else p = string; } } /* Keep discarding input until we see the adapt prompt. The convention for dealing with the prompt is that you o give your command o *then* wait for the prompt. Thus the last thing that a procedure does with the serial line will be an expect_prompt(). Exception: adapt_resume does not wait for the prompt, because the terminal is being handed over to the inferior. However, the next thing which happens after that is a adapt_wait which does wait for the prompt. Note that this includes abnormal exit, e.g. error(). This is necessary to prevent getting into states from which we can't recover. */ static void expect_prompt () { #if defined (LOG_FILE) /* This is a convenient place to do this. The idea is to do it often enough that we never lose much data if we terminate abnormally. */ fflush (log_file); #endif fflush(adapt_stream); expect ("\n# "); } /* Get a hex digit from the remote system & return its value. If ignore_space is nonzero, ignore spaces (not newline, tab, etc). */ static int get_hex_digit (ignore_space) int ignore_space; { int ch; while (1) { ch = readchar (); if (ch >= '0' && ch <= '9') return ch - '0'; else if (ch >= 'A' && ch <= 'F') return ch - 'A' + 10; else if (ch >= 'a' && ch <= 'f') return ch - 'a' + 10; else if (ch == ' ' && ignore_space) ; else { expect_prompt (); error ("Invalid hex digit from remote system."); } } } /* Get a byte from adapt_desc and put it in *BYT. Accept any number leading spaces. */ static void get_hex_byte (byt) char *byt; { int val; val = get_hex_digit (1) << 4; val |= get_hex_digit (0); *byt = val; } /* Read a 32-bit hex word from the adapt, preceded by a space */ static long get_hex_word() { long val; int j; val = 0; for (j = 0; j < 8; j++) val = (val << 4) + get_hex_digit (j == 0); return val; } /* Get N 32-bit hex words from remote, each preceded by a space and put them in registers starting at REGNO. */ static void get_hex_regs (n, regno) int n; int regno; { long val; while (n--) { val = get_hex_word(); supply_register(regno++,(char *) &val); } } /* Called when SIGALRM signal sent due to alarm() timeout. */ #ifndef HAVE_TERMIO #ifndef __STDC__ # ifndef volatile # define volatile /**/ # endif #endif volatile int n_alarms; void adapt_timer () { #if 0 if (kiodebug) printf ("adapt_timer called\n"); #endif n_alarms++; } #endif /* malloc'd name of the program on the remote system. */ static char *prog_name = NULL; /* Number of SIGTRAPs we need to simulate. That is, the next NEED_ARTIFICIAL_TRAP calls to adapt_wait should just return SIGTRAP without actually waiting for anything. */ static int need_artificial_trap = 0; void adapt_kill(arg,from_tty) char *arg; int from_tty; { fprintf (adapt_stream, "K"); fprintf (adapt_stream, "\r"); expect_prompt (); } /* * Download a file specified in 'args', to the adapt. * FIXME: Assumes the file to download is a binary coff file. */ static void adapt_load(args,fromtty) char *args; int fromtty; { FILE *fp; int n; char buffer[1024]; if (!adapt_stream) { printf_filtered("Adapt not open. Use 'target' command to open adapt\n"); return; } /* OK, now read in the file. Y=read, C=COFF, T=dTe port 0=start address. */ #ifdef ASCII_COFF /* Ascii coff */ fprintf (adapt_stream, "YA T,0\r"); fflush(adapt_stream); /* Just in case */ /* FIXME: should check args for only 1 argument */ sprintf(buffer,"cat %s | btoa > /tmp/#adapt-btoa",args); system(buffer); fp = fopen("/tmp/#adapt-btoa","r"); rawmode(adapt_desc,OFF); while (n=fread(buffer,1,1024,fp)) { do { n -= write(adapt_desc,buffer,n); } while (n>0); if (n<0) { perror("writing ascii coff"); break; } } fclose(fp); rawmode(adapt_desc,ON); system("rm /tmp/#adapt-btoa"); #else /* Binary coff - can't get it to work .*/ fprintf (adapt_stream, "YC T,0\r"); fflush(adapt_stream); /* Just in case */ if (!(fp = fopen(args,"r"))) { printf_filtered("Can't open %s\n",args); return; } while (n=fread(buffer,1,512,fp)) { do { n -= write(adapt_desc,buffer,n); } while (n>0); if (n<0) { perror("writing ascii coff"); break; } } fclose(fp); #endif expect_prompt (); /* Skip garbage that comes out */ fprintf (adapt_stream, "\r"); expect_prompt (); } /* This is called not only when we first attach, but also when the user types "run" after having attached. */ void adapt_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; if (args && *args) error ("Can't pass arguments to remote adapt process."); if (execfile == 0 || exec_bfd == 0) error ("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); if (adapt_stream) { adapt_kill(NULL,NULL); adapt_clear_breakpoints(); init_wait_for_inferior (); /* Clear the input because what the adapt sends back is different * depending on whether it was running or not. */ slurp_input(); /* After this there should be a prompt */ fprintf(adapt_stream,"\r"); expect_prompt(); printf_filtered("Do you want to download '%s' (y/n)? [y] : ",prog_name); { char buffer[10]; gets(buffer); if (*buffer != 'n') { adapt_load(prog_name,0); } } #ifdef NOTDEF /* Set the PC and wait for a go/cont */ fprintf (adapt_stream, "G %x,N\r",entry_pt); printf_filtered("Now use the 'continue' command to start.\n"); expect_prompt (); #else insert_breakpoints (); /* Needed to get correct instruction in cache */ proceed(entry_pt, TARGET_SIGNAL_DEFAULT, 0); #endif } else { printf_filtered("Adapt not open yet.\n"); } } /* Translate baud rates from integers to damn B_codes. Unix should have outgrown this crap years ago, but even POSIX wouldn't buck it. */ #ifndef B19200 #define B19200 EXTA #endif #ifndef B38400 #define B38400 EXTB #endif static struct {int rate, damn_b;} baudtab[] = { {0, B0}, {50, B50}, {75, B75}, {110, B110}, {134, B134}, {150, B150}, {200, B200}, {300, B300}, {600, B600}, {1200, B1200}, {1800, B1800}, {2400, B2400}, {4800, B4800}, {9600, B9600}, {19200, B19200}, {38400, B38400}, {-1, -1}, }; static int damn_b (rate) int rate; { int i; for (i = 0; baudtab[i].rate != -1; i++) if (rate == baudtab[i].rate) return baudtab[i].damn_b; return B38400; /* Random */ } /* Open a connection to a remote debugger. NAME is the filename used for communication, then a space, then the baud rate. */ static int baudrate = 9600; static void adapt_open (name, from_tty) char *name; int from_tty; { TERMINAL sg; unsigned int prl; char *p; /* Find the first whitespace character, it separates dev_name from prog_name. */ if (name == 0) goto erroid; for (p = name; *p != '\0' && !isspace (*p); p++) ; if (*p == '\0') erroid: error ("\ Please include the name of the device for the serial port,\n\ the baud rate, and the name of the program to run on the remote system."); dev_name = (char*)malloc(p - name + 1); strncpy (dev_name, name, p - name); dev_name[p - name] = '\0'; /* Skip over the whitespace after dev_name */ for (; isspace (*p); p++) /*EMPTY*/; if (1 != sscanf (p, "%d ", &baudrate)) goto erroid; /* Skip the number and then the spaces */ for (; isdigit (*p); p++) /*EMPTY*/; for (; isspace (*p); p++) /*EMPTY*/; if (prog_name != NULL) free (prog_name); prog_name = savestring (p, strlen (p)); adapt_close (0); adapt_desc = open (dev_name, O_RDWR); if (adapt_desc < 0) perror_with_name (dev_name); ioctl (adapt_desc, TIOCGETP, &sg); #ifdef HAVE_TERMIO sg.c_cc[VMIN] = 0; /* read with timeout. */ sg.c_cc[VTIME] = timeout * 10; sg.c_lflag &= ~(ICANON | ECHO); sg.c_cflag = (sg.c_cflag & ~CBAUD) | damn_b (baudrate); #else sg.sg_ispeed = damn_b (baudrate); sg.sg_ospeed = damn_b (baudrate); sg.sg_flags |= RAW | ANYP; sg.sg_flags &= ~ECHO; #endif ioctl (adapt_desc, TIOCSETP, &sg); adapt_stream = fdopen (adapt_desc, "r+"); push_target (&adapt_ops); #ifndef HAVE_TERMIO #ifndef NO_SIGINTERRUPT /* Cause SIGALRM's to make reads fail with EINTR instead of resuming the read. */ if (siginterrupt (SIGALRM, 1) != 0) perror ("adapt_open: error in siginterrupt"); #endif /* Set up read timeout timer. */ if ((void (*)) signal (SIGALRM, adapt_timer) == (void (*)) -1) perror ("adapt_open: error in signal"); #endif #if defined (LOG_FILE) log_file = fopen (LOG_FILE, "w"); if (log_file == NULL) perror_with_name (LOG_FILE); #endif /* Put this port into NORMAL mode, send the 'normal' character */ write(adapt_desc, "", 1); /* Control A */ write(adapt_desc, "\r", 1); expect_prompt (); /* Hello? Are you there? */ write (adapt_desc, "\r", 1); expect_prompt (); /* Clear any break points */ adapt_clear_breakpoints(); /* Print out some stuff, letting the user now what's going on */ printf_filtered("Connected to an Adapt via %s.\n", dev_name); /* FIXME: can this restriction be removed? */ printf_filtered("Remote debugging using virtual addresses works only\n"); printf_filtered("\twhen virtual addresses map 1:1 to physical addresses.\n"); if (processor_type != a29k_freeze_mode) { fprintf_filtered(stderr, "Freeze-mode debugging not available, and can only be done on an A29050.\n"); } } /* Close out all files and local state before this target loses control. */ static void adapt_close (quitting) int quitting; { /* Clear any break points */ adapt_clear_breakpoints(); /* Put this port back into REMOTE mode */ if (adapt_stream) { fflush(adapt_stream); sleep(1); /* Let any output make it all the way back */ write(adapt_desc, "R\r", 2); } /* Due to a bug in Unix, fclose closes not only the stdio stream, but also the file descriptor. So we don't actually close adapt_desc. */ if (adapt_stream) fclose (adapt_stream); /* This also closes adapt_desc */ if (adapt_desc >= 0) /* close (adapt_desc); */ /* Do not try to close adapt_desc again, later in the program. */ adapt_stream = NULL; adapt_desc = -1; #if defined (LOG_FILE) if (log_file) { if (ferror (log_file)) printf_filtered ("Error writing log file.\n"); if (fclose (log_file) != 0) printf_filtered ("Error closing log file.\n"); log_file = NULL; } #endif } /* Attach to the target that is already loaded and possibly running */ static void adapt_attach (args, from_tty) char *args; int from_tty; { if (from_tty) printf_filtered ("Attaching to remote program %s.\n", prog_name); /* Send the adapt a kill. It is ok if it is not already running */ fprintf(adapt_stream, "K\r"); fflush(adapt_stream); expect_prompt(); /* Slurp the echo */ } /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ void adapt_detach (args,from_tty) char *args; int from_tty; { if (adapt_stream) { /* Send it on its way (tell it to continue) */ adapt_clear_breakpoints(); fprintf(adapt_stream,"G\r"); } pop_target(); /* calls adapt_close to do the real work */ if (from_tty) printf_filtered ("Ending remote %s debugging\n", target_shortname); } /* Tell the remote machine to resume. */ void adapt_resume (pid, step, sig) int pid, step; enum target_signal sig; { if (step) { write (adapt_desc, "t 1,s\r", 6); /* Wait for the echo. */ expect ("t 1,s\r\n"); /* Then comes a line containing the instruction we stepped to. */ expect ("@"); /* Then we get the prompt. */ expect_prompt (); /* Force the next adapt_wait to return a trap. Not doing anything about I/O from the target means that the user has to type "continue" to see any. FIXME, this should be fixed. */ need_artificial_trap = 1; } else { write (adapt_desc, "G\r", 2); /* Swallow the echo. */ expect_prompt(); } } /* Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. */ int adapt_wait (status) struct target_waitstatus *status; { /* Strings to look for. '?' means match any single character. Note that with the algorithm we use, the initial character of the string cannot recur in the string, or we will not find some cases of the string in the input. */ static char bpt[] = "@"; /* It would be tempting to look for "\n[__exit + 0x8]\n" but that requires loading symbols with "yc i" and even if we did do that we don't know that the file has symbols. */ static char exitmsg[] = "@????????I JMPTI GR121,LR0"; char *bp = bpt; char *ep = exitmsg; /* Large enough for either sizeof (bpt) or sizeof (exitmsg) chars. */ char swallowed[50]; /* Current position in swallowed. */ char *swallowed_p = swallowed; int ch; int ch_handled; int old_timeout = timeout; int old_immediate_quit = immediate_quit; status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; if (need_artificial_trap != 0) { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; need_artificial_trap--; return 0; } timeout = 0; /* Don't time out -- user program is running. */ immediate_quit = 1; /* Helps ability to QUIT */ while (1) { QUIT; /* Let user quit and leave process running */ ch_handled = 0; ch = readchar (); if (ch == *bp) { bp++; if (*bp == '\0') break; ch_handled = 1; *swallowed_p++ = ch; } else bp = bpt; if (ch == *ep || *ep == '?') { ep++; if (*ep == '\0') break; if (!ch_handled) *swallowed_p++ = ch; ch_handled = 1; } else ep = exitmsg; if (!ch_handled) { char *p; /* Print out any characters which have been swallowed. */ for (p = swallowed; p < swallowed_p; ++p) putc (*p, stdout); swallowed_p = swallowed; putc (ch, stdout); } } expect_prompt (); if (*bp== '\0') { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; } else { status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; } timeout = old_timeout; immediate_quit = old_immediate_quit; return 0; } /* Return the name of register number REGNO in the form input and output by adapt. Returns a pointer to a static buffer containing the answer. */ static char * get_reg_name (regno) int regno; { static char buf[80]; if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32 ) sprintf (buf, "GR%03d", regno - GR96_REGNUM + 96); #if defined(GR64_REGNUM) else if (regno >= GR64_REGNUM && regno < GR64_REGNUM + 32 ) sprintf (buf, "GR%03d", regno - GR64_REGNUM + 64); #endif else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128) sprintf (buf, "LR%03d", regno - LR0_REGNUM); else if (regno == Q_REGNUM) strcpy (buf, "SR131"); else if (regno >= BP_REGNUM && regno <= CR_REGNUM) sprintf (buf, "SR%03d", regno - BP_REGNUM + 133); else if (regno == ALU_REGNUM) strcpy (buf, "SR132"); else if (regno >= IPC_REGNUM && regno <= IPB_REGNUM) sprintf (buf, "SR%03d", regno - IPC_REGNUM + 128); else if (regno >= VAB_REGNUM && regno <= LRU_REGNUM) { /* When a 29050 is in freeze-mode, read shadow pcs instead */ if ((regno >= NPC_REGNUM && regno <= PC2_REGNUM) && USE_SHADOW_PC) sprintf (buf, "SR%03d", regno - NPC_REGNUM + 20); else sprintf (buf, "SR%03d", regno - VAB_REGNUM); } else if (regno == GR1_REGNUM) strcpy (buf, "GR001"); return buf; } /* Read the remote registers. */ static void adapt_fetch_registers () { int reg_index; int regnum_index; char tempbuf[10]; int sreg_buf[16]; int i,j; /* * Global registers */ #if defined(GR64_REGNUM) write (adapt_desc, "dw gr64,gr95\r", 13); for (reg_index = 64, regnum_index = GR64_REGNUM; reg_index < 96; reg_index += 4, regnum_index += 4) { sprintf (tempbuf, "GR%03d ", reg_index); expect (tempbuf); get_hex_regs (4, regnum_index); expect ("\n"); } #endif write (adapt_desc, "dw gr96,gr127\r", 14); for (reg_index = 96, regnum_index = GR96_REGNUM; reg_index < 128; reg_index += 4, regnum_index += 4) { sprintf (tempbuf, "GR%03d ", reg_index); expect (tempbuf); get_hex_regs (4, regnum_index); expect ("\n"); } /* * Local registers */ for (i = 0; i < 128; i += 32) { /* The PC has a tendency to hang if we get these all in one fell swoop ("dw lr0,lr127"). */ sprintf (tempbuf, "dw lr%d\r", i); write (adapt_desc, tempbuf, strlen (tempbuf)); for (reg_index = i, regnum_index = LR0_REGNUM + i; reg_index < i + 32; reg_index += 4, regnum_index += 4) { sprintf (tempbuf, "LR%03d ", reg_index); expect (tempbuf); get_hex_regs (4, regnum_index); expect ("\n"); } } /* * Special registers */ sprintf (tempbuf, "dw sr0\r"); write (adapt_desc, tempbuf, strlen (tempbuf)); for (i=0 ; i<4 ; i++) { /* SR0 - SR14 */ sprintf (tempbuf, "SR%3d",i*4); expect(tempbuf); for (j=0 ; j < (i==3 ? 3 : 4) ; j++) sreg_buf[i*4 + j] = get_hex_word(); } expect_prompt(); /* * Read the pcs individually if we are in freeze mode. * See get_reg_name(), it translates the register names for the pcs to * the names of the shadow pcs. */ if (USE_SHADOW_PC) { sreg_buf[10] = read_register(NPC_REGNUM); /* pc0 */ sreg_buf[11] = read_register(PC_REGNUM); /* pc1 */ sreg_buf[12] = read_register(PC2_REGNUM); /* pc2 */ } for (i=0 ; i<14 ; i++) /* Supply vab -> lru */ supply_register(VAB_REGNUM+i, (char *) &sreg_buf[i]); sprintf (tempbuf, "dw sr128\r"); write (adapt_desc, tempbuf, strlen (tempbuf)); for (i=0 ; i<2 ; i++) { /* SR128 - SR135 */ sprintf (tempbuf, "SR%3d",128 + i*4); expect(tempbuf); for (j=0 ; j<4 ; j++) sreg_buf[i*4 + j] = get_hex_word(); } expect_prompt(); supply_register(IPC_REGNUM,(char *) &sreg_buf[0]); supply_register(IPA_REGNUM,(char *) &sreg_buf[1]); supply_register(IPB_REGNUM,(char *) &sreg_buf[2]); supply_register(Q_REGNUM, (char *) &sreg_buf[3]); /* Skip ALU */ supply_register(BP_REGNUM, (char *) &sreg_buf[5]); supply_register(FC_REGNUM, (char *) &sreg_buf[6]); supply_register(CR_REGNUM, (char *) &sreg_buf[7]); /* There doesn't seem to be any way to get these. */ { int val = -1; supply_register (FPE_REGNUM, (char *) &val); supply_register (INTE_REGNUM, (char *) &val); supply_register (FPS_REGNUM, (char *) &val); supply_register (EXO_REGNUM, (char *) &val); } write (adapt_desc, "dw gr1,gr1\r", 11); expect ("GR001 "); get_hex_regs (1, GR1_REGNUM); expect_prompt (); } /* Fetch register REGNO, or all registers if REGNO is -1. */ static void adapt_fetch_register (regno) int regno; { if (regno == -1) adapt_fetch_registers (); else { char *name = get_reg_name (regno); fprintf (adapt_stream, "dw %s,%s\r", name, name); expect (name); expect (" "); get_hex_regs (1, regno); expect_prompt (); } } /* Store the remote registers from the contents of the block REGS. */ static void adapt_store_registers () { int i, j; fprintf (adapt_stream, "s gr1,%x\r", read_register (GR1_REGNUM)); expect_prompt (); #if defined(GR64_REGNUM) for (j = 0; j < 32; j += 16) { fprintf (adapt_stream, "s gr%d,", j + 64); for (i = 0; i < 15; ++i) fprintf (adapt_stream, "%x,", read_register (GR64_REGNUM + j + i)); fprintf (adapt_stream, "%x\r", read_register (GR64_REGNUM + j + 15)); expect_prompt (); } #endif for (j = 0; j < 32; j += 16) { fprintf (adapt_stream, "s gr%d,", j + 96); for (i = 0; i < 15; ++i) fprintf (adapt_stream, "%x,", read_register (GR96_REGNUM + j + i)); fprintf (adapt_stream, "%x\r", read_register (GR96_REGNUM + j + 15)); expect_prompt (); } for (j = 0; j < 128; j += 16) { fprintf (adapt_stream, "s lr%d,", j); for (i = 0; i < 15; ++i) fprintf (adapt_stream, "%x,", read_register (LR0_REGNUM + j + i)); fprintf (adapt_stream, "%x\r", read_register (LR0_REGNUM + j + 15)); expect_prompt (); } fprintf (adapt_stream, "s sr128,%x,%x,%x\r", read_register (IPC_REGNUM), read_register (IPA_REGNUM), read_register (IPB_REGNUM)); expect_prompt (); fprintf (adapt_stream, "s sr133,%x,%x,%x\r", read_register (BP_REGNUM), read_register (FC_REGNUM), read_register (CR_REGNUM)); expect_prompt (); fprintf (adapt_stream, "s sr131,%x\r", read_register (Q_REGNUM)); expect_prompt (); fprintf (adapt_stream, "s sr0,"); for (i=0 ; i<7 ; ++i) fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i)); expect_prompt (); fprintf (adapt_stream, "s sr7,"); for (i=7; i<14 ; ++i) fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i)); expect_prompt (); } /* Store register REGNO, or all if REGNO == -1. Return errno value. */ void adapt_store_register (regno) int regno; { /* printf("adapt_store_register() called.\n"); fflush(stdout); /* */ if (regno == -1) adapt_store_registers (); else { char *name = get_reg_name (regno); fprintf (adapt_stream, "s %s,%x\r", name, read_register (regno)); /* Setting GR1 changes the numbers of all the locals, so invalidate the register cache. Do this *after* calling read_register, because we want read_register to return the value that write_register has just stuffed into the registers array, not the value of the register fetched from the inferior. */ if (regno == GR1_REGNUM) registers_changed (); expect_prompt (); } } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ void adapt_prepare_to_store () { /* Do nothing, since we can store individual regs */ } static CORE_ADDR translate_addr(addr) CORE_ADDR addr; { #if defined(KERNEL_DEBUGGING) /* Check for a virtual address in the kernel */ /* Assume physical address of ublock is in paddr_u register */ if (addr >= UVADDR) { /* PADDR_U register holds the physical address of the ublock */ CORE_ADDR i = (CORE_ADDR)read_register(PADDR_U_REGNUM); return(i + addr - (CORE_ADDR)UVADDR); } else { return(addr); } #else return(addr); #endif } /* FIXME! Merge these two. */ int adapt_xfer_inferior_memory (memaddr, myaddr, len, write) CORE_ADDR memaddr; char *myaddr; int len; int write; { memaddr = translate_addr(memaddr); if (write) return adapt_write_inferior_memory (memaddr, myaddr, len); else return adapt_read_inferior_memory (memaddr, myaddr, len); } void adapt_files_info () { printf_filtered("\tAttached to %s at %d baud and running program %s\n", dev_name, baudrate, prog_name); printf_filtered("\ton an %s processor.\n", processor_name[processor_type]); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns errno value. * sb/sh instructions don't work on unaligned addresses, when TU=1. */ int adapt_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int i; unsigned int cps; /* Turn TU bit off so we can do 'sb' commands */ cps = read_register(CPS_REGNUM); if (cps & 0x00000800) write_register(CPS_REGNUM,cps&~(0x00000800)); for (i = 0; i < len; i++) { if ((i % 16) == 0) fprintf (adapt_stream, "sb %x,", memaddr + i); if ((i % 16) == 15 || i == len - 1) { fprintf (adapt_stream, "%x\r", ((unsigned char *)myaddr)[i]); expect_prompt (); } else fprintf (adapt_stream, "%x,", ((unsigned char *)myaddr)[i]); } /* Restore the old value of cps if the TU bit was on */ if (cps & 0x00000800) write_register(CPS_REGNUM,cps); return len; } /* Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns errno value. */ int adapt_read_inferior_memory(memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int i; /* Number of bytes read so far. */ int count; /* Starting address of this pass. */ unsigned long startaddr; /* Number of bytes to read in this pass. */ int len_this_pass; /* Note that this code works correctly if startaddr is just less than UINT_MAX (well, really CORE_ADDR_MAX if there was such a thing). That is, something like adapt_read_bytes (CORE_ADDR_MAX - 4, foo, 4) works--it never adds len to memaddr and gets 0. */ /* However, something like adapt_read_bytes (CORE_ADDR_MAX - 3, foo, 4) doesn't need to work. Detect it and give up if there's an attempt to do that. */ if (((memaddr - 1) + len) < memaddr) return EIO; startaddr = memaddr; count = 0; while (count < len) { len_this_pass = 16; if ((startaddr % 16) != 0) len_this_pass -= startaddr % 16; if (len_this_pass > (len - count)) len_this_pass = (len - count); fprintf (adapt_stream, "db %x,%x\r", startaddr, (startaddr - 1) + len_this_pass); #ifdef NOTDEF /* Why do this */ expect ("\n"); /* Look for 8 hex digits. */ i = 0; while (1) { if (isxdigit (readchar ())) ++i; else { expect_prompt (); error ("Hex digit expected from remote system."); } if (i >= 8) break; } #endif /* NOTDEF */ expect (" "); for (i = 0; i < len_this_pass; i++) get_hex_byte (&myaddr[count++]); expect_prompt (); startaddr += len_this_pass; } return count; } #define MAX_BREAKS 8 static int num_brkpts=0; static int adapt_insert_breakpoint(addr, save) CORE_ADDR addr; char *save; /* Throw away, let adapt save instructions */ { if (num_brkpts < MAX_BREAKS) { num_brkpts++; fprintf (adapt_stream, "B %x", addr); fprintf (adapt_stream, "\r"); expect_prompt (); return(0); /* Success */ } else { fprintf_filtered(stderr, "Too many break points, break point not installed\n"); return(1); /* Failure */ } } static int adapt_remove_breakpoint(addr, save) CORE_ADDR addr; char *save; /* Throw away, let adapt save instructions */ { if (num_brkpts > 0) { num_brkpts--; fprintf (adapt_stream, "BR %x", addr); fprintf (adapt_stream, "\r"); fflush (adapt_stream); expect_prompt (); } return(0); } /* Clear the adapts notion of what the break points are */ static int adapt_clear_breakpoints() { if (adapt_stream) { fprintf (adapt_stream, "BR"); /* Clear all break points */ fprintf (adapt_stream, "\r"); fflush(adapt_stream); expect_prompt (); } num_brkpts = 0; } static void adapt_mourn() { adapt_clear_breakpoints(); pop_target (); /* Pop back to no-child state */ generic_mourn_inferior (); } /* Display everthing we read in from the adapt until we match/see the * specified string */ static int display_until(str) char *str; { int i=0,j,c; while (c=readchar()) { if (c==str[i]) { i++; if (i == strlen(str)) return; } else { if (i) { for (j=0 ; j", class_obscure, adapt_com, "Send a command to the AMD Adapt remote monitor."); } gdb-4.13/gdb/remote-bug.c 666 34562 1752 60112 5522302402 13515 0ustar fnfcygnus/* Remote debugging interface for Motorola's MVME187BUG monitor, an embedded monitor for the m88k. Copyright 1992, 1993 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by K. Richard Pixley. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "wait.h" #include #include #include #include #include #include #include "terminal.h" #include "gdbcore.h" #include "gdbcmd.h" #include "remote-utils.h" extern int sleep(); /* External data declarations */ extern int stop_soon_quietly; /* for wait_for_inferior */ /* Forward data declarations */ extern struct target_ops bug_ops; /* Forward declaration */ /* Forward function declarations */ static int bug_clear_breakpoints PARAMS((void)); static int bug_read_memory PARAMS((CORE_ADDR memaddr, unsigned char *myaddr, int len)); static int bug_write_memory PARAMS((CORE_ADDR memaddr, unsigned char *myaddr, int len)); /* This variable is somewhat arbitrary. It's here so that it can be set from within a running gdb. */ static int srec_max_retries = 3; /* Each S-record download to the target consists of an S0 header record, some number of S3 data records, and one S7 termination record. I call this download a "frame". Srec_frame says how many bytes will be represented in each frame. */ #define SREC_SIZE 160 static int srec_frame = SREC_SIZE; /* This variable determines how many bytes will be represented in each S3 s-record. */ static int srec_bytes = 40; /* At one point it appeared to me as though the bug monitor could not really be expected to receive two sequential characters at 9600 baud reliably. Echo-pacing is an attempt to force data across the line even in this condition. Specifically, in echo-pace mode, each character is sent one at a time and we look for the echo before sending the next. This is excruciatingly slow. */ static int srec_echo_pace = 0; /* How long to wait after an srec for a possible error message. Similar to the above, I tried sleeping after sending each S3 record in hopes that I might actually see error messages from the bug monitor. This might actually work if we were to use sleep intervals smaller than 1 second. */ static int srec_sleep = 0; /* Every srec_noise records, flub the checksum. This is a debugging feature. Set the variable to something other than 1 in order to inject *deliberate* checksum errors. One might do this if one wanted to test error handling and recovery. */ static int srec_noise = 0; /* Called when SIGALRM signal sent due to alarm() timeout. */ /* Number of SIGTRAPs we need to simulate. That is, the next NEED_ARTIFICIAL_TRAP calls to bug_wait should just return SIGTRAP without actually waiting for anything. */ static int need_artificial_trap = 0; /* * Download a file specified in 'args', to the bug. */ static void bug_load (args, fromtty) char *args; int fromtty; { bfd *abfd; asection *s; char buffer[1024]; sr_check_open (); dcache_flush (gr_get_dcache()); inferior_pid = 0; abfd = bfd_openr (args, 0); if (!abfd) { printf_filtered ("Unable to open file %s\n", args); return; } if (bfd_check_format (abfd, bfd_object) == 0) { printf_filtered ("File is not an object file\n"); return; } s = abfd->sections; while (s != (asection *) NULL) { srec_frame = SREC_SIZE; if (s->flags & SEC_LOAD) { int i; char *buffer = xmalloc (srec_frame); printf_filtered ("%s\t: 0x%4x .. 0x%4x ", s->name, s->vma, s->vma + s->_raw_size); fflush (stdout); for (i = 0; i < s->_raw_size; i += srec_frame) { if (srec_frame > s->_raw_size - i) srec_frame = s->_raw_size - i; bfd_get_section_contents (abfd, s, buffer, i, srec_frame); bug_write_memory (s->vma + i, buffer, srec_frame); printf_filtered ("*"); fflush (stdout); } printf_filtered ("\n"); free (buffer); } s = s->next; } sprintf (buffer, "rs ip %lx", (unsigned long) abfd->start_address); sr_write_cr (buffer); gr_expect_prompt (); } #if 0 static char * get_word (p) char **p; { char *s = *p; char *word; char *copy; size_t len; while (isspace (*s)) s++; word = s; len = 0; while (*s && !isspace (*s)) { s++; len++; } copy = xmalloc (len + 1); memcpy (copy, word, len); copy[len] = 0; *p = s; return copy; } #endif static struct gr_settings bug_settings = { NULL, /* dcache */ "Bug>", /* prompt */ &bug_ops, /* ops */ bug_clear_breakpoints, /* clear_all_breakpoints */ bug_read_memory, /* readfunc */ bug_write_memory, /* writefunc */ gr_generic_checkin, /* checkin */ }; static char *cpu_check_strings[] = { "=", "Invalid Register", }; static void bug_open (args, from_tty) char *args; int from_tty; { if (args == NULL) args = ""; gr_open(args, from_tty, &bug_settings); /* decide *now* whether we are on an 88100 or an 88110 */ sr_write_cr("rs cr06"); sr_expect("rs cr06"); switch (gr_multi_scan(cpu_check_strings, 0)) { case 0: /* this is an m88100 */ target_is_m88110 = 0; break; case 1: /* this is an m88110 */ target_is_m88110 = 1; break; default: abort(); } } /* Tell the remote machine to resume. */ void bug_resume (pid, step, sig) int pid, step; enum target_signal sig; { dcache_flush (gr_get_dcache()); if (step) { sr_write_cr("t"); /* Force the next bug_wait to return a trap. Not doing anything about I/O from the target means that the user has to type "continue" to see any. FIXME, this should be fixed. */ need_artificial_trap = 1; } else sr_write_cr ("g"); return; } /* Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. */ static char *wait_strings[] = { "At Breakpoint", "Exception: Data Access Fault (Local Bus Timeout)", "\r8???-Bug>", "\r197-Bug>", NULL, }; int bug_wait (pid, status) int pid; struct target_waitstatus *status; { int old_timeout = sr_get_timeout(); int old_immediate_quit = immediate_quit; status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; /* read off leftovers from resume so that the rest can be passed back out as stdout. */ if (need_artificial_trap == 0) { sr_expect("Effective address: "); (void) sr_get_hex_word(); sr_expect ("\r\n"); } sr_set_timeout(-1); /* Don't time out -- user program is running. */ immediate_quit = 1; /* Helps ability to QUIT */ switch (gr_multi_scan(wait_strings, need_artificial_trap == 0)) { case 0: /* breakpoint case */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; /* user output from the target can be discarded here. (?) */ gr_expect_prompt(); break; case 1: /* bus error */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_BUS; /* user output from the target can be discarded here. (?) */ gr_expect_prompt(); break; case 2: /* normal case */ case 3: if (need_artificial_trap != 0) { /* stepping */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; need_artificial_trap--; break; } else { /* exit case */ status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; break; } case -1: /* trouble */ default: fprintf_filtered (stderr, "Trouble reading target during wait\n"); break; } sr_set_timeout(old_timeout); immediate_quit = old_immediate_quit; return 0; } /* Return the name of register number REGNO in the form input and output by bug. Returns a pointer to a static buffer containing the answer. */ static char * get_reg_name (regno) int regno; { static char *rn[] = { "r00", "r01", "r02", "r03", "r04", "r05", "r06", "r07", "r08", "r09", "r10", "r11", "r12", "r13", "r14", "r15", "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31", /* these get confusing because we omit a few and switch some ordering around. */ "cr01", /* 32 = psr */ "fcr62", /* 33 = fpsr*/ "fcr63", /* 34 = fpcr */ "ip", /* this is something of a cheat. */ /* 35 = sxip */ "cr05", /* 36 = snip */ "cr06", /* 37 = sfip */ "x00", "x01", "x02", "x03", "x04", "x05", "x06", "x07", "x08", "x09", "x10", "x11", "x12", "x13", "x14", "x15", "x16", "x17", "x18", "x19", "x20", "x21", "x22", "x23", "x24", "x25", "x26", "x27", "x28", "x29", "x30", "x31", }; return rn[regno]; } #if 0 /* not currently used */ /* Read from remote while the input matches STRING. Return zero on success, -1 on failure. */ static int bug_scan (s) char *s; { int c; while (*s) { c = sr_readchar(); if (c != *s++) { fflush(stdout); printf("\nNext character is '%c' - %d and s is \"%s\".\n", c, c, --s); return(-1); } } return(0); } #endif /* never */ static int bug_srec_write_cr (s) char *s; { char *p = s; if (srec_echo_pace) for (p = s; *p; ++p) { if (sr_get_debug() > 0) printf ("%c", *p); do SERIAL_WRITE(sr_get_desc(), p, 1); while (sr_pollchar() != *p); } else { sr_write_cr (s); /* return(bug_scan (s) || bug_scan ("\n")); */ } return(0); } /* Store register REGNO, or all if REGNO == -1. */ static void bug_fetch_register(regno) int regno; { sr_check_open(); if (regno == -1) { int i; for (i = 0; i < NUM_REGS; ++i) bug_fetch_register(i); } else if (target_is_m88110 && regno == SFIP_REGNUM) { /* m88110 has no sfip. */ long l = 0; supply_register(regno, (char *) &l); } else if (regno < XFP_REGNUM) { char buffer[MAX_REGISTER_RAW_SIZE]; sr_write ("rs ", 3); sr_write_cr (get_reg_name(regno)); sr_expect ("="); store_unsigned_integer (buffer, REGISTER_RAW_SIZE (regno), sr_get_hex_word()); gr_expect_prompt (); supply_register (regno, buffer); } else { /* Float register so we need to parse a strange data format. */ long p; unsigned char fpreg_buf[10]; sr_write("rs ", 3); sr_write(get_reg_name(regno), strlen(get_reg_name(regno))); sr_write_cr(";d"); sr_expect("rs"); sr_expect(get_reg_name(regno)); sr_expect(";d"); sr_expect("="); /* sign */ p = sr_get_hex_digit(1); fpreg_buf[0] = p << 7; /* exponent */ sr_expect("_"); p = sr_get_hex_digit(1); fpreg_buf[0] += (p << 4); fpreg_buf[0] += sr_get_hex_digit(1); fpreg_buf[1] = sr_get_hex_digit(1) << 4; /* fraction */ sr_expect("_"); fpreg_buf[1] += sr_get_hex_digit(1); fpreg_buf[2] = (sr_get_hex_digit(1) << 4) + sr_get_hex_digit(1); fpreg_buf[3] = (sr_get_hex_digit(1) << 4) + sr_get_hex_digit(1); fpreg_buf[4] = (sr_get_hex_digit(1) << 4) + sr_get_hex_digit(1); fpreg_buf[5] = (sr_get_hex_digit(1) << 4) + sr_get_hex_digit(1); fpreg_buf[6] = (sr_get_hex_digit(1) << 4) + sr_get_hex_digit(1); fpreg_buf[7] = (sr_get_hex_digit(1) << 4) + sr_get_hex_digit(1); fpreg_buf[8] = 0; fpreg_buf[9] = 0; gr_expect_prompt(); supply_register(regno, fpreg_buf); } return; } /* Store register REGNO, or all if REGNO == -1. */ static void bug_store_register (regno) int regno; { char buffer[1024]; sr_check_open(); if (regno == -1) { int i; for (i = 0; i < NUM_REGS; ++i) bug_store_register(i); } else { char *regname; regname = get_reg_name(regno); if (target_is_m88110 && regno == SFIP_REGNUM) return; else if (regno < XFP_REGNUM) sprintf(buffer, "rs %s %08x", regname, read_register(regno)); else { unsigned char *fpreg_buf = (unsigned char *)®isters[REGISTER_BYTE(regno)]; sprintf(buffer, "rs %s %1x_%02x%1x_%1x%02x%02x%02x%02x%02x%02x;d", regname, /* sign */ (fpreg_buf[0] >> 7) & 0xf, /* exponent */ fpreg_buf[0] & 0x7f, (fpreg_buf[1] >> 8) & 0xf, /* fraction */ fpreg_buf[1] & 0xf, fpreg_buf[2], fpreg_buf[3], fpreg_buf[4], fpreg_buf[5], fpreg_buf[6], fpreg_buf[7]); } sr_write_cr(buffer); gr_expect_prompt(); } return; } int bug_xfer_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr; /* Round ending address up; get number of longwords that makes. */ register int count; /* Allocate buffer of that many longwords. */ register int *buffer; addr = memaddr & -sizeof (int); count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); buffer = (int *) alloca (count * sizeof (int)); if (write) { /* Fill start and end extra bytes of buffer with existing memory data. */ if (addr != memaddr || len < (int) sizeof (int)) { /* Need part of initial word -- fetch it. */ buffer[0] = gr_fetch_word (addr); } if (count > 1) /* FIXME, avoid if even boundary */ { buffer[count - 1] = gr_fetch_word (addr + (count - 1) * sizeof (int)); } /* Copy data to be written over corresponding part of buffer */ memcpy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; gr_store_word (addr, buffer[i]); if (errno) { return 0; } } } else { /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; buffer[i] = gr_fetch_word (addr); if (errno) { return 0; } QUIT; } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); } return len; } static void start_load() { char *command; command = (srec_echo_pace ? "lo 0 ;x" : "lo 0"); sr_write_cr (command); sr_expect (command); sr_expect ("\r\n"); bug_srec_write_cr ("S0030000FC"); return; } /* This is an extremely vulnerable and fragile function. I've made considerable attempts to make this deterministic, but I've certainly forgotten something. The trouble is that S-records are only a partial file format, not a protocol. Worse, apparently the m88k bug monitor does not run in real time while receiving S-records. Hence, we must pay excruciating attention to when and where error messages are returned, and what has actually been sent. Each call represents a chunk of memory to be sent to the target. We break that chunk into an S0 header record, some number of S3 data records each containing srec_bytes, and an S7 termination record. */ static char *srecord_strings[] = { "S-RECORD", "-Bug>", NULL, }; static int bug_write_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { int done; int checksum; int x; int retries; char *buffer = alloca ((srec_bytes + 8) << 1); retries = 0; do { done = 0; if (retries > srec_max_retries) return(-1); if (retries > 0) { if (sr_get_debug() > 0) printf("\n\n"); /* This gr_expect_prompt call is extremely important. Without it, we will tend to resend our packet so fast that it will arrive before the bug monitor is ready to receive it. This would lead to a very ugly resend loop. */ gr_expect_prompt(); } start_load(); while (done < len) { int thisgo; int idx; char *buf = buffer; CORE_ADDR address; checksum = 0; thisgo = len - done; if (thisgo > srec_bytes) thisgo = srec_bytes; address = memaddr + done; sprintf (buf, "S3%02X%08X", thisgo + 4 + 1, address); buf += 12; checksum += (thisgo + 4 + 1 + (address & 0xff) + ((address >> 8) & 0xff) + ((address >> 16) & 0xff) + ((address >> 24) & 0xff)); for (idx = 0; idx < thisgo; idx++) { sprintf (buf, "%02X", myaddr[idx + done]); checksum += myaddr[idx + done]; buf += 2; } if (srec_noise > 0) { /* FIXME-NOW: insert a deliberate error every now and then. This is intended for testing/debugging the error handling stuff. */ static int counter = 0; if (++counter > srec_noise) { counter = 0; ++checksum; } } sprintf(buf, "%02X", ~checksum & 0xff); bug_srec_write_cr (buffer); if (srec_sleep != 0) sleep(srec_sleep); /* This pollchar is probably redundant to the gr_multi_scan below. Trouble is, we can't be sure when or where an error message will appear. Apparently, when running at full speed from a typical sun4, error messages tend to appear to arrive only *after* the s7 record. */ if ((x = sr_pollchar()) != 0) { if (sr_get_debug() > 0) printf("\n\n"); ++retries; /* flush any remaining input and verify that we are back at the prompt level. */ gr_expect_prompt(); /* start all over again. */ start_load(); done = 0; continue; } done += thisgo; } bug_srec_write_cr("S7060000000000F9"); ++retries; /* Having finished the load, we need to figure out whether we had any errors. */ } while (gr_multi_scan(srecord_strings, 0) == 0);; return(0); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns errno value. * sb/sh instructions don't work on unaligned addresses, when TU=1. */ /* Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns errno value. */ static int bug_read_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { char request[100]; char *buffer; char *p; char type; char size; unsigned char c; unsigned int inaddr; unsigned int checksum; sprintf(request, "du 0 %x:&%d", memaddr, len); sr_write_cr(request); p = buffer = alloca(len); /* scan up through the header */ sr_expect("S0030000FC"); while (p < buffer + len) { /* scan off any white space. */ while (sr_readchar() != 'S') ;; /* what kind of s-rec? */ type = sr_readchar(); /* scan record size */ sr_get_hex_byte(&size); checksum = size; --size; inaddr = 0; switch (type) { case '7': case '8': case '9': goto done; case '3': sr_get_hex_byte(&c); inaddr = (inaddr << 8) + c; checksum += c; --size; /* intentional fall through */ case '2': sr_get_hex_byte(&c); inaddr = (inaddr << 8) + c; checksum += c; --size; /* intentional fall through */ case '1': sr_get_hex_byte(&c); inaddr = (inaddr << 8) + c; checksum += c; --size; sr_get_hex_byte(&c); inaddr = (inaddr << 8) + c; checksum += c; --size; break; default: /* bonk */ error("reading s-records."); } if (inaddr < memaddr || (memaddr + len) < (inaddr + size)) error("srec out of memory range."); if (p != buffer + inaddr - memaddr) error("srec out of sequence."); for (; size; --size, ++p) { sr_get_hex_byte(p); checksum += *p; } sr_get_hex_byte(&c); if (c != (~checksum & 0xff)) error("bad s-rec checksum"); } done: gr_expect_prompt(); if (p != buffer + len) return(1); memcpy(myaddr, buffer, len); return(0); } #define MAX_BREAKS 16 static int num_brkpts = 0; static int bug_insert_breakpoint (addr, save) CORE_ADDR addr; char *save; /* Throw away, let bug save instructions */ { sr_check_open (); if (num_brkpts < MAX_BREAKS) { char buffer[100]; num_brkpts++; sprintf (buffer, "br %x", addr); sr_write_cr (buffer); gr_expect_prompt (); return(0); } else { fprintf_filtered (stderr, "Too many break points, break point not installed\n"); return(1); } } static int bug_remove_breakpoint (addr, save) CORE_ADDR addr; char *save; /* Throw away, let bug save instructions */ { if (num_brkpts > 0) { char buffer[100]; num_brkpts--; sprintf (buffer, "nobr %x", addr); sr_write_cr (buffer); gr_expect_prompt (); } return (0); } /* Clear the bugs notion of what the break points are */ static int bug_clear_breakpoints () { if (sr_is_open()) { sr_write_cr ("nobr"); sr_expect("nobr"); gr_expect_prompt (); } num_brkpts = 0; return(0); } struct target_ops bug_ops = { "bug", "Remote BUG monitor", "Use the mvme187 board running the BUG monitor connected by a serial line.", bug_open, gr_close, 0, gr_detach, bug_resume, bug_wait, /* attach */ bug_fetch_register, bug_store_register, gr_prepare_to_store, bug_xfer_memory, gr_files_info, bug_insert_breakpoint, bug_remove_breakpoint, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ gr_kill, /* FIXME, kill */ bug_load, 0, /* lookup_symbol */ gr_create_inferior, /* create_inferior */ gr_mourn, /* mourn_inferior FIXME */ 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_remote_bug () { add_target (&bug_ops); add_show_from_set (add_set_cmd ("srec-bytes", class_support, var_uinteger, (char *) &srec_bytes, "\ Set the number of bytes represented in each S-record.\n\ This affects the communication protocol with the remote target.", &setlist), &showlist); add_show_from_set (add_set_cmd ("srec-max-retries", class_support, var_uinteger, (char *) &srec_max_retries, "\ Set the number of retries for shipping S-records.\n\ This affects the communication protocol with the remote target.", &setlist), &showlist); #if 0 /* This needs to set SREC_SIZE, not srec_frame which gets changed at the end of a download. But do we need the option at all? */ add_show_from_set (add_set_cmd ("srec-frame", class_support, var_uinteger, (char *) &srec_frame, "\ Set the number of bytes in an S-record frame.\n\ This affects the communication protocol with the remote target.", &setlist), &showlist); #endif /* 0 */ add_show_from_set (add_set_cmd ("srec-noise", class_support, var_zinteger, (char *) &srec_noise, "\ Set number of S-record to send before deliberately flubbing a checksum.\n\ Zero means flub none at all. This affects the communication protocol\n\ with the remote target.", &setlist), &showlist); add_show_from_set (add_set_cmd ("srec-sleep", class_support, var_zinteger, (char *) &srec_sleep, "\ Set number of seconds to sleep after an S-record for a possible error message to arrive.\n\ This affects the communication protocol with the remote target.", &setlist), &showlist); add_show_from_set (add_set_cmd ("srec-echo-pace", class_support, var_boolean, (char *) &srec_echo_pace, "\ Set echo-verification.\n\ When on, use verification by echo when downloading S-records. This is\n\ much slower, but generally more reliable.", &setlist), &showlist); } gdb-4.13/gdb/remote-e7000.c 666 34562 1752 102540 5604353623 13531 0ustar fnfcygnus/* Remote debugging interface for Hitachi E7000 ICE, for GDB Copyright 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Steve Chamberlain for Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "gdbcore.h" #include "target.h" #include "wait.h" #include #include #include #include #include "serial.h" /* The E7000 is an in-circuit emulator for the Hitachi H8/300-H and Hitachi-SH processor. It has serial port and a lan port. The monitor command set makes it difficult to load large ammounts of data over the lan without using ftp - so try not to issue load commands when communicating over ethernet; use the ftpload command. The monitor pauses for a second when dumping srecords to the serial line too, so we use a slower per byte mechanism but without the startup overhead. Even so, it's pretty slow... */ int using_tcp; /* nonzero if using the tcp serial driver */ int using_pc; /* nonzero if using the pc isa card */ extern struct target_ops e7000_ops; /* Forward declaration */ #define CTRLC 0x03 #define ENQ 0x05 #define ACK 0x06 #define CTRLZ 0x1a char *ENQSTRING = "\005"; /* Nonzero if some routine (as opposed to the user) wants echoing. FIXME: Do this reentrantly with an extra parameter. */ static int echo; int ctrl_c; static void e7000_close (); static void e7000_fetch_register (); static void e7000_store_register (); static int timeout = 5; static void expect PARAMS ((char *)); static void expect_full_prompt PARAMS (()); static void expect_prompt PARAMS (()); static serial_t e7000_desc; /* Send data to e7000debug. Works just like printf. */ #if 0 static void printf_e7000debug (va_alist) va_dcl { va_list args; char *pattern; char buf[200]; va_start (args); pattern = va_arg (args, char *); vsprintf (buf, pattern, args); #else static void printf_e7000debug(a,b,c,d,e,f) { char buf[200]; sprintf(buf, a,b,c,d,e,f); #endif if (!e7000_desc) { error ("use \"target e7000 ...\" first."); } if (remote_debug ) printf("Sending %s\n", buf); if (SERIAL_WRITE (e7000_desc, buf, strlen (buf))) fprintf (stderr, "SERIAL_WRITE failed: %s\n", safe_strerror (errno)); /* And expect to see it echoed, unless using the pc interface */ /* if (!using_pc)*/ expect (buf); } static void putchar_e7000 (x) { char b[1]; b[0] = x; SERIAL_WRITE (e7000_desc, b, 1); } static void write_e7000 (s) char *s; { SERIAL_WRITE (e7000_desc, s, strlen (s)); } /* Read a character from the remote system, doing all the fancy timeout stuff. */ static int readchar (timeout) int timeout; { int c; do { c = SERIAL_READCHAR (e7000_desc, timeout); } while (c > 127); if (c == SERIAL_TIMEOUT) { if (timeout == 0) return -1; echo = 0; error ("Timeout reading from remote system."); } if(remote_debug) { putchar (c); fflush(stdout); } return normal(c); } static normal(x) { if (x == '\n') return '\r'; return x; } char *tl(x) { static char b[8][10]; static int p; p++; p &= 7; if (x >= ' ') { b[p][0] = x; b[p][1] = 0; } else { sprintf(b[p],"<%d>", x); } return b[p]; } /* Scan input from the remote system, until STRING is found. If DISCARD is non-zero, then discard non-matching input, else print it out. Let the user break out immediately. */ static void expect (string) char *string; { char *p = string; int c; while (1) { c = readchar (timeout); notice_quit (); if (quit_flag == 1) { if (ctrl_c) { putchar_e7000(CTRLC); ctrl_c -- ; } else { quit(); } } if (c == SERIAL_ERROR) { error ("Serial communication error"); } if (echo || remote_debug) { if (c != '\r') putchar (c); fflush (stdout); } if (normal(c) == normal(*p++)) { if (*p == '\0') { return; } } else { p = string ; if (normal(c) == normal(string[0])) p++; } } } /* Keep discarding input until we see the e7000 prompt. The convention for dealing with the prompt is that you o give your command o *then* wait for the prompt. Thus the last thing that a procedure does with the serial line will be an expect_prompt(). Exception: e7000_resume does not wait for the prompt, because the terminal is being handed over to the inferior. However, the next thing which happens after that is a e7000_wait which does wait for the prompt. Note that this includes abnormal exit, e.g. error(). This is necessary to prevent getting into states from which we can't recover. */ static void expect_prompt () { expect (":"); } static void expect_full_prompt () { expect ("\r:"); } static int get_hex_digit (ch) { if (ch >= '0' && ch <= '9') return ch - '0'; else if (ch >= 'A' && ch <= 'F') return ch - 'A' + 10; else if (ch >= 'a' && ch <= 'f') return ch - 'a' + 10; return -1; } static int get_hex (start) int *start; { int value = get_hex_digit (*start); int try; *start = readchar (timeout); while ((try = get_hex_digit (*start)) >= 0) { value <<= 4; value += try; *start = readchar (timeout); } return value; } /* Get N 32-bit words from remote, each preceded by a space, and put them in registers starting at REGNO. */ static void get_hex_regs (n, regno) int n; int regno; { long val; int i; for (i = 0; i < n; i++) { int j; val = 0; for (j = 0; j < 8; j++) val = (val << 4) + get_hex_digit (j == 0); supply_register (regno++, (char *) &val); } } /* This is called not only when we first attach, but also when the user types "run" after having attached. */ static void e7000_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; if (args && *args) error ("Can't pass arguments to remote E7000DEBUG process"); if (execfile == 0 || exec_bfd == 0) error ("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); #ifdef CREATE_INFERIOR_HOOK CREATE_INFERIOR_HOOK (0); /* No process-ID */ #endif /* The "process" (board) is already stopped awaiting our commands, and the program is already downloaded. We just set its PC and go. */ clear_proceed_status (); /* Tell wait_for_inferior that we've started a new process. */ init_wait_for_inferior (); /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); /* insert_step_breakpoint (); FIXME, do we need this? */ proceed ((CORE_ADDR) entry_pt, -1, 0); /* Let 'er rip... */ } /* Open a connection to a remote debugger. NAME is the filename used for communication. */ static int baudrate = 9600; static char dev_name[100]; static char *machine = ""; static char *user = ""; static char *passwd = ""; static char *dir = ""; /* Grab the next token and buy some space for it */ static char * next (ptr) char **ptr; { char *p = *ptr; char *s; char *r; int l = 0; while (*p && *p == ' ') { p++; } s = p; while (*p && (*p != ' ' && *p != '\t')) { l++; p++; } r = xmalloc (l + 1); memcpy (r, s, l); r[l] = 0; *ptr = p; return r; } static e7000_login (args, from_tty) char *args; int from_tty; { if (args) { machine = next (&args); user = next (&args); passwd = next (&args); dir = next (&args); if (from_tty) { printf ("Set info to %s %s %s %s\n", machine, user, passwd, dir); } } else { error ("Syntax is ftplogin "); } } /* Start an ftp transfer from the E7000 to a host */ static e7000_ftp (args, from_tty) char *args; int from_tty; { int oldtimeout = timeout; timeout = 10; printf_e7000debug ("ftp %s\r", machine); expect (" Username : "); printf_e7000debug ("%s\r", user); expect (" Password : "); write_e7000 (passwd); write_e7000 ("\r"); expect ("success\r"); expect ("FTP>"); printf_e7000debug ("cd %s\r", dir); expect ("FTP>"); printf_e7000debug ("ll 0;s:%s\r", args); expect ("FTP>"); printf_e7000debug ("bye\r"); expect (":"); timeout = oldtimeout; } static void e7000_open (args, from_tty) char *args; int from_tty; { int n; int loop; char junk[100]; int sync; target_preopen (from_tty); n = 0; if (args && strcasecmp (args,"pc") == 0) { strcpy (dev_name, args); } else { if (args) { n = sscanf (args, " %s %d %s", dev_name, &baudrate, junk); } if (n != 1 && n != 2) { error ("Bad arguments. Usage:\ttarget e7000 \n\ or \t\ttarget e7000 [:]\n\ or \t\ttarget e7000 pc\n"); } #ifndef __GO32__ if (n == 1 && strchr (dev_name, ':') == 0) { /* Default to normal telnet port */ strcat (dev_name, ":23"); } #endif } push_target (&e7000_ops); e7000_desc = SERIAL_OPEN (dev_name); if (!e7000_desc) perror_with_name (dev_name); using_tcp = strcmp (e7000_desc->ops->name, "tcp") == 0; using_pc = strcmp (e7000_desc->ops->name, "pc") == 0; SERIAL_SETBAUDRATE (e7000_desc, baudrate); SERIAL_RAW (e7000_desc); /* Hello? Are you there? */ sync = 0; loop = 0; putchar_e7000 (CTRLC); while (!sync) { int c; int k = 0; if (from_tty) printf_unfiltered ("[waiting for e7000...]\n"); write_e7000 ("\r"); c = SERIAL_READCHAR (e7000_desc, 1); while (c != SERIAL_TIMEOUT) { /* Dont echo cr's */ if (from_tty && c != '\r') { putchar (c); fflush (stdout); } if (c == ':') { sync = 1; } if (loop++ == 20) { putchar_e7000 (CTRLC); loop = 0; } QUIT ; if (quit_flag) { putchar_e7000 (CTRLC); quit_flag = 0; } c = SERIAL_READCHAR (e7000_desc, 1); } } printf_e7000debug ("\r"); expect_prompt (); if (from_tty) printf_filtered ("Remote %s connected to %s\n", target_shortname, dev_name); #ifdef GDB_TARGET_IS_H8300 h8300hmode = 1; #endif } /* Close out all files and local state before this target loses control. */ static void e7000_close (quitting) int quitting; { if (e7000_desc) { SERIAL_CLOSE (e7000_desc); e7000_desc = 0; } } /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ static void e7000_detach (from_tty) int from_tty; { pop_target (); /* calls e7000_close to do the real work */ if (from_tty) printf ("Ending remote %s debugging\n", target_shortname); } /* Tell the remote machine to resume. */ static void e7000_resume (pid, step, sig) int pid, step, sig; { if (step) { printf_e7000debug ("S\r"); } else { printf_e7000debug ("G\r"); } } /* Read the remote registers into the block REGS. For the H8/300 a register dump looks like: PC=00021A CCR=80:I******* ER0 - ER3 0000000A 0000002E 0000002E 00000000 ER4 - ER7 00000000 00000000 00000000 00FFEFF6 000218 MOV.B R1L,R2L STEP NORMAL END or BREAK POINT */ #ifdef GDB_TARGET_IS_H8300 char *want = "PC=%p CCR=%c\n\ ER0 - ER3 %0 %1 %2 %3\n\ ER4 - ER7 %4 %5 %6 %7\n"; char *want_nopc = "%p CCR=%c\n\ ER0 - ER3 %0 %1 %2 %3\n\ ER4 - ER7 %4 %5 %6 %7"; #endif #ifdef GDB_TARGET_IS_SH char *want = "PC=%16 SR=%22\n\ PR=%17 GBR=%18 VBR=%19\n\ MACH=%20 MACL=%21\n\ R0-7 %0 %1 %2 %3 %4 %5 %6 %7\n\ R8-15 %8 %9 %10 %11 %12 %13 %14 %15\n"; char *want_nopc = "%16 SR=%22\n\ PR=%17 GBR=%18 VBR=%19\n\ MACH=%20 MACL=%21\n\ R0-7 %0 %1 %2 %3 %4 %5 %6 %7\n\ R8-15 %8 %9 %10 %11 %12 %13 %14 %15"; #endif static int gch () { int c = readchar (timeout); if (remote_debug) { if (c >= ' ') printf ("%c", c); else if (c == '\n') printf ("\n", c); } return c; } static unsigned int gbyte () { int high = get_hex_digit (gch ()); int low = get_hex_digit (gch ()); return (high << 4) + low; } void fetch_regs_from_dump (nextchar, want) int (*nextchar)(); char *want; { int regno; char buf[MAX_REGISTER_RAW_SIZE]; int thischar = nextchar(); while (*want) { switch (*want) { case '\n': /* Skip to end of line and then eat all new line type stuff */ while (thischar != '\n' && thischar != '\r') { thischar = nextchar(); } while (thischar == '\n' || thischar == '\r') { thischar = nextchar(); } want++; break; case ' ': while (thischar == ' ' || thischar == '\t' || thischar == '\r' || thischar == '\n') thischar = nextchar(); want++; break; default: if (*want == thischar) { want++; if (*want) thischar = nextchar(); } else if (thischar == ' ' || thischar == '\n' || thischar == '\r') { thischar = nextchar(); } else { error("out of sync in fetch registers wanted <%s>, got <%c 0x%x>", want, thischar, thischar); } break; case '%': /* Got a register command */ want++; switch (*want) { #ifdef PC_REGNUM case 'p': regno = PC_REGNUM; want++; break; #endif #ifdef CCR_REGNUM case 'c': regno = CCR_REGNUM; want++; break; #endif #ifdef SP_REGNUM case 's': regno = SP_REGNUM; want++; break; #endif #ifdef FP_REGNUM case 'f': regno = FP_REGNUM; want++; break; #endif default: if (isdigit(want[0])) { if (isdigit(want[1])) { regno = (want[0] - '0') * 10 + want[1] - '0'; want+=2; } else { regno = want[0] - '0'; want++; } } else abort(); } store_signed_integer (buf, REGISTER_RAW_SIZE(regno), (LONGEST)get_hex(&thischar, nextchar)); supply_register (regno, buf); break; } } } static void e7000_fetch_registers () { int regno; printf_e7000debug ("R\r"); fetch_regs_from_dump (gch, want); /* And supply the extra ones the simulator uses */ for (regno = NUM_REALREGS; regno < NUM_REGS; regno++) { int buf = 0; supply_register (regno, (char *) (&buf)); } } /* Fetch register REGNO, or all registers if REGNO is -1. Returns errno value. */ static void e7000_fetch_register (regno) int regno; { e7000_fetch_registers (); } /* Store the remote registers from the contents of the block REGS. */ static void e7000_store_registers () { int regno; for (regno = 0; regno < NUM_REALREGS; regno++) e7000_store_register (regno); registers_changed (); } /* Store register REGNO, or all if REGNO == 0. Return errno value. */ static void e7000_store_register (regno) int regno; { if (regno == -1) { e7000_store_registers (); return; } #ifdef GDB_TARGET_IS_H8300 if (regno <= 7) { printf_e7000debug (".ER%d %x\r", regno, read_register (regno)); } else if (regno == PC_REGNUM) { printf_e7000debug (".PC %x\r", read_register (regno)); } else if (regno == CCR_REGNUM) { printf_e7000debug (".CCR %x\r", read_register (regno)); } #endif #ifdef GDB_TARGET_IS_SH switch (regno) { default: printf_e7000debug (".R%d %x\r", regno, read_register (regno)); break; case PC_REGNUM: printf_e7000debug (".PC %x\r", read_register (regno)); break; case SR_REGNUM: printf_e7000debug (".SR %x\r", read_register (regno)); break; case PR_REGNUM: printf_e7000debug (".PR %x\r", read_register (regno)); break; case GBR_REGNUM: printf_e7000debug (".GBR %x\r", read_register (regno)); break; case VBR_REGNUM: printf_e7000debug (".VBR %x\r", read_register (regno)); break; case MACH_REGNUM: printf_e7000debug (".MACH %x\r", read_register (regno)); break; case MACL_REGNUM: printf_e7000debug (".MACL %x\r", read_register (regno)); break; } #endif expect_prompt (); } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void e7000_prepare_to_store () { /* Do nothing, since we can store individual regs */ } static void e7000_files_info () { printf ("\tAttached to %s at %d baud.\n", dev_name, baudrate); } static int stickbyte (where, what) char *where; unsigned int what; { static CONST char digs[] = "0123456789ABCDEF"; where[0] = digs[(what >> 4) & 0xf]; where[1] = digs[(what & 0xf) & 0xf]; return what; } /* Write a small ammount of memory */ static int write_small (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { int i; for (i = 0; i < len; i++) { if (((memaddr + i) & 3) == 0 && (i + 3 < len)) { /* Can be done with a long word */ printf_e7000debug ("m %x %x%02x%02x%02x;l\r", memaddr + i, myaddr[i], myaddr[i + 1], myaddr[i + 2], myaddr[i + 3]); i += 3; } else { printf_e7000debug ("m %x %x\r", memaddr + i, myaddr[i]); } } expect_prompt (); return len; } /* Write a large ammount of memory, this only works with the serial mode enabled. Command is sent as il ;s:s\r -> <- il ;s:s\r <- ENQ ACK -> <- LO s\r Srecords... ^Z -> <- ENQ ACK -> <- : */ static int write_large (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { int i; int c; #define maxstride 128 int stride; printf_e7000debug ("IL ;S:FK\r"); expect (ENQSTRING); putchar_e7000 (ACK); expect ("LO FK\r"); for (i = 0; i < len; i += stride) { char compose[maxstride * 2 + 50]; int address = i + memaddr; int j; int check_sum; int where = 0; int alen; stride = len - i; if (stride > maxstride) stride = maxstride; compose[where++] = 'S'; check_sum = 0; if (address >= 0xffffff) { alen = 4; } else if (address >= 0xffff) { alen = 3; } else alen = 2; compose[where++] = alen - 1 + '0'; /* insert type */ check_sum += stickbyte (compose + where, alen + stride + 1); /* Insert length */ where += 2; while (alen > 0) { alen--; check_sum += stickbyte (compose + where, address >> (8 * (alen))); where += 2; } for (j = 0; j < stride; j++) { check_sum += stickbyte (compose + where, myaddr[i + j]); where += 2; } stickbyte (compose + where, ~check_sum); where += 2; compose[where++] = '\r'; compose[where++] = '\n'; compose[where++] = 0; { char *z; for (z = compose; *z; z++) ; { SERIAL_WRITE (e7000_desc, compose, where); j = SERIAL_READCHAR (e7000_desc, 0); if (j == SERIAL_TIMEOUT) { /* This is ok - nothing there */ } else if (j == ENQ) { /* Hmm, it's trying to tell us something */ expect (":"); error ("Error writing memory"); } else { printf ("@%d}@", j); while ((j = SERIAL_READCHAR(e7000_desc,0)) > 0) { printf ("@{%d}@",j); } } } } } /* Send the trailer record */ write_e7000 ("S70500000000FA\r"); putchar_e7000 (CTRLZ); expect (ENQSTRING); putchar_e7000 (ACK); expect (":"); return len; } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns length moved. Can't use the Srecord load over ethernet, so dont use fast method then. */ static int e7000_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { if (len < 16 || using_tcp || using_pc) { return write_small (memaddr, myaddr, len); } else { return write_large (memaddr, myaddr, len); } } /* Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns length moved. Small transactions we send m ;l and receive 00000000 12345678 ? */ static int e7000_read_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { int count; int c; int i; /* Starting address of this pass. */ /* printf("READ INF %x %x %d\n", memaddr, myaddr, len);*/ if (((memaddr - 1) + len) < memaddr) { errno = EIO; return 0; } printf_e7000debug ("m %x;l\r", memaddr); for (count = 0; count < len; count += 4) { /* Suck away the address */ c = gch(); while (c != ' ') c = gch(); c = gch(); if (c == '*') { /* Some kind of error */ expect_prompt(); return -1; } while (c != ' ') c = gch(); /* Now read in the data */ for (i = 0; i < 4; i++) { int b = gbyte(); if (count + i < len) { myaddr[count + i] = b; } } /* Skip the trailing ? and send a . to end and a cr for more */ gch(); gch(); if (count + 4 >= len) printf_e7000debug(".\r"); else printf_e7000debug("\r"); } expect_prompt(); return len; } #if 0 /* For large transfers we used to send d \r and receive < D A T A > < ASCII CODE > 000000 5F FD FD FF DF 7F DF FF 01 00 01 00 02 00 08 04 "_..............." 000010 FF D7 FF 7F D7 F1 7F FF 00 05 00 00 08 00 40 00 "..............@." 000020 7F FD FF F7 7F FF FF F7 00 00 00 00 00 00 00 00 "................" A cost in chars for each transaction of 80 + 5*n-bytes. Large transactions could be done with the srecord load code, but there is a pause for a second before dumping starts, which slows the average rate down! */ static int e7000_read_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { int count; int c; /* Starting address of this pass. */ if (((memaddr - 1) + len) < memaddr) { errno = EIO; return 0; } printf_e7000debug ("d %x %x\r", memaddr, memaddr + len - 1); count = 0; c = gch (); /* First skip the command */ while (c == '\n') c = gch (); while (c == ' ') c = gch (); if (c == '*') { expect ("\r"); return -1; } /* Skip the title line */ while (c != '\n') c = gch (); c = gch (); while (count < len) { /* Skip the address */ while (c <= ' ') c = gch (); get_hex (&c); /* read in the bytes on the line */ while (c != '"' && count < len) { if (c == ' ') c = gch (); else { myaddr[count++] = get_hex (&c); } } while (c != '\n') c = gch (); } while (c != ':') c = gch (); return len; } static int fast_but_for_the_pause_e7000_read_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int loop; int c; if (((memaddr - 1) + len) < memaddr) { errno = EIO; return 0; } printf_e7000debug ("is %x@%x:s\r", memaddr, len); gch (); c = gch (); if (c != ENQ) { /* Got an error */ error ("Memory read error"); } putchar_e7000 (ACK); expect ("SV s"); loop = 1; while (loop) { int type; int length; int addr; int i; c = gch (); switch (c) { case ENQ: /* ENQ, at the end */ loop = 0; break; case 'S': /* Start of an Srecord */ type = gch (); length = gbyte (); switch (type) { case '7': /* Termination record, ignore */ case '0': case '8': case '9': /* Header record - ignore it */ while (length--) { gbyte (); } break; case '1': case '2': case '3': { int alen; alen = type - '0' + 1; addr = 0; while (alen--) { addr = (addr << 8) + gbyte (); length--; } for (i = 0; i < length - 1; i++) { myaddr[i + addr - memaddr] = gbyte (); } gbyte (); /* Ignore checksum */ } } } } putchar_e7000 (ACK); expect ("TOP ADDRESS ="); expect ("END ADDRESS ="); expect (":"); return len; } #endif static int e7000_xfer_inferior_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; unsigned char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { if (write) { return e7000_write_inferior_memory( memaddr, myaddr, len); } else { return e7000_read_inferior_memory( memaddr, myaddr, len); } } static void e7000_kill (args, from_tty) char *args; int from_tty; { } /* Clean up when a program exits. The program actually lives on in the remote processor's RAM, and may be run again without a download. Don't leave it full of breakpoint instructions. */ static void e7000_mourn_inferior () { remove_breakpoints (); unpush_target (&e7000_ops); generic_mourn_inferior (); /* Do all the proper things now */ } #define MAX_E7000DEBUG_BREAKPOINTS 200 extern int memory_breakpoint_size; static CORE_ADDR breakaddr[MAX_E7000DEBUG_BREAKPOINTS] = {0}; static int e7000_insert_breakpoint (addr, shadow) CORE_ADDR addr; unsigned char *shadow; { int i; static char nop[2] = NOP; for (i = 0; i <= MAX_E7000DEBUG_BREAKPOINTS; i++) if (breakaddr[i] == 0) { breakaddr[i] = addr; /* Save old contents, and insert a nop in the space */ e7000_read_inferior_memory (addr, shadow, 2); e7000_write_inferior_memory (addr, nop, 2); printf_e7000debug ("B %x\r", addr); expect_prompt (); return 0; } error("Too many breakpoints ( > %d) for the E7000\n", MAX_E7000DEBUG_BREAKPOINTS); return 1; } static int e7000_remove_breakpoint (addr, shadow) CORE_ADDR addr; unsigned char *shadow; { int i; for (i = 0; i < MAX_E7000DEBUG_BREAKPOINTS; i++) if (breakaddr[i] == addr) { breakaddr[i] = 0; printf_e7000debug ("B - %x\r", addr); expect_prompt (); /* Replace the insn under the break */ e7000_write_inferior_memory (addr, shadow, 2); return 0; } fprintf (stderr, "Can't find breakpoint associated with 0x%x\n", addr); return 1; } /* Put a command string, in args, out to STDBUG. Output from STDBUG is placed on the users terminal until the prompt is seen. */ static void e7000_command (args, fromtty) char *args; int fromtty; { echo = 0; if (!e7000_desc) error ("e7000 target not open."); if (!args) { printf_e7000debug ("\r"); } else { printf_e7000debug ("%s\r", args); } echo++; ctrl_c = 2; expect_full_prompt (); echo--; ctrl_c = 0; printf_unfiltered ("\n"); } static void e7000_load (args, fromtty) char *args; int fromtty; { gr_load_image (args, fromtty); } static void e7000_drain (args, fromtty) char *args; int fromtty; { int c; printf_e7000debug("end\r"); putchar_e7000 (CTRLC); while ((c = SERIAL_READCHAR (e7000_desc, 1) != SERIAL_TIMEOUT)) { if(quit_flag) { putchar_e7000(CTRLC); quit_flag = 0; } if (c > ' ' && c < 127) printf ("%c", c & 0xff); else printf ("<%x>", c & 0xff); } } #define NITEMS 3 static int why_stop () { static char *strings[NITEMS] = { "STEP NORMAL", "BREAK POINT", "BREAK KEY", }; char *p[NITEMS]; int c; p[0] = strings[0]; p[1] = strings[1]; p[2] = strings[2]; c = gch(); while (1) { int i; for (i = 0; i < NITEMS; i++) { if (c == *(p[i])) { p[i]++; if (*(p[i]) == 0) { /* found one of the choices */ return i; } } else { p[i] = strings[i]; } } c = gch(); } } /* Suck characters, if a string match, then return the strings index otherwise echo them */ int expect_n ( strings) char **strings; { char *(ptr[10]); int n; int c; char saveaway[100]; char *buffer = saveaway; /* Count number of expect strings */ for (n =0; strings[n]; n++) { ptr[n] = strings[n]; } while (1) { int i; int gotone = 0; c = SERIAL_READCHAR (e7000_desc, 1); if (c == SERIAL_TIMEOUT) { printf_unfiltered ("[waiting for e7000...]\n"); } #ifdef __GO32__ if (kbhit()) { int k = getkey(); if (k == 1) quit_flag = 1; } #endif if (quit_flag) { putchar_e7000 (CTRLC); /* interrupt the running program */ quit_flag = 0; } for (i = 0; i < n; i++) { if (c == ptr[i][0]) { ptr[i]++; if (ptr[i][0] == 0) { /* Gone all the way */ return i; } gotone = 1; } else { ptr[i] = strings[i]; } } if (gotone) { /* Save it up incase we find that there was no match */ *buffer ++ = c; } else { if (buffer != saveaway) { *buffer++ = 0; printf(buffer); buffer = saveaway; } if (c != SERIAL_TIMEOUT) { putchar (c); fflush(stdout); } } } } /* We subtract two from the pc here rather than use DECR_PC_AFTER_BREAK since the e7000 doesn't always add two to the pc, and the simulators never do. */ static void sub2_from_pc() { char buf[4]; store_signed_integer (buf, REGISTER_RAW_SIZE(PC_REGNUM), read_register (PC_REGNUM) -2); supply_register (PC_REGNUM, buf); printf_e7000debug (".PC %x\r", read_register (PC_REGNUM)); } #define WAS_SLEEP 0 #define WAS_INT 1 #define WAS_RUNNING 2 #define WAS_OTHER 3 static char *estrings[] = { "** SLEEP", "BREAK !", "** PC", "PC", 0}; /* Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. */ static int e7000_wait (pid, status) int pid; struct target_waitstatus *status; { int c; int reset_pc; int regno; int running_count = 0; int had_sleep = 0; int loop = 1; char *reg; int time = 0; /* Then echo chars until PC= string seen */ gch (); /* Drop cr */ gch (); /* and space */ while (loop) { switch (expect_n(estrings)) { case WAS_OTHER: /* how did this happen ? */ loop =0; break; case WAS_SLEEP: had_sleep = 1; putchar_e7000 (CTRLC); loop = 0; break; case WAS_INT: loop = 0; break; case WAS_RUNNING: running_count++; if (running_count == 20) { printf_unfiltered ("[running...]\n"); running_count = 0; } break; } } /* Skip till the PC=*/ expect("="); fetch_regs_from_dump (gch, want_nopc); /* And supply the extra ones the simulator uses */ for (regno = NUM_REALREGS; regno < NUM_REGS; regno++) { int buf = 0; supply_register (regno, (char *) &buf); } reset_pc = why_stop (); expect_full_prompt (); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; switch (reset_pc) { case 1: /* Breakpoint */ status->value.sig = TARGET_SIGNAL_TRAP; break; case 0: /* Single step */ status->value.sig = TARGET_SIGNAL_TRAP; break; case 2: /* Interrupt */ if (had_sleep) { status->value.sig = TARGET_SIGNAL_TRAP; sub2_from_pc(); } else { status->value.sig = TARGET_SIGNAL_INT; } break; } return 0; } /* Define the target subroutine names */ struct target_ops e7000_ops = { "e7000", "Remote Hitachi e7000 target", "Use a remote Hitachi e7000 ICE connected by a serial line,\n\ or a network connection.\n\ Arguments are the name of the device for the serial line,\n\ the speed to connect at in bits per second.\n\ eg\n\ target e7000 /dev/ttya 9600\n\ target e7000 foobar", e7000_open, e7000_close, 0, e7000_detach, e7000_resume, e7000_wait, e7000_fetch_register, e7000_store_register, e7000_prepare_to_store, e7000_xfer_inferior_memory, e7000_files_info, 0,0,/* e7000_insert_breakpoint, e7000_remove_breakpoint, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ e7000_kill, e7000_load, /* load */ 0, /* lookup_symbol */ e7000_create_inferior, e7000_mourn_inferior, 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_remote_e7000 () { add_target (&e7000_ops); add_com ("e7000 ", class_obscure, e7000_command, "Send a command to the e7000 monitor."); add_com ("ftplogin ", class_obscure, e7000_login, "Login to machine and change to directory."); add_com ("ftpload ", class_obscure, e7000_ftp, "Fetch and load a file from previously described place."); add_com ("drain", class_obscure, e7000_drain, "Drain pending e7000 text buffers."); } gdb-4.13/gdb/remote-eb.c 666 34562 1752 60601 5513036616 13344 0ustar fnfcygnus/* Remote debugging interface for AMD 29000 EBMON on IBM PC, for GDB. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Jim Kingdon for Cygnus. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is like remote.c but is for an esoteric situation-- having a a29k board in a PC hooked up to a unix machine with a serial line, and running ctty com1 on the PC, through which the unix machine can run ebmon. Not to mention that the PC has PC/NFS, so it can access the same executables that gdb can, over the net in real time. */ #include "defs.h" #include #include "inferior.h" #include "bfd.h" #include "symfile.h" #include "wait.h" #include "value.h" #include #include #include #include #include "terminal.h" #include "target.h" #include "gdbcore.h" extern struct target_ops eb_ops; /* Forward declaration */ static void eb_close(); #define LOG_FILE "eb.log" #if defined (LOG_FILE) FILE *log_file; #endif static int timeout = 24; /* Descriptor for I/O to remote machine. Initialize it to -1 so that eb_open knows that we don't have a file open when the program starts. */ int eb_desc = -1; /* stream which is fdopen'd from eb_desc. Only valid when eb_desc != -1. */ FILE *eb_stream; /* Read a character from the remote system, doing all the fancy timeout stuff. */ static int readchar () { char buf; buf = '\0'; #ifdef HAVE_TERMIO /* termio does the timeout for us. */ read (eb_desc, &buf, 1); #else alarm (timeout); if (read (eb_desc, &buf, 1) < 0) { if (errno == EINTR) error ("Timeout reading from remote system."); else perror_with_name ("remote"); } alarm (0); #endif if (buf == '\0') error ("Timeout reading from remote system."); #if defined (LOG_FILE) putc (buf & 0x7f, log_file); #endif return buf & 0x7f; } /* Keep discarding input from the remote system, until STRING is found. Let the user break out immediately. */ static void expect (string) char *string; { char *p = string; immediate_quit = 1; while (1) { if (readchar() == *p) { p++; if (*p == '\0') { immediate_quit = 0; return; } } else p = string; } } /* Keep discarding input until we see the ebmon prompt. The convention for dealing with the prompt is that you o give your command o *then* wait for the prompt. Thus the last thing that a procedure does with the serial line will be an expect_prompt(). Exception: eb_resume does not wait for the prompt, because the terminal is being handed over to the inferior. However, the next thing which happens after that is a eb_wait which does wait for the prompt. Note that this includes abnormal exit, e.g. error(). This is necessary to prevent getting into states from which we can't recover. */ static void expect_prompt () { #if defined (LOG_FILE) /* This is a convenient place to do this. The idea is to do it often enough that we never lose much data if we terminate abnormally. */ fflush (log_file); #endif expect ("\n# "); } /* Get a hex digit from the remote system & return its value. If ignore_space is nonzero, ignore spaces (not newline, tab, etc). */ static int get_hex_digit (ignore_space) int ignore_space; { int ch; while (1) { ch = readchar (); if (ch >= '0' && ch <= '9') return ch - '0'; else if (ch >= 'A' && ch <= 'F') return ch - 'A' + 10; else if (ch >= 'a' && ch <= 'f') return ch - 'a' + 10; else if (ch == ' ' && ignore_space) ; else { expect_prompt (); error ("Invalid hex digit from remote system."); } } } /* Get a byte from eb_desc and put it in *BYT. Accept any number leading spaces. */ static void get_hex_byte (byt) char *byt; { int val; val = get_hex_digit (1) << 4; val |= get_hex_digit (0); *byt = val; } /* Get N 32-bit words from remote, each preceded by a space, and put them in registers starting at REGNO. */ static void get_hex_regs (n, regno) int n; int regno; { long val; int i; for (i = 0; i < n; i++) { int j; val = 0; for (j = 0; j < 8; j++) val = (val << 4) + get_hex_digit (j == 0); supply_register (regno++, (char *) &val); } } /* Called when SIGALRM signal sent due to alarm() timeout. */ #ifndef HAVE_TERMIO #ifndef __STDC__ #define volatile /**/ #endif volatile int n_alarms; void eb_timer () { #if 0 if (kiodebug) printf ("eb_timer called\n"); #endif n_alarms++; } #endif /* malloc'd name of the program on the remote system. */ static char *prog_name = NULL; /* Nonzero if we have loaded the file ("yc") and not yet issued a "gi" command. "gi" is supposed to happen exactly once for each "yc". */ static int need_gi = 0; /* Number of SIGTRAPs we need to simulate. That is, the next NEED_ARTIFICIAL_TRAP calls to eb_wait should just return SIGTRAP without actually waiting for anything. */ static int need_artificial_trap = 0; /* This is called not only when we first attach, but also when the user types "run" after having attached. */ static void eb_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; if (args && *args) error ("Can't pass arguments to remote EBMON process"); if (execfile == 0 || exec_bfd == 0) error ("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); { /* OK, now read in the file. Y=read, C=COFF, D=no symbols 0=start address, %s=filename. */ fprintf (eb_stream, "YC D,0:%s", prog_name); if (args != NULL) fprintf(eb_stream, " %s", args); fprintf (eb_stream, "\n"); fflush (eb_stream); expect_prompt (); need_gi = 1; } /* The "process" (board) is already stopped awaiting our commands, and the program is already downloaded. We just set its PC and go. */ clear_proceed_status (); /* Tell wait_for_inferior that we've started a new process. */ init_wait_for_inferior (); /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); /* insert_step_breakpoint (); FIXME, do we need this? */ proceed ((CORE_ADDR)entry_pt, TARGET_SIGNAL_DEFAULT, 0); /* Let 'er rip... */ } /* Translate baud rates from integers to damn B_codes. Unix should have outgrown this crap years ago, but even POSIX wouldn't buck it. */ #ifndef B19200 #define B19200 EXTA #endif #ifndef B38400 #define B38400 EXTB #endif struct {int rate, damn_b;} baudtab[] = { {0, B0}, {50, B50}, {75, B75}, {110, B110}, {134, B134}, {150, B150}, {200, B200}, {300, B300}, {600, B600}, {1200, B1200}, {1800, B1800}, {2400, B2400}, {4800, B4800}, {9600, B9600}, {19200, B19200}, {38400, B38400}, {-1, -1}, }; int damn_b (rate) int rate; { int i; for (i = 0; baudtab[i].rate != -1; i++) if (rate == baudtab[i].rate) return baudtab[i].damn_b; return B38400; /* Random */ } /* Open a connection to a remote debugger. NAME is the filename used for communication, then a space, then the name of the program as we should name it to EBMON. */ static int baudrate = 9600; static char *dev_name; void eb_open (name, from_tty) char *name; int from_tty; { TERMINAL sg; char *p; target_preopen (from_tty); /* Find the first whitespace character, it separates dev_name from prog_name. */ if (name == 0) goto erroid; for (p = name; *p != '\0' && !isspace (*p); p++) ; if (*p == '\0') erroid: error ("\ Please include the name of the device for the serial port,\n\ the baud rate, and the name of the program to run on the remote system."); dev_name = alloca (p - name + 1); strncpy (dev_name, name, p - name); dev_name[p - name] = '\0'; /* Skip over the whitespace after dev_name */ for (; isspace (*p); p++) /*EMPTY*/; if (1 != sscanf (p, "%d ", &baudrate)) goto erroid; /* Skip the number and then the spaces */ for (; isdigit (*p); p++) /*EMPTY*/; for (; isspace (*p); p++) /*EMPTY*/; if (prog_name != NULL) free (prog_name); prog_name = savestring (p, strlen (p)); eb_close (0); eb_desc = open (dev_name, O_RDWR); if (eb_desc < 0) perror_with_name (dev_name); ioctl (eb_desc, TIOCGETP, &sg); #ifdef HAVE_TERMIO sg.c_cc[VMIN] = 0; /* read with timeout. */ sg.c_cc[VTIME] = timeout * 10; sg.c_lflag &= ~(ICANON | ECHO); sg.c_cflag = (sg.c_cflag & ~CBAUD) | damn_b (baudrate); #else sg.sg_ispeed = damn_b (baudrate); sg.sg_ospeed = damn_b (baudrate); sg.sg_flags |= RAW | ANYP; sg.sg_flags &= ~ECHO; #endif ioctl (eb_desc, TIOCSETP, &sg); eb_stream = fdopen (eb_desc, "r+"); push_target (&eb_ops); if (from_tty) printf ("Remote %s debugging %s using %s\n", target_shortname, prog_name, dev_name); #ifndef HAVE_TERMIO #ifndef NO_SIGINTERRUPT /* Cause SIGALRM's to make reads fail with EINTR instead of resuming the read. */ if (siginterrupt (SIGALRM, 1) != 0) perror ("eb_open: error in siginterrupt"); #endif /* Set up read timeout timer. */ if ((void (*)) signal (SIGALRM, eb_timer) == (void (*)) -1) perror ("eb_open: error in signal"); #endif #if defined (LOG_FILE) log_file = fopen (LOG_FILE, "w"); if (log_file == NULL) perror_with_name (LOG_FILE); #endif /* Hello? Are you there? */ write (eb_desc, "\n", 1); expect_prompt (); } /* Close out all files and local state before this target loses control. */ static void eb_close (quitting) int quitting; { /* Due to a bug in Unix, fclose closes not only the stdio stream, but also the file descriptor. So we don't actually close eb_desc. */ if (eb_stream) fclose (eb_stream); /* This also closes eb_desc */ if (eb_desc >= 0) /* close (eb_desc); */ /* Do not try to close eb_desc again, later in the program. */ eb_stream = NULL; eb_desc = -1; #if defined (LOG_FILE) if (log_file) { if (ferror (log_file)) printf ("Error writing log file.\n"); if (fclose (log_file) != 0) printf ("Error closing log file.\n"); } #endif } /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ void eb_detach (from_tty) int from_tty; { pop_target(); /* calls eb_close to do the real work */ if (from_tty) printf ("Ending remote %s debugging\n", target_shortname); } /* Tell the remote machine to resume. */ void eb_resume (pid, step, sig) int pid, step; enum target_signal sig; { if (step) { write (eb_desc, "t 1,s\n", 6); /* Wait for the echo. */ expect ("t 1,s\r"); /* Then comes a line containing the instruction we stepped to. */ expect ("\n@"); /* Then we get the prompt. */ expect_prompt (); /* Force the next eb_wait to return a trap. Not doing anything about I/O from the target means that the user has to type "continue" to see any. This should be fixed. */ need_artificial_trap = 1; } else { if (need_gi) { need_gi = 0; write (eb_desc, "gi\n", 3); /* Swallow the echo of "gi". */ expect ("gi\r"); } else { write (eb_desc, "GR\n", 3); /* Swallow the echo. */ expect ("GR\r"); } } } /* Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. */ int eb_wait (status) struct target_waitstatus *status; { /* Strings to look for. '?' means match any single character. Note that with the algorithm we use, the initial character of the string cannot recur in the string, or we will not find some cases of the string in the input. */ static char bpt[] = "Invalid interrupt taken - #0x50 - "; /* It would be tempting to look for "\n[__exit + 0x8]\n" but that requires loading symbols with "yc i" and even if we did do that we don't know that the file has symbols. */ static char exitmsg[] = "\n@????????I JMPTI GR121,LR0"; char *bp = bpt; char *ep = exitmsg; /* Large enough for either sizeof (bpt) or sizeof (exitmsg) chars. */ char swallowed[50]; /* Current position in swallowed. */ char *swallowed_p = swallowed; int ch; int ch_handled; int old_timeout = timeout; status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; if (need_artificial_trap != 0) { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; need_artificial_trap--; return 0; } timeout = 0; /* Don't time out -- user program is running. */ while (1) { ch_handled = 0; ch = readchar (); if (ch == *bp) { bp++; if (*bp == '\0') break; ch_handled = 1; *swallowed_p++ = ch; } else bp = bpt; if (ch == *ep || *ep == '?') { ep++; if (*ep == '\0') break; if (!ch_handled) *swallowed_p++ = ch; ch_handled = 1; } else ep = exitmsg; if (!ch_handled) { char *p; /* Print out any characters which have been swallowed. */ for (p = swallowed; p < swallowed_p; ++p) putc (*p, stdout); swallowed_p = swallowed; putc (ch, stdout); } } expect_prompt (); if (*bp== '\0') { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; } else { status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; } timeout = old_timeout; return 0; } /* Return the name of register number REGNO in the form input and output by EBMON. Returns a pointer to a static buffer containing the answer. */ static char * get_reg_name (regno) int regno; { static char buf[80]; if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32) sprintf (buf, "GR%03d", regno - GR96_REGNUM + 96); else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128) sprintf (buf, "LR%03d", regno - LR0_REGNUM); else if (regno == Q_REGNUM) strcpy (buf, "SR131"); else if (regno >= BP_REGNUM && regno <= CR_REGNUM) sprintf (buf, "SR%03d", regno - BP_REGNUM + 133); else if (regno == ALU_REGNUM) strcpy (buf, "SR132"); else if (regno >= IPC_REGNUM && regno <= IPB_REGNUM) sprintf (buf, "SR%03d", regno - IPC_REGNUM + 128); else if (regno >= VAB_REGNUM && regno <= LRU_REGNUM) sprintf (buf, "SR%03d", regno - VAB_REGNUM); else if (regno == GR1_REGNUM) strcpy (buf, "GR001"); return buf; } /* Read the remote registers into the block REGS. */ static void eb_fetch_registers () { int reg_index; int regnum_index; char tempbuf[10]; int i; #if 0 /* This should not be necessary, because one is supposed to read the registers only when the inferior is stopped (at least with ptrace() and why not make it the same for remote?). */ /* ^A is the "normal character" used to make sure we are talking to EBMON and not to the program being debugged. */ write (eb_desc, "\001\n"); expect_prompt (); #endif write (eb_desc, "dw gr96,gr127\n", 14); for (reg_index = 96, regnum_index = GR96_REGNUM; reg_index < 128; reg_index += 4, regnum_index += 4) { sprintf (tempbuf, "GR%03d ", reg_index); expect (tempbuf); get_hex_regs (4, regnum_index); expect ("\n"); } for (i = 0; i < 128; i += 32) { /* The PC has a tendency to hang if we get these all in one fell swoop ("dw lr0,lr127"). */ sprintf (tempbuf, "dw lr%d\n", i); write (eb_desc, tempbuf, strlen (tempbuf)); for (reg_index = i, regnum_index = LR0_REGNUM + i; reg_index < i + 32; reg_index += 4, regnum_index += 4) { sprintf (tempbuf, "LR%03d ", reg_index); expect (tempbuf); get_hex_regs (4, regnum_index); expect ("\n"); } } write (eb_desc, "dw sr133,sr133\n", 15); expect ("SR133 "); get_hex_regs (1, BP_REGNUM); expect ("\n"); write (eb_desc, "dw sr134,sr134\n", 15); expect ("SR134 "); get_hex_regs (1, FC_REGNUM); expect ("\n"); write (eb_desc, "dw sr135,sr135\n", 15); expect ("SR135 "); get_hex_regs (1, CR_REGNUM); expect ("\n"); write (eb_desc, "dw sr131,sr131\n", 15); expect ("SR131 "); get_hex_regs (1, Q_REGNUM); expect ("\n"); write (eb_desc, "dw sr0,sr14\n", 12); for (reg_index = 0, regnum_index = VAB_REGNUM; regnum_index <= LRU_REGNUM; regnum_index += 4, reg_index += 4) { sprintf (tempbuf, "SR%03d ", reg_index); expect (tempbuf); get_hex_regs (reg_index == 12 ? 3 : 4, regnum_index); expect ("\n"); } /* There doesn't seem to be any way to get these. */ { int val = -1; supply_register (FPE_REGNUM, (char *) &val); supply_register (INTE_REGNUM, (char *) &val); supply_register (FPS_REGNUM, (char *) &val); supply_register (EXO_REGNUM, (char *) &val); } write (eb_desc, "dw gr1,gr1\n", 11); expect ("GR001 "); get_hex_regs (1, GR1_REGNUM); expect_prompt (); } /* Fetch register REGNO, or all registers if REGNO is -1. Returns errno value. */ void eb_fetch_register (regno) int regno; { if (regno == -1) eb_fetch_registers (); else { char *name = get_reg_name (regno); fprintf (eb_stream, "dw %s,%s\n", name, name); expect (name); expect (" "); get_hex_regs (1, regno); expect_prompt (); } return; } /* Store the remote registers from the contents of the block REGS. */ static void eb_store_registers () { int i, j; fprintf (eb_stream, "s gr1,%x\n", read_register (GR1_REGNUM)); expect_prompt (); for (j = 0; j < 32; j += 16) { fprintf (eb_stream, "s gr%d,", j + 96); for (i = 0; i < 15; ++i) fprintf (eb_stream, "%x,", read_register (GR96_REGNUM + j + i)); fprintf (eb_stream, "%x\n", read_register (GR96_REGNUM + j + 15)); expect_prompt (); } for (j = 0; j < 128; j += 16) { fprintf (eb_stream, "s lr%d,", j); for (i = 0; i < 15; ++i) fprintf (eb_stream, "%x,", read_register (LR0_REGNUM + j + i)); fprintf (eb_stream, "%x\n", read_register (LR0_REGNUM + j + 15)); expect_prompt (); } fprintf (eb_stream, "s sr133,%x,%x,%x\n", read_register (BP_REGNUM), read_register (FC_REGNUM), read_register (CR_REGNUM)); expect_prompt (); fprintf (eb_stream, "s sr131,%x\n", read_register (Q_REGNUM)); expect_prompt (); fprintf (eb_stream, "s sr0,"); for (i = 0; i < 11; ++i) fprintf (eb_stream, "%x,", read_register (VAB_REGNUM + i)); fprintf (eb_stream, "%x\n", read_register (VAB_REGNUM + 11)); expect_prompt (); } /* Store register REGNO, or all if REGNO == 0. Return errno value. */ void eb_store_register (regno) int regno; { if (regno == -1) eb_store_registers (); else { char *name = get_reg_name (regno); fprintf (eb_stream, "s %s,%x\n", name, read_register (regno)); /* Setting GR1 changes the numbers of all the locals, so invalidate the register cache. Do this *after* calling read_register, because we want read_register to return the value that write_register has just stuffed into the registers array, not the value of the register fetched from the inferior. */ if (regno == GR1_REGNUM) registers_changed (); expect_prompt (); } } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ void eb_prepare_to_store () { /* Do nothing, since we can store individual regs */ } /* FIXME-someday! Merge these two. */ int eb_xfer_inferior_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { if (write) return eb_write_inferior_memory (memaddr, myaddr, len); else return eb_read_inferior_memory (memaddr, myaddr, len); } void eb_files_info () { printf ("\tAttached to %s at %d baud and running program %s.\n", dev_name, baudrate, prog_name); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns length moved. */ int eb_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int i; for (i = 0; i < len; i++) { if ((i % 16) == 0) fprintf (eb_stream, "sb %x,", memaddr + i); if ((i % 16) == 15 || i == len - 1) { fprintf (eb_stream, "%x\n", ((unsigned char *)myaddr)[i]); expect_prompt (); } else fprintf (eb_stream, "%x,", ((unsigned char *)myaddr)[i]); } return len; } /* Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns length moved. */ int eb_read_inferior_memory(memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int i; /* Number of bytes read so far. */ int count; /* Starting address of this pass. */ unsigned long startaddr; /* Number of bytes to read in this pass. */ int len_this_pass; /* Note that this code works correctly if startaddr is just less than UINT_MAX (well, really CORE_ADDR_MAX if there was such a thing). That is, something like eb_read_bytes (CORE_ADDR_MAX - 4, foo, 4) works--it never adds len to memaddr and gets 0. */ /* However, something like eb_read_bytes (CORE_ADDR_MAX - 3, foo, 4) doesn't need to work. Detect it and give up if there's an attempt to do that. */ if (((memaddr - 1) + len) < memaddr) { errno = EIO; return 0; } startaddr = memaddr; count = 0; while (count < len) { len_this_pass = 16; if ((startaddr % 16) != 0) len_this_pass -= startaddr % 16; if (len_this_pass > (len - count)) len_this_pass = (len - count); fprintf (eb_stream, "db %x,%x\n", startaddr, (startaddr - 1) + len_this_pass); expect ("\n"); /* Look for 8 hex digits. */ i = 0; while (1) { if (isxdigit (readchar ())) ++i; else { expect_prompt (); error ("Hex digit expected from remote system."); } if (i >= 8) break; } expect (" "); for (i = 0; i < len_this_pass; i++) get_hex_byte (&myaddr[count++]); expect_prompt (); startaddr += len_this_pass; } return len; } static void eb_kill (args, from_tty) char *args; int from_tty; { return; /* Ignore attempts to kill target system */ } /* Clean up when a program exits. The program actually lives on in the remote processor's RAM, and may be run again without a download. Don't leave it full of breakpoint instructions. */ void eb_mourn_inferior () { remove_breakpoints (); unpush_target (&eb_ops); generic_mourn_inferior (); /* Do all the proper things now */ } /* Define the target subroutine names */ struct target_ops eb_ops = { "amd-eb", "Remote serial AMD EBMON target", "Use a remote computer running EBMON connected by a serial line.\n\ Arguments are the name of the device for the serial line,\n\ the speed to connect at in bits per second, and the filename of the\n\ executable as it exists on the remote computer. For example,\n\ target amd-eb /dev/ttya 9600 demo", eb_open, eb_close, 0, eb_detach, eb_resume, eb_wait, eb_fetch_register, eb_store_register, eb_prepare_to_store, eb_xfer_inferior_memory, eb_files_info, 0, 0, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ eb_kill, generic_load, /* load */ 0, /* lookup_symbol */ eb_create_inferior, eb_mourn_inferior, 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_remote_eb () { add_target (&eb_ops); } gdb-4.13/gdb/remote-es.c 666 34562 1752 136616 5537455241 13424 0ustar fnfcygnus/* Memory-access and commands for remote es1800 processes, for GDB. Copyright (C) 1988, 1992 Free Software Foundation, Inc. This file is added to GDB to make it possible to do debugging via an ES-1800 emulator. The code was originally written by Johan Holmberg TT/SJ Ericsson Telecom AB and later modified by Johan Henriksson TT/SJ. It was modified for gdb 4.0 by TX/DK Jan Nordenand by TX/DKG Harald Johansen. This file is part of GDB. GDB 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 1, or (at your option) any later version. GDB 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 GDB; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Emulator communication protocol. All values are encoded in ascii hex digits. Request Command Reply read registers: DR - 0 - - 1 - - 2 - - 3 - - 4 - - 5 - -- 6 - - 7 - D = XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX A = XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX PC = XXXXXX SSP = XXXXXX USP = XXXXXX SR = XXXXXXXX > Each byte of register data is described by two hex digits. write regs D0=XXXXXXXX >D1=XXXXXXXX >D2=XXXXXXXX >D3=XXXXXXXX >D4=XXXXXXXX >D5=XXXXXXXX >D6=XXXXXXXX >D7=XXXXXXXX >A0=XXXXXXXX >A1=XXXXXXXX >A2=XXXXXXXX >A3=XXXXXXXX >A4=XXXXXXXX >A5=XXXXXXXX >A6=XXXXXXXX >A7=XXXXXXXX >SR=XXXXXXXX >PC=XXXXXX > Each byte of register data is described by two hex digits. read mem @.BAA..AA $FFFFFFXX > AA..AA is address, XXXXXXX is the contents write mem @.BAA..AA=$XXXXXXXX > AA..AA is address, XXXXXXXX is data cont PC=$AA..AA >RBK R> AA..AA is address to resume. If AA..AA is omitted, resume at same address. step PC=$AA..AA >STP R> AA..AA is address to resume. If AA..AA is omitted, resume at same address. kill req STP > */ #include #include #include #include #include #include #include #include #include #include "defs.h" #include "frame.h" #include "inferior.h" #include "target.h" #include "wait.h" #include "command.h" #include "remote-utils.h" #include "gdbcore.h" #include "serial.h" /* Prototypes for local functions */ static void es1800_child_detach PARAMS ((char *, int)); static void es1800_child_open PARAMS ((char *, int)); static void es1800_transparent PARAMS ((char *, int)); static void es1800_create_inferior PARAMS ((char *, char *, char **)); static void es1800_load PARAMS ((char *, int)); static void es1800_kill PARAMS ((void)); static int verify_break PARAMS ((int)); static int es1800_remove_breakpoint PARAMS ((CORE_ADDR, char *)); static int es1800_insert_breakpoint PARAMS ((CORE_ADDR, char *)); static void es1800_files_info PARAMS ((struct target_ops *)); static int es1800_xfer_inferior_memory PARAMS ((CORE_ADDR, char *, int, int, struct target_ops *)); static void es1800_prepare_to_store PARAMS ((void)); static int es1800_wait PARAMS ((int, struct target_waitstatus *)); static void es1800_resume PARAMS ((int, int, enum target_signal)); static void es1800_detach PARAMS ((char *, int)); static void es1800_attach PARAMS ((char *, int)); static int damn_b PARAMS ((char *)); static void es1800_open PARAMS ((char *, int)); static void es1800_timer PARAMS ((void)); static void es1800_reset PARAMS ((char *)); static void es1800_request_quit PARAMS ((void)); static int readchar PARAMS ((void)); static void expect PARAMS ((char *, int)); static void expect_prompt PARAMS ((void)); static void download PARAMS ((FILE *, int, int)); #if 0 static void bfd_copy PARAMS ((bfd *, bfd *)); #endif static void get_break_addr PARAMS ((int, CORE_ADDR *)); static int fromhex PARAMS ((int)); static int tohex PARAMS ((int)); static void es1800_close PARAMS ((int)); static void es1800_fetch_registers PARAMS ((void)); static void es1800_fetch_register PARAMS ((int)); static void es1800_store_register PARAMS ((int)); static void es1800_read_bytes PARAMS ((CORE_ADDR, char *, int)); static void es1800_write_bytes PARAMS ((CORE_ADDR, char *, int)); static void send_with_reply PARAMS ((char *, char *, int)); static void send_command PARAMS ((char *)); static void send PARAMS ((char *)); static void getmessage PARAMS ((char *, int)); static void es1800_mourn_inferior PARAMS ((void)); static void es1800_create_break_insn PARAMS ((char *, int)); static void es1800_init_break PARAMS ((char *, int)); /* Local variables */ /* FIXME: Convert this to use "set remotedebug" instead. */ #define LOG_FILE "es1800.log" #if defined (LOG_FILE) static FILE *log_file; #endif extern struct target_ops es1800_ops; /* Forward decl */ extern struct target_ops es1800_child_ops; /* Forward decl */ static int kiodebug; static int timeout = 100; static char *savename; /* Name of i/o device used */ static serial_ttystate es1800_saved_ttystate; static int es1800_fc_save; /* Save fcntl state */ /* indicates that the emulator uses 32-bit data-adress (68020-mode) instead of 24-bit (68000 -mode) */ static int m68020; #define MODE (m68020 ? "M68020" : "M68000" ) #define ES1800_BREAK_VEC (0xf) /* Descriptor for I/O to remote machine. Initialize it to NULL so that es1800_open knows that we don't have a file open when the program starts. */ static serial_t es1800_desc = NULL; #define PBUFSIZ 1000 #define HDRLEN sizeof("@.BAAAAAAAA=$VV\r") /* Maximum number of bytes to read/write at once. The value here is chosen to fill up a packet. */ #define MAXBUFBYTES ((PBUFSIZ-150)*16/75 ) static int es1800_break_vec = 0; static char es1800_break_insn[2]; static long es1800_break_address; static void (*old_sigint)(); /* Old signal-handler for sigint */ static jmp_buf interrupt; /* Local signalhandler to allow breaking tranfers or program run. Rely on global variables: old_sigint(), interrupt */ static void es1800_request_quit () { /* restore original signalhandler */ signal (SIGINT, old_sigint); longjmp (interrupt, 1); } /* Reset emulator. Sending reset character(octal 32) to emulator. quit - return to '(esgdb)' prompt or continue */ static void es1800_reset (quit) char *quit; { char buf[80]; if (quit) { printf ("\nResetting emulator... "); } strcpy (buf, "\032"); send (buf); expect_prompt (); if (quit) { error ("done\n"); } } /* Open a connection to a remote debugger and push the new target onto the stack. Check if the emulator is responding and find out what kind of processor the emulator is connected to. Initiate the breakpoint handling in the emulator. name - the filename used for communication (ex. '/dev/tta') from_tty - says whether to be verbose or not */ static void es1800_open (name, from_tty) char *name; int from_tty; { char buf[PBUFSIZ]; char *p; int i, fcflag; m68020 = 0; if (!name) /* no device name given in target command */ { error_no_arg ("serial port device name"); } target_preopen (from_tty); es1800_close (0); /* open the device and configure it for communication */ #ifndef DEBUG_STDIN es1800_desc = SERIAL_OPEN (name); if (es1800_desc == NULL) { perror_with_name (name); } savename = savestring (name, strlen (name)); es1800_saved_ttystate = SERIAL_GET_TTY_STATE (es1800_desc); if ((fcflag = fcntl (es1800_desc->fd, F_GETFL, 0)) == -1) { perror_with_name ("fcntl serial"); } es1800_fc_save = fcflag; fcflag = (fcflag & (FREAD | FWRITE)); /* mask out any funny stuff */ if (fcntl (es1800_desc->fd, F_SETFL, fcflag) == -1) { perror_with_name ("fcntl serial"); } if (baud_rate != -1) { if (SERIAL_SETBAUDRATE (es1800_desc, baud_rate)) { SERIAL_CLOSE (es1800_desc); perror_with_name (name); } } SERIAL_RAW (es1800_desc); /* If there is something sitting in the buffer we might take it as a response to a command, which would be bad. */ SERIAL_FLUSH_INPUT (es1800_desc); #endif /* DEBUG_STDIN */ push_target (&es1800_ops); /* Switch to using remote target now */ if (from_tty) { printf ("Remote ES1800 debugging using %s\n", name); } #if defined (LOG_FILE) log_file = fopen (LOG_FILE, "w"); if (log_file == NULL) { perror_with_name (LOG_FILE); } #endif /* LOG_FILE */ /* Hello? Are you there?, also check mode */ /* send_with_reply( "DB 0 TO 1", buf, sizeof(buf)); */ /* for (p = buf, i = 0; *p++ =='0';) */ /* count the number of zeros */ /* i++; */ send ("\032"); getmessage (buf, sizeof (buf)); /* send reset character */ if (from_tty) { printf ("Checking mode.... "); } /* m68020 = (i==8); */ /* if eight zeros then we are in m68020 mode */ /* What kind of processor am i talking to ?*/ p = buf; while (*p++ != '\n') {;} while (*p++ != '\n') {;} while (*p++ != '\n') {;} for (i = 0; i < 20; i++, p++) {;} m68020 = !strncmp (p, "68020", 5); if (from_tty) { printf ("You are in %s(%c%c%c%c%c)-mode\n", MODE, p[0], p[1], p[2], p[3], p[4]); } /* if no init_break statement is present in .gdb file we have to check whether to download a breakpoint routine or not */ #if 0 if ((es1800_break_vec == 0) || (verify_break (es1800_break_vec) != 0) && query ("No breakpoint routine in ES 1800 emulator!\nDownload a breakpoint routine to the emulator? ")) { CORE_ADDR memaddress; printf ("Give the start address of the breakpoint routine: "); scanf ("%li", &memaddress); es1800_init_break ((es1800_break_vec ? es1800_break_vec : ES1800_BREAK_VEC), memaddress); } #endif } /* Close out all files and local state before this target loses control. quitting - are we quitting gdb now? */ static void es1800_close (quitting) int quitting; { if (es1800_desc != NULL) { printf ("\nClosing connection to emulator...\n"); if (SERIAL_SET_TTY_STATE (es1800_desc, es1800_saved_ttystate) < 0) print_sys_errmsg ("warning: unable to restore tty state", errno); fcntl (es1800_desc->fd, F_SETFL, es1800_fc_save); SERIAL_CLOSE (es1800_desc); es1800_desc = NULL; } if (savename != NULL) { free (savename); } savename = NULL; #if defined (LOG_FILE) if (log_file != NULL) { if (ferror (log_file)) { printf ("Error writing log file.\n"); } if (fclose (log_file) != 0) { printf ("Error closing log file.\n"); } log_file = NULL; } #endif /* LOG_FILE */ } /* Attaches to a process on the target side proc_id - the id of the process to be attached. from_tty - says whether to be verbose or not */ static void es1800_attach (args, from_tty) char *args; int from_tty; { error ("Cannot attach to pid %s, this feature is not implemented yet.", args); } /* Takes a program previously attached to and detaches it. We better not have left any breakpoints in the program or it'll die when it hits one. Close the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. args - arguments given to the 'detach' command from_tty - says whether to be verbose or not */ static void es1800_detach (args, from_tty) char *args; int from_tty; { if (args) { error ("Argument given to \"detach\" when remotely debugging."); } pop_target (); if (from_tty) { printf ("Ending es1800 remote debugging.\n"); } } /* Tell the remote machine to resume. step - single-step or run free siggnal - the signal value to be given to the target (0 = no signal) */ static void es1800_resume (pid, step, siggnal) int pid; int step; enum target_signal siggnal; { char buf[PBUFSIZ]; if (siggnal) { error ("Can't send signals to a remote system."); } if (step) { strcpy (buf,"STP\r"); send (buf); } else { send_command ("RBK"); } } /* Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. status - */ static int es1800_wait (pid, status) int pid; struct target_waitstatus *status; { unsigned char buf[PBUFSIZ]; int old_timeout = timeout; status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; timeout = 0; /* Don't time out -- user program is running. */ if (!setjmp (interrupt)) { old_sigint = signal (SIGINT, es1800_request_quit); while (1) { getmessage (buf, sizeof(buf)); if (strncmp ( buf, "\r\n* BREAK *", 11) == 0) { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; send_command ("STP"); /* Restore stack and PC and such */ if (m68020) { send_command ("STP"); } break; } if (strncmp (buf, "STP\r\n ", 6) == 0) { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; break; } if (buf[strlen (buf) - 2] == 'R') { printf ("Unexpected emulator reply: \n%s\n", buf); } else { printf ("Unexpected stop: \n%s\n", buf); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_QUIT; break; } } } else { fflush (stdin); printf ("\nStopping emulator..."); if (!setjmp (interrupt)) { old_sigint = signal (SIGINT, es1800_request_quit); send_command ("STP"); printf (" emulator stopped\n"); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_INT; } else { fflush (stdin); es1800_reset ((char*) 1); } } signal (SIGINT, old_sigint); timeout = old_timeout; return (0); } /* Fetch register values from remote machine. regno - the register to be fetched (fetch all registers if -1) */ static void es1800_fetch_register (regno) int regno; { char buf[PBUFSIZ]; int k; int r; char *p; static char regtab[18][4] = { "D0 ", "D1 ", "D2 ", "D3 ", "D4 ", "D5 ", "D6 ", "D7 ", "A0 ", "A1 ", "A2 ", "A3 ", "A4 ", "A5 ", "A6 ", "SSP", "SR ", "PC " }; if ((regno < 15) || (regno == 16) || (regno == 17)) { r = regno * 4; send_with_reply (regtab[regno], buf, sizeof (buf)); p = buf; for (k = 0; k < 4; k++) { if ((p[k*2 + 1] == 0) || (p[k*2 + 2] == 0)) { error ("Emulator reply is too short: %s", buf); } registers[r++] = (fromhex (p[k*2 + 1]) * 16) + fromhex (p[k*2 + 2]); } } else { es1800_fetch_registers (); } } /* Read the remote registers into REGISTERS. Always fetches all registers. */ static void es1800_fetch_registers () { char buf[PBUFSIZ]; char SR_buf[PBUFSIZ]; int i; int k; int r; char *p; send_with_reply ("DR", buf, sizeof (buf)); /* Reply is edited to a string that describes registers byte by byte, each byte encoded as two hex characters. */ p = buf; r = 0; /* parsing row one - D0-D7-registers */ while (*p++ != '\n') {;} for (i = 4; i < 70; i += (i == 39 ? 3 : 1)) { for (k = 0; k < 4; k++) { if (p[i+0] == 0 || p[i+1] == 0) { error ("Emulator reply is too short: %s", buf); } registers[r++] = (fromhex (p[i+0]) * 16) + fromhex (p[i+1]); i += 2; } } p += i; /* parsing row two - A0-A6-registers */ while (*p++ != '\n') {;} for (i = 4; i < 61; i += (i == 39 ? 3 : 1)) { for (k = 0; k < 4; k++) { if (p[i+0] == 0 || p[i+1] == 0) { error ("Emulator reply is too short: %s", buf); } registers[r++] = (fromhex (p[i+0])) * 16 + fromhex (p[i+1]); i += 2; } } p += i; while (*p++ != '\n') {;} /* fetch SSP-, SR- and PC-registers */ /* first - check STATUS-word and decide which stackpointer to use */ send_with_reply ("SR", SR_buf, sizeof (SR_buf)); p = SR_buf; p += 5; if (m68020) { if (*p == '3') /* use masterstackpointer MSP */ { send_with_reply ("MSP", buf, sizeof (buf)); } else if (*p == '2') /* use interruptstackpointer ISP */ { send_with_reply ("ISP", buf, sizeof (buf)); } else /* use userstackpointer USP */ { send_with_reply ("USP", buf, sizeof (buf)); } p = buf; for (k = 0; k<4; k++) { if (p[k*2+1] == 0 || p[k*2+2] == 0) { error ("Emulator reply is too short: %s", buf); } registers[r++] = fromhex (buf[k*2+1]) * 16 + fromhex (buf[k*2+2]); } p = SR_buf; for (k = 0; k < 4; k++) { if (p[k*2+1] == 0 || p[k*2+2] == 0) { error ("Emulator reply is too short: %s", buf); } registers[r++] = fromhex (SR_buf[k*2+1]) * 16 + fromhex (SR_buf[k*2+2]); } send_with_reply ("PC", buf, sizeof (buf)); p = buf; for (k = 0; k<4; k++) { if (p[k*2+1] == 0 || p[k*2+2] == 0) { error ("Emulator reply is too short: %s", buf); } registers[r++] = fromhex (buf[k*2+1]) * 16 + fromhex (buf[k*2+2]); } } else /* 68000-mode */ { if (*p == '2') /* use supervisorstackpointer SSP */ { send_with_reply ("SSP", buf, sizeof (buf)); } else /* use userstackpointer USP */ { send_with_reply ("USP", buf, sizeof (buf)); } /* fetch STACKPOINTER */ p = buf; for (k = 0; k < 4; k++) { if (p[k*2 + 1] == 0 || p[k*2 + 2] == 0) { error ("Emulator reply is too short: %s", buf); } registers[r++] = fromhex (buf[k*2+1]) * 16 + fromhex (buf[k*2+2]); } /* fetch STATUS */ p = SR_buf; for (k = 0; k < 4; k++) { if (p[k*2+1] == 0 || p[k*2+2] == 0) { error ("Emulator reply is too short: %s", buf); } registers[r++] = fromhex (SR_buf[k*2+1]) * 16 + fromhex (SR_buf[k*2+2]); } /* fetch PC */ send_with_reply ("PC", buf, sizeof (buf)); p = buf; for (k = 0; k < 4; k++) { if (p[k*2+1] == 0 || p[k*2+2] == 0) { error ("Emulator reply is too short: %s", buf); } registers[r++] = fromhex (buf[k*2+1]) * 16 + fromhex (buf[k*2+2]); } } } /* Store register value, located in REGISTER, on the target processor. regno - the register-number of the register to store (-1 means store them all) FIXME: Return errno value. */ static void es1800_store_register(regno) int regno; { static char regtab[18][4] = { "D0 ", "D1 ", "D2 ", "D3 ", "D4 ", "D5 ", "D6 ", "D7 ", "A0 ", "A1 ", "A2 ", "A3 ", "A4 ", "A5 ", "A6 ", "SSP", "SR ", "PC " }; char buf[PBUFSIZ]; char SR_buf[PBUFSIZ]; char stack_pointer[4]; char *p; int i; int j; int k; unsigned char *r; r = (unsigned char *) registers; if (regno == -1) /* write all registers */ { j = 0; k = 18; } else /* write one register */ { j = regno; k = regno+1; r += regno * 4; } if ((regno == -1) || (regno == 15)) { /* fetch current status */ send_with_reply ("SR", SR_buf, sizeof (SR_buf)); p = SR_buf; p += 5; if (m68020) { if (*p == '3') /* use masterstackpointer MSP */ { strcpy (stack_pointer,"MSP"); } else { if (*p == '2') /* use interruptstackpointer ISP */ { strcpy (stack_pointer,"ISP"); } else { strcpy (stack_pointer,"USP"); /* use userstackpointer USP */ } } } else /* 68000-mode */ { if (*p == '2') /* use supervisorstackpointer SSP */ { strcpy (stack_pointer,"SSP"); } else { strcpy (stack_pointer,"USP");/* use userstackpointer USP */ } } strcpy (regtab[15],stack_pointer); } for (i = j; i> 4) & 0x0f); buf[6] = tohex (*r++ & 0x0f); buf[7] = tohex ((*r >> 4) & 0x0f); buf[8] = tohex (*r++ & 0x0f); buf[9] = tohex ((*r >> 4) & 0x0f); buf[10] = tohex (*r++ & 0x0f); buf[11] = tohex ((*r >> 4) & 0x0f); buf[12] = tohex (*r++ & 0x0f); buf[13] = 0; send_with_reply (buf, buf, sizeof (buf)); /* FIXME, reply not used? */ } } /* Prepare to store registers. */ static void es1800_prepare_to_store () { /* Do nothing, since we can store individual regs */ } /* Convert hex digit A to a number. */ static int fromhex (a) int a; { if (a >= '0' && a <= '9') { return a - '0'; } else if (a >= 'a' && a <= 'f') { return a - 'a' + 10; } else if (a >= 'A' && a <= 'F') { return a - 'A' + 10; } else { error ("Reply contains invalid hex digit"); } return (-1); } /* Convert number NIB to a hex digit. */ static int tohex (nib) int nib; { if (nib < 10) { return ('0' + nib); } else { return ('A' + nib - 10); } } /* Read or write LEN bytes from inferior memory at MEMADDR, transferring to or from debugger address MYADDR. Write to inferior if WRITE is nonzero. Returns length of data written or read; 0 for error. memaddr - the target's address myaddr - gdb's address len - number of bytes write - write if != 0 otherwise read */ static int es1800_xfer_inferior_memory (memaddr, myaddr, len, write, tops) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *tops; /* Unused */ { int origlen = len; int xfersize; while (len > 0) { xfersize = len > MAXBUFBYTES ? MAXBUFBYTES : len; if (write) { es1800_write_bytes (memaddr, myaddr, xfersize); } else { es1800_read_bytes (memaddr, myaddr, xfersize); } memaddr += xfersize; myaddr += xfersize; len -= xfersize; } return (origlen); /* no error possible */ } /* Write memory data directly to the emulator. This does not inform the data cache; the data cache uses this. MEMADDR is the address in the remote memory space. MYADDR is the address of the buffer in our space. LEN is the number of bytes. memaddr - the target's address myaddr - gdb's address len - number of bytes */ static void es1800_write_bytes (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { char buf[PBUFSIZ]; int i; char *p; p = myaddr; for (i = 0; i < len; i++) { sprintf (buf, "@.B$%x=$%x", memaddr+i, (*p++) & 0xff); send_with_reply (buf, buf, sizeof (buf)); /* FIXME send_command? */ } } /* Read memory data directly from the emulator. This does not use the data cache; the data cache uses this. memaddr - the target's address myaddr - gdb's address len - number of bytes */ static void es1800_read_bytes (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { static int DB_tab[16] = {8,11,14,17,20,23,26,29,34,37,40,43,46,49,52,55}; char buf[PBUFSIZ]; int i; int low_addr; char *p; char *b; if (len > PBUFSIZ / 2 - 1) { abort (); } if (len == 1) /* The emulator does not like expressions like: */ { len = 2; /* DB.B $20018 TO $20018 */ } /* Reply describes registers byte by byte, each byte encoded as two hex characters. */ sprintf (buf, "DB.B $%x TO $%x", memaddr, memaddr+len-1); send_with_reply (buf, buf, sizeof (buf)); b = buf; low_addr = memaddr&0x0f; for (i = low_addr; i < low_addr + len; i++) { if ((!(i % 16)) && i) { /* if (i = 16,32,48) */ while (*p++!='\n') {;} b = p; } p = b + DB_tab[i%16] + (m68020 ? 2 : 0); if (p[0] == 32 || p[1] == 32) { error ("Emulator reply is too short: %s", buf); } myaddr[i-low_addr] = fromhex (p[0]) * 16 + fromhex (p[1]); } } /* Information about the current target */ static void es1800_files_info (tops) struct target_ops *tops; /* Unused */ { printf ("ES1800 Attached to %s at %d baud in %s mode\n", savename, 19200, MODE); } /* We read the contents of the target location and stash it, then overwrite it with a breakpoint instruction. addr - is the target location in the target machine. contents_cache - is a pointer to memory allocated for saving the target contents. It is guaranteed by the caller to be long enough to save sizeof BREAKPOINT bytes. FIXME: This size is target_arch dependent and should be available in the target_arch transfer vector, if we ever have one... */ static int es1800_insert_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { int val; val = target_read_memory (addr, contents_cache, sizeof (es1800_break_insn)); if (val == 0) { val = target_write_memory (addr, es1800_break_insn, sizeof (es1800_break_insn)); } return (val); } /* Write back the stashed instruction addr - is the target location in the target machine. contents_cache - is a pointer to memory allocated for saving the target contents. It is guaranteed by the caller to be long enough to save sizeof BREAKPOINT bytes. */ static int es1800_remove_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { return (target_write_memory (addr, contents_cache, sizeof (es1800_break_insn))); } /* create_break_insn () Primitive datastructures containing the es1800 breakpoint instruction */ static void es1800_create_break_insn (ins, vec) char *ins; int vec; { if (vec == 15) { ins[0] = 0x4e; ins[1] = 0x4f; } } /* verify_break () Seach for breakpoint routine in emulator memory. returns non-zero on failure vec - trap vector used for breakpoints */ static int verify_break (vec) int vec; { CORE_ADDR memaddress; char buf[8]; char *instr = "NqNqNqNs"; /* breakpoint routine */ int status; get_break_addr (vec, &memaddress); if (memaddress) { status = target_read_memory (memaddress, buf, 8); if (status != 0) { memory_error (status, memaddress); } return (STRCMP (instr, buf)); } return (-1); } /* get_break_addr () find address of breakpint routine vec - trap vector used for breakpoints addrp - store the address here */ static void get_break_addr (vec, addrp) int vec; CORE_ADDR *addrp; { CORE_ADDR memaddress = 0; int status; int k; char buf[PBUFSIZ]; char base_addr[4]; char *p; if (m68020) { send_with_reply ("VBR ", buf, sizeof (buf)); p = buf; for (k = 0; k < 4; k++) { if ((p[k*2 + 1] == 0) || (p[k*2 + 2] == 0)) { error ("Emulator reply is too short: %s", buf); } base_addr[k] = (fromhex (p[k*2 + 1]) * 16) + fromhex (p[k*2 + 2]); } /* base addr of exception vector table */ memaddress = *((CORE_ADDR *) base_addr); } memaddress += (vec + 32) * 4; /* address of trap vector */ status = target_read_memory (memaddress, (char *) addrp, 4); if (status != 0) { memory_error (status, memaddress); } } /* Kill an inferior process */ static void es1800_kill () { if (inferior_pid != 0) { inferior_pid = 0; es1800_mourn_inferior (); } } /* Load a file to the ES1800 emulator. Converts the file from a.out format into Extended Tekhex format before the file is loaded. Also loads the trap routine, and sets the ES1800 breakpoint on it filename - the a.out to be loaded from_tty - says whether to be verbose or not FIXME Uses emulator overlay memory for trap routine */ static void es1800_load (filename, from_tty) char *filename; int from_tty; { FILE *instream; char loadname[15]; char buf[160]; struct cleanup *old_chain; int es1800_load_format = 5; if (es1800_desc == NULL) { printf ("No emulator attached, type emulator-command first\n"); return; } filename = tilde_expand (filename); make_cleanup (free, filename); switch (es1800_load_format) { case 2: /* Extended Tekhex */ if (from_tty) { printf ("Converting \"%s\" to Extended Tekhex Format\n", filename); } sprintf (buf, "tekhex %s", filename); system (buf); sprintf (loadname, "out.hex"); break; case 5: /* Motorola S-rec */ if (from_tty) { printf ("Converting \"%s\" to Motorola S-record format\n", filename); } /* in the future the source code in copy (part of binutils-1.93) will be included in this file */ sprintf (buf, "copy -s \"a.out-sunos-big\" -d \"srec\" %s /tmp/out.hex", filename); system (buf); sprintf (loadname, "/tmp/out.hex"); break; default: error ("Downloading format not defined\n"); } breakpoint_init_inferior (); inferior_pid = 0; if (from_tty) { printf ("Downloading \"%s\" to the ES 1800\n",filename); } if ((instream = fopen (loadname, "r")) == NULL) { perror_with_name ("fopen:"); } old_chain = make_cleanup (fclose, instream); immediate_quit++; es1800_reset (0); download (instream, from_tty, es1800_load_format); /* if breakpoint routine is not present anymore we have to check whether to download a new breakpoint routine or not */ if ((verify_break (es1800_break_vec) != 0) && query ("No breakpoint routine in ES 1800 emulator!\nDownload a breakpoint routine to the emulator? ")) { char buf[128]; printf ("Using break vector 0x%x\n", es1800_break_vec); sprintf (buf, "0x%x ", es1800_break_vec); printf ("Give the start address of the breakpoint routine: "); fgets (buf + strlen (buf), sizeof (buf) - strlen (buf), stdin); es1800_init_break (buf, 0); } do_cleanups (old_chain); expect_prompt (); readchar (); /* FIXME I am getting a ^G = 7 after the prompt */ printf ("\n"); if (fclose (instream) == EOF) { ; } if (es1800_load_format != 2) { sprintf (buf, "/usr/bin/rm %s", loadname); system (buf); } symbol_file_command (filename, from_tty); /* reading symbol table */ immediate_quit--; } #if 0 #define NUMCPYBYTES 20 static void bfd_copy (from_bfd, to_bfd) bfd *from_bfd; bfd *to_bfd; { asection *p, *new; int i; char buf[NUMCPYBYTES]; for (p = from_bfd->sections; p != NULL; p = p->next) { printf (" Copying section %s. Size = %x.\n", p->name, p->_cooked_size); printf (" vma = %x, offset = %x, output_sec = %x\n", p->vma, p->output_offset, p->output_section); new = bfd_make_section (to_bfd, p->name); if (p->_cooked_size && !bfd_set_section_size (to_bfd, new, p->_cooked_size)) { error ("Wrong BFD size!\n"); } if (!bfd_set_section_flags (to_bfd, new, p->flags)) { error ("bfd_set_section_flags"); } new->vma = p->vma; for (i = 0; (i + NUMCPYBYTES) < p->_cooked_size ; i += NUMCPYBYTES) { if (!bfd_get_section_contents (from_bfd, p, (PTR) buf, (file_ptr) i, (bfd_size_type) NUMCPYBYTES)) { error ("bfd_get_section_contents\n"); } if (!bfd_set_section_contents (to_bfd, new, (PTR) buf, (file_ptr) i, (bfd_size_type) NUMCPYBYTES)) { error ("bfd_set_section_contents\n"); } } bfd_get_section_contents (from_bfd, p, (PTR) buf, (file_ptr) i, (bfd_size_type) (p->_cooked_size - i)); bfd_set_section_contents (to_bfd, new, (PTR) buf,(file_ptr) i, (bfd_size_type) (p->_cooked_size - i)); } } #endif /* Start an process on the es1800 and set inferior_pid to the new process' pid. execfile - the file to run args - arguments passed to the program env - the environment vector to pass */ static void es1800_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; int pid; #if 0 struct expression *expr; register struct cleanup *old_chain = 0; register value val; #endif if (args && *args) { error ("Can't pass arguments to remote ES1800 process"); } #if 0 if (query ("Use 'start' as entry point? ")) { expr = parse_c_expression ("start"); old_chain = make_cleanup (free_current_contents, &expr); val = evaluate_expression (expr); entry_pt = (val->location).address; } else { printf ("Enter the program's entry point (in hexadecimal): "); scanf ("%x", &entry_pt); } #endif if (execfile == 0 || exec_bfd == 0) { error ("No exec file specified"); } entry_pt = (int) bfd_get_start_address (exec_bfd); pid = 42; /* Now that we have a child process, make it our target. */ push_target (&es1800_child_ops); /* The "process" (board) is already stopped awaiting our commands, and the program is already downloaded. We just set its PC and go. */ inferior_pid = pid; /* Needed for wait_for_inferior below */ clear_proceed_status (); /* Tell wait_for_inferior that we've started a new process. */ init_wait_for_inferior (); /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); /* remote_start (args); */ /* trap_expected = 0; */ /* insert_step_breakpoint (); FIXME, do we need this? */ /* Let 'er rip... */ proceed ((CORE_ADDR) entry_pt, TARGET_SIGNAL_DEFAULT, 0); } /* The process has died, clean up. */ static void es1800_mourn_inferior () { remove_breakpoints (); unpush_target (&es1800_child_ops); generic_mourn_inferior (); /* Do all the proper things now */ } /* ES1800-protocol specific routines */ /* Keep discarding input from the remote system, until STRING is found. Let the user break out immediately. string - the string to expect nowait - break out if string not the emulator's first respond otherwise read until string is found (== 0) */ static void expect (string, nowait) char *string; int nowait; { char c; char *p = string; immediate_quit++; while (1) { c = readchar (); if (isalpha (c)) { c = toupper (c); } if (c == toupper (*p)) { p++; if (*p == '\0') { immediate_quit--; return; } } else if (!nowait) { p = string; } else { printf ("\'%s\' expected\n" , string); printf ("char %d is %d", p - string, c); error ("\n" ); } } } /* Keep discarding input until we see the prompt. */ static void expect_prompt () { expect (">", 0); } /* Read one character */ #ifdef DEBUG_STDIN /* read from stdin */ static int readchar () { char buf[1]; buf[0] = '\0'; printf ("readchar, give one character\n"); read (0, buf, 1); #if defined (LOG_FILE) putc (buf[0] & 0x7f, log_file); #endif return (buf[0] & 0x7f); } #else /* !DEBUG_STDIN */ /* Read a character from the remote system, doing all the fancy timeout stuff. */ static int readchar () { int ch; ch = SERIAL_READCHAR (es1800_desc, timeout); /* FIXME: doing an error() here will probably cause trouble, at least if from es1800_wait. */ if (ch == SERIAL_TIMEOUT) error ("Timeout reading from remote system."); else if (ch == SERIAL_ERROR) perror_with_name ("remote read"); #if defined (LOG_FILE) putc (ch & 0x7f, log_file); fflush (log_file); #endif return (ch); } #endif /* DEBUG_STDIN */ /* Send a command to the emulator and save the reply. Report an error if we get an error reply. string - the es1800 command buf - containing the emulator reply on return len - size of buf */ static void send_with_reply (string, buf, len) char *string, *buf; int len; { send (string); SERIAL_WRITE (es1800_desc, "\r", 1); #ifndef DEBUG_STDIN expect (string, 1); expect ("\r\n", 0); #endif getmessage (buf, len); } /* Send the command in STR to the emulator adding \r. check the echo for consistency. string - the es1800 command */ static void send_command (string) char *string; { send (string); SERIAL_WRITE (es1800_desc, "\r", 1); #ifndef DEBUG_STDIN expect (string, 0); expect_prompt (); #endif } /* Send a string string - the es1800 command */ static void send (string) char *string; { if (kiodebug) { fprintf (stderr, "Sending: %s\n", string); } SERIAL_WRITE (es1800_desc, string, strlen (string)); } /* Read a message from the emulator and store it in BUF. buf - containing the emulator reply on return len - size of buf */ static void getmessage (buf, len) char *buf; int len; { char *bp; int c; int prompt_found = 0; extern kiodebug; #if defined (LOG_FILE) /* This is a convenient place to do this. The idea is to do it often enough that we never lose much data if we terminate abnormally. */ fflush (log_file); #endif bp = buf; c = readchar (); do { if (c) { if (len-- < 2) /* char and terminaling NULL */ { error ("input buffer overrun\n"); } *bp++ = c; } c = readchar (); if ((c == '>') && (*(bp - 1) == ' ')) { prompt_found = 1; } } while (!prompt_found); *bp = 0; if (kiodebug) { fprintf (stderr,"message received :%s\n", buf); } } static void download (instream, from_tty, format) FILE *instream; int from_tty; int format; { char c; char buf[160]; int i = 0; send_command ("SET #2,$1A"); /* reset char = ^Z */ send_command ("SET #3,$11,$13"); /* XON XOFF */ if (format == 2) { send_command ("SET #26,#2"); } else { send_command ("SET #26,#5"); /* Format=Extended Tekhex */ } send_command ("DFB = $10"); send_command ("PUR"); send_command ("CES"); send ("DNL\r"); expect ("DNL", 1); if (from_tty) { printf (" 0 records loaded...\r"); } while (fgets (buf, 160, instream)) { send (buf); if (from_tty) { printf ("%5d\b\b\b\b\b",++i); fflush (stdout); } if ((c = readchar ()) != 006) { error ("expected ACK"); } } if (from_tty) { printf ("- All"); } } /* Additional commands */ #if defined (TIOCGETP) && defined (FNDELAY) && defined (EWOULDBLOCK) #define PROVIDE_TRANSPARENT #endif #ifdef PROVIDE_TRANSPARENT /* Talk directly to the emulator FIXME, uses busy wait, and is SUNOS (or at least BSD) specific */ /*ARGSUSED*/ static void es1800_transparent (args, from_tty) char *args; int from_tty; { int console; struct sgttyb modebl; int fcflag; int cc; struct sgttyb console_mode_save; int console_fc_save; int es1800_fc_save; int inputcnt = 80; char inputbuf[80]; int consolecnt = 0; char consolebuf[80]; int es1800_cnt = 0; char es1800_buf[80]; int i; dont_repeat (); if (es1800_desc == NULL) { printf ("No emulator attached, type emulator-command first\n"); return; } printf ("\n"); printf ("You are now communicating directly with the ES 1800 emulator.\n"); printf ("To leave this mode (transparent mode), press ^E.\n"); printf ("\n"); printf (" >"); fflush (stdout); if ((console = open ("/dev/tty", O_RDWR)) == -1) { perror_with_name ("/dev/tty:"); } if ((fcflag = fcntl (console, F_GETFL, 0)) == -1) { perror_with_name ("fcntl console"); } console_fc_save = fcflag; fcflag = fcflag | FNDELAY; if (fcntl (console, F_SETFL, fcflag) == -1) { perror_with_name ("fcntl console"); } if (ioctl (console, TIOCGETP, &modebl)) { perror_with_name ("ioctl console"); } console_mode_save = modebl; modebl.sg_flags = RAW; if (ioctl (console, TIOCSETP, &modebl)) { perror_with_name ("ioctl console"); } if ((fcflag = fcntl (es1800_desc->fd, F_GETFL, 0)) == -1) { perror_with_name ("fcntl serial"); } es1800_fc_save = fcflag; fcflag = fcflag | FNDELAY; if (fcntl (es1800_desc->fd, F_SETFL, fcflag) == -1) { perror_with_name ("fcntl serial"); } while (1) { cc = read (console, inputbuf, inputcnt); if (cc != -1) { if ((*inputbuf & 0x7f) == 0x05) { break; } for (i = 0; i < cc; ) { es1800_buf[es1800_cnt++] = inputbuf[i++]; } if ((cc = SERIAL_WRITE (es1800_desc, es1800_buf, es1800_cnt)) == -1) { perror_with_name ("FEL! write:"); } es1800_cnt -= cc; if (es1800_cnt && cc) { for (i = 0; i < es1800_cnt; i++) { es1800_buf[i] = es1800_buf[cc+i]; } } } else if (errno != EWOULDBLOCK) { perror_with_name ("FEL! read:"); } cc = read (es1800_desc->fd,inputbuf,inputcnt); if (cc != -1) { for (i = 0; i < cc; ) { consolebuf[consolecnt++] = inputbuf[i++]; } if ((cc = write (console,consolebuf,consolecnt)) == -1) { perror_with_name ("FEL! write:"); } consolecnt -= cc; if (consolecnt && cc) { for (i = 0; i < consolecnt; i++) { consolebuf[i] = consolebuf[cc+i]; } } } else if (errno != EWOULDBLOCK) { perror_with_name ("FEL! read:"); } } console_fc_save = console_fc_save & !FNDELAY; if (fcntl (console, F_SETFL, console_fc_save) == -1) { perror_with_name ("FEL! fcntl"); } if (ioctl (console, TIOCSETP, &console_mode_save)) { perror_with_name ("FEL! ioctl"); } close (console); if (fcntl (es1800_desc->fd, F_SETFL, es1800_fc_save) == -1) { perror_with_name ("FEL! fcntl"); } printf ("\n"); } #endif /* PROVIDE_TRANSPARENT */ static void es1800_init_break (args, from_tty) char *args; int from_tty; { CORE_ADDR memaddress = 0; char buf[PBUFSIZ]; char base_addr[4]; char *space_index; char *p; int k; if (args == NULL) { error_no_arg ("a trap vector"); } if (!(space_index = strchr (args, ' '))) { error ("Two arguments needed (trap vector and address of break routine).\n"); } *space_index = '\0'; es1800_break_vec = strtol (args, (char **) NULL, 0); es1800_break_address = parse_and_eval_address (space_index + 1); es1800_create_break_insn (es1800_break_insn, es1800_break_vec); if (m68020) { send_with_reply ("VBR ", buf, sizeof (buf)); p = buf; for (k = 0; k < 4; k++) { if ((p[k*2 + 1] == 0) || (p[k*2 + 2] == 0)) { error ("Emulator reply is too short: %s", buf); } base_addr[k] = (fromhex (p[k*2 + 1]) * 16) + fromhex (p[k*2 + 2]); } /* base addr of exception vector table */ memaddress = *((CORE_ADDR *) base_addr); } memaddress += (es1800_break_vec + 32) * 4; /* address of trap vector */ sprintf (buf, "@.L%lx=$%lx", memaddress, es1800_break_address); send_command (buf); /* set the address of the break routine in the */ /* trap vector */ sprintf (buf, "@.L%lx=$4E714E71", es1800_break_address); /* NOP; NOP */ send_command (buf); sprintf (buf, "@.L%lx=$4E714E73", es1800_break_address + 4); /* NOP; RTE */ send_command (buf); sprintf (buf, "AC2=$%lx", es1800_break_address + 4); /* breakpoint at es1800-break_address */ send_command (buf); send_command ("WHEN AC2 THEN BRK"); /* ie in exception routine */ if (from_tty) { printf ("Breakpoint (trap $%x) routine at address: %lx\n", es1800_break_vec, es1800_break_address); } } static void es1800_child_open (arg, from_tty) char *arg; int from_tty; { error ("Use the \"run\" command to start a child process."); } static void es1800_child_detach (args, from_tty) char *args; int from_tty; { if (args) { error ("Argument given to \"detach\" when remotely debugging."); } pop_target (); if (from_tty) { printf ("Ending debugging the process %d.\n", inferior_pid); } } /* Define the target subroutine names */ struct target_ops es1800_ops = { "es1800", /* to_shortname */ /* to_longname */ "Remote serial target in ES1800-emulator protocol", /* to_doc */ "Remote debugging on the es1800 emulator via a serial line.\n\ Specify the serial device it is connected to (e.g. /dev/ttya).", es1800_open, /* to_open */ es1800_close, /* to_close */ es1800_attach, /* to_attach */ es1800_detach, /* to_detach */ es1800_resume, /* to_resume */ NULL, /* to_wait */ NULL, /* to_fetch_registers */ NULL, /* to_store_registers */ es1800_prepare_to_store, /* to_prepare_to_store */ es1800_xfer_inferior_memory, /* to_xfer_memory */ es1800_files_info, /* to_files_info */ es1800_insert_breakpoint, /* to_insert_breakpoint */ es1800_remove_breakpoint, /* to_remove_breakpoint */ NULL, /* to_terminal_init */ NULL, /* to_terminal_inferior */ NULL, /* to_terminal_ours_for_output */ NULL, /* to_terminal_ours */ NULL, /* to_terminal_info */ NULL, /* to_kill */ es1800_load, /* to_load */ NULL, /* to_lookup_symbol */ es1800_create_inferior, /* to_create_inferior */ NULL, /* to_mourn_inferior */ 0, /* to_can_run */ 0, /* notice_signals */ core_stratum, /* to_stratum */ 0, /* to_next */ 0, /* to_has_all_memory */ 1, /* to_has_memory */ 0, /* to_has_stack */ 0, /* to_has_registers */ 0, /* to_has_execution */ NULL, /* to_sections */ NULL, /* to_sections_end */ OPS_MAGIC /* to_magic (always last) */ }; /* Define the target subroutine names */ struct target_ops es1800_child_ops = { "es1800_process", /* to_shortname */ /* to_longname */ "Remote serial target in ES1800-emulator protocol", /* to_doc */ "Remote debugging on the es1800 emulator via a serial line.\n\ Specify the serial device it is connected to (e.g. /dev/ttya).", es1800_child_open, /* to_open */ NULL, /* to_close */ es1800_attach, /* to_attach */ es1800_child_detach, /* to_detach */ es1800_resume, /* to_resume */ es1800_wait, /* to_wait */ es1800_fetch_register, /* to_fetch_registers */ es1800_store_register, /* to_store_registers */ es1800_prepare_to_store, /* to_prepare_to_store */ es1800_xfer_inferior_memory, /* to_xfer_memory */ es1800_files_info, /* to_files_info */ es1800_insert_breakpoint, /* to_insert_breakpoint */ es1800_remove_breakpoint, /* to_remove_breakpoint */ NULL, /* to_terminal_init */ NULL, /* to_terminal_inferior */ NULL, /* to_terminal_ours_for_output */ NULL, /* to_terminal_ours */ NULL, /* to_terminal_info */ es1800_kill, /* to_kill */ es1800_load, /* to_load */ NULL, /* to_lookup_symbol */ es1800_create_inferior, /* to_create_inferior */ es1800_mourn_inferior, /* to_mourn_inferior */ 0, /* to_can_run */ 0, /* notice_signals */ process_stratum, /* to_stratum */ 0, /* to_next */ 1, /* to_has_all_memory */ 1, /* to_has_memory */ 1, /* to_has_stack */ 1, /* to_has_registers */ 1, /* to_has_execution */ NULL, /* to_sections */ NULL, /* to_sections_end */ OPS_MAGIC /* to_magic (always last) */ }; void _initialize_es1800 () { add_target (&es1800_ops); add_target (&es1800_child_ops); #ifdef PROVIDE_TRANSPARENT add_com ("transparent", class_support, es1800_transparent, "Start transparent communication with the ES 1800 emulator."); #endif /* PROVIDE_TRANSPARENT */ add_com ("init_break", class_support, es1800_init_break, "Download break routine and initialize break facility on ES 1800"); } gdb-4.13/gdb/remote-hms.c 666 34562 1752 101603 5604353627 13570 0ustar fnfcygnus/* Remote debugging interface for Hitachi HMS Monitor Version 1.0 Copyright 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Steve Chamberlain (sac@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "wait.h" #include "value.h" #include #include #include #include #include #include #include "terminal.h" #include "target.h" #include "gdbcore.h" #include "serial.h" /* External data declarations */ extern int stop_soon_quietly; /* for wait_for_inferior */ /* Forward data declarations */ extern struct target_ops hms_ops; /* Forward declaration */ /* Forward function declarations */ static void hms_fetch_registers (); static int hms_store_registers (); static void hms_close (); static int hms_clear_breakpoints (); extern struct target_ops hms_ops; static void hms_drain (); static void add_commands (); static void remove_commands (); static int quiet = 1; serial_t desc; /***********************************************************************/ /* Caching stuff stolen from remote-nindy.c */ /* The data cache records all the data read from the remote machine since the last time it stopped. Each cache block holds LINE_SIZE bytes of data starting at a multiple-of-LINE_SIZE address. */ #define LINE_SIZE_POWER 4 #define LINE_SIZE (1<>2) struct dcache_block { struct dcache_block *next, *last; unsigned int addr; /* Address for which data is recorded. */ int data[LINE_SIZE / sizeof (int)]; }; struct dcache_block dcache_free, dcache_valid; /* Free all the data cache blocks, thus discarding all cached data. */ static void dcache_flush () { register struct dcache_block *db; while ((db = dcache_valid.next) != &dcache_valid) { remque (db); insque (db, &dcache_free); } } /* * If addr is present in the dcache, return the address of the block * containing it. */ static struct dcache_block * dcache_hit (addr) unsigned int addr; { register struct dcache_block *db; if (addr & 3) abort (); /* Search all cache blocks for one that is at this address. */ db = dcache_valid.next; while (db != &dcache_valid) { if ((addr & ~LINE_SIZE_MASK) == db->addr) return db; db = db->next; } return NULL; } /* Return the int data at address ADDR in dcache block DC. */ static int dcache_value (db, addr) struct dcache_block *db; unsigned int addr; { if (addr & 3) abort (); return (db->data[XFORM (addr)]); } /* Get a free cache block, put or keep it on the valid list, and return its address. The caller should store into the block the address and data that it describes, then remque it from the free list and insert it into the valid list. This procedure prevents errors from creeping in if a ninMemGet is interrupted (which used to put garbage blocks in the valid list...). */ static struct dcache_block * dcache_alloc () { register struct dcache_block *db; if ((db = dcache_free.next) == &dcache_free) { /* If we can't get one from the free list, take last valid and put it on the free list. */ db = dcache_valid.last; remque (db); insque (db, &dcache_free); } remque (db); insque (db, &dcache_valid); return (db); } /* Return the contents of the word at address ADDR in the remote machine, using the data cache. */ static int dcache_fetch (addr) CORE_ADDR addr; { register struct dcache_block *db; db = dcache_hit (addr); if (db == 0) { db = dcache_alloc (); immediate_quit++; hms_read_inferior_memory (addr & ~LINE_SIZE_MASK, (unsigned char *) db->data, LINE_SIZE); immediate_quit--; db->addr = addr & ~LINE_SIZE_MASK; remque (db); /* Off the free list */ insque (db, &dcache_valid); /* On the valid list */ } return (dcache_value (db, addr)); } /* Write the word at ADDR both in the data cache and in the remote machine. */ static void dcache_poke (addr, data) CORE_ADDR addr; int data; { register struct dcache_block *db; /* First make sure the word is IN the cache. DB is its cache block. */ db = dcache_hit (addr); if (db == 0) { db = dcache_alloc (); immediate_quit++; hms_write_inferior_memory (addr & ~LINE_SIZE_MASK, (unsigned char *) db->data, LINE_SIZE); immediate_quit--; db->addr = addr & ~LINE_SIZE_MASK; remque (db); /* Off the free list */ insque (db, &dcache_valid); /* On the valid list */ } /* Modify the word in the cache. */ db->data[XFORM (addr)] = data; /* Send the changed word. */ immediate_quit++; hms_write_inferior_memory (addr, (unsigned char *) &data, 4); immediate_quit--; } /* The cache itself. */ struct dcache_block the_cache[DCACHE_SIZE]; /* Initialize the data cache. */ static void dcache_init () { register i; register struct dcache_block *db; db = the_cache; dcache_free.next = dcache_free.last = &dcache_free; dcache_valid.next = dcache_valid.last = &dcache_valid; for (i = 0; i < DCACHE_SIZE; i++, db++) insque (db, &dcache_free); } /*********************************************************************** * I/O stuff stolen from remote-eb.c ***********************************************************************/ static int timeout = 2; static const char *dev_name; /* Descriptor for I/O to remote machine. Initialize it to -1 so that hms_open knows that we don't have a file open when the program starts. */ static int before = 0xdead; static int is_open = 0; static int after = 0xdead; int check_open () { if (before != 0xdead || after != 0xdead) printf("OUTCH! \n"); if (!is_open) { error ("remote device not open"); } } #define ON 1 #define OFF 0 /* Read a character from the remote system, doing all the fancy timeout stuff. */ static int readchar () { int buf; buf = SERIAL_READCHAR (desc, timeout); if (buf == SERIAL_TIMEOUT) { hms_write (".\r\n", 3); error ("Timeout reading from remote system."); } if (buf == SERIAL_ERROR) { error ("Serial port error!"); } if (!quiet) printf_unfiltered ("%c", buf); return buf & 0x7f; } static void flush() { while (1) { int b = SERIAL_READCHAR (desc, 0); if (b == SERIAL_TIMEOUT) return; } } static int readchar_nofail () { int buf; buf = SERIAL_READCHAR (desc, timeout); if (buf == SERIAL_TIMEOUT) buf = 0; if (!quiet) printf_unfiltered ("%c", buf); return buf & 0x7f; } /* Keep discarding input from the remote system, until STRING is found. Let the user break out immediately. */ static void expect (string) char *string; { char *p = string; char c; immediate_quit = 1; while (1) { c = readchar(); if (c == *p) { p++; if (*p == '\0') { immediate_quit = 0; return; } } else { p = string; if (c == *p) p++; } } } /* Keep discarding input until we see the hms prompt. The convention for dealing with the prompt is that you o give your command o *then* wait for the prompt. Thus the last thing that a procedure does with the serial line will be an expect_prompt(). Exception: hms_resume does not wait for the prompt, because the terminal is being handed over to the inferior. However, the next thing which happens after that is a hms_wait which does wait for the prompt. Note that this includes abnormal exit, e.g. error(). This is necessary to prevent getting into states from which we can't recover. */ static void expect_prompt () { expect ("HMS>"); } /* Get a hex digit from the remote system & return its value. If ignore_space is nonzero, ignore spaces (not newline, tab, etc). */ static int get_hex_digit (ignore_space) int ignore_space; { int ch; while (1) { ch = readchar (); if (ch >= '0' && ch <= '9') return ch - '0'; else if (ch >= 'A' && ch <= 'F') return ch - 'A' + 10; else if (ch >= 'a' && ch <= 'f') return ch - 'a' + 10; else if (ch == ' ' && ignore_space) ; else { expect_prompt (); error ("Invalid hex digit from remote system."); } } } /* Get a byte from hms_desc and put it in *BYT. Accept any number leading spaces. */ static void get_hex_byte (byt) char *byt; { int val; val = get_hex_digit (1) << 4; val |= get_hex_digit (0); *byt = val; } /* Read a 32-bit hex word from the hms, preceded by a space */ static long get_hex_word () { long val; int j; val = 0; for (j = 0; j < 8; j++) val = (val << 4) + get_hex_digit (j == 0); return val; } /* Called when SIGALRM signal sent due to alarm() timeout. */ /* Number of SIGTRAPs we need to simulate. That is, the next NEED_ARTIFICIAL_TRAP calls to hms_wait should just return SIGTRAP without actually waiting for anything. */ static int need_artificial_trap = 0; void hms_kill (arg, from_tty) char *arg; int from_tty; { } /* * Download a file specified in 'args', to the hms. */ static void hms_load (args, fromtty) char *args; int fromtty; { bfd *abfd; asection *s; int n; char buffer[1024]; check_open (); dcache_flush (); inferior_pid = 0; abfd = bfd_openr (args, gnutarget); if (!abfd) { printf_filtered ("Unable to open file %s\n", args); return; } if (bfd_check_format (abfd, bfd_object) == 0) { printf_filtered ("File is not an object file\n"); return; } s = abfd->sections; while (s != (asection *) NULL) { if (s->flags & SEC_LOAD) { int i; #define DELTA 1024 char *buffer = xmalloc (DELTA); printf_filtered ("%s\t: 0x%4x .. 0x%4x ", s->name, s->vma, s->vma + s->_raw_size); for (i = 0; i < s->_raw_size; i += DELTA) { int delta = DELTA; if (delta > s->_raw_size - i) delta = s->_raw_size - i; bfd_get_section_contents (abfd, s, buffer, i, delta); hms_write_inferior_memory (s->vma + i, buffer, delta); printf_filtered ("*"); gdb_flush (gdb_stdout); } printf_filtered ("\n"); free (buffer); } s = s->next; } sprintf (buffer, "r PC=%x", abfd->start_address); hms_write_cr (buffer); expect_prompt (); /* Turn off all breakpoints */ hms_write_cr ("b -"); expect_prompt (); } /* This is called not only when we first attach, but also when the user types "run" after having attached. */ void hms_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; char buffer[100]; if (args && *args) error ("Can't pass arguments to remote hms process."); if (execfile == 0 || exec_bfd == 0) error ("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); check_open (); hms_kill (NULL, NULL); hms_clear_breakpoints (); init_wait_for_inferior (); hms_write_cr (""); expect_prompt (); insert_breakpoints (); /* Needed to get correct instruction in cache */ proceed (entry_pt, TARGET_SIGNAL_DEFAULT, 0); } /* Open a connection to a remote debugger. NAME is the filename used for communication, then a space, then the baud rate. */ static char * find_end_of_word (s) char *s; { while (*s && !isspace (*s)) s++; return s; } static char * get_word (p) char **p; { char *s = *p; char *word; char *copy; size_t len; while (isspace (*s)) s++; word = s; len = 0; while (*s && !isspace (*s)) { s++; len++; } copy = xmalloc (len + 1); memcpy (copy, word, len); copy[len] = 0; *p = s; return copy; } static int baudrate = 9600; static int is_baudrate_right () { int ok; /* Put this port into NORMAL mode, send the 'normal' character */ hms_write ("\001", 1); /* Control A */ hms_write ("\r\n", 2); /* Cr */ while (1) { ok = SERIAL_READCHAR (desc, timeout); if (ok < 0) break; } hms_write ("r", 1); if (readchar_nofail () == 'r') return 1; /* Not the right baudrate, or the board's not on */ return 0; } static void set_rate () { if (!SERIAL_SETBAUDRATE (desc, baudrate)) error ("Can't set baudrate"); } static void hms_open (name, from_tty) char *name; int from_tty; { unsigned int prl; char *p; if (name == 0) { name = ""; } if (is_open) hms_close (0); dev_name = strdup (name); if (!(desc = SERIAL_OPEN (dev_name))) perror_with_name ((char *) dev_name); SERIAL_RAW (desc); is_open = 1; push_target (&hms_ops); dcache_init (); /* Hello? Are you there? */ SERIAL_WRITE (desc, "\r\n", 2); expect_prompt (); /* Clear any break points */ hms_clear_breakpoints (); printf_filtered ("Connected to remote board running HMS monitor.\n"); add_commands (); /* hms_drain ();*/ } /* Close out all files and local state before this target loses control. */ static void hms_close (quitting) int quitting; { /* Clear any break points */ remove_commands (); hms_clear_breakpoints (); sleep (1); /* Let any output make it all the way back */ if (is_open) { SERIAL_WRITE (desc, "R\r\n", 3); SERIAL_CLOSE (desc); } is_open = 0; } /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ void hms_detach (args, from_tty) char *args; int from_tty; { if (is_open) { hms_clear_breakpoints (); } pop_target (); /* calls hms_close to do the real work */ if (from_tty) printf_filtered ("Ending remote %s debugging\n", target_shortname); } /* Tell the remote machine to resume. */ void hms_resume (pid, step, sig) int pid, step; enum target_signal sig; { dcache_flush (); if (step) { hms_write_cr ("s"); expect ("Step>"); /* Force the next hms_wait to return a trap. Not doing anything about I/O from the target means that the user has to type "continue" to see any. FIXME, this should be fixed. */ need_artificial_trap = 1; } else { hms_write_cr ("g"); expect ("g"); } } /* Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. */ int hms_wait (pid, status) int pid; struct target_waitstatus *status; { /* Strings to look for. '?' means match any single character. Note that with the algorithm we use, the initial character of the string cannot recur in the string, or we will not find some cases of the string in the input. */ static char bpt[] = "At breakpoint:"; /* It would be tempting to look for "\n[__exit + 0x8]\n" but that requires loading symbols with "yc i" and even if we did do that we don't know that the file has symbols. */ static char exitmsg[] = "HMS>"; char *bp = bpt; char *ep = exitmsg; /* Large enough for either sizeof (bpt) or sizeof (exitmsg) chars. */ char swallowed[50]; /* Current position in swallowed. */ char *swallowed_p = swallowed; int ch; int ch_handled; int old_timeout = timeout; int old_immediate_quit = immediate_quit; int swallowed_cr = 0; status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; if (need_artificial_trap != 0) { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; need_artificial_trap--; return 0; } timeout = 5; /* Don't time out for a while - user program is running. */ immediate_quit = 1; /* Helps ability to QUIT */ while (1) { QUIT; /* Let user quit and leave process running */ ch_handled = 0; ch = readchar (); if (ch == *bp) { bp++; if (*bp == '\0') break; ch_handled = 1; *swallowed_p++ = ch; } else { bp = bpt; } if (ch == *ep || *ep == '?') { ep++; if (*ep == '\0') break; if (!ch_handled) *swallowed_p++ = ch; ch_handled = 1; } else { ep = exitmsg; } if (!ch_handled) { char *p; /* Print out any characters which have been swallowed. */ for (p = swallowed; p < swallowed_p; ++p) putc_unfiltered (*p); swallowed_p = swallowed; if ((ch != '\r' && ch != '\n') || swallowed_cr > 10) { putc_unfiltered (ch); swallowed_cr = 10; } swallowed_cr++; } } if (*bp == '\0') { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; expect_prompt (); } else { status->kind = TARGET_WAITKIND_EXITED; status->value.integer = TARGET_SIGNAL_STOP; } timeout = old_timeout; immediate_quit = old_immediate_quit; return 0; } /* Return the name of register number REGNO in the form input and output by hms. Returns a pointer to a static buffer containing the answer. */ static char * get_reg_name (regno) int regno; { static char *rn[] = REGISTER_NAMES; return rn[regno]; } /* Read the remote registers. */ static int gethex (length, start, ok) unsigned int length; char *start; int *ok; { int result = 0; while (length--) { result <<= 4; if (*start >= 'a' && *start <= 'f') { result += *start - 'a' + 10; } else if (*start >= 'A' && *start <= 'F') { result += *start - 'A' + 10; } else if (*start >= '0' && *start <= '9') { result += *start - '0'; } else *ok = 0; start++; } return result; } static int timed_read (buf, n, timeout) char *buf; { int i; char c; i = 0; while (i < n) { c = readchar (); if (c == 0) return i; buf[i] = c; i++; } return i; } hms_write (a, l) char *a; { int i; SERIAL_WRITE (desc, a, l); if (!quiet) { printf_unfiltered ("<"); for (i = 0; i < l; i++) { printf_unfiltered ("%c", a[i]); } printf_unfiltered (">"); } } hms_write_cr (s) char *s; { hms_write (s, strlen (s)); hms_write ("\r\n", 2); } #ifdef GDB_TARGET_IS_H8500 /* H8/500 monitor reg dump looks like: HMS>r PC:8000 SR:070C .7NZ.. CP:00 DP:00 EP:00 TP:00 BR:00 R0-R7: FF5A 0001 F4FE F500 0000 F528 F528 F4EE HMS> */ supply_val (n, size, ptr, segptr) int n; int size; char *ptr; char *segptr; { int ok; char raw[4]; switch (size) { case 2: raw[0] = gethex (2, ptr, &ok); raw[1] = gethex (2, ptr + 2, &ok); supply_register (n, raw); break; case 1: raw[0] = gethex (2, ptr, &ok); supply_register (n, raw); break; case 4: { int v = gethex (4, ptr, &ok); v |= gethex (2, segptr, &ok) << 16; raw[0] = 0; raw[1] = (v >> 16) & 0xff; raw[2] = (v >> 8) & 0xff; raw[3] = (v >> 0) & 0xff; supply_register (n, raw); } } } static void hms_fetch_register (dummy) int dummy; { #define REGREPLY_SIZE 108 char linebuf[REGREPLY_SIZE + 1]; int i; int s; int gottok; LONGEST reg[NUM_REGS]; check_open (); do { hms_write_cr ("r"); expect ("r"); s = timed_read (linebuf + 1, REGREPLY_SIZE, 1); linebuf[REGREPLY_SIZE] = 0; gottok = 0; if (linebuf[3] == 'P' && linebuf[4] == 'C' && linebuf[5] == ':' && linebuf[105] == 'H' && linebuf[106] == 'M' && linebuf[107] == 'S') { /* 012 r** -------1---------2---------3---------4---------5----- 345678901234567890123456789012345678901234567890123456 PC:8000 SR:070C .7NZ.. CP:00 DP:00 EP:00 TP:00 BR:00** ---6---------7---------8---------9--------10---- 789012345678901234567890123456789012345678901234 R0-R7: FF5A 0001 F4FE F500 0000 F528 F528 F4EE** 56789 HMS> */ gottok = 1; supply_val (PC_REGNUM, 4, linebuf + 6, linebuf + 29); supply_val (CCR_REGNUM, 2, linebuf + 14); supply_val (SEG_C_REGNUM, 1, linebuf + 29); supply_val (SEG_D_REGNUM, 1, linebuf + 35); supply_val (SEG_E_REGNUM, 1, linebuf + 41); supply_val (SEG_T_REGNUM, 1, linebuf + 47); for (i = 0; i < 8; i++) { static int sr[8] = {35, 35, 35, 35, 41, 41, 47, 47}; char raw[4]; char *src = linebuf + 64 + 5 * i; char *segsrc = linebuf + sr[i]; supply_val (R0_REGNUM + i, 2, src); supply_val (PR0_REGNUM + i, 4, src, segsrc); } } if (!gottok) { hms_write_cr (""); expect ("HMS>"); } } while (!gottok); } #endif #ifdef GDB_TARGET_IS_H8300 static void hms_fetch_register (dummy) int dummy; { #define REGREPLY_SIZE 79 char linebuf[REGREPLY_SIZE + 1]; int i; int s; int gottok; unsigned LONGEST reg[NUM_REGS]; check_open (); do { hms_write_cr ("r"); s = timed_read (linebuf, 1, 1); while (linebuf[0] != 'r') s = timed_read (linebuf, 1, 1); s = timed_read (linebuf + 1, REGREPLY_SIZE - 1, 1); linebuf[REGREPLY_SIZE] = 0; gottok = 0; if (linebuf[0] == 'r' && linebuf[3] == 'P' && linebuf[4] == 'C' && linebuf[5] == '=' && linebuf[75] == 'H' && linebuf[76] == 'M' && linebuf[77] == 'S') { /* PC=XXXX CCR=XX:XXXXXXXX R0-R7= XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX 5436789012345678901234567890123456789012345678901234567890123456789012 0 1 2 3 4 5 6 */ gottok = 1; reg[PC_REGNUM] = gethex (4, linebuf + 6, &gottok); reg[CCR_REGNUM] = gethex (2, linebuf + 15, &gottok); for (i = 0; i < 8; i++) { reg[i] = gethex (4, linebuf + 34 + 5 * i, &gottok); } } } while (!gottok); for (i = 0; i < NUM_REGS; i++) { char swapped[2]; swapped[1] = reg[i]; swapped[0] = (reg[i]) >> 8; supply_register (i, swapped); } } #endif /* Store register REGNO, or all if REGNO == -1. Return errno value. */ static void hms_store_register (regno) int regno; { if (regno == -1) { for (regno = 0; regno < NUM_REGS; regno++) { hms_store_register (regno); } } else { char *name = get_reg_name (regno); char buffer[100]; /* Some regs dont really exist */ if (!(name[0] == 'p' && name[1] == 'r') && !(name[0] == 'c' && name[1] == 'y') && !(name[0] == 't' && name[1] == 'i') && !(name[0] == 'i' && name[1] == 'n')) { sprintf (buffer, "r %s=%x", name, read_register (regno)); hms_write_cr (buffer); expect_prompt (); } } } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ void hms_prepare_to_store () { /* Do nothing, since we can store individual regs */ } static CORE_ADDR translate_addr (addr) CORE_ADDR addr; { return (addr); } /* Read a word from remote address ADDR and return it. * This goes through the data cache. */ int hms_fetch_word (addr) CORE_ADDR addr; { return dcache_fetch (addr); } /* Write a word WORD into remote address ADDR. This goes through the data cache. */ void hms_store_word (addr, word) CORE_ADDR addr; int word; { dcache_poke (addr, word); } int hms_xfer_inferior_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr; /* Round ending address up; get number of longwords that makes. */ register int count; /* Allocate buffer of that many longwords. */ register int *buffer; memaddr &= 0xffff; addr = memaddr & -sizeof (int); count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); buffer = (int *) alloca (count * sizeof (int)); if (write) { /* Fill start and end extra bytes of buffer with existing memory data. */ if (addr != memaddr || len < (int) sizeof (int)) { /* Need part of initial word -- fetch it. */ buffer[0] = hms_fetch_word (addr); } if (count > 1) /* FIXME, avoid if even boundary */ { buffer[count - 1] = hms_fetch_word (addr + (count - 1) * sizeof (int)); } /* Copy data to be written over corresponding part of buffer */ memcpy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; hms_store_word (addr, buffer[i]); if (errno) { return 0; } } } else { /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; buffer[i] = hms_fetch_word (addr); if (errno) { return 0; } QUIT; } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); } return len; } int hms_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { bfd_vma addr; int done; int todo; char buffer[100]; done = 0; hms_write_cr ("."); expect_prompt (); while (done < len) { char *ptr = buffer; int thisgo; int idx; thisgo = len - done; if (thisgo > 20) thisgo = 20; sprintf (ptr, "M.B %4x =", memaddr + done); ptr += 10; for (idx = 0; idx < thisgo; idx++) { sprintf (ptr, "%2x ", myaddr[idx + done]); ptr += 3; } hms_write_cr (buffer); expect_prompt (); done += thisgo; } } void hms_files_info () { char *file = "nothing"; if (exec_bfd) file = bfd_get_filename (exec_bfd); if (exec_bfd) #ifdef __GO32__ printf_filtered ("\tAttached to DOS asynctsr and running program %s\n", file); #else printf_filtered ("\tAttached to %s at %d baud and running program %s\n", dev_name, baudrate, file); #endif printf_filtered ("\ton an H8/300 processor.\n"); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns errno value. * sb/sh instructions don't work on unaligned addresses, when TU=1. */ /* Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns errno value. */ int hms_read_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { /* Align to nearest low 16 bits */ int i; CORE_ADDR start = memaddr; CORE_ADDR end = memaddr + len - 1; int ok = 1; /* AAAA: XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX '................' 012345678901234567890123456789012345678901234567890123456789012345 0 1 2 3 4 5 6 */ char buffer[66]; if (memaddr & 0xf) abort (); if (len != 16) abort (); sprintf (buffer, "m %4x %4x", start & 0xffff, end & 0xffff); flush(); hms_write_cr (buffer); /* drop the echo and newline*/ for (i = 0; i < 13; i++) readchar (); /* Grab the lines as they come out and fill the area */ /* Skip over cr */ while (1) { int p; int i; int addr; size_t idx; char byte[16]; buffer[0] = readchar (); if (buffer[0] == 'M') break; for (i = 1; i < 60; i++) { buffer[i] = readchar (); } /* sometimes we loose characters in the ascii representation of the data. I don't know where. So just scan for the end of line */ i = readchar(); while (i != '\n' && i != '\r') i = readchar(); /* Now parse the line */ addr = gethex (4, buffer, &ok); idx = 6; for (p = 0; p < 16; p += 2) { byte[p] = gethex (2, buffer + idx, &ok); byte[p + 1] = gethex (2, buffer + idx + 2, &ok); idx += 5; } for (p = 0; p < 16; p++) { if (addr + p >= memaddr && addr + p < memaddr + len) { myaddr[(addr + p) - memaddr] = byte[p]; } } } #ifdef GDB_TARGET_IS_H8500 expect ("ore>"); #endif #ifdef GDB_TARGET_IS_H8300 expect ("emory>"); #endif hms_write_cr ("."); expect_prompt (); return len; } #define MAX_BREAKS 16 static int num_brkpts = 0; static int hms_insert_breakpoint (addr, save) CORE_ADDR addr; char *save; /* Throw away, let hms save instructions */ { check_open (); if (num_brkpts < MAX_BREAKS) { char buffer[100]; num_brkpts++; sprintf (buffer, "b %x", addr & 0xffff); hms_write_cr (buffer); expect_prompt (); return (0); } else { fprintf_filtered (gdb_stderr, "Too many break points, break point not installed\n"); return (1); } } static int hms_remove_breakpoint (addr, save) CORE_ADDR addr; char *save; /* Throw away, let hms save instructions */ { if (num_brkpts > 0) { char buffer[100]; num_brkpts--; sprintf (buffer, "b - %x", addr & 0xffff); hms_write_cr (buffer); expect_prompt (); } return (0); } /* Clear the hmss notion of what the break points are */ static int hms_clear_breakpoints () { if (is_open) { hms_write_cr ("b -"); expect_prompt (); } num_brkpts = 0; } static void hms_mourn () { hms_clear_breakpoints (); unpush_target (&hms_ops); generic_mourn_inferior (); } /* Put a command string, in args, out to the hms. The hms is assumed to be in raw mode, all writing/reading done through desc. Ouput from the hms is placed on the users terminal until the prompt from the hms is seen. FIXME: Can't handle commands that take input. */ void hms_com (args, fromtty) char *args; int fromtty; { check_open (); if (!args) return; /* Clear all input so only command relative output is displayed */ hms_write_cr (args); /* hms_write ("\030", 1);*/ expect_prompt (); } /* Define the target subroutine names */ struct target_ops hms_ops = { "hms", "Remote HMS monitor", "Use the H8 evaluation board running the HMS monitor connected\n\ by a serial line.", hms_open, hms_close, 0, hms_detach, hms_resume, hms_wait, /* attach */ hms_fetch_register, hms_store_register, hms_prepare_to_store, hms_xfer_inferior_memory, hms_files_info, hms_insert_breakpoint, hms_remove_breakpoint, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ hms_kill, /* FIXME, kill */ hms_load, 0, /* lookup_symbol */ hms_create_inferior, /* create_inferior */ hms_mourn, /* mourn_inferior FIXME */ 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; hms_quiet () { quiet = !quiet; if (quiet) printf_filtered ("Snoop disabled\n"); else printf_filtered ("Snoop enabled\n"); } hms_device (s) char *s; { if (s) { dev_name = get_word (&s); } } static hms_speed (s) char *s; { check_open (); if (s) { char buffer[100]; int newrate = atoi (s); int which = 0; if (SERIAL_SETBAUDRATE (desc, newrate)) error ("Can't use %d baud\n", newrate); printf_filtered ("Checking target is in sync\n"); printf_filtered ("Sending commands to set target to %d\n", baudrate); sprintf (buffer, "tm %d. N 8 1", baudrate); hms_write_cr (buffer); } } /***********************************************************************/ static void hms_drain (args, fromtty) char *args; int fromtty; { int c; while (1) { c = SERIAL_READCHAR (desc, 1); if (c == SERIAL_TIMEOUT) break; if (c == SERIAL_ERROR) break; if (c > ' ' && c < 127) printf ("%c", c & 0xff); else printf ("<%x>", c & 0xff); } } static void add_commands () { add_com ("hms_drain", class_obscure, hms_drain, "Drain pending hms text buffers."); } static void remove_commands () { extern struct cmd_list_element *cmdlist; delete_cmd ("hms-drain", &cmdlist); } void _initialize_remote_hms () { add_target (&hms_ops); add_com ("hms ", class_obscure, hms_com, "Send a command to the HMS monitor."); add_com ("snoop", class_obscure, hms_quiet, "Show what commands are going to the monitor"); add_com ("device", class_obscure, hms_device, "Set the terminal line for HMS communications"); add_com ("speed", class_obscure, hms_speed, "Set the terminal line speed for HMS communications"); dev_name = NULL; } gdb-4.13/gdb/remote-mips.c 666 34562 1752 126302 5604423353 13746 0ustar fnfcygnus/* Remote debugging interface for MIPS remote debugging protocol. Copyright 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Ian Lance Taylor . This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "bfd.h" #include "symfile.h" #include "wait.h" #include "gdbcmd.h" #include "gdbcore.h" #include "serial.h" #include "target.h" #include "remote-utils.h" #include #include /* Prototypes for local functions. */ static int mips_readchar PARAMS ((int timeout)); static int mips_receive_header PARAMS ((unsigned char *hdr, int *pgarbage, int ch, int timeout)); static int mips_receive_trailer PARAMS ((unsigned char *trlr, int *pgarbage, int *pch, int timeout)); static int mips_cksum PARAMS ((const unsigned char *hdr, const unsigned char *data, int len)); static void mips_send_packet PARAMS ((const char *s, int get_ack)); static int mips_receive_packet PARAMS ((char *buff, int throw_error, int timeout)); static int mips_request PARAMS ((char cmd, unsigned int addr, unsigned int data, int *perr, int timeout)); static void mips_initialize PARAMS ((void)); static void mips_open PARAMS ((char *name, int from_tty)); static void mips_close PARAMS ((int quitting)); static void mips_detach PARAMS ((char *args, int from_tty)); static void mips_resume PARAMS ((int pid, int step, enum target_signal siggnal)); static int mips_wait PARAMS ((int pid, struct target_waitstatus *status)); static int mips_map_regno PARAMS ((int regno)); static void mips_fetch_registers PARAMS ((int regno)); static void mips_prepare_to_store PARAMS ((void)); static void mips_store_registers PARAMS ((int regno)); static int mips_fetch_word PARAMS ((CORE_ADDR addr)); static int mips_store_word PARAMS ((CORE_ADDR addr, int value, char *old_contents)); static int mips_xfer_memory PARAMS ((CORE_ADDR memaddr, char *myaddr, int len, int write, struct target_ops *ignore)); static void mips_files_info PARAMS ((struct target_ops *ignore)); static void mips_load PARAMS ((char *args, int from_tty)); static void mips_create_inferior PARAMS ((char *execfile, char *args, char **env)); static void mips_mourn_inferior PARAMS ((void)); /* A forward declaration. */ extern struct target_ops mips_ops; /* The MIPS remote debugging interface is built on top of a simple packet protocol. Each packet is organized as follows: SYN The first character is always a SYN (ASCII 026, or ^V). SYN may not appear anywhere else in the packet. Any time a SYN is seen, a new packet should be assumed to have begun. TYPE_LEN This byte contains the upper five bits of the logical length of the data section, plus a single bit indicating whether this is a data packet or an acknowledgement. The documentation indicates that this bit is 1 for a data packet, but the actual board uses 1 for an acknowledgement. The value of the byte is 0x40 + (ack ? 0x20 : 0) + (len >> 6) (we always have 0 <= len < 1024). Acknowledgement packets do not carry data, and must have a data length of 0. LEN1 This byte contains the lower six bits of the logical length of the data section. The value is 0x40 + (len & 0x3f) SEQ This byte contains the six bit sequence number of the packet. The value is 0x40 + seq An acknowlegment packet contains the sequence number of the packet being acknowledged plus 1 module 64. Data packets are transmitted in sequence. There may only be one outstanding unacknowledged data packet at a time. The sequence numbers are independent in each direction. If an acknowledgement for the previous packet is received (i.e., an acknowledgement with the sequence number of the packet just sent) the packet just sent should be retransmitted. If no acknowledgement is received within a timeout period, the packet should be retransmitted. This has an unfortunate failure condition on a high-latency line, as a delayed acknowledgement may lead to an endless series of duplicate packets. DATA The actual data bytes follow. The following characters are escaped inline with DLE (ASCII 020, or ^P): SYN (026) DLE S DLE (020) DLE D ^C (003) DLE C ^S (023) DLE s ^Q (021) DLE q The additional DLE characters are not counted in the logical length stored in the TYPE_LEN and LEN1 bytes. CSUM1 CSUM2 CSUM3 These bytes contain an 18 bit checksum of the complete contents of the packet excluding the SEQ byte and the CSUM[123] bytes. The checksum is simply the twos complement addition of all the bytes treated as unsigned characters. The values of the checksum bytes are: CSUM1: 0x40 + ((cksum >> 12) & 0x3f) CSUM2: 0x40 + ((cksum >> 6) & 0x3f) CSUM3: 0x40 + (cksum & 0x3f) It happens that the MIPS remote debugging protocol always communicates with ASCII strings. Because of this, this implementation doesn't bother to handle the DLE quoting mechanism, since it will never be required. */ /* The SYN character which starts each packet. */ #define SYN '\026' /* The 0x40 used to offset each packet (this value ensures that all of the header and trailer bytes, other than SYN, are printable ASCII characters). */ #define HDR_OFFSET 0x40 /* The indices of the bytes in the packet header. */ #define HDR_INDX_SYN 0 #define HDR_INDX_TYPE_LEN 1 #define HDR_INDX_LEN1 2 #define HDR_INDX_SEQ 3 #define HDR_LENGTH 4 /* The data/ack bit in the TYPE_LEN header byte. */ #define TYPE_LEN_DA_BIT 0x20 #define TYPE_LEN_DATA 0 #define TYPE_LEN_ACK TYPE_LEN_DA_BIT /* How to compute the header bytes. */ #define HDR_SET_SYN(data, len, seq) (SYN) #define HDR_SET_TYPE_LEN(data, len, seq) \ (HDR_OFFSET \ + ((data) ? TYPE_LEN_DATA : TYPE_LEN_ACK) \ + (((len) >> 6) & 0x1f)) #define HDR_SET_LEN1(data, len, seq) (HDR_OFFSET + ((len) & 0x3f)) #define HDR_SET_SEQ(data, len, seq) (HDR_OFFSET + (seq)) /* Check that a header byte is reasonable. */ #define HDR_CHECK(ch) (((ch) & HDR_OFFSET) == HDR_OFFSET) /* Get data from the header. These macros evaluate their argument multiple times. */ #define HDR_IS_DATA(hdr) \ (((hdr)[HDR_INDX_TYPE_LEN] & TYPE_LEN_DA_BIT) == TYPE_LEN_DATA) #define HDR_GET_LEN(hdr) \ ((((hdr)[HDR_INDX_TYPE_LEN] & 0x1f) << 6) + (((hdr)[HDR_INDX_LEN1] & 0x3f))) #define HDR_GET_SEQ(hdr) ((hdr)[HDR_INDX_SEQ] & 0x3f) /* The maximum data length. */ #define DATA_MAXLEN 1023 /* The trailer offset. */ #define TRLR_OFFSET HDR_OFFSET /* The indices of the bytes in the packet trailer. */ #define TRLR_INDX_CSUM1 0 #define TRLR_INDX_CSUM2 1 #define TRLR_INDX_CSUM3 2 #define TRLR_LENGTH 3 /* How to compute the trailer bytes. */ #define TRLR_SET_CSUM1(cksum) (TRLR_OFFSET + (((cksum) >> 12) & 0x3f)) #define TRLR_SET_CSUM2(cksum) (TRLR_OFFSET + (((cksum) >> 6) & 0x3f)) #define TRLR_SET_CSUM3(cksum) (TRLR_OFFSET + (((cksum) ) & 0x3f)) /* Check that a trailer byte is reasonable. */ #define TRLR_CHECK(ch) (((ch) & TRLR_OFFSET) == TRLR_OFFSET) /* Get data from the trailer. This evaluates its argument multiple times. */ #define TRLR_GET_CKSUM(trlr) \ ((((trlr)[TRLR_INDX_CSUM1] & 0x3f) << 12) \ + (((trlr)[TRLR_INDX_CSUM2] & 0x3f) << 6) \ + ((trlr)[TRLR_INDX_CSUM3] & 0x3f)) /* The sequence number modulos. */ #define SEQ_MODULOS (64) /* Set to 1 if the target is open. */ static int mips_is_open; /* Set to 1 while the connection is being initialized. */ static int mips_initializing; /* The next sequence number to send. */ static int mips_send_seq; /* The next sequence number we expect to receive. */ static int mips_receive_seq; /* The time to wait before retransmitting a packet, in seconds. */ static int mips_retransmit_wait = 3; /* The number of times to try retransmitting a packet before giving up. */ static int mips_send_retries = 10; /* The number of garbage characters to accept when looking for an SYN for the next packet. */ static int mips_syn_garbage = 1050; /* The time to wait for a packet, in seconds. */ static int mips_receive_wait = 5; /* Set if we have sent a packet to the board but have not yet received a reply. */ static int mips_need_reply = 0; /* Handle used to access serial I/O stream. */ static serial_t mips_desc; /* Handle low-level error that we can't recover from. Note that just error()ing out from target_wait or some such low-level place will cause all hell to break loose--the rest of GDB will tend to get left in an inconsistent state. */ static void NORETURN mips_error (va_alist) va_dcl { va_list args; char *string; va_start (args); target_terminal_ours (); wrap_here(""); /* Force out any buffered output */ gdb_flush (gdb_stdout); if (error_pre_print) fprintf_filtered (gdb_stderr, error_pre_print); string = va_arg (args, char *); vfprintf_filtered (gdb_stderr, string, args); fprintf_filtered (gdb_stderr, "\n"); va_end (args); /* Clean up in such a way that mips_close won't try to talk to the board (it almost surely won't work since we weren't able to talk to it). */ mips_is_open = 0; SERIAL_CLOSE (mips_desc); printf_unfiltered ("Ending remote MIPS debugging.\n"); target_mourn_inferior (); return_to_top_level (RETURN_ERROR); } /* Read a character from the remote, aborting on error. Returns SERIAL_TIMEOUT on timeout (since that's what SERIAL_READCHAR returns). FIXME: If we see the string "" from the board, then we are debugging on the main console port, and we have somehow dropped out of remote debugging mode. In this case, we automatically go back in to remote debugging mode. This is a hack, put in because I can't find any way for a program running on the remote board to terminate without also ending remote debugging mode. I assume users won't have any trouble with this; for one thing, the IDT documentation generally assumes that the remote debugging port is not the console port. This is, however, very convenient for DejaGnu when you only have one connected serial port. */ static int mips_readchar (timeout) int timeout; { int ch; static int state = 0; static char nextstate[5] = { '<', 'I', 'D', 'T', '>' }; ch = SERIAL_READCHAR (mips_desc, timeout); if (ch == SERIAL_EOF) mips_error ("End of file from remote"); if (ch == SERIAL_ERROR) mips_error ("Error reading from remote: %s", safe_strerror (errno)); if (sr_get_debug () > 1) { /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ if (ch != SERIAL_TIMEOUT) printf_unfiltered ("Read '%c' %d 0x%x\n", ch, ch, ch); else printf_unfiltered ("Timed out in read\n"); } /* If we have seen and we either time out, or we see a @ (which was echoed from a packet we sent), reset the board as described above. The first character in a packet after the SYN (which is not echoed) is always an @ unless the packet is more than 64 characters long, which ours never are. */ if ((ch == SERIAL_TIMEOUT || ch == '@') && state == 5 && ! mips_initializing) { if (sr_get_debug () > 0) /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ printf_unfiltered ("Reinitializing MIPS debugging mode\n"); SERIAL_WRITE (mips_desc, "\015db tty0\015", sizeof "\015db tty0\015" - 1); sleep (1); mips_need_reply = 0; mips_initialize (); state = 0; mips_error ("Remote board reset"); } if (ch == nextstate[state]) ++state; else state = 0; return ch; } /* Get a packet header, putting the data in the supplied buffer. PGARBAGE is a pointer to the number of garbage characters received so far. CH is the last character received. Returns 0 for success, or -1 for timeout. */ static int mips_receive_header (hdr, pgarbage, ch, timeout) unsigned char *hdr; int *pgarbage; int ch; int timeout; { int i; while (1) { /* Wait for a SYN. mips_syn_garbage is intended to prevent sitting here indefinitely if the board sends us one garbage character per second. ch may already have a value from the last time through the loop. */ while (ch != SYN) { ch = mips_readchar (timeout); if (ch == SERIAL_TIMEOUT) return -1; if (ch != SYN) { /* Printing the character here lets the user of gdb see what the program is outputting, if the debugging is being done on the console port. Don't use _filtered; we can't deal with a QUIT out of target_wait. */ if (! mips_initializing || sr_get_debug () > 0) { if (ch < 0x20 && ch != '\n') { putchar_unfiltered ('^'); putchar_unfiltered (ch + 0x40); } else putchar_unfiltered (ch); gdb_flush (gdb_stdout); } ++*pgarbage; if (*pgarbage > mips_syn_garbage) mips_error ("Remote debugging protocol failure"); } } /* Get the packet header following the SYN. */ for (i = 1; i < HDR_LENGTH; i++) { ch = mips_readchar (timeout); if (ch == SERIAL_TIMEOUT) return -1; /* Make sure this is a header byte. */ if (ch == SYN || ! HDR_CHECK (ch)) break; hdr[i] = ch; } /* If we got the complete header, we can return. Otherwise we loop around and keep looking for SYN. */ if (i >= HDR_LENGTH) return 0; } } /* Get a packet header, putting the data in the supplied buffer. PGARBAGE is a pointer to the number of garbage characters received so far. The last character read is returned in *PCH. Returns 0 for success, -1 for timeout, -2 for error. */ static int mips_receive_trailer (trlr, pgarbage, pch, timeout) unsigned char *trlr; int *pgarbage; int *pch; int timeout; { int i; int ch; for (i = 0; i < TRLR_LENGTH; i++) { ch = mips_readchar (timeout); *pch = ch; if (ch == SERIAL_TIMEOUT) return -1; if (! TRLR_CHECK (ch)) return -2; trlr[i] = ch; } return 0; } /* Get the checksum of a packet. HDR points to the packet header. DATA points to the packet data. LEN is the length of DATA. */ static int mips_cksum (hdr, data, len) const unsigned char *hdr; const unsigned char *data; int len; { register const unsigned char *p; register int c; register int cksum; cksum = 0; /* The initial SYN is not included in the checksum. */ c = HDR_LENGTH - 1; p = hdr + 1; while (c-- != 0) cksum += *p++; c = len; p = data; while (c-- != 0) cksum += *p++; return cksum; } /* Send a packet containing the given ASCII string. */ static void mips_send_packet (s, get_ack) const char *s; int get_ack; { unsigned int len; unsigned char *packet; register int cksum; int try; len = strlen (s); if (len > DATA_MAXLEN) mips_error ("MIPS protocol data packet too long: %s", s); packet = (unsigned char *) alloca (HDR_LENGTH + len + TRLR_LENGTH + 1); packet[HDR_INDX_SYN] = HDR_SET_SYN (1, len, mips_send_seq); packet[HDR_INDX_TYPE_LEN] = HDR_SET_TYPE_LEN (1, len, mips_send_seq); packet[HDR_INDX_LEN1] = HDR_SET_LEN1 (1, len, mips_send_seq); packet[HDR_INDX_SEQ] = HDR_SET_SEQ (1, len, mips_send_seq); memcpy (packet + HDR_LENGTH, s, len); cksum = mips_cksum (packet, packet + HDR_LENGTH, len); packet[HDR_LENGTH + len + TRLR_INDX_CSUM1] = TRLR_SET_CSUM1 (cksum); packet[HDR_LENGTH + len + TRLR_INDX_CSUM2] = TRLR_SET_CSUM2 (cksum); packet[HDR_LENGTH + len + TRLR_INDX_CSUM3] = TRLR_SET_CSUM3 (cksum); /* Increment the sequence number. This will set mips_send_seq to the sequence number we expect in the acknowledgement. */ mips_send_seq = (mips_send_seq + 1) % SEQ_MODULOS; if (! get_ack) return; /* We can only have one outstanding data packet, so we just wait for the acknowledgement here. Keep retransmitting the packet until we get one, or until we've tried too many times. */ for (try = 0; try < mips_send_retries; try++) { int garbage; int ch; if (sr_get_debug () > 0) { /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ packet[HDR_LENGTH + len + TRLR_LENGTH] = '\0'; printf_unfiltered ("Writing \"%s\"\n", packet + 1); } if (SERIAL_WRITE (mips_desc, packet, HDR_LENGTH + len + TRLR_LENGTH) != 0) mips_error ("write to target failed: %s", safe_strerror (errno)); garbage = 0; ch = 0; while (1) { unsigned char hdr[HDR_LENGTH + 1]; unsigned char trlr[TRLR_LENGTH + 1]; int err; int seq; /* Get the packet header. If we time out, resend the data packet. */ err = mips_receive_header (hdr, &garbage, ch, mips_retransmit_wait); if (err != 0) break; ch = 0; /* If we get a data packet, assume it is a duplicate and ignore it. FIXME: If the acknowledgement is lost, this data packet may be the packet the remote sends after the acknowledgement. */ if (HDR_IS_DATA (hdr)) continue; /* If the length is not 0, this is a garbled packet. */ if (HDR_GET_LEN (hdr) != 0) continue; /* Get the packet trailer. */ err = mips_receive_trailer (trlr, &garbage, &ch, mips_retransmit_wait); /* If we timed out, resend the data packet. */ if (err == -1) break; /* If we got a bad character, reread the header. */ if (err != 0) continue; /* If the checksum does not match the trailer checksum, this is a bad packet; ignore it. */ if (mips_cksum (hdr, (unsigned char *) NULL, 0) != TRLR_GET_CKSUM (trlr)) continue; if (sr_get_debug () > 0) { hdr[HDR_LENGTH] = '\0'; trlr[TRLR_LENGTH] = '\0'; /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ printf_unfiltered ("Got ack %d \"%s%s\"\n", HDR_GET_SEQ (hdr), hdr + 1, trlr); } /* If this ack is for the current packet, we're done. */ seq = HDR_GET_SEQ (hdr); if (seq == mips_send_seq) return; /* If this ack is for the last packet, resend the current packet. */ if ((seq + 1) % SEQ_MODULOS == mips_send_seq) break; /* Otherwise this is a bad ack; ignore it. Increment the garbage count to ensure that we do not stay in this loop forever. */ ++garbage; } } mips_error ("Remote did not acknowledge packet"); } /* Receive and acknowledge a packet, returning the data in BUFF (which should be DATA_MAXLEN + 1 bytes). The protocol documentation implies that only the sender retransmits packets, so this code just waits silently for a packet. It returns the length of the received packet. If THROW_ERROR is nonzero, call error() on errors. If not, don't print an error message and return -1. */ static int mips_receive_packet (buff, throw_error, timeout) char *buff; int throw_error; int timeout; { int ch; int garbage; int len; unsigned char ack[HDR_LENGTH + TRLR_LENGTH + 1]; int cksum; ch = 0; garbage = 0; while (1) { unsigned char hdr[HDR_LENGTH]; unsigned char trlr[TRLR_LENGTH]; int i; int err; if (mips_receive_header (hdr, &garbage, ch, timeout) != 0) { if (throw_error) mips_error ("Timed out waiting for remote packet"); else return -1; } ch = 0; /* An acknowledgement is probably a duplicate; ignore it. */ if (! HDR_IS_DATA (hdr)) { /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ if (sr_get_debug () > 0) printf_unfiltered ("Ignoring unexpected ACK\n"); continue; } /* If this is the wrong sequence number, ignore it. */ if (HDR_GET_SEQ (hdr) != mips_receive_seq) { /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ if (sr_get_debug () > 0) printf_unfiltered ("Ignoring sequence number %d (want %d)\n", HDR_GET_SEQ (hdr), mips_receive_seq); continue; } len = HDR_GET_LEN (hdr); for (i = 0; i < len; i++) { int rch; rch = mips_readchar (timeout); if (rch == SYN) { ch = SYN; break; } if (rch == SERIAL_TIMEOUT) { if (throw_error) mips_error ("Timed out waiting for remote packet"); else return -1; } buff[i] = rch; } if (i < len) { /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ if (sr_get_debug () > 0) printf_unfiltered ("Got new SYN after %d chars (wanted %d)\n", i, len); continue; } err = mips_receive_trailer (trlr, &garbage, &ch, timeout); if (err == -1) { if (throw_error) mips_error ("Timed out waiting for packet"); else return -1; } if (err == -2) { /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ if (sr_get_debug () > 0) printf_unfiltered ("Got SYN when wanted trailer\n"); continue; } if (mips_cksum (hdr, buff, len) == TRLR_GET_CKSUM (trlr)) break; if (sr_get_debug () > 0) /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ printf_unfiltered ("Bad checksum; data %d, trailer %d\n", mips_cksum (hdr, buff, len), TRLR_GET_CKSUM (trlr)); /* The checksum failed. Send an acknowledgement for the previous packet to tell the remote to resend the packet. */ ack[HDR_INDX_SYN] = HDR_SET_SYN (0, 0, mips_receive_seq); ack[HDR_INDX_TYPE_LEN] = HDR_SET_TYPE_LEN (0, 0, mips_receive_seq); ack[HDR_INDX_LEN1] = HDR_SET_LEN1 (0, 0, mips_receive_seq); ack[HDR_INDX_SEQ] = HDR_SET_SEQ (0, 0, mips_receive_seq); cksum = mips_cksum (ack, (unsigned char *) NULL, 0); ack[HDR_LENGTH + TRLR_INDX_CSUM1] = TRLR_SET_CSUM1 (cksum); ack[HDR_LENGTH + TRLR_INDX_CSUM2] = TRLR_SET_CSUM2 (cksum); ack[HDR_LENGTH + TRLR_INDX_CSUM3] = TRLR_SET_CSUM3 (cksum); if (sr_get_debug () > 0) { ack[HDR_LENGTH + TRLR_LENGTH] = '\0'; /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ printf_unfiltered ("Writing ack %d \"%s\"\n", mips_receive_seq, ack + 1); } if (SERIAL_WRITE (mips_desc, ack, HDR_LENGTH + TRLR_LENGTH) != 0) { if (throw_error) mips_error ("write to target failed: %s", safe_strerror (errno)); else return -1; } } if (sr_get_debug () > 0) { buff[len] = '\0'; /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ printf_unfiltered ("Got packet \"%s\"\n", buff); } /* We got the packet. Send an acknowledgement. */ mips_receive_seq = (mips_receive_seq + 1) % SEQ_MODULOS; ack[HDR_INDX_SYN] = HDR_SET_SYN (0, 0, mips_receive_seq); ack[HDR_INDX_TYPE_LEN] = HDR_SET_TYPE_LEN (0, 0, mips_receive_seq); ack[HDR_INDX_LEN1] = HDR_SET_LEN1 (0, 0, mips_receive_seq); ack[HDR_INDX_SEQ] = HDR_SET_SEQ (0, 0, mips_receive_seq); cksum = mips_cksum (ack, (unsigned char *) NULL, 0); ack[HDR_LENGTH + TRLR_INDX_CSUM1] = TRLR_SET_CSUM1 (cksum); ack[HDR_LENGTH + TRLR_INDX_CSUM2] = TRLR_SET_CSUM2 (cksum); ack[HDR_LENGTH + TRLR_INDX_CSUM3] = TRLR_SET_CSUM3 (cksum); if (sr_get_debug () > 0) { ack[HDR_LENGTH + TRLR_LENGTH] = '\0'; /* Don't use _filtered; we can't deal with a QUIT out of target_wait, and I think this might be called from there. */ printf_unfiltered ("Writing ack %d \"%s\"\n", mips_receive_seq, ack + 1); } if (SERIAL_WRITE (mips_desc, ack, HDR_LENGTH + TRLR_LENGTH) != 0) { if (throw_error) mips_error ("write to target failed: %s", safe_strerror (errno)); else return -1; } return len; } /* Optionally send a request to the remote system and optionally wait for the reply. This implements the remote debugging protocol, which is built on top of the packet protocol defined above. Each request has an ADDR argument and a DATA argument. The following requests are defined: \0 don't send a request; just wait for a reply i read word from instruction space at ADDR d read word from data space at ADDR I write DATA to instruction space at ADDR D write DATA to data space at ADDR r read register number ADDR R set register number ADDR to value DATA c continue execution (if ADDR != 1, set pc to ADDR) s single step (if ADDR != 1, set pc to ADDR) The read requests return the value requested. The write requests return the previous value in the changed location. The execution requests return a UNIX wait value (the approximate signal which caused execution to stop is in the upper eight bits). If PERR is not NULL, this function waits for a reply. If an error occurs, it sets *PERR to 1 and sets errno according to what the target board reports. */ static int mips_request (cmd, addr, data, perr, timeout) char cmd; unsigned int addr; unsigned int data; int *perr; int timeout; { char buff[DATA_MAXLEN + 1]; int len; int rpid; char rcmd; int rerrflg; int rresponse; if (cmd != '\0') { if (mips_need_reply) fatal ("mips_request: Trying to send command before reply"); sprintf (buff, "0x0 %c 0x%x 0x%x", cmd, addr, data); mips_send_packet (buff, 1); mips_need_reply = 1; } if (perr == (int *) NULL) return 0; if (! mips_need_reply) fatal ("mips_request: Trying to get reply before command"); mips_need_reply = 0; len = mips_receive_packet (buff, 1, timeout); buff[len] = '\0'; if (sscanf (buff, "0x%x %c 0x%x 0x%x", &rpid, &rcmd, &rerrflg, &rresponse) != 4 || (cmd != '\0' && rcmd != cmd)) mips_error ("Bad response from remote board"); if (rerrflg != 0) { *perr = 1; /* FIXME: This will returns MIPS errno numbers, which may or may not be the same as errno values used on other systems. If they stick to common errno values, they will be the same, but if they don't, they must be translated. */ errno = rresponse; return 0; } *perr = 0; return rresponse; } static void mips_initialize_cleanups (arg) PTR arg; { mips_initializing = 0; } /* Initialize a new connection to the MIPS board, and make sure we are really connected. */ static void mips_initialize () { char cr; char buff[DATA_MAXLEN + 1]; int err; struct cleanup *old_cleanups = make_cleanup (mips_initialize_cleanups, NULL); /* What is this code doing here? I don't see any way it can happen, and it might mean mips_initializing didn't get cleared properly. So I'll make it a warning. */ if (mips_initializing) { warning ("internal error: mips_initialize called twice"); return; } mips_initializing = 1; mips_send_seq = 0; mips_receive_seq = 0; /* The board seems to want to send us a packet. I don't know what it means. The packet seems to be triggered by a carriage return character, although perhaps any character would do. */ cr = '\015'; /* FIXME check the result from this */ SERIAL_WRITE (mips_desc, &cr, 1); if (mips_receive_packet (buff, 0, 3) < 0) { char cc; /* We did not receive the packet we expected; try resetting the board and trying again. */ printf_filtered ("Failed to initialize; trying to reset board\n"); cc = '\003'; SERIAL_WRITE (mips_desc, &cc, 1); sleep (2); SERIAL_WRITE (mips_desc, "\015db tty0\015", sizeof "\015db tty0\015" - 1); sleep (1); cr = '\015'; SERIAL_WRITE (mips_desc, &cr, 1); } mips_receive_packet (buff, 1, 3); do_cleanups (old_cleanups); /* If this doesn't call error, we have connected; we don't care if the request itself succeeds or fails. */ mips_request ('r', (unsigned int) 0, (unsigned int) 0, &err, mips_receive_wait); } /* Open a connection to the remote board. */ static void mips_open (name, from_tty) char *name; int from_tty; { if (name == 0) error ( "To open a MIPS remote debugging connection, you need to specify what serial\n\ device is attached to the target board (e.g., /dev/ttya)."); target_preopen (from_tty); if (mips_is_open) unpush_target (&mips_ops); mips_desc = SERIAL_OPEN (name); if (mips_desc == (serial_t) NULL) perror_with_name (name); SERIAL_RAW (mips_desc); mips_is_open = 1; mips_initialize (); if (from_tty) printf_unfiltered ("Remote MIPS debugging using %s\n", name); push_target (&mips_ops); /* Switch to using remote target now */ /* FIXME: Should we call start_remote here? */ } /* Close a connection to the remote board. */ static void mips_close (quitting) int quitting; { if (mips_is_open) { int err; mips_is_open = 0; /* Get the board out of remote debugging mode. */ mips_request ('x', (unsigned int) 0, (unsigned int) 0, &err, mips_receive_wait); SERIAL_CLOSE (mips_desc); } } /* Detach from the remote board. */ static void mips_detach (args, from_tty) char *args; int from_tty; { if (args) error ("Argument given to \"detach\" when remotely debugging."); pop_target (); if (from_tty) printf_unfiltered ("Ending remote MIPS debugging.\n"); } /* Tell the target board to resume. This does not wait for a reply from the board. */ static void mips_resume (pid, step, siggnal) int pid, step; enum target_signal siggnal; { if (siggnal != TARGET_SIGNAL_0) warning ("Can't send signals to a remote system. Try `handle %s ignore'.", target_signal_to_name (siggnal)); mips_request (step ? 's' : 'c', (unsigned int) 1, (unsigned int) 0, (int *) NULL, mips_receive_wait); } /* Return the signal corresponding to SIG, where SIG is the number which the MIPS protocol uses for the signal. */ enum target_signal mips_signal_from_protocol (sig) int sig; { /* We allow a few more signals than the IDT board actually returns, on the theory that there is at least *some* hope that perhaps the numbering for these signals is widely agreed upon. */ if (sig <= 0 || sig > 31) return TARGET_SIGNAL_UNKNOWN; /* Don't want to use target_signal_from_host because we are converting from MIPS signal numbers, not host ones. Our internal numbers match the MIPS numbers for the signals the board can return, which are: SIGINT, SIGSEGV, SIGBUS, SIGILL, SIGFPE, SIGTRAP. */ return (enum target_signal) sig; } /* Wait until the remote stops, and return a wait status. */ static int mips_wait (pid, status) int pid; struct target_waitstatus *status; { int rstatus; int err; /* If we have not sent a single step or continue command, then the board is waiting for us to do something. Return a status indicating that it is stopped. */ if (! mips_need_reply) { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; return 0; } /* No timeout; we sit here as long as the program continues to execute. */ rstatus = mips_request ('\0', (unsigned int) 0, (unsigned int) 0, &err, -1); if (err) mips_error ("Remote failure: %s", safe_strerror (errno)); /* Translate a MIPS waitstatus. We use constants here rather than WTERMSIG and so on, because the constants we want here are determined by the MIPS protocol and have nothing to do with what host we are running on. */ if ((rstatus & 0377) == 0) { status->kind = TARGET_WAITKIND_EXITED; status->value.integer = (((rstatus) >> 8) & 0377); } else if ((rstatus & 0377) == 0177) { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = mips_signal_from_protocol (((rstatus) >> 8) & 0377); } else { status->kind = TARGET_WAITKIND_SIGNALLED; status->value.sig = mips_signal_from_protocol (rstatus & 0177); } return 0; } /* We have to map between the register numbers used by gdb and the register numbers used by the debugging protocol. This function assumes that we are using tm-mips.h. */ #define REGNO_OFFSET 96 static int mips_map_regno (regno) int regno; { if (regno < 32) return regno; if (regno >= FP0_REGNUM && regno < FP0_REGNUM + 32) return regno - FP0_REGNUM + 32; switch (regno) { case PC_REGNUM: return REGNO_OFFSET + 0; case CAUSE_REGNUM: return REGNO_OFFSET + 1; case HI_REGNUM: return REGNO_OFFSET + 2; case LO_REGNUM: return REGNO_OFFSET + 3; case FCRCS_REGNUM: return REGNO_OFFSET + 4; case FCRIR_REGNUM: return REGNO_OFFSET + 5; default: /* FIXME: Is there a way to get the status register? */ return 0; } } /* Fetch the remote registers. */ static void mips_fetch_registers (regno) int regno; { unsigned LONGEST val; int err; if (regno == -1) { for (regno = 0; regno < NUM_REGS; regno++) mips_fetch_registers (regno); return; } if (regno == FP_REGNUM || regno == ZERO_REGNUM) /* FP_REGNUM on the mips is a hack which is just supposed to read zero (see also mips-nat.c). */ val = 0; else { val = mips_request ('r', (unsigned int) mips_map_regno (regno), (unsigned int) 0, &err, mips_receive_wait); if (err) mips_error ("Can't read register %d: %s", regno, safe_strerror (errno)); } { char buf[MAX_REGISTER_RAW_SIZE]; /* We got the number the register holds, but gdb expects to see a value in the target byte ordering. */ store_unsigned_integer (buf, REGISTER_RAW_SIZE (regno), val); supply_register (regno, buf); } } /* Prepare to store registers. The MIPS protocol can store individual registers, so this function doesn't have to do anything. */ static void mips_prepare_to_store () { } /* Store remote register(s). */ static void mips_store_registers (regno) int regno; { int err; if (regno == -1) { for (regno = 0; regno < NUM_REGS; regno++) mips_store_registers (regno); return; } mips_request ('R', (unsigned int) mips_map_regno (regno), (unsigned int) read_register (regno), &err, mips_receive_wait); if (err) mips_error ("Can't write register %d: %s", regno, safe_strerror (errno)); } /* Fetch a word from the target board. */ static int mips_fetch_word (addr) CORE_ADDR addr; { int val; int err; val = mips_request ('d', (unsigned int) addr, (unsigned int) 0, &err, mips_receive_wait); if (err) { /* Data space failed; try instruction space. */ val = mips_request ('i', (unsigned int) addr, (unsigned int) 0, &err, mips_receive_wait); if (err) mips_error ("Can't read address 0x%x: %s", addr, safe_strerror (errno)); } return val; } /* Store a word to the target board. Returns errno code or zero for success. If OLD_CONTENTS is non-NULL, put the old contents of that memory location there. */ static int mips_store_word (addr, val, old_contents) CORE_ADDR addr; int val; char *old_contents; { int err; unsigned int oldcontents; oldcontents = mips_request ('D', (unsigned int) addr, (unsigned int) val, &err, mips_receive_wait); if (err) { /* Data space failed; try instruction space. */ oldcontents = mips_request ('I', (unsigned int) addr, (unsigned int) val, &err, mips_receive_wait); if (err) return errno; } if (old_contents != NULL) store_unsigned_integer (old_contents, 4, oldcontents); return 0; } /* Read or write LEN bytes from inferior memory at MEMADDR, transferring to or from debugger address MYADDR. Write to inferior if SHOULD_WRITE is nonzero. Returns length of data written or read; 0 for error. Note that protocol gives us the correct value for a longword, since it transfers values in ASCII. We want the byte values, so we have to swap the longword values. */ static int mips_xfer_memory (memaddr, myaddr, len, write, ignore) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *ignore; { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr &~ 3; /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + 3) / 4; /* Allocate buffer of that many longwords. */ register char *buffer = alloca (count * 4); int status; if (write) { /* Fill start and end extra bytes of buffer with existing data. */ if (addr != memaddr || len < 4) { /* Need part of initial word -- fetch it. */ store_unsigned_integer (&buffer[0], 4, mips_fetch_word (addr)); } if (count > 1) { /* Need part of last word -- fetch it. FIXME: we do this even if we don't need it. */ store_unsigned_integer (&buffer[(count - 1) * 4], 4, mips_fetch_word (addr + (count - 1) * 4)); } /* Copy data to be written over corresponding part of buffer */ memcpy ((char *) buffer + (memaddr & 3), myaddr, len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += 4) { status = mips_store_word (addr, extract_unsigned_integer (&buffer[i*4], 4), NULL); /* Report each kilobyte (we download 32-bit words at a time) */ if (i % 256 == 255) { printf_unfiltered ("*"); fflush (stdout); } if (status) { errno = status; return 0; } /* FIXME: Do we want a QUIT here? */ } if (count >= 256) printf_unfiltered ("\n"); } else { /* Read all the longwords */ for (i = 0; i < count; i++, addr += 4) { store_unsigned_integer (&buffer[i*4], 4, mips_fetch_word (addr)); QUIT; } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, buffer + (memaddr & 3), len); } return len; } /* Print info on this target. */ static void mips_files_info (ignore) struct target_ops *ignore; { printf_unfiltered ("Debugging a MIPS board over a serial line.\n"); } /* Kill the process running on the board. This will actually only work if we are doing remote debugging over the console input. I think that if IDT/sim had the remote debug interrupt enabled on the right port, we could interrupt the process with a break signal. */ static void mips_kill () { #if 0 if (mips_is_open) { char cc; /* Send a ^C. */ cc = '\003'; SERIAL_WRITE (mips_desc, &cc, 1); sleep (1); target_mourn_inferior (); } #endif } /* Start running on the target board. */ static void mips_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { CORE_ADDR entry_pt; if (args && *args) { warning ("\ Can't pass arguments to remote MIPS board; arguments ignored."); /* And don't try to use them on the next "run" command. */ execute_command ("set args", 0); } if (execfile == 0 || exec_bfd == 0) error ("No executable file specified"); entry_pt = (CORE_ADDR) bfd_get_start_address (exec_bfd); init_wait_for_inferior (); /* FIXME: Should we set inferior_pid here? */ proceed (entry_pt, TARGET_SIGNAL_DEFAULT, 0); } /* Clean up after a process. Actually nothing to do. */ static void mips_mourn_inferior () { unpush_target (&mips_ops); generic_mourn_inferior (); } /* We can write a breakpoint and read the shadow contents in one operation. */ /* The IDT board uses an unusual breakpoint value, and sometimes gets confused when it sees the usual MIPS breakpoint instruction. */ #if TARGET_BYTE_ORDER == BIG_ENDIAN static unsigned char break_insn[] = {0, 0, 0x0a, 0x0d}; #else static unsigned char break_insn[] = {0x0d, 0x0a, 0, 0}; #endif /* Insert a breakpoint on targets that don't have any better breakpoint support. We read the contents of the target location and stash it, then overwrite it with a breakpoint instruction. ADDR is the target location in the target machine. CONTENTS_CACHE is a pointer to memory allocated for saving the target contents. It is guaranteed by the caller to be long enough to save sizeof BREAKPOINT bytes (this is accomplished via BREAKPOINT_MAX). */ static int mips_insert_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { int status; return mips_store_word (addr, extract_unsigned_integer (break_insn, sizeof break_insn), contents_cache); } static int mips_remove_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { return target_write_memory (addr, contents_cache, sizeof break_insn); } /* The target vector. */ struct target_ops mips_ops = { "mips", /* to_shortname */ "Remote MIPS debugging over serial line", /* to_longname */ "\ Debug a board using the MIPS remote debugging protocol over a serial line.\n\ The argument is the device it is connected to or, if it contains a colon,\n\ HOST:PORT to access a board over a network", /* to_doc */ mips_open, /* to_open */ mips_close, /* to_close */ NULL, /* to_attach */ mips_detach, /* to_detach */ mips_resume, /* to_resume */ mips_wait, /* to_wait */ mips_fetch_registers, /* to_fetch_registers */ mips_store_registers, /* to_store_registers */ mips_prepare_to_store, /* to_prepare_to_store */ mips_xfer_memory, /* to_xfer_memory */ mips_files_info, /* to_files_info */ mips_insert_breakpoint, /* to_insert_breakpoint */ mips_remove_breakpoint, /* to_remove_breakpoint */ NULL, /* to_terminal_init */ NULL, /* to_terminal_inferior */ NULL, /* to_terminal_ours_for_output */ NULL, /* to_terminal_ours */ NULL, /* to_terminal_info */ mips_kill, /* to_kill */ generic_load, /* to_load */ NULL, /* to_lookup_symbol */ mips_create_inferior, /* to_create_inferior */ mips_mourn_inferior, /* to_mourn_inferior */ NULL, /* to_can_run */ NULL, /* to_notice_signals */ process_stratum, /* to_stratum */ NULL, /* to_next */ 1, /* to_has_all_memory */ 1, /* to_has_memory */ 1, /* to_has_stack */ 1, /* to_has_registers */ 1, /* to_has_execution */ NULL, /* sections */ NULL, /* sections_end */ OPS_MAGIC /* to_magic */ }; void _initialize_remote_mips () { add_target (&mips_ops); add_show_from_set ( add_set_cmd ("timeout", no_class, var_zinteger, (char *) &mips_receive_wait, "Set timeout in seconds for remote MIPS serial I/O.", &setlist), &showlist); add_show_from_set ( add_set_cmd ("retransmit-timeout", no_class, var_zinteger, (char *) &mips_retransmit_wait, "Set retransmit timeout in seconds for remote MIPS serial I/O.\n\ This is the number of seconds to wait for an acknowledgement to a packet\n\ before resending the packet.", &setlist), &showlist); } gdb-4.13/gdb/remote-mm.c 666 34562 1752 140534 5513036631 13410 0ustar fnfcygnus/* Remote debugging interface for Am290*0 running MiniMON monitor, for GDB. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. Originally written by Daniel Mann at AMD. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is like remote.c but ecpects MiniMON to be running on the Am29000 target hardware. - David Wood (wood@lab.ultra.nyu.edu) at New York University adapted this file to gdb 3.95. I was unable to get this working on sun3os4 with termio, only with sgtty. Because we are only attempting to use this module to debug our kernel, which is already loaded when gdb is started up, I did not code up the file downloading facilities. As a result this module has only the stubs to download files. You should get tagged at compile time if you need to make any changes/additions. */ #include "defs.h" #include "inferior.h" #include "wait.h" #include "value.h" #include #include #include #include #include #include "terminal.h" #include "minimon.h" #include "target.h" /* Offset of member MEMBER in a struct of type TYPE. */ #define offsetof(TYPE, MEMBER) ((int) &((TYPE *)0)->MEMBER) #define DRAIN_INPUT() (msg_recv_serial((union msg_t*)0)) extern int stop_soon_quietly; /* for wait_for_inferior */ static void mm_resume(); static void mm_fetch_registers (); static int fetch_register (); static void mm_store_registers (); static int store_register (); static int regnum_to_srnum(); static void mm_close (); static char* msg_str(); static char* error_msg_str(); static int expect_msg(); static void init_target_mm(); static int mm_memory_space(); #define FREEZE_MODE (read_register(CPS_REGNUM) && 0x400) #define USE_SHADOW_PC ((processor_type == a29k_freeze_mode) && FREEZE_MODE) /* FIXME: Replace with `set remotedebug'. */ #define LLOG_FILE "minimon.log" #if defined (LOG_FILE) FILE *log_file; #endif /* * Size of message buffers. I couldn't get memory reads to work when * the byte_count was larger than 512 (it may be a baud rate problem). */ #define BUFER_SIZE 512 /* * Size of data area in message buffer on the TARGET (remote system). */ #define MAXDATA_T (target_config.max_msg_size - \ offsetof(struct write_r_msg_t,data[0])) /* * Size of data area in message buffer on the HOST (gdb). */ #define MAXDATA_H (BUFER_SIZE - offsetof(struct write_r_msg_t,data[0])) /* * Defined as the minimum size of data areas of the two message buffers */ #define MAXDATA (MAXDATA_H < MAXDATA_T ? MAXDATA_H : MAXDATA_T) static char out_buf[BUFER_SIZE]; static char in_buf[BUFER_SIZE]; int msg_recv_serial(); int msg_send_serial(); #define MAX_RETRIES 5000 extern struct target_ops mm_ops; /* Forward declaration */ struct config_msg_t target_config; /* HIF needs this */ union msg_t *out_msg_buf = (union msg_t*)out_buf; union msg_t *in_msg_buf = (union msg_t*)in_buf; static int timeout = 5; /* Descriptor for I/O to remote machine. Initialize it to -1 so that mm_open knows that we don't have a file open when the program starts. */ int mm_desc = -1; /* stream which is fdopen'd from mm_desc. Only valid when mm_desc != -1. */ FILE *mm_stream; /* Called when SIGALRM signal sent due to alarm() timeout. */ #ifndef HAVE_TERMIO #ifndef __STDC__ # ifndef volatile # define volatile /**/ # endif #endif volatile int n_alarms; static void mm_timer () { #if 0 if (kiodebug) printf ("mm_timer called\n"); #endif n_alarms++; } #endif /* HAVE_TERMIO */ /* malloc'd name of the program on the remote system. */ static char *prog_name = NULL; /* Number of SIGTRAPs we need to simulate. That is, the next NEED_ARTIFICIAL_TRAP calls to mm_wait should just return SIGTRAP without actually waiting for anything. */ /**************************************************** REMOTE_CREATE_INFERIOR */ /* This is called not only when we first attach, but also when the user types "run" after having attached. */ static void mm_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { #define MAX_TOKENS 25 #define BUFFER_SIZE 256 int token_count; int result; char *token[MAX_TOKENS]; char cmd_line[BUFFER_SIZE]; if (args && *args) error ("Can't pass arguments to remote mm process (yet)."); if (execfile == 0 /* || exec_bfd == 0 */ ) error ("No exec file specified"); if (!mm_stream) { printf("Minimon not open yet.\n"); return; } /* On ultra3 (NYU) we assume the kernel is already running so there is no file to download. FIXME: Fixed required here -> load your program, possibly with mm_load(). */ printf_filtered ("\n\ Assuming you are at NYU debuging a kernel, i.e., no need to download.\n\n"); /* We will get a task spawn event immediately. */ init_wait_for_inferior (); clear_proceed_status (); stop_soon_quietly = 1; proceed (-1, TARGET_SIGNAL_DEFAULT, 0); normal_stop (); } /**************************************************** REMOTE_MOURN_INFERIOR */ static void mm_mourn() { pop_target (); /* Pop back to no-child state */ generic_mourn_inferior (); } /********************************************************************** damn_b */ /* Translate baud rates from integers to damn B_codes. Unix should have outgrown this crap years ago, but even POSIX wouldn't buck it. */ #ifndef B19200 #define B19200 EXTA #endif #ifndef B38400 #define B38400 EXTB #endif static struct {int rate, damn_b;} baudtab[] = { {0, B0}, {50, B50}, {75, B75}, {110, B110}, {134, B134}, {150, B150}, {200, B200}, {300, B300}, {600, B600}, {1200, B1200}, {1800, B1800}, {2400, B2400}, {4800, B4800}, {9600, B9600}, {19200, B19200}, {38400, B38400}, {-1, -1}, }; static int damn_b (rate) int rate; { int i; for (i = 0; baudtab[i].rate != -1; i++) if (rate == baudtab[i].rate) return baudtab[i].damn_b; return B38400; /* Random */ } /***************************************************************** REMOTE_OPEN ** Open a connection to remote minimon. NAME is the filename used for communication, then a space, then the baud rate. 'target adapt /dev/ttya 9600 [prognam]' for example. */ static char *dev_name; int baudrate = 9600; static void mm_open (name, from_tty) char *name; int from_tty; { TERMINAL sg; unsigned int prl; char *p; /* Find the first whitespace character, it separates dev_name from prog_name. */ for (p = name; p && *p && !isspace (*p); p++) ; if (p == 0 || *p == '\0') erroid: error ("Usage : [progname]"); dev_name = (char*)malloc (p - name + 1); strncpy (dev_name, name, p - name); dev_name[p - name] = '\0'; /* Skip over the whitespace after dev_name */ for (; isspace (*p); p++) /*EMPTY*/; if (1 != sscanf (p, "%d ", &baudrate)) goto erroid; /* Skip the number and then the spaces */ for (; isdigit (*p); p++) /*EMPTY*/; for (; isspace (*p); p++) /*EMPTY*/; if (prog_name != NULL) free (prog_name); prog_name = savestring (p, strlen (p)); if (mm_desc >= 0) close (mm_desc); mm_desc = open (dev_name, O_RDWR); if (mm_desc < 0) perror_with_name (dev_name); ioctl (mm_desc, TIOCGETP, &sg); #ifdef HAVE_TERMIO sg.c_cc[VMIN] = 0; /* read with timeout. */ sg.c_cc[VTIME] = timeout * 10; sg.c_lflag &= ~(ICANON | ECHO); sg.c_cflag = (sg.c_cflag & ~CBAUD) | damn_b (baudrate); #else sg.sg_ispeed = damn_b (baudrate); sg.sg_ospeed = damn_b (baudrate); sg.sg_flags |= RAW; sg.sg_flags |= ANYP; sg.sg_flags &= ~ECHO; #endif ioctl (mm_desc, TIOCSETP, &sg); mm_stream = fdopen (mm_desc, "r+"); push_target (&mm_ops); #ifndef HAVE_TERMIO #ifndef NO_SIGINTERRUPT /* Cause SIGALRM's to make reads fail with EINTR instead of resuming the read. */ if (siginterrupt (SIGALRM, 1) != 0) perror ("mm_open: error in siginterrupt"); #endif /* Set up read timeout timer. */ if ((void (*)) signal (SIGALRM, mm_timer) == (void (*)) -1) perror ("mm_open: error in signal"); #endif #if defined (LOG_FILE) log_file = fopen (LOG_FILE, "w"); if (log_file == NULL) perror_with_name (LOG_FILE); #endif /* ** Initialize target configuration structure (global) */ DRAIN_INPUT(); out_msg_buf->config_req_msg.code = CONFIG_REQ; out_msg_buf->config_req_msg.length = 4*0; msg_send_serial(out_msg_buf); /* send config request message */ expect_msg(CONFIG,in_msg_buf,1); a29k_get_processor_type (); /* Print out some stuff, letting the user now what's going on */ printf_filtered("Connected to MiniMon via %s.\n", dev_name); /* FIXME: can this restriction be removed? */ printf_filtered("Remote debugging using virtual addresses works only\n"); printf_filtered("\twhen virtual addresses map 1:1 to physical addresses.\n") ; if (processor_type != a29k_freeze_mode) { fprintf_filtered(stderr, "Freeze-mode debugging not available, and can only be done on an A29050.\n"); } target_config.code = CONFIG; target_config.length = 0; target_config.processor_id = in_msg_buf->config_msg.processor_id; target_config.version = in_msg_buf->config_msg.version; target_config.I_mem_start = in_msg_buf->config_msg.I_mem_start; target_config.I_mem_size = in_msg_buf->config_msg.I_mem_size; target_config.D_mem_start = in_msg_buf->config_msg.D_mem_start; target_config.D_mem_size = in_msg_buf->config_msg.D_mem_size; target_config.ROM_start = in_msg_buf->config_msg.ROM_start; target_config.ROM_size = in_msg_buf->config_msg.ROM_size; target_config.max_msg_size = in_msg_buf->config_msg.max_msg_size; target_config.max_bkpts = in_msg_buf->config_msg.max_bkpts; target_config.coprocessor = in_msg_buf->config_msg.coprocessor; target_config.reserved = in_msg_buf->config_msg.reserved; if (from_tty) { printf("Connected to MiniMON :\n"); printf(" Debugcore version %d.%d\n", 0x0f & (target_config.version >> 4), 0x0f & (target_config.version ) ); printf(" Configuration version %d.%d\n", 0x0f & (target_config.version >> 12), 0x0f & (target_config.version >> 8) ); printf(" Message system version %d.%d\n", 0x0f & (target_config.version >> 20), 0x0f & (target_config.version >> 16) ); printf(" Communication driver version %d.%d\n", 0x0f & (target_config.version >> 28), 0x0f & (target_config.version >> 24) ); } /* Leave the target running... * The above message stopped the target in the dbg core (MiniMon), * so restart the target out of MiniMon, */ out_msg_buf->go_msg.code = GO; out_msg_buf->go_msg.length = 0; msg_send_serial(out_msg_buf); /* No message to expect after a GO */ } /**************************************************************** REMOTE_CLOSE ** Close the open connection to the minimon debugger. Use this when you want to detach and do something else with your gdb. */ static void mm_close (quitting) /*FIXME: how is quitting used */ int quitting; { if (mm_desc < 0) error ("Can't close remote connection: not debugging remotely."); /* We should never get here if there isn't something valid in mm_desc and mm_stream. Due to a bug in Unix, fclose closes not only the stdio stream, but also the file descriptor. So we don't actually close mm_desc. */ DRAIN_INPUT(); fclose (mm_stream); /* close (mm_desc); */ /* Do not try to close mm_desc again, later in the program. */ mm_stream = NULL; mm_desc = -1; #if defined (LOG_FILE) if (ferror (log_file)) printf ("Error writing log file.\n"); if (fclose (log_file) != 0) printf ("Error closing log file.\n"); #endif printf ("Ending remote debugging\n"); } /************************************************************* REMOTE_ATACH */ /* Attach to a program that is already loaded and running * Upon exiting the process's execution is stopped. */ static void mm_attach (args, from_tty) char *args; int from_tty; { if (!mm_stream) error ("MiniMon not opened yet, use the 'target minimon' command.\n"); if (from_tty) printf ("Attaching to remote program %s...\n", prog_name); /* Make sure the target is currently running, it is supposed to be. */ /* FIXME: is it ok to send MiniMon a BREAK if it is already stopped in * the dbg core. If so, we don't need to send this GO. */ out_msg_buf->go_msg.code = GO; out_msg_buf->go_msg.length = 0; msg_send_serial(out_msg_buf); sleep(2); /* At the worst it will stop, receive a message, continue */ /* Send the mm a break. */ out_msg_buf->break_msg.code = BREAK; out_msg_buf->break_msg.length = 0; msg_send_serial(out_msg_buf); } /********************************************************** REMOTE_DETACH */ /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. Leave remote process running (with no breakpoints set). */ static void mm_detach (args,from_tty) char *args; int from_tty; { remove_breakpoints(); /* Just in case there were any left in */ out_msg_buf->go_msg.code = GO; out_msg_buf->go_msg.length = 0; msg_send_serial(out_msg_buf); pop_target(); /* calls mm_close to do the real work */ } /*************************************************************** REMOTE_RESUME ** Tell the remote machine to resume. */ static void mm_resume (pid, step, sig) int pid, step; enum target_signal sig; { if (sig != TARGET_SIGNAL_0) warning ("Can't send signals to a remote MiniMon system."); if (step) { out_msg_buf->step_msg.code= STEP; out_msg_buf->step_msg.length = 1*4; out_msg_buf->step_msg.count = 1; /* step 1 instruction */ msg_send_serial(out_msg_buf); } else { out_msg_buf->go_msg.code= GO; out_msg_buf->go_msg.length = 0; msg_send_serial(out_msg_buf); } } /***************************************************************** REMOTE_WAIT ** Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. */ static int mm_wait (status) struct target_waitstatus *status; { int i, result; int old_timeout = timeout; int old_immediate_quit = immediate_quit; status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; /* wait for message to arrive. It should be: - A HIF service request. - A HIF exit service request. - A CHANNEL0_ACK. - A CHANNEL1 request. - a debugcore HALT message. HIF services must be responded too, and while-looping continued. If the target stops executing, mm_wait() should return. */ timeout = 0; /* Wait indefinetly for a message */ immediate_quit = 1; /* Helps ability to QUIT */ while(1) { while(msg_recv_serial(in_msg_buf)) { QUIT; /* Let user quit if they want */ } switch (in_msg_buf->halt_msg.code) { case HIF_CALL: i = in_msg_buf->hif_call_rtn_msg.service_number; result=service_HIF(in_msg_buf); if(i == 1) /* EXIT */ goto exit; if(result) printf("Warning: failure during HIF service %d\n", i); break; case CHANNEL0_ACK: service_HIF(in_msg_buf); break; case CHANNEL1: i=in_msg_buf->channel1_msg.length; in_msg_buf->channel1_msg.data[i] = '\0'; printf("%s", in_msg_buf->channel1_msg.data); gdb_flush(stdout); /* Send CHANNEL1_ACK message */ out_msg_buf->channel1_ack_msg.code = CHANNEL1_ACK; out_msg_buf->channel1_ack_msg.length = 0; result = msg_send_serial(out_msg_buf); break; case HALT: goto halted; default: goto halted; } } halted: /* FIXME, these printfs should not be here. This is a source level debugger, guys! */ if (in_msg_buf->halt_msg.trap_number== 0) { printf("Am290*0 received vector number %d (break point)\n", in_msg_buf->halt_msg.trap_number); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; } else if (in_msg_buf->halt_msg.trap_number== 1) { printf("Am290*0 received vector number %d\n", in_msg_buf->halt_msg.trap_number); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_BUS; } else if (in_msg_buf->halt_msg.trap_number== 3 || in_msg_buf->halt_msg.trap_number== 4) { printf("Am290*0 received vector number %d\n", in_msg_buf->halt_msg.trap_number); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_FPE; } else if (in_msg_buf->halt_msg.trap_number== 5) { printf("Am290*0 received vector number %d\n", in_msg_buf->halt_msg.trap_number); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_ILL; } else if (in_msg_buf->halt_msg.trap_number >= 6 && in_msg_buf->halt_msg.trap_number <= 11) { printf("Am290*0 received vector number %d\n", in_msg_buf->halt_msg.trap_number); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_SEGV; } else if (in_msg_buf->halt_msg.trap_number== 12 || in_msg_buf->halt_msg.trap_number== 13) { printf("Am290*0 received vector number %d\n", in_msg_buf->halt_msg.trap_number); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_ILL; } else if (in_msg_buf->halt_msg.trap_number== 14) { printf("Am290*0 received vector number %d\n", in_msg_buf->halt_msg.trap_number); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_ALRM; } else if (in_msg_buf->halt_msg.trap_number== 15) { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; } else if (in_msg_buf->halt_msg.trap_number >= 16 && in_msg_buf->halt_msg.trap_number <= 21) { printf("Am290*0 received vector number %d\n", in_msg_buf->halt_msg.trap_number); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_INT; } else if (in_msg_buf->halt_msg.trap_number== 22) { printf("Am290*0 received vector number %d\n", in_msg_buf->halt_msg.trap_number); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_ILL; } /* BREAK message was sent */ else if (in_msg_buf->halt_msg.trap_number== 75) { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; } else exit: { status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; } timeout = old_timeout; /* Restore original timeout value */ immediate_quit = old_immediate_quit; return 0; } /******************************************************* REMOTE_FETCH_REGISTERS * Read a remote register 'regno'. * If regno==-1 then read all the registers. */ static void mm_fetch_registers (regno) int regno; { INT32 *data_p; if (regno >= 0) { fetch_register(regno); return; } /* Gr1/rsp */ out_msg_buf->read_req_msg.byte_count = 4*1; out_msg_buf->read_req_msg.memory_space = GLOBAL_REG; out_msg_buf->read_req_msg.address = 1; msg_send_serial(out_msg_buf); expect_msg(READ_ACK,in_msg_buf,1); data_p = &(in_msg_buf->read_r_ack_msg.data[0]); supply_register (GR1_REGNUM , data_p); #if defined(GR64_REGNUM) /* Read gr64-127 */ /* Global Registers gr64-gr95 */ out_msg_buf->read_req_msg.code= READ_REQ; out_msg_buf->read_req_msg.length = 4*3; out_msg_buf->read_req_msg.byte_count = 4*32; out_msg_buf->read_req_msg.memory_space = GLOBAL_REG; out_msg_buf->read_req_msg.address = 64; msg_send_serial(out_msg_buf); expect_msg(READ_ACK,in_msg_buf,1); data_p = &(in_msg_buf->read_r_ack_msg.data[0]); for (regno=GR64_REGNUM; regnoread_req_msg.code= READ_REQ; out_msg_buf->read_req_msg.length = 4*3; out_msg_buf->read_req_msg.byte_count = 4 * 32; out_msg_buf->read_req_msg.memory_space = GLOBAL_REG; out_msg_buf->read_req_msg.address = 96; msg_send_serial(out_msg_buf); expect_msg(READ_ACK,in_msg_buf,1); data_p = &(in_msg_buf->read_r_ack_msg.data[0]); for (regno=GR96_REGNUM; regnoread_req_msg.byte_count = 4 * (128); out_msg_buf->read_req_msg.memory_space = LOCAL_REG; out_msg_buf->read_req_msg.address = 0; msg_send_serial(out_msg_buf); expect_msg(READ_ACK,in_msg_buf,1); data_p = &(in_msg_buf->read_r_ack_msg.data[0]); for (regno=LR0_REGNUM; regnoread_req_msg.byte_count = 4*15; out_msg_buf->read_req_msg.memory_space = SPECIAL_REG; out_msg_buf->read_req_msg.address = 0; msg_send_serial( out_msg_buf); expect_msg(READ_ACK,in_msg_buf,1); data_p = &(in_msg_buf->read_r_ack_msg.data[0]); for (regno=0; regno<=14; regno++) { supply_register (SR_REGNUM(regno), data_p++); } if (USE_SHADOW_PC) { /* Let regno_to_srnum() handle the register number */ fetch_register(NPC_REGNUM); fetch_register(PC_REGNUM); fetch_register(PC2_REGNUM); } /* Unprotected Special Registers */ out_msg_buf->read_req_msg.byte_count = 4*8; out_msg_buf->read_req_msg.memory_space = SPECIAL_REG; out_msg_buf->read_req_msg.address = 128; msg_send_serial( out_msg_buf); expect_msg(READ_ACK,in_msg_buf,1); data_p = &(in_msg_buf->read_r_ack_msg.data[0]); for (regno=128; regno<=135; regno++) { supply_register (SR_REGNUM(regno), data_p++); } /* There doesn't seem to be any way to get these. */ { int val = -1; supply_register (FPE_REGNUM, &val); supply_register (INTE_REGNUM, &val); supply_register (FPS_REGNUM, &val); supply_register (EXO_REGNUM, &val); } } /****************************************************** REMOTE_STORE_REGISTERS * Store register regno into the target. * If regno==-1 then store all the registers. * Result is 0 for success, -1 for failure. */ static void mm_store_registers (regno) int regno; { int result; if (regno >= 0) { store_register(regno); return; } result = 0; out_msg_buf->write_r_msg.code= WRITE_REQ; /* Gr1/rsp */ out_msg_buf->write_r_msg.byte_count = 4*1; out_msg_buf->write_r_msg.length = 3*4 + out_msg_buf->write_r_msg.byte_count; out_msg_buf->write_r_msg.memory_space = GLOBAL_REG; out_msg_buf->write_r_msg.address = 1; out_msg_buf->write_r_msg.data[0] = read_register (GR1_REGNUM); msg_send_serial( out_msg_buf); if (!expect_msg(WRITE_ACK,in_msg_buf,1)) { result = -1; } #if defined(GR64_REGNUM) /* Global registers gr64-gr95 */ out_msg_buf->write_r_msg.byte_count = 4* (32); out_msg_buf->write_r_msg.length = 3*4 + out_msg_buf->write_r_msg.byte_count; out_msg_buf->write_r_msg.address = 64; for (regno=GR64_REGNUM ; regnowrite_r_msg.data[regno-GR64_REGNUM] = read_register (regno); } msg_send_serial(out_msg_buf); if (!expect_msg(WRITE_ACK,in_msg_buf,1)) { result = -1; } #endif /* GR64_REGNUM */ /* Global registers gr96-gr127 */ out_msg_buf->write_r_msg.byte_count = 4* (32); out_msg_buf->write_r_msg.length = 3*4 + out_msg_buf->write_r_msg.byte_count; out_msg_buf->write_r_msg.address = 96; for (regno=GR96_REGNUM ; regnowrite_r_msg.data[regno-GR96_REGNUM] = read_register (regno); } msg_send_serial( out_msg_buf); if (!expect_msg(WRITE_ACK,in_msg_buf,1)) { result = -1; } /* Local Registers */ out_msg_buf->write_r_msg.memory_space = LOCAL_REG; out_msg_buf->write_r_msg.byte_count = 4*128; out_msg_buf->write_r_msg.length = 3*4 + out_msg_buf->write_r_msg.byte_count; out_msg_buf->write_r_msg.address = 0; for (regno = LR0_REGNUM ; regno < LR0_REGNUM+128 ; regno++) { out_msg_buf->write_r_msg.data[regno-LR0_REGNUM] = read_register (regno); } msg_send_serial( out_msg_buf); if (!expect_msg(WRITE_ACK,in_msg_buf,1)) { result = -1; } /* Protected Special Registers */ /* VAB through TMR */ out_msg_buf->write_r_msg.memory_space = SPECIAL_REG; out_msg_buf->write_r_msg.byte_count = 4* 10; out_msg_buf->write_r_msg.length = 3*4 + out_msg_buf->write_r_msg.byte_count; out_msg_buf->write_r_msg.address = 0; for (regno = 0 ; regno<=9 ; regno++) /* VAB through TMR */ out_msg_buf->write_r_msg.data[regno] = read_register (SR_REGNUM(regno)); msg_send_serial( out_msg_buf); if (!expect_msg(WRITE_ACK,in_msg_buf,1)) { result = -1; } /* PC0, PC1, PC2 possibly as shadow registers */ out_msg_buf->write_r_msg.byte_count = 4* 3; out_msg_buf->write_r_msg.length = 3*4 + out_msg_buf->write_r_msg.byte_count; for (regno=10 ; regno<=12 ; regno++) /* LRU and MMU */ out_msg_buf->write_r_msg.data[regno-10] = read_register (SR_REGNUM(regno)); if (USE_SHADOW_PC) out_msg_buf->write_r_msg.address = 20; /* SPC0 */ else out_msg_buf->write_r_msg.address = 10; /* PC0 */ msg_send_serial( out_msg_buf); if (!expect_msg(WRITE_ACK,in_msg_buf,1)) { result = -1; } /* LRU and MMU */ out_msg_buf->write_r_msg.byte_count = 4* 2; out_msg_buf->write_r_msg.length = 3*4 + out_msg_buf->write_r_msg.byte_count; out_msg_buf->write_r_msg.address = 13; for (regno=13 ; regno<=14 ; regno++) /* LRU and MMU */ out_msg_buf->write_r_msg.data[regno-13] = read_register (SR_REGNUM(regno)); msg_send_serial( out_msg_buf); if (!expect_msg(WRITE_ACK,in_msg_buf,1)) { result = -1; } /* Unprotected Special Registers */ out_msg_buf->write_r_msg.byte_count = 4*8; out_msg_buf->write_r_msg.length = 3*4 + out_msg_buf->write_r_msg.byte_count; out_msg_buf->write_r_msg.address = 128; for (regno = 128 ; regno<=135 ; regno++) out_msg_buf->write_r_msg.data[regno-128] = read_register(SR_REGNUM(regno)); msg_send_serial( out_msg_buf); if (!expect_msg(WRITE_ACK,in_msg_buf,1)) { result = -1; } registers_changed (); } /*************************************************** REMOTE_PREPARE_TO_STORE */ /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void mm_prepare_to_store () { /* Do nothing, since we can store individual regs */ } /******************************************************* REMOTE_XFER_MEMORY */ static CORE_ADDR translate_addr(addr) CORE_ADDR addr; { #if defined(KERNEL_DEBUGGING) /* Check for a virtual address in the kernel */ /* Assume physical address of ublock is in paddr_u register */ /* FIXME: doesn't work for user virtual addresses */ if (addr >= UVADDR) { /* PADDR_U register holds the physical address of the ublock */ CORE_ADDR i = (CORE_ADDR)read_register(PADDR_U_REGNUM); return(i + addr - (CORE_ADDR)UVADDR); } else { return(addr); } #else return(addr); #endif } /******************************************************* REMOTE_FILES_INFO */ static void mm_files_info () { printf ("\tAttached to %s at %d baud and running program %s.\n", dev_name, baudrate, prog_name); } /************************************************* REMOTE_INSERT_BREAKPOINT */ static int mm_insert_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { out_msg_buf->bkpt_set_msg.code = BKPT_SET; out_msg_buf->bkpt_set_msg.length = 4*4; out_msg_buf->bkpt_set_msg.memory_space = I_MEM; out_msg_buf->bkpt_set_msg.bkpt_addr = (ADDR32) addr; out_msg_buf->bkpt_set_msg.pass_count = 1; out_msg_buf->bkpt_set_msg.bkpt_type = -1; /* use illop for 29000 */ msg_send_serial( out_msg_buf); if (expect_msg(BKPT_SET_ACK,in_msg_buf,1)) { return 0; /* Success */ } else { return 1; /* Failure */ } } /************************************************* REMOTE_DELETE_BREAKPOINT */ static int mm_remove_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { out_msg_buf->bkpt_rm_msg.code = BKPT_RM; out_msg_buf->bkpt_rm_msg.length = 4*3; out_msg_buf->bkpt_rm_msg.memory_space = I_MEM; out_msg_buf->bkpt_rm_msg.bkpt_addr = (ADDR32) addr; msg_send_serial( out_msg_buf); if (expect_msg(BKPT_RM_ACK,in_msg_buf,1)) { return 0; /* Success */ } else { return 1; /* Failure */ } } /******************************************************* REMOTE_KILL */ static void mm_kill(arg,from_tty) char *arg; int from_tty; { char buf[4]; #if defined(KERNEL_DEBUGGING) /* We don't ever kill the kernel */ if (from_tty) { printf("Kernel not killed, but left in current state.\n"); printf("Use detach to leave kernel running.\n"); } #else out_msg_buf->break_msg.code = BREAK; out_msg_buf->bkpt_set_msg.length = 4*0; expect_msg(HALT,in_msg_buf,from_tty); if (from_tty) { printf("Target has been stopped."); printf("Would you like to do a hardware reset (y/n) [n] "); fgets(buf,3,stdin); if (buf[0] == 'y') { out_msg_buf->reset_msg.code = RESET; out_msg_buf->bkpt_set_msg.length = 4*0; expect_msg(RESET_ACK,in_msg_buf,from_tty); printf("Target has been reset."); } } pop_target(); #endif } /***************************************************************************/ /* * Load a program into the target. */ static void mm_load(arg_string,from_tty) char *arg_string; int from_tty; { dont_repeat (); #if defined(KERNEL_DEBUGGING) printf("The kernel had better be loaded already! Loading not done.\n"); #else if (arg_string == 0) error ("The load command takes a file name"); arg_string = tilde_expand (arg_string); make_cleanup (free, arg_string); QUIT; immediate_quit++; error("File loading is not yet supported for MiniMon."); /* FIXME, code to load your file here... */ /* You may need to do an init_target_mm() */ /* init_target_mm(?,?,?,?,?,?,?,?); */ immediate_quit--; /* symbol_file_add (arg_string, from_tty, text_addr, 0, 0); */ #endif } /************************************************ REMOTE_WRITE_INFERIOR_MEMORY ** Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns number of bytes written. */ static int mm_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int i,nwritten; out_msg_buf->write_req_msg.code= WRITE_REQ; out_msg_buf->write_req_msg.memory_space = mm_memory_space(memaddr); nwritten=0; while (nwritten < len) { int num_to_write = len - nwritten; if (num_to_write > MAXDATA) num_to_write = MAXDATA; for (i=0 ; i < num_to_write ; i++) out_msg_buf->write_req_msg.data[i] = myaddr[i+nwritten]; out_msg_buf->write_req_msg.byte_count = num_to_write; out_msg_buf->write_req_msg.length = 3*4 + num_to_write; out_msg_buf->write_req_msg.address = memaddr + nwritten; msg_send_serial(out_msg_buf); if (expect_msg(WRITE_ACK,in_msg_buf,1)) { nwritten += in_msg_buf->write_ack_msg.byte_count; } else { break; } } return(nwritten); } /************************************************* REMOTE_READ_INFERIOR_MEMORY ** Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns number of bytes read. */ static int mm_read_inferior_memory(memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int i,nread; out_msg_buf->read_req_msg.code= READ_REQ; out_msg_buf->read_req_msg.memory_space = mm_memory_space(memaddr); nread=0; while (nread < len) { int num_to_read = (len - nread); if (num_to_read > MAXDATA) num_to_read = MAXDATA; out_msg_buf->read_req_msg.byte_count = num_to_read; out_msg_buf->read_req_msg.length = 3*4 + num_to_read; out_msg_buf->read_req_msg.address = memaddr + nread; msg_send_serial(out_msg_buf); if (expect_msg(READ_ACK,in_msg_buf,1)) { for (i=0 ; iread_ack_msg.byte_count ; i++) myaddr[i+nread] = in_msg_buf->read_ack_msg.data[i]; nread += in_msg_buf->read_ack_msg.byte_count; } else { break; } } return(nread); } /* FIXME! Merge these two. */ static int mm_xfer_inferior_memory (memaddr, myaddr, len, write) CORE_ADDR memaddr; char *myaddr; int len; int write; { memaddr = translate_addr(memaddr); if (write) return mm_write_inferior_memory (memaddr, myaddr, len); else return mm_read_inferior_memory (memaddr, myaddr, len); } /********************************************************** MSG_SEND_SERIAL ** This function is used to send a message over the ** serial line. ** ** If the message is successfully sent, a zero is ** returned. If the message was not sendable, a -1 ** is returned. This function blocks. That is, it ** does not return until the message is completely ** sent, or until an error is encountered. ** */ int msg_send_serial(msg_ptr) union msg_t *msg_ptr; { INT32 message_size; int byte_count; int result; char c; /* Send message header */ byte_count = 0; message_size = msg_ptr->generic_msg.length + (2 * sizeof(INT32)); do { c = *((char *)msg_ptr+byte_count); result = write(mm_desc, &c, 1); if (result == 1) { byte_count = byte_count + 1; } } while ((byte_count < message_size) ); return(0); } /* end msg_send_serial() */ /********************************************************** MSG_RECV_SERIAL ** This function is used to receive a message over a ** serial line. ** ** If the message is waiting in the buffer, a zero is ** returned and the buffer pointed to by msg_ptr is filled ** in. If no message was available, a -1 is returned. ** If timeout==0, wait indefinetly for a character. ** */ int msg_recv_serial(msg_ptr) union msg_t *msg_ptr; { static INT32 length=0; static INT32 byte_count=0; int result; char c; if(msg_ptr == 0) /* re-sync request */ { length=0; byte_count=0; #ifdef HAVE_TERMIO /* The timeout here is the prevailing timeout set with VTIME */ ->"timeout==0 semantics not supported" read(mm_desc, in_buf, BUFER_SIZE); #else alarm (1); read(mm_desc, in_buf, BUFER_SIZE); alarm (0); #endif return(0); } /* Receive message */ #ifdef HAVE_TERMIO /* Timeout==0, help support the mm_wait() routine */ ->"timeout==0 semantics not supported (and its nice if they are)" result = read(mm_desc, &c, 1); #else alarm(timeout); result = read(mm_desc, &c, 1); alarm (0); #endif if ( result < 0) { if (errno == EINTR) { error ("Timeout reading from remote system."); } else perror_with_name ("remote"); } else if (result == 1) { *((char *)msg_ptr+byte_count) = c; byte_count = byte_count + 1; } /* Message header received. Save message length. */ if (byte_count == (2 * sizeof(INT32))) length = msg_ptr->generic_msg.length; if (byte_count >= (length + (2 * sizeof(INT32)))) { /* Message received */ byte_count = 0; return(0); } else return (-1); } /* end msg_recv_serial() */ /********************************************************************* KBD_RAW ** This function is used to put the keyboard in "raw" ** mode for BSD Unix. The original status is saved ** so that it may be restored later. */ TERMINAL kbd_tbuf; int kbd_raw() { int result; TERMINAL tbuf; /* Get keyboard termio (to save to restore original modes) */ #ifdef HAVE_TERMIO result = ioctl(0, TCGETA, &kbd_tbuf); #else result = ioctl(0, TIOCGETP, &kbd_tbuf); #endif if (result == -1) return (errno); /* Get keyboard TERMINAL (for modification) */ #ifdef HAVE_TERMIO result = ioctl(0, TCGETA, &tbuf); #else result = ioctl(0, TIOCGETP, &tbuf); #endif if (result == -1) return (errno); /* Set up new parameters */ #ifdef HAVE_TERMIO tbuf.c_iflag = tbuf.c_iflag & ~(INLCR | ICRNL | IUCLC | ISTRIP | IXON | BRKINT); tbuf.c_lflag = tbuf.c_lflag & ~(ICANON | ISIG | ECHO); tbuf.c_cc[4] = 0; /* MIN */ tbuf.c_cc[5] = 0; /* TIME */ #else /* FIXME: not sure if this is correct (matches HAVE_TERMIO). */ tbuf.sg_flags |= RAW; tbuf.sg_flags |= ANYP; tbuf.sg_flags &= ~ECHO; #endif /* Set keyboard termio to new mode (RAW) */ #ifdef HAVE_TERMIO result = ioctl(0, TCSETAF, &tbuf); #else result = ioctl(0, TIOCSETP, &tbuf); #endif if (result == -1) return (errno); return (0); } /* end kbd_raw() */ /***************************************************************** KBD_RESTORE ** This function is used to put the keyboard back in the ** mode it was in before kbk_raw was called. Note that ** kbk_raw() must have been called at least once before ** kbd_restore() is called. */ int kbd_restore() { int result; /* Set keyboard termio to original mode */ #ifdef HAVE_TERMIO result = ioctl(0, TCSETAF, &kbd_tbuf); #else result = ioctl(0, TIOCGETP, &kbd_tbuf); #endif if (result == -1) return (errno); return(0); } /* end kbd_cooked() */ /*****************************************************************************/ /* Fetch a single register indicatated by 'regno'. * Returns 0/-1 on success/failure. */ static int fetch_register (regno) int regno; { int result; out_msg_buf->read_req_msg.code= READ_REQ; out_msg_buf->read_req_msg.length = 4*3; out_msg_buf->read_req_msg.byte_count = 4; if (regno == GR1_REGNUM) { out_msg_buf->read_req_msg.memory_space = GLOBAL_REG; out_msg_buf->read_req_msg.address = 1; } else if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32) { out_msg_buf->read_req_msg.memory_space = GLOBAL_REG; out_msg_buf->read_req_msg.address = (regno - GR96_REGNUM) + 96; } #if defined(GR64_REGNUM) else if (regno >= GR64_REGNUM && regno < GR64_REGNUM + 32 ) { out_msg_buf->read_req_msg.memory_space = GLOBAL_REG; out_msg_buf->read_req_msg.address = (regno - GR64_REGNUM) + 64; } #endif /* GR64_REGNUM */ else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128) { out_msg_buf->read_req_msg.memory_space = LOCAL_REG; out_msg_buf->read_req_msg.address = (regno - LR0_REGNUM); } else if (regno>=FPE_REGNUM && regno<=EXO_REGNUM) { int val = -1; supply_register(160 + (regno - FPE_REGNUM),&val); return 0; /* Pretend Success */ } else { out_msg_buf->read_req_msg.memory_space = SPECIAL_REG; out_msg_buf->read_req_msg.address = regnum_to_srnum(regno); } msg_send_serial(out_msg_buf); if (expect_msg(READ_ACK,in_msg_buf,1)) { supply_register (regno, &(in_msg_buf->read_r_ack_msg.data[0])); result = 0; } else { result = -1; } return result; } /*****************************************************************************/ /* Store a single register indicated by 'regno'. * Returns 0/-1 on success/failure. */ static int store_register (regno) int regno; { int result; out_msg_buf->write_req_msg.code= WRITE_REQ; out_msg_buf->write_req_msg.length = 4*4; out_msg_buf->write_req_msg.byte_count = 4; out_msg_buf->write_r_msg.data[0] = read_register (regno); if (regno == GR1_REGNUM) { out_msg_buf->write_req_msg.memory_space = GLOBAL_REG; out_msg_buf->write_req_msg.address = 1; /* Setting GR1 changes the numbers of all the locals, so invalidate the * register cache. Do this *after* calling read_register, because we want * read_register to return the value that write_register has just stuffed * into the registers array, not the value of the register fetched from * the inferior. */ registers_changed (); } #if defined(GR64_REGNUM) else if (regno >= GR64_REGNUM && regno < GR64_REGNUM + 32 ) { out_msg_buf->write_req_msg.memory_space = GLOBAL_REG; out_msg_buf->write_req_msg.address = (regno - GR64_REGNUM) + 64; } #endif /* GR64_REGNUM */ else if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32) { out_msg_buf->write_req_msg.memory_space = GLOBAL_REG; out_msg_buf->write_req_msg.address = (regno - GR96_REGNUM) + 96; } else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128) { out_msg_buf->write_req_msg.memory_space = LOCAL_REG; out_msg_buf->write_req_msg.address = (regno - LR0_REGNUM); } else if (regno>=FPE_REGNUM && regno<=EXO_REGNUM) { return 0; /* Pretend Success */ } else /* An unprotected or protected special register */ { out_msg_buf->write_req_msg.memory_space = SPECIAL_REG; out_msg_buf->write_req_msg.address = regnum_to_srnum(regno); } msg_send_serial(out_msg_buf); if (expect_msg(WRITE_ACK,in_msg_buf,1)) { result = 0; } else { result = -1; } return result; } /****************************************************************************/ /* * Convert a gdb special register number to a 29000 special register number. */ static int regnum_to_srnum(regno) int regno; { switch(regno) { case VAB_REGNUM: return(0); case OPS_REGNUM: return(1); case CPS_REGNUM: return(2); case CFG_REGNUM: return(3); case CHA_REGNUM: return(4); case CHD_REGNUM: return(5); case CHC_REGNUM: return(6); case RBP_REGNUM: return(7); case TMC_REGNUM: return(8); case TMR_REGNUM: return(9); case NPC_REGNUM: return(USE_SHADOW_PC ? (20) : (10)); case PC_REGNUM: return(USE_SHADOW_PC ? (21) : (11)); case PC2_REGNUM: return(USE_SHADOW_PC ? (22) : (12)); case MMU_REGNUM: return(13); case LRU_REGNUM: return(14); case IPC_REGNUM: return(128); case IPA_REGNUM: return(129); case IPB_REGNUM: return(130); case Q_REGNUM: return(131); case ALU_REGNUM: return(132); case BP_REGNUM: return(133); case FC_REGNUM: return(134); case CR_REGNUM: return(135); case FPE_REGNUM: return(160); case INTE_REGNUM: return(161); case FPS_REGNUM: return(162); case EXO_REGNUM:return(164); default: return(255); /* Failure ? */ } } /****************************************************************************/ /* * Initialize the target debugger (minimon only). */ static void init_target_mm(tstart,tend,dstart,dend,entry,ms_size,rs_size,arg_start) ADDR32 tstart,tend,dstart,dend,entry; INT32 ms_size,rs_size; ADDR32 arg_start; { out_msg_buf->init_msg.code = INIT; out_msg_buf->init_msg.length= sizeof(struct init_msg_t)-2*sizeof(INT32); out_msg_buf->init_msg.text_start = tstart; out_msg_buf->init_msg.text_end = tend; out_msg_buf->init_msg.data_start = dstart; out_msg_buf->init_msg.data_end = dend; out_msg_buf->init_msg.entry_point = entry; out_msg_buf->init_msg.mem_stack_size = ms_size; out_msg_buf->init_msg.reg_stack_size = rs_size; out_msg_buf->init_msg.arg_start = arg_start; msg_send_serial(out_msg_buf); expect_msg(INIT_ACK,in_msg_buf,1); } /****************************************************************************/ /* * Return a pointer to a string representing the given message code. * Not all messages are represented here, only the ones that we expect * to be called with. */ static char* msg_str(code) INT32 code; { static char cbuf[32]; switch (code) { case BKPT_SET_ACK: sprintf(cbuf,"%s (%d)","BKPT_SET_ACK",code); break; case BKPT_RM_ACK: sprintf(cbuf,"%s (%d)","BKPT_RM_ACK",code); break; case INIT_ACK: sprintf(cbuf,"%s (%d)","INIT_ACK",code); break; case READ_ACK: sprintf(cbuf,"%s (%d)","READ_ACK",code); break; case WRITE_ACK: sprintf(cbuf,"%s (%d)","WRITE_ACK",code); break; case ERROR: sprintf(cbuf,"%s (%d)","ERROR",code); break; case HALT: sprintf(cbuf,"%s (%d)","HALT",code); break; default: sprintf(cbuf,"UNKNOWN (%d)",code); break; } return(cbuf); } /****************************************************************************/ /* * Selected (not all of them) error codes that we might get. */ static char* error_msg_str(code) INT32 code; { static char cbuf[50]; switch (code) { case EMFAIL: return("EMFAIL: unrecoverable error"); case EMBADADDR: return("EMBADADDR: Illegal address"); case EMBADREG: return("EMBADREG: Illegal register "); case EMACCESS: return("EMACCESS: Could not access memory"); case EMBADMSG: return("EMBADMSG: Unknown message type"); case EMMSG2BIG: return("EMMSG2BIG: Message to large"); case EMNOSEND: return("EMNOSEND: Could not send message"); case EMNORECV: return("EMNORECV: Could not recv message"); case EMRESET: return("EMRESET: Could not RESET target"); case EMCONFIG: return("EMCONFIG: Could not get target CONFIG"); case EMSTATUS: return("EMSTATUS: Could not get target STATUS"); case EMREAD: return("EMREAD: Could not READ target memory"); case EMWRITE: return("EMWRITE: Could not WRITE target memory"); case EMBKPTSET: return("EMBKPTSET: Could not set breakpoint"); case EMBKPTRM: return("EMBKPTRM: Could not remove breakpoint"); case EMBKPTSTAT:return("EMBKPTSTAT: Could not get breakpoint status"); case EMBKPTNONE:return("EMBKPTNONE: All breakpoints in use"); case EMBKPTUSED:return("EMBKPTUSED: Breakpoints already in use"); case EMINIT: return("EMINIT: Could not init target memory"); case EMGO: return("EMGO: Could not start execution"); case EMSTEP: return("EMSTEP: Could not single step"); case EMBREAK: return("EMBREAK: Could not BREAK"); case EMCOMMERR: return("EMCOMMERR: Communication error"); default: sprintf(cbuf,"error number %d",code); break; } /* end switch */ return (cbuf); } /****************************************************************************/ /* * Receive a message and expect it to be of type msgcode. * Returns 0/1 on failure/success. */ static int expect_msg(msgcode,msg_buf,from_tty) INT32 msgcode; /* Msg code we expect */ union msg_t *msg_buf; /* Where to put the message received */ int from_tty; /* Print message on error if non-zero */ { int retries=0; while(msg_recv_serial(msg_buf) && (retries++= MAX_RETRIES) { printf("Expected msg %s, ",msg_str(msgcode)); printf("no message received!\n"); return(0); /* Failure */ } if (msg_buf->generic_msg.code != msgcode) { if (from_tty) { printf("Expected msg %s, ",msg_str(msgcode)); printf("got msg %s\n",msg_str(msg_buf->generic_msg.code)); if (msg_buf->generic_msg.code == ERROR) printf("%s\n",error_msg_str(msg_buf->error_msg.error_code)); } return(0); /* Failure */ } return(1); /* Success */ } /****************************************************************************/ /* * Determine the MiniMon memory space qualifier based on the addr. * FIXME: Can't distinguis I_ROM/D_ROM. * FIXME: Doesn't know anything about I_CACHE/D_CACHE. */ static int mm_memory_space(addr) CORE_ADDR *addr; { ADDR32 tstart = target_config.I_mem_start; ADDR32 tend = tstart + target_config.I_mem_size; ADDR32 dstart = target_config.D_mem_start; ADDR32 dend = tstart + target_config.D_mem_size; ADDR32 rstart = target_config.ROM_start; ADDR32 rend = tstart + target_config.ROM_size; if (((ADDR32)addr >= tstart) && ((ADDR32)addr < tend)) { return I_MEM; } else if (((ADDR32)addr >= dstart) && ((ADDR32)addr < dend)) { return D_MEM; } else if (((ADDR32)addr >= rstart) && ((ADDR32)addr < rend)) { /* FIXME: how do we determine between D_ROM and I_ROM */ return D_ROM; } else /* FIXME: what do me do now? */ return D_MEM; /* Hmmm! */ } /****************************************************************************/ /* * Define the target subroutine names */ struct target_ops mm_ops = { "minimon", "Remote AMD/Minimon target", "Remote debug an AMD 290*0 using the MiniMon dbg core on the target", mm_open, mm_close, mm_attach, mm_detach, mm_resume, mm_wait, mm_fetch_registers, mm_store_registers, mm_prepare_to_store, mm_xfer_inferior_memory, mm_files_info, mm_insert_breakpoint, mm_remove_breakpoint, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ mm_kill, /* FIXME, kill */ mm_load, 0, /* lookup_symbol */ mm_create_inferior, /* create_inferior */ mm_mourn, /* mourn_inferior FIXME */ 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0,0, /* sections, sections_end */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_remote_mm() { add_target (&mm_ops); } #ifdef NO_HIF_SUPPORT service_HIF(msg) union msg_t *msg; { return(0); /* Emulate a failure */ } #endif gdb-4.13/gdb/remote-mon.c 666 34562 1752 70155 5533525547 13564 0ustar fnfcygnus/* Remote debugging interface for boot monitors, for GDB. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Rob Savoye for Cygnus. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file was derived from remote-eb.c, which did a similar job, but for an AMD-29K running EBMON. That file was in turn derived from remote.c as mentioned in the following comment (left in for comic relief): "This is like remote.c but is for an esoteric situation-- having an a29k board in a PC hooked up to a unix machine with a serial line, and running ctty com1 on the PC, through which the unix machine can run ebmon. Not to mention that the PC has PC/NFS, so it can access the same executables that gdb can, over the net in real time." In reality, this module talks to a debug monitor called 'MONITOR', which We communicate with MONITOR via either a direct serial line, or a TCP (or possibly TELNET) stream to a terminal multiplexor, which in turn talks to the target board. This is based on remote-st2000.c. I left in the above note here for histerical reasons. */ #include "defs.h" #include "gdbcore.h" #include "target.h" #include "wait.h" #include #include #include #include #include "command.h" #include "serial.h" #include "monitor.h" #include "remote-utils.h" #ifdef HAVE_TERMIO # define TERMINAL struct termios #else # define TERMINAL struct sgttyb #endif struct monitor_ops *current_monitor; extern struct target_ops rom68k_ops; /* Forward declaration */ extern struct target_ops mon68_ops; /* Forward declaration */ extern struct target_ops monitor_bug_ops; /* Forward declaration */ extern struct monitor_ops rom68k_cmds; /* Forward declaration */ extern struct monitor_ops mon68_cmds; /* Forward declaration */ extern struct monitor_ops bug_cmds; /* Forward declaration */ extern struct cmd_list_element *setlist; extern struct cmd_list_element *unsetlist; struct cmd_list_element *showlist; static void monitor_close(); static void monitor_fetch_register(); static void monitor_store_register(); #if 0 static int sr_get_debug(); /* flag set by "set remotedebug" */ #endif static int hashmark; /* flag set by "set hash" */ /* FIXME: Replace with sr_get_debug (). */ #define LOG_FILE "monitor.log" #if defined (LOG_FILE) FILE *log_file; #endif static int timeout = 24; /* Descriptor for I/O to remote machine. Initialize it to NULL so that monitor_open knows that we don't have a file open when the program starts. */ static serial_t monitor_desc = NULL; /* Send data to monitor. Works just like printf. */ static void printf_monitor(va_alist) va_dcl { va_list args; char *pattern; char buf[200]; int i; va_start(args); pattern = va_arg(args, char *); vsprintf(buf, pattern, args); if (SERIAL_WRITE(monitor_desc, buf, strlen(buf))) fprintf(stderr, "SERIAL_WRITE failed: %s\n", safe_strerror(errno)); } /* Read a character from the remote system, doing all the fancy timeout stuff. */ static int readchar(timeout) int timeout; { int c; c = SERIAL_READCHAR(monitor_desc, timeout); if (sr_get_debug()) putchar(c & 0x7f); #ifdef LOG_FILE if (isascii (c)) putc(c & 0x7f, log_file); #endif if (c >= 0) return c & 0x7f; if (c == SERIAL_TIMEOUT) { if (timeout == 0) return c; /* Polls shouldn't generate timeout errors */ error("Timeout reading from remote system."); } perror_with_name("remote-monitor"); } /* Scan input from the remote system, until STRING is found. If DISCARD is non-zero, then discard non-matching input, else print it out. Let the user break out immediately. */ static void expect(string, discard) char *string; int discard; { char *p = string; int c; if (sr_get_debug()) printf ("Expecting \"%s\"\n", string); immediate_quit = 1; while (1) { c = readchar(timeout); if (!isascii (c)) continue; if (c == *p++) { if (*p == '\0') { immediate_quit = 0; if (sr_get_debug()) printf ("\nMatched\n"); return; } } else { if (!discard) { fwrite(string, 1, (p - 1) - string, stdout); putchar((char)c); fflush(stdout); } p = string; } } } /* Keep discarding input until we see the MONITOR prompt. The convention for dealing with the prompt is that you o give your command o *then* wait for the prompt. Thus the last thing that a procedure does with the serial line will be an expect_prompt(). Exception: monitor_resume does not wait for the prompt, because the terminal is being handed over to the inferior. However, the next thing which happens after that is a monitor_wait which does wait for the prompt. Note that this includes abnormal exit, e.g. error(). This is necessary to prevent getting into states from which we can't recover. */ static void expect_prompt(discard) int discard; { #if defined (LOG_FILE) /* This is a convenient place to do this. The idea is to do it often enough that we never lose much data if we terminate abnormally. */ fflush(log_file); #endif expect (PROMPT, discard); } /* Get a hex digit from the remote system & return its value. If ignore_space is nonzero, ignore spaces (not newline, tab, etc). */ static int get_hex_digit(ignore_space) int ignore_space; { int ch; while (1) { ch = readchar(timeout); if (ch >= '0' && ch <= '9') return ch - '0'; else if (ch >= 'A' && ch <= 'F') return ch - 'A' + 10; else if (ch >= 'a' && ch <= 'f') return ch - 'a' + 10; else if (ch == ' ' && ignore_space) ; else { expect_prompt(1); error("Invalid hex digit from remote system."); } } } /* Get a byte from monitor and put it in *BYT. Accept any number leading spaces. */ static void get_hex_byte (byt) char *byt; { int val; val = get_hex_digit (1) << 4; val |= get_hex_digit (0); *byt = val; } /* Get N 32-bit words from remote, each preceded by a space, and put them in registers starting at REGNO. */ static void get_hex_regs (n, regno) int n; int regno; { long val; int i; for (i = 0; i < n; i++) { int j; val = 0; for (j = 0; j < 8; j++) val = (val << 4) + get_hex_digit (j == 0); supply_register (regno++, (char *) &val); } } /* This is called not only when we first attach, but also when the user types "run" after having attached. */ static void monitor_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; if (args && *args) error("Can't pass arguments to remote MONITOR process"); if (execfile == 0 || exec_bfd == 0) error("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); #ifdef LOG_FILE fputs ("\nIn Create_inferior()", log_file); #endif /* The "process" (board) is already stopped awaiting our commands, and the program is already downloaded. We just set its PC and go. */ clear_proceed_status (); /* Tell wait_for_inferior that we've started a new process. */ init_wait_for_inferior (); /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); /* insert_step_breakpoint (); FIXME, do we need this? */ /* Let 'er rip... */ proceed ((CORE_ADDR)entry_pt, TARGET_SIGNAL_DEFAULT, 0); } /* Open a connection to a remote debugger. NAME is the filename used for communication. */ static int baudrate = 9600; static char dev_name[100]; static void general_open(args, name, from_tty) char *args; char *name; int from_tty; { if (args == NULL) error ("Use `target %s DEVICE-NAME' to use a serial port, or \n\ `target %s HOST-NAME:PORT-NUMBER' to use a network connection.", name, name); target_preopen(from_tty); /* if (is_open) */ monitor_close(0); strcpy(dev_name, args); monitor_desc = SERIAL_OPEN(dev_name); if (monitor_desc == NULL) perror_with_name(dev_name); if (baud_rate != -1) { if (SERIAL_SETBAUDRATE (monitor_desc, baud_rate)) { SERIAL_CLOSE (monitor_desc); perror_with_name (name); } } SERIAL_RAW(monitor_desc); #if defined (LOG_FILE) log_file = fopen (LOG_FILE, "w"); if (log_file == NULL) perror_with_name (LOG_FILE); #endif /* Hello? Are you there? */ printf_monitor("\r"); /* CR wakes up monitor */ expect_prompt(1); if (from_tty) printf("Remote %s connected to %s\n", target_shortname, dev_name); } static void rom68k_open(args, from_tty) char *args; int from_tty; { push_target(&rom68k_ops); push_monitor (&rom68k_cmds); general_open (args, "rom68k", from_tty); } static void mon68_open(args, from_tty) char *args; int from_tty; { push_target(&mon68_ops); push_monitor (&mon68_cmds); general_open (args, "mon68", from_tty); } static void bug_open(args, from_tty) char *args; int from_tty; { push_target(&monitor_bug_ops); push_monitor (&bug_cmds); general_open (args, "bug", from_tty); } /* * _close -- Close out all files and local state before this target loses control. */ static void monitor_close (quitting) int quitting; { SERIAL_CLOSE(monitor_desc); monitor_desc = NULL; #if defined (LOG_FILE) if (log_file) { if (ferror(log_file)) fprintf(stderr, "Error writing log file.\n"); if (fclose(log_file) != 0) fprintf(stderr, "Error closing log file.\n"); } #endif } /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ static void monitor_detach (from_tty) int from_tty; { pop_target(); /* calls monitor_close to do the real work */ if (from_tty) printf ("Ending remote %s debugging\n", target_shortname); } /* * _resume -- Tell the remote machine to resume. */ static void monitor_resume (pid, step, sig) int pid, step; enum target_signal sig; { #ifdef LOG_FILE fprintf (log_file, "\nIn Resume (step=%d, sig=%d)\n", step, sig); #endif if (step) { printf_monitor (STEP_CMD); /* wait for the echo. */ expect (STEP_CMD, 1); } else { printf_monitor (GO_CMD); /* swallow the echo. */ expect (GO_CMD, 1); } } /* * _wait -- Wait until the remote machine stops, then return, * storing status in status just as `wait' would. */ static int monitor_wait (pid, status) int pid; struct target_waitstatus *status; { int old_timeout = timeout; #ifdef LOG_FILE fputs ("\nIn wait ()", log_file); #endif status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; timeout = 0; /* Don't time out -- user program is running. */ expect_prompt(0); /* Wait for prompt, outputting extraneous text */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; timeout = old_timeout; return 0; } /* Return the name of register number regno in the form input and output by monitor. Currently, register_names just happens to contain exactly what monitor wants. Lets take advantage of that just as long as possible! */ static char * get_reg_name (regno) int regno; { static char buf[50]; const char *p; char *b; b = buf; if (regno < 0) return (""); for (p = reg_names[regno]; *p; p++) *b++ = toupper(*p); *b = '\000'; return buf; } /* read the remote registers into the block regs. */ static void monitor_fetch_registers () { int regno; /* yeah yeah, i know this is horribly inefficient. but it isn't done very often... i'll clean it up later. */ for (regno = 0; regno <= PC_REGNUM; regno++) monitor_fetch_register(regno); } /* Fetch register REGNO, or all registers if REGNO is -1. Returns errno value. */ static void monitor_fetch_register (regno) int regno; { int val, j; #ifdef LOG_FILE fprintf (log_file, "\nIn Fetch Register (reg=%s)\n", get_reg_name (regno)); fflush (log_file); #endif if (regno < 0) { monitor_fetch_registers (); } else { char *name = get_reg_name (regno); printf_monitor (GET_REG, name); expect (name, 1); expect (REG_DELIM, 1); if (strcasecmp (name, "SR") == 0) { val = 0; for (j = 0; j < 4; j++) val = (val << 4) + get_hex_digit (j == 0); supply_register (regno, (char *) &val); } else { get_hex_regs (1, regno); } if (CMD_END) { expect (CMD_DELIM); printf_monitor (CMD_END); } expect_prompt (1); } return; } /* Store the remote registers from the contents of the block REGS. */ static void monitor_store_registers () { int regno; for (regno = 0; regno <= PC_REGNUM; regno++) monitor_store_register(regno); registers_changed (); } /* Store register REGNO, or all if REGNO == 0. return errno value. */ static void monitor_store_register (regno) int regno; { #ifdef LOG_FILE fprintf (log_file, "\nIn Store_register (regno=%d)\n", regno); #endif if (regno == -1) monitor_store_registers (); else { if (sr_get_debug()) printf ("Setting register %s to 0x%x\n", get_reg_name (regno), read_register (regno)); printf_monitor (SET_REG, get_reg_name (regno), read_register (regno)); expect_prompt (1); } } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void monitor_prepare_to_store () { /* Do nothing, since we can store individual regs */ } static void monitor_files_info () { printf ("\tAttached to %s at %d baud.\n", dev_name, baudrate); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns length moved. */ static int monitor_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { int i; char buf[10]; #ifdef LOG_FILE fprintf (log_file, "\nIn Write_inferior_memory (memaddr=%x, len=%d)\n", memaddr, len); #endif for (i = 0; i < len; i++) { printf_monitor (MEM_SET_CMD, memaddr + i); expect (sprintf (buf, MEM_PROMPT, memaddr + i), 1); expect (CMD_DELIM); printf_monitor ("%x", myaddr[i]); if (sr_get_debug()) printf ("\nSet 0x%x to 0x%x\n", memaddr + i, myaddr[i]); if (CMD_END) { /*** expect (sprintf (buf, MEM_PROMPT, memaddr + i +1), 1); expect (CMD_DELIM); ***/ printf_monitor (CMD_END); } expect_prompt (1); } return len; } /* Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns length moved. */ static int monitor_read_inferior_memory(memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int i, j; char buf[20]; /* Number of bytes read so far. */ int count; /* Starting address of this pass. */ unsigned long startaddr; /* Number of bytes to read in this pass. */ int len_this_pass; #ifdef LOG_FILE fprintf (log_file, "\nIn Read_inferior_memory (memaddr=%x, len=%d)\n", memaddr, len); #endif /* Note that this code works correctly if startaddr is just less than UINT_MAX (well, really CORE_ADDR_MAX if there was such a thing). That is, something like monitor_read_bytes (CORE_ADDR_MAX - 4, foo, 4) works--it never adds len To memaddr and gets 0. */ /* However, something like monitor_read_bytes (CORE_ADDR_MAX - 3, foo, 4) doesn't need to work. Detect it and give up if there's an attempt to do that. */ if (((memaddr - 1) + len) < memaddr) { errno = EIO; return 0; } startaddr = memaddr; count = 0; while (count < len) { len_this_pass = 16; if ((startaddr % 16) != 0) len_this_pass -= startaddr % 16; if (len_this_pass > (len - count)) len_this_pass = (len - count); if (sr_get_debug()) printf ("\nDisplay %d bytes at %x\n", len_this_pass, startaddr); for (i = 0; i < len_this_pass; i++) { printf_monitor (MEM_DIS_CMD, startaddr); expect (sprintf(buf, MEM_PROMPT, startaddr), 1); get_hex_byte (&myaddr[count++]); if (sr_get_debug()) printf ("\nRead a 0x%x from 0x%x\n", myaddr[count-1], startaddr); if (CMD_END) { expect (CMD_DELIM); printf_monitor (CMD_END); } expect_prompt (1); startaddr += 1; } } return len; } /* FIXME-someday! merge these two. */ static int monitor_xfer_inferior_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { if (write) return monitor_write_inferior_memory (memaddr, myaddr, len); else return monitor_read_inferior_memory (memaddr, myaddr, len); } static void monitor_kill (args, from_tty) char *args; int from_tty; { return; /* ignore attempts to kill target system */ } /* Clean up when a program exits. The program actually lives on in the remote processor's RAM, and may be run again without a download. Don't leave it full of breakpoint instructions. */ static void monitor_mourn_inferior () { remove_breakpoints (); generic_mourn_inferior (); /* Do all the proper things now */ } #define MAX_MONITOR_BREAKPOINTS 16 extern int memory_breakpoint_size; static CORE_ADDR breakaddr[MAX_MONITOR_BREAKPOINTS] = {0}; static int monitor_insert_breakpoint (addr, shadow) CORE_ADDR addr; char *shadow; { int i; #ifdef LOG_FILE fprintf (log_file, "\nIn Insert_breakpoint (addr=%x)\n", addr); #endif for (i = 0; i <= MAX_MONITOR_BREAKPOINTS; i++) if (breakaddr[i] == 0) { breakaddr[i] = addr; if (sr_get_debug()) printf ("Breakpoint at %x\n", addr); monitor_read_inferior_memory(addr, shadow, memory_breakpoint_size); printf_monitor(SET_BREAK_CMD, addr); expect_prompt(1); return 0; } fprintf(stderr, "Too many breakpoints (> 16) for monitor\n"); return 1; } /* * _remove_breakpoint -- Tell the monitor to remove a breakpoint */ static int monitor_remove_breakpoint (addr, shadow) CORE_ADDR addr; char *shadow; { int i; #ifdef LOG_FILE fprintf (log_file, "\nIn Remove_breakpoint (addr=%x)\n", addr); #endif for (i = 0; i < MAX_MONITOR_BREAKPOINTS; i++) if (breakaddr[i] == addr) { breakaddr[i] = 0; /* some monitors remove breakpoints based on the address */ if (strcasecmp (target_shortname, "bug") == 0) printf_monitor(CLR_BREAK_CMD, addr); else printf_monitor(CLR_BREAK_CMD, i); expect_prompt(1); return 0; } fprintf(stderr, "Can't find breakpoint associated with 0x%x\n", addr); return 1; } /* Load a file. This is usually an srecord, which is ascii. No protocol, just sent line by line. */ #define DOWNLOAD_LINE_SIZE 100 static void monitor_load (arg) char *arg; { FILE *download; char buf[DOWNLOAD_LINE_SIZE]; int i, bytes_read; if (sr_get_debug()) printf ("Loading %s to monitor\n", arg); download = fopen (arg, "r"); if (download == NULL) { error (sprintf (buf, "%s Does not exist", arg)); return; } printf_monitor (LOAD_CMD); /* expect ("Waiting for S-records from host... ", 1); */ while (!feof (download)) { bytes_read = fread (buf, sizeof (char), DOWNLOAD_LINE_SIZE, download); if (hashmark) { putchar ('.'); fflush (stdout); } if (SERIAL_WRITE(monitor_desc, buf, bytes_read)) { fprintf(stderr, "SERIAL_WRITE failed: (while downloading) %s\n", safe_strerror(errno)); break; } i = 0; while (i++ <=200000) {} ; /* Ugly HACK, probably needs flow control */ if (bytes_read < DOWNLOAD_LINE_SIZE) { if (!feof (download)) error ("Only read %d bytes\n", bytes_read); break; } } if (hashmark) { putchar ('\n'); } if (!feof (download)) error ("Never got EOF while downloading"); fclose (download); } /* Put a command string, in args, out to MONITOR. Output from MONITOR is placed on the users terminal until the prompt is seen. */ static void monitor_command (args, fromtty) char *args; int fromtty; { #ifdef LOG_FILE fprintf (log_file, "\nIn command (args=%s)\n", args); #endif if (monitor_desc == NULL) error("monitor target not open."); if (!args) error("Missing command."); printf_monitor("%s\r", args); expect_prompt(0); } #if 0 /* Connect the user directly to MONITOR. This command acts just like the 'cu' or 'tip' command. Use ~. or ~^D to break out. */ static struct ttystate ttystate; static void cleanup_tty() { printf("\r\n[Exiting connect mode]\r\n"); /*SERIAL_RESTORE(0, &ttystate);*/ } static void connect_command (args, fromtty) char *args; int fromtty; { fd_set readfds; int numfds; int c; char cur_esc = 0; dont_repeat(); if (monitor_desc == NULL) error("monitor target not open."); if (args) fprintf("This command takes no args. They have been ignored.\n"); printf("[Entering connect mode. Use ~. or ~^D to escape]\n"); serial_raw(0, &ttystate); make_cleanup(cleanup_tty, 0); FD_ZERO(&readfds); while (1) { do { FD_SET(0, &readfds); FD_SET(monitor_desc, &readfds); numfds = select(sizeof(readfds)*8, &readfds, 0, 0, 0); } while (numfds == 0); if (numfds < 0) perror_with_name("select"); if (FD_ISSET(0, &readfds)) { /* tty input, send to monitor */ c = getchar(); if (c < 0) perror_with_name("connect"); printf_monitor("%c", c); switch (cur_esc) { case 0: if (c == '\r') cur_esc = c; break; case '\r': if (c == '~') cur_esc = c; else cur_esc = 0; break; case '~': if (c == '.' || c == '\004') return; else cur_esc = 0; } } if (FD_ISSET(monitor_desc, &readfds)) { while (1) { c = readchar(0); if (c < 0) break; putchar(c); } fflush(stdout); } } } #endif /* * Define the monitor command strings. Since these are passed directly * through to a printf style function, we need can include formatting * strings. We also need a CR or LF on the end. */ struct monitor_ops rom68k_cmds = { "go \r", /* execute or usually GO command */ "go \r", /* continue command */ "st \r", /* single step */ "db %x\r", /* set a breakpoint */ "cb %x\r", /* clear a breakpoint */ "pm %x\r", /* set memory to a value */ "pm %x\r", /* display memory */ "-%08X ", /* prompt memory commands use */ "pr %s %x\r", /* set a register */ ": ", /* delimiter between registers */ "pr %s\r", /* read a register */ "dc \r", /* download command */ "ROM68K :->", /* monitor command prompt */ "=", /* end-of-command delimitor */ ".\r" /* optional command terminator */ }; struct monitor_ops bug_cmds = { "go \r", /* execute or usually GO command */ "go \r", /* continue command */ "gn \r", /* single step */ "br %x\r", /* set a breakpoint */ "nobr %x\r", /* clear a breakpoint */ "mm %x\r", /* set memory to a value */ "mm %x\r", /* display memory */ "%08X", /* prompt memory commands use */ "rs %s %x\r", /* set a register */ "=", /* delimiter between registers */ "rm %s\r", /* read a register */ "lo 0\r", /* download command */ "Bug>", /* monitor command prompt */ "? ", /* end-of-command delimitor */ ".\r" /* optional command terminator */ }; /* Define the target subroutine names */ struct monitor_ops mon68_cmds = { "", /* execute or usually GO command */ "", /* continue command */ "", /* single step */ "", /* set a breakpoint */ "", /* clear a breakpoint */ "", /* set memory to a value */ "", /* display memory */ "", /* set a register */ "", /* delimiter between registers */ "", /* read a register */ "", /* download command */ ">", /* monitor command prompt */ "", /* end-of-command delimitor */ "" /* optional command terminator */ }; struct target_ops rom68k_ops = { "rom68k", "Integrated System's ROM68K remote debug monitor", "Use a remote computer running the ROM68K debug monitor.\n\ Specify the serial device it is connected to (e.g. /dev/ttya).", rom68k_open, monitor_close, 0, monitor_detach, monitor_resume, monitor_wait, monitor_fetch_register, monitor_store_register, monitor_prepare_to_store, monitor_xfer_inferior_memory, monitor_files_info, monitor_insert_breakpoint, monitor_remove_breakpoint, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ monitor_kill, monitor_load, /* load */ 0, /* lookup_symbol */ monitor_create_inferior, monitor_mourn_inferior, 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; struct target_ops monitor_bug_ops = { "bug", "Motorola's BUG remote serial debug monitor", "Use a remote computer running Motorola's BUG debug monitor.\n\ Specify the serial device it is connected to (e.g. /dev/ttya).", bug_open, monitor_close, 0, monitor_detach, monitor_resume, monitor_wait, monitor_fetch_register, monitor_store_register, monitor_prepare_to_store, monitor_xfer_inferior_memory, monitor_files_info, monitor_insert_breakpoint, monitor_remove_breakpoint, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ monitor_kill, monitor_load, /* load */ 0, /* lookup_symbol */ monitor_create_inferior, monitor_mourn_inferior, 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; struct target_ops mon68_ops = { "mon68", "Intermetric's MON68 remote serial debug monitor", "Use a remote computer running the MON68 debug monitor.\n\ Specify the serial device it is connected to (e.g. /dev/ttya).", mon68_open, monitor_close, 0, monitor_detach, monitor_resume, monitor_wait, monitor_fetch_register, monitor_store_register, monitor_prepare_to_store, monitor_xfer_inferior_memory, monitor_files_info, monitor_insert_breakpoint, monitor_remove_breakpoint, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ monitor_kill, monitor_load, /* load */ 0, /* lookup_symbol */ monitor_create_inferior, monitor_mourn_inferior, 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_remote_monitors () { add_show_from_set ( add_set_cmd ("hash", no_class, var_boolean, (char *)&hashmark, "Set display of activity while downloading a file.\n\ When enabled, a period \'.\' is displayed.", &setlist), &showlist); /* generic monitor command */ add_com ("monitor ", class_obscure, monitor_command, "Send a command to the debug monitor."); #if 0 add_com ("connect", class_obscure, connect_command, "Connect the terminal directly up to a serial based command monitor.\n\ Use ~. or ~^D to break out."); #endif add_target (&rom68k_ops); /* add_target (&mon68_ops); */ add_target (&monitor_bug_ops); } gdb-4.13/gdb/remote-nindy.c 666 34562 1752 50315 5534304355 14101 0ustar fnfcygnus/* Memory-access and commands for remote NINDY process, for GDB. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by Intel Corporation. Modified from remote.c by Chris Benenati. GDB is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY. No author or distributor accepts responsibility to anyone for the consequences of using it or for whether it serves any particular purpose or works at all, unless he says so in writing. Refer to the GDB General Public License for full details. Everyone is granted permission to copy, modify and redistribute GDB, but only under the conditions described in the GDB General Public License. A copy of this license is supposed to have been given to you along with GDB so you can know your rights and responsibilities. It should be in a file named COPYING. Among other things, the copyright notice and this notice must be preserved on all copies. In other words, go ahead and share GDB, but don't try to stop anyone else from sharing it farther. Help stamp out software hoarding! */ /* Except for the data cache routines, this file bears little resemblence to remote.c. A new (although similar) protocol has been specified, and portions of the code are entirely dependent on having an i80960 with a NINDY ROM monitor at the other end of the line. */ /***************************************************************************** * * REMOTE COMMUNICATION PROTOCOL BETWEEN GDB960 AND THE NINDY ROM MONITOR. * * * MODES OF OPERATION * ----- -- --------- * * As far as NINDY is concerned, GDB is always in one of two modes: command * mode or passthrough mode. * * In command mode (the default) pre-defined packets containing requests * are sent by GDB to NINDY. NINDY never talks except in reponse to a request. * * Once the the user program is started, GDB enters passthrough mode, to give * the user program access to the terminal. GDB remains in this mode until * NINDY indicates that the program has stopped. * * * PASSTHROUGH MODE * ----------- ---- * * GDB writes all input received from the keyboard directly to NINDY, and writes * all characters received from NINDY directly to the monitor. * * Keyboard input is neither buffered nor echoed to the monitor. * * GDB remains in passthrough mode until NINDY sends a single ^P character, * to indicate that the user process has stopped. * * Note: * GDB assumes NINDY performs a 'flushreg' when the user program stops. * * * COMMAND MODE * ------- ---- * * All info (except for message ack and nak) is transferred between gdb * and the remote processor in messages of the following format: * * # * * where * # is a literal character * * ASCII information; all numeric information is in the * form of hex digits ('0'-'9' and lowercase 'a'-'f'). * * * is a pair of ASCII hex digits representing an 8-bit * checksum formed by adding together each of the * characters in . * * The receiver of a message always sends a single character to the sender * to indicate that the checksum was good ('+') or bad ('-'); the sender * re-transmits the entire message over until a '+' is received. * * In response to a command NINDY always sends back either data or * a result code of the form "Xnn", where "nn" are hex digits and "X00" * means no errors. (Exceptions: the "s" and "c" commands don't respond.) * * SEE THE HEADER OF THE FILE "gdb.c" IN THE NINDY MONITOR SOURCE CODE FOR A * FULL DESCRIPTION OF LEGAL COMMANDS. * * SEE THE FILE "stop.h" IN THE NINDY MONITOR SOURCE CODE FOR A LIST * OF STOP CODES. * ***************************************************************************/ #include "defs.h" #include #include #include #include "frame.h" #include "inferior.h" #include "bfd.h" #include "symfile.h" #include "target.h" #include "gdbcore.h" #include "command.h" #include "floatformat.h" #include "wait.h" #include #include #include "serial.h" #include "nindy-share/env.h" #include "nindy-share/stop.h" #include "dcache.h" #include "remote-utils.h" static DCACHE *nindy_dcache; extern int unlink(); extern char *getenv(); extern char *mktemp(); extern void generic_mourn_inferior (); extern struct target_ops nindy_ops; extern GDB_FILE *instream; extern char ninStopWhy (); extern int ninMemGet (); extern int ninMemPut (); int nindy_initial_brk; /* nonzero if want to send an initial BREAK to nindy */ int nindy_old_protocol; /* nonzero if want to use old protocol */ char *nindy_ttyname; /* name of tty to talk to nindy on, or null */ #define DLE '\020' /* Character NINDY sends to indicate user program has * halted. */ #define TRUE 1 #define FALSE 0 /* From nindy-share/nindy.c. */ extern serial_t nindy_serial; static int have_regs = 0; /* 1 iff regs read since i960 last halted */ static int regs_changed = 0; /* 1 iff regs were modified since last read */ extern char *exists(); static void nindy_fetch_registers PARAMS ((int)); static void nindy_store_registers PARAMS ((int)); static char *savename; static void nindy_close (quitting) int quitting; { if (nindy_serial != NULL) SERIAL_CLOSE (nindy_serial); nindy_serial = NULL; if (savename) free (savename); savename = 0; } /* Open a connection to a remote debugger. FIXME, there should be "set" commands for the options that are now specified with gdb command-line options (old_protocol, and initial_brk). */ void nindy_open (name, from_tty) char *name; /* "/dev/ttyXX", "ttyXX", or "XX": tty to be opened */ int from_tty; { char baudrate[1024]; if (!name) error_no_arg ("serial port device name"); target_preopen (from_tty); nindy_close (0); have_regs = regs_changed = 0; nindy_dcache = dcache_init(ninMemGet, ninMemPut); /* Allow user to interrupt the following -- we could hang if there's no NINDY at the other end of the remote tty. */ immediate_quit++; /* If baud_rate is -1, then ninConnect will not recognize the baud rate and will deal with the situation in a (more or less) reasonable fashion. */ sprintf(baudrate, "%d", baud_rate); ninConnect(name, baudrate, nindy_initial_brk, !from_tty, nindy_old_protocol); immediate_quit--; if (nindy_serial == NULL) { perror_with_name (name); } savename = savestring (name, strlen (name)); push_target (&nindy_ops); target_fetch_registers(-1); } /* User-initiated quit of nindy operations. */ static void nindy_detach (name, from_tty) char *name; int from_tty; { if (name) error ("Too many arguments"); pop_target (); } static void nindy_files_info () { /* FIXME: this lies about the baud rate if we autobauded. */ printf_unfiltered("\tAttached to %s at %d bits per second%s%s.\n", savename, baud_rate, nindy_old_protocol? " in old protocol": "", nindy_initial_brk? " with initial break": ""); } /* Return the number of characters in the buffer before the first DLE character. */ static int non_dle( buf, n ) char *buf; /* Character buffer; NOT '\0'-terminated */ int n; /* Number of characters in buffer */ { int i; for ( i = 0; i < n; i++ ){ if ( buf[i] == DLE ){ break; } } return i; } /* Tell the remote machine to resume. */ void nindy_resume (pid, step, siggnal) int pid, step; enum target_signal siggnal; { if (siggnal != TARGET_SIGNAL_0 && siggnal != stop_signal) warning ("Can't send signals to remote NINDY targets."); dcache_flush(nindy_dcache); if ( regs_changed ){ nindy_store_registers (-1); regs_changed = 0; } have_regs = 0; ninGo( step ); } /* FIXME, we can probably use the normal terminal_inferior stuff here. We have to do terminal_inferior and then set up the passthrough settings initially. Thereafter, terminal_ours and terminal_inferior will automatically swap the settings around for us. */ struct clean_up_tty_args { serial_ttystate state; serial_t serial; }; static void clean_up_tty (ptrarg) PTR ptrarg; { struct clean_up_tty_args *args = (struct clean_up_tty_args *) ptrarg; SERIAL_SET_TTY_STATE (args->serial, args->state); free (args->state); warning ("\n\n\ You may need to reset the 80960 and/or reload your program.\n"); } /* Wait until the remote machine stops. While waiting, operate in passthrough * mode; i.e., pass everything NINDY sends to gdb_stdout, and everything from * stdin to NINDY. * * Return to caller, storing status in 'status' just as `wait' would. */ static int nindy_wait( pid, status ) int pid; struct target_waitstatus *status; { fd_set fds; char buf[500]; /* FIXME, what is "500" here? */ int i, n; unsigned char stop_exit; unsigned char stop_code; struct clean_up_tty_args tty_args; struct cleanup *old_cleanups; long ip_value, fp_value, sp_value; /* Reg values from stop */ status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; /* OPERATE IN PASSTHROUGH MODE UNTIL NINDY SENDS A DLE CHARACTER */ /* Save current tty attributes, and restore them when done. */ tty_args.serial = SERIAL_FDOPEN (0); tty_args.state = SERIAL_GET_TTY_STATE (tty_args.serial); old_cleanups = make_cleanup (clean_up_tty, &tty_args); /* Pass input from keyboard to NINDY as it arrives. NINDY will interpret and perform echo. */ /* This used to set CBREAK and clear ECHO and CRMOD. I hope this is close enough. */ SERIAL_RAW (tty_args.serial); while (1) { /* Wait for input on either the remote port or stdin. */ FD_ZERO (&fds); FD_SET (0, &fds); FD_SET (nindy_serial->fd, &fds); if (select (nindy_serial->fd + 1, &fds, 0, 0, 0) <= 0) continue; /* Pass input through to correct place */ if (FD_ISSET (0, &fds)) { /* Input on stdin */ n = read (0, buf, sizeof (buf)); if (n) { SERIAL_WRITE (nindy_serial, buf, n ); } } if (FD_ISSET (nindy_serial->fd, &fds)) { /* Input on remote */ n = read (nindy_serial->fd, buf, sizeof (buf)); if (n) { /* Write out any characters in buffer preceding DLE */ i = non_dle( buf, n ); if ( i > 0 ) { write (1, buf, i); } if (i != n) { /* There *was* a DLE in the buffer */ stop_exit = ninStopWhy(&stop_code, &ip_value, &fp_value, &sp_value); if (!stop_exit && (stop_code == STOP_SRQ)) { immediate_quit++; ninSrq(); immediate_quit--; } else { /* Get out of loop */ supply_register (IP_REGNUM, (char *)&ip_value); supply_register (FP_REGNUM, (char *)&fp_value); supply_register (SP_REGNUM, (char *)&sp_value); break; } } } } } do_cleanups (old_cleanups); if (stop_exit) { status->kind = TARGET_WAITKIND_EXITED; status->value.integer = stop_code; } else { status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = i960_fault_to_signal (stop_code); } return inferior_pid; } /* Read the remote registers into the block REGS. */ /* This is the block that ninRegsGet and ninRegsPut handles. */ struct nindy_regs { char local_regs[16 * 4]; char global_regs[16 * 4]; char pcw_acw[2 * 4]; char ip[4]; char tcw[4]; char fp_as_double[4 * 8]; }; static void nindy_fetch_registers(regno) int regno; { struct nindy_regs nindy_regs; int regnum, inv; double dub; immediate_quit++; ninRegsGet( (char *) &nindy_regs ); immediate_quit--; memcpy (®isters[REGISTER_BYTE (R0_REGNUM)], nindy_regs.local_regs, 16*4); memcpy (®isters[REGISTER_BYTE (G0_REGNUM)], nindy_regs.global_regs, 16*4); memcpy (®isters[REGISTER_BYTE (PCW_REGNUM)], nindy_regs.pcw_acw, 2*4); memcpy (®isters[REGISTER_BYTE (IP_REGNUM)], nindy_regs.ip, 1*4); memcpy (®isters[REGISTER_BYTE (TCW_REGNUM)], nindy_regs.tcw, 1*4); for (regnum = FP0_REGNUM; regnum < FP0_REGNUM + 4; regnum++) { dub = unpack_double (builtin_type_double, &nindy_regs.fp_as_double[8 * (regnum - FP0_REGNUM)], &inv); /* dub now in host byte order */ floatformat_from_double (&floatformat_i960_ext, &dub, ®isters[REGISTER_BYTE (regnum)]); } registers_fetched (); } static void nindy_prepare_to_store() { /* Fetch all regs if they aren't already here. */ read_register_bytes (0, NULL, REGISTER_BYTES); } static void nindy_store_registers(regno) int regno; { struct nindy_regs nindy_regs; int regnum; double dub; memcpy (nindy_regs.local_regs, ®isters[REGISTER_BYTE (R0_REGNUM)], 16*4); memcpy (nindy_regs.global_regs, ®isters[REGISTER_BYTE (G0_REGNUM)], 16*4); memcpy (nindy_regs.pcw_acw, ®isters[REGISTER_BYTE (PCW_REGNUM)], 2*4); memcpy (nindy_regs.ip, ®isters[REGISTER_BYTE (IP_REGNUM)], 1*4); memcpy (nindy_regs.tcw, ®isters[REGISTER_BYTE (TCW_REGNUM)], 1*4); for (regnum = FP0_REGNUM; regnum < FP0_REGNUM + 4; regnum++) { floatformat_to_double (&floatformat_i960_ext, ®isters[REGISTER_BYTE (regnum)], &dub); store_floating (&nindy_regs.fp_as_double[8 * (regnum - FP0_REGNUM)], REGISTER_VIRTUAL_SIZE (regnum), dub); } immediate_quit++; ninRegsPut( (char *) &nindy_regs ); immediate_quit--; } /* Read a word from remote address ADDR and return it. * This goes through the data cache. */ int nindy_fetch_word (addr) CORE_ADDR addr; { return dcache_fetch (nindy_dcache, addr); } /* Write a word WORD into remote address ADDR. This goes through the data cache. */ void nindy_store_word (addr, word) CORE_ADDR addr; int word; { dcache_poke (nindy_dcache, addr, word); } /* Copy LEN bytes to or from inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. Copy to inferior if WRITE is nonzero. Returns the length copied. This is stolen almost directly from infptrace.c's child_xfer_memory, which also deals with a word-oriented memory interface. Sometime, FIXME, rewrite this to not use the word-oriented routines. */ int nindy_xfer_inferior_memory(memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & - sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); if (write) { /* Fill start and end extra bytes of buffer with existing memory data. */ if (addr != memaddr || len < (int)sizeof (int)) { /* Need part of initial word -- fetch it. */ buffer[0] = nindy_fetch_word (addr); } if (count > 1) /* FIXME, avoid if even boundary */ { buffer[count - 1] = nindy_fetch_word (addr + (count - 1) * sizeof (int)); } /* Copy data to be written over corresponding part of buffer */ memcpy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; nindy_store_word (addr, buffer[i]); if (errno) return 0; } } else { /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; buffer[i] = nindy_fetch_word (addr); if (errno) return 0; QUIT; } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); } return len; } static void nindy_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; int pid; if (args && *args) error ("Can't pass arguments to remote NINDY process"); if (execfile == 0 || exec_bfd == 0) error ("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); pid = 42; /* The "process" (board) is already stopped awaiting our commands, and the program is already downloaded. We just set its PC and go. */ inferior_pid = pid; /* Needed for wait_for_inferior below */ clear_proceed_status (); /* Tell wait_for_inferior that we've started a new process. */ init_wait_for_inferior (); /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); /* insert_step_breakpoint (); FIXME, do we need this? */ /* Let 'er rip... */ proceed ((CORE_ADDR)entry_pt, TARGET_SIGNAL_DEFAULT, 0); } static void reset_command(args, from_tty) char *args; int from_tty; { if (nindy_serial == NULL) { error( "No target system to reset -- use 'target nindy' command."); } if ( query("Really reset the target system?",0,0) ) { SERIAL_SEND_BREAK (nindy_serial); tty_flush (nindy_serial); } } void nindy_kill (args, from_tty) char *args; int from_tty; { return; /* Ignore attempts to kill target system */ } /* Clean up when a program exits. The program actually lives on in the remote processor's RAM, and may be run again without a download. Don't leave it full of breakpoint instructions. */ void nindy_mourn_inferior () { remove_breakpoints (); unpush_target (&nindy_ops); generic_mourn_inferior (); /* Do all the proper things now */ } /* Pass the args the way catch_errors wants them. */ static int nindy_open_stub (arg) char *arg; { nindy_open (arg, 1); return 1; } static int load_stub (arg) char *arg; { target_load (arg, 1); return 1; } /* This routine is run as a hook, just before the main command loop is entered. If gdb is configured for the i960, but has not had its nindy target specified yet, this will loop prompting the user to do so. Unlike the loop provided by Intel, we actually let the user get out of this with a RETURN. This is useful when e.g. simply examining an i960 object file on the host system. */ void nindy_before_main_loop () { char ttyname[100]; char *p, *p2; while (current_target != &nindy_ops) { /* remote tty not specified yet */ if ( instream == stdin ){ printf_unfiltered("\nAttach /dev/ttyNN -- specify NN, or \"quit\" to quit: "); gdb_flush( gdb_stdout ); } fgets( ttyname, sizeof(ttyname)-1, stdin ); /* Strip leading and trailing whitespace */ for ( p = ttyname; isspace(*p); p++ ){ ; } if ( *p == '\0' ){ return; /* User just hit spaces or return, wants out */ } for ( p2= p; !isspace(*p2) && (*p2 != '\0'); p2++ ){ ; } *p2= '\0'; if ( STREQ("quit",p) ){ exit(1); } if (catch_errors (nindy_open_stub, p, "", RETURN_MASK_ALL)) { /* Now that we have a tty open for talking to the remote machine, download the executable file if one was specified. */ if (exec_bfd) { catch_errors (load_stub, bfd_get_filename (exec_bfd), "", RETURN_MASK_ALL); } } } } /* Define the target subroutine names */ struct target_ops nindy_ops = { "nindy", "Remote serial target in i960 NINDY-specific protocol", "Use a remote i960 system running NINDY connected by a serial line.\n\ Specify the name of the device the serial line is connected to.\n\ The speed (baud rate), whether to use the old NINDY protocol,\n\ and whether to send a break on startup, are controlled by options\n\ specified when you started GDB.", nindy_open, nindy_close, 0, nindy_detach, nindy_resume, nindy_wait, nindy_fetch_registers, nindy_store_registers, nindy_prepare_to_store, nindy_xfer_inferior_memory, nindy_files_info, 0, 0, /* insert_breakpoint, remove_breakpoint, */ 0, 0, 0, 0, 0, /* Terminal crud */ nindy_kill, generic_load, 0, /* lookup_symbol */ nindy_create_inferior, nindy_mourn_inferior, 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_nindy () { add_target (&nindy_ops); add_com ("reset", class_obscure, reset_command, "Send a 'break' to the remote target system.\n\ Only useful if the target has been equipped with a circuit\n\ to perform a hard reset when a break is detected."); } gdb-4.13/gdb/remote-os9k.c 666 34562 1752 70036 5575710667 13663 0ustar fnfcygnus/* Remote debugging interface for boot monitors, for GDB. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file was derived from remote-eb.c, which did a similar job, but for an AMD-29K running EBMON. That file was in turn derived from remote.c as mentioned in the following comment (left in for comic relief): "This is like remote.c but is for a different situation-- having a PC running os9000 hook up with a unix machine with a serial line, and running ctty com2 on the PC. os9000 has a debug monitor called ROMBUG running. Not to mention that the PC has PC/NFS, so it can access the same executables that gdb can, over the net in real time." In reality, this module talks to a debug monitor called 'ROMBUG', which We communicate with ROMBUG via a direct serial line, the network version of ROMBUG is not available yet. */ #include "defs.h" #include "gdbcore.h" #include "target.h" #include "wait.h" #include #include #include #include #include "command.h" #include "serial.h" #include "monitor.h" #include "remote-utils.h" #include "symtab.h" #include "symfile.h" #include "objfiles.h" #include "gdb-stabs.h" #include #ifdef HAVE_TERMIO # define TERMINAL struct termios #else # define TERMINAL struct sgttyb #endif struct monitor_ops *current_monitor; struct cmd_list_element *showlist; extern struct target_ops rombug_ops; /* Forward declaration */ extern struct monitor_ops rombug_cmds; /* Forward declaration */ extern struct cmd_list_element *setlist; extern struct cmd_list_element *unsetlist; extern int attach_flag; static void rombug_close(); static void rombug_fetch_register(); static void rombug_fetch_registers(); static void rombug_store_register(); #if 0 static int sr_get_debug(); /* flag set by "set remotedebug" */ #endif static int hashmark; /* flag set by "set hash" */ static int rombug_is_open = 0; /* FIXME: Replace with sr_get_debug (). */ #define LOG_FILE "monitor.log" FILE *log_file; static int monitor_log = 0; static int tty_xon = 0; static int tty_xoff = 0; static int timeout = 10; static int is_trace_mode = 0; /* Descriptor for I/O to remote machine. Initialize it to NULL*/ static serial_t monitor_desc = NULL; static CORE_ADDR bufaddr = 0; static int buflen = 0; static char readbuf[16]; /* Send data to monitor. Works just like printf. */ static void printf_monitor(va_alist) va_dcl { va_list args; char *pattern; char buf[200]; int i; va_start(args); pattern = va_arg(args, char *); vsprintf(buf, pattern, args); if (SERIAL_WRITE(monitor_desc, buf, strlen(buf))) fprintf(stderr, "SERIAL_WRITE failed: %s\n", safe_strerror(errno)); } /* Read a character from the remote system, doing all the fancy timeout stuff*/ static int readchar(timeout) int timeout; { int c; c = SERIAL_READCHAR(monitor_desc, timeout); if (sr_get_debug()) putchar(c & 0x7f); if (monitor_log && isascii(c)) putc(c & 0x7f, log_file); if (c >= 0) return c & 0x7f; if (c == SERIAL_TIMEOUT) { if (timeout == 0) return c; /* Polls shouldn't generate timeout errors */ error("Timeout reading from remote system."); } perror_with_name("remote-monitor"); } /* Scan input from the remote system, until STRING is found. If DISCARD is non-zero, then discard non-matching input, else print it out. Let the user break out immediately. */ static void expect(string, discard) char *string; int discard; { char *p = string; int c; if (sr_get_debug()) printf ("Expecting \"%s\"\n", string); immediate_quit = 1; while (1) { c = readchar(timeout); if (!isascii (c)) continue; if (c == *p++) { if (*p == '\0') { immediate_quit = 0; if (sr_get_debug()) printf ("\nMatched\n"); return; } } else { if (!discard) { fwrite(string, 1, (p - 1) - string, stdout); putchar((char)c); fflush(stdout); } p = string; } } } /* Keep discarding input until we see the ROMBUG prompt. The convention for dealing with the prompt is that you o give your command o *then* wait for the prompt. Thus the last thing that a procedure does with the serial line will be an expect_prompt(). Exception: rombug_resume does not wait for the prompt, because the terminal is being handed over to the inferior. However, the next thing which happens after that is a rombug_wait which does wait for the prompt. Note that this includes abnormal exit, e.g. error(). This is necessary to prevent getting into states from which we can't recover. */ static void expect_prompt(discard) int discard; { if (monitor_log) /* This is a convenient place to do this. The idea is to do it often enough that we never lose much data if we terminate abnormally. */ fflush(log_file); if (is_trace_mode) { expect("trace", discard); } else { expect (PROMPT, discard); } } /* Get a hex digit from the remote system & return its value. If ignore_space is nonzero, ignore spaces (not newline, tab, etc). */ static int get_hex_digit(ignore_space) int ignore_space; { int ch; while (1) { ch = readchar(timeout); if (ch >= '0' && ch <= '9') return ch - '0'; else if (ch >= 'A' && ch <= 'F') return ch - 'A' + 10; else if (ch >= 'a' && ch <= 'f') return ch - 'a' + 10; else if (ch == ' ' && ignore_space) ; else { expect_prompt(1); error("Invalid hex digit from remote system."); } } } /* Get a byte from monitor and put it in *BYT. Accept any number leading spaces. */ static void get_hex_byte (byt) char *byt; { int val; val = get_hex_digit (1) << 4; val |= get_hex_digit (0); *byt = val; } /* Get N 32-bit words from remote, each preceded by a space, and put them in registers starting at REGNO. */ static void get_hex_regs (n, regno) int n; int regno; { long val; int i; unsigned char b; for (i = 0; i < n; i++) { int j; val = 0; for (j = 0; j < 4; j++) { #if TARGET_BYTE_ORDER == BIG_ENDIAN get_hex_byte(&b); val = (val << 8) + b; #else get_hex_byte(&b); val = val + (b << (j*8)); #endif } supply_register (regno++, (char *) &val); } } /* This is called not only when we first attach, but also when the user types "run" after having attached. */ static void rombug_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; if (args && *args) error("Can't pass arguments to remote ROMBUG process"); if (execfile == 0 || exec_bfd == 0) error("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); if (monitor_log) fputs ("\nIn Create_inferior()", log_file); /* The "process" (board) is already stopped awaiting our commands, and the program is already downloaded. We just set its PC and go. */ init_wait_for_inferior (); proceed ((CORE_ADDR)entry_pt, TARGET_SIGNAL_DEFAULT, 0); } /* Open a connection to a remote debugger. NAME is the filename used for communication. */ static char dev_name[100]; static void rombug_open(args, from_tty) char *args; int from_tty; { if (args == NULL) error ("Use `target RomBug DEVICE-NAME' to use a serial port, or \n\ `target RomBug HOST-NAME:PORT-NUMBER' to use a network connection."); target_preopen(from_tty); if (rombug_is_open) unpush_target(&rombug_ops); strcpy(dev_name, args); monitor_desc = SERIAL_OPEN(dev_name); if (monitor_desc == NULL) perror_with_name(dev_name); /* if baud rate is set by 'set remotebaud' */ if (SERIAL_SETBAUDRATE (monitor_desc, sr_get_baud_rate())) { SERIAL_CLOSE (monitor_desc); perror_with_name ("RomBug"); } SERIAL_RAW(monitor_desc); if (tty_xon || tty_xoff) { struct hardware_ttystate { struct termios t;} *tty_s; tty_s =(struct hardware_ttystate *)SERIAL_GET_TTY_STATE(monitor_desc); if (tty_xon) tty_s->t.c_iflag |= IXON; if (tty_xoff) tty_s->t.c_iflag |= IXOFF; SERIAL_SET_TTY_STATE(monitor_desc, (serial_ttystate) tty_s); } rombug_is_open = 1; log_file = fopen (LOG_FILE, "w"); if (log_file == NULL) perror_with_name (LOG_FILE); push_monitor (&rombug_cmds); printf_monitor("\r"); /* CR wakes up monitor */ expect_prompt(1); push_target (&rombug_ops); if (from_tty) printf("Remote %s connected to %s\n", target_shortname, dev_name); attach_flag = 1; rombug_fetch_registers(); bufaddr = 0; buflen = 0; } /* * Close out all files and local state before this target loses control. */ static void rombug_close (quitting) int quitting; { if (rombug_is_open) { SERIAL_CLOSE(monitor_desc); monitor_desc = NULL; rombug_is_open = 0; } if (log_file) { if (ferror(log_file)) fprintf(stderr, "Error writing log file.\n"); if (fclose(log_file) != 0) fprintf(stderr, "Error closing log file.\n"); log_file = 0; } } int rombug_link(mod_name, text_reloc) char *mod_name; CORE_ADDR *text_reloc; { int i, j; unsigned long val; unsigned char b; printf_monitor("l %s \r", mod_name); expect_prompt(1); printf_monitor(".r \r"); expect(REG_DELIM, 1); for (i=0; i <= 7; i++) { val = 0; for (j = 0; j < 4; j++) { get_hex_byte(&b); val = (val << 8) + b; } } expect_prompt(1); *text_reloc = val; return 1; } /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ static void rombug_detach (from_tty) int from_tty; { if (attach_flag) { printf_monitor (GO_CMD); attach_flag = 0; } pop_target(); /* calls rombug_close to do the real work */ if (from_tty) printf ("Ending remote %s debugging\n", target_shortname); } /* * Tell the remote machine to resume. */ static void rombug_resume (pid, step, sig) int pid, step; enum target_signal sig; { if (monitor_log) fprintf (log_file, "\nIn Resume (step=%d, sig=%d)\n", step, sig); if (step) { is_trace_mode = 1; printf_monitor (STEP_CMD); /* wait for the echo. ** expect (STEP_CMD, 1); */ } else { printf_monitor (GO_CMD); /* swallow the echo. ** expect (GO_CMD, 1); */ } bufaddr = 0; buflen= 0; } /* * Wait until the remote machine stops, then return, * storing status in status just as `wait' would. */ static int rombug_wait (pid, status) int pid; struct target_waitstatus *status; { int old_timeout = timeout; struct section_offsets *offs; CORE_ADDR addr, pc; struct obj_section *obj_sec; if (monitor_log) fputs ("\nIn wait ()", log_file); status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; timeout = 0; /* Don't time out -- user program is running. */ expect_prompt(1); /* Wait for prompt, outputting extraneous text */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; timeout = old_timeout; rombug_fetch_registers(); bufaddr = 0; buflen = 0; pc = read_register(PC_REGNUM); addr = read_register(DATABASE_REG); obj_sec = find_pc_section (pc); if (obj_sec != NULL) { if (obj_sec->objfile != symfile_objfile) new_symfile_objfile(obj_sec->objfile, 1, 0); offs = ((struct section_offsets *) alloca (sizeof (struct section_offsets) + (symfile_objfile->num_sections * sizeof (offs->offsets)))); memcpy (offs, symfile_objfile->section_offsets, (sizeof (struct section_offsets) + (symfile_objfile->num_sections * sizeof (offs->offsets)))); ANOFFSET (offs, SECT_OFF_DATA) = addr; ANOFFSET (offs, SECT_OFF_BSS) = addr; objfile_relocate(symfile_objfile, offs); } return 0; } /* Return the name of register number regno in the form input and output by monitor. Currently, register_names just happens to contain exactly what monitor wants. Lets take advantage of that just as long as possible! */ static char * get_reg_name (regno) int regno; { static char buf[50]; char *p; char *b; b = buf; if (regno < 0) return (""); /* for (p = reg_names[regno]; *p; p++) *b++ = toupper(*p); *b = '\000'; */ p = (char *)reg_names[regno]; return p; /* return buf; */ } /* read the remote registers into the block regs. */ static void rombug_fetch_registers () { int regno, j, i; long val; unsigned char b; printf_monitor (GET_REG); expect("eax:", 1); expect("\n", 1); get_hex_regs(1, 0); get_hex_regs(1, 3); get_hex_regs(1, 1); get_hex_regs(1, 2); get_hex_regs(1, 6); get_hex_regs(1, 7); get_hex_regs(1, 5); get_hex_regs(1, 4); for (regno = 8; regno <= 15; regno++) { expect(REG_DELIM, 1); if (regno >= 8 && regno <= 13) { val = 0; for (j = 0; j < 2; j++) { #if TARGET_BYTE_ORDER == BIG_ENDIAN get_hex_byte(&b); val = (val << 8) + b; #else get_hex_byte(&b); val = val + (b << (j*8)); #endif } if (regno == 8) i = 10; if (regno >= 9 && regno <= 12) i = regno + 3; if (regno == 13) i = 11; supply_register (i, (char *) &val); } else if (regno == 14) { get_hex_regs(1, PC_REGNUM); } else if (regno == 15) { get_hex_regs(1, 9); } else { val = 0; supply_register(regno, (char *) &val); } } is_trace_mode = 0; expect_prompt (1); } /* Fetch register REGNO, or all registers if REGNO is -1. Returns errno value. */ static void rombug_fetch_register (regno) int regno; { int val, j; unsigned char b; if (monitor_log) { fprintf (log_file, "\nIn Fetch Register (reg=%s)\n", get_reg_name (regno)); fflush (log_file); } if (regno < 0) { rombug_fetch_registers (); } else { char *name = get_reg_name (regno); printf_monitor (GET_REG); if (regno >= 10 && regno <= 15) { expect ("\n", 1); expect ("\n", 1); expect (name, 1); expect (REG_DELIM, 1); val = 0; for (j = 0; j < 2; j++) { #if TARGET_BYTE_ORDER == BIG_ENDIAN get_hex_byte(&b); val = (val << 8) + b; #else get_hex_byte(&b); val = val + (b << (j*8)); #endif } supply_register (regno, (char *) &val); } else if (regno == 8 || regno == 9) { expect ("\n", 1); expect ("\n", 1); expect ("\n", 1); expect (name, 1); expect (REG_DELIM, 1); get_hex_regs (1, regno); } else { expect (name, 1); expect (REG_DELIM, 1); expect("\n", 1); get_hex_regs(1, 0); get_hex_regs(1, 3); get_hex_regs(1, 1); get_hex_regs(1, 2); get_hex_regs(1, 6); get_hex_regs(1, 7); get_hex_regs(1, 5); get_hex_regs(1, 4); } expect_prompt (1); } return; } /* Store the remote registers from the contents of the block REGS. */ static void rombug_store_registers () { int regno; for (regno = 0; regno <= PC_REGNUM; regno++) rombug_store_register(regno); registers_changed (); } /* Store register REGNO, or all if REGNO == 0. return errno value. */ static void rombug_store_register (regno) int regno; { char *name; if (monitor_log) fprintf (log_file, "\nIn Store_register (regno=%d)\n", regno); if (regno == -1) rombug_store_registers (); else { if (sr_get_debug()) printf ("Setting register %s to 0x%x\n", get_reg_name (regno), read_register (regno)); name = get_reg_name(regno); if (name == 0) return; printf_monitor (SET_REG, name, read_register (regno)); is_trace_mode = 0; expect_prompt (1); } } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void rombug_prepare_to_store () { /* Do nothing, since we can store individual regs */ } static void rombug_files_info () { printf ("\tAttached to %s at %d baud.\n", dev_name, sr_get_baud_rate()); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns length moved. */ static int rombug_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { int i; char buf[10]; if (monitor_log) fprintf (log_file, "\nIn Write_inferior_memory (memaddr=%x, len=%d)\n", memaddr, len); printf_monitor (MEM_SET_CMD, memaddr); for (i = 0; i < len; i++) { expect (CMD_DELIM, 1); printf_monitor ("%x \r", myaddr[i]); if (sr_get_debug()) printf ("\nSet 0x%x to 0x%x\n", memaddr + i, myaddr[i]); } expect (CMD_DELIM, 1); if (CMD_END) printf_monitor (CMD_END); is_trace_mode = 0; expect_prompt (1); return len; } /* Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns length moved. */ static int rombug_read_inferior_memory(memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int i, j; /* Number of bytes read so far. */ int count; /* Starting address of this pass. */ unsigned long startaddr; /* Number of bytes to read in this pass. */ int len_this_pass; if (monitor_log) fprintf (log_file, "\nIn Read_inferior_memory (memaddr=%x, len=%d)\n", memaddr, len); /* Note that this code works correctly if startaddr is just less than UINT_MAX (well, really CORE_ADDR_MAX if there was such a thing). That is, something like rombug_read_bytes (CORE_ADDR_MAX - 4, foo, 4) works--it never adds len To memaddr and gets 0. */ /* However, something like rombug_read_bytes (CORE_ADDR_MAX - 3, foo, 4) doesn't need to work. Detect it and give up if there's an attempt to do that. */ if (((memaddr - 1) + len) < memaddr) { errno = EIO; return 0; } if (bufaddr <= memaddr && (memaddr+len) <= (bufaddr+buflen)) { memcpy(myaddr, &readbuf[memaddr-bufaddr], len); return len; } startaddr = memaddr; count = 0; while (count < len) { len_this_pass = 16; if ((startaddr % 16) != 0) len_this_pass -= startaddr % 16; if (len_this_pass > (len - count)) len_this_pass = (len - count); if (sr_get_debug()) printf ("\nDisplay %d bytes at %x\n", len_this_pass, startaddr); printf_monitor (MEM_DIS_CMD, startaddr, 8); expect ("- ", 1); for (i = 0; i < 16; i++) { get_hex_byte (&readbuf[i]); } bufaddr = startaddr; buflen = 16; memcpy(&myaddr[count], readbuf, len_this_pass); count += len_this_pass; startaddr += len_this_pass; expect(CMD_DELIM, 1); } if (CMD_END) printf_monitor (CMD_END); is_trace_mode = 0; expect_prompt (1); return len; } /* FIXME-someday! merge these two. */ static int rombug_xfer_inferior_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { if (write) return rombug_write_inferior_memory (memaddr, myaddr, len); else return rombug_read_inferior_memory (memaddr, myaddr, len); } static void rombug_kill (args, from_tty) char *args; int from_tty; { return; /* ignore attempts to kill target system */ } /* Clean up when a program exits. The program actually lives on in the remote processor's RAM, and may be run again without a download. Don't leave it full of breakpoint instructions. */ static void rombug_mourn_inferior () { remove_breakpoints (); generic_mourn_inferior (); /* Do all the proper things now */ } #define MAX_MONITOR_BREAKPOINTS 16 extern int memory_breakpoint_size; static CORE_ADDR breakaddr[MAX_MONITOR_BREAKPOINTS] = {0}; static int rombug_insert_breakpoint (addr, shadow) CORE_ADDR addr; char *shadow; { int i; if (monitor_log) fprintf (log_file, "\nIn Insert_breakpoint (addr=%x)\n", addr); for (i = 0; i <= MAX_MONITOR_BREAKPOINTS; i++) if (breakaddr[i] == 0) { breakaddr[i] = addr; if (sr_get_debug()) printf ("Breakpoint at %x\n", addr); rombug_read_inferior_memory(addr, shadow, memory_breakpoint_size); printf_monitor(SET_BREAK_CMD, addr); is_trace_mode = 0; expect_prompt(1); return 0; } fprintf(stderr, "Too many breakpoints (> 16) for monitor\n"); return 1; } /* * _remove_breakpoint -- Tell the monitor to remove a breakpoint */ static int rombug_remove_breakpoint (addr, shadow) CORE_ADDR addr; char *shadow; { int i; if (monitor_log) fprintf (log_file, "\nIn Remove_breakpoint (addr=%x)\n", addr); for (i = 0; i < MAX_MONITOR_BREAKPOINTS; i++) if (breakaddr[i] == addr) { breakaddr[i] = 0; printf_monitor(CLR_BREAK_CMD, addr); is_trace_mode = 0; expect_prompt(1); return 0; } fprintf(stderr, "Can't find breakpoint associated with 0x%x\n", addr); return 1; } /* Load a file. This is usually an srecord, which is ascii. No protocol, just sent line by line. */ #define DOWNLOAD_LINE_SIZE 100 static void rombug_load (arg) char *arg; { /* this part comment out for os9* */ #if 0 FILE *download; char buf[DOWNLOAD_LINE_SIZE]; int i, bytes_read; if (sr_get_debug()) printf ("Loading %s to monitor\n", arg); download = fopen (arg, "r"); if (download == NULL) { error (sprintf (buf, "%s Does not exist", arg)); return; } printf_monitor (LOAD_CMD); /* expect ("Waiting for S-records from host... ", 1); */ while (!feof (download)) { bytes_read = fread (buf, sizeof (char), DOWNLOAD_LINE_SIZE, download); if (hashmark) { putchar ('.'); fflush (stdout); } if (SERIAL_WRITE(monitor_desc, buf, bytes_read)) { fprintf(stderr, "SERIAL_WRITE failed: (while downloading) %s\n", safe_strerror(errno)); break; } i = 0; while (i++ <=200000) {} ; /* Ugly HACK, probably needs flow control */ if (bytes_read < DOWNLOAD_LINE_SIZE) { if (!feof (download)) error ("Only read %d bytes\n", bytes_read); break; } } if (hashmark) { putchar ('\n'); } if (!feof (download)) error ("Never got EOF while downloading"); fclose (download); #endif 0 } /* Put a command string, in args, out to MONITOR. Output from MONITOR is placed on the users terminal until the prompt is seen. */ static void rombug_command (args, fromtty) char *args; int fromtty; { if (monitor_desc == NULL) error("monitor target not open."); if (monitor_log) fprintf (log_file, "\nIn command (args=%s)\n", args); if (!args) error("Missing command."); printf_monitor("%s\r", args); expect_prompt(0); } #if 0 /* Connect the user directly to MONITOR. This command acts just like the 'cu' or 'tip' command. Use ~. or ~^D to break out. */ static struct ttystate ttystate; static void cleanup_tty() { printf("\r\n[Exiting connect mode]\r\n"); /*SERIAL_RESTORE(0, &ttystate);*/ } static void connect_command (args, fromtty) char *args; int fromtty; { fd_set readfds; int numfds; int c; char cur_esc = 0; dont_repeat(); if (monitor_desc == NULL) error("monitor target not open."); if (args) fprintf("This command takes no args. They have been ignored.\n"); printf("[Entering connect mode. Use ~. or ~^D to escape]\n"); serial_raw(0, &ttystate); make_cleanup(cleanup_tty, 0); FD_ZERO(&readfds); while (1) { do { FD_SET(0, &readfds); FD_SET(monitor_desc, &readfds); numfds = select(sizeof(readfds)*8, &readfds, 0, 0, 0); } while (numfds == 0); if (numfds < 0) perror_with_name("select"); if (FD_ISSET(0, &readfds)) { /* tty input, send to monitor */ c = getchar(); if (c < 0) perror_with_name("connect"); printf_monitor("%c", c); switch (cur_esc) { case 0: if (c == '\r') cur_esc = c; break; case '\r': if (c == '~') cur_esc = c; else cur_esc = 0; break; case '~': if (c == '.' || c == '\004') return; else cur_esc = 0; } } if (FD_ISSET(monitor_desc, &readfds)) { while (1) { c = readchar(0); if (c < 0) break; putchar(c); } fflush(stdout); } } } #endif /* * Define the monitor command strings. Since these are passed directly * through to a printf style function, we need can include formatting * strings. We also need a CR or LF on the end. */ struct monitor_ops rombug_cmds = { "g \r", /* execute or usually GO command */ "g \r", /* continue command */ "t \r", /* single step */ "b %x\r", /* set a breakpoint */ "k %x\r", /* clear a breakpoint */ "c %x\r", /* set memory to a value */ "d %x %d\r", /* display memory */ "$%08X", /* prompt memory commands use */ ".%s %x\r", /* set a register */ ":", /* delimiter between registers */ ". \r", /* read a register */ "mf \r", /* download command */ "RomBug: ", /* monitor command prompt */ ": ", /* end-of-command delimitor */ ".\r" /* optional command terminator */ }; struct target_ops rombug_ops = { "rombug", "Microware's ROMBUG debug monitor", "Use a remote computer running the ROMBUG debug monitor.\n\ Specify the serial device it is connected to (e.g. /dev/ttya).", rombug_open, rombug_close, 0, rombug_detach, rombug_resume, rombug_wait, rombug_fetch_register, rombug_store_register, rombug_prepare_to_store, rombug_xfer_inferior_memory, rombug_files_info, rombug_insert_breakpoint, rombug_remove_breakpoint, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ rombug_kill, rombug_load, /* load */ rombug_link, /* lookup_symbol */ rombug_create_inferior, rombug_mourn_inferior, 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* has execution */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_remote_os9k () { add_target (&rombug_ops); add_show_from_set ( add_set_cmd ("hash", no_class, var_boolean, (char *)&hashmark, "Set display of activity while downloading a file.\nWhen enabled, a period \'.\' is displayed.", &setlist), &showlist); add_show_from_set ( add_set_cmd ("timeout", no_class, var_zinteger, (char *) &timeout, "Set timeout in seconds for remote MIPS serial I/O.", &setlist), &showlist); add_show_from_set ( add_set_cmd ("remotelog", no_class, var_zinteger, (char *) &monitor_log, "Set monitor activity log on(=1) or off(=0).", &setlist), &showlist); add_show_from_set ( add_set_cmd ("remotexon", no_class, var_zinteger, (char *) &tty_xon, "Set remote tty line XON control", &setlist), &showlist); add_show_from_set ( add_set_cmd ("remotexoff", no_class, var_zinteger, (char *) &tty_xoff, "Set remote tty line XOFF control", &setlist), &showlist); add_com ("rombug ", class_obscure, rombug_command, "Send a command to the debug monitor."); #if 0 add_com ("connect", class_obscure, connect_command, "Connect the terminal directly up to a serial based command monitor.\nUse ~. or ~^D to break out."); #endif } gdb-4.13/gdb/gdb.info-4 666 34562 1752 141535 5623251656 13126 0ustar fnfcygnusThis is Info file ./gdb.info, produced by Makeinfo-1.52 from the input file gdb.texinfo. START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY This file documents the GNU debugger GDB. This is Edition 4.12, January 1994, of `Debugging with GDB: the GNU Source-Level Debugger' for GDB Version 4.13. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions.  File: gdb.info, Node: Print Settings, Next: Value History, Prev: Auto Display, Up: Data Print settings ============== GDB provides the following ways to control how arrays, structures, and symbols are printed. These settings are useful for debugging programs in any language: `set print address' `set print address on' GDB prints memory addresses showing the location of stack traces, structure values, pointer values, breakpoints, and so forth, even when it also displays the contents of those addresses. The default is `on'. For example, this is what a stack frame display looks like, with `set print address on': (gdb) f #0 set_quotes (lq=0x34c78 "<<", rq=0x34c88 ">>") at input.c:530 530 if (lquote != def_lquote) `set print address off' Do not print addresses when displaying their contents. For example, this is the same stack frame displayed with `set print address off': (gdb) set print addr off (gdb) f #0 set_quotes (lq="<<", rq=">>") at input.c:530 530 if (lquote != def_lquote) You can use `set print address off' to eliminate all machine dependent displays from the GDB interface. For example, with `print address off', you should get the same text for backtraces on all machines--whether or not they involve pointer arguments. `show print address' Show whether or not addresses are to be printed. When GDB prints a symbolic address, it normally prints the closest earlier symbol plus an offset. If that symbol does not uniquely identify the address (for example, it is a name whose scope is a single source file), you may need to disambiguate. One way to do this is with `info line', for example `info line *0x4537'. Alternately, you can set GDB to print the source file and line number when it prints a symbolic address: `set print symbol-filename on' Tell GDB to print the source file name and line number of a symbol in the symbolic form of an address. `set print symbol-filename off' Do not print source file name and line number of a symbol. This is the default. `show print symbol-filename' Show whether or not GDB will print the source file name and line number of a symbol in the symbolic form of an address. Another situation where it is helpful to show symbol filenames and line numbers is when disassembling code; GDB shows you the line number and source file that corresponds to each instruction. Also, you may wish to see the symbolic form only if the address being printed is reasonably close to the closest earlier symbol: `set print max-symbolic-offset MAX-OFFSET' Tell GDB to only display the symbolic form of an address if the offset between the closest earlier symbol and the address is less than MAX-OFFSET. The default is 0, which means to always print the symbolic form of an address, if any symbol precedes it. `show print max-symbolic-offset' Ask how large the maximum offset is that GDB prints in a symbolic address. If you have a pointer and you are not sure where it points, try `set print symbol-filename on'. Then you can determine the name and source file location of the variable where it points, using `p/a POINTER'. This interprets the address in symbolic form. For example, here GDB shows that a variable `ptt' points at another variable `t', defined in `hi2.c': (gdb) set print symbol-filename on (gdb) p/a ptt $4 = 0xe008 *Warning:* For pointers that point to a local variable, `p/a' does not show the symbol name and filename of the referent, even with the appropriate `set print' options turned on. Other settings control how different kinds of objects are printed: `set print array' `set print array on' Pretty-print arrays. This format is more convenient to read, but uses more space. The default is off. `set print array off' Return to compressed format for arrays. `show print array' Show whether compressed or pretty format is selected for displaying arrays. `set print elements NUMBER-OF-ELEMENTS' If GDB is printing a large array, it stops printing after it has printed the number of elements set by the `set print elements' command. This limit also applies to the display of strings. Setting the number of elements to zero means that the printing is unlimited. `show print elements' Display the number of elements of a large array that GDB prints before losing patience. `set print pretty on' Cause GDB to print structures in an indented format with one member per line, like this: $1 = { next = 0x0, flags = { sweet = 1, sour = 1 }, meat = 0x54 "Pork" } `set print pretty off' Cause GDB to print structures in a compact format, like this: $1 = {next = 0x0, flags = {sweet = 1, sour = 1}, \ meat = 0x54 "Pork"} This is the default format. `show print pretty' Show which format GDB is using to print structures. `set print sevenbit-strings on' Print using only seven-bit characters; if this option is set, GDB displays any eight-bit characters (in strings or character values) using the notation `\'NNN. This setting is best if you are working in English (ASCII) and you use the high-order bit of characters as a marker or "meta" bit. `set print sevenbit-strings off' Print full eight-bit characters. This allows the use of more international character sets, and is the default. `show print sevenbit-strings' Show whether or not GDB is printing only seven-bit characters. `set print union on' Tell GDB to print unions which are contained in structures. This is the default setting. `set print union off' Tell GDB not to print unions which are contained in structures. `show print union' Ask GDB whether or not it will print unions which are contained in structures. For example, given the declarations typedef enum {Tree, Bug} Species; typedef enum {Big_tree, Acorn, Seedling} Tree_forms; typedef enum {Caterpillar, Cocoon, Butterfly} Bug_forms; struct thing { Species it; union { Tree_forms tree; Bug_forms bug; } form; }; struct thing foo = {Tree, {Acorn}}; with `set print union on' in effect `p foo' would print $1 = {it = Tree, form = {tree = Acorn, bug = Cocoon}} and with `set print union off' in effect it would print $1 = {it = Tree, form = {...}} These settings are of interest when debugging C++ programs: `set print demangle' `set print demangle on' Print C++ names in their source form rather than in the encoded ("mangled") form passed to the assembler and linker for type-safe linkage. The default is `on'. `show print demangle' Show whether C++ names are printed in mangled or demangled form. `set print asm-demangle' `set print asm-demangle on' Print C++ names in their source form rather than their mangled form, even in assembler code printouts such as instruction disassemblies. The default is off. `show print asm-demangle' Show whether C++ names in assembly listings are printed in mangled or demangled form. `set demangle-style STYLE' Choose among several encoding schemes used by different compilers to represent C++ names. The choices for STYLE are currently: `auto' Allow GDB to choose a decoding style by inspecting your program. `gnu' Decode based on the GNU C++ compiler (`g++') encoding algorithm. `lucid' Decode based on the Lucid C++ compiler (`lcc') encoding algorithm. `arm' Decode using the algorithm in the `C++ Annotated Reference Manual'. *Warning:* this setting alone is not sufficient to allow debugging `cfront'-generated executables. GDB would require further enhancement to permit that. `show demangle-style' Display the encoding style currently in use for decoding C++ symbols. `set print object' `set print object on' When displaying a pointer to an object, identify the *actual* (derived) type of the object rather than the *declared* type, using the virtual function table. `set print object off' Display only the declared type of objects, without reference to the virtual function table. This is the default setting. `show print object' Show whether actual, or declared, object types are displayed. `set print vtbl' `set print vtbl on' Pretty print C++ virtual function tables. The default is off. `set print vtbl off' Do not pretty print C++ virtual function tables. `show print vtbl' Show whether C++ virtual function tables are pretty printed, or not.  File: gdb.info, Node: Value History, Next: Convenience Vars, Prev: Print Settings, Up: Data Value history ============= Values printed by the `print' command are saved in the GDB "value history" so that you can refer to them in other expressions. Values are kept until the symbol table is re-read or discarded (for example with the `file' or `symbol-file' commands). When the symbol table changes, the value history is discarded, since the values may contain pointers back to the types defined in the symbol table. The values printed are given "history numbers" by which you can refer to them. These are successive integers starting with one. `print' shows you the history number assigned to a value by printing `$NUM = ' before the value; here NUM is the history number. To refer to any previous value, use `$' followed by the value's history number. The way `print' labels its output is designed to remind you of this. Just `$' refers to the most recent value in the history, and `$$' refers to the value before that. `$$N' refers to the Nth value from the end; `$$2' is the value just prior to `$$', `$$1' is equivalent to `$$', and `$$0' is equivalent to `$'. For example, suppose you have just printed a pointer to a structure and want to see the contents of the structure. It suffices to type p *$ If you have a chain of structures where the component `next' points to the next one, you can print the contents of the next one with this: p *$.next You can print successive links in the chain by repeating this command--which you can do by just typing RET. Note that the history records values, not expressions. If the value of `x' is 4 and you type these commands: print x set x=5 then the value recorded in the value history by the `print' command remains 4 even though the value of `x' has changed. `show values' Print the last ten values in the value history, with their item numbers. This is like `p $$9' repeated ten times, except that `show values' does not change the history. `show values N' Print ten history values centered on history item number N. `show values +' Print ten history values just after the values last printed. If no more values are available, produces no display. Pressing RET to repeat `show values N' has exactly the same effect as `show values +'.  File: gdb.info, Node: Convenience Vars, Next: Registers, Prev: Value History, Up: Data Convenience variables ===================== GDB provides "convenience variables" that you can use within GDB to hold on to a value and refer to it later. These variables exist entirely within GDB; they are not part of your program, and setting a convenience variable has no direct effect on further execution of your program. That is why you can use them freely. Convenience variables are prefixed with `$'. Any name preceded by `$' can be used for a convenience variable, unless it is one of the predefined machine-specific register names (*note Registers::.). (Value history references, in contrast, are *numbers* preceded by `$'. *Note Value history: Value History.) You can save a value in a convenience variable with an assignment expression, just as you would set a variable in your program. For example: set $foo = *object_ptr would save in `$foo' the value contained in the object pointed to by `object_ptr'. Using a convenience variable for the first time creates it, but its value is `void' until you assign a new value. You can alter the value with another assignment at any time. Convenience variables have no fixed types. You can assign a convenience variable any type of value, including structures and arrays, even if that variable already has a value of a different type. The convenience variable, when used as an expression, has the type of its current value. `show convenience' Print a list of convenience variables used so far, and their values. Abbreviated `show con'. One of the ways to use a convenience variable is as a counter to be incremented or a pointer to be advanced. For example, to print a field from successive elements of an array of structures: set $i = 0 print bar[$i++]->contents ... repeat that command by typing RET. Some convenience variables are created automatically by GDB and given values likely to be useful. `$_' The variable `$_' is automatically set by the `x' command to the last address examined (*note Examining memory: Memory.). Other commands which provide a default address for `x' to examine also set `$_' to that address; these commands include `info line' and `info breakpoint'. The type of `$_' is `void *' except when set by the `x' command, in which case it is a pointer to the type of `$__'. `$__' The variable `$__' is automatically set by the `x' command to the value found in the last address examined. Its type is chosen to match the format in which the data was printed.  File: gdb.info, Node: Registers, Next: Floating Point Hardware, Prev: Convenience Vars, Up: Data Registers ========= You can refer to machine register contents, in expressions, as variables with names starting with `$'. The names of registers are different for each machine; use `info registers' to see the names used on your machine. `info registers' Print the names and values of all registers except floating-point registers (in the selected stack frame). `info all-registers' Print the names and values of all registers, including floating-point registers. `info registers REGNAME ...' Print the relativized value of each specified register REGNAME. rEGNAME may be any register name valid on the machine you are using, with or without the initial `$'. GDB has four "standard" register names that are available (in expressions) on most machines--whenever they do not conflict with an architecture's canonical mnemonics for registers. The register names `$pc' and `$sp' are used for the program counter register and the stack pointer. `$fp' is used for a register that contains a pointer to the current stack frame, and `$ps' is used for a register that contains the processor status. For example, you could print the program counter in hex with p/x $pc or print the instruction to be executed next with x/i $pc or add four to the stack pointer(1) with set $sp += 4 Whenever possible, these four standard register names are available on your machine even though the machine has different canonical mnemonics, so long as there is no conflict. The `info registers' command shows the canonical names. For example, on the SPARC, `info registers' displays the processor status register as `$psr' but you can also refer to it as `$ps'. GDB always considers the contents of an ordinary register as an integer when the register is examined in this way. Some machines have special registers which can hold nothing but floating point; these registers are considered to have floating point values. There is no way to refer to the contents of an ordinary register as floating point value (although you can *print* it as a floating point value with `print/f $REGNAME'). Some registers have distinct "raw" and "virtual" data formats. This means that the data format in which the register contents are saved by the operating system is not the same one that your program normally sees. For example, the registers of the 68881 floating point coprocessor are always saved in "extended" (raw) format, but all C programs expect to work with "double" (virtual) format. In such cases, GDB normally works with the virtual format only (the format that makes sense for your program), but the `info registers' command prints the data in both formats. Normally, register values are relative to the selected stack frame (*note Selecting a frame: Selection.). This means that you get the value that the register would contain if all stack frames farther in were exited and their saved registers restored. In order to see the true contents of hardware registers, you must select the innermost frame (with `frame 0'). However, GDB must deduce where registers are saved, from the machine code generated by your compiler. If some registers are not saved, or if GDB is unable to locate the saved registers, the selected stack frame makes no difference. `set rstack_high_address ADDRESS' On AMD 29000 family processors, registers are saved in a separate "register stack". There is no way for GDB to determine the extent of this stack. Normally, GDB just assumes that the stack is "large enough". This may result in GDB referencing memory locations that do not exist. If necessary, you can get around this problem by specifying the ending address of the register stack with the `set rstack_high_address' command. The argument should be an address, which you probably want to precede with `0x' to specify in hexadecimal. `show rstack_high_address' Display the current limit of the register stack, on AMD 29000 family processors. ---------- Footnotes ---------- (1) This is a way of removing one word from the stack, on machines where stacks grow downward in memory (most machines, nowadays). This assumes that the innermost stack frame is selected; setting `$sp' is not allowed when other stack frames are selected. To pop entire frames off the stack, regardless of machine architecture, use `return'; *note Returning from a function: Returning..  File: gdb.info, Node: Floating Point Hardware, Prev: Registers, Up: Data Floating point hardware ======================= Depending on the host machine architecture, GDB may be able to give you more information about the status of the floating point hardware. `info float' Display hardware-dependent information about the floating point unit. The exact contents and layout vary depending on the floating point chip; on some platforms, `info float' is not available at all.  File: gdb.info, Node: Languages, Next: Symbols, Prev: Data, Up: Top Using GDB with Different Languages ********************************** Although programming languages generally have common aspects, they are rarely expressed in the same manner. For instance, in ANSI C, dereferencing a pointer `p' is accomplished by `*p', but in Modula-2, it is accomplished by `p^'. Values can also be represented (and displayed) differently. Hex numbers in C are written like `0x1ae', while in Modula-2 they appear as `1AEH'. Language-specific information is built into GDB for some languages, allowing you to express operations like the above in your program's native language, and allowing GDB to output values in a manner consistent with the syntax of your program's native language. The language you use to build expressions, called the "working language", can be selected manually, or GDB can set it automatically. * Menu: * Setting:: Switching between source languages * Show:: Displaying the language * Checks:: Type and range checks * Support:: Supported languages  File: gdb.info, Node: Setting, Next: Show, Up: Languages Switching between source languages ================================== There are two ways to control the working language--either have GDB set it automatically, or select it manually yourself. You can use the `set language' command for either purpose. On startup, GDB defaults to setting the language automatically. * Menu: * Manually:: Setting the working language manually * Automatically:: Having GDB infer the source language  File: gdb.info, Node: Manually, Next: Automatically, Up: Setting Setting the working language ---------------------------- If you allow GDB to set the language automatically, expressions are interpreted the same way in your debugging session and your program. If you wish, you may set the language manually. To do this, issue the command `set language LANG', where LANG is the name of a language, such as `c' or `modula-2'. For a list of the supported languages, type `set language'. Setting the language manually prevents GDB from updating the working language automatically. This can lead to confusion if you try to debug a program when the working language is not the same as the source language, when an expression is acceptable to both languages--but means different things. For instance, if the current source file were written in C, and GDB was parsing Modula-2, a command such as: print a = b + c might not have the effect you intended. In C, this means to add `b' and `c' and place the result in `a'. The result printed would be the value of `a'. In Modula-2, this means to compare `a' to the result of `b+c', yielding a `BOOLEAN' value.  File: gdb.info, Node: Automatically, Prev: Manually, Up: Setting Having GDB infer the source language ------------------------------------ To have GDB set the working language automatically, use `set language local' or `set language auto'. GDB then infers the language that a program was written in by looking at the name of its source files, and examining their extensions: `*.mod' Modula-2 source file `*.c' C source file `*.C' `*.cc' C++ source file This information is recorded for each function or procedure in a source file. When your program stops in a frame (usually by encountering a breakpoint), GDB sets the working language to the language recorded for the function in that frame. If the language for a frame is unknown (that is, if the function or block corresponding to the frame was defined in a source file that does not have a recognized extension), the current working language is not changed, and GDB issues a warning. This may not seem necessary for most programs, which are written entirely in one source language. However, program modules and libraries written in one source language can be used by a main program written in a different source language. Using `set language auto' in this case frees you from having to set the working language manually.  File: gdb.info, Node: Show, Next: Checks, Prev: Setting, Up: Languages Displaying the language ======================= The following commands help you find out which language is the working language, and also what language source files were written in. `show language' Display the current working language. This is the language you can use with commands such as `print' to build and compute expressions that may involve variables in your program. `info frame' Among the other information listed here (*note Information about a frame: Frame Info.) is the source language for this frame. This language becomes the working language if you use an identifier from this frame. `info source' Among the other information listed here (*note Examining the Symbol Table: Symbols.) is the source language of this source file.  File: gdb.info, Node: Checks, Next: Support, Prev: Show, Up: Languages Type and range checking ======================= *Warning:* In this release, the GDB commands for type and range checking are included, but they do not yet have any effect. This section documents the intended facilities. Some languages are designed to guard you against making seemingly common errors through a series of compile- and run-time checks. These include checking the type of arguments to functions and operators, and making sure mathematical overflows are caught at run time. Checks such as these help to ensure a program's correctness once it has been compiled by eliminating type mismatches, and providing active checks for range errors when your program is running. GDB can check for conditions like the above if you wish. Although GDB does not check the statements in your program, it can check expressions entered directly into GDB for evaluation via the `print' command, for example. As with the working language, GDB can also decide whether or not to check automatically based on your program's source language. *Note Supported languages: Support, for the default settings of supported languages. * Menu: * Type Checking:: An overview of type checking * Range Checking:: An overview of range checking  File: gdb.info, Node: Type Checking, Next: Range Checking, Up: Checks An overview of type checking ---------------------------- Some languages, such as Modula-2, are strongly typed, meaning that the arguments to operators and functions have to be of the correct type, otherwise an error occurs. These checks prevent type mismatch errors from ever causing any run-time problems. For example, 1 + 2 => 3 but error--> 1 + 2.3 The second example fails because the `CARDINAL' 1 is not type-compatible with the `REAL' 2.3. For expressions you use in GDB commands, you can tell the GDB type checker to skip checking; to treat any mismatches as errors and abandon the expression; or only issue warnings when type mismatches occur, but evaluate the expression anyway. When you choose the last of these, GDB evaluates expressions like the second example above, but also issues a warning. Even though you may turn type checking off, other type-based reasons may prevent GDB from evaluating an expression. For instance, GDB does not know how to add an `int' and a `struct foo'. These particular type errors have nothing to do with the language in use, and usually arise from expressions, such as the one described above, which make little sense to evaluate anyway. Each language defines to what degree it is strict about type. For instance, both Modula-2 and C require the arguments to arithmetical operators to be numbers. In C, enumerated types and pointers can be represented as numbers, so that they are valid arguments to mathematical operators. *Note Supported languages: Support, for further details on specific languages. GDB provides some additional commands for controlling the type checker: `set check type auto' Set type checking on or off based on the current working language. *Note Supported languages: Support, for the default settings for each language. `set check type on' `set check type off' Set type checking on or off, overriding the default setting for the current working language. Issue a warning if the setting does not match the language default. If any type mismatches occur in evaluating an expression while typechecking is on, GDB prints a message and aborts evaluation of the expression. `set check type warn' Cause the type checker to issue warnings, but to always attempt to evaluate the expression. Evaluating the expression may still be impossible for other reasons. For example, GDB cannot add numbers and structures. `show type' Show the current setting of the type checker, and whether or not GDB is setting it automatically.  File: gdb.info, Node: Range Checking, Prev: Type Checking, Up: Checks An overview of range checking ----------------------------- In some languages (such as Modula-2), it is an error to exceed the bounds of a type; this is enforced with run-time checks. Such range checking is meant to ensure program correctness by making sure computations do not overflow, or indices on an array element access do not exceed the bounds of the array. For expressions you use in GDB commands, you can tell GDB to treat range errors in one of three ways: ignore them, always treat them as errors and abandon the expression, or issue warnings but evaluate the expression anyway. A range error can result from numerical overflow, from exceeding an array index bound, or when you type a constant that is not a member of any type. Some languages, however, do not treat overflows as an error. In many implementations of C, mathematical overflow causes the result to "wrap around" to lower values--for example, if M is the largest integer value, and S is the smallest, then M + 1 => S This, too, is specific to individual languages, and in some cases specific to individual compilers or machines. *Note Supported languages: Support, for further details on specific languages. GDB provides some additional commands for controlling the range checker: `set check range auto' Set range checking on or off based on the current working language. *Note Supported languages: Support, for the default settings for each language. `set check range on' `set check range off' Set range checking on or off, overriding the default setting for the current working language. A warning is issued if the setting does not match the language default. If a range error occurs, then a message is printed and evaluation of the expression is aborted. `set check range warn' Output messages when the GDB range checker detects a range error, but attempt to evaluate the expression anyway. Evaluating the expression may still be impossible for other reasons, such as accessing memory that the process does not own (a typical example from many Unix systems). `show range' Show the current setting of the range checker, and whether or not it is being set automatically by GDB.  File: gdb.info, Node: Support, Prev: Checks, Up: Languages Supported languages =================== GDB 4 supports C, C++, and Modula-2. Some GDB features may be used in expressions regardless of the language you use: the GDB `@' and `::' operators, and the `{type}addr' construct (*note Expressions: Expressions.) can be used with the constructs of any supported language. The following sections detail to what degree each source language is supported by GDB. These sections are not meant to be language tutorials or references, but serve only as a reference guide to what the GDB expression parser accepts, and what input and output formats should look like for different languages. There are many good books written on each of these languages; please look to these for a language reference or tutorial. * Menu: * C:: C and C++ * Modula-2:: Modula-2  File: gdb.info, Node: C, Next: Modula-2, Up: Support C and C++ --------- Since C and C++ are so closely related, many features of GDB apply to both languages. Whenever this is the case, we discuss both languages together. The C++ debugging facilities are jointly implemented by the GNU C++ compiler and GDB. Therefore, to debug your C++ code effectively, you must compile your C++ programs with the GNU C++ compiler, `g++'. For best results when debugging C++ programs, use the stabs debugging format. You can select that format explicitly with the `g++' command-line options `-gstabs' or `-gstabs+'. See *Note Options for Debugging Your Program or GNU CC: (gcc.info)Debugging Options, for more information. * Menu: * C Operators:: C and C++ operators * C Constants:: C and C++ constants * Cplus expressions:: C++ expressions * C Defaults:: Default settings for C and C++ * C Checks:: C and C++ type and range checks * Debugging C:: GDB and C * Debugging C plus plus:: Special features for C++  File: gdb.info, Node: C Operators, Next: C Constants, Up: C C and C++ operators ------------------- Operators must be defined on values of specific types. For instance, `+' is defined on numbers, but not on structures. Operators are often defined on groups of types. For the purposes of C and C++, the following definitions hold: * *Integral types* include `int' with any of its storage-class specifiers; `char'; and `enum'. * *Floating-point types* include `float' and `double'. * *Pointer types* include all types defined as `(TYPE *)'. * *Scalar types* include all of the above. The following operators are supported. They are listed here in order of increasing precedence: `,' The comma or sequencing operator. Expressions in a comma-separated list are evaluated from left to right, with the result of the entire expression being the last expression evaluated. `=' Assignment. The value of an assignment expression is the value assigned. Defined on scalar types. `OP=' Used in an expression of the form `A OP= B', and translated to `A = A OP B'. `OP=' and `=' have the same precendence. OP is any one of the operators `|', `^', `&', `<<', `>>', `+', `-', `*', `/', `%'. `?:' The ternary operator. `A ? B : C' can be thought of as: if A then B else C. A should be of an integral type. `||' Logical OR. Defined on integral types. `&&' Logical AND. Defined on integral types. `|' Bitwise OR. Defined on integral types. `^' Bitwise exclusive-OR. Defined on integral types. `&' Bitwise AND. Defined on integral types. `==, !=' Equality and inequality. Defined on scalar types. The value of these expressions is 0 for false and non-zero for true. `<, >, <=, >=' Less than, greater than, less than or equal, greater than or equal. Defined on scalar types. The value of these expressions is 0 for false and non-zero for true. `<<, >>' left shift, and right shift. Defined on integral types. `@' The GDB "artificial array" operator (*note Expressions: Expressions.). `+, -' Addition and subtraction. Defined on integral types, floating-point types and pointer types. `*, /, %' Multiplication, division, and modulus. Multiplication and division are defined on integral and floating-point types. Modulus is defined on integral types. `++, --' Increment and decrement. When appearing before a variable, the operation is performed before the variable is used in an expression; when appearing after it, the variable's value is used before the operation takes place. `*' Pointer dereferencing. Defined on pointer types. Same precedence as `++'. `&' Address operator. Defined on variables. Same precedence as `++'. For debugging C++, GDB implements a use of `&' beyond what is allowed in the C++ language itself: you can use `&(&REF)' (or, if you prefer, simply `&&REF') to examine the address where a C++ reference variable (declared with `&REF') is stored. `-' Negative. Defined on integral and floating-point types. Same precedence as `++'. `!' Logical negation. Defined on integral types. Same precedence as `++'. `~' Bitwise complement operator. Defined on integral types. Same precedence as `++'. `., ->' Structure member, and pointer-to-structure member. For convenience, GDB regards the two as equivalent, choosing whether to dereference a pointer based on the stored type information. Defined on `struct' and `union' data. `[]' Array indexing. `A[I]' is defined as `*(A+I)'. Same precedence as `->'. `()' Function parameter list. Same precedence as `->'. `::' C++ scope resolution operator. Defined on `struct', `union', and `class' types. `::' Doubled colons also represent the GDB scope operator (*note Expressions: Expressions.). Same precedence as `::', above.  File: gdb.info, Node: C Constants, Next: Cplus expressions, Prev: C Operators, Up: C C and C++ constants ------------------- GDB allows you to express the constants of C and C++ in the following ways: * Integer constants are a sequence of digits. Octal constants are specified by a leading `0' (ie. zero), and hexadecimal constants by a leading `0x' or `0X'. Constants may also end with a letter `l', specifying that the constant should be treated as a `long' value. * Floating point constants are a sequence of digits, followed by a decimal point, followed by a sequence of digits, and optionally followed by an exponent. An exponent is of the form: `e[[+]|-]NNN', where NNN is another sequence of digits. The `+' is optional for positive exponents. * Enumerated constants consist of enumerated identifiers, or their integral equivalents. * Character constants are a single character surrounded by single quotes (`''), or a number--the ordinal value of the corresponding character (usually its ASCII value). Within quotes, the single character may be represented by a letter or by "escape sequences", which are of the form `\NNN', where NNN is the octal representation of the character's ordinal value; or of the form `\X', where `X' is a predefined special character--for example, `\n' for newline. * String constants are a sequence of character constants surrounded by double quotes (`"'). * Pointer constants are an integral value. You can also write pointers to constants using the C operator `&'. * Array constants are comma-separated lists surrounded by braces `{' and `}'; for example, `{1,2,3}' is a three-element array of integers, `{{1,2}, {3,4}, {5,6}}' is a three-by-two array, and `{&"hi", &"there", &"fred"}' is a three-element array of pointers.  File: gdb.info, Node: Cplus expressions, Next: C Defaults, Prev: C Constants, Up: C C++ expressions --------------- GDB expression handling has a number of extensions to interpret a significant subset of C++ expressions. *Warning:* GDB can only debug C++ code if you compile with the GNU C++ compiler. Moreover, C++ debugging depends on the use of additional debugging information in the symbol table, and thus requires special support. GDB has this support *only* with the stabs debug format. In particular, if your compiler generates a.out, MIPS ECOFF, RS/6000 XCOFF, or ELF with stabs extensions to the symbol table, these facilities are all available. (With GNU CC, you can use the `-gstabs' option to request stabs debugging extensions explicitly.) Where the object code format is standard COFF or DWARF in ELF, on the other hand, most of the C++ support in GDB does *not* work. 1. Member function calls are allowed; you can use expressions like count = aml->GetOriginal(x, y) 2. While a member function is active (in the selected stack frame), your expressions have the same namespace available as the member function; that is, GDB allows implicit references to the class instance pointer `this' following the same rules as C++. 3. You can call overloaded functions; GDB resolves the function call to the right definition, with one restriction--you must use arguments of the type required by the function that you want to call. GDB does not perform conversions requiring constructors or user-defined type operators. 4. GDB understands variables declared as C++ references; you can use them in expressions just as you do in C++ source--they are automatically dereferenced. In the parameter list shown when GDB displays a frame, the values of reference variables are not displayed (unlike other variables); this avoids clutter, since references are often used for large structures. The *address* of a reference variable is always shown, unless you have specified `set print address off'. 5. GDB supports the C++ name resolution operator `::'--your expressions can use it just as expressions in your program do. Since one scope may be defined in another, you can use `::' repeatedly if necessary, for example in an expression like `SCOPE1::SCOPE2::NAME'. GDB also allows resolving name scope by reference to source files, in both C and C++ debugging (*note Program variables: Variables.).  File: gdb.info, Node: C Defaults, Next: C Checks, Prev: Cplus expressions, Up: C C and C++ defaults ------------------ If you allow GDB to set type and range checking automatically, they both default to `off' whenever the working language changes to C or C++. This happens regardless of whether you, or GDB, selected the working language. If you allow GDB to set the language automatically, it sets the working language to C or C++ on entering code compiled from a source file whose name ends with `.c', `.C', or `.cc'. *Note Having GDB infer the source language: Automatically, for further details.  File: gdb.info, Node: C Checks, Next: Debugging C, Prev: C Defaults, Up: C C and C++ type and range checks ------------------------------- By default, when GDB parses C or C++ expressions, type checking is not used. However, if you turn type checking on, GDB considers two variables type equivalent if: * The two variables are structured and have the same structure, union, or enumerated tag. * Two two variables have the same type name, or types that have been declared equivalent through `typedef'. Range checking, if turned on, is done on mathematical operations. Array indices are not checked, since they are often used to index a pointer that is not itself an array.  File: gdb.info, Node: Debugging C, Next: Debugging C plus plus, Prev: C Checks, Up: C GDB and C --------- The `set print union' and `show print union' commands apply to the `union' type. When set to `on', any `union' that is inside a `struct' or `class' is also printed. Otherwise, it appears as `{...}'. The `@' operator aids in the debugging of dynamic arrays, formed with pointers and a memory allocation function. *Note Expressions: Expressions.  File: gdb.info, Node: Debugging C plus plus, Prev: Debugging C, Up: C GDB features for C++ -------------------- Some GDB commands are particularly useful with C++, and some are designed specifically for use with C++. Here is a summary: `breakpoint menus' When you want a breakpoint in a function whose name is overloaded, GDB breakpoint menus help you specify which function definition you want. *Note Breakpoint menus: Breakpoint Menus. `rbreak REGEX' Setting breakpoints using regular expressions is helpful for setting breakpoints on overloaded functions that are not members of any special classes. *Note Setting breakpoints: Set Breaks. `catch EXCEPTIONS' `info catch' Debug C++ exception handling using these commands. *Note Breakpoints and exceptions: Exception Handling. `ptype TYPENAME' Print inheritance relationships as well as other information for type TYPENAME. *Note Examining the Symbol Table: Symbols. `set print demangle' `show print demangle' `set print asm-demangle' `show print asm-demangle' Control whether C++ symbols display in their source form, both when displaying code as C++ source and when displaying disassemblies. *Note Print settings: Print Settings. `set print object' `show print object' Choose whether to print derived (actual) or declared types of objects. *Note Print settings: Print Settings. `set print vtbl' `show print vtbl' Control the format for printing virtual function tables. *Note Print settings: Print Settings. `Overloaded symbol names' You can specify a particular definition of an overloaded symbol, using the same notation that is used to declare such symbols in C++: type `SYMBOL(TYPES)' rather than just SYMBOL. You can also use the GDB command-line word completion facilities to list the available choices, or to finish the type list for you. *Note Command completion: Completion, for details on how to do this.  File: gdb.info, Node: Modula-2, Prev: C, Up: Support Modula-2 -------- The extensions made to GDB to support Modula-2 only support output from the GNU Modula-2 compiler (which is currently being developed). Other Modula-2 compilers are not currently supported, and attempting to debug executables produced by them is most likely to give an error as GDB reads in the executable's symbol table. * Menu: * M2 Operators:: Built-in operators * Built-In Func/Proc:: Built-in functions and procedures * M2 Constants:: Modula-2 constants * M2 Defaults:: Default settings for Modula-2 * Deviations:: Deviations from standard Modula-2 * M2 Checks:: Modula-2 type and range checks * M2 Scope:: The scope operators `::' and `.' * GDB/M2:: GDB and Modula-2  File: gdb.info, Node: M2 Operators, Next: Built-In Func/Proc, Up: Modula-2 Operators --------- Operators must be defined on values of specific types. For instance, `+' is defined on numbers, but not on structures. Operators are often defined on groups of types. For the purposes of Modula-2, the following definitions hold: * *Integral types* consist of `INTEGER', `CARDINAL', and their subranges. * *Character types* consist of `CHAR' and its subranges. * *Floating-point types* consist of `REAL'. * *Pointer types* consist of anything declared as `POINTER TO TYPE'. * *Scalar types* consist of all of the above. * *Set types* consist of `SET' and `BITSET' types. * *Boolean types* consist of `BOOLEAN'. The following operators are supported, and appear in order of increasing precedence: `,' Function argument or array index separator. `:=' Assignment. The value of VAR `:=' VALUE is VALUE. `<, >' Less than, greater than on integral, floating-point, or enumerated types. `<=, >=' Less than, greater than, less than or equal to, greater than or equal to on integral, floating-point and enumerated types, or set inclusion on set types. Same precedence as `<'. `=, <>, #' Equality and two ways of expressing inequality, valid on scalar types. Same precedence as `<'. In GDB scripts, only `<>' is available for inequality, since `#' conflicts with the script comment character. `IN' Set membership. Defined on set types and the types of their members. Same precedence as `<'. `OR' Boolean disjunction. Defined on boolean types. `AND, &' Boolean conjuction. Defined on boolean types. `@' The GDB "artificial array" operator (*note Expressions: Expressions.). `+, -' Addition and subtraction on integral and floating-point types, or union and difference on set types. `*' Multiplication on integral and floating-point types, or set intersection on set types. `/' Division on floating-point types, or symmetric set difference on set types. Same precedence as `*'. `DIV, MOD' Integer division and remainder. Defined on integral types. Same precedence as `*'. `-' Negative. Defined on `INTEGER' and `REAL' data. `^' Pointer dereferencing. Defined on pointer types. `NOT' Boolean negation. Defined on boolean types. Same precedence as `^'. `.' `RECORD' field selector. Defined on `RECORD' data. Same precedence as `^'. `[]' Array indexing. Defined on `ARRAY' data. Same precedence as `^'. `()' Procedure argument list. Defined on `PROCEDURE' objects. Same precedence as `^'. `::, .' GDB and Modula-2 scope operators. *Warning:* Sets and their operations are not yet supported, so GDB treats the use of the operator `IN', or the use of operators `+', `-', `*', `/', `=', , `<>', `#', `<=', and `>=' on sets as an error. gdb-4.13/gdb/remote-sim.c 666 34562 1752 26310 5566476632 13563 0ustar fnfcygnus/* Generic remote debugging interface for simulators. Copyright 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Steve Chamberlain (sac@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "wait.h" #include "value.h" #include #include #include #include #include #include #include "terminal.h" #include "target.h" #include "gdbcore.h" #include "remote-sim.h" #include "remote-utils.h" /* Naming convention: sim_* are the interface to the simulator (see remote-sim.h). gdbsim_* are stuff which is internal to gdb. */ /* Forward data declarations */ extern struct target_ops gdbsim_ops; static int program_loaded = 0; static void dump_mem (buf, len) char *buf; int len; { if (len <= 8) { if (len == 8 || len == 4) { long l[2]; memcpy (l, buf, len); printf_filtered ("\t0x%x", l[0]); printf_filtered (len == 8 ? " 0x%x\n" : "\n", l[1]); } else { int i; printf_filtered ("\t"); for (i = 0; i < len; i++) printf_filtered ("0x%x ", buf[i]); printf_filtered ("\n"); } } } static void gdbsim_fetch_register (regno) int regno; { if (regno == -1) { for (regno = 0; regno < NUM_REGS; regno++) gdbsim_fetch_register (regno); } else { char buf[MAX_REGISTER_RAW_SIZE]; sim_fetch_register (regno, buf); supply_register (regno, buf); if (sr_get_debug ()) { printf_filtered ("gdbsim_fetch_register: %d", regno); /* FIXME: We could print something more intelligible. */ dump_mem (buf, REGISTER_RAW_SIZE (regno)); } } } static void gdbsim_store_register (regno) int regno; { if (regno == -1) { for (regno = 0; regno < NUM_REGS; regno++) gdbsim_store_register (regno); } else { /* FIXME: Until read_register() returns LONGEST, we have this. */ char tmp[MAX_REGISTER_RAW_SIZE]; read_register_gen (regno, tmp); sim_store_register (regno, tmp); if (sr_get_debug ()) { printf_filtered ("gdbsim_store_register: %d", regno); /* FIXME: We could print something more intelligible. */ dump_mem (tmp, REGISTER_RAW_SIZE (regno)); } } } /* Kill the running program. This may involve closing any open files and releasing other resources acquired by the simulated program. */ static void gdbsim_kill () { if (sr_get_debug ()) printf_filtered ("gdbsim_kill\n"); sim_kill (); /* close fd's, remove mappings */ inferior_pid = 0; } /* Load an executable file into the target process. This is expected to not only bring new code into the target process, but also to update GDB's symbol tables to match. */ static void gdbsim_load (prog, fromtty) char *prog; int fromtty; { if (sr_get_debug ()) printf_filtered ("gdbsim_load: prog \"%s\"\n", prog); inferior_pid = 0; /* This must be done before calling gr_load_image. */ program_loaded = 1; if (sim_load (prog, fromtty) != 0) gr_load_image (prog, fromtty); } /* Start an inferior process and set inferior_pid to its pid. EXEC_FILE is the file to run. ALLARGS is a string containing the arguments to the program. ENV is the environment vector to pass. Errors reported with error(). On VxWorks and various standalone systems, we ignore exec_file. */ /* This is called not only when we first attach, but also when the user types "run" after having attached. */ static void gdbsim_create_inferior (exec_file, args, env) char *exec_file; char *args; char **env; { int len; char *arg_buf,**argv; CORE_ADDR entry_pt; if (! program_loaded) error ("No program loaded."); if (sr_get_debug ()) printf_filtered ("gdbsim_create_inferior: exec_file \"%s\", args \"%s\"\n", exec_file, args); if (exec_file == 0 || exec_bfd == 0) error ("No exec file specified."); entry_pt = (CORE_ADDR) bfd_get_start_address (exec_bfd); gdbsim_kill (NULL, NULL); remove_breakpoints (); init_wait_for_inferior (); len = 5 + strlen (exec_file) + 1 + strlen (args) + 1 + /*slop*/ 10; arg_buf = (char *) alloca (len); arg_buf[0] = '\0'; strcat (arg_buf, exec_file); strcat (arg_buf, " "); strcat (arg_buf, args); argv = buildargv (arg_buf); make_cleanup (freeargv, (char *) argv); sim_create_inferior (entry_pt, argv, env); inferior_pid = 42; insert_breakpoints (); /* Needed to get correct instruction in cache */ proceed (entry_pt, TARGET_SIGNAL_DEFAULT, 0); } /* The open routine takes the rest of the parameters from the command, and (if successful) pushes a new target onto the stack. Targets should supply this routine, if only to provide an error message. */ /* Called when selecting the simulator. EG: (gdb) target sim name. */ static void gdbsim_open (args, from_tty) char *args; int from_tty; { if (sr_get_debug ()) printf_filtered ("gdbsim_open: args \"%s\"\n", args ? args : "(null)"); sim_open (args); push_target (&gdbsim_ops); target_fetch_registers (-1); printf_filtered ("Connected to the simulator.\n"); } /* Does whatever cleanup is required for a target that we are no longer going to be calling. Argument says whether we are quitting gdb and should not get hung in case of errors, or whether we want a clean termination even if it takes a while. This routine is automatically always called just before a routine is popped off the target stack. Closing file descriptors and freeing memory are typical things it should do. */ /* Close out all files and local state before this target loses control. */ static void gdbsim_close (quitting) int quitting; { if (sr_get_debug ()) printf_filtered ("gdbsim_close: quitting %d\n", quitting); program_loaded = 0; sim_close (quitting); } /* Takes a program previously attached to and detaches it. The program may resume execution (some targets do, some don't) and will no longer stop on signals, etc. We better not have left any breakpoints in the program or it'll die when it hits one. ARGS is arguments typed by the user (e.g. a signal to send the process). FROM_TTY says whether to be verbose or not. */ /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ static void gdbsim_detach (args,from_tty) char *args; int from_tty; { if (sr_get_debug ()) printf_filtered ("gdbsim_detach: args \"%s\"\n", args); pop_target (); /* calls gdbsim_close to do the real work */ if (from_tty) printf_filtered ("Ending simulator %s debugging\n", target_shortname); } /* Resume execution of the target process. STEP says whether to single-step or to run free; SIGGNAL is the signal value (e.g. SIGINT) to be given to the target, or zero for no signal. */ static void gdbsim_resume (pid, step, siggnal) int pid, step; enum target_signal siggnal; { if (sr_get_debug ()) printf_filtered ("gdbsim_resume: step %d, signal %d\n", step, siggnal); sim_resume (step, target_signal_to_host (siggnal)); } /* Wait for inferior process to do something. Return pid of child, or -1 in case of error; store status through argument pointer STATUS, just as `wait' would. */ static int gdbsim_wait (pid, status) int pid; struct target_waitstatus *status; { int sigrc; enum sim_stop reason; if (sr_get_debug ()) printf_filtered ("gdbsim_wait\n"); sim_stop_reason (&reason, &sigrc); switch (reason) { case sim_exited: status->kind = TARGET_WAITKIND_EXITED; status->value.integer = sigrc; break; case sim_stopped: status->kind = TARGET_WAITKIND_STOPPED; /* The signal in sigrc is a host signal. That probably should be fixed. */ status->value.sig = target_signal_from_host (sigrc); break; case sim_signalled: status->kind = TARGET_WAITKIND_SIGNALLED; /* The signal in sigrc is a host signal. That probably should be fixed. */ status->value.sig = target_signal_from_host (sigrc); break; } return inferior_pid; } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void gdbsim_prepare_to_store () { /* Do nothing, since we can store individual regs */ } static int gdbsim_xfer_inferior_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { if (! program_loaded) error ("No program loaded."); if (sr_get_debug ()) { printf_filtered ("gdbsim_xfer_inferior_memory: myaddr 0x%x, memaddr 0x%x, len %d, write %d\n", myaddr, memaddr, len, write); if (sr_get_debug () && write) dump_mem(myaddr, len); } if (write) { len = sim_write (memaddr, myaddr, len); } else { len = sim_read (memaddr, myaddr, len); if (sr_get_debug () && len > 0) dump_mem(myaddr, len); } return len; } static void gdbsim_files_info (target) struct target_ops *target; { char *file = "nothing"; if (exec_bfd) file = bfd_get_filename (exec_bfd); if (sr_get_debug ()) printf_filtered ("gdbsim_files_info: file \"%s\"\n", file); if (exec_bfd) { printf_filtered ("\tAttached to %s running program %s\n", target_shortname, file); sim_info (0); } } /* Clear the sims notion of what the break points are. */ static void gdbsim_mourn_inferior () { if (sr_get_debug ()) printf_filtered ("gdbsim_mourn_inferior:\n"); remove_breakpoints (); generic_mourn_inferior (); } /* Define the target subroutine names */ struct target_ops gdbsim_ops = { "sim", "simulator", "Use the simulator", gdbsim_open, gdbsim_close, 0, gdbsim_detach, gdbsim_resume, gdbsim_wait, /* attach */ gdbsim_fetch_register, gdbsim_store_register, gdbsim_prepare_to_store, gdbsim_xfer_inferior_memory, gdbsim_files_info, 0, 0, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ gdbsim_kill, /* kill */ gdbsim_load, /* load */ 0, /* lookup_symbol */ gdbsim_create_inferior, /* create_inferior */ gdbsim_mourn_inferior, /* mourn_inferior */ 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_remote_sim () { add_target (&gdbsim_ops); } gdb-4.13/gdb/remote-sim.h 666 34562 1752 10443 5566476636 13574 0ustar fnfcygnus/* This file defines the interface between the simulator and gdb. Copyright (C) 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (REMOTE_SIM_H) #define REMOTE_SIM_H 1 /* This file is used when building stand-alone simulators, so isolate this file from gdb. */ /* Pick up CORE_ADDR_TYPE if defined (from gdb), otherwise use same value as gdb does (unsigned int - from defs.h). */ #ifndef CORE_ADDR_TYPE typedef unsigned int SIM_ADDR; #else typedef CORE_ADDR_TYPE SIM_ADDR; #endif /* Callbacks. The simulator may use the following callbacks (gdb routines) which the standalone program must provide. void printf_filtered (char *msg, ...); void error /-* noreturn *-/ (char *msg, ...); void *xmalloc (long size); */ /* Main simulator entry points ... All functions that can get an error must call the gdb routine `error', they can only return upon success. */ /* Initialize the simulator. This function is called when the simulator is selected from the command line. ARGS is passed from the command line and can be used to select whatever run time options the simulator provides. ARGS is the raw character string and must be parsed by the simulator, which is trivial to do with the buildargv function in libiberty. It is ok to do nothing. */ void sim_open PARAMS ((char *args)); /* Terminate usage of the simulator. This may involve freeing target memory and closing any open files and mmap'd areas. You cannot assume sim_kill has already been called. QUITTING is non-zero if we cannot hang on errors. */ void sim_close PARAMS ((int quitting)); /* Load program PROG into the simulator. Return non-zero if you wish the caller to handle it (it is done this way because most simulators can use gr_load_image, but defining it as a callback seems awkward). */ int sim_load PARAMS ((char *prog, int from_tty)); /* Prepare to run the simulated program. START_ADDRESS is, yes, you guessed it, the start address of the program. ARGV and ENV are NULL terminated lists of pointers. Gdb will set the start address via sim_store_register as well, but standalone versions of existing simulators are not set up to cleanly call sim_store_register, so the START_ADDRESS argument is there as a workaround. */ void sim_create_inferior PARAMS ((SIM_ADDR start_address, char **argv, char **env)); /* Kill the running program. This may involve closing any open files and deleting any mmap'd areas. */ void sim_kill PARAMS ((void)); /* Read LENGTH bytes of the simulated program's memory and store in BUF. Result is number of bytes read, or zero if error. */ int sim_read PARAMS ((SIM_ADDR mem, unsigned char *buf, int length)); /* Store LENGTH bytes from BUF in the simulated program's memory. Result is number of bytes write, or zero if error. */ int sim_write PARAMS ((SIM_ADDR mem, unsigned char *buf, int length)); /* Fetch register REGNO and store the raw value in BUF. */ void sim_fetch_register PARAMS ((int regno, unsigned char *buf)); /* Store register REGNO from BUF (in raw format). */ void sim_store_register PARAMS ((int regno, unsigned char *buf)); /* Print some interesting information about the simulator. VERBOSE is non-zero for the wordy version. */ void sim_info PARAMS ((int verbose)); /* Fetch why the program stopped. SIGRC will contain either the argument to exit() or the signal number. */ enum sim_stop { sim_exited, sim_stopped, sim_signalled }; void sim_stop_reason PARAMS ((enum sim_stop *reason, int *sigrc)); /* Run (or resume) the program. */ void sim_resume PARAMS ((int step, int siggnal)); #endif /* !defined (REMOTE_SIM_H) */ gdb-4.13/gdb/remote-st.c 666 34562 1752 45140 5513036643 13405 0ustar fnfcygnus/* Remote debugging interface for Tandem ST2000 phone switch, for GDB. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Jim Kingdon for Cygnus. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file was derived from remote-eb.c, which did a similar job, but for an AMD-29K running EBMON. That file was in turn derived from remote.c as mentioned in the following comment (left in for comic relief): "This is like remote.c but is for an esoteric situation-- having an a29k board in a PC hooked up to a unix machine with a serial line, and running ctty com1 on the PC, through which the unix machine can run ebmon. Not to mention that the PC has PC/NFS, so it can access the same executables that gdb can, over the net in real time." In reality, this module talks to a debug monitor called 'STDEBUG', which runs in a phone switch. We communicate with STDEBUG via either a direct serial line, or a TCP (or possibly TELNET) stream to a terminal multiplexor, which in turn talks to the phone switch. */ #include "defs.h" #include "gdbcore.h" #include "target.h" #include "wait.h" #include #include #include #include #include "serial.h" extern struct target_ops st2000_ops; /* Forward declaration */ static void st2000_close(); static void st2000_fetch_register(); static void st2000_store_register(); #define LOG_FILE "st2000.log" #if defined (LOG_FILE) FILE *log_file; #endif static int timeout = 24; /* Descriptor for I/O to remote machine. Initialize it to -1 so that st2000_open knows that we don't have a file open when the program starts. */ static serial_t st2000_desc; /* Send data to stdebug. Works just like printf. */ static void printf_stdebug(va_alist) va_dcl { va_list args; char *pattern; char buf[200]; va_start(args); pattern = va_arg(args, char *); vsprintf(buf, pattern, args); if (SERIAL_WRITE(st2000_desc, buf, strlen(buf))) fprintf(stderr, "SERIAL_WRITE failed: %s\n", safe_strerror(errno)); } /* Read a character from the remote system, doing all the fancy timeout stuff. */ static int readchar(timeout) int timeout; { int c; c = SERIAL_READCHAR(st2000_desc, timeout); #ifdef LOG_FILE putc(c & 0x7f, log_file); #endif if (c >= 0) return c & 0x7f; if (c == SERIAL_TIMEOUT) { if (timeout == 0) return c; /* Polls shouldn't generate timeout errors */ error("Timeout reading from remote system."); } perror_with_name("remote-st2000"); } /* Scan input from the remote system, until STRING is found. If DISCARD is non-zero, then discard non-matching input, else print it out. Let the user break out immediately. */ static void expect(string, discard) char *string; int discard; { char *p = string; int c; immediate_quit = 1; while (1) { c = readchar(timeout); if (c == *p++) { if (*p == '\0') { immediate_quit = 0; return; } } else { if (!discard) { fwrite(string, 1, (p - 1) - string, stdout); putchar((char)c); fflush(stdout); } p = string; } } } /* Keep discarding input until we see the STDEBUG prompt. The convention for dealing with the prompt is that you o give your command o *then* wait for the prompt. Thus the last thing that a procedure does with the serial line will be an expect_prompt(). Exception: st2000_resume does not wait for the prompt, because the terminal is being handed over to the inferior. However, the next thing which happens after that is a st2000_wait which does wait for the prompt. Note that this includes abnormal exit, e.g. error(). This is necessary to prevent getting into states from which we can't recover. */ static void expect_prompt(discard) int discard; { #if defined (LOG_FILE) /* This is a convenient place to do this. The idea is to do it often enough that we never lose much data if we terminate abnormally. */ fflush(log_file); #endif expect ("dbug> ", discard); } /* Get a hex digit from the remote system & return its value. If ignore_space is nonzero, ignore spaces (not newline, tab, etc). */ static int get_hex_digit(ignore_space) int ignore_space; { int ch; while (1) { ch = readchar(timeout); if (ch >= '0' && ch <= '9') return ch - '0'; else if (ch >= 'A' && ch <= 'F') return ch - 'A' + 10; else if (ch >= 'a' && ch <= 'f') return ch - 'a' + 10; else if (ch == ' ' && ignore_space) ; else { expect_prompt(1); error("Invalid hex digit from remote system."); } } } /* Get a byte from stdebug and put it in *BYT. Accept any number leading spaces. */ static void get_hex_byte (byt) char *byt; { int val; val = get_hex_digit (1) << 4; val |= get_hex_digit (0); *byt = val; } /* Get N 32-bit words from remote, each preceded by a space, and put them in registers starting at REGNO. */ static void get_hex_regs (n, regno) int n; int regno; { long val; int i; for (i = 0; i < n; i++) { int j; val = 0; for (j = 0; j < 8; j++) val = (val << 4) + get_hex_digit (j == 0); supply_register (regno++, (char *) &val); } } /* This is called not only when we first attach, but also when the user types "run" after having attached. */ static void st2000_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; if (args && *args) error("Can't pass arguments to remote STDEBUG process"); if (execfile == 0 || exec_bfd == 0) error("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); /* The "process" (board) is already stopped awaiting our commands, and the program is already downloaded. We just set its PC and go. */ clear_proceed_status (); /* Tell wait_for_inferior that we've started a new process. */ init_wait_for_inferior (); /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); /* insert_step_breakpoint (); FIXME, do we need this? */ /* Let 'er rip... */ proceed ((CORE_ADDR)entry_pt, TARGET_SIGNAL_DEFAULT, 0); } /* Open a connection to a remote debugger. NAME is the filename used for communication. */ static int baudrate = 9600; static char dev_name[100]; static void st2000_open(args, from_tty) char *args; int from_tty; { int n; char junk[100]; target_preopen(from_tty); n = sscanf(args, " %s %d %s", dev_name, &baudrate, junk); if (n != 2) error("Bad arguments. Usage: target st2000 \n\ or target st2000 \n"); st2000_close(0); st2000_desc = SERIAL_OPEN(dev_name); if (!st2000_desc) perror_with_name(dev_name); SERIAL_SETBAUDRATE(st2000_desc, baudrate); SERIAL_RAW(st2000_desc); push_target(&st2000_ops); #if defined (LOG_FILE) log_file = fopen (LOG_FILE, "w"); if (log_file == NULL) perror_with_name (LOG_FILE); #endif /* Hello? Are you there? */ printf_stdebug("\003"); /* ^C wakes up dbug */ expect_prompt(1); if (from_tty) printf("Remote %s connected to %s\n", target_shortname, dev_name); } /* Close out all files and local state before this target loses control. */ static void st2000_close (quitting) int quitting; { SERIAL_CLOSE(st2000_desc); #if defined (LOG_FILE) if (log_file) { if (ferror(log_file)) fprintf(stderr, "Error writing log file.\n"); if (fclose(log_file) != 0) fprintf(stderr, "Error closing log file.\n"); } #endif } /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ static void st2000_detach (from_tty) int from_tty; { pop_target(); /* calls st2000_close to do the real work */ if (from_tty) printf ("Ending remote %s debugging\n", target_shortname); } /* Tell the remote machine to resume. */ static void st2000_resume (pid, step, sig) int pid, step; enum target_signal sig; { if (step) { printf_stdebug ("ST\r"); /* Wait for the echo. */ expect ("ST\r", 1); } else { printf_stdebug ("GO\r"); /* Swallow the echo. */ expect ("GO\r", 1); } } /* Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. */ static int st2000_wait (status) struct target_waitstatus *status; { int old_timeout = timeout; status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; timeout = 0; /* Don't time out -- user program is running. */ expect_prompt(0); /* Wait for prompt, outputting extraneous text */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; timeout = old_timeout; return 0; } /* Return the name of register number REGNO in the form input and output by STDEBUG. Currently, REGISTER_NAMES just happens to contain exactly what STDEBUG wants. Lets take advantage of that just as long as possible! */ static char * get_reg_name (regno) int regno; { static char buf[50]; const char *p; char *b; b = buf; for (p = reg_names[regno]; *p; p++) *b++ = toupper(*p); *b = '\000'; return buf; } /* Read the remote registers into the block REGS. */ static void st2000_fetch_registers () { int regno; /* Yeah yeah, I know this is horribly inefficient. But it isn't done very often... I'll clean it up later. */ for (regno = 0; regno <= PC_REGNUM; regno++) st2000_fetch_register(regno); } /* Fetch register REGNO, or all registers if REGNO is -1. Returns errno value. */ static void st2000_fetch_register (regno) int regno; { if (regno == -1) st2000_fetch_registers (); else { char *name = get_reg_name (regno); printf_stdebug ("DR %s\r", name); expect (name, 1); expect (" : ", 1); get_hex_regs (1, regno); expect_prompt (1); } return; } /* Store the remote registers from the contents of the block REGS. */ static void st2000_store_registers () { int regno; for (regno = 0; regno <= PC_REGNUM; regno++) st2000_store_register(regno); registers_changed (); } /* Store register REGNO, or all if REGNO == 0. Return errno value. */ static void st2000_store_register (regno) int regno; { if (regno == -1) st2000_store_registers (); else { printf_stdebug ("PR %s %x\r", get_reg_name (regno), read_register (regno)); expect_prompt (1); } } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void st2000_prepare_to_store () { /* Do nothing, since we can store individual regs */ } static void st2000_files_info () { printf ("\tAttached to %s at %d baud.\n", dev_name, baudrate); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns length moved. */ static int st2000_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { int i; for (i = 0; i < len; i++) { printf_stdebug ("PM.B %x %x\r", memaddr + i, myaddr[i]); expect_prompt (1); } return len; } /* Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns length moved. */ static int st2000_read_inferior_memory(memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int i; /* Number of bytes read so far. */ int count; /* Starting address of this pass. */ unsigned long startaddr; /* Number of bytes to read in this pass. */ int len_this_pass; /* Note that this code works correctly if startaddr is just less than UINT_MAX (well, really CORE_ADDR_MAX if there was such a thing). That is, something like st2000_read_bytes (CORE_ADDR_MAX - 4, foo, 4) works--it never adds len to memaddr and gets 0. */ /* However, something like st2000_read_bytes (CORE_ADDR_MAX - 3, foo, 4) doesn't need to work. Detect it and give up if there's an attempt to do that. */ if (((memaddr - 1) + len) < memaddr) { errno = EIO; return 0; } startaddr = memaddr; count = 0; while (count < len) { len_this_pass = 16; if ((startaddr % 16) != 0) len_this_pass -= startaddr % 16; if (len_this_pass > (len - count)) len_this_pass = (len - count); printf_stdebug ("DI.L %x %x\r", startaddr, len_this_pass); expect (": ", 1); for (i = 0; i < len_this_pass; i++) get_hex_byte (&myaddr[count++]); expect_prompt (1); startaddr += len_this_pass; } return len; } /* FIXME-someday! Merge these two. */ static int st2000_xfer_inferior_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { if (write) return st2000_write_inferior_memory (memaddr, myaddr, len); else return st2000_read_inferior_memory (memaddr, myaddr, len); } static void st2000_kill (args, from_tty) char *args; int from_tty; { return; /* Ignore attempts to kill target system */ } /* Clean up when a program exits. The program actually lives on in the remote processor's RAM, and may be run again without a download. Don't leave it full of breakpoint instructions. */ static void st2000_mourn_inferior () { remove_breakpoints (); unpush_target (&st2000_ops); generic_mourn_inferior (); /* Do all the proper things now */ } #define MAX_STDEBUG_BREAKPOINTS 16 extern int memory_breakpoint_size; static CORE_ADDR breakaddr[MAX_STDEBUG_BREAKPOINTS] = {0}; static int st2000_insert_breakpoint (addr, shadow) CORE_ADDR addr; char *shadow; { int i; for (i = 0; i <= MAX_STDEBUG_BREAKPOINTS; i++) if (breakaddr[i] == 0) { breakaddr[i] = addr; st2000_read_inferior_memory(addr, shadow, memory_breakpoint_size); printf_stdebug("BR %x H\r", addr); expect_prompt(1); return 0; } fprintf(stderr, "Too many breakpoints (> 16) for STDBUG\n"); return 1; } static int st2000_remove_breakpoint (addr, shadow) CORE_ADDR addr; char *shadow; { int i; for (i = 0; i < MAX_STDEBUG_BREAKPOINTS; i++) if (breakaddr[i] == addr) { breakaddr[i] = 0; printf_stdebug("CB %d\r", i); expect_prompt(1); return 0; } fprintf(stderr, "Can't find breakpoint associated with 0x%x\n", addr); return 1; } /* Put a command string, in args, out to STDBUG. Output from STDBUG is placed on the users terminal until the prompt is seen. */ static void st2000_command (args, fromtty) char *args; int fromtty; { if (!st2000_desc) error("st2000 target not open."); if (!args) error("Missing command."); printf_stdebug("%s\r", args); expect_prompt(0); } /* Connect the user directly to STDBUG. This command acts just like the 'cu' or 'tip' command. Use ~. or ~^D to break out. */ /*static struct ttystate ttystate;*/ static void cleanup_tty() { printf("\r\n[Exiting connect mode]\r\n"); /* SERIAL_RESTORE(0, &ttystate);*/ } #if 0 /* This all should now be in serial.c */ static void connect_command (args, fromtty) char *args; int fromtty; { fd_set readfds; int numfds; int c; char cur_esc = 0; dont_repeat(); if (st2000_desc < 0) error("st2000 target not open."); if (args) fprintf("This command takes no args. They have been ignored.\n"); printf("[Entering connect mode. Use ~. or ~^D to escape]\n"); serial_raw(0, &ttystate); make_cleanup(cleanup_tty, 0); FD_ZERO(&readfds); while (1) { do { FD_SET(0, &readfds); FD_SET(st2000_desc, &readfds); numfds = select(sizeof(readfds)*8, &readfds, 0, 0, 0); } while (numfds == 0); if (numfds < 0) perror_with_name("select"); if (FD_ISSET(0, &readfds)) { /* tty input, send to stdebug */ c = getchar(); if (c < 0) perror_with_name("connect"); printf_stdebug("%c", c); switch (cur_esc) { case 0: if (c == '\r') cur_esc = c; break; case '\r': if (c == '~') cur_esc = c; else cur_esc = 0; break; case '~': if (c == '.' || c == '\004') return; else cur_esc = 0; } } if (FD_ISSET(st2000_desc, &readfds)) { while (1) { c = readchar(0); if (c < 0) break; putchar(c); } fflush(stdout); } } } #endif /* 0 */ /* Define the target subroutine names */ struct target_ops st2000_ops = { "st2000", "Remote serial Tandem ST2000 target", "Use a remote computer running STDEBUG connected by a serial line,\n\ or a network connection.\n\ Arguments are the name of the device for the serial line,\n\ the speed to connect at in bits per second.", st2000_open, st2000_close, 0, st2000_detach, st2000_resume, st2000_wait, st2000_fetch_register, st2000_store_register, st2000_prepare_to_store, st2000_xfer_inferior_memory, st2000_files_info, st2000_insert_breakpoint, st2000_remove_breakpoint, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ st2000_kill, 0, /* load */ 0, /* lookup_symbol */ st2000_create_inferior, st2000_mourn_inferior, 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_remote_st2000 () { add_target (&st2000_ops); add_com ("st2000 ", class_obscure, st2000_command, "Send a command to the STDBUG monitor."); add_com ("connect", class_obscure, connect_command, "Connect the terminal directly up to the STDBUG command monitor.\n\ Use ~. or ~^D to break out."); } gdb-4.13/gdb/remote-udi.c 666 34562 1752 132743 5525323043 13562 0ustar fnfcygnus/* Remote debugging interface for AMD 29k interfaced via UDI, for GDB. Copyright 1990, 1992 Free Software Foundation, Inc. Written by Daniel Mann. Contributed by AMD. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is like remote.c but uses the Universal Debug Interface (UDI) to talk to the target hardware (or simulator). UDI is a TCP/IP based protocol; for hardware that doesn't run TCP, an interface adapter daemon talks UDI on one side, and talks to the hardware (typically over a serial port) on the other side. - Originally written by Daniel Mann at AMD for MiniMON and gdb 3.91.6. - David Wood (wood@lab.ultra.nyu.edu) at New York University adapted this file to gdb 3.95. I was unable to get this working on sun3os4 with termio, only with sgtty. - Daniel Mann at AMD took the 3.95 adaptions above and replaced MiniMON interface with UDI-p interface. */ #include "defs.h" #include "inferior.h" #include "wait.h" #include "value.h" #include #include #include #include #include #include "terminal.h" #include "target.h" #include "29k-share/udi/udiproc.h" #include "gdbcmd.h" #include "bfd.h" #include "gdbcore.h" /* For download function */ /* access the register store directly, without going through the normal handler functions. This avoids an extra data copy. */ extern int stop_soon_quietly; /* for wait_for_inferior */ extern struct value *call_function_by_hand(); static void udi_resume PARAMS ((int pid, int step, enum target_signal sig)); static void udi_fetch_registers PARAMS ((int regno)); static void udi_load PARAMS ((char *args, int from_tty)); static void fetch_register PARAMS ((int regno)); static void udi_store_registers PARAMS ((int regno)); static int store_register PARAMS ((int regno)); static int regnum_to_srnum PARAMS ((int regno)); static void udi_close PARAMS ((int quitting)); static CPUSpace udi_memory_space PARAMS ((CORE_ADDR addr)); static int udi_write_inferior_memory PARAMS ((CORE_ADDR memaddr, char *myaddr, int len)); static int udi_read_inferior_memory PARAMS ((CORE_ADDR memaddr, char *myaddr, int len)); static void download PARAMS ((char *load_arg_string, int from_tty)); char CoffFileName[100] = ""; #define FREEZE_MODE (read_register(CPS_REGNUM) & 0x400) #define USE_SHADOW_PC ((processor_type == a29k_freeze_mode) && FREEZE_MODE) static int timeout = 5; extern struct target_ops udi_ops; /* Forward declaration */ /* Special register enumeration. */ /******************************************************************* UDI DATA*/ #define MAXDATA 2*1024 /* max UDI[read/write] byte size */ /* Descriptor for I/O to remote machine. Initialize it to -1 so that udi_open knows that we don't have a file open when the program starts. */ UDISessionId udi_session_id = -1; static char *udi_config_id; CPUOffset IMemStart = 0; CPUSizeT IMemSize = 0; CPUOffset DMemStart = 0; CPUSizeT DMemSize = 0; CPUOffset RMemStart = 0; CPUSizeT RMemSize = 0; UDIUInt32 CPUPRL; UDIUInt32 CoProcPRL; UDIMemoryRange address_ranges[2]; /* Text and data */ UDIResource entry = {0, 0}; /* Entry point */ CPUSizeT stack_sizes[2]; /* Regular and memory stacks */ #define SBUF_MAX 1024 /* maximum size of string handling buffer */ char sbuf[SBUF_MAX]; typedef struct bkpt_entry_str { UDIResource Addr; UDIUInt32 PassCount; UDIBreakType Type; unsigned int BreakId; } bkpt_entry_t; #define BKPT_TABLE_SIZE 40 static bkpt_entry_t bkpt_table[BKPT_TABLE_SIZE]; extern char dfe_errmsg[]; /* error string */ /* malloc'd name of the program on the remote system. */ static char *prog_name = NULL; /* This is called not only when we first attach, but also when the user types "run" after having attached. */ static void udi_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { char *args1; if (execfile) { if (prog_name != NULL) free (prog_name); prog_name = savestring (execfile, strlen (execfile)); } else if (entry.Offset) execfile = ""; else error ("No image loaded into target."); if (udi_session_id < 0) { /* If the TIP is not open, open it. */ if (UDIConnect (udi_config_id, &udi_session_id)) error("UDIConnect() failed: %s\n", dfe_errmsg); /* We will need to download the program. */ entry.Offset = 0; } inferior_pid = 40000; if (!entry.Offset) download(execfile, 0); args1 = alloca (strlen(execfile) + strlen(args) + 2); if (execfile[0] == '\0') /* It is empty. We need to quote it somehow, or else the target will think there is no argument being passed here. According to the UDI spec it is quoted "according to TIP OS rules" which I guess means quoting it like the Unix shell should work (sounds pretty bogus to me...). In fact it doesn't work (with isstip anyway), but passing in two quotes as the argument seems like a reasonable enough behavior anyway (I guess). */ strcpy (args1, "''"); else strcpy (args1, execfile); strcat (args1, " "); strcat (args1, args); UDIInitializeProcess (address_ranges, /* ProcessMemory[] */ (UDIInt)2, /* NumberOfRanges */ entry, /* EntryPoint */ stack_sizes, /* *StackSizes */ (UDIInt)2, /* NumberOfStacks */ args1); /* ArgString */ init_wait_for_inferior (); clear_proceed_status (); proceed (-1, TARGET_SIGNAL_DEFAULT, 0); } static void udi_mourn() { #if 0 /* Requiring "target udi" each time you run is a major pain. I suspect this was just blindy copied from remote.c, in which "target" and "run" are combined. Having a udi target without an inferior seems to work between "target udi" and "run", so why not now? */ pop_target (); /* Pop back to no-child state */ #endif /* But if we're going to want to run it again, we better remove the breakpoints... */ remove_breakpoints (); generic_mourn_inferior (); } /******************************************************************** UDI_OPEN ** Open a connection to remote TIP. NAME is the socket domain used for communication with the TIP, then a space and the socket name or TIP-host name. '' for example. */ /* XXX - need cleanups for udiconnect for various failures!!! */ static void udi_open (name, from_tty) char *name; int from_tty; { unsigned int prl; char *p; int cnt; UDIMemoryRange KnownMemory[10]; UDIUInt32 ChipVersions[10]; UDIInt NumberOfRanges = 10; UDIInt NumberOfChips = 10; UDIPId PId; UDIUInt32 TIPId, TargetId, DFEId, DFE, TIP, DFEIPCId, TIPIPCId; target_preopen(from_tty); entry.Offset = 0; for (cnt = 0; cnt < BKPT_TABLE_SIZE; cnt++) bkpt_table[cnt].Type = 0; if (udi_config_id) free (udi_config_id); if (!name) error("Usage: target udi config_id, where config_id appears in udi_soc file"); udi_config_id = strdup (strtok (name, " \t")); if (UDIConnect (udi_config_id, &udi_session_id)) /* FIXME: Should set udi_session_id to -1 here. */ error("UDIConnect() failed: %s\n", dfe_errmsg); push_target (&udi_ops); /* ** Initialize target configuration structure (global) */ if (UDIGetTargetConfig (KnownMemory, &NumberOfRanges, ChipVersions, &NumberOfChips)) error ("UDIGetTargetConfig() failed"); if (NumberOfChips > 2) fprintf_unfiltered(gdb_stderr,"Target has more than one processor\n"); for (cnt=0; cnt < NumberOfRanges; cnt++) { switch(KnownMemory[cnt].Space) { default: fprintf_unfiltered(gdb_stderr, "UDIGetTargetConfig() unknown memory space\n"); break; case UDI29KCP_S: break; case UDI29KIROMSpace: RMemStart = KnownMemory[cnt].Offset; RMemSize = KnownMemory[cnt].Size; break; case UDI29KIRAMSpace: IMemStart = KnownMemory[cnt].Offset; IMemSize = KnownMemory[cnt].Size; break; case UDI29KDRAMSpace: DMemStart = KnownMemory[cnt].Offset; DMemSize = KnownMemory[cnt].Size; break; } } a29k_get_processor_type (); if (UDICreateProcess (&PId)) fprintf_unfiltered(gdb_stderr, "UDICreateProcess() failed\n"); /* Print out some stuff, letting the user now what's going on */ if (UDICapabilities (&TIPId, &TargetId, DFEId, DFE, &TIP, &DFEIPCId, &TIPIPCId, sbuf)) error ("UDICapabilities() failed"); if (from_tty) { printf_filtered ("Connected via UDI socket,\n\ DFE-IPC version %x.%x.%x TIP-IPC version %x.%x.%x TIP version %x.%x.%x\n %s\n", (DFEIPCId>>8)&0xf, (DFEIPCId>>4)&0xf, DFEIPCId&0xf, (TIPIPCId>>8)&0xf, (TIPIPCId>>4)&0xf, TIPIPCId&0xf, (TargetId>>8)&0xf, (TargetId>>4)&0xf, TargetId&0xf, sbuf); } } /******************************************************************* UDI_CLOSE Close the open connection to the TIP process. Use this when you want to detach and do something else with your gdb. */ static void udi_close (quitting) /*FIXME: how is quitting used */ int quitting; { if (udi_session_id < 0) return; /* We should never get here if there isn't something valid in udi_session_id. */ if (UDIDisconnect (udi_session_id, UDITerminateSession)) { if (quitting) warning ("UDIDisconnect() failed in udi_close"); else error ("UDIDisconnect() failed in udi_close"); } /* Do not try to close udi_session_id again, later in the program. */ udi_session_id = -1; inferior_pid = 0; printf_filtered (" Ending remote debugging\n"); } /**************************************************************** UDI_ATACH */ /* Attach to a program that is already loaded and running * Upon exiting the process's execution is stopped. */ static void udi_attach (args, from_tty) char *args; int from_tty; { UDIResource From; UDIInt32 PC_adds; UDICount Count = 1; UDISizeT Size = 4; UDICount CountDone; UDIBool HostEndian = 0; UDIError err; if (args == NULL) error_no_arg ("program to attach"); if (udi_session_id < 0) error ("UDI connection not opened yet, use the 'target udi' command.\n"); if (from_tty) printf_unfiltered ("Attaching to remote program %s...\n", prog_name); UDIStop(); From.Space = UDI29KSpecialRegs; From.Offset = 11; if (err = UDIRead(From, &PC_adds, Count, Size, &CountDone, HostEndian)) error ("UDIRead failed in udi_attach"); printf_unfiltered ("Remote process is now halted, pc1 = 0x%x.\n", PC_adds); } /************************************************************* UDI_DETACH */ /* Terminate the open connection to the TIP process. Use this when you want to detach and do something else with your gdb. Leave remote process running (with no breakpoints set). */ static void udi_detach (args,from_tty) char *args; int from_tty; { remove_breakpoints(); /* Just in case there were any left in */ if (UDIDisconnect (udi_session_id, UDIContinueSession)) error ("UDIDisconnect() failed in udi_detach"); /* Don't try to UDIDisconnect it again in udi_close, which is called from pop_target. */ udi_session_id = -1; inferior_pid = 0; pop_target(); if (from_tty) printf_unfiltered ("Detaching from TIP\n"); } /****************************************************************** UDI_RESUME ** Tell the remote machine to resume. */ static void udi_resume (pid, step, sig) int pid, step; enum target_signal sig; { UDIError tip_error; UDIUInt32 Steps = 1; UDIStepType StepType = UDIStepNatural; UDIRange Range; if (step) /* step 1 instruction */ { tip_error = UDIStep (Steps, StepType, Range); if (!tip_error) return; fprintf_unfiltered (gdb_stderr, "UDIStep() error = %d\n", tip_error); error ("failed in udi_resume"); } if (UDIExecute()) error ("UDIExecute() failed in udi_resume"); } /******************************************************************** UDI_WAIT ** Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. */ static int udi_wait (pid, status) int pid; struct target_waitstatus *status; { UDIInt32 MaxTime; UDIPId PId; UDIInt32 StopReason; UDISizeT CountDone; int old_timeout = timeout; int old_immediate_quit = immediate_quit; int i; status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; /* wait for message to arrive. It should be: If the target stops executing, udi_wait() should return. */ timeout = 0; /* Wait indefinetly for a message */ immediate_quit = 1; /* Helps ability to QUIT */ while(1) { i = 0; MaxTime = UDIWaitForever; UDIWait(MaxTime, &PId, &StopReason); QUIT; /* Let user quit if they want */ switch (StopReason & UDIGrossState) { case UDIStdoutReady: if (UDIGetStdout (sbuf, (UDISizeT)SBUF_MAX, &CountDone)) /* This is said to happen if the program tries to output a whole bunch of output (more than SBUF_MAX, I would guess). It doesn't seem to happen with the simulator. */ warning ("UDIGetStdout() failed in udi_wait"); fwrite (sbuf, 1, CountDone, gdb_stdout); gdb_flush(gdb_stdout); continue; case UDIStderrReady: UDIGetStderr (sbuf, (UDISizeT)SBUF_MAX, &CountDone); fwrite (sbuf, 1, CountDone, gdb_stderr); gdb_flush(gdb_stderr); continue; case UDIStdinNeeded: { int ch; i = 0; do { ch = getchar (); if (ch == EOF) break; sbuf[i++] = ch; } while (i < SBUF_MAX && ch != '\n'); UDIPutStdin (sbuf, (UDISizeT)i, &CountDone); continue; } case UDIRunning: /* In spite of the fact that we told UDIWait to wait forever, it will return spuriously sometimes. */ case UDIStdinModeX: continue; default: break; } break; } switch (StopReason & UDIGrossState) { case UDITrapped: printf_unfiltered("Am290*0 received vector number %d\n", StopReason >> 24); switch (StopReason >> 8) { case 0: /* Illegal opcode */ printf_unfiltered(" (break point)\n"); status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; break; case 1: /* Unaligned Access */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_BUS; break; case 3: case 4: status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_FPE; break; case 5: /* Protection Violation */ status->kind = TARGET_WAITKIND_STOPPED; /* Why not SEGV? What is a Protection Violation? */ status->value.sig = TARGET_SIGNAL_ILL; break; case 6: case 7: case 8: /* User Instruction Mapping Miss */ case 9: /* User Data Mapping Miss */ case 10: /* Supervisor Instruction Mapping Miss */ case 11: /* Supervisor Data Mapping Miss */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_SEGV; break; case 12: case 13: status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_ILL; break; case 14: /* Timer */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_ALRM; break; case 15: /* Trace */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; break; case 16: /* INTR0 */ case 17: /* INTR1 */ case 18: /* INTR2 */ case 19: /* INTR3/Internal */ case 20: /* TRAP0 */ case 21: /* TRAP1 */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_INT; break; case 22: /* Floating-Point Exception */ status->kind = TARGET_WAITKIND_STOPPED; /* Why not FPE? */ status->value.sig = TARGET_SIGNAL_ILL; break; case 77: /* assert 77 */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; break; default: status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; } break; case UDINotExecuting: status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TERM; break; case UDIStopped: status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TSTP; break; case UDIWarned: status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_URG; break; case UDIStepped: case UDIBreak: status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; break; case UDIWaiting: status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_STOP; break; case UDIHalted: status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_KILL; break; case UDIExited: default: status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; } timeout = old_timeout; /* Restore original timeout value */ immediate_quit = old_immediate_quit; return inferior_pid; } #if 0 /* Handy for debugging */ udi_pc() { UDIResource From; UDIUInt32 *To; UDICount Count; UDISizeT Size = 4; UDICount CountDone; UDIBool HostEndian = 0; UDIError err; int pc[2]; unsigned long myregs[256]; int i; From.Space = UDI29KPC; From.Offset = 0; To = (UDIUInt32 *)pc; Count = 2; err = UDIRead(From, To, Count, Size, &CountDone, HostEndian); printf_unfiltered ("err = %d, CountDone = %d, pc[0] = 0x%x, pc[1] = 0x%x\n", err, CountDone, pc[0], pc[1]); udi_fetch_registers(-1); printf_unfiltered("other pc1 = 0x%x, pc0 = 0x%x\n", *(int *)®isters[4 * PC_REGNUM], *(int *)®isters[4 * NPC_REGNUM]); /* Now, read all the registers globally */ From.Space = UDI29KGlobalRegs; From.Offset = 0; err = UDIRead(From, myregs, 256, 4, &CountDone, HostEndian); printf ("err = %d, CountDone = %d\n", err, CountDone); printf("\n"); for (i = 0; i < 256; i += 2) printf("%d:\t%#10x\t%11d\t%#10x\t%11d\n", i, myregs[i], myregs[i], myregs[i+1], myregs[i+1]); printf("\n"); return pc[0]; } #endif /********************************************************** UDI_FETCH_REGISTERS * Read a remote register 'regno'. * If regno==-1 then read all the registers. */ static void udi_fetch_registers (regno) int regno; { UDIResource From; UDIUInt32 *To; UDICount Count; UDISizeT Size = 4; UDICount CountDone; UDIBool HostEndian = 0; UDIError err; int i; if (regno >= 0) { fetch_register(regno); return; } /* Gr1/rsp */ From.Space = UDI29KGlobalRegs; From.Offset = 1; To = (UDIUInt32 *)®isters[4 * GR1_REGNUM]; Count = 1; if (err = UDIRead(From, To, Count, Size, &CountDone, HostEndian)) error("UDIRead() failed in udi_fetch_registers"); register_valid[GR1_REGNUM] = 1; #if defined(GR64_REGNUM) /* Read gr64-127 */ /* Global Registers gr64-gr95 */ From.Space = UDI29KGlobalRegs; From.Offset = 64; To = (UDIUInt32 *)®isters[4 * GR64_REGNUM]; Count = 32; if (err = UDIRead(From, To, Count, Size, &CountDone, HostEndian)) error("UDIRead() failed in udi_fetch_registers"); for (i = GR64_REGNUM; i < GR64_REGNUM + 32; i++) register_valid[i] = 1; #endif /* GR64_REGNUM */ /* Global Registers gr96-gr127 */ From.Space = UDI29KGlobalRegs; From.Offset = 96; To = (UDIUInt32 *)®isters[4 * GR96_REGNUM]; Count = 32; if (err = UDIRead(From, To, Count, Size, &CountDone, HostEndian)) error("UDIRead() failed in udi_fetch_registers"); for (i = GR96_REGNUM; i < GR96_REGNUM + 32; i++) register_valid[i] = 1; /* Local Registers */ From.Space = UDI29KLocalRegs; From.Offset = 0; To = (UDIUInt32 *)®isters[4 * LR0_REGNUM]; Count = 128; if (err = UDIRead(From, To, Count, Size, &CountDone, HostEndian)) error("UDIRead() failed in udi_fetch_registers"); for (i = LR0_REGNUM; i < LR0_REGNUM + 128; i++) register_valid[i] = 1; /* Protected Special Registers */ From.Space = UDI29KSpecialRegs; From.Offset = 0; To = (UDIUInt32 *)®isters[4 * SR_REGNUM(0)]; Count = 15; if (err = UDIRead(From, To, Count, Size, &CountDone, HostEndian)) error("UDIRead() failed in udi_fetch_registers"); for (i = SR_REGNUM(0); i < SR_REGNUM(0) + 15; i++) register_valid[i] = 1; if (USE_SHADOW_PC) { /* Let regno_to_srnum() handle the register number */ fetch_register(NPC_REGNUM); fetch_register(PC_REGNUM); fetch_register(PC2_REGNUM); /* Unprotected Special Registers sr128-sr135 */ From.Space = UDI29KSpecialRegs; From.Offset = 128; To = (UDIUInt32 *)®isters[4 * SR_REGNUM(128)]; Count = 135-128 + 1; if (err = UDIRead(From, To, Count, Size, &CountDone, HostEndian)) error("UDIRead() failed in udi_fetch_registers"); for (i = SR_REGNUM(128); i < SR_REGNUM(128) + 135-128+1; i++) register_valid[i] = 1; } if (remote_debug) { printf_unfiltered("Fetching all registers\n"); printf_unfiltered("Fetching PC0 = 0x%x, PC1 = 0x%x, PC2 = 0x%x\n", read_register(NPC_REGNUM), read_register(PC_REGNUM), read_register(PC2_REGNUM)); } /* There doesn't seem to be any way to get these. */ { int val = -1; supply_register (FPE_REGNUM, (char *) &val); supply_register (INTE_REGNUM, (char *) &val); supply_register (FPS_REGNUM, (char *) &val); supply_register (EXO_REGNUM, (char *) &val); } } /********************************************************* UDI_STORE_REGISTERS ** Store register regno into the target. * If regno==-1 then store all the registers. */ static void udi_store_registers (regno) int regno; { UDIUInt32 *From; UDIResource To; UDICount Count; UDISizeT Size = 4; UDICount CountDone; UDIBool HostEndian = 0; if (regno >= 0) { store_register(regno); return; } if (remote_debug) { printf_unfiltered("Storing all registers\n"); printf_unfiltered("PC0 = 0x%x, PC1 = 0x%x, PC2 = 0x%x\n", read_register(NPC_REGNUM), read_register(PC_REGNUM), read_register(PC2_REGNUM)); } /* Gr1/rsp */ From = (UDIUInt32 *)®isters[4 * GR1_REGNUM]; To.Space = UDI29KGlobalRegs; To.Offset = 1; Count = 1; if(UDIWrite(From, To, Count, Size, &CountDone, HostEndian)) error("UDIWrite() failed in udi_store_regisetrs"); #if defined(GR64_REGNUM) /* Global registers gr64-gr95 */ From = (UDIUInt32 *)®isters[4 * GR64_REGNUM]; To.Space = UDI29KGlobalRegs; To.Offset = 64; Count = 32; if(UDIWrite(From, To, Count, Size, &CountDone, HostEndian)) error("UDIWrite() failed in udi_store_regisetrs"); #endif /* GR64_REGNUM */ /* Global registers gr96-gr127 */ From = (UDIUInt32 *)®isters[4 * GR96_REGNUM]; To.Space = UDI29KGlobalRegs; To.Offset = 96; Count = 32; if(UDIWrite(From, To, Count, Size, &CountDone, HostEndian)) error("UDIWrite() failed in udi_store_regisetrs"); /* Local Registers */ From = (UDIUInt32 *)®isters[4 * LR0_REGNUM]; To.Space = UDI29KLocalRegs; To.Offset = 0; Count = 128; if(UDIWrite(From, To, Count, Size, &CountDone, HostEndian)) error("UDIWrite() failed in udi_store_regisetrs"); /* Protected Special Registers */ /* VAB through TMR */ From = (UDIUInt32 *)®isters[4 * SR_REGNUM(0)]; To.Space = UDI29KSpecialRegs; To.Offset = 0; Count = 10; if(UDIWrite(From, To, Count, Size, &CountDone, HostEndian)) error("UDIWrite() failed in udi_store_regisetrs"); /* PC0, PC1, PC2 possibly as shadow registers */ From = (UDIUInt32 *)®isters[4 * SR_REGNUM(10)]; To.Space = UDI29KSpecialRegs; Count = 3; if (USE_SHADOW_PC) To.Offset = 20; /* SPC0 */ else To.Offset = 10; /* PC0 */ if(UDIWrite(From, To, Count, Size, &CountDone, HostEndian)) error("UDIWrite() failed in udi_store_regisetrs"); /* PC1 via UDI29KPC */ From = (UDIUInt32 *)®isters[4 * PC_REGNUM]; To.Space = UDI29KPC; To.Offset = 0; /* PC1 */ Count = 1; if (UDIWrite (From, To, Count, Size, &CountDone, HostEndian)) error ("UDIWrite() failed in udi_store_regisetrs"); /* LRU and MMU */ From = (UDIUInt32 *)®isters[4 * SR_REGNUM(13)]; To.Space = UDI29KSpecialRegs; To.Offset = 13; Count = 2; if(UDIWrite(From, To, Count, Size, &CountDone, HostEndian)) error("UDIWrite() failed in udi_store_regisetrs"); /* Unprotected Special Registers */ From = (UDIUInt32 *)®isters[4 * SR_REGNUM(128)]; To.Space = UDI29KSpecialRegs; To.Offset = 128; Count = 135-128 +1; if(UDIWrite(From, To, Count, Size, &CountDone, HostEndian)) error("UDIWrite() failed in udi_store_regisetrs"); registers_changed (); } /****************************************************** UDI_PREPARE_TO_STORE */ /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void udi_prepare_to_store () { /* Do nothing, since we can store individual regs */ } /********************************************************** TRANSLATE_ADDR */ static CORE_ADDR translate_addr(addr) CORE_ADDR addr; { #if defined(ULTRA3) && defined(KERNEL_DEBUGGING) /* Check for a virtual address in the kernel */ /* Assume physical address of ublock is in paddr_u register */ /* FIXME: doesn't work for user virtual addresses */ if (addr >= UVADDR) { /* PADDR_U register holds the physical address of the ublock */ CORE_ADDR i = (CORE_ADDR)read_register(PADDR_U_REGNUM); return(i + addr - (CORE_ADDR)UVADDR); } else { return(addr); } #else return(addr); #endif } /************************************************* UDI_XFER_INFERIOR_MEMORY */ /* FIXME! Merge these two. */ static int udi_xfer_inferior_memory (memaddr, myaddr, len, write) CORE_ADDR memaddr; char *myaddr; int len; int write; { memaddr = translate_addr(memaddr); if (write) return udi_write_inferior_memory (memaddr, myaddr, len); else return udi_read_inferior_memory (memaddr, myaddr, len); } /********************************************************** UDI_FILES_INFO */ static void udi_files_info () { printf_unfiltered ("\tAttached to UDI socket to %s", udi_config_id); if (prog_name != NULL) printf_unfiltered ("and running program %s", prog_name); printf_unfiltered (".\n"); } /**************************************************** UDI_INSERT_BREAKPOINT */ static int udi_insert_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { int cnt; UDIError err; for (cnt = 0; cnt < BKPT_TABLE_SIZE; cnt++) if (bkpt_table[cnt].Type == 0) /* Find first free slot */ break; if(cnt >= BKPT_TABLE_SIZE) error("Too many breakpoints set"); bkpt_table[cnt].Addr.Offset = addr; bkpt_table[cnt].Addr.Space = UDI29KIRAMSpace; bkpt_table[cnt].PassCount = 1; bkpt_table[cnt].Type = UDIBreakFlagExecute; err = UDISetBreakpoint(bkpt_table[cnt].Addr, bkpt_table[cnt].PassCount, bkpt_table[cnt].Type, &bkpt_table[cnt].BreakId); if (err == 0) return 0; /* Success */ bkpt_table[cnt].Type = 0; error("UDISetBreakpoint returned error code %d\n", err); } /**************************************************** UDI_REMOVE_BREAKPOINT */ static int udi_remove_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { int cnt; UDIError err; for (cnt = 0; cnt < BKPT_TABLE_SIZE; cnt++) if (bkpt_table[cnt].Addr.Offset == addr) /* Find matching breakpoint */ break; if(cnt >= BKPT_TABLE_SIZE) error("Can't find breakpoint in table"); bkpt_table[cnt].Type = 0; err = UDIClearBreakpoint(bkpt_table[cnt].BreakId); if (err == 0) return 0; /* Success */ error("UDIClearBreakpoint returned error code %d\n", err); } static void udi_kill(arg,from_tty) char *arg; int from_tty; { #if 0 /* UDIStop does not really work as advertised. It causes the TIP to close it's connection, which usually results in GDB dying with a SIGPIPE. For now, we just invoke udi_close, which seems to get things right. */ UDIStop(); udi_session_id = -1; inferior_pid = 0; if (from_tty) printf_unfiltered("Target has been stopped."); #endif /* 0 */ #if 0 udi_close(0); pop_target(); #endif /* 0 */ /* Keep the target around, e.g. so "run" can do the right thing when we are already debugging something. */ if (UDIDisconnect (udi_session_id, UDITerminateSession)) { warning ("UDIDisconnect() failed"); } /* Do not try to close udi_session_id again, later in the program. */ udi_session_id = -1; inferior_pid = 0; } /* Load a program into the target. Args are: `program {options}'. The options are used to control loading of the program, and are NOT passed onto the loaded code as arguments. (You need to use the `run' command to do that.) The options are: -ms %d Set mem stack size to %d -rs %d Set regular stack size to %d -i send init info (default) -noi don't send init info -[tT] Load Text section -[dD] Load Data section -[bB] Load BSS section -[lL] Load Lit section */ static void download(load_arg_string, from_tty) char *load_arg_string; int from_tty; { #define DEFAULT_MEM_STACK_SIZE 0x6000 #define DEFAULT_REG_STACK_SIZE 0x2000 char *token; char *filename; asection *section; bfd *pbfd; UDIError err; int load_text = 1, load_data = 1, load_bss = 1, load_lit = 1; address_ranges[0].Space = UDI29KIRAMSpace; address_ranges[0].Offset = 0xffffffff; address_ranges[0].Size = 0; address_ranges[1].Space = UDI29KDRAMSpace; address_ranges[1].Offset = 0xffffffff; address_ranges[1].Size = 0; stack_sizes[0] = DEFAULT_REG_STACK_SIZE; stack_sizes[1] = DEFAULT_MEM_STACK_SIZE; dont_repeat (); filename = strtok(load_arg_string, " \t"); if (!filename) error ("Must specify at least a file name with the load command"); filename = tilde_expand (filename); make_cleanup (free, filename); while (token = strtok (NULL, " \t")) { if (token[0] == '-') { token++; if (STREQ (token, "ms")) stack_sizes[1] = atol (strtok (NULL, " \t")); else if (STREQ (token, "rs")) stack_sizes[0] = atol (strtok (NULL, " \t")); else { load_text = load_data = load_bss = load_lit = 0; while (*token) { switch (*token++) { case 't': case 'T': load_text = 1; break; case 'd': case 'D': load_data = 1; break; case 'b': case 'B': load_bss = 1; break; case 'l': case 'L': load_lit = 1; break; default: error ("Unknown UDI load option -%s", token-1); } } } } } pbfd = bfd_openr (filename, gnutarget); if (!pbfd) perror_with_name (filename); make_cleanup (bfd_close, pbfd); QUIT; immediate_quit++; if (!bfd_check_format (pbfd, bfd_object)) error ("It doesn't seem to be an object file"); for (section = pbfd->sections; section; section = section->next) { if (bfd_get_section_flags (pbfd, section) & SEC_ALLOC) { UDIResource To; UDICount Count; unsigned long section_size, section_end; const char *section_name; section_name = bfd_get_section_name (pbfd, section); if (STREQ (section_name, ".text") && !load_text) continue; else if (STREQ (section_name, ".data") && !load_data) continue; else if (STREQ (section_name, ".bss") && !load_bss) continue; else if (STREQ (section_name, ".lit") && !load_lit) continue; To.Offset = bfd_get_section_vma (pbfd, section); section_size = bfd_section_size (pbfd, section); section_end = To.Offset + section_size; if (section_size == 0) /* This is needed at least in the BSS case, where the code below starts writing before it even checks the size. */ continue; printf_unfiltered("[Loading section %s at %x (%d bytes)]\n", section_name, To.Offset, section_size); if (bfd_get_section_flags (pbfd, section) & SEC_CODE) { To.Space = UDI29KIRAMSpace; address_ranges[0].Offset = min (address_ranges[0].Offset, To.Offset); address_ranges[0].Size = max (address_ranges[0].Size, section_end - address_ranges[0].Offset); } else { To.Space = UDI29KDRAMSpace; address_ranges[1].Offset = min (address_ranges[1].Offset, To.Offset); address_ranges[1].Size = max (address_ranges[1].Size, section_end - address_ranges[1].Offset); } if (bfd_get_section_flags (pbfd, section) & SEC_LOAD) /* Text, data or lit */ { file_ptr fptr; fptr = 0; while (section_size > 0) { char buffer[1024]; Count = min (section_size, 1024); bfd_get_section_contents (pbfd, section, buffer, fptr, Count); err = UDIWrite ((UDIHostMemPtr)buffer, /* From */ To, /* To */ Count, /* Count */ (UDISizeT)1, /* Size */ &Count, /* CountDone */ (UDIBool)0); /* HostEndian */ if (err) error ("UDIWrite failed, error = %d", err); To.Offset += Count; fptr += Count; section_size -= Count; } } else /* BSS */ { UDIResource From; unsigned long zero = 0; /* Write a zero byte at the vma */ /* FIXME: Broken for sections of 1-3 bytes (we test for zero above). */ err = UDIWrite ((UDIHostMemPtr)&zero, /* From */ To, /* To */ (UDICount)1, /* Count */ (UDISizeT)4, /* Size */ &Count, /* CountDone */ (UDIBool)0); /* HostEndian */ if (err) error ("UDIWrite failed, error = %d", err); From = To; To.Offset+=4; /* Now, duplicate it for the length of the BSS */ err = UDICopy (From, /* From */ To, /* To */ (UDICount)(section_size/4 - 1), /* Count */ (UDISizeT)4, /* Size */ &Count, /* CountDone */ (UDIBool)1); /* Direction */ if (err) { char message[100]; int xerr; xerr = UDIGetErrorMsg(err, 100, message, &Count); if (!xerr) fprintf_unfiltered (gdb_stderr, "Error is %s\n", message); else fprintf_unfiltered (gdb_stderr, "xerr is %d\n", xerr); error ("UDICopy failed, error = %d", err); } } } } entry.Space = UDI29KIRAMSpace; entry.Offset = bfd_get_start_address (pbfd); immediate_quit--; } /* User interface to download an image into the remote target. See download() * for details on args. */ static void udi_load(args, from_tty) char *args; int from_tty; { download (args, from_tty); symbol_file_add (strtok (args, " \t"), from_tty, 0, 0, 0, 0); } /*************************************************** UDI_WRITE_INFERIOR_MEMORY ** Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. Returns number of bytes written. */ static int udi_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int nwritten = 0; UDIUInt32 *From; UDIResource To; UDICount Count; UDISizeT Size = 1; UDICount CountDone = 0; UDIBool HostEndian = 0; To.Space = udi_memory_space(memaddr); From = (UDIUInt32*)myaddr; while (nwritten < len) { Count = len - nwritten; if (Count > MAXDATA) Count = MAXDATA; To.Offset = memaddr + nwritten; if(UDIWrite(From, To, Count, Size, &CountDone, HostEndian)) { error("UDIWrite() failed in udi_write_inferrior_memory"); break; } else { nwritten += CountDone; From += CountDone; } } return(nwritten); } /**************************************************** UDI_READ_INFERIOR_MEMORY ** Read LEN bytes from inferior memory at MEMADDR. Put the result at debugger address MYADDR. Returns number of bytes read. */ static int udi_read_inferior_memory(memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { int nread = 0; UDIResource From; UDIUInt32 *To; UDICount Count; UDISizeT Size = 1; UDICount CountDone = 0; UDIBool HostEndian = 0; UDIError err; From.Space = udi_memory_space(memaddr); To = (UDIUInt32*)myaddr; while (nread < len) { Count = len - nread; if (Count > MAXDATA) Count = MAXDATA; From.Offset = memaddr + nread; if(err = UDIRead(From, To, Count, Size, &CountDone, HostEndian)) { error("UDIRead() failed in udi_read_inferrior_memory"); break; } else { nread += CountDone; To += CountDone; } } return(nread); } /********************************************************************* WARNING */ udi_warning(num) int num; { error ("ERROR while loading program into remote TIP: $d\n", num); } /*****************************************************************************/ /* Fetch a single register indicatated by 'regno'. * Returns 0/-1 on success/failure. */ static void fetch_register (regno) int regno; { UDIResource From; UDIUInt32 To; UDICount Count = 1; UDISizeT Size = 4; UDICount CountDone; UDIBool HostEndian = 0; UDIError err; int result; if (regno == GR1_REGNUM) { From.Space = UDI29KGlobalRegs; From.Offset = 1; } else if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32) { From.Space = UDI29KGlobalRegs; From.Offset = (regno - GR96_REGNUM) + 96;; } #if defined(GR64_REGNUM) else if (regno >= GR64_REGNUM && regno < GR64_REGNUM + 32 ) { From.Space = UDI29KGlobalRegs; From.Offset = (regno - GR64_REGNUM) + 64; } #endif /* GR64_REGNUM */ else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128) { From.Space = UDI29KLocalRegs; From.Offset = (regno - LR0_REGNUM); } else if (regno>=FPE_REGNUM && regno<=EXO_REGNUM) { int val = -1; supply_register(160 + (regno - FPE_REGNUM),(char *) &val); return; /* Pretend Success */ } else { From.Space = UDI29KSpecialRegs; From.Offset = regnum_to_srnum(regno); } if (err = UDIRead(From, &To, Count, Size, &CountDone, HostEndian)) error("UDIRead() failed in udi_fetch_registers"); supply_register(regno, (char *) &To); if (remote_debug) printf_unfiltered("Fetching register %s = 0x%x\n", reg_names[regno], To); } /*****************************************************************************/ /* Store a single register indicated by 'regno'. * Returns 0/-1 on success/failure. */ static int store_register (regno) int regno; { int result; UDIUInt32 From; UDIResource To; UDICount Count = 1; UDISizeT Size = 4; UDICount CountDone; UDIBool HostEndian = 0; From = read_register (regno); /* get data value */ if (remote_debug) printf_unfiltered("Storing register %s = 0x%x\n", reg_names[regno], From); if (regno == GR1_REGNUM) { To.Space = UDI29KGlobalRegs; To.Offset = 1; result = UDIWrite(&From, To, Count, Size, &CountDone, HostEndian); /* Setting GR1 changes the numbers of all the locals, so invalidate the * register cache. Do this *after* calling read_register, because we want * read_register to return the value that write_register has just stuffed * into the registers array, not the value of the register fetched from * the inferior. */ registers_changed (); } #if defined(GR64_REGNUM) else if (regno >= GR64_REGNUM && regno < GR64_REGNUM + 32 ) { To.Space = UDI29KGlobalRegs; To.Offset = (regno - GR64_REGNUM) + 64; result = UDIWrite(&From, To, Count, Size, &CountDone, HostEndian); } #endif /* GR64_REGNUM */ else if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32) { To.Space = UDI29KGlobalRegs; To.Offset = (regno - GR96_REGNUM) + 96; result = UDIWrite(&From, To, Count, Size, &CountDone, HostEndian); } else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128) { To.Space = UDI29KLocalRegs; To.Offset = (regno - LR0_REGNUM); result = UDIWrite(&From, To, Count, Size, &CountDone, HostEndian); } else if (regno >= FPE_REGNUM && regno <= EXO_REGNUM) return 0; /* Pretend Success */ else if (regno == PC_REGNUM) { /* PC1 via UDI29KPC */ To.Space = UDI29KPC; To.Offset = 0; /* PC1 */ result = UDIWrite (&From, To, Count, Size, &CountDone, HostEndian); /* Writing to this loc actually changes the values of pc0 & pc1 */ register_valid[PC_REGNUM] = 0; /* pc1 */ register_valid[NPC_REGNUM] = 0; /* pc0 */ } else /* An unprotected or protected special register */ { To.Space = UDI29KSpecialRegs; To.Offset = regnum_to_srnum(regno); result = UDIWrite(&From, To, Count, Size, &CountDone, HostEndian); } if (result != 0) error("UDIWrite() failed in store_registers"); return 0; } /********************************************************** REGNUM_TO_SRNUM */ /* * Convert a gdb special register number to a 29000 special register number. */ static int regnum_to_srnum(regno) int regno; { switch(regno) { case VAB_REGNUM: return(0); case OPS_REGNUM: return(1); case CPS_REGNUM: return(2); case CFG_REGNUM: return(3); case CHA_REGNUM: return(4); case CHD_REGNUM: return(5); case CHC_REGNUM: return(6); case RBP_REGNUM: return(7); case TMC_REGNUM: return(8); case TMR_REGNUM: return(9); case NPC_REGNUM: return(USE_SHADOW_PC ? (20) : (10)); case PC_REGNUM: return(USE_SHADOW_PC ? (21) : (11)); case PC2_REGNUM: return(USE_SHADOW_PC ? (22) : (12)); case MMU_REGNUM: return(13); case LRU_REGNUM: return(14); case IPC_REGNUM: return(128); case IPA_REGNUM: return(129); case IPB_REGNUM: return(130); case Q_REGNUM: return(131); case ALU_REGNUM: return(132); case BP_REGNUM: return(133); case FC_REGNUM: return(134); case CR_REGNUM: return(135); case FPE_REGNUM: return(160); case INTE_REGNUM: return(161); case FPS_REGNUM: return(162); case EXO_REGNUM:return(164); default: return(255); /* Failure ? */ } } /****************************************************************************/ /* * Determine the Target memory space qualifier based on the addr. * FIXME: Can't distinguis I_ROM/D_ROM. * FIXME: Doesn't know anything about I_CACHE/D_CACHE. */ static CPUSpace udi_memory_space(addr) CORE_ADDR addr; { UDIUInt32 tstart = IMemStart; UDIUInt32 tend = tstart + IMemSize; UDIUInt32 dstart = DMemStart; UDIUInt32 dend = tstart + DMemSize; UDIUInt32 rstart = RMemStart; UDIUInt32 rend = tstart + RMemSize; if (((UDIUInt32)addr >= tstart) && ((UDIUInt32)addr < tend)) { return UDI29KIRAMSpace; } else if (((UDIUInt32)addr >= dstart) && ((UDIUInt32)addr < dend)) { return UDI29KDRAMSpace; } else if (((UDIUInt32)addr >= rstart) && ((UDIUInt32)addr < rend)) { /* FIXME: how do we determine between D_ROM and I_ROM */ return UDI29KIROMSpace; } else /* FIXME: what do me do now? */ return UDI29KDRAMSpace; /* Hmmm! */ } /*********************************************************************** STUBS */ void convert16() {;} void convert32() {;} GDB_FILE * EchoFile = 0; /* used for debugging */ int QuietMode = 0; /* used for debugging */ #ifdef NO_HIF_SUPPORT service_HIF(msg) union msg_t *msg; { return(0); /* Emulate a failure */ } #endif /* Target_ops vector. Not static because there does not seem to be any portable way to do a forward declaration of a static variable. The RS/6000 doesn't like "extern" followed by "static"; SunOS /bin/cc doesn't like "static" twice. */ struct target_ops udi_ops = { "udi", "Remote UDI connected TIP", "Remote debug an AMD 29k using UDI socket connection to TIP process.\n\ Arguments are\n\ `configuration-id AF_INET hostname port-number'\n\ To connect via the network, where hostname and port-number specify the\n\ host and port where you can connect via UDI.\n\ configuration-id is unused.\n\ \n\ `configuration-id AF_UNIX socket-name tip-program'\n\ To connect using a local connection to the \"tip.exe\" program which is\n\ supplied by AMD. If socket-name specifies an AF_UNIX socket then the\n\ tip program must already be started; connect to it using that socket.\n\ If not, start up tip-program, which should be the name of the tip\n\ program. If appropriate, the PATH environment variable is searched.\n\ configuration-id is unused.\n\ \n\ `configuration-id'\n\ Look up the configuration in ./udi_soc or /etc/udi_soc, which\n\ are files containing lines in the above formats. configuration-id is\n\ used to pick which line of the file to use.", udi_open, udi_close, udi_attach, udi_detach, udi_resume, udi_wait, udi_fetch_registers, udi_store_registers, udi_prepare_to_store, udi_xfer_inferior_memory, udi_files_info, udi_insert_breakpoint, udi_remove_breakpoint, 0, /* termial_init */ 0, /* terminal_inferior */ 0, /* terminal_ours_for_output */ 0, /* terminal_ours */ 0, /* terminal_info */ udi_kill, /* FIXME, kill */ udi_load, 0, /* lookup_symbol */ udi_create_inferior, udi_mourn, /* mourn_inferior FIXME */ 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, /* has_all_memory */ 1, /* has_memory */ 1, /* has_stack */ 1, /* has_registers */ 1, /* has_execution */ 0, /* sections */ 0, /* sections_end */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_remote_udi () { add_target (&udi_ops); } gdb-4.13/gdb/remote-utils.c 666 34562 1752 36113 5533617011 14113 0ustar fnfcygnus/* Generic support for remote debugging interfaces. Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file actually contains two distinct logical "packages". They are packaged together in this one file because they are typically used together. The first package is an addition to the serial package. The addition provides reading and writing with debugging output and timeouts based on user settable variables. These routines are intended to support serial port based remote backends. These functions are prefixed with sr_. The second package is a collection of more or less generic functions for use by remote backends. They support user settable variables for debugging, retries, and the like. Todo: * a pass through mode a la kermit or telnet. * autobaud. * ask remote to change his baud rate. */ #include #include "defs.h" #include #include "gdbcmd.h" #include "target.h" #include "serial.h" #include "gdbcore.h" /* for exec_bfd */ #include "inferior.h" /* for generic_mourn_inferior */ #include "remote-utils.h" struct _sr_settings sr_settings = { 4, /* timeout: remote-hms.c had 2 remote-bug.c had "with a timeout of 2, we time out waiting for the prompt after an s-record dump." remote.c had (2): This was 5 seconds, which is a long time to sit and wait. Unless this is going though some terminal server or multiplexer or other form of hairy serial connection, I would think 2 seconds would be plenty. */ 10, /* retries */ NULL, /* device */ NULL, /* descriptor */ }; struct gr_settings *gr_settings = NULL; static void usage(proto, junk) char *proto; char *junk; { if (junk != NULL) fprintf_unfiltered(gdb_stderr, "Unrecognized arguments: `%s'.\n", junk); error ("Usage: target %s [DEVICE [SPEED [DEBUG]]]\n\ where DEVICE is the name of a device or HOST:PORT", proto, proto); return; } #define CHECKDONE(p, q) \ { \ if (q == p) \ { \ if (*p == '\0') \ return; \ else \ usage(proto, p); \ } \ } void sr_scan_args(proto, args) char *proto; char *args; { int n; char *p, *q; extern int strtol(); /* if no args, then nothing to do. */ if (args == NULL || *args == '\0') return; /* scan off white space. */ for (p = args; isspace(*p); ++p) ;; /* find end of device name. */ for (q = p; *q != '\0' && !isspace(*q); ++q) ;; /* check for missing or empty device name. */ CHECKDONE(p, q); sr_set_device(savestring(p, q - p)); /* look for baud rate. */ n = strtol(q, &p, 10); /* check for missing or empty baud rate. */ CHECKDONE(p, q); baud_rate = n; /* look for debug value. */ n = strtol(p, &q, 10); /* check for missing or empty debug value. */ CHECKDONE(p, q); sr_set_debug(n); /* scan off remaining white space. */ for (p = q; isspace(*p); ++p) ;; /* if not end of string, then there's unrecognized junk. */ if (*p != '\0') usage(proto, p); return; } void gr_generic_checkin() { sr_write_cr(""); gr_expect_prompt(); } void gr_open(args, from_tty, gr) char *args; int from_tty; struct gr_settings *gr; { target_preopen(from_tty); sr_scan_args(gr->ops->to_shortname, args); unpush_target(gr->ops); gr_settings = gr; gr_set_dcache(dcache_init(gr->readfunc, gr->writefunc)); if (sr_get_desc() != NULL) gr_close (0); /* If no args are specified, then we use the device specified by a previous command or "set remotedevice". But if there is no device, better stop now, not dump core. */ if (sr_get_device () == NULL) usage (gr->ops->to_shortname, NULL); sr_set_desc(SERIAL_OPEN (sr_get_device())); if (!sr_get_desc()) perror_with_name((char *) sr_get_device()); if (baud_rate != -1) { if (SERIAL_SETBAUDRATE(sr_get_desc(), baud_rate) != 0) { SERIAL_CLOSE(sr_get_desc()); perror_with_name(sr_get_device()); } } SERIAL_RAW (sr_get_desc()); /* If there is something sitting in the buffer we might take it as a response to a command, which would be bad. */ SERIAL_FLUSH_INPUT (sr_get_desc ()); /* default retries */ if (sr_get_retries() == 0) sr_set_retries(1); /* default clear breakpoint function */ if (gr_settings->clear_all_breakpoints == NULL) gr_settings->clear_all_breakpoints = remove_breakpoints; if (from_tty) { printf_filtered ("Remote debugging using `%s'", sr_get_device ()); if (baud_rate != -1) printf_filtered (" at baud rate of %d", baud_rate); printf_filtered ("\n"); } push_target(gr->ops); gr_checkin(); gr_clear_all_breakpoints (); return; } /* Read a character from the remote system masking it down to 7 bits and doing all the fancy timeout stuff. */ int sr_readchar () { int buf; buf = SERIAL_READCHAR (sr_get_desc(), sr_get_timeout()); if (buf == SERIAL_TIMEOUT) error ("Timeout reading from remote system."); if (sr_get_debug() > 0) printf_unfiltered ("%c", buf); return buf & 0x7f; } int sr_pollchar() { int buf; buf = SERIAL_READCHAR (sr_get_desc(), 0); if (buf == SERIAL_TIMEOUT) buf = 0; if (sr_get_debug() > 0) if (buf) printf_unfiltered ("%c", buf); else printf_unfiltered (""); return buf & 0x7f; } /* Keep discarding input from the remote system, until STRING is found. Let the user break out immediately. */ void sr_expect (string) char *string; { char *p = string; immediate_quit = 1; while (1) { if (sr_readchar () == *p) { p++; if (*p == '\0') { immediate_quit = 0; return; } } else p = string; } } void sr_write (a, l) char *a; int l; { int i; if (SERIAL_WRITE (sr_get_desc(), a, l) != 0) perror_with_name ("sr_write: Error writing to remote"); if (sr_get_debug() > 0) for (i = 0; i < l; i++) printf_unfiltered ("%c", a[i]); return; } void sr_write_cr (s) char *s; { sr_write (s, strlen (s)); sr_write ("\r", 1); return; } int sr_timed_read (buf, n) char *buf; int n; { int i; char c; i = 0; while (i < n) { c = sr_readchar (); if (c == 0) return i; buf[i] = c; i++; } return i; } /* Get a hex digit from the remote system & return its value. If ignore_space is nonzero, ignore spaces (not newline, tab, etc). */ int sr_get_hex_digit (ignore_space) int ignore_space; { int ch; while (1) { ch = sr_readchar (); if (ch >= '0' && ch <= '9') return ch - '0'; else if (ch >= 'A' && ch <= 'F') return ch - 'A' + 10; else if (ch >= 'a' && ch <= 'f') return ch - 'a' + 10; else if (ch != ' ' || !ignore_space) { gr_expect_prompt (); error ("Invalid hex digit from remote system."); } } } /* Get a byte from the remote and put it in *BYT. Accept any number leading spaces. */ void sr_get_hex_byte (byt) char *byt; { int val; val = sr_get_hex_digit (1) << 4; val |= sr_get_hex_digit (0); *byt = val; } /* Read a 32-bit hex word from the remote, preceded by a space */ long sr_get_hex_word () { long val; int j; val = 0; for (j = 0; j < 8; j++) val = (val << 4) + sr_get_hex_digit (j == 0); return val; } /* Put a command string, in args, out to the remote. The remote is assumed to be in raw mode, all writing/reading done through desc. Ouput from the remote is placed on the users terminal until the prompt from the remote is seen. FIXME: Can't handle commands that take input. */ void sr_com (args, fromtty) char *args; int fromtty; { sr_check_open (); if (!args) return; /* Clear all input so only command relative output is displayed */ sr_write_cr (args); sr_write ("\030", 1); gr_expect_prompt (); } void gr_close(quitting) int quitting; { gr_clear_all_breakpoints(); if (sr_is_open()) { SERIAL_CLOSE (sr_get_desc()); sr_set_desc(NULL); } return; } /* gr_detach() takes a program previously attached to and detaches it. We better not have left any breakpoints in the program or it'll die when it hits one. Close the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ void gr_detach(args, from_tty) char *args; int from_tty; { if (args) error ("Argument given to \"detach\" when remotely debugging."); if (sr_is_open()) gr_clear_all_breakpoints (); pop_target (); if (from_tty) puts_filtered ("Ending remote debugging.\n"); return; } void gr_files_info (ops) struct target_ops *ops; { #ifdef __GO32__ printf_filtered ("\tAttached to DOS asynctsr\n"); #else printf_filtered ("\tAttached to %s", sr_get_device()); if (baud_rate != -1) printf_filtered ("at %d baud", baud_rate); printf_filtered ("\n"); #endif if (exec_bfd) { printf_filtered ("\tand running program %s\n", bfd_get_filename (exec_bfd)); } printf_filtered ("\tusing the %s protocol.\n", ops->to_shortname); } void gr_mourn () { gr_clear_all_breakpoints (); unpush_target (gr_get_ops()); generic_mourn_inferior (); } void gr_kill () { return; } /* This is called not only when we first attach, but also when the user types "run" after having attached. */ void gr_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; if (args && *args) error ("Can't pass arguments to remote process."); if (execfile == 0 || exec_bfd == 0) error ("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); sr_check_open (); gr_kill (); gr_clear_all_breakpoints (); init_wait_for_inferior (); gr_checkin(); insert_breakpoints (); /* Needed to get correct instruction in cache */ proceed (entry_pt, -1, 0); } /* Given a null terminated list of strings LIST, read the input until we find one of them. Return the index of the string found or -1 on error. '?' means match any single character. Note that with the algorithm we use, the initial character of the string cannot recur in the string, or we will not find some cases of the string in the input. If PASSTHROUGH is non-zero, then pass non-matching data on. */ int gr_multi_scan (list, passthrough) char *list[]; int passthrough; { char *swallowed = NULL; /* holding area */ char *swallowed_p = swallowed; /* Current position in swallowed. */ int ch; int ch_handled; int i; int string_count; int max_length; char **plist; /* Look through the strings. Count them. Find the largest one so we can allocate a holding area. */ for (max_length = string_count = i = 0; list[i] != NULL; ++i, ++string_count) { int length = strlen(list[i]); if (length > max_length) max_length = length; } /* if we have no strings, then something is wrong. */ if (string_count == 0) return(-1); /* otherwise, we will need a holding area big enough to hold almost two copies of our largest string. */ swallowed_p = swallowed = alloca(max_length << 1); /* and a list of pointers to current scan points. */ plist = (char **) alloca (string_count * sizeof(*plist)); /* and initialize */ for (i = 0; i < string_count; ++i) plist[i] = list[i]; for (ch = sr_readchar(); /* loop forever */ ; ch = sr_readchar()) { QUIT; /* Let user quit and leave process running */ ch_handled = 0; for (i = 0; i < string_count; ++i) { if (ch == *plist[i] || *plist[i] == '?') { ++plist[i]; if (*plist[i] == '\0') return(i); if (!ch_handled) *swallowed_p++ = ch; ch_handled = 1; } else plist[i] = list[i]; } if (!ch_handled) { char *p; /* Print out any characters which have been swallowed. */ if (passthrough) { for (p = swallowed; p < swallowed_p; ++p) fputc_unfiltered (*p, gdb_stdout); fputc_unfiltered (ch, gdb_stdout); } swallowed_p = swallowed; } } #if 0 /* Never reached. */ return(-1); #endif } /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ void gr_prepare_to_store () { /* Do nothing, since we assume we can store individual regs */ } /* Read a word from remote address ADDR and return it. * This goes through the data cache. */ int gr_fetch_word (addr) CORE_ADDR addr; { return dcache_fetch (gr_get_dcache(), addr); } /* Write a word WORD into remote address ADDR. This goes through the data cache. */ void gr_store_word (addr, word) CORE_ADDR addr; int word; { dcache_poke (gr_get_dcache(), addr, word); } /* general purpose load a file specified on the command line into target memory. */ void gr_load_image (args, fromtty) char *args; int fromtty; { bfd *abfd; asection *s; struct cleanup *old_cleanups; int delta = 4096; char *buffer = xmalloc (delta); abfd = bfd_openr (args, (char *) 0); if (!abfd) perror_with_name (args); old_cleanups = make_cleanup (bfd_close, abfd); QUIT; if (!bfd_check_format (abfd, bfd_object)) error ("It doesn't seem to be an object file.\n"); for (s = abfd->sections; s && !quit_flag; s = s->next) { if (bfd_get_section_flags (abfd, s) & SEC_LOAD) { int i; printf_filtered ("%s\t: 0x%4x .. 0x%4x ", s->name, s->vma, s->vma + s->_raw_size); fflush (stdout); for (i = 0; i < s->_raw_size && !quit_flag; i += delta) { int sub_delta = delta; if (sub_delta > s->_raw_size - i) sub_delta = s->_raw_size - i; QUIT; bfd_get_section_contents (abfd, s, buffer, i, sub_delta); target_write_memory (s->vma + i, buffer, sub_delta); printf_filtered ("*"); fflush (stdout); } printf_filtered ("\n"); } } free (buffer); write_pc (bfd_get_start_address (abfd)); bfd_close (abfd); discard_cleanups (old_cleanups); } void _initialize_sr_support () { /* FIXME-now: if target is open... */ add_show_from_set (add_set_cmd ("remotedevice", no_class, var_filename, (char *)&sr_settings.device, "Set device for remote serial I/O.\n\ This device is used as the serial port when debugging using remote\n\ targets.", &setlist), &showlist); add_com ("remote ", class_obscure, sr_com, "Send a command to the remote monitor."); } gdb-4.13/gdb/remote-utils.h 666 34562 1752 11024 5533525523 14120 0ustar fnfcygnus/* Generic support for remote debugging interfaces. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef REMOTE_UTILS_H #define REMOTE_UTILS_H #include "serial.h" #include "target.h" #include "dcache.h" /* Stuff that should be shared (and handled consistently) among the various remote targets. */ struct _sr_settings { unsigned int timeout; int retries; char *device; serial_t desc; }; extern struct _sr_settings sr_settings; /* get and set debug value. */ #define sr_get_debug() (remote_debug) #define sr_set_debug(newval) (remote_debug = (newval)) /* get and set timeout. */ #define sr_get_timeout() (sr_settings.timeout) #define sr_set_timeout(newval) (sr_settings.timeout = (newval)) /* get and set device. */ #define sr_get_device() (sr_settings.device) #define sr_set_device(newval) \ { \ if (sr_settings.device) free(sr_settings.device); \ sr_settings.device = (newval); \ } /* get and set descriptor value. */ #define sr_get_desc() (sr_settings.desc) #define sr_set_desc(newval) (sr_settings.desc = (newval)) /* get and set retries. */ #define sr_get_retries() (sr_settings.retries) #define sr_set_retries(newval) (sr_settings.retries = (newval)) #define sr_is_open() (sr_settings.desc != NULL) #define sr_check_open() { if (!sr_is_open()) \ error ("Remote device not open"); } struct gr_settings { /* This is our data cache. */ DCACHE *dcache; char *prompt; struct target_ops *ops; int (*clear_all_breakpoints)PARAMS((void)); memxferfunc readfunc; memxferfunc writefunc; void (*checkin)PARAMS((void)); }; extern struct gr_settings *gr_settings; /* get and set dcache. */ #define gr_get_dcache() (gr_settings->dcache) #define gr_set_dcache(newval) (gr_settings->dcache = (newval)) /* get and set prompt. */ #define gr_get_prompt() (gr_settings->prompt) #define gr_set_prompt(newval) (gr_settings->prompt = (newval)) /* get and set ops. */ #define gr_get_ops() (gr_settings->ops) #define gr_set_ops(newval) (gr_settings->ops = (newval)) #define gr_clear_all_breakpoints() ((gr_settings->clear_all_breakpoints)()) #define gr_checkin() ((gr_settings->checkin)()) /* Keep discarding input until we see the prompt. The convention for dealing with the prompt is that you o give your command o *then* wait for the prompt. Thus the last thing that a procedure does with the serial line will be an gr_expect_prompt(). Exception: resume does not wait for the prompt, because the terminal is being handed over to the inferior. However, the next thing which happens after that is a bug_wait which does wait for the prompt. Note that this includes abnormal exit, e.g. error(). This is necessary to prevent getting into states from which we can't recover. */ #define gr_expect_prompt() sr_expect(gr_get_prompt()) int gr_fetch_word PARAMS((CORE_ADDR addr)); int gr_multi_scan PARAMS((char *list[], int passthrough)); int sr_get_hex_digit PARAMS((int ignore_space)); int sr_pollchar PARAMS((void)); int sr_readchar PARAMS((void)); int sr_timed_read PARAMS((char *buf, int n)); long sr_get_hex_word PARAMS((void)); void gr_close PARAMS((int quitting)); void gr_create_inferior PARAMS((char *execfile, char *args, char **env)); void gr_detach PARAMS((char *args, int from_tty)); void gr_files_info PARAMS((struct target_ops *ops)); void gr_generic_checkin PARAMS((void)); void gr_kill PARAMS((void)); void gr_mourn PARAMS((void)); void gr_prepare_to_store PARAMS((void)); void gr_store_word PARAMS((CORE_ADDR addr, int word)); void sr_expect PARAMS((char *string)); void sr_get_hex_byte PARAMS((char *byt)); void sr_scan_args PARAMS((char *proto, char *args)); void sr_write PARAMS((char *a, int l)); void sr_write_cr PARAMS((char *s)); void gr_open PARAMS((char *args, int from_tty, struct gr_settings *gr_settings)); void gr_load_image PARAMS((char*, int from_tty)); #endif /* REMOTE_UTILS_H */ gdb-4.13/gdb/remote-vx.c 666 34562 1752 106041 5521606132 13425 0ustar fnfcygnus/* Memory-access and commands for remote VxWorks processes, for GDB. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. Contributed by Wind River Systems and Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "wait.h" #include "target.h" #include "gdbcore.h" #include "command.h" #include "symtab.h" #include "complaints.h" #include "gdbcmd.h" #include #include #include #include #include #include #define malloc bogon_malloc /* Sun claims "char *malloc()" not void * */ #define free bogon_free /* Sun claims "int free()" not void */ #define realloc bogon_realloc /* Sun claims "char *realloc()", not void * */ #include #undef malloc #undef free #undef realloc #include /* UTek's doesn't #incl this */ #include #include "vx-share/ptrace.h" #include "vx-share/xdr_ptrace.h" #include "vx-share/xdr_ld.h" #include "vx-share/xdr_rdb.h" #include "vx-share/dbgRpcLib.h" #include extern void symbol_file_command (); extern int stop_soon_quietly; /* for wait_for_inferior */ static int net_ptrace_clnt_call (); /* Forward decl */ static enum clnt_stat net_clnt_call (); /* Forward decl */ extern struct target_ops vx_ops, vx_run_ops; /* Forward declaration */ /* Saved name of target host and called function for "info files". Both malloc'd. */ static char *vx_host; static char *vx_running; /* Called function */ /* Nonzero means target that is being debugged remotely has a floating point processor. */ static int target_has_fp; /* Default error message when the network is forking up. */ static const char rpcerr[] = "network target debugging: rpc error"; CLIENT *pClient; /* client used in net debugging */ static int ptraceSock = RPC_ANYSOCK; enum clnt_stat net_clnt_call(); static void parse_args (); static struct timeval rpcTimeout = { 10, 0 }; static char *skip_white_space (); static char *find_white_space (); /* Tell the VxWorks target system to download a file. The load addresses of the text, data, and bss segments are stored in *pTextAddr, *pDataAddr, and *pBssAddr (respectively). Returns 0 for success, -1 for failure. */ static int net_load (filename, pTextAddr, pDataAddr, pBssAddr) char *filename; CORE_ADDR *pTextAddr; CORE_ADDR *pDataAddr; CORE_ADDR *pBssAddr; { enum clnt_stat status; struct ldfile ldstruct; struct timeval load_timeout; memset ((char *) &ldstruct, '\0', sizeof (ldstruct)); /* We invoke clnt_call () here directly, instead of through net_clnt_call (), because we need to set a large timeout value. The load on the target side can take quite a while, easily more than 10 seconds. The user can kill this call by typing CTRL-C if there really is a problem with the load. Do not change the tv_sec value without checking -- select() imposes a limit of 10**8 on it for no good reason that I can see... */ load_timeout.tv_sec = 99999999; /* A large number, effectively inf. */ load_timeout.tv_usec = 0; status = clnt_call (pClient, VX_LOAD, xdr_wrapstring, &filename, xdr_ldfile, &ldstruct, load_timeout); if (status == RPC_SUCCESS) { if (*ldstruct.name == 0) /* load failed on VxWorks side */ return -1; *pTextAddr = ldstruct.txt_addr; *pDataAddr = ldstruct.data_addr; *pBssAddr = ldstruct.bss_addr; return 0; } else return -1; } /* returns 0 if successful, errno if RPC failed or VxWorks complains. */ static int net_break (addr, procnum) int addr; u_long procnum; { enum clnt_stat status; int break_status; Rptrace ptrace_in; /* XXX This is stupid. It doesn't need to be a ptrace structure. How about something smaller? */ memset ((char *) &ptrace_in, '\0', sizeof (ptrace_in)); break_status = 0; ptrace_in.addr = addr; ptrace_in.pid = inferior_pid; status = net_clnt_call (procnum, xdr_rptrace, &ptrace_in, xdr_int, &break_status); if (status != RPC_SUCCESS) return errno; if (break_status == -1) return ENOMEM; return break_status; /* probably (FIXME) zero */ } /* returns 0 if successful, errno otherwise */ static int vx_insert_breakpoint (addr) int addr; { return net_break (addr, VX_BREAK_ADD); } /* returns 0 if successful, errno otherwise */ static int vx_remove_breakpoint (addr) int addr; { return net_break (addr, VX_BREAK_DELETE); } /* Start an inferior process and sets inferior_pid to its pid. EXEC_FILE is the file to run. ALLARGS is a string containing the arguments to the program. ENV is the environment vector to pass. Returns process id. Errors reported with error(). On VxWorks, we ignore exec_file. */ static void vx_create_inferior (exec_file, args, env) char *exec_file; char *args; char **env; { enum clnt_stat status; arg_array passArgs; TASK_START taskStart; memset ((char *) &passArgs, '\0', sizeof (passArgs)); memset ((char *) &taskStart, '\0', sizeof (taskStart)); /* parse arguments, put them in passArgs */ parse_args (args, &passArgs); if (passArgs.arg_array_len == 0) error ("You must specify a function name to run, and arguments if any"); status = net_clnt_call (PROCESS_START, xdr_arg_array, &passArgs, xdr_TASK_START, &taskStart); if ((status != RPC_SUCCESS) || (taskStart.status == -1)) error ("Can't create process on remote target machine"); /* Save the name of the running function */ vx_running = savestring (passArgs.arg_array_val[0], strlen (passArgs.arg_array_val[0])); push_target (&vx_run_ops); inferior_pid = taskStart.pid; /* We will get a trace trap after one instruction. Insert breakpoints and continue. */ init_wait_for_inferior (); /* Set up the "saved terminal modes" of the inferior based on what modes we are starting it with. */ target_terminal_init (); /* Install inferior's terminal modes. */ target_terminal_inferior (); stop_soon_quietly = 1; wait_for_inferior (); /* Get the task spawn event */ stop_soon_quietly = 0; /* insert_step_breakpoint (); FIXME, do we need this? */ proceed (-1, TARGET_SIGNAL_DEFAULT, 0); } /* Fill ARGSTRUCT in argc/argv form with the arguments from the argument string ARGSTRING. */ static void parse_args (arg_string, arg_struct) register char *arg_string; arg_array *arg_struct; { register int arg_count = 0; /* number of arguments */ register int arg_index = 0; register char *p0; memset ((char *) arg_struct, '\0', sizeof (arg_array)); /* first count how many arguments there are */ p0 = arg_string; while (*p0 != '\0') { if (*(p0 = skip_white_space (p0)) == '\0') break; p0 = find_white_space (p0); arg_count++; } arg_struct->arg_array_len = arg_count; arg_struct->arg_array_val = (char **) xmalloc ((arg_count + 1) * sizeof (char *)); /* now copy argument strings into arg_struct. */ while (*(arg_string = skip_white_space (arg_string))) { p0 = find_white_space (arg_string); arg_struct->arg_array_val[arg_index++] = savestring (arg_string, p0 - arg_string); arg_string = p0; } arg_struct->arg_array_val[arg_count] = NULL; } /* Advance a string pointer across whitespace and return a pointer to the first non-white character. */ static char * skip_white_space (p) register char *p; { while (*p == ' ' || *p == '\t') p++; return p; } /* Search for the first unquoted whitespace character in a string. Returns a pointer to the character, or to the null terminator if no whitespace is found. */ static char * find_white_space (p) register char *p; { register int c; while ((c = *p) != ' ' && c != '\t' && c) { if (c == '\'' || c == '"') { while (*++p != c && *p) { if (*p == '\\') p++; } if (!*p) break; } p++; } return p; } /* Poll the VxWorks target system for an event related to the debugged task. Returns -1 if remote wait failed, task status otherwise. */ static int net_wait (pEvent) RDB_EVENT *pEvent; { int pid; enum clnt_stat status; memset ((char *) pEvent, '\0', sizeof (RDB_EVENT)); pid = inferior_pid; status = net_clnt_call (PROCESS_WAIT, xdr_int, &pid, xdr_RDB_EVENT, pEvent); return (status == RPC_SUCCESS)? pEvent->status: -1; } /* Suspend the remote task. Returns -1 if suspend fails on target system, 0 otherwise. */ static int net_quit () { int pid; int quit_status; enum clnt_stat status; quit_status = 0; /* don't let rdbTask suspend itself by passing a pid of 0 */ if ((pid = inferior_pid) == 0) return -1; status = net_clnt_call (VX_TASK_SUSPEND, xdr_int, &pid, xdr_int, &quit_status); return (status == RPC_SUCCESS)? quit_status: -1; } /* Read a register or registers from the remote system. */ static void vx_read_register (regno) int regno; { int status; Rptrace ptrace_in; Ptrace_return ptrace_out; C_bytes in_data; C_bytes out_data; extern char registers[]; memset ((char *) &ptrace_in, '\0', sizeof (ptrace_in)); memset ((char *) &ptrace_out, '\0', sizeof (ptrace_out)); /* FIXME, eventually only get the ones we need. */ registers_fetched (); ptrace_in.pid = inferior_pid; ptrace_out.info.more_data = (caddr_t) &out_data; out_data.len = VX_NUM_REGS * REGISTER_RAW_SIZE (0); out_data.bytes = (caddr_t) registers; status = net_ptrace_clnt_call (PTRACE_GETREGS, &ptrace_in, &ptrace_out); if (status) error (rpcerr); if (ptrace_out.status == -1) { errno = ptrace_out.errno; perror_with_name ("net_ptrace_clnt_call(PTRACE_GETREGS)"); } #ifdef VX_SIZE_FPREGS /* If the target has floating point registers, fetch them. Otherwise, zero the floating point register values in registers[] for good measure, even though we might not need to. */ if (target_has_fp) { ptrace_in.pid = inferior_pid; ptrace_out.info.more_data = (caddr_t) &out_data; out_data.len = VX_SIZE_FPREGS; out_data.bytes = (caddr_t) ®isters[REGISTER_BYTE (FP0_REGNUM)]; status = net_ptrace_clnt_call (PTRACE_GETFPREGS, &ptrace_in, &ptrace_out); if (status) error (rpcerr); if (ptrace_out.status == -1) { errno = ptrace_out.errno; perror_with_name ("net_ptrace_clnt_call(PTRACE_GETFPREGS)"); } } else { memset (®isters[REGISTER_BYTE (FP0_REGNUM)], '\0', VX_SIZE_FPREGS); } #endif /* VX_SIZE_FPREGS */ } /* Prepare to store registers. Since we will store all of them, read out their current values now. */ static void vx_prepare_to_store () { /* Fetch all registers, if any of them are not yet fetched. */ read_register_bytes (0, NULL, REGISTER_BYTES); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ /* FIXME, look at REGNO to save time here */ static void vx_write_register (regno) int regno; { C_bytes in_data; C_bytes out_data; extern char registers[]; int status; Rptrace ptrace_in; Ptrace_return ptrace_out; memset ((char *) &ptrace_in, '\0', sizeof (ptrace_in)); memset ((char *) &ptrace_out, '\0', sizeof (ptrace_out)); ptrace_in.pid = inferior_pid; ptrace_in.info.ttype = DATA; ptrace_in.info.more_data = (caddr_t) &in_data; in_data.bytes = registers; in_data.len = VX_NUM_REGS * REGISTER_SIZE; /* XXX change second param to be a proc number */ status = net_ptrace_clnt_call (PTRACE_SETREGS, &ptrace_in, &ptrace_out); if (status) error (rpcerr); if (ptrace_out.status == -1) { errno = ptrace_out.errno; perror_with_name ("net_ptrace_clnt_call(PTRACE_SETREGS)"); } #ifdef VX_SIZE_FPREGS /* Store floating point registers if the target has them. */ if (target_has_fp) { ptrace_in.pid = inferior_pid; ptrace_in.info.ttype = DATA; ptrace_in.info.more_data = (caddr_t) &in_data; in_data.bytes = ®isters[REGISTER_BYTE (FP0_REGNUM)]; in_data.len = VX_SIZE_FPREGS; status = net_ptrace_clnt_call (PTRACE_SETFPREGS, &ptrace_in, &ptrace_out); if (status) error (rpcerr); if (ptrace_out.status == -1) { errno = ptrace_out.errno; perror_with_name ("net_ptrace_clnt_call(PTRACE_SETFPREGS)"); } } #endif /* VX_SIZE_FPREGS */ } /* Copy LEN bytes to or from remote inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. WRITE is true if writing to the inferior. Result is the number of bytes written or read (zero if error). The protocol allows us to return a negative count, indicating that we can't handle the current address but can handle one N bytes further, but vxworks doesn't give us that information. */ static int vx_xfer_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { int status; Rptrace ptrace_in; Ptrace_return ptrace_out; C_bytes data; memset ((char *) &ptrace_in, '\0', sizeof (ptrace_in)); memset ((char *) &ptrace_out, '\0', sizeof (ptrace_out)); ptrace_in.pid = inferior_pid; /* XXX pid unnecessary for READDATA */ ptrace_in.addr = (int) memaddr; /* Where from */ ptrace_in.data = len; /* How many bytes */ if (write) { ptrace_in.info.ttype = DATA; ptrace_in.info.more_data = (caddr_t) &data; data.bytes = (caddr_t) myaddr; /* Where from */ data.len = len; /* How many bytes (again, for XDR) */ /* XXX change second param to be a proc number */ status = net_ptrace_clnt_call (PTRACE_WRITEDATA, &ptrace_in, &ptrace_out); } else { ptrace_out.info.more_data = (caddr_t) &data; data.bytes = myaddr; /* Where to */ data.len = len; /* How many (again, for XDR) */ /* XXX change second param to be a proc number */ status = net_ptrace_clnt_call (PTRACE_READDATA, &ptrace_in, &ptrace_out); } if (status) error (rpcerr); if (ptrace_out.status == -1) { return 0; /* No bytes moved */ } return len; /* Moved *all* the bytes */ } static void vx_files_info () { printf_unfiltered ("\tAttached to host `%s'", vx_host); printf_unfiltered (", which has %sfloating point", target_has_fp? "": "no "); printf_unfiltered (".\n"); } static void vx_run_files_info () { printf_unfiltered ("\tRunning %s VxWorks process %s", vx_running ? "child" : "attached", local_hex_string (inferior_pid)); if (vx_running) printf_unfiltered (", function `%s'", vx_running); printf_unfiltered(".\n"); } static void vx_resume (pid, step, siggnal) int pid; int step; enum target_signal siggnal; { int status; Rptrace ptrace_in; Ptrace_return ptrace_out; if (pid == -1) pid = inferior_pid; if (siggnal != 0 && siggnal != stop_signal) error ("Cannot send signals to VxWorks processes"); memset ((char *) &ptrace_in, '\0', sizeof (ptrace_in)); memset ((char *) &ptrace_out, '\0', sizeof (ptrace_out)); ptrace_in.pid = pid; ptrace_in.addr = 1; /* Target side insists on this, or it panics. */ /* XXX change second param to be a proc number */ status = net_ptrace_clnt_call (step? PTRACE_SINGLESTEP: PTRACE_CONT, &ptrace_in, &ptrace_out); if (status) error (rpcerr); if (ptrace_out.status == -1) { errno = ptrace_out.errno; perror_with_name ("Resuming remote process"); } } static void vx_mourn_inferior () { pop_target (); /* Pop back to no-child state */ generic_mourn_inferior (); } /* This function allows the addition of incrementally linked object files. */ static void vx_load_command (arg_string, from_tty) char* arg_string; int from_tty; { CORE_ADDR text_addr; CORE_ADDR data_addr; CORE_ADDR bss_addr; if (arg_string == 0) error ("The load command takes a file name"); arg_string = tilde_expand (arg_string); make_cleanup (free, arg_string); dont_repeat (); QUIT; immediate_quit++; if (net_load (arg_string, &text_addr, &data_addr, &bss_addr) == -1) error ("Load failed on target machine"); immediate_quit--; /* FIXME, for now we ignore data_addr and bss_addr. */ symbol_file_add (arg_string, from_tty, text_addr, 0, 0, 0); } #ifdef FIXME /* Not ready for prime time */ /* Single step the target program at the source or machine level. Takes an error exit if rpc fails. Returns -1 if remote single-step operation fails, else 0. */ static int net_step () { enum clnt_stat status; int step_status; SOURCE_STEP source_step; source_step.taskId = inferior_pid; if (step_range_end) { source_step.startAddr = step_range_start; source_step.endAddr = step_range_end; } else { source_step.startAddr = 0; source_step.endAddr = 0; } status = net_clnt_call (VX_SOURCE_STEP, xdr_SOURCE_STEP, &source_step, xdr_int, &step_status); if (status == RPC_SUCCESS) return step_status; else error (rpcerr); } #endif /* Emulate ptrace using RPC calls to the VxWorks target system. Returns nonzero (-1) if RPC status to VxWorks is bad, 0 otherwise. */ static int net_ptrace_clnt_call (request, pPtraceIn, pPtraceOut) enum ptracereq request; Rptrace *pPtraceIn; Ptrace_return *pPtraceOut; { enum clnt_stat status; status = net_clnt_call (request, xdr_rptrace, pPtraceIn, xdr_ptrace_return, pPtraceOut); if (status != RPC_SUCCESS) return -1; return 0; } /* Query the target for the name of the file from which VxWorks was booted. pBootFile is the address of a pointer to the buffer to receive the file name; if the pointer pointed to by pBootFile is NULL, memory for the buffer will be allocated by XDR. Returns -1 if rpc failed, 0 otherwise. */ static int net_get_boot_file (pBootFile) char **pBootFile; { enum clnt_stat status; status = net_clnt_call (VX_BOOT_FILE_INQ, xdr_void, (char *) 0, xdr_wrapstring, pBootFile); return (status == RPC_SUCCESS) ? 0 : -1; } /* Fetch a list of loaded object modules from the VxWorks target. Returns -1 if rpc failed, 0 otherwise There's no way to check if the returned loadTable is correct. VxWorks doesn't check it. */ static int net_get_symbols (pLoadTable) ldtabl *pLoadTable; /* return pointer to ldtabl here */ { enum clnt_stat status; memset ((char *) pLoadTable, '\0', sizeof (struct ldtabl)); status = net_clnt_call (VX_STATE_INQ, xdr_void, 0, xdr_ldtabl, pLoadTable); return (status == RPC_SUCCESS) ? 0 : -1; } /* Look up a symbol in the VxWorks target's symbol table. Returns status of symbol read on target side (0=success, -1=fail) Returns -1 and complain()s if rpc fails. */ struct complaint cant_contact_target = {"Lost contact with VxWorks target", 0, 0}; static int vx_lookup_symbol (name, pAddr) char *name; /* symbol name */ CORE_ADDR *pAddr; { enum clnt_stat status; SYMBOL_ADDR symbolAddr; *pAddr = 0; memset ((char *) &symbolAddr, '\0', sizeof (symbolAddr)); status = net_clnt_call (VX_SYMBOL_INQ, xdr_wrapstring, &name, xdr_SYMBOL_ADDR, &symbolAddr); if (status != RPC_SUCCESS) { complain (&cant_contact_target); return -1; } *pAddr = symbolAddr.addr; return symbolAddr.status; } /* Check to see if the VxWorks target has a floating point coprocessor. Returns 1 if target has floating point processor, 0 otherwise. Calls error() if rpc fails. */ static int net_check_for_fp () { enum clnt_stat status; bool_t fp = 0; /* true if fp processor is present on target board */ status = net_clnt_call (VX_FP_INQUIRE, xdr_void, 0, xdr_bool, &fp); if (status != RPC_SUCCESS) error (rpcerr); return (int) fp; } /* Establish an RPC connection with the VxWorks target system. Calls error () if unable to establish connection. */ static void net_connect (host) char *host; { struct sockaddr_in destAddr; struct hostent *destHost; unsigned long addr; /* Get the internet address for the given host. Allow a numeric IP address or a hostname. */ addr = inet_addr (host); if (addr == -1) { destHost = (struct hostent *) gethostbyname (host); if (destHost == NULL) error ("Invalid hostname. Couldn't find remote host address."); addr = * (unsigned long *) destHost->h_addr; } memset (&destAddr, '\0', sizeof (destAddr)); destAddr.sin_addr.s_addr = addr; destAddr.sin_family = AF_INET; destAddr.sin_port = 0; /* set to actual port that remote ptrace is listening on. */ /* Create a tcp client transport on which to issue calls to the remote ptrace server. */ ptraceSock = RPC_ANYSOCK; pClient = clnttcp_create (&destAddr, RDBPROG, RDBVERS, &ptraceSock, 0, 0); /* FIXME, here is where we deal with different version numbers of the proto */ if (pClient == NULL) { clnt_pcreateerror ("\tnet_connect"); error ("Couldn't connect to remote target."); } } /* Sleep for the specified number of milliseconds * (assumed to be less than 1000). * If select () is interrupted, returns immediately; * takes an error exit if select () fails for some other reason. */ static void sleep_ms (ms) long ms; { struct timeval select_timeout; int status; select_timeout.tv_sec = 0; select_timeout.tv_usec = ms * 1000; status = select (0, (fd_set *) 0, (fd_set *) 0, (fd_set *) 0, &select_timeout); if (status < 0 && errno != EINTR) perror_with_name ("select"); } /* Wait for control to return from inferior to debugger. If inferior gets a signal, we may decide to start it up again instead of returning. That is why there is a loop in this function. When this function actually returns it means the inferior should be left stopped and GDB should read more commands. */ /* For network debugging with VxWorks. * VxWorks knows when tasks hit breakpoints, receive signals, exit, etc, * so vx_wait() receives this information directly from * VxWorks instead of trying to figure out what happenned via a wait() call. */ static int vx_wait (pid_to_wait_for, status) int pid_to_wait_for; struct target_waitstatus *status; { register int pid; RDB_EVENT rdbEvent; int quit_failed; do { /* If CTRL-C is hit during this loop, suspend the inferior process. */ quit_failed = 0; if (quit_flag) { quit_failed = (net_quit () == -1); quit_flag = 0; } /* If a net_quit () or net_wait () call has failed, allow the user to break the connection with the target. We can't simply error () out of this loop, since the data structures representing the state of the inferior are in an inconsistent state. */ if (quit_failed || net_wait (&rdbEvent) == -1) { terminal_ours (); if (query ("Can't %s. Disconnect from target system? ", (quit_failed) ? "suspend remote task" : "get status of remote task")) { target_mourn_inferior(); error ("Use the \"target\" command to reconnect."); } else { terminal_inferior (); continue; } } pid = rdbEvent.taskId; if (pid == 0) { sleep_ms (200); /* FIXME Don't kill the network too badly */ } else if (pid != inferior_pid) fatal ("Bad pid for debugged task: %s\n", local_hex_string((unsigned long) pid)); } while (pid == 0); /* The mostly likely kind. */ status->kind = TARGET_WAITKIND_STOPPED; switch (rdbEvent.eventType) { case EVENT_EXIT: status->kind = TARGET_WAITKIND_EXITED; /* FIXME is it possible to distinguish between a normal vs abnormal exit in VxWorks? */ status->value.integer = 0; break; case EVENT_START: /* Task was just started. */ status->value.sig = TARGET_SIGNAL_TRAP; break; case EVENT_STOP: status->value.sig = TARGET_SIGNAL_TRAP; /* XXX was it stopped by a signal? act accordingly */ break; case EVENT_BREAK: /* Breakpoint was hit. */ status->value.sig = TARGET_SIGNAL_TRAP; break; case EVENT_SUSPEND: /* Task was suspended, probably by ^C. */ status->value.sig = TARGET_SIGNAL_INT; break; case EVENT_BUS_ERR: /* Task made evil nasty reference. */ status->value.sig = TARGET_SIGNAL_BUS; break; case EVENT_ZERO_DIV: /* Division by zero */ status->value.sig = TARGET_SIGNAL_FPE; break; case EVENT_SIGNAL: #ifdef I80960 status->value.sig = i960_fault_to_signal (rdbEvent.sigType); #else /* Back in the old days, before enum target_signal, this code used to add NSIG to the signal number and claim that PRINT_RANDOM_SIGNAL would take care of it. But PRINT_RANDOM_SIGNAL has never been defined except on the i960, so I don't really know what we are supposed to do on other architectures. */ status->value.sig = TARGET_SIGNAL_UNKNOWN; #endif break; } /* switch */ return pid; } static int symbol_stub (arg) char *arg; { symbol_file_command (arg, 0); return 1; } static int add_symbol_stub (arg) char *arg; { struct ldfile *pLoadFile = (struct ldfile *)arg; printf_unfiltered("\t%s: ", pLoadFile->name); symbol_file_add (pLoadFile->name, 0, pLoadFile->txt_addr, 0, 0, 0); printf_unfiltered ("ok\n"); return 1; } /* Target command for VxWorks target systems. Used in vxgdb. Takes the name of a remote target machine running vxWorks and connects to it to initialize remote network debugging. */ static void vx_open (args, from_tty) char *args; int from_tty; { extern int close (); char *bootFile; extern char *source_path; struct ldtabl loadTable; struct ldfile *pLoadFile; int i; extern CLIENT *pClient; if (!args) error_no_arg ("target machine name"); target_preopen (from_tty); unpush_target (&vx_ops); printf_unfiltered ("Attaching remote machine across net...\n"); gdb_flush (gdb_stdout); /* Allow the user to kill the connect attempt by typing ^C. Wait until the call to target_has_fp () completes before disallowing an immediate quit, since even if net_connect () is successful, the remote debug server might be hung. */ immediate_quit++; net_connect (args); target_has_fp = net_check_for_fp (); printf_filtered ("Connected to %s.\n", args); immediate_quit--; push_target (&vx_ops); /* Save a copy of the target host's name. */ vx_host = savestring (args, strlen (args)); /* Find out the name of the file from which the target was booted and load its symbol table. */ printf_filtered ("Looking in Unix path for all loaded modules:\n"); bootFile = NULL; if (!net_get_boot_file (&bootFile)) { if (*bootFile) { printf_filtered ("\t%s: ", bootFile); if (catch_errors (symbol_stub, bootFile, "Error while reading symbols from boot file:\n", RETURN_MASK_ALL)) puts_filtered ("ok\n"); } else if (from_tty) printf_unfiltered ("VxWorks kernel symbols not loaded.\n"); } else error ("Can't retrieve boot file name from target machine."); clnt_freeres (pClient, xdr_wrapstring, &bootFile); if (net_get_symbols (&loadTable) != 0) error ("Can't read loaded modules from target machine"); i = 0-1; while (++i < loadTable.tbl_size) { QUIT; /* FIXME, avoids clnt_freeres below: mem leak */ pLoadFile = &loadTable.tbl_ent [i]; #ifdef WRS_ORIG { register int desc; struct cleanup *old_chain; char *fullname = NULL; desc = openp (source_path, 0, pLoadFile->name, O_RDONLY, 0, &fullname); if (desc < 0) perror_with_name (pLoadFile->name); old_chain = make_cleanup (close, desc); add_file_at_addr (fullname, desc, pLoadFile->txt_addr, pLoadFile->data_addr, pLoadFile->bss_addr); do_cleanups (old_chain); } #else /* Botches, FIXME: (1) Searches the PATH, not the source path. (2) data and bss are assumed to be at the usual offsets from text. */ catch_errors (add_symbol_stub, (char *)pLoadFile, (char *)0, RETURN_MASK_ALL); #endif } printf_filtered ("Done.\n"); clnt_freeres (pClient, xdr_ldtabl, &loadTable); } /* Takes a task started up outside of gdb and ``attaches'' to it. This stops it cold in its tracks and allows us to start tracing it. */ static void vx_attach (args, from_tty) char *args; int from_tty; { int pid; char *cptr = 0; Rptrace ptrace_in; Ptrace_return ptrace_out; int status; if (!args) error_no_arg ("process-id to attach"); pid = strtol (args, &cptr, 0); if ((cptr == args) || (*cptr != '\0')) error ("Invalid process-id -- give a single number in decimal or 0xhex"); if (from_tty) printf_unfiltered ("Attaching pid %s.\n", local_hex_string((unsigned long) pid)); memset ((char *)&ptrace_in, '\0', sizeof (ptrace_in)); memset ((char *)&ptrace_out, '\0', sizeof (ptrace_out)); ptrace_in.pid = pid; status = net_ptrace_clnt_call (PTRACE_ATTACH, &ptrace_in, &ptrace_out); if (status == -1) error (rpcerr); if (ptrace_out.status == -1) { errno = ptrace_out.errno; perror_with_name ("Attaching remote process"); } /* It worked... */ push_target (&vx_run_ops); inferior_pid = pid; vx_running = 0; } /* detach_command -- takes a program previously attached to and detaches it. The program resumes execution and will no longer stop on signals, etc. We better not have left any breakpoints in the program or it'll die when it hits one. For this to work, it may be necessary for the process to have been previously attached. It *might* work if the program was started via the normal ptrace (PTRACE_TRACEME). */ static void vx_detach (args, from_tty) char *args; int from_tty; { Rptrace ptrace_in; Ptrace_return ptrace_out; int signal = 0; int status; if (args) error ("Argument given to VxWorks \"detach\"."); if (from_tty) printf_unfiltered ("Detaching pid %s.\n", local_hex_string((unsigned long) inferior_pid)); if (args) /* FIXME, should be possible to leave suspended */ signal = atoi (args); memset ((char *)&ptrace_in, '\0', sizeof (ptrace_in)); memset ((char *)&ptrace_out, '\0', sizeof (ptrace_out)); ptrace_in.pid = inferior_pid; status = net_ptrace_clnt_call (PTRACE_DETACH, &ptrace_in, &ptrace_out); if (status == -1) error (rpcerr); if (ptrace_out.status == -1) { errno = ptrace_out.errno; perror_with_name ("Detaching VxWorks process"); } inferior_pid = 0; pop_target (); /* go back to non-executing VxWorks connection */ } /* vx_kill -- takes a running task and wipes it out. */ static void vx_kill () { Rptrace ptrace_in; Ptrace_return ptrace_out; int status; printf_unfiltered ("Killing pid %s.\n", local_hex_string((unsigned long) inferior_pid)); memset ((char *)&ptrace_in, '\0', sizeof (ptrace_in)); memset ((char *)&ptrace_out, '\0', sizeof (ptrace_out)); ptrace_in.pid = inferior_pid; status = net_ptrace_clnt_call (PTRACE_KILL, &ptrace_in, &ptrace_out); if (status == -1) warning (rpcerr); else if (ptrace_out.status == -1) { errno = ptrace_out.errno; perror_with_name ("Killing VxWorks process"); } /* If it gives good status, the process is *gone*, no events remain. If the kill failed, assume the process is gone anyhow. */ inferior_pid = 0; pop_target (); /* go back to non-executing VxWorks connection */ } /* Clean up from the VxWorks process target as it goes away. */ static void vx_proc_close (quitting) int quitting; { inferior_pid = 0; /* No longer have a process. */ if (vx_running) free (vx_running); vx_running = 0; } /* Make an RPC call to the VxWorks target. Returns RPC status. */ static enum clnt_stat net_clnt_call (procNum, inProc, in, outProc, out) enum ptracereq procNum; xdrproc_t inProc; char *in; xdrproc_t outProc; char *out; { enum clnt_stat status; status = clnt_call (pClient, procNum, inProc, in, outProc, out, rpcTimeout); if (status != RPC_SUCCESS) clnt_perrno (status); return status; } /* Clean up before losing control. */ static void vx_close (quitting) int quitting; { if (pClient) clnt_destroy (pClient); /* The net connection */ pClient = 0; if (vx_host) free (vx_host); /* The hostname */ vx_host = 0; } /* A vxprocess target should be started via "run" not "target". */ /*ARGSUSED*/ static void vx_proc_open (name, from_tty) char *name; int from_tty; { error ("Use the \"run\" command to start a VxWorks process."); } /* Target ops structure for accessing memory and such over the net */ struct target_ops vx_ops = { "vxworks", "VxWorks target memory via RPC over TCP/IP", "Use VxWorks target memory. \n\ Specify the name of the machine to connect to.", vx_open, vx_close, vx_attach, 0, /* vx_detach, */ 0, 0, /* resume, wait */ 0, 0, /* read_reg, write_reg */ 0, /* prep_to_store, */ vx_xfer_memory, vx_files_info, 0, 0, /* insert_breakpoint, remove_breakpoint */ 0, 0, 0, 0, 0, /* terminal stuff */ 0, /* vx_kill, */ vx_load_command, vx_lookup_symbol, vx_create_inferior, 0, /* mourn_inferior */ 0, /* can_run */ 0, /* notice_signals */ core_stratum, 0, /* next */ 1, 1, 0, 0, 0, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; /* Target ops structure for accessing VxWorks child processes over the net */ struct target_ops vx_run_ops = { "vxprocess", "VxWorks process", "VxWorks process, started by the \"run\" command.", vx_proc_open, vx_proc_close, 0, vx_detach, /* vx_attach */ vx_resume, vx_wait, vx_read_register, vx_write_register, vx_prepare_to_store, vx_xfer_memory, vx_run_files_info, vx_insert_breakpoint, vx_remove_breakpoint, 0, 0, 0, 0, 0, /* terminal stuff */ vx_kill, vx_load_command, vx_lookup_symbol, 0, vx_mourn_inferior, 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 0, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ /* all_mem is off to avoid spurious msg in "i files" */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; /* ==> Remember when reading at end of file, there are two "ops" structs here. */ void _initialize_vx () { add_show_from_set (add_set_cmd ("vxworks-timeout", class_support, var_uinteger, (char *) &rpcTimeout.tv_sec, "Set seconds to wait for rpc calls to return.\n\ Set the number of seconds to wait for rpc calls to return.", &setlist), &showlist); add_target (&vx_ops); add_target (&vx_run_ops); } gdb-4.13/gdb/remote-z8k.c 666 34562 1752 17217 5513036653 13500 0ustar fnfcygnus/* Remote debugging interface for Zilog Z8000 simulator Copyright 1992,1993 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Steve Chamberlain (sac@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "wait.h" #include "value.h" #include #include #include #include #include #include #include "terminal.h" #include "target.h" #include "gdbcore.h" #include "../sim/z8k/sim.h" /* External data declarations */ extern int stop_soon_quietly; /* for wait_for_inferior */ /* Forward data declarations */ /*extern struct target_ops sim_ops; /* Forward declaration */ void sim_store_register (); void sim_set_oc (); int inferior_pid; int sim_write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { sim_write (memaddr, myaddr, len); return 1; } static void store_register (regno) int regno; { if (regno == -1) { for (regno = 0; regno < 16; regno++) { store_register (regno); } } else { sim_store_register (regno, read_register (regno)); } } void sim_kill (arg, from_tty) char *arg; int from_tty; { } /* * Download a file specified in 'args', to the sim. */ static void sasassim_load (args, fromtty) char *args; int fromtty; { bfd *abfd; asection *s; inferior_pid = 0; abfd = bfd_openr (args, "coff-z8k"); if (!abfd) { printf_filtered ("Unable to open file %s\n", args); return; } if (bfd_check_format (abfd, bfd_object) == 0) { printf_filtered ("File is not an object file\n"); return; } s = abfd->sections; while (s != (asection *) NULL) { if (s->flags & SEC_LOAD) { int i; int delta = 4096; char *buffer = xmalloc (delta); printf_filtered ("%s\t: 0x%4x .. 0x%4x ", s->name, s->vma, s->vma + s->_raw_size); for (i = 0; i < s->_raw_size; i += delta) { int sub_delta = delta; if (sub_delta > s->_raw_size - i) sub_delta = s->_raw_size - i; bfd_get_section_contents (abfd, s, buffer, i, sub_delta); sim_write_inferior_memory (s->vma + i, buffer, sub_delta); printf_filtered ("*"); gdb_flush (gdb_stdout); } printf_filtered ("\n"); free (buffer); } s = s->next; } sim_set_pc (abfd->start_address); } /* This is called not only when we first attach, but also when the user types "run" after having attached. */ static void sim_create_inferior (execfile, args, env) char *execfile; char *args; char **env; { int entry_pt; if (args && *args) error ("Can't pass arguments to remote sim process."); if (execfile == 0 || exec_bfd == 0) error ("No exec file specified"); entry_pt = (int) bfd_get_start_address (exec_bfd); sim_kill (NULL, NULL); sim_clear_breakpoints (); init_wait_for_inferior (); insert_breakpoints (); proceed (entry_pt, TARGET_SIGNAL_DEFAULT, 0); } #if 0 static void sim_open (name, from_tty) char *name; int from_tty; { if (name == 0) { name = ""; } /* Clear any break points */ sim_clear_breakpoints (); push_target (&sim_ops); target_fetch_registers (-1); printf_filtered ("Connected to the Z8000 Simulator.\n"); } /* Close out all files and local state before this target loses control. */ static void sim_close (quitting) int quitting; { sim_clear_breakpoints (); } /* Terminate the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ static void sim_detach (args, from_tty) char *args; int from_tty; { sim_clear_breakpoints (); pop_target (); /* calls sim_close to do the real work */ if (from_tty) printf_filtered ("Ending remote %s debugging\n", target_shortname); } #endif /* Tell the remote machine to resume. */ /* Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. */ #if 0 /* See remote-sim.c for how this is done now. */ int sim_wait (pid, status) int pid; WAITTYPE *status; { sim_stop_reason (&reason, &sigrc); return inferior_pid; } #endif /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that registers contains all the registers from the program being debugged. */ static void sim_prepare_to_store () { /* Do nothing, since we can store individual regs */ } static void fetch_register (regno) int regno; { if (regno == -1) { for (regno = 0; regno < 16; regno++) fetch_register (regno); } else { char buf[MAX_REGISTER_RAW_SIZE]; sim_fetch_register (regno, buf); supply_register (regno, buf); } } /* Write a word WORD into remote address ADDR. This goes through the data cache. */ void sim_store_word (addr, word) CORE_ADDR addr; int word; { /* dcache_poke (addr, word);*/ } int sim_xfer_inferior_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { if (write) { sim_write (memaddr, myaddr, len); } else { sim_read (memaddr, myaddr, len); } return len; } void sim_files_info () { char *file = "nothing"; if (exec_bfd) file = bfd_get_filename (exec_bfd); printf_filtered ("\tAttached to %s running on the z8k simulator\n", file); } /* This routine is run as a hook, just before the main command loop is entered. If gdb is configured for the H8, but has not had its target specified yet, this will loop prompting the user to do so. */ #if 0 void sim_before_main_loop () { push_target (&sim_ops); } /* Clear the sims notion of what the break points are */ static void sim_mourn () { sim_clear_breakpoints (); unpush_target (&sim_ops); generic_mourn_inferior (); } #endif static void rem_resume (pid, a, b) int pid; int a; enum target_signal siggnal; { sim_resume (a, target_signal_to_host (siggnal)); } /* Define the target subroutine names */ #if 0 struct target_ops sim_ops = { "sim", "Remote SIM monitor", "Use the Z8000 simulator", sim_open, sim_close, 0, sim_detach, rem_resume, sim_wait, /* attach */ fetch_register, store_register, sim_prepare_to_store, sim_xfer_inferior_memory, sim_files_info, 0, 0, /* Breakpoints */ 0, 0, 0, 0, 0, /* Terminal handling */ sim_kill, /* FIXME, kill */ sim_load, 0, /* lookup_symbol */ sim_create_inferior, /* create_inferior */ sim_mourn, /* mourn_inferior FIXME */ 0, /* can_run */ 0, /* notice_signals */ process_stratum, 0, /* next */ 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */ 0, 0, /* Section pointers */ OPS_MAGIC, /* Always the last thing */ }; /***********************************************************************/ void _initialize_remote_sim () { add_target (&sim_ops); } #endif gdb-4.13/gdb/remote.c 666 34562 1752 111274 5612062656 13006 0ustar fnfcygnus/* Remote target communications for serial-line targets in custom GDB protocol Copyright 1988, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Remote communication protocol. A debug packet whose contents are is encapsulated for transmission in the form: $ # CSUM1 CSUM2 must be ASCII alphanumeric and cannot include characters '$' or '#'. If starts with two characters followed by ':', then the existing stubs interpret this as a sequence number. CSUM1 and CSUM2 are ascii hex representation of an 8-bit checksum of , the most significant nibble is sent first. the hex digits 0-9,a-f are used. Receiver responds with: + - if CSUM is correct and ready for next packet - - if CSUM is incorrect is as follows: All values are encoded in ascii hex digits. Request Packet read registers g reply XX....X Each byte of register data is described by two hex digits. Registers are in the internal order for GDB, and the bytes in a register are in the same order the machine uses. or ENN for an error. write regs GXX..XX Each byte of register data is described by two hex digits. reply OK for success ENN for an error write reg Pn...=r... Write register n... with value r..., which contains two hex digits for each byte in the register (target byte order). reply OK for success ENN for an error (not supported by all stubs). read mem mAA..AA,LLLL AA..AA is address, LLLL is length. reply XX..XX XX..XX is mem contents Can be fewer bytes than requested if able to read only part of the data. or ENN NN is errno write mem MAA..AA,LLLL:XX..XX AA..AA is address, LLLL is number of bytes, XX..XX is data reply OK for success ENN for an error (this includes the case where only part of the data was written). cont cAA..AA AA..AA is address to resume If AA..AA is omitted, resume at same address. step sAA..AA AA..AA is address to resume If AA..AA is omitted, resume at same address. last signal ? Reply the current reason for stopping. This is the same reply as is generated for step or cont : SAA where AA is the signal number. There is no immediate reply to step or cont. The reply comes when the machine stops. It is SAA AA is the "signal number" or... TAAn...:r...;n:r...;n...:r...; AA = signal number n... = register number r... = register contents or... WAA The process exited, and AA is the exit status. This is only applicable for certains sorts of targets. kill request k toggle debug d toggle debug flag (see 386 & 68k stubs) reset r reset -- see sparc stub. reserved On other requests, the stub should ignore the request and send an empty response ($#). This way we can extend the protocol and GDB can tell whether the stub it is talking to uses the old or the new. search tAA:PP,MM Search backwards starting at address AA for a match with pattern PP and mask MM. PP and MM are 4 bytes. Not supported by all stubs. general query qXXXX Request info about XXXX. general set QXXXX=yyyy Set value of XXXX to yyyy. query sect offs qOffsets Get section offsets. Reply is Text=xxx;Data=yyy;Bss=zzz console output Otext Send text to stdout. Only comes from remote target. Responses can be run-length encoded to save space. A '*' means that the next two characters are hex digits giving a repeat count which stands for that many repititions of the character preceding the '*'. Note that this means that responses cannot contain '*'. Example: "0*03" means the same as "0000". */ #include "defs.h" #include #include #include "frame.h" #include "inferior.h" #include "bfd.h" #include "symfile.h" #include "target.h" #include "wait.h" #include "terminal.h" #include "gdbcmd.h" #include "objfiles.h" #include "gdb-stabs.h" #include "dcache.h" #if !defined(DONT_USE_REMOTE) #ifdef USG #include #endif #include #include "serial.h" /* Prototypes for local functions */ static int remote_write_bytes PARAMS ((CORE_ADDR memaddr, unsigned char *myaddr, int len)); static int remote_read_bytes PARAMS ((CORE_ADDR memaddr, unsigned char *myaddr, int len)); static void remote_files_info PARAMS ((struct target_ops *ignore)); static int remote_xfer_memory PARAMS ((CORE_ADDR memaddr, char *myaddr, int len, int should_write, struct target_ops *target)); static void remote_prepare_to_store PARAMS ((void)); static void remote_fetch_registers PARAMS ((int regno)); static void remote_resume PARAMS ((int pid, int step, enum target_signal siggnal)); static int remote_start_remote PARAMS ((char *dummy)); static void remote_open PARAMS ((char *name, int from_tty)); static void remote_close PARAMS ((int quitting)); static void remote_store_registers PARAMS ((int regno)); static void getpkt PARAMS ((char *buf, int forever)); static void putpkt PARAMS ((char *buf)); static void remote_send PARAMS ((char *buf)); static int readchar PARAMS ((int timeout)); static int remote_wait PARAMS ((int pid, struct target_waitstatus *status)); static int tohex PARAMS ((int nib)); static int fromhex PARAMS ((int a)); static void remote_detach PARAMS ((char *args, int from_tty)); static void remote_interrupt PARAMS ((int signo)); static void remote_interrupt_twice PARAMS ((int signo)); static void interrupt_query PARAMS ((void)); extern struct target_ops remote_ops; /* Forward decl */ /* This was 5 seconds, which is a long time to sit and wait. Unless this is going though some terminal server or multiplexer or other form of hairy serial connection, I would think 2 seconds would be plenty. */ static int remote_timeout = 2; #if 0 int icache; #endif /* Descriptor for I/O to remote machine. Initialize it to NULL so that remote_open knows that we don't have a file open when the program starts. */ serial_t remote_desc = NULL; /* Having this larger than 400 causes us to be incompatible with m68k-stub.c and i386-stub.c. Normally, no one would notice because it only matters for writing large chunks of memory (e.g. in downloads). Also, this needs to be more than 400 if required to hold the registers (see below, where we round it up based on REGISTER_BYTES). */ #define PBUFSIZ 400 /* Maximum number of bytes to read/write at once. The value here is chosen to fill up a packet (the headers account for the 32). */ #define MAXBUFBYTES ((PBUFSIZ-32)/2) /* Round up PBUFSIZ to hold all the registers, at least. */ /* The blank line after the #if seems to be required to work around a bug in HP's PA compiler. */ #if REGISTER_BYTES > MAXBUFBYTES #undef PBUFSIZ #define PBUFSIZ (REGISTER_BYTES * 2 + 32) #endif /* Should we try the 'P' request? If this is set to one when the stub doesn't support 'P', the only consequence is some unnecessary traffic. */ static int stub_supports_P = 1; /* Clean up connection to a remote debugger. */ /* ARGSUSED */ static void remote_close (quitting) int quitting; { if (remote_desc) SERIAL_CLOSE (remote_desc); remote_desc = NULL; } /* Query the remote side for the text, data and bss offsets. */ static void get_offsets () { unsigned char buf[PBUFSIZ]; int nvals; CORE_ADDR text_addr, data_addr, bss_addr; struct section_offsets *offs; putpkt ("qOffsets"); getpkt (buf, 0); if (buf[0] == '\000') return; /* Return silently. Stub doesn't support this command. */ if (buf[0] == 'E') { warning ("Remote failure reply: %s", buf); return; } nvals = sscanf (buf, "Text=%lx;Data=%lx;Bss=%lx", &text_addr, &data_addr, &bss_addr); if (nvals != 3) error ("Malformed response to offset query, %s", buf); if (symfile_objfile == NULL) return; offs = (struct section_offsets *) alloca (sizeof (struct section_offsets) + symfile_objfile->num_sections * sizeof (offs->offsets)); memcpy (offs, symfile_objfile->section_offsets, sizeof (struct section_offsets) + symfile_objfile->num_sections * sizeof (offs->offsets)); /* FIXME: This code assumes gdb-stabs.h is being used; it's broken for xcoff, dwarf, sdb-coff, etc. But there is no simple canonical representation for this stuff. (Just what does "text" as seen by the stub mean, anyway? I think it means all sections with SEC_CODE set, but we currently have no way to deal with that). */ ANOFFSET (offs, SECT_OFF_TEXT) = text_addr; /* This is a temporary kludge to force data and bss to use the same offsets because that's what nlmconv does now. The real solution requires changes to the stub and remote.c that I don't have time to do right now. */ ANOFFSET (offs, SECT_OFF_DATA) = data_addr; ANOFFSET (offs, SECT_OFF_BSS) = data_addr; objfile_relocate (symfile_objfile, offs); } /* Stub for catch_errors. */ static int remote_start_remote (dummy) char *dummy; { immediate_quit = 1; /* Allow user to interrupt it */ /* Ack any packet which the remote side has already sent. */ SERIAL_WRITE (remote_desc, "+", 1); get_offsets (); /* Get text, data & bss offsets */ putpkt ("?"); /* initiate a query from remote machine */ immediate_quit = 0; start_remote (); /* Initialize gdb process mechanisms */ return 1; } /* Open a connection to a remote debugger. NAME is the filename used for communication. */ static DCACHE *remote_dcache; static void remote_open (name, from_tty) char *name; int from_tty; { if (name == 0) error ( "To open a remote debug connection, you need to specify what serial\n\ device is attached to the remote system (e.g. /dev/ttya)."); target_preopen (from_tty); unpush_target (&remote_ops); remote_dcache = dcache_init (remote_read_bytes, remote_write_bytes); remote_desc = SERIAL_OPEN (name); if (!remote_desc) perror_with_name (name); if (baud_rate != -1) { if (SERIAL_SETBAUDRATE (remote_desc, baud_rate)) { SERIAL_CLOSE (remote_desc); perror_with_name (name); } } SERIAL_RAW (remote_desc); /* If there is something sitting in the buffer we might take it as a response to a command, which would be bad. */ SERIAL_FLUSH_INPUT (remote_desc); if (from_tty) { puts_filtered ("Remote debugging using "); puts_filtered (name); puts_filtered ("\n"); } push_target (&remote_ops); /* Switch to using remote target now */ /* Start out by trying the 'P' request to set registers. We set this each time that we open a new target so that if the user switches from one stub to another, we can (if the target is closed and reopened) cope. */ stub_supports_P = 1; /* Start the remote connection; if error (0), discard this target. In particular, if the user quits, be sure to discard it (we'd be in an inconsistent state otherwise). */ if (!catch_errors (remote_start_remote, (char *)0, "Couldn't establish connection to remote target\n", RETURN_MASK_ALL)) pop_target(); } /* remote_detach() takes a program previously attached to and detaches it. We better not have left any breakpoints in the program or it'll die when it hits one. Close the open connection to the remote debugger. Use this when you want to detach and do something else with your gdb. */ static void remote_detach (args, from_tty) char *args; int from_tty; { if (args) error ("Argument given to \"detach\" when remotely debugging."); pop_target (); if (from_tty) puts_filtered ("Ending remote debugging.\n"); } /* Convert hex digit A to a number. */ static int fromhex (a) int a; { if (a >= '0' && a <= '9') return a - '0'; else if (a >= 'a' && a <= 'f') return a - 'a' + 10; else error ("Reply contains invalid hex digit"); } /* Convert number NIB to a hex digit. */ static int tohex (nib) int nib; { if (nib < 10) return '0'+nib; else return 'a'+nib-10; } /* Tell the remote machine to resume. */ static void remote_resume (pid, step, siggnal) int pid, step; enum target_signal siggnal; { char buf[PBUFSIZ]; if (siggnal) { target_terminal_ours_for_output (); printf_filtered ("Can't send signals to a remote system. %s not sent.\n", target_signal_to_name (siggnal)); target_terminal_inferior (); } dcache_flush (remote_dcache); strcpy (buf, step ? "s": "c"); putpkt (buf); } /* Send ^C to target to halt it. Target will respond, and send us a packet. */ static void remote_interrupt (signo) int signo; { /* If this doesn't work, try more severe steps. */ signal (signo, remote_interrupt_twice); if (remote_debug) printf_unfiltered ("remote_interrupt called\n"); SERIAL_WRITE (remote_desc, "\003", 1); /* Send a ^C */ } static void (*ofunc)(); /* The user typed ^C twice. */ static void remote_interrupt_twice (signo) int signo; { signal (signo, ofunc); interrupt_query (); signal (signo, remote_interrupt); } /* Ask the user what to do when an interrupt is received. */ static void interrupt_query () { target_terminal_ours (); if (query ("Interrupted while waiting for the program.\n\ Give up (and stop debugging it)? ")) { target_mourn_inferior (); return_to_top_level (RETURN_QUIT); } target_terminal_inferior (); } /* Wait until the remote machine stops, then return, storing status in STATUS just as `wait' would. Returns "pid" (though it's not clear what, if anything, that means in the case of this target). */ static int remote_wait (pid, status) int pid; struct target_waitstatus *status; { unsigned char buf[PBUFSIZ]; status->kind = TARGET_WAITKIND_EXITED; status->value.integer = 0; while (1) { unsigned char *p; ofunc = (void (*)()) signal (SIGINT, remote_interrupt); getpkt ((char *) buf, 1); signal (SIGINT, ofunc); switch (buf[0]) { case 'E': /* Error of some sort */ warning ("Remote failure reply: %s", buf); continue; case 'T': /* Status with PC, SP, FP, ... */ { int i; long regno; char regs[MAX_REGISTER_RAW_SIZE]; /* Expedited reply, containing Signal, {regno, reg} repeat */ /* format is: 'Tssn...:r...;n...:r...;n...:r...;#cc', where ss = signal number n... = register number r... = register contents */ p = &buf[3]; /* after Txx */ while (*p) { unsigned char *p1; regno = strtol (p, &p1, 16); /* Read the register number */ if (p1 == p) warning ("Remote sent badly formed register number: %s\nPacket: '%s'\n", p1, buf); p = p1; if (*p++ != ':') warning ("Malformed packet (missing colon): %s\nPacket: '%s'\n", p, buf); if (regno >= NUM_REGS) warning ("Remote sent bad register number %d: %s\nPacket: '%s'\n", regno, p, buf); for (i = 0; i < REGISTER_RAW_SIZE (regno); i++) { if (p[0] == 0 || p[1] == 0) warning ("Remote reply is too short: %s", buf); regs[i] = fromhex (p[0]) * 16 + fromhex (p[1]); p += 2; } if (*p++ != ';') warning ("Remote register badly formatted: %s", buf); supply_register (regno, regs); } } /* fall through */ case 'S': /* Old style status, just signal only */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = (enum target_signal) (((fromhex (buf[1])) << 4) + (fromhex (buf[2]))); return 0; case 'W': /* Target exited */ { /* The remote process exited. */ status->kind = TARGET_WAITKIND_EXITED; status->value.integer = (fromhex (buf[1]) << 4) + fromhex (buf[2]); return 0; } case 'O': /* Console output */ fputs_filtered (buf + 1, gdb_stdout); continue; default: warning ("Invalid remote reply: %s", buf); continue; } } return 0; } /* Number of bytes of registers this stub implements. */ static int register_bytes_found; /* Read the remote registers into the block REGS. */ /* Currently we just read all the registers, so we don't use regno. */ /* ARGSUSED */ static void remote_fetch_registers (regno) int regno; { char buf[PBUFSIZ]; int i; char *p; char regs[REGISTER_BYTES]; sprintf (buf, "g"); remote_send (buf); /* Unimplemented registers read as all bits zero. */ memset (regs, 0, REGISTER_BYTES); /* We can get out of synch in various cases. If the first character in the buffer is not a hex character, assume that has happened and try to fetch another packet to read. */ while ((buf[0] < '0' || buf[0] > '9') && (buf[0] < 'a' || buf[0] > 'f')) { if (remote_debug) printf_unfiltered ("Bad register packet; fetching a new packet\n"); getpkt (buf, 0); } /* Reply describes registers byte by byte, each byte encoded as two hex characters. Suck them all up, then supply them to the register cacheing/storage mechanism. */ p = buf; for (i = 0; i < REGISTER_BYTES; i++) { if (p[0] == 0) break; if (p[1] == 0) { warning ("Remote reply is of odd length: %s", buf); /* Don't change register_bytes_found in this case, and don't print a second warning. */ goto supply_them; } regs[i] = fromhex (p[0]) * 16 + fromhex (p[1]); p += 2; } if (i != register_bytes_found) { register_bytes_found = i; #ifdef REGISTER_BYTES_OK if (!REGISTER_BYTES_OK (i)) warning ("Remote reply is too short: %s", buf); #endif } supply_them: for (i = 0; i < NUM_REGS; i++) supply_register (i, ®s[REGISTER_BYTE(i)]); } /* Prepare to store registers. Since we may send them all (using a 'G' request), we have to read out the ones we don't want to change first. */ static void remote_prepare_to_store () { /* Make sure the entire registers array is valid. */ read_register_bytes (0, (char *)NULL, REGISTER_BYTES); } /* Store register REGNO, or all registers if REGNO == -1, from the contents of REGISTERS. FIXME: ignores errors. */ static void remote_store_registers (regno) int regno; { char buf[PBUFSIZ]; int i; char *p; if (regno >= 0 && stub_supports_P) { /* Try storing a single register. */ char *regp; sprintf (buf, "P%x=", regno); p = buf + strlen (buf); regp = ®isters[REGISTER_BYTE (regno)]; for (i = 0; i < REGISTER_RAW_SIZE (regno); ++i) { *p++ = tohex ((regp[i] >> 4) & 0xf); *p++ = tohex (regp[i] & 0xf); } *p = '\0'; remote_send (buf); if (buf[0] != '\0') { /* The stub understands the 'P' request. We are done. */ return; } /* The stub does not support the 'P' request. Use 'G' instead, and don't try using 'P' in the future (it will just waste our time). */ stub_supports_P = 0; } buf[0] = 'G'; /* Command describes registers byte by byte, each byte encoded as two hex characters. */ p = buf + 1; /* remote_prepare_to_store insures that register_bytes_found gets set. */ for (i = 0; i < register_bytes_found; i++) { *p++ = tohex ((registers[i] >> 4) & 0xf); *p++ = tohex (registers[i] & 0xf); } *p = '\0'; remote_send (buf); } #if 0 /* Use of the data cache is disabled because it loses for looking at and changing hardware I/O ports and the like. Accepting `volatile' would perhaps be one way to fix it, but a better way which would win for more cases would be to use the executable file for the text segment, like the `icache' code below but done cleanly (in some target-independent place, perhaps in target_xfer_memory, perhaps based on assigning each target a speed or perhaps by some simpler mechanism). */ /* Read a word from remote address ADDR and return it. This goes through the data cache. */ static int remote_fetch_word (addr) CORE_ADDR addr; { #if 0 if (icache) { extern CORE_ADDR text_start, text_end; if (addr >= text_start && addr < text_end) { int buffer; xfer_core_file (addr, &buffer, sizeof (int)); return buffer; } } #endif return dcache_fetch (remote_dcache, addr); } /* Write a word WORD into remote address ADDR. This goes through the data cache. */ static void remote_store_word (addr, word) CORE_ADDR addr; int word; { dcache_poke (remote_dcache, addr, word); } #endif /* 0 */ /* Write memory data directly to the remote machine. This does not inform the data cache; the data cache uses this. MEMADDR is the address in the remote memory space. MYADDR is the address of the buffer in our space. LEN is the number of bytes. Returns number of bytes transferred, or 0 for error. */ static int remote_write_bytes (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { char buf[PBUFSIZ]; int i; char *p; /* FIXME-32x64: Need a version of print_address_numeric which puts the result in a buffer like sprintf. */ sprintf (buf, "M%lx,%x:", (unsigned long) memaddr, len); /* We send target system values byte by byte, in increasing byte addresses, each byte encoded as two hex characters. */ p = buf + strlen (buf); for (i = 0; i < len; i++) { *p++ = tohex ((myaddr[i] >> 4) & 0xf); *p++ = tohex (myaddr[i] & 0xf); } *p = '\0'; putpkt (buf); getpkt (buf, 0); if (buf[0] == 'E') { /* There is no correspondance between what the remote protocol uses for errors and errno codes. We would like a cleaner way of representing errors (big enough to include errno codes, bfd_error codes, and others). But for now just return EIO. */ errno = EIO; return 0; } return len; } /* Read memory data directly from the remote machine. This does not use the data cache; the data cache uses this. MEMADDR is the address in the remote memory space. MYADDR is the address of the buffer in our space. LEN is the number of bytes. Returns number of bytes transferred, or 0 for error. */ static int remote_read_bytes (memaddr, myaddr, len) CORE_ADDR memaddr; unsigned char *myaddr; int len; { char buf[PBUFSIZ]; int i; char *p; if (len > PBUFSIZ / 2 - 1) abort (); /* FIXME-32x64: Need a version of print_address_numeric which puts the result in a buffer like sprintf. */ sprintf (buf, "m%lx,%x", (unsigned long) memaddr, len); putpkt (buf); getpkt (buf, 0); if (buf[0] == 'E') { /* There is no correspondance between what the remote protocol uses for errors and errno codes. We would like a cleaner way of representing errors (big enough to include errno codes, bfd_error codes, and others). But for now just return EIO. */ errno = EIO; return 0; } /* Reply describes memory byte by byte, each byte encoded as two hex characters. */ p = buf; for (i = 0; i < len; i++) { if (p[0] == 0 || p[1] == 0) /* Reply is short. This means that we were able to read only part of what we wanted to. */ break; myaddr[i] = fromhex (p[0]) * 16 + fromhex (p[1]); p += 2; } return i; } /* Read or write LEN bytes from inferior memory at MEMADDR, transferring to or from debugger address MYADDR. Write to inferior if SHOULD_WRITE is nonzero. Returns length of data written or read; 0 for error. */ /* ARGSUSED */ static int remote_xfer_memory(memaddr, myaddr, len, should_write, target) CORE_ADDR memaddr; char *myaddr; int len; int should_write; struct target_ops *target; /* ignored */ { int xfersize; int bytes_xferred; int total_xferred = 0; while (len > 0) { if (len > MAXBUFBYTES) xfersize = MAXBUFBYTES; else xfersize = len; if (should_write) bytes_xferred = remote_write_bytes (memaddr, (unsigned char *)myaddr, xfersize); else bytes_xferred = remote_read_bytes (memaddr, (unsigned char *)myaddr, xfersize); /* If we get an error, we are done xferring. */ if (bytes_xferred == 0) break; memaddr += bytes_xferred; myaddr += bytes_xferred; len -= bytes_xferred; total_xferred += bytes_xferred; } return total_xferred; } #if 0 /* Enable after 4.12. */ void remote_search (len, data, mask, startaddr, increment, lorange, hirange addr_found, data_found) int len; char *data; char *mask; CORE_ADDR startaddr; int increment; CORE_ADDR lorange; CORE_ADDR hirange; CORE_ADDR *addr_found; char *data_found; { if (increment == -4 && len == 4) { long mask_long, data_long; long data_found_long; CORE_ADDR addr_we_found; char buf[PBUFSIZ]; long returned_long[2]; char *p; mask_long = extract_unsigned_integer (mask, len); data_long = extract_unsigned_integer (data, len); sprintf (buf, "t%x:%x,%x", startaddr, data_long, mask_long); putpkt (buf); getpkt (buf, 0); if (buf[0] == '\0') { /* The stub doesn't support the 't' request. We might want to remember this fact, but on the other hand the stub could be switched on us. Maybe we should remember it only until the next "target remote". */ generic_search (len, data, mask, startaddr, increment, lorange, hirange, addr_found, data_found); return; } if (buf[0] == 'E') /* There is no correspondance between what the remote protocol uses for errors and errno codes. We would like a cleaner way of representing errors (big enough to include errno codes, bfd_error codes, and others). But for now just use EIO. */ memory_error (EIO, startaddr); p = buf; addr_we_found = 0; while (*p != '\0' && *p != ',') addr_we_found = (addr_we_found << 4) + fromhex (*p++); if (*p == '\0') error ("Protocol error: short return for search"); data_found_long = 0; while (*p != '\0' && *p != ',') data_found_long = (data_found_long << 4) + fromhex (*p++); /* Ignore anything after this comma, for future extensions. */ if (addr_we_found < lorange || addr_we_found >= hirange) { *addr_found = 0; return; } *addr_found = addr_we_found; *data_found = store_unsigned_integer (data_we_found, len); return; } generic_search (len, data, mask, startaddr, increment, lorange, hirange, addr_found, data_found); } #endif /* 0 */ static void remote_files_info (ignore) struct target_ops *ignore; { puts_filtered ("Debugging a target over a serial line.\n"); } /* Stuff for dealing with the packets which are part of this protocol. See comment at top of file for details. */ /* Read a single character from the remote end, masking it down to 7 bits. */ static int readchar (timeout) int timeout; { int ch; ch = SERIAL_READCHAR (remote_desc, timeout); switch (ch) { case SERIAL_EOF: error ("Remote connection closed"); case SERIAL_ERROR: perror_with_name ("Remote communication error"); case SERIAL_TIMEOUT: return ch; default: return ch & 0x7f; } } /* Send the command in BUF to the remote machine, and read the reply into BUF. Report an error if we get an error reply. */ static void remote_send (buf) char *buf; { putpkt (buf); getpkt (buf, 0); if (buf[0] == 'E') error ("Remote failure reply: %s", buf); } /* Send a packet to the remote machine, with error checking. The data of the packet is in BUF. */ static void putpkt (buf) char *buf; { int i; unsigned char csum = 0; char buf2[PBUFSIZ]; int cnt = strlen (buf); int ch; char *p; /* Copy the packet into buffer BUF2, encapsulating it and giving it a checksum. */ if (cnt > sizeof(buf2) - 5) /* Prosanity check */ abort(); p = buf2; *p++ = '$'; for (i = 0; i < cnt; i++) { csum += buf[i]; *p++ = buf[i]; } *p++ = '#'; *p++ = tohex ((csum >> 4) & 0xf); *p++ = tohex (csum & 0xf); /* Send it over and over until we get a positive ack. */ while (1) { int started_error_output = 0; if (remote_debug) { *p = '\0'; printf_unfiltered ("Sending packet: %s...", buf2); gdb_flush(gdb_stdout); } if (SERIAL_WRITE (remote_desc, buf2, p - buf2)) perror_with_name ("putpkt: write failed"); /* read until either a timeout occurs (-2) or '+' is read */ while (1) { ch = readchar (remote_timeout); if (remote_debug) { switch (ch) { case '+': case SERIAL_TIMEOUT: case '$': if (started_error_output) { putc_unfiltered ('\n'); started_error_output = 0; } } } switch (ch) { case '+': if (remote_debug) printf_unfiltered("Ack\n"); return; case SERIAL_TIMEOUT: break; /* Retransmit buffer */ case '$': { unsigned char junkbuf[PBUFSIZ]; /* It's probably an old response, and we're out of sync. Just gobble up the packet and ignore it. */ getpkt (junkbuf, 0); continue; /* Now, go look for + */ } default: if (remote_debug) { if (!started_error_output) { started_error_output = 1; printf_unfiltered ("putpkt: Junk: "); } putc_unfiltered (ch & 0177); } continue; } break; /* Here to retransmit */ } #if 0 /* This is wrong. If doing a long backtrace, the user should be able to get out next time we call QUIT, without anything as violent as interrupt_query. If we want to provide a way out of here without getting to the next QUIT, it should be based on hitting ^C twice as in remote_wait. */ if (quit_flag) { quit_flag = 0; interrupt_query (); } #endif } } /* Come here after finding the start of the frame. Collect the rest into BUF, verifying the checksum, length, and handling run-length compression. Returns 0 on any error, 1 on success. */ static int read_frame (buf) char *buf; { unsigned char csum; char *bp; int c; csum = 0; bp = buf; while (1) { c = readchar (remote_timeout); switch (c) { case SERIAL_TIMEOUT: if (remote_debug) puts_filtered ("Timeout in mid-packet, retrying\n"); return 0; case '$': if (remote_debug) puts_filtered ("Saw new packet start in middle of old one\n"); return 0; /* Start a new packet, count retries */ case '#': { unsigned char pktcsum; *bp = '\000'; pktcsum = fromhex (readchar (remote_timeout)) << 4 | fromhex (readchar (remote_timeout)); if (csum == pktcsum) return 1; printf_filtered ("Bad checksum, sentsum=0x%x, csum=0x%x, buf=", pktcsum, csum); puts_filtered (buf); puts_filtered ("\n"); return 0; } case '*': /* Run length encoding */ c = readchar (remote_timeout); csum += c; c = c - ' ' + 3; /* Compute repeat count */ if (bp + c - 1 < buf + PBUFSIZ - 1) { memset (bp, *(bp - 1), c); bp += c; continue; } *bp = '\0'; printf_filtered ("Repeat count %d too large for buffer: ", c); puts_filtered (buf); puts_filtered ("\n"); return 0; default: if (bp < buf + PBUFSIZ - 1) { *bp++ = c; csum += c; continue; } *bp = '\0'; puts_filtered ("Remote packet too long: "); puts_filtered (buf); puts_filtered ("\n"); return 0; } } } /* Read a packet from the remote machine, with error checking, and store it in BUF. BUF is expected to be of size PBUFSIZ. If FOREVER, wait forever rather than timing out; this is used while the target is executing user code. */ static void getpkt (buf, forever) char *buf; int forever; { char *bp; int c; int tries; int timeout; int val; if (forever) timeout = -1; else timeout = remote_timeout; #define MAX_TRIES 10 for (tries = 1; tries <= MAX_TRIES; tries++) { /* This can loop forever if the remote side sends us characters continuously, but if it pauses, we'll get a zero from readchar because of timeout. Then we'll count that as a retry. */ /* Note that we will only wait forever prior to the start of a packet. After that, we expect characters to arrive at a brisk pace. They should show up within remote_timeout intervals. */ do { c = readchar (timeout); if (c == SERIAL_TIMEOUT) { if (remote_debug) puts_filtered ("Timed out.\n"); goto retry; } } while (c != '$'); /* We've found the start of a packet, now collect the data. */ val = read_frame (buf); if (val == 1) { if (remote_debug) fprintf_unfiltered (gdb_stderr, "Packet received: %s\n", buf); SERIAL_WRITE (remote_desc, "+", 1); return; } /* Try the whole thing again. */ retry: SERIAL_WRITE (remote_desc, "-", 1); } /* We have tried hard enough, and just can't receive the packet. Give up. */ printf_unfiltered ("Ignoring packet error, continuing...\n"); SERIAL_WRITE (remote_desc, "+", 1); } static void remote_kill () { putpkt ("k"); /* Don't wait for it to die. I'm not really sure it matters whether we do or not. For the existing stubs, kill is a noop. */ target_mourn_inferior (); } static void remote_mourn () { unpush_target (&remote_ops); generic_mourn_inferior (); } #ifdef REMOTE_BREAKPOINT /* On some machines, e.g. 68k, we may use a different breakpoint instruction than other targets. */ static unsigned char break_insn[] = REMOTE_BREAKPOINT; /* Check that it fits in BREAKPOINT_MAX bytes. */ static unsigned char check_break_insn_size[BREAKPOINT_MAX] = REMOTE_BREAKPOINT; #else /* No REMOTE_BREAKPOINT. */ /* Same old breakpoint instruction. This code does nothing different than mem-break.c. */ static unsigned char break_insn[] = BREAKPOINT; #endif /* No REMOTE_BREAKPOINT. */ /* Insert a breakpoint on targets that don't have any better breakpoint support. We read the contents of the target location and stash it, then overwrite it with a breakpoint instruction. ADDR is the target location in the target machine. CONTENTS_CACHE is a pointer to memory allocated for saving the target contents. It is guaranteed by the caller to be long enough to save sizeof BREAKPOINT bytes (this is accomplished via BREAKPOINT_MAX). */ static int remote_insert_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { int val; val = target_read_memory (addr, contents_cache, sizeof break_insn); if (val == 0) val = target_write_memory (addr, (char *)break_insn, sizeof break_insn); return val; } static int remote_remove_breakpoint (addr, contents_cache) CORE_ADDR addr; char *contents_cache; { return target_write_memory (addr, contents_cache, sizeof break_insn); } /* Define the target subroutine names */ struct target_ops remote_ops = { "remote", /* to_shortname */ "Remote serial target in gdb-specific protocol", /* to_longname */ "Use a remote computer via a serial line, using a gdb-specific protocol.\n\ Specify the serial device it is connected to (e.g. /dev/ttya).", /* to_doc */ remote_open, /* to_open */ remote_close, /* to_close */ NULL, /* to_attach */ remote_detach, /* to_detach */ remote_resume, /* to_resume */ remote_wait, /* to_wait */ remote_fetch_registers, /* to_fetch_registers */ remote_store_registers, /* to_store_registers */ remote_prepare_to_store, /* to_prepare_to_store */ remote_xfer_memory, /* to_xfer_memory */ remote_files_info, /* to_files_info */ remote_insert_breakpoint, /* to_insert_breakpoint */ remote_remove_breakpoint, /* to_remove_breakpoint */ NULL, /* to_terminal_init */ NULL, /* to_terminal_inferior */ NULL, /* to_terminal_ours_for_output */ NULL, /* to_terminal_ours */ NULL, /* to_terminal_info */ remote_kill, /* to_kill */ generic_load, /* to_load */ NULL, /* to_lookup_symbol */ NULL, /* to_create_inferior */ remote_mourn, /* to_mourn_inferior */ 0, /* to_can_run */ 0, /* to_notice_signals */ process_stratum, /* to_stratum */ NULL, /* to_next */ 1, /* to_has_all_memory */ 1, /* to_has_memory */ 1, /* to_has_stack */ 1, /* to_has_registers */ 1, /* to_has_execution */ NULL, /* sections */ NULL, /* sections_end */ OPS_MAGIC /* to_magic */ }; #endif /* Use remote. */ void _initialize_remote () { #if !defined(DONT_USE_REMOTE) add_target (&remote_ops); #endif } gdb-4.13/gdb/rs6000-nat.c 666 34562 1752 52064 5562241736 13210 0ustar fnfcygnus/* IBM RS/6000 native-dependent code for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "target.h" #include "gdbcore.h" #include "xcoffsolib.h" #include "symfile.h" #include "objfiles.h" #include "libbfd.h" /* BFD internals (sigh!) FIXME */ #include "bfd.h" #include #include #include #include #include #include #include #include #include #include #include #include #include extern int errno; extern struct vmap * map_vmap PARAMS ((bfd *bf, bfd *arch)); extern struct target_ops exec_ops; static void exec_one_dummy_insn PARAMS ((void)); extern void add_text_to_loadinfo PARAMS ((CORE_ADDR textaddr, CORE_ADDR dataaddr)); extern void fixup_breakpoints PARAMS ((CORE_ADDR low, CORE_ADDR high, CORE_ADDR delta)); /* Conversion from gdb-to-system special purpose register numbers.. */ static int special_regs[] = { IAR, /* PC_REGNUM */ MSR, /* PS_REGNUM */ CR, /* CR_REGNUM */ LR, /* LR_REGNUM */ CTR, /* CTR_REGNUM */ XER, /* XER_REGNUM */ MQ /* MQ_REGNUM */ }; void fetch_inferior_registers (regno) int regno; { int ii; extern char registers[]; if (regno < 0) { /* for all registers */ /* read 32 general purpose registers. */ for (ii=0; ii < 32; ++ii) *(int*)®isters[REGISTER_BYTE (ii)] = ptrace (PT_READ_GPR, inferior_pid, (PTRACE_ARG3_TYPE) ii, 0, 0); /* read general purpose floating point registers. */ for (ii=0; ii < 32; ++ii) ptrace (PT_READ_FPR, inferior_pid, (PTRACE_ARG3_TYPE) ®isters [REGISTER_BYTE (FP0_REGNUM+ii)], FPR0+ii, 0); /* read special registers. */ for (ii=0; ii <= LAST_SP_REGNUM-FIRST_SP_REGNUM; ++ii) *(int*)®isters[REGISTER_BYTE (FIRST_SP_REGNUM+ii)] = ptrace (PT_READ_GPR, inferior_pid, (PTRACE_ARG3_TYPE) special_regs[ii], 0, 0); registers_fetched (); return; } /* else an individual register is addressed. */ else if (regno < FP0_REGNUM) { /* a GPR */ *(int*)®isters[REGISTER_BYTE (regno)] = ptrace (PT_READ_GPR, inferior_pid, (PTRACE_ARG3_TYPE) regno, 0, 0); } else if (regno <= FPLAST_REGNUM) { /* a FPR */ ptrace (PT_READ_FPR, inferior_pid, (PTRACE_ARG3_TYPE) ®isters [REGISTER_BYTE (regno)], (regno-FP0_REGNUM+FPR0), 0); } else if (regno <= LAST_SP_REGNUM) { /* a special register */ *(int*)®isters[REGISTER_BYTE (regno)] = ptrace (PT_READ_GPR, inferior_pid, (PTRACE_ARG3_TYPE) special_regs[regno-FIRST_SP_REGNUM], 0, 0); } else fprintf_unfiltered (gdb_stderr, "gdb error: register no %d not implemented.\n", regno); register_valid [regno] = 1; } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { extern char registers[]; errno = 0; if (regno == -1) { /* for all registers.. */ int ii; /* execute one dummy instruction (which is a breakpoint) in inferior process. So give kernel a chance to do internal house keeping. Otherwise the following ptrace(2) calls will mess up user stack since kernel will get confused about the bottom of the stack (%sp) */ exec_one_dummy_insn (); /* write general purpose registers first! */ for ( ii=GPR0; ii<=GPR31; ++ii) { ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) ii, *(int*)®isters[REGISTER_BYTE (ii)], 0); if (errno) { perror ("ptrace write_gpr"); errno = 0; } } /* write floating point registers now. */ for ( ii=0; ii < 32; ++ii) { ptrace (PT_WRITE_FPR, inferior_pid, (PTRACE_ARG3_TYPE) ®isters[REGISTER_BYTE (FP0_REGNUM+ii)], FPR0+ii, 0); if (errno) { perror ("ptrace write_fpr"); errno = 0; } } /* write special registers. */ for (ii=0; ii <= LAST_SP_REGNUM-FIRST_SP_REGNUM; ++ii) { ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) special_regs[ii], *(int*)®isters[REGISTER_BYTE (FIRST_SP_REGNUM+ii)], 0); if (errno) { perror ("ptrace write_gpr"); errno = 0; } } } /* else, a specific register number is given... */ else if (regno < FP0_REGNUM) /* a GPR */ { ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) regno, *(int*)®isters[REGISTER_BYTE (regno)], 0); } else if (regno <= FPLAST_REGNUM) /* a FPR */ { ptrace (PT_WRITE_FPR, inferior_pid, (PTRACE_ARG3_TYPE) ®isters[REGISTER_BYTE (regno)], regno - FP0_REGNUM + FPR0, 0); } else if (regno <= LAST_SP_REGNUM) /* a special register */ { ptrace (PT_WRITE_GPR, inferior_pid, (PTRACE_ARG3_TYPE) special_regs [regno-FIRST_SP_REGNUM], *(int*)®isters[REGISTER_BYTE (regno)], 0); } else fprintf_unfiltered (gdb_stderr, "Gdb error: register no %d not implemented.\n", regno); if (errno) { perror ("ptrace write"); errno = 0; } } /* Execute one dummy breakpoint instruction. This way we give the kernel a chance to do some housekeeping and update inferior's internal data, including u_area. */ static void exec_one_dummy_insn () { #define DUMMY_INSN_ADDR (TEXT_SEGMENT_BASE)+0x200 char shadow_contents[BREAKPOINT_MAX]; /* Stash old bkpt addr contents */ unsigned int status, pid; /* We plant one dummy breakpoint into DUMMY_INSN_ADDR address. We assume that this address will never be executed again by the real code. */ target_insert_breakpoint (DUMMY_INSN_ADDR, shadow_contents); errno = 0; ptrace (PT_CONTINUE, inferior_pid, (PTRACE_ARG3_TYPE) DUMMY_INSN_ADDR, 0, 0); if (errno) perror ("pt_continue"); do { pid = wait (&status); } while (pid != inferior_pid); target_remove_breakpoint (DUMMY_INSN_ADDR, shadow_contents); } void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned int reg_addr; /* Unused in this version */ { /* fetch GPRs and special registers from the first register section in core bfd. */ if (which == 0) { /* copy GPRs first. */ memcpy (registers, core_reg_sect, 32 * 4); /* gdb's internal register template and bfd's register section layout should share a common include file. FIXMEmgo */ /* then comes special registes. They are supposed to be in the same order in gdb template and bfd `.reg' section. */ core_reg_sect += (32 * 4); memcpy (®isters [REGISTER_BYTE (FIRST_SP_REGNUM)], core_reg_sect, (LAST_SP_REGNUM - FIRST_SP_REGNUM + 1) * 4); } /* fetch floating point registers from register section 2 in core bfd. */ else if (which == 2) memcpy (®isters [REGISTER_BYTE (FP0_REGNUM)], core_reg_sect, 32 * 8); else fprintf_unfiltered (gdb_stderr, "Gdb error: unknown parameter to fetch_core_registers().\n"); } /* handle symbol translation on vmapping */ static void vmap_symtab (vp) register struct vmap *vp; { register struct objfile *objfile; asection *textsec; asection *datasec; asection *bsssec; CORE_ADDR text_delta; CORE_ADDR data_delta; CORE_ADDR bss_delta; struct section_offsets *new_offsets; int i; objfile = vp->objfile; if (objfile == NULL) { /* OK, it's not an objfile we opened ourselves. Currently, that can only happen with the exec file, so relocate the symbols for the symfile. */ if (symfile_objfile == NULL) return; objfile = symfile_objfile; } new_offsets = alloca (sizeof (struct section_offsets) + sizeof (new_offsets->offsets) * objfile->num_sections); for (i = 0; i < objfile->num_sections; ++i) ANOFFSET (new_offsets, i) = ANOFFSET (objfile->section_offsets, i); textsec = bfd_get_section_by_name (vp->bfd, ".text"); text_delta = vp->tstart - ANOFFSET (objfile->section_offsets, textsec->target_index); ANOFFSET (new_offsets, textsec->target_index) = vp->tstart; datasec = bfd_get_section_by_name (vp->bfd, ".data"); data_delta = vp->dstart - ANOFFSET (objfile->section_offsets, datasec->target_index); ANOFFSET (new_offsets, datasec->target_index) = vp->dstart; bsssec = bfd_get_section_by_name (vp->bfd, ".bss"); bss_delta = vp->dstart - ANOFFSET (objfile->section_offsets, bsssec->target_index); ANOFFSET (new_offsets, bsssec->target_index) = vp->dstart; objfile_relocate (objfile, new_offsets); { struct obj_section *s; for (s = objfile->sections; s < objfile->sections_end; ++s) { if (s->the_bfd_section->target_index == textsec->target_index) { s->addr += text_delta; s->endaddr += text_delta; } else if (s->the_bfd_section->target_index == datasec->target_index) { s->addr += data_delta; s->endaddr += data_delta; } else if (s->the_bfd_section->target_index == bsssec->target_index) { s->addr += bss_delta; s->endaddr += bss_delta; } } } if (text_delta != 0) /* breakpoints need to be relocated as well. */ fixup_breakpoints (0, TEXT_SEGMENT_BASE, text_delta); } /* Add symbols for an objfile. */ static int objfile_symbol_add (arg) char *arg; { struct objfile *obj = (struct objfile *) arg; syms_from_objfile (obj, 0, 0, 0); new_symfile_objfile (obj, 0, 0); return 1; } /* Add a new vmap entry based on ldinfo() information. If ldi->ldinfo_fd is not valid (e.g. this struct ld_info is from a core file), the caller should set it to -1, and we will open the file. Return the vmap new entry. */ static struct vmap * add_vmap (ldi) register struct ld_info *ldi; { bfd *abfd, *last; register char *mem, *objname; struct objfile *obj; struct vmap *vp; /* This ldi structure was allocated using alloca() in xcoff_relocate_symtab(). Now we need to have persistent object and member names, so we should save them. */ mem = ldi->ldinfo_filename + strlen (ldi->ldinfo_filename) + 1; mem = savestring (mem, strlen (mem)); objname = savestring (ldi->ldinfo_filename, strlen (ldi->ldinfo_filename)); if (ldi->ldinfo_fd < 0) /* Note that this opens it once for every member; a possible enhancement would be to only open it once for every object. */ abfd = bfd_openr (objname, gnutarget); else abfd = bfd_fdopenr (objname, gnutarget, ldi->ldinfo_fd); if (!abfd) error ("Could not open `%s' as an executable file: %s", objname, bfd_errmsg (bfd_get_error ())); /* make sure we have an object file */ if (bfd_check_format (abfd, bfd_object)) vp = map_vmap (abfd, 0); else if (bfd_check_format (abfd, bfd_archive)) { last = 0; /* FIXME??? am I tossing BFDs? bfd? */ while ((last = bfd_openr_next_archived_file (abfd, last))) if (STREQ (mem, last->filename)) break; if (!last) { bfd_close (abfd); /* FIXME -- should be error */ warning ("\"%s\": member \"%s\" missing.", abfd->filename, mem); return; } if (!bfd_check_format(last, bfd_object)) { bfd_close (last); /* XXX??? */ goto obj_err; } vp = map_vmap (last, abfd); } else { obj_err: bfd_close (abfd); error ("\"%s\": not in executable format: %s.", objname, bfd_errmsg (bfd_get_error ())); /*NOTREACHED*/ } obj = allocate_objfile (vp->bfd, 0); vp->objfile = obj; #ifndef SOLIB_SYMBOLS_MANUAL if (catch_errors (objfile_symbol_add, (char *)obj, "Error while reading shared library symbols:\n", RETURN_MASK_ALL)) { /* Note this is only done if symbol reading was successful. */ vmap_symtab (vp); vp->loaded = 1; } #endif return vp; } /* update VMAP info with ldinfo() information Input is ptr to ldinfo() results. */ static void vmap_ldinfo (ldi) register struct ld_info *ldi; { struct stat ii, vi; register struct vmap *vp; register got_one, retried; CORE_ADDR ostart; /* For each *ldi, see if we have a corresponding *vp. If so, update the mapping, and symbol table. If not, add an entry and symbol table. */ do { char *name = ldi->ldinfo_filename; char *memb = name + strlen(name) + 1; retried = 0; if (fstat (ldi->ldinfo_fd, &ii) < 0) fatal ("cannot fstat(fd=%d) on %s", ldi->ldinfo_fd, name); retry: for (got_one = 0, vp = vmap; vp; vp = vp->nxt) { FILE *io; /* First try to find a `vp', which is the same as in ldinfo. If not the same, just continue and grep the next `vp'. If same, relocate its tstart, tend, dstart, dend values. If no such `vp' found, get out of this for loop, add this ldi entry as a new vmap (add_vmap) and come back, fins its `vp' and so on... */ /* The filenames are not always sufficient to match on. */ if ((name[0] == '/' && !STREQ(name, vp->name)) || (memb[0] && !STREQ(memb, vp->member))) continue; io = bfd_cache_lookup (vp->bfd); /* totally opaque! */ if (!io) fatal ("cannot find BFD's iostream for %s", vp->name); /* See if we are referring to the same file. */ /* An error here is innocuous, most likely meaning that the file descriptor has become worthless. */ if (fstat (fileno(io), &vi) < 0) continue; if (ii.st_dev != vi.st_dev || ii.st_ino != vi.st_ino) continue; if (!retried) close (ldi->ldinfo_fd); ++got_one; /* found a corresponding VMAP. remap! */ ostart = vp->tstart; /* We can assume pointer == CORE_ADDR, this code is native only. */ vp->tstart = (CORE_ADDR) ldi->ldinfo_textorg; vp->tend = vp->tstart + ldi->ldinfo_textsize; vp->dstart = (CORE_ADDR) ldi->ldinfo_dataorg; vp->dend = vp->dstart + ldi->ldinfo_datasize; if (vp->tadj) { vp->tstart += vp->tadj; vp->tend += vp->tadj; } /* relocate symbol table(s). */ vmap_symtab (vp); /* there may be more, so we don't break out of the loop. */ } /* if there was no matching *vp, we must perforce create the sucker(s) */ if (!got_one && !retried) { add_vmap (ldi); ++retried; goto retry; } } while (ldi->ldinfo_next && (ldi = (void *) (ldi->ldinfo_next + (char *) ldi))); } /* As well as symbol tables, exec_sections need relocation. After the inferior process' termination, there will be a relocated symbol table exist with no corresponding inferior process. At that time, we need to use `exec' bfd, rather than the inferior process's memory space to look up symbols. `exec_sections' need to be relocated only once, as long as the exec file remains unchanged. */ static void vmap_exec () { static bfd *execbfd; int i; if (execbfd == exec_bfd) return; execbfd = exec_bfd; if (!vmap || !exec_ops.to_sections) error ("vmap_exec: vmap or exec_ops.to_sections == 0\n"); for (i=0; &exec_ops.to_sections[i] < exec_ops.to_sections_end; i++) { if (STREQ(".text", exec_ops.to_sections[i].the_bfd_section->name)) { exec_ops.to_sections[i].addr += vmap->tstart; exec_ops.to_sections[i].endaddr += vmap->tstart; } else if (STREQ(".data", exec_ops.to_sections[i].the_bfd_section->name)) { exec_ops.to_sections[i].addr += vmap->dstart; exec_ops.to_sections[i].endaddr += vmap->dstart; } } } /* xcoff_relocate_symtab - hook for symbol table relocation. also reads shared libraries.. */ void xcoff_relocate_symtab (pid) unsigned int pid; { #define MAX_LOAD_SEGS 64 /* maximum number of load segments */ struct ld_info *ldi; ldi = (void *) alloca(MAX_LOAD_SEGS * sizeof (*ldi)); /* 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); errno = 0; ptrace (PT_LDINFO, pid, (PTRACE_ARG3_TYPE) ldi, MAX_LOAD_SEGS * sizeof(*ldi), ldi); if (errno) perror_with_name ("ptrace ldinfo"); vmap_ldinfo (ldi); do { /* We are allowed to assume CORE_ADDR == pointer. This code is native only. */ add_text_to_loadinfo ((CORE_ADDR) ldi->ldinfo_textorg, (CORE_ADDR) ldi->ldinfo_dataorg); } while (ldi->ldinfo_next && (ldi = (void *) (ldi->ldinfo_next + (char *) ldi))); #if 0 /* Now that we've jumbled things around, re-sort them. */ sort_minimal_symbols (); #endif /* relocate the exec and core sections as well. */ vmap_exec (); } /* Core file stuff. */ /* Relocate symtabs and read in shared library info, based on symbols from the core file. */ void xcoff_relocate_core () { /* Offset of member MEMBER in a struct of type TYPE. */ #ifndef offsetof #define offsetof(TYPE, MEMBER) ((int) &((TYPE *)0)->MEMBER) #endif /* Size of a struct ld_info except for the variable-length filename. */ #define LDINFO_SIZE (offsetof (struct ld_info, ldinfo_filename)) sec_ptr ldinfo_sec; int offset = 0; struct ld_info *ldip; struct vmap *vp; /* Allocated size of buffer. */ int buffer_size = LDINFO_SIZE; char *buffer = xmalloc (buffer_size); struct cleanup *old = make_cleanup (free_current_contents, &buffer); /* FIXME, this restriction should not exist. For now, though I'll avoid coredumps with error() pending a real fix. */ if (vmap == NULL) error ("Can't debug a core file without an executable file (on the RS/6000)"); ldinfo_sec = bfd_get_section_by_name (core_bfd, ".ldinfo"); if (ldinfo_sec == NULL) { bfd_err: fprintf_filtered (gdb_stderr, "Couldn't get ldinfo from core file: %s\n", bfd_errmsg (bfd_get_error ())); do_cleanups (old); return; } do { int i; int names_found = 0; /* Read in everything but the name. */ if (bfd_get_section_contents (core_bfd, ldinfo_sec, buffer, offset, LDINFO_SIZE) == 0) goto bfd_err; /* Now the name. */ i = LDINFO_SIZE; do { if (i == buffer_size) { buffer_size *= 2; buffer = xrealloc (buffer, buffer_size); } if (bfd_get_section_contents (core_bfd, ldinfo_sec, &buffer[i], offset + i, 1) == 0) goto bfd_err; if (buffer[i++] == '\0') ++names_found; } while (names_found < 2); ldip = (struct ld_info *) buffer; /* Can't use a file descriptor from the core file; need to open it. */ ldip->ldinfo_fd = -1; /* The first ldinfo is for the exec file, allocated elsewhere. */ if (offset == 0) vp = vmap; else vp = add_vmap (ldip); offset += ldip->ldinfo_next; /* We can assume pointer == CORE_ADDR, this code is native only. */ vp->tstart = (CORE_ADDR) ldip->ldinfo_textorg; vp->tend = vp->tstart + ldip->ldinfo_textsize; vp->dstart = (CORE_ADDR) ldip->ldinfo_dataorg; vp->dend = vp->dstart + ldip->ldinfo_datasize; if (vp->tadj != 0) { vp->tstart += vp->tadj; vp->tend += vp->tadj; } /* Unless this is the exec file, add our sections to the section table for the core target. */ if (vp != vmap) { int count; struct section_table *stp; count = core_ops.to_sections_end - core_ops.to_sections; count += 2; core_ops.to_sections = (struct section_table *) xrealloc (core_ops.to_sections, sizeof (struct section_table) * count); core_ops.to_sections_end = core_ops.to_sections + count; stp = core_ops.to_sections_end - 2; /* "Why do we add bfd_section_vma?", I hear you cry. Well, the start of the section in the file is actually that far into the section as the struct vmap understands it. So for text sections, bfd_section_vma tends to be 0x200, and if vp->tstart is 0xd0002000, then the first byte of the text section on disk corresponds to address 0xd0002200. */ stp->bfd = vp->bfd; stp->the_bfd_section = bfd_get_section_by_name (stp->bfd, ".text"); stp->addr = bfd_section_vma (stp->bfd, stp->the_bfd_section) + vp->tstart; stp->endaddr = bfd_section_vma (stp->bfd, stp->the_bfd_section) + vp->tend; stp++; stp->bfd = vp->bfd; stp->the_bfd_section = bfd_get_section_by_name (stp->bfd, ".data"); stp->addr = bfd_section_vma (stp->bfd, stp->the_bfd_section) + vp->dstart; stp->endaddr = bfd_section_vma (stp->bfd, stp->the_bfd_section) + vp->dend; } vmap_symtab (vp); add_text_to_loadinfo ((CORE_ADDR)ldip->ldinfo_textorg, (CORE_ADDR)ldip->ldinfo_dataorg); } while (ldip->ldinfo_next != 0); vmap_exec (); do_cleanups (old); } gdb-4.13/gdb/rs6000-pinsn.c 666 34562 1752 2417 5520070122 13511 0ustar fnfcygnus/* Print IBM RS/6000 instructions for GNU software. Copyright 1991,1994 Free Software Foundation, Inc. Original version was contributed by IBM Corporation. Now we just use the disassembler in the opcodes directory. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dis-asm.h" /* Print the rs6k instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO (info, stream); return print_insn_rs6000 ((bfd_vma) memaddr, &info); } gdb-4.13/gdb/rs6000-tdep.c 666 34562 1752 103256 5541374542 13401 0ustar fnfcygnus/* Target-dependent code for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "symtab.h" #include "target.h" #include "gdbcore.h" #include "xcoffsolib.h" #include extern struct obstack frame_cache_obstack; extern int errno; /* Nonzero if we just simulated a single step break. */ int one_stepped; /* Breakpoint shadows for the single step instructions will be kept here. */ static struct sstep_breaks { /* Address, or 0 if this is not in use. */ CORE_ADDR address; /* Shadow contents. */ char data[4]; } stepBreaks[2]; /* Static function prototypes */ static CORE_ADDR find_toc_address PARAMS ((CORE_ADDR pc)); static CORE_ADDR branch_dest PARAMS ((int opcode, int instr, CORE_ADDR pc, CORE_ADDR safety)); static void frame_get_cache_fsr PARAMS ((struct frame_info *fi, struct aix_framedata *fdatap)); /* * Calculate the destination of a branch/jump. Return -1 if not a branch. */ static CORE_ADDR branch_dest (opcode, instr, pc, safety) int opcode; int instr; CORE_ADDR pc; CORE_ADDR safety; { register long offset; CORE_ADDR dest; int immediate; int absolute; int ext_op; absolute = (int) ((instr >> 1) & 1); switch (opcode) { case 18 : immediate = ((instr & ~3) << 6) >> 6; /* br unconditional */ case 16 : if (opcode != 18) /* br conditional */ immediate = ((instr & ~3) << 16) >> 16; if (absolute) dest = immediate; else dest = pc + immediate; break; case 19 : ext_op = (instr>>1) & 0x3ff; if (ext_op == 16) /* br conditional register */ dest = read_register (LR_REGNUM) & ~3; else if (ext_op == 528) /* br cond to count reg */ { dest = read_register (CTR_REGNUM) & ~3; /* If we are about to execute a system call, dest is something like 0x22fc or 0x3b00. Upon completion the system call will return to the address in the link register. */ if (dest < TEXT_SEGMENT_BASE) dest = read_register (LR_REGNUM) & ~3; } else return -1; break; default: return -1; } return (dest < TEXT_SEGMENT_BASE) ? safety : dest; } /* AIX does not support PT_STEP. Simulate it. */ void single_step (signal) int signal; { #define INSNLEN(OPCODE) 4 static char breakp[] = BREAKPOINT; int ii, insn; CORE_ADDR loc; CORE_ADDR breaks[2]; int opcode; if (!one_stepped) { loc = read_pc (); read_memory (loc, (char *) &insn, 4); breaks[0] = loc + INSNLEN(insn); opcode = insn >> 26; breaks[1] = branch_dest (opcode, insn, loc, breaks[0]); /* Don't put two breakpoints on the same address. */ if (breaks[1] == breaks[0]) breaks[1] = -1; stepBreaks[1].address = 0; for (ii=0; ii < 2; ++ii) { /* ignore invalid breakpoint. */ if ( breaks[ii] == -1) continue; read_memory (breaks[ii], stepBreaks[ii].data, 4); write_memory (breaks[ii], breakp, 4); stepBreaks[ii].address = breaks[ii]; } one_stepped = 1; } else { /* remove step breakpoints. */ for (ii=0; ii < 2; ++ii) if (stepBreaks[ii].address != 0) write_memory (stepBreaks[ii].address, stepBreaks[ii].data, 4); one_stepped = 0; } errno = 0; /* FIXME, don't ignore errors! */ /* What errors? {read,write}_memory call error(). */ } /* return pc value after skipping a function prologue. */ skip_prologue (pc) CORE_ADDR pc; { char buf[4]; unsigned int tmp; unsigned long op; if (target_read_memory (pc, buf, 4)) return pc; /* Can't access it -- assume no prologue. */ op = extract_unsigned_integer (buf, 4); /* Assume that subsequent fetches can fail with low probability. */ if (op == 0x7c0802a6) { /* mflr r0 */ pc += 4; op = read_memory_integer (pc, 4); } if ((op & 0xfc00003e) == 0x7c000026) { /* mfcr Rx */ pc += 4; op = read_memory_integer (pc, 4); } if ((op & 0xfc000000) == 0x48000000) { /* bl foo, to save fprs??? */ pc += 4; op = read_memory_integer (pc, 4); /* At this point, make sure this is not a trampoline function (a function that simply calls another functions, and nothing else). If the next is not a nop, this branch was part of the function prologue. */ if (op == 0x4def7b82 || /* crorc 15, 15, 15 */ op == 0x0) return pc - 4; /* don't skip over this branch */ } if ((op & 0xfc1f0000) == 0xd8010000) { /* stfd Rx,NUM(r1) */ pc += 4; /* store floating register double */ op = read_memory_integer (pc, 4); } if ((op & 0xfc1f0000) == 0xbc010000) { /* stm Rx, NUM(r1) */ pc += 4; op = read_memory_integer (pc, 4); } while (((tmp = op >> 16) == 0x9001) || /* st r0, NUM(r1) */ (tmp == 0x9421) || /* stu r1, NUM(r1) */ (tmp == 0x93e1)) /* st r31,NUM(r1) */ { pc += 4; op = read_memory_integer (pc, 4); } while ((tmp = (op >> 22)) == 0x20f) { /* l r31, ... or */ pc += 4; /* l r30, ... */ op = read_memory_integer (pc, 4); } /* store parameters into stack */ while( (op & 0xfc1f0000) == 0xd8010000 || /* stfd Rx,NUM(r1) */ (op & 0xfc1f0000) == 0x90010000 || /* st r?, NUM(r1) */ (op & 0xfc000000) == 0xfc000000 || /* frsp, fp?, .. */ (op & 0xd0000000) == 0xd0000000) /* stfs, fp?, .. */ { pc += 4; /* store fpr double */ op = read_memory_integer (pc, 4); } if (op == 0x603f0000) { /* oril r31, r1, 0x0 */ pc += 4; /* this happens if r31 is used as */ op = read_memory_integer (pc, 4); /* frame ptr. (gcc does that) */ tmp = 0; while ((op >> 16) == (0x907f + tmp)) { /* st r3, NUM(r31) */ pc += 4; /* st r4, NUM(r31), ... */ op = read_memory_integer (pc, 4); tmp += 0x20; } } #if 0 /* I have problems with skipping over __main() that I need to address * sometime. Previously, I used to use misc_function_vector which * didn't work as well as I wanted to be. -MGO */ /* If the first thing after skipping a prolog is a branch to a function, this might be a call to an initializer in main(), introduced by gcc2. We'd like to skip over it as well. Fortunately, xlc does some extra work before calling a function right after a prologue, thus we can single out such gcc2 behaviour. */ if ((op & 0xfc000001) == 0x48000001) { /* bl foo, an initializer function? */ op = read_memory_integer (pc+4, 4); if (op == 0x4def7b82) { /* cror 0xf, 0xf, 0xf (nop) */ /* check and see if we are in main. If so, skip over this initializer function as well. */ tmp = find_pc_misc_function (pc); if (tmp >= 0 && STREQ (misc_function_vector [tmp].name, "main")) return pc + 8; } } #endif /* 0 */ return pc; } /************************************************************************* Support for creating pushind a dummy frame into the stack, and popping frames, etc. *************************************************************************/ /* The total size of dummy frame is 436, which is; 32 gpr's - 128 bytes 32 fpr's - 256 " 7 the rest - 28 " and 24 extra bytes for the callee's link area. The last 24 bytes for the link area might not be necessary, since it will be taken care of by push_arguments(). */ #define DUMMY_FRAME_SIZE 436 #define DUMMY_FRAME_ADDR_SIZE 10 /* Make sure you initialize these in somewhere, in case gdb gives up what it was debugging and starts debugging something else. FIXMEibm */ static int dummy_frame_count = 0; static int dummy_frame_size = 0; static CORE_ADDR *dummy_frame_addr = 0; extern int stop_stack_dummy; /* push a dummy frame into stack, save all register. Currently we are saving only gpr's and fpr's, which is not good enough! FIXMEmgo */ void push_dummy_frame () { /* stack pointer. */ CORE_ADDR sp; /* link register. */ CORE_ADDR pc; /* Same thing, target byte order. */ char pc_targ[4]; int ii; target_fetch_registers (-1); if (dummy_frame_count >= dummy_frame_size) { dummy_frame_size += DUMMY_FRAME_ADDR_SIZE; if (dummy_frame_addr) dummy_frame_addr = (CORE_ADDR*) xrealloc (dummy_frame_addr, sizeof(CORE_ADDR) * (dummy_frame_size)); else dummy_frame_addr = (CORE_ADDR*) xmalloc (sizeof(CORE_ADDR) * (dummy_frame_size)); } sp = read_register(SP_REGNUM); pc = read_register(PC_REGNUM); memcpy (pc_targ, (char *) &pc, 4); dummy_frame_addr [dummy_frame_count++] = sp; /* Be careful! If the stack pointer is not decremented first, then kernel thinks he is free to use the space underneath it. And kernel actually uses that area for IPC purposes when executing ptrace(2) calls. So before writing register values into the new frame, decrement and update %sp first in order to secure your frame. */ write_register (SP_REGNUM, sp-DUMMY_FRAME_SIZE); /* gdb relies on the state of current_frame. We'd better update it, otherwise things like do_registers_info() wouldn't work properly! */ flush_cached_frames (); set_current_frame (create_new_frame (sp-DUMMY_FRAME_SIZE, pc)); /* save program counter in link register's space. */ write_memory (sp+8, pc_targ, 4); /* save all floating point and general purpose registers here. */ /* fpr's, f0..f31 */ for (ii = 0; ii < 32; ++ii) write_memory (sp-8-(ii*8), ®isters[REGISTER_BYTE (31-ii+FP0_REGNUM)], 8); /* gpr's r0..r31 */ for (ii=1; ii <=32; ++ii) write_memory (sp-256-(ii*4), ®isters[REGISTER_BYTE (32-ii)], 4); /* so far, 32*2 + 32 words = 384 bytes have been written. 7 extra registers in our register set: pc, ps, cnd, lr, cnt, xer, mq */ for (ii=1; ii <= (LAST_SP_REGNUM-FIRST_SP_REGNUM+1); ++ii) { write_memory (sp-384-(ii*4), ®isters[REGISTER_BYTE (FPLAST_REGNUM + ii)], 4); } /* Save sp or so called back chain right here. */ write_memory (sp-DUMMY_FRAME_SIZE, &sp, 4); sp -= DUMMY_FRAME_SIZE; /* And finally, this is the back chain. */ write_memory (sp+8, pc_targ, 4); } /* Pop a dummy frame. In rs6000 when we push a dummy frame, we save all of the registers. This is usually done before user calls a function explicitly. After a dummy frame is pushed, some instructions are copied into stack, and stack pointer is decremented even more. Since we don't have a frame pointer to get back to the parent frame of the dummy, we start having trouble poping it. Therefore, we keep a dummy frame stack, keeping addresses of dummy frames as such. When poping happens and when we detect that was a dummy frame, we pop it back to its parent by using dummy frame stack (`dummy_frame_addr' array). FIXME: This whole concept is broken. You should be able to detect a dummy stack frame *on the user's stack itself*. When you do, then you know the format of that stack frame -- including its saved SP register! There should *not* be a separate stack in the GDB process that keeps track of these dummy frames! -- gnu@cygnus.com Aug92 */ pop_dummy_frame () { CORE_ADDR sp, pc; int ii; sp = dummy_frame_addr [--dummy_frame_count]; /* restore all fpr's. */ for (ii = 1; ii <= 32; ++ii) read_memory (sp-(ii*8), ®isters[REGISTER_BYTE (32-ii+FP0_REGNUM)], 8); /* restore all gpr's */ for (ii=1; ii <= 32; ++ii) { read_memory (sp-256-(ii*4), ®isters[REGISTER_BYTE (32-ii)], 4); } /* restore the rest of the registers. */ for (ii=1; ii <=(LAST_SP_REGNUM-FIRST_SP_REGNUM+1); ++ii) read_memory (sp-384-(ii*4), ®isters[REGISTER_BYTE (FPLAST_REGNUM + ii)], 4); read_memory (sp-(DUMMY_FRAME_SIZE-8), ®isters [REGISTER_BYTE(PC_REGNUM)], 4); /* when a dummy frame was being pushed, we had to decrement %sp first, in order to secure astack space. Thus, saved %sp (or %r1) value, is not the one we should restore. Change it with the one we need. */ *(int*)®isters [REGISTER_BYTE(FP_REGNUM)] = sp; /* Now we can restore all registers. */ target_store_registers (-1); pc = read_pc (); flush_cached_frames (); set_current_frame (create_new_frame (sp, pc)); } /* pop the innermost frame, go back to the caller. */ void pop_frame () { CORE_ADDR pc, lr, sp, prev_sp; /* %pc, %lr, %sp */ struct aix_framedata fdata; FRAME fr = get_current_frame (); int addr, ii; pc = read_pc (); sp = FRAME_FP (fr); if (stop_stack_dummy && dummy_frame_count) { pop_dummy_frame (); return; } /* figure out previous %pc value. If the function is frameless, it is still in the link register, otherwise walk the frames and retrieve the saved %pc value in the previous frame. */ addr = get_pc_function_start (fr->pc) + FUNCTION_START_OFFSET; function_frame_info (addr, &fdata); prev_sp = read_memory_integer (sp, 4); if (fdata.frameless) lr = read_register (LR_REGNUM); else lr = read_memory_integer (prev_sp+8, 4); /* reset %pc value. */ write_register (PC_REGNUM, lr); /* reset register values if any was saved earlier. */ addr = prev_sp - fdata.offset; if (fdata.saved_gpr != -1) for (ii=fdata.saved_gpr; ii <= 31; ++ii) { read_memory (addr, ®isters [REGISTER_BYTE (ii)], 4); addr += 4; } if (fdata.saved_fpr != -1) for (ii=fdata.saved_fpr; ii <= 31; ++ii) { read_memory (addr, ®isters [REGISTER_BYTE (ii+FP0_REGNUM)], 8); addr += 8; } write_register (SP_REGNUM, prev_sp); target_store_registers (-1); flush_cached_frames (); set_current_frame (create_new_frame (prev_sp, lr)); } /* fixup the call sequence of a dummy function, with the real function address. its argumets will be passed by gdb. */ void fix_call_dummy(dummyname, pc, fun, nargs, type) char *dummyname; CORE_ADDR pc; CORE_ADDR fun; int nargs; /* not used */ int type; /* not used */ { #define TOC_ADDR_OFFSET 20 #define TARGET_ADDR_OFFSET 28 int ii; CORE_ADDR target_addr; CORE_ADDR tocvalue; target_addr = fun; tocvalue = find_toc_address (target_addr); ii = *(int*)((char*)dummyname + TOC_ADDR_OFFSET); ii = (ii & 0xffff0000) | (tocvalue >> 16); *(int*)((char*)dummyname + TOC_ADDR_OFFSET) = ii; ii = *(int*)((char*)dummyname + TOC_ADDR_OFFSET+4); ii = (ii & 0xffff0000) | (tocvalue & 0x0000ffff); *(int*)((char*)dummyname + TOC_ADDR_OFFSET+4) = ii; ii = *(int*)((char*)dummyname + TARGET_ADDR_OFFSET); ii = (ii & 0xffff0000) | (target_addr >> 16); *(int*)((char*)dummyname + TARGET_ADDR_OFFSET) = ii; ii = *(int*)((char*)dummyname + TARGET_ADDR_OFFSET+4); ii = (ii & 0xffff0000) | (target_addr & 0x0000ffff); *(int*)((char*)dummyname + TARGET_ADDR_OFFSET+4) = ii; } /* return information about a function frame. in struct aix_frameinfo fdata: - frameless is TRUE, if function does not have a frame. - nosavedpc is TRUE, if function does not save %pc value in its frame. - offset is the number of bytes used in the frame to save registers. - saved_gpr is the number of the first saved gpr. - saved_fpr is the number of the first saved fpr. - alloca_reg is the number of the register used for alloca() handling. Otherwise -1. */ void function_frame_info (pc, fdata) CORE_ADDR pc; struct aix_framedata *fdata; { unsigned int tmp; register unsigned int op; fdata->offset = 0; fdata->saved_gpr = fdata->saved_fpr = fdata->alloca_reg = -1; fdata->frameless = 1; op = read_memory_integer (pc, 4); if (op == 0x7c0802a6) { /* mflr r0 */ pc += 4; op = read_memory_integer (pc, 4); fdata->nosavedpc = 0; fdata->frameless = 0; } else /* else, pc is not saved */ fdata->nosavedpc = 1; if ((op & 0xfc00003e) == 0x7c000026) { /* mfcr Rx */ pc += 4; op = read_memory_integer (pc, 4); fdata->frameless = 0; } if ((op & 0xfc000000) == 0x48000000) { /* bl foo, to save fprs??? */ pc += 4; op = read_memory_integer (pc, 4); /* At this point, make sure this is not a trampoline function (a function that simply calls another functions, and nothing else). If the next is not a nop, this branch was part of the function prologue. */ if (op == 0x4def7b82 || /* crorc 15, 15, 15 */ op == 0x0) return; /* prologue is over */ fdata->frameless = 0; } if ((op & 0xfc1f0000) == 0xd8010000) { /* stfd Rx,NUM(r1) */ pc += 4; /* store floating register double */ op = read_memory_integer (pc, 4); fdata->frameless = 0; } if ((op & 0xfc1f0000) == 0xbc010000) { /* stm Rx, NUM(r1) */ int tmp2; fdata->saved_gpr = (op >> 21) & 0x1f; tmp2 = op & 0xffff; if (tmp2 > 0x7fff) tmp2 = (~0 &~ 0xffff) | tmp2; if (tmp2 < 0) { tmp2 = tmp2 * -1; fdata->saved_fpr = (tmp2 - ((32 - fdata->saved_gpr) * 4)) / 8; if ( fdata->saved_fpr > 0) fdata->saved_fpr = 32 - fdata->saved_fpr; else fdata->saved_fpr = -1; } fdata->offset = tmp2; pc += 4; op = read_memory_integer (pc, 4); fdata->frameless = 0; } while (((tmp = op >> 16) == 0x9001) || /* st r0, NUM(r1) */ (tmp == 0x9421) || /* stu r1, NUM(r1) */ (tmp == 0x93e1)) /* st r31, NUM(r1) */ { int tmp2; /* gcc takes a short cut and uses this instruction to save r31 only. */ if (tmp == 0x93e1) { if (fdata->offset) /* fatal ("Unrecognized prolog."); */ printf_unfiltered ("Unrecognized prolog!\n"); fdata->saved_gpr = 31; tmp2 = op & 0xffff; if (tmp2 > 0x7fff) { tmp2 = - ((~0 &~ 0xffff) | tmp2); fdata->saved_fpr = (tmp2 - ((32 - 31) * 4)) / 8; if ( fdata->saved_fpr > 0) fdata->saved_fpr = 32 - fdata->saved_fpr; else fdata->saved_fpr = -1; } fdata->offset = tmp2; } pc += 4; op = read_memory_integer (pc, 4); fdata->frameless = 0; } while ((tmp = (op >> 22)) == 0x20f) { /* l r31, ... or */ pc += 4; /* l r30, ... */ op = read_memory_integer (pc, 4); fdata->frameless = 0; } /* store parameters into stack */ while( (op & 0xfc1f0000) == 0xd8010000 || /* stfd Rx,NUM(r1) */ (op & 0xfc1f0000) == 0x90010000 || /* st r?, NUM(r1) */ (op & 0xfc000000) == 0xfc000000 || /* frsp, fp?, .. */ (op & 0xd0000000) == 0xd0000000) /* stfs, fp?, .. */ { pc += 4; /* store fpr double */ op = read_memory_integer (pc, 4); fdata->frameless = 0; } if (op == 0x603f0000) { /* oril r31, r1, 0x0 */ fdata->alloca_reg = 31; fdata->frameless = 0; } } /* Pass the arguments in either registers, or in the stack. In RS6000, the first eight words of the argument list (that might be less than eight parameters if some parameters occupy more than one word) are passed in r3..r11 registers. float and double parameters are passed in fpr's, in addition to that. Rest of the parameters if any are passed in user stack. There might be cases in which half of the parameter is copied into registers, the other half is pushed into stack. If the function is returning a structure, then the return address is passed in r3, then the first 7 words of the parametes can be passed in registers, starting from r4. */ CORE_ADDR push_arguments (nargs, args, sp, struct_return, struct_addr) int nargs; value_ptr *args; CORE_ADDR sp; int struct_return; CORE_ADDR struct_addr; { int ii, len; int argno; /* current argument number */ int argbytes; /* current argument byte */ char tmp_buffer [50]; value_ptr arg; int f_argno = 0; /* current floating point argno */ CORE_ADDR saved_sp, pc; if ( dummy_frame_count <= 0) printf_unfiltered ("FATAL ERROR -push_arguments()! frame not found!!\n"); /* The first eight words of ther arguments are passed in registers. Copy them appropriately. If the function is returning a `struct', then the first word (which will be passed in r3) is used for struct return address. In that case we should advance one word and start from r4 register to copy parameters. */ ii = struct_return ? 1 : 0; for (argno=0, argbytes=0; argno < nargs && ii<8; ++ii) { arg = value_arg_coerce (args[argno]); len = TYPE_LENGTH (VALUE_TYPE (arg)); if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_FLT) { /* floating point arguments are passed in fpr's, as well as gpr's. There are 13 fpr's reserved for passing parameters. At this point there is no way we would run out of them. */ if (len > 8) printf_unfiltered ( "Fatal Error: a floating point parameter #%d with a size > 8 is found!\n", argno); memcpy (®isters[REGISTER_BYTE(FP0_REGNUM + 1 + f_argno)], VALUE_CONTENTS (arg), len); ++f_argno; } if (len > 4) { /* Argument takes more than one register. */ while (argbytes < len) { *(int*)®isters[REGISTER_BYTE(ii+3)] = 0; memcpy (®isters[REGISTER_BYTE(ii+3)], ((char*)VALUE_CONTENTS (arg))+argbytes, (len - argbytes) > 4 ? 4 : len - argbytes); ++ii, argbytes += 4; if (ii >= 8) goto ran_out_of_registers_for_arguments; } argbytes = 0; --ii; } else { /* Argument can fit in one register. No problem. */ *(int*)®isters[REGISTER_BYTE(ii+3)] = 0; memcpy (®isters[REGISTER_BYTE(ii+3)], VALUE_CONTENTS (arg), len); } ++argno; } ran_out_of_registers_for_arguments: /* location for 8 parameters are always reserved. */ sp -= 4 * 8; /* another six words for back chain, TOC register, link register, etc. */ sp -= 24; /* if there are more arguments, allocate space for them in the stack, then push them starting from the ninth one. */ if ((argno < nargs) || argbytes) { int space = 0, jj; value_ptr val; if (argbytes) { space += ((len - argbytes + 3) & -4); jj = argno + 1; } else jj = argno; for (; jj < nargs; ++jj) { val = value_arg_coerce (args[jj]); space += ((TYPE_LENGTH (VALUE_TYPE (val))) + 3) & -4; } /* add location required for the rest of the parameters */ space = (space + 7) & -8; sp -= space; /* This is another instance we need to be concerned about securing our stack space. If we write anything underneath %sp (r1), we might conflict with the kernel who thinks he is free to use this area. So, update %sp first before doing anything else. */ write_register (SP_REGNUM, sp); /* if the last argument copied into the registers didn't fit there completely, push the rest of it into stack. */ if (argbytes) { write_memory ( sp+24+(ii*4), ((char*)VALUE_CONTENTS (arg))+argbytes, len - argbytes); ++argno; ii += ((len - argbytes + 3) & -4) / 4; } /* push the rest of the arguments into stack. */ for (; argno < nargs; ++argno) { arg = value_arg_coerce (args[argno]); len = TYPE_LENGTH (VALUE_TYPE (arg)); /* float types should be passed in fpr's, as well as in the stack. */ if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_FLT && f_argno < 13) { if (len > 8) printf_unfiltered ( "Fatal Error: a floating point parameter #%d with a size > 8 is found!\n", argno); memcpy (®isters[REGISTER_BYTE(FP0_REGNUM + 1 + f_argno)], VALUE_CONTENTS (arg), len); ++f_argno; } write_memory (sp+24+(ii*4), (char *) VALUE_CONTENTS (arg), len); ii += ((len + 3) & -4) / 4; } } else /* Secure stack areas first, before doing anything else. */ write_register (SP_REGNUM, sp); saved_sp = dummy_frame_addr [dummy_frame_count - 1]; read_memory (saved_sp, tmp_buffer, 24); write_memory (sp, tmp_buffer, 24); write_memory (sp, &saved_sp, 4); /* set back chain properly */ target_store_registers (-1); return sp; } /* a given return value in `regbuf' with a type `valtype', extract and copy its value into `valbuf' */ void extract_return_value (valtype, regbuf, valbuf) struct type *valtype; char regbuf[REGISTER_BYTES]; char *valbuf; { if (TYPE_CODE (valtype) == TYPE_CODE_FLT) { double dd; float ff; /* floats and doubles are returned in fpr1. fpr's have a size of 8 bytes. We need to truncate the return value into float size (4 byte) if necessary. */ if (TYPE_LENGTH (valtype) > 4) /* this is a double */ memcpy (valbuf, ®buf[REGISTER_BYTE (FP0_REGNUM + 1)], TYPE_LENGTH (valtype)); else { /* float */ memcpy (&dd, ®buf[REGISTER_BYTE (FP0_REGNUM + 1)], 8); ff = (float)dd; memcpy (valbuf, &ff, sizeof(float)); } } else /* return value is copied starting from r3. */ memcpy (valbuf, ®buf[REGISTER_BYTE (3)], TYPE_LENGTH (valtype)); } /* keep structure return address in this variable. FIXME: This is a horrid kludge which should not be allowed to continue living. This only allows a single nested call to a structure-returning function. Come on, guys! -- gnu@cygnus.com, Aug 92 */ CORE_ADDR rs6000_struct_return_address; /* Indirect function calls use a piece of trampoline code to do context switching, i.e. to set the new TOC table. Skip such code if we are on its first instruction (as when we have single-stepped to here). Result is desired PC to step until, or NULL if we are not in trampoline code. */ CORE_ADDR skip_trampoline_code (pc) CORE_ADDR pc; { register unsigned int ii, op; static unsigned trampoline_code[] = { 0x800b0000, /* l r0,0x0(r11) */ 0x90410014, /* st r2,0x14(r1) */ 0x7c0903a6, /* mtctr r0 */ 0x804b0004, /* l r2,0x4(r11) */ 0x816b0008, /* l r11,0x8(r11) */ 0x4e800420, /* bctr */ 0x4e800020, /* br */ 0 }; for (ii=0; trampoline_code[ii]; ++ii) { op = read_memory_integer (pc + (ii*4), 4); if (op != trampoline_code [ii]) return 0; } ii = read_register (11); /* r11 holds destination addr */ pc = read_memory_integer (ii, 4); /* (r11) value */ return pc; } /* Determines whether the function FI has a frame on the stack or not. Called from the FRAMELESS_FUNCTION_INVOCATION macro in tm.h with a second argument of 0, and from the FRAME_SAVED_PC macro with a second argument of 1. */ int frameless_function_invocation (fi, pcsaved) struct frame_info *fi; int pcsaved; { CORE_ADDR func_start; struct aix_framedata fdata; if (fi->next != NULL) /* Don't even think about framelessness except on the innermost frame. */ /* FIXME: Can also be frameless if fi->next->signal_handler_caller (if a signal happens while executing in a frameless function). */ return 0; func_start = get_pc_function_start (fi->pc) + FUNCTION_START_OFFSET; /* If we failed to find the start of the function, it is a mistake to inspect the instructions. */ if (!func_start) return 0; function_frame_info (func_start, &fdata); return pcsaved ? fdata.nosavedpc : fdata.frameless; } /* If saved registers of frame FI are not known yet, read and cache them. &FDATAP contains aix_framedata; TDATAP can be NULL, in which case the framedata are read. */ static void frame_get_cache_fsr (fi, fdatap) struct frame_info *fi; struct aix_framedata *fdatap; { int ii; CORE_ADDR frame_addr; struct aix_framedata work_fdata; if (fi->cache_fsr) return; if (fdatap == NULL) { fdatap = &work_fdata; function_frame_info (get_pc_function_start (fi->pc), fdatap); } fi->cache_fsr = (struct frame_saved_regs *) obstack_alloc (&frame_cache_obstack, sizeof (struct frame_saved_regs)); memset (fi->cache_fsr, '\0', sizeof (struct frame_saved_regs)); if (fi->prev && fi->prev->frame) frame_addr = fi->prev->frame; else frame_addr = read_memory_integer (fi->frame, 4); /* if != -1, fdatap->saved_fpr is the smallest number of saved_fpr. All fpr's from saved_fpr to fp31 are saved right underneath caller stack pointer, starting from fp31 first. */ if (fdatap->saved_fpr >= 0) { for (ii=31; ii >= fdatap->saved_fpr; --ii) fi->cache_fsr->regs [FP0_REGNUM + ii] = frame_addr - ((32 - ii) * 8); frame_addr -= (32 - fdatap->saved_fpr) * 8; } /* if != -1, fdatap->saved_gpr is the smallest number of saved_gpr. All gpr's from saved_gpr to gpr31 are saved right under saved fprs, starting from r31 first. */ if (fdatap->saved_gpr >= 0) for (ii=31; ii >= fdatap->saved_gpr; --ii) fi->cache_fsr->regs [ii] = frame_addr - ((32 - ii) * 4); } /* Return the address of a frame. This is the inital %sp value when the frame was first allocated. For functions calling alloca(), it might be saved in an alloca register. */ CORE_ADDR frame_initial_stack_address (fi) struct frame_info *fi; { CORE_ADDR tmpaddr; struct aix_framedata fdata; struct frame_info *callee_fi; /* if the initial stack pointer (frame address) of this frame is known, just return it. */ if (fi->initial_sp) return fi->initial_sp; /* find out if this function is using an alloca register.. */ function_frame_info (get_pc_function_start (fi->pc), &fdata); /* if saved registers of this frame are not known yet, read and cache them. */ if (!fi->cache_fsr) frame_get_cache_fsr (fi, &fdata); /* If no alloca register used, then fi->frame is the value of the %sp for this frame, and it is good enough. */ if (fdata.alloca_reg < 0) { fi->initial_sp = fi->frame; return fi->initial_sp; } /* This function has an alloca register. If this is the top-most frame (with the lowest address), the value in alloca register is good. */ if (!fi->next) return fi->initial_sp = read_register (fdata.alloca_reg); /* Otherwise, this is a caller frame. Callee has usually already saved registers, but there are exceptions (such as when the callee has no parameters). Find the address in which caller's alloca register is saved. */ for (callee_fi = fi->next; callee_fi; callee_fi = callee_fi->next) { if (!callee_fi->cache_fsr) frame_get_cache_fsr (callee_fi, NULL); /* this is the address in which alloca register is saved. */ tmpaddr = callee_fi->cache_fsr->regs [fdata.alloca_reg]; if (tmpaddr) { fi->initial_sp = read_memory_integer (tmpaddr, 4); return fi->initial_sp; } /* Go look into deeper levels of the frame chain to see if any one of the callees has saved alloca register. */ } /* If alloca register was not saved, by the callee (or any of its callees) then the value in the register is still good. */ return fi->initial_sp = read_register (fdata.alloca_reg); } FRAME_ADDR rs6000_frame_chain (thisframe) struct frame_info *thisframe; { FRAME_ADDR fp; if (inside_entry_file ((thisframe)->pc)) return 0; if (thisframe->signal_handler_caller) { /* This was determined by experimentation on AIX 3.2. Perhaps it corresponds to some offset in /usr/include/sys/user.h or something like that. Using some system include file would have the advantage of probably being more robust in the face of OS upgrades, but the disadvantage of being wrong for cross-debugging. */ #define SIG_FRAME_FP_OFFSET 284 fp = read_memory_integer (thisframe->frame + SIG_FRAME_FP_OFFSET, 4); } else fp = read_memory_integer ((thisframe)->frame, 4); return fp; } /* Keep an array of load segment information and their TOC table addresses. This info will be useful when calling a shared library function by hand. */ struct loadinfo { CORE_ADDR textorg, dataorg; unsigned long toc_offset; }; #define LOADINFOLEN 10 static struct loadinfo *loadinfo = NULL; static int loadinfolen = 0; static int loadinfotocindex = 0; static int loadinfotextindex = 0; void xcoff_init_loadinfo () { loadinfotocindex = 0; loadinfotextindex = 0; if (loadinfolen == 0) { loadinfo = (struct loadinfo *) xmalloc (sizeof (struct loadinfo) * LOADINFOLEN); loadinfolen = LOADINFOLEN; } } /* FIXME -- this is never called! */ void free_loadinfo () { if (loadinfo) free (loadinfo); loadinfo = NULL; loadinfolen = 0; loadinfotocindex = 0; loadinfotextindex = 0; } /* this is called from xcoffread.c */ void xcoff_add_toc_to_loadinfo (unsigned long tocoff) { while (loadinfotocindex >= loadinfolen) { loadinfolen += LOADINFOLEN; loadinfo = (struct loadinfo *) xrealloc (loadinfo, sizeof(struct loadinfo) * loadinfolen); } loadinfo [loadinfotocindex++].toc_offset = tocoff; } void add_text_to_loadinfo (textaddr, dataaddr) CORE_ADDR textaddr; CORE_ADDR dataaddr; { while (loadinfotextindex >= loadinfolen) { loadinfolen += LOADINFOLEN; loadinfo = (struct loadinfo *) xrealloc (loadinfo, sizeof(struct loadinfo) * loadinfolen); } loadinfo [loadinfotextindex].textorg = textaddr; loadinfo [loadinfotextindex].dataorg = dataaddr; ++loadinfotextindex; } /* FIXME: This assumes that the "textorg" and "dataorg" elements of a member of this array are correlated with the "toc_offset" element of the same member. But they are sequentially assigned in wildly different places, and probably there is no correlation. FIXME! */ static CORE_ADDR find_toc_address (pc) CORE_ADDR pc; { int ii, toc_entry, tocbase = 0; for (ii=0; ii < loadinfotextindex; ++ii) if (pc > loadinfo[ii].textorg && loadinfo[ii].textorg > tocbase) { toc_entry = ii; tocbase = loadinfo[ii].textorg; } return loadinfo[toc_entry].dataorg + loadinfo[toc_entry].toc_offset; } gdb-4.13/gdb/saber.suppress 666 34562 1752 31415 5165451056 14226 0ustar fnfcygnus /* Options for project */ unsetopt ansi setopt auto_compile unsetopt auto_reload setopt auto_replace unsetopt batch_load unsetopt batch_run unsetopt cc_prog setopt ccargs -g unsetopt create_file unsetopt debug_child unsetopt echo setopt edit_jobs 5 unsetopt eight_bit setopt line_edit setopt line_meta setopt lint_load 2 setopt lint_run 2 setopt list_action setopt load_flags -I. -g -I.. -I../vx-share unsetopt long_not_int unsetopt make_args setopt make_hfiles unsetopt make_offset unsetopt make_prog setopt make_symbol # setopt mem_config 16384 unsetopt mem_trace setopt num_proc 1 unsetopt page_cmds setopt page_list 19 unsetopt page_load unsetopt path setopt proto_path . /s2/saber_dir30/sun4-40/proto /s2/saber_dir30/sun4-40/../common/proto unsetopt preprocessor setopt program_name a.out unsetopt print_custom setopt print_pointer setopt print_string 20 unsetopt save_memory setopt sbrk_size 1048576 setopt src_err 3 setopt src_step 1 setopt src_stop 3 setopt sys_load_flags -L/lib -L/usr/lib -L/usr/local/lib -I/usr/include -Dunix -Dsun -Dsparc unsetopt tab_stop unsetopt terse_suppress unsetopt terse_where setopt unset_value 191 unsetopt win_fork_nodup setopt win_no_raise unsetopt win_message_list unsetopt win_project_list /* Suppressions for project */ suppress 6 in read_huge_number /* Over/underflow */ suppress 8 in read_huge_number /* Over/underflow */ suppress 22 /* Pointer subtraction */ suppress 22 in free_all_psymtabs /* Pointer subtraction */ suppress 22 in free_all_symtabs /* Pointer subtraction */ suppress 56 in print_string /* Information lost */ suppress 65 "../bfd/bfd.c":379 /* Too many function arguments */ suppress 65 on printf_filtered /* Too many function arguments */ suppress 65 on fprintf_filtered /* Too many function arguments */ suppress 65 on vfprintf_filtered /* Too many function arguments */ suppress 65 on query /* Too many function arguments */ suppress 65 on fatal_dump_core /* Too many function arguments */ suppress 65 on fatal /* Too many function arguments */ suppress 65 on error /* Too many function arguments */ suppress 65 on noprocess /* Too many function arguments */ suppress 65 /* Too many function arguments */ suppress 66 on say /* Too few function arguments */ suppress 66 on printf_filtered /* Too few function arguments */ suppress 66 on fprintf_filtered /* Too few function arguments */ suppress 66 on vfprintf_filtered /* Too few function arguments */ suppress 66 on query /* Too few function arguments */ suppress 66 on fatal_dump_core /* Too few function arguments */ suppress 66 on fatal /* Too few function arguments */ suppress 66 on error /* Too few function arguments */ suppress 67 on printf_filtered /* Signed/unsigned argument mismatch */ suppress 67 on fprintf_filtered /* Signed/unsigned argument mismatch */ suppress 67 on vfprintf_filtered /* Signed/unsigned argument mismatch */ suppress 67 on query /* Signed/unsigned argument mismatch */ suppress 67 on fatal_dump_core /* Signed/unsigned argument mismatch */ suppress 67 on fatal /* Signed/unsigned argument mismatch */ suppress 67 on error /* Signed/unsigned argument mismatch */ suppress 67 /* Signed/unsigned argument mismatch */ suppress 68 on bfd_get_section_contents /* Benign argument mismatch */ suppress 68 on _do_getblong /* Benign argument mismatch */ suppress 68 on supply_register /* Benign argument mismatch */ suppress 68 on target_write_memory /* Benign argument mismatch */ suppress 68 on write_register_bytes /* Benign argument mismatch */ suppress 68 on read_register_bytes /* Benign argument mismatch */ suppress 68 on read_memory /* Benign argument mismatch */ suppress 68 on say /* Benign argument mismatch */ suppress 68 on printf_filtered /* Benign argument mismatch */ suppress 68 on fprintf_filtered /* Benign argument mismatch */ suppress 68 on vfprintf_filtered /* Benign argument mismatch */ suppress 68 on query /* Benign argument mismatch */ suppress 68 on fatal_dump_core /* Benign argument mismatch */ suppress 68 on fatal /* Benign argument mismatch */ suppress 68 on error /* Benign argument mismatch */ suppress 68 in find_solib /* Benign argument mismatch */ suppress 68 on child_wait /* Benign argument mismatch */ suppress 68 on xrealloc /* Benign argument mismatch */ suppress 68 on myread /* Benign argument mismatch */ suppress 68 in do_cleanups /* Benign argument mismatch */ suppress 68 on make_cleanup /* Benign argument mismatch */ suppress 68 on target_read_memory /* Benign argument mismatch */ suppress 69 on printf_filtered /* Serious argument mismatch */ suppress 69 on fprintf_filtered /* Serious argument mismatch */ suppress 69 on vfprintf_filtered /* Serious argument mismatch */ suppress 69 on query /* Serious argument mismatch */ suppress 69 on fatal_dump_core /* Serious argument mismatch */ suppress 69 on fatal /* Serious argument mismatch */ suppress 69 on error /* Serious argument mismatch */ suppress 70 on printf_filtered /* Passing illegal enumeration value */ suppress 70 on fprintf_filtered /* Passing illegal enumeration value */ suppress 70 on vfprintf_filtered /* Passing illegal enumeration value */ suppress 70 on query /* Passing illegal enumeration value */ suppress 70 on fatal_dump_core /* Passing illegal enumeration value */ suppress 70 on fatal /* Passing illegal enumeration value */ suppress 70 on error /* Passing illegal enumeration value */ suppress 80 on first_link_map_member /* Returning invalid pointer */ suppress 110 in printf_filtered /* Signed/unsigned memory retrieval */ suppress 110 in fprintf_filtered /* Signed/unsigned memory retrieval */ suppress 110 in vfprintf_filtered /* Signed/unsigned memory retrieval */ suppress 110 in query /* Signed/unsigned memory retrieval */ suppress 110 in fatal_dump_core /* Signed/unsigned memory retrieval */ suppress 110 in fatal /* Signed/unsigned memory retrieval */ suppress 110 in error /* Signed/unsigned memory retrieval */ suppress 112 in printf_filtered /* Memory retrieval */ suppress 112 in fprintf_filtered /* Memory retrieval */ suppress 112 in vfprintf_filtered /* Memory retrieval */ suppress 112 in query /* Memory retrieval */ suppress 112 in fatal_dump_core /* Memory retrieval */ suppress 112 in fatal /* Memory retrieval */ suppress 112 in error /* Memory retrieval */ suppress 112 /* Memory retrieval */ suppress 112 ../symtab.c /* Memory retrieval */ suppress 112 in child_xfer_memory /* Memory retrieval */ suppress 165 in frame_saved_pc /* Dereference */ suppress 165 in get_prev_frame_info /* Dereference */ suppress 167 in get_prev_frame_info /* Selection */ suppress 167 in frame_saved_pc /* Selection */ suppress 442 in try_baudrate /* Escape has null value */ suppress 529 in read_range_type /* Statement not reached */ suppress 529 in process_one_symbol /* Statement not reached */ suppress 529 in unpack_double /* Statement not reached */ suppress 529 in wait_for_inferior /* Statement not reached */ suppress 529 in do_registers_info /* Statement not reached */ suppress 529 in value_from_register /* Statement not reached */ suppress 529 in solib_create_inferior_hook /* Constant in conditional */ suppress 530 /* Empty body of statement */ suppress 546 in net_quit /* Function exits through bottom */ suppress 546 in net_wait /* Function exits through bottom */ suppress 546 in vx_remove_breakpoint /* Function exits through bottom */ suppress 546 in vx_insert_breakpoint /* Function exits through bottom */ suppress 546 in value_less /* Function exits through bottom */ suppress 546 in value_equal /* Function exits through bottom */ suppress 546 in unpack_long /* Function exits through bottom */ suppress 558 in solib_create_inferior_hook /* Constant in conditional */ suppress 558 in read_range_type /* Constant in conditional */ suppress 558 in process_one_symbol /* Constant in conditional */ suppress 558 in read_dbx_symtab /* Constant in conditional */ suppress 558 in vx_write_register /* Constant in conditional */ suppress 558 in vx_read_register /* Constant in conditional */ suppress 558 in unpack_double /* Constant in conditional */ suppress 558 in wait_for_inferior /* Constant in conditional */ suppress 558 in do_registers_info /* Constant in conditional */ suppress 558 in value_from_register /* Constant in conditional */ suppress 558 in add_enum_psymbol /* Constant in conditional */ suppress 558 in add_partial_symbol /* Constant in conditional */ suppress 558 mfree.c /* Constant in conditional */ suppress 558 mmalloc.c /* Constant in conditional */ suppress 558 mrealloc.c /* Constant in conditional */ suppress 560 in solib_address /* Assignment within conditional */ suppress 560 in solib_info /* Assignment within conditional */ suppress 560 in solib_add /* Assignment within conditional */ suppress 560 in read_type /* Assignment within conditional */ suppress 560 in type_print_base /* Assignment within conditional */ suppress 560 in type_print_derivation_info /* Assignment within conditional */ suppress 560 in block_depth /* Assignment within conditional */ suppress 560 in select_source_symtab /* Assignment within conditional */ suppress 560 in clear_value_history /* Assignment within conditional */ suppress 560 in clear_displays /* Assignment within conditional */ suppress 560 in initialize_main /* Assignment within conditional */ suppress 560 in echo_command /* Assignment within conditional */ suppress 560 in unset_in_environ /* Assignment within conditional */ suppress 560 in set_in_environ /* Assignment within conditional */ suppress 560 in get_in_environ /* Assignment within conditional */ suppress 560 in do_setshow_command /* Assignment within conditional */ suppress 560 in breakpoint_1 /* Assignment within conditional */ suppress 590 on sig /* Unused formal parameter */ suppress 590 in nindy_create_inferior /* Unused formal parameter */ suppress 590 in add_to_section_table /* Unused formal parameter */ suppress 590 in vx_create_inferior /* Unused formal parameter */ suppress 590 in host_convert_from_virtual /* Unused formal parameter */ suppress 590 in host_convert_to_virtual /* Unused formal parameter */ suppress 590 on siggnal /* Unused formal parameter */ suppress 590 in init_sig /* Unused formal parameter */ suppress 590 in nindy_resume /* Unused formal parameter */ suppress 590 in set_history_size_command /* Unused formal parameter */ suppress 590 in not_just_help_class_command /* Unused formal parameter */ suppress 590 on regno /* Unused formal parameter */ suppress 590 on from_tty /* Unused formal parameter */ suppress 590 on args /* Unused formal parameter */ suppress 590 in process_symbol_pair /* Unused formal parameter */ suppress 591 in print_scalar_formatted /* Unused automatic variable */ suppress 592 on rcsid /* Unused static */ suppress 592 on check_break_insn_size /* Unused static */ suppress 594 in call_function_by_hand /* Set but not used */ suppress 594 in record_latest_value /* Set but not used */ suppress 594 in bpstat_stop_status /* Set but not used */ suppress 595 in coffstrip /* Used before set */ suppress 652 ../include/bfd.h /* Declaration has no effect */ suppress 652 /usr/include/machine/reg.h /* Declaration has no effect */ suppress 652 /usr/include/sun4/reg.h /* Declaration has no effect */ suppress 68 on complain /* Benign type mismatch */ suppress 3 in read_range_type /* Over/underflow unary minus */ suppress 442 ../bfd/archive.c /* \0 in string */ suppress 558 ../bfd/b.out.c /* Conditional if always true */ suppress 558 ../bfd/coffswap.c /* Conditional if always true -- bfd_h_put_x */ suppress 529 ../bfd/coffswap.c /* Stmt unreach -- bfd_h_put_x */ suppress 590 ../bfd/ecoff.c /* Formal parameter not used */ suppress 590 on ignore /* Formal param not used */ suppress 590 on ignore_exec_bfd /* Formal param not used */ suppress 590 on ignore_core_bfd /* Formal param not used */ suppress 590 on ignore_input_section /* Formal param not used */ suppress 590 on ignore_newsect /* Formal param not used */ suppress 590 on ignore_abfd /* Formal param not used */ suppress 590 on ignore_symbol /* Formal param not used */ suppress 590 on ignore_symbols /* Formal param not used */ suppress 590 on signo /* Formal param not used */ suppress 652 /* The declaration has no effect */ suppress 442 in ../bfd/archive.c /* Escape sequence in string literal has null value */ /* Signals caught and ignored */ catch HUP catch QUIT catch ILL catch TRAP catch IOT catch EMT catch FPE catch KILL catch BUS catch SEGV catch SYS catch PIPE catch TERM catch URG catch STOP catch TSTP catch TTIN catch TTOU catch IO catch XCPU catch XFSZ catch VTALRM catch PROF catch LOST catch USR1 catch USR2 ignore INT ignore ALRM ignore CONT ignore CHLD ignore WINCH /* Status of project */ gdb-4.13/gdb/ser-e7kpc.c 666 34562 1752 20711 5603604545 13265 0ustar fnfcygnus/* Remote serial interface using Hitachi E7000 PC ISA card in a PC Copyright 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef __GO32__ #include "defs.h" #include "serial.h" #include static int e7000pc_open PARAMS ((serial_t scb, const char *name)); static void e7000pc_raw PARAMS ((serial_t scb)); static int e7000pc_readchar PARAMS ((serial_t scb, int timeout)); static int e7000pc_setbaudrate PARAMS ((serial_t scb, int rate)); static int e7000pc_write PARAMS ((serial_t scb, const char *str, int len)); static void e7000pc_close PARAMS ((serial_t scb)); static serial_ttystate e7000pc_get_tty_state PARAMS ((serial_t scb)); static int e7000pc_set_tty_state PARAMS ((serial_t scb, serial_ttystate state)); static char *aptr PARAMS ((short p)); static int dos_async_init PARAMS ((int port)); static void dos_async_tx PARAMS ((const char c)); static int dos_async_rx PARAMS (()); #define OFF_DPD 0x0000 #define OFF_DDP 0x1000 #define OFF_CPD 0x2000 #define OFF_CDP 0x2400 #define OFF_FA 0x3000 #define OFF_FB 0x3002 #define OFF_FC 0x3004 #define OFF_IRQTOD 0x3008 #define OFF_IRQTOP 0x300a #define OFF_READY 0x300c #define OFF_PON 0x300e #define IDLE 0x0000 #define CMD_CI 0x4349 #define CMD_CO 0x434f #define CMD_LO 0x4c4f #define CMD_LS 0x4c53 #define CMD_SV 0x5356 #define CMD_SS 0x5353 #define CMD_OK 0x4f4b #define CMD_ER 0x4552 #define CMD_NF 0x4e46 #define CMD_AB 0x4142 #define CMD_ED 0x4544 #define CMD_CE 0x4345 static unsigned long fa; static unsigned long irqtod; static unsigned long ready; static unsigned long fb; static unsigned long cpd ; static unsigned long cdp ; static unsigned long ready; static unsigned long pon; static unsigned long irqtop; static unsigned long board_at; #define SET_BYTE(x,y) { char _buf = y;dosmemput(&_buf,1, x);} #define SET_WORD(x,y) { short _buf = y;dosmemput(&_buf,2, x);} #define GET_BYTE(x) ( dosmemget(x,1,&bb), bb) #define GET_WORD(x) ( dosmemget(x,2,&sb), sb) static unsigned char bb; static unsigned short sb; static struct sw { int sw; int addr; } sigs[] = { {0x14, 0xd0000}, {0x15, 0xd4000}, {0x16, 0xd8000}, {0x17, 0xdc000}, 0}; static int e7000pc_init () { /* Look around in memory for the board's signature */ int try; for (try = 0; sigs[try].sw; try++) { int val; board_at = sigs[try].addr; fa = board_at + OFF_FA; fb = board_at + OFF_FB; cpd = board_at + OFF_CPD; cdp = board_at + OFF_CDP; ready =board_at + OFF_READY; pon = board_at + OFF_PON; irqtop = board_at + OFF_IRQTOP; irqtod = board_at + OFF_IRQTOD; val = GET_WORD (ready); if (val == (0xaaa0 | sigs[try].sw)) { if (GET_BYTE (pon) & 0xf) { SET_BYTE(fa, 0); SET_BYTE (fb, 0); SET_BYTE (irqtop, 1); /* Disable interrupts from e7000 */ SET_WORD (ready, 1); printf_filtered ("\nConnected to the E7000PC at address 0x%x\n", sigs[try].addr); return 1; } error ("The E7000 PC board is working, but the E7000 is turned off.\n"); return 0; } } error ("GDB cannot connect to the E7000 PC board, check that it is installed\n\ and that the switch settings are correct. Some other DOS programs can \n\ stop the board from working. Try starting from a very minimal boot, \n\ perhaps you need to disable EMM386 over the region where the board has\n\ its I/O space, remove other unneeded cards, etc etc\n"); return 0; } static int pbuf_size; static int pbuf_index; static int e7000_get () { static char pbuf[1000]; char tmp[1000]; int x; if (pbuf_index < pbuf_size) { x = pbuf[pbuf_index++]; } else if ((GET_BYTE (fb) & 1)) { int i; pbuf_size = GET_WORD(cdp + 2); dosmemget (cdp + 8, pbuf_size + 1, tmp); /* Tell the E7000 we've eaten */ SET_BYTE(fb,0); /* Swap it around */ for (i = 0; i < pbuf_size; i++) { pbuf[i] = tmp[i^1]; } pbuf_index = 0; x = pbuf[pbuf_index++]; } else { x = -1; } return x; } static int dosasync_read (fd, buf, len, timeout) int fd; char *buf; int len; int timeout; { long now; long then; int i = 0; int p; /* Then look for some more if we're still hungry */ time (&now); then = now + timeout; while (i < len) { int ch = e7000_get(); /* While there's room in the buffer, and we've already read the stuff in, suck it over */ if (ch != -1) { buf[i++] = ch; while (i < len && pbuf_index < pbuf_size ) { ch = e7000_get(); if (ch == -1) break; buf[i++] = ch; } } time (&now); if (timeout == 0) return i; if (now >= then && timeout > 0) { return i; } } return len; } static int dosasync_write (fd, buf, len) int fd; const char *buf; int len; { int i; char dummy[1000]; /* Construct copy locally */ ((short *)dummy)[0] = CMD_CI; ((short *)dummy)[1] = len; ((short *)dummy)[2] = 0; ((short *)dummy)[3] = 0; for (i = 0; i < len ; i++) { dummy[8 + i ^ 1] = buf[i]; } /* Wait for the card to get ready */ while ((GET_BYTE(fa) & 1) != 0) ; /* Blast onto the ISA card */ dosmemput (dummy, 8 + len + 1, cpd); SET_BYTE(fa, 1); SET_BYTE(irqtod, 1); /* Interrupt the E7000 */ return len; } static int e7000pc_open (scb, name) serial_t scb; const char *name; { if (strncasecmp (name, "pc", 2) != 0) { errno = ENOENT; return -1; } scb->fd = e7000pc_init (); if (!scb->fd) return -1; return 0; } static int e7000pc_noop (scb) serial_t scb; { return 0; } static void e7000pc_raw (scb) serial_t scb; { /* Always in raw mode */ } static int e7000pc_readchar (scb, timeout) serial_t scb; int timeout; { char buf; top: if (dosasync_read (scb->fd, &buf, 1, timeout)) { if (buf == 0) goto top; return buf; } else return SERIAL_TIMEOUT; } struct e7000pc_ttystate { int dummy; }; /* e7000pc_{get set}_tty_state() are both dummys to fill out the function vector. Someday, they may do something real... */ static serial_ttystate e7000pc_get_tty_state (scb) serial_t scb; { struct e7000pc_ttystate *state; state = (struct e7000pc_ttystate *) xmalloc (sizeof *state); return (serial_ttystate) state; } static int e7000pc_set_tty_state (scb, ttystate) serial_t scb; serial_ttystate ttystate; { return 0; } static int e7000pc_noflush_set_tty_state (scb, new_ttystate, old_ttystate) serial_t scb; serial_ttystate new_ttystate; serial_ttystate old_ttystate; { return 0; } static void e7000pc_print_tty_state (scb, ttystate) serial_t scb; serial_ttystate ttystate; { /* Nothing to print. */ return; } static int e7000pc_setbaudrate (scb, rate) serial_t scb; int rate; { return 0; } static int e7000pc_write (scb, str, len) serial_t scb; const char *str; int len; { dosasync_write (scb->fd, str, len); return 0; } static void e7000pc_close (scb) serial_t scb; { } static struct serial_ops e7000pc_ops = { "pc", 0, e7000pc_open, e7000pc_close, e7000pc_readchar, e7000pc_write, e7000pc_noop, /* flush output */ e7000pc_noop, /* flush input */ e7000pc_noop, /* send break -- currently used only for nindy */ e7000pc_raw, e7000pc_get_tty_state, e7000pc_set_tty_state, e7000pc_print_tty_state, e7000pc_noflush_set_tty_state, e7000pc_setbaudrate, }; void _initialize_ser_e7000pc () { serial_add_interface (&e7000pc_ops); } #else void _initialize_ser_e7000pc () { } #endif gdb-4.13/gdb/ser-go32.c 666 34562 1752 20067 5604353632 13031 0ustar fnfcygnus/* Remote serial interface for local (hardwired) serial ports for GO32. Copyright 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "serial.h" #include #define disable() asm("cli") #define enable() asm("sti") struct go32_ttystate { int bogus; }; typedef struct { short jmp_op; short signature; short version; short buffer_start; short buffer_end; short getp; short putp; short iov; short count; short overflow; short buffer_size; short ovflushes; } ASYNC_STRUCT; #define AOFF_JMP_OP 0 #define AOFF_SIGNATURE 2 #define AOFF_VERSION 4 #define AOFF_BUFFER_START 6 #define AOFF_BUFFER_END 8 #define AOFF_GETP 10 #define AOFF_PUTP 12 #define AOFF_IOV 14 #define AOFF_COUNT 16 #define AOFF_OVERFLOW 18 #define AOFF_BUFFER_SIZE 20 #define AOFF_OVFLUSHES 22 static ASYNC_STRUCT a; /* Copy in our mem of the struct */ static long aindex; /* index into dos space of struct */ static int go32_open PARAMS ((serial_t scb, const char *name)); static void go32_raw PARAMS ((serial_t scb)); static int go32_readchar PARAMS ((serial_t scb, int timeout)); static int go32_setbaudrate PARAMS ((serial_t scb, int rate)); static int go32_write PARAMS ((serial_t scb, const char *str, int len)); static void go32_close PARAMS ((serial_t scb)); static serial_ttystate go32_get_tty_state PARAMS ((serial_t scb)); static int go32_set_tty_state PARAMS ((serial_t scb, serial_ttystate state)); static unsigned char aptr PARAMS ((short p)); static unsigned long getivec PARAMS ((int which)); static int dos_async_init PARAMS ((int port)); static void dos_async_tx PARAMS ((const char c)); static int dos_async_rx PARAMS (()); static int dosasync_read PARAMS ((int fd, char *buf, int len, int timeout)); static int dosasync_write PARAMS ((int fd, const char *buf, int len)); #define SIGNATURE 0x4154 #define VERSION 1 #define OFFSET 0x104 unsigned char bb; unsigned short sb; unsigned long sl; #define SET_BYTE(x,y) { char _buf = y;dosmemput(&_buf,1, x);} #define SET_WORD(x,y) { short _buf = y;dosmemput(&_buf,2, x);} #define GET_BYTE(x) ( dosmemget((x),1,&bb), bb) #define GET_LONG(x) ( dosmemget((x),4,&sl), sl) static unsigned short GET_WORD (x) { unsigned short sb; dosmemget ((x), 2, &sb); return sb; } static int iov[2]; #define com_rb(n) iov[n] #define com_tb(n) iov[n] #define com_ier(n) iov[n]+1 #define com_ifr(n) iov[n]+2 #define com_bfr(n) iov[n]+3 #define com_mcr(n) iov[n]+4 #define com_lsr(n) iov[n]+5 #define com_msr(n) iov[n]+6 static unsigned char aptr (p) short p; { return GET_BYTE (aindex - OFFSET + p); } static unsigned long getivec (int which) { long tryaindex; if (GET_WORD (which * 4) != OFFSET) return 0; /* Find out where in memory this lives */ tryaindex = GET_WORD (which * 4 + 2) * 16 + GET_WORD (which * 4); if (GET_WORD (tryaindex + 2) != SIGNATURE) return 0; if (GET_WORD (tryaindex + 4) != VERSION) return 0; return tryaindex; } static int dos_async_init (port) int port; { switch (port) { case 1: aindex = getivec (12); break; case 2: aindex = getivec (11); break; default: return 0; } if (!aindex) { error ("GDB cannot connect to asynctsr program, check that it is installed\n\ and that serial I/O is not being redirected (perhaps by NFS)\n\n\ example configuration:\n\ C> mode com%d:9600,n,8,1,p\n\ C> asynctsr %d\n\ C> gdb \n", port, port); } iov[0] = GET_WORD (aindex + AOFF_IOV); outportb (com_ier (0), 0x0f); outportb (com_bfr (0), 0x03); outportb (com_mcr (0), 0x0b); return 1; } static void dos_async_tx (c) const char c; { while (~inportb (com_lsr (0)) & 0x20) ; outportb (com_tb (0), c); } static int dos_async_ready () { int ret; disable (); #if RDY_CNT ret = GET_WORD (aindex + AOFF_COUNT); #else ret = GET_WORD (aindex + AOFF_GETP) != GET_WORD (aindex + AOFF_PUTP); #endif enable (); return ret; } static int dos_async_rx () { char rv; short idx; while (!dos_async_ready ()) { if (kbhit ()) { printf_unfiltered ("abort!\n"); return 0; } } disable (); idx = GET_WORD (aindex + AOFF_GETP); idx++; SET_WORD (aindex + AOFF_GETP, idx); rv = aptr (idx - 1); SET_WORD (aindex + AOFF_COUNT, GET_WORD (aindex + AOFF_COUNT) - 1); if (GET_WORD (aindex + AOFF_GETP) > GET_WORD (aindex + AOFF_BUFFER_END)) SET_WORD (aindex + AOFF_GETP, GET_WORD (aindex + AOFF_BUFFER_START)); enable (); return rv; } static int dosasync_read (fd, buf, len, timeout) int fd; char *buf; int len; int timeout; { long now, then; int i; time (&now); then = now + timeout; for (i = 0; i < len; i++) { if (timeout) { while (!dos_async_ready ()) { time (&now); if (now >= then && timeout > 0) return i; } } *buf++ = dos_async_rx (); } return len; } static int dosasync_write (fd, buf, len) int fd; const char *buf; int len; { int l; for (l = 0; l < len; l++) dos_async_tx (*buf++); return len; } static int go32_open (scb, name) serial_t scb; const char *name; { int port; if (strncasecmp (name, "com", 3) != 0) { errno = ENOENT; return -1; } port = name[3] - '0'; if ((port != 1) && (port != 2)) { errno = ENOENT; return -11; } scb->fd = dos_async_init (port); if (!scb->fd) return -1; return 0; } static int go32_noop (scb) serial_t scb; { return 0; } static void go32_raw (scb) serial_t scb; { /* Always in raw mode */ } static int go32_readchar (scb, timeout) serial_t scb; int timeout; { char buf; /* Shortcut for polling */ if (timeout == 0) { if (dos_async_ready ()) { return dos_async_rx (); } return SERIAL_TIMEOUT; } if (dosasync_read (scb->fd, &buf, 1, timeout)) return buf; else return SERIAL_TIMEOUT; } /* go32_{get set}_tty_state() are both dummys to fill out the function vector. Someday, they may do something real... */ static serial_ttystate go32_get_tty_state (scb) serial_t scb; { struct go32_ttystate *state; state = (struct go32_ttystate *) xmalloc (sizeof *state); return (serial_ttystate) state; } static int go32_set_tty_state (scb, ttystate) serial_t scb; serial_ttystate ttystate; { return 0; } static int go32_noflush_set_tty_state (scb, new_ttystate, old_ttystate) serial_t scb; serial_ttystate new_ttystate; serial_ttystate old_ttystate; { return 0; } static void go32_print_tty_state (scb, ttystate) serial_t scb; serial_ttystate ttystate; { /* Nothing to print. */ return; } static int go32_setbaudrate (scb, rate) serial_t scb; int rate; { return 0; } static int go32_write (scb, str, len) serial_t scb; const char *str; int len; { dosasync_write (scb->fd, str, len); return 0; } static void go32_close (scb) serial_t scb; { } static struct serial_ops go32_ops = { "hardwire", 0, go32_open, go32_close, go32_readchar, go32_write, go32_noop, /* flush output */ go32_noop, /* flush input */ go32_noop, /* send break -- currently used only for nindy */ go32_raw, go32_get_tty_state, go32_set_tty_state, go32_print_tty_state, go32_noflush_set_tty_state, go32_setbaudrate, }; void _initialize_ser_go32 () { serial_add_interface (&go32_ops); } gdb-4.13/gdb/gdb.info-5 666 34562 1752 142512 5623251657 13124 0ustar fnfcygnusThis is Info file ./gdb.info, produced by Makeinfo-1.52 from the input file gdb.texinfo. START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY This file documents the GNU debugger GDB. This is Edition 4.12, January 1994, of `Debugging with GDB: the GNU Source-Level Debugger' for GDB Version 4.13. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions.  File: gdb.info, Node: Built-In Func/Proc, Next: M2 Constants, Prev: M2 Operators, Up: Modula-2 Built-in functions and procedures --------------------------------- Modula-2 also makes available several built-in procedures and functions. In describing these, the following metavariables are used: A represents an `ARRAY' variable. C represents a `CHAR' constant or variable. I represents a variable or constant of integral type. M represents an identifier that belongs to a set. Generally used in the same function with the metavariable S. The type of S should be `SET OF MTYPE' (where MTYPE is the type of M). N represents a variable or constant of integral or floating-point type. R represents a variable or constant of floating-point type. T represents a type. V represents a variable. X represents a variable or constant of one of many types. See the explanation of the function for details. All Modula-2 built-in procedures also return a result, described below. `ABS(N)' Returns the absolute value of N. `CAP(C)' If C is a lower case letter, it returns its upper case equivalent, otherwise it returns its argument `CHR(I)' Returns the character whose ordinal value is I. `DEC(V)' Decrements the value in the variable V. Returns the new value. `DEC(V,I)' Decrements the value in the variable V by I. Returns the new value. `EXCL(M,S)' Removes the element M from the set S. Returns the new set. `FLOAT(I)' Returns the floating point equivalent of the integer I. `HIGH(A)' Returns the index of the last member of A. `INC(V)' Increments the value in the variable V. Returns the new value. `INC(V,I)' Increments the value in the variable V by I. Returns the new value. `INCL(M,S)' Adds the element M to the set S if it is not already there. Returns the new set. `MAX(T)' Returns the maximum value of the type T. `MIN(T)' Returns the minimum value of the type T. `ODD(I)' Returns boolean TRUE if I is an odd number. `ORD(X)' Returns the ordinal value of its argument. For example, the ordinal value of a character is its ASCII value (on machines supporting the ASCII character set). X must be of an ordered type, which include integral, character and enumerated types. `SIZE(X)' Returns the size of its argument. X can be a variable or a type. `TRUNC(R)' Returns the integral part of R. `VAL(T,I)' Returns the member of the type T whose ordinal value is I. *Warning:* Sets and their operations are not yet supported, so GDB treats the use of procedures `INCL' and `EXCL' as an error.  File: gdb.info, Node: M2 Constants, Next: M2 Defaults, Prev: Built-In Func/Proc, Up: Modula-2 Constants --------- GDB allows you to express the constants of Modula-2 in the following ways: * Integer constants are simply a sequence of digits. When used in an expression, a constant is interpreted to be type-compatible with the rest of the expression. Hexadecimal integers are specified by a trailing `H', and octal integers by a trailing `B'. * Floating point constants appear as a sequence of digits, followed by a decimal point and another sequence of digits. An optional exponent can then be specified, in the form `E[+|-]NNN', where `[+|-]NNN' is the desired exponent. All of the digits of the floating point constant must be valid decimal (base 10) digits. * Character constants consist of a single character enclosed by a pair of like quotes, either single (`'') or double (`"'). They may also be expressed by their ordinal value (their ASCII value, usually) followed by a `C'. * String constants consist of a sequence of characters enclosed by a pair of like quotes, either single (`'') or double (`"'). Escape sequences in the style of C are also allowed. *Note C and C++ constants: C Constants, for a brief explanation of escape sequences. * Enumerated constants consist of an enumerated identifier. * Boolean constants consist of the identifiers `TRUE' and `FALSE'. * Pointer constants consist of integral values only. * Set constants are not yet supported.  File: gdb.info, Node: M2 Defaults, Next: Deviations, Prev: M2 Constants, Up: Modula-2 Modula-2 defaults ----------------- If type and range checking are set automatically by GDB, they both default to `on' whenever the working language changes to Modula-2. This happens regardless of whether you, or GDB, selected the working language. If you allow GDB to set the language automatically, then entering code compiled from a file whose name ends with `.mod' sets the working language to Modula-2. *Note Having GDB set the language automatically: Automatically, for further details.  File: gdb.info, Node: Deviations, Next: M2 Checks, Prev: M2 Defaults, Up: Modula-2 Deviations from standard Modula-2 --------------------------------- A few changes have been made to make Modula-2 programs easier to debug. This is done primarily via loosening its type strictness: * Unlike in standard Modula-2, pointer constants can be formed by integers. This allows you to modify pointer variables during debugging. (In standard Modula-2, the actual address contained in a pointer variable is hidden from you; it can only be modified through direct assignment to another pointer variable or expression that returned a pointer.) * C escape sequences can be used in strings and characters to represent non-printable characters. GDB prints out strings with these escape sequences embedded. Single non-printable characters are printed using the `CHR(NNN)' format. * The assignment operator (`:=') returns the value of its right-hand argument. * All built-in procedures both modify *and* return their argument.  File: gdb.info, Node: M2 Checks, Next: M2 Scope, Prev: Deviations, Up: Modula-2 Modula-2 type and range checks ------------------------------ *Warning:* in this release, GDB does not yet perform type or range checking. GDB considers two Modula-2 variables type equivalent if: * They are of types that have been declared equivalent via a `TYPE T1 = T2' statement * They have been declared on the same line. (Note: This is true of the GNU Modula-2 compiler, but it may not be true of other compilers.) As long as type checking is enabled, any attempt to combine variables whose types are not equivalent is an error. Range checking is done on all mathematical operations, assignment, array index bounds, and all built-in functions and procedures.  File: gdb.info, Node: M2 Scope, Next: GDB/M2, Prev: M2 Checks, Up: Modula-2 The scope operators `::' and `.' -------------------------------- There are a few subtle differences between the Modula-2 scope operator (`.') and the GDB scope operator (`::'). The two have similar syntax: MODULE . ID SCOPE :: ID where SCOPE is the name of a module or a procedure, MODULE the name of a module, and ID is any declared identifier within your program, except another module. Using the `::' operator makes GDB search the scope specified by SCOPE for the identifier ID. If it is not found in the specified scope, then GDB searches all scopes enclosing the one specified by SCOPE. Using the `.' operator makes GDB search the current scope for the identifier specified by ID that was imported from the definition module specified by MODULE. With this operator, it is an error if the identifier ID was not imported from definition module MODULE, or if ID is not an identifier in MODULE.  File: gdb.info, Node: GDB/M2, Prev: M2 Scope, Up: Modula-2 GDB and Modula-2 ---------------- Some GDB commands have little use when debugging Modula-2 programs. Five subcommands of `set print' and `show print' apply specifically to C and C++: `vtbl', `demangle', `asm-demangle', `object', and `union'. The first four apply to C++, and the last to the C `union' type, which has no direct analogue in Modula-2. The `@' operator (*note Expressions: Expressions.), while available while using any language, is not useful with Modula-2. Its intent is to aid the debugging of "dynamic arrays", which cannot be created in Modula-2 as they can in C or C++. However, because an address can be specified by an integral constant, the construct `{TYPE}ADREXP' is still useful. (*note Expressions: Expressions.) In GDB scripts, the Modula-2 inequality operator `#' is interpreted as the beginning of a comment. Use `<>' instead.  File: gdb.info, Node: Symbols, Next: Altering, Prev: Languages, Up: Top Examining the Symbol Table ************************** The commands described in this section allow you to inquire about the symbols (names of variables, functions and types) defined in your program. This information is inherent in the text of your program and does not change as your program executes. GDB finds it in your program's symbol table, in the file indicated when you started GDB (*note Choosing files: File Options.), or by one of the file-management commands (*note Commands to specify files: Files.). Occasionally, you may need to refer to symbols that contain unusual characters, which GDB ordinarily treats as word delimiters. The most frequent case is in referring to static variables in other source files (*note Program variables: Variables.). File names are recorded in object files as debugging symbols, but GDB would ordinarily parse a typical file name, like `foo.c', as the three words `foo' `.' `c'. To allow GDB to recognize `foo.c' as a single symbol, enclose it in single quotes; for example, p 'foo.c'::x looks up the value of `x' in the scope of the file `foo.c'. `info address SYMBOL' Describe where the data for SYMBOL is stored. For a register variable, this says which register it is kept in. For a non-register local variable, this prints the stack-frame offset at which the variable is always stored. Note the contrast with `print &SYMBOL', which does not work at all for a register variable, and for a stack local variable prints the exact address of the current instantiation of the variable. `whatis EXP' Print the data type of expression EXP. EXP is not actually evaluated, and any side-effecting operations (such as assignments or function calls) inside it do not take place. *Note Expressions: Expressions. `whatis' Print the data type of `$', the last value in the value history. `ptype TYPENAME' Print a description of data type TYPENAME. TYPENAME may be the name of a type, or for C code it may have the form `class CLASS-NAME', `struct STRUCT-TAG', `union UNION-TAG' or `enum ENUM-TAG'. `ptype EXP' `ptype' Print a description of the type of expression EXP. `ptype' differs from `whatis' by printing a detailed description, instead of just the name of the type. For example, for this variable declaration: struct complex {double real; double imag;} v; the two commands give this output: (gdb) whatis v type = struct complex (gdb) ptype v type = struct complex { double real; double imag; } As with `whatis', using `ptype' without an argument refers to the type of `$', the last value in the value history. `info types REGEXP' `info types' Print a brief description of all types whose name matches REGEXP (or all types in your program, if you supply no argument). Each complete typename is matched as though it were a complete line; thus, `i type value' gives information on all types in your program whose name includes the string `value', but `i type ^value$' gives information only on types whose complete name is `value'. This command differs from `ptype' in two ways: first, like `whatis', it does not print a detailed description; second, it lists all source files where a type is defined. `info source' Show the name of the current source file--that is, the source file for the function containing the current point of execution--and the language it was written in. `info sources' Print the names of all source files in your program for which there is debugging information, organized into two lists: files whose symbols have already been read, and files whose symbols will be read when needed. `info functions' Print the names and data types of all defined functions. `info functions REGEXP' Print the names and data types of all defined functions whose names contain a match for regular expression REGEXP. Thus, `info fun step' finds all functions whose names include `step'; `info fun ^step' finds those whose names start with `step'. `info variables' Print the names and data types of all variables that are declared outside of functions (i.e., excluding local variables). `info variables REGEXP' Print the names and data types of all variables (except for local variables) whose names contain a match for regular expression REGEXP. `maint print symbols FILENAME' `maint print psymbols FILENAME' `maint print msymbols FILENAME' Write a dump of debugging symbol data into the file FILENAME. These commands are used to debug the GDB symbol-reading code. Only symbols with debugging data are included. If you use `maint print symbols', GDB includes all the symbols for which it has already collected full details: that is, FILENAME reflects symbols for only those files whose symbols GDB has read. You can use the command `info sources' to find out which files these are. If you use `maint print psymbols' instead, the dump shows information about symbols that GDB only knows partially--that is, symbols defined in files that GDB has skimmed, but not yet read completely. Finally, `maint print msymbols' dumps just the minimal symbol information required for each object file from which GDB has read some symbols. *Note Commands to specify files: Files, for a discussion of how GDB reads symbols (in the description of `symbol-file').  File: gdb.info, Node: Altering, Next: GDB Files, Prev: Symbols, Up: Top Altering Execution ****************** Once you think you have found an error in your program, you might want to find out for certain whether correcting the apparent error would lead to correct results in the rest of the run. You can find the answer by experiment, using the GDB features for altering execution of the program. For example, you can store new values into variables or memory locations, give your program a signal, restart it at a different address, or even return prematurely from a function to its caller. * Menu: * Assignment:: Assignment to variables * Jumping:: Continuing at a different address * Signaling:: Giving your program a signal * Returning:: Returning from a function * Calling:: Calling your program's functions * Patching:: Patching your program  File: gdb.info, Node: Assignment, Next: Jumping, Up: Altering Assignment to variables ======================= To alter the value of a variable, evaluate an assignment expression. *Note Expressions: Expressions. For example, print x=4 stores the value 4 into the variable `x', and then prints the value of the assignment expression (which is 4). *Note Using GDB with Different Languages: Languages, for more information on operators in supported languages. If you are not interested in seeing the value of the assignment, use the `set' command instead of the `print' command. `set' is really the same as `print' except that the expression's value is not printed and is not put in the value history (*note Value history: Value History.). The expression is evaluated only for its effects. If the beginning of the argument string of the `set' command appears identical to a `set' subcommand, use the `set variable' command instead of just `set'. This command is identical to `set' except for its lack of subcommands. For example, if your program has a variable `width', you get an error if you try to set a new value with just `set width=13', because GDB has the command `set width': (gdb) whatis width type = double (gdb) p width $4 = 13 (gdb) set width=47 Invalid syntax in expression. The invalid expression, of course, is `=47'. In order to actually set the program's variable `width', use (gdb) set var width=47 GDB allows more implicit conversions in assignments than C; you can freely store an integer value into a pointer variable or vice versa, and you can convert any structure to any other structure that is the same length or shorter. To store values into arbitrary places in memory, use the `{...}' construct to generate a value of specified type at a specified address (*note Expressions: Expressions.). For example, `{int}0x83040' refers to memory location `0x83040' as an integer (which implies a certain size and representation in memory), and set {int}0x83040 = 4 stores the value 4 into that memory location.  File: gdb.info, Node: Jumping, Next: Signaling, Prev: Assignment, Up: Altering Continuing at a different address ================================= Ordinarily, when you continue your program, you do so at the place where it stopped, with the `continue' command. You can instead continue at an address of your own choosing, with the following commands: `jump LINESPEC' Resume execution at line LINESPEC. Execution stops again immediately if there is a breakpoint there. *Note Printing source lines: List, for a description of the different forms of LINESPEC. The `jump' command does not change the current stack frame, or the stack pointer, or the contents of any memory location or any register other than the program counter. If line LINESPEC is in a different function from the one currently executing, the results may be bizarre if the two functions expect different patterns of arguments or of local variables. For this reason, the `jump' command requests confirmation if the specified line is not in the function currently executing. However, even bizarre results are predictable if you are well acquainted with the machine-language code of your program. `jump *ADDRESS' Resume execution at the instruction at address ADDRESS. You can get much the same effect as the `jump' command by storing a new value into the register `$pc'. The difference is that this does not start your program running; it only changes the address where it *will* run when you continue. For example, set $pc = 0x485 makes the next `continue' command or stepping command execute at address `0x485', rather than at the address where your program stopped. *Note Continuing and stepping: Continuing and Stepping. The most common occasion to use the `jump' command is to back up, perhaps with more breakpoints set, over a portion of a program that has already executed, in order to examine its execution in more detail.  File: gdb.info, Node: Signaling, Next: Returning, Prev: Jumping, Up: Altering Giving your program a signal ============================ `signal SIGNAL' Resume execution where your program stopped, but immediately give it the signal SIGNAL. SIGNAL can be the name or the number of a signal. For example, on many systems `signal 2' and `signal SIGINT' are both ways of sending an interrupt signal. Alternatively, if SIGNAL is zero, continue execution without giving a signal. This is useful when your program stopped on account of a signal and would ordinary see the signal when resumed with the `continue' command; `signal 0' causes it to resume without a signal. `signal' does not repeat when you press RET a second time after executing the command. Invoking the `signal' command is not the same as invoking the `kill' utility from the shell. Sending a signal with `kill' causes GDB to decide what to do with the signal depending on the signal handling tables (*note Signals::.). The `signal' command passes the signal directly to your program.  File: gdb.info, Node: Returning, Next: Calling, Prev: Signaling, Up: Altering Returning from a function ========================= `return' `return EXPRESSION' You can cancel execution of a function call with the `return' command. If you give an EXPRESSION argument, its value is used as the function's return value. When you use `return', GDB discards the selected stack frame (and all frames within it). You can think of this as making the discarded frame return prematurely. If you wish to specify a value to be returned, give that value as the argument to `return'. This pops the selected stack frame (*note Selecting a frame: Selection.), and any other frames inside of it, leaving its caller as the innermost remaining frame. That frame becomes selected. The specified value is stored in the registers used for returning values of functions. The `return' command does not resume execution; it leaves the program stopped in the state that would exist if the function had just returned. In contrast, the `finish' command (*note Continuing and stepping: Continuing and Stepping.) resumes execution until the selected stack frame returns naturally.  File: gdb.info, Node: Calling, Next: Patching, Prev: Returning, Up: Altering Calling program functions ========================= `call EXPR' Evaluate the expression EXPR without displaying `void' returned values. You can use this variant of the `print' command if you want to execute a function from your program, but without cluttering the output with `void' returned values. The result is printed and saved in the value history, if it is not void.  File: gdb.info, Node: Patching, Prev: Calling, Up: Altering Patching programs ================= By default, GDB opens the file containing your program's executable code (or the corefile) read-only. This prevents accidental alterations to machine code; but it also prevents you from intentionally patching your program's binary. If you'd like to be able to patch the binary, you can specify that explicitly with the `set write' command. For example, you might want to turn on internal debugging flags, or even to make emergency repairs. `set write on' `set write off' If you specify `set write on', GDB opens executable and core files for both reading and writing; if you specify `set write off' (the default), GDB opens them read-only. If you have already loaded a file, you must load it again (using the `exec-file' or `core-file' command) after changing `set write', for your new setting to take effect. `show write' Display whether executable files and core files are opened for writing as well as reading.  File: gdb.info, Node: GDB Files, Next: Targets, Prev: Altering, Up: Top GDB Files ********* GDB needs to know the file name of the program to be debugged, both in order to read its symbol table and in order to start your program. To debug a core dump of a previous run, you must also tell GDB the name of the core dump file. * Menu: * Files:: Commands to specify files * Symbol Errors:: Errors reading symbol files  File: gdb.info, Node: Files, Next: Symbol Errors, Up: GDB Files Commands to specify files ========================= The usual way to specify executable and core dump file names is with the command arguments given when you start GDB (*note Getting In and Out of GDB: Invocation.. Occasionally it is necessary to change to a different file during a GDB session. Or you may run GDB and forget to specify a file you want to use. In these situations the GDB commands to specify new files are useful. `file FILENAME' Use FILENAME as the program to be debugged. It is read for its symbols and for the contents of pure memory. It is also the program executed when you use the `run' command. If you do not specify a directory and the file is not found in the GDB working directory, GDB uses the environment variable `PATH' as a list of directories to search, just as the shell does when looking for a program to run. You can change the value of this variable, for both GDB and your program, using the `path' command. On systems with memory-mapped files, an auxiliary file `FILENAME.syms' may hold symbol table information for FILENAME. If so, GDB maps in the symbol table from `FILENAME.syms', starting up more quickly. See the descriptions of the options `-mapped' and `-readnow' (available on the command line, and with the commands `file', `symbol-file', or `add-symbol-file'), for more information. `file' `file' with no argument makes GDB discard any information it has on both executable file and the symbol table. `exec-file [ FILENAME ]' Specify that the program to be run (but not the symbol table) is found in FILENAME. GDB searches the environment variable `PATH' if necessary to locate your program. Omitting FILENAME means to discard information on the executable file. `symbol-file [ FILENAME ]' Read symbol table information from file FILENAME. `PATH' is searched when necessary. Use the `file' command to get both symbol table and program to run from the same file. `symbol-file' with no argument clears out GDB information on your program's symbol table. The `symbol-file' command causes GDB to forget the contents of its convenience variables, the value history, and all breakpoints and auto-display expressions. This is because they may contain pointers to the internal data recording symbols and data types, which are part of the old symbol table data being discarded inside GDB. `symbol-file' does not repeat if you press RET again after executing it once. When GDB is configured for a particular environment, it understands debugging information in whatever format is the standard generated for that environment; you may use either a GNU compiler, or other compilers that adhere to the local conventions. Best results are usually obtained from GNU compilers; for example, using `gcc' you can generate debugging information for optimized code. On some kinds of object files, the `symbol-file' command does not normally read the symbol table in full right away. Instead, it scans the symbol table quickly to find which source files and which symbols are present. The details are read later, one source file at a time, as they are needed. The purpose of this two-stage reading strategy is to make GDB start up faster. For the most part, it is invisible except for occasional pauses while the symbol table details for a particular source file are being read. (The `set verbose' command can turn these pauses into messages if desired. *Note Optional warnings and messages: Messages/Warnings.) We have not implemented the two-stage strategy for COFF yet. When the symbol table is stored in COFF format, `symbol-file' reads the symbol table data in full right away. `symbol-file FILENAME [ -readnow ] [ -mapped ]' `file FILENAME [ -readnow ] [ -mapped ]' You can override the GDB two-stage strategy for reading symbol tables by using the `-readnow' option with any of the commands that load symbol table information, if you want to be sure GDB has the entire symbol table available. If memory-mapped files are available on your system through the `mmap' system call, you can use another option, `-mapped', to cause GDB to write the symbols for your program into a reusable file. Future GDB debugging sessions map in symbol information from this auxiliary symbol file (if the program has not changed), rather than spending time reading the symbol table from the executable program. Using the `-mapped' option has the same effect as starting GDB with the `-mapped' command-line option. You can use both options together, to make sure the auxiliary symbol file has all the symbol information for your program. The auxiliary symbol file for a program called MYPROG is called `MYPROG.syms'. Once this file exists (so long as it is newer than the corresponding executable), GDB always attempts to use it when you debug MYPROG; no special options or commands are needed. The `.syms' file is specific to the host machine where you run GDB. It holds an exact image of the internal GDB symbol table. It cannot be shared across multiple host platforms. `core-file [ FILENAME ]' Specify the whereabouts of a core dump file to be used as the "contents of memory". Traditionally, core files contain only some parts of the address space of the process that generated them; GDB can access the executable file itself for other parts. `core-file' with no argument specifies that no core file is to be used. Note that the core file is ignored when your program is actually running under GDB. So, if you have been running your program and you wish to debug a core file instead, you must kill the subprocess in which the program is running. To do this, use the `kill' command (*note Killing the child process: Kill Process.). `load FILENAME' Depending on what remote debugging facilities are configured into GDB, the `load' command may be available. Where it exists, it is meant to make FILENAME (an executable) available for debugging on the remote system--by downloading, or dynamic linking, for example. `load' also records the FILENAME symbol table in GDB, like the `add-symbol-file' command. If your GDB does not have a `load' command, attempting to execute it gets the error message "`You can't do that when your target is ...'" The file is loaded at whatever address is specified in the executable. For some object file formats, you can specify the load address when you link the program; for other formats, like a.out, the object file format specifies a fixed address. On VxWorks, `load' links FILENAME dynamically on the current target system as well as adding its symbols in GDB. With the Nindy interface to an Intel 960 board, `load' downloads FILENAME to the 960 as well as adding its symbols in GDB. When you select remote debugging to a Hitachi SH, H8/300, or H8/500 board (*note GDB and Hitachi Microprocessors: Hitachi Remote.), the `load' command downloads your program to the Hitachi board and also opens it as the current executable target for GDB on your host (like the `file' command). `load' does not repeat if you press RET again after using it. `add-symbol-file FILENAME ADDRESS' `add-symbol-file FILENAME ADDRESS [ -readnow ] [ -mapped ]' The `add-symbol-file' command reads additional symbol table information from the file FILENAME. You would use this command when FILENAME has been dynamically loaded (by some other means) into the program that is running. ADDRESS should be the memory address at which the file has been loaded; GDB cannot figure this out for itself. You can specify ADDRESS as an expression. The symbol table of the file FILENAME is added to the symbol table originally read with the `symbol-file' command. You can use the `add-symbol-file' command any number of times; the new symbol data thus read keeps adding to the old. To discard all old symbol data instead, use the `symbol-file' command. `add-symbol-file' does not repeat if you press RET after using it. You can use the `-mapped' and `-readnow' options just as with the `symbol-file' command, to change how GDB manages the symbol table information for FILENAME. `info files' `info target' `info files' and `info target' are synonymous; both print the current target (*note Specifying a Debugging Target: Targets.), including the names of the executable and core dump files currently in use by GDB, and the files from which symbols were loaded. The command `help target' lists all possible targets rather than current ones. All file-specifying commands allow both absolute and relative file names as arguments. GDB always converts the file name to an absolute file name and remembers it that way. GDB supports SunOS, SVr4, Irix 5, and IBM RS/6000 shared libraries. G{No Value For "DBN"} automatically loads symbol definitions from shared libraries when you use the `run' command, or when you examine a core file. (Before you issue the `run' command, GDB does not understand references to a function in a shared library, however--unless you are debugging a core file). `info share' `info sharedlibrary' Print the names of the shared libraries which are currently loaded. `sharedlibrary REGEX' `share REGEX' This is an obsolescent command; you can use it to explicitly load shared object library symbols for files matching a Unix regular expression, but as with files loaded automatically, it only loads shared libraries required by your program for a core file or after typing `run'. If REGEX is omitted all shared libraries required by your program are loaded.  File: gdb.info, Node: Symbol Errors, Prev: Files, Up: GDB Files Errors reading symbol files =========================== While reading a symbol file, GDB occasionally encounters problems, such as symbol types it does not recognize, or known bugs in compiler output. By default, GDB does not notify you of such problems, since they are relatively common and primarily of interest to people debugging compilers. If you are interested in seeing information about ill-constructed symbol tables, you can either ask GDB to print only one message about each such type of problem, no matter how many times the problem occurs; or you can ask GDB to print more messages, to see how many times the problems occur, with the `set complaints' command (*note Optional warnings and messages: Messages/Warnings.). The messages currently printed, and their meanings, include: `inner block not inside outer block in SYMBOL' The symbol information shows where symbol scopes begin and end (such as at the start of a function or a block of statements). This error indicates that an inner scope block is not fully contained in its outer scope blocks. GDB circumvents the problem by treating the inner block as if it had the same scope as the outer block. In the error message, SYMBOL may be shown as "`(don't know)'" if the outer block is not a function. `block at ADDRESS out of order' The symbol information for symbol scope blocks should occur in order of increasing addresses. This error indicates that it does not do so. GDB does not circumvent this problem, and has trouble locating symbols in the source file whose symbols it is reading. (You can often determine what source file is affected by specifying `set verbose on'. *Note Optional warnings and messages: Messages/Warnings.) `bad block start address patched' The symbol information for a symbol scope block has a start address smaller than the address of the preceding source line. This is known to occur in the SunOS 4.1.1 (and earlier) C compiler. GDB circumvents the problem by treating the symbol scope block as starting on the previous source line. `bad string table offset in symbol N' Symbol number N contains a pointer into the string table which is larger than the size of the string table. GDB circumvents the problem by considering the symbol to have the name `foo', which may cause other problems if many symbols end up with this name. `unknown symbol type `0xNN'' The symbol information contains new data types that GDB does not yet know how to read. `0xNN' is the symbol type of the misunderstood information, in hexadecimal. GDB circumvents the error by ignoring this symbol information. This usually allows you to debug your program, though certain symbols are not accessible. If you encounter such a problem and feel like debugging it, you can debug `gdb' with itself, breakpoint on `complain', then go up to the function `read_dbx_symtab' and examine `*bufp' to see the symbol. `stub type has NULL name' GDB could not find the full definition for a struct or class. `const/volatile indicator missing (ok if using g++ v1.x), got...' The symbol information for a C++ member function is missing some information that recent versions of the compiler should have output for it. `info mismatch between compiler and debugger' GDB could not parse a type specification output by the compiler.  File: gdb.info, Node: Targets, Next: Controlling GDB, Prev: GDB Files, Up: Top Specifying a Debugging Target ***************************** A "target" is the execution environment occupied by your program. Often, GDB runs in the same host environment as your program; in that case, the debugging target is specified as a side effect when you use the `file' or `core' commands. When you need more flexibility--for example, running GDB on a physically separate host, or controlling a standalone system over a serial port or a realtime system over a TCP/IP connection--you can use the `target' command to specify one of the target types configured for GDB (*note Commands for managing targets: Target Commands.). * Menu: * Active Targets:: Active targets * Target Commands:: Commands for managing targets * Remote:: Remote debugging  File: gdb.info, Node: Active Targets, Next: Target Commands, Up: Targets Active targets ============== There are three classes of targets: processes, core files, and executable files. GDB can work concurrently on up to three active targets, one in each class. This allows you to (for example) start a process and inspect its activity without abandoning your work on a core file. For example, if you execute `gdb a.out', then the executable file `a.out' is the only active target. If you designate a core file as well--presumably from a prior run that crashed and coredumped--then GDB has two active targets and uses them in tandem, looking first in the corefile target, then in the executable file, to satisfy requests for memory addresses. (Typically, these two classes of target are complementary, since core files contain only a program's read-write memory--variables and so on--plus machine status, while executable files contain only the program text and initialized data.) When you type `run', your executable file becomes an active process target as well. When a process target is active, all GDB commands requesting memory addresses refer to that target; addresses in an active core file or executable file target are obscured while the process target is active. Use the `core-file' and `exec-file' commands to select a new core file or executable target (*note Commands to specify files: Files.). To specify as a target a process that is already running, use the `attach' command (*note Debugging an already-running process: Attach.).  File: gdb.info, Node: Target Commands, Next: Remote, Prev: Active Targets, Up: Targets Commands for managing targets ============================= `target TYPE PARAMETERS' Connects the GDB host environment to a target machine or process. A target is typically a protocol for talking to debugging facilities. You use the argument TYPE to specify the type or protocol of the target machine. Further PARAMETERS are interpreted by the target protocol, but typically include things like device names or host names to connect with, process numbers, and baud rates. The `target' command does not repeat if you press RET again after executing the command. `help target' Displays the names of all targets available. To display targets currently selected, use either `info target' or `info files' (*note Commands to specify files: Files.). `help target NAME' Describe a particular target, including any parameters necessary to select it. Here are some common targets (available, or not, depending on the GDB configuration): `target exec PROGRAM' An executable file. `target exec PROGRAM' is the same as `exec-file PROGRAM'. `target core FILENAME' A core dump file. `target core FILENAME' is the same as `core-file FILENAME'. `target remote DEV' Remote serial target in GDB-specific protocol. The argument DEV specifies what serial device to use for the connection (e.g. `/dev/ttya'). *Note Remote debugging: Remote. `target sim' CPU simulator. *Note Simulated CPU Target: Simulator. `target udi KEYWORD' Remote AMD29K target, using the AMD UDI protocol. The KEYWORD argument specifies which 29K board or simulator to use. *Note The UDI protocol for AMD29K: UDI29K Remote. `target amd-eb DEV SPEED PROG' Remote PC-resident AMD EB29K board, attached over serial lines. dEV is the serial device, as for `target remote'; SPEED allows you to specify the linespeed; and PROG is the name of the program to be debugged, as it appears to DOS on the PC. *Note The EBMON protocol for AMD29K: EB29K Remote. `target hms' A Hitachi SH, H8/300, or H8/500 board, attached via serial line to your host. Use special commands `device' and `speed' to control the serial line and the communications speed used. *Note GDB and Hitachi Microprocessors: Hitachi Remote. `target nindy DEVICENAME' An Intel 960 board controlled by a Nindy Monitor. DEVICENAME is the name of the serial device to use for the connection, e.g. `/dev/ttya'. *Note GDB with a remote i960 (Nindy): i960-Nindy Remote. `target st2000 DEV SPEED' A Tandem ST2000 phone switch, running Tandem's STDBUG protocol. dEV is the name of the device attached to the ST2000 serial line; SPEED is the communication line speed. The arguments are not used if GDB is configured to connect to the ST2000 using TCP or Telnet. *Note GDB with a Tandem ST2000: ST2000 Remote. `target vxworks MACHINENAME' A VxWorks system, attached via TCP/IP. The argument MACHINENAME is the target system's machine name or IP address. *Note GDB and VxWorks: VxWorks Remote. Different targets are available on different configurations of GDB; your configuration may have more or fewer targets.  File: gdb.info, Node: Remote, Prev: Target Commands, Up: Targets Remote debugging ================ If you are trying to debug a program running on a machine that cannot run GDB in the usual way, it is often useful to use remote debugging. For example, you might use remote debugging on an operating system kernel, or on a small system which does not have a general purpose operating system powerful enough to run a full-featured debugger. Some configurations of GDB have special serial or TCP/IP interfaces to make this work with particular debugging targets. In addition, GDB comes with a generic serial protocol (specific to GDB, but not specific to any particular target system) which you can use if you write the remote stubs--the code that runs on the remote system to communicate with GDB. Other remote targets may be available in your configuration of GDB; use `help target' to list them. * Menu: * Remote Serial:: GDB remote serial protocol * i960-Nindy Remote:: GDB with a remote i960 (Nindy) * UDI29K Remote:: The UDI protocol for AMD29K * EB29K Remote:: The EBMON protocol for AMD29K * VxWorks Remote:: GDB and VxWorks * ST2000 Remote:: GDB with a Tandem ST2000 * Hitachi Remote:: GDB and Hitachi Microprocessors * MIPS Remote:: GDB and MIPS boards * Simulator:: Simulated CPU target  File: gdb.info, Node: Remote Serial, Next: i960-Nindy Remote, Up: Remote The GDB remote serial protocol ------------------------------ To debug a program running on another machine (the debugging "target" machine), you must first arrange for all the usual prerequisites for the program to run by itself. For example, for a C program, you need 1. A startup routine to set up the C runtime environment; these usually have a name like `crt0'. The startup routine may be supplied by your hardware supplier, or you may have to write your own. 2. You probably need a C subroutine library to support your program's subroutine calls, notably managing input and output. 3. A way of getting your program to the other machine--for example, a download program. These are often supplied by the hardware manufacturer, but you may have to write your own from hardware documentation. The next step is to arrange for your program to use a serial port to communicate with the machine where GDB is running (the "host" machine). In general terms, the scheme looks like this: *On the host,* GDB already understands how to use this protocol; when everything else is set up, you can simply use the `target remote' command (*note Specifying a Debugging Target: Targets.). *On the target,* you must link with your program a few special-purpose subroutines that implement the GDB remote serial protocol. The file containing these subroutines is called a "debugging stub". On certain remote targets, you can use an auxiliary program `gdbserver' instead of linking a stub into your program. *Note Using the `gdbserver' program: Server, for details. The debugging stub is specific to the architecture of the remote machine; for example, use `sparc-stub.c' to debug programs on SPARC boards. These working remote stubs are distributed with GDB: `sparc-stub.c' For SPARC architectures. `m68k-stub.c' For Motorola 680x0 architectures. `i386-stub.c' For Intel 386 and compatible architectures. The `README' file in the GDB distribution may list other recently added stubs. * Menu: * Stub Contents:: What the stub can do for you * Bootstrapping:: What you must do for the stub * Debug Session:: Putting it all together * Protocol:: Outline of the communication protocol * Server:: Using the `gdbserver' program  File: gdb.info, Node: Stub Contents, Next: Bootstrapping, Up: Remote Serial What the stub can do for you ---------------------------- The debugging stub for your architecture supplies these three subroutines: `set_debug_traps' This routine arranges for `handle_exception' to run when your program stops. You must call this subroutine explicitly near the beginning of your program. `handle_exception' This is the central workhorse, but your program never calls it explicitly--the setup code arranges for `handle_exception' to run when a trap is triggered. `handle_exception' takes control when your program stops during execution (for example, on a breakpoint), and mediates communications with GDB on the host machine. This is where the communications protocol is implemented; `handle_exception' acts as the GDB representative on the target machine; it begins by sending summary information on the state of your program, then continues to execute, retrieving and transmitting any information GDB needs, until you execute a GDB command that makes your program resume; at that point, `handle_exception' returns control to your own code on the target machine. `breakpoint' Use this auxiliary subroutine to make your program contain a breakpoint. Depending on the particular situation, this may be the only way for GDB to get control. For instance, if your target machine has some sort of interrupt button, you won't need to call this; pressing the interrupt button transfers control to `handle_exception'--in effect, to GDB. On some machines, simply receiving characters on the serial port may also trigger a trap; again, in that situation, you don't need to call `breakpoint' from your own program--simply running `target remote' from the host GDB session gets control. Call `breakpoint' if none of these is true, or if you simply want to make certain your program stops at a predetermined point for the start of your debugging session. gdb-4.13/gdb/ser-tcp.c 666 34562 1752 15456 5573407313 13054 0ustar fnfcygnus/* Serial interface for raw TCP connections on Un*x like systems Copyright 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "serial.h" #include #include #include #include #include #include #include #include "signals.h" struct tcp_ttystate { int bogus; }; static int tcp_open PARAMS ((serial_t scb, const char *name)); static void tcp_raw PARAMS ((serial_t scb)); static int wait_for PARAMS ((serial_t scb, int timeout)); static int tcp_readchar PARAMS ((serial_t scb, int timeout)); static int tcp_setbaudrate PARAMS ((serial_t scb, int rate)); static int tcp_write PARAMS ((serial_t scb, const char *str, int len)); /* FIXME: static void tcp_restore PARAMS ((serial_t scb)); */ static void tcp_close PARAMS ((serial_t scb)); static serial_ttystate tcp_get_tty_state PARAMS ((serial_t scb)); static int tcp_set_tty_state PARAMS ((serial_t scb, serial_ttystate state)); /* Open up a raw tcp socket */ static int tcp_open(scb, name) serial_t scb; const char *name; { char *port_str; int port; struct hostent *hostent; struct sockaddr_in sockaddr; int tmp; char hostname[100]; struct protoent *protoent; port_str = strchr (name, ':'); if (!port_str) error ("tcp_open: No colon in host name!"); /* Shouldn't ever happen */ tmp = min (port_str - name, sizeof hostname - 1); strncpy (hostname, name, tmp); /* Don't want colon */ hostname[tmp] = '\000'; /* Tie off host name */ port = atoi (port_str + 1); hostent = gethostbyname (hostname); if (!hostent) { fprintf_unfiltered (gdb_stderr, "%s: unknown host\n", hostname); errno = ENOENT; return -1; } scb->fd = socket (PF_INET, SOCK_STREAM, 0); if (scb->fd < 0) return -1; /* Allow rapid reuse of this port. */ tmp = 1; setsockopt (scb->fd, SOL_SOCKET, SO_REUSEADDR, (char *)&tmp, sizeof(tmp)); /* Enable TCP keep alive process. */ tmp = 1; setsockopt (scb->fd, SOL_SOCKET, SO_KEEPALIVE, (char *)&tmp, sizeof(tmp)); sockaddr.sin_family = PF_INET; sockaddr.sin_port = htons(port); memcpy (&sockaddr.sin_addr.s_addr, hostent->h_addr, sizeof (struct in_addr)); if (connect (scb->fd, &sockaddr, sizeof(sockaddr))) { close(scb->fd); scb->fd = -1; return -1; } protoent = getprotobyname ("tcp"); if (!protoent) return -1; tmp = 1; if (setsockopt (scb->fd, protoent->p_proto, TCP_NODELAY, (char *)&tmp, sizeof(tmp))) return -1; signal(SIGPIPE, SIG_IGN); /* If we don't do this, then GDB simply exits when the remote side dies. */ return 0; } static serial_ttystate tcp_get_tty_state(scb) serial_t scb; { struct tcp_ttystate *state; state = (struct tcp_ttystate *)xmalloc(sizeof *state); return (serial_ttystate)state; } static int tcp_set_tty_state(scb, ttystate) serial_t scb; serial_ttystate ttystate; { struct tcp_ttystate *state; state = (struct tcp_ttystate *)ttystate; return 0; } static int tcp_return_0 (scb) serial_t scb; { return 0; } static void tcp_raw(scb) serial_t scb; { return; /* Always in raw mode */ } /* Wait for input on scb, with timeout seconds. Returns 0 on success, otherwise SERIAL_TIMEOUT or SERIAL_ERROR. For termio{s}, we actually just setup VTIME if necessary, and let the timeout occur in the read() in tcp_read(). */ static int wait_for(scb, timeout) serial_t scb; int timeout; { int numfds; struct timeval tv; fd_set readfds, exceptfds; FD_ZERO (&readfds); FD_ZERO (&exceptfds); tv.tv_sec = timeout; tv.tv_usec = 0; FD_SET(scb->fd, &readfds); FD_SET(scb->fd, &exceptfds); while (1) { if (timeout >= 0) numfds = select(scb->fd+1, &readfds, 0, &exceptfds, &tv); else numfds = select(scb->fd+1, &readfds, 0, &exceptfds, 0); if (numfds <= 0) if (numfds == 0) return SERIAL_TIMEOUT; else if (errno == EINTR) continue; else return SERIAL_ERROR; /* Got an error from select or poll */ return 0; } } /* Read a character with user-specified timeout. TIMEOUT is number of seconds to wait, or -1 to wait forever. Use timeout of 0 to effect a poll. Returns char if successful. Returns -2 if timeout expired, EOF if line dropped dead, or -3 for any other error (see errno in that case). */ static int tcp_readchar(scb, timeout) serial_t scb; int timeout; { int status; if (scb->bufcnt-- > 0) return *scb->bufp++; status = wait_for(scb, timeout); if (status < 0) return status; while (1) { scb->bufcnt = read(scb->fd, scb->buf, BUFSIZ); if (scb->bufcnt != -1 || errno != EINTR) break; } if (scb->bufcnt <= 0) if (scb->bufcnt == 0) return SERIAL_TIMEOUT; /* 0 chars means timeout [may need to distinguish between EOF & timeouts someday] */ else return SERIAL_ERROR; /* Got an error from read */ scb->bufcnt--; scb->bufp = scb->buf; return *scb->bufp++; } static int tcp_noflush_set_tty_state (scb, new_ttystate, old_ttystate) serial_t scb; serial_ttystate new_ttystate; serial_ttystate old_ttystate; { return 0; } static void tcp_print_tty_state (scb, ttystate) serial_t scb; serial_ttystate ttystate; { /* Nothing to print. */ return; } static int tcp_setbaudrate(scb, rate) serial_t scb; int rate; { return 0; /* Never fails! */ } static int tcp_write(scb, str, len) serial_t scb; const char *str; int len; { int cc; while (len > 0) { cc = write(scb->fd, str, len); if (cc < 0) return 1; len -= cc; str += cc; } return 0; } static void tcp_close(scb) serial_t scb; { if (scb->fd < 0) return; close(scb->fd); scb->fd = -1; } static struct serial_ops tcp_ops = { "tcp", 0, tcp_open, tcp_close, tcp_readchar, tcp_write, tcp_return_0, /* flush output */ tcp_return_0, /* flush input */ tcp_return_0, /* send break */ tcp_raw, tcp_get_tty_state, tcp_set_tty_state, tcp_print_tty_state, tcp_noflush_set_tty_state, tcp_setbaudrate, }; void _initialize_ser_tcp () { serial_add_interface (&tcp_ops); } gdb-4.13/gdb/ser-unix.c 666 34562 1752 36314 5573407315 13247 0ustar fnfcygnus/* Serial interface for local (hardwired) serial ports on Un*x like systems Copyright 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "serial.h" #include #include #if !defined (HAVE_TERMIOS) && !defined (HAVE_TERMIO) && !defined (HAVE_SGTTY) #define HAVE_SGTTY #endif #ifdef HAVE_TERMIOS #include #include struct hardwire_ttystate { struct termios termios; }; #endif /* termios */ #ifdef HAVE_TERMIO #include /* It is believed that all systems which have added job control to SVR3 (e.g. sco) have also added termios. Even if not, trying to figure out all the variations (TIOCGPGRP vs. TCGETPGRP, etc.) would be pretty bewildering. So we don't attempt it. */ struct hardwire_ttystate { struct termio termio; }; #endif /* termio */ #ifdef HAVE_SGTTY /* Needed for the code which uses select(). We would include too if it existed on all systems. */ #include #include struct hardwire_ttystate { struct sgttyb sgttyb; struct tchars tc; struct ltchars ltc; /* Line discipline flags. */ int lmode; }; #endif /* sgtty */ static int hardwire_open PARAMS ((serial_t scb, const char *name)); static void hardwire_raw PARAMS ((serial_t scb)); static int wait_for PARAMS ((serial_t scb, int timeout)); static int hardwire_readchar PARAMS ((serial_t scb, int timeout)); static int rate_to_code PARAMS ((int rate)); static int hardwire_setbaudrate PARAMS ((serial_t scb, int rate)); static int hardwire_write PARAMS ((serial_t scb, const char *str, int len)); /* FIXME: static void hardwire_restore PARAMS ((serial_t scb)); */ static void hardwire_close PARAMS ((serial_t scb)); static int get_tty_state PARAMS ((serial_t scb, struct hardwire_ttystate *state)); static int set_tty_state PARAMS ((serial_t scb, struct hardwire_ttystate *state)); static serial_ttystate hardwire_get_tty_state PARAMS ((serial_t scb)); static int hardwire_set_tty_state PARAMS ((serial_t scb, serial_ttystate state)); /* Open up a real live device for serial I/O */ static int hardwire_open(scb, name) serial_t scb; const char *name; { scb->fd = open (name, O_RDWR); if (scb->fd < 0) return -1; return 0; } static int get_tty_state(scb, state) serial_t scb; struct hardwire_ttystate *state; { #ifdef HAVE_TERMIOS extern int errno; if (tcgetattr(scb->fd, &state->termios) < 0) return -1; return 0; #endif #ifdef HAVE_TERMIO if (ioctl (scb->fd, TCGETA, &state->termio) < 0) return -1; return 0; #endif #ifdef HAVE_SGTTY if (ioctl (scb->fd, TIOCGETP, &state->sgttyb) < 0) return -1; if (ioctl (scb->fd, TIOCGETC, &state->tc) < 0) return -1; if (ioctl (scb->fd, TIOCGLTC, &state->ltc) < 0) return -1; if (ioctl (scb->fd, TIOCLGET, &state->lmode) < 0) return -1; return 0; #endif } static int set_tty_state(scb, state) serial_t scb; struct hardwire_ttystate *state; { #ifdef HAVE_TERMIOS if (tcsetattr(scb->fd, TCSANOW, &state->termios) < 0) return -1; return 0; #endif #ifdef HAVE_TERMIO if (ioctl (scb->fd, TCSETA, &state->termio) < 0) return -1; return 0; #endif #ifdef HAVE_SGTTY if (ioctl (scb->fd, TIOCSETN, &state->sgttyb) < 0) return -1; if (ioctl (scb->fd, TIOCSETC, &state->tc) < 0) return -1; if (ioctl (scb->fd, TIOCSLTC, &state->ltc) < 0) return -1; if (ioctl (scb->fd, TIOCLSET, &state->lmode) < 0) return -1; return 0; #endif } static serial_ttystate hardwire_get_tty_state(scb) serial_t scb; { struct hardwire_ttystate *state; state = (struct hardwire_ttystate *)xmalloc(sizeof *state); if (get_tty_state(scb, state)) return NULL; return (serial_ttystate)state; } static int hardwire_set_tty_state(scb, ttystate) serial_t scb; serial_ttystate ttystate; { struct hardwire_ttystate *state; state = (struct hardwire_ttystate *)ttystate; return set_tty_state(scb, state); } static int hardwire_noflush_set_tty_state (scb, new_ttystate, old_ttystate) serial_t scb; serial_ttystate new_ttystate; serial_ttystate old_ttystate; { struct hardwire_ttystate new_state; struct hardwire_ttystate *state = (struct hardwire_ttystate *) old_ttystate; new_state = *(struct hardwire_ttystate *)new_ttystate; /* Don't change in or out of raw mode; we don't want to flush input. termio and termios have no such restriction; for them flushing input is separate from setting the attributes. */ #ifdef HAVE_SGTTY if (state->sgttyb.sg_flags & RAW) new_state.sgttyb.sg_flags |= RAW; else new_state.sgttyb.sg_flags &= ~RAW; /* I'm not sure whether this is necessary; the manpage just mentions RAW not CBREAK. */ if (state->sgttyb.sg_flags & CBREAK) new_state.sgttyb.sg_flags |= CBREAK; else new_state.sgttyb.sg_flags &= ~CBREAK; #endif return set_tty_state (scb, &new_state); } static void hardwire_print_tty_state (scb, ttystate) serial_t scb; serial_ttystate ttystate; { struct hardwire_ttystate *state = (struct hardwire_ttystate *) ttystate; int i; #ifdef HAVE_TERMIOS printf_filtered ("c_iflag = 0x%x, c_oflag = 0x%x,\n", state->termios.c_iflag, state->termios.c_oflag); printf_filtered ("c_cflag = 0x%x, c_lflag = 0x%x\n", state->termios.c_cflag, state->termios.c_lflag); #if 0 /* This not in POSIX, and is not really documented by those systems which have it (at least not Sun). */ printf_filtered ("c_line = 0x%x.\n", state->termios.c_line); #endif printf_filtered ("c_cc: "); for (i = 0; i < NCCS; i += 1) printf_filtered ("0x%x ", state->termios.c_cc[i]); printf_filtered ("\n"); #endif #ifdef HAVE_TERMIO printf_filtered ("c_iflag = 0x%x, c_oflag = 0x%x,\n", state->termio.c_iflag, state->termio.c_oflag); printf_filtered ("c_cflag = 0x%x, c_lflag = 0x%x, c_line = 0x%x.\n", state->termio.c_cflag, state->termio.c_lflag, state->termio.c_line); printf_filtered ("c_cc: "); for (i = 0; i < NCC; i += 1) printf_filtered ("0x%x ", state->termio.c_cc[i]); printf_filtered ("\n"); #endif #ifdef HAVE_SGTTY printf_filtered ("sgttyb.sg_flags = 0x%x.\n", state->sgttyb.sg_flags); printf_filtered ("tchars: "); for (i = 0; i < (int)sizeof (struct tchars); i++) printf_filtered ("0x%x ", ((unsigned char *)&state->tc)[i]); printf_filtered ("\n"); printf_filtered ("ltchars: "); for (i = 0; i < (int)sizeof (struct ltchars); i++) printf_filtered ("0x%x ", ((unsigned char *)&state->ltc)[i]); printf_filtered ("\n"); printf_filtered ("lmode: 0x%x\n", state->lmode); #endif } static int hardwire_flush_output (scb) serial_t scb; { #ifdef HAVE_TERMIOS return tcflush (scb->fd, TCOFLUSH); #endif #ifdef HAVE_TERMIO return ioctl (scb->fd, TCFLSH, 1); #endif #ifdef HAVE_SGTTY /* This flushes both input and output, but we can't do better. */ return ioctl (scb->fd, TIOCFLUSH, 0); #endif } static int hardwire_flush_input (scb) serial_t scb; { #ifdef HAVE_TERMIOS return tcflush (scb->fd, TCIFLUSH); #endif #ifdef HAVE_TERMIO return ioctl (scb->fd, TCFLSH, 0); #endif #ifdef HAVE_SGTTY /* This flushes both input and output, but we can't do better. */ return ioctl (scb->fd, TIOCFLUSH, 0); #endif } static int hardwire_send_break (scb) serial_t scb; { #ifdef HAVE_TERMIOS return tcsendbreak (scb->fd, 0); #endif #ifdef HAVE_TERMIO return ioctl (scb->fd, TCSBRK, 0); #endif #ifdef HAVE_SGTTY { int status; struct timeval timeout; status = ioctl (scb->fd, TIOCSBRK, 0); /* Can't use usleep; it doesn't exist in BSD 4.2. */ /* Note that if this select() is interrupted by a signal it will not wait the full length of time. I think that is OK. */ timeout.tv_sec = 0; timeout.tv_usec = 250000; select (0, 0, 0, 0, &timeout); status = ioctl (scb->fd, TIOCCBRK, 0); return status; } #endif } static void hardwire_raw(scb) serial_t scb; { struct hardwire_ttystate state; if (get_tty_state(scb, &state)) fprintf_unfiltered(gdb_stderr, "get_tty_state failed: %s\n", safe_strerror(errno)); #ifdef HAVE_TERMIOS state.termios.c_iflag = 0; state.termios.c_oflag = 0; state.termios.c_lflag = 0; state.termios.c_cflag &= ~(CSIZE|PARENB); state.termios.c_cflag |= CLOCAL | CS8; state.termios.c_cc[VMIN] = 0; state.termios.c_cc[VTIME] = 0; #endif #ifdef HAVE_TERMIO state.termio.c_iflag = 0; state.termio.c_oflag = 0; state.termio.c_lflag = 0; state.termio.c_cflag &= ~(CSIZE|PARENB); state.termio.c_cflag |= CLOCAL | CS8; state.termio.c_cc[VMIN] = 0; state.termio.c_cc[VTIME] = 0; #endif #ifdef HAVE_SGTTY state.sgttyb.sg_flags |= RAW | ANYP; state.sgttyb.sg_flags &= ~(CBREAK | ECHO); #endif scb->current_timeout = 0; if (set_tty_state (scb, &state)) fprintf_unfiltered(gdb_stderr, "set_tty_state failed: %s\n", safe_strerror(errno)); } /* Wait for input on scb, with timeout seconds. Returns 0 on success, otherwise SERIAL_TIMEOUT or SERIAL_ERROR. For termio{s}, we actually just setup VTIME if necessary, and let the timeout occur in the read() in hardwire_read(). */ static int wait_for(scb, timeout) serial_t scb; int timeout; { scb->timeout_remaining = 0; #ifdef HAVE_SGTTY { struct timeval tv; fd_set readfds; FD_ZERO (&readfds); tv.tv_sec = timeout; tv.tv_usec = 0; FD_SET(scb->fd, &readfds); while (1) { int numfds; if (timeout >= 0) numfds = select(scb->fd+1, &readfds, 0, 0, &tv); else numfds = select(scb->fd+1, &readfds, 0, 0, 0); if (numfds <= 0) if (numfds == 0) return SERIAL_TIMEOUT; else if (errno == EINTR) continue; else return SERIAL_ERROR; /* Got an error from select or poll */ return 0; } } #endif /* HAVE_SGTTY */ #if defined HAVE_TERMIO || defined HAVE_TERMIOS if (timeout == scb->current_timeout) return 0; scb->current_timeout = timeout; { struct hardwire_ttystate state; if (get_tty_state(scb, &state)) fprintf_unfiltered(gdb_stderr, "get_tty_state failed: %s\n", safe_strerror(errno)); #ifdef HAVE_TERMIOS if (timeout < 0) { /* No timeout. */ state.termios.c_cc[VTIME] = 0; state.termios.c_cc[VMIN] = 1; } else { state.termios.c_cc[VMIN] = 0; state.termios.c_cc[VTIME] = timeout * 10; if (state.termios.c_cc[VTIME] != timeout * 10) { /* If c_cc is an 8-bit signed character, we can't go bigger than this. If it is always unsigned, we could use 25. */ scb->current_timeout = 12; state.termios.c_cc[VTIME] = scb->current_timeout * 10; scb->timeout_remaining = timeout - scb->current_timeout; } } #endif #ifdef HAVE_TERMIO if (timeout < 0) { /* No timeout. */ state.termio.c_cc[VTIME] = 0; state.termio.c_cc[VMIN] = 1; } else { state.termio.c_cc[VMIN] = 0; state.termio.c_cc[VTIME] = timeout * 10; if (state.termio.c_cc[VTIME] != timeout * 10) { /* If c_cc is an 8-bit signed character, we can't go bigger than this. If it is always unsigned, we could use 25. */ scb->current_timeout = 12; state.termio.c_cc[VTIME] = scb->current_timeout * 10; scb->timeout_remaining = timeout - scb->current_timeout; } } #endif if (set_tty_state (scb, &state)) fprintf_unfiltered(gdb_stderr, "set_tty_state failed: %s\n", safe_strerror(errno)); return 0; } #endif /* HAVE_TERMIO || HAVE_TERMIOS */ } /* Read a character with user-specified timeout. TIMEOUT is number of seconds to wait, or -1 to wait forever. Use timeout of 0 to effect a poll. Returns char if successful. Returns SERIAL_TIMEOUT if timeout expired, EOF if line dropped dead, or SERIAL_ERROR for any other error (see errno in that case). */ static int hardwire_readchar(scb, timeout) serial_t scb; int timeout; { int status; if (scb->bufcnt-- > 0) return *scb->bufp++; while (1) { status = wait_for (scb, timeout); if (status < 0) return status; scb->bufcnt = read (scb->fd, scb->buf, BUFSIZ); if (scb->bufcnt <= 0) { if (scb->bufcnt == 0) { /* Zero characters means timeout (it could also be EOF, but we don't (yet at least) distinguish). */ if (scb->timeout_remaining > 0) { timeout = scb->timeout_remaining; continue; } else return SERIAL_TIMEOUT; } else if (errno == EINTR) continue; else return SERIAL_ERROR; /* Got an error from read */ } scb->bufcnt--; scb->bufp = scb->buf; return *scb->bufp++; } } #ifndef B19200 #define B19200 EXTA #endif #ifndef B38400 #define B38400 EXTB #endif /* Translate baud rates from integers to damn B_codes. Unix should have outgrown this crap years ago, but even POSIX wouldn't buck it. */ static struct { int rate; int code; } baudtab[] = { {50, B50}, {75, B75}, {110, B110}, {134, B134}, {150, B150}, {200, B200}, {300, B300}, {600, B600}, {1200, B1200}, {1800, B1800}, {2400, B2400}, {4800, B4800}, {9600, B9600}, {19200, B19200}, {38400, B38400}, {-1, -1}, }; static int rate_to_code(rate) int rate; { int i; for (i = 0; baudtab[i].rate != -1; i++) if (rate == baudtab[i].rate) return baudtab[i].code; return -1; } static int hardwire_setbaudrate(scb, rate) serial_t scb; int rate; { struct hardwire_ttystate state; if (get_tty_state(scb, &state)) return -1; #ifdef HAVE_TERMIOS cfsetospeed (&state.termios, rate_to_code (rate)); cfsetispeed (&state.termios, rate_to_code (rate)); #endif #ifdef HAVE_TERMIO #ifndef CIBAUD #define CIBAUD CBAUD #endif state.termio.c_cflag &= ~(CBAUD | CIBAUD); state.termio.c_cflag |= rate_to_code (rate); #endif #ifdef HAVE_SGTTY state.sgttyb.sg_ispeed = rate_to_code (rate); state.sgttyb.sg_ospeed = rate_to_code (rate); #endif return set_tty_state (scb, &state); } static int hardwire_write(scb, str, len) serial_t scb; const char *str; int len; { int cc; while (len > 0) { cc = write(scb->fd, str, len); if (cc < 0) return 1; len -= cc; str += cc; } return 0; } static void hardwire_close(scb) serial_t scb; { if (scb->fd < 0) return; close(scb->fd); scb->fd = -1; } static struct serial_ops hardwire_ops = { "hardwire", 0, hardwire_open, hardwire_close, hardwire_readchar, hardwire_write, hardwire_flush_output, hardwire_flush_input, hardwire_send_break, hardwire_raw, hardwire_get_tty_state, hardwire_set_tty_state, hardwire_print_tty_state, hardwire_noflush_set_tty_state, hardwire_setbaudrate, }; void _initialize_ser_hardwire () { serial_add_interface (&hardwire_ops); } gdb-4.13/gdb/serial.c 666 34562 1752 12405 5603604552 12743 0ustar fnfcygnus/* Generic serial interface routines Copyright 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "serial.h" /* Linked list of serial I/O handlers */ static struct serial_ops *serial_ops_list = NULL; /* This is the last serial stream opened. Used by connect command. */ static serial_t last_serial_opened = NULL; static struct serial_ops * serial_interface_lookup (name) char *name; { struct serial_ops *ops; for (ops = serial_ops_list; ops; ops = ops->next) if (strcmp (name, ops->name) == 0) return ops; return NULL; } void serial_add_interface(optable) struct serial_ops *optable; { optable->next = serial_ops_list; serial_ops_list = optable; } /* Open up a device or a network socket, depending upon the syntax of NAME. */ serial_t serial_open (name) const char *name; { serial_t scb; struct serial_ops *ops; if (strcmp (name, "pc") == 0) ops = serial_interface_lookup ("pc"); else if (strchr (name, ':')) ops = serial_interface_lookup ("tcp"); else ops = serial_interface_lookup ("hardwire"); if (!ops) return NULL; scb = (serial_t)xmalloc (sizeof (struct _serial_t)); scb->ops = ops; scb->bufcnt = 0; scb->bufp = scb->buf; if (scb->ops->open(scb, name)) { free (scb); return NULL; } last_serial_opened = scb; return scb; } serial_t serial_fdopen(fd) const int fd; { serial_t scb; struct serial_ops *ops; ops = serial_interface_lookup ("hardwire"); if (!ops) return NULL; scb = (serial_t)xmalloc (sizeof (struct _serial_t)); scb->ops = ops; scb->bufcnt = 0; scb->bufp = scb->buf; scb->fd = fd; last_serial_opened = scb; return scb; } void serial_close(scb) serial_t scb; { last_serial_opened = NULL; /* This is bogus. It's not our fault if you pass us a bad scb...! Rob, you should fix your code instead. */ if (!scb) return; scb->ops->close(scb); free(scb); } #if 0 /* The connect command is #if 0 because I hadn't thought of an elegant way to wait for I/O on two serial_t's simultaneously. Two solutions came to mind: 1) Fork, and have have one fork handle the to user direction, and have the other hand the to target direction. This obviously won't cut it for MSDOS. 2) Use something like select. This assumes that stdin and the target side can both be waited on via the same mechanism. This may not be true for DOS, if GDB is talking to the target via a TCP socket. -grossman, 8 Jun 93 */ /* Connect the user directly to the remote system. This command acts just like the 'cu' or 'tip' command. Use ~. or ~^D to break out. */ static serial_t tty_desc; /* Controlling terminal */ static void cleanup_tty(ttystate) serial_ttystate ttystate; { printf_unfiltered ("\r\n[Exiting connect mode]\r\n"); SERIAL_SET_TTY_STATE (tty_desc, ttystate); free (ttystate); SERIAL_CLOSE (tty_desc); } static void connect_command (args, fromtty) char *args; int fromtty; { int c; char cur_esc = 0; serial_ttystate ttystate; serial_t port_desc; /* TTY port */ dont_repeat(); if (args) fprintf_unfiltered(gdb_stderr, "This command takes no args. They have been ignored.\n"); printf_unfiltered("[Entering connect mode. Use ~. or ~^D to escape]\n"); tty_desc = SERIAL_FDOPEN (0); port_desc = last_serial_opened; ttystate = SERIAL_GET_TTY_STATE (tty_desc); SERIAL_RAW (tty_desc); SERIAL_RAW (port_desc); make_cleanup (cleanup_tty, ttystate); while (1) { int mask; mask = SERIAL_WAIT_2 (tty_desc, port_desc, -1); if (mask & 2) { /* tty input */ char cx; while (1) { c = SERIAL_READCHAR(tty_desc, 0); if (c == SERIAL_TIMEOUT) break; if (c < 0) perror_with_name("connect"); cx = c; SERIAL_WRITE(port_desc, &cx, 1); switch (cur_esc) { case 0: if (c == '\r') cur_esc = c; break; case '\r': if (c == '~') cur_esc = c; else cur_esc = 0; break; case '~': if (c == '.' || c == '\004') return; else cur_esc = 0; } } } if (mask & 1) { /* Port input */ char cx; while (1) { c = SERIAL_READCHAR(port_desc, 0); if (c == SERIAL_TIMEOUT) break; if (c < 0) perror_with_name("connect"); cx = c; SERIAL_WRITE(tty_desc, &cx, 1); } } } } #endif /* 0 */ void _initialize_serial () { #if 0 add_com ("connect", class_obscure, connect_command, "Connect the terminal directly up to the command monitor.\n\ Use ~. or ~^D to break out."); #endif /* 0 */ } gdb-4.13/gdb/serial.h 666 34562 1752 13160 5522531724 12747 0ustar fnfcygnus/* Remote serial support interface definitions for GDB, the GNU Debugger. Copyright 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef SERIAL_H #define SERIAL_H /* Terminal state pointer. This is specific to each type of interface. */ typedef PTR serial_ttystate; struct _serial_t { int fd; /* File descriptor */ struct serial_ops *ops; /* Function vector */ serial_ttystate ttystate; /* Not used (yet) */ int bufcnt; /* Amount of data in receive buffer */ unsigned char *bufp; /* Current byte */ unsigned char buf[BUFSIZ]; /* Da buffer itself */ int current_timeout; /* (termio{s} only), last value of VTIME */ /* ser-unix.c termio{,s} only, we still need to wait for this many more seconds. */ int timeout_remaining; }; typedef struct _serial_t *serial_t; struct serial_ops { char *name; struct serial_ops *next; int (*open) PARAMS ((serial_t, const char *name)); void (*close) PARAMS ((serial_t)); int (*readchar) PARAMS ((serial_t, int timeout)); int (*write) PARAMS ((serial_t, const char *str, int len)); int (*flush_output) PARAMS ((serial_t)); int (*flush_input) PARAMS ((serial_t)); int (*send_break) PARAMS ((serial_t)); void (*go_raw) PARAMS ((serial_t)); serial_ttystate (*get_tty_state) PARAMS ((serial_t)); int (*set_tty_state) PARAMS ((serial_t, serial_ttystate)); void (*print_tty_state) PARAMS ((serial_t, serial_ttystate)); int (*noflush_set_tty_state) PARAMS ((serial_t, serial_ttystate, serial_ttystate)); int (*setbaudrate) PARAMS ((serial_t, int rate)); }; /* Add a new serial interface to the interface list */ void serial_add_interface PARAMS ((struct serial_ops *optable)); serial_t serial_open PARAMS ((const char *name)); serial_t serial_fdopen PARAMS ((const int fd)); /* For most routines, if a failure is indicated, then errno should be examined. */ /* Try to open NAME. Returns a new serial_t on success, NULL on failure. */ #define SERIAL_OPEN(NAME) serial_open(NAME) /* Open a new serial stream using a file handle. */ #define SERIAL_FDOPEN(FD) serial_fdopen(FD) /* Flush pending output. Might also flush input (if this system can't flush only output). */ #define SERIAL_FLUSH_OUTPUT(SERIAL_T) \ ((SERIAL_T)->ops->flush_output((SERIAL_T))) /* Flush pending input. Might also flush output (if this system can't flush only input). */ #define SERIAL_FLUSH_INPUT(SERIAL_T)\ ((*(SERIAL_T)->ops->flush_input) ((SERIAL_T))) /* Send a break between 0.25 and 0.5 seconds long. */ #define SERIAL_SEND_BREAK(SERIAL_T) \ ((*(SERIAL_T)->ops->send_break) (SERIAL_T)) /* Turn the port into raw mode. */ #define SERIAL_RAW(SERIAL_T) (SERIAL_T)->ops->go_raw((SERIAL_T)) /* Return a pointer to a newly malloc'd ttystate containing the state of the tty. */ #define SERIAL_GET_TTY_STATE(SERIAL_T) (SERIAL_T)->ops->get_tty_state((SERIAL_T)) /* Set the state of the tty to TTYSTATE. The change is immediate. When changing to or from raw mode, input might be discarded. Returns 0 for success, negative value for error (in which case errno contains the error). */ #define SERIAL_SET_TTY_STATE(SERIAL_T, TTYSTATE) (SERIAL_T)->ops->set_tty_state((SERIAL_T), (TTYSTATE)) /* printf_filtered a user-comprehensible description of ttystate. */ #define SERIAL_PRINT_TTY_STATE(SERIAL_T, TTYSTATE) \ ((*((SERIAL_T)->ops->print_tty_state)) ((SERIAL_T), (TTYSTATE))) /* Set the tty state to NEW_TTYSTATE, where OLD_TTYSTATE is the current state (generally obtained from a recent call to SERIAL_GET_TTY_STATE), but be careful not to discard any input. This means that we never switch in or out of raw mode, even if NEW_TTYSTATE specifies a switch. */ #define SERIAL_NOFLUSH_SET_TTY_STATE(SERIAL_T, NEW_TTYSTATE, OLD_TTYSTATE) \ ((*((SERIAL_T)->ops->noflush_set_tty_state)) \ ((SERIAL_T), (NEW_TTYSTATE), (OLD_TTYSTATE))) /* Read one char from the serial device with TIMEOUT seconds to wait or -1 to wait forever. Use timeout of 0 to effect a poll. Returns char if ok, else one of the following codes. Note that all error codes are guaranteed to be < 0. */ #define SERIAL_ERROR -1 /* General error, see errno for details */ #define SERIAL_TIMEOUT -2 #define SERIAL_EOF -3 #define SERIAL_READCHAR(SERIAL_T, TIMEOUT) ((SERIAL_T)->ops->readchar((SERIAL_T), TIMEOUT)) /* Set the baudrate to the decimal value supplied. Returns 0 for success, -1 for failure. */ #define SERIAL_SETBAUDRATE(SERIAL_T, RATE) ((SERIAL_T)->ops->setbaudrate((SERIAL_T), RATE)) /* Write LEN chars from STRING to the port SERIAL_T. Returns 0 for success, non-zero for failure. */ #define SERIAL_WRITE(SERIAL_T, STRING, LEN) ((SERIAL_T)->ops->write((SERIAL_T), STRING, LEN)) /* Push out all buffers, close the device and destroy SERIAL_T. */ void serial_close PARAMS ((serial_t)); #define SERIAL_CLOSE(SERIAL_T) serial_close(SERIAL_T) /* Destroy SERIAL_T without doing the rest of the stuff that SERIAL_CLOSE does. */ #define SERIAL_UN_FDOPEN(SERIAL_T) (free (SERIAL_T)) #endif /* SERIAL_H */ gdb-4.13/gdb/sh-tdep.c 666 34562 1752 15247 5524563244 13043 0ustar fnfcygnus/* Target-machine dependent code for Hitachi Super-H, for GDB. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Contributed by Steve Chamberlain sac@cygnus.com */ #include "defs.h" #include "frame.h" #include "obstack.h" #include "symtab.h" #include "gdbtypes.h" #include "gdbcmd.h" #include "value.h" #include "dis-asm.h" #include "../opcodes/sh-opc.h" /* Prologue looks like [mov.l ,@-r15]... [sts.l pr,@-r15] [mov.l r14,@-r15] [mov r15,r14] */ #define IS_STS(x) ((x) == 0x4f22) #define IS_PUSH(x) (((x) & 0xff0f) == 0x2f06) #define GET_PUSHED_REG(x) (((x) >> 4) & 0xf) #define IS_MOV_SP_FP(x) ((x) == 0x6ef3) #define IS_ADD_SP(x) (((x) & 0xff00) == 0x7f00) /* Skip any prologue before the guts of a function */ CORE_ADDR sh_skip_prologue (start_pc) CORE_ADDR start_pc; { int w; w = read_memory_integer (start_pc, 2); while (IS_STS (w) || IS_PUSH (w) || IS_MOV_SP_FP (w)) { start_pc += 2; w = read_memory_integer (start_pc, 2); } return start_pc; } /* Disassemble an instruction */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO (info, stream); return print_insn_sh (memaddr, &info); } /* Given a GDB frame, determine the address of the calling function's frame. This will be used to create a new GDB frame struct, and then INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame. For us, the frame address is its stack pointer value, so we look up the function prologue to determine the caller's sp value, and return it. */ FRAME_ADDR sh_frame_chain (thisframe) FRAME thisframe; { if (!inside_entry_file (thisframe->pc)) return (read_memory_integer (FRAME_FP (thisframe), 4)); else return 0; } /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ void frame_find_saved_regs (fi, fsr) struct frame_info *fi; struct frame_saved_regs *fsr; { int where[NUM_REGS]; int rn; int have_fp = 0; int depth; int pc; int opc; int insn; opc = pc = get_pc_function_start (fi->pc); insn = read_memory_integer (pc, 2); for (rn = 0; rn < NUM_REGS; rn++) where[rn] = -1; depth = 0; /* Loop around examining the prologue insns, but give up after 15 of them, since we're getting silly then */ while (pc < opc + 15 * 2) { /* See where the registers will be saved to */ if (IS_PUSH (insn)) { pc += 2; rn = GET_PUSHED_REG (insn); where[rn] = depth; insn = read_memory_integer (pc, 2); depth += 4; } else if (IS_STS (insn)) { pc += 2; where[PR_REGNUM] = depth; insn = read_memory_integer (pc, 2); depth += 4; } else if (IS_ADD_SP (insn)) { pc += 2; depth += -((char) (insn & 0xff)); insn = read_memory_integer (pc, 2); } else break; } /* Now we know how deep things are, we can work out their addresses */ for (rn = 0; rn < NUM_REGS; rn++) { if (where[rn] >= 0) { if (rn == FP_REGNUM) have_fp = 1; fsr->regs[rn] = fi->frame - where[rn] + depth - 4; } else { fsr->regs[rn] = 0; } } if (have_fp) { fsr->regs[SP_REGNUM] = read_memory_integer (fsr->regs[FP_REGNUM], 4); } else { fsr->regs[SP_REGNUM] = fi->frame - 4; } /* Work out the return pc - either from the saved pr or the pr value */ if (fsr->regs[PR_REGNUM]) { fi->return_pc = read_memory_integer (fsr->regs[PR_REGNUM], 4) + 4; } else { fi->return_pc = read_register (PR_REGNUM) + 4; } } /* initialize the extra info saved in a FRAME */ void init_extra_frame_info (fromleaf, fi) int fromleaf; struct frame_info *fi; { struct frame_saved_regs dummy; frame_find_saved_regs (fi, &dummy); } /* Discard from the stack the innermost frame, restoring all saved registers. */ void pop_frame () { register FRAME frame = get_current_frame (); register CORE_ADDR fp; register int regnum; struct frame_saved_regs fsr; struct frame_info *fi; fi = get_frame_info (frame); fp = fi->frame; get_frame_saved_regs (fi, &fsr); /* Copy regs from where they were saved in the frame */ for (regnum = 0; regnum < NUM_REGS; regnum++) { if (fsr.regs[regnum]) { write_register (regnum, read_memory_integer (fsr.regs[regnum], 4)); } } write_register (PC_REGNUM, fi->return_pc); write_register (SP_REGNUM, fp + 4); flush_cached_frames (); set_current_frame (create_new_frame (read_register (FP_REGNUM), read_pc ())); } /* Print the registers in a form similar to the E7000 */ static void show_regs (args, from_tty) char *args; int from_tty; { printf_filtered("PC=%08x SR=%08x PR=%08x MACH=%08x MACHL=%08x\n", read_register(PC_REGNUM), read_register(SR_REGNUM), read_register(PR_REGNUM), read_register(MACH_REGNUM), read_register(MACL_REGNUM)); printf_filtered("R0-R7 %08x %08x %08x %08x %08x %08x %08x %08x\n", read_register(0), read_register(1), read_register(2), read_register(3), read_register(4), read_register(5), read_register(6), read_register(7)); printf_filtered("R8-R15 %08x %08x %08x %08x %08x %08x %08x %08x\n", read_register(8), read_register(9), read_register(10), read_register(11), read_register(12), read_register(13), read_register(14), read_register(15)); } void _initialize_sh_tdep () { extern int sim_memory_size; /* FIXME, there should be a way to make a CORE_ADDR variable settable. */ add_show_from_set (add_set_cmd ("memory_size", class_support, var_uinteger, (char *) &sim_memory_size, "Set simulated memory size of simulator target.", &setlist), &showlist); add_com("regs", class_vars, show_regs, "Print all registers"); } gdb-4.13/gdb/signals.h 666 34562 1752 2205 5414410627 13104 0ustar fnfcygnus/* Signal handler definitions for GDB, the GNU Debugger. Copyright (C) 1986, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is almost the same as including except that it eliminates certain signal names when job control is not supported, (or, on some systems, when job control is there but doesn't work the way GDB expects it to work). */ /* This has been superceded by the job_control variable in serial.h. */ #include gdb-4.13/gdb/solib.c 666 34562 1752 124327 5612572242 12623 0ustar fnfcygnus/* Handle SunOS and SVR4 shared libraries for GDB, the GNU Debugger. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include #include #include #include #include #ifndef SVR4_SHARED_LIBS /* SunOS shared libs need the nlist structure. */ #include #else #include "libelf.h" #ifndef DT_MIPS_RLD_MAP #include "elf/mips.h" #endif #endif #include "symtab.h" #include "bfd.h" #include "symfile.h" #include "objfiles.h" #include "gdbcore.h" #include "command.h" #include "target.h" #include "frame.h" #include "regex.h" #include "inferior.h" #include "language.h" #define MAX_PATH_SIZE 256 /* FIXME: Should be dynamic */ /* On SVR4 systems, for the initial implementation, use some runtime startup symbol as the "startup mapping complete" breakpoint address. The models for SunOS and SVR4 dynamic linking debugger support are different in that SunOS hits one breakpoint when all mapping is complete while using the SVR4 debugger support takes two breakpoint hits for each file mapped, and there is no way to know when the "last" one is hit. Both these mechanisms should be tied to a "breakpoint service routine" that gets automatically executed whenever one of the breakpoints indicating a change in mapping is hit. This is a future enhancement. (FIXME) */ #define BKPT_AT_SYMBOL 1 #if defined (BKPT_AT_SYMBOL) && defined (SVR4_SHARED_LIBS) static char *bkpt_names[] = { #ifdef SOLIB_BKPT_NAME SOLIB_BKPT_NAME, /* Prefer configured name if it exists. */ #endif "_start", "main", NULL }; #endif /* Symbols which are used to locate the base of the link map structures. */ #ifndef SVR4_SHARED_LIBS static char *debug_base_symbols[] = { "_DYNAMIC", NULL }; #endif /* local data declarations */ #ifndef SVR4_SHARED_LIBS #define LM_ADDR(so) ((so) -> lm.lm_addr) #define LM_NEXT(so) ((so) -> lm.lm_next) #define LM_NAME(so) ((so) -> lm.lm_name) /* Test for first link map entry; first entry is a shared library. */ #define IGNORE_FIRST_LINK_MAP_ENTRY(x) (0) static struct link_dynamic dynamic_copy; static struct link_dynamic_2 ld_2_copy; static struct ld_debug debug_copy; static CORE_ADDR debug_addr; static CORE_ADDR flag_addr; #else /* SVR4_SHARED_LIBS */ #define LM_ADDR(so) ((so) -> lm.l_addr) #define LM_NEXT(so) ((so) -> lm.l_next) #define LM_NAME(so) ((so) -> lm.l_name) /* Test for first link map entry; first entry is the exec-file. */ #define IGNORE_FIRST_LINK_MAP_ENTRY(x) ((x).l_prev == NULL) static struct r_debug debug_copy; char shadow_contents[BREAKPOINT_MAX]; /* Stash old bkpt addr contents */ #endif /* !SVR4_SHARED_LIBS */ struct so_list { struct so_list *next; /* next structure in linked list */ struct link_map lm; /* copy of link map from inferior */ struct link_map *lmaddr; /* addr in inferior lm was read from */ CORE_ADDR lmend; /* upper addr bound of mapped object */ char so_name[MAX_PATH_SIZE]; /* shared object lib name (FIXME) */ char symbols_loaded; /* flag: symbols read in yet? */ char from_tty; /* flag: print msgs? */ struct objfile *objfile; /* objfile for loaded lib */ struct section_table *sections; struct section_table *sections_end; struct section_table *textsection; bfd *abfd; }; static struct so_list *so_list_head; /* List of known shared objects */ static CORE_ADDR debug_base; /* Base of dynamic linker structures */ static CORE_ADDR breakpoint_addr; /* Address where end bkpt is set */ extern int fdmatch PARAMS ((int, int)); /* In libiberty */ /* Local function prototypes */ static void special_symbol_handling PARAMS ((struct so_list *)); static void sharedlibrary_command PARAMS ((char *, int)); static int enable_break PARAMS ((void)); static int disable_break PARAMS ((void)); static void info_sharedlibrary_command PARAMS ((char *, int)); static int symbol_add_stub PARAMS ((char *)); static struct so_list * find_solib PARAMS ((struct so_list *)); static struct link_map * first_link_map_member PARAMS ((void)); static CORE_ADDR locate_base PARAMS ((void)); static void solib_map_sections PARAMS ((struct so_list *)); #ifdef SVR4_SHARED_LIBS static CORE_ADDR elf_locate_base PARAMS ((void)); #else static void solib_add_common_symbols PARAMS ((struct rtc_symb *, struct objfile *)); #endif /* LOCAL FUNCTION solib_map_sections -- open bfd and build sections for shared lib SYNOPSIS static void solib_map_sections (struct so_list *so) DESCRIPTION Given a pointer to one of the shared objects in our list of mapped objects, use the recorded name to open a bfd descriptor for the object, build a section table, and then relocate all the section addresses by the base address at which the shared object was mapped. FIXMES In most (all?) cases the shared object file name recorded in the dynamic linkage tables will be a fully qualified pathname. For cases where it isn't, do we really mimic the systems search mechanism correctly in the below code (particularly the tilde expansion stuff?). */ static void solib_map_sections (so) struct so_list *so; { char *filename; char *scratch_pathname; int scratch_chan; struct section_table *p; struct cleanup *old_chain; bfd *abfd; filename = tilde_expand (so -> so_name); old_chain = make_cleanup (free, filename); scratch_chan = openp (getenv ("PATH"), 1, filename, O_RDONLY, 0, &scratch_pathname); if (scratch_chan < 0) { scratch_chan = openp (getenv ("LD_LIBRARY_PATH"), 1, filename, O_RDONLY, 0, &scratch_pathname); } if (scratch_chan < 0) { perror_with_name (filename); } /* Leave scratch_pathname allocated. abfd->name will point to it. */ abfd = bfd_fdopenr (scratch_pathname, gnutarget, scratch_chan); if (!abfd) { close (scratch_chan); error ("Could not open `%s' as an executable file: %s", scratch_pathname, bfd_errmsg (bfd_get_error ())); } /* Leave bfd open, core_xfer_memory and "info files" need it. */ so -> abfd = abfd; abfd -> cacheable = true; if (!bfd_check_format (abfd, bfd_object)) { error ("\"%s\": not in executable format: %s.", scratch_pathname, bfd_errmsg (bfd_get_error ())); } if (build_section_table (abfd, &so -> sections, &so -> sections_end)) { error ("Can't find the file sections in `%s': %s", bfd_get_filename (abfd), bfd_errmsg (bfd_get_error ())); } for (p = so -> sections; p < so -> sections_end; p++) { /* Relocate the section binding addresses as recorded in the shared object's file by the base address to which the object was actually mapped. */ p -> addr += (CORE_ADDR) LM_ADDR (so); p -> endaddr += (CORE_ADDR) LM_ADDR (so); so -> lmend = (CORE_ADDR) max (p -> endaddr, so -> lmend); if (STREQ (p -> the_bfd_section -> name, ".text")) { so -> textsection = p; } } /* Free the file names, close the file now. */ do_cleanups (old_chain); } /* Read all dynamically loaded common symbol definitions from the inferior and add them to the minimal symbol table for the shared library objfile. */ #ifndef SVR4_SHARED_LIBS /* In GDB 4.9 this routine was a real performance hog. According to some gprof data which mtranle@paris.IntelliCorp.COM (Minh Tran-Le) sent, almost all the time spend in solib_add (up to 20 minutes with 35 shared libraries) was spent here, with 5/6 in lookup_minimal_symbol and 1/6 in read_memory. To fix this, we moved the call to special_symbol_handling out of the loop in solib_add, so this only gets called once, rather than once for every shared library, and also removed the call to lookup_minimal_symbol in this routine. */ static void solib_add_common_symbols (rtc_symp, objfile) struct rtc_symb *rtc_symp; struct objfile *objfile; { struct rtc_symb inferior_rtc_symb; struct nlist inferior_rtc_nlist; int len; char *name; char *origname; init_minimal_symbol_collection (); make_cleanup (discard_minimal_symbols, 0); while (rtc_symp) { read_memory ((CORE_ADDR) rtc_symp, (char *) &inferior_rtc_symb, sizeof (inferior_rtc_symb)); read_memory ((CORE_ADDR) inferior_rtc_symb.rtc_sp, (char *) &inferior_rtc_nlist, sizeof(inferior_rtc_nlist)); if (inferior_rtc_nlist.n_type == N_COMM) { /* FIXME: The length of the symbol name is not available, but in the current implementation the common symbol is allocated immediately behind the name of the symbol. */ len = inferior_rtc_nlist.n_value - inferior_rtc_nlist.n_un.n_strx; origname = name = xmalloc (len); read_memory ((CORE_ADDR) inferior_rtc_nlist.n_un.n_name, name, len); /* Don't enter the symbol twice if the target is re-run. */ if (name[0] == bfd_get_symbol_leading_char (objfile->obfd)) { name++; } #if 0 /* I think this is unnecessary, GDB can probably deal with duplicate minimal symbols, more or less. And the duplication which used to happen because this was called for each shared library is gone now that we are just called once. */ /* FIXME: Do we really want to exclude symbols which happen to match symbols for other locations in the inferior's address space, even when they are in different linkage units? */ if (lookup_minimal_symbol (name, (struct objfile *) NULL) == NULL) #endif { name = obsavestring (name, strlen (name), &objfile -> symbol_obstack); prim_record_minimal_symbol (name, inferior_rtc_nlist.n_value, mst_bss, objfile); } free (origname); } rtc_symp = inferior_rtc_symb.rtc_next; } /* Install any minimal symbols that have been collected as the current minimal symbols for this objfile. */ install_minimal_symbols (objfile); } #endif /* SVR4_SHARED_LIBS */ #ifdef SVR4_SHARED_LIBS #ifdef HANDLE_SVR4_EXEC_EMULATORS /* Solaris BCP (the part of Solaris which allows it to run SunOS4 a.out files) throws in another wrinkle. Solaris does not fill in the usual a.out link map structures when running BCP programs, the only way to get at them is via groping around in the dynamic linker. The dynamic linker and it's structures are located in the shared C library, which gets run as the executable's "interpreter" by the kernel. Note that we can assume nothing about the process state at the time we need to find these structures. We may be stopped on the first instruction of the interpreter (C shared library), the first instruction of the executable itself, or somewhere else entirely (if we attached to the process for example). */ static char *debug_base_symbols[] = { "r_debug", /* Solaris 2.3 */ "_r_debug", /* Solaris 2.1, 2.2 */ NULL }; static int look_for_base PARAMS ((int, CORE_ADDR)); static CORE_ADDR bfd_lookup_symbol PARAMS ((bfd *, char *)); /* LOCAL FUNCTION bfd_lookup_symbol -- lookup the value for a specific symbol SYNOPSIS CORE_ADDR bfd_lookup_symbol (bfd *abfd, char *symname) DESCRIPTION An expensive way to lookup the value of a single symbol for bfd's that are only temporary anyway. This is used by the shared library support to find the address of the debugger interface structures in the shared library. Note that 0 is specifically allowed as an error return (no such symbol). */ static CORE_ADDR bfd_lookup_symbol (abfd, symname) bfd *abfd; char *symname; { unsigned int storage_needed; asymbol *sym; asymbol **symbol_table; unsigned int number_of_symbols; unsigned int i; struct cleanup *back_to; CORE_ADDR symaddr = 0; storage_needed = bfd_get_symtab_upper_bound (abfd); if (storage_needed > 0) { symbol_table = (asymbol **) xmalloc (storage_needed); back_to = make_cleanup (free, (PTR)symbol_table); number_of_symbols = bfd_canonicalize_symtab (abfd, symbol_table); for (i = 0; i < number_of_symbols; i++) { sym = *symbol_table++; if (STREQ (sym -> name, symname)) { /* Bfd symbols are section relative. */ symaddr = sym -> value + sym -> section -> vma; break; } } do_cleanups (back_to); } return (symaddr); } /* LOCAL FUNCTION look_for_base -- examine file for each mapped address segment SYNOPSYS static int look_for_base (int fd, CORE_ADDR baseaddr) DESCRIPTION This function is passed to proc_iterate_over_mappings, which causes it to get called once for each mapped address space, with an open file descriptor for the file mapped to that space, and the base address of that mapped space. Our job is to find the debug base symbol in the file that this fd is open on, if it exists, and if so, initialize the dynamic linker structure base address debug_base. Note that this is a computationally expensive proposition, since we basically have to open a bfd on every call, so we specifically avoid opening the exec file. */ static int look_for_base (fd, baseaddr) int fd; CORE_ADDR baseaddr; { bfd *interp_bfd; CORE_ADDR address = 0; char **symbolp; /* If the fd is -1, then there is no file that corresponds to this mapped memory segment, so skip it. Also, if the fd corresponds to the exec file, skip it as well. */ if (fd == -1 || (exec_bfd != NULL && fdmatch (fileno ((GDB_FILE *)(exec_bfd -> iostream)), fd))) { return (0); } /* Try to open whatever random file this fd corresponds to. Note that we have no way currently to find the filename. Don't gripe about any problems we might have, just fail. */ if ((interp_bfd = bfd_fdopenr ("unnamed", gnutarget, fd)) == NULL) { return (0); } if (!bfd_check_format (interp_bfd, bfd_object)) { bfd_close (interp_bfd); return (0); } /* Now try to find our debug base symbol in this file, which we at least know to be a valid ELF executable or shared library. */ for (symbolp = debug_base_symbols; *symbolp != NULL; symbolp++) { address = bfd_lookup_symbol (interp_bfd, *symbolp); if (address != 0) { break; } } if (address == 0) { bfd_close (interp_bfd); return (0); } /* Eureka! We found the symbol. But now we may need to relocate it by the base address. If the symbol's value is less than the base address of the shared library, then it hasn't yet been relocated by the dynamic linker, and we have to do it ourself. FIXME: Note that we make the assumption that the first segment that corresponds to the shared library has the base address to which the library was relocated. */ if (address < baseaddr) { address += baseaddr; } debug_base = address; bfd_close (interp_bfd); return (1); } #endif /* HANDLE_SVR4_EXEC_EMULATORS */ /* LOCAL FUNCTION elf_locate_base -- locate the base address of dynamic linker structs for SVR4 elf targets. SYNOPSIS CORE_ADDR elf_locate_base (void) DESCRIPTION For SVR4 elf targets the address of the dynamic linker's runtime structure is contained within the dynamic info section in the executable file. The dynamic section is also mapped into the inferior address space. Because the runtime loader fills in the real address before starting the inferior, we have to read in the dynamic info section from the inferior address space. If there are any errors while trying to find the address, we silently return 0, otherwise the found address is returned. */ static CORE_ADDR elf_locate_base () { struct elf_internal_shdr *dyninfo_sect; int dyninfo_sect_size; CORE_ADDR dyninfo_addr; char *buf; char *bufend; /* Find the start address of the .dynamic section. */ dyninfo_sect = bfd_elf_find_section (exec_bfd, ".dynamic"); if (dyninfo_sect == NULL) return 0; dyninfo_addr = dyninfo_sect->sh_addr; /* Read in .dynamic section, silently ignore errors. */ dyninfo_sect_size = dyninfo_sect->sh_size; buf = alloca (dyninfo_sect_size); if (target_read_memory (dyninfo_addr, buf, dyninfo_sect_size)) return 0; /* Find the DT_DEBUG entry in the the .dynamic section. For mips elf we look for DT_MIPS_RLD_MAP, mips elf apparently has no DT_DEBUG entries. */ /* FIXME: In lack of a 64 bit ELF ABI the following code assumes a 32 bit ELF ABI target. */ for (bufend = buf + dyninfo_sect_size; buf < bufend; buf += sizeof (Elf32_External_Dyn)) { Elf32_External_Dyn *x_dynp = (Elf32_External_Dyn *)buf; long dyn_tag; CORE_ADDR dyn_ptr; dyn_tag = bfd_h_get_32 (exec_bfd, (bfd_byte *) x_dynp->d_tag); if (dyn_tag == DT_NULL) break; else if (dyn_tag == DT_DEBUG) { dyn_ptr = bfd_h_get_32 (exec_bfd, (bfd_byte *) x_dynp->d_un.d_ptr); return dyn_ptr; } else if (dyn_tag == DT_MIPS_RLD_MAP) { char pbuf[TARGET_PTR_BIT / HOST_CHAR_BIT]; /* DT_MIPS_RLD_MAP contains a pointer to the address of the dynamic link structure. */ dyn_ptr = bfd_h_get_32 (exec_bfd, (bfd_byte *) x_dynp->d_un.d_ptr); if (target_read_memory (dyn_ptr, pbuf, sizeof (pbuf))) return 0; return extract_unsigned_integer (pbuf, sizeof (pbuf)); } } /* DT_DEBUG entry not found. */ return 0; } #endif /* SVR4_SHARED_LIBS */ /* LOCAL FUNCTION locate_base -- locate the base address of dynamic linker structs SYNOPSIS CORE_ADDR locate_base (void) DESCRIPTION For both the SunOS and SVR4 shared library implementations, if the inferior executable has been linked dynamically, there is a single address somewhere in the inferior's data space which is the key to locating all of the dynamic linker's runtime structures. This address is the value of the debug base symbol. The job of this function is to find and return that address, or to return 0 if there is no such address (the executable is statically linked for example). For SunOS, the job is almost trivial, since the dynamic linker and all of it's structures are statically linked to the executable at link time. Thus the symbol for the address we are looking for has already been added to the minimal symbol table for the executable's objfile at the time the symbol file's symbols were read, and all we have to do is look it up there. Note that we explicitly do NOT want to find the copies in the shared library. The SVR4 version is a bit more complicated because the address is contained somewhere in the dynamic info section. We have to go to a lot more work to discover the address of the debug base symbol. Because of this complexity, we cache the value we find and return that value on subsequent invocations. Note there is no copy in the executable symbol tables. */ static CORE_ADDR locate_base () { #ifndef SVR4_SHARED_LIBS struct minimal_symbol *msymbol; CORE_ADDR address = 0; char **symbolp; /* For SunOS, we want to limit the search for the debug base symbol to the executable being debugged, since there is a duplicate named symbol in the shared library. We don't want the shared library versions. */ for (symbolp = debug_base_symbols; *symbolp != NULL; symbolp++) { msymbol = lookup_minimal_symbol (*symbolp, symfile_objfile); if ((msymbol != NULL) && (SYMBOL_VALUE_ADDRESS (msymbol) != 0)) { address = SYMBOL_VALUE_ADDRESS (msymbol); return (address); } } return (0); #else /* SVR4_SHARED_LIBS */ /* Check to see if we have a currently valid address, and if so, avoid doing all this work again and just return the cached address. If we have no cached address, try to locate it in the dynamic info section for ELF executables. */ if (debug_base == 0) { if (exec_bfd != NULL && bfd_get_flavour (exec_bfd) == bfd_target_elf_flavour) debug_base = elf_locate_base (); #ifdef HANDLE_SVR4_EXEC_EMULATORS /* Try it the hard way for emulated executables. */ else if (inferior_pid != 0) proc_iterate_over_mappings (look_for_base); #endif } return (debug_base); #endif /* !SVR4_SHARED_LIBS */ } /* LOCAL FUNCTION first_link_map_member -- locate first member in dynamic linker's map SYNOPSIS static struct link_map *first_link_map_member (void) DESCRIPTION Read in a copy of the first member in the inferior's dynamic link map from the inferior's dynamic linker structures, and return a pointer to the copy in our address space. */ static struct link_map * first_link_map_member () { struct link_map *lm = NULL; #ifndef SVR4_SHARED_LIBS read_memory (debug_base, (char *) &dynamic_copy, sizeof (dynamic_copy)); if (dynamic_copy.ld_version >= 2) { /* It is a version that we can deal with, so read in the secondary structure and find the address of the link map list from it. */ read_memory ((CORE_ADDR) dynamic_copy.ld_un.ld_2, (char *) &ld_2_copy, sizeof (struct link_dynamic_2)); lm = ld_2_copy.ld_loaded; } #else /* SVR4_SHARED_LIBS */ read_memory (debug_base, (char *) &debug_copy, sizeof (struct r_debug)); /* FIXME: Perhaps we should validate the info somehow, perhaps by checking r_version for a known version number, or r_state for RT_CONSISTENT. */ lm = debug_copy.r_map; #endif /* !SVR4_SHARED_LIBS */ return (lm); } /* LOCAL FUNCTION find_solib -- step through list of shared objects SYNOPSIS struct so_list *find_solib (struct so_list *so_list_ptr) DESCRIPTION This module contains the routine which finds the names of any loaded "images" in the current process. The argument in must be NULL on the first call, and then the returned value must be passed in on subsequent calls. This provides the capability to "step" down the list of loaded objects. On the last object, a NULL value is returned. The arg and return value are "struct link_map" pointers, as defined in . */ static struct so_list * find_solib (so_list_ptr) struct so_list *so_list_ptr; /* Last lm or NULL for first one */ { struct so_list *so_list_next = NULL; struct link_map *lm = NULL; struct so_list *new; if (so_list_ptr == NULL) { /* We are setting up for a new scan through the loaded images. */ if ((so_list_next = so_list_head) == NULL) { /* We have not already read in the dynamic linking structures from the inferior, lookup the address of the base structure. */ debug_base = locate_base (); if (debug_base != 0) { /* Read the base structure in and find the address of the first link map list member. */ lm = first_link_map_member (); } } } else { /* We have been called before, and are in the process of walking the shared library list. Advance to the next shared object. */ if ((lm = LM_NEXT (so_list_ptr)) == NULL) { /* We have hit the end of the list, so check to see if any were added, but be quiet if we can't read from the target any more. */ int status = target_read_memory ((CORE_ADDR) so_list_ptr -> lmaddr, (char *) &(so_list_ptr -> lm), sizeof (struct link_map)); if (status == 0) { lm = LM_NEXT (so_list_ptr); } else { lm = NULL; } } so_list_next = so_list_ptr -> next; } if ((so_list_next == NULL) && (lm != NULL)) { /* Get next link map structure from inferior image and build a local abbreviated load_map structure */ new = (struct so_list *) xmalloc (sizeof (struct so_list)); memset ((char *) new, 0, sizeof (struct so_list)); new -> lmaddr = lm; /* Add the new node as the next node in the list, or as the root node if this is the first one. */ if (so_list_ptr != NULL) { so_list_ptr -> next = new; } else { so_list_head = new; } so_list_next = new; read_memory ((CORE_ADDR) lm, (char *) &(new -> lm), sizeof (struct link_map)); /* For SVR4 versions, the first entry in the link map is for the inferior executable, so we must ignore it. For some versions of SVR4, it has no name. For others (Solaris 2.3 for example), it does have a name, so we can no longer use a missing name to decide when to ignore it. */ if (!IGNORE_FIRST_LINK_MAP_ENTRY (new -> lm)) { int errcode; char *buffer; target_read_string ((CORE_ADDR) LM_NAME (new), &buffer, MAX_PATH_SIZE - 1, &errcode); if (errcode != 0) error ("find_solib: Can't read pathname for load map: %s\n", safe_strerror (errcode)); strncpy (new -> so_name, buffer, MAX_PATH_SIZE - 1); new -> so_name[MAX_PATH_SIZE - 1] = '\0'; free (buffer); solib_map_sections (new); } } return (so_list_next); } /* A small stub to get us past the arg-passing pinhole of catch_errors. */ static int symbol_add_stub (arg) char *arg; { register struct so_list *so = (struct so_list *) arg; /* catch_errs bogon */ so -> objfile = symbol_file_add (so -> so_name, so -> from_tty, (so->textsection == NULL ? 0 : (unsigned int) so -> textsection -> addr), 0, 0, 0); return (1); } /* GLOBAL FUNCTION solib_add -- add a shared library file to the symtab and section list SYNOPSIS void solib_add (char *arg_string, int from_tty, struct target_ops *target) DESCRIPTION */ void solib_add (arg_string, from_tty, target) char *arg_string; int from_tty; struct target_ops *target; { register struct so_list *so = NULL; /* link map state variable */ /* Last shared library that we read. */ struct so_list *so_last = NULL; char *re_err; int count; int old; if ((re_err = re_comp (arg_string ? arg_string : ".")) != NULL) { error ("Invalid regexp: %s", re_err); } /* Add the shared library sections to the section table of the specified target, if any. We have to do this before reading the symbol files as symbol_file_add calls reinit_frame_cache and creating a new frame might access memory in the shared library. */ if (target) { /* Count how many new section_table entries there are. */ so = NULL; count = 0; while ((so = find_solib (so)) != NULL) { if (so -> so_name[0]) { count += so -> sections_end - so -> sections; } } if (count) { /* Reallocate the target's section table including the new size. */ if (target -> to_sections) { old = target -> to_sections_end - target -> to_sections; target -> to_sections = (struct section_table *) xrealloc ((char *)target -> to_sections, (sizeof (struct section_table)) * (count + old)); } else { old = 0; target -> to_sections = (struct section_table *) xmalloc ((sizeof (struct section_table)) * count); } target -> to_sections_end = target -> to_sections + (count + old); /* Add these section table entries to the target's table. */ while ((so = find_solib (so)) != NULL) { if (so -> so_name[0]) { count = so -> sections_end - so -> sections; memcpy ((char *) (target -> to_sections + old), so -> sections, (sizeof (struct section_table)) * count); old += count; } } } } /* Now add the symbol files. */ while ((so = find_solib (so)) != NULL) { if (so -> so_name[0] && re_exec (so -> so_name)) { so -> from_tty = from_tty; if (so -> symbols_loaded) { if (from_tty) { printf_unfiltered ("Symbols already loaded for %s\n", so -> so_name); } } else if (catch_errors (symbol_add_stub, (char *) so, "Error while reading shared library symbols:\n", RETURN_MASK_ALL)) { so_last = so; so -> symbols_loaded = 1; } } } /* Calling this once at the end means that we put all the minimal symbols for commons into the objfile for the last shared library. Since they are in common, this should not be a problem. If we delete the objfile with the minimal symbols, we can put all the symbols into a new objfile (and will on the next call to solib_add). An alternate approach would be to create an objfile just for common minsyms, thus not needing any objfile argument to solib_add_common_symbols. */ if (so_last) special_symbol_handling (so_last); } /* LOCAL FUNCTION info_sharedlibrary_command -- code for "info sharedlibrary" SYNOPSIS static void info_sharedlibrary_command () DESCRIPTION Walk through the shared library list and print information about each attached library. */ static void info_sharedlibrary_command (ignore, from_tty) char *ignore; int from_tty; { register struct so_list *so = NULL; /* link map state variable */ int header_done = 0; if (exec_bfd == NULL) { printf_unfiltered ("No exec file.\n"); return; } while ((so = find_solib (so)) != NULL) { if (so -> so_name[0]) { if (!header_done) { printf_unfiltered("%-12s%-12s%-12s%s\n", "From", "To", "Syms Read", "Shared Object Library"); header_done++; } /* FIXME-32x64: need print_address_numeric with field width or some such. */ printf_unfiltered ("%-12s", local_hex_string_custom ((unsigned long) LM_ADDR (so), "08l")); printf_unfiltered ("%-12s", local_hex_string_custom ((unsigned long) so -> lmend, "08l")); printf_unfiltered ("%-12s", so -> symbols_loaded ? "Yes" : "No"); printf_unfiltered ("%s\n", so -> so_name); } } if (so_list_head == NULL) { printf_unfiltered ("No shared libraries loaded at this time.\n"); } } /* GLOBAL FUNCTION solib_address -- check to see if an address is in a shared lib SYNOPSIS int solib_address (CORE_ADDR address) DESCRIPTION Provides a hook for other gdb routines to discover whether or not a particular address is within the mapped address space of a shared library. Any address between the base mapping address and the first address beyond the end of the last mapping, is considered to be within the shared library address space, for our purposes. For example, this routine is called at one point to disable breakpoints which are in shared libraries that are not currently mapped in. */ int solib_address (address) CORE_ADDR address; { register struct so_list *so = 0; /* link map state variable */ while ((so = find_solib (so)) != NULL) { if (so -> so_name[0]) { if ((address >= (CORE_ADDR) LM_ADDR (so)) && (address < (CORE_ADDR) so -> lmend)) { return (1); } } } return (0); } /* Called by free_all_symtabs */ void clear_solib() { struct so_list *next; char *bfd_filename; while (so_list_head) { if (so_list_head -> sections) { free ((PTR)so_list_head -> sections); } if (so_list_head -> abfd) { bfd_filename = bfd_get_filename (so_list_head -> abfd); bfd_close (so_list_head -> abfd); } else /* This happens for the executable on SVR4. */ bfd_filename = NULL; next = so_list_head -> next; if (bfd_filename) free ((PTR)bfd_filename); free ((PTR)so_list_head); so_list_head = next; } debug_base = 0; } /* LOCAL FUNCTION disable_break -- remove the "mapping changed" breakpoint SYNOPSIS static int disable_break () DESCRIPTION Removes the breakpoint that gets hit when the dynamic linker completes a mapping change. */ static int disable_break () { int status = 1; #ifndef SVR4_SHARED_LIBS int in_debugger = 0; /* Read the debugger structure from the inferior to retrieve the address of the breakpoint and the original contents of the breakpoint address. Remove the breakpoint by writing the original contents back. */ read_memory (debug_addr, (char *) &debug_copy, sizeof (debug_copy)); /* Set `in_debugger' to zero now. */ write_memory (flag_addr, (char *) &in_debugger, sizeof (in_debugger)); breakpoint_addr = (CORE_ADDR) debug_copy.ldd_bp_addr; write_memory (breakpoint_addr, (char *) &debug_copy.ldd_bp_inst, sizeof (debug_copy.ldd_bp_inst)); #else /* SVR4_SHARED_LIBS */ /* Note that breakpoint address and original contents are in our address space, so we just need to write the original contents back. */ if (memory_remove_breakpoint (breakpoint_addr, shadow_contents) != 0) { status = 0; } #endif /* !SVR4_SHARED_LIBS */ /* For the SVR4 version, we always know the breakpoint address. For the SunOS version we don't know it until the above code is executed. Grumble if we are stopped anywhere besides the breakpoint address. */ if (stop_pc != breakpoint_addr) { warning ("stopped at unknown breakpoint while handling shared libraries"); } return (status); } /* LOCAL FUNCTION enable_break -- arrange for dynamic linker to hit breakpoint SYNOPSIS int enable_break (void) DESCRIPTION Both the SunOS and the SVR4 dynamic linkers have, as part of their debugger interface, support for arranging for the inferior to hit a breakpoint after mapping in the shared libraries. This function enables that breakpoint. For SunOS, there is a special flag location (in_debugger) which we set to 1. When the dynamic linker sees this flag set, it will set a breakpoint at a location known only to itself, after saving the original contents of that place and the breakpoint address itself, in it's own internal structures. When we resume the inferior, it will eventually take a SIGTRAP when it runs into the breakpoint. We handle this (in a different place) by restoring the contents of the breakpointed location (which is only known after it stops), chasing around to locate the shared libraries that have been loaded, then resuming. For SVR4, the debugger interface structure contains a member (r_brk) which is statically initialized at the time the shared library is built, to the offset of a function (_r_debug_state) which is guaran- teed to be called once before mapping in a library, and again when the mapping is complete. At the time we are examining this member, it contains only the unrelocated offset of the function, so we have to do our own relocation. Later, when the dynamic linker actually runs, it relocates r_brk to be the actual address of _r_debug_state(). The debugger interface structure also contains an enumeration which is set to either RT_ADD or RT_DELETE prior to changing the mapping, depending upon whether or not the library is being mapped or unmapped, and then set to RT_CONSISTENT after the library is mapped/unmapped. */ static int enable_break () { int success = 0; #ifndef SVR4_SHARED_LIBS int j; int in_debugger; /* Get link_dynamic structure */ j = target_read_memory (debug_base, (char *) &dynamic_copy, sizeof (dynamic_copy)); if (j) { /* unreadable */ return (0); } /* Calc address of debugger interface structure */ debug_addr = (CORE_ADDR) dynamic_copy.ldd; /* Calc address of `in_debugger' member of debugger interface structure */ flag_addr = debug_addr + (CORE_ADDR) ((char *) &debug_copy.ldd_in_debugger - (char *) &debug_copy); /* Write a value of 1 to this member. */ in_debugger = 1; write_memory (flag_addr, (char *) &in_debugger, sizeof (in_debugger)); success = 1; #else /* SVR4_SHARED_LIBS */ #ifdef BKPT_AT_SYMBOL struct minimal_symbol *msymbol; char **bkpt_namep; CORE_ADDR bkpt_addr; /* Scan through the list of symbols, trying to look up the symbol and set a breakpoint there. Terminate loop when we/if we succeed. */ breakpoint_addr = 0; for (bkpt_namep = bkpt_names; *bkpt_namep != NULL; bkpt_namep++) { msymbol = lookup_minimal_symbol (*bkpt_namep, symfile_objfile); if ((msymbol != NULL) && (SYMBOL_VALUE_ADDRESS (msymbol) != 0)) { bkpt_addr = SYMBOL_VALUE_ADDRESS (msymbol); if (target_insert_breakpoint (bkpt_addr, shadow_contents) == 0) { breakpoint_addr = bkpt_addr; success = 1; break; } } } #else /* !BKPT_AT_SYMBOL */ struct symtab_and_line sal; /* Read the debugger interface structure directly. */ read_memory (debug_base, (char *) &debug_copy, sizeof (debug_copy)); /* Set breakpoint at the debugger interface stub routine that will be called just prior to each mapping change and again after the mapping change is complete. Set up the (nonexistent) handler to deal with hitting these breakpoints. (FIXME). */ warning ("'%s': line %d: missing SVR4 support code", __FILE__, __LINE__); success = 1; #endif /* BKPT_AT_SYMBOL */ #endif /* !SVR4_SHARED_LIBS */ return (success); } /* GLOBAL FUNCTION solib_create_inferior_hook -- shared library startup support SYNOPSIS void solib_create_inferior_hook() DESCRIPTION When gdb starts up the inferior, it nurses it along (through the shell) until it is ready to execute it's first instruction. At this point, this function gets called via expansion of the macro SOLIB_CREATE_INFERIOR_HOOK. For SunOS executables, this first instruction is typically the one at "_start", or a similar text label, regardless of whether the executable is statically or dynamically linked. The runtime startup code takes care of dynamically linking in any shared libraries, once gdb allows the inferior to continue. For SVR4 executables, this first instruction is either the first instruction in the dynamic linker (for dynamically linked executables) or the instruction at "start" for statically linked executables. For dynamically linked executables, the system first exec's /lib/libc.so.N, which contains the dynamic linker, and starts it running. The dynamic linker maps in any needed shared libraries, maps in the actual user executable, and then jumps to "start" in the user executable. For both SunOS shared libraries, and SVR4 shared libraries, we can arrange to cooperate with the dynamic linker to discover the names of shared libraries that are dynamically linked, and the base addresses to which they are linked. This function is responsible for discovering those names and addresses, and saving sufficient information about them to allow their symbols to be read at a later time. FIXME Between enable_break() and disable_break(), this code does not properly handle hitting breakpoints which the user might have set in the startup code or in the dynamic linker itself. Proper handling will probably have to wait until the implementation is changed to use the "breakpoint handler function" method. Also, what if child has exit()ed? Must exit loop somehow. */ void solib_create_inferior_hook() { /* If we are using the BKPT_AT_SYMBOL code, then we don't need the base yet. In fact, in the case of a SunOS4 executable being run on Solaris, we can't get it yet. find_solib will get it when it needs it. */ #if !(defined (SVR4_SHARED_LIBS) && defined (BKPT_AT_SYMBOL)) if ((debug_base = locate_base ()) == 0) { /* Can't find the symbol or the executable is statically linked. */ return; } #endif if (!enable_break ()) { warning ("shared library handler failed to enable breakpoint"); return; } /* Now run the target. It will eventually hit the breakpoint, at which point all of the libraries will have been mapped in and we can go groveling around in the dynamic linker structures to find out what we need to know about them. */ clear_proceed_status (); stop_soon_quietly = 1; stop_signal = TARGET_SIGNAL_0; do { target_resume (-1, 0, stop_signal); wait_for_inferior (); } while (stop_signal != TARGET_SIGNAL_TRAP); stop_soon_quietly = 0; /* We are now either at the "mapping complete" breakpoint (or somewhere else, a condition we aren't prepared to deal with anyway), so adjust the PC as necessary after a breakpoint, disable the breakpoint, and add any shared libraries that were mapped in. */ if (DECR_PC_AFTER_BREAK) { stop_pc -= DECR_PC_AFTER_BREAK; write_register (PC_REGNUM, stop_pc); } if (!disable_break ()) { warning ("shared library handler failed to disable breakpoint"); } solib_add ((char *) 0, 0, (struct target_ops *) 0); } /* LOCAL FUNCTION special_symbol_handling -- additional shared library symbol handling SYNOPSIS void special_symbol_handling (struct so_list *so) DESCRIPTION Once the symbols from a shared object have been loaded in the usual way, we are called to do any system specific symbol handling that is needed. For Suns, this consists of grunging around in the dynamic linkers structures to find symbol definitions for "common" symbols and adding them to the minimal symbol table for the corresponding objfile. */ static void special_symbol_handling (so) struct so_list *so; { #ifndef SVR4_SHARED_LIBS int j; if (debug_addr == 0) { /* Get link_dynamic structure */ j = target_read_memory (debug_base, (char *) &dynamic_copy, sizeof (dynamic_copy)); if (j) { /* unreadable */ return; } /* Calc address of debugger interface structure */ /* FIXME, this needs work for cross-debugging of core files (byteorder, size, alignment, etc). */ debug_addr = (CORE_ADDR) dynamic_copy.ldd; } /* Read the debugger structure from the inferior, just to make sure we have a current copy. */ j = target_read_memory (debug_addr, (char *) &debug_copy, sizeof (debug_copy)); if (j) return; /* unreadable */ /* Get common symbol definitions for the loaded object. */ if (debug_copy.ldd_cp) { solib_add_common_symbols (debug_copy.ldd_cp, so -> objfile); } #endif /* !SVR4_SHARED_LIBS */ } /* LOCAL FUNCTION sharedlibrary_command -- handle command to explicitly add library SYNOPSIS static void sharedlibrary_command (char *args, int from_tty) DESCRIPTION */ static void sharedlibrary_command (args, from_tty) char *args; int from_tty; { dont_repeat (); solib_add (args, from_tty, (struct target_ops *) 0); } void _initialize_solib() { add_com ("sharedlibrary", class_files, sharedlibrary_command, "Load shared object library symbols for files matching REGEXP."); add_info ("sharedlibrary", info_sharedlibrary_command, "Status of loaded shared object libraries."); } gdb-4.13/gdb/solib.h 666 34562 1752 3534 5360476327 12573 0ustar fnfcygnus/* Shared library declarations for GDB, the GNU Debugger. Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef __STDC__ /* Forward decl's for prototypes */ struct target_ops; #endif /* Called when we free all symtabs, to free the shared library information as well. */ #define CLEAR_SOLIB clear_solib extern void clear_solib PARAMS ((void)); /* Called to add symbols from a shared library to gdb's symbol table. */ #define SOLIB_ADD(filename, from_tty, targ) \ solib_add (filename, from_tty, targ) extern void solib_add PARAMS ((char *, int, struct target_ops *)); /* Function to be called when the inferior starts up, to discover the names of shared libraries that are dynamically linked, the base addresses to which they are linked, and sufficient information to read in their symbols at a later time. */ #define SOLIB_CREATE_INFERIOR_HOOK(PID) solib_create_inferior_hook() extern void solib_create_inferior_hook PARAMS((void)); /* solib.c */ /* If we can't set a breakpoint, and it's in a shared library, just disable it. */ #define DISABLE_UNSETTABLE_BREAK(addr) solib_address(addr) extern int solib_address PARAMS ((CORE_ADDR)); /* solib.c */ gdb-4.13/gdb/somread.c 666 34562 1752 27720 5611327352 13123 0ustar fnfcygnus/* Read HP PA/Risc object files for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "bfd.h" #include "som.h" #include "libhppa.h" #include #include "symtab.h" #include "symfile.h" #include "objfiles.h" #include "buildsym.h" #include "stabsread.h" #include "gdb-stabs.h" #include "complaints.h" #include #include "demangle.h" #include /* Size of n_value and n_strx fields in a stab symbol. */ #define BYTES_IN_WORD 4 #if 0 #include "aout/aout64.h" #endif /* Various things we might complain about... */ static void som_symfile_init PARAMS ((struct objfile *)); static void som_new_init PARAMS ((struct objfile *)); static void som_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int)); static void som_symfile_finish PARAMS ((struct objfile *)); static void som_symtab_read PARAMS ((bfd *, CORE_ADDR, struct objfile *)); static struct section_offsets * som_symfile_offsets PARAMS ((struct objfile *, CORE_ADDR)); static void record_minimal_symbol PARAMS ((char *, CORE_ADDR, enum minimal_symbol_type, struct objfile *)); static void record_minimal_symbol (name, address, ms_type, objfile) char *name; CORE_ADDR address; enum minimal_symbol_type ms_type; struct objfile *objfile; { name = obsavestring (name, strlen (name), &objfile -> symbol_obstack); prim_record_minimal_symbol (name, address, ms_type, objfile); } /* LOCAL FUNCTION som_symtab_read -- read the symbol table of a SOM file SYNOPSIS void som_symtab_read (bfd *abfd, CORE_ADDR addr, struct objfile *objfile) DESCRIPTION Given an open bfd, a base address to relocate symbols to, and a flag that specifies whether or not this bfd is for an executable or not (may be shared library for example), add all the global function and data symbols to the minimal symbol table. */ static void som_symtab_read (abfd, addr, objfile) bfd *abfd; CORE_ADDR addr; struct objfile *objfile; { unsigned int number_of_symbols; int val, dynamic; char *stringtab; asection *shlib_info; struct symbol_dictionary_record *buf, *bufp, *endbufp; char *symname; CONST int symsize = sizeof (struct symbol_dictionary_record); number_of_symbols = bfd_get_symcount (abfd); buf = alloca (symsize * number_of_symbols); bfd_seek (abfd, obj_som_sym_filepos (abfd), L_SET); val = bfd_read (buf, symsize * number_of_symbols, 1, abfd); if (val != symsize * number_of_symbols) error ("Couldn't read symbol dictionary!"); stringtab = alloca (obj_som_stringtab_size (abfd)); bfd_seek (abfd, obj_som_str_filepos (abfd), L_SET); val = bfd_read (stringtab, obj_som_stringtab_size (abfd), 1, abfd); if (val != obj_som_stringtab_size (abfd)) error ("Can't read in HP string table."); /* We need to determine if objfile is a dynamic executable (so we can do the right thing for ST_ENTRY vs ST_CODE symbols). There's nothing in the header which easily allows us to do this. The only reliable way I know of is to check for the existance of a $SHLIB_INFO$ section with a non-zero size. */ shlib_info = bfd_get_section_by_name (objfile->obfd, "$SHLIB_INFO$"); if (shlib_info) dynamic = (bfd_section_size (objfile->obfd, shlib_info) != 0); else dynamic = 0; endbufp = buf + number_of_symbols; for (bufp = buf; bufp < endbufp; ++bufp) { enum minimal_symbol_type ms_type; QUIT; switch (bufp->symbol_scope) { case SS_UNIVERSAL: case SS_EXTERNAL: switch (bufp->symbol_type) { case ST_SYM_EXT: case ST_ARG_EXT: continue; case ST_CODE: case ST_PRI_PROG: case ST_SEC_PROG: case ST_MILLICODE: symname = bufp->name.n_strx + stringtab; ms_type = mst_text; #ifdef SMASH_TEXT_ADDRESS SMASH_TEXT_ADDRESS (bufp->symbol_value); #endif break; case ST_ENTRY: symname = bufp->name.n_strx + stringtab; /* For a dynamic executable, ST_ENTRY symbols are the stubs, while the ST_CODE symbol is the real function. */ if (dynamic) ms_type = mst_solib_trampoline; else ms_type = mst_text; #ifdef SMASH_TEXT_ADDRESS SMASH_TEXT_ADDRESS (bufp->symbol_value); #endif break; case ST_STUB: symname = bufp->name.n_strx + stringtab; ms_type = mst_solib_trampoline; #ifdef SMASH_TEXT_ADDRESS SMASH_TEXT_ADDRESS (bufp->symbol_value); #endif break; case ST_DATA: symname = bufp->name.n_strx + stringtab; ms_type = mst_data; break; default: continue; } break; #if 0 /* SS_GLOBAL and SS_LOCAL are two names for the same thing (!). */ case SS_GLOBAL: #endif case SS_LOCAL: switch (bufp->symbol_type) { case ST_SYM_EXT: case ST_ARG_EXT: continue; case ST_CODE: symname = bufp->name.n_strx + stringtab; ms_type = mst_file_text; #ifdef SMASH_TEXT_ADDRESS SMASH_TEXT_ADDRESS (bufp->symbol_value); #endif check_strange_names: /* Utah GCC 2.5, FSF GCC 2.6 and later generate correct local label prefixes for stabs, constant data, etc. So we need only filter out L$ symbols which are left in due to limitations in how GAS generates SOM relocations. When linking in the HPUX C-library the HP linker has the nasty habit of placing section symbols from the literal subspaces in the middle of the program's text. Filter those out as best we can. Check for first and last character being '$'. */ if ((symname[0] == 'L' && symname[1] == '$') || (symname[0] == '$' && symname[strlen(symname) - 1] == '$')) continue; break; case ST_PRI_PROG: case ST_SEC_PROG: case ST_MILLICODE: symname = bufp->name.n_strx + stringtab; ms_type = mst_file_text; #ifdef SMASH_TEXT_ADDRESS SMASH_TEXT_ADDRESS (bufp->symbol_value); #endif break; case ST_ENTRY: symname = bufp->name.n_strx + stringtab; /* For a dynamic executable, ST_ENTRY symbols are the stubs, while the ST_CODE symbol is the real function. */ if (dynamic) ms_type = mst_solib_trampoline; else ms_type = mst_file_text; #ifdef SMASH_TEXT_ADDRESS SMASH_TEXT_ADDRESS (bufp->symbol_value); #endif break; case ST_STUB: symname = bufp->name.n_strx + stringtab; ms_type = mst_solib_trampoline; #ifdef SMASH_TEXT_ADDRESS SMASH_TEXT_ADDRESS (bufp->symbol_value); #endif break; case ST_DATA: symname = bufp->name.n_strx + stringtab; ms_type = mst_file_data; goto check_strange_names; default: continue; } break; default: continue; } if (bufp->name.n_strx > obj_som_stringtab_size (abfd)) error ("Invalid symbol data; bad HP string table offset: %d", bufp->name.n_strx); record_minimal_symbol (symname, bufp->symbol_value, ms_type, objfile); } } /* Scan and build partial symbols for a symbol file. We have been initialized by a call to som_symfile_init, which currently does nothing. SECTION_OFFSETS is a set of offsets to apply to relocate the symbols in each section. This is ignored, as it isn't needed for SOM. MAINLINE is true if we are reading the main symbol table (as opposed to a shared lib or dynamically loaded file). This function only does the minimum work necessary for letting the user "name" things symbolically; it does not read the entire symtab. Instead, it reads the external and static symbols and puts them in partial symbol tables. When more extensive information is requested of a file, the corresponding partial symbol table is mutated into a full fledged symbol table by going back and reading the symbols for real. We look for sections with specific names, to tell us what debug format to look for: FIXME!!! somstab_build_psymtabs() handles STABS symbols. Note that SOM files have a "minimal" symbol table, which is vaguely reminiscent of a COFF symbol table, but has only the minimal information necessary for linking. We process this also, and use the information to build gdb's minimal symbol table. This gives us some minimal debugging capability even for files compiled without -g. */ static void som_symfile_read (objfile, section_offsets, mainline) struct objfile *objfile; struct section_offsets *section_offsets; int mainline; { bfd *abfd = objfile->obfd; struct cleanup *back_to; CORE_ADDR offset; init_minimal_symbol_collection (); back_to = make_cleanup (discard_minimal_symbols, 0); /* FIXME, should take a section_offsets param, not just an offset. */ offset = ANOFFSET (section_offsets, 0); /* Process the normal SOM symbol table first. */ som_symtab_read (abfd, offset, objfile); /* Now read information from the debugging sections. */ stabsect_build_psymtabs (objfile, section_offsets, mainline, "$GDB_SYMBOLS$", "$GDB_STRINGS$", "$TEXT$"); /* Install any minimal symbols that have been collected as the current minimal symbols for this objfile. */ install_minimal_symbols (objfile); do_cleanups (back_to); } /* Initialize anything that needs initializing when a completely new symbol file is specified (not just adding some symbols from another file, e.g. a shared library). We reinitialize buildsym, since we may be reading stabs from a SOM file. */ static void som_new_init (ignore) struct objfile *ignore; { stabsread_new_init (); buildsym_new_init (); } /* Perform any local cleanups required when we are done with a particular objfile. I.E, we are in the process of discarding all symbol information for an objfile, freeing up all memory held for it, and unlinking the objfile struct from the global list of known objfiles. */ static void som_symfile_finish (objfile) struct objfile *objfile; { if (objfile -> sym_stab_info != NULL) { mfree (objfile -> md, objfile -> sym_stab_info); } } /* SOM specific initialization routine for reading symbols. Nothing SOM specific left to do anymore. */ static void som_symfile_init (ignore) struct objfile *ignore; { } /* SOM specific parsing routine for section offsets. Plain and simple for now. */ static struct section_offsets * som_symfile_offsets (objfile, addr) struct objfile *objfile; CORE_ADDR addr; { struct section_offsets *section_offsets; int i; objfile->num_sections = SECT_OFF_MAX; section_offsets = (struct section_offsets *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct section_offsets) + sizeof (section_offsets->offsets) * (SECT_OFF_MAX-1)); for (i = 0; i < SECT_OFF_MAX; i++) ANOFFSET (section_offsets, i) = addr; return section_offsets; } /* Register that we are able to handle SOM object file formats. */ static struct sym_fns som_sym_fns = { bfd_target_som_flavour, som_new_init, /* sym_new_init: init anything gbl to entire symtab */ som_symfile_init, /* sym_init: read initial info, setup for sym_read() */ som_symfile_read, /* sym_read: read a symbol file into symtab */ som_symfile_finish, /* sym_finish: finished with file, cleanup */ som_symfile_offsets, /* sym_offsets: Translate ext. to int. relocation */ NULL /* next: pointer to next struct sym_fns */ }; void _initialize_somread () { add_symtab_fns (&som_sym_fns); } gdb-4.13/gdb/source.c 666 34562 1752 110716 5623251037 13006 0ustar fnfcygnus/* List lines of source files for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "expression.h" #include "language.h" #include "command.h" #include "gdbcmd.h" #include "frame.h" #include #include #include #include #include #include "gdbcore.h" #include "regex.h" #include "symfile.h" #include "objfiles.h" #include "annotate.h" #ifndef DIRNAME_SEPARATOR #define DIRNAME_SEPARATOR ':' #endif /* Prototypes for local functions. */ static int open_source_file PARAMS ((struct symtab *)); static int get_filename_and_charpos PARAMS ((struct symtab *, char **)); static void reverse_search_command PARAMS ((char *, int)); static void forward_search_command PARAMS ((char *, int)); static void line_info PARAMS ((char *, int)); static void list_command PARAMS ((char *, int)); static void ambiguous_line_spec PARAMS ((struct symtabs_and_lines *)); static void source_info PARAMS ((char *, int)); static void show_directories PARAMS ((char *, int)); static void find_source_lines PARAMS ((struct symtab *, int)); /* If we use this declaration, it breaks because of fucking ANSI "const" stuff on some systems. We just have to not declare it at all, have it default to int, and possibly botch on a few systems. Thanks, ANSIholes... */ /* extern char *strstr(); */ /* Path of directories to search for source files. Same format as the PATH environment variable's value. */ char *source_path; /* Symtab of default file for listing lines of. */ struct symtab *current_source_symtab; /* Default next line to list. */ int current_source_line; /* Default number of lines to print with commands like "list". This is based on guessing how many long (i.e. more than chars_per_line characters) lines there will be. To be completely correct, "list" and friends should be rewritten to count characters and see where things are wrapping, but that would be a fair amount of work. */ int lines_to_list = 10; /* Line number of last line printed. Default for various commands. current_source_line is usually, but not always, the same as this. */ static int last_line_listed; /* First line number listed by last listing command. */ static int first_line_listed; /* Set the source file default for the "list" command to be S. If S is NULL, and we don't have a default, find one. This should only be called when the user actually tries to use the default, since we produce an error if we can't find a reasonable default. Also, since this can cause symbols to be read, doing it before we need to would make things slower than necessary. */ void select_source_symtab (s) register struct symtab *s; { struct symtabs_and_lines sals; struct symtab_and_line sal; struct partial_symtab *ps; struct partial_symtab *cs_pst = 0; struct objfile *ofp; if (s) { current_source_symtab = s; current_source_line = 1; return; } if (current_source_symtab) return; /* Make the default place to list be the function `main' if one exists. */ if (lookup_symbol ("main", 0, VAR_NAMESPACE, 0, NULL)) { sals = decode_line_spec ("main", 1); sal = sals.sals[0]; free (sals.sals); current_source_symtab = sal.symtab; current_source_line = max (sal.line - (lines_to_list - 1), 1); if (current_source_symtab) return; } /* All right; find the last file in the symtab list (ignoring .h's). */ current_source_line = 1; for (ofp = object_files; ofp != NULL; ofp = ofp -> next) { for (s = ofp -> symtabs; s; s = s->next) { char *name = s -> filename; int len = strlen (name); if (! (len > 2 && (STREQ (&name[len - 2], ".h")))) { current_source_symtab = s; } } } if (current_source_symtab) return; /* Howabout the partial symbol tables? */ for (ofp = object_files; ofp != NULL; ofp = ofp -> next) { for (ps = ofp -> psymtabs; ps != NULL; ps = ps -> next) { char *name = ps -> filename; int len = strlen (name); if (! (len > 2 && (STREQ (&name[len - 2], ".h")))) { cs_pst = ps; } } } if (cs_pst) { if (cs_pst -> readin) { fatal ("Internal: select_source_symtab: readin pst found and no symtabs."); } else { current_source_symtab = PSYMTAB_TO_SYMTAB (cs_pst); } } error ("Can't find a default source file"); } static void show_directories (ignore, from_tty) char *ignore; int from_tty; { puts_filtered ("Source directories searched: "); puts_filtered (source_path); puts_filtered ("\n"); } /* Forget what we learned about line positions in source files, and which directories contain them; must check again now since files may be found in a different directory now. */ void forget_cached_source_info () { register struct symtab *s; register struct objfile *objfile; for (objfile = object_files; objfile != NULL; objfile = objfile -> next) { for (s = objfile -> symtabs; s != NULL; s = s -> next) { if (s -> line_charpos != NULL) { mfree (objfile -> md, s -> line_charpos); s -> line_charpos = NULL; } if (s -> fullname != NULL) { mfree (objfile -> md, s -> fullname); s -> fullname = NULL; } } } } void init_source_path () { char buf[20]; sprintf (buf, "$cdir%c$cwd", DIRNAME_SEPARATOR); source_path = strsave (buf); forget_cached_source_info (); } /* Add zero or more directories to the front of the source path. */ void directory_command (dirname, from_tty) char *dirname; int from_tty; { dont_repeat (); /* FIXME, this goes to "delete dir"... */ if (dirname == 0) { if (query ("Reinitialize source path to empty? ", "")) { free (source_path); init_source_path (); } } else mod_path (dirname, &source_path); if (from_tty) show_directories ((char *)0, from_tty); forget_cached_source_info (); } /* Add zero or more directories to the front of an arbitrary path. */ void mod_path (dirname, which_path) char *dirname; char **which_path; { char *old = *which_path; int prefix = 0; if (dirname == 0) return; dirname = strsave (dirname); make_cleanup (free, dirname); do { char *name = dirname; register char *p; struct stat st; { char *colon = strchr (name, DIRNAME_SEPARATOR); char *space = strchr (name, ' '); char *tab = strchr (name, '\t'); if (colon == 0 && space == 0 && tab == 0) p = dirname = name + strlen (name); else { p = 0; if (colon != 0 && (p == 0 || colon < p)) p = colon; if (space != 0 && (p == 0 || space < p)) p = space; if (tab != 0 && (p == 0 || tab < p)) p = tab; dirname = p + 1; while (*dirname == DIRNAME_SEPARATOR || *dirname == ' ' || *dirname == '\t') ++dirname; } } if (p[-1] == '/') /* Sigh. "foo/" => "foo" */ --p; *p = '\0'; while (p[-1] == '.') { if (p - name == 1) { /* "." => getwd (). */ name = current_directory; goto append; } else if (p[-2] == '/') { if (p - name == 2) { /* "/." => "/". */ *--p = '\0'; goto append; } else { /* "...foo/." => "...foo". */ p -= 2; *p = '\0'; continue; } } else break; } if (name[0] == '~') name = tilde_expand (name); else if (name[0] != '/' && name[0] != '$') name = concat (current_directory, "/", name, NULL); else name = savestring (name, p - name); make_cleanup (free, name); /* Unless it's a variable, check existence. */ if (name[0] != '$') { /* These are warnings, not errors, since we don't want a non-existent directory in a .gdbinit file to stop processing of the .gdbinit file. Whether they get added to the path is more debatable. Current answer is yes, in case the user wants to go make the directory or whatever. If the directory continues to not exist/not be a directory/etc, then having them in the path should be harmless. */ if (stat (name, &st) < 0) { int save_errno = errno; fprintf_unfiltered (gdb_stderr, "Warning: "); print_sys_errmsg (name, save_errno); } else if ((st.st_mode & S_IFMT) != S_IFDIR) warning ("%s is not a directory.", name); } append: { register unsigned int len = strlen (name); p = *which_path; while (1) { if (!strncmp (p, name, len) && (p[len] == '\0' || p[len] == DIRNAME_SEPARATOR)) { /* Found it in the search path, remove old copy */ if (p > *which_path) p--; /* Back over leading colon */ if (prefix > p - *which_path) goto skip_dup; /* Same dir twice in one cmd */ strcpy (p, &p[len+1]); /* Copy from next \0 or : */ } p = strchr (p, DIRNAME_SEPARATOR); if (p != 0) ++p; else break; } if (p == 0) { char tinybuf[2]; tinybuf[0] = DIRNAME_SEPARATOR; tinybuf[1] = '\0'; /* If we have already tacked on a name(s) in this command, be sure they stay on the front as we tack on some more. */ if (prefix) { char *temp, c; c = old[prefix]; old[prefix] = '\0'; temp = concat (old, tinybuf, name, NULL); old[prefix] = c; *which_path = concat (temp, "", &old[prefix], NULL); prefix = strlen (temp); free (temp); } else { *which_path = concat (name, (old[0] ? tinybuf : old), old, NULL); prefix = strlen (name); } free (old); old = *which_path; } } skip_dup: ; } while (*dirname != '\0'); } static void source_info (ignore, from_tty) char *ignore; int from_tty; { register struct symtab *s = current_source_symtab; if (!s) { printf_filtered("No current source file.\n"); return; } printf_filtered ("Current source file is %s\n", s->filename); if (s->dirname) printf_filtered ("Compilation directory is %s\n", s->dirname); if (s->fullname) printf_filtered ("Located in %s\n", s->fullname); if (s->nlines) printf_filtered ("Contains %d line%s.\n", s->nlines, s->nlines == 1 ? "" : "s"); printf_filtered("Source language is %s.\n", language_str (s->language)); } /* Open a file named STRING, searching path PATH (dir names sep by some char) using mode MODE and protection bits PROT in the calls to open. If TRY_CWD_FIRST, try to open ./STRING before searching PATH. (ie pretend the first element of PATH is "."). This also indicates that a slash in STRING disables searching of the path (this is so that "exec-file ./foo" or "symbol-file ./foo" insures that you get that particular version of foo or an error message). If FILENAMED_OPENED is non-null, set it to a newly allocated string naming the actual file opened (this string will always start with a "/". We have to take special pains to avoid doubling the "/" between the directory and the file, sigh! Emacs gets confuzzed by this when we print the source file name!!! If a file is found, return the descriptor. Otherwise, return -1, with errno set for the last name we tried to open. */ /* >>>> This should only allow files of certain types, >>>> eg executable, non-directory */ int openp (path, try_cwd_first, string, mode, prot, filename_opened) char *path; int try_cwd_first; char *string; int mode; int prot; char **filename_opened; { register int fd; register char *filename; register char *p, *p1; register int len; int alloclen; if (!path) path = "."; if (try_cwd_first || string[0] == '/') { filename = string; fd = open (filename, mode, prot); if (fd >= 0 || string[0] == '/' || strchr (string, '/')) goto done; } /* ./foo => foo */ while (string[0] == '.' && string[1] == '/') string += 2; alloclen = strlen (path) + strlen (string) + 2; filename = (char *) alloca (alloclen); fd = -1; for (p = path; p; p = p1 ? p1 + 1 : 0) { p1 = (char *) strchr (p, DIRNAME_SEPARATOR); if (p1) len = p1 - p; else len = strlen (p); if (len == 4 && p[0] == '$' && p[1] == 'c' && p[2] == 'w' && p[3] == 'd') { /* Name is $cwd -- insert current directory name instead. */ int newlen; /* First, realloc the filename buffer if too short. */ len = strlen (current_directory); newlen = len + strlen (string) + 2; if (newlen > alloclen) { alloclen = newlen; filename = (char *) alloca (alloclen); } strcpy (filename, current_directory); } else { /* Normal file name in path -- just use it. */ strncpy (filename, p, len); filename[len] = 0; } /* Remove trailing slashes */ while (len > 0 && filename[len-1] == '/') filename[--len] = 0; strcat (filename+len, "/"); strcat (filename, string); fd = open (filename, mode); if (fd >= 0) break; } done: if (filename_opened) if (fd < 0) *filename_opened = (char *) 0; else if (filename[0] == '/') *filename_opened = savestring (filename, strlen (filename)); else { /* Beware the // my son, the Emacs barfs, the botch that catch... */ *filename_opened = concat (current_directory, '/' == current_directory[strlen(current_directory)-1]? "": "/", filename, NULL); } return fd; } /* Open a source file given a symtab S. Returns a file descriptor or negative number for error. */ static int open_source_file (s) struct symtab *s; { char *path = source_path; char *p; int result; char *fullname; /* Quick way out if we already know its full name */ if (s->fullname) { result = open (s->fullname, O_RDONLY); if (result >= 0) return result; /* Didn't work -- free old one, try again. */ mfree (s->objfile->md, s->fullname); s->fullname = NULL; } if (s->dirname != NULL) { /* Replace a path entry of $cdir with the compilation directory name */ #define cdir_len 5 /* We cast strstr's result in case an ANSIhole has made it const, which produces a "required warning" when assigned to a nonconst. */ p = (char *)strstr (source_path, "$cdir"); if (p && (p == path || p[-1] == DIRNAME_SEPARATOR) && (p[cdir_len] == DIRNAME_SEPARATOR || p[cdir_len] == '\0')) { int len; path = (char *) alloca (strlen (source_path) + 1 + strlen (s->dirname) + 1); len = p - source_path; strncpy (path, source_path, len); /* Before $cdir */ strcpy (path + len, s->dirname); /* new stuff */ strcat (path + len, source_path + len + cdir_len); /* After $cdir */ } } result = openp (path, 0, s->filename, O_RDONLY, 0, &s->fullname); if (result < 0) { /* Didn't work. Try using just the basename. */ p = basename (s->filename); if (p != s->filename) result = openp (path, 0, p, O_RDONLY, 0, &s->fullname); } if (result >= 0) { fullname = s->fullname; s->fullname = mstrsave (s->objfile->md, s->fullname); free (fullname); } return result; } /* Create and initialize the table S->line_charpos that records the positions of the lines in the source file, which is assumed to be open on descriptor DESC. All set S->nlines to the number of such lines. */ static void find_source_lines (s, desc) struct symtab *s; int desc; { struct stat st; register char *data, *p, *end; int nlines = 0; int lines_allocated = 1000; int *line_charpos; long exec_mtime; int size; line_charpos = (int *) xmmalloc (s -> objfile -> md, lines_allocated * sizeof (int)); if (fstat (desc, &st) < 0) perror_with_name (s->filename); if (exec_bfd) { exec_mtime = bfd_get_mtime(exec_bfd); if (exec_mtime && exec_mtime < st.st_mtime) printf_filtered ("Source file is more recent than executable.\n"); } #ifdef LSEEK_NOT_LINEAR { char c; /* Have to read it byte by byte to find out where the chars live */ line_charpos[0] = tell(desc); nlines = 1; while (myread(desc, &c, 1)>0) { if (c == '\n') { if (nlines == lines_allocated) { lines_allocated *= 2; line_charpos = (int *) xmrealloc (s -> objfile -> md, (char *) line_charpos, sizeof (int) * lines_allocated); } line_charpos[nlines++] = tell(desc); } } } #else /* lseek linear. */ { struct cleanup *old_cleanups; /* st_size might be a large type, but we only support source files whose size fits in an int. */ size = (int) st.st_size; /* Use malloc, not alloca, because this may be pretty large, and we may run into various kinds of limits on stack size. */ data = (char *) xmalloc (size); old_cleanups = make_cleanup (free, data); if (myread (desc, data, size) < 0) perror_with_name (s->filename); end = data + size; p = data; line_charpos[0] = 0; nlines = 1; while (p != end) { if (*p++ == '\n' /* A newline at the end does not start a new line. */ && p != end) { if (nlines == lines_allocated) { lines_allocated *= 2; line_charpos = (int *) xmrealloc (s -> objfile -> md, (char *) line_charpos, sizeof (int) * lines_allocated); } line_charpos[nlines++] = p - data; } } do_cleanups (old_cleanups); } #endif /* lseek linear. */ s->nlines = nlines; s->line_charpos = (int *) xmrealloc (s -> objfile -> md, (char *) line_charpos, nlines * sizeof (int)); } /* Return the character position of a line LINE in symtab S. Return 0 if anything is invalid. */ #if 0 /* Currently unused */ int source_line_charpos (s, line) struct symtab *s; int line; { if (!s) return 0; if (!s->line_charpos || line <= 0) return 0; if (line > s->nlines) line = s->nlines; return s->line_charpos[line - 1]; } /* Return the line number of character position POS in symtab S. */ int source_charpos_line (s, chr) register struct symtab *s; register int chr; { register int line = 0; register int *lnp; if (s == 0 || s->line_charpos == 0) return 0; lnp = s->line_charpos; /* Files are usually short, so sequential search is Ok */ while (line < s->nlines && *lnp <= chr) { line++; lnp++; } if (line >= s->nlines) line = s->nlines; return line; } #endif /* 0 */ /* Get full pathname and line number positions for a symtab. Return nonzero if line numbers may have changed. Set *FULLNAME to actual name of the file as found by `openp', or to 0 if the file is not found. */ static int get_filename_and_charpos (s, fullname) struct symtab *s; char **fullname; { register int desc, linenums_changed = 0; desc = open_source_file (s); if (desc < 0) { if (fullname) *fullname = NULL; return 0; } if (fullname) *fullname = s->fullname; if (s->line_charpos == 0) linenums_changed = 1; if (linenums_changed) find_source_lines (s, desc); close (desc); return linenums_changed; } /* Print text describing the full name of the source file S and the line number LINE and its corresponding character position. The text starts with two Ctrl-z so that the Emacs-GDB interface can easily find it. MID_STATEMENT is nonzero if the PC is not at the beginning of that line. Return 1 if successful, 0 if could not find the file. */ int identify_source_line (s, line, mid_statement, pc) struct symtab *s; int line; int mid_statement; CORE_ADDR pc; { if (s->line_charpos == 0) get_filename_and_charpos (s, (char **)NULL); if (s->fullname == 0) return 0; if (line > s->nlines) /* Don't index off the end of the line_charpos array. */ return 0; annotate_source (s->fullname, line, s->line_charpos[line - 1], mid_statement, pc); current_source_line = line; first_line_listed = line; last_line_listed = line; current_source_symtab = s; return 1; } /* Print source lines from the file of symtab S, starting with line number LINE and stopping before line number STOPLINE. */ void print_source_lines (s, line, stopline, noerror) struct symtab *s; int line, stopline; int noerror; { register int c; register int desc; register FILE *stream; int nlines = stopline - line; /* Regardless of whether we can open the file, set current_source_symtab. */ current_source_symtab = s; current_source_line = line; first_line_listed = line; desc = open_source_file (s); if (desc < 0) { if (! noerror) { char *name = alloca (strlen (s->filename) + 100); sprintf (name, "%s:%d", s->filename, line); print_sys_errmsg (name, errno); } return; } if (s->line_charpos == 0) find_source_lines (s, desc); if (line < 1 || line > s->nlines) { close (desc); error ("Line number %d out of range; %s has %d lines.", line, s->filename, s->nlines); } if (lseek (desc, s->line_charpos[line - 1], 0) < 0) { close (desc); perror_with_name (s->filename); } stream = fdopen (desc, FOPEN_RT); clearerr (stream); while (nlines-- > 0) { c = fgetc (stream); if (c == EOF) break; last_line_listed = current_source_line; printf_filtered ("%d\t", current_source_line++); do { if (c < 040 && c != '\t' && c != '\n' && c != '\r') printf_filtered ("^%c", c + 0100); else if (c == 0177) printf_filtered ("^?"); else printf_filtered ("%c", c); } while (c != '\n' && (c = fgetc (stream)) >= 0); } fclose (stream); } /* C++ Print a list of files and line numbers which a user may choose from in order to list a function which was specified ambiguously (as with `list classname::overloadedfuncname', for example). The vector in SALS provides the filenames and line numbers. */ static void ambiguous_line_spec (sals) struct symtabs_and_lines *sals; { int i; for (i = 0; i < sals->nelts; ++i) printf_filtered("file: \"%s\", line number: %d\n", sals->sals[i].symtab->filename, sals->sals[i].line); } static void list_command (arg, from_tty) char *arg; int from_tty; { struct symtabs_and_lines sals, sals_end; struct symtab_and_line sal, sal_end; struct symbol *sym; char *arg1; int no_end = 1; int dummy_end = 0; int dummy_beg = 0; int linenum_beg = 0; char *p; if (!have_full_symbols () && !have_partial_symbols()) error ("No symbol table is loaded. Use the \"file\" command."); /* Pull in a current source symtab if necessary */ if (current_source_symtab == 0 && (arg == 0 || arg[0] == '+' || arg[0] == '-')) select_source_symtab (0); /* "l" or "l +" lists next ten lines. */ if (arg == 0 || STREQ (arg, "+")) { if (current_source_symtab == 0) error ("No default source file yet. Do \"help list\"."); print_source_lines (current_source_symtab, current_source_line, current_source_line + lines_to_list, 0); return; } /* "l -" lists previous ten lines, the ones before the ten just listed. */ if (STREQ (arg, "-")) { if (current_source_symtab == 0) error ("No default source file yet. Do \"help list\"."); print_source_lines (current_source_symtab, max (first_line_listed - lines_to_list, 1), first_line_listed, 0); return; } /* Now if there is only one argument, decode it in SAL and set NO_END. If there are two arguments, decode them in SAL and SAL_END and clear NO_END; however, if one of the arguments is blank, set DUMMY_BEG or DUMMY_END to record that fact. */ arg1 = arg; if (*arg1 == ',') dummy_beg = 1; else { sals = decode_line_1 (&arg1, 0, 0, 0, 0); if (! sals.nelts) return; /* C++ */ if (sals.nelts > 1) { ambiguous_line_spec (&sals); free (sals.sals); return; } sal = sals.sals[0]; free (sals.sals); } /* Record whether the BEG arg is all digits. */ for (p = arg; p != arg1 && *p >= '0' && *p <= '9'; p++); linenum_beg = (p == arg1); while (*arg1 == ' ' || *arg1 == '\t') arg1++; if (*arg1 == ',') { no_end = 0; arg1++; while (*arg1 == ' ' || *arg1 == '\t') arg1++; if (*arg1 == 0) dummy_end = 1; else { if (dummy_beg) sals_end = decode_line_1 (&arg1, 0, 0, 0, 0); else sals_end = decode_line_1 (&arg1, 0, sal.symtab, sal.line, 0); if (sals_end.nelts == 0) return; if (sals_end.nelts > 1) { ambiguous_line_spec (&sals_end); free (sals_end.sals); return; } sal_end = sals_end.sals[0]; free (sals_end.sals); } } if (*arg1) error ("Junk at end of line specification."); if (!no_end && !dummy_beg && !dummy_end && sal.symtab != sal_end.symtab) error ("Specified start and end are in different files."); if (dummy_beg && dummy_end) error ("Two empty args do not say what lines to list."); /* if line was specified by address, first print exactly which line, and which file. In this case, sal.symtab == 0 means address is outside of all known source files, not that user failed to give a filename. */ if (*arg == '*') { if (sal.symtab == 0) /* FIXME-32x64--assumes sal.pc fits in long. */ error ("No source file for address %s.", local_hex_string((unsigned long) sal.pc)); sym = find_pc_function (sal.pc); if (sym) { print_address_numeric (sal.pc, 1, gdb_stdout); printf_filtered (" is in "); fputs_filtered (SYMBOL_SOURCE_NAME (sym), gdb_stdout); printf_filtered (" (%s:%d).\n", sal.symtab->filename, sal.line); } else { print_address_numeric (sal.pc, 1, gdb_stdout); printf_filtered (" is at %s:%d.\n", sal.symtab->filename, sal.line); } } /* If line was not specified by just a line number, and it does not imply a symtab, it must be an undebuggable symbol which means no source code. */ if (! linenum_beg && sal.symtab == 0) error ("No line number known for %s.", arg); /* If this command is repeated with RET, turn it into the no-arg variant. */ if (from_tty) *arg = 0; if (dummy_beg && sal_end.symtab == 0) error ("No default source file yet. Do \"help list\"."); if (dummy_beg) print_source_lines (sal_end.symtab, max (sal_end.line - (lines_to_list - 1), 1), sal_end.line + 1, 0); else if (sal.symtab == 0) error ("No default source file yet. Do \"help list\"."); else if (no_end) print_source_lines (sal.symtab, max (sal.line - (lines_to_list / 2), 1), sal.line + (lines_to_list / 2), 0); else print_source_lines (sal.symtab, sal.line, (dummy_end ? sal.line + lines_to_list : sal_end.line + 1), 0); } /* Print info on range of pc's in a specified line. */ static void line_info (arg, from_tty) char *arg; int from_tty; { struct symtabs_and_lines sals; struct symtab_and_line sal; CORE_ADDR start_pc, end_pc; int i; if (arg == 0) { sal.symtab = current_source_symtab; sal.line = last_line_listed; sals.nelts = 1; sals.sals = (struct symtab_and_line *) xmalloc (sizeof (struct symtab_and_line)); sals.sals[0] = sal; } else { sals = decode_line_spec_1 (arg, 0); dont_repeat (); } /* C++ More than one line may have been specified, as when the user specifies an overloaded function name. Print info on them all. */ for (i = 0; i < sals.nelts; i++) { sal = sals.sals[i]; if (sal.symtab == 0) { printf_filtered ("No line number information available"); if (sal.pc != 0) { /* This is useful for "info line *0x7f34". If we can't tell the user about a source line, at least let them have the symbolic address. */ printf_filtered (" for address "); wrap_here (" "); print_address (sal.pc, gdb_stdout); } else printf_filtered ("."); printf_filtered ("\n"); } else if (sal.line > 0 && find_line_pc_range (sal, &start_pc, &end_pc)) { if (start_pc == end_pc) { printf_filtered ("Line %d of \"%s\"", sal.line, sal.symtab->filename); wrap_here (" "); printf_filtered (" is at address "); print_address (start_pc, gdb_stdout); wrap_here (" "); printf_filtered (" but contains no code.\n"); } else { printf_filtered ("Line %d of \"%s\"", sal.line, sal.symtab->filename); wrap_here (" "); printf_filtered (" starts at address "); print_address (start_pc, gdb_stdout); wrap_here (" "); printf_filtered (" and ends at "); print_address (end_pc, gdb_stdout); printf_filtered (".\n"); } /* x/i should display this line's code. */ set_next_address (start_pc); /* Repeating "info line" should do the following line. */ last_line_listed = sal.line + 1; /* If this is the only line, show the source code. If it could not find the file, don't do anything special. */ if (annotation_level && sals.nelts == 1) identify_source_line (sal.symtab, sal.line, 0, start_pc); } else /* Is there any case in which we get here, and have an address which the user would want to see? If we have debugging symbols and no line numbers? */ printf_filtered ("Line number %d is out of range for \"%s\".\n", sal.line, sal.symtab->filename); } free (sals.sals); } /* Commands to search the source file for a regexp. */ /* ARGSUSED */ static void forward_search_command (regex, from_tty) char *regex; int from_tty; { register int c; register int desc; register FILE *stream; int line = last_line_listed + 1; char *msg; msg = (char *) re_comp (regex); if (msg) error (msg); if (current_source_symtab == 0) select_source_symtab (0); /* Search from last_line_listed+1 in current_source_symtab */ desc = open_source_file (current_source_symtab); if (desc < 0) perror_with_name (current_source_symtab->filename); if (current_source_symtab->line_charpos == 0) find_source_lines (current_source_symtab, desc); if (line < 1 || line > current_source_symtab->nlines) { close (desc); error ("Expression not found"); } if (lseek (desc, current_source_symtab->line_charpos[line - 1], 0) < 0) { close (desc); perror_with_name (current_source_symtab->filename); } stream = fdopen (desc, FOPEN_RT); clearerr (stream); while (1) { /* FIXME!!! We walk right off the end of buf if we get a long line!!! */ char buf[4096]; /* Should be reasonable??? */ register char *p = buf; c = getc (stream); if (c == EOF) break; do { *p++ = c; } while (c != '\n' && (c = getc (stream)) >= 0); /* we now have a source line in buf, null terminate and match */ *p = 0; if (re_exec (buf) > 0) { /* Match! */ fclose (stream); print_source_lines (current_source_symtab, line, line+1, 0); current_source_line = max (line - lines_to_list / 2, 1); return; } line++; } printf_filtered ("Expression not found\n"); fclose (stream); } /* ARGSUSED */ static void reverse_search_command (regex, from_tty) char *regex; int from_tty; { register int c; register int desc; register FILE *stream; int line = last_line_listed - 1; char *msg; msg = (char *) re_comp (regex); if (msg) error (msg); if (current_source_symtab == 0) select_source_symtab (0); /* Search from last_line_listed-1 in current_source_symtab */ desc = open_source_file (current_source_symtab); if (desc < 0) perror_with_name (current_source_symtab->filename); if (current_source_symtab->line_charpos == 0) find_source_lines (current_source_symtab, desc); if (line < 1 || line > current_source_symtab->nlines) { close (desc); error ("Expression not found"); } if (lseek (desc, current_source_symtab->line_charpos[line - 1], 0) < 0) { close (desc); perror_with_name (current_source_symtab->filename); } stream = fdopen (desc, FOPEN_RT); clearerr (stream); while (line > 1) { /* FIXME!!! We walk right off the end of buf if we get a long line!!! */ char buf[4096]; /* Should be reasonable??? */ register char *p = buf; c = getc (stream); if (c == EOF) break; do { *p++ = c; } while (c != '\n' && (c = getc (stream)) >= 0); /* We now have a source line in buf; null terminate and match. */ *p = 0; if (re_exec (buf) > 0) { /* Match! */ fclose (stream); print_source_lines (current_source_symtab, line, line+1, 0); current_source_line = max (line - lines_to_list / 2, 1); return; } line--; if (fseek (stream, current_source_symtab->line_charpos[line - 1], 0) < 0) { fclose (stream); perror_with_name (current_source_symtab->filename); } } printf_filtered ("Expression not found\n"); fclose (stream); return; } void _initialize_source () { struct cmd_list_element *c; current_source_symtab = 0; init_source_path (); /* The intention is to use POSIX Basic Regular Expressions. Always use the GNU regex routine for consistency across all hosts. Our current GNU regex.c does not have all the POSIX features, so this is just an approximation. */ re_set_syntax (RE_SYNTAX_GREP); c = add_cmd ("directory", class_files, directory_command, "Add directory DIR to beginning of search path for source files.\n\ Forget cached info on source file locations and line positions.\n\ DIR can also be $cwd for the current working directory, or $cdir for the\n\ directory in which the source file was compiled into object code.\n\ With no argument, reset the search path to $cdir:$cwd, the default.", &cmdlist); c->completer = filename_completer; add_cmd ("directories", no_class, show_directories, "Current search path for finding source files.\n\ $cwd in the path means the current working directory.\n\ $cdir in the path means the compilation directory of the source file.", &showlist); add_info ("source", source_info, "Information about the current source file."); add_info ("line", line_info, "Core addresses of the code for a source line.\n\ Line can be specified as\n\ LINENUM, to list around that line in current file,\n\ FILE:LINENUM, to list around that line in that file,\n\ FUNCTION, to list around beginning of that function,\n\ FILE:FUNCTION, to distinguish among like-named static functions.\n\ Default is to describe the last source line that was listed.\n\n\ This sets the default address for \"x\" to the line's first instruction\n\ so that \"x/i\" suffices to start examining the machine code.\n\ The address is also stored as the value of \"$_\"."); add_com ("forward-search", class_files, forward_search_command, "Search for regular expression (see regex(3)) from last line listed."); add_com_alias ("search", "forward-search", class_files, 0); add_com ("reverse-search", class_files, reverse_search_command, "Search backward for regular expression (see regex(3)) from last line listed."); add_com ("list", class_files, list_command, "List specified function or line.\n\ With no argument, lists ten more lines after or around previous listing.\n\ \"list -\" lists the ten lines before a previous ten-line listing.\n\ One argument specifies a line, and ten lines are listed around that line.\n\ Two arguments with comma between specify starting and ending lines to list.\n\ Lines can be specified in these ways:\n\ LINENUM, to list around that line in current file,\n\ FILE:LINENUM, to list around that line in that file,\n\ FUNCTION, to list around beginning of that function,\n\ FILE:FUNCTION, to distinguish among like-named static functions.\n\ *ADDRESS, to list around the line containing that address.\n\ With two args if one is empty it stands for ten lines away from the other arg."); add_com_alias ("l", "list", class_files, 1); add_show_from_set (add_set_cmd ("listsize", class_support, var_uinteger, (char *)&lines_to_list, "Set number of source lines gdb will list by default.", &setlist), &showlist); } gdb-4.13/gdb/sp64-tdep.c 666 34562 1752 17041 5543154024 13210 0ustar fnfcygnus/* Target-dependent code for the SPARC 64 for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by Doug Evans (dje@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "obstack.h" #include "target.h" /*#include "symfile.h" /* for objfiles.h */ /*#include "objfiles.h" /* for find_pc_section */ /* This file contains replacements and additions to sparc-tdep.c only. Some of this code has been written for a day when we can merge at least some of this with sparc-tdep.c. Macro TARGET_SPARC64 exists to allow some code to potentially be used by both. */ #define TARGET_SPARC64 1 /* later make a config parm or some such */ /* From infrun.c */ extern int stop_after_trap; /* Branches with prediction are treated like their non-predicting cousins. */ /* FIXME: What about floating point branches? */ typedef enum { Error, not_branch, bicc, bicca, ba, baa, ticc, ta, done_retry } branch_type; /* Simulate single-step ptrace call for sun4. Code written by Gary Beihl (beihl@mcc.com). */ /* npc4 and next_pc describe the situation at the time that the step-breakpoint was set, not necessary the current value of NPC_REGNUM. */ static CORE_ADDR next_pc, npc4, target; static int brknpc4, brktrg; typedef char binsn_quantum[BREAKPOINT_MAX]; static binsn_quantum break_mem[3]; /* Non-zero if we just simulated a single-step ptrace call. This is needed because we cannot remove the breakpoints in the inferior process until after the `wait' in `wait_for_inferior'. Used for sun4. */ int one_stepped; /* sparc64_single_step() is called just before we want to resume the inferior, if we want to single-step it but there is no hardware or kernel single-step support (as on all SPARCs). We find all the possible targets of the coming instruction and breakpoint them. single_step is also called just after the inferior stops. If we had set up a simulated single-step, we undo our damage. */ /* FIXME: When the code is releasable, sparc's single step could become this one, removing the duplication. */ void sparc64_single_step (ignore) int ignore; /* pid, but we don't need it */ { branch_type br, isbranch(); CORE_ADDR pc; long pc_instruction; if (!one_stepped) { /* Always set breakpoint for NPC. */ next_pc = read_register (NPC_REGNUM); npc4 = next_pc + 4; /* branch not taken */ target_insert_breakpoint (next_pc, break_mem[0]); /* printf_unfiltered ("set break at %x\n",next_pc); */ pc = read_register (PC_REGNUM); pc_instruction = read_memory_integer (pc, sizeof(pc_instruction)); br = isbranch (pc_instruction, pc, &target); brknpc4 = brktrg = 0; if (br == bicca) { /* Conditional annulled branch will either end up at npc (if taken) or at npc+4 (if not taken). Trap npc+4. */ brknpc4 = 1; target_insert_breakpoint (npc4, break_mem[1]); } else if ((br == baa && target != next_pc) || (TARGET_SPARC64 && br == done_retry)) { /* Unconditional annulled branch will always end up at the target. */ brktrg = 1; target_insert_breakpoint (target, break_mem[2]); } /* We are ready to let it go */ one_stepped = 1; return; } else { /* Remove breakpoints */ target_remove_breakpoint (next_pc, break_mem[0]); if (brknpc4) target_remove_breakpoint (npc4, break_mem[1]); if (brktrg) target_remove_breakpoint (target, break_mem[2]); one_stepped = 0; } } CORE_ADDR sparc64_extract_struct_value_address (regbuf) char regbuf[REGISTER_BYTES]; { CORE_ADDR addr; /* FIXME: We assume a non-leaf function. */ addr = read_register (I0_REGNUM); return addr; } /* Check instruction at ADDR to see if it is an annulled branch or other instruction whose npc isn't pc+4 (eg: trap, done, retry). All other instructions will go to NPC or will trap. Set *TARGET if we find a candidate branch; set to zero if not. */ branch_type isbranch (instruction, addr, target) long instruction; CORE_ADDR addr, *target; { branch_type val = not_branch; long int offset; /* Must be signed for sign-extend. */ union { unsigned long int code; struct { unsigned int op:2; unsigned int a:1; unsigned int cond:4; unsigned int op2:3; unsigned int disp22:22; } b; struct { unsigned int op:2; unsigned int a:1; unsigned int cond:4; unsigned int op2:3; unsigned int cc:2; unsigned int p:1; unsigned int disp19:19; } bp; struct { unsigned int op:2; unsigned int a:1; unsigned int zero:1; unsigned int rcond:3; unsigned int op2:3; unsigned int disp16hi:2; unsigned int p:1; unsigned int rs1:5; unsigned int disp16lo:14; } bpr; struct { unsigned int op:2; unsigned int fcn:5; unsigned int op3:6; unsigned int reserved:19; } dr; } insn; *target = 0; insn.code = instruction; if (insn.b.op == 0 && (insn.b.op2 == 1 || insn.b.op2 == 2 || insn.b.op2 ==3 || insn.b.op2 == 5 || insn.b.op2 == 6)) { if (insn.b.cond == 8) val = insn.b.a ? baa : ba; else val = insn.b.a ? bicca : bicc; switch (insn.b.op2) { case 1: /* bpcc */ offset = 4 * ((int) (insn.bp.disp19 << 13) >> 13); break; case 2: /* bicc */ offset = 4 * ((int) (insn.b.disp22 << 10) >> 10); break; case 3: /* bpr */ offset = 4 * ((int) ((insn.bpr.disp16hi << 10) || (insn.bpr.disp16lo << 18)) >> 13); break; case 5: /* fbpfcc */ offset = 4 * ((int) (insn.bp.disp19 << 13) >> 13); break; case 6: /* fbfcc */ offset = 4 * ((int) (insn.b.disp22 << 10) >> 10); break; } *target = addr + offset; } else if (insn.dr.op == 2 && insn.dr.op3 == 62) { if (insn.dr.fcn == 0) { /* done */ *target = read_register (TNPC_REGNUM); val = done_retry; } else if (insn.dr.fcn == 1) { /* retry */ *target = read_register (TPC_REGNUM); val = done_retry; } } return val; } /* PRINT_REGISTER_HOOK routine. Pretty print various registers. */ static void dump_ccreg (reg, val) char *reg; int val; { printf_unfiltered ("%s:%s,%s,%s,%s", reg, val & 8 ? "N" : "NN", val & 4 ? "Z" : "NZ", val & 2 ? "O" : "NO", val & 1 ? "C" : "NC" ); } void sparc_print_register_hook (regno) int regno; { if (((unsigned) (regno) - FP0_REGNUM < FP_MAX_REGNUM - FP0_REGNUM) && ((regno) & 1) == 0) { char doublereg[8]; /* two float regs */ if (!read_relative_register_raw_bytes ((regno), doublereg)) { printf_unfiltered("\t"); print_floating (doublereg, builtin_type_double, gdb_stdout); } } else if ((regno) == CCR_REGNUM) { int ccr = read_register (CCR_REGNUM); printf_unfiltered("\t"); dump_ccreg ("xcc", ccr >> 4); printf_unfiltered(", "); dump_ccreg ("icc", ccr & 15); } } gdb-4.13/gdb/sparc-nat.c 666 34562 1752 23251 5521122741 13347 0ustar fnfcygnus/* Functions specific to running gdb native on a SPARC running SunOS4. Copyright 1989, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "target.h" #include #include #include #include /* We don't store all registers immediately when requested, since they get sent over in large chunks anyway. Instead, we accumulate most of the changes and send them over once. "deferred_stores" keeps track of which sets of registers we have locally-changed copies of, so we only need send the groups that have changed. */ #define INT_REGS 1 #define STACK_REGS 2 #define FP_REGS 4 /* Fetch one or more registers from the inferior. REGNO == -1 to get them all. We actually fetch more than requested, when convenient, marking them as valid so we won't fetch them again. */ void fetch_inferior_registers (regno) int regno; { struct regs inferior_registers; struct fp_status inferior_fp_registers; int i; /* We should never be called with deferred stores, because a prerequisite for writing regs is to have fetched them all (PREPARE_TO_STORE), sigh. */ if (deferred_stores) abort(); DO_DEFERRED_STORES; /* Global and Out regs are fetched directly, as well as the control registers. If we're getting one of the in or local regs, and the stack pointer has not yet been fetched, we have to do that first, since they're found in memory relative to the stack pointer. */ if (regno < O7_REGNUM /* including -1 */ || regno >= Y_REGNUM || (!register_valid[SP_REGNUM] && regno < I7_REGNUM)) { if (0 != ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers, 0)) perror("ptrace_getregs"); registers[REGISTER_BYTE (0)] = 0; memcpy (®isters[REGISTER_BYTE (1)], &inferior_registers.r_g1, 15 * REGISTER_RAW_SIZE (G0_REGNUM)); *(int *)®isters[REGISTER_BYTE (PS_REGNUM)] = inferior_registers.r_ps; *(int *)®isters[REGISTER_BYTE (PC_REGNUM)] = inferior_registers.r_pc; *(int *)®isters[REGISTER_BYTE (NPC_REGNUM)] = inferior_registers.r_npc; *(int *)®isters[REGISTER_BYTE (Y_REGNUM)] = inferior_registers.r_y; for (i = G0_REGNUM; i <= O7_REGNUM; i++) register_valid[i] = 1; register_valid[Y_REGNUM] = 1; register_valid[PS_REGNUM] = 1; register_valid[PC_REGNUM] = 1; register_valid[NPC_REGNUM] = 1; /* If we don't set these valid, read_register_bytes() rereads all the regs every time it is called! FIXME. */ register_valid[WIM_REGNUM] = 1; /* Not true yet, FIXME */ register_valid[TBR_REGNUM] = 1; /* Not true yet, FIXME */ register_valid[CPS_REGNUM] = 1; /* Not true yet, FIXME */ } /* Floating point registers */ if (regno == -1 || regno == FPS_REGNUM || (regno >= FP0_REGNUM && regno <= FP0_REGNUM + 31)) { if (0 != ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers, 0)) perror("ptrace_getfpregs"); memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], &inferior_fp_registers, sizeof inferior_fp_registers.fpu_fr); memcpy (®isters[REGISTER_BYTE (FPS_REGNUM)], &inferior_fp_registers.Fpu_fsr, sizeof (FPU_FSR_TYPE)); for (i = FP0_REGNUM; i <= FP0_REGNUM+31; i++) register_valid[i] = 1; register_valid[FPS_REGNUM] = 1; } /* These regs are saved on the stack by the kernel. Only read them all (16 ptrace calls!) if we really need them. */ if (regno == -1) { target_xfer_memory (*(CORE_ADDR*)®isters[REGISTER_BYTE (SP_REGNUM)], ®isters[REGISTER_BYTE (L0_REGNUM)], 16*REGISTER_RAW_SIZE (L0_REGNUM), 0); for (i = L0_REGNUM; i <= I7_REGNUM; i++) register_valid[i] = 1; } else if (regno >= L0_REGNUM && regno <= I7_REGNUM) { CORE_ADDR sp = *(CORE_ADDR*)®isters[REGISTER_BYTE (SP_REGNUM)]; i = REGISTER_BYTE (regno); if (register_valid[regno]) printf_unfiltered("register %d valid and read\n", regno); target_xfer_memory (sp + i - REGISTER_BYTE (L0_REGNUM), ®isters[i], REGISTER_RAW_SIZE (regno), 0); register_valid[regno] = 1; } } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { struct regs inferior_registers; struct fp_status inferior_fp_registers; int wanna_store = INT_REGS + STACK_REGS + FP_REGS; /* First decide which pieces of machine-state we need to modify. Default for regno == -1 case is all pieces. */ if (regno >= 0) if (FP0_REGNUM <= regno && regno < FP0_REGNUM + 32) { wanna_store = FP_REGS; } else { if (regno == SP_REGNUM) wanna_store = INT_REGS + STACK_REGS; else if (regno < L0_REGNUM || regno > I7_REGNUM) wanna_store = INT_REGS; else if (regno == FPS_REGNUM) wanna_store = FP_REGS; else wanna_store = STACK_REGS; } /* See if we're forcing the stores to happen now, or deferring. */ if (regno == -2) { wanna_store = deferred_stores; deferred_stores = 0; } else { if (wanna_store == STACK_REGS) { /* Fall through and just store one stack reg. If we deferred it, we'd have to store them all, or remember more info. */ } else { deferred_stores |= wanna_store; return; } } if (wanna_store & STACK_REGS) { CORE_ADDR sp = *(CORE_ADDR *)®isters[REGISTER_BYTE (SP_REGNUM)]; if (regno < 0 || regno == SP_REGNUM) { if (!register_valid[L0_REGNUM+5]) abort(); target_xfer_memory (sp, ®isters[REGISTER_BYTE (L0_REGNUM)], 16*REGISTER_RAW_SIZE (L0_REGNUM), 1); } else { if (!register_valid[regno]) abort(); target_xfer_memory (sp + REGISTER_BYTE (regno) - REGISTER_BYTE (L0_REGNUM), ®isters[REGISTER_BYTE (regno)], REGISTER_RAW_SIZE (regno), 1); } } if (wanna_store & INT_REGS) { if (!register_valid[G1_REGNUM]) abort(); memcpy (&inferior_registers.r_g1, ®isters[REGISTER_BYTE (G1_REGNUM)], 15 * REGISTER_RAW_SIZE (G1_REGNUM)); inferior_registers.r_ps = *(int *)®isters[REGISTER_BYTE (PS_REGNUM)]; inferior_registers.r_pc = *(int *)®isters[REGISTER_BYTE (PC_REGNUM)]; inferior_registers.r_npc = *(int *)®isters[REGISTER_BYTE (NPC_REGNUM)]; inferior_registers.r_y = *(int *)®isters[REGISTER_BYTE (Y_REGNUM)]; if (0 != ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers, 0)) perror("ptrace_setregs"); } if (wanna_store & FP_REGS) { if (!register_valid[FP0_REGNUM+9]) abort(); memcpy (&inferior_fp_registers, ®isters[REGISTER_BYTE (FP0_REGNUM)], sizeof inferior_fp_registers.fpu_fr); memcpy (&inferior_fp_registers.Fpu_fsr, ®isters[REGISTER_BYTE (FPS_REGNUM)], sizeof (FPU_FSR_TYPE)); if (0 != ptrace (PTRACE_SETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers, 0)) perror("ptrace_setfpregs"); } } void fetch_core_registers (core_reg_sect, core_reg_size, which, ignore) char *core_reg_sect; unsigned core_reg_size; int which; unsigned int ignore; /* reg addr, unused in this version */ { if (which == 0) { /* Integer registers */ #define gregs ((struct regs *)core_reg_sect) /* G0 *always* holds 0. */ *(int *)®isters[REGISTER_BYTE (0)] = 0; /* The globals and output registers. */ memcpy (®isters[REGISTER_BYTE (G1_REGNUM)], &gregs->r_g1, 15 * REGISTER_RAW_SIZE (G1_REGNUM)); *(int *)®isters[REGISTER_BYTE (PS_REGNUM)] = gregs->r_ps; *(int *)®isters[REGISTER_BYTE (PC_REGNUM)] = gregs->r_pc; *(int *)®isters[REGISTER_BYTE (NPC_REGNUM)] = gregs->r_npc; *(int *)®isters[REGISTER_BYTE (Y_REGNUM)] = gregs->r_y; /* My best guess at where to get the locals and input registers is exactly where they usually are, right above the stack pointer. If the core dump was caused by a bus error from blowing away the stack pointer (as is possible) then this won't work, but it's worth the try. */ { int sp; sp = *(int *)®isters[REGISTER_BYTE (SP_REGNUM)]; if (0 != target_read_memory (sp, ®isters[REGISTER_BYTE (L0_REGNUM)], 16 * REGISTER_RAW_SIZE (L0_REGNUM))) { /* fprintf_unfiltered so user can still use gdb */ fprintf_unfiltered (gdb_stderr, "Couldn't read input and local registers from core file\n"); } } } else if (which == 2) { /* Floating point registers */ #define fpuregs ((struct fpu *) core_reg_sect) if (core_reg_size >= sizeof (struct fpu)) { memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], fpuregs->fpu_regs, sizeof (fpuregs->fpu_regs)); memcpy (®isters[REGISTER_BYTE (FPS_REGNUM)], &fpuregs->fpu_fsr, sizeof (FPU_FSR_TYPE)); } else fprintf_unfiltered (gdb_stderr, "Couldn't read float regs from core file\n"); } } gdb-4.13/gdb/sparc-pinsn.c 666 34562 1752 2252 5465306001 13672 0ustar fnfcygnus/* Print sparc instructions for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "dis-asm.h" /* Print the instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO(info, stream); return print_insn_sparc (memaddr, &info); } gdb-4.13/gdb/sparc-stub.c 666 34562 1752 47642 5533003613 13553 0ustar fnfcygnus/**************************************************************************** THIS SOFTWARE IS NOT COPYRIGHTED HP offers the following for use in the public domain. HP makes no warranty with regard to the software or it's performance and the user accepts the software "AS IS" with all faults. HP DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. ****************************************************************************/ /**************************************************************************** * Header: remcom.c,v 1.34 91/03/09 12:29:49 glenne Exp $ * * Module name: remcom.c $ * Revision: 1.34 $ * Date: 91/03/09 12:29:49 $ * Contributor: Lake Stevens Instrument Division$ * * Description: low level support for gdb debugger. $ * * Considerations: only works on target hardware $ * * Written by: Glenn Engel $ * ModuleState: Experimental $ * * NOTES: See Below $ * * Modified for SPARC by Stu Grossman, Cygnus Support. * * This code has been extensively tested on the Fujitsu SPARClite demo board. * * To enable debugger support, two things need to happen. One, a * call to set_debug_traps() is necessary in order to allow any breakpoints * or error conditions to be properly intercepted and reported to gdb. * Two, a breakpoint needs to be generated to begin communication. This * is most easily accomplished by a call to breakpoint(). Breakpoint() * simulates a breakpoint by executing a trap #1. * ************* * * The following gdb commands are supported: * * command function Return value * * g return the value of the CPU registers hex data or ENN * G set the value of the CPU registers OK or ENN * * mAA..AA,LLLL Read LLLL bytes at address AA..AA hex data or ENN * MAA..AA,LLLL: Write LLLL bytes at address AA.AA OK or ENN * * c Resume at current address SNN ( signal NN) * cAA..AA Continue at address AA..AA SNN * * s Step one instruction SNN * sAA..AA Step one instruction from AA..AA SNN * * k kill * * ? What was the last sigval ? SNN (signal NN) * * bBB..BB Set baud rate to BB..BB OK or BNN, then sets * baud rate * * All commands and responses are sent with a packet which includes a * checksum. A packet consists of * * $#. * * where * :: * :: < two hex digits computed as modulo 256 sum of > * * When a packet is received, it is first acknowledged with either '+' or '-'. * '+' indicates a successful transfer. '-' indicates a failed transfer. * * Example: * * Host: Reply: * $m0,10#2a +$00010203040506070809101112131415#42 * ****************************************************************************/ #include #include /************************************************************************ * * external low-level support routines */ extern putDebugChar(); /* write a single character */ extern getDebugChar(); /* read and return a single char */ /************************************************************************/ /* BUFMAX defines the maximum number of characters in inbound/outbound buffers*/ /* at least NUMREGBYTES*2 are needed for register packets */ #define BUFMAX 2048 static int initialized = 0; /* !0 means we've been initialized */ static void set_mem_fault_trap(); static const char hexchars[]="0123456789abcdef"; #define NUMREGS 72 /* Number of bytes of registers. */ #define NUMREGBYTES (NUMREGS * 4) enum regnames {G0, G1, G2, G3, G4, G5, G6, G7, O0, O1, O2, O3, O4, O5, SP, O7, L0, L1, L2, L3, L4, L5, L6, L7, I0, I1, I2, I3, I4, I5, FP, I7, F0, F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, F12, F13, F14, F15, F16, F17, F18, F19, F20, F21, F22, F23, F24, F25, F26, F27, F28, F29, F30, F31, Y, PSR, WIM, TBR, PC, NPC, FPSR, CPSR }; /*************************** ASSEMBLY CODE MACROS *************************/ /* */ extern void trap_low(); asm(" .reserve trapstack, 1000 * 4, \"bss\", 8 .data .align 4 in_trap_handler: .word 0 .text .align 4 ! This function is called when any SPARC trap (except window overflow or ! underflow) occurs. It makes sure that the invalid register window is still ! available before jumping into C code. It will also restore the world if you ! return from handle_exception. .globl _trap_low _trap_low: mov %psr, %l0 mov %wim, %l3 srl %l3, %l0, %l4 ! wim >> cwp cmp %l4, 1 bne window_fine ! Branch if not in the invalid window nop ! Handle window overflow mov %g1, %l4 ! Save g1, we use it to hold the wim srl %l3, 1, %g1 ! Rotate wim right tst %g1 bg good_wim ! Branch if new wim is non-zero ! At this point, we need to bring a 1 into the high order bit of the wim. ! Since we don't want to make any assumptions about the number of register ! windows, we figure it out dynamically so as to setup the wim correctly. not %g1 ! Fill g1 with ones mov %g1, %wim ! Fill the wim with ones nop nop nop mov %wim, %g1 ! Read back the wim inc %g1 ! Now g1 has 1 just to left of wim srl %g1, 1, %g1 ! Now put 1 at top of wim mov %g0, %wim ! Clear wim so that subsequent save nop ! won't trap nop nop good_wim: save %g0, %g0, %g0 ! Slip into next window mov %g1, %wim ! Install the new wim std %l0, [%sp + 0 * 4] ! save L & I registers std %l2, [%sp + 2 * 4] std %l4, [%sp + 4 * 4] std %l6, [%sp + 6 * 4] std %i0, [%sp + 8 * 4] std %i2, [%sp + 10 * 4] std %i4, [%sp + 12 * 4] std %i6, [%sp + 14 * 4] restore ! Go back to trap window. mov %l4, %g1 ! Restore %g1 window_fine: sethi %hi(in_trap_handler), %l4 ld [%lo(in_trap_handler) + %l4], %l5 tst %l5 bg recursive_trap inc %l5 set trapstack+1000*4, %sp ! Switch to trap stack recursive_trap: st %l5, [%lo(in_trap_handler) + %l4] sub %sp,(16+1+6+1+72)*4,%sp ! Make room for input & locals ! + hidden arg + arg spill ! + doubleword alignment ! + registers[72] local var std %g0, [%sp + (24 + 0) * 4] ! registers[Gx] std %g2, [%sp + (24 + 2) * 4] std %g4, [%sp + (24 + 4) * 4] std %g6, [%sp + (24 + 6) * 4] std %i0, [%sp + (24 + 8) * 4] ! registers[Ox] std %i2, [%sp + (24 + 10) * 4] std %i4, [%sp + (24 + 12) * 4] std %i6, [%sp + (24 + 14) * 4] ! F0->F31 not implemented mov %y, %l4 mov %tbr, %l5 st %l4, [%sp + (24 + 64) * 4] ! Y st %l0, [%sp + (24 + 65) * 4] ! PSR st %l3, [%sp + (24 + 66) * 4] ! WIM st %l5, [%sp + (24 + 67) * 4] ! TBR st %l1, [%sp + (24 + 68) * 4] ! PC st %l2, [%sp + (24 + 69) * 4] ! NPC ! CPSR and FPSR not impl or %l0, 0xf20, %l4 mov %l4, %psr ! Turn on traps, disable interrupts call _handle_exception add %sp, 24 * 4, %o0 ! Pass address of registers ! Reload all of the registers that aren't on the stack ld [%sp + (24 + 1) * 4], %g1 ! registers[Gx] ldd [%sp + (24 + 2) * 4], %g2 ldd [%sp + (24 + 4) * 4], %g4 ldd [%sp + (24 + 6) * 4], %g6 ldd [%sp + (24 + 8) * 4], %i0 ! registers[Ox] ldd [%sp + (24 + 10) * 4], %i2 ldd [%sp + (24 + 12) * 4], %i4 ldd [%sp + (24 + 14) * 4], %i6 ldd [%sp + (24 + 64) * 4], %l0 ! Y & PSR ldd [%sp + (24 + 68) * 4], %l2 ! PC & NPC restore ! Ensure that previous window is valid save %g0, %g0, %g0 ! by causing a window_underflow trap mov %l0, %y mov %l1, %psr ! Make sure that traps are disabled ! for rett sethi %hi(in_trap_handler), %l4 ld [%lo(in_trap_handler) + %l4], %l5 dec %l5 st %l5, [%lo(in_trap_handler) + %l4] jmpl %l2, %g0 ! Restore old PC rett %l3 ! Restore old nPC "); /* Convert ch from a hex digit to an int */ static int hex(ch) unsigned char ch; { if (ch >= 'a' && ch <= 'f') return ch-'a'+10; if (ch >= '0' && ch <= '9') return ch-'0'; if (ch >= 'A' && ch <= 'F') return ch-'A'+10; return -1; } /* scan for the sequence $# */ static void getpacket(buffer) char *buffer; { unsigned char checksum; unsigned char xmitcsum; int i; int count; unsigned char ch; do { /* wait around for the start character, ignore all other characters */ while ((ch = getDebugChar()) != '$') ; checksum = 0; xmitcsum = -1; count = 0; /* now, read until a # or end of buffer is found */ while (count < BUFMAX) { ch = getDebugChar(); if (ch == '#') break; checksum = checksum + ch; buffer[count] = ch; count = count + 1; } if (count >= BUFMAX) continue; buffer[count] = 0; if (ch == '#') { xmitcsum = hex(getDebugChar()) << 4; xmitcsum |= hex(getDebugChar()); #if 0 /* Humans shouldn't have to figure out checksums to type to it. */ putDebugChar ('+'); return; #endif if (checksum != xmitcsum) putDebugChar('-'); /* failed checksum */ else { putDebugChar('+'); /* successful transfer */ /* if a sequence char is present, reply the sequence ID */ if (buffer[2] == ':') { putDebugChar(buffer[0]); putDebugChar(buffer[1]); /* remove sequence chars from buffer */ count = strlen(buffer); for (i=3; i <= count; i++) buffer[i-3] = buffer[i]; } } } } while (checksum != xmitcsum); } /* send the packet in buffer. */ static void putpacket(buffer) unsigned char *buffer; { unsigned char checksum; int count; unsigned char ch; /* $#. */ do { putDebugChar('$'); checksum = 0; count = 0; while (ch = buffer[count]) { if (! putDebugChar(ch)) return; checksum += ch; count += 1; } putDebugChar('#'); putDebugChar(hexchars[checksum >> 4]); putDebugChar(hexchars[checksum & 0xf]); } while (getDebugChar() != '+'); } static char remcomInBuffer[BUFMAX]; static char remcomOutBuffer[BUFMAX]; /* Indicate to caller of mem2hex or hex2mem that there has been an error. */ static volatile int mem_err = 0; /* Convert the memory pointed to by mem into hex, placing result in buf. * Return a pointer to the last char put in buf (null), in case of mem fault, * return 0. * If MAY_FAULT is non-zero, then we will handle memory faults by returning * a 0, else treat a fault like any other fault in the stub. */ static unsigned char * mem2hex(mem, buf, count, may_fault) unsigned char *mem; unsigned char *buf; int count; int may_fault; { unsigned char ch; set_mem_fault_trap(may_fault); while (count-- > 0) { ch = *mem++; if (mem_err) return 0; *buf++ = hexchars[ch >> 4]; *buf++ = hexchars[ch & 0xf]; } *buf = 0; set_mem_fault_trap(0); return buf; } /* convert the hex array pointed to by buf into binary to be placed in mem * return a pointer to the character AFTER the last byte written */ static char * hex2mem(buf, mem, count, may_fault) unsigned char *buf; unsigned char *mem; int count; int may_fault; { int i; unsigned char ch; set_mem_fault_trap(may_fault); for (i=0; itt && ht->signo; ht++) exceptionHandler(ht->tt, trap_low); /* In case GDB is started before us, ack any packets (presumably "$?#xx") sitting there. */ putDebugChar ('+'); initialized = 1; } asm (" ! Trap handler for memory errors. This just sets mem_err to be non-zero. It ! assumes that %l1 is non-zero. This should be safe, as it is doubtful that ! 0 would ever contain code that could mem fault. This routine will skip ! past the faulting instruction after setting mem_err. .text .align 4 _fltr_set_mem_err: sethi %hi(_mem_err), %l0 st %l1, [%l0 + %lo(_mem_err)] jmpl %l2, %g0 rett %l2+4 "); static void set_mem_fault_trap(enable) int enable; { extern void fltr_set_mem_err(); mem_err = 0; if (enable) exceptionHandler(9, fltr_set_mem_err); else exceptionHandler(9, trap_low); } /* Convert the SPARC hardware trap type code to a unix signal number. */ static int computeSignal(tt) int tt; { struct hard_trap_info *ht; for (ht = hard_trap_info; ht->tt && ht->signo; ht++) if (ht->tt == tt) return ht->signo; return SIGHUP; /* default for things we don't know about */ } /* * While we find nice hex chars, build an int. * Return number of chars processed. */ static int hexToInt(char **ptr, int *intValue) { int numChars = 0; int hexValue; *intValue = 0; while (**ptr) { hexValue = hex(**ptr); if (hexValue < 0) break; *intValue = (*intValue << 4) | hexValue; numChars ++; (*ptr)++; } return (numChars); } /* * This function does all command procesing for interfacing to gdb. It * returns 1 if you should skip the instruction at the trap address, 0 * otherwise. */ extern void breakinst(); static void handle_exception (registers) unsigned long *registers; { int tt; /* Trap type */ int sigval; int addr; int length; char *ptr; unsigned long *sp; /* First, we must force all of the windows to be spilled out */ asm(" save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp restore restore restore restore restore restore restore restore "); if (registers[PC] == (unsigned long)breakinst) { registers[PC] = registers[NPC]; registers[NPC] += 4; } sp = (unsigned long *)registers[SP]; tt = (registers[TBR] >> 4) & 0xff; /* reply to host that an exception has occurred */ sigval = computeSignal(tt); ptr = remcomOutBuffer; *ptr++ = 'T'; *ptr++ = hexchars[sigval >> 4]; *ptr++ = hexchars[sigval & 0xf]; *ptr++ = hexchars[PC >> 4]; *ptr++ = hexchars[PC & 0xf]; *ptr++ = ':'; ptr = mem2hex((char *)®isters[PC], ptr, 4, 0); *ptr++ = ';'; *ptr++ = hexchars[FP >> 4]; *ptr++ = hexchars[FP & 0xf]; *ptr++ = ':'; ptr = mem2hex(sp + 8 + 6, ptr, 4, 0); /* FP */ *ptr++ = ';'; *ptr++ = hexchars[SP >> 4]; *ptr++ = hexchars[SP & 0xf]; *ptr++ = ':'; ptr = mem2hex((char *)&sp, ptr, 4, 0); *ptr++ = ';'; *ptr++ = hexchars[NPC >> 4]; *ptr++ = hexchars[NPC & 0xf]; *ptr++ = ':'; ptr = mem2hex((char *)®isters[NPC], ptr, 4, 0); *ptr++ = ';'; *ptr++ = hexchars[O7 >> 4]; *ptr++ = hexchars[O7 & 0xf]; *ptr++ = ':'; ptr = mem2hex((char *)®isters[O7], ptr, 4, 0); *ptr++ = ';'; *ptr++ = 0; putpacket(remcomOutBuffer); while (1) { remcomOutBuffer[0] = 0; getpacket(remcomInBuffer); switch (remcomInBuffer[0]) { case '?': remcomOutBuffer[0] = 'S'; remcomOutBuffer[1] = hexchars[sigval >> 4]; remcomOutBuffer[2] = hexchars[sigval & 0xf]; remcomOutBuffer[3] = 0; break; case 'd': /* toggle debug flag */ break; case 'g': /* return the value of the CPU registers */ { ptr = remcomOutBuffer; ptr = mem2hex((char *)registers, ptr, 16 * 4, 0); /* G & O regs */ ptr = mem2hex(sp + 0, ptr, 16 * 4, 0); /* L & I regs */ memset(ptr, '0', 32 * 8); /* Floating point */ mem2hex((char *)®isters[Y], ptr + 32 * 4 * 2, 8 * 4, 0); /* Y, PSR, WIM, TBR, PC, NPC, FPSR, CPSR */ } break; case 'G': /* set the value of the CPU registers - return OK */ { unsigned long *newsp, psr; psr = registers[PSR]; ptr = &remcomInBuffer[1]; hex2mem(ptr, (char *)registers, 16 * 4, 0); /* G & O regs */ hex2mem(ptr + 16 * 4 * 2, sp + 0, 16 * 4, 0); /* L & I regs */ hex2mem(ptr + 64 * 4 * 2, (char *)®isters[Y], 8 * 4, 0); /* Y, PSR, WIM, TBR, PC, NPC, FPSR, CPSR */ /* See if the stack pointer has moved. If so, then copy the saved locals and ins to the new location. This keeps the window overflow and underflow routines happy. */ newsp = (unsigned long *)registers[SP]; if (sp != newsp) sp = memcpy(newsp, sp, 16 * 4); /* Don't allow CWP to be modified. */ if (psr != registers[PSR]) registers[PSR] = (psr & 0x1f) | (registers[PSR] & ~0x1f); strcpy(remcomOutBuffer,"OK"); } break; case 'm': /* mAA..AA,LLLL Read LLLL bytes at address AA..AA */ /* Try to read %x,%x. */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr, &addr) && *ptr++ == ',' && hexToInt(&ptr, &length)) { if (mem2hex((char *)addr, remcomOutBuffer, length, 1)) break; strcpy (remcomOutBuffer, "E03"); } else strcpy(remcomOutBuffer,"E01"); break; case 'M': /* MAA..AA,LLLL: Write LLLL bytes at address AA.AA return OK */ /* Try to read '%x,%x:'. */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr, &addr) && *ptr++ == ',' && hexToInt(&ptr, &length) && *ptr++ == ':') { if (hex2mem(ptr, (char *)addr, length, 1)) strcpy(remcomOutBuffer, "OK"); else strcpy(remcomOutBuffer, "E03"); } else strcpy(remcomOutBuffer, "E02"); break; case 'c': /* cAA..AA Continue at address AA..AA(optional) */ /* try to read optional parameter, pc unchanged if no parm */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr, &addr)) { registers[PC] = addr; registers[NPC] = addr + 4; } /* Need to flush the instruction cache here, as we may have deposited a breakpoint, and the icache probably has no way of knowing that a data ref to some location may have changed something that is in the instruction cache. */ flush_i_cache(); return; /* kill the program */ case 'k' : /* do nothing */ break; #if 0 case 't': /* Test feature */ asm (" std %f30,[%sp]"); break; #endif case 'r': /* Reset */ asm ("call 0 nop "); break; #if 0 Disabled until we can unscrew this properly case 'b': /* bBB... Set baud rate to BB... */ { int baudrate; extern void set_timer_3(); ptr = &remcomInBuffer[1]; if (!hexToInt(&ptr, &baudrate)) { strcpy(remcomOutBuffer,"B01"); break; } /* Convert baud rate to uart clock divider */ switch (baudrate) { case 38400: baudrate = 16; break; case 19200: baudrate = 33; break; case 9600: baudrate = 65; break; default: strcpy(remcomOutBuffer,"B02"); goto x1; } putpacket("OK"); /* Ack before changing speed */ set_timer_3(baudrate); /* Set it */ } x1: break; #endif } /* switch */ /* reply to the request */ putpacket(remcomOutBuffer); } } /* This function will generate a breakpoint exception. It is used at the beginning of a program to sync up with a debugger and can be used otherwise as a quick means to stop program execution and "break" into the debugger. */ void breakpoint() { if (!initialized) return; asm(" .globl _breakinst _breakinst: ta 1 "); } gdb-4.13/gdb/sparc-tdep.c 666 34562 1752 56454 5546760075 13553 0ustar fnfcygnus/* Target-dependent code for the SPARC for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "obstack.h" #include "target.h" #include "value.h" #ifdef USE_PROC_FS #include #endif #include "gdbcore.h" /* From infrun.c */ extern int stop_after_trap; /* We don't store all registers immediately when requested, since they get sent over in large chunks anyway. Instead, we accumulate most of the changes and send them over once. "deferred_stores" keeps track of which sets of registers we have locally-changed copies of, so we only need send the groups that have changed. */ int deferred_stores = 0; /* Cumulates stores we want to do eventually. */ typedef enum { Error, not_branch, bicc, bicca, ba, baa, ticc, ta } branch_type; /* Simulate single-step ptrace call for sun4. Code written by Gary Beihl (beihl@mcc.com). */ /* npc4 and next_pc describe the situation at the time that the step-breakpoint was set, not necessary the current value of NPC_REGNUM. */ static CORE_ADDR next_pc, npc4, target; static int brknpc4, brktrg; typedef char binsn_quantum[BREAKPOINT_MAX]; static binsn_quantum break_mem[3]; /* Non-zero if we just simulated a single-step ptrace call. This is needed because we cannot remove the breakpoints in the inferior process until after the `wait' in `wait_for_inferior'. Used for sun4. */ int one_stepped; /* single_step() is called just before we want to resume the inferior, if we want to single-step it but there is no hardware or kernel single-step support (as on all SPARCs). We find all the possible targets of the coming instruction and breakpoint them. single_step is also called just after the inferior stops. If we had set up a simulated single-step, we undo our damage. */ void single_step (ignore) int ignore; /* pid, but we don't need it */ { branch_type br, isannulled(); CORE_ADDR pc; long pc_instruction; if (!one_stepped) { /* Always set breakpoint for NPC. */ next_pc = read_register (NPC_REGNUM); npc4 = next_pc + 4; /* branch not taken */ target_insert_breakpoint (next_pc, break_mem[0]); /* printf_unfiltered ("set break at %x\n",next_pc); */ pc = read_register (PC_REGNUM); pc_instruction = read_memory_integer (pc, sizeof(pc_instruction)); br = isannulled (pc_instruction, pc, &target); brknpc4 = brktrg = 0; if (br == bicca) { /* Conditional annulled branch will either end up at npc (if taken) or at npc+4 (if not taken). Trap npc+4. */ brknpc4 = 1; target_insert_breakpoint (npc4, break_mem[1]); } else if (br == baa && target != next_pc) { /* Unconditional annulled branch will always end up at the target. */ brktrg = 1; target_insert_breakpoint (target, break_mem[2]); } /* We are ready to let it go */ one_stepped = 1; return; } else { /* Remove breakpoints */ target_remove_breakpoint (next_pc, break_mem[0]); if (brknpc4) target_remove_breakpoint (npc4, break_mem[1]); if (brktrg) target_remove_breakpoint (target, break_mem[2]); one_stepped = 0; } } CORE_ADDR sparc_frame_chain (thisframe) FRAME thisframe; { char buf[MAX_REGISTER_RAW_SIZE]; int err; CORE_ADDR addr; addr = thisframe->frame + FRAME_SAVED_I0 + REGISTER_RAW_SIZE (FP_REGNUM) * (FP_REGNUM - I0_REGNUM); err = target_read_memory (addr, buf, REGISTER_RAW_SIZE (FP_REGNUM)); if (err) return 0; return extract_address (buf, REGISTER_RAW_SIZE (FP_REGNUM)); } CORE_ADDR sparc_extract_struct_value_address (regbuf) char regbuf[REGISTER_BYTES]; { return read_memory_integer (((int *)(regbuf))[SP_REGNUM]+(16*4), TARGET_PTR_BIT / TARGET_CHAR_BIT); } /* Find the pc saved in frame FRAME. */ CORE_ADDR sparc_frame_saved_pc (frame) FRAME frame; { char buf[MAX_REGISTER_RAW_SIZE]; CORE_ADDR addr; if (frame->signal_handler_caller) { /* This is the signal trampoline frame. Get the saved PC from the sigcontext structure. */ #ifndef SIGCONTEXT_PC_OFFSET #define SIGCONTEXT_PC_OFFSET 12 #endif CORE_ADDR sigcontext_addr; char scbuf[TARGET_PTR_BIT / HOST_CHAR_BIT]; int saved_pc_offset = SIGCONTEXT_PC_OFFSET; char *name = NULL; /* Solaris2 ucbsigvechandler passes a pointer to a sigcontext as the third parameter. The offset to the saved pc is 12. */ find_pc_partial_function (frame->pc, &name, (CORE_ADDR *)NULL,(CORE_ADDR *)NULL); if (name && STREQ (name, "ucbsigvechandler")) saved_pc_offset = 12; /* The sigcontext address is contained in register O2. */ get_saved_register (buf, (int *)NULL, (CORE_ADDR *)NULL, frame, O0_REGNUM + 2, (enum lval_type *)NULL); sigcontext_addr = extract_address (buf, REGISTER_RAW_SIZE (O0_REGNUM)); /* Don't cause a memory_error when accessing sigcontext in case the stack layout has changed or the stack is corrupt. */ target_read_memory (sigcontext_addr + saved_pc_offset, scbuf, sizeof (scbuf)); return extract_address (scbuf, sizeof (scbuf)); } addr = (frame->bottom + FRAME_SAVED_I0 + REGISTER_RAW_SIZE (I7_REGNUM) * (I7_REGNUM - I0_REGNUM)); read_memory (addr, buf, REGISTER_RAW_SIZE (I7_REGNUM)); return PC_ADJUST (extract_address (buf, REGISTER_RAW_SIZE (I7_REGNUM))); } /* * Since an individual frame in the frame cache is defined by two * arguments (a frame pointer and a stack pointer), we need two * arguments to get info for an arbitrary stack frame. This routine * takes two arguments and makes the cached frames look as if these * two arguments defined a frame on the cache. This allows the rest * of info frame to extract the important arguments without * difficulty. */ FRAME setup_arbitrary_frame (argc, argv) int argc; FRAME_ADDR *argv; { FRAME fid; if (argc != 2) error ("Sparc frame specifications require two arguments: fp and sp"); fid = create_new_frame (argv[0], 0); if (!fid) fatal ("internal: create_new_frame returned invalid frame id"); fid->bottom = argv[1]; fid->pc = FRAME_SAVED_PC (fid); return fid; } /* Given a pc value, skip it forward past the function prologue by disassembling instructions that appear to be a prologue. If FRAMELESS_P is set, we are only testing to see if the function is frameless. This allows a quicker answer. This routine should be more specific in its actions; making sure that it uses the same register in the initial prologue section. */ CORE_ADDR skip_prologue (start_pc, frameless_p) CORE_ADDR start_pc; int frameless_p; { union { unsigned long int code; struct { unsigned int op:2; unsigned int rd:5; unsigned int op2:3; unsigned int imm22:22; } sethi; struct { unsigned int op:2; unsigned int rd:5; unsigned int op3:6; unsigned int rs1:5; unsigned int i:1; unsigned int simm13:13; } add; int i; } x; int dest = -1; CORE_ADDR pc = start_pc; x.i = read_memory_integer (pc, 4); /* Recognize the `sethi' insn and record its destination. */ if (x.sethi.op == 0 && x.sethi.op2 == 4) { dest = x.sethi.rd; pc += 4; x.i = read_memory_integer (pc, 4); } /* Recognize an add immediate value to register to either %g1 or the destination register recorded above. Actually, this might well recognize several different arithmetic operations. It doesn't check that rs1 == rd because in theory "sub %g0, 5, %g1" followed by "save %sp, %g1, %sp" is a valid prologue (Not that I imagine any compiler really does that, however). */ if (x.add.op == 2 && x.add.i && (x.add.rd == 1 || x.add.rd == dest)) { pc += 4; x.i = read_memory_integer (pc, 4); } /* This recognizes any SAVE insn. But why do the XOR and then the compare? That's identical to comparing against 60 (as long as there isn't any sign extension). */ if (x.add.op == 2 && (x.add.op3 ^ 32) == 28) { pc += 4; if (frameless_p) /* If the save is all we care about, */ return pc; /* return before doing more work */ x.i = read_memory_integer (pc, 4); } else { /* Without a save instruction, it's not a prologue. */ return start_pc; } /* Now we need to recognize stores into the frame from the input registers. This recognizes all non alternate stores of input register, into a location offset from the frame pointer. */ while (x.add.op == 3 && (x.add.op3 & 0x3c) == 4 /* Store, non-alternate. */ && (x.add.rd & 0x18) == 0x18 /* Input register. */ && x.add.i /* Immediate mode. */ && x.add.rs1 == 30 /* Off of frame pointer. */ /* Into reserved stack space. */ && x.add.simm13 >= 0x44 && x.add.simm13 < 0x5b) { pc += 4; x.i = read_memory_integer (pc, 4); } return pc; } /* Check instruction at ADDR to see if it is an annulled branch. All other instructions will go to NPC or will trap. Set *TARGET if we find a canidate branch; set to zero if not. */ branch_type isannulled (instruction, addr, target) long instruction; CORE_ADDR addr, *target; { branch_type val = not_branch; long int offset; /* Must be signed for sign-extend. */ union { unsigned long int code; struct { unsigned int op:2; unsigned int a:1; unsigned int cond:4; unsigned int op2:3; unsigned int disp22:22; } b; } insn; *target = 0; insn.code = instruction; if (insn.b.op == 0 && (insn.b.op2 == 2 || insn.b.op2 == 6 || insn.b.op2 == 7)) { if (insn.b.cond == 8) val = insn.b.a ? baa : ba; else val = insn.b.a ? bicca : bicc; offset = 4 * ((int) (insn.b.disp22 << 10) >> 10); *target = addr + offset; } return val; } /* sparc_frame_find_saved_regs () Stores, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. Note that on register window machines, we are currently making the assumption that window registers are being saved somewhere in the frame in which they are being used. If they are stored in an inferior frame, find_saved_register will break. On the Sun 4, the only time all registers are saved is when a dummy frame is involved. Otherwise, the only saved registers are the LOCAL and IN registers which are saved as a result of the "save/restore" opcodes. This condition is determined by address rather than by value. The "pc" is not stored in a frame on the SPARC. (What is stored is a return address minus 8.) sparc_pop_frame knows how to deal with that. Other routines might or might not. See tm-sparc.h (PUSH_FRAME and friends) for CRITICAL information about how this works. */ void sparc_frame_find_saved_regs (fi, saved_regs_addr) struct frame_info *fi; struct frame_saved_regs *saved_regs_addr; { register int regnum; FRAME_ADDR frame = FRAME_FP(fi); FRAME fid = FRAME_INFO_ID (fi); if (!fid) fatal ("Bad frame info struct in FRAME_FIND_SAVED_REGS"); memset (saved_regs_addr, 0, sizeof (*saved_regs_addr)); if (fi->pc >= (fi->bottom ? fi->bottom : read_register (SP_REGNUM)) && fi->pc <= FRAME_FP(fi)) { /* Dummy frame. All but the window regs are in there somewhere. */ for (regnum = G1_REGNUM; regnum < G1_REGNUM+7; regnum++) saved_regs_addr->regs[regnum] = frame + (regnum - G0_REGNUM) * 4 - 0xa0; for (regnum = I0_REGNUM; regnum < I0_REGNUM+8; regnum++) saved_regs_addr->regs[regnum] = frame + (regnum - I0_REGNUM) * 4 - 0xc0; for (regnum = FP0_REGNUM; regnum < FP0_REGNUM + 32; regnum++) saved_regs_addr->regs[regnum] = frame + (regnum - FP0_REGNUM) * 4 - 0x80; for (regnum = Y_REGNUM; regnum < NUM_REGS; regnum++) saved_regs_addr->regs[regnum] = frame + (regnum - Y_REGNUM) * 4 - 0xe0; frame = fi->bottom ? fi->bottom : read_register (SP_REGNUM); } else { /* Normal frame. Just Local and In registers */ frame = fi->bottom ? fi->bottom : read_register (SP_REGNUM); for (regnum = L0_REGNUM; regnum < L0_REGNUM+16; regnum++) saved_regs_addr->regs[regnum] = frame + (regnum - L0_REGNUM) * REGISTER_RAW_SIZE (L0_REGNUM); } if (fi->next) { /* Pull off either the next frame pointer or the stack pointer */ FRAME_ADDR next_next_frame = (fi->next->bottom ? fi->next->bottom : read_register (SP_REGNUM)); for (regnum = O0_REGNUM; regnum < O0_REGNUM+8; regnum++) saved_regs_addr->regs[regnum] = next_next_frame + regnum * REGISTER_RAW_SIZE (O0_REGNUM); } /* Otherwise, whatever we would get from ptrace(GETREGS) is accurate */ saved_regs_addr->regs[SP_REGNUM] = FRAME_FP (fi); } /* Push an empty stack frame, and record in it the current PC, regs, etc. We save the non-windowed registers and the ins. The locals and outs are new; they don't need to be saved. The i's and l's of the last frame were already saved on the stack. */ /* Definitely see tm-sparc.h for more doc of the frame format here. */ void sparc_push_dummy_frame () { CORE_ADDR sp, old_sp; char register_temp[0x140]; old_sp = sp = read_register (SP_REGNUM); /* Y, PS, WIM, TBR, PC, NPC, FPS, CPS regs */ read_register_bytes (REGISTER_BYTE (Y_REGNUM), ®ister_temp[0], REGISTER_RAW_SIZE (Y_REGNUM) * 8); read_register_bytes (REGISTER_BYTE (O0_REGNUM), ®ister_temp[8 * 4], REGISTER_RAW_SIZE (O0_REGNUM) * 8); read_register_bytes (REGISTER_BYTE (G0_REGNUM), ®ister_temp[16 * 4], REGISTER_RAW_SIZE (G0_REGNUM) * 8); read_register_bytes (REGISTER_BYTE (FP0_REGNUM), ®ister_temp[24 * 4], REGISTER_RAW_SIZE (FP0_REGNUM) * 32); sp -= 0x140; write_register (SP_REGNUM, sp); write_memory (sp + 0x60, ®ister_temp[0], (8 + 8 + 8 + 32) * 4); write_register (FP_REGNUM, old_sp); /* Set return address register for the call dummy to the current PC. */ write_register (I7_REGNUM, read_pc() - 8); } /* Discard from the stack the innermost frame, restoring all saved registers. Note that the values stored in fsr by get_frame_saved_regs are *in the context of the called frame*. What this means is that the i regs of fsr must be restored into the o regs of the (calling) frame that we pop into. We don't care about the output regs of the calling frame, since unless it's a dummy frame, it won't have any output regs in it. We never have to bother with %l (local) regs, since the called routine's locals get tossed, and the calling routine's locals are already saved on its stack. */ /* Definitely see tm-sparc.h for more doc of the frame format here. */ void sparc_pop_frame () { register FRAME frame = get_current_frame (); register CORE_ADDR pc; struct frame_saved_regs fsr; struct frame_info *fi; char raw_buffer[REGISTER_BYTES]; fi = get_frame_info (frame); get_frame_saved_regs (fi, &fsr); if (fsr.regs[FP0_REGNUM]) { read_memory (fsr.regs[FP0_REGNUM], raw_buffer, 32 * 4); write_register_bytes (REGISTER_BYTE (FP0_REGNUM), raw_buffer, 32 * 4); } if (fsr.regs[FPS_REGNUM]) { read_memory (fsr.regs[FPS_REGNUM], raw_buffer, 4); write_register_bytes (REGISTER_BYTE (FPS_REGNUM), raw_buffer, 4); } if (fsr.regs[CPS_REGNUM]) { read_memory (fsr.regs[CPS_REGNUM], raw_buffer, 4); write_register_bytes (REGISTER_BYTE (CPS_REGNUM), raw_buffer, 4); } if (fsr.regs[G1_REGNUM]) { read_memory (fsr.regs[G1_REGNUM], raw_buffer, 7 * 4); write_register_bytes (REGISTER_BYTE (G1_REGNUM), raw_buffer, 7 * 4); } if (fsr.regs[I0_REGNUM]) { CORE_ADDR sp; char reg_temp[REGISTER_BYTES]; read_memory (fsr.regs[I0_REGNUM], raw_buffer, 8 * 4); /* Get the ins and locals which we are about to restore. Just moving the stack pointer is all that is really needed, except store_inferior_registers is then going to write the ins and locals from the registers array, so we need to muck with the registers array. */ sp = fsr.regs[SP_REGNUM]; read_memory (sp, reg_temp, REGISTER_RAW_SIZE (L0_REGNUM) * 16); /* Restore the out registers. Among other things this writes the new stack pointer. */ write_register_bytes (REGISTER_BYTE (O0_REGNUM), raw_buffer, REGISTER_RAW_SIZE (O0_REGNUM) * 8); write_register_bytes (REGISTER_BYTE (L0_REGNUM), reg_temp, REGISTER_RAW_SIZE (L0_REGNUM) * 16); } if (fsr.regs[PS_REGNUM]) write_register (PS_REGNUM, read_memory_integer (fsr.regs[PS_REGNUM], 4)); if (fsr.regs[Y_REGNUM]) write_register (Y_REGNUM, read_memory_integer (fsr.regs[Y_REGNUM], 4)); if (fsr.regs[PC_REGNUM]) { /* Explicitly specified PC (and maybe NPC) -- just restore them. */ write_register (PC_REGNUM, read_memory_integer (fsr.regs[PC_REGNUM], 4)); if (fsr.regs[NPC_REGNUM]) write_register (NPC_REGNUM, read_memory_integer (fsr.regs[NPC_REGNUM], 4)); } else if (fsr.regs[I7_REGNUM]) { /* Return address in %i7 -- adjust it, then restore PC and NPC from it */ pc = PC_ADJUST (read_memory_integer (fsr.regs[I7_REGNUM], 4)); write_register (PC_REGNUM, pc); write_register (NPC_REGNUM, pc + 4); } flush_cached_frames (); set_current_frame ( create_new_frame (read_register (FP_REGNUM), read_pc ())); } /* On the Sun 4 under SunOS, the compile will leave a fake insn which encodes the structure size being returned. If we detect such a fake insn, step past it. */ CORE_ADDR sparc_pc_adjust(pc) CORE_ADDR pc; { unsigned long insn; char buf[4]; int err; err = target_read_memory (pc + 8, buf, sizeof(long)); insn = extract_unsigned_integer (buf, 4); if ((err == 0) && (insn & 0xfffffe00) == 0) return pc+12; else return pc+8; } #ifdef USE_PROC_FS /* Target dependent support for /proc */ /* The /proc interface divides the target machine's register set up into two different sets, the general register set (gregset) and the floating point register set (fpregset). For each set, there is an ioctl to get the current register set and another ioctl to set the current values. The actual structure passed through the ioctl interface is, of course, naturally machine dependent, and is different for each set of registers. For the sparc for example, the general register set is typically defined by: typedef int gregset_t[38]; #define R_G0 0 ... #define R_TBR 37 and the floating point set by: typedef struct prfpregset { union { u_long pr_regs[32]; double pr_dregs[16]; } pr_fr; void * pr_filler; u_long pr_fsr; u_char pr_qcnt; u_char pr_q_entrysize; u_char pr_en; u_long pr_q[64]; } prfpregset_t; These routines provide the packing and unpacking of gregset_t and fpregset_t formatted data. */ /* Given a pointer to a general register set in /proc format (gregset_t *), unpack the register contents and supply them as gdb's idea of the current register values. */ void supply_gregset (gregsetp) prgregset_t *gregsetp; { register int regi; register prgreg_t *regp = (prgreg_t *) gregsetp; /* GDB register numbers for Gn, On, Ln, In all match /proc reg numbers. */ for (regi = G0_REGNUM ; regi <= I7_REGNUM ; regi++) { supply_register (regi, (char *) (regp + regi)); } /* These require a bit more care. */ supply_register (PS_REGNUM, (char *) (regp + R_PS)); supply_register (PC_REGNUM, (char *) (regp + R_PC)); supply_register (NPC_REGNUM,(char *) (regp + R_nPC)); supply_register (Y_REGNUM, (char *) (regp + R_Y)); } void fill_gregset (gregsetp, regno) prgregset_t *gregsetp; int regno; { int regi; register prgreg_t *regp = (prgreg_t *) gregsetp; extern char registers[]; for (regi = 0 ; regi <= R_I7 ; regi++) { if ((regno == -1) || (regno == regi)) { *(regp + regi) = *(int *) ®isters[REGISTER_BYTE (regi)]; } } if ((regno == -1) || (regno == PS_REGNUM)) { *(regp + R_PS) = *(int *) ®isters[REGISTER_BYTE (PS_REGNUM)]; } if ((regno == -1) || (regno == PC_REGNUM)) { *(regp + R_PC) = *(int *) ®isters[REGISTER_BYTE (PC_REGNUM)]; } if ((regno == -1) || (regno == NPC_REGNUM)) { *(regp + R_nPC) = *(int *) ®isters[REGISTER_BYTE (NPC_REGNUM)]; } if ((regno == -1) || (regno == Y_REGNUM)) { *(regp + R_Y) = *(int *) ®isters[REGISTER_BYTE (Y_REGNUM)]; } } #if defined (FP0_REGNUM) /* Given a pointer to a floating point register set in /proc format (fpregset_t *), unpack the register contents and supply them as gdb's idea of the current floating point register values. */ void supply_fpregset (fpregsetp) prfpregset_t *fpregsetp; { register int regi; char *from; for (regi = FP0_REGNUM ; regi < FP0_REGNUM+32 ; regi++) { from = (char *) &fpregsetp->pr_fr.pr_regs[regi-FP0_REGNUM]; supply_register (regi, from); } supply_register (FPS_REGNUM, (char *) &(fpregsetp->pr_fsr)); } /* Given a pointer to a floating point register set in /proc format (fpregset_t *), update the register specified by REGNO from gdb's idea of the current floating point register set. If REGNO is -1, update them all. */ void fill_fpregset (fpregsetp, regno) prfpregset_t *fpregsetp; int regno; { int regi; char *to; char *from; extern char registers[]; for (regi = FP0_REGNUM ; regi < FP0_REGNUM+32 ; regi++) { if ((regno == -1) || (regno == regi)) { from = (char *) ®isters[REGISTER_BYTE (regi)]; to = (char *) &fpregsetp->pr_fr.pr_regs[regi-FP0_REGNUM]; memcpy (to, from, REGISTER_RAW_SIZE (regi)); } } if ((regno == -1) || (regno == FPS_REGNUM)) { fpregsetp->pr_fsr = *(int *) ®isters[REGISTER_BYTE (FPS_REGNUM)]; } } #endif /* defined (FP0_REGNUM) */ #endif /* USE_PROC_FS */ #ifdef GET_LONGJMP_TARGET /* Figure out where the longjmp will land. We expect that we have just entered longjmp and haven't yet setup the stack frame, so the args are still in the output regs. %o0 (O0_REGNUM) points at the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ int get_longjmp_target(pc) CORE_ADDR *pc; { CORE_ADDR jb_addr; #define LONGJMP_TARGET_SIZE 4 char buf[LONGJMP_TARGET_SIZE]; jb_addr = read_register(O0_REGNUM); if (target_read_memory(jb_addr + JB_PC * JB_ELEMENT_SIZE, buf, LONGJMP_TARGET_SIZE)) return 0; *pc = extract_address (buf, LONGJMP_TARGET_SIZE); return 1; } #endif /* GET_LONGJMP_TARGET */ gdb-4.13/gdb/sparcl-stub.c 666 34562 1752 55323 5576173303 13735 0ustar fnfcygnus/**************************************************************************** THIS SOFTWARE IS NOT COPYRIGHTED HP offers the following for use in the public domain. HP makes no warranty with regard to the software or it's performance and the user accepts the software "AS IS" with all faults. HP DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. ****************************************************************************/ /**************************************************************************** * Header: remcom.c,v 1.34 91/03/09 12:29:49 glenne Exp $ * * Module name: remcom.c $ * Revision: 1.34 $ * Date: 91/03/09 12:29:49 $ * Contributor: Lake Stevens Instrument Division$ * * Description: low level support for gdb debugger. $ * * Considerations: only works on target hardware $ * * Written by: Glenn Engel $ * ModuleState: Experimental $ * * NOTES: See Below $ * * Modified for SPARC by Stu Grossman, Cygnus Support. * Based on sparc-stub.c, it's modified for SPARClite Debug Unit hardware * breakpoint support to create sparclite-stub.c, by Kung Hsu, Cygnus Support. * * This code has been extensively tested on the Fujitsu SPARClite demo board. * * To enable debugger support, two things need to happen. One, a * call to set_debug_traps() is necessary in order to allow any breakpoints * or error conditions to be properly intercepted and reported to gdb. * Two, a breakpoint needs to be generated to begin communication. This * is most easily accomplished by a call to breakpoint(). Breakpoint() * simulates a breakpoint by executing a trap #1. * ************* * * The following gdb commands are supported: * * command function Return value * * g return the value of the CPU registers hex data or ENN * G set the value of the CPU registers OK or ENN * * mAA..AA,LLLL Read LLLL bytes at address AA..AA hex data or ENN * MAA..AA,LLLL: Write LLLL bytes at address AA.AA OK or ENN * * c Resume at current address SNN ( signal NN) * cAA..AA Continue at address AA..AA SNN * * s Step one instruction SNN * sAA..AA Step one instruction from AA..AA SNN * * k kill * * ? What was the last sigval ? SNN (signal NN) * * bBB..BB Set baud rate to BB..BB OK or BNN, then sets * baud rate * * All commands and responses are sent with a packet which includes a * checksum. A packet consists of * * $#. * * where * :: * :: < two hex digits computed as modulo 256 sum of > * * When a packet is received, it is first acknowledged with either '+' or '-'. * '+' indicates a successful transfer. '-' indicates a failed transfer. * * Example: * * Host: Reply: * $m0,10#2a +$00010203040506070809101112131415#42 * ****************************************************************************/ #include "defs.h" #include #include /************************************************************************ * * external low-level support routines */ extern putDebugChar(); /* write a single character */ extern getDebugChar(); /* read and return a single char */ /************************************************************************/ /* BUFMAX defines the maximum number of characters in inbound/outbound buffers*/ /* at least NUMREGBYTES*2 are needed for register packets */ #define BUFMAX 2048 static int initialized = 0; /* !0 means we've been initialized */ extern void breakinst(); static void hw_breakpoint(); static void set_mem_fault_trap(); static void get_in_break_mode(); static const char hexchars[]="0123456789abcdef"; #define NUMREGS 80 /* Number of bytes of registers. */ #define NUMREGBYTES (NUMREGS * 4) enum regnames {G0, G1, G2, G3, G4, G5, G6, G7, O0, O1, O2, O3, O4, O5, SP, O7, L0, L1, L2, L3, L4, L5, L6, L7, I0, I1, I2, I3, I4, I5, FP, I7, F0, F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, F12, F13, F14, F15, F16, F17, F18, F19, F20, F21, F22, F23, F24, F25, F26, F27, F28, F29, F30, F31, Y, PSR, WIM, TBR, PC, NPC, FPSR, CPSR, DIA1, DIA2, DDA1, DDA2, DDV1, DDV2, DCR, DSR }; /*************************** ASSEMBLY CODE MACROS *************************/ /* */ extern void trap_low(); asm(" .reserve trapstack, 1000 * 4, \"bss\", 8 .data .align 4 in_trap_handler: .word 0 .text .align 4 ! This function is called when any SPARC trap (except window overflow or ! underflow) occurs. It makes sure that the invalid register window is still ! available before jumping into C code. It will also restore the world if you ! return from handle_exception. .globl _trap_low _trap_low: mov %psr, %l0 mov %wim, %l3 srl %l3, %l0, %l4 ! wim >> cwp cmp %l4, 1 bne window_fine ! Branch if not in the invalid window nop ! Handle window overflow mov %g1, %l4 ! Save g1, we use it to hold the wim srl %l3, 1, %g1 ! Rotate wim right tst %g1 bg good_wim ! Branch if new wim is non-zero ! At this point, we need to bring a 1 into the high order bit of the wim. ! Since we don't want to make any assumptions about the number of register ! windows, we figure it out dynamically so as to setup the wim correctly. not %g1 ! Fill g1 with ones mov %g1, %wim ! Fill the wim with ones nop nop nop mov %wim, %g1 ! Read back the wim inc %g1 ! Now g1 has 1 just to left of wim srl %g1, 1, %g1 ! Now put 1 at top of wim mov %g0, %wim ! Clear wim so that subsequent save nop ! won't trap nop nop good_wim: save %g0, %g0, %g0 ! Slip into next window mov %g1, %wim ! Install the new wim std %l0, [%sp + 0 * 4] ! save L & I registers std %l2, [%sp + 2 * 4] std %l4, [%sp + 4 * 4] std %l6, [%sp + 6 * 4] std %i0, [%sp + 8 * 4] std %i2, [%sp + 10 * 4] std %i4, [%sp + 12 * 4] std %i6, [%sp + 14 * 4] restore ! Go back to trap window. mov %l4, %g1 ! Restore %g1 window_fine: sethi %hi(in_trap_handler), %l4 ld [%lo(in_trap_handler) + %l4], %l5 tst %l5 bg recursive_trap inc %l5 set trapstack+1000*4, %sp ! Switch to trap stack recursive_trap: st %l5, [%lo(in_trap_handler) + %l4] sub %sp,(16+1+6+1+80)*4,%sp ! Make room for input & locals ! + hidden arg + arg spill ! + doubleword alignment ! + registers[72] local var std %g0, [%sp + (24 + 0) * 4] ! registers[Gx] std %g2, [%sp + (24 + 2) * 4] std %g4, [%sp + (24 + 4) * 4] std %g6, [%sp + (24 + 6) * 4] std %i0, [%sp + (24 + 8) * 4] ! registers[Ox] std %i2, [%sp + (24 + 10) * 4] std %i4, [%sp + (24 + 12) * 4] std %i6, [%sp + (24 + 14) * 4] ! F0->F31 not implemented mov %y, %l4 mov %tbr, %l5 st %l4, [%sp + (24 + 64) * 4] ! Y st %l0, [%sp + (24 + 65) * 4] ! PSR st %l3, [%sp + (24 + 66) * 4] ! WIM st %l5, [%sp + (24 + 67) * 4] ! TBR st %l1, [%sp + (24 + 68) * 4] ! PC st %l2, [%sp + (24 + 69) * 4] ! NPC ! CPSR and FPSR not impl or %l0, 0xf20, %l4 mov %l4, %psr ! Turn on traps, disable interrupts nop nop nop call _get_in_break_mode nop nop nop sethi %hi(0xff00), %l5 or %l5, %lo(0xff00), %l5 lda [%l5]0x1, %l4 st %l4, [%sp + (24 + 72) * 4] ! DIA1, debug instr addr 1 add %l5, 4, %l5 lda [%l5]0x1, %l4 st %l4, [%sp + (24 + 73) * 4] ! DIA2, debug instr addr 2 add %l5, 4, %l5 lda [%l5]0x1, %l4 st %l4, [%sp + (24 + 74) * 4] ! DDA1, debug data addr 1 add %l5, 4, %l5 lda [%l5]0x1, %l4 st %l4, [%sp + (24 + 75) * 4] ! DDA2, debug data addr 2 add %l5, 4, %l5 lda [%l5]0x1, %l4 st %l4, [%sp + (24 + 76) * 4] ! DDV1, debug data val 1 add %l5, 4, %l5 lda [%l5]0x1, %l4 st %l4, [%sp + (24 + 77) * 4] ! DDV2, debug data val 2 add %l5, 4, %l5 lda [%l5]0x1, %l4 st %l4, [%sp + (24 + 78) * 4] ! DCR, debug control reg add %l5, 4, %l5 lda [%l5]0x1, %l4 st %l4, [%sp + (24 + 79) * 4] ! DSR, debug status reg nop nop or %l0, 0xf20, %l4 mov %l4, %psr ! Turn on traps, disable interrupts nop nop nop call _handle_exception add %sp, 24 * 4, %o0 ! Pass address of registers ! Reload all of the registers that aren't on the stack ld [%sp + (24 + 1) * 4], %g1 ! registers[Gx] ldd [%sp + (24 + 2) * 4], %g2 ldd [%sp + (24 + 4) * 4], %g4 ldd [%sp + (24 + 6) * 4], %g6 ldd [%sp + (24 + 8) * 4], %i0 ! registers[Ox] ldd [%sp + (24 + 10) * 4], %i2 ldd [%sp + (24 + 12) * 4], %i4 ldd [%sp + (24 + 14) * 4], %i6 sethi %hi(0xff00), %l2 or %l2, %lo(0xff00), %l2 ldd [%sp + (24 + 72) * 4], %l4 ! DIA1, debug instr addr 1 stda %l4, [%l2]0x1 nop nop nop nop ldd [%sp + (24 + 74) * 4], %l4 ! DDA1, debug data addr 1 add %l2, 8, %l2 stda %l4, [%l2]0x1 nop nop nop nop ldd [%sp + (24 + 76) * 4], %l4 ! DDV1, debug data value 1 add %l2, 8, %l2 stda %l4, [%l2]0x1 nop nop nop nop ld [%sp + (24 + 78) * 4], %l4 ! DCR, debug control reg ld [%sp + (24 + 79) * 4], %l5 ! DSR, debug control reg add %l2, 8, %l2 or %l4, 0x200, %l4 sta %l4, [%l2]0x1 add %l2, 4, %l2 sta %l5, [%l2]0x1 nop nop nop nop ldd [%sp + (24 + 64) * 4], %l0 ! Y & PSR ldd [%sp + (24 + 68) * 4], %l2 ! PC & NPC restore ! Ensure that previous window is valid save %g0, %g0, %g0 ! by causing a window_underflow trap mov %l0, %y mov %l1, %psr ! Make sure that traps are disabled ! for rett sethi %hi(in_trap_handler), %l4 ld [%lo(in_trap_handler) + %l4], %l5 dec %l5 st %l5, [%lo(in_trap_handler) + %l4] jmpl %l2, %g0 ! Restore old PC rett %l3 ! Restore old nPC "); /* Convert ch from a hex digit to an int */ static int hex(ch) unsigned char ch; { if (ch >= 'a' && ch <= 'f') return ch-'a'+10; if (ch >= '0' && ch <= '9') return ch-'0'; if (ch >= 'A' && ch <= 'F') return ch-'A'+10; return -1; } /* scan for the sequence $# */ static void getpacket(buffer) char *buffer; { unsigned char checksum; unsigned char xmitcsum; int i; int count; unsigned char ch; do { /* wait around for the start character, ignore all other characters */ while ((ch = getDebugChar()) != '$') ; checksum = 0; xmitcsum = -1; count = 0; /* now, read until a # or end of buffer is found */ while (count < BUFMAX) { ch = getDebugChar(); if (ch == '#') break; checksum = checksum + ch; buffer[count] = ch; count = count + 1; } if (count >= BUFMAX) continue; buffer[count] = 0; if (ch == '#') { xmitcsum = hex(getDebugChar()) << 4; xmitcsum |= hex(getDebugChar()); #if 0 /* Humans shouldn't have to figure out checksums to type to it. */ putDebugChar ('+'); return; #endif if (checksum != xmitcsum) putDebugChar('-'); /* failed checksum */ else { putDebugChar('+'); /* successful transfer */ /* if a sequence char is present, reply the sequence ID */ if (buffer[2] == ':') { putDebugChar(buffer[0]); putDebugChar(buffer[1]); /* remove sequence chars from buffer */ count = strlen(buffer); for (i=3; i <= count; i++) buffer[i-3] = buffer[i]; } } } } while (checksum != xmitcsum); } /* send the packet in buffer. */ static void putpacket(buffer) unsigned char *buffer; { unsigned char checksum; int count; unsigned char ch; /* $#. */ do { putDebugChar('$'); checksum = 0; count = 0; while (ch = buffer[count]) { if (! putDebugChar(ch)) return; checksum += ch; count += 1; } putDebugChar('#'); putDebugChar(hexchars[checksum >> 4]); putDebugChar(hexchars[checksum & 0xf]); } while (getDebugChar() != '+'); } static char remcomInBuffer[BUFMAX]; static char remcomOutBuffer[BUFMAX]; /* Indicate to caller of mem2hex or hex2mem that there has been an error. */ static volatile int mem_err = 0; /* Convert the memory pointed to by mem into hex, placing result in buf. * Return a pointer to the last char put in buf (null), in case of mem fault, * return 0. * If MAY_FAULT is non-zero, then we will handle memory faults by returning * a 0, else treat a fault like any other fault in the stub. */ static unsigned char * mem2hex(mem, buf, count, may_fault) unsigned char *mem; unsigned char *buf; int count; int may_fault; { unsigned char ch; set_mem_fault_trap(may_fault); while (count-- > 0) { ch = *mem++; if (mem_err) return 0; *buf++ = hexchars[ch >> 4]; *buf++ = hexchars[ch & 0xf]; } *buf = 0; set_mem_fault_trap(0); return buf; } /* convert the hex array pointed to by buf into binary to be placed in mem * return a pointer to the character AFTER the last byte written */ static char * hex2mem(buf, mem, count, may_fault) unsigned char *buf; unsigned char *mem; int count; int may_fault; { int i; unsigned char ch; set_mem_fault_trap(may_fault); for (i=0; itt && ht->signo; ht++) exceptionHandler(ht->tt, trap_low); /* In case GDB is started before us, ack any packets (presumably "$?#xx") sitting there. */ putDebugChar ('+'); initialized = 1; } asm (" ! Trap handler for memory errors. This just sets mem_err to be non-zero. It ! assumes that %l1 is non-zero. This should be safe, as it is doubtful that ! 0 would ever contain code that could mem fault. This routine will skip ! past the faulting instruction after setting mem_err. .text .align 4 _fltr_set_mem_err: sethi %hi(_mem_err), %l0 st %l1, [%l0 + %lo(_mem_err)] jmpl %l2, %g0 rett %l2+4 "); static void set_mem_fault_trap(enable) int enable; { extern void fltr_set_mem_err(); mem_err = 0; if (enable) exceptionHandler(9, fltr_set_mem_err); else exceptionHandler(9, trap_low); } asm (" .text .align 4 _dummy_hw_breakpoint: jmpl %l2, %g0 rett %l2+4 nop nop "); static void set_hw_breakpoint_trap(enable) int enable; { extern void dummy_hw_breakpoint(); if (enable) exceptionHandler(255, dummy_hw_breakpoint); else exceptionHandler(255, trap_low); } static void get_in_break_mode() { set_hw_breakpoint_trap(1); asm(" sethi %hi(0xff10), %l4 or %l4, %lo(0xff10), %l4 sta %g0, [%l4]0x1 nop nop nop "); set_hw_breakpoint_trap(0); } /* Convert the SPARC hardware trap type code to a unix signal number. */ static int computeSignal(tt) int tt; { struct hard_trap_info *ht; for (ht = hard_trap_info; ht->tt && ht->signo; ht++) if (ht->tt == tt) return ht->signo; return SIGHUP; /* default for things we don't know about */ } /* * While we find nice hex chars, build an int. * Return number of chars processed. */ static int hexToInt(char **ptr, int *intValue) { int numChars = 0; int hexValue; *intValue = 0; while (**ptr) { hexValue = hex(**ptr); if (hexValue < 0) break; *intValue = (*intValue << 4) | hexValue; numChars ++; (*ptr)++; } return (numChars); } /* * This function does all command procesing for interfacing to gdb. It * returns 1 if you should skip the instruction at the trap address, 0 * otherwise. */ static void handle_exception (registers) unsigned long *registers; { int tt; /* Trap type */ int sigval; int addr; int length; char *ptr; unsigned long *sp; unsigned long dsr; /* First, we must force all of the windows to be spilled out */ asm(" save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp save %sp, -64, %sp restore restore restore restore restore restore restore restore "); if (registers[PC] == (unsigned long)breakinst) { registers[PC] = registers[NPC]; registers[NPC] += 4; } sp = (unsigned long *)registers[SP]; dsr = (unsigned long)registers[DSR]; if (dsr & 0x3c) { tt = 255; } else { tt = (registers[TBR] >> 4) & 0xff; } /* reply to host that an exception has occurred */ sigval = computeSignal(tt); ptr = remcomOutBuffer; *ptr++ = 'T'; *ptr++ = hexchars[sigval >> 4]; *ptr++ = hexchars[sigval & 0xf]; *ptr++ = hexchars[PC >> 4]; *ptr++ = hexchars[PC & 0xf]; *ptr++ = ':'; ptr = mem2hex((char *)®isters[PC], ptr, 4, 0); *ptr++ = ';'; *ptr++ = hexchars[FP >> 4]; *ptr++ = hexchars[FP & 0xf]; *ptr++ = ':'; ptr = mem2hex(sp + 8 + 6, ptr, 4, 0); /* FP */ *ptr++ = ';'; *ptr++ = hexchars[SP >> 4]; *ptr++ = hexchars[SP & 0xf]; *ptr++ = ':'; ptr = mem2hex((char *)&sp, ptr, 4, 0); *ptr++ = ';'; *ptr++ = hexchars[NPC >> 4]; *ptr++ = hexchars[NPC & 0xf]; *ptr++ = ':'; ptr = mem2hex((char *)®isters[NPC], ptr, 4, 0); *ptr++ = ';'; *ptr++ = hexchars[O7 >> 4]; *ptr++ = hexchars[O7 & 0xf]; *ptr++ = ':'; ptr = mem2hex((char *)®isters[O7], ptr, 4, 0); *ptr++ = ';'; *ptr++ = 0; putpacket(remcomOutBuffer); while (1) { remcomOutBuffer[0] = 0; getpacket(remcomInBuffer); switch (remcomInBuffer[0]) { case '?': remcomOutBuffer[0] = 'S'; remcomOutBuffer[1] = hexchars[sigval >> 4]; remcomOutBuffer[2] = hexchars[sigval & 0xf]; remcomOutBuffer[3] = 0; break; case 'd': /* toggle debug flag */ break; case 'g': /* return the value of the CPU registers */ { ptr = remcomOutBuffer; ptr = mem2hex((char *)registers, ptr, 16 * 4, 0); /* G & O regs */ ptr = mem2hex(sp + 0, ptr, 16 * 4, 0); /* L & I regs */ memset(ptr, '0', 32 * 8); /* Floating point */ ptr = mem2hex((char *)®isters[Y], ptr + 32 * 4 * 2, 8 * 4, 0); /* Y, PSR, WIM, TBR, PC, NPC, FPSR, CPSR */ mem2hex((char *)®isters[DIA1], ptr, 8 * 4, 0); /* DIA1, DIA2, DDA1, DDA2, DDV1, DDV2, DCR, DSR */ } break; case 'G': /* set the value of the CPU registers - return OK */ { unsigned long *newsp, psr; psr = registers[PSR]; ptr = &remcomInBuffer[1]; hex2mem(ptr, (char *)registers, 16 * 4, 0); /* G & O regs */ hex2mem(ptr + 16 * 4 * 2, sp + 0, 16 * 4, 0); /* L & I regs */ hex2mem(ptr + 64 * 4 * 2, (char *)®isters[Y], 8 * 4, 0); /* Y, PSR, WIM, TBR, PC, NPC, FPSR, CPSR */ hex2mem(ptr + 72 * 4 * 2, (char *)®isters[DIA1], 8 * 4, 0); /* DIA1, DIA2, DDA1, DDA2, DDV1, DDV2, DCR, DSR */ /* See if the stack pointer has moved. If so, then copy the saved locals and ins to the new location. This keeps the window overflow and underflow routines happy. */ newsp = (unsigned long *)registers[SP]; if (sp != newsp) sp = memcpy(newsp, sp, 16 * 4); /* Don't allow CWP to be modified. */ if (psr != registers[PSR]) registers[PSR] = (psr & 0x1f) | (registers[PSR] & ~0x1f); strcpy(remcomOutBuffer,"OK"); } break; case 'm': /* mAA..AA,LLLL Read LLLL bytes at address AA..AA */ /* Try to read %x,%x. */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr, &addr) && *ptr++ == ',' && hexToInt(&ptr, &length)) { if (mem2hex((char *)addr, remcomOutBuffer, length, 1)) break; strcpy (remcomOutBuffer, "E03"); } else strcpy(remcomOutBuffer,"E01"); break; case 'M': /* MAA..AA,LLLL: Write LLLL bytes at address AA.AA return OK */ /* Try to read '%x,%x:'. */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr, &addr) && *ptr++ == ',' && hexToInt(&ptr, &length) && *ptr++ == ':') { if (hex2mem(ptr, (char *)addr, length, 1)) strcpy(remcomOutBuffer, "OK"); else strcpy(remcomOutBuffer, "E03"); } else strcpy(remcomOutBuffer, "E02"); break; case 'c': /* cAA..AA Continue at address AA..AA(optional) */ /* try to read optional parameter, pc unchanged if no parm */ ptr = &remcomInBuffer[1]; if (hexToInt(&ptr, &addr)) { registers[PC] = addr; registers[NPC] = addr + 4; } /* Need to flush the instruction cache here, as we may have deposited a breakpoint, and the icache probably has no way of knowing that a data ref to some location may have changed something that is in the instruction cache. */ flush_i_cache(); return; /* kill the program */ case 'k' : /* do nothing */ break; #if 0 case 't': /* Test feature */ asm (" std %f30,[%sp]"); break; #endif case 'r': /* Reset */ asm ("call 0 nop "); break; #if 0 Disabled until we can unscrew this properly case 'b': /* bBB... Set baud rate to BB... */ { int baudrate; extern void set_timer_3(); ptr = &remcomInBuffer[1]; if (!hexToInt(&ptr, &baudrate)) { strcpy(remcomOutBuffer,"B01"); break; } /* Convert baud rate to uart clock divider */ switch (baudrate) { case 38400: baudrate = 16; break; case 19200: baudrate = 33; break; case 9600: baudrate = 65; break; default: strcpy(remcomOutBuffer,"B02"); goto x1; } putpacket("OK"); /* Ack before changing speed */ set_timer_3(baudrate); /* Set it */ } x1: break; #endif } /* switch */ /* reply to the request */ putpacket(remcomOutBuffer); } } /* This function will generate a breakpoint exception. It is used at the beginning of a program to sync up with a debugger and can be used otherwise as a quick means to stop program execution and "break" into the debugger. */ void breakpoint() { if (!initialized) return; asm(" .globl _breakinst _breakinst: ta 1 "); } static void hw_breakpoint() { asm(" ta 127 "); } gdb-4.13/gdb/sparcl-tdep.c 666 34562 1752 11744 5576173301 13711 0ustar fnfcygnus/* Target-dependent code for the Fujitsu SPARCLITE for GDB, the GNU debugger. Copyright 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "gdbcore.h" #include "breakpoint.h" #define DDA2_SUP_ASI 0xb000000 #define DDA1_SUP_ASI 0xb0000 #define DDA2_ASI_MASK 0xff000000 #define DDA1_ASI_MASK 0xff0000 #define DIA2_SUP_MODE 0x8000 #define DIA1_SUP_MODE 0x4000 #define DDA2_ENABLE 0x100 #define DDA1_ENABLE 0x80 #define DIA2_ENABLE 0x40 #define DIA1_ENABLE 0x20 #define DSINGLE_STEP 0x10 #define DDV_TYPE_MASK 0xc #define DDV_TYPE_LOAD 0x0 #define DDV_TYPE_STORE 0x4 #define DDV_TYPE_ACCESS 0x8 #define DDV_TYPE_ALWAYS 0xc #define DDV_COND 0x2 #define DDV_MASK 0x1 int sparclite_insert_watchpoint(addr, len, type) CORE_ADDR addr; int len; int type; { CORE_ADDR dcr; dcr = read_register (DCR_REGNUM); if (!(dcr & DDA1_ENABLE)) { write_register (DDA1_REGNUM, addr); dcr &= ~(DDA1_ASI_MASK | DDV_TYPE_MASK); dcr |= (DDA1_SUP_ASI | DDA1_ENABLE); if (type == 1) { write_register (DDV1_REGNUM, 0); write_register (DDV2_REGNUM, 0xffffffff); dcr |= (DDV_TYPE_LOAD & (~DDV_COND & ~DDV_MASK)); } else if (type == 0) { write_register (DDV1_REGNUM, 0); write_register (DDV2_REGNUM, 0xffffffff); dcr |= (DDV_TYPE_STORE & (~DDV_COND & ~DDV_MASK)); } else { write_register (DDV1_REGNUM, 0); write_register (DDV2_REGNUM, 0xffffffff); dcr |= (DDV_TYPE_ACCESS); } write_register (DCR_REGNUM, dcr); } else if (!(dcr & DDA2_ENABLE)) { write_register (DDA2_REGNUM, addr); dcr &= ~(DDA2_ASI_MASK & DDV_TYPE_MASK); dcr |= (DDA2_SUP_ASI | DDA2_ENABLE); if (type == 1) { write_register (DDV1_REGNUM, 0); write_register (DDV2_REGNUM, 0xffffffff); dcr |= (DDV_TYPE_LOAD & ~DDV_COND & ~DDV_MASK); } else if (type == 0) { write_register (DDV1_REGNUM, 0); write_register (DDV2_REGNUM, 0xffffffff); dcr |= (DDV_TYPE_STORE & ~DDV_COND & ~DDV_MASK); } else { write_register (DDV1_REGNUM, 0); write_register (DDV2_REGNUM, 0xffffffff); dcr |= (DDV_TYPE_ACCESS); } write_register (DCR_REGNUM, dcr); } else return -1; return 0; } int sparclite_remove_watchpoint(addr, len, type) CORE_ADDR addr; int len; int type; { CORE_ADDR dcr, dda1, dda2; dcr = read_register (DCR_REGNUM); dda1 = read_register (DDA1_REGNUM); dda2 = read_register (DDA2_REGNUM); if ((dcr & DDA1_ENABLE) && addr == dda1) { write_register (DCR_REGNUM, (dcr & ~DDA1_ENABLE)); } else if ((dcr & DDA2_ENABLE) && addr == dda2) { write_register (DCR_REGNUM, (dcr & ~DDA2_ENABLE)); } else return -1; return 0; } int sparclite_insert_hw_breakpoint(addr, len) CORE_ADDR addr; int len; { CORE_ADDR dcr; dcr = read_register (DCR_REGNUM); if (!(dcr & DIA1_ENABLE)) { write_register (DIA1_REGNUM, addr); write_register (DCR_REGNUM, (dcr | DIA1_ENABLE | DIA1_SUP_MODE)); } else if (!(dcr & DIA2_ENABLE)) { write_register (DIA2_REGNUM, addr); write_register (DCR_REGNUM, (dcr | DIA2_ENABLE | DIA2_SUP_MODE)); } else return -1; return 0; } int sparclite_remove_hw_breakpoint(addr, shadow) CORE_ADDR addr; int shadow; { CORE_ADDR dcr, dia1, dia2; dcr = read_register (DCR_REGNUM); dia1 = read_register (DIA1_REGNUM); dia2 = read_register (DIA2_REGNUM); if ((dcr & DIA1_ENABLE) && addr == dia1) { write_register (DCR_REGNUM, (dcr & ~DIA1_ENABLE)); } else if ((dcr & DIA2_ENABLE) && addr == dia2) { write_register (DCR_REGNUM, (dcr & ~DIA2_ENABLE)); } else return -1; return 0; } int sparclite_check_watch_resources(type, cnt, ot) int type; int cnt; int ot; { if (type == bp_hardware_breakpoint) { if (TARGET_HW_BREAK_LIMIT == 0) return 0; else if (cnt <= TARGET_HW_BREAK_LIMIT) return 1; } else { if (TARGET_HW_WATCH_LIMIT == 0) return 0; else if (ot) return -1; else if (cnt <= TARGET_HW_WATCH_LIMIT) return 1; } return -1; } CORE_ADDR sparclite_stopped_data_address() { CORE_ADDR dsr, dda1, dda2; dsr = read_register (DSR_REGNUM); dda1 = read_register (DDA1_REGNUM); dda2 = read_register (DDA2_REGNUM); if (dsr & 0x10) return dda1; else if (dsr & 0x20) return dda2; else return 0; } gdb-4.13/gdb/stabsread.c 666 34562 1752 341140 5611316764 13461 0ustar fnfcygnus/* Support routines for decoding "stabs" debugging information format. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Support routines for reading and decoding debugging information in the "stabs" format. This format is used with many systems that use the a.out object file format, as well as some systems that use COFF or ELF where the stabs data is placed in a special section. Avoid placing any object file format specific code in this file. */ #include "defs.h" #include #include "bfd.h" #include "obstack.h" #include "symtab.h" #include "gdbtypes.h" #include "symfile.h" #include "objfiles.h" #include "aout/stab_gnu.h" /* We always use GNU stabs, not native */ #include "libaout.h" #include "aout/aout64.h" #include "gdb-stabs.h" #include "buildsym.h" #include "complaints.h" #include "demangle.h" #include /* Ask stabsread.h to define the vars it normally declares `extern'. */ #define EXTERN /**/ #include "stabsread.h" /* Our own declarations */ #undef EXTERN /* The routines that read and process a complete stabs for a C struct or C++ class pass lists of data member fields and lists of member function fields in an instance of a field_info structure, as defined below. This is part of some reorganization of low level C++ support and is expected to eventually go away... (FIXME) */ struct field_info { struct nextfield { struct nextfield *next; /* This is the raw visibility from the stab. It is not checked for being one of the visibilities we recognize, so code which examines this field better be able to deal. */ int visibility; struct field field; } *list; struct next_fnfieldlist { struct next_fnfieldlist *next; struct fn_fieldlist fn_fieldlist; } *fnlist; }; static struct type * dbx_alloc_type PARAMS ((int [2], struct objfile *)); static long read_huge_number PARAMS ((char **, int, int *)); static struct type *error_type PARAMS ((char **)); static void patch_block_stabs PARAMS ((struct pending *, struct pending_stabs *, struct objfile *)); static void fix_common_block PARAMS ((struct symbol *, int)); static int read_type_number PARAMS ((char **, int *)); static struct type * read_range_type PARAMS ((char **, int [2], struct objfile *)); static struct type * read_sun_builtin_type PARAMS ((char **, int [2], struct objfile *)); static struct type * read_sun_floating_type PARAMS ((char **, int [2], struct objfile *)); static struct type * read_enum_type PARAMS ((char **, struct type *, struct objfile *)); static struct type * rs6000_builtin_type PARAMS ((int)); static int read_member_functions PARAMS ((struct field_info *, char **, struct type *, struct objfile *)); static int read_struct_fields PARAMS ((struct field_info *, char **, struct type *, struct objfile *)); static int read_baseclasses PARAMS ((struct field_info *, char **, struct type *, struct objfile *)); static int read_tilde_fields PARAMS ((struct field_info *, char **, struct type *, struct objfile *)); static int attach_fn_fields_to_type PARAMS ((struct field_info *, struct type *)); static int attach_fields_to_type PARAMS ((struct field_info *, struct type *, struct objfile *)); static struct type * read_struct_type PARAMS ((char **, struct type *, struct objfile *)); static struct type * read_array_type PARAMS ((char **, struct type *, struct objfile *)); static struct type ** read_args PARAMS ((char **, int, struct objfile *)); static int read_cpp_abbrev PARAMS ((struct field_info *, char **, struct type *, struct objfile *)); static const char vptr_name[] = { '_','v','p','t','r',CPLUS_MARKER,'\0' }; static const char vb_name[] = { '_','v','b',CPLUS_MARKER,'\0' }; /* Define this as 1 if a pcc declaration of a char or short argument gives the correct address. Otherwise assume pcc gives the address of the corresponding int, which is not the same on a big-endian machine. */ #ifndef BELIEVE_PCC_PROMOTION #define BELIEVE_PCC_PROMOTION 0 #endif struct complaint invalid_cpp_abbrev_complaint = {"invalid C++ abbreviation `%s'", 0, 0}; struct complaint invalid_cpp_type_complaint = {"C++ abbreviated type name unknown at symtab pos %d", 0, 0}; struct complaint member_fn_complaint = {"member function type missing, got '%c'", 0, 0}; struct complaint const_vol_complaint = {"const/volatile indicator missing, got '%c'", 0, 0}; struct complaint error_type_complaint = {"debug info mismatch between compiler and debugger", 0, 0}; struct complaint invalid_member_complaint = {"invalid (minimal) member type data format at symtab pos %d.", 0, 0}; struct complaint range_type_base_complaint = {"base type %d of range type is not defined", 0, 0}; struct complaint reg_value_complaint = {"register number too large in symbol %s", 0, 0}; struct complaint vtbl_notfound_complaint = {"virtual function table pointer not found when defining class `%s'", 0, 0}; struct complaint unrecognized_cplus_name_complaint = {"Unknown C++ symbol name `%s'", 0, 0}; struct complaint rs6000_builtin_complaint = {"Unknown builtin type %d", 0, 0}; struct complaint stabs_general_complaint = {"%s", 0, 0}; /* Make a list of forward references which haven't been defined. */ static struct type **undef_types; static int undef_types_allocated; static int undef_types_length; /* Check for and handle cretinous stabs symbol name continuation! */ #define STABS_CONTINUE(pp) \ do { \ if (**(pp) == '\\' || (**(pp) == '?' && (*(pp))[1] == '\0')) \ *(pp) = next_symbol_text (); \ } while (0) /* FIXME: These probably should be our own types (like rs6000_builtin_type has its own types) rather than builtin_type_*. */ static struct type **os9k_type_vector[] = { 0, &builtin_type_int, &builtin_type_char, &builtin_type_long, &builtin_type_short, &builtin_type_unsigned_char, &builtin_type_unsigned_short, &builtin_type_unsigned_long, &builtin_type_unsigned_int, &builtin_type_float, &builtin_type_double, &builtin_type_void, &builtin_type_long_double }; static void os9k_init_type_vector PARAMS ((struct type **)); static void os9k_init_type_vector(tv) struct type **tv; { int i; for (i=0; i= n_this_object_header_files) { static struct complaint msg = {"\ Invalid symbol data: type number (%d,%d) out of range at symtab pos %d.", 0, 0}; complain (&msg, filenum, index, symnum); goto error_return; } if (filenum == 0) { if (index < 0) { /* Caller wants address of address of type. We think that negative (rs6k builtin) types will never appear as "lvalues", (nor should they), so we stuff the real type pointer into a temp, and return its address. If referenced, this will do the right thing. */ static struct type *temp_type; temp_type = rs6000_builtin_type(index); return &temp_type; } /* Type is defined outside of header files. Find it in this object file's type vector. */ if (index >= type_vector_length) { old_len = type_vector_length; if (old_len == 0) { type_vector_length = INITIAL_TYPE_VECTOR_LENGTH; type_vector = (struct type **) malloc (type_vector_length * sizeof (struct type *)); } while (index >= type_vector_length) { type_vector_length *= 2; } type_vector = (struct type **) xrealloc ((char *) type_vector, (type_vector_length * sizeof (struct type *))); memset (&type_vector[old_len], 0, (type_vector_length - old_len) * sizeof (struct type *)); if (os9k_stabs) /* Deal with OS9000 fundamental types. */ os9k_init_type_vector (type_vector); } return (&type_vector[index]); } else { real_filenum = this_object_header_files[filenum]; if (real_filenum >= n_header_files) { struct type *temp_type; struct type **temp_type_p; warning ("GDB internal error: bad real_filenum"); error_return: temp_type = init_type (TYPE_CODE_ERROR, 0, 0, NULL, NULL); temp_type_p = (struct type **) xmalloc (sizeof (struct type *)); *temp_type_p = temp_type; return temp_type_p; } f = &header_files[real_filenum]; f_orig_length = f->length; if (index >= f_orig_length) { while (index >= f->length) { f->length *= 2; } f->vector = (struct type **) xrealloc ((char *) f->vector, f->length * sizeof (struct type *)); memset (&f->vector[f_orig_length], 0, (f->length - f_orig_length) * sizeof (struct type *)); } return (&f->vector[index]); } } /* Make sure there is a type allocated for type numbers TYPENUMS and return the type object. This can create an empty (zeroed) type object. TYPENUMS may be (-1, -1) to return a new type object that is not put into the type vector, and so may not be referred to by number. */ static struct type * dbx_alloc_type (typenums, objfile) int typenums[2]; struct objfile *objfile; { register struct type **type_addr; if (typenums[0] == -1) { return (alloc_type (objfile)); } type_addr = dbx_lookup_type (typenums); /* If we are referring to a type not known at all yet, allocate an empty type for it. We will fill it in later if we find out how. */ if (*type_addr == 0) { *type_addr = alloc_type (objfile); } return (*type_addr); } /* for all the stabs in a given stab vector, build appropriate types and fix their symbols in given symbol vector. */ static void patch_block_stabs (symbols, stabs, objfile) struct pending *symbols; struct pending_stabs *stabs; struct objfile *objfile; { int ii; char *name; char *pp; struct symbol *sym; if (stabs) { /* for all the stab entries, find their corresponding symbols and patch their types! */ for (ii = 0; ii < stabs->count; ++ii) { name = stabs->stab[ii]; pp = (char*) strchr (name, ':'); while (pp[1] == ':') { pp += 2; pp = (char *)strchr(pp, ':'); } sym = find_symbol_in_list (symbols, name, pp-name); if (!sym) { /* FIXME-maybe: it would be nice if we noticed whether the variable was defined *anywhere*, not just whether it is defined in this compilation unit. But neither xlc or GCC seem to need such a definition, and until we do psymtabs (so that the minimal symbols from all compilation units are available now), I'm not sure how to get the information. */ /* On xcoff, if a global is defined and never referenced, ld will remove it from the executable. There is then a N_GSYM stab for it, but no regular (C_EXT) symbol. */ sym = (struct symbol *) obstack_alloc (&objfile->symbol_obstack, sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; SYMBOL_CLASS (sym) = LOC_OPTIMIZED_OUT; SYMBOL_NAME (sym) = obstack_copy0 (&objfile->symbol_obstack, name, pp - name); pp += 2; if (*(pp-1) == 'F' || *(pp-1) == 'f') { /* I don't think the linker does this with functions, so as far as I know this is never executed. But it doesn't hurt to check. */ SYMBOL_TYPE (sym) = lookup_function_type (read_type (&pp, objfile)); } else { SYMBOL_TYPE (sym) = read_type (&pp, objfile); } add_symbol_to_list (sym, &global_symbols); } else { pp += 2; if (*(pp-1) == 'F' || *(pp-1) == 'f') { SYMBOL_TYPE (sym) = lookup_function_type (read_type (&pp, objfile)); } else { SYMBOL_TYPE (sym) = read_type (&pp, objfile); } } } } } /* Read a number by which a type is referred to in dbx data, or perhaps read a pair (FILENUM, TYPENUM) in parentheses. Just a single number N is equivalent to (0,N). Return the two numbers by storing them in the vector TYPENUMS. TYPENUMS will then be used as an argument to dbx_lookup_type. Returns 0 for success, -1 for error. */ static int read_type_number (pp, typenums) register char **pp; register int *typenums; { int nbits; if (**pp == '(') { (*pp)++; typenums[0] = read_huge_number (pp, ',', &nbits); if (nbits != 0) return -1; typenums[1] = read_huge_number (pp, ')', &nbits); if (nbits != 0) return -1; } else { typenums[0] = 0; typenums[1] = read_huge_number (pp, 0, &nbits); if (nbits != 0) return -1; } return 0; } /* To handle GNU C++ typename abbreviation, we need to be able to fill in a type's name as soon as space for that type is allocated. `type_synonym_name' is the name of the type being allocated. It is cleared as soon as it is used (lest all allocated types get this name). */ static char *type_synonym_name; #if !defined (REG_STRUCT_HAS_ADDR) #define REG_STRUCT_HAS_ADDR(gcc_p,type) 0 #endif /* ARGSUSED */ struct symbol * define_symbol (valu, string, desc, type, objfile) CORE_ADDR valu; char *string; int desc; int type; struct objfile *objfile; { register struct symbol *sym; char *p = (char *) strchr (string, ':'); int deftype; int synonym = 0; register int i; /* We would like to eliminate nameless symbols, but keep their types. E.g. stab entry ":t10=*2" should produce a type 10, which is a pointer to type 2, but, should not create a symbol to address that type. Since the symbol will be nameless, there is no way any user can refer to it. */ int nameless; /* Ignore syms with empty names. */ if (string[0] == 0) return 0; /* Ignore old-style symbols from cc -go */ if (p == 0) return 0; while (p[1] == ':') { p += 2; p = strchr(p, ':'); } /* If a nameless stab entry, all we need is the type, not the symbol. e.g. ":t10=*2" or a nameless enum like " :T16=ered:0,green:1,blue:2,;" */ nameless = (p == string || ((string[0] == ' ') && (string[1] == ':'))); sym = (struct symbol *) obstack_alloc (&objfile -> symbol_obstack, sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); switch (type & N_TYPE) { case N_TEXT: SYMBOL_SECTION(sym) = SECT_OFF_TEXT; break; case N_DATA: SYMBOL_SECTION(sym) = SECT_OFF_DATA; break; case N_BSS: SYMBOL_SECTION(sym) = SECT_OFF_BSS; break; } if (processing_gcc_compilation) { /* GCC 2.x puts the line number in desc. SunOS apparently puts in the number of bytes occupied by a type or object, which we ignore. */ SYMBOL_LINE(sym) = desc; } else { SYMBOL_LINE(sym) = 0; /* unknown */ } if (string[0] == CPLUS_MARKER) { /* Special GNU C++ names. */ switch (string[1]) { case 't': SYMBOL_NAME (sym) = obsavestring ("this", strlen ("this"), &objfile -> symbol_obstack); break; case 'v': /* $vtbl_ptr_type */ /* Was: SYMBOL_NAME (sym) = "vptr"; */ goto normal; case 'e': SYMBOL_NAME (sym) = obsavestring ("eh_throw", strlen ("eh_throw"), &objfile -> symbol_obstack); break; case '_': /* This was an anonymous type that was never fixed up. */ goto normal; default: complain (&unrecognized_cplus_name_complaint, string); goto normal; /* Do *something* with it */ } } else { normal: SYMBOL_LANGUAGE (sym) = current_subfile -> language; SYMBOL_NAME (sym) = (char *) obstack_alloc (&objfile -> symbol_obstack, ((p - string) + 1)); /* Open-coded memcpy--saves function call time. */ /* FIXME: Does it really? Try replacing with simple strcpy and try it on an executable with a large symbol table. */ /* FIXME: considering that gcc can open code memcpy anyway, I doubt it. xoxorich. */ { register char *p1 = string; register char *p2 = SYMBOL_NAME (sym); while (p1 != p) { *p2++ = *p1++; } *p2++ = '\0'; } /* If this symbol is from a C++ compilation, then attempt to cache the demangled form for future reference. This is a typical time versus space tradeoff, that was decided in favor of time because it sped up C++ symbol lookups by a factor of about 20. */ SYMBOL_INIT_DEMANGLED_NAME (sym, &objfile->symbol_obstack); } p++; /* Determine the type of name being defined. */ #if 0 /* Getting GDB to correctly skip the symbol on an undefined symbol descriptor and not ever dump core is a very dodgy proposition if we do things this way. I say the acorn RISC machine can just fix their compiler. */ /* The Acorn RISC machine's compiler can put out locals that don't start with "234=" or "(3,4)=", so assume anything other than the deftypes we know how to handle is a local. */ if (!strchr ("cfFGpPrStTvVXCR", *p)) #else if (isdigit (*p) || *p == '(' || *p == '-') #endif deftype = 'l'; else deftype = *p++; switch (deftype) { case 'c': /* c is a special case, not followed by a type-number. SYMBOL:c=iVALUE for an integer constant symbol. SYMBOL:c=rVALUE for a floating constant symbol. SYMBOL:c=eTYPE,INTVALUE for an enum constant symbol. e.g. "b:c=e6,0" for "const b = blob1" (where type 6 is defined by "blobs:t6=eblob1:0,blob2:1,;"). */ if (*p != '=') { SYMBOL_CLASS (sym) = LOC_CONST; SYMBOL_TYPE (sym) = error_type (&p); SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &file_symbols); return sym; } ++p; switch (*p++) { case 'r': { double d = atof (p); char *dbl_valu; /* FIXME-if-picky-about-floating-accuracy: Should be using target arithmetic to get the value. real.c in GCC probably has the necessary code. */ /* FIXME: lookup_fundamental_type is a hack. We should be creating a type especially for the type of float constants. Problem is, what type should it be? Also, what should the name of this type be? Should we be using 'S' constants (see stabs.texinfo) instead? */ SYMBOL_TYPE (sym) = lookup_fundamental_type (objfile, FT_DBL_PREC_FLOAT); dbl_valu = (char *) obstack_alloc (&objfile -> symbol_obstack, TYPE_LENGTH (SYMBOL_TYPE (sym))); store_floating (dbl_valu, TYPE_LENGTH (SYMBOL_TYPE (sym)), d); SYMBOL_VALUE_BYTES (sym) = dbl_valu; SYMBOL_CLASS (sym) = LOC_CONST_BYTES; } break; case 'i': { /* Defining integer constants this way is kind of silly, since 'e' constants allows the compiler to give not only the value, but the type as well. C has at least int, long, unsigned int, and long long as constant types; other languages probably should have at least unsigned as well as signed constants. */ /* We just need one int constant type for all objfiles. It doesn't depend on languages or anything (arguably its name should be a language-specific name for a type of that size, but I'm inclined to say that if the compiler wants a nice name for the type, it can use 'e'). */ static struct type *int_const_type; /* Yes, this is as long as a *host* int. That is because we use atoi. */ if (int_const_type == NULL) int_const_type = init_type (TYPE_CODE_INT, sizeof (int) * HOST_CHAR_BIT / TARGET_CHAR_BIT, 0, "integer constant", (struct objfile *)NULL); SYMBOL_TYPE (sym) = int_const_type; SYMBOL_VALUE (sym) = atoi (p); SYMBOL_CLASS (sym) = LOC_CONST; } break; case 'e': /* SYMBOL:c=eTYPE,INTVALUE for a constant symbol whose value can be represented as integral. e.g. "b:c=e6,0" for "const b = blob1" (where type 6 is defined by "blobs:t6=eblob1:0,blob2:1,;"). */ { SYMBOL_CLASS (sym) = LOC_CONST; SYMBOL_TYPE (sym) = read_type (&p, objfile); if (*p != ',') { SYMBOL_TYPE (sym) = error_type (&p); break; } ++p; /* If the value is too big to fit in an int (perhaps because it is unsigned), or something like that, we silently get a bogus value. The type and everything else about it is correct. Ideally, we should be using whatever we have available for parsing unsigned and long long values, however. */ SYMBOL_VALUE (sym) = atoi (p); } break; default: { SYMBOL_CLASS (sym) = LOC_CONST; SYMBOL_TYPE (sym) = error_type (&p); } } SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &file_symbols); return sym; case 'C': /* The name of a caught exception. */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_LABEL; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; SYMBOL_VALUE_ADDRESS (sym) = valu; add_symbol_to_list (sym, &local_symbols); break; case 'f': /* A static function definition. */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_BLOCK; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &file_symbols); /* fall into process_function_types. */ process_function_types: /* Function result types are described as the result type in stabs. We need to convert this to the function-returning-type-X type in GDB. E.g. "int" is converted to "function returning int". */ if (TYPE_CODE (SYMBOL_TYPE (sym)) != TYPE_CODE_FUNC) { #if 0 /* This code doesn't work -- it needs to realloc and can't. */ /* Attempt to set up to record a function prototype... */ struct type *new = alloc_type (objfile); /* Generate a template for the type of this function. The types of the arguments will be added as we read the symbol table. */ *new = *lookup_function_type (SYMBOL_TYPE(sym)); SYMBOL_TYPE(sym) = new; TYPE_OBJFILE (new) = objfile; in_function_type = new; #else SYMBOL_TYPE (sym) = lookup_function_type (SYMBOL_TYPE (sym)); #endif } /* fall into process_prototype_types */ process_prototype_types: /* Sun acc puts declared types of arguments here. We don't care about their actual types (FIXME -- we should remember the whole function prototype), but the list may define some new types that we have to remember, so we must scan it now. */ while (*p == ';') { p++; read_type (&p, objfile); } break; case 'F': /* A global function definition. */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_BLOCK; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &global_symbols); goto process_function_types; case 'G': /* For a class G (global) symbol, it appears that the value is not correct. It is necessary to search for the corresponding linker definition to find the value. These definitions appear at the end of the namelist. */ SYMBOL_TYPE (sym) = read_type (&p, objfile); i = hashname (SYMBOL_NAME (sym)); SYMBOL_VALUE_CHAIN (sym) = global_sym_chain[i]; global_sym_chain[i] = sym; SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &global_symbols); break; /* This case is faked by a conditional above, when there is no code letter in the dbx data. Dbx data never actually contains 'l'. */ case 's': case 'l': SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_LOCAL; SYMBOL_VALUE (sym) = valu; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &local_symbols); break; case 'p': if (*p == 'F') /* pF is a two-letter code that means a function parameter in Fortran. The type-number specifies the type of the return value. Translate it into a pointer-to-function type. */ { p++; SYMBOL_TYPE (sym) = lookup_pointer_type (lookup_function_type (read_type (&p, objfile))); } else SYMBOL_TYPE (sym) = read_type (&p, objfile); /* Normally this is a parameter, a LOC_ARG. On the i960, it can also be a LOC_LOCAL_ARG depending on symbol type. */ #ifndef DBX_PARM_SYMBOL_CLASS #define DBX_PARM_SYMBOL_CLASS(type) LOC_ARG #endif SYMBOL_CLASS (sym) = DBX_PARM_SYMBOL_CLASS (type); SYMBOL_VALUE (sym) = valu; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; #if 0 /* This doesn't work yet. */ add_param_to_type (&in_function_type, sym); #endif add_symbol_to_list (sym, &local_symbols); #if TARGET_BYTE_ORDER == LITTLE_ENDIAN /* On little-endian machines, this crud is never necessary, and, if the extra bytes contain garbage, is harmful. */ break; #else /* Big endian. */ /* If it's gcc-compiled, if it says `short', believe it. */ if (processing_gcc_compilation || BELIEVE_PCC_PROMOTION) break; #if !BELIEVE_PCC_PROMOTION { /* This is the signed type which arguments get promoted to. */ static struct type *pcc_promotion_type; /* This is the unsigned type which arguments get promoted to. */ static struct type *pcc_unsigned_promotion_type; /* Call it "int" because this is mainly C lossage. */ if (pcc_promotion_type == NULL) pcc_promotion_type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "int", NULL); if (pcc_unsigned_promotion_type == NULL) pcc_unsigned_promotion_type = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "unsigned int", NULL); #if defined(BELIEVE_PCC_PROMOTION_TYPE) /* This macro is defined on machines (e.g. sparc) where we should believe the type of a PCC 'short' argument, but shouldn't believe the address (the address is the address of the corresponding int). My guess is that this correction, as opposed to changing the parameter to an 'int' (as done below, for PCC on most machines), is the right thing to do on all machines, but I don't want to risk breaking something that already works. On most PCC machines, the sparc problem doesn't come up because the calling function has to zero the top bytes (not knowing whether the called function wants an int or a short), so there is little practical difference between an int and a short (except perhaps what happens when the GDB user types "print short_arg = 0x10000;"). Hacked for SunOS 4.1 by gnu@cygnus.com. In 4.1, the compiler actually produces the correct address (we don't need to fix it up). I made this code adapt so that it will offset the symbol if it was pointing at an int-aligned location and not otherwise. This way you can use the same gdb for 4.0.x and 4.1 systems. If the parameter is shorter than an int, and is integral (e.g. char, short, or unsigned equivalent), and is claimed to be passed on an integer boundary, don't believe it! Offset the parameter's address to the tail-end of that integer. */ if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (pcc_promotion_type) && TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT && 0 == SYMBOL_VALUE (sym) % TYPE_LENGTH (pcc_promotion_type)) { SYMBOL_VALUE (sym) += TYPE_LENGTH (pcc_promotion_type) - TYPE_LENGTH (SYMBOL_TYPE (sym)); } break; #else /* no BELIEVE_PCC_PROMOTION_TYPE. */ /* If PCC says a parameter is a short or a char, it is really an int. */ if (TYPE_LENGTH (SYMBOL_TYPE (sym)) < TYPE_LENGTH (pcc_promotion_type) && TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_INT) { SYMBOL_TYPE (sym) = TYPE_UNSIGNED (SYMBOL_TYPE (sym)) ? pcc_unsigned_promotion_type : pcc_promotion_type; } break; #endif /* no BELIEVE_PCC_PROMOTION_TYPE. */ } #endif /* !BELIEVE_PCC_PROMOTION. */ #endif /* Big endian. */ case 'P': /* acc seems to use P to delare the prototypes of functions that are referenced by this file. gdb is not prepared to deal with this extra information. FIXME, it ought to. */ if (type == N_FUN) { read_type (&p, objfile); goto process_prototype_types; } /*FALLTHROUGH*/ case 'R': /* Parameter which is in a register. */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_REGPARM; SYMBOL_VALUE (sym) = STAB_REG_TO_REGNUM (valu); if (SYMBOL_VALUE (sym) >= NUM_REGS) { complain (®_value_complaint, SYMBOL_SOURCE_NAME (sym)); SYMBOL_VALUE (sym) = SP_REGNUM; /* Known safe, though useless */ } SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &local_symbols); break; case 'r': /* Register variable (either global or local). */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_REGISTER; SYMBOL_VALUE (sym) = STAB_REG_TO_REGNUM (valu); if (SYMBOL_VALUE (sym) >= NUM_REGS) { complain (®_value_complaint, SYMBOL_SOURCE_NAME (sym)); SYMBOL_VALUE (sym) = SP_REGNUM; /* Known safe, though useless */ } SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; if (within_function) { /* Sun cc uses a pair of symbols, one 'p' and one 'r' with the same name to represent an argument passed in a register. GCC uses 'P' for the same case. So if we find such a symbol pair we combine it into one 'P' symbol. For Sun cc we need to do this regardless of REG_STRUCT_HAS_ADDR, because the compiler puts out the 'p' symbol even if it never saves the argument onto the stack. On most machines, we want to preserve both symbols, so that we can still get information about what is going on with the stack (VAX for computing args_printed, using stack slots instead of saved registers in backtraces, etc.). Note that this code illegally combines main(argc) struct foo argc; { register struct foo argc; } but this case is considered pathological and causes a warning from a decent compiler. */ if (local_symbols && local_symbols->nsyms > 0 #ifndef USE_REGISTER_NOT_ARG && REG_STRUCT_HAS_ADDR (processing_gcc_compilation, SYMBOL_TYPE (sym)) && (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_STRUCT || TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_UNION) #endif ) { struct symbol *prev_sym; prev_sym = local_symbols->symbol[local_symbols->nsyms - 1]; if ((SYMBOL_CLASS (prev_sym) == LOC_REF_ARG || SYMBOL_CLASS (prev_sym) == LOC_ARG) && STREQ (SYMBOL_NAME (prev_sym), SYMBOL_NAME(sym))) { SYMBOL_CLASS (prev_sym) = LOC_REGPARM; /* Use the type from the LOC_REGISTER; that is the type that is actually in that register. */ SYMBOL_TYPE (prev_sym) = SYMBOL_TYPE (sym); SYMBOL_VALUE (prev_sym) = SYMBOL_VALUE (sym); sym = prev_sym; break; } } add_symbol_to_list (sym, &local_symbols); } else add_symbol_to_list (sym, &file_symbols); break; case 'S': /* Static symbol at top level of file */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_VALUE_ADDRESS (sym) = valu; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &file_symbols); break; case 't': SYMBOL_TYPE (sym) = read_type (&p, objfile); /* For a nameless type, we don't want a create a symbol, thus we did not use `sym'. Return without further processing. */ if (nameless) return NULL; SYMBOL_CLASS (sym) = LOC_TYPEDEF; SYMBOL_VALUE (sym) = valu; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; /* C++ vagaries: we may have a type which is derived from a base type which did not have its name defined when the derived class was output. We fill in the derived class's base part member's name here in that case. */ if (TYPE_NAME (SYMBOL_TYPE (sym)) != NULL) if ((TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_STRUCT || TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_UNION) && TYPE_N_BASECLASSES (SYMBOL_TYPE (sym))) { int j; for (j = TYPE_N_BASECLASSES (SYMBOL_TYPE (sym)) - 1; j >= 0; j--) if (TYPE_BASECLASS_NAME (SYMBOL_TYPE (sym), j) == 0) TYPE_BASECLASS_NAME (SYMBOL_TYPE (sym), j) = type_name_no_tag (TYPE_BASECLASS (SYMBOL_TYPE (sym), j)); } if (TYPE_NAME (SYMBOL_TYPE (sym)) == NULL) { /* gcc-2.6 or later (when using -fvtable-thunks) emits a unique named type for a vtable entry. Some gdb code depends on that specific name. */ extern const char vtbl_ptr_name[]; if ((TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_PTR && strcmp (SYMBOL_NAME (sym), vtbl_ptr_name)) || TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_FUNC) { /* If we are giving a name to a type such as "pointer to foo" or "function returning foo", we better not set the TYPE_NAME. If the program contains "typedef char *caddr_t;", we don't want all variables of type char * to print as caddr_t. This is not just a consequence of GDB's type management; PCC and GCC (at least through version 2.4) both output variables of either type char * or caddr_t with the type number defined in the 't' symbol for caddr_t. If a future compiler cleans this up it GDB is not ready for it yet, but if it becomes ready we somehow need to disable this check (without breaking the PCC/GCC2.4 case). Sigh. Fortunately, this check seems not to be necessary for anything except pointers or functions. */ } else TYPE_NAME (SYMBOL_TYPE (sym)) = SYMBOL_NAME (sym); } add_symbol_to_list (sym, &file_symbols); break; case 'T': /* Struct, union, or enum tag. For GNU C++, this can be be followed by 't' which means we are typedef'ing it as well. */ synonym = *p == 't'; if (synonym) { p++; type_synonym_name = obsavestring (SYMBOL_NAME (sym), strlen (SYMBOL_NAME (sym)), &objfile -> symbol_obstack); } /* The semantics of C++ state that "struct foo { ... }" also defines a typedef for "foo". Unfortunately, cfront never makes the typedef when translating C++ into C. We make the typedef here so that "ptype foo" works as expected for cfront translated code. */ else if (current_subfile->language == language_cplus) { synonym = 1; type_synonym_name = obsavestring (SYMBOL_NAME (sym), strlen (SYMBOL_NAME (sym)), &objfile -> symbol_obstack); } SYMBOL_TYPE (sym) = read_type (&p, objfile); /* For a nameless type, we don't want a create a symbol, thus we did not use `sym'. Return without further processing. */ if (nameless) return NULL; SYMBOL_CLASS (sym) = LOC_TYPEDEF; SYMBOL_VALUE (sym) = valu; SYMBOL_NAMESPACE (sym) = STRUCT_NAMESPACE; if (TYPE_TAG_NAME (SYMBOL_TYPE (sym)) == 0) TYPE_TAG_NAME (SYMBOL_TYPE (sym)) = obconcat (&objfile -> type_obstack, "", "", SYMBOL_NAME (sym)); add_symbol_to_list (sym, &file_symbols); if (synonym) { /* Clone the sym and then modify it. */ register struct symbol *typedef_sym = (struct symbol *) obstack_alloc (&objfile -> symbol_obstack, sizeof (struct symbol)); *typedef_sym = *sym; SYMBOL_CLASS (typedef_sym) = LOC_TYPEDEF; SYMBOL_VALUE (typedef_sym) = valu; SYMBOL_NAMESPACE (typedef_sym) = VAR_NAMESPACE; if (TYPE_NAME (SYMBOL_TYPE (sym)) == 0) TYPE_NAME (SYMBOL_TYPE (sym)) = obconcat (&objfile -> type_obstack, "", "", SYMBOL_NAME (sym)); add_symbol_to_list (typedef_sym, &file_symbols); } break; case 'V': /* Static symbol of local scope */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_VALUE_ADDRESS (sym) = valu; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; if (os9k_stabs) add_symbol_to_list (sym, &global_symbols); else add_symbol_to_list (sym, &local_symbols); break; case 'v': /* Reference parameter */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_REF_ARG; SYMBOL_VALUE (sym) = valu; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &local_symbols); break; case 'X': /* This is used by Sun FORTRAN for "function result value". Sun claims ("dbx and dbxtool interfaces", 2nd ed) that Pascal uses it too, but when I tried it Pascal used "x:3" (local symbol) instead. */ SYMBOL_TYPE (sym) = read_type (&p, objfile); SYMBOL_CLASS (sym) = LOC_LOCAL; SYMBOL_VALUE (sym) = valu; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &local_symbols); break; default: SYMBOL_TYPE (sym) = error_type (&p); SYMBOL_CLASS (sym) = LOC_CONST; SYMBOL_VALUE (sym) = 0; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; add_symbol_to_list (sym, &file_symbols); break; } /* When passing structures to a function, some systems sometimes pass the address in a register, not the structure itself. If REG_STRUCT_HAS_ADDR yields non-zero we have to convert LOC_REGPARM to LOC_REGPARM_ADDR for structures and unions. */ if (SYMBOL_CLASS (sym) == LOC_REGPARM && REG_STRUCT_HAS_ADDR (processing_gcc_compilation, SYMBOL_TYPE (sym)) && ((TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_STRUCT) || (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_UNION))) SYMBOL_CLASS (sym) = LOC_REGPARM_ADDR; /* Likewise for converting LOC_ARG to LOC_REF_ARG (for the 7th and subsequent arguments on the sparc, for example). */ if (SYMBOL_CLASS (sym) == LOC_ARG && REG_STRUCT_HAS_ADDR (processing_gcc_compilation, SYMBOL_TYPE (sym)) && ((TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_STRUCT) || (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_UNION))) SYMBOL_CLASS (sym) = LOC_REF_ARG; return sym; } /* Skip rest of this symbol and return an error type. General notes on error recovery: error_type always skips to the end of the symbol (modulo cretinous dbx symbol name continuation). Thus code like this: if (*(*pp)++ != ';') return error_type (pp); is wrong because if *pp starts out pointing at '\0' (typically as the result of an earlier error), it will be incremented to point to the start of the next symbol, which might produce strange results, at least if you run off the end of the string table. Instead use if (**pp != ';') return error_type (pp); ++*pp; or if (**pp != ';') foo = error_type (pp); else ++*pp; And in case it isn't obvious, the point of all this hair is so the compiler can define new types and new syntaxes, and old versions of the debugger will be able to read the new symbol tables. */ static struct type * error_type (pp) char **pp; { complain (&error_type_complaint); while (1) { /* Skip to end of symbol. */ while (**pp != '\0') { (*pp)++; } /* Check for and handle cretinous dbx symbol name continuation! */ if ((*pp)[-1] == '\\' || (*pp)[-1] == '?') { *pp = next_symbol_text (); } else { break; } } return (builtin_type_error); } /* Read type information or a type definition; return the type. Even though this routine accepts either type information or a type definition, the distinction is relevant--some parts of stabsread.c assume that type information starts with a digit, '-', or '(' in deciding whether to call read_type. */ struct type * read_type (pp, objfile) register char **pp; struct objfile *objfile; { register struct type *type = 0; struct type *type1; int typenums[2]; int xtypenums[2]; char type_descriptor; /* Size in bits of type if specified by a type attribute, or -1 if there is no size attribute. */ int type_size = -1; /* Used to distinguish string and bitstring from char-array and set. */ int is_string = 0; /* Read type number if present. The type number may be omitted. for instance in a two-dimensional array declared with type "ar1;1;10;ar1;1;10;4". */ if ((**pp >= '0' && **pp <= '9') || **pp == '(' || **pp == '-') { if (read_type_number (pp, typenums) != 0) return error_type (pp); /* Type is not being defined here. Either it already exists, or this is a forward reference to it. dbx_alloc_type handles both cases. */ if (**pp != '=') return dbx_alloc_type (typenums, objfile); /* Type is being defined here. */ /* Skip the '='. */ ++(*pp); while (**pp == '@') { char *p = *pp + 1; /* It might be a type attribute or a member type. */ if (isdigit (*p) || *p == '(' || *p == '-') /* Member type. */ break; else { /* Type attributes. */ char *attr = p; /* Skip to the semicolon. */ while (*p != ';' && *p != '\0') ++p; *pp = p; if (*p == '\0') return error_type (pp); else /* Skip the semicolon. */ ++*pp; switch (*attr) { case 's': type_size = atoi (attr + 1); if (type_size <= 0) type_size = -1; break; case 'S': is_string = 1; break; default: /* Ignore unrecognized type attributes, so future compilers can invent new ones. */ break; } } } /* Skip the type descriptor, we get it below with (*pp)[-1]. */ ++(*pp); } else { /* 'typenums=' not present, type is anonymous. Read and return the definition, but don't put it in the type vector. */ typenums[0] = typenums[1] = -1; (*pp)++; } type_descriptor = (*pp)[-1]; switch (type_descriptor) { case 'x': { enum type_code code; /* Used to index through file_symbols. */ struct pending *ppt; int i; /* Name including "struct", etc. */ char *type_name; { char *from, *to, *p, *q1, *q2; /* Set the type code according to the following letter. */ switch ((*pp)[0]) { case 's': code = TYPE_CODE_STRUCT; break; case 'u': code = TYPE_CODE_UNION; break; case 'e': code = TYPE_CODE_ENUM; break; default: { /* Complain and keep going, so compilers can invent new cross-reference types. */ static struct complaint msg = {"Unrecognized cross-reference type `%c'", 0, 0}; complain (&msg, (*pp)[0]); code = TYPE_CODE_STRUCT; break; } } q1 = strchr(*pp, '<'); p = strchr(*pp, ':'); if (p == NULL) return error_type (pp); while (q1 && p > q1 && p[1] == ':') { q2 = strchr(q1, '>'); if (!q2 || q2 < p) break; p += 2; p = strchr(p, ':'); if (p == NULL) return error_type (pp); } to = type_name = (char *)obstack_alloc (&objfile->type_obstack, p - *pp + 1); /* Copy the name. */ from = *pp + 1; while (from < p) *to++ = *from++; *to = '\0'; /* Set the pointer ahead of the name which we just read, and the colon. */ *pp = from + 1; } /* Now check to see whether the type has already been declared. This was written for arrays of cross-referenced types before we had TYPE_CODE_TARGET_STUBBED, so I'm pretty sure it is not necessary anymore. But it might be a good idea, to save a little memory. */ for (ppt = file_symbols; ppt; ppt = ppt->next) for (i = 0; i < ppt->nsyms; i++) { struct symbol *sym = ppt->symbol[i]; if (SYMBOL_CLASS (sym) == LOC_TYPEDEF && SYMBOL_NAMESPACE (sym) == STRUCT_NAMESPACE && (TYPE_CODE (SYMBOL_TYPE (sym)) == code) && STREQ (SYMBOL_NAME (sym), type_name)) { obstack_free (&objfile -> type_obstack, type_name); type = SYMBOL_TYPE (sym); return type; } } /* Didn't find the type to which this refers, so we must be dealing with a forward reference. Allocate a type structure for it, and keep track of it so we can fill in the rest of the fields when we get the full type. */ type = dbx_alloc_type (typenums, objfile); TYPE_CODE (type) = code; TYPE_TAG_NAME (type) = type_name; INIT_CPLUS_SPECIFIC(type); TYPE_FLAGS (type) |= TYPE_FLAG_STUB; add_undefined_type (type); return type; } case '-': /* RS/6000 built-in type */ case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '(': { char *pp_saved; (*pp)--; pp_saved = *pp; /* Peek ahead at the number to detect void. */ if (read_type_number (pp, xtypenums) != 0) return error_type (pp); if (typenums[0] == xtypenums[0] && typenums[1] == xtypenums[1]) /* It's being defined as itself. That means it is "void". */ type = init_type (TYPE_CODE_VOID, 1, 0, NULL, objfile); else { struct type *xtype; /* Go back to the number and have read_type get it. This means that we can deal with something like t(1,2)=(3,4)=... which the Lucid compiler uses. */ *pp = pp_saved; xtype = read_type (pp, objfile); /* The type is being defined to another type. So we copy the type. This loses if we copy a C++ class and so we lose track of how the names are mangled (but g++ doesn't output stabs like this now anyway). */ type = alloc_type (objfile); memcpy (type, xtype, sizeof (struct type)); /* The idea behind clearing the names is that the only purpose for defining a type to another type is so that the name of one can be different. So we probably don't need to worry much about the case where the compiler doesn't give a name to the new type. */ TYPE_NAME (type) = NULL; TYPE_TAG_NAME (type) = NULL; } if (typenums[0] != -1) *dbx_lookup_type (typenums) = type; break; } /* In the following types, we must be sure to overwrite any existing type that the typenums refer to, rather than allocating a new one and making the typenums point to the new one. This is because there may already be pointers to the existing type (if it had been forward-referenced), and we must change it to a pointer, function, reference, or whatever, *in-place*. */ case '*': type1 = read_type (pp, objfile); type = make_pointer_type (type1, dbx_lookup_type (typenums)); break; case '&': /* Reference to another type */ type1 = read_type (pp, objfile); type = make_reference_type (type1, dbx_lookup_type (typenums)); break; case 'f': /* Function returning another type */ if (os9k_stabs && **pp == '(') { /* Function prototype; parse it. We must conditionalize this on os9k_stabs because otherwise it could be confused with a Sun-style (1,3) typenumber (I think). */ struct type *t; ++*pp; while (**pp != ')') { t = read_type(pp, objfile); if (**pp == ',') ++*pp; } } type1 = read_type (pp, objfile); type = make_function_type (type1, dbx_lookup_type (typenums)); break; case 'k': /* Const qualifier on some type (Sun) */ case 'c': /* Const qualifier on some type (OS9000) */ /* Because 'c' means other things to AIX and 'k' is perfectly good, only accept 'c' in the os9k_stabs case. */ if (type_descriptor == 'c' && !os9k_stabs) return error_type (pp); type = read_type (pp, objfile); /* FIXME! For now, we ignore const and volatile qualifiers. */ break; case 'B': /* Volatile qual on some type (Sun) */ case 'i': /* Volatile qual on some type (OS9000) */ /* Because 'i' means other things to AIX and 'B' is perfectly good, only accept 'i' in the os9k_stabs case. */ if (type_descriptor == 'i' && !os9k_stabs) return error_type (pp); type = read_type (pp, objfile); /* FIXME! For now, we ignore const and volatile qualifiers. */ break; /* FIXME -- we should be doing smash_to_XXX types here. */ case '@': /* Member (class & variable) type */ { struct type *domain = read_type (pp, objfile); struct type *memtype; if (**pp != ',') /* Invalid member type data format. */ return error_type (pp); ++*pp; memtype = read_type (pp, objfile); type = dbx_alloc_type (typenums, objfile); smash_to_member_type (type, domain, memtype); } break; case '#': /* Method (class & fn) type */ if ((*pp)[0] == '#') { /* We'll get the parameter types from the name. */ struct type *return_type; (*pp)++; return_type = read_type (pp, objfile); if (*(*pp)++ != ';') complain (&invalid_member_complaint, symnum); type = allocate_stub_method (return_type); if (typenums[0] != -1) *dbx_lookup_type (typenums) = type; } else { struct type *domain = read_type (pp, objfile); struct type *return_type; struct type **args; if (**pp != ',') /* Invalid member type data format. */ return error_type (pp); else ++(*pp); return_type = read_type (pp, objfile); args = read_args (pp, ';', objfile); type = dbx_alloc_type (typenums, objfile); smash_to_method_type (type, domain, return_type, args); } break; case 'r': /* Range type */ type = read_range_type (pp, typenums, objfile); if (typenums[0] != -1) *dbx_lookup_type (typenums) = type; break; case 'b': if (os9k_stabs) /* Const and volatile qualified type. */ type = read_type (pp, objfile); else { /* Sun ACC builtin int type */ type = read_sun_builtin_type (pp, typenums, objfile); if (typenums[0] != -1) *dbx_lookup_type (typenums) = type; } break; case 'R': /* Sun ACC builtin float type */ type = read_sun_floating_type (pp, typenums, objfile); if (typenums[0] != -1) *dbx_lookup_type (typenums) = type; break; case 'e': /* Enumeration type */ type = dbx_alloc_type (typenums, objfile); type = read_enum_type (pp, type, objfile); if (typenums[0] != -1) *dbx_lookup_type (typenums) = type; break; case 's': /* Struct type */ case 'u': /* Union type */ type = dbx_alloc_type (typenums, objfile); if (!TYPE_NAME (type)) { TYPE_NAME (type) = type_synonym_name; } type_synonym_name = NULL; switch (type_descriptor) { case 's': TYPE_CODE (type) = TYPE_CODE_STRUCT; break; case 'u': TYPE_CODE (type) = TYPE_CODE_UNION; break; } type = read_struct_type (pp, type, objfile); break; case 'a': /* Array type */ if (**pp != 'r') return error_type (pp); ++*pp; type = dbx_alloc_type (typenums, objfile); type = read_array_type (pp, type, objfile); if (is_string) TYPE_CODE (type) = TYPE_CODE_STRING; break; case 'S': type1 = read_type (pp, objfile); type = create_set_type ((struct type*) NULL, type1); if (is_string) TYPE_CODE (type) = TYPE_CODE_BITSTRING; if (typenums[0] != -1) *dbx_lookup_type (typenums) = type; break; default: --*pp; /* Go back to the symbol in error */ /* Particularly important if it was \0! */ return error_type (pp); } if (type == 0) { warning ("GDB internal error, type is NULL in stabsread.c\n"); return error_type (pp); } /* Size specified in a type attribute overrides any other size. */ if (type_size != -1) TYPE_LENGTH (type) = type_size / TARGET_CHAR_BIT; return type; } /* RS/6000 xlc/dbx combination uses a set of builtin types, starting from -1. Return the proper type node for a given builtin type number. */ static struct type * rs6000_builtin_type (typenum) int typenum; { /* We recognize types numbered from -NUMBER_RECOGNIZED to -1. */ #define NUMBER_RECOGNIZED 30 /* This includes an empty slot for type number -0. */ static struct type *negative_types[NUMBER_RECOGNIZED + 1]; struct type *rettype = NULL; if (typenum >= 0 || typenum < -NUMBER_RECOGNIZED) { complain (&rs6000_builtin_complaint, typenum); return builtin_type_error; } if (negative_types[-typenum] != NULL) return negative_types[-typenum]; #if TARGET_CHAR_BIT != 8 #error This code wrong for TARGET_CHAR_BIT not 8 /* These definitions all assume that TARGET_CHAR_BIT is 8. I think that if that ever becomes not true, the correct fix will be to make the size in the struct type to be in bits, not in units of TARGET_CHAR_BIT. */ #endif switch (-typenum) { case 1: /* The size of this and all the other types are fixed, defined by the debugging format. If there is a type called "int" which is other than 32 bits, then it should use a new negative type number (or avoid negative type numbers for that case). See stabs.texinfo. */ rettype = init_type (TYPE_CODE_INT, 4, 0, "int", NULL); break; case 2: rettype = init_type (TYPE_CODE_INT, 1, 0, "char", NULL); break; case 3: rettype = init_type (TYPE_CODE_INT, 2, 0, "short", NULL); break; case 4: rettype = init_type (TYPE_CODE_INT, 4, 0, "long", NULL); break; case 5: rettype = init_type (TYPE_CODE_INT, 1, TYPE_FLAG_UNSIGNED, "unsigned char", NULL); break; case 6: rettype = init_type (TYPE_CODE_INT, 1, 0, "signed char", NULL); break; case 7: rettype = init_type (TYPE_CODE_INT, 2, TYPE_FLAG_UNSIGNED, "unsigned short", NULL); break; case 8: rettype = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_UNSIGNED, "unsigned int", NULL); break; case 9: rettype = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_UNSIGNED, "unsigned", NULL); case 10: rettype = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_UNSIGNED, "unsigned long", NULL); break; case 11: rettype = init_type (TYPE_CODE_VOID, 1, 0, "void", NULL); break; case 12: /* IEEE single precision (32 bit). */ rettype = init_type (TYPE_CODE_FLT, 4, 0, "float", NULL); break; case 13: /* IEEE double precision (64 bit). */ rettype = init_type (TYPE_CODE_FLT, 8, 0, "double", NULL); break; case 14: /* This is an IEEE double on the RS/6000, and different machines with different sizes for "long double" should use different negative type numbers. See stabs.texinfo. */ rettype = init_type (TYPE_CODE_FLT, 8, 0, "long double", NULL); break; case 15: rettype = init_type (TYPE_CODE_INT, 4, 0, "integer", NULL); break; case 16: rettype = init_type (TYPE_CODE_BOOL, 4, 0, "boolean", NULL); break; case 17: rettype = init_type (TYPE_CODE_FLT, 4, 0, "short real", NULL); break; case 18: rettype = init_type (TYPE_CODE_FLT, 8, 0, "real", NULL); break; case 19: rettype = init_type (TYPE_CODE_ERROR, 0, 0, "stringptr", NULL); break; case 20: rettype = init_type (TYPE_CODE_CHAR, 1, TYPE_FLAG_UNSIGNED, "character", NULL); break; case 21: rettype = init_type (TYPE_CODE_BOOL, 1, TYPE_FLAG_UNSIGNED, "logical*1", NULL); break; case 22: rettype = init_type (TYPE_CODE_BOOL, 2, TYPE_FLAG_UNSIGNED, "logical*2", NULL); break; case 23: rettype = init_type (TYPE_CODE_BOOL, 4, TYPE_FLAG_UNSIGNED, "logical*4", NULL); break; case 24: rettype = init_type (TYPE_CODE_BOOL, 4, TYPE_FLAG_UNSIGNED, "logical", NULL); break; case 25: /* Complex type consisting of two IEEE single precision values. */ rettype = init_type (TYPE_CODE_ERROR, 8, 0, "complex", NULL); break; case 26: /* Complex type consisting of two IEEE double precision values. */ rettype = init_type (TYPE_CODE_ERROR, 16, 0, "double complex", NULL); break; case 27: rettype = init_type (TYPE_CODE_INT, 1, 0, "integer*1", NULL); break; case 28: rettype = init_type (TYPE_CODE_INT, 2, 0, "integer*2", NULL); break; case 29: rettype = init_type (TYPE_CODE_INT, 4, 0, "integer*4", NULL); break; case 30: rettype = init_type (TYPE_CODE_CHAR, 2, 0, "wchar", NULL); break; } negative_types[-typenum] = rettype; return rettype; } /* This page contains subroutines of read_type. */ #define VISIBILITY_PRIVATE '0' /* Stabs character for private field */ #define VISIBILITY_PROTECTED '1' /* Stabs character for protected fld */ #define VISIBILITY_PUBLIC '2' /* Stabs character for public field */ #define VISIBILITY_IGNORE '9' /* Optimized out or zero length */ /* Read member function stabs info for C++ classes. The form of each member function data is: NAME :: TYPENUM[=type definition] ARGS : PHYSNAME ; An example with two member functions is: afunc1::20=##15;:i;2A.;afunc2::20:i;2A.; For the case of overloaded operators, the format is op$::*.funcs, where $ is the CPLUS_MARKER (usually '$'), `*' holds the place for an operator name (such as `+=') and `.' marks the end of the operator name. Returns 1 for success, 0 for failure. */ static int read_member_functions (fip, pp, type, objfile) struct field_info *fip; char **pp; struct type *type; struct objfile *objfile; { int nfn_fields = 0; int length = 0; /* Total number of member functions defined in this class. If the class defines two `f' functions, and one `g' function, then this will have the value 3. */ int total_length = 0; int i; struct next_fnfield { struct next_fnfield *next; struct fn_field fn_field; } *sublist; struct type *look_ahead_type; struct next_fnfieldlist *new_fnlist; struct next_fnfield *new_sublist; char *main_fn_name; register char *p; /* Process each list until we find something that is not a member function or find the end of the functions. */ while (**pp != ';') { /* We should be positioned at the start of the function name. Scan forward to find the first ':' and if it is not the first of a "::" delimiter, then this is not a member function. */ p = *pp; while (*p != ':') { p++; } if (p[1] != ':') { break; } sublist = NULL; look_ahead_type = NULL; length = 0; new_fnlist = (struct next_fnfieldlist *) xmalloc (sizeof (struct next_fnfieldlist)); make_cleanup (free, new_fnlist); memset (new_fnlist, 0, sizeof (struct next_fnfieldlist)); if ((*pp)[0] == 'o' && (*pp)[1] == 'p' && (*pp)[2] == CPLUS_MARKER) { /* This is a completely wierd case. In order to stuff in the names that might contain colons (the usual name delimiter), Mike Tiemann defined a different name format which is signalled if the identifier is "op$". In that case, the format is "op$::XXXX." where XXXX is the name. This is used for names like "+" or "=". YUUUUUUUK! FIXME! */ /* This lets the user type "break operator+". We could just put in "+" as the name, but that wouldn't work for "*". */ static char opname[32] = {'o', 'p', CPLUS_MARKER}; char *o = opname + 3; /* Skip past '::'. */ *pp = p + 2; STABS_CONTINUE (pp); p = *pp; while (*p != '.') { *o++ = *p++; } main_fn_name = savestring (opname, o - opname); /* Skip past '.' */ *pp = p + 1; } else { main_fn_name = savestring (*pp, p - *pp); /* Skip past '::'. */ *pp = p + 2; } new_fnlist -> fn_fieldlist.name = main_fn_name; do { new_sublist = (struct next_fnfield *) xmalloc (sizeof (struct next_fnfield)); make_cleanup (free, new_sublist); memset (new_sublist, 0, sizeof (struct next_fnfield)); /* Check for and handle cretinous dbx symbol name continuation! */ if (look_ahead_type == NULL) { /* Normal case. */ STABS_CONTINUE (pp); new_sublist -> fn_field.type = read_type (pp, objfile); if (**pp != ':') { /* Invalid symtab info for member function. */ return 0; } } else { /* g++ version 1 kludge */ new_sublist -> fn_field.type = look_ahead_type; look_ahead_type = NULL; } (*pp)++; p = *pp; while (*p != ';') { p++; } /* If this is just a stub, then we don't have the real name here. */ if (TYPE_FLAGS (new_sublist -> fn_field.type) & TYPE_FLAG_STUB) { if (!TYPE_DOMAIN_TYPE (new_sublist -> fn_field.type)) TYPE_DOMAIN_TYPE (new_sublist -> fn_field.type) = type; new_sublist -> fn_field.is_stub = 1; } new_sublist -> fn_field.physname = savestring (*pp, p - *pp); *pp = p + 1; /* Set this member function's visibility fields. */ switch (*(*pp)++) { case VISIBILITY_PRIVATE: new_sublist -> fn_field.is_private = 1; break; case VISIBILITY_PROTECTED: new_sublist -> fn_field.is_protected = 1; break; } STABS_CONTINUE (pp); switch (**pp) { case 'A': /* Normal functions. */ new_sublist -> fn_field.is_const = 0; new_sublist -> fn_field.is_volatile = 0; (*pp)++; break; case 'B': /* `const' member functions. */ new_sublist -> fn_field.is_const = 1; new_sublist -> fn_field.is_volatile = 0; (*pp)++; break; case 'C': /* `volatile' member function. */ new_sublist -> fn_field.is_const = 0; new_sublist -> fn_field.is_volatile = 1; (*pp)++; break; case 'D': /* `const volatile' member function. */ new_sublist -> fn_field.is_const = 1; new_sublist -> fn_field.is_volatile = 1; (*pp)++; break; case '*': /* File compiled with g++ version 1 -- no info */ case '?': case '.': break; default: complain (&const_vol_complaint, **pp); break; } switch (*(*pp)++) { case '*': { int nbits; /* virtual member function, followed by index. The sign bit is set to distinguish pointers-to-methods from virtual function indicies. Since the array is in words, the quantity must be shifted left by 1 on 16 bit machine, and by 2 on 32 bit machine, forcing the sign bit out, and usable as a valid index into the array. Remove the sign bit here. */ new_sublist -> fn_field.voffset = (0x7fffffff & read_huge_number (pp, ';', &nbits)) + 2; if (nbits != 0) return 0; STABS_CONTINUE (pp); if (**pp == ';' || **pp == '\0') { /* Must be g++ version 1. */ new_sublist -> fn_field.fcontext = 0; } else { /* Figure out from whence this virtual function came. It may belong to virtual function table of one of its baseclasses. */ look_ahead_type = read_type (pp, objfile); if (**pp == ':') { /* g++ version 1 overloaded methods. */ } else { new_sublist -> fn_field.fcontext = look_ahead_type; if (**pp != ';') { return 0; } else { ++*pp; } look_ahead_type = NULL; } } break; } case '?': /* static member function. */ new_sublist -> fn_field.voffset = VOFFSET_STATIC; if (strncmp (new_sublist -> fn_field.physname, main_fn_name, strlen (main_fn_name))) { new_sublist -> fn_field.is_stub = 1; } break; default: /* error */ complain (&member_fn_complaint, (*pp)[-1]); /* Fall through into normal member function. */ case '.': /* normal member function. */ new_sublist -> fn_field.voffset = 0; new_sublist -> fn_field.fcontext = 0; break; } new_sublist -> next = sublist; sublist = new_sublist; length++; STABS_CONTINUE (pp); } while (**pp != ';' && **pp != '\0'); (*pp)++; new_fnlist -> fn_fieldlist.fn_fields = (struct fn_field *) obstack_alloc (&objfile -> type_obstack, sizeof (struct fn_field) * length); memset (new_fnlist -> fn_fieldlist.fn_fields, 0, sizeof (struct fn_field) * length); for (i = length; (i--, sublist); sublist = sublist -> next) { new_fnlist -> fn_fieldlist.fn_fields[i] = sublist -> fn_field; } new_fnlist -> fn_fieldlist.length = length; new_fnlist -> next = fip -> fnlist; fip -> fnlist = new_fnlist; nfn_fields++; total_length += length; STABS_CONTINUE (pp); } if (nfn_fields) { ALLOCATE_CPLUS_STRUCT_TYPE (type); TYPE_FN_FIELDLISTS (type) = (struct fn_fieldlist *) TYPE_ALLOC (type, sizeof (struct fn_fieldlist) * nfn_fields); memset (TYPE_FN_FIELDLISTS (type), 0, sizeof (struct fn_fieldlist) * nfn_fields); TYPE_NFN_FIELDS (type) = nfn_fields; TYPE_NFN_FIELDS_TOTAL (type) = total_length; } return 1; } /* Special GNU C++ name. Returns 1 for success, 0 for failure. "failure" means that we can't keep parsing and it's time for error_type(). */ static int read_cpp_abbrev (fip, pp, type, objfile) struct field_info *fip; char **pp; struct type *type; struct objfile *objfile; { register char *p; char *name; char cpp_abbrev; struct type *context; p = *pp; if (*++p == 'v') { name = NULL; cpp_abbrev = *++p; *pp = p + 1; /* At this point, *pp points to something like "22:23=*22...", where the type number before the ':' is the "context" and everything after is a regular type definition. Lookup the type, find it's name, and construct the field name. */ context = read_type (pp, objfile); switch (cpp_abbrev) { case 'f': /* $vf -- a virtual function table pointer */ fip->list->field.name = obconcat (&objfile->type_obstack, vptr_name, "", ""); break; case 'b': /* $vb -- a virtual bsomethingorother */ name = type_name_no_tag (context); if (name == NULL) { complain (&invalid_cpp_type_complaint, symnum); name = "FOO"; } fip->list->field.name = obconcat (&objfile->type_obstack, vb_name, name, ""); break; default: complain (&invalid_cpp_abbrev_complaint, *pp); fip->list->field.name = obconcat (&objfile->type_obstack, "INVALID_CPLUSPLUS_ABBREV", "", ""); break; } /* At this point, *pp points to the ':'. Skip it and read the field type. */ p = ++(*pp); if (p[-1] != ':') { complain (&invalid_cpp_abbrev_complaint, *pp); return 0; } fip->list->field.type = read_type (pp, objfile); if (**pp == ',') (*pp)++; /* Skip the comma. */ else return 0; { int nbits; fip->list->field.bitpos = read_huge_number (pp, ';', &nbits); if (nbits != 0) return 0; } /* This field is unpacked. */ fip->list->field.bitsize = 0; fip->list->visibility = VISIBILITY_PRIVATE; } else { complain (&invalid_cpp_abbrev_complaint, *pp); /* We have no idea what syntax an unrecognized abbrev would have, so better return 0. If we returned 1, we would need to at least advance *pp to avoid an infinite loop. */ return 0; } return 1; } static void read_one_struct_field (fip, pp, p, type, objfile) struct field_info *fip; char **pp; char *p; struct type *type; struct objfile *objfile; { fip -> list -> field.name = obsavestring (*pp, p - *pp, &objfile -> type_obstack); *pp = p + 1; /* This means we have a visibility for a field coming. */ if (**pp == '/') { (*pp)++; fip -> list -> visibility = *(*pp)++; } else { /* normal dbx-style format, no explicit visibility */ fip -> list -> visibility = VISIBILITY_PUBLIC; } fip -> list -> field.type = read_type (pp, objfile); if (**pp == ':') { p = ++(*pp); #if 0 /* Possible future hook for nested types. */ if (**pp == '!') { fip -> list -> field.bitpos = (long)-2; /* nested type */ p = ++(*pp); } else #endif { /* Static class member. */ fip -> list -> field.bitpos = (long) -1; } while (*p != ';') { p++; } fip -> list -> field.bitsize = (long) savestring (*pp, p - *pp); *pp = p + 1; return; } else if (**pp != ',') { /* Bad structure-type format. */ complain (&stabs_general_complaint, "bad structure-type format"); return; } (*pp)++; /* Skip the comma. */ { int nbits; fip -> list -> field.bitpos = read_huge_number (pp, ',', &nbits); if (nbits != 0) { complain (&stabs_general_complaint, "bad structure-type format"); return; } fip -> list -> field.bitsize = read_huge_number (pp, ';', &nbits); if (nbits != 0) { complain (&stabs_general_complaint, "bad structure-type format"); return; } } if (fip -> list -> field.bitpos == 0 && fip -> list -> field.bitsize == 0) { /* This can happen in two cases: (1) at least for gcc 2.4.5 or so, it is a field which has been optimized out. The correct stab for this case is to use VISIBILITY_IGNORE, but that is a recent invention. (2) It is a 0-size array. For example union { int num; char str[0]; } foo. Printing "" for str in "p foo" is OK, since foo.str (and thus foo.str[3]) will continue to work, and a 0-size array as a whole doesn't have any contents to print. I suspect this probably could also happen with gcc -gstabs (not -gstabs+) for static fields, and perhaps other C++ extensions. Hopefully few people use -gstabs with gdb, since it is intended for dbx compatibility. */ /* Ignore this field. */ fip -> list-> visibility = VISIBILITY_IGNORE; } else { /* Detect an unpacked field and mark it as such. dbx gives a bit size for all fields. Note that forward refs cannot be packed, and treat enums as if they had the width of ints. */ if (TYPE_CODE (fip -> list -> field.type) != TYPE_CODE_INT && TYPE_CODE (fip -> list -> field.type) != TYPE_CODE_ENUM) { fip -> list -> field.bitsize = 0; } if ((fip -> list -> field.bitsize == TARGET_CHAR_BIT * TYPE_LENGTH (fip -> list -> field.type) || (TYPE_CODE (fip -> list -> field.type) == TYPE_CODE_ENUM && (fip -> list -> field.bitsize == TARGET_INT_BIT) ) ) && fip -> list -> field.bitpos % 8 == 0) { fip -> list -> field.bitsize = 0; } } } /* Read struct or class data fields. They have the form: NAME : [VISIBILITY] TYPENUM , BITPOS , BITSIZE ; At the end, we see a semicolon instead of a field. In C++, this may wind up being NAME:?TYPENUM:PHYSNAME; for a static field. The optional VISIBILITY is one of: '/0' (VISIBILITY_PRIVATE) '/1' (VISIBILITY_PROTECTED) '/2' (VISIBILITY_PUBLIC) '/9' (VISIBILITY_IGNORE) or nothing, for C style fields with public visibility. Returns 1 for success, 0 for failure. */ static int read_struct_fields (fip, pp, type, objfile) struct field_info *fip; char **pp; struct type *type; struct objfile *objfile; { register char *p; struct nextfield *new; /* We better set p right now, in case there are no fields at all... */ p = *pp; /* Read each data member type until we find the terminating ';' at the end of the data member list, or break for some other reason such as finding the start of the member function list. */ while (**pp != ';') { if (os9k_stabs && **pp == ',') break; STABS_CONTINUE (pp); /* Get space to record the next field's data. */ new = (struct nextfield *) xmalloc (sizeof (struct nextfield)); make_cleanup (free, new); memset (new, 0, sizeof (struct nextfield)); new -> next = fip -> list; fip -> list = new; /* Get the field name. */ p = *pp; /* If is starts with CPLUS_MARKER it is a special abbreviation, unless the CPLUS_MARKER is followed by an underscore, in which case it is just the name of an anonymous type, which we should handle like any other type name. We accept either '$' or '.', because a field name can never contain one of these characters except as a CPLUS_MARKER (we probably should be doing that in most parts of GDB). */ if ((*p == '$' || *p == '.') && p[1] != '_') { if (!read_cpp_abbrev (fip, pp, type, objfile)) return 0; continue; } /* Look for the ':' that separates the field name from the field values. Data members are delimited by a single ':', while member functions are delimited by a pair of ':'s. When we hit the member functions (if any), terminate scan loop and return. */ while (*p != ':' && *p != '\0') { p++; } if (*p == '\0') return 0; /* Check to see if we have hit the member functions yet. */ if (p[1] == ':') { break; } read_one_struct_field (fip, pp, p, type, objfile); } if (p[0] == ':' && p[1] == ':') { /* chill the list of fields: the last entry (at the head) is a partially constructed entry which we now scrub. */ fip -> list = fip -> list -> next; } return 1; } /* The stabs for C++ derived classes contain baseclass information which is marked by a '!' character after the total size. This function is called when we encounter the baseclass marker, and slurps up all the baseclass information. Immediately following the '!' marker is the number of base classes that the class is derived from, followed by information for each base class. For each base class, there are two visibility specifiers, a bit offset to the base class information within the derived class, a reference to the type for the base class, and a terminating semicolon. A typical example, with two base classes, would be "!2,020,19;0264,21;". ^^ ^ ^ ^ ^ ^ ^ Baseclass information marker __________________|| | | | | | | Number of baseclasses __________________________| | | | | | | Visibility specifiers (2) ________________________| | | | | | Offset in bits from start of class _________________| | | | | Type number for base class ___________________________| | | | Visibility specifiers (2) _______________________________| | | Offset in bits from start of class ________________________| | Type number of base class ____________________________________| Return 1 for success, 0 for (error-type-inducing) failure. */ static int read_baseclasses (fip, pp, type, objfile) struct field_info *fip; char **pp; struct type *type; struct objfile *objfile; { int i; struct nextfield *new; if (**pp != '!') { return 1; } else { /* Skip the '!' baseclass information marker. */ (*pp)++; } ALLOCATE_CPLUS_STRUCT_TYPE (type); { int nbits; TYPE_N_BASECLASSES (type) = read_huge_number (pp, ',', &nbits); if (nbits != 0) return 0; } #if 0 /* Some stupid compilers have trouble with the following, so break it up into simpler expressions. */ TYPE_FIELD_VIRTUAL_BITS (type) = (B_TYPE *) TYPE_ALLOC (type, B_BYTES (TYPE_N_BASECLASSES (type))); #else { int num_bytes = B_BYTES (TYPE_N_BASECLASSES (type)); char *pointer; pointer = (char *) TYPE_ALLOC (type, num_bytes); TYPE_FIELD_VIRTUAL_BITS (type) = (B_TYPE *) pointer; } #endif /* 0 */ B_CLRALL (TYPE_FIELD_VIRTUAL_BITS (type), TYPE_N_BASECLASSES (type)); for (i = 0; i < TYPE_N_BASECLASSES (type); i++) { new = (struct nextfield *) xmalloc (sizeof (struct nextfield)); make_cleanup (free, new); memset (new, 0, sizeof (struct nextfield)); new -> next = fip -> list; fip -> list = new; new -> field.bitsize = 0; /* this should be an unpacked field! */ STABS_CONTINUE (pp); switch (**pp) { case '0': /* Nothing to do. */ break; case '1': SET_TYPE_FIELD_VIRTUAL (type, i); break; default: /* Unknown character. Complain and treat it as non-virtual. */ { static struct complaint msg = { "Unknown virtual character `%c' for baseclass", 0, 0}; complain (&msg, **pp); } } ++(*pp); new -> visibility = *(*pp)++; switch (new -> visibility) { case VISIBILITY_PRIVATE: case VISIBILITY_PROTECTED: case VISIBILITY_PUBLIC: break; default: /* Bad visibility format. Complain and treat it as public. */ { static struct complaint msg = { "Unknown visibility `%c' for baseclass", 0, 0}; complain (&msg, new -> visibility); new -> visibility = VISIBILITY_PUBLIC; } } { int nbits; /* The remaining value is the bit offset of the portion of the object corresponding to this baseclass. Always zero in the absence of multiple inheritance. */ new -> field.bitpos = read_huge_number (pp, ',', &nbits); if (nbits != 0) return 0; } /* The last piece of baseclass information is the type of the base class. Read it, and remember it's type name as this field's name. */ new -> field.type = read_type (pp, objfile); new -> field.name = type_name_no_tag (new -> field.type); /* skip trailing ';' and bump count of number of fields seen */ if (**pp == ';') (*pp)++; else return 0; } return 1; } /* The tail end of stabs for C++ classes that contain a virtual function pointer contains a tilde, a %, and a type number. The type number refers to the base class (possibly this class itself) which contains the vtable pointer for the current class. This function is called when we have parsed all the method declarations, so we can look for the vptr base class info. */ static int read_tilde_fields (fip, pp, type, objfile) struct field_info *fip; char **pp; struct type *type; struct objfile *objfile; { register char *p; STABS_CONTINUE (pp); /* If we are positioned at a ';', then skip it. */ if (**pp == ';') { (*pp)++; } if (**pp == '~') { (*pp)++; if (**pp == '=' || **pp == '+' || **pp == '-') { /* Obsolete flags that used to indicate the presence of constructors and/or destructors. */ (*pp)++; } /* Read either a '%' or the final ';'. */ if (*(*pp)++ == '%') { /* The next number is the type number of the base class (possibly our own class) which supplies the vtable for this class. Parse it out, and search that class to find its vtable pointer, and install those into TYPE_VPTR_BASETYPE and TYPE_VPTR_FIELDNO. */ struct type *t; int i; t = read_type (pp, objfile); p = (*pp)++; while (*p != '\0' && *p != ';') { p++; } if (*p == '\0') { /* Premature end of symbol. */ return 0; } TYPE_VPTR_BASETYPE (type) = t; if (type == t) /* Our own class provides vtbl ptr */ { for (i = TYPE_NFIELDS (t) - 1; i >= TYPE_N_BASECLASSES (t); --i) { if (! strncmp (TYPE_FIELD_NAME (t, i), vptr_name, sizeof (vptr_name) - 1)) { TYPE_VPTR_FIELDNO (type) = i; goto gotit; } } /* Virtual function table field not found. */ complain (&vtbl_notfound_complaint, TYPE_NAME (type)); return 0; } else { TYPE_VPTR_FIELDNO (type) = TYPE_VPTR_FIELDNO (t); } gotit: *pp = p + 1; } } return 1; } static int attach_fn_fields_to_type (fip, type) struct field_info *fip; register struct type *type; { register int n; for (n = 0; n < TYPE_N_BASECLASSES (type); n++) { if (TYPE_CODE (TYPE_BASECLASS (type, n)) == TYPE_CODE_UNDEF) { /* @@ Memory leak on objfile -> type_obstack? */ return 0; } TYPE_NFN_FIELDS_TOTAL (type) += TYPE_NFN_FIELDS_TOTAL (TYPE_BASECLASS (type, n)); } for (n = TYPE_NFN_FIELDS (type); fip -> fnlist != NULL; fip -> fnlist = fip -> fnlist -> next) { --n; /* Circumvent Sun3 compiler bug */ TYPE_FN_FIELDLISTS (type)[n] = fip -> fnlist -> fn_fieldlist; } return 1; } /* Create the vector of fields, and record how big it is. We need this info to record proper virtual function table information for this class's virtual functions. */ static int attach_fields_to_type (fip, type, objfile) struct field_info *fip; register struct type *type; struct objfile *objfile; { register int nfields = 0; register int non_public_fields = 0; register struct nextfield *scan; /* Count up the number of fields that we have, as well as taking note of whether or not there are any non-public fields, which requires us to allocate and build the private_field_bits and protected_field_bits bitfields. */ for (scan = fip -> list; scan != NULL; scan = scan -> next) { nfields++; if (scan -> visibility != VISIBILITY_PUBLIC) { non_public_fields++; } } /* Now we know how many fields there are, and whether or not there are any non-public fields. Record the field count, allocate space for the array of fields, and create blank visibility bitfields if necessary. */ TYPE_NFIELDS (type) = nfields; TYPE_FIELDS (type) = (struct field *) TYPE_ALLOC (type, sizeof (struct field) * nfields); memset (TYPE_FIELDS (type), 0, sizeof (struct field) * nfields); if (non_public_fields) { ALLOCATE_CPLUS_STRUCT_TYPE (type); TYPE_FIELD_PRIVATE_BITS (type) = (B_TYPE *) TYPE_ALLOC (type, B_BYTES (nfields)); B_CLRALL (TYPE_FIELD_PRIVATE_BITS (type), nfields); TYPE_FIELD_PROTECTED_BITS (type) = (B_TYPE *) TYPE_ALLOC (type, B_BYTES (nfields)); B_CLRALL (TYPE_FIELD_PROTECTED_BITS (type), nfields); TYPE_FIELD_IGNORE_BITS (type) = (B_TYPE *) TYPE_ALLOC (type, B_BYTES (nfields)); B_CLRALL (TYPE_FIELD_IGNORE_BITS (type), nfields); } /* Copy the saved-up fields into the field vector. Start from the head of the list, adding to the tail of the field array, so that they end up in the same order in the array in which they were added to the list. */ while (nfields-- > 0) { TYPE_FIELD (type, nfields) = fip -> list -> field; switch (fip -> list -> visibility) { case VISIBILITY_PRIVATE: SET_TYPE_FIELD_PRIVATE (type, nfields); break; case VISIBILITY_PROTECTED: SET_TYPE_FIELD_PROTECTED (type, nfields); break; case VISIBILITY_IGNORE: SET_TYPE_FIELD_IGNORE (type, nfields); break; case VISIBILITY_PUBLIC: break; default: /* Unknown visibility. Complain and treat it as public. */ { static struct complaint msg = { "Unknown visibility `%c' for field", 0, 0}; complain (&msg, fip -> list -> visibility); } break; } fip -> list = fip -> list -> next; } return 1; } /* Read the description of a structure (or union type) and return an object describing the type. PP points to a character pointer that points to the next unconsumed token in the the stabs string. For example, given stabs "A:T4=s4a:1,0,32;;", *PP will point to "4a:1,0,32;;". TYPE points to an incomplete type that needs to be filled in. OBJFILE points to the current objfile from which the stabs information is being read. (Note that it is redundant in that TYPE also contains a pointer to this same objfile, so it might be a good idea to eliminate it. FIXME). */ static struct type * read_struct_type (pp, type, objfile) char **pp; struct type *type; struct objfile *objfile; { struct cleanup *back_to; struct field_info fi; fi.list = NULL; fi.fnlist = NULL; back_to = make_cleanup (null_cleanup, 0); INIT_CPLUS_SPECIFIC (type); TYPE_FLAGS (type) &= ~TYPE_FLAG_STUB; /* First comes the total size in bytes. */ { int nbits; TYPE_LENGTH (type) = read_huge_number (pp, 0, &nbits); if (nbits != 0) return error_type (pp); } /* Now read the baseclasses, if any, read the regular C struct or C++ class member fields, attach the fields to the type, read the C++ member functions, attach them to the type, and then read any tilde field (baseclass specifier for the class holding the main vtable). */ if (!read_baseclasses (&fi, pp, type, objfile) || !read_struct_fields (&fi, pp, type, objfile) || !attach_fields_to_type (&fi, type, objfile) || !read_member_functions (&fi, pp, type, objfile) || !attach_fn_fields_to_type (&fi, type) || !read_tilde_fields (&fi, pp, type, objfile)) { do_cleanups (back_to); return (error_type (pp)); } do_cleanups (back_to); return (type); } /* Read a definition of an array type, and create and return a suitable type object. Also creates a range type which represents the bounds of that array. */ static struct type * read_array_type (pp, type, objfile) register char **pp; register struct type *type; struct objfile *objfile; { struct type *index_type, *element_type, *range_type; int lower, upper; int adjustable = 0; int nbits; /* Format of an array type: "ar;lower;upper;". OS9000: "arlower,upper;". Fortran adjustable arrays use Adigits or Tdigits for lower or upper; for these, produce a type like float[][]. */ if (os9k_stabs) index_type = builtin_type_int; else { index_type = read_type (pp, objfile); if (**pp != ';') /* Improper format of array type decl. */ return error_type (pp); ++*pp; } if (!(**pp >= '0' && **pp <= '9') && **pp != '-') { (*pp)++; adjustable = 1; } lower = read_huge_number (pp, os9k_stabs ? ',' : ';', &nbits); if (nbits != 0) return error_type (pp); if (!(**pp >= '0' && **pp <= '9') && **pp != '-') { (*pp)++; adjustable = 1; } upper = read_huge_number (pp, ';', &nbits); if (nbits != 0) return error_type (pp); element_type = read_type (pp, objfile); if (adjustable) { lower = 0; upper = -1; } range_type = create_range_type ((struct type *) NULL, index_type, lower, upper); type = create_array_type (type, element_type, range_type); /* If we have an array whose element type is not yet known, but whose bounds *are* known, record it to be adjusted at the end of the file. */ /* FIXME: Why check for zero length rather than TYPE_FLAG_STUB? I think the two have the same effect except that the latter is cleaner and the former would be wrong for types which really are zero-length (if we have any). */ if (TYPE_LENGTH (element_type) == 0 && !adjustable) { TYPE_FLAGS (type) |= TYPE_FLAG_TARGET_STUB; add_undefined_type (type); } return type; } /* Read a definition of an enumeration type, and create and return a suitable type object. Also defines the symbols that represent the values of the type. */ static struct type * read_enum_type (pp, type, objfile) register char **pp; register struct type *type; struct objfile *objfile; { register char *p; char *name; register long n; register struct symbol *sym; int nsyms = 0; struct pending **symlist; struct pending *osyms, *syms; int o_nsyms; int nbits; #if 0 /* FIXME! The stabs produced by Sun CC merrily define things that ought to be file-scope, between N_FN entries, using N_LSYM. What's a mother to do? For now, force all enum values to file scope. */ if (within_function) symlist = &local_symbols; else #endif symlist = &file_symbols; osyms = *symlist; o_nsyms = osyms ? osyms->nsyms : 0; if (os9k_stabs) { /* Size. Perhaps this does not have to be conditionalized on os9k_stabs (assuming the name of an enum constant can't start with a digit). */ read_huge_number (pp, 0, &nbits); if (nbits != 0) return error_type (pp); } /* Read the value-names and their values. The input syntax is NAME:VALUE,NAME:VALUE, and so on. A semicolon or comma instead of a NAME means the end. */ while (**pp && **pp != ';' && **pp != ',') { STABS_CONTINUE (pp); p = *pp; while (*p != ':') p++; name = obsavestring (*pp, p - *pp, &objfile -> symbol_obstack); *pp = p + 1; n = read_huge_number (pp, ',', &nbits); if (nbits != 0) return error_type (pp); sym = (struct symbol *) obstack_alloc (&objfile -> symbol_obstack, sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); SYMBOL_NAME (sym) = name; SYMBOL_LANGUAGE (sym) = current_subfile -> language; SYMBOL_CLASS (sym) = LOC_CONST; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; SYMBOL_VALUE (sym) = n; add_symbol_to_list (sym, symlist); nsyms++; } if (**pp == ';') (*pp)++; /* Skip the semicolon. */ /* Now fill in the fields of the type-structure. */ TYPE_LENGTH (type) = TARGET_INT_BIT / HOST_CHAR_BIT; TYPE_CODE (type) = TYPE_CODE_ENUM; TYPE_FLAGS (type) &= ~TYPE_FLAG_STUB; TYPE_NFIELDS (type) = nsyms; TYPE_FIELDS (type) = (struct field *) TYPE_ALLOC (type, sizeof (struct field) * nsyms); memset (TYPE_FIELDS (type), 0, sizeof (struct field) * nsyms); /* Find the symbols for the values and put them into the type. The symbols can be found in the symlist that we put them on to cause them to be defined. osyms contains the old value of that symlist; everything up to there was defined by us. */ /* Note that we preserve the order of the enum constants, so that in something like "enum {FOO, LAST_THING=FOO}" we print FOO, not LAST_THING. */ for (syms = *symlist, n = 0; syms; syms = syms->next) { int j = 0; if (syms == osyms) j = o_nsyms; for (; j < syms->nsyms; j++,n++) { struct symbol *xsym = syms->symbol[j]; SYMBOL_TYPE (xsym) = type; TYPE_FIELD_NAME (type, n) = SYMBOL_NAME (xsym); TYPE_FIELD_VALUE (type, n) = 0; TYPE_FIELD_BITPOS (type, n) = SYMBOL_VALUE (xsym); TYPE_FIELD_BITSIZE (type, n) = 0; } if (syms == osyms) break; } return type; } /* Sun's ACC uses a somewhat saner method for specifying the builtin typedefs in every file (for int, long, etc): type = b ; ; signed = u or s. Possible c in addition to u or s (for char?). offset = offset from high order bit to start bit of type. width is # bytes in object of this type, nbits is # bits in type. The width/offset stuff appears to be for small objects stored in larger ones (e.g. `shorts' in `int' registers). We ignore it for now, FIXME. */ static struct type * read_sun_builtin_type (pp, typenums, objfile) char **pp; int typenums[2]; struct objfile *objfile; { int type_bits; int nbits; int signed_type; switch (**pp) { case 's': signed_type = 1; break; case 'u': signed_type = 0; break; default: return error_type (pp); } (*pp)++; /* For some odd reason, all forms of char put a c here. This is strange because no other type has this honor. We can safely ignore this because we actually determine 'char'acterness by the number of bits specified in the descriptor. */ if (**pp == 'c') (*pp)++; /* The first number appears to be the number of bytes occupied by this type, except that unsigned short is 4 instead of 2. Since this information is redundant with the third number, we will ignore it. */ read_huge_number (pp, ';', &nbits); if (nbits != 0) return error_type (pp); /* The second number is always 0, so ignore it too. */ read_huge_number (pp, ';', &nbits); if (nbits != 0) return error_type (pp); /* The third number is the number of bits for this type. */ type_bits = read_huge_number (pp, 0, &nbits); if (nbits != 0) return error_type (pp); /* The type *should* end with a semicolon. If it are embedded in a larger type the semicolon may be the only way to know where the type ends. If this type is at the end of the stabstring we can deal with the omitted semicolon (but we don't have to like it). Don't bother to complain(), Sun's compiler omits the semicolon for "void". */ if (**pp == ';') ++(*pp); if (type_bits == 0) return init_type (TYPE_CODE_VOID, 1, signed_type ? 0 : TYPE_FLAG_UNSIGNED, (char *)NULL, objfile); else return init_type (TYPE_CODE_INT, type_bits / TARGET_CHAR_BIT, signed_type ? 0 : TYPE_FLAG_UNSIGNED, (char *)NULL, objfile); } static struct type * read_sun_floating_type (pp, typenums, objfile) char **pp; int typenums[2]; struct objfile *objfile; { int nbits; int details; int nbytes; /* The first number has more details about the type, for example FN_COMPLEX. */ details = read_huge_number (pp, ';', &nbits); if (nbits != 0) return error_type (pp); /* The second number is the number of bytes occupied by this type */ nbytes = read_huge_number (pp, ';', &nbits); if (nbits != 0) return error_type (pp); if (details == NF_COMPLEX || details == NF_COMPLEX16 || details == NF_COMPLEX32) /* This is a type we can't handle, but we do know the size. We also will be able to give it a name. */ return init_type (TYPE_CODE_ERROR, nbytes, 0, NULL, objfile); return init_type (TYPE_CODE_FLT, nbytes, 0, NULL, objfile); } /* Read a number from the string pointed to by *PP. The value of *PP is advanced over the number. If END is nonzero, the character that ends the number must match END, or an error happens; and that character is skipped if it does match. If END is zero, *PP is left pointing to that character. If the number fits in a long, set *BITS to 0 and return the value. If not, set *BITS to be the number of bits in the number and return 0. If encounter garbage, set *BITS to -1 and return 0. */ static long read_huge_number (pp, end, bits) char **pp; int end; int *bits; { char *p = *pp; int sign = 1; long n = 0; int radix = 10; char overflow = 0; int nbits = 0; int c; long upper_limit; if (*p == '-') { sign = -1; p++; } /* Leading zero means octal. GCC uses this to output values larger than an int (because that would be hard in decimal). */ if (*p == '0') { radix = 8; p++; } if (os9k_stabs) upper_limit = ULONG_MAX / radix; else upper_limit = LONG_MAX / radix; while ((c = *p++) >= '0' && c < ('0' + radix)) { if (n <= upper_limit) { n *= radix; n += c - '0'; /* FIXME this overflows anyway */ } else overflow = 1; /* This depends on large values being output in octal, which is what GCC does. */ if (radix == 8) { if (nbits == 0) { if (c == '0') /* Ignore leading zeroes. */ ; else if (c == '1') nbits = 1; else if (c == '2' || c == '3') nbits = 2; else nbits = 3; } else nbits += 3; } } if (end) { if (c && c != end) { if (bits != NULL) *bits = -1; return 0; } } else --p; *pp = p; if (overflow) { if (nbits == 0) { /* Large decimal constants are an error (because it is hard to count how many bits are in them). */ if (bits != NULL) *bits = -1; return 0; } /* -0x7f is the same as 0x80. So deal with it by adding one to the number of bits. */ if (sign == -1) ++nbits; if (bits) *bits = nbits; } else { if (bits) *bits = 0; return n * sign; } /* It's *BITS which has the interesting information. */ return 0; } static struct type * read_range_type (pp, typenums, objfile) char **pp; int typenums[2]; struct objfile *objfile; { int rangenums[2]; long n2, n3; int n2bits, n3bits; int self_subrange; struct type *result_type; struct type *index_type; /* First comes a type we are a subrange of. In C it is usually 0, 1 or the type being defined. */ /* FIXME: according to stabs.texinfo and AIX doc, this can be a type-id not just a type number. */ if (read_type_number (pp, rangenums) != 0) return error_type (pp); self_subrange = (rangenums[0] == typenums[0] && rangenums[1] == typenums[1]); /* A semicolon should now follow; skip it. */ if (**pp == ';') (*pp)++; /* The remaining two operands are usually lower and upper bounds of the range. But in some special cases they mean something else. */ n2 = read_huge_number (pp, ';', &n2bits); n3 = read_huge_number (pp, ';', &n3bits); if (n2bits == -1 || n3bits == -1) return error_type (pp); /* If limits are huge, must be large integral type. */ if (n2bits != 0 || n3bits != 0) { char got_signed = 0; char got_unsigned = 0; /* Number of bits in the type. */ int nbits = 0; /* Range from 0 to is an unsigned large integral type. */ if ((n2bits == 0 && n2 == 0) && n3bits != 0) { got_unsigned = 1; nbits = n3bits; } /* Range from to -1 is a large signed integral type. Take care of the case where doesn't fit in a long but -1 does. */ else if ((n2bits != 0 && n3bits != 0 && n2bits == n3bits + 1) || (n2bits != 0 && n3bits == 0 && (n2bits == sizeof (long) * HOST_CHAR_BIT) && n3 == LONG_MAX)) { got_signed = 1; nbits = n2bits; } if (got_signed || got_unsigned) { return init_type (TYPE_CODE_INT, nbits / TARGET_CHAR_BIT, got_unsigned ? TYPE_FLAG_UNSIGNED : 0, NULL, objfile); } else return error_type (pp); } /* A type defined as a subrange of itself, with bounds both 0, is void. */ if (self_subrange && n2 == 0 && n3 == 0) return init_type (TYPE_CODE_VOID, 1, 0, NULL, objfile); /* If n3 is zero and n2 is not, we want a floating type, and n2 is the width in bytes. Fortran programs appear to use this for complex types also, and they give no way to distinguish between double and single-complex! GDB does not have complex types. Just return the complex as a float of that size. It won't work right for the complex values, but at least it makes the file loadable. */ if (n3 == 0 && n2 > 0) { return init_type (TYPE_CODE_FLT, n2, 0, NULL, objfile); } /* If the upper bound is -1, it must really be an unsigned int. */ else if (n2 == 0 && n3 == -1) { /* It is unsigned int or unsigned long. */ /* GCC 2.3.3 uses this for long long too, but that is just a GDB 3.5 compatibility hack. */ return init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, NULL, objfile); } /* Special case: char is defined (Who knows why) as a subrange of itself with range 0-127. */ else if (self_subrange && n2 == 0 && n3 == 127) return init_type (TYPE_CODE_INT, 1, 0, NULL, objfile); /* We used to do this only for subrange of self or subrange of int. */ else if (n2 == 0) { if (n3 < 0) /* n3 actually gives the size. */ return init_type (TYPE_CODE_INT, - n3, TYPE_FLAG_UNSIGNED, NULL, objfile); if (n3 == 0xff) return init_type (TYPE_CODE_INT, 1, TYPE_FLAG_UNSIGNED, NULL, objfile); if (n3 == 0xffff) return init_type (TYPE_CODE_INT, 2, TYPE_FLAG_UNSIGNED, NULL, objfile); /* -1 is used for the upper bound of (4 byte) "unsigned int" and "unsigned long", and we already checked for that, so don't need to test for it here. */ } /* I think this is for Convex "long long". Since I don't know whether Convex sets self_subrange, I also accept that particular size regardless of self_subrange. */ else if (n3 == 0 && n2 < 0 && (self_subrange || n2 == - TARGET_LONG_LONG_BIT / TARGET_CHAR_BIT)) return init_type (TYPE_CODE_INT, - n2, 0, NULL, objfile); else if (n2 == -n3 -1) { if (n3 == 0x7f) return init_type (TYPE_CODE_INT, 1, 0, NULL, objfile); if (n3 == 0x7fff) return init_type (TYPE_CODE_INT, 2, 0, NULL, objfile); if (n3 == 0x7fffffff) return init_type (TYPE_CODE_INT, 4, 0, NULL, objfile); } /* We have a real range type on our hands. Allocate space and return a real pointer. */ /* At this point I don't have the faintest idea how to deal with a self_subrange type; I'm going to assume that this is used as an idiom, and that all of them are special cases. So . . . */ if (self_subrange) return error_type (pp); index_type = *dbx_lookup_type (rangenums); if (index_type == NULL) { /* Does this actually ever happen? Is that why we are worrying about dealing with it rather than just calling error_type? */ static struct type *range_type_index; complain (&range_type_base_complaint, rangenums[1]); if (range_type_index == NULL) range_type_index = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, 0, "range type index type", NULL); index_type = range_type_index; } result_type = create_range_type ((struct type *) NULL, index_type, n2, n3); return (result_type); } /* Read in an argument list. This is a list of types, separated by commas and terminated with END. Return the list of types read in, or (struct type **)-1 if there is an error. */ static struct type ** read_args (pp, end, objfile) char **pp; int end; struct objfile *objfile; { /* FIXME! Remove this arbitrary limit! */ struct type *types[1024], **rval; /* allow for fns of 1023 parameters */ int n = 0; while (**pp != end) { if (**pp != ',') /* Invalid argument list: no ','. */ return (struct type **)-1; (*pp)++; STABS_CONTINUE (pp); types[n++] = read_type (pp, objfile); } (*pp)++; /* get past `end' (the ':' character) */ if (n == 1) { rval = (struct type **) xmalloc (2 * sizeof (struct type *)); } else if (TYPE_CODE (types[n-1]) != TYPE_CODE_VOID) { rval = (struct type **) xmalloc ((n + 1) * sizeof (struct type *)); memset (rval + n, 0, sizeof (struct type *)); } else { rval = (struct type **) xmalloc (n * sizeof (struct type *)); } memcpy (rval, types, n * sizeof (struct type *)); return rval; } /* Common block handling. */ /* List of symbols declared since the last BCOMM. This list is a tail of local_symbols. When ECOMM is seen, the symbols on the list are noted so their proper addresses can be filled in later, using the common block base address gotten from the assembler stabs. */ static struct pending *common_block; static int common_block_i; /* Name of the current common block. We get it from the BCOMM instead of the ECOMM to match IBM documentation (even though IBM puts the name both places like everyone else). */ static char *common_block_name; /* Process a N_BCOMM symbol. The storage for NAME is not guaranteed to remain after this function returns. */ void common_block_start (name, objfile) char *name; struct objfile *objfile; { if (common_block_name != NULL) { static struct complaint msg = { "Invalid symbol data: common block within common block", 0, 0}; complain (&msg); } common_block = local_symbols; common_block_i = local_symbols ? local_symbols->nsyms : 0; common_block_name = obsavestring (name, strlen (name), &objfile -> symbol_obstack); } /* Process a N_ECOMM symbol. */ void common_block_end (objfile) struct objfile *objfile; { /* Symbols declared since the BCOMM are to have the common block start address added in when we know it. common_block and common_block_i point to the first symbol after the BCOMM in the local_symbols list; copy the list and hang it off the symbol for the common block name for later fixup. */ int i; struct symbol *sym; struct pending *new = 0; struct pending *next; int j; if (common_block_name == NULL) { static struct complaint msg = {"ECOMM symbol unmatched by BCOMM", 0, 0}; complain (&msg); return; } sym = (struct symbol *) obstack_alloc (&objfile -> symbol_obstack, sizeof (struct symbol)); memset (sym, 0, sizeof (struct symbol)); SYMBOL_NAME (sym) = common_block_name; SYMBOL_CLASS (sym) = LOC_BLOCK; /* Now we copy all the symbols which have been defined since the BCOMM. */ /* Copy all the struct pendings before common_block. */ for (next = local_symbols; next != NULL && next != common_block; next = next->next) { for (j = 0; j < next->nsyms; j++) add_symbol_to_list (next->symbol[j], &new); } /* Copy however much of COMMON_BLOCK we need. If COMMON_BLOCK is NULL, it means copy all the local symbols (which we already did above). */ if (common_block != NULL) for (j = common_block_i; j < common_block->nsyms; j++) add_symbol_to_list (common_block->symbol[j], &new); SYMBOL_TYPE (sym) = (struct type *) new; /* Should we be putting local_symbols back to what it was? Does it matter? */ i = hashname (SYMBOL_NAME (sym)); SYMBOL_VALUE_CHAIN (sym) = global_sym_chain[i]; global_sym_chain[i] = sym; common_block_name = NULL; } /* Add a common block's start address to the offset of each symbol declared to be in it (by being between a BCOMM/ECOMM pair that uses the common block name). */ static void fix_common_block (sym, valu) struct symbol *sym; int valu; { struct pending *next = (struct pending *) SYMBOL_TYPE (sym); for ( ; next; next = next->next) { register int j; for (j = next->nsyms - 1; j >= 0; j--) SYMBOL_VALUE_ADDRESS (next->symbol[j]) += valu; } } /* What about types defined as forward references inside of a small lexical scope? */ /* Add a type to the list of undefined types to be checked through once this file has been read in. */ void add_undefined_type (type) struct type *type; { if (undef_types_length == undef_types_allocated) { undef_types_allocated *= 2; undef_types = (struct type **) xrealloc ((char *) undef_types, undef_types_allocated * sizeof (struct type *)); } undef_types[undef_types_length++] = type; } /* Go through each undefined type, see if it's still undefined, and fix it up if possible. We have two kinds of undefined types: TYPE_CODE_ARRAY: Array whose target type wasn't defined yet. Fix: update array length using the element bounds and the target type's length. TYPE_CODE_STRUCT, TYPE_CODE_UNION: Structure whose fields were not yet defined at the time a pointer to it was made. Fix: Do a full lookup on the struct/union tag. */ void cleanup_undefined_types () { struct type **type; for (type = undef_types; type < undef_types + undef_types_length; type++) { switch (TYPE_CODE (*type)) { case TYPE_CODE_STRUCT: case TYPE_CODE_UNION: case TYPE_CODE_ENUM: { /* Check if it has been defined since. Need to do this here as well as in check_stub_type to deal with the (legitimate in C though not C++) case of several types with the same name in different source files. */ if (TYPE_FLAGS (*type) & TYPE_FLAG_STUB) { struct pending *ppt; int i; /* Name of the type, without "struct" or "union" */ char *typename = TYPE_TAG_NAME (*type); if (typename == NULL) { static struct complaint msg = {"need a type name", 0, 0}; complain (&msg); break; } for (ppt = file_symbols; ppt; ppt = ppt->next) { for (i = 0; i < ppt->nsyms; i++) { struct symbol *sym = ppt->symbol[i]; if (SYMBOL_CLASS (sym) == LOC_TYPEDEF && SYMBOL_NAMESPACE (sym) == STRUCT_NAMESPACE && (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE (*type)) && STREQ (SYMBOL_NAME (sym), typename)) { memcpy (*type, SYMBOL_TYPE (sym), sizeof (struct type)); } } } } } break; case TYPE_CODE_ARRAY: { /* This is a kludge which is here for historical reasons because I suspect that check_stub_type does not get called everywhere it needs to be called for arrays. Even with this kludge, those places are broken for the case where the stub type is defined in another compilation unit, but this kludge at least deals with it for the case in which it is the same compilation unit. Don't try to do this by calling check_stub_type; it might cause symbols to be read in lookup_symbol, and the symbol reader is not reentrant. */ struct type *range_type; int lower, upper; if (TYPE_LENGTH (*type) != 0) /* Better be unknown */ goto badtype; if (TYPE_NFIELDS (*type) != 1) goto badtype; range_type = TYPE_FIELD_TYPE (*type, 0); if (TYPE_CODE (range_type) != TYPE_CODE_RANGE) goto badtype; /* Now recompute the length of the array type, based on its number of elements and the target type's length. */ lower = TYPE_FIELD_BITPOS (range_type, 0); upper = TYPE_FIELD_BITPOS (range_type, 1); TYPE_LENGTH (*type) = (upper - lower + 1) * TYPE_LENGTH (TYPE_TARGET_TYPE (*type)); /* If the target type is not a stub, we could be clearing TYPE_FLAG_TARGET_STUB for *type. */ } break; default: badtype: { static struct complaint msg = {"\ GDB internal error. cleanup_undefined_types with bad type %d.", 0, 0}; complain (&msg, TYPE_CODE (*type)); } break; } } undef_types_length = 0; } /* Scan through all of the global symbols defined in the object file, assigning values to the debugging symbols that need to be assigned to. Get these symbols from the minimal symbol table. */ void scan_file_globals (objfile) struct objfile *objfile; { int hash; struct minimal_symbol *msymbol; struct symbol *sym, *prev; if (objfile->msymbols == 0) /* Beware the null file. */ return; for (msymbol = objfile -> msymbols; SYMBOL_NAME (msymbol) != NULL; msymbol++) { QUIT; prev = NULL; /* Get the hash index and check all the symbols under that hash index. */ hash = hashname (SYMBOL_NAME (msymbol)); for (sym = global_sym_chain[hash]; sym;) { if (SYMBOL_NAME (msymbol)[0] == SYMBOL_NAME (sym)[0] && STREQ(SYMBOL_NAME (msymbol) + 1, SYMBOL_NAME (sym) + 1)) { /* Splice this symbol out of the hash chain and assign the value we have to it. */ if (prev) { SYMBOL_VALUE_CHAIN (prev) = SYMBOL_VALUE_CHAIN (sym); } else { global_sym_chain[hash] = SYMBOL_VALUE_CHAIN (sym); } /* Check to see whether we need to fix up a common block. */ /* Note: this code might be executed several times for the same symbol if there are multiple references. */ if (SYMBOL_CLASS (sym) == LOC_BLOCK) { fix_common_block (sym, SYMBOL_VALUE_ADDRESS (msymbol)); } else { SYMBOL_VALUE_ADDRESS (sym) = SYMBOL_VALUE_ADDRESS (msymbol); } SYMBOL_SECTION (sym) = SYMBOL_SECTION (msymbol); if (prev) { sym = SYMBOL_VALUE_CHAIN (prev); } else { sym = global_sym_chain[hash]; } } else { prev = sym; sym = SYMBOL_VALUE_CHAIN (sym); } } } } /* Initialize anything that needs initializing when starting to read a fresh piece of a symbol file, e.g. reading in the stuff corresponding to a psymtab. */ void stabsread_init () { } /* Initialize anything that needs initializing when a completely new symbol file is specified (not just adding some symbols from another file, e.g. a shared library). */ void stabsread_new_init () { /* Empty the hash table of global syms looking for values. */ memset (global_sym_chain, 0, sizeof (global_sym_chain)); } /* Initialize anything that needs initializing at the same time as start_symtab() is called. */ void start_stabs () { global_stabs = NULL; /* AIX COFF */ /* Leave FILENUM of 0 free for builtin types and this file's types. */ n_this_object_header_files = 1; type_vector_length = 0; type_vector = (struct type **) 0; /* FIXME: If common_block_name is not already NULL, we should complain(). */ common_block_name = NULL; os9k_stabs = 0; } /* Call after end_symtab() */ void end_stabs () { if (type_vector) { free ((char *) type_vector); } type_vector = 0; type_vector_length = 0; previous_stab_code = 0; } void finish_global_stabs (objfile) struct objfile *objfile; { if (global_stabs) { patch_block_stabs (global_symbols, global_stabs, objfile); free ((PTR) global_stabs); global_stabs = NULL; } } /* Initializer for this module */ void _initialize_stabsread () { undef_types_allocated = 20; undef_types_length = 0; undef_types = (struct type **) xmalloc (undef_types_allocated * sizeof (struct type *)); } gdb-4.13/gdb/stabsread.h 666 34562 1752 14343 5603472617 13451 0ustar fnfcygnus/* Include file for stabs debugging format support functions. Copyright 1986-1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Definitions, prototypes, etc for stabs debugging format support functions. Variables declared in this file can be defined by #define-ing the name EXTERN to null. It is used to declare variables that are normally extern, but which get defined in a single module using this technique. */ #ifndef EXTERN #define EXTERN extern #endif /* Convert stab register number (from `r' declaration) to a gdb REGNUM. */ #ifndef STAB_REG_TO_REGNUM #define STAB_REG_TO_REGNUM(VALUE) (VALUE) #endif /* Hash table of global symbols whose values are not known yet. They are chained thru the SYMBOL_VALUE_CHAIN, since we don't have the correct data for that slot yet. The use of the LOC_BLOCK code in this chain is nonstandard-- it refers to a FORTRAN common block rather than the usual meaning, and the such LOC_BLOCK symbols use their fields in nonstandard ways. */ EXTERN struct symbol *global_sym_chain[HASHSIZE]; extern void common_block_start PARAMS ((char *, struct objfile *)); extern void common_block_end PARAMS ((struct objfile *)); /* Kludge for xcoffread.c */ struct pending_stabs { int count; int length; char *stab[1]; }; EXTERN struct pending_stabs *global_stabs; /* The type code that process_one_symbol saw on its previous invocation. Used to detect pairs of N_SO symbols. */ EXTERN int previous_stab_code; /* Support for Sun changes to dbx symbol format */ /* For each identified header file, we have a table of types defined in that header file. header_files maps header file names to their type tables. It is a vector of n_header_files elements. Each element describes one header file. It contains a vector of types. Sometimes it can happen that the same header file produces different results when included in different places. This can result from conditionals or from different things done before including the file. When this happens, there are multiple entries for the file in this table, one entry for each distinct set of results. The entries are distinguished by the INSTANCE field. The INSTANCE field appears in the N_BINCL and N_EXCL symbol table and is used to match header-file references to their corresponding data. */ struct header_file { /* Name of header file */ char *name; /* Numeric code distinguishing instances of one header file that produced different results when included. It comes from the N_BINCL or N_EXCL. */ int instance; /* Pointer to vector of types */ struct type **vector; /* Allocated length (# elts) of that vector */ int length; }; EXTERN struct header_file *header_files; EXTERN int n_header_files; EXTERN int n_allocated_header_files; /* Within each object file, various header files are assigned numbers. A type is defined or referred to with a pair of numbers (FILENUM,TYPENUM) where FILENUM is the number of the header file and TYPENUM is the number within that header file. TYPENUM is the index within the vector of types for that header file. FILENUM == 1 is special; it refers to the main source of the object file, and not to any header file. FILENUM != 1 is interpreted by looking it up in the following table, which contains indices in header_files. */ EXTERN int *this_object_header_files; EXTERN int n_this_object_header_files; EXTERN int n_allocated_this_object_header_files; extern struct complaint unknown_symtype_complaint; extern struct complaint unknown_symchar_complaint; extern struct type * read_type PARAMS ((char **, struct objfile *)); extern void cleanup_undefined_types PARAMS ((void)); extern struct type ** dbx_lookup_type PARAMS ((int [2])); extern long read_number PARAMS ((char **, int)); extern void add_undefined_type PARAMS ((struct type *)); extern struct symbol * define_symbol PARAMS ((CORE_ADDR, char *, int, int, struct objfile *)); extern void stabsread_init PARAMS ((void)); extern void stabsread_new_init PARAMS ((void)); extern void start_stabs PARAMS ((void)); extern void end_stabs PARAMS ((void)); extern void finish_global_stabs PARAMS ((struct objfile *objfile)); EXTERN int os9k_stabs; /* Functions exported by dbxread.c. These are not in stabsread.h because they are only used by some stabs readers. */ extern struct partial_symtab * start_psymtab PARAMS ((struct objfile *, struct section_offsets *, char *, CORE_ADDR, int, struct partial_symbol *, struct partial_symbol *)); extern struct partial_symtab * end_psymtab PARAMS ((struct partial_symtab *, char **, int, int, CORE_ADDR, struct partial_symtab **, int)); extern void process_one_symbol PARAMS ((int, int, CORE_ADDR, char *, struct section_offsets *, struct objfile *)); extern void elfstab_build_psymtabs PARAMS ((struct objfile *objfile, struct section_offsets *section_offsets, int mainline, file_ptr staboff, unsigned int stabsize, file_ptr stabstroffset, unsigned int stabstrsize)); extern void coffstab_build_psymtabs PARAMS ((struct objfile *objfile, struct section_offsets *section_offsets, int mainline, file_ptr staboff, unsigned int stabsize, file_ptr stabstroffset, unsigned int stabstrsize)); extern void stabsect_build_psymtabs PARAMS ((struct objfile *objfile, struct section_offsets *section_offsets, int mainline, char *stab_name, char *stabstr_name, char *text_name)); extern void elfstab_offset_sections PARAMS ((struct objfile *, struct partial_symtab *)); #undef EXTERN gdb-4.13/gdb/stack.c 666 34562 1752 117671 5612072206 12617 0ustar fnfcygnus/* Print and select stack frames for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "value.h" #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "language.h" #include "frame.h" #include "gdbcmd.h" #include "gdbcore.h" #include "target.h" #include "breakpoint.h" #include "demangle.h" #include "inferior.h" #include "annotate.h" static void return_command PARAMS ((char *, int)); static void down_command PARAMS ((char *, int)); static void down_silently_command PARAMS ((char *, int)); static void up_command PARAMS ((char *, int)); static void up_silently_command PARAMS ((char *, int)); static void frame_command PARAMS ((char *, int)); static void select_frame_command PARAMS ((char *, int)); static void args_info PARAMS ((char *, int)); static void print_frame_arg_vars PARAMS ((FRAME, GDB_FILE *)); static void catch_info PARAMS ((char *, int)); static void locals_info PARAMS ((char *, int)); static void print_frame_label_vars PARAMS ((FRAME, int, GDB_FILE *)); static void print_frame_local_vars PARAMS ((FRAME, GDB_FILE *)); static int print_block_frame_labels PARAMS ((struct block *, int *, GDB_FILE *)); static int print_block_frame_locals PARAMS ((struct block *, FRAME, GDB_FILE *)); static void backtrace_command PARAMS ((char *, int)); static FRAME parse_frame_specification PARAMS ((char *)); static void frame_info PARAMS ((char *, int)); extern int addressprint; /* Print addresses, or stay symbolic only? */ extern int info_verbose; /* Verbosity of symbol reading msgs */ extern int lines_to_list; /* # of lines "list" command shows by default */ /* The "selected" stack frame is used by default for local and arg access. May be zero, for no selected frame. */ FRAME selected_frame; /* Level of the selected frame: 0 for innermost, 1 for its caller, ... or -1 for frame specified by address with no defined level. */ int selected_frame_level; /* Zero means do things normally; we are interacting directly with the user. One means print the full filename and linenumber when a frame is printed, and do so in a format emacs18/emacs19.22 can parse. Two means print similar annotations, but in many more cases and in a slightly different syntax. */ int annotation_level = 0; struct print_stack_frame_args { struct frame_info *fi; int level; int source; int args; }; static int print_stack_frame_stub PARAMS ((char *)); /* Pass the args the way catch_errors wants them. */ static int print_stack_frame_stub (args) char *args; { struct print_stack_frame_args *p = (struct print_stack_frame_args *)args; print_frame_info (p->fi, p->level, p->source, p->args); return 0; } /* Print a stack frame briefly. FRAME should be the frame id and LEVEL should be its level in the stack (or -1 for level not defined). This prints the level, the function executing, the arguments, and the file name and line number. If the pc is not at the beginning of the source line, the actual pc is printed at the beginning. If SOURCE is 1, print the source line as well. If SOURCE is -1, print ONLY the source line. */ void print_stack_frame (frame, level, source) FRAME frame; int level; int source; { struct print_stack_frame_args args; args.fi = get_frame_info (frame); args.level = level; args.source = source; args.args = 1; catch_errors (print_stack_frame_stub, (char *)&args, "", RETURN_MASK_ERROR); } struct print_args_args { struct symbol *func; struct frame_info *fi; }; static int print_args_stub PARAMS ((char *)); /* Pass the args the way catch_errors wants them. */ static int print_args_stub (args) char *args; { int numargs; struct print_args_args *p = (struct print_args_args *)args; FRAME_NUM_ARGS (numargs, (p->fi)); print_frame_args (p->func, p->fi, numargs, gdb_stdout); return 0; } /* LEVEL is the level of the frame, or -1 if it is the innermost frame but we don't want to print the level. */ void print_frame_info (fi, level, source, args) struct frame_info *fi; register int level; int source; int args; { struct symtab_and_line sal; struct symbol *func; register char *funname = 0; enum language funlang = language_unknown; #if 0 char buf[MAX_REGISTER_RAW_SIZE]; CORE_ADDR sp; /* On the 68k, this spends too much time in m68k_find_saved_regs. */ /* Get the value of SP_REGNUM relative to the frame. */ get_saved_register (buf, (int *)NULL, (CORE_ADDR *)NULL, FRAME_INFO_ID (fi), SP_REGNUM, (enum lval_type *)NULL); sp = extract_address (buf, REGISTER_RAW_SIZE (SP_REGNUM)); /* This is not a perfect test, because if a function alloca's some memory, puts some code there, and then jumps into it, then the test will succeed even though there is no call dummy. Probably best is to check for a bp_call_dummy breakpoint. */ if (PC_IN_CALL_DUMMY (fi->pc, sp, fi->frame)) #else if (frame_in_dummy (fi)) #endif { annotate_frame_begin (level == -1 ? 0 : level, fi->pc); /* Do this regardless of SOURCE because we don't have any source to list for this frame. */ if (level >= 0) printf_filtered ("#%-2d ", level); annotate_function_call (); printf_filtered ("\n"); annotate_frame_end (); return; } if (fi->signal_handler_caller) { annotate_frame_begin (level == -1 ? 0 : level, fi->pc); /* Do this regardless of SOURCE because we don't have any source to list for this frame. */ if (level >= 0) printf_filtered ("#%-2d ", level); annotate_signal_handler_caller (); printf_filtered ("\n"); annotate_frame_end (); return; } /* If fi is not the innermost frame, that normally means that fi->pc points to *after* the call instruction, and we want to get the line containing the call, never the next line. But if the next frame is a signal_handler_caller or a dummy frame, then the next frame was not entered as the result of a call, and we want to get the line containing fi->pc. */ sal = find_pc_line (fi->pc, fi->next != NULL && !fi->next->signal_handler_caller && !frame_in_dummy (fi->next)); func = find_pc_function (fi->pc); if (func) { /* In certain pathological cases, the symtabs give the wrong function (when we are in the first function in a file which is compiled without debugging symbols, the previous function is compiled with debugging symbols, and the "foo.o" symbol that is supposed to tell us where the file with debugging symbols ends has been truncated by ar because it is longer than 15 characters). This also occurs if the user uses asm() to create a function but not stabs for it (in a file compiled -g). So look in the minimal symbol tables as well, and if it comes up with a larger address for the function use that instead. I don't think this can ever cause any problems; there shouldn't be any minimal symbols in the middle of a function; if this is ever changed many parts of GDB will need to be changed (and we'll create a find_pc_minimal_function or some such). */ struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (fi->pc); if (msymbol != NULL && (SYMBOL_VALUE_ADDRESS (msymbol) > BLOCK_START (SYMBOL_BLOCK_VALUE (func)))) { #if 0 /* There is no particular reason to think the line number information is wrong. Someone might have just put in a label with asm() but left the line numbers alone. */ /* In this case we have no way of knowing the source file and line number, so don't print them. */ sal.symtab = 0; #endif /* We also don't know anything about the function besides its address and name. */ func = 0; funname = SYMBOL_NAME (msymbol); funlang = SYMBOL_LANGUAGE (msymbol); } else { funname = SYMBOL_NAME (func); funlang = SYMBOL_LANGUAGE (func); } } else { register struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (fi->pc); if (msymbol != NULL) { funname = SYMBOL_NAME (msymbol); funlang = SYMBOL_LANGUAGE (msymbol); } } if (source >= 0 || !sal.symtab) { annotate_frame_begin (level == -1 ? 0 : level, fi->pc); if (level >= 0) printf_filtered ("#%-2d ", level); if (addressprint) if (fi->pc != sal.pc || !sal.symtab) { annotate_frame_address (); print_address_numeric (fi->pc, 1, gdb_stdout); annotate_frame_address_end (); printf_filtered (" in "); } annotate_frame_function_name (); fprintf_symbol_filtered (gdb_stdout, funname ? funname : "??", funlang, DMGL_ANSI); wrap_here (" "); annotate_frame_args (); fputs_filtered (" (", gdb_stdout); if (args) { struct print_args_args args; args.fi = fi; args.func = func; catch_errors (print_args_stub, (char *)&args, "", RETURN_MASK_ERROR); } printf_filtered (")"); if (sal.symtab && sal.symtab->filename) { annotate_frame_source_begin (); wrap_here (" "); printf_filtered (" at "); annotate_frame_source_file (); printf_filtered ("%s", sal.symtab->filename); annotate_frame_source_file_end (); printf_filtered (":"); annotate_frame_source_line (); printf_filtered ("%d", sal.line); annotate_frame_source_end (); } #ifdef PC_LOAD_SEGMENT /* If we couldn't print out function name but if can figure out what load segment this pc value is from, at least print out some info about its load segment. */ if (!funname) { annotate_frame_where (); wrap_here (" "); printf_filtered (" from %s", PC_LOAD_SEGMENT (fi->pc)); } #endif printf_filtered ("\n"); } if ((source != 0) && sal.symtab) { int done = 0; int mid_statement = source < 0 && fi->pc != sal.pc; if (annotation_level) done = identify_source_line (sal.symtab, sal.line, mid_statement, fi->pc); if (!done) { if (addressprint && mid_statement) { print_address_numeric (fi->pc, 1, gdb_stdout); printf_filtered ("\t"); } print_source_lines (sal.symtab, sal.line, sal.line + 1, 0); } current_source_line = max (sal.line - lines_to_list/2, 1); } if (source != 0) set_default_breakpoint (1, fi->pc, sal.symtab, sal.line); annotate_frame_end (); gdb_flush (gdb_stdout); } /* * Read a frame specification in whatever the appropriate format is. * Call error() if the specification is in any way invalid (i.e. * this function never returns NULL). */ static FRAME parse_frame_specification (frame_exp) char *frame_exp; { int numargs = 0; #define MAXARGS 4 CORE_ADDR args[MAXARGS]; if (frame_exp) { char *addr_string, *p; struct cleanup *tmp_cleanup; while (*frame_exp == ' ') frame_exp++; while (*frame_exp) { if (numargs > MAXARGS) error ("Too many args in frame specification"); /* Parse an argument. */ for (p = frame_exp; *p && *p != ' '; p++) ; addr_string = savestring(frame_exp, p - frame_exp); { tmp_cleanup = make_cleanup (free, addr_string); args[numargs++] = parse_and_eval_address (addr_string); do_cleanups (tmp_cleanup); } /* Skip spaces, move to possible next arg. */ while (*p == ' ') p++; frame_exp = p; } } switch (numargs) { case 0: if (selected_frame == NULL) error ("No selected frame."); return selected_frame; /* NOTREACHED */ case 1: { int level = args[0]; FRAME fid = find_relative_frame (get_current_frame (), &level); FRAME tfid; if (level == 0) /* find_relative_frame was successful */ return fid; /* If SETUP_ARBITRARY_FRAME is defined, then frame specifications take at least 2 addresses. It is important to detect this case here so that "frame 100" does not give a confusing error message like "frame specification requires two addresses". This of course does not solve the "frame 100" problem for machines on which a frame specification can be made with one address. To solve that, we need a new syntax for a specifying a frame by address. I think the cleanest syntax is $frame(0x45) ($frame(0x23,0x45) for two args, etc.), but people might think that is too much typing, so I guess *0x23,0x45 would be a possible alternative (commas really should be used instead of spaces to delimit; using spaces normally works in an expression). */ #ifdef SETUP_ARBITRARY_FRAME error ("No frame %d", args[0]); #endif /* If (s)he specifies the frame with an address, he deserves what (s)he gets. Still, give the highest one that matches. */ for (fid = get_current_frame (); fid && FRAME_FP (fid) != args[0]; fid = get_prev_frame (fid)) ; if (fid) while ((tfid = get_prev_frame (fid)) && (FRAME_FP (tfid) == args[0])) fid = tfid; /* We couldn't identify the frame as an existing frame, but perhaps we can create one with a single argument. */ } default: #ifdef SETUP_ARBITRARY_FRAME return SETUP_ARBITRARY_FRAME (numargs, args); #else /* Usual case. Do it here rather than have everyone supply a SETUP_ARBITRARY_FRAME that does this. */ if (numargs == 1) return create_new_frame (args[0], 0); error ("Too many args in frame specification"); #endif /* NOTREACHED */ } /* NOTREACHED */ } /* FRAME_ARGS_ADDRESS_CORRECT is just like FRAME_ARGS_ADDRESS except that if it is unsure about the answer, it returns 0 instead of guessing (this happens on the VAX and i960, for example). On most machines, we never have to guess about the args address, so FRAME_ARGS_ADDRESS{,_CORRECT} are the same. */ #if !defined (FRAME_ARGS_ADDRESS_CORRECT) #define FRAME_ARGS_ADDRESS_CORRECT FRAME_ARGS_ADDRESS #endif /* Print verbosely the selected frame or the frame at address ADDR. This means absolutely all information in the frame is printed. */ static void frame_info (addr_exp, from_tty) char *addr_exp; int from_tty; { FRAME frame; struct frame_info *fi; struct frame_saved_regs fsr; struct symtab_and_line sal; struct symbol *func; struct symtab *s; FRAME calling_frame; int i, count, numregs; char *funname = 0; enum language funlang = language_unknown; if (!target_has_stack) error ("No stack."); frame = parse_frame_specification (addr_exp); if (!frame) error ("Invalid frame specified."); fi = get_frame_info (frame); sal = find_pc_line (fi->pc, fi->next != NULL && !fi->next->signal_handler_caller && !frame_in_dummy (fi->next)); func = get_frame_function (frame); s = find_pc_symtab(fi->pc); if (func) { funname = SYMBOL_NAME (func); funlang = SYMBOL_LANGUAGE (func); } else { register struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (fi->pc); if (msymbol != NULL) { funname = SYMBOL_NAME (msymbol); funlang = SYMBOL_LANGUAGE (msymbol); } } calling_frame = get_prev_frame (frame); if (!addr_exp && selected_frame_level >= 0) { printf_filtered ("Stack level %d, frame at ", selected_frame_level); print_address_numeric (FRAME_FP(frame), 1, gdb_stdout); printf_filtered (":\n"); } else { printf_filtered ("Stack frame at "); print_address_numeric (FRAME_FP(frame), 1, gdb_stdout); printf_filtered (":\n"); } printf_filtered (" %s = ", reg_names[PC_REGNUM]); print_address_numeric (fi->pc, 1, gdb_stdout); wrap_here (" "); if (funname) { printf_filtered (" in "); fprintf_symbol_filtered (gdb_stdout, funname, funlang, DMGL_ANSI | DMGL_PARAMS); } wrap_here (" "); if (sal.symtab) printf_filtered (" (%s:%d)", sal.symtab->filename, sal.line); puts_filtered ("; "); wrap_here (" "); printf_filtered ("saved %s ", reg_names[PC_REGNUM]); print_address_numeric (FRAME_SAVED_PC (frame), 1, gdb_stdout); printf_filtered ("\n"); { int frameless = 0; #ifdef FRAMELESS_FUNCTION_INVOCATION FRAMELESS_FUNCTION_INVOCATION (fi, frameless); #endif if (frameless) printf_filtered (" (FRAMELESS),"); } if (calling_frame) { printf_filtered (" called by frame at "); print_address_numeric (FRAME_FP (calling_frame), 1, gdb_stdout); } if (fi->next && calling_frame) puts_filtered (","); wrap_here (" "); if (fi->next) { printf_filtered (" caller of frame at "); print_address_numeric (fi->next->frame, 1, gdb_stdout); } if (fi->next || calling_frame) puts_filtered ("\n"); if (s) printf_filtered (" source language %s.\n", language_str (s->language)); #ifdef PRINT_EXTRA_FRAME_INFO PRINT_EXTRA_FRAME_INFO (fi); #endif { /* Address of the argument list for this frame, or 0. */ CORE_ADDR arg_list = FRAME_ARGS_ADDRESS_CORRECT (fi); /* Number of args for this frame, or -1 if unknown. */ int numargs; if (arg_list == 0) printf_filtered (" Arglist at unknown address.\n"); else { printf_filtered (" Arglist at "); print_address_numeric (arg_list, 1, gdb_stdout); printf_filtered (","); FRAME_NUM_ARGS (numargs, fi); if (numargs < 0) puts_filtered (" args: "); else if (numargs == 0) puts_filtered (" no args."); else if (numargs == 1) puts_filtered (" 1 arg: "); else printf_filtered (" %d args: ", numargs); print_frame_args (func, fi, numargs, gdb_stdout); puts_filtered ("\n"); } } { /* Address of the local variables for this frame, or 0. */ CORE_ADDR arg_list = FRAME_LOCALS_ADDRESS (fi); if (arg_list == 0) printf_filtered (" Locals at unknown address,"); else { printf_filtered (" Locals at "); print_address_numeric (arg_list, 1, gdb_stdout); printf_filtered (","); } } #if defined (FRAME_FIND_SAVED_REGS) get_frame_saved_regs (fi, &fsr); /* The sp is special; what's returned isn't the save address, but actually the value of the previous frame's sp. */ printf_filtered (" Previous frame's sp is "); print_address_numeric (fsr.regs[SP_REGNUM], 1, gdb_stdout); printf_filtered ("\n"); count = 0; numregs = ARCH_NUM_REGS; for (i = 0; i < numregs; i++) if (fsr.regs[i] && i != SP_REGNUM) { if (count == 0) puts_filtered (" Saved registers:\n "); else puts_filtered (","); wrap_here (" "); printf_filtered (" %s at ", reg_names[i]); print_address_numeric (fsr.regs[i], 1, gdb_stdout); count++; } if (count) puts_filtered ("\n"); #else /* Have FRAME_FIND_SAVED_REGS. */ puts_filtered ("\n"); #endif /* Have FRAME_FIND_SAVED_REGS. */ } #if 0 /* Set a limit on the number of frames printed by default in a backtrace. */ static int backtrace_limit; static void set_backtrace_limit_command (count_exp, from_tty) char *count_exp; int from_tty; { int count = parse_and_eval_address (count_exp); if (count < 0) error ("Negative argument not meaningful as backtrace limit."); backtrace_limit = count; } static void backtrace_limit_info (arg, from_tty) char *arg; int from_tty; { if (arg) error ("\"Info backtrace-limit\" takes no arguments."); printf_unfiltered ("Backtrace limit: %d.\n", backtrace_limit); } #endif /* Print briefly all stack frames or just the innermost COUNT frames. */ static void backtrace_command (count_exp, from_tty) char *count_exp; int from_tty; { struct frame_info *fi; register int count; register FRAME frame; register int i; register FRAME trailing; register int trailing_level; if (!target_has_stack) error ("No stack."); /* The following code must do two things. First, it must set the variable TRAILING to the frame from which we should start printing. Second, it must set the variable count to the number of frames which we should print, or -1 if all of them. */ trailing = get_current_frame (); trailing_level = 0; if (count_exp) { count = parse_and_eval_address (count_exp); if (count < 0) { FRAME current; count = -count; current = trailing; while (current && count--) { QUIT; current = get_prev_frame (current); } /* Will stop when CURRENT reaches the top of the stack. TRAILING will be COUNT below it. */ while (current) { QUIT; trailing = get_prev_frame (trailing); current = get_prev_frame (current); trailing_level++; } count = -1; } } else count = -1; if (info_verbose) { struct partial_symtab *ps; /* Read in symbols for all of the frames. Need to do this in a separate pass so that "Reading in symbols for xxx" messages don't screw up the appearance of the backtrace. Also if people have strong opinions against reading symbols for backtrace this may have to be an option. */ i = count; for (frame = trailing; frame != NULL && i--; frame = get_prev_frame (frame)) { QUIT; fi = get_frame_info (frame); ps = find_pc_psymtab (fi->pc); if (ps) PSYMTAB_TO_SYMTAB (ps); /* Force syms to come in */ } } for (i = 0, frame = trailing; frame && count--; i++, frame = get_prev_frame (frame)) { QUIT; fi = get_frame_info (frame); /* Don't use print_stack_frame; if an error() occurs it probably means further attempts to backtrace would fail (on the other hand, perhaps the code does or could be fixed to make sure the frame->prev field gets set to NULL in that case). */ print_frame_info (fi, trailing_level + i, 0, 1); } /* If we've stopped before the end, mention that. */ if (frame && from_tty) printf_filtered ("(More stack frames follow...)\n"); } /* Print the local variables of a block B active in FRAME. Return 1 if any variables were printed; 0 otherwise. */ static int print_block_frame_locals (b, frame, stream) struct block *b; register FRAME frame; register GDB_FILE *stream; { int nsyms; register int i; register struct symbol *sym; register int values_printed = 0; nsyms = BLOCK_NSYMS (b); for (i = 0; i < nsyms; i++) { sym = BLOCK_SYM (b, i); switch (SYMBOL_CLASS (sym)) { case LOC_LOCAL: case LOC_REGISTER: case LOC_STATIC: case LOC_BASEREG: values_printed = 1; fputs_filtered (SYMBOL_SOURCE_NAME (sym), stream); fputs_filtered (" = ", stream); print_variable_value (sym, frame, stream); fprintf_filtered (stream, "\n"); break; default: /* Ignore symbols which are not locals. */ break; } } return values_printed; } /* Same, but print labels. */ static int print_block_frame_labels (b, have_default, stream) struct block *b; int *have_default; register GDB_FILE *stream; { int nsyms; register int i; register struct symbol *sym; register int values_printed = 0; nsyms = BLOCK_NSYMS (b); for (i = 0; i < nsyms; i++) { sym = BLOCK_SYM (b, i); if (STREQ (SYMBOL_NAME (sym), "default")) { if (*have_default) continue; *have_default = 1; } if (SYMBOL_CLASS (sym) == LOC_LABEL) { struct symtab_and_line sal; sal = find_pc_line (SYMBOL_VALUE_ADDRESS (sym), 0); values_printed = 1; fputs_filtered (SYMBOL_SOURCE_NAME (sym), stream); if (addressprint) { fprintf_filtered (stream, " "); print_address_numeric (SYMBOL_VALUE_ADDRESS (sym), 1, stream); } fprintf_filtered (stream, " in file %s, line %d\n", sal.symtab->filename, sal.line); } } return values_printed; } /* Print on STREAM all the local variables in frame FRAME, including all the blocks active in that frame at its current pc. Returns 1 if the job was done, or 0 if nothing was printed because we have no info on the function running in FRAME. */ static void print_frame_local_vars (frame, stream) register FRAME frame; register GDB_FILE *stream; { register struct block *block = get_frame_block (frame); register int values_printed = 0; if (block == 0) { fprintf_filtered (stream, "No symbol table info available.\n"); return; } while (block != 0) { if (print_block_frame_locals (block, frame, stream)) values_printed = 1; /* After handling the function's top-level block, stop. Don't continue to its superblock, the block of per-file symbols. */ if (BLOCK_FUNCTION (block)) break; block = BLOCK_SUPERBLOCK (block); } if (!values_printed) { fprintf_filtered (stream, "No locals.\n"); } } /* Same, but print labels. */ static void print_frame_label_vars (frame, this_level_only, stream) register FRAME frame; int this_level_only; register GDB_FILE *stream; { register struct blockvector *bl; register struct block *block = get_frame_block (frame); register int values_printed = 0; int index, have_default = 0; char *blocks_printed; struct frame_info *fi = get_frame_info (frame); CORE_ADDR pc = fi->pc; if (block == 0) { fprintf_filtered (stream, "No symbol table info available.\n"); return; } bl = blockvector_for_pc (BLOCK_END (block) - 4, &index); blocks_printed = (char *) alloca (BLOCKVECTOR_NBLOCKS (bl) * sizeof (char)); memset (blocks_printed, 0, BLOCKVECTOR_NBLOCKS (bl) * sizeof (char)); while (block != 0) { CORE_ADDR end = BLOCK_END (block) - 4; int last_index; if (bl != blockvector_for_pc (end, &index)) error ("blockvector blotch"); if (BLOCKVECTOR_BLOCK (bl, index) != block) error ("blockvector botch"); last_index = BLOCKVECTOR_NBLOCKS (bl); index += 1; /* Don't print out blocks that have gone by. */ while (index < last_index && BLOCK_END (BLOCKVECTOR_BLOCK (bl, index)) < pc) index++; while (index < last_index && BLOCK_END (BLOCKVECTOR_BLOCK (bl, index)) < end) { if (blocks_printed[index] == 0) { if (print_block_frame_labels (BLOCKVECTOR_BLOCK (bl, index), &have_default, stream)) values_printed = 1; blocks_printed[index] = 1; } index++; } if (have_default) return; if (values_printed && this_level_only) return; /* After handling the function's top-level block, stop. Don't continue to its superblock, the block of per-file symbols. */ if (BLOCK_FUNCTION (block)) break; block = BLOCK_SUPERBLOCK (block); } if (!values_printed && !this_level_only) { fprintf_filtered (stream, "No catches.\n"); } } /* ARGSUSED */ static void locals_info (args, from_tty) char *args; int from_tty; { if (!selected_frame) error ("No frame selected."); print_frame_local_vars (selected_frame, gdb_stdout); } static void catch_info (ignore, from_tty) char *ignore; int from_tty; { if (!selected_frame) error ("No frame selected."); print_frame_label_vars (selected_frame, 0, gdb_stdout); } static void print_frame_arg_vars (frame, stream) register FRAME frame; register GDB_FILE *stream; { struct symbol *func = get_frame_function (frame); register struct block *b; int nsyms; register int i; register struct symbol *sym, *sym2; register int values_printed = 0; if (func == 0) { fprintf_filtered (stream, "No symbol table info available.\n"); return; } b = SYMBOL_BLOCK_VALUE (func); nsyms = BLOCK_NSYMS (b); for (i = 0; i < nsyms; i++) { sym = BLOCK_SYM (b, i); switch (SYMBOL_CLASS (sym)) { case LOC_ARG: case LOC_LOCAL_ARG: case LOC_REF_ARG: case LOC_REGPARM: case LOC_REGPARM_ADDR: case LOC_BASEREG_ARG: values_printed = 1; fputs_filtered (SYMBOL_SOURCE_NAME (sym), stream); fputs_filtered (" = ", stream); /* We have to look up the symbol because arguments can have two entries (one a parameter, one a local) and the one we want is the local, which lookup_symbol will find for us. This includes gcc1 (not gcc2) on the sparc when passing a small structure and gcc2 when the argument type is float and it is passed as a double and converted to float by the prologue (in the latter case the type of the LOC_ARG symbol is double and the type of the LOC_LOCAL symbol is float). There are also LOC_ARG/LOC_REGISTER pairs which are not combined in symbol-reading. */ sym2 = lookup_symbol (SYMBOL_NAME (sym), b, VAR_NAMESPACE, (int *)NULL, (struct symtab **)NULL); print_variable_value (sym2, frame, stream); fprintf_filtered (stream, "\n"); break; default: /* Don't worry about things which aren't arguments. */ break; } } if (!values_printed) { fprintf_filtered (stream, "No arguments.\n"); } } static void args_info (ignore, from_tty) char *ignore; int from_tty; { if (!selected_frame) error ("No frame selected."); print_frame_arg_vars (selected_frame, gdb_stdout); } /* Select frame FRAME, and note that its stack level is LEVEL. LEVEL may be -1 if an actual level number is not known. */ void select_frame (frame, level) FRAME frame; int level; { register struct symtab *s; selected_frame = frame; selected_frame_level = level; /* Ensure that symbols for this frame are read in. Also, determine the source language of this frame, and switch to it if desired. */ if (frame) { s = find_pc_symtab (get_frame_info (frame)->pc); if (s && s->language != current_language->la_language && s->language != language_unknown && language_mode == language_mode_auto) { set_language(s->language); } } } /* Store the selected frame and its level into *FRAMEP and *LEVELP. If there is no selected frame, *FRAMEP is set to NULL. */ void record_selected_frame (frameaddrp, levelp) FRAME_ADDR *frameaddrp; int *levelp; { *frameaddrp = selected_frame ? FRAME_FP (selected_frame) : 0; *levelp = selected_frame_level; } /* Return the symbol-block in which the selected frame is executing. Can return zero under various legitimate circumstances. */ struct block * get_selected_block () { if (!target_has_stack) return 0; if (!selected_frame) return get_current_block (); return get_frame_block (selected_frame); } /* Find a frame a certain number of levels away from FRAME. LEVEL_OFFSET_PTR points to an int containing the number of levels. Positive means go to earlier frames (up); negative, the reverse. The int that contains the number of levels is counted toward zero as the frames for those levels are found. If the top or bottom frame is reached, that frame is returned, but the final value of *LEVEL_OFFSET_PTR is nonzero and indicates how much farther the original request asked to go. */ FRAME find_relative_frame (frame, level_offset_ptr) register FRAME frame; register int* level_offset_ptr; { register FRAME prev; register FRAME frame1; /* Going up is simple: just do get_prev_frame enough times or until initial frame is reached. */ while (*level_offset_ptr > 0) { prev = get_prev_frame (frame); if (prev == 0) break; (*level_offset_ptr)--; frame = prev; } /* Going down is just as simple. */ if (*level_offset_ptr < 0) { while (*level_offset_ptr < 0) { frame1 = get_next_frame (frame); if (!frame1) break; frame = frame1; (*level_offset_ptr)++; } } return frame; } /* The "select_frame" command. With no arg, NOP. With arg LEVEL_EXP, select the frame at level LEVEL if it is a valid level. Otherwise, treat level_exp as an address expression and select it. See parse_frame_specification for more info on proper frame expressions. */ /* ARGSUSED */ static void select_frame_command (level_exp, from_tty) char *level_exp; int from_tty; { register FRAME frame, frame1; unsigned int level = 0; if (!target_has_stack) error ("No stack."); frame = parse_frame_specification (level_exp); /* Try to figure out what level this frame is. But if there is no current stack, don't error out -- let the user set one. */ frame1 = 0; if (get_current_frame()) { for (frame1 = get_prev_frame (0); frame1 && frame1 != frame; frame1 = get_prev_frame (frame1)) level++; } if (!frame1) level = 0; select_frame (frame, level); } /* The "frame" command. With no arg, print selected frame briefly. With arg, behaves like select_frame and then prints the selected frame. */ static void frame_command (level_exp, from_tty) char *level_exp; int from_tty; { select_frame_command (level_exp, from_tty); print_stack_frame (selected_frame, selected_frame_level, 1); } /* Select the frame up one or COUNT stack levels from the previously selected frame, and print it briefly. */ /* ARGSUSED */ static void up_silently_command (count_exp, from_tty) char *count_exp; int from_tty; { register FRAME frame; int count = 1, count1; if (count_exp) count = parse_and_eval_address (count_exp); count1 = count; if (target_has_stack == 0 || selected_frame == 0) error ("No stack."); frame = find_relative_frame (selected_frame, &count1); if (count1 != 0 && count_exp == 0) error ("Initial frame selected; you cannot go up."); select_frame (frame, selected_frame_level + count - count1); } static void up_command (count_exp, from_tty) char *count_exp; int from_tty; { up_silently_command (count_exp, from_tty); print_stack_frame (selected_frame, selected_frame_level, 1); } /* Select the frame down one or COUNT stack levels from the previously selected frame, and print it briefly. */ /* ARGSUSED */ static void down_silently_command (count_exp, from_tty) char *count_exp; int from_tty; { register FRAME frame; int count = -1, count1; if (count_exp) count = - parse_and_eval_address (count_exp); count1 = count; if (target_has_stack == 0 || selected_frame == 0) error ("No stack."); frame = find_relative_frame (selected_frame, &count1); if (count1 != 0 && count_exp == 0) { /* We only do this if count_exp is not specified. That way "down" means to really go down (and let me know if that is impossible), but "down 9999" can be used to mean go all the way down without getting an error. */ error ("Bottom (i.e., innermost) frame selected; you cannot go down."); } select_frame (frame, selected_frame_level + count - count1); } static void down_command (count_exp, from_tty) char *count_exp; int from_tty; { down_silently_command (count_exp, from_tty); print_stack_frame (selected_frame, selected_frame_level, 1); } static void return_command (retval_exp, from_tty) char *retval_exp; int from_tty; { struct symbol *thisfun; FRAME_ADDR selected_frame_addr; CORE_ADDR selected_frame_pc; FRAME frame; value_ptr return_value = NULL; if (selected_frame == NULL) error ("No selected frame."); thisfun = get_frame_function (selected_frame); selected_frame_addr = FRAME_FP (selected_frame); selected_frame_pc = (get_frame_info (selected_frame))->pc; /* Compute the return value (if any -- possibly getting errors here). */ if (retval_exp) { return_value = parse_and_eval (retval_exp); /* Make sure we have fully evaluated it, since it might live in the stack frame we're about to pop. */ if (VALUE_LAZY (return_value)) value_fetch_lazy (return_value); } /* If interactive, require confirmation. */ if (from_tty) { if (thisfun != 0) { if (!query ("Make %s return now? ", SYMBOL_SOURCE_NAME (thisfun))) { error ("Not confirmed."); /* NOTREACHED */ } } else if (!query ("Make selected stack frame return now? ")) error ("Not confirmed."); } /* Do the real work. Pop until the specified frame is current. We use this method because the selected_frame is not valid after a POP_FRAME. The pc comparison makes this work even if the selected frame shares its fp with another frame. */ while ( selected_frame_addr != FRAME_FP (frame = get_current_frame()) || selected_frame_pc != (get_frame_info (frame))->pc ) POP_FRAME; /* Then pop that frame. */ POP_FRAME; /* Compute the return value (if any) and store in the place for return values. */ if (retval_exp) set_return_value (return_value); /* If interactive, print the frame that is now current. */ if (from_tty) frame_command ("0", 1); } /* Gets the language of the current frame. */ enum language get_frame_language() { register struct symtab *s; FRAME fr; enum language flang; /* The language of the current frame */ fr = get_frame_info(selected_frame); if(fr) { s = find_pc_symtab(fr->pc); if(s) flang = s->language; else flang = language_unknown; } else flang = language_unknown; return flang; } void _initialize_stack () { #if 0 backtrace_limit = 30; #endif add_com ("return", class_stack, return_command, "Make selected stack frame return to its caller.\n\ Control remains in the debugger, but when you continue\n\ execution will resume in the frame above the one now selected.\n\ If an argument is given, it is an expression for the value to return."); add_com ("up", class_stack, up_command, "Select and print stack frame that called this one.\n\ An argument says how many frames up to go."); add_com ("up-silently", class_support, up_silently_command, "Same as the `up' command, but does not print anything.\n\ This is useful in command scripts."); add_com ("down", class_stack, down_command, "Select and print stack frame called by this one.\n\ An argument says how many frames down to go."); add_com_alias ("do", "down", class_stack, 1); add_com_alias ("dow", "down", class_stack, 1); add_com ("down-silently", class_support, down_silently_command, "Same as the `down' command, but does not print anything.\n\ This is useful in command scripts."); add_com ("frame", class_stack, frame_command, "Select and print a stack frame.\n\ With no argument, print the selected stack frame. (See also \"info frame\").\n\ An argument specifies the frame to select.\n\ It can be a stack frame number or the address of the frame.\n\ With argument, nothing is printed if input is coming from\n\ a command file or a user-defined command."); add_com_alias ("f", "frame", class_stack, 1); add_com ("select-frame", class_stack, select_frame_command, "Select a stack frame without printing anything.\n\ An argument specifies the frame to select.\n\ It can be a stack frame number or the address of the frame.\n"); add_com ("backtrace", class_stack, backtrace_command, "Print backtrace of all stack frames, or innermost COUNT frames.\n\ With a negative argument, print outermost -COUNT frames."); add_com_alias ("bt", "backtrace", class_stack, 0); add_com_alias ("where", "backtrace", class_alias, 0); add_info ("stack", backtrace_command, "Backtrace of the stack, or innermost COUNT frames."); add_info_alias ("s", "stack", 1); add_info ("frame", frame_info, "All about selected stack frame, or frame at ADDR."); add_info_alias ("f", "frame", 1); add_info ("locals", locals_info, "Local variables of current stack frame."); add_info ("args", args_info, "Argument variables of current stack frame."); add_info ("catch", catch_info, "Exceptions that can be caught in the current stack frame."); #if 0 add_cmd ("backtrace-limit", class_stack, set_backtrace_limit_command, "Specify maximum number of frames for \"backtrace\" to print by default.", &setlist); add_info ("backtrace-limit", backtrace_limit_info, "The maximum number of frames for \"backtrace\" to print by default."); #endif } gdb-4.13/gdb/standalone.c 666 34562 1752 27032 5463041000 13601 0ustar fnfcygnus/* Interface to bare machine for GDB running as kernel debugger. Copyright (C) 1986, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include #include #include #if defined (SIGTSTP) && defined (SIGIO) #include #include #endif /* SIGTSTP and SIGIO defined (must be 4.2) */ #include "defs.h" #include "signals.h" #include "symtab.h" #include "frame.h" #include "inferior.h" #include "wait.h" /* Random system calls, mostly no-ops to prevent link problems */ ioctl (desc, code, arg) {} int (* signal ()) () {} kill () {} getpid () { return 0; } sigsetmask () {} chdir () {} char * getcwd (buf, len) char *buf; unsigned int len; { buf[0] = '/'; buf[1] = 0; return buf; } /* Used to check for existence of .gdbinit. Say no. */ access () { return -1; } exit () { error ("Fatal error; restarting."); } /* Reading "files". The contents of some files are written into kdb's data area before it is run. These files are used to contain the symbol table for kdb to load, and the source files (in case the kdb user wants to print them). The symbols are stored in a file named "kdb-symbols" in a.out format (except that all the text and data have been stripped to save room). The files are stored in the following format: int number of bytes of data for this file, including these four. char[] name of the file, ending with a null. padding to multiple of 4 boundary. char[] file contents. The length can be deduced from what was specified before. There is no terminating null here. If the int at the front is zero, it means there are no more files. Opening a file in kdb returns a nonzero value to indicate success, but the value does not matter. Only one file can be open, and only for reading. All the primitives for input from the file know which file is open and ignore what is specified for the descriptor or for the stdio stream. Input with fgetc can be done either on the file that is open or on stdin (which reads from the terminal through tty_input () */ /* Address of data for the files stored in format described above. */ char *files_start; /* The file stream currently open: */ char *sourcebeg; /* beginning of contents */ int sourcesize; /* size of contents */ char *sourceptr; /* current read pointer */ int sourceleft; /* number of bytes to eof */ /* "descriptor" for the file now open. Incremented at each close. If specified descriptor does not match this, it means the program is trying to use a closed descriptor. We report an error for that. */ int sourcedesc; open (filename, modes) char *filename; int modes; { register char *next; if (modes) { errno = EROFS; return -1; } if (sourceptr) { errno = EMFILE; return -1; } for (next - files_start; * (int *) next; next += * (int *) next) { if (!STRCMP (next + 4, filename)) { sourcebeg = next + 4 + strlen (next + 4) + 1; sourcebeg = (char *) (((int) sourcebeg + 3) & (-4)); sourceptr = sourcebeg; sourcesize = next + * (int *) next - sourceptr; sourceleft = sourcesize; return sourcedesc; } } return 0; } close (desc) int desc; { sourceptr = 0; sourcedesc++; /* Don't let sourcedesc get big enough to be confused with stdin. */ if (sourcedesc == 100) sourcedesc = 5; } FILE * fopen (filename, modes) char *filename; char *modes; { return (FILE *) open (filename, *modes == 'w'); } FILE * fdopen (desc) int desc; { return (FILE *) desc; } fclose (desc) int desc; { close (desc); } fstat (desc, statbuf) struct stat *statbuf; { if (desc != sourcedesc) { errno = EBADF; return -1; } statbuf->st_size = sourcesize; } myread (desc, destptr, size, filename) int desc; char *destptr; int size; char *filename; { int len = min (sourceleft, size); if (desc != sourcedesc) { errno = EBADF; return -1; } memcpy (destptr, sourceptr, len); sourceleft -= len; return len; } int fread (bufp, numelts, eltsize, stream) { register int elts = min (numelts, sourceleft / eltsize); register int len = elts * eltsize; if (stream != sourcedesc) { errno = EBADF; return -1; } memcpy (bufp, sourceptr, len); sourceleft -= len; return elts; } int fgetc (desc) int desc; { if (desc == (int) stdin) return tty_input (); if (desc != sourcedesc) { errno = EBADF; return -1; } if (sourceleft-- <= 0) return EOF; return *sourceptr++; } lseek (desc, pos) int desc; int pos; { if (desc != sourcedesc) { errno = EBADF; return -1; } if (pos < 0 || pos > sourcesize) { errno = EINVAL; return -1; } sourceptr = sourcebeg + pos; sourceleft = sourcesize - pos; } /* Output in kdb can go only to the terminal, so the stream specified may be ignored. */ printf (a1, a2, a3, a4, a5, a6, a7, a8, a9) { char buffer[1024]; sprintf (buffer, a1, a2, a3, a4, a5, a6, a7, a8, a9); display_string (buffer); } fprintf (ign, a1, a2, a3, a4, a5, a6, a7, a8, a9) { char buffer[1024]; sprintf (buffer, a1, a2, a3, a4, a5, a6, a7, a8, a9); display_string (buffer); } fwrite (buf, numelts, size, stream) register char *buf; int numelts, size; { register int i = numelts * size; while (i-- > 0) fputc (*buf++, stream); } fputc (c, ign) { char buf[2]; buf[0] = c; buf[1] = 0; display_string (buf); } /* sprintf refers to this, but loading this from the library would cause fflush to be loaded from it too. In fact there should be no need to call this (I hope). */ _flsbuf () { error ("_flsbuf was actually called."); } fflush (ign) { } /* Entries into core and inflow, needed only to make things link ok. */ exec_file_command () {} core_file_command () {} char * get_exec_file (err) int err; { /* Makes one printout look reasonable; value does not matter otherwise. */ return "run"; } /* Nonzero if there is a core file. */ have_core_file_p () { return 0; } kill_command () { inferior_pid = 0; } terminal_inferior () {} terminal_ours () {} terminal_init_inferior () {} write_inferior_register () {} read_inferior_register () {} read_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { memcpy (myaddr, memaddr, len); } /* Always return 0 indicating success. */ write_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { memcpy (memaddr, myaddr, len); return 0; } static REGISTER_TYPE saved_regs[NUM_REGS]; REGISTER_TYPE read_register (regno) int regno; { if (regno < 0 || regno >= NUM_REGS) error ("Register number %d out of range.", regno); return saved_regs[regno]; } void write_register (regno, value) int regno; REGISTER_TYPE value; { if (regno < 0 || regno >= NUM_REGS) error ("Register number %d out of range.", regno); saved_regs[regno] = value; } /* System calls needed in relation to running the "inferior". */ vfork () { /* Just appear to "succeed". Say the inferior's pid is 1. */ return 1; } /* These are called by code that normally runs in the inferior that has just been forked. That code never runs, when standalone, and these definitions are so it will link without errors. */ ptrace () {} setpgrp () {} execle () {} _exit () {} /* Malloc calls these. */ malloc_warning (str) char *str; { printf ("\n%s.\n\n", str); } char *next_free; char *memory_limit; char * sbrk (amount) int amount; { if (next_free + amount > memory_limit) return (char *) -1; next_free += amount; return next_free - amount; } /* Various ways malloc might ask where end of memory is. */ char * ulimit () { return memory_limit; } int vlimit () { return memory_limit - next_free; } getrlimit (addr) struct rlimit *addr; { addr->rlim_cur = memory_limit - next_free; } /* Context switching to and from program being debugged. */ /* GDB calls here to run the user program. The frame pointer for this function is saved in gdb_stack by save_frame_pointer; then we restore all of the user program's registers, including PC and PS. */ static int fault_code; static REGISTER_TYPE gdb_stack; resume () { REGISTER_TYPE restore[NUM_REGS]; PUSH_FRAME_PTR; save_frame_pointer (); memcpy (restore, saved_regs, sizeof restore); POP_REGISTERS; /* Control does not drop through here! */ } save_frame_pointer (val) CORE_ADDR val; { gdb_stack = val; } /* Fault handlers call here, running in the user program stack. They must first push a fault code, old PC, old PS, and any other info about the fault. The exact format is machine-dependent and is known only in the definition of PUSH_REGISTERS. */ fault () { /* Transfer all registers and fault code to the stack in canonical order: registers in order of GDB register number, followed by fault code. */ PUSH_REGISTERS; /* Transfer them to saved_regs and fault_code. */ save_registers (); restore_gdb (); /* Control does not reach here */ } restore_gdb () { CORE_ADDR new_fp = gdb_stack; /* Switch to GDB's stack */ POP_FRAME_PTR; /* Return from the function `resume'. */ } /* Assuming register contents and fault code have been pushed on the stack as arguments to this function, copy them into the standard place for the program's registers while GDB is running. */ save_registers (firstreg) int firstreg; { memcpy (saved_regs, &firstreg, sizeof saved_regs); fault_code = (&firstreg)[NUM_REGS]; } /* Store into the structure such as `wait' would return the information on why the program faulted, converted into a machine-independent signal number. */ static int fault_table[] = FAULT_TABLE; int wait (w) WAITTYPE *w; { WSETSTOP (*w, fault_table[fault_code / FAULT_CODE_UNITS]); return inferior_pid; } /* Allocate a big space in which files for kdb to read will be stored. Whatever is left is where malloc can allocate storage. Initialize it, so that there will be space in the executable file for it. Then the files can be put into kdb by writing them into kdb's executable file. */ /* The default size is as much space as we expect to be available for kdb to use! */ #ifndef HEAP_SIZE #define HEAP_SIZE 400000 #endif char heap[HEAP_SIZE] = {0}; #ifndef STACK_SIZE #define STACK_SIZE 100000 #endif int kdb_stack_beg[STACK_SIZE / sizeof (int)]; int kdb_stack_end; _initialize_standalone () { register char *next; /* Find start of data on files. */ files_start = heap; /* Find the end of the data on files. */ for (next - files_start; * (int *) next; next += * (int *) next) {} /* That is where free storage starts for sbrk to give out. */ next_free = next; memory_limit = heap + sizeof heap; } gdb-4.13/gdb/gdb.info-6 666 34562 1752 142000 5623251657 13115 0ustar fnfcygnusThis is Info file ./gdb.info, produced by Makeinfo-1.52 from the input file gdb.texinfo. START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY This file documents the GNU debugger GDB. This is Edition 4.12, January 1994, of `Debugging with GDB: the GNU Source-Level Debugger' for GDB Version 4.13. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions.  File: gdb.info, Node: Bootstrapping, Next: Debug Session, Prev: Stub Contents, Up: Remote Serial What you must do for the stub ----------------------------- The debugging stubs that come with GDB are set up for a particular chip architecture, but they have no information about the rest of your debugging target machine. First of all you need to tell the stub how to communicate with the serial port. `int getDebugChar()' Write this subroutine to read a single character from the serial port. It may be identical to `getchar' for your target system; a different name is used to allow you to distinguish the two if you wish. `void putDebugChar(int)' Write this subroutine to write a single character to the serial port. It may be identical to `putchar' for your target system; a different name is used to allow you to distinguish the two if you wish. If you want GDB to be able to stop your program while it is running, you need to use an interrupt-driven serial driver, and arrange for it to stop when it receives a `^C' (`\003', the control-C character). That is the character which GDB uses to tell the remote system to stop. Getting the debugging target to return the proper status to GDB probably requires changes to the standard stub; one quick and dirty way is to just execute a breakpoint instruction (the "dirty" part is that GDB reports a `SIGTRAP' instead of a `SIGINT'). Other routines you need to supply are: `void exceptionHandler (int EXCEPTION_NUMBER, void *EXCEPTION_ADDRESS)' Write this function to install EXCEPTION_ADDRESS in the exception handling tables. You need to do this because the stub does not have any way of knowing what the exception handling tables on your target system are like (for example, the processor's table might be in ROM, containing entries which point to a table in RAM). eXCEPTION_NUMBER is the exception number which should be changed; its meaning is architecture-dependent (for example, different numbers might represent divide by zero, misaligned access, etc). When this exception occurs, control should be transferred directly to EXCEPTION_ADDRESS, and the processor state (stack, registers, and so on) should be just as it is when a processor exception occurs. So if you want to use a jump instruction to reach EXCEPTION_ADDRESS, it should be a simple jump, not a jump to subroutine. For the 386, EXCEPTION_ADDRESS should be installed as an interrupt gate so that interrupts are masked while the handler runs. The gate should be at privilege level 0 (the most privileged level). The SPARC and 68k stubs are able to mask interrupts themself without help from `exceptionHandler'. `void flush_i_cache()' Write this subroutine to flush the instruction cache, if any, on your target machine. If there is no instruction cache, this subroutine may be a no-op. On target machines that have instruction caches, GDB requires this function to make certain that the state of your program is stable. You must also make sure this library routine is available: `void *memset(void *, int, int)' This is the standard library function `memset' that sets an area of memory to a known value. If you have one of the free versions of `libc.a', `memset' can be found there; otherwise, you must either obtain it from your hardware manufacturer, or write your own. If you do not use the GNU C compiler, you may need other standard library subroutines as well; this varies from one stub to another, but in general the stubs are likely to use any of the common library subroutines which `gcc' generates as inline code.  File: gdb.info, Node: Debug Session, Next: Protocol, Prev: Bootstrapping, Up: Remote Serial Putting it all together ----------------------- In summary, when your program is ready to debug, you must follow these steps. 1. Make sure you have the supporting low-level routines (*note What you must do for the stub: Bootstrapping.): `getDebugChar', `putDebugChar', `flush_i_cache', `memset', `exceptionHandler'. 2. Insert these lines near the top of your program: set_debug_traps(); breakpoint(); 3. For the 680x0 stub only, you need to provide a variable called `exceptionHook'. Normally you just use void (*exceptionHook)() = 0; but if before calling `set_debug_traps', you set it to point to a function in your program, that function is called when `GDB' continues after stopping on a trap (for example, bus error). The function indicated by `exceptionHook' is called with one parameter: an `int' which is the exception number. 4. Compile and link together: your program, the GDB debugging stub for your target architecture, and the supporting subroutines. 5. Make sure you have a serial connection between your target machine and the GDB host, and identify the serial port used for this on the host. 6. Download your program to your target machine (or get it there by whatever means the manufacturer provides), and start it. 7. To start remote debugging, run GDB on the host machine, and specify as an executable file the program that is running in the remote machine. This tells GDB how to find your program's symbols and the contents of its pure text. Then establish communication using the `target remote' command. Its argument specifies how to communicate with the target machine--either via a devicename attached to a direct serial line, or a TCP port (usually to a terminal server which in turn has a serial line to the target). For example, to use a serial line connected to the device named `/dev/ttyb': target remote /dev/ttyb To use a TCP connection, use an argument of the form `HOST:port'. For example, to connect to port 2828 on a terminal server named `manyfarms': target remote manyfarms:2828 Now you can use all the usual commands to examine and change data and to step and continue the remote program. To resume the remote program and stop debugging it, use the `detach' command. Whenever GDB is waiting for the remote program, if you type the interrupt character (often C-C), GDB attempts to stop the program. This may or may not succeed, depending in part on the hardware and the serial drivers the remote system uses. If you type the interrupt character once again, GDB displays this prompt: Interrupted while waiting for the program. Give up (and stop debugging it)? (y or n) If you type `y', GDB abandons the remote debugging session. (If you decide you want to try again later, you can use `target remote' again to connect once more.) If you type `n', GDB goes back to waiting.  File: gdb.info, Node: Protocol, Next: Server, Prev: Debug Session, Up: Remote Serial Communication protocol ---------------------- The stub files provided with GDB implement the target side of the communication protocol, and the GDB side is implemented in the GDB source file `remote.c'. Normally, you can simply allow these subroutines to communicate, and ignore the details. (If you're implementing your own stub file, you can still ignore the details: start with one of the existing stub files. `sparc-stub.c' is the best organized, and therefore the easiest to read.) However, there may be occasions when you need to know something about the protocol--for example, if there is only one serial port to your target machine, you might want your program to do something special if it recognizes a packet meant for GDB. All GDB commands and responses (other than acknowledgements, which are single characters) are sent as a packet which includes a checksum. A packet is introduced with the character `$', and ends with the character `#' followed by a two-digit checksum: $PACKET INFO#CHECKSUM CHECKSUM is computed as the modulo 256 sum of the PACKET INFO characters. When either the host or the target machine receives a packet, the first response expected is an acknowledgement: a single character, either `+' (to indicate the package was received correctly) or `-' (to request retransmission). The host (GDB) sends commands, and the target (the debugging stub incorporated in your program) sends data in response. The target also sends data when your program stops. Command packets are distinguished by their first character, which identifies the kind of command. These are the commands currently supported: `g' Requests the values of CPU registers. `G' Sets the values of CPU registers. `mADDR,COUNT' Read COUNT bytes at location ADDR. `MADDR,COUNT:...' Write COUNT bytes at location ADDR. `c' `cADDR' Resume execution at the current address (or at ADDR if supplied). `s' `sADDR' Step the target program for one instruction, from either the current program counter or from ADDR if supplied. `k' Kill the target program. `?' Report the most recent signal. To allow you to take advantage of the GDB signal handling commands, one of the functions of the debugging stub is to report CPU traps as the corresponding POSIX signal values. If you have trouble with the serial connection, you can use the command `set remotedebug'. This makes GDB report on all packets sent back and forth across the serial line to the remote machine. The packet-debugging information is printed on the GDB standard output stream. `set remotedebug off' turns it off, and `show remotedebug' shows you its current state.  File: gdb.info, Node: Server, Prev: Protocol, Up: Remote Serial Using the `gdbserver' program ----------------------------- `gdbserver' is a control program for Unix-like systems, which allows you to connect your program with a remote GDB via `target remote'--but without linking in the usual debugging stub. `gdbserver' is not a complete replacement for the debugging stubs, because it requires essentially the same operating-system facilities that GDB itself does. In fact, a system that can run `gdbserver' to connect to a remote GDB could also run GDB locally! `gdbserver' is sometimes useful nevertheless, because it is a much smaller program than GDB itself. It is also easier to port than all of GDB, so you may be able to get started more quickly on a new system by using `gdbserver'. Finally, if you develop code for real-time systems, you may find that the tradeoffs involved in real-time operation make it more convenient to do as much development work as possible on another system, for example by cross-compiling. You can use `gdbserver' to make a similar choice for debugging. GDB and `gdbserver' communicate via either a serial line or a TCP connection, using the standard GDB remote serial protocol. *On the target machine,* you need to have a copy of the program you want to debug. `gdbserver' does not need your program's symbol table, so you can strip the program if necessary to save space. GDB on the host system does all the symbol handling. To use the server, you must tell it how to communicate with GDB; the name of your program; and the arguments for your program. The syntax is: target> gdbserver COMM PROGRAM [ ARGS ... ] COMM is either a device name (to use a serial line) or a TCP hostname and portnumber. For example, to debug Emacs with the argument `foo.txt' and communicate with GDB over the serial port `/dev/com1': target> gdbserver /dev/com1 emacs foo.txt `gdbserver' waits passively for the host GDB to communicate with it. To use a TCP connection instead of a serial line: target> gdbserver host:2345 emacs foo.txt The only difference from the previous example is the first argument, specifying that you are communicating with the host GDB via TCP. The `host:2345' argument means that `gdbserver' is to expect a TCP connection from machine `host' to local TCP port 2345. (Currently, the `host' part is ignored.) You can choose any number you want for the port number as long as it does not conflict with any TCP ports already in use on the target system (for example, `23' is reserved for `telnet').(1) You must use the same port number with the host GDB `target remote' command. *On the GDB host machine,* you need an unstripped copy of your program, since GDB needs symbols and debugging information. Start up GDB as usual, using the name of the local copy of your program as the first argument. (You may also need the `--baud' option if the serial line is running at anything other than 9600 bps.) After that, use `target remote' to establish communications with `gdbserver'. Its argument is either a device name (usually a serial device, like `/dev/ttyb'), or a TCP port descriptor in the form `HOST:PORT'. For example: (gdb) target remote /dev/ttyb communicates with the server via serial line `/dev/ttyb', and (gdb) target remote the-target:2345 communicates via a TCP connection to port 2345 on host `the-target'. For TCP connections, you must start up `gdbserver' prior to using the `target remote' command. Otherwise you may get an error whose text depends on the host system, but which usually looks something like `Connection refused'. ---------- Footnotes ---------- (1) If you choose a port number that conflicts with another service, `gdbserver' prints an error message and exits.  File: gdb.info, Node: i960-Nindy Remote, Next: UDI29K Remote, Prev: Remote Serial, Up: Remote GDB with a remote i960 (Nindy) ------------------------------ "Nindy" is a ROM Monitor program for Intel 960 target systems. When GDB is configured to control a remote Intel 960 using Nindy, you can tell GDB how to connect to the 960 in several ways: * Through command line options specifying serial port, version of the Nindy protocol, and communications speed; * By responding to a prompt on startup; * By using the `target' command at any point during your GDB session. *Note Commands for managing targets: Target Commands. * Menu: * Nindy Startup:: Startup with Nindy * Nindy Options:: Options for Nindy * Nindy Reset:: Nindy reset command  File: gdb.info, Node: Nindy Startup, Next: Nindy Options, Up: i960-Nindy Remote Startup with Nindy ------------------ If you simply start `gdb' without using any command-line options, you are prompted for what serial port to use, *before* you reach the ordinary GDB prompt: Attach /dev/ttyNN -- specify NN, or "quit" to quit: Respond to the prompt with whatever suffix (after `/dev/tty') identifies the serial port you want to use. You can, if you choose, simply start up with no Nindy connection by responding to the prompt with an empty line. If you do this and later wish to attach to Nindy, use `target' (*note Commands for managing targets: Target Commands.).  File: gdb.info, Node: Nindy Options, Next: Nindy Reset, Prev: Nindy Startup, Up: i960-Nindy Remote Options for Nindy ----------------- These are the startup options for beginning your GDB session with a Nindy-960 board attached: `-r PORT' Specify the serial port name of a serial interface to be used to connect to the target system. This option is only available when GDB is configured for the Intel 960 target architecture. You may specify PORT as any of: a full pathname (e.g. `-r /dev/ttya'), a device name in `/dev' (e.g. `-r ttya'), or simply the unique suffix for a specific `tty' (e.g. `-r a'). `-O' (An uppercase letter "O", not a zero.) Specify that GDB should use the "old" Nindy monitor protocol to connect to the target system. This option is only available when GDB is configured for the Intel 960 target architecture. *Warning:* if you specify `-O', but are actually trying to connect to a target system that expects the newer protocol, the connection fails, appearing to be a speed mismatch. GDB repeatedly attempts to reconnect at several different line speeds. You can abort this process with an interrupt. `-brk' Specify that GDB should first send a `BREAK' signal to the target system, in an attempt to reset it, before connecting to a Nindy target. *Warning:* Many target systems do not have the hardware that this requires; it only works with a few boards. The standard `-b' option controls the line speed used on the serial port.  File: gdb.info, Node: Nindy Reset, Prev: Nindy Options, Up: i960-Nindy Remote Nindy reset command ------------------- `reset' For a Nindy target, this command sends a "break" to the remote target system; this is only useful if the target has been equipped with a circuit to perform a hard reset (or some other interesting action) when a break is detected.  File: gdb.info, Node: UDI29K Remote, Next: EB29K Remote, Prev: i960-Nindy Remote, Up: Remote The UDI protocol for AMD29K --------------------------- GDB supports AMD's UDI ("Universal Debugger Interface") protocol for debugging the a29k processor family. To use this configuration with AMD targets running the MiniMON monitor, you need the program `MONTIP', available from AMD at no charge. You can also use GDB with the UDI conformant a29k simulator program `ISSTIP', also available from AMD. `target udi KEYWORD' Select the UDI interface to a remote a29k board or simulator, where KEYWORD is an entry in the AMD configuration file `udi_soc'. This file contains keyword entries which specify parameters used to connect to a29k targets. If the `udi_soc' file is not in your working directory, you must set the environment variable `UDICONF' to its pathname.  File: gdb.info, Node: EB29K Remote, Next: VxWorks Remote, Prev: UDI29K Remote, Up: Remote The EBMON protocol for AMD29K ----------------------------- AMD distributes a 29K development board meant to fit in a PC, together with a DOS-hosted monitor program called `EBMON'. As a shorthand term, this development system is called the "EB29K". To use GDB from a Unix system to run programs on the EB29K board, you must first connect a serial cable between the PC (which hosts the EB29K board) and a serial port on the Unix system. In the following, we assume you've hooked the cable between the PC's `COM1' port and `/dev/ttya' on the Unix system. * Menu: * Comms (EB29K):: Communications setup * gdb-EB29K:: EB29K cross-debugging * Remote Log:: Remote log  File: gdb.info, Node: Comms (EB29K), Next: gdb-EB29K, Up: EB29K Remote Communications setup -------------------- The next step is to set up the PC's port, by doing something like this in DOS on the PC: C:\> MODE com1:9600,n,8,1,none This example--run on an MS DOS 4.0 system--sets the PC port to 9600 bps, no parity, eight data bits, one stop bit, and no "retry" action; you must match the communications parameters when establishing the Unix end of the connection as well. To give control of the PC to the Unix side of the serial line, type the following at the DOS console: C:\> CTTY com1 (Later, if you wish to return control to the DOS console, you can use the command `CTTY con'--but you must send it over the device that had control, in our example over the `COM1' serial line). From the Unix host, use a communications program such as `tip' or `cu' to communicate with the PC; for example, cu -s 9600 -l /dev/ttya The `cu' options shown specify, respectively, the linespeed and the serial port to use. If you use `tip' instead, your command line may look something like the following: tip -9600 /dev/ttya Your system may require a different name where we show `/dev/ttya' as the argument to `tip'. The communications parameters, including which port to use, are associated with the `tip' argument in the "remote" descriptions file--normally the system table `/etc/remote'. Using the `tip' or `cu' connection, change the DOS working directory to the directory containing a copy of your 29K program, then start the PC program `EBMON' (an EB29K control program supplied with your board by AMD). You should see an initial display from `EBMON' similar to the one that follows, ending with the `EBMON' prompt `#'-- C:\> G: G:\> CD \usr\joe\work29k G:\USR\JOE\WORK29K> EBMON Am29000 PC Coprocessor Board Monitor, version 3.0-18 Copyright 1990 Advanced Micro Devices, Inc. Written by Gibbons and Associates, Inc. Enter '?' or 'H' for help PC Coprocessor Type = EB29K I/O Base = 0x208 Memory Base = 0xd0000 Data Memory Size = 2048KB Available I-RAM Range = 0x8000 to 0x1fffff Available D-RAM Range = 0x80002000 to 0x801fffff PageSize = 0x400 Register Stack Size = 0x800 Memory Stack Size = 0x1800 CPU PRL = 0x3 Am29027 Available = No Byte Write Available = Yes # ~. Then exit the `cu' or `tip' program (done in the example by typing `~.' at the `EBMON' prompt). `EBMON' keeps running, ready for GDB to take over. For this example, we've assumed what is probably the most convenient way to make sure the same 29K program is on both the PC and the Unix system: a PC/NFS connection that establishes "drive `G:'" on the PC as a file system on the Unix host. If you do not have PC/NFS or something similar connecting the two systems, you must arrange some other way--perhaps floppy-disk transfer--of getting the 29K program from the Unix system to the PC; GDB does *not* download it over the serial line.  File: gdb.info, Node: gdb-EB29K, Next: Remote Log, Prev: Comms (EB29K), Up: EB29K Remote EB29K cross-debugging --------------------- Finally, `cd' to the directory containing an image of your 29K program on the Unix system, and start GDB--specifying as argument the name of your 29K program: cd /usr/joe/work29k gdb myfoo Now you can use the `target' command: target amd-eb /dev/ttya 9600 MYFOO In this example, we've assumed your program is in a file called `myfoo'. Note that the filename given as the last argument to `target amd-eb' should be the name of the program as it appears to DOS. In our example this is simply `MYFOO', but in general it can include a DOS path, and depending on your transfer mechanism may not resemble the name on the Unix side. At this point, you can set any breakpoints you wish; when you are ready to see your program run on the 29K board, use the GDB command `run'. To stop debugging the remote program, use the GDB `detach' command. To return control of the PC to its console, use `tip' or `cu' once again, after your GDB session has concluded, to attach to `EBMON'. You can then type the command `q' to shut down `EBMON', returning control to the DOS command-line interpreter. Type `CTTY con' to return command input to the main DOS console, and type `~.' to leave `tip' or `cu'.  File: gdb.info, Node: Remote Log, Prev: gdb-EB29K, Up: EB29K Remote Remote log ---------- The `target amd-eb' command creates a file `eb.log' in the current working directory, to help debug problems with the connection. `eb.log' records all the output from `EBMON', including echoes of the commands sent to it. Running `tail -f' on this file in another window often helps to understand trouble with `EBMON', or unexpected events on the PC side of the connection.  File: gdb.info, Node: ST2000 Remote, Next: Hitachi Remote, Prev: VxWorks Remote, Up: Remote GDB with a Tandem ST2000 ------------------------ To connect your ST2000 to the host system, see the manufacturer's manual. Once the ST2000 is physically attached, you can run target st2000 DEV SPEED to establish it as your debugging environment. DEV is normally the name of a serial device, such as `/dev/ttya', connected to the ST2000 via a serial line. You can instead specify DEV as a TCP connection (for example, to a serial line attached via a terminal concentrator) using the syntax `HOSTNAME:PORTNUMBER'. The `load' and `attach' commands are *not* defined for this target; you must load your program into the ST2000 as you normally would for standalone operation. GDB reads debugging information (such as symbols) from a separate, debugging version of the program available on your host computer. These auxiliary GDB commands are available to help you with the ST2000 environment: `st2000 COMMAND' Send a COMMAND to the STDBUG monitor. See the manufacturer's manual for available commands. `connect' Connect the controlling terminal to the STDBUG command monitor. When you are done interacting with STDBUG, typing either of two character sequences gets you back to the GDB command prompt: `RET~.' (Return, followed by tilde and period) or `RET~C-d' (Return, followed by tilde and control-D).  File: gdb.info, Node: VxWorks Remote, Next: ST2000 Remote, Prev: EB29K Remote, Up: Remote GDB and VxWorks --------------- GDB enables developers to spawn and debug tasks running on networked VxWorks targets from a Unix host. Already-running tasks spawned from the VxWorks shell can also be debugged. GDB uses code that runs on both the Unix host and on the VxWorks target. The program `gdb' is installed and executed on the Unix host. (It may be installed with the name `vxgdb', to distinguish it from a GDB for debugging programs on the host itself.) The following information on connecting to VxWorks was current when this manual was produced; newer releases of VxWorks may use revised procedures. To use GDB with VxWorks, you must rebuild your VxWorks kernel to include the remote debugging interface routines in the VxWorks library `rdb.a'. To do this, define `INCLUDE_RDB' in the VxWorks configuration file `configAll.h' and rebuild your VxWorks kernel. The resulting kernel contains `rdb.a', and spawns the source debugging task `tRdbTask' when VxWorks is booted. For more information on configuring and remaking VxWorks, see the manufacturer's manual. Once you have included `rdb.a' in your VxWorks system image and set your Unix execution search path to find GDB, you are ready to run GDB. From your Unix host, run `gdb' (or `vxgdb', depending on your installation). GDB comes up showing the prompt: (vxgdb) * Menu: * VxWorks Connection:: Connecting to VxWorks * VxWorks Download:: VxWorks download * VxWorks Attach:: Running tasks  File: gdb.info, Node: VxWorks Connection, Next: VxWorks Download, Up: VxWorks Remote Connecting to VxWorks --------------------- The GDB command `target' lets you connect to a VxWorks target on the network. To connect to a target whose host name is "`tt'", type: (vxgdb) target vxworks tt GDB displays messages like these: Attaching remote machine across net... Connected to tt. GDB then attempts to read the symbol tables of any object modules loaded into the VxWorks target since it was last booted. GDB locates these files by searching the directories listed in the command search path (*note Your program's environment: Environment.); if it fails to find an object file, it displays a message such as: prog.o: No such file or directory. When this happens, add the appropriate directory to the search path with the GDB command `path', and execute the `target' command again.  File: gdb.info, Node: VxWorks Download, Next: VxWorks Attach, Prev: VxWorks Connection, Up: VxWorks Remote VxWorks download ---------------- If you have connected to the VxWorks target and you want to debug an object that has not yet been loaded, you can use the GDB `load' command to download a file from Unix to VxWorks incrementally. The object file given as an argument to the `load' command is actually opened twice: first by the VxWorks target in order to download the code, then by GDB in order to read the symbol table. This can lead to problems if the current working directories on the two systems differ. If both systems have NFS mounted the same filesystems, you can avoid these problems by using absolute paths. Otherwise, it is simplest to set the working directory on both systems to the directory in which the object file resides, and then to reference the file by its name, without any path. For instance, a program `prog.o' may reside in `VXPATH/vw/demo/rdb' in VxWorks and in `HOSTPATH/vw/demo/rdb' on the host. To load this program, type this on VxWorks: -> cd "VXPATH/vw/demo/rdb" Then, in GDB, type: (vxgdb) cd HOSTPATH/vw/demo/rdb (vxgdb) load prog.o GDB displays a response similar to this: Reading symbol data from wherever/vw/demo/rdb/prog.o... done. You can also use the `load' command to reload an object module after editing and recompiling the corresponding source file. Note that this makes GDB delete all currently-defined breakpoints, auto-displays, and convenience variables, and to clear the value history. (This is necessary in order to preserve the integrity of debugger data structures that reference the target system's symbol table.)  File: gdb.info, Node: VxWorks Attach, Prev: VxWorks Download, Up: VxWorks Remote Running tasks ------------- You can also attach to an existing task using the `attach' command as follows: (vxgdb) attach TASK where TASK is the VxWorks hexadecimal task ID. The task can be running or suspended when you attach to it. Running tasks are suspended at the time of attachment.  File: gdb.info, Node: Hitachi Remote, Next: MIPS Remote, Prev: ST2000 Remote, Up: Remote GDB and Hitachi microprocessors ------------------------------- GDB needs to know these things to talk to your Hitachi SH, H8/300, or H8/500: 1. that you want to use `target hms', the remote debugging interface for Hitachi microprocessors, or `target e7000', the in-circuit emulator for the Hitachi SH and the Hitachi 300H. (`target hms' is the default when GDB is configured specifically for the Hitachi SH, H8/300, or H8/500.) 2. what serial device connects your host to your Hitachi board (the first serial device available on your host is the default). 3. what speed to use over the serial device. * Menu: * Hitachi Boards:: Connecting to Hitachi boards. * Hitachi ICE:: Using the E7000 In-Circuit Emulator. * Hitachi Special:: Special GDB commands for Hitachi micros.  File: gdb.info, Node: Hitachi Boards, Next: Hitachi ICE, Up: Hitachi Remote Connecting to Hitachi boards ---------------------------- Use the special `gdb' command `device PORT' if you need to explicitly set the serial device. The default PORT is the first available port on your host. This is only necessary on Unix hosts, where it is typically something like `/dev/ttya'. `gdb' has another special command to set the communications speed: `speed BPS'. This command also is only used from Unix hosts; on DOS hosts, set the line speed as usual from outside GDB with the DOS `mode' command (for instance, `mode com2:9600,n,8,1,p' for a 9600 bps connection). The `device' and `speed' commands are available only when you use a Unix host to debug your Hitachi microprocessor programs. If you use a DOS host, GDB depends on an auxiliary terminate-and-stay-resident program called `asynctsr' to communicate with the development board through a PC serial port. You must also use the DOS `mode' command to set up the serial port on the DOS side.  File: gdb.info, Node: Hitachi ICE, Next: Hitachi Special, Prev: Hitachi Boards, Up: Hitachi Remote Using the E7000 in-circuit emulator ----------------------------------- You can use the E7000 in-circuit emulator to develop code for either the Hitachi SH or the H8/300H. Use one of these forms of the `target e7000' command to connect GDB to your E7000: `target e7000 PORT SPEED' Use this form if your E7000 is connected to a serial port. The PORT argument identifies what serial port to use (for example, `com2'). The third argument is the line speed in bits per second (for example, `9600'). `target e7000 HOSTNAME' If your E7000 is installed as a host on a TCP/IP network, you can just specify its hostname; GDB uses `telnet' to connect.  File: gdb.info, Node: Hitachi Special, Prev: Hitachi ICE, Up: Hitachi Remote Special GDB commands for Hitachi micros --------------------------------------- Some GDB commands are available only on the H8/300 or the H8/500 configurations: `set machine h8300' `set machine h8300h' Condition GDB for one of the two variants of the H8/300 architecture with `set machine'. You can use `show machine' to check which variant is currently in effect. `set memory MOD' `show memory' Specify which H8/500 memory model (MOD) you are using with `set memory'; check which memory model is in effect with `show memory'. The accepted values for MOD are `small', `big', `medium', and `compact'.  File: gdb.info, Node: MIPS Remote, Next: Simulator, Prev: Hitachi Remote, Up: Remote GDB and remote MIPS boards -------------------------- GDB can use the MIPS remote debugging protocol to talk to a MIPS board attached to a serial line. This is available when you configure GDB with `--target=mips-idt-ecoff'. Use these GDB commands to specify the connection to your target board: `target mips PORT' To run a program on the board, start up `gdb' with the name of your program as the argument. To connect to the board, use the command `target mips PORT', where PORT is the name of the serial port connected to the board. If the program has not already been downloaded to the board, you may use the `load' command to download it. You can then use all the usual GDB commands. For example, this sequence connects to the target board through a serial port, and loads and runs a program called PROG through the debugger: host$ gdb PROG GDB is free software and ... (gdb) target mips /dev/ttyb (gdb) load PROG (gdb) run `target mips HOSTNAME:PORTNUMBER' On some GDB host configurations, you can specify a TCP connection (for instance, to a serial line managed by a terminal concentrator) instead of a serial port, using the syntax `HOSTNAME:PORTNUMBER'. GDB also supports these special commands for MIPS targets: `set mipsfpu off' `show mipsfpu' If your target board does not support the MIPS floating point coprocessor, you should use the command `set mipsfpu off' (if you need this, you may wish to put the command in your .gdbinit file). This tells GDB how to find the return value of functions which return floating point values. It also allows GDB to avoid saving the floating point registers when calling functions on the board. (As usual, you can inquire about the `mipsfpu' variable with `show mipsfpu'.) `set remotedebug N' `show remotedebug' You can see some debugging information about communications with the board by setting the `remotedebug' variable. If you set it to `1' using `set remotedebug 1', every packet is displayed. If you set it to `2', every character is displayed. You can check the current value at any time with the command `show remotedebug'. `set timeout SECONDS' `set retransmit-timeout SECONDS' `show timeout' `show retransmit-timeout' You can control the timeout used while waiting for a packet, in the MIPS remote protocol, with the `set timeout SECONDS' command. The default is 5 seconds. Similarly, you can control the timeout used while waiting for an acknowledgement of a packet with the `set retransmit-timeout SECONDS' command. The default is 3 seconds. You can inspect both values with `show timeout' and `show retransmit-timeout'. (These commands are *only* available when GDB is configured for `--target=mips-idt-ecoff'.) The timeout set by `set timeout' does not apply when GDB is waiting for your program to stop. In that case, GDB waits forever because it has no way of knowing how long the program is going to run before stopping.  File: gdb.info, Node: Simulator, Prev: MIPS Remote, Up: Remote Simulated CPU target -------------------- For some configurations, GDB includes a CPU simulator that you can use instead of a hardware CPU to debug your programs. Currently, a simulator is available when GDB is configured to debug Zilog Z8000 or Hitachi microprocessor targets. For the Z8000 family, `target sim' simulates either the Z8002 (the unsegmented variant of the Z8000 architecture) or the Z8001 (the segmented variant). The simulator recognizes which architecture is appropriate by inspecting the object code. `target sim' Debug programs on a simulated CPU (which CPU depends on the GDB configuration) After specifying this target, you can debug programs for the simulated CPU in the same style as programs for your host computer; use the `file' command to load a new program image, the `run' command to run your program, and so on. As well as making available all the usual machine registers (see `info reg'), this debugging target provides three additional items of information as specially named registers: `cycles' Counts clock-ticks in the simulator. `insts' Counts instructions run in the simulator. `time' Execution time in 60ths of a second. You can refer to these values in GDB expressions with the usual conventions; for example, `b fputc if $cycles>5000' sets a conditional breakpoint that suspends only after at least 5000 simulated clock ticks.  File: gdb.info, Node: Controlling GDB, Next: Sequences, Prev: Targets, Up: Top Controlling GDB *************** You can alter the way GDB interacts with you by using the `set' command. For commands controlling how GDB displays data, *note Print settings: Print Settings.; other settings are described here. * Menu: * Prompt:: Prompt * Editing:: Command editing * History:: Command history * Screen Size:: Screen size * Numbers:: Numbers * Messages/Warnings:: Optional warnings and messages  File: gdb.info, Node: Prompt, Next: Editing, Up: Controlling GDB Prompt ====== GDB indicates its readiness to read a command by printing a string called the "prompt". This string is normally `(gdb)'. You can change the prompt string with the `set prompt' command. For instance, when debugging GDB with GDB, it is useful to change the prompt in one of the GDB sessions so that you can always tell which one you are talking to. `set prompt NEWPROMPT' Directs GDB to use NEWPROMPT as its prompt string henceforth. `show prompt' Prints a line of the form: `Gdb's prompt is: YOUR-PROMPT'  File: gdb.info, Node: Editing, Next: History, Prev: Prompt, Up: Controlling GDB Command editing =============== GDB reads its input commands via the "readline" interface. This GNU library provides consistent behavior for programs which provide a command line interface to the user. Advantages are `emacs'-style or `vi'-style inline editing of commands, `csh'-like history substitution, and a storage and recall of command history across debugging sessions. You may control the behavior of command line editing in GDB with the command `set'. `set editing' `set editing on' Enable command line editing (enabled by default). `set editing off' Disable command line editing. `show editing' Show whether command line editing is enabled.  File: gdb.info, Node: History, Next: Screen Size, Prev: Editing, Up: Controlling GDB Command history =============== GDB can keep track of the commands you type during your debugging sessions, so that you can be certain of precisely what happened. Use these commands to manage the GDB command history facility. `set history filename FNAME' Set the name of the GDB command history file to FNAME. This is the file where GDB reads an initial command history list, and where it writes the command history from this session when it exits. You can access this list through history expansion or through the history command editing characters listed below. This file defaults to the value of the environment variable `GDBHISTFILE', or to `./.gdb_history' if this variable is not set. `set history save' `set history save on' Record command history in a file, whose name may be specified with the `set history filename' command. By default, this option is disabled. `set history save off' Stop recording command history in a file. `set history size SIZE' Set the number of commands which GDB keeps in its history list. This defaults to the value of the environment variable `HISTSIZE', or to 256 if this variable is not set. History expansion assigns special meaning to the character `!'. Since `!' is also the logical not operator in C, history expansion is off by default. If you decide to enable history expansion with the `set history expansion on' command, you may sometimes need to follow `!' (when it is used as logical not, in an expression) with a space or a tab to prevent it from being expanded. The readline history facilities do not attempt substitution on the strings `!=' and `!(', even when history expansion is enabled. The commands to control history expansion are: `set history expansion on' `set history expansion' Enable history expansion. History expansion is off by default. `set history expansion off' Disable history expansion. The readline code comes with more complete documentation of editing and history expansion features. Users unfamiliar with `emacs' or `vi' may wish to read it. `show history' `show history filename' `show history save' `show history size' `show history expansion' These commands display the state of the GDB history parameters. `show history' by itself displays all four states. `show commands' Display the last ten commands in the command history. `show commands N' Print ten commands centered on command number N. `show commands +' Print ten commands just after the commands last printed.  File: gdb.info, Node: Screen Size, Next: Numbers, Prev: History, Up: Controlling GDB Screen size =========== Certain commands to GDB may produce large amounts of information output to the screen. To help you read all of it, GDB pauses and asks you for input at the end of each page of output. Type RET when you want to continue the output, or `q' to discard the remaining output. Also, the screen width setting determines when to wrap lines of output. Depending on what is being printed, GDB tries to break the line at a readable place, rather than simply letting it overflow onto the following line. Normally GDB knows the size of the screen from the termcap data base together with the value of the `TERM' environment variable and the `stty rows' and `stty cols' settings. If this is not correct, you can override it with the `set height' and `set width' commands: `set height LPP' `show height' `set width CPL' `show width' These `set' commands specify a screen height of LPP lines and a screen width of CPL characters. The associated `show' commands display the current settings. If you specify a height of zero lines, GDB does not pause during output no matter how long the output is. This is useful if output is to a file or to an editor buffer. Likewise, you can specify `set width 0' to prevent GDB from wrapping its output.  File: gdb.info, Node: Numbers, Next: Messages/Warnings, Prev: Screen Size, Up: Controlling GDB Numbers ======= You can always enter numbers in octal, decimal, or hexadecimal in GDB by the usual conventions: octal numbers begin with `0', decimal numbers end with `.', and hexadecimal numbers begin with `0x'. Numbers that begin with none of these are, by default, entered in base 10; likewise, the default display for numbers--when no particular format is specified--is base 10. You can change the default base for both input and output with the `set radix' command. `set radix BASE' Set the default base for numeric input and display. Supported choices for BASE are decimal 8, 10, or 16. BASE must itself be specified either unambiguously or using the current default radix; for example, any of set radix 012 set radix 10. set radix 0xa sets the base to decimal. On the other hand, `set radix 10' leaves the radix unchanged no matter what it was. `show radix' Display the current default base for numeric input and display.  File: gdb.info, Node: Messages/Warnings, Prev: Numbers, Up: Controlling GDB Optional warnings and messages ============================== By default, GDB is silent about its inner workings. If you are running on a slow machine, you may want to use the `set verbose' command. It makes GDB tell you when it does a lengthy internal operation, so you will not think it has crashed. Currently, the messages controlled by `set verbose' are those which announce that the symbol table for a source file is being read; see `symbol-file' in *Note Commands to specify files: Files. `set verbose on' Enables GDB output of certain informational messages. `set verbose off' Disables GDB output of certain informational messages. `show verbose' Displays whether `set verbose' is on or off. By default, if GDB encounters bugs in the symbol table of an object file, it is silent; but if you are debugging a compiler, you may find this information useful (*note Errors reading symbol files: Symbol Errors.). `set complaints LIMIT' Permits GDB to output LIMIT complaints about each type of unusual symbols before becoming silent about the problem. Set LIMIT to zero to suppress all complaints; set it to a large number to prevent complaints from being suppressed. `show complaints' Displays how many symbol complaints GDB is permitted to produce. By default, GDB is cautious, and asks what sometimes seems to be a lot of stupid questions to confirm certain commands. For example, if you try to run a program which is already running: (gdb) run The program being debugged has been started already. Start it from the beginning? (y or n) If you are willing to unflinchingly face the consequences of your own commands, you can disable this "feature": `set confirm off' Disables confirmation requests. `set confirm on' Enables confirmation requests (the default). `show confirm' Displays state of confirmation requests. Some systems allow individual object files that make up your program to be replaced without stopping and restarting your program. For example, in VxWorks you can simply recompile a defective object file and keep on running. If you are running on one of these systems, you can allow GDB to reload the symbols for automatically relinked modules: `set symbol-reloading on' Replace symbol definitions for the corresponding source file when an object file with a particular name is seen again. `set symbol-reloading off' Do not replace symbol definitions when re-encountering object files of the same name. This is the default state; if you are not running on a system that permits automatically relinking modules, you should leave `symbol-reloading' off, since otherwise GDB may discard symbols when linking large programs, that may contain several modules (from different directories or libraries) with the same name. `show symbol-reloading' Show the current `on' or `off' setting.  File: gdb.info, Node: Sequences, Next: Emacs, Prev: Controlling GDB, Up: Top Canned Sequences of Commands **************************** Aside from breakpoint commands (*note Breakpoint command lists: Break Commands.), GDB provides two ways to store sequences of commands for execution as a unit: user-defined commands and command files. * Menu: * Define:: User-defined commands * Hooks:: User-defined command hooks * Command Files:: Command files * Output:: Commands for controlled output gdb-4.13/gdb/stop-gdb.c 666 34562 1752 6133 5600155143 13156 0ustar fnfcygnus/* A client to make GDB return to command level in Mach 3. Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Authors: Jukka Virtanen and Peter Stout . A simple client to make GDB (versions 4.4 and later) on Mach 3 return to the command level when it is waiting for the inferior to stop. Actions: Lookup the send right to the GDB message port from the NetMsgServer. Send an asynchronous message with msgh_id GDB_MESSAGE_ID_STOP to that port. */ #include #include "defs.h" #include #include #include #include #include void main (argc, argv) int argc; char **argv; { kern_return_t kr; mach_msg_header_t msg; mach_port_t gdb_port; char *host; char *name; if (argc == 1) argv[argc++] = GDB_DEF_NAME; if (argc != 2) { fprintf (stderr, "Usage : %s \n", argv[0]); exit (1); } /* Allow the user to specify a remote host. */ host = strchr (argv[1], '@'); if (host) *(host++) = '\0'; else host = (char *) ""; name = malloc (strlen (argv[1]) + sizeof(GDB_NAME_PREFIX)); if (name == NULL) { fprintf (stderr, "Unable to allocate memory for name."); exit (1); } strcpy (name, GDB_NAME_PREFIX); strcat (name, argv[1]); /* Look up the GDB service port. For convenience, add the GDB_NAME_PREFIX the argument before looking up the name. For backwards compatibility, do it without. */ kr = netname_look_up (name_server_port, host, name, &gdb_port); if (kr == NETNAME_NOT_CHECKED_IN) kr = netname_look_up (name_server_port, host, argv[1], &gdb_port); if (kr != KERN_SUCCESS) { fprintf (stderr, "Unable to lookup the GDB service port: %s.\n", mach_error_string(kr)); exit(1); } /* Code generated by mig stub generator, with minor cleanups :-) simpleroutine stop_inferior(gdb_port : mach_port_t); */ msg.msgh_bits = MACH_MSGH_BITS (MACH_MSG_TYPE_COPY_SEND, 0); msg.msgh_remote_port = gdb_port; msg.msgh_local_port = MACH_PORT_NULL; msg.msgh_size = sizeof(msg); msg.msgh_seqno = 0; msg.msgh_id = GDB_MESSAGE_ID_STOP; kr = mach_msg_send (&msg); if (kr != KERN_SUCCESS) fprintf (stderr, "Message not sent, return code %d : %s\n", kr, mach_error_string (kr)); exit (kr != KERN_SUCCESS); } gdb-4.13/gdb/stuff.c 666 34562 1752 12167 5465306013 12615 0ustar fnfcygnus/* Program to stuff files into a specially prepared space in kdb. Copyright (C) 1986, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Written 13-Mar-86 by David Bridgham. */ #include #include #include #include #include #include main (argc, argv) int argc; char *argv[]; { register char *cp; char *outfile; register int i; int offset; int out_fd, in_fd; struct stat stat_buf; int size, pad; char buf[1024]; static char zeros[4] = {0}; if (argc < 4) err("Not enough arguments\nUsage: %s -o kdb file1 file2 ...\n", argv[0]); outfile = 0; for (i = 1; i < argc; i++) { if (STREQ (argv[i], "-o")) outfile = argv[++i]; } if (outfile == 0) err("Output file not specified\n"); offset = get_offset (outfile, "_heap"); out_fd = open (outfile, O_WRONLY); if (out_fd < 0) err ("Error opening %s for write: %s\n", outfile, strerror (errno)); if (lseek (out_fd, offset, 0) < 0) err ("Error seeking to heap in %s: %s\n", outfile, strerror (errno)); /* For each file listed on the command line, write it into the * 'heap' of the output file. Make sure to skip the arguments * that name the output file. */ for (i = 1; i < argc; i++) { if (STREQ (argv[i], "-o")) continue; if ((in_fd = open (argv[i], O_RDONLY)) < 0) err ("Error opening %s for read: %s\n", argv[i], strerror (errno)); if (fstat (in_fd, &stat_buf) < 0) err ("Error stat'ing %s: %s\n", argv[i], strerror (errno)); size = strlen (argv[i]); pad = 4 - (size & 3); size += pad + stat_buf.st_size + sizeof (int); write (out_fd, &size, sizeof (int)); write (out_fd, argv[i], strlen (argv[i])); write (out_fd, zeros, pad); while ((size = read (in_fd, buf, sizeof (buf))) > 0) write (out_fd, buf, size); close (in_fd); } size = 0; write (out_fd, &size, sizeof (int)); close (out_fd); return (0); } /* Read symbol table from file and returns the offset into the file * where symbol sym_name is located. If error, print message and * exit. */ get_offset (file, sym_name) char *file; char *sym_name; { int f; struct exec file_hdr; struct nlist *symbol_table; int size; char *strings; f = open (file, O_RDONLY); if (f < 0) err ("Error opening %s: %s\n", file, strerror (errno)); if (read (f, &file_hdr, sizeof (file_hdr)) < 0) err ("Error reading exec structure: %s\n", strerror (errno)); if (N_BADMAG (file_hdr)) err ("File %s not an a.out file\n", file); /* read in symbol table */ if ((symbol_table = (struct nlist *)malloc (file_hdr.a_syms)) == 0) err ("Couldn't allocate space for symbol table\n"); if (lseek (f, N_SYMOFF (file_hdr), 0) == -1) err ("lseek error: %s\n", strerror (errno)); if (read (f, symbol_table, file_hdr.a_syms) == -1) err ("Error reading symbol table from %s: %s\n", file, strerror (errno)); /* read in string table */ if (read (f, &size, 4) == -1) err ("reading string table size: %s\n", strerror (errno)); if ((strings = (char *)malloc (size)) == 0) err ("Couldn't allocate memory for string table\n"); if (read (f, strings, size - 4) == -1) err ("reading string table: %s\n", strerror (errno)); /* Find the core address at which the first byte of kdb text segment should be loaded into core when kdb is run. */ origin = find_symbol ("_etext", symbol_table, file_hdr.a_syms, strings) - file_hdr.a_text; /* Find the core address at which the heap will appear. */ coreaddr = find_symbol (sym_name, symbol_table, file_hdr.a_syms, strings); /* Return address in file of the heap data space. */ return (N_TXTOFF (file_hdr) + core_addr - origin); } find_symbol (sym_name, symbol_table, length, strings) char *sym_name; struct nlist *symbol_table; int length; char *strings; { register struct nlist *sym; /* Find symbol in question */ for (sym = symbol_table; sym != (struct nlist *)((char *)symbol_table + length); sym++) { if ((sym->n_type & N_TYPE) != N_DATA) continue; if (sym->n_un.n_strx == 0) continue; if (STREQ (sym_name, strings + sym->n_un.n_strx - 4)) return sym->n_value; } err ("Data symbol %s not found in %s\n", sym_name, file); } /* VARARGS */ void err (va_alist) va_dcl { va_list args; char *string; va_start (args); string = va_arg (args, char *); vfprintf (gdb_stderr, string, args); va_end (args); exit (-1); } gdb-4.13/gdb/sun3-nat.c 666 34562 1752 10334 5465306015 13132 0ustar fnfcygnus/* Host-dependent code for Sun-3 for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "inferior.h" #include "gdbcore.h" #include #define KERNEL /* To get floating point reg definitions */ #include void fetch_inferior_registers (regno) int regno; { struct regs inferior_registers; #ifdef FP0_REGNUM struct fp_status inferior_fp_registers; #endif extern char registers[]; registers_fetched (); ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); #ifdef FP0_REGNUM ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers); #endif memcpy (registers, &inferior_registers, 16 * 4); #ifdef FP0_REGNUM memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], &inferior_fp_registers, sizeof inferior_fp_registers.fps_regs); #endif *(int *)®isters[REGISTER_BYTE (PS_REGNUM)] = inferior_registers.r_ps; *(int *)®isters[REGISTER_BYTE (PC_REGNUM)] = inferior_registers.r_pc; #ifdef FP0_REGNUM memcpy (®isters[REGISTER_BYTE (FPC_REGNUM)], &inferior_fp_registers.fps_control, sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs); #endif } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { struct regs inferior_registers; #ifdef FP0_REGNUM struct fp_status inferior_fp_registers; #endif extern char registers[]; memcpy (&inferior_registers, registers, 16 * 4); #ifdef FP0_REGNUM memcpy (&inferior_fp_registers, ®isters[REGISTER_BYTE (FP0_REGNUM)], sizeof inferior_fp_registers.fps_regs); #endif inferior_registers.r_ps = *(int *)®isters[REGISTER_BYTE (PS_REGNUM)]; inferior_registers.r_pc = *(int *)®isters[REGISTER_BYTE (PC_REGNUM)]; #ifdef FP0_REGNUM memcpy (&inferior_fp_registers.fps_control, ®isters[REGISTER_BYTE (FPC_REGNUM)], sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs); #endif ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); #if FP0_REGNUM ptrace (PTRACE_SETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers); #endif } /* All of this stuff is only relevant if both host and target are sun3. */ /* Machine-dependent code for pulling registers out of a Sun-3 core file. */ void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned int reg_addr; /* Unused in this version */ { extern char registers[]; struct regs *regs = (struct regs *) core_reg_sect; if (which == 0) { if (core_reg_size < sizeof (struct regs)) error ("Can't find registers in core file"); memcpy (registers, (char *)regs, 16 * 4); supply_register (PS_REGNUM, (char *)®s->r_ps); supply_register (PC_REGNUM, (char *)®s->r_pc); } else if (which == 2) { #define fpustruct ((struct fpu *) core_reg_sect) if (core_reg_size >= sizeof (struct fpu)) { #ifdef FP0_REGNUM memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], fpustruct->f_fpstatus.fps_regs, sizeof fpustruct->f_fpstatus.fps_regs); memcpy (®isters[REGISTER_BYTE (FPC_REGNUM)], &fpustruct->f_fpstatus.fps_control, sizeof fpustruct->f_fpstatus - sizeof fpustruct->f_fpstatus.fps_regs); #endif } else fprintf_unfiltered (gdb_stderr, "Couldn't read float regs from core file\n"); } } gdb-4.13/gdb/sun386-nat.c 666 34562 1752 20150 5465306017 13307 0ustar fnfcygnus/* Native support for Sun 386i's for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. Changes for sun386i by Jean Daniel Fekete (jdf@litp.univ-p6-7.fr), C2V Paris, April 89. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined (GDB_TARGET_IS_SUN386) #include "defs.h" #include "frame.h" #include "inferior.h" #include "gdbcore.h" #include #include #include #include #include #include #include #include #include #include #include /* Machine-dependent code which would otherwise be in core.c */ /* Work with core files, for GDB. */ void core_file_command (filename, from_tty) char *filename; int from_tty; { int val; extern char registers[]; /* Discard all vestiges of any previous core file and mark data and stack spaces as empty. */ if (corefile) free (corefile); corefile = 0; if (corechan >= 0) close (corechan); corechan = -1; data_start = 0; data_end = 0; stack_start = STACK_END_ADDR; stack_end = STACK_END_ADDR; /* Now, if a new core file was specified, open it and digest it. */ if (filename) { filename = tilde_expand (filename); make_cleanup (free, filename); if (have_inferior_p ()) error ("To look at a core file, you must kill the program with \"kill\"."); corechan = open (filename, O_RDONLY, 0); if (corechan < 0) perror_with_name (filename); { struct core corestr; val = myread (corechan, &corestr, sizeof corestr); if (val < 0) perror_with_name (filename); if (corestr.c_magic != CORE_MAGIC) error ("\"%s\" does not appear to be a core dump file (magic 0x%x, expected 0x%x)", filename, corestr.c_magic, (int) CORE_MAGIC); else if (sizeof (struct core) != corestr.c_len) error ("\"%s\" has an invalid struct core length (%d, expected %d)", filename, corestr.c_len, (int) sizeof (struct core)); data_start = exec_data_start; data_end = data_start + corestr.c_dsize; stack_start = stack_end - corestr.c_ssize; data_offset = sizeof corestr; stack_offset = sizeof corestr + corestr.c_dsize; memcpy (registers, &corestr.c_regs, sizeof corestr.c_regs); memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], corestr.c_fpu.f_fpstatus.f_st, sizeof corestr.c_fpu.f_fpstatus.f_st); memcpy (®isters[REGISTER_BYTE (FPC_REGNUM)], &corestr.c_fpu.f_fpstatus.f_ctrl, sizeof corestr.c_fpu.f_fpstatus - sizeof corestr.c_fpu.f_fpstatus.f_st); /* the struct aouthdr of sun coff is not the struct exec stored in the core file. */ memcpy (&core_aouthdr, &corestr.c_aouthdr, sizeof (struct exec)); #ifndef COFF_ENCAPSULATE core_aouthdr.magic = corestr.c_aouthdr.a_info; core_aouthdr.vstamp = /*SUNVERSION*/ 31252; #endif printf_unfiltered ("Core file is from \"%s\".\n", corestr.c_cmdname); if (corestr.c_signo > 0) printf_unfiltered ("Program terminated with signal %d, %s.\n", corestr.c_signo, safe_strsignal (corestr.c_signo)); } if (filename[0] == '/') corefile = savestring (filename, strlen (filename)); else { corefile = concat (current_directory, "/", filename, NULL); } set_current_frame ( create_new_frame (read_register (FP_REGNUM), read_pc ())); select_frame (get_current_frame (), 0); validate_files (); } else if (from_tty) printf_unfiltered ("No core file now.\n"); } i387_to_double (from, to) char *from; char *to; { long *lp; /* push extended mode on 387 stack, then pop in double mode * * first, set exception masks so no error is generated - * number will be rounded to inf or 0, if necessary */ asm ("pushl %eax"); /* grab a stack slot */ asm ("fstcw (%esp)"); /* get 387 control word */ asm ("movl (%esp),%eax"); /* save old value */ asm ("orl $0x3f,%eax"); /* mask all exceptions */ asm ("pushl %eax"); asm ("fldcw (%esp)"); /* load new value into 387 */ asm ("movl 8(%ebp),%eax"); asm ("fldt (%eax)"); /* push extended number on 387 stack */ asm ("fwait"); asm ("movl 12(%ebp),%eax"); asm ("fstpl (%eax)"); /* pop double */ asm ("fwait"); asm ("popl %eax"); /* flush modified control word */ asm ("fnclex"); /* clear exceptions */ asm ("fldcw (%esp)"); /* restore original control word */ asm ("popl %eax"); /* flush saved copy */ } double_to_i387 (from, to) char *from; char *to; { /* push double mode on 387 stack, then pop in extended mode * no errors are possible because every 64-bit pattern * can be converted to an extended */ asm ("movl 8(%ebp),%eax"); asm ("fldl (%eax)"); asm ("fwait"); asm ("movl 12(%ebp),%eax"); asm ("fstpt (%eax)"); asm ("fwait"); } #else /* Not sun386 target. */ /* These functions shouldn't be called when we're cross-debugging. */ /* ARGSUSED */ void fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr) char *core_reg_sect; unsigned core_reg_size; int which; unsigned int reg_addr; /* Unused in this version */ { } #endif /* Not sun386 target. */ void fetch_inferior_registers (regno) int regno; { struct regs inferior_registers; struct fp_state inferior_fp_registers; extern char registers[]; registers_fetched (); ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers); memcpy (registers, &inferior_registers, sizeof inferior_registers); memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)],inferior_fp_registers.f_st, sizeof inferior_fp_registers.f_st); memcpy (®isters[REGISTER_BYTE (FPC_REGNUM)], &inferior_fp_registers.f_ctrl, sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (regno) int regno; { struct regs inferior_registers; struct fp_state inferior_fp_registers; extern char registers[]; memcpy (&inferior_registers, registers, 20 * 4); memcpy (inferior_fp_registers.f_st, ®isters[REGISTER_BYTE (FP0_REGNUM)], sizeof inferior_fp_registers.f_st); memcpy (&inferior_fp_registers.f_ctrl, ®isters[REGISTER_BYTE (FPC_REGNUM)], sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st); #ifdef PTRACE_FP_BUG if (regno == FP_REGNUM || regno == -1) /* Storing the frame pointer requires a gross hack, in which an instruction that moves eax into ebp gets single-stepped. */ { int stack = inferior_registers.r_reg[SP_REGNUM]; int stuff = ptrace (PTRACE_PEEKDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack); int reg = inferior_registers.r_reg[EAX]; inferior_registers.r_reg[EAX] = inferior_registers.r_reg[FP_REGNUM]; ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); ptrace (PTRACE_POKEDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack, 0xc589); ptrace (PTRACE_SINGLESTEP, inferior_pid, (PTRACE_ARG3_TYPE) stack, 0); wait (0); ptrace (PTRACE_POKEDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack, stuff); inferior_registers.r_reg[EAX] = reg; } #endif ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); ptrace (PTRACE_SETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers); } gdb-4.13/gdb/symfile.c 666 34562 1752 140470 5612062663 13161 0ustar fnfcygnus/* Generic symbol file reading for the GNU debugger, GDB. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support, using pieces from other GDB modules. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "gdbcore.h" #include "frame.h" #include "target.h" #include "value.h" #include "symfile.h" #include "objfiles.h" #include "gdbcmd.h" #include "breakpoint.h" #include "language.h" #include "complaints.h" #include "demangle.h" #include "inferior.h" /* for write_pc */ #include #include #include #include #include #include #include #ifndef O_BINARY #define O_BINARY 0 #endif /* Global variables owned by this file */ int readnow_symbol_files; /* Read full symbols immediately */ struct complaint oldsyms_complaint = { "Replacing old symbols for `%s'", 0, 0 }; struct complaint empty_symtab_complaint = { "Empty symbol table found for `%s'", 0, 0 }; /* External variables and functions referenced. */ extern int info_verbose; /* Functions this file defines */ static void set_initial_language PARAMS ((void)); static void load_command PARAMS ((char *, int)); static void add_symbol_file_command PARAMS ((char *, int)); static void add_shared_symbol_files_command PARAMS ((char *, int)); static void cashier_psymtab PARAMS ((struct partial_symtab *)); static int compare_psymbols PARAMS ((const void *, const void *)); static int compare_symbols PARAMS ((const void *, const void *)); static bfd * symfile_bfd_open PARAMS ((char *)); static void find_sym_fns PARAMS ((struct objfile *)); /* List of all available sym_fns. On gdb startup, each object file reader calls add_symtab_fns() to register information on each format it is prepared to read. */ static struct sym_fns *symtab_fns = NULL; /* Structures with which to manage partial symbol allocation. */ struct psymbol_allocation_list global_psymbols = {0}, static_psymbols = {0}; /* Flag for whether user will be reloading symbols multiple times. Defaults to ON for VxWorks, otherwise OFF. */ #ifdef SYMBOL_RELOADING_DEFAULT int symbol_reloading = SYMBOL_RELOADING_DEFAULT; #else int symbol_reloading = 0; #endif /* Since this function is called from within qsort, in an ANSI environment it must conform to the prototype for qsort, which specifies that the comparison function takes two "void *" pointers. */ static int compare_symbols (s1p, s2p) const PTR s1p; const PTR s2p; { register struct symbol **s1, **s2; s1 = (struct symbol **) s1p; s2 = (struct symbol **) s2p; return (STRCMP (SYMBOL_NAME (*s1), SYMBOL_NAME (*s2))); } /* LOCAL FUNCTION compare_psymbols -- compare two partial symbols by name DESCRIPTION Given pointer to two partial symbol table entries, compare them by name and return -N, 0, or +N (ala strcmp). Typically used by sorting routines like qsort(). NOTES Does direct compare of first two characters before punting and passing to strcmp for longer compares. Note that the original version had a bug whereby two null strings or two identically named one character strings would return the comparison of memory following the null byte. */ static int compare_psymbols (s1p, s2p) const PTR s1p; const PTR s2p; { register char *st1 = SYMBOL_NAME ((struct partial_symbol *) s1p); register char *st2 = SYMBOL_NAME ((struct partial_symbol *) s2p); if ((st1[0] - st2[0]) || !st1[0]) { return (st1[0] - st2[0]); } else if ((st1[1] - st2[1]) || !st1[1]) { return (st1[1] - st2[1]); } else { return (STRCMP (st1 + 2, st2 + 2)); } } void sort_pst_symbols (pst) struct partial_symtab *pst; { /* Sort the global list; don't sort the static list */ qsort (pst -> objfile -> global_psymbols.list + pst -> globals_offset, pst -> n_global_syms, sizeof (struct partial_symbol), compare_psymbols); } /* Call sort_block_syms to sort alphabetically the symbols of one block. */ void sort_block_syms (b) register struct block *b; { qsort (&BLOCK_SYM (b, 0), BLOCK_NSYMS (b), sizeof (struct symbol *), compare_symbols); } /* Call sort_symtab_syms to sort alphabetically the symbols of each block of one symtab. */ void sort_symtab_syms (s) register struct symtab *s; { register struct blockvector *bv; int nbl; int i; register struct block *b; if (s == 0) return; bv = BLOCKVECTOR (s); nbl = BLOCKVECTOR_NBLOCKS (bv); for (i = 0; i < nbl; i++) { b = BLOCKVECTOR_BLOCK (bv, i); if (BLOCK_SHOULD_SORT (b)) sort_block_syms (b); } } /* Make a copy of the string at PTR with SIZE characters in the symbol obstack (and add a null character at the end in the copy). Returns the address of the copy. */ char * obsavestring (ptr, size, obstackp) char *ptr; int size; struct obstack *obstackp; { register char *p = (char *) obstack_alloc (obstackp, size + 1); /* Open-coded memcpy--saves function call time. These strings are usually short. */ { register char *p1 = ptr; register char *p2 = p; char *end = ptr + size; while (p1 != end) *p2++ = *p1++; } p[size] = 0; return p; } /* Concatenate strings S1, S2 and S3; return the new string. Space is found in the symbol_obstack. */ char * obconcat (obstackp, s1, s2, s3) struct obstack *obstackp; const char *s1, *s2, *s3; { register int len = strlen (s1) + strlen (s2) + strlen (s3) + 1; register char *val = (char *) obstack_alloc (obstackp, len); strcpy (val, s1); strcat (val, s2); strcat (val, s3); return val; } /* Get the symbol table that corresponds to a partial_symtab. This is fast after the first time you do it. In fact, there is an even faster macro PSYMTAB_TO_SYMTAB that does the fast case inline. */ struct symtab * psymtab_to_symtab (pst) register struct partial_symtab *pst; { /* If it's been looked up before, return it. */ if (pst->symtab) return pst->symtab; /* If it has not yet been read in, read it. */ if (!pst->readin) { (*pst->read_symtab) (pst); } return pst->symtab; } /* Initialize entry point information for this objfile. */ void init_entry_point_info (objfile) struct objfile *objfile; { /* Save startup file's range of PC addresses to help blockframe.c decide where the bottom of the stack is. */ if (bfd_get_file_flags (objfile -> obfd) & EXEC_P) { /* Executable file -- record its entry point so we'll recognize the startup file because it contains the entry point. */ objfile -> ei.entry_point = bfd_get_start_address (objfile -> obfd); } else { /* Examination of non-executable.o files. Short-circuit this stuff. */ objfile -> ei.entry_point = INVALID_ENTRY_POINT; objfile -> ei.entry_file_lowpc = INVALID_ENTRY_LOWPC; objfile -> ei.entry_file_highpc = INVALID_ENTRY_HIGHPC; } } /* Get current entry point address. */ CORE_ADDR entry_point_address() { return symfile_objfile ? symfile_objfile->ei.entry_point : 0; } /* Remember the lowest-addressed loadable section we've seen. This function is called via bfd_map_over_sections. */ #if 0 /* Not used yet */ static void find_lowest_section (abfd, sect, obj) bfd *abfd; asection *sect; PTR obj; { asection **lowest = (asection **)obj; if (0 == (bfd_get_section_flags (abfd, sect) & SEC_LOAD)) return; if (!*lowest) *lowest = sect; /* First loadable section */ else if (bfd_section_vma (abfd, *lowest) >= bfd_section_vma (abfd, sect)) *lowest = sect; /* A lower loadable section */ } #endif /* Process a symbol file, as either the main file or as a dynamically loaded file. NAME is the file name (which will be tilde-expanded and made absolute herein) (but we don't free or modify NAME itself). FROM_TTY says how verbose to be. MAINLINE specifies whether this is the main symbol file, or whether it's an extra symbol file such as dynamically loaded code. If !mainline, ADDR is the address where the text segment was loaded. If VERBO, the caller has printed a verbose message about the symbol reading (and complaints can be more terse about it). */ void syms_from_objfile (objfile, addr, mainline, verbo) struct objfile *objfile; CORE_ADDR addr; int mainline; int verbo; { struct section_offsets *section_offsets; asection *lowest_sect; struct cleanup *old_chain; init_entry_point_info (objfile); find_sym_fns (objfile); /* Make sure that partially constructed symbol tables will be cleaned up if an error occurs during symbol reading. */ old_chain = make_cleanup (free_objfile, objfile); if (mainline) { /* We will modify the main symbol table, make sure that all its users will be cleaned up if an error occurs during symbol reading. */ make_cleanup (clear_symtab_users, 0); /* Since no error yet, throw away the old symbol table. */ if (symfile_objfile != NULL) { free_objfile (symfile_objfile); symfile_objfile = NULL; } /* Currently we keep symbols from the add-symbol-file command. If the user wants to get rid of them, they should do "symbol-file" without arguments first. Not sure this is the best behavior (PR 2207). */ (*objfile -> sf -> sym_new_init) (objfile); } /* Convert addr into an offset rather than an absolute address. We find the lowest address of a loaded segment in the objfile, and assume that is where that got loaded. Due to historical precedent, we warn if that doesn't happen to be the ".text" segment. */ if (mainline) { addr = 0; /* No offset from objfile addresses. */ } else { lowest_sect = bfd_get_section_by_name (objfile->obfd, ".text"); #if 0 lowest_sect = 0; bfd_map_over_sections (objfile->obfd, find_lowest_section, (PTR) &lowest_sect); #endif if (lowest_sect == 0) warning ("no loadable sections found in added symbol-file %s", objfile->name); else if (0 == bfd_get_section_name (objfile->obfd, lowest_sect) || !STREQ (".text", bfd_get_section_name (objfile->obfd, lowest_sect))) /* FIXME-32x64--assumes bfd_vma fits in long. */ warning ("Lowest section in %s is %s at 0x%lx", objfile->name, bfd_section_name (objfile->obfd, lowest_sect), (unsigned long) bfd_section_vma (objfile->obfd, lowest_sect)); if (lowest_sect) addr -= bfd_section_vma (objfile->obfd, lowest_sect); } /* Initialize symbol reading routines for this objfile, allow complaints to appear for this new file, and record how verbose to be, then do the initial symbol reading for this file. */ (*objfile -> sf -> sym_init) (objfile); clear_complaints (1, verbo); section_offsets = (*objfile -> sf -> sym_offsets) (objfile, addr); objfile->section_offsets = section_offsets; #ifndef IBM6000_TARGET /* This is a SVR4/SunOS specific hack, I think. In any event, it screws RS/6000. sym_offsets should be doing this sort of thing, because it knows the mapping between bfd sections and section_offsets. */ /* This is a hack. As far as I can tell, section offsets are not target dependent. They are all set to addr with a couple of exceptions. The exceptions are sysvr4 shared libraries, whose offsets are kept in solib structures anyway and rs6000 xcoff which handles shared libraries in a completely unique way. Section offsets are built similarly, except that they are built by adding addr in all cases because there is no clear mapping from section_offsets into actual sections. Note that solib.c has a different algorythm for finding section offsets. These should probably all be collapsed into some target independent form of shared library support. FIXME. */ if (addr) { struct obj_section *s; for (s = objfile->sections; s < objfile->sections_end; ++s) { s->addr -= s->offset; s->addr += addr; s->endaddr -= s->offset; s->endaddr += addr; s->offset += addr; } } #endif /* not IBM6000_TARGET */ (*objfile -> sf -> sym_read) (objfile, section_offsets, mainline); if (!have_partial_symbols () && !have_full_symbols ()) { wrap_here (""); printf_filtered ("(no debugging symbols found)..."); wrap_here (""); } /* Don't allow char * to have a typename (else would get caddr_t). Ditto void *. FIXME: Check whether this is now done by all the symbol readers themselves (many of them now do), and if so remove it from here. */ TYPE_NAME (lookup_pointer_type (builtin_type_char)) = 0; TYPE_NAME (lookup_pointer_type (builtin_type_void)) = 0; /* Mark the objfile has having had initial symbol read attempted. Note that this does not mean we found any symbols... */ objfile -> flags |= OBJF_SYMS; /* Discard cleanups as symbol reading was successful. */ discard_cleanups (old_chain); } /* Perform required actions after either reading in the initial symbols for a new objfile, or mapping in the symbols from a reusable objfile. */ void new_symfile_objfile (objfile, mainline, verbo) struct objfile *objfile; int mainline; int verbo; { /* If this is the main symbol file we have to clean up all users of the old main symbol file. Otherwise it is sufficient to fixup all the breakpoints that may have been redefined by this symbol file. */ if (mainline) { /* OK, make it the "real" symbol file. */ symfile_objfile = objfile; clear_symtab_users (); } else { breakpoint_re_set (); } /* We're done reading the symbol file; finish off complaints. */ clear_complaints (0, verbo); } /* Process a symbol file, as either the main file or as a dynamically loaded file. NAME is the file name (which will be tilde-expanded and made absolute herein) (but we don't free or modify NAME itself). FROM_TTY says how verbose to be. MAINLINE specifies whether this is the main symbol file, or whether it's an extra symbol file such as dynamically loaded code. If !mainline, ADDR is the address where the text segment was loaded. Upon success, returns a pointer to the objfile that was added. Upon failure, jumps back to command level (never returns). */ struct objfile * symbol_file_add (name, from_tty, addr, mainline, mapped, readnow) char *name; int from_tty; CORE_ADDR addr; int mainline; int mapped; int readnow; { struct objfile *objfile; struct partial_symtab *psymtab; bfd *abfd; /* Open a bfd for the file, and give user a chance to burp if we'd be interactively wiping out any existing symbols. */ abfd = symfile_bfd_open (name); if ((have_full_symbols () || have_partial_symbols ()) && mainline && from_tty && !query ("Load new symbol table from \"%s\"? ", name)) error ("Not confirmed."); objfile = allocate_objfile (abfd, mapped); /* If the objfile uses a mapped symbol file, and we have a psymtab for it, then skip reading any symbols at this time. */ if ((objfile -> flags & OBJF_MAPPED) && (objfile -> flags & OBJF_SYMS)) { /* We mapped in an existing symbol table file that already has had initial symbol reading performed, so we can skip that part. Notify the user that instead of reading the symbols, they have been mapped. */ if (from_tty || info_verbose) { printf_filtered ("Mapped symbols for %s...", name); wrap_here (""); gdb_flush (gdb_stdout); } init_entry_point_info (objfile); find_sym_fns (objfile); } else { /* We either created a new mapped symbol table, mapped an existing symbol table file which has not had initial symbol reading performed, or need to read an unmapped symbol table. */ if (from_tty || info_verbose) { printf_filtered ("Reading symbols from %s...", name); wrap_here (""); gdb_flush (gdb_stdout); } syms_from_objfile (objfile, addr, mainline, from_tty); } /* We now have at least a partial symbol table. Check to see if the user requested that all symbols be read on initial access via either the gdb startup command line or on a per symbol file basis. Expand all partial symbol tables for this objfile if so. */ if (readnow || readnow_symbol_files) { if (from_tty || info_verbose) { printf_filtered ("expanding to full symbols..."); wrap_here (""); gdb_flush (gdb_stdout); } for (psymtab = objfile -> psymtabs; psymtab != NULL; psymtab = psymtab -> next) { psymtab_to_symtab (psymtab); } } if (from_tty || info_verbose) { printf_filtered ("done.\n"); gdb_flush (gdb_stdout); } new_symfile_objfile (objfile, mainline, from_tty); /* Getting new symbols may change our opinion about what is frameless. */ reinit_frame_cache (); return (objfile); } /* This is the symbol-file command. Read the file, analyze its symbols, and add a struct symtab to a symtab list. The syntax of the command is rather bizarre--(1) buildargv implements various quoting conventions which are undocumented and have little or nothing in common with the way things are quoted (or not quoted) elsewhere in GDB, (2) options are used, which are not generally used in GDB (perhaps "set mapped on", "set readnow on" would be better), (3) the order of options matters, which is contrary to GNU conventions (because it is confusing and inconvenient). */ void symbol_file_command (args, from_tty) char *args; int from_tty; { char **argv; char *name = NULL; CORE_ADDR text_relocation = 0; /* text_relocation */ struct cleanup *cleanups; int mapped = 0; int readnow = 0; dont_repeat (); if (args == NULL) { if ((have_full_symbols () || have_partial_symbols ()) && from_tty && !query ("Discard symbol table from `%s'? ", symfile_objfile -> name)) error ("Not confirmed."); free_all_objfiles (); symfile_objfile = NULL; if (from_tty) { printf_unfiltered ("No symbol file now.\n"); } } else { if ((argv = buildargv (args)) == NULL) { nomem (0); } cleanups = make_cleanup (freeargv, (char *) argv); while (*argv != NULL) { if (STREQ (*argv, "-mapped")) { mapped = 1; } else if (STREQ (*argv, "-readnow")) { readnow = 1; } else if (**argv == '-') { error ("unknown option `%s'", *argv); } else { char *p; name = *argv; /* this is for rombug remote only, to get the text relocation by using link command */ p = strrchr(name, '/'); if (p != NULL) p++; else p = name; target_link(p, &text_relocation); if (text_relocation == (CORE_ADDR)0) return; else if (text_relocation == (CORE_ADDR)-1) symbol_file_add (name, from_tty, (CORE_ADDR)0, 1, mapped, readnow); else symbol_file_add (name, from_tty, (CORE_ADDR)text_relocation, 0, mapped, readnow); set_initial_language (); } argv++; } if (name == NULL) { error ("no symbol file name was specified"); } do_cleanups (cleanups); } } /* Set the initial language. A better solution would be to record the language in the psymtab when reading partial symbols, and then use it (if known) to set the language. This would be a win for formats that encode the language in an easily discoverable place, such as DWARF. For stabs, we can jump through hoops looking for specially named symbols or try to intuit the language from the specific type of stabs we find, but we can't do that until later when we read in full symbols. FIXME. */ static void set_initial_language () { struct partial_symtab *pst; enum language lang = language_unknown; pst = find_main_psymtab (); if (pst != NULL) { if (pst -> filename != NULL) { lang = deduce_language_from_filename (pst -> filename); } if (lang == language_unknown) { /* Make C the default language */ lang = language_c; } set_language (lang); expected_language = current_language; /* Don't warn the user */ } } /* Open file specified by NAME and hand it off to BFD for preliminary analysis. Result is a newly initialized bfd *, which includes a newly malloc'd` copy of NAME (tilde-expanded and made absolute). In case of trouble, error() is called. */ static bfd * symfile_bfd_open (name) char *name; { bfd *sym_bfd; int desc; char *absolute_name; name = tilde_expand (name); /* Returns 1st new malloc'd copy */ /* Look down path for it, allocate 2nd new malloc'd copy. */ desc = openp (getenv ("PATH"), 1, name, O_RDONLY | O_BINARY, 0, &absolute_name); if (desc < 0) { make_cleanup (free, name); perror_with_name (name); } free (name); /* Free 1st new malloc'd copy */ name = absolute_name; /* Keep 2nd malloc'd copy in bfd */ /* It'll be freed in free_objfile(). */ sym_bfd = bfd_fdopenr (name, gnutarget, desc); if (!sym_bfd) { close (desc); make_cleanup (free, name); error ("\"%s\": can't open to read symbols: %s.", name, bfd_errmsg (bfd_get_error ())); } sym_bfd->cacheable = true; if (!bfd_check_format (sym_bfd, bfd_object)) { bfd_close (sym_bfd); /* This also closes desc */ make_cleanup (free, name); error ("\"%s\": can't read symbols: %s.", name, bfd_errmsg (bfd_get_error ())); } return (sym_bfd); } /* Link a new symtab_fns into the global symtab_fns list. Called on gdb startup by the _initialize routine in each object file format reader, to register information about each format the the reader is prepared to handle. */ void add_symtab_fns (sf) struct sym_fns *sf; { sf->next = symtab_fns; symtab_fns = sf; } /* Initialize to read symbols from the symbol file sym_bfd. It either returns or calls error(). The result is an initialized struct sym_fns in the objfile structure, that contains cached information about the symbol file. */ static void find_sym_fns (objfile) struct objfile *objfile; { struct sym_fns *sf; enum bfd_flavour our_flavour = bfd_get_flavour (objfile -> obfd); char *our_target = bfd_get_target (objfile -> obfd); /* Special kludge for RS/6000. See xcoffread.c. */ if (STREQ (our_target, "aixcoff-rs6000")) our_flavour = (enum bfd_flavour)-1; /* Special kludge for apollo. See dstread.c. */ if (STREQN (our_target, "apollo", 6)) our_flavour = (enum bfd_flavour)-2; for (sf = symtab_fns; sf != NULL; sf = sf -> next) { if (our_flavour == sf -> sym_flavour) { objfile -> sf = sf; return; } } error ("I'm sorry, Dave, I can't do that. Symbol format `%s' unknown.", bfd_get_target (objfile -> obfd)); } /* This function runs the load command of our current target. */ static void load_command (arg, from_tty) char *arg; int from_tty; { target_load (arg, from_tty); } /* This version of "load" should be usable for any target. Currently it is just used for remote targets, not inftarg.c or core files, on the theory that only in that case is it useful. Avoiding xmodem and the like seems like a win (a) because we don't have to worry about finding it, and (b) On VMS, fork() is very slow and so we don't want to run a subprocess. On the other hand, I'm not sure how performance compares. */ void generic_load (filename, from_tty) char *filename; int from_tty; { struct cleanup *old_cleanups; asection *s; bfd *loadfile_bfd; if (filename == NULL) filename = get_exec_file (1); loadfile_bfd = bfd_openr (filename, gnutarget); if (loadfile_bfd == NULL) { perror_with_name (filename); return; } old_cleanups = make_cleanup (bfd_close, loadfile_bfd); if (!bfd_check_format (loadfile_bfd, bfd_object)) { error ("\"%s\" is not an object file: %s", filename, bfd_errmsg (bfd_get_error ())); } for (s = loadfile_bfd->sections; s; s = s->next) { if (s->flags & SEC_LOAD) { bfd_size_type size; size = bfd_get_section_size_before_reloc (s); if (size > 0) { char *buffer; struct cleanup *old_chain; bfd_vma vma; buffer = xmalloc (size); old_chain = make_cleanup (free, buffer); vma = bfd_get_section_vma (loadfile_bfd, s); /* Is this really necessary? I guess it gives the user something to look at during a long download. */ printf_filtered ("Loading section %s, size 0x%lx vma ", bfd_get_section_name (loadfile_bfd, s), (unsigned long) size); print_address_numeric (vma, 1, gdb_stdout); printf_filtered ("\n"); bfd_get_section_contents (loadfile_bfd, s, buffer, 0, size); target_write_memory (vma, buffer, size); do_cleanups (old_chain); } } } /* We were doing this in remote-mips.c, I suspect it is right for other targets too. */ write_pc (loadfile_bfd->start_address); /* FIXME: are we supposed to call symbol_file_add or not? According to a comment from remote-mips.c (where a call to symbol_file_add was commented out), making the call confuses GDB if more than one file is loaded in. remote-nindy.c had no call to symbol_file_add, but remote-vx.c does. */ do_cleanups (old_cleanups); } /* This function allows the addition of incrementally linked object files. It does not modify any state in the target, only in the debugger. */ /* ARGSUSED */ static void add_symbol_file_command (args, from_tty) char *args; int from_tty; { char *name = NULL; CORE_ADDR text_addr; char *arg; int readnow = 0; int mapped = 0; dont_repeat (); if (args == NULL) { error ("add-symbol-file takes a file name and an address"); } /* Make a copy of the string that we can safely write into. */ args = strdup (args); make_cleanup (free, args); /* Pick off any -option args and the file name. */ while ((*args != '\000') && (name == NULL)) { while (isspace (*args)) {args++;} arg = args; while ((*args != '\000') && !isspace (*args)) {args++;} if (*args != '\000') { *args++ = '\000'; } if (*arg != '-') { name = arg; } else if (STREQ (arg, "-mapped")) { mapped = 1; } else if (STREQ (arg, "-readnow")) { readnow = 1; } else { error ("unknown option `%s'", arg); } } /* After picking off any options and the file name, args should be left pointing at the remainder of the command line, which should be the address expression to evaluate. */ if (name == NULL) { error ("add-symbol-file takes a file name"); } name = tilde_expand (name); make_cleanup (free, name); if (*args != '\000') { text_addr = parse_and_eval_address (args); } else { target_link(name, &text_addr); if (text_addr == (CORE_ADDR)-1) error("Don't know how to get text start location for this file"); } /* FIXME-32x64: Assumes text_addr fits in a long. */ if (!query ("add symbol table from file \"%s\" at text_addr = %s?\n", name, local_hex_string ((unsigned long)text_addr))) error ("Not confirmed."); symbol_file_add (name, 0, text_addr, 0, mapped, readnow); } static void add_shared_symbol_files_command (args, from_tty) char *args; int from_tty; { #ifdef ADD_SHARED_SYMBOL_FILES ADD_SHARED_SYMBOL_FILES (args, from_tty); #else error ("This command is not available in this configuration of GDB."); #endif } /* Re-read symbols if a symbol-file has changed. */ void reread_symbols () { struct objfile *objfile; long new_modtime; int reread_one = 0; struct stat new_statbuf; int res; /* With the addition of shared libraries, this should be modified, the load time should be saved in the partial symbol tables, since different tables may come from different source files. FIXME. This routine should then walk down each partial symbol table and see if the symbol table that it originates from has been changed */ for (objfile = object_files; objfile; objfile = objfile->next) { if (objfile->obfd) { #ifdef IBM6000_TARGET /* If this object is from a shared library, then you should stat on the library name, not member name. */ if (objfile->obfd->my_archive) res = stat (objfile->obfd->my_archive->filename, &new_statbuf); else #endif res = stat (objfile->name, &new_statbuf); if (res != 0) { /* FIXME, should use print_sys_errmsg but it's not filtered. */ printf_filtered ("`%s' has disappeared; keeping its symbols.\n", objfile->name); continue; } new_modtime = new_statbuf.st_mtime; if (new_modtime != objfile->mtime) { struct cleanup *old_cleanups; struct section_offsets *offsets; int num_offsets; int section_offsets_size; printf_filtered ("`%s' has changed; re-reading symbols.\n", objfile->name); /* There are various functions like symbol_file_add, symfile_bfd_open, syms_from_objfile, etc., which might appear to do what we want. But they have various other effects which we *don't* want. So we just do stuff ourselves. We don't worry about mapped files (for one thing, any mapped file will be out of date). */ /* If we get an error, blow away this objfile (not sure if that is the correct response for things like shared libraries). */ old_cleanups = make_cleanup (free_objfile, objfile); /* We need to do this whenever any symbols go away. */ make_cleanup (clear_symtab_users, 0); /* Clean up any state BFD has sitting around. We don't need to close the descriptor but BFD lacks a way of closing the BFD without closing the descriptor. */ if (!bfd_close (objfile->obfd)) error ("Can't close BFD for %s.", objfile->name); objfile->obfd = bfd_openr (objfile->name, gnutarget); if (objfile->obfd == NULL) error ("Can't open %s to read symbols.", objfile->name); /* bfd_openr sets cacheable to true, which is what we want. */ if (!bfd_check_format (objfile->obfd, bfd_object)) error ("Can't read symbols from %s: %s.", objfile->name, bfd_errmsg (bfd_get_error ())); /* Save the offsets, we will nuke them with the rest of the psymbol_obstack. */ num_offsets = objfile->num_sections; section_offsets_size = sizeof (struct section_offsets) + sizeof (objfile->section_offsets->offsets) * num_offsets; offsets = (struct section_offsets *) alloca (section_offsets_size); memcpy (offsets, objfile->section_offsets, section_offsets_size); /* Nuke all the state that we will re-read. Much of the following code which sets things to NULL really is necessary to tell other parts of GDB that there is nothing currently there. */ /* FIXME: Do we have to free a whole linked list, or is this enough? */ if (objfile->global_psymbols.list) mfree (objfile->md, objfile->global_psymbols.list); objfile->global_psymbols.list = NULL; objfile->global_psymbols.next = NULL; objfile->global_psymbols.size = 0; if (objfile->static_psymbols.list) mfree (objfile->md, objfile->static_psymbols.list); objfile->static_psymbols.list = NULL; objfile->static_psymbols.next = NULL; objfile->static_psymbols.size = 0; /* Free the obstacks for non-reusable objfiles */ obstack_free (&objfile -> psymbol_obstack, 0); obstack_free (&objfile -> symbol_obstack, 0); obstack_free (&objfile -> type_obstack, 0); objfile->sections = NULL; objfile->symtabs = NULL; objfile->psymtabs = NULL; objfile->free_psymtabs = NULL; objfile->msymbols = NULL; objfile->minimal_symbol_count= 0; objfile->fundamental_types = NULL; if (objfile -> sf != NULL) { (*objfile -> sf -> sym_finish) (objfile); } /* We never make this a mapped file. */ objfile -> md = NULL; /* obstack_specify_allocation also initializes the obstack so it is empty. */ obstack_specify_allocation (&objfile -> psymbol_obstack, 0, 0, xmalloc, free); obstack_specify_allocation (&objfile -> symbol_obstack, 0, 0, xmalloc, free); obstack_specify_allocation (&objfile -> type_obstack, 0, 0, xmalloc, free); if (build_objfile_section_table (objfile)) { error ("Can't find the file sections in `%s': %s", objfile -> name, bfd_errmsg (bfd_get_error ())); } /* We use the same section offsets as from last time. I'm not sure whether that is always correct for shared libraries. */ objfile->section_offsets = (struct section_offsets *) obstack_alloc (&objfile -> psymbol_obstack, section_offsets_size); memcpy (objfile->section_offsets, offsets, section_offsets_size); objfile->num_sections = num_offsets; /* What the hell is sym_new_init for, anyway? The concept of distinguishing between the main file and additional files in this way seems rather dubious. */ if (objfile == symfile_objfile) (*objfile->sf->sym_new_init) (objfile); (*objfile->sf->sym_init) (objfile); clear_complaints (1, 1); /* The "mainline" parameter is a hideous hack; I think leaving it zero is OK since dbxread.c also does what it needs to do if objfile->global_psymbols.size is 0. */ (*objfile->sf->sym_read) (objfile, objfile->section_offsets, 0); if (!have_partial_symbols () && !have_full_symbols ()) { wrap_here (""); printf_filtered ("(no debugging symbols found)\n"); wrap_here (""); } objfile -> flags |= OBJF_SYMS; /* We're done reading the symbol file; finish off complaints. */ clear_complaints (0, 1); /* Getting new symbols may change our opinion about what is frameless. */ reinit_frame_cache (); /* Discard cleanups as symbol reading was successful. */ discard_cleanups (old_cleanups); /* If the mtime has changed between the time we set new_modtime and now, we *want* this to be out of date, so don't call stat again now. */ objfile->mtime = new_modtime; reread_one = 1; } } } if (reread_one) clear_symtab_users (); } enum language deduce_language_from_filename (filename) char *filename; { char *c; if (0 == filename) ; /* Get default */ else if (0 == (c = strrchr (filename, '.'))) ; /* Get default. */ else if (STREQ(c,".mod")) return language_m2; else if (STREQ(c,".c")) return language_c; else if (STREQ(c,".s")) return language_asm; else if (STREQ (c,".cc") || STREQ (c,".C") || STREQ (c, ".cxx") || STREQ (c, ".cpp")) return language_cplus; else if (STREQ (c,".ch") || STREQ (c,".c186") || STREQ (c,".c286")) return language_chill; return language_unknown; /* default */ } /* allocate_symtab: Allocate and partly initialize a new symbol table. Return a pointer to it. error() if no space. Caller must set these fields: LINETABLE(symtab) symtab->blockvector symtab->dirname symtab->free_code symtab->free_ptr initialize any EXTRA_SYMTAB_INFO possibly free_named_symtabs (symtab->filename); */ struct symtab * allocate_symtab (filename, objfile) char *filename; struct objfile *objfile; { register struct symtab *symtab; symtab = (struct symtab *) obstack_alloc (&objfile -> symbol_obstack, sizeof (struct symtab)); memset (symtab, 0, sizeof (*symtab)); symtab -> filename = obsavestring (filename, strlen (filename), &objfile -> symbol_obstack); symtab -> fullname = NULL; symtab -> language = deduce_language_from_filename (filename); /* Hook it to the objfile it comes from */ symtab -> objfile = objfile; symtab -> next = objfile -> symtabs; objfile -> symtabs = symtab; #ifdef INIT_EXTRA_SYMTAB_INFO INIT_EXTRA_SYMTAB_INFO (symtab); #endif return (symtab); } struct partial_symtab * allocate_psymtab (filename, objfile) char *filename; struct objfile *objfile; { struct partial_symtab *psymtab; if (objfile -> free_psymtabs) { psymtab = objfile -> free_psymtabs; objfile -> free_psymtabs = psymtab -> next; } else psymtab = (struct partial_symtab *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct partial_symtab)); memset (psymtab, 0, sizeof (struct partial_symtab)); psymtab -> filename = obsavestring (filename, strlen (filename), &objfile -> psymbol_obstack); psymtab -> symtab = NULL; /* Hook it to the objfile it comes from */ psymtab -> objfile = objfile; psymtab -> next = objfile -> psymtabs; objfile -> psymtabs = psymtab; return (psymtab); } /* Reset all data structures in gdb which may contain references to symbol table date. */ void clear_symtab_users () { /* Someday, we should do better than this, by only blowing away the things that really need to be blown. */ clear_value_history (); clear_displays (); clear_internalvars (); breakpoint_re_set (); set_default_breakpoint (0, 0, 0, 0); current_source_symtab = 0; current_source_line = 0; clear_pc_function_cache (); } /* clear_symtab_users_once: This function is run after symbol reading, or from a cleanup. If an old symbol table was obsoleted, the old symbol table has been blown away, but the other GDB data structures that may reference it have not yet been cleared or re-directed. (The old symtab was zapped, and the cleanup queued, in free_named_symtab() below.) This function can be queued N times as a cleanup, or called directly; it will do all the work the first time, and then will be a no-op until the next time it is queued. This works by bumping a counter at queueing time. Much later when the cleanup is run, or at the end of symbol processing (in case the cleanup is discarded), if the queued count is greater than the "done-count", we do the work and set the done-count to the queued count. If the queued count is less than or equal to the done-count, we just ignore the call. This is needed because reading a single .o file will often replace many symtabs (one per .h file, for example), and we don't want to reset the breakpoints N times in the user's face. The reason we both queue a cleanup, and call it directly after symbol reading, is because the cleanup protects us in case of errors, but is discarded if symbol reading is successful. */ #if 0 /* FIXME: As free_named_symtabs is currently a big noop this function is no longer needed. */ static void clear_symtab_users_once PARAMS ((void)); static int clear_symtab_users_queued; static int clear_symtab_users_done; static void clear_symtab_users_once () { /* Enforce once-per-`do_cleanups'-semantics */ if (clear_symtab_users_queued <= clear_symtab_users_done) return; clear_symtab_users_done = clear_symtab_users_queued; clear_symtab_users (); } #endif /* Delete the specified psymtab, and any others that reference it. */ static void cashier_psymtab (pst) struct partial_symtab *pst; { struct partial_symtab *ps, *pprev = NULL; int i; /* Find its previous psymtab in the chain */ for (ps = pst->objfile->psymtabs; ps; ps = ps->next) { if (ps == pst) break; pprev = ps; } if (ps) { /* Unhook it from the chain. */ if (ps == pst->objfile->psymtabs) pst->objfile->psymtabs = ps->next; else pprev->next = ps->next; /* FIXME, we can't conveniently deallocate the entries in the partial_symbol lists (global_psymbols/static_psymbols) that this psymtab points to. These just take up space until all the psymtabs are reclaimed. Ditto the dependencies list and filename, which are all in the psymbol_obstack. */ /* We need to cashier any psymtab that has this one as a dependency... */ again: for (ps = pst->objfile->psymtabs; ps; ps = ps->next) { for (i = 0; i < ps->number_of_dependencies; i++) { if (ps->dependencies[i] == pst) { cashier_psymtab (ps); goto again; /* Must restart, chain has been munged. */ } } } } } /* If a symtab or psymtab for filename NAME is found, free it along with any dependent breakpoints, displays, etc. Used when loading new versions of object modules with the "add-file" command. This is only called on the top-level symtab or psymtab's name; it is not called for subsidiary files such as .h files. Return value is 1 if we blew away the environment, 0 if not. FIXME. The return valu appears to never be used. FIXME. I think this is not the best way to do this. We should work on being gentler to the environment while still cleaning up all stray pointers into the freed symtab. */ int free_named_symtabs (name) char *name; { #if 0 /* FIXME: With the new method of each objfile having it's own psymtab list, this function needs serious rethinking. In particular, why was it ever necessary to toss psymtabs with specific compilation unit filenames, as opposed to all psymtabs from a particular symbol file? -- fnf Well, the answer is that some systems permit reloading of particular compilation units. We want to blow away any old info about these compilation units, regardless of which objfiles they arrived in. --gnu. */ register struct symtab *s; register struct symtab *prev; register struct partial_symtab *ps; struct blockvector *bv; int blewit = 0; /* We only wack things if the symbol-reload switch is set. */ if (!symbol_reloading) return 0; /* Some symbol formats have trouble providing file names... */ if (name == 0 || *name == '\0') return 0; /* Look for a psymtab with the specified name. */ again2: for (ps = partial_symtab_list; ps; ps = ps->next) { if (STREQ (name, ps->filename)) { cashier_psymtab (ps); /* Blow it away...and its little dog, too. */ goto again2; /* Must restart, chain has been munged */ } } /* Look for a symtab with the specified name. */ for (s = symtab_list; s; s = s->next) { if (STREQ (name, s->filename)) break; prev = s; } if (s) { if (s == symtab_list) symtab_list = s->next; else prev->next = s->next; /* For now, queue a delete for all breakpoints, displays, etc., whether or not they depend on the symtab being freed. This should be changed so that only those data structures affected are deleted. */ /* But don't delete anything if the symtab is empty. This test is necessary due to a bug in "dbxread.c" that causes empty symtabs to be created for N_SO symbols that contain the pathname of the object file. (This problem has been fixed in GDB 3.9x). */ bv = BLOCKVECTOR (s); if (BLOCKVECTOR_NBLOCKS (bv) > 2 || BLOCK_NSYMS (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK)) || BLOCK_NSYMS (BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK))) { complain (&oldsyms_complaint, name); clear_symtab_users_queued++; make_cleanup (clear_symtab_users_once, 0); blewit = 1; } else { complain (&empty_symtab_complaint, name); } free_symtab (s); } else { /* It is still possible that some breakpoints will be affected even though no symtab was found, since the file might have been compiled without debugging, and hence not be associated with a symtab. In order to handle this correctly, we would need to keep a list of text address ranges for undebuggable files. For now, we do nothing, since this is a fairly obscure case. */ ; } /* FIXME, what about the minimal symbol table? */ return blewit; #else return (0); #endif } /* Allocate and partially fill a partial symtab. It will be completely filled at the end of the symbol list. SYMFILE_NAME is the name of the symbol-file we are reading from, and ADDR is the address relative to which its symbols are (incremental) or 0 (normal). */ struct partial_symtab * start_psymtab_common (objfile, section_offsets, filename, textlow, global_syms, static_syms) struct objfile *objfile; struct section_offsets *section_offsets; char *filename; CORE_ADDR textlow; struct partial_symbol *global_syms; struct partial_symbol *static_syms; { struct partial_symtab *psymtab; psymtab = allocate_psymtab (filename, objfile); psymtab -> section_offsets = section_offsets; psymtab -> textlow = textlow; psymtab -> texthigh = psymtab -> textlow; /* default */ psymtab -> globals_offset = global_syms - objfile -> global_psymbols.list; psymtab -> statics_offset = static_syms - objfile -> static_psymbols.list; return (psymtab); } /* Debugging versions of functions that are usually inline macros (see symfile.h). */ #if !INLINE_ADD_PSYMBOL /* Add a symbol with a long value to a psymtab. Since one arg is a struct, we pass in a ptr and deref it (sigh). */ void add_psymbol_to_list (name, namelength, namespace, class, list, val, language, objfile) char *name; int namelength; enum namespace namespace; enum address_class class; struct psymbol_allocation_list *list; long val; enum language language; struct objfile *objfile; { register struct partial_symbol *psym; register char *demangled_name; if (list->next >= list->list + list->size) { extend_psymbol_list (list,objfile); } psym = list->next++; SYMBOL_NAME (psym) = (char *) obstack_alloc (&objfile->psymbol_obstack, namelength + 1); memcpy (SYMBOL_NAME (psym), name, namelength); SYMBOL_NAME (psym)[namelength] = '\0'; SYMBOL_VALUE (psym) = val; SYMBOL_LANGUAGE (psym) = language; PSYMBOL_NAMESPACE (psym) = namespace; PSYMBOL_CLASS (psym) = class; SYMBOL_INIT_DEMANGLED_NAME (psym, &objfile->psymbol_obstack); } /* Add a symbol with a CORE_ADDR value to a psymtab. */ void add_psymbol_addr_to_list (name, namelength, namespace, class, list, val, language, objfile) char *name; int namelength; enum namespace namespace; enum address_class class; struct psymbol_allocation_list *list; CORE_ADDR val; enum language language; struct objfile *objfile; { register struct partial_symbol *psym; register char *demangled_name; if (list->next >= list->list + list->size) { extend_psymbol_list (list,objfile); } psym = list->next++; SYMBOL_NAME (psym) = (char *) obstack_alloc (&objfile->psymbol_obstack, namelength + 1); memcpy (SYMBOL_NAME (psym), name, namelength); SYMBOL_NAME (psym)[namelength] = '\0'; SYMBOL_VALUE_ADDRESS (psym) = val; SYMBOL_LANGUAGE (psym) = language; PSYMBOL_NAMESPACE (psym) = namespace; PSYMBOL_CLASS (psym) = class; SYMBOL_INIT_DEMANGLED_NAME (psym, &objfile->psymbol_obstack); } #endif /* !INLINE_ADD_PSYMBOL */ void _initialize_symfile () { struct cmd_list_element *c; c = add_cmd ("symbol-file", class_files, symbol_file_command, "Load symbol table from executable file FILE.\n\ The `file' command can also load symbol tables, as well as setting the file\n\ to execute.", &cmdlist); c->completer = filename_completer; c = add_cmd ("add-symbol-file", class_files, add_symbol_file_command, "Usage: add-symbol-file FILE ADDR\n\ Load the symbols from FILE, assuming FILE has been dynamically loaded.\n\ ADDR is the starting address of the file's text.", &cmdlist); c->completer = filename_completer; c = add_cmd ("add-shared-symbol-files", class_files, add_shared_symbol_files_command, "Load the symbols from shared objects in the dynamic linker's link map.", &cmdlist); c = add_alias_cmd ("assf", "add-shared-symbol-files", class_files, 1, &cmdlist); c = add_cmd ("load", class_files, load_command, "Dynamically load FILE into the running program, and record its symbols\n\ for access from GDB.", &cmdlist); c->completer = filename_completer; add_show_from_set (add_set_cmd ("symbol-reloading", class_support, var_boolean, (char *)&symbol_reloading, "Set dynamic symbol table reloading multiple times in one run.", &setlist), &showlist); } gdb-4.13/gdb/symfile.h 666 34562 1752 20157 5537663033 13151 0ustar fnfcygnus/* Definitions for reading symbol files into GDB. Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (SYMFILE_H) #define SYMFILE_H /* This file requires that you first include "bfd.h". */ struct psymbol_allocation_list { struct partial_symbol *list; struct partial_symbol *next; int size; }; /* Structure to keep track of symbol reading functions for various object file types. */ struct sym_fns { /* BFD flavour that we handle, or (as a special kludge, see xcoffread.c, (enum bfd_flavour)-1 for xcoff). */ enum bfd_flavour sym_flavour; /* Initializes anything that is global to the entire symbol table. It is called during symbol_file_add, when we begin debugging an entirely new program. */ void (*sym_new_init) PARAMS ((struct objfile *)); /* Reads any initial information from a symbol file, and initializes the struct sym_fns SF in preparation for sym_read(). It is called every time we read a symbol file for any reason. */ void (*sym_init) PARAMS ((struct objfile *)); /* sym_read (objfile, addr, mainline) Reads a symbol file into a psymtab (or possibly a symtab). OBJFILE is the objfile struct for the file we are reading. SECTION_OFFSETS are the offset between the file's specified section addresses and their true addresses in memory. MAINLINE is 1 if this is the main symbol table being read, and 0 if a secondary symbol file (e.g. shared library or dynamically loaded file) is being read. */ void (*sym_read) PARAMS ((struct objfile *, struct section_offsets *, int)); /* Called when we are finished with an objfile. Should do all cleanup that is specific to the object file format for the particular objfile. */ void (*sym_finish) PARAMS ((struct objfile *)); /* This function produces a file-dependent section_offsets structure, allocated in the objfile's storage, and based on the parameter. The parameter is currently a CORE_ADDR (FIXME!) for backward compatibility with the higher levels of GDB. It should probably be changed to a string, where NULL means the default, and others are parsed in a file dependent way. The result of this function is handed in to sym_read. */ struct section_offsets *(*sym_offsets) PARAMS ((struct objfile *, CORE_ADDR)); /* Finds the next struct sym_fns. They are allocated and initialized in whatever module implements the functions pointed to; an initializer calls add_symtab_fns to add them to the global chain. */ struct sym_fns *next; }; extern void extend_psymbol_list PARAMS ((struct psymbol_allocation_list *, struct objfile *)); /* Add any kind of symbol to a psymbol_allocation_list. */ #ifndef INLINE_ADD_PSYMBOL #define INLINE_ADD_PSYMBOL 1 #endif #if !INLINE_ADD_PSYMBOL /* Since one arg is a struct, we have to pass in a ptr and deref it (sigh) */ #define ADD_PSYMBOL_TO_LIST(name, namelength, namespace, class, list, value, language, objfile) \ add_psymbol_to_list (name, namelength, namespace, class, &list, value, language, objfile) #define ADD_PSYMBOL_ADDR_TO_LIST(name, namelength, namespace, class, list, value, language, objfile) \ add_psymbol_addr_to_list (name, namelength, namespace, class, &list, value, language, objfile) #else /* !INLINE_ADD_PSYMBOL */ #include "demangle.h" #define ADD_PSYMBOL_VT_TO_LIST(NAME,NAMELENGTH,NAMESPACE,CLASS,LIST,VALUE,VT,LANGUAGE, OBJFILE) \ do { \ register struct partial_symbol *psym; \ if ((LIST).next >= (LIST).list + (LIST).size) \ extend_psymbol_list (&(LIST),(OBJFILE)); \ psym = (LIST).next++; \ SYMBOL_NAME (psym) = \ (char *) obstack_alloc (&objfile->psymbol_obstack, \ (NAMELENGTH) + 1); \ memcpy (SYMBOL_NAME (psym), (NAME), (NAMELENGTH)); \ SYMBOL_NAME (psym)[(NAMELENGTH)] = '\0'; \ SYMBOL_NAMESPACE (psym) = (NAMESPACE); \ PSYMBOL_CLASS (psym) = (CLASS); \ VT (psym) = (VALUE); \ SYMBOL_LANGUAGE (psym) = (LANGUAGE); \ SYMBOL_INIT_DEMANGLED_NAME (psym, &objfile->psymbol_obstack); \ } while (0) /* Add a symbol with an integer value to a psymtab. */ #define ADD_PSYMBOL_TO_LIST(name, namelength, namespace, class, list, value, language, objfile) \ ADD_PSYMBOL_VT_TO_LIST (name, namelength, namespace, class, list, value, SYMBOL_VALUE, language, objfile) /* Add a symbol with a CORE_ADDR value to a psymtab. */ #define ADD_PSYMBOL_ADDR_TO_LIST(name, namelength, namespace, class, list, value, language, objfile)\ ADD_PSYMBOL_VT_TO_LIST (name, namelength, namespace, class, list, value, SYMBOL_VALUE_ADDRESS, language, objfile) #endif /* INLINE_ADD_PSYMBOL */ /* Functions */ extern void sort_pst_symbols PARAMS ((struct partial_symtab *)); extern struct symtab * allocate_symtab PARAMS ((char *, struct objfile *)); extern int free_named_symtabs PARAMS ((char *)); extern void fill_in_vptr_fieldno PARAMS ((struct type *)); extern void add_symtab_fns PARAMS ((struct sym_fns *)); extern void init_entry_point_info PARAMS ((struct objfile *)); extern void syms_from_objfile PARAMS ((struct objfile *, CORE_ADDR, int, int)); extern void new_symfile_objfile PARAMS ((struct objfile *, int, int)); extern struct partial_symtab * start_psymtab_common PARAMS ((struct objfile *, struct section_offsets *, char *, CORE_ADDR, struct partial_symbol *, struct partial_symbol *)); /* Sorting your symbols for fast lookup or alphabetical printing. */ extern void sort_block_syms PARAMS ((struct block *)); extern void sort_symtab_syms PARAMS ((struct symtab *)); /* Make a copy of the string at PTR with SIZE characters in the symbol obstack (and add a null character at the end in the copy). Returns the address of the copy. */ extern char * obsavestring PARAMS ((char *, int, struct obstack *)); /* Concatenate strings S1, S2 and S3; return the new string. Space is found in the symbol_obstack. */ extern char * obconcat PARAMS ((struct obstack *obstackp, const char *, const char *, const char *)); /* Variables */ /* From symfile.c */ extern struct partial_symtab * allocate_psymtab PARAMS ((char *, struct objfile *)); /* Remote targets may wish to use this as their load function. */ extern void generic_load PARAMS ((char *name, int from_tty)); /* From dwarfread.c */ extern void dwarf_build_psymtabs PARAMS ((struct objfile *, struct section_offsets *, int, file_ptr, unsigned int, file_ptr, unsigned int)); /* From mdebugread.c */ /* Hack to force structures to exist before use in parameter list. */ struct ecoff_debug_hack { struct ecoff_debug_swap *a; struct ecoff_debug_info *b; }; extern void mdebug_build_psymtabs PARAMS ((struct objfile *, const struct ecoff_debug_swap *, struct ecoff_debug_info *, struct section_offsets *)); extern void elfmdebug_build_psymtabs PARAMS ((struct objfile *, const struct ecoff_debug_swap *, asection *, struct section_offsets *)); /* From demangle.c */ extern void set_demangling_style PARAMS ((char *)); /* Stuff shared between coffread.c and xcoffread.c. Eventually we want to merge coffread.c and xcoffread.c so this part of this header can go away. */ #if 0 extern char *coff_getfilename PARAMS ((union internal_auxent *)); #else /* Don't declare the arguments; if union internal_auxent has not been declared here, gcc1 will give warnings. */ extern char *coff_getfilename (); #endif #endif /* !defined(SYMFILE_H) */ gdb-4.13/gdb/symm-nat.c 666 34562 1752 57461 5546246362 13253 0ustar fnfcygnus/* Sequent Symmetry host interface, for GDB when running under Unix. Copyright 1986, 1987, 1989, 1991, 1992, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* FIXME, some 387-specific items of use taken from i387-tdep.c -- ought to be merged back in. */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "symtab.h" #include "target.h" /* FIXME: What is the _INKERNEL define for? */ #define _INKERNEL #include #undef _INKERNEL #include #include #include #include #include #include #include #ifdef _SEQUENT_ #include #else /* Dynix has only machine/ptrace.h, which is already included by sys/user.h */ /* Dynix has no mptrace call */ #define mptrace ptrace #endif #include "gdbcore.h" #include #include #define TERMINAL struct sgttyb #include "gdbcore.h" void store_inferior_registers(regno) int regno; { struct pt_regset regs; int i; extern char registers[]; /* FIXME: Fetching the registers is a kludge to initialize all elements in the fpu and fpa status. This works for normal debugging, but might cause problems when calling functions in the inferior. At least fpu_control and fpa_pcr (probably more) should be added to the registers array to solve this properly. */ mptrace (XPT_RREGS, inferior_pid, (PTRACE_ARG3_TYPE) ®s, 0); regs.pr_eax = *(int *)®isters[REGISTER_BYTE(0)]; regs.pr_ebx = *(int *)®isters[REGISTER_BYTE(5)]; regs.pr_ecx = *(int *)®isters[REGISTER_BYTE(2)]; regs.pr_edx = *(int *)®isters[REGISTER_BYTE(1)]; regs.pr_esi = *(int *)®isters[REGISTER_BYTE(6)]; regs.pr_edi = *(int *)®isters[REGISTER_BYTE(7)]; regs.pr_esp = *(int *)®isters[REGISTER_BYTE(14)]; regs.pr_ebp = *(int *)®isters[REGISTER_BYTE(15)]; regs.pr_eip = *(int *)®isters[REGISTER_BYTE(16)]; regs.pr_flags = *(int *)®isters[REGISTER_BYTE(17)]; for (i = 0; i < 31; i++) { regs.pr_fpa.fpa_regs[i] = *(int *)®isters[REGISTER_BYTE(FP1_REGNUM+i)]; } memcpy (regs.pr_fpu.fpu_stack[0], ®isters[REGISTER_BYTE(ST0_REGNUM)], 10); memcpy (regs.pr_fpu.fpu_stack[1], ®isters[REGISTER_BYTE(ST1_REGNUM)], 10); memcpy (regs.pr_fpu.fpu_stack[2], ®isters[REGISTER_BYTE(ST2_REGNUM)], 10); memcpy (regs.pr_fpu.fpu_stack[3], ®isters[REGISTER_BYTE(ST3_REGNUM)], 10); memcpy (regs.pr_fpu.fpu_stack[4], ®isters[REGISTER_BYTE(ST4_REGNUM)], 10); memcpy (regs.pr_fpu.fpu_stack[5], ®isters[REGISTER_BYTE(ST5_REGNUM)], 10); memcpy (regs.pr_fpu.fpu_stack[6], ®isters[REGISTER_BYTE(ST6_REGNUM)], 10); memcpy (regs.pr_fpu.fpu_stack[7], ®isters[REGISTER_BYTE(ST7_REGNUM)], 10); mptrace (XPT_WREGS, inferior_pid, (PTRACE_ARG3_TYPE) ®s, 0); } void fetch_inferior_registers (regno) int regno; { int i; struct pt_regset regs; extern char registers[]; registers_fetched (); mptrace (XPT_RREGS, inferior_pid, (PTRACE_ARG3_TYPE) ®s, 0); *(int *)®isters[REGISTER_BYTE(EAX_REGNUM)] = regs.pr_eax; *(int *)®isters[REGISTER_BYTE(EBX_REGNUM)] = regs.pr_ebx; *(int *)®isters[REGISTER_BYTE(ECX_REGNUM)] = regs.pr_ecx; *(int *)®isters[REGISTER_BYTE(EDX_REGNUM)] = regs.pr_edx; *(int *)®isters[REGISTER_BYTE(ESI_REGNUM)] = regs.pr_esi; *(int *)®isters[REGISTER_BYTE(EDI_REGNUM)] = regs.pr_edi; *(int *)®isters[REGISTER_BYTE(EBP_REGNUM)] = regs.pr_ebp; *(int *)®isters[REGISTER_BYTE(ESP_REGNUM)] = regs.pr_esp; *(int *)®isters[REGISTER_BYTE(EIP_REGNUM)] = regs.pr_eip; *(int *)®isters[REGISTER_BYTE(EFLAGS_REGNUM)] = regs.pr_flags; for (i = 0; i < FPA_NREGS; i++) { *(int *)®isters[REGISTER_BYTE(FP1_REGNUM+i)] = regs.pr_fpa.fpa_regs[i]; } memcpy (®isters[REGISTER_BYTE(ST0_REGNUM)], regs.pr_fpu.fpu_stack[0], 10); memcpy (®isters[REGISTER_BYTE(ST1_REGNUM)], regs.pr_fpu.fpu_stack[1], 10); memcpy (®isters[REGISTER_BYTE(ST2_REGNUM)], regs.pr_fpu.fpu_stack[2], 10); memcpy (®isters[REGISTER_BYTE(ST3_REGNUM)], regs.pr_fpu.fpu_stack[3], 10); memcpy (®isters[REGISTER_BYTE(ST4_REGNUM)], regs.pr_fpu.fpu_stack[4], 10); memcpy (®isters[REGISTER_BYTE(ST5_REGNUM)], regs.pr_fpu.fpu_stack[5], 10); memcpy (®isters[REGISTER_BYTE(ST6_REGNUM)], regs.pr_fpu.fpu_stack[6], 10); memcpy (®isters[REGISTER_BYTE(ST7_REGNUM)], regs.pr_fpu.fpu_stack[7], 10); } /* FIXME: This should be merged with i387-tdep.c as well. */ static print_fpu_status(ep) struct pt_regset ep; { int i; int bothstatus; int top; int fpreg; unsigned char *p; printf_unfiltered("80387:"); if (ep.pr_fpu.fpu_ip == 0) { printf_unfiltered(" not in use.\n"); return; } else { printf_unfiltered("\n"); } if (ep.pr_fpu.fpu_status != 0) { print_387_status_word (ep.pr_fpu.fpu_status); } print_387_control_word (ep.pr_fpu.fpu_control); printf_unfiltered ("last exception: "); printf_unfiltered ("opcode 0x%x; ", ep.pr_fpu.fpu_rsvd4); printf_unfiltered ("pc 0x%x:0x%x; ", ep.pr_fpu.fpu_cs, ep.pr_fpu.fpu_ip); printf_unfiltered ("operand 0x%x:0x%x\n", ep.pr_fpu.fpu_data_offset, ep.pr_fpu.fpu_op_sel); top = (ep.pr_fpu.fpu_status >> 11) & 7; printf_unfiltered ("regno tag msb lsb value\n"); for (fpreg = 7; fpreg >= 0; fpreg--) { double val; printf_unfiltered ("%s %d: ", fpreg == top ? "=>" : " ", fpreg); switch ((ep.pr_fpu.fpu_tag >> (fpreg * 2)) & 3) { case 0: printf_unfiltered ("valid "); break; case 1: printf_unfiltered ("zero "); break; case 2: printf_unfiltered ("trap "); break; case 3: printf_unfiltered ("empty "); break; } for (i = 9; i >= 0; i--) printf_unfiltered ("%02x", ep.pr_fpu.fpu_stack[fpreg][i]); i387_to_double ((char *)ep.pr_fpu.fpu_stack[fpreg], (char *)&val); printf_unfiltered (" %g\n", val); } if (ep.pr_fpu.fpu_rsvd1) warning ("rsvd1 is 0x%x\n", ep.pr_fpu.fpu_rsvd1); if (ep.pr_fpu.fpu_rsvd2) warning ("rsvd2 is 0x%x\n", ep.pr_fpu.fpu_rsvd2); if (ep.pr_fpu.fpu_rsvd3) warning ("rsvd3 is 0x%x\n", ep.pr_fpu.fpu_rsvd3); if (ep.pr_fpu.fpu_rsvd5) warning ("rsvd5 is 0x%x\n", ep.pr_fpu.fpu_rsvd5); } print_1167_control_word(pcr) unsigned int pcr; { int pcr_tmp; pcr_tmp = pcr & FPA_PCR_MODE; printf_unfiltered("\tMODE= %#x; RND= %#x ", pcr_tmp, pcr_tmp & 12); switch (pcr_tmp & 12) { case 0: printf_unfiltered("RN (Nearest Value)"); break; case 1: printf_unfiltered("RZ (Zero)"); break; case 2: printf_unfiltered("RP (Positive Infinity)"); break; case 3: printf_unfiltered("RM (Negative Infinity)"); break; } printf_unfiltered("; IRND= %d ", pcr_tmp & 2); if (0 == pcr_tmp & 2) { printf_unfiltered("(same as RND)\n"); } else { printf_unfiltered("(toward zero)\n"); } pcr_tmp = pcr & FPA_PCR_EM; printf_unfiltered("\tEM= %#x", pcr_tmp); if (pcr_tmp & FPA_PCR_EM_DM) printf_unfiltered(" DM"); if (pcr_tmp & FPA_PCR_EM_UOM) printf_unfiltered(" UOM"); if (pcr_tmp & FPA_PCR_EM_PM) printf_unfiltered(" PM"); if (pcr_tmp & FPA_PCR_EM_UM) printf_unfiltered(" UM"); if (pcr_tmp & FPA_PCR_EM_OM) printf_unfiltered(" OM"); if (pcr_tmp & FPA_PCR_EM_ZM) printf_unfiltered(" ZM"); if (pcr_tmp & FPA_PCR_EM_IM) printf_unfiltered(" IM"); printf_unfiltered("\n"); pcr_tmp = FPA_PCR_CC; printf_unfiltered("\tCC= %#x", pcr_tmp); if (pcr_tmp & FPA_PCR_20MHZ) printf_unfiltered(" 20MHZ"); if (pcr_tmp & FPA_PCR_CC_Z) printf_unfiltered(" Z"); if (pcr_tmp & FPA_PCR_CC_C2) printf_unfiltered(" C2"); /* Dynix defines FPA_PCR_CC_C0 to 0x100 and ptx defines FPA_PCR_CC_C1 to 0x100. Use whichever is defined and assume the OS knows what it is doing. */ #ifdef FPA_PCR_CC_C1 if (pcr_tmp & FPA_PCR_CC_C1) printf_unfiltered(" C1"); #else if (pcr_tmp & FPA_PCR_CC_C0) printf_unfiltered(" C0"); #endif switch (pcr_tmp) { case FPA_PCR_CC_Z: printf_unfiltered(" (Equal)"); break; #ifdef FPA_PCR_CC_C1 case FPA_PCR_CC_C1: #else case FPA_PCR_CC_C0: #endif printf_unfiltered(" (Less than)"); break; case 0: printf_unfiltered(" (Greater than)"); break; case FPA_PCR_CC_Z | #ifdef FPA_PCR_CC_C1 FPA_PCR_CC_C1 #else FPA_PCR_CC_C0 #endif | FPA_PCR_CC_C2: printf_unfiltered(" (Unordered)"); break; default: printf_unfiltered(" (Undefined)"); break; } printf_unfiltered("\n"); pcr_tmp = pcr & FPA_PCR_AE; printf_unfiltered("\tAE= %#x", pcr_tmp); if (pcr_tmp & FPA_PCR_AE_DE) printf_unfiltered(" DE"); if (pcr_tmp & FPA_PCR_AE_UOE) printf_unfiltered(" UOE"); if (pcr_tmp & FPA_PCR_AE_PE) printf_unfiltered(" PE"); if (pcr_tmp & FPA_PCR_AE_UE) printf_unfiltered(" UE"); if (pcr_tmp & FPA_PCR_AE_OE) printf_unfiltered(" OE"); if (pcr_tmp & FPA_PCR_AE_ZE) printf_unfiltered(" ZE"); if (pcr_tmp & FPA_PCR_AE_EE) printf_unfiltered(" EE"); if (pcr_tmp & FPA_PCR_AE_IE) printf_unfiltered(" IE"); printf_unfiltered("\n"); } print_1167_regs(regs) long regs[FPA_NREGS]; { int i; union { double d; long l[2]; } xd; union { float f; long l; } xf; for (i = 0; i < FPA_NREGS; i++) { xf.l = regs[i]; printf_unfiltered("%%fp%d: raw= %#x, single= %f", i+1, regs[i], xf.f); if (!(i & 1)) { printf_unfiltered("\n"); } else { xd.l[1] = regs[i]; xd.l[0] = regs[i+1]; printf_unfiltered(", double= %f\n", xd.d); } } } print_fpa_status(ep) struct pt_regset ep; { printf_unfiltered("WTL 1167:"); if (ep.pr_fpa.fpa_pcr !=0) { printf_unfiltered("\n"); print_1167_control_word(ep.pr_fpa.fpa_pcr); print_1167_regs(ep.pr_fpa.fpa_regs); } else { printf_unfiltered(" not in use.\n"); } } #if 0 /* disabled because it doesn't go through the target vector. */ i386_float_info () { char ubuf[UPAGES*NBPG]; struct pt_regset regset; if (have_inferior_p()) { PTRACE_READ_REGS (inferior_pid, (PTRACE_ARG3_TYPE) ®set); } else { int corechan = bfd_cache_lookup (core_bfd); if (lseek (corechan, 0, 0) < 0) { perror ("seek on core file"); } if (myread (corechan, ubuf, UPAGES*NBPG) < 0) { perror ("read on core file"); } /* only interested in the floating point registers */ regset.pr_fpu = ((struct user *) ubuf)->u_fpusave; regset.pr_fpa = ((struct user *) ubuf)->u_fpasave; } print_fpu_status(regset); print_fpa_status(regset); } #endif static volatile int got_sigchld; /*ARGSUSED*/ /* This will eventually be more interesting. */ void sigchld_handler(signo) int signo; { got_sigchld++; } /* * Signals for which the default action does not cause the process * to die. See for where this came from (alas, we * can't use those macros directly) */ #ifndef sigmask #define sigmask(s) (1 << ((s) - 1)) #endif #define SIGNALS_DFL_SAFE sigmask(SIGSTOP) | sigmask(SIGTSTP) | \ sigmask(SIGTTIN) | sigmask(SIGTTOU) | sigmask(SIGCHLD) | \ sigmask(SIGCONT) | sigmask(SIGWINCH) | sigmask(SIGPWR) | \ sigmask(SIGURG) | sigmask(SIGPOLL) #ifdef ATTACH_DETACH /* * Thanks to XPT_MPDEBUGGER, we have to mange child_wait(). */ int child_wait(pid, status) int pid; struct target_waitstatus *status; { int save_errno, rv, xvaloff, saoff, sa_hand; struct pt_stop pt; struct user u; sigset_t set; /* Host signal number for a signal which the inferior terminates with, or 0 if it hasn't terminated due to a signal. */ static int death_by_signal = 0; #ifdef SVR4_SHARED_LIBS /* use this to distinguish ptx 2 vs ptx 4 */ prstatus_t pstatus; #endif do { if (attach_flag) set_sigint_trap(); /* Causes SIGINT to be passed on to the attached process. */ save_errno = errno; got_sigchld = 0; sigemptyset(&set); while (got_sigchld == 0) { sigsuspend(&set); } if (attach_flag) clear_sigint_trap(); rv = mptrace(XPT_STOPSTAT, 0, (char *)&pt, 0); if (-1 == rv) { printf("XPT_STOPSTAT: errno %d\n", errno); /* DEBUG */ continue; } pid = pt.ps_pid; if (pid != inferior_pid) { /* NOTE: the mystery fork in csh/tcsh needs to be ignored. * We should not return new children for the initial run * of a process until it has done the exec. */ /* inferior probably forked; send it on its way */ rv = mptrace(XPT_UNDEBUG, pid, 0, 0); if (-1 == rv) { printf("child_wait: XPT_UNDEBUG: pid %d: %s\n", pid, safe_strerror(errno)); } continue; } /* FIXME: Do we deal with fork notification correctly? */ switch (pt.ps_reason) { case PTS_FORK: /* multi proc: treat like PTS_EXEC */ /* * Pretend this didn't happen, since gdb isn't set up * to deal with stops on fork. */ rv = ptrace(PT_CONTSIG, pid, 1, 0); if (-1 == rv) { printf("PTS_FORK: PT_CONTSIG: error %d\n", errno); } continue; case PTS_EXEC: /* * Pretend this is a SIGTRAP. */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = TARGET_SIGNAL_TRAP; break; case PTS_EXIT: /* * Note: we stop before the exit actually occurs. Extract * the exit code from the uarea. If we're stopped in the * exit() system call, the exit code will be in * u.u_ap[0]. An exit due to an uncaught signal will have * something else in here, see the comment in the default: * case, below. Finally,let the process exit. */ if (death_by_signal) { status->kind = TARGET_WAITKIND_SIGNALED; status->value.sig = target_signal_from_host (death_by_signal); death_by_signal = 0; break; } xvaloff = (unsigned long)&u.u_ap[0] - (unsigned long)&u; errno = 0; rv = ptrace(PT_RUSER, pid, (char *)xvaloff, 0); status->kind = TARGET_WAITKIND_EXITED; status->value.integer = rv; /* * addr & data to mptrace() don't matter here, since * the process is already dead. */ rv = mptrace(XPT_UNDEBUG, pid, 0, 0); if (-1 == rv) { printf("child_wait: PTS_EXIT: XPT_UNDEBUG: pid %d error %d\n", pid, errno); } break; case PTS_WATCHPT_HIT: fatal("PTS_WATCHPT_HIT\n"); break; default: /* stopped by signal */ status->kind = TARGET_WAITKIND_STOPPED; status->value.sig = target_signal_from_host (pt.ps_reason); death_by_signal = 0; if (0 == (SIGNALS_DFL_SAFE & sigmask(pt.ps_reason))) { break; } /* else default action of signal is to die */ #ifdef SVR4_SHARED_LIBS rv = ptrace(PT_GET_PRSTATUS, pid, (char *)&pstatus, 0); if (-1 == rv) error("child_wait: signal %d PT_GET_PRSTATUS: %s\n", pt.ps_reason, safe_strerror(errno)); if (pstatus.pr_cursig != pt.ps_reason) { printf("pstatus signal %d, pt signal %d\n", pstatus.pr_cursig, pt.ps_reason); } sa_hand = (int)pstatus.pr_action.sa_handler; #else saoff = (unsigned long)&u.u_sa[0] - (unsigned long)&u; saoff += sizeof(struct sigaction) * (pt.ps_reason - 1); errno = 0; sa_hand = ptrace(PT_RUSER, pid, (char *)saoff, 0); if (errno) error("child_wait: signal %d: RUSER: %s\n", pt.ps_reason, safe_strerror(errno)); #endif if ((int)SIG_DFL == sa_hand) { /* we will be dying */ death_by_signal = pt.ps_reason; } break; } } while (pid != inferior_pid); /* Some other child died or stopped */ return pid; } #else /* !ATTACH_DETACH */ /* * Simple child_wait() based on inftarg.c child_wait() for use until * the MPDEBUGGER child_wait() works properly. This will go away when * that is fixed. */ child_wait (pid, ourstatus) int pid; struct target_waitstatus *ourstatus; { int save_errno; int status; do { pid = wait (&status); save_errno = errno; if (pid == -1) { if (save_errno == EINTR) continue; fprintf (stderr, "Child process unexpectedly missing: %s.\n", safe_strerror (save_errno)); ourstatus->kind = TARGET_WAITKIND_SIGNALLED; ourstatus->value.sig = TARGET_SIGNAL_UNKNOWN; return -1; } } while (pid != inferior_pid); /* Some other child died or stopped */ store_waitstatus (ourstatus, status); return pid; } #endif /* ATTACH_DETACH */ /* This function simply calls ptrace with the given arguments. It exists so that all calls to ptrace are isolated in this machine-dependent file. */ int call_ptrace (request, pid, addr, data) int request, pid; PTRACE_ARG3_TYPE addr; int data; { return ptrace (request, pid, addr, data); } int call_mptrace(request, pid, addr, data) int request, pid; PTRACE_ARG3_TYPE addr; int data; { return mptrace(request, pid, addr, data); } #if defined (DEBUG_PTRACE) /* For the rest of the file, use an extra level of indirection */ /* This lets us breakpoint usefully on call_ptrace. */ #define ptrace call_ptrace #define mptrace call_mptrace #endif void kill_inferior () { if (inferior_pid == 0) return; /* For MPDEBUGGER, don't use PT_KILL, since the child will stop again with a PTS_EXIT. Just hit him with SIGKILL (so he stops) and detach. */ kill (inferior_pid, SIGKILL); #ifdef ATTACH_DETACH detach(SIGKILL); #else /* ATTACH_DETACH */ ptrace(PT_KILL, inferior_pid, 0, 0); wait((int *)NULL); #endif /* ATTACH_DETACH */ target_mourn_inferior (); } /* Resume execution of the inferior process. If STEP is nonzero, single-step it. If SIGNAL is nonzero, give it that signal. */ void child_resume (pid, step, signal) int pid; int step; enum target_signal signal; { errno = 0; if (pid == -1) pid = inferior_pid; /* An address of (PTRACE_ARG3_TYPE)1 tells ptrace to continue from where it was. (If GDB wanted it to start some other way, we have already written a new PC value to the child.) If this system does not support PT_SSTEP, a higher level function will have called single_step() to transmute the step request into a continue request (by setting breakpoints on all possible successor instructions), so we don't have to worry about that here. */ if (step) ptrace (PT_SSTEP, pid, (PTRACE_ARG3_TYPE) 1, signal); else ptrace (PT_CONTSIG, pid, (PTRACE_ARG3_TYPE) 1, signal); if (errno) perror_with_name ("ptrace"); } #ifdef ATTACH_DETACH /* Start debugging the process whose number is PID. */ int attach (pid) int pid; { sigset_t set; int rv; rv = mptrace(XPT_DEBUG, pid, 0, 0); if (-1 == rv) { error("mptrace(XPT_DEBUG): %s", safe_strerror(errno)); } rv = mptrace(XPT_SIGNAL, pid, 0, SIGSTOP); if (-1 == rv) { error("mptrace(XPT_SIGNAL): %s", safe_strerror(errno)); } attach_flag = 1; return pid; } void detach (signo) int signo; { int rv; rv = mptrace(XPT_UNDEBUG, inferior_pid, 1, signo); if (-1 == rv) { error("mptrace(XPT_UNDEBUG): %s", safe_strerror(errno)); } attach_flag = 0; } #endif /* ATTACH_DETACH */ /* Default the type of the ptrace transfer to int. */ #ifndef PTRACE_XFER_TYPE #define PTRACE_XFER_TYPE int #endif /* NOTE! I tried using PTRACE_READDATA, etc., to read and write memory in the NEW_SUN_PTRACE case. It ought to be straightforward. But it appears that writing did not write the data that I specified. I cannot understand where it got the data that it actually did write. */ /* Copy LEN bytes to or from inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. Copy to inferior if WRITE is nonzero. Returns the length copied, which is either the LEN argument or zero. This xfer function does not do partial moves, since child_ops doesn't allow memory operations to cross below us in the target stack anyway. */ int child_xfer_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; /* ignored */ { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & - sizeof (PTRACE_XFER_TYPE); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (PTRACE_XFER_TYPE) - 1) / sizeof (PTRACE_XFER_TYPE); /* Allocate buffer of that many longwords. */ register PTRACE_XFER_TYPE *buffer = (PTRACE_XFER_TYPE *) alloca (count * sizeof (PTRACE_XFER_TYPE)); if (write) { /* Fill start and end extra bytes of buffer with existing memory data. */ if (addr != memaddr || len < (int) sizeof (PTRACE_XFER_TYPE)) { /* Need part of initial word -- fetch it. */ buffer[0] = ptrace (PT_RTEXT, inferior_pid, (PTRACE_ARG3_TYPE) addr, 0); } if (count > 1) /* FIXME, avoid if even boundary */ { buffer[count - 1] = ptrace (PT_RTEXT, inferior_pid, ((PTRACE_ARG3_TYPE) (addr + (count - 1) * sizeof (PTRACE_XFER_TYPE))), 0); } /* Copy data to be written over corresponding part of buffer */ memcpy ((char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), myaddr, len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE)) { errno = 0; ptrace (PT_WDATA, inferior_pid, (PTRACE_ARG3_TYPE) addr, buffer[i]); if (errno) { /* Using the appropriate one (I or D) is necessary for Gould NP1, at least. */ errno = 0; ptrace (PT_WTEXT, inferior_pid, (PTRACE_ARG3_TYPE) addr, buffer[i]); } if (errno) return 0; } } else { /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE)) { errno = 0; buffer[i] = ptrace (PT_RTEXT, inferior_pid, (PTRACE_ARG3_TYPE) addr, 0); if (errno) return 0; QUIT; } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), len); } return len; } void _initialize_symm_nat () { #ifdef ATTACH_DETACH /* * the MPDEBUGGER is necessary for process tree debugging and attach * to work, but it alters the behavior of debugged processes, so other * things (at least child_wait()) will have to change to accomodate * that. * * Note that attach is not implemented in dynix 3, and not in ptx * until version 2.1 of the OS. */ int rv; sigset_t set; struct sigaction sact; rv = mptrace(XPT_MPDEBUGGER, 0, 0, 0); if (-1 == rv) { fatal("_initialize_symm_nat(): mptrace(XPT_MPDEBUGGER): %s", safe_strerror(errno)); } /* * Under MPDEBUGGER, we get SIGCLHD when a traced process does * anything of interest. */ /* * Block SIGCHLD. We leave it blocked all the time, and then * call sigsuspend() in child_wait() to wait for the child * to do something. None of these ought to fail, but check anyway. */ sigemptyset(&set); rv = sigaddset(&set, SIGCHLD); if (-1 == rv) { fatal("_initialize_symm_nat(): sigaddset(SIGCHLD): %s", safe_strerror(errno)); } rv = sigprocmask(SIG_BLOCK, &set, (sigset_t *)NULL); if (-1 == rv) { fatal("_initialize_symm_nat(): sigprocmask(SIG_BLOCK): %s", safe_strerror(errno)); } sact.sa_handler = sigchld_handler; sigemptyset(&sact.sa_mask); sact.sa_flags = SA_NOCLDWAIT; /* keep the zombies away */ rv = sigaction(SIGCHLD, &sact, (struct sigaction *)NULL); if (-1 == rv) { fatal("_initialize_symm_nat(): sigaction(SIGCHLD): %s", safe_strerror(errno)); } #endif } gdb-4.13/gdb/symm-tdep.c 666 34562 1752 5066 5546246364 13401 0ustar fnfcygnus/* Sequent Symmetry target interface, for GDB. Copyright (C) 1986, 1987, 1989, 1991, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* many 387-specific items of use taken from i386-dep.c */ #include "defs.h" #include "frame.h" #include "inferior.h" #include "symtab.h" #include #include #include #include #include #include #include "gdbcore.h" #include void symmetry_extract_return_value(type, regbuf, valbuf) struct type *type; char *regbuf; char *valbuf; { union { double d; int l[2]; } xd; struct minimal_symbol *msymbol; float f; if (TYPE_CODE_FLT == TYPE_CODE(type)) { msymbol = lookup_minimal_symbol ("1167_flt", (struct objfile *) NULL); if (msymbol != NULL) { /* found "1167_flt" means 1167, %fp2-%fp3 */ /* float & double; 19= %fp2, 20= %fp3 */ /* no single precision on 1167 */ xd.l[1] = *((int *)®buf[REGISTER_BYTE(19)]); xd.l[0] = *((int *)®buf[REGISTER_BYTE(20)]); switch (TYPE_LENGTH(type)) { case 4: /* FIXME: broken for cross-debugging. */ f = (float) xd.d; memcpy (valbuf, &f, TYPE_LENGTH(type)); break; case 8: /* FIXME: broken for cross-debugging. */ memcpy (valbuf, &xd.d, TYPE_LENGTH(type)); break; default: error("Unknown floating point size"); break; } } else { /* 387 %st(0), gcc uses this */ i387_to_double(((int *)®buf[REGISTER_BYTE(3)]), &xd.d); switch (TYPE_LENGTH(type)) { case 4: /* float */ f = (float) xd.d; /* FIXME: broken for cross-debugging. */ memcpy (valbuf, &f, 4); break; case 8: /* double */ /* FIXME: broken for cross-debugging. */ memcpy (valbuf, &xd.d, 8); break; default: error("Unknown floating point size"); break; } } } else { memcpy (valbuf, regbuf, TYPE_LENGTH (type)); } } gdb-4.13/gdb/symmisc.c 666 34562 1752 63474 5561737010 13163 0ustar fnfcygnus/* Do various things to symbol tables (other than lookup), for GDB. Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "bfd.h" #include "symfile.h" #include "objfiles.h" #include "breakpoint.h" #include "command.h" #include "obstack.h" #include "language.h" #include #ifndef DEV_TTY #define DEV_TTY "/dev/tty" #endif /* Unfortunately for debugging, stderr is usually a macro. This is painful when calling functions that take FILE *'s from the debugger. So we make a variable which has the same value and which is accessible when debugging GDB with itself. Because stdin et al need not be constants, we initialize them in the _initialize_symmisc function at the bottom of the file. */ FILE *std_in; FILE *std_out; FILE *std_err; /* Prototypes for local functions */ static void dump_symtab PARAMS ((struct objfile *, struct symtab *, GDB_FILE *)); static void dump_psymtab PARAMS ((struct objfile *, struct partial_symtab *, GDB_FILE *)); static void dump_msymbols PARAMS ((struct objfile *, GDB_FILE *)); static void dump_objfile PARAMS ((struct objfile *)); static int block_depth PARAMS ((struct block *)); static void print_partial_symbol PARAMS ((struct partial_symbol *, int, char *, GDB_FILE *)); struct print_symbol_args { struct symbol *symbol; int depth; GDB_FILE *outfile; }; static int print_symbol PARAMS ((char *)); static void free_symtab_block PARAMS ((struct objfile *, struct block *)); /* Free a struct block <- B and all the symbols defined in that block. */ static void free_symtab_block (objfile, b) struct objfile *objfile; struct block *b; { register int i, n; n = BLOCK_NSYMS (b); for (i = 0; i < n; i++) { mfree (objfile -> md, SYMBOL_NAME (BLOCK_SYM (b, i))); mfree (objfile -> md, (PTR) BLOCK_SYM (b, i)); } mfree (objfile -> md, (PTR) b); } /* Free all the storage associated with the struct symtab <- S. Note that some symtabs have contents malloc'ed structure by structure, while some have contents that all live inside one big block of memory, and some share the contents of another symbol table and so you should not free the contents on their behalf (except sometimes the linetable, which maybe per symtab even when the rest is not). It is s->free_code that says which alternative to use. */ void free_symtab (s) register struct symtab *s; { register int i, n; register struct blockvector *bv; switch (s->free_code) { case free_nothing: /* All the contents are part of a big block of memory (an obstack), and some other symtab is in charge of freeing that block. Therefore, do nothing. */ break; case free_contents: /* Here all the contents were malloc'ed structure by structure and must be freed that way. */ /* First free the blocks (and their symbols. */ bv = BLOCKVECTOR (s); n = BLOCKVECTOR_NBLOCKS (bv); for (i = 0; i < n; i++) free_symtab_block (s -> objfile, BLOCKVECTOR_BLOCK (bv, i)); /* Free the blockvector itself. */ mfree (s -> objfile -> md, (PTR) bv); /* Also free the linetable. */ case free_linetable: /* Everything will be freed either by our `free_ptr' or by some other symtab, except for our linetable. Free that now. */ if (LINETABLE (s)) mfree (s -> objfile -> md, (PTR) LINETABLE (s)); break; } /* If there is a single block of memory to free, free it. */ if (s -> free_ptr != NULL) mfree (s -> objfile -> md, s -> free_ptr); /* Free source-related stuff */ if (s -> line_charpos != NULL) mfree (s -> objfile -> md, (PTR) s -> line_charpos); if (s -> fullname != NULL) mfree (s -> objfile -> md, s -> fullname); mfree (s -> objfile -> md, (PTR) s); } #if MAINTENANCE_CMDS static void dump_objfile (objfile) struct objfile *objfile; { struct symtab *symtab; struct partial_symtab *psymtab; printf_filtered ("\nObject file %s: ", objfile -> name); printf_filtered ("Objfile at "); gdb_print_address (objfile, gdb_stdout); printf_filtered (", bfd at "); gdb_print_address (objfile->obfd, gdb_stdout); printf_filtered (", %d minsyms\n\n", objfile->minimal_symbol_count); if (objfile -> psymtabs) { printf_filtered ("Psymtabs:\n"); for (psymtab = objfile -> psymtabs; psymtab != NULL; psymtab = psymtab -> next) { printf_filtered ("%s at ", psymtab -> filename); gdb_print_address (psymtab, gdb_stdout); printf_filtered (", "); if (psymtab -> objfile != objfile) { printf_filtered ("NOT ON CHAIN! "); } wrap_here (" "); } printf_filtered ("\n\n"); } if (objfile -> symtabs) { printf_filtered ("Symtabs:\n"); for (symtab = objfile -> symtabs; symtab != NULL; symtab = symtab->next) { printf_filtered ("%s at ", symtab -> filename); gdb_print_address (symtab, gdb_stdout); printf_filtered (", "); if (symtab -> objfile != objfile) { printf_filtered ("NOT ON CHAIN! "); } wrap_here (" "); } printf_filtered ("\n\n"); } } /* Print minimal symbols from this objfile. */ static void dump_msymbols (objfile, outfile) struct objfile *objfile; GDB_FILE *outfile; { struct minimal_symbol *msymbol; int index; char ms_type; fprintf_filtered (outfile, "\nObject file %s:\n\n", objfile -> name); if (objfile -> minimal_symbol_count == 0) { fprintf_filtered (outfile, "No minimal symbols found.\n"); return; } for (index = 0, msymbol = objfile -> msymbols; SYMBOL_NAME (msymbol) != NULL; msymbol++, index++) { switch (msymbol -> type) { case mst_unknown: ms_type = 'u'; break; case mst_text: ms_type = 'T'; break; case mst_solib_trampoline: ms_type = 'S'; break; case mst_data: ms_type = 'D'; break; case mst_bss: ms_type = 'B'; break; case mst_abs: ms_type = 'A'; break; case mst_file_text: ms_type = 't'; break; case mst_file_data: ms_type = 'd'; break; case mst_file_bss: ms_type = 'b'; break; default: ms_type = '?'; break; } fprintf_filtered (outfile, "[%2d] %c %#10lx %s", index, ms_type, SYMBOL_VALUE_ADDRESS (msymbol), SYMBOL_NAME (msymbol)); if (SYMBOL_DEMANGLED_NAME (msymbol) != NULL) { fprintf_filtered (outfile, " %s", SYMBOL_DEMANGLED_NAME (msymbol)); } fputs_filtered ("\n", outfile); } if (objfile -> minimal_symbol_count != index) { warning ("internal error: minimal symbol count %d != %d", objfile -> minimal_symbol_count, index); } fprintf_filtered (outfile, "\n"); } static void dump_psymtab (objfile, psymtab, outfile) struct objfile *objfile; struct partial_symtab *psymtab; GDB_FILE *outfile; { int i; fprintf_filtered (outfile, "\nPartial symtab for source file %s ", psymtab -> filename); fprintf_filtered (outfile, "(object "); gdb_print_address (psymtab, outfile); fprintf_filtered (outfile, ")\n\n"); fprintf_unfiltered (outfile, " Read from object file %s (", objfile -> name); gdb_print_address (objfile, outfile); fprintf_unfiltered (outfile, ")\n"); if (psymtab -> readin) { fprintf_filtered (outfile, " Full symtab was read (at "); gdb_print_address (psymtab->symtab, outfile); fprintf_filtered (outfile, " by function at "); gdb_print_address ((PTR)psymtab->read_symtab, outfile); fprintf_filtered (outfile, ")\n"); } fprintf_filtered (outfile, " Relocate symbols by "); for (i = 0; i < psymtab->objfile->num_sections; ++i) { if (i != 0) fprintf_filtered (outfile, ", "); wrap_here (" "); print_address_numeric (ANOFFSET (psymtab->section_offsets, i), 1, outfile); } fprintf_filtered (outfile, "\n"); fprintf_filtered (outfile, " Symbols cover text addresses "); print_address_numeric (psymtab->textlow, 1, outfile); fprintf_filtered (outfile, "-"); print_address_numeric (psymtab->texthigh, 1, outfile); fprintf_filtered (outfile, "\n"); fprintf_filtered (outfile, " Depends on %d other partial symtabs.\n", psymtab -> number_of_dependencies); for (i = 0; i < psymtab -> number_of_dependencies; i++) { fprintf_filtered (outfile, " %d ", i); gdb_print_address (psymtab -> dependencies[i], outfile); fprintf_filtered (outfile, " %s\n", psymtab -> dependencies[i] -> filename); } if (psymtab -> n_global_syms > 0) { print_partial_symbol (objfile -> global_psymbols.list + psymtab -> globals_offset, psymtab -> n_global_syms, "Global", outfile); } if (psymtab -> n_static_syms > 0) { print_partial_symbol (objfile -> static_psymbols.list + psymtab -> statics_offset, psymtab -> n_static_syms, "Static", outfile); } fprintf_filtered (outfile, "\n"); } static void dump_symtab (objfile, symtab, outfile) struct objfile *objfile; struct symtab *symtab; GDB_FILE *outfile; { register int i, j; int len, blen; register struct linetable *l; struct blockvector *bv; register struct block *b; int depth; fprintf_filtered (outfile, "\nSymtab for file %s\n", symtab->filename); fprintf_filtered (outfile, "Read from object file %s (", objfile->name); gdb_print_address (objfile, outfile); fprintf_filtered (outfile, ")\n"); fprintf_filtered (outfile, "Language: %s\n", language_str (symtab -> language)); /* First print the line table. */ l = LINETABLE (symtab); if (l) { fprintf_filtered (outfile, "\nLine table:\n\n"); len = l->nitems; for (i = 0; i < len; i++) { fprintf_filtered (outfile, " line %d at ", l->item[i].line); print_address_numeric (l->item[i].pc, 1, outfile); fprintf_filtered (outfile, "\n"); } } /* Now print the block info. */ fprintf_filtered (outfile, "\nBlockvector:\n\n"); bv = BLOCKVECTOR (symtab); len = BLOCKVECTOR_NBLOCKS (bv); for (i = 0; i < len; i++) { b = BLOCKVECTOR_BLOCK (bv, i); depth = block_depth (b) * 2; print_spaces (depth, outfile); fprintf_filtered (outfile, "block #%03d (object ", i); gdb_print_address (b, outfile); fprintf_filtered (outfile, ") "); fprintf_filtered (outfile, "["); print_address_numeric (BLOCK_START (b), 1, outfile); fprintf_filtered (outfile, ".."); print_address_numeric (BLOCK_END (b), 1, outfile); fprintf_filtered (outfile, "]"); if (BLOCK_SUPERBLOCK (b)) { fprintf_filtered (outfile, " (under "); gdb_print_address (BLOCK_SUPERBLOCK (b), outfile); fprintf_filtered (outfile, ")"); } if (BLOCK_FUNCTION (b)) { fprintf_filtered (outfile, " %s", SYMBOL_NAME (BLOCK_FUNCTION (b))); if (SYMBOL_DEMANGLED_NAME (BLOCK_FUNCTION (b)) != NULL) { fprintf_filtered (outfile, " %s", SYMBOL_DEMANGLED_NAME (BLOCK_FUNCTION (b))); } } if (BLOCK_GCC_COMPILED(b)) fprintf_filtered (outfile, " gcc%d compiled", BLOCK_GCC_COMPILED(b)); fprintf_filtered (outfile, "\n"); blen = BLOCK_NSYMS (b); for (j = 0; j < blen; j++) { struct print_symbol_args s; s.symbol = BLOCK_SYM (b, j); s.depth = depth + 1; s.outfile = outfile; catch_errors (print_symbol, &s, "Error printing symbol:\n", RETURN_MASK_ERROR); } } fprintf_filtered (outfile, "\n"); } void maintenance_print_symbols (args, from_tty) char *args; int from_tty; { char **argv; GDB_FILE *outfile; struct cleanup *cleanups; char *symname = NULL; char *filename = DEV_TTY; struct objfile *objfile; struct symtab *s; dont_repeat (); if (args == NULL) { error ("\ Arguments missing: an output file name and an optional symbol file name"); } else if ((argv = buildargv (args)) == NULL) { nomem (0); } cleanups = make_cleanup (freeargv, (char *) argv); if (argv[0] != NULL) { filename = argv[0]; /* If a second arg is supplied, it is a source file name to match on */ if (argv[1] != NULL) { symname = argv[1]; } } filename = tilde_expand (filename); make_cleanup (free, filename); outfile = gdb_fopen (filename, FOPEN_WT); if (outfile == 0) perror_with_name (filename); make_cleanup (fclose, (char *) outfile); immediate_quit++; ALL_SYMTABS (objfile, s) if (symname == NULL || (STREQ (symname, s -> filename))) dump_symtab (objfile, s, outfile); immediate_quit--; do_cleanups (cleanups); } /* Print symbol ARGS->SYMBOL on ARGS->OUTFILE. ARGS->DEPTH says how far to indent. ARGS is really a struct print_symbol_args *, but is declared as char * to get it past catch_errors. Returns 0 for error, 1 for success. */ static int print_symbol (args) char *args; { struct symbol *symbol = ((struct print_symbol_args *)args)->symbol; int depth = ((struct print_symbol_args *)args)->depth; GDB_FILE *outfile = ((struct print_symbol_args *)args)->outfile; print_spaces (depth, outfile); if (SYMBOL_NAMESPACE (symbol) == LABEL_NAMESPACE) { fprintf_filtered (outfile, "label %s at ", SYMBOL_SOURCE_NAME (symbol)); print_address_numeric (SYMBOL_VALUE_ADDRESS (symbol), 1, outfile); fprintf_filtered (outfile, "\n"); return 1; } if (SYMBOL_NAMESPACE (symbol) == STRUCT_NAMESPACE) { if (TYPE_TAG_NAME (SYMBOL_TYPE (symbol))) { LA_PRINT_TYPE (SYMBOL_TYPE (symbol), "", outfile, 1, depth); } else { fprintf_filtered (outfile, "%s %s = ", (TYPE_CODE (SYMBOL_TYPE (symbol)) == TYPE_CODE_ENUM ? "enum" : (TYPE_CODE (SYMBOL_TYPE (symbol)) == TYPE_CODE_STRUCT ? "struct" : "union")), SYMBOL_NAME (symbol)); LA_PRINT_TYPE (SYMBOL_TYPE (symbol), "", outfile, 1, depth); } fprintf_filtered (outfile, ";\n"); } else { if (SYMBOL_CLASS (symbol) == LOC_TYPEDEF) fprintf_filtered (outfile, "typedef "); if (SYMBOL_TYPE (symbol)) { /* Print details of types, except for enums where it's clutter. */ LA_PRINT_TYPE (SYMBOL_TYPE (symbol), SYMBOL_SOURCE_NAME (symbol), outfile, TYPE_CODE (SYMBOL_TYPE (symbol)) != TYPE_CODE_ENUM, depth); fprintf_filtered (outfile, "; "); } else fprintf_filtered (outfile, "%s ", SYMBOL_SOURCE_NAME (symbol)); switch (SYMBOL_CLASS (symbol)) { case LOC_CONST: fprintf_filtered (outfile, "const %ld (0x%lx),", SYMBOL_VALUE (symbol), SYMBOL_VALUE (symbol)); break; case LOC_CONST_BYTES: fprintf_filtered (outfile, "const %u hex bytes:", TYPE_LENGTH (SYMBOL_TYPE (symbol))); { unsigned i; for (i = 0; i < TYPE_LENGTH (SYMBOL_TYPE (symbol)); i++) fprintf_filtered (outfile, " %02x", (unsigned)SYMBOL_VALUE_BYTES (symbol) [i]); fprintf_filtered (outfile, ","); } break; case LOC_STATIC: fprintf_filtered (outfile, "static at "); print_address_numeric (SYMBOL_VALUE_ADDRESS (symbol), 1,outfile); fprintf_filtered (outfile, ","); break; case LOC_REGISTER: fprintf_filtered (outfile, "register %ld,", SYMBOL_VALUE (symbol)); break; case LOC_ARG: fprintf_filtered (outfile, "arg at offset 0x%lx,", SYMBOL_VALUE (symbol)); break; case LOC_LOCAL_ARG: fprintf_filtered (outfile, "arg at offset 0x%lx from fp,", SYMBOL_VALUE (symbol)); break; case LOC_REF_ARG: fprintf_filtered (outfile, "reference arg at 0x%lx,", SYMBOL_VALUE (symbol)); break; case LOC_REGPARM: fprintf_filtered (outfile, "parameter register %ld,", SYMBOL_VALUE (symbol)); break; case LOC_REGPARM_ADDR: fprintf_filtered (outfile, "address parameter register %ld,", SYMBOL_VALUE (symbol)); break; case LOC_LOCAL: fprintf_filtered (outfile, "local at offset 0x%lx,", SYMBOL_VALUE (symbol)); break; case LOC_BASEREG: fprintf_filtered (outfile, "local at 0x%lx from register %d", SYMBOL_VALUE (symbol), SYMBOL_BASEREG (symbol)); break; case LOC_BASEREG_ARG: fprintf_filtered (outfile, "arg at 0x%lx from register %d,", SYMBOL_VALUE (symbol), SYMBOL_BASEREG (symbol)); break; case LOC_TYPEDEF: break; case LOC_LABEL: fprintf_filtered (outfile, "label at "); print_address_numeric (SYMBOL_VALUE_ADDRESS (symbol), 1, outfile); break; case LOC_BLOCK: fprintf_filtered (outfile, "block (object "); gdb_print_address (SYMBOL_BLOCK_VALUE (symbol), outfile); fprintf_filtered (outfile, ") starting at "); print_address_numeric (BLOCK_START (SYMBOL_BLOCK_VALUE (symbol)), 1, outfile); fprintf_filtered (outfile, ","); break; case LOC_OPTIMIZED_OUT: fprintf_filtered (outfile, "optimized out"); break; default: fprintf_filtered (outfile, "botched symbol class %x", SYMBOL_CLASS (symbol)); break; } } fprintf_filtered (outfile, "\n"); return 1; } void maintenance_print_psymbols (args, from_tty) char *args; int from_tty; { char **argv; GDB_FILE *outfile; struct cleanup *cleanups; char *symname = NULL; char *filename = DEV_TTY; struct objfile *objfile; struct partial_symtab *ps; dont_repeat (); if (args == NULL) { error ("print-psymbols takes an output file name and optional symbol file name"); } else if ((argv = buildargv (args)) == NULL) { nomem (0); } cleanups = make_cleanup (freeargv, (char *) argv); if (argv[0] != NULL) { filename = argv[0]; /* If a second arg is supplied, it is a source file name to match on */ if (argv[1] != NULL) { symname = argv[1]; } } filename = tilde_expand (filename); make_cleanup (free, filename); outfile = gdb_fopen (filename, FOPEN_WT); if (outfile == 0) perror_with_name (filename); make_cleanup (fclose, outfile); immediate_quit++; ALL_PSYMTABS (objfile, ps) if (symname == NULL || (STREQ (symname, ps -> filename))) dump_psymtab (objfile, ps, outfile); immediate_quit--; do_cleanups (cleanups); } static void print_partial_symbol (p, count, what, outfile) struct partial_symbol *p; int count; char *what; GDB_FILE *outfile; { fprintf_filtered (outfile, " %s partial symbols:\n", what); while (count-- > 0) { fprintf_filtered (outfile, " `%s'", SYMBOL_NAME(p)); if (SYMBOL_DEMANGLED_NAME (p) != NULL) { fprintf_filtered (outfile, " `%s'", SYMBOL_DEMANGLED_NAME (p)); } fputs_filtered (", ", outfile); switch (SYMBOL_NAMESPACE (p)) { case UNDEF_NAMESPACE: fputs_filtered ("undefined namespace, ", outfile); break; case VAR_NAMESPACE: /* This is the usual thing -- don't print it */ break; case STRUCT_NAMESPACE: fputs_filtered ("struct namespace, ", outfile); break; case LABEL_NAMESPACE: fputs_filtered ("label namespace, ", outfile); break; default: fputs_filtered (", ", outfile); break; } switch (SYMBOL_CLASS (p)) { case LOC_UNDEF: fputs_filtered ("undefined", outfile); break; case LOC_CONST: fputs_filtered ("constant int", outfile); break; case LOC_STATIC: fputs_filtered ("static", outfile); break; case LOC_REGISTER: fputs_filtered ("register", outfile); break; case LOC_ARG: fputs_filtered ("pass by value", outfile); break; case LOC_REF_ARG: fputs_filtered ("pass by reference", outfile); break; case LOC_REGPARM: fputs_filtered ("register parameter", outfile); break; case LOC_REGPARM_ADDR: fputs_filtered ("register address parameter", outfile); break; case LOC_LOCAL: fputs_filtered ("stack parameter", outfile); break; case LOC_TYPEDEF: fputs_filtered ("type", outfile); break; case LOC_LABEL: fputs_filtered ("label", outfile); break; case LOC_BLOCK: fputs_filtered ("function", outfile); break; case LOC_CONST_BYTES: fputs_filtered ("constant bytes", outfile); break; case LOC_LOCAL_ARG: fputs_filtered ("shuffled arg", outfile); break; case LOC_OPTIMIZED_OUT: fputs_filtered ("optimized out", outfile); break; default: fputs_filtered ("", outfile); break; } fputs_filtered (", ", outfile); /* FIXME-32x64: Need to use SYMBOL_VALUE_ADDRESS, etc.; this could be 32 bits when some of the other fields in the union are 64. */ fprintf_filtered (outfile, "0x%lx\n", SYMBOL_VALUE (p)); p++; } } void maintenance_print_msymbols (args, from_tty) char *args; int from_tty; { char **argv; GDB_FILE *outfile; struct cleanup *cleanups; char *filename = DEV_TTY; char *symname = NULL; struct objfile *objfile; dont_repeat (); if (args == NULL) { error ("print-msymbols takes an output file name and optional symbol file name"); } else if ((argv = buildargv (args)) == NULL) { nomem (0); } cleanups = make_cleanup (freeargv, argv); if (argv[0] != NULL) { filename = argv[0]; /* If a second arg is supplied, it is a source file name to match on */ if (argv[1] != NULL) { symname = argv[1]; } } filename = tilde_expand (filename); make_cleanup (free, filename); outfile = gdb_fopen (filename, FOPEN_WT); if (outfile == 0) perror_with_name (filename); make_cleanup (fclose, outfile); immediate_quit++; ALL_OBJFILES (objfile) if (symname == NULL || (STREQ (symname, objfile -> name))) dump_msymbols (objfile, outfile); immediate_quit--; fprintf_filtered (outfile, "\n\n"); do_cleanups (cleanups); } void maintenance_print_objfiles (ignore, from_tty) char *ignore; int from_tty; { struct objfile *objfile; dont_repeat (); immediate_quit++; ALL_OBJFILES (objfile) dump_objfile (objfile); immediate_quit--; } /* Check consistency of psymtabs and symtabs. */ void maintenance_check_symtabs (ignore, from_tty) char *ignore; int from_tty; { register struct symbol *sym; register struct partial_symbol *psym; register struct symtab *s = NULL; register struct partial_symtab *ps; struct blockvector *bv; register struct objfile *objfile; register struct block *b; int length; ALL_PSYMTABS (objfile, ps) { s = PSYMTAB_TO_SYMTAB(ps); if (s == NULL) continue; bv = BLOCKVECTOR (s); b = BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK); psym = ps->objfile->static_psymbols.list + ps->statics_offset; length = ps->n_static_syms; while (length--) { sym = lookup_block_symbol (b, SYMBOL_NAME (psym), SYMBOL_NAMESPACE (psym)); if (!sym) { printf_filtered ("Static symbol `"); puts_filtered (SYMBOL_NAME (psym)); printf_filtered ("' only found in "); puts_filtered (ps->filename); printf_filtered (" psymtab\n"); } psym++; } b = BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK); psym = ps->objfile->global_psymbols.list + ps->globals_offset; length = ps->n_global_syms; while (length--) { sym = lookup_block_symbol (b, SYMBOL_NAME (psym), SYMBOL_NAMESPACE (psym)); if (!sym) { printf_filtered ("Global symbol `"); puts_filtered (SYMBOL_NAME (psym)); printf_filtered ("' only found in "); puts_filtered (ps->filename); printf_filtered (" psymtab\n"); } psym++; } if (ps->texthigh < ps->textlow) { printf_filtered ("Psymtab "); puts_filtered (ps->filename); printf_filtered (" covers bad range "); print_address_numeric (ps->textlow, 1, stdout); printf_filtered (" - "); print_address_numeric (ps->texthigh, 1, stdout); printf_filtered ("\n"); continue; } if (ps->texthigh == 0) continue; if (ps->textlow < BLOCK_START (b) || ps->texthigh > BLOCK_END (b)) { printf_filtered ("Psymtab "); puts_filtered (ps->filename); printf_filtered (" covers "); print_address_numeric (ps->textlow, 1, stdout); printf_filtered (" - "); print_address_numeric (ps->texthigh, 1, stdout); printf_filtered (" but symtab covers only "); print_address_numeric (BLOCK_START (b), 1, stdout); printf_filtered (" - "); print_address_numeric (BLOCK_END (b), 1, stdout); printf_filtered ("\n"); } } } /* Return the nexting depth of a block within other blocks in its symtab. */ static int block_depth (block) struct block *block; { register int i = 0; while ((block = BLOCK_SUPERBLOCK (block)) != NULL) { i++; } return i; } #endif /* MAINTENANCE_CMDS */ /* Increase the space allocated for LISTP, which is probably global_psymbol_list or static_psymbol_list. This space will eventually be freed in free_objfile(). */ void extend_psymbol_list (listp, objfile) register struct psymbol_allocation_list *listp; struct objfile *objfile; { int new_size; if (listp->size == 0) { new_size = 255; listp->list = (struct partial_symbol *) xmmalloc (objfile -> md, new_size * sizeof (struct partial_symbol)); } else { new_size = listp->size * 2; listp->list = (struct partial_symbol *) xmrealloc (objfile -> md, (char *) listp->list, new_size * sizeof (struct partial_symbol)); } /* Next assumes we only went one over. Should be good if program works correctly */ listp->next = listp->list + listp->size; listp->size = new_size; } /* Do early runtime initializations. */ void _initialize_symmisc () { std_in = stdin; std_out = stdout; std_err = stderr; } gdb-4.13/gdb/symtab.c 666 34562 1752 262577 5607631426 13030 0ustar fnfcygnus/* Symbol table lookup for the GNU debugger, GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "gdbcore.h" #include "frame.h" #include "target.h" #include "value.h" #include "symfile.h" #include "objfiles.h" #include "gdbcmd.h" #include "call-cmds.h" #include "regex.h" #include "expression.h" #include "language.h" #include "demangle.h" #include #include #include #include #include #include /* Prototypes for local functions */ extern int find_methods PARAMS ((struct type *, char *, struct symbol **)); static void completion_list_add_name PARAMS ((char *, char *, int, char *, char *)); static void build_canonical_line_spec PARAMS ((struct symtab_and_line *, char *, char ***)); static struct symtabs_and_lines decode_line_2 PARAMS ((struct symbol *[], int, int, char ***)); static void rbreak_command PARAMS ((char *, int)); static void types_info PARAMS ((char *, int)); static void functions_info PARAMS ((char *, int)); static void variables_info PARAMS ((char *, int)); static void sources_info PARAMS ((char *, int)); static void list_symbols PARAMS ((char *, int, int, int)); static void output_source_filename PARAMS ((char *, int *)); static char * operator_chars PARAMS ((char *, char **)); static int find_line_common PARAMS ((struct linetable *, int, int *)); static struct partial_symbol * lookup_partial_symbol PARAMS ((struct partial_symtab *, const char *, int, enum namespace)); static struct symtab * lookup_symtab_1 PARAMS ((char *)); /* */ /* The single non-language-specific builtin type */ struct type *builtin_type_error; /* Block in which the most recently searched-for symbol was found. Might be better to make this a parameter to lookup_symbol and value_of_this. */ const struct block *block_found; char no_symtab_msg[] = "No symbol table is loaded. Use the \"file\" command."; /* While the C++ support is still in flux, issue a possibly helpful hint on using the new command completion feature on single quoted demangled C++ symbols. Remove when loose ends are cleaned up. FIXME -fnf */ void cplusplus_hint (name) char *name; { printf_filtered ("Hint: try '%s or '%s\n", name, name); printf_filtered ("(Note leading single quote.)\n"); } /* Check for a symtab of a specific name; first in symtabs, then in psymtabs. *If* there is no '/' in the name, a match after a '/' in the symtab filename will also work. */ static struct symtab * lookup_symtab_1 (name) char *name; { register struct symtab *s; register struct partial_symtab *ps; register char *slash; register struct objfile *objfile; got_symtab: /* First, search for an exact match */ ALL_SYMTABS (objfile, s) if (STREQ (name, s->filename)) return s; slash = strchr (name, '/'); /* Now, search for a matching tail (only if name doesn't have any dirs) */ if (!slash) ALL_SYMTABS (objfile, s) { char *p = s -> filename; char *tail = strrchr (p, '/'); if (tail) p = tail + 1; if (STREQ (p, name)) return s; } /* Same search rules as above apply here, but now we look thru the psymtabs. */ ps = lookup_partial_symtab (name); if (!ps) return (NULL); if (ps -> readin) error ("Internal: readin %s pst for `%s' found when no symtab found.", ps -> filename, name); s = PSYMTAB_TO_SYMTAB (ps); if (s) return s; /* At this point, we have located the psymtab for this file, but the conversion to a symtab has failed. This usually happens when we are looking up an include file. In this case, PSYMTAB_TO_SYMTAB doesn't return a symtab, even though one has been created. So, we need to run through the symtabs again in order to find the file. XXX - This is a crock, and should be fixed inside of the the symbol parsing routines. */ goto got_symtab; } /* Lookup the symbol table of a source file named NAME. Try a couple of variations if the first lookup doesn't work. */ struct symtab * lookup_symtab (name) char *name; { register struct symtab *s; #if 0 register char *copy; #endif s = lookup_symtab_1 (name); if (s) return s; #if 0 /* This screws c-exp.y:yylex if there is both a type "tree" and a symtab "tree.c". */ /* If name not found as specified, see if adding ".c" helps. */ /* Why is this? Is it just a user convenience? (If so, it's pretty questionable in the presence of C++, FORTRAN, etc.). It's not in the GDB manual. */ copy = (char *) alloca (strlen (name) + 3); strcpy (copy, name); strcat (copy, ".c"); s = lookup_symtab_1 (copy); if (s) return s; #endif /* 0 */ /* We didn't find anything; die. */ return 0; } /* Lookup the partial symbol table of a source file named NAME. *If* there is no '/' in the name, a match after a '/' in the psymtab filename will also work. */ struct partial_symtab * lookup_partial_symtab (name) char *name; { register struct partial_symtab *pst; register struct objfile *objfile; ALL_PSYMTABS (objfile, pst) { if (STREQ (name, pst -> filename)) { return (pst); } } /* Now, search for a matching tail (only if name doesn't have any dirs) */ if (!strchr (name, '/')) ALL_PSYMTABS (objfile, pst) { char *p = pst -> filename; char *tail = strrchr (p, '/'); if (tail) p = tail + 1; if (STREQ (p, name)) return (pst); } return (NULL); } /* Demangle a GDB method stub type. Note that this function is g++ specific. */ char * gdb_mangle_name (type, i, j) struct type *type; int i, j; { int mangled_name_len; char *mangled_name; struct fn_field *f = TYPE_FN_FIELDLIST1 (type, i); struct fn_field *method = &f[j]; char *field_name = TYPE_FN_FIELDLIST_NAME (type, i); char *physname = TYPE_FN_FIELD_PHYSNAME (f, j); char *newname = type_name_no_tag (type); /* Does the form of physname indicate that it is the full mangled name of a constructor (not just the args)? */ int is_full_physname_constructor; int is_constructor; int is_destructor = DESTRUCTOR_PREFIX_P (physname); /* Need a new type prefix. */ char *const_prefix = method->is_const ? "C" : ""; char *volatile_prefix = method->is_volatile ? "V" : ""; char buf[20]; int len = (newname == NULL ? 0 : strlen (newname)); is_full_physname_constructor = ((physname[0]=='_' && physname[1]=='_' && (isdigit(physname[2]) || physname[2]=='Q' || physname[2]=='t')) || (strncmp(physname, "__ct", 4) == 0)); is_constructor = is_full_physname_constructor || (newname && STREQ(field_name, newname)); if (!is_destructor) is_destructor = (strncmp(physname, "__dt", 4) == 0); #ifndef GCC_MANGLE_BUG if (is_destructor || is_full_physname_constructor) { mangled_name = (char*) xmalloc(strlen(physname)+1); strcpy(mangled_name, physname); return mangled_name; } if (len == 0) { sprintf (buf, "__%s%s", const_prefix, volatile_prefix); if (strcmp(buf, "__") == 0) buf[0] = '\0'; } else { sprintf (buf, "__%s%s%d", const_prefix, volatile_prefix, len); } mangled_name_len = ((is_constructor ? 0 : strlen (field_name)) + strlen (buf) + len + strlen (physname) + 1); /* Only needed for GNU-mangled names. ANSI-mangled names work with the normal mechanisms. */ if (OPNAME_PREFIX_P (field_name)) { char *opname = cplus_mangle_opname (field_name + 3, 0); if (opname == NULL) error ("No mangling for \"%s\"", field_name); mangled_name_len += strlen (opname); mangled_name = (char *)xmalloc (mangled_name_len); strncpy (mangled_name, field_name, 3); mangled_name[3] = '\0'; strcat (mangled_name, opname); } else { mangled_name = (char *)xmalloc (mangled_name_len); if (is_constructor) mangled_name[0] = '\0'; else strcpy (mangled_name, field_name); } strcat (mangled_name, buf); /* If the class doesn't have a name, i.e. newname NULL, then we just mangle it using 0 for the length of the class. Thus it gets mangled as something starting with `::' rather than `classname::'. */ if (newname != NULL) strcat (mangled_name, newname); #else if (is_constructor) { buf[0] = '\0'; } else { sprintf (buf, "__%s%s", const_prefix, volatile_prefix); } mangled_name_len = ((is_constructor ? 0 : strlen (field_name)) + strlen (buf) + strlen (physname) + 1); /* Only needed for GNU-mangled names. ANSI-mangled names work with the normal mechanisms. */ if (OPNAME_PREFIX_P (field_name)) { char *opname; opname = cplus_mangle_opname (field_name + 3, 0); if (opname == NULL) { error ("No mangling for \"%s\"", field_name); } mangled_name_len += strlen (opname); mangled_name = (char *) xmalloc (mangled_name_len); strncpy (mangled_name, field_name, 3); strcpy (mangled_name + 3, opname); } else { mangled_name = (char *) xmalloc (mangled_name_len); if (is_constructor) { mangled_name[0] = '\0'; } else { strcpy (mangled_name, field_name); } } strcat (mangled_name, buf); #endif strcat (mangled_name, physname); return (mangled_name); } /* Find which partial symtab on contains PC. Return 0 if none. */ struct partial_symtab * find_pc_psymtab (pc) register CORE_ADDR pc; { register struct partial_symtab *pst; register struct objfile *objfile; ALL_PSYMTABS (objfile, pst) { if (pc >= pst->textlow && pc < pst->texthigh) return (pst); } return (NULL); } /* Find which partial symbol within a psymtab contains PC. Return 0 if none. Check all psymtabs if PSYMTAB is 0. */ struct partial_symbol * find_pc_psymbol (psymtab, pc) struct partial_symtab *psymtab; CORE_ADDR pc; { struct partial_symbol *best = NULL, *p; CORE_ADDR best_pc; if (!psymtab) psymtab = find_pc_psymtab (pc); if (!psymtab) return 0; best_pc = psymtab->textlow - 1; /* Search the global symbols as well as the static symbols, so that find_pc_partial_function doesn't use a minimal symbol and thus cache a bad endaddr. */ for (p = psymtab->objfile->global_psymbols.list + psymtab->globals_offset; (p - (psymtab->objfile->global_psymbols.list + psymtab->globals_offset) < psymtab->n_global_syms); p++) if (SYMBOL_NAMESPACE (p) == VAR_NAMESPACE && SYMBOL_CLASS (p) == LOC_BLOCK && pc >= SYMBOL_VALUE_ADDRESS (p) && SYMBOL_VALUE_ADDRESS (p) > best_pc) { best_pc = SYMBOL_VALUE_ADDRESS (p); best = p; } for (p = psymtab->objfile->static_psymbols.list + psymtab->statics_offset; (p - (psymtab->objfile->static_psymbols.list + psymtab->statics_offset) < psymtab->n_static_syms); p++) if (SYMBOL_NAMESPACE (p) == VAR_NAMESPACE && SYMBOL_CLASS (p) == LOC_BLOCK && pc >= SYMBOL_VALUE_ADDRESS (p) && SYMBOL_VALUE_ADDRESS (p) > best_pc) { best_pc = SYMBOL_VALUE_ADDRESS (p); best = p; } if (best_pc == psymtab->textlow - 1) return 0; return best; } /* Find the definition for a specified symbol name NAME in namespace NAMESPACE, visible from lexical block BLOCK. Returns the struct symbol pointer, or zero if no symbol is found. If SYMTAB is non-NULL, store the symbol table in which the symbol was found there, or NULL if not found. C++: if IS_A_FIELD_OF_THIS is nonzero on entry, check to see if NAME is a field of the current implied argument `this'. If so set *IS_A_FIELD_OF_THIS to 1, otherwise set it to zero. BLOCK_FOUND is set to the block in which NAME is found (in the case of a field of `this', value_of_this sets BLOCK_FOUND to the proper value.) */ /* This function has a bunch of loops in it and it would seem to be attractive to put in some QUIT's (though I'm not really sure whether it can run long enough to be really important). But there are a few calls for which it would appear to be bad news to quit out of here: find_proc_desc in alpha-tdep.c and mips-tdep.c, and nindy_frame_chain_valid in nindy-tdep.c. (Note that there is C++ code below which can error(), but that probably doesn't affect these calls since they are looking for a known variable and thus can probably assume it will never hit the C++ code). */ struct symbol * lookup_symbol (name, block, namespace, is_a_field_of_this, symtab) const char *name; register const struct block *block; const enum namespace namespace; int *is_a_field_of_this; struct symtab **symtab; { register struct symbol *sym; register struct symtab *s = NULL; register struct partial_symtab *ps; struct blockvector *bv; register struct objfile *objfile; register struct block *b; register struct minimal_symbol *msymbol; /* Search specified block and its superiors. */ while (block != 0) { sym = lookup_block_symbol (block, name, namespace); if (sym) { block_found = block; if (symtab != NULL) { /* Search the list of symtabs for one which contains the address of the start of this block. */ ALL_SYMTABS (objfile, s) { bv = BLOCKVECTOR (s); b = BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK); if (BLOCK_START (b) <= BLOCK_START (block) && BLOCK_END (b) > BLOCK_START (block)) goto found; } found: *symtab = s; } return (sym); } block = BLOCK_SUPERBLOCK (block); } /* FIXME: this code is never executed--block is always NULL at this point. What is it trying to do, anyway? We already should have checked the STATIC_BLOCK above (it is the superblock of top-level blocks). Why is VAR_NAMESPACE special-cased? */ /* Don't need to mess with the psymtabs; if we have a block, that file is read in. If we don't, then we deal later with all the psymtab stuff that needs checking. */ if (namespace == VAR_NAMESPACE && block != NULL) { struct block *b; /* Find the right symtab. */ ALL_SYMTABS (objfile, s) { bv = BLOCKVECTOR (s); b = BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK); if (BLOCK_START (b) <= BLOCK_START (block) && BLOCK_END (b) > BLOCK_START (block)) { sym = lookup_block_symbol (b, name, VAR_NAMESPACE); if (sym) { block_found = b; if (symtab != NULL) *symtab = s; return sym; } } } } /* C++: If requested to do so by the caller, check to see if NAME is a field of `this'. */ if (is_a_field_of_this) { struct value *v = value_of_this (0); *is_a_field_of_this = 0; if (v && check_field (v, name)) { *is_a_field_of_this = 1; if (symtab != NULL) *symtab = NULL; return 0; } } /* Now search all global blocks. Do the symtab's first, then check the psymtab's */ ALL_SYMTABS (objfile, s) { bv = BLOCKVECTOR (s); block = BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK); sym = lookup_block_symbol (block, name, namespace); if (sym) { block_found = block; if (symtab != NULL) *symtab = s; return sym; } } /* Check for the possibility of the symbol being a global function that is stored in one of the minimal symbol tables. Eventually, all global symbols might be resolved in this way. */ if (namespace == VAR_NAMESPACE) { msymbol = lookup_minimal_symbol (name, (struct objfile *) NULL); if (msymbol != NULL) { s = find_pc_symtab (SYMBOL_VALUE_ADDRESS (msymbol)); /* If S is NULL, there are no debug symbols for this file. Skip this stuff and check for matching static symbols below. */ if (s != NULL) { bv = BLOCKVECTOR (s); block = BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK); sym = lookup_block_symbol (block, SYMBOL_NAME (msymbol), namespace); /* We kept static functions in minimal symbol table as well as in static scope. We want to find them in the symbol table. */ if (!sym) { block = BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK); sym = lookup_block_symbol (block, SYMBOL_NAME (msymbol), namespace); } /* sym == 0 if symbol was found in the minimal symbol table but not in the symtab. Return 0 to use the msymbol definition of "foo_". This happens for Fortran "foo_" symbols, which are "foo" in the symtab. This can also happen if "asm" is used to make a regular symbol but not a debugging symbol, e.g. asm(".globl _main"); asm("_main:"); */ if (symtab != NULL) *symtab = s; return sym; } } } ALL_PSYMTABS (objfile, ps) { if (!ps->readin && lookup_partial_symbol (ps, name, 1, namespace)) { s = PSYMTAB_TO_SYMTAB(ps); bv = BLOCKVECTOR (s); block = BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK); sym = lookup_block_symbol (block, name, namespace); if (!sym) error ("Internal: global symbol `%s' found in %s psymtab but not in symtab", name, ps->filename); if (symtab != NULL) *symtab = s; return sym; } } /* Now search all per-file blocks. Not strictly correct, but more useful than an error. Do the symtabs first, then check the psymtabs */ ALL_SYMTABS (objfile, s) { bv = BLOCKVECTOR (s); block = BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK); sym = lookup_block_symbol (block, name, namespace); if (sym) { block_found = block; if (symtab != NULL) *symtab = s; return sym; } } ALL_PSYMTABS (objfile, ps) { if (!ps->readin && lookup_partial_symbol (ps, name, 0, namespace)) { s = PSYMTAB_TO_SYMTAB(ps); bv = BLOCKVECTOR (s); block = BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK); sym = lookup_block_symbol (block, name, namespace); if (!sym) error ("Internal: static symbol `%s' found in %s psymtab but not in symtab", name, ps->filename); if (symtab != NULL) *symtab = s; return sym; } } /* Now search all per-file blocks for static mangled symbols. Do the symtabs first, then check the psymtabs. */ if (namespace == VAR_NAMESPACE) { ALL_SYMTABS (objfile, s) { bv = BLOCKVECTOR (s); block = BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK); sym = lookup_block_symbol (block, name, VAR_NAMESPACE); if (sym) { block_found = block; if (symtab != NULL) *symtab = s; return sym; } } ALL_PSYMTABS (objfile, ps) { if (!ps->readin && lookup_partial_symbol (ps, name, 0, VAR_NAMESPACE)) { s = PSYMTAB_TO_SYMTAB(ps); bv = BLOCKVECTOR (s); block = BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK); sym = lookup_block_symbol (block, name, VAR_NAMESPACE); if (!sym) error ("Internal: mangled static symbol `%s' found in %s psymtab but not in symtab", name, ps->filename); if (symtab != NULL) *symtab = s; return sym; } } } if (symtab != NULL) *symtab = NULL; return 0; } /* Look, in partial_symtab PST, for symbol NAME. Check the global symbols if GLOBAL, the static symbols if not */ static struct partial_symbol * lookup_partial_symbol (pst, name, global, namespace) struct partial_symtab *pst; const char *name; int global; enum namespace namespace; { struct partial_symbol *start, *psym; struct partial_symbol *top, *bottom, *center; int length = (global ? pst->n_global_syms : pst->n_static_syms); int do_linear_search = 1; if (length == 0) { return (NULL); } start = (global ? pst->objfile->global_psymbols.list + pst->globals_offset : pst->objfile->static_psymbols.list + pst->statics_offset ); if (global) /* This means we can use a binary search. */ { do_linear_search = 0; /* Binary search. This search is guaranteed to end with center pointing at the earliest partial symbol with the correct name. At that point *all* partial symbols with that name will be checked against the correct namespace. */ bottom = start; top = start + length - 1; while (top > bottom) { center = bottom + (top - bottom) / 2; if (!(center < top)) abort (); if (!do_linear_search && SYMBOL_LANGUAGE (center) == language_cplus) { do_linear_search = 1; } if (STRCMP (SYMBOL_NAME (center), name) >= 0) { top = center; } else { bottom = center + 1; } } if (!(top == bottom)) abort (); while (STREQ (SYMBOL_NAME (top), name)) { if (SYMBOL_NAMESPACE (top) == namespace) { return top; } top ++; } } /* Can't use a binary search or else we found during the binary search that we should also do a linear search. */ if (do_linear_search) { for (psym = start; psym < start + length; psym++) { if (namespace == SYMBOL_NAMESPACE (psym)) { if (SYMBOL_MATCHES_NAME (psym, name)) { return (psym); } } } } return (NULL); } /* Find the psymtab containing main(). */ /* FIXME: What about languages without main() or specially linked executables that have no main() ? */ struct partial_symtab * find_main_psymtab () { register struct partial_symtab *pst; register struct objfile *objfile; ALL_PSYMTABS (objfile, pst) { if (lookup_partial_symbol (pst, "main", 1, VAR_NAMESPACE)) { return (pst); } } return (NULL); } /* Search BLOCK for symbol NAME in NAMESPACE. Note that if NAME is the demangled form of a C++ symbol, we will fail to find a match during the binary search of the non-encoded names, but for now we don't worry about the slight inefficiency of looking for a match we'll never find, since it will go pretty quick. Once the binary search terminates, we drop through and do a straight linear search on the symbols. Each symbol which is marked as being a C++ symbol (language_cplus set) has both the encoded and non-encoded names tested for a match. */ struct symbol * lookup_block_symbol (block, name, namespace) register const struct block *block; const char *name; const enum namespace namespace; { register int bot, top, inc; register struct symbol *sym; register struct symbol *sym_found = NULL; register int do_linear_search = 1; /* If the blocks's symbols were sorted, start with a binary search. */ if (BLOCK_SHOULD_SORT (block)) { /* Reset the linear search flag so if the binary search fails, we won't do the linear search once unless we find some reason to do so, such as finding a C++ symbol during the binary search. Note that for C++ modules, ALL the symbols in a block should end up marked as C++ symbols. */ do_linear_search = 0; top = BLOCK_NSYMS (block); bot = 0; /* Advance BOT to not far before the first symbol whose name is NAME. */ while (1) { inc = (top - bot + 1); /* No need to keep binary searching for the last few bits worth. */ if (inc < 4) { break; } inc = (inc >> 1) + bot; sym = BLOCK_SYM (block, inc); if (!do_linear_search && SYMBOL_LANGUAGE (sym) == language_cplus) { do_linear_search = 1; } if (SYMBOL_NAME (sym)[0] < name[0]) { bot = inc; } else if (SYMBOL_NAME (sym)[0] > name[0]) { top = inc; } else if (STRCMP (SYMBOL_NAME (sym), name) < 0) { bot = inc; } else { top = inc; } } /* Now scan forward until we run out of symbols, find one whose name is greater than NAME, or find one we want. If there is more than one symbol with the right name and namespace, we return the first one; I believe it is now impossible for us to encounter two symbols with the same name and namespace here, because blocks containing argument symbols are no longer sorted. */ top = BLOCK_NSYMS (block); while (bot < top) { sym = BLOCK_SYM (block, bot); inc = SYMBOL_NAME (sym)[0] - name[0]; if (inc == 0) { inc = STRCMP (SYMBOL_NAME (sym), name); } if (inc == 0 && SYMBOL_NAMESPACE (sym) == namespace) { return (sym); } if (inc > 0) { break; } bot++; } } /* Here if block isn't sorted, or we fail to find a match during the binary search above. If during the binary search above, we find a symbol which is a C++ symbol, then we have re-enabled the linear search flag which was reset when starting the binary search. This loop is equivalent to the loop above, but hacked greatly for speed. Note that parameter symbols do not always show up last in the list; this loop makes sure to take anything else other than parameter symbols first; it only uses parameter symbols as a last resort. Note that this only takes up extra computation time on a match. */ if (do_linear_search) { top = BLOCK_NSYMS (block); bot = 0; while (bot < top) { sym = BLOCK_SYM (block, bot); if (SYMBOL_NAMESPACE (sym) == namespace && SYMBOL_MATCHES_NAME (sym, name)) { sym_found = sym; if (SYMBOL_CLASS (sym) != LOC_ARG && SYMBOL_CLASS (sym) != LOC_LOCAL_ARG && SYMBOL_CLASS (sym) != LOC_REF_ARG && SYMBOL_CLASS (sym) != LOC_REGPARM && SYMBOL_CLASS (sym) != LOC_REGPARM_ADDR && SYMBOL_CLASS (sym) != LOC_BASEREG_ARG) { break; } } bot++; } } return (sym_found); /* Will be NULL if not found. */ } /* Return the symbol for the function which contains a specified lexical block, described by a struct block BL. */ struct symbol * block_function (bl) struct block *bl; { while (BLOCK_FUNCTION (bl) == 0 && BLOCK_SUPERBLOCK (bl) != 0) bl = BLOCK_SUPERBLOCK (bl); return BLOCK_FUNCTION (bl); } /* Find the symtab associated with PC. Look through the psymtabs and read in another symtab if necessary. */ struct symtab * find_pc_symtab (pc) register CORE_ADDR pc; { register struct block *b; struct blockvector *bv; register struct symtab *s = NULL; register struct symtab *best_s = NULL; register struct partial_symtab *ps; register struct objfile *objfile; int distance = 0; /* Search all symtabs for the one whose file contains our address, and which is the smallest of all the ones containing the address. This is designed to deal with a case like symtab a is at 0x1000-0x2000 and 0x3000-0x4000 and symtab b is at 0x2000-0x3000. So the GLOBAL_BLOCK for a is from 0x1000-0x4000, but for address 0x2345 we want to return symtab b. This is said to happen for the mips; it might be swifter to create several symtabs with the same name like xcoff does (I'm not sure). */ ALL_SYMTABS (objfile, s) { bv = BLOCKVECTOR (s); b = BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK); if (BLOCK_START (b) <= pc && BLOCK_END (b) > pc && (distance == 0 || BLOCK_END (b) - BLOCK_START (b) < distance)) { distance = BLOCK_END (b) - BLOCK_START (b); best_s = s; } } if (best_s != NULL) return(best_s); s = NULL; ps = find_pc_psymtab (pc); if (ps) { if (ps->readin) /* Might want to error() here (in case symtab is corrupt and will cause a core dump), but maybe we can successfully continue, so let's not. */ /* FIXME-32x64: assumes pc fits in a long */ warning ("\ (Internal error: pc 0x%lx in read in psymtab, but not in symtab.)\n", (unsigned long) pc); s = PSYMTAB_TO_SYMTAB (ps); } return (s); } #if 0 /* Find the closest symbol value (of any sort -- function or variable) for a given address value. Slow but complete. (currently unused, mainly because it is too slow. We could fix it if each symtab and psymtab had contained in it the addresses ranges of each of its sections, which also would be required to make things like "info line *0x2345" cause psymtabs to be converted to symtabs). */ struct symbol * find_addr_symbol (addr, symtabp, symaddrp) CORE_ADDR addr; struct symtab **symtabp; CORE_ADDR *symaddrp; { struct symtab *symtab, *best_symtab; struct objfile *objfile; register int bot, top; register struct symbol *sym; register CORE_ADDR sym_addr; struct block *block; int blocknum; /* Info on best symbol seen so far */ register CORE_ADDR best_sym_addr = 0; struct symbol *best_sym = 0; /* FIXME -- we should pull in all the psymtabs, too! */ ALL_SYMTABS (objfile, symtab) { /* Search the global and static blocks in this symtab for the closest symbol-address to the desired address. */ for (blocknum = GLOBAL_BLOCK; blocknum <= STATIC_BLOCK; blocknum++) { QUIT; block = BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab), blocknum); top = BLOCK_NSYMS (block); for (bot = 0; bot < top; bot++) { sym = BLOCK_SYM (block, bot); switch (SYMBOL_CLASS (sym)) { case LOC_STATIC: case LOC_LABEL: sym_addr = SYMBOL_VALUE_ADDRESS (sym); break; case LOC_BLOCK: sym_addr = BLOCK_START (SYMBOL_BLOCK_VALUE (sym)); break; default: continue; } if (sym_addr <= addr) if (sym_addr > best_sym_addr) { /* Quit if we found an exact match. */ best_sym = sym; best_sym_addr = sym_addr; best_symtab = symtab; if (sym_addr == addr) goto done; } } } } done: if (symtabp) *symtabp = best_symtab; if (symaddrp) *symaddrp = best_sym_addr; return best_sym; } #endif /* 0 */ /* Find the source file and line number for a given PC value. Return a structure containing a symtab pointer, a line number, and a pc range for the entire source line. The value's .pc field is NOT the specified pc. NOTCURRENT nonzero means, if specified pc is on a line boundary, use the line that ends there. Otherwise, in that case, the line that begins there is used. */ /* The big complication here is that a line may start in one file, and end just before the start of another file. This usually occurs when you #include code in the middle of a subroutine. To properly find the end of a line's PC range, we must search all symtabs associated with this compilation unit, and find the one whose first PC is closer than that of the next line in this symtab. */ /* If it's worth the effort, we could be using a binary search. */ struct symtab_and_line find_pc_line (pc, notcurrent) CORE_ADDR pc; int notcurrent; { struct symtab *s; register struct linetable *l; register int len; register int i; register struct linetable_entry *item; struct symtab_and_line val; struct blockvector *bv; /* Info on best line seen so far, and where it starts, and its file. */ struct linetable_entry *best = NULL; CORE_ADDR best_end = 0; struct symtab *best_symtab = 0; /* Store here the first line number of a file which contains the line at the smallest pc after PC. If we don't find a line whose range contains PC, we will use a line one less than this, with a range from the start of that file to the first line's pc. */ struct linetable_entry *alt = NULL; struct symtab *alt_symtab = 0; /* Info on best line seen in this file. */ struct linetable_entry *prev; /* If this pc is not from the current frame, it is the address of the end of a call instruction. Quite likely that is the start of the following statement. But what we want is the statement containing the instruction. Fudge the pc to make sure we get that. */ if (notcurrent) pc -= 1; s = find_pc_symtab (pc); if (!s) { val.symtab = 0; val.line = 0; val.pc = pc; val.end = 0; return val; } bv = BLOCKVECTOR (s); /* Look at all the symtabs that share this blockvector. They all have the same apriori range, that we found was right; but they have different line tables. */ for (; s && BLOCKVECTOR (s) == bv; s = s->next) { /* Find the best line in this symtab. */ l = LINETABLE (s); if (!l) continue; len = l->nitems; if (len <= 0) { /* I think len can be zero if the symtab lacks line numbers (e.g. gcc -g1). (Either that or the LINETABLE is NULL; I'm not sure which, and maybe it depends on the symbol reader). */ continue; } prev = NULL; item = l->item; /* Get first line info */ /* Is this file's first line closer than the first lines of other files? If so, record this file, and its first line, as best alternate. */ if (item->pc > pc && (!alt || item->pc < alt->pc)) { alt = item; alt_symtab = s; } for (i = 0; i < len; i++, item++) { /* Return the last line that did not start after PC. */ if (item->pc > pc) break; prev = item; } /* At this point, prev points at the line whose start addr is <= pc, and item points at the next line. If we ran off the end of the linetable (pc >= start of the last line), then prev == item. If pc < start of the first line, prev will not be set. */ /* Is this file's best line closer than the best in the other files? If so, record this file, and its best line, as best so far. */ if (prev && (!best || prev->pc > best->pc)) { best = prev; best_symtab = s; /* If another line is in the linetable, and its PC is closer than the best_end we currently have, take it as best_end. */ if (i < len && (best_end == 0 || best_end > item->pc)) best_end = item->pc; } } if (!best_symtab) { if (!alt_symtab) { /* If we didn't find any line # info, just return zeros. */ val.symtab = 0; val.line = 0; val.pc = pc; val.end = 0; } else { val.symtab = alt_symtab; val.line = alt->line - 1; val.pc = BLOCK_END (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK)); val.end = alt->pc; } } else { val.symtab = best_symtab; val.line = best->line; val.pc = best->pc; if (best_end && (!alt || best_end < alt->pc)) val.end = best_end; else if (alt) val.end = alt->pc; else val.end = BLOCK_END (BLOCKVECTOR_BLOCK (bv, GLOBAL_BLOCK)); } return val; } static int find_line_symtab PARAMS ((struct symtab *, int, struct linetable **, int *, int *)); /* Find line number LINE in any symtab whose name is the same as SYMTAB. If found, return 1, set *LINETABLE to the linetable in which it was found, set *INDEX to the index in the linetable of the best entry found, and set *EXACT_MATCH nonzero if the value returned is an exact match. If not found, return 0. */ static int find_line_symtab (symtab, line, linetable, index, exact_match) struct symtab *symtab; int line; struct linetable **linetable; int *index; int *exact_match; { int exact; /* BEST_INDEX and BEST_LINETABLE identify the smallest linenumber > LINE so far seen. */ int best_index; struct linetable *best_linetable; /* First try looking it up in the given symtab. */ best_linetable = LINETABLE (symtab); best_index = find_line_common (best_linetable, line, &exact); if (best_index < 0 || !exact) { /* Didn't find an exact match. So we better keep looking for another symtab with the same name. In the case of xcoff, multiple csects for one source file (produced by IBM's FORTRAN compiler) produce multiple symtabs (this is unavoidable assuming csects can be at arbitrary places in memory and that the GLOBAL_BLOCK of a symtab has a begin and end address). */ /* BEST is the smallest linenumber > LINE so far seen, or 0 if none has been seen so far. BEST_INDEX and BEST_LINETABLE identify the item for it. */ int best; struct objfile *objfile; struct symtab *s; if (best_index >= 0) best = best_linetable->item[best_index].line; else best = 0; ALL_SYMTABS (objfile, s) { struct linetable *l; int ind; if (!STREQ (symtab->filename, s->filename)) continue; l = LINETABLE (s); ind = find_line_common (l, line, &exact); if (ind >= 0) { if (exact) { best_index = ind; best_linetable = l; goto done; } if (best == 0 || l->item[ind].line < best) { best = l->item[ind].line; best_index = ind; best_linetable = l; } } } } done: if (best_index < 0) return 0; if (index) *index = best_index; if (linetable) *linetable = best_linetable; if (exact_match) *exact_match = exact; return 1; } /* Find the PC value for a given source file and line number. Returns zero for invalid line number. The source file is specified with a struct symtab. */ CORE_ADDR find_line_pc (symtab, line) struct symtab *symtab; int line; { struct linetable *l; int ind; if (symtab == 0) return 0; if (find_line_symtab (symtab, line, &l, &ind, NULL)) return l->item[ind].pc; else return 0; } /* Find the range of pc values in a line. Store the starting pc of the line into *STARTPTR and the ending pc (start of next line) into *ENDPTR. Returns 1 to indicate success. Returns 0 if could not find the specified line. */ int find_line_pc_range (sal, startptr, endptr) struct symtab_and_line sal; CORE_ADDR *startptr, *endptr; { CORE_ADDR startaddr; struct symtab_and_line found_sal; startaddr = sal.pc; if (startaddr == 0) { startaddr = find_line_pc (sal.symtab, sal.line); } if (startaddr == 0) return 0; /* This whole function is based on address. For example, if line 10 has two parts, one from 0x100 to 0x200 and one from 0x300 to 0x400, then "info line *0x123" should say the line goes from 0x100 to 0x200 and "info line *0x355" should say the line goes from 0x300 to 0x400. This also insures that we never give a range like "starts at 0x134 and ends at 0x12c". */ found_sal = find_pc_line (startaddr, 0); if (found_sal.line != sal.line) { /* The specified line (sal) has zero bytes. */ *startptr = found_sal.pc; *endptr = found_sal.pc; } else { *startptr = found_sal.pc; *endptr = found_sal.end; } return 1; } /* Given a line table and a line number, return the index into the line table for the pc of the nearest line whose number is >= the specified one. Return -1 if none is found. The value is >= 0 if it is an index. Set *EXACT_MATCH nonzero if the value returned is an exact match. */ static int find_line_common (l, lineno, exact_match) register struct linetable *l; register int lineno; int *exact_match; { register int i; register int len; /* BEST is the smallest linenumber > LINENO so far seen, or 0 if none has been seen so far. BEST_INDEX identifies the item for it. */ int best_index = -1; int best = 0; if (lineno <= 0) return -1; if (l == 0) return -1; len = l->nitems; for (i = 0; i < len; i++) { register struct linetable_entry *item = &(l->item[i]); if (item->line == lineno) { /* Return the first (lowest address) entry which matches. */ *exact_match = 1; return i; } if (item->line > lineno && (best == 0 || item->line < best)) { best = item->line; best_index = i; } } /* If we got here, we didn't get an exact match. */ *exact_match = 0; return best_index; } int find_pc_line_pc_range (pc, startptr, endptr) CORE_ADDR pc; CORE_ADDR *startptr, *endptr; { struct symtab_and_line sal; sal = find_pc_line (pc, 0); *startptr = sal.pc; *endptr = sal.end; return sal.symtab != 0; } /* Given a function symbol SYM, find the symtab and line for the start of the function. If the argument FUNFIRSTLINE is nonzero, we want the first line of real code inside the function. */ static struct symtab_and_line find_function_start_sal PARAMS ((struct symbol *sym, int)); static struct symtab_and_line find_function_start_sal (sym, funfirstline) struct symbol *sym; int funfirstline; { CORE_ADDR pc; struct symtab_and_line sal; pc = BLOCK_START (SYMBOL_BLOCK_VALUE (sym)); if (funfirstline) { pc += FUNCTION_START_OFFSET; SKIP_PROLOGUE (pc); } sal = find_pc_line (pc, 0); #ifdef PROLOGUE_FIRSTLINE_OVERLAP /* Convex: no need to suppress code on first line, if any */ sal.pc = pc; #else /* Check if SKIP_PROLOGUE left us in mid-line, and the next line is still part of the same function. */ if (sal.pc != pc && BLOCK_START (SYMBOL_BLOCK_VALUE (sym)) <= sal.end && sal.end < BLOCK_END (SYMBOL_BLOCK_VALUE (sym))) { /* First pc of next line */ pc = sal.end; /* Recalculate the line number (might not be N+1). */ sal = find_pc_line (pc, 0); } sal.pc = pc; #endif return sal; } /* If P is of the form "operator[ \t]+..." where `...' is some legitimate operator text, return a pointer to the beginning of the substring of the operator text. Otherwise, return "". */ static char * operator_chars (p, end) char *p; char **end; { *end = ""; if (strncmp (p, "operator", 8)) return *end; p += 8; /* Don't get faked out by `operator' being part of a longer identifier. */ if (isalpha(*p) || *p == '_' || *p == '$' || *p == '\0') return *end; /* Allow some whitespace between `operator' and the operator symbol. */ while (*p == ' ' || *p == '\t') p++; /* Recognize 'operator TYPENAME'. */ if (isalpha(*p) || *p == '_' || *p == '$') { register char *q = p+1; while (isalnum(*q) || *q == '_' || *q == '$') q++; *end = q; return p; } switch (*p) { case '!': case '=': case '*': case '/': case '%': case '^': if (p[1] == '=') *end = p+2; else *end = p+1; return p; case '<': case '>': case '+': case '-': case '&': case '|': if (p[1] == '=' || p[1] == p[0]) *end = p+2; else *end = p+1; return p; case '~': case ',': *end = p+1; return p; case '(': if (p[1] != ')') error ("`operator ()' must be specified without whitespace in `()'"); *end = p+2; return p; case '?': if (p[1] != ':') error ("`operator ?:' must be specified without whitespace in `?:'"); *end = p+2; return p; case '[': if (p[1] != ']') error ("`operator []' must be specified without whitespace in `[]'"); *end = p+2; return p; default: error ("`operator %s' not supported", p); break; } *end = ""; return *end; } /* Recursive helper function for decode_line_1. * Look for methods named NAME in type T. * Return number of matches. * Put matches in SYM_ARR (which better be big enough!). * These allocations seem to define "big enough": * sym_arr = (struct symbol **) alloca(TYPE_NFN_FIELDS_TOTAL (t) * sizeof(struct symbol*)); * Note that this function is g++ specific. */ int find_methods (t, name, sym_arr) struct type *t; char *name; struct symbol **sym_arr; { int i1 = 0; int ibase; struct symbol *sym_class; char *class_name = type_name_no_tag (t); /* Ignore this class if it doesn't have a name. This is ugly, but unless we figure out how to get the physname without the name of the class, then the loop can't do any good. */ if (class_name && (sym_class = lookup_symbol (class_name, (struct block *)NULL, STRUCT_NAMESPACE, (int *)NULL, (struct symtab **)NULL))) { int method_counter; /* FIXME: Shouldn't this just be check_stub_type (t)? */ t = SYMBOL_TYPE (sym_class); for (method_counter = TYPE_NFN_FIELDS (t) - 1; method_counter >= 0; --method_counter) { int field_counter; struct fn_field *f = TYPE_FN_FIELDLIST1 (t, method_counter); char *method_name = TYPE_FN_FIELDLIST_NAME (t, method_counter); char dem_opname[64]; if (strncmp(method_name, "__", 2)==0 || strncmp(method_name, "op", 2)==0 || strncmp(method_name, "type", 4)==0 ) { if (cplus_demangle_opname(method_name, dem_opname, DMGL_ANSI)) method_name = dem_opname; else if (cplus_demangle_opname(method_name, dem_opname, 0)) method_name = dem_opname; } if (STREQ (name, method_name)) /* Find all the fields with that name. */ for (field_counter = TYPE_FN_FIELDLIST_LENGTH (t, method_counter) - 1; field_counter >= 0; --field_counter) { char *phys_name; if (TYPE_FN_FIELD_STUB (f, field_counter)) check_stub_method (t, method_counter, field_counter); phys_name = TYPE_FN_FIELD_PHYSNAME (f, field_counter); /* Destructor is handled by caller, dont add it to the list */ if (DESTRUCTOR_PREFIX_P (phys_name)) continue; /* FIXME: Why are we looking this up in the SYMBOL_BLOCK_VALUE (sym_class)? It is intended as a hook for nested types? If so, it should probably hook to the type, not the symbol. mipsread.c is the only symbol reader which sets the SYMBOL_BLOCK_VALUE for types, and this is not documented in symtab.h. -26Aug93. */ sym_arr[i1] = lookup_symbol (phys_name, SYMBOL_BLOCK_VALUE (sym_class), VAR_NAMESPACE, (int *) NULL, (struct symtab **) NULL); if (sym_arr[i1]) i1++; else { fputs_filtered("(Cannot find method ", gdb_stdout); fprintf_symbol_filtered (gdb_stdout, phys_name, language_cplus, DMGL_PARAMS | DMGL_ANSI); fputs_filtered(" - possibly inlined.)\n", gdb_stdout); } } } } /* Only search baseclasses if there is no match yet, since names in derived classes override those in baseclasses. FIXME: The above is not true; it is only true of member functions if they have the same number of arguments (??? - section 13.1 of the ARM says the function members are not in the same scope but doesn't really spell out the rules in a way I understand. In any case, if the number of arguments differ this is a case in which we can overload rather than hiding without any problem, and gcc 2.4.5 does overload rather than hiding in this case). */ if (i1) return i1; for (ibase = 0; ibase < TYPE_N_BASECLASSES (t); ibase++) i1 += find_methods(TYPE_BASECLASS(t, ibase), name, sym_arr + i1); return i1; } /* Helper function for decode_line_1. Build a canonical line spec in CANONICAL if it is non-NULL and if the SAL has a symtab. If SYMNAME is non-NULL the canonical line spec is `filename:symname'. If SYMNAME is NULL the line number from SAL is used and the canonical line spec is `filename:linenum'. */ static void build_canonical_line_spec (sal, symname, canonical) struct symtab_and_line *sal; char *symname; char ***canonical; { char **canonical_arr; char *canonical_name; char *filename; struct symtab *s = sal->symtab; if (s == (struct symtab *)NULL || s->filename == (char *)NULL || canonical == (char ***)NULL) return; canonical_arr = (char **) xmalloc (sizeof (char *)); *canonical = canonical_arr; filename = s->filename; if (symname != NULL) { canonical_name = xmalloc (strlen (filename) + strlen (symname) + 2); sprintf (canonical_name, "%s:%s", filename, symname); } else { canonical_name = xmalloc (strlen (filename) + 30); sprintf (canonical_name, "%s:%d", filename, sal->line); } canonical_arr[0] = canonical_name; } /* Parse a string that specifies a line number. Pass the address of a char * variable; that variable will be advanced over the characters actually parsed. The string can be: LINENUM -- that line number in current file. PC returned is 0. FILE:LINENUM -- that line in that file. PC returned is 0. FUNCTION -- line number of openbrace of that function. PC returned is the start of the function. VARIABLE -- line number of definition of that variable. PC returned is 0. FILE:FUNCTION -- likewise, but prefer functions in that file. *EXPR -- line in which address EXPR appears. FUNCTION may be an undebuggable function found in minimal symbol table. If the argument FUNFIRSTLINE is nonzero, we want the first line of real code inside a function when a function is specified. DEFAULT_SYMTAB specifies the file to use if none is specified. It defaults to current_source_symtab. DEFAULT_LINE specifies the line number to use for relative line numbers (that start with signs). Defaults to current_source_line. If CANONICAL is non-NULL, store an array of strings containing the canonical line specs there if necessary. Currently overloaded member functions and line numbers or static functions without a filename yield a canonical line spec. The array and the line spec strings are allocated on the heap, it is the callers responsibility to free them. Note that it is possible to return zero for the symtab if no file is validly specified. Callers must check that. Also, the line number returned may be invalid. */ /* We allow single quotes in various places. This is a hideous kludge, which exists because the completer can't yet deal with the lack of single quotes. FIXME: write a linespec_completer which we can use as appropriate instead of make_symbol_completion_list. */ struct symtabs_and_lines decode_line_1 (argptr, funfirstline, default_symtab, default_line, canonical) char **argptr; int funfirstline; struct symtab *default_symtab; int default_line; char ***canonical; { struct symtabs_and_lines values; #ifdef HPPA_COMPILER_BUG /* FIXME: The native HP 9000/700 compiler has a bug which appears when optimizing this file with target i960-vxworks. I haven't been able to construct a simple test case. The problem is that in the second call to SKIP_PROLOGUE below, the compiler somehow does not realize that the statement val = find_pc_line (...) will change the values of the fields of val. It extracts the elements into registers at the top of the block, and does not update the registers after the call to find_pc_line. You can check this by inserting a printf at the end of find_pc_line to show what values it is returning for val.pc and val.end and another printf after the call to see what values the function actually got (remember, this is compiling with cc -O, with this patch removed). You can also examine the assembly listing: search for the second call to skip_prologue; the LDO statement before the next call to find_pc_line loads the address of the structure which find_pc_line will return; if there is a LDW just before the LDO, which fetches an element of the structure, then the compiler still has the bug. Setting val to volatile avoids the problem. We must undef volatile, because the HPPA native compiler does not define __STDC__, although it does understand volatile, and so volatile will have been defined away in defs.h. */ #undef volatile volatile struct symtab_and_line val; #define volatile /*nothing*/ #else struct symtab_and_line val; #endif register char *p, *p1; char *q, *pp; #if 0 char *q1; #endif register struct symtab *s; register struct symbol *sym; /* The symtab that SYM was found in. */ struct symtab *sym_symtab; register CORE_ADDR pc; register struct minimal_symbol *msymbol; char *copy; struct symbol *sym_class; int i1; int is_quoted, has_parens; struct symbol **sym_arr; struct type *t; char *saved_arg = *argptr; extern char *gdb_completer_quote_characters; /* Defaults have defaults. */ if (default_symtab == 0) { default_symtab = current_source_symtab; default_line = current_source_line; } /* See if arg is *PC */ if (**argptr == '*') { if (**argptr == '*') { (*argptr)++; } pc = parse_and_eval_address_1 (argptr); values.sals = (struct symtab_and_line *) xmalloc (sizeof (struct symtab_and_line)); values.nelts = 1; values.sals[0] = find_pc_line (pc, 0); values.sals[0].pc = pc; build_canonical_line_spec (values.sals, NULL, canonical); return values; } /* Maybe arg is FILE : LINENUM or FILE : FUNCTION */ s = NULL; is_quoted = (strchr(gdb_completer_quote_characters, **argptr) != NULL); has_parens = (( pp = strchr(*argptr, '(')) != NULL && (pp = strchr(pp, ')')) != NULL); for (p = *argptr; *p; p++) { if (p[0] == '<') { while(++p && *p != '>'); if (!p) { error ("non-matching '<' and '>' in command"); } } if (p[0] == ':' || p[0] == ' ' || p[0] == '\t') break; } while (p[0] == ' ' || p[0] == '\t') p++; if ((p[0] == ':') && !has_parens) { /* C++ */ if (is_quoted) *argptr = *argptr+1; if (p[1] ==':') { /* Extract the class name. */ p1 = p; while (p != *argptr && p[-1] == ' ') --p; copy = (char *) alloca (p - *argptr + 1); memcpy (copy, *argptr, p - *argptr); copy[p - *argptr] = 0; /* Discard the class name from the arg. */ p = p1 + 2; while (*p == ' ' || *p == '\t') p++; *argptr = p; sym_class = lookup_symbol (copy, 0, STRUCT_NAMESPACE, 0, (struct symtab **)NULL); if (sym_class && ( TYPE_CODE (SYMBOL_TYPE (sym_class)) == TYPE_CODE_STRUCT || TYPE_CODE (SYMBOL_TYPE (sym_class)) == TYPE_CODE_UNION)) { /* Arg token is not digits => try it as a function name Find the next token(everything up to end or next blank). */ if (strchr(gdb_completer_quote_characters, **argptr) != NULL) { p = skip_quoted(*argptr); *argptr = *argptr + 1; } else { p = *argptr; while (*p && *p!=' ' && *p!='\t' && *p!=',' && *p!=':') p++; } /* q = operator_chars (*argptr, &q1); if (q1 - q) { char *opname; char *tmp = alloca (q1 - q + 1); memcpy (tmp, q, q1 - q); tmp[q1 - q] = '\0'; opname = cplus_mangle_opname (tmp, DMGL_ANSI); if (opname == NULL) { error_begin (); printf_filtered ("no mangling for \"%s\"\n", tmp); cplusplus_hint (saved_arg); return_to_top_level (RETURN_ERROR); } copy = (char*) alloca (3 + strlen(opname)); sprintf (copy, "__%s", opname); p = q1; } else */ { copy = (char *) alloca (p - *argptr + 1 ); memcpy (copy, *argptr, p - *argptr); copy[p - *argptr] = '\0'; if (strchr(gdb_completer_quote_characters, copy[p-*argptr-1]) != NULL) copy[p - *argptr -1] = '\0'; } /* no line number may be specified */ while (*p == ' ' || *p == '\t') p++; *argptr = p; sym = 0; i1 = 0; /* counter for the symbol array */ t = SYMBOL_TYPE (sym_class); sym_arr = (struct symbol **) alloca(TYPE_NFN_FIELDS_TOTAL (t) * sizeof(struct symbol*)); /* Cfront objects don't have fieldlists. */ if (destructor_name_p (copy, t) && TYPE_FN_FIELDLISTS (t) != NULL) { /* destructors are a special case. */ struct fn_field *f = TYPE_FN_FIELDLIST1 (t, 0); int len = TYPE_FN_FIELDLIST_LENGTH (t, 0) - 1; /* gcc 1.x puts destructor in last field, gcc 2.x puts destructor in first field. */ char *phys_name = TYPE_FN_FIELD_PHYSNAME (f, len); if (!DESTRUCTOR_PREFIX_P (phys_name)) { phys_name = TYPE_FN_FIELD_PHYSNAME (f, 0); if (!DESTRUCTOR_PREFIX_P (phys_name)) phys_name = ""; } sym_arr[i1] = lookup_symbol (phys_name, SYMBOL_BLOCK_VALUE (sym_class), VAR_NAMESPACE, 0, (struct symtab **)NULL); if (sym_arr[i1]) i1++; } else i1 = find_methods (t, copy, sym_arr); if (i1 == 1) { /* There is exactly one field with that name. */ sym = sym_arr[0]; if (sym && SYMBOL_CLASS (sym) == LOC_BLOCK) { values.sals = (struct symtab_and_line *)xmalloc (sizeof (struct symtab_and_line)); values.nelts = 1; values.sals[0] = find_function_start_sal (sym, funfirstline); } else { values.nelts = 0; } return values; } if (i1 > 0) { /* There is more than one field with that name (overloaded). Ask the user which one to use. */ return decode_line_2 (sym_arr, i1, funfirstline, canonical); } else { char *tmp; if (OPNAME_PREFIX_P (copy)) { tmp = (char *)alloca (strlen (copy+3) + 9); strcpy (tmp, "operator "); strcat (tmp, copy+3); } else tmp = copy; error_begin (); if (tmp[0] == '~') printf_filtered ("the class `%s' does not have destructor defined\n", SYMBOL_SOURCE_NAME(sym_class)); else printf_filtered ("the class %s does not have any method named %s\n", SYMBOL_SOURCE_NAME(sym_class), tmp); cplusplus_hint (saved_arg); return_to_top_level (RETURN_ERROR); } } else { error_begin (); /* The quotes are important if copy is empty. */ printf_filtered ("can't find class, struct, or union named \"%s\"\n", copy); cplusplus_hint (saved_arg); return_to_top_level (RETURN_ERROR); } } /* end of C++ */ /* Extract the file name. */ p1 = p; while (p != *argptr && p[-1] == ' ') --p; copy = (char *) alloca (p - *argptr + 1); memcpy (copy, *argptr, p - *argptr); copy[p - *argptr] = 0; /* Find that file's data. */ s = lookup_symtab (copy); if (s == 0) { if (!have_full_symbols () && !have_partial_symbols ()) error (no_symtab_msg); error ("No source file named %s.", copy); } /* Discard the file name from the arg. */ p = p1 + 1; while (*p == ' ' || *p == '\t') p++; *argptr = p; } /* S is specified file's symtab, or 0 if no file specified. arg no longer contains the file name. */ /* Check whether arg is all digits (and sign) */ q = *argptr; if (*q == '-' || *q == '+') q++; while (*q >= '0' && *q <= '9') q++; if (q != *argptr && (*q == 0 || *q == ' ' || *q == '\t' || *q == ',')) { /* We found a token consisting of all digits -- at least one digit. */ enum sign {none, plus, minus} sign = none; /* We might need a canonical line spec if no file was specified. */ int need_canonical = (s == 0) ? 1 : 0; /* This is where we need to make sure that we have good defaults. We must guarantee that this section of code is never executed when we are called with just a function name, since select_source_symtab calls us with such an argument */ if (s == 0 && default_symtab == 0) { select_source_symtab (0); default_symtab = current_source_symtab; default_line = current_source_line; } if (**argptr == '+') sign = plus, (*argptr)++; else if (**argptr == '-') sign = minus, (*argptr)++; val.line = atoi (*argptr); switch (sign) { case plus: if (q == *argptr) val.line = 5; if (s == 0) val.line = default_line + val.line; break; case minus: if (q == *argptr) val.line = 15; if (s == 0) val.line = default_line - val.line; else val.line = 1; break; case none: break; /* No need to adjust val.line. */ } while (*q == ' ' || *q == '\t') q++; *argptr = q; if (s == 0) s = default_symtab; val.symtab = s; val.pc = 0; values.sals = (struct symtab_and_line *)xmalloc (sizeof (struct symtab_and_line)); values.sals[0] = val; values.nelts = 1; if (need_canonical) build_canonical_line_spec (values.sals, NULL, canonical); return values; } /* Arg token is not digits => try it as a variable name Find the next token (everything up to end or next whitespace). */ if (is_quoted) { p = skip_quoted (*argptr); if (p[-1] != '\'') error ("Unmatched single quote."); } else if (has_parens) { p = pp+1; } else { p = skip_quoted(*argptr); } copy = (char *) alloca (p - *argptr + 1); memcpy (copy, *argptr, p - *argptr); copy[p - *argptr] = '\0'; if (p != *argptr && (copy[0] == copy [p - *argptr - 1]) && strchr (gdb_completer_quote_characters, copy[0]) != NULL) { copy [p - *argptr - 1] = '\0'; copy++; } while (*p == ' ' || *p == '\t') p++; *argptr = p; /* Look up that token as a variable. If file specified, use that file's per-file block to start with. */ sym = lookup_symbol (copy, (s ? BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK) : get_selected_block ()), VAR_NAMESPACE, 0, &sym_symtab); if (sym != NULL) { if (SYMBOL_CLASS (sym) == LOC_BLOCK) { /* Arg is the name of a function */ values.sals = (struct symtab_and_line *)xmalloc (sizeof (struct symtab_and_line)); values.sals[0] = find_function_start_sal (sym, funfirstline); values.nelts = 1; /* Don't use the SYMBOL_LINE; if used at all it points to the line containing the parameters or thereabouts, not the first line of code. */ /* We might need a canonical line spec if it is a static function. */ if (s == 0) { struct blockvector *bv = BLOCKVECTOR (sym_symtab); struct block *b = BLOCKVECTOR_BLOCK (bv, STATIC_BLOCK); if (lookup_block_symbol (b, copy, VAR_NAMESPACE) != NULL) build_canonical_line_spec (values.sals, copy, canonical); } return values; } else if (SYMBOL_LINE (sym) != 0) { /* We know its line number. */ values.sals = (struct symtab_and_line *) xmalloc (sizeof (struct symtab_and_line)); values.nelts = 1; memset (&values.sals[0], 0, sizeof (values.sals[0])); values.sals[0].symtab = sym_symtab; values.sals[0].line = SYMBOL_LINE (sym); return values; } else /* This can happen if it is compiled with a compiler which doesn't put out line numbers for variables. */ /* FIXME: Shouldn't we just set .line and .symtab to zero and return? For example, "info line foo" could print the address. */ error ("Line number not known for symbol \"%s\"", copy); } msymbol = lookup_minimal_symbol (copy, (struct objfile *) NULL); if (msymbol != NULL) { val.symtab = 0; val.line = 0; val.pc = SYMBOL_VALUE_ADDRESS (msymbol); if (funfirstline) { val.pc += FUNCTION_START_OFFSET; SKIP_PROLOGUE (val.pc); } values.sals = (struct symtab_and_line *)xmalloc (sizeof (struct symtab_and_line)); values.sals[0] = val; values.nelts = 1; return values; } if (!have_full_symbols () && !have_partial_symbols () && !have_minimal_symbols ()) error (no_symtab_msg); error ("Function \"%s\" not defined.", copy); return values; /* for lint */ } struct symtabs_and_lines decode_line_spec (string, funfirstline) char *string; int funfirstline; { struct symtabs_and_lines sals; if (string == 0) error ("Empty line specification."); sals = decode_line_1 (&string, funfirstline, current_source_symtab, current_source_line, (char ***)NULL); if (*string) error ("Junk at end of line specification: %s", string); return sals; } /* Given a list of NELTS symbols in SYM_ARR, return a list of lines to operate on (ask user if necessary). If CANONICAL is non-NULL return a corresponding array of mangled names as canonical line specs there. */ static struct symtabs_and_lines decode_line_2 (sym_arr, nelts, funfirstline, canonical) struct symbol *sym_arr[]; int nelts; int funfirstline; char ***canonical; { struct symtabs_and_lines values, return_values; char *args, *arg1; int i; char *prompt; char *symname; struct cleanup *old_chain; char **canonical_arr = (char **)NULL; values.sals = (struct symtab_and_line *) alloca (nelts * sizeof(struct symtab_and_line)); return_values.sals = (struct symtab_and_line *) xmalloc (nelts * sizeof(struct symtab_and_line)); old_chain = make_cleanup (free, return_values.sals); if (canonical) { canonical_arr = (char **) xmalloc (nelts * sizeof (char *)); make_cleanup (free, canonical_arr); memset (canonical_arr, 0, nelts * sizeof (char *)); *canonical = canonical_arr; } i = 0; printf_unfiltered("[0] cancel\n[1] all\n"); while (i < nelts) { if (sym_arr[i] && SYMBOL_CLASS (sym_arr[i]) == LOC_BLOCK) { values.sals[i] = find_function_start_sal (sym_arr[i], funfirstline); printf_unfiltered ("[%d] %s at %s:%d\n", (i+2), SYMBOL_SOURCE_NAME (sym_arr[i]), values.sals[i].symtab->filename, values.sals[i].line); } else printf_unfiltered ("?HERE\n"); i++; } if ((prompt = getenv ("PS2")) == NULL) { prompt = ">"; } printf_unfiltered("%s ",prompt); gdb_flush(gdb_stdout); args = command_line_input ((char *) NULL, 0, "overload-choice"); if (args == 0 || *args == 0) error_no_arg ("one or more choice numbers"); i = 0; while (*args) { int num; arg1 = args; while (*arg1 >= '0' && *arg1 <= '9') arg1++; if (*arg1 && *arg1 != ' ' && *arg1 != '\t') error ("Arguments must be choice numbers."); num = atoi (args); if (num == 0) error ("cancelled"); else if (num == 1) { if (canonical_arr) { for (i = 0; i < nelts; i++) { if (canonical_arr[i] == NULL) { symname = SYMBOL_NAME (sym_arr[i]); canonical_arr[i] = savestring (symname, strlen (symname)); } } } memcpy (return_values.sals, values.sals, (nelts * sizeof(struct symtab_and_line))); return_values.nelts = nelts; discard_cleanups (old_chain); return return_values; } if (num > nelts + 2) { printf_unfiltered ("No choice number %d.\n", num); } else { num -= 2; if (values.sals[num].pc) { if (canonical_arr) { symname = SYMBOL_NAME (sym_arr[num]); make_cleanup (free, symname); canonical_arr[i] = savestring (symname, strlen (symname)); } return_values.sals[i++] = values.sals[num]; values.sals[num].pc = 0; } else { printf_unfiltered ("duplicate request for %d ignored.\n", num); } } args = arg1; while (*args == ' ' || *args == '\t') args++; } return_values.nelts = i; discard_cleanups (old_chain); return return_values; } /* Slave routine for sources_info. Force line breaks at ,'s. NAME is the name to print and *FIRST is nonzero if this is the first name printed. Set *FIRST to zero. */ static void output_source_filename (name, first) char *name; int *first; { /* Table of files printed so far. Since a single source file can result in several partial symbol tables, we need to avoid printing it more than once. Note: if some of the psymtabs are read in and some are not, it gets printed both under "Source files for which symbols have been read" and "Source files for which symbols will be read in on demand". I consider this a reasonable way to deal with the situation. I'm not sure whether this can also happen for symtabs; it doesn't hurt to check. */ static char **tab = NULL; /* Allocated size of tab in elements. Start with one 256-byte block (when using GNU malloc.c). 24 is the malloc overhead when range checking is in effect. */ static int tab_alloc_size = (256 - 24) / sizeof (char *); /* Current size of tab in elements. */ static int tab_cur_size; char **p; if (*first) { if (tab == NULL) tab = (char **) xmalloc (tab_alloc_size * sizeof (*tab)); tab_cur_size = 0; } /* Is NAME in tab? */ for (p = tab; p < tab + tab_cur_size; p++) if (STREQ (*p, name)) /* Yes; don't print it again. */ return; /* No; add it to tab. */ if (tab_cur_size == tab_alloc_size) { tab_alloc_size *= 2; tab = (char **) xrealloc ((char *) tab, tab_alloc_size * sizeof (*tab)); } tab[tab_cur_size++] = name; if (*first) { *first = 0; } else { printf_filtered (", "); } wrap_here (""); fputs_filtered (name, gdb_stdout); } static void sources_info (ignore, from_tty) char *ignore; int from_tty; { register struct symtab *s; register struct partial_symtab *ps; register struct objfile *objfile; int first; if (!have_full_symbols () && !have_partial_symbols ()) { error (no_symtab_msg); } printf_filtered ("Source files for which symbols have been read in:\n\n"); first = 1; ALL_SYMTABS (objfile, s) { output_source_filename (s -> filename, &first); } printf_filtered ("\n\n"); printf_filtered ("Source files for which symbols will be read in on demand:\n\n"); first = 1; ALL_PSYMTABS (objfile, ps) { if (!ps->readin) { output_source_filename (ps -> filename, &first); } } printf_filtered ("\n"); } /* List all symbols (if REGEXP is NULL) or all symbols matching REGEXP. If CLASS is zero, list all symbols except functions, type names, and constants (enums). If CLASS is 1, list only functions. If CLASS is 2, list only type names. If CLASS is 3, list only method names. BPT is non-zero if we should set a breakpoint at the functions we find. */ static void list_symbols (regexp, class, bpt, from_tty) char *regexp; int class; int bpt; int from_tty; { register struct symtab *s; register struct partial_symtab *ps; register struct blockvector *bv; struct blockvector *prev_bv = 0; register struct block *b; register int i, j; register struct symbol *sym; struct partial_symbol *psym; struct objfile *objfile; struct minimal_symbol *msymbol; char *val; static char *classnames[] = {"variable", "function", "type", "method"}; int found_in_file = 0; int found_misc = 0; static enum minimal_symbol_type types[] = {mst_data, mst_text, mst_abs, mst_unknown}; static enum minimal_symbol_type types2[] = {mst_bss, mst_file_text, mst_abs, mst_unknown}; static enum minimal_symbol_type types3[] = {mst_file_data, mst_solib_trampoline, mst_abs, mst_unknown}; static enum minimal_symbol_type types4[] = {mst_file_bss, mst_text, mst_abs, mst_unknown}; enum minimal_symbol_type ourtype = types[class]; enum minimal_symbol_type ourtype2 = types2[class]; enum minimal_symbol_type ourtype3 = types3[class]; enum minimal_symbol_type ourtype4 = types4[class]; if (regexp != NULL) { /* Make sure spacing is right for C++ operators. This is just a courtesy to make the matching less sensitive to how many spaces the user leaves between 'operator' and or . */ char *opend; char *opname = operator_chars (regexp, &opend); if (*opname) { int fix = -1; /* -1 means ok; otherwise number of spaces needed. */ if (isalpha(*opname) || *opname == '_' || *opname == '$') { /* There should 1 space between 'operator' and 'TYPENAME'. */ if (opname[-1] != ' ' || opname[-2] == ' ') fix = 1; } else { /* There should 0 spaces between 'operator' and 'OPERATOR'. */ if (opname[-1] == ' ') fix = 0; } /* If wrong number of spaces, fix it. */ if (fix >= 0) { char *tmp = (char*) alloca(opend-opname+10); sprintf(tmp, "operator%.*s%s", fix, " ", opname); regexp = tmp; } } if (0 != (val = re_comp (regexp))) error ("Invalid regexp (%s): %s", val, regexp); } /* Search through the partial symtabs *first* for all symbols matching the regexp. That way we don't have to reproduce all of the machinery below. */ ALL_PSYMTABS (objfile, ps) { struct partial_symbol *bound, *gbound, *sbound; int keep_going = 1; if (ps->readin) continue; gbound = objfile->global_psymbols.list + ps->globals_offset + ps->n_global_syms; sbound = objfile->static_psymbols.list + ps->statics_offset + ps->n_static_syms; bound = gbound; /* Go through all of the symbols stored in a partial symtab in one loop. */ psym = objfile->global_psymbols.list + ps->globals_offset; while (keep_going) { if (psym >= bound) { if (bound == gbound && ps->n_static_syms != 0) { psym = objfile->static_psymbols.list + ps->statics_offset; bound = sbound; } else keep_going = 0; continue; } else { QUIT; /* If it would match (logic taken from loop below) load the file and go on to the next one */ if ((regexp == NULL || SYMBOL_MATCHES_REGEXP (psym)) && ((class == 0 && SYMBOL_CLASS (psym) != LOC_TYPEDEF && SYMBOL_CLASS (psym) != LOC_BLOCK) || (class == 1 && SYMBOL_CLASS (psym) == LOC_BLOCK) || (class == 2 && SYMBOL_CLASS (psym) == LOC_TYPEDEF) || (class == 3 && SYMBOL_CLASS (psym) == LOC_BLOCK))) { PSYMTAB_TO_SYMTAB(ps); keep_going = 0; } } psym++; } } /* Here, we search through the minimal symbol tables for functions that match, and call find_pc_symtab on them to force their symbols to be read. The symbol will then be found during the scan of symtabs below. If find_pc_symtab fails, set found_misc so that we will rescan to print any matching symbols without debug info. */ if (class == 1) { ALL_MSYMBOLS (objfile, msymbol) { if (MSYMBOL_TYPE (msymbol) == ourtype || MSYMBOL_TYPE (msymbol) == ourtype2 || MSYMBOL_TYPE (msymbol) == ourtype3 || MSYMBOL_TYPE (msymbol) == ourtype4) { if (regexp == NULL || SYMBOL_MATCHES_REGEXP (msymbol)) { if (0 == find_pc_symtab (SYMBOL_VALUE_ADDRESS (msymbol))) { found_misc = 1; } } } } } /* Printout here so as to get after the "Reading in symbols" messages which will be generated above. */ if (!bpt) printf_filtered (regexp ? "All %ss matching regular expression \"%s\":\n" : "All defined %ss:\n", classnames[class], regexp); ALL_SYMTABS (objfile, s) { found_in_file = 0; bv = BLOCKVECTOR (s); /* Often many files share a blockvector. Scan each blockvector only once so that we don't get every symbol many times. It happens that the first symtab in the list for any given blockvector is the main file. */ if (bv != prev_bv) for (i = GLOBAL_BLOCK; i <= STATIC_BLOCK; i++) { b = BLOCKVECTOR_BLOCK (bv, i); /* Skip the sort if this block is always sorted. */ if (!BLOCK_SHOULD_SORT (b)) sort_block_syms (b); for (j = 0; j < BLOCK_NSYMS (b); j++) { QUIT; sym = BLOCK_SYM (b, j); if ((regexp == NULL || SYMBOL_MATCHES_REGEXP (sym)) && ((class == 0 && SYMBOL_CLASS (sym) != LOC_TYPEDEF && SYMBOL_CLASS (sym) != LOC_BLOCK && SYMBOL_CLASS (sym) != LOC_CONST) || (class == 1 && SYMBOL_CLASS (sym) == LOC_BLOCK) || (class == 2 && SYMBOL_CLASS (sym) == LOC_TYPEDEF) || (class == 3 && SYMBOL_CLASS (sym) == LOC_BLOCK))) { if (bpt) { /* Set a breakpoint here, if it's a function */ if (class == 1) { /* There may be more than one function with the same name but in different files. In order to set breakpoints on all of them, we must give both the file name and the function name to break_command. Quoting the symbol name gets rid of problems with mangled symbol names that contain CPLUS_MARKER characters. */ char *string = (char *) alloca (strlen (s->filename) + strlen (SYMBOL_NAME(sym)) + 4); strcpy (string, s->filename); strcat (string, ":'"); strcat (string, SYMBOL_NAME(sym)); strcat (string, "'"); break_command (string, from_tty); } } else if (!found_in_file) { fputs_filtered ("\nFile ", gdb_stdout); fputs_filtered (s->filename, gdb_stdout); fputs_filtered (":\n", gdb_stdout); } found_in_file = 1; if (class != 2 && i == STATIC_BLOCK) printf_filtered ("static "); /* Typedef that is not a C++ class */ if (class == 2 && SYMBOL_NAMESPACE (sym) != STRUCT_NAMESPACE) c_typedef_print (SYMBOL_TYPE(sym), sym, gdb_stdout); /* variable, func, or typedef-that-is-c++-class */ else if (class < 2 || (class == 2 && SYMBOL_NAMESPACE(sym) == STRUCT_NAMESPACE)) { type_print (SYMBOL_TYPE (sym), (SYMBOL_CLASS (sym) == LOC_TYPEDEF ? "" : SYMBOL_SOURCE_NAME (sym)), gdb_stdout, 0); printf_filtered (";\n"); } else { # if 0 /* FIXME, why is this zapped out? */ char buf[1024]; c_type_print_base (TYPE_FN_FIELD_TYPE(t, i), gdb_stdout, 0, 0); c_type_print_varspec_prefix (TYPE_FN_FIELD_TYPE(t, i), gdb_stdout, 0); sprintf (buf, " %s::", type_name_no_tag (t)); cp_type_print_method_args (TYPE_FN_FIELD_ARGS (t, i), buf, name, gdb_stdout); # endif } } } } prev_bv = bv; } /* If there are no eyes, avoid all contact. I mean, if there are no debug symbols, then print directly from the msymbol_vector. */ if (found_misc || class != 1) { found_in_file = 0; ALL_MSYMBOLS (objfile, msymbol) { if (MSYMBOL_TYPE (msymbol) == ourtype || MSYMBOL_TYPE (msymbol) == ourtype2 || MSYMBOL_TYPE (msymbol) == ourtype3 || MSYMBOL_TYPE (msymbol) == ourtype4) { if (regexp == NULL || SYMBOL_MATCHES_REGEXP (msymbol)) { /* Functions: Look up by address. */ if (class != 1 || (0 == find_pc_symtab (SYMBOL_VALUE_ADDRESS (msymbol)))) { /* Variables/Absolutes: Look up by name */ if (lookup_symbol (SYMBOL_NAME (msymbol), (struct block *) NULL, VAR_NAMESPACE, 0, (struct symtab **) NULL) == NULL) { if (!found_in_file) { printf_filtered ("\nNon-debugging symbols:\n"); found_in_file = 1; } printf_filtered (" %08lx %s\n", (unsigned long) SYMBOL_VALUE_ADDRESS (msymbol), SYMBOL_SOURCE_NAME (msymbol)); } } } } } } } static void variables_info (regexp, from_tty) char *regexp; int from_tty; { list_symbols (regexp, 0, 0, from_tty); } static void functions_info (regexp, from_tty) char *regexp; int from_tty; { list_symbols (regexp, 1, 0, from_tty); } static void types_info (regexp, from_tty) char *regexp; int from_tty; { list_symbols (regexp, 2, 0, from_tty); } #if 0 /* Tiemann says: "info methods was never implemented." */ static void methods_info (regexp) char *regexp; { list_symbols (regexp, 3, 0, from_tty); } #endif /* 0 */ /* Breakpoint all functions matching regular expression. */ static void rbreak_command (regexp, from_tty) char *regexp; int from_tty; { list_symbols (regexp, 1, 1, from_tty); } /* Return Nonzero if block a is lexically nested within block b, or if a and b have the same pc range. Return zero otherwise. */ int contained_in (a, b) struct block *a, *b; { if (!a || !b) return 0; return BLOCK_START (a) >= BLOCK_START (b) && BLOCK_END (a) <= BLOCK_END (b); } /* Helper routine for make_symbol_completion_list. */ static int return_val_size; static int return_val_index; static char **return_val; #define COMPLETION_LIST_ADD_SYMBOL(symbol, sym_text, len, text, word) \ do { \ if (SYMBOL_DEMANGLED_NAME (symbol) != NULL) \ /* Put only the mangled name on the list. */ \ /* Advantage: "b foo" completes to "b foo(int, int)" */ \ /* Disadvantage: "b foo__i" doesn't complete. */ \ completion_list_add_name \ (SYMBOL_DEMANGLED_NAME (symbol), (sym_text), (len), (text), (word)); \ else \ completion_list_add_name \ (SYMBOL_NAME (symbol), (sym_text), (len), (text), (word)); \ } while (0) /* Test to see if the symbol specified by SYMNAME (which is already demangled for C++ symbols) matches SYM_TEXT in the first SYM_TEXT_LEN characters. If so, add it to the current completion list. */ static void completion_list_add_name (symname, sym_text, sym_text_len, text, word) char *symname; char *sym_text; int sym_text_len; char *text; char *word; { int newsize; int i; /* clip symbols that cannot match */ if (strncmp (symname, sym_text, sym_text_len) != 0) { return; } /* Clip any symbol names that we've already considered. (This is a time optimization) */ for (i = 0; i < return_val_index; ++i) { if (STREQ (symname, return_val[i])) { return; } } /* We have a match for a completion, so add SYMNAME to the current list of matches. Note that the name is moved to freshly malloc'd space. */ { char *new; if (word == sym_text) { new = xmalloc (strlen (symname) + 5); strcpy (new, symname); } else if (word > sym_text) { /* Return some portion of symname. */ new = xmalloc (strlen (symname) + 5); strcpy (new, symname + (word - sym_text)); } else { /* Return some of SYM_TEXT plus symname. */ new = xmalloc (strlen (symname) + (sym_text - word) + 5); strncpy (new, word, sym_text - word); new[sym_text - word] = '\0'; strcat (new, symname); } if (return_val_index + 3 > return_val_size) { newsize = (return_val_size *= 2) * sizeof (char *); return_val = (char **) xrealloc ((char *) return_val, newsize); } return_val[return_val_index++] = new; return_val[return_val_index] = NULL; } } /* Return a NULL terminated array of all symbols (regardless of class) which begin by matching TEXT. If the answer is no symbols, then the return value is an array which contains only a NULL pointer. Problem: All of the symbols have to be copied because readline frees them. I'm not going to worry about this; hopefully there won't be that many. */ char ** make_symbol_completion_list (text, word) char *text; char *word; { register struct symbol *sym; register struct symtab *s; register struct partial_symtab *ps; register struct minimal_symbol *msymbol; register struct objfile *objfile; register struct block *b, *surrounding_static_block = 0; register int i, j; struct partial_symbol *psym; /* The symbol we are completing on. Points in same buffer as text. */ char *sym_text; /* Length of sym_text. */ int sym_text_len; /* Now look for the symbol we are supposed to complete on. FIXME: This should be language-specific. */ { char *p; char quote_found; char *quote_pos = NULL; /* First see if this is a quoted string. */ quote_found = '\0'; for (p = text; *p != '\0'; ++p) { if (quote_found != '\0') { if (*p == quote_found) /* Found close quote. */ quote_found = '\0'; else if (*p == '\\' && p[1] == quote_found) /* A backslash followed by the quote character doesn't end the string. */ ++p; } else if (*p == '\'' || *p == '"') { quote_found = *p; quote_pos = p; } } if (quote_found == '\'') /* A string within single quotes can be a symbol, so complete on it. */ sym_text = quote_pos + 1; else if (quote_found == '"') /* A double-quoted string is never a symbol, nor does it make sense to complete it any other way. */ return NULL; else { /* It is not a quoted string. Break it based on the characters which are in symbols. */ while (p > text) { if (isalnum (p[-1]) || p[-1] == '_' || p[-1] == '\0') --p; else break; } sym_text = p; } } sym_text_len = strlen (sym_text); return_val_size = 100; return_val_index = 0; return_val = (char **) xmalloc ((return_val_size + 1) * sizeof (char *)); return_val[0] = NULL; /* Look through the partial symtabs for all symbols which begin by matching SYM_TEXT. Add each one that you find to the list. */ ALL_PSYMTABS (objfile, ps) { /* If the psymtab's been read in we'll get it when we search through the blockvector. */ if (ps->readin) continue; for (psym = objfile->global_psymbols.list + ps->globals_offset; psym < (objfile->global_psymbols.list + ps->globals_offset + ps->n_global_syms); psym++) { /* If interrupted, then quit. */ QUIT; COMPLETION_LIST_ADD_SYMBOL (psym, sym_text, sym_text_len, text, word); } for (psym = objfile->static_psymbols.list + ps->statics_offset; psym < (objfile->static_psymbols.list + ps->statics_offset + ps->n_static_syms); psym++) { QUIT; COMPLETION_LIST_ADD_SYMBOL (psym, sym_text, sym_text_len, text, word); } } /* At this point scan through the misc symbol vectors and add each symbol you find to the list. Eventually we want to ignore anything that isn't a text symbol (everything else will be handled by the psymtab code above). */ ALL_MSYMBOLS (objfile, msymbol) { QUIT; COMPLETION_LIST_ADD_SYMBOL (msymbol, sym_text, sym_text_len, text, word); } /* Search upwards from currently selected frame (so that we can complete on local vars. */ for (b = get_selected_block (); b != NULL; b = BLOCK_SUPERBLOCK (b)) { if (!BLOCK_SUPERBLOCK (b)) { surrounding_static_block = b; /* For elmin of dups */ } /* Also catch fields of types defined in this places which match our text string. Only complete on types visible from current context. */ for (i = 0; i < BLOCK_NSYMS (b); i++) { sym = BLOCK_SYM (b, i); COMPLETION_LIST_ADD_SYMBOL (sym, sym_text, sym_text_len, text, word); if (SYMBOL_CLASS (sym) == LOC_TYPEDEF) { struct type *t = SYMBOL_TYPE (sym); enum type_code c = TYPE_CODE (t); if (c == TYPE_CODE_UNION || c == TYPE_CODE_STRUCT) { for (j = TYPE_N_BASECLASSES (t); j < TYPE_NFIELDS (t); j++) { if (TYPE_FIELD_NAME (t, j)) { completion_list_add_name (TYPE_FIELD_NAME (t, j), sym_text, sym_text_len, text, word); } } } } } } /* Go through the symtabs and check the externs and statics for symbols which match. */ ALL_SYMTABS (objfile, s) { QUIT; b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), GLOBAL_BLOCK); for (i = 0; i < BLOCK_NSYMS (b); i++) { sym = BLOCK_SYM (b, i); COMPLETION_LIST_ADD_SYMBOL (sym, sym_text, sym_text_len, text, word); } } ALL_SYMTABS (objfile, s) { QUIT; b = BLOCKVECTOR_BLOCK (BLOCKVECTOR (s), STATIC_BLOCK); /* Don't do this block twice. */ if (b == surrounding_static_block) continue; for (i = 0; i < BLOCK_NSYMS (b); i++) { sym = BLOCK_SYM (b, i); COMPLETION_LIST_ADD_SYMBOL (sym, sym_text, sym_text_len, text, word); } } return (return_val); } #if 0 /* Add the type of the symbol sym to the type of the current function whose block we are in (assumed). The type of this current function is contained in *TYPE. This basically works as follows: When we find a function symbol (N_FUNC with a 'f' or 'F' in the symbol name), we record a pointer to its type in the global in_function_type. Every time we come across a parameter symbol ('p' in its name), then this procedure adds the name and type of that parameter to the function type pointed to by *TYPE. (Which should correspond to in_function_type if it was called correctly). Note that since we are modifying a type, the result of lookup_function_type() should be memcpy()ed before calling this. When not in strict typing mode, the expression evaluator can choose to ignore this. Assumption: All of a function's parameter symbols will appear before another function symbol is found. The parameters appear in the same order in the argument list as they do in the symbol table. */ void add_param_to_type (type,sym) struct type **type; struct symbol *sym; { int num = ++(TYPE_NFIELDS(*type)); if(TYPE_NFIELDS(*type)-1) TYPE_FIELDS(*type) = (struct field *) (*current_objfile->xrealloc) ((char *)(TYPE_FIELDS(*type)), num*sizeof(struct field)); else TYPE_FIELDS(*type) = (struct field *) (*current_objfile->xmalloc) (num*sizeof(struct field)); TYPE_FIELD_BITPOS(*type,num-1) = num-1; TYPE_FIELD_BITSIZE(*type,num-1) = 0; TYPE_FIELD_TYPE(*type,num-1) = SYMBOL_TYPE(sym); TYPE_FIELD_NAME(*type,num-1) = SYMBOL_NAME(sym); } #endif void _initialize_symtab () { add_info ("variables", variables_info, "All global and static variable names, or those matching REGEXP."); add_info ("functions", functions_info, "All function names, or those matching REGEXP."); /* FIXME: This command has at least the following problems: 1. It prints builtin types (in a very strange and confusing fashion). 2. It doesn't print right, e.g. with typedef struct foo *FOO type_print prints "FOO" when we want to make it (in this situation) print "struct foo *". I also think "ptype" or "whatis" is more likely to be useful (but if there is much disagreement "info types" can be fixed). */ add_info ("types", types_info, "All type names, or those matching REGEXP."); #if 0 add_info ("methods", methods_info, "All method names, or those matching REGEXP::REGEXP.\n\ If the class qualifier is omitted, it is assumed to be the current scope.\n\ If the first REGEXP is omitted, then all methods matching the second REGEXP\n\ are listed."); #endif add_info ("sources", sources_info, "Source files in the program."); add_com ("rbreak", no_class, rbreak_command, "Set a breakpoint for all functions matching REGEXP."); /* Initialize the one built-in type that isn't language dependent... */ builtin_type_error = init_type (TYPE_CODE_ERROR, 0, 0, "", (struct objfile *) NULL); } gdb-4.13/gdb/symtab.h 666 34562 1752 112626 5604431437 13017 0ustar fnfcygnus/* Symbol table definitions for GDB. Copyright 1986, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (SYMTAB_H) #define SYMTAB_H 1 /* Some definitions and declarations to go with use of obstacks. */ #include "obstack.h" #define obstack_chunk_alloc xmalloc #define obstack_chunk_free free /* Don't do this; it means that if some .o's are compiled with GNU C and some are not (easy to do accidentally the way we configure things; also it is a pain to have to "make clean" every time you want to switch compilers), then GDB dies a horrible death. */ /* GNU C supports enums that are bitfields. Some compilers don't. */ #if 0 && defined(__GNUC__) && !defined(BYTE_BITFIELD) #define BYTE_BITFIELD :8; #else #define BYTE_BITFIELD /*nothing*/ #endif /* Define a structure for the information that is common to all symbol types, including minimal symbols, partial symbols, and full symbols. In a multilanguage environment, some language specific information may need to be recorded along with each symbol. These fields are ordered to encourage good packing, since we frequently have tens or hundreds of thousands of these. */ struct general_symbol_info { /* Name of the symbol. This is a required field. Storage for the name is allocated on the psymbol_obstack or symbol_obstack for the associated objfile. */ char *name; /* Value of the symbol. Which member of this union to use, and what it means, depends on what kind of symbol this is and its SYMBOL_CLASS. See comments there for more details. All of these are in host byte order (though what they point to might be in target byte order, e.g. LOC_CONST_BYTES). */ union { /* The fact that this is a long not a LONGEST mainly limits the range of a LOC_CONST. Since LOC_CONST_BYTES exists, I'm not sure that is a big deal. */ long ivalue; struct block *block; char *bytes; CORE_ADDR address; /* for opaque typedef struct chain */ struct symbol *chain; } value; /* Since one and only one language can apply, wrap the language specific information inside a union. */ union { struct cplus_specific /* For C++ */ { char *demangled_name; } cplus_specific; struct chill_specific /* For Chill */ { char *demangled_name; } chill_specific; } language_specific; /* Record the source code language that applies to this symbol. This is used to select one of the fields from the language specific union above. */ enum language language BYTE_BITFIELD; /* Which section is this symbol in? This is an index into section_offsets for this objfile. Negative means that the symbol does not get relocated relative to a section. Disclaimer: currently this is just used for xcoff, so don't expect all symbol-reading code to set it correctly (the ELF code also tries to set it correctly). */ short section; }; #define SYMBOL_NAME(symbol) (symbol)->ginfo.name #define SYMBOL_VALUE(symbol) (symbol)->ginfo.value.ivalue #define SYMBOL_VALUE_ADDRESS(symbol) (symbol)->ginfo.value.address #define SYMBOL_VALUE_BYTES(symbol) (symbol)->ginfo.value.bytes #define SYMBOL_BLOCK_VALUE(symbol) (symbol)->ginfo.value.block #define SYMBOL_VALUE_CHAIN(symbol) (symbol)->ginfo.value.chain #define SYMBOL_LANGUAGE(symbol) (symbol)->ginfo.language #define SYMBOL_SECTION(symbol) (symbol)->ginfo.section #define SYMBOL_CPLUS_DEMANGLED_NAME(symbol) \ (symbol)->ginfo.language_specific.cplus_specific.demangled_name /* Macro that initializes the language dependent portion of a symbol depending upon the language for the symbol. */ #define SYMBOL_INIT_LANGUAGE_SPECIFIC(symbol,language) \ do { \ SYMBOL_LANGUAGE (symbol) = language; \ if (SYMBOL_LANGUAGE (symbol) == language_cplus) \ { \ SYMBOL_CPLUS_DEMANGLED_NAME (symbol) = NULL; \ } \ else if (SYMBOL_LANGUAGE (symbol) == language_chill) \ { \ SYMBOL_CHILL_DEMANGLED_NAME (symbol) = NULL; \ } \ else \ { \ memset (&(symbol)->ginfo.language_specific, 0, \ sizeof ((symbol)->ginfo.language_specific)); \ } \ } while (0) /* Macro that attempts to initialize the demangled name for a symbol, based on the language of that symbol. If the language is set to language_auto, it will attempt to find any demangling algorithm that works and then set the language appropriately. If no demangling of any kind is found, the language is set back to language_unknown, so we can avoid doing this work again the next time we encounter the symbol. Any required space to store the name is obtained from the specified obstack. */ #define SYMBOL_INIT_DEMANGLED_NAME(symbol,obstack) \ do { \ char *demangled = NULL; \ if (SYMBOL_LANGUAGE (symbol) == language_cplus \ || SYMBOL_LANGUAGE (symbol) == language_auto) \ { \ demangled = \ cplus_demangle (SYMBOL_NAME (symbol), DMGL_PARAMS | DMGL_ANSI);\ if (demangled != NULL) \ { \ SYMBOL_LANGUAGE (symbol) = language_cplus; \ SYMBOL_CPLUS_DEMANGLED_NAME (symbol) = \ obsavestring (demangled, strlen (demangled), (obstack)); \ free (demangled); \ } \ else \ { \ SYMBOL_CPLUS_DEMANGLED_NAME (symbol) = NULL; \ } \ } \ if (demangled == NULL \ && (SYMBOL_LANGUAGE (symbol) == language_chill \ || SYMBOL_LANGUAGE (symbol) == language_auto)) \ { \ demangled = \ chill_demangle (SYMBOL_NAME (symbol)); \ if (demangled != NULL) \ { \ SYMBOL_LANGUAGE (symbol) = language_chill; \ SYMBOL_CHILL_DEMANGLED_NAME (symbol) = \ obsavestring (demangled, strlen (demangled), (obstack)); \ free (demangled); \ } \ else \ { \ SYMBOL_CHILL_DEMANGLED_NAME (symbol) = NULL; \ } \ } \ if (SYMBOL_LANGUAGE (symbol) == language_auto) \ { \ SYMBOL_LANGUAGE (symbol) = language_unknown; \ } \ } while (0) /* Macro that returns the demangled name for a symbol based on the language for that symbol. If no demangled name exists, returns NULL. */ #define SYMBOL_DEMANGLED_NAME(symbol) \ (SYMBOL_LANGUAGE (symbol) == language_cplus \ ? SYMBOL_CPLUS_DEMANGLED_NAME (symbol) \ : (SYMBOL_LANGUAGE (symbol) == language_chill \ ? SYMBOL_CHILL_DEMANGLED_NAME (symbol) \ : NULL)) #define SYMBOL_CHILL_DEMANGLED_NAME(symbol) \ (symbol)->ginfo.language_specific.chill_specific.demangled_name /* Macro that returns the "natural source name" of a symbol. In C++ this is the "demangled" form of the name if demangle is on and the "mangled" form of the name if demangle is off. In other languages this is just the symbol name. The result should never be NULL. */ #define SYMBOL_SOURCE_NAME(symbol) \ (demangle && SYMBOL_DEMANGLED_NAME (symbol) != NULL \ ? SYMBOL_DEMANGLED_NAME (symbol) \ : SYMBOL_NAME (symbol)) /* Macro that returns the "natural assembly name" of a symbol. In C++ this is the "mangled" form of the name if demangle is off, or if demangle is on and asm_demangle is off. Otherwise if asm_demangle is on it is the "demangled" form. In other languages this is just the symbol name. The result should never be NULL. */ #define SYMBOL_LINKAGE_NAME(symbol) \ (demangle && asm_demangle && SYMBOL_DEMANGLED_NAME (symbol) != NULL \ ? SYMBOL_DEMANGLED_NAME (symbol) \ : SYMBOL_NAME (symbol)) /* Macro that tests a symbol for a match against a specified name string. First test the unencoded name, then looks for and test a C++ encoded name if it exists. Note that whitespace is ignored while attempting to match a C++ encoded name, so that "foo::bar(int,long)" is the same as "foo :: bar (int, long)". Evaluates to zero if the match fails, or nonzero if it succeeds. */ #define SYMBOL_MATCHES_NAME(symbol, name) \ (STREQ (SYMBOL_NAME (symbol), (name)) \ || (SYMBOL_DEMANGLED_NAME (symbol) != NULL \ && strcmp_iw (SYMBOL_DEMANGLED_NAME (symbol), (name)) == 0)) /* Macro that tests a symbol for an re-match against the last compiled regular expression. First test the unencoded name, then look for and test a C++ encoded name if it exists. Evaluates to zero if the match fails, or nonzero if it succeeds. */ #define SYMBOL_MATCHES_REGEXP(symbol) \ (re_exec (SYMBOL_NAME (symbol)) != 0 \ || (SYMBOL_DEMANGLED_NAME (symbol) != NULL \ && re_exec (SYMBOL_DEMANGLED_NAME (symbol)) != 0)) /* Define a simple structure used to hold some very basic information about all defined global symbols (text, data, bss, abs, etc). The only required information is the general_symbol_info. In many cases, even if a file was compiled with no special options for debugging at all, as long as was not stripped it will contain sufficient information to build a useful minimal symbol table using this structure. Even when a file contains enough debugging information to build a full symbol table, these minimal symbols are still useful for quickly mapping between names and addresses, and vice versa. They are also sometimes used to figure out what full symbol table entries need to be read in. */ struct minimal_symbol { /* The general symbol info required for all types of symbols. The SYMBOL_VALUE_ADDRESS contains the address that this symbol corresponds to. */ struct general_symbol_info ginfo; /* The info field is available for caching machine-specific information that The AMD 29000 tdep.c uses it to remember things it has decoded from the instructions in the function header, so it doesn't have to rederive the info constantly (over a serial line). It is initialized to zero and stays that way until target-dependent code sets it. Storage for any data pointed to by this field should be allocated on the symbol_obstack for the associated objfile. The type would be "void *" except for reasons of compatibility with older compilers. This field is optional. */ char *info; /* Classification types for this symbol. These should be taken as "advisory only", since if gdb can't easily figure out a classification it simply selects mst_unknown. It may also have to guess when it can't figure out which is a better match between two types (mst_data versus mst_bss) for example. Since the minimal symbol info is sometimes derived from the BFD library's view of a file, we need to live with what information bfd supplies. */ enum minimal_symbol_type { mst_unknown = 0, /* Unknown type, the default */ mst_text, /* Generally executable instructions */ mst_data, /* Generally initialized data */ mst_bss, /* Generally uninitialized data */ mst_abs, /* Generally absolute (nonrelocatable) */ /* GDB uses mst_solib_trampoline for the start address of a shared library trampoline entry. Breakpoints for shared library functions are put there if the shared library is not yet loaded. After the shared library is loaded, lookup_minimal_symbol will prefer the minimal symbol from the shared library (usually a mst_text symbol) over the mst_solib_trampoline symbol, and the breakpoints will be moved to their true address in the shared library via breakpoint_re_set. */ mst_solib_trampoline, /* Shared library trampoline code */ /* For the mst_file* types, the names are only guaranteed to be unique within a given .o file. */ mst_file_text, /* Static version of mst_text */ mst_file_data, /* Static version of mst_data */ mst_file_bss /* Static version of mst_bss */ } type BYTE_BITFIELD; }; #define MSYMBOL_INFO(msymbol) (msymbol)->info #define MSYMBOL_TYPE(msymbol) (msymbol)->type /* All of the name-scope contours of the program are represented by `struct block' objects. All of these objects are pointed to by the blockvector. Each block represents one name scope. Each lexical context has its own block. The blockvector begins with some special blocks. The GLOBAL_BLOCK contains all the symbols defined in this compilation whose scope is the entire program linked together. The STATIC_BLOCK contains all the symbols whose scope is the entire compilation excluding other separate compilations. Blocks starting with the FIRST_LOCAL_BLOCK are not special. Each block records a range of core addresses for the code that is in the scope of the block. The STATIC_BLOCK and GLOBAL_BLOCK give, for the range of code, the entire range of code produced by the compilation that the symbol segment belongs to. The blocks appear in the blockvector in order of increasing starting-address, and, within that, in order of decreasing ending-address. This implies that within the body of one function the blocks appear in the order of a depth-first tree walk. */ struct blockvector { /* Number of blocks in the list. */ int nblocks; /* The blocks themselves. */ struct block *block[1]; }; #define BLOCKVECTOR_NBLOCKS(blocklist) (blocklist)->nblocks #define BLOCKVECTOR_BLOCK(blocklist,n) (blocklist)->block[n] /* Special block numbers */ #define GLOBAL_BLOCK 0 #define STATIC_BLOCK 1 #define FIRST_LOCAL_BLOCK 2 struct block { /* Addresses in the executable code that are in this block. */ CORE_ADDR startaddr; CORE_ADDR endaddr; /* The symbol that names this block, if the block is the body of a function; otherwise, zero. */ struct symbol *function; /* The `struct block' for the containing block, or 0 if none. The superblock of a top-level local block (i.e. a function in the case of C) is the STATIC_BLOCK. The superblock of the STATIC_BLOCK is the GLOBAL_BLOCK. */ struct block *superblock; /* Version of GCC used to compile the function corresponding to this block, or 0 if not compiled with GCC. When possible, GCC should be compatible with the native compiler, or if that is not feasible, the differences should be fixed during symbol reading. As of 16 Apr 93, this flag is never used to distinguish between gcc2 and the native compiler. If there is no function corresponding to this block, this meaning of this flag is undefined. */ unsigned char gcc_compile_flag; /* Number of local symbols. */ int nsyms; /* The symbols. If some of them are arguments, then they must be in the order in which we would like to print them. */ struct symbol *sym[1]; }; #define BLOCK_START(bl) (bl)->startaddr #define BLOCK_END(bl) (bl)->endaddr #define BLOCK_NSYMS(bl) (bl)->nsyms #define BLOCK_SYM(bl, n) (bl)->sym[n] #define BLOCK_FUNCTION(bl) (bl)->function #define BLOCK_SUPERBLOCK(bl) (bl)->superblock #define BLOCK_GCC_COMPILED(bl) (bl)->gcc_compile_flag /* Nonzero if symbols of block BL should be sorted alphabetically. Don't sort a block which corresponds to a function. If we did the sorting would have to preserve the order of the symbols for the arguments. */ #define BLOCK_SHOULD_SORT(bl) ((bl)->nsyms >= 40 && BLOCK_FUNCTION (bl) == NULL) /* Represent one symbol name; a variable, constant, function or typedef. */ /* Different name spaces for symbols. Looking up a symbol specifies a namespace and ignores symbol definitions in other name spaces. */ enum namespace { /* UNDEF_NAMESPACE is used when a namespace has not been discovered or none of the following apply. This usually indicates an error either in the symbol information or in gdb's handling of symbols. */ UNDEF_NAMESPACE, /* VAR_NAMESPACE is the usual namespace. In C, this contains variables, function names, typedef names and enum type values. */ VAR_NAMESPACE, /* STRUCT_NAMESPACE is used in C to hold struct, union and enum type names. Thus, if `struct foo' is used in a C program, it produces a symbol named `foo' in the STRUCT_NAMESPACE. */ STRUCT_NAMESPACE, /* LABEL_NAMESPACE may be used for names of labels (for gotos); currently it is not used and labels are not recorded at all. */ LABEL_NAMESPACE }; /* An address-class says where to find the value of a symbol. */ enum address_class { /* Not used; catches errors */ LOC_UNDEF, /* Value is constant int SYMBOL_VALUE, host byteorder */ LOC_CONST, /* Value is at fixed address SYMBOL_VALUE_ADDRESS */ LOC_STATIC, /* Value is in register. SYMBOL_VALUE is the register number. */ LOC_REGISTER, /* It's an argument; the value is at SYMBOL_VALUE offset in arglist. */ LOC_ARG, /* Value address is at SYMBOL_VALUE offset in arglist. */ LOC_REF_ARG, /* Value is in register number SYMBOL_VALUE. Just like LOC_REGISTER except this is an argument. Probably the cleaner way to handle this would be to separate address_class (which would include separate ARG and LOCAL to deal with FRAME_ARGS_ADDRESS versus FRAME_LOCALS_ADDRESS), and an is_argument flag. For some symbol formats (stabs, for some compilers at least), the compiler generates two symbols, an argument and a register. In some cases we combine them to a single LOC_REGPARM in symbol reading, but currently not for all cases (e.g. it's passed on the stack and then loaded into a register). */ LOC_REGPARM, /* Value is in specified register. Just like LOC_REGPARM except the register holds the address of the argument instead of the argument itself. This is currently used for the passing of structs and unions on sparc and hppa. It is also used for call by reference where the address is in a register, at least by mipsread.c. */ LOC_REGPARM_ADDR, /* Value is a local variable at SYMBOL_VALUE offset in stack frame. */ LOC_LOCAL, /* Value not used; definition in SYMBOL_TYPE. Symbols in the namespace STRUCT_NAMESPACE all have this class. */ LOC_TYPEDEF, /* Value is address SYMBOL_VALUE_ADDRESS in the code */ LOC_LABEL, /* In a symbol table, value is SYMBOL_BLOCK_VALUE of a `struct block'. In a partial symbol table, SYMBOL_VALUE_ADDRESS is the start address of the block. Function names have this class. */ LOC_BLOCK, /* Value is a constant byte-sequence pointed to by SYMBOL_VALUE_BYTES, in target byte order. */ LOC_CONST_BYTES, /* Value is arg at SYMBOL_VALUE offset in stack frame. Differs from LOC_LOCAL in that symbol is an argument; differs from LOC_ARG in that we find it in the frame (FRAME_LOCALS_ADDRESS), not in the arglist (FRAME_ARGS_ADDRESS). Added for i960, which passes args in regs then copies to frame. */ LOC_LOCAL_ARG, /* Value is at SYMBOL_VALUE offset from the current value of register number SYMBOL_BASEREG. This exists mainly for the same things that LOC_LOCAL and LOC_ARG do; but we need to do this instead because on 88k DWARF gives us the offset from the frame/stack pointer, rather than the offset from the "canonical frame address" used by COFF, stabs, etc., and we don't know how to convert between these until we start examining prologues. Note that LOC_BASEREG is much less general than a DWARF expression. We don't need the generality (at least not yet), and storing a general DWARF expression would presumably take up more space than the existing scheme. */ LOC_BASEREG, /* Same as LOC_BASEREG but it is an argument. */ LOC_BASEREG_ARG, /* The variable does not actually exist in the program. The value is ignored. */ LOC_OPTIMIZED_OUT }; struct symbol { /* The general symbol info required for all types of symbols. */ struct general_symbol_info ginfo; /* Data type of value */ struct type *type; /* Name space code. */ enum namespace namespace BYTE_BITFIELD; /* Address class */ enum address_class class BYTE_BITFIELD; /* Line number of definition. FIXME: Should we really make the assumption that nobody will try to debug files longer than 64K lines? What about machine generated programs? */ unsigned short line; /* Some symbols require an additional value to be recorded on a per- symbol basis. Stash those values here. */ union { /* Used by LOC_BASEREG and LOC_BASEREG_ARG. */ short basereg; } aux_value; }; #define SYMBOL_NAMESPACE(symbol) (symbol)->namespace #define SYMBOL_CLASS(symbol) (symbol)->class #define SYMBOL_TYPE(symbol) (symbol)->type #define SYMBOL_LINE(symbol) (symbol)->line #define SYMBOL_BASEREG(symbol) (symbol)->aux_value.basereg /* A partial_symbol records the name, namespace, and address class of symbols whose types we have not parsed yet. For functions, it also contains their memory address, so we can find them from a PC value. Each partial_symbol sits in a partial_symtab, all of which are chained on a partial symtab list and which points to the corresponding normal symtab once the partial_symtab has been referenced. */ struct partial_symbol { /* The general symbol info required for all types of symbols. */ struct general_symbol_info ginfo; /* Name space code. */ enum namespace namespace BYTE_BITFIELD; /* Address class (for info_symbols) */ enum address_class class BYTE_BITFIELD; }; #define PSYMBOL_NAMESPACE(psymbol) (psymbol)->namespace #define PSYMBOL_CLASS(psymbol) (psymbol)->class /* Source-file information. This describes the relation between source files, ine numbers and addresses in the program text. */ struct sourcevector { int length; /* Number of source files described */ struct source *source[1]; /* Descriptions of the files */ }; /* Each item represents a line-->pc (or the reverse) mapping. This is somewhat more wasteful of space than one might wish, but since only the files which are actually debugged are read in to core, we don't waste much space. */ struct linetable_entry { int line; CORE_ADDR pc; }; /* The order of entries in the linetable is significant. They should be sorted by increasing values of the pc field. If there is more than one entry for a given pc, then I'm not sure what should happen (and I not sure whether we currently handle it the best way). Example: a C for statement generally looks like this 10 0x100 - for the init/test part of a for stmt. 20 0x200 30 0x300 10 0x400 - for the increment part of a for stmt. */ struct linetable { int nitems; /* Actually NITEMS elements. If you don't like this use of the `struct hack', you can shove it up your ANSI (seriously, if the committee tells us how to do it, we can probably go along). */ struct linetable_entry item[1]; }; /* All the information on one source file. */ struct source { char *name; /* Name of file */ struct linetable contents; }; /* How to relocate the symbols from each section in a symbol file. Each struct contains an array of offsets. The ordering and meaning of the offsets is file-type-dependent; typically it is indexed by section numbers or symbol types or something like that. To give us flexibility in changing the internal representation of these offsets, the ANOFFSET macro must be used to insert and extract offset values in the struct. */ struct section_offsets { CORE_ADDR offsets[1]; /* As many as needed. */ }; #define ANOFFSET(secoff, whichone) (secoff->offsets[whichone]) /* Each source file or header is represented by a struct symtab. These objects are chained through the `next' field. */ struct symtab { /* Chain of all existing symtabs. */ struct symtab *next; /* List of all symbol scope blocks for this symtab. May be shared between different symtabs (and normally is for all the symtabs in a given compilation unit). */ struct blockvector *blockvector; /* Table mapping core addresses to line numbers for this file. Can be NULL if none. Never shared between different symtabs. */ struct linetable *linetable; /* Section in objfile->section_offsets for the blockvector and the linetable. */ int block_line_section; /* If several symtabs share a blockvector, exactly one of them should be designed the primary, so that the blockvector is relocated exactly once by objfile_relocate. */ int primary; /* Name of this source file. */ char *filename; /* Directory in which it was compiled, or NULL if we don't know. */ char *dirname; /* This component says how to free the data we point to: free_contents => do a tree walk and free each object. free_nothing => do nothing; some other symtab will free the data this one uses. free_linetable => free just the linetable. FIXME: Is this redundant with the primary field? */ enum free_code { free_nothing, free_contents, free_linetable } free_code; /* Pointer to one block of storage to be freed, if nonzero. */ /* This is IN ADDITION to the action indicated by free_code. */ char *free_ptr; /* Total number of lines found in source file. */ int nlines; /* line_charpos[N] is the position of the (N-1)th line of the source file. "position" means something we can lseek() to; it is not guaranteed to be useful any other way. */ int *line_charpos; /* Language of this source file. */ enum language language; /* String of version information. May be zero. */ char *version; /* Full name of file as found by searching the source path. NULL if not yet known. */ char *fullname; /* Object file from which this symbol information was read. */ struct objfile *objfile; /* Anything extra for this symtab. This is for target machines with special debugging info of some sort (which cannot just be represented in a normal symtab). */ #if defined (EXTRA_SYMTAB_INFO) EXTRA_SYMTAB_INFO #endif }; #define BLOCKVECTOR(symtab) (symtab)->blockvector #define LINETABLE(symtab) (symtab)->linetable /* Each source file that has not been fully read in is represented by a partial_symtab. This contains the information on where in the executable the debugging symbols for a specific file are, and a list of names of global symbols which are located in this file. They are all chained on partial symtab lists. Even after the source file has been read into a symtab, the partial_symtab remains around. They are allocated on an obstack, psymbol_obstack. FIXME, this is bad for dynamic linking or VxWorks- style execution of a bunch of .o's. */ struct partial_symtab { /* Chain of all existing partial symtabs. */ struct partial_symtab *next; /* Name of the source file which this partial_symtab defines */ char *filename; /* Information about the object file from which symbols should be read. */ struct objfile *objfile; /* Set of relocation offsets to apply to each section. */ struct section_offsets *section_offsets; /* Range of text addresses covered by this file; texthigh is the beginning of the next section. */ CORE_ADDR textlow; CORE_ADDR texthigh; /* Array of pointers to all of the partial_symtab's which this one depends on. Since this array can only be set to previous or the current (?) psymtab, this dependency tree is guaranteed not to have any loops. "depends on" means that symbols must be read for the dependencies before being read for this psymtab; this is for type references in stabs, where if foo.c includes foo.h, declarations in foo.h may use type numbers defined in foo.c. For other debugging formats there may be no need to use dependencies. */ struct partial_symtab **dependencies; int number_of_dependencies; /* Global symbol list. This list will be sorted after readin to improve access. Binary search will be the usual method of finding a symbol within it. globals_offset is an integer offset within global_psymbols[]. */ int globals_offset; int n_global_syms; /* Static symbol list. This list will *not* be sorted after readin; to find a symbol in it, exhaustive search must be used. This is reasonable because searches through this list will eventually lead to either the read in of a files symbols for real (assumed to take a *lot* of time; check) or an error (and we don't care how long errors take). This is an offset and size within static_psymbols[]. */ int statics_offset; int n_static_syms; /* Pointer to symtab eventually allocated for this source file, 0 if !readin or if we haven't looked for the symtab after it was readin. */ struct symtab *symtab; /* Pointer to function which will read in the symtab corresponding to this psymtab. */ void (*read_symtab) PARAMS ((struct partial_symtab *)); /* Information that lets read_symtab() locate the part of the symbol table that this psymtab corresponds to. This information is private to the format-dependent symbol reading routines. For further detail examine the various symbol reading modules. Should really be (void *) but is (char *) as with other such gdb variables. (FIXME) */ char *read_symtab_private; /* Non-zero if the symtab corresponding to this psymtab has been readin */ unsigned char readin; }; /* A fast way to get from a psymtab to its symtab (after the first time). */ #define PSYMTAB_TO_SYMTAB(pst) \ ((pst) -> symtab != NULL ? (pst) -> symtab : psymtab_to_symtab (pst)) /* The virtual function table is now an array of structures which have the form { int16 offset, delta; void *pfn; }. In normal virtual function tables, OFFSET is unused. DELTA is the amount which is added to the apparent object's base address in order to point to the actual object to which the virtual function should be applied. PFN is a pointer to the virtual function. Note that this macro is g++ specific (FIXME). */ #define VTBL_FNADDR_OFFSET 2 /* Macro that yields non-zero value iff NAME is the prefix for C++ operator names. If you leave out the parenthesis here you will lose! Currently 'o' 'p' CPLUS_MARKER is used for both the symbol in the symbol-file and the names in gdb's symbol table. Note that this macro is g++ specific (FIXME). */ #define OPNAME_PREFIX_P(NAME) \ ((NAME)[0] == 'o' && (NAME)[1] == 'p' && (NAME)[2] == CPLUS_MARKER) /* Macro that yields non-zero value iff NAME is the prefix for C++ vtbl names. Note that this macro is g++ specific (FIXME). '_vt$' is the old cfront-style vtables; '_VT$' is the new style, using thunks (where '$' is really CPLUS_MARKER). */ #define VTBL_PREFIX_P(NAME) \ ((NAME)[3] == CPLUS_MARKER && (NAME)[0] == '_' \ && (((NAME)[1] == 'V' && (NAME)[2] == 'T') \ || ((NAME)[1] == 'v' && (NAME)[2] == 't'))) /* Macro that yields non-zero value iff NAME is the prefix for C++ destructor names. Note that this macro is g++ specific (FIXME). */ #define DESTRUCTOR_PREFIX_P(NAME) \ ((NAME)[0] == '_' && (NAME)[1] == CPLUS_MARKER && (NAME)[2] == '_') /* External variables and functions for the objects described above. */ /* This symtab variable specifies the current file for printing source lines */ extern struct symtab *current_source_symtab; /* This is the next line to print for listing source lines. */ extern int current_source_line; /* See the comment in symfile.c about how current_objfile is used. */ extern struct objfile *current_objfile; /* From utils.c. */ extern int demangle; extern int asm_demangle; extern struct symtab * lookup_symtab PARAMS ((char *)); extern struct symbol * lookup_symbol PARAMS ((const char *, const struct block *, const enum namespace, int *, struct symtab **)); extern struct symbol * lookup_block_symbol PARAMS ((const struct block *, const char *, const enum namespace)); extern struct type * lookup_struct PARAMS ((char *, struct block *)); extern struct type * lookup_union PARAMS ((char *, struct block *)); extern struct type * lookup_enum PARAMS ((char *, struct block *)); extern struct symbol * block_function PARAMS ((struct block *)); extern struct symbol * find_pc_function PARAMS ((CORE_ADDR)); extern int find_pc_partial_function PARAMS ((CORE_ADDR, char **, CORE_ADDR *, CORE_ADDR *)); extern void clear_pc_function_cache PARAMS ((void)); extern struct partial_symtab * lookup_partial_symtab PARAMS ((char *)); extern struct partial_symtab * find_pc_psymtab PARAMS ((CORE_ADDR)); extern struct symtab * find_pc_symtab PARAMS ((CORE_ADDR)); extern struct partial_symbol * find_pc_psymbol PARAMS ((struct partial_symtab *, CORE_ADDR)); extern int find_pc_line_pc_range PARAMS ((CORE_ADDR, CORE_ADDR *, CORE_ADDR *)); extern int contained_in PARAMS ((struct block *, struct block *)); extern void reread_symbols PARAMS ((void)); /* Macro for name of symbol to indicate a file compiled with gcc. */ #ifndef GCC_COMPILED_FLAG_SYMBOL #define GCC_COMPILED_FLAG_SYMBOL "gcc_compiled." #endif /* Macro for name of symbol to indicate a file compiled with gcc2. */ #ifndef GCC2_COMPILED_FLAG_SYMBOL #define GCC2_COMPILED_FLAG_SYMBOL "gcc2_compiled." #endif /* Functions for dealing with the minimal symbol table, really a misc address<->symbol mapping for things we don't have debug symbols for. */ extern void prim_record_minimal_symbol PARAMS ((const char *, CORE_ADDR, enum minimal_symbol_type, struct objfile *)); extern void prim_record_minimal_symbol_and_info PARAMS ((const char *, CORE_ADDR, enum minimal_symbol_type, char *info, int section, struct objfile *)); extern struct minimal_symbol * lookup_minimal_symbol PARAMS ((const char *, struct objfile *)); extern struct minimal_symbol * lookup_minimal_symbol_by_pc PARAMS ((CORE_ADDR)); extern struct minimal_symbol * lookup_solib_trampoline_symbol_by_pc PARAMS ((CORE_ADDR)); extern CORE_ADDR find_solib_trampoline_target PARAMS ((CORE_ADDR)); extern void init_minimal_symbol_collection PARAMS ((void)); extern void discard_minimal_symbols PARAMS ((int)); extern void install_minimal_symbols PARAMS ((struct objfile *)); struct symtab_and_line { struct symtab *symtab; /* Line number. Line numbers start at 1 and proceed through symtab->nlines. 0 is never a valid line number; it is used to indicate that line number information is not available. */ int line; CORE_ADDR pc; CORE_ADDR end; }; struct symtabs_and_lines { struct symtab_and_line *sals; int nelts; }; /* Given a pc value, return line number it is in. Second arg nonzero means if pc is on the boundary use the previous statement's line number. */ extern struct symtab_and_line find_pc_line PARAMS ((CORE_ADDR, int)); /* Given an address, return the nearest symbol at or below it in memory. Optionally return the symtab it's from through 2nd arg, and the address in inferior memory of the symbol through 3rd arg. */ extern struct symbol * find_addr_symbol PARAMS ((CORE_ADDR, struct symtab **, CORE_ADDR *)); /* Given a symtab and line number, return the pc there. */ extern CORE_ADDR find_line_pc PARAMS ((struct symtab *, int)); extern int find_line_pc_range PARAMS ((struct symtab_and_line, CORE_ADDR *, CORE_ADDR *)); extern void resolve_sal_pc PARAMS ((struct symtab_and_line *)); /* Given a string, return the line specified by it. For commands like "list" and "breakpoint". */ extern struct symtabs_and_lines decode_line_spec PARAMS ((char *, int)); extern struct symtabs_and_lines decode_line_spec_1 PARAMS ((char *, int)); extern struct symtabs_and_lines decode_line_1 PARAMS ((char **, int, struct symtab *, int, char ***)); /* Symmisc.c */ #if MAINTENANCE_CMDS void maintenance_print_symbols PARAMS ((char *, int)); void maintenance_print_psymbols PARAMS ((char *, int)); void maintenance_print_msymbols PARAMS ((char *, int)); void maintenance_print_objfiles PARAMS ((char *, int)); void maintenance_check_symtabs PARAMS ((char *, int)); #endif extern void free_symtab PARAMS ((struct symtab *)); /* Symbol-reading stuff in symfile.c and solib.c. */ extern struct symtab * psymtab_to_symtab PARAMS ((struct partial_symtab *)); extern void clear_solib PARAMS ((void)); extern struct objfile * symbol_file_add PARAMS ((char *, int, CORE_ADDR, int, int, int)); /* source.c */ extern int identify_source_line PARAMS ((struct symtab *, int, int, CORE_ADDR)); extern void print_source_lines PARAMS ((struct symtab *, int, int, int)); extern void forget_cached_source_info PARAMS ((void)); extern void select_source_symtab PARAMS ((struct symtab *)); extern char **make_symbol_completion_list PARAMS ((char *, char *)); /* symtab.c */ extern struct partial_symtab * find_main_psymtab PARAMS ((void)); /* blockframe.c */ extern struct blockvector * blockvector_for_pc PARAMS ((CORE_ADDR, int *)); /* symfile.c */ extern void clear_symtab_users PARAMS ((void)); extern enum language deduce_language_from_filename PARAMS ((char *)); #endif /* !defined(SYMTAB_H) */ gdb-4.13/gdb/tahoe-pinsn.c 666 34562 1752 13431 5465306046 13714 0ustar fnfcygnus/* Print instructions for Tahoe target machines, for GDB. Copyright 1986, 1989, 1991, 1992 Free Software Foundation, Inc. Contributed by the State University of New York at Buffalo, by the Distributed Computer Systems Lab, Department of Computer Science, 1991. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "opcode/tahoe.h" /* Tahoe instructions are never longer than this. */ #define MAXLEN 62 /* Number of elements in the opcode table. */ #define NOPCODES (sizeof votstrs / sizeof votstrs[0]) static unsigned char *print_insn_arg (); /* Print the Tahoe instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { unsigned char buffer[MAXLEN]; register int i; register unsigned char *p; register char *d; read_memory (memaddr, buffer, MAXLEN); for (i = 0; i < NOPCODES; i++) if (votstrs[i].detail.code == buffer[0] || votstrs[i].detail.code == *(unsigned short *)buffer) break; /* Handle undefined instructions. */ if (i == NOPCODES) { fprintf_unfiltered (stream, "0%o", buffer[0]); return 1; } fprintf_unfiltered (stream, "%s", votstrs[i].name); /* Point at first byte of argument data, and at descriptor for first argument. */ p = buffer + 1 + (votstrs[i].detail.code >= 0x100); d = votstrs[i].detail.args; if (*d) fputc_unfiltered ('\t', stream); while (*d) { p = print_insn_arg (d, p, memaddr + (p - buffer), stream); d += 2; if (*d) fprintf_unfiltered (stream, ","); } return p - buffer; } /*******************************************************************/ static unsigned char * print_insn_arg (d, p, addr, stream) char *d; register char *p; CORE_ADDR addr; GDB_FILE *stream; { int temp1 = 0; register int regnum = *p & 0xf; float floatlitbuf; if (*d == 'b') { if (d[1] == 'b') fprintf_unfiltered (stream, "0x%x", addr + *p++ + 1); else { temp1 = *p; temp1 <<= 8; temp1 |= *(p + 1); fprintf_unfiltered (stream, "0x%x", addr + temp1 + 2); p += 2; } } else switch ((*p++ >> 4) & 0xf) { case 0: case 1: case 2: case 3: /* Literal (short immediate byte) mode */ if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h') { *(int *)&floatlitbuf = 0x4000 + ((p[-1] & 0x3f) << 4); fprintf_unfiltered (stream, "$%f", floatlitbuf); } else fprintf_unfiltered (stream, "$%d", p[-1] & 0x3f); break; case 4: /* Indexed */ p = (char *) print_insn_arg (d, p, addr + 1, stream); fprintf_unfiltered (stream, "[%s]", reg_names[regnum]); break; case 5: /* Register */ fprintf_unfiltered (stream, reg_names[regnum]); break; case 7: /* Autodecrement */ fputc_unfiltered ('-', stream); case 6: /* Register deferred */ fprintf_unfiltered (stream, "(%s)", reg_names[regnum]); break; case 9: /* Absolute Address & Autoincrement deferred */ fputc_unfiltered ('*', stream); if (regnum == PC_REGNUM) { temp1 = *p; temp1 <<= 8; temp1 |= *(p +1); fputc_unfiltered ('$', stream); print_address (temp1, stream); p += 4; break; } case 8: /*Immediate & Autoincrement SP */ if (regnum == 8) /*88 is Immediate Byte Mode*/ fprintf_unfiltered (stream, "$%d", *p++); else if (regnum == 9) /*89 is Immediate Word Mode*/ { temp1 = *p; temp1 <<= 8; temp1 |= *(p +1); fprintf_unfiltered (stream, "$%d", temp1); p += 2; } else if (regnum == PC_REGNUM) /*8F is Immediate Long Mode*/ { temp1 = *p; temp1 <<=8; temp1 |= *(p +1); temp1 <<=8; temp1 |= *(p +2); temp1 <<= 8; temp1 |= *(p +3); fprintf_unfiltered (stream, "$%d", temp1); p += 4; } else /*8E is Autoincrement SP Mode*/ fprintf_unfiltered (stream, "(%s)+", reg_names[regnum]); break; case 11: /* Register + Byte Displacement Deferred Mode*/ fputc_unfiltered ('*', stream); case 10: /* Register + Byte Displacement Mode*/ if (regnum == PC_REGNUM) print_address (addr + *p + 2, stream); else fprintf_unfiltered (stream, "%d(%s)", *p, reg_names[regnum]); p += 1; break; case 13: /* Register + Word Displacement Deferred Mode*/ fputc_unfiltered ('*', stream); case 12: /* Register + Word Displacement Mode*/ temp1 = *p; temp1 <<= 8; temp1 |= *(p +1); if (regnum == PC_REGNUM) print_address (addr + temp1 + 3, stream); else fprintf_unfiltered (stream, "%d(%s)", temp1, reg_names[regnum]); p += 2; break; case 15: /* Register + Long Displacement Deferred Mode*/ fputc_unfiltered ('*', stream); case 14: /* Register + Long Displacement Mode*/ temp1 = *p; temp1 <<= 8; temp1 |= *(p +1); temp1 <<= 8; temp1 |= *(p +2); temp1 <<= 8; temp1 |= *(p +3); if (regnum == PC_REGNUM) print_address (addr + temp1 + 5, stream); else fprintf_unfiltered (stream, "%d(%s)", temp1, reg_names[regnum]); p += 4; } return (unsigned char *) p; } gdb-4.13/gdb/target.c 666 34562 1752 101657 5611117632 12777 0ustar fnfcygnus/* Select target systems and architectures at runtime for GDB. Copyright 1990, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include #include "target.h" #include "gdbcmd.h" #include "symtab.h" #include "inferior.h" #include "bfd.h" #include "symfile.h" #include "objfiles.h" #include "wait.h" #include extern int errno; static void target_info PARAMS ((char *, int)); static void cleanup_target PARAMS ((struct target_ops *)); static void maybe_kill_then_create_inferior PARAMS ((char *, char *, char **)); static void maybe_kill_then_attach PARAMS ((char *, int)); static void kill_or_be_killed PARAMS ((int)); static void default_terminal_info PARAMS ((char *, int)); static int nosymbol PARAMS ((char *, CORE_ADDR *)); static void tcomplain PARAMS ((void)); static int nomemory PARAMS ((CORE_ADDR, char *, int, int)); static int return_zero PARAMS ((void)); static void ignore PARAMS ((void)); static void target_command PARAMS ((char *, int)); static struct target_ops * find_default_run_target PARAMS ((char *)); /* Pointer to array of target architecture structures; the size of the array; the current index into the array; the allocated size of the array. */ struct target_ops **target_structs; unsigned target_struct_size; unsigned target_struct_index; unsigned target_struct_allocsize; #define DEFAULT_ALLOCSIZE 10 /* The initial current target, so that there is always a semi-valid current target. */ struct target_ops dummy_target = {"None", "None", "", 0, 0, /* open, close */ find_default_attach, 0, /* attach, detach */ 0, 0, /* resume, wait */ 0, 0, 0, /* registers */ 0, 0, /* memory */ 0, 0, /* bkpts */ 0, 0, 0, 0, 0, /* terminal */ 0, 0, /* kill, load */ 0, /* lookup_symbol */ find_default_create_inferior, /* create_inferior */ 0, /* mourn_inferior */ 0, /* can_run */ 0, /* notice_signals */ dummy_stratum, 0, /* stratum, next */ 0, 0, 0, 0, 0, /* all mem, mem, stack, regs, exec */ 0, 0, /* section pointers */ OPS_MAGIC, }; /* The target structure we are currently using to talk to a process or file or whatever "inferior" we have. */ struct target_ops *current_target; /* The stack of target structures that have been pushed. */ struct target_ops **current_target_stack; /* Command list for target. */ static struct cmd_list_element *targetlist = NULL; /* Nonzero if we are debugging an attached outside process rather than an inferior. */ int attach_flag; /* The user just typed 'target' without the name of a target. */ /* ARGSUSED */ static void target_command (arg, from_tty) char *arg; int from_tty; { fputs_filtered ("Argument required (target name). Try `help target'\n", gdb_stdout); } /* Add a possible target architecture to the list. */ void add_target (t) struct target_ops *t; { if (t->to_magic != OPS_MAGIC) { fprintf_unfiltered(gdb_stderr, "Magic number of %s target struct wrong\n", t->to_shortname); abort(); } if (!target_structs) { target_struct_allocsize = DEFAULT_ALLOCSIZE; target_structs = (struct target_ops **) xmalloc (target_struct_allocsize * sizeof (*target_structs)); } if (target_struct_size >= target_struct_allocsize) { target_struct_allocsize *= 2; target_structs = (struct target_ops **) xrealloc ((char *) target_structs, target_struct_allocsize * sizeof (*target_structs)); } target_structs[target_struct_size++] = t; cleanup_target (t); if (targetlist == NULL) add_prefix_cmd ("target", class_run, target_command, "Connect to a target machine or process.\n\ The first argument is the type or protocol of the target machine.\n\ Remaining arguments are interpreted by the target protocol. For more\n\ information on the arguments for a particular protocol, type\n\ `help target ' followed by the protocol name.", &targetlist, "target ", 0, &cmdlist); add_cmd (t->to_shortname, no_class, t->to_open, t->to_doc, &targetlist); } /* Stub functions */ static void ignore () { } /* ARGSUSED */ static int nomemory (memaddr, myaddr, len, write) CORE_ADDR memaddr; char *myaddr; int len; int write; { errno = EIO; /* Can't read/write this location */ return 0; /* No bytes handled */ } static void tcomplain () { error ("You can't do that when your target is `%s'", current_target->to_shortname); } void noprocess () { error ("You can't do that without a process to debug"); } /* ARGSUSED */ static int nosymbol (name, addrp) char *name; CORE_ADDR *addrp; { return 1; /* Symbol does not exist in target env */ } /* ARGSUSED */ static void default_terminal_info (args, from_tty) char *args; int from_tty; { printf_unfiltered("No saved terminal information.\n"); } #if 0 /* With strata, this function is no longer needed. FIXME. */ /* This is the default target_create_inferior function. It looks up the stack for some target that cares to create inferiors, then calls it -- or complains if not found. */ static void upstack_create_inferior (exec, args, env) char *exec; char *args; char **env; { struct target_ops *t; for (t = current_target; t; t = t->to_next) { if (t->to_create_inferior != upstack_create_inferior) { t->to_create_inferior (exec, args, env); return; } } tcomplain(); } #endif /* This is the default target_create_inferior and target_attach function. If the current target is executing, it asks whether to kill it off. If this function returns without calling error(), it has killed off the target, and the operation should be attempted. */ static void kill_or_be_killed (from_tty) int from_tty; { if (target_has_execution) { printf_unfiltered ("You are already running a program:\n"); target_files_info (); if (query ("Kill it? ")) { target_kill (); if (target_has_execution) error ("Killing the program did not help."); return; } else { error ("Program not killed."); } } tcomplain(); } static void maybe_kill_then_attach (args, from_tty) char *args; int from_tty; { kill_or_be_killed (from_tty); target_attach (args, from_tty); } static void maybe_kill_then_create_inferior (exec, args, env) char *exec; char *args; char **env; { kill_or_be_killed (0); target_create_inferior (exec, args, env); } /* Clean up a target struct so it no longer has any zero pointers in it. We default entries, at least to stubs that print error messages. */ static void cleanup_target (t) struct target_ops *t; { /* Check magic number. If wrong, it probably means someone changed the struct definition, but not all the places that initialize one. */ if (t->to_magic != OPS_MAGIC) { fprintf_unfiltered(gdb_stderr, "Magic number of %s target struct wrong\n", t->to_shortname); abort(); } #define de_fault(field, value) \ if (!t->field) t->field = value /* FIELD DEFAULT VALUE */ de_fault (to_open, (void (*)())tcomplain); de_fault (to_close, (void (*)())ignore); de_fault (to_attach, maybe_kill_then_attach); de_fault (to_detach, (void (*)())ignore); de_fault (to_resume, (void (*)())noprocess); de_fault (to_wait, (int (*)())noprocess); de_fault (to_fetch_registers, (void (*)())ignore); de_fault (to_store_registers, (void (*)())noprocess); de_fault (to_prepare_to_store, (void (*)())noprocess); de_fault (to_xfer_memory, (int (*)())nomemory); de_fault (to_files_info, (void (*)())ignore); de_fault (to_insert_breakpoint, memory_insert_breakpoint); de_fault (to_remove_breakpoint, memory_remove_breakpoint); de_fault (to_terminal_init, ignore); de_fault (to_terminal_inferior, ignore); de_fault (to_terminal_ours_for_output,ignore); de_fault (to_terminal_ours, ignore); de_fault (to_terminal_info, default_terminal_info); de_fault (to_kill, (void (*)())noprocess); de_fault (to_load, (void (*)())tcomplain); de_fault (to_lookup_symbol, nosymbol); de_fault (to_create_inferior, maybe_kill_then_create_inferior); de_fault (to_mourn_inferior, (void (*)())noprocess); de_fault (to_can_run, return_zero); de_fault (to_notice_signals, (void (*)())ignore); de_fault (to_next, 0); de_fault (to_has_all_memory, 0); de_fault (to_has_memory, 0); de_fault (to_has_stack, 0); de_fault (to_has_registers, 0); de_fault (to_has_execution, 0); #undef de_fault } /* Push a new target type into the stack of the existing target accessors, possibly superseding some of the existing accessors. Result is zero if the pushed target ended up on top of the stack, nonzero if at least one target is on top of it. Rather than allow an empty stack, we always have the dummy target at the bottom stratum, so we can call the function vectors without checking them. */ int push_target (t) struct target_ops *t; { struct target_ops *st, *prev; for (prev = 0, st = current_target; st; prev = st, st = st->to_next) { if ((int)(t->to_stratum) >= (int)(st->to_stratum)) break; } while (t->to_stratum == st->to_stratum) { /* There's already something on this stratum. Close it off. */ (st->to_close) (0); if (prev) prev->to_next = st->to_next; /* Unchain old target_ops */ else current_target = st->to_next; /* Unchain first on list */ st = st->to_next; } /* We have removed all targets in our stratum, now add ourself. */ t->to_next = st; if (prev) prev->to_next = t; else current_target = t; cleanup_target (current_target); return prev != 0; } /* Remove a target_ops vector from the stack, wherever it may be. Return how many times it was removed (0 or 1 unless bug). */ int unpush_target (t) struct target_ops *t; { struct target_ops *u, *v; int result = 0; for (u = current_target, v = 0; u; v = u, u = u->to_next) if (u == t) { if (v == 0) pop_target(); /* unchain top copy */ else { (t->to_close)(0); /* Let it clean up */ v->to_next = t->to_next; /* unchain middle copy */ } result++; } return result; } void pop_target () { (current_target->to_close)(0); /* Let it clean up */ current_target = current_target->to_next; #if 0 /* This will dump core if ever called--push_target expects current_target to be non-NULL. But I don't think it's needed; I don't see how the dummy_target could ever be removed from the stack. */ if (!current_target) /* At bottom, push dummy. */ push_target (&dummy_target); #endif } #undef MIN #define MIN(A, B) (((A) <= (B)) ? (A) : (B)) /* target_read_string -- read a null terminated string, up to LEN bytes, from MEMADDR in target. Set *ERRNOP to the errno code, or 0 if successful. Set *STRING to a pointer to malloc'd memory containing the data; the caller is responsible for freeing it. Return the number of bytes successfully read. */ int target_read_string (memaddr, string, len, errnop) CORE_ADDR memaddr; char **string; int len; int *errnop; { int tlen, origlen, offset, i; char buf[4]; int errcode = 0; char *buffer; int buffer_allocated; char *bufptr; unsigned int nbytes_read = 0; /* Small for testing. */ buffer_allocated = 4; buffer = xmalloc (buffer_allocated); bufptr = buffer; origlen = len; while (len > 0) { tlen = MIN (len, 4 - (memaddr & 3)); offset = memaddr & 3; errcode = target_xfer_memory (memaddr & ~3, buf, 4, 0); if (errcode != 0) goto done; if (bufptr - buffer + tlen > buffer_allocated) { unsigned int bytes; bytes = bufptr - buffer; buffer_allocated *= 2; buffer = xrealloc (buffer, buffer_allocated); bufptr = buffer + bytes; } for (i = 0; i < tlen; i++) { *bufptr++ = buf[i + offset]; if (buf[i + offset] == '\000') { nbytes_read += i + 1; goto done; } } memaddr += tlen; len -= tlen; nbytes_read += tlen; } done: if (errnop != NULL) *errnop = errcode; if (string != NULL) *string = buffer; return nbytes_read; } /* Read LEN bytes of target memory at address MEMADDR, placing the results in GDB's memory at MYADDR. Returns either 0 for success or an errno value if any error occurs. If an error occurs, no guarantee is made about the contents of the data at MYADDR. In particular, the caller should not depend upon partial reads filling the buffer with good data. There is no way for the caller to know how much good data might have been transfered anyway. Callers that can deal with partial reads should call target_read_memory_partial. */ int target_read_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { return target_xfer_memory (memaddr, myaddr, len, 0); } /* Read LEN bytes of target memory at address MEMADDR, placing the results in GDB's memory at MYADDR. Returns a count of the bytes actually read, and optionally an errno value in the location pointed to by ERRNOPTR if ERRNOPTR is non-null. */ int target_read_memory_partial (memaddr, myaddr, len, errnoptr) CORE_ADDR memaddr; char *myaddr; int len; int *errnoptr; { int nread; /* Number of bytes actually read. */ int errcode; /* Error from last read. */ /* First try a complete read. */ errcode = target_xfer_memory (memaddr, myaddr, len, 0); if (errcode == 0) { /* Got it all. */ nread = len; } else { /* Loop, reading one byte at a time until we get as much as we can. */ for (errcode = 0, nread = 0; len > 0 && errcode == 0; nread++, len--) { errcode = target_xfer_memory (memaddr++, myaddr++, 1, 0); } /* If an error, the last read was unsuccessful, so adjust count. */ if (errcode != 0) { nread--; } } if (errnoptr != NULL) { *errnoptr = errcode; } return (nread); } int target_write_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { return target_xfer_memory (memaddr, myaddr, len, 1); } /* Move memory to or from the targets. Iterate until all of it has been moved, if necessary. The top target gets priority; anything it doesn't want, is offered to the next one down, etc. Note the business with curlen: if an early target says "no, but I have a boundary overlapping this xfer" then we shorten what we offer to the subsequent targets so the early guy will get a chance at the tail before the subsequent ones do. Result is 0 or errno value. */ int target_xfer_memory (memaddr, myaddr, len, write) CORE_ADDR memaddr; char *myaddr; int len; int write; { int curlen; int res; struct target_ops *t; /* to_xfer_memory is not guaranteed to set errno, even when it returns 0. */ errno = 0; /* The quick case is that the top target does it all. */ res = current_target->to_xfer_memory (memaddr, myaddr, len, write, current_target); if (res == len) return 0; if (res > 0) goto bump; /* If res <= 0 then we call it again in the loop. Ah well. */ for (; len > 0;) { curlen = len; /* Want to do it all */ for (t = current_target; t; t = t->to_has_all_memory? 0: t->to_next) { res = t->to_xfer_memory(memaddr, myaddr, curlen, write, t); if (res > 0) break; /* Handled all or part of xfer */ if (res == 0) continue; /* Handled none */ curlen = -res; /* Could handle once we get past res bytes */ } if (res <= 0) { /* If this address is for nonexistent memory, read zeros if reading, or do nothing if writing. Return error. */ if (!write) memset (myaddr, 0, len); if (errno == 0) return EIO; else return errno; } bump: memaddr += res; myaddr += res; len -= res; } return 0; /* We managed to cover it all somehow. */ } /* ARGSUSED */ static void target_info (args, from_tty) char *args; int from_tty; { struct target_ops *t; int has_all_mem = 0; if (symfile_objfile != NULL) printf_unfiltered ("Symbols from \"%s\".\n", symfile_objfile->name); #ifdef FILES_INFO_HOOK if (FILES_INFO_HOOK ()) return; #endif for (t = current_target; t; t = t->to_next) { if ((int)(t->to_stratum) <= (int)dummy_stratum) continue; if (has_all_mem) printf_unfiltered("\tWhile running this, GDB does not access memory from...\n"); printf_unfiltered("%s:\n", t->to_longname); (t->to_files_info)(t); has_all_mem = t->to_has_all_memory; } } /* This is to be called by the open routine before it does anything. */ void target_preopen (from_tty) int from_tty; { dont_repeat(); if (target_has_execution) { if (query ("A program is being debugged already. Kill it? ")) target_kill (); else error ("Program not killed."); } /* Calling target_kill may remove the target from the stack. But if it doesn't (which seems like a win for UDI), remove it now. */ if (target_has_execution) pop_target (); } /* Detach a target after doing deferred register stores. */ void target_detach (args, from_tty) char *args; int from_tty; { /* Handle any optimized stores to the inferior. */ #ifdef DO_DEFERRED_STORES DO_DEFERRED_STORES; #endif (current_target->to_detach) (args, from_tty); } void target_link (modname, t_reloc) char *modname; CORE_ADDR *t_reloc; { if (STREQ(current_target->to_shortname, "rombug")) { (current_target->to_lookup_symbol) (modname, t_reloc); if (*t_reloc == 0) error("Unable to link to %s and get relocation in rombug", modname); } else *t_reloc = (CORE_ADDR)-1; } /* Look through the list of possible targets for a target that can execute a run or attach command without any other data. This is used to locate the default process stratum. Result is always valid (error() is called for errors). */ static struct target_ops * find_default_run_target (do_mesg) char *do_mesg; { struct target_ops **t; struct target_ops *runable = NULL; int count; count = 0; for (t = target_structs; t < target_structs + target_struct_size; ++t) { if (target_can_run(*t)) { runable = *t; ++count; } } if (count != 1) error ("Don't know how to %s. Try \"help target\".", do_mesg); return runable; } void find_default_attach (args, from_tty) char *args; int from_tty; { struct target_ops *t; t = find_default_run_target("attach"); (t->to_attach) (args, from_tty); return; } void find_default_create_inferior (exec_file, allargs, env) char *exec_file; char *allargs; char **env; { struct target_ops *t; t = find_default_run_target("run"); (t->to_create_inferior) (exec_file, allargs, env); return; } static int return_zero () { return 0; } struct target_ops * find_core_target () { struct target_ops **t; struct target_ops *runable = NULL; int count; count = 0; for (t = target_structs; t < target_structs + target_struct_size; ++t) { if ((*t)->to_stratum == core_stratum) { runable = *t; ++count; } } return(count == 1 ? runable : NULL); } /* The inferior process has died. Long live the inferior! */ void generic_mourn_inferior () { extern int show_breakpoint_hit_counts; inferior_pid = 0; attach_flag = 0; breakpoint_init_inferior (); registers_changed (); #ifdef CLEAR_DEFERRED_STORES /* Delete any pending stores to the inferior... */ CLEAR_DEFERRED_STORES; #endif reopen_exec_file (); reinit_frame_cache (); /* It is confusing to the user for ignore counts to stick around from previous runs of the inferior. So clear them. */ /* However, it is more confusing for the ignore counts to disappear when using hit counts. So don't clear them if we're counting hits. */ if (!show_breakpoint_hit_counts) breakpoint_clear_ignore_counts (); } /* This table must match in order and size the signals in enum target_signal in target.h. */ static struct { char *name; char *string; } signals [] = { {"0", "Signal 0"}, {"SIGHUP", "Hangup"}, {"SIGINT", "Interrupt"}, {"SIGQUIT", "Quit"}, {"SIGILL", "Illegal instruction"}, {"SIGTRAP", "Trace/breakpoint trap"}, {"SIGABRT", "Aborted"}, {"SIGEMT", "Emulation trap"}, {"SIGFPE", "Arithmetic exception"}, {"SIGKILL", "Killed"}, {"SIGBUS", "Bus error"}, {"SIGSEGV", "Segmentation fault"}, {"SIGSYS", "Bad system call"}, {"SIGPIPE", "Broken pipe"}, {"SIGALRM", "Alarm clock"}, {"SIGTERM", "Terminated"}, {"SIGURG", "Urgent I/O condition"}, {"SIGSTOP", "Stopped (signal)"}, {"SIGTSTP", "Stopped (user)"}, {"SIGCONT", "Continued"}, {"SIGCHLD", "Child status changed"}, {"SIGTTIN", "Stopped (tty input)"}, {"SIGTTOU", "Stopped (tty output)"}, {"SIGIO", "I/O possible"}, {"SIGXCPU", "CPU time limit exceeded"}, {"SIGXFSZ", "File size limit exceeded"}, {"SIGVTALRM", "Virtual timer expired"}, {"SIGPROF", "Profiling timer expired"}, {"SIGWINCH", "Window size changed"}, {"SIGLOST", "Resource lost"}, {"SIGUSR1", "User defined signal 1"}, {"SIGUSR2", "User defined signal 2"}, {"SIGPWR", "Power fail/restart"}, {"SIGPOLL", "Pollable event occurred"}, {"SIGWIND", "SIGWIND"}, {"SIGPHONE", "SIGPHONE"}, {"SIGWAITING", "Process's LWPs are blocked"}, {"SIGLWP", "Signal LWP"}, {"SIGDANGER", "Swap space dangerously low"}, {"SIGGRANT", "Monitor mode granted"}, {"SIGRETRACT", "Need to relinguish monitor mode"}, {"SIGMSG", "Monitor mode data available"}, {"SIGSOUND", "Sound completed"}, {"SIGSAK", "Secure attention"}, {NULL, "Unknown signal"}, {NULL, "Internal error: printing TARGET_SIGNAL_DEFAULT"}, /* Last entry, used to check whether the table is the right size. */ {NULL, "TARGET_SIGNAL_MAGIC"} }; /* Return the string for a signal. */ char * target_signal_to_string (sig) enum target_signal sig; { return signals[sig].string; } /* Return the name for a signal. */ char * target_signal_to_name (sig) enum target_signal sig; { if (sig == TARGET_SIGNAL_UNKNOWN) /* I think the code which prints this will always print it along with the string, so no need to be verbose. */ return "?"; return signals[sig].name; } /* Given a name, return its signal. */ enum target_signal target_signal_from_name (name) char *name; { enum target_signal sig; /* It's possible we also should allow "SIGCLD" as well as "SIGCHLD" for TARGET_SIGNAL_SIGCHLD. SIGIOT, on the other hand, is more questionable; seems like by now people should call it SIGABRT instead. */ /* This ugly cast brought to you by the native VAX compiler. */ for (sig = TARGET_SIGNAL_HUP; signals[sig].name != NULL; sig = (enum target_signal)((int)sig + 1)) if (STREQ (name, signals[sig].name)) return sig; return TARGET_SIGNAL_UNKNOWN; } /* The following functions are to help certain targets deal with the signal/waitstatus stuff. They could just as well be in a file called native-utils.c or unixwaitstatus-utils.c or whatever. */ /* Convert host signal to our signals. */ enum target_signal target_signal_from_host (hostsig) int hostsig; { /* A switch statement would make sense but would require special kludges to deal with the cases where more than one signal has the same number. */ if (hostsig == 0) return TARGET_SIGNAL_0; #if defined (SIGHUP) if (hostsig == SIGHUP) return TARGET_SIGNAL_HUP; #endif #if defined (SIGINT) if (hostsig == SIGINT) return TARGET_SIGNAL_INT; #endif #if defined (SIGQUIT) if (hostsig == SIGQUIT) return TARGET_SIGNAL_QUIT; #endif #if defined (SIGILL) if (hostsig == SIGILL) return TARGET_SIGNAL_ILL; #endif #if defined (SIGTRAP) if (hostsig == SIGTRAP) return TARGET_SIGNAL_TRAP; #endif #if defined (SIGABRT) if (hostsig == SIGABRT) return TARGET_SIGNAL_ABRT; #endif #if defined (SIGEMT) if (hostsig == SIGEMT) return TARGET_SIGNAL_EMT; #endif #if defined (SIGFPE) if (hostsig == SIGFPE) return TARGET_SIGNAL_FPE; #endif #if defined (SIGKILL) if (hostsig == SIGKILL) return TARGET_SIGNAL_KILL; #endif #if defined (SIGBUS) if (hostsig == SIGBUS) return TARGET_SIGNAL_BUS; #endif #if defined (SIGSEGV) if (hostsig == SIGSEGV) return TARGET_SIGNAL_SEGV; #endif #if defined (SIGSYS) if (hostsig == SIGSYS) return TARGET_SIGNAL_SYS; #endif #if defined (SIGPIPE) if (hostsig == SIGPIPE) return TARGET_SIGNAL_PIPE; #endif #if defined (SIGALRM) if (hostsig == SIGALRM) return TARGET_SIGNAL_ALRM; #endif #if defined (SIGTERM) if (hostsig == SIGTERM) return TARGET_SIGNAL_TERM; #endif #if defined (SIGUSR1) if (hostsig == SIGUSR1) return TARGET_SIGNAL_USR1; #endif #if defined (SIGUSR2) if (hostsig == SIGUSR2) return TARGET_SIGNAL_USR2; #endif #if defined (SIGCLD) if (hostsig == SIGCLD) return TARGET_SIGNAL_CHLD; #endif #if defined (SIGCHLD) if (hostsig == SIGCHLD) return TARGET_SIGNAL_CHLD; #endif #if defined (SIGPWR) if (hostsig == SIGPWR) return TARGET_SIGNAL_PWR; #endif #if defined (SIGWINCH) if (hostsig == SIGWINCH) return TARGET_SIGNAL_WINCH; #endif #if defined (SIGURG) if (hostsig == SIGURG) return TARGET_SIGNAL_URG; #endif #if defined (SIGIO) if (hostsig == SIGIO) return TARGET_SIGNAL_IO; #endif #if defined (SIGPOLL) if (hostsig == SIGPOLL) return TARGET_SIGNAL_POLL; #endif #if defined (SIGSTOP) if (hostsig == SIGSTOP) return TARGET_SIGNAL_STOP; #endif #if defined (SIGTSTP) if (hostsig == SIGTSTP) return TARGET_SIGNAL_TSTP; #endif #if defined (SIGCONT) if (hostsig == SIGCONT) return TARGET_SIGNAL_CONT; #endif #if defined (SIGTTIN) if (hostsig == SIGTTIN) return TARGET_SIGNAL_TTIN; #endif #if defined (SIGTTOU) if (hostsig == SIGTTOU) return TARGET_SIGNAL_TTOU; #endif #if defined (SIGVTALRM) if (hostsig == SIGVTALRM) return TARGET_SIGNAL_VTALRM; #endif #if defined (SIGPROF) if (hostsig == SIGPROF) return TARGET_SIGNAL_PROF; #endif #if defined (SIGXCPU) if (hostsig == SIGXCPU) return TARGET_SIGNAL_XCPU; #endif #if defined (SIGXFSZ) if (hostsig == SIGXFSZ) return TARGET_SIGNAL_XFSZ; #endif #if defined (SIGWIND) if (hostsig == SIGWIND) return TARGET_SIGNAL_WIND; #endif #if defined (SIGPHONE) if (hostsig == SIGPHONE) return TARGET_SIGNAL_PHONE; #endif #if defined (SIGLOST) if (hostsig == SIGLOST) return TARGET_SIGNAL_LOST; #endif #if defined (SIGWAITING) if (hostsig == SIGWAITING) return TARGET_SIGNAL_WAITING; #endif #if defined (SIGLWP) if (hostsig == SIGLWP) return TARGET_SIGNAL_LWP; #endif #if defined (SIGDANGER) if (hostsig == SIGDANGER) return TARGET_SIGNAL_DANGER; #endif #if defined (SIGGRANT) if (hostsig == SIGGRANT) return TARGET_SIGNAL_GRANT; #endif #if defined (SIGRETRACT) if (hostsig == SIGRETRACT) return TARGET_SIGNAL_RETRACT; #endif #if defined (SIGMSG) if (hostsig == SIGMSG) return TARGET_SIGNAL_MSG; #endif #if defined (SIGSOUND) if (hostsig == SIGSOUND) return TARGET_SIGNAL_SOUND; #endif #if defined (SIGSAK) if (hostsig == SIGSAK) return TARGET_SIGNAL_SAK; #endif return TARGET_SIGNAL_UNKNOWN; } int target_signal_to_host (oursig) enum target_signal oursig; { switch (oursig) { case TARGET_SIGNAL_0: return 0; #if defined (SIGHUP) case TARGET_SIGNAL_HUP: return SIGHUP; #endif #if defined (SIGINT) case TARGET_SIGNAL_INT: return SIGINT; #endif #if defined (SIGQUIT) case TARGET_SIGNAL_QUIT: return SIGQUIT; #endif #if defined (SIGILL) case TARGET_SIGNAL_ILL: return SIGILL; #endif #if defined (SIGTRAP) case TARGET_SIGNAL_TRAP: return SIGTRAP; #endif #if defined (SIGABRT) case TARGET_SIGNAL_ABRT: return SIGABRT; #endif #if defined (SIGEMT) case TARGET_SIGNAL_EMT: return SIGEMT; #endif #if defined (SIGFPE) case TARGET_SIGNAL_FPE: return SIGFPE; #endif #if defined (SIGKILL) case TARGET_SIGNAL_KILL: return SIGKILL; #endif #if defined (SIGBUS) case TARGET_SIGNAL_BUS: return SIGBUS; #endif #if defined (SIGSEGV) case TARGET_SIGNAL_SEGV: return SIGSEGV; #endif #if defined (SIGSYS) case TARGET_SIGNAL_SYS: return SIGSYS; #endif #if defined (SIGPIPE) case TARGET_SIGNAL_PIPE: return SIGPIPE; #endif #if defined (SIGALRM) case TARGET_SIGNAL_ALRM: return SIGALRM; #endif #if defined (SIGTERM) case TARGET_SIGNAL_TERM: return SIGTERM; #endif #if defined (SIGUSR1) case TARGET_SIGNAL_USR1: return SIGUSR1; #endif #if defined (SIGUSR2) case TARGET_SIGNAL_USR2: return SIGUSR2; #endif #if defined (SIGCHLD) || defined (SIGCLD) case TARGET_SIGNAL_CHLD: #if defined (SIGCHLD) return SIGCHLD; #else return SIGCLD; #endif #endif /* SIGCLD or SIGCHLD */ #if defined (SIGPWR) case TARGET_SIGNAL_PWR: return SIGPWR; #endif #if defined (SIGWINCH) case TARGET_SIGNAL_WINCH: return SIGWINCH; #endif #if defined (SIGURG) case TARGET_SIGNAL_URG: return SIGURG; #endif #if defined (SIGIO) case TARGET_SIGNAL_IO: return SIGIO; #endif #if defined (SIGPOLL) case TARGET_SIGNAL_POLL: return SIGPOLL; #endif #if defined (SIGSTOP) case TARGET_SIGNAL_STOP: return SIGSTOP; #endif #if defined (SIGTSTP) case TARGET_SIGNAL_TSTP: return SIGTSTP; #endif #if defined (SIGCONT) case TARGET_SIGNAL_CONT: return SIGCONT; #endif #if defined (SIGTTIN) case TARGET_SIGNAL_TTIN: return SIGTTIN; #endif #if defined (SIGTTOU) case TARGET_SIGNAL_TTOU: return SIGTTOU; #endif #if defined (SIGVTALRM) case TARGET_SIGNAL_VTALRM: return SIGVTALRM; #endif #if defined (SIGPROF) case TARGET_SIGNAL_PROF: return SIGPROF; #endif #if defined (SIGXCPU) case TARGET_SIGNAL_XCPU: return SIGXCPU; #endif #if defined (SIGXFSZ) case TARGET_SIGNAL_XFSZ: return SIGXFSZ; #endif #if defined (SIGWIND) case TARGET_SIGNAL_WIND: return SIGWIND; #endif #if defined (SIGPHONE) case TARGET_SIGNAL_PHONE: return SIGPHONE; #endif #if defined (SIGLOST) case TARGET_SIGNAL_LOST: return SIGLOST; #endif #if defined (SIGWAITING) case TARGET_SIGNAL_WAITING: return SIGWAITING; #endif #if defined (SIGLWP) case TARGET_SIGNAL_LWP: return SIGLWP; #endif #if defined (SIGDANGER) case TARGET_SIGNAL_DANGER: return SIGDANGER; #endif #if defined (SIGGRANT) case TARGET_SIGNAL_GRANT: return SIGGRANT; #endif #if defined (SIGRETRACT) case TARGET_SIGNAL_RETRACT: return SIGRETRACT; #endif #if defined (SIGMSG) case TARGET_SIGNAL_MSG: return SIGMSG; #endif #if defined (SIGSOUND) case TARGET_SIGNAL_SOUND: return SIGSOUND; #endif #if defined (SIGSAK) case TARGET_SIGNAL_SAK: return SIGSAK; #endif default: /* The user might be trying to do "signal SIGSAK" where this system doesn't have SIGSAK. */ warning ("Signal %s does not exist on this system.\n", target_signal_to_name (oursig)); return 0; } } /* Helper function for child_wait and the Lynx derivatives of child_wait. HOSTSTATUS is the waitstatus from wait() or the equivalent; store our translation of that in OURSTATUS. */ void store_waitstatus (ourstatus, hoststatus) struct target_waitstatus *ourstatus; int hoststatus; { #ifdef CHILD_SPECIAL_WAITSTATUS /* CHILD_SPECIAL_WAITSTATUS should return nonzero and set *OURSTATUS if it wants to deal with hoststatus. */ if (CHILD_SPECIAL_WAITSTATUS (ourstatus, hoststatus)) return; #endif if (WIFEXITED (hoststatus)) { ourstatus->kind = TARGET_WAITKIND_EXITED; ourstatus->value.integer = WEXITSTATUS (hoststatus); } else if (!WIFSTOPPED (hoststatus)) { ourstatus->kind = TARGET_WAITKIND_SIGNALLED; ourstatus->value.sig = target_signal_from_host (WTERMSIG (hoststatus)); } else { ourstatus->kind = TARGET_WAITKIND_STOPPED; ourstatus->value.sig = target_signal_from_host (WSTOPSIG (hoststatus)); } } /* Returns zero to leave the inferior alone, one to interrupt it. */ int (*target_activity_function) PARAMS ((void)); int target_activity_fd; /* Convert a normal process ID to a string. Returns the string in a static buffer. */ char * normal_pid_to_str (pid) int pid; { static char buf[30]; sprintf (buf, "process %d", pid); return buf; } static char targ_desc[] = "Names of targets and files being debugged.\n\ Shows the entire stack of targets currently in use (including the exec-file,\n\ core-file, and process, if any), as well as the symbol file name."; void _initialize_targets () { current_target = &dummy_target; cleanup_target (current_target); add_info ("target", target_info, targ_desc); add_info ("files", target_info, targ_desc); if (!STREQ (signals[TARGET_SIGNAL_LAST].string, "TARGET_SIGNAL_MAGIC")) abort (); } gdb-4.13/gdb/target.h 666 34562 1752 56226 5567030747 13000 0ustar fnfcygnus/* Interface between GDB and target environments, including files and processes Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by John Gilmore. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (TARGET_H) #define TARGET_H /* This include file defines the interface between the main part of the debugger, and the part which is target-specific, or specific to the communications interface between us and the target. A TARGET is an interface between the debugger and a particular kind of file or process. Targets can be STACKED in STRATA, so that more than one target can potentially respond to a request. In particular, memory accesses will walk down the stack of targets until they find a target that is interested in handling that particular address. STRATA are artificial boundaries on the stack, within which particular kinds of targets live. Strata exist so that people don't get confused by pushing e.g. a process target and then a file target, and wondering why they can't see the current values of variables any more (the file target is handling them and they never get to the process target). So when you push a file target, it goes into the file stratum, which is always below the process stratum. */ #include "bfd.h" enum strata { dummy_stratum, /* The lowest of the low */ file_stratum, /* Executable files, etc */ core_stratum, /* Core dump files */ process_stratum /* Executing processes */ }; /* Stuff for target_wait. */ /* Generally, what has the program done? */ enum target_waitkind { /* The program has exited. The exit status is in value.integer. */ TARGET_WAITKIND_EXITED, /* The program has stopped with a signal. Which signal is in value.sig. */ TARGET_WAITKIND_STOPPED, /* The program has terminated with a signal. Which signal is in value.sig. */ TARGET_WAITKIND_SIGNALLED, /* The program is letting us know that it dynamically loaded something (e.g. it called load(2) on AIX). */ TARGET_WAITKIND_LOADED, /* Nothing happened, but we stopped anyway. This perhaps should be handled within target_wait, but I'm not sure target_wait should be resuming the inferior. */ TARGET_WAITKIND_SPURIOUS }; /* The numbering of these signals is chosen to match traditional unix signals (insofar as various unices use the same numbers, anyway). It is also the numbering of the GDB remote protocol. Other remote protocols, if they use a different numbering, should make sure to translate appropriately. */ /* This is based strongly on Unix/POSIX signals for several reasons: (1) This set of signals represents a widely-accepted attempt to represent events of this sort in a portable fashion, (2) we want a signal to make it from wait to child_wait to the user intact, (3) many remote protocols use a similar encoding. However, it is recognized that this set of signals has limitations (such as not distinguishing between various kinds of SIGSEGV, or not distinguishing hitting a breakpoint from finishing a single step). So in the future we may get around this either by adding additional signals for breakpoint, single-step, etc., or by adding signal codes; the latter seems more in the spirit of what BSD, System V, etc. are doing to address these issues. */ /* For an explanation of what each signal means, see target_signal_to_string. */ enum target_signal { /* Used some places (e.g. stop_signal) to record the concept that there is no signal. */ TARGET_SIGNAL_0 = 0, TARGET_SIGNAL_FIRST = 0, TARGET_SIGNAL_HUP = 1, TARGET_SIGNAL_INT = 2, TARGET_SIGNAL_QUIT = 3, TARGET_SIGNAL_ILL = 4, TARGET_SIGNAL_TRAP = 5, TARGET_SIGNAL_ABRT = 6, TARGET_SIGNAL_EMT = 7, TARGET_SIGNAL_FPE = 8, TARGET_SIGNAL_KILL = 9, TARGET_SIGNAL_BUS = 10, TARGET_SIGNAL_SEGV = 11, TARGET_SIGNAL_SYS = 12, TARGET_SIGNAL_PIPE = 13, TARGET_SIGNAL_ALRM = 14, TARGET_SIGNAL_TERM = 15, TARGET_SIGNAL_URG = 16, TARGET_SIGNAL_STOP = 17, TARGET_SIGNAL_TSTP = 18, TARGET_SIGNAL_CONT = 19, TARGET_SIGNAL_CHLD = 20, TARGET_SIGNAL_TTIN = 21, TARGET_SIGNAL_TTOU = 22, TARGET_SIGNAL_IO = 23, TARGET_SIGNAL_XCPU = 24, TARGET_SIGNAL_XFSZ = 25, TARGET_SIGNAL_VTALRM = 26, TARGET_SIGNAL_PROF = 27, TARGET_SIGNAL_WINCH = 28, TARGET_SIGNAL_LOST = 29, TARGET_SIGNAL_USR1 = 30, TARGET_SIGNAL_USR2 = 31, TARGET_SIGNAL_PWR = 32, /* Similar to SIGIO. Perhaps they should have the same number. */ TARGET_SIGNAL_POLL = 33, TARGET_SIGNAL_WIND = 34, TARGET_SIGNAL_PHONE = 35, TARGET_SIGNAL_WAITING = 36, TARGET_SIGNAL_LWP = 37, TARGET_SIGNAL_DANGER = 38, TARGET_SIGNAL_GRANT = 39, TARGET_SIGNAL_RETRACT = 40, TARGET_SIGNAL_MSG = 41, TARGET_SIGNAL_SOUND = 42, TARGET_SIGNAL_SAK = 43, /* Some signal we don't know about. */ TARGET_SIGNAL_UNKNOWN, /* Use whatever signal we use when one is not specifically specified (for passing to proceed and so on). */ TARGET_SIGNAL_DEFAULT, /* Last and unused enum value, for sizing arrays, etc. */ TARGET_SIGNAL_LAST }; struct target_waitstatus { enum target_waitkind kind; /* Exit status or signal number. */ union { int integer; enum target_signal sig; } value; }; /* Return the string for a signal. */ extern char *target_signal_to_string PARAMS ((enum target_signal)); /* Return the name (SIGHUP, etc.) for a signal. */ extern char *target_signal_to_name PARAMS ((enum target_signal)); /* Given a name (SIGHUP, etc.), return its signal. */ enum target_signal target_signal_from_name PARAMS ((char *)); /* If certain kinds of activity happen, target_wait should perform callbacks. */ /* Right now we just call (*TARGET_ACTIVITY_FUNCTION) if I/O is possible on TARGET_ACTIVITY_FD. */ extern int target_activity_fd; /* Returns zero to leave the inferior alone, one to interrupt it. */ extern int (*target_activity_function) PARAMS ((void)); struct target_ops { char *to_shortname; /* Name this target type */ char *to_longname; /* Name for printing */ char *to_doc; /* Documentation. Does not include trailing newline, and starts with a one-line descrip- tion (probably similar to to_longname). */ void (*to_open) PARAMS ((char *, int)); void (*to_close) PARAMS ((int)); void (*to_attach) PARAMS ((char *, int)); void (*to_detach) PARAMS ((char *, int)); void (*to_resume) PARAMS ((int, int, enum target_signal)); int (*to_wait) PARAMS ((int, struct target_waitstatus *)); void (*to_fetch_registers) PARAMS ((int)); void (*to_store_registers) PARAMS ((int)); void (*to_prepare_to_store) PARAMS ((void)); /* Transfer LEN bytes of memory between GDB address MYADDR and target address MEMADDR. If WRITE, transfer them to the target, else transfer them from the target. TARGET is the target from which we get this function. Return value, N, is one of the following: 0 means that we can't handle this. If errno has been set, it is the error which prevented us from doing it (FIXME: What about bfd_error?). positive (call it N) means that we have transferred N bytes starting at MEMADDR. We might be able to handle more bytes beyond this length, but no promises. negative (call its absolute value N) means that we cannot transfer right at MEMADDR, but we could transfer at least something at MEMADDR + N. */ int (*to_xfer_memory) PARAMS ((CORE_ADDR memaddr, char *myaddr, int len, int write, struct target_ops * target)); #if 0 /* Enable this after 4.12. */ /* Search target memory. Start at STARTADDR and take LEN bytes of target memory, and them with MASK, and compare to DATA. If they match, set *ADDR_FOUND to the address we found it at, store the data we found at LEN bytes starting at DATA_FOUND, and return. If not, add INCREMENT to the search address and keep trying until the search address is outside of the range [LORANGE,HIRANGE). If we don't find anything, set *ADDR_FOUND to (CORE_ADDR)0 and return. */ void (*to_search) PARAMS ((int len, char *data, char *mask, CORE_ADDR startaddr, int increment, CORE_ADDR lorange, CORE_ADDR hirange, CORE_ADDR *addr_found, char *data_found)); #define target_search(len, data, mask, startaddr, increment, lorange, hirange, addr_found, data_found) \ (*current_target->to_search) (len, data, mask, startaddr, increment, \ lorange, hirange, addr_found, data_found) #endif /* 0 */ void (*to_files_info) PARAMS ((struct target_ops *)); int (*to_insert_breakpoint) PARAMS ((CORE_ADDR, char *)); int (*to_remove_breakpoint) PARAMS ((CORE_ADDR, char *)); void (*to_terminal_init) PARAMS ((void)); void (*to_terminal_inferior) PARAMS ((void)); void (*to_terminal_ours_for_output) PARAMS ((void)); void (*to_terminal_ours) PARAMS ((void)); void (*to_terminal_info) PARAMS ((char *, int)); void (*to_kill) PARAMS ((void)); void (*to_load) PARAMS ((char *, int)); int (*to_lookup_symbol) PARAMS ((char *, CORE_ADDR *)); void (*to_create_inferior) PARAMS ((char *, char *, char **)); void (*to_mourn_inferior) PARAMS ((void)); int (*to_can_run) PARAMS ((void)); void (*to_notice_signals) PARAMS ((int pid)); enum strata to_stratum; struct target_ops *to_next; int to_has_all_memory; int to_has_memory; int to_has_stack; int to_has_registers; int to_has_execution; struct section_table *to_sections; struct section_table *to_sections_end; int to_magic; /* Need sub-structure for target machine related rather than comm related? */ }; /* Magic number for checking ops size. If a struct doesn't end with this number, somebody changed the declaration but didn't change all the places that initialize one. */ #define OPS_MAGIC 3840 /* The ops structure for our "current" target process. This should never be NULL. If there is no target, it points to the dummy_target. */ extern struct target_ops *current_target; /* Define easy words for doing these operations on our current target. */ #define target_shortname (current_target->to_shortname) #define target_longname (current_target->to_longname) /* The open routine takes the rest of the parameters from the command, and (if successful) pushes a new target onto the stack. Targets should supply this routine, if only to provide an error message. */ #define target_open(name, from_tty) \ (*current_target->to_open) (name, from_tty) /* Does whatever cleanup is required for a target that we are no longer going to be calling. Argument says whether we are quitting gdb and should not get hung in case of errors, or whether we want a clean termination even if it takes a while. This routine is automatically always called just before a routine is popped off the target stack. Closing file descriptors and freeing memory are typical things it should do. */ #define target_close(quitting) \ (*current_target->to_close) (quitting) /* Attaches to a process on the target side. Arguments are as passed to the `attach' command by the user. This routine can be called when the target is not on the target-stack, if the target_can_run routine returns 1; in that case, it must push itself onto the stack. Upon exit, the target should be ready for normal operations, and should be ready to deliver the status of the process immediately (without waiting) to an upcoming target_wait call. */ #define target_attach(args, from_tty) \ (*current_target->to_attach) (args, from_tty) /* Takes a program previously attached to and detaches it. The program may resume execution (some targets do, some don't) and will no longer stop on signals, etc. We better not have left any breakpoints in the program or it'll die when it hits one. ARGS is arguments typed by the user (e.g. a signal to send the process). FROM_TTY says whether to be verbose or not. */ extern void target_detach PARAMS ((char *, int)); /* Resume execution of the target process PID. STEP says whether to single-step or to run free; SIGGNAL is the signal to be given to the target, or TARGET_SIGNAL_0 for no signal. The caller may not pass TARGET_SIGNAL_DEFAULT. */ #define target_resume(pid, step, siggnal) \ (*current_target->to_resume) (pid, step, siggnal) /* Wait for process pid to do something. Pid = -1 to wait for any pid to do something. Return pid of child, or -1 in case of error; store status through argument pointer STATUS. Note that it is *not* OK to return_to_top_level out of target_wait without popping the debugging target from the stack; GDB isn't prepared to get back to the prompt with a debugging target but without the frame cache, stop_pc, etc., set up. */ #define target_wait(pid, status) \ (*current_target->to_wait) (pid, status) /* Fetch register REGNO, or all regs if regno == -1. No result. */ #define target_fetch_registers(regno) \ (*current_target->to_fetch_registers) (regno) /* Store at least register REGNO, or all regs if REGNO == -1. It can store as many registers as it wants to, so target_prepare_to_store must have been previously called. Calls error() if there are problems. */ #define target_store_registers(regs) \ (*current_target->to_store_registers) (regs) /* Get ready to modify the registers array. On machines which store individual registers, this doesn't need to do anything. On machines which store all the registers in one fell swoop, this makes sure that REGISTERS contains all the registers from the program being debugged. */ #define target_prepare_to_store() \ (*current_target->to_prepare_to_store) () extern int target_read_string PARAMS ((CORE_ADDR, char **, int, int *)); extern int target_read_memory PARAMS ((CORE_ADDR, char *, int)); extern int target_read_memory_partial PARAMS ((CORE_ADDR, char *, int, int *)); extern int target_write_memory PARAMS ((CORE_ADDR, char *, int)); extern int xfer_memory PARAMS ((CORE_ADDR, char *, int, int, struct target_ops *)); extern int child_xfer_memory PARAMS ((CORE_ADDR, char *, int, int, struct target_ops *)); /* Transfer LEN bytes between target address MEMADDR and GDB address MYADDR. Returns 0 for success, errno code for failure (which includes partial transfers--if you want a more useful response to partial transfers, try target_read_memory_partial). */ extern int target_xfer_memory PARAMS ((CORE_ADDR memaddr, char *myaddr, int len, int write)); /* From exec.c */ extern void print_section_info PARAMS ((struct target_ops *, bfd *)); /* Print a line about the current target. */ #define target_files_info() \ (*current_target->to_files_info) (current_target) /* Insert a breakpoint at address ADDR in the target machine. SAVE is a pointer to memory allocated for saving the target contents. It is guaranteed by the caller to be long enough to save "sizeof BREAKPOINT" bytes. Result is 0 for success, or an errno value. */ #define target_insert_breakpoint(addr, save) \ (*current_target->to_insert_breakpoint) (addr, save) /* Remove a breakpoint at address ADDR in the target machine. SAVE is a pointer to the same save area that was previously passed to target_insert_breakpoint. Result is 0 for success, or an errno value. */ #define target_remove_breakpoint(addr, save) \ (*current_target->to_remove_breakpoint) (addr, save) /* Initialize the terminal settings we record for the inferior, before we actually run the inferior. */ #define target_terminal_init() \ (*current_target->to_terminal_init) () /* Put the inferior's terminal settings into effect. This is preparation for starting or resuming the inferior. */ #define target_terminal_inferior() \ (*current_target->to_terminal_inferior) () /* Put some of our terminal settings into effect, enough to get proper results from our output, but do not change into or out of RAW mode so that no input is discarded. After doing this, either terminal_ours or terminal_inferior should be called to get back to a normal state of affairs. */ #define target_terminal_ours_for_output() \ (*current_target->to_terminal_ours_for_output) () /* Put our terminal settings into effect. First record the inferior's terminal settings so they can be restored properly later. */ #define target_terminal_ours() \ (*current_target->to_terminal_ours) () /* Print useful information about our terminal status, if such a thing exists. */ #define target_terminal_info(arg, from_tty) \ (*current_target->to_terminal_info) (arg, from_tty) /* Kill the inferior process. Make it go away. */ #define target_kill() \ (*current_target->to_kill) () /* Load an executable file into the target process. This is expected to not only bring new code into the target process, but also to update GDB's symbol tables to match. */ #define target_load(arg, from_tty) \ (*current_target->to_load) (arg, from_tty) /* Look up a symbol in the target's symbol table. NAME is the symbol name. ADDRP is a CORE_ADDR * pointing to where the value of the symbol should be returned. The result is 0 if successful, nonzero if the symbol does not exist in the target environment. This function should not call error() if communication with the target is interrupted, since it is called from symbol reading, but should return nonzero, possibly doing a complain(). */ #define target_lookup_symbol(name, addrp) \ (*current_target->to_lookup_symbol) (name, addrp) /* Start an inferior process and set inferior_pid to its pid. EXEC_FILE is the file to run. ALLARGS is a string containing the arguments to the program. ENV is the environment vector to pass. Errors reported with error(). On VxWorks and various standalone systems, we ignore exec_file. */ #define target_create_inferior(exec_file, args, env) \ (*current_target->to_create_inferior) (exec_file, args, env) /* The inferior process has died. Do what is right. */ #define target_mourn_inferior() \ (*current_target->to_mourn_inferior) () /* Does target have enough data to do a run or attach command? */ #define target_can_run(t) \ ((t)->to_can_run) () /* post process changes to signal handling in the inferior. */ #define target_notice_signals(pid) \ (*current_target->to_notice_signals) (pid) /* Pointer to next target in the chain, e.g. a core file and an exec file. */ #define target_next \ (current_target->to_next) /* Does the target include all of memory, or only part of it? This determines whether we look up the target chain for other parts of memory if this target can't satisfy a request. */ #define target_has_all_memory \ (current_target->to_has_all_memory) /* Does the target include memory? (Dummy targets don't.) */ #define target_has_memory \ (current_target->to_has_memory) /* Does the target have a stack? (Exec files don't, VxWorks doesn't, until we start a process.) */ #define target_has_stack \ (current_target->to_has_stack) /* Does the target have registers? (Exec files don't.) */ #define target_has_registers \ (current_target->to_has_registers) /* Does the target have execution? Can we make it jump (through hoops), or pop its stack a few times? FIXME: If this is to work that way, it needs to check whether an inferior actually exists. remote-udi.c and probably other targets can be the current target when the inferior doesn't actually exist at the moment. Right now this just tells us whether this target is *capable* of execution. */ #define target_has_execution \ (current_target->to_has_execution) extern void target_link PARAMS ((char *, CORE_ADDR *)); /* Converts a process id to a string. Usually, the string just contains `process xyz', but on some systems it may contain `process xyz thread abc'. */ #ifndef target_pid_to_str #define target_pid_to_str(PID) \ normal_pid_to_str (PID) extern char *normal_pid_to_str PARAMS ((int pid)); #endif /* Routines for maintenance of the target structures... add_target: Add a target to the list of all possible targets. push_target: Make this target the top of the stack of currently used targets, within its particular stratum of the stack. Result is 0 if now atop the stack, nonzero if not on top (maybe should warn user). unpush_target: Remove this from the stack of currently used targets, no matter where it is on the list. Returns 0 if no change, 1 if removed from stack. pop_target: Remove the top thing on the stack of current targets. */ extern void add_target PARAMS ((struct target_ops *)); extern int push_target PARAMS ((struct target_ops *)); extern int unpush_target PARAMS ((struct target_ops *)); extern void target_preopen PARAMS ((int)); extern void pop_target PARAMS ((void)); /* Struct section_table maps address ranges to file sections. It is mostly used with BFD files, but can be used without (e.g. for handling raw disks, or files not in formats handled by BFD). */ struct section_table { CORE_ADDR addr; /* Lowest address in section */ CORE_ADDR endaddr; /* 1+highest address in section */ sec_ptr the_bfd_section; bfd *bfd; /* BFD file pointer */ }; /* Builds a section table, given args BFD, SECTABLE_PTR, SECEND_PTR. Returns 0 if OK, 1 on error. */ extern int build_section_table PARAMS ((bfd *, struct section_table **, struct section_table **)); /* From mem-break.c */ extern int memory_remove_breakpoint PARAMS ((CORE_ADDR, char *)); extern int memory_insert_breakpoint PARAMS ((CORE_ADDR, char *)); /* From target.c */ void noprocess PARAMS ((void)); void find_default_attach PARAMS ((char *, int)); void find_default_create_inferior PARAMS ((char *, char *, char **)); struct target_ops * find_core_target PARAMS ((void)); /* Stuff that should be shared among the various remote targets. */ /* Debugging level. 0 is off, and non-zero values mean to print some debug information (higher values, more information). */ extern int remote_debug; /* Speed in bits per second, or -1 which means don't mess with the speed. */ extern int baud_rate; /* Functions for helping to write a native target. */ /* This is for native targets which use a unix/POSIX-style waitstatus. */ extern void store_waitstatus PARAMS ((struct target_waitstatus *, int)); /* Convert between host signal numbers and enum target_signal's. */ extern enum target_signal target_signal_from_host PARAMS ((int)); extern int target_signal_to_host PARAMS ((enum target_signal)); #endif /* !defined (TARGET_H) */ gdb-4.13/gdb/terminal.h 666 34562 1752 3551 5455363453 13275 0ustar fnfcygnus/* Terminal interface definitions for GDB, the GNU Debugger. Copyright 1986, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (TERMINAL_H) #define TERMINAL_H 1 #if !defined(__GO32__) && !defined (HAVE_TERMIOS) /* Define a common set of macros -- BSD based -- and redefine whatever the system offers to make it look like that. FIXME: serial.h and ser-*.c deal with this in a much cleaner fashion; as soon as stuff is converted to use them, can get rid of this crap. */ #ifdef HAVE_TERMIO #include #undef TIOCGETP #define TIOCGETP TCGETA #undef TIOCSETN #define TIOCSETN TCSETA #undef TIOCSETP #define TIOCSETP TCSETAF #define TERMINAL struct termio #else /* sgtty */ #include #include #include #define TERMINAL struct sgttyb #endif /* sgtty */ #endif /* termio or sgtty */ extern void new_tty PARAMS ((void)); /* Do we have job control? Can be assumed to always be the same within a given run of GDB. In inflow.c. */ extern int job_control; /* Set the process group of the caller to its own pid, or do nothing if we lack job control. */ extern int gdb_setpgid PARAMS ((void)); #endif /* !defined (TERMINAL_H) */ gdb-4.13/gdb/thread.c 666 34562 1752 17731 5470207656 12750 0ustar fnfcygnus/* Multi-process/thread control for GDB, the GNU debugger. Copyright 1986, 1987, 1988, 1993 Contributed by Lynx Real-Time Systems, Inc. Los Gatos, CA. Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "frame.h" #include "inferior.h" #include "environ.h" #include "value.h" #include "target.h" #include "thread.h" #include "command.h" #include "gdbcmd.h" #include #include #include /*#include "lynxos-core.h"*/ struct thread_info { struct thread_info *next; int pid; /* Actual process id */ int num; /* Convenient handle */ }; static struct thread_info *thread_list = NULL; static int highest_thread_num; static void thread_command PARAMS ((char * tidstr, int from_tty)); static void prune_threads PARAMS ((void)); static void thread_switch PARAMS ((int pid)); static struct thread_info * find_thread_id PARAMS ((int num)); void init_thread_list () { struct thread_info *tp, *tpnext; if (!thread_list) return; for (tp = thread_list; tp; tp = tpnext) { tpnext = tp->next; free (tp); } thread_list = NULL; highest_thread_num = 0; } void add_thread (pid) int pid; { struct thread_info *tp; tp = (struct thread_info *) xmalloc (sizeof (struct thread_info)); tp->pid = pid; tp->num = ++highest_thread_num; tp->next = thread_list; thread_list = tp; } static struct thread_info * find_thread_id (num) int num; { struct thread_info *tp; for (tp = thread_list; tp; tp = tp->next) if (tp->num == num) return tp; return NULL; } int valid_thread_id (num) int num; { struct thread_info *tp; for (tp = thread_list; tp; tp = tp->next) if (tp->num == num) return 1; return 0; } int pid_to_thread_id (pid) int pid; { struct thread_info *tp; for (tp = thread_list; tp; tp = tp->next) if (tp->pid == pid) return tp->num; return 0; } int in_thread_list (pid) int pid; { struct thread_info *tp; for (tp = thread_list; tp; tp = tp->next) if (tp->pid == pid) return 1; return 0; /* Never heard of 'im */ } static void prune_threads () { struct thread_info *tp, *tpprev; tpprev = 0; for (tp = thread_list; tp; tp = tp->next) if (tp->pid == -1) { if (tpprev) tpprev->next = tp->next; else thread_list = NULL; free (tp); } else tpprev = tp; } /* Print information about currently known threads */ static void info_threads_command (arg, from_tty) char *arg; int from_tty; { struct thread_info *tp; int current_pid = inferior_pid; for (tp = thread_list; tp; tp = tp->next) { if (target_has_execution && kill (tp->pid, 0) == -1) { tp->pid = -1; /* Mark it as dead */ continue; } if (tp->pid == current_pid) printf_filtered ("* "); else printf_filtered (" "); printf_filtered ("%d %s ", tp->num, target_pid_to_str (tp->pid)); thread_switch (tp->pid); print_stack_frame (selected_frame, -1, 0); } thread_switch (current_pid); prune_threads (); } /* Switch from one thread to another. */ static void thread_switch (pid) int pid; { if (pid == inferior_pid) return; inferior_pid = pid; flush_cached_frames (); registers_changed (); stop_pc = read_pc(); set_current_frame (create_new_frame (read_fp (), stop_pc)); stop_frame_address = FRAME_FP (get_current_frame ()); select_frame (get_current_frame (), 0); } static void restore_current_thread (pid) int pid; { if (pid != inferior_pid) thread_switch (pid); } /* Apply a GDB command to a list of threads. List syntax is a whitespace seperated list of numbers, or ranges, or the keyword `all'. Ranges consist of two numbers seperated by a hyphen. Examples: thread apply 1 2 7 4 backtrace Apply backtrace cmd to threads 1,2,7,4 thread apply 2-7 9 p foo(1) Apply p foo(1) cmd to threads 2->7 & 9 thread apply all p x/i $pc Apply x/i $pc cmd to all threads */ static void thread_apply_all_command (cmd, from_tty) char *cmd; int from_tty; { struct thread_info *tp; struct cleanup *old_chain; if (cmd == NULL || *cmd == '\000') error ("Please specify a command following the thread ID list"); old_chain = make_cleanup (restore_current_thread, inferior_pid); for (tp = thread_list; tp; tp = tp->next) { thread_switch (tp->pid); printf_filtered ("\nThread %d (%s):\n", tp->num, target_pid_to_str (inferior_pid)); execute_command (cmd, from_tty); } } static void thread_apply_command (tidlist, from_tty) char *tidlist; int from_tty; { char *cmd; char *p; struct cleanup *old_chain; if (tidlist == NULL || *tidlist == '\000') error ("Please specify a thread ID list"); for (cmd = tidlist; *cmd != '\000' && !isalpha(*cmd); cmd++); if (*cmd == '\000') error ("Please specify a command following the thread ID list"); old_chain = make_cleanup (restore_current_thread, inferior_pid); while (tidlist < cmd) { struct thread_info *tp; int start, end; start = strtol (tidlist, &p, 10); if (p == tidlist) error ("Error parsing %s", tidlist); tidlist = p; while (*tidlist == ' ' || *tidlist == '\t') tidlist++; if (*tidlist == '-') /* Got a range of IDs? */ { tidlist++; /* Skip the - */ end = strtol (tidlist, &p, 10); if (p == tidlist) error ("Error parsing %s", tidlist); tidlist = p; while (*tidlist == ' ' || *tidlist == '\t') tidlist++; } else end = start; for (; start <= end; start++) { tp = find_thread_id (start); if (!tp) { warning ("Unknown thread %d.", start); continue; } thread_switch (tp->pid); printf_filtered ("\nThread %d (%s):\n", tp->num, target_pid_to_str (inferior_pid)); execute_command (cmd, from_tty); } } } /* Switch to the specified thread. Will dispatch off to thread_apply_command if prefix of arg is `apply'. */ static void thread_command (tidstr, from_tty) char *tidstr; int from_tty; { int num; struct thread_info *tp; if (!tidstr) error ("Please specify a thread ID. Use the \"info threads\" command to\n\ see the IDs of currently known threads."); num = atoi (tidstr); tp = find_thread_id (num); if (!tp) error ("Thread ID %d not known. Use the \"info threads\" command to\n\ see the IDs of currently known threads.", num); thread_switch (tp->pid); printf_filtered ("[Switching to %s]\n", target_pid_to_str (inferior_pid)); print_stack_frame (selected_frame, selected_frame_level, 1); } void _initialize_thread () { static struct cmd_list_element *thread_cmd_list = NULL; static struct cmd_list_element *thread_apply_list = NULL; extern struct cmd_list_element *cmdlist; add_info ("threads", info_threads_command, "IDs of currently known threads."); add_prefix_cmd ("thread", class_run, thread_command, "Use this command to switch between threads.\n\ The new thread ID must be currently known.", &thread_cmd_list, "thread ", 1, &cmdlist); add_prefix_cmd ("apply", class_run, thread_apply_command, "Apply a command to a list of threads.", &thread_apply_list, "apply ", 1, &thread_cmd_list); add_cmd ("all", class_run, thread_apply_all_command, "Apply a command to all threads.", &thread_apply_list); add_com_alias ("t", "thread", class_run, 1); } gdb-4.13/gdb/thread.h 666 34562 1752 2264 5457713672 12735 0ustar fnfcygnus/* Multi-process/thread control defs for GDB, the GNU debugger. Copyright 1987, 1988, 1989, 1990, 1991, 1992, 1993 Contributed by Lynx Real-Time Systems, Inc. Los Gatos, CA. Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef THREAD_H #define THREAD_H extern void init_thread_list PARAMS ((void)); extern void add_thread PARAMS ((int pid)); extern int in_thread_list PARAMS ((int pid)); extern int pid_to_thread_id PARAMS ((int pid)); extern int valid_thread_id PARAMS ((int thread)); #endif /* THREAD_H */ gdb-4.13/gdb/top.c 666 34562 1752 202371 5623251046 12307 0ustar fnfcygnus/* Top level stuff for GDB, the GNU debugger. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "gdbcmd.h" #include "call-cmds.h" #include "symtab.h" #include "inferior.h" #include "signals.h" #include "target.h" #include "breakpoint.h" #include "gdbtypes.h" #include "expression.h" #include "language.h" #include "terminal.h" /* For job_control. */ #include "annotate.h" #include #include "top.h" /* readline include files */ #include "readline.h" #include "history.h" /* readline defines this. */ #undef savestring #include #ifdef USG /* What is this for? X_OK? */ #include #endif #include #ifndef NO_SYS_FILE #include #endif #include #include #include /* Prototypes for local functions */ static char * symbol_completion_function PARAMS ((char *, int)); static void command_loop_marker PARAMS ((int)); static void init_main PARAMS ((void)); static void init_cmd_lists PARAMS ((void)); static void float_handler PARAMS ((int)); static void init_signals PARAMS ((void)); static void set_verbose PARAMS ((char *, int, struct cmd_list_element *)); static void show_history PARAMS ((char *, int)); static void set_history PARAMS ((char *, int)); static void set_history_size_command PARAMS ((char *, int, struct cmd_list_element *)); static void show_commands PARAMS ((char *, int)); static void echo_command PARAMS ((char *, int)); static void pwd_command PARAMS ((char *, int)); static void show_version PARAMS ((char *, int)); static void document_command PARAMS ((char *, int)); static void define_command PARAMS ((char *, int)); static void validate_comname PARAMS ((char *)); static void help_command PARAMS ((char *, int)); static void show_command PARAMS ((char *, int)); static void info_command PARAMS ((char *, int)); static void complete_command PARAMS ((char *, int)); static void do_nothing PARAMS ((int)); static int quit_cover PARAMS ((char *)); static void disconnect PARAMS ((int)); static void source_cleanup PARAMS ((FILE *)); /* If this definition isn't overridden by the header files, assume that isatty and fileno exist on this system. */ #ifndef ISATTY #define ISATTY(FP) (isatty (fileno (FP))) #endif /* Initialization file name for gdb. This is overridden in some configs. */ #ifndef GDBINIT_FILENAME #define GDBINIT_FILENAME ".gdbinit" #endif char gdbinit[] = GDBINIT_FILENAME; int inhibit_gdbinit = 0; /* Version number of GDB, as a string. */ extern char *version; /* Canonical host name as a string. */ extern char *host_name; /* Canonical target name as a string. */ extern char *target_name; extern char lang_frame_mismatch_warn[]; /* language.c */ /* Flag for whether we want all the "from_tty" gubbish printed. */ int caution = 1; /* Default is yes, sigh. */ /* * Define all cmd_list_element's */ /* Chain containing all defined commands. */ struct cmd_list_element *cmdlist; /* Chain containing all defined info subcommands. */ struct cmd_list_element *infolist; /* Chain containing all defined enable subcommands. */ struct cmd_list_element *enablelist; /* Chain containing all defined disable subcommands. */ struct cmd_list_element *disablelist; /* Chain containing all defined delete subcommands. */ struct cmd_list_element *deletelist; /* Chain containing all defined "enable breakpoint" subcommands. */ struct cmd_list_element *enablebreaklist; /* Chain containing all defined set subcommands */ struct cmd_list_element *setlist; /* Chain containing all defined unset subcommands */ struct cmd_list_element *unsetlist; /* Chain containing all defined show subcommands. */ struct cmd_list_element *showlist; /* Chain containing all defined \"set history\". */ struct cmd_list_element *sethistlist; /* Chain containing all defined \"show history\". */ struct cmd_list_element *showhistlist; /* Chain containing all defined \"unset history\". */ struct cmd_list_element *unsethistlist; /* Chain containing all defined maintenance subcommands. */ #if MAINTENANCE_CMDS struct cmd_list_element *maintenancelist; #endif /* Chain containing all defined "maintenance info" subcommands. */ #if MAINTENANCE_CMDS struct cmd_list_element *maintenanceinfolist; #endif /* Chain containing all defined "maintenance print" subcommands. */ #if MAINTENANCE_CMDS struct cmd_list_element *maintenanceprintlist; #endif struct cmd_list_element *setprintlist; struct cmd_list_element *showprintlist; struct cmd_list_element *setchecklist; struct cmd_list_element *showchecklist; /* stdio stream that command input is being read from. Set to stdin normally. Set by source_command to the file we are sourcing. Set to NULL if we are executing a user-defined command. */ FILE *instream; /* Current working directory. */ char *current_directory; /* The directory name is actually stored here (usually). */ char gdb_dirbuf[1024]; /* Function to call before reading a command, if nonzero. The function receives two args: an input stream, and a prompt string. */ void (*window_hook) PARAMS ((FILE *, char *)); int epoch_interface; int xgdb_verbose; /* gdb prints this when reading a command interactively */ static char *prompt; /* Buffer used for reading command lines, and the size allocated for it so far. */ char *line; int linesize = 100; /* Nonzero if the current command is modified by "server ". This affects things like recording into the command history, comamnds repeating on RETURN, etc. This is so a user interface (emacs, GUI, whatever) can issue its own commands and also send along commands from the user, and have the user not notice that the user interface is issuing commands too. */ int server_command; /* Baud rate specified for talking to serial target systems. Default is left as -1, so targets can choose their own defaults. */ /* FIXME: This means that "show remotebaud" and gr_files_info can print -1 or (unsigned int)-1. This is a Bad User Interface. */ int baud_rate = -1; /* Non-zero tells remote* modules to output debugging info. */ int remote_debug = 0; /* Signal to catch ^Z typed while reading a command: SIGTSTP or SIGCONT. */ #ifndef STOP_SIGNAL #ifdef SIGTSTP #define STOP_SIGNAL SIGTSTP static void stop_sig PARAMS ((int)); #endif #endif /* Some System V have job control but not sigsetmask(). */ #if !defined (HAVE_SIGSETMASK) #if !defined (USG) #define HAVE_SIGSETMASK 1 #else #define HAVE_SIGSETMASK 0 #endif #endif #if 0 == (HAVE_SIGSETMASK) #define sigsetmask(n) #endif /* Where to go for return_to_top_level (RETURN_ERROR). */ jmp_buf error_return; /* Where to go for return_to_top_level (RETURN_QUIT). */ jmp_buf quit_return; /* Return for reason REASON. This generally gets back to the command loop, but can be caught via catch_errors. */ NORETURN void return_to_top_level (reason) enum return_reason reason; { quit_flag = 0; immediate_quit = 0; /* Perhaps it would be cleaner to do this via the cleanup chain (not sure I can think of a reason why that is vital, though). */ bpstat_clear_actions(stop_bpstat); /* Clear queued breakpoint commands */ disable_current_display (); do_cleanups (ALL_CLEANUPS); if (annotation_level > 1) switch (reason) { case RETURN_QUIT: annotate_quit (); break; case RETURN_ERROR: annotate_error (); break; } (NORETURN void) longjmp (reason == RETURN_ERROR ? error_return : quit_return, 1); } /* Call FUNC with arg ARGS, catching any errors. If there is no error, return the value returned by FUNC. If there is an error, print ERRSTRING, print the specific error message, then return zero. Must not be called with immediate_quit in effect (bad things might happen, say we got a signal in the middle of a memcpy to quit_return). This is an OK restriction; with very few exceptions immediate_quit can be replaced by judicious use of QUIT. MASK specifies what to catch; it is normally set to RETURN_MASK_ALL, if for no other reason than that the code which calls catch_errors might not be set up to deal with a quit which isn't caught. But if the code can deal with it, it generally should be RETURN_MASK_ERROR, unless for some reason it is more useful to abort only the portion of the operation inside the catch_errors. Note that quit should return to the command line fairly quickly, even if some further processing is being done. */ int catch_errors (func, args, errstring, mask) int (*func) PARAMS ((char *)); PTR args; char *errstring; return_mask mask; { jmp_buf saved_error; jmp_buf saved_quit; jmp_buf tmp_jmp; int val; struct cleanup *saved_cleanup_chain; char *saved_error_pre_print; saved_cleanup_chain = save_cleanups (); saved_error_pre_print = error_pre_print; if (mask & RETURN_MASK_ERROR) memcpy ((char *)saved_error, (char *)error_return, sizeof (jmp_buf)); if (mask & RETURN_MASK_QUIT) memcpy (saved_quit, quit_return, sizeof (jmp_buf)); error_pre_print = errstring; if (setjmp (tmp_jmp) == 0) { if (mask & RETURN_MASK_ERROR) memcpy (error_return, tmp_jmp, sizeof (jmp_buf)); if (mask & RETURN_MASK_QUIT) memcpy (quit_return, tmp_jmp, sizeof (jmp_buf)); val = (*func) (args); } else val = 0; restore_cleanups (saved_cleanup_chain); error_pre_print = saved_error_pre_print; if (mask & RETURN_MASK_ERROR) memcpy (error_return, saved_error, sizeof (jmp_buf)); if (mask & RETURN_MASK_QUIT) memcpy (quit_return, saved_quit, sizeof (jmp_buf)); return val; } /* Handler for SIGHUP. */ static void disconnect (signo) int signo; { catch_errors (quit_cover, NULL, "Could not kill the program being debugged", RETURN_MASK_ALL); signal (SIGHUP, SIG_DFL); kill (getpid (), SIGHUP); } /* Just a little helper function for disconnect(). */ static int quit_cover (s) char *s; { caution = 0; /* Throw caution to the wind -- we're exiting. This prevents asking the user dumb questions. */ quit_command((char *)0, 0); return 0; } /* Line number we are currently in in a file which is being sourced. */ static int source_line_number; /* Name of the file we are sourcing. */ static char *source_file_name; /* Buffer containing the error_pre_print used by the source stuff. Malloc'd. */ static char *source_error; static int source_error_allocated; /* Something to glom on to the start of error_pre_print if source_file_name is set. */ static char *source_pre_error; /* Clean up on error during a "source" command (or execution of a user-defined command). */ static void source_cleanup (stream) FILE *stream; { /* Restore the previous input stream. */ instream = stream; } /* Read commands from STREAM. */ void read_command_file (stream) FILE *stream; { struct cleanup *cleanups; cleanups = make_cleanup (source_cleanup, instream); instream = stream; command_loop (); do_cleanups (cleanups); } extern void init_proc (); void gdb_init () { /* Run the init function of each source file */ getcwd (gdb_dirbuf, sizeof (gdb_dirbuf)); current_directory = gdb_dirbuf; init_cmd_lists (); /* This needs to be done first */ initialize_all_files (); init_main (); /* But that omits this file! Do it now */ init_signals (); init_proc (); /* We need a default language for parsing expressions, so simple things like "set width 0" won't fail if no language is explicitly set in a config file or implicitly set by reading an executable during startup. */ set_language (language_c); expected_language = current_language; /* don't warn about the change. */ } void execute_user_command (c, args) struct cmd_list_element *c; char *args; { register struct command_line *cmdlines; struct cleanup *old_chain; if (args) error ("User-defined commands cannot take arguments."); cmdlines = c->user_commands; if (cmdlines == 0) /* Null command */ return; /* Set the instream to 0, indicating execution of a user-defined function. */ old_chain = make_cleanup (source_cleanup, instream); instream = (FILE *) 0; while (cmdlines) { execute_command (cmdlines->line, 0); cmdlines = cmdlines->next; } do_cleanups (old_chain); } /* Execute the line P as a command. Pass FROM_TTY as second argument to the defining function. */ void execute_command (p, from_tty) char *p; int from_tty; { register struct cmd_list_element *c; register enum language flang; static int warned = 0; free_all_values (); /* This can happen when command_line_input hits end of file. */ if (p == NULL) return; while (*p == ' ' || *p == '\t') p++; if (*p) { char *arg; c = lookup_cmd (&p, cmdlist, "", 0, 1); /* Pass null arg rather than an empty one. */ arg = *p ? p : 0; /* If this command has been hooked, run the hook first. */ if (c->hook) execute_user_command (c->hook, (char *)0); if (c->class == class_user) execute_user_command (c, arg); else if (c->type == set_cmd || c->type == show_cmd) do_setshow_command (arg, from_tty & caution, c); else if (c->function.cfunc == NO_FUNCTION) error ("That is not a command, just a help topic."); else (*c->function.cfunc) (arg, from_tty & caution); } /* Tell the user if the language has changed (except first time). */ if (current_language != expected_language) { if (language_mode == language_mode_auto) { language_info (1); /* Print what changed. */ } warned = 0; } /* Warn the user if the working language does not match the language of the current frame. Only warn the user if we are actually running the program, i.e. there is a stack. */ /* FIXME: This should be cacheing the frame and only running when the frame changes. */ if (target_has_stack) { flang = get_frame_language (); if (!warned && flang != language_unknown && flang != current_language->la_language) { printf_filtered ("%s\n", lang_frame_mismatch_warn); warned = 1; } } } /* ARGSUSED */ static void command_loop_marker (foo) int foo; { } /* Read commands from `instream' and execute them until end of file or error reading instream. */ void command_loop () { struct cleanup *old_chain; char *command; int stdin_is_tty = ISATTY (stdin); while (!feof (instream)) { if (window_hook && instream == stdin) (*window_hook) (instream, prompt); quit_flag = 0; if (instream == stdin && stdin_is_tty) reinitialize_more_filter (); old_chain = make_cleanup (command_loop_marker, 0); command = command_line_input (instream == stdin ? prompt : (char *) NULL, instream == stdin, "prompt"); if (command == 0) return; execute_command (command, instream == stdin); /* Do any commands attached to breakpoint we stopped at. */ bpstat_do_actions (&stop_bpstat); do_cleanups (old_chain); } } /* Commands call this if they do not want to be repeated by null lines. */ void dont_repeat () { if (server_command) return; /* If we aren't reading from standard input, we are saving the last thing read from stdin in line and don't want to delete it. Null lines won't repeat here in any case. */ if (instream == stdin) *line = 0; } /* Read a line from the stream "instream" without command line editing. It prints PRROMPT once at the start. Action is compatible with "readline", e.g. space for the result is malloc'd and should be freed by the caller. A NULL return means end of file. */ char * gdb_readline (prrompt) char *prrompt; { int c; char *result; int input_index = 0; int result_size = 80; if (prrompt) { /* Don't use a _filtered function here. It causes the assumed character position to be off, since the newline we read from the user is not accounted for. */ fputs_unfiltered (prrompt, gdb_stdout); gdb_flush (gdb_stdout); } result = (char *) xmalloc (result_size); while (1) { /* Read from stdin if we are executing a user defined command. This is the right thing for prompt_for_continue, at least. */ c = fgetc (instream ? instream : stdin); if (c == EOF) { if (input_index > 0) /* The last line does not end with a newline. Return it, and if we are called again fgetc will still return EOF and we'll return NULL then. */ break; free (result); return NULL; } if (c == '\n') break; result[input_index++] = c; while (input_index >= result_size) { result_size *= 2; result = (char *) xrealloc (result, result_size); } } result[input_index++] = '\0'; return result; } /* Variables which control command line editing and history substitution. These variables are given default values at the end of this file. */ static int command_editing_p; static int history_expansion_p; static int write_history_p; static int history_size; static char *history_filename; /* readline uses the word breaks for two things: (1) In figuring out where to point the TEXT parameter to the rl_completion_entry_function. Since we don't use TEXT for much, it doesn't matter a lot what the word breaks are for this purpose, but it does affect how much stuff M-? lists. (2) If one of the matches contains a word break character, readline will quote it. That's why we switch between gdb_completer_word_break_characters and gdb_completer_command_word_break_characters. I'm not sure when we need this behavior (perhaps for funky characters in C++ symbols?). */ /* Variables which are necessary for fancy command line editing. */ char *gdb_completer_word_break_characters = " \t\n!@#$%^&*()+=|~`}{[]\"';:?/>.<,-"; /* When completing on command names, we remove '-' from the list of word break characters, since we use it in command names. If the readline library sees one in any of the current completion strings, it thinks that the string needs to be quoted and automatically supplies a leading quote. */ char *gdb_completer_command_word_break_characters = " \t\n!@#$%^&*()+=|~`}{[]\"';:?/>.<,"; /* Characters that can be used to quote completion strings. Note that we can't include '"' because the gdb C parser treats such quoted sequences as strings. */ char *gdb_completer_quote_characters = "'"; /* Functions that are used as part of the fancy command line editing. */ /* This can be used for functions which don't want to complete on symbols but don't want to complete on anything else either. */ /* ARGSUSED */ char ** noop_completer (text, prefix) char *text; char *prefix; { return NULL; } /* Complete on filenames. */ char ** filename_completer (text, word) char *text; char *word; { /* From readline. */ extern char *filename_completion_function (); int subsequent_name; char **return_val; int return_val_used; int return_val_alloced; return_val_used = 0; /* Small for testing. */ return_val_alloced = 1; return_val = (char **) xmalloc (return_val_alloced * sizeof (char *)); subsequent_name = 0; while (1) { char *p; p = filename_completion_function (text, subsequent_name); if (return_val_used >= return_val_alloced) { return_val_alloced *= 2; return_val = (char **) xrealloc (return_val, return_val_alloced * sizeof (char *)); } if (p == NULL) { return_val[return_val_used++] = p; break; } /* Like emacs, don't complete on old versions. Especially useful in the "source" command. */ if (p[strlen (p) - 1] == '~') continue; { char *q; if (word == text) /* Return exactly p. */ return_val[return_val_used++] = p; else if (word > text) { /* Return some portion of p. */ q = xmalloc (strlen (p) + 5); strcpy (q, p + (word - text)); return_val[return_val_used++] = q; free (p); } else { /* Return some of TEXT plus p. */ q = xmalloc (strlen (p) + (text - word) + 5); strncpy (q, word, text - word); q[text - word] = '\0'; strcat (q, p); return_val[return_val_used++] = q; free (p); } } subsequent_name = 1; } #if 0 /* There is no way to do this just long enough to affect quote inserting without also affecting the next completion. This should be fixed in readline. FIXME. */ /* Insure that readline does the right thing with respect to inserting quotes. */ rl_completer_word_break_characters = ""; #endif return return_val; } /* Here are some useful test cases for completion. FIXME: These should be put in the test suite. They should be tested with both M-? and TAB. "show output-" "radix" "show output" "-radix" "p" ambiguous (commands starting with p--path, print, printf, etc.) "p " ambiguous (all symbols) "info t foo" no completions "info t " no completions "info t" ambiguous ("info target", "info terminal", etc.) "info ajksdlfk" no completions "info ajksdlfk " no completions "info" " " "info " ambiguous (all info commands) "p \"a" no completions (string constant) "p 'a" ambiguous (all symbols starting with a) "p b-a" ambiguous (all symbols starting with a) "p b-" ambiguous (all symbols) "file Make" "file" (word break hard to screw up here) "file ../gdb.stabs/we" "ird" (needs to not break word at slash) */ /* Generate completions one by one for the completer. Each time we are called return another potential completion to the caller. The function is misnamed; it just completes on commands or passes the buck to the command's completer function; the stuff specific to symbol completion is in make_symbol_completion_list. TEXT is readline's idea of the "word" we are looking at; we don't really like readline's ideas about word breaking so we ignore it. MATCHES is the number of matches that have currently been collected from calling this completion function. When zero, then we need to initialize, otherwise the initialization has already taken place and we can just return the next potential completion string. Returns NULL if there are no more completions, else a pointer to a string which is a possible completion. RL_LINE_BUFFER is available to be looked at; it contains the entire text of the line. RL_POINT is the offset in that line of the cursor. You should pretend that the line ends at RL_POINT. */ static char * symbol_completion_function (text, matches) char *text; int matches; { static char **list = (char **)NULL; /* Cache of completions */ static int index; /* Next cached completion */ char *output = NULL; char *tmp_command, *p; /* Pointer within tmp_command which corresponds to text. */ char *word; struct cmd_list_element *c, *result_list; if (matches == 0) { /* The caller is beginning to accumulate a new set of completions, so we need to find all of them now, and cache them for returning one at a time on future calls. */ if (list) { /* Free the storage used by LIST, but not by the strings inside. This is because rl_complete_internal () frees the strings. */ free ((PTR)list); } list = 0; index = 0; /* Choose the default set of word break characters to break completions. If we later find out that we are doing completions on command strings (as opposed to strings supplied by the individual command completer functions, which can be any string) then we will switch to the special word break set for command strings, which leaves out the '-' character used in some commands. */ rl_completer_word_break_characters = gdb_completer_word_break_characters; /* Decide whether to complete on a list of gdb commands or on symbols. */ tmp_command = (char *) alloca (rl_point + 1); p = tmp_command; strncpy (tmp_command, rl_line_buffer, rl_point); tmp_command[rl_point] = '\0'; /* Since text always contains some number of characters leading up to rl_point, we can find the equivalent position in tmp_command by subtracting that many characters from the end of tmp_command. */ word = tmp_command + rl_point - strlen (text); if (rl_point == 0) { /* An empty line we want to consider ambiguous; that is, it could be any command. */ c = (struct cmd_list_element *) -1; result_list = 0; } else { c = lookup_cmd_1 (&p, cmdlist, &result_list, 1); } /* Move p up to the next interesting thing. */ while (*p == ' ' || *p == '\t') { p++; } if (!c) { /* It is an unrecognized command. So there are no possible completions. */ list = NULL; } else if (c == (struct cmd_list_element *) -1) { char *q; /* lookup_cmd_1 advances p up to the first ambiguous thing, but doesn't advance over that thing itself. Do so now. */ q = p; while (*q && (isalnum (*q) || *q == '-' || *q == '_')) ++q; if (q != tmp_command + rl_point) { /* There is something beyond the ambiguous command, so there are no possible completions. For example, "info t " or "info t foo" does not complete to anything, because "info t" can be "info target" or "info terminal". */ list = NULL; } else { /* We're trying to complete on the command which was ambiguous. This we can deal with. */ if (result_list) { list = complete_on_cmdlist (*result_list->prefixlist, p, word); } else { list = complete_on_cmdlist (cmdlist, p, word); } /* Insure that readline does the right thing with respect to inserting quotes. */ rl_completer_word_break_characters = gdb_completer_command_word_break_characters; } } else { /* We've recognized a full command. */ if (p == tmp_command + rl_point) { /* There is no non-whitespace in the line beyond the command. */ if (p[-1] == ' ' || p[-1] == '\t') { /* The command is followed by whitespace; we need to complete on whatever comes after command. */ if (c->prefixlist) { /* It is a prefix command; what comes after it is a subcommand (e.g. "info "). */ list = complete_on_cmdlist (*c->prefixlist, p, word); /* Insure that readline does the right thing with respect to inserting quotes. */ rl_completer_word_break_characters = gdb_completer_command_word_break_characters; } else { /* It is a normal command; what comes after it is completed by the command's completer function. */ list = (*c->completer) (p, word); } } else { /* The command is not followed by whitespace; we need to complete on the command itself. e.g. "p" which is a command itself but also can complete to "print", "ptype" etc. */ char *q; /* Find the command we are completing on. */ q = p; while (q > tmp_command) { if (isalnum (q[-1]) || q[-1] == '-' || q[-1] == '_') --q; else break; } list = complete_on_cmdlist (result_list, q, word); /* Insure that readline does the right thing with respect to inserting quotes. */ rl_completer_word_break_characters = gdb_completer_command_word_break_characters; } } else { /* There is non-whitespace beyond the command. */ if (c->prefixlist && !c->allow_unknown) { /* It is an unrecognized subcommand of a prefix command, e.g. "info adsfkdj". */ list = NULL; } else { /* It is a normal command. */ list = (*c->completer) (p, word); } } } } /* If we found a list of potential completions during initialization then dole them out one at a time. The vector of completions is NULL terminated, so after returning the last one, return NULL (and continue to do so) each time we are called after that, until a new list is available. */ if (list) { output = list[index]; if (output) { index++; } } #if 0 /* Can't do this because readline hasn't yet checked the word breaks for figuring out whether to insert a quote. */ if (output == NULL) /* Make sure the word break characters are set back to normal for the next time that readline tries to complete something. */ rl_completer_word_break_characters = gdb_completer_word_break_characters; #endif return (output); } /* Skip over a possibly quoted word (as defined by the quote characters and word break characters the completer uses). Returns pointer to the location after the "word". */ char * skip_quoted (str) char *str; { char quote_char = '\0'; char *scan; for (scan = str; *scan != '\0'; scan++) { if (quote_char != '\0') { /* Ignore everything until the matching close quote char */ if (*scan == quote_char) { /* Found matching close quote. */ scan++; break; } } else if (strchr (gdb_completer_quote_characters, *scan)) { /* Found start of a quoted string. */ quote_char = *scan; } else if (strchr (gdb_completer_word_break_characters, *scan)) { break; } } return (scan); } #ifdef STOP_SIGNAL static void stop_sig (signo) int signo; { #if STOP_SIGNAL == SIGTSTP signal (SIGTSTP, SIG_DFL); sigsetmask (0); kill (getpid (), SIGTSTP); signal (SIGTSTP, stop_sig); #else signal (STOP_SIGNAL, stop_sig); #endif printf_unfiltered ("%s", prompt); gdb_flush (gdb_stdout); /* Forget about any previous command -- null line now will do nothing. */ dont_repeat (); } #endif /* STOP_SIGNAL */ /* Initialize signal handlers. */ static void do_nothing (signo) int signo; { } static void init_signals () { signal (SIGINT, request_quit); /* If we initialize SIGQUIT to SIG_IGN, then the SIG_IGN will get passed to the inferior, which we don't want. It would be possible to do a "signal (SIGQUIT, SIG_DFL)" after we fork, but on BSD4.3 systems using vfork, that can affect the GDB process as well as the inferior (the signal handling tables might be in memory, shared between the two). Since we establish a handler for SIGQUIT, when we call exec it will set the signal to SIG_DFL for us. */ signal (SIGQUIT, do_nothing); if (signal (SIGHUP, do_nothing) != SIG_IGN) signal (SIGHUP, disconnect); signal (SIGFPE, float_handler); #if defined(SIGWINCH) && defined(SIGWINCH_HANDLER) signal (SIGWINCH, SIGWINCH_HANDLER); #endif } /* Read one line from the command input stream `instream' into the local static buffer `linebuffer' (whose current length is `linelength'). The buffer is made bigger as necessary. Returns the address of the start of the line. NULL is returned for end of file. *If* the instream == stdin & stdin is a terminal, the line read is copied into the file line saver (global var char *line, length linesize) so that it can be duplicated. This routine either uses fancy command line editing or simple input as the user has requested. */ char * command_line_input (prrompt, repeat, annotation_suffix) char *prrompt; int repeat; char *annotation_suffix; { static char *linebuffer = 0; static unsigned linelength = 0; register char *p; char *p1; char *rl; char *local_prompt = prrompt; register int c; char *nline; char got_eof = 0; if (annotation_level > 1 && instream == stdin) { local_prompt = alloca ((prrompt == NULL ? 0 : strlen (prrompt)) + strlen (annotation_suffix) + 40); if (prrompt == NULL) local_prompt[0] = '\0'; else strcpy (local_prompt, prrompt); strcat (local_prompt, "\n\032\032"); strcat (local_prompt, annotation_suffix); strcat (local_prompt, "\n"); } if (linebuffer == 0) { linelength = 80; linebuffer = (char *) xmalloc (linelength); } p = linebuffer; /* Control-C quits instantly if typed while in this loop since it should not wait until the user types a newline. */ immediate_quit++; #ifdef STOP_SIGNAL if (job_control) signal (STOP_SIGNAL, stop_sig); #endif while (1) { /* Make sure that all output has been output. Some machines may let you get away with leaving out some of the gdb_flush, but not all. */ wrap_here (""); gdb_flush (gdb_stdout); gdb_flush (gdb_stderr); if (source_file_name != NULL) { ++source_line_number; sprintf (source_error, "%s%s:%d: Error in sourced command file:\n", source_pre_error, source_file_name, source_line_number); error_pre_print = source_error; } if (annotation_level > 1 && instream == stdin) { printf_unfiltered ("\n\032\032pre-"); printf_unfiltered (annotation_suffix); printf_unfiltered ("\n"); } /* Don't use fancy stuff if not talking to stdin. */ if (command_editing_p && instream == stdin && ISATTY (instream)) rl = readline (local_prompt); else rl = gdb_readline (local_prompt); if (annotation_level > 1 && instream == stdin) { printf_unfiltered ("\n\032\032post-"); printf_unfiltered (annotation_suffix); printf_unfiltered ("\n"); } if (!rl || rl == (char *) EOF) { got_eof = 1; break; } if (strlen(rl) + 1 + (p - linebuffer) > linelength) { linelength = strlen(rl) + 1 + (p - linebuffer); nline = (char *) xrealloc (linebuffer, linelength); p += nline - linebuffer; linebuffer = nline; } p1 = rl; /* Copy line. Don't copy null at end. (Leaves line alone if this was just a newline) */ while (*p1) *p++ = *p1++; free (rl); /* Allocated in readline. */ if (p == linebuffer || *(p - 1) != '\\') break; p--; /* Put on top of '\'. */ local_prompt = (char *) 0; } #ifdef STOP_SIGNAL if (job_control) signal (STOP_SIGNAL, SIG_DFL); #endif immediate_quit--; if (got_eof) return NULL; #define SERVER_COMMAND_LENGTH 7 server_command = (p - linebuffer > SERVER_COMMAND_LENGTH) && STREQN (linebuffer, "server ", SERVER_COMMAND_LENGTH); if (server_command) { /* Note that we don't set `line'. Between this and the check in dont_repeat, this insures that repeating will still do the right thing. */ *p = '\0'; return linebuffer + SERVER_COMMAND_LENGTH; } /* Do history expansion if that is wished. */ if (history_expansion_p && instream == stdin && ISATTY (instream)) { char *history_value; int expanded; *p = '\0'; /* Insert null now. */ expanded = history_expand (linebuffer, &history_value); if (expanded) { /* Print the changes. */ printf_unfiltered ("%s\n", history_value); /* If there was an error, call this function again. */ if (expanded < 0) { free (history_value); return command_line_input (prrompt, repeat, annotation_suffix); } if (strlen (history_value) > linelength) { linelength = strlen (history_value) + 1; linebuffer = (char *) xrealloc (linebuffer, linelength); } strcpy (linebuffer, history_value); p = linebuffer + strlen(linebuffer); free (history_value); } } /* If we just got an empty line, and that is supposed to repeat the previous command, return the value in the global buffer. */ if (repeat) { if (p == linebuffer) return line; p1 = linebuffer; while (*p1 == ' ' || *p1 == '\t') p1++; if (!*p1) return line; } *p = 0; /* Add line to history if appropriate. */ if (instream == stdin && ISATTY (stdin) && *linebuffer) add_history (linebuffer); /* Note: lines consisting solely of comments are added to the command history. This is useful when you type a command, and then realize you don't want to execute it quite yet. You can comment out the command and then later fetch it from the value history and remove the '#'. The kill ring is probably better, but some people are in the habit of commenting things out. */ p1 = linebuffer; while ((c = *p1++) != '\0') { if (c == '"') while ((c = *p1++) != '"') { /* Make sure an escaped '"' doesn't make us think the string is ended. */ if (c == '\\') parse_escape (&p1); if (c == '\0') break; } else if (c == '\'') while ((c = *p1++) != '\'') { /* Make sure an escaped '\'' doesn't make us think the string is ended. */ if (c == '\\') parse_escape (&p1); if (c == '\0') break; } else if (c == '#') { /* Found a comment. */ p1[-1] = '\0'; break; } } /* Save into global buffer if appropriate. */ if (repeat) { if (linelength > linesize) { line = xrealloc (line, linelength); linesize = linelength; } strcpy (line, linebuffer); return line; } return linebuffer; } /* Read lines from the input stream and accumulate them in a chain of struct command_line's which is then returned. */ struct command_line * read_command_lines () { struct command_line *first = 0; register struct command_line *next, *tail = 0; register char *p, *p1; struct cleanup *old_chain = 0; while (1) { dont_repeat (); p = command_line_input ((char *) NULL, instream == stdin, "commands"); if (p == NULL) /* Treat end of file like "end". */ break; /* Remove leading and trailing blanks. */ while (*p == ' ' || *p == '\t') p++; p1 = p + strlen (p); while (p1 != p && (p1[-1] == ' ' || p1[-1] == '\t')) p1--; /* Is this "end"? */ if (p1 - p == 3 && !strncmp (p, "end", 3)) break; /* No => add this line to the chain of command lines. */ next = (struct command_line *) xmalloc (sizeof (struct command_line)); next->line = savestring (p, p1 - p); next->next = 0; if (tail) { tail->next = next; } else { /* We just read the first line. From now on, arrange to throw away the lines we have if we quit or get an error while inside this function. */ first = next; old_chain = make_cleanup (free_command_lines, &first); } tail = next; } dont_repeat (); /* Now we are about to return the chain to our caller, so freeing it becomes his responsibility. */ if (first) discard_cleanups (old_chain); return first; } /* Free a chain of struct command_line's. */ void free_command_lines (lptr) struct command_line **lptr; { register struct command_line *l = *lptr; register struct command_line *next; while (l) { next = l->next; free (l->line); free ((PTR)l); l = next; } } /* Add an element to the list of info subcommands. */ void add_info (name, fun, doc) char *name; void (*fun) PARAMS ((char *, int)); char *doc; { add_cmd (name, no_class, fun, doc, &infolist); } /* Add an alias to the list of info subcommands. */ void add_info_alias (name, oldname, abbrev_flag) char *name; char *oldname; int abbrev_flag; { add_alias_cmd (name, oldname, 0, abbrev_flag, &infolist); } /* The "info" command is defined as a prefix, with allow_unknown = 0. Therefore, its own definition is called only for "info" with no args. */ /* ARGSUSED */ static void info_command (arg, from_tty) char *arg; int from_tty; { printf_unfiltered ("\"info\" must be followed by the name of an info command.\n"); help_list (infolist, "info ", -1, gdb_stdout); } /* The "complete" command is used by Emacs to implement completion. */ /* ARGSUSED */ static void complete_command (arg, from_tty) char *arg; int from_tty; { int i; char *completion; dont_repeat (); if (arg == NULL) { rl_line_buffer[0] = '\0'; rl_point = 0; } else { strcpy (rl_line_buffer, arg); rl_point = strlen (arg); } for (completion = symbol_completion_function (rl_line_buffer, i = 0); completion; completion = symbol_completion_function (rl_line_buffer, ++i)) printf_unfiltered ("%s\n", completion); } /* The "show" command with no arguments shows all the settings. */ /* ARGSUSED */ static void show_command (arg, from_tty) char *arg; int from_tty; { cmd_show_list (showlist, from_tty, ""); } /* Add an element to the list of commands. */ void add_com (name, class, fun, doc) char *name; enum command_class class; void (*fun) PARAMS ((char *, int)); char *doc; { add_cmd (name, class, fun, doc, &cmdlist); } /* Add an alias or abbreviation command to the list of commands. */ void add_com_alias (name, oldname, class, abbrev_flag) char *name; char *oldname; enum command_class class; int abbrev_flag; { add_alias_cmd (name, oldname, class, abbrev_flag, &cmdlist); } void error_no_arg (why) char *why; { error ("Argument required (%s).", why); } /* ARGSUSED */ static void help_command (command, from_tty) char *command; int from_tty; /* Ignored */ { help_cmd (command, gdb_stdout); } static void validate_comname (comname) char *comname; { register char *p; if (comname == 0) error_no_arg ("name of command to define"); p = comname; while (*p) { if (!isalnum(*p) && *p != '-') error ("Junk in argument list: \"%s\"", p); p++; } } /* This is just a placeholder in the command data structures. */ static void user_defined_command (ignore, from_tty) char *ignore; int from_tty; { } static void define_command (comname, from_tty) char *comname; int from_tty; { register struct command_line *cmds; register struct cmd_list_element *c, *newc, *hookc = 0; char *tem = comname; #define HOOK_STRING "hook-" #define HOOK_LEN 5 validate_comname (comname); /* Look it up, and verify that we got an exact match. */ c = lookup_cmd (&tem, cmdlist, "", -1, 1); if (c && !STREQ (comname, c->name)) c = 0; if (c) { if (c->class == class_user || c->class == class_alias) tem = "Redefine command \"%s\"? "; else tem = "Really redefine built-in command \"%s\"? "; if (!query (tem, c->name)) error ("Command \"%s\" not redefined.", c->name); } /* If this new command is a hook, then mark the command which it is hooking. Note that we allow hooking `help' commands, so that we can hook the `stop' pseudo-command. */ if (!strncmp (comname, HOOK_STRING, HOOK_LEN)) { /* Look up cmd it hooks, and verify that we got an exact match. */ tem = comname+HOOK_LEN; hookc = lookup_cmd (&tem, cmdlist, "", -1, 0); if (hookc && !STREQ (comname+HOOK_LEN, hookc->name)) hookc = 0; if (!hookc) { warning ("Your new `%s' command does not hook any existing command.", comname); if (!query ("Proceed? ", (char *)0)) error ("Not confirmed."); } } comname = savestring (comname, strlen (comname)); /* If the rest of the commands will be case insensitive, this one should behave in the same manner. */ for (tem = comname; *tem; tem++) if (isupper(*tem)) *tem = tolower(*tem); if (from_tty) { printf_unfiltered ("Type commands for definition of \"%s\".\n\ End with a line saying just \"end\".\n", comname); gdb_flush (gdb_stdout); } cmds = read_command_lines (); if (c && c->class == class_user) free_command_lines (&c->user_commands); newc = add_cmd (comname, class_user, user_defined_command, (c && c->class == class_user) ? c->doc : savestring ("User-defined.", 13), &cmdlist); newc->user_commands = cmds; /* If this new command is a hook, then mark both commands as being tied. */ if (hookc) { hookc->hook = newc; /* Target gets hooked. */ newc->hookee = hookc; /* We are marked as hooking target cmd. */ } } static void document_command (comname, from_tty) char *comname; int from_tty; { struct command_line *doclines; register struct cmd_list_element *c; char *tem = comname; validate_comname (comname); c = lookup_cmd (&tem, cmdlist, "", 0, 1); if (c->class != class_user) error ("Command \"%s\" is built-in.", comname); if (from_tty) printf_unfiltered ("Type documentation for \"%s\".\n\ End with a line saying just \"end\".\n", comname); doclines = read_command_lines (); if (c->doc) free (c->doc); { register struct command_line *cl1; register int len = 0; for (cl1 = doclines; cl1; cl1 = cl1->next) len += strlen (cl1->line) + 1; c->doc = (char *) xmalloc (len + 1); *c->doc = 0; for (cl1 = doclines; cl1; cl1 = cl1->next) { strcat (c->doc, cl1->line); if (cl1->next) strcat (c->doc, "\n"); } } free_command_lines (&doclines); } void print_gnu_advertisement () { printf_unfiltered ("\ GDB is free software and you are welcome to distribute copies of it\n\ under certain conditions; type \"show copying\" to see the conditions.\n\ There is absolutely no warranty for GDB; type \"show warranty\" for details.\n\ "); } void print_gdb_version (stream) GDB_FILE *stream; { fprintf_filtered (stream, "\ GDB %s (%s", version, host_name); if (!STREQ (host_name, target_name)) fprintf_filtered (stream, " --target %s", target_name); fprintf_filtered (stream, "), "); wrap_here(""); fprintf_filtered (stream, "Copyright 1994 Free Software Foundation, Inc."); } /* ARGSUSED */ static void show_version (args, from_tty) char *args; int from_tty; { immediate_quit++; print_gnu_advertisement (); print_gdb_version (gdb_stdout); printf_filtered ("\n"); immediate_quit--; } /* xgdb calls this to reprint the usual GDB prompt. Obsolete now that xgdb is obsolete. */ void print_prompt () { printf_unfiltered ("%s", prompt); gdb_flush (gdb_stdout); } void quit_command (args, from_tty) char *args; int from_tty; { if (inferior_pid != 0 && target_has_execution) { if (attach_flag) { if (query ("The program is running. Quit anyway (and detach it)? ")) target_detach (args, from_tty); else error ("Not confirmed."); } else { if (query ("The program is running. Quit anyway (and kill it)? ")) target_kill (); else error ("Not confirmed."); } } /* UDI wants this, to kill the TIP. */ target_close (1); /* Save the history information if it is appropriate to do so. */ if (write_history_p && history_filename) write_history (history_filename); exit (0); } /* Returns whether GDB is running on a terminal and whether the user desires that questions be asked of them on that terminal. */ int input_from_terminal_p () { return gdb_has_a_terminal () && (instream == stdin) & caution; } /* ARGSUSED */ static void pwd_command (args, from_tty) char *args; int from_tty; { if (args) error ("The \"pwd\" command does not take an argument: %s", args); getcwd (gdb_dirbuf, sizeof (gdb_dirbuf)); if (!STREQ (gdb_dirbuf, current_directory)) printf_unfiltered ("Working directory %s\n (canonically %s).\n", current_directory, gdb_dirbuf); else printf_unfiltered ("Working directory %s.\n", current_directory); } void cd_command (dir, from_tty) char *dir; int from_tty; { int len; /* Found something other than leading repetitions of "/..". */ int found_real_path; char *p; /* If the new directory is absolute, repeat is a no-op; if relative, repeat might be useful but is more likely to be a mistake. */ dont_repeat (); if (dir == 0) error_no_arg ("new working directory"); dir = tilde_expand (dir); make_cleanup (free, dir); if (chdir (dir) < 0) perror_with_name (dir); len = strlen (dir); dir = savestring (dir, len - (len > 1 && dir[len-1] == '/')); if (dir[0] == '/') current_directory = dir; else { if (current_directory[0] == '/' && current_directory[1] == '\0') current_directory = concat (current_directory, dir, NULL); else current_directory = concat (current_directory, "/", dir, NULL); free (dir); } /* Now simplify any occurrences of `.' and `..' in the pathname. */ found_real_path = 0; for (p = current_directory; *p;) { if (p[0] == '/' && p[1] == '.' && (p[2] == 0 || p[2] == '/')) strcpy (p, p + 2); else if (p[0] == '/' && p[1] == '.' && p[2] == '.' && (p[3] == 0 || p[3] == '/')) { if (found_real_path) { /* Search backwards for the directory just before the "/.." and obliterate it and the "/..". */ char *q = p; while (q != current_directory && q[-1] != '/') --q; if (q == current_directory) /* current_directory is a relative pathname ("can't happen"--leave it alone). */ ++p; else { strcpy (q - 1, p + 3); p = q - 1; } } else /* We are dealing with leading repetitions of "/..", for example "/../..", which is the Mach super-root. */ p += 3; } else { found_real_path = 1; ++p; } } forget_cached_source_info (); if (from_tty) pwd_command ((char *) 0, 1); } struct source_cleanup_lines_args { int old_line; char *old_file; char *old_pre_error; char *old_error_pre_print; }; static void source_cleanup_lines (args) PTR args; { struct source_cleanup_lines_args *p = (struct source_cleanup_lines_args *)args; source_line_number = p->old_line; source_file_name = p->old_file; source_pre_error = p->old_pre_error; error_pre_print = p->old_error_pre_print; } /* ARGSUSED */ void source_command (args, from_tty) char *args; int from_tty; { FILE *stream; struct cleanup *old_cleanups; char *file = args; struct source_cleanup_lines_args old_lines; int needed_length; if (file == NULL) { error ("source command requires pathname of file to source."); } file = tilde_expand (file); old_cleanups = make_cleanup (free, file); stream = fopen (file, FOPEN_RT); if (stream == 0) perror_with_name (file); make_cleanup (fclose, stream); old_lines.old_line = source_line_number; old_lines.old_file = source_file_name; old_lines.old_pre_error = source_pre_error; old_lines.old_error_pre_print = error_pre_print; make_cleanup (source_cleanup_lines, &old_lines); source_line_number = 0; source_file_name = file; source_pre_error = error_pre_print == NULL ? "" : error_pre_print; source_pre_error = savestring (source_pre_error, strlen (source_pre_error)); make_cleanup (free, source_pre_error); /* This will get set every time we read a line. So it won't stay "" for long. */ error_pre_print = ""; needed_length = strlen (source_file_name) + strlen (source_pre_error) + 80; if (source_error_allocated < needed_length) { source_error_allocated *= 2; if (source_error_allocated < needed_length) source_error_allocated = needed_length; if (source_error == NULL) source_error = xmalloc (source_error_allocated); else source_error = xrealloc (source_error, source_error_allocated); } read_command_file (stream); do_cleanups (old_cleanups); } /* ARGSUSED */ static void echo_command (text, from_tty) char *text; int from_tty; { char *p = text; register int c; if (text) while ((c = *p++) != '\0') { if (c == '\\') { /* \ at end of argument is used after spaces so they won't be lost. */ if (*p == 0) return; c = parse_escape (&p); if (c >= 0) printf_filtered ("%c", c); } else printf_filtered ("%c", c); } /* Force this output to appear now. */ wrap_here (""); gdb_flush (gdb_stdout); } /* Functions to manipulate command line editing control variables. */ /* Number of commands to print in each call to show_commands. */ #define Hist_print 10 static void show_commands (args, from_tty) char *args; int from_tty; { /* Index for history commands. Relative to history_base. */ int offset; /* Number of the history entry which we are planning to display next. Relative to history_base. */ static int num = 0; /* The first command in the history which doesn't exist (i.e. one more than the number of the last command). Relative to history_base. */ int hist_len; extern HIST_ENTRY *history_get PARAMS ((int)); /* Print out some of the commands from the command history. */ /* First determine the length of the history list. */ hist_len = history_size; for (offset = 0; offset < history_size; offset++) { if (!history_get (history_base + offset)) { hist_len = offset; break; } } if (args) { if (args[0] == '+' && args[1] == '\0') /* "info editing +" should print from the stored position. */ ; else /* "info editing " should print around command number . */ num = (parse_and_eval_address (args) - history_base) - Hist_print / 2; } /* "show commands" means print the last Hist_print commands. */ else { num = hist_len - Hist_print; } if (num < 0) num = 0; /* If there are at least Hist_print commands, we want to display the last Hist_print rather than, say, the last 6. */ if (hist_len - num < Hist_print) { num = hist_len - Hist_print; if (num < 0) num = 0; } for (offset = num; offset < num + Hist_print && offset < hist_len; offset++) { printf_filtered ("%5d %s\n", history_base + offset, (history_get (history_base + offset))->line); } /* The next command we want to display is the next one that we haven't displayed yet. */ num += Hist_print; /* If the user repeats this command with return, it should do what "show commands +" does. This is unnecessary if arg is null, because "show commands +" is not useful after "show commands". */ if (from_tty && args) { args[0] = '+'; args[1] = '\0'; } } /* Called by do_setshow_command. */ /* ARGSUSED */ static void set_history_size_command (args, from_tty, c) char *args; int from_tty; struct cmd_list_element *c; { if (history_size == INT_MAX) unstifle_history (); else if (history_size >= 0) stifle_history (history_size); else { history_size = INT_MAX; error ("History size must be non-negative"); } } /* ARGSUSED */ static void set_history (args, from_tty) char *args; int from_tty; { printf_unfiltered ("\"set history\" must be followed by the name of a history subcommand.\n"); help_list (sethistlist, "set history ", -1, gdb_stdout); } /* ARGSUSED */ static void show_history (args, from_tty) char *args; int from_tty; { cmd_show_list (showhistlist, from_tty, ""); } int info_verbose = 0; /* Default verbose msgs off */ /* Called by do_setshow_command. An elaborate joke. */ /* ARGSUSED */ static void set_verbose (args, from_tty, c) char *args; int from_tty; struct cmd_list_element *c; { char *cmdname = "verbose"; struct cmd_list_element *showcmd; showcmd = lookup_cmd_1 (&cmdname, showlist, NULL, 1); if (info_verbose) { c->doc = "Set verbose printing of informational messages."; showcmd->doc = "Show verbose printing of informational messages."; } else { c->doc = "Set verbosity."; showcmd->doc = "Show verbosity."; } } static void float_handler (signo) int signo; { /* This message is based on ANSI C, section 4.7. Note that integer divide by zero causes this, so "float" is a misnomer. */ signal (SIGFPE, float_handler); error ("Erroneous arithmetic operation."); } static void init_cmd_lists () { cmdlist = NULL; infolist = NULL; enablelist = NULL; disablelist = NULL; deletelist = NULL; enablebreaklist = NULL; setlist = NULL; unsetlist = NULL; showlist = NULL; sethistlist = NULL; showhistlist = NULL; unsethistlist = NULL; #if MAINTENANCE_CMDS maintenancelist = NULL; maintenanceinfolist = NULL; maintenanceprintlist = NULL; #endif setprintlist = NULL; showprintlist = NULL; setchecklist = NULL; showchecklist = NULL; } /* Init the history buffer. Note that we are called after the init file(s) * have been read so that the user can change the history file via his * .gdbinit file (for instance). The GDBHISTFILE environment variable * overrides all of this. */ void init_history() { char *tmpenv; tmpenv = getenv ("HISTSIZE"); if (tmpenv) history_size = atoi (tmpenv); else if (!history_size) history_size = 256; stifle_history (history_size); tmpenv = getenv ("GDBHISTFILE"); if (tmpenv) history_filename = savestring (tmpenv, strlen(tmpenv)); else if (!history_filename) { /* We include the current directory so that if the user changes directories the file written will be the same as the one that was read. */ history_filename = concat (current_directory, "/.gdb_history", NULL); } read_history (history_filename); } static void init_main () { struct cmd_list_element *c; #ifdef DEFAULT_PROMPT prompt = savestring (DEFAULT_PROMPT, strlen(DEFAULT_PROMPT)); #else prompt = savestring ("(gdb) ", 6); #endif /* Set the important stuff up for command editing. */ command_editing_p = 1; history_expansion_p = 0; write_history_p = 0; /* Setup important stuff for command line editing. */ rl_completion_entry_function = (int (*)()) symbol_completion_function; rl_completer_word_break_characters = gdb_completer_word_break_characters; rl_completer_quote_characters = gdb_completer_quote_characters; rl_readline_name = "gdb"; /* Define the classes of commands. They will appear in the help list in the reverse of this order. */ add_cmd ("internals", class_maintenance, NO_FUNCTION, "Maintenance commands.\n\ Some gdb commands are provided just for use by gdb maintainers.\n\ These commands are subject to frequent change, and may not be as\n\ well documented as user commands.", &cmdlist); add_cmd ("obscure", class_obscure, NO_FUNCTION, "Obscure features.", &cmdlist); add_cmd ("aliases", class_alias, NO_FUNCTION, "Aliases of other commands.", &cmdlist); add_cmd ("user-defined", class_user, NO_FUNCTION, "User-defined commands.\n\ The commands in this class are those defined by the user.\n\ Use the \"define\" command to define a command.", &cmdlist); add_cmd ("support", class_support, NO_FUNCTION, "Support facilities.", &cmdlist); add_cmd ("status", class_info, NO_FUNCTION, "Status inquiries.", &cmdlist); add_cmd ("files", class_files, NO_FUNCTION, "Specifying and examining files.", &cmdlist); add_cmd ("breakpoints", class_breakpoint, NO_FUNCTION, "Making program stop at certain points.", &cmdlist); add_cmd ("data", class_vars, NO_FUNCTION, "Examining data.", &cmdlist); add_cmd ("stack", class_stack, NO_FUNCTION, "Examining the stack.\n\ The stack is made up of stack frames. Gdb assigns numbers to stack frames\n\ counting from zero for the innermost (currently executing) frame.\n\n\ At any time gdb identifies one frame as the \"selected\" frame.\n\ Variable lookups are done with respect to the selected frame.\n\ When the program being debugged stops, gdb selects the innermost frame.\n\ The commands below can be used to select other frames by number or address.", &cmdlist); add_cmd ("running", class_run, NO_FUNCTION, "Running the program.", &cmdlist); add_com ("pwd", class_files, pwd_command, "Print working directory. This is used for your program as well."); c = add_cmd ("cd", class_files, cd_command, "Set working directory to DIR for debugger and program being debugged.\n\ The change does not take effect for the program being debugged\n\ until the next time it is started.", &cmdlist); c->completer = filename_completer; add_show_from_set (add_set_cmd ("prompt", class_support, var_string, (char *)&prompt, "Set gdb's prompt", &setlist), &showlist); add_com ("echo", class_support, echo_command, "Print a constant string. Give string as argument.\n\ C escape sequences may be used in the argument.\n\ No newline is added at the end of the argument;\n\ use \"\\n\" if you want a newline to be printed.\n\ Since leading and trailing whitespace are ignored in command arguments,\n\ if you want to print some you must use \"\\\" before leading whitespace\n\ to be printed or after trailing whitespace."); add_com ("document", class_support, document_command, "Document a user-defined command.\n\ Give command name as argument. Give documentation on following lines.\n\ End with a line of just \"end\"."); add_com ("define", class_support, define_command, "Define a new command name. Command name is argument.\n\ Definition appears on following lines, one command per line.\n\ End with a line of just \"end\".\n\ Use the \"document\" command to give documentation for the new command.\n\ Commands defined in this way do not take arguments."); #ifdef __STDC__ c = add_cmd ("source", class_support, source_command, "Read commands from a file named FILE.\n\ Note that the file \"" GDBINIT_FILENAME "\" is read automatically in this way\n\ when gdb is started.", &cmdlist); #else /* Punt file name, we can't help it easily. */ c = add_cmd ("source", class_support, source_command, "Read commands from a file named FILE.\n\ Note that the file \".gdbinit\" is read automatically in this way\n\ when gdb is started.", &cmdlist); #endif c->completer = filename_completer; add_com ("quit", class_support, quit_command, "Exit gdb."); add_com ("help", class_support, help_command, "Print list of commands."); add_com_alias ("q", "quit", class_support, 1); add_com_alias ("h", "help", class_support, 1); c = add_set_cmd ("verbose", class_support, var_boolean, (char *)&info_verbose, "Set ", &setlist), add_show_from_set (c, &showlist); c->function.sfunc = set_verbose; set_verbose (NULL, 0, c); add_show_from_set (add_set_cmd ("editing", class_support, var_boolean, (char *)&command_editing_p, "Set editing of command lines as they are typed.\n\ Use \"on\" to enable to enable the editing, and \"off\" to disable it.\n\ Without an argument, command line editing is enabled. To edit, use\n\ EMACS-like or VI-like commands like control-P or ESC.", &setlist), &showlist); add_prefix_cmd ("history", class_support, set_history, "Generic command for setting command history parameters.", &sethistlist, "set history ", 0, &setlist); add_prefix_cmd ("history", class_support, show_history, "Generic command for showing command history parameters.", &showhistlist, "show history ", 0, &showlist); add_show_from_set (add_set_cmd ("expansion", no_class, var_boolean, (char *)&history_expansion_p, "Set history expansion on command input.\n\ Without an argument, history expansion is enabled.", &sethistlist), &showhistlist); add_show_from_set (add_set_cmd ("save", no_class, var_boolean, (char *)&write_history_p, "Set saving of the history record on exit.\n\ Use \"on\" to enable to enable the saving, and \"off\" to disable it.\n\ Without an argument, saving is enabled.", &sethistlist), &showhistlist); c = add_set_cmd ("size", no_class, var_integer, (char *)&history_size, "Set the size of the command history, \n\ ie. the number of previous commands to keep a record of.", &sethistlist); add_show_from_set (c, &showhistlist); c->function.sfunc = set_history_size_command; add_show_from_set (add_set_cmd ("filename", no_class, var_filename, (char *)&history_filename, "Set the filename in which to record the command history\n\ (the list of previous commands of which a record is kept).", &sethistlist), &showhistlist); add_show_from_set (add_set_cmd ("confirm", class_support, var_boolean, (char *)&caution, "Set whether to confirm potentially dangerous operations.", &setlist), &showlist); add_prefix_cmd ("info", class_info, info_command, "Generic command for showing things about the program being debugged.", &infolist, "info ", 0, &cmdlist); add_com_alias ("i", "info", class_info, 1); add_com ("complete", class_obscure, complete_command, "List the completions for the rest of the line as a command."); add_prefix_cmd ("show", class_info, show_command, "Generic command for showing things about the debugger.", &showlist, "show ", 0, &cmdlist); /* Another way to get at the same thing. */ add_info ("set", show_command, "Show all GDB settings."); add_cmd ("commands", no_class, show_commands, "Show the the history of commands you typed.\n\ You can supply a command number to start with, or a `+' to start after\n\ the previous command number shown.", &showlist); add_cmd ("version", no_class, show_version, "Show what version of GDB this is.", &showlist); /* If target is open when baud changes, it doesn't take effect until the next open (I think, not sure). */ add_show_from_set (add_set_cmd ("remotebaud", no_class, var_zinteger, (char *)&baud_rate, "Set baud rate for remote serial I/O.\n\ This value is used to set the speed of the serial port when debugging\n\ using remote targets.", &setlist), &showlist); add_show_from_set ( add_set_cmd ("remotedebug", no_class, var_zinteger, (char *)&remote_debug, "Set debugging of remote protocol.\n\ When enabled, each packet sent or received with the remote target\n\ is displayed.", &setlist), &showlist); } gdb-4.13/gdb/top.h 666 34562 1752 3277 5602151151 12251 0ustar fnfcygnus/* Top level stuff for GDB, the GNU debugger. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* From top.c. */ extern char *line; extern int linesize; extern FILE *instream; extern char gdb_dirbuf[1024]; extern int inhibit_gdbinit; extern int epoch_interface; extern char gdbinit[]; /* Generally one should use catch_errors rather than manipulating these directly. The exception is main(). */ extern jmp_buf error_return; extern jmp_buf quit_return; extern void print_gdb_version PARAMS ((GDB_FILE *)); extern void print_gnu_advertisement PARAMS ((void)); extern void source_command PARAMS ((char *, int)); extern void cd_command PARAMS ((char *, int)); extern void read_command_file PARAMS ((FILE *)); extern void init_history PARAMS ((void)); extern void command_loop PARAMS ((void)); extern void quit_command PARAMS ((char *, int)); /* From random places. */ extern int mapped_symbol_files; extern int readnow_symbol_files; #define ALL_CLEANUPS ((struct cleanup *)0) gdb-4.13/gdb/typeprint.c 666 34562 1752 16537 5535233017 13532 0ustar fnfcygnus/* Language independent support for printing types for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "obstack.h" #include "bfd.h" /* Binary File Description */ #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "value.h" #include "gdbcore.h" #include "command.h" #include "gdbcmd.h" #include "target.h" #include "language.h" #include "demangle.h" #include #include static void ptype_command PARAMS ((char *, int)); static struct type * ptype_eval PARAMS ((struct expression *)); static void whatis_command PARAMS ((char *, int)); static void whatis_exp PARAMS ((char *, int)); /* Print a description of a type TYPE in the form of a declaration of a variable named VARSTRING. (VARSTRING is demangled if necessary.) Output goes to STREAM (via stdio). If SHOW is positive, we show the contents of the outermost level of structure even if there is a type name that could be used instead. If SHOW is negative, we never show the details of elements' types. */ void type_print (type, varstring, stream, show) struct type *type; char *varstring; GDB_FILE *stream; int show; { LA_PRINT_TYPE (type, varstring, stream, show, 0); } /* Print type of EXP, or last thing in value history if EXP == NULL. show is passed to type_print. */ static void whatis_exp (exp, show) char *exp; int show; { struct expression *expr; register value_ptr val; register struct cleanup *old_chain = NULL; if (exp) { expr = parse_expression (exp); old_chain = make_cleanup (free_current_contents, &expr); val = evaluate_type (expr); } else val = access_value_history (0); printf_filtered ("type = "); type_print (VALUE_TYPE (val), "", gdb_stdout, show); printf_filtered ("\n"); if (exp) do_cleanups (old_chain); } /* ARGSUSED */ static void whatis_command (exp, from_tty) char *exp; int from_tty; { /* Most of the time users do not want to see all the fields in a structure. If they do they can use the "ptype" command. Hence the "-1" below. */ whatis_exp (exp, -1); } /* Simple subroutine for ptype_command. */ static struct type * ptype_eval (exp) struct expression *exp; { if (exp->elts[0].opcode == OP_TYPE) { return (exp->elts[1].type); } else { return (NULL); } } /* TYPENAME is either the name of a type, or an expression. */ /* ARGSUSED */ static void ptype_command (typename, from_tty) char *typename; int from_tty; { register struct type *type; struct expression *expr; register struct cleanup *old_chain; if (typename == NULL) { /* Print type of last thing in value history. */ whatis_exp (typename, 1); } else { expr = parse_expression (typename); old_chain = make_cleanup (free_current_contents, &expr); type = ptype_eval (expr); if (type != NULL) { /* User did "ptype " */ printf_filtered ("type = "); type_print (type, "", gdb_stdout, 1); printf_filtered ("\n"); do_cleanups (old_chain); } else { /* User did "ptype " */ do_cleanups (old_chain); whatis_exp (typename, 1); } } } /* Print integral scalar data VAL, of type TYPE, onto stdio stream STREAM. Used to print data from type structures in a specified type. For example, array bounds may be characters or booleans in some languages, and this allows the ranges to be printed in their "natural" form rather than as decimal integer values. FIXME: This is here simply because only the type printing routines currently use it, and it wasn't clear if it really belonged somewhere else (like printcmd.c). There are a lot of other gdb routines that do something similar, but they are generally concerned with printing values that come from the inferior in target byte order and target size. */ void print_type_scalar (type, val, stream) struct type *type; LONGEST val; GDB_FILE *stream; { unsigned int i; unsigned len; switch (TYPE_CODE (type)) { case TYPE_CODE_ENUM: len = TYPE_NFIELDS (type); for (i = 0; i < len; i++) { if (TYPE_FIELD_BITPOS (type, i) == val) { break; } } if (i < len) { fputs_filtered (TYPE_FIELD_NAME (type, i), stream); } else { print_longest (stream, 'd', 0, val); } break; case TYPE_CODE_INT: print_longest (stream, TYPE_UNSIGNED (type) ? 'u' : 'd', 0, val); break; case TYPE_CODE_CHAR: LA_PRINT_CHAR ((unsigned char) val, stream); break; case TYPE_CODE_BOOL: fprintf_filtered (stream, val ? "TRUE" : "FALSE"); break; case TYPE_CODE_UNDEF: case TYPE_CODE_PTR: case TYPE_CODE_ARRAY: case TYPE_CODE_STRUCT: case TYPE_CODE_UNION: case TYPE_CODE_FUNC: case TYPE_CODE_FLT: case TYPE_CODE_VOID: case TYPE_CODE_SET: case TYPE_CODE_RANGE: case TYPE_CODE_STRING: case TYPE_CODE_ERROR: case TYPE_CODE_MEMBER: case TYPE_CODE_METHOD: case TYPE_CODE_REF: error ("internal error: unhandled type in print_type_scalar"); break; default: error ("Invalid type code in symbol table."); } gdb_flush (stream); } #if MAINTENANCE_CMDS /* Dump details of a type specified either directly or indirectly. Uses the same sort of type lookup mechanism as ptype_command() and whatis_command(). */ void maintenance_print_type (typename, from_tty) char *typename; int from_tty; { register value_ptr val; register struct type *type; register struct cleanup *old_chain; struct expression *expr; if (typename != NULL) { expr = parse_expression (typename); old_chain = make_cleanup (free_current_contents, &expr); if (expr -> elts[0].opcode == OP_TYPE) { /* The user expression names a type directly, just use that type. */ type = expr -> elts[1].type; } else { /* The user expression may name a type indirectly by naming an object of that type. Find that indirectly named type. */ val = evaluate_type (expr); type = VALUE_TYPE (val); } if (type != NULL) { recursive_dump_type (type, 0); } do_cleanups (old_chain); } } #endif /* MAINTENANCE_CMDS */ void _initialize_typeprint () { add_com ("ptype", class_vars, ptype_command, "Print definition of type TYPE.\n\ Argument may be a type name defined by typedef, or \"struct STRUCT-TAG\"\n\ or \"class CLASS-NAME\" or \"union UNION-TAG\" or \"enum ENUM-TAG\".\n\ The selected stack frame's lexical context is used to look up the name."); add_com ("whatis", class_vars, whatis_command, "Print data type of expression EXP."); } gdb-4.13/gdb/typeprint.h 666 34562 1752 1634 5465306056 13515 0ustar fnfcygnus/* Language independent support for printing types for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ void print_type_scalar PARAMS ((struct type *type, LONGEST, GDB_FILE *)); gdb-4.13/gdb/ultra3-nat.c 666 34562 1752 22601 5465306060 13454 0ustar fnfcygnus/* Native-dependent code for GDB, for NYU Ultra3 running Sym1 OS. Copyright (C) 1988, 1989, 1991, 1992 Free Software Foundation, Inc. Contributed by David Wood (wood@nyu.edu) at New York University. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define DEBUG #include "defs.h" #include "frame.h" #include "inferior.h" #include "symtab.h" #include "value.h" #include #include #include #include #include #include "gdbcore.h" #include #include /* Assumes support for AMD's Binary Compatibility Standard for ptrace(). If you define ULTRA3, the ultra3 extensions to ptrace() are used allowing the reading of more than one register at a time. This file assumes KERNEL_DEBUGGING is turned off. This means that if the user/gdb tries to read gr64-gr95 or any of the protected special registers we silently return -1 (see the CANNOT_STORE/FETCH_REGISTER macros). */ #define ULTRA3 #if !defined (offsetof) # define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER) #endif extern int errno; struct ptrace_user pt_struct; /* Get all available registers from the inferior. Registers that are * defined in REGISTER_NAMES, but not available to the user/gdb are * supplied as -1. This may include gr64-gr95 and the protected special * purpose registers. */ void fetch_inferior_registers (regno) int regno; { register int i,j,ret_val=0; char buf[128]; if (regno != -1) { fetch_register (regno); return; } /* Global Registers */ #ifdef ULTRA3 errno = 0; ptrace (PT_READ_STRUCT, inferior_pid, (PTRACE_ARG3_TYPE) register_addr(GR96_REGNUM,0), (int)&pt_struct.pt_gr[0], 32*4); if (errno != 0) { perror_with_name ("reading global registers"); ret_val = -1; } else for (regno=GR96_REGNUM, j=0 ; j<32 ; regno++, j++) { supply_register (regno, &pt_struct.pt_gr[j]); } #else for (regno=GR96_REGNUM ; !ret_val && regno < GR96_REGNUM+32 ; regno++) fetch_register(regno); #endif /* Local Registers */ #ifdef ULTRA3 errno = 0; ptrace (PT_READ_STRUCT, inferior_pid, (PTRACE_ARG3_TYPE) register_addr(LR0_REGNUM,0), (int)&pt_struct.pt_lr[0], 128*4); if (errno != 0) { perror_with_name ("reading local registers"); ret_val = -1; } else for (regno=LR0_REGNUM, j=0 ; j<128 ; regno++, j++) { supply_register (regno, &pt_struct.pt_lr[j]); } #else for (regno=LR0_REGNUM ; !ret_val && regno < LR0_REGNUM+128 ; regno++) fetch_register(regno); #endif /* Special Registers */ fetch_register(GR1_REGNUM); fetch_register(CPS_REGNUM); fetch_register(PC_REGNUM); fetch_register(NPC_REGNUM); fetch_register(PC2_REGNUM); fetch_register(IPC_REGNUM); fetch_register(IPA_REGNUM); fetch_register(IPB_REGNUM); fetch_register(Q_REGNUM); fetch_register(BP_REGNUM); fetch_register(FC_REGNUM); /* Fake any registers that are in REGISTER_NAMES, but not available to gdb */ registers_fetched(); } /* Store our register values back into the inferior. * If REGNO is -1, do this for all registers. * Otherwise, REGNO specifies which register (so we can save time). * NOTE: Assumes AMD's binary compatibility standard. */ void store_inferior_registers (regno) int regno; { register unsigned int regaddr; char buf[80]; if (regno >= 0) { if (CANNOT_STORE_REGISTER(regno)) return; regaddr = register_addr (regno, 0); errno = 0; ptrace (PT_WRITE_U, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, read_register(regno)); if (errno != 0) { sprintf (buf, "writing register %s (#%d)", reg_names[regno],regno); perror_with_name (buf); } } else { #ifdef ULTRA3 pt_struct.pt_gr1 = read_register(GR1_REGNUM); for (regno = GR96_REGNUM; regno < GR96_REGNUM+32; regno++) pt_struct.pt_gr[regno] = read_register(regno); for (regno = LR0_REGNUM; regno < LR0_REGNUM+128; regno++) pt_struct.pt_gr[regno] = read_register(regno); errno = 0; ptrace (PT_WRITE_STRUCT, inferior_pid, (PTRACE_ARG3_TYPE) register_addr(GR1_REGNUM,0), (int)&pt_struct.pt_gr1,(1*32*128)*4); if (errno != 0) { sprintf (buf, "writing all local/global registers"); perror_with_name (buf); } pt_struct.pt_psr = read_register(CPS_REGNUM); pt_struct.pt_pc0 = read_register(NPC_REGNUM); pt_struct.pt_pc1 = read_register(PC_REGNUM); pt_struct.pt_pc2 = read_register(PC2_REGNUM); pt_struct.pt_ipc = read_register(IPC_REGNUM); pt_struct.pt_ipa = read_register(IPA_REGNUM); pt_struct.pt_ipb = read_register(IPB_REGNUM); pt_struct.pt_q = read_register(Q_REGNUM); pt_struct.pt_bp = read_register(BP_REGNUM); pt_struct.pt_fc = read_register(FC_REGNUM); errno = 0; ptrace (PT_WRITE_STRUCT, inferior_pid, (PTRACE_ARG3_TYPE) register_addr(CPS_REGNUM,0), (int)&pt_struct.pt_psr,(10)*4); if (errno != 0) { sprintf (buf, "writing all special registers"); perror_with_name (buf); return; } #else store_inferior_registers(GR1_REGNUM); for (regno=GR96_REGNUM ; regno= LR0_REGNUM) && (regno < LR0_REGNUM + 128)) { return(offsetof(struct ptrace_user,pt_lr[regno-LR0_REGNUM])); } else if ((regno >= GR96_REGNUM) && (regno < GR96_REGNUM + 32)) { return(offsetof(struct ptrace_user,pt_gr[regno-GR96_REGNUM])); } else { switch (regno) { case GR1_REGNUM: return(offsetof(struct ptrace_user,pt_gr1)); case CPS_REGNUM: return(offsetof(struct ptrace_user,pt_psr)); case NPC_REGNUM: return(offsetof(struct ptrace_user,pt_pc0)); case PC_REGNUM: return(offsetof(struct ptrace_user,pt_pc1)); case PC2_REGNUM: return(offsetof(struct ptrace_user,pt_pc2)); case IPC_REGNUM: return(offsetof(struct ptrace_user,pt_ipc)); case IPA_REGNUM: return(offsetof(struct ptrace_user,pt_ipa)); case IPB_REGNUM: return(offsetof(struct ptrace_user,pt_ipb)); case Q_REGNUM: return(offsetof(struct ptrace_user,pt_q)); case BP_REGNUM: return(offsetof(struct ptrace_user,pt_bp)); case FC_REGNUM: return(offsetof(struct ptrace_user,pt_fc)); default: fprintf_filtered(gdb_stderr,"register_addr():Bad register %s (%d)\n", reg_names[regno],regno); return(0xffffffff); /* Should make ptrace() fail */ } } } gdb-4.13/gdb/ultra3-xdep.c 666 34562 1752 5224 5465306062 13616 0ustar fnfcygnus/* Host-dependent code for GDB, for NYU Ultra3 running Sym1 OS. Copyright (C) 1988, 1989, 1991, 1992 Free Software Foundation, Inc. Contributed by David Wood (wood@nyu.edu) at New York University. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define DEBUG #include "defs.h" #include "frame.h" #include "inferior.h" #include "symtab.h" #include "value.h" #include #include #include #include #include #include "gdbcore.h" #include #include /* Assorted operating system circumventions */ #ifdef SYM1 /* FIXME: Kludge this for now. It really should be system call. */ int getpagesize() { return(8192); } /* FIXME: Fake out the fcntl() call, which we don't have. */ fcntl(fd, cmd, arg) int fd, cmd, arg; { switch (cmd) { case F_GETFL: return(O_RDONLY); break; default: printf_unfiltered("Ultra3's fcntl() failing, cmd = %d.\n",cmd); return(-1); } } /* * 4.2 Signal support, requires linking with libjobs. */ static int _SigMask; #define sigbit(s) (1L << ((s)-1)) init_SigMask() { /* Taken from the sym1 kernel in machdep.c:startup() */ _SigMask = sigbit (SIGTSTP) | sigbit (SIGTTOU) | sigbit (SIGTTIN) | sigbit (SIGCHLD) | sigbit (SIGTINT); } sigmask(signo) int signo; { return (1 << (signo-1)); } sigsetmask(sigmask) unsigned int sigmask; { int i, mask = 1; int lastmask = _SigMask; for (i=0 ; i #include #include #include #include #include "gdbcore.h" #include #define PTRACE_ATTACH PT_ATTACH #define PTRACE_DETACH PT_FREEPROC #include #include /* Work with core dump and executable files, for GDB. This code would be in core.c if it weren't machine-dependent. */ void core_file_command (filename, from_tty) char *filename; int from_tty; { int val; extern char registers[]; /* Discard all vestiges of any previous core file and mark data and stack spaces as empty. */ if (corefile) free (corefile); corefile = 0; if (corechan >= 0) close (corechan); corechan = -1; data_start = 0; data_end = 0; stack_start = STACK_END_ADDR; stack_end = STACK_END_ADDR; /* Now, if a new core file was specified, open it and digest it. */ if (filename) { filename = tilde_expand (filename); make_cleanup (free, filename); if (have_inferior_p ()) error ("To look at a core file, you must kill the program with \"kill\"."); corechan = open (filename, O_RDONLY, 0); if (corechan < 0) perror_with_name (filename); /* 4.2-style (and perhaps also sysV-style) core dump file. */ { struct ptrace_user u; int reg_offset; val = myread (corechan, &u, sizeof u); if (val < 0) perror_with_name (filename); data_start = exec_data_start; data_end = data_start + u.pt_dsize; stack_start = stack_end - u.pt_ssize; data_offset = sizeof u; stack_offset = data_offset + u.pt_dsize; reg_offset = 0; memcpy (&core_aouthdr, &u.pt_aouthdr, sizeof (AOUTHDR)); printf_unfiltered ("Core file is from \"%s\".\n", u.pt_comm); if (u.pt_signal > 0) printf_unfiltered ("Program terminated with signal %d, %s.\n", u.pt_signal, safe_strsignal (u.pt_signal)); /* Read the register values out of the core file and store them where `read_register' will find them. */ { register int regno; for (regno = 0; regno < NUM_REGS; regno++) { char buf[MAX_REGISTER_RAW_SIZE]; val = lseek (corechan, register_addr (regno, reg_offset), 0); if (val < 0) perror_with_name (filename); val = myread (corechan, buf, sizeof buf); if (val < 0) perror_with_name (filename); supply_register (regno, buf); } } } if (filename[0] == '/') corefile = savestring (filename, strlen (filename)); else { corefile = concat (current_directory, "/", filename, NULL); } set_current_frame ( create_new_frame (read_register (FP_REGNUM), read_pc ())); select_frame (get_current_frame (), 0); validate_files (); } else if (from_tty) printf_unfiltered ("No core file now.\n"); } gdb-4.13/gdb/utils.c 666 34562 1752 123137 5623251050 12642 0ustar fnfcygnus/* General utility routines for GDB, the GNU debugger. Copyright 1986, 1989, 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #if !defined(__GO32__) #include #include #include #endif #include #include #include #include "signals.h" #include "gdbcmd.h" #include "serial.h" #include "bfd.h" #include "target.h" #include "demangle.h" #include "expression.h" #include "language.h" #include "annotate.h" #include "readline.h" /* readline defines this. */ #undef savestring /* Prototypes for local functions */ #if defined (NO_MMALLOC) || defined (NO_MMALLOC_CHECK) #else static void malloc_botch PARAMS ((void)); #endif /* NO_MMALLOC, etc */ static void fatal_dump_core (); /* Can't prototype with usage... */ static void prompt_for_continue PARAMS ((void)); static void set_width_command PARAMS ((char *, int, struct cmd_list_element *)); /* If this definition isn't overridden by the header files, assume that isatty and fileno exist on this system. */ #ifndef ISATTY #define ISATTY(FP) (isatty (fileno (FP))) #endif /* Chain of cleanup actions established with make_cleanup, to be executed if an error happens. */ static struct cleanup *cleanup_chain; /* Nonzero if we have job control. */ int job_control; /* Nonzero means a quit has been requested. */ int quit_flag; /* Nonzero means quit immediately if Control-C is typed now, rather than waiting until QUIT is executed. Be careful in setting this; code which executes with immediate_quit set has to be very careful about being able to deal with being interrupted at any time. It is almost always better to use QUIT; the only exception I can think of is being able to quit out of a system call (using EINTR loses if the SIGINT happens between the previous QUIT and the system call). To immediately quit in the case in which a SIGINT happens between the previous QUIT and setting immediate_quit (desirable anytime we expect to block), call QUIT after setting immediate_quit. */ int immediate_quit; /* Nonzero means that encoded C++ names should be printed out in their C++ form rather than raw. */ int demangle = 1; /* Nonzero means that encoded C++ names should be printed out in their C++ form even in assembler language displays. If this is set, but DEMANGLE is zero, names are printed raw, i.e. DEMANGLE controls. */ int asm_demangle = 0; /* Nonzero means that strings with character values >0x7F should be printed as octal escapes. Zero means just print the value (e.g. it's an international character, and the terminal or window can cope.) */ int sevenbit_strings = 0; /* String to be printed before error messages, if any. */ char *error_pre_print; char *warning_pre_print = "\nwarning: "; /* Add a new cleanup to the cleanup_chain, and return the previous chain pointer to be passed later to do_cleanups or discard_cleanups. Args are FUNCTION to clean up with, and ARG to pass to it. */ struct cleanup * make_cleanup (function, arg) void (*function) PARAMS ((PTR)); PTR arg; { register struct cleanup *new = (struct cleanup *) xmalloc (sizeof (struct cleanup)); register struct cleanup *old_chain = cleanup_chain; new->next = cleanup_chain; new->function = function; new->arg = arg; cleanup_chain = new; return old_chain; } /* Discard cleanups and do the actions they describe until we get back to the point OLD_CHAIN in the cleanup_chain. */ void do_cleanups (old_chain) register struct cleanup *old_chain; { register struct cleanup *ptr; while ((ptr = cleanup_chain) != old_chain) { cleanup_chain = ptr->next; /* Do this first incase recursion */ (*ptr->function) (ptr->arg); free (ptr); } } /* Discard cleanups, not doing the actions they describe, until we get back to the point OLD_CHAIN in the cleanup_chain. */ void discard_cleanups (old_chain) register struct cleanup *old_chain; { register struct cleanup *ptr; while ((ptr = cleanup_chain) != old_chain) { cleanup_chain = ptr->next; free ((PTR)ptr); } } /* Set the cleanup_chain to 0, and return the old cleanup chain. */ struct cleanup * save_cleanups () { struct cleanup *old_chain = cleanup_chain; cleanup_chain = 0; return old_chain; } /* Restore the cleanup chain from a previously saved chain. */ void restore_cleanups (chain) struct cleanup *chain; { cleanup_chain = chain; } /* This function is useful for cleanups. Do foo = xmalloc (...); old_chain = make_cleanup (free_current_contents, &foo); to arrange to free the object thus allocated. */ void free_current_contents (location) char **location; { free (*location); } /* Provide a known function that does nothing, to use as a base for for a possibly long chain of cleanups. This is useful where we use the cleanup chain for handling normal cleanups as well as dealing with cleanups that need to be done as a result of a call to error(). In such cases, we may not be certain where the first cleanup is, unless we have a do-nothing one to always use as the base. */ /* ARGSUSED */ void null_cleanup (arg) char **arg; { } /* Provide a hook for modules wishing to print their own warning messages to set up the terminal state in a compatible way, without them having to import all the target_<...> macros. */ void warning_setup () { target_terminal_ours (); wrap_here(""); /* Force out any buffered output */ gdb_flush (gdb_stdout); } /* Print a warning message. The first argument STRING is the warning message, used as a fprintf string, and the remaining args are passed as arguments to it. The primary difference between warnings and errors is that a warning does not force the return to command level. */ /* VARARGS */ void warning (va_alist) va_dcl { va_list args; char *string; va_start (args); target_terminal_ours (); wrap_here(""); /* Force out any buffered output */ gdb_flush (gdb_stdout); if (warning_pre_print) fprintf_unfiltered (gdb_stderr, warning_pre_print); string = va_arg (args, char *); vfprintf_unfiltered (gdb_stderr, string, args); fprintf_unfiltered (gdb_stderr, "\n"); va_end (args); } /* Start the printing of an error message. Way to use this is to call this, output the error message (use filtered output), and then call return_to_top_level (RETURN_ERROR). error() provides a convenient way to do this for the special case that the error message can be formatted with a single printf call, but this is more general. */ void error_begin () { target_terminal_ours (); wrap_here (""); /* Force out any buffered output */ gdb_flush (gdb_stdout); annotate_error_begin (); if (error_pre_print) fprintf_filtered (gdb_stderr, error_pre_print); } /* Print an error message and return to command level. The first argument STRING is the error message, used as a fprintf string, and the remaining args are passed as arguments to it. */ /* VARARGS */ NORETURN void error (va_alist) va_dcl { va_list args; char *string; error_begin (); va_start (args); string = va_arg (args, char *); vfprintf_filtered (gdb_stderr, string, args); fprintf_filtered (gdb_stderr, "\n"); va_end (args); return_to_top_level (RETURN_ERROR); } /* Print an error message and exit reporting failure. This is for a error that we cannot continue from. The arguments are printed a la printf. This function cannot be declared volatile (NORETURN) in an ANSI environment because exit() is not declared volatile. */ /* VARARGS */ NORETURN void fatal (va_alist) va_dcl { va_list args; char *string; va_start (args); string = va_arg (args, char *); fprintf_unfiltered (gdb_stderr, "\ngdb: "); vfprintf_unfiltered (gdb_stderr, string, args); fprintf_unfiltered (gdb_stderr, "\n"); va_end (args); exit (1); } /* Print an error message and exit, dumping core. The arguments are printed a la printf (). */ /* VARARGS */ static void fatal_dump_core (va_alist) va_dcl { va_list args; char *string; va_start (args); string = va_arg (args, char *); /* "internal error" is always correct, since GDB should never dump core, no matter what the input. */ fprintf_unfiltered (gdb_stderr, "\ngdb internal error: "); vfprintf_unfiltered (gdb_stderr, string, args); fprintf_unfiltered (gdb_stderr, "\n"); va_end (args); signal (SIGQUIT, SIG_DFL); kill (getpid (), SIGQUIT); /* We should never get here, but just in case... */ exit (1); } /* The strerror() function can return NULL for errno values that are out of range. Provide a "safe" version that always returns a printable string. */ char * safe_strerror (errnum) int errnum; { char *msg; static char buf[32]; if ((msg = strerror (errnum)) == NULL) { sprintf (buf, "(undocumented errno %d)", errnum); msg = buf; } return (msg); } /* The strsignal() function can return NULL for signal values that are out of range. Provide a "safe" version that always returns a printable string. */ char * safe_strsignal (signo) int signo; { char *msg; static char buf[32]; if ((msg = strsignal (signo)) == NULL) { sprintf (buf, "(undocumented signal %d)", signo); msg = buf; } return (msg); } /* Print the system error message for errno, and also mention STRING as the file name for which the error was encountered. Then return to command level. */ void perror_with_name (string) char *string; { char *err; char *combined; err = safe_strerror (errno); combined = (char *) alloca (strlen (err) + strlen (string) + 3); strcpy (combined, string); strcat (combined, ": "); strcat (combined, err); /* I understand setting these is a matter of taste. Still, some people may clear errno but not know about bfd_error. Doing this here is not unreasonable. */ bfd_set_error (bfd_error_no_error); errno = 0; error ("%s.", combined); } /* Print the system error message for ERRCODE, and also mention STRING as the file name for which the error was encountered. */ void print_sys_errmsg (string, errcode) char *string; int errcode; { char *err; char *combined; err = safe_strerror (errcode); combined = (char *) alloca (strlen (err) + strlen (string) + 3); strcpy (combined, string); strcat (combined, ": "); strcat (combined, err); /* We want anything which was printed on stdout to come out first, before this message. */ gdb_flush (gdb_stdout); fprintf_unfiltered (gdb_stderr, "%s.\n", combined); } /* Control C eventually causes this to be called, at a convenient time. */ void quit () { serial_t gdb_stdout_serial = serial_fdopen (1); target_terminal_ours (); /* We want all output to appear now, before we print "Quit". We have 3 levels of buffering we have to flush (it's possible that some of these should be changed to flush the lower-level ones too): */ /* 1. The _filtered buffer. */ wrap_here ((char *)0); /* 2. The stdio buffer. */ gdb_flush (gdb_stdout); gdb_flush (gdb_stderr); /* 3. The system-level buffer. */ SERIAL_FLUSH_OUTPUT (gdb_stdout_serial); SERIAL_UN_FDOPEN (gdb_stdout_serial); annotate_error_begin (); /* Don't use *_filtered; we don't want to prompt the user to continue. */ if (error_pre_print) fprintf_unfiltered (gdb_stderr, error_pre_print); if (job_control /* If there is no terminal switching for this target, then we can't possibly get screwed by the lack of job control. */ || current_target->to_terminal_ours == NULL) fprintf_unfiltered (gdb_stderr, "Quit\n"); else fprintf_unfiltered (gdb_stderr, "Quit (expect signal SIGINT when the program is resumed)\n"); return_to_top_level (RETURN_QUIT); } #ifdef __GO32__ /* In the absence of signals, poll keyboard for a quit. Called from #define QUIT pollquit() in xm-go32.h. */ void pollquit() { if (kbhit ()) { int k = getkey (); if (k == 1) { quit_flag = 1; quit(); } else if (k == 2) { immediate_quit = 1; quit (); } else { /* We just ignore it */ fprintf_unfiltered (gdb_stderr, "CTRL-A to quit, CTRL-B to quit harder\n"); } } } #endif #ifdef __GO32__ void notice_quit() { if (kbhit ()) { int k = getkey (); if (k == 1) { quit_flag = 1; } else if (k == 2) { immediate_quit = 1; } else { fprintf_unfiltered (gdb_stderr, "CTRL-A to quit, CTRL-B to quit harder\n"); } } } #else void notice_quit() { /* Done by signals */ } #endif /* Control C comes here */ void request_quit (signo) int signo; { quit_flag = 1; /* Restore the signal handler. Harmless with BSD-style signals, needed for System V-style signals. So just always do it, rather than worrying about USG defines and stuff like that. */ signal (signo, request_quit); #ifdef REQUEST_QUIT REQUEST_QUIT; #else if (immediate_quit) quit (); #endif } /* Memory management stuff (malloc friends). */ #if defined (NO_MMALLOC) PTR mmalloc (md, size) PTR md; long size; { return (malloc (size)); } PTR mrealloc (md, ptr, size) PTR md; PTR ptr; long size; { if (ptr == 0) /* Guard against old realloc's */ return malloc (size); else return realloc (ptr, size); } void mfree (md, ptr) PTR md; PTR ptr; { free (ptr); } #endif /* NO_MMALLOC */ #if defined (NO_MMALLOC) || defined (NO_MMALLOC_CHECK) void init_malloc (md) PTR md; { } #else /* have mmalloc and want corruption checking */ static void malloc_botch () { fatal_dump_core ("Memory corruption"); } /* Attempt to install hooks in mmalloc/mrealloc/mfree for the heap specified by MD, to detect memory corruption. Note that MD may be NULL to specify the default heap that grows via sbrk. Note that for freshly created regions, we must call mmcheck prior to any mallocs in the region. Otherwise, any region which was allocated prior to installing the checking hooks, which is later reallocated or freed, will fail the checks! The mmcheck function only allows initial hooks to be installed before the first mmalloc. However, anytime after we have called mmcheck the first time to install the checking hooks, we can call it again to update the function pointer to the memory corruption handler. Returns zero on failure, non-zero on success. */ void init_malloc (md) PTR md; { if (!mmcheck (md, malloc_botch)) { warning ("internal error: failed to install memory consistency checks"); } mmtrace (); } #endif /* Have mmalloc and want corruption checking */ /* Called when a memory allocation fails, with the number of bytes of memory requested in SIZE. */ NORETURN void nomem (size) long size; { if (size > 0) { fatal ("virtual memory exhausted: can't allocate %ld bytes.", size); } else { fatal ("virtual memory exhausted."); } } /* Like mmalloc but get error if no storage available, and protect against the caller wanting to allocate zero bytes. Whether to return NULL for a zero byte request, or translate the request into a request for one byte of zero'd storage, is a religious issue. */ PTR xmmalloc (md, size) PTR md; long size; { register PTR val; if (size == 0) { val = NULL; } else if ((val = mmalloc (md, size)) == NULL) { nomem (size); } return (val); } /* Like mrealloc but get error if no storage available. */ PTR xmrealloc (md, ptr, size) PTR md; PTR ptr; long size; { register PTR val; if (ptr != NULL) { val = mrealloc (md, ptr, size); } else { val = mmalloc (md, size); } if (val == NULL) { nomem (size); } return (val); } /* Like malloc but get error if no storage available, and protect against the caller wanting to allocate zero bytes. */ PTR xmalloc (size) long size; { return (xmmalloc ((PTR) NULL, size)); } /* Like mrealloc but get error if no storage available. */ PTR xrealloc (ptr, size) PTR ptr; long size; { return (xmrealloc ((PTR) NULL, ptr, size)); } /* My replacement for the read system call. Used like `read' but keeps going if `read' returns too soon. */ int myread (desc, addr, len) int desc; char *addr; int len; { register int val; int orglen = len; while (len > 0) { val = read (desc, addr, len); if (val < 0) return val; if (val == 0) return orglen - len; len -= val; addr += val; } return orglen; } /* Make a copy of the string at PTR with SIZE characters (and add a null character at the end in the copy). Uses malloc to get the space. Returns the address of the copy. */ char * savestring (ptr, size) const char *ptr; int size; { register char *p = (char *) xmalloc (size + 1); memcpy (p, ptr, size); p[size] = 0; return p; } char * msavestring (md, ptr, size) PTR md; const char *ptr; int size; { register char *p = (char *) xmmalloc (md, size + 1); memcpy (p, ptr, size); p[size] = 0; return p; } /* The "const" is so it compiles under DGUX (which prototypes strsave in . FIXME: This should be named "xstrsave", shouldn't it? Doesn't real strsave return NULL if out of memory? */ char * strsave (ptr) const char *ptr; { return savestring (ptr, strlen (ptr)); } char * mstrsave (md, ptr) PTR md; const char *ptr; { return (msavestring (md, ptr, strlen (ptr))); } void print_spaces (n, file) register int n; register FILE *file; { while (n-- > 0) fputc (' ', file); } /* Print a host address. */ void gdb_print_address (addr, stream) PTR addr; GDB_FILE *stream; { /* We could use the %p conversion specifier to fprintf if we had any way of knowing whether this host supports it. But the following should work on the Alpha and on 32 bit machines. */ fprintf_filtered (stream, "0x%lx", (unsigned long)addr); } /* Ask user a y-or-n question and return 1 iff answer is yes. Takes three args which are given to printf to print the question. The first, a control string, should end in "? ". It should not say how to answer, because we do that. */ /* VARARGS */ int query (va_alist) va_dcl { va_list args; char *ctlstr; register int answer; register int ans2; int retval; /* Automatically answer "yes" if input is not from a terminal. */ if (!input_from_terminal_p ()) return 1; while (1) { wrap_here (""); /* Flush any buffered output */ gdb_flush (gdb_stdout); if (annotation_level > 1) printf_filtered ("\n\032\032pre-query\n"); va_start (args); ctlstr = va_arg (args, char *); vfprintf_filtered (gdb_stdout, ctlstr, args); va_end (args); printf_filtered ("(y or n) "); if (annotation_level > 1) printf_filtered ("\n\032\032query\n"); gdb_flush (gdb_stdout); answer = fgetc (stdin); clearerr (stdin); /* in case of C-d */ if (answer == EOF) /* C-d */ { retval = 1; break; } if (answer != '\n') /* Eat rest of input line, to EOF or newline */ do { ans2 = fgetc (stdin); clearerr (stdin); } while (ans2 != EOF && ans2 != '\n'); if (answer >= 'a') answer -= 040; if (answer == 'Y') { retval = 1; break; } if (answer == 'N') { retval = 0; break; } printf_filtered ("Please answer y or n.\n"); } if (annotation_level > 1) printf_filtered ("\n\032\032post-query\n"); return retval; } /* Parse a C escape sequence. STRING_PTR points to a variable containing a pointer to the string to parse. That pointer should point to the character after the \. That pointer is updated past the characters we use. The value of the escape sequence is returned. A negative value means the sequence \ newline was seen, which is supposed to be equivalent to nothing at all. If \ is followed by a null character, we return a negative value and leave the string pointer pointing at the null character. If \ is followed by 000, we return 0 and leave the string pointer after the zeros. A value of 0 does not mean end of string. */ int parse_escape (string_ptr) char **string_ptr; { register int c = *(*string_ptr)++; switch (c) { case 'a': return 007; /* Bell (alert) char */ case 'b': return '\b'; case 'e': /* Escape character */ return 033; case 'f': return '\f'; case 'n': return '\n'; case 'r': return '\r'; case 't': return '\t'; case 'v': return '\v'; case '\n': return -2; case 0: (*string_ptr)--; return 0; case '^': c = *(*string_ptr)++; if (c == '\\') c = parse_escape (string_ptr); if (c == '?') return 0177; return (c & 0200) | (c & 037); case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': { register int i = c - '0'; register int count = 0; while (++count < 3) { if ((c = *(*string_ptr)++) >= '0' && c <= '7') { i *= 8; i += c - '0'; } else { (*string_ptr)--; break; } } return i; } default: return c; } } /* Print the character C on STREAM as part of the contents of a literal string whose delimiter is QUOTER. Note that this routine should only be call for printing things which are independent of the language of the program being debugged. */ void gdb_printchar (c, stream, quoter) register int c; FILE *stream; int quoter; { c &= 0xFF; /* Avoid sign bit follies */ if ( c < 0x20 || /* Low control chars */ (c >= 0x7F && c < 0xA0) || /* DEL, High controls */ (sevenbit_strings && c >= 0x80)) { /* high order bit set */ switch (c) { case '\n': fputs_filtered ("\\n", stream); break; case '\b': fputs_filtered ("\\b", stream); break; case '\t': fputs_filtered ("\\t", stream); break; case '\f': fputs_filtered ("\\f", stream); break; case '\r': fputs_filtered ("\\r", stream); break; case '\033': fputs_filtered ("\\e", stream); break; case '\007': fputs_filtered ("\\a", stream); break; default: fprintf_filtered (stream, "\\%.3o", (unsigned int) c); break; } } else { if (c == '\\' || c == quoter) fputs_filtered ("\\", stream); fprintf_filtered (stream, "%c", c); } } /* Number of lines per page or UINT_MAX if paging is disabled. */ static unsigned int lines_per_page; /* Number of chars per line or UNIT_MAX is line folding is disabled. */ static unsigned int chars_per_line; /* Current count of lines printed on this page, chars on this line. */ static unsigned int lines_printed, chars_printed; /* Buffer and start column of buffered text, for doing smarter word- wrapping. When someone calls wrap_here(), we start buffering output that comes through fputs_filtered(). If we see a newline, we just spit it out and forget about the wrap_here(). If we see another wrap_here(), we spit it out and remember the newer one. If we see the end of the line, we spit out a newline, the indent, and then the buffered output. */ /* Malloc'd buffer with chars_per_line+2 bytes. Contains characters which are waiting to be output (they have already been counted in chars_printed). When wrap_buffer[0] is null, the buffer is empty. */ static char *wrap_buffer; /* Pointer in wrap_buffer to the next character to fill. */ static char *wrap_pointer; /* String to indent by if the wrap occurs. Must not be NULL if wrap_column is non-zero. */ static char *wrap_indent; /* Column number on the screen where wrap_buffer begins, or 0 if wrapping is not in effect. */ static int wrap_column; /* ARGSUSED */ static void set_width_command (args, from_tty, c) char *args; int from_tty; struct cmd_list_element *c; { if (!wrap_buffer) { wrap_buffer = (char *) xmalloc (chars_per_line + 2); wrap_buffer[0] = '\0'; } else wrap_buffer = (char *) xrealloc (wrap_buffer, chars_per_line + 2); wrap_pointer = wrap_buffer; /* Start it at the beginning */ } /* Wait, so the user can read what's on the screen. Prompt the user to continue by pressing RETURN. */ static void prompt_for_continue () { char *ignore; char cont_prompt[120]; if (annotation_level > 1) printf_unfiltered ("\n\032\032pre-prompt-for-continue\n"); strcpy (cont_prompt, "---Type to continue, or q to quit---"); if (annotation_level > 1) strcat (cont_prompt, "\n\032\032prompt-for-continue\n"); /* We must do this *before* we call gdb_readline, else it will eventually call us -- thinking that we're trying to print beyond the end of the screen. */ reinitialize_more_filter (); immediate_quit++; /* On a real operating system, the user can quit with SIGINT. But not on GO32. 'q' is provided on all systems so users don't have to change habits from system to system, and because telling them what to do in the prompt is more user-friendly than expecting them to think of SIGINT. */ /* Call readline, not gdb_readline, because GO32 readline handles control-C whereas control-C to gdb_readline will cause the user to get dumped out to DOS. */ ignore = readline (cont_prompt); if (annotation_level > 1) printf_unfiltered ("\n\032\032post-prompt-for-continue\n"); if (ignore) { char *p = ignore; while (*p == ' ' || *p == '\t') ++p; if (p[0] == 'q') request_quit (SIGINT); free (ignore); } immediate_quit--; /* Now we have to do this again, so that GDB will know that it doesn't need to save the ---Type --- line at the top of the screen. */ reinitialize_more_filter (); dont_repeat (); /* Forget prev cmd -- CR won't repeat it. */ } /* Reinitialize filter; ie. tell it to reset to original values. */ void reinitialize_more_filter () { lines_printed = 0; chars_printed = 0; } /* Indicate that if the next sequence of characters overflows the line, a newline should be inserted here rather than when it hits the end. If INDENT is non-null, it is a string to be printed to indent the wrapped part on the next line. INDENT must remain accessible until the next call to wrap_here() or until a newline is printed through fputs_filtered(). If the line is already overfull, we immediately print a newline and the indentation, and disable further wrapping. If we don't know the width of lines, but we know the page height, we must not wrap words, but should still keep track of newlines that were explicitly printed. INDENT should not contain tabs, as that will mess up the char count on the next line. FIXME. This routine is guaranteed to force out any output which has been squirreled away in the wrap_buffer, so wrap_here ((char *)0) can be used to force out output from the wrap_buffer. */ void wrap_here(indent) char *indent; { /* This should have been allocated, but be paranoid anyway. */ if (!wrap_buffer) abort (); if (wrap_buffer[0]) { *wrap_pointer = '\0'; fputs_unfiltered (wrap_buffer, gdb_stdout); } wrap_pointer = wrap_buffer; wrap_buffer[0] = '\0'; if (chars_per_line == UINT_MAX) /* No line overflow checking */ { wrap_column = 0; } else if (chars_printed >= chars_per_line) { puts_filtered ("\n"); if (indent != NULL) puts_filtered (indent); wrap_column = 0; } else { wrap_column = chars_printed; if (indent == NULL) wrap_indent = ""; else wrap_indent = indent; } } /* Ensure that whatever gets printed next, using the filtered output commands, starts at the beginning of the line. I.E. if there is any pending output for the current line, flush it and start a new line. Otherwise do nothing. */ void begin_line () { if (chars_printed > 0) { puts_filtered ("\n"); } } GDB_FILE * gdb_fopen (name, mode) char * name; char * mode; { return fopen (name, mode); } void gdb_flush (stream) FILE *stream; { fflush (stream); } /* Like fputs but if FILTER is true, pause after every screenful. Regardless of FILTER can wrap at points other than the final character of a line. Unlike fputs, fputs_maybe_filtered does not return a value. It is OK for LINEBUFFER to be NULL, in which case just don't print anything. Note that a longjmp to top level may occur in this routine (only if FILTER is true) (since prompt_for_continue may do so) so this routine should not be called when cleanups are not in place. */ static void fputs_maybe_filtered (linebuffer, stream, filter) const char *linebuffer; FILE *stream; int filter; { const char *lineptr; if (linebuffer == 0) return; /* Don't do any filtering if it is disabled. */ if (stream != gdb_stdout || (lines_per_page == UINT_MAX && chars_per_line == UINT_MAX)) { fputs_unfiltered (linebuffer, stream); return; } /* Go through and output each character. Show line extension when this is necessary; prompt user for new page when this is necessary. */ lineptr = linebuffer; while (*lineptr) { /* Possible new page. */ if (filter && (lines_printed >= lines_per_page - 1)) prompt_for_continue (); while (*lineptr && *lineptr != '\n') { /* Print a single line. */ if (*lineptr == '\t') { if (wrap_column) *wrap_pointer++ = '\t'; else fputc_unfiltered ('\t', stream); /* Shifting right by 3 produces the number of tab stops we have already passed, and then adding one and shifting left 3 advances to the next tab stop. */ chars_printed = ((chars_printed >> 3) + 1) << 3; lineptr++; } else { if (wrap_column) *wrap_pointer++ = *lineptr; else fputc_unfiltered (*lineptr, stream); chars_printed++; lineptr++; } if (chars_printed >= chars_per_line) { unsigned int save_chars = chars_printed; chars_printed = 0; lines_printed++; /* If we aren't actually wrapping, don't output newline -- if chars_per_line is right, we probably just overflowed anyway; if it's wrong, let us keep going. */ if (wrap_column) fputc_unfiltered ('\n', stream); /* Possible new page. */ if (lines_printed >= lines_per_page - 1) prompt_for_continue (); /* Now output indentation and wrapped string */ if (wrap_column) { fputs_unfiltered (wrap_indent, stream); *wrap_pointer = '\0'; /* Null-terminate saved stuff */ fputs_unfiltered (wrap_buffer, stream); /* and eject it */ /* FIXME, this strlen is what prevents wrap_indent from containing tabs. However, if we recurse to print it and count its chars, we risk trouble if wrap_indent is longer than (the user settable) chars_per_line. Note also that this can set chars_printed > chars_per_line if we are printing a long string. */ chars_printed = strlen (wrap_indent) + (save_chars - wrap_column); wrap_pointer = wrap_buffer; /* Reset buffer */ wrap_buffer[0] = '\0'; wrap_column = 0; /* And disable fancy wrap */ } } } if (*lineptr == '\n') { chars_printed = 0; wrap_here ((char *)0); /* Spit out chars, cancel further wraps */ lines_printed++; fputc_unfiltered ('\n', stream); lineptr++; } } } void fputs_filtered (linebuffer, stream) const char *linebuffer; FILE *stream; { fputs_maybe_filtered (linebuffer, stream, 1); } void putc_unfiltered (c) int c; { char buf[2]; buf[0] = c; buf[1] = 0; fputs_unfiltered (buf, gdb_stdout); } void fputc_unfiltered (c, stream) int c; FILE * stream; { char buf[2]; buf[0] = c; buf[1] = 0; fputs_unfiltered (buf, stream); } /* Print a variable number of ARGS using format FORMAT. If this information is going to put the amount written (since the last call to REINITIALIZE_MORE_FILTER or the last page break) over the page size, call prompt_for_continue to get the users permision to continue. Unlike fprintf, this function does not return a value. We implement three variants, vfprintf (takes a vararg list and stream), fprintf (takes a stream to write on), and printf (the usual). Note also that a longjmp to top level may occur in this routine (since prompt_for_continue may do so) so this routine should not be called when cleanups are not in place. */ static void vfprintf_maybe_filtered (stream, format, args, filter) FILE *stream; char *format; va_list args; int filter; { char *linebuffer; struct cleanup *old_cleanups; vasprintf (&linebuffer, format, args); if (linebuffer == NULL) { fputs_unfiltered ("\ngdb: virtual memory exhausted.\n", gdb_stderr); exit (1); } old_cleanups = make_cleanup (free, linebuffer); fputs_maybe_filtered (linebuffer, stream, filter); do_cleanups (old_cleanups); } void vfprintf_filtered (stream, format, args) FILE *stream; char *format; va_list args; { vfprintf_maybe_filtered (stream, format, args, 1); } void vfprintf_unfiltered (stream, format, args) FILE *stream; char *format; va_list args; { char *linebuffer; struct cleanup *old_cleanups; vasprintf (&linebuffer, format, args); if (linebuffer == NULL) { fputs_unfiltered ("\ngdb: virtual memory exhausted.\n", gdb_stderr); exit (1); } old_cleanups = make_cleanup (free, linebuffer); fputs_unfiltered (linebuffer, stream); do_cleanups (old_cleanups); } void vprintf_filtered (format, args) char *format; va_list args; { vfprintf_maybe_filtered (gdb_stdout, format, args, 1); } void vprintf_unfiltered (format, args) char *format; va_list args; { vfprintf_unfiltered (gdb_stdout, format, args); } /* VARARGS */ void fprintf_filtered (va_alist) va_dcl { va_list args; FILE *stream; char *format; va_start (args); stream = va_arg (args, FILE *); format = va_arg (args, char *); vfprintf_filtered (stream, format, args); va_end (args); } /* VARARGS */ void fprintf_unfiltered (va_alist) va_dcl { va_list args; FILE *stream; char *format; va_start (args); stream = va_arg (args, FILE *); format = va_arg (args, char *); vfprintf_unfiltered (stream, format, args); va_end (args); } /* Like fprintf_filtered, but prints its result indented. Called as fprintfi_filtered (spaces, stream, format, ...); */ /* VARARGS */ void fprintfi_filtered (va_alist) va_dcl { va_list args; int spaces; FILE *stream; char *format; va_start (args); spaces = va_arg (args, int); stream = va_arg (args, FILE *); format = va_arg (args, char *); print_spaces_filtered (spaces, stream); vfprintf_filtered (stream, format, args); va_end (args); } /* VARARGS */ void printf_filtered (va_alist) va_dcl { va_list args; char *format; va_start (args); format = va_arg (args, char *); vfprintf_filtered (gdb_stdout, format, args); va_end (args); } /* VARARGS */ void printf_unfiltered (va_alist) va_dcl { va_list args; char *format; va_start (args); format = va_arg (args, char *); vfprintf_unfiltered (gdb_stdout, format, args); va_end (args); } /* Like printf_filtered, but prints it's result indented. Called as printfi_filtered (spaces, format, ...); */ /* VARARGS */ void printfi_filtered (va_alist) va_dcl { va_list args; int spaces; char *format; va_start (args); spaces = va_arg (args, int); format = va_arg (args, char *); print_spaces_filtered (spaces, gdb_stdout); vfprintf_filtered (gdb_stdout, format, args); va_end (args); } /* Easy -- but watch out! This routine is *not* a replacement for puts()! puts() appends a newline. This one doesn't, and had better not! */ void puts_filtered (string) char *string; { fputs_filtered (string, gdb_stdout); } void puts_unfiltered (string) char *string; { fputs_unfiltered (string, gdb_stdout); } /* Return a pointer to N spaces and a null. The pointer is good until the next call to here. */ char * n_spaces (n) int n; { register char *t; static char *spaces; static int max_spaces; if (n > max_spaces) { if (spaces) free (spaces); spaces = (char *) xmalloc (n+1); for (t = spaces+n; t != spaces;) *--t = ' '; spaces[n] = '\0'; max_spaces = n; } return spaces + max_spaces - n; } /* Print N spaces. */ void print_spaces_filtered (n, stream) int n; FILE *stream; { fputs_filtered (n_spaces (n), stream); } /* C++ demangler stuff. */ /* fprintf_symbol_filtered attempts to demangle NAME, a symbol in language LANG, using demangling args ARG_MODE, and print it filtered to STREAM. If the name is not mangled, or the language for the name is unknown, or demangling is off, the name is printed in its "raw" form. */ void fprintf_symbol_filtered (stream, name, lang, arg_mode) FILE *stream; char *name; enum language lang; int arg_mode; { char *demangled; if (name != NULL) { /* If user wants to see raw output, no problem. */ if (!demangle) { fputs_filtered (name, stream); } else { switch (lang) { case language_cplus: demangled = cplus_demangle (name, arg_mode); break; case language_chill: demangled = chill_demangle (name); break; default: demangled = NULL; break; } fputs_filtered (demangled ? demangled : name, stream); if (demangled != NULL) { free (demangled); } } } } /* Do a strcmp() type operation on STRING1 and STRING2, ignoring any differences in whitespace. Returns 0 if they match, non-zero if they don't (slightly different than strcmp()'s range of return values). As an extra hack, string1=="FOO(ARGS)" matches string2=="FOO". This "feature" is useful when searching for matching C++ function names (such as if the user types 'break FOO', where FOO is a mangled C++ function). */ int strcmp_iw (string1, string2) const char *string1; const char *string2; { while ((*string1 != '\0') && (*string2 != '\0')) { while (isspace (*string1)) { string1++; } while (isspace (*string2)) { string2++; } if (*string1 != *string2) { break; } if (*string1 != '\0') { string1++; string2++; } } return (*string1 != '\0' && *string1 != '(') || (*string2 != '\0'); } void _initialize_utils () { struct cmd_list_element *c; c = add_set_cmd ("width", class_support, var_uinteger, (char *)&chars_per_line, "Set number of characters gdb thinks are in a line.", &setlist); add_show_from_set (c, &showlist); c->function.sfunc = set_width_command; add_show_from_set (add_set_cmd ("height", class_support, var_uinteger, (char *)&lines_per_page, "Set number of lines gdb thinks are in a page.", &setlist), &showlist); /* These defaults will be used if we are unable to get the correct values from termcap. */ #if defined(__GO32__) lines_per_page = ScreenRows(); chars_per_line = ScreenCols(); #else lines_per_page = 24; chars_per_line = 80; /* Initialize the screen height and width from termcap. */ { char *termtype = getenv ("TERM"); /* Positive means success, nonpositive means failure. */ int status; /* 2048 is large enough for all known terminals, according to the GNU termcap manual. */ char term_buffer[2048]; if (termtype) { status = tgetent (term_buffer, termtype); if (status > 0) { int val; val = tgetnum ("li"); if (val >= 0) lines_per_page = val; else /* The number of lines per page is not mentioned in the terminal description. This probably means that paging is not useful (e.g. emacs shell window), so disable paging. */ lines_per_page = UINT_MAX; val = tgetnum ("co"); if (val >= 0) chars_per_line = val; } } } #if defined(SIGWINCH) && defined(SIGWINCH_HANDLER) /* If there is a better way to determine the window size, use it. */ SIGWINCH_HANDLER (); #endif #endif /* If the output is not a terminal, don't paginate it. */ if (!ISATTY (gdb_stdout)) lines_per_page = UINT_MAX; set_width_command ((char *)NULL, 0, c); add_show_from_set (add_set_cmd ("demangle", class_support, var_boolean, (char *)&demangle, "Set demangling of encoded C++ names when displaying symbols.", &setprintlist), &showprintlist); add_show_from_set (add_set_cmd ("sevenbit-strings", class_support, var_boolean, (char *)&sevenbit_strings, "Set printing of 8-bit characters in strings as \\nnn.", &setprintlist), &showprintlist); add_show_from_set (add_set_cmd ("asm-demangle", class_support, var_boolean, (char *)&asm_demangle, "Set demangling of C++ names in disassembly listings.", &setprintlist), &showprintlist); } /* Machine specific function to handle SIGWINCH signal. */ #ifdef SIGWINCH_HANDLER_BODY SIGWINCH_HANDLER_BODY #endif gdb-4.13/gdb/valarith.c 666 34562 1752 72346 5564742206 13315 0ustar fnfcygnus/* Perform arithmetic and other operations on values, for GDB. Copyright 1986, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "value.h" #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #include "target.h" #include "language.h" #include "demangle.h" #include /* Define whether or not the C operator '/' truncates towards zero for differently signed operands (truncation direction is undefined in C). */ #ifndef TRUNCATION_TOWARDS_ZERO #define TRUNCATION_TOWARDS_ZERO ((-5 / 2) == -2) #endif static value_ptr value_subscripted_rvalue PARAMS ((value_ptr, value_ptr)); value_ptr value_add (arg1, arg2) value_ptr arg1, arg2; { register value_ptr valint, valptr; register int len; COERCE_ARRAY (arg1); COERCE_ARRAY (arg2); if ((TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_PTR || TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_PTR) && (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_INT || TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_INT)) /* Exactly one argument is a pointer, and one is an integer. */ { if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_PTR) { valptr = arg1; valint = arg2; } else { valptr = arg2; valint = arg1; } len = TYPE_LENGTH (TYPE_TARGET_TYPE (VALUE_TYPE (valptr))); if (len == 0) len = 1; /* For (void *) */ return value_from_longest (VALUE_TYPE (valptr), value_as_long (valptr) + (len * value_as_long (valint))); } return value_binop (arg1, arg2, BINOP_ADD); } value_ptr value_sub (arg1, arg2) value_ptr arg1, arg2; { COERCE_ARRAY (arg1); COERCE_ARRAY (arg2); if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_PTR) { if (TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_INT) { /* pointer - integer. */ return value_from_longest (VALUE_TYPE (arg1), value_as_long (arg1) - (TYPE_LENGTH (TYPE_TARGET_TYPE (VALUE_TYPE (arg1))) * value_as_long (arg2))); } else if (VALUE_TYPE (arg1) == VALUE_TYPE (arg2)) { /* pointer to - pointer to . */ return value_from_longest (builtin_type_long, /* FIXME -- should be ptrdiff_t */ (value_as_long (arg1) - value_as_long (arg2)) / TYPE_LENGTH (TYPE_TARGET_TYPE (VALUE_TYPE (arg1)))); } else { error ("\ First argument of `-' is a pointer and second argument is neither\n\ an integer nor a pointer of the same type."); } } return value_binop (arg1, arg2, BINOP_SUB); } /* Return the value of ARRAY[IDX]. See comments in value_coerce_array() for rationale for reason for doing lower bounds adjustment here rather than there. FIXME: Perhaps we should validate that the index is valid and if verbosity is set, warn about invalid indices (but still use them). */ value_ptr value_subscript (array, idx) value_ptr array, idx; { int lowerbound; value_ptr bound; struct type *range_type; COERCE_REF (array); if (TYPE_CODE (VALUE_TYPE (array)) == TYPE_CODE_ARRAY || TYPE_CODE (VALUE_TYPE (array)) == TYPE_CODE_STRING) { range_type = TYPE_FIELD_TYPE (VALUE_TYPE (array), 0); lowerbound = TYPE_FIELD_BITPOS (range_type, 0); if (lowerbound != 0) { bound = value_from_longest (builtin_type_int, (LONGEST) lowerbound); idx = value_sub (idx, bound); } if (VALUE_LVAL (array) != lval_memory) { return value_subscripted_rvalue (array, idx); } array = value_coerce_array (array); } return value_ind (value_add (array, idx)); } /* Return the value of EXPR[IDX], expr an aggregate rvalue (eg, a vector register). This routine used to promote floats to doubles, but no longer does. */ static value_ptr value_subscripted_rvalue (array, idx) value_ptr array, idx; { struct type *elt_type = TYPE_TARGET_TYPE (VALUE_TYPE (array)); int elt_size = TYPE_LENGTH (elt_type); int elt_offs = elt_size * longest_to_int (value_as_long (idx)); value_ptr v; if (elt_offs >= TYPE_LENGTH (VALUE_TYPE (array))) error ("no such vector element"); v = allocate_value (elt_type); memcpy (VALUE_CONTENTS (v), VALUE_CONTENTS (array) + elt_offs, elt_size); if (VALUE_LVAL (array) == lval_internalvar) VALUE_LVAL (v) = lval_internalvar_component; else VALUE_LVAL (v) = not_lval; VALUE_ADDRESS (v) = VALUE_ADDRESS (array); VALUE_OFFSET (v) = VALUE_OFFSET (array) + elt_offs; VALUE_BITSIZE (v) = elt_size * 8; return v; } /* Check to see if either argument is a structure. This is called so we know whether to go ahead with the normal binop or look for a user defined function instead. For now, we do not overload the `=' operator. */ int binop_user_defined_p (op, arg1, arg2) enum exp_opcode op; value_ptr arg1, arg2; { if (op == BINOP_ASSIGN) return 0; return (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_STRUCT || TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_STRUCT || (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_REF && TYPE_CODE (TYPE_TARGET_TYPE (VALUE_TYPE (arg1))) == TYPE_CODE_STRUCT) || (TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_REF && TYPE_CODE (TYPE_TARGET_TYPE (VALUE_TYPE (arg2))) == TYPE_CODE_STRUCT)); } /* Check to see if argument is a structure. This is called so we know whether to go ahead with the normal unop or look for a user defined function instead. For now, we do not overload the `&' operator. */ int unop_user_defined_p (op, arg1) enum exp_opcode op; value_ptr arg1; { if (op == UNOP_ADDR) return 0; return (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_STRUCT || (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_REF && TYPE_CODE (TYPE_TARGET_TYPE (VALUE_TYPE (arg1))) == TYPE_CODE_STRUCT)); } /* We know either arg1 or arg2 is a structure, so try to find the right user defined function. Create an argument vector that calls arg1.operator @ (arg1,arg2) and return that value (where '@' is any binary operator which is legal for GNU C++). OP is the operatore, and if it is BINOP_ASSIGN_MODIFY, then OTHEROP is the opcode saying how to modify it. Otherwise, OTHEROP is unused. */ value_ptr value_x_binop (arg1, arg2, op, otherop) value_ptr arg1, arg2; enum exp_opcode op, otherop; { value_ptr * argvec; char *ptr; char tstr[13]; int static_memfuncp; COERCE_REF (arg1); COERCE_REF (arg2); COERCE_ENUM (arg1); COERCE_ENUM (arg2); /* now we know that what we have to do is construct our arg vector and find the right function to call it with. */ if (TYPE_CODE (VALUE_TYPE (arg1)) != TYPE_CODE_STRUCT) error ("Can't do that binary op on that type"); /* FIXME be explicit */ argvec = (value_ptr *) alloca (sizeof (value_ptr) * 4); argvec[1] = value_addr (arg1); argvec[2] = arg2; argvec[3] = 0; /* make the right function name up */ strcpy(tstr, "operator__"); ptr = tstr+8; switch (op) { case BINOP_ADD: strcpy(ptr,"+"); break; case BINOP_SUB: strcpy(ptr,"-"); break; case BINOP_MUL: strcpy(ptr,"*"); break; case BINOP_DIV: strcpy(ptr,"/"); break; case BINOP_REM: strcpy(ptr,"%"); break; case BINOP_LSH: strcpy(ptr,"<<"); break; case BINOP_RSH: strcpy(ptr,">>"); break; case BINOP_BITWISE_AND: strcpy(ptr,"&"); break; case BINOP_BITWISE_IOR: strcpy(ptr,"|"); break; case BINOP_BITWISE_XOR: strcpy(ptr,"^"); break; case BINOP_LOGICAL_AND: strcpy(ptr,"&&"); break; case BINOP_LOGICAL_OR: strcpy(ptr,"||"); break; case BINOP_MIN: strcpy(ptr,"?"); break; case BINOP_ASSIGN: strcpy(ptr,"="); break; case BINOP_ASSIGN_MODIFY: switch (otherop) { case BINOP_ADD: strcpy(ptr,"+="); break; case BINOP_SUB: strcpy(ptr,"-="); break; case BINOP_MUL: strcpy(ptr,"*="); break; case BINOP_DIV: strcpy(ptr,"/="); break; case BINOP_REM: strcpy(ptr,"%="); break; case BINOP_BITWISE_AND: strcpy(ptr,"&="); break; case BINOP_BITWISE_IOR: strcpy(ptr,"|="); break; case BINOP_BITWISE_XOR: strcpy(ptr,"^="); break; case BINOP_MOD: /* invalid */ default: error ("Invalid binary operation specified."); } break; case BINOP_SUBSCRIPT: strcpy(ptr,"[]"); break; case BINOP_EQUAL: strcpy(ptr,"=="); break; case BINOP_NOTEQUAL: strcpy(ptr,"!="); break; case BINOP_LESS: strcpy(ptr,"<"); break; case BINOP_GTR: strcpy(ptr,">"); break; case BINOP_GEQ: strcpy(ptr,">="); break; case BINOP_LEQ: strcpy(ptr,"<="); break; case BINOP_MOD: /* invalid */ default: error ("Invalid binary operation specified."); } argvec[0] = value_struct_elt (&arg1, argvec+1, tstr, &static_memfuncp, "structure"); if (argvec[0]) { if (static_memfuncp) { argvec[1] = argvec[0]; argvec++; } return call_function_by_hand (argvec[0], 2 - static_memfuncp, argvec + 1); } error ("member function %s not found", tstr); #ifdef lint return call_function_by_hand (argvec[0], 2 - static_memfuncp, argvec + 1); #endif } /* We know that arg1 is a structure, so try to find a unary user defined operator that matches the operator in question. Create an argument vector that calls arg1.operator @ (arg1) and return that value (where '@' is (almost) any unary operator which is legal for GNU C++). */ value_ptr value_x_unop (arg1, op) value_ptr arg1; enum exp_opcode op; { value_ptr * argvec; char *ptr, *mangle_ptr; char tstr[13], mangle_tstr[13]; int static_memfuncp; COERCE_ENUM (arg1); /* now we know that what we have to do is construct our arg vector and find the right function to call it with. */ if (TYPE_CODE (VALUE_TYPE (arg1)) != TYPE_CODE_STRUCT) error ("Can't do that unary op on that type"); /* FIXME be explicit */ argvec = (value_ptr *) alloca (sizeof (value_ptr) * 3); argvec[1] = value_addr (arg1); argvec[2] = 0; /* make the right function name up */ strcpy(tstr,"operator__"); ptr = tstr+8; strcpy(mangle_tstr, "__"); mangle_ptr = mangle_tstr+2; switch (op) { case UNOP_PREINCREMENT: strcpy(ptr,"++"); break; case UNOP_PREDECREMENT: strcpy(ptr,"++"); break; case UNOP_POSTINCREMENT: strcpy(ptr,"++"); break; case UNOP_POSTDECREMENT: strcpy(ptr,"++"); break; case UNOP_LOGICAL_NOT: strcpy(ptr,"!"); break; case UNOP_COMPLEMENT: strcpy(ptr,"~"); break; case UNOP_NEG: strcpy(ptr,"-"); break; default: error ("Invalid binary operation specified."); } argvec[0] = value_struct_elt (&arg1, argvec+1, tstr, &static_memfuncp, "structure"); if (argvec[0]) { if (static_memfuncp) { argvec[1] = argvec[0]; argvec++; } return call_function_by_hand (argvec[0], 1 - static_memfuncp, argvec + 1); } error ("member function %s not found", tstr); return 0; /* For lint -- never reached */ } /* Concatenate two values with the following conditions: (1) Both values must be either bitstring values or character string values and the resulting value consists of the concatenation of ARG1 followed by ARG2. or One value must be an integer value and the other value must be either a bitstring value or character string value, which is to be repeated by the number of times specified by the integer value. (2) Boolean values are also allowed and are treated as bit string values of length 1. (3) Character values are also allowed and are treated as character string values of length 1. */ value_ptr value_concat (arg1, arg2) value_ptr arg1, arg2; { register value_ptr inval1, inval2, outval; int inval1len, inval2len; int count, idx; char *ptr; char inchar; /* First figure out if we are dealing with two values to be concatenated or a repeat count and a value to be repeated. INVAL1 is set to the first of two concatenated values, or the repeat count. INVAL2 is set to the second of the two concatenated values or the value to be repeated. */ if (TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_INT) { inval1 = arg2; inval2 = arg1; } else { inval1 = arg1; inval2 = arg2; } /* Now process the input values. */ if (TYPE_CODE (VALUE_TYPE (inval1)) == TYPE_CODE_INT) { /* We have a repeat count. Validate the second value and then construct a value repeated that many times. */ if (TYPE_CODE (VALUE_TYPE (inval2)) == TYPE_CODE_STRING || TYPE_CODE (VALUE_TYPE (inval2)) == TYPE_CODE_CHAR) { count = longest_to_int (value_as_long (inval1)); inval2len = TYPE_LENGTH (VALUE_TYPE (inval2)); ptr = (char *) alloca (count * inval2len); if (TYPE_CODE (VALUE_TYPE (inval2)) == TYPE_CODE_CHAR) { inchar = (char) unpack_long (VALUE_TYPE (inval2), VALUE_CONTENTS (inval2)); for (idx = 0; idx < count; idx++) { *(ptr + idx) = inchar; } } else { for (idx = 0; idx < count; idx++) { memcpy (ptr + (idx * inval2len), VALUE_CONTENTS (inval2), inval2len); } } outval = value_string (ptr, count * inval2len); } else if (TYPE_CODE (VALUE_TYPE (inval2)) == TYPE_CODE_BITSTRING || TYPE_CODE (VALUE_TYPE (inval2)) == TYPE_CODE_BOOL) { error ("unimplemented support for bitstring/boolean repeats"); } else { error ("can't repeat values of that type"); } } else if (TYPE_CODE (VALUE_TYPE (inval1)) == TYPE_CODE_STRING || TYPE_CODE (VALUE_TYPE (inval1)) == TYPE_CODE_CHAR) { /* We have two character strings to concatenate. */ if (TYPE_CODE (VALUE_TYPE (inval2)) != TYPE_CODE_STRING && TYPE_CODE (VALUE_TYPE (inval2)) != TYPE_CODE_CHAR) { error ("Strings can only be concatenated with other strings."); } inval1len = TYPE_LENGTH (VALUE_TYPE (inval1)); inval2len = TYPE_LENGTH (VALUE_TYPE (inval2)); ptr = (char *) alloca (inval1len + inval2len); if (TYPE_CODE (VALUE_TYPE (inval1)) == TYPE_CODE_CHAR) { *ptr = (char) unpack_long (VALUE_TYPE (inval1), VALUE_CONTENTS (inval1)); } else { memcpy (ptr, VALUE_CONTENTS (inval1), inval1len); } if (TYPE_CODE (VALUE_TYPE (inval2)) == TYPE_CODE_CHAR) { *(ptr + inval1len) = (char) unpack_long (VALUE_TYPE (inval2), VALUE_CONTENTS (inval2)); } else { memcpy (ptr + inval1len, VALUE_CONTENTS (inval2), inval2len); } outval = value_string (ptr, inval1len + inval2len); } else if (TYPE_CODE (VALUE_TYPE (inval1)) == TYPE_CODE_BITSTRING || TYPE_CODE (VALUE_TYPE (inval1)) == TYPE_CODE_BOOL) { /* We have two bitstrings to concatenate. */ if (TYPE_CODE (VALUE_TYPE (inval2)) != TYPE_CODE_BITSTRING && TYPE_CODE (VALUE_TYPE (inval2)) != TYPE_CODE_BOOL) { error ("Bitstrings or booleans can only be concatenated with other bitstrings or booleans."); } error ("unimplemented support for bitstring/boolean concatenation."); } else { /* We don't know how to concatenate these operands. */ error ("illegal operands for concatenation."); } return (outval); } /* Perform a binary operation on two operands which have reasonable representations as integers or floats. This includes booleans, characters, integers, or floats. Does not support addition and subtraction on pointers; use value_add or value_sub if you want to handle those possibilities. */ value_ptr value_binop (arg1, arg2, op) value_ptr arg1, arg2; enum exp_opcode op; { register value_ptr val; COERCE_ENUM (arg1); COERCE_ENUM (arg2); if ((TYPE_CODE (VALUE_TYPE (arg1)) != TYPE_CODE_FLT && TYPE_CODE (VALUE_TYPE (arg1)) != TYPE_CODE_CHAR && TYPE_CODE (VALUE_TYPE (arg1)) != TYPE_CODE_INT && TYPE_CODE (VALUE_TYPE (arg1)) != TYPE_CODE_BOOL && TYPE_CODE (VALUE_TYPE (arg1)) != TYPE_CODE_RANGE) || (TYPE_CODE (VALUE_TYPE (arg2)) != TYPE_CODE_FLT && TYPE_CODE (VALUE_TYPE (arg2)) != TYPE_CODE_CHAR && TYPE_CODE (VALUE_TYPE (arg2)) != TYPE_CODE_INT && TYPE_CODE (VALUE_TYPE (arg2)) != TYPE_CODE_BOOL && TYPE_CODE (VALUE_TYPE (arg2)) != TYPE_CODE_RANGE)) error ("Argument to arithmetic operation not a number or boolean."); if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_FLT || TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_FLT) { /* FIXME-if-picky-about-floating-accuracy: Should be doing this in target format. real.c in GCC probably has the necessary code. */ double v1, v2, v; v1 = value_as_double (arg1); v2 = value_as_double (arg2); switch (op) { case BINOP_ADD: v = v1 + v2; break; case BINOP_SUB: v = v1 - v2; break; case BINOP_MUL: v = v1 * v2; break; case BINOP_DIV: v = v1 / v2; break; default: error ("Integer-only operation on floating point number."); } val = allocate_value (builtin_type_double); store_floating (VALUE_CONTENTS_RAW (val), TYPE_LENGTH (VALUE_TYPE (val)), v); } else if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_BOOL && TYPE_CODE (VALUE_TYPE (arg2)) == TYPE_CODE_BOOL) { LONGEST v1, v2, v; v1 = value_as_long (arg1); v2 = value_as_long (arg2); switch (op) { case BINOP_BITWISE_AND: v = v1 & v2; break; case BINOP_BITWISE_IOR: v = v1 | v2; break; case BINOP_BITWISE_XOR: v = v1 ^ v2; break; default: error ("Invalid operation on booleans."); } val = allocate_value (builtin_type_chill_bool); store_signed_integer (VALUE_CONTENTS_RAW (val), TYPE_LENGTH (VALUE_TYPE (val)), v); } else /* Integral operations here. */ /* FIXME: Also mixed integral/booleans, with result an integer. */ { /* Should we promote to unsigned longest? */ if ((TYPE_UNSIGNED (VALUE_TYPE (arg1)) || TYPE_UNSIGNED (VALUE_TYPE (arg2))) && (TYPE_LENGTH (VALUE_TYPE (arg1)) >= sizeof (unsigned LONGEST) || TYPE_LENGTH (VALUE_TYPE (arg2)) >= sizeof (unsigned LONGEST))) { unsigned LONGEST v1, v2, v; v1 = (unsigned LONGEST) value_as_long (arg1); v2 = (unsigned LONGEST) value_as_long (arg2); switch (op) { case BINOP_ADD: v = v1 + v2; break; case BINOP_SUB: v = v1 - v2; break; case BINOP_MUL: v = v1 * v2; break; case BINOP_DIV: v = v1 / v2; break; case BINOP_REM: v = v1 % v2; break; case BINOP_MOD: /* Knuth 1.2.4, integer only. Note that unlike the C '%' op, v1 mod 0 has a defined value, v1. */ /* Chill specifies that v2 must be > 0, so check for that. */ if (current_language -> la_language == language_chill && value_as_long (arg2) <= 0) { error ("Second operand of MOD must be greater than zero."); } if (v2 == 0) { v = v1; } else { v = v1/v2; /* Note floor(v1/v2) == v1/v2 for unsigned. */ v = v1 - (v2 * v); } break; case BINOP_LSH: v = v1 << v2; break; case BINOP_RSH: v = v1 >> v2; break; case BINOP_BITWISE_AND: v = v1 & v2; break; case BINOP_BITWISE_IOR: v = v1 | v2; break; case BINOP_BITWISE_XOR: v = v1 ^ v2; break; case BINOP_LOGICAL_AND: v = v1 && v2; break; case BINOP_LOGICAL_OR: v = v1 || v2; break; case BINOP_MIN: v = v1 < v2 ? v1 : v2; break; case BINOP_MAX: v = v1 > v2 ? v1 : v2; break; default: error ("Invalid binary operation on numbers."); } /* This is a kludge to get around the fact that we don't know how to determine the result type from the types of the operands. (I'm not really sure how much we feel the need to duplicate the exact rules of the current language. They can get really hairy. But not to do so makes it hard to document just what we *do* do). */ /* Can't just call init_type because we wouldn't know what name to give the type. */ val = allocate_value (sizeof (LONGEST) > TARGET_LONG_BIT / HOST_CHAR_BIT ? builtin_type_unsigned_long_long : builtin_type_unsigned_long); store_unsigned_integer (VALUE_CONTENTS_RAW (val), TYPE_LENGTH (VALUE_TYPE (val)), v); } else { LONGEST v1, v2, v; v1 = value_as_long (arg1); v2 = value_as_long (arg2); switch (op) { case BINOP_ADD: v = v1 + v2; break; case BINOP_SUB: v = v1 - v2; break; case BINOP_MUL: v = v1 * v2; break; case BINOP_DIV: v = v1 / v2; break; case BINOP_REM: v = v1 % v2; break; case BINOP_MOD: /* Knuth 1.2.4, integer only. Note that unlike the C '%' op, X mod 0 has a defined value, X. */ /* Chill specifies that v2 must be > 0, so check for that. */ if (current_language -> la_language == language_chill && v2 <= 0) { error ("Second operand of MOD must be greater than zero."); } if (v2 == 0) { v = v1; } else { v = v1/v2; /* Compute floor. */ if (TRUNCATION_TOWARDS_ZERO && (v < 0) && ((v1 % v2) != 0)) { v--; } v = v1 - (v2 * v); } break; case BINOP_LSH: v = v1 << v2; break; case BINOP_RSH: v = v1 >> v2; break; case BINOP_BITWISE_AND: v = v1 & v2; break; case BINOP_BITWISE_IOR: v = v1 | v2; break; case BINOP_BITWISE_XOR: v = v1 ^ v2; break; case BINOP_LOGICAL_AND: v = v1 && v2; break; case BINOP_LOGICAL_OR: v = v1 || v2; break; case BINOP_MIN: v = v1 < v2 ? v1 : v2; break; case BINOP_MAX: v = v1 > v2 ? v1 : v2; break; default: error ("Invalid binary operation on numbers."); } /* This is a kludge to get around the fact that we don't know how to determine the result type from the types of the operands. (I'm not really sure how much we feel the need to duplicate the exact rules of the current language. They can get really hairy. But not to do so makes it hard to document just what we *do* do). */ /* Can't just call init_type because we wouldn't know what name to give the type. */ val = allocate_value (sizeof (LONGEST) > TARGET_LONG_BIT / HOST_CHAR_BIT ? builtin_type_long_long : builtin_type_long); store_signed_integer (VALUE_CONTENTS_RAW (val), TYPE_LENGTH (VALUE_TYPE (val)), v); } } return val; } /* Simulate the C operator ! -- return 1 if ARG1 contains zero. */ int value_logical_not (arg1) value_ptr arg1; { register int len; register char *p; COERCE_ARRAY (arg1); if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_FLT) return 0 == value_as_double (arg1); len = TYPE_LENGTH (VALUE_TYPE (arg1)); p = VALUE_CONTENTS (arg1); while (--len >= 0) { if (*p++) break; } return len < 0; } /* Simulate the C operator == by returning a 1 iff ARG1 and ARG2 have equal contents. */ int value_equal (arg1, arg2) register value_ptr arg1, arg2; { register int len; register char *p1, *p2; enum type_code code1; enum type_code code2; COERCE_ARRAY (arg1); COERCE_ARRAY (arg2); code1 = TYPE_CODE (VALUE_TYPE (arg1)); code2 = TYPE_CODE (VALUE_TYPE (arg2)); if (code1 == TYPE_CODE_INT && code2 == TYPE_CODE_INT) return value_as_long (arg1) == value_as_long (arg2); else if ((code1 == TYPE_CODE_FLT || code1 == TYPE_CODE_INT) && (code2 == TYPE_CODE_FLT || code2 == TYPE_CODE_INT)) return value_as_double (arg1) == value_as_double (arg2); /* FIXME: Need to promote to either CORE_ADDR or LONGEST, whichever is bigger. */ else if (code1 == TYPE_CODE_PTR && code2 == TYPE_CODE_INT) return value_as_pointer (arg1) == (CORE_ADDR) value_as_long (arg2); else if (code2 == TYPE_CODE_PTR && code1 == TYPE_CODE_INT) return (CORE_ADDR) value_as_long (arg1) == value_as_pointer (arg2); else if (code1 == code2 && ((len = TYPE_LENGTH (VALUE_TYPE (arg1))) == TYPE_LENGTH (VALUE_TYPE (arg2)))) { p1 = VALUE_CONTENTS (arg1); p2 = VALUE_CONTENTS (arg2); while (--len >= 0) { if (*p1++ != *p2++) break; } return len < 0; } else { error ("Invalid type combination in equality test."); return 0; /* For lint -- never reached */ } } /* Simulate the C operator < by returning 1 iff ARG1's contents are less than ARG2's. */ int value_less (arg1, arg2) register value_ptr arg1, arg2; { register enum type_code code1; register enum type_code code2; COERCE_ARRAY (arg1); COERCE_ARRAY (arg2); code1 = TYPE_CODE (VALUE_TYPE (arg1)); code2 = TYPE_CODE (VALUE_TYPE (arg2)); if (code1 == TYPE_CODE_INT && code2 == TYPE_CODE_INT) { if (TYPE_UNSIGNED (VALUE_TYPE (arg1)) || TYPE_UNSIGNED (VALUE_TYPE (arg2))) return ((unsigned LONGEST) value_as_long (arg1) < (unsigned LONGEST) value_as_long (arg2)); else return value_as_long (arg1) < value_as_long (arg2); } else if ((code1 == TYPE_CODE_FLT || code1 == TYPE_CODE_INT) && (code2 == TYPE_CODE_FLT || code2 == TYPE_CODE_INT)) return value_as_double (arg1) < value_as_double (arg2); else if (code1 == TYPE_CODE_PTR && code2 == TYPE_CODE_PTR) return value_as_pointer (arg1) < value_as_pointer (arg2); /* FIXME: Need to promote to either CORE_ADDR or LONGEST, whichever is bigger. */ else if (code1 == TYPE_CODE_PTR && code2 == TYPE_CODE_INT) return value_as_pointer (arg1) < (CORE_ADDR) value_as_long (arg2); else if (code2 == TYPE_CODE_PTR && code1 == TYPE_CODE_INT) return (CORE_ADDR) value_as_long (arg1) < value_as_pointer (arg2); else { error ("Invalid type combination in ordering comparison."); return 0; } } /* The unary operators - and ~. Both free the argument ARG1. */ value_ptr value_neg (arg1) register value_ptr arg1; { register struct type *type; COERCE_ENUM (arg1); type = VALUE_TYPE (arg1); if (TYPE_CODE (type) == TYPE_CODE_FLT) return value_from_double (type, - value_as_double (arg1)); else if (TYPE_CODE (type) == TYPE_CODE_INT) return value_from_longest (type, - value_as_long (arg1)); else { error ("Argument to negate operation not a number."); return 0; /* For lint -- never reached */ } } value_ptr value_complement (arg1) register value_ptr arg1; { COERCE_ENUM (arg1); if (TYPE_CODE (VALUE_TYPE (arg1)) != TYPE_CODE_INT) error ("Argument to complement operation not an integer."); return value_from_longest (VALUE_TYPE (arg1), ~ value_as_long (arg1)); } /* The INDEX'th bit of SET value whose VALUE_TYPE is TYPE, and whose VALUE_CONTENTS is valaddr. Return -1 if out of range, -2 other error. */ int value_bit_index (type, valaddr, index) struct type *type; char *valaddr; int index; { struct type *range; int low_bound, high_bound, bit_length; LONGEST word; range = TYPE_FIELD_TYPE (type, 0); if (TYPE_CODE (range) != TYPE_CODE_RANGE) return -2; low_bound = TYPE_LOW_BOUND (range); high_bound = TYPE_HIGH_BOUND (range); if (index < low_bound || index > high_bound) return -1; bit_length = high_bound - low_bound + 1; index -= low_bound; if (bit_length <= TARGET_CHAR_BIT) word = unpack_long (builtin_type_unsigned_char, valaddr); else if (bit_length <= TARGET_SHORT_BIT) word = unpack_long (builtin_type_unsigned_short, valaddr); else { int word_start_index = (index / TARGET_INT_BIT) * TARGET_INT_BIT; index -= word_start_index; word = unpack_long (builtin_type_unsigned_int, valaddr + (word_start_index / HOST_CHAR_BIT)); } #if BITS_BIG_ENDIAN if (bit_length <= TARGET_CHAR_BIT) index = TARGET_CHAR_BIT - 1 - index; else if (bit_length <= TARGET_SHORT_BIT) index = TARGET_SHORT_BIT - 1 - index; else index = TARGET_INT_BIT - 1 - index; #endif return (word >> index) & 1; } value_ptr value_in (element, set) value_ptr element, set; { int member; if (TYPE_CODE (VALUE_TYPE (set)) != TYPE_CODE_SET) error ("Second argument of 'IN' has wrong type"); if (TYPE_CODE (VALUE_TYPE (element)) != TYPE_CODE_INT && TYPE_CODE (VALUE_TYPE (element)) != TYPE_CODE_CHAR && TYPE_CODE (VALUE_TYPE (element)) != TYPE_CODE_ENUM && TYPE_CODE (VALUE_TYPE (element)) != TYPE_CODE_BOOL) error ("First argument of 'IN' has wrong type"); member = value_bit_index (VALUE_TYPE (set), VALUE_CONTENTS (set), value_as_long (element)); if (member < 0) error ("First argument of 'IN' not in range"); return value_from_longest (builtin_type_int, member); } void _initialize_valarith () { } gdb-4.13/gdb/valops.c 666 34562 1752 156301 5544356271 13022 0ustar fnfcygnus/* Perform non-arithmetic operations on values, for GDB. Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "gdbtypes.h" #include "value.h" #include "frame.h" #include "inferior.h" #include "gdbcore.h" #include "target.h" #include "demangle.h" #include "language.h" #include /* Local functions. */ static int typecmp PARAMS ((int staticp, struct type *t1[], value_ptr t2[])); static CORE_ADDR find_function_addr PARAMS ((value_ptr, struct type **)); static CORE_ADDR value_push PARAMS ((CORE_ADDR, value_ptr)); static CORE_ADDR value_arg_push PARAMS ((CORE_ADDR, value_ptr)); static value_ptr search_struct_field PARAMS ((char *, value_ptr, int, struct type *, int)); static value_ptr search_struct_method PARAMS ((char *, value_ptr *, value_ptr *, int, int *, struct type *)); static int check_field_in PARAMS ((struct type *, const char *)); static CORE_ADDR allocate_space_in_inferior PARAMS ((int)); /* Allocate NBYTES of space in the inferior using the inferior's malloc and return a value that is a pointer to the allocated space. */ static CORE_ADDR allocate_space_in_inferior (len) int len; { register value_ptr val; register struct symbol *sym; struct minimal_symbol *msymbol; struct type *type; value_ptr blocklen; LONGEST maddr; /* Find the address of malloc in the inferior. */ sym = lookup_symbol ("malloc", 0, VAR_NAMESPACE, 0, NULL); if (sym != NULL) { if (SYMBOL_CLASS (sym) != LOC_BLOCK) { error ("\"malloc\" exists in this program but is not a function."); } val = value_of_variable (sym, NULL); } else { msymbol = lookup_minimal_symbol ("malloc", (struct objfile *) NULL); if (msymbol != NULL) { type = lookup_pointer_type (builtin_type_char); type = lookup_function_type (type); type = lookup_pointer_type (type); maddr = (LONGEST) SYMBOL_VALUE_ADDRESS (msymbol); val = value_from_longest (type, maddr); } else { error ("evaluation of this expression requires the program to have a function \"malloc\"."); } } blocklen = value_from_longest (builtin_type_int, (LONGEST) len); val = call_function_by_hand (val, 1, &blocklen); if (value_logical_not (val)) { error ("No memory available to program."); } return (value_as_long (val)); } /* Cast value ARG2 to type TYPE and return as a value. More general than a C cast: accepts any two types of the same length, and if ARG2 is an lvalue it can be cast into anything at all. */ /* In C++, casts may change pointer or object representations. */ value_ptr value_cast (type, arg2) struct type *type; register value_ptr arg2; { register enum type_code code1; register enum type_code code2; register int scalar; /* Coerce arrays but not enums. Enums will work as-is and coercing them would cause an infinite recursion. */ if (TYPE_CODE (VALUE_TYPE (arg2)) != TYPE_CODE_ENUM) COERCE_ARRAY (arg2); code1 = TYPE_CODE (type); code2 = TYPE_CODE (VALUE_TYPE (arg2)); scalar = (code2 == TYPE_CODE_INT || code2 == TYPE_CODE_FLT || code2 == TYPE_CODE_ENUM); if ( code1 == TYPE_CODE_STRUCT && code2 == TYPE_CODE_STRUCT && TYPE_NAME (type) != 0) { /* Look in the type of the source to see if it contains the type of the target as a superclass. If so, we'll need to offset the object in addition to changing its type. */ value_ptr v = search_struct_field (type_name_no_tag (type), arg2, 0, VALUE_TYPE (arg2), 1); if (v) { VALUE_TYPE (v) = type; return v; } } if (code1 == TYPE_CODE_FLT && scalar) return value_from_double (type, value_as_double (arg2)); else if ((code1 == TYPE_CODE_INT || code1 == TYPE_CODE_ENUM) && (scalar || code2 == TYPE_CODE_PTR)) return value_from_longest (type, value_as_long (arg2)); else if (TYPE_LENGTH (type) == TYPE_LENGTH (VALUE_TYPE (arg2))) { if (code1 == TYPE_CODE_PTR && code2 == TYPE_CODE_PTR) { /* Look in the type of the source to see if it contains the type of the target as a superclass. If so, we'll need to offset the pointer rather than just change its type. */ struct type *t1 = TYPE_TARGET_TYPE (type); struct type *t2 = TYPE_TARGET_TYPE (VALUE_TYPE (arg2)); if ( TYPE_CODE (t1) == TYPE_CODE_STRUCT && TYPE_CODE (t2) == TYPE_CODE_STRUCT && TYPE_NAME (t1) != 0) /* if name unknown, can't have supercl */ { value_ptr v = search_struct_field (type_name_no_tag (t1), value_ind (arg2), 0, t2, 1); if (v) { v = value_addr (v); VALUE_TYPE (v) = type; return v; } } /* No superclass found, just fall through to change ptr type. */ } VALUE_TYPE (arg2) = type; return arg2; } else if (VALUE_LVAL (arg2) == lval_memory) { return value_at_lazy (type, VALUE_ADDRESS (arg2) + VALUE_OFFSET (arg2)); } else if (code1 == TYPE_CODE_VOID) { return value_zero (builtin_type_void, not_lval); } else { error ("Invalid cast."); return 0; } } /* Create a value of type TYPE that is zero, and return it. */ value_ptr value_zero (type, lv) struct type *type; enum lval_type lv; { register value_ptr val = allocate_value (type); memset (VALUE_CONTENTS (val), 0, TYPE_LENGTH (type)); VALUE_LVAL (val) = lv; return val; } /* Return a value with type TYPE located at ADDR. Call value_at only if the data needs to be fetched immediately; if we can be 'lazy' and defer the fetch, perhaps indefinately, call value_at_lazy instead. value_at_lazy simply records the address of the data and sets the lazy-evaluation-required flag. The lazy flag is tested in the VALUE_CONTENTS macro, which is used if and when the contents are actually required. */ value_ptr value_at (type, addr) struct type *type; CORE_ADDR addr; { register value_ptr val; if (TYPE_CODE (type) == TYPE_CODE_VOID) error ("Attempt to dereference a generic pointer."); val = allocate_value (type); read_memory (addr, VALUE_CONTENTS_RAW (val), TYPE_LENGTH (type)); VALUE_LVAL (val) = lval_memory; VALUE_ADDRESS (val) = addr; return val; } /* Return a lazy value with type TYPE located at ADDR (cf. value_at). */ value_ptr value_at_lazy (type, addr) struct type *type; CORE_ADDR addr; { register value_ptr val; if (TYPE_CODE (type) == TYPE_CODE_VOID) error ("Attempt to dereference a generic pointer."); val = allocate_value (type); VALUE_LVAL (val) = lval_memory; VALUE_ADDRESS (val) = addr; VALUE_LAZY (val) = 1; return val; } /* Called only from the VALUE_CONTENTS macro, if the current data for a variable needs to be loaded into VALUE_CONTENTS(VAL). Fetches the data from the user's process, and clears the lazy flag to indicate that the data in the buffer is valid. If the value is zero-length, we avoid calling read_memory, which would abort. We mark the value as fetched anyway -- all 0 bytes of it. This function returns a value because it is used in the VALUE_CONTENTS macro as part of an expression, where a void would not work. The value is ignored. */ int value_fetch_lazy (val) register value_ptr val; { CORE_ADDR addr = VALUE_ADDRESS (val) + VALUE_OFFSET (val); if (TYPE_LENGTH (VALUE_TYPE (val))) read_memory (addr, VALUE_CONTENTS_RAW (val), TYPE_LENGTH (VALUE_TYPE (val))); VALUE_LAZY (val) = 0; return 0; } /* Store the contents of FROMVAL into the location of TOVAL. Return a new value with the location of TOVAL and contents of FROMVAL. */ value_ptr value_assign (toval, fromval) register value_ptr toval, fromval; { register struct type *type; register value_ptr val; char raw_buffer[MAX_REGISTER_RAW_SIZE]; int use_buffer = 0; if (!toval->modifiable) error ("Left operand of assignment is not a modifiable lvalue."); COERCE_ARRAY (fromval); COERCE_REF (toval); type = VALUE_TYPE (toval); if (VALUE_LVAL (toval) != lval_internalvar) fromval = value_cast (type, fromval); /* If TOVAL is a special machine register requiring conversion of program values to a special raw format, convert FROMVAL's contents now, with result in `raw_buffer', and set USE_BUFFER to the number of bytes to write. */ #ifdef REGISTER_CONVERTIBLE if (VALUE_REGNO (toval) >= 0 && REGISTER_CONVERTIBLE (VALUE_REGNO (toval))) { int regno = VALUE_REGNO (toval); if (REGISTER_CONVERTIBLE (regno)) { REGISTER_CONVERT_TO_RAW (VALUE_TYPE (fromval), regno, VALUE_CONTENTS (fromval), raw_buffer); use_buffer = REGISTER_RAW_SIZE (regno); } } #endif switch (VALUE_LVAL (toval)) { case lval_internalvar: set_internalvar (VALUE_INTERNALVAR (toval), fromval); break; case lval_internalvar_component: set_internalvar_component (VALUE_INTERNALVAR (toval), VALUE_OFFSET (toval), VALUE_BITPOS (toval), VALUE_BITSIZE (toval), fromval); break; case lval_memory: if (VALUE_BITSIZE (toval)) { char buffer[sizeof (LONGEST)]; /* We assume that the argument to read_memory is in units of host chars. FIXME: Is that correct? */ int len = (VALUE_BITPOS (toval) + VALUE_BITSIZE (toval) + HOST_CHAR_BIT - 1) / HOST_CHAR_BIT; if (len > sizeof (LONGEST)) error ("Can't handle bitfields which don't fit in a %d bit word.", sizeof (LONGEST) * HOST_CHAR_BIT); read_memory (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval), buffer, len); modify_field (buffer, value_as_long (fromval), VALUE_BITPOS (toval), VALUE_BITSIZE (toval)); write_memory (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval), buffer, len); } else if (use_buffer) write_memory (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval), raw_buffer, use_buffer); else write_memory (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval), VALUE_CONTENTS (fromval), TYPE_LENGTH (type)); break; case lval_register: if (VALUE_BITSIZE (toval)) { char buffer[sizeof (LONGEST)]; int len = REGISTER_RAW_SIZE (VALUE_REGNO (toval)); if (len > sizeof (LONGEST)) error ("Can't handle bitfields in registers larger than %d bits.", sizeof (LONGEST) * HOST_CHAR_BIT); if (VALUE_BITPOS (toval) + VALUE_BITSIZE (toval) > len * HOST_CHAR_BIT) /* Getting this right would involve being very careful about byte order. */ error ("\ Can't handle bitfield which doesn't fit in a single register."); read_register_bytes (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval), buffer, len); modify_field (buffer, value_as_long (fromval), VALUE_BITPOS (toval), VALUE_BITSIZE (toval)); write_register_bytes (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval), buffer, len); } else if (use_buffer) write_register_bytes (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval), raw_buffer, use_buffer); else { /* Do any conversion necessary when storing this type to more than one register. */ #ifdef REGISTER_CONVERT_FROM_TYPE memcpy (raw_buffer, VALUE_CONTENTS (fromval), TYPE_LENGTH (type)); REGISTER_CONVERT_FROM_TYPE(VALUE_REGNO (toval), type, raw_buffer); write_register_bytes (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval), raw_buffer, TYPE_LENGTH (type)); #else write_register_bytes (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval), VALUE_CONTENTS (fromval), TYPE_LENGTH (type)); #endif } /* Assigning to the stack pointer, frame pointer, and other (architecture and calling convention specific) registers may cause the frame cache to be out of date. We just do this on all assignments to registers for simplicity; I doubt the slowdown matters. */ reinit_frame_cache (); break; case lval_reg_frame_relative: { /* value is stored in a series of registers in the frame specified by the structure. Copy that value out, modify it, and copy it back in. */ int amount_to_copy = (VALUE_BITSIZE (toval) ? 1 : TYPE_LENGTH (type)); int reg_size = REGISTER_RAW_SIZE (VALUE_FRAME_REGNUM (toval)); int byte_offset = VALUE_OFFSET (toval) % reg_size; int reg_offset = VALUE_OFFSET (toval) / reg_size; int amount_copied; /* Make the buffer large enough in all cases. */ char *buffer = (char *) alloca (amount_to_copy + sizeof (LONGEST) + MAX_REGISTER_RAW_SIZE); int regno; FRAME frame; /* Figure out which frame this is in currently. */ for (frame = get_current_frame (); frame && FRAME_FP (frame) != VALUE_FRAME (toval); frame = get_prev_frame (frame)) ; if (!frame) error ("Value being assigned to is no longer active."); amount_to_copy += (reg_size - amount_to_copy % reg_size); /* Copy it out. */ for ((regno = VALUE_FRAME_REGNUM (toval) + reg_offset, amount_copied = 0); amount_copied < amount_to_copy; amount_copied += reg_size, regno++) { get_saved_register (buffer + amount_copied, (int *)NULL, (CORE_ADDR *)NULL, frame, regno, (enum lval_type *)NULL); } /* Modify what needs to be modified. */ if (VALUE_BITSIZE (toval)) modify_field (buffer + byte_offset, value_as_long (fromval), VALUE_BITPOS (toval), VALUE_BITSIZE (toval)); else if (use_buffer) memcpy (buffer + byte_offset, raw_buffer, use_buffer); else memcpy (buffer + byte_offset, VALUE_CONTENTS (fromval), TYPE_LENGTH (type)); /* Copy it back. */ for ((regno = VALUE_FRAME_REGNUM (toval) + reg_offset, amount_copied = 0); amount_copied < amount_to_copy; amount_copied += reg_size, regno++) { enum lval_type lval; CORE_ADDR addr; int optim; /* Just find out where to put it. */ get_saved_register ((char *)NULL, &optim, &addr, frame, regno, &lval); if (optim) error ("Attempt to assign to a value that was optimized out."); if (lval == lval_memory) write_memory (addr, buffer + amount_copied, reg_size); else if (lval == lval_register) write_register_bytes (addr, buffer + amount_copied, reg_size); else error ("Attempt to assign to an unmodifiable value."); } } break; default: error ("Left operand of assignment is not an lvalue."); } /* Return a value just like TOVAL except with the contents of FROMVAL (except in the case of the type if TOVAL is an internalvar). */ if (VALUE_LVAL (toval) == lval_internalvar || VALUE_LVAL (toval) == lval_internalvar_component) { type = VALUE_TYPE (fromval); } val = allocate_value (type); memcpy (val, toval, VALUE_CONTENTS_RAW (val) - (char *) val); memcpy (VALUE_CONTENTS_RAW (val), VALUE_CONTENTS (fromval), TYPE_LENGTH (type)); VALUE_TYPE (val) = type; return val; } /* Extend a value VAL to COUNT repetitions of its type. */ value_ptr value_repeat (arg1, count) value_ptr arg1; int count; { register value_ptr val; if (VALUE_LVAL (arg1) != lval_memory) error ("Only values in memory can be extended with '@'."); if (count < 1) error ("Invalid number %d of repetitions.", count); val = allocate_repeat_value (VALUE_TYPE (arg1), count); read_memory (VALUE_ADDRESS (arg1) + VALUE_OFFSET (arg1), VALUE_CONTENTS_RAW (val), TYPE_LENGTH (VALUE_TYPE (val)) * count); VALUE_LVAL (val) = lval_memory; VALUE_ADDRESS (val) = VALUE_ADDRESS (arg1) + VALUE_OFFSET (arg1); return val; } value_ptr value_of_variable (var, b) struct symbol *var; struct block *b; { value_ptr val; FRAME fr; if (b == NULL) /* Use selected frame. */ fr = NULL; else { fr = block_innermost_frame (b); if (fr == NULL && symbol_read_needs_frame (var)) { if (BLOCK_FUNCTION (b) != NULL && SYMBOL_NAME (BLOCK_FUNCTION (b)) != NULL) error ("No frame is currently executing in block %s.", SYMBOL_NAME (BLOCK_FUNCTION (b))); else error ("No frame is currently executing in specified block"); } } val = read_var_value (var, fr); if (val == 0) error ("Address of symbol \"%s\" is unknown.", SYMBOL_SOURCE_NAME (var)); return val; } /* Given a value which is an array, return a value which is a pointer to its first element, regardless of whether or not the array has a nonzero lower bound. FIXME: A previous comment here indicated that this routine should be substracting the array's lower bound. It's not clear to me that this is correct. Given an array subscripting operation, it would certainly work to do the adjustment here, essentially computing: (&array[0] - (lowerbound * sizeof array[0])) + (index * sizeof array[0]) However I believe a more appropriate and logical place to account for the lower bound is to do so in value_subscript, essentially computing: (&array[0] + ((index - lowerbound) * sizeof array[0])) As further evidence consider what would happen with operations other than array subscripting, where the caller would get back a value that had an address somewhere before the actual first element of the array, and the information about the lower bound would be lost because of the coercion to pointer type. */ value_ptr value_coerce_array (arg1) value_ptr arg1; { register struct type *type; if (VALUE_LVAL (arg1) != lval_memory) error ("Attempt to take address of value not located in memory."); /* Get type of elements. */ if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_ARRAY || TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_STRING) type = TYPE_TARGET_TYPE (VALUE_TYPE (arg1)); else /* A phony array made by value_repeat. Its type is the type of the elements, not an array type. */ type = VALUE_TYPE (arg1); return value_from_longest (lookup_pointer_type (type), (LONGEST) (VALUE_ADDRESS (arg1) + VALUE_OFFSET (arg1))); } /* Given a value which is a function, return a value which is a pointer to it. */ value_ptr value_coerce_function (arg1) value_ptr arg1; { if (VALUE_LVAL (arg1) != lval_memory) error ("Attempt to take address of value not located in memory."); return value_from_longest (lookup_pointer_type (VALUE_TYPE (arg1)), (LONGEST) (VALUE_ADDRESS (arg1) + VALUE_OFFSET (arg1))); } /* Return a pointer value for the object for which ARG1 is the contents. */ value_ptr value_addr (arg1) value_ptr arg1; { struct type *type = VALUE_TYPE (arg1); if (TYPE_CODE (type) == TYPE_CODE_REF) { /* Copy the value, but change the type from (T&) to (T*). We keep the same location information, which is efficient, and allows &(&X) to get the location containing the reference. */ value_ptr arg2 = value_copy (arg1); VALUE_TYPE (arg2) = lookup_pointer_type (TYPE_TARGET_TYPE (type)); return arg2; } if (VALUE_REPEATED (arg1) || TYPE_CODE (type) == TYPE_CODE_ARRAY) return value_coerce_array (arg1); if (TYPE_CODE (type) == TYPE_CODE_FUNC) return value_coerce_function (arg1); if (VALUE_LVAL (arg1) != lval_memory) error ("Attempt to take address of value not located in memory."); return value_from_longest (lookup_pointer_type (type), (LONGEST) (VALUE_ADDRESS (arg1) + VALUE_OFFSET (arg1))); } /* Given a value of a pointer type, apply the C unary * operator to it. */ value_ptr value_ind (arg1) value_ptr arg1; { COERCE_ARRAY (arg1); if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_MEMBER) error ("not implemented: member types in value_ind"); /* Allow * on an integer so we can cast it to whatever we want. This returns an int, which seems like the most C-like thing to do. "long long" variables are rare enough that BUILTIN_TYPE_LONGEST would seem to be a mistake. */ if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_INT) return value_at (builtin_type_int, (CORE_ADDR) value_as_long (arg1)); else if (TYPE_CODE (VALUE_TYPE (arg1)) == TYPE_CODE_PTR) return value_at_lazy (TYPE_TARGET_TYPE (VALUE_TYPE (arg1)), value_as_pointer (arg1)); error ("Attempt to take contents of a non-pointer value."); return 0; /* For lint -- never reached */ } /* Pushing small parts of stack frames. */ /* Push one word (the size of object that a register holds). */ CORE_ADDR push_word (sp, word) CORE_ADDR sp; unsigned LONGEST word; { register int len = REGISTER_SIZE; char buffer[MAX_REGISTER_RAW_SIZE]; store_unsigned_integer (buffer, len, word); #if 1 INNER_THAN 2 sp -= len; write_memory (sp, buffer, len); #else /* stack grows upward */ write_memory (sp, buffer, len); sp += len; #endif /* stack grows upward */ return sp; } /* Push LEN bytes with data at BUFFER. */ CORE_ADDR push_bytes (sp, buffer, len) CORE_ADDR sp; char *buffer; int len; { #if 1 INNER_THAN 2 sp -= len; write_memory (sp, buffer, len); #else /* stack grows upward */ write_memory (sp, buffer, len); sp += len; #endif /* stack grows upward */ return sp; } /* Push onto the stack the specified value VALUE. */ static CORE_ADDR value_push (sp, arg) register CORE_ADDR sp; value_ptr arg; { register int len = TYPE_LENGTH (VALUE_TYPE (arg)); #if 1 INNER_THAN 2 sp -= len; write_memory (sp, VALUE_CONTENTS (arg), len); #else /* stack grows upward */ write_memory (sp, VALUE_CONTENTS (arg), len); sp += len; #endif /* stack grows upward */ return sp; } /* Perform the standard coercions that are specified for arguments to be passed to C functions. */ value_ptr value_arg_coerce (arg) value_ptr arg; { register struct type *type; /* FIXME: We should coerce this according to the prototype (if we have one). Right now we do a little bit of this in typecmp(), but that doesn't always get called. For example, if passing a ref to a function without a prototype, we probably should de-reference it. Currently we don't. */ if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ENUM) arg = value_cast (builtin_type_unsigned_int, arg); #if 1 /* FIXME: This is only a temporary patch. -fnf */ if (VALUE_REPEATED (arg) || TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ARRAY) arg = value_coerce_array (arg); if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_FUNC) arg = value_coerce_function (arg); #endif type = VALUE_TYPE (arg); if (TYPE_CODE (type) == TYPE_CODE_INT && TYPE_LENGTH (type) < TYPE_LENGTH (builtin_type_int)) return value_cast (builtin_type_int, arg); if (TYPE_CODE (type) == TYPE_CODE_FLT && TYPE_LENGTH (type) < TYPE_LENGTH (builtin_type_double)) return value_cast (builtin_type_double, arg); return arg; } /* Push the value ARG, first coercing it as an argument to a C function. */ static CORE_ADDR value_arg_push (sp, arg) register CORE_ADDR sp; value_ptr arg; { return value_push (sp, value_arg_coerce (arg)); } /* Determine a function's address and its return type from its value. Calls error() if the function is not valid for calling. */ static CORE_ADDR find_function_addr (function, retval_type) value_ptr function; struct type **retval_type; { register struct type *ftype = VALUE_TYPE (function); register enum type_code code = TYPE_CODE (ftype); struct type *value_type; CORE_ADDR funaddr; /* If it's a member function, just look at the function part of it. */ /* Determine address to call. */ if (code == TYPE_CODE_FUNC || code == TYPE_CODE_METHOD) { funaddr = VALUE_ADDRESS (function); value_type = TYPE_TARGET_TYPE (ftype); } else if (code == TYPE_CODE_PTR) { funaddr = value_as_pointer (function); if (TYPE_CODE (TYPE_TARGET_TYPE (ftype)) == TYPE_CODE_FUNC || TYPE_CODE (TYPE_TARGET_TYPE (ftype)) == TYPE_CODE_METHOD) value_type = TYPE_TARGET_TYPE (TYPE_TARGET_TYPE (ftype)); else value_type = builtin_type_int; } else if (code == TYPE_CODE_INT) { /* Handle the case of functions lacking debugging info. Their values are characters since their addresses are char */ if (TYPE_LENGTH (ftype) == 1) funaddr = value_as_pointer (value_addr (function)); else /* Handle integer used as address of a function. */ funaddr = (CORE_ADDR) value_as_long (function); value_type = builtin_type_int; } else error ("Invalid data type for function to be called."); *retval_type = value_type; return funaddr; } #if defined (CALL_DUMMY) /* All this stuff with a dummy frame may seem unnecessarily complicated (why not just save registers in GDB?). The purpose of pushing a dummy frame which looks just like a real frame is so that if you call a function and then hit a breakpoint (get a signal, etc), "backtrace" will look right. Whether the backtrace needs to actually show the stack at the time the inferior function was called is debatable, but it certainly needs to not display garbage. So if you are contemplating making dummy frames be different from normal frames, consider that. */ /* Perform a function call in the inferior. ARGS is a vector of values of arguments (NARGS of them). FUNCTION is a value, the function to be called. Returns a value representing what the function returned. May fail to return, if a breakpoint or signal is hit during the execution of the function. */ value_ptr call_function_by_hand (function, nargs, args) value_ptr function; int nargs; value_ptr *args; { register CORE_ADDR sp; register int i; CORE_ADDR start_sp; /* CALL_DUMMY is an array of words (REGISTER_SIZE), but each word is in host byte order. Before calling FIX_CALL_DUMMY, we byteswap it and remove any extra bytes which might exist because unsigned LONGEST is bigger than REGISTER_SIZE. */ static unsigned LONGEST dummy[] = CALL_DUMMY; char dummy1[REGISTER_SIZE * sizeof dummy / sizeof (unsigned LONGEST)]; CORE_ADDR old_sp; struct type *value_type; unsigned char struct_return; CORE_ADDR struct_addr; struct inferior_status inf_status; struct cleanup *old_chain; CORE_ADDR funaddr; int using_gcc; CORE_ADDR real_pc; if (!target_has_execution) noprocess(); save_inferior_status (&inf_status, 1); old_chain = make_cleanup (restore_inferior_status, &inf_status); /* PUSH_DUMMY_FRAME is responsible for saving the inferior registers (and POP_FRAME for restoring them). (At least on most machines) they are saved on the stack in the inferior. */ PUSH_DUMMY_FRAME; old_sp = sp = read_sp (); #if 1 INNER_THAN 2 /* Stack grows down */ sp -= sizeof dummy; start_sp = sp; #else /* Stack grows up */ start_sp = sp; sp += sizeof dummy; #endif funaddr = find_function_addr (function, &value_type); { struct block *b = block_for_pc (funaddr); /* If compiled without -g, assume GCC. */ using_gcc = b == NULL || BLOCK_GCC_COMPILED (b); } /* Are we returning a value using a structure return or a normal value return? */ struct_return = using_struct_return (function, funaddr, value_type, using_gcc); /* Create a call sequence customized for this function and the number of arguments for it. */ for (i = 0; i < sizeof dummy / sizeof (dummy[0]); i++) store_unsigned_integer (&dummy1[i * REGISTER_SIZE], REGISTER_SIZE, (unsigned LONGEST)dummy[i]); #ifdef GDB_TARGET_IS_HPPA real_pc = FIX_CALL_DUMMY (dummy1, start_sp, funaddr, nargs, args, value_type, using_gcc); #else FIX_CALL_DUMMY (dummy1, start_sp, funaddr, nargs, args, value_type, using_gcc); real_pc = start_sp; #endif #if CALL_DUMMY_LOCATION == ON_STACK write_memory (start_sp, (char *)dummy1, sizeof dummy); #endif /* On stack. */ #if CALL_DUMMY_LOCATION == BEFORE_TEXT_END /* Convex Unix prohibits executing in the stack segment. */ /* Hope there is empty room at the top of the text segment. */ { extern CORE_ADDR text_end; static checked = 0; if (!checked) for (start_sp = text_end - sizeof dummy; start_sp < text_end; ++start_sp) if (read_memory_integer (start_sp, 1) != 0) error ("text segment full -- no place to put call"); checked = 1; sp = old_sp; real_pc = text_end - sizeof dummy; write_memory (real_pc, (char *)dummy1, sizeof dummy); } #endif /* Before text_end. */ #if CALL_DUMMY_LOCATION == AFTER_TEXT_END { extern CORE_ADDR text_end; int errcode; sp = old_sp; real_pc = text_end; errcode = target_write_memory (real_pc, (char *)dummy1, sizeof dummy); if (errcode != 0) error ("Cannot write text segment -- call_function failed"); } #endif /* After text_end. */ #if CALL_DUMMY_LOCATION == AT_ENTRY_POINT real_pc = funaddr; #endif /* At entry point. */ #ifdef lint sp = old_sp; /* It really is used, for some ifdef's... */ #endif #ifdef STACK_ALIGN /* If stack grows down, we must leave a hole at the top. */ { int len = 0; /* Reserve space for the return structure to be written on the stack, if necessary */ if (struct_return) len += TYPE_LENGTH (value_type); for (i = nargs - 1; i >= 0; i--) len += TYPE_LENGTH (VALUE_TYPE (value_arg_coerce (args[i]))); #ifdef CALL_DUMMY_STACK_ADJUST len += CALL_DUMMY_STACK_ADJUST; #endif #if 1 INNER_THAN 2 sp -= STACK_ALIGN (len) - len; #else sp += STACK_ALIGN (len) - len; #endif } #endif /* STACK_ALIGN */ /* Reserve space for the return structure to be written on the stack, if necessary */ if (struct_return) { #if 1 INNER_THAN 2 sp -= TYPE_LENGTH (value_type); struct_addr = sp; #else struct_addr = sp; sp += TYPE_LENGTH (value_type); #endif } #if defined (REG_STRUCT_HAS_ADDR) { /* This is a machine like the sparc, where we may need to pass a pointer to the structure, not the structure itself. */ for (i = nargs - 1; i >= 0; i--) if (TYPE_CODE (VALUE_TYPE (args[i])) == TYPE_CODE_STRUCT && REG_STRUCT_HAS_ADDR (using_gcc, VALUE_TYPE (args[i]))) { CORE_ADDR addr; #if !(1 INNER_THAN 2) /* The stack grows up, so the address of the thing we push is the stack pointer before we push it. */ addr = sp; #endif /* Push the structure. */ sp = value_push (sp, args[i]); #if 1 INNER_THAN 2 /* The stack grows down, so the address of the thing we push is the stack pointer after we push it. */ addr = sp; #endif /* The value we're going to pass is the address of the thing we just pushed. */ args[i] = value_from_longest (lookup_pointer_type (value_type), (LONGEST) addr); } } #endif /* REG_STRUCT_HAS_ADDR. */ #ifdef PUSH_ARGUMENTS PUSH_ARGUMENTS(nargs, args, sp, struct_return, struct_addr); #else /* !PUSH_ARGUMENTS */ for (i = nargs - 1; i >= 0; i--) sp = value_arg_push (sp, args[i]); #endif /* !PUSH_ARGUMENTS */ #ifdef CALL_DUMMY_STACK_ADJUST #if 1 INNER_THAN 2 sp -= CALL_DUMMY_STACK_ADJUST; #else sp += CALL_DUMMY_STACK_ADJUST; #endif #endif /* CALL_DUMMY_STACK_ADJUST */ /* Store the address at which the structure is supposed to be written. Note that this (and the code which reserved the space above) assumes that gcc was used to compile this function. Since it doesn't cost us anything but space and if the function is pcc it will ignore this value, we will make that assumption. Also note that on some machines (like the sparc) pcc uses a convention like gcc's. */ if (struct_return) STORE_STRUCT_RETURN (struct_addr, sp); /* Write the stack pointer. This is here because the statements above might fool with it. On SPARC, this write also stores the register window into the right place in the new stack frame, which otherwise wouldn't happen. (See store_inferior_registers in sparc-nat.c.) */ write_sp (sp); { char retbuf[REGISTER_BYTES]; char *name; struct symbol *symbol; name = NULL; symbol = find_pc_function (funaddr); if (symbol) { name = SYMBOL_SOURCE_NAME (symbol); } else { /* Try the minimal symbols. */ struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (funaddr); if (msymbol) { name = SYMBOL_SOURCE_NAME (msymbol); } } if (name == NULL) { char format[80]; sprintf (format, "at %s", local_hex_format ()); name = alloca (80); /* FIXME-32x64: assumes funaddr fits in a long. */ sprintf (name, format, (unsigned long) funaddr); } /* Execute the stack dummy routine, calling FUNCTION. When it is done, discard the empty frame after storing the contents of all regs into retbuf. */ if (run_stack_dummy (real_pc + CALL_DUMMY_START_OFFSET, retbuf)) { /* We stopped somewhere besides the call dummy. */ /* If we did the cleanups, we would print a spurious error message (Unable to restore previously selected frame), would write the registers from the inf_status (which is wrong), and would do other wrong things (like set stop_bpstat to the wrong thing). */ discard_cleanups (old_chain); /* Prevent memory leak. */ bpstat_clear (&inf_status.stop_bpstat); /* The following error message used to say "The expression which contained the function call has been discarded." It is a hard concept to explain in a few words. Ideally, GDB would be able to resume evaluation of the expression when the function finally is done executing. Perhaps someday this will be implemented (it would not be easy). */ /* FIXME: Insert a bunch of wrap_here; name can be very long if it's a C++ name with arguments and stuff. */ error ("\ The program being debugged stopped while in a function called from GDB.\n\ When the function (%s) is done executing, GDB will silently\n\ stop (instead of continuing to evaluate the expression containing\n\ the function call).", name); } do_cleanups (old_chain); /* Figure out the value returned by the function. */ return value_being_returned (value_type, retbuf, struct_return); } } #else /* no CALL_DUMMY. */ value_ptr call_function_by_hand (function, nargs, args) value_ptr function; int nargs; value_ptr *args; { error ("Cannot invoke functions on this machine."); } #endif /* no CALL_DUMMY. */ /* Create a value for an array by allocating space in the inferior, copying the data into that space, and then setting up an array value. The array bounds are set from LOWBOUND and HIGHBOUND, and the array is populated from the values passed in ELEMVEC. The element type of the array is inherited from the type of the first element, and all elements must have the same size (though we don't currently enforce any restriction on their types). */ value_ptr value_array (lowbound, highbound, elemvec) int lowbound; int highbound; value_ptr *elemvec; { int nelem; int idx; int typelength; value_ptr val; struct type *rangetype; struct type *arraytype; CORE_ADDR addr; /* Validate that the bounds are reasonable and that each of the elements have the same size. */ nelem = highbound - lowbound + 1; if (nelem <= 0) { error ("bad array bounds (%d, %d)", lowbound, highbound); } typelength = TYPE_LENGTH (VALUE_TYPE (elemvec[0])); for (idx = 0; idx < nelem; idx++) { if (TYPE_LENGTH (VALUE_TYPE (elemvec[idx])) != typelength) { error ("array elements must all be the same size"); } } /* Allocate space to store the array in the inferior, and then initialize it by copying in each element. FIXME: Is it worth it to create a local buffer in which to collect each value and then write all the bytes in one operation? */ addr = allocate_space_in_inferior (nelem * typelength); for (idx = 0; idx < nelem; idx++) { write_memory (addr + (idx * typelength), VALUE_CONTENTS (elemvec[idx]), typelength); } /* Create the array type and set up an array value to be evaluated lazily. */ rangetype = create_range_type ((struct type *) NULL, builtin_type_int, lowbound, highbound); arraytype = create_array_type ((struct type *) NULL, VALUE_TYPE (elemvec[0]), rangetype); val = value_at_lazy (arraytype, addr); return (val); } /* Create a value for a string constant by allocating space in the inferior, copying the data into that space, and returning the address with type TYPE_CODE_STRING. PTR points to the string constant data; LEN is number of characters. Note that string types are like array of char types with a lower bound of zero and an upper bound of LEN - 1. Also note that the string may contain embedded null bytes. */ value_ptr value_string (ptr, len) char *ptr; int len; { value_ptr val; struct type *rangetype; struct type *stringtype; CORE_ADDR addr; /* Allocate space to store the string in the inferior, and then copy LEN bytes from PTR in gdb to that address in the inferior. */ addr = allocate_space_in_inferior (len); write_memory (addr, ptr, len); /* Create the string type and set up a string value to be evaluated lazily. */ rangetype = create_range_type ((struct type *) NULL, builtin_type_int, 0, len - 1); stringtype = create_string_type ((struct type *) NULL, rangetype); val = value_at_lazy (stringtype, addr); return (val); } /* See if we can pass arguments in T2 to a function which takes arguments of types T1. Both t1 and t2 are NULL-terminated vectors. If some arguments need coercion of some sort, then the coerced values are written into T2. Return value is 0 if the arguments could be matched, or the position at which they differ if not. STATICP is nonzero if the T1 argument list came from a static member function. For non-static member functions, we ignore the first argument, which is the type of the instance variable. This is because we want to handle calls with objects from derived classes. This is not entirely correct: we should actually check to make sure that a requested operation is type secure, shouldn't we? FIXME. */ static int typecmp (staticp, t1, t2) int staticp; struct type *t1[]; value_ptr t2[]; { int i; if (t2 == 0) return 1; if (staticp && t1 == 0) return t2[1] != 0; if (t1 == 0) return 1; if (TYPE_CODE (t1[0]) == TYPE_CODE_VOID) return 0; if (t1[!staticp] == 0) return 0; for (i = !staticp; t1[i] && TYPE_CODE (t1[i]) != TYPE_CODE_VOID; i++) { struct type *tt1, *tt2; if (! t2[i]) return i+1; tt1 = t1[i]; tt2 = VALUE_TYPE(t2[i]); if (TYPE_CODE (tt1) == TYPE_CODE_REF /* We should be doing hairy argument matching, as below. */ && (TYPE_CODE (TYPE_TARGET_TYPE (tt1)) == TYPE_CODE (tt2))) { t2[i] = value_addr (t2[i]); continue; } while (TYPE_CODE (tt1) == TYPE_CODE_PTR && (TYPE_CODE(tt2)==TYPE_CODE_ARRAY || TYPE_CODE(tt2)==TYPE_CODE_PTR)) { tt1 = TYPE_TARGET_TYPE(tt1); tt2 = TYPE_TARGET_TYPE(tt2); } if (TYPE_CODE(tt1) == TYPE_CODE(tt2)) continue; /* Array to pointer is a `trivial conversion' according to the ARM. */ /* We should be doing much hairier argument matching (see section 13.2 of the ARM), but as a quick kludge, just check for the same type code. */ if (TYPE_CODE (t1[i]) != TYPE_CODE (VALUE_TYPE (t2[i]))) return i+1; } if (!t1[i]) return 0; return t2[i] ? i+1 : 0; } /* Helper function used by value_struct_elt to recurse through baseclasses. Look for a field NAME in ARG1. Adjust the address of ARG1 by OFFSET bytes, and search in it assuming it has (class) type TYPE. If found, return value, else return NULL. If LOOKING_FOR_BASECLASS, then instead of looking for struct fields, look for a baseclass named NAME. */ static value_ptr search_struct_field (name, arg1, offset, type, looking_for_baseclass) char *name; register value_ptr arg1; int offset; register struct type *type; int looking_for_baseclass; { int i; check_stub_type (type); if (! looking_for_baseclass) for (i = TYPE_NFIELDS (type) - 1; i >= TYPE_N_BASECLASSES (type); i--) { char *t_field_name = TYPE_FIELD_NAME (type, i); if (t_field_name && STREQ (t_field_name, name)) { value_ptr v; if (TYPE_FIELD_STATIC (type, i)) { char *phys_name = TYPE_FIELD_STATIC_PHYSNAME (type, i); struct symbol *sym = lookup_symbol (phys_name, 0, VAR_NAMESPACE, 0, NULL); if (sym == NULL) error ("Internal error: could not find physical static variable named %s", phys_name); v = value_at (TYPE_FIELD_TYPE (type, i), (CORE_ADDR)SYMBOL_BLOCK_VALUE (sym)); } else v = value_primitive_field (arg1, offset, i, type); if (v == 0) error("there is no field named %s", name); return v; } } for (i = TYPE_N_BASECLASSES (type) - 1; i >= 0; i--) { value_ptr v; /* If we are looking for baseclasses, this is what we get when we hit them. But it could happen that the base part's member name is not yet filled in. */ int found_baseclass = (looking_for_baseclass && TYPE_BASECLASS_NAME (type, i) != NULL && STREQ (name, TYPE_BASECLASS_NAME (type, i))); if (BASETYPE_VIA_VIRTUAL (type, i)) { value_ptr v2; /* Fix to use baseclass_offset instead. FIXME */ baseclass_addr (type, i, VALUE_CONTENTS (arg1) + offset, &v2, (int *)NULL); if (v2 == 0) error ("virtual baseclass botch"); if (found_baseclass) return v2; v = search_struct_field (name, v2, 0, TYPE_BASECLASS (type, i), looking_for_baseclass); } else if (found_baseclass) v = value_primitive_field (arg1, offset, i, type); else v = search_struct_field (name, arg1, offset + TYPE_BASECLASS_BITPOS (type, i) / 8, TYPE_BASECLASS (type, i), looking_for_baseclass); if (v) return v; } return NULL; } /* Helper function used by value_struct_elt to recurse through baseclasses. Look for a field NAME in ARG1. Adjust the address of ARG1 by OFFSET bytes, and search in it assuming it has (class) type TYPE. If found, return value, else if name matched and args not return (value)-1, else return NULL. */ static value_ptr search_struct_method (name, arg1p, args, offset, static_memfuncp, type) char *name; register value_ptr *arg1p, *args; int offset, *static_memfuncp; register struct type *type; { int i; value_ptr v; int name_matched = 0; char dem_opname[64]; check_stub_type (type); for (i = TYPE_NFN_FIELDS (type) - 1; i >= 0; i--) { char *t_field_name = TYPE_FN_FIELDLIST_NAME (type, i); if (strncmp(t_field_name, "__", 2)==0 || strncmp(t_field_name, "op", 2)==0 || strncmp(t_field_name, "type", 4)==0 ) { if (cplus_demangle_opname(t_field_name, dem_opname, DMGL_ANSI)) t_field_name = dem_opname; else if (cplus_demangle_opname(t_field_name, dem_opname, 0)) t_field_name = dem_opname; } if (t_field_name && STREQ (t_field_name, name)) { int j = TYPE_FN_FIELDLIST_LENGTH (type, i) - 1; struct fn_field *f = TYPE_FN_FIELDLIST1 (type, i); name_matched = 1; if (j > 0 && args == 0) error ("cannot resolve overloaded method `%s'", name); while (j >= 0) { if (TYPE_FN_FIELD_STUB (f, j)) check_stub_method (type, i, j); if (!typecmp (TYPE_FN_FIELD_STATIC_P (f, j), TYPE_FN_FIELD_ARGS (f, j), args)) { if (TYPE_FN_FIELD_VIRTUAL_P (f, j)) return value_virtual_fn_field (arg1p, f, j, type, offset); if (TYPE_FN_FIELD_STATIC_P (f, j) && static_memfuncp) *static_memfuncp = 1; v = value_fn_field (arg1p, f, j, type, offset); if (v != NULL) return v; } j--; } } } for (i = TYPE_N_BASECLASSES (type) - 1; i >= 0; i--) { int base_offset; if (BASETYPE_VIA_VIRTUAL (type, i)) { base_offset = baseclass_offset (type, i, *arg1p, offset); if (base_offset == -1) error ("virtual baseclass botch"); } else { base_offset = TYPE_BASECLASS_BITPOS (type, i) / 8; } v = search_struct_method (name, arg1p, args, base_offset + offset, static_memfuncp, TYPE_BASECLASS (type, i)); if (v == (value_ptr) -1) { name_matched = 1; } else if (v) { /* FIXME-bothner: Why is this commented out? Why is it here? */ /* *arg1p = arg1_tmp;*/ return v; } } if (name_matched) return (value_ptr) -1; else return NULL; } /* Given *ARGP, a value of type (pointer to a)* structure/union, extract the component named NAME from the ultimate target structure/union and return it as a value with its appropriate type. ERR is used in the error message if *ARGP's type is wrong. C++: ARGS is a list of argument types to aid in the selection of an appropriate method. Also, handle derived types. STATIC_MEMFUNCP, if non-NULL, points to a caller-supplied location where the truthvalue of whether the function that was resolved was a static member function or not is stored. ERR is an error message to be printed in case the field is not found. */ value_ptr value_struct_elt (argp, args, name, static_memfuncp, err) register value_ptr *argp, *args; char *name; int *static_memfuncp; char *err; { register struct type *t; value_ptr v; COERCE_ARRAY (*argp); t = VALUE_TYPE (*argp); /* Follow pointers until we get to a non-pointer. */ while (TYPE_CODE (t) == TYPE_CODE_PTR || TYPE_CODE (t) == TYPE_CODE_REF) { *argp = value_ind (*argp); /* Don't coerce fn pointer to fn and then back again! */ if (TYPE_CODE (VALUE_TYPE (*argp)) != TYPE_CODE_FUNC) COERCE_ARRAY (*argp); t = VALUE_TYPE (*argp); } if (TYPE_CODE (t) == TYPE_CODE_MEMBER) error ("not implemented: member type in value_struct_elt"); if ( TYPE_CODE (t) != TYPE_CODE_STRUCT && TYPE_CODE (t) != TYPE_CODE_UNION) error ("Attempt to extract a component of a value that is not a %s.", err); /* Assume it's not, unless we see that it is. */ if (static_memfuncp) *static_memfuncp =0; if (!args) { /* if there are no arguments ...do this... */ /* Try as a field first, because if we succeed, there is less work to be done. */ v = search_struct_field (name, *argp, 0, t, 0); if (v) return v; /* C++: If it was not found as a data field, then try to return it as a pointer to a method. */ if (destructor_name_p (name, t)) error ("Cannot get value of destructor"); v = search_struct_method (name, argp, args, 0, static_memfuncp, t); if (v == (value_ptr) -1) error ("Cannot take address of a method"); else if (v == 0) { if (TYPE_NFN_FIELDS (t)) error ("There is no member or method named %s.", name); else error ("There is no member named %s.", name); } return v; } if (destructor_name_p (name, t)) { if (!args[1]) { /* destructors are a special case. */ v = value_fn_field (NULL, TYPE_FN_FIELDLIST1 (t, 0), TYPE_FN_FIELDLIST_LENGTH (t, 0), 0, 0); if (!v) error("could not find destructor function named %s.", name); else return v; } else { error ("destructor should not have any argument"); } } else v = search_struct_method (name, argp, args, 0, static_memfuncp, t); if (v == (value_ptr) -1) { error("Argument list of %s mismatch with component in the structure.", name); } else if (v == 0) { /* See if user tried to invoke data as function. If so, hand it back. If it's not callable (i.e., a pointer to function), gdb should give an error. */ v = search_struct_field (name, *argp, 0, t, 0); } if (!v) error ("Structure has no component named %s.", name); return v; } /* C++: return 1 is NAME is a legitimate name for the destructor of type TYPE. If TYPE does not have a destructor, or if NAME is inappropriate for TYPE, an error is signaled. */ int destructor_name_p (name, type) const char *name; const struct type *type; { /* destructors are a special case. */ if (name[0] == '~') { char *dname = type_name_no_tag (type); if (!STREQ (dname, name+1)) error ("name of destructor must equal name of class"); else return 1; } return 0; } /* Helper function for check_field: Given TYPE, a structure/union, return 1 if the component named NAME from the ultimate target structure/union is defined, otherwise, return 0. */ static int check_field_in (type, name) register struct type *type; const char *name; { register int i; for (i = TYPE_NFIELDS (type) - 1; i >= TYPE_N_BASECLASSES (type); i--) { char *t_field_name = TYPE_FIELD_NAME (type, i); if (t_field_name && STREQ (t_field_name, name)) return 1; } /* C++: If it was not found as a data field, then try to return it as a pointer to a method. */ /* Destructors are a special case. */ if (destructor_name_p (name, type)) return 1; for (i = TYPE_NFN_FIELDS (type) - 1; i >= 0; --i) { if (STREQ (TYPE_FN_FIELDLIST_NAME (type, i), name)) return 1; } for (i = TYPE_N_BASECLASSES (type) - 1; i >= 0; i--) if (check_field_in (TYPE_BASECLASS (type, i), name)) return 1; return 0; } /* C++: Given ARG1, a value of type (pointer to a)* structure/union, return 1 if the component named NAME from the ultimate target structure/union is defined, otherwise, return 0. */ int check_field (arg1, name) register value_ptr arg1; const char *name; { register struct type *t; COERCE_ARRAY (arg1); t = VALUE_TYPE (arg1); /* Follow pointers until we get to a non-pointer. */ while (TYPE_CODE (t) == TYPE_CODE_PTR || TYPE_CODE (t) == TYPE_CODE_REF) t = TYPE_TARGET_TYPE (t); if (TYPE_CODE (t) == TYPE_CODE_MEMBER) error ("not implemented: member type in check_field"); if ( TYPE_CODE (t) != TYPE_CODE_STRUCT && TYPE_CODE (t) != TYPE_CODE_UNION) error ("Internal error: `this' is not an aggregate"); return check_field_in (t, name); } /* C++: Given an aggregate type CURTYPE, and a member name NAME, return the address of this member as a "pointer to member" type. If INTYPE is non-null, then it will be the type of the member we are looking for. This will help us resolve "pointers to member functions". This function is used to resolve user expressions of the form "DOMAIN::NAME". */ value_ptr value_struct_elt_for_reference (domain, offset, curtype, name, intype) struct type *domain, *curtype, *intype; int offset; char *name; { register struct type *t = curtype; register int i; value_ptr v; if ( TYPE_CODE (t) != TYPE_CODE_STRUCT && TYPE_CODE (t) != TYPE_CODE_UNION) error ("Internal error: non-aggregate type to value_struct_elt_for_reference"); for (i = TYPE_NFIELDS (t) - 1; i >= TYPE_N_BASECLASSES (t); i--) { char *t_field_name = TYPE_FIELD_NAME (t, i); if (t_field_name && STREQ (t_field_name, name)) { if (TYPE_FIELD_STATIC (t, i)) { char *phys_name = TYPE_FIELD_STATIC_PHYSNAME (t, i); struct symbol *sym = lookup_symbol (phys_name, 0, VAR_NAMESPACE, 0, NULL); if (sym == NULL) error ("Internal error: could not find physical static variable named %s", phys_name); return value_at (SYMBOL_TYPE (sym), (CORE_ADDR)SYMBOL_BLOCK_VALUE (sym)); } if (TYPE_FIELD_PACKED (t, i)) error ("pointers to bitfield members not allowed"); return value_from_longest (lookup_reference_type (lookup_member_type (TYPE_FIELD_TYPE (t, i), domain)), offset + (LONGEST) (TYPE_FIELD_BITPOS (t, i) >> 3)); } } /* C++: If it was not found as a data field, then try to return it as a pointer to a method. */ /* Destructors are a special case. */ if (destructor_name_p (name, t)) { error ("member pointers to destructors not implemented yet"); } /* Perform all necessary dereferencing. */ while (intype && TYPE_CODE (intype) == TYPE_CODE_PTR) intype = TYPE_TARGET_TYPE (intype); for (i = TYPE_NFN_FIELDS (t) - 1; i >= 0; --i) { char *t_field_name = TYPE_FN_FIELDLIST_NAME (t, i); char dem_opname[64]; if (strncmp(t_field_name, "__", 2)==0 || strncmp(t_field_name, "op", 2)==0 || strncmp(t_field_name, "type", 4)==0 ) { if (cplus_demangle_opname(t_field_name, dem_opname, DMGL_ANSI)) t_field_name = dem_opname; else if (cplus_demangle_opname(t_field_name, dem_opname, 0)) t_field_name = dem_opname; } if (t_field_name && STREQ (t_field_name, name)) { int j = TYPE_FN_FIELDLIST_LENGTH (t, i); struct fn_field *f = TYPE_FN_FIELDLIST1 (t, i); if (intype == 0 && j > 1) error ("non-unique member `%s' requires type instantiation", name); if (intype) { while (j--) if (TYPE_FN_FIELD_TYPE (f, j) == intype) break; if (j < 0) error ("no member function matches that type instantiation"); } else j = 0; if (TYPE_FN_FIELD_STUB (f, j)) check_stub_method (t, i, j); if (TYPE_FN_FIELD_VIRTUAL_P (f, j)) { return value_from_longest (lookup_reference_type (lookup_member_type (TYPE_FN_FIELD_TYPE (f, j), domain)), (LONGEST) METHOD_PTR_FROM_VOFFSET (TYPE_FN_FIELD_VOFFSET (f, j))); } else { struct symbol *s = lookup_symbol (TYPE_FN_FIELD_PHYSNAME (f, j), 0, VAR_NAMESPACE, 0, NULL); if (s == NULL) { v = 0; } else { v = read_var_value (s, 0); #if 0 VALUE_TYPE (v) = lookup_reference_type (lookup_member_type (TYPE_FN_FIELD_TYPE (f, j), domain)); #endif } return v; } } } for (i = TYPE_N_BASECLASSES (t) - 1; i >= 0; i--) { value_ptr v; int base_offset; if (BASETYPE_VIA_VIRTUAL (t, i)) base_offset = 0; else base_offset = TYPE_BASECLASS_BITPOS (t, i) / 8; v = value_struct_elt_for_reference (domain, offset + base_offset, TYPE_BASECLASS (t, i), name, intype); if (v) return v; } return 0; } /* C++: return the value of the class instance variable, if one exists. Flag COMPLAIN signals an error if the request is made in an inappropriate context. */ value_ptr value_of_this (complain) int complain; { extern FRAME selected_frame; struct symbol *func, *sym; struct block *b; int i; static const char funny_this[] = "this"; value_ptr this; if (selected_frame == 0) if (complain) error ("no frame selected"); else return 0; func = get_frame_function (selected_frame); if (!func) { if (complain) error ("no `this' in nameless context"); else return 0; } b = SYMBOL_BLOCK_VALUE (func); i = BLOCK_NSYMS (b); if (i <= 0) if (complain) error ("no args, no `this'"); else return 0; /* Calling lookup_block_symbol is necessary to get the LOC_REGISTER symbol instead of the LOC_ARG one (if both exist). */ sym = lookup_block_symbol (b, funny_this, VAR_NAMESPACE); if (sym == NULL) { if (complain) error ("current stack frame not in method"); else return NULL; } this = read_var_value (sym, selected_frame); if (this == 0 && complain) error ("`this' argument at unknown address"); return this; } gdb-4.13/gdb/valprint.c 666 34562 1752 76003 5611620467 13331 0ustar fnfcygnus/* Print values for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include "symtab.h" #include "gdbtypes.h" #include "value.h" #include "gdbcore.h" #include "gdbcmd.h" #include "target.h" #include "obstack.h" #include "language.h" #include "demangle.h" #include "annotate.h" #include /* Prototypes for local functions */ static void print_hex_chars PARAMS ((GDB_FILE *, unsigned char *, unsigned int)); static void show_print PARAMS ((char *, int)); static void set_print PARAMS ((char *, int)); static void set_radix PARAMS ((char *, int)); static void show_radix PARAMS ((char *, int)); static void set_input_radix PARAMS ((char *, int, struct cmd_list_element *)); static void set_input_radix_1 PARAMS ((int, unsigned)); static void set_output_radix PARAMS ((char *, int, struct cmd_list_element *)); static void set_output_radix_1 PARAMS ((int, unsigned)); /* Maximum number of chars to print for a string pointer value or vector contents, or UINT_MAX for no limit. Note that "set print elements 0" stores UINT_MAX in print_max, which displays in a show command as "unlimited". */ unsigned int print_max; #define PRINT_MAX_DEFAULT 200 /* Start print_max off at this value. */ /* Default input and output radixes, and output format letter. */ unsigned input_radix = 10; unsigned output_radix = 10; int output_format = 0; /* Print repeat counts if there are more than this many repetitions of an element in an array. Referenced by the low level language dependent print routines. */ unsigned int repeat_count_threshold = 10; /* If nonzero, stops printing of char arrays at first null. */ int stop_print_at_null; /* Controls pretty printing of structures. */ int prettyprint_structs; /* Controls pretty printing of arrays. */ int prettyprint_arrays; /* If nonzero, causes unions inside structures or other unions to be printed. */ int unionprint; /* Controls printing of nested unions. */ /* If nonzero, causes machine addresses to be printed in certain contexts. */ int addressprint; /* Controls printing of machine addresses */ /* Print data of type TYPE located at VALADDR (within GDB), which came from the inferior at address ADDRESS, onto stdio stream STREAM according to FORMAT (a letter, or 0 for natural format using TYPE). If DEREF_REF is nonzero, then dereference references, otherwise just print them like pointers. The PRETTY parameter controls prettyprinting. If the data are a string pointer, returns the number of string characters printed. FIXME: The data at VALADDR is in target byte order. If gdb is ever enhanced to be able to debug more than the single target it was compiled for (specific CPU type and thus specific target byte ordering), then either the print routines are going to have to take this into account, or the data is going to have to be passed into here already converted to the host byte ordering, whichever is more convenient. */ int val_print (type, valaddr, address, stream, format, deref_ref, recurse, pretty) struct type *type; char *valaddr; CORE_ADDR address; GDB_FILE *stream; int format; int deref_ref; int recurse; enum val_prettyprint pretty; { if (pretty == Val_pretty_default) { pretty = prettyprint_structs ? Val_prettyprint : Val_no_prettyprint; } QUIT; /* Ensure that the type is complete and not just a stub. If the type is only a stub and we can't find and substitute its complete type, then print appropriate string and return. */ check_stub_type (type); if (TYPE_FLAGS (type) & TYPE_FLAG_STUB) { fprintf_filtered (stream, ""); gdb_flush (stream); return (0); } return (LA_VAL_PRINT (type, valaddr, address, stream, format, deref_ref, recurse, pretty)); } /* Print the value VAL in C-ish syntax on stream STREAM. FORMAT is a format-letter, or 0 for print in natural format of data type. If the object printed is a string pointer, returns the number of string bytes printed. */ int value_print (val, stream, format, pretty) value_ptr val; GDB_FILE *stream; int format; enum val_prettyprint pretty; { if (val == 0) { printf_filtered ("
"); return 0; } if (VALUE_OPTIMIZED_OUT (val)) { printf_filtered (""); return 0; } return LA_VALUE_PRINT (val, stream, format, pretty); } /* Called by various _val_print routines to print TYPE_CODE_INT's */ void val_print_type_code_int (type, valaddr, stream) struct type *type; char *valaddr; GDB_FILE *stream; { char *p; /* Pointer to first (i.e. lowest address) nonzero character. */ char *first_addr; unsigned int len; if (TYPE_LENGTH (type) > sizeof (LONGEST)) { if (TYPE_UNSIGNED (type)) { /* First figure out whether the number in fact has zeros in all its bytes more significant than least significant sizeof (LONGEST) ones. */ len = TYPE_LENGTH (type); #if TARGET_BYTE_ORDER == BIG_ENDIAN for (p = valaddr; len > sizeof (LONGEST) && p < valaddr + TYPE_LENGTH (type); p++) #else /* Little endian. */ first_addr = valaddr; for (p = valaddr + TYPE_LENGTH (type) - 1; len > sizeof (LONGEST) && p >= valaddr; p--) #endif /* Little endian. */ { if (*p == 0) { len--; } else { break; } } #if TARGET_BYTE_ORDER == BIG_ENDIAN first_addr = p; #endif if (len <= sizeof (LONGEST)) { /* The most significant bytes are zero, so we can just get the least significant sizeof (LONGEST) bytes and print it in decimal. */ print_longest (stream, 'u', 0, extract_unsigned_integer (first_addr, sizeof (LONGEST))); } else { /* It is big, so print it in hex. */ print_hex_chars (stream, (unsigned char *) first_addr, len); } } else { /* Signed. One could assume two's complement (a reasonable assumption, I think) and do better than this. */ print_hex_chars (stream, (unsigned char *) valaddr, TYPE_LENGTH (type)); } } else { #ifdef PRINT_TYPELESS_INTEGER PRINT_TYPELESS_INTEGER (stream, type, unpack_long (type, valaddr)); #else print_longest (stream, TYPE_UNSIGNED (type) ? 'u' : 'd', 0, unpack_long (type, valaddr)); #endif } } /* Print a number according to FORMAT which is one of d,u,x,o,b,h,w,g. The raison d'etre of this function is to consolidate printing of LONG_LONG's into this one function. Some platforms have long longs but don't have a printf() that supports "ll" in the format string. We handle these by seeing if the number is actually a long, and if not we just bail out and print the number in hex. The format chars b,h,w,g are from print_scalar_formatted(). If USE_LOCAL, format it according to the current language (this should be used for most integers which GDB prints, the exception is things like protocols where the format of the integer is a protocol thing, not a user-visible thing). */ void print_longest (stream, format, use_local, val_long) GDB_FILE *stream; int format; int use_local; LONGEST val_long; { #if defined (CC_HAS_LONG_LONG) && !defined (PRINTF_HAS_LONG_LONG) long vtop, vbot; vtop = val_long >> (sizeof (long) * HOST_CHAR_BIT); vbot = (long) val_long; if ((format == 'd' && (val_long < INT_MIN || val_long > INT_MAX)) || ((format == 'u' || format == 'x') && (unsigned long long)val_long > UINT_MAX)) { fprintf_filtered (stream, "0x%lx%08lx", vtop, vbot); return; } #endif #ifdef PRINTF_HAS_LONG_LONG switch (format) { case 'd': fprintf_filtered (stream, use_local ? local_decimal_format_custom ("ll") : "%lld", val_long); break; case 'u': fprintf_filtered (stream, "%llu", val_long); break; case 'x': fprintf_filtered (stream, use_local ? local_hex_format_custom ("ll") : "%llx", val_long); break; case 'o': fprintf_filtered (stream, use_local ? local_octal_format_custom ("ll") : "%llo", break; case 'b': fprintf_filtered (stream, local_hex_format_custom ("02ll"), val_long); break; case 'h': fprintf_filtered (stream, local_hex_format_custom ("04ll"), val_long); break; case 'w': fprintf_filtered (stream, local_hex_format_custom ("08ll"), val_long); break; case 'g': fprintf_filtered (stream, local_hex_format_custom ("016ll"), val_long); break; default: abort (); } #else /* !PRINTF_HAS_LONG_LONG */ /* In the following it is important to coerce (val_long) to a long. It does nothing if !LONG_LONG, but it will chop off the top half (which we know we can ignore) if the host supports long longs. */ switch (format) { case 'd': fprintf_filtered (stream, use_local ? local_decimal_format_custom ("l") : "%ld", (long) val_long); break; case 'u': fprintf_filtered (stream, "%lu", (unsigned long) val_long); break; case 'x': fprintf_filtered (stream, use_local ? local_hex_format_custom ("l") : "%lx", (long) val_long); break; case 'o': fprintf_filtered (stream, use_local ? local_octal_format_custom ("l") : "%lo", (long) val_long); break; case 'b': fprintf_filtered (stream, local_hex_format_custom ("02l"), (long) val_long); break; case 'h': fprintf_filtered (stream, local_hex_format_custom ("04l"), (long) val_long); break; case 'w': fprintf_filtered (stream, local_hex_format_custom ("08l"), (long) val_long); break; case 'g': fprintf_filtered (stream, local_hex_format_custom ("016l"), (long) val_long); break; default: abort (); } #endif /* !PRINTF_HAS_LONG_LONG */ } /* This used to be a macro, but I don't think it is called often enough to merit such treatment. */ /* Convert a LONGEST to an int. This is used in contexts (e.g. number of arguments to a function, number in a value history, register number, etc.) where the value must not be larger than can fit in an int. */ int longest_to_int (arg) LONGEST arg; { /* This check is in case a system header has botched the definition of INT_MIN, like on BSDI. */ if (sizeof (LONGEST) <= sizeof (int)) return arg; if (arg > INT_MAX || arg < INT_MIN) error ("Value out of range."); return arg; } /* Print a floating point value of type TYPE, pointed to in GDB by VALADDR, on STREAM. */ void print_floating (valaddr, type, stream) char *valaddr; struct type *type; GDB_FILE *stream; { double doub; int inv; unsigned len = TYPE_LENGTH (type); #if defined (IEEE_FLOAT) /* Check for NaN's. Note that this code does not depend on us being on an IEEE conforming system. It only depends on the target machine using IEEE representation. This means (a) cross-debugging works right, and (2) IEEE_FLOAT can (and should) be defined for systems like the 68881, which uses IEEE representation, but is not IEEE conforming. */ { unsigned long low, high; /* Is the sign bit 0? */ int nonnegative; /* Is it is a NaN (i.e. the exponent is all ones and the fraction is nonzero)? */ int is_nan; if (len == 4) { /* It's single precision. */ /* Assume that floating point byte order is the same as integer byte order. */ low = extract_unsigned_integer (valaddr, 4); nonnegative = ((low & 0x80000000) == 0); is_nan = ((((low >> 23) & 0xFF) == 0xFF) && 0 != (low & 0x7FFFFF)); low &= 0x7fffff; high = 0; } else if (len == 8) { /* It's double precision. Get the high and low words. */ /* Assume that floating point byte order is the same as integer byte order. */ #if TARGET_BYTE_ORDER == BIG_ENDIAN low = extract_unsigned_integer (valaddr + 4, 4); high = extract_unsigned_integer (valaddr, 4); #else low = extract_unsigned_integer (valaddr, 4); high = extract_unsigned_integer (valaddr + 4, 4); #endif nonnegative = ((high & 0x80000000) == 0); is_nan = (((high >> 20) & 0x7ff) == 0x7ff && ! ((((high & 0xfffff) == 0)) && (low == 0))); high &= 0xfffff; } else /* Extended. We can't detect NaNs for extendeds yet. Also note that currently extendeds get nuked to double in REGISTER_CONVERTIBLE. */ is_nan = 0; if (is_nan) { /* The meaning of the sign and fraction is not defined by IEEE. But the user might know what they mean. For example, they (in an implementation-defined manner) distinguish between signaling and quiet NaN's. */ if (high) fprintf_filtered (stream, "-NaN(0x%lx%.8lx)" + nonnegative, high, low); else fprintf_filtered (stream, "-NaN(0x%lx)" + nonnegative, low); return; } } #endif /* IEEE_FLOAT. */ doub = unpack_double (type, valaddr, &inv); if (inv) fprintf_filtered (stream, ""); else fprintf_filtered (stream, len <= sizeof(float) ? "%.9g" : "%.17g", doub); } /* VALADDR points to an integer of LEN bytes. Print it in hex on stream. */ static void print_hex_chars (stream, valaddr, len) GDB_FILE *stream; unsigned char *valaddr; unsigned len; { unsigned char *p; /* FIXME: We should be not printing leading zeroes in most cases. */ fprintf_filtered (stream, local_hex_format_prefix ()); #if TARGET_BYTE_ORDER == BIG_ENDIAN for (p = valaddr; p < valaddr + len; p++) #else /* Little endian. */ for (p = valaddr + len - 1; p >= valaddr; p--) #endif { fprintf_filtered (stream, "%02x", *p); } fprintf_filtered (stream, local_hex_format_suffix ()); } /* Called by various _val_print routines to print elements of an array in the form ", , , ...". (FIXME?) Assumes array element separator is a comma, which is correct for all languages currently handled. (FIXME?) Some languages have a notation for repeated array elements, perhaps we should try to use that notation when appropriate. */ void val_print_array_elements (type, valaddr, address, stream, format, deref_ref, recurse, pretty, i) struct type *type; char *valaddr; CORE_ADDR address; GDB_FILE *stream; int format; int deref_ref; int recurse; enum val_prettyprint pretty; unsigned int i; { unsigned int things_printed = 0; unsigned len; struct type *elttype; unsigned eltlen; /* Position of the array element we are examining to see whether it is repeated. */ unsigned int rep1; /* Number of repetitions we have detected so far. */ unsigned int reps; elttype = TYPE_TARGET_TYPE (type); eltlen = TYPE_LENGTH (elttype); len = TYPE_LENGTH (type) / eltlen; annotate_array_section_begin (i, elttype); for (; i < len && things_printed < print_max; i++) { if (i != 0) { if (prettyprint_arrays) { fprintf_filtered (stream, ",\n"); print_spaces_filtered (2 + 2 * recurse, stream); } else { fprintf_filtered (stream, ", "); } } wrap_here (n_spaces (2 + 2 * recurse)); rep1 = i + 1; reps = 1; while ((rep1 < len) && !memcmp (valaddr + i * eltlen, valaddr + rep1 * eltlen, eltlen)) { ++reps; ++rep1; } if (reps > repeat_count_threshold) { val_print (elttype, valaddr + i * eltlen, 0, stream, format, deref_ref, recurse + 1, pretty); annotate_elt_rep (reps); fprintf_filtered (stream, " ", reps); annotate_elt_rep_end (); i = rep1 - 1; things_printed += repeat_count_threshold; } else { val_print (elttype, valaddr + i * eltlen, 0, stream, format, deref_ref, recurse + 1, pretty); annotate_elt (); things_printed++; } } annotate_array_section_end (); if (i < len) { fprintf_filtered (stream, "..."); } } void value_print_array_elements (val, stream, format, pretty) value_ptr val; GDB_FILE *stream; int format; enum val_prettyprint pretty; { unsigned int things_printed = 0; register unsigned int i, n, typelen; /* Position of the array elem we are examining to see if it is repeated. */ unsigned int rep1; /* Number of repetitions we have detected so far. */ unsigned int reps; n = VALUE_REPETITIONS (val); typelen = TYPE_LENGTH (VALUE_TYPE (val)); for (i = 0; i < n && things_printed < print_max; i++) { if (i != 0) { fprintf_filtered (stream, ", "); } wrap_here (""); rep1 = i + 1; reps = 1; while (rep1 < n && !memcmp (VALUE_CONTENTS (val) + typelen * i, VALUE_CONTENTS (val) + typelen * rep1, typelen)) { ++reps; ++rep1; } if (reps > repeat_count_threshold) { val_print (VALUE_TYPE (val), VALUE_CONTENTS (val) + typelen * i, VALUE_ADDRESS (val) + typelen * i, stream, format, 1, 0, pretty); fprintf_unfiltered (stream, " ", reps); i = rep1 - 1; things_printed += repeat_count_threshold; } else { val_print (VALUE_TYPE (val), VALUE_CONTENTS (val) + typelen * i, VALUE_ADDRESS (val) + typelen * i, stream, format, 1, 0, pretty); things_printed++; } } if (i < n) { fprintf_filtered (stream, "..."); } } /* Print a string from the inferior, starting at ADDR and printing up to LEN characters, to STREAM. If LEN is zero, printing stops at the first null byte, otherwise printing proceeds (including null bytes) until either print_max or LEN characters have been printed, whichever is smaller. */ /* FIXME: All callers supply LEN of zero. Supplying a non-zero LEN is pointless, this routine just then becomes a convoluted version of target_read_memory_partial. Removing all the LEN stuff would simplify this routine enormously. FIXME: Use target_read_string. */ int val_print_string (addr, len, stream) CORE_ADDR addr; unsigned int len; GDB_FILE *stream; { int force_ellipsis = 0; /* Force ellipsis to be printed if nonzero. */ int errcode; /* Errno returned from bad reads. */ unsigned int fetchlimit; /* Maximum number of bytes to fetch. */ unsigned int nfetch; /* Bytes to fetch / bytes fetched. */ unsigned int chunksize; /* Size of each fetch, in bytes. */ int bufsize; /* Size of current fetch buffer. */ char *buffer = NULL; /* Dynamically growable fetch buffer. */ char *bufptr; /* Pointer to next available byte in buffer. */ char *limit; /* First location past end of fetch buffer. */ struct cleanup *old_chain = NULL; /* Top of the old cleanup chain. */ char peekchar; /* Place into which we can read one char. */ /* First we need to figure out the limit on the number of characters we are going to attempt to fetch and print. This is actually pretty simple. If LEN is nonzero, then the limit is the minimum of LEN and print_max. If LEN is zero, then the limit is print_max. This is true regardless of whether print_max is zero, UINT_MAX (unlimited), or something in between, because finding the null byte (or available memory) is what actually limits the fetch. */ fetchlimit = (len == 0 ? print_max : min (len, print_max)); /* Now decide how large of chunks to try to read in one operation. This is also pretty simple. If LEN is nonzero, then we want fetchlimit bytes, so we might as well read them all in one operation. If LEN is zero, we are looking for a null terminator to end the fetching, so we might as well read in blocks that are large enough to be efficient, but not so large as to be slow if fetchlimit happens to be large. So we choose the minimum of 8 and fetchlimit. We used to use 200 instead of 8 but 200 is way too big for remote debugging over a serial line. */ chunksize = (len == 0 ? min (8, fetchlimit) : fetchlimit); /* Loop until we either have all the characters to print, or we encounter some error, such as bumping into the end of the address space. */ bufsize = 0; do { QUIT; /* Figure out how much to fetch this time, and grow the buffer to fit. */ nfetch = min (chunksize, fetchlimit - bufsize); bufsize += nfetch; if (buffer == NULL) { buffer = (char *) xmalloc (bufsize); bufptr = buffer; } else { discard_cleanups (old_chain); buffer = (char *) xrealloc (buffer, bufsize); bufptr = buffer + bufsize - nfetch; } old_chain = make_cleanup (free, buffer); /* Read as much as we can. */ nfetch = target_read_memory_partial (addr, bufptr, nfetch, &errcode); if (len != 0) { addr += nfetch; bufptr += nfetch; } else { /* Scan this chunk for the null byte that terminates the string to print. If found, we don't need to fetch any more. Note that bufptr is explicitly left pointing at the next character after the null byte, or at the next character after the end of the buffer. */ limit = bufptr + nfetch; while (bufptr < limit) { ++addr; ++bufptr; if (bufptr[-1] == '\0') { /* We don't care about any error which happened after the NULL terminator. */ errcode = 0; break; } } } } while (errcode == 0 /* no error */ && bufsize < fetchlimit /* no overrun */ && !(len == 0 && *(bufptr - 1) == '\0')); /* no null term */ /* bufptr and addr now point immediately beyond the last byte which we consider part of the string (including a '\0' which ends the string). */ /* We now have either successfully filled the buffer to fetchlimit, or terminated early due to an error or finding a null byte when LEN is zero. */ if (len == 0 && bufptr > buffer && *(bufptr - 1) != '\0') { /* We didn't find a null terminator we were looking for. Attempt to peek at the next character. If not successful, or it is not a null byte, then force ellipsis to be printed. */ if (target_read_memory (addr, &peekchar, 1) != 0 || peekchar != '\0') { force_ellipsis = 1; } } else if ((len != 0 && errcode != 0) || (len > bufptr - buffer)) { /* Getting an error when we have a requested length, or fetching less than the number of characters actually requested, always make us print ellipsis. */ force_ellipsis = 1; } QUIT; /* If we get an error before fetching anything, don't print a string. But if we fetch something and then get an error, print the string and then the error message. */ if (errcode == 0 || bufptr > buffer) { if (addressprint) { fputs_filtered (" ", stream); } LA_PRINT_STRING (stream, buffer, bufptr - buffer, force_ellipsis); } if (errcode != 0) { if (errcode == EIO) { fprintf_filtered (stream, "
"); } else { fprintf_filtered (stream, " ", safe_strerror (errcode)); } } gdb_flush (stream); do_cleanups (old_chain); return (bufptr - buffer); } /* Validate an input or output radix setting, and make sure the user knows what they really did here. Radix setting is confusing, e.g. setting the input radix to "10" never changes it! */ /* ARGSUSED */ static void set_input_radix (args, from_tty, c) char *args; int from_tty; struct cmd_list_element *c; { set_input_radix_1 (from_tty, *(unsigned *)c->var); } /* ARGSUSED */ static void set_input_radix_1 (from_tty, radix) int from_tty; unsigned radix; { /* We don't currently disallow any input radix except 0 or 1, which don't make any mathematical sense. In theory, we can deal with any input radix greater than 1, even if we don't have unique digits for every value from 0 to radix-1, but in practice we lose on large radix values. We should either fix the lossage or restrict the radix range more. (FIXME). */ if (radix < 2) { error ("Nonsense input radix ``decimal %u''; input radix unchanged.", radix); } input_radix = radix; if (from_tty) { printf_filtered ("Input radix now set to decimal %u, hex %x, octal %o.\n", radix, radix, radix); } } /* ARGSUSED */ static void set_output_radix (args, from_tty, c) char *args; int from_tty; struct cmd_list_element *c; { set_output_radix_1 (from_tty, *(unsigned *)c->var); } static void set_output_radix_1 (from_tty, radix) int from_tty; unsigned radix; { /* Validate the radix and disallow ones that we aren't prepared to handle correctly, leaving the radix unchanged. */ switch (radix) { case 16: output_format = 'x'; /* hex */ break; case 10: output_format = 0; /* decimal */ break; case 8: output_format = 'o'; /* octal */ break; default: error ("Unsupported output radix ``decimal %u''; output radix unchanged.", radix); } output_radix = radix; if (from_tty) { printf_filtered ("Output radix now set to decimal %u, hex %x, octal %o.\n", radix, radix, radix); } } /* Set both the input and output radix at once. Try to set the output radix first, since it has the most restrictive range. An radix that is valid as an output radix is also valid as an input radix. It may be useful to have an unusual input radix. If the user wishes to set an input radix that is not valid as an output radix, he needs to use the 'set input-radix' command. */ static void set_radix (arg, from_tty) char *arg; int from_tty; { unsigned radix; radix = (arg == NULL) ? 10 : parse_and_eval_address (arg); set_output_radix_1 (0, radix); set_input_radix_1 (0, radix); if (from_tty) { printf_filtered ("Input and output radices now set to decimal %u, hex %x, octal %o.\n", radix, radix, radix); } } /* Show both the input and output radices. */ /*ARGSUSED*/ static void show_radix (arg, from_tty) char *arg; int from_tty; { if (from_tty) { if (input_radix == output_radix) { printf_filtered ("Input and output radices set to decimal %u, hex %x, octal %o.\n", input_radix, input_radix, input_radix); } else { printf_filtered ("Input radix set to decimal %u, hex %x, octal %o.\n", input_radix, input_radix, input_radix); printf_filtered ("Output radix set to decimal %u, hex %x, octal %o.\n", output_radix, output_radix, output_radix); } } } /*ARGSUSED*/ static void set_print (arg, from_tty) char *arg; int from_tty; { printf_unfiltered ( "\"set print\" must be followed by the name of a print subcommand.\n"); help_list (setprintlist, "set print ", -1, gdb_stdout); } /*ARGSUSED*/ static void show_print (args, from_tty) char *args; int from_tty; { cmd_show_list (showprintlist, from_tty, ""); } void _initialize_valprint () { struct cmd_list_element *c; add_prefix_cmd ("print", no_class, set_print, "Generic command for setting how things print.", &setprintlist, "set print ", 0, &setlist); add_alias_cmd ("p", "print", no_class, 1, &setlist); /* prefer set print to set prompt */ add_alias_cmd ("pr", "print", no_class, 1, &setlist); add_prefix_cmd ("print", no_class, show_print, "Generic command for showing print settings.", &showprintlist, "show print ", 0, &showlist); add_alias_cmd ("p", "print", no_class, 1, &showlist); add_alias_cmd ("pr", "print", no_class, 1, &showlist); add_show_from_set (add_set_cmd ("elements", no_class, var_uinteger, (char *)&print_max, "Set limit on string chars or array elements to print.\n\ \"set print elements 0\" causes there to be no limit.", &setprintlist), &showprintlist); add_show_from_set (add_set_cmd ("null-stop", no_class, var_boolean, (char *)&stop_print_at_null, "Set printing of char arrays to stop at first null char.", &setprintlist), &showprintlist); add_show_from_set (add_set_cmd ("repeats", no_class, var_uinteger, (char *)&repeat_count_threshold, "Set threshold for repeated print elements.\n\ \"set print repeats 0\" causes all elements to be individually printed.", &setprintlist), &showprintlist); add_show_from_set (add_set_cmd ("pretty", class_support, var_boolean, (char *)&prettyprint_structs, "Set prettyprinting of structures.", &setprintlist), &showprintlist); add_show_from_set (add_set_cmd ("union", class_support, var_boolean, (char *)&unionprint, "Set printing of unions interior to structures.", &setprintlist), &showprintlist); add_show_from_set (add_set_cmd ("array", class_support, var_boolean, (char *)&prettyprint_arrays, "Set prettyprinting of arrays.", &setprintlist), &showprintlist); add_show_from_set (add_set_cmd ("address", class_support, var_boolean, (char *)&addressprint, "Set printing of addresses.", &setprintlist), &showprintlist); c = add_set_cmd ("input-radix", class_support, var_uinteger, (char *)&input_radix, "Set default input radix for entering numbers.", &setlist); add_show_from_set (c, &showlist); c->function.sfunc = set_input_radix; c = add_set_cmd ("output-radix", class_support, var_uinteger, (char *)&output_radix, "Set default output radix for printing of values.", &setlist); add_show_from_set (c, &showlist); c->function.sfunc = set_output_radix; /* The "set radix" and "show radix" commands are special in that they are like normal set and show commands but allow two normally independent variables to be either set or shown with a single command. So the usual add_set_cmd() and add_show_from_set() commands aren't really appropriate. */ add_cmd ("radix", class_support, set_radix, "Set default input and output number radices.\n\ Use 'set input-radix' or 'set output-radix' to independently set each.\n\ Without an argument, sets both radices back to the default value of 10.", &setlist); add_cmd ("radix", class_support, show_radix, "Show the default input and output number radices.\n\ Use 'show input-radix' or 'show output-radix' to independently show each.", &showlist); /* Give people the defaults which they are used to. */ prettyprint_structs = 0; prettyprint_arrays = 0; unionprint = 1; addressprint = 1; print_max = PRINT_MAX_DEFAULT; } gdb-4.13/gdb/valprint.h 666 34562 1752 3405 5611620473 13307 0ustar fnfcygnus/* Declarations for value printing routines for GDB, the GNU debugger. Copyright 1986, 1988, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ extern int prettyprint_arrays; /* Controls pretty printing of arrays. */ extern int prettyprint_structs; /* Controls pretty printing of structures */ extern int prettyprint_arrays; /* Controls pretty printing of arrays. */ extern int vtblprint; /* Controls printing of vtbl's */ extern int unionprint; /* Controls printing of nested unions. */ extern int addressprint; /* Controls pretty printing of addresses. */ extern int objectprint; /* Controls looking up an object's derived type using what we find in its vtables. */ extern unsigned int print_max; /* Max # of chars for strings/vectors */ extern int output_format; extern int stop_print_at_null; /* Stop printing at null char? */ extern void val_print_array_elements PARAMS ((struct type *, char *, CORE_ADDR, GDB_FILE *, int, int, int, enum val_prettyprint, int)); extern void val_print_type_code_int PARAMS ((struct type *, char *, GDB_FILE *)); gdb-4.13/gdb/value.h 666 34562 1752 40126 5574226670 12616 0ustar fnfcygnus/* Definitions for values of C expressions, for GDB. Copyright 1986, 1987, 1989, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (VALUE_H) #define VALUE_H 1 /* * The structure which defines the type of a value. It should never * be possible for a program lval value to survive over a call to the inferior * (ie to be put into the history list or an internal variable). */ enum lval_type { /* Not an lval. */ not_lval, /* In memory. Could be a saved register. */ lval_memory, /* In a register. */ lval_register, /* In a gdb internal variable. */ lval_internalvar, /* Part of a gdb internal variable (structure field). */ lval_internalvar_component, /* In a register series in a frame not the current one, which may have been partially saved or saved in different places (otherwise would be lval_register or lval_memory). */ lval_reg_frame_relative }; struct value { /* Type of value; either not an lval, or one of the various different possible kinds of lval. */ enum lval_type lval; /* Is it modifiable? Only relevant if lval != not_lval. */ int modifiable; /* Location of value (if lval). */ union { /* Address in inferior or byte of registers structure. */ CORE_ADDR address; /* Pointer to internal variable. */ struct internalvar *internalvar; /* Number of register. Only used with lval_reg_frame_relative. */ int regnum; } location; /* Describes offset of a value within lval a structure in bytes. */ int offset; /* Only used for bitfields; number of bits contained in them. */ int bitsize; /* Only used for bitfields; position of start of field. For BITS_BIG_ENDIAN=0 targets, it is the position of the LSB. For BITS_BIG_ENDIAN=1 targets, it is the position of the MSB. */ int bitpos; /* Frame value is relative to. In practice, this address is only used if the value is stored in several registers in other than the current frame, and these registers have not all been saved at the same place in memory. This will be described in the lval enum above as "lval_reg_frame_relative". */ CORE_ADDR frame_addr; /* Type of the value. */ struct type *type; /* Values are stored in a chain, so that they can be deleted easily over calls to the inferior. Values assigned to internal variables or put into the value history are taken off this list. */ struct value *next; /* If an lval is forced to repeat, a new value is created with these fields set. The new value is not an lval. */ short repeated; short repetitions; /* Register number if the value is from a register. Is not kept if you take a field of a structure that is stored in a register. Shouldn't it be? */ short regno; /* If zero, contents of this value are in the contents field. If nonzero, contents are in inferior memory at address in the location.address field plus the offset field (and the lval field should be lval_memory). */ char lazy; /* If nonzero, this is the value of a variable which does not actually exist in the program. */ char optimized_out; /* Actual contents of the value. For use of this value; setting it uses the stuff above. Not valid if lazy is nonzero. Target byte-order. We force it to be aligned properly for any possible value. */ union { long contents[1]; double force_double_align; LONGEST force_longlong_align; } aligner; }; typedef struct value *value_ptr; #define VALUE_TYPE(val) (val)->type #define VALUE_LAZY(val) (val)->lazy /* VALUE_CONTENTS and VALUE_CONTENTS_RAW both return the address of the gdb buffer used to hold a copy of the contents of the lval. VALUE_CONTENTS is used when the contents of the buffer are needed -- it uses value_fetch_lazy() to load the buffer from the process being debugged if it hasn't already been loaded. VALUE_CONTENTS_RAW is used when data is being stored into the buffer, or when it is certain that the contents of the buffer are valid. */ #define VALUE_CONTENTS_RAW(val) ((char *) (val)->aligner.contents) #define VALUE_CONTENTS(val) ((void)(VALUE_LAZY(val) && value_fetch_lazy(val)),\ VALUE_CONTENTS_RAW(val)) extern int value_fetch_lazy PARAMS ((value_ptr val)); #define VALUE_LVAL(val) (val)->lval #define VALUE_ADDRESS(val) (val)->location.address #define VALUE_INTERNALVAR(val) (val)->location.internalvar #define VALUE_FRAME_REGNUM(val) ((val)->location.regnum) #define VALUE_FRAME(val) ((val)->frame_addr) #define VALUE_OFFSET(val) (val)->offset #define VALUE_BITSIZE(val) (val)->bitsize #define VALUE_BITPOS(val) (val)->bitpos #define VALUE_NEXT(val) (val)->next #define VALUE_REPEATED(val) (val)->repeated #define VALUE_REPETITIONS(val) (val)->repetitions #define VALUE_REGNO(val) (val)->regno #define VALUE_OPTIMIZED_OUT(val) ((val)->optimized_out) /* Convert a REF to the object referenced. */ #define COERCE_REF(arg) \ { if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_REF) \ arg = value_at_lazy (TYPE_TARGET_TYPE (VALUE_TYPE (arg)), \ unpack_long (VALUE_TYPE (arg), \ VALUE_CONTENTS (arg)));} /* If ARG is an array, convert it to a pointer. If ARG is an enum, convert it to an integer. If ARG is a function, convert it to a function pointer. References are dereferenced. */ #define COERCE_ARRAY(arg) \ { COERCE_REF(arg); \ if (VALUE_REPEATED (arg) \ || TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ARRAY) \ arg = value_coerce_array (arg); \ if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_FUNC) \ arg = value_coerce_function (arg); \ if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ENUM) \ arg = value_cast (builtin_type_unsigned_int, arg); \ } /* If ARG is an enum, convert it to an integer. */ #define COERCE_ENUM(arg) \ { COERCE_REF (arg); \ if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ENUM) \ arg = value_cast (builtin_type_unsigned_int, arg); \ } /* Internal variables (variables for convenience of use of debugger) are recorded as a chain of these structures. */ struct internalvar { struct internalvar *next; char *name; value_ptr value; }; /* Pointer to member function. Depends on compiler implementation. */ #define METHOD_PTR_IS_VIRTUAL(ADDR) ((ADDR) & 0x80000000) #define METHOD_PTR_FROM_VOFFSET(OFFSET) (0x80000000 + (OFFSET)) #define METHOD_PTR_TO_VOFFSET(ADDR) (~0x80000000 & (ADDR)) #include "symtab.h" #include "gdbtypes.h" #include "expression.h" #ifdef __STDC__ struct frame_info; struct fn_field; #endif extern void print_address_demangle PARAMS ((CORE_ADDR, GDB_FILE *, int)); extern LONGEST value_as_long PARAMS ((value_ptr val)); extern double value_as_double PARAMS ((value_ptr val)); extern CORE_ADDR value_as_pointer PARAMS ((value_ptr val)); extern LONGEST unpack_long PARAMS ((struct type *type, char *valaddr)); extern double unpack_double PARAMS ((struct type *type, char *valaddr, int *invp)); extern CORE_ADDR unpack_pointer PARAMS ((struct type *type, char *valaddr)); extern LONGEST unpack_field_as_long PARAMS ((struct type *type, char *valaddr, int fieldno)); extern value_ptr value_from_longest PARAMS ((struct type *type, LONGEST num)); extern value_ptr value_from_double PARAMS ((struct type *type, double num)); extern value_ptr value_at PARAMS ((struct type *type, CORE_ADDR addr)); extern value_ptr value_at_lazy PARAMS ((struct type *type, CORE_ADDR addr)); /* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */ extern value_ptr value_from_register PARAMS ((struct type *type, int regnum, struct frame_info * frame)); extern value_ptr value_of_variable PARAMS ((struct symbol *var, struct block *b)); extern value_ptr value_of_register PARAMS ((int regnum)); extern int symbol_read_needs_frame PARAMS ((struct symbol *)); /* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */ extern value_ptr read_var_value PARAMS ((struct symbol *var, struct frame_info *frame)); /* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */ extern value_ptr locate_var_value PARAMS ((struct symbol *var, struct frame_info *frame)); extern value_ptr allocate_value PARAMS ((struct type *type)); extern value_ptr allocate_repeat_value PARAMS ((struct type *type, int count)); extern value_ptr value_mark PARAMS ((void)); extern void value_free_to_mark PARAMS ((value_ptr mark)); extern value_ptr value_string PARAMS ((char *ptr, int len)); extern value_ptr value_array PARAMS ((int lowbound, int highbound, value_ptr *elemvec)); extern value_ptr value_concat PARAMS ((value_ptr arg1, value_ptr arg2)); extern value_ptr value_binop PARAMS ((value_ptr arg1, value_ptr arg2, enum exp_opcode op)); extern value_ptr value_add PARAMS ((value_ptr arg1, value_ptr arg2)); extern value_ptr value_sub PARAMS ((value_ptr arg1, value_ptr arg2)); extern value_ptr value_coerce_array PARAMS ((value_ptr arg1)); extern value_ptr value_coerce_function PARAMS ((value_ptr arg1)); extern value_ptr value_ind PARAMS ((value_ptr arg1)); extern value_ptr value_addr PARAMS ((value_ptr arg1)); extern value_ptr value_assign PARAMS ((value_ptr toval, value_ptr fromval)); extern value_ptr value_neg PARAMS ((value_ptr arg1)); extern value_ptr value_complement PARAMS ((value_ptr arg1)); extern value_ptr value_struct_elt PARAMS ((value_ptr *argp, value_ptr *args, char *name, int *static_memfuncp, char *err)); extern value_ptr value_struct_elt_for_reference PARAMS ((struct type *domain, int offset, struct type *curtype, char *name, struct type *intype)); extern value_ptr value_field PARAMS ((value_ptr arg1, int fieldno)); extern value_ptr value_primitive_field PARAMS ((value_ptr arg1, int offset, int fieldno, struct type *arg_type)); extern value_ptr value_cast PARAMS ((struct type *type, value_ptr arg2)); extern value_ptr value_zero PARAMS ((struct type *type, enum lval_type lv)); extern value_ptr value_repeat PARAMS ((value_ptr arg1, int count)); extern value_ptr value_subscript PARAMS ((value_ptr array, value_ptr idx)); extern value_ptr value_from_vtable_info PARAMS ((value_ptr arg, struct type *type)); extern value_ptr value_being_returned PARAMS ((struct type *valtype, char retbuf[REGISTER_BYTES], int struct_return)); extern value_ptr value_in PARAMS ((value_ptr element, value_ptr set)); extern int value_bit_index PARAMS ((struct type *type, char *addr, int index)); extern int using_struct_return PARAMS ((value_ptr function, CORE_ADDR funcaddr, struct type *value_type, int gcc_p)); extern void set_return_value PARAMS ((value_ptr val)); extern value_ptr evaluate_expression PARAMS ((struct expression *exp)); extern value_ptr evaluate_type PARAMS ((struct expression *exp)); extern value_ptr parse_and_eval PARAMS ((char *exp)); extern value_ptr parse_to_comma_and_eval PARAMS ((char **expp)); extern struct type *parse_and_eval_type PARAMS ((char *p, int length)); extern CORE_ADDR parse_and_eval_address PARAMS ((char *exp)); extern CORE_ADDR parse_and_eval_address_1 PARAMS ((char **expptr)); extern value_ptr access_value_history PARAMS ((int num)); extern value_ptr value_of_internalvar PARAMS ((struct internalvar *var)); extern void set_internalvar PARAMS ((struct internalvar *var, value_ptr val)); extern void set_internalvar_component PARAMS ((struct internalvar *var, int offset, int bitpos, int bitsize, value_ptr newvalue)); extern struct internalvar *lookup_internalvar PARAMS ((char *name)); extern int value_equal PARAMS ((value_ptr arg1, value_ptr arg2)); extern int value_less PARAMS ((value_ptr arg1, value_ptr arg2)); extern int value_logical_not PARAMS ((value_ptr arg1)); /* C++ */ extern value_ptr value_of_this PARAMS ((int complain)); extern value_ptr value_x_binop PARAMS ((value_ptr arg1, value_ptr arg2, enum exp_opcode op, enum exp_opcode otherop)); extern value_ptr value_x_unop PARAMS ((value_ptr arg1, enum exp_opcode op)); extern value_ptr value_fn_field PARAMS ((value_ptr *arg1p, struct fn_field *f, int j, struct type* type, int offset)); extern value_ptr value_virtual_fn_field PARAMS ((value_ptr *arg1p, struct fn_field *f, int j, struct type *type, int offset)); extern int binop_user_defined_p PARAMS ((enum exp_opcode op, value_ptr arg1, value_ptr arg2)); extern int unop_user_defined_p PARAMS ((enum exp_opcode op, value_ptr arg1)); extern int destructor_name_p PARAMS ((const char *name, const struct type *type)); #define value_free(val) free ((PTR)val) extern void free_all_values PARAMS ((void)); extern void release_value PARAMS ((value_ptr val)); extern int record_latest_value PARAMS ((value_ptr val)); extern void registers_changed PARAMS ((void)); extern void read_register_bytes PARAMS ((int regbyte, char *myaddr, int len)); extern void write_register_bytes PARAMS ((int regbyte, char *myaddr, int len)); extern void read_register_gen PARAMS ((int regno, char *myaddr)); extern CORE_ADDR read_register PARAMS ((int regno)); extern void write_register PARAMS ((int regno, LONGEST val)); extern void supply_register PARAMS ((int regno, char *val)); /* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */ extern void get_saved_register PARAMS ((char *raw_buffer, int *optimized, CORE_ADDR *addrp, struct frame_info *frame, int regnum, enum lval_type *lval)); extern void modify_field PARAMS ((char *addr, LONGEST fieldval, int bitpos, int bitsize)); extern void type_print PARAMS ((struct type *type, char *varstring, GDB_FILE *stream, int show)); extern char *baseclass_addr PARAMS ((struct type *type, int index, char *valaddr, value_ptr *valuep, int *errp)); extern void print_longest PARAMS ((GDB_FILE *stream, int format, int use_local, LONGEST val)); extern void print_floating PARAMS ((char *valaddr, struct type *type, GDB_FILE *stream)); extern int value_print PARAMS ((value_ptr val, GDB_FILE *stream, int format, enum val_prettyprint pretty)); extern void value_print_array_elements PARAMS ((value_ptr val, GDB_FILE* stream, int format, enum val_prettyprint pretty)); extern value_ptr value_release_to_mark PARAMS ((value_ptr mark)); extern int val_print PARAMS ((struct type *type, char *valaddr, CORE_ADDR address, GDB_FILE *stream, int format, int deref_ref, int recurse, enum val_prettyprint pretty)); extern int val_print_string PARAMS ((CORE_ADDR addr, unsigned int len, GDB_FILE *stream)); /* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */ extern void print_variable_value PARAMS ((struct symbol *var, struct frame_info *frame, GDB_FILE *stream)); extern value_ptr value_arg_coerce PARAMS ((value_ptr)); extern int check_field PARAMS ((value_ptr, const char *)); extern void c_typedef_print PARAMS ((struct type *type, struct symbol *new, GDB_FILE *stream)); extern char * internalvar_name PARAMS ((struct internalvar *var)); extern void clear_value_history PARAMS ((void)); extern void clear_internalvars PARAMS ((void)); /* From values.c */ extern value_ptr value_copy PARAMS ((value_ptr)); extern int baseclass_offset PARAMS ((struct type *, int, value_ptr, int)); /* From valops.c */ extern value_ptr call_function_by_hand PARAMS ((value_ptr, int, value_ptr *)); #endif /* !defined (VALUE_H) */ gdb-4.13/gdb/values.c 666 34562 1752 126327 5562035520 13011 0ustar fnfcygnus/* Low level packing and unpacking of values for GDB, the GNU Debugger. Copyright 1986, 1987, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include "symtab.h" #include "gdbtypes.h" #include "value.h" #include "gdbcore.h" #include "frame.h" #include "command.h" #include "gdbcmd.h" #include "target.h" #include "demangle.h" /* Local function prototypes. */ static value_ptr value_headof PARAMS ((value_ptr, struct type *, struct type *)); static void show_values PARAMS ((char *, int)); static void show_convenience PARAMS ((char *, int)); /* The value-history records all the values printed by print commands during this session. Each chunk records 60 consecutive values. The first chunk on the chain records the most recent values. The total number of values is in value_history_count. */ #define VALUE_HISTORY_CHUNK 60 struct value_history_chunk { struct value_history_chunk *next; value_ptr values[VALUE_HISTORY_CHUNK]; }; /* Chain of chunks now in use. */ static struct value_history_chunk *value_history_chain; static int value_history_count; /* Abs number of last entry stored */ /* List of all value objects currently allocated (except for those released by calls to release_value) This is so they can be freed after each command. */ static value_ptr all_values; /* Allocate a value that has the correct length for type TYPE. */ value_ptr allocate_value (type) struct type *type; { register value_ptr val; check_stub_type (type); val = (struct value *) xmalloc (sizeof (struct value) + TYPE_LENGTH (type)); VALUE_NEXT (val) = all_values; all_values = val; VALUE_TYPE (val) = type; VALUE_LVAL (val) = not_lval; VALUE_ADDRESS (val) = 0; VALUE_FRAME (val) = 0; VALUE_OFFSET (val) = 0; VALUE_BITPOS (val) = 0; VALUE_BITSIZE (val) = 0; VALUE_REPEATED (val) = 0; VALUE_REPETITIONS (val) = 0; VALUE_REGNO (val) = -1; VALUE_LAZY (val) = 0; VALUE_OPTIMIZED_OUT (val) = 0; val->modifiable = 1; return val; } /* Allocate a value that has the correct length for COUNT repetitions type TYPE. */ value_ptr allocate_repeat_value (type, count) struct type *type; int count; { register value_ptr val; val = (value_ptr) xmalloc (sizeof (struct value) + TYPE_LENGTH (type) * count); VALUE_NEXT (val) = all_values; all_values = val; VALUE_TYPE (val) = type; VALUE_LVAL (val) = not_lval; VALUE_ADDRESS (val) = 0; VALUE_FRAME (val) = 0; VALUE_OFFSET (val) = 0; VALUE_BITPOS (val) = 0; VALUE_BITSIZE (val) = 0; VALUE_REPEATED (val) = 1; VALUE_REPETITIONS (val) = count; VALUE_REGNO (val) = -1; VALUE_LAZY (val) = 0; VALUE_OPTIMIZED_OUT (val) = 0; return val; } /* Return a mark in the value chain. All values allocated after the mark is obtained (except for those released) are subject to being freed if a subsequent value_free_to_mark is passed the mark. */ value_ptr value_mark () { return all_values; } /* Free all values allocated since MARK was obtained by value_mark (except for those released). */ void value_free_to_mark (mark) value_ptr mark; { value_ptr val, next; for (val = all_values; val && val != mark; val = next) { next = VALUE_NEXT (val); value_free (val); } all_values = val; } /* Free all the values that have been allocated (except for those released). Called after each command, successful or not. */ void free_all_values () { register value_ptr val, next; for (val = all_values; val; val = next) { next = VALUE_NEXT (val); value_free (val); } all_values = 0; } /* Remove VAL from the chain all_values so it will not be freed automatically. */ void release_value (val) register value_ptr val; { register value_ptr v; if (all_values == val) { all_values = val->next; return; } for (v = all_values; v; v = v->next) { if (v->next == val) { v->next = val->next; break; } } } /* Release all values up to mark */ value_ptr value_release_to_mark (mark) value_ptr mark; { value_ptr val, next; for (val = next = all_values; next; next = VALUE_NEXT (next)) if (VALUE_NEXT (next) == mark) { all_values = VALUE_NEXT (next); VALUE_NEXT (next) = 0; return val; } all_values = 0; return val; } /* Return a copy of the value ARG. It contains the same contents, for same memory address, but it's a different block of storage. */ value_ptr value_copy (arg) value_ptr arg; { register value_ptr val; register struct type *type = VALUE_TYPE (arg); if (VALUE_REPEATED (arg)) val = allocate_repeat_value (type, VALUE_REPETITIONS (arg)); else val = allocate_value (type); VALUE_LVAL (val) = VALUE_LVAL (arg); VALUE_ADDRESS (val) = VALUE_ADDRESS (arg); VALUE_OFFSET (val) = VALUE_OFFSET (arg); VALUE_BITPOS (val) = VALUE_BITPOS (arg); VALUE_BITSIZE (val) = VALUE_BITSIZE (arg); VALUE_REGNO (val) = VALUE_REGNO (arg); VALUE_LAZY (val) = VALUE_LAZY (arg); val->modifiable = arg->modifiable; if (!VALUE_LAZY (val)) { memcpy (VALUE_CONTENTS_RAW (val), VALUE_CONTENTS_RAW (arg), TYPE_LENGTH (VALUE_TYPE (arg)) * (VALUE_REPEATED (arg) ? VALUE_REPETITIONS (arg) : 1)); } return val; } /* Access to the value history. */ /* Record a new value in the value history. Returns the absolute history index of the entry. Result of -1 indicates the value was not saved; otherwise it is the value history index of this new item. */ int record_latest_value (val) value_ptr val; { int i; /* Check error now if about to store an invalid float. We return -1 to the caller, but allow them to continue, e.g. to print it as "Nan". */ if (TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_FLT) { unpack_double (VALUE_TYPE (val), VALUE_CONTENTS (val), &i); if (i) return -1; /* Indicate value not saved in history */ } /* Here we treat value_history_count as origin-zero and applying to the value being stored now. */ i = value_history_count % VALUE_HISTORY_CHUNK; if (i == 0) { register struct value_history_chunk *new = (struct value_history_chunk *) xmalloc (sizeof (struct value_history_chunk)); memset (new->values, 0, sizeof new->values); new->next = value_history_chain; value_history_chain = new; } value_history_chain->values[i] = val; /* We don't want this value to have anything to do with the inferior anymore. In particular, "set $1 = 50" should not affect the variable from which the value was taken, and fast watchpoints should be able to assume that a value on the value history never changes. */ if (VALUE_LAZY (val)) value_fetch_lazy (val); /* We preserve VALUE_LVAL so that the user can find out where it was fetched from. This is a bit dubious, because then *&$1 does not just return $1 but the current contents of that location. c'est la vie... */ val->modifiable = 0; release_value (val); /* Now we regard value_history_count as origin-one and applying to the value just stored. */ return ++value_history_count; } /* Return a copy of the value in the history with sequence number NUM. */ value_ptr access_value_history (num) int num; { register struct value_history_chunk *chunk; register int i; register int absnum = num; if (absnum <= 0) absnum += value_history_count; if (absnum <= 0) { if (num == 0) error ("The history is empty."); else if (num == 1) error ("There is only one value in the history."); else error ("History does not go back to $$%d.", -num); } if (absnum > value_history_count) error ("History has not yet reached $%d.", absnum); absnum--; /* Now absnum is always absolute and origin zero. */ chunk = value_history_chain; for (i = (value_history_count - 1) / VALUE_HISTORY_CHUNK - absnum / VALUE_HISTORY_CHUNK; i > 0; i--) chunk = chunk->next; return value_copy (chunk->values[absnum % VALUE_HISTORY_CHUNK]); } /* Clear the value history entirely. Must be done when new symbol tables are loaded, because the type pointers become invalid. */ void clear_value_history () { register struct value_history_chunk *next; register int i; register value_ptr val; while (value_history_chain) { for (i = 0; i < VALUE_HISTORY_CHUNK; i++) if ((val = value_history_chain->values[i]) != NULL) free ((PTR)val); next = value_history_chain->next; free ((PTR)value_history_chain); value_history_chain = next; } value_history_count = 0; } static void show_values (num_exp, from_tty) char *num_exp; int from_tty; { register int i; register value_ptr val; static int num = 1; if (num_exp) { /* "info history +" should print from the stored position. "info history " should print around value number . */ if (num_exp[0] != '+' || num_exp[1] != '\0') num = parse_and_eval_address (num_exp) - 5; } else { /* "info history" means print the last 10 values. */ num = value_history_count - 9; } if (num <= 0) num = 1; for (i = num; i < num + 10 && i <= value_history_count; i++) { val = access_value_history (i); printf_filtered ("$%d = ", i); value_print (val, gdb_stdout, 0, Val_pretty_default); printf_filtered ("\n"); } /* The next "info history +" should start after what we just printed. */ num += 10; /* Hitting just return after this command should do the same thing as "info history +". If num_exp is null, this is unnecessary, since "info history +" is not useful after "info history". */ if (from_tty && num_exp) { num_exp[0] = '+'; num_exp[1] = '\0'; } } /* Internal variables. These are variables within the debugger that hold values assigned by debugger commands. The user refers to them with a '$' prefix that does not appear in the variable names stored internally. */ static struct internalvar *internalvars; /* Look up an internal variable with name NAME. NAME should not normally include a dollar sign. If the specified internal variable does not exist, one is created, with a void value. */ struct internalvar * lookup_internalvar (name) char *name; { register struct internalvar *var; for (var = internalvars; var; var = var->next) if (STREQ (var->name, name)) return var; var = (struct internalvar *) xmalloc (sizeof (struct internalvar)); var->name = concat (name, NULL); var->value = allocate_value (builtin_type_void); release_value (var->value); var->next = internalvars; internalvars = var; return var; } value_ptr value_of_internalvar (var) struct internalvar *var; { register value_ptr val; #ifdef IS_TRAPPED_INTERNALVAR if (IS_TRAPPED_INTERNALVAR (var->name)) return VALUE_OF_TRAPPED_INTERNALVAR (var); #endif val = value_copy (var->value); if (VALUE_LAZY (val)) value_fetch_lazy (val); VALUE_LVAL (val) = lval_internalvar; VALUE_INTERNALVAR (val) = var; return val; } void set_internalvar_component (var, offset, bitpos, bitsize, newval) struct internalvar *var; int offset, bitpos, bitsize; value_ptr newval; { register char *addr = VALUE_CONTENTS (var->value) + offset; #ifdef IS_TRAPPED_INTERNALVAR if (IS_TRAPPED_INTERNALVAR (var->name)) SET_TRAPPED_INTERNALVAR (var, newval, bitpos, bitsize, offset); #endif if (bitsize) modify_field (addr, value_as_long (newval), bitpos, bitsize); else memcpy (addr, VALUE_CONTENTS (newval), TYPE_LENGTH (VALUE_TYPE (newval))); } void set_internalvar (var, val) struct internalvar *var; value_ptr val; { value_ptr newval; #ifdef IS_TRAPPED_INTERNALVAR if (IS_TRAPPED_INTERNALVAR (var->name)) SET_TRAPPED_INTERNALVAR (var, val, 0, 0, 0); #endif newval = value_copy (val); /* Force the value to be fetched from the target now, to avoid problems later when this internalvar is referenced and the target is gone or has changed. */ if (VALUE_LAZY (newval)) value_fetch_lazy (newval); /* Begin code which must not call error(). If var->value points to something free'd, an error() obviously leaves a dangling pointer. But we also get a danling pointer if var->value points to something in the value chain (i.e., before release_value is called), because after the error free_all_values will get called before long. */ free ((PTR)var->value); var->value = newval; release_value (newval); /* End code which must not call error(). */ } char * internalvar_name (var) struct internalvar *var; { return var->name; } /* Free all internalvars. Done when new symtabs are loaded, because that makes the values invalid. */ void clear_internalvars () { register struct internalvar *var; while (internalvars) { var = internalvars; internalvars = var->next; free ((PTR)var->name); free ((PTR)var->value); free ((PTR)var); } } static void show_convenience (ignore, from_tty) char *ignore; int from_tty; { register struct internalvar *var; int varseen = 0; for (var = internalvars; var; var = var->next) { #ifdef IS_TRAPPED_INTERNALVAR if (IS_TRAPPED_INTERNALVAR (var->name)) continue; #endif if (!varseen) { varseen = 1; } printf_filtered ("$%s = ", var->name); value_print (var->value, gdb_stdout, 0, Val_pretty_default); printf_filtered ("\n"); } if (!varseen) printf_unfiltered ("No debugger convenience variables now defined.\n\ Convenience variables have names starting with \"$\";\n\ use \"set\" as in \"set $foo = 5\" to define them.\n"); } /* Extract a value as a C number (either long or double). Knows how to convert fixed values to double, or floating values to long. Does not deallocate the value. */ LONGEST value_as_long (val) register value_ptr val; { /* This coerces arrays and functions, which is necessary (e.g. in disassemble_command). It also dereferences references, which I suspect is the most logical thing to do. */ if (TYPE_CODE (VALUE_TYPE (val)) != TYPE_CODE_ENUM) COERCE_ARRAY (val); return unpack_long (VALUE_TYPE (val), VALUE_CONTENTS (val)); } double value_as_double (val) register value_ptr val; { double foo; int inv; foo = unpack_double (VALUE_TYPE (val), VALUE_CONTENTS (val), &inv); if (inv) error ("Invalid floating value found in program."); return foo; } /* Extract a value as a C pointer. Does not deallocate the value. */ CORE_ADDR value_as_pointer (val) value_ptr val; { /* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure whether we want this to be true eventually. */ #if 0 /* ADDR_BITS_REMOVE is wrong if we are being called for a non-address (e.g. argument to "signal", "info break", etc.), or for pointers to char, in which the low bits *are* significant. */ return ADDR_BITS_REMOVE(value_as_long (val)); #else return value_as_long (val); #endif } /* Unpack raw data (copied from debugee, target byte order) at VALADDR as a long, or as a double, assuming the raw data is described by type TYPE. Knows how to convert different sizes of values and can convert between fixed and floating point. We don't assume any alignment for the raw data. Return value is in host byte order. If you want functions and arrays to be coerced to pointers, and references to be dereferenced, call value_as_long() instead. C++: It is assumed that the front-end has taken care of all matters concerning pointers to members. A pointer to member which reaches here is considered to be equivalent to an INT (or some size). After all, it is only an offset. */ LONGEST unpack_long (type, valaddr) struct type *type; char *valaddr; { register enum type_code code = TYPE_CODE (type); register int len = TYPE_LENGTH (type); register int nosign = TYPE_UNSIGNED (type); switch (code) { case TYPE_CODE_ENUM: case TYPE_CODE_BOOL: case TYPE_CODE_INT: case TYPE_CODE_CHAR: case TYPE_CODE_RANGE: if (nosign) return extract_unsigned_integer (valaddr, len); else return extract_signed_integer (valaddr, len); case TYPE_CODE_FLT: return extract_floating (valaddr, len); case TYPE_CODE_PTR: case TYPE_CODE_REF: /* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure whether we want this to be true eventually. */ return extract_address (valaddr, len); case TYPE_CODE_MEMBER: error ("not implemented: member types in unpack_long"); default: error ("Value can't be converted to integer."); } return 0; /* Placate lint. */ } /* Return a double value from the specified type and address. INVP points to an int which is set to 0 for valid value, 1 for invalid value (bad float format). In either case, the returned double is OK to use. Argument is in target format, result is in host format. */ double unpack_double (type, valaddr, invp) struct type *type; char *valaddr; int *invp; { register enum type_code code = TYPE_CODE (type); register int len = TYPE_LENGTH (type); register int nosign = TYPE_UNSIGNED (type); *invp = 0; /* Assume valid. */ if (code == TYPE_CODE_FLT) { if (INVALID_FLOAT (valaddr, len)) { *invp = 1; return 1.234567891011121314; } return extract_floating (valaddr, len); } else if (nosign) { /* Unsigned -- be sure we compensate for signed LONGEST. */ return (unsigned LONGEST) unpack_long (type, valaddr); } else { /* Signed -- we are OK with unpack_long. */ return unpack_long (type, valaddr); } } /* Unpack raw data (copied from debugee, target byte order) at VALADDR as a CORE_ADDR, assuming the raw data is described by type TYPE. We don't assume any alignment for the raw data. Return value is in host byte order. If you want functions and arrays to be coerced to pointers, and references to be dereferenced, call value_as_pointer() instead. C++: It is assumed that the front-end has taken care of all matters concerning pointers to members. A pointer to member which reaches here is considered to be equivalent to an INT (or some size). After all, it is only an offset. */ CORE_ADDR unpack_pointer (type, valaddr) struct type *type; char *valaddr; { /* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure whether we want this to be true eventually. */ return unpack_long (type, valaddr); } /* Given a value ARG1 (offset by OFFSET bytes) of a struct or union type ARG_TYPE, extract and return the value of one of its fields. FIELDNO says which field. For C++, must also be able to return values from static fields */ value_ptr value_primitive_field (arg1, offset, fieldno, arg_type) register value_ptr arg1; int offset; register int fieldno; register struct type *arg_type; { register value_ptr v; register struct type *type; check_stub_type (arg_type); type = TYPE_FIELD_TYPE (arg_type, fieldno); /* Handle packed fields */ offset += TYPE_FIELD_BITPOS (arg_type, fieldno) / 8; if (TYPE_FIELD_BITSIZE (arg_type, fieldno)) { v = value_from_longest (type, unpack_field_as_long (arg_type, VALUE_CONTENTS (arg1), fieldno)); VALUE_BITPOS (v) = TYPE_FIELD_BITPOS (arg_type, fieldno) % 8; VALUE_BITSIZE (v) = TYPE_FIELD_BITSIZE (arg_type, fieldno); } else { v = allocate_value (type); if (VALUE_LAZY (arg1)) VALUE_LAZY (v) = 1; else memcpy (VALUE_CONTENTS_RAW (v), VALUE_CONTENTS_RAW (arg1) + offset, TYPE_LENGTH (type)); } VALUE_LVAL (v) = VALUE_LVAL (arg1); if (VALUE_LVAL (arg1) == lval_internalvar) VALUE_LVAL (v) = lval_internalvar_component; VALUE_ADDRESS (v) = VALUE_ADDRESS (arg1); VALUE_OFFSET (v) = offset + VALUE_OFFSET (arg1); return v; } /* Given a value ARG1 of a struct or union type, extract and return the value of one of its fields. FIELDNO says which field. For C++, must also be able to return values from static fields */ value_ptr value_field (arg1, fieldno) register value_ptr arg1; register int fieldno; { return value_primitive_field (arg1, 0, fieldno, VALUE_TYPE (arg1)); } /* Return a non-virtual function as a value. F is the list of member functions which contains the desired method. J is an index into F which provides the desired method. */ value_ptr value_fn_field (arg1p, f, j, type, offset) value_ptr *arg1p; struct fn_field *f; int j; struct type *type; int offset; { register value_ptr v; register struct type *ftype = TYPE_FN_FIELD_TYPE (f, j); struct symbol *sym; sym = lookup_symbol (TYPE_FN_FIELD_PHYSNAME (f, j), 0, VAR_NAMESPACE, 0, NULL); if (! sym) return NULL; /* error ("Internal error: could not find physical method named %s", TYPE_FN_FIELD_PHYSNAME (f, j)); */ v = allocate_value (ftype); VALUE_ADDRESS (v) = BLOCK_START (SYMBOL_BLOCK_VALUE (sym)); VALUE_TYPE (v) = ftype; if (arg1p) { if (type != VALUE_TYPE (*arg1p)) *arg1p = value_ind (value_cast (lookup_pointer_type (type), value_addr (*arg1p))); /* Move the `this' pointer according to the offset. VALUE_OFFSET (*arg1p) += offset; */ } return v; } /* Return a virtual function as a value. ARG1 is the object which provides the virtual function table pointer. *ARG1P is side-effected in calling this function. F is the list of member functions which contains the desired virtual function. J is an index into F which provides the desired virtual function. TYPE is the type in which F is located. */ value_ptr value_virtual_fn_field (arg1p, f, j, type, offset) value_ptr *arg1p; struct fn_field *f; int j; struct type *type; int offset; { value_ptr arg1 = *arg1p; /* First, get the virtual function table pointer. That comes with a strange type, so cast it to type `pointer to long' (which should serve just fine as a function type). Then, index into the table, and convert final value to appropriate function type. */ value_ptr entry, vfn, vtbl; value_ptr vi = value_from_longest (builtin_type_int, (LONGEST) TYPE_FN_FIELD_VOFFSET (f, j)); struct type *fcontext = TYPE_FN_FIELD_FCONTEXT (f, j); struct type *context; if (fcontext == NULL) /* We don't have an fcontext (e.g. the program was compiled with g++ version 1). Try to get the vtbl from the TYPE_VPTR_BASETYPE. This won't work right for multiple inheritance, but at least we should do as well as GDB 3.x did. */ fcontext = TYPE_VPTR_BASETYPE (type); context = lookup_pointer_type (fcontext); /* Now context is a pointer to the basetype containing the vtbl. */ if (TYPE_TARGET_TYPE (context) != VALUE_TYPE (arg1)) arg1 = value_ind (value_cast (context, value_addr (arg1))); context = VALUE_TYPE (arg1); /* Now context is the basetype containing the vtbl. */ /* This type may have been defined before its virtual function table was. If so, fill in the virtual function table entry for the type now. */ if (TYPE_VPTR_FIELDNO (context) < 0) fill_in_vptr_fieldno (context); /* The virtual function table is now an array of structures which have the form { int16 offset, delta; void *pfn; }. */ vtbl = value_ind (value_primitive_field (arg1, 0, TYPE_VPTR_FIELDNO (context), TYPE_VPTR_BASETYPE (context))); /* Index into the virtual function table. This is hard-coded because looking up a field is not cheap, and it may be important to save time, e.g. if the user has set a conditional breakpoint calling a virtual function. */ entry = value_subscript (vtbl, vi); if (TYPE_CODE (VALUE_TYPE (entry)) == TYPE_CODE_STRUCT) { /* Move the `this' pointer according to the virtual function table. */ VALUE_OFFSET (arg1) += value_as_long (value_field (entry, 0)); if (! VALUE_LAZY (arg1)) { VALUE_LAZY (arg1) = 1; value_fetch_lazy (arg1); } vfn = value_field (entry, 2); } else if (TYPE_CODE (VALUE_TYPE (entry)) == TYPE_CODE_PTR) vfn = entry; else error ("I'm confused: virtual function table has bad type"); /* Reinstantiate the function pointer with the correct type. */ VALUE_TYPE (vfn) = lookup_pointer_type (TYPE_FN_FIELD_TYPE (f, j)); *arg1p = arg1; return vfn; } /* ARG is a pointer to an object we know to be at least a DTYPE. BTYPE is the most derived basetype that has already been searched (and need not be searched again). After looking at the vtables between BTYPE and DTYPE, return the most derived type we find. The caller must be satisfied when the return value == DTYPE. FIXME-tiemann: should work with dossier entries as well. */ static value_ptr value_headof (in_arg, btype, dtype) value_ptr in_arg; struct type *btype, *dtype; { /* First collect the vtables we must look at for this object. */ /* FIXME-tiemann: right now, just look at top-most vtable. */ value_ptr arg, vtbl, entry, best_entry = 0; int i, nelems; int offset, best_offset = 0; struct symbol *sym; CORE_ADDR pc_for_sym; char *demangled_name; struct minimal_symbol *msymbol; btype = TYPE_VPTR_BASETYPE (dtype); check_stub_type (btype); arg = in_arg; if (btype != dtype) arg = value_cast (lookup_pointer_type (btype), arg); vtbl = value_ind (value_field (value_ind (arg), TYPE_VPTR_FIELDNO (btype))); /* Check that VTBL looks like it points to a virtual function table. */ msymbol = lookup_minimal_symbol_by_pc (VALUE_ADDRESS (vtbl)); if (msymbol == NULL || (demangled_name = SYMBOL_NAME (msymbol)) == NULL || !VTBL_PREFIX_P (demangled_name)) { /* If we expected to find a vtable, but did not, let the user know that we aren't happy, but don't throw an error. FIXME: there has to be a better way to do this. */ struct type *error_type = (struct type *)xmalloc (sizeof (struct type)); memcpy (error_type, VALUE_TYPE (in_arg), sizeof (struct type)); TYPE_NAME (error_type) = savestring ("suspicious *", sizeof ("suspicious *")); VALUE_TYPE (in_arg) = error_type; return in_arg; } /* Now search through the virtual function table. */ entry = value_ind (vtbl); nelems = longest_to_int (value_as_long (value_field (entry, 2))); for (i = 1; i <= nelems; i++) { entry = value_subscript (vtbl, value_from_longest (builtin_type_int, (LONGEST) i)); /* This won't work if we're using thunks. */ if (TYPE_CODE (VALUE_TYPE (entry)) != TYPE_CODE_STRUCT) break; offset = longest_to_int (value_as_long (value_field (entry, 0))); /* If we use '<=' we can handle single inheritance * where all offsets are zero - just use the first entry found. */ if (offset <= best_offset) { best_offset = offset; best_entry = entry; } } /* Move the pointer according to BEST_ENTRY's offset, and figure out what type we should return as the new pointer. */ if (best_entry == 0) { /* An alternative method (which should no longer be necessary). * But we leave it in for future use, when we will hopefully * have optimizes the vtable to use thunks instead of offsets. */ /* Use the name of vtable itself to extract a base type. */ demangled_name += 4; /* Skip _vt$ prefix. */ } else { pc_for_sym = value_as_pointer (value_field (best_entry, 2)); sym = find_pc_function (pc_for_sym); demangled_name = cplus_demangle (SYMBOL_NAME (sym), DMGL_ANSI); *(strchr (demangled_name, ':')) = '\0'; } sym = lookup_symbol (demangled_name, 0, VAR_NAMESPACE, 0, 0); if (sym == NULL) error ("could not find type declaration for `%s'", demangled_name); if (best_entry) { free (demangled_name); arg = value_add (value_cast (builtin_type_int, arg), value_field (best_entry, 0)); } else arg = in_arg; VALUE_TYPE (arg) = lookup_pointer_type (SYMBOL_TYPE (sym)); return arg; } /* ARG is a pointer object of type TYPE. If TYPE has virtual function tables, probe ARG's tables (including the vtables of its baseclasses) to figure out the most derived type that ARG could actually be a pointer to. */ value_ptr value_from_vtable_info (arg, type) value_ptr arg; struct type *type; { /* Take care of preliminaries. */ if (TYPE_VPTR_FIELDNO (type) < 0) fill_in_vptr_fieldno (type); if (TYPE_VPTR_FIELDNO (type) < 0 || VALUE_REPEATED (arg)) return 0; return value_headof (arg, 0, type); } /* Return true if the INDEXth field of TYPE is a virtual baseclass pointer which is for the base class whose type is BASECLASS. */ static int vb_match (type, index, basetype) struct type *type; int index; struct type *basetype; { struct type *fieldtype; char *name = TYPE_FIELD_NAME (type, index); char *field_class_name = NULL; if (*name != '_') return 0; /* gcc 2.4 uses _vb$. */ if (name[1] == 'v' && name[2] == 'b' && name[3] == CPLUS_MARKER) field_class_name = name + 4; /* gcc 2.5 will use __vb_. */ if (name[1] == '_' && name[2] == 'v' && name[3] == 'b' && name[4] == '_') field_class_name = name + 5; if (field_class_name == NULL) /* This field is not a virtual base class pointer. */ return 0; /* It's a virtual baseclass pointer, now we just need to find out whether it is for this baseclass. */ fieldtype = TYPE_FIELD_TYPE (type, index); if (fieldtype == NULL || TYPE_CODE (fieldtype) != TYPE_CODE_PTR) /* "Can't happen". */ return 0; /* What we check for is that either the types are equal (needed for nameless types) or have the same name. This is ugly, and a more elegant solution should be devised (which would probably just push the ugliness into symbol reading unless we change the stabs format). */ if (TYPE_TARGET_TYPE (fieldtype) == basetype) return 1; if (TYPE_NAME (basetype) != NULL && TYPE_NAME (TYPE_TARGET_TYPE (fieldtype)) != NULL && STREQ (TYPE_NAME (basetype), TYPE_NAME (TYPE_TARGET_TYPE (fieldtype)))) return 1; return 0; } /* Compute the offset of the baseclass which is the INDEXth baseclass of class TYPE, for a value ARG, wih extra offset of OFFSET. The result is the offste of the baseclass value relative to (the address of)(ARG) + OFFSET. -1 is returned on error. */ int baseclass_offset (type, index, arg, offset) struct type *type; int index; value_ptr arg; int offset; { struct type *basetype = TYPE_BASECLASS (type, index); if (BASETYPE_VIA_VIRTUAL (type, index)) { /* Must hunt for the pointer to this virtual baseclass. */ register int i, len = TYPE_NFIELDS (type); register int n_baseclasses = TYPE_N_BASECLASSES (type); /* First look for the virtual baseclass pointer in the fields. */ for (i = n_baseclasses; i < len; i++) { if (vb_match (type, i, basetype)) { CORE_ADDR addr = unpack_pointer (TYPE_FIELD_TYPE (type, i), VALUE_CONTENTS (arg) + VALUE_OFFSET (arg) + offset + (TYPE_FIELD_BITPOS (type, i) / 8)); if (VALUE_LVAL (arg) != lval_memory) return -1; return addr - (LONGEST) (VALUE_ADDRESS (arg) + VALUE_OFFSET (arg) + offset); } } /* Not in the fields, so try looking through the baseclasses. */ for (i = index+1; i < n_baseclasses; i++) { int boffset = baseclass_offset (type, i, arg, offset); if (boffset) return boffset; } /* Not found. */ return -1; } /* Baseclass is easily computed. */ return TYPE_BASECLASS_BITPOS (type, index) / 8; } /* Compute the address of the baseclass which is the INDEXth baseclass of class TYPE. The TYPE base of the object is at VALADDR. If ERRP is non-NULL, set *ERRP to be the errno code of any error, or 0 if no error. In that case the return value is not the address of the baseclasss, but the address which could not be read successfully. */ /* FIXME Fix remaining uses of baseclass_addr to use baseclass_offset */ char * baseclass_addr (type, index, valaddr, valuep, errp) struct type *type; int index; char *valaddr; value_ptr *valuep; int *errp; { struct type *basetype = TYPE_BASECLASS (type, index); if (errp) *errp = 0; if (BASETYPE_VIA_VIRTUAL (type, index)) { /* Must hunt for the pointer to this virtual baseclass. */ register int i, len = TYPE_NFIELDS (type); register int n_baseclasses = TYPE_N_BASECLASSES (type); /* First look for the virtual baseclass pointer in the fields. */ for (i = n_baseclasses; i < len; i++) { if (vb_match (type, i, basetype)) { value_ptr val = allocate_value (basetype); CORE_ADDR addr; int status; addr = unpack_pointer (TYPE_FIELD_TYPE (type, i), valaddr + (TYPE_FIELD_BITPOS (type, i) / 8)); status = target_read_memory (addr, VALUE_CONTENTS_RAW (val), TYPE_LENGTH (basetype)); VALUE_LVAL (val) = lval_memory; VALUE_ADDRESS (val) = addr; if (status != 0) { if (valuep) *valuep = NULL; release_value (val); value_free (val); if (errp) *errp = status; return (char *)addr; } else { if (valuep) *valuep = val; return (char *) VALUE_CONTENTS (val); } } } /* Not in the fields, so try looking through the baseclasses. */ for (i = index+1; i < n_baseclasses; i++) { char *baddr; baddr = baseclass_addr (type, i, valaddr, valuep, errp); if (baddr) return baddr; } /* Not found. */ if (valuep) *valuep = 0; return 0; } /* Baseclass is easily computed. */ if (valuep) *valuep = 0; return valaddr + TYPE_BASECLASS_BITPOS (type, index) / 8; } /* Unpack a field FIELDNO of the specified TYPE, from the anonymous object at VALADDR. Extracting bits depends on endianness of the machine. Compute the number of least significant bits to discard. For big endian machines, we compute the total number of bits in the anonymous object, subtract off the bit count from the MSB of the object to the MSB of the bitfield, then the size of the bitfield, which leaves the LSB discard count. For little endian machines, the discard count is simply the number of bits from the LSB of the anonymous object to the LSB of the bitfield. If the field is signed, we also do sign extension. */ LONGEST unpack_field_as_long (type, valaddr, fieldno) struct type *type; char *valaddr; int fieldno; { unsigned LONGEST val; unsigned LONGEST valmask; int bitpos = TYPE_FIELD_BITPOS (type, fieldno); int bitsize = TYPE_FIELD_BITSIZE (type, fieldno); int lsbcount; val = extract_unsigned_integer (valaddr + bitpos / 8, sizeof (val)); /* Extract bits. See comment above. */ #if BITS_BIG_ENDIAN lsbcount = (sizeof val * 8 - bitpos % 8 - bitsize); #else lsbcount = (bitpos % 8); #endif val >>= lsbcount; /* If the field does not entirely fill a LONGEST, then zero the sign bits. If the field is signed, and is negative, then sign extend. */ if ((bitsize > 0) && (bitsize < 8 * sizeof (val))) { valmask = (((unsigned LONGEST) 1) << bitsize) - 1; val &= valmask; if (!TYPE_UNSIGNED (TYPE_FIELD_TYPE (type, fieldno))) { if (val & (valmask ^ (valmask >> 1))) { val |= ~valmask; } } } return (val); } /* Modify the value of a bitfield. ADDR points to a block of memory in target byte order; the bitfield starts in the byte pointed to. FIELDVAL is the desired value of the field, in host byte order. BITPOS and BITSIZE indicate which bits (in target bit order) comprise the bitfield. */ void modify_field (addr, fieldval, bitpos, bitsize) char *addr; LONGEST fieldval; int bitpos, bitsize; { LONGEST oword; /* Reject values too big to fit in the field in question, otherwise adjoining fields may be corrupted. */ if (bitsize < (8 * sizeof (fieldval)) && 0 != (fieldval & ~((1<= size of oword */ if (bitsize < 8 * sizeof (oword)) oword &= ~(((((unsigned LONGEST)1) << bitsize) - 1) << bitpos); else oword &= ~((~(unsigned LONGEST)0) << bitpos); oword |= fieldval << bitpos; store_signed_integer (addr, sizeof oword, oword); } /* Convert C numbers into newly allocated values */ value_ptr value_from_longest (type, num) struct type *type; register LONGEST num; { register value_ptr val = allocate_value (type); register enum type_code code = TYPE_CODE (type); register int len = TYPE_LENGTH (type); switch (code) { case TYPE_CODE_INT: case TYPE_CODE_CHAR: case TYPE_CODE_ENUM: case TYPE_CODE_BOOL: case TYPE_CODE_RANGE: store_signed_integer (VALUE_CONTENTS_RAW (val), len, num); break; case TYPE_CODE_REF: case TYPE_CODE_PTR: /* This assumes that all pointers of a given length have the same form. */ store_address (VALUE_CONTENTS_RAW (val), len, (CORE_ADDR) num); break; default: error ("Unexpected type encountered for integer constant."); } return val; } value_ptr value_from_double (type, num) struct type *type; double num; { register value_ptr val = allocate_value (type); register enum type_code code = TYPE_CODE (type); register int len = TYPE_LENGTH (type); if (code == TYPE_CODE_FLT) { store_floating (VALUE_CONTENTS_RAW (val), len, num); } else error ("Unexpected type encountered for floating constant."); return val; } /* Deal with the value that is "about to be returned". */ /* Return the value that a function returning now would be returning to its caller, assuming its type is VALTYPE. RETBUF is where we look for what ought to be the contents of the registers (in raw form). This is because it is often desirable to restore old values to those registers after saving the contents of interest, and then call this function using the saved values. struct_return is non-zero when the function in question is using the structure return conventions on the machine in question; 0 when it is using the value returning conventions (this often means returning pointer to where structure is vs. returning value). */ value_ptr value_being_returned (valtype, retbuf, struct_return) register struct type *valtype; char retbuf[REGISTER_BYTES]; int struct_return; /*ARGSUSED*/ { register value_ptr val; CORE_ADDR addr; #if defined (EXTRACT_STRUCT_VALUE_ADDRESS) /* If this is not defined, just use EXTRACT_RETURN_VALUE instead. */ if (struct_return) { addr = EXTRACT_STRUCT_VALUE_ADDRESS (retbuf); if (!addr) error ("Function return value unknown"); return value_at (valtype, addr); } #endif val = allocate_value (valtype); EXTRACT_RETURN_VALUE (valtype, retbuf, VALUE_CONTENTS_RAW (val)); return val; } /* Should we use EXTRACT_STRUCT_VALUE_ADDRESS instead of EXTRACT_RETURN_VALUE? GCC_P is true if compiled with gcc and TYPE is the type (which is known to be struct, union or array). On most machines, the struct convention is used unless we are using gcc and the type is of a special size. */ /* As of about 31 Mar 93, GCC was changed to be compatible with the native compiler. GCC 2.3.3 was the last release that did it the old way. Since gcc2_compiled was not changed, we have no way to correctly win in all cases, so we just do the right thing for gcc1 and for gcc2 after this change. Thus it loses for gcc 2.0-2.3.3. This is somewhat unfortunate, but changing gcc2_compiled would cause more chaos than dealing with some struct returns being handled wrong. */ #if !defined (USE_STRUCT_CONVENTION) #define USE_STRUCT_CONVENTION(gcc_p, type)\ (!((gcc_p == 1) && (TYPE_LENGTH (value_type) == 1 \ || TYPE_LENGTH (value_type) == 2 \ || TYPE_LENGTH (value_type) == 4 \ || TYPE_LENGTH (value_type) == 8 \ ) \ )) #endif /* Return true if the function specified is using the structure returning convention on this machine to return arguments, or 0 if it is using the value returning convention. FUNCTION is the value representing the function, FUNCADDR is the address of the function, and VALUE_TYPE is the type returned by the function. GCC_P is nonzero if compiled with GCC. */ int using_struct_return (function, funcaddr, value_type, gcc_p) value_ptr function; CORE_ADDR funcaddr; struct type *value_type; int gcc_p; /*ARGSUSED*/ { register enum type_code code = TYPE_CODE (value_type); if (code == TYPE_CODE_ERROR) error ("Function return type unknown."); if (code == TYPE_CODE_STRUCT || code == TYPE_CODE_UNION || code == TYPE_CODE_ARRAY) return USE_STRUCT_CONVENTION (gcc_p, value_type); return 0; } /* Store VAL so it will be returned if a function returns now. Does not verify that VAL's type matches what the current function wants to return. */ void set_return_value (val) value_ptr val; { register enum type_code code = TYPE_CODE (VALUE_TYPE (val)); double dbuf; LONGEST lbuf; if (code == TYPE_CODE_ERROR) error ("Function return type unknown."); if ( code == TYPE_CODE_STRUCT || code == TYPE_CODE_UNION) /* FIXME, implement struct return. */ error ("GDB does not support specifying a struct or union return value."); /* FIXME, this is bogus. We don't know what the return conventions are, or how values should be promoted.... */ if (code == TYPE_CODE_FLT) { dbuf = value_as_double (val); STORE_RETURN_VALUE (VALUE_TYPE (val), (char *)&dbuf); } else { lbuf = value_as_long (val); STORE_RETURN_VALUE (VALUE_TYPE (val), (char *)&lbuf); } } void _initialize_values () { add_cmd ("convenience", no_class, show_convenience, "Debugger convenience (\"$foo\") variables.\n\ These variables are created when you assign them values;\n\ thus, \"print $foo=1\" gives \"$foo\" the value 1. Values may be any type.\n\n\ A few convenience variables are given values automatically:\n\ \"$_\"holds the last address examined with \"x\" or \"info lines\",\n\ \"$__\" holds the contents of the last address examined with \"x\".", &showlist); add_cmd ("values", no_class, show_values, "Elements of value history around item number IDX (or last ten).", &showlist); } gdb-4.13/gdb/vax-pinsn.c 666 34562 1752 13305 5465306113 13405 0ustar fnfcygnus/* Print VAX instructions for GDB, the GNU debugger. Copyright 1986, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "symtab.h" #include "opcode/vax.h" /* Vax instructions are never longer than this. */ #define MAXLEN 62 /* Number of elements in the opcode table. */ #define NOPCODES (sizeof votstrs / sizeof votstrs[0]) static unsigned char *print_insn_arg (); /* Print the vax instruction at address MEMADDR in debugged memory, on STREAM. Returns length of the instruction, in bytes. */ int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { unsigned char buffer[MAXLEN]; register int i; register unsigned char *p; register char *d; read_memory (memaddr, buffer, MAXLEN); for (i = 0; i < NOPCODES; i++) if (votstrs[i].detail.code == buffer[0] || votstrs[i].detail.code == *(unsigned short *)buffer) break; /* Handle undefined instructions. */ if (i == NOPCODES) { fprintf_unfiltered (stream, "0%o", buffer[0]); return 1; } fprintf_unfiltered (stream, "%s", votstrs[i].name); /* Point at first byte of argument data, and at descriptor for first argument. */ p = buffer + 1 + (votstrs[i].detail.code >= 0x100); d = votstrs[i].detail.args; if (*d) fputc_unfiltered (' ', stream); while (*d) { p = print_insn_arg (d, p, memaddr + (p - buffer), stream); d += 2; if (*d) fprintf_unfiltered (stream, ","); } return p - buffer; } static unsigned char * print_insn_arg (d, p, addr, stream) char *d; register char *p; CORE_ADDR addr; GDB_FILE *stream; { register int regnum = *p & 0xf; float floatlitbuf; if (*d == 'b') { if (d[1] == 'b') fprintf_unfiltered (stream, "0x%x", addr + *p++ + 1); else { fprintf_unfiltered (stream, "0x%x", addr + *(short *)p + 2); p += 2; } } else switch ((*p++ >> 4) & 0xf) { case 0: case 1: case 2: case 3: /* Literal mode */ if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h') { *(int *)&floatlitbuf = 0x4000 + ((p[-1] & 0x3f) << 4); fprintf_unfiltered (stream, "$%f", floatlitbuf); } else fprintf_unfiltered (stream, "$%d", p[-1] & 0x3f); break; case 4: /* Indexed */ p = (char *) print_insn_arg (d, p, addr + 1, stream); fprintf_unfiltered (stream, "[%s]", reg_names[regnum]); break; case 5: /* Register */ fprintf_unfiltered (stream, reg_names[regnum]); break; case 7: /* Autodecrement */ fputc_unfiltered ('-', stream); case 6: /* Register deferred */ fprintf_unfiltered (stream, "(%s)", reg_names[regnum]); break; case 9: /* Autoincrement deferred */ fputc_unfiltered ('@', stream); if (regnum == PC_REGNUM) { fputc_unfiltered ('#', stream); print_address (*(long *)p, stream); p += 4; break; } case 8: /* Autoincrement */ if (regnum == PC_REGNUM) { fputc_unfiltered ('#', stream); switch (d[1]) { case 'b': fprintf_unfiltered (stream, "%d", *p++); break; case 'w': fprintf_unfiltered (stream, "%d", *(short *)p); p += 2; break; case 'l': fprintf_unfiltered (stream, "%d", *(long *)p); p += 4; break; case 'q': fprintf_unfiltered (stream, "0x%x%08x", ((long *)p)[1], ((long *)p)[0]); p += 8; break; case 'o': fprintf_unfiltered (stream, "0x%x%08x%08x%08x", ((long *)p)[3], ((long *)p)[2], ((long *)p)[1], ((long *)p)[0]); p += 16; break; case 'f': if (INVALID_FLOAT (p, 4)) fprintf_unfiltered (stream, "<>", *(int *) p); else fprintf_unfiltered (stream, "%f", *(float *) p); p += 4; break; case 'd': if (INVALID_FLOAT (p, 8)) fprintf_unfiltered (stream, "<>", ((long *)p)[1], ((long *)p)[0]); else fprintf_unfiltered (stream, "%f", *(double *) p); p += 8; break; case 'g': fprintf_unfiltered (stream, "g-float"); p += 8; break; case 'h': fprintf_unfiltered (stream, "h-float"); p += 16; break; } } else fprintf_unfiltered (stream, "(%s)+", reg_names[regnum]); break; case 11: /* Byte displacement deferred */ fputc_unfiltered ('@', stream); case 10: /* Byte displacement */ if (regnum == PC_REGNUM) print_address (addr + *p + 2, stream); else fprintf_unfiltered (stream, "%d(%s)", *p, reg_names[regnum]); p += 1; break; case 13: /* Word displacement deferred */ fputc_unfiltered ('@', stream); case 12: /* Word displacement */ if (regnum == PC_REGNUM) print_address (addr + *(short *)p + 3, stream); else fprintf_unfiltered (stream, "%d(%s)", *(short *)p, reg_names[regnum]); p += 2; break; case 15: /* Long displacement deferred */ fputc_unfiltered ('@', stream); case 14: /* Long displacement */ if (regnum == PC_REGNUM) print_address (addr + *(long *)p + 5, stream); else fprintf_unfiltered (stream, "%d(%s)", *(long *)p, reg_names[regnum]); p += 4; } return (unsigned char *) p; } gdb-4.13/gdb/xcoffexec.c 666 34562 1752 40164 5560320132 13430 0ustar fnfcygnus/* Execute AIXcoff files, for GDB. Copyright 1988, 1989, 1991, 1992, 1994 Free Software Foundation, Inc. Derived from exec.c. Modified by IBM Corporation. Donated by IBM Corporation and Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* xcoff-exec - deal with executing XCOFF files. */ #include "defs.h" #include #include #include #include #include #include #include "frame.h" #include "inferior.h" #include "target.h" #include "gdbcmd.h" #include "gdbcore.h" #include "language.h" #include "symfile.h" #include "objfiles.h" #include "bfd.h" #include "xcoffsolib.h" /* Prototypes for local functions */ static void file_command PARAMS ((char *, int)); static void exec_close PARAMS ((int)); struct vmap * map_vmap PARAMS ((bfd *, bfd *)); struct section_table *exec_sections, *exec_sections_end; /* Whether to open exec and core files read-only or read-write. */ int write_files = 0; extern int info_verbose; bfd *exec_bfd; /* needed by core.c */ extern char *getenv(); extern void add_syms_addr_command (); extern void symbol_file_command (); static void exec_files_info(); struct vmap *vmap; /* current vmap */ extern struct target_ops exec_ops; /* exec_close - done with exec file, clean up all resources. */ static void exec_close (quitting) int quitting; { register struct vmap *vp, *nxt; int need_symtab_cleanup = 0; for (nxt = vmap; nxt; ) { vp = nxt; nxt = vp->nxt; /* if there is an objfile associated with this bfd, free_objfile() will do proper cleanup of objfile *and* bfd. */ if (vp->objfile) { free_objfile (vp->objfile); need_symtab_cleanup = 1; } else bfd_close (vp->bfd); /* FIXME: This routine is #if 0'd in symfile.c. What should we be doing here? Should we just free everything in vp->objfile->symtabs? Should free_objfile do that? */ free_named_symtabs (vp->name); free (vp); } vmap = 0; /* exec_bfd was already closed (the exec file has a vmap entry). */ exec_bfd = NULL; if (exec_ops.to_sections) { free (exec_ops.to_sections); exec_ops.to_sections = NULL; exec_ops.to_sections_end = NULL; } if (need_symtab_cleanup) clear_symtab_users (); } /* Process the first arg in ARGS as the new exec file. Note that we have to explicitly ignore additional args, since we can be called from file_command(), which also calls symbol_file_command() which can take multiple args. */ void exec_file_command (filename, from_tty) char *filename; int from_tty; { target_preopen (from_tty); /* Remove any previous exec file. */ unpush_target (&exec_ops); /* Now open and digest the file the user requested, if any. */ if (filename) { char *scratch_pathname; int scratch_chan; filename = tilde_expand (filename); make_cleanup (free, filename); scratch_chan = openp (getenv ("PATH"), 1, filename, write_files? O_RDWR: O_RDONLY, 0, &scratch_pathname); if (scratch_chan < 0) perror_with_name (filename); exec_bfd = bfd_fdopenr (scratch_pathname, gnutarget, scratch_chan); if (!exec_bfd) error ("Could not open `%s' as an executable file: %s", scratch_pathname, bfd_errmsg(bfd_get_error ())); /* make sure we have an object file */ if (!bfd_check_format (exec_bfd, bfd_object)) error ("\"%s\": not in executable format: %s.", scratch_pathname, bfd_errmsg (bfd_get_error ())); /* setup initial vmap */ map_vmap (exec_bfd, 0); if (!vmap) error ("Can't find the file sections in `%s': %s", exec_bfd->filename, bfd_errmsg(bfd_get_error ())); if (build_section_table (exec_bfd, &exec_ops.to_sections, &exec_ops.to_sections_end)) error ("Can't find the file sections in `%s': %s", exec_bfd->filename, bfd_errmsg (bfd_get_error ())); /* make sure core, if present, matches */ validate_files (); push_target(&exec_ops); /* Tell display code (if any) about the changed file name. */ if (exec_file_display_hook) (*exec_file_display_hook) (filename); } else { exec_close (0); /* just in case */ if (from_tty) printf_unfiltered ("No exec file now.\n"); } } /* Set both the exec file and the symbol file, in one command. What a novelty. Why did GDB go through four major releases before this command was added? */ static void file_command (arg, from_tty) char *arg; int from_tty; { /* FIXME, if we lose on reading the symbol file, we should revert the exec file, but that's rough. */ exec_file_command (arg, from_tty); symbol_file_command (arg, from_tty); } /* Locate all mappable sections of a BFD file. table_pp_char is a char * to get it through bfd_map_over_sections; we cast it back to its proper type. */ static void add_to_section_table (abfd, asect, table_pp_char) bfd *abfd; sec_ptr asect; char *table_pp_char; { struct section_table **table_pp = (struct section_table **)table_pp_char; flagword aflag; aflag = bfd_get_section_flags (abfd, asect); /* FIXME, we need to handle BSS segment here...it alloc's but doesn't load */ if (!(aflag & SEC_LOAD)) return; if (0 == bfd_section_size (abfd, asect)) return; (*table_pp)->bfd = abfd; (*table_pp)->the_bfd_section = asect; (*table_pp)->addr = bfd_section_vma (abfd, asect); (*table_pp)->endaddr = (*table_pp)->addr + bfd_section_size (abfd, asect); (*table_pp)++; } int build_section_table (some_bfd, start, end) bfd *some_bfd; struct section_table **start, **end; { unsigned count; count = bfd_count_sections (some_bfd); if (count == 0) fatal ("aborting"); /* return 1? */ if (*start) free (*start); *start = (struct section_table *) xmalloc (count * sizeof (**start)); *end = *start; bfd_map_over_sections (some_bfd, add_to_section_table, (char *) end); if (*end > *start + count) fatal ("aborting"); /* We could realloc the table, but it probably loses for most files. */ return 0; } static void bfdsec_to_vmap(bf, sect, arg3) bfd *bf; sec_ptr sect; PTR arg3; { struct vmap_and_bfd *vmap_bfd = (struct vmap_and_bfd *) arg3; register struct vmap *vp; vp = vmap_bfd->pvmap; if ((bfd_get_section_flags (bf, sect) & SEC_LOAD) == 0) return; if (STREQ(bfd_section_name (bf, sect), ".text")) { vp->tstart = 0; vp->tend = vp->tstart + bfd_section_size (bf, sect); /* When it comes to this adjustment value, in contrast to our previous belief shared objects should behave the same as the main load segment. This is the offset from the beginning of text section to the first real instruction. */ vp->tadj = sect->filepos - bfd_section_vma (bf, sect); } else if (STREQ(bfd_section_name (bf, sect), ".data")) { vp->dstart = 0; vp->dend = vp->dstart + bfd_section_size (bf, sect); } else if (STREQ(bfd_section_name(bf, sect), ".bss")) /* FIXMEmgo */ printf_unfiltered ("bss section in exec! Don't know what the heck to do!\n"); } /* Make a vmap for the BFD "bf", which might be a member of the archive BFD "arch". Return the new vmap. */ struct vmap * map_vmap (bf, arch) bfd *bf; bfd *arch; { struct vmap_and_bfd vmap_bfd; struct vmap *vp, **vpp; vp = (PTR) xmalloc (sizeof (*vp)); memset (vp, '\0', sizeof (*vp)); vp->nxt = 0; vp->bfd = bf; vp->name = bfd_get_filename (arch ? arch : bf); vp->member = arch ? bfd_get_filename (bf) : ""; vmap_bfd.pbfd = arch; vmap_bfd.pvmap = vp; bfd_map_over_sections (bf, bfdsec_to_vmap, &vmap_bfd); /* find the end of the list, and append. */ for (vpp = &vmap; *vpp; vpp = &(*vpp)->nxt) ; *vpp = vp; return vp; } /* Read or write the exec file. Args are address within exec file, address within gdb address-space, length, and a flag indicating whether to read or write. Result is a length: 0: We cannot handle this address and length. > 0: We have handled N bytes starting at this address. (If N == length, we did it all.) We might be able to handle more bytes beyond this length, but no promises. < 0: We cannot handle this address, but if somebody else handles (-N) bytes, we can start from there. The same routine is used to handle both core and exec files; we just tail-call it with more arguments to select between them. */ int xfer_memory (memaddr, myaddr, len, write, target) CORE_ADDR memaddr; char *myaddr; int len; int write; struct target_ops *target; { boolean res; struct section_table *p; CORE_ADDR nextsectaddr, memend; boolean (*xfer_fn) PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type)); if (len <= 0) fatal ("aborting"); memend = memaddr + len; xfer_fn = write? bfd_set_section_contents: bfd_get_section_contents; nextsectaddr = memend; for (p = target->to_sections; p < target->to_sections_end; p++) { if (p->addr <= memaddr) if (p->endaddr >= memend) { /* Entire transfer is within this section. */ res = xfer_fn (p->bfd, p->the_bfd_section, myaddr, memaddr - p->addr, len); return (res != 0) ? len : 0; } else if (p->endaddr <= memaddr) { /* This section ends before the transfer starts. */ continue; } else { /* This section overlaps the transfer. Just do half. */ len = p->endaddr - memaddr; res = xfer_fn (p->bfd, p->the_bfd_section, myaddr, memaddr - p->addr, len); return (res != 0) ? len : 0; } else if (p->addr < nextsectaddr) nextsectaddr = p->addr; } if (nextsectaddr >= memend) return 0; /* We can't help */ else return - (nextsectaddr - memaddr); /* Next boundary where we can help */ } void print_section_info (t, abfd) struct target_ops *t; bfd *abfd; { struct section_table *p; /* FIXME-32x64: Need a version of print_address_numeric with field width. */ printf_filtered ("\t`%s', ", bfd_get_filename(abfd)); wrap_here (" "); printf_filtered ("file type %s.\n", bfd_get_target(abfd)); for (p = t->to_sections; p < t->to_sections_end; p++) { printf_filtered ("\t%s", local_hex_string_custom ((unsigned long) p->addr, "08l")); printf_filtered (" - %s", local_hex_string_custom ((unsigned long) p->endaddr, "08l")); if (info_verbose) printf_filtered (" @ %s", local_hex_string_custom ((unsigned long) p->the_bfd_section->filepos, "08l")); printf_filtered (" is %s", bfd_section_name (p->bfd, p->the_bfd_section)); if (p->bfd != abfd) { printf_filtered (" in %s", bfd_get_filename (p->bfd)); } printf_filtered ("\n"); } } static void exec_files_info (t) struct target_ops *t; { register struct vmap *vp = vmap; print_section_info (t, exec_bfd); if (!vp) return; printf_unfiltered ("\tMapping info for file `%s'.\n", vp->name); printf_unfiltered ("\t %8.8s %8.8s %8.8s %8.8s %8.8s %s\n", "tstart", "tend", "dstart", "dend", "section", "file(member)"); for (; vp; vp = vp->nxt) printf_unfiltered ("\t0x%8.8x 0x%8.8x 0x%8.8x 0x%8.8x %s%s%s%s\n", vp->tstart, vp->tend, vp->dstart, vp->dend, vp->name, *vp->member ? "(" : "", vp->member, *vp->member ? ")" : ""); } #ifdef DAMON /* Damon's implementation of set_section_command! It is based on the sex member (which is a section pointer from vmap) of vmap. We will not have multiple vmap entries (one for each section), rather transmit text and data base offsets and fix them at the same time. Elimination of sex entry in vmap make this function obsolute, use the one from exec.c. Need further testing!! FIXMEmgo. */ static void set_section_command(args, from_tty) char *args; { register struct vmap *vp = vmap; char *secname; unsigned seclen; unsigned long secaddr; char secprint[100]; long offset; if (args == 0) error("Must specify section name and its virtual address"); /* Parse out section name */ for (secname = args; !isspace(*args); args++) ; seclen = args - secname; /* Parse out new virtual address */ secaddr = parse_and_eval_address(args); for (vp = vmap; vp; vp = vp->nxt) { if (!strncmp(secname , bfd_section_name(vp->bfd, vp->sex), seclen) && bfd_section_name(vp->bfd, vp->sex)[seclen] == '\0') { offset = secaddr - vp->tstart; vp->tstart += offset; vp->tend += offset; exec_files_info(); return; } } if (seclen >= sizeof(secprint)) seclen = sizeof(secprint) - 1; strncpy(secprint, secname, seclen); secprint[seclen] = '\0'; error("Section %s not found", secprint); } #else static void set_section_command (args, from_tty) char *args; int from_tty; { struct section_table *p; char *secname; unsigned seclen; unsigned long secaddr; char secprint[100]; long offset; if (args == 0) error ("Must specify section name and its virtual address"); /* Parse out section name */ for (secname = args; !isspace(*args); args++) ; seclen = args - secname; /* Parse out new virtual address */ secaddr = parse_and_eval_address (args); for (p = exec_ops.to_sections; p < exec_ops.to_sections_end; p++) if (!strncmp (secname, bfd_section_name (exec_bfd, p->the_bfd_section), seclen) && bfd_section_name (exec_bfd, p->the_bfd_section)[seclen] == '\0') { offset = secaddr - p->addr; p->addr += offset; p->endaddr += offset; if (from_tty) exec_files_info (&exec_ops); return; } if (seclen >= sizeof (secprint)) seclen = sizeof (secprint) - 1; strncpy (secprint, secname, seclen); secprint[seclen] = '\0'; error ("Section %s not found", secprint); } #endif /* !DAMON */ struct target_ops exec_ops = { "exec", "Local exec file", "Use an executable file as a target.\n\ Specify the filename of the executable file.", exec_file_command, exec_close, /* open, close */ find_default_attach, 0, 0, 0, /* attach, detach, resume, wait, */ 0, 0, /* fetch_registers, store_registers, */ 0, /* prepare_to_store */ xfer_memory, exec_files_info, 0, 0, /* insert_breakpoint, remove_breakpoint, */ 0, 0, 0, 0, 0, /* terminal stuff */ 0, 0, /* kill, load */ 0, /* lookup sym */ find_default_create_inferior, 0, /* mourn_inferior */ 0, /* can_run */ 0, /* notice_signals */ file_stratum, 0, /* next */ 0, 1, 0, 0, 0, /* all mem, mem, stack, regs, exec */ 0, 0, /* section pointers */ OPS_MAGIC, /* Always the last thing */ }; void _initialize_exec() { add_com("file", class_files, file_command, "Use FILE as program to be debugged.\n\ It is read for its symbols, for getting the contents of pure memory,\n\ and it is the program executed when you use the `run' command.\n\ If FILE cannot be found as specified, your execution directory path\n\ ($PATH) is searched for a command of that name.\n\ No arg means to have no executable file and no symbols."); add_com("exec-file", class_files, exec_file_command, "Use FILE as program for getting contents of pure memory.\n\ If FILE cannot be found as specified, your execution directory path\n\ is searched for a command of that name.\n\ No arg means have no executable file."); add_com("section", class_files, set_section_command, "Change the base address of section SECTION of the exec file to ADDR.\n\ This can be used if the exec file does not contain section addresses,\n\ (such as in the a.out format), or when the addresses specified in the\n\ file itself are wrong. Each section must be changed separately. The\n\ ``info files'' command lists all the sections and their addresses."); add_target(&exec_ops); } gdb-4.13/gdb/xcoffread.c 666 34562 1752 173674 5566303650 13470 0ustar fnfcygnus/* Read AIX xcoff symbol tables and convert to internal format, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Derived from coffread.c, dbxread.c, and a lot of hacking. Contributed by IBM Corporation. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Native only: Need struct tbtable in from host, and need xcoff_add_toc_to_loadinfo in rs6000-tdep.c from target. need xcoff_init_loadinfo ditto. However, if you grab and make it available on your host, and define FAKING_RS6000, then this code will compile. */ #include "defs.h" #include "bfd.h" #include #include #include #include "obstack.h" #include #ifndef NO_SYS_FILE #include #endif #include #include #include "coff/internal.h" /* FIXME, internal data from BFD */ #include "libcoff.h" /* FIXME, internal data from BFD */ #include "coff/rs6000.h" /* FIXME, raw file-format guts of xcoff */ #include "symtab.h" #include "gdbtypes.h" #include "symfile.h" #include "objfiles.h" #include "buildsym.h" #include "stabsread.h" #include "complaints.h" /* For interface with stabsread.c. */ #include "aout/stab_gnu.h" /* Simplified internal version of coff symbol table information */ struct coff_symbol { char *c_name; int c_symnum; /* symbol number of this entry */ int c_naux; /* 0 if syment only, 1 if syment + auxent */ long c_value; unsigned char c_sclass; int c_secnum; unsigned int c_type; }; /* The COFF line table, in raw form. */ static char *linetab = NULL; /* Its actual contents */ static long linetab_offset; /* Its offset in the file */ static unsigned long linetab_size; /* Its size */ /* last function's saved coff symbol `cs' */ static struct coff_symbol fcn_cs_saved; static bfd *symfile_bfd; /* Core address of start and end of text of current source file. This is calculated from the first function seen after a C_FILE symbol. */ static CORE_ADDR cur_src_end_addr; /* Core address of the end of the first object file. */ static CORE_ADDR first_object_file_end; /* pointer to the string table */ static char *strtbl; /* length of the string table */ static int strtbl_len; /* pointer to debug section */ static char *debugsec; /* pointer to the a.out symbol table */ static char *symtbl; /* Number of symbols in symtbl. */ static int symtbl_num_syms; /* initial symbol-table-debug-string vector length */ #define INITIAL_STABVECTOR_LENGTH 40 /* Nonzero if within a function (so symbols should be local, if nothing says specifically). */ int within_function; /* Local variables that hold the shift and mask values for the COFF file that we are currently reading. These come back to us from BFD, and are referenced by their macro names, as well as internally to the BTYPE, ISPTR, ISFCN, ISARY, ISTAG, and DECREF macros from ../internalcoff.h . */ static unsigned local_n_btshft; static unsigned local_n_tmask; #undef N_BTSHFT #define N_BTSHFT local_n_btshft #undef N_TMASK #define N_TMASK local_n_tmask /* Local variables that hold the sizes in the file of various COFF structures. (We only need to know this to read them from the file -- BFD will then translate the data in them, into `internal_xxx' structs in the right byte order, alignment, etc.) */ static unsigned local_symesz; struct coff_symfile_info { file_ptr min_lineno_offset; /* Where in file lowest line#s are */ file_ptr max_lineno_offset; /* 1+last byte of line#s in file */ }; static struct complaint rsym_complaint = {"Non-stab C_RSYM `%s' needs special handling", 0, 0}; static struct complaint storclass_complaint = {"Unexpected storage class: %d", 0, 0}; static struct complaint bf_notfound_complaint = {"line numbers off, `.bf' symbol not found", 0, 0}; static void enter_line_range PARAMS ((struct subfile *, unsigned, unsigned, CORE_ADDR, CORE_ADDR, unsigned *)); static void free_debugsection PARAMS ((void)); static int init_debugsection PARAMS ((bfd *)); static int init_stringtab PARAMS ((bfd *, file_ptr, struct objfile *)); static void xcoff_symfile_init PARAMS ((struct objfile *)); static void xcoff_new_init PARAMS ((struct objfile *)); static void xcoff_symfile_read PARAMS ((struct objfile *, struct section_offsets *, int)); static void xcoff_symfile_finish PARAMS ((struct objfile *)); static struct section_offsets * xcoff_symfile_offsets PARAMS ((struct objfile *, CORE_ADDR)); static int init_lineno PARAMS ((bfd *, file_ptr, int)); static void free_linetab PARAMS ((void)); static void find_linenos PARAMS ((bfd *, sec_ptr, PTR)); static void read_symbol PARAMS ((struct internal_syment *, int)); static int read_symbol_lineno PARAMS ((int)); static int read_symbol_nvalue PARAMS ((int)); static struct symbol * process_xcoff_symbol PARAMS ((struct coff_symbol *, struct objfile *)); static void read_xcoff_symtab PARAMS ((struct objfile *, int)); static void add_stab_to_list PARAMS ((char *, struct pending_stabs **)); /* add a given stab string into given stab vector. */ static void add_stab_to_list (stabname, stabvector) char *stabname; struct pending_stabs **stabvector; { if ( *stabvector == NULL) { *stabvector = (struct pending_stabs *) xmalloc (sizeof (struct pending_stabs) + INITIAL_STABVECTOR_LENGTH * sizeof (char*)); (*stabvector)->count = 0; (*stabvector)->length = INITIAL_STABVECTOR_LENGTH; } else if ((*stabvector)->count >= (*stabvector)->length) { (*stabvector)->length += INITIAL_STABVECTOR_LENGTH; *stabvector = (struct pending_stabs *) xrealloc ((char *) *stabvector, sizeof (struct pending_stabs) + (*stabvector)->length * sizeof (char*)); } (*stabvector)->stab [(*stabvector)->count++] = stabname; } /* Linenos are processed on a file-by-file basis. Two reasons: 1) xlc (IBM's native c compiler) postpones static function code emission to the end of a compilation unit. This way it can determine if those functions (statics) are needed or not, and can do some garbage collection (I think). This makes line numbers and corresponding addresses unordered, and we end up with a line table like: lineno addr foo() 10 0x100 20 0x200 30 0x300 foo3() 70 0x400 80 0x500 90 0x600 static foo2() 40 0x700 50 0x800 60 0x900 and that breaks gdb's binary search on line numbers, if the above table is not sorted on line numbers. And that sort should be on function based, since gcc can emit line numbers like: 10 0x100 - for the init/test part of a for stmt. 20 0x200 30 0x300 10 0x400 - for the increment part of a for stmt. arrange_linetable() will do this sorting. 2) aix symbol table might look like: c_file // beginning of a new file .bi // beginning of include file .ei // end of include file .bi .ei basically, .bi/.ei pairs do not necessarily encapsulate their scope. They need to be recorded, and processed later on when we come the end of the compilation unit. Include table (inclTable) and process_linenos() handle that. */ /* compare line table entry addresses. */ static int compare_lte (lte1, lte2) struct linetable_entry *lte1, *lte2; { return lte1->pc - lte2->pc; } /* Give a line table with function entries are marked, arrange its functions in assending order and strip off function entry markers and return it in a newly created table. If the old one is good enough, return the old one. */ /* FIXME: I think all this stuff can be replaced by just passing sort_linevec = 1 to end_symtab. */ static struct linetable * arrange_linetable (oldLineTb) struct linetable *oldLineTb; /* old linetable */ { int ii, jj, newline, /* new line count */ function_count; /* # of functions */ struct linetable_entry *fentry; /* function entry vector */ int fentry_size; /* # of function entries */ struct linetable *newLineTb; /* new line table */ #define NUM_OF_FUNCTIONS 20 fentry_size = NUM_OF_FUNCTIONS; fentry = (struct linetable_entry*) xmalloc (fentry_size * sizeof (struct linetable_entry)); for (function_count=0, ii=0; ii nitems; ++ii) { if (oldLineTb->item[ii].line == 0) { /* function entry found. */ if (function_count >= fentry_size) { /* make sure you have room. */ fentry_size *= 2; fentry = (struct linetable_entry*) xrealloc (fentry, fentry_size * sizeof (struct linetable_entry)); } fentry[function_count].line = ii; fentry[function_count].pc = oldLineTb->item[ii].pc; ++function_count; } } if (function_count == 0) { free (fentry); return oldLineTb; } else if (function_count > 1) qsort (fentry, function_count, sizeof(struct linetable_entry), compare_lte); /* allocate a new line table. */ newLineTb = (struct linetable *) xmalloc (sizeof (struct linetable) + (oldLineTb->nitems - function_count) * sizeof (struct linetable_entry)); /* if line table does not start with a function beginning, copy up until a function begin. */ newline = 0; if (oldLineTb->item[0].line != 0) for (newline=0; newline < oldLineTb->nitems && oldLineTb->item[newline].line; ++newline) newLineTb->item[newline] = oldLineTb->item[newline]; /* Now copy function lines one by one. */ for (ii=0; ii < function_count; ++ii) { for (jj = fentry[ii].line + 1; jj < oldLineTb->nitems && oldLineTb->item[jj].line != 0; ++jj, ++newline) newLineTb->item[newline] = oldLineTb->item[jj]; } free (fentry); newLineTb->nitems = oldLineTb->nitems - function_count; return newLineTb; } /* We try to detect the beginning of a compilation unit. That info will be used as an entry in line number recording routines (enter_line_range) */ static unsigned first_fun_line_offset; static unsigned first_fun_bf; #define mark_first_line(OFFSET, SYMNUM) \ if (!first_fun_line_offset) { \ first_fun_line_offset = OFFSET; \ first_fun_bf = SYMNUM; \ } /* include file support: C_BINCL/C_EINCL pairs will be kept in the following `IncludeChain'. At the end of each symtab (end_symtab), we will determine if we should create additional symtab's to represent if (the include files. */ typedef struct _inclTable { char *name; /* include filename */ /* Offsets to the line table. end points to the last entry which is part of this include file. */ int begin, end; struct subfile *subfile; unsigned funStartLine; /* start line # of its function */ } InclTable; #define INITIAL_INCLUDE_TABLE_LENGTH 20 static InclTable *inclTable; /* global include table */ static int inclIndx; /* last entry to table */ static int inclLength; /* table length */ static int inclDepth; /* nested include depth */ static void record_include_begin (cs) struct coff_symbol *cs; { if (inclDepth) { /* In xcoff, we assume include files cannot be nested (not in .c files of course, but in corresponding .s files.). */ /* This can happen with old versions of GCC. GCC 2.3.3-930426 does not exhibit this on a test case which a user said produced the message for him. */ static struct complaint msg = {"Nested C_BINCL symbols", 0, 0}; complain (&msg); } ++inclDepth; /* allocate an include file, or make room for the new entry */ if (inclLength == 0) { inclTable = (InclTable*) xmalloc (sizeof (InclTable) * INITIAL_INCLUDE_TABLE_LENGTH); memset (inclTable, '\0', sizeof (InclTable) * INITIAL_INCLUDE_TABLE_LENGTH); inclLength = INITIAL_INCLUDE_TABLE_LENGTH; inclIndx = 0; } else if (inclIndx >= inclLength) { inclLength += INITIAL_INCLUDE_TABLE_LENGTH; inclTable = (InclTable*) xrealloc (inclTable, sizeof (InclTable) * inclLength); memset (inclTable+inclLength-INITIAL_INCLUDE_TABLE_LENGTH, '\0', sizeof (InclTable)*INITIAL_INCLUDE_TABLE_LENGTH); } inclTable [inclIndx].name = cs->c_name; inclTable [inclIndx].begin = cs->c_value; } static void record_include_end (cs) struct coff_symbol *cs; { InclTable *pTbl; if (inclDepth == 0) { static struct complaint msg = {"Mismatched C_BINCL/C_EINCL pair", 0, 0}; complain (&msg); } pTbl = &inclTable [inclIndx]; pTbl->end = cs->c_value; --inclDepth; ++inclIndx; } /* given the start and end addresses of a compilation unit (or a csect, at times) process its lines and create appropriate line vectors. */ static void process_linenos (start, end) CORE_ADDR start, end; { char *pp; int offset, ii; struct subfile main_subfile; /* subfile structure for the main compilation unit. */ /* in the main source file, any time we see a function entry, we reset this variable to function's absolute starting line number. All the following line numbers in the function are relative to this, and we record absolute line numbers in record_line(). */ int main_source_baseline = 0; unsigned *firstLine; CORE_ADDR addr; if (!(offset = first_fun_line_offset)) goto return_after_cleanup; memset (&main_subfile, '\0', sizeof (main_subfile)); first_fun_line_offset = 0; if (inclIndx == 0) /* All source lines were in the main source file. None in include files. */ enter_line_range (&main_subfile, offset, 0, start, end, &main_source_baseline); /* else, there was source with line numbers in include files */ else { main_source_baseline = 0; for (ii=0; ii < inclIndx; ++ii) { struct subfile *tmpSubfile; /* if there is main file source before include file, enter it. */ if (offset < inclTable[ii].begin) { enter_line_range (&main_subfile, offset, inclTable[ii].begin - LINESZ, start, 0, &main_source_baseline); } /* Have a new subfile for the include file */ tmpSubfile = inclTable[ii].subfile = (struct subfile*) xmalloc (sizeof (struct subfile)); memset (tmpSubfile, '\0', sizeof (struct subfile)); firstLine = &(inclTable[ii].funStartLine); /* enter include file's lines now. */ enter_line_range (tmpSubfile, inclTable[ii].begin, inclTable[ii].end, start, 0, firstLine); offset = inclTable[ii].end + LINESZ; } /* all the include files' line have been processed at this point. Now, enter remaining lines of the main file, if any left. */ if (offset < (linetab_offset + linetab_size + 1 - LINESZ)) { enter_line_range (&main_subfile, offset, 0, start, end, &main_source_baseline); } } /* Process main file's line numbers. */ if (main_subfile.line_vector) { struct linetable *lineTb, *lv; lv = main_subfile.line_vector; /* Line numbers are not necessarily ordered. xlc compilation will put static function to the end. */ lineTb = arrange_linetable (lv); if (lv == lineTb) { current_subfile->line_vector = (struct linetable *) xrealloc (lv, (sizeof (struct linetable) + lv->nitems * sizeof (struct linetable_entry))); } else { free (lv); current_subfile->line_vector = lineTb; } current_subfile->line_vector_length = current_subfile->line_vector->nitems; } /* Now, process included files' line numbers. */ for (ii=0; ii < inclIndx; ++ii) { if ( (inclTable[ii].subfile)->line_vector) { /* Useless if!!! FIXMEmgo */ struct linetable *lineTb, *lv; lv = (inclTable[ii].subfile)->line_vector; /* Line numbers are not necessarily ordered. xlc compilation will put static function to the end. */ lineTb = arrange_linetable (lv); push_subfile (); /* For the same include file, we might want to have more than one subfile. This happens if we have something like: ...... #include "foo.h" ...... #include "foo.h" ...... while foo.h including code in it. (stupid but possible) Since start_subfile() looks at the name and uses an existing one if finds, we need to provide a fake name and fool it. */ /* start_subfile (inclTable[ii].name, (char*)0); */ start_subfile (" ?", (char*)0); free (current_subfile->name); current_subfile->name = strdup (inclTable[ii].name); if (lv == lineTb) { current_subfile->line_vector = (struct linetable *) xrealloc (lv, (sizeof (struct linetable) + lv->nitems * sizeof (struct linetable_entry))); } else { free (lv); current_subfile->line_vector = lineTb; } current_subfile->line_vector_length = current_subfile->line_vector->nitems; start_subfile (pop_subfile (), (char*)0); } } return_after_cleanup: /* We don't want to keep alloc/free'ing the global include file table. */ inclIndx = 0; /* start with a fresh subfile structure for the next file. */ memset (&main_subfile, '\0', sizeof (struct subfile)); } void aix_process_linenos () { /* process line numbers and enter them into line vector */ process_linenos (last_source_start_addr, cur_src_end_addr); } /* Enter a given range of lines into the line vector. can be called in the following two ways: enter_line_range (subfile, beginoffset, endoffset, startaddr, 0, firstLine) or enter_line_range (subfile, beginoffset, 0, startaddr, endaddr, firstLine) endoffset points to the last line table entry that we should pay attention to. */ static void enter_line_range (subfile, beginoffset, endoffset, startaddr, endaddr, firstLine) struct subfile *subfile; unsigned beginoffset, endoffset; /* offsets to line table */ CORE_ADDR startaddr, endaddr; unsigned *firstLine; { char *pp, *limit; CORE_ADDR addr; /* Do Byte swapping, if needed. FIXME! */ #define P_LINENO(PP) (*(unsigned short*)((struct external_lineno*)(PP))->l_lnno) #define P_LINEADDR(PP) (*(long*)((struct external_lineno*)(PP))->l_addr.l_paddr) #define P_LINESYM(PP) (*(long*)((struct external_lineno*)(PP))->l_addr.l_symndx) pp = &linetab [beginoffset - linetab_offset]; if (endoffset != 0 && endoffset - linetab_offset >= linetab_size) { static struct complaint msg = {"Bad line table offset in C_EINCL directive", 0, 0}; complain (&msg); return; } limit = endoffset ? &linetab [endoffset - linetab_offset] : &linetab [linetab_size -1]; while (pp <= limit) { /* find the address this line represents */ addr = P_LINENO(pp) ? P_LINEADDR(pp) : read_symbol_nvalue (P_LINESYM(pp)); if (addr < startaddr || (endaddr && addr >= endaddr)) return; if (P_LINENO(pp) == 0) { *firstLine = read_symbol_lineno (P_LINESYM(pp)); record_line (subfile, 0, addr); --(*firstLine); } else record_line (subfile, *firstLine + P_LINENO(pp), addr); pp += LINESZ; } } typedef struct { int fsize; /* file size */ int fixedparms; /* number of fixed parms */ int floatparms; /* number of float parms */ unsigned int parminfo; /* parameter info. See /usr/include/sys/debug.h tbtable_ext.parminfo */ int framesize; /* function frame size */ } TracebackInfo; /* Given a function symbol, return its traceback information. */ TracebackInfo * retrieve_tracebackinfo (abfd, textsec, cs) bfd *abfd; sec_ptr textsec; struct coff_symbol *cs; { #define TBTABLE_BUFSIZ 2000 static TracebackInfo tbInfo; struct tbtable *ptb; static char buffer [TBTABLE_BUFSIZ]; int *pinsn; int bytesread=0; /* total # of bytes read so far */ int bufferbytes; /* number of bytes in the buffer */ int functionstart = cs->c_value - textsec->vma; memset (&tbInfo, '\0', sizeof (tbInfo)); /* keep reading blocks of data from the text section, until finding a zero word and a traceback table. */ /* Note: The logical thing way to write this code would be to assign to bufferbytes within the while condition. But that triggers a compiler (xlc in AIX 3.2) bug, so simplify it... */ bufferbytes = (TBTABLE_BUFSIZ < (textsec->_raw_size - functionstart - bytesread) ? TBTABLE_BUFSIZ : (textsec->_raw_size - functionstart - bytesread)); while (bufferbytes && (bfd_get_section_contents (abfd, textsec, buffer, (file_ptr)(functionstart + bytesread), bufferbytes))) { bytesread += bufferbytes; pinsn = (int*) buffer; /* if this is the first time we filled the buffer, retrieve function framesize info. */ if (bytesread == bufferbytes) { /* skip over unrelated instructions */ if (*pinsn == 0x7c0802a6) /* mflr r0 */ ++pinsn; if ((*pinsn & 0xfc00003e) == 0x7c000026) /* mfcr Rx */ ++pinsn; if ((*pinsn & 0xfc000000) == 0x48000000) /* bl foo, save fprs */ ++pinsn; if ((*pinsn & 0xfc1f0000) == 0xbc010000) /* stm Rx, NUM(r1) */ ++pinsn; do { int tmp = (*pinsn >> 16) & 0xffff; if (tmp == 0x9421) { /* stu r1, NUM(r1) */ tbInfo.framesize = 0x10000 - (*pinsn & 0xffff); break; } else if ((*pinsn == 0x93e1fffc) || /* st r31,-4(r1) */ (tmp == 0x9001)) /* st r0, NUM(r1) */ ; /* else, could not find a frame size. */ else return NULL; } while (++pinsn && *pinsn); if (!tbInfo.framesize) return NULL; } /* look for a zero word. */ while (*pinsn && (pinsn < (int*)(buffer + bufferbytes - sizeof(int)))) ++pinsn; if (pinsn >= (int*)(buffer + bufferbytes)) continue; if (*pinsn == 0) { /* function size is the amount of bytes we have skipped so far. */ tbInfo.fsize = bytesread - (buffer + bufferbytes - (char*)pinsn); ++pinsn; /* if we don't have the whole traceback table in the buffer, re-read the whole thing. */ /* This is how much to read to get the traceback table. 8 bytes of the traceback table are always present, plus we look at parminfo. */ #define MIN_TBTABSIZ 12 if ((char*)pinsn > (buffer + bufferbytes - MIN_TBTABSIZ)) { /* In case if we are *very* close to the end of the text section and cannot read properly from that point on, abort by returning NULL. This could happen if the traceback table is only 8 bytes, but we try to read 12 bytes of it. Handle this case more graciously -- FIXME */ if (!bfd_get_section_contents ( abfd, textsec, buffer, (file_ptr)(functionstart + bytesread - (buffer + bufferbytes - (char*)pinsn)),MIN_TBTABSIZ)) { printf_unfiltered ("Abnormal return!..\n"); return NULL; } ptb = (struct tbtable *)buffer; } else ptb = (struct tbtable *)pinsn; tbInfo.fixedparms = ptb->tb.fixedparms; tbInfo.floatparms = ptb->tb.floatparms; tbInfo.parminfo = ptb->tb_ext.parminfo; return &tbInfo; } bufferbytes = (TBTABLE_BUFSIZ < (textsec->_raw_size - functionstart - bytesread) ? TBTABLE_BUFSIZ : (textsec->_raw_size - functionstart - bytesread)); } return NULL; } #if 0 /* Given a function symbol, return a pointer to its traceback table. */ struct tbtable * retrieve_traceback (abfd, textsec, cs, size) bfd *abfd; sec_ptr textsec; struct coff_symbol *cs; int *size; /* return function size */ { #define TBTABLE_BUFSIZ 2000 #define MIN_TBTABSIZ 50 /* minimum buffer size to hold a traceback table. */ static char buffer [TBTABLE_BUFSIZ]; int *pinsn; int bytesread=0; /* total # of bytes read so far */ int bufferbytes; /* number of bytes in the buffer */ int functionstart = cs->c_value - textsec->filepos + textsec->vma; *size = 0; /* keep reading blocks of data from the text section, until finding a zero word and a traceback table. */ while (bfd_get_section_contents (abfd, textsec, buffer, (file_ptr)(functionstart + bytesread), bufferbytes = ( (TBTABLE_BUFSIZ < (textsec->size - functionstart - bytesread)) ? TBTABLE_BUFSIZ : (textsec->size - functionstart - bytesread)))) { bytesread += bufferbytes; pinsn = (int*) buffer; /* look for a zero word. */ while (*pinsn && (pinsn < (int*)(buffer + bufferbytes - sizeof(int)))) ++pinsn; if (pinsn >= (int*)(buffer + bufferbytes)) continue; if (*pinsn == 0) { /* function size is the amount of bytes we have skipped so far. */ *size = bytesread - (buffer + bufferbytes - pinsn); ++pinsn; /* if we don't have the whole traceback table in the buffer, re-read the whole thing. */ if ((char*)pinsn > (buffer + bufferbytes - MIN_TBTABSIZ)) { /* In case if we are *very* close to the end of the text section and cannot read properly from that point on, abort for now. Handle this case more graciously -- FIXME */ if (!bfd_get_section_contents ( abfd, textsec, buffer, (file_ptr)(functionstart + bytesread - (buffer + bufferbytes - pinsn)),MIN_TBTABSIZ)) /* abort (); */ { printf_unfiltered ("abort!!!\n"); return NULL; } return (struct tbtable *)buffer; } else return (struct tbtable *)pinsn; } } return NULL; } #endif /* 0 */ /* Save the vital information for use when closing off the current file. NAME is the file name the symbols came from, START_ADDR is the first text address for the file, and SIZE is the number of bytes of text. */ #define complete_symtab(name, start_addr) { \ last_source_file = savestring (name, strlen (name)); \ last_source_start_addr = start_addr; \ } /* Refill the symbol table input buffer and set the variables that control fetching entries from it. Reports an error if no data available. This function can read past the end of the symbol table (into the string table) but this does no harm. */ /* Reading symbol table has to be fast! Keep the followings as macros, rather than functions. */ #define RECORD_MINIMAL_SYMBOL(NAME, ADDR, TYPE, ALLOCED, SECTION, OBJFILE) \ { \ char *namestr; \ if (ALLOCED) \ namestr = (NAME) + 1; \ else { \ (NAME) = namestr = \ obstack_copy0 (&objfile->symbol_obstack, (NAME) + 1, strlen ((NAME)+1)); \ (ALLOCED) = 1; \ } \ prim_record_minimal_symbol_and_info (namestr, (ADDR), (TYPE), \ (char *)NULL, (SECTION), (OBJFILE)); \ misc_func_recorded = 1; \ } /* A parameter template, used by ADD_PARM_TO_PENDING. It is initialized in our initializer function at the bottom of the file, to avoid dependencies on the exact "struct symbol" format. */ static struct symbol parmsym; /* Add a parameter to a given pending symbol list. */ #define ADD_PARM_TO_PENDING(PARM, VALUE, PTYPE, PENDING_SYMBOLS) \ { \ PARM = (struct symbol *) \ obstack_alloc (&objfile->symbol_obstack, sizeof (struct symbol)); \ *(PARM) = parmsym; \ SYMBOL_TYPE (PARM) = PTYPE; \ SYMBOL_VALUE (PARM) = VALUE; \ add_symbol_to_list (PARM, &PENDING_SYMBOLS); \ } /* xcoff has static blocks marked in `.bs', `.es' pairs. They cannot be nested. At any given time, a symbol can only be in one static block. This is the base address of current static block, zero if non exists. */ static int static_block_base = 0; /* Section number for the current static block. */ static int static_block_section = -1; /* true if space for symbol name has been allocated. */ static int symname_alloced = 0; /* Next symbol to read. Pointer into raw seething symbol table. */ static char *raw_symbol; /* This is the function which stabsread.c calls to get symbol continuations. */ static char * xcoff_next_symbol_text () { struct internal_syment symbol; static struct complaint msg = {"Unexpected symbol continuation", 0, 0}; char *retval; bfd_coff_swap_sym_in (current_objfile->obfd, raw_symbol, &symbol); if (symbol.n_zeroes) { complain (&msg); /* Return something which points to '\0' and hope the symbol reading code does something reasonable. */ retval = ""; } else if (symbol.n_sclass & 0x80) { retval = debugsec + symbol.n_offset; raw_symbol += coff_data (current_objfile->obfd)->local_symesz; ++symnum; } else { complain (&msg); /* Return something which points to '\0' and hope the symbol reading code does something reasonable. */ retval = ""; } return retval; } /* read the whole symbol table of a given bfd. */ static void read_xcoff_symtab (objfile, nsyms) struct objfile *objfile; /* Object file we're reading from */ int nsyms; /* # of symbols */ { bfd *abfd = objfile->obfd; char *raw_auxptr; /* Pointer to first raw aux entry for sym */ sec_ptr textsec; /* Pointer to text section */ TracebackInfo *ptb; /* Pointer to traceback table */ struct internal_syment symbol[1]; union internal_auxent main_aux; struct coff_symbol cs[1]; CORE_ADDR file_start_addr = 0; CORE_ADDR file_end_addr = 0; int next_file_symnum = -1; int just_started = 1; int depth = 0; int toc_offset = 0; /* toc offset value in data section. */ int val; int fcn_last_line; int fcn_start_addr; long fcn_line_offset; size_t size; struct coff_symbol fcn_stab_saved; /* fcn_cs_saved is global because process_xcoff_symbol needs it. */ union internal_auxent fcn_aux_saved; struct type *fcn_type_saved = NULL; struct context_stack *new; char *filestring = " _start_ "; /* Name of the current file. */ char *last_csect_name; /* last seen csect's name and value */ CORE_ADDR last_csect_val; int last_csect_sec; int misc_func_recorded; /* true if any misc. function */ current_objfile = objfile; /* Get the appropriate COFF "constants" related to the file we're handling. */ N_TMASK = coff_data (abfd)->local_n_tmask; N_BTSHFT = coff_data (abfd)->local_n_btshft; local_symesz = coff_data (abfd)->local_symesz; last_source_file = NULL; last_csect_name = 0; last_csect_val = 0; misc_func_recorded = 0; start_stabs (); start_symtab (filestring, (char *)NULL, file_start_addr); symnum = 0; first_object_file_end = 0; /* Allocate space for the entire symbol table at once, and read it all in. The bfd is already positioned at the beginning of the symbol table. */ size = coff_data (abfd)->local_symesz * nsyms; symtbl = xmalloc (size); symtbl_num_syms = nsyms; val = bfd_read (symtbl, size, 1, abfd); if (val != size) perror_with_name ("reading symbol table"); raw_symbol = symtbl; textsec = bfd_get_section_by_name (abfd, ".text"); if (!textsec) { printf_unfiltered ("Unable to locate text section!\n"); } next_symbol_text_func = xcoff_next_symbol_text; while (symnum < nsyms) { QUIT; /* make this command interruptable. */ /* READ_ONE_SYMBOL (symbol, cs, symname_alloced); */ /* read one symbol into `cs' structure. After processing the whole symbol table, only string table will be kept in memory, symbol table and debug section of xcoff will be freed. Thus we can mark symbols with names in string table as `alloced'. */ { int ii; /* Swap and align the symbol into a reasonable C structure. */ bfd_coff_swap_sym_in (abfd, raw_symbol, symbol); cs->c_symnum = symnum; cs->c_naux = symbol->n_numaux; if (symbol->n_zeroes) { symname_alloced = 0; /* We must use the original, unswapped, name here so the name field pointed to by cs->c_name will persist throughout xcoffread. If we use the new field, it gets overwritten for each symbol. */ cs->c_name = ((struct external_syment *)raw_symbol)->e.e_name; /* If it's exactly E_SYMNMLEN characters long it isn't '\0'-terminated. */ if (cs->c_name[E_SYMNMLEN - 1] != '\0') { char *p; p = obstack_alloc (&objfile->symbol_obstack, E_SYMNMLEN + 1); strncpy (p, cs->c_name, E_SYMNMLEN); p[E_SYMNMLEN] = '\0'; cs->c_name = p; symname_alloced = 1; } } else if (symbol->n_sclass & 0x80) { cs->c_name = debugsec + symbol->n_offset; symname_alloced = 0; } else { /* in string table */ cs->c_name = strtbl + (int)symbol->n_offset; symname_alloced = 1; } cs->c_value = symbol->n_value; cs->c_sclass = symbol->n_sclass; cs->c_secnum = symbol->n_scnum; cs->c_type = (unsigned)symbol->n_type; raw_symbol += coff_data (abfd)->local_symesz; ++symnum; raw_auxptr = raw_symbol; /* Save addr of first aux entry */ /* Skip all the auxents associated with this symbol. */ for (ii = symbol->n_numaux; ii; --ii ) { raw_symbol += coff_data (abfd)->local_auxesz; ++symnum; } } /* if symbol name starts with ".$" or "$", ignore it. */ if (cs->c_name[0] == '$' || (cs->c_name[1] == '$' && cs->c_name[0] == '.')) continue; if (cs->c_symnum == next_file_symnum && cs->c_sclass != C_FILE) { if (last_source_file) { end_symtab (cur_src_end_addr, 1, 0, objfile, textsec->target_index); end_stabs (); } start_stabs (); start_symtab ("_globals_", (char *)NULL, (CORE_ADDR)0); cur_src_end_addr = first_object_file_end; /* done with all files, everything from here on is globals */ } /* if explicitly specified as a function, treat is as one. */ if (ISFCN(cs->c_type) && cs->c_sclass != C_TPDEF) { bfd_coff_swap_aux_in (abfd, raw_auxptr, cs->c_type, cs->c_sclass, 0, cs->c_naux, &main_aux); goto function_entry_point; } if ((cs->c_sclass == C_EXT || cs->c_sclass == C_HIDEXT) && cs->c_naux == 1) { /* dealing with a symbol with a csect entry. */ # define CSECT(PP) ((PP)->x_csect) # define CSECT_LEN(PP) (CSECT(PP).x_scnlen.l) # define CSECT_ALIGN(PP) (SMTYP_ALIGN(CSECT(PP).x_smtyp)) # define CSECT_SMTYP(PP) (SMTYP_SMTYP(CSECT(PP).x_smtyp)) # define CSECT_SCLAS(PP) (CSECT(PP).x_smclas) /* Convert the auxent to something we can access. */ bfd_coff_swap_aux_in (abfd, raw_auxptr, cs->c_type, cs->c_sclass, 0, cs->c_naux, &main_aux); switch (CSECT_SMTYP (&main_aux)) { case XTY_ER : continue; /* ignore all external references. */ case XTY_SD : /* a section description. */ { switch (CSECT_SCLAS (&main_aux)) { case XMC_PR : /* a `.text' csect. */ { /* A program csect is seen. We have to allocate one symbol table for each program csect. Normally gdb prefers one symtab for each source file. In case of AIX, one source file might include more than one [PR] csect, and they don't have to be adjacent in terms of the space they occupy in memory. Thus, one single source file might get fragmented in the memory and gdb's file start and end address approach does not work! GCC (and I think xlc) seem to put all the code in the unnamed program csect. */ if (last_csect_name) { /* if no misc. function recorded in the last seen csect, enter it as a function. This will take care of functions like strcmp() compiled by xlc. */ if (!misc_func_recorded) { int alloced = 0; RECORD_MINIMAL_SYMBOL (last_csect_name, last_csect_val, mst_text, alloced, last_csect_sec, objfile); } complete_symtab (filestring, file_start_addr); cur_src_end_addr = file_end_addr; end_symtab (file_end_addr, 1, 0, objfile, textsec->target_index); end_stabs (); start_stabs (); /* Give all csects for this source file the same name. */ start_symtab (filestring, (char *)NULL, (CORE_ADDR)0); } /* If this is the very first csect seen, basically `__start'. */ if (just_started) { first_object_file_end = cs->c_value + CSECT_LEN (&main_aux); just_started = 0; } file_start_addr = cs->c_value; file_end_addr = cs->c_value + CSECT_LEN (&main_aux); if (cs->c_name && cs->c_name[0] == '.') { last_csect_name = cs->c_name; last_csect_val = cs->c_value; last_csect_sec = cs->c_secnum; } } misc_func_recorded = 0; continue; case XMC_RW : break; /* If the section is not a data description, ignore it. Note that uninitialized data will show up as XTY_CM/XMC_RW pair. */ case XMC_TC0: if (toc_offset) warning ("More than one xmc_tc0 symbol found."); toc_offset = cs->c_value; continue; case XMC_TC : /* ignore toc entries */ default : /* any other XMC_XXX */ continue; } } break; /* switch CSECT_SCLAS() */ case XTY_LD : /* a function entry point. */ if (CSECT_SCLAS (&main_aux) == XMC_PR) { function_entry_point: RECORD_MINIMAL_SYMBOL (cs->c_name, cs->c_value, mst_text, symname_alloced, cs->c_secnum, objfile); fcn_line_offset = main_aux.x_sym.x_fcnary.x_fcn.x_lnnoptr; fcn_start_addr = cs->c_value; /* save the function header info, which will be used when `.bf' is seen. */ fcn_cs_saved = *cs; fcn_aux_saved = main_aux; ptb = NULL; /* If function has two auxent, then debugging information is already available for it. Process traceback table for functions with only one auxent. */ if (cs->c_naux == 1) ptb = retrieve_tracebackinfo (abfd, textsec, cs); else if (cs->c_naux != 2) { static struct complaint msg = {"Expected one or two auxents for function", 0, 0}; complain (&msg); } /* If there is traceback info, create and add parameters for it. */ if (ptb && (ptb->fixedparms || ptb->floatparms)) { int parmcnt = ptb->fixedparms + ptb->floatparms; char *parmcode = (char*) &ptb->parminfo; int parmvalue = ptb->framesize + 0x18; /* sizeof(LINK AREA) == 0x18 */ unsigned int ii, mask; for (ii=0, mask = 0x80000000; ii parminfo & mask) { /* float or double */ mask = mask >> 1; if (ptb->parminfo & mask) { /* double parm */ ADD_PARM_TO_PENDING (parm, parmvalue, builtin_type_double, local_symbols); parmvalue += sizeof (double); } else { /* float parm */ ADD_PARM_TO_PENDING (parm, parmvalue, builtin_type_float, local_symbols); parmvalue += sizeof (float); } } else { /* fixed parm, use (int*) for hex rep. */ ADD_PARM_TO_PENDING (parm, parmvalue, lookup_pointer_type (builtin_type_int), local_symbols); parmvalue += sizeof (int); } mask = mask >> 1; } /* Fake this as a function. Needed in process_xcoff_symbol() */ cs->c_type = 32; finish_block(process_xcoff_symbol (cs, objfile), &local_symbols, pending_blocks, cs->c_value, cs->c_value + ptb->fsize, objfile); } continue; } /* shared library function trampoline code entry point. */ else if (CSECT_SCLAS (&main_aux) == XMC_GL) { /* record trampoline code entries as mst_solib_trampoline symbol. When we lookup mst symbols, we will choose mst_text over mst_solib_trampoline. */ #if 1 /* After the implementation of incremental loading of shared libraries, we don't want to access trampoline entries. This approach has a consequence of the necessity to bring the whole shared library at first, in order do anything with it (putting breakpoints, using malloc, etc). On the other side, this is consistient with gdb's behaviour on a SUN platform. */ /* Trying to prefer *real* function entry over its trampoline, by assigning `mst_solib_trampoline' type to trampoline entries fails. Gdb treats those entries as chars. FIXME. */ /* Recording this entry is necessary. Single stepping relies on this vector to get an idea about function address boundaries. */ prim_record_minimal_symbol_and_info ("", cs->c_value, mst_solib_trampoline, (char *)NULL, cs->c_secnum, objfile); #else /* record trampoline code entries as mst_solib_trampoline symbol. When we lookup mst symbols, we will choose mst_text over mst_solib_trampoline. */ RECORD_MINIMAL_SYMBOL (cs->c_name, cs->c_value, mst_solib_trampoline, symname_alloced, objfile); #endif continue; } continue; default : /* all other XTY_XXXs */ break; } /* switch CSECT_SMTYP() */ } switch (cs->c_sclass) { case C_FILE: /* see if the last csect needs to be recorded. */ if (last_csect_name && !misc_func_recorded) { /* if no misc. function recorded in the last seen csect, enter it as a function. This will take care of functions like strcmp() compiled by xlc. */ int alloced = 0; RECORD_MINIMAL_SYMBOL (last_csect_name, last_csect_val, mst_text, alloced, last_csect_sec, objfile); } /* c_value field contains symnum of next .file entry in table or symnum of first global after last .file. */ next_file_symnum = cs->c_value; /* complete symbol table for last object file containing debugging information. */ /* Whether or not there was a csect in the previous file, we have to call `end_stabs' and `start_stabs' to reset type_vector, line_vector, etc. structures. */ complete_symtab (filestring, file_start_addr); cur_src_end_addr = file_end_addr; end_symtab (file_end_addr, 1, 0, objfile, textsec->target_index); end_stabs (); /* XCOFF, according to the AIX 3.2 documentation, puts the filename in cs->c_name. But xlc 1.3.0.2 has decided to do things the standard COFF way and put it in the auxent. We use the auxent if the symbol is ".file" and an auxent exists, otherwise use the symbol itself. Simple enough. */ if (!strcmp (cs->c_name, ".file") && cs->c_naux > 0) filestring = coff_getfilename (&main_aux); else filestring = cs->c_name; start_stabs (); start_symtab (filestring, (char *)NULL, (CORE_ADDR)0); last_csect_name = 0; /* reset file start and end addresses. A compilation unit with no text (only data) should have zero file boundaries. */ file_start_addr = file_end_addr = 0; break; case C_FUN: fcn_stab_saved = *cs; break; case C_FCN: if (STREQ (cs->c_name, ".bf")) { bfd_coff_swap_aux_in (abfd, raw_auxptr, cs->c_type, cs->c_sclass, 0, cs->c_naux, &main_aux); within_function = 1; mark_first_line (fcn_line_offset, cs->c_symnum); new = push_context (0, fcn_start_addr); new->name = define_symbol (fcn_cs_saved.c_value, fcn_stab_saved.c_name, 0, 0, objfile); if (new->name != NULL) SYMBOL_SECTION (new->name) = cs->c_secnum; } else if (STREQ (cs->c_name, ".ef")) { bfd_coff_swap_aux_in (abfd, raw_auxptr, cs->c_type, cs->c_sclass, 0, cs->c_naux, &main_aux); /* the value of .ef is the address of epilogue code; not useful for gdb */ /* { main_aux.x_sym.x_misc.x_lnsz.x_lnno contains number of lines to '}' */ fcn_last_line = main_aux.x_sym.x_misc.x_lnsz.x_lnno; new = pop_context (); if (context_stack_depth != 0) error ("invalid symbol data; .bf/.ef/.bb/.eb symbol mismatch, at symbol %d.", symnum); finish_block (new->name, &local_symbols, new->old_blocks, new->start_addr, fcn_cs_saved.c_value + fcn_aux_saved.x_sym.x_misc.x_fsize, objfile); within_function = 0; } break; case C_BSTAT : /* begin static block */ { struct internal_syment symbol; read_symbol (&symbol, cs->c_value); static_block_base = symbol.n_value; static_block_section = symbol.n_scnum; } break; case C_ESTAT : /* end of static block */ static_block_base = 0; static_block_section = -1; break; case C_ARG : /* These are not implemented. */ case C_REGPARM : case C_TPDEF : case C_STRTAG : case C_UNTAG : case C_ENTAG : printf_unfiltered ("ERROR: Unimplemented storage class: %d.\n", cs->c_sclass); break; case C_HIDEXT : /* ignore these.. */ case C_LABEL : case C_NULL : break; case C_BINCL : /* beginning of include file */ /* In xlc output, C_BINCL/C_EINCL pair doesn't show up in sorted order. Thus, when wee see them, we might not know enough info to process them. Thus, we'll be saving them into a table (inclTable) and postpone their processing. */ record_include_begin (cs); break; case C_EINCL : /* end of include file */ /* see the comment after case C_BINCL. */ record_include_end (cs); break; case C_BLOCK : if (STREQ (cs->c_name, ".bb")) { depth++; new = push_context (depth, cs->c_value); } else if (STREQ (cs->c_name, ".eb")) { new = pop_context (); if (depth != new->depth) error ("Invalid symbol data: .bb/.eb symbol mismatch at symbol %d.", symnum); depth--; if (local_symbols && context_stack_depth > 0) { /* Make a block for the local symbols within. */ finish_block (new->name, &local_symbols, new->old_blocks, new->start_addr, cs->c_value, objfile); } local_symbols = new->locals; } break; default : process_xcoff_symbol (cs, objfile); break; } } /* while */ if (last_source_file) { end_symtab (cur_src_end_addr, 1, 0, objfile, textsec->target_index); end_stabs (); } free (symtbl); current_objfile = NULL; /* Record the toc offset value of this symbol table into ldinfo structure. If no XMC_TC0 is found, toc_offset should be zero. Another place to obtain this information would be file auxiliary header. */ #ifndef FAKING_RS6000 xcoff_add_toc_to_loadinfo (toc_offset); #endif } #define SYMBOL_DUP(SYMBOL1, SYMBOL2) \ (SYMBOL2) = (struct symbol *) \ obstack_alloc (&objfile->symbol_obstack, sizeof (struct symbol)); \ *(SYMBOL2) = *(SYMBOL1); #define SYMNAME_ALLOC(NAME, ALLOCED) \ (ALLOCED) ? (NAME) : obstack_copy0 (&objfile->symbol_obstack, (NAME), strlen (NAME)); /* process one xcoff symbol. */ static struct symbol * process_xcoff_symbol (cs, objfile) register struct coff_symbol *cs; struct objfile *objfile; { struct symbol onesymbol; register struct symbol *sym = &onesymbol; struct symbol *sym2 = NULL; struct type *ttype; char *name, *pp, *qq; int struct_and_type_combined; int nameless; name = cs->c_name; if (name[0] == '.') ++name; memset (sym, '\0', sizeof (struct symbol)); /* default assumptions */ SYMBOL_VALUE (sym) = cs->c_value; SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; SYMBOL_SECTION (sym) = cs->c_secnum; if (ISFCN (cs->c_type)) { /* At this point, we don't know the type of the function and assume it is int. This will be patched with the type from its stab entry later on in patch_block_stabs () */ SYMBOL_NAME (sym) = SYMNAME_ALLOC (name, symname_alloced); SYMBOL_TYPE (sym) = lookup_function_type (lookup_fundamental_type (objfile, FT_INTEGER)); SYMBOL_CLASS (sym) = LOC_BLOCK; SYMBOL_DUP (sym, sym2); if (cs->c_sclass == C_EXT) add_symbol_to_list (sym2, &global_symbols); else if (cs->c_sclass == C_HIDEXT || cs->c_sclass == C_STAT) add_symbol_to_list (sym2, &file_symbols); } else { /* in case we can't figure out the type, default is `int'. */ SYMBOL_TYPE (sym) = lookup_fundamental_type (objfile, FT_INTEGER); switch (cs->c_sclass) { #if 0 case C_FUN: if (fcn_cs_saved.c_sclass == C_EXT) add_stab_to_list (name, &global_stabs); else add_stab_to_list (name, &file_stabs); break; #endif case C_GSYM: add_stab_to_list (name, &global_stabs); break; case C_BCOMM: common_block_start (cs->c_name, objfile); break; case C_ECOMM: common_block_end (objfile); break; default: complain (&storclass_complaint, cs->c_sclass); /* FALLTHROUGH */ case C_DECL: case C_PSYM: case C_RPSYM: case C_ECOML: sym = define_symbol (cs->c_value, cs->c_name, 0, 0, objfile); if (sym != NULL) { SYMBOL_SECTION (sym) = cs->c_secnum; } return sym; case C_STSYM: /* For xlc (not GCC), the 'V' symbol descriptor is used for all statics and we need to distinguish file-scope versus function-scope using within_function. We do this by changing the string we pass to define_symbol to use 'S' where we need to, which is not necessarily super-clean, but seems workable enough. */ if (*name == ':' || (pp = (char *) strchr(name, ':')) == NULL) return NULL; ++pp; if (*pp == 'V' && !within_function) *pp = 'S'; sym = define_symbol (cs->c_value, cs->c_name, 0, 0, objfile); if (sym != NULL) { SYMBOL_VALUE (sym) += static_block_base; SYMBOL_SECTION (sym) = static_block_section; } return sym; case C_LSYM: sym = define_symbol (cs->c_value, cs->c_name, 0, N_LSYM, objfile); if (sym != NULL) { SYMBOL_SECTION (sym) = cs->c_secnum; } return sym; case C_AUTO: SYMBOL_CLASS (sym) = LOC_LOCAL; SYMBOL_NAME (sym) = SYMNAME_ALLOC (name, symname_alloced); SYMBOL_SECTION (sym) = cs->c_secnum; SYMBOL_DUP (sym, sym2); add_symbol_to_list (sym2, &local_symbols); break; case C_EXT: SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_NAME (sym) = SYMNAME_ALLOC (name, symname_alloced); SYMBOL_SECTION (sym) = cs->c_secnum; SYMBOL_DUP (sym, sym2); add_symbol_to_list (sym2, &global_symbols); break; case C_STAT: SYMBOL_CLASS (sym) = LOC_STATIC; SYMBOL_NAME (sym) = SYMNAME_ALLOC (name, symname_alloced); SYMBOL_SECTION (sym) = cs->c_secnum; SYMBOL_DUP (sym, sym2); add_symbol_to_list (sym2, within_function ? &local_symbols : &file_symbols); break; case C_REG: printf_unfiltered ("ERROR! C_REG is not fully implemented!\n"); SYMBOL_CLASS (sym) = LOC_REGISTER; SYMBOL_NAME (sym) = SYMNAME_ALLOC (name, symname_alloced); SYMBOL_SECTION (sym) = cs->c_secnum; SYMBOL_DUP (sym, sym2); add_symbol_to_list (sym2, &local_symbols); break; case C_RSYM: pp = (char*) strchr (name, ':'); if (pp) { sym = define_symbol (cs->c_value, cs->c_name, 0, 0, objfile); if (sym != NULL) SYMBOL_SECTION (sym) = cs->c_secnum; return sym; } else { complain (&rsym_complaint, name); return NULL; } } } return sym2; } /* Set *SYMBOL to symbol number symno in symtbl. */ static void read_symbol (symbol, symno) struct internal_syment *symbol; int symno; { if (symno < 0 || symno >= symtbl_num_syms) { static struct complaint msg = {"Invalid symbol offset", 0, 0}; complain (&msg); symbol->n_value = 0; symbol->n_scnum = -1; return; } bfd_coff_swap_sym_in (symfile_bfd, symtbl + (symno*local_symesz), symbol); } /* Get value corresponding to symbol number symno in symtbl. */ static int read_symbol_nvalue (symno) int symno; { struct internal_syment symbol[1]; read_symbol (symbol, symno); return symbol->n_value; } /* Find the address of the function corresponding to symno, where symno is the symbol pointed to by the linetable. */ static int read_symbol_lineno (symno) int symno; { struct internal_syment symbol[1]; union internal_auxent main_aux[1]; /* Note that just searching for a short distance (e.g. 50 symbols) is not enough, at least in the following case. .extern foo [many .stabx entries] [a few functions, referring to foo] .globl foo .bf What happens here is that the assembler moves the .stabx entries to right before the ".bf" for foo, but the symbol for "foo" is before all the stabx entries. See PR gdb/2222. */ while (symno < symtbl_num_syms) { bfd_coff_swap_sym_in (symfile_bfd, symtbl + (symno*local_symesz), symbol); if (symbol->n_sclass == C_FCN && STREQ (symbol->n_name, ".bf")) goto gotit; symno += symbol->n_numaux+1; } complain (&bf_notfound_complaint); return 0; gotit: /* take aux entry and return its lineno */ symno++; bfd_coff_swap_aux_in (symfile_bfd, symtbl+(symno*local_symesz), symbol->n_type, symbol->n_sclass, 0, symbol->n_numaux, main_aux); return main_aux->x_sym.x_misc.x_lnsz.x_lnno; } /* Support for line number handling */ /* This function is called for every section; it finds the outer limits * of the line table (minimum and maximum file offset) so that the * mainline code can read the whole thing for efficiency. */ static void find_linenos(abfd, asect, vpinfo) bfd *abfd; sec_ptr asect; PTR vpinfo; { struct coff_symfile_info *info; int size, count; file_ptr offset, maxoff; count = asect->lineno_count; if (!STREQ (asect->name, ".text") || count == 0) return; size = count * coff_data (symfile_bfd)->local_linesz; info = (struct coff_symfile_info *)vpinfo; offset = asect->line_filepos; maxoff = offset + size; if (offset < info->min_lineno_offset || info->min_lineno_offset == 0) info->min_lineno_offset = offset; if (maxoff > info->max_lineno_offset) info->max_lineno_offset = maxoff; } /* Read in all the line numbers for fast lookups later. Leave them in external (unswapped) format in memory; we'll swap them as we enter them into GDB's data structures. */ static int init_lineno (abfd, offset, size) bfd *abfd; file_ptr offset; int size; { int val; free_linetab (); if (bfd_seek(abfd, offset, L_SET) < 0) return -1; linetab = (char *) xmalloc(size); val = bfd_read(linetab, 1, size, abfd); if (val != size) return -1; linetab_offset = offset; linetab_size = size; return 0; } static void free_linetab () { if (linetab) free (linetab); linetab = NULL; } static void xcoff_new_init (objfile) struct objfile *objfile; { } /* xcoff_symfile_init() is the xcoff-specific initialization routine for reading symbols. It is passed an objfile which contains, among other things, the BFD for the file whose symbols are being read, and a slot for a pointer to "private data" which we fill with cookies and other treats for xcoff_symfile_read(). We will only be called if this is an XCOFF or XCOFF-like file. BFD handles figuring out the format of the file, and code in symfile.c uses BFD's determination to vector to us. The ultimate result is a new symtab (or, FIXME, eventually a psymtab). */ static void xcoff_symfile_init (objfile) struct objfile *objfile; { bfd *abfd = objfile->obfd; /* Allocate struct to keep track of the symfile */ objfile -> sym_private = xmmalloc (objfile -> md, sizeof (struct coff_symfile_info)); init_entry_point_info (objfile); } /* Perform any local cleanups required when we are done with a particular objfile. I.E, we are in the process of discarding all symbol information for an objfile, freeing up all memory held for it, and unlinking the objfile struct from the global list of known objfiles. */ static void xcoff_symfile_finish (objfile) struct objfile *objfile; { if (objfile -> sym_private != NULL) { mfree (objfile -> md, objfile -> sym_private); } /* Start with a fresh include table for the next objfile. */ if (inclTable) { free (inclTable); inclTable = NULL; } inclIndx = inclLength = inclDepth = 0; } static int init_stringtab(abfd, offset, objfile) bfd *abfd; file_ptr offset; struct objfile *objfile; { long length; int val; unsigned char lengthbuf[4]; if (bfd_seek(abfd, offset, L_SET) < 0) return -1; val = bfd_read((char *)lengthbuf, 1, sizeof lengthbuf, abfd); length = bfd_h_get_32(abfd, lengthbuf); /* If no string table is needed, then the file may end immediately after the symbols. Just return with `strtbl' set to null. */ if (val != sizeof length || length < sizeof length) return 0; /* Allocate string table from symbol_obstack. We will need this table as long as we have its symbol table around. */ strtbl = (char*) obstack_alloc (&objfile->symbol_obstack, length); if (strtbl == NULL) return -1; memcpy(strtbl, &length, sizeof length); if (length == sizeof length) return 0; val = bfd_read(strtbl + sizeof length, 1, length - sizeof length, abfd); if (val != length - sizeof length || strtbl[length - 1] != '\0') return -1; return 0; } static int init_debugsection(abfd) bfd *abfd; { register sec_ptr secp; bfd_size_type length; if (debugsec) { free(debugsec); debugsec = NULL; } secp = bfd_get_section_by_name(abfd, ".debug"); if (!secp) return 0; if (!(length = bfd_section_size(abfd, secp))) return 0; debugsec = (char *) xmalloc ((unsigned)length); if (debugsec == NULL) return -1; if (!bfd_get_section_contents(abfd, secp, debugsec, (file_ptr) 0, length)) { printf_unfiltered ("Can't read .debug section from symbol file\n"); return -1; } return 0; } static void free_debugsection() { if (debugsec) free(debugsec); debugsec = NULL; } /* xcoff version of symbol file read. */ static void xcoff_symfile_read (objfile, section_offset, mainline) struct objfile *objfile; struct section_offsets *section_offset; int mainline; { int num_symbols; /* # of symbols */ file_ptr symtab_offset; /* symbol table and */ file_ptr stringtab_offset; /* string table file offsets */ int val; bfd *abfd; struct coff_symfile_info *info; char *name; struct cleanup *back_to = make_cleanup (null_cleanup, 0); info = (struct coff_symfile_info *) objfile -> sym_private; symfile_bfd = abfd = objfile->obfd; name = objfile->name; num_symbols = bfd_get_symcount (abfd); /* # of symbols */ symtab_offset = obj_sym_filepos (abfd); /* symbol table file offset */ stringtab_offset = symtab_offset + num_symbols * coff_data(abfd)->local_symesz; info->min_lineno_offset = 0; info->max_lineno_offset = 0; bfd_map_over_sections (abfd, find_linenos, info); /* FIXME! This stuff should move into symfile_init */ if (info->min_lineno_offset != 0 && info->max_lineno_offset > info->min_lineno_offset) { /* only read in the line # table if one exists */ make_cleanup (free_linetab, 0); val = init_lineno(abfd, info->min_lineno_offset, (int) (info->max_lineno_offset - info->min_lineno_offset)); if (val < 0) error("\"%s\": error reading line numbers\n", name); } if (num_symbols > 0) { val = init_stringtab(abfd, stringtab_offset, objfile); if (val < 0) { error ("\"%s\": can't get string table", name); } if (init_debugsection(abfd) < 0) { error ("Error reading .debug section of `%s'\n", name); } } /* Position to read the symbol table. Do not read it all at once. */ val = bfd_seek(abfd, symtab_offset, L_SET); if (val < 0) perror_with_name(name); if (bfd_tell(abfd) != symtab_offset) fatal("bfd? BFD!"); init_minimal_symbol_collection (); make_cleanup (discard_minimal_symbols, 0); #ifndef FAKING_RS6000 /* Initialize load info structure. */ if (mainline) xcoff_init_loadinfo (); #endif /* Now that the executable file is positioned at symbol table, process it and define symbols accordingly. */ read_xcoff_symtab(objfile, num_symbols); /* Free debug section. */ free_debugsection (); /* Sort symbols alphabetically within each block. */ { struct symtab *s; for (s = objfile -> symtabs; s != NULL; s = s -> next) { sort_symtab_syms (s); } } /* Install any minimal symbols that have been collected as the current minimal symbols for this objfile. */ install_minimal_symbols (objfile); do_cleanups (back_to); } /* XCOFF-specific parsing routine for section offsets. */ static int largest_section; static void note_one_section (abfd, asect, ptr) bfd *abfd; asection *asect; PTR ptr; { if (asect->target_index > largest_section) largest_section = asect->target_index; } static struct section_offsets * xcoff_symfile_offsets (objfile, addr) struct objfile *objfile; CORE_ADDR addr; { struct section_offsets *section_offsets; int i; largest_section = 0; bfd_map_over_sections (objfile->obfd, note_one_section, NULL); objfile->num_sections = largest_section + 1; section_offsets = (struct section_offsets *) obstack_alloc (&objfile -> psymbol_obstack, sizeof (struct section_offsets) + sizeof (section_offsets->offsets) * (objfile->num_sections)); /* syms_from_objfile kindly subtracts from addr the bfd_section_vma of the .text section. This strikes me as wrong--whether the offset to be applied to symbol reading is relative to the start address of the section depends on the symbol format. In any event, this whole "addr" concept is pretty broken (it doesn't handle any section but .text sensibly), so just ignore the addr parameter and use 0. That matches the fact that xcoff_symfile_read ignores the section_offsets). */ for (i = 0; i < objfile->num_sections; i++) ANOFFSET (section_offsets, i) = 0; return section_offsets; } /* Register our ability to parse symbols for xcoff BFD files. */ static struct sym_fns xcoff_sym_fns = { /* Because the bfd uses coff_flavour, we need to specially kludge the flavour. FIXME: coff and xcoff and fundamentally similar except for debug format, and we should see if we can merge this file with coffread.c. For example, the extra storage classes used for stabs could presumably be recognized in any COFF file. */ (enum bfd_flavour)-1, xcoff_new_init, /* sym_new_init: init anything gbl to entire symtab */ xcoff_symfile_init, /* sym_init: read initial info, setup for sym_read() */ xcoff_symfile_read, /* sym_read: read a symbol file into symtab */ xcoff_symfile_finish, /* sym_finish: finished with file, cleanup */ xcoff_symfile_offsets, /* sym_offsets: xlate offsets ext->int form */ NULL /* next: pointer to next struct sym_fns */ }; void _initialize_xcoffread () { add_symtab_fns(&xcoff_sym_fns); /* Initialize symbol template later used for arguments. */ SYMBOL_NAME (&parmsym) = ""; SYMBOL_INIT_LANGUAGE_SPECIFIC (&parmsym, language_c); SYMBOL_NAMESPACE (&parmsym) = VAR_NAMESPACE; SYMBOL_CLASS (&parmsym) = LOC_ARG; /* Its other fields are zero, or are filled in later. */ } gdb-4.13/gdb/xcoffsolib.c 666 34562 1752 11770 5465306126 13630 0ustar fnfcygnus/* Shared library support for RS/6000 (xcoff) object files, for GDB. Copyright 1991, 1992 Free Software Foundation. Contributed by IBM Corporation. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include "defs.h" #include "bfd.h" #include "xcoffsolib.h" #ifdef SOLIB_SYMBOLS_MANUAL extern struct symtab *current_source_symtab; extern int current_source_line; /* The real work of adding a shared library file to the symtab and the section list. */ void solib_add (arg_string, from_tty, target) char *arg_string; int from_tty; struct target_ops *target; { char *val; struct vmap *vp = vmap; struct objfile *obj; struct symtab *saved_symtab; int saved_line; int loaded = 0; /* true if any shared obj loaded */ int matched = 0; /* true if any shared obj matched */ if (arg_string == 0) re_comp ("."); else if (val = (char *) re_comp (arg_string)) { error ("Invalid regexp: %s", val); } if (!vp || !vp->nxt) return; /* save current symbol table and line number, in case they get changed in symbol loading process. */ saved_symtab = current_source_symtab; saved_line = current_source_line; /* skip over the first vmap, it is the main program, always loaded. */ vp = vp->nxt; for (; vp; vp = vp->nxt) { if (re_exec (vp->name) || (*vp->member && re_exec (vp->member))) { matched = 1; /* if already loaded, continue with the next one. */ if (vp->loaded) { printf_unfiltered ("%s%s%s%s: already loaded.\n", *vp->member ? "(" : "", vp->member, *vp->member ? ") " : "", vp->name); continue; } printf_unfiltered ("Loading %s%s%s%s...", *vp->member ? "(" : "", vp->member, *vp->member ? ") " : "", vp->name); gdb_flush (gdb_stdout); /* This is gross and doesn't work. If this code is re-enabled, just stick a objfile member into the struct vmap; that's the way solib.c (for SunOS/SVR4) does it. */ obj = lookup_objfile_bfd (vp->bfd); if (!obj) { warning ("\nObj structure for the shared object not found. Loading failed."); continue; } syms_from_objfile (obj, 0, 0, 0); new_symfile_objfile (obj, 0, 0); vmap_symtab (vp, 0, 0); printf_unfiltered ("Done.\n"); loaded = vp->loaded = 1; } } /* if any shared object is loaded, then misc_func_vector needs sorting. */ if (loaded) { #if 0 sort_misc_function_vector (); #endif current_source_symtab = saved_symtab; current_source_line = saved_line; /* Getting new symbols might change our opinion about what is frameless. Is this correct?? FIXME. */ /* reinit_frame_cache(); */ } else if (!matched) printf_unfiltered ("No matching shared object found.\n"); } #endif /* SOLIB_SYMBOLS_MANUAL */ /* Return the module name of a given text address. Note that returned buffer is not persistent. */ char * pc_load_segment_name (addr) CORE_ADDR addr; { static char buffer [BUFSIZ]; struct vmap *vp = vmap; buffer [0] = buffer [1] = '\0'; for (; vp; vp = vp->nxt) if (vp->tstart <= addr && addr < vp->tend) { if (*vp->member) { buffer [0] = '('; strcat (&buffer[1], vp->member); strcat (buffer, ")"); } strcat (buffer, vp->name); return buffer; } return "(unknown load module)"; } solib_info (ldi) register struct ld_info *ldi; { struct vmap *vp = vmap; if (!vp || !vp->nxt) { printf_unfiltered("No shared libraries loaded at this time.\n"); return; } /* skip over the first vmap, it is the main program, always loaded. */ vp = vp->nxt; printf_unfiltered ("\ Text Range Data Range Syms Shared Object Library\n"); for (; vp; vp = vp->nxt) { printf_unfiltered ("0x%08x-0x%08x 0x%08x-0x%08x %s %s%s%s%s\n", vp->tstart, vp->tend, vp->dstart, vp->dend, vp->loaded ? "Yes" : "No ", *vp->member ? "(" : "", vp->member, *vp->member ? ") " : "", vp->name); } } #ifdef SOLIB_SYMBOLS_MANUAL void sharedlibrary_command (args, from_tty) char *args; int from_tty; { dont_repeat(); solib_add (args, from_tty, (struct target_ops *)0); } #endif /* SOLIB_SYMBOLS_MANUAL */ void _initialize_solib() { #ifdef SOLIB_SYMBOLS_MANUAL add_com("sharedlibrary", class_files, sharedlibrary_command, "Load shared object library symbols for files matching REGEXP."); #endif add_info("sharedlibrary", solib_info, "Status of loaded shared object libraries"); } gdb-4.13/gdb/xcoffsolib.h 666 34562 1752 4057 5560320142 13603 0ustar fnfcygnus/* Data structures for RS/6000 shared libraries, for GDB. Copyright 1991, 1992, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The vmap struct is used to describe the virtual address space of the target we are manipulating. The first entry is always the "exec" file. Subsequent entries correspond to other objects that are mapped into the address space of a process created from the "exec" file. These are either in response to exec()ing the file, in which case all shared libraries are loaded, or a "load" system call, followed by the user's issuance of a "load" command. */ struct vmap { struct vmap *nxt; /* ptr to next in chain */ bfd *bfd; /* BFD for mappable object library */ char *name; /* ptr to object file name */ char *member; /* ptr to member name */ CORE_ADDR tstart; /* virtual addr where member is mapped */ CORE_ADDR tend; /* virtual upper bound of member */ CORE_ADDR tadj; /* heuristically derived adjustment */ CORE_ADDR dstart; /* virtual address of data start */ CORE_ADDR dend; /* vitrual address of data end */ /* This is NULL for the exec-file. */ struct objfile *objfile; unsigned loaded:1; /* True if symbols are loaded */ unsigned padding:15; }; struct vmap_and_bfd { bfd *pbfd; struct vmap *pvmap; }; extern struct vmap *vmap; void add_text_to_loadinfo PARAMS ((CORE_ADDR textaddr, CORE_ADDR dataaddr)); gdb-4.13/gdb/z8k-tdep.c 666 34562 1752 23344 5472012601 13126 0ustar fnfcygnus/* Target-machine dependent code for Zilog Z8000, for GDB. Copyright (C) 1992,1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Contributed by Steve Chamberlain sac@cygnus.com */ #include "defs.h" #include "frame.h" #include "obstack.h" #include "symtab.h" #include "gdbcmd.h" #include "gdbtypes.h" #include "dis-asm.h" /* Return the saved PC from this frame. If the frame has a memory copy of SRP_REGNUM, use that. If not, just use the register SRP_REGNUM itself. */ CORE_ADDR frame_saved_pc (frame) FRAME frame; { return (read_memory_pointer (frame->frame + (BIG ? 4 : 2))); } #define IS_PUSHL(x) (BIG ? ((x & 0xfff0) == 0x91e0):((x & 0xfff0) == 0x91F0)) #define IS_PUSHW(x) (BIG ? ((x & 0xfff0) == 0x93e0):((x & 0xfff0)==0x93f0)) #define IS_MOVE_FP(x) (BIG ? x == 0xa1ea : x == 0xa1fa) #define IS_MOV_SP_FP(x) (BIG ? x == 0x94ea : x == 0x0d76) #define IS_SUB2_SP(x) (x==0x1b87) #define IS_MOVK_R5(x) (x==0x7905) #define IS_SUB_SP(x) ((x & 0xffff) == 0x020f) #define IS_PUSH_FP(x) (BIG ? (x == 0x93ea) : (x == 0x93fa)) /* work out how much local space is on the stack and return the pc pointing to the first push */ static CORE_ADDR skip_adjust (pc, size) CORE_ADDR pc; int *size; { *size = 0; if (IS_PUSH_FP (read_memory_short (pc)) && IS_MOV_SP_FP (read_memory_short (pc + 2))) { /* This is a function with an explict frame pointer */ pc += 4; *size += 2; /* remember the frame pointer */ } /* remember any stack adjustment */ if (IS_SUB_SP (read_memory_short (pc))) { *size += read_memory_short (pc + 2); pc += 4; } return pc; } int examine_frame (pc, regs, sp) CORE_ADDR pc; struct frame_saved_regs *regs; CORE_ADDR sp; { int w = read_memory_short (pc); int offset = 0; int regno; for (regno = 0; regno < NUM_REGS; regno++) regs->regs[regno] = 0; while (IS_PUSHW (w) || IS_PUSHL (w)) { /* work out which register is being pushed to where */ if (IS_PUSHL (w)) { regs->regs[w & 0xf] = offset; regs->regs[(w & 0xf) + 1] = offset + 2; offset += 4; } else { regs->regs[w & 0xf] = offset; offset += 2; } pc += 2; w = read_memory_short (pc); } if (IS_MOVE_FP (w)) { /* We know the fp */ } else if (IS_SUB_SP (w)) { /* Subtracting a value from the sp, so were in a function which needs stack space for locals, but has no fp. We fake up the values as if we had an fp */ regs->regs[FP_REGNUM] = sp; } else { /* This one didn't have an fp, we'll fake it up */ regs->regs[SP_REGNUM] = sp; } /* stack pointer contains address of next frame */ /* regs->regs[fp_regnum()] = fp;*/ regs->regs[SP_REGNUM] = sp; return pc; } CORE_ADDR z8k_skip_prologue (start_pc) CORE_ADDR start_pc; { struct frame_saved_regs dummy; return examine_frame (start_pc, &dummy, 0); } CORE_ADDR addr_bits_remove (x) CORE_ADDR x; { return x & PTR_MASK; } read_memory_pointer (x) CORE_ADDR x; { return read_memory_integer (ADDR_BITS_REMOVE (x), BIG ? 4 : 2); } FRAME_ADDR frame_chain (thisframe) FRAME thisframe; { if (thisframe->prev == 0) { /* This is the top of the stack, let's get the sp for real */ } if (!inside_entry_file ((thisframe)->pc)) { return read_memory_pointer ((thisframe)->frame); } return 0; } init_frame_pc () { abort (); } /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ void get_frame_saved_regs (frame_info, frame_saved_regs) struct frame_info *frame_info; struct frame_saved_regs *frame_saved_regs; { CORE_ADDR pc; int w; memset (frame_saved_regs, '\0', sizeof (*frame_saved_regs)); pc = get_pc_function_start (frame_info->pc); /* wander down the instruction stream */ examine_frame (pc, frame_saved_regs, frame_info->frame); } void z8k_push_dummy_frame () { abort (); } int print_insn (memaddr, stream) CORE_ADDR memaddr; GDB_FILE *stream; { disassemble_info info; GDB_INIT_DISASSEMBLE_INFO(info, stream); if (BIG) { return print_insn_z8001 ((bfd_vma) memaddr, &info); } else { return print_insn_z8002 ((bfd_vma) memaddr, &info); } } /* Fetch the instruction at ADDR, returning 0 if ADDR is beyond LIM or is not the address of a valid instruction, the address of the next instruction beyond ADDR otherwise. *PWORD1 receives the first word of the instruction.*/ CORE_ADDR NEXT_PROLOGUE_INSN (addr, lim, pword1) CORE_ADDR addr; CORE_ADDR lim; short *pword1; { char buf[2]; if (addr < lim + 8) { read_memory (addr, buf, 2); *pword1 = extract_signed_integer (buf, 2); return addr + 2; } return 0; } /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. We cache the result of doing this in the frame_cache_obstack, since it is fairly expensive. */ void frame_find_saved_regs (fip, fsrp) struct frame_info *fip; struct frame_saved_regs *fsrp; { int locals; CORE_ADDR pc; CORE_ADDR adr; int i; memset (fsrp, 0, sizeof *fsrp); pc = skip_adjust (get_pc_function_start (fip->pc), &locals); { adr = fip->frame - locals; for (i = 0; i < 8; i++) { int word = read_memory_short (pc); pc += 2; if (IS_PUSHL (word)) { fsrp->regs[word & 0xf] = adr; fsrp->regs[(word & 0xf) + 1] = adr - 2; adr -= 4; } else if (IS_PUSHW (word)) { fsrp->regs[word & 0xf] = adr; adr -= 2; } else break; } } fsrp->regs[PC_REGNUM] = fip->frame + 4; fsrp->regs[FP_REGNUM] = fip->frame; } int saved_pc_after_call () { return addr_bits_remove (read_memory_integer (read_register (SP_REGNUM), PTR_SIZE)); } extract_return_value(type, regbuf, valbuf) struct type *type; char *regbuf; char *valbuf; { int b; int len = TYPE_LENGTH(type); for (b = 0; b < len; b += 2) { int todo = len - b; if (todo > 2) todo = 2; memcpy(valbuf + b, regbuf + b, todo); } } void write_return_value(type, valbuf) struct type *type; char *valbuf; { int reg; int len; for (len = 0; len < TYPE_LENGTH(type); len += 2) { write_register_bytes(REGISTER_BYTE(len /2 + 2), valbuf + len, 2); } } void store_struct_return(addr, sp) CORE_ADDR addr; CORE_ADDR sp; { write_register(2, addr); } void print_register_hook (regno) int regno; { if ((regno & 1) == 0 && regno < 16) { unsigned short l[2]; read_relative_register_raw_bytes (regno, (char *) (l + 0)); read_relative_register_raw_bytes (regno + 1, (char *) (l + 1)); printf_unfiltered ("\t"); printf_unfiltered ("%04x%04x", l[0], l[1]); } if ((regno & 3) == 0 && regno < 16) { unsigned short l[4]; read_relative_register_raw_bytes (regno, (char *) (l + 0)); read_relative_register_raw_bytes (regno + 1, (char *) (l + 1)); read_relative_register_raw_bytes (regno + 2, (char *) (l + 2)); read_relative_register_raw_bytes (regno + 3, (char *) (l + 3)); printf_unfiltered ("\t"); printf_unfiltered ("%04x%04x%04x%04x", l[0], l[1], l[2], l[3]); } if (regno == 15) { unsigned short rval; int i; read_relative_register_raw_bytes (regno, (char *) (&rval)); printf_unfiltered ("\n"); for (i = 0; i < 10; i += 2) { printf_unfiltered ("(sp+%d=%04x)", i, read_memory_short (rval + i)); } } } void z8k_pop_frame () { } struct cmd_list_element *setmemorylist; void z8k_set_pointer_size (newsize) int newsize; { static int oldsize = 0; if (oldsize != newsize) { printf_unfiltered ("pointer size set to %d bits\n", newsize); oldsize = newsize; if (newsize == 32) { BIG = 1; } else { BIG = 0; } _initialize_gdbtypes (); } } static void segmented_command (args, from_tty) char *args; int from_tty; { z8k_set_pointer_size (32); } static void unsegmented_command (args, from_tty) char *args; int from_tty; { z8k_set_pointer_size (16); } static void set_memory (args, from_tty) char *args; int from_tty; { printf_unfiltered ("\"set memory\" must be followed by the name of a memory subcommand.\n"); help_list (setmemorylist, "set memory ", -1, gdb_stdout); } void _initialize_z8ktdep () { add_prefix_cmd ("memory", no_class, set_memory, "set the memory model", &setmemorylist, "set memory ", 0, &setlist); add_cmd ("segmented", class_support, segmented_command, "Set segmented memory model.", &setmemorylist); add_cmd ("unsegmented", class_support, unsegmented_command, "Set unsegmented memory model.", &setmemorylist); } gdb-4.13/gdb/config/ 777 34562 1752 0 5623250516 12462 5ustar fnfcygnusgdb-4.13/gdb/config/a29k/ 777 34562 1752 0 5623250522 13225 5ustar fnfcygnusgdb-4.13/gdb/config/a29k/a29k-kern.mt 666 34562 1752 1053 5355704124 15355 0ustar fnfcygnus# Target: Remote AMD 29000 that runs Unix kernel on NYU Ultra3 processor board. # This builds a gdb that should run on a host (we use sun3os4) that # then communicates over the serial line to either an Adapt or MiniMon, # for use in debugging Unix kernels. # As compared to ordinary remote 29K debugging, this changes the register # numbering a bit, to hold kernel regs, and adds support for looking at # the upage. TDEPFILES= exec.o a29k-pinsn.o a29k-tdep.o remote-mm.o remote-adapt.o TM_FILE= tm-ultra3.h MT_CFLAGS = -DKERNEL_DEBUGGING -DNO_HIF_SUPPORT gdb-4.13/gdb/config/a29k/a29k-udi.mt 666 34562 1752 417 5466021631 15160 0ustar fnfcygnus# Target: AMD 29000 on EB29K board over a serial line. TDEPFILES= exec.o a29k-pinsn.o remote-udi.o a29k-tdep.o udip2soc.o udr.o \ udi2go32.o REMOTE_O= TM_FILE= tm-a29k.h # The following is for ../include/a.out.encap.h MT_CFLAGS = -Da29k -DREMOTE -DAMD_COFF $(HOST_IPC) gdb-4.13/gdb/config/a29k/a29k.mt 666 34562 1752 564 5405440525 14404 0ustar fnfcygnus# Target: AMD 29000. # These defines should give you a gdb running on ? (sun3os4 if you like) # that will be able to communicate over a serial line with either an # EB board (remote-eb.c), # Adapt (remote-adapt.c), # Or run native on an Ultracomputer. TDEPFILES= exec.o a29k-pinsn.o a29k-tdep.o remote-eb.o remote-adapt.o TM_FILE= tm-a29k.h MT_CFLAGS = -DNO_HIF_SUPPORT gdb-4.13/gdb/config/a29k/nm-ultra3.h 666 34562 1752 2170 5355704131 15302 0ustar fnfcygnus/* Host definitions for GDB running on an a29k NYU Ultracomputer Copyright (C) 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. Contributed by David Wood (wood@lab.ultra.nyu.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* If we ever *do* end up using the standard fetch_inferior_registers, this is the right value for U_REGS_OFFSET. */ #define U_REGS_OFFSET 0 /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS gdb-4.13/gdb/config/a29k/tm-a29k.h 666 34562 1752 70340 5514725360 14674 0ustar fnfcygnus/* Parameters for target machine AMD 29000, for GDB, the GNU debugger. Copyright 1990, 1991, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Jim Kingdon. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Parameters for an EB29K (a board which plugs into a PC and is accessed through EBMON software running on the PC, which we use as we'd use a remote stub (see remote-eb.c). If gdb is ported to other a29k machines/systems, the machine/system-specific parts should be removed from this file (a la tm-m68k.h). */ /* Byte order is configurable, but this machine runs big-endian. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* Floating point uses IEEE representations. */ #define IEEE_FLOAT /* Recognize our magic number. */ #define BADMAG(x) ((x).f_magic != 0572) /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(pc) \ { pc = skip_prologue (pc); } CORE_ADDR skip_prologue (); /* Immediately after a function call, return the saved pc. Can't go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) ((frame->flags & TRANSPARENT) \ ? read_register (TPC_REGNUM) \ : read_register (LR0_REGNUM)) /* I'm not sure about the exact value of this, but based on looking at the stack pointer when we get to main this seems to be right. This is the register stack; We call it "CONTROL" in GDB for consistency with Pyramid. */ /* I suspect this is obsolete, just like STACK_END_ADDR. */ #define CONTROL_END_ADDR 0x80200000 /* Stack grows downward. */ #define INNER_THAN < /* Stack must be aligned on 32-bit word boundaries. */ #define STACK_ALIGN(ADDR) (((ADDR) + 3) & ~3) /* Sequence of bytes for breakpoint instruction. */ /* ASNEQ 0x50, gr1, gr1 The trap number 0x50 is chosen arbitrarily. We let the command line (or previously included files) override this setting. */ #ifndef BREAKPOINT #if TARGET_BYTE_ORDER == BIG_ENDIAN #define BREAKPOINT {0x72, 0x50, 0x01, 0x01} #else /* Target is little-endian. */ #define BREAKPOINT {0x01, 0x01, 0x50, 0x72} #endif /* Target is little-endian. */ #endif /* BREAKPOINT */ /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. On the a29k, this is a "jmpi l0" instruction. */ #define ABOUT_TO_RETURN(pc) \ ((read_memory_integer (pc, 4) & 0xff0000ff) == 0xc0000080) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Allow the register declarations here to be overridden for remote kernel debugging. */ #if !defined (REGISTER_NAMES) /* Number of machine registers */ #define NUM_REGS 205 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. FIXME, add floating point registers and support here. Also note that this list does not attempt to deal with kernel debugging (in which the first 32 registers are gr64-gr95). */ #define REGISTER_NAMES \ {"gr96", "gr97", "gr98", "gr99", "gr100", "gr101", "gr102", "gr103", "gr104", \ "gr105", "gr106", "gr107", "gr108", "gr109", "gr110", "gr111", "gr112", \ "gr113", "gr114", "gr115", "gr116", "gr117", "gr118", "gr119", "gr120", \ "gr121", "gr122", "gr123", "gr124", "gr125", "gr126", "gr127", \ "lr0", "lr1", "lr2", "lr3", "lr4", "lr5", "lr6", "lr7", "lr8", "lr9", \ "lr10", "lr11", "lr12", "lr13", "lr14", "lr15", "lr16", "lr17", "lr18", \ "lr19", "lr20", "lr21", "lr22", "lr23", "lr24", "lr25", "lr26", "lr27", \ "lr28", "lr29", "lr30", "lr31", "lr32", "lr33", "lr34", "lr35", "lr36", \ "lr37", "lr38", "lr39", "lr40", "lr41", "lr42", "lr43", "lr44", "lr45", \ "lr46", "lr47", "lr48", "lr49", "lr50", "lr51", "lr52", "lr53", "lr54", \ "lr55", "lr56", "lr57", "lr58", "lr59", "lr60", "lr61", "lr62", "lr63", \ "lr64", "lr65", "lr66", "lr67", "lr68", "lr69", "lr70", "lr71", "lr72", \ "lr73", "lr74", "lr75", "lr76", "lr77", "lr78", "lr79", "lr80", "lr81", \ "lr82", "lr83", "lr84", "lr85", "lr86", "lr87", "lr88", "lr89", "lr90", \ "lr91", "lr92", "lr93", "lr94", "lr95", "lr96", "lr97", "lr98", "lr99", \ "lr100", "lr101", "lr102", "lr103", "lr104", "lr105", "lr106", "lr107", \ "lr108", "lr109", "lr110", "lr111", "lr112", "lr113", "lr114", "lr115", \ "lr116", "lr117", "lr118", "lr119", "lr120", "lr121", "lr122", "lr123", \ "lr124", "lr125", "lr126", "lr127", \ "AI0", "AI1", "AI2", "AI3", "AI4", "AI5", "AI6", "AI7", "AI8", "AI9", \ "AI10", "AI11", "AI12", "AI13", "AI14", "AI15", "FP", \ "bp", "fc", "cr", "q", \ "vab", "ops", "cps", "cfg", "cha", "chd", "chc", "rbp", "tmc", "tmr", \ "pc0", "pc1", "pc2", "mmu", "lru", "fpe", "inte", "fps", "exo", "gr1", \ "alu", "ipc", "ipa", "ipb" } /* * Converts an sdb register number to an internal gdb register number. * Currently under epi, gr96->0...gr127->31...lr0->32...lr127->159, or... * gr64->0...gr95->31, lr0->32...lr127->159. */ #define SDB_REG_TO_REGNUM(value) \ (((value) >= 96 && (value) <= 127) ? ((value) - 96) : \ ((value) >= 128 && (value) <= 255) ? ((value) - 128 + LR0_REGNUM) : \ (value)) /* * Provide the processor register numbers of some registers that are * expected/written in instructions that might change under different * register sets. Namely, gcc can compile (-mkernel-registers) so that * it uses gr64-gr95 in stead of gr96-gr127. */ #define MSP_HW_REGNUM 125 /* gr125 */ #define RAB_HW_REGNUM 126 /* gr126 */ /* Convert Processor Special register #x to REGISTER_NAMES register # */ #define SR_REGNUM(x) \ ((x) < 15 ? VAB_REGNUM + (x) \ : (x) >= 128 && (x) < 131 ? IPC_REGNUM + (x) - 128 \ : (x) == 131 ? Q_REGNUM \ : (x) == 132 ? ALU_REGNUM \ : (x) >= 133 && (x) < 136 ? BP_REGNUM + (x) - 133 \ : (x) >= 160 && (x) < 163 ? FPE_REGNUM + (x) - 160 \ : (x) == 164 ? EXO_REGNUM \ : (error ("Internal error in SR_REGNUM"), 0)) #define GR96_REGNUM 0 /* Define the return register separately, so it can be overridden for kernel procedure calling conventions. */ #define RETURN_REGNUM GR96_REGNUM #define GR1_REGNUM 200 /* This needs to be the memory stack pointer, not the register stack pointer, to make call_function work right. */ #define SP_REGNUM MSP_REGNUM #define FP_REGNUM 33 /* lr1 */ /* Return register for transparent calling convention (gr122). */ #define TPC_REGNUM (122 - 96 + GR96_REGNUM) /* Large Return Pointer (gr123). */ #define LRP_REGNUM (123 - 96 + GR96_REGNUM) /* Static link pointer (gr124). */ #define SLP_REGNUM (124 - 96 + GR96_REGNUM) /* Memory Stack Pointer (gr125). */ #define MSP_REGNUM (125 - 96 + GR96_REGNUM) /* Register allocate bound (gr126). */ #define RAB_REGNUM (126 - 96 + GR96_REGNUM) /* Register Free Bound (gr127). */ #define RFB_REGNUM (127 - 96 + GR96_REGNUM) /* Register Stack Pointer. */ #define RSP_REGNUM GR1_REGNUM #define LR0_REGNUM 32 #define BP_REGNUM 177 #define FC_REGNUM 178 #define CR_REGNUM 179 #define Q_REGNUM 180 #define VAB_REGNUM 181 #define OPS_REGNUM (VAB_REGNUM + 1) #define CPS_REGNUM (VAB_REGNUM + 2) #define CFG_REGNUM (VAB_REGNUM + 3) #define CHA_REGNUM (VAB_REGNUM + 4) #define CHD_REGNUM (VAB_REGNUM + 5) #define CHC_REGNUM (VAB_REGNUM + 6) #define RBP_REGNUM (VAB_REGNUM + 7) #define TMC_REGNUM (VAB_REGNUM + 8) #define TMR_REGNUM (VAB_REGNUM + 9) #define NPC_REGNUM (VAB_REGNUM + 10) /* pc0 */ #define PC_REGNUM (VAB_REGNUM + 11) /* pc1 */ #define PC2_REGNUM (VAB_REGNUM + 12) #define MMU_REGNUM (VAB_REGNUM + 13) #define LRU_REGNUM (VAB_REGNUM + 14) #define FPE_REGNUM (VAB_REGNUM + 15) #define INTE_REGNUM (VAB_REGNUM + 16) #define FPS_REGNUM (VAB_REGNUM + 17) #define EXO_REGNUM (VAB_REGNUM + 18) /* gr1 is defined above as 200 = VAB_REGNUM + 19 */ #define ALU_REGNUM (VAB_REGNUM + 20) #define PS_REGNUM ALU_REGNUM #define IPC_REGNUM (VAB_REGNUM + 21) #define IPA_REGNUM (VAB_REGNUM + 22) #define IPB_REGNUM (VAB_REGNUM + 23) #endif /* !defined(REGISTER_NAMES) */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (NUM_REGS * 4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N)*4) /* Number of bytes of storage in the actual machine representation for register N. */ /* All regs are 4 bytes. */ #define REGISTER_RAW_SIZE(N) (4) /* Number of bytes of storage in the program's representation for register N. */ /* All regs are 4 bytes. */ #define REGISTER_VIRTUAL_SIZE(N) (4) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE (4) /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE (4) /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ (((N) == PC_REGNUM || (N) == LRP_REGNUM || (N) == SLP_REGNUM \ || (N) == MSP_REGNUM || (N) == RAB_REGNUM || (N) == RFB_REGNUM \ || (N) == GR1_REGNUM || (N) == FP_REGNUM || (N) == LR0_REGNUM \ || (N) == NPC_REGNUM || (N) == PC2_REGNUM) \ ? lookup_pointer_type (builtin_type_void) : builtin_type_int) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ /* On the a29k the LRP points to the part of the structure beyond the first 16 words. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ write_register (LRP_REGNUM, (ADDR) + 16 * 4); /* Should call_function allocate stack space for a struct return? */ /* On the a29k objects over 16 words require the caller to allocate space. */ #define USE_STRUCT_CONVENTION(gcc_p, type) (TYPE_LENGTH (type) > 16 * 4) /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ { \ int reg_length = TYPE_LENGTH (TYPE); \ if (reg_length > 16 * 4) \ { \ reg_length = 16 * 4; \ read_memory (*((int *)(REGBUF) + LRP_REGNUM), (VALBUF) + 16 * 4, \ TYPE_LENGTH (TYPE) - 16 * 4); \ } \ memcpy ((VALBUF), ((int *)(REGBUF))+RETURN_REGNUM, reg_length); \ } /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ { \ int reg_length = TYPE_LENGTH (TYPE); \ if (reg_length > 16 * 4) \ { \ reg_length = 16 * 4; \ write_memory (read_register (LRP_REGNUM), \ (char *)(VALBUF) + 16 * 4, \ TYPE_LENGTH (TYPE) - 16 * 4); \ } \ write_register_bytes (REGISTER_BYTE (RETURN_REGNUM), (char *)(VALBUF), \ TYPE_LENGTH (TYPE)); \ } /* The a29k user's guide documents well what the stacks look like. But what isn't so clear there is how this interracts with the symbols, or with GDB. In the following saved_msp, saved memory stack pointer (which functions as a memory frame pointer), means either a register containing the memory frame pointer or, in the case of functions with fixed size memory frames (i.e. those who don't use alloca()), the result of the calculation msp + msize. LOC_ARG, LOC_LOCAL - For GCC, these are relative to saved_msp. For high C, these are relative to msp (making alloca impossible). LOC_REGISTER, LOC_REGPARM - The register number is the number at the time the function is running (after the prologue), or in the case of LOC_REGPARM, may be a register number in the range 160-175. The compilers do things like store an argument into memory, and then put out a LOC_ARG for it, or put it into global registers and put out a LOC_REGPARM. Thus is it important to execute the first line of code (i.e. the line of the open brace, i.e. the prologue) of a function before trying to print arguments or anything. The following diagram attempts to depict what is going on in memory (see also the _a29k user's guide_) and also how that interacts with GDB frames. We arbitrarily pick fci->frame to point the same place as the register stack pointer; since we set it ourself in INIT_EXTRA_FRAME_INFO, and access it only through the FRAME_* macros, it doesn't really matter exactly how we do it. However, note that FRAME_FP is used in two ways in GDB: (1) as a "magic cookie" which uniquely identifies frames (even over calls to the inferior), (2) (in PC_IN_CALL_DUMMY [ON_STACK]) as the value of SP_REGNUM before the dummy frame was pushed. These two meanings would be incompatible for the a29k if we defined CALL_DUMMY_LOCATION == ON_STACK (but we don't, so don't worry about it). Also note that "lr1" below, while called a frame pointer in the user's guide, has only one function: To determine whether registers need to be filled in the function epilogue. Consider the code: < call bar> loc1: . . . bar: sub gr1,gr1,rsize_b . . . add mfp,msp,0 sub msp,msp,msize_b . . . < call foo > loc2: . . . foo: sub gr1,gr1,rsize_f . . . add mfp,msp,0 sub msp,msp,msize_f . . . loc3: < suppose the inferior stops here > memory stack register stack | | |____________| | | |____loc1____| +------->|___________| | | ^ | | ^ | | locals_b | | | | | | |____________| | | | | | | | | rsize_b | | | msize_b | | args_to_f | | | | | | |____________| | | | | | |____lr1_____| V | | V | |____loc2____|<----------------+ | +--->|___________|<---------mfp | ^ | | | | ^ | | locals_f | | | | | | | msize_f | |____________| | | | | | | | | | | rsize_f | | | | V | | args | | | | | |___________|pc and ->frame, but all the extra stuff, when called from get_prev_frame_info, that is. */ #define INIT_EXTRA_FRAME_INFO(fromleaf, fci) init_extra_frame_info(fci) void init_extra_frame_info (); #define INIT_FRAME_PC(fromleaf, fci) init_frame_pc(fromleaf, fci) void init_frame_pc (); /* FRAME_CHAIN takes a FRAME and produces the frame's chain-pointer. However, if FRAME_CHAIN_VALID returns zero, it means the given frame is the outermost one and has no caller. */ /* On the a29k, the nominal address of a frame is the address on the register stack of the return address (the one next to the incoming arguments, not down at the bottom so nominal address == stack pointer). GDB expects "nominal address" to equal contents of FP_REGNUM, at least when it comes time to create the innermost frame. However, that doesn't work for us, so when creating the innermost frame we set ->frame ourselves in INIT_EXTRA_FRAME_INFO. */ /* These are mostly dummies for the a29k because INIT_FRAME_PC sets prev->frame instead. */ /* If rsize is zero, we must be at end of stack (or otherwise hosed). If we don't check rsize, we loop forever if we see rsize == 0. */ #define FRAME_CHAIN(thisframe) \ ((thisframe)->rsize == 0 \ ? 0 \ : (thisframe)->frame + (thisframe)->rsize) /* Determine if the frame has a 'previous' and back-traceable frame. */ #define FRAME_IS_UNCHAINED(frame) ((frame)->flags & TRANSPARENT) /* Find the previous frame of a transparent routine. * For now lets not try and trace through a transparent routine (we might * have to assume that all transparent routines are traps). */ #define FIND_PREV_UNCHAINED_FRAME(frame) 0 /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ (FRAMELESS) = frameless_look_for_prologue(FI) /* Saved pc (i.e. return address). */ #define FRAME_SAVED_PC(fraim) \ (read_register_stack_integer ((fraim)->frame + (fraim)->rsize, 4)) /* Local variables (i.e. LOC_LOCAL) are on the memory stack, with their offsets being relative to the memory stack pointer (high C) or saved_msp (gcc). */ #define FRAME_LOCALS_ADDRESS(fi) frame_locals_address (fi) extern CORE_ADDR frame_locals_address (); /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ /* We tried going to the effort of finding the tags word and getting the argcount field from it, to support debugging assembler code. Problem was, the "argcount" field never did hold the argument count. */ #define FRAME_NUM_ARGS(numargs, fi) ((numargs) = -1) #define FRAME_ARGS_ADDRESS(fi) FRAME_LOCALS_ADDRESS (fi) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Provide our own get_saved_register. HAVE_REGISTER_WINDOWS is insufficient because registers get renumbered on the a29k without getting saved. */ #define GET_SAVED_REGISTER /* Call function stuff. */ /* The dummy frame looks like this (see also the general frame picture above): register stack | | frame for function | locals_sproc | executing at time |________________| of call_function. | | We must not disturb | args_out_sproc | it. memory stack |________________| |____lr1_sproc___|<-+ | | |__retaddr_sproc_| | <-- gr1 (at start) |____________|<-msp 0 <-----------mfp_dummy_____| | | | (at start) | save regs | | | arg_slop | | pc0,pc1 | | | | | pc2,lr0 sproc | | | (16 words) | | gr96-gr124 | | |____________|<-msp 1--after | sr160-sr162 | | | | PUSH_DUMMY_FRAME| sr128-sr135 | | | struct ret | |________________| | | 17+ | | | | |____________|<- lrp | args_out_dummy | | | struct ret | | (16 words) | | | 16 | |________________| | | (16 words) | |____lr1_dummy___|--+ |____________|<- msp 2--after |_retaddr_dummy__|<- gr1 after | | struct ret | | PUSH_DUMMY_FRAME | margs17+ | area allocated | locals_inf | | | |________________| called |____________|<- msp 4--when | | function's | | inf called | args_out_inf | frame (set up | margs16 | |________________| by called | (16 words) | |_____lr1_inf____| function). |____________|<- msp 3--after | . | | | args pushed | . | | | | . | | | arg_slop: This area is so that when the call dummy adds 16 words to the msp, it won't end up larger than mfp_dummy (it is needed in the case where margs and struct_ret do not add up to at least 16 words). struct ret: This area is allocated by GDB if the return value is more than 16 words. struct ret_16 is not used on the a29k. margs: Pushed by GDB. The call dummy copies the first 16 words to args_out_dummy. retaddr_sproc: Contains the PC at the time we call the function. set by PUSH_DUMMY_FRAME and read by POP_FRAME. retaddr_dummy: This points to a breakpoint instruction in the dummy. */ /* Rsize for dummy frame, in bytes. */ /* Bytes for outgoing args, lr1, and retaddr. */ #define DUMMY_ARG (2 * 4 + 16 * 4) /* Number of special registers (sr128-) to save. */ #define DUMMY_SAVE_SR128 8 /* Number of special registers (sr160-) to save. */ #define DUMMY_SAVE_SR160 3 /* Number of general (gr96- or gr64-) registers to save. */ #define DUMMY_SAVE_GREGS 29 #define DUMMY_FRAME_RSIZE \ (4 /* mfp_dummy */ \ + 4 * 4 /* pc0, pc1, pc2, lr0 */ \ + DUMMY_SAVE_GREGS * 4 \ + DUMMY_SAVE_SR160 * 4 \ + DUMMY_SAVE_SR128 * 4 \ + DUMMY_ARG \ + 4 /* pad to doubleword */ ) /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME push_dummy_frame() extern void push_dummy_frame (); /* Discard from the stack the innermost frame, restoring all saved registers. */ #define POP_FRAME pop_frame() extern void pop_frame (); /* This sequence of words is the instructions mtsrim cr, 15 loadm 0, 0, lr2, msp ; load first 16 words of arguments into registers add msp, msp, 16 * 4 ; point to the remaining arguments CONST_INSN: const lr0,inf ; (replaced by half of target addr) consth lr0,inf ; (replaced by other half of target addr) calli lr0, lr0 aseq 0x40,gr1,gr1 ; nop BREAKPT_INSN: asneq 0x50,gr1,gr1 ; breakpoint (replaced by local breakpoint insn) */ #if TARGET_BYTE_ORDER == HOST_BYTE_ORDER #define BS(const) const #else #define BS(const) (((const) & 0xff) << 24) | \ (((const) & 0xff00) << 8) | \ (((const) & 0xff0000) >> 8) | \ (((const) & 0xff000000) >> 24) #endif /* Position of the "const" and blkt instructions within CALL_DUMMY in bytes. */ #define CONST_INSN (3 * 4) #define BREAKPT_INSN (7 * 4) #define CALL_DUMMY { \ BS(0x0400870f),\ BS(0x36008200|(MSP_HW_REGNUM)), \ BS(0x15000040|(MSP_HW_REGNUM<<8)|(MSP_HW_REGNUM<<16)), \ BS(0x03ff80ff), \ BS(0x02ff80ff), \ BS(0xc8008080), \ BS(0x70400101), \ BS(0x72500101)} #define CALL_DUMMY_LENGTH (8 * 4) #define CALL_DUMMY_START_OFFSET 0 /* Start execution at beginning of dummy */ /* Helper macro for FIX_CALL_DUMMY. WORDP is a long * which points to a word in target byte order; bits 0-7 and 16-23 of *WORDP are replaced with bits 0-7 and 8-15 of DATA (which is in host byte order). */ #if TARGET_BYTE_ORDER == BIG_ENDIAN #define STUFF_I16(WORDP, DATA) \ { \ *((char *)(WORDP) + 3) = ((DATA) & 0xff);\ *((char *)(WORDP) + 1) = (((DATA) >> 8) & 0xff);\ } #else /* Target is little endian. */ #define STUFF_I16(WORDP, DATA) \ { *(char *)(WORDP) = ((DATA) & 0xff); *((char *)(WORDP) + 2) = (((DATA) >> 8) & 0xff); } #endif /* Target is little endian. */ /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ /* Currently this stuffs in the address of the function that we are calling. Since different a29k systems use different breakpoint instructions, it also stuffs BREAKPOINT in the right place (to avoid having to duplicate CALL_DUMMY in each tm-*.h file). */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ {\ STUFF_I16((char *)dummyname + CONST_INSN, fun); \ STUFF_I16((char *)dummyname + CONST_INSN + 4, fun >> 16); \ /* FIXME memcpy ((char *)(dummyname) + BREAKPT_INSN, break_insn, 4); */ \ } /* a29k architecture has separate data & instruction memories -- wired to different pins on the chip -- and can't execute the data memory. Also, there should be space after text_end; we won't get a SIGSEGV or scribble on data space. */ #define CALL_DUMMY_LOCATION AFTER_TEXT_END /* Because of this, we need (as a kludge) to know the addresses of the text section. */ #define NEED_TEXT_START_END /* How to translate register numbers in the .stab's into gdb's internal register numbers. We don't translate them, but we warn if an invalid register number is seen. Note that FIXME, we use the value "sym" as an implicit argument in printing the error message. It happens to be available where this macro is used. (This macro definition appeared in a late revision of gdb-3.91.6 and is not well tested. Also, it should be a "complaint".) */ #define STAB_REG_TO_REGNUM(num) \ (((num) > LR0_REGNUM + 127) \ ? fprintf(stderr, \ "Invalid register number %d in symbol table entry for %s\n", \ (num), SYMBOL_SOURCE_NAME (sym)), (num) \ : (num)) extern enum a29k_processor_types { a29k_unknown, /* Bit 0x400 of the CPS does *not* identify freeze mode, i.e. 29000, 29030, etc. */ a29k_no_freeze_mode, /* Bit 0x400 of the CPS does identify freeze mode, i.e. 29050. */ a29k_freeze_mode } processor_type; /* We need three arguments for a general frame specification for the "frame" or "info frame" command. */ #define SETUP_ARBITRARY_FRAME(argc, argv) setup_arbitrary_frame (argc, argv) /* FIXME: Depends on equivalence between FRAME and "struct frame_info *", and equivalence between CORE_ADDR and FRAME_ADDR. */ extern struct frame_info *setup_arbitrary_frame PARAMS ((int, CORE_ADDR *)); gdb-4.13/gdb/config/a29k/tm-ultra3.h 666 34562 1752 21513 5355704135 15336 0ustar fnfcygnus/* Parameters for NYU Ultracomputer 29000 target, for GDB, the GNU debugger. Copyright 1990, 1991 Free Software Foundation, Inc. Contributed by David Wood @ New York University (wood@nyu.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file includes tm-a29k.h, but predefines REGISTER_NAMES and related macros. The file supports a a29k running our flavor of Unix on our Ultra3 PE Boards. */ /* Byte order is configurable, but this machine runs big-endian. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define NUM_REGS (EXO_REGNUM + 1) #define REGISTER_NAMES { \ "gr1", \ "gr64", "gr65", "gr66", "gr67", "gr68", "gr69", "gr70", "gr71", "gr72", \ "gr73", "gr74", "gr75", "gr76", "gr77", "gr78", "gr79", "gr80", "gr81", \ "gr82", "gr83", "gr84", "gr85", "gr86", "gr87", "gr88", "gr89", "gr90", \ "gr91", "gr92", "gr93", "gr94", "gr95", \ "gr96", "gr97", "gr98", "gr99", "gr100", "gr101", "gr102", "gr103", "gr104", \ "gr105", "gr106", "gr107", "gr108", "gr109", "gr110", "gr111", "gr112", \ "gr113", "gr114", "gr115", "gr116", "gr117", "gr118", "gr119", "gr120", \ "gr121", "gr122", "gr123", "gr124", "gr125", "gr126", "gr127", \ "lr0", "lr1", "lr2", "lr3", "lr4", "lr5", "lr6", "lr7", "lr8", "lr9", \ "lr10", "lr11", "lr12", "lr13", "lr14", "lr15", "lr16", "lr17", "lr18", \ "lr19", "lr20", "lr21", "lr22", "lr23", "lr24", "lr25", "lr26", "lr27", \ "lr28", "lr29", "lr30", "lr31", "lr32", "lr33", "lr34", "lr35", "lr36", \ "lr37", "lr38", "lr39", "lr40", "lr41", "lr42", "lr43", "lr44", "lr45", \ "lr46", "lr47", "lr48", "lr49", "lr50", "lr51", "lr52", "lr53", "lr54", \ "lr55", "lr56", "lr57", "lr58", "lr59", "lr60", "lr61", "lr62", "lr63", \ "lr64", "lr65", "lr66", "lr67", "lr68", "lr69", "lr70", "lr71", "lr72", \ "lr73", "lr74", "lr75", "lr76", "lr77", "lr78", "lr79", "lr80", "lr81", \ "lr82", "lr83", "lr84", "lr85", "lr86", "lr87", "lr88", "lr89", "lr90", \ "lr91", "lr92", "lr93", "lr94", "lr95", "lr96", "lr97", "lr98", "lr99", \ "lr100", "lr101", "lr102", "lr103", "lr104", "lr105", "lr106", "lr107", \ "lr108", "lr109", "lr110", "lr111", "lr112", "lr113", "lr114", "lr115", \ "lr116", "lr117", "lr118", "lr119", "lr120", "lr121", "lr122", "lr123", \ "lr124", "lr125", "lr126", "lr127", \ "vab", "ops", "cps", "cfg", "cha", "chd", "chc", "rbp", "tmc", "tmr", \ "pc0", "pc1", "pc2", "mmu", "lru", \ "ipc", "ipa", "ipb", "q", "alu", "bp", "fc", "cr", \ "fpe", "int", "fps", "exo" } #ifdef KERNEL_DEBUGGING # define PADDR_U_REGNUM 22 /* gr86 */ # define RETURN_REGNUM GR64_REGNUM #else # define RETURN_REGNUM GR96_REGNUM #endif /* KERNEL_DEBUGGING */ /* Should rename all GR96_REGNUM to RETURN_REGNUM */ #define GR1_REGNUM (0) #define GR64_REGNUM 1 #define GR96_REGNUM (GR64_REGNUM + 32) /* This needs to be the memory stack pointer, not the register stack pointer, to make call_function work right. */ #define SP_REGNUM MSP_REGNUM #define FP_REGNUM (LR0_REGNUM + 1) /* lr1 */ /* Large Return Pointer */ #define LRP_REGNUM (123 - 96 + RETURN_REGNUM) /* Static link pointer */ #define SLP_REGNUM (124 - 96 + RETURN_REGNUM) /* Memory Stack Pointer. */ #define MSP_REGNUM (125 - 96 + RETURN_REGNUM) /* Register allocate bound. */ #define RAB_REGNUM (126 - 96 + RETURN_REGNUM) /* Register Free Bound. */ #define RFB_REGNUM (127 - 96 + RETURN_REGNUM) /* Register Stack Pointer. */ #define RSP_REGNUM GR1_REGNUM #define LR0_REGNUM ( 32 + GR96_REGNUM) /* Protected Special registers */ #define VAB_REGNUM (LR0_REGNUM + 128) #define OPS_REGNUM (VAB_REGNUM + 1) #define CPS_REGNUM (VAB_REGNUM + 2) #define CFG_REGNUM (VAB_REGNUM + 3) #define CHA_REGNUM (VAB_REGNUM + 4) #define CHD_REGNUM (VAB_REGNUM + 5) #define CHC_REGNUM (VAB_REGNUM + 6) #define RBP_REGNUM (VAB_REGNUM + 7) #define TMC_REGNUM (VAB_REGNUM + 8) #define TMR_REGNUM (VAB_REGNUM + 9) #define NPC_REGNUM (VAB_REGNUM + 10) /* pc0 */ #define PC_REGNUM (VAB_REGNUM + 11) /* pc1 */ #define PC2_REGNUM (VAB_REGNUM + 12) /* pc2 */ #define MMU_REGNUM (VAB_REGNUM + 13) #define LRU_REGNUM (VAB_REGNUM + 14) /* Register sequence gap */ /* Unprotected Special registers */ #define IPC_REGNUM (LRU_REGNUM + 1) #define IPA_REGNUM (IPC_REGNUM + 1) #define IPB_REGNUM (IPC_REGNUM + 2) #define Q_REGNUM (IPC_REGNUM + 3) #define ALU_REGNUM (IPC_REGNUM + 4) #define PS_REGNUM ALU_REGNUM #define BP_REGNUM (IPC_REGNUM + 5) #define FC_REGNUM (IPC_REGNUM + 6) #define CR_REGNUM (IPC_REGNUM + 7) /* Register sequence gap */ #define FPE_REGNUM (CR_REGNUM + 1) #define INT_REGNUM (FPE_REGNUM + 1) #define FPS_REGNUM (FPE_REGNUM + 2) /* Register sequence gap */ #define EXO_REGNUM (FPS_REGNUM + 1) /* Special register #x. */ #define SR_REGNUM(x) \ ((x) < 15 ? VAB_REGNUM + (x) \ : (x) >= 128 && (x) < 136 ? IPC_REGNUM + (x-128) \ : (x) >= 160 && (x) < 163 ? FPE_REGNUM + (x-160) \ : (x) == 164 ? EXO_REGNUM \ : (error ("Internal error in SR_REGNUM"), 0)) #ifndef KERNEL_DEBUGGING /* * This macro defines the register numbers (from REGISTER_NAMES) that * are effectively unavailable to the user through ptrace(). It allows * us to include the whole register set in REGISTER_NAMES (inorder to * better support remote debugging). If it is used in * fetch/store_inferior_registers() gdb will not complain about I/O errors * on fetching these registers. If all registers in REGISTER_NAMES * are available, then return false (0). */ #define CANNOT_STORE_REGISTER(regno) \ (((regno)>=GR64_REGNUM && (regno)=CFG_REGNUM && (regno)<=TMR_REGNUM) || \ ((regno)==MMU_REGNUM) || \ ((regno)==LRU_REGNUM) || \ ((regno)>=ALU_REGNUM) || \ ((regno)==CR_REGNUM) || \ ((regno)==EXO_REGNUM)) #define CANNOT_FETCH_REGISTER(regno) CANNOT_STORE_REGISTER(regno) #endif /* KERNEL_DEBUGGING */ /* * Converts an sdb register number to an internal gdb register number. * Currently under gcc, gr96->0...gr128->31...lr0->32...lr127->159, or... * gr64->0...gr95->31, lr0->32...lr127->159. */ #define SDB_REG_TO_REGNUM(value) (((value)<32) ? ((value)+RETURN_REGNUM) : \ ((value)-32+LR0_REGNUM)) #ifdef KERNEL_DEBUGGING /* ublock virtual address as defined in our sys/param.h */ /* FIXME: Should get this from sys/param.h */ # define UVADDR ((32*0x100000)-8192) #endif /* * Are we in sigtramp(), needed in infrun.c. Specific to ultra3, because * we take off the leading '_'. */ #if !defined(KERNEL_DEBUGGING) #ifdef SYM1 # define IN_SIGTRAMP(pc, name) (name && STREQ ("sigtramp", name)) #else Need to define IN_SIGTRAMP() for sym2. #endif #endif /* !KERNEL_DEBUGGING */ #include "a29k/tm-a29k.h" /**** The following are definitions that override those in tm-a29k.h ****/ /* This sequence of words is the instructions mtsrim cr, 15 loadm 0, 0, lr2, msp ; load first 16 words of arguments into registers add msp, msp, 16 * 4 ; point to the remaining arguments CONST_INSN: const gr96,inf consth gr96,inf calli lr0, gr96 aseq 0x40,gr1,gr1 ; nop asneq 0x50,gr1,gr1 ; breakpoint When KERNEL_DEBUGGIN is defined, msp -> gr93, gr96 -> gr64, 7d -> 5d, 60 -> 40 */ /* Position of the "const" instruction within CALL_DUMMY in bytes. */ #undef CALL_DUMMY #if TARGET_BYTE_ORDER == HOST_BYTE_ORDER #ifdef KERNEL_DEBUGGING /* gr96 -> gr64 */ # define CALL_DUMMY {0x0400870f, 0x3600825d, 0x155d5d40, 0x03ff40ff, \ 0x02ff40ff, 0xc8008040, 0x70400101, 0x72500101} #else # define CALL_DUMMY {0x0400870f, 0x3600827d, 0x157d7d40, 0x03ff60ff, \ 0x02ff60ff, 0xc8008060, 0x70400101, 0x72500101} #endif /* KERNEL_DEBUGGING */ #else /* Byte order differs. */ you lose #endif /* Byte order differs. */ #if !defined(KERNEL_DEBUGGING) # ifdef SYM1 # undef DECR_PC_AFTER_BREAK # define DECR_PC_AFTER_BREAK 0 /* Sym1 kernel does the decrement */ # else ->"ULTRA3 running other than sym1 OS"!; # endif #endif /* !KERNEL_DEBUGGING */ gdb-4.13/gdb/config/a29k/ultra3.mh 666 34562 1752 430 5353461475 15035 0ustar fnfcygnus# Host: NYU Ultracomputer (AMD 29000 running Unix) CC=u3cc MUNCH_DEFINE="MUNCH_NM=u3nm" XDEPFILES= ultra3-xdep.o XM_FILE= xm-ultra3.h NAT_FILE= nm-ultra3.h NATDEPFILES= exec.o infptrace.o inftarg.o fork-child.o ultra3-nat.o MH_CFLAGS = -DSYM1 XM_CLIBS = -lsysv -ljobs -ltermlib gdb-4.13/gdb/config/a29k/ultra3.mt 666 34562 1752 263 5355704137 15052 0ustar fnfcygnus# Target: AMD 29000 running Unix on New York Univerisity processor board. TDEPFILES= a29k-pinsn.o a29k-tdep.o TM_FILE= tm-ultra3.h # SYM1 is some OS they have. MT_CFLAGS = -DSYM1 gdb-4.13/gdb/config/a29k/xm-ultra3.h 666 34562 1752 3111 5565224114 15311 0ustar fnfcygnus/* Host definitions for GDB running on an a29k NYU Ultracomputer Copyright (C) 1986, 1987, 1989, 1991 Free Software Foundation, Inc. Contributed by David Wood (wood@lab.ultra.nyu.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Here at NYU we have what we call an ULTRA3 PE board. So ifdefs for ULTRA3 are my doing. At this point in time, I don't know of any other Unixi running on the a29k. */ #define HOST_BYTE_ORDER BIG_ENDIAN #define HAVE_WAIT_STRUCT #ifndef L_SET # define L_SET 0 /* set the seek pointer */ # define L_INCR 1 /* increment the seek pointer */ # define L_XTND 2 /* extend the file size */ #endif #ifndef O_RDONLY # define O_RDONLY 0 # define O_WRONLY 1 # define O_RDWR 2 #endif #ifndef F_OK # define R_OK 4 # define W_OK 2 # define X_OK 1 # define F_OK 0 #endif /* System doesn't provide siginterrupt(). */ #define NO_SIGINTERRUPT /* System uses a `short' to hold a process group ID. */ #define SHORT_PGRP gdb-4.13/gdb/config/nm-lynx.h 666 34562 1752 4017 5573407322 14322 0ustar fnfcygnus/* Native-dependent definitions for LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef NM_LYNX_H #define NM_LYNX_H #include #include /* sys/kernel.h should define this, but doesn't always, sigh. */ #ifndef __LYNXOS #define __LYNXOS #endif #include #include #include #include #include #include #include #include "thread.h" /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR USRSTACK #undef FLOAT_INFO /* No float info yet */ #define PTRACE_ARG3_TYPE char * /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS /* Thread ID of stopped thread. */ #define WIFTID(x) (((union wait *)&x)->w_tid) /* Override child_wait in inftarg.c */ #define CHILD_WAIT /* Override child_resume in infptrace.c */ #define CHILD_RESUME #include "target.h" extern int child_wait PARAMS ((int pid, struct target_waitstatus *status)); /* Lynx needs a special definition of this so that we can print out the pid and thread number seperatly. */ #undef target_pid_to_str #define target_pid_to_str(PID) lynx_pid_to_str (PID) extern char *lynx_pid_to_str PARAMS ((int pid)); #endif /* NM_LYNX_H */ gdb-4.13/gdb/config/nm-m3.h 666 34562 1752 6556 5620274411 13653 0ustar fnfcygnus/* Mach 3.0 common definitions and global vars. Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef NM_M3_H #define NM_M3_H #include /* Mach3 doesn't declare errno in . */ extern int errno; /* Task port of our debugged inferior. */ extern task_t inferior_task; /* Thread port of the current thread in the inferior. */ extern thread_t current_thread; /* If nonzero, we must suspend/abort && resume threads * when setting or getting the state. */ extern int must_suspend_thread; #define PREPARE_TO_PROCEED(select_it) mach3_prepare_to_proceed(select_it) /* Try to get the privileged host port for authentication to machid * * If you can get this, you may debug anything on this host. * * If you can't, gdb gives it's own task port as the * authentication port */ #define mach_privileged_host_port() task_by_pid(-1) /* * This is the MIG ID number of the emulator/server bsd_execve() RPC call. * * It SHOULD never change, but if it does, gdb `run' * command won't work until you fix this define. * */ #define MIG_EXEC_SYSCALL_ID 101000 /* If our_message_port gets a msg with this ID, * GDB suspends it's inferior and enters command level. * (Useful at least if ^C does not work) */ #define GDB_MESSAGE_ID_STOP 0x41151 /* wait3 WNOHANG is defined in but * for some reason gdb does not want to include * that file. * * If your system defines WNOHANG differently, this has to be changed. */ #define WNOHANG 1 /* Before storing, we need to read all the registers. */ #define CHILD_PREPARE_TO_STORE() read_register_bytes (0, NULL, REGISTER_BYTES) /* Check if the inferior exists */ #define MACH_ERROR_NO_INFERIOR \ do if (!MACH_PORT_VALID (inferior_task)) \ error ("Inferior task does not exist."); while(0) /* Error handler for mach calls */ #define CHK(str,ret) \ do if (ret != KERN_SUCCESS) \ error ("Gdb %s [%d] %s : %s\n",__FILE__,__LINE__,str, \ mach_error_string(ret)); while(0) /* This is from POE9 emulator/emul_stack.h */ /* * Top of emulator stack holds link and reply port. */ struct emul_stack_top { struct emul_stack_top *link; mach_port_t reply_port; }; #define EMULATOR_STACK_SIZE (4096*4) #define THREAD_ALLOWED_TO_BREAK(mid) mach_thread_for_breakpoint (mid) #define THREAD_PARSE_ID(arg) mach_thread_parse_id (arg) #define THREAD_OUTPUT_ID(mid) mach_thread_output_id (mid) #define ATTACH_TO_THREAD attach_to_thread /* Do Mach 3 dependent operations when ^C or a STOP is requested */ #define DO_QUIT() mach3_quit () #if 0 /* This is bogus. It is NOT OK to quit out of target_wait. */ /* If in mach_msg() and ^C is typed set immediate_quit */ #define REQUEST_QUIT() mach3_request_quit () #endif #endif /* NM_M3_H */ gdb-4.13/gdb/config/nm-sysv4.h 666 34562 1752 2260 5452131607 14412 0ustar fnfcygnus/* Definitions for running gdb on a host machine running any flavor of SVR4. Copyright 1991, 1992 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support (fnf@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "solib.h" /* Support for shared libraries. */ /* Use SVR4 style shared library support */ #define SVR4_SHARED_LIBS /* SVR4 has /proc support, so use it instead of ptrace. */ #define USE_PROC_FS /* SVR4 machines can easily do attach and detach via /proc (procfs.c) support */ #define ATTACH_DETACH gdb-4.13/gdb/config/nm-trash.h 666 34562 1752 161 5353461242 14422 0ustar fnfcygnus/* this file is temporary scaffolding until all hosts have the native/target/host split in place. FIXME. */ gdb-4.13/gdb/config/tm-lynx.h 666 34562 1752 1743 5472354272 14336 0ustar fnfcygnus/* Macro definitions for LynxOS targets. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef TM_LYNX_H #define TM_LYNX_H /* Override number of expected traps from sysv. */ #define START_INFERIOR_TRAPS_EXPECTED 2 #include "coff-solib.h" /* COFF shared library support */ #endif /* TM_LYNX_H */ gdb-4.13/gdb/config/tm-sunos.h 666 34562 1752 2435 5551123366 14506 0ustar fnfcygnus/* Target machine sub-description for SunOS version 4. This is included by other tm-*.h files to specify SunOS-specific stuff. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "solib.h" /* Support for shared libraries. */ /* Return non-zero if we are in a shared library trampoline code stub. */ #define IN_SOLIB_TRAMPOLINE(pc, name) lookup_solib_trampoline_symbol_by_pc (pc) /* If PC is in a shared library trampoline code, return the PC where the function itself actually starts. If not, return 0. */ #define SKIP_TRAMPOLINE_CODE(pc) find_solib_trampoline_target (pc) gdb-4.13/gdb/config/tm-sysv4.h 666 34562 1752 4045 5551123370 14421 0ustar fnfcygnus/* Macro definitions for GDB on all SVR4 target systems. Copyright 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support (fnf@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* For SVR4 shared libraries, each call to a library routine goes through a small piece of trampoline code in the ".plt" section. The horribly ugly wait_for_inferior() routine uses this macro to detect when we have stepped into one of these fragments. We do not use lookup_solib_trampoline_symbol_by_pc, because we cannot always find the shared library trampoline symbols (e.g. on Irix5). */ #define IN_SOLIB_TRAMPOLINE(pc, name) in_plt_section((pc), (name)) extern int in_plt_section PARAMS ((CORE_ADDR, char *)); /* If PC is in a shared library trampoline code, return the PC where the function itself actually starts. If not, return 0. */ #define SKIP_TRAMPOLINE_CODE(pc) find_solib_trampoline_target (pc) /* It is unknown which, if any, SVR4 assemblers do not accept dollar signs in identifiers. The default in G++ is to use dots instead, for all SVR4 systems, so we make that our default also. FIXME: There should be some way to get G++ to tell us what CPLUS_MARKER it is using, perhaps by stashing it in the debugging information as part of the name of an invented symbol ("gcc_cplus_marker$" for example). */ #undef CPLUS_MARKER #define CPLUS_MARKER '.' gdb-4.13/gdb/config/xm-lynx.h 666 34562 1752 1725 5565224103 14332 0ustar fnfcygnus/* Host-dependent definitions for any CPU running LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* for INT_MIN, to avoid "INT_MIN redefined" warnings from defs.h */ #include /* psignal() is in . */ #define PSIGNAL_IN_SIGNAL_H #define MEM_FNS_DECLARED gdb-4.13/gdb/config/xm-sysv4.h 666 34562 1752 2427 5565224103 14430 0ustar fnfcygnus/* Definitions for running gdb on a host machine running any flavor of SVR4. Copyright 1991, 1992 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support (fnf@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SVR4 has termios facilities. */ #undef HAVE_TERMIO #define HAVE_TERMIOS /* SVR4 has mmap facilities */ #define HAVE_MMAP /* SVR4 is a derivative of System V Release 3 (USG) */ #define USG /* Use setpgid(0,0) to run inferior in a separate process group */ #define NEED_POSIX_SETPGID /* We have to include these files now, so that GDB will not make competing definitions in defs.h. */ #include gdb-4.13/gdb/config/alpha/ 777 34562 1752 0 5623250527 13551 5ustar fnfcygnusgdb-4.13/gdb/config/alpha/alpha-nw.mt 666 34562 1752 123 5543375415 15663 0ustar fnfcygnus# Target: Little-endian Alpha TDEPFILES= alpha-tdep.o exec.o TM_FILE= tm-alphanw.h gdb-4.13/gdb/config/alpha/alpha-osf1.mh 666 34562 1752 341 5454345063 16072 0ustar fnfcygnus# Host: Little-endian Alpha XDEPFILES= XM_FILE= xm-alpha.h NAT_FILE= nm-alpha.h NATDEPFILES= infptrace.o inftarg.o corelow.o alpha-nat.o fork-child.o osfsolib.o MMALLOC = MMALLOC_DISABLE = -DNO_MMALLOC MUNCH_DEFINE=-B gdb-4.13/gdb/config/alpha/alpha-osf1.mt 666 34562 1752 121 5525652765 16113 0ustar fnfcygnus# Target: Little-endian Alpha TDEPFILES= alpha-tdep.o exec.o TM_FILE= tm-alpha.h gdb-4.13/gdb/config/alpha/nm-alpha.h 666 34562 1752 3355 5551123446 15504 0ustar fnfcygnus/* Native definitions for alpha running OSF/1. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Figure out where the longjmp will land. We expect that we have just entered longjmp and haven't yet setup the stack frame, so the args are still in the argument regs. A0_REGNUM points at the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) extern int get_longjmp_target PARAMS ((CORE_ADDR *)); /* ptrace register ``addresses'' are absolute. */ #define U_REGS_OFFSET 0 /* FIXME: Shouldn't the default definition in inferior.h be int* ? */ #define PTRACE_ARG3_TYPE int* /* ptrace transfers longs, the ptrace man page is lying. */ #define PTRACE_XFER_TYPE long /* The alpha does not step over a breakpoint, the manpage is lying again. */ #define CANNOT_STEP_BREAKPOINT /* OSF/1 has shared libraries. */ #define GDB_TARGET_HAS_SHARED_LIBS /* Support for shared libraries. */ #include "solib.h" gdb-4.13/gdb/config/alpha/tm-alpha.h 666 34562 1752 37251 5543375420 15536 0ustar fnfcygnus/* Definitions to make GDB run on an Alpha box under OSF1. This is also used by the Alpha/Netware target. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef TM_ALPHA_H #define TM_ALPHA_H #include "bfd.h" #include "coff/sym.h" /* Needed for PDR below. */ #include "coff/symconst.h" #if !defined (TARGET_BYTE_ORDER) #define TARGET_BYTE_ORDER LITTLE_ENDIAN #endif /* Redefine some target bit sizes from the default. */ #define TARGET_LONG_BIT 64 #define TARGET_LONG_LONG_BIT 64 #define TARGET_PTR_BIT 64 /* Floating point is IEEE compliant */ #define IEEE_FLOAT /* Number of traps that happen between exec'ing the shell * to run an inferior, and when we finally get to * the inferior code. This is 2 on most implementations. */ #define START_INFERIOR_TRAPS_EXPECTED 3 /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(pc) pc = alpha_skip_prologue(pc, 0) extern CORE_ADDR alpha_skip_prologue PARAMS ((CORE_ADDR addr, int lenient)); /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) alpha_saved_pc_after_call(frame) #ifdef __STDC__ struct frame_info; #endif extern CORE_ADDR alpha_saved_pc_after_call PARAMS ((struct frame_info *)); /* Are we currently handling a signal ? */ #define IN_SIGTRAMP(pc, name) ((name) && STREQ ("__sigtramp", (name))) /* Stack grows downward. */ #define INNER_THAN < #define BREAKPOINT {0x80, 0, 0, 0} /* call_pal bpt */ /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #ifndef DECR_PC_AFTER_BREAK #define DECR_PC_AFTER_BREAK 4 #endif /* Nonzero if instruction at PC is a return instruction. "ret $zero,($ra),1" on alpha. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 4) == 0x6bfa8001) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p,l) 0 /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 8 /* Number of machine registers */ #define NUM_REGS 66 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES \ { "v0", "t0", "t1", "t2", "t3", "t4", "t5", "t6", \ "t7", "s0", "s1", "s2", "s3", "s4", "s5", "fp", \ "a0", "a1", "a2", "a3", "a4", "a5", "t8", "t9", \ "t10", "t11", "ra", "t12", "at", "gp", "sp", "zero", \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", \ "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",\ "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31",\ "pc", "vfp", \ } /* Register numbers of various important registers. Note that most of these values are "real" register numbers, and correspond to the general registers of the machine, and FP_REGNUM is a "phony" register number which is too large to be an actual register number as far as the user is concerned but serves to get the desired value when passed to read_register. */ #define V0_REGNUM 0 /* Function integer return value */ #define GCC_FP_REGNUM 15 /* Used by gcc as frame register */ #define A0_REGNUM 16 /* Loc of first arg during a subr call */ #define T12_REGNUM 27 /* Contains start addr of current proc */ #define SP_REGNUM 30 /* Contains address of top of stack */ #define RA_REGNUM 26 /* Contains return address value */ #define ZERO_REGNUM 31 /* Read-only register, always 0 */ #define FP0_REGNUM 32 /* Floating point register 0 */ #define FPA0_REGNUM 48 /* First float arg during a subr call */ #define PC_REGNUM 64 /* Contains program counter */ #define FP_REGNUM 65 /* Virtual frame pointer */ #define CANNOT_FETCH_REGISTER(regno) \ ((regno) == FP_REGNUM || (regno) == ZERO_REGNUM) #define CANNOT_STORE_REGISTER(regno) \ ((regno) == FP_REGNUM || (regno) == ZERO_REGNUM) /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (NUM_REGS * 8) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N) * 8) /* Number of bytes of storage in the actual machine representation for register N. On Alphas, all regs are 8 bytes. */ #define REGISTER_RAW_SIZE(N) 8 /* Number of bytes of storage in the program's representation for register N. On Alphas, all regs are 8 bytes. */ #define REGISTER_VIRTUAL_SIZE(N) 8 /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 8 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Nonzero if register N requires conversion from raw format to virtual format. The alpha needs a conversion between register and memory format if the register is a floating point register and memory format is float, as the register format must be double or memory format is an integer with 4 bytes or less, as the representation of integers in floating point registers is different. */ #define REGISTER_CONVERTIBLE(N) ((N) >= FP0_REGNUM && (N) < FP0_REGNUM + 32) /* Convert data from raw format for register REGNUM in buffer FROM to virtual format with type TYPE in buffer TO. */ #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM, TYPE, FROM, TO) \ alpha_register_convert_to_virtual (REGNUM, TYPE, FROM, TO) #ifdef __STDC__ struct type; #endif extern void alpha_register_convert_to_virtual PARAMS ((int, struct type *, char *, char *)); /* Convert data from virtual format with type TYPE in buffer FROM to raw format for register REGNUM in buffer TO. */ #define REGISTER_CONVERT_TO_RAW(TYPE, REGNUM, FROM, TO) \ alpha_register_convert_to_raw (TYPE, REGNUM, FROM, TO) extern void alpha_register_convert_to_raw PARAMS ((struct type *, int, char *, char *)); /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ (((N) >= FP0_REGNUM && (N) < FP0_REGNUM+32) \ ? builtin_type_double : builtin_type_long) \ /* Store the address of the place in which to copy the structure the subroutine will return. Handled by alpha_push_arguments. */ #define STORE_STRUCT_RETURN(addr, sp) /**/ /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ alpha_extract_return_value(TYPE, REGBUF, VALBUF) extern void alpha_extract_return_value PARAMS ((struct type *, char *, char *)); /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ alpha_store_return_value(TYPE, VALBUF) extern void alpha_store_return_value PARAMS ((struct type *, char *)); /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ /* The address is passed in a0 upon entry to the function, but when the function exits, the compiler has copied the value to v0. This convention is specified by the System V ABI, so I think we can rely on it. */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ (extract_address (REGBUF + REGISTER_BYTE (V0_REGNUM), \ REGISTER_RAW_SIZE (V0_REGNUM))) /* Structures are returned by ref in extra arg0 */ #define USE_STRUCT_CONVENTION(gcc_p, type) 1 /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ #define FRAME_CHAIN(thisframe) (FRAME_ADDR)alpha_frame_chain(thisframe) extern CORE_ADDR alpha_frame_chain PARAMS ((struct frame_info *)); /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ /* We handle this differently for alpha, and maybe we should not */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) {(FRAMELESS) = 0;} /* Saved Pc. */ #define FRAME_SAVED_PC(FRAME) (alpha_frame_saved_pc(FRAME)) extern CORE_ADDR alpha_frame_saved_pc PARAMS ((struct frame_info *)); /* The alpha has two different virtual pointers for arguments and locals. The virtual argument pointer is pointing to the bottom of the argument transfer area, which is located immediately below the virtual frame pointer. Its size is fixed for the native compiler, it is either zero (for the no arguments case) or large enough to hold all argument registers. gcc uses a variable sized argument transfer area. As it has to stay compatible with the native debugging tools it has to use the same virtual argument pointer and adjust the argument offsets accordingly. The virtual local pointer is localoff bytes below the virtual frame pointer, the value of localoff is obtained from the PDR. */ #define ALPHA_NUM_ARG_REGS 6 #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame - (ALPHA_NUM_ARG_REGS * 8)) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame - (fi)->localoff) /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(num, fi) ((num) = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(fi, frame_saved_regs) ( \ (frame_saved_regs) = *(fi)->saved_regs, \ (frame_saved_regs).regs[SP_REGNUM] = (fi)->frame) /* Things needed for making the inferior call functions. */ #define PUSH_ARGUMENTS(nargs, args, sp, struct_return, struct_addr) \ sp = alpha_push_arguments(nargs, args, sp, struct_return, struct_addr) #ifdef __STDC__ struct value; #endif extern CORE_ADDR alpha_push_arguments PARAMS ((int, struct value **, CORE_ADDR, int, CORE_ADDR)); /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME alpha_push_dummy_frame() extern void alpha_push_dummy_frame PARAMS ((void)); /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME alpha_pop_frame() extern void alpha_pop_frame PARAMS ((void)); /* Alpha OSF/1 inhibits execution of code on the stack. But there is no need for a dummy on the alpha. PUSH_ARGUMENTS takes care of all argument handling and bp_call_dummy takes care of stopping the dummy. */ #define CALL_DUMMY_LOCATION AT_ENTRY_POINT /* On the Alpha the call dummy code is never copied to user space, stopping the user call is achieved via a bp_call_dummy breakpoint. But we need a fake CALL_DUMMY definition to enable the proper call_function_by_hand and to avoid zero length array warnings in valops.c */ #define CALL_DUMMY { 0 } /* Content doesn't matter. */ #define CALL_DUMMY_START_OFFSET (0) #define CALL_DUMMY_BREAKPOINT_OFFSET (0) extern CORE_ADDR alpha_call_dummy_address PARAMS ((void)); #define CALL_DUMMY_ADDRESS() alpha_call_dummy_address() /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. We only have to set RA_REGNUM to the dummy breakpoint address and T12_REGNUM (the `procedure value register') to the function address. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { \ CORE_ADDR bp_address = CALL_DUMMY_ADDRESS (); \ if (bp_address == 0) \ error ("no place to put call"); \ write_register (RA_REGNUM, bp_address); \ write_register (T12_REGNUM, fun); \ } /* There's a mess in stack frame creation. See comments in blockframe.c near reference to INIT_FRAME_PC_FIRST. */ #define INIT_FRAME_PC(fromleaf, prev) /* nada */ #define INIT_FRAME_PC_FIRST(fromleaf, prev) \ (prev)->pc = ((fromleaf) ? SAVED_PC_AFTER_CALL ((prev)->next) : \ (prev)->next ? FRAME_SAVED_PC ((prev)->next) : read_pc ()); /* Special symbol found in blocks associated with routines. We can hang alpha_extra_func_info_t's off of this. */ #define MIPS_EFI_SYMBOL_NAME "__GDB_EFI_INFO__" /* Specific information about a procedure. This overlays the ALPHA's PDR records, alpharead.c (ab)uses this to save memory */ typedef struct alpha_extra_func_info { long numargs; /* number of args to procedure (was iopt) */ PDR pdr; /* Procedure descriptor record */ } *alpha_extra_func_info_t; /* Define the extra_func_info that mipsread.c needs. FIXME: We should define our own PDR interface, perhaps in a separate header file. This would get rid of the inclusion in all sources and would abstract the mips/alpha interface from ecoff. */ #define mips_extra_func_info alpha_extra_func_info #define mips_extra_func_info_t alpha_extra_func_info_t #define EXTRA_FRAME_INFO \ int localoff; \ alpha_extra_func_info_t proc_desc; \ struct frame_saved_regs *saved_regs; #define INIT_EXTRA_FRAME_INFO(fromleaf, fci) init_extra_frame_info(fci) extern void init_extra_frame_info PARAMS ((struct frame_info *)); #define PRINT_EXTRA_FRAME_INFO(fi) \ { \ if (fi && fi->proc_desc && fi->proc_desc->pdr.framereg < NUM_REGS) \ printf_filtered (" frame pointer is at %s+%d\n", \ reg_names[fi->proc_desc->pdr.framereg], \ fi->proc_desc->pdr.frameoffset); \ } /* It takes two values to specify a frame on the ALPHA. Sigh. In fact, at the moment, the *PC* is the primary value that sets up a frame. The PC is looked up to see what function it's in; symbol information from that function tells us which register is the frame pointer base, and what offset from there is the "virtual frame pointer". (This is usually an offset from SP.) FIXME -- this should be cleaned up so that the primary value is the SP, and the PC is used to disambiguate multiple functions with the same SP that are at different stack levels. */ #define SETUP_ARBITRARY_FRAME(argc, argv) setup_arbitrary_frame (argc, argv) /* FIXME: Depends on equivalence between FRAME and "struct frame_info *", and equivalence between CORE_ADDR and FRAME_ADDR. */ extern struct frame_info *setup_arbitrary_frame PARAMS ((int, CORE_ADDR *)); /* This is used by heuristic_proc_start. It should be shot it the head. */ #ifndef VM_MIN_ADDRESS #define VM_MIN_ADDRESS (CORE_ADDR)0x120000000 #endif #endif /* TM_ALPHA_H */ gdb-4.13/gdb/config/alpha/tm-alphanw.h 666 34562 1752 603 5575533412 16034 0ustar fnfcygnus/* GDB target definitions for Alpha running Netware. */ /* Alpha/Netware uses NT PALcode, which causes call_pal bpt to give the PC of the actual breakpoint, not PC+4, (like the OSF1 PALcode). */ #define DECR_PC_AFTER_BREAK 0 #define VM_MIN_ADDRESS ((CORE_ADDR)0) #include "alpha/tm-alpha.h" /* Stop backtracing when we wander into main. */ #define FRAME_CHAIN_VALID_ALTERNATE gdb-4.13/gdb/config/alpha/xm-alpha.h 666 34562 1752 2024 5565224117 15510 0ustar fnfcygnus/* Host definitions for GDB running on an alpha under OSF/1 Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (HOST_BYTE_ORDER) #define HOST_BYTE_ORDER LITTLE_ENDIAN #endif /* The alpha has no siginterrupt routine. */ #define NO_SIGINTERRUPT /* HAVE_SGTTY also works, but we have termios, so use it. */ #define HAVE_TERMIOS gdb-4.13/gdb/config/arm/ 777 34562 1752 0 5623250534 13241 5ustar fnfcygnusgdb-4.13/gdb/config/arm/arm.mh 666 34562 1752 214 5353461515 14406 0ustar fnfcygnus# Host: Acorn RISC machine running RISCiX (4.3bsd) XDEPFILES= infptrace.o inftarg.o fork-child.o arm-xdep.o arm-convert.o XM_FILE= xm-arm.h gdb-4.13/gdb/config/arm/arm.mt 666 34562 1752 151 5353461525 14423 0ustar fnfcygnus# Target: Acorn RISC machine running RISCiX (4.3bsd) TDEPFILES= arm-tdep.o arm-pinsn.o TM_FILE= tm-arm.h gdb-4.13/gdb/config/arm/tm-arm.h 666 34562 1752 34671 5507351466 14731 0ustar fnfcygnus/* Definitions to make GDB target for an ARM under RISCiX (4.3bsd). Copyright 1986, 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_BYTE_ORDER LITTLE_ENDIAN /* IEEE format floating point */ #define IEEE_FLOAT /* I provide my own xfer_core_file to cope with shared libraries */ #define XFER_CORE_FILE /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(pc) pc = skip_prologue(pc) /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) (read_register (LR_REGNUM) & 0x03fffffc) /* I don't know the real values for these. */ #define TARGET_UPAGES UPAGES #define TARGET_NBPG NBPG /* Address of end of stack space. */ #define STACK_END_ADDR (0x01000000 - (TARGET_UPAGES * TARGET_NBPG)) /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0x00,0x00,0x18,0xef} /* BKPT_SWI from */ /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ #define ABOUT_TO_RETURN(pc) \ ((read_memory_integer(pc, 4) & 0x0fffffff == 0x01b0f00e) || \ (read_memory_integer(pc, 4) & 0x0ffff800 == 0x09eba800)) /* Return 1 if P points to an invalid floating point value. LEN is the length in bytes. */ #define INVALID_FLOAT(p, len) 0 /* code to execute to print interesting information about the * floating point processor (if any) * No need to define if there is nothing to do. */ #define FLOAT_INFO { arm_float_info (); } /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ /* Note: I make a fake copy of the pc in register 25 (calling it ps) so that I can clear the status bits from pc (register 15) */ #define NUM_REGS 26 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES \ { "a1", "a2", "a3", "a4", \ "v1", "v2", "v3", "v4", "v5", "v6", \ "sl", "fp", "ip", "sp", "lr", "pc", \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", "fps", "ps" } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define AP_REGNUM 11 #define FP_REGNUM 11 /* Contains address of executing stack frame */ #define SP_REGNUM 13 /* Contains address of top of stack */ #define LR_REGNUM 14 /* address to return to from a function call */ #define PC_REGNUM 15 /* Contains program counter */ #define F0_REGNUM 16 /* first floating point register */ #define FPS_REGNUM 24 /* floating point status register */ #define PS_REGNUM 25 /* Contains processor status */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (16*4 + 12*8 + 4 + 4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) (((N) < F0_REGNUM) ? (N)*4 : \ (((N) < PS_REGNUM) ? 16*4 + ((N) - 16)*12 : \ 16*4 + 8*12 + ((N) - FPS_REGNUM) * 4)) /* Number of bytes of storage in the actual machine representation for register N. On the vax, all regs are 4 bytes. */ #define REGISTER_RAW_SIZE(N) (((N) < F0_REGNUM || (N) >= FPS_REGNUM) ? 4 : 12) /* Number of bytes of storage in the program's representation for register N. On the vax, all regs are 4 bytes. */ #define REGISTER_VIRTUAL_SIZE(N) (((N) < F0_REGNUM || (N) >= FPS_REGNUM) ? 4 : 8) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 12 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Nonzero if register N requires conversion from raw format to virtual format. */ #define REGISTER_CONVERTIBLE(N) ((unsigned)(N) - F0_REGNUM < 8) /* Convert data from raw format for register REGNUM in buffer FROM to virtual format with type TYPE in buffer TO. */ #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \ { \ double val; \ convert_from_extended ((FROM), &val); \ store_floating ((TO), TYPE_LENGTH (TYPE), val); \ } /* Convert data from virtual format with type TYPE in buffer FROM to raw format for register REGNUM in buffer TO. */ #define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \ { \ double val = extract_floating ((FROM), TYPE_LENGTH (TYPE)); \ convert_to_extended (&val, (TO)); \ } /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ (((unsigned)(N) - F0_REGNUM) < 8 ? builtin_type_double : builtin_type_int) /* The system C compiler uses a similar structure return convention to gcc */ #define USE_STRUCT_CONVENTION(gcc_p, type) (TYPE_LENGTH (type) > 4) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ { write_register (0, (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ convert_from_extended(REGBUF + REGISTER_BYTE (F0_REGNUM), VALBUF); \ else \ memcpy (VALBUF, REGBUF, TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) { \ char _buf[MAX_REGISTER_RAW_SIZE]; \ convert_to_extended(VALBUF, _buf); \ write_register_bytes (REGISTER_BYTE (F0_REGNUM), _buf, MAX_REGISTER_RAW_SIZE); \ } else \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) /* Specify that for the native compiler variables for a particular lexical context are listed after the beginning LBRAC instead of before in the executables list of symbols. */ #define VARIABLES_INSIDE_BLOCK(desc, gcc_p) (!(gcc_p)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. However, if FRAME_CHAIN_VALID returns zero, it means the given frame is the outermost one and has no caller. */ /* In the case of the ARM, the frame's nominal address is the FP value, and 12 bytes before comes the saved previous FP value as a 4-byte word. */ #define FRAME_CHAIN(thisframe) \ ((thisframe)->pc >= first_object_file_end ? \ read_memory_integer ((thisframe)->frame - 12, 4) :\ 0) #define FRAME_CHAIN_VALID(chain, thisframe) \ (chain != 0 && (FRAME_SAVED_PC (thisframe) >= first_object_file_end)) /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ { \ CORE_ADDR func_start, after_prologue; \ func_start = (get_pc_function_start ((FI)->pc) + \ FUNCTION_START_OFFSET); \ after_prologue = func_start; \ SKIP_PROLOGUE (after_prologue); \ (FRAMELESS) = (after_prologue == func_start); \ } /* Saved Pc. */ #define FRAME_SAVED_PC(FRAME) \ (read_memory_integer ((FRAME)->frame - 4, 4) & 0x03fffffc) #define FRAME_ARGS_ADDRESS(fi) (fi->frame) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(numargs, fi) (numargs = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { \ register int regnum; \ register int frame; \ register int next_addr; \ register int return_data_save; \ register int saved_register_mask; \ memset (&frame_saved_regs, '\0', sizeof frame_saved_regs); \ frame = (frame_info)->frame; \ return_data_save = read_memory_integer(frame, 4) & 0x03fffffc - 12; \ saved_register_mask = \ read_memory_integer(return_data_save, 4); \ next_addr = frame - 12; \ for (regnum = 4; regnum < 10; regnum++) \ if (saved_register_mask & (1<= 4; regnum --) \ sp = push_word(sp, read_register (regnum)); \ write_register (FP_REGNUM, read_register (SP_REGNUM) - 8); \ write_register (SP_REGNUM, sp); } /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME \ { \ register CORE_ADDR fp = read_register (FP_REGNUM); \ register unsigned long return_data_save = \ read_memory_integer ( (read_memory_integer (fp, 4) & \ 0x03fffffc) - 12, 4); \ register int regnum; \ write_register (PS_REGNUM, read_memory_integer (fp - 4, 4)); \ write_register (PC_REGNUM, read_register (PS_REGNUM) & 0x03fffffc); \ write_register (SP_REGNUM, read_memory_integer (fp - 8, 4)); \ write_register (FP_REGNUM, read_memory_integer (fp - 12, 4)); \ fp -= 12; \ for (regnum = 9; regnum >= 4; regnum--) \ if (return_data_save & (1< 4) { \ nargs_in_registers = min(nargs + 1, 4); \ struct_return = 1; \ } else \ nargs_in_registers = min(nargs, 4); \ *(char *) dummyname = (1 << nargs_in_registers) - 1 - struct_return; \ *(int *)((char *) dummyname + 8) = \ (((fun - (pc + 16)) / 4) & 0x00ffffff) | 0xeb000000; } gdb-4.13/gdb/config/arm/xm-arm.h 666 34562 1752 5464 5565224121 14702 0ustar fnfcygnus/* Definitions to make GDB run on an ARM under RISCiX (4.3bsd). Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR (0x01000000 - (UPAGES * NBPG)) /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS #if 0 /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, SIGKILL, SIGSEGV, 0, 0, 0, 0, 0, \ 0, 0, SIGTRAP, SIGTRAP, 0, 0, 0, 0, \ 0, 0, 0, 0, 0, 0, 0, 0} /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movl $ end, sp"); \ asm ("clrl fp"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("pushl fp"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl (sp), fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("pushl 8(sp)"); \ asm ("pushl 8(sp)"); \ asm ("pushal 0x14(sp)"); \ asm ("pushr $037777"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("popr $037777"); \ asm ("subl2 $8,(sp)"); \ asm ("movl (sp),sp"); \ asm ("rei"); } #endif /* 0 */ gdb-4.13/gdb/config/convex/ 777 34562 1752 0 5623250541 13762 5ustar fnfcygnusgdb-4.13/gdb/config/convex/Convex.notes 666 34562 1752 15545 5353461542 16415 0ustar fnfcygnus @node Convex,,, Top @appendix Convex-specific info @cindex Convex notes Scalar registers are 64 bits long, which is a pain since left half of an S register frequently contains noise. Therefore there are two ways to obtain the value of an S register. @table @kbd @item $s0 returns the low half of the register as an int @item $S0 returns the whole register as a long long @end table You can print the value in floating point by using @samp{p/f $s0} or @samp{p/f $S0} to print a single or double precision value. @cindex vector registers Vector registers are handled similarly, with @samp{$V0} denoting the whole 64-bit register and @kbd{$v0} denoting the 32-bit low half; @samp{p/f $v0} or @samp{p/f $V0} can be used to examine the register in floating point. The length of the vector registers is taken from @samp{$vl}. Individual elements of a vector register are denoted in the obvious way; @samp{print $v3[9]} prints the tenth element of register @kbd{v3}, and @samp{set $v3[9] = 1234} alters it. @kbd{$vl} and @kbd{$vs} are int, and @kbd{$vm} is an int vector. Elements of @kbd{$vm} can't be assigned to. @cindex communication registers @kindex info comm-registers Communication registers have names @kbd{$C0 .. $C63}, with @kbd{$c0 .. $c63} denoting the low-order halves. @samp{info comm-registers} will print them all out, and tell which are locked. (A communication register is locked when a value is sent to it, and unlocked when the value is received.) Communication registers are, of course, global to all threads, so it does not matter what the currently selected thread is. @samp{info comm-reg @var{name}} prints just that one communication register; @samp{name} may also be a communication register number @samp{nn} or @samp{0xnn}. @samp{info comm-reg @var{address}} prints the contents of the resource structure at that address. @kindex info psw The command @samp{info psw} prints the processor status word @kbd{$ps} bit by bit. @kindex set base GDB normally prints all integers in base 10, but the leading @kbd{0x80000000} of pointers is intolerable in decimal, so the default output radix has been changed to try to print addresses appropriately. The @samp{set base} command can be used to change this. @table @code @item set base 10 Integer values always print in decimal. @item set base 16 Integer values always print in hex. @item set base Go back to the initial state, which prints integer values in hex if they look like pointers (specifically, if they start with 0x8 or 0xf in the stack), otherwise in decimal. @end table @kindex set pipeline When an exception such as a bus error or overflow happens, usually the PC is several instructions ahead by the time the exception is detected. The @samp{set pipe} command will disable this. @table @code @item set pipeline off Forces serial execution of instructions; no vector chaining and no scalar instruction overlap. With this, exceptions are detected with the PC pointing to the instruction after the one in error. @item set pipeline on Returns to normal, fast, execution. This is the default. @end table @cindex parallel In a parallel program, multiple threads may be executing, each with its own registers, stack, and local memory. When one of them hits a breakpoint, that thread is selected. Other threads do not run while the thread is in the breakpoint. @kindex 1cont The selected thread can be single-stepped, given signals, and so on. Any other threads remain stopped. When a @samp{cont} command is given, all threads are resumed. To resume just the selected thread, use the command @samp{1cont}. @kindex thread The @samp{thread} command will show the active threads and the instruction they are about to execute. The selected thread is marked with an asterisk. The command @samp{thread @var{n}} will select thread @var{n}, shifting the debugger's attention to it for single-stepping, registers, local memory, and so on. @kindex info threads The @samp{info threads} command will show what threads, if any, have invisibly hit breakpoints or signals and are waiting to be noticed. @kindex set parallel The @samp{set parallel} command controls how many threads can be active. @table @code @item set parallel off One thread. Requests by the program that other threads join in (spawn and pfork instructions) do not cause other threads to start up. This does the same thing as the @samp{limit concurrency 1} command. @item set parallel fixed All CPUs are assigned to your program whenever it runs. When it executes a pfork or spawn instruction, it begins parallel execution immediately. This does the same thing as the @samp{mpa -f} command. @item set parallel on One or more threads. Spawn and pfork cause CPUs to join in when and if they are free. This is the default. It is very good for system throughput, but not very good for finding bugs in parallel code. If you suspect a bug in parallel code, you probably want @samp{set parallel fixed.} @end table @subsection Limitations WARNING: Convex GDB evaluates expressions in long long, because S registers are 64 bits long. However, GDB expression semantics are not exactly C semantics. This is a bug, strictly speaking, but it's not one I know how to fix. If @samp{x} is a program variable of type int, then it is also type int to GDB, but @samp{x + 1} is long long, as is @samp{x + y} or any other expression requiring computation. So is the expression @samp{1}, or any other constant. You only really have to watch out for calls. The innocuous expression @samp{list_node (0x80001234)} has an argument of type long long. You must explicitly cast it to int. It is not possible to continue after an uncaught fatal signal by using @samp{signal 0}, @samp{return}, @samp{jump}, or anything else. The difficulty is with Unix, not GDB. I have made no big effort to make such things as single-stepping a @kbd{join} instruction do something reasonable. If the program seems to hang when doing this, type @kbd{ctrl-c} and @samp{cont}, or use @samp{thread} to shift to a live thread. Single-stepping a @kbd{spawn} instruction apparently causes new threads to be born with their T bit set; this is not handled gracefully. When a thread has hit a breakpoint, other threads may have invisibly hit the breakpoint in the background; if you clear the breakpoint gdb will be surprised when threads seem to continue to stop at it. All of these situations produce spurious signal 5 traps; if this happens, just type @samp{cont}. If it becomes a nuisance, use @samp{handle 5 nostop}. (It will ask if you are sure. You are.) There is no way in GDB to store a float in a register, as with @kbd{set $s0 = 3.1416}. The identifier @kbd{$s0} denotes an integer, and like any C expression which assigns to an integer variable, the right-hand side is casted to type int. If you should need to do something like this, you can assign the value to @kbd{@{float@} ($sp-4)} and then do @kbd{set $s0 = $sp[-4]}. Same deal with @kbd{set $v0[69] = 6.9}. gdb-4.13/gdb/config/convex/convex.mh 666 34562 1752 111 5353461545 15653 0ustar fnfcygnus# Host: Convex Unix (4bsd) XDEPFILES= convex-xdep.o XM_FILE= xm-convex.h gdb-4.13/gdb/config/convex/convex.mt 666 34562 1752 132 5353461547 15674 0ustar fnfcygnus# Target: Convex Unix (4bsd) TDEPFILES= convex-tdep.o convex-pinsn.o TM_FILE= tm-convex.h gdb-4.13/gdb/config/convex/tm-convex.h 666 34562 1752 46722 5507351472 16174 0ustar fnfcygnus/* Definitions to make GDB run on Convex Unix (4bsd) Copyright 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* There is come problem with the debugging symbols generated by the compiler such that the debugging symbol for the first line of a function overlap with the function prologue. */ #define PROLOGUE_FIRSTLINE_OVERLAP /* When convex pcc says CHAR or SHORT, it provides the correct address. */ #define BELIEVE_PCC_PROMOTION 1 /* Symbol types to ignore. */ /* 0xc4 is N_MONPT. Use the numeric value for the benefit of people with (rather) old OS's. */ #define IGNORE_SYMBOL(TYPE) \ (((TYPE) & ~N_EXT) == N_TBSS \ || ((TYPE) & ~N_EXT) == N_TDATA \ || ((TYPE) & ~N_EXT) == 0xc4) /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. Convex prolog is: [sub.w #-,sp] in one of 3 possible sizes [mov psw,- fc/vc main program prolog and #-,- (skip it because the "mov psw" saves the mov -,psw] T bit, so continue gets a surprise trap) [and #-,sp] fc/vc O2 main program prolog [ld.- -(ap),-] pcc/gcc register arg loads */ #define SKIP_PROLOGUE(pc) \ { int op, ix; \ op = read_memory_integer (pc, 2); \ if ((op & 0xffc7) == 0x5ac0) pc += 2; \ else if (op == 0x1580) pc += 4; \ else if (op == 0x15c0) pc += 6; \ if ((read_memory_integer (pc, 2) & 0xfff8) == 0x7c40 \ && (read_memory_integer (pc + 2, 2) & 0xfff8) == 0x1240 \ && (read_memory_integer (pc + 8, 2) & 0xfff8) == 0x7c48) \ pc += 10; \ if (read_memory_integer (pc, 2) == 0x1240) pc += 6; \ for (;;) { \ op = read_memory_integer (pc, 2); \ ix = (op >> 3) & 7; \ if (ix != 6) break; \ if ((op & 0xfcc0) == 0x3000) pc += 4; \ else if ((op & 0xfcc0) == 0x3040) pc += 6; \ else if ((op & 0xfcc0) == 0x2800) pc += 4; \ else if ((op & 0xfcc0) == 0x2840) pc += 6; \ else break;}} /* Immediately after a function call, return the saved pc. (ignore frame and return *$sp so we can handle both calls and callq) */ #define SAVED_PC_AFTER_CALL(frame) \ read_memory_integer (read_register (SP_REGNUM), 4) /* Address of end of stack space. This is ((USRSTACK + 0xfff) & -0x1000)) from but that expression depends on the kernel version; instead, fetch a page-zero pointer and get it from that. This will be invalid if they ever change the way bkpt signals are delivered. */ #define STACK_END_ADDR (0xfffff000 & *(unsigned *) 0x80000050) /* User-mode traps push an extended rtn block, then fault with one of the following PCs */ #define is_trace_pc(pc) ((unsigned) ((pc) - (*(int *) 0x80000040)) <= 4) #define is_arith_pc(pc) ((unsigned) ((pc) - (*(int *) 0x80000044)) <= 4) #define is_break_pc(pc) ((unsigned) ((pc) - (*(int *) 0x80000050)) <= 4) /* We need to manipulate trap bits in the psw */ #define PSW_TRAP_FLAGS 0x69670000 #define PSW_T_BIT 0x08000000 #define PSW_S_BIT 0x01000000 /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. (bkpt) */ #define BREAKPOINT {0x7d,0x50} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. (The break PC needs to be decremented by 2, but we do it when the break frame is recognized and popped. That way gdb can tell breaks from trace traps with certainty.) */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. (rtn or rtnq) */ #define ABOUT_TO_RETURN(pc) \ ((read_memory_integer (pc, 2) & 0xffe0) == 0x7c80) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p,len) 0 /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 8 /* Number of machine registers */ #define NUM_REGS 26 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES {"pc","psw","fp","ap","a5","a4","a3","a2","a1","sp",\ "s7","s6","s5","s4","s3","s2","s1","s0",\ "S7","S6","S5","S4","S3","S2","S1","S0"} /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define S0_REGNUM 25 /* the real S regs */ #define S7_REGNUM 18 #define s0_REGNUM 17 /* low-order halves of S regs */ #define s7_REGNUM 10 #define SP_REGNUM 9 /* A regs */ #define A1_REGNUM 8 #define A5_REGNUM 4 #define AP_REGNUM 3 #define FP_REGNUM 2 /* Contains address of executing stack frame */ #define PS_REGNUM 1 /* Contains processor status */ #define PC_REGNUM 0 /* Contains program counter */ /* convert dbx stab register number (from `r' declaration) to a gdb REGNUM */ #define STAB_REG_TO_REGNUM(value) \ ((value) < 8 ? S0_REGNUM - (value) : SP_REGNUM - ((value) - 8)) /* Vector register numbers, not handled as ordinary regs. They are treated as convenience variables whose values are read from the inferior when needed. */ #define V0_REGNUM 0 #define V7_REGNUM 7 #define VM_REGNUM 8 #define VS_REGNUM 9 #define VL_REGNUM 10 /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (4*10 + 8*8) /* Index within `registers' of the first byte of the space for register N. NB: must match structure of struct syscall_context for correct operation */ #define REGISTER_BYTE(N) ((N) < s7_REGNUM ? 4*(N) : \ (N) < S7_REGNUM ? 44 + 8 * ((N)-s7_REGNUM) : \ 40 + 8 * ((N)-S7_REGNUM)) /* Number of bytes of storage in the actual machine representation for register N. */ #define REGISTER_RAW_SIZE(N) ((N) < S7_REGNUM ? 4 : 8) /* Number of bytes of storage in the program's representation for register N. */ #define REGISTER_VIRTUAL_SIZE(N) REGISTER_RAW_SIZE(N) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 8 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ ((N) < S7_REGNUM ? builtin_type_int : builtin_type_long_long) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ { write_register (A1_REGNUM, (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, &((char *) REGBUF) [REGISTER_BYTE (S0_REGNUM) + \ 8 - TYPE_LENGTH (TYPE)],\ TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (REGISTER_BYTE (S0_REGNUM), VALBUF, 8) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ (*(int *) & ((char *) REGBUF) [REGISTER_BYTE (s0_REGNUM)]) /* Define trapped internal variable hooks to read and write vector and communication registers. */ #define IS_TRAPPED_INTERNALVAR is_trapped_internalvar #define VALUE_OF_TRAPPED_INTERNALVAR value_of_trapped_internalvar #define SET_TRAPPED_INTERNALVAR set_trapped_internalvar extern struct value *value_of_trapped_internalvar (); /* Hooks to read data from soff exec and core files, and to describe the files. */ #define XFER_CORE_FILE #define FILES_INFO_HOOK print_maps /* Hook to call to print a typeless integer value, normally printed in decimal. For convex, use hex instead if the number looks like an address. */ #define PRINT_TYPELESS_INTEGER decout /* For the native compiler, variables for a particular lexical context are listed after the beginning LBRAC instead of before in the executables list of symbols. Using "gcc_compiled." to distinguish between GCC and native compiler doesn't work on Convex because the linker sorts the symbols to put "gcc_compiled." in the wrong place. desc is nonzero for native, zero for gcc. */ #define VARIABLES_INSIDE_BLOCK(desc, gcc_p) (desc != 0) /* Pcc occaisionally puts an SO where there should be an SOL. */ #define PCC_SOL_BROKEN /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame_info with a frame's nominal address in fi->frame, and produces the frame's chain-pointer. */ /* (caller fp is saved at 8(fp)) */ #define FRAME_CHAIN(fi) (read_memory_integer ((fi)->frame + 8, 4)) /* Define other aspects of the stack frame. */ /* We need the boundaries of the text in the exec file, as a kludge, for FRAMELESS_FUNCTION_INVOCATION and CALL_DUMMY_LOCATION. */ #define NEED_TEXT_START_END /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. On convex, check at the return address for `callq' -- if so, frameless, otherwise, not. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ { \ extern CORE_ADDR text_start, text_end; \ CORE_ADDR call_addr = SAVED_PC_AFTER_CALL (FI); \ (FRAMELESS) = (call_addr >= text_start && call_addr < text_end \ && read_memory_integer (call_addr - 6, 1) == 0x22); \ } #define FRAME_SAVED_PC(fi) (read_memory_integer ((fi)->frame, 4)) #define FRAME_ARGS_ADDRESS(fi) (read_memory_integer ((fi)->frame + 12, 4)) #define FRAME_LOCALS_ADDRESS(fi) (fi)->frame /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(numargs, fi) \ { numargs = read_memory_integer (FRAME_ARGS_ADDRESS (fi) - 4, 4); \ if (numargs < 0 || numargs >= 256) numargs = -1;} /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ /* Normal (short) frames save only PC, FP, (callee's) AP. To reasonably handle gcc and pcc register variables, scan the code following the call for the instructions the compiler inserts to reload register variables from stack slots and record the stack slots as the saved locations of those registers. This will occasionally identify some random load as a saved register; this is harmless. vc does not declare its register allocation actions in the stabs. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { register int regnum; \ register int frame_length = /* 3 short, 2 long, 1 extended, 0 context */\ (read_memory_integer ((frame_info)->frame + 4, 4) >> 25) & 3; \ register CORE_ADDR frame_fp = \ read_memory_integer ((frame_info)->frame + 8, 4); \ register CORE_ADDR next_addr; \ memset (&frame_saved_regs, '\0', sizeof frame_saved_regs); \ (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame + 0; \ (frame_saved_regs).regs[PS_REGNUM] = (frame_info)->frame + 4; \ (frame_saved_regs).regs[FP_REGNUM] = (frame_info)->frame + 8; \ (frame_saved_regs).regs[AP_REGNUM] = frame_fp + 12; \ next_addr = (frame_info)->frame + 12; \ if (frame_length < 3) \ for (regnum = A5_REGNUM; regnum < SP_REGNUM; ++regnum) \ (frame_saved_regs).regs[regnum] = (next_addr += 4); \ if (frame_length < 2) \ (frame_saved_regs).regs[SP_REGNUM] = (next_addr += 4); \ next_addr -= 4; \ if (frame_length < 3) \ for (regnum = S7_REGNUM; regnum < S0_REGNUM; ++regnum) \ (frame_saved_regs).regs[regnum] = (next_addr += 8); \ if (frame_length < 2) \ (frame_saved_regs).regs[S0_REGNUM] = (next_addr += 8); \ else \ (frame_saved_regs).regs[SP_REGNUM] = next_addr + 8; \ if (frame_length == 3) { \ CORE_ADDR pc = read_memory_integer ((frame_info)->frame, 4); \ int op, ix, disp; \ op = read_memory_integer (pc, 2); \ if ((op & 0xffc7) == 0x1480) pc += 4; /* add.w #-,sp */ \ else if ((op & 0xffc7) == 0x58c0) pc += 2; /* add.w #-,sp */ \ op = read_memory_integer (pc, 2); \ if ((op & 0xffc7) == 0x2a06) pc += 4; /* ld.w -,ap */ \ for (;;) { \ op = read_memory_integer (pc, 2); \ ix = (op >> 3) & 7; \ if ((op & 0xfcc0) == 0x2800) { /* ld.- -,ak */ \ regnum = SP_REGNUM - (op & 7); \ disp = read_memory_integer (pc + 2, 2); \ pc += 4;} \ else if ((op & 0xfcc0) == 0x2840) { /* ld.- -,ak */ \ regnum = SP_REGNUM - (op & 7); \ disp = read_memory_integer (pc + 2, 4); \ pc += 6;} \ if ((op & 0xfcc0) == 0x3000) { /* ld.- -,sk */ \ regnum = S0_REGNUM - (op & 7); \ disp = read_memory_integer (pc + 2, 2); \ pc += 4;} \ else if ((op & 0xfcc0) == 0x3040) { /* ld.- -,sk */ \ regnum = S0_REGNUM - (op & 7); \ disp = read_memory_integer (pc + 2, 4); \ pc += 6;} \ else if ((op & 0xff00) == 0x7100) { /* br crossjump */ \ pc += 2 * (char) op; \ continue;} \ else if (op == 0x0140) { /* jmp crossjump */ \ pc = read_memory_integer (pc + 2, 4); \ continue;} \ else break; \ if ((frame_saved_regs).regs[regnum]) \ break; \ if (ix == 7) disp += frame_fp; \ else if (ix == 6) disp += read_memory_integer (frame_fp + 12, 4); \ else if (ix != 0) break; \ (frame_saved_regs).regs[regnum] = \ disp - 8 + (1 << ((op >> 8) & 3)); \ if (regnum >= S7_REGNUM) \ (frame_saved_regs).regs[regnum - S0_REGNUM + s0_REGNUM] = \ disp - 4 + (1 << ((op >> 8) & 3)); \ } \ } \ } /* Things needed for making the inferior call functions. */ #define CALL_DUMMY_LOCATION BEFORE_TEXT_END /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME \ { register CORE_ADDR sp = read_register (SP_REGNUM); \ register int regnum; \ char buf[8]; \ long word; \ for (regnum = S0_REGNUM; regnum >= S7_REGNUM; --regnum) { \ read_register_bytes (REGISTER_BYTE (regnum), buf, 8); \ sp = push_bytes (sp, buf, 8);} \ for (regnum = SP_REGNUM; regnum >= FP_REGNUM; --regnum) { \ word = read_register (regnum); \ sp = push_bytes (sp, &word, 4);} \ word = (read_register (PS_REGNUM) &~ (3<<25)) | (1<<25); \ sp = push_bytes (sp, &word, 4); \ word = read_register (PC_REGNUM); \ sp = push_bytes (sp, &word, 4); \ write_register (SP_REGNUM, sp); \ write_register (FP_REGNUM, sp); \ write_register (AP_REGNUM, sp);} /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME do {\ register CORE_ADDR fp = read_register (FP_REGNUM); \ register int regnum; \ register int frame_length = /* 3 short, 2 long, 1 extended, 0 context */ \ (read_memory_integer (fp + 4, 4) >> 25) & 3; \ char buf[8]; \ write_register (PC_REGNUM, read_memory_integer (fp, 4)); \ write_register (PS_REGNUM, read_memory_integer (fp += 4, 4)); \ write_register (FP_REGNUM, read_memory_integer (fp += 4, 4)); \ write_register (AP_REGNUM, read_memory_integer (fp += 4, 4)); \ if (frame_length < 3) \ for (regnum = A5_REGNUM; regnum < SP_REGNUM; ++regnum) \ write_register (regnum, read_memory_integer (fp += 4, 4)); \ if (frame_length < 2) \ write_register (SP_REGNUM, read_memory_integer (fp += 4, 4)); \ fp -= 4; \ if (frame_length < 3) \ for (regnum = S7_REGNUM; regnum < S0_REGNUM; ++regnum) { \ read_memory (fp += 8, buf, 8); \ write_register_bytes (REGISTER_BYTE (regnum), buf, 8);} \ if (frame_length < 2) { \ read_memory (fp += 8, buf, 8); \ write_register_bytes (REGISTER_BYTE (regnum), buf, 8);} \ else write_register (SP_REGNUM, fp + 8); \ flush_cached_frames (); \ set_current_frame (create_new_frame (read_register (FP_REGNUM), \ read_pc ())); \ } while (0) /* This sequence of words is the instructions mov sp,ap pshea 69696969 calls 32323232 bkpt Note this is 16 bytes. */ #define CALL_DUMMY {0x50860d4069696969LL,0x2140323232327d50LL} #define CALL_DUMMY_LENGTH 16 #define CALL_DUMMY_START_OFFSET 0 /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { *(int *)((char *) dummyname + 4) = nargs; \ *(int *)((char *) dummyname + 10) = fun; } /* Defs to read soff symbol tables, see dbxread.c */ #define NUMBER_OF_SYMBOLS ((long) opthdr.o_nsyms) #define STRING_TABLE_OFFSET ((long) filehdr.h_strptr) #define SYMBOL_TABLE_OFFSET ((long) opthdr.o_symptr) #define STRING_TABLE_SIZE ((long) filehdr.h_strsiz) #define SIZE_OF_TEXT_SEGMENT ((long) txthdr.s_size) #define ENTRY_POINT ((long) opthdr.o_entry) #define READ_STRING_TABLE_SIZE(BUFFER) \ (BUFFER = STRING_TABLE_SIZE) #define DECLARE_FILE_HEADERS \ FILEHDR filehdr; \ OPTHDR opthdr; \ SCNHDR txthdr #define READ_FILE_HEADERS(DESC,NAME) \ { \ int n; \ val = myread (DESC, &filehdr, sizeof filehdr); \ if (val < 0) \ perror_with_name (NAME); \ if (! IS_SOFF_MAGIC (filehdr.h_magic)) \ error ("%s: not an executable file.", NAME); \ lseek (DESC, 0L, 0); \ if (myread (DESC, &filehdr, sizeof filehdr) < 0) \ perror_with_name (NAME); \ if (myread (DESC, &opthdr, filehdr.h_opthdr) <= 0) \ perror_with_name (NAME); \ for (n = 0; n < filehdr.h_nscns; n++) \ { \ if (myread (DESC, &txthdr, sizeof txthdr) < 0) \ perror_with_name (NAME); \ if ((txthdr.s_flags & S_TYPMASK) == S_TEXT) \ break; \ } \ } gdb-4.13/gdb/config/convex/xm-convex.h 666 34562 1752 2754 5565224126 16154 0ustar fnfcygnus/* Definitions to make GDB run on Convex Unix (4bsd) Copyright 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* The host compiler supports "long long" variables. */ #define CC_HAS_LONG_LONG 1 /* The host compiler library supports "long long" formats and variables passed to printf() and friends. */ #define PRINTF_HAS_LONG_LONG 1 #define ATTACH_DETACH #define HAVE_WAIT_STRUCT #define NO_SIGINTERRUPT /* Use SIGCONT rather than SIGTSTP because convex Unix occasionally turkeys SIGTSTP. I think. */ #define STOP_SIGNAL SIGCONT /* Hook to call after creating inferior process. Now init_trace_fun is in the same place. So re-write this to use the init_trace_fun (making convex a debugging target). FIXME. */ #define CREATE_INFERIOR_HOOK create_inferior_hook gdb-4.13/gdb/config/gould/ 777 34562 1752 0 5623250546 13577 5ustar fnfcygnusgdb-4.13/gdb/config/gould/np1.mh 666 34562 1752 137 5353461561 14665 0ustar fnfcygnus# Host: Gould NP1 XDEPFILES= infptrace.o inftarg.o fork-child.o gould-xdep.o XM_FILE= xm-np1.h gdb-4.13/gdb/config/gould/np1.mt 666 34562 1752 106 5353461564 14700 0ustar fnfcygnus# Target: Gould NP1 TDEPFILES= exec.o gould-pinsn.o TM_FILE= tm-np1.h gdb-4.13/gdb/config/gould/pn.mh 666 34562 1752 153 5353461566 14607 0ustar fnfcygnus# Host: Gould Powernode XDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o XM_FILE= xm-pn.h gdb-4.13/gdb/config/gould/pn.mt 666 34562 1752 113 5353461570 14612 0ustar fnfcygnus# Target: Gould Powernode TDEPFILES= exec.o gould-pinsn.o TM_FILE= tm-pn.h gdb-4.13/gdb/config/gould/tm-np1.h 666 34562 1752 44412 5507351477 15177 0ustar fnfcygnus/* Parameters for targeting on a Gould NP1, for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define GOULD_NPL #define TARGET_BYTE_ORDER BIG_ENDIAN /* N_ENTRY appears in libraries on Gould machines. Don't know what 0xa4 is; it's mentioned in stab.h but only in the sdb symbol list. */ #define IGNORE_SYMBOL(type) (type == N_ENTRY || type == 0xa4) /* We don't want the extra gnu symbols on the machine; they will interfere with the shared segment symbols. */ #define NO_GNU_STABS /* Macro for text-offset and data info (in NPL a.out format). */ #define TEXTINFO \ text_offset = N_TXTOFF (exec_coffhdr, exec_aouthdr); \ exec_data_offset = N_TXTOFF (exec_coffhdr, exec_aouthdr)\ + exec_aouthdr.a_text /* Macro for number of symbol table entries */ #define NUMBER_OF_SYMBOLS \ (coffhdr.f_nsyms) /* Macro for file-offset of symbol table (in NPL a.out format). */ #define SYMBOL_TABLE_OFFSET \ N_SYMOFF (coffhdr) /* Macro for file-offset of string table (in NPL a.out format). */ #define STRING_TABLE_OFFSET \ (N_STROFF (coffhdr)) /* Macro to store the length of the string table data in INTO. */ #define READ_STRING_TABLE_SIZE(INTO) \ { INTO = hdr.a_stsize; } /* Macro to declare variables to hold the file's header data. */ #define DECLARE_FILE_HEADERS struct exec hdr; \ FILHDR coffhdr /* Macro to read the header data from descriptor DESC and validate it. NAME is the file name, for error messages. */ #define READ_FILE_HEADERS(DESC, NAME) \ { val = myread (DESC, &coffhdr, sizeof coffhdr); \ if (val < 0) \ perror_with_name (NAME); \ val = myread (DESC, &hdr, sizeof hdr); \ if (val < 0) \ perror_with_name (NAME); \ if (coffhdr.f_magic != GNP1MAGIC) \ error ("File \"%s\" not in coff executable format.", NAME); \ if (N_BADMAG (hdr)) \ error ("File \"%s\" not in executable format.", NAME); } /* Define COFF and other symbolic names needed on NP1 */ #define NS32GMAGIC GNP1MAGIC #define NS32SMAGIC GPNMAGIC /* Address of blocks in N_LBRAC and N_RBRAC symbols are absolute addresses, not relative to start of source address. */ #define BLOCK_ADDRESS_ABSOLUTE /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 8 /* Advance PC across any function entry prologue instructions to reach some "real" code. One NPL we can have one two startup sequences depending on the size of the local stack: Either: "suabr b2, #" of "lil r4, #", "suabr b2, #(r4)" "lwbr b6, #", "stw r1, 8(b2)" Optional "stwbr b3, c(b2)" Optional "trr r2,r7" (Gould first argument register passing) or Optional "stw r2,8(b3)" (Gould first argument register passing) */ #define SKIP_PROLOGUE(pc) { \ register int op = read_memory_integer ((pc), 4); \ if ((op & 0xffff0000) == 0xFA0B0000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if ((op & 0xffff0000) == 0x59400000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if ((op & 0xffff0000) == 0x5F000000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if (op == 0xD4820008) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if (op == 0x5582000C) { \ pc += 4; \ op = read_memory_integer ((pc), 2); \ if (op == 0x2fa0) { \ pc += 2; \ } else { \ op = read_memory_integer ((pc), 4); \ if (op == 0xd5030008) { \ pc += 4; \ } \ } \ } else { \ op = read_memory_integer ((pc), 2); \ if (op == 0x2fa0) { \ pc += 2; \ } \ } \ } \ } \ } \ } \ if ((op & 0xffff0000) == 0x59000000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if ((op & 0xffff0000) == 0x5F000000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if (op == 0xD4820008) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if (op == 0x5582000C) { \ pc += 4; \ op = read_memory_integer ((pc), 2); \ if (op == 0x2fa0) { \ pc += 2; \ } else { \ op = read_memory_integer ((pc), 4); \ if (op == 0xd5030008) { \ pc += 4; \ } \ } \ } else { \ op = read_memory_integer ((pc), 2); \ if (op == 0x2fa0) { \ pc += 2; \ } \ } \ } \ } \ } \ } /* Immediately after a function call, return the saved pc. Can't go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. True on NPL! Return address is in R1. The true return address is REALLY 4 past that location! */ #define SAVED_PC_AFTER_CALL(frame) \ (read_register(R1_REGNUM) + 4) /* Address of end of stack space. */ #define STACK_END_ADDR 0x7fffc000 /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. This is padded out to the size of a machine word. When it was just {0x28, 0x09} it gave problems if hit breakpoint on returning from a function call. */ #define BREAKPOINT {0x28, 0x09, 0x0, 0x0} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 2 /* Nonzero if instruction at PC is a return instruction. "bu 4(r1)" */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 4) == 0x40100004) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) ((*(short *)p & 0xff80) == 0x8000) /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Size of bytes of vector register (NP1 only), 32 elements * sizeof(int) */ #define VR_SIZE 128 /* Number of machine registers */ #define NUM_REGS 27 #define NUM_GEN_REGS 16 #define NUM_CPU_REGS 4 #define NUM_VECTOR_REGS 7 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES { \ "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \ "b0", "b1", "b2", "b3", "b4", "b5", "b6", "b7", \ "sp", "ps", "pc", "ve", \ "v1", "v2", "v3", "v4", "v5", "v6", "v7", \ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define R1_REGNUM 1 /* Gr1 => return address of caller */ #define R2_REGNUM 2 /* Gr2 => return value from function */ #define R4_REGNUM 4 /* Gr4 => register save area */ #define R5_REGNUM 5 /* Gr5 => register save area */ #define R6_REGNUM 6 /* Gr6 => register save area */ #define R7_REGNUM 7 /* Gr7 => register save area */ #define B1_REGNUM 9 /* Br1 => start of this code routine */ #define SP_REGNUM 10 /* Br2 == (sp) */ #define AP_REGNUM 11 /* Br3 == (ap) */ #define FP_REGNUM 16 /* A copy of Br2 saved in trap */ #define PS_REGNUM 17 /* Contains processor status */ #define PC_REGNUM 18 /* Contains program counter */ #define VE_REGNUM 19 /* Vector end (user setup) register */ #define V1_REGNUM 20 /* First vector register */ #define V7_REGNUM 26 /* First vector register */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES \ (NUM_GEN_REGS*4 + NUM_VECTOR_REGS*VR_SIZE + NUM_CPU_REGS*4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) \ (((N) < V1_REGNUM) ? ((N) * 4) : (((N) - V1_REGNUM) * VR_SIZE) + 80) /* Number of bytes of storage in the actual machine representation for register N. On the NP1, all normal regs are 4 bytes, but the vector registers are VR_SIZE*4 bytes long. */ #define REGISTER_RAW_SIZE(N) \ (((N) < V1_REGNUM) ? 4 : VR_SIZE) /* Number of bytes of storage in the program's representation for register N. On the NP1, all regs are 4 bytes. */ #define REGISTER_VIRTUAL_SIZE(N) \ (((N) < V1_REGNUM) ? 4 : VR_SIZE) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE VR_SIZE /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE VR_SIZE /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ ((N) > VE_REGNUM ? builtin_type_np1_vector : builtin_type_int) extern struct type *builtin_type_np1_vector; /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. On this machine this is a no-op, because gcc isn't used on it yet. So this calling convention is not used. */ #define STORE_STRUCT_RETURN(ADDR, SP) push_word(SP + 8, ADDR) /* Extract from an arrary REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, ((int *)(REGBUF)) + 2, TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (REGISTER_BYTE (R2_REGNUM), VALBUF, \ TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*((int *)(REGBUF) + 2)) /* Both gcc and cc return small structs in registers (i.e. in GDB terminology, small structs don't use the struct return convention). */ #define USE_STRUCT_CONVENTION(gcc_p, type) (TYPE_LENGTH(type) > 8) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. However, if FRAME_CHAIN_VALID returns zero, it means the given frame is the outermost one and has no caller. */ /* In the case of the NPL, the frame's norminal address is Br2 and the previous routines frame is up the stack X bytes, where X is the value stored in the code function header xA(Br1). */ #define FRAME_CHAIN(thisframe) (findframe(thisframe)) #define FRAME_CHAIN_VALID(chain, thisframe) \ (chain != 0 && chain != (thisframe)->frame) /* Define other aspects of the stack frame on NPL. */ #define FRAME_SAVED_PC(FRAME) \ (read_memory_integer ((FRAME)->frame + 8, 4)) #define FRAME_ARGS_ADDRESS(fi) \ ((fi)->next ? \ read_memory_integer ((fi)->frame + 12, 4) : \ read_register (AP_REGNUM)) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can check the stab info to see how many arg we have. No info in stack will tell us */ #define FRAME_NUM_ARGS(val,fi) (val = findarg(fi)) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 8 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { \ memset (&frame_saved_regs, '\0', sizeof frame_saved_regs); \ (frame_saved_regs).regs[SP_REGNUM] = framechain (frame_info); \ (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame + 8; \ (frame_saved_regs).regs[R4_REGNUM] = (frame_info)->frame + 0x30; \ (frame_saved_regs).regs[R5_REGNUM] = (frame_info)->frame + 0x34; \ (frame_saved_regs).regs[R6_REGNUM] = (frame_info)->frame + 0x38; \ (frame_saved_regs).regs[R7_REGNUM] = (frame_info)->frame + 0x3C; \ } /* Things needed for making the inferior call functions. */ #define CALL_DUMMY_LOCATION BEFORE_TEXT_END #define NEED_TEXT_START_END /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME \ { register CORE_ADDR sp = read_register (SP_REGNUM); \ register int regnum; \ for (regnum = 0; regnum < FP_REGNUM; regnum++) \ sp = push_word (sp, read_register (regnum)); \ sp = push_word (sp, read_register (PS_REGNUM)); \ sp = push_word (sp, read_register (PC_REGNUM)); \ write_register (SP_REGNUM, sp);} /* Discard from the stack the innermost frame, restoring all saved registers. */ /* FIXME: Should be using {store,extract}_unsigned_integer. */ #define POP_FRAME \ { CORE_ADDR sp = read_register(SP_REGNUM); \ unsigned LONGEST reg; \ int regnum; \ for(regnum = 0;regnum < FP_REGNUM;regnum++){ \ sp-=REGISTER_SIZE; \ read_memory(sp,®,REGISTER_SIZE); \ write_register(regnum,reg);} \ sp-=REGISTER_SIZE; \ read_memory(sp,®,REGISTER_SIZE); \ write_register(PS_REGNUM,reg); \ sp-=REGISTER_SIZE; \ read_memory(sp,®,REGISTER_SIZE); \ write_register(PC_REGNUM,reg);} /* MJD - Size of dummy frame pushed onto stack by PUSH_DUMMY_FRAME */ #define DUMMY_FRAME_SIZE (0x48) /* MJD - The sequence of words in the instructions is halt halt halt halt subr b2,stack size,0 grab stack space for dummy call labr b3,x0(b2),0 set AP_REGNUM to point at arguments lw r2,x8(b3),0 load r2 with first argument lwbr b1,arguments size(b2),0 load address of function to be called brlnk r1,x8(b1),0 call function halt halt labr b2,stack size(b2),0 give back stack break break */ #define CALL_DUMMY {0x00000000, \ 0x00000000, \ 0x59000000, \ 0x598a0000, \ 0xb5030008, \ 0x5c820000, \ 0x44810008, \ 0x00000000, \ 0x590a0000, \ 0x28090000 } #define CALL_DUMMY_LENGTH 40 #define CALL_DUMMY_START_OFFSET 8 #define CALL_DUMMY_STACK_ADJUST 8 /* MJD - Fixup CALL_DUMMY for the specific function call. OK heres the problems 1) On a trap there are two copies of the stack pointer, one in SP_REGNUM which is read/write and one in FP_REGNUM which is only read. It seems that when restarting the GOULD NP1 uses FP_REGNUM's value. 2) Loading function address into b1 looks a bit difficult if bigger than 0x0000fffc, infact from what I can tell the compiler sets up table of function address in base3 through which function calls are referenced. OK my solutions Calculate the size of the dummy stack frame and do adjustments of SP_REGNUM in the dummy call. Push function address onto the stack and load it in the dummy call */ #define FIX_CALL_DUMMY(dummyname, sp, fun, nargs, args, type, gcc_p) \ { int i;\ int arg_len = 0, total_len;\ old_sp = push_word(old_sp,fun);\ for(i = nargs - 1;i >= 0;i--)\ arg_len += TYPE_LENGTH (VALUE_TYPE (value_arg_coerce (args[i])));\ if(struct_return)\ arg_len += TYPE_LENGTH(value_type);\ total_len = DUMMY_FRAME_SIZE+CALL_DUMMY_STACK_ADJUST+4+arg_len;\ dummyname[0] += total_len;\ dummyname[2] += total_len;\ dummyname[5] += arg_len+CALL_DUMMY_STACK_ADJUST;\ dummyname[8] += total_len;} /* MJD - So the stack should end up looking like this | Normal stack frame | | from normal program | | flow | +---------------------+ <- Final sp - 0x08 - argument size | | - 0x4 - dummy_frame_size | Pushed dummy frame | | b0-b7, r0-r7 | | pc and ps | | | +---------------------+ | Function address | +---------------------+ <- Final sp - 0x8 - arguments size | | | | | | | Arguments to | | Function | | | | | | | +---------------------+ <- Final sp - 0x8 | Dummy_stack_adjust | +---------------------+ <- Final sp | | | where call will | | build frame | */ gdb-4.13/gdb/config/gould/tm-pn.h 666 34562 1752 35355 5537141207 15113 0ustar fnfcygnus/* Parameters for targe of a Gould Powernode, for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define GOULD_PN #define TARGET_BYTE_ORDER BIG_ENDIAN /* This code appears in libraries on Gould machines. Ignore it. */ #define IGNORE_SYMBOL(type) (type == N_ENTRY) /* We don't want the extra gnu symbols on the machine; they will interfere with the shared segment symbols. */ #define NO_GNU_STABS /* Macro for text-offset and data info (in PN a.out format). */ #define TEXTINFO \ text_offset = N_TXTOFF (exec_coffhdr); \ exec_data_offset = N_TXTOFF (exec_coffhdr) \ + exec_aouthdr.a_text /* Macro for number of symbol table entries (this used to be checked in dbxread.c and caused the last psymtab to use this as the end of text. I'm not sure whether it would still be necessary). */ #define END_OF_TEXT_DEFAULT \ (0xffffff) /* Macro for number of symbol table entries */ #define NUMBER_OF_SYMBOLS \ (coffhdr.f_nsyms) /* Macro for file-offset of symbol table (in usual a.out format). */ #define SYMBOL_TABLE_OFFSET \ N_SYMOFF (coffhdr) /* Macro for file-offset of string table (in usual a.out format). */ #define STRING_TABLE_OFFSET \ (N_STROFF (coffhdr) + sizeof(int)) /* Macro to store the length of the string table data in INTO. */ #define READ_STRING_TABLE_SIZE(INTO) \ { INTO = hdr.a_stsize; } /* Macro to declare variables to hold the file's header data. */ #define DECLARE_FILE_HEADERS struct old_exec hdr; \ FILHDR coffhdr /* Macro to read the header data from descriptor DESC and validate it. NAME is the file name, for error messages. */ #define READ_FILE_HEADERS(DESC, NAME) \ { val = myread (DESC, &coffhdr, sizeof coffhdr); \ if (val < 0) \ perror_with_name (NAME); \ val = myread (DESC, &hdr, sizeof hdr); \ if (val < 0) \ perror_with_name (NAME); \ if (coffhdr.f_magic != GNP1MAGIC) \ error ("File \"%s\" not in coff executable format.", NAME); \ if (N_BADMAG (hdr)) \ error ("File \"%s\" not in executable format.", NAME); } /* Define COFF and other symbolic names needed on NP1 */ #define NS32GMAGIC GDPMAGIC #define NS32SMAGIC PN_MAGIC /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 4 /* Advance PC across any function entry prologue instructions to reach some "real" code. One PN we can have one or two startup sequences depending on the size of the local stack: Either: "suabr b2, #" of "lil r4, #", "suabr b2, #(r4)" "lwbr b6, #", "stw r1, 8(b2)" Optional "stwbr b3, c(b2)" Optional "trr r2,r7" (Gould first argument register passing) or Optional "stw r2,8(b3)" (Gould first argument register passing) */ #define SKIP_PROLOGUE(pc) { \ register int op = read_memory_integer ((pc), 4); \ if ((op & 0xffff0000) == 0x580B0000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if ((op & 0xffff0000) == 0x59400000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if ((op & 0xffff0000) == 0x5F000000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if (op == 0xD4820008) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if (op == 0x5582000C) { \ pc += 4; \ op = read_memory_integer ((pc), 2); \ if (op == 0x2fa0) { \ pc += 2; \ } else { \ op = read_memory_integer ((pc), 4); \ if (op == 0xd5030008) { \ pc += 4; \ } \ } \ } else { \ op = read_memory_integer ((pc), 2); \ if (op == 0x2fa0) { \ pc += 2; \ } \ } \ } \ } \ } \ } \ if ((op & 0xffff0000) == 0x59000000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if ((op & 0xffff0000) == 0x5F000000) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if (op == 0xD4820008) { \ pc += 4; \ op = read_memory_integer ((pc), 4); \ if (op == 0x5582000C) { \ pc += 4; \ op = read_memory_integer ((pc), 2); \ if (op == 0x2fa0) { \ pc += 2; \ } else { \ op = read_memory_integer ((pc), 4); \ if (op == 0xd5030008) { \ pc += 4; \ } \ } \ } else { \ op = read_memory_integer ((pc), 2); \ if (op == 0x2fa0) { \ pc += 2; \ } \ } \ } \ } \ } \ } /* Immediately after a function call, return the saved pc. Can't go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. True on PN! Return address is in R1. Note: true return location is 4 bytes past R1! */ #define SAVED_PC_AFTER_CALL(frame) \ (read_register(R1_REGNUM) + 4) /* Address of end of stack space. */ #define STACK_END_ADDR 0x480000 /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0x28, 0x09} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 2 /* Nonzero if instruction at PC is a return instruction. "bu 4(r1)" */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 4) == 0xEC100004) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) ((*(short *)p & 0xff80) == 0x8000) /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 19 #define NUM_GEN_REGS 16 #define NUM_CPU_REGS 3 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES { \ "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \ "b0", "b1", "b2", "b3", "b4", "b5", "b6", "b7", \ "sp", "ps", "pc", \ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define R1_REGNUM 1 /* Gr1 => return address of caller */ #define R4_REGNUM 4 /* Gr4 => register save area */ #define R5_REGNUM 5 /* Gr5 => register save area */ #define R6_REGNUM 6 /* Gr6 => register save area */ #define R7_REGNUM 7 /* Gr7 => register save area */ #define B1_REGNUM 9 /* Br1 => start of this code routine */ #define FP_REGNUM 10 /* Br2 == (sp) */ #define AP_REGNUM 11 /* Br3 == (ap) */ #define SP_REGNUM 16 /* A copy of Br2 saved in trap */ #define PS_REGNUM 17 /* Contains processor status */ #define PC_REGNUM 18 /* Contains program counter */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (NUM_GEN_REGS*4 + NUM_CPU_REGS*4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N) * 4) /* Number of bytes of storage in the actual machine representation for register N. On the PN, all normal regs are 4 bytes. */ #define REGISTER_RAW_SIZE(N) (4) /* Number of bytes of storage in the program's representation for register N. On the PN, all regs are 4 bytes. */ #define REGISTER_VIRTUAL_SIZE(N) (4) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE (4) /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE (4) /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) (builtin_type_int) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. On this machine this is a no-op, because gcc isn't used on it yet. So this calling convention is not used. */ #define STORE_STRUCT_RETURN(ADDR, SP) /* Extract from an arrary REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, REGBUF, TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. However, if FRAME_CHAIN_VALID returns zero, it means the given frame is the outermost one and has no caller. */ /* In the case of the NPL, the frame's norminal address is Br2 and the previous routines frame is up the stack X bytes, where X is the value stored in the code function header xA(Br1). */ #define FRAME_CHAIN(thisframe) (findframe(thisframe)) #define FRAME_CHAIN_VALID(chain, thisframe) \ (chain != 0 && chain != (thisframe)->frame) /* Define other aspects of the stack frame on NPL. */ #define FRAME_SAVED_PC(frame) \ (read_memory_integer ((frame)->frame + 8, 4)) #define FRAME_ARGS_ADDRESS(fi) \ ((fi)->next ? \ read_memory_integer ((fi)->frame + 12, 4) : \ read_register (AP_REGNUM)) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame + 80) /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can check the stab info to see how many arg we have. No info in stack will tell us */ #define FRAME_NUM_ARGS(val,fi) (val = findarg(fi)) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 8 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { \ memset (&frame_saved_regs, '\0', sizeof frame_saved_regs); \ (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame + 8; \ (frame_saved_regs).regs[R4_REGNUM] = (frame_info)->frame + 0x30; \ (frame_saved_regs).regs[R5_REGNUM] = (frame_info)->frame + 0x34; \ (frame_saved_regs).regs[R6_REGNUM] = (frame_info)->frame + 0x38; \ (frame_saved_regs).regs[R7_REGNUM] = (frame_info)->frame + 0x3C; \ } /* Things needed for making the inferior call functions. */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME \ { register CORE_ADDR sp = read_register (SP_REGNUM); \ register int regnum; \ sp = push_word (sp, read_register (PC_REGNUM)); \ sp = push_word (sp, read_register (FP_REGNUM)); \ write_register (FP_REGNUM, sp); \ for (regnum = FP_REGNUM - 1; regnum >= 0; regnum--) \ sp = push_word (sp, read_register (regnum)); \ sp = push_word (sp, read_register (PS_REGNUM)); \ write_register (SP_REGNUM, sp); } /* Discard from the stack the innermost frame, restoring all saved registers. */ #define POP_FRAME \ { register FRAME frame = get_current_frame (); \ register CORE_ADDR fp; \ register int regnum; \ struct frame_saved_regs fsr; \ struct frame_info *fi; \ fi = get_frame_info (frame); \ fp = fi->frame; \ get_frame_saved_regs (fi, &fsr); \ for (regnum = FP_REGNUM - 1; regnum >= 0; regnum--) \ if (fsr.regs[regnum]) \ write_register (regnum, read_memory_integer (fsr.regs[regnum], 4)); \ if (fsr.regs[PS_REGNUM]) \ write_register (PS_REGNUM, read_memory_integer (fsr.regs[PS_REGNUM], 4)); \ write_register (FP_REGNUM, read_memory_integer (fp, 4)); \ write_register (PC_REGNUM, read_memory_integer (fp + 4, 4)); \ write_register (SP_REGNUM, fp + 8); \ flush_cached_frames (); \ set_current_frame ( create_new_frame (read_register (FP_REGNUM),\ read_pc ())); } /* This sequence of words is the instructions: halt halt halt halt suabr b2, # lwbr b6, #con stw r1, 8(b2) - save caller address, do we care? lw r2, 60(b2) - arg1 labr b3, 50(b2) std r4, 30(b2) - save r4-r7 std r6, 38(b2) lwbr b1, # - load function call address brlnk r1, 8(b1) - call function halt halt ld r4, 30(b2) - restore r4-r7 ld r6, 38(b2) Setup our stack frame, load argumemts, call and then restore registers. */ /* FIXME: The below defines an m68k CALL_DUMMY, which looks nothing like what is documented above. */ #define CALL_DUMMY {0xf227e0ff, 0x48e7fffc, 0x426742e7, 0x4eb93232, 0x3232dffc, 0x69696969, 0x4e4f4e71} #define CALL_DUMMY_LENGTH 28 #define CALL_DUMMY_START_OFFSET 12 /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { *(int *)((char *) dummyname + 20) = nargs * 4; \ *(int *)((char *) dummyname + 14) = fun; } gdb-4.13/gdb/config/gould/xm-np1.h 666 34562 1752 6464 5565224131 15156 0ustar fnfcygnus/* Parameters for execution on a Gould NP1, for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* Address of U in kernel space */ #define KERNEL_U_ADDR 0x7fffc000 /* This is a piece of magic that is given a register number REGNO and as BLOCKEND the address in the system of the end of the user structure and stores in ADDR the address in the kernel or core dump of that register. */ #define REGISTER_U_ADDR(addr, blockend, regno) { \ addr = blockend + regno * 4; \ if (regno == VE_REGNUM) addr = blockend - 9 * 4; \ if (regno == PC_REGNUM) addr = blockend - 8 * 4; \ if (regno == PS_REGNUM) addr = blockend - 7 * 4; \ if (regno == FP_REGNUM) addr = blockend - 6 * 4; \ if (regno >= V1_REGNUM) \ addr = blockend + 16 * 4 + (regno - V1_REGNUM) * VR_SIZE; \ } /* Don't try to write the frame pointer. */ #define CANNOT_STORE_REGISTER(regno) ((regno) == FP_REGNUM) /* * No KDB support, Yet! */ /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movel $ end, sp"); \ asm ("clrl fp"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("movel fp, -(sp)"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl (sp), fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea 10(sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("subil $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } gdb-4.13/gdb/config/gould/xm-pn.h 666 34562 1752 6054 5565224132 15071 0ustar fnfcygnus/* Parameters for execution on a Gould PN, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* Address of U in kernel space */ #define KERNEL_U_ADDR 0x3fc000 /* This is a piece of magic that is given a register number REGNO and as BLOCKEND the address in the system of the end of the user structure and stores in ADDR the address in the kernel or core dump of that register. */ #define REGISTER_U_ADDR(addr, blockend, regno) { \ addr = blockend + regno * 4; \ if (regno == PC_REGNUM) addr = blockend - 8 * 4; \ if (regno == PS_REGNUM) addr = blockend - 7 * 4; \ if (regno == SP_REGNUM) addr = blockend - 6 * 4; \ } /* No KDB support, Yet! */ /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movel $ end, sp"); \ asm ("clrl fp"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("movel fp, -(sp)"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl (sp), fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea 10(sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("subil $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } gdb-4.13/gdb/config/h8300/ 777 34562 1752 0 5623250553 13225 5ustar fnfcygnusgdb-4.13/gdb/config/h8300/h8300hms.mt 666 34562 1752 275 5603604617 15107 0ustar fnfcygnus# Target: H8300 with HMS monitor, E7000 ICE and H8 simulator TDEPFILES= exec.o h8300-tdep.o ser-e7kpc.o remote-e7000.o remote-hms.o remote-sim.o ../sim/h8300/compile.o TM_FILE= tm-h8300.h gdb-4.13/gdb/config/h8300/tm-h8300.h 666 34562 1752 20430 5524570544 14662 0ustar fnfcygnus/* Parameters for execution on a H8/300 series machine. Copyright 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Contributed by Steve Chamberlain sac@cygnus.com */ /* 1 if debugging H8/300H application */ extern int h8300hmode; /* Number of bytes in a word */ #define BINWORD (h8300hmode?4:2) #define EXTRA_FRAME_INFO \ struct frame_saved_regs *fsr; \ CORE_ADDR from_pc; \ CORE_ADDR args_pointer;\ CORE_ADDR locals_pointer ; /* Zero the frame_saved_regs pointer when the frame is initialized, so that FRAME_FIND_SAVED_REGS () will know to allocate and initialize a frame_saved_regs struct the first time it is called. Set the arg_pointer to -1, which is not valid; 0 and other values indicate real, cached values. */ #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \ init_extra_frame_info (fromleaf, fi) extern void init_extra_frame_info (); #define IEEE_FLOAT /* Define the bit, byte, and word ordering of the machine. */ #define TARGET_BYTE_ORDER BIG_ENDIAN #undef TARGET_INT_BIT #define TARGET_INT_BIT 16 #undef TARGET_LONG_BIT #define TARGET_LONG_BIT 32 #undef TARGET_PTR_BIT #define TARGET_PTR_BIT (h8300hmode ? 32:16) /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(ip) {(ip) = h8300_skip_prologue(ip);} extern CORE_ADDR h8300_skip_prologue (); /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) \ read_memory_unsigned_integer (read_register (SP_REGNUM), BINWORD) /* Stack grows downward. */ #define INNER_THAN < /*#define BREAKPOINT {0x7A, 0xFF}*/ #define BREAKPOINT {0x01, 0x80} /* Sleep */ /* If your kernel resets the pc after the trap happens you may need to define this before including this file. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ /* Allow any of the return instructions, including a trapv and a return from interupt. */ #define ABOUT_TO_RETURN(pc) ((read_memory_unsigned_integer (pc, 2) & ~0x3) == 0x4e74) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ /* Say how long registers are. */ #define REGISTER_SIZE 4 #define NUM_REGS 13 #define REGISTER_BYTES (NUM_REGS * 4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N) * 4) /* Number of bytes of storage in the actual machine representation for register N. On the H8/300, all regs are 2 bytes. */ #define REGISTER_RAW_SIZE(N) (h8300hmode ? 4 : 2) /* Number of bytes of storage in the program's representation for register N. */ #define REGISTER_VIRTUAL_SIZE(N) (h8300hmode ? 4 : 2) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 4 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 4 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ (h8300hmode ? builtin_type_unsigned_long : builtin_type_unsigned_short) /* Initializer for an array of names of registers. Entries beyond the first NUM_REGS are ignored. */ #define REGISTER_NAMES \ {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "sp", "ccr","pc","cycles","tick","inst"} /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define FP_REGNUM 6 /* Contains address of executing stack frame */ #define SP_REGNUM 7 /* Contains address of top of stack */ #define CCR_REGNUM 8 /* Contains processor status */ #define PC_REGNUM 9 /* Contains program counter */ /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ /* FIXME: Won't work with both h8/300's. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, (char *)(REGBUF), TYPE_LENGTH(TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. Assumes floats are passed in d0/d1. */ /* FIXME: Won't work with both h8/300's. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ /* FIXME: Won't work with both h8/300's. */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(CORE_ADDR *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. However, if FRAME_CHAIN_VALID returns zero, it means the given frame is the outermost one and has no caller. */ /* In the case of the H8/300, the frame's nominal address is the address of a 2-byte word containing the calling frame's address. */ /* Use the alternate method of avoiding running up off the end of the frame chain or following frames back into the startup code. See the comments in objfile.h */ #define FRAME_CHAIN_VALID_ALTERNATE /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ (FRAMELESS) = frameless_look_for_prologue(FI) /* Any function with a frame looks like this SECOND ARG FIRST ARG RET PC SAVED R2 SAVED R3 SAVED FP <-FP POINTS HERE LOCALS0 LOCALS1 <-SP POINTS HERE */ #define FRAME_SAVED_PC(FRAME) frame_saved_pc(FRAME) #define FRAME_ARGS_ADDRESS(fi) frame_args_address(fi) #define FRAME_LOCALS_ADDRESS(fi) frame_locals_address(fi); /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can't tell how many args there are now that the C compiler delays popping them. */ #define FRAME_NUM_ARGS(val,fi) (val = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ frame_find_saved_regs(frame_info, &(frame_saved_regs)) /* Push an empty stack frame, to record the current PC, etc. */ /*#define PUSH_DUMMY_FRAME { h8300_push_dummy_frame (); }*/ /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME { h8300_pop_frame (); } typedef unsigned short INSN_WORD; #define PRINT_REGISTER_HOOK(regno) print_register_hook(regno) #define GDB_TARGET_IS_H8300 #define NUM_REALREGS 10 #define NOP { 0x01, 0x80} /* A sleep insn */ gdb-4.13/gdb/config/h8500/ 777 34562 1752 0 5623250557 13233 5ustar fnfcygnusgdb-4.13/gdb/config/h8500/h8500hms.mt 666 34562 1752 227 5353461622 15107 0ustar fnfcygnus# Target: H8500 with HMS monitor and H8 simulator TDEPFILES= exec.o h8500-tdep.o remote-hms.o remote-sim.o ../sim/h8500/compile.o TM_FILE= tm-h8500.h gdb-4.13/gdb/config/h8500/tm-h8500.h 666 34562 1752 22065 5553557727 14706 0ustar fnfcygnus/* Parameters for execution on a H8/500 series machine. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Contributed by Steve Chamberlain sac@cygnus.com */ #define GDB_TARGET_IS_H8500 #define IEEE_FLOAT 1 /* Define the bit, byte, and word ordering of the machine. */ #define TARGET_BYTE_ORDER BIG_ENDIAN #undef TARGET_INT_BIT #define TARGET_INT_BIT 16 #undef TARGET_LONG_BIT #define TARGET_LONG_BIT 32 #undef TARGET_PTR_BIT #define TARGET_PTR_BIT (minimum_mode ? 16 : 32) /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(ip) {(ip) = h8500_skip_prologue(ip);} extern CORE_ADDR h8500_skip_prologue (); /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) saved_pc_after_call(frame) /* Stack grows downward. */ #define INNER_THAN < /* Illegal instruction - used by the simulator for breakpoint detection */ #define BREAKPOINT {0x0b} /* If your kernel resets the pc after the trap happens you may need to define this before including this file. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ #define ABOUT_TO_RETURN(pc) about_to_return(pc) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ /* Say how long registers are. */ #define REGISTER_TYPE unsigned long /* Say how much memory is needed to store a copy of the register set */ #define REGISTER_BYTES (NUM_REGS * 4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N)*4) /* Number of bytes of storage in the actual machine representation for register N. */ #define REGISTER_RAW_SIZE(N) h8500_register_size(N) int h8500_register_size PARAMS ((int regno)); #define REGISTER_SIZE 4 #define REGISTER_VIRTUAL_SIZE(N) h8500_register_size(N) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 4 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 4 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) h8500_register_virtual_type(N) struct type *h8500_register_virtual_type PARAMS ((int regno)); /* Initializer for an array of names of registers. Entries beyond the first NUM_REGS are ignored. */ #define REGISTER_NAMES \ {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \ "pr0", "pr1", "pr2","pr3","pr4","pr5","pr6","pr7","cp","dp","ep","tp","sr","pc"} /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define R0_REGNUM 0 #define R1_REGNUM 1 #define R2_REGNUM 2 #define R3_REGNUM 3 #define R4_REGNUM 4 #define R5_REGNUM 5 #define R6_REGNUM 6 #define R7_REGNUM 7 #define PR0_REGNUM 8 #define PR1_REGNUM 9 #define PR2_REGNUM 10 #define PR3_REGNUM 11 #define PR4_REGNUM 12 #define PR5_REGNUM 13 #define PR6_REGNUM 14 #define PR7_REGNUM 15 #define SEG_C_REGNUM 16 /* Segment registers */ #define SEG_D_REGNUM 17 #define SEG_E_REGNUM 18 #define SEG_T_REGNUM 19 #define CCR_REGNUM 20 /* Contains processor status */ #define PC_REGNUM 21 /* Contains program counter */ #define NUM_REGS 22 #define SP_REGNUM PR7_REGNUM /* Contains address of top of stack */ #define FP_REGNUM PR6_REGNUM /* Contains address of executing stack frame */ #define PTR_SIZE (minimum_mode ? 2: 4) #define PTR_MASK (minimum_mode ? 0x0000ffff : 0x00ffffff) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ /*#define STORE_STRUCT_RETURN(ADDR, SP) \ { write_register (0, (ADDR)); abort(); }*/ /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, (char *)(REGBUF), TYPE_LENGTH(TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. Assumes floats are passed in d0/d1. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(CORE_ADDR *)(REGBUF)) /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ (FRAMELESS) = frameless_look_for_prologue(FI) /* Any function with a frame looks like this SECOND ARG FIRST ARG RET PC SAVED R2 SAVED R3 SAVED FP <-FP POINTS HERE LOCALS0 LOCALS1 <-SP POINTS HERE */ CORE_ADDR h8500_frame_chain (/* FRAME thisframe */); #define INIT_EXTRA_FRAME_INFO(fromleaf, fci) ; /* (fci)->frame |= read_register(SEG_T_REGNUM) << 16;*/ #define FRAME_CHAIN(FRAME) h8500_frame_chain(FRAME) #define FRAME_SAVED_PC(FRAME) frame_saved_pc(FRAME) #define FRAME_ARGS_ADDRESS(fi) frame_args_address(fi) #define FRAME_LOCALS_ADDRESS(fi) frame_locals_address(fi); /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can't tell how many args there are now that the C compiler delays popping them. */ #define FRAME_NUM_ARGS(val,fi) (val = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ frame_find_saved_regs(frame_info, &(frame_saved_regs)) /* Push an empty stack frame, to record the current PC, etc. */ /*#define PUSH_DUMMY_FRAME { h8300_push_dummy_frame (); }*/ /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME { h8300_pop_frame (); } #define SHORT_INT_MAX 32767 #define SHORT_INT_MIN -32768 #define NAMES_HAVE_UNDERSCORE typedef unsigned short INSN_WORD; #define ADDR_BITS_REMOVE(addr) ((addr) & 0xffffff) #define read_memory_short(x) (read_memory_integer(x,2) & 0xffff) #define DONT_USE_REMOTE #define PRINT_REGISTER_HOOK(regno) print_register_hook(regno) int minimum_mode; #define CALL_DUMMY_LENGTH 10 /* Fake variables to make it easy to use 24 bit register pointers */ int h8500_is_trapped_internalvar PARAMS ((char *name)); #define IS_TRAPPED_INTERNALVAR h8500_is_trapped_internalvar struct value * h8500_value_of_trapped_internalvar (/* struct internalvar *var */); #define VALUE_OF_TRAPPED_INTERNALVAR h8500_value_of_trapped_internalvar void h8500_set_trapped_internalvar (/* struct internalvar *var, value newval, int bitpos, int bitsize, int offset */); #define SET_TRAPPED_INTERNALVAR h8500_set_trapped_internalvar int regoff[NUM_REGS]; CORE_ADDR target_read_sp(); void target_write_sp PARAMS ((CORE_ADDR )); CORE_ADDR target_read_fp(); void target_write_fp PARAMS ((CORE_ADDR )); CORE_ADDR target_read_pc(); void target_write_pc PARAMS ((CORE_ADDR )); #define TARGET_READ_SP() target_read_sp() #define TARGET_WRITE_SP(x) target_write_sp(x) #define TARGET_READ_PC() target_read_pc() #define TARGET_WRITE_PC(x) target_write_pc(x) #define TARGET_READ_FP() target_read_fp() #define TARGET_WRITE_FP(x) target_write_fp(x) #define GDB_TARGET_IS_H8500 gdb-4.13/gdb/config/i386/ 777 34562 1752 0 5623250564 13156 5ustar fnfcygnusgdb-4.13/gdb/config/i386/go32.mh 666 34562 1752 260 5562524226 14315 0ustar fnfcygnusMH_CFLAGS=-D__GO32__ -D__MSDOS__ XDEPFILES= go32-xdep.o XM_FILE= xm-go32.h TERMCAP= HOST_IPC=-DDOS_IPC SER_HARDWIRE= ser-go32.o CC=i386-go32-gcc -O2 -fno-omit-frame-pointer gdb-4.13/gdb/config/i386/i386aix.mh 666 34562 1752 413 5411444247 14733 0ustar fnfcygnus# Host: IBM PS/2 (i386) running AIX PS/2 XDEPFILES= XM_FILE= xm-i386aix.h NAT_FILE= nm-i386aix.h NATDEPFILES= infptrace.o inftarg.o fork-child.o corelow.o i386aix-nat.o REGEX=regex.o REGEX1=regex.o TERMCAP=-lcurses # Use gcc. Only coff output can be debugged CC=gcc gdb-4.13/gdb/config/i386/i386aix.mt 666 34562 1752 431 5411444247 14747 0ustar fnfcygnus# This port, for aix ps/2 (i386), will allow you to debug the coff # output generated gcc-2.3.3 + gas. It will not understand IBM's # proprietary debug info. # # Target: IBM PS/2 (i386) running AIX PS/2 TDEPFILES= exec.o i386-tdep.o i386-pinsn.o i387-tdep.o TM_FILE= tm-i386aix.h gdb-4.13/gdb/config/i386/i386aout.mt 666 34562 1752 140 5353461642 15136 0ustar fnfcygnus# Target: Intel 386 with a.out TDEPFILES= exec.o i386-tdep.o i386-pinsn.o TM_FILE= tm-i386v.h gdb-4.13/gdb/config/i386/i386bsd.mh 666 34562 1752 316 5360215052 14715 0ustar fnfcygnus# Host: Intel 386 running 386BSD XDEPFILES= NATDEPFILES= exec.o fork-child.o infptrace.o inftarg.o corelow.o coredep.o i386b-nat.o XM_FILE= xm-i386bsd.h NAT_FILE= nm-i386bsd.h REGEX=regex.o REGEX1=regex.o gdb-4.13/gdb/config/i386/i386bsd.mt 666 34562 1752 132 5353461652 14740 0ustar fnfcygnus# Target: Intel 386 running BSD TDEPFILES= i386-tdep.o i386-pinsn.o TM_FILE= tm-i386bsd.h gdb-4.13/gdb/config/i386/i386lynx.mh 666 34562 1752 363 5472354452 15155 0ustar fnfcygnus# Host: Intel 386 running LynxOS XM_FILE= xm-i386lynx.h XDEPFILES= NAT_FILE= nm-i386lynx.h NATDEPFILES= fork-child.o infptrace.o inftarg.o corelow.o lynx-nat.o REGEX=regex.o REGEX1=regex.o GDBSERVER_LIBS= -lbsd GDBSERVER_DEPFILES= low-lynx.o gdb-4.13/gdb/config/i386/i386lynx.mt 666 34562 1752 200 5464330674 15160 0ustar fnfcygnus# Target: Intel 386 running LynxOS TDEPFILES= exec.o coff-solib.o i386-tdep.o i386-pinsn.o i386ly-tdep.o TM_FILE= tm-i386lynx.h gdb-4.13/gdb/config/i386/i386m3.mh 666 34562 1752 424 5620274503 14471 0ustar fnfcygnus# Host: Intel 386 running Mach3 XDEPFILES= i387-tdep.o coredep.o NATDEPFILES= i386m3-nat.o m3-nat.o fork-child.o NAT_CLIBS= -lmachid -lnetname -lmach XM_FILE= xm-i386m3.h NAT_FILE= nm-m3.h # Don't use the mmalloc library in Mach 3. MMALLOC = MMALLOC_DISABLE = -DNO_MMALLOC gdb-4.13/gdb/config/i386/i386m3.mt 666 34562 1752 141 5463570374 14513 0ustar fnfcygnus# Target: Intel 386 with a.out TDEPFILES= exec.o i386-pinsn.o i386-tdep.o TM_FILE= tm-i386m3.h gdb-4.13/gdb/config/i386/i386mach.mh 666 34562 1752 476 5455074074 15100 0ustar fnfcygnus# Host: Intel 386 running Mach # This is for mach2, maybe, or is obsolete (and seems to have only # host and native, not target). Once we get the mach3 stuff working, # I think it can go away. XDEPFILES= XM_FILE= xm-i386mach.h NAT_FILE= nm-i386mach.h NATDEPFILES= infptrace.o inftarg.o fork-child.o i386mach-nat.o gdb-4.13/gdb/config/i386/i386mk.mh 666 34562 1752 321 5464467514 14571 0ustar fnfcygnus# Host: Intel 386 running Mach3 with OSF 1/MK XDEPFILES= os-mach3.o i386mach3-xdep.o i387-tdep.o XM_FILE= xm-i386osf1mk.h # Don't use the mmalloc library in Mach 3. MMALLOC = MMALLOC_DISABLE = -DNO_MMALLOC gdb-4.13/gdb/config/i386/i386mk.mt 666 34562 1752 416 5455074076 14607 0ustar fnfcygnus# Target: Intel 386 with a.out in osf 1/mk # TDEPFILES= exec.o i386-pinsn.o i386-tdep.o TM_FILE= tm-i386osf1mk.h TM_CFLAGS= -I/usr/mach3/include TM_CLIBS= /usr/mach3/ccs/lib/libmachid.a /usr/mach3/ccs/lib/libnetname.a /usr/mach3/ccs/lib/libmach.a OBJFORMATS= dbxread.o gdb-4.13/gdb/config/i386/i386nw.mt 666 34562 1752 160 5467453612 14620 0ustar fnfcygnus# Target: Intel 386 running NetWare TDEPFILES= i386-pinsn.o i386-tdep.o i387-tdep.o exec.o TM_FILE= tm-i386nw.h gdb-4.13/gdb/config/i386/i386os9k.mt 666 34562 1752 163 5535000615 15047 0ustar fnfcygnus# Target: Intel 386 running OS9000 TDEPFILES= exec.o i386-tdep.o i386-pinsn.o remote-os9k.o TM_FILE= tm-i386os9k.h gdb-4.13/gdb/config/i386/i386sco.mh 666 34562 1752 725 5577176743 14764 0ustar fnfcygnus# Host: Intel 386 running SCO Unix (pre-SVR4) XDEPFILES= XM_FILE= xm-i386sco.h NAT_FILE= nm-i386sco.h NATDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o i386v-nat.o XM_CLIBS= -lPW SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o #msg The SCO C compiler cannot parse symtab.h when value.h has been included. #msg This is a bug in the compiler; the code is valid. #msg Therefore, you must use GCC to compile GDB on SCO machines. CC=gcc -D_POSIX_SOURCE=1 gdb-4.13/gdb/config/i386/i386sco4.mh 666 34562 1752 1011 5577176745 15057 0ustar fnfcygnus# Host: Intel 386 running SCO Unix 3.2v4 XDEPFILES= XM_FILE= xm-i386sco.h NAT_FILE= nm-i386sco4.h NATDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o i386v-nat.o XM_CLIBS= -lPW SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o # The cc compiler mishandles const in cases like # struct type ** const (c_builtin_types[]) = MH_CFLAGS=-Dconst= # The cc compiler sometimes produces debugging output that nm can not # parse. Passing -p to nm makes it not even try, and allows munch to # work. MUNCH_DEFINE=-p gdb-4.13/gdb/config/i386/i386sol2.mh 666 34562 1752 1464 5470620121 15050 0ustar fnfcygnus# Host: Intel 386 running Solaris 2 (SVR4). # Solaris-2 makes `install' optional in the Berkeley compatability pkg. # cp will do fine. INSTALL = cp SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o # Need to compile and link in support for SVR4's /proc and i386 host dependent # routines. XDEPFILES= # Use the i386 SVR4 host configuration file. XM_FILE= xm-i386v4.h NAT_FILE= nm-i386v4.h # I'm told that gdb 4.11 gets "File in wrong format" on core files # with Solaris 2.1, so comment out corelow.o until it is fixed. NATDEPFILES= core-svr4.o exec.o procfs.o fork-child.o i386v4-nat.o # corelow.o # SVR4 comes standard with terminfo, and in some implementations, the # old termcap descriptions are incomplete. So ensure that we use the # new terminfo interface and latest terminal descriptions. TERMCAP=-ltermlib gdb-4.13/gdb/config/i386/i386sol2.mt 666 34562 1752 156 5353461665 15061 0ustar fnfcygnus# Target: Intel 386 running SVR4 TDEPFILES= i386-pinsn.o i386-tdep.o i387-tdep.o solib.o TM_FILE= tm-i386v4.h gdb-4.13/gdb/config/i386/i386v.mh 666 34562 1752 356 5353461666 14436 0ustar fnfcygnus# Host: Intel 386 running System V XDEPFILES= XM_FILE= xm-i386v.h NAT_FILE= nm-i386v.h NATDEPFILES= exec.o infptrace.o inftarg.o fork-child.o coredep.o corelow.o i386v-nat.o XM_CLIBS= -lPW SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o gdb-4.13/gdb/config/i386/i386v.mt 666 34562 1752 160 5353461667 14444 0ustar fnfcygnus# Target: Intel 386 running System V TDEPFILES= exec.o i386-tdep.o i386-pinsn.o i387-tdep.o TM_FILE= tm-i386v.h gdb-4.13/gdb/config/i386/i386v32.mh 666 34562 1752 365 5353461672 14600 0ustar fnfcygnus# Host: Intel 386 running System V release 3.2 XDEPFILES= XM_FILE= xm-i386v32.h NAT_FILE= nm-i386v.h NATDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o i386v-nat.o XM_CLIBS= -lPW SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o gdb-4.13/gdb/config/i386/i386v4.mh 666 34562 1752 1304 5452131626 14522 0ustar fnfcygnus# Host: Intel 386 running SVR4. SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o # Need to compile and link in support for SVR4's /proc and i386 host dependent # routines. XDEPFILES= # Use the i386 SVR4 host configuration file. XM_FILE= xm-i386v4.h NAT_FILE= nm-i386v4.h NATDEPFILES= corelow.o core-svr4.o solib.o procfs.o fork-child.o i386v4-nat.o # SVR4 comes standard with terminfo, and in some implementations, the # old termcap descriptions are incomplete. So ensure that we use the # new terminfo interface and latest terminal descriptions. TERMCAP=-ltermlib # SVR4 puts the BSD compatible install in /usr/ucb. INSTALL = /usr/ucb/install -c # for network communication XM_CLIBS= -lsocket -lnsl gdb-4.13/gdb/config/i386/i386v4.mt 666 34562 1752 155 5452131630 14514 0ustar fnfcygnus# Target: Intel 386 running SVR4 TDEPFILES= i386-pinsn.o i386-tdep.o i387-tdep.o exec.o TM_FILE= tm-i386v4.h gdb-4.13/gdb/config/i386/linux.mh 666 34562 1752 254 5472010305 14671 0ustar fnfcygnus# Host: Intel 386 running Linux XDEPFILES= XM_FILE= xm-linux.h NAT_FILE= nm-linux.h NATDEPFILES= exec.o infptrace.o inftarg.o fork-child.o coredep.o i386v-nat.o corelow.o gdb-4.13/gdb/config/i386/linux.mt 666 34562 1752 143 5353461700 14711 0ustar fnfcygnus# Target: Intel 386 with a.out TDEPFILES= i386-tdep.o i386-pinsn.o i387-tdep.o TM_FILE= tm-linux.h gdb-4.13/gdb/config/i386/ncr3000.mh 666 34562 1752 2177 5412412015 14643 0ustar fnfcygnus# Host: Intel 386 running SVR4. # The NCR 3000 ships with a MetaWare compiler installed as /bin/cc. # This compiler not only emits obnoxious copyright messages every time # you run it, but it chokes and dies on a whole bunch of GNU source # files. Default to using the AT&T compiler installed in /usr/ccs/ATT/cc. # Unfortunately though, the AT&T compiler sometimes generates code that # the assembler barfs on if -g is used, so disable it by default as well. CC = /usr/ccs/ATT/cc CFLAGS = SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o # Need to compile and link in support for SVR4's /proc and i386 host dependent # routines. XDEPFILES= # Use the i386 SVR4 host configuration file. XM_FILE= xm-i386v4.h NAT_FILE= nm-i386v4.h NATDEPFILES= corelow.o core-svr4.o exec.o procfs.o fork-child.o i386v4-nat.o # SVR4 comes standard with terminfo, and in some implementations, the # old termcap descriptions are incomplete. So ensure that we use the # new terminfo interface and latest terminal descriptions. TERMCAP=-ltermlib # The /usr/ucb/install program is incompatible (complains about unknown # group staff). Use good old cp... INSTALL = cp gdb-4.13/gdb/config/i386/ncr3000.mt 666 34562 1752 156 5353461703 14646 0ustar fnfcygnus# Target: Intel 386 running SVR4 TDEPFILES= i386-pinsn.o i386-tdep.o i387-tdep.o solib.o TM_FILE= tm-i386v4.h gdb-4.13/gdb/config/i386/nm-i386aix.h 666 34562 1752 2660 5411440065 15206 0ustar fnfcygnus/* Native support for i386 aix ps/2. Copyright 1986, 1987, 1989, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Changes for IBM AIX PS/2 by Minh Tran-Le (tranle@intellicorp.com) * Revision: 5-May-93 00:11:35 */ #ifndef NM_I386AIX_H #define NM_I386AIX_H 1 /* code to execute to print interesting information about the * floating point processor (if any) * No need to define if there is nothing to do. */ #define FLOAT_INFO { i386_float_info (); } /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #undef KERNEL_U_ADDR #define KERNEL_U_ADDR 0xf03fd000 /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS #endif /* NM_I386AIX_H */ gdb-4.13/gdb/config/i386/nm-i386bsd.h 666 34562 1752 2435 5427232602 15200 0ustar fnfcygnus/* Native-dependent definitions for Intel 386 running BSD Unix, for GDB. Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef NM_I386BSD_H #define NM_I386BSD_H /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #include #define KERNEL_U_ADDR USRSTACK #undef FLOAT_INFO /* No float info yet */ #define REGISTER_U_ADDR(addr, blockend, regno) \ (addr) = i386_register_u_addr ((blockend),(regno)); extern int i386_register_u_addr PARAMS ((int, int)); #define PTRACE_ARG3_TYPE char* #endif /* NM_I386BSD_H */ gdb-4.13/gdb/config/i386/nm-i386lynx.h 666 34562 1752 1602 5472354453 15426 0ustar fnfcygnus/* Native-dependent definitions for Intel 386 running LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef NM_I386LYNX_H #define NM_I386LYNX_H #include "nm-lynx.h" #endif /* NM_I386LYNX_H */ gdb-4.13/gdb/config/i386/nm-i386mach.h 666 34562 1752 1761 5353461705 15347 0ustar fnfcygnus/* Native definitions for Mach on an Intel 386 Copyright (C) 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Do implement the attach and detach commands. */ /* #define ATTACH_DETACH 1 */ /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS gdb-4.13/gdb/config/i386/nm-i386sco.h 666 34562 1752 3355 5515065667 15233 0ustar fnfcygnus/* Native support for i386. Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc. Changes for 80386 by Pace Willisson (pace@prep.ai.mit.edu), July 1988. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if 0 /* code to execute to print interesting information about the floating point processor (if any) No need to define if there is nothing to do. On the 386, unfortunately this code is host-dependent (and lives in the i386-xdep.c file), so we can't do this unless we *know* we aren't cross-debugging. FIXME. */ #define FLOAT_INFO { i386_float_info (); } #endif /*0*/ #define REGISTER_U_ADDR(addr, blockend, regno) \ (addr) = i386_register_u_addr ((blockend),(regno)); extern int i386_register_u_addr PARAMS ((int, int)); /* * SysV doesn't always have a or file * (why, I don't know), and we don't need it. */ #define NO_PTRACE_H /* When calling functions on SCO, sometimes we get an error writing some of the segment registers. This would appear to be a kernel bug/non-feature. */ #define CANNOT_STORE_REGISTER(regno) ((regno) == 14 || (regno) == 15) gdb-4.13/gdb/config/i386/nm-i386sco4.h 666 34562 1752 2322 5353461710 15275 0ustar fnfcygnus/* Native support for SCO 3.2v4. Copyright 1993 Free Software Foundation, Inc. Contributed by Cygnus Support. By Ian Lance Taylor based on work by Martin Walker . This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SCO 3.2v4 is actually just like SCO 3.2v2, except that it additionally supports attaching to a process. */ #include "i386/nm-i386sco.h" #define ATTACH_DETACH /* SCO, in its wisdom, does not provide . infptrace.c does not have defaults for these values. */ #define PTRACE_ATTACH 10 #define PTRACE_DETACH 11 gdb-4.13/gdb/config/i386/nm-i386v.h 666 34562 1752 2621 5364570252 14700 0ustar fnfcygnus/* Native support for i386. Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc. Changes for 80386 by Pace Willisson (pace@prep.ai.mit.edu), July 1988. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if 0 /* code to execute to print interesting information about the floating point processor (if any) No need to define if there is nothing to do. On the 386, unfortunately this code is host-dependent (and lives in the i386-xdep.c file), so we can't do this unless we *know* we aren't cross-debugging. FIXME. */ #define FLOAT_INFO { i386_float_info (); } #endif /*0*/ #define REGISTER_U_ADDR(addr, blockend, regno) \ (addr) = i386_register_u_addr ((blockend),(regno)); extern int i386_register_u_addr PARAMS ((int, int)); #define NO_PTRACE_H gdb-4.13/gdb/config/i386/nm-i386v4.h 666 34562 1752 1601 5452131630 14750 0ustar fnfcygnus/* Native support for i386 running SVR4. Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc. Changes for 80386 by Pace Willisson (pace@prep.ai.mit.edu), July 1988. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "nm-sysv4.h" gdb-4.13/gdb/config/i386/nm-linux.h 666 34562 1752 3365 5601671434 15164 0ustar fnfcygnus/* Native support for linux, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "i386/nm-i386v.h" /* Tell gdb that we can attach and detach other processes */ #define ATTACH_DETACH #define U_REGS_OFFSET 0 /* Linux uses the SYSV i386v-nat.c support, but doesn't have */ #define NO_SYS_REG_H /* Linux supports the 386 hardware debugging registers. */ #define TARGET_CAN_USE_HARDWARE_WATCHPOINT(type, cnt, ot) 1 /* After a watchpoint trap, the PC points to the instruction after the one that caused the trap. Therefore we don't need to step over it. But we do need to reset the status register to avoid another trap. */ #define HAVE_CONTINUABLE_WATCHPOINT #define STOPPED_BY_WATCHPOINT(W) \ i386_stopped_by_watchpoint (inferior_pid) /* Use these macros for watchpoint insertion/removal. */ #define target_insert_watchpoint(addr, len, type) \ i386_insert_watchpoint (inferior_pid, addr, len, 2) #define target_remove_watchpoint(addr, len, type) \ i386_remove_watchpoint (inferior_pid, addr, len) gdb-4.13/gdb/config/i386/nm-ptx4.h 666 34562 1752 4041 5544677622 14727 0ustar fnfcygnus/* Definitions to make GDB run on a Sequent Symmetry under ptx with Weitek 1167 and i387 support. Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "nm-sysv4.h" #undef USE_PROC_FS #include "nm-symmetry.h" #define PTRACE_READ_REGS(pid,regaddr) mptrace (XPT_RREGS, (pid), (regaddr), 0) #define PTRACE_WRITE_REGS(pid,regaddr) \ mptrace (XPT_WREGS, (pid), (regaddr), 0) /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS #define CHILD_WAIT struct target_waitstatus; extern int child_wait PARAMS ((int, struct target_waitstatus *)); /* * ptx does attach as of ptx version 2.1. Prior to that, the interface * exists but does not work. * * FIXME: Using attach/detach requires using the ptx MPDEBUGGER * interface. There are still problems with that, so for now don't * enable attach/detach. If you turn it on anyway, it will mostly * work, but has a number of bugs. -fubar, 2/94. */ /*#define ATTACH_DETACH 1*/ #undef ATTACH_DETACH #define PTRACE_ATTACH XPT_DEBUG #define PTRACE_DETACH XPT_UNDEBUG /* * The following drivel is needed because there are two ptrace-ish * calls on ptx: ptrace() and mptrace(), each of which does about half * of the ptrace functions. */ #define PTRACE_ATTACH_CALL(pid) ptx_do_attach(pid) #define PTRACE_DETACH_CALL(pid, signo) ptx_do_detach(pid, signo) gdb-4.13/gdb/config/i386/nm-sun386.h 666 34562 1752 1760 5353461717 15075 0ustar fnfcygnus/* Native support for Sun 386i, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Do implement the attach and detach commands. */ #define ATTACH_DETACH /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS gdb-4.13/gdb/config/i386/nm-symmetry.h 666 34562 1752 2771 5543407223 15714 0ustar fnfcygnus/* Definitions to make GDB run on a Sequent Symmetry under dynix 3.0, with Weitek 1167 and i387 support. Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS #ifdef _SEQUENT_ #define CHILD_WAIT extern int child_wait PARAMS ((int, struct target_waitstatus *)); #endif /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #ifdef _SEQUENT_ #include #include #include /* VA_UAREA is defined in , and is dependant upon sizeof(struct user) */ #define KERNEL_U_ADDR (VA_UAREA) /* ptx */ #else #define KERNEL_U_ADDR (0x80000000 - (UPAGES * NBPG)) /* dynix */ #define NO_PTRACE_H #endif gdb-4.13/gdb/config/i386/ptx.mh 666 34562 1752 341 5544677622 14367 0ustar fnfcygnus# Host: Sequent Symmetry running ptx 1.3, with Weitek 1167 or i387. XDEPFILES= inftarg.o fork-child.o symm-nat.o corelow.o coredep.o XM_FILE= xm-ptx.h NAT_FILE= nm-symmetry.h XM_CLIBS= -lPW -lseq REGEX=regex.o REGEX1=regex.o gdb-4.13/gdb/config/i386/ptx.mt 666 34562 1752 233 5544677623 14404 0ustar fnfcygnus# Target: Sequent Symmetry running ptx 2.0, with Weitek 1167 or i387. TDEPFILES= exec.o symm-tdep.o i386-pinsn.o i387-tdep.o i386-tdep.o TM_FILE= tm-ptx.h gdb-4.13/gdb/config/i386/ptx4.mh 666 34562 1752 355 5544677623 14461 0ustar fnfcygnus# Host: Sequent Symmetry running ptx 1.3, with Weitek 1167 or i387. XDEPFILES= inftarg.o fork-child.o symm-nat.o corelow.o coredep.o solib.o core-svr4.o XM_FILE= xm-ptx4.h NAT_FILE= nm-ptx4.h XM_CLIBS= -lseq REGEX=regex.o REGEX1=regex.o gdb-4.13/gdb/config/i386/ptx4.mt 666 34562 1752 234 5544677624 14472 0ustar fnfcygnus# Target: Sequent Symmetry running ptx 4.0, with Weitek 1167 or i387. TDEPFILES= exec.o symm-tdep.o i386-pinsn.o i387-tdep.o i386-tdep.o TM_FILE= tm-ptx4.h gdb-4.13/gdb/config/i386/sun386.mh 666 34562 1752 214 5353461721 14606 0ustar fnfcygnus# Host: Sun 386i XDEPFILES= XM_FILE= xm-sun386.h NAT_FILE= nm-sun386.h NATDEPFILES= exec.o infptrace.o inftarg.o fork-child.o sun386-nat.o gdb-4.13/gdb/config/i386/sun386.mt 666 34562 1752 143 5353461722 14624 0ustar fnfcygnus# Target: Sun 386i target configuration file. TDEPFILES= i386-pinsn.o solib.o TM_FILE= tm-sun386.h gdb-4.13/gdb/config/i386/symmetry.mh 666 34562 1752 312 5543407225 15430 0ustar fnfcygnus# Host: Sequent Symmetry running Dynix 3.0, with Weitek 1167 or i387. XDEPFILES= XM_FILE= xm-symmetry.h NAT_FILE= nm-symmetry.h NATDEPFILES= exec.o inftarg.o fork-child.o coredep.o corelow.o symm-nat.o gdb-4.13/gdb/config/i386/symmetry.mt 666 34562 1752 233 5543407227 15450 0ustar fnfcygnus# Target: Sequent Symmetry running Dynix 3.0, with Weitek 1167 or i387. TDEPFILES= i386-tdep.o symm-tdep.o i386-pinsn.o i387-tdep.o TM_FILE= tm-symmetry.h gdb-4.13/gdb/config/i386/tm-i386aix.h 666 34562 1752 12600 5543407230 15232 0ustar fnfcygnus/* Macro defintions for IBM AIX PS/2 (i386). Copyright 1986, 1987, 1989, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Changes for IBM AIX PS/2 by Minh Tran-Le (tranle@intellicorp.com). */ #ifndef TM_I386AIX_H #define TM_I386AIX_H 1 #include "i386/tm-i386v.h" #include #ifndef I386 # define I386 1 #endif #ifndef I386_AIX_TARGET # define I386_AIX_TARGET 1 #endif /* number of traps that happen between exec'ing the shell * to run an inferior, and when we finally get to * the inferior code. This is 2 on most implementations. */ #undef START_INFERIOR_TRAPS_EXPECTED #define START_INFERIOR_TRAPS_EXPECTED 2 /* Number of machine registers */ #undef NUM_REGS #define NUM_REGS 24 /* 16+8 */ /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ /* the order of the first 8 registers must match the compiler's * numbering scheme (which is the same as the 386 scheme) * also, this table must match regmap in i386-pinsn.c. */ #undef REGISTER_NAMES #define REGISTER_NAMES { "eax", "ecx", "edx", "ebx", \ "esp", "ebp", "esi", "edi", \ "eip", "eflags", "cs", "ss", \ "ds", "es", "fs", "gs", \ "st0", "st1", "st2", "st3", \ "st4", "st5", "st6", "st7", \ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #undef FP_REGNUM #define FP_REGNUM 5 /* (ebp) Contains address of executing stack frame */ #undef SP_REGNUM #define SP_REGNUM 4 /* (usp) Contains address of top of stack */ #undef PC_REGNUM #define PC_REGNUM 8 /* (eip) Contains program counter */ #undef PS_REGNUM #define PS_REGNUM 9 /* (eflags) Contains processor status */ #define FP0_REGNUM 16 /* (st0) 387 register */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ /* 16 i386 registers and 8 i387 registers */ #undef REGISTER_BYTES #define REGISTER_BYTES (16*4 + 8*10) /* Index within `registers' of the first byte of the space for register N. */ #undef REGISTER_BYTE #define REGISTER_BYTE(N) \ ((N < FP0_REGNUM) ? (N * 4) : \ (((N - FP0_REGNUM) * 10) + 64)) /* Number of bytes of storage in the actual machine representation * for register N. All registers are 4 bytes, except 387 st(0) - st(7), * which are 80 bits each. */ #undef REGISTER_RAW_SIZE #define REGISTER_RAW_SIZE(N) \ ((N < FP0_REGNUM) ? 4 : 10) /* Largest value REGISTER_RAW_SIZE can have. */ #undef MAX_REGISTER_RAW_SIZE #define MAX_REGISTER_RAW_SIZE 10 /* Nonzero if register N requires conversion from raw format to virtual format. */ #undef REGISTER_CONVERTIBLE #define REGISTER_CONVERTIBLE(N) \ ((N < FP0_REGNUM) ? 0 : 1) /* Convert data from raw format for register REGNUM in buffer FROM to virtual format with type TYPE in buffer TO. */ #undef REGISTER_CONVERT_TO_VIRTUAL #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \ { \ double val; \ i387_to_double ((FROM), (char *)&val); \ store_floating ((TO), TYPE_LENGTH (TYPE), val); \ } extern void i387_to_double PARAMS ((char *, char *)); /* Convert data from virtual format with type TYPE in buffer FROM to raw format for register REGNUM in buffer TO. */ #undef REGISTER_CONVERT_TO_RAW #define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \ { \ double val = extract_floating ((FROM), TYPE_LENGTH (TYPE)); \ double_to_i387((char *)&val, (TO)); \ } extern void double_to_i387 PARAMS ((char *, char *)); /* Return the GDB type object for the "standard" data type of data in register N. */ #undef REGISTER_VIRTUAL_TYPE #define REGISTER_VIRTUAL_TYPE(N) \ ((N < FP0_REGNUM) ? builtin_type_int : \ builtin_type_double) /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #undef EXTRACT_RETURN_VALUE #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ i386_extract_return_value (TYPE,REGBUF,VALBUF) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #undef STORE_RETURN_VALUE #define STORE_RETURN_VALUE(TYPE,VALBUF) \ { \ if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ write_register_bytes (REGISTER_BYTE (FP0_REGNUM), (VALBUF), \ TYPE_LENGTH (TYPE)); \ else \ write_register_bytes (0, (VALBUF), TYPE_LENGTH (TYPE)); \ } #endif /* TM_I386AIX_H */ gdb-4.13/gdb/config/i386/tm-i386bsd.h 666 34562 1752 5470 5541426366 15221 0ustar fnfcygnus/* Macro definitions for i386 running under BSD Unix. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Override number of expected traps from sysv. */ #define START_INFERIOR_TRAPS_EXPECTED 2 /* Most definitions from sysv could be used. */ #include "i386/tm-i386v.h" /* 386BSD cannot handle the segment registers. */ /* BSDI can't handle them either. */ #undef NUM_REGS #define NUM_REGS 10 /* On 386 bsd, sigtramp is above the user stack and immediately below the user area. Using constants here allows for cross debugging. These are tested for BSDI but should work on 386BSD. */ #define SIGTRAMP_START 0xfdbfdfc0 #define SIGTRAMP_END 0xfdbfe000 /* The following redefines make backtracing through sigtramp work. They manufacture a fake sigtramp frame and obtain the saved pc in sigtramp from the sigcontext structure which is pushed by the kernel on the user stack, along with a pointer to it. */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. In the case of the i386, the frame's nominal address is the address of a 4-byte word containing the calling frame's address. */ #undef FRAME_CHAIN #define FRAME_CHAIN(thisframe) \ (thisframe->signal_handler_caller \ ? thisframe->frame \ : (!inside_entry_file ((thisframe)->pc) \ ? read_memory_integer ((thisframe)->frame, 4) \ : 0)) /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #undef FRAMELESS_FUNCTION_INVOCATION #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ do { \ if ((FI)->signal_handler_caller) \ (FRAMELESS) = 0; \ else \ (FRAMELESS) = frameless_look_for_prologue(FI); \ } while (0) /* Saved Pc. Get it from sigcontext if within sigtramp. */ /* Offset to saved PC in sigcontext, from . */ #define SIGCONTEXT_PC_OFFSET 20 #undef FRAME_SAVED_PC #define FRAME_SAVED_PC(FRAME) \ (((FRAME)->signal_handler_caller \ ? sigtramp_saved_pc (FRAME) \ : read_memory_integer ((FRAME)->frame + 4, 4)) \ ) gdb-4.13/gdb/config/i386/tm-i386lynx.h 666 34562 1752 2112 5472354454 15432 0ustar fnfcygnus/* Macro definitions for Intel 386 running under LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef TM_I386LYNX_H #define TM_I386LYNX_H #include "tm-lynx.h" /* Most definitions from sysv could be used. */ #include "i386/tm-i386v.h" #undef SAVED_PC_AFTER_CALL #define SAVED_PC_AFTER_CALL i386lynx_saved_pc_after_call CORE_ADDR i386lynx_saved_pc_after_call (); #endif /* TM_I386LYNX_H */ gdb-4.13/gdb/config/i386/tm-i386m3.h 666 34562 1752 3766 5463546113 14772 0ustar fnfcygnus/* Macro definitions for i386, Mach 3.0 Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Include common definitions for Mach3 systems */ #include "nm-m3.h" /* Define offsets to access CPROC stack when it does not have * a kernel thread. */ #define MACHINE_CPROC_SP_OFFSET 20 #define MACHINE_CPROC_PC_OFFSET 16 #define MACHINE_CPROC_FP_OFFSET 12 /* Thread flavors used in re-setting the T bit. * @@ this is also bad for cross debugging. */ #define TRACE_FLAVOR i386_THREAD_STATE #define TRACE_FLAVOR_SIZE i386_THREAD_STATE_COUNT #define TRACE_SET(x,state) \ ((struct i386_thread_state *)state)->efl |= 0x100 #define TRACE_CLEAR(x,state) \ ((((struct i386_thread_state *)state)->efl &= ~0x100), 1) /* we can do it */ #define ATTACH_DETACH 1 /* Define this if the C compiler puts an underscore at the front of external names before giving them to the linker. */ #define NAMES_HAVE_UNDERSCORE /* Sigh. There should be a file for i386 but no sysv stuff in it */ #include "i386/tm-i386v.h" /* I want to test this float info code. See comment in tm-i386v.h */ #undef FLOAT_INFO #define FLOAT_INFO { i386_mach3_float_info (); } /* Address of end of stack space. * for MACH, see * @@@ I don't know what is in the 5 ints... */ #undef STACK_END_ADDR #define STACK_END_ADDR (0xc0000000-sizeof(int [5])) gdb-4.13/gdb/config/i386/tm-i386mk.h 666 34562 1752 1656 5457423122 15053 0ustar fnfcygnus/* Macro definitions for i386, Mach 3.0, OSF 1/MK Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Until OSF switches to a newer Mach kernel that has * a different get_emul_vector() interface. */ #define MK67 1 #include "i386/tm-i386m3.h" gdb-4.13/gdb/config/i386/tm-i386nw.h 666 34562 1752 2374 5575533416 15077 0ustar fnfcygnus/* Macro definitions for i386 running NetWare. Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Override number of expected traps from sysv. */ #define START_INFERIOR_TRAPS_EXPECTED 2 /* FIXME: tm-i386v.h seems to be used in a lot of target config files as a generic i386 target config file. The parts that are truely generic should be extracted out and placed in a tm-i386.h file that all the others, including tm-i386v.h, includes as needed. */ #include "i386/tm-i386v.h" /* Stop backtracing when we wander into main. */ #define FRAME_CHAIN_VALID_ALTERNATE gdb-4.13/gdb/config/i386/tm-i386os9k.h 666 34562 1752 6275 5537507727 15350 0ustar fnfcygnus/* Macro definitions for i386 running under BSD Unix. Copyright 1986, 1987, 1989, 1991, 1992, 1993 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Override number of expected traps from sysv. */ #define START_INFERIOR_TRAPS_EXPECTED 2 /* Most definitions from sysv could be used. */ #include "i386/tm-i386v.h" /* 386BSD cannot handle the segment registers. */ /* BSDI can't handle them either. */ #if 0 #undef NUM_REGS #define NUM_REGS 10 #endif 0 #undef REGISTER_NAMES #define REGISTER_NAMES { "eax", "ecx", "edx", "ebx", \ "esp", "ebp", "esi", "edi", \ "eip", "eflags", "cs", "ss", \ "ds", "es", "fs", "gs", \ } #define DATABASE_REG 3 /* ebx */ #undef DECR_PC_AFTER_BREAK #define DECR_PC_AFTER_BREAK 0 /* On 386 bsd, sigtramp is above the user stack and immediately below the user area. Using constants here allows for cross debugging. These are tested for BSDI but should work on 386BSD. */ #define SIGTRAMP_START 0xfdbfdfc0 #define SIGTRAMP_END 0xfdbfe000 /* The following redefines make backtracing through sigtramp work. They manufacture a fake sigtramp frame and obtain the saved pc in sigtramp from the sigcontext structure which is pushed by the kernel on the user stack, along with a pointer to it. */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. In the case of the i386, the frame's nominal address is the address of a 4-byte word containing the calling frame's address. */ #undef FRAME_CHAIN #define FRAME_CHAIN(thisframe) \ (thisframe->signal_handler_caller \ ? thisframe->frame \ : (!inside_entry_file ((thisframe)->pc) \ ? read_memory_integer ((thisframe)->frame, 4) \ : 0)) /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #undef FRAMELESS_FUNCTION_INVOCATION #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ do { \ if ((FI)->signal_handler_caller) \ (FRAMELESS) = 0; \ else \ (FRAMELESS) = frameless_look_for_prologue(FI); \ } while (0) /* Saved Pc. Get it from sigcontext if within sigtramp. */ /* Offset to saved PC in sigcontext, from . */ #define SIGCONTEXT_PC_OFFSET 20 #undef FRAME_SAVED_PC(FRAME) #define FRAME_SAVED_PC(FRAME) \ (((FRAME)->signal_handler_caller \ ? sigtramp_saved_pc (FRAME) \ : read_memory_integer ((FRAME)->frame + 4, 4)) \ ) #define BELIEVE_PCC_PROMOTION 1 gdb-4.13/gdb/config/i386/tm-i386v.h 666 34562 1752 22027 5513346615 14730 0ustar fnfcygnus/* Macro definitions for i386, Unix System V. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (TM_I386V_H) #define TM_I386V_H 1 /* * Changes for 80386 by Pace Willisson (pace@prep.ai.mit.edu) * July 1988 */ #define TARGET_BYTE_ORDER LITTLE_ENDIAN /* turn this on when rest of gdb is ready */ #define IEEE_FLOAT /* number of traps that happen between exec'ing the shell * to run an inferior, and when we finally get to * the inferior code. This is 2 on most implementations. */ #ifndef START_INFERIOR_TRAPS_EXPECTED #define START_INFERIOR_TRAPS_EXPECTED 4 #endif /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(frompc) {(frompc) = i386_skip_prologue((frompc));} extern int i386_skip_prologue PARAMS ((int)); /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) \ (read_memory_integer (read_register (SP_REGNUM), 4)) /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0xcc} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #ifndef DECR_PC_AFTER_BREAK #define DECR_PC_AFTER_BREAK 1 #endif /* Nonzero if instruction at PC is a return instruction. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 1) == 0xc3) /* Return 1 if P points to an invalid floating point value. LEN is the length in bytes -- not relevant on the 386. */ #define INVALID_FLOAT(p, len) (0) /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 16 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ /* the order of the first 8 registers must match the compiler's * numbering scheme (which is the same as the 386 scheme) * also, this table must match regmap in i386-pinsn.c. */ #define REGISTER_NAMES { "eax", "ecx", "edx", "ebx", \ "esp", "ebp", "esi", "edi", \ "eip", "ps", "cs", "ss", \ "ds", "es", "fs", "gs", \ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define FP_REGNUM 5 /* Contains address of executing stack frame */ #define SP_REGNUM 4 /* Contains address of top of stack */ #define PC_REGNUM 8 #define PS_REGNUM 9 /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (NUM_REGS * 4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N)*4) /* Number of bytes of storage in the actual machine representation for register N. */ #define REGISTER_RAW_SIZE(N) (4) /* Number of bytes of storage in the program's representation for register N. */ #define REGISTER_VIRTUAL_SIZE(N) (4) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 4 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 4 /* Return the GDB type object for the "standard" data type of data in register N. */ /* Perhaps si and di should go here, but potentially they could be used for things other than address. */ #define REGISTER_VIRTUAL_TYPE(N) \ ((N) == PC_REGNUM || (N) == FP_REGNUM || (N) == SP_REGNUM ? \ lookup_pointer_type (builtin_type_void) : builtin_type_int) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ { (SP) -= sizeof (ADDR); \ write_memory ((SP), (char *) &(ADDR), sizeof (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy ((VALBUF), (REGBUF), TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ #define FRAME_CHAIN(thisframe) \ (!inside_entry_file ((thisframe)->pc) ? \ read_memory_integer ((thisframe)->frame, 4) :\ 0) /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ (FRAMELESS) = frameless_look_for_prologue(FI) #define FRAME_SAVED_PC(FRAME) (read_memory_integer ((FRAME)->frame + 4, 4)) #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(numargs, fi) (numargs) = -1 #ifdef __STDC__ /* Forward decl's for prototypes */ struct frame_info; struct frame_saved_regs; #endif extern int i386_frame_num_args PARAMS ((struct frame_info *)); /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 8 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { i386_frame_find_saved_regs ((frame_info), &(frame_saved_regs)); } extern void i386_frame_find_saved_regs PARAMS ((struct frame_info *, struct frame_saved_regs *)); /* Things needed for making the inferior call functions. */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME { i386_push_dummy_frame (); } extern void i386_push_dummy_frame PARAMS ((void)); /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME { i386_pop_frame (); } extern void i386_pop_frame PARAMS ((void)); /* this is * call 11223344 (32 bit relative) * int3 */ #define CALL_DUMMY { 0x223344e8, 0xcc11 } #define CALL_DUMMY_LENGTH 8 #define CALL_DUMMY_START_OFFSET 0 /* Start execution at beginning of dummy */ #define CALL_DUMMY_BREAKPOINT_OFFSET 5 /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { \ int from, to, delta, loc; \ loc = (int)(read_register (SP_REGNUM) - CALL_DUMMY_LENGTH); \ from = loc + 5; \ to = (int)(fun); \ delta = to - from; \ *((char *)(dummyname) + 1) = (delta & 0xff); \ *((char *)(dummyname) + 2) = ((delta >> 8) & 0xff); \ *((char *)(dummyname) + 3) = ((delta >> 16) & 0xff); \ *((char *)(dummyname) + 4) = ((delta >> 24) & 0xff); \ } extern void print_387_control_word PARAMS ((unsigned int)); extern void print_387_status_word PARAMS ((unsigned int)); /* Offset from SP to first arg on stack at first instruction of a function */ #define SP_ARG0 (1 * 4) #endif /* !defined (TM_I386V_H) */ gdb-4.13/gdb/config/i386/tm-i386v4.h 666 34562 1752 10144 5537152734 15014 0ustar fnfcygnus/* Macro definitions for GDB on an Intel i386 running SVR4. Copyright (C) 1991, 1994 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support (fnf@cygint) This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Use the alternate method of determining valid frame chains. */ #define FRAME_CHAIN_VALID_ALTERNATE /* number of traps that happen between exec'ing the shell * to run an inferior, and when we finally get to * the inferior code. This is 2 on most implementations. */ #define START_INFERIOR_TRAPS_EXPECTED 2 /* Pick up most of what we need from the generic i386 target include file. */ #include "i386/tm-i386v.h" /* Pick up more stuff from the generic SVR4 host include file. */ #include "tm-sysv4.h" /* We can't tell how many args there are now that the C compiler delays popping them. */ #undef FRAME_NUM_ARGS #define FRAME_NUM_ARGS(val,fi) (val = -1) /* Offsets (in target ints) into jmp_buf. Not defined in any system header file, so we have to step through setjmp/longjmp with a debugger and figure them out. Note that defines _JBLEN as 10, which is the default if no specific machine is selected, even though we only use 6 slots. */ #define JB_ELEMENT_SIZE sizeof(int) /* jmp_buf[_JBLEN] is array of ints */ #define JB_EBX 0 #define JB_ESI 1 #define JB_EDI 2 #define JB_EBP 3 #define JB_ESP 4 #define JB_EDX 5 #define JB_PC JB_EDX /* Setjmp()'s return PC saved in EDX */ /* Figure out where the longjmp will land. Slurp the args out of the stack. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ extern int get_longjmp_target PARAMS ((CORE_ADDR *)); #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) /* The following redefines make backtracing through sigtramp work. They manufacture a fake sigtramp frame and obtain the saved pc in sigtramp from the ucontext structure which is pushed by the kernel on the user stack. Unfortunately there are three variants of sigtramp handlers. */ #define I386V4_SIGTRAMP_SAVED_PC #define IN_SIGTRAMP(pc, name) ((name) \ && (STREQ ("_sigreturn", name) \ || STREQ ("_sigacthandler", name) \ || STREQ ("sigvechandler", name))) /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. In the case of the i386, the frame's nominal address is the address of a 4-byte word containing the calling frame's address. */ #undef FRAME_CHAIN #define FRAME_CHAIN(thisframe) \ ((thisframe)->signal_handler_caller \ ? (thisframe)->frame \ : (!inside_entry_file ((thisframe)->pc) \ ? read_memory_integer ((thisframe)->frame, 4) \ : 0)) /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #undef FRAMELESS_FUNCTION_INVOCATION #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ do { \ if ((FI)->signal_handler_caller) \ (FRAMELESS) = 0; \ else \ (FRAMELESS) = frameless_look_for_prologue(FI); \ } while (0) /* Saved Pc. Get it from ucontext if within sigtramp. */ #undef FRAME_SAVED_PC #define FRAME_SAVED_PC(FRAME) \ (((FRAME)->signal_handler_caller \ ? i386v4_sigtramp_saved_pc (FRAME) \ : read_memory_integer ((FRAME)->frame + 4, 4)) \ ) extern CORE_ADDR i386v4_sigtramp_saved_pc PARAMS ((struct frame_info *)); gdb-4.13/gdb/config/i386/tm-linux.h 666 34562 1752 2010 5353461731 15155 0ustar fnfcygnus/* Definitions to target GDB to Linux on 386. Copyright 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* number of traps that happen between exec'ing the shell * to run an inferior, and when we finally get to * the inferior code. This is 2 on most implementations. */ #define START_INFERIOR_TRAPS_EXPECTED 2 #include "i386/tm-i386v.h" gdb-4.13/gdb/config/i386/tm-ptx.h 666 34562 1752 16511 5544677625 14701 0ustar fnfcygnus/* Target machine definitions for GDB on a Sequent Symmetry under ptx with Weitek 1167 and i387 support. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. Symmetry version by Jay Vosburgh (fubar@sequent.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* I don't know if this will work for cross-debugging, even if you do get a copy of the right include file. */ #include /* #define SDB_REG_TO_REGNUM(value) ptx_coff_regno_to_gdb(value) extern int ptx_coff_regno_to_gdb(); */ #define START_INFERIOR_TRAPS_EXPECTED 2 /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 #ifdef SEQUENT_PTX4 #include "i386/tm-i386v4.h" #else /* !SEQUENT_PTX4 */ #include "i386/tm-i386v.h" #endif #if 0 --- this code can't be used unless we know we are running native, since it uses host specific ptrace calls. /* code for 80387 fpu. Functions are from i386-dep.c, copied into * symm-dep.c. */ #define FLOAT_INFO { i386_float_info(); } #endif /* Number of machine registers */ #undef NUM_REGS #define NUM_REGS 49 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #undef REGISTER_NAMES #define REGISTER_NAMES { "eax", "ecx", "edx", "ebx", \ "esp", "ebp", "esi", "edi", \ "eip", "eflags", "st0", "st1", "st2", \ "st3", "st4", "st5", "st6", "st7", \ "fp1", "fp2", "fp3", "fp4", "fp5", "fp6", "fp7", \ "fp8", "fp9", "fp10", "fp11", "fp12", \ "fp13", "fp14", "fp15", "fp16", "fp17", \ "fp18", "fp19", "fp20", "fp21", "fp22", \ "fp23", "fp24", "fp25", "fp26", "fp27", \ "fp28", "fp29", "fp30", "fp31" } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define EAX_REGNUM 0 #define ECX_REGNUM 1 #define EDX_REGNUM 2 #define EBX_REGNUM 3 #define ESP_REGNUM 4 #define EBP_REGNUM 5 #define ESI_REGNUM 6 #define EDI_REGNUM 7 #define EIP_REGNUM 8 #define EFLAGS_REGNUM 9 #define ST0_REGNUM 10 #define ST1_REGNUM 11 #define ST2_REGNUM 12 #define ST3_REGNUM 13 #define ST4_REGNUM 14 #define ST5_REGNUM 15 #define ST6_REGNUM 16 #define ST7_REGNUM 17 #define FP1_REGNUM 18 /* first 1167 register */ /* Get %fp2 - %fp31 by addition, since they are contiguous */ #undef SP_REGNUM #define SP_REGNUM ESP_REGNUM /* Contains address of top of stack */ #undef FP_REGNUM #define FP_REGNUM EBP_REGNUM /* Contains address of executing stack frame */ #undef PC_REGNUM #define PC_REGNUM EIP_REGNUM /* Contains program counter */ #undef PS_REGNUM #define PS_REGNUM EFLAGS_REGNUM /* Contains processor status */ /* * For ptx, this is a little bit bizarre, since the register block * is below the u area in memory. This means that blockend here ends * up being negative (for the call from coredep.c) since the value in * u.u_ar0 will be less than KERNEL_U_ADDR (and coredep.c passes us * u.u_ar0 - KERNEL_U_ADDR in blockend). Since we also define * FETCH_INFERIOR_REGISTERS (and supply our own functions for that), * the core file case will be the only use of this function. */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { (addr) = ptx_register_u_addr((blockend), (regno)); } extern int ptx_register_u_addr PARAMS ((int, int)); /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ /* 10 i386 registers, 8 i387 registers, and 31 Weitek 1167 registers */ #undef REGISTER_BYTES #define REGISTER_BYTES ((10 * 4) + (8 * 10) + (31 * 4)) /* Index within `registers' of the first byte of the space for register N. */ #undef REGISTER_BYTE #define REGISTER_BYTE(N) \ ((N < ST0_REGNUM) ? (N * 4) : \ (N < FP1_REGNUM) ? (40 + ((N - ST0_REGNUM) * 10)) : \ (40 + 80 + ((N - FP1_REGNUM) * 4))) /* Number of bytes of storage in the actual machine representation * for register N. All registers are 4 bytes, except 387 st(0) - st(7), * which are 80 bits each. */ #undef REGISTER_RAW_SIZE #define REGISTER_RAW_SIZE(N) \ ((N < ST0_REGNUM) ? 4 : \ (N < FP1_REGNUM) ? 10 : \ 4) /* Largest value REGISTER_RAW_SIZE can have. */ #undef MAX_REGISTER_RAW_SIZE #define MAX_REGISTER_RAW_SIZE 10 /* Nonzero if register N requires conversion from raw format to virtual format. */ #undef REGISTER_CONVERTIBLE #define REGISTER_CONVERTIBLE(N) \ ((N < ST0_REGNUM) ? 0 : \ (N < FP1_REGNUM) ? 1 : \ 0) /* Convert data from raw format for register REGNUM to virtual format for register REGNUM. */ extern const struct floatformat floatformat_i387_ext; /* from floatformat.h */ #undef REGISTER_CONVERT_TO_VIRTUAL #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \ ((REGNUM < ST0_REGNUM) ? (void)memcpy ((TO), (FROM), 4) : \ (REGNUM < FP1_REGNUM) ? (void)floatformat_to_double(&floatformat_i387_ext, \ (FROM),(TO)) : \ (void)memcpy ((TO), (FROM), 4)) /* Convert data from virtual format for register REGNUM to raw format for register REGNUM. */ #undef REGISTER_CONVERT_TO_RAW #define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \ ((REGNUM < ST0_REGNUM) ? (void)memcpy ((TO), (FROM), 4) : \ (REGNUM < FP1_REGNUM) ? (void)floatformat_from_double(&floatformat_i387_ext, \ (FROM),(TO)) : \ (void)memcpy ((TO), (FROM), 4)) /* Return the GDB type object for the "standard" data type of data in register N. */ /* * Note: the 1167 registers (the last line, builtin_type_float) are * generally used in pairs, with each pair being treated as a double. * It it also possible to use them singly as floats. I'm not sure how * in gdb to treat the register pair pseudo-doubles. -fubar */ #undef REGISTER_VIRTUAL_TYPE #define REGISTER_VIRTUAL_TYPE(N) \ ((N < ST0_REGNUM) ? builtin_type_int : \ (N < FP1_REGNUM) ? builtin_type_double : \ builtin_type_float) /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #undef EXTRACT_RETURN_VALUE #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ symmetry_extract_return_value(TYPE, REGBUF, VALBUF) /* * Removed extra PUSH_DUMMY_FRAME, et al: it was identical to the * i386-tdep.c version. */ extern void print_387_control_word PARAMS ((unsigned int)); extern void print_387_status_word PARAMS ((unsigned int)); /* #undef FRAME_FIND_SAVED_REGS #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { ptx_frame_find_saved_regs((frame_info), &(frame_saved_regs)); } */ gdb-4.13/gdb/config/i386/tm-ptx4.h 666 34562 1752 1723 5544677625 14744 0ustar fnfcygnus/* Target machine definitions for GDB on a Sequent Symmetry under ptx with Weitek 1167 and i387 support. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. Symmetry version by Jay Vosburgh (fubar@sequent.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define SEQUENT_PTX4 #include "tm-ptx.h" gdb-4.13/gdb/config/i386/tm-sun386.h 666 34562 1752 23542 5543407232 15116 0ustar fnfcygnus/* Parameters for a Sun 386i target machine, for GDB, the GNU debugger. Copyright 1986, 1987, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_BYTE_ORDER LITTLE_ENDIAN #ifndef sun386 #define sun386 #endif #define GDB_TARGET_IS_SUN386 1 #define SUNOS4 #define USE_MACHINE_REG_H /* Perhaps some day this will work even without the following #define */ #define COFF_ENCAPSULATE #ifdef COFF_ENCAPSULATE /* Avoid conflicts between our include files and (maybe not needed anymore). */ #define _EXEC_ #endif /* sun386 ptrace seems unable to change the frame pointer */ #define PTRACE_FP_BUG /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(frompc) {(frompc) = i386_skip_prologue((frompc));} extern int i386_skip_prologue PARAMS ((int)); /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) \ (read_memory_integer (read_register (SP_REGNUM), 4)) /* Address of end of stack space. */ #define STACK_END_ADDR 0xfc000000 /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0xcc} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 1 /* Nonzero if instruction at PC is a return instruction. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 1) == 0xc3) /* Return 1 if P points to an invalid floating point value. LEN is the length in bytes -- not relevant on the 386. */ #define INVALID_FLOAT(p, len) (0) /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 35 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ /* the order of the first 8 registers must match the compiler's * numbering scheme (which is the same as the 386 scheme) * also, this table must match regmap in i386-pinsn.c. */ #define REGISTER_NAMES { "gs", "fs", "es", "ds", \ "edi", "esi", "ebp", "esp", \ "ebx", "edx", "ecx", "eax", \ "retaddr", "trapnum", "errcode", "ip", \ "cs", "ps", "sp", "ss", \ "fst0", "fst1", "fst2", "fst3", \ "fst4", "fst5", "fst6", "fst7", \ "fctrl", "fstat", "ftag", "fip", \ "fcs", "fopoff", "fopsel" \ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define FP_REGNUM 6 /* Contains address of executing stack frame */ #define SP_REGNUM 18 /* Contains address of top of stack */ #define PS_REGNUM 17 /* Contains processor status */ #define PC_REGNUM 15 /* Contains program counter */ #define FP0_REGNUM 20 /* Floating point register 0 */ #define FPC_REGNUM 28 /* 80387 control register */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (20*4+8*10+7*4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) \ ((N) >= FPC_REGNUM ? (((N) - FPC_REGNUM) * 4) + 160 \ : (N) >= FP0_REGNUM ? (((N) - FP0_REGNUM) * 10) + 80 \ : (N) * 4) /* Number of bytes of storage in the actual machine representation for register N. */ #define REGISTER_RAW_SIZE(N) (((unsigned)((N) - FP0_REGNUM)) < 8 ? 10 : 4) /* Number of bytes of storage in the program's representation for register N. */ #define REGISTER_VIRTUAL_SIZE(N) (((unsigned)((N) - FP0_REGNUM)) < 8 ? 8 : 4) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 10 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Nonzero if register N requires conversion from raw format to virtual format. */ #define REGISTER_CONVERTIBLE(N) (((unsigned)((N) - FP0_REGNUM)) < 8) /* Convert data from raw format for register REGNUM in buffer FROM to virtual format with type TYPE in buffer TO. */ #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \ { \ double val; \ i387_to_double ((FROM), (char *)&val); \ store_floating ((TO), TYPE_LENGTH (TYPE), val); \ } extern void i387_to_double PARAMS ((char *, char *)); /* Convert data from virtual format with type TYPE in buffer FROM to raw format for register REGNUM in buffer TO. */ #define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \ { \ double val = extract_floating ((FROM), TYPE_LENGTH (TYPE)); \ double_to_i387((char *)&val, (TO)); \ } extern void double_to_i387 PARAMS ((char *, char *)); /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ (((unsigned)((N) - FP0_REGNUM)) < 8 ? builtin_type_double : builtin_type_int) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ { (SP) -= sizeof (ADDR); \ write_memory ((SP), &(ADDR), sizeof (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, REGBUF + REGISTER_BYTE (TYPE_CODE (TYPE) == TYPE_CODE_FLT ? FP0_REGNUM : 11), TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (REGISTER_BYTE (TYPE_CODE (TYPE) == TYPE_CODE_FLT ? FP0_REGNUM : 11), VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ #define FRAME_CHAIN(thisframe) \ (!inside_entry_file ((thisframe)->pc) ? \ read_memory_integer ((thisframe)->frame, 4) :\ 0) /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ { (FRAMELESS) = frameless_look_for_prologue (FI); } #define FRAME_SAVED_PC(FRAME) (read_memory_integer ((FRAME)->frame + 4, 4)) #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(numargs, fi) (numargs) = i386_frame_num_args(fi) #ifdef __STDC__ /* Forward decl's for prototypes */ struct frame_info; struct frame_saved_regs; #endif extern int i386_frame_num_args PARAMS ((struct frame_info *)); /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 8 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { i386_frame_find_saved_regs ((frame_info), &(frame_saved_regs)); } extern void i386_frame_find_saved_regs PARAMS ((struct frame_info *, struct frame_saved_regs *)); /* Things needed for making the inferior call functions. */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME { i386_push_dummy_frame (); } extern void i386_push_dummy_frame PARAMS ((void)); /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME { i386_pop_frame (); } extern void i386_pop_frame PARAMS ((void)); /* this is * call 11223344 (32 bit relative) * int3 */ #define CALL_DUMMY { 0x223344e8, 0xcc11 } #define CALL_DUMMY_LENGTH 8 #define CALL_DUMMY_START_OFFSET 0 /* Start execution at beginning of dummy */ /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { \ *(int *)((char *)(dummyname) + 1) = (int)(fun) - (pc) - 5; \ } gdb-4.13/gdb/config/i386/tm-symmetry.h 666 34562 1752 26577 5546246636 15770 0ustar fnfcygnus/* Target machine definitions for GDB on a Sequent Symmetry under dynix 3.0, with Weitek 1167 and i387 support. Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Symmetry version by Jay Vosburgh (fubar@sequent.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* I don't know if this will work for cross-debugging, even if you do get a copy of the right include file. */ #include #define START_INFERIOR_TRAPS_EXPECTED 2 /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 #include "i386/tm-i386v.h" #if 0 /* --- this code can't be used unless we know we are running native, since it uses host specific ptrace calls. */ /* code for 80387 fpu. Functions are from i386-dep.c, copied into * symm-dep.c. */ #define FLOAT_INFO { i386_float_info(); } #endif /* Number of machine registers */ #undef NUM_REGS #define NUM_REGS 49 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ /* Symmetry registers are in this weird order to match the register numbers in the symbol table entries. If you change the order, things will probably break mysteriously for no apparent reason. Also note that the st(0)...st(7) 387 registers are represented as st0...st7. */ #undef REGISTER_NAMES #define REGISTER_NAMES { "eax", "edx", "ecx", "st0", "st1", \ "ebx", "esi", "edi", "st2", "st3", \ "st4", "st5", "st6", "st7", "esp", \ "ebp", "eip", "eflags", "fp1", "fp2", \ "fp3", "fp4", "fp5", "fp6", "fp7", \ "fp8", "fp9", "fp10", "fp11", "fp12", \ "fp13", "fp14", "fp15", "fp16", "fp17", \ "fp18", "fp19", "fp20", "fp21", "fp22", \ "fp23", "fp24", "fp25", "fp26", "fp27", \ "fp28", "fp29", "fp30", "fp31" } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define EAX_REGNUM 0 #define EDX_REGNUM 1 #define ECX_REGNUM 2 #define ST0_REGNUM 3 #define ST1_REGNUM 4 #define EBX_REGNUM 5 #define ESI_REGNUM 6 #define EDI_REGNUM 7 #define ST2_REGNUM 8 #define ST3_REGNUM 9 #define ST4_REGNUM 10 #define ST5_REGNUM 11 #define ST6_REGNUM 12 #define ST7_REGNUM 13 #define FP1_REGNUM 18 /* first 1167 register */ /* Get %fp2 - %fp31 by addition, since they are contiguous */ #undef SP_REGNUM #define SP_REGNUM 14 /* esp--Contains address of top of stack */ #define ESP_REGNUM 14 #undef FP_REGNUM #define FP_REGNUM 15 /* ebp--Contains address of executing stack frame */ #define EBP_REGNUM 15 #undef PC_REGNUM #define PC_REGNUM 16 /* eip--Contains program counter */ #define EIP_REGNUM 16 #undef PS_REGNUM #define PS_REGNUM 17 /* eflags--Contains processor status */ #define EFLAGS_REGNUM 17 /* * Following macro translates i386 opcode register numbers to Symmetry * register numbers. This is used by i386_frame_find_saved_regs. * * %eax %ecx %edx %ebx %esp %ebp %esi %edi * i386 0 1 2 3 4 5 6 7 * Symmetry 0 2 1 5 14 15 6 7 * */ #define I386_REGNO_TO_SYMMETRY(n) \ ((n)==0?0 :(n)==1?2 :(n)==2?1 :(n)==3?5 :(n)==4?14 :(n)==5?15 :(n)) /* The magic numbers below are offsets into u_ar0 in the user struct. * They live in . Gdb calls this macro with blockend * holding u.u_ar0 - KERNEL_U_ADDR. Only the registers listed are * saved in the u area (along with a few others that aren't useful * here. See ). */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { struct user foo; /* needed for finding fpu regs */ \ switch (regno) { \ case 0: \ addr = blockend + EAX * sizeof(int); break; \ case 1: \ addr = blockend + EDX * sizeof(int); break; \ case 2: \ addr = blockend + ECX * sizeof(int); break; \ case 3: /* st(0) */ \ addr = ((int)&foo.u_fpusave.fpu_stack[0][0] - (int)&foo); \ break; \ case 4: /* st(1) */ \ addr = ((int) &foo.u_fpusave.fpu_stack[1][0] - (int)&foo); \ break; \ case 5: \ addr = blockend + EBX * sizeof(int); break; \ case 6: \ addr = blockend + ESI * sizeof(int); break; \ case 7: \ addr = blockend + EDI * sizeof(int); break; \ case 8: /* st(2) */ \ addr = ((int) &foo.u_fpusave.fpu_stack[2][0] - (int)&foo); \ break; \ case 9: /* st(3) */ \ addr = ((int) &foo.u_fpusave.fpu_stack[3][0] - (int)&foo); \ break; \ case 10: /* st(4) */ \ addr = ((int) &foo.u_fpusave.fpu_stack[4][0] - (int)&foo); \ break; \ case 11: /* st(5) */ \ addr = ((int) &foo.u_fpusave.fpu_stack[5][0] - (int)&foo); \ break; \ case 12: /* st(6) */ \ addr = ((int) &foo.u_fpusave.fpu_stack[6][0] - (int)&foo); \ break; \ case 13: /* st(7) */ \ addr = ((int) &foo.u_fpusave.fpu_stack[7][0] - (int)&foo); \ break; \ case 14: \ addr = blockend + ESP * sizeof(int); break; \ case 15: \ addr = blockend + EBP * sizeof(int); break; \ case 16: \ addr = blockend + EIP * sizeof(int); break; \ case 17: \ addr = blockend + FLAGS * sizeof(int); break; \ case 18: /* fp1 */ \ case 19: /* fp2 */ \ case 20: /* fp3 */ \ case 21: /* fp4 */ \ case 22: /* fp5 */ \ case 23: /* fp6 */ \ case 24: /* fp7 */ \ case 25: /* fp8 */ \ case 26: /* fp9 */ \ case 27: /* fp10 */ \ case 28: /* fp11 */ \ case 29: /* fp12 */ \ case 30: /* fp13 */ \ case 31: /* fp14 */ \ case 32: /* fp15 */ \ case 33: /* fp16 */ \ case 34: /* fp17 */ \ case 35: /* fp18 */ \ case 36: /* fp19 */ \ case 37: /* fp20 */ \ case 38: /* fp21 */ \ case 39: /* fp22 */ \ case 40: /* fp23 */ \ case 41: /* fp24 */ \ case 42: /* fp25 */ \ case 43: /* fp26 */ \ case 44: /* fp27 */ \ case 45: /* fp28 */ \ case 46: /* fp29 */ \ case 47: /* fp30 */ \ case 48: /* fp31 */ \ addr = ((int) &foo.u_fpasave.fpa_regs[(regno)-18] - (int)&foo); \ } \ } /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ /* 10 i386 registers, 8 i387 registers, and 31 Weitek 1167 registers */ #undef REGISTER_BYTES #define REGISTER_BYTES ((10 * 4) + (8 * 10) + (31 * 4)) /* Index within `registers' of the first byte of the space for register N. */ #undef REGISTER_BYTE #define REGISTER_BYTE(N) \ ((N < 3) ? (N * 4) : \ (N < 5) ? (((N - 2) * 10) + 2) : \ (N < 8) ? (((N - 5) * 4) + 32) : \ (N < 14) ? (((N - 8) * 10) + 44) : \ (((N - 14) * 4) + 104)) /* Number of bytes of storage in the actual machine representation * for register N. All registers are 4 bytes, except 387 st(0) - st(7), * which are 80 bits each. */ #undef REGISTER_RAW_SIZE #define REGISTER_RAW_SIZE(N) \ ((N < 3) ? 4 : \ (N < 5) ? 10 : \ (N < 8) ? 4 : \ (N < 14) ? 10 : \ 4) /* Largest value REGISTER_RAW_SIZE can have. */ #undef MAX_REGISTER_RAW_SIZE #define MAX_REGISTER_RAW_SIZE 10 /* Nonzero if register N requires conversion from raw format to virtual format. */ #undef REGISTER_CONVERTIBLE #define REGISTER_CONVERTIBLE(N) \ ((N < 3) ? 0 : \ (N < 5) ? 1 : \ (N < 8) ? 0 : \ (N < 14) ? 1 : \ 0) #include "floatformat.h" /* Convert data from raw format for register REGNUM in buffer FROM to virtual format with type TYPE in buffer TO. */ #undef REGISTER_CONVERT_TO_VIRTUAL #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \ { \ double val; \ floatformat_to_double (&floatformat_i387_ext, (FROM), &val); \ store_floating ((TO), TYPE_LENGTH (TYPE), val); \ } /* Convert data from virtual format with type TYPE in buffer FROM to raw format for register REGNUM in buffer TO. */ #undef REGISTER_CONVERT_TO_RAW #define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \ { \ double val = extract_floating ((FROM), TYPE_LENGTH (TYPE)); \ floatformat_from_double (&floatformat_i387_ext, &val, (TO)); \ } /* Return the GDB type object for the "standard" data type of data in register N. */ #undef REGISTER_VIRTUAL_TYPE #define REGISTER_VIRTUAL_TYPE(N) \ ((N < 3) ? builtin_type_int : \ (N < 5) ? builtin_type_double : \ (N < 8) ? builtin_type_int : \ (N < 14) ? builtin_type_double : \ builtin_type_int) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. Native cc passes the address in eax, gcc (up to version 2.5.8) passes it on the stack. gcc should be fixed in future versions to adopt native cc conventions. */ #undef STORE_STRUCT_RETURN #define STORE_STRUCT_RETURN(ADDR, SP) write_register(0, (ADDR)) /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #undef EXTRACT_RETURN_VALUE #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ symmetry_extract_return_value(TYPE, REGBUF, VALBUF) extern void print_387_control_word PARAMS ((unsigned int)); extern void print_387_status_word PARAMS ((unsigned int)); /* The following redefines make backtracing through sigtramp work. They manufacture a fake sigtramp frame and obtain the saved pc in sigtramp from the sigcontext structure which is pushed by the kernel on the user stack, along with a pointer to it. */ #define IN_SIGTRAMP(pc, name) ((name) && STREQ ("_sigcode", name)) /* Offset to saved PC in sigcontext, from . */ #define SIGCONTEXT_PC_OFFSET 16 /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. In the case of the i386, the frame's nominal address is the address of a 4-byte word containing the calling frame's address. */ #undef FRAME_CHAIN #define FRAME_CHAIN(thisframe) \ (thisframe->signal_handler_caller \ ? thisframe->frame \ : (!inside_entry_file ((thisframe)->pc) \ ? read_memory_integer ((thisframe)->frame, 4) \ : 0)) /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #undef FRAMELESS_FUNCTION_INVOCATION #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ do { \ if ((FI)->signal_handler_caller) \ (FRAMELESS) = 0; \ else \ (FRAMELESS) = frameless_look_for_prologue(FI); \ } while (0) /* Saved Pc. Get it from sigcontext if within sigtramp. */ #undef FRAME_SAVED_PC #define FRAME_SAVED_PC(FRAME) \ (((FRAME)->signal_handler_caller \ ? sigtramp_saved_pc (FRAME) \ : read_memory_integer ((FRAME)->frame + 4, 4)) \ ) gdb-4.13/gdb/config/i386/xm-go32.h 666 34562 1752 2324 5461327317 14605 0ustar fnfcygnus/* Definitions for hosting on GO32, for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define SYS_SIGLIST_MISSING 1 #define HOST_BYTE_ORDER LITTLE_ENDIAN #include "fopen-bin.h" /* Define this lseek(n) != nth byte of file */ #define LSEEK_NOT_LINEAR #define CANT_FORK #undef QUIT #define QUIT { pollquit(); } #if !defined(SIGURG) & !defined(SIGALRM) & !defined(SIGBUS) & !defined(SIGSTOP) #define SIGURG (NSIG) #define SIGALRM (NSIG + 1) #define SIGBUS (NSIG + 2) #define SIGSTOP (NSIG + 3) #endif /* missing some signals */ gdb-4.13/gdb/config/i386/xm-i386aix.h 666 34562 1752 2062 5411444247 15222 0ustar fnfcygnus/* Macro defintions for AIX PS/2 (i386) Copyright 1986, 1987, 1989, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Changed for IBM AIX ps/2 by Minh Tran Le (tranle@intellicorp.com) * Revision: 23-Oct-92 17:42:49 */ #include "i386/xm-i386v.h" #undef HAVE_TERMIO #define HAVE_SGTTY #include /* Use setpgid instead of setpgrp on AIX */ #define NEED_POSIX_SETPGID gdb-4.13/gdb/config/i386/xm-i386bsd.h 666 34562 1752 2021 5565224140 15202 0ustar fnfcygnus/* Host-dependent definitions for Intel 386 running BSD Unix, for GDB. Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN #include /* for INT_MIN, to avoid "INT_MIN redefined" warnings from defs.h */ /* psignal() is in . */ #define PSIGNAL_IN_SIGNAL_H gdb-4.13/gdb/config/i386/xm-i386lynx.h 666 34562 1752 1612 5464330703 15432 0ustar fnfcygnus/* Host-dependent definitions for Intel 386 running LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN /* Get generic LynxOS host definitions. */ #include "xm-lynx.h" gdb-4.13/gdb/config/i386/xm-i386m3.h 666 34562 1752 2462 5565224140 14762 0ustar fnfcygnus/* Definitions to make GDB run on Mach 3 on an Intel 386 Copyright (C) 1986, 1987, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN /* Avoid "INT_MIN redefined" warnings -- by defining it here, exactly the same as in the system file. */ #undef INT_MIN #define INT_MIN 0x80000000 /* Do implement the attach and detach commands. */ #define ATTACH_DETACH 1 /* Not needeed */ #define KERNEL_U_ADDR 0 #ifndef EMULATOR_BASE /* For EMULATOR_BASE and EMULATOR_END. * OSF 1/MK has different values in some other place. */ #include #endif /* EMULATOR_BASE */ gdb-4.13/gdb/config/i386/xm-i386mach.h 666 34562 1752 2534 5565224141 15354 0ustar fnfcygnus/* Definitions to make GDB run on Mach on an Intel 386 Copyright (C) 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN /* Avoid "INT_MIN redefined" warnings -- by defining it here, exactly the same as in the system file. */ #undef INT_MIN #define INT_MIN 0x80000000 /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR (0x80000000 - (UPAGES * NBPG)) #define PREPARE_TO_STORE() read_register_bytes (0, NULL, REGISTER_BYTES) /* only defines this if __STDC__!!! */ extern int errno; extern char *strdup(); gdb-4.13/gdb/config/i386/xm-i386mk.h 666 34562 1752 1637 5455074100 15052 0ustar fnfcygnus/* Definitions to make GDB run on Mach 3 OSF 1/MK on an Intel 386 Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HAVE_TERMIO 1 #define EMULATOR_BASE 0xa0000000 #define EMULATOR_END 0xa0040000 #include "xm-i386mach3.h" gdb-4.13/gdb/config/i386/xm-i386sco.h 666 34562 1752 3060 5422636323 15224 0ustar fnfcygnus/* Macro defintions for i386, running SCO Unix System V/386 3.2. Copyright (C) 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* In 3.2v4 requires on . */ #include #include #include "i386/xm-i386v.h" /* Apparently there is inconsistency among various System V's about what the name of this field is. */ #define U_FPSTATE(u) u.u_fps.u_fpstate /* SCO 3.2v2 and later have job control. */ /* SCO 3.2v4 I know has termios; I'm not sure about earlier versions. GDB does not currently support the termio/job control combination. */ #undef HAVE_TERMIO #define HAVE_TERMIOS /* SCO's assembler doesn't grok dollar signs in identifiers. So we use dots instead. This item must be coordinated with G++. */ #undef CPLUS_MARKER #define CPLUS_MARKER '.' #define HAVE_STRSTR /* Use setpgid instead of setpgrp on SCO */ #define NEED_POSIX_SETPGID gdb-4.13/gdb/config/i386/xm-i386v.h 666 34562 1752 3425 5353461743 14717 0ustar fnfcygnus/* Host support for i386. Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc. Changes for 80386 by Pace Willisson (pace@prep.ai.mit.edu), July 1988. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN /* I'm running gdb 3.4 under 386/ix 2.0.2, which is a derivative of AT&T's Sys V/386 3.2. On some machines, gdb crashes when it's starting up while calling the vendor's termio tgetent() routine. It always works when run under itself (actually, under 3.2, it's not an infinitely recursive bug.) After some poking around, it appears that depending on the environment size, or whether you're running YP, or the phase of the moon or something, the stack is not always long-aligned when main() is called, and tgetent() takes strong offense at that. On some machines this bug never appears, but on those where it does, it occurs quite reliably. */ #define ALIGN_STACK_ON_STARTUP /* define USG if you are using sys5 /usr/include's */ #define USG #define HAVE_TERMIO /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR 0xe0000000 gdb-4.13/gdb/config/i386/xm-i386v32.h 666 34562 1752 1714 5414410670 15052 0ustar fnfcygnus/* Macro defintions for i386, running System V 3.2. Copyright (C) 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "i386/xm-i386v.h" /* Apparently there is inconsistency among various System V's about what the name of this field is. */ #define U_FPSTATE(u) u.u_fps.u_fpstate gdb-4.13/gdb/config/i386/xm-i386v4.h 666 34562 1752 3432 5353461751 15000 0ustar fnfcygnus/* Macro definitions for GDB on an Intel i386 running SVR4. Copyright 1991, 1992 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support (fnf@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Pick up most of what we need from the generic i386 host include file. */ #include "i386/xm-i386v.h" /* Pick up more stuff from the generic SVR4 host include file. */ #include "xm-sysv4.h" /* The native AT&T compiler for i386/SVR4 complains about using volatile to indicate functions that never return. So shut it up by simply defining away "NORETURN", which is normally defined to "volatile". */ #ifndef __GNUC__ # define NORETURN /**/ #endif /* If you expect to use the mmalloc package to obtain mapped symbol files, for now you have to specify some parameters that determine how gdb places the mappings in it's address space. See the comments in map_to_address() for details. This is expected to only be a short term solution. Yes it is a kludge. FIXME: Make this more automatic. */ #define MMAP_BASE_ADDRESS 0x81000000 /* First mapping here */ #define MMAP_INCREMENT 0x01000000 /* Increment to next mapping */ gdb-4.13/gdb/config/i386/xm-linux.h 666 34562 1752 2166 5515545477 15207 0ustar fnfcygnus/* Native support for linux, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN #define HAVE_TERMIOS /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR 0x0 #define PSIGNAL_IN_SIGNAL_H #define NEED_POSIX_SETPGID /* Need R_OK etc, but USG isn't defined. */ #include gdb-4.13/gdb/config/i386/xm-ptx.h 666 34562 1752 2656 5544677626 14673 0ustar fnfcygnus/* Definitions to make GDB run on a Sequent Symmetry under ptx, with Weitek 1167 and i387 support. Copyright 1986, 1987, 1989, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Symmetry version by Jay Vosburgh (fubar@sequent.com) */ #ifdef _SEQUENT_PTX4_ #include "xm-sysv4.h" #endif /* _SEQUENT_PTX4_ */ /* This machine doesn't have the siginterrupt call. */ #define NO_SIGINTERRUPT #define HAVE_WAIT_STRUCT #define HAVE_MMAP #undef HAVE_TERMIO #define HAVE_TERMIOS #define USG #define MEM_FNS_DECLARED #define NEED_POSIX_SETPGID #define USE_O_NOCTTY #define HOST_BYTE_ORDER LITTLE_ENDIAN /* We must fetch all the regs before storing, since we store all at once. */ #define CHILD_PREPARE_TO_STORE() read_register_bytes (0, NULL, REGISTER_BYTES) gdb-4.13/gdb/config/i386/xm-ptx4.h 666 34562 1752 1714 5544677627 14752 0ustar fnfcygnus/* Definitions to make GDB run on a Sequent Symmetry under ptx, with Weitek 1167 and i387 support. Copyright 1986, 1987, 1989, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Symmetry version by Jay Vosburgh (fubar@sequent.com) */ #include "xm-sysv4.h" #include "xm-ptx.h" gdb-4.13/gdb/config/i386/xm-sun386.h 666 34562 1752 2103 5565224142 15071 0ustar fnfcygnus/* Host support for Sun 386i, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN /* Get rid of any system-imposed stack limit if possible. */ /* Enable use of alternate code for Sun's format of core dump file. */ #define NEW_SUN_CORE #define PREPARE_TO_STORE() read_register_bytes (0, NULL, REGISTER_BYTES) gdb-4.13/gdb/config/i386/xm-symmetry.h 666 34562 1752 2335 5565224143 15724 0ustar fnfcygnus/* Definitions to make GDB run on a Sequent Symmetry under dynix 3.1, with Weitek 1167 and i387 support. Copyright 1986, 1987, 1989, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Symmetry version by Jay Vosburgh (fubar@sequent.com) */ /* This machine doesn't have the siginterrupt call. */ #define NO_SIGINTERRUPT #define HAVE_WAIT_STRUCT #define HOST_BYTE_ORDER LITTLE_ENDIAN /* We must fetch all the regs before storing, since we store all at once. */ #define CHILD_PREPARE_TO_STORE() read_register_bytes (0, NULL, REGISTER_BYTES) gdb-4.13/gdb/config/i960/ 777 34562 1752 0 5623250575 13156 5ustar fnfcygnusgdb-4.13/gdb/config/i960/nindy960.mt 666 34562 1752 277 5450166532 15143 0ustar fnfcygnus# Target: Intel 80960, in an embedded system under the NINDY monitor TDEPFILES= exec.o i960-pinsn.o i960-tdep.o nindy-tdep.o remote-nindy.o nindy.o Onindy.o ttyflush.o TM_FILE= tm-nindy960.h gdb-4.13/gdb/config/i960/tm-i960.h 666 34562 1752 33225 5534304417 14535 0ustar fnfcygnus/* Parameters for target machine Intel 960, for GDB, the GNU debugger. Copyright (C) 1990, 1991, 1993 Free Software Foundation, Inc. Contributed by Intel Corporation. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Definitions to target GDB to any i960. */ #ifndef I80960 #define I80960 #endif /* Hook for the SYMBOL_CLASS of a parameter when decoding DBX symbol information. In the i960, parameters can be stored as locals or as args, depending on the type of the debug record. From empirical observation, gcc960 uses N_LSYM to indicate arguments passed in registers and then copied immediately to the frame, and N_PSYM to indicate arguments passed in a g14-relative argument block. */ #define DBX_PARM_SYMBOL_CLASS(type) ((type == N_LSYM)? LOC_LOCAL_ARG: LOC_ARG) /* Byte order is configurable, but this machine runs little-endian. */ #define TARGET_BYTE_ORDER LITTLE_ENDIAN /* We have IEEE floating point, if we have any float at all. */ #define IEEE_FLOAT /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance ip across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(ip) { ip = skip_prologue (ip); } extern CORE_ADDR skip_prologue (); /* Immediately after a function call, return the saved ip. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) (saved_pc_after_call (frame)) extern CORE_ADDR saved_pc_after_call (); /* Stack grows upward */ #define INNER_THAN > /* Nonzero if instruction at ip is a return instruction. */ #define ABOUT_TO_RETURN(ip) (read_memory_integer(ip,4) == 0x0a000000) /* Return 1 if P points to an invalid floating point value. LEN is the length in bytes. */ #define INVALID_FLOAT(p, len) (0) /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 40 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES { \ /* 0 */ "pfp", "sp", "rip", "r3", "r4", "r5", "r6", "r7", \ /* 8 */ "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",\ /* 16 */ "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", \ /* 24 */ "g8", "g9", "g10", "g11", "g12", "g13", "g14", "fp", \ /* 32 */ "pcw", "ac", "tc", "ip", "fp0", "fp1", "fp2", "fp3",\ } /* Register numbers of various important registers (used to index into arrays of register names and register values). */ #define R0_REGNUM 0 /* First local register */ #define SP_REGNUM 1 /* Contains address of top of stack */ #define RIP_REGNUM 2 /* Return instruction pointer (local r2) */ #define R15_REGNUM 15 /* Last local register */ #define G0_REGNUM 16 /* First global register */ #define G13_REGNUM 29 /* g13 - holds struct return address */ #define G14_REGNUM 30 /* g14 - ptr to arg block / leafproc return address */ #define FP_REGNUM 31 /* Contains address of executing stack frame */ #define PCW_REGNUM 32 /* process control word */ #define ACW_REGNUM 33 /* arithmetic control word */ #define TCW_REGNUM 34 /* trace control word */ #define IP_REGNUM 35 /* instruction pointer */ #define FP0_REGNUM 36 /* First floating point register */ /* Some registers have more than one name */ #define PC_REGNUM IP_REGNUM /* GDB refers to ip as the Program Counter */ #define PFP_REGNUM R0_REGNUM /* Previous frame pointer */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES ((36*4) + (4*10)) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ( (N) < FP0_REGNUM ? \ (4*(N)) : ((10*(N)) - (6*FP0_REGNUM)) ) /* The i960 has register windows, sort of. */ #define HAVE_REGISTER_WINDOWS /* Is this register part of the register window system? A yes answer implies that 1) The name of this register will not be the same in other frames, and 2) This register is automatically "saved" upon subroutine calls and thus there is no need to search more than one stack frame for it. On the i960, in fact, the name of this register in another frame is "mud" -- there is no overlap between the windows. Each window is simply saved into the stack (true for our purposes, after having been flushed; normally they reside on-chip and are restored from on-chip without ever going to memory). */ #define REGISTER_IN_WINDOW_P(regnum) ((regnum) <= R15_REGNUM) /* Number of bytes of storage in the actual machine representation for register N. On the i960, all regs are 4 bytes except for floating point, which are 10. NINDY only sends us 8 byte values for these, which is a pain, but VxWorks handles this correctly, so we must. */ #define REGISTER_RAW_SIZE(N) ( (N) < FP0_REGNUM ? 4 : 10 ) /* Number of bytes of storage in the program's representation for register N. */ #define REGISTER_VIRTUAL_SIZE(N) ( (N) < FP0_REGNUM ? 4 : 8 ) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 10 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Nonzero if register N requires conversion from raw format to virtual format. */ #define REGISTER_CONVERTIBLE(N) ((N) >= FP0_REGNUM) #include "floatformat.h" /* Convert data from raw format for register REGNUM in buffer FROM to virtual format with type TYPE in buffer TO. */ #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \ { \ double val; \ floatformat_to_double (&floatformat_i960_ext, (FROM), &val); \ store_floating ((TO), TYPE_LENGTH (TYPE), val); \ } /* Convert data from virtual format with type TYPE in buffer FROM to raw format for register REGNUM in buffer TO. */ #define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \ { \ double val = extract_floating ((FROM), TYPE_LENGTH (TYPE)); \ floatformat_from_double (&floatformat_i960_ext, &val, (TO)); \ } /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) ((N) < FP0_REGNUM ? \ builtin_type_int : builtin_type_double) /* Macros for understanding function return values... */ /* Does the specified function use the "struct returning" convention or the "value returning" convention? The "value returning" convention almost invariably returns the entire value in registers. The "struct returning" convention often returns the entire value in memory, and passes a pointer (out of or into the function) saying where the value (is or should go). Since this sometimes depends on whether it was compiled with GCC, this is also an argument. This is used in call_function to build a stack, and in value_being_returned to print return values. On i960, a structure is returned in registers g0-g3, if it will fit. If it's more than 16 bytes long, g13 pointed to it on entry. */ #define USE_STRUCT_CONVENTION(gcc_p, type) (TYPE_LENGTH (type) > 16) /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. This is only called if USE_STRUCT_CONVENTION for this type is 0. On the i960 we just take as many bytes as we need from G0 through G3. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy(VALBUF, REGBUF+REGISTER_BYTE(G0_REGNUM), TYPE_LENGTH (TYPE)) /* If USE_STRUCT_CONVENTION produces a 1, extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). Address of where to put structure was passed in in global register g13 on entry. God knows what's in g13 now. The (..., 0) below is to make it appear to return a value, though actually all it does is call error(). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ (error("Don't know where large structure is returned on i960"), 0) /* Write into appropriate registers a function return value of type TYPE, given in virtual format, for "value returning" functions. For 'return' command: not (yet) implemented for i960. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ error ("Returning values from functions is not implemented in i960 gdb") /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ error ("Returning values from functions is not implemented in i960 gdb") /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. However, if FRAME_CHAIN_VALID returns zero, it means the given frame is the outermost one and has no caller. */ /* We cache information about saved registers in the frame structure, to save us from having to re-scan function prologues every time a register in a non-current frame is accessed. */ #define EXTRA_FRAME_INFO \ struct frame_saved_regs *fsr; \ CORE_ADDR arg_pointer; /* Zero the frame_saved_regs pointer when the frame is initialized, so that FRAME_FIND_SAVED_REGS () will know to allocate and initialize a frame_saved_regs struct the first time it is called. Set the arg_pointer to -1, which is not valid; 0 and other values indicate real, cached values. */ #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \ ((fi)->fsr = 0, (fi)->arg_pointer = -1) /* On the i960, we get the chain pointer by reading the PFP saved on the stack and clearing the status bits. */ #define FRAME_CHAIN(thisframe) \ (read_memory_integer (FRAME_FP(thisframe), 4) & ~0xf) /* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one and has no caller. On the i960, each various target system type must define FRAME_CHAIN_VALID, since it differs between NINDY and VxWorks, the two currently supported targets types. We leave it undefined here. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ { (FRAMELESS) = (leafproc_return ((FI)->pc) != 0); } /* Note that in the i960 architecture the return pointer is saved in the *caller's* stack frame. Make sure to zero low-order bits because of bug in 960CA A-step part (instruction addresses should always be word-aligned anyway). */ #define FRAME_SAVED_PC(frame) \ ((read_memory_integer(FRAME_CHAIN(frame)+8,4)) & ~3) /* On the i960, FRAME_ARGS_ADDRESS should return the value of g14 as passed into the frame, if known. We need a function for this. We cache this value in the frame info if we've already looked it up. */ #define FRAME_ARGS_ADDRESS(fi) \ (((fi)->arg_pointer != -1)? (fi)->arg_pointer: frame_args_address (fi, 0)) extern CORE_ADDR frame_args_address (); /* i960-tdep.c */ /* This is the same except it should return 0 when it does not really know where the args are, rather than guessing. This value is not cached since it is only used infrequently. */ #define FRAME_ARGS_ADDRESS_CORRECT(fi) (frame_args_address (fi, 1)) #define FRAME_LOCALS_ADDRESS(fi) (fi)->frame /* Set NUMARGS to the number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(numargs, fi) (numargs = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Produce the positions of the saved registers in a stack frame. */ #define FRAME_FIND_SAVED_REGS(frame_info_addr, sr) \ frame_find_saved_regs (frame_info_addr, &sr) extern void frame_find_saved_regs(); /* See i960-tdep.c */ /* Things needed for making calls to functions in the inferior process */ /* Push an empty stack frame, to record the current ip, etc. Not (yet?) implemented for i960. */ #define PUSH_DUMMY_FRAME \ error("Function calls into the inferior process are not supported on the i960") /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME \ pop_frame () /* This sequence of words is the instructions callx 0x00000000 fmark */ /* #define CALL_DUMMY { 0x86003000, 0x00000000, 0x66003e00 } */ /* #define CALL_DUMMY_START_OFFSET 0 *//* Start execution at beginning of dummy */ /* Indicate that we don't support calling inferior child functions. */ #undef CALL_DUMMY /* Insert the specified number of args and function address into a call sequence of the above form stored at 'dummyname'. Ignore arg count on i960. */ /* #define FIX_CALL_DUMMY(dummyname, fun, nargs) *(((int *)dummyname)+1) = fun */ #undef FIX_CALL_DUMMY /* Interface definitions for kernel debugger KDB */ /* (Not relevant to i960.) */ gdb-4.13/gdb/config/i960/tm-nindy960.h 666 34562 1752 6670 5415101400 15373 0ustar fnfcygnus/* Parameters for Intel 960 running NINDY monitor, for GDB, the GNU debugger. Copyright (C) 1990-1991 Free Software Foundation, Inc. Contributed by Intel Corporation and Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /***************************************************************************** * Definitions to target GDB to an i960 debugged over a serial line. ******************************************************************************/ #include "i960/tm-i960.h" /* Override the standard gdb prompt when compiled for this target. */ #define DEFAULT_PROMPT "(gdb960) " /* Additional command line options accepted by nindy gdb's, for handling the remote-nindy.c interface. These should really be target-specific rather than architecture-specific. */ extern int nindy_old_protocol; /* nonzero if old NINDY serial protocol */ extern int nindy_initial_brk; /* Send a BREAK to reset board first */ extern char *nindy_ttyname; /* Name of serial port to talk to nindy */ #define ADDITIONAL_OPTIONS \ {"O", no_argument, &nindy_old_protocol, 1}, \ {"brk", no_argument, &nindy_initial_brk, 1}, \ {"ser", required_argument, 0, 1004}, /* 1004 is magic cookie for ADDL_CASES */ #define ADDITIONAL_OPTION_CASES \ case 1004: /* -ser option: remote nindy auto-start */ \ nindy_ttyname = optarg; \ break; #define ADDITIONAL_OPTION_HELP \ "\ -O Use old protocol to talk to a Nindy target\n\ -brk Send a break to a Nindy target to reset it.\n\ -ser SERIAL Open remote Nindy session to SERIAL port.\n\ " /* If specified on the command line, open tty for talking to nindy, and download the executable file if one was specified. */ #define ADDITIONAL_OPTION_HANDLER \ if (!SET_TOP_LEVEL () && nindy_ttyname) { \ nindy_open (nindy_ttyname, !batch); \ if (!SET_TOP_LEVEL () && execarg) { \ target_load (execarg, !batch); \ } \ } /* If configured for i960 target, we take control before main loop and demand that we configure for a nindy target. */ #define BEFORE_MAIN_LOOP_HOOK \ nindy_before_main_loop(); extern void nindy_before_main_loop(); /* In remote-nindy.c */ /* FRAME_CHAIN_VALID returns zero if the given frame is the outermost one and has no caller. On the i960, each various target system type defines FRAME_CHAIN_VALID, since it differs between NINDY and VxWorks, the two currently supported targets types. */ #define FRAME_CHAIN_VALID(chain, thisframe) \ nindy_frame_chain_valid (chain, thisframe) extern int nindy_frame_chain_valid(); /* See nindy-tdep.c */ /* Sequence of bytes for breakpoint instruction */ #define BREAKPOINT {0x00, 0x3e, 0x00, 0x66} /* Amount ip must be decremented by after a breakpoint. * This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 gdb-4.13/gdb/config/i960/tm-vx960.h 666 34562 1752 3457 5405175622 14727 0ustar fnfcygnus/* Parameters for VxWorks Intel 960's, for GDB, the GNU debugger. Copyright (C) 1986-1991 Free Software Foundation, Inc. Contributed by Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "i960/tm-i960.h" /* Under VxWorks the IP isn't filled in. Skip it, go with RIP, which has the real value. */ #undef PC_REGNUM #define PC_REGNUM RIP_REGNUM #define GDBINIT_FILENAME ".vxgdbinit" #define DEFAULT_PROMPT "(vxgdb) " /* We have more complex, useful breakpoints on the target. Amount ip must be decremented by after a breakpoint. */ #define DECR_PC_AFTER_BREAK 0 /* We are guaranteed to have a zero frame pointer at bottom of stack, too. */ #define FRAME_CHAIN_VALID(chain, thisframe) (chain != 0) /* Breakpoint patching is handled at the target end in VxWorks. */ /* #define BREAKPOINT {0x00, 0x3e, 0x00, 0x66} */ /* Number of registers in a ptrace_getregs call. */ #define VX_NUM_REGS (16 + 16 + 3) /* Number of registers in a ptrace_getfpregs call. */ /* @@ Can't use this -- the rdb library for the 960 target doesn't support setting or retrieving FP regs. KR */ /* #define VX_SIZE_FPREGS (REGISTER_RAW_SIZE (FP0_REGNUM) * 4) */ gdb-4.13/gdb/config/i960/vxworks960.mt 666 34562 1752 544 5456325262 15545 0ustar fnfcygnus# Target: VxWorks running on an Intel 960 TDEPFILES= exec.o i960-pinsn.o i960-tdep.o remote-vx.o xdr_ld.o xdr_ptrace.o xdr_rdb.o TM_FILE= tm-vx960.h # Define this for the vx-share routines, which don't see param.h. MT_CFLAGS= -DI80960 # Don't use remote.o; it doesn't compile (and won't work) due to lack of # BREAKPOINT. REMOTE_O=dcache.o remote-utils.o gdb-4.13/gdb/config/m68k/ 777 34562 1752 0 5623250602 13243 5ustar fnfcygnusgdb-4.13/gdb/config/m68k/3b1.mh 666 34562 1752 723 5353462030 14220 0ustar fnfcygnus# Host: AT&T 3b1/Unix pc # I don't think cc has been tried. -traditional for # (not sure whether necessary). CC= gcc -traditional # GCC runs out of virtual memory. # A separate CC for pinsn routines is no longer supported, though. # FIXME -- someone unlucky enough to have a 3B1, let bug-gcc@prep.ai.mit.edu # know what works and what fails on the 3B1. #PINSN_CC= cc XDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o XM_FILE= xm-3b1.h gdb-4.13/gdb/config/m68k/3b1.mt 666 34562 1752 114 5353462033 14231 0ustar fnfcygnus# Target: AT&T 3b1/Unix pc TDEPFILES= exec.o m68k-pinsn.o TM_FILE= tm-3b1.h gdb-4.13/gdb/config/m68k/altos.mh 666 34562 1752 255 5355712505 14764 0ustar fnfcygnus# Host: Altos 3068 (m68k, System V release 2) XDEPFILES= infptrace.o inftarg.o fork-child.o altos-xdep.o XM_FILE= xm-altos.h REGEX=regex.o REGEX1=regex.o SYSV_DEFINE=-DSYSV gdb-4.13/gdb/config/m68k/altos.mt 666 34562 1752 143 5355712507 14776 0ustar fnfcygnus# Target: Altos 3068 (m68k, System V release 2) TDEPFILES= m68k-pinsn.o exec.o TM_FILE= tm-altos.h gdb-4.13/gdb/config/m68k/apollo68b.mh 666 34562 1752 230 5360215064 15433 0ustar fnfcygnus# Host: Apollo m68k, BSD mode. XM_FILE= xm-apollo68b.h XDEPFILES= NAT_FILE= nm-apollo68b.h NATDEPFILES= infptrace.o inftarg.o fork-child.o a68v-nat.o gdb-4.13/gdb/config/m68k/apollo68b.mt 666 34562 1752 157 5462002073 15454 0ustar fnfcygnus# Target: Apollo m68k in BSD mode TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o dstread.o TM_FILE= tm-apollo68b.h gdb-4.13/gdb/config/m68k/apollo68v.mh 666 34562 1752 424 5353462056 15473 0ustar fnfcygnusRANLIB=echo >/dev/null XM_FILE= xm-apollo68v.h XM_CLIBS= -lPW SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o CC= cc -A ansi -A runtype,any -A systype,any -U__STDC__ -DNO_SYS_FILE XDEPFILES= NAT_FILE= nm-apollo68v.h NATDEPFILES= infptrace.o inftarg.o fork-child.o a68v-nat.o gdb-4.13/gdb/config/m68k/cisco.mt 666 34562 1752 175 5542655155 14764 0ustar fnfcygnus# Target: Cisco Router with 68K processor TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o corelow.o coredep.o TM_FILE= tm-cisco.h gdb-4.13/gdb/config/m68k/delta68.mh 666 34562 1752 302 5435005052 15071 0ustar fnfcygnus# Motorola Delta Series sysV68 R3V7.1 XM_FILE= xm-delta68.h REGEX=regex.o REGEX1=regex.o NAT_FILE= nm-delta68.h NATDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o delta68-nat.o gdb-4.13/gdb/config/m68k/delta68.mt 666 34562 1752 147 5435005052 15114 0ustar fnfcygnus# Motorola Delta Series sysV68 R3V7.1 TDEPFILES= m68k-pinsn.o exec.o m68k-tdep.o TM_FILE= tm-delta68.h gdb-4.13/gdb/config/m68k/dpx2.mh 666 34562 1752 333 5576566547 14536 0ustar fnfcygnus# Host: Bull DPX2 (68k, System V release 3) XDEPFILES= XM_FILE= xm-dpx2.h NAT_FILE= nm-dpx2.h NATDEPFILES= infptrace.o coredep.o corelow.o inftarg.o dpx2-nat.o fork-child.o REGEX=regex.o REGEX1=regex.o TERMCAP=-lcurses gdb-4.13/gdb/config/m68k/dpx2.mt 666 34562 1752 154 5420121131 14507 0ustar fnfcygnus# Target: Bull DPX2 (68k, System V release 3) TDEPFILES= m68k-pinsn.o exec.o m68k-tdep.o TM_FILE= tm-dpx2.h gdb-4.13/gdb/config/m68k/es1800.mt 666 34562 1752 565 5551372115 14577 0ustar fnfcygnus# Target: Ericsson ES-1800 emulator (remote) for m68k. # remote-es.o should perhaps be part of the standard monitor.mt # configuration, if it is desirable to reduce the number of different # configurations. However, before that happens remote-es.c has to be # fixed to compile on a DOS host. TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o remote-es.o TM_FILE= tm-es1800.h gdb-4.13/gdb/config/m68k/hp300bsd.mh 666 34562 1752 330 5353462062 15155 0ustar fnfcygnus# Host: Hewlett-Packard 9000 series 300, running BSD XDEPFILES= XM_FILE= xm-hp300bsd.h NAT_FILE= nm-hp300bsd.h NATDEPFILES= exec.o infptrace.o inftarg.o fork-child.o coredep.o corelow.o REGEX=regex.o REGEX1=regex.o gdb-4.13/gdb/config/m68k/hp300bsd.mt 666 34562 1752 162 5353462065 15177 0ustar fnfcygnus# Target: Hewlett-Packard 9000 series 300, running BSD TDEPFILES= m68k-pinsn.o m68k-tdep.o TM_FILE= tm-hp300bsd.h gdb-4.13/gdb/config/m68k/hp300hpux.mh 666 34562 1752 675 5423567523 15413 0ustar fnfcygnus# Host: Hewlett-Packard 9000 series 300, running HPUX # The following is true because gcc uses a different .o file format # than the native HPUX compiler #msg If you compile GDB with GCC on HPUX, you must make sure #msg that the `nm' used in `munch' is GNU nm #msg XM_FILE= xm-hp300hpux.h NAT_FILE= nm-hp300hpux.h NATDEPFILES= infptrace.o inftarg.o fork-child.o hp300ux-nat.o coredep.o corelow.o SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o gdb-4.13/gdb/config/m68k/hp300hpux.mt 666 34562 1752 345 5367572445 15427 0ustar fnfcygnus# Target: Hewlett-Packard 9000 series 300, running HPUX #msg Note that GDB can only read symbols from programs that were #msg compiled with GCC using GAS. #msg TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o TM_FILE= tm-hp300hpux.h gdb-4.13/gdb/config/m68k/isi.mh 666 34562 1752 363 5407123347 14424 0ustar fnfcygnus# Host: ISI Optimum V (3.05) under 4.3bsd. # corelow.o commented out because core dumps are broken on this machine, # as of GDB 4.8, according to lam@tfs.com XDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o isi-xdep.o XM_FILE= xm-isi.h gdb-4.13/gdb/config/m68k/isi.mt 666 34562 1752 136 5353462076 14443 0ustar fnfcygnus# Target: ISI Optimum V (3.05) under 4.3bsd. TDEPFILES= exec.o m68k-pinsn.o TM_FILE= tm-isi.h gdb-4.13/gdb/config/m68k/m68klynx.mh 666 34562 1752 367 5472354355 15353 0ustar fnfcygnus# Host: Motorola 680x0 running LynxOS XM_FILE= xm-m68klynx.h XDEPFILES= NAT_FILE= nm-m68klynx.h NATDEPFILES= fork-child.o infptrace.o inftarg.o corelow.o lynx-nat.o REGEX=regex.o REGEX1=regex.o GDBSERVER_LIBS= -lbsd GDBSERVER_DEPFILES= low-lynx.o gdb-4.13/gdb/config/m68k/m68klynx.mt 666 34562 1752 207 5464331003 15342 0ustar fnfcygnus# Target: Motorola 680x0 running LynxOS TDEPFILES= exec.o coff-solib.o m68k-tdep.o m68k-pinsn.o # m68kly-tdep.o TM_FILE= tm-m68klynx.h gdb-4.13/gdb/config/m68k/m68kv4.mh 666 34562 1752 1041 5610362617 14712 0ustar fnfcygnus# Host: Motorola 680x0 running SVR4 (Commodore Amiga amix or Atari TT ASV) XM_FILE= xm-m68kv4.h XDEPFILES= NAT_FILE= nm-sysv4.h NATDEPFILES= corelow.o core-svr4.o solib.o procfs.o fork-child.o SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o # SVR4 comes standard with terminfo, and in some implementations, the # old termcap descriptions are incomplete. So ensure that we use the # new terminfo interface and latest terminal descriptions. TERMCAP=-ltermlib # SVR4 puts the BSD compatible install in /usr/ucb. INSTALL = /usr/ucb/install -c gdb-4.13/gdb/config/m68k/m68kv4.mt 666 34562 1752 216 5610362621 14704 0ustar fnfcygnus# Target: Motorola 680x0 running SVR4 (Commodore Amiga amix or Atari TT ASV) TM_FILE= tm-m68kv4.h TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o gdb-4.13/gdb/config/m68k/monitor.mt 666 34562 1752 665 5550170476 15354 0ustar fnfcygnus# Target: Motorola rom68k boot monitor (from Integrated Systems) # Target: Motorola bug monitor. # These defines should give you a gdb running on anything that will be able to # communicate with a m68k based debug monitor. Communications # is facilitated via either a serial line, or a TCP or TELNET connection to # a serial line on a terminal multiplexor. TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o remote-mon.o TM_FILE= tm-monitor.h gdb-4.13/gdb/config/m68k/news.mh 666 34562 1752 321 5353462105 14604 0ustar fnfcygnus# Host: Sony news series 700/800/900 (68020) running NewsOS version 3. XDEPFILES= news-xdep.o XM_FILE= xm-news.h NAT_FILE= nm-news.h NATDEPFILES= exec.o inftarg.o fork-child.o coredep.o corelow.o infptrace.o gdb-4.13/gdb/config/m68k/news.mt 666 34562 1752 200 5353462110 14610 0ustar fnfcygnus# Target: Sony news series 700/800/900 (68020) running NewsOS version 3. TDEPFILES= m68k-pinsn.o m68k-tdep.o TM_FILE= tm-news.h gdb-4.13/gdb/config/m68k/news1000.mh 666 34562 1752 245 5353462114 15112 0ustar fnfcygnus# Host: Sony news series 1000 (68030) running NewsOS version 3. XDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o news-xdep.o XM_FILE= xm-news1000.h gdb-4.13/gdb/config/m68k/nm-apollo68b.h 666 34562 1752 2754 5462002073 15720 0ustar fnfcygnus/* Macro defintions for an Apollo m68k in BSD mode Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define PTRACE_IN_WRONG_PLACE #define FETCH_INFERIOR_REGISTERS /* Tell gdb that we can attach and detach other processes */ #define ATTACH_DETACH #define U_REGS_OFFSET 6 /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR 0 #undef FLOAT_INFO /* No float info yet */ #define REGISTER_U_ADDR(addr, blockend, regno) \ (addr) = (6 + 4 * (regno)) /* Apollos don't really have a USER area,so trying to read it from the * process address space will fail. It does support a read from a faked * USER area using the "PEEKUSER" ptrace call. */ #define PT_READ_U 3 #define MEM_FNS_DECLARED /* /usr/include/string.h can get it wrong */ gdb-4.13/gdb/config/m68k/nm-apollo68v.h 666 34562 1752 1500 5353462124 15736 0ustar fnfcygnus/* Macro defintions for an Apollo. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define FETCH_INFERIOR_REGISTERS gdb-4.13/gdb/config/m68k/nm-delta68.h 666 34562 1752 1515 5415104764 15363 0ustar fnfcygnus/* Macro definitions for a Delta. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Motorola Delta Series sysV68 R3V7.1. */ #define NO_PTRACE_H gdb-4.13/gdb/config/m68k/nm-dpx2.h 666 34562 1752 2144 5420121132 14750 0ustar fnfcygnus/* Native support for a Bull DPX2. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* KERNEL_U_ADDR is determined upon startup in dpx2-xdep.c. */ #define REGISTER_U_ADDR(addr, blockend, regno) \ (addr) = dpx2_register_u_addr ((blockend),(regno)); extern int dpx2_register_u_addr PARAMS ((int, int)); /* Kernel is a bit tenacious about sharing text segments, disallowing bpts. */ #define ONE_PROCESS_WRITETEXT gdb-4.13/gdb/config/m68k/nm-hp300bsd.h 666 34562 1752 5736 5504147233 15445 0ustar fnfcygnus/* Parameters for Hewlett-Packard 9000/300 native support under bsd. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Detect whether this is 4.3 or 4.4. */ #include #include #ifdef BSD4_4 /* BSD 4.4 alpha or better */ /* We can attach to processes using ptrace. */ #define ATTACH_DETACH #define PTRACE_ATTACH 10 #define PTRACE_DETACH 11 /* The third argument of ptrace is declared as this type. */ #define PTRACE_ARG3_TYPE caddr_t /* U_REGS_OFFSET is the offset of the registers within the u area for ptrace purposes. */ #define U_REGS_OFFSET \ ptrace (PT_READ_U, inferior_pid, \ (PTRACE_ARG3_TYPE) \ (offsetof (struct user, u_kproc.kp_proc.p_md.md_regs)), 0) \ - USRSTACK /* No user structure in 4.4, registers are relative to kernel stack which is fixed. */ #define KERNEL_U_ADDR 0xFFF00000 /* FIXME: Is ONE_PROCESS_WRITETEXT still true now that the kernel has copy-on-write? It not, move it to the 4.3-specific section below (now it is in xm-hp300bsd.h). */ #else /* This is BSD 4.3 or something like it. */ /* Get kernel u area address at run-time using BSD style nlist (). */ #define KERNEL_U_ADDR_BSD #endif /* This was once broken for 4.4, but probably because we had the wrong KERNEL_U_ADDR. */ /* This is a piece of magic that is given a register number REGNO and as BLOCKEND the address in the system of the end of the user structure and stores in ADDR the address in the kernel or core dump of that register. */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { \ if (regno < PS_REGNUM) \ addr = (int) &((struct frame *)(blockend))->f_regs[regno]; \ else if (regno == PS_REGNUM) \ addr = (int) &((struct frame *)(blockend))->f_stackadj; \ else if (regno == PC_REGNUM) \ addr = (int) &((struct frame *)(blockend))->f_pc; \ else if (regno < FPC_REGNUM) \ addr = (int) \ &((struct user *)0)->u_pcb.pcb_fpregs.fpf_regs[((regno)-FP0_REGNUM)*3];\ else if (regno == FPC_REGNUM) \ addr = (int) &((struct user *)0)->u_pcb.pcb_fpregs.fpf_fpcr; \ else if (regno == FPS_REGNUM) \ addr = (int) &((struct user *)0)->u_pcb.pcb_fpregs.fpf_fpsr; \ else \ addr = (int) &((struct user *)0)->u_pcb.pcb_fpregs.fpf_fpiar; \ } gdb-4.13/gdb/config/m68k/nm-hp300hpux.h 666 34562 1752 3327 5423567524 15664 0ustar fnfcygnus/* Parameters for native support on HP 9000 model 320, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Do implement the attach and detach commands. */ #define ATTACH_DETACH /* fetch_inferior_registers is in nat-hp300hpux.c. */ #define FETCH_INFERIOR_REGISTERS /* Get registers from a core file. The floating point stuff is just guesses. */ #define NEED_SYS_CORE_H #define REGISTER_U_ADDR(addr, blockend, regno) \ { \ if (regno < PS_REGNUM) \ addr = (int) (&((struct proc_regs *)(blockend))->d0 + regno); \ else if (regno == PS_REGNUM) \ addr = (int) ((char *) (&((struct proc_regs *)(blockend))->ps) - 2); \ else if (regno == PC_REGNUM) \ addr = (int) &((struct proc_regs *)(blockend))->pc; \ else if (regno < FPC_REGNUM) \ addr = (int) (((struct proc_regs *)(blockend))->mc68881 \ + ((regno) - FP0_REGNUM) / 2); \ else \ addr = (int) (((struct proc_regs *)(blockend))->p_float \ + (regno) - FPC_REGNUM); \ } gdb-4.13/gdb/config/m68k/nm-m68klynx.h 666 34562 1752 1607 5472354355 15624 0ustar fnfcygnus/* Native-dependent definitions for Motorola 680x0 running LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef NM_M68KLYNX_H #define NM_M68KLYNX_H #include "nm-lynx.h" #endif /* NM_M68KLYNX_H */ gdb-4.13/gdb/config/m68k/nm-news.h 666 34562 1752 1536 5353462136 15074 0ustar fnfcygnus/* Parameters for execution on a Sony/NEWS, for GDB, the GNU debugger. Copyright 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file intentionally empty. */ gdb-4.13/gdb/config/m68k/nm-sun2.h 666 34562 1752 2461 5353462137 15006 0ustar fnfcygnus/* Parameters for execution on a Sun2, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Do implement the attach and detach commands. */ #define ATTACH_DETACH /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS /* This is a piece of magic that is given a register number REGNO and as BLOCKEND the address in the system of the end of the user structure and stores in ADDR the address in the kernel or core dump of that register. */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { addr = blockend + regno * 4; } gdb-4.13/gdb/config/m68k/nm-sun3.h 666 34562 1752 1772 5353462140 15005 0ustar fnfcygnus/* Host-dependent definitions for Sun-3 for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Do implement the attach and detach commands. */ #define ATTACH_DETACH /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS gdb-4.13/gdb/config/m68k/os68k.mt 666 34562 1752 144 5353462142 14622 0ustar fnfcygnus# Target: VxWorks running on a 68000 TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o TM_FILE= tm-os68k.h gdb-4.13/gdb/config/m68k/st2000.mt 666 34562 1752 607 5406147440 14604 0ustar fnfcygnus# Target: Tandem ST-2000 phone switch # These defines should give you a gdb running on anything that will be able to # communicate with a Tandem ST2000 phone switch debug monitor. Communications # is facilitated via either a serial line, or a TCP or TELNET connection to # a serial line on a terminal multiplexor. TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o remote-st.o TM_FILE= tm-st2000.h gdb-4.13/gdb/config/m68k/sun2os3.mh 666 34562 1752 227 5353462151 15152 0ustar fnfcygnus# Host: Sun 2, running SunOS 3 XDEPFILES= XM_FILE= xm-sun2.h NAT_FILE= nm-sun2.h NATDEPFILES= infptrace.o inftarg.o fork-child.o corelow.o sun3-nat.o gdb-4.13/gdb/config/m68k/sun2os3.mt 666 34562 1752 407 5353462153 15170 0ustar fnfcygnus# Target: Sun 2, running SunOS 3 # The system-supplied assembler re-orders the symbols so that gdb # can't find "gcc_compiled.". #msg If you compile your program with GCC, use the GNU assembler. #msg TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o TM_FILE= tm-sun2.h gdb-4.13/gdb/config/m68k/sun2os4.mh 666 34562 1752 227 5353462154 15156 0ustar fnfcygnus# Host: Sun 2, running SunOS 4 XDEPFILES= XM_FILE= xm-sun2.h NAT_FILE= nm-sun2.h NATDEPFILES= infptrace.o inftarg.o fork-child.o corelow.o sun3-nat.o gdb-4.13/gdb/config/m68k/sun2os4.mt 666 34562 1752 152 5353462156 15171 0ustar fnfcygnus# Target: Sun 2, running SunOS 4 TDEPFILES= exec.o m68k-pinsn.o solib.o m68k-tdep.o TM_FILE= tm-sun2os4.h gdb-4.13/gdb/config/m68k/sun3os3.mh 666 34562 1752 227 5353462160 15153 0ustar fnfcygnus# Host: Sun 3, running SunOS 3 XDEPFILES= XM_FILE= xm-sun3.h NAT_FILE= nm-sun3.h NATDEPFILES= fork-child.o inftarg.o infptrace.o corelow.o sun3-nat.o gdb-4.13/gdb/config/m68k/sun3os3.mt 666 34562 1752 407 5353462163 15172 0ustar fnfcygnus# Target: Sun 3, running SunOS 3 # The system-supplied assembler re-orders the symbols so that gdb # can't find "gcc_compiled.". #msg If you compile your program with GCC, use the GNU assembler. #msg TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o TM_FILE= tm-sun3.h gdb-4.13/gdb/config/m68k/sun3os4.mh 666 34562 1752 271 5437443240 15154 0ustar fnfcygnus# Host: Sun 3, running SunOS 4 XDEPFILES= XM_FILE= xm-sun3os4.h NAT_FILE= nm-sun3.h NATDEPFILES= fork-child.o inftarg.o infptrace.o corelow.o sun3-nat.o GDBSERVER_DEPFILES= low-sun3.o gdb-4.13/gdb/config/m68k/sun3os4.mt 666 34562 1752 176 5353462166 15201 0ustar fnfcygnus# Target: Sun 3, running SunOS 4, as a target system TDEPFILES= exec.o m68k-pinsn.o solib.o m68k-tdep.o TM_FILE= tm-sun3os4.h gdb-4.13/gdb/config/m68k/tm-3b1.h 666 34562 1752 2237 5443673367 14524 0ustar fnfcygnus/* Parameters for targeting GDB to a 3b1. Copyright 1986, 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The child target can't deal with floating registers. */ #define CANNOT_STORE_REGISTER(regno) ((regno) >= FP0_REGNUM) /* Define BPT_VECTOR if it is different than the default. This is the vector number used by traps to indicate a breakpoint. */ #define BPT_VECTOR 0x1 /* Address of end of stack space. */ #define STACK_END_ADDR 0x300000 #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-altos.h 666 34562 1752 3777 5443673370 15265 0ustar fnfcygnus/* Target definitions for GDB on an Altos 3068 (m68k running SVR2) Copyright 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The child target can't deal with floating registers. */ #define CANNOT_STORE_REGISTER(regno) ((regno) >= FP0_REGNUM) /* Define BPT_VECTOR if it is different than the default. This is the vector number used by traps to indicate a breakpoint. */ #define BPT_VECTOR 0xe /* Address of end of stack space. */ /*#define STACK_END_ADDR (0xffffff)*/ #define STACK_END_ADDR (0x1000000) /* Amount PC must be decremented by after a breakpoint. On the Altos, the kernel resets the pc to the trap instr */ #define DECR_PC_AFTER_BREAK 0 /* The only reason this is here is the tm-altos.h reference below. It was moved back here from tm-m68k.h. FIXME? */ #define SKIP_PROLOGUE(pc) \ { register int op = read_memory_integer (pc, 2); \ if (op == 0047126) \ pc += 4; /* Skip link #word */ \ else if (op == 0044016) \ pc += 6; /* Skip link #long */ \ /* Not sure why branches are here. */ \ /* From tm-isi.h, tm-altos.h */ \ else if (op == 0060000) \ pc += 4; /* Skip bra #word */ \ else if (op == 00600377) \ pc += 6; /* skip bra #long */ \ else if ((op & 0177400) == 0060000) \ pc += 2; /* skip bra #char */ \ } #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-apollo68b.h 666 34562 1752 3643 5534304544 15734 0ustar fnfcygnus/* Parameters for execution on Apollo 68k running BSD. Copyright (C) 1986, 1987, 1989, 1991 Free Software Foundation, Inc. Contributed by Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Apollos use vector 0xb for the breakpoint vector */ #define BPT_VECTOR 0xb #include "m68k/tm-m68k.h" #define FRAME_CHAIN_VALID(chain, thisframe) (chain != 0) /* These are the jmp_buf registers I could guess. There are 13 registers * in the buffer. There are 8 data registers, 6 general address registers, * the Frame Pointer, the Stack Pointer, the PC and the SR in the chip. I would * guess that 12 is the SR, but we don't need that anyway. 0 and 1 have * me stumped. 4 appears to be a5 for some unknown reason. If you care * about this, disassemble setjmp to find out. But don't do it with gdb :) */ #undef JB_SP #undef JB_FP #undef JB_PC #undef JB_D0 #undef JB_D1 #undef JB_D2 #undef JB_D3 #undef JB_D4 #undef JB_D5 #define JB_SP 2 #define JB_FP 3 #define JB_PC 5 #define JB_D0 6 #define JB_D1 7 #define JB_D2 8 #define JB_D3 9 #define JB_D4 10 #define JB_D5 11 /* How to decide if we're in a shared library function. (Probably a wrong definintion inherited from the VxWorks config file). */ #define IN_SOLIB_TRAMPOLINE(pc, name) (name && strcmp(name, "") == 0) gdb-4.13/gdb/config/m68k/tm-cisco.h 666 34562 1752 3403 5542666151 15224 0ustar fnfcygnus/* Parameters for CISCO m68k. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define GDBINIT_FILENAME ".cisco-gdbinit" /* Init file */ #define DEFAULT_PROMPT "(cisco-68k-gdb) " /* Default prompt */ #include "m68k/tm-m68k.h" /* Offsets (in target ints) into jmp_buf. Defined in /csc/sys/sun/asm.S. */ #define JB_ELEMENT_SIZE 4 #define JB_PC 0 #define JB_D2 1 #define JB_D3 2 #define JB_D4 3 #define JB_D5 4 #define JB_D6 5 #define JB_D7 6 #define JB_A2 7 #define JB_A3 8 #define JB_A4 9 #define JB_A5 10 #define JB_A6 11 #define JB_SP 12 /* Figure out where the longjmp will land. Slurp the args out of the stack. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) /* BFD handles finding the registers in the core file, so they are at the start of the BFD .reg section. */ #define REGISTER_U_ADDR(addr,blockend,regno) (addr = REGISTER_BYTE (regno)) #define KERNEL_U_ADDR 0 gdb-4.13/gdb/config/m68k/tm-delta68.h 666 34562 1752 2616 5443673373 15404 0ustar fnfcygnus/* Target definitions for delta68. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Define BPT_VECTOR if it is different than the default. This is the vector number used by traps to indicate a breakpoint. */ #define BPT_VECTOR 0x1 #undef CPLUS_MARKER #define CPLUS_MARKER '%' #define GCC_COMPILED_FLAG_SYMBOL "gcc_compiled%" #define GCC2_COMPILED_FLAG_SYMBOL "gcc2_compiled%" /* Amount PC must be decremented by after a breakpoint. On the Delta, the kernel decrements it for us. */ #define DECR_PC_AFTER_BREAK 0 /* Not sure what happens if we try to store this register, but phdm@info.ucl.ac.be says we need this define. */ #define CANNOT_STORE_REGISTER(regno) (regno == FPI_REGNUM) #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-dpx2.h 666 34562 1752 2417 5576566553 15021 0ustar fnfcygnus/* Parameters for targeting to a Bull DPX2. Copyright (C) 1986, 1987, 1989, 1991, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Define BPT_VECTOR if it is different than the default. This is the vector number used by traps to indicate a breakpoint. */ #define BPT_VECTOR 0xe /* Need to get function ends by adding this to epilogue address from .bf record, not using x_fsize field. */ #define FUNCTION_EPILOGUE_SIZE 4 /* The child target can't deal with writing floating registers. */ #define CANNOT_STORE_REGISTER(regno) ((regno) >= FP0_REGNUM) #include #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-es1800.h 666 34562 1752 3632 5443673375 15056 0ustar fnfcygnus/* Parameters for execution on ES-1800 emulator for 68000. The code was originally written by Johan Holmberg TT/SJ Ericsson Telecom AB and later modified by Johan Henriksson TT/SJ. It was adapted to GDB 4.0 by Jan Norden TX/DK. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. GDB 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 1, or (at your option) any later version. GDB 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 GDB; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #define GDBINIT_FILENAME ".esgdbinit" #define DEFAULT_PROMPT "(esgdb) " #include "m68k/tm-m68k.h" /* Longjmp stuff borrowed from sun3 configuration. Don't know if correct. FIXME. */ /* Offsets (in target ints) into jmp_buf. Not defined by Sun, but at least documented in a comment in ! */ #define JB_ELEMENT_SIZE 4 #define JB_ONSSTACK 0 #define JB_SIGMASK 1 #define JB_SP 2 #define JB_PC 3 #define JB_PSL 4 #define JB_D2 5 #define JB_D3 6 #define JB_D4 7 #define JB_D5 8 #define JB_D6 9 #define JB_D7 10 #define JB_A2 11 #define JB_A3 12 #define JB_A4 13 #define JB_A5 14 #define JB_A6 15 /* Figure out where the longjmp will land. Slurp the args out of the stack. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) gdb-4.13/gdb/config/m68k/tm-hp300bsd.h 666 34562 1752 4502 5507465037 15451 0ustar fnfcygnus/* Parameters for target machine Hewlett-Packard 9000/300, running bsd. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Configuration file for HP9000/300 series machine running BSD, including Utah, Mt. Xinu or Berkeley variants. This is NOT for HP-UX. Problems to hpbsd-bugs@cs.utah.edu. */ /* GCC is the only compiler used on this OS. So get this right even if the code which detects gcc2_compiled. is still broken. */ #define BELIEVE_PCC_PROMOTION 1 /* Define BPT_VECTOR if it is different than the default. This is the vector number used by traps to indicate a breakpoint. For hp300bsd the normal breakpoint vector is 0x2 (for debugging via ptrace); for remote kernel debugging the breakpoint vector is 0xf. */ #define BPT_VECTOR 0x2 #define REMOTE_BPT_VECTOR 0xf #define TARGET_NBPG 4096 /* For 4.4 this would be 2, but it is OK for us to detect an area a bit bigger than necessary. This way the same gdb binary can target either 4.3 or 4.4. */ #define TARGET_UPAGES 3 /* On the HP300, sigtramp is in the u area. Gak! User struct is not mapped to the same virtual address in user/kernel address space (hence STACK_END_ADDR as opposed to KERNEL_U_ADDR). This tests for the whole u area, since we don't necessarily have hp300bsd include files around. */ /* For 4.4, it is actually right 20 bytes *before* STACK_END_ADDR, so include that in the area we test for. */ #define SIGTRAMP_START (STACK_END_ADDR - 20) #define SIGTRAMP_END (STACK_END_ADDR + TARGET_UPAGES * TARGET_NBPG) /* Address of end of stack space. */ #define STACK_END_ADDR 0xfff00000 #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-hp300hpux.h 666 34562 1752 2276 5470240656 15670 0ustar fnfcygnus/* Parameters for execution on an HP 9000 model 320, for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* GCC is the only compiler used for stabs on this OS. So get this right even if the code which detects gcc2_compiled. is still broken. */ #define BELIEVE_PCC_PROMOTION 1 /* Define BPT_VECTOR if it is different than the default. This is the vector number used by traps to indicate a breakpoint. */ #define BPT_VECTOR 0x1 #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-isi.h 666 34562 1752 14574 5443673401 14737 0ustar fnfcygnus/* Definitions to target GDB on an ISI Optimum V (3.05) under 4.3bsd. Copyright (C) 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This has not been tested on ISI's running BSD 4.2, but it will probably work. */ /* Data segment starts at etext rounded up to DATAROUND in {N,Z}MAGIC files */ #define DATAROUND 0x20000 #define N_DATADDR(hdr) (hdr.a_magic != OMAGIC ? \ (hdr.a_text + DATAROUND) & ~(DATAROUND-1) : hdr.a_text) /* Text segment starts at sizeof (struct exec) in {N,Z}MAGIC files */ #define N_TXTADDR(hdr) (hdr.a_magic != OMAGIC ? sizeof (struct exec) : 0) /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. On the ISI, the kernel resets the pc to the trap instr */ #define DECR_PC_AFTER_BREAK 0 /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(val, fi) \ { register CORE_ADDR pc = FRAME_SAVED_PC (fi); \ register int insn = 0177777 & read_memory_integer (pc, 2); \ val = 0; \ if (insn == 0047757 || insn == 0157374) /* lea W(sp),sp or addaw #W,sp */ \ val = read_memory_integer (pc + 2, 2); \ else if ((insn & 0170777) == 0050217 /* addql #N, sp */ \ || (insn & 0170777) == 0050117) /* addqw */ \ { val = (insn >> 9) & 7; if (val == 0) val = 8; } \ else if (insn == 0157774) /* addal #WW, sp */ \ val = read_memory_integer (pc + 2, 4); \ val >>= 2; } /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { register int regnum; \ register int regmask; \ register CORE_ADDR next_addr; \ register CORE_ADDR pc; \ register int insn; \ register int offset; \ memset (&frame_saved_regs, '\0', sizeof frame_saved_regs); \ if ((frame_info)->pc >= (frame_info)->frame - CALL_DUMMY_LENGTH - FP_REGNUM*4 - 8*12 - 4 \ && (frame_info)->pc <= (frame_info)->frame) \ { next_addr = (frame_info)->frame; \ pc = (frame_info)->frame - CALL_DUMMY_LENGTH - FP_REGNUM * 4 - 8*12 - 4; }\ else \ { pc = get_pc_function_start ((frame_info)->pc); \ /* Verify we have a link a6 instruction next, \ or a branch followed by a link a6 instruction; \ if not we lose. If we win, find the address above the saved \ regs using the amount of storage from the link instruction. */\ retry: \ insn = read_memory_integer (pc, 2); \ if (insn == 044016) \ next_addr = (frame_info)->frame - read_memory_integer (pc += 2, 4), pc+=4; \ else if (insn == 047126) \ next_addr = (frame_info)->frame - read_memory_integer (pc += 2, 2), pc+=2; \ else if ((insn & 0177400) == 060000) /* bra insn */ \ { offset = insn & 0377; \ pc += 2; /* advance past bra */ \ if (offset == 0) /* bra #word */ \ offset = read_memory_integer (pc, 2), pc += 2; \ else if (offset == 0377) /* bra #long */ \ offset = read_memory_integer (pc, 4), pc += 4; \ pc += offset; \ goto retry; \ } else goto lose; \ /* If have an addal #-n, sp next, adjust next_addr. */ \ if ((0177777 & read_memory_integer (pc, 2)) == 0157774) \ next_addr += read_memory_integer (pc += 2, 4), pc += 4; \ } \ /* next should be a moveml to (sp) or -(sp) or a movl r,-(sp) */ \ insn = read_memory_integer (pc, 2), pc += 2; \ regmask = read_memory_integer (pc, 2); \ if ((insn & 0177760) == 022700) /* movl rn, (sp) */ \ (frame_saved_regs).regs[(insn&7) + ((insn&010)?8:0)] = next_addr; \ else if ((insn & 0177760) == 024700) /* movl rn, -(sp) */ \ (frame_saved_regs).regs[(insn&7) + ((insn&010)?8:0)] = next_addr-=4; \ else if (insn == 0044327) /* moveml mask, (sp) */ \ { pc += 2; \ /* Regmask's low bit is for register 0, the first written */ \ next_addr -= 4; \ for (regnum = 0; regnum < 16; regnum++, regmask >>= 1) \ if (regmask & 1) \ (frame_saved_regs).regs[regnum] = (next_addr += 4); \ } else if (insn == 0044347) /* moveml mask, -(sp) */ \ { pc += 2; \ /* Regmask's low bit is for register 15, the first pushed */ \ for (regnum = 15; regnum >= 0; regnum--, regmask >>= 1) \ if (regmask & 1) \ (frame_saved_regs).regs[regnum] = (next_addr -= 4); } \ /* clrw -(sp); movw ccr,-(sp) may follow. */ \ if (read_memory_integer (pc, 2) == 041147 \ && read_memory_integer (pc+2, 2) == 042347) \ (frame_saved_regs).regs[PS_REGNUM] = (next_addr -= 4); \ lose: ; \ (frame_saved_regs).regs[SP_REGNUM] = (frame_info)->frame + 8; \ (frame_saved_regs).regs[FP_REGNUM] = (frame_info)->frame; \ (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame + 4; \ } /* The only reason this is here is the tm-isi.h reference below. It was moved back here from tm-m68k.h. FIXME? */ #define SKIP_PROLOGUE(pc) \ { register int op = read_memory_integer (pc, 2); \ if (op == 0047126) \ pc += 4; /* Skip link #word */ \ else if (op == 0044016) \ pc += 6; /* Skip link #long */ \ /* Not sure why branches are here. */ \ /* From tm-isi.h, tm-altos.h */ \ else if (op == 0060000) \ pc += 4; /* Skip bra #word */ \ else if (op == 00600377) \ pc += 6; /* skip bra #long */ \ else if ((op & 0177400) == 0060000) \ pc += 2; /* skip bra #char */ \ } #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-m68k.h 666 34562 1752 32476 5534304547 14744 0ustar fnfcygnus/* Parameters for execution on a 68000 series machine. Copyright 1986, 1987, 1989, 1990, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Generic 68000 stuff, to be included by other tm-*.h files. */ #define IEEE_FLOAT 1 /* Define the bit, byte, and word ordering of the machine. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #if !defined(SKIP_PROLOGUE) #define SKIP_PROLOGUE(ip) {(ip) = m68k_skip_prologue(ip);} extern CORE_ADDR m68k_skip_prologue PARAMS ((CORE_ADDR ip)); #endif /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #ifdef __STDC__ struct frame_info; #endif extern CORE_ADDR m68k_saved_pc_after_call PARAMS ((struct frame_info *)); #define SAVED_PC_AFTER_CALL(frame) \ m68k_saved_pc_after_call(frame) /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. This is a TRAP instruction. The last 4 bits (0xf below) is the vector. Systems which don't use 0xf should define BPT_VECTOR themselves before including this file. */ #if !defined (BPT_VECTOR) #define BPT_VECTOR 0xf #endif #if !defined (BREAKPOINT) #define BREAKPOINT {0x4e, (0x40 | BPT_VECTOR)} #endif /* We default to vector 1 for the "remote" target, but allow targets to override. */ #if !defined (REMOTE_BPT_VECTOR) #define REMOTE_BPT_VECTOR 1 #endif #if !defined (REMOTE_BREAKPOINT) #define REMOTE_BREAKPOINT {0x4e, (0x40 | REMOTE_BPT_VECTOR)} #endif /* If your kernel resets the pc after the trap happens you may need to define this before including this file. */ #if !defined (DECR_PC_AFTER_BREAK) #define DECR_PC_AFTER_BREAK 2 #endif /* Nonzero if instruction at PC is a return instruction. */ /* Allow any of the return instructions, including a trapv and a return from interupt. */ #define ABOUT_TO_RETURN(pc) ((read_memory_integer (pc, 2) & ~0x3) == 0x4e74) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 #define REGISTER_BYTES_FP (16*4 + 8 + 8*12 + 3*4) #define REGISTER_BYTES_NOFP (16*4 + 8) #ifndef NUM_REGS #define NUM_REGS 29 #endif #ifndef REGISTER_BYTES_OK #define REGISTER_BYTES_OK(b) \ ((b) == REGISTER_BYTES_FP \ || (b) == REGISTER_BYTES_NOFP) #endif #ifndef REGISTER_BYTES #define REGISTER_BYTES (16*4 + 8 + 8*12 + 3*4) #endif /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) \ ((N) >= FPC_REGNUM ? (((N) - FPC_REGNUM) * 4) + 168 \ : (N) >= FP0_REGNUM ? (((N) - FP0_REGNUM) * 12) + 72 \ : (N) * 4) /* Number of bytes of storage in the actual machine representation for register N. On the 68000, all regs are 4 bytes except the floating point regs which are 12 bytes. */ /* Note that the unsigned cast here forces the result of the subtraction to very high positive values if N < FP0_REGNUM */ #define REGISTER_RAW_SIZE(N) (((unsigned)(N) - FP0_REGNUM) < 8 ? 12 : 4) /* Number of bytes of storage in the program's representation for register N. On the 68000, all regs are 4 bytes except the floating point regs which are 8-byte doubles. */ #define REGISTER_VIRTUAL_SIZE(N) (((unsigned)(N) - FP0_REGNUM) < 8 ? 8 : 4) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 12 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Nonzero if register N requires conversion from raw format to virtual format. */ #define REGISTER_CONVERTIBLE(N) (((unsigned)(N) - FP0_REGNUM) < 8) #include "floatformat.h" /* Convert data from raw format for register REGNUM in buffer FROM to virtual format with type TYPE in buffer TO. */ #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \ { \ double val; \ floatformat_to_double (&floatformat_m68881_ext, (FROM), &val); \ store_floating ((TO), TYPE_LENGTH (TYPE), val); \ } /* Convert data from virtual format with type TYPE in buffer FROM to raw format for register REGNUM in buffer TO. */ #define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \ { \ double val = extract_floating ((FROM), TYPE_LENGTH (TYPE)); \ floatformat_from_double (&floatformat_m68881_ext, &val, (TO)); \ } /* Return the GDB type object for the "standard" data type of data in register N. */ /* Note, for registers which contain addresses return pointer to void, not pointer to char, because we don't want to attempt to print the string after printing the address. */ #define REGISTER_VIRTUAL_TYPE(N) \ (((unsigned)(N) - FP0_REGNUM) < 8 ? builtin_type_double : \ (N) == PC_REGNUM || (N) == FP_REGNUM || (N) == SP_REGNUM ? \ lookup_pointer_type (builtin_type_void) : builtin_type_int) /* Initializer for an array of names of registers. Entries beyond the first NUM_REGS are ignored. */ #define REGISTER_NAMES \ {"d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7", \ "a0", "a1", "a2", "a3", "a4", "a5", "fp", "sp", \ "ps", "pc", \ "fp0", "fp1", "fp2", "fp3", "fp4", "fp5", "fp6", "fp7", \ "fpcontrol", "fpstatus", "fpiaddr", "fpcode", "fpflags" } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define A1_REGNUM 9 #define FP_REGNUM 14 /* Contains address of executing stack frame */ #define SP_REGNUM 15 /* Contains address of top of stack */ #define PS_REGNUM 16 /* Contains processor status */ #define PC_REGNUM 17 /* Contains program counter */ #define FP0_REGNUM 18 /* Floating point register 0 */ #define FPC_REGNUM 26 /* 68881 control register */ #define FPS_REGNUM 27 /* 68881 status register */ #define FPI_REGNUM 28 /* 68881 iaddr register */ /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ { write_register (A1_REGNUM, (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. This is assuming that floating point values are returned as doubles in d0/d1. */ #if !defined (EXTRACT_RETURN_VALUE) #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy ((VALBUF), \ (char *)(REGBUF) + \ (TYPE_LENGTH(TYPE) >= 4 ? 0 : 4 - TYPE_LENGTH(TYPE)), \ TYPE_LENGTH(TYPE)) #endif /* Write into appropriate registers a function return value of type TYPE, given in virtual format. Assumes floats are passed in d0/d1. */ #if !defined (STORE_RETURN_VALUE) #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) #endif /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(CORE_ADDR *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. In the case of the 68000, the frame's nominal address is the address of a 4-byte word containing the calling frame's address. */ /* If we are chaining from sigtramp, then manufacture a sigtramp frame (which isn't really on the stack. I'm not sure this is right for anything but BSD4.3 on an hp300. */ #define FRAME_CHAIN(thisframe) \ (thisframe->signal_handler_caller \ ? thisframe->frame \ : (!inside_entry_file ((thisframe)->pc) \ ? read_memory_integer ((thisframe)->frame, 4) \ : 0)) /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ do { \ if ((FI)->signal_handler_caller) \ (FRAMELESS) = 0; \ else \ (FRAMELESS) = frameless_look_for_prologue(FI); \ } while (0) /* This was determined by experimentation on hp300 BSD 4.3. Perhaps it corresponds to some offset in /usr/include/sys/user.h or something like that. Using some system include file would have the advantage of probably being more robust in the face of OS upgrades, but the disadvantage of being wrong for cross-debugging. */ #define SIG_PC_FP_OFFSET 530 #define FRAME_SAVED_PC(FRAME) \ (((FRAME)->signal_handler_caller \ ? ((FRAME)->next \ ? read_memory_integer ((FRAME)->next->frame + SIG_PC_FP_OFFSET, 4) \ : read_memory_integer (read_register (SP_REGNUM) \ + SIG_PC_FP_OFFSET - 8, 4) \ ) \ : read_memory_integer ((FRAME)->frame + 4, 4)) \ ) #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can't tell how many args there are now that the C compiler delays popping them. */ #if !defined (FRAME_NUM_ARGS) #define FRAME_NUM_ARGS(val,fi) (val = -1) #endif /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 8 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #if !defined (FRAME_FIND_SAVED_REGS) #define FRAME_FIND_SAVED_REGS(fi,fsr) m68k_find_saved_regs ((fi), &(fsr)) #endif /* no FIND_FRAME_SAVED_REGS. */ /* Things needed for making the inferior call functions. */ /* The CALL_DUMMY macro is the sequence of instructions, as disassembled by gdb itself: These instructions exist only so that m68k_find_saved_regs can parse them as a "prologue"; they are never executed. fmovemx fp0-fp7,sp@- 0xf227 0xe0ff moveml d0-a5,sp@- 0x48e7 0xfffc clrw sp@- 0x4267 movew ccr,sp@- 0x42e7 The arguments are pushed at this point by GDB; no code is needed in the dummy for this. The CALL_DUMMY_START_OFFSET gives the position of the following jsr instruction. That is where we start executing. jsr @#0x32323232 0x4eb9 0x3232 0x3232 addal #0x69696969,sp 0xdffc 0x6969 0x6969 trap # 0x4e4? nop 0x4e71 Note this is CALL_DUMMY_LENGTH bytes (28 for the above example). The dummy frame always saves the floating-point registers, whether they actually exist on this target or not. */ /* FIXME: Wrong to hardwire this as BPT_VECTOR when sometimes it should be REMOTE_BPT_VECTOR. Best way to fix it would be to define CALL_DUMMY_BREAKPOINT_OFFSET. */ #define CALL_DUMMY {0xf227e0ff, 0x48e7fffc, 0x426742e7, 0x4eb93232, 0x3232dffc, 0x69696969, (0x4e404e71 | (BPT_VECTOR << 16))} #define CALL_DUMMY_LENGTH 28 /* Size of CALL_DUMMY */ #define CALL_DUMMY_START_OFFSET 12 /* Offset to jsr instruction*/ #define CALL_DUMMY_BREAKPOINT_OFFSET (CALL_DUMMY_START_OFFSET + 12) /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. We use the BFD routines to store a big-endian value of known size. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { bfd_putb32 (fun, (unsigned char *) dummyname + CALL_DUMMY_START_OFFSET + 2); \ bfd_putb32 (nargs*4, (unsigned char *) dummyname + CALL_DUMMY_START_OFFSET + 8); } /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME { m68k_push_dummy_frame (); } extern void m68k_push_dummy_frame PARAMS ((void)); extern void m68k_pop_frame PARAMS ((void)); /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME { m68k_pop_frame (); } /* Offset from SP to first arg on stack at first instruction of a function */ #define SP_ARG0 (1 * 4) gdb-4.13/gdb/config/m68k/tm-m68klynx.h 666 34562 1752 2443 5472354356 15632 0ustar fnfcygnus/* Macro definitions for Motorola 680x0 running under LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef TM_M68KLYNX_H #define TM_M68KLYNX_H #include "tm-lynx.h" /* If PC-2 contains this instruction, then we know what we are in a system call stub, and the return PC is is at SP+4, instead of SP. */ #define SYSCALL_TRAP 0x4e4a /* trap #10 */ #define SYSCALL_TRAP_OFFSET 2 /* PC is after trap instruction */ /* Use the generic 68k definitions. */ #include "m68k/tm-m68k.h" /* Disable dumbshit alternate breakpoint mechanism needed by 68k stub. */ #undef REMOTE_BREAKPOINT #endif /* TM_M68KLYNX_H */ gdb-4.13/gdb/config/m68k/tm-m68kv4.h 666 34562 1752 4444 5610362622 15161 0ustar fnfcygnus/* Target definitions for GDB on a Motorola 680x0 running SVR4. (Commodore Amiga with amix or Atari TT with ASV) Copyright (C) 1991, Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support (fnf@cygint) This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Define BPT_VECTOR if it is different than the default. This is the vector number used by traps to indicate a breakpoint. */ #define BPT_VECTOR 0x1 /* How much to decrement the PC after a trap. Depends on kernel. */ #define DECR_PC_AFTER_BREAK 0 /* No decrement required */ /* Use the alternate method of determining valid frame chains. */ #define FRAME_CHAIN_VALID_ALTERNATE #include "tm-sysv4.h" #include "m68k/tm-m68k.h" /* Offsets (in target ints) into jmp_buf. Not defined in any system header file, so we have to step through setjmp/longjmp with a debugger and figure them out. As a double check, note that defines _JBLEN as 13, which matches the number of elements we see saved by setjmp(). */ #define JB_ELEMENT_SIZE sizeof(int) /* jmp_buf[_JBLEN] is array of ints */ #define JB_D2 0 #define JB_D3 1 #define JB_D4 2 #define JB_D5 3 #define JB_D6 4 #define JB_D7 5 #define JB_A1 6 #define JB_A2 7 #define JB_A3 8 #define JB_A4 9 #define JB_A5 10 #define JB_A6 11 #define JB_A7 12 #define JB_PC JB_A1 /* Setjmp()'s return PC saved in A1 */ /* Figure out where the longjmp will land. Slurp the args out of the stack. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) gdb-4.13/gdb/config/m68k/tm-monitor.h 666 34562 1752 2111 5522277471 15607 0ustar fnfcygnus/* Parameters for the Integrated Systems Rom68k boot monitor Copyright (C) 1986, 1987, 1989, 199 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* GCC is probably the only compiler used on this configuration. So get this right even if the code which detects gcc2_compiled. is still broken. */ #define BELIEVE_PCC_PROMOTION 1 #include "m68k/tm-m68k.h" /* FIXME, should do GET_LONGJMP_TARGET for newlib. */ gdb-4.13/gdb/config/m68k/tm-news.h 666 34562 1752 6056 5465553011 15101 0ustar fnfcygnus/* Parameters for execution on a Sony/NEWS, for GDB, the GNU debugger. Copyright 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* See following cpu type determination macro to get the machine type. Here is an m-news.h file for gdb. It supports the 68881 registers. by hikichi@srava.sra.junet * Ptrace for handling floating register has a bug(before NEWS OS version 2.2), * After NEWS OS version 3.2, some of ptrace's bug is fixed. But we cannot change the floating register(see adb(1) in OS 3.2) yet. */ /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ /* when it return the floating value, use the FP0 in NEWS. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ { if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ { \ REGISTER_CONVERT_TO_VIRTUAL (FP0_REGNUM, \ REGISTER_VIRTUAL_TYPE (FP0_REGNUM), \ ®BUF[REGISTER_BYTE (FP0_REGNUM)], \ VALBUF); \ } \ else \ memcpy (VALBUF, REGBUF, TYPE_LENGTH (TYPE)); } /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ /* when it return the floating value, use the FP0 in NEWS. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ { if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ { \ char raw_buf[REGISTER_RAW_SIZE (FP0_REGNUM)]; \ REGISTER_CONVERT_TO_RAW (REGISTER_VIRTUAL_TYPE (FP0_REGNUM), \ FP0_REGNUM, VALBUF, raw_buf); \ write_register_bytes (FP0_REGNUM, \ raw_buf, REGISTER_RAW_SIZE (FP0_REGNUM)); \ } \ else \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)); } /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(val, fi) \ { register CORE_ADDR pc = FRAME_SAVED_PC (fi); \ register int insn = 0177777 & read_memory_integer (pc, 2); \ val = 0; \ if (insn == 0047757 || insn == 0157374) /* lea W(sp),sp or addaw #W,sp */ \ val = read_memory_integer (pc + 2, 2); \ else if ((insn & 0170777) == 0050217 /* addql #N, sp */ \ || (insn & 0170777) == 0050117) /* addqw */ \ { val = (insn >> 9) & 7; if (val == 0) val = 8; } \ else if (insn == 0157774) /* addal #WW, sp */ \ val = read_memory_integer (pc + 2, 4); \ val >>= 2; } #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-os68k.h 666 34562 1752 3452 5355712543 15101 0ustar fnfcygnus/* Parameters for execution on VxWorks m68k's, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1991 Free Software Foundation, Inc. Contributed by Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define GDBINIT_FILENAME ".os68gdbinit" #define DEFAULT_PROMPT "(os68k) " #include "m68k/tm-m68k.h" /* We have more complex, useful breakpoints on the target. */ #undef DECR_PC_AFTER_BREAK #define DECR_PC_AFTER_BREAK 0 /* We are guaranteed to have a zero frame pointer at bottom of stack, too. */ #undef FRAME_CHAIN #undef FRAME_CHAIN_VALID /* Takes the current frame-struct pointer and returns the chain-pointer to get to the calling frame. If our current frame pointer is zero, we're at the top; else read out the saved FP from memory pointed to by the current FP. */ #define FRAME_CHAIN(thisframe) ((thisframe)->frame? read_memory_integer ((thisframe)->frame, 4): 0) /* If the chain pointer is zero (either because the saved value fetched by FRAME_CHAIN was zero, or because the current FP was zero so FRAME_CHAIN never fetched anything), we are at the top of the stack. */ #define FRAME_CHAIN_VALID(chain, thisframe) (chain != 0) gdb-4.13/gdb/config/m68k/tm-st2000.h 666 34562 1752 1505 5443673405 15055 0ustar fnfcygnus/* Parameters for a Tandem ST2000 phone switch. Copyright (C) 1986, 1987, 1989, 199 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-sun2.h 666 34562 1752 1721 5443673406 15015 0ustar fnfcygnus/* Parameters for execution on a Sun, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The child target can't deal with floating registers. */ #define CANNOT_STORE_REGISTER(regno) ((regno) >= FP0_REGNUM) #include "m68k/tm-m68k.h" gdb-4.13/gdb/config/m68k/tm-sun2os4.h 666 34562 1752 1433 5353462234 15436 0ustar fnfcygnus/* Copyright (C) 1990, Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m68k/tm-sun2.h" #include "tm-sunos.h" gdb-4.13/gdb/config/m68k/tm-sun3.h 666 34562 1752 7374 5511703552 15020 0ustar fnfcygnus/* Parameters for execution on a Sun, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef TM_SUN3_H #define TM_SUN3_H /* Sun3 status includes fpflags, which shows whether the FPU has been used by the process, and whether the FPU was done with an instruction or was interrupted in the middle of a long instruction. See . */ /* a&d, pc,sr, fp, fpstat, fpflags */ #define REGISTER_BYTES (16*4 + 8 + 8*12 + 3*4 + 4) #define NUM_REGS 31 #define REGISTER_BYTES_OK(b) \ ((b) == REGISTER_BYTES \ || (b) == REGISTER_BYTES_FP \ || (b) == REGISTER_BYTES_NOFP) /* If PC contains this instruction, then we know what we are in a system call stub, and the return PC is is at SP+4, instead of SP. */ #define SYSCALL_TRAP 0x4e40 /* trap #0 */ #define SYSCALL_TRAP_OFFSET 0 /* PC points at trap instruction */ #include "m68k/tm-m68k.h" /* Disable alternate breakpoint mechanism needed by 68k stub. */ #undef REMOTE_BREAKPOINT /* Offsets (in target ints) into jmp_buf. Not defined by Sun, but at least documented in a comment in ! */ #define JB_ELEMENT_SIZE 4 #define JB_ONSSTACK 0 #define JB_SIGMASK 1 #define JB_SP 2 #define JB_PC 3 #define JB_PSL 4 #define JB_D2 5 #define JB_D3 6 #define JB_D4 7 #define JB_D5 8 #define JB_D6 9 #define JB_D7 10 #define JB_A2 11 #define JB_A3 12 #define JB_A4 13 #define JB_A5 14 #define JB_A6 15 /* Figure out where the longjmp will land. Slurp the args out of the stack. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) /* If sun3 pcc says that a parameter is a short, it's a short. */ #define BELIEVE_PCC_PROMOTION_TYPE /* Can't define BELIEVE_PCC_PROMOTION for SunOS /bin/cc of SunOS 4.1.1. Apparently Sun fixed this for the sparc but not the sun3. */ /* The code which tries to deal with this bug is never harmful on a sun3. */ #define SUN_FIXED_LBRAC_BUG (0) /* On the sun3 the kernel pushes a sigcontext on the user stack and then `calls' _sigtramp in user code. _sigtramp saves the floating point status on the stack and calls the signal handler function. The stack does not contain enough information to allow a normal backtrace, but sigcontext contains the saved user pc/sp. FRAME_CHAIN and friends in tm-m68k.h and m68k_find_saved_regs deal with this situation by manufacturing a fake frame for _sigtramp. SIG_PC_FP_OFFSET is the offset from the signal handler frame to the saved pc in sigcontext. SIG_SP_FP_OFFSET is the offset from the signal handler frame to the end of sigcontext which is identical to the saved sp at SIG_PC_FP_OFFSET - 4. Please note that it is impossible to correctly backtrace from a breakpoint in _sigtramp as _sigtramp modifies the stack pointer a few times. */ #undef SIG_PC_FP_OFFSET #define SIG_PC_FP_OFFSET 324 #define SIG_SP_FP_OFFSET 332 #endif /* TM_SUN3_H */ gdb-4.13/gdb/config/m68k/tm-sun3os4.h 666 34562 1752 1555 5353462237 15447 0ustar fnfcygnus/* Target machine parameters for Sun-3 under SunOS 4.x, for GDB. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m68k/tm-sun3.h" #include "tm-sunos.h" gdb-4.13/gdb/config/m68k/tm-vx68.h 666 34562 1752 6005 5507351532 14733 0ustar fnfcygnus/* Target machine description for VxWorks m68k's, for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define GDBINIT_FILENAME ".vxgdbinit" #define DEFAULT_PROMPT "(vxgdb) " /* GCC is probably the only compiler used on this configuration. So get this right even if the code which detects gcc2_compiled. is still broken. */ #define BELIEVE_PCC_PROMOTION 1 /* We have more complex, useful breakpoints on the target. */ #define DECR_PC_AFTER_BREAK 0 #include "m68k/tm-m68k.h" /* We are guaranteed to have a zero frame pointer at bottom of stack, too. */ #undef FRAME_CHAIN #undef FRAME_CHAIN_VALID /* Takes the current frame-struct pointer and returns the chain-pointer to get to the calling frame. If our current frame pointer is zero, we're at the top; else read out the saved FP from memory pointed to by the current FP. */ #define FRAME_CHAIN(thisframe) ((thisframe)->frame? read_memory_integer ((thisframe)->frame, 4): 0) /* If the chain pointer is zero (either because the saved value fetched by FRAME_CHAIN was zero, or because the current FP was zero so FRAME_CHAIN never fetched anything), we are at the top of the stack. */ #define FRAME_CHAIN_VALID(chain, thisframe) (chain != 0) /* FIXME, Longjmp information stolen from Sun-3 config. Dunno if right. */ /* Offsets (in target ints) into jmp_buf. Not defined by Sun, but at least documented in a comment in ! */ #define JB_ELEMENT_SIZE 4 #define JB_ONSSTACK 0 #define JB_SIGMASK 1 #define JB_SP 2 #define JB_PC 3 #define JB_PSL 4 #define JB_D2 5 #define JB_D3 6 #define JB_D4 7 #define JB_D5 8 #define JB_D6 9 #define JB_D7 10 #define JB_A2 11 #define JB_A3 12 #define JB_A4 13 #define JB_A5 14 #define JB_A6 15 /* Figure out where the longjmp will land. Slurp the args out of the stack. We expect the first arg to be a pointer to the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) /* Number of registers in a ptrace_getregs call. */ #define VX_NUM_REGS (18) /* Number of registers in a ptrace_getfpregs call. */ #define VX_SIZE_FPREGS (8 * REGISTER_RAW_SIZE (FP0_REGNUM) \ + (3 * REGISTER_SIZE)) gdb-4.13/gdb/config/m68k/xm-3b1.h 666 34562 1752 5333 5353462243 14515 0ustar fnfcygnus/* Parameters for execution on a 3b1. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN #define HAVE_TERMIO #define USG /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR 0x70000 #define REGISTER_U_ADDR(addr, blockend, regno) \ { addr = blockend + regno * 4; } /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movel $ end, sp"); \ asm ("clrl fp"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("movel fp, -(sp)"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl (sp), fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea 10(sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("subil $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } #endif gdb-4.13/gdb/config/m68k/vxworks68.mt 666 34562 1752 217 5353462242 15553 0ustar fnfcygnus# Target: VxWorks running on a 68000 TDEPFILES= exec.o m68k-pinsn.o m68k-tdep.o remote-vx.o xdr_ld.o xdr_ptrace.o xdr_rdb.o TM_FILE= tm-vx68.h gdb-4.13/gdb/config/m68k/xm-altos.h 666 34562 1752 12607 5353462246 15277 0ustar fnfcygnus/* Definitions to make GDB run on an Altos 3068 (m68k running SVR2) Copyright (C) 1987,1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* The altos support would make a good base for a port to other USGR2 systems (like the 3b1 and the Convergent miniframe). */ /* This is only needed in one file, but it's cleaner to put it here than putting in more #ifdef's. */ #include #include #define USG #define HAVE_TERMIO #define CBREAK XTABS /* It takes all kinds... */ #ifndef R_OK #define R_OK 4 #define W_OK 2 #define X_OK 1 #define F_OK 0 #endif /* Get sys/wait.h ie. from a Sun and edit it a little (mc68000 to m68k) */ /* Why bother? */ #if 0 #define HAVE_WAIT_STRUCT #endif /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR 0x1fbf000 #define REGISTER_U_ADDR(addr, blockend, regno) \ { if (regno <= SP_REGNUM) \ addr = blockend + regno * 4; \ else if (regno == PS_REGNUM) \ addr = blockend + regno * 4 + 4; \ else if (regno == PC_REGNUM) \ addr = blockend + regno * 4 + 2; \ } #define REGISTER_ADDR(u_ar0, regno) \ (((regno) < PS_REGNUM) \ ? (&((struct exception_stack *) (u_ar0))->e_regs[(regno + R0)]) \ : (((regno) == PS_REGNUM) \ ? ((int *) (&((struct exception_stack *) (u_ar0))->e_PS)) \ : (&((struct exception_stack *) (u_ar0))->e_PC))) #define FP_REGISTER_ADDR(u, regno) \ (((char *) \ (((regno) < FPC_REGNUM) \ ? (&u.u_pcb.pcb_mc68881[FMC68881_R0 + (((regno) - FP0_REGNUM) * 3)]) \ : (&u.u_pcb.pcb_mc68881[FMC68881_C + ((regno) - FPC_REGNUM)]))) \ - ((char *) (& u))) #ifndef __GNUC__ #undef USE_GAS #define ALTOS_AS #else #define USE_GAS #endif /* Motorola assembly format */ #if !defined(USE_GAS) && !defined(ALTOS) #define MOTOROLA #endif /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #ifdef MOTOROLA #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("move.l $ end, sp"); \ asm ("clr.l fp"); } #else #ifdef ALTOS_AS #define INIT_STACK(beg, end) \ { asm ("global end"); \ asm ("mov.l &end,%sp"); \ asm ("clr.l %fp"); } #else #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movel $ end, sp"); \ asm ("clrl fp"); } #endif #endif /* Push the frame pointer register on the stack. */ #ifdef MOTOROLA #define PUSH_FRAME_PTR \ asm ("move.l fp, -(sp)"); #else #ifdef ALTOS_AS #define PUSH_FRAME_PTR \ asm ("mov.l %fp, -(%sp)"); #else #define PUSH_FRAME_PTR \ asm ("movel fp, -(sp)"); #endif #endif /* Copy the top-of-stack to the frame pointer register. */ #ifdef MOTOROLA #define POP_FRAME_PTR \ asm ("move.l (sp), fp"); #else #ifdef ALTOS_AS #define POP_FRAME_PTR \ asm ("mov.l (%sp), %fp"); #else #define POP_FRAME_PTR \ asm ("movl (sp), fp"); #endif #endif /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #ifdef MOTOROLA #define PUSH_REGISTERS \ { asm ("clr.w -(sp)"); \ asm ("pea (10,sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } #else #ifdef ALTOS_AS #define PUSH_REGISTERS \ { asm ("clr.w -(%sp)"); \ asm ("pea (10,%sp)"); \ asm ("movm.l &0xfffe,-(%sp)"); } #else #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea 10(sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } #endif #endif /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #ifdef MOTOROLA #define POP_REGISTERS \ { asm ("subi.l $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } #else #ifdef ALTOS_AS #define POP_REGISTERS \ { asm ("sub.l &8,28(%sp)"); \ asm ("movem (%sp),&0xffff"); \ asm ("rte"); } #else #define POP_REGISTERS \ { asm ("subil $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } #endif #endif gdb-4.13/gdb/config/m68k/xm-apollo68b.h 666 34562 1752 1571 5355712550 15737 0ustar fnfcygnus/* Macro definitions for an Apollo m68k in BSD mode Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN #define ALIGN_STACK_ON_STARTUP extern char *strdup(); gdb-4.13/gdb/config/m68k/xm-apollo68v.h 666 34562 1752 3224 5353462254 15761 0ustar fnfcygnus/* Macro defintions for an Apollo. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Changes for 80386 by Pace Willisson (pace@prep.ai.mit.edu) * July 1988 */ #define HOST_BYTE_ORDER BIG_ENDIAN /* I'm running gdb 3.4 under 386/ix 2.0.2, which is a derivative of AT&T's Sys V/386 3.2. On some machines, gdb crashes when it's starting up while calling the vendor's termio tgetent() routine. It always works when run under itself (actually, under 3.2, it's not an infinitely recursive bug.) After some poking around, it appears that depending on the environment size, or whether you're running YP, or the phase of the moon or something, the stack is not always long-aligned when main() is called, and tgetent() takes strong offense at that. On some machines this bug never appears, but on those where it does, it occurs quite reliably. */ #define ALIGN_STACK_ON_STARTUP /* define USG if you are using sys5 /usr/include's */ #define USG #define HAVE_TERMIO gdb-4.13/gdb/config/m68k/xm-delta68.h 666 34562 1752 2763 5415104766 15405 0ustar fnfcygnus/* Macro definitions for a Delta. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* I'm running gdb 4.9 under sysV68 R3V7.1. On some machines, gdb crashes when it's starting up while calling the vendor's termio tgetent() routine. It always works when run under itself (actually, under 3.2, it's not an infinitely recursive bug.) After some poking around, it appears that depending on the environment size, or whether you're running YP, or the phase of the moon or something, the stack is not always long-aligned when main() is called, and tgetent() takes strong offense at that. On some machines this bug never appears, but on those where it does, it occurs quite reliably. */ #define ALIGN_STACK_ON_STARTUP #define USG #define HAVE_TERMIO gdb-4.13/gdb/config/m68k/xm-dpx2.h 666 34562 1752 1634 5421021101 14761 0ustar fnfcygnus/* Parameters for execution on a Bull DPX2. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN #define HAVE_TERMIOS #define USG /* Avoid redefinition errors */ #include gdb-4.13/gdb/config/m68k/xm-hp300bsd.h 666 34562 1752 6313 5565224151 15451 0ustar fnfcygnus/* Parameters for hosting on a Hewlett-Packard 9000/300, running bsd. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Configuration file for HP9000/300 series machine running * University of Utah's 4.3bsd (or 4.4BSD) port. This is NOT for HP-UX. * Problems to hpbsd-bugs@cs.utah.edu */ #define HOST_BYTE_ORDER BIG_ENDIAN /* Avoid "INT_MIN redefined" preprocessor warnings by defining them here. */ #include /* Kernel is a bit tenacious about sharing text segments, disallowing bpts. */ #define ONE_PROCESS_WRITETEXT /* psignal's definition in 4.4BSD conflicts with the one in defs.h. But there *is* no psignal definition in 4.3BSD. So we avoid the defs.h version here, and supply our own (matching) one. */ #define PSIGNAL_IN_SIGNAL_H void psignal PARAMS ((unsigned int, const char *)); extern char *strdup PARAMS ((const char *)); /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movel #end, sp"); \ asm ("movel #0,a6"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("movel a6,sp@-"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl sp@,a6"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea sp@(10)"); \ asm ("movem #0xfffe,sp@-"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("subil #8,sp@(28)"); \ asm ("movem sp@,#0xffff"); \ asm ("rte"); } gdb-4.13/gdb/config/m68k/xm-hp300hpux.h 666 34562 1752 12206 5565224151 15703 0ustar fnfcygnus/* Parameters for HP 9000 model 320 hosting, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* HPUX 8.0, in its infinite wisdom, has chosen to prototype ptrace with five arguments, so programs written for normal ptrace lose. Idiots. (They should have just made it varadic). */ #define FIVE_ARG_PTRACE /* Define this to indicate problems with traps after continuing. */ #define HP_OS_BUG /* Set flag to indicate whether HP's assembler is in use. */ #ifdef __GNUC__ #ifdef __HPUX_ASM__ #define HPUX_ASM #endif #else /* not GNU C. */ #define HPUX_ASM #endif /* not GNU C. */ /* Define this for versions of hp-ux older than 6.0 */ /* #define HPUX_VERSION_5 */ /* define USG if you are using sys5 /usr/include's */ #undef USG /* In case it was defined in the Makefile for cplus-dem.c */ #define USG /* The mem functions are in . */ #undef MEM_FNS_DECLARED #define MEM_FNS_DECLARED 1 #define HAVE_TERMIOS #define REGISTER_ADDR(u_ar0, regno) \ (unsigned int) \ (((regno) < PS_REGNUM) \ ? (&((struct exception_stack *) (u_ar0))->e_regs[(regno + R0)]) \ : (((regno) == PS_REGNUM) \ ? ((int *) (&((struct exception_stack *) (u_ar0))->e_PS)) \ : (&((struct exception_stack *) (u_ar0))->e_PC))) #define FP_REGISTER_ADDR(u, regno) \ (((char *) \ (((regno) < FPC_REGNUM) \ ? (&u.u_pcb.pcb_mc68881[FMC68881_R0 + (((regno) - FP0_REGNUM) * 3)]) \ : (&u.u_pcb.pcb_mc68881[FMC68881_C + ((regno) - FPC_REGNUM)]))) \ - ((char *) (& u))) /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } #ifndef HPUX_ASM /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movel $ end, sp"); \ asm ("clrl fp"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("movel fp, -(sp)"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl (sp), fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea 10(sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("subil $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } #else /* HPUX_ASM */ /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm ("global end"); \ asm ("mov.l &end,%sp"); \ asm ("clr.l %a6"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("mov.l %fp,-(%sp)"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("mov.l (%sp),%fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("clr.w -(%sp)"); \ asm ("pea 10(%sp)"); \ asm ("movm.l &0xfffe,-(%sp)"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("subi.l &8,28(%sp)"); \ asm ("mov.m (%sp),&0xffff"); \ asm ("rte"); } #endif /* HPUX_ASM */ gdb-4.13/gdb/config/m68k/xm-isi.h 666 34562 1752 6452 5353462262 14720 0ustar fnfcygnus/* Definitions to make GDB run on an ISI Optimum V (3.05) under 4.3bsd. Copyright 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* This has not been tested on ISI's running BSD 4.2, but it will probably work. */ /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ /*#define KERNEL_U_ADDR 0x10800000*/ #define KERNEL_U_ADDR 0 /* expects blockend to be u.u_ar0 */ extern int rloc[]; /* Defined in isi-dep.c */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { blockend &= UPAGES*NBPG - 1; \ if (regno < 18) addr = (int)blockend + rloc[regno]*4; \ else if (regno < 26) addr = (int) &((struct user *)0)->u_68881_regs \ + (regno - 18) * 12; \ else if (regno < 29) addr = (int) &((struct user *)0)->u_68881_regs \ + 8 * 12 + (regno - 26) * 4; \ } /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movl $ end, sp"); \ asm ("clrl fp"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("movel fp, -(sp)"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl (sp), fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea 10(sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("subil $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } gdb-4.13/gdb/config/m68k/xm-m68k.h 666 34562 1752 1615 5353462265 14720 0ustar fnfcygnus/* Macro definitions for running gdb on host machines with m68k cpu's. Copyright (C) 1991, Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support (fnf@cygint) This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN gdb-4.13/gdb/config/m68k/xm-m68klynx.h 666 34562 1752 1625 5464331010 15616 0ustar fnfcygnus/* Host-dependent definitions for Motorola 680x0 running LynxOS, for GDB. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* Get generic LynxOS host definitions. */ #include "xm-lynx.h" gdb-4.13/gdb/config/m68k/xm-m68kv4.h 666 34562 1752 3516 5610362624 15166 0ustar fnfcygnus/* Host definitions for GDB on a Motorola 680x0 running SVR4. (Commodore Amiga with amix or Atari TT with ASV) Copyright 1991, 1992 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support (fnf@cygnus.com) This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Pick up most of what we need from the generic m68k host include file. */ #include "m68k/xm-m68k.h" /* Pick up more stuff from the generic SVR4 host include file. */ #include "xm-sysv4.h" /* The native AT&T compiler for m68k/SVR4 complains about using volatile to indicate functions that never return. So shut it up by simply defining away "NORETURN", which is normally defined to "volatile". */ #ifndef __GNUC__ # define NORETURN /**/ #endif /* If you expect to use the mmalloc package to obtain mapped symbol files, for now you have to specify some parameters that determine how gdb places the mappings in it's address space. See the comments in map_to_address() for details. This is expected to only be a short term solution. Yes it is a kludge. FIXME: Make this more automatic. */ #define MMAP_BASE_ADDRESS 0xC2000000 /* First mapping here */ #define MMAP_INCREMENT 0x01000000 /* Increment to next mapping */ gdb-4.13/gdb/config/m68k/xm-news.h 666 34562 1752 10203 5565224152 15114 0ustar fnfcygnus/* Parameters for execution on a Sony/NEWS, for GDB, the GNU debugger. Copyright 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* A News 1800 running NEWS-OS Release 4.0.1C is said to need this. */ /* Avoid "INT_MIN redefined" preprocessor warnings by defining them here. */ #include #define HAVE_WAIT_STRUCT /* We can't use "isatty" or "fileno" on this machine. This isn't good, but it will have to do. */ #define ISATTY(FP) ((FP) == stdin || (FP) == stdout) /* THis is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR UADDR /* The offsets in this macro are from /usr/include/machine/reg.h */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { static char offsets[] = { \ /*d0-d7:*/1,2,3,4,5,6,7,8, \ /*a0-a6:*/9,10,11,12,13,14,15, /*sp:*/-4, /*ps:*/0, /*pc:*/-1, \ /*fp0-fp7:*/19,22,25,28,31,34,37,40, /*fpc:*/16,17,18 }; \ addr = blockend + 4 * offsets[regno]; \ } /* NewsOS 3.3 does not define errno in . */ extern int errno; /* Interface definitions for kernel debugger KDB. */ /* Use GNU assembler instead of standard assembler */ #define USE_GAS /* Motorola assembly format */ #ifndef USE_GAS #define MOTOROLA #endif /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #ifdef MOTOROLA #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("move.l $ end, sp"); \ asm ("clr.l fp"); } #else #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movel $ end, sp"); \ asm ("clrl fp"); } #endif /* Push the frame pointer register on the stack. */ #ifdef MOTOROLA #define PUSH_FRAME_PTR \ asm ("move.l fp, -(sp)"); #else #define PUSH_FRAME_PTR \ asm ("movel fp, -(sp)"); #endif /* Copy the top-of-stack to the frame pointer register. */ #ifdef MOTOROLA #define POP_FRAME_PTR \ asm ("move.l (sp), fp"); #else #define POP_FRAME_PTR \ asm ("movl (sp), fp"); #endif /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #ifdef MOTOROLA #define PUSH_REGISTERS \ { asm ("clr.w -(sp)"); \ asm ("pea (10,sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } #else #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea 10(sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } #endif /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #ifdef MOTOROLA #define POP_REGISTERS \ { asm ("subi.l $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } #else #define POP_REGISTERS \ { asm ("subil $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } #endif gdb-4.13/gdb/config/m68k/xm-news1000.h 666 34562 1752 2071 5353462270 15401 0ustar fnfcygnus/* Parameters for a Sony/NEWS series 1000 with News-OS version 3, for GDB, the GNU debugger. Copyright (C) 1990 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is required by Sony include files like so we get the right offset into the u area. Relying on the compiler to define this only works for cc, not gcc. */ #undef mc68030 #define mc68030 #include "m68k/xm-news.h" gdb-4.13/gdb/config/m68k/xm-sun2.h 666 34562 1752 5330 5353462272 15016 0ustar fnfcygnus/* Parameters for execution on a Sun, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR 0x2800 /* Enable use of alternate code for Sun's format of core dump file. */ #define NEW_SUN_CORE /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movel $ end, sp"); \ asm ("clrl fp"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("movel fp, -(sp)"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl (sp), fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea 10(sp)"); \ asm ("movem $ 0xfffe,-(sp)"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("subil $8,28(sp)"); \ asm ("movem (sp),$ 0xffff"); \ asm ("rte"); } gdb-4.13/gdb/config/m68k/xm-sun3.h 666 34562 1752 5341 5565224153 15020 0ustar fnfcygnus/* Parameters for execution on a Sun, for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* Enable use of alternate code for Sun's format of core dump file. */ #define NEW_SUN_CORE /* We have to grab the regs since we store all regs at once. */ #define CHILD_PREPARE_TO_STORE() \ read_register_bytes (0, (char *)NULL, REGISTER_BYTES) /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, 0, 0, 0, SIGTRAP, 0, 0, 0, \ 0, SIGTRAP, 0, 0, 0, 0, 0, SIGKILL, \ 0, 0, 0, 0, 0, 0, 0, 0, \ SIGILL } /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movel #end, sp"); \ asm ("movel #0,a6"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("movel a6,sp@-"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl sp@,a6"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("clrw -(sp)"); \ asm ("pea sp@(10)"); \ asm ("movem #0xfffe,sp@-"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("subil #8,sp@(28)"); \ asm ("movem sp@,#0xffff"); \ asm ("rte"); } gdb-4.13/gdb/config/m68k/xm-sun3os4.h 666 34562 1752 3014 5565224153 15441 0ustar fnfcygnus/* Macro definitions for a sun 3 running os 4. Copyright (C) 1989, Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m68k/xm-sun3.h" #define FPU /* SunOS 4.x has memory mapped files. */ #define HAVE_MMAP /* If you expect to use the mmalloc package to obtain mapped symbol files, for now you have to specify some parameters that determine how gdb places the mappings in it's address space. See the comments in map_to_address() for details. This is expected to only be a short term solution. Yes it is a kludge. FIXME: Make this more automatic. */ #define MMAP_BASE_ADDRESS 0xE0000000 /* First mapping here */ #define MMAP_INCREMENT 0x01000000 /* Increment to next mapping */ /* Prevent type conflicts between yacc malloc decls and defs.h */ #define MALLOC_INCOMPATIBLE extern char *malloc(); extern char *realloc(); extern void free(); gdb-4.13/gdb/config/m88k/ 777 34562 1752 0 5623250614 13250 5ustar fnfcygnusgdb-4.13/gdb/config/m88k/cxux.mh 666 34562 1752 317 5612316720 14625 0ustar fnfcygnus# Host: Motorola 88k running CX/UX XM_FILE= xm-cxux.h XDEPFILES= NAT_FILE= nm-cxux.h NATDEPFILES= infptrace.o inftarg.o fork-child.o cxux-nat.o corelow.o coredep.o MMALLOC= MMALLOC_DISABLE= -DNO_MMALLOC gdb-4.13/gdb/config/m88k/cxux.mt 666 34562 1752 170 5612316722 14640 0ustar fnfcygnus# Target: Motorola 88k running Harris CX/UX TM_FILE= tm-cxux.h TDEPFILES= exec.o m88k-tdep.o m88k-pinsn.o remote-bug.o gdb-4.13/gdb/config/m88k/delta88.mh 666 34562 1752 321 5612317073 15104 0ustar fnfcygnus# Host: Motorola 88k running SVR3 XM_FILE= xm-delta88.h XDEPFILES= NAT_FILE= nm-m88k.h NATDEPFILES= exec.o infptrace.o inftarg.o fork-child.o m88k-nat.o \ corelow.o coredep.o REGEX=regex.o REGEX1=regex.o gdb-4.13/gdb/config/m88k/delta88.mt 666 34562 1752 137 5612317074 15126 0ustar fnfcygnus# Target: Motorola 88k running SVR3 TM_FILE= tm-delta88.h TDEPFILES= m88k-tdep.o m88k-pinsn.o gdb-4.13/gdb/config/m88k/delta88v4.mh 666 34562 1752 325 5612317075 15364 0ustar fnfcygnus# Host: Motorola 88k running SVR4 XM_FILE= xm-delta88v4.h XDEPFILES= NAT_FILE= nm-delta88v4.h NATDEPFILES= exec.o fork-child.o m88k-nat.o corelow.o \ core-svr4.o procfs.o solib.o REGEX=regex.o REGEX1=regex.o gdb-4.13/gdb/config/m88k/delta88v4.mt 666 34562 1752 140 5436231463 15373 0ustar fnfcygnus# Target: Motorola 88k running SVR4 TDEPFILES= m88k-tdep.o m88k-pinsn.o TM_FILE= tm-delta88v4.h gdb-4.13/gdb/config/m88k/m88k.mh 666 34562 1752 222 5465275560 14434 0ustar fnfcygnus# Host: Motorola 88000 running DGUX XDEPFILES= XM_FILE= xm-dgux.h NAT_FILE= nm-m88k.h NATDEPFILES= infptrace.o inftarg.o fork-child.o m88k-nat.o gdb-4.13/gdb/config/m88k/m88k.mt 666 34562 1752 202 5440767341 14442 0ustar fnfcygnus# Target: Motorola 88000 Binary Compatability Standard TDEPFILES= m88k-tdep.o m88k-pinsn.o exec.o remote-bug.o TM_FILE= tm-m88k.h gdb-4.13/gdb/config/m88k/nm-cxux.h 666 34562 1752 2074 5612316723 15105 0ustar fnfcygnus/* Native definitions for Motorola 88K running Harris CX/UX Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Override the standard fetch/store definitions. */ #define FETCH_INFERIOR_REGISTERS #define REGISTER_U_ADDR(addr, blockend, regno) \ (addr) = m88k_register_u_addr ((blockend),(regno)); #define ATTACH_DETACH #define PTRACE_ATTACH 128 #define PTRACE_DETACH 129 gdb-4.13/gdb/config/m88k/nm-delta88v4.h 666 34562 1752 1566 5436231464 15650 0ustar fnfcygnus/* Native machine description for Motorola Delta 88 box, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m88k/nm-m88k.h" #include "nm-sysv4.h" gdb-4.13/gdb/config/m88k/nm-m88k.h 666 34562 1752 1710 5353462316 14703 0ustar fnfcygnus/* Native support macros for m88k, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define FETCH_INFERIOR_REGISTERS #define REGISTER_U_ADDR(addr, blockend, regno) \ (addr) = m88k_register_u_addr ((blockend),(regno)); gdb-4.13/gdb/config/m88k/tm-cxux.h 666 34562 1752 3350 5612316725 15113 0ustar fnfcygnus/* Target definitions for m88k running Harris CX/UX. Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HARRIS_TARGET 1 /* Type of X registers, as supplied by the OS */ typedef struct { long w1, w2, w3, w4; } X_REGISTER_RAW_TYPE; #define X_REGISTER_VIRTUAL_TYPE double #include "m88k/tm-m88k.h" #define ADD_SHARED_SYMBOL_FILES(args,have_tty) add_shared_symbol_files () #define CONVERT_REGISTER_ADDRESS /* Always allocate space for both, but recognize that the m88100 has no FP_REGS. */ #define ARCH_NUM_REGS (target_is_m88110 ? (GP_REGS + FP_REGS) : (GP_REGS)) /* Don't need this grotesquerie. */ #undef SHIFT_INST_REGS /* Extended registers are treated as 16 bytes by Harris' OS's. We treat them as 16 bytes here for consistency's sake. */ #undef REGISTER_RAW_SIZE #define REGISTER_RAW_SIZE(N) ((N) < XFP_REGNUM ? 4 : 16) #undef REGISTER_BYTE #define REGISTER_BYTE(N) \ ((N) >= XFP_REGNUM \ ? (((GP_REGS) * REGISTER_RAW_SIZE(0)) + \ (((N) - XFP_REGNUM) * REGISTER_RAW_SIZE(XFP_REGNUM))) \ : ((N) * REGISTER_RAW_SIZE(0))) gdb-4.13/gdb/config/m88k/tm-delta88.h 666 34562 1752 2055 5523552370 15375 0ustar fnfcygnus/* Target machine description for Motorola Delta 88 box, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m88k/tm-m88k.h" #define DELTA88 #define IN_SIGTRAMP(pc, name) ((name) && STREQ ("_sigcode", (name))) #define SIGTRAMP_FRAME_FIXUP(frame) (frame) += 0x20 #define SIGTRAMP_SP_FIXUP(sp) (sp) = read_memory_integer((sp), 4) gdb-4.13/gdb/config/m88k/tm-delta88v4.h 666 34562 1752 2313 5523552371 15645 0ustar fnfcygnus/* Target machine description for Motorola Delta 88 box, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define DELTA88 #include "m88k/tm-m88k.h" #include "tm-sysv4.h" /* If we don't define this, backtraces go on forever. */ #define FRAME_CHAIN_VALID_ALTERNATE 1 #define IN_SIGTRAMP(pc, name) ((name) && (STREQ ("signalhandler", (name)) \ || STREQ("sigacthandler", (name)))) #define SIGTRAMP_SP_FIXUP(sp) (sp) = read_memory_integer((sp)+0xcd8, 4) gdb-4.13/gdb/config/m88k/tm-m88k.h 666 34562 1752 50472 5612316730 14736 0ustar fnfcygnus/* Target machine description for generic Motorola 88000, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* g++ support is not yet included. */ /* Define the bit, byte, and word ordering of the machine. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* We cache information about saved registers in the frame structure, to save us from having to re-scan function prologues every time a register in a non-current frame is accessed. */ #define EXTRA_FRAME_INFO \ struct frame_saved_regs *fsr; \ CORE_ADDR locals_pointer; \ CORE_ADDR args_pointer; /* Zero the frame_saved_regs pointer when the frame is initialized, so that FRAME_FIND_SAVED_REGS () will know to allocate and initialize a frame_saved_regs struct the first time it is called. Set the arg_pointer to -1, which is not valid; 0 and other values indicate real, cached values. */ #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \ init_extra_frame_info (fromleaf, fi) extern void init_extra_frame_info (); #define IEEE_FLOAT /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(frompc) \ { (frompc) = skip_prologue (frompc); } extern CORE_ADDR skip_prologue (); /* The m88k kernel aligns all instructions on 4-byte boundaries. The kernel also uses the least significant two bits for its own hocus pocus. When gdb receives an address from the kernel, it needs to preserve those right-most two bits, but gdb also needs to be careful to realize that those two bits are not really a part of the address of an instruction. Shrug. */ #define ADDR_BITS_REMOVE(addr) ((addr) & ~3) /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) \ (ADDR_BITS_REMOVE (read_register (SRP_REGNUM))) /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ /* instruction 0xF000D1FF is 'tb0 0,r0,511' If Bit bit 0 of r0 is clear (always true), initiate exception processing (trap). */ #define BREAKPOINT {0xF0, 0x00, 0xD1, 0xFF} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ /* 'jmp r1' or 'jmp.n r1' is used to return from a subroutine. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 2) == 0xF800) /* This is taken care of in print_floating [IEEE_FLOAT]. */ #define INVALID_FLOAT(p,len) 0 /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define GP_REGS (38) #define FP_REGS (32) #define NUM_REGS (GP_REGS + FP_REGS) /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES {\ "r0",\ "r1",\ "r2",\ "r3",\ "r4",\ "r5",\ "r6",\ "r7",\ "r8",\ "r9",\ "r10",\ "r11",\ "r12",\ "r13",\ "r14",\ "r15",\ "r16",\ "r17",\ "r18",\ "r19",\ "r20",\ "r21",\ "r22",\ "r23",\ "r24",\ "r25",\ "r26",\ "r27",\ "r28",\ "r29",\ "r30",\ "r31",\ "psr",\ "fpsr",\ "fpcr",\ "sxip",\ "snip",\ "sfip",\ "x0",\ "x1",\ "x2",\ "x3",\ "x4",\ "x5",\ "x6",\ "x7",\ "x8",\ "x9",\ "x10",\ "x11",\ "x12",\ "x13",\ "x14",\ "x15",\ "x16",\ "x17",\ "x18",\ "x19",\ "x20",\ "x21",\ "x22",\ "x23",\ "x24",\ "x25",\ "x26",\ "x27",\ "x28",\ "x29",\ "x30",\ "x31",\ "vbr",\ "dmt0",\ "dmd0",\ "dma0",\ "dmt1",\ "dmd1",\ "dma1",\ "dmt2",\ "dmd2",\ "dma2",\ "sr0",\ "sr1",\ "sr2",\ "sr3",\ "fpecr",\ "fphs1",\ "fpls1",\ "fphs2",\ "fpls2",\ "fppt",\ "fprh",\ "fprl",\ "fpit",\ "fpsr",\ "fpcr",\ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define R0_REGNUM 0 /* Contains the constant zero */ #define SRP_REGNUM 1 /* Contains subroutine return pointer */ #define RV_REGNUM 2 /* Contains simple return values */ #define SRA_REGNUM 12 /* Contains address of struct return values */ #define SP_REGNUM 31 /* Contains address of top of stack */ /* Instruction pointer notes... On the m88100: * cr04 = sxip. On exception, contains the excepting pc (probably). On rte, is ignored. * cr05 = snip. On exception, contains the NPC (next pc). On rte, pc is loaded from here. * cr06 = sfip. On exception, contains the NNPC (next next pc). On rte, the NPC is loaded from here. * lower two bits of each are flag bits. Bit 1 is V means address is valid. If address is not valid, bit 0 is ignored. Otherwise, bit 0 is E and asks for an exception to be taken if this instruction is executed. On the m88110: * cr04 = exip. On exception, contains the address of the excepting pc (always). On rte, pc is loaded from here. Bit 0, aka the D bit, is a flag saying that the offending instruction was in a branch delay slot. If set, then cr05 contains the NPC. * cr05 = enip. On exception, if the instruction pointed to by cr04 was in a delay slot as indicated by the bit 0 of cr04, aka the D bit, the cr05 contains the NPC. Otherwise ignored. * cr06 is invalid */ /* Note that the Harris Unix kernels emulate the m88100's behavior on the m88110. */ #define SXIP_REGNUM 35 /* On m88100, Contains Shadow Execute Instruction Pointer. */ #define SNIP_REGNUM 36 /* On m88100, Contains Shadow Next Instruction Pointer. */ #define SFIP_REGNUM 37 /* On m88100, Contains Shadow Fetched Intruction pointer. */ #define EXIP_REGNUM 35 /* On m88110, Contains Exception Executing Instruction Pointer. */ #define ENIP_REGNUM 36 /* On m88110, Contains the Exception Next Instruction Pointer. */ #define PC_REGNUM SXIP_REGNUM /* Program Counter */ #define NPC_REGNUM SNIP_REGNUM /* Next Program Counter */ #define NNPC_REGNUM SFIP_REGNUM /* Next Next Program Counter */ #define PSR_REGNUM 32 /* Processor Status Register */ #define FPSR_REGNUM 33 /* Floating Point Status Register */ #define FPCR_REGNUM 34 /* Floating Point Control Register */ #define XFP_REGNUM 38 /* First Extended Float Register */ #define X0_REGNUM XFP_REGNUM /* Which also contains the constant zero */ /* This is rather a confusing lie. Our m88k port using a stack pointer value for the frame address. Hence, the frame address and the frame pointer are only indirectly related. The value of this macro is the register number fetched by the machine "independent" portions of gdb when they want to know about a frame address. Thus, we lie here and claim that FP_REGNUM is SP_REGNUM. */ #define FP_REGNUM SP_REGNUM /* Reg fetched to locate frame when pgm stops */ #define ACTUAL_FP_REGNUM 30 /* PSR status bit definitions. */ #define PSR_MODE 0x80000000 #define PSR_BYTE_ORDER 0x40000000 #define PSR_SERIAL_MODE 0x20000000 #define PSR_CARRY 0x10000000 #define PSR_SFU_DISABLE 0x000003f0 #define PSR_SFU1_DISABLE 0x00000008 #define PSR_MXM 0x00000004 #define PSR_IND 0x00000002 #define PSR_SFRZ 0x00000001 /* The following two comments come from the days prior to the m88110 port. The m88110 handles the instruction pointers differently. I do not know what any m88110 kernels do as the m88110 port I'm working with is for an embedded system. rich@cygnus.com 13-sept-93. */ /* BCS requires that the SXIP_REGNUM (or PC_REGNUM) contain the address of the next instr to be executed when a breakpoint occurs. Because the kernel gets the next instr (SNIP_REGNUM), the instr in SNIP needs to be put back into SFIP, and the instr in SXIP should be shifted to SNIP */ /* Are you sitting down? It turns out that the 88K BCS (binary compatibility standard) folks originally felt that the debugger should be responsible for backing up the IPs, not the kernel (as is usually done). Well, they have reversed their decision, and in future releases our kernel will be handling the backing up of the IPs. So, eventually, we won't need to do the SHIFT_INST_REGS stuff. But, for now, since there are 88K systems out there that do need the debugger to do the IP shifting, and since there will be systems where the kernel does the shifting, the code is a little more complex than perhaps it needs to be (we still go inside SHIFT_INST_REGS, and if the shifting hasn't occurred then gdb goes ahead and shifts). */ extern int target_is_m88110; #define SHIFT_INST_REGS() \ if (!target_is_m88110) \ { \ CORE_ADDR pc = read_register (PC_REGNUM); \ CORE_ADDR npc = read_register (NPC_REGNUM); \ if (pc != npc) \ { \ write_register (NNPC_REGNUM, npc); \ write_register (NPC_REGNUM, pc); \ } \ } /* Storing the following registers is a no-op. */ #define CANNOT_STORE_REGISTER(regno) (((regno) == R0_REGNUM) \ || ((regno) == X0_REGNUM)) /* Number of bytes of storage in the actual machine representation for register N. On the m88k, the general purpose registers are 4 bytes and the 88110 extended registers are 10 bytes. */ #define REGISTER_RAW_SIZE(N) ((N) < XFP_REGNUM ? 4 : 10) /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES ((GP_REGS * REGISTER_RAW_SIZE(0)) \ + (FP_REGS * REGISTER_RAW_SIZE(XFP_REGNUM))) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) (((N) * REGISTER_RAW_SIZE(0)) \ + ((N) >= XFP_REGNUM \ ? (((N) - XFP_REGNUM) \ * REGISTER_RAW_SIZE(XFP_REGNUM)) \ : 0)) /* Number of bytes of storage in the program's representation for register N. On the m88k, all registers are 4 bytes excepting the m88110 extended registers which are 8 byte doubles. */ #define REGISTER_VIRTUAL_SIZE(N) ((N) < XFP_REGNUM ? 4 : 8) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE (REGISTER_RAW_SIZE(XFP_REGNUM)) /* Largest value REGISTER_VIRTUAL_SIZE can have. Are FPS1, FPS2, FPR "virtual" regisers? */ #define MAX_REGISTER_VIRTUAL_SIZE (REGISTER_RAW_SIZE(XFP_REGNUM)) /* Nonzero if register N requires conversion from raw format to virtual format. */ #define REGISTER_CONVERTIBLE(N) ((N) >= XFP_REGNUM) #include "floatformat.h" /* Convert data from raw format for register REGNUM in buffer FROM to virtual format with type TYPE in buffer TO. */ #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \ { \ double val; \ floatformat_to_double (&floatformat_m88110_ext, (FROM), &val); \ store_floating ((TO), TYPE_LENGTH (TYPE), val); \ } /* Convert data from virtual format with type TYPE in buffer FROM to raw format for register REGNUM in buffer TO. */ #define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \ { \ double val = extract_floating ((FROM), TYPE_LENGTH (TYPE)); \ floatformat_from_double (&floatformat_m88110_ext, &val, (TO)); \ } /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ ((N) >= XFP_REGNUM \ ? builtin_type_double \ : ((N) == PC_REGNUM || (N) == FP_REGNUM || (N) == SP_REGNUM \ ? lookup_pointer_type (builtin_type_void) : builtin_type_int)) /* The 88k call/return conventions call for "small" values to be returned into consecutive registers starting from r2. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy ((VALBUF), &(((char *)REGBUF)[REGISTER_BYTE(RV_REGNUM)]), TYPE_LENGTH (TYPE)) #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (2*REGISTER_RAW_SIZE(0), (VALBUF), TYPE_LENGTH (TYPE)) /* In COFF, if PCC says a parameter is a short or a char, do not change it to int (it seems the convention is to change it). */ #define BELIEVE_PCC_PROMOTION 1 /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. However, if FRAME_CHAIN_VALID returns zero, it means the given frame is the outermost one and has no caller. */ extern CORE_ADDR frame_chain (); extern int frame_chain_valid (); extern int frameless_function_invocation (); #define FRAME_CHAIN(thisframe) \ frame_chain (thisframe) #define FRAMELESS_FUNCTION_INVOCATION(frame, fromleaf) \ fromleaf = frameless_function_invocation (frame) /* Define other aspects of the stack frame. */ #define FRAME_SAVED_PC(FRAME) \ frame_saved_pc (FRAME) extern CORE_ADDR frame_saved_pc (); #define FRAME_ARGS_ADDRESS(fi) \ frame_args_address (fi) extern CORE_ADDR frame_args_address (); #define FRAME_LOCALS_ADDRESS(fi) \ frame_locals_address (fi) extern CORE_ADDR frame_locals_address (); /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(numargs, fi) ((numargs) = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ /* On the 88k, parameter registers get stored into the so called "homing" area. This *always* happens when you compiled with GCC and use -g. Also, (with GCC and -g) the saving of the parameter register values always happens right within the function prologue code, so these register values can generally be relied upon to be already copied into their respective homing slots by the time you will normally try to look at them (we hope). Note that homing area stack slots are always at *positive* offsets from the frame pointer. Thus, the homing area stack slots for the parameter registers (passed values) for a given function are actually part of the frame area of the caller. This is unusual, but it should not present any special problems for GDB. Note also that on the 88k, we are only interested in finding the registers that might have been saved in memory. This is a subset of the whole set of registers because the standard calling sequence allows the called routine to clobber many registers. We could manage to locate values for all of the so called "preserved" registers (some of which may get saved within any particular frame) but that would require decoding all of the tdesc information. That would be nice information for GDB to have, but it is not strictly manditory if we can live without the ability to look at values within (or backup to) previous frames. */ struct frame_saved_regs; struct frame_info; void frame_find_saved_regs PARAMS((struct frame_info *fi, struct frame_saved_regs *fsr)); #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ frame_find_saved_regs (frame_info, &frame_saved_regs) #define POP_FRAME pop_frame () extern void pop_frame (); /* Call function stuff contributed by Kevin Buettner of Motorola. */ #define CALL_DUMMY_LOCATION AFTER_TEXT_END extern void m88k_push_dummy_frame(); #define PUSH_DUMMY_FRAME m88k_push_dummy_frame() #define CALL_DUMMY { \ 0x67ff00c0, /* 0: subu #sp,#sp,0xc0 */ \ 0x243f0004, /* 4: st #r1,#sp,0x4 */ \ 0x245f0008, /* 8: st #r2,#sp,0x8 */ \ 0x247f000c, /* c: st #r3,#sp,0xc */ \ 0x249f0010, /* 10: st #r4,#sp,0x10 */ \ 0x24bf0014, /* 14: st #r5,#sp,0x14 */ \ 0x24df0018, /* 18: st #r6,#sp,0x18 */ \ 0x24ff001c, /* 1c: st #r7,#sp,0x1c */ \ 0x251f0020, /* 20: st #r8,#sp,0x20 */ \ 0x253f0024, /* 24: st #r9,#sp,0x24 */ \ 0x255f0028, /* 28: st #r10,#sp,0x28 */ \ 0x257f002c, /* 2c: st #r11,#sp,0x2c */ \ 0x259f0030, /* 30: st #r12,#sp,0x30 */ \ 0x25bf0034, /* 34: st #r13,#sp,0x34 */ \ 0x25df0038, /* 38: st #r14,#sp,0x38 */ \ 0x25ff003c, /* 3c: st #r15,#sp,0x3c */ \ 0x261f0040, /* 40: st #r16,#sp,0x40 */ \ 0x263f0044, /* 44: st #r17,#sp,0x44 */ \ 0x265f0048, /* 48: st #r18,#sp,0x48 */ \ 0x267f004c, /* 4c: st #r19,#sp,0x4c */ \ 0x269f0050, /* 50: st #r20,#sp,0x50 */ \ 0x26bf0054, /* 54: st #r21,#sp,0x54 */ \ 0x26df0058, /* 58: st #r22,#sp,0x58 */ \ 0x26ff005c, /* 5c: st #r23,#sp,0x5c */ \ 0x271f0060, /* 60: st #r24,#sp,0x60 */ \ 0x273f0064, /* 64: st #r25,#sp,0x64 */ \ 0x275f0068, /* 68: st #r26,#sp,0x68 */ \ 0x277f006c, /* 6c: st #r27,#sp,0x6c */ \ 0x279f0070, /* 70: st #r28,#sp,0x70 */ \ 0x27bf0074, /* 74: st #r29,#sp,0x74 */ \ 0x27df0078, /* 78: st #r30,#sp,0x78 */ \ 0x63df0000, /* 7c: addu #r30,#sp,0x0 */ \ 0x145f0000, /* 80: ld #r2,#sp,0x0 */ \ 0x147f0004, /* 84: ld #r3,#sp,0x4 */ \ 0x149f0008, /* 88: ld #r4,#sp,0x8 */ \ 0x14bf000c, /* 8c: ld #r5,#sp,0xc */ \ 0x14df0010, /* 90: ld #r6,#sp,0x10 */ \ 0x14ff0014, /* 94: ld #r7,#sp,0x14 */ \ 0x151f0018, /* 98: ld #r8,#sp,0x18 */ \ 0x153f001c, /* 9c: ld #r9,#sp,0x1c */ \ 0x5c200000, /* a0: or.u #r1,#r0,0x0 */ \ 0x58210000, /* a4: or #r1,#r1,0x0 */ \ 0xf400c801, /* a8: jsr #r1 */ \ 0xf000d1ff /* ac: tb0 0x0,#r0,0x1ff */ \ } #define CALL_DUMMY_START_OFFSET 0x80 #define CALL_DUMMY_LENGTH 0xb0 /* FIXME: byteswapping. */ #define FIX_CALL_DUMMY(dummy, pc, fun, nargs, args, type, gcc_p) \ { \ *(unsigned long *)((char *) (dummy) + 0xa0) |= \ (((unsigned long) (fun)) >> 16); \ *(unsigned long *)((char *) (dummy) + 0xa4) |= \ (((unsigned long) (fun)) & 0xffff); \ pc = text_end; \ } #define STACK_ALIGN(addr) (((addr)+7) & -8) #define STORE_STRUCT_RETURN(addr, sp) \ write_register (SRA_REGNUM, (addr)) #define NEED_TEXT_START_END 1 /* According to the MC88100 RISC Microprocessor User's Manual, section 6.4.3.1.2: ... can be made to return to a particular instruction by placing a valid instruction address in the SNIP and the next sequential instruction address in the SFIP (with V bits set and E bits clear). The rte resumes execution at the instruction pointed to by the SNIP, then the SFIP. The E bit is the least significant bit (bit 0). The V (valid) bit is bit 1. This is why we logical or 2 into the values we are writing below. It turns out that SXIP plays no role when returning from an exception so nothing special has to be done with it. We could even (presumably) give it a totally bogus value. -- Kevin Buettner */ #define TARGET_WRITE_PC(val, pid) { \ write_register_pid(SXIP_REGNUM, (long) val, pid); \ write_register_pid(SNIP_REGNUM, (long) val | 2, pid); \ write_register_pid(SFIP_REGNUM, ((long) val | 2) + 4, pid); \ } gdb-4.13/gdb/config/m88k/xm-cxux.h 666 34562 1752 3710 5612316726 15120 0ustar fnfcygnus/* Host-machine dependent parameters for Motorola 88000, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m88k/xm-m88k.h" #define HOST_BYTE_ORDER BIG_ENDIAN #if !defined (USG) #define USG 1 #endif /* Really native, but as long as only native files check this macro we are OK. */ #define NO_PTRACE_H #include #define x_foff _x_x._x_offset #define x_fname _x_name #define USER ptrace_user /* #define _BSD_WAIT_FLAVOR */ #define HAVE_TERMIO #ifndef USIZE #define USIZE 2048 #ifndef UPAGES #define UPAGES USIZE #endif #endif #define NBPG NBPC /* Get rid of any system-imposed stack limit if possible. */ #define SET_STACK_LIMIT_HUGE /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ /* Since registers r0 through r31 are stored directly in the struct ptrace_user, (for m88k BCS) the ptrace_user offsets are sufficient and KERNEL_U_ADDRESS can be 0 */ #define KERNEL_U_ADDR 0 /* The CX/UX C compiler doesn't permit complex expressions as array bounds. */ #define STRICT_ANSI_BOUNDS /* Enable breakpoint hit count reporting */ #define BP_HIT_COUNT #define CORE_REGISTER_ADDR(regno, reg_ptr) \ m88k_harris_core_register_addr(regno, reg_ptr) gdb-4.13/gdb/config/m88k/xm-delta88.h 666 34562 1752 2716 5441310244 15374 0ustar fnfcygnus/* Host machine description for Motorola Delta 88 system, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m88k/xm-m88k.h" #if !defined (USG) #define USG 1 #endif #include #include #define HAVE_TERMIO /*#define USIZE 2048*/ /*#define NBPG NBPC*/ /* Might be defined in . I suspect this define was a relic from before when BFD did core files. */ /* #define UPAGES USIZE */ /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ /* Since registers r0 through r31 are stored directly in the struct ptrace_user, (for m88k BCS) the ptrace_user offsets are sufficient and KERNEL_U_ADDRESS can be 0 */ #define KERNEL_U_ADDR 0 gdb-4.13/gdb/config/m88k/xm-delta88v4.h 666 34562 1752 1565 5441303064 15651 0ustar fnfcygnus/* Host machine description for Motorola Delta 88 box, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m88k/xm-m88k.h" #include "xm-sysv4.h" gdb-4.13/gdb/config/m88k/xm-dgux.h 666 34562 1752 3364 5565224160 15102 0ustar fnfcygnus/* Host-machine dependent parameters for Motorola 88000, for GDB. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "m88k/xm-m88k.h" #define HOST_BYTE_ORDER BIG_ENDIAN #if !defined (USG) #define USG 1 #endif /* Really native, but as long as only native files check this macro we are OK. */ #define NO_PTRACE_H #include #ifdef __GNUC__ #define memcpy __builtin_memcpy /* gcc doesn't have this, at least not gcc 1.92. */ /* #define memset __builtin_memset */ #define strcmp __builtin_strcmp #endif #define x_foff _x_x._x_offset #define x_fname _x_name #define USER ptrace_user #define _BSD_WAIT_FLAVOR #define HAVE_TERMIO #ifndef USIZE #define USIZE 2048 #endif #define NBPG NBPC #define UPAGES USIZE /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ /* Since registers r0 through r31 are stored directly in the struct ptrace_user, (for m88k BCS) the ptrace_user offsets are sufficient and KERNEL_U_ADDRESS can be 0 */ #define KERNEL_U_ADDR 0 gdb-4.13/gdb/config/m88k/xm-m88k.h 666 34562 1752 1513 5457043077 14722 0ustar fnfcygnus/* Host-machine dependent parameters for Motorola 88000, for GDB. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN gdb-4.13/gdb/config/mips/ 777 34562 1752 0 5623250621 13427 5ustar fnfcygnusgdb-4.13/gdb/config/mips/bigmips.mt 666 34562 1752 165 5353462343 15473 0ustar fnfcygnus# Target: Big-endian MIPS machine such as Sony News TDEPFILES= mips-pinsn.o mips-tdep.o exec.o TM_FILE= tm-bigmips.h gdb-4.13/gdb/config/mips/bigmips64.mt 666 34562 1752 167 5531014022 15630 0ustar fnfcygnus# Target: Big-endian MIPS machine such as Sony News TDEPFILES= mips-pinsn.o mips-tdep.o exec.o TM_FILE= tm-bigmips64.h gdb-4.13/gdb/config/mips/decstation.mh 666 34562 1752 577 5412412041 16153 0ustar fnfcygnus# Host: Little-endian MIPS machine such as DECstation. XDEPFILES= XM_FILE= xm-mips.h NAT_FILE= nm-mips.h NATDEPFILES= infptrace.o inftarg.o corelow.o mips-nat.o fork-child.o # We can't use MMALLOC because the DECstation RPC library can't cope # with a malloc(0) that returns 0. Besides, it's useless on a machine # without a real mmap(). MMALLOC = MMALLOC_DISABLE = -DNO_MMALLOC gdb-4.13/gdb/config/mips/decstation.mt 666 34562 1752 167 5353462350 16176 0ustar fnfcygnus# Target: Little-endian MIPS machine such as DECstation. TDEPFILES= mips-pinsn.o mips-tdep.o exec.o TM_FILE= tm-mips.h gdb-4.13/gdb/config/mips/idt.mt 666 34562 1752 153 5501260343 14605 0ustar fnfcygnus# Target: Big-endian IDT board. TDEPFILES= mips-pinsn.o mips-tdep.o exec.o remote-mips.o TM_FILE= tm-idt.h gdb-4.13/gdb/config/mips/idt64.mt 666 34562 1752 155 5531014024 14755 0ustar fnfcygnus# Target: Big-endian IDT board. TDEPFILES= mips-pinsn.o mips-tdep.o exec.o remote-mips.o TM_FILE= tm-idt64.h gdb-4.13/gdb/config/mips/idtl.mt 666 34562 1752 154 5501260344 14763 0ustar fnfcygnus# Target: Big-endian IDT board. TDEPFILES= mips-pinsn.o mips-tdep.o exec.o remote-mips.o TM_FILE= tm-idtl.h gdb-4.13/gdb/config/mips/idtl64.mt 666 34562 1752 156 5531014025 15133 0ustar fnfcygnus# Target: Big-endian IDT board. TDEPFILES= mips-pinsn.o mips-tdep.o exec.o remote-mips.o TM_FILE= tm-idtl64.h gdb-4.13/gdb/config/mips/irix3.mh 666 34562 1752 273 5412412045 15051 0ustar fnfcygnus# Host: SGI Iris running irix 3.x XDEPFILES= XM_FILE= xm-irix3.h NAT_FILE= nm-irix3.h NATDEPFILES= fork-child.o corelow.o infptrace.o inftarg.o mips-nat.o MUNCH_DEFINE=-B XM_CLIBS=-lbsd gdb-4.13/gdb/config/mips/irix3.mt 666 34562 1752 122 5353462357 15075 0ustar fnfcygnus# Target: SGI mips TDEPFILES= mips-pinsn.o mips-tdep.o exec.o TM_FILE= tm-irix3.h gdb-4.13/gdb/config/mips/irix4.mh 666 34562 1752 473 5477736015 15075 0ustar fnfcygnus# Host: SGI Iris running irix 4.x XDEPFILES= ser-tcp.o XM_FILE= xm-irix4.h NAT_FILE= nm-irix4.h NATDEPFILES= fork-child.o procfs.o irix4-nat.o corelow.o MUNCH_DEFINE=-B XM_CLIBS=-lbsd -lsun INSTALL = cp # use cc in K&R mode, bump up some static compiler tables. CC = cc -cckr -Wf,-XNg1500 -Wf,-XNk1000 -Wf,-XNh1100 gdb-4.13/gdb/config/mips/irix5.mh 666 34562 1752 313 5500663763 15063 0ustar fnfcygnus# Host: SGI Iris running irix 5.x XDEPFILES= ser-tcp.o XM_FILE= xm-irix5.h NAT_FILE= nm-irix5.h NATDEPFILES= fork-child.o procfs.o irix5-nat.o corelow.o MUNCH_DEFINE=-B XM_CLIBS=-lbsd -lsun INSTALL = cp gdb-4.13/gdb/config/mips/irix5.mt 666 34562 1752 141 5500663764 15077 0ustar fnfcygnus# Target: SGI mips running Irix 5 TDEPFILES= mips-pinsn.o mips-tdep.o exec.o TM_FILE= tm-irix5.h gdb-4.13/gdb/config/mips/littlemips.mh 666 34562 1752 214 5353462362 16207 0ustar fnfcygnus# Host: Little-endian MIPS machine such as DECstation. XDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o XM_FILE= xm-mips.h gdb-4.13/gdb/config/mips/littlemips.mt 666 34562 1752 167 5353462363 16233 0ustar fnfcygnus# Target: Little-endian MIPS machine such as DECstation. TDEPFILES= mips-pinsn.o mips-tdep.o exec.o TM_FILE= tm-mips.h gdb-4.13/gdb/config/mips/mipsel64.mt 666 34562 1752 171 5531160770 15476 0ustar fnfcygnus# Target: Little-endian MIPS machine such as DECstation. TDEPFILES= mips-pinsn.o mips-tdep.o exec.o TM_FILE= tm-mips64.h gdb-4.13/gdb/config/mips/mipsm3.mh 666 34562 1752 412 5525270530 15224 0ustar fnfcygnus# Host: Little endian MIPS machine such as pmax # running Mach 3.0 operating system XDEPFILES= coredep.o NATDEPFILES= mipsm3-nat.o m3-nat.o XM_FILE= xm-mipsm3.h NAT_FILE= nm-m3.h # Don't use the mmalloc library in Mach 3. MMALLOC = MMALLOC_DISABLE = -DNO_MMALLOC gdb-4.13/gdb/config/mips/mipsm3.mt 666 34562 1752 241 5463757600 15251 0ustar fnfcygnus# Target: Little-endian MIPS machine such as pmax # running Mach 3.0 operating system TDEPFILES= mips-pinsn.o mips-tdep.o mipsread.o exec.o TM_FILE= tm-mipsm3.h gdb-4.13/gdb/config/mips/mipsv4.mh 666 34562 1752 237 5551123526 15244 0ustar fnfcygnus# Host: Mips running SVR4 XM_FILE= xm-mipsv4.h NAT_FILE= nm-sysv4.h NATDEPFILES= fork-child.o procfs.o mipsv4-nat.o corelow.o core-svr4.o solib.o INSTALL = cp gdb-4.13/gdb/config/mips/mipsv4.mt 666 34562 1752 134 5551123531 15250 0ustar fnfcygnus# Target: MIPS running SVR4 TDEPFILES= mips-pinsn.o mips-tdep.o exec.o TM_FILE= tm-mipsv4.h gdb-4.13/gdb/config/mips/news-mips.mh 666 34562 1752 250 5453417515 15744 0ustar fnfcygnus# Host: Big-endian MIPS machine such as Sony News NATDEPFILES= infptrace.o inftarg.o fork-child.o corelow.o mips-nat.o XM_FILE= xm-news-mips.h NAT_FILE= nm-news-mips.h gdb-4.13/gdb/config/mips/nm-irix3.h 666 34562 1752 2665 5415152012 15331 0ustar fnfcygnus/* Definitions for SGI irix3 native support. Copyright 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Don't need special routines for Irix v3 -- we can use infptrace.c */ #undef FETCH_INFERIOR_REGISTERS #define U_REGS_OFFSET 0 /* Figure out where the longjmp will land. We expect that we have just entered longjmp and haven't yet setup the stack frame, so the args are still in the argument regs. a0 (CALL_ARG0) points at the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) /* Is this really true or is this just a leftover from a DECstation config file? */ #define ONE_PROCESS_WRITETEXT gdb-4.13/gdb/config/mips/nm-irix4.h 666 34562 1752 3714 5575740136 15347 0ustar fnfcygnus/* Definitions for native support of irix4. Copyright (C) 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Let's use /debug instead of all this dangerous mucking about * with ptrace(), which seems *extremely* fragile, anyway. */ #define USE_PROC_FS #define PROC_NAME_FMT "/debug/%d" /* Don't need special routines for the SGI -- we can use infptrace.c */ #undef FETCH_INFERIOR_REGISTERS #define U_REGS_OFFSET 0 /* Is this really true or is this just a leftover from a DECstation config file? */ #define ONE_PROCESS_WRITETEXT /* Temporary new watchpoint stuff */ #define TARGET_CAN_USE_HARDWARE_WATCHPOINT(type, cnt, ot) \ ((type) == bp_hardware_watchpoint) /* When a hardware watchpoint fires off the PC will be left at the instruction which caused the watchpoint. It will be necessary for GDB to step over the watchpoint. */ #define STOPPED_BY_WATCHPOINT(W) \ procfs_stopped_by_watchpoint(inferior_pid) #define HAVE_NONSTEPPABLE_WATCHPOINT /* Use these macros for watchpoint insertion/deletion. */ /* type can be 0: write watch, 1: read watch, 2: access watch (read/write) */ #define target_insert_watchpoint(addr, len, type) procfs_set_watchpoint (inferior_pid, addr, len, 2) #define target_remove_watchpoint(addr, len, type) procfs_set_watchpoint (inferior_pid, addr, 0, 0) gdb-4.13/gdb/config/mips/nm-irix5.h 666 34562 1752 1452 5500663765 15345 0ustar fnfcygnus/* Definitions for native support of irix5. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "nm-sysv4.h" gdb-4.13/gdb/config/mips/nm-mips.h 666 34562 1752 2636 5353462367 15263 0ustar fnfcygnus/* Definitions for GDB on mips. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. Contributed by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin and by Alessandro Forin(af@cs.cmu.edu) at CMU This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS /* Figure out where the longjmp will land. We expect that we have just entered longjmp and haven't yet setup the stack frame, so the args are still in the argument regs. a0 (CALL_ARG0) points at the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) gdb-4.13/gdb/config/mips/nm-news-mips.h 666 34562 1752 2514 5453417516 16225 0ustar fnfcygnus/* Definitions to make GDB run on a mips box under 4.3bsd. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. Contributed by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin and by Alessandro Forin(af@cs.cmu.edu) at CMU This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Needed for RISC NEWS core files. */ #include #include #define KERNEL_U_ADDR UADDR #define REGISTER_U_ADDR(addr, blockend, regno) \ if (regno < 38) addr = (NBPG*UPAGES) + (regno - 38)*sizeof(int);\ else addr = 0; /* ..somewhere in the pcb */ /* Kernel is a bit tenacious about sharing text segments, disallowing bpts. */ #define ONE_PROCESS_WRITETEXT #include "mips/nm-mips.h" gdb-4.13/gdb/config/mips/nm-riscos.h 666 34562 1752 4572 5416715557 15620 0ustar fnfcygnus/* 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* MIPS running RISC/os 4.52C. */ #define PCB_OFFSET(FIELD) ((int)&((struct user*)0)->u_pcb.FIELD) /* RISC/os 5.0 defines this in machparam.h. */ #include #define NBPG BSD43_NBPG #define UPAGES BSD43_UPAGES /* Where is this used? I don't see any uses in mips-nat.c, and I don't think the uses in infptrace.c are used if FETCH_INFERIOR_REGISTERS is defined. Does the compiler react badly to "extern CORE_ADDR kernel_u_addr" (even if never referenced)? */ #define KERNEL_U_ADDR BSD43_UADDR #define REGISTER_U_ADDR(addr, blockend, regno) \ if (regno < FP0_REGNUM) \ addr = UPAGES*NBPG-EF_SIZE+4*((regno)+EF_AT-1); \ else if (regno < PC_REGNUM) \ addr = PCB_OFFSET(pcb_fpregs[0]) + 4*(regno-FP0_REGNUM); \ else if (regno == PS_REGNUM) \ addr = UPAGES*NBPG-EF_SIZE+4*EF_SR; \ else if (regno == BADVADDR_REGNUM) \ addr = UPAGES*NBPG-EF_SIZE+4*EF_BADVADDR; \ else if (regno == LO_REGNUM) \ addr = UPAGES*NBPG-EF_SIZE+4*EF_MDLO; \ else if (regno == HI_REGNUM) \ addr = UPAGES*NBPG-EF_SIZE+4*EF_MDHI; \ else if (regno == CAUSE_REGNUM) \ addr = UPAGES*NBPG-EF_SIZE+4*EF_CAUSE; \ else if (regno == PC_REGNUM) \ addr = UPAGES*NBPG-EF_SIZE+4*EF_EPC; \ else if (regno < FCRCS_REGNUM) \ addr = PCB_OFFSET(pcb_fpregs[0]) + 4*(regno-FP0_REGNUM); \ else if (regno == FCRCS_REGNUM) \ addr = PCB_OFFSET(pcb_fpc_csr); \ else if (regno == FCRIR_REGNUM) \ addr = PCB_OFFSET(pcb_fpc_eir); \ else \ addr = 0; #include "mips/nm-mips.h" /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS gdb-4.13/gdb/config/mips/riscos.mh 666 34562 1752 1013 5414650137 15336 0ustar fnfcygnusNATDEPFILES= infptrace.o inftarg.o fork-child.o corelow.o mips-nat.o NAT_FILE= nm-riscos.h XM_FILE= xm-riscos.h REGEX= regex.o REGEX1= regex.o MUNCH_DEFINE=-B MH_CFLAGS=-Wf,-XNh10000 # ptrace(2) apparently has problems in the BSD environment. No workaround is # known except to select the sysv environment. Could we use /proc instead? # These "sysv environments" and "bsd environments" often end up being a pain. # # This is not part of CFLAGS because perhaps not all C compilers have this # option. CC= cc -systype sysv gdb-4.13/gdb/config/mips/tm-bigmips.h 666 34562 1752 1452 5353462371 15741 0ustar fnfcygnus/* Copyright (C) 1990 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_BYTE_ORDER BIG_ENDIAN #include "mips/tm-mips.h" gdb-4.13/gdb/config/mips/tm-bigmips64.h 666 34562 1752 2317 5601653371 16112 0ustar fnfcygnus/* Target machine parameters for MIPS r4000 Copyright 1994 Free Software Foundation, Inc. Contributed by Ian Lance Taylor (ian@cygnus.com) This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define GDB_TARGET_IS_MIPS64 /* force LONGEST to be long long in gdb */ #define FORCE_LONG_LONG /* Use eight byte registers. */ #define MIPS_REGSIZE 8 /* Load double words in CALL_DUMMY. */ #define OP_LDFPR 065 /* ldc1 */ #define OP_LDGPR 067 /* ld */ /* Get the basic MIPS definitions. Default to big endian, since that is how the chips are mostly used. */ #include "tm-bigmips.h" gdb-4.13/gdb/config/mips/tm-idt.h 666 34562 1752 1407 5525000751 15056 0ustar fnfcygnus/* Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "mips/tm-bigmips.h" gdb-4.13/gdb/config/mips/tm-idt64.h 666 34562 1752 1715 5531014032 15224 0ustar fnfcygnus/* Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "mips/tm-bigmips64.h" /* The IDT board uses an unusual breakpoint value, and sometimes gets confused when it sees the usual MIPS breakpoint instruction. */ #undef BREAKPOINT #define BREAKPOINT {0, 0, 0x0a, 0x0d} gdb-4.13/gdb/config/mips/tm-idtl.h 666 34562 1752 1404 5525000753 15231 0ustar fnfcygnus/* Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "mips/tm-mips.h" gdb-4.13/gdb/config/mips/tm-idtl64.h 666 34562 1752 1712 5531014034 15377 0ustar fnfcygnus/* Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "mips/tm-mips64.h" /* The IDT board uses an unusual breakpoint value, and sometimes gets confused when it sees the usual MIPS breakpoint instruction. */ #undef BREAKPOINT #define BREAKPOINT {0x0d, 0x0a, 0, 0} gdb-4.13/gdb/config/mips/tm-irix3.h 666 34562 1752 5614 5377401013 15341 0ustar fnfcygnus/* Target machine description for SGI Iris under Irix, for GDB. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "mips/tm-bigmips.h" /* SGI's assembler doesn't grok dollar signs in identifiers. So we use dots instead. This item must be coordinated with G++. */ #undef CPLUS_MARKER #define CPLUS_MARKER '.' /* Redefine register numbers for SGI. */ #undef NUM_REGS #undef REGISTER_NAMES #undef FP0_REGNUM #undef PC_REGNUM #undef PS_REGNUM #undef HI_REGNUM #undef LO_REGNUM #undef FCRCS_REGNUM #undef FCRIR_REGNUM /* Number of machine registers */ #define NUM_REGS 71 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES \ { "zero", "at", "v0", "v1", "a0", "a1", "a2", "a3", \ "t0", "t1", "t2", "t3", "t4", "t5", "t6", "t7", \ "s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7", \ "t8", "t9", "k0", "k1", "gp", "sp", "fp", "ra", \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", \ "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",\ "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31",\ "pc", "cause", "bad", "hi", "lo", "fsr", "fir" \ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define FP0_REGNUM 32 /* Floating point register 0 (single float) */ #define PC_REGNUM 64 /* Contains program counter */ #define PS_REGNUM 65 /* Contains processor status */ #define HI_REGNUM 67 /* Multiple/divide temp */ #define LO_REGNUM 68 /* ... */ #define FCRCS_REGNUM 69 /* FP control/status */ #define FCRIR_REGNUM 70 /* FP implementation/revision */ /* Offsets for register values in _sigtramp frame. sigcontext is immediately above the _sigtramp frame on Irix. */ #define SIGFRAME_BASE 0x0 #define SIGFRAME_PC_OFF (SIGFRAME_BASE + 2 * 4) #define SIGFRAME_REGSAVE_OFF (SIGFRAME_BASE + 3 * 4) gdb-4.13/gdb/config/mips/tm-irix5.h 666 34562 1752 3362 5621013223 15333 0ustar fnfcygnus/* Target machine description for SGI Iris under Irix 5, for GDB. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "mips/tm-irix3.h" /* When calling functions on Irix 5 (or any MIPS SVR4 ABI compliant platform) $25 must hold the function address. Dest_Reg is a macro used in CALL_DUMMY in tm-mips.h. */ #undef Dest_Reg #define Dest_Reg 25 /* The signal handler trampoline is called _sigtramp. */ #undef IN_SIGTRAMP #define IN_SIGTRAMP(pc, name) ((name) && STREQ ("_sigtramp", name)) /* Irix 5 saves a full 64 bits for each register. We skip 2 * 4 to get to the saved PC (the register mask and status register are both 32 bits) and then another 4 to get to the lower 32 bits. We skip the same 4 bytes, plus the 8 bytes for the PC to get to the registers, and add another 4 to get to the lower 32 bits. We skip 8 bytes per register. */ #undef SIGFRAME_PC_OFF #define SIGFRAME_PC_OFF (SIGFRAME_BASE + 2 * 4 + 4) #undef SIGFRAME_REGSAVE_OFF #define SIGFRAME_REGSAVE_OFF (SIGFRAME_BASE + 2 * 4 + 8 + 4) #define SIGFRAME_REG_SIZE 8 gdb-4.13/gdb/config/mips/tm-mips.h 666 34562 1752 42110 5544440220 15262 0ustar fnfcygnus/* Definitions to make GDB run on a mips box under 4.3bsd. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by Per Bothner (bothner@cs.wisc.edu) at U.Wisconsin and by Alessandro Forin (af@cs.cmu.edu) at CMU.. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "coff/sym.h" /* Needed for PDR below. */ #include "coff/symconst.h" #if !defined (TARGET_BYTE_ORDER) #define TARGET_BYTE_ORDER LITTLE_ENDIAN #endif /* Floating point is IEEE compliant */ #define IEEE_FLOAT /* Some MIPS boards are provided both with and without a floating point coprocessor; we provide a user settable variable to tell gdb whether there is one or not. */ extern int mips_fpu; /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(pc) pc = mips_skip_prologue (pc, 0) extern CORE_ADDR mips_skip_prologue PARAMS ((CORE_ADDR addr, int lenient)); /* Return non-zero if PC points to an instruction which will cause a step to execute both the instruction at PC and an instruction at PC+4. */ #define STEP_SKIPS_DELAY(pc) (mips_step_skips_delay (pc)) /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) read_register(RA_REGNUM) /* Are we currently handling a signal */ extern int in_sigtramp PARAMS ((CORE_ADDR, char *)); #define IN_SIGTRAMP(pc, name) in_sigtramp(pc, name) /* Stack grows downward. */ #define INNER_THAN < #define BIG_ENDIAN 4321 #if TARGET_BYTE_ORDER == BIG_ENDIAN #define BREAKPOINT {0, 0x5, 0, 0xd} #else #define BREAKPOINT {0xd, 0, 0x5, 0} #endif /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. "j ra" on mips. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 4) == 0x3e00008) /* This is taken care of in print_floating [IEEE_FLOAT]. */ #define INVALID_FLOAT(p,l) 0 /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* The size of a register. This is predefined in tm-mips64.h. We can't use REGISTER_SIZE because that is used for various other things. */ #ifndef MIPS_REGSIZE #define MIPS_REGSIZE 4 #endif /* Number of machine registers */ #define NUM_REGS 80 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES \ { "zero", "at", "v0", "v1", "a0", "a1", "a2", "a3", \ "t0", "t1", "t2", "t3", "t4", "t5", "t6", "t7", \ "s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7", \ "t8", "t9", "k0", "k1", "gp", "sp", "s8", "ra", \ "sr", "lo", "hi", "bad", "cause","pc", \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", \ "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",\ "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31",\ "fsr", "fir", "fp", "inx", "rand", "tlblo","ctxt", "tlbhi",\ "epc", "prid"\ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define ZERO_REGNUM 0 /* read-only register, always 0 */ #define V0_REGNUM 2 /* Function integer return value */ #define A0_REGNUM 4 /* Loc of first arg during a subr call */ #define SP_REGNUM 29 /* Contains address of top of stack */ #define RA_REGNUM 31 /* Contains return address value */ #define PS_REGNUM 32 /* Contains processor status */ #define HI_REGNUM 34 /* Multiple/divide temp */ #define LO_REGNUM 33 /* ... */ #define BADVADDR_REGNUM 35 /* bad vaddr for addressing exception */ #define CAUSE_REGNUM 36 /* describes last exception */ #define PC_REGNUM 37 /* Contains program counter */ #define FP0_REGNUM 38 /* Floating point register 0 (single float) */ #define FCRCS_REGNUM 70 /* FP control/status */ #define FCRIR_REGNUM 71 /* FP implementation/revision */ #define FP_REGNUM 72 /* Pseudo register that contains true address of executing stack frame */ #define FIRST_EMBED_REGNUM 73 /* First supervisor register for embedded use */ #define LAST_EMBED_REGNUM 79 /* Last one */ /* Define DO_REGISTERS_INFO() to do machine-specific formatting of register dumps. */ #define DO_REGISTERS_INFO(_regnum, fp) mips_do_registers_info(_regnum, fp) /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (NUM_REGS*MIPS_REGSIZE) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N) * MIPS_REGSIZE) /* Number of bytes of storage in the actual machine representation for register N. On mips, all regs are the same size. */ #define REGISTER_RAW_SIZE(N) MIPS_REGSIZE /* Number of bytes of storage in the program's representation for register N. On mips, all regs are the same size. */ #define REGISTER_VIRTUAL_SIZE(N) MIPS_REGSIZE /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 8 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Return the GDB type object for the "standard" data type of data in register N. */ #ifndef REGISTER_VIRTUAL_TYPE #define REGISTER_VIRTUAL_TYPE(N) \ (((N) >= FP0_REGNUM && (N) < FP0_REGNUM+32) \ ? builtin_type_float : builtin_type_int) #endif #if HOST_BYTE_ORDER == BIG_ENDIAN /* All mips targets store doubles in a register pair with the least significant register in the lower numbered register. If the host is big endian, double register values need conversion between memory and register formats. */ #define REGISTER_CONVERT_TO_TYPE(n, type, buffer) \ do {if ((n) >= FP0_REGNUM && (n) < FP0_REGNUM + 32 && \ TYPE_CODE(type) == TYPE_CODE_FLT && TYPE_LENGTH(type) == 8) { \ char __temp[4]; \ memcpy (__temp, ((char *)(buffer))+4, 4); \ memcpy (((char *)(buffer))+4, (buffer), 4); \ memcpy (((char *)(buffer)), __temp, 4); }} while (0) #define REGISTER_CONVERT_FROM_TYPE(n, type, buffer) \ do {if ((n) >= FP0_REGNUM && (n) < FP0_REGNUM + 32 && \ TYPE_CODE(type) == TYPE_CODE_FLT && TYPE_LENGTH(type) == 8) { \ char __temp[4]; \ memcpy (__temp, ((char *)(buffer))+4, 4); \ memcpy (((char *)(buffer))+4, (buffer), 4); \ memcpy (((char *)(buffer)), __temp, 4); }} while (0) #endif /* Store the address of the place in which to copy the structure the subroutine will return. Handled by mips_push_arguments. */ #define STORE_STRUCT_RETURN(addr, sp) /**/ /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. XXX floats */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ mips_extract_return_value(TYPE, REGBUF, VALBUF) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ mips_store_return_value(TYPE, VALBUF) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ /* The address is passed in a0 upon entry to the function, but when the function exits, the compiler has copied the value to v0. This convention is specified by the System V ABI, so I think we can rely on it. */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ (extract_address (REGBUF + REGISTER_BYTE (V0_REGNUM), \ REGISTER_RAW_SIZE (V0_REGNUM))) /* Structures are returned by ref in extra arg0 */ #define USE_STRUCT_CONVENTION(gcc_p, type) 1 /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ #define FRAME_CHAIN(thisframe) (FRAME_ADDR)mips_frame_chain(thisframe) /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ /* We handle this differently for mips, and maybe we should not */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) {(FRAMELESS) = 0;} /* Saved Pc. */ #define FRAME_SAVED_PC(FRAME) (mips_frame_saved_pc(FRAME)) #define FRAME_ARGS_ADDRESS(fi) (fi)->frame #define FRAME_LOCALS_ADDRESS(fi) (fi)->frame /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(num, fi) (num = mips_frame_num_args(fi)) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ do { \ if ((frame_info)->saved_regs == NULL) \ mips_find_saved_regs (frame_info); \ (frame_saved_regs) = *(frame_info)->saved_regs; \ (frame_saved_regs).regs[SP_REGNUM] = (frame_info)->frame; \ } while (0) /* Things needed for making the inferior call functions. */ /* Stack has strict alignment. However, use PUSH_ARGUMENTS to take care of it. */ /*#define STACK_ALIGN(addr) (((addr)+3)&~3)*/ #define PUSH_ARGUMENTS(nargs, args, sp, struct_return, struct_addr) \ sp = mips_push_arguments(nargs, args, sp, struct_return, struct_addr) /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME mips_push_dummy_frame() /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME mips_pop_frame() #define MK_OP(op,rs,rt,offset) (((op)<<26)|((rs)<<21)|((rt)<<16)|(offset)) #ifndef OP_LDFPR #define OP_LDFPR 061 /* lwc1 */ #endif #ifndef OP_LDGPR #define OP_LDGPR 043 /* lw */ #endif #define CALL_DUMMY_SIZE (16*4) #define Dest_Reg 2 #define CALL_DUMMY {\ MK_OP(0,RA_REGNUM,0,8), /* jr $ra # Fake ABOUT_TO_RETURN ...*/\ 0, /* nop # ... to stop raw backtrace*/\ 0x27bd0000, /* addu sp,?0 # Pseudo prologue */\ /* Start here; reload FP regs, then GP regs: */\ MK_OP(OP_LDFPR,SP_REGNUM,12,0 ), /* l[wd]c1 $f12,0(sp) */\ MK_OP(OP_LDFPR,SP_REGNUM,13, MIPS_REGSIZE), /* l[wd]c1 $f13,{4,8}(sp) */\ MK_OP(OP_LDFPR,SP_REGNUM,14,2*MIPS_REGSIZE), /* l[wd]c1 $f14,{8,16}(sp) */\ MK_OP(OP_LDFPR,SP_REGNUM,15,3*MIPS_REGSIZE), /* l[wd]c1 $f15,{12,24}(sp) */\ MK_OP(OP_LDGPR,SP_REGNUM, 4,0 ), /* l[wd] $r4,0(sp) */\ MK_OP(OP_LDGPR,SP_REGNUM, 5, MIPS_REGSIZE), /* l[wd] $r5,{4,8}(sp) */\ MK_OP(OP_LDGPR,SP_REGNUM, 6,2*MIPS_REGSIZE), /* l[wd] $r6,{8,16}(sp) */\ MK_OP(OP_LDGPR,SP_REGNUM, 7,3*MIPS_REGSIZE), /* l[wd] $r7,{12,24}(sp) */\ (017<<26)| (Dest_Reg << 16), /* lui $r31,*/\ MK_OP(13,Dest_Reg,Dest_Reg,0), /* ori $r31,$r31,*/ \ (Dest_Reg<<21) | (31<<11) | 9, /* jalr $r31 */\ MK_OP(OP_LDGPR,SP_REGNUM, 7,3*MIPS_REGSIZE), /* l[wd] $r7,{12,24}(sp) */\ 0x5000d, /* bpt */\ } #define CALL_DUMMY_START_OFFSET 12 #define CALL_DUMMY_BREAKPOINT_OFFSET (CALL_DUMMY_START_OFFSET + (12 * 4)) /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #if TARGET_BYTE_ORDER == BIG_ENDIAN && ! defined (GDB_TARGET_IS_MIPS64) /* For big endian mips machines we need to switch the order of the words with a floating-point value (it was already coerced to a double by mips_push_arguments). */ #define FIX_CALL_DUMMY(dummyname, start_sp, fun, nargs, args, rettype, gcc_p) \ do { \ ((int*)(dummyname))[11] |= ((unsigned long)(fun)) >> 16; \ ((int*)(dummyname))[12] |= (unsigned short)(fun); \ if (! mips_fpu) { \ ((int *) (dummyname))[3] = 0; ((int *) (dummyname))[4] = 0; \ ((int *) (dummyname))[5] = 0; ((int *) (dummyname))[6] = 0; \ } else { \ if (nargs > 0 && \ TYPE_CODE(VALUE_TYPE(args[0])) == TYPE_CODE_FLT) { \ if (TYPE_LENGTH(VALUE_TYPE(args[0])) > 8) \ error ("Can't pass floating point value of more than 8 bytes to a function"); \ ((int *) (dummyname))[3] = MK_OP(OP_LDFPR,SP_REGNUM,12,4); \ ((int *) (dummyname))[4] = MK_OP(OP_LDFPR,SP_REGNUM,13,0); \ } \ if (nargs > 1 && \ TYPE_CODE(VALUE_TYPE(args[1])) == TYPE_CODE_FLT) { \ if (TYPE_LENGTH(VALUE_TYPE(args[1])) > 8) \ error ("Can't pass floating point value of more than 8 bytes to a function"); \ ((int *) (dummyname))[5] = MK_OP(OP_LDFPR,SP_REGNUM,14,12); \ ((int *) (dummyname))[6] = MK_OP(OP_LDFPR,SP_REGNUM,15,8); \ } \ } \ } while (0) #else #define FIX_CALL_DUMMY(dummyname, start_sp, fun, nargs, args, rettype, gcc_p)\ do \ { \ ((int*)(dummyname))[11] |= ((unsigned long)(fun)) >> 16; \ ((int*)(dummyname))[12] |= (unsigned short)(fun); \ if (! mips_fpu) \ { \ ((int *) (dummyname))[3] = 0; \ ((int *) (dummyname))[4] = 0; \ ((int *) (dummyname))[5] = 0; \ ((int *) (dummyname))[6] = 0; \ } \ } \ while (0) #endif /* There's a mess in stack frame creation. See comments in blockframe.c near reference to INIT_FRAME_PC_FIRST. */ #define INIT_FRAME_PC(fromleaf, prev) /* nada */ #define INIT_FRAME_PC_FIRST(fromleaf, prev) \ (prev)->pc = ((fromleaf) ? SAVED_PC_AFTER_CALL ((prev)->next) : \ (prev)->next ? FRAME_SAVED_PC ((prev)->next) : read_pc ()); /* Special symbol found in blocks associated with routines. We can hang mips_extra_func_info_t's off of this. */ #define MIPS_EFI_SYMBOL_NAME "__GDB_EFI_INFO__" /* Specific information about a procedure. This overlays the MIPS's PDR records, mipsread.c (ab)uses this to save memory */ typedef struct mips_extra_func_info { long numargs; /* number of args to procedure (was iopt) */ PDR pdr; /* Procedure descriptor record */ } *mips_extra_func_info_t; #define EXTRA_FRAME_INFO \ mips_extra_func_info_t proc_desc; \ int num_args;\ struct frame_saved_regs *saved_regs; #define INIT_EXTRA_FRAME_INFO(fromleaf, fci) init_extra_frame_info(fci) #define PRINT_EXTRA_FRAME_INFO(fi) \ { \ if (fi && fi->proc_desc && fi->proc_desc->pdr.framereg < NUM_REGS) \ printf_filtered (" frame pointer is at %s+%d\n", \ reg_names[fi->proc_desc->pdr.framereg], \ fi->proc_desc->pdr.frameoffset); \ } /* It takes two values to specify a frame on the MIPS. In fact, the *PC* is the primary value that sets up a frame. The PC is looked up to see what function it's in; symbol information from that function tells us which register is the frame pointer base, and what offset from there is the "virtual frame pointer". (This is usually an offset from SP.) On most non-MIPS machines, the primary value is the SP, and the PC, if needed, disambiguates multiple functions with the same SP. But on the MIPS we can't do that since the PC is not stored in the same part of the frame every time. This does not seem to be a very clever way to set up frames, but there is nothing we can do about that). */ #define SETUP_ARBITRARY_FRAME(argc, argv) setup_arbitrary_frame (argc, argv) /* FIXME: Depends on equivalence between FRAME and "struct frame_info *", and equivalence between CORE_ADDR and FRAME_ADDR. */ extern struct frame_info *setup_arbitrary_frame PARAMS ((int, CORE_ADDR *)); /* Convert a dbx stab register number (from `r' declaration) to a gdb REGNUM */ #define STAB_REG_TO_REGNUM(num) ((num) < 32 ? (num) : (num)+FP0_REGNUM-38) /* Convert a ecoff register number to a gdb REGNUM */ #define ECOFF_REG_TO_REGNUM(num) ((num) < 32 ? (num) : (num)+FP0_REGNUM-32) gdb-4.13/gdb/config/mips/tm-mips64.h 666 34562 1752 2604 5601653367 15434 0ustar fnfcygnus/* Target machine parameters for MIPS r4000 Copyright 1994 Free Software Foundation, Inc. Contributed by Ian Lance Taylor (ian@cygnus.com) This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define GDB_TARGET_IS_MIPS64 /* force LONGEST to be long long in gdb */ #define FORCE_LONG_LONG /* Use eight byte registers. */ #define MIPS_REGSIZE 8 /* define 8 byte register type */ #define REGISTER_VIRTUAL_TYPE(N) \ (((N) >= FP0_REGNUM && (N) < FP0_REGNUM+32) \ ? builtin_type_double : builtin_type_long_long) \ /* Load double words in CALL_DUMMY. */ #define OP_LDFPR 065 /* ldc1 */ #define OP_LDGPR 067 /* ld */ /* Get the basic MIPS definitions. Default to big endian, since that is how the chips are mostly used. */ #include "tm-mips.h" gdb-4.13/gdb/config/mips/tm-mipsm3.h 666 34562 1752 4114 5463546121 15513 0ustar fnfcygnus/* Definitions to make GDB run on a mips box under Mach 3.0 Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Mach specific definitions for little endian mips (e.g. pmax) * running Mach 3.0 * * Author: Jukka Virtanen */ /* Include common definitions for Mach3 systems */ #include "nm-m3.h" /* Define offsets to access CPROC stack when it does not have * a kernel thread. */ /* From mk/user/threads/mips/csw.s */ #define SAVED_FP (12*4) #define SAVED_PC (13*4) #define SAVED_BYTES (14*4) /* Using these, define our offsets to items strored in * cproc_switch in csw.s */ #define MACHINE_CPROC_SP_OFFSET SAVED_BYTES #define MACHINE_CPROC_PC_OFFSET SAVED_PC #define MACHINE_CPROC_FP_OFFSET SAVED_FP /* Thread flavors used in setting the Trace state. * * In */ #define TRACE_FLAVOR MIPS_EXC_STATE #define TRACE_FLAVOR_SIZE MIPS_EXC_STATE_COUNT #define TRACE_SET(x,state) ((struct mips_exc_state *)state)->cause = EXC_SST; #define TRACE_CLEAR(x,state) 0 /* Mach supports attach/detach */ #define ATTACH_DETACH 1 #include "mips/tm-mips.h" /* Address of end of user stack space. * for MACH, see */ #undef STACK_END_ADDR #define STACK_END_ADDR USRSTACK /* Don't output r?? names for registers, since they * can't be used as reg names anyway */ #define NUMERIC_REG_NAMES /* Output registers in tabular format */ #define TABULAR_REGISTER_OUTPUT gdb-4.13/gdb/config/mips/tm-mipsv4.h 666 34562 1752 3133 5551123532 15520 0ustar fnfcygnus/* Target machine description for MIPS running SVR4, for GDB. Copyright 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "mips/tm-bigmips.h" #include "tm-sysv4.h" /* When calling functions on a MIPS SVR4 ABI compliant platform $25 must hold the function address. Dest_Reg is a macro used in CALL_DUMMY in tm-mips.h. */ #undef Dest_Reg #define Dest_Reg 25 /* The signal handler trampoline is called _sigtramp. */ #undef IN_SIGTRAMP #define IN_SIGTRAMP(pc, name) ((name) && STREQ ("_sigtramp", name)) /* On entry to the signal handler trampoline, an ucontext is already pushed on the stack. We can get at the saved registers via the mcontext which is contained within the ucontext. */ #define SIGFRAME_BASE 0 #define SIGFRAME_REGSAVE_OFF (SIGFRAME_BASE + 40) #define SIGFRAME_PC_OFF (SIGFRAME_BASE + 40 + 35 * 4) /* Use the alternate method of determining valid frame chains. */ #define FRAME_CHAIN_VALID_ALTERNATE gdb-4.13/gdb/config/mips/xm-irix3.h 666 34562 1752 2314 5602574752 15353 0ustar fnfcygnus/* Copyright (C) 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is for the iris. */ #define HAVE_TERMIO #define HOST_BYTE_ORDER BIG_ENDIAN /* memcpy and memset return void *, not char *. */ extern void *memcpy(); extern void *memset(); #define MEM_FNS_DECLARED /* Override register locations in upage for SGI machines */ #undef REGISTER_U_ADDR #define REGISTER_U_ADDR(addr, blockend, regno) \ if (regno < PC_REGNUM) \ addr = regno; \ else \ addr = regno + NSIG_HNDLRS; /* Skip over signal handlers */ gdb-4.13/gdb/config/mips/xm-irix4.h 666 34562 1752 2223 5515663105 15345 0ustar fnfcygnus/* Definitions for irix4 hosting support. Copyright (C) 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is for the iris. */ #include "mips/xm-irix3.h" /* Irix defines psignal() in signal.h, in a way which conflicts with the definition in defs.h. */ #define PSIGNAL_IN_SIGNAL_H #define BROKEN_SIGINFO_H /* si_pid & si_uid are bogus */ /* Irix 4.0.1 and later have termios. Not sure about earlier versions. */ #undef HAVE_TERMIO #define HAVE_TERMIOS gdb-4.13/gdb/config/mips/xm-irix5.h 666 34562 1752 2134 5602574754 15357 0ustar fnfcygnus/* Definitions for irix5 hosting support. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "xm-sysv4.h" #define HOST_BYTE_ORDER BIG_ENDIAN /* Override register locations in upage for SGI machines */ #undef REGISTER_U_ADDR #define REGISTER_U_ADDR(addr, blockend, regno) \ if (regno < PC_REGNUM) \ addr = regno; \ else \ addr = regno + NSIG_HNDLRS; /* Skip over signal handlers */ gdb-4.13/gdb/config/mips/xm-mips.h 666 34562 1752 4143 5602574757 15274 0ustar fnfcygnus/* Definitions to make GDB run on a mips box under 4.3bsd. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. Contributed by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin and by Alessandro Forin(af@cs.cmu.edu) at CMU This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (HOST_BYTE_ORDER) #define HOST_BYTE_ORDER LITTLE_ENDIAN #endif #ifdef ultrix /* Needed for DECstation core files. */ #include #define KERNEL_U_ADDR UADDR #endif #ifdef ultrix extern char *strdup(); #endif /* DECstation memcpy and memset return void *, not char *. */ extern void *memcpy(); extern void *memset(); #define MEM_FNS_DECLARED #if ! defined (__STDC__) && ! defined (offsetof) # define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER) #endif /* Only used for core files on DECstations. First four registers at u.u_ar0 are saved arguments, and there is no r0 saved. Float registers are saved in u_pcb.pcb_fpregs, not relative to u.u_ar0. */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { \ if (regno < FP0_REGNUM) \ addr = blockend + sizeof(int) * (4 + regno - 1); \ else \ addr = offsetof (struct user, u_pcb.pcb_fpregs[0]) + \ sizeof (int) * (regno - FP0_REGNUM); \ } /* Kernel is a bit tenacious about sharing text segments, disallowing bpts. */ #define ONE_PROCESS_WRITETEXT /* HAVE_SGTTY also works, last we tried. But we have termios, at least as of Ultrix 4.2A, so use it. */ #define HAVE_TERMIOS gdb-4.13/gdb/config/mips/xm-mipsm3.h 666 34562 1752 2357 5565224165 15532 0ustar fnfcygnus/* Definitions to make GDB run on a mips box under 4.3bsd. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. Contributed by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin and by Alessandro Forin(af@cs.cmu.edu) at CMU This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (HOST_BYTE_ORDER) #define HOST_BYTE_ORDER LITTLE_ENDIAN #endif #define KERNEL_U_ADDR 0 /* Not needed. */ /* Only used for core files on DECstations. */ #define REGISTER_U_ADDR(addr, blockend, regno) \ if (regno < 38) addr = (NBPG*UPAGES) + (regno - 38)*sizeof(int);\ else addr = 0; /* ..somewhere in the pcb */ gdb-4.13/gdb/config/mips/xm-mipsv4.h 666 34562 1752 1530 5551123534 15525 0ustar fnfcygnus/* Definitions for MIPS running SVR4 hosting support. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "xm-sysv4.h" #define HOST_BYTE_ORDER BIG_ENDIAN gdb-4.13/gdb/config/mips/xm-news-mips.h 666 34562 1752 2007 5602574761 16236 0ustar fnfcygnus/* Definitions to make GDB run on a mips box under 4.3bsd. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. Contributed by Per Bothner(bothner@cs.wisc.edu) at U.Wisconsin and by Alessandro Forin(af@cs.cmu.edu) at CMU This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (HOST_BYTE_ORDER) #define HOST_BYTE_ORDER BIG_ENDIAN #endif #define MEM_FNS_DECLARED gdb-4.13/gdb/config/mips/xm-riscos.h 666 34562 1752 1651 5602574764 15625 0ustar fnfcygnus/* Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HAVE_TERMIO #if !defined (HOST_BYTE_ORDER) #define HOST_BYTE_ORDER BIG_ENDIAN #endif #define MEM_FNS_DECLARED #define USG 1 /* setjmp.h requires uid_t. */ #include gdb-4.13/gdb/config/none/ 777 34562 1752 0 5623250631 13417 5ustar fnfcygnusgdb-4.13/gdb/config/none/nm-none.h 666 34562 1752 1430 5360377624 15227 0ustar fnfcygnus/* Defines needed when configuring for "none". Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ gdb-4.13/gdb/config/none/none.mh 666 34562 1752 261 5360377626 14757 0ustar fnfcygnus# Host: "no target". This can be used to build you # a Makefile that only runs administrative commands like 'clean', # 'gdb.tar.Z', etc. NAT_FILE= nm-none.h XM_FILE= xm-none.h gdb-4.13/gdb/config/none/none.mt 666 34562 1752 236 5360377631 14771 0ustar fnfcygnus# Target: "no target". # This can be used to build you a Makefile that only runs administrative # commands like 'clean', 'gdb.tar.Z', etc. TM_FILE= tm-none.h gdb-4.13/gdb/config/none/tm-none.h 666 34562 1752 1704 5360377633 15241 0ustar fnfcygnus/* Defines needed when configuring for "none". Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This define is needed so that "gcc -MM" doesn't get errors and fail on source files that use the value of INNER_THAN in preprocessor lines. */ #define INNER_THAN < gdb-4.13/gdb/config/none/xm-none.h 666 34562 1752 1430 5360377635 15243 0ustar fnfcygnus/* Defines needed when configuring for "none". Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ gdb-4.13/gdb/config/ns32k/ 777 34562 1752 0 5623250636 13425 5ustar fnfcygnusgdb-4.13/gdb/config/ns32k/merlin.mh 666 34562 1752 1133 5454363066 15323 0ustar fnfcygnus# Host: Merlin running utek 2.1 XDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o XM_FILE= xm-merlin.h # FIXME: M_INSTALL is gone from the gdb makefile. If anyone cares # about the Merlin anymore, and the bug which inspired # SHELL_FILE/gdb-sh is still there, will need to reinstate it. Also, # this should be done for native only. # See SHELL_FILE in xm-merlin.h for a explanation of this. # FIXME: This should use $prefix, but only if SHELL_FILE does too. M_INSTALL=cp /bin/sh /usr/local/lib/gdb-sh; \ chmod ogu+rw /usr/local/lib/gdb-sh M_UNINSTALL = rm -f /usr/local/lib/gdb-sh gdb-4.13/gdb/config/ns32k/merlin.mt 666 34562 1752 127 5353462427 15320 0ustar fnfcygnus# Target: Merlin running utek 2.1 TDEPFILES= exec.o ns32k-pinsn.o TM_FILE= tm-merlin.h gdb-4.13/gdb/config/ns32k/nm-umax.h 666 34562 1752 4017 5353462431 15240 0ustar fnfcygnus/* Definitions to make GDB run on an encore under umax 4.2 Copyright 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Do implement the attach and detach commands... */ #define ATTACH_DETACH /* Offset of registers within u area. */ #define U_REGS_OFFSET 0 /* called from register_addr() -- blockend not used for now */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { \ switch (regno) { \ case 0: case 1: case 2: case 3: case 4: case 5: case 6: case 7: \ addr = PU_R0 - (regno * sizeof (int)); break; \ case SP_REGNUM: \ addr = PU_SP; break; \ case PC_REGNUM: \ addr = PU_PC; break; \ case FP_REGNUM: \ addr = PU_FP; break; \ case PS_REGNUM: \ addr = PU_PSL; break; \ case FPS_REGNUM: \ addr = PU_FSR; break; \ case FP0_REGNUM + 0: case FP0_REGNUM + 1: \ case FP0_REGNUM + 2: case FP0_REGNUM + 3: \ case FP0_REGNUM + 4: case FP0_REGNUM + 5: \ case FP0_REGNUM + 6: case FP0_REGNUM + 7: \ addr = PU_F0 + (regno - FP0_REGNUM) * sizeof (float); break; \ case LP0_REGNUM + 0: case LP0_REGNUM + 1: \ case LP0_REGNUM + 2: case LP0_REGNUM + 3: \ addr = PU_F0 + (regno - LP0_REGNUM) * sizeof (double); break; \ default: \ printf ("bad argument to REGISTER_U_ADDR %d\n", regno); \ abort (); \ } \ } gdb-4.13/gdb/config/ns32k/ns32km3.mh 666 34562 1752 277 5525270544 15222 0ustar fnfcygnus# Host: ns32k running Mach3 NATDEPFILES= m3-nat.o ns32km3-nat.o XM_FILE= xm-ns32km3.h NAT_FILE= nm-m3.h # Don't use the mmalloc library in Mach 3. MMALLOC = MMALLOC_DISABLE = -DNO_MMALLOC gdb-4.13/gdb/config/ns32k/ns32km3.mt 666 34562 1752 152 5463757610 15233 0ustar fnfcygnus# Target: ns32k with a.out on Mach 3 TDEPFILES= exec.o ns32k-pinsn.o ns32k-tdep.o TM_FILE= tm-ns32km3.h gdb-4.13/gdb/config/ns32k/tm-merlin.h 666 34562 1752 25643 5507351547 15620 0ustar fnfcygnus/* Definitions to target GDB to a merlin under utek 2.1 Copyright 1986, 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_BYTE_ORDER LITTLE_ENDIAN /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(pc) \ { register int op = read_memory_integer (pc, 1); \ if (op == 0x82) \ { op = read_memory_integer (pc+2,1); \ if ((op & 0x80) == 0) pc += 3; \ else if ((op & 0xc0) == 0x80) pc += 4; \ else pc += 6; \ }} /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) \ read_memory_integer (read_register (SP_REGNUM), 4) /* Address of end of stack space. */ #define STACK_END_ADDR (0x800000) /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0xf2} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 1) == 0x12) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Define this to say that the "svc" insn is followed by codes in memory saying which kind of system call it is. */ #define NS32K_SVC_IMMED_OPERANDS /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 25 #define NUM_GENERAL_REGS 8 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \ "pc", "sp", "fp", "ps", \ "fsr", \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "l0", "l1", "l2", "l3", "l4", \ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define AP_REGNUM FP_REGNUM #define FP_REGNUM 10 /* Contains address of executing stack frame */ #define SP_REGNUM 9 /* Contains address of top of stack */ #define PC_REGNUM 8 /* Contains program counter */ #define PS_REGNUM 11 /* Contains processor status */ #define FPS_REGNUM 12 /* Floating point status register */ #define FP0_REGNUM 13 /* Floating point register 0 */ #define LP0_REGNUM 21 /* Double register 0 (same as FP0) */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES ((NUM_REGS - 4) * sizeof (int) + 4 * sizeof (double)) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N) >= LP0_REGNUM ? \ LP0_REGNUM * 4 + ((N) - LP0_REGNUM) * 8 : (N) * 4) /* Number of bytes of storage in the actual machine representation for register N. On the 32000, all regs are 4 bytes except for the doubled floating registers. */ #define REGISTER_RAW_SIZE(N) ((N) >= LP0_REGNUM ? 8 : 4) /* Number of bytes of storage in the program's representation for register N. On the 32000, all regs are 4 bytes except for the doubled floating registers. */ #define REGISTER_VIRTUAL_SIZE(N) ((N) >= LP0_REGNUM ? 8 : 4) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 8 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ ((N) >= FP0_REGNUM ? \ ((N) >= LP0_REGNUM ? \ builtin_type_double \ : builtin_type_float) \ : builtin_type_int) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. On this machine this is a no-op, as gcc doesn't run on it yet. This calling convention is not used. */ #define STORE_STRUCT_RETURN(ADDR, SP) /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, REGBUF, TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ /* In the case of the Merlin, the frame's nominal address is the FP value, and at that address is saved previous FP value as a 4-byte word. */ #define FRAME_CHAIN(thisframe) \ (!inside_entry_file ((thisframe)->pc) ? \ read_memory_integer ((thisframe)->frame, 4) :\ 0) /* Define other aspects of the stack frame. */ #define FRAME_SAVED_PC(FRAME) (read_memory_integer ((FRAME)->frame + 4, 4)) /* compute base of arguments */ #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(numargs, fi) \ { CORE_ADDR pc; \ int insn; \ int addr_mode; \ int width; \ \ pc = FRAME_SAVED_PC (fi); \ insn = read_memory_integer (pc,2); \ addr_mode = (insn >> 11) & 0x1f; \ insn = insn & 0x7ff; \ if ((insn & 0x7fc) == 0x57c \ && addr_mode == 0x14) /* immediate */ \ { if (insn == 0x57c) /* adjspb */ \ width = 1; \ else if (insn == 0x57d) /* adjspw */ \ width = 2; \ else if (insn == 0x57f) /* adjspd */ \ width = 4; \ numargs = read_memory_integer (pc+2,width); \ if (width > 1) \ flip_bytes (&numargs, width); \ numargs = - sign_extend (numargs, width*8) / 4; } \ else numargs = -1; \ } /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 8 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { int regmask,regnum; \ int localcount; \ CORE_ADDR enter_addr; \ CORE_ADDR next_addr; \ \ enter_addr = get_pc_function_start ((frame_info)->pc); \ regmask = read_memory_integer (enter_addr+1, 1); \ localcount = ns32k_localcount (enter_addr); \ next_addr = (frame_info)->frame + localcount; \ for (regnum = 0; regnum < 8; regnum++, regmask >>= 1) \ (frame_saved_regs).regs[regnum] \ = (regmask & 1) ? (next_addr -= 4) : 0; \ (frame_saved_regs).regs[SP_REGNUM] = (frame_info)->frame + 4; \ (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame + 4; \ (frame_saved_regs).regs[FP_REGNUM] \ = read_memory_integer ((frame_info)->frame, 4); } /* Things needed for making the inferior call functions. */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME \ { register CORE_ADDR sp = read_register (SP_REGNUM); \ register int regnum; \ sp = push_word (sp, read_register (PC_REGNUM)); \ sp = push_word (sp, read_register (FP_REGNUM)); \ write_register (FP_REGNUM, sp); \ for (regnum = 0; regnum < 8; regnum++) \ sp = push_word (sp, read_register (regnum)); \ write_register (SP_REGNUM, sp); \ } /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME \ { register FRAME frame = get_current_frame (); \ register CORE_ADDR fp; \ register int regnum; \ struct frame_saved_regs fsr; \ struct frame_info *fi; \ fi = get_frame_info (frame); \ fp = fi->frame; \ get_frame_saved_regs (fi, &fsr); \ for (regnum = 0; regnum < 8; regnum++) \ if (fsr.regs[regnum]) \ write_register (regnum, read_memory_integer (fsr.regs[regnum], 4)); \ write_register (FP_REGNUM, read_memory_integer (fp, 4)); \ write_register (PC_REGNUM, read_memory_integer (fp + 4, 4)); \ write_register (SP_REGNUM, fp + 8); \ flush_cached_frames (); \ set_current_frame (create_new_frame (read_register (FP_REGNUM),\ read_pc ())); \ } /* This sequence of words is the instructions enter 0xff,0 82 ff 00 jsr @0x00010203 7f ae c0 01 02 03 adjspd 0x69696969 7f a5 01 02 03 04 bpt f2 Note this is 16 bytes. */ #define CALL_DUMMY { 0x7f00ff82, 0x0201c0ae, 0x01a57f03, 0xf2040302 } #define CALL_DUMMY_START_OFFSET 3 #define CALL_DUMMY_LENGTH 16 #define CALL_DUMMY_ADDR 5 #define CALL_DUMMY_NARGS 11 /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { int flipped = fun | 0xc0000000; \ flip_bytes (&flipped, 4); \ *((int *) (((char *) dummyname)+CALL_DUMMY_ADDR)) = flipped; \ flipped = - nargs * 4; \ flip_bytes (&flipped, 4); \ *((int *) (((char *) dummyname)+CALL_DUMMY_NARGS)) = flipped; \ } gdb-4.13/gdb/config/ns32k/tm-ns32km3.h 666 34562 1752 3226 5463546123 15500 0ustar fnfcygnus/* Macro definitions for ns532, Mach 3.0 Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Include common definitions for Mach3 systems */ #include "nm-m3.h" /* Define offsets to access CPROC stack when it does not have * a kernel thread. */ #define MACHINE_CPROC_SP_OFFSET 20 #define MACHINE_CPROC_PC_OFFSET 16 #define MACHINE_CPROC_FP_OFFSET 12 #include #include /* Thread flavors used in re-setting the T bit. * @@ this is also bad for cross debugging. */ #define TRACE_FLAVOR NS532_THREAD_STATE #define TRACE_FLAVOR_SIZE NS532_THREAD_STATE_COUNT #define TRACE_SET(x,state) \ ((struct ns532_thread_state *)state)->psr |= PSR_T #define TRACE_CLEAR(x,state) \ ((((struct ns532_thread_state *)state)->psr &= ~PSR_T), 1) /* we can do it */ #define ATTACH_DETACH 1 #define INVALID_FLOAT(p, s) isa_NAN(p, s) /* Address of end of stack space. * for MACH, see */ #define STACK_END_ADDR USRSTACK #include "ns32k/tm-umax.h" gdb-4.13/gdb/config/ns32k/tm-umax.h 666 34562 1752 31200 5507351550 15260 0ustar fnfcygnus/* Definitions to make GDB run on an encore under umax 4.2 Copyright 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is also included by tm-ns32km3.h, as well as being used by umax. */ #define TARGET_BYTE_ORDER LITTLE_ENDIAN /* Need to get function ends by adding this to epilogue address from .bf record, not using x_fsize field. */ #define FUNCTION_EPILOGUE_SIZE 4 /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(pc) \ { register unsigned char op = read_memory_integer (pc, 1); \ if (op == 0x82) { op = read_memory_integer (pc+2,1); \ if ((op & 0x80) == 0) pc += 3; \ else if ((op & 0xc0) == 0x80) pc += 4; \ else pc += 6; \ } \ } /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) \ read_memory_integer (read_register (SP_REGNUM), 4) /* Address of end of stack space. */ #ifndef STACK_END_ADDR #define STACK_END_ADDR (0xfffff000) #endif /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0xf2} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 1) == 0x12) #ifndef INVALID_FLOAT #ifndef NaN #include #endif NaN /* Return 1 if P points to an invalid floating point value. */ /* Surely wrong for cross-debugging. */ #define INVALID_FLOAT(p, s) \ ((s == sizeof (float))? \ NaF (*(float *) p) : \ NaD (*(double *) p)) #endif /* INVALID_FLOAT */ /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 25 #define NUM_GENERAL_REGS 8 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "sp", "fp", "pc", "ps", \ "fsr", \ "l0", "l1", "l2", "l3", "xx", \ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define R0_REGNUM 0 /* General register 0 */ #define FP0_REGNUM 8 /* Floating point register 0 */ #define SP_REGNUM 16 /* Contains address of top of stack */ #define AP_REGNUM FP_REGNUM #define FP_REGNUM 17 /* Contains address of executing stack frame */ #define PC_REGNUM 18 /* Contains program counter */ #define PS_REGNUM 19 /* Contains processor status */ #define FPS_REGNUM 20 /* Floating point status register */ #define LP0_REGNUM 21 /* Double register 0 (same as FP0) */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES \ ((NUM_REGS - 4) * REGISTER_RAW_SIZE(R0_REGNUM) \ + 4 * REGISTER_RAW_SIZE(LP0_REGNUM)) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N) >= LP0_REGNUM ? \ LP0_REGNUM * 4 + ((N) - LP0_REGNUM) * 8 : (N) * 4) /* Number of bytes of storage in the actual machine representation for register N. On the 32000, all regs are 4 bytes except for the doubled floating registers. */ #define REGISTER_RAW_SIZE(N) ((N) >= LP0_REGNUM ? 8 : 4) /* Number of bytes of storage in the program's representation for register N. On the 32000, all regs are 4 bytes except for the doubled floating registers. */ #define REGISTER_VIRTUAL_SIZE(N) ((N) >= LP0_REGNUM ? 8 : 4) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 8 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ (((N) < FP0_REGNUM) ? \ builtin_type_int : \ ((N) < FP0_REGNUM + 8) ? \ builtin_type_float : \ ((N) < LP0_REGNUM) ? \ builtin_type_int : \ builtin_type_double) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. On this machine this is a no-op, because gcc isn't used on it yet. So this calling convention is not used. */ #define STORE_STRUCT_RETURN(ADDR, SP) /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, REGBUF+REGISTER_BYTE (TYPE_CODE (TYPE) == TYPE_CODE_FLT ? FP0_REGNUM : 0), TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (REGISTER_BYTE (TYPE_CODE (TYPE) == TYPE_CODE_FLT ? FP0_REGNUM : 0), VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ /* In the case of the ns32000 series, the frame's nominal address is the FP value, and at that address is saved previous FP value as a 4-byte word. */ #define FRAME_CHAIN(thisframe) \ (!inside_entry_file ((thisframe)->pc) ? \ read_memory_integer ((thisframe)->frame, 4) :\ 0) /* Define other aspects of the stack frame. */ #define FRAME_SAVED_PC(FRAME) (read_memory_integer ((FRAME)->frame + 4, 4)) /* Compute base of arguments. */ #define FRAME_ARGS_ADDRESS(fi) \ ((ns32k_get_enter_addr ((fi)->pc) > 1) ? \ ((fi)->frame) : (read_register (SP_REGNUM) - 4)) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Get the address of the enter opcode for this function, if it is active. Returns positive address > 1 if pc is between enter/exit, 1 if pc before enter or after exit, 0 otherwise. */ extern CORE_ADDR ns32k_get_enter_addr (); /* Return number of args passed to a frame. Can return -1, meaning no way to tell. Encore's C compiler often reuses same area on stack for args, so this will often not work properly. If the arg names are known, it's likely most of them will be printed. */ #define FRAME_NUM_ARGS(numargs, fi) \ { CORE_ADDR pc; \ CORE_ADDR enter_addr; \ unsigned int insn; \ unsigned int addr_mode; \ int width; \ \ numargs = -1; \ enter_addr = ns32k_get_enter_addr ((fi)->pc); \ if (enter_addr > 0) \ { \ pc = (enter_addr == 1) ? \ SAVED_PC_AFTER_CALL (fi) : \ FRAME_SAVED_PC (fi); \ insn = read_memory_integer (pc,2); \ addr_mode = (insn >> 11) & 0x1f; \ insn = insn & 0x7ff; \ if ((insn & 0x7fc) == 0x57c && \ addr_mode == 0x14) /* immediate */ \ { \ if (insn == 0x57c) /* adjspb */ \ width = 1; \ else if (insn == 0x57d) /* adjspw */ \ width = 2; \ else if (insn == 0x57f) /* adjspd */ \ width = 4; \ numargs = read_memory_integer (pc+2,width); \ if (width > 1) \ flip_bytes (&numargs, width); \ numargs = - sign_extend (numargs, width*8) / 4;\ } \ } \ } /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 8 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { \ register int regmask, regnum; \ int localcount; \ register CORE_ADDR enter_addr; \ register CORE_ADDR next_addr; \ \ memset (&(frame_saved_regs), '\0', sizeof (frame_saved_regs)); \ enter_addr = ns32k_get_enter_addr ((frame_info)->pc); \ if (enter_addr > 1) \ { \ regmask = read_memory_integer (enter_addr+1, 1) & 0xff; \ localcount = ns32k_localcount (enter_addr); \ next_addr = (frame_info)->frame + localcount; \ for (regnum = 0; regnum < 8; regnum++, regmask >>= 1) \ (frame_saved_regs).regs[regnum] = (regmask & 1) ? \ (next_addr -= 4) : 0; \ (frame_saved_regs).regs[SP_REGNUM] = (frame_info)->frame + 4;\ (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame + 4;\ (frame_saved_regs).regs[FP_REGNUM] = \ (read_memory_integer ((frame_info)->frame, 4));\ } \ else if (enter_addr == 1) \ { \ CORE_ADDR sp = read_register (SP_REGNUM); \ (frame_saved_regs).regs[PC_REGNUM] = sp; \ (frame_saved_regs).regs[SP_REGNUM] = sp + 4; \ } \ } /* Things needed for making the inferior call functions. */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME \ { register CORE_ADDR sp = read_register (SP_REGNUM);\ register int regnum; \ sp = push_word (sp, read_register (PC_REGNUM)); \ sp = push_word (sp, read_register (FP_REGNUM)); \ write_register (FP_REGNUM, sp); \ for (regnum = 0; regnum < 8; regnum++) \ sp = push_word (sp, read_register (regnum)); \ write_register (SP_REGNUM, sp); \ } /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME \ { register FRAME frame = get_current_frame (); \ register CORE_ADDR fp; \ register int regnum; \ struct frame_saved_regs fsr; \ struct frame_info *fi; \ fi = get_frame_info (frame); \ fp = fi->frame; \ get_frame_saved_regs (fi, &fsr); \ for (regnum = 0; regnum < 8; regnum++) \ if (fsr.regs[regnum]) \ write_register (regnum, read_memory_integer (fsr.regs[regnum], 4)); \ write_register (FP_REGNUM, read_memory_integer (fp, 4)); \ write_register (PC_REGNUM, read_memory_integer (fp + 4, 4)); \ write_register (SP_REGNUM, fp + 8); \ flush_cached_frames (); \ set_current_frame (create_new_frame (read_register (FP_REGNUM),\ read_pc ())); } /* This sequence of words is the instructions enter 0xff,0 82 ff 00 jsr @0x00010203 7f ae c0 01 02 03 adjspd 0x69696969 7f a5 01 02 03 04 bpt f2 Note this is 16 bytes. */ #define CALL_DUMMY { 0x7f00ff82, 0x0201c0ae, 0x01a57f03, 0xf2040302 } #define CALL_DUMMY_START_OFFSET 3 #define CALL_DUMMY_LENGTH 16 #define CALL_DUMMY_ADDR 5 #define CALL_DUMMY_NARGS 11 /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { \ int flipped; \ flipped = fun | 0xc0000000; \ flip_bytes (&flipped, 4); \ *((int *) (((char *) dummyname)+CALL_DUMMY_ADDR)) = flipped; \ flipped = - nargs * 4; \ flip_bytes (&flipped, 4); \ *((int *) (((char *) dummyname)+CALL_DUMMY_NARGS)) = flipped; \ } gdb-4.13/gdb/config/ns32k/umax.mh 666 34562 1752 225 5353462437 14770 0ustar fnfcygnus# Host: Encore running umax 4.2 XDEPFILES= umax-xdep.o XM_FILE= xm-umax.h NAT_FILE= nm-umax.h NATDEPFILES= exec.o infptrace.o inftarg.o fork-child.o gdb-4.13/gdb/config/ns32k/umax.mt 666 34562 1752 116 5353462442 14777 0ustar fnfcygnus# Target: Encore running umax 4.2 TDEPFILES= ns32k-pinsn.o TM_FILE= tm-umax.h gdb-4.13/gdb/config/ns32k/xm-merlin.h 666 34562 1752 5014 5412131173 15554 0ustar fnfcygnus/* Definitions to make GDB run on a merlin under utek 2.1 Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include /* This machine doesn't have the siginterrupt call. */ #define NO_SIGINTERRUPT /* Under Utek, a ptrace'd process can be the only active process for an executable. Therefore instead of /bin/sh use gdb-sh (which should just be a copy of /bin/sh which is world readable and writeable). */ /* FIXME: name should be passed in from Makefile so it can use prefix. */ #define SHELL_FILE "/usr/local/lib/gdb-sh" #define HOST_BYTE_ORDER LITTLE_ENDIAN /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR (0xfef000) #define REGISTER_U_ADDR(addr, blockend, regno) \ { \ switch (regno) { \ case 0: case 1: case 2: case 3: case 4: case 5: case 6: case 7: \ addr = blockend + (R0 - regno) * sizeof (int); break; \ case PC_REGNUM: \ addr = blockend + PC * sizeof (int); break; \ case SP_REGNUM: \ addr = blockend + SP * sizeof (int); break; \ case FP_REGNUM: \ addr = blockend + FP * sizeof (int); break; \ case PS_REGNUM: \ addr = blockend + 12 * sizeof (int); break; \ case FPS_REGNUM: \ addr = 108; break; \ case FP0_REGNUM + 0: case FP0_REGNUM + 1: \ case FP0_REGNUM + 2: case FP0_REGNUM + 3: \ case FP0_REGNUM + 4: case FP0_REGNUM + 5: \ case FP0_REGNUM + 6: case FP0_REGNUM + 7: \ addr = 76 + (regno - FP0_REGNUM) * sizeof (float); break; \ case LP0_REGNUM + 0: case LP0_REGNUM + 1: \ case LP0_REGNUM + 2: case LP0_REGNUM + 3: \ addr = 76 + (regno - LP0_REGNUM) * sizeof (double); break; \ default: \ printf ("bad argument to REGISTER_U_ADDR %d\n", regno); \ abort (); \ } \ } gdb-4.13/gdb/config/ns32k/xm-ns32km3.h 666 34562 1752 2246 5565224170 15503 0ustar fnfcygnus/* Definitions to make GDB run on Mach 3 on an National ns32k Copyright (C) 1986, 1987, 1989, 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN /* Avoid "INT_MIN redefined" warnings -- by defining it here, exactly the same as in the system file. */ #undef INT_MIN #define INT_MIN 0x80000000 /* Do implement the attach and detach commands. */ #define ATTACH_DETACH 1 /* signal.h has declaration for psignal() */ #define PSIGNAL_IN_SIGNAL_H gdb-4.13/gdb/config/ns32k/xm-umax.h 666 34562 1752 1650 5353462447 15261 0ustar fnfcygnus/* Definitions to make GDB run on an encore under umax 4.2 Copyright 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN #define HAVE_WAIT_STRUCT /* Doesn't have siginterupt. */ #define NO_SIGINTERRUPT gdb-4.13/gdb/config/pa/ 777 34562 1752 0 5623250643 13063 5ustar fnfcygnusgdb-4.13/gdb/config/pa/hppabsd.mh 666 34562 1752 313 5603466444 15075 0ustar fnfcygnus# Host: Hewlett-Packard PA-RISC machine, running BSD XDEPFILES= XM_FILE= xm-hppab.h NAT_FILE= nm-hppab.h NATDEPFILES= hppab-nat.o coredep.o corelow.o exec.o inftarg.o fork-child.o somread.o infptrace.o gdb-4.13/gdb/config/pa/hppabsd.mt 666 34562 1752 132 5366077420 15106 0ustar fnfcygnus# TARGET: HP PA-RISC running bsd TDEPFILES= hppa-pinsn.o hppa-tdep.o TM_FILE= tm-hppab.h gdb-4.13/gdb/config/pa/hppahpux.mh 666 34562 1752 426 5603466444 15316 0ustar fnfcygnus# Host: Hewlett-Packard PA-RISC machine, running HPUX TERMCAP = -lcurses XDEPFILES= XM_FILE= xm-hppah.h NAT_FILE= nm-hppah.h NATDEPFILES= hppah-nat.o coredep.o corelow.o inftarg.o fork-child.o somread.o infptrace.o REGEX=regex.o REGEX1=regex.o HOST_IPC=-DBSD_IPC -DPOSIX_WAIT gdb-4.13/gdb/config/pa/hppahpux.mt 666 34562 1752 141 5366077423 15325 0ustar fnfcygnus# TARGET: HP PA-RISC running hpux TDEPFILES= hppa-pinsn.o hppa-tdep.o exec.o TM_FILE= tm-hppah.h gdb-4.13/gdb/config/pa/hppaosf.mt 666 34562 1752 133 5533150546 15123 0ustar fnfcygnus# TARGET: HP PA-RISC running OSF1 TDEPFILES= hppa-pinsn.o hppa-tdep.o TM_FILE= tm-hppao.h gdb-4.13/gdb/config/pa/nm-hppab.h 666 34562 1752 13630 5575740210 15041 0ustar fnfcygnus/* HPPA PA-RISC machine native support for BSD, for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define U_REGS_OFFSET 0 #define KERNEL_U_ADDR 0 /* What a coincidence! */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { addr = (int)(blockend) + REGISTER_BYTE (regno);} /* 3rd argument to ptrace is supposed to be a caddr_t. */ #define PTRACE_ARG3_TYPE caddr_t /* HPUX 8.0, in its infinite wisdom, has chosen to prototype ptrace with five arguments, so programs written for normal ptrace lose. */ #define FIVE_ARG_PTRACE /* This macro defines the register numbers (from REGISTER_NAMES) that are effectively unavailable to the user through ptrace(). It allows us to include the whole register set in REGISTER_NAMES (inorder to better support remote debugging). If it is used in fetch/store_inferior_registers() gdb will not complain about I/O errors on fetching these registers. If all registers in REGISTER_NAMES are available, then return false (0). */ #define CANNOT_STORE_REGISTER(regno) \ ((regno) == 0) || \ ((regno) == PCSQ_HEAD_REGNUM) || \ ((regno) >= PCSQ_TAIL_REGNUM && (regno) < IPSW_REGNUM) || \ ((regno) > IPSW_REGNUM && (regno) < FP4_REGNUM) /* fetch_inferior_registers is in hppab-nat.c. */ #define FETCH_INFERIOR_REGISTERS /* attach/detach works to some extent under BSD and HPUX. So long as the process you're attaching to isn't blocked waiting on io, blocked waiting on a signal, or in a system call things work fine. (The problems in those cases are related to the fact that the kernel can't provide complete register information for the target process... Which really pisses off GDB.) */ #define ATTACH_DETACH /* The PA-BSD kernel has support for using the data memory break bit to implement fast watchpoints. Watchpoints on the PA act much like traditional page protection schemes, but with some notable differences. First, a special bit in the page table entry is used to cause a trap when a specific page is written to. This avoids having to overload watchpoints on the page protection bits. This makes it possible for the kernel to easily decide if a trap was caused by a watchpoint or by the user writing to protected memory and can signal the user program differently in each case. Second, the PA has a bit in the processor status word which causes data memory breakpoints (aka watchpoints) to be disabled for a single instruction. This bit can be used to avoid the overhead of unprotecting and reprotecting pages when it becomes necessary to step over a watchpoint. When the kernel receives a trap indicating a write to a page which is being watched, the kernel performs a couple of simple actions. First is sets the magic "disable memory breakpoint" bit in the processor status word, it then sends a SIGTRAP to the process which caused the trap. GDB will take control and catch the signal for the inferior. GDB then examines the PSW-X bit to determine if the SIGTRAP was caused by a watchpoint firing. If so GDB single steps the inferior over the instruction which caused the watchpoint to trigger (note because the kernel disabled the data memory break bit for one instruction no trap will be taken!). GDB will then determines the appropriate action to take. (this may include restarting the inferior if the watchpoint fired because of a write to an address on the same page as a watchpoint, but no write to the watched address occured). */ /* The PA can watch any number of locations, there's no need for it to reject anything (generic routines already check that all intermediates are in memory). */ #define TARGET_CAN_USE_HARDWARE_WATCHPOINT(type, cnt, ot) \ ((type) == bp_hardware_watchpoint) /* When a hardware watchpoint fires off the PC will be left at the instruction which caused the watchpoint. It will be necessary for GDB to step over the watchpoint. On a PA running BSD, it is trivial to identify when it will be necessary to step over a hardware watchpoint as we can examine the PSW-X bit. If the bit is on, then we trapped because of a watchpoint, else we trapped for some other reason. */ #define STOPPED_BY_WATCHPOINT(W) \ ((W).kind == TARGET_WAITKIND_STOPPED \ && (W).value.sig == TARGET_SIGNAL_TRAP \ && ((int) read_register (IPSW_REGNUM) & 0x00100000)) /* The PA can single step over a watchpoint if the kernel has set the "X" bit in the processor status word (disable data memory breakpoint for one instruction). The kernel will always set this bit before notifying the inferior that it hit a watchpoint. Thus, the inferior can single step over the instruction which caused the watchpoint to fire. This avoids the traditional need to disable the watchpoint, step the inferior, then enable the watchpoint again. */ #define HAVE_STEPPABLE_WATCHPOINT /* Use these macros for watchpoint insertion/deletion. */ /* type can be 0: write watch, 1: read watch, 2: access watch (read/write) */ #define target_insert_watchpoint(addr, len, type) hppa_set_watchpoint (addr, len, 1) #define target_remove_watchpoint(addr, len, type) hppa_set_watchpoint (addr, len, 0) gdb-4.13/gdb/config/pa/nm-hppah.h 666 34562 1752 5660 5554540320 15030 0ustar fnfcygnus/* Native support for HPPA-RISC machine running HPUX, for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define U_REGS_OFFSET 0 #define KERNEL_U_ADDR 0 /* What a coincidence! */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { addr = (int)(blockend) + REGISTER_BYTE (regno);} /* HPUX 8.0, in its infinite wisdom, has chosen to prototype ptrace with five arguments, so programs written for normal ptrace lose. */ #define FIVE_ARG_PTRACE /* We need to figure out where the text region is so that we use the appropriate ptrace operator to manipulate text. Simply reading/writing user space will crap out HPUX. */ #define NEED_TEXT_START_END /* This macro defines the register numbers (from REGISTER_NAMES) that are effectively unavailable to the user through ptrace(). It allows us to include the whole register set in REGISTER_NAMES (inorder to better support remote debugging). If it is used in fetch/store_inferior_registers() gdb will not complain about I/O errors on fetching these registers. If all registers in REGISTER_NAMES are available, then return false (0). */ #define CANNOT_STORE_REGISTER(regno) \ ((regno) == 0) || \ ((regno) == PCSQ_HEAD_REGNUM) || \ ((regno) >= PCSQ_TAIL_REGNUM && (regno) < IPSW_REGNUM) || \ ((regno) > IPSW_REGNUM && (regno) < FP4_REGNUM) /* fetch_inferior_registers is in hppah-nat.c. */ #define FETCH_INFERIOR_REGISTERS /* child_xfer_memory is in hppah-nat.c. */ #define CHILD_XFER_MEMORY /* So we can cleanly use code in infptrace.c. */ #define PT_KILL PT_EXIT #define PT_STEP PT_SINGLE #define PT_CONTINUE PT_CONTIN #define PT_READ_U PT_RDUAREA #define PT_WRITE_U PT_WUAREA #define PT_READ_I PT_RIUSER #define PT_READ_D PT_RDUSER #define PT_WRITE_I PT_WIUSER #define PT_WRITE_D PT_WDUSER /* attach/detach works to some extent under BSD and HPUX. So long as the process you're attaching to isn't blocked waiting on io, blocked waiting on a signal, or in a system call things work fine. (The problems in those cases are related to the fact that the kernel can't provide complete register information for the target process... Which really pisses off GDB.) */ #define ATTACH_DETACH gdb-4.13/gdb/config/pa/tm-hppa.h 666 34562 1752 44570 5576114127 14717 0ustar fnfcygnus/* Parameters for execution on any Hewlett-Packard PA-RISC machine. Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Target system byte order. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* Get at various relevent fields of an instruction word. */ #define MASK_5 0x1f #define MASK_11 0x7ff #define MASK_14 0x3fff #define MASK_21 0x1fffff /* This macro gets bit fields using HP's numbering (MSB = 0) */ #define GET_FIELD(X, FROM, TO) \ ((X) >> 31 - (TO) & (1 << ((TO) - (FROM) + 1)) - 1) /* Watch out for NaNs */ #define IEEE_FLOAT /* On the PA, any pass-by-value structure > 8 bytes is actually passed via a pointer regardless of its type or the compiler used. */ #define REG_STRUCT_HAS_ADDR(gcc_p,type) \ (TYPE_LENGTH (type) > 8) /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ /* skip (stw rp, -20(0,sp)); copy 4,1; copy sp, 4; stwm 1,framesize(sp) for gcc, or (stw rp, -20(0,sp); stwm 1, framesize(sp) for hcc */ #define SKIP_PROLOGUE(pc) pc = skip_prologue (pc) /* If PC is in some function-call trampoline code, return the PC where the function itself actually starts. If not, return NULL. */ #define SKIP_TRAMPOLINE_CODE(pc) skip_trampoline_code (pc, NULL) /* Return non-zero if we are in some sort of a trampoline. */ #define IN_SOLIB_TRAMPOLINE(pc, name) skip_trampoline_code (pc, name) /* Immediately after a function call, return the saved pc. Can't go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #undef SAVED_PC_AFTER_CALL #define SAVED_PC_AFTER_CALL(frame) saved_pc_after_call (frame) /* Stack grows upward */ #define INNER_THAN > /* Sequence of bytes for breakpoint instruction. */ /*#define BREAKPOINT {0x00, 0x00, 0x00, 0x00}*/ #ifdef KERNELDEBUG /* XXX */ #define BREAKPOINT {0x00, 0x00, 0xa0, 0x00} #else #define BREAKPOINT {0x00, 0x01, 0x00, 0x04} #endif /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. Not on the PA-RISC */ #define DECR_PC_AFTER_BREAK 0 /* return instruction is bv r0(rp) or bv,n r0(rp)*/ #define ABOUT_TO_RETURN(pc) ((read_memory_integer (pc, 4) | 0x2) == 0xE840C002) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 128 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES \ {"flags", "r1", "rp", "r3", "r4", "r5", "r6", "r7", "r8", "r9", \ "r10", "r11", "r12", "r13", "r14", "r15", "r16", "r17", "r18", "r19", \ "r20", "r21", "r22", "arg3", "arg2", "arg1", "arg0", "dp", "ret0", "ret1", \ "sp", "r31", "sar", "pcoqh", "pcsqh", "pcoqt", "pcsqt", \ "eiem", "iir", "isr", "ior", "ipsw", "goto", "sr4", "sr0", "sr1", "sr2", \ "sr3", "sr5", "sr6", "sr7", "cr0", "cr8", "cr9", "ccr", "cr12", "cr13", \ "cr24", "cr25", "cr26", "mpsfu_high", "mpsfu_low", "mpsfu_ovflo", "pad", \ "fpsr", "fpe1", "fpe2", "fpe3", "fpe4", "fpe5", "fpe6", "fpe7", \ "fr4", "fr4R", "fr5", "fr5R", "fr6", "fr6R", "fr7", "fr7R", \ "fr8", "fr8R", "fr9", "fr9R", "fr10", "fr10R", "fr11", "fr11R", \ "fr12", "fr12R", "fr13", "fr13R", "fr14", "fr14R", "fr15", "fr15R", \ "fr16", "fr16R", "fr17", "fr17R", "fr18", "fr18R", "fr19", "fr19R", \ "fr20", "fr20R", "fr21", "fr21R", "fr22", "fr22R", "fr23", "fr23R", \ "fr24", "fr24R", "fr25", "fr25R", "fr26", "fr26R", "fr27", "fr27R", \ "fr28", "fr28R", "fr29", "fr29R", "fr30", "fr30R", "fr31", "fr31R"} /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define FLAGS_REGNUM 0 /* Various status flags */ #define RP_REGNUM 2 /* return pointer */ #define FP_REGNUM 3 /* Contains address of executing stack */ /* frame */ #define SP_REGNUM 30 /* Contains address of top of stack */ #define SAR_REGNUM 32 /* shift amount register */ #define IPSW_REGNUM 41 /* processor status word. ? */ #define PCOQ_HEAD_REGNUM 33 /* instruction offset queue head */ #define PCSQ_HEAD_REGNUM 34 /* instruction space queue head */ #define PCOQ_TAIL_REGNUM 35 /* instruction offset queue tail */ #define PCSQ_TAIL_REGNUM 36 /* instruction space queue tail */ #define FP0_REGNUM 64 /* floating point reg. 0 */ #define FP4_REGNUM 72 /* compatibility with the rest of gdb. */ #define PC_REGNUM PCOQ_HEAD_REGNUM #define NPC_REGNUM PCOQ_TAIL_REGNUM /* When fetching register values from an inferior or a core file, clean them up using this macro. BUF is a char pointer to the raw value of the register in the registers[] array. */ #define CLEAN_UP_REGISTER_VALUE(regno, buf) \ do { \ if ((regno) == PCOQ_HEAD_REGNUM || (regno) == PCOQ_TAIL_REGNUM) \ (buf)[3] &= ~0x3; \ } while (0) /* Define DO_REGISTERS_INFO() to do machine-specific formatting of register dumps. */ #define DO_REGISTERS_INFO(_regnum, fp) pa_do_registers_info (_regnum, fp) /* PA specific macro to see if the current instruction is nullified. */ #define INSTRUCTION_NULLIFIED ((int)read_register (IPSW_REGNUM) & 0x00200000) /* Number of bytes of storage in the actual machine representation for register N. On the PA-RISC, all regs are 4 bytes, including the FP registers (they're accessed as two 4 byte halves). */ #define REGISTER_RAW_SIZE(N) 4 /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (NUM_REGS * 4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) (N) * 4 /* Number of bytes of storage in the program's representation for register N. */ #define REGISTER_VIRTUAL_SIZE(N) REGISTER_RAW_SIZE(N) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 4 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ ((N) < FP4_REGNUM ? builtin_type_int : builtin_type_float) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) {write_register (28, (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, (REGBUF) + REGISTER_BYTE(TYPE_LENGTH(TYPE) > 4 ? \ FP4_REGNUM :28), TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes ((TYPE_LENGTH(TYPE) > 4 \ ? REGISTER_BYTE (FP4_REGNUM) \ : REGISTER_BYTE (28)), \ (VALBUF), TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)((REGBUF) + 28)) /* * This macro defines the register numbers (from REGISTER_NAMES) that * are effectively unavailable to the user through ptrace(). It allows * us to include the whole register set in REGISTER_NAMES (inorder to * better support remote debugging). If it is used in * fetch/store_inferior_registers() gdb will not complain about I/O errors * on fetching these registers. If all registers in REGISTER_NAMES * are available, then return false (0). */ #define CANNOT_STORE_REGISTER(regno) \ ((regno) == 0) || \ ((regno) == PCSQ_HEAD_REGNUM) || \ ((regno) >= PCSQ_TAIL_REGNUM && (regno) < IPSW_REGNUM) || \ ((regno) > IPSW_REGNUM && (regno) < FP4_REGNUM) #define INIT_EXTRA_FRAME_INFO(fromleaf, frame) init_extra_frame_info (fromleaf, frame) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. FRAME_CHAIN_COMBINE takes the chain pointer and the frame's nominal address and produces the nominal address of the caller frame. However, if FRAME_CHAIN_VALID returns zero, it means the given frame is the outermost one and has no caller. In that case, FRAME_CHAIN_COMBINE is not used. */ /* In the case of the PA-RISC, the frame's nominal address is the address of a 4-byte word containing the calling frame's address (previous FP). */ #define FRAME_CHAIN(thisframe) frame_chain (thisframe) #define FRAME_CHAIN_VALID(chain, thisframe) \ frame_chain_valid (chain, thisframe) #define FRAME_CHAIN_COMBINE(chain, thisframe) (chain) /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ (FRAMELESS) = frameless_function_invocation(FI) #define FRAME_SAVED_PC(FRAME) frame_saved_pc (FRAME) #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can't tell how many args there are now that the C compiler delays popping them. */ #define FRAME_NUM_ARGS(val,fi) (val = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ hppa_frame_find_saved_regs (frame_info, &frame_saved_regs) /* Things needed for making the inferior call functions. */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME push_dummy_frame () /* Discard from the stack the innermost frame, restoring all saved registers. */ #define POP_FRAME hppa_pop_frame () /* This sequence of words is the instructions ; Call stack frame has already been built by gdb. Since we could be calling ; a varargs function, and we do not have the benefit of a stub to put things in ; the right place, we load the first 4 word of arguments into both the general ; and fp registers. call_dummy ldw -36(sp), arg0 ldw -40(sp), arg1 ldw -44(sp), arg2 ldw -48(sp), arg3 ldo -36(sp), r1 fldws 0(0, r1), fr4 fldds -4(0, r1), fr5 fldws -8(0, r1), fr6 fldds -12(0, r1), fr7 ldil 0, r22 ; target will be placed here. ldo 0(r22), r22 ldsid (0,r22), r4 ldil 0, r1 ; _sr4export will be placed here. ldo 0(r1), r1 ldsid (0,r1), r20 combt,=,n r4, r20, text_space ; If target is in data space, do a ble 0(sr5, r22) ; "normal" procedure call copy r31, r2 break 4, 8 mtsp r21, sr0 ble,n 0(sr0, r22) text_space ; Otherwise, go through _sr4export, ble (sr4, r1) ; which will return back here. stw 31,-24(r30) break 4, 8 mtsp r21, sr0 ble,n 0(sr0, r22) nop ; To avoid kernel bugs nop ; and keep the dummy 8 byte aligned The dummy decides if the target is in text space or data space. If it's in data space, there's no problem because the target can return back to the dummy. However, if the target is in text space, the dummy calls the secret, undocumented routine _sr4export, which calls a function in text space and can return to any space. Instead of including fake instructions to represent saved registers, we know that the frame is associated with the call dummy and treat it specially. The trailing NOPs are needed to avoid a bug in HPUX, BSD and OSF1 kernels. If the memory at the location pointed to by the PC is 0xffffffff then a ptrace step call will fail (even if the instruction is nullified). The code to pop a dummy frame single steps three instructions starting with the last mtsp. This includes the nullified "instruction" following the ble (which is uninitialized junk). If the "instruction" following the last BLE is 0xffffffff, then the ptrace will fail and the dummy frame is not correctly popped. By placing a NOP in the delay slot of the BLE instruction we can be sure that we never try to execute a 0xffffffff instruction and avoid the kernel bug. The second NOP is needed to keep the call dummy 8 byte aligned. */ #define CALL_DUMMY {0x4BDA3FB9, 0x4BD93FB1, 0x4BD83FA9, 0x4BD73FA1,\ 0x37C13FB9, 0x24201004, 0x2C391005, 0x24311006,\ 0x2C291007, 0x22C00000, 0x36D60000, 0x02C010A4,\ 0x20200000, 0x34210000, 0x002010b4, 0x82842022,\ 0xe6c06000, 0x081f0242, 0x00010004, 0x00151820,\ 0xe6c00002, 0xe4202000, 0x6bdf3fd1, 0x00010004,\ 0x00151820, 0xe6c00002, 0x08000240, 0x08000240} #define CALL_DUMMY_LENGTH 112 #define CALL_DUMMY_START_OFFSET 0 /* * Insert the specified number of args and function address * into a call sequence of the above form stored at DUMMYNAME. * * On the hppa we need to call the stack dummy through $$dyncall. * Therefore our version of FIX_CALL_DUMMY takes an extra argument, * real_pc, which is the location where gdb should start up the * inferior to do the function call. */ #define FIX_CALL_DUMMY hppa_fix_call_dummy CORE_ADDR hppa_fix_call_dummy(); #define PUSH_ARGUMENTS(nargs, args, sp, struct_return, struct_addr) \ sp = hppa_push_arguments(nargs, args, sp, struct_return, struct_addr) /* The low two bits of the PC on the PA contain the privilege level. Some genius implementing a (non-GCC) compiler apparently decided this means that "addresses" in a text section therefore include a privilege level, and thus symbol tables should contain these bits. This seems like a bonehead thing to do--anyway, it seems to work for our purposes to just ignore those bits. */ #define SMASH_TEXT_ADDRESS(addr) ((addr) &= ~0x3) #define GDB_TARGET_IS_HPPA #define BELIEVE_PCC_PROMOTION 1 /* * Unwind table and descriptor. */ struct unwind_table_entry { unsigned int region_start; unsigned int region_end; unsigned int Cannot_unwind : 1; unsigned int Millicode : 1; unsigned int Millicode_save_sr0 : 1; unsigned int Region_description : 2; unsigned int reserved1 : 1; unsigned int Entry_SR : 1; unsigned int Entry_FR : 4; /* number saved */ unsigned int Entry_GR : 5; /* number saved */ unsigned int Args_stored : 1; unsigned int Variable_Frame : 1; unsigned int Separate_Package_Body : 1; unsigned int Frame_Extension_Millicode:1; unsigned int Stack_Overflow_Check : 1; unsigned int Two_Instruction_SP_Increment:1; unsigned int Ada_Region : 1; /* Use this field to store a stub unwind type. */ #define stub_type reserved2 unsigned int reserved2 : 4; unsigned int Save_SP : 1; unsigned int Save_RP : 1; unsigned int Save_MRP_in_frame : 1; unsigned int extn_ptr_defined : 1; unsigned int Cleanup_defined : 1; unsigned int MPE_XL_interrupt_marker: 1; unsigned int HP_UX_interrupt_marker: 1; unsigned int Large_frame : 1; unsigned int reserved4 : 2; unsigned int Total_frame_size : 27; }; /* HP linkers also generate unwinds for various linker-generated stubs. GDB reads in the stubs from the $UNWIND_END$ subspace, then "converts" them into normal unwind entries using some of the reserved fields to store the stub type. */ struct stub_unwind_entry { /* The offset within the executable for the associated stub. */ unsigned stub_offset; /* The type of stub this unwind entry describes. */ char type; /* Unknown. Not needed by GDB at this time. */ char prs_info; /* Length (in instructions) of the associated stub. */ short stub_length; }; /* Sizes (in bytes) of the native unwind entries. */ #define UNWIND_ENTRY_SIZE 16 #define STUB_UNWIND_ENTRY_SIZE 8 /* The gaps represent linker stubs used in MPE and space for future expansion. */ enum unwind_stub_types { LONG_BRANCH = 1, PARAMETER_RELOCATION = 2, EXPORT = 10, IMPORT = 11, }; /* Info about the unwind table associated with an object file. This is hung off of the objfile->obj_private pointer, and is allocated in the objfile's psymbol obstack. This allows us to have unique unwind info for each executable and shared library that we are debugging. */ struct obj_unwind_info { struct unwind_table_entry *table; /* Pointer to unwind info */ struct unwind_table_entry *cache; /* Pointer to last entry we found */ int last; /* Index of last entry */ }; #define OBJ_UNWIND_INFO(obj) ((struct obj_unwind_info *)obj->obj_private) extern CORE_ADDR target_read_pc PARAMS ((int)); extern void target_write_pc PARAMS ((CORE_ADDR, int)); #define TARGET_READ_PC(pid) target_read_pc (pid) #define TARGET_WRITE_PC(v,pid) target_write_pc (v,pid) gdb-4.13/gdb/config/pa/tm-hppab.h 666 34562 1752 2623 5535672737 15045 0ustar fnfcygnus/* Parameters for execution on an HP PA-RISC machine running BSD, for GDB. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). */ /* For BSD: The signal context structure pointer is always saved at the base of the frame + 0x4. We get the PC & SP directly from the sigcontext structure itself. For other registers we have to dive in a little deeper: The hardware save state pointer is at offset 0x10 within the signal context structure. Within the hardware save state, registers are found in the same order as the register numbers in GDB. */ #define FRAME_SAVED_PC_IN_SIGTRAMP(FRAME, TMP) \ { \ *(TMP) = read_memory_integer ((FRAME)->frame + 0x4, 4); \ *(TMP) = read_memory_integer (*(TMP) + 0x18, 4); \ } #define FRAME_BASE_BEFORE_SIGTRAMP(FRAME, TMP) \ { \ *(TMP) = read_memory_integer ((FRAME)->frame + 0x4, 4); \ *(TMP) = read_memory_integer (*(TMP) + 0x8, 4); \ } #define FRAME_FIND_SAVED_REGS_IN_SIGTRAMP(FRAME, FSR) \ { \ int i; \ CORE_ADDR TMP; \ TMP = read_memory_integer ((FRAME)->frame + 0x4, 4); \ TMP = read_memory_integer (TMP + 0x10, 4); \ for (i = 0; i < NUM_REGS; i++) \ { \ if (i == SP_REGNUM) \ (FSR)->regs[SP_REGNUM] = read_memory_integer (TMP + SP_REGNUM * 4, 4); \ else \ (FSR)->regs[i] = TMP + i * 4; \ } \ } /* It's mostly just the common stuff. */ #include "pa/tm-hppa.h" gdb-4.13/gdb/config/pa/tm-hppah.h 666 34562 1752 4637 5554540321 15042 0ustar fnfcygnus/* Parameters for execution on an HP PA-RISC machine, running HPUX, for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Actually, for a PA running HPUX the kernel calls the signal handler without an intermediate trampoline. Luckily the kernel always sets the return pointer for the signal handler to point to _sigreturn. */ #define IN_SIGTRAMP(pc, name) (name && STREQ ("_sigreturn", name)) /* For HPUX: The signal context structure pointer is always saved at the base of the frame which "calls" the signal handler. We only want to find the hardware save state structure, which lives 10 32bit words into sigcontext structure. Within the hardware save state structure, registers are found in the same order as the register numbers in GDB. The kernel apparently sets %r31 in the saved state structure to point to the active instruction when the signal was taken. Everything else looks fairly reasonable. (I assume the kernel fixes %r31 from within _sigreturn?. */ #define FRAME_SAVED_PC_IN_SIGTRAMP(FRAME, TMP) \ { \ *(TMP) = read_memory_integer ((FRAME)->frame + (41 * 4) , 4); \ } #define FRAME_BASE_BEFORE_SIGTRAMP(FRAME, TMP) \ { \ *(TMP) = read_memory_integer ((FRAME)->frame + (40 * 4), 4); \ } #define FRAME_FIND_SAVED_REGS_IN_SIGTRAMP(FRAME, FSR) \ { \ int i; \ CORE_ADDR TMP; \ TMP = (FRAME)->frame + (10 * 4); \ for (i = 0; i < NUM_REGS; i++) \ { \ if (i == SP_REGNUM) \ (FSR)->regs[SP_REGNUM] = read_memory_integer (TMP + SP_REGNUM * 4, 4); \ else \ (FSR)->regs[i] = TMP + i * 4; \ } \ } /* Mostly it's common to all HPPA's. */ #include "pa/tm-hppa.h" gdb-4.13/gdb/config/pa/tm-hppao.h 666 34562 1752 3253 5543741240 15043 0ustar fnfcygnus/* Parameters for execution on an HP PA-RISC machine running OSF1, for GDB. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). */ /* For OSF1 (Should be close if not identical to BSD, but I haven't tested it yet): The signal context structure pointer is always saved at the base of the frame + 0x4. We get the PC & SP directly from the sigcontext structure itself. For other registers we have to dive in a little deeper: The hardware save state pointer is at offset 0x10 within the signal context structure. Within the hardware save state, registers are found in the same order as the register numbers in GDB. */ #define FRAME_SAVED_PC_IN_SIGTRAMP(FRAME, TMP) \ { \ *(TMP) = read_memory_integer ((FRAME)->frame + 0x4, 4); \ *(TMP) = read_memory_integer (*(TMP) + 0x18, 4); \ } #define FRAME_BASE_BEFORE_SIGTRAMP(FRAME, TMP) \ { \ *(TMP) = read_memory_integer ((FRAME)->frame + 0x4, 4); \ *(TMP) = read_memory_integer (*(TMP) + 0x8, 4); \ } #define FRAME_FIND_SAVED_REGS_IN_SIGTRAMP(FRAME, FSR) \ { \ int i; \ CORE_ADDR TMP; \ TMP = read_memory_integer ((FRAME)->frame + 0x4, 4); \ TMP = read_memory_integer (TMP + 0x10, 4); \ for (i = 0; i < NUM_REGS; i++) \ { \ if (i == SP_REGNUM) \ (FSR)->regs[SP_REGNUM] = read_memory_integer (TMP + SP_REGNUM * 4, 4); \ else \ (FSR)->regs[i] = TMP + i * 4; \ } \ } /* OSF1 needs an extra trap. I assume for the emulator startup (?!?) */ #define START_INFERIOR_TRAPS_EXPECTED 3 /* OSF1 does not need the pc space queue restored. */ #define NO_PC_SPACE_QUEUE_RESTORE /* It's mostly just the common stuff. */ #include "pa/tm-hppa.h" gdb-4.13/gdb/config/pa/xm-hppab.h 666 34562 1752 2652 5565224174 15042 0ustar fnfcygnus/* Parameters for hosting on an HPPA PA-RISC machine, running BSD, for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is a big-endian host. */ #define HOST_BYTE_ORDER BIG_ENDIAN #include "pa/xm-pa.h" /* Avoid "INT_MIN redefined" warnings -- by defining it here, exactly the same as in the system file. */ #undef INT_MIN #define INT_MIN 0x80000000 #ifndef SEEK_SET # define SEEK_SET 0 /* Set file pointer to "offset" */ # define SEEK_CUR 1 /* Set file pointer to current plus "offset" */ # define SEEK_END 2 /* Set file pointer to EOF plus "offset" */ #endif /* SEEK_SET */ gdb-4.13/gdb/config/pa/xm-hppah.h 666 34562 1752 3566 5554540324 15051 0ustar fnfcygnus/* Parameters for hosting on an HPPA-RISC machine running HPUX, for GDB. Copyright 1991, 1992 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Host is big-endian. */ #define HOST_BYTE_ORDER BIG_ENDIAN #include "pa/xm-pa.h" /* Avoid "INT_MIN redefined" warnings -- by defining it here, exactly the same as in the system file. */ #undef INT_MIN #define INT_MIN 0x80000000 #define USG #ifndef __STDC__ /* This define is discussed in decode_line_1 in symtab.c */ #define HPPA_COMPILER_BUG #endif #define HAVE_TERMIOS /* HP uses non-ANSI definitions, but with void * results. */ #define MEM_FNS_DECLARED /* Some non-ANSI use void *, not char *. */ extern void * memcpy PARAMS ((void *, const void *, size_t)); /* 4.11.2.1 */ extern void * memset PARAMS ((void *, int, size_t)); /* 4.11.6.1 */ /* HP defines malloc and realloc as returning void *, even for non-ANSI compilations (such as with the native compiler). */ #define MALLOC_INCOMPATIBLE extern void * malloc PARAMS ((size_t)); extern void * realloc PARAMS ((void *, size_t)); extern void free PARAMS ((void *)); gdb-4.13/gdb/config/pa/xm-pa.h 666 34562 1752 344 5457043115 14316 0ustar fnfcygnus/* Definitions for all PA machines. */ /* This was created for "makeva", which is obsolete. This file can probably go away (unless someone can think of some other host thing which is common to various pa machines). */ gdb-4.13/gdb/config/pyr/ 777 34562 1752 0 5623250650 13273 5ustar fnfcygnusgdb-4.13/gdb/config/pyr/pyramid.mh 666 34562 1752 361 5353462535 15335 0ustar fnfcygnus# Host: Pyramid under OSx 4.0 (4.2bsd). #msg If you don't compile GDB with GCC, you'll need to add #msg ALLOCA=alloca.o and ALLOCA1=alloca.o to the Makefile. #msg XDEPFILES= pyr-xdep.o infptrace.o inftarg.o fork-child.o XM_FILE= xm-pyr.h gdb-4.13/gdb/config/pyr/pyramid.mt 666 34562 1752 274 5353462540 15350 0ustar fnfcygnus# Target: Pyramid under OSx 4.0 (4.2bsd). #msg Note that GDB on Pyramids only works with GCC, #msg at least for some programs. TDEPFILES= pyr-pinsn.o pyr-tdep.o exec.o TM_FILE= tm-pyr.h gdb-4.13/gdb/config/pyr/tm-pyr.h 666 34562 1752 45604 5507351556 15015 0ustar fnfcygnus/* Definitions to make GDB run on a Pyramid under OSx 4.0 (4.2bsd). Copyright 1988, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* Traditional Unix virtual address spaces have thre regions: text, data and stack. The text, initialised data, and uninitialised data are represented in separate segments of the a.out file. When a process dumps core, the data and stack regions are written to a core file. This gives a debugger enough information to reconstruct (and debug) the virtual address space at the time of the coredump. Pyramids have an distinct fourth region of the virtual address space, in which the contents of the windowed registers are stacked in fixed-size frames. Pyramid refer to this region as the control stack. Each call (or trap) automatically allocates a new register frame; each return deallocates the current frame and restores the windowed registers to their values before the call. When dumping core, the control stack is written to a core files as a third segment. The core-handling functions need to know to deal with it. */ /* Tell core.c there is an extra segment. */ #define REG_STACK_SEGMENT /* Floating point is IEEE compatible on most Pyramid hardware (Older processors do not have IEEE NaNs). */ #define IEEE_FLOAT /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ /* FIXME -- do we want to skip insns to allocate the local frame? If so, what do they look like? This is becoming harder, since tege@sics.SE wants to change gcc to not output a prologue when no frame is needed. */ #define SKIP_PROLOGUE(pc) do {} while (0) /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) FRAME_SAVED_PC(frame) /* Address of end of stack space. */ /* This seems to be right for the 90x comp.vuw.ac.nz. The correct value at any site may be a function of the configured maximum control stack depth. If so, I don't know where the control-stack depth is configured, so I can't #include it here. */ #define STACK_END_ADDR (0xc00cc000) /* Register window stack (Control stack) stack definitions - Address of beginning of control stack. - size of control stack frame (Note that since crts0 is usually the first function called, main()'s control stack is one frame (0x80 bytes) beyond this value. */ #define CONTROL_STACK_ADDR (0xc00cd000) /* Bytes in a register window -- 16 parameter regs, 16 local regs for each call, is 32 regs * 4 bytes */ #define CONTROL_STACK_FRAME_SIZE (32*4) /* FIXME. On a pyr, Data Stack grows downward; control stack goes upwards. Which direction should we use for INNER_THAN, PC_INNER_THAN ?? */ #define INNER_THAN < #define PC_INNER_THAN > /* Stack has strict alignment. */ #define STACK_ALIGN(ADDR) (((ADDR)+3)&-4) /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0xf0, 00, 00, 00} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. On a pyr, this is either "ret" or "retd". It would be friendly to check that any "retd" always had an argument of 0, since anything else is invalid. */ #define ABOUT_TO_RETURN(pc) \ (((read_memory_integer (pc, 2) & 0x3ff0) == 0x3090) || \ ((read_memory_integer (pc, 2) & 0x0ff0) == 0x00a0)) /* Return 1 if P points to an invalid floating point value. LEN is the length in bytes -- not relevant on the Vax. */ /* FIXME -- this is ok for a vax, bad for big-endian ieee format. I would use the definition for a Sun; but it is no better! */ #define INVALID_FLOAT(p, len) ((*(short *) p & 0xff80) == 0x8000) /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ /* pyramids have 64, plus one for the PSW; plus perhaps one more for the kernel stack pointer (ksp) and control-stack pointer (CSP) */ #define NUM_REGS 67 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES \ {"gr0", "gr1", "gr2", "gr3", "gr4", "gr5", "gr6", "gr7", \ "gr8", "gr9", "gr10", "gr11", "logpsw", "cfp", "sp", "pc", \ "pr0", "pr1", "pr2", "pr3", "pr4", "pr5", "pr6", "pr7", \ "pr8", "pr9", "pr10", "pr11", "pr12", "pr13", "pr14", "pr15", \ "lr0", "lr1", "lr2", "lr3", "lr4", "lr5", "lr6", "lr7", \ "lr8", "lr9", "lr10", "lr11", "lr12", "lr13", "lr14", "lr15", \ "tr0", "tr1", "tr2", "tr3", "tr4", "tr5", "tr6", "tr7", \ "tr8", "tr9", "tr10", "tr11", "tr12", "tr13", "tr14", "tr15", \ "psw", "ksp", "csp"} /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ /* pseudo-registers: */ #define PS_REGNUM 64 /* Contains processor status */ #define PSW_REGNUM 64 /* Contains current psw, whatever it is.*/ #define CSP_REGNUM 65 /* address of this control stack frame*/ #define KSP_REGNUM 66 /* Contains process's Kernel Stack Pointer */ #define CFP_REGNUM 13 /* Current data-stack frame ptr */ #define TR0_REGNUM 48 /* After function call, contains function result */ /* Registers interesting to the machine-independent part of gdb*/ #define FP_REGNUM CSP_REGNUM /* Contains address of executing (control) stack frame */ #define SP_REGNUM 14 /* Contains address of top of stack -??*/ #define PC_REGNUM 15 /* Contains program counter */ /* Define DO_REGISTERS_INFO() to do machine-specific formatting of register dumps. */ #define DO_REGISTERS_INFO(_regnum, fp) pyr_do_registers_info(_regnum, fp) /* need this so we can find the global registers: they never get saved. */ extern unsigned int global_reg_offset; extern unsigned int last_frame_offset; /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (NUM_REGS*4) /* the Pyramid has register windows. */ #define HAVE_REGISTER_WINDOWS /* Is this register part of the register window system? A yes answer implies that 1) The name of this register will not be the same in other frames, and 2) This register is automatically "saved" (out registers shifting into ins counts) upon subroutine calls and thus there is no need to search more than one stack frame for it. */ #define REGISTER_IN_WINDOW_P(regnum) \ ((regnum) >= 16 && (regnum) < 64) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N) * 4) /* Number of bytes of storage in the actual machine representation for register N. On the Pyramid, all regs are 4 bytes. */ #define REGISTER_RAW_SIZE(N) 4 /* Number of bytes of storage in the program's representation for register N. On the Pyramid, all regs are 4 bytes. */ #define REGISTER_VIRTUAL_SIZE(N) 4 /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 4 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 4 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) builtin_type_int /* FIXME: It seems impossible for both EXTRACT_RETURN_VALUE and STORE_RETURN_VALUE to be correct. */ /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ /****FIXME****/ #define STORE_STRUCT_RETURN(ADDR, SP) \ { write_register (TR0_REGNUM, (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ /* Note that on a register-windowing machine (eg, Pyr, SPARC), this is where the value is found after the function call -- ie, it should correspond to GNU CC's FUNCTION_VALUE rather than FUNCTION_OUTGOING_VALUE.*/ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, ((int *)(REGBUF))+TR0_REGNUM, TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ /* on pyrs, values are returned in */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (REGISTER_BYTE(TR0_REGNUM), VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ /* FIXME */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ ( ((int *)(REGBUF)) [TR0_REGNUM]) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ #define EXTRA_FRAME_INFO \ FRAME_ADDR bottom; \ CORE_ADDR frame_cfp; \ CORE_ADDR frame_window_addr; /* The bottom field is misnamed, since it might imply that memory from bottom to frame contains this frame. That need not be true if stack frames are allocated in different segments (e.g. some on a stack, some on a heap in the data segment). */ #define INIT_EXTRA_FRAME_INFO(fromleaf, fci) \ do { \ (fci)->frame_window_addr = (fci)->frame; \ (fci)->bottom = \ ((fci)->next ? \ ((fci)->frame == (fci)->next->frame ? \ (fci)->next->bottom : (fci)->next->frame) : \ read_register (SP_REGNUM)); \ (fci)->frame_cfp = \ read_register (CFP_REGNUM); \ /***fprintf (stderr, \ "[[creating new frame for %0x,pc=%0x,csp=%0x]]\n", \ (fci)->frame, (fci)->pc,(fci)->frame_cfp);*/ \ } while (0); /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ /* In the case of the pyr, the frame's nominal address is the address of parameter register 0. The previous frame is found 32 words up. */ #define FRAME_CHAIN(thisframe) \ ( (thisframe) -> frame - CONTROL_STACK_FRAME_SIZE) /*((thisframe) >= CONTROL_STACK_ADDR))*/ /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. I do not understand what this means on a Pyramid, where functions *always* have a control-stack frame, but may or may not have a frame on the data stack. Since GBD uses the value of the control stack pointer as its "address" of a frame, FRAMELESS is always 1, so does not need to be defined. */ /* Where is the PC for a specific frame */ #define FRAME_SAVED_PC(fi) \ ((CORE_ADDR) (read_memory_integer ( (fi) -> frame + 60, 4))) /* There may be bugs in FRAME_ARGS_ADDRESS and FRAME_LOCALS_ADDRESS; or there may be bugs in accessing the registers that break their definitions. Having the macros expand into functions makes them easier to debug. When the bug is finally located, the inline macro defintions can be un-#if 0ed, and frame_args_addr and frame_locals_address can be deleted from pyr-dep.c */ /* If the argument is on the stack, it will be here. */ #define FRAME_ARGS_ADDRESS(fi) \ frame_args_addr(fi) #define FRAME_LOCALS_ADDRESS(fi) \ frame_locals_address(fi) /* The following definitions doesn't seem to work. I don't understand why. */ #if 0 #define FRAME_ARGS_ADDRESS(fi) \ /*(FRAME_FP(fi) + (13*4))*/ (read_register (CFP_REGNUM)) #define FRAME_LOCALS_ADDRESS(fi) \ ((fi)->frame +(16*4)) #endif /* 0 */ /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(val, fi) (val = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. Note that on register window machines, we are currently making the assumption that window registers are being saved somewhere in the frame in which they are being used. If they are stored in an inferior frame, find_saved_register will break. On pyrs, frames of window registers are stored contiguously on a separate stack. All window registers are always stored. The pc and psw (gr15 and gr14) are also always saved: the call insn saves them in pr15 and pr14 of the new frame (tr15,tr14 of the old frame). The data-stack frame pointer (CFP) is only saved in functions which allocate a (data)stack frame (with "adsf"). We detect them by looking at the first insn of the procedure. Other non-window registers (gr0-gr11) are never saved. Pyramid's C compiler and gcc currently ignore them, so it's not an issue. */ #define FRAME_FIND_SAVED_REGS(fi_p, frame_saved_regs) \ { register int regnum; \ register CORE_ADDR pc; \ register CORE_ADDR fn_start_pc; \ register int first_insn; \ register CORE_ADDR prev_cf_addr; \ register int window_ptr; \ FRAME fid = FRAME_INFO_ID (fi_p); \ if (!fid) fatal ("Bad frame info struct in FRAME_FIND_SAVED_REGS"); \ memset (&(frame_saved_regs), '\0', sizeof (frame_saved_regs)); \ \ window_ptr = prev_cf_addr = FRAME_FP(fi_p); \ \ for (regnum = 16 ; regnum < 64; regnum++,window_ptr+=4) \ { \ (frame_saved_regs).regs[regnum] = window_ptr; \ } \ \ /* In each window, psw, and pc are "saved" in tr14,tr15. */ \ /*** psw is sometimes saved in gr12 (so sez ) */ \ (frame_saved_regs).regs[PS_REGNUM] = FRAME_FP(fi_p) + (14*4); \ \ /*(frame_saved_regs).regs[PC_REGNUM] = (frame_saved_regs).regs[31];*/ \ (frame_saved_regs).regs[PC_REGNUM] = FRAME_FP(fi_p) + ((15+32)*4); \ \ /* Functions that allocate a frame save sp *where*? */ \ /*first_insn = read_memory_integer (get_pc_function_start ((fi_p)->pc),4); */ \ \ fn_start_pc = (get_pc_function_start ((fi_p)->pc)); \ first_insn = read_memory_integer(fn_start_pc, 4); \ \ if (0x08 == ((first_insn >> 20) &0x0ff)) { \ /* NB: because WINDOW_REGISTER_P(cfp) is false, a saved cfp \ in this frame is only visible in this frame's callers. \ That means the cfp we mark saved is my caller's cfp, ie pr13. \ I don't understand why we don't have to do that for pc, too. */ \ \ (frame_saved_regs).regs[CFP_REGNUM] = FRAME_FP(fi_p)+(13*4); \ \ (frame_saved_regs).regs[SP_REGNUM] = \ read_memory_integer (FRAME_FP(fi_p)+((13+32)*4),4); \ } \ \ /* \ *(frame_saved_regs).regs[CFP_REGNUM] = (frame_saved_regs).regs[61]; \ * (frame_saved_regs).regs[SP_REGNUM] = \ * read_memory_integer (FRAME_FP(fi_p)+((13+32)*4),4); \ */ \ \ (frame_saved_regs).regs[CSP_REGNUM] = prev_cf_addr; \ } /* Things needed for making the inferior call functions. */ #if 0 /* These are all lies. These macro definitions are appropriate for a SPARC. On a pyramid, pushing a dummy frame will surely involve writing the control stack pointer, then saving the pc. This requires a privileged instruction. Maybe one day Pyramid can be persuaded to add a syscall to do this. Until then, we are out of luck. */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME \ { register CORE_ADDR sp = read_register (SP_REGNUM);\ register int regnum; \ sp = push_word (sp, 0); /* arglist */ \ for (regnum = 11; regnum >= 0; regnum--) \ sp = push_word (sp, read_register (regnum)); \ sp = push_word (sp, read_register (PC_REGNUM)); \ sp = push_word (sp, read_register (FP_REGNUM)); \ /* sp = push_word (sp, read_register (AP_REGNUM));*/ \ sp = push_word (sp, (read_register (PS_REGNUM) & 0xffef) \ + 0x2fff0000); \ sp = push_word (sp, 0); \ write_register (SP_REGNUM, sp); \ write_register (FP_REGNUM, sp); \ /* write_register (AP_REGNUM, sp + 17 * sizeof (int));*/ } /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME \ { register CORE_ADDR fp = read_register (FP_REGNUM); \ register int regnum; \ register int regmask = read_memory_integer (fp + 4, 4); \ write_register (PS_REGNUM, \ (regmask & 0xffff) \ | (read_register (PS_REGNUM) & 0xffff0000)); \ write_register (PC_REGNUM, read_memory_integer (fp + 16, 4)); \ write_register (FP_REGNUM, read_memory_integer (fp + 12, 4)); \ /* write_register (AP_REGNUM, read_memory_integer (fp + 8, 4));*/ \ fp += 16; \ for (regnum = 0; regnum < 12; regnum++) \ if (regmask & (0x10000 << regnum)) \ write_register (regnum, read_memory_integer (fp += 4, 4)); \ fp = fp + 4 + ((regmask >> 30) & 3); \ if (regmask & 0x20000000) \ { regnum = read_memory_integer (fp, 4); \ fp += (regnum + 1) * 4; } \ write_register (SP_REGNUM, fp); \ set_current_frame (read_register (FP_REGNUM)); } /* This sequence of words is the instructions calls #69, @#32323232 bpt Note this is 8 bytes. */ #define CALL_DUMMY {0x329f69fb, 0x03323232} #define CALL_DUMMY_START_OFFSET 0 /* Start execution at beginning of dummy */ /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { *((char *) dummyname + 1) = nargs; \ *(int *)((char *) dummyname + 3) = fun; } #endif /* 0 */ #define POP_FRAME \ { error ("The return command is not supported on this machine."); } gdb-4.13/gdb/config/pyr/xm-pyr.h 666 34562 1752 7151 5565224176 14775 0ustar fnfcygnus/* Definitions to make GDB run on a Pyramidax under OSx 4.0 (4.2bsd). Copyright 1988, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* Define PYRAMID_CONTROL_FRAME_DEBUGGING to get copious messages about reading the control stack on standard output. This makes gdb unusable as a debugger. */ /* #define PYRAMID_CONTROL_FRAME_DEBUGGING */ /* Define PYRAMID_FRAME_DEBUGGING for ? */ /* use Pyramid's slightly strange ptrace */ #define PYRAMID_PTRACE /* Traditional Unix virtual address spaces have thre regions: text, data and stack. The text, initialised data, and uninitialised data are represented in separate segments of the a.out file. When a process dumps core, the data and stack regions are written to a core file. This gives a debugger enough information to reconstruct (and debug) the virtual address space at the time of the coredump. Pyramids have an distinct fourth region of the virtual address space, in which the contents of the windowed registers are stacked in fixed-size frames. Pyramid refer to this region as the control stack. Each call (or trap) automatically allocates a new register frame; each return deallocates the current frame and restores the windowed registers to their values before the call. When dumping core, the control stack is written to a core files as a third segment. The core-handling functions need to know to deal with it. */ /* Tell dep.c what the extra segment is. */ #define PYRAMID_CORE #define NO_SIGINTERRUPT #define HAVE_WAIT_STRUCT /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR (0x80000000 - (UPAGES * NBPG)) /* Define offsets of registers in the core file (or maybe u area) */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { struct user __u; \ addr = blockend + (regno - 16 ) * 4; \ if (regno == 67) { \ printf("\\geting reg 67\\"); \ addr = (int)(&__u.u_pcb.pcb_csp) - (int) &__u; \ } else if (regno == KSP_REGNUM) { \ printf("\\geting KSP (reg %d)\\", KSP_REGNUM); \ addr = (int)(&__u.u_pcb.pcb_ksp) - (int) &__u; \ } else if (regno == CSP_REGNUM) { \ printf("\\geting CSP (reg %d\\",CSP_REGNUM); \ addr = (int)(&__u.u_pcb.pcb_csp) - (int) &__u; \ } else if (regno == 64) { \ printf("\\geting reg 64\\"); \ addr = (int)(&__u.u_pcb.pcb_csp) - (int) &__u; \ } else if (regno == PS_REGNUM) \ addr = blockend - 4; \ else if (1 && ((16 > regno) && (regno > 11))) \ addr = last_frame_offset + (4 *(regno+32)); \ else if (0 && (12 > regno)) \ addr = global_reg_offset + (4 *regno); \ else if (16 > regno) \ addr = global_reg_offset + (4 *regno); \ else \ addr = blockend + (regno - 16 ) * 4; \ } /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS gdb-4.13/gdb/config/romp/ 777 34562 1752 0 5623250655 13443 5ustar fnfcygnusgdb-4.13/gdb/config/romp/rtbsd.mh 666 34562 1752 626 5355704150 15147 0ustar fnfcygnus# IBM RT/PC running BSD unix. # This file contributed at NYU, where we are using the RT to remote # debug an a29k running unix. No attempt, as of 7/16/91, has been made # to support debugging of RT executables. XDEPFILES=coredep.o corelow.o infptrace.o inftarg.o fork-child.o MH_CFLAGS=-DHOSTING_ONLY # No debugging of RT executables XM_FILE= xm-rtbsd.h CC=gcc -traditional # hc/pcc just can't cut it. gdb-4.13/gdb/config/romp/xm-rtbsd.h 666 34562 1752 2760 5565224201 15432 0ustar fnfcygnus/* Definitions to host GDB on an IBM RT/PC running BSD Unix. Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. Contributed by David Wood @ New York University (wood@lab.ultra.nyu.edu). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This machine is most significant byte first */ #define HOST_BYTE_ORDER BIG_ENDIAN /* This OS has the wait structure */ #define HAVE_WAIT_STRUCT #ifdef HOSTING_ONLY /* * This next two defines are to get GDB up and running as a host to * do remote debugging. I know there is a gdb for the RT, but there wasn't * an xconfig/rt* file. */ #define KERNEL_U_ADDR_BSD /* This may be correct, but hasn't been tested */ #define REGISTER_U_ADDR(a,b,c) \ (printf("GDB can not debug IBM RT/PC BSD executables (yet)\n"),\ quit(),0) #else # include "GDB for the RT is not included in the distribution" #endif gdb-4.13/gdb/config/rs6000/ 777 34562 1752 0 5623250662 13416 5ustar fnfcygnusgdb-4.13/gdb/config/rs6000/nm-rs6000.h 666 34562 1752 3402 5560320306 15201 0ustar fnfcygnus/* IBM RS/6000 native-dependent macros for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Do implement the attach and detach commands. */ #define ATTACH_DETACH #define PTRACE_ATTACH PT_ATTACH #define PTRACE_DETACH PT_DETACH /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS /* When a child process is just starting, we sneak in and relocate the symbol table (and other stuff) after the dynamic linker has figured out where they go. */ #define SOLIB_CREATE_INFERIOR_HOOK(PID) \ do { \ xcoff_relocate_symtab (PID); \ } while (0) /* When a target process or core-file has been attached, we sneak in and figure out where the shared libraries have got to. */ #define SOLIB_ADD(a, b, c) \ if (inferior_pid) \ /* Attach to process. */ \ xcoff_relocate_symtab (inferior_pid); \ else \ /* Core file. */ \ xcoff_relocate_core (); extern void xcoff_relocate_symtab PARAMS ((unsigned int)); extern void xcoff_relocate_core PARAMS ((void)); gdb-4.13/gdb/config/rs6000/nm-rs6000ly.h 666 34562 1752 1605 5531162342 15553 0ustar fnfcygnus/* Native-dependent definitions for RS6000 running LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef NM_RS6000LYNX_H #define NM_RS6000LYNX_H #include "nm-lynx.h" #endif /* NM_RS6000LYNX_H */ gdb-4.13/gdb/config/rs6000/rs6000.mh 666 34562 1752 3122 5461021024 14740 0ustar fnfcygnus# Host machine: IBM RS/6000 running AIX 3.2. # Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. # This file is part of GDB. # GDB 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 1, or (at your option) # any later version. # GDB 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 GDB; see the file COPYING. If not, write to # the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. XDEPFILES= XM_FILE= xm-rs6000.h NAT_FILE= nm-rs6000.h NATDEPFILES= fork-child.o infptrace.o inftarg.o corelow.o rs6000-nat.o xcoffread.o # When compiled with cc, for debugging, this argument should be passed. # We have no idea who our current compiler is though, so we skip it. # MH_CFLAGS = -bnodelcsect # Because of shared libraries, we risk ending up with *two* # incompatible versions of malloc if we use GNU malloc ... MMALLOC = MMALLOC_DISABLE = -DNO_MMALLOC # A bug in the AIX 3.2 libc.a results in unresolved references for .scalb and # .finite becuase we call ldexp. Circumvent by adding -lm. FIXME, IBM. # (Where do we call ldexp? According to POSIX.2+ANSI, ldexp requires -lm). XM_CLIBS= -lm # Rumor has it that libtermcap is "not really functional", # and that -lcurses is better TERMCAP= -lcurses gdb-4.13/gdb/config/rs6000/rs6000.mt 666 34562 1752 1545 5353462601 14775 0ustar fnfcygnus# Target machine: AIX 3.1 on IBM RS/6000. # Copyright (C) 1991 Free Software Foundation, Inc. # This file is part of GDB. # GDB 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 1, or (at your option) # any later version. # GDB 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 GDB; see the file COPYING. If not, write to # the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. TDEPFILES= rs6000-pinsn.o rs6000-tdep.o xcoffsolib.o xcoffexec.o TM_FILE= tm-rs6000.h gdb-4.13/gdb/config/rs6000/rs6000lynx.mh 666 34562 1752 374 5573407324 15660 0ustar fnfcygnus# Host: RS6000 running LynxOS XM_FILE= xm-rs6000ly.h XDEPFILES= NAT_FILE= nm-rs6000ly.h NATDEPFILES= fork-child.o infptrace.o inftarg.o corelow.o lynx-nat.o xcoffread.o REGEX=regex.o REGEX1=regex.o GDBSERVER_LIBS= -lbsd GDBSERVER_DEPFILES= low-lynx.o gdb-4.13/gdb/config/rs6000/rs6000lynx.mt 666 34562 1752 170 5573407325 15667 0ustar fnfcygnus# Target: RS6000 running LynxOS TDEPFILES= coff-solib.o rs6000-pinsn.o rs6000-tdep.o xcoffexec.o TM_FILE= tm-rs6000ly.h gdb-4.13/gdb/config/rs6000/tm-rs6000.h 666 34562 1752 50052 5527026013 15233 0ustar fnfcygnus/* Parameters for target execution on an RS6000, for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by IBM Corporation. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Minimum possible text address in AIX */ #define TEXT_SEGMENT_BASE 0x10000000 /* Load segment of a given pc value. */ #define PC_LOAD_SEGMENT(PC) pc_load_segment_name(PC) /* AIX cc seems to get this right. */ #define BELIEVE_PCC_PROMOTION 1 /* return true if a given `pc' value is in `call dummy' function. */ /* FIXME: This just checks for the end of the stack, which is broken for things like stepping through gcc nested function stubs. */ #define PC_IN_CALL_DUMMY(STOP_PC, STOP_SP, STOP_FRAME_ADDR) \ (STOP_SP < STOP_PC && STOP_PC < STACK_END_ADDR) #if 0 extern unsigned int text_start, data_start; extern char *corefile; #endif extern int inferior_pid; /* setpgrp() messes up controling terminal. The other version of it requires libbsd.a. */ #define setpgrp(XX,YY) setpgid (XX, YY) /* We are missing register descriptions in the system header files. Sigh! */ struct regs { int gregs [32]; /* general purpose registers */ int pc; /* program conter */ int ps; /* processor status, or machine state */ }; struct fp_status { double fpregs [32]; /* floating GP registers */ }; /* To be used by function_frame_info. */ struct aix_framedata { int offset; /* # of bytes in gpr's and fpr's are saved */ int saved_gpr; /* smallest # of saved gpr */ int saved_fpr; /* smallest # of saved fpr */ int alloca_reg; /* alloca register number (frame ptr) */ char frameless; /* true if frameless functions. */ char nosavedpc; /* true if pc not saved. */ }; void function_frame_info PARAMS ((CORE_ADDR, struct aix_framedata *)); /* Define the byte order of the machine. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* AIX's assembler doesn't grok dollar signs in identifiers. So we use dots instead. This item must be coordinated with G++. */ #undef CPLUS_MARKER #define CPLUS_MARKER '.' /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(pc) pc = skip_prologue (pc) /* If PC is in some function-call trampoline code, return the PC where the function itself actually starts. If not, return NULL. */ #define SKIP_TRAMPOLINE_CODE(pc) skip_trampoline_code (pc) /* Number of trap signals we need to skip over, once the inferior process starts running. */ #define START_INFERIOR_TRAPS_EXPECTED 2 /* AIX has a couple of strange returns from wait(). */ #define CHILD_SPECIAL_WAITSTATUS(ourstatus, hoststatus) ( \ /* "stop after load" status. */ \ (hoststatus) == 0x57c ? (ourstatus)->kind = TARGET_WAITKIND_LOADED, 1 : \ \ /* signal 0. I have no idea why wait(2) returns with this status word. */ \ /* It looks harmless. */ \ (hoststatus) == 0x7f ? (ourstatus)->kind = TARGET_WAITKIND_SPURIOUS, 1 : \ \ /* A normal waitstatus. Let the usual macros deal with it. */ \ 0) /* In xcoff, we cannot process line numbers when we see them. This is mainly because we don't know the boundaries of the include files. So, we postpone that, and then enter and sort(?) the whole line table at once, when we are closing the current symbol table in end_symtab(). */ #define PROCESS_LINENUMBER_HOOK() aix_process_linenos () /* Immediately after a function call, return the saved pc. Can't go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) read_register (LR_REGNUM) /* Address of end of stack space. */ #define STACK_END_ADDR 0x2ff80000 /* Stack grows downward. */ #define INNER_THAN < #if 0 /* No, we shouldn't use this. push_arguments() should leave stack in a proper alignment! */ /* Stack has strict alignment. */ #define STACK_ALIGN(ADDR) (((ADDR)+7)&-8) #endif /* This is how argumets pushed onto stack or passed in registers. */ #define PUSH_ARGUMENTS(nargs, args, sp, struct_return, struct_addr) \ sp = push_arguments(nargs, args, sp, struct_return, struct_addr) /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0x7d, 0x82, 0x10, 0x08} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ /* Allow any of the return instructions, including a trapv and a return from interrupt. */ #define ABOUT_TO_RETURN(pc) \ ((read_memory_integer (pc, 4) & 0xfe8007ff) == 0x4e800020) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 71 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES \ {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \ "r8", "r9", "r10","r11","r12","r13","r14","r15", \ "r16","r17","r18","r19","r20","r21","r22","r23", \ "r24","r25","r26","r27","r28","r29","r30","r31", \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "f8", "f9", "f10","f11","f12","f13","f14","f15", \ "f16","f17","f18","f19","f20","f21","f22","f23", \ "f24","f25","f26","f27","f28","f29","f30","f31", \ "pc", "ps", "cnd", "lr", "cnt", "xer", "mq" } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define FP_REGNUM 1 /* Contains address of executing stack frame */ #define SP_REGNUM 1 /* Contains address of top of stack */ #define TOC_REGNUM 2 /* TOC register */ #define FP0_REGNUM 32 /* Floating point register 0 */ #define GP0_REGNUM 0 /* GPR register 0 */ #define FP0_REGNUM 32 /* FPR (Floating point) register 0 */ #define FPLAST_REGNUM 63 /* Last floating point register */ /* Special purpose registers... */ /* P.S. keep these in the same order as in /usr/mstsave.h `mstsave' structure, for easier processing */ #define PC_REGNUM 64 /* Program counter (instruction address %iar) */ #define PS_REGNUM 65 /* Processor (or machine) status (%msr) */ #define CR_REGNUM 66 /* Condition register */ #define LR_REGNUM 67 /* Link register */ #define CTR_REGNUM 68 /* Count register */ #define XER_REGNUM 69 /* Fixed point exception registers */ #define MQ_REGNUM 70 /* Multiply/quotient register */ #define FIRST_SP_REGNUM 64 /* first special register number */ #define LAST_SP_REGNUM 70 /* last special register number */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. 32 4-byte gpr's 32 8-byte fpr's 7 4-byte special purpose registers, total 416 bytes. Keep some extra space for now, in case to add more. */ #define REGISTER_BYTES 420 /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) \ ( \ ((N) > FPLAST_REGNUM) ? ((((N) - FPLAST_REGNUM -1) * 4) + 384)\ :((N) >= FP0_REGNUM) ? ((((N) - FP0_REGNUM) * 8) + 128) \ :((N) * 4) ) /* Number of bytes of storage in the actual machine representation for register N. */ /* Note that the unsigned cast here forces the result of the subtractiion to very high positive values if N < FP0_REGNUM */ #define REGISTER_RAW_SIZE(N) (((unsigned)(N) - FP0_REGNUM) < 32 ? 8 : 4) /* Number of bytes of storage in the program's representation for register N. On the RS6000, all regs are 4 bytes except the floating point regs which are 8-byte doubles. */ #define REGISTER_VIRTUAL_SIZE(N) (((unsigned)(N) - FP0_REGNUM) < 32 ? 8 : 4) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 8 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* convert a dbx stab register number (from `r' declaration) to a gdb REGNUM */ #define STAB_REG_TO_REGNUM(value) (value) /* Nonzero if register N requires conversion from raw format to virtual format. The register format for rs6000 floating point registers is always double, we need a conversion if the memory format is float. */ #define REGISTER_CONVERTIBLE(N) ((N) >= FP0_REGNUM && (N) <= FPLAST_REGNUM) /* Convert data from raw format for register REGNUM in buffer FROM to virtual format with type TYPE in buffer TO. */ #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,TYPE,FROM,TO) \ { \ if (TYPE_LENGTH (TYPE) != REGISTER_RAW_SIZE (REGNUM)) \ { \ double val = extract_floating ((FROM), REGISTER_RAW_SIZE (REGNUM)); \ store_floating ((TO), TYPE_LENGTH (TYPE), val); \ } \ else \ memcpy ((TO), (FROM), REGISTER_RAW_SIZE (REGNUM)); \ } /* Convert data from virtual format with type TYPE in buffer FROM to raw format for register REGNUM in buffer TO. */ #define REGISTER_CONVERT_TO_RAW(TYPE,REGNUM,FROM,TO) \ { \ if (TYPE_LENGTH (TYPE) != REGISTER_RAW_SIZE (REGNUM)) \ { \ double val = extract_floating ((FROM), TYPE_LENGTH (TYPE)); \ store_floating ((TO), REGISTER_RAW_SIZE (REGNUM), val); \ } \ else \ memcpy ((TO), (FROM), REGISTER_RAW_SIZE (REGNUM)); \ } /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ (((unsigned)(N) - FP0_REGNUM) < 32 ? builtin_type_double : builtin_type_int) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ /* in RS6000, struct return addresses are passed as an extra parameter in r3. In function return, callee is not responsible of returning this address back. Since gdb needs to find it, we will store in a designated variable `rs6000_struct_return_address'. */ extern CORE_ADDR rs6000_struct_return_address; #define STORE_STRUCT_RETURN(ADDR, SP) \ { write_register (3, (ADDR)); \ rs6000_struct_return_address = (ADDR); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ /* #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, REGBUF, TYPE_LENGTH (TYPE)) */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ extract_return_value(TYPE,REGBUF,VALBUF) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ { \ if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ \ /* Floating point values are returned starting from FPR1 and up. \ Say a double_double_double type could be returned in \ FPR1/FPR2/FPR3 triple. */ \ \ write_register_bytes (REGISTER_BYTE (FP0_REGNUM+1), (VALBUF), \ TYPE_LENGTH (TYPE)); \ else \ /* Everything else is returned in GPR3 and up. */ \ write_register_bytes (REGISTER_BYTE (GP0_REGNUM+3), (VALBUF), \ TYPE_LENGTH (TYPE)); \ } /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) rs6000_struct_return_address /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ /* In the case of the RS6000, the frame's nominal address is the address of a 4-byte word containing the calling frame's address. */ #define FRAME_CHAIN(thisframe) rs6000_frame_chain (thisframe) #ifdef __STDC__ struct frame_info; #endif CORE_ADDR rs6000_frame_chain PARAMS ((struct frame_info *)); /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ FRAMELESS = frameless_function_invocation (FI, 0) /* Functions calling alloca() change the value of the stack pointer. We need to use initial stack pointer (which is saved in r31 by gcc) in such cases. If a compiler emits traceback table, then we should use the alloca register specified in traceback table. FIXME. */ /* Also, it is a good idea to cache information about frame's saved registers in the frame structure to speed things up. See tm-m88k.h. FIXME. */ #define EXTRA_FRAME_INFO \ CORE_ADDR initial_sp; /* initial stack pointer. */ \ struct frame_saved_regs *cache_fsr; /* saved registers */ #define INIT_FRAME_PC_FIRST(fromleaf, prev) \ prev->pc = (fromleaf ? SAVED_PC_AFTER_CALL (prev->next) : \ prev->next ? FRAME_SAVED_PC (prev->next) : read_pc ()); #define INIT_FRAME_PC(fromleaf, prev) /* nothing */ #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \ fi->initial_sp = 0; \ fi->cache_fsr = 0; \ if (fi->next != (CORE_ADDR)0 \ && read_memory_integer (fi->frame, 4) == 0 \ && fi->pc < TEXT_SEGMENT_BASE) \ /* We're in get_prev_frame_info */ \ /* and this is a special signal frame. */ \ /* (fi->pc will be something like 0x3f88 or 0x2790). */ \ fi->signal_handler_caller = 1; /* Frameless function invocation in IBM RS/6000 is sometimes half-done. It perfectly sets up a new frame, e.g. a new frame (in fact stack) pointer, etc, but it doesn't save the %pc. We call frameless_function_invocation to tell us how to get the %pc. */ #define FRAME_SAVED_PC(FRAME) \ (frameless_function_invocation (FRAME, 1) \ ? SAVED_PC_AFTER_CALL (FRAME) \ : read_memory_integer (rs6000_frame_chain (FRAME)+8, 4)) #define FRAME_ARGS_ADDRESS(FI) \ (((struct frame_info*)(FI))->initial_sp ? \ ((struct frame_info*)(FI))->initial_sp : \ frame_initial_stack_address (FI)) #define FRAME_LOCALS_ADDRESS(FI) FRAME_ARGS_ADDRESS(FI) /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can't tell how many args there are now that the C compiler delays popping them. */ #define FRAME_NUM_ARGS(val,fi) (val = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 8 /* Not sure on this. FIXMEmgo */ /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ /* In the following implementation for RS6000, we did *not* save sp. I am not sure if it will be needed. The following macro takes care of gpr's and fpr's only. */ #define FRAME_FIND_SAVED_REGS(FRAME_INFO, FRAME_SAVED_REGS) \ { \ int ii; \ CORE_ADDR frame_addr, func_start; \ struct aix_framedata fdata; \ \ /* find the start of the function and collect info about its frame. */\ \ func_start = get_pc_function_start ((FRAME_INFO)->pc) + FUNCTION_START_OFFSET; \ function_frame_info (func_start, &fdata); \ memset (&(FRAME_SAVED_REGS), '\0', sizeof (FRAME_SAVED_REGS)); \ \ /* if there were any saved registers, figure out parent's stack pointer. */ \ frame_addr = 0; \ /* the following is true only if the frame doesn't have a call to alloca(), \ FIXME. */ \ if (fdata.saved_fpr >= 0 || fdata.saved_gpr >= 0) { \ if ((FRAME_INFO)->prev && (FRAME_INFO)->prev->frame) \ frame_addr = (FRAME_INFO)->prev->frame; \ else \ frame_addr = read_memory_integer ((FRAME_INFO)->frame, 4); \ } \ \ /* if != -1, fdata.saved_fpr is the smallest number of saved_fpr. All fpr's \ from saved_fpr to fp31 are saved right underneath caller stack pointer, \ starting from fp31 first. */ \ \ if (fdata.saved_fpr >= 0) { \ for (ii=31; ii >= fdata.saved_fpr; --ii) \ (FRAME_SAVED_REGS).regs [FP0_REGNUM + ii] = frame_addr - ((32 - ii) * 8); \ frame_addr -= (32 - fdata.saved_fpr) * 8; \ } \ \ /* if != -1, fdata.saved_gpr is the smallest number of saved_gpr. All gpr's \ from saved_gpr to gpr31 are saved right under saved fprs, starting \ from r31 first. */ \ \ if (fdata.saved_gpr >= 0) \ for (ii=31; ii >= fdata.saved_gpr; --ii) \ (FRAME_SAVED_REGS).regs [ii] = frame_addr - ((32 - ii) * 4); \ } /* Things needed for making the inferior call functions. */ /* Push an empty stack frame, to record the current PC, etc. */ /* Change these names into rs6k_{push, pop}_frame(). FIXMEmgo. */ #define PUSH_DUMMY_FRAME push_dummy_frame () /* Discard from the stack the innermost frame, restoring all saved registers. */ #define POP_FRAME pop_frame () /* This sequence of words is the instructions: mflr r0 // 0x7c0802a6 // save fpr's stfd r?, num(r1) // 0xd8010000 there should be 32 of this?? // save gpr's stm r0, num(r1) // 0xbc010000 stu r1, num(r1) // 0x94210000 // the function we want to branch might be in a different load // segment. reset the toc register. Note that the actual toc address // will be fix by fix_call_dummy () along with function address. st r2, 0x14(r1) // 0x90410014 save toc register liu r2, 0x1234 // 0x3c401234 reset a new toc value 0x12345678 oril r2, r2,0x5678 // 0x60425678 // load absolute address 0x12345678 to r0 liu r0, 0x1234 // 0x3c001234 oril r0, r0,0x5678 // 0x60005678 mtctr r0 // 0x7c0903a6 ctr <- r0 bctrl // 0x4e800421 jump subroutine 0x12345678 (%ctr) cror 0xf, 0xf, 0xf // 0x4def7b82 brpt // 0x7d821008, breakpoint cror 0xf, 0xf, 0xf // 0x4def7b82 (for 8 byte alignment) We actually start executing by saving the toc register first, since the pushing of the registers is done by PUSH_DUMMY_FRAME. If this were real code, the arguments for the function called by the `bctrl' would be pushed between the `stu' and the `bctrl', and we could allow it to execute through. But the arguments have to be pushed by GDB after the PUSH_DUMMY_FRAME is done, and we cannot allow to push the registers again. */ #define CALL_DUMMY {0x7c0802a6, 0xd8010000, 0xbc010000, 0x94210000, \ 0x90410014, 0x3c401234, 0x60425678, \ 0x3c001234, 0x60005678, 0x7c0903a6, 0x4e800421, \ 0x4def7b82, 0x7d821008, 0x4def7b82 } /* keep this as multiple of 8 (%sp requires 8 byte alignment) */ #define CALL_DUMMY_LENGTH 56 #define CALL_DUMMY_START_OFFSET 16 /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, using_gcc) \ fix_call_dummy(dummyname, pc, fun, nargs, type) /* Flag for machine-specific stuff in shared files. FIXME */ #define IBM6000_TARGET /* RS6000/AIX does not support PT_STEP. Has to be simulated. */ #define NO_SINGLE_STEP gdb-4.13/gdb/config/rs6000/tm-rs6000ly.h 666 34562 1752 2030 5531162345 15555 0ustar fnfcygnus/* Macro definitions for RS6000 running under LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef TM_RS6000LYNX_H #define TM_RS6000LYNX_H #include "tm-lynx.h" /* Use generic RS6000 definitions. */ #include "rs6000/tm-rs6000.h" #undef PC_LOAD_SEGMENT #define CANNOT_STORE_REGISTER(regno) (regno == PS_REGNUM) #endif /* TM_RS6000LYNX_H */ gdb-4.13/gdb/config/rs6000/xm-rs6000.h 666 34562 1752 6332 5565224207 15230 0ustar fnfcygnus/* Parameters for hosting on an RS6000, for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by IBM Corporation. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The following text is taken from config/rs6000.mh: * # The IBM version of /usr/include/rpc/rpc.h has a bug -- it says * # `extern fd_set svc_fdset;' without ever defining the type fd_set. * # Unfortunately this occurs in the vx-share code, which is not configured * # like the rest of GDB (e.g. it doesn't include "defs.h"). * # We circumvent this bug by #define-ing fd_set here, but undefining it in * # the xm-rs6000.h file before ordinary modules try to use it. FIXME, IBM! * MH_CFLAGS='-Dfd_set=int' * So, here we do the undefine...which has to occur before we include * below. */ #undef fd_set #include /* Big end is at the low address */ #define HOST_BYTE_ORDER BIG_ENDIAN /* At least as of AIX 3.2, we have termios. */ #define HAVE_TERMIOS 1 /* #define HAVE_TERMIO 1 */ #define USG 1 #define HAVE_SIGSETMASK 1 /* AIX declares the mem functions differently than defs.h does. AIX is right, but defs.h works on more old systems. For now, override it. */ #define MEM_FNS_DECLARED 1 /* This system requires that we open a terminal with O_NOCTTY for it to not become our controlling terminal. */ #define USE_O_NOCTTY /* Brain death inherited from PC's pervades. */ #undef NULL #define NULL 0 /* The IBM compiler requires this in order to properly compile alloca(). */ #pragma alloca /* There is no vfork. */ #define vfork fork /* Setpgrp() takes arguments, unlike ordinary Sys V's. */ #define SETPGRP_ARGS 1 /* AIX doesn't have strdup, so we need to declare it for libiberty */ extern char *strdup PARAMS ((char *)); /* Signal handler for SIGWINCH `window size changed'. */ #define SIGWINCH_HANDLER aix_resizewindow extern void aix_resizewindow (); /* This doesn't seem to be declared in any header file I can find. */ char *termdef PARAMS ((int, int)); /* `lines_per_page' and `chars_per_line' are local to utils.c. Rectify this. */ #define SIGWINCH_HANDLER_BODY \ \ /* Respond to SIGWINCH `window size changed' signal, and reset GDB's \ window settings approproatelt. */ \ \ void \ aix_resizewindow () \ { \ int fd = fileno (stdout); \ if (isatty (fd)) { \ int val; \ \ val = atoi (termdef (fd, 'l')); \ if (val > 0) \ lines_per_page = val; \ val = atoi (termdef (fd, 'c')); \ if (val > 0) \ chars_per_line = val; \ } \ } gdb-4.13/gdb/config/rs6000/xm-rs6000ly.h 666 34562 1752 1734 5531162350 15567 0ustar fnfcygnus/* Host-dependent definitions for RS6000 running LynxOS, for GDB. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef XM_RS6000LYNX_H #define XM_RS6000LYNX_H #define HOST_BYTE_ORDER BIG_ENDIAN /* Get generic LynxOS host definitions. */ #include "xm-lynx.h" #endif /* XM_RS6000LYNX_H */ gdb-4.13/gdb/config/sh/ 777 34562 1752 0 5623250667 13103 5ustar fnfcygnusgdb-4.13/gdb/config/sh/sh.mt 666 34562 1752 344 5603604647 14117 0ustar fnfcygnus# Target: Hitachi Super-H ICE and simulator TDEPFILES= exec.o sh-tdep.o remote-sim.o interp.o table.o remote-e7000.o ser-e7kpc.o over: all interp.o: cp ../sim/sh/interp.o . table.o: cp ../sim/sh/table.o . TM_FILE= tm-sh.h gdb-4.13/gdb/config/sh/tm-sh.h 666 34562 1752 15573 5553557701 14420 0ustar fnfcygnus/* Parameters for execution on a Hitachi Super-H machine. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Contributed by Steve Chamberlain sac@cygnus.com */ #define GDB_TARGET_IS_SH #define IEEE_FLOAT 1 /* Define the bit, byte, and word ordering of the machine. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ extern CORE_ADDR sh_skip_prologue (); #define SKIP_PROLOGUE(ip) \ {(ip) = sh_skip_prologue(ip);} /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. The return address is the value saved in the PR register + 4 */ #define SAVED_PC_AFTER_CALL(frame) \ (ADDR_BITS_REMOVE(read_register(PR_REGNUM))+4) /* Stack grows downward. */ #define INNER_THAN < /* Illegal instruction - used by the simulator for breakpoint detection */ #define BREAKPOINT {0xc3, 0xff} /* 0xc3ff is trapa #ff */ #undef BREAKPOINT #define BREAKPOINT {0x00, 0x1b} /* SLEEP */ /* If your kernel resets the pc after the trap happens you may need to define this before including this file. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer(pc,2) == 0x000b) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ /* Say how long registers are. */ #define REGISTER_TYPE long /* Say how much memory is needed to store a copy of the register set */ #define REGISTER_BYTES (NUM_REGS*4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N)*4) /* Number of bytes of storage in the actual machine representation for register N. */ #define REGISTER_RAW_SIZE(N) 4 #define REGISTER_VIRTUAL_SIZE(N) 4 /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 4 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 4 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) builtin_type_int /* Initializer for an array of names of registers. Entries beyond the first NUM_REGS are ignored. */ #define REGISTER_NAMES \ {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \ "r8", "r9", "r10","r11","r12","r13","r14","r15",\ "pc", "pr","gbr","vbr","mach","macl","sr","ticks","stalls","cycles","insts" ,"plr","tlr" } #define NUM_REGS 28 /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define FP_REGNUM 14 #define SP_REGNUM 15 #define PC_REGNUM 16 #define PR_REGNUM 17 #define GBR_REGNUM 18 #define VBR_REGNUM 19 #define MACH_REGNUM 20 #define MACL_REGNUM 21 #define SR_REGNUM 22 #define NUM_REALREGS 23 /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. We store structs through a pointer passed in R4 */ #define STORE_STRUCT_RETURN(ADDR, SP) \ { write_register (4, (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, (char *)(REGBUF), TYPE_LENGTH(TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. Things always get returned in R4/R5 */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (REGISTER_BYTE(4), VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(CORE_ADDR *)(REGBUF)) /* Define other aspects of the stack frame. we keep a copy of the worked out return pc lying around, since it is a useful bit of info */ #define EXTRA_FRAME_INFO \ CORE_ADDR return_pc; #define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \ init_extra_frame_info(fromleaf, fi) /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ (FRAMELESS) = frameless_look_for_prologue(FI) #define FRAME_CHAIN(FRAME) sh_frame_chain(FRAME) #define FRAME_SAVED_PC(FRAME) ((FRAME)->return_pc) #define FRAME_ARGS_ADDRESS(fi) (fi)->frame #define FRAME_LOCALS_ADDRESS(fi) (fi)->frame /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can't tell how many args there are */ #define FRAME_NUM_ARGS(val,fi) (val = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ frame_find_saved_regs(frame_info, &(frame_saved_regs)) #define NAMES_HAVE_UNDERSCORE typedef unsigned short INSN_WORD; #define ADDR_BITS_REMOVE(addr) ((addr)) #define CALL_DUMMY_LENGTH 10 /* Discard from the stack the innermost frame, restoring all saved registers. */ #define POP_FRAME pop_frame(); #define NOP {0x20, 0x0b} #define REGISTER_SIZE 4 gdb-4.13/gdb/config/sparc/ 777 34562 1752 0 5623250674 13577 5ustar fnfcygnusgdb-4.13/gdb/config/sparc/nm-sparclynx.h 666 34562 1752 1601 5520104135 16443 0ustar fnfcygnus/* Native-dependent definitions for Sparc running LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef NM_SPARCLYNX_H #define NM_SPARCLYNX_H #include "nm-lynx.h" #endif /* NM_SPARCLYNX_H */ gdb-4.13/gdb/config/sparc/nm-sun4os4.h 666 34562 1752 1754 5353462611 15762 0ustar fnfcygnus/* Macro definitions for running gdb on a Sun 4 running sunos 4. Copyright (C) 1989, 1992, Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Do implement the attach and detach commands. */ #define ATTACH_DETACH /* Override copies of {fetch,store}_inferior_registers in infptrace.c. */ #define FETCH_INFERIOR_REGISTERS gdb-4.13/gdb/config/sparc/sp64.mt 666 34562 1752 1262 5543156303 15011 0ustar fnfcygnus# Target: SPARC64 (with simulator) # FIXME: May not always want the simulator. # Need gcc for long long support. CC = gcc # Regular "have long long" detection is disabled for now. MH_CFLAGS = -DFORCE_LONG_LONG -I${srcdir}/../sim/sp64 SIMFILES = remote-sim.o ../sim/sp64/libsim.a # solib.o and procfs.o taken out for now. We don't have shared libraries yet, # and the elf version requires procfs.o but the a.out version doesn't. # Then again, having procfs.o in a target makefile fragment seems wrong. TDEPFILES = exec.o sparc-pinsn.o sparc-tdep.o sp64-tdep.o $(SIMFILES) # The simulator uses the sqrt() function. TM_CLIBS = -lm # configure.in requires "TM_FILE= ". TM_FILE= tm-sp64.h gdb-4.13/gdb/config/sparc/sp64sim.mt 666 34562 1752 633 5457304271 15506 0ustar fnfcygnus# Target: SPARC simulator # Which simulator has deliberately been avoided. There are two and I'm # currently playing with both. /dje # Need gcc for long long support. CC = gcc # Regular "have long long" detection is disabled for now. MH_CFLAGS = -DFORCE_LONG_LONG -I${srcdir}/../sim/sp64 TDEPFILES= exec.o solib.o sparc-pinsn.o sparc-tdep.o sp64-tdep.o remote-sim.o ../sim/sp64/libsim.a TM_FILE= tm-sp64sim.h gdb-4.13/gdb/config/sparc/sparc-em.mt 666 34562 1752 133 5353462613 15703 0ustar fnfcygnus# Target: SPARC embedded TDEPFILES= exec.o sparc-tdep.o sparc-pinsn.o TM_FILE= tm-spc-em.h gdb-4.13/gdb/config/sparc/sparclite.mt 666 34562 1752 171 5576177520 16173 0ustar fnfcygnus# Target: Fujitsu SPARClite processor TDEPFILES= exec.o sparc-tdep.o sparc-pinsn.o sparcl-tdep.o TM_FILE= tm-sparclite.h gdb-4.13/gdb/config/sparc/sparclynx.mh 666 34562 1752 361 5520104136 16173 0ustar fnfcygnus# Host: Sparc running LynxOS XM_FILE= xm-sparclynx.h XDEPFILES= NAT_FILE= nm-sparclynx.h NATDEPFILES= fork-child.o infptrace.o inftarg.o corelow.o lynx-nat.o REGEX=regex.o REGEX1=regex.o GDBSERVER_LIBS= -lbsd GDBSERVER_DEPFILES= low-lynx.o gdb-4.13/gdb/config/sparc/sparclynx.mt 666 34562 1752 161 5464331124 16213 0ustar fnfcygnus# Target: Sparc running LynxOS TDEPFILES= exec.o coff-solib.o sparc-tdep.o sparc-pinsn.o TM_FILE= tm-sparclynx.h gdb-4.13/gdb/config/sparc/sun4os4.mh 666 34562 1752 1012 5454776563 15532 0ustar fnfcygnus# Host: Sun 4 or Sparcstation, running SunOS 4 XDEPFILES= ser-tcp.o XM_FILE= xm-sun4os4.h NAT_FILE= nm-sun4os4.h NATDEPFILES= fork-child.o infptrace.o inftarg.o corelow.o sparc-nat.o HOST_IPC=-DBSD_IPC GDBSERVER_DEPFILES= low-sparc.o # Setting XM_CLIBS=-lresolv would let us use the DNS, but that would screw # anyone who wants to use NIS, which includes at least one Cygnus customer # (PR 3593). So leave it this way until/unless we find a resolver which can # get names from either DNS or NIS from the same GDB binary. gdb-4.13/gdb/config/sparc/sun4os4.mt 666 34562 1752 174 5353462620 15516 0ustar fnfcygnus# Target: Sun 4 or Sparcstation, running SunOS 4 TDEPFILES= exec.o sparc-tdep.o sparc-pinsn.o solib.o TM_FILE= tm-sun4os4.h gdb-4.13/gdb/config/sparc/sun4sol2.mh 666 34562 1752 1751 5602604610 15670 0ustar fnfcygnus# Host: Sun 4 or Sparcstation, running Solaris 2 XDEPFILES= XM_FILE= xm-sun4sol2.h XM_CLIBS= -lsocket -lnsl NAT_FILE= nm-sysv4.h NATDEPFILES= corelow.o core-sol2.o exec.o solib.o procfs.o fork-child.o SYSV_DEFINE=-DSYSV REGEX=regex.o REGEX1=regex.o # SVR4 comes standard with terminfo, and in some implementations, the # old termcap descriptions are incomplete. So ensure that we use the # new terminfo interface and latest terminal descriptions. TERMCAP=-ltermlib # Solaris-2 makes `install' optional in the Berkeley compatability pkg. # cp will do fine. INSTALL = cp # If you are compiling with Sun's compiler, add the -xs option to CC # (e.g. `make CC="cc -xs"'). # Sun's compilers require the -xs option to produce debug information # in the final linked executable. Otherwise they leave it in the .o # files only, with undocumented pointers to it in the linked executable. # This is commented out because we don't assume that the Sun compiler # is in use. #MH_CFLAGS=-xs HOST_IPC=-DBSD_IPC gdb-4.13/gdb/config/sparc/sun4sol2.mt 666 34562 1752 160 5353462623 15666 0ustar fnfcygnus# Target: Sun 4 or Sparcstation, running Solaris 2 TDEPFILES= sparc-tdep.o sparc-pinsn.o TM_FILE= tm-sun4sol2.h gdb-4.13/gdb/config/sparc/tm-sp64.h 666 34562 1752 33346 5543157022 15265 0ustar fnfcygnus/* Target machine sub-parameters for SPARC64, for GDB, the GNU debugger. This is included by other tm-*.h files to define SPARC cpu-related info. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This is (obviously) based on the SPARC Vn (n<9) port. Contributed by Doug Evans (dje@cygnus.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sparc/tm-sparc.h" /* We have long longs. */ #define LONG_LONG /* When passing a structure to a function, Sun cc passes the address in a register, not the structure itself. It (under SunOS4) creates two symbols, so we get a LOC_ARG saying the address is on the stack (a lie, and a serious one since we don't know which register to use), and a LOC_REGISTER saying that the struct is in a register (sort of a lie, but fixable with REG_STRUCT_HAS_ADDR). Gcc version two (as of 1.92) behaves like sun cc. REG_STRUCT_HAS_ADDR is smart enough to distinguish between Sun cc, gcc version 1 and gcc version 2. This still doesn't work if the argument is not one passed in a register (i.e. it's the 7th or later argument). */ #undef REG_STRUCT_HAS_ADDR #define REG_STRUCT_HAS_ADDR(gcc_p) (gcc_p != 1) #undef STRUCT_ARG_SYM_GARBAGE #define STRUCT_ARG_SYM_GARBAGE(gcc_p) (gcc_p != 1) /* Stack has strict alignment. */ #undef STACK_ALIGN #define STACK_ALIGN(ADDR) (((ADDR)+15)&-16) /* Nonzero if instruction at PC is a return instruction. */ /* For SPARC, this is either a "jmpl %o7+8,%g0" or "jmpl %i7+8,%g0". Note: this does not work for functions returning structures under SunOS. This should work for v9, however. */ #undef ABOUT_TO_RETURN #define ABOUT_TO_RETURN(pc) \ ((read_memory_integer (pc, 4)|0x00040000) == 0x81c7e008) /* Say how long (ordinary) registers are. */ #undef REGISTER_TYPE #define REGISTER_TYPE long long /* Number of machine registers */ #undef NUM_REGS #define NUM_REGS 127 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ /* Some of these registers are only accessible from priviledged mode. They are here for kernel debuggers, etc. */ /* FIXME: icc and xcc are currently considered separate registers. This may have to change and consider them as just one (ccr). Let's postpone this as long as we can. */ /* FIXME: fcc0-3 are currently separate, even though they are also part of fsr. May have to remove them but let's postpone this as long as possible. */ /* FIXME: cle and tle are new registers that haven't entered the docs yet. They stand for "current little endian format" and "trap little endian format". */ #undef REGISTER_NAMES #define REGISTER_NAMES \ { "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", \ "o0", "o1", "o2", "o3", "o4", "o5", "sp", "o7", \ "l0", "l1", "l2", "l3", "l4", "l5", "l6", "l7", \ "i0", "i1", "i2", "i3", "i4", "i5", "fp", "i7", \ \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", \ "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23", \ "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31", \ "f32", "f34", "f36", "f38", "f40", "f42", "f44", "f46", \ "f48", "f50", "f52", "f54", "f56", "f58", "f60", "f62", \ \ "ccr", "y", "pc", "npc", "asi", "cle", "tle", \ "fsr", "fprs", "ver", "tick", "pil", "pstate", "wstate", \ "tba", "tl", "tt", "tpc", "tnpc", "tstate", \ "cwp", "cansave", "canrestore", "cleanwin", "otherwin", \ "asr16", "asr17", "asr18", "asr19", "asr20", "asr21", \ "asr22", "asr23", "asr24", "asr25", "asr26", "asr27", \ "asr28", "asr29", "asr30", "asr31", \ /* These are here at the end to simplify removing them if we have to. */ \ "icc", "xcc", "fcc0", "fcc1", "fcc2", "fcc3" \ } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #if 0 /* defined in tm-sparc.h, replicated for doc purposes */ #define G0_REGNUM 0 /* %g0 */ #define G1_REGNUM 1 /* %g1 */ #define O0_REGNUM 8 /* %o0 */ #define SP_REGNUM 14 /* Contains address of top of stack, \ which is also the bottom of the frame. */ #define RP_REGNUM 15 /* Contains return address value, *before* \ any windows get switched. */ #define O7_REGNUM 15 /* Last local reg not saved on stack frame */ #define L0_REGNUM 16 /* First local reg that's saved on stack frame rather than in machine registers */ #define I0_REGNUM 24 /* %i0 */ #define FP_REGNUM 30 /* Contains address of executing stack frame */ #define I7_REGNUM 31 /* Last local reg saved on stack frame */ #define FP0_REGNUM 32 /* Floating point register 0 */ #endif #define FP_MAX_REGNUM 80 /* 1 + last fp reg number */ /* #undef v8 misc. regs */ #undef Y_REGNUM #undef PS_REGNUM #undef WIM_REGNUM #undef TBR_REGNUM #undef PC_REGNUM #undef NPC_REGNUM #undef FPS_REGNUM #undef CPS_REGNUM /* v9 misc. and priv. regs */ #define C0_REGNUM 80 /* Start of control registers */ #define CCR_REGNUM (C0_REGNUM + 0) /* Condition Code Register (%xcc,%icc) */ #define Y_REGNUM (C0_REGNUM + 1) /* Temp register for multiplication, etc. */ #define PC_REGNUM (C0_REGNUM + 2) /* floating point condition code reg 2 */ #define NPC_REGNUM (C0_REGNUM + 3) /* floating point condition code reg 2 */ #define ASI_REGNUM (C0_REGNUM + 4) /* Alternate Space Identifier */ #define CLE_REGNUM (C0_REGNUM + 5) /* Current Little Endian format */ #define TLE_REGNUM (C0_REGNUM + 6) /* Trap Little Endian format */ #define FSR_REGNUM (C0_REGNUM + 7) /* Floating Point State */ #define FPRS_REGNUM (C0_REGNUM + 8) /* Floating Point Registers State */ #define VER_REGNUM (C0_REGNUM + 9) /* Version register */ #define TICK_REGNUM (C0_REGNUM + 10) /* Tick register */ #define PIL_REGNUM (C0_REGNUM + 11) /* Processor Interrupt Level */ #define PSTATE_REGNUM (C0_REGNUM + 12) /* Processor State */ #define WSTATE_REGNUM (C0_REGNUM + 13) /* Window State */ #define TBA_REGNUM (C0_REGNUM + 14) /* floating point condition code reg 3 */ #define TL_REGNUM (C0_REGNUM + 15) /* Trap Level */ #define TT_REGNUM (C0_REGNUM + 16) /* Trap Type */ #define TPC_REGNUM (C0_REGNUM + 17) /* Trap pc */ #define TNPC_REGNUM (C0_REGNUM + 18) /* Trap npc */ #define TSTATE_REGNUM (C0_REGNUM + 19) /* Trap State */ #define CWP_REGNUM (C0_REGNUM + 20) /* Current Window Pointer */ #define CANSAVE_REGNUM (C0_REGNUM + 21) /* Savable Windows */ #define CANRESTORE_REGNUM (C0_REGNUM + 22) /* Restorable Windows */ #define CLEANWIN_REGNUM (C0_REGNUM + 23) /* Clean Windows */ #define OTHERWIN_REGNUM (C0_REGNUM + 24) /* Other Windows */ #define ASR_REGNUM(n) (C0_REGNUM+(25-16)+(n)) /* Ancillary State Register (n = 16...31) */ #define ICC_REGNUM (C0_REGNUM + 41) /* 32 bit condition codes */ #define XCC_REGNUM (C0_REGNUM + 42) /* 64 bit condition codes */ #define FCC0_REGNUM (C0_REGNUM + 43) /* floatpoint condition code reg 0 */ #define FCC1_REGNUM (C0_REGNUM + 44) /* floating point condition code reg 0 */ #define FCC2_REGNUM (C0_REGNUM + 45) /* floating point condition code reg 1 */ #define FCC3_REGNUM (C0_REGNUM + 46) /* floating point condition code reg 2 */ /* FIXME: PS_REGNUM, FPS_REGNUM, CPS_REGNUM are for priviledged v8 registers which don't exist in v9 (in the same form). We use bits of sparc-tdep.c which requires these, so define them here to be unused ASR regs so sparc-tdep.c will compile. What we really want to do is put some conditionals in sparc-tdep.c (run time or compile time) or separate the v8 stuff out of sparc-tdep.c. */ #define PS_REGNUM (ASR_REGNUM (29)) #define FPS_REGNUM (ASR_REGNUM (30)) #define CPS_REGNUM (ASR_REGNUM (31)) /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. Some of the registers aren't 64 bits, but it's a lot simpler just to assume they all are (since most of them are). */ #undef REGISTER_BYTES #define REGISTER_BYTES (32*8+32*8+47*8) /* Index within `registers' of the first byte of the space for register N. */ #undef REGISTER_BYTE #define REGISTER_BYTE(N) \ ((N) < 32 ? (N)*8 \ : (N) < 64 ? 32*8 + ((N)-32)*4 \ : (N) < C0_REGNUM ? 32*8 + 32*4 + ((N)-64)*8 \ : 64*8 + ((N)-C0_REGNUM)*8) /* Number of bytes of storage in the actual machine representation for register N. */ #undef REGISTER_RAW_SIZE #define REGISTER_RAW_SIZE(N) (8) /* Number of bytes of storage in the program's representation for register N. */ #undef REGISTER_VIRTUAL_SIZE #define REGISTER_VIRTUAL_SIZE(N) (8) /* Largest value REGISTER_RAW_SIZE can have. */ /* tm-sparc.h defines this as 8, but play it safe. */ #undef MAX_REGISTER_RAW_SIZE #define MAX_REGISTER_RAW_SIZE (8) /* Largest value REGISTER_VIRTUAL_SIZE can have. */ /* tm-sparc.h defines this as 8, but play it safe. */ #undef MAX_REGISTER_VIRTUAL_SIZE #define MAX_REGISTER_VIRTUAL_SIZE (8) /* Convert data from raw format for register REGNUM to virtual format for register REGNUM. */ /* ??? Remove when tm-sparc.h is fixed. */ #undef REGISTER_CONVERT_TO_VIRTUAL #define REGISTER_CONVERT_TO_VIRTUAL(REGNUM,FROM,TO) \ { memcpy ((TO), (FROM), REGISTER_RAW_SIZE (0)); } /* Convert data from virtual format for register REGNUM to raw format for register REGNUM. */ /* ??? Remove when tm-sparc.h is fixed. */ #undef REGISTER_CONVERT_TO_RAW #define REGISTER_CONVERT_TO_RAW(REGNUM,FROM,TO) \ { memcpy ((TO), (FROM), REGISTER_RAW_SIZE (0)); } /* Return the GDB type object for the "standard" data type of data in register N. */ #undef REGISTER_VIRTUAL_TYPE #define REGISTER_VIRTUAL_TYPE(N) \ ((N) < 32 ? builtin_type_long_long : (N) < 80 ? builtin_type_float : \ builtin_type_long_long) /* We use to support both 32 bit and 64 bit pointers. We can't anymore because TARGET_PTR_BIT must now be a constant. */ #undef TARGET_PTR_BIT #define TARGET_PTR_BIT 64 /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ /* FIXME: V9 uses %o0 for this. */ #undef STORE_STRUCT_RETURN #define STORE_STRUCT_RETURN(ADDR, SP) \ { target_write_memory ((SP)+(16*8), (char *)&(ADDR), 8); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ /* FIXME */ #undef EXTRACT_RETURN_VALUE #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ { \ if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ { \ memcpy ((VALBUF), ((int *)(REGBUF))+FP0_REGNUM, TYPE_LENGTH(TYPE));\ } \ else \ memcpy ((VALBUF), \ (char *)(REGBUF) + 8 * 8 + \ (TYPE_LENGTH(TYPE) >= 8 ? 0 : 8 - TYPE_LENGTH(TYPE)), \ TYPE_LENGTH(TYPE)); \ } /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #undef EXTRACT_STRUCT_VALUE_ADDRESS #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ (sparc64_extract_struct_value_address (REGBUF)) extern CORE_ADDR sparc64_extract_struct_value_address PARAMS ((char [REGISTER_BYTES])); /* Return number of bytes at start of arglist that are not really args. */ #undef FRAME_ARGS_SKIP #define FRAME_ARGS_SKIP 136 /* Sparc has no reliable single step ptrace call */ #undef NO_SINGLE_STEP #define NO_SINGLE_STEP 1 extern void single_step (); /* We need two arguments (in general) to the "info frame" command. Note that the definition of this macro implies that there exists a function "setup_arbitrary_frame" in sparc-tdep.c */ #undef SETUP_ARBITRARY_FRAME /*FIXME*/ #undef FRAME_SPECIFICATION_DYADIC #define FRAME_SPECIFICATION_DYADIC /* To print every pair of float registers as a double, we use this hook. We also print the condition code registers in a readable format (FIXME: can expand this to all control regs). */ #undef PRINT_REGISTER_HOOK #define PRINT_REGISTER_HOOK(regno) \ sparc_print_register_hook (regno) /* Offsets into jmp_buf. FIXME: This was borrowed from the v8 stuff and will probably have to change for v9. */ #define JB_ELEMENT_SIZE 8 /* Size of each element in jmp_buf */ #define JB_ONSSTACK 0 #define JB_SIGMASK 1 #define JB_SP 2 #define JB_PC 3 #define JB_NPC 4 #define JB_PSR 5 #define JB_G1 6 #define JB_O0 7 #define JB_WBCNT 8 /* Figure out where the longjmp will land. We expect that we have just entered longjmp and haven't yet setup the stack frame, so the args are still in the output regs. %o0 (O0_REGNUM) points at the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ extern int get_longjmp_target PARAMS ((CORE_ADDR *)); #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) gdb-4.13/gdb/config/sparc/tm-sp64sim.h 666 34562 1752 3346 5416707701 15757 0ustar fnfcygnus/* Macro definitions for GDB with the SPARC64 Simulator. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* ??? This file is based on tm-spc-em.h. Our contents are probably bogus but it's a good start. */ #include "sparc/tm-sp64.h" #include "tm-sunos.h" /* Offsets into jmp_buf. Not defined by Sun, but at least documented in a comment in ! */ #define JB_ELEMENT_SIZE 8 /* Size of each element in jmp_buf */ #define JB_ONSSTACK 0 #define JB_SIGMASK 1 #define JB_SP 2 #define JB_PC 3 #define JB_NPC 4 #define JB_PSR 5 #define JB_G1 6 #define JB_O0 7 #define JB_WBCNT 8 /* Figure out where the longjmp will land. We expect that we have just entered longjmp and haven't yet setup the stack frame, so the args are still in the output regs. %o0 (O0_REGNUM) points at the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ extern int get_longjmp_target PARAMS ((CORE_ADDR *)); #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) gdb-4.13/gdb/config/sparc/tm-sparc.h 666 34562 1752 56231 5545056002 15575 0ustar fnfcygnus/* Target machine sub-parameters for SPARC, for GDB, the GNU debugger. This is included by other tm-*.h files to define SPARC cpu-related info. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. Contributed by Michael Tiemann (tiemann@mcc.com) This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* Floating point is IEEE compatible. */ #define IEEE_FLOAT /* If an argument is declared "register", Sun cc will keep it in a register, never saving it onto the stack. So we better not believe the "p" symbol descriptor stab. */ #define USE_REGISTER_NOT_ARG /* When passing a structure to a function, Sun cc passes the address not the structure itself. It (under SunOS4) creates two symbols, which we need to combine to a LOC_REGPARM. Gcc version two (as of 1.92) behaves like sun cc. REG_STRUCT_HAS_ADDR is smart enough to distinguish between Sun cc, gcc version 1 and gcc version 2. */ #define REG_STRUCT_HAS_ADDR(gcc_p,type) (gcc_p != 1) /* Sun /bin/cc gets this right as of SunOS 4.1.x. We need to define BELIEVE_PCC_PROMOTION to get this right now that the code which detects gcc2_compiled. is broken. This loses for SunOS 4.0.x and earlier. */ #define BELIEVE_PCC_PROMOTION 1 /* For acc, there's no need to correct LBRAC entries by guessing how they should work. In fact, this is harmful because the LBRAC entries now all appear at the end of the function, not intermixed with the SLINE entries. n_opt_found detects acc for Solaris binaries; function_stab_type detects acc for SunOS4 binaries. For binary from SunOS4 /bin/cc, need to correct LBRAC's. For gcc, like acc, don't correct. */ #define SUN_FIXED_LBRAC_BUG \ (n_opt_found \ || function_stab_type == N_STSYM \ || function_stab_type == N_GSYM \ || processing_gcc_compilation) /* Do variables in the debug stabs occur after the N_LBRAC or before it? acc: after, gcc: before, SunOS4 /bin/cc: before. */ #define VARIABLES_INSIDE_BLOCK(desc, gcc_p) \ (!(gcc_p) \ && (n_opt_found \ || function_stab_type == N_STSYM \ || function_stab_type == N_GSYM)) /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. SKIP_PROLOGUE_FRAMELESS_P advances the PC past some of the prologue, but stops as soon as it knows that the function has a frame. Its result is equal to its input PC if the function is frameless, unequal otherwise. */ #define SKIP_PROLOGUE(pc) \ { pc = skip_prologue (pc, 0); } #define SKIP_PROLOGUE_FRAMELESS_P(pc) \ { pc = skip_prologue (pc, 1); } extern CORE_ADDR skip_prologue (); /* Immediately after a function call, return the saved pc. Can't go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ /* On the Sun 4 under SunOS, the compile will leave a fake insn which encodes the structure size being returned. If we detect such a fake insn, step past it. */ #define PC_ADJUST(pc) sparc_pc_adjust(pc) extern CORE_ADDR sparc_pc_adjust(); #define SAVED_PC_AFTER_CALL(frame) PC_ADJUST (read_register (RP_REGNUM)) /* Stack grows downward. */ #define INNER_THAN < /* Stack has strict alignment. */ #define STACK_ALIGN(ADDR) (((ADDR)+7)&-8) /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0x91, 0xd0, 0x20, 0x01} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ /* For SPARC, this is either a "jmpl %o7+8,%g0" or "jmpl %i7+8,%g0". Note: this does not work for functions returning structures under SunOS. */ #define ABOUT_TO_RETURN(pc) \ ((read_memory_integer (pc, 4)|0x00040000) == 0x81c7e008) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 72 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES \ { "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", \ "o0", "o1", "o2", "o3", "o4", "o5", "sp", "o7", \ "l0", "l1", "l2", "l3", "l4", "l5", "l6", "l7", \ "i0", "i1", "i2", "i3", "i4", "i5", "fp", "i7", \ \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", \ "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23", \ "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31", \ \ "y", "psr", "wim", "tbr", "pc", "npc", "fpsr", "cpsr" } /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define G0_REGNUM 0 /* %g0 */ #define G1_REGNUM 1 /* %g1 */ #define O0_REGNUM 8 /* %o0 */ #define SP_REGNUM 14 /* Contains address of top of stack, \ which is also the bottom of the frame. */ #define RP_REGNUM 15 /* Contains return address value, *before* \ any windows get switched. */ #define O7_REGNUM 15 /* Last local reg not saved on stack frame */ #define L0_REGNUM 16 /* First local reg that's saved on stack frame rather than in machine registers */ #define I0_REGNUM 24 /* %i0 */ #define FP_REGNUM 30 /* Contains address of executing stack frame */ #define I7_REGNUM 31 /* Last local reg saved on stack frame */ #define FP0_REGNUM 32 /* Floating point register 0 */ #define Y_REGNUM 64 /* Temp register for multiplication, etc. */ #define PS_REGNUM 65 /* Contains processor status */ #define WIM_REGNUM 66 /* Window Invalid Mask (not really supported) */ #define TBR_REGNUM 67 /* Trap Base Register (not really supported) */ #define PC_REGNUM 68 /* Contains program counter */ #define NPC_REGNUM 69 /* Contains next PC */ #define FPS_REGNUM 70 /* Floating point status register */ #define CPS_REGNUM 71 /* Coprocessor status register */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. On the sparc, `registers' contains the ins and locals, even though they are saved on the stack rather than with the other registers, and this causes hair and confusion in places like pop_frame. It probably would be better to remove the ins and locals from `registers', make sure that get_saved_register can get them from the stack (even in the innermost frame), and make this the way to access them. For the frame pointer we would do that via TARGET_READ_FP. */ #define REGISTER_BYTES (32*4+32*4+8*4) /* Index within `registers' of the first byte of the space for register N. */ /* ?? */ #define REGISTER_BYTE(N) ((N)*4) /* The SPARC processor has register windows. */ #define HAVE_REGISTER_WINDOWS /* Is this register part of the register window system? A yes answer implies that 1) The name of this register will not be the same in other frames, and 2) This register is automatically "saved" (out registers shifting into ins counts) upon subroutine calls and thus there is no need to search more than one stack frame for it. */ #define REGISTER_IN_WINDOW_P(regnum) \ ((regnum) >= 8 && (regnum) < 32) /* Number of bytes of storage in the actual machine representation for register N. */ /* On the SPARC, all regs are 4 bytes. */ #define REGISTER_RAW_SIZE(N) (4) /* Number of bytes of storage in the program's representation for register N. */ /* On the SPARC, all regs are 4 bytes. */ #define REGISTER_VIRTUAL_SIZE(N) (4) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 8 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 8 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ ((N) < 32 ? builtin_type_int : (N) < 64 ? builtin_type_float : \ builtin_type_int) /* Writing to %g0 is a noop (not an error or exception or anything like that, however). */ #define CANNOT_STORE_REGISTER(regno) ((regno) == G0_REGNUM) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ { target_write_memory ((SP)+(16*4), (char *)&(ADDR), 4); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ { \ if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ { \ memcpy ((VALBUF), ((int *)(REGBUF))+FP0_REGNUM, TYPE_LENGTH(TYPE));\ } \ else \ memcpy ((VALBUF), \ (char *)(REGBUF) + 4 * 8 + \ (TYPE_LENGTH(TYPE) >= 4 ? 0 : 4 - TYPE_LENGTH(TYPE)), \ TYPE_LENGTH(TYPE)); \ } /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ /* On sparc, values are returned in register %o0. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ { \ if (TYPE_CODE (TYPE) == TYPE_CODE_FLT) \ /* Floating-point values are returned in the register pair */ \ /* formed by %f0 and %f1 (doubles are, anyway). */ \ write_register_bytes (REGISTER_BYTE (FP0_REGNUM), (VALBUF), \ TYPE_LENGTH (TYPE)); \ else \ /* Other values are returned in register %o0. */ \ write_register_bytes (REGISTER_BYTE (O0_REGNUM), (VALBUF), \ TYPE_LENGTH (TYPE)); \ } /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) \ (sparc_extract_struct_value_address (REGBUF)) extern CORE_ADDR sparc_extract_struct_value_address PARAMS ((char [REGISTER_BYTES])); /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ /* In the case of the Sun 4, the frame-chain's nominal address is held in the frame pointer register. On the Sun4, the frame (in %fp) is %sp for the previous frame. From the previous frame's %sp, we can find the previous frame's %fp: it is in the save area just above the previous frame's %sp. If we are setting up an arbitrary frame, we'll need to know where it ends. Hence the following. This part of the frame cache structure should be checked before it is assumed that this frame's bottom is in the stack pointer. If there isn't a frame below this one, the bottom of this frame is in the stack pointer. If there is a frame below this one, and the frame pointers are identical, it's a leaf frame and the bottoms are the same also. Otherwise the bottom of this frame is the top of the next frame. The bottom field is misnamed, since it might imply that memory from bottom to frame contains this frame. That need not be true if stack frames are allocated in different segments (e.g. some on a stack, some on a heap in the data segment). */ #define EXTRA_FRAME_INFO FRAME_ADDR bottom; #define INIT_EXTRA_FRAME_INFO(fromleaf, fci) \ (fci)->bottom = \ ((fci)->next ? \ ((fci)->frame == (fci)->next->frame ? \ (fci)->next->bottom : (fci)->next->frame) : \ read_register (SP_REGNUM)); #define FRAME_CHAIN(thisframe) (sparc_frame_chain (thisframe)) CORE_ADDR sparc_frame_chain (); /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ (FRAMELESS) = frameless_look_for_prologue(FI) /* The location of I0 w.r.t SP. This is actually dependent on how the system's window overflow/underflow routines are written. Most vendors save the L regs followed by the I regs (at the higher address). Some vendors get it wrong. */ #define FRAME_SAVED_L0 0 #define FRAME_SAVED_I0 (8 * REGISTER_RAW_SIZE (L0_REGNUM)) /* Where is the PC for a specific frame */ #define FRAME_SAVED_PC(FRAME) sparc_frame_saved_pc (FRAME) CORE_ADDR sparc_frame_saved_pc (); /* If the argument is on the stack, it will be here. */ #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame) #define FRAME_STRUCT_ARGS_ADDRESS(fi) ((fi)->frame) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can't tell how many args there are now that the C compiler delays popping them. */ #define FRAME_NUM_ARGS(val,fi) (val = -1) /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 68 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. The actual code is in sparc-tdep.c so we can debug it sanely. */ #define FRAME_FIND_SAVED_REGS(fi, frame_saved_regs) \ sparc_frame_find_saved_regs ((fi), &(frame_saved_regs)) extern void sparc_frame_find_saved_regs (); /* Things needed for making the inferior call functions. */ /* * First of all, let me give my opinion of what the DUMMY_FRAME * actually looks like. * * | | * | | * + - - - - - - - - - - - - - - - - +<-- fp (level 0) * | | * | | * | | * | | * | Frame of innermost program | * | function | * | | * | | * | | * | | * | | * |---------------------------------|<-- sp (level 0), fp (c) * | | * DUMMY | fp0-31 | * | | * | ------ |<-- fp - 0x80 * FRAME | g0-7 |<-- fp - 0xa0 * | i0-7 |<-- fp - 0xc0 * | other |<-- fp - 0xe0 * | ? | * | ? | * |---------------------------------|<-- sp' = fp - 0x140 * | | * xcution start | | * sp' + 0x94 -->| CALL_DUMMY (x code) | * | | * | | * |---------------------------------|<-- sp'' = fp - 0x200 * | align sp to 8 byte boundary | * | ==> args to fn <== | * Room for | | * i & l's + agg | CALL_DUMMY_STACK_ADJUST = 0x0x44| * |---------------------------------|<-- final sp (variable) * | | * | Where function called will | * | build frame. | * | | * | | * * I understand everything in this picture except what the space * between fp - 0xe0 and fp - 0x140 is used for. Oh, and I don't * understand why there's a large chunk of CALL_DUMMY that never gets * executed (its function is superceeded by PUSH_DUMMY_FRAME; they * are designed to do the same thing). * * PUSH_DUMMY_FRAME saves the registers above sp' and pushes the * register file stack down one. * * call_function then writes CALL_DUMMY, pushes the args onto the * stack, and adjusts the stack pointer. * * run_stack_dummy then starts execution (in the middle of * CALL_DUMMY, as directed by call_function). */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME sparc_push_dummy_frame () #define POP_FRAME sparc_pop_frame () void sparc_push_dummy_frame (), sparc_pop_frame (); /* This sequence of words is the instructions save %sp,-0x140,%sp std %f30,[%fp-0x08] std %f28,[%fp-0x10] std %f26,[%fp-0x18] std %f24,[%fp-0x20] std %f22,[%fp-0x28] std %f20,[%fp-0x30] std %f18,[%fp-0x38] std %f16,[%fp-0x40] std %f14,[%fp-0x48] std %f12,[%fp-0x50] std %f10,[%fp-0x58] std %f8,[%fp-0x60] std %f6,[%fp-0x68] std %f4,[%fp-0x70] std %f2,[%fp-0x78] std %f0,[%fp-0x80] std %g6,[%fp-0x88] std %g4,[%fp-0x90] std %g2,[%fp-0x98] std %g0,[%fp-0xa0] std %i6,[%fp-0xa8] std %i4,[%fp-0xb0] std %i2,[%fp-0xb8] std %i0,[%fp-0xc0] nop ! stcsr [%fp-0xc4] nop ! stfsr [%fp-0xc8] nop ! wr %npc,[%fp-0xcc] nop ! wr %pc,[%fp-0xd0] rd %tbr,%o0 st %o0,[%fp-0xd4] rd %wim,%o1 st %o0,[%fp-0xd8] rd %psr,%o0 st %o0,[%fp-0xdc] rd %y,%o0 st %o0,[%fp-0xe0] /..* The arguments are pushed at this point by GDB; no code is needed in the dummy for this. The CALL_DUMMY_START_OFFSET gives the position of the following ld instruction. *../ ld [%sp+0x58],%o5 ld [%sp+0x54],%o4 ld [%sp+0x50],%o3 ld [%sp+0x4c],%o2 ld [%sp+0x48],%o1 call 0x00000000 ld [%sp+0x44],%o0 nop ta 1 nop note that this is 192 bytes, which is a multiple of 8 (not only 4) bytes. note that the `call' insn is a relative, not an absolute call. note that the `nop' at the end is needed to keep the trap from clobbering things (if NPC pointed to garbage instead). We actually start executing at the `sethi', since the pushing of the registers (as arguments) is done by PUSH_DUMMY_FRAME. If this were real code, the arguments for the function called by the CALL would be pushed between the list of ST insns and the CALL, and we could allow it to execute through. But the arguments have to be pushed by GDB after the PUSH_DUMMY_FRAME is done, and we cannot allow these ST insns to be performed again, lest the registers saved be taken for arguments. */ #define CALL_DUMMY { 0x9de3bee0, 0xfd3fbff8, 0xf93fbff0, 0xf53fbfe8, \ 0xf13fbfe0, 0xed3fbfd8, 0xe93fbfd0, 0xe53fbfc8, \ 0xe13fbfc0, 0xdd3fbfb8, 0xd93fbfb0, 0xd53fbfa8, \ 0xd13fbfa0, 0xcd3fbf98, 0xc93fbf90, 0xc53fbf88, \ 0xc13fbf80, 0xcc3fbf78, 0xc83fbf70, 0xc43fbf68, \ 0xc03fbf60, 0xfc3fbf58, 0xf83fbf50, 0xf43fbf48, \ 0xf03fbf40, 0x01000000, 0x01000000, 0x01000000, \ 0x01000000, 0x91580000, 0xd027bf50, 0x93500000, \ 0xd027bf4c, 0x91480000, 0xd027bf48, 0x91400000, \ 0xd027bf44, 0xda03a058, 0xd803a054, 0xd603a050, \ 0xd403a04c, 0xd203a048, 0x40000000, 0xd003a044, \ 0x01000000, 0x91d02001, 0x01000000, 0x01000000} #define CALL_DUMMY_LENGTH 192 #define CALL_DUMMY_START_OFFSET 148 #define CALL_DUMMY_BREAKPOINT_OFFSET (CALL_DUMMY_START_OFFSET + (8 * 4)) #define CALL_DUMMY_STACK_ADJUST 68 /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. For structs and unions, if the function was compiled with Sun cc, it expects 'unimp' after the call. But gcc doesn't use that (twisted) convention. So leave a nop there for gcc (FIX_CALL_DUMMY can assume it is operating on a pristine CALL_DUMMY, not one that has already been customized for a different function). */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { \ *(int *)((char *) dummyname+168) = (0x40000000|((fun-(pc+168))>>2)); \ if (!gcc_p \ && (TYPE_CODE (type) == TYPE_CODE_STRUCT \ || TYPE_CODE (type) == TYPE_CODE_UNION)) \ *(int *)((char *) dummyname+176) = (TYPE_LENGTH (type) & 0x1fff); \ } /* Sparc has no reliable single step ptrace call */ #define NO_SINGLE_STEP 1 extern void single_step (); /* We need more arguments in a frame specification for the "frame" or "info frame" command. */ #define SETUP_ARBITRARY_FRAME(argc, argv) setup_arbitrary_frame (argc, argv) /* FIXME: Depends on equivalence between FRAME and "struct frame_info *", and equivalence between CORE_ADDR and FRAME_ADDR. */ extern struct frame_info *setup_arbitrary_frame PARAMS ((int, CORE_ADDR *)); /* To print every pair of float registers as a double, we use this hook. */ #define PRINT_REGISTER_HOOK(regno) \ if (((regno) >= FP0_REGNUM) \ && ((regno) < FP0_REGNUM + 32) \ && (0 == ((regno) & 1))) { \ char doublereg[8]; /* two float regs */ \ if (!read_relative_register_raw_bytes ((regno) , doublereg ) \ && !read_relative_register_raw_bytes ((regno)+1, doublereg+4)) { \ printf("\t"); \ print_floating (doublereg, builtin_type_double, stdout); \ } \ } /* Optimization for storing registers to the inferior. The hook DO_DEFERRED_STORES actually executes any deferred stores. It is called any time we are going to proceed the child, or read its registers. The hook CLEAR_DEFERRED_STORES is called when we want to throw away the inferior process, e.g. when it dies or we kill it. FIXME, this does not handle remote debugging cleanly. */ extern int deferred_stores; #define DO_DEFERRED_STORES \ if (deferred_stores) \ target_store_registers (-2); #define CLEAR_DEFERRED_STORES \ deferred_stores = 0; gdb-4.13/gdb/config/sparc/tm-sparclite.h 666 34562 1752 6653 5575740306 16450 0ustar fnfcygnus/* Macro definitions for GDB for a Fujitsu SPARClite. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_SPARCLITE 1 #include "sparc/tm-sparc.h" /* Amount PC must be decremented by after a hardware instruction breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_HW_BREAK 4 #undef NUM_REGS #define NUM_REGS 80 #undef REGISTER_BYTES #define REGISTER_BYTES (32*4+32*4+8*4+8*4) #undef REGISTER_NAMES #define REGISTER_NAMES \ { "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", \ "o0", "o1", "o2", "o3", "o4", "o5", "sp", "o7", \ "l0", "l1", "l2", "l3", "l4", "l5", "l6", "l7", \ "i0", "i1", "i2", "i3", "i4", "i5", "fp", "i7", \ \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", \ "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23", \ "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31", \ \ "y", "psr", "wim", "tbr", "pc", "npc", "fpsr", "cpsr", \ "dia1", "dia2", "dda1", "dda2", "ddv1", "ddv2", "dcr", "dsr" } #define DIA1_REGNUM 72 /* debug instr address register 1 */ #define DIA2_REGNUM 73 /* debug instr address register 2 */ #define DDA1_REGNUM 74 /* debug data address register 1 */ #define DDA2_REGNUM 75 /* debug data address register 2 */ #define DDV1_REGNUM 76 /* debug data value register 1 */ #define DDV2_REGNUM 77 /* debug data value register 2 */ #define DCR_REGNUM 78 /* debug control register */ #define DSR_REGNUM 79 /* debug status regsiter */ #define TARGET_HW_BREAK_LIMIT 2 #define TARGET_HW_WATCH_LIMIT 2 #define TARGET_CAN_USE_HARDWARE_WATCHPOINT(type, cnt, ot) \ sparclite_check_watch_resources (type, cnt, ot) /* When a hardware watchpoint fires off the PC will be left at the instruction which caused the watchpoint. It will be necessary for GDB to step over the watchpoint. *** #define STOPPED_BY_WATCHPOINT(W) \ ((W).kind == TARGET_WAITKIND_STOPPED \ && (W).value.sig == TARGET_SIGNAL_TRAP \ && ((int) read_register (IPSW_REGNUM) & 0x00100000)) */ /* Use these macros for watchpoint insertion/deletion. */ #define target_insert_watchpoint(addr, len, type) sparclite_insert_watchpoint (addr, len, type) #define target_remove_watchpoint(addr, len, type) sparclite_remove_watchpoint (addr, len, type) #define target_insert_hw_breakpoint(addr, len) sparclite_insert_hw_breakpoint (addr, len) #define target_remove_hw_breakpoint(addr, len) sparclite_remove_hw_breakpoint (addr, len) #define target_stopped_data_address() sparclite_stopped_data_address() gdb-4.13/gdb/config/sparc/tm-sparclynx.h 666 34562 1752 2164 5520163346 16467 0ustar fnfcygnus/* Macro definitions for Sparc running under LynxOS. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef TM_SPARCLYNX_H #define TM_SPARCLYNX_H #include "tm-lynx.h" /* Use generic Sparc definitions. */ #include "sparc/tm-sparc.h" /* Lynx does this backwards from everybody else */ #undef FRAME_SAVED_I0 #undef FRAME_SAVED_L0 #define FRAME_SAVED_I0 0 #define FRAME_SAVED_L0 (8 * REGISTER_RAW_SIZE (I0_REGNUM)) #endif /* TM_SPARCLYNX_H */ gdb-4.13/gdb/config/sparc/tm-spc-em.h 666 34562 1752 3167 5353462627 15644 0ustar fnfcygnus/* Target machine definitions for GDB for an embedded SPARC. Copyright 1989, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sparc/tm-sparc.h" /* Offsets into jmp_buf. Not defined by Sun, but at least documented in a comment in ! */ #define JB_ELEMENT_SIZE 4 /* Size of each element in jmp_buf */ #define JB_ONSSTACK 0 #define JB_SIGMASK 1 #define JB_SP 2 #define JB_PC 3 #define JB_NPC 4 #define JB_PSR 5 #define JB_G1 6 #define JB_O0 7 #define JB_WBCNT 8 /* Figure out where the longjmp will land. We expect that we have just entered longjmp and haven't yet setup the stack frame, so the args are still in the output regs. %o0 (O0_REGNUM) points at the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ extern int get_longjmp_target PARAMS ((CORE_ADDR *)); #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) gdb-4.13/gdb/config/sparc/tm-sun4os4.h 666 34562 1752 3204 5425053647 15765 0ustar fnfcygnus/* Macro definitions for GDB for a Sun 4 running sunos 4. Copyright 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sparc/tm-sparc.h" #include "tm-sunos.h" /* Offsets into jmp_buf. Not defined by Sun, but at least documented in a comment in ! */ #define JB_ELEMENT_SIZE 4 /* Size of each element in jmp_buf */ #define JB_ONSSTACK 0 #define JB_SIGMASK 1 #define JB_SP 2 #define JB_PC 3 #define JB_NPC 4 #define JB_PSR 5 #define JB_G1 6 #define JB_O0 7 #define JB_WBCNT 8 /* Figure out where the longjmp will land. We expect that we have just entered longjmp and haven't yet setup the stack frame, so the args are still in the output regs. %o0 (O0_REGNUM) points at the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ extern int get_longjmp_target PARAMS ((CORE_ADDR *)); #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) gdb-4.13/gdb/config/sparc/tm-sun4sol2.h 666 34562 1752 4652 5605225617 16145 0ustar fnfcygnus/* Macro definitions for GDB for a Sun 4 running Solaris 2 Copyright 1989, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sparc/tm-sparc.h" #include "tm-sysv4.h" /* There are two different signal handler trampolines in Solaris2. */ #define IN_SIGTRAMP(pc, name) \ ((name) \ && (STREQ ("sigacthandler", name) || STREQ ("ucbsigvechandler", name))) /* The signal handler gets a pointer to an ucontext as third argument if it is called from sigacthandler. This is the offset to the saved PC within it. sparc_frame_saved_pc knows how to deal with ucbsigvechandler. */ #define SIGCONTEXT_PC_OFFSET 44 #if 0 /* FIXME Setjmp/longjmp are not as well doc'd in SunOS 5.x yet */ /* Offsets into jmp_buf. Not defined by Sun, but at least documented in a comment in ! */ #define JB_ELEMENT_SIZE 4 /* Size of each element in jmp_buf */ #define JB_ONSSTACK 0 #define JB_SIGMASK 1 #define JB_SP 2 #define JB_PC 3 #define JB_NPC 4 #define JB_PSR 5 #define JB_G1 6 #define JB_O0 7 #define JB_WBCNT 8 /* Figure out where the longjmp will land. We expect that we have just entered longjmp and haven't yet setup the stack frame, so the args are still in the output regs. %o0 (O0_REGNUM) points at the jmp_buf structure from which we extract the pc (JB_PC) that we will land at. The pc is copied into ADDR. This routine returns true on success */ extern int get_longjmp_target PARAMS ((CORE_ADDR *)); #define GET_LONGJMP_TARGET(ADDR) get_longjmp_target(ADDR) #endif /* 0 */ /* The SunPRO compiler puts out 0 instead of the address in an N_SO symbol. */ #define N_SO_ADDRESS_MAYBE_MISSING #define FAULTED_USE_SIGINFO /* Enable handling of shared libraries for a.out executables. */ #define HANDLE_SVR4_EXEC_EMULATORS gdb-4.13/gdb/config/sparc/tm-vxsparc.h 666 34562 1752 2257 5405215457 16140 0ustar fnfcygnus/* Target machine description for VxWorks sparc's, for GDB, the GNU debugger. Copyright 1993 Free Software Foundation, Inc. Contributed by Cygnus Support. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define GDBINIT_FILENAME ".vxgdbinit" #define DEFAULT_PROMPT "(vxgdb) " #include "sparc/tm-spc-em.h" /* FIXME: These are almost certainly wrong. */ /* Number of registers in a ptrace_getregs call. */ #define VX_NUM_REGS (NUM_REGS) /* Number of registers in a ptrace_getfpregs call. */ /* #define VX_SIZE_FPREGS (don't know how many) */ gdb-4.13/gdb/config/sparc/vxsparc.mt 666 34562 1752 224 5405215460 15655 0ustar fnfcygnus# Target: VxWorks running on a sparc TDEPFILES= exec.o sparc-tdep.o sparc-pinsn.o remote-vx.o xdr_ld.o xdr_ptrace.o xdr_rdb.o TM_FILE= tm-vxsparc.h gdb-4.13/gdb/config/sparc/xm-sparc.h 666 34562 1752 2347 5565224214 15564 0ustar fnfcygnus/* Parameters for execution on a Sun 4, for GDB, the GNU debugger. Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. Contributed by Michael Tiemann (tiemann@mcc.com). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* Enable use of alternate code for Sun's format of core dump file. */ #define NEW_SUN_CORE /* Before storing, we need to read all the registers. */ #define CHILD_PREPARE_TO_STORE() read_register_bytes (0, NULL, REGISTER_BYTES) /* It does have a wait structure, and it might help things out . . . */ #define HAVE_WAIT_STRUCT gdb-4.13/gdb/config/sparc/xm-sparclynx.h 666 34562 1752 1614 5464331131 16466 0ustar fnfcygnus/* Host-dependent definitions for Sparc running LynxOS, for GDB. Copyright 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER BIG_ENDIAN /* Get generic LynxOS host definitions. */ #include "xm-lynx.h" gdb-4.13/gdb/config/sparc/xm-sun4os4.h 666 34562 1752 4210 5565224215 15763 0ustar fnfcygnus/* Macro definitions for running gdb on a Sun 4 running sunos 4. Copyright (C) 1989, Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sparc/xm-sparc.h" #define FPU /* SunOS 4.x has memory mapped files. */ #define HAVE_MMAP /* If you expect to use the mmalloc package to obtain mapped symbol files, for now you have to specify some parameters that determine how gdb places the mappings in it's address space. See the comments in map_to_address() for details. This is expected to only be a short term solution. Yes it is a kludge. FIXME: Make this more automatic. */ #define MMAP_BASE_ADDRESS 0xE0000000 /* First mapping here */ #define MMAP_INCREMENT 0x01000000 /* Increment to next mapping */ /* /usr/include/malloc.h is included by vx-share/xdr_ld, and might declare these using char * not void *. The following should work with acc, gcc, or /bin/cc. */ #define MALLOC_INCOMPATIBLE #include /* acc for SunOS4 comes with string.h and memory.h headers which we pick up somewhere (where?) and which use char *, not void *. The following should work with acc, gcc, or /bin/cc, at least with SunOS 4.1.1. */ #define MEM_FNS_DECLARED #include /* SunOS 4.x uses nonstandard "char *" as type of third argument to ptrace() */ #define PTRACE_ARG3_TYPE char* /* Using termios is required to save and restore ICRNL and ONLCR separately. */ /* At least SunOS 4.1.1 has termios. I'm not sure about 4.0.3. */ #define HAVE_TERMIOS gdb-4.13/gdb/config/sparc/xm-sun4sol2.h 666 34562 1752 4716 5565224216 16151 0ustar fnfcygnus/* Macro definitions for running gdb on a Sun 4 running Solaris 2. Copyright 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Most of what we know is generic to SPARC hosts. */ #include "sparc/xm-sparc.h" /* Pick up more stuff from the generic SVR4 host include file. */ #include "xm-sysv4.h" /* SVR4's can't seem to agree on what to call the type that contains the general registers. Kludge around it with a #define. */ #define gregset_t prgregset_t #define fpregset_t prfpregset_t /* The native Sun compiler complains about using volatile to indicate functions that never return. So shut it up by simply defining away "NORETURN", which is normally defined to "volatile". */ #ifndef __GNUC__ # define NORETURN /**/ #endif /* If you expect to use the mmalloc package to obtain mapped symbol files, for now you have to specify some parameters that determine how gdb places the mappings in it's address space. See the comments in map_to_address() for details. This is expected to only be a short term solution. Yes it is a kludge. FIXME: Make this more automatic. */ #define MMAP_BASE_ADDRESS 0xE0000000 /* First mapping here */ #define MMAP_INCREMENT 0x01000000 /* Increment to next mapping */ /* These are not currently used in SVR4 (but should be, FIXME!). */ #undef DO_DEFERRED_STORES #undef CLEAR_DEFERRED_STORES /* May be needed, may be not? From Pace Willisson's port. FIXME. */ #define NEED_POSIX_SETPGID /* Solaris PSRVADDR support does not seem to include a place for nPC. */ #define PRSVADDR_BROKEN /* The mem functions are in . */ #undef MEM_FNS_DECLARED #define MEM_FNS_DECLARED 1 /* solaris doesn't have siginterrupt, though it has sigaction; however, in this case siginterrupt would just be setting the default. */ #define NO_SIGINTERRUPT gdb-4.13/gdb/config/tahoe/ 777 34562 1752 0 5623250702 13557 5ustar fnfcygnusgdb-4.13/gdb/config/tahoe/tahoe.mh 666 34562 1752 240 5353462640 15247 0ustar fnfcygnus# Host: CCI or Harris Tahoe running BSD Unix XDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o REGEX=regex.o REGEX1=regex.o XM_FILE= xm-tahoe.h gdb-4.13/gdb/config/tahoe/tahoe.mt 666 34562 1752 143 5353462643 15270 0ustar fnfcygnus# Target: CCI or Harris Tahoe running BSD Unix TDEPFILES= tahoe-pinsn.o exec.o TM_FILE= tm-tahoe.h gdb-4.13/gdb/config/tahoe/tm-tahoe.h 666 34562 1752 24334 5507351576 15570 0ustar fnfcygnus/* Definitions to make GDB target for a tahoe running 4.3-Reno. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Ported by the State University of New York at Buffalo by the Distributed * Computer Systems Lab, Department of Computer Science, 1991. */ #define TARGET_BYTE_ORDER BIG_ENDIAN #define BITS_BIG_ENDIAN 0 /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 2 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(pc) \ { register int op = (unsigned char) read_memory_integer (pc, 1); \ if (op == 0x11) pc += 2; /* skip brb */ \ if (op == 0x13) pc += 3; /* skip brw */ \ if (op == 0x2c && \ ((unsigned char) read_memory_integer (pc+2, 1)) == 0x5e) \ pc += 3; /* skip subl2 */ \ if (op == 0xe9 && \ ((unsigned char) read_memory_integer (pc+1, 1)) == 0xae && \ ((unsigned char) read_memory_integer(pc+3, 1)) == 0x5e) \ pc += 4; /* skip movab */ \ if (op == 0xe9 && \ ((unsigned char) read_memory_integer (pc+1, 1)) == 0xce && \ ((unsigned char) read_memory_integer(pc+4, 1)) == 0x5e) \ pc += 5; /* skip movab */ \ if (op == 0xe9 && \ ((unsigned char) read_memory_integer (pc+1, 1)) == 0xee && \ ((unsigned char) read_memory_integer(pc+6, 1)) == 0x5e) \ pc += 7; /* skip movab */ \ } /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) FRAME_SAVED_PC(frame) /* Wrong for cross-debugging. I don't know the real values. */ #include #define TARGET_UPAGES UPAGES #define TARGET_NBPG NBPG /* Address of end of stack space. */ #define STACK_END_ADDR (0xc0000000 - (TARGET_UPAGES * TARGET_NBPG)) /* On BSD, sigtramp is in the u area. Can't check the exact addresses because for cross-debugging we don't have target include files around. This should be close enough. */ #define IN_SIGTRAMP(pc, name) ((pc) >= STACK_END_ADDR && (pc < 0xc0000000)) /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0x30} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 1) == 0x40) /* Return 1 if P points to an invalid floating point value. LEN is the length in bytes -- not relevant on the Tahoe. */ #define INVALID_FLOAT(p, len) ((*(short *) p & 0xff80) == 0x8000) /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 19 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "fp", "sp", "pc", "ps", "al", "ah"} #define FP_REGNUM 13 /* Contains address of executing stack frame */ #define SP_REGNUM 14 /* Contains address of top of stack */ #define PC_REGNUM 15 /* Contains program counter */ #define PS_REGNUM 16 /* Contains processor status */ #define AL_REGNUM 17 /* Contains accumulator */ #define AH_REGNUM 18 /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (19*4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N) * 4) /* Number of bytes of storage in the actual machine representation for register N. On the tahoe, all regs are 4 bytes. */ #define REGISTER_RAW_SIZE(N) 4 /* Number of bytes of storage in the program's representation for register N. On the tahoe, all regs are 4 bytes. */ #define REGISTER_VIRTUAL_SIZE(N) 4 /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 4 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 4 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) builtin_type_int /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ { write_register (1, (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, REGBUF, TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ /* In the case of the Tahoe, the frame's nominal address is the FP value, and it points to the old FP */ #define FRAME_CHAIN(thisframe) \ (!inside_entry_file ((thisframe)->pc) ? \ read_memory_integer ((thisframe)->frame, 4) :\ 0) /* Define other aspects of the stack frame. */ /* Saved PC */ #define FRAME_SAVED_PC(FRAME) (read_memory_integer ((FRAME)->frame - 8, 4)) /* In most of GDB, getting the args address is too important to just say "I don't know". */ #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame) /* Address to use as an anchor for finding local variables */ #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(numargs, fi) \ { numargs = ((0xffff & read_memory_integer(((fi)->frame-4),4)) - 4) >> 2; } /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 0 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { register int regnum; \ register int rmask = read_memory_integer ((frame_info)->frame-4, 4) >> 16;\ register CORE_ADDR next_addr; \ memset (&frame_saved_regs, '\0', sizeof frame_saved_regs); \ next_addr = (frame_info)->frame - 8; \ for (regnum = 12; regnum >= 0; regnum--, rmask <<= 1) \ (frame_saved_regs).regs[regnum] = (rmask & 0x1000) ? (next_addr -= 4) : 0;\ (frame_saved_regs).regs[SP_REGNUM] = (frame_info)->frame + 4; \ (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame - 8; \ (frame_saved_regs).regs[FP_REGNUM] = (frame_info)->frame; \ } /* Things needed for making the inferior call functions. */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME \ { register CORE_ADDR sp = read_register (SP_REGNUM); \ register int regnum; \ printf("PUSH_DUMMY_FRAME\n"); \ sp = push_word (sp, read_register (FP_REGNUM)); \ write_register (FP_REGNUM, sp); \ sp = push_word (sp, 0x1fff0004); /*SAVE MASK*/ \ sp = push_word (sp, read_register (PC_REGNUM)); \ for (regnum = 12; regnum >= 0; regnum--) \ sp = push_word (sp, read_register (regnum)); \ write_register (SP_REGNUM, sp); \ } /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME \ { register CORE_ADDR fp = read_register (FP_REGNUM); \ register int regnum; \ register int regmask = read_memory_integer (fp-4, 4); \ printf("POP_FRAME\n"); \ regmask >>= 16; \ write_register (SP_REGNUM, fp+4); \ write_register (PC_REGNUM, read_memory_integer(fp-8, 4)); \ write_register (FP_REGNUM, read_memory_integer(fp, 4)); \ fp -= 8; \ for (regnum = 12; regnum >= 0; regnum--, regmask <<= 1) \ if (regmask & 0x1000) \ write_register (regnum, read_memory_integer (fp-=4, 4)); \ flush_cached_frames (); \ set_current_frame (create_new_frame (read_register (FP_REGNUM), \ read_pc ())); } /* This sequence of words is the instructions calls #69, @#32323232 bpt Note this is 8 bytes. */ #define CALL_DUMMY {0xbf699f32, 0x32323230} /* Start execution at beginning of dummy */ #define CALL_DUMMY_START_OFFSET 0 /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, valtype, using_gcc) \ { int temp = (int) fun; \ *((char *) dummyname + 1) = nargs; \ memcpy((char *)dummyname+3,&temp,4); } gdb-4.13/gdb/config/tahoe/xm-tahoe.h 666 34562 1752 10773 5565224221 15564 0ustar fnfcygnus/* Definitions to make GDB hosted on a tahoe running 4.3-Reno Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc. Contributed by the State University of New York at Buffalo, by the Distributed Computer Systems Lab, Department of Computer Science, 1991. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Make sure the system include files define BIG_ENDIAN, UINT_MAX, const, etc, rather than GDB's files. */ #include #include /* Host is big-endian */ #define HOST_BYTE_ORDER BIG_ENDIAN /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR (0xc0000000 - (TARGET_UPAGES * TARGET_NBPG)) #define REGISTER_U_ADDR(addr, blockend, regno) \ { addr = blockend - 100 + regno * 4; \ if (regno == PC_REGNUM) addr = blockend - 8; \ if (regno == PS_REGNUM) addr = blockend - 4; \ if (regno == FP_REGNUM) addr = blockend - 40; \ if (regno == SP_REGNUM) addr = blockend - 36; \ if (regno == AL_REGNUM) addr = blockend - 20; \ if (regno == AH_REGNUM) addr = blockend - 24;} /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, SIGKILL, SIGSEGV, 0, 0, 0, 0, 0, \ 0, 0, SIGTRAP, SIGTRAP, 0, 0, 0, 0, \ 0, 0, 0, 0, 0, 0, 0, 0} /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movl $ end, sp"); \ asm ("clrl fp"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("pushl fp"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl (sp), fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("pushl 8(sp)"); \ asm ("pushl 8(sp)"); \ asm ("pushal 0x41(sp)"); \ asm ("pushl r0" ); \ asm ("pushl r1" ); \ asm ("pushl r2" ); \ asm ("pushl r3" ); \ asm ("pushl r4" ); \ asm ("pushl r5" ); \ asm ("pushl r6" ); \ asm ("pushl r7" ); \ asm ("pushl r8" ); \ asm ("pushl r9" ); \ asm ("pushl r10" ); \ asm ("pushl r11" ); \ asm ("pushl r12" ); \ asm ("pushl fp" ); \ asm ("pushl sp" ); \ asm ("pushl pc" ); \ asm ("pushl ps" ); \ asm ("pushl aclo" ); \ asm ("pushl achi" ); \ } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { \ asm ("movl (sp)+, achi"); \ asm ("movl (sp)+, aclo"); \ asm ("movl (sp)+, ps"); \ asm ("movl (sp)+, pc"); \ asm ("movl (sp)+, sp"); \ asm ("movl (sp)+, fp"); \ asm ("movl (sp)+, r12"); \ asm ("movl (sp)+, r11"); \ asm ("movl (sp)+, r10"); \ asm ("movl (sp)+, r9"); \ asm ("movl (sp)+, r8"); \ asm ("movl (sp)+, r7"); \ asm ("movl (sp)+, r6"); \ asm ("movl (sp)+, r5"); \ asm ("movl (sp)+, r4"); \ asm ("movl (sp)+, r3"); \ asm ("movl (sp)+, r2"); \ asm ("movl (sp)+, r1"); \ asm ("movl (sp)+, r0"); \ asm ("subl2 $8,(sp)"); \ asm ("movl (sp),sp"); \ asm ("rei"); } gdb-4.13/gdb/config/vax/ 777 34562 1752 0 5623250707 13262 5ustar fnfcygnusgdb-4.13/gdb/config/vax/nm-vax.h 666 34562 1752 2247 5353462652 14732 0ustar fnfcygnus/* Common definitions for GDB native support on Vaxen under 4.2bsd and Ultrix. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define REGISTER_U_ADDR(addr, blockend, regno) \ { addr = blockend - 0110 + regno * 4; \ if (regno == PC_REGNUM) addr = blockend - 8; \ if (regno == PS_REGNUM) addr = blockend - 4; \ if (regno == FP_REGNUM) addr = blockend - 0120; \ if (regno == AP_REGNUM) addr = blockend - 0124; \ if (regno == SP_REGNUM) addr = blockend - 20; } gdb-4.13/gdb/config/vax/tm-vax.h 666 34562 1752 31141 5513346757 14760 0ustar fnfcygnus/* Definitions to make GDB run on a vax under 4.2bsd. Copyright 1986, 1987, 1989, 1991, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_BYTE_ORDER LITTLE_ENDIAN /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 2 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(pc) \ { register int op = (unsigned char) read_memory_integer (pc, 1); \ if (op == 0x11) pc += 2; /* skip brb */ \ if (op == 0x31) pc += 3; /* skip brw */ \ if (op == 0xC2 && \ ((unsigned char) read_memory_integer (pc+2, 1)) == 0x5E) \ pc += 3; /* skip subl2 */ \ if (op == 0x9E && \ ((unsigned char) read_memory_integer (pc+1, 1)) == 0xAE && \ ((unsigned char) read_memory_integer(pc+3, 1)) == 0x5E) \ pc += 4; /* skip movab */ \ if (op == 0x9E && \ ((unsigned char) read_memory_integer (pc+1, 1)) == 0xCE && \ ((unsigned char) read_memory_integer(pc+4, 1)) == 0x5E) \ pc += 5; /* skip movab */ \ if (op == 0x9E && \ ((unsigned char) read_memory_integer (pc+1, 1)) == 0xEE && \ ((unsigned char) read_memory_integer(pc+6, 1)) == 0x5E) \ pc += 7; /* skip movab */ \ } /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) FRAME_SAVED_PC(frame) #define TARGET_UPAGES 14 #define TARGET_NBPG 512 #define STACK_END_ADDR (0x80000000 - (TARGET_UPAGES * TARGET_NBPG)) /* On the VAX, sigtramp is in the u area. Can't check the exact addresses because for cross-debugging we don't have VAX include files around. This should be close enough. */ #define SIGTRAMP_START STACK_END_ADDR #define SIGTRAMP_END 0x80000000 /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {3} /* Amount PC must be decremented by after a breakpoint. This is often the number of bytes in BREAKPOINT but not always. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ #define ABOUT_TO_RETURN(pc) (read_memory_integer (pc, 1) == 04) /* Return 1 if P points to an invalid floating point value. LEN is the length in bytes -- not relevant on the Vax. */ #define INVALID_FLOAT(p, len) ((*(short *) p & 0xff80) == 0x8000) /* Say how long (ordinary) registers are. This is a piece of bogosity used in push_word and a few other places; REGISTER_RAW_SIZE is the real way to know how big a register is. */ #define REGISTER_SIZE 4 /* Number of machine registers */ #define NUM_REGS 17 /* Initializer for an array of names of registers. There should be NUM_REGS strings in this initializer. */ #define REGISTER_NAMES {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "ap", "fp", "sp", "pc", "ps"} /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define AP_REGNUM 12 #define FP_REGNUM 13 /* Contains address of executing stack frame */ #define SP_REGNUM 14 /* Contains address of top of stack */ #define PC_REGNUM 15 /* Contains program counter */ #define PS_REGNUM 16 /* Contains processor status */ /* Total amount of space needed to store our copies of the machine's register state, the array `registers'. */ #define REGISTER_BYTES (17*4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N) * 4) /* Number of bytes of storage in the actual machine representation for register N. On the vax, all regs are 4 bytes. */ #define REGISTER_RAW_SIZE(N) 4 /* Number of bytes of storage in the program's representation for register N. On the vax, all regs are 4 bytes. */ #define REGISTER_VIRTUAL_SIZE(N) 4 /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 4 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 4 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) builtin_type_int /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) \ { write_register (1, (ADDR)); } /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy (VALBUF, REGBUF, TYPE_LENGTH (TYPE)) /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) \ write_register_bytes (0, VALBUF, TYPE_LENGTH (TYPE)) /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(int *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. */ /* In the case of the Vax, the frame's nominal address is the FP value, and 12 bytes later comes the saved previous FP value as a 4-byte word. */ #define FRAME_CHAIN(thisframe) \ (!inside_entry_file ((thisframe)->pc) ? \ read_memory_integer ((thisframe)->frame + 12, 4) :\ 0) /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ /* On the vax, all functions have frames. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) {(FRAMELESS) = 0;} /* Saved Pc. Get it from sigcontext if within sigtramp. */ /* Offset to saved PC in sigcontext, from . */ #define SIGCONTEXT_PC_OFFSET 12 #define FRAME_SAVED_PC(FRAME) \ (((FRAME)->signal_handler_caller \ ? sigtramp_saved_pc (FRAME) \ : read_memory_integer ((FRAME)->frame + 16, 4)) \ ) /* Cannot find the AP register value directly from the FP value. Must find it saved in the frame called by this one, or in the AP register for the innermost frame. However, there is no way to tell the difference between the innermost frame and a frame for which we just don't know the frame that it called (e.g. "info frame 0x7ffec789"). For the sake of argument suppose that the stack is somewhat trashed (which is one reason that "info frame" exists). So return 0 (indicating we don't know the address of the arglist) if we don't know what frame this frame calls. */ #define FRAME_ARGS_ADDRESS_CORRECT(fi) \ (((fi)->next \ ? read_memory_integer ((fi)->next->frame + 8, 4) \ : /* read_register (AP_REGNUM) */ 0)) /* In most of GDB, getting the args address is too important to just say "I don't know". This is sometimes wrong for functions that aren't on top of the stack, but c'est la vie. */ #define FRAME_ARGS_ADDRESS(fi) \ (((fi)->next \ ? read_memory_integer ((fi)->next->frame + 8, 4) \ : read_register (AP_REGNUM) /* 0 */)) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Return number of args passed to a frame. Can return -1, meaning no way to tell. */ #define FRAME_NUM_ARGS(numargs, fi) \ { numargs = (0xff & read_memory_integer (FRAME_ARGS_ADDRESS (fi), 1)); } /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 4 /* Put here the code to store, into a struct frame_saved_regs, the addresses of the saved registers of frame described by FRAME_INFO. This includes special registers such as pc and fp saved in special ways in the stack frame. sp is even more special: the address we return for it IS the sp for the next frame. */ #define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \ { register int regnum; \ register int regmask = read_memory_integer ((frame_info)->frame+4, 4) >> 16; \ register CORE_ADDR next_addr; \ memset (&frame_saved_regs, '\0', sizeof frame_saved_regs); \ next_addr = (frame_info)->frame + 16; \ /* Regmask's low bit is for register 0, \ which is the first one that would be pushed. */ \ for (regnum = 0; regnum < 12; regnum++, regmask >>= 1) \ (frame_saved_regs).regs[regnum] = (regmask & 1) ? (next_addr += 4) : 0; \ (frame_saved_regs).regs[SP_REGNUM] = next_addr + 4; \ if (read_memory_integer ((frame_info)->frame + 4, 4) & 0x20000000) \ (frame_saved_regs).regs[SP_REGNUM] += 4 + 4 * read_memory_integer (next_addr + 4, 4); \ (frame_saved_regs).regs[PC_REGNUM] = (frame_info)->frame + 16; \ (frame_saved_regs).regs[FP_REGNUM] = (frame_info)->frame + 12; \ (frame_saved_regs).regs[AP_REGNUM] = (frame_info)->frame + 8; \ (frame_saved_regs).regs[PS_REGNUM] = (frame_info)->frame + 4; \ } /* Things needed for making the inferior call functions. */ /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME \ { register CORE_ADDR sp = read_register (SP_REGNUM);\ register int regnum; \ sp = push_word (sp, 0); /* arglist */ \ for (regnum = 11; regnum >= 0; regnum--) \ sp = push_word (sp, read_register (regnum)); \ sp = push_word (sp, read_register (PC_REGNUM)); \ sp = push_word (sp, read_register (FP_REGNUM)); \ sp = push_word (sp, read_register (AP_REGNUM)); \ sp = push_word (sp, (read_register (PS_REGNUM) & 0xffef) \ + 0x2fff0000); \ sp = push_word (sp, 0); \ write_register (SP_REGNUM, sp); \ write_register (FP_REGNUM, sp); \ write_register (AP_REGNUM, sp + 17 * sizeof (int)); } /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME \ { register CORE_ADDR fp = read_register (FP_REGNUM); \ register int regnum; \ register int regmask = read_memory_integer (fp + 4, 4); \ write_register (PS_REGNUM, \ (regmask & 0xffff) \ | (read_register (PS_REGNUM) & 0xffff0000)); \ write_register (PC_REGNUM, read_memory_integer (fp + 16, 4)); \ write_register (FP_REGNUM, read_memory_integer (fp + 12, 4)); \ write_register (AP_REGNUM, read_memory_integer (fp + 8, 4)); \ fp += 16; \ for (regnum = 0; regnum < 12; regnum++) \ if (regmask & (0x10000 << regnum)) \ write_register (regnum, read_memory_integer (fp += 4, 4)); \ fp = fp + 4 + ((regmask >> 30) & 3); \ if (regmask & 0x20000000) \ { regnum = read_memory_integer (fp, 4); \ fp += (regnum + 1) * 4; } \ write_register (SP_REGNUM, fp); \ flush_cached_frames (); \ set_current_frame (create_new_frame (read_register (FP_REGNUM),\ read_pc ())); } /* This sequence of words is the instructions calls #69, @#32323232 bpt Note this is 8 bytes. */ #define CALL_DUMMY {0x329f69fb, 0x03323232} #define CALL_DUMMY_START_OFFSET 0 /* Start execution at beginning of dummy */ #define CALL_DUMMY_BREAKPOINT_OFFSET 7 /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { *((char *) dummyname + 1) = nargs; \ *(int *)((char *) dummyname + 3) = fun; } /* If vax pcc says CHAR or SHORT, it provides the correct address. */ #define BELIEVE_PCC_PROMOTION 1 gdb-4.13/gdb/config/vax/vax.mt 666 34562 1752 130 5353462656 14464 0ustar fnfcygnus# Target: DEC VAX running BSD or Ultrix TDEPFILES= vax-pinsn.o exec.o TM_FILE= tm-vax.h gdb-4.13/gdb/config/vax/vaxbsd.mh 666 34562 1752 762 5376312341 15142 0ustar fnfcygnus# Host: DEC VAX running BSD # The following types of /bin/cc failures have been observed: # 1. Something in readline.c which I have never seen # 2. ``"values.c", line 816: compiler error: schain botch'' #msg /bin/cc has been known to fail on VAXen running BSD4.3 #msg If this occurs, use gcc #msg (but see comments in Makefile.dist about compiling with gcc). XDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o REGEX=regex.o REGEX1=regex.o XM_FILE= xm-vaxbsd.h NAT_FILE= nm-vax.h gdb-4.13/gdb/config/vax/vaxult.mh 666 34562 1752 265 5353462661 15202 0ustar fnfcygnus# Host: DEC VAX running Ultrix XDEPFILES= REGEX=regex.o REGEX1=regex.o XM_FILE= xm-vaxult.h NAT_FILE= nm-vax.h NATDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o gdb-4.13/gdb/config/vax/vaxult2.mh 666 34562 1752 266 5353462663 15267 0ustar fnfcygnus# Host: DEC VAX running Ultrix XDEPFILES= REGEX=regex.o REGEX1=regex.o XM_FILE= xm-vaxult2.h NAT_FILE= nm-vax.h NATDEPFILES= infptrace.o inftarg.o fork-child.o coredep.o corelow.o gdb-4.13/gdb/config/vax/xm-vax.h 666 34562 1752 5455 5565224225 14745 0ustar fnfcygnus/* Common definitions to make GDB run on Vaxen under 4.2bsd and Ultrix. Copyright (C) 1986, 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define HOST_BYTE_ORDER LITTLE_ENDIAN /* This is the amount to subtract from u.u_ar0 to get the offset in the core file of the register values. */ #define KERNEL_U_ADDR (0x80000000 - (UPAGES * NBPG)) /* Kernel is a bit tenacious about sharing text segments, disallowing bpts. */ #define ONE_PROCESS_WRITETEXT /* Interface definitions for kernel debugger KDB. */ /* Map machine fault codes into signal numbers. First subtract 0, divide by 4, then index in a table. Faults for which the entry in this table is 0 are not handled by KDB; the program's own trap handler gets to handle then. */ #define FAULT_CODE_ORIGIN 0 #define FAULT_CODE_UNITS 4 #define FAULT_TABLE \ { 0, SIGKILL, SIGSEGV, 0, 0, 0, 0, 0, \ 0, 0, SIGTRAP, SIGTRAP, 0, 0, 0, 0, \ 0, 0, 0, 0, 0, 0, 0, 0} /* Start running with a stack stretching from BEG to END. BEG and END should be symbols meaningful to the assembler. This is used only for kdb. */ #define INIT_STACK(beg, end) \ { asm (".globl end"); \ asm ("movl $ end, sp"); \ asm ("clrl fp"); } /* Push the frame pointer register on the stack. */ #define PUSH_FRAME_PTR \ asm ("pushl fp"); /* Copy the top-of-stack to the frame pointer register. */ #define POP_FRAME_PTR \ asm ("movl (sp), fp"); /* After KDB is entered by a fault, push all registers that GDB thinks about (all NUM_REGS of them), so that they appear in order of ascending GDB register number. The fault code will be on the stack beyond the last register. */ #define PUSH_REGISTERS \ { asm ("pushl 8(sp)"); \ asm ("pushl 8(sp)"); \ asm ("pushal 0x14(sp)"); \ asm ("pushr $037777"); } /* Assuming the registers (including processor status) have been pushed on the stack in order of ascending GDB register number, restore them and return to the address in the saved PC register. */ #define POP_REGISTERS \ { asm ("popr $037777"); \ asm ("subl2 $8,(sp)"); \ asm ("movl (sp),sp"); \ asm ("rei"); } gdb-4.13/gdb/config/vax/xm-vaxbsd.h 666 34562 1752 701 5376312341 15400 0ustar fnfcygnus/* Definitions to make GDB run on a vax under BSD, 4.3 or 4.4. */ /* We have to include these files now, so that GDB will not make competing definitions in defs.h. */ #include /* This should exist on either 4.3 or 4.4. 4.3 doesn't have limits.h or machine/limits.h. */ #include #include "vax/xm-vax.h" /* In non-ANSI compiles, memcpy and memset are still void *, not char *. */ #define MEM_FNS_DECLARED gdb-4.13/gdb/config/vax/xm-vaxult.h 666 34562 1752 1012 5436431153 15450 0ustar fnfcygnus/* Definitions to make GDB run on a vax under Ultrix. */ #include "vax/xm-vax.h" extern char *strdup(); #define MEM_FNS_DECLARED /* This is required for Ultrix 3.1b, not for later versions. Ultrix 3.1b can't just use xm-vaxult2.h because Ultrix 3.1b does define FD_SET. Sure, we could have separate configurations for vaxult2, vaxult3, and vaxult, but why bother? Defining the ptrace constants in infptrace.c isn't going to do any harm; it's not like they are going to change. */ #define NO_PTRACE_H gdb-4.13/gdb/config/vax/xm-vaxult2.h 666 34562 1752 550 5414434561 15522 0ustar fnfcygnus/* Definitions to make GDB run on a vax under Ultrix. */ #include "vax/xm-vax.h" extern char *strdup(); #define MEM_FNS_DECLARED #define NO_PTRACE_H /* Old versions of ultrix have fd_set but not the FD_* macros. */ #define FD_SET(bit,fdsetp) ((fdsetp)->fds_bits[(n) / 32] |= (1 << ((n) % 32))) #define FD_ZERO(fdsetp) memset (fdsetp, 0, sizeof (*fdsetp)) gdb-4.13/gdb/config/z8k/ 777 34562 1752 0 5623250714 13176 5ustar fnfcygnusgdb-4.13/gdb/config/z8k/tm-z8k.h 666 34562 1752 23013 5524564356 14612 0ustar fnfcygnus/* Parameters for execution on a z8000 series machine. Copyright 1992, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define IEEE_FLOAT 1 #undef TARGET_INT_BIT #undef TARGET_LONG_BIT #undef TARGET_SHORT_BIT #undef TARGET_PTR_BIT #define TARGET_SHORT_BIT 16 #define TARGET_INT_BIT 16 #define TARGET_LONG_BIT 32 #define TARGET_PTR_BIT (BIG ? 32: 16) /* Define the bit, byte, and word ordering of the machine. */ #define TARGET_BYTE_ORDER BIG_ENDIAN /* Offset from address of function to start of its code. Zero on most machines. */ #define FUNCTION_START_OFFSET 0 /* Advance PC across any function entry prologue instructions to reach some "real" code. */ #define SKIP_PROLOGUE(ip) {(ip) = z8k_skip_prologue(ip);} extern CORE_ADDR mz8k_skip_prologue PARAMS ((CORE_ADDR ip)); /* Immediately after a function call, return the saved pc. Can't always go through the frames for this because on some machines the new frame is not set up until the new function executes some instructions. */ #define SAVED_PC_AFTER_CALL(frame) saved_pc_after_call(frame) /* Stack grows downward. */ #define INNER_THAN < /* Sequence of bytes for breakpoint instruction. */ #define BREAKPOINT {0x36,0x00} /* If your kernel resets the pc after the trap happens you may need to define this before including this file. */ #define DECR_PC_AFTER_BREAK 0 /* Nonzero if instruction at PC is a return instruction. */ /* Allow any of the return instructions, including a trapv and a return from interupt. */ #define ABOUT_TO_RETURN(pc) about_to_return(pc) /* Return 1 if P points to an invalid floating point value. */ #define INVALID_FLOAT(p, len) 0 /* Just a first guess; not checked */ /* Say how long registers are. */ #define REGISTER_TYPE unsigned int #define NUM_REGS 23 /* 16 registers + 1 ccr + 1 pc + 3 debug regs + fake fp + fake sp*/ #define REGISTER_BYTES (NUM_REGS *4) /* Index within `registers' of the first byte of the space for register N. */ #define REGISTER_BYTE(N) ((N)*4) /* Number of bytes of storage in the actual machine representation for register N. On the z8k, all but the pc are 2 bytes, but we keep them all as 4 bytes and trim them on I/O */ #define REGISTER_RAW_SIZE(N) (((N) < 16)? 2:4) /* Number of bytes of storage in the program's representation for register N. */ #define REGISTER_VIRTUAL_SIZE(N) REGISTER_RAW_SIZE(N) /* Largest value REGISTER_RAW_SIZE can have. */ #define MAX_REGISTER_RAW_SIZE 4 /* Largest value REGISTER_VIRTUAL_SIZE can have. */ #define MAX_REGISTER_VIRTUAL_SIZE 4 /* Return the GDB type object for the "standard" data type of data in register N. */ #define REGISTER_VIRTUAL_TYPE(N) \ (REGISTER_VIRTUAL_SIZE(N) == 2? builtin_type_unsigned_int : builtin_type_long) /*#define INIT_FRAME_PC(x,y) init_frame_pc(x,y)*/ /* Initializer for an array of names of registers. Entries beyond the first NUM_REGS are ignored. */ #define REGISTER_NAMES \ {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \ "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", \ "ccr", "pc", "cycles","insts","time","fp","sp"} /* Register numbers of various important registers. Note that some of these values are "real" register numbers, and correspond to the general registers of the machine, and some are "phony" register numbers which are too large to be actual register numbers as far as the user is concerned but do serve to get the desired values when passed to read_register. */ #define CCR_REGNUM 16 /* Contains processor status */ #define PC_REGNUM 17 /* Contains program counter */ #define CYCLES_REGNUM 18 #define INSTS_REGNUM 19 #define TIME_REGNUM 20 #define FP_REGNUM 21 /* Contains fp, whatever memory model */ #define SP_REGNUM 22 /* Conatins sp, whatever memory model */ #define PTR_SIZE (BIG ? 4: 2) #define PTR_MASK (BIG ? 0xff00ffff : 0x0000ffff) /* Store the address of the place in which to copy the structure the subroutine will return. This is called from call_function. */ #define STORE_STRUCT_RETURN(ADDR, SP) abort(); /* Extract from an array REGBUF containing the (raw) register state a function return value of type TYPE, and copy that, in virtual format, into VALBUF. This is assuming that floating point values are returned as doubles in d0/d1. */ #define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \ memcpy(VALBUF, REGBUF + REGISTER_BYTE(2), TYPE_LENGTH(TYPE)); /* Write into appropriate registers a function return value of type TYPE, given in virtual format. */ #define STORE_RETURN_VALUE(TYPE,VALBUF) abort(); /* Extract from an array REGBUF containing the (raw) register state the address in which a function should return its structure value, as a CORE_ADDR (or an expression that can be used as one). */ #define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(CORE_ADDR *)(REGBUF)) /* Describe the pointer in each stack frame to the previous stack frame (its caller). */ /* FRAME_CHAIN takes a frame's nominal address and produces the frame's chain-pointer. In the case of the Z8000, the frame's nominal address is the address of a ptr sized byte word containing the calling frame's address. */ #define FRAME_CHAIN(thisframe) frame_chain(thisframe); /* Define other aspects of the stack frame. */ /* A macro that tells us whether the function invocation represented by FI does not have a frame on the stack associated with it. If it does not, FRAMELESS is set to 1, else 0. */ #define FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) \ (FRAMELESS) = frameless_look_for_prologue(FI) #define FRAME_SAVED_PC(FRAME) frame_saved_pc(FRAME) #define FRAME_ARGS_ADDRESS(fi) ((fi)->frame) #define FRAME_LOCALS_ADDRESS(fi) ((fi)->frame) /* Set VAL to the number of args passed to frame described by FI. Can set VAL to -1, meaning no way to tell. */ /* We can't tell how many args there are now that the C compiler delays popping them. */ #if !defined (FRAME_NUM_ARGS) #define FRAME_NUM_ARGS(val,fi) (val = -1) #endif /* Return number of bytes at start of arglist that are not really args. */ #define FRAME_ARGS_SKIP 8 /* Things needed for making the inferior call functions. It seems like every m68k based machine has almost identical definitions in the individual machine's configuration files. Most other cpu types (mips, i386, etc) have routines in their *-tdep.c files to handle this for most configurations. The m68k family should be able to do this as well. These macros can still be overridden when necessary. */ /* The CALL_DUMMY macro is the sequence of instructions, as disassembled by gdb itself: fmovemx fp0-fp7,sp@- 0xf227 0xe0ff moveml d0-a5,sp@- 0x48e7 0xfffc clrw sp@- 0x4267 movew ccr,sp@- 0x42e7 /..* The arguments are pushed at this point by GDB; no code is needed in the dummy for this. The CALL_DUMMY_START_OFFSET gives the position of the following jsr instruction. *../ jsr @#0x32323232 0x4eb9 0x3232 0x3232 addal #0x69696969,sp 0xdffc 0x6969 0x6969 trap # 0x4e4? nop 0x4e71 Note this is CALL_DUMMY_LENGTH bytes (28 for the above example). We actually start executing at the jsr, since the pushing of the registers is done by PUSH_DUMMY_FRAME. If this were real code, the arguments for the function called by the jsr would be pushed between the moveml and the jsr, and we could allow it to execute through. But the arguments have to be pushed by GDB after the PUSH_DUMMY_FRAME is done, and we cannot allow the moveml to push the registers again lest they be taken for the arguments. */ #define CALL_DUMMY { 0 } #define CALL_DUMMY_LENGTH 24 /* Size of CALL_DUMMY */ #define CALL_DUMMY_START_OFFSET 8 /* Offset to jsr instruction*/ /* Insert the specified number of args and function address into a call sequence of the above form stored at DUMMYNAME. We use the BFD routines to store a big-endian value of known size. */ #define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \ { bfd_putb32 (fun, (char *) dummyname + CALL_DUMMY_START_OFFSET + 2); \ bfd_putb32 (nargs*4, (char *) dummyname + CALL_DUMMY_START_OFFSET + 8); } /* Push an empty stack frame, to record the current PC, etc. */ #define PUSH_DUMMY_FRAME { z8k_push_dummy_frame (); } extern void z8k_push_dummy_frame PARAMS ((void)); extern void z8k_pop_frame PARAMS ((void)); /* Discard from the stack the innermost frame, restoring all registers. */ #define POP_FRAME { z8k_pop_frame (); } /* Offset from SP to first arg on stack at first instruction of a function */ #define SP_ARG0 (1 * 4) #define ADDR_BITS_REMOVE(x) addr_bits_remove(x) int sim_z8001_mode; #define BIG (sim_z8001_mode) #define read_memory_short(x) (read_memory_integer(x,2) & 0xffff) #define NO_STD_REGS #define PRINT_REGISTER_HOOK(regno) print_register_hook(regno) #define INIT_EXTRA_SYMTAB_INFO \ z8k_set_pointer_size(objfile->obfd->arch_info->bits_per_address); #define REGISTER_SIZE 4 gdb-4.13/gdb/config/z8k/z8ksim.mt 666 34562 1752 204 5502460260 15014 0ustar fnfcygnus# Target: Z8000 simulator TDEPFILES= exec.o z8k-tdep.o remote-sim.o ../sim/z8k/libsim.a ../opcodes/libopcodes.a TM_FILE= tm-z8k.h gdb-4.13/gdb/gdb.info-7 666 34562 1752 136064 5623251657 13133 0ustar fnfcygnusThis is Info file ./gdb.info, produced by Makeinfo-1.52 from the input file gdb.texinfo. START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY This file documents the GNU debugger GDB. This is Edition 4.12, January 1994, of `Debugging with GDB: the GNU Source-Level Debugger' for GDB Version 4.13. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions.  File: gdb.info, Node: Define, Next: Hooks, Up: Sequences User-defined commands ===================== A "user-defined command" is a sequence of GDB commands to which you assign a new name as a command. This is done with the `define' command. `define COMMANDNAME' Define a command named COMMANDNAME. If there is already a command by that name, you are asked to confirm that you want to redefine it. The definition of the command is made up of other GDB command lines, which are given following the `define' command. The end of these commands is marked by a line containing `end'. `document COMMANDNAME' Give documentation to the user-defined command COMMANDNAME. The command COMMANDNAME must already be defined. This command reads lines of documentation just as `define' reads the lines of the command definition, ending with `end'. After the `document' command is finished, `help' on command COMMANDNAME displays the documentation you have specified. You may use the `document' command again to change the documentation of a command. Redefining the command with `define' does not change the documentation. `help user-defined' List all user-defined commands, with the first line of the documentation (if any) for each. `show user' `show user COMMANDNAME' Display the GDB commands used to define COMMANDNAME (but not its documentation). If no COMMANDNAME is given, display the definitions for all user-defined commands. User-defined commands do not take arguments. When they are executed, the commands of the definition are not printed. An error in any command stops execution of the user-defined command. Commands that would ask for confirmation if used interactively proceed without asking when used inside a user-defined command. Many GDB commands that normally print messages to say what they are doing omit the messages when used in a user-defined command.  File: gdb.info, Node: Hooks, Next: Command Files, Prev: Define, Up: Sequences User-defined command hooks ========================== You may define *hooks*, which are a special kind of user-defined command. Whenever you run the command `foo', if the user-defined command `hook-foo' exists, it is executed (with no arguments) before that command. In addition, a pseudo-command, `stop' exists. Defining (`hook-stop') makes the associated commands execute every time execution stops in your program: before breakpoint commands are run, displays are printed, or the stack frame is printed. For example, to ignore `SIGALRM' signals while single-stepping, but treat them normally during normal execution, you could define: define hook-stop handle SIGALRM nopass end define hook-run handle SIGALRM pass end define hook-continue handle SIGLARM pass end You can define a hook for any single-word command in GDB, but not for command aliases; you should define a hook for the basic command name, e.g. `backtrace' rather than `bt'. If an error occurs during the execution of your hook, execution of GDB commands stops and GDB issues a prompt (before the command that you actually typed had a chance to run). If you try to define a hook which does not match any known command, you get a warning from the `define' command.  File: gdb.info, Node: Command Files, Next: Output, Prev: Hooks, Up: Sequences Command files ============= A command file for GDB is a file of lines that are GDB commands. Comments (lines starting with `#') may also be included. An empty line in a command file does nothing; it does not mean to repeat the last command, as it would from the terminal. When you start GDB, it automatically executes commands from its "init files". These are files named `.gdbinit'. GDB reads the init file (if any) in your home directory, then processes command line options and operands, and then reads the init file (if any) in the current working directory. This is so the init file in your home directory can set options (such as `set complaints') which affect the processing of the command line options and operands. The init files are not executed if you use the `-nx' option; *note Choosing modes: Mode Options.. On some configurations of GDB, the init file is known by a different name (these are typically environments where a specialized form of GDB may need to coexist with other forms, hence a different name for the specialized version's init file). These are the environments with special init file names: * VxWorks (Wind River Systems real-time OS): `.vxgdbinit' * OS68K (Enea Data Systems real-time OS): `.os68gdbinit' * ES-1800 (Ericsson Telecom AB M68000 emulator): `.esgdbinit' You can also request the execution of a command file with the `source' command: `source FILENAME' Execute the command file FILENAME. The lines in a command file are executed sequentially. They are not printed as they are executed. An error in any command terminates execution of the command file. Commands that would ask for confirmation if used interactively proceed without asking when used in a command file. Many GDB commands that normally print messages to say what they are doing omit the messages when called from command files.  File: gdb.info, Node: Output, Prev: Command Files, Up: Sequences Commands for controlled output ============================== During the execution of a command file or a user-defined command, normal GDB output is suppressed; the only output that appears is what is explicitly printed by the commands in the definition. This section describes three commands useful for generating exactly the output you want. `echo TEXT' Print TEXT. Nonprinting characters can be included in TEXT using C escape sequences, such as `\n' to print a newline. *No newline is printed unless you specify one.* In addition to the standard C escape sequences, a backslash followed by a space stands for a space. This is useful for displaying a string with spaces at the beginning or the end, since leading and trailing spaces are otherwise trimmed from all arguments. To print ` and foo = ', use the command `echo \ and foo = \ '. A backslash at the end of TEXT can be used, as in C, to continue the command onto subsequent lines. For example, echo This is some text\n\ which is continued\n\ onto several lines.\n produces the same output as echo This is some text\n echo which is continued\n echo onto several lines.\n `output EXPRESSION' Print the value of EXPRESSION and nothing but that value: no newlines, no `$NN = '. The value is not entered in the value history either. *Note Expressions: Expressions, for more information on expressions. `output/FMT EXPRESSION' Print the value of EXPRESSION in format FMT. You can use the same formats as for `print'. *Note Output formats: Output Formats, for more information. `printf STRING, EXPRESSIONS...' Print the values of the EXPRESSIONS under the control of STRING. The EXPRESSIONS are separated by commas and may be either numbers or pointers. Their values are printed as specified by STRING, exactly as if your program were to execute the C subroutine printf (STRING, EXPRESSIONS...); For example, you can print two values in hex like this: printf "foo, bar-foo = 0x%x, 0x%x\n", foo, bar-foo The only backslash-escape sequences that you can use in the format string are the simple ones that consist of backslash followed by a letter.  File: gdb.info, Node: Emacs, Next: GDB Bugs, Prev: Sequences, Up: Top Using GDB under GNU Emacs ************************* A special interface allows you to use GNU Emacs to view (and edit) the source files for the program you are debugging with GDB. To use this interface, use the command `M-x gdb' in Emacs. Give the executable file you want to debug as an argument. This command starts GDB as a subprocess of Emacs, with input and output through a newly created Emacs buffer. Using GDB under Emacs is just like using GDB normally except for two things: * All "terminal" input and output goes through the Emacs buffer. This applies both to GDB commands and their output, and to the input and output done by the program you are debugging. This is useful because it means that you can copy the text of previous commands and input them again; you can even use parts of the output in this way. All the facilities of Emacs' Shell mode are available for interacting with your program. In particular, you can send signals the usual way--for example, `C-c C-c' for an interrupt, `C-c C-z' for a stop. * GDB displays source code through Emacs. Each time GDB displays a stack frame, Emacs automatically finds the source file for that frame and puts an arrow (`=>') at the left margin of the current line. Emacs uses a separate buffer for source display, and splits the screen to show both your GDB session and the source. Explicit GDB `list' or search commands still produce output as usual, but you probably have no reason to use them from Emacs. *Warning:* If the directory where your program resides is not your current directory, it can be easy to confuse Emacs about the location of the source files, in which case the auxiliary display buffer does not appear to show your source. GDB can find programs by searching your environment's `PATH' variable, so the GDB input and output session proceeds normally; but Emacs does not get enough information back from GDB to locate the source files in this situation. To avoid this problem, either start GDB mode from the directory where your program resides, or specify an absolute file name when prompted for the `M-x gdb' argument. A similar confusion can result if you use the GDB `file' command to switch to debugging a program in some other location, from an existing GDB buffer in Emacs. By default, `M-x gdb' calls the program called `gdb'. If you need to call GDB by a different name (for example, if you keep several configurations around, with different names) you can set the Emacs variable `gdb-command-name'; for example, (setq gdb-command-name "mygdb") (preceded by `ESC ESC', or typed in the `*scratch*' buffer, or in your `.emacs' file) makes Emacs call the program named "`mygdb'" instead. In the GDB I/O buffer, you can use these special Emacs commands in addition to the standard Shell mode commands: `C-h m' Describe the features of Emacs' GDB Mode. `M-s' Execute to another source line, like the GDB `step' command; also update the display window to show the current file and location. `M-n' Execute to next source line in this function, skipping all function calls, like the GDB `next' command. Then update the display window to show the current file and location. `M-i' Execute one instruction, like the GDB `stepi' command; update display window accordingly. `M-x gdb-nexti' Execute to next instruction, using the GDB `nexti' command; update display window accordingly. `C-c C-f' Execute until exit from the selected stack frame, like the GDB `finish' command. `M-c' Continue execution of your program, like the GDB `continue' command. *Warning:* In Emacs v19, this command is `C-c C-p'. `M-u' Go up the number of frames indicated by the numeric argument (*note Numeric Arguments: (emacs)Arguments.), like the GDB `up' command. *Warning:* In Emacs v19, this command is `C-c C-u'. `M-d' Go down the number of frames indicated by the numeric argument, like the GDB `down' command. *Warning:* In Emacs v19, this command is `C-c C-d'. `C-x &' Read the number where the cursor is positioned, and insert it at the end of the GDB I/O buffer. For example, if you wish to disassemble code around an address that was displayed earlier, type `disassemble'; then move the cursor to the address display, and pick up the argument for `disassemble' by typing `C-x &'. You can customize this further by defining elements of the list `gdb-print-command'; once it is defined, you can format or otherwise process numbers picked up by `C-x &' before they are inserted. A numeric argument to `C-x &' indicates that you wish special formatting, and also acts as an index to pick an element of the list. If the list element is a string, the number to be inserted is formatted using the Emacs function `format'; otherwise the number is passed as an argument to the corresponding list element. In any source file, the Emacs command `C-x SPC' (`gdb-break') tells GDB to set a breakpoint on the source line point is on. If you accidentally delete the source-display buffer, an easy way to get it back is to type the command `f' in the GDB buffer, to request a frame display; when you run under Emacs, this recreates the source buffer if necessary to show you the context of the current frame. The source files displayed in Emacs are in ordinary Emacs buffers which are visiting the source files in the usual way. You can edit the files with these buffers if you wish; but keep in mind that GDB communicates with Emacs in terms of line numbers. If you add or delete lines from the text, the line numbers that GDB knows cease to correspond properly with the code.  File: gdb.info, Node: GDB Bugs, Next: Command Line Editing, Prev: Emacs, Up: Top Reporting Bugs in GDB ********************* Your bug reports play an essential role in making GDB reliable. Reporting a bug may help you by bringing a solution to your problem, or it may not. But in any case the principal function of a bug report is to help the entire community by making the next version of GDB work better. Bug reports are your contribution to the maintenance of GDB. In order for a bug report to serve its purpose, you must include the information that enables us to fix the bug. * Menu: * Bug Criteria:: Have you found a bug? * Bug Reporting:: How to report bugs  File: gdb.info, Node: Bug Criteria, Next: Bug Reporting, Up: GDB Bugs Have you found a bug? ===================== If you are not sure whether you have found a bug, here are some guidelines: * If the debugger gets a fatal signal, for any input whatever, that is a GDB bug. Reliable debuggers never crash. * If GDB produces an error message for valid input, that is a bug. * If GDB does not produce an error message for invalid input, that is a bug. However, you should note that your idea of "invalid input" might be our idea of "an extension" or "support for traditional practice". * If you are an experienced user of debugging tools, your suggestions for improvement of GDB are welcome in any case.  File: gdb.info, Node: Bug Reporting, Prev: Bug Criteria, Up: GDB Bugs How to report bugs ================== A number of companies and individuals offer support for GNU products. If you obtained GDB from a support organization, we recommend you contact that organization first. You can find contact information for many support companies and individuals in the file `etc/SERVICE' in the GNU Emacs distribution. In any event, we also recommend that you send bug reports for GDB to one of these addresses: bug-gdb@prep.ai.mit.edu {ucbvax|mit-eddie|uunet}!prep.ai.mit.edu!bug-gdb *Do not send bug reports to `info-gdb', or to `help-gdb', or to any newsgroups.* Most users of GDB do not want to receive bug reports. Those that do, have arranged to receive `bug-gdb'. The mailing list `bug-gdb' has a newsgroup `gnu.gdb.bug' which serves as a repeater. The mailing list and the newsgroup carry exactly the same messages. Often people think of posting bug reports to the newsgroup instead of mailing them. This appears to work, but it has one problem which can be crucial: a newsgroup posting often lacks a mail path back to the sender. Thus, if we need to ask for more information, we may be unable to reach you. For this reason, it is better to send bug reports to the mailing list. As a last resort, send bug reports on paper to: GNU Debugger Bugs Free Software Foundation 545 Tech Square Cambridge, MA 02139 The fundamental principle of reporting bugs usefully is this: *report all the facts*. If you are not sure whether to state a fact or leave it out, state it! Often people omit facts because they think they know what causes the problem and assume that some details do not matter. Thus, you might assume that the name of the variable you use in an example does not matter. Well, probably it does not, but one cannot be sure. Perhaps the bug is a stray memory reference which happens to fetch from the location where that name is stored in memory; perhaps, if the name were different, the contents of that location would fool the debugger into doing the right thing despite the bug. Play it safe and give a specific, complete example. That is the easiest thing for you to do, and the most helpful. Keep in mind that the purpose of a bug report is to enable us to fix the bug if it is new to us. It is not as important as what happens if the bug is already known. Therefore, always write your bug reports on the assumption that the bug has not been reported previously. Sometimes people give a few sketchy facts and ask, "Does this ring a bell?" Those bug reports are useless, and we urge everyone to *refuse to respond to them* except to chide the sender to report bugs properly. To enable us to fix the bug, you should include all these things: * The version of GDB. GDB announces it if you start with no arguments; you can also print it at any time using `show version'. Without this, we will not know whether there is any point in looking for the bug in the current version of GDB. * The type of machine you are using, and the operating system name and version number. * What compiler (and its version) was used to compile GDB--e.g. "gcc-2.0". * What compiler (and its version) was used to compile the program you are debugging--e.g. "gcc-2.0". * The command arguments you gave the compiler to compile your example and observe the bug. For example, did you use `-O'? To guarantee you will not omit something important, list them all. A copy of the Makefile (or the output from make) is sufficient. If we were to try to guess the arguments, we would probably guess wrong and then we might not encounter the bug. * A complete input script, and all necessary source files, that will reproduce the bug. * A description of what behavior you observe that you believe is incorrect. For example, "It gets a fatal signal." Of course, if the bug is that GDB gets a fatal signal, then we will certainly notice it. But if the bug is incorrect output, we might not notice unless it is glaringly wrong. We are human, after all. You might as well not give us a chance to make a mistake. Even if the problem you experience is a fatal signal, you should still say so explicitly. Suppose something strange is going on, such as, your copy of GDB is out of synch, or you have encountered a bug in the C library on your system. (This has happened!) Your copy might crash and ours would not. If you told us to expect a crash, then when ours fails to crash, we would know that the bug was not happening for us. If you had not told us to expect a crash, then we would not be able to draw any conclusion from our observations. * If you wish to suggest changes to the GDB source, send us context diffs. If you even discuss something in the GDB source, refer to it by context, not by line number. The line numbers in our development sources will not match those in your sources. Your line numbers would convey no useful information to us. Here are some things that are not necessary: * A description of the envelope of the bug. Often people who encounter a bug spend a lot of time investigating which changes to the input file will make the bug go away and which changes will not affect it. This is often time consuming and not very useful, because the way we will find the bug is by running a single example under the debugger with breakpoints, not by pure deduction from a series of examples. We recommend that you save your time for something else. Of course, if you can find a simpler example to report *instead* of the original one, that is a convenience for us. Errors in the output will be easier to spot, running under the debugger will take less time, and so on. However, simplification is not vital; if you do not want to do this, report the bug anyway and send us the entire test case you used. * A patch for the bug. A patch for the bug does help us if it is a good one. But do not omit the necessary information, such as the test case, on the assumption that a patch is all we need. We might see problems with your patch and decide to fix the problem another way, or we might not understand it at all. Sometimes with a program as complicated as GDB it is very hard to construct an example that will make the program follow a certain path through the code. If you do not send us the example, we will not be able to construct one, so we will not be able to verify that the bug is fixed. And if we cannot understand what bug you are trying to fix, or why your patch should be an improvement, we will not install it. A test case will help us to understand. * A guess about what the bug is or what it depends on. Such guesses are usually wrong. Even we cannot guess right about such things without first using the debugger to find the facts.  File: gdb.info, Node: Command Line Editing, Next: Using History Interactively, Prev: GDB Bugs, Up: Top Command Line Editing ******************** This text describes GNU's command line editing interface. * Menu: * Introduction and Notation:: Notation used in this text. * Readline Interaction:: The minimum set of commands for editing a line. * Readline Init File:: Customizing Readline from a user's view.  File: gdb.info, Node: Introduction and Notation, Next: Readline Interaction, Up: Command Line Editing Introduction to Line Editing ============================ The following paragraphs describe the notation we use to represent keystrokes. The text C-k is read as `Control-K' and describes the character produced when the Control key is depressed and the k key is struck. The text M-k is read as `Meta-K' and describes the character produced when the meta key (if you have one) is depressed, and the k key is struck. If you do not have a meta key, the identical keystroke can be generated by typing ESC first, and then typing k. Either process is known as "metafying" the k key. The text M-C-k is read as `Meta-Control-k' and describes the character produced by "metafying" C-k. In addition, several keys have their own names. Specifically, DEL, ESC, LFD, SPC, RET, and TAB all stand for themselves when seen in this text, or in an init file (*note Readline Init File::., for more info).  File: gdb.info, Node: Readline Interaction, Next: Readline Init File, Prev: Introduction and Notation, Up: Command Line Editing Readline Interaction ==================== Often during an interactive session you type in a long line of text, only to notice that the first word on the line is misspelled. The Readline library gives you a set of commands for manipulating the text as you type it in, allowing you to just fix your typo, and not forcing you to retype the majority of the line. Using these editing commands, you move the cursor to the place that needs correction, and delete or insert the text of the corrections. Then, when you are satisfied with the line, you simply press RETURN. You do not have to be at the end of the line to press RETURN; the entire line is accepted regardless of the location of the cursor within the line. * Menu: * Readline Bare Essentials:: The least you need to know about Readline. * Readline Movement Commands:: Moving about the input line. * Readline Killing Commands:: How to delete text, and how to get it back! * Readline Arguments:: Giving numeric arguments to commands.  File: gdb.info, Node: Readline Bare Essentials, Next: Readline Movement Commands, Up: Readline Interaction Readline Bare Essentials ------------------------ In order to enter characters into the line, simply type them. The typed character appears where the cursor was, and then the cursor moves one space to the right. If you mistype a character, you can use DEL to back up, and delete the mistyped character. Sometimes you may miss typing a character that you wanted to type, and not notice your error until you have typed several other characters. In that case, you can type C-b to move the cursor to the left, and then correct your mistake. Aftwerwards, you can move the cursor to the right with C-f. When you add text in the middle of a line, you will notice that characters to the right of the cursor get `pushed over' to make room for the text that you have inserted. Likewise, when you delete text behind the cursor, characters to the right of the cursor get `pulled back' to fill in the blank space created by the removal of the text. A list of the basic bare essentials for editing the text of an input line follows. C-b Move back one character. C-f Move forward one character. DEL Delete the character to the left of the cursor. C-d Delete the character underneath the cursor. Printing characters Insert itself into the line at the cursor. C-_ Undo the last thing that you did. You can undo all the way back to an empty line.  File: gdb.info, Node: Readline Movement Commands, Next: Readline Killing Commands, Prev: Readline Bare Essentials, Up: Readline Interaction Readline Movement Commands -------------------------- The above table describes the most basic possible keystrokes that you need in order to do editing of the input line. For your convenience, many other commands have been added in addition to C-b, C-f, C-d, and DEL. Here are some commands for moving more rapidly about the line. C-a Move to the start of the line. C-e Move to the end of the line. M-f Move forward a word. M-b Move backward a word. C-l Clear the screen, reprinting the current line at the top. Notice how C-f moves forward a character, while M-f moves forward a word. It is a loose convention that control keystrokes operate on characters while meta keystrokes operate on words.  File: gdb.info, Node: Readline Killing Commands, Next: Readline Arguments, Prev: Readline Movement Commands, Up: Readline Interaction Readline Killing Commands ------------------------- "Killing" text means to delete the text from the line, but to save it away for later use, usually by "yanking" it back into the line. If the description for a command says that it `kills' text, then you can be sure that you can get the text back in a different (or the same) place later. Here is the list of commands for killing text. C-k Kill the text from the current cursor position to the end of the line. M-d Kill from the cursor to the end of the current word, or if between words, to the end of the next word. M-DEL Kill from the cursor to the start of the previous word, or if between words, to the start of the previous word. C-w Kill from the cursor to the previous whitespace. This is different than M-DEL because the word boundaries differ. And, here is how to "yank" the text back into the line. Yanking is C-y Yank the most recently killed text back into the buffer at the cursor. M-y Rotate the kill-ring, and yank the new top. You can only do this if the prior command is C-y or M-y. When you use a kill command, the text is saved in a "kill-ring". Any number of consecutive kills save all of the killed text together, so that when you yank it back, you get it in one clean sweep. The kill ring is not line specific; the text that you killed on a previously typed line is available to be yanked back later, when you are typing another line.  File: gdb.info, Node: Readline Arguments, Prev: Readline Killing Commands, Up: Readline Interaction Readline Arguments ------------------ You can pass numeric arguments to Readline commands. Sometimes the argument acts as a repeat count, other times it is the sign of the argument that is significant. If you pass a negative argument to a command which normally acts in a forward direction, that command will act in a backward direction. For example, to kill text back to the start of the line, you might type M- C-k. The general way to pass numeric arguments to a command is to type meta digits before the command. If the first `digit' you type is a minus sign (-), then the sign of the argument will be negative. Once you have typed one meta digit to get the argument started, you can type the remainder of the digits, and then the command. For example, to give the C-d command an argument of 10, you could type M-1 0 C-d.  File: gdb.info, Node: Readline Init File, Prev: Readline Interaction, Up: Command Line Editing Readline Init File ================== Although the Readline library comes with a set of Emacs-like keybindings, it is possible that you would like to use a different set of keybindings. You can customize programs that use Readline by putting commands in an "init" file in your home directory. The name of this file is `~/.inputrc'. When a program which uses the Readline library starts up, the `~/.inputrc' file is read, and the keybindings are set. In addition, the C-x C-r command re-reads this init file, thus incorporating any changes that you might have made to it. * Menu: * Readline Init Syntax:: Syntax for the commands in `~/.inputrc'. * Readline Vi Mode:: Switching to `vi' mode in Readline.  File: gdb.info, Node: Readline Init Syntax, Next: Readline Vi Mode, Up: Readline Init File Readline Init Syntax -------------------- There are only four constructs allowed in the `~/.inputrc' file: Variable Settings You can change the state of a few variables in Readline. You do this by using the `set' command within the init file. Here is how you would specify that you wish to use Vi line editing commands: set editing-mode vi Right now, there are only a few variables which can be set; so few in fact, that we just iterate them here: `editing-mode' The `editing-mode' variable controls which editing mode you are using. By default, GNU Readline starts up in Emacs editing mode, where the keystrokes are most similar to Emacs. This variable can either be set to `emacs' or `vi'. `horizontal-scroll-mode' This variable can either be set to `On' or `Off'. Setting it to `On' means that the text of the lines that you edit will scroll horizontally on a single screen line when they are larger than the width of the screen, instead of wrapping onto a new screen line. By default, this variable is set to `Off'. `mark-modified-lines' This variable when set to `On', says to display an asterisk (`*') at the starts of history lines which have been modified. This variable is off by default. `prefer-visible-bell' If this variable is set to `On' it means to use a visible bell if one is available, rather than simply ringing the terminal bell. By default, the value is `Off'. Key Bindings The syntax for controlling keybindings in the `~/.inputrc' file is simple. First you have to know the name of the command that you want to change. The following pages contain tables of the command name, the default keybinding, and a short description of what the command does. Once you know the name of the command, simply place the name of the key you wish to bind the command to, a colon, and then the name of the command on a line in the `~/.inputrc' file. The name of the key can be expressed in different ways, depending on which is most comfortable for you. KEYNAME: FUNCTION-NAME or MACRO KEYNAME is the name of a key spelled out in English. For example: Control-u: universal-argument Meta-Rubout: backward-kill-word Control-o: ">&output" In the above example, C-u is bound to the function `universal-argument', and C-o is bound to run the macro expressed on the right hand side (that is, to insert the text `>&output' into the line). "KEYSEQ": FUNCTION-NAME or MACRO KEYSEQ differs from KEYNAME above in that strings denoting an entire key sequence can be specified. Simply place the key sequence in double quotes. GNU Emacs style key escapes can be used, as in the following example: "\C-u": universal-argument "\C-x\C-r": re-read-init-file "\e[11~": "Function Key 1" In the above example, C-u is bound to the function `universal-argument' (just as it was in the first example), C-x C-r is bound to the function `re-read-init-file', and ESC [ 1 1 ~ is bound to insert the text `Function Key 1'. * Menu: * Commands For Moving:: Moving about the line. * Commands For History:: Getting at previous lines. * Commands For Text:: Commands for changing text. * Commands For Killing:: Commands for killing and yanking. * Numeric Arguments:: Specifying numeric arguments, repeat counts. * Commands For Completion:: Getting Readline to do the typing for you. * Miscellaneous Commands:: Other miscillaneous commands.  File: gdb.info, Node: Commands For Moving, Next: Commands For History, Up: Readline Init Syntax Commands For Moving ------------------- `beginning-of-line (C-a)' Move to the start of the current line. `end-of-line (C-e)' Move to the end of the line. `forward-char (C-f)' Move forward a character. `backward-char (C-b)' Move back a character. `forward-word (M-f)' Move forward to the end of the next word. `backward-word (M-b)' Move back to the start of this, or the previous, word. `clear-screen (C-l)' Clear the screen leaving the current line at the top of the screen.  File: gdb.info, Node: Commands For History, Next: Commands For Text, Prev: Commands For Moving, Up: Readline Init Syntax Commands For Manipulating The History ------------------------------------- `accept-line (Newline, Return)' Accept the line regardless of where the cursor is. If this line is non-empty, add it to the history list. If this line was a history line, then restore the history line to its original state. `previous-history (C-p)' Move `up' through the history list. `next-history (C-n)' Move `down' through the history list. `beginning-of-history (M-<)' Move to the first line in the history. `end-of-history (M->)' Move to the end of the input history, i.e., the line you are entering! `reverse-search-history (C-r)' Search backward starting at the current line and moving `up' through the history as necessary. This is an incremental search. `forward-search-history (C-s)' Search forward starting at the current line and moving `down' through the the history as necessary.  File: gdb.info, Node: Commands For Text, Next: Commands For Killing, Prev: Commands For History, Up: Readline Init Syntax Commands For Changing Text -------------------------- `delete-char (C-d)' Delete the character under the cursor. If the cursor is at the beginning of the line, and there are no characters in the line, and the last character typed was not C-d, then return EOF. `backward-delete-char (Rubout)' Delete the character behind the cursor. A numeric arg says to kill the characters instead of deleting them. `quoted-insert (C-q, C-v)' Add the next character that you type to the line verbatim. This is how to insert things like C-q for example. `tab-insert (M-TAB)' Insert a tab character. `self-insert (a, b, A, 1, !, ...)' Insert yourself. `transpose-chars (C-t)' Drag the character before point forward over the character at point. Point moves forward as well. If point is at the end of the line, then transpose the two characters before point. Negative args don't work. `transpose-words (M-t)' Drag the word behind the cursor past the word in front of the cursor moving the cursor over that word as well. `upcase-word (M-u)' Uppercase all letters in the current (or following) word. With a negative argument, do the previous word, but do not move point. `downcase-word (M-l)' Lowercase all letters in the current (or following) word. With a negative argument, do the previous word, but do not move point. `capitalize-word (M-c)' Uppercase the first letter in the current (or following) word. With a negative argument, do the previous word, but do not move point.  File: gdb.info, Node: Commands For Killing, Next: Numeric Arguments, Prev: Commands For Text, Up: Readline Init Syntax Killing And Yanking ------------------- `kill-line (C-k)' Kill the text from the current cursor position to the end of the line. `backward-kill-line ()' Kill backward to the beginning of the line. This is normally unbound. `kill-word (M-d)' Kill from the cursor to the end of the current word, or if between words, to the end of the next word. `backward-kill-word (M-DEL)' Kill the word behind the cursor. `unix-line-discard (C-u)' Do what C-u used to do in Unix line input. We save the killed text on the kill-ring, though. `unix-word-rubout (C-w)' Do what C-w used to do in Unix line input. The killed text is saved on the kill-ring. This is different than backward-kill-word because the word boundaries differ. `yank (C-y)' Yank the top of the kill ring into the buffer at point. `yank-pop (M-y)' Rotate the kill-ring, and yank the new top. You can only do this if the prior command is yank or yank-pop.  File: gdb.info, Node: Numeric Arguments, Next: Commands For Completion, Prev: Commands For Killing, Up: Readline Init Syntax Specifying Numeric Arguments ---------------------------- `digit-argument (M-0, M-1, ... M--)' Add this digit to the argument already accumulating, or start a new argument. M- starts a negative argument. `universal-argument ()' Do what C-u does in emacs. By default, this is not bound.  File: gdb.info, Node: Commands For Completion, Next: Miscellaneous Commands, Prev: Numeric Arguments, Up: Readline Init Syntax Letting Readline Type For You ----------------------------- `complete (TAB)' Attempt to do completion on the text before point. This is implementation defined. Generally, if you are typing a filename argument, you can do filename completion; if you are typing a command, you can do command completion, if you are typing in a symbol to GDB, you can do symbol name completion, if you are typing in a variable to Bash, you can do variable name completion... `possible-completions (M-?)' List the possible completions of the text before point.  File: gdb.info, Node: Miscellaneous Commands, Prev: Commands For Completion, Up: Readline Init Syntax Some Miscellaneous Commands --------------------------- `re-read-init-file (C-x C-r)' Read in the contents of your `~/.inputrc' file, and incorporate any bindings found there. `abort (C-g)' Stop running the current editing command. `prefix-meta (ESC)' Make the next character that you type be metafied. This is for people without a meta key. Typing ESC f is equivalent to typing M-f. `undo (C-_)' Incremental undo, separately remembered for each line. `revert-line (M-r)' Undo all changes made to this line. This is like typing the `undo' command enough times to get back to the beginning.  File: gdb.info, Node: Readline Vi Mode, Prev: Readline Init Syntax, Up: Readline Init File Readline Vi Mode ---------------- While the Readline library does not have a full set of Vi editing functions, it does contain enough to allow simple editing of the line. In order to switch interactively between Emacs and Vi editing modes, use the command M-C-j (toggle-editing-mode). When you enter a line in Vi mode, you are already placed in `insertion' mode, as if you had typed an `i'. Pressing ESC switches you into `edit' mode, where you can edit the text of the line with the standard Vi movement keys, move to previous history lines with `k', and following lines with `j', and so forth.  File: gdb.info, Node: Using History Interactively, Next: Renamed Commands, Prev: Command Line Editing, Up: Top Using History Interactively *************************** This chapter describes how to use the GNU History Library interactively, from a user's standpoint. * Menu: * History Interaction:: What it feels like using History as a user.  File: gdb.info, Node: History Interaction, Up: Using History Interactively History Interaction =================== The History library provides a history expansion feature that is similar to the history expansion in Csh. The following text describes the sytax that you use to manipulate the history information. History expansion takes place in two parts. The first is to determine which line from the previous history should be used during substitution. The second is to select portions of that line for inclusion into the current one. The line selected from the previous history is called the "event", and the portions of that line that are acted upon are called "words". The line is broken into words in the same fashion that the Bash shell does, so that several English (or Unix) words surrounded by quotes are considered as one word. * Menu: * Event Designators:: How to specify which history line to use. * Word Designators:: Specifying which words are of interest. * Modifiers:: Modifying the results of susbstitution.  File: gdb.info, Node: Event Designators, Next: Word Designators, Up: History Interaction Event Designators ----------------- An event designator is a reference to a command line entry in the history list. `!' Start a history subsititution, except when followed by a space, tab, or the end of the line... = or (. `!!' Refer to the previous command. This is a synonym for `!-1'. `!n' Refer to command line N. `!-n' Refer to the command line N lines back. `!string' Refer to the most recent command starting with STRING. `!?string'[`?'] Refer to the most recent command containing STRING.  File: gdb.info, Node: Word Designators, Next: Modifiers, Prev: Event Designators, Up: History Interaction Word Designators ---------------- A : separates the event specification from the word designator. It can be omitted if the word designator begins with a ^, $, * or %. Words are numbered from the beginning of the line, with the first word being denoted by a 0 (zero). `0 (zero)' The zero'th word. For many applications, this is the command word. `n' The N'th word. `^' The first argument. that is, word 1. `$' The last argument. `%' The word matched by the most recent `?string?' search. `x-y' A range of words; `-Y' Abbreviates `0-Y'. `*' All of the words, excepting the zero'th. This is a synonym for `1-$'. It is not an error to use * if there is just one word in the event. The empty string is returned in that case.  File: gdb.info, Node: Modifiers, Prev: Word Designators, Up: History Interaction Modifiers --------- After the optional word designator, you can add a sequence of one or more of the following modifiers, each preceded by a :. `#' The entire command line typed so far. This means the current command, not the previous command, so it really isn't a word designator, and doesn't belong in this section. `h' Remove a trailing pathname component, leaving only the head. `r' Remove a trailing suffix of the form `.'SUFFIX, leaving the basename. `e' Remove all but the suffix. `t' Remove all leading pathname components, leaving the tail. `p' Print the new command but do not execute it.  File: gdb.info, Node: Renamed Commands, Next: Formatting Documentation, Prev: Using History Interactively, Up: Top Renamed Commands **************** The following commands were renamed in GDB 4, in order to make the command set as a whole more consistent and easier to use and remember: OLD COMMAND NEW COMMAND --------------- ------------------------------- add-syms add-symbol-file delete environment unset environment info convenience show convenience info copying show copying info directories show directories info editing show commands info history show values info targets help target info values show values info version show version info warranty show warranty set/show addressprint set/show print address set/show array-max set/show print elements set/show arrayprint set/show print array set/show asm-demangle set/show print asm-demangle set/show caution set/show confirm set/show demangle set/show print demangle set/show history write set/show history save set/show prettyprint set/show print pretty set/show screen-height set/show height set/show screen-width set/show width set/show sevenbit-strings set/show print sevenbit-strings set/show unionprint set/show print union set/show vtblprint set/show print vtbl unset [No longer an alias for delete] gdb-4.13/gdb/gdbserver/ 777 34562 1752 0 5623250731 13177 5ustar fnfcygnusgdb-4.13/gdb/gdbserver/Makefile.in 666 34562 1752 17527 5562517605 15370 0ustar fnfcygnus#Copyright 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. # This file is part of GDB. # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. prefix = /usr/local program_transform_name = exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib tooldir = $(libdir)/$(target_alias) datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include docdir = $(datadir)/doc SHELL = /bin/sh INSTALL = `cd $(srcdir)/../..;pwd`/install.sh -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) INSTALL_XFORM = $(INSTALL) -t='$(program_transform_name)' INSTALL_XFORM1 = $(INSTALL_XFORM) -b=.1 AR = ar AR_FLAGS = qv RANLIB = ranlib # If you are compiling with GCC, make sure that either 1) You use the # -traditional flag, or 2) You have the fixed include files where GCC # can reach them. Otherwise the ioctl calls in inflow.c # will be incorrectly compiled. The "fixincludes" script in the gcc # distribution will fix your include files up. #CC=cc #CC=gcc -traditional GCC=gcc # Directory containing source files. Don't clean up the spacing, # this exact string is matched for by the "configure" script. srcdir = . # It is also possible that you will need to add -I/usr/include/sys to the # CFLAGS section if your system doesn't have fcntl.h in /usr/include (which # is where it should be according to Posix). # Set this up with gcc if you have gnu ld and the loader will print out # line numbers for undefinded refs. #CC-LD=gcc -static CC-LD=${CC} # Where is the "include" directory? Traditionally ../include or ./include INCLUDE_DIR = ${srcdir}/../../include INCLUDE_DEP = $$(INCLUDE_DIR) # Where is the source dir for the MMALLOC library? Traditionally ../mmalloc # or ./mmalloc (When we want the binary library built from it, we use # ${MMALLOC_DIR}${subdir}.) # Note that mmalloc can still be used on systems without mmap(). # To use your system malloc, comment out the following defines. MMALLOC_DIR = ${srcdir}/../mmalloc MMALLOC_DEP = $$(MMALLOC_DIR) # To use your system malloc, uncomment MMALLOC_DISABLE. #MMALLOC_DISABLE = -DNO_MMALLOC # To use mmalloc but disable corruption checking, uncomment MMALLOC_CHECK #MMALLOC_CHECK = -DNO_MMALLOC_CHECK MMALLOC_CFLAGS = ${MMALLOC_CHECK} ${MMALLOC_DISABLE} # Where are the BFD library? BFD_DIR = ../../bfd BFD = $(BFD_DIR)/libbfd.a BFD_SRC = $(srcdir)/$(BFD_DIR) BFD_CFLAGS = -I$(BFD_DIR) -I$(BFD_SRC) # Where is the source dir for the READLINE library? Traditionally in .. or . # (For the binary library built from it, we use ${READLINE_DIR}${subdir}.) READLINE_DIR = ${srcdir}/../readline READLINE_DEP = $$(READLINE_DIR) # All the includes used for CFLAGS and for lint. # -I. for config files. # -I${srcdir} possibly for regex.h also. # -I${srcdir}/config for more generic config files. INCLUDE_CFLAGS = -I. -I${srcdir} -I${srcdir}/.. -I${srcdir}/../config -I$(INCLUDE_DIR) # M{H,T}_CFLAGS, if defined, has host- and target-dependent CFLAGS # from the config/ directory. GLOBAL_CFLAGS = ${MT_CFLAGS} ${MH_CFLAGS} #PROFILE_CFLAGS = -pg # CFLAGS is specifically reserved for setting from the command line # when running make. I.E. "make CFLAGS=-Wmissing-prototypes". CFLAGS = -g # INTERNAL_CFLAGS is the aggregate of all other *CFLAGS macros. INTERNAL_CFLAGS = ${CFLAGS} ${GLOBAL_CFLAGS} ${PROFILE_CFLAGS} \ ${BFD_CFLAGS} ${MMALLOC_CFLAGS} ${INCLUDE_CFLAGS} # LDFLAGS is specifically reserved for setting from the command line # when running make. # Perhaps should come from parent Makefile VERSION = gdbserver-4.12.3 DIST=gdb LINT=/usr/5bin/lint LINTFLAGS= $(BFD_CFLAGS) # Host and target-dependent makefile fragments come in here. #### # End of host and target-dependent makefile fragments # All source files that go into linking GDB remote server. SFILES = $(srcdir)/low-lynx.c $(srcdir)/low-sparc.c $(srcdir)/low-sun3.c \ $(srcdir)/utils.c $(srcdir)/server.c $(srcdir)/remote-utils.c DEPFILES = $(GDBSERVER_DEPFILES) SOURCES = $(SFILES) $(ALLDEPFILES) TAGFILES = $(SOURCES) ${HFILES} ${ALLPARAM} ${POSSLIBS} OBS = utils.o $(GDBSERVER_DEPFILES) server.o remote-utils.o # Prevent Sun make from putting in the machine type. Setting # TARGET_ARCH to nothing works for SunOS 3, 4.0, but not for 4.1. .c.o: ${CC} -c ${INTERNAL_CFLAGS} $< all: gdbserver # Traditionally "install" depends on "all". But it may be useful # not to; for example, if the user has made some trivial change to a # source file and doesn't care about rebuilding or just wants to save the # time it takes for make to check that all is up to date. # install-only is intended to address that need. install: all install-only install-only: $(INSTALL_XFORM) gdbserver $(bindir)/gdbserver $(INSTALL_XFORM1) $(srcdir)/gdbserver.1 $(man1dir)/gdbserver.1 uninstall: force rm -f $(bindir)/gdbserver $(man1dir)/gdbserver.1 installcheck: check: info dvi: install-info: clean-info: gdbserver: $(OBS) ${ADD_DEPS} ${CDEPS} rm -f gdbserver ${CC-LD} $(GLOBAL_CFLAGS) $(LDFLAGS) -o gdbserver $(OBS) \ $(GDBSERVER_LIBS) config.status: @echo "You must configure gdbserver. Look at the README file for details." @false # Put the proper machine-specific files first, so M-. on a machine # specific routine gets the one for the correct machine. # The xyzzy stuff below deals with empty DEPFILES TAGS: ${TAGFILES} etags `find ${srcdir}/../config -name $(TM_FILE) -print` \ `find ${srcdir}/../config -name ${XM_FILE} -print` \ `find ${srcdir}/../config -name ${NAT_FILE} -print` \ `for i in yzzy ${DEPFILES}; do \ if [ x$$i != xyzzy ]; then \ echo ${srcdir}/$$i | sed -e 's/\.o$$/\.c/' ; \ fi; \ done` \ ${TAGFILES} tags: TAGS clean: rm -f *.o ${ADD_FILES} *~ rm -f gdbserver core make.log distclean: clean rm -f nm.h tm.h xm.h config.status rm -f Makefile realclean: clean rm -f nm.h tm.h xm.h config.status rm -f Makefile STAGESTUFF=${OBS} ${TSOBS} ${NTSOBS} ${ADD_FILES} init.c init.o version.c gdb Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status force: version.c: Makefile echo 'char *version = "$(VERSION)";' >version.c # GNU Make has an annoying habit of putting *all* the Makefile variables # into the environment, unless you include this target as a circumvention. # Rumor is that this will be fixed (and this target can be removed) # in GNU Make 4.0. .NOEXPORT: # GNU Make 3.63 has a different problem: it keeps tacking command line # overrides onto the definition of $(MAKE). This variable setting # will remove them. MAKEOVERRIDES= ## This is ugly, but I don't want GNU make to put these variables in ## the environment. Older makes will see this as a set of targets ## with no dependencies and no actions. unexport CHILLFLAGS CHILL_LIB CHILL_FOR_TARGET : server.o : ${srcdir}/server.c ${srcdir}/server.h remote-utils.o : ${srcdir}/remote-utils.c ${srcdir}/server.h low-lynx.o : ${srcdir}/low-lynx.c ${srcdir}/server.h low-sparc.o : $(srcdir)/low-sparc.c $(srcdir)/server.h low-sun3.o : $(srcdir)/low-sun3.c $(srcdir)/server.h utils.o : ${srcdir}/utils.c ${srcdir}/server.h # This is the end of "Makefile.in". gdb-4.13/gdb/gdbserver/README 666 34562 1752 10171 5432573312 14160 0ustar fnfcygnus README for GDBserver by Stu Grossman Introduction: This is GDBserver, a remote server for Un*x-like systems. It can be used to control the execution of a program on a target system from a GDB on a different host. GDB and GDBserver communicate using the standard remote serial protocol implemented in remote.c, and various *-stub.c files. They communicate via either a serial line or a TCP connection. Usage (server (target) side): First, you need to have a copy of the program you want to debug put onto the target system. The program can be stripped to save space if needed, as GDBserver doesn't care about symbols. All symbol handling is taken care of by the GDB running on the host system. To use the server, you log on to the target system, and run the `gdbserver' program. You must tell it (a) how to communicate with GDB, (b) the name of your program, and (c) its arguments. The general syntax is: target> gdbserver COMM PROGRAM [ARGS ...] For example, using a serial port, you might say: target> gdbserver /dev/com1 emacs foo.txt This tells gdbserver to debug emacs with an argument of foo.txt, and to communicate with GDB via /dev/com1. Gdbserver now waits patiently for the host GDB to communicate with it. To use a TCP connection, you could say: target> gdbserver host:2345 emacs foo.txt This says pretty much the same thing as the last example, except that we are going to communicate with the host GDB via TCP. The `host:2345' argument means that we are expecting to see a TCP connection from `host' to local TCP port 2345. (Currently, the `host' part is ignored.) You can choose any number you want for the port number as long as it does not conflict with any existing TCP ports on the target system. This same port number must be used in the host GDBs `target remote' command, which will be described shortly. Note that if you chose a port number that conflicts with another service, gdbserver will print an error message and exit. Usage (host side): You need an unstripped copy of the target program on your host system, since GDB needs to examine it's symbol tables and such. Start up GDB as you normally would, with the target program as the first argument. (You may need to use the --baud option if the serial line is running at anything except 9600 baud.) Ie: `gdb TARGET-PROG', or `gdb --baud BAUD TARGET-PROG'. After that, the only new command you need to know about is `target remote'. It's argument is either a device name (usually a serial device, like `/dev/ttyb'), or a HOST:PORT descriptor. For example: (gdb) target remote /dev/ttyb communicates with the server via serial line /dev/ttyb, and: (gdb) target remote the-target:2345 communicates via a TCP connection to port 2345 on host `the-target', where you previously started up gdbserver with the same port number. Note that for TCP connections, you must start up gdbserver prior to using the `target remote' command, otherwise you may get an error that looks something like `Connection refused'. Building: Configuring gdbserver you should specify the same machine for host and target (which are the machine that gdbserver is going to run on. This is not the same as the machine that gdb is going to run on; building gdbserver automatically as part of building a whole tree of tools does not currently work if cross-compilation is involved (we don't get the right CC in the Makefile, to start with)). gdbserver should work on sparc-sun-sunos4* or Lynx. The following instructions pertain to Lynx. To build the server for Lynx, make a new copy of the distribution onto a disk that is NFS shared with the Lynx system. Lets say that's in a directory called xyzzy. Then, follow these steps under the host system: 1) cd xyzzy/gdb/gdbserver 2) ../../configure i386-none-lynx When that completes, do the following on the Lynx system: 3) cd xyzzy/gdb/gdbserver 4) make CC=gcc It should build with only a minor complaint about NULL being redefined. That's a LynxOS problem, and can be ignored. It's also possible that you may have a cross-compiler to Lynx. In that case, you can skip the stuff about NFS. You would replace steps 3 & 4 with: make CC=lynx-target-compiler... gdb-4.13/gdb/gdbserver/configure.in 666 34562 1752 21536 5465544022 15622 0ustar fnfcygnussrcname="Remote GDB server" srctrigger=server.c gdb_serial_driver=../ser-unix.c # per-host: # per-target: # Hack alert! We want this directory to be configured only for the target, # which is where it will be running, so we just eliminate the per-host section, # and make the per-target stuff setup host & host_cpu according to the target. host_cpu=$target_cpu host=$target # Map host cpu into the config cpu subdirectory name. # The default is $host_cpu. case "${host_cpu}" in c[12]) gdb_host_cpu=convex ;; hppa*) gdb_host_cpu=pa ;; i[34]86) gdb_host_cpu=i386 ;; m68*) gdb_host_cpu=m68k ;; np1) gdb_host_cpu=gould ;; pyramid) gdb_host_cpu=pyr ;; *) gdb_host_cpu=$target_cpu ;; esac # map host info into gdb names. case "${host}" in a29k-*-*) gdb_host=ultra3 ;; arm-*-*) gdb_host=arm ;; c[12]-*-*) gdb_host=convex ;; hppa*-hp-bsd*) gdb_host=hppabsd ;; hppa*-hp-hpux*) gdb_host=hppahpux ;; i[34]86-ncr-*) gdb_host=ncr3000 ;; i[34]86-sequent-*) gdb_host=symmetry ;; i[34]86-*-bsd*) gdb_host=i386bsd ;; i[34]86-*-lynxos*) gdb_host=i386lynx ;; i[34]86-*-go32) gdb_host=go32 gdb_serial_driver=ser-go32.c ;; i[34]86-*-linux) gdb_host=linux ;; i[34]86-*-mach) gdb_host=i386mach ;; i[34]86-*-sco3.2v4*) gdb_host=i386sco4 ;; i[34]86-*-sco*) gdb_host=i386sco ;; i[34]86-*-solaris*) gdb_host=i386sol2 ;; i[34]86-*-sunos*) gdb_host=sun386 ;; i[34]86-*-sysv3.2) gdb_host=i386v32 ;; i[34]86-*-sysv4*) gdb_host=i386v4 ;; i[34]86-*-sysv*) gdb_host=i386v ;; m680[01]0-sun-sunos3*) gdb_host=sun2os3 ;; m680[01]0-sun-sunos4*) gdb_host=sun2os4 ;; m68030-sony-*) gdb_host=news1000 ;; m68*-altos-*) gdb_host=altos ;; m68*-apollo*-sysv*) gdb_host=apollo68v ;; m68*-apollo*-bsd*) gdb_host=apollo68b ;; m68*-att-*) gdb_host=3b1 ;; m68*-cbm-sysv4*) gdb_host=amix ;; m68*-hp-bsd*) gdb_host=hp300bsd ;; m68*-hp-hpux*) gdb_host=hp300hpux ;; m68*-isi-*) gdb_host=isi ;; m68*-*-lynxos*) gdb_host=m68klynx ;; m68*-sony-*) gdb_host=news ;; m68*-sun-sunos3*) gdb_host=sun3os3 ;; m68*-sun-sunos4*) gdb_host=sun3os4 ;; m68*-sun-*) gdb_host=sun3os4 ;; m88k-motorola-*) gdb_host=delta88 ;; m88k-*-*) gdb_host=m88k ;; mips-dec-*) gdb_host=decstation ;; mips-little-*) gdb_host=littlemips ;; mips-sgi-irix3) gdb_host=irix3 ;; mips-sgi-irix4*) gdb_host=irix4 ;; mips-sony-*) gdb_host=bigmips ;; none-*-*) gdb_host=none ;; np1-*-*) gdb_host=np1 ;; ns32k-umax-*) gdb_host=umax ;; ns32k-utek-sysv) gdb_host=merlin ;; pn-*-*) gdb_host=pn ;; pyramid-*-*) gdb_host=pyramid ;; romp-*-*) gdb_host=rtbsd ;; rs6000-*-*) gdb_host=rs6000 ;; sparc-*-lynxos*) gdb_host=sparclynx ;; sparc-*-solaris2*) gdb_host=sun4sol2 ;; sparc-*-sunos4*) gdb_host=sun4os4 ;; sparc-*-*) gdb_host=sun4os4 ;; tahoe-*-*) gdb_host=tahoe ;; vax-*-bsd*) gdb_host=vaxbsd ;; vax-*-ultrix2*) gdb_host=vaxult2 ;; vax-*-ultrix*) gdb_host=vaxult ;; esac if [ ! -f ${srcdir}/../config/${gdb_host_cpu}/${gdb_host}.mh ]; then echo '***' "GDB remote does not support host ${host}" 1>&2 exit 1 fi # We really shouldn't depend on there being a space after XM_FILE= ... hostfile=`awk '$1 == "XM_FILE=" { print $2 }' <${srcdir}/../config/${gdb_host_cpu}/${gdb_host}.mh` # per-target: # Map target cpu into the config cpu subdirectory name. # The default is $target_cpu. case "${target_cpu}" in c[12]) gdb_target_cpu=convex ;; hppa*) gdb_target_cpu=pa ;; i[34]86) gdb_target_cpu=i386 ;; m68*) gdb_target_cpu=m68k ;; np1) gdb_target_cpu=gould ;; pn) gdb_target_cpu=gould ;; pyramid) gdb_target_cpu=pyr ;; sparc*) gdb_target_cpu=sparc ;; *) gdb_target_cpu=$target_cpu ;; esac # map target info into gdb names. case "${target}" in a29k-*-aout) gdb_target=a29k ;; a29k-*-coff) gdb_target=a29k ;; a29k-*-elf) gdb_target=a29k ;; a29k-*-ebmon) gdb_target=a29k ;; a29k-*-kern) gdb_target=a29k-kern ;; a29k-*-none) gdb_target=a29k ;; a29k-*-sym1) gdb_target=ultra3 ;; a29k-*-udi) gdb_target=a29k-udi ;; arm-*-*) gdb_target=arm ;; c1-*-*) gdb_target=convex ;; c2-*-*) gdb_target=convex ;; h8300-*-*) gdb_target=h8300hms ;; h8500-*-*) gdb_target=h8500hms ;; sh-*-*) gdb_target=sh ;; hppa*-*-bsd*) gdb_target=hppabsd ;; hppa*-*-hpux*) gdb_target=hppahpux ;; i[34]86-sequent-*) gdb_target=symmetry ;; i[34]86-ncr-*) gdb_target=ncr3000 ;; i[34]86-*-aout) gdb_target=i386aout ;; i[34]86-*-coff) gdb_target=i386v ;; i[34]86-*-elf) gdb_target=i386v ;; i[34]86-*-bsd*) gdb_target=i386bsd ;; i[34]86-*-lynxos*) gdb_target=i386lynx ;; i[34]86-*-go32) gdb_target=i386aout ;; i[34]86-*-solaris*) gdb_target=i386sol2 ;; i[34]86-*-sunos*) gdb_target=sun386 ;; i[34]86-*-sysv4*) gdb_target=i386v4 ;; i[34]86-*-sco*) gdb_target=i386v ;; i[34]86-*-sysv*) gdb_target=i386v ;; i[34]86-*-linux) gdb_target=linux ;; i960-*-bout) gdb_target=vxworks960 ;; i960-*-coff) gdb_target=nindy960 ;; i960-*-elf) gdb_target=nindy960 ;; i960-*-nindy) gdb_target=nindy960 ;; i960-*-vxworks) gdb_target=vxworks960 ;; m68000-*-aout) gdb_target=m68k-nofp ;; m68000-*-coff) gdb_target=m68k-nofp ;; m68000-*-elf) gdb_target=m68k-nofp ;; m68000-*-sunos3*) gdb_target=sun2os3 ;; m68000-*-sunos4*) gdb_target=sun2os4 ;; m68*-cbm-sysv4*) gdb_target=amix ;; m68*-hp-bsd*) gdb_target=hp300bsd ;; m68*-hp-hpux*) gdb_target=hp300hpux ;; m68*-altos-*) gdb_target=altos ;; m68*-att-*) gdb_target=3b1 ;; m68*-ericsson-*) gdb_target=es1800 ;; m68*-isi-*) gdb_target=isi ;; m68*-netx-*) gdb_target=vxworks68 ;; m68*-sony-*) gdb_target=news ;; m68*-tandem-*) gdb_target=st2000 ;; m68*-*-aout) gdb_target=m68k-fp ;; m68*-*-coff) gdb_target=m68k-fp ;; m68*-*-elf) gdb_target=m68k-fp ;; m68*-*-lynxos*) gdb_target=m68klynx ;; m68*-*-os68k) gdb_target=os68k ;; m68*-*-sunos3*) gdb_target=sun3os3 ;; m68*-*-sunos4*) gdb_target=sun3os4 ;; m68*-*-vxworks*) gdb_target=vxworks68 ;; m88k-motorola-*) gdb_target=delta88 ;; m88k-*-*) gdb_target=m88k ;; mips-big-*) gdb_target=bigmips ;; mips-dec-*) gdb_target=decstation ;; mips-idt-ecoff) gdb_target=idt ;; mips-little-*) gdb_target=littlemips ;; mips-sgi-*) gdb_target=irix3 ;; mips-sony-*) gdb_target=bigmips ;; none-*-*) gdb_target=none ;; np1-*-*) gdb_target=np1 ;; ns32k-utek-sysv) gdb_target=merlin ;; ns32k-utek-*) gdb_target=umax ;; pn-*-*) gdb_target=pn ;; pyramid-*-*) gdb_target=pyramid ;; rs6000-*-*) gdb_target=rs6000 ;; sparc-*-aout) gdb_target=sparc-em ;; sparc-*-coff) gdb_target=sparc-em ;; sparc-*-elf) gdb_target=sparc-em ;; sparc-*-lynxos*) gdb_target=sparclynx ;; sparc-*-solaris2*) gdb_target=sun4sol2 ;; sparc-*-sunos4*) gdb_target=sun4os4 ;; sparc-*-vxworks*) gdb_target=sparc-em ;; sparc-*-*) gdb_target=sun4os4 ;; sparclite*-*-*) gdb_target=sparclite ;; tahoe-*-*) gdb_target=tahoe ;; vax-*-*) gdb_target=vax ;; z8k-*-sim) gdb_target=z8ksim ;; esac if [ ! -f ${srcdir}/../config/${gdb_target_cpu}/${gdb_target}.mt ]; then echo '***' "GDB remote does not support target ${target}" 1>&2 exit 1 fi if [ -z "${removing}" ] ; then cat ${srcdir}/../config/${gdb_host_cpu}/${gdb_host}.mh ${srcdir}/../config/${gdb_target_cpu}/${gdb_target}.mt | awk '$1 == "#msg" { print substr($0,6)}' fi # We really shouldn't depend on there being a space after TM_FILE= ... targetfile=`awk '$1 == "TM_FILE=" { print $2 }' <${srcdir}/../config/${gdb_target_cpu}/${gdb_target}.mt` if [ "${target}" = "${host}" ] ; then nativefile=`awk '$1 == "NAT_FILE=" { print $2 }' <${srcdir}/../config/${gdb_host_cpu}/${gdb_host}.mh` fi host_makefile_frag=../config/${gdb_host_cpu}/${gdb_host}.mh target_makefile_frag=../config/${gdb_target_cpu}/${gdb_target}.mt # If hostfile (XM_FILE) and/or targetfile (TM_FILE) and/or nativefile # (NAT_FILE) is not set in the ?config/* file, we don't make the # corresponding links. But we have to remove the xm.h files and tm.h # files anyway, e.g. when switching from "configure host" to # "configure none". files= links= rm -f xm.h rm -f ser-hardwire.c if [ "${hostfile}" != "" ]; then if [ -f ${srcdir}/../config/${hostfile} ]; then files="${files} ../config/${hostfile}" else files="${files} ../config/${gdb_host_cpu}/${hostfile}" fi links="${links} xm.h" # files="${files} ${gdb_serial_driver}" # links="${links} ser-hardwire.c" fi rm -f tm.h if [ "${targetfile}" != "" ]; then if [ -f ${srcdir}/../config/${targetfile} ]; then files="${files} ../config/${targetfile}" else files="${files} ../config/${gdb_target_cpu}/${targetfile}" fi links="${links} tm.h" fi rm -f nm.h if [ "${nativefile}" != "" ]; then if [ -f ${srcdir}/../config/${nativefile} ]; then files="${files} ../config/${nativefile}" else files="${files} ../config/${gdb_host_cpu}/${nativefile}" fi links="${links} nm.h" # temporary scaffolding until all hosts have the host/target/native # split in place. else files="${files} ../config/nm-trash.h" links="${links} nm.h" fi if [ ${target_cpu} = "sparclite" ]; then configdirs="${configdirs} sparclite" fi # post-target: if [ "${nativefile}" = "" ] ; then sed -e '/^NATDEPFILES= /s//# NATDEPFILES= /' \ < Makefile > Makefile.tem mv -f Makefile.tem Makefile fi gdb-4.13/gdb/gdbserver/gdbserver.1 666 34562 1752 10175 5465544030 15352 0ustar fnfcygnus.\" Copyright (c) 1993 Free Software Foundation .\" See section COPYING for conditions for redistribution .TH gdbserver 1 "2 November 1993" "Cygnus Support" "GNU Development Tools" .SH NAME gdbserver \- Remote Server for the GNU Debugger .SH SYNOPSIS .na .TP .B gdbserver .RB tty .RB prog .RB "[\|" args... "\|]" .ad b .SH DESCRIPTION GDBSERVER is a program that allows you to run GDB on a different machine than the one which is running the program being debugged. Usage (server (target) side): First, you need to have a copy of the program you want to debug put onto the target system. The program can be stripped to save space if needed, as GDBserver doesn't care about symbols. All symbol handling is taken care of by the GDB running on the host system. To use the server, you log on to the target system, and run the `gdbserver' program. You must tell it (a) how to communicate with GDB, (b) the name of your program, and (c) its arguments. The general syntax is: target> gdbserver COMM PROGRAM [ARGS ...] For example, using a serial port, you might say: target> gdbserver /dev/com1 emacs foo.txt This tells gdbserver to debug emacs with an argument of foo.txt, and to communicate with GDB via /dev/com1. Gdbserver now waits patiently for the host GDB to communicate with it. To use a TCP connection, you could say: target> gdbserver host:2345 emacs foo.txt This says pretty much the same thing as the last example, except that we are going to communicate with the host GDB via TCP. The `host:2345' argument means that we are expecting to see a TCP connection from `host' to local TCP port 2345. (Currently, the `host' part is ignored.) You can choose any number you want for the port number as long as it does not conflict with any existing TCP ports on the target system. This same port number must be used in the host GDBs `target remote' command, which will be described shortly. Note that if you chose a port number that conflicts with another service, gdbserver will print an error message and exit. Usage (host side): You need an unstripped copy of the target program on your host system, since GDB needs to examine it's symbol tables and such. Start up GDB as you normally would, with the target program as the first argument. (You may need to use the --baud option if the serial line is running at anything except 9600 baud.) Ie: `gdb TARGET-PROG', or `gdb --baud BAUD TARGET-PROG'. After that, the only new command you need to know about is `target remote'. It's argument is either a device name (usually a serial device, like `/dev/ttyb'), or a HOST:PORT descriptor. For example: (gdb) target remote /dev/ttyb communicates with the server via serial line /dev/ttyb, and: (gdb) target remote the-target:2345 communicates via a TCP connection to port 2345 on host `the-target', where you previously started up gdbserver with the same port number. Note that for TCP connections, you must start up gdbserver prior to using the `target remote' command, otherwise you may get an error that looks something like `Connection refused'. .SH OPTIONS You have to supply the name of the program to debug and the tty to communicate on; the remote GDB will do everything else. Any remaining arguments will be passed to the program verbatim. .SH "SEE ALSO" .RB "`\|" gdb "\|'" entry in .B info\c \&; .I Using GDB: A Guide to the GNU Source-Level Debugger\c , Richard M. Stallman and Roland H. Pesch, July 1991. .SH COPYING Copyright (c) 1993 Free Software Foundation, Inc. .PP Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. .PP Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. .PP Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be included in translations approved by the Free Software Foundation instead of in the original English. gdb-4.13/gdb/gdbserver/low-lynx.c 666 34562 1752 42006 5562517613 15245 0ustar fnfcygnus/* Low level interface to ptrace, for the remote server for GDB. Copyright (C) 1986, 1987, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "server.h" #include "frame.h" #include "inferior.h" #include #include #include #define LYNXOS #include #include #include #include #ifndef __LYNXOS #define __LYNXOS #endif #include #include #include #include #include #include #include #include #include #include char registers[REGISTER_BYTES]; #include /* Start an inferior process and returns its pid. ALLARGS is a vector of program-name and args. */ int create_inferior (program, allargs) char *program; char **allargs; { int pid; pid = fork (); if (pid < 0) perror_with_name ("fork"); if (pid == 0) { int pgrp; /* Switch child to it's own process group so that signals won't directly affect gdbserver. */ pgrp = getpid(); setpgrp(0, pgrp); ioctl (0, TIOCSPGRP, &pgrp); ptrace (PTRACE_TRACEME); execv (program, allargs); fprintf (stderr, "GDBserver (process %d): Cannot exec %s: %s.\n", getpid(), program, errno < sys_nerr ? sys_errlist[errno] : "unknown error"); fflush (stderr); _exit (0177); } return pid; } /* Kill the inferior process. Make us have no inferior. */ void kill_inferior () { if (inferior_pid == 0) return; ptrace (PTRACE_KILL, inferior_pid, 0, 0); wait (0); inferior_pid = 0; } /* Wait for process, returns status */ unsigned char mywait (status) char *status; { int pid; union wait w; enable_async_io(); pid = wait (&w); disable_async_io(); if (pid != PIDGET(inferior_pid)) perror_with_name ("wait"); inferior_pid = BUILDPID (inferior_pid, w.w_tid); if (WIFEXITED (w)) { fprintf (stderr, "\nChild exited with status %d\n", WEXITSTATUS (w)); fprintf (stderr, "GDBserver exiting\n"); exit (0); } else if (!WIFSTOPPED (w)) { fprintf (stderr, "\nChild terminated with signal = %x \n", WTERMSIG (w)); *status = 'T'; return ((unsigned char) WTERMSIG (w)); } fetch_inferior_registers (0); *status = 'S'; return ((unsigned char) WSTOPSIG (w)); } /* Resume execution of the inferior process. If STEP is nonzero, single-step it. If SIGNAL is nonzero, give it that signal. */ void myresume (step, signal) int step; int signal; { errno = 0; ptrace (step ? PTRACE_SINGLESTEP : PTRACE_CONT, inferior_pid, 1, signal); if (errno) perror_with_name ("ptrace"); } #undef offsetof #define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER) /* Mapping between GDB register #s and offsets into econtext. Must be consistent with REGISTER_NAMES macro in various tmXXX.h files. */ #define X(ENTRY)(offsetof(struct econtext, ENTRY)) #ifdef I386 /* Mappings from tm-i386v.h */ static int regmap[] = { X(eax), X(ecx), X(edx), X(ebx), X(esp), /* sp */ X(ebp), /* fp */ X(esi), X(edi), X(eip), /* pc */ X(flags), /* ps */ X(cs), X(ss), X(ds), X(es), X(ecode), /* Lynx doesn't give us either fs or gs, so */ X(fault), /* we just substitute these two in the hopes that they are useful. */ }; #endif #ifdef M68K /* Mappings from tm-m68k.h */ static int regmap[] = { X(regs[0]), /* d0 */ X(regs[1]), /* d1 */ X(regs[2]), /* d2 */ X(regs[3]), /* d3 */ X(regs[4]), /* d4 */ X(regs[5]), /* d5 */ X(regs[6]), /* d6 */ X(regs[7]), /* d7 */ X(regs[8]), /* a0 */ X(regs[9]), /* a1 */ X(regs[10]), /* a2 */ X(regs[11]), /* a3 */ X(regs[12]), /* a4 */ X(regs[13]), /* a5 */ X(regs[14]), /* fp */ 0, /* sp */ X(status), /* ps */ X(pc), X(fregs[0*3]), /* fp0 */ X(fregs[1*3]), /* fp1 */ X(fregs[2*3]), /* fp2 */ X(fregs[3*3]), /* fp3 */ X(fregs[4*3]), /* fp4 */ X(fregs[5*3]), /* fp5 */ X(fregs[6*3]), /* fp6 */ X(fregs[7*3]), /* fp7 */ X(fcregs[0]), /* fpcontrol */ X(fcregs[1]), /* fpstatus */ X(fcregs[2]), /* fpiaddr */ X(ssw), /* fpcode */ X(fault), /* fpflags */ }; #endif #ifdef SPARC /* Mappings from tm-sparc.h */ #define FX(ENTRY)(offsetof(struct fcontext, ENTRY)) static int regmap[] = { -1, /* g0 */ X(g1), X(g2), X(g3), X(g4), -1, /* g5->g7 aren't saved by Lynx */ -1, -1, X(o[0]), X(o[1]), X(o[2]), X(o[3]), X(o[4]), X(o[5]), X(o[6]), /* sp */ X(o[7]), /* ra */ -1,-1,-1,-1,-1,-1,-1,-1, /* l0 -> l7 */ -1,-1,-1,-1,-1,-1,-1,-1, /* i0 -> i7 */ FX(f.fregs[0]), /* f0 */ FX(f.fregs[1]), FX(f.fregs[2]), FX(f.fregs[3]), FX(f.fregs[4]), FX(f.fregs[5]), FX(f.fregs[6]), FX(f.fregs[7]), FX(f.fregs[8]), FX(f.fregs[9]), FX(f.fregs[10]), FX(f.fregs[11]), FX(f.fregs[12]), FX(f.fregs[13]), FX(f.fregs[14]), FX(f.fregs[15]), FX(f.fregs[16]), FX(f.fregs[17]), FX(f.fregs[18]), FX(f.fregs[19]), FX(f.fregs[20]), FX(f.fregs[21]), FX(f.fregs[22]), FX(f.fregs[23]), FX(f.fregs[24]), FX(f.fregs[25]), FX(f.fregs[26]), FX(f.fregs[27]), FX(f.fregs[28]), FX(f.fregs[29]), FX(f.fregs[30]), FX(f.fregs[31]), X(y), X(psr), X(wim), X(tbr), X(pc), X(npc), FX(fsr), /* fpsr */ -1, /* cpsr */ }; #endif #ifdef SPARC /* This routine handles some oddball cases for Sparc registers and LynxOS. In partucular, it causes refs to G0, g5->7, and all fp regs to return zero. It also handles knows where to find the I & L regs on the stack. */ void fetch_inferior_registers (regno) int regno; { #if 0 int whatregs = 0; #define WHATREGS_FLOAT 1 #define WHATREGS_GEN 2 #define WHATREGS_STACK 4 if (regno == -1) whatregs = WHATREGS_FLOAT | WHATREGS_GEN | WHATREGS_STACK; else if (regno >= L0_REGNUM && regno <= I7_REGNUM) whatregs = WHATREGS_STACK; else if (regno >= FP0_REGNUM && regno < FP0_REGNUM + 32) whatregs = WHATREGS_FLOAT; else whatregs = WHATREGS_GEN; if (whatregs & WHATREGS_GEN) { struct econtext ec; /* general regs */ char buf[MAX_REGISTER_RAW_SIZE]; int retval; int i; errno = 0; retval = ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &ec, 0); if (errno) perror_with_name ("Sparc fetch_inferior_registers(ptrace)"); memset (buf, 0, REGISTER_RAW_SIZE (G0_REGNUM)); supply_register (G0_REGNUM, buf); supply_register (TBR_REGNUM, (char *)&ec.tbr); memcpy (®isters[REGISTER_BYTE (G1_REGNUM)], &ec.g1, 4 * REGISTER_RAW_SIZE (G1_REGNUM)); for (i = G1_REGNUM; i <= G1_REGNUM + 3; i++) register_valid[i] = 1; supply_register (PS_REGNUM, (char *)&ec.psr); supply_register (Y_REGNUM, (char *)&ec.y); supply_register (PC_REGNUM, (char *)&ec.pc); supply_register (NPC_REGNUM, (char *)&ec.npc); supply_register (WIM_REGNUM, (char *)&ec.wim); memcpy (®isters[REGISTER_BYTE (O0_REGNUM)], ec.o, 8 * REGISTER_RAW_SIZE (O0_REGNUM)); for (i = O0_REGNUM; i <= O0_REGNUM + 7; i++) register_valid[i] = 1; } if (whatregs & WHATREGS_STACK) { CORE_ADDR sp; int i; sp = read_register (SP_REGNUM); target_xfer_memory (sp + FRAME_SAVED_I0, ®isters[REGISTER_BYTE(I0_REGNUM)], 8 * REGISTER_RAW_SIZE (I0_REGNUM), 0); for (i = I0_REGNUM; i <= I7_REGNUM; i++) register_valid[i] = 1; target_xfer_memory (sp + FRAME_SAVED_L0, ®isters[REGISTER_BYTE(L0_REGNUM)], 8 * REGISTER_RAW_SIZE (L0_REGNUM), 0); for (i = L0_REGNUM; i <= L0_REGNUM + 7; i++) register_valid[i] = 1; } if (whatregs & WHATREGS_FLOAT) { struct fcontext fc; /* fp regs */ int retval; int i; errno = 0; retval = ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &fc, 0); if (errno) perror_with_name ("Sparc fetch_inferior_registers(ptrace)"); memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], fc.f.fregs, 32 * REGISTER_RAW_SIZE (FP0_REGNUM)); for (i = FP0_REGNUM; i <= FP0_REGNUM + 31; i++) register_valid[i] = 1; supply_register (FPS_REGNUM, (char *)&fc.fsr); } #endif } /* This routine handles storing of the I & L regs for the Sparc. The trick here is that they actually live on the stack. The really tricky part is that when changing the stack pointer, the I & L regs must be written to where the new SP points, otherwise the regs will be incorrect when the process is started up again. We assume that the I & L regs are valid at this point. */ void store_inferior_registers (regno) int regno; { #if 0 int whatregs = 0; if (regno == -1) whatregs = WHATREGS_FLOAT | WHATREGS_GEN | WHATREGS_STACK; else if (regno >= L0_REGNUM && regno <= I7_REGNUM) whatregs = WHATREGS_STACK; else if (regno >= FP0_REGNUM && regno < FP0_REGNUM + 32) whatregs = WHATREGS_FLOAT; else if (regno == SP_REGNUM) whatregs = WHATREGS_STACK | WHATREGS_GEN; else whatregs = WHATREGS_GEN; if (whatregs & WHATREGS_GEN) { struct econtext ec; /* general regs */ int retval; ec.tbr = read_register (TBR_REGNUM); memcpy (&ec.g1, ®isters[REGISTER_BYTE (G1_REGNUM)], 4 * REGISTER_RAW_SIZE (G1_REGNUM)); ec.psr = read_register (PS_REGNUM); ec.y = read_register (Y_REGNUM); ec.pc = read_register (PC_REGNUM); ec.npc = read_register (NPC_REGNUM); ec.wim = read_register (WIM_REGNUM); memcpy (ec.o, ®isters[REGISTER_BYTE (O0_REGNUM)], 8 * REGISTER_RAW_SIZE (O0_REGNUM)); errno = 0; retval = ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &ec, 0); if (errno) perror_with_name ("Sparc fetch_inferior_registers(ptrace)"); } if (whatregs & WHATREGS_STACK) { int regoffset; CORE_ADDR sp; sp = read_register (SP_REGNUM); if (regno == -1 || regno == SP_REGNUM) { if (!register_valid[L0_REGNUM+5]) abort(); target_xfer_memory (sp + FRAME_SAVED_I0, ®isters[REGISTER_BYTE (I0_REGNUM)], 8 * REGISTER_RAW_SIZE (I0_REGNUM), 1); target_xfer_memory (sp + FRAME_SAVED_L0, ®isters[REGISTER_BYTE (L0_REGNUM)], 8 * REGISTER_RAW_SIZE (L0_REGNUM), 1); } else if (regno >= L0_REGNUM && regno <= I7_REGNUM) { if (!register_valid[regno]) abort(); if (regno >= L0_REGNUM && regno <= L0_REGNUM + 7) regoffset = REGISTER_BYTE (regno) - REGISTER_BYTE (L0_REGNUM) + FRAME_SAVED_L0; else regoffset = REGISTER_BYTE (regno) - REGISTER_BYTE (I0_REGNUM) + FRAME_SAVED_I0; target_xfer_memory (sp + regoffset, ®isters[REGISTER_BYTE (regno)], REGISTER_RAW_SIZE (regno), 1); } } if (whatregs & WHATREGS_FLOAT) { struct fcontext fc; /* fp regs */ int retval; /* We read fcontext first so that we can get good values for fq_t... */ errno = 0; retval = ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &fc, 0); if (errno) perror_with_name ("Sparc fetch_inferior_registers(ptrace)"); memcpy (fc.f.fregs, ®isters[REGISTER_BYTE (FP0_REGNUM)], 32 * REGISTER_RAW_SIZE (FP0_REGNUM)); fc.fsr = read_register (FPS_REGNUM); errno = 0; retval = ptrace (PTRACE_SETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &fc, 0); if (errno) perror_with_name ("Sparc fetch_inferior_registers(ptrace)"); } #endif } #endif /* SPARC */ #ifndef SPARC /* Return the offset relative to the start of the per-thread data to the saved context block. */ static unsigned long lynx_registers_addr() { CORE_ADDR stblock; int ecpoff = offsetof(st_t, ecp); CORE_ADDR ecp; errno = 0; stblock = (CORE_ADDR) ptrace (PTRACE_THREADUSER, inferior_pid, (PTRACE_ARG3_TYPE)0, 0); if (errno) perror_with_name ("PTRACE_THREADUSER"); ecp = (CORE_ADDR) ptrace (PTRACE_PEEKTHREAD, inferior_pid, (PTRACE_ARG3_TYPE)ecpoff, 0); if (errno) perror_with_name ("lynx_registers_addr(PTRACE_PEEKTHREAD)"); return ecp - stblock; } /* Fetch one or more registers from the inferior. REGNO == -1 to get them all. We actually fetch more than requested, when convenient, marking them as valid so we won't fetch them again. */ void fetch_inferior_registers (ignored) int ignored; { int regno; unsigned long reg; unsigned long ecp; ecp = lynx_registers_addr(); for (regno = 0; regno < NUM_REGS; regno++) { int ptrace_fun = PTRACE_PEEKTHREAD; #ifdef PTRACE_PEEKUSP ptrace_fun = regno == SP_REGNUM ? PTRACE_PEEKUSP : PTRACE_PEEKTHREAD; #endif errno = 0; reg = ptrace (ptrace_fun, inferior_pid, (PTRACE_ARG3_TYPE) (ecp + regmap[regno]), 0); if (errno) perror_with_name ("fetch_inferior_registers(PTRACE_PEEKTHREAD)"); *(unsigned long *)®isters[REGISTER_BYTE (regno)] = reg; } } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (ignored) int ignored; { int regno; unsigned long reg; unsigned long ecp; ecp = lynx_registers_addr(); for (regno = 0; regno < NUM_REGS; regno++) { int ptrace_fun = PTRACE_POKEUSER; #ifdef PTRACE_POKEUSP ptrace_fun = regno == SP_REGNUM ? PTRACE_POKEUSP : PTRACE_POKEUSER; #endif reg = *(unsigned long *)®isters[REGISTER_BYTE (regno)]; errno = 0; ptrace (ptrace_fun, inferior_pid, (PTRACE_ARG3_TYPE) (ecp + regmap[regno]), reg); if (errno) perror_with_name ("PTRACE_POKEUSER"); } } #endif /* ! SPARC */ /* NOTE! I tried using PTRACE_READDATA, etc., to read and write memory in the NEW_SUN_PTRACE case. It ought to be straightforward. But it appears that writing did not write the data that I specified. I cannot understand where it got the data that it actually did write. */ /* Copy LEN bytes from inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. */ void read_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & -sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (int)) { buffer[i] = ptrace (PTRACE_PEEKTEXT, inferior_pid, addr, 0); } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. On failure (cannot write the inferior) returns the value of errno. */ int write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & -sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); extern int errno; /* Fill start and end extra bytes of buffer with existing memory data. */ buffer[0] = ptrace (PTRACE_PEEKTEXT, inferior_pid, addr, 0); if (count > 1) { buffer[count - 1] = ptrace (PTRACE_PEEKTEXT, inferior_pid, addr + (count - 1) * sizeof (int), 0); } /* Copy data to be written over corresponding part of buffer */ memcpy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (int)) { while (1) { errno = 0; ptrace (PTRACE_POKETEXT, inferior_pid, addr, buffer[i]); if (errno) { fprintf(stderr, "ptrace (PTRACE_POKETEXT): errno=%d, inferior_pid=0x%x, addr=0x%x, buffer[i] = 0x%x\n", errno, inferior_pid, addr, buffer[i]); fprintf(stderr, "Sleeping for 1 second\n"); sleep(1); } else break; } } return 0; } gdb-4.13/gdb/gdbserver/low-sparc.c 666 34562 1752 21644 5562517617 15374 0ustar fnfcygnus/* Low level interface to ptrace, for the remote server for GDB. Copyright (C) 1986, 1987, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include #include "frame.h" #include "inferior.h" /*************************** #include "initialize.h" ****************************/ #include #include #include #include #include #include #include #include /***************Begin MY defs*********************/ int quit_flag = 0; char registers[REGISTER_BYTES]; /* Index within `registers' of the first byte of the space for register N. */ char buf2[MAX_REGISTER_RAW_SIZE]; /***************End MY defs*********************/ #include #include extern int sys_nerr; extern char **sys_errlist; extern char **environ; extern int errno; extern int inferior_pid; void error (), quit (), perror_with_name (); int query (); /* Start an inferior process and returns its pid. ALLARGS is a vector of program-name and args. ENV is the environment vector to pass. */ int create_inferior (program, allargs) char *program; char **allargs; { int pid; pid = fork (); if (pid < 0) perror_with_name ("fork"); if (pid == 0) { ptrace (PTRACE_TRACEME); execv (program, allargs); fprintf (stderr, "Cannot exec %s: %s.\n", program, errno < sys_nerr ? sys_errlist[errno] : "unknown error"); fflush (stderr); _exit (0177); } return pid; } /* Kill the inferior process. Make us have no inferior. */ void kill_inferior () { if (inferior_pid == 0) return; ptrace (8, inferior_pid, 0, 0); wait (0); /*************inferior_died ();****VK**************/ } /* Wait for process, returns status */ unsigned char mywait (status) char *status; { int pid; union wait w; pid = wait (&w); if (pid != inferior_pid) perror_with_name ("wait"); if (WIFEXITED (w)) { fprintf (stderr, "\nChild exited with retcode = %x \n", WEXITSTATUS (w)); *status = 'E'; return ((unsigned char) WEXITSTATUS (w)); } else if (!WIFSTOPPED (w)) { fprintf (stderr, "\nChild terminated with signal = %x \n", WTERMSIG (w)); *status = 'T'; return ((unsigned char) WTERMSIG (w)); } fetch_inferior_registers (0); *status = 'S'; return ((unsigned char) WSTOPSIG (w)); } /* Resume execution of the inferior process. If STEP is nonzero, single-step it. If SIGNAL is nonzero, give it that signal. */ void myresume (step, signal) int step; int signal; { errno = 0; ptrace (step ? PTRACE_SINGLESTEP : PTRACE_CONT, inferior_pid, 1, signal); if (errno) perror_with_name ("ptrace"); } /* Fetch one or more registers from the inferior. REGNO == -1 to get them all. We actually fetch more than requested, when convenient, marking them as valid so we won't fetch them again. */ void fetch_inferior_registers (ignored) int ignored; { struct regs inferior_registers; struct fp_status inferior_fp_registers; int i; /* Global and Out regs are fetched directly, as well as the control registers. If we're getting one of the in or local regs, and the stack pointer has not yet been fetched, we have to do that first, since they're found in memory relative to the stack pointer. */ if (ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers, 0)) perror("ptrace_getregs"); registers[REGISTER_BYTE (0)] = 0; memcpy (®isters[REGISTER_BYTE (1)], &inferior_registers.r_g1, 15 * REGISTER_RAW_SIZE (G0_REGNUM)); *(int *)®isters[REGISTER_BYTE (PS_REGNUM)] = inferior_registers.r_ps; *(int *)®isters[REGISTER_BYTE (PC_REGNUM)] = inferior_registers.r_pc; *(int *)®isters[REGISTER_BYTE (NPC_REGNUM)] = inferior_registers.r_npc; *(int *)®isters[REGISTER_BYTE (Y_REGNUM)] = inferior_registers.r_y; /* Floating point registers */ if (ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers, 0)) perror("ptrace_getfpregs"); memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], &inferior_fp_registers, sizeof inferior_fp_registers.fpu_fr); /* These regs are saved on the stack by the kernel. Only read them all (16 ptrace calls!) if we really need them. */ read_inferior_memory (*(CORE_ADDR*)®isters[REGISTER_BYTE (SP_REGNUM)], ®isters[REGISTER_BYTE (L0_REGNUM)], 16*REGISTER_RAW_SIZE (L0_REGNUM)); } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (ignored) int ignored; { struct regs inferior_registers; struct fp_status inferior_fp_registers; CORE_ADDR sp = *(CORE_ADDR *)®isters[REGISTER_BYTE (SP_REGNUM)]; write_inferior_memory (sp, ®isters[REGISTER_BYTE (L0_REGNUM)], 16*REGISTER_RAW_SIZE (L0_REGNUM)); memcpy (&inferior_registers.r_g1, ®isters[REGISTER_BYTE (G1_REGNUM)], 15 * REGISTER_RAW_SIZE (G1_REGNUM)); inferior_registers.r_ps = *(int *)®isters[REGISTER_BYTE (PS_REGNUM)]; inferior_registers.r_pc = *(int *)®isters[REGISTER_BYTE (PC_REGNUM)]; inferior_registers.r_npc = *(int *)®isters[REGISTER_BYTE (NPC_REGNUM)]; inferior_registers.r_y = *(int *)®isters[REGISTER_BYTE (Y_REGNUM)]; if (ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers, 0)) perror("ptrace_setregs"); memcpy (&inferior_fp_registers, ®isters[REGISTER_BYTE (FP0_REGNUM)], sizeof inferior_fp_registers.fpu_fr); if (ptrace (PTRACE_SETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers, 0)) perror("ptrace_setfpregs"); } /* NOTE! I tried using PTRACE_READDATA, etc., to read and write memory in the NEW_SUN_PTRACE case. It ought to be straightforward. But it appears that writing did not write the data that I specified. I cannot understand where it got the data that it actually did write. */ /* Copy LEN bytes from inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. */ read_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & -sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (int)) { buffer[i] = ptrace (1, inferior_pid, addr, 0); } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. On failure (cannot write the inferior) returns the value of errno. */ int write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & -sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); extern int errno; /* Fill start and end extra bytes of buffer with existing memory data. */ buffer[0] = ptrace (1, inferior_pid, addr, 0); if (count > 1) { buffer[count - 1] = ptrace (1, inferior_pid, addr + (count - 1) * sizeof (int), 0); } /* Copy data to be written over corresponding part of buffer */ bcopy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; ptrace (4, inferior_pid, addr, buffer[i]); if (errno) return errno; } return 0; } void initialize () { inferior_pid = 0; } int have_inferior_p () { return inferior_pid != 0; } gdb-4.13/gdb/gdbserver/low-sun3.c 666 34562 1752 17635 5562517623 15156 0ustar fnfcygnus/* Low level interface to ptrace, for the remote server for GDB. Copyright (C) 1986, 1987, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include "" #include "frame.h" #include "inferior.h" #include #include #include #include #include #include #include #include /***************Begin MY defs*********************/ int quit_flag = 0; char registers[REGISTER_BYTES]; /* Index within `registers' of the first byte of the space for register N. */ char buf2[MAX_REGISTER_RAW_SIZE]; /***************End MY defs*********************/ #include #include extern int sys_nerr; extern char **sys_errlist; extern char **environ; extern int errno; extern int inferior_pid; void error (), quit (), perror_with_name (); int query (); /* Start an inferior process and returns its pid. ALLARGS is a vector of program-name and args. ENV is the environment vector to pass. */ int create_inferior (program, allargs) char *program; char **allargs; { int pid; pid = fork (); if (pid < 0) perror_with_name ("fork"); if (pid == 0) { ptrace (PTRACE_TRACEME); execv (program, allargs); fprintf (stderr, "Cannot exec %s: %s.\n", program, errno < sys_nerr ? sys_errlist[errno] : "unknown error"); fflush (stderr); _exit (0177); } return pid; } /* Kill the inferior process. Make us have no inferior. */ void kill_inferior () { if (inferior_pid == 0) return; ptrace (8, inferior_pid, 0, 0); wait (0); /*************inferior_died ();****VK**************/ } /* Wait for process, returns status */ unsigned char mywait (status) char *status; { int pid; union wait w; pid = wait (&w); if (pid != inferior_pid) perror_with_name ("wait"); if (WIFEXITED (w)) { fprintf (stderr, "\nChild exited with retcode = %x \n", WEXITSTATUS (w)); *status = 'E'; return ((unsigned char) WEXITSTATUS (w)); } else if (!WIFSTOPPED (w)) { fprintf (stderr, "\nChild terminated with signal = %x \n", WTERMSIG (w)); *status = 'T'; return ((unsigned char) WTERMSIG (w)); } fetch_inferior_registers (0); *status = 'S'; return ((unsigned char) WSTOPSIG (w)); } /* Resume execution of the inferior process. If STEP is nonzero, single-step it. If SIGNAL is nonzero, give it that signal. */ void myresume (step, signal) int step; int signal; { errno = 0; ptrace (step ? PTRACE_SINGLESTEP : PTRACE_CONT, inferior_pid, 1, signal); if (errno) perror_with_name ("ptrace"); } /* Fetch one or more registers from the inferior. REGNO == -1 to get them all. We actually fetch more than requested, when convenient, marking them as valid so we won't fetch them again. */ void fetch_inferior_registers (ignored) int ignored; { struct regs inferior_registers; struct fp_status inferior_fp_registers; ptrace (PTRACE_GETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); #ifdef FP0_REGNUM ptrace (PTRACE_GETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers); #endif memcpy (registers, &inferior_registers, 16 * 4); #ifdef FP0_REGNUM memcpy (®isters[REGISTER_BYTE (FP0_REGNUM)], &inferior_fp_registers, sizeof inferior_fp_registers.fps_regs); #endif *(int *)®isters[REGISTER_BYTE (PS_REGNUM)] = inferior_registers.r_ps; *(int *)®isters[REGISTER_BYTE (PC_REGNUM)] = inferior_registers.r_pc; #ifdef FP0_REGNUM memcpy (®isters[REGISTER_BYTE (FPC_REGNUM)], &inferior_fp_registers.fps_control, sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs); #endif } /* Store our register values back into the inferior. If REGNO is -1, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ void store_inferior_registers (ignored) int ignored; { struct regs inferior_registers; struct fp_status inferior_fp_registers; memcpy (&inferior_registers, registers, 16 * 4); #ifdef FP0_REGNUM memcpy (&inferior_fp_registers, ®isters[REGISTER_BYTE (FP0_REGNUM)], sizeof inferior_fp_registers.fps_regs); #endif inferior_registers.r_ps = *(int *)®isters[REGISTER_BYTE (PS_REGNUM)]; inferior_registers.r_pc = *(int *)®isters[REGISTER_BYTE (PC_REGNUM)]; #ifdef FP0_REGNUM memcpy (&inferior_fp_registers.fps_control, ®isters[REGISTER_BYTE (FPC_REGNUM)], (sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs)); #endif ptrace (PTRACE_SETREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_registers); #if FP0_REGNUM ptrace (PTRACE_SETFPREGS, inferior_pid, (PTRACE_ARG3_TYPE) &inferior_fp_registers); #endif } /* NOTE! I tried using PTRACE_READDATA, etc., to read and write memory in the NEW_SUN_PTRACE case. It ought to be straightforward. But it appears that writing did not write the data that I specified. I cannot understand where it got the data that it actually did write. */ /* Copy LEN bytes from inferior's memory starting at MEMADDR to debugger memory starting at MYADDR. */ read_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & -sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); /* Read all the longwords */ for (i = 0; i < count; i++, addr += sizeof (int)) { buffer[i] = ptrace (1, inferior_pid, addr, 0); } /* Copy appropriate bytes out of the buffer. */ memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); } /* Copy LEN bytes of data from debugger memory at MYADDR to inferior's memory at MEMADDR. On failure (cannot write the inferior) returns the value of errno. */ int write_inferior_memory (memaddr, myaddr, len) CORE_ADDR memaddr; char *myaddr; int len; { register int i; /* Round starting address down to longword boundary. */ register CORE_ADDR addr = memaddr & -sizeof (int); /* Round ending address up; get number of longwords that makes. */ register int count = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); /* Allocate buffer of that many longwords. */ register int *buffer = (int *) alloca (count * sizeof (int)); extern int errno; /* Fill start and end extra bytes of buffer with existing memory data. */ buffer[0] = ptrace (1, inferior_pid, addr, 0); if (count > 1) { buffer[count - 1] = ptrace (1, inferior_pid, addr + (count - 1) * sizeof (int), 0); } /* Copy data to be written over corresponding part of buffer */ memcpy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len); /* Write the entire buffer. */ for (i = 0; i < count; i++, addr += sizeof (int)) { errno = 0; ptrace (4, inferior_pid, addr, buffer[i]); if (errno) return errno; } return 0; } void initialize () { inferior_pid = 0; } int have_inferior_p () { return inferior_pid != 0; } gdb-4.13/gdb/gdbserver/remote-utils.c 666 34562 1752 21423 5412715436 16102 0ustar fnfcygnus/* Remote utility routines for the remote server for GDB. Copyright (C) 1986, 1989, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "server.h" #include #include #include #include #include #include #include #include #include static int kiodebug = 0; static int remote_desc; /* Open a connection to a remote debugger. NAME is the filename used for communication. */ void remote_open (name) char *name; { struct sgttyb sg; if (!strchr (name, ':')) { remote_desc = open (name, O_RDWR); if (remote_desc < 0) perror_with_name ("Could not open remote device"); ioctl (remote_desc, TIOCGETP, &sg); sg.sg_flags = RAW; ioctl (remote_desc, TIOCSETP, &sg); } else { char *port_str; int port; struct sockaddr_in sockaddr; int tmp; struct protoent *protoent; int tmp_desc; port_str = strchr (name, ':'); port = atoi (port_str + 1); tmp_desc = socket (PF_INET, SOCK_STREAM, 0); if (tmp_desc < 0) perror_with_name ("Can't open socket"); /* Allow rapid reuse of this port. */ tmp = 1; setsockopt (tmp_desc, SOL_SOCKET, SO_REUSEADDR, (char *)&tmp, sizeof(tmp)); sockaddr.sin_family = PF_INET; sockaddr.sin_port = htons(port); sockaddr.sin_addr.s_addr = INADDR_ANY; if (bind (tmp_desc, &sockaddr, sizeof (sockaddr)) || listen (tmp_desc, 1)) perror_with_name ("Can't bind address"); tmp = sizeof (sockaddr); remote_desc = accept (tmp_desc, &sockaddr, &tmp); if (remote_desc == -1) perror_with_name ("Accept failed"); protoent = getprotobyname ("tcp"); if (!protoent) perror_with_name ("getprotobyname"); /* Enable TCP keep alive process. */ tmp = 1; setsockopt (tmp_desc, SOL_SOCKET, SO_KEEPALIVE, (char *)&tmp, sizeof(tmp)); /* Tell TCP not to delay small packets. This greatly speeds up interactive response. */ tmp = 1; setsockopt (remote_desc, protoent->p_proto, TCP_NODELAY, (char *)&tmp, sizeof(tmp)); close (tmp_desc); /* No longer need this */ signal (SIGPIPE, SIG_IGN); /* If we don't do this, then gdbserver simply exits when the remote side dies. */ } fcntl (remote_desc, F_SETFL, FASYNC); fprintf (stderr, "Remote debugging using %s\n", name); } void remote_close() { close (remote_desc); } /* Convert hex digit A to a number. */ static int fromhex (a) int a; { if (a >= '0' && a <= '9') return a - '0'; else if (a >= 'a' && a <= 'f') return a - 'a' + 10; else error ("Reply contains invalid hex digit"); } /* Convert number NIB to a hex digit. */ static int tohex (nib) int nib; { if (nib < 10) return '0' + nib; else return 'a' + nib - 10; } /* Send a packet to the remote machine, with error checking. The data of the packet is in BUF. Returns >= 0 on success, -1 otherwise. */ int putpkt (buf) char *buf; { int i; unsigned char csum = 0; char buf2[2000]; char buf3[1]; int cnt = strlen (buf); char *p; /* Copy the packet into buffer BUF2, encapsulating it and giving it a checksum. */ p = buf2; *p++ = '$'; for (i = 0; i < cnt; i++) { csum += buf[i]; *p++ = buf[i]; } *p++ = '#'; *p++ = tohex ((csum >> 4) & 0xf); *p++ = tohex (csum & 0xf); /* Send it over and over until we get a positive ack. */ do { int cc; if (write (remote_desc, buf2, p - buf2) != p - buf2) { perror ("putpkt(write)"); return -1; } cc = read (remote_desc, buf3, 1); if (cc <= 0) { if (cc == 0) fprintf (stderr, "putpkt(read): Got EOF\n"); else perror ("putpkt(read)"); return -1; } } while (buf3[0] != '+'); return 1; /* Success! */ } /* Come here when we get an input interrupt from the remote side. This interrupt should only be active while we are waiting for the child to do something. About the only thing that should come through is a ^C, which will cause us to send a SIGINT to the child. */ static void input_interrupt() { int cc; char c; cc = read (remote_desc, &c, 1); if (cc != 1 || c != '\003') { fprintf(stderr, "input_interrupt, cc = %d c = %d\n", cc, c); return; } kill (inferior_pid, SIGINT); } void enable_async_io() { signal (SIGIO, input_interrupt); } void disable_async_io() { signal (SIGIO, SIG_IGN); } /* Returns next char from remote GDB. -1 if error. */ static int readchar () { static char buf[BUFSIZ]; static int bufcnt = 0; static char *bufp; if (bufcnt-- > 0) return *bufp++ & 0x7f; bufcnt = read (remote_desc, buf, sizeof (buf)); if (bufcnt <= 0) { if (bufcnt == 0) fprintf (stderr, "readchar: Got EOF\n"); else perror ("readchar"); return -1; } bufp = buf; bufcnt--; return *bufp++ & 0x7f; } /* Read a packet from the remote machine, with error checking, and store it in BUF. Returns length of packet, or negative if error. */ int getpkt (buf) char *buf; { char *bp; unsigned char csum, c1, c2; int c; while (1) { csum = 0; while (1) { c = readchar (); if (c == '$') break; if (c < 0) return -1; } bp = buf; while (1) { c = readchar (); if (c < 0) return -1; if (c == '#') break; *bp++ = c; csum += c; } *bp = 0; c1 = fromhex (readchar ()); c2 = fromhex (readchar ()); if (csum == (c1 << 4) + c2) break; fprintf (stderr, "Bad checksum, sentsum=0x%x, csum=0x%x, buf=%s\n", (c1 << 4) + c2, csum, buf); write (remote_desc, "-", 1); } write (remote_desc, "+", 1); return bp - buf; } void write_ok (buf) char *buf; { buf[0] = 'O'; buf[1] = 'k'; buf[2] = '\0'; } void write_enn (buf) char *buf; { buf[0] = 'E'; buf[1] = 'N'; buf[2] = 'N'; buf[3] = '\0'; } void convert_int_to_ascii (from, to, n) char *from, *to; int n; { int nib; char ch; while (n--) { ch = *from++; nib = ((ch & 0xf0) >> 4) & 0x0f; *to++ = tohex (nib); nib = ch & 0x0f; *to++ = tohex (nib); } *to++ = 0; } void convert_ascii_to_int (from, to, n) char *from, *to; int n; { int nib1, nib2; while (n--) { nib1 = fromhex (*from++); nib2 = fromhex (*from++); *to++ = (((nib1 & 0x0f) << 4) & 0xf0) | (nib2 & 0x0f); } } static char * outreg(regno, buf) int regno; char *buf; { extern char registers[]; *buf++ = tohex (regno >> 4); *buf++ = tohex (regno & 0xf); *buf++ = ':'; convert_int_to_ascii (®isters[REGISTER_BYTE (regno)], buf, 4); buf += 8; *buf++ = ';'; return buf; } void prepare_resume_reply (buf, status, signal) char *buf, status; unsigned char signal; { int nib; char ch; *buf++ = 'T'; nib = ((signal & 0xf0) >> 4); *buf++ = tohex (nib); nib = signal & 0x0f; *buf++ = tohex (nib); buf = outreg (PC_REGNUM, buf); buf = outreg (FP_REGNUM, buf); buf = outreg (SP_REGNUM, buf); #ifdef NPC_REGNUM buf = outreg (NPC_REGNUM, buf); #endif #ifdef O7_REGNUM buf = outreg (O7_REGNUM, buf); #endif *buf++ = 0; } void decode_m_packet (from, mem_addr_ptr, len_ptr) char *from; unsigned int *mem_addr_ptr, *len_ptr; { int i = 0, j = 0; char ch; *mem_addr_ptr = *len_ptr = 0; while ((ch = from[i++]) != ',') { *mem_addr_ptr = *mem_addr_ptr << 4; *mem_addr_ptr |= fromhex (ch) & 0x0f; } for (j = 0; j < 4; j++) { if ((ch = from[i++]) == 0) break; *len_ptr = *len_ptr << 4; *len_ptr |= fromhex (ch) & 0x0f; } } void decode_M_packet (from, mem_addr_ptr, len_ptr, to) char *from, *to; unsigned int *mem_addr_ptr, *len_ptr; { int i = 0, j = 0; char ch; *mem_addr_ptr = *len_ptr = 0; while ((ch = from[i++]) != ',') { *mem_addr_ptr = *mem_addr_ptr << 4; *mem_addr_ptr |= fromhex (ch) & 0x0f; } while ((ch = from[i++]) != ':') { *len_ptr = *len_ptr << 4; *len_ptr |= fromhex (ch) & 0x0f; } convert_ascii_to_int (&from[i++], to, *len_ptr); } gdb-4.13/gdb/gdbserver/server.c 666 34562 1752 6422 5437436601 14742 0ustar fnfcygnus/* Main code for remote server for GDB. Copyright (C) 1989, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "server.h" main (argc, argv) int argc; char *argv[]; { char ch, status, own_buf[2000], mem_buf[2000]; int i = 0; unsigned char signal; unsigned int mem_addr, len; if (setjmp(toplevel)) { fprintf(stderr, "Exiting\n"); exit(1); } if (argc < 3) error("Usage: gdbserver tty prog [args ...]"); inferior_pid = create_inferior (argv[2], &argv[2]); fprintf (stderr, "Process %s created; pid = %d\n", argv[2], inferior_pid); signal = mywait (&status); /* Wait till we are at 1st instr in prog */ /* We are now stopped at the first instruction of the target process */ while (1) { remote_open (argv[1]); setjmp(toplevel); while (getpkt (own_buf) > 0) { i = 0; ch = own_buf[i++]; switch (ch) { case '?': prepare_resume_reply (own_buf, status, signal); break; case 'g': convert_int_to_ascii (registers, own_buf, REGISTER_BYTES); break; case 'G': convert_ascii_to_int (&own_buf[1], registers, REGISTER_BYTES); store_inferior_registers (-1); write_ok (own_buf); break; case 'm': decode_m_packet (&own_buf[1], &mem_addr, &len); read_inferior_memory (mem_addr, mem_buf, len); convert_int_to_ascii (mem_buf, own_buf, len); break; case 'M': decode_M_packet (&own_buf[1], &mem_addr, &len, mem_buf); if (write_inferior_memory (mem_addr, mem_buf, len) == 0) write_ok (own_buf); else write_enn (own_buf); break; case 'c': myresume (0, 0); signal = mywait (&status); prepare_resume_reply (own_buf, status, signal); break; case 's': myresume (1, 0); signal = mywait (&status); prepare_resume_reply (own_buf, status, signal); break; case 'k': fprintf (stderr, "Killing inferior\n"); kill_inferior (); inferior_pid = create_inferior (argv[2], &argv[2]); fprintf (stderr, "Process %s created; pid = %d\n", argv[2], inferior_pid); signal = mywait (&status); /* Wait till we are at 1st instr in prog */ break; default: printf ("\nUnknown option chosen by master\n"); write_enn (own_buf); break; } putpkt (own_buf); } /* We come here when getpkt fails. Close the connection, and re-open it at the top of the loop. */ fprintf (stderr, "Remote side has terminated connection. GDBserver will reopen the connection.\n"); remote_close (); } } gdb-4.13/gdb/gdbserver/server.h 666 34562 1752 2424 5412715437 14745 0ustar fnfcygnus/* Common definitions for remote server for GDB. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" #include void read_inferior_memory (); unsigned char mywait (); void myresume(); int create_inferior (); extern char registers[]; int inferior_pid; int remote_send (); int putpkt (); int getpkt (); void remote_open (); void write_ok (); void write_enn (); void convert_ascii_to_int (); void convert_int_to_ascii (); void prepare_resume_reply (); void decode_m_packet (); void decode_M_packet (); jmp_buf toplevel; void error (); void fatal (); void perror_with_name (); gdb-4.13/gdb/gdbserver/utils.c 666 34562 1752 4266 5437436602 14601 0ustar fnfcygnus/* General utility routines for the remote server for GDB. Copyright (C) 1986, 1989, 1993 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "server.h" #include /* Generally useful subroutines used throughout the program. */ /* Print the system error message for errno, and also mention STRING as the file name for which the error was encountered. Then return to command level. */ void perror_with_name (string) char *string; { extern int sys_nerr; extern char *sys_errlist[]; extern int errno; char *err; char *combined; if (errno < sys_nerr) err = sys_errlist[errno]; else err = "unknown error"; combined = (char *) alloca (strlen (err) + strlen (string) + 3); strcpy (combined, string); strcat (combined, ": "); strcat (combined, err); error ("%s.", combined); } /* Print an error message and return to command level. STRING is the error message, used as a fprintf string, and ARG is passed as an argument to it. */ NORETURN void error (string, arg1, arg2, arg3) char *string; int arg1, arg2, arg3; { extern jmp_buf toplevel; fflush (stdout); fprintf (stderr, string, arg1, arg2, arg3); fprintf (stderr, "\n"); longjmp(toplevel, 1); } /* Print an error message and exit reporting failure. This is for a error that we cannot continue from. STRING and ARG are passed to fprintf. */ void fatal (string, arg) char *string; int arg; { fprintf (stderr, "gdb: "); fprintf (stderr, string, arg); fprintf (stderr, "\n"); exit (1); } gdb-4.13/gdb/nindy-share/ 777 34562 1752 0 5623250741 13436 5ustar fnfcygnusgdb-4.13/gdb/nindy-share/Makefile 666 34562 1752 7201 5271750203 15153 0ustar fnfcygnus#Copyright 1992 Free Software Foundation, Inc. # This file is part of GDB. # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #----------------------------------------------------------------------------- # Makefile for toolib.a -- host code shAred by more than one tool #----------------------------------------------------------------------------- RANLIB = ranlib # The following lines should be uncommented for system V (i386v). #__i386v__#USG = -DUSG #__i386v__#SYSV_INCL = ${IPATH}/sysv.h #__i386v__#RANLIB = echo >/dev/null # The following line should be uncommented for HP-UX #__hp9000__#USG = -DUSG #__hp9000__#SYSV_INCL = ${IPATH}/sysv.h #__hp9000__#RANLIB = echo >/dev/null # Essential under System V, harmless elsewhere SHELL = /bin/sh #'HOST' will be defined in the host-specific makefile by 'make make' TARG = toolib.a OPT = -g IPATH = ../../include CFLAGS = ${OPT} ${USG} -I${IPATH} -DHOST=\"${HOST}\" OBJS = coffstrip.o nindy.o ttybreak.o ttyflush.o Onindy.o ${TARG}: ${OBJS} VERSION make ver960.o rm -f ${TARG} ar cvr ${TARG} ${OBJS} ver960.o ${RANLIB} ${TARG} coffstrip.o: ${IPATH}/b.out.h ${IPATH}/coff.h ${IPATH}/sysv.h nindy.o: ${IPATH}/block_io.h ${IPATH}/env.h ${IPATH}/sysv.h nindy.o: ${IPATH}/ttycntl.h ${IPATH}/wait.h ttybreak.o: ${IPATH}/ttycntl.h ttyflush.o: ${IPATH}/ttycntl.h Onindy.o: ${IPATH}/block_io.h ${IPATH}/env.h ${IPATH}/sysv.h Onindy.o: ${IPATH}/ttycntl.h ${IPATH}/wait.h #----------------------------------------------------------------------------- # 'STANDARD' GNU/960 TARGETS BELOW THIS POINT # # 'VERSION' file must be present and contain a string of the form "x.y" #----------------------------------------------------------------------------- ver960.c: FORCE rm -f ver960.c echo "char toolib_ver[]= \"${TARG} `cat VERSION`, `date`\";" > ver960.c # This target should be invoked before building a new release. # 'VERSION' file must be present and contain a string of the form "x.y" # roll: @V=`cat VERSION` ; \ MAJ=`sed 's/\..*//' VERSION` ; \ MIN=`sed 's/.*\.//' VERSION` ; \ V=$$MAJ.`expr $$MIN + 1` ; \ rm -f VERSION ; \ echo $$V >VERSION ; \ echo Version $$V # Dummy target to force execution of dependent targets. # FORCE: # 'G960BASE' will be defined at invocation # install: make ${TARG} mv -f ${TARG} ${G960BASE}/lib clean: rm -f ${TARG} *.o core # Target to uncomment host-specific lines in this makefile. Such lines must # have the following string beginning in column 1: #____# # Original Makefile is backed up as 'Makefile.old'. # # Invoke with: make make HOST=xxx # make: -@if test $(HOST)x = x ; then \ echo 'Specify "make make HOST=???"'; \ exit 1; \ fi ; \ grep -s "^#The next line was generated by 'make make'" Makefile; \ if test $$? = 0 ; then \ echo "Makefile has already been processed with 'make make'";\ exit 1; \ fi ; \ mv -f Makefile Makefile.old; \ echo "#The next line was generated by 'make make'" >Makefile ; \ echo "HOST=$(HOST)" >>Makefile ; \ echo >>Makefile ; \ sed "s/^#__$(HOST)__#//" < Makefile.old >>Makefile gdb-4.13/gdb/nindy-share/Onindy.c 666 34562 1752 52364 5425420223 15146 0ustar fnfcygnus/* This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This started out life as code shared between the nindy monitor and GDB. For various reasons, this is no longer true. Eventually, it probably should be merged into remote-nindy.c. */ /****************************************************************************** * * NINDY INTERFACE ROUTINES * * This version of the NINDY interface routines supports NINDY versions * 2.13 and older. The older versions used a hex communication protocol, * instead of the (faster) current binary protocol. These routines have * been renamed by prepending the letter 'O' to their names, to avoid * conflict with the current version. The old versions are kept only for * backward compatibility, and well disappear in a future release. * **************************************************************************/ /* Having these in a separate file from nindy.c is really ugly, and should be merged with nindy.c. */ #include #if 0 #include #include /* Needed by file.h on Sys V */ #include #include #include #include /* Needed on Sys V */ #include "ttycntl.h" #endif #include "defs.h" #include "serial.h" #include "block_io.h" #include "wait.h" #include "env.h" /* Number of bytes that we send to nindy. I believe this is defined by the protocol (it does not agree with REGISTER_BYTES). */ #define OLD_NINDY_REGISTER_BYTES ((36*4) + (4*8)) extern int quiet; /* 1 => stifle unnecessary messages */ /* tty connected to 960/NINDY board. */ extern serial_t nindy_serial; static OninStrGet(); /**************************** * * * MISCELLANEOUS UTILTIES * * * ****************************/ /****************************************************************************** * fromhex: * Convert a hex ascii digit h to a binary integer ******************************************************************************/ static int fromhex( h ) int h; { if (h >= '0' && h <= '9'){ h -= '0'; } else if (h >= 'a' && h <= 'f'){ h -= 'a' - 10; } else { h = 0; } return (h & 0xff); } /****************************************************************************** * hexbin: * Convert a string of ASCII hex digits to a string of binary bytes. ******************************************************************************/ static hexbin( n, hexp, binp ) int n; /* Number of bytes to convert (twice this many digits)*/ char *hexp; /* Get hex from here */ char *binp; /* Put binary here */ { while ( n-- ){ *binp++ = (fromhex(*hexp) << 4) | fromhex(*(hexp+1)); hexp += 2; } } /****************************************************************************** * binhex: * Convert a string of binary bytes to a string of ASCII hex digits ******************************************************************************/ static binhex( n, binp, hexp ) int n; /* Number of bytes to convert */ char *binp; /* Get binary from here */ char *hexp; /* Place hex here */ { static char tohex[] = "0123456789abcdef"; while ( n-- ){ *hexp++ = tohex[ (*binp >> 4) & 0xf ]; *hexp++ = tohex[ *binp & 0xf ]; binp++; } } /****************************************************************************** * byte_order: * If the host byte order is different from 960 byte order (i.e., the * host is big-endian), reverse the bytes in the passed value; otherwise, * return the passed value unchanged. * ******************************************************************************/ static long byte_order( n ) long n; { long rev; int i; static short test = 0x1234; if (*((char *) &test) == 0x12) { /* * Big-endian host, swap the bytes. */ rev = 0; for ( i = 0; i < sizeof(n); i++ ){ rev <<= 8; rev |= n & 0xff; n >>= 8; } n = rev; } return n; } /****************************************************************************** * say: * This is a printf that takes at most two arguments (in addition to the * format string) and that outputs nothing if verbose output has been * suppressed. ******************************************************************************/ static say( fmt, arg1, arg2 ) char *fmt; int arg1, arg2; { if ( !quiet ){ printf( fmt, arg1, arg2 ); fflush( stdout ); } } /***************************** * * * LOW-LEVEL COMMUNICATION * * * *****************************/ /* Read a single character from the remote end. */ static int readchar() { /* FIXME: Do we really want to be reading without a timeout? */ return SERIAL_READCHAR (nindy_serial, -1); } /****************************************************************************** * getpkt: * Read a packet from a remote NINDY, with error checking, and return * it in the indicated buffer. ******************************************************************************/ static getpkt (buf) char *buf; { unsigned char recv; /* Checksum received */ unsigned char csum; /* Checksum calculated */ char *bp; /* Poointer into the buffer */ int c; while (1){ csum = 0; bp = buf; /* FIXME: check for error from readchar (). */ while ( (c = readchar()) != '#' ){ *bp++ = c; csum += c; } *bp = 0; /* FIXME: check for error from readchar (). */ recv = fromhex(readchar()) << 4; recv |= fromhex(readchar()); if ( csum == recv ){ break; } fprintf(stderr, "Bad checksum (recv=0x%02x; calc=0x%02x); retrying\r\n", recv, csum ); SERIAL_WRITE (nindy_serial, "-", 1); } SERIAL_WRITE (nindy_serial, "+", 1); } /****************************************************************************** * putpkt: * Checksum and send a gdb command to a remote NINDY, and wait for * positive acknowledgement. * ******************************************************************************/ static putpkt( cmd ) char *cmd; /* Command to be sent, without lead ^P (\020) * or trailing checksum */ { char ack; /* Response received from NINDY */ char checksum[4]; char *p; unsigned int s; char resend; for ( s='\020', p=cmd; *p; p++ ){ s += *p; } sprintf( checksum, "#%02x", s & 0xff ); /* Send checksummed message over and over until we get a positive ack */ resend = 1; do { if ( resend ) { SERIAL_WRITE ( nindy_serial, "\020", 1 ); SERIAL_WRITE( nindy_serial, cmd, strlen(cmd) ); SERIAL_WRITE( nindy_serial, checksum, strlen(checksum) ); } /* FIXME: do we really want to be reading without timeout? */ ack = SERIAL_READCHAR (nindy_serial, -1); if (ack < 0) { fprintf (stderr, "error reading from serial port\n"); } if ( ack == '-' ){ fprintf( stderr, "Remote NAK, resending\r\n" ); resend = 1; } else if ( ack != '+' ){ fprintf( stderr, "Bad ACK, ignored: <%c>\r\n", ack ); resend = 0; } } while ( ack != '+' ); } /****************************************************************************** * send: * Send a message to a remote NINDY and return the reply in the same * buffer (clobbers the input message). Check for error responses * as indicated by the second argument. * ******************************************************************************/ static send( buf, ack_required ) char *buf; /* Message to be sent to NINDY; replaced by * NINDY's response. */ int ack_required; /* 1 means NINDY's response MUST be either "X00" (no * error) or an error code "Xnn". * 0 means the it's OK as long as it doesn't * begin with "Xnn". */ { int errnum; static char *errmsg[] = { "", /* X00 */ "Buffer overflow", /* X01 */ "Unknown command", /* X02 */ "Wrong amount of data to load register(s)", /* X03 */ "Missing command argument(s)", /* X04 */ "Odd number of digits sent to load memory", /* X05 */ "Unknown register name", /* X06 */ "No such memory segment", /* X07 */ "No breakpoint available", /* X08 */ "Can't set requested baud rate", /* X09 */ }; # define NUMERRS ( sizeof(errmsg) / sizeof(errmsg[0]) ) static char err0[] = "NINDY failed to acknowledge command: <%s>\r\n"; static char err1[] = "Unknown error response from NINDY: <%s>\r\n"; static char err2[] = "Error response %s from NINDY: %s\r\n"; putpkt (buf); getpkt (buf); if ( buf[0] != 'X' ){ if ( ack_required ){ fprintf( stderr, err0, buf ); abort(); } } else if ( strcmp(buf,"X00") ){ sscanf( &buf[1], "%x", &errnum ); if ( errnum > NUMERRS ){ fprintf( stderr, err1, buf ); } else{ fprintf( stderr, err2, buf, errmsg[errnum] ); } abort(); } } /********************************** * * * NINDY INTERFACE ROUTINES * * * * ninConnect *MUST* be the first * * one of these routines called. * **********************************/ /****************************************************************************** * ninBptDel: * Ask NINDY to delete the specified type of *hardware* breakpoint at * the specified address. If the 'addr' is -1, all breakpoints of * the specified type are deleted. ******************************************************************************/ OninBptDel( addr, data ) long addr; /* Address in 960 memory */ int data; /* '1' => data bkpt, '0' => instruction breakpoint */ { char buf[100]; if ( addr == -1 ){ sprintf( buf, "b%c", data ? '1' : '0' ); } else { sprintf( buf, "b%c%x", data ? '1' : '0', addr ); } return send( buf, 0 ); } /****************************************************************************** * ninBptSet: * Ask NINDY to set the specified type of *hardware* breakpoint at * the specified address. ******************************************************************************/ OninBptSet( addr, data ) long addr; /* Address in 960 memory */ int data; /* '1' => data bkpt, '0' => instruction breakpoint */ { char buf[100]; sprintf( buf, "B%c%x", data ? '1' : '0', addr ); return send( buf, 0 ); } /****************************************************************************** * ninGdbExit: * Ask NINDY to leave GDB mode and print a NINDY prompt. * Since it'll no longer be in GDB mode, don't wait for a response. ******************************************************************************/ OninGdbExit() { putpkt( "E" ); } /****************************************************************************** * ninGo: * Ask NINDY to start or continue execution of an application program * in it's memory at the current ip. ******************************************************************************/ OninGo( step_flag ) int step_flag; /* 1 => run in single-step mode */ { putpkt( step_flag ? "s" : "c" ); } /****************************************************************************** * ninMemGet: * Read a string of bytes from NINDY's address space (960 memory). ******************************************************************************/ OninMemGet(ninaddr, hostaddr, len) long ninaddr; /* Source address, in the 960 memory space */ char *hostaddr; /* Destination address, in our memory space */ int len; /* Number of bytes to read */ { /* How much do we send at a time? */ #define OLD_NINDY_MEMBYTES 1024 /* Buffer: hex in, binary out */ char buf[2*OLD_NINDY_MEMBYTES+20]; int cnt; /* Number of bytes in next transfer */ for ( ; len > 0; len -= OLD_NINDY_MEMBYTES ){ cnt = len > OLD_NINDY_MEMBYTES ? OLD_NINDY_MEMBYTES : len; sprintf( buf, "m%x,%x", ninaddr, cnt ); send( buf, 0 ); hexbin( cnt, buf, hostaddr ); ninaddr += cnt; hostaddr += cnt; } } /****************************************************************************** * ninMemPut: * Write a string of bytes into NINDY's address space (960 memory). ******************************************************************************/ OninMemPut( destaddr, srcaddr, len ) long destaddr; /* Destination address, in NINDY memory space */ char *srcaddr; /* Source address, in our memory space */ int len; /* Number of bytes to write */ { char buf[2*OLD_NINDY_MEMBYTES+20]; /* Buffer: binary in, hex out */ char *p; /* Pointer into buffer */ int cnt; /* Number of bytes in next transfer */ for ( ; len > 0; len -= OLD_NINDY_MEMBYTES ){ cnt = len > OLD_NINDY_MEMBYTES ? OLD_NINDY_MEMBYTES : len; sprintf( buf, "M%x,", destaddr ); p = buf + strlen(buf); binhex( cnt, srcaddr, p ); *(p+(2*cnt)) = '\0'; send( buf, 1 ); srcaddr += cnt; destaddr += cnt; } } /****************************************************************************** * ninRegGet: * Retrieve the contents of a 960 register, and return them as a long * in host byte order. * * THIS ROUTINE CAN ONLY BE USED TO READ THE LOCAL, GLOBAL, AND * ip/ac/pc/tc REGISTERS. * ******************************************************************************/ long OninRegGet( regname ) char *regname; /* Register name recognized by NINDY, subject to the * above limitations. */ { char buf[200]; long val; sprintf( buf, "u%s", regname ); send( buf, 0 ); hexbin( 4, buf, (char *)&val ); return byte_order(val); } /****************************************************************************** * ninRegPut: * Set the contents of a 960 register. * * THIS ROUTINE CAN ONLY BE USED TO SET THE LOCAL, GLOBAL, AND * ip/ac/pc/tc REGISTERS. * ******************************************************************************/ OninRegPut( regname, val ) char *regname; /* Register name recognized by NINDY, subject to the * above limitations. */ long val; /* New contents of register, in host byte-order */ { char buf[200]; sprintf( buf, "U%s,%08x", regname, byte_order(val) ); send( buf, 1 ); } /****************************************************************************** * ninRegsGet: * Get a dump of the contents of the entire 960 register set. The * individual registers appear in the dump in the following order: * * pfp sp rip r3 r4 r5 r6 r7 * r8 r9 r10 r11 r12 r13 r14 r15 * g0 g1 g2 g3 g4 g5 g6 g7 * g8 g9 g10 g11 g12 g13 g14 fp * pc ac ip tc fp0 fp1 fp2 fp3 * * Each individual register comprises exactly 4 bytes, except for * fp0-fp3, which are 8 bytes. * * WARNING: * Each register value is in 960 (little-endian) byte order. * ******************************************************************************/ OninRegsGet( regp ) char *regp; /* Where to place the register dump */ { char buf[(2*OLD_NINDY_REGISTER_BYTES)+10]; /* Registers in ASCII hex */ strcpy( buf, "r" ); send( buf, 0 ); hexbin( OLD_NINDY_REGISTER_BYTES, buf, regp ); } /****************************************************************************** * ninRegsPut: * Initialize the entire 960 register set to a specified set of values. * The format of the register value data should be the same as that * returned by ninRegsGet. * * WARNING: * Each register value should be in 960 (little-endian) byte order. * ******************************************************************************/ OninRegsPut( regp ) char *regp; /* Pointer to desired values of registers */ { char buf[(2*OLD_NINDY_REGISTER_BYTES)+10]; /* Registers in ASCII hex */ buf[0] = 'R'; binhex( OLD_NINDY_REGISTER_BYTES, regp, buf+1 ); buf[ (2*OLD_NINDY_REGISTER_BYTES)+1 ] = '\0'; send( buf, 1 ); } /****************************************************************************** * ninReset: * Ask NINDY to perform a soft reset; wait for the reset to complete. ******************************************************************************/ OninReset() { putpkt( "X" ); /* FIXME: check for error from readchar (). */ while ( readchar() != '+' ){ ; } } /****************************************************************************** * ninSrq: * Assume NINDY has stopped execution of the 960 application program in * order to process a host service request (srq). Ask NINDY for the * srq arguments, perform the requested service, and send an "srq * complete" message so NINDY will return control to the application. * ******************************************************************************/ OninSrq() { /* FIXME: Imposes arbitrary limits on lengths of pathnames and such. */ char buf[BUFSIZE]; int retcode; unsigned char srqnum; char *p; char *argp; int nargs; int arg[MAX_SRQ_ARGS]; /* Get srq number and arguments */ strcpy( buf, "!" ); send( buf, 0 ); hexbin( 1, buf, (char *)&srqnum ); /* Set up array of pointers the each of the individual * comma-separated args */ nargs=0; argp = p = buf+2; while ( 1 ){ while ( *p != ',' && *p != '\0' ){ p++; } sscanf( argp, "%x", &arg[nargs++] ); if ( *p == '\0' || nargs == MAX_SRQ_ARGS ){ break; } argp = ++p; } /* Process Srq */ switch( srqnum ){ case BS_CLOSE: /* args: file descriptor */ if ( arg[0] > 2 ){ retcode = close( arg[0] ); } else { retcode = 0; } break; case BS_CREAT: /* args: filename, mode */ OninStrGet( arg[0], buf ); retcode = creat(buf,arg[1]); break; case BS_OPEN: /* args: filename, flags, mode */ OninStrGet( arg[0], buf ); retcode = open(buf,arg[1],arg[2]); break; case BS_READ: /* args: file descriptor, buffer, count */ retcode = read(arg[0],buf,arg[2]); if ( retcode > 0 ){ OninMemPut( arg[1], buf, retcode ); } break; case BS_SEEK: /* args: file descriptor, offset, whence */ retcode = lseek(arg[0],arg[1],arg[2]); break; case BS_WRITE: /* args: file descriptor, buffer, count */ OninMemGet( arg[1], buf, arg[2] ); retcode = write(arg[0],buf,arg[2]); break; default: retcode = -1; break; } /* Tell NINDY to continue */ sprintf( buf, "e%x", retcode ); send( buf, 1 ); } /****************************************************************************** * ninStopWhy: * Assume the application program has stopped (i.e., a DLE was received * from NINDY). Ask NINDY for status information describing the * reason for the halt. * * Returns a non-zero value if the user program has exited, 0 otherwise. * Also returns the following information, through passed pointers: * - why: an exit code if program the exited; otherwise the reason * why the program halted (see stop.h for values). * - contents of register ip (little-endian byte order) * - contents of register sp (little-endian byte order) * - contents of register fp (little-endian byte order) ******************************************************************************/ char OninStopWhy( whyp, ipp, fpp, spp ) char *whyp; /* Return the 'why' code through this pointer */ char *ipp; /* Return contents of register ip through this pointer */ char *fpp; /* Return contents of register fp through this pointer */ char *spp; /* Return contents of register sp through this pointer */ { char buf[30]; char stop_exit; strcpy( buf, "?" ); send( buf, 0 ); hexbin( 1, buf, &stop_exit ); hexbin( 1, buf+2, whyp ); hexbin( 4, buf+4, ipp ); hexbin( 4, buf+12, fpp ); hexbin( 4, buf+20, spp ); return stop_exit; } /****************************************************************************** * ninStrGet: * Read a '\0'-terminated string of data out of the 960 memory space. * ******************************************************************************/ static OninStrGet( ninaddr, hostaddr ) unsigned long ninaddr; /* Address of string in NINDY memory space */ char *hostaddr; /* Address of the buffer to which string should * be copied. */ { /* FIXME: seems to be an arbitrary limit on the length of the string. */ char buf[BUFSIZE]; /* String as 2 ASCII hex digits per byte */ int numchars; /* Length of string in bytes. */ sprintf( buf, "\"%x", ninaddr ); send( buf, 0 ); numchars = strlen(buf)/2; hexbin( numchars, buf, hostaddr ); hostaddr[numchars] = '\0'; } #if 0 /* never used. */ /****************************************************************************** * ninVersion: * Ask NINDY for version information about itself. * The information is sent as an ascii string in the form "x.xx,", * where, * x.xx is the version number * is the processor architecture: "KA", "KB", "MC", "CA" * * ******************************************************************************/ int OninVersion( p ) char *p; /* Where to place version string */ { /* FIXME: this is an arbitrary limit on the length of version string. */ char buf[BUFSIZE]; strcpy( buf, "v" ); send( buf, 0 ); strcpy( p, buf ); return strlen( buf ); } #endif gdb-4.13/gdb/nindy-share/README 666 34562 1752 316 5425420224 14351 0ustar fnfcygnusThe files in this directory started out life as code shared between the nindy monitor and GDB. For various reasons, this is no longer true. Eventually, they probably should be merged into remote-nindy.c. gdb-4.13/gdb/nindy-share/VERSION 666 34562 1752 4 4774413735 14512 0ustar fnfcygnus1.2 gdb-4.13/gdb/nindy-share/b.out.h 666 34562 1752 13415 5271750205 14741 0ustar fnfcygnus/* Copyright 1992 Free Software Foundation, Inc. * * This file is a modified version of 'a.out.h'. It is to be used in all * all GNU tools modified to support the i80960 (or tools that operate on * object files created by such tools). * * All i80960 development is done in a CROSS-DEVELOPMENT environment. I.e., * object code is generated on, and executed under the direction of a symbolic * debugger running on, a host system. We do not want to be subject to the * vagaries of which host it is or whether it supports COFF or a.out format, * or anything else. We DO want to: * * o always generate the same format object files, regardless of host. * * o have an 'a.out' header that we can modify for our own purposes * (the 80960 is typically an embedded processor and may require * enhanced linker support that the normal a.out.h header can't * accommodate). * * As for byte-ordering, the following rules apply: * * o Text and data that is actually downloaded to the target is always * in i80960 (little-endian) order. * * o All other numbers (in the header, symbols, relocation directives) * are in host byte-order: object files CANNOT be lifted from a * little-end host and used on a big-endian (or vice versa) without * modification. * * o The downloader ('comm960') takes care to generate a pseudo-header * with correct (i80960) byte-ordering before shipping text and data * off to the NINDY monitor in the target systems. Symbols and * relocation info are never sent to the target. */ #define BMAGIC 0415 /* We don't accept the following (see N_BADMAG macro). * They're just here so GNU code will compile. */ #define OMAGIC 0407 /* old impure format */ #define NMAGIC 0410 /* read-only text */ #define ZMAGIC 0413 /* demand load format */ /* FILE HEADER * All 'lengths' are given as a number of bytes. * All 'alignments' are for relinkable files only; an alignment of * 'n' indicates the corresponding segment must begin at an * address that is a multiple of (2**n). */ struct exec { /* Standard stuff */ unsigned long a_magic; /* Identifies this as a b.out file */ unsigned long a_text; /* Length of text */ unsigned long a_data; /* Length of data */ unsigned long a_bss; /* Length of runtime uninitialized data area */ unsigned long a_syms; /* Length of symbol table */ unsigned long a_entry; /* Runtime start address */ unsigned long a_trsize; /* Length of text relocation info */ unsigned long a_drsize; /* Length of data relocation info */ /* Added for i960 */ unsigned long a_tload; /* Text runtime load address */ unsigned long a_dload; /* Data runtime load address */ unsigned char a_talign; /* Alignment of text segment */ unsigned char a_dalign; /* Alignment of data segment */ unsigned char a_balign; /* Alignment of bss segment */ unsigned char unused; /* (Just to make struct size a multiple of 4) */ }; #define N_BADMAG(x) (((x).a_magic)!=BMAGIC) #define N_TXTOFF(x) ( sizeof(struct exec) ) #define N_DATOFF(x) ( N_TXTOFF(x) + (x).a_text ) #define N_TROFF(x) ( N_DATOFF(x) + (x).a_data ) #define N_DROFF(x) ( N_TROFF(x) + (x).a_trsize ) #define N_SYMOFF(x) ( N_DROFF(x) + (x).a_drsize ) #define N_STROFF(x) ( N_SYMOFF(x) + (x).a_syms ) /* A single entry in the symbol table */ struct nlist { union { char *n_name; struct nlist *n_next; long n_strx; /* Index into string table */ } n_un; unsigned char n_type; /* See below */ char n_other; /* Used in i80960 support -- see below */ short n_desc; unsigned long n_value; }; /* Legal values of n_type */ #define N_UNDF 0 /* Undefined symbol */ #define N_ABS 2 /* Absolute symbol */ #define N_TEXT 4 /* Text symbol */ #define N_DATA 6 /* Data symbol */ #define N_BSS 8 /* BSS symbol */ #define N_FN 31 /* Filename symbol */ #define N_EXT 1 /* External symbol (OR'd in with one of above) */ #define N_TYPE 036 /* Mask for all the type bits */ #define N_STAB 0340 /* Mask for all bits used for SDB entries */ /* MEANING OF 'n_other' * * If non-zero, the 'n_other' fields indicates either a leaf procedure or * a system procedure, as follows: * * 1 <= n_other <= 32 : * The symbol is the entry point to a system procedure. * 'n_value' is the address of the entry, as for any other * procedure. The system procedure number (which can be used in * a 'calls' instruction) is (n_other-1). These entries come from * '.sysproc' directives. * * n_other == N_CALLNAME * the symbol is the 'call' entry point to a leaf procedure. * The *next* symbol in the symbol table must be the corresponding * 'bal' entry point to the procedure (see following). These * entries come from '.leafproc' directives in which two different * symbols are specified (the first one is represented here). * * * n_other == N_BALNAME * the symbol is the 'bal' entry point to a leaf procedure. * These entries result from '.leafproc' directives in which only * one symbol is specified, or in which the same symbol is * specified twice. * * Note that an N_CALLNAME entry *must* have a corresponding N_BALNAME entry, * but not every N_BALNAME entry must have an N_CALLNAME entry. */ #define N_CALLNAME -1 #define N_BALNAME -2 struct relocation_info { int r_address; /* File address of item to be relocated */ unsigned r_symbolnum:24,/* Index of symbol on which relocation is based*/ r_pcrel:1, /* 1 => relocate PC-relative; else absolute * On i960, pc-relative implies 24-bit * address, absolute implies 32-bit. */ r_length:2, /* Number of bytes to relocate: * 0 => 1 byte * 1 => 2 bytes * 2 => 4 bytes -- only value used for i960 */ r_extern:1, r_bsr:1, /* Something for the GNU NS32K assembler */ r_disp:1, /* Something for the GNU NS32K assembler */ r_callj:1, /* 1 if relocation target is an i960 'callj' */ nuthin:1; /* Unused */ }; gdb-4.13/gdb/nindy-share/block_io.h 666 34562 1752 4730 5314241552 15451 0ustar fnfcygnus/****************************************************************** Copyright 1990, 1992 Free Software Foundation, Inc. This code was donated by Intel Corp. Intel hereby grants you permission to copy, modify, and distribute this software and its documentation. Intel grants this permission provided that the above copyright notice appears in all copies and that both the copyright notice and this permission notice appear in supporting documentation. In addition, Intel grants this permission provided that you prominently mark as not part of the original any modifications made to this software or documentation, and that the name of Intel Corporation not be used in advertising or publicity pertaining to distribution of the software or the documentation without specific, written prior permission. Intel Corporation does not warrant, guarantee or make any representations regarding the use of, or the results of the use of, the software and documentation in terms of correctness, accuracy, reliability, currentness, or otherwise; and you rely on the software, documentation and results solely at your own risk. */ /******************************************************************/ /***************************************************************************** * Structures and definitions supporting NINDY requests for services by a * remote host. Used by NINDY monitor, library libnin, comm960, gdb960, * etc. Also contains some defines for NINDY console I/O requests. *****************************************************************************/ /* the following four are hardware dependent */ #define BIT_16 short #define BIT_32 int #define UBIT_16 unsigned short #define UBIT_32 unsigned int /* Service request numbers -- these are the services that can be asked of the * host. */ #define BS_ACCESS 0x10 #define BS_CLOSE 0x20 #define BS_CREAT 0x30 #define BS_SEEK 0x40 #define BS_OPEN 0x50 #define BS_READ 0x60 #define BS_STAT 0x70 #define BS_SYSTEMD 0x80 #define BS_TIME 0x90 #define BS_UNMASK 0xa0 #define BS_UNLINK 0xb0 #define BS_WRITE 0xc0 /* Maximum number of arguments to any of the above service requests * (in addition to the request number). */ #define MAX_SRQ_ARGS 3 /* Number of bytes of data that can be read or written by a single I/O request */ #define BUFSIZE 1024 /* NINDY console I/O requests: CO sends a single character to stdout, * CI reads one. */ #define CI 0 #define CO 1 gdb-4.13/gdb/nindy-share/coff.h 666 34562 1752 23067 5271750207 14635 0ustar fnfcygnus/* Copyright 1990, 1992 Free Software Foundation, Inc. * * This code was donated by Intel Corp. * * This is a coff version of a.out.h to support 80960 debugging from * a Unix (possibly BSD) host. It's used by: * o gdb960 to symbols in code generated with Intel (non-GNU) tools. * o comm960 to convert a b.out file to a coff file for download. */ /********************** FILE HEADER **********************/ struct filehdr { unsigned short f_magic; /* magic number */ unsigned short f_nscns; /* number of sections */ long f_timdat; /* time & date stamp */ long f_symptr; /* file pointer to symtab */ long f_nsyms; /* number of symtab entries */ unsigned short f_opthdr; /* sizeof(optional hdr) */ unsigned short f_flags; /* flags */ }; /* Bits for f_flags: * F_RELFLG relocation info stripped from file * F_EXEC file is executable (no unresolved externel references) * F_LNNO line nunbers stripped from file * F_LSYMS local symbols stripped from file * F_AR32WR file has byte ordering of an AR32WR machine (e.g. vax) */ #define F_RELFLG 0000001 #define F_EXEC 0000002 #define F_LNNO 0000004 #define F_LSYMS 0000010 #define F_AR32WR 0000400 /* * Intel 80960 (I960) processor flags. * F_I960TYPE == mask for processor type field. */ #define F_I960TYPE 0170000 #define F_I960CA 0010000 #define F_I960FLOAT 0020000 #define F_I960BA 0030000 #define F_I960XA 0040000 /* * i80960 Magic Numbers */ #define I960ROMAGIC 0540 /* read-only text segments */ #define I960RWMAGIC 0541 /* read-write text segments */ #define I960BADMAG(x) (((x).f_magic!=I960ROMAGIC) && ((x).f_magic!=I960RWMAGIC)) #define FILHDR struct filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { unsigned long phys_addr; unsigned long bitarray; } TAGBITS; typedef struct aouthdr { short magic; /* type of file */ short vstamp; /* version stamp */ unsigned long tsize; /* text size in bytes, padded to FW bdry*/ unsigned long dsize; /* initialized data " " */ unsigned long bsize; /* uninitialized data " " */ #if U3B unsigned long dum1; unsigned long dum2; /* pad to entry point */ #endif unsigned long entry; /* entry pt. */ unsigned long text_start; /* base of text used for this file */ unsigned long data_start; /* base of data used for this file */ unsigned long tagentries; /* number of tag entries to follow */ } AOUTHDR; /* return a pointer to the tag bits array */ #define TAGPTR(aout) ((TAGBITS *) (&(aout.tagentries)+1)) /* compute size of a header */ #define AOUTSZ(aout) (sizeof(AOUTHDR)+(aout.tagentries*sizeof(TAGBITS))) /********************** STORAGE CLASSES **********************/ #define C_EFCN -1 /* physical end of function */ #define C_NULL 0 #define C_AUTO 1 /* automatic variable */ #define C_EXT 2 /* external symbol */ #define C_STAT 3 /* static */ #define C_REG 4 /* register variable */ #define C_EXTDEF 5 /* external definition */ #define C_LABEL 6 /* label */ #define C_ULABEL 7 /* undefined label */ #define C_MOS 8 /* member of structure */ #define C_ARG 9 /* function argument */ #define C_STRTAG 10 /* structure tag */ #define C_MOU 11 /* member of union */ #define C_UNTAG 12 /* union tag */ #define C_TPDEF 13 /* type definition */ #define C_USTATIC 14 /* undefined static */ #define C_ENTAG 15 /* enumeration tag */ #define C_MOE 16 /* member of enumeration */ #define C_REGPARM 17 /* register parameter */ #define C_FIELD 18 /* bit field */ #define C_BLOCK 100 /* ".bb" or ".eb" */ #define C_FCN 101 /* ".bf" or ".ef" */ #define C_EOS 102 /* end of structure */ #define C_FILE 103 /* file name */ #define C_LINE 104 /* line # reformatted as symbol table entry */ #define C_ALIAS 105 /* duplicate tag */ #define C_HIDDEN 106 /* ext symbol in dmert public lib */ /* New storage classes for 80960 */ #define C_SCALL 107 /* Procedure reachable via system call */ #define C_LEAFPROC 108 /* Leaf procedure, "call" via BAL */ /********************** SECTION HEADER **********************/ struct scnhdr { char s_name[8]; /* section name */ long s_paddr; /* physical address, aliased s_nlib */ long s_vaddr; /* virtual address */ long s_size; /* section size */ long s_scnptr; /* file ptr to raw data for section */ long s_relptr; /* file ptr to relocation */ long s_lnnoptr; /* file ptr to line numbers */ unsigned short s_nreloc; /* number of relocation entries */ unsigned short s_nlnno; /* number of line number entries*/ long s_flags; /* flags */ unsigned long s_align; /* section alignment */ }; /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" /* * s_flags "type" */ #define STYP_TEXT 0x20 /* section contains text only */ #define STYP_DATA 0x40 /* section contains data only */ #define STYP_BSS 0x80 /* section contains bss only */ #define SCNHDR struct scnhdr #define SCNHSZ sizeof(SCNHDR) /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct lineno{ union { long l_symndx; /* function name symbol index, iff l_lnno == 0*/ long l_paddr; /* (physical) address of line number */ } l_addr; unsigned short l_lnno; /* line number */ char padding[2]; /* force alignment */ }; #define LINENO struct lineno #define LINESZ sizeof(LINENO) /********************** SYMBOLS **********************/ #define SYMNMLEN 8 /* # characters in a symbol name */ #define FILNMLEN 14 /* # characters in a file name */ #define DIMNUM 4 /* # array dimensions in auxiliary entry */ struct syment { union { char _n_name[SYMNMLEN]; /* old COFF version */ struct { long _n_zeroes; /* new == 0 */ long _n_offset; /* offset into string table */ } _n_n; char *_n_nptr[2]; /* allows for overlaying */ } _n; long n_value; /* value of symbol */ short n_scnum; /* section number */ char pad1[2]; /* force alignment */ unsigned long n_type; /* type and derived type */ char n_sclass; /* storage class */ char n_numaux; /* number of aux. entries */ char pad2[2]; /* force alignment */ }; #define n_name _n._n_name #define n_zeroes _n._n_n._n_zeroes #define n_offset _n._n_n._n_offset /* * Relocatable symbols have number of the section in which they are defined, * or one of the following: */ #define N_UNDEF 0 /* undefined symbol */ #define N_ABS -1 /* value of symbol is absolute */ #define N_DEBUG -2 /* debugging symbol -- symbol value is meaningless */ /* * Type of a symbol, in low 4 bits of the word */ #define T_NULL 0 #define T_VOID 1 /* function argument (only used by compiler) */ #define T_CHAR 2 /* character */ #define T_SHORT 3 /* short integer */ #define T_INT 4 /* integer */ #define T_LONG 5 /* long integer */ #define T_FLOAT 6 /* floating point */ #define T_DOUBLE 7 /* double word */ #define T_STRUCT 8 /* structure */ #define T_UNION 9 /* union */ #define T_ENUM 10 /* enumeration */ #define T_MOE 11 /* member of enumeration*/ #define T_UCHAR 12 /* unsigned character */ #define T_USHORT 13 /* unsigned short */ #define T_UINT 14 /* unsigned integer */ #define T_ULONG 15 /* unsigned long */ #define T_LNGDBL 16 /* long double */ /* * derived types */ #define DT_PTR 1 /* pointer */ #define DT_FCN 2 /* function */ #define DT_ARY 3 /* array */ #define N_BTMASK 037 #define N_TMASK 0140 #define N_BTSHFT 5 #define N_TSHIFT 2 #define BTYPE(x) ((x) & N_BTMASK) #define ISPTR(x) (((x) & N_TMASK) == (DT_PTR << N_BTSHFT)) #define ISFCN(x) (((x) & N_TMASK) == (DT_FCN << N_BTSHFT)) #define ISARY(x) (((x) & N_TMASK) == (DT_ARY << N_BTSHFT)) #define DECREF(x) ((((x)>>N_TSHIFT)&~N_BTMASK)|((x)&N_BTMASK)) union auxent { struct { long x_tagndx; /* str, un, or enum tag indx */ union { struct { unsigned short x_lnno; /* declaration line number */ unsigned short x_size; /* str/union/array size */ } x_lnsz; long x_fsize; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ long x_lnnoptr; /* ptr to fcn line # */ long x_endndx; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ unsigned short x_dimen[DIMNUM]; } x_ary; } x_fcnary; unsigned short x_tvndx; /* tv index */ } x_sym; union { char x_fname[FILNMLEN]; struct { long x_zeroes; long x_offset; } x_n; } x_file; struct { long x_scnlen; /* section length */ unsigned short x_nreloc; /* # relocation entries */ unsigned short x_nlinno; /* # line numbers */ } x_scn; struct { long x_stdindx; } x_sc; struct { unsigned long x_balntry; } x_bal; char a[sizeof(struct syment)]; /* force auxent/syment sizes to match */ }; #define SYMENT struct syment #define SYMESZ sizeof(SYMENT) #define AUXENT union auxent #define AUXESZ sizeof(AUXENT) #if VAX || I960 # define _ETEXT "_etext" #else # define _ETEXT "etext" #endif /********************** RELOCATION DIRECTIVES **********************/ struct reloc { long r_vaddr; /* Virtual address of reference */ long r_symndx; /* Index into symbol table */ unsigned short r_type; /* Relocation type */ char pad[2]; /* Unused */ }; /* Only values of r_type GNU/960 cares about */ #define R_RELLONG 17 /* Direct 32-bit relocation */ #define R_IPRMED 25 /* 24-bit ip-relative relocation */ #define R_OPTCALL 27 /* 32-bit optimizable call (leafproc/sysproc) */ #define RELOC struct reloc #define RELSZ sizeof(RELOC) gdb-4.13/gdb/nindy-share/env.h 666 34562 1752 471 5271750211 14435 0ustar fnfcygnus/* Copyright 1990, 1992 Free Software Foundation, Inc. * * This code was donated by Intel Corp. * * GNU/960 tool runtime environment */ /* Base directory at which GNU/960 tools are assumed to be installed, if * the environment variable G960BASE is not defined. */ #define DEFAULT_BASE "/usr/local/g960" gdb-4.13/gdb/nindy-share/nindy.c 666 34562 1752 75314 5511133673 15035 0ustar fnfcygnus/* This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This started out life as code shared between the nindy monitor and GDB. For various reasons, this is no longer true. Eventually, it probably should be merged into remote-nindy.c. */ /****************************************************************************** * * NINDY INTERFACE ROUTINES * * The caller of these routines should be aware that: * * (1) ninConnect() should be called to open communications with the * remote NINDY board before any of the other routines are invoked. * * (2) almost all interactions are driven by the host: nindy sends information * in response to host commands. * * (3) the lone exception to (2) is the single character DLE (^P, 0x10). * Receipt of a DLE from NINDY indicates that the application program * running under NINDY has stopped execution and that NINDY is now * available to talk to the host (all other communication received after * the application has been started should be presumed to come from the * application and should be passed on by the host to stdout). * * (4) the reason the application program stopped can be determined with the * ninStopWhy() function. There are three classes of stop reasons: * * (a) the application has terminated execution. * The host should take appropriate action. * * (b) the application had a fault or trace event. * The host should take appropriate action. * * (c) the application wishes to make a service request (srq) of the host; * e.g., to open/close a file, read/write a file, etc. The ninSrq() * function should be called to determine the nature of the request * and process it. */ #include #include "defs.h" #include "serial.h" #include #if !defined (HAVE_TERMIOS) && !defined (HAVE_TERMIO) && !defined (HAVE_SGTTY) #define HAVE_SGTTY #endif #ifdef HAVE_SGTTY #include #endif #include /* Needed by file.h on Sys V */ #include #include #include #if 0 #include "ttycntl.h" #endif #include "block_io.h" #include "wait.h" #include "env.h" #define DLE 0x10 /* ^P */ #define XON 0x11 /* ^Q */ #define XOFF 0x13 /* ^S */ #define ESC 0x1b #define TIMEOUT -1 int quiet = 0; /* 1 => stifle unnecessary messages */ serial_t nindy_serial; static int old_nindy = 0; /* 1 => use old (hex) communication protocol */ static ninStrGet(); /**************************** * * * MISCELLANEOUS UTILTIES * * * ****************************/ /****************************************************************************** * say: * This is a printf that takes at most two arguments (in addition to the * format string) and that outputs nothing if verbose output has been * suppressed. *****************************************************************************/ static void say (va_alist) va_dcl { va_list args; char *fmt; va_start (args); fmt = va_arg (args, char *); if (!quiet) { vfprintf_unfiltered (gdb_stdout, fmt, args); gdb_flush (gdb_stdout); } va_end (args); } /****************************************************************************** * exists: * Creates a full pathname by concatenating up to three name components * onto a specified base name; optionally looks up the base name as a * runtime environment variable; and checks to see if the file or * directory specified by the pathname actually exists. * * Returns: the full pathname if it exists, NULL otherwise. * (returned pathname is in malloc'd memory and must be freed * by caller). *****************************************************************************/ static char * exists( base, c1, c2, c3, env ) char *base; /* Base directory of path */ char *c1, *c2, *c3; /* Components (subdirectories and/or file name) to be * appended onto the base directory name. One or * more may be omitted by passing NULL pointers. */ int env; /* If 1, '*base' is the name of an environment variable * to be examined for the base directory name; * otherwise, '*base' is the actual name of the * base directory. */ { struct stat buf;/* For call to 'stat' -- never examined */ char *path; /* Pointer to full pathname (malloc'd memory) */ int len; /* Length of full pathname (incl. terminator) */ extern char *getenv(); if ( env ){ base = getenv( base ); if ( base == NULL ){ return NULL; } } len = strlen(base) + 4; /* +4 for terminator and "/" before each component */ if ( c1 != NULL ){ len += strlen(c1); } if ( c2 != NULL ){ len += strlen(c2); } if ( c3 != NULL ){ len += strlen(c3); } path = xmalloc (len); strcpy( path, base ); if ( c1 != NULL ){ strcat( path, "/" ); strcat( path, c1 ); if ( c2 != NULL ){ strcat( path, "/" ); strcat( path, c2 ); if ( c3 != NULL ){ strcat( path, "/" ); strcat( path, c3 ); } } } if ( stat(path,&buf) != 0 ){ free( path ); path = NULL; } return path; } /***************************** * * * LOW-LEVEL COMMUNICATION * * * *****************************/ /* Read *exactly* N characters from the NINDY tty, and put them in *BUF. Translate escape sequences into single characters, counting each such sequence as 1 character. An escape sequence consists of ESC and a following character. The ESC is discarded and the other character gets bit 0x40 cleared -- thus ESC P == ^P, ESC S == ^S, ESC [ == ESC, etc. Return 1 if successful, 0 if more than TIMEOUT seconds pass without any input. */ static int rdnin (buf,n,timeout) unsigned char * buf; /* Where to place characters read */ int n; /* Number of characters to read */ int timeout; /* Timeout, in seconds */ { int escape_seen; /* 1 => last character of a read was an ESC */ int c; escape_seen = 0; while (n) { c = SERIAL_READCHAR (nindy_serial, timeout); switch (c) { case SERIAL_ERROR: case SERIAL_TIMEOUT: case SERIAL_EOF: return 0; case ESC: escape_seen = 1; break; default: if (escape_seen) { escape_seen = 0; c &= ~0x40; } *buf++ = c; --n; break; } } return 1; } /****************************************************************************** * getpkt: * Read a packet from a remote NINDY, with error checking, into the * indicated buffer. * * Return packet status byte on success, TIMEOUT on failure. ******************************************************************************/ static int getpkt(buf) unsigned char *buf; { int i; unsigned char hdr[3]; /* Packet header: * hdr[0] = low byte of message length * hdr[1] = high byte of message length * hdr[2] = message status */ int cnt; /* Message length (status byte + data) */ unsigned char cs_calc; /* Checksum calculated */ unsigned char cs_recv; /* Checksum received */ static char errfmt[] = "Bad checksum (recv=0x%02x; calc=0x%02x); retrying\r\n"; while (1){ if ( !rdnin(hdr,3,5) ){ return TIMEOUT; } cnt = (hdr[1]<<8) + hdr[0] - 1; /* -1 for status byte (already read) */ /* Caller's buffer may only be big enough for message body, * without status byte and checksum, so make sure to read * checksum into a separate buffer. */ if ( !rdnin(buf,cnt,5) || !rdnin(&cs_recv,1,5) ){ return TIMEOUT; } /* Calculate checksum */ cs_calc = hdr[0] + hdr[1] + hdr[2]; for ( i = 0; i < cnt; i++ ){ cs_calc += buf[i]; } if ( cs_calc == cs_recv ){ SERIAL_WRITE (nindy_serial, "+", 1); return hdr[2]; } /* Bad checksum: report, send NAK, and re-receive */ fprintf(stderr, errfmt, cs_recv, cs_calc ); SERIAL_WRITE (nindy_serial, "-", 1); } } /****************************************************************************** * putpkt: * Send a packet to NINDY, checksumming it and converting special * characters to escape sequences. ******************************************************************************/ /* This macro puts the character 'c' into the buffer pointed at by 'p', * and increments the pointer. If 'c' is one of the 4 special characters * in the transmission protocol, it is converted into a 2-character * escape sequence. */ #define PUTBUF(c,p) \ if ( c == DLE || c == ESC || c == XON || c == XOFF ){ \ *p++ = ESC; \ *p++ = c | 0x40; \ } else { \ *p++ = c; \ } static putpkt( msg, len ) unsigned char *msg; /* Command to be sent, without lead ^P (\020) or checksum */ int len; /* Number of bytes in message */ { static char *buf = NULL;/* Local buffer -- build packet here */ static int maxbuf = 0; /* Current length of buffer */ unsigned char ack; /* Response received from NINDY */ unsigned char checksum; /* Packet checksum */ char *p; /* Pointer into buffer */ int lenhi, lenlo; /* High and low bytes of message length */ int i; /* Make sure local buffer is big enough. Must include space for * packet length, message body, and checksum. And in the worst * case, each character would expand into a 2-character escape * sequence. */ if ( maxbuf < ((2*len)+10) ){ if ( buf ){ free( buf ); } buf = xmalloc( maxbuf=((2*len)+10) ); } /* Attention, NINDY! */ SERIAL_WRITE (nindy_serial, "\020", 1); lenlo = len & 0xff; lenhi = (len>>8) & 0xff; checksum = lenlo + lenhi; p = buf; PUTBUF( lenlo, p ); PUTBUF( lenhi, p ); for ( i=0; i\r\n", ack ); } } } /****************************************************************************** * send: * Send a message to a remote NINDY. Check message status byte * for error responses. If no error, return NINDY reponse (if any). ******************************************************************************/ static send( out, len, in ) unsigned char *out; /* Message to be sent to NINDY */ int len; /* Number of meaningful bytes in out buffer */ unsigned char *in; /* Where to put response received from NINDY */ { char *fmt; int status; static char *errmsg[] = { "", /* 0 */ "Buffer overflow", /* 1 */ "Unknown command", /* 2 */ "Wrong amount of data to load register(s)", /* 3 */ "Missing command argument(s)", /* 4 */ "Odd number of digits sent to load memory", /* 5 */ "Unknown register name", /* 6 */ "No such memory segment", /* 7 */ "No breakpoint available", /* 8 */ "Can't set requested baud rate", /* 9 */ }; # define NUMERRS ( sizeof(errmsg) / sizeof(errmsg[0]) ) static char err1[] = "Unknown error response from NINDY: #%d\r\n"; static char err2[] = "Error response #%d from NINDY: %s\r\n"; while (1){ putpkt(out,len); status = getpkt(in); if ( status == TIMEOUT ){ fprintf( stderr, "Response timed out; resending\r\n" ); } else { break; } } if ( status ){ fmt = status > NUMERRS ? err1 : err2; fprintf( stderr, fmt, status, errmsg[status] ); abort(); } } /************************ * * * BAUD RATE ROUTINES * * * ************************/ /* Table of baudrates known to be acceptable to NINDY. Each baud rate * appears both as character string and as a Unix baud rate constant. */ struct baudrate { char *string; int rate; }; static struct baudrate baudtab[] = { "1200", 1200, "2400", 2400, "4800", 4800, "9600", 9600, "19200", 19200, "38400", 38400, NULL, 0 /* End of table */ }; /****************************************************************************** * parse_baudrate: * Look up the passed baud rate in the baudrate table. If found, change * our internal record of the current baud rate, but don't do anything * about the tty just now. * * Return pointer to baudrate structure on success, NULL on failure. ******************************************************************************/ static struct baudrate * parse_baudrate(s) char *s; /* Desired baud rate, as an ASCII (decimal) string */ { int i; for ( i=0; baudtab[i].string != NULL; i++ ){ if ( !strcmp(baudtab[i].string,s) ){ return &baudtab[i]; } } return NULL; } /****************************************************************************** * try_baudrate: * Try speaking to NINDY via the specified file descriptor at the * specified baudrate. Assume success if we can send an empty command * with a bogus checksum and receive a NAK (response of '-') back within * one second. * * Return 1 on success, 0 on failure. ***************************************************************************/ static int try_baudrate (serial, brp) serial_t serial; struct baudrate *brp; { unsigned char c; /* Set specified baud rate and flush all pending input */ SERIAL_SETBAUDRATE (serial, brp->rate); tty_flush (serial); /* Send empty command with bad checksum, hope for NAK ('-') response */ SERIAL_WRITE (serial, "\020\0\0\001", 4); /* Anything but a quick '-', including error, eof, or timeout, means that this baudrate doesn't work. */ return SERIAL_READCHAR (serial, 1) == '-'; } /****************************************************************************** * autobaud: * Get NINDY talking over the specified file descriptor at the specified * baud rate. First see if NINDY's already talking at 'baudrate'. If * not, run through all the legal baudrates in 'baudtab' until one works, * and then tell NINDY to talk at 'baudrate' instead. ******************************************************************************/ static autobaud( serial, brp ) serial_t serial; struct baudrate *brp; { int i; int failures; say("NINDY at wrong baud rate? Trying to autobaud...\n"); failures = i = 0; while (1) { say( "\r%s... ", baudtab[i].string ); if (try_baudrate(serial, &baudtab[i])) { break; } if (baudtab[++i].string == NULL) { /* End of table -- wraparound */ i = 0; if ( failures++ ) { say("\nAutobaud failed again. Giving up.\n"); exit(1); } else { say("\nAutobaud failed. Trying again...\n"); } } } /* Found NINDY's current baud rate; now change it. */ say("Changing NINDY baudrate to %s\n", brp->string); ninBaud (brp->string); /* Change our baud rate back to rate to which we just set NINDY. */ SERIAL_SETBAUDRATE (serial, brp->rate); } /********************************** * * * NINDY INTERFACE ROUTINES * * * * ninConnect *MUST* be the first * * one of these routines called. * **********************************/ /****************************************************************************** * ninBaud: * Ask NINDY to change the baud rate on its serial port. * Assumes we know the baud rate at which NINDY's currently talking. ******************************************************************************/ ninBaud( baudrate ) char *baudrate; /* Desired baud rate, as a string of ASCII decimal * digits. */ { unsigned char msg[100]; tty_flush (nindy_serial); if (old_nindy) { char *p; /* Pointer into buffer */ unsigned char csum; /* Calculated checksum */ /* Can't use putpkt() because after the baudrate change NINDY's ack/nak will look like gibberish. */ for (p=baudrate, csum=020+'z'; *p; p++) { csum += *p; } sprintf (msg, "\020z%s#%02x", baudrate, csum); SERIAL_WRITE (nindy_serial, msg, strlen (msg)); } else { /* Can't use "send" because NINDY reply will be unreadable after baud rate change. */ sprintf( msg, "z%s", baudrate ); putpkt( msg, strlen(msg)+1 ); /* "+1" to send terminator too */ } } /****************************************************************************** * ninBptDel: * Ask NINDY to delete the specified type of *hardware* breakpoint at * the specified address. If the 'addr' is -1, all breakpoints of * the specified type are deleted. ***************************************************************************/ ninBptDel( addr, type ) long addr; /* Address in 960 memory */ char type; /* 'd' => data bkpt, 'i' => instruction breakpoint */ { unsigned char buf[10]; if ( old_nindy ){ OninBptDel( addr, type == 'd' ? 1 : 0 ); return; } buf[0] = 'b'; buf[1] = type; if ( addr == -1 ){ send( buf, 2, NULL ); } else { store_unsigned_integer (&buf[2], 4, addr); send( buf, 6, NULL ); } } /****************************************************************************** * ninBptSet: * Ask NINDY to set the specified type of *hardware* breakpoint at * the specified address. ******************************************************************************/ ninBptSet( addr, type ) long addr; /* Address in 960 memory */ char type; /* 'd' => data bkpt, 'i' => instruction breakpoint */ { unsigned char buf[10]; if ( old_nindy ){ OninBptSet( addr, type == 'd' ? 1 : 0 ); return; } buf[0] = 'B'; buf[1] = type; store_unsigned_integer (&buf[2], 4, addr); send( buf, 6, NULL ); } /****************************************************************************** * ninConnect: * Open the specified tty. Get communications working at the specified * baud rate. Flush any pending I/O on the tty. * * Return the file descriptor, or -1 on failure. ******************************************************************************/ int ninConnect( name, baudrate, brk, silent, old_protocol ) char *name; /* "/dev/ttyXX" to be opened */ char *baudrate;/* baud rate: a string of ascii decimal digits (eg,"9600")*/ int brk; /* 1 => send break to tty first thing after opening it*/ int silent; /* 1 => stifle unnecessary messages when talking to * this tty. */ int old_protocol; { int i; char *p; struct baudrate *brp; /* We will try each of the following paths when trying to open the tty */ static char *prefix[] = { "", "/dev/", "/dev/tty", NULL }; if ( old_protocol ){ old_nindy = 1; } quiet = silent; /* Make global to this file */ for ( i=0; prefix[i] != NULL; i++ ){ p = xmalloc(strlen(prefix[i]) + strlen(name) + 1 ); strcpy( p, prefix[i] ); strcat( p, name ); nindy_serial = SERIAL_OPEN (p); if (nindy_serial != NULL) { #ifdef TIOCEXCL /* Exclusive use mode (hp9000 does not support it) */ ioctl(nindy_serial->fd,TIOCEXCL,NULL); #endif SERIAL_RAW (nindy_serial); if (brk) { SERIAL_SEND_BREAK (nindy_serial); } brp = parse_baudrate( baudrate ); if ( brp == NULL ){ say("Illegal baudrate %s ignored; using 9600\n", baudrate); brp = parse_baudrate( "9600" ); } if ( !try_baudrate(nindy_serial, brp) ){ autobaud(nindy_serial, brp); } tty_flush (nindy_serial); say( "Connected to %s\n", p ); free(p); break; } free(p); } return 0; } #if 0 /* Currently unused; shouldn't we be doing this on target_kill and perhaps target_mourn? FIXME. */ /****************************************************************************** * ninGdbExit: * Ask NINDY to leave GDB mode and print a NINDY prompt. ****************************************************************************/ ninGdbExit() { if ( old_nindy ){ OninGdbExit(); return; } putpkt((unsigned char *) "E", 1 ); } #endif /****************************************************************************** * ninGo: * Ask NINDY to start or continue execution of an application program * in it's memory at the current ip. ******************************************************************************/ ninGo( step_flag ) int step_flag; /* 1 => run in single-step mode */ { if ( old_nindy ){ OninGo( step_flag ); return; } putpkt((unsigned char *) (step_flag ? "s" : "c"), 1 ); } /****************************************************************************** * ninMemGet: * Read a string of bytes from NINDY's address space (960 memory). ******************************************************************************/ ninMemGet(ninaddr, hostaddr, len) long ninaddr; /* Source address, in the 960 memory space */ unsigned char *hostaddr; /* Destination address, in our memory space */ int len; /* Number of bytes to read */ { unsigned char buf[BUFSIZE+20]; int cnt; /* Number of bytes in next transfer */ if ( old_nindy ){ OninMemGet(ninaddr, hostaddr, len); return; } for ( ; len > 0; len -= BUFSIZE ){ cnt = len > BUFSIZE ? BUFSIZE : len; buf[0] = 'm'; store_unsigned_integer (&buf[1], 4, ninaddr); buf[5] = cnt & 0xff; buf[6] = (cnt>>8) & 0xff; send( buf, 7, hostaddr ); ninaddr += cnt; hostaddr += cnt; } } /****************************************************************************** * ninMemPut: * Write a string of bytes into NINDY's address space (960 memory). ******************************************************************************/ ninMemPut( ninaddr, hostaddr, len ) long ninaddr; /* Destination address, in NINDY memory space */ unsigned char *hostaddr; /* Source address, in our memory space */ int len; /* Number of bytes to write */ { unsigned char buf[BUFSIZE+20]; int cnt; /* Number of bytes in next transfer */ if ( old_nindy ){ OninMemPut( ninaddr, hostaddr, len ); return; } for ( ; len > 0; len -= BUFSIZE ){ cnt = len > BUFSIZE ? BUFSIZE : len; buf[0] = 'M'; store_unsigned_integer (&buf[1], 4, ninaddr); memcpy(buf + 5, hostaddr, cnt); send( buf, cnt+5, NULL ); ninaddr += cnt; hostaddr += cnt; } } /****************************************************************************** * ninRegGet: * Retrieve the contents of a 960 register, and return them as a long * in host byte order. * * THIS ROUTINE CAN ONLY BE USED TO READ THE LOCAL, GLOBAL, AND * ip/ac/pc/tc REGISTERS. * ******************************************************************************/ long ninRegGet( regname ) char *regname; /* Register name recognized by NINDY, subject to the * above limitations. */ { unsigned char outbuf[10]; unsigned char inbuf[20]; if ( old_nindy ){ return OninRegGet( regname ); } sprintf( outbuf, "u%s:", regname ); send( outbuf, strlen(outbuf), inbuf ); return extract_unsigned_integer (inbuf, 4); } /****************************************************************************** * ninRegPut: * Set the contents of a 960 register. * * THIS ROUTINE CAN ONLY BE USED TO SET THE LOCAL, GLOBAL, AND * ip/ac/pc/tc REGISTERS. * ******************************************************************************/ ninRegPut( regname, val ) char *regname; /* Register name recognized by NINDY, subject to the * above limitations. */ long val; /* New contents of register, in host byte-order */ { unsigned char buf[20]; int len; if ( old_nindy ){ OninRegPut( regname, val ); return; } sprintf( buf, "U%s:", regname ); len = strlen(buf); store_unsigned_integer (&buf[len], 4, val); send( buf, len+4, NULL ); } /****************************************************************************** * ninRegsGet: * Get a dump of the contents of the entire 960 register set. The * individual registers appear in the dump in the following order: * * pfp sp rip r3 r4 r5 r6 r7 * r8 r9 r10 r11 r12 r13 r14 r15 * g0 g1 g2 g3 g4 g5 g6 g7 * g8 g9 g10 g11 g12 g13 g14 fp * pc ac ip tc fp0 fp1 fp2 fp3 * * Each individual register comprises exactly 4 bytes, except for * fp0-fp3, which are 8 bytes. All register values are in 960 * (little-endian) byte order. * ******************************************************************************/ ninRegsGet( regp ) unsigned char *regp; /* Where to place the register dump */ { if ( old_nindy ){ OninRegsGet( regp ); return; } send( (unsigned char *) "r", 1, regp ); } /****************************************************************************** * ninRegsPut: * Initialize the entire 960 register set to a specified set of values. * The format of the register value data should be the same as that * returned by ninRegsGet. * * WARNING: * All register values must be in 960 (little-endian) byte order. * ******************************************************************************/ ninRegsPut( regp ) char *regp; /* Pointer to desired values of registers */ { /* Number of bytes that we send to nindy. I believe this is defined by the protocol (it does not agree with REGISTER_BYTES). */ #define NINDY_REGISTER_BYTES ((36*4) + (4*8)) unsigned char buf[NINDY_REGISTER_BYTES+10]; if ( old_nindy ){ OninRegsPut( regp ); return; } buf[0] = 'R'; memcpy(buf+1, regp, NINDY_REGISTER_BYTES ); send( buf, NINDY_REGISTER_BYTES+1, NULL ); } /****************************************************************************** * ninReset: * Ask NINDY to perform a soft reset; wait for the reset to complete. * ******************************************************************************/ ninReset() { unsigned char ack; if ( old_nindy ){ OninReset(); return; } while (1){ putpkt((unsigned char *) "X", 1 ); while (1){ if ( !rdnin(&ack,1,5) ){ /* Timed out */ break; /* Resend */ } if ( ack == '+' ){ return; } } } } /****************************************************************************** * ninSrq: * Assume NINDY has stopped execution of the 960 application program in * order to process a host service request (srq). Ask NINDY for the * srq arguments, perform the requested service, and send an "srq * complete" message so NINDY will return control to the application. * ******************************************************************************/ ninSrq() { /* FIXME: Imposes arbitrary limits on lengths of pathnames and such. */ unsigned char buf[BUFSIZE]; int retcode; unsigned char srqnum; int i; int offset; int arg[MAX_SRQ_ARGS]; if ( old_nindy ){ OninSrq(); return; } /* Get srq number and arguments */ send((unsigned char *) "!", 1, buf ); srqnum = buf[0]; for ( i=0, offset=1; i < MAX_SRQ_ARGS; i++, offset+=4 ){ arg[i] = extract_unsigned_integer (&buf[offset], 4); } /* Process Srq */ switch( srqnum ){ case BS_CLOSE: /* args: file descriptor */ if ( arg[0] > 2 ){ retcode = close( arg[0] ); } else { retcode = 0; } break; case BS_CREAT: /* args: filename, mode */ ninStrGet( arg[0], buf ); retcode = creat(buf,arg[1]); break; case BS_OPEN: /* args: filename, flags, mode */ ninStrGet( arg[0], buf ); retcode = open(buf,arg[1],arg[2]); break; case BS_READ: /* args: file descriptor, buffer, count */ retcode = read(arg[0],buf,arg[2]); if ( retcode > 0 ){ ninMemPut( arg[1], buf, retcode ); } break; case BS_SEEK: /* args: file descriptor, offset, whence */ retcode = lseek(arg[0],arg[1],arg[2]); break; case BS_WRITE: /* args: file descriptor, buffer, count */ ninMemGet( arg[1], buf, arg[2] ); retcode = write(arg[0],buf,arg[2]); break; default: retcode = -1; break; } /* Send request termination status to NINDY */ buf[0] = 'e'; store_unsigned_integer (&buf[1], 4, retcode); send( buf, 5, NULL ); } /****************************************************************************** * ninStopWhy: * Assume the application program has stopped (i.e., a DLE was received * from NINDY). Ask NINDY for status information describing the * reason for the halt. * * Returns a non-zero value if the user program has exited, 0 otherwise. * Also returns the following information, through passed pointers: * - why: an exit code if program the exited; otherwise the reason * why the program halted (see stop.h for values). * - contents of register ip (little-endian byte order) * - contents of register sp (little-endian byte order) * - contents of register fp (little-endian byte order) ******************************************************************************/ char ninStopWhy( whyp, ipp, fpp, spp ) unsigned char *whyp; /* Return the 'why' code through this pointer */ long *ipp; /* Return contents of register ip through this pointer */ long *fpp; /* Return contents of register fp through this pointer */ long *spp; /* Return contents of register sp through this pointer */ { unsigned char buf[30]; extern char OninStopWhy (); if ( old_nindy ){ return OninStopWhy( whyp, ipp, fpp, spp ); } send((unsigned char *) "?", 1, buf ); *whyp = buf[1]; memcpy ((char *)ipp, &buf[2], sizeof (*ipp)); memcpy ((char *)fpp, &buf[6], sizeof (*ipp)); memcpy ((char *)spp, &buf[10], sizeof (*ipp)); return buf[0]; } /****************************************************************************** * ninStrGet: * Read a '\0'-terminated string of data out of the 960 memory space. * ******************************************************************************/ static ninStrGet( ninaddr, hostaddr ) unsigned long ninaddr; /* Address of string in NINDY memory space */ unsigned char *hostaddr; /* Address of the buffer to which string should * be copied. */ { unsigned char cmd[5]; cmd[0] = '"'; store_unsigned_integer (&cmd[1], 4, ninaddr); send( cmd, 5, hostaddr ); } #if 0 /* Not used. */ /****************************************************************************** * ninVersion: * Ask NINDY for version information about itself. * The information is sent as an ascii string in the form "x.xx,", * where, * x.xx is the version number * is the processor architecture: "KA", "KB", "MC", "CA" * * ******************************************************************************/ int ninVersion( p ) unsigned char *p; /* Where to place version string */ { if ( old_nindy ){ return OninVersion( p ); } send((unsigned char *) "v", 1, p ); return strlen(p); } #endif /* 0 */ gdb-4.13/gdb/nindy-share/stop.h 666 34562 1752 6303 5304027226 14652 0ustar fnfcygnus/****************************************************************** Copyright 1990, 1992 Free Software Foundation, Inc. This code was donated by Intel Corp. Intel hereby grants you permission to copy, modify, and distribute this software and its documentation. Intel grants this permission provided that the above copyright notice appears in all copies and that both the copyright notice and this permission notice appear in supporting documentation. In addition, Intel grants this permission provided that you prominently mark as not part of the original any modifications made to this software or documentation, and that the name of Intel Corporation not be used in advertising or publicity pertaining to distribution of the software or the documentation without specific, written prior permission. Intel Corporation does not warrant, guarantee or make any representations regarding the use of, or the results of the use of, the software and documentation in terms of correctness, accuracy, reliability, currentness, or otherwise; and you rely on the software, documentation and results solely at your own risk. */ /******************************************************************/ /****************************************************************** * * REASONS WHY NINDY CAN STOP EXECUTING AN APPLICATION PROGRAM * * When NINDY stops executing an application program that was running * under remote host ("gdb") control, it signals the host by sending * a single ^P. The host can then query as to the reason for the halt. * NINDY responds with two bytes of information. * * The first byte is a boolean flag that indicates whether or not * the application has exited. * * If the flag is true, the second byte contains the exit code. * * If the flag is false, the second byte contains a "reason for * stopping" code. This file defines the possible values of that * code. * * There are three categories of reasons why the halt may have occurred: * faults, traces, and software interactions. The first two categories * are processor-dependent; the values of these codes are tightly coupled * to the hardware and should not be changed without first examining * src/nindy/common/fault.c. The software interactions involve * communication between NINDY and the host debugger; their codes are * arbitrary. * ******************************************************************/ #define FAULT_PARALLEL 0x00 #define FAULT_UNKNOWN 0x01 #define FAULT_OPERATION 0x02 #define FAULT_ARITH 0x03 #define FAULT_FP 0x04 #define FAULT_CONSTR 0x05 #define FAULT_VM 0x06 #define FAULT_PROTECT 0x07 #define FAULT_MACHINE 0x08 #define FAULT_STRUCT 0x09 #define FAULT_TYPE 0x0a /* 0x0b reserved */ #define FAULT_PROCESS 0x0c #define FAULT_DESC 0x0d #define FAULT_EVENT 0x0e /* 0x0f reserved */ #define LAST_FAULT 0x0f #define TRACE_STEP 0x10 #define TRACE_BRANCH 0x11 #define TRACE_CALL 0x12 #define TRACE_RET 0x13 #define TRACE_PRERET 0x14 #define TRACE_SVC 0x15 #define TRACE_BKPT 0x16 #define STOP_SRQ 0xfe /* Application program has service request to make of host */ #define STOP_GDB_BPT 0xff /* Application program has reached breakpoint (fmark) set by host */ gdb-4.13/gdb/nindy-share/ttyflush.c 666 34562 1752 2706 5425420226 15546 0ustar fnfcygnus/* This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This started out life as code shared between the nindy monitor and GDB. For various reasons, this is no longer true. Eventually, it probably should be merged into remote-nindy.c. */ #include #include "defs.h" #include "serial.h" /* Flush all pending input and output for SERIAL, wait for a second, and then if there is a character pending, discard it and flush again. */ int tty_flush (serial) serial_t serial; { while (1) { SERIAL_FLUSH_INPUT (serial); SERIAL_FLUSH_OUTPUT (serial); sleep(1); switch (SERIAL_READCHAR (serial, 0)) { case SERIAL_TIMEOUT: case SERIAL_ERROR: case SERIAL_EOF: return 0; default: /* We read something. Eeek. Try again. */ break; } } } gdb-4.13/gdb/sparclite/ 777 34562 1752 0 5623250752 13205 5ustar fnfcygnusgdb-4.13/gdb/sparclite/Makefile.in 666 34562 1752 12377 5576173500 15366 0ustar fnfcygnus#Copyright 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. # This file is part of GDB. # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. prefix = /usr/local program_transform_name = exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib tooldir = $(libdir)/$(target_alias) datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include docdir = $(datadir)/doc SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) AR = ar AR_FLAGS = qv RANLIB = ranlib # Flags that describe where you can find the termcap library. # This can be overridden in the host Makefile fragment file. TERMCAP = -ltermcap # System V: If you compile gdb with a compiler which uses the coff # encapsulation feature (this is a function of the compiler used, NOT # of the m-?.h file selected by config.gdb), you must make sure that # the GNU nm is the one that is used by munch. # If you are compiling with GCC, make sure that either 1) You use the # -traditional flag, or 2) You have the fixed include files where GCC # can reach them. Otherwise the ioctl calls in inflow.c # will be incorrectly compiled. The "fixincludes" script in the gcc # distribution will fix your include files up. #CC=cc #CC=gcc -traditional # These tools MUST be build with gcc and gnu ld. CC=gcc LD=ld # Directory containing source files. Don't clean up the spacing, # this exact string is matched for by the "configure" script. srcdir = . # Set this up with gcc if you have gnu ld and the loader will print out # line numbers for undefinded refs. #CC-LD=gcc -static CC-LD=${CC} # Where is the "include" directory? Traditionally ../include or ./include INCLUDE_DIR = ${srcdir}/../../include INCLUDE_DEP = $$(INCLUDE_DIR) # Where is the source dir for the BFD library? Traditionally ../bfd or ./bfd # (When we want the binary library built from it, we use ${BFD_DIR}${subdir}.) BFD_DIR = ../../bfd BFD_DEP = $$(BFD_DIR) BFD_SRC = $(srcdir)/$(BFD_DIR) BFD_LIB = ./../../bfd${subdir}/libbfd.a BFD_CFLAGS = -I$(BFD_DIR) -I(BFD_SRC) # All the includes used for CFLAGS and for lint. # -I. for config files. # -I${srcdir} possibly for regex.h also. # -I${srcdir}/config for more generic config files. INCLUDE_CFLAGS = -I. -I.. -I${srcdir} -I${srcdir}/../config -I$(INCLUDE_DIR) # CFLAGS is specifically reserved for setting from the command line # when running make. I.E. "make USER_CFLAGS=-Wmissing-prototypes". CFLAGS = -g # INTERNAL_CFLAGS is the aggregate of all other *CFLAGS macros. INTERNAL_CFLAGS = $(CFLAGS) -I$(BFD_DIR) $(INCLUDE_CFLAGS) $(USER_CFLAGS) # None of the things in CFLAGS will do any harm, and on some systems # (e.g. SunOS4) it is important to use the MH_CFLAGS. LDFLAGS = $(CFLAGS) # Where is the "-liberty" library, containing getopt and obstack? LIBIBERTY_DIR = ${srcdir}/../../libiberty LIBIBERTY = ./../../libiberty${subdir}/libiberty.a # Libraries and corresponding dependencies for compiling gdb. CLIBS = ${BFD_LIB} ${LIBIBERTY} CDEPS = ${BFD_LIB} ${LIBIBERTY} # Host and target-dependent makefile fragments come in here. #### # End of host and target-dependent makefile fragments # Prevent Sun make from putting in the machine type. Setting # TARGET_ARCH to nothing works for SunOS 3, 4.0, but not for 4.1. .c.o: ${CC} -c ${INTERNAL_CFLAGS} $< OFILES = crt0.o hello.o salib.o sparcl-stub.o # this is so that we don't build by default. In order to build hello (the # sparclite target program), you will need to fix this file to use the # sparclite gcc and gas, and then do `make all'. .PHONY: all info install install-info all: aload info: # This does not use INSTALL_XFORM or anything of the sort because there # only needs to be one aload. Even if aload ends up being useful for more # than one target, perhaps one aload binary can be useful with all of them. install: $(INSTALL_PROGRAM) aload $(bindir)/aload install-info: progs: aload hello hello: $(OFILES) $(LD) -N -Ttext 0x40000000 -o hello $(OFILES) -lc aload: aload.o $(CC) $(CFLAGS) -o aload aload.o $(CLIBS) sparc-stub.o: ${srcdir}/../sparc-stub.c $(CC) -c ${INTERNAL_CFLAGS} ${srcdir}/../sparc-stub.c sparcl-stub.o: ${srcdir}/../sparcl-stub.c $(CC) -c ${INTERNAL_CFLAGS} ${srcdir}/../sparcl-stub.c crt0.o: crt0.s $(CC) $(CFLAGS) -c ${srcdir}/crt0.s aload.o: aload.c hello.o: hello.c salib.o: salib.c sparclite.h mostlyclean: clean: mostlyclean rm -f *.o aload hello distclean: clean realclean: distclean gdb-4.13/gdb/sparclite/README 666 34562 1752 1500 5323160606 14134 0ustar fnfcygnusThis directory contains a sample program that runs on a SparcLite eval board, and demonstrates the use of the remote debugger stub. This is in no sense `production' code. It is simply a working example of how to use the sparc-stub.c file for interfacing to GDB. aload.c Source for a loader utility. This talks to the Fujitsu boot monitor. Since it uses BFD, it is capable of loading almost any executable format. crt0.s Startup code to setup the SparcLite hardware, and the C environment. This is where the program actually starts. It calls main(). hello.c This is a trivial example of a program that you can debug. It demonstrates how to setup the debugger stub, and how to install permanent breakpoints in your code. salib.c Various utility routines to interface to the peripherals, the cache, etc... gdb-4.13/gdb/sparclite/aload.c 666 34562 1752 11275 5562525515 14543 0ustar fnfcygnus/* Program to load an image into the SPARClite monitor board Copyright 1993 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Call with: aload PROG TTY ie: aload hello /dev/ttya */ #include #include #include #include #define min(A, B) (((A) < (B)) ? (A) : (B)) #include #include /* Where the code goes by default. */ #ifndef LOAD_ADDRESS #define LOAD_ADDRESS 0x40000000 #endif extern void *malloc(); static void sys_error(msg) char *msg; { perror(msg); exit(1); } static void error(msg) char *msg; { fputs(msg, stdout); fputc('\n', stdout); exit(1); } static FILE *ttyf; static void sendex(outtxt, outlen, intxt, inlen, id) unsigned char *outtxt; int outlen; unsigned char *intxt; int inlen; char *id; { char buf[100]; int cc; if (outlen > 0) { cc = write(fileno(ttyf), outtxt, outlen); if (cc != outlen) sys_error("Write %s failed", id); } if (inlen > 0) { cc = read(fileno(ttyf), buf, inlen); /* Get reply */ if (cc != inlen) sys_error("Read %s reply failed", id); if (bcmp(buf, intxt, inlen) != 0) error("Bad reply to %s", id); } } main(argc, argv) int argc; char **argv; { struct termios termios; int cc, progsize, i; unsigned char buf[10]; asection *section; bfd *pbfd; unsigned long entry; pbfd = bfd_openr(argv[1], 0); if (!pbfd) sys_error("Open of PROG failed"); /* setup the tty. Must be raw, no flow control, 9600 baud */ ttyf = fopen(argv[2], "r+"); if (!ttyf) sys_error("Open of TTY failed"); setbuf(ttyf, NULL); /* Strictly unbuffered */ if (tcgetattr(fileno(ttyf), &termios)) sys_error("tcgetattr failed"); termios.c_iflag = 0; termios.c_oflag = 0; termios.c_cflag = CS8 | CREAD | CLOCAL; termios.c_lflag = 0; termios.c_cc[VMIN] = 1; termios.c_cc[VTIME] = 0; if (cfsetospeed(&termios, B9600) || cfsetispeed(&termios, B9600)) sys_error("cfset{i|o}speed failed"); if (tcsetattr(fileno(ttyf), TCSANOW, &termios)) sys_error("tcsetattr failed"); sendex("", 1, "\xaa", 1, "alive?"); sendex("\x55", 1, "\x55", 1, "alive"); printf("[SPARClite appears to be alive]\n"); if (!bfd_check_format (pbfd, bfd_object)) error ("It doesn't seem to be an object file"); for (section = pbfd->sections; section; section = section->next) { if (bfd_get_section_flags (pbfd, section) & SEC_ALLOC) { bfd_vma section_address; unsigned long section_size; const char *section_name; section_name = bfd_get_section_name (pbfd, section); section_address = bfd_get_section_vma (pbfd, section); /* Adjust sections from a.out files, since they don't carry their addresses with. */ if (bfd_get_flavour (pbfd) == bfd_target_aout_flavour) section_address += LOAD_ADDRESS; section_size = bfd_section_size (pbfd, section); printf("[Loading section %s at %x (%d bytes)]\n", section_name, section_address, section_size); if (bfd_get_section_flags (pbfd, section) & SEC_LOAD) /* Text, data or lit */ { file_ptr fptr; fptr = 0; while (section_size > 0) { char buffer[1024]; int count, i; unsigned char checksum; static char inds[] = "|/-\\"; static int k = 0; count = min (section_size, 1024); bfd_get_section_contents (pbfd, section, buffer, fptr, count); checksum = 0; for (i=0; i < count; i++) checksum += buffer[i]; printf("\r%c", inds[k++ % 4]); fflush(stdout); sendex("\001", 1, "\x5a", 1, "load command"); sendex(§ion_address, 4, NULL, 0, "load address"); sendex(&count, 4, NULL, 0, "program size"); sendex(buffer, count, &checksum, 1, "program"); section_address += count; fptr += count; section_size -= count; } } else /* BSS */ printf ("Not loading BSS \n"); } } entry = bfd_get_start_address (pbfd); printf("[Starting %s at 0x%x]\n", argv[1], entry); sendex("\003", 1, NULL, 0, "exec command"); sendex(&entry, 4, "\x55", 1, "program start"); } gdb-4.13/gdb/sparclite/configure.in 666 34562 1752 142 5360340270 15544 0ustar fnfcygnussrcname="SPARClite sample program" srctrigger=hello.c # per-host: # per-target: # post-target: gdb-4.13/gdb/sparclite/crt0.s 666 34562 1752 1460 5333337052 14317 0ustar fnfcygnus! C startup code for the Fujitsu SPARClite demo board .text .align 8 win_ovf_trap: sethi %hi(win_ovf), %l3 jmpl %lo(win_ovf)+%l3, %g0 mov %wim, %l0 nop win_unf_trap: sethi %hi(win_unf), %l3 jmpl %lo(win_unf)+%l3, %g0 mov %wim, %l0 nop .globl start start: ! First, copy prom & trap vectors to sram set 0x30000000, %l0 set 0xfff8, %l1 copyloop: ldd [%l1], %l2 std %l2, [%l0 + %l1] subcc %l1, 8, %l1 bge copyloop nop set 0x30000000, %l0 mov %l0, %tbr ! Install the new tbr set win_ovf_trap, %l1 ! Setup window overflow trap ldd [%l1], %l2 std %l2, [%l0 + 5 * 16] ld [%l1 + 8], %l2 st %l2, [%l0 + 5 * 16 + 8] set win_unf_trap, %l1 ! Setup window underflow trap ldd [%l1], %l2 std %l2, [%l0 + 6 * 16] ld [%l1 + 8], %l2 st %l2, [%l0 + 6 * 16 + 8] set _main, %g1 jmp %g1 nop gdb-4.13/gdb/sparclite/hello.c 666 34562 1752 2355 5532772452 14546 0ustar fnfcygnuschar hextab[] = "0123456789abcdef"; void writez(fd, str) int fd; unsigned char *str; { for (; *str; str++) write(1, str, 1); } #if 0 void numout(num, base) unsigned long num; int base; { if (num >= base) numout(num / base, base); write(1, &hextab[num % base], 1); } #endif int foo(arg) int arg; { return arg+1; } int fact (i) int i; { if (i == 1) return 1; else return i * fact ( i - 1); } main() { unsigned char c = 0; int num; cache_on(); set_debug_traps(); breakpoint(); writez(1, "Got to here\n"); num = fact(10); while (1) { read(0, &c, 1); if (c == 'g') break; #if 1 if (c == 'd') { #if 0 writez(1, "Entering debugger\r\n"); set_debug_traps(); writez(1, "Just did set_debug_traps()\r\n"); breakpoint(); #endif writez(1, "Just got out of breakpoint()\r\n"); break; } #endif writez(1, "echo "); write(1, &c, 1); writez(1, "\r\n"); } writez(1, "Hello world\n"); while (1) { read(0, &c, 1); if ((c & 0x7f) == 4) break; writez(1, "Char is "); write(1, &hextab[c >> 4], 1); write(1, &hextab[c & 0xf], 1); writez(1, "\r\n"); } writez(1, "I escaped!\r\n"); } gdb-4.13/gdb/sparclite/hw_breakpoint.note 666 34562 1752 5663 5575740642 17032 0ustar fnfcygnus GDB Hardware Breakpoint Support for SPARClite (Fujistu MB86930 Board) 1. Setup: The MB86930 board is connected to a sun sparc station serial port. This is a cross debugging setup and the host is not limited to sun sparc station. To turn on the SPARClite Debug Support Unit (DSU), jumper 5 on the board has to be set to (2 3) instead of (1 2). The board runs under Fujitsu EPROM code, which provides the Trap and interrupt handling that gdb uses. A user program will link with several files that gdb provides to communicate with gdb. Look at devo/gdb/sparclite to find the files. In devo/gdb directory, sparc-stub.c used to be the stub file that link with user program, to control user program when hit breakpoint. Now, now based on this file, we come up with a new file sparclite-stub.c to add the support for hardware breakpoint. Look at devo/gdb/ sparclite/Makefile.in for how to build user binary. 2. Data/Instruction breakpoint: SPARClite DSU will generate traps when program access some data or instruction addresses assigned to debug registers. For data part, it facilitates watch points, in particular gdb 'watch' command. The execution under watch command now is much much faster. e.g. watch x : gdb will break when x is write into and changes value watch *(int *)0x40003200 : watch the integer word at addr 0x40003200 The hardware breakpoint registers can only take two data watch points, if gdb specify more than two points, it will fall back to old method of data watch, whcih is step and check, it's going to be very slow. To avoid this, delete or disable some unused watch points by 'delete' or 'disable' commands, then set new watch point. Besides 'watch' command, we add two new commands 'rwatch' and 'awatch' to use the new facilities provided by DSU. 'rwatch x' for read watch x, will break when x is read by the program. 'awatch x' will break when x is read or written into. DSU has only two slots, user cannot use them with mixed type of watch points, that is user cannot has 'watch x' and 'rwatch y' to use the two slots. They have to be the same kind of watch command for both slots. Gdb will reject the command if mix used. For instruction hardware breakpoint, the main purpose is for EPROM/ROM code debugging, that one can set a breakpoint at an instruction without changing the instruction. Gdb add a new command for this, 'hbreak' for hardware break. The syntax is the same as 'break' command. Again there are only two slots for hbreak in DSU. Gdb will reject ths command if more than two is used. Delete or disable some of the old hardware breakpoints before setting new ones. 3. Implementation: The implementation has isloated all target dependecies, look at sparclite-tdep.c, sparclite-stub.c and config/sparc/tm-sparclite.h for target hardware dependent code. Also see gdb/sparclite directory for how to build a user binary and what files get linked. If you see any problem, please report to Kung Hsu at Cygnus Support Inc. email addr: kung@cygnus.com. gdb-4.13/gdb/sparclite/salib.c 666 34562 1752 15040 5532772453 14551 0ustar fnfcygnus/* Stand-alone library for SPARClite */ #include "sparclite.h" #ifdef SL931 #define SDTR_BASE 0x200 #define SDTR_ASI 1 #define SDTR_SHIFT 0 #else #define SDTR_BASE 0x10000000 #define SDTR_ASI 4 #define SDTR_SHIFT 16 #endif #define get_uart_status(PORT) \ ({unsigned long status; \ read_asi (SDTR_ASI, SDTR_BASE + 0x24 + PORT * 0x10, status); \ status >> SDTR_SHIFT; }) #define xmt_char(PORT, C) write_asi (SDTR_ASI, SDTR_BASE + 0x20 + PORT * 0x10, C << SDTR_SHIFT) #define rcv_char(PORT) \ ({unsigned long c; \ read_asi (SDTR_ASI, SDTR_BASE + 0x20 + PORT * 0x10, c); \ c >> SDTR_SHIFT; }) #if 0 void set_uart (cmd) int cmd; { write_asi (SDTR_ASI, SDTR_BASE + 0x24, cmd << SDTR_SHIFT); } void set_timer_3 (val) int val; { write_asi (SDTR_ASI, SDTR_BASE + 0x78, val << SDTR_SHIFT); } #endif /* This cache code is known to work on both the 930 & 932 processors. It just cheats and clears the all of the address space that could contain tags, as opposed to striding the tags at 8 or 16 word intervals, or using the cache flush registers, which don't exist on all processors. */ void cache_off () { write_asi (1, 0, 0); } void cache_on () { unsigned long addr; cache_off (); /* Make sure the cache is off */ /* Reset all of the cache line valid bits */ for (addr = 0; addr < 0x1000; addr += 8) { write_asi (0xc, addr, 0); /* Clear bank 1, icache */ write_asi (0xc, addr + 0x80000000, 0); /* Clear bank 2, icache */ write_asi (0xe, addr, 0); /* Clear bank 1, dcache */ write_asi (0xe, addr + 0x80000000, 0); /* Clear bank 2, dcache */ } /* turn on the cache */ write_asi (1, 0, 0x35); /* Write buf ena, prefetch buf ena, data & inst caches enab */ } /* Flush the instruction cache. We need to do this for the debugger stub so that breakpoints, et. al. become visible to the instruction stream after storing them in memory. */ void flush_i_cache () { int cache_reg; unsigned long addr; read_asi (1, 0, cache_reg); /* Read cache/bus interface reg */ if (!(cache_reg & 1)) return; /* Just return if cache is already off */ for (addr = 0; addr < 0x1000; addr += 8) { write_asi (0xc, addr, 0); /* Clear bank 1, icache */ write_asi (0xc, addr + 0x80000000, 0); /* Clear bank 2, icache */ } } asm(" .text .align 4 ! Register window overflow handler. Come here when save would move us ! into the invalid window. This routine runs with traps disabled, and ! must be careful not to touch the condition codes, as PSR is never ! restored. ! ! We are called with %l0 = wim, %l1 = pc, %l2 = npc .globl win_ovf win_ovf: mov %g1, %l3 ! Save g1, we use it to hold the wim srl %l0, 1, %g1 ! Rotate wim right sll %l0, 8-1, %l0 or %l0, %g1, %g1 save %g0, %g0, %g0 ! Slip into next window mov %g1, %wim ! Install the new wim std %l0, [%sp + 0 * 4] ! save L & I registers std %l2, [%sp + 2 * 4] std %l4, [%sp + 4 * 4] std %l6, [%sp + 6 * 4] std %i0, [%sp + 8 * 4] std %i2, [%sp + 10 * 4] std %i4, [%sp + 12 * 4] std %i6, [%sp + 14 * 4] restore ! Go back to trap window. mov %l3, %g1 ! Restore %g1 jmpl %l1, %g0 rett %l2 ! Register window underflow handler. Come here when restore would move us ! into the invalid window. This routine runs with traps disabled, and ! must be careful not to touch the condition codes, as PSR is never ! restored. ! ! We are called with %l0 = wim, %l1 = pc, %l2 = npc .globl win_unf win_unf: sll %l0, 1, %l3 ! Rotate wim left srl %l0, 8-1, %l0 or %l0, %l3, %l0 mov %l0, %wim ! Install the new wim restore ! User's window restore ! His caller's window ldd [%sp + 0 * 4], %l0 ! restore L & I registers ldd [%sp + 2 * 4], %l2 ldd [%sp + 4 * 4], %l4 ldd [%sp + 6 * 4], %l6 ldd [%sp + 8 * 4], %i0 ldd [%sp + 10 * 4], %i2 ldd [%sp + 12 * 4], %i4 ldd [%sp + 14 * 4], %i6 save %g0, %g0, %g0 ! Back to trap window save %g0, %g0, %g0 jmpl %l1, %g0 rett %l2 ! Read the TBR. .globl _rdtbr _rdtbr: retl mov %tbr, %o0 "); extern unsigned long rdtbr(); void die(val) int val; { static unsigned char *leds = (unsigned char *)0x02000003; *leds = val; while (1) ; } void __main() { int x; #if 0 set_uart_stuff(0x4e); rdtbr(); rdtbr(); rdtbr(); rdtbr(); rdtbr(); set_uart_stuff(0x35); #endif }; /* Each entry in the trap vector occupies four words. */ struct trap_entry { unsigned sethi_filler:10; unsigned sethi_imm22:22; unsigned jmpl_filler:19; unsigned jmpl_simm13:13; unsigned long filler[2]; }; extern struct trap_entry fltr_proto; asm (" .data .globl _fltr_proto .align 4 _fltr_proto: ! First level trap routine prototype sethi 0, %l0 jmpl 0+%l0, %g0 nop nop .text .align 4 "); void exceptionHandler(tt, routine) int tt; unsigned long routine; { struct trap_entry *tb; /* Trap vector base address */ tb = (struct trap_entry *)(rdtbr() & ~0xfff); tb[tt] = fltr_proto; tb[tt].sethi_imm22 = routine >> 10; tb[tt].jmpl_simm13 = routine & 0x3ff; } void update_leds() { static unsigned char *leds = (unsigned char *)0x02000003; static unsigned char curled = 1; static unsigned char dir = 0; *leds = ~curled; if (dir) curled <<= 1; else curled >>= 1; if (curled == 0) { if (dir) curled = 0x80; else curled = 1; dir = ~dir; } } /* 1/5th of a second? */ #define LEDTIME (20000000 / 500) int getDebugChar() { unsigned long countdown = LEDTIME; update_leds(); while (1) { if ((get_uart_status(0) & 2) != 0) break; if (countdown-- == 0) { countdown = LEDTIME; update_leds(); } } return rcv_char(0); } /* Output one character to the serial port */ void putDebugChar(c) int c; { update_leds(); while ((get_uart_status(0) & 1) == 0) ; xmt_char(0, c); } int write(fd, data, length) int fd; unsigned char *data; int length; { int olength = length; while (length--) putDebugChar(*data++); return olength; } int read(fd, data, length) int fd; unsigned char *data; int length; { int olength = length; int c; while (length--) *data++ = getDebugChar(); return olength; } /* Set the baud rate for the serial port, returns 0 for success, -1 otherwise */ #if 0 int set_baud_rate(baudrate) int baudrate; { /* Convert baud rate to uart clock divider */ switch (baudrate) { case 38400: baudrate = 16; break; case 19200: baudrate = 33; break; case 9600: baudrate = 65; break; default: return -1; } set_timer_3(baudrate); /* Set it */ } #endif gdb-4.13/gdb/sparclite/sparclite.h 666 34562 1752 1275 5532772454 15440 0ustar fnfcygnus/* SPARClite defs */ /* Macros for reading and writing to arbitrary address spaces. Note that ASI must be a constant (sorry, but the SPARC can only specify ASIs as part of an instruction. */ #define read_asi(ASI, LOC, VAL) \ __asm__ volatile ("lda [%r1]%2,%0" : "=r" (VAL) : "rJ" (LOC), "I" (ASI)) #define write_asi(ASI, LOC, VAL) \ __asm__ volatile ("sta %0,[%r1]%2" : : "r" (VAL), "rJ" (LOC), "I" (ASI)); /* Use this when modifying registers that cause memory to be modified. This will cause GCC to reload all values after this point. */ #define write_asi_volatile(ASI, LOC, VAL) \ __asm__ volatile ("sta %0,[%r1]%2" : : "r" (VAL), "rJ" (LOC), "I" (ASI) \ : "memory"); gdb-4.13/gdb/gdb.info-8 666 34562 1752 140256 5623251657 13132 0ustar fnfcygnusThis is Info file ./gdb.info, produced by Makeinfo-1.52 from the input file gdb.texinfo. START-INFO-DIR-ENTRY * Gdb: (gdb). The GNU debugger. END-INFO-DIR-ENTRY This file documents the GNU debugger GDB. This is Edition 4.12, January 1994, of `Debugging with GDB: the GNU Source-Level Debugger' for GDB Version 4.13. Copyright (C) 1988, '89, '90, '91, '92, '93 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions.  File: gdb.info, Node: Formatting Documentation, Next: Installing GDB, Prev: Renamed Commands, Up: Top Formatting Documentation ************************ The GDB 4 release includes an already-formatted reference card, ready for printing with PostScript or Ghostscript, in the `gdb' subdirectory of the main source directory(1). If you can use PostScript or Ghostscript with your printer, you can print the reference card immediately with `refcard.ps'. The release also includes the source for the reference card. You can format it, using TeX, by typing: make refcard.dvi The GDB reference card is designed to print in landscape mode on US "letter" size paper; that is, on a sheet 11 inches wide by 8.5 inches high. You will need to specify this form of printing as an option to your DVI output program. All the documentation for GDB comes as part of the machine-readable distribution. The documentation is written in Texinfo format, which is a documentation system that uses a single source file to produce both on-line information and a printed manual. You can use one of the Info formatting commands to create the on-line version of the documentation and TeX (or `texi2roff') to typeset the printed version. GDB includes an already formatted copy of the on-line Info version of this manual in the `gdb' subdirectory. The main Info file is `gdb-VERSION-NUMBER/gdb/gdb.info', and it refers to subordinate files matching `gdb.info*' in the same directory. If necessary, you can print out these files, or read them with any editor; but they are easier to read using the `info' subsystem in GNU Emacs or the standalone `info' program, available as part of the GNU Texinfo distribution. If you want to format these Info files yourself, you need one of the Info formatting programs, such as `texinfo-format-buffer' or `makeinfo'. If you have `makeinfo' installed, and are in the top level GDB source directory (`gdb-4.13', in the case of version 4.13), you can make the Info file by typing: cd gdb make gdb.info If you want to typeset and print copies of this manual, you need TeX, a program to print its DVI output files, and `texinfo.tex', the Texinfo definitions file. TeX is a typesetting program; it does not print files directly, but produces output files called DVI files. To print a typeset document, you need a program to print DVI files. If your system has TeX installed, chances are it has such a program. The precise command to use depends on your system; `lpr -d' is common; another (for PostScript devices) is `dvips'. The DVI print command may require a file name without any extension or a `.dvi' extension. TeX also requires a macro definitions file called `texinfo.tex'. This file tells TeX how to typeset a document written in Texinfo format. On its own, TeX cannot read, much less typeset a Texinfo file. `texinfo.tex' is distributed with GDB and is located in the `gdb-VERSION-NUMBER/texinfo' directory. If you have TeX and a DVI printer program installed, you can typeset and print this manual. First switch to the the `gdb' subdirectory of the main source directory (for example, to `gdb-4.13/gdb') and then type: make gdb.dvi ---------- Footnotes ---------- (1) In `gdb-4.13/gdb/refcard.ps' of the version 4.13 release.  File: gdb.info, Node: Installing GDB, Next: Index, Prev: Formatting Documentation, Up: Top Installing GDB ************** GDB comes with a `configure' script that automates the process of preparing GDB for installation; you can then use `make' to build the `gdb' program. The GDB distribution includes all the source code you need for GDB in a single directory, whose name is usually composed by appending the version number to `gdb'. For example, the GDB version 4.13 distribution is in the `gdb-4.13' directory. That directory contains: `gdb-4.13/configure (and supporting files)' script for configuring GDB and all its supporting libraries. `gdb-4.13/gdb' the source specific to GDB itself `gdb-4.13/bfd' source for the Binary File Descriptor library `gdb-4.13/include' GNU include files `gdb-4.13/libiberty' source for the `-liberty' free software library `gdb-4.13/opcodes' source for the library of opcode tables and disassemblers `gdb-4.13/readline' source for the GNU command-line interface `gdb-4.13/glob' source for the GNU filename pattern-matching subroutine `gdb-4.13/mmalloc' source for the GNU memory-mapped malloc package The simplest way to configure and build GDB is to run `configure' from the `gdb-VERSION-NUMBER' source directory, which in this example is the `gdb-4.13' directory. First switch to the `gdb-VERSION-NUMBER' source directory if you are not already in it; then run `configure'. Pass the identifier for the platform on which GDB will run as an argument. For example: cd gdb-4.13 ./configure HOST make where HOST is an identifier such as `sun4' or `decstation', that identifies the platform where GDB will run. (You can often leave off HOST; `configure' tries to guess the correct value by examining your system.) Running `configure HOST' and then running `make' builds the `bfd', `readline', `mmalloc', and `libiberty' libraries, then `gdb' itself. The configured source files, and the binaries, are left in the corresponding source directories. `configure' is a Bourne-shell (`/bin/sh') script; if your system does not recognize this automatically when you run a different shell, you may need to run `sh' on it explicitly: sh configure HOST If you run `configure' from a directory that contains source directories for multiple libraries or programs, such as the `gdb-4.13' source directory for version 4.13, `configure' creates configuration files for every directory level underneath (unless you tell it not to, with the `--norecursion' option). You can run the `configure' script from any of the subordinate directories in the GDB distribution if you only want to configure that subdirectory, but be sure to specify a path to it. For example, with version 4.13, type the following to configure only the `bfd' subdirectory: cd gdb-4.13/bfd ../configure HOST You can install `gdb' anywhere; it has no hardwired paths. However, you should make sure that the shell on your path (named by the `SHELL' environment variable) is publicly readable. Remember that GDB uses the shell to start your program--some systems refuse to let GDB debug child processes whose programs are not readable. * Menu: * Separate Objdir:: Compiling GDB in another directory * Config Names:: Specifying names for hosts and targets * configure Options:: Summary of options for configure  File: gdb.info, Node: Separate Objdir, Next: Config Names, Up: Installing GDB Compiling GDB in another directory ================================== If you want to run GDB versions for several host or target machines, you need a different `gdb' compiled for each combination of host and target. `configure' is designed to make this easy by allowing you to generate each configuration in a separate subdirectory, rather than in the source directory. If your `make' program handles the `VPATH' feature (GNU `make' does), running `make' in each of these directories builds the `gdb' program specified there. To build `gdb' in a separate directory, run `configure' with the `--srcdir' option to specify where to find the source. (You also need to specify a path to find `configure' itself from your working directory. If the path to `configure' would be the same as the argument to `--srcdir', you can leave out the `--srcdir' option; it is assumed.) For example, with version 4.13, you can build GDB in a separate directory for a Sun 4 like this: cd gdb-4.13 mkdir ../gdb-sun4 cd ../gdb-sun4 ../gdb-4.13/configure sun4 make When `configure' builds a configuration using a remote source directory, it creates a tree for the binaries with the same structure (and using the same names) as the tree under the source directory. In the example, you'd find the Sun 4 library `libiberty.a' in the directory `gdb-sun4/libiberty', and GDB itself in `gdb-sun4/gdb'. One popular reason to build several GDB configurations in separate directories is to configure GDB for cross-compiling (where GDB runs on one machine--the host--while debugging programs that run on another machine--the target). You specify a cross-debugging target by giving the `--target=TARGET' option to `configure'. When you run `make' to build a program or library, you must run it in a configured directory--whatever directory you were in when you called `configure' (or one of its subdirectories). The `Makefile' that `configure' generates in each source directory also runs recursively. If you type `make' in a source directory such as `gdb-4.13' (or in a separate configured directory configured with `--srcdir=DIRNAME/gdb-4.13'), you will build all the required libraries, and then build GDB. When you have multiple hosts or targets configured in separate directories, you can run `make' on them in parallel (for example, if they are NFS-mounted on each of the hosts); they will not interfere with each other.  File: gdb.info, Node: Config Names, Next: configure Options, Prev: Separate Objdir, Up: Installing GDB Specifying names for hosts and targets ====================================== The specifications used for hosts and targets in the `configure' script are based on a three-part naming scheme, but some short predefined aliases are also supported. The full naming scheme encodes three pieces of information in the following pattern: ARCHITECTURE-VENDOR-OS For example, you can use the alias `sun4' as a HOST argument, or as the value for TARGET in a `--target=TARGET' option. The equivalent full name is `sparc-sun-sunos4'. The `configure' script accompanying GDB does not provide any query facility to list all supported host and target names or aliases. `configure' calls the Bourne shell script `config.sub' to map abbreviations to full names; you can read the script, if you wish, or you can use it to test your guesses on abbreviations--for example: % sh config.sub sun4 sparc-sun-sunos4.1.1 % sh config.sub sun3 m68k-sun-sunos4.1.1 % sh config.sub decstation mips-dec-ultrix4.2 % sh config.sub hp300bsd m68k-hp-bsd % sh config.sub i386v i386-unknown-sysv % sh config.sub i786v Invalid configuration `i786v': machine `i786v' not recognized `config.sub' is also distributed in the GDB source directory (`gdb-4.13', for version 4.13).  File: gdb.info, Node: configure Options, Prev: Config Names, Up: Installing GDB `configure' options =================== Here is a summary of the `configure' options and arguments that are most often useful for building GDB. `configure' also has several other options not listed here. *note : (configure.info)What Configure Does, for a full explanation of `configure'. configure [--help] [--prefix=DIR] [--srcdir=DIRNAME] [--norecursion] [--rm] [--target=TARGET] HOST You may introduce options with a single `-' rather than `--' if you prefer; but you may abbreviate option names if you use `--'. `--help' Display a quick summary of how to invoke `configure'. `-prefix=DIR' Configure the source to install programs and files under directory `DIR'. `--srcdir=DIRNAME' *Warning: using this option requires GNU `make', or another `make' that implements the `VPATH' feature.* Use this option to make configurations in directories separate from the GDB source directories. Among other things, you can use this to build (or maintain) several configurations simultaneously, in separate directories. `configure' writes configuration specific files in the current directory, but arranges for them to use the source in the directory DIRNAME. `configure' creates directories under the working directory in parallel to the source directories below DIRNAME. `--norecursion' Configure only the directory level where `configure' is executed; do not propagate configuration to subdirectories. `--rm' *Remove* files otherwise built during configuration. `--target=TARGET' Configure GDB for cross-debugging programs running on the specified TARGET. Without this option, GDB is configured to debug programs that run on the same machine (HOST) as GDB itself. There is no convenient way to generate a list of all available targets. `HOST ...' Configure GDB to run on the specified HOST. There is no convenient way to generate a list of all available hosts. `configure' accepts other options, for compatibility with configuring other GNU tools recursively; but these are the only options that affect GDB or its supporting libraries.  File: gdb.info, Node: Index, Prev: Installing GDB, Up: Top Index ***** * Menu: * #: Command Syntax. * $bpnum: Set Breaks. * $cdir: Source Path. * $cwd: Source Path. * $_: Convenience Vars. * $__: Convenience Vars. * .: M2 Scope. * .esgdbinit: Command Files. * .os68gdbinit: Command Files. * .vxgdbinit: Command Files. * /proc: Process Information. * @: Arrays. * # in Modula-2: GDB/M2. * $$: Value History. * $_ and info breakpoints: Set Breaks. * $_ and info line: Machine Code. * $_, $__, and value history: Memory. * $: Value History. * breakpoint subroutine, remote: Stub Contents. * heuristic-fence-post (MIPS): MIPS Stack. * remotedebug, MIPS protocol: MIPS Remote. * retransmit-timeout, MIPS protocol: MIPS Remote. * timeout, MIPS protocol: MIPS Remote. * vi style command editing: Readline Vi Mode. * .gdbinit: Command Files. * COFF versus C++: Cplus expressions. * ECOFF and C++: Cplus expressions. * ELF/DWARF and C++: Cplus expressions. * ELF/stabs and C++: Cplus expressions. * XCOFF and C++: Cplus expressions. * GDB bugs, reporting: Bug Reporting. * {TYPE}: Expressions. * a.out and C++: Cplus expressions. * abbreviation: Command Syntax. * active targets: Active Targets. * add-symbol-file: Files. * add-syms: Renamed Commands. * AMD 29K register stack: Registers. * AMD EB29K: Target Commands. * AMD29K via UDI: UDI29K Remote. * arguments (to your program): Arguments. * artificial array: Arrays. * assembly instructions: Machine Code. * assignment: Assignment. * attach: Attach. * attach: Attach. * automatic display: Auto Display. * automatic thread selection: Threads. * b: Set Breaks. * backtrace: Backtrace. * break: Set Breaks. * break ... thread THREADNO: Thread Stops. * break in overloaded functions: Debugging C plus plus. * breakpoint commands: Break Commands. * breakpoint conditions: Conditions. * breakpoint numbers: Breakpoints. * breakpoint on memory address: Breakpoints. * breakpoint on variable modification: Breakpoints. * breakpoints: Breakpoints. * breakpoints and threads: Thread Stops. * bt: Backtrace. * bug criteria: Bug Criteria. * bug reports: Bug Reporting. * bugs in GDB: GDB Bugs. * c: Continuing and Stepping. * C and C++: C. * C and C++ checks: C Checks. * C and C++ constants: C Operators. * C and C++ defaults: C Defaults. * C and C++ operators: C. * C++: C. * C++ and object formats: Cplus expressions. * C++ exception handling: Debugging C plus plus. * C++ scope resolution: Variables. * C++ support, not in COFF: Cplus expressions. * C++ symbol decoding style: Print Settings. * C++ symbol display: Debugging C plus plus. * call: Calling. * call overloaded functions: Cplus expressions. * call stack: Stack. * calling functions: Calling. * calling make: Shell Commands. * casts, to view memory: Expressions. * catch: Exception Handling. * catch exceptions: Frame Info. * cd: Working Directory. * cdir: Source Path. * checks, range: Type Checking. * checks, type: Checks. * checksum, for GDB remote: Protocol. * clear: Delete Breaks. * clearing breakpoints, watchpoints: Delete Breaks. * colon, doubled as scope operator: M2 Scope. * colon-colon: Variables. * colon-colon: M2 Scope. * command files: Command Files. * command files: Hooks. * command line editing: Editing. * commands: Break Commands. * commands for C++: Debugging C plus plus. * commands to STDBUG (ST2000): ST2000 Remote. * comment: Command Syntax. * compilation directory: Source Path. * completion: Completion. * completion of quoted strings: Completion. * condition: Conditions. * conditional breakpoints: Conditions. * configuring GDB: Installing GDB. * confirmation: Messages/Warnings. * connect (to STDBUG): ST2000 Remote. * continue: Continuing and Stepping. * continuing: Continuing and Stepping. * continuing threads: Thread Stops. * control C, and remote debugging: Bootstrapping. * controlling terminal: Input/Output. * convenience variables: Convenience Vars. * core: Files. * core dump file: Files. * core-file: Files. * CPU simulator: Simulator. * crash of debugger: Bug Criteria. * current directory: Source Path. * current thread: Threads. * cwd: Source Path. * d: Delete Breaks. * debugger crash: Bug Criteria. * debugging optimized code: Compilation. * debugging stub, example: Protocol. * debugging target: Targets. * define: Define. * delete: Delete Breaks. * delete breakpoints: Delete Breaks. * delete display: Auto Display. * delete environment: Renamed Commands. * deleting breakpoints, watchpoints: Delete Breaks. * detach: Attach. * device: Hitachi Boards. * directories for source files: Source Path. * directory: Source Path. * directory, compilation: Source Path. * directory, current: Source Path. * dis: Disabling. * disable: Disabling. * disable breakpoints: Disabling. * disable display: Auto Display. * disabled breakpoints: Disabling. * disassemble: Machine Code. * display: Auto Display. * display of expressions: Auto Display. * do: Selection. * document: Define. * documentation: Formatting Documentation. * down: Selection. * down-silently: Selection. * download to H8/300 or H8/500: Files. * download to Hitachi SH: Files. * download to Nindy-960: Files. * download to VxWorks: VxWorks Download. * dynamic linking: Files. * eb.log: Remote Log. * EB29K board: EB29K Remote. * EBMON: Comms (EB29K). * echo: Output. * editing: Editing. * editing-mode: Readline Init Syntax. * emacs: Emacs. * enable: Disabling. * enable breakpoints: Disabling. * enable display: Auto Display. * enabled breakpoints: Disabling. * end: Break Commands. * entering numbers: Numbers. * environment (of your program): Environment. * error on valid input: Bug Criteria. * event designators: Event Designators. * examining data: Data. * examining memory: Memory. * exception handlers: Frame Info. * exception handlers: Exception Handling. * exceptionHandler: Bootstrapping. * exec-file: Files. * executable file: Files. * exiting GDB: Quitting GDB. * expansion: History Interaction. * expressions: Expressions. * expressions in C or C++: C. * expressions in C++: Cplus expressions. * expressions in Modula-2: Modula-2. * f: Selection. * fatal signal: Bug Criteria. * fatal signals: Signals. * fg: Continuing and Stepping. * file: Files. * finish: Continuing and Stepping. * flinching: Messages/Warnings. * floating point: Floating Point Hardware. * floating point registers: Registers. * floating point, MIPS remote: MIPS Remote. * flush_i_cache: Bootstrapping. * focus of debugging: Threads. * foo: Symbol Errors. * format options: Print Settings. * formatted output: Output Formats. * Fortran: Summary. * forward-search: Search. * frame: Selection. * frame: Frames. * frame number: Frames. * frame pointer: Frames. * frameless execution: Frames. * g++: C. * GDB reference card: Formatting Documentation. * GDBHISTFILE: History. * gdbserver: Server. * getDebugChar: Bootstrapping. * GNU C++: C. * h: Help. * H8/300 or H8/500 download: Files. * H8/300 or H8/500 simulator: Simulator. * handle: Signals. * handle_exception: Stub Contents. * handling signals: Signals. * help: Help. * help target: Target Commands. * help user-defined: Define. * history expansion: History. * history file: History. * history number: Value History. * history save: History. * history size: History. * history substitution: History. * Hitachi SH download: Files. * Hitachi SH simulator: Simulator. * horizontal-scroll-mode: Readline Init Syntax. * i: Help. * i/o: Input/Output. * i386: Remote Serial. * i386-stub.c: Remote Serial. * i960: i960-Nindy Remote. * ignore: Conditions. * ignore count (of breakpoint): Conditions. * INCLUDE_RDB: VxWorks Remote. * info: Help. * info address: Symbols. * info all-registers: Registers. * info args: Frame Info. * info breakpoints: Set Breaks. * info catch: Frame Info. * info convenience: Renamed Commands. * info copying: Renamed Commands. * info directories: Renamed Commands. * info display: Auto Display. * info editing: Renamed Commands. * info f: Frame Info. * info files: Files. * info float: Floating Point Hardware. * info frame: Frame Info. * info frame: Show. * info functions: Symbols. * info history: Renamed Commands. * info line: Machine Code. * info locals: Frame Info. * info proc: Process Information. * info proc id: Process Information. * info proc mappings: Process Information. * info proc status: Process Information. * info proc times: Process Information. * info program: Stopping. * info registers: Registers. * info s: Backtrace. * info set: Help. * info share: Files. * info sharedlibrary: Files. * info signals: Signals. * info source: Symbols. * info source: Show. * info sources: Symbols. * info stack: Backtrace. * info target: Files. * info targets: Renamed Commands. * info terminal: Input/Output. * info threads: Threads. * info types: Symbols. * info values: Renamed Commands. * info variables: Symbols. * info version: Renamed Commands. * info warranty: Renamed Commands. * info watchpoints: Set Watchpoints. * inheritance: Debugging C plus plus. * init file: Command Files. * init file name: Command Files. * initial frame: Frames. * innermost frame: Frames. * inspect: Data. * installation: Installing GDB. * instructions, assembly: Machine Code. * Intel: Remote Serial. * interaction, readline: Readline Interaction. * internal GDB breakpoints: Set Breaks. * interrupt: Quitting GDB. * interrupting remote programs: Debug Session. * interrupting remote targets: Bootstrapping. * invalid input: Bug Criteria. * jump: Jumping. * kill: Kill Process. * l: List. * languages: Languages. * latest breakpoint: Set Breaks. * leaving GDB: Quitting GDB. * linespec: List. * list: List. * listing machine instructions: Machine Code. * load: Files. * log file for EB29K: Remote Log. * m680x0: Remote Serial. * m68k-stub.c: Remote Serial. * machine instructions: Machine Code. * maint info breakpoints: Set Breaks. * maint print psymbols: Symbols. * maint print symbols: Symbols. * make: Shell Commands. * mapped: Files. * mark-modified-lines: Readline Init Syntax. * member functions: Cplus expressions. * memory models, H8/500: Hitachi Special. * memory tracing: Breakpoints. * memory, viewing as typed object: Expressions. * memory-mapped symbol file: Files. * memset: Bootstrapping. * MIPS remotedebug protocol: MIPS Remote. * MIPS boards: MIPS Remote. * MIPS remote floating point: MIPS Remote. * MIPS stack: MIPS Stack. * Modula-2: Modula-2. * Modula-2 built-ins: M2 Operators. * Modula-2 checks: M2 Checks. * Modula-2 constants: Built-In Func/Proc. * Modula-2 defaults: M2 Defaults. * Modula-2 operators: M2 Operators. * Modula-2, deviations from: Deviations. * Motorola 680x0: Remote Serial. * multiple targets: Active Targets. * multiple threads: Threads. * n: Continuing and Stepping. * names of symbols: Symbols. * namespace in C++: Cplus expressions. * negative breakpoint numbers: Set Breaks. * New SYSTAG: Threads. * next: Continuing and Stepping. * nexti: Continuing and Stepping. * ni: Continuing and Stepping. * Nindy: i960-Nindy Remote. * number representation: Numbers. * numbers for breakpoints: Breakpoints. * object formats and C++: Cplus expressions. * online documentation: Help. * optimized code, debugging: Compilation. * outermost frame: Frames. * output: Output. * output formats: Output Formats. * overloading: Breakpoint Menus. * overloading in C++: Debugging C plus plus. * packets, reporting on stdout: Protocol. * partial symbol dump: Symbols. * patching binaries: Patching. * path: Environment. * pauses in output: Screen Size. * pipes: Starting. * pointer, finding referent: Print Settings. * prefer-visible-bell: Readline Init Syntax. * print: Data. * print settings: Print Settings. * printf: Output. * printing data: Data. * process image: Process Information. * prompt: Prompt. * protocol, GDB remote serial: Protocol. * ptype: Symbols. * putDebugChar: Bootstrapping. * pwd: Working Directory. * q: Quitting GDB. * quit: Quitting GDB. * quotes in commands: Completion. * quoting names: Symbols. * raise exceptions: Exception Handling. * range checking: Type Checking. * rbreak: Set Breaks. * reading symbols immediately: Files. * readline: Editing. * readnow: Files. * redirection: Input/Output. * reference card: Formatting Documentation. * reference declarations: Cplus expressions. * register stack, AMD29K: Registers. * registers: Registers. * regular expression: Set Breaks. * reloading symbols: Messages/Warnings. * remote connection without stubs: Server. * remote debugging: Remote. * remote programs, interrupting: Debug Session. * remote serial debugging summary: Debug Session. * remote serial debugging, overview: Remote Serial. * remote serial protocol: Protocol. * remote serial stub: Stub Contents. * remote serial stub list: Remote Serial. * remote serial stub, initialization: Stub Contents. * remote serial stub, main routine: Stub Contents. * remote stub, example: Protocol. * remote stub, support routines: Bootstrapping. * repeating commands: Command Syntax. * reporting bugs in GDB: GDB Bugs. * reset: Nindy Reset. * response time, MIPS debugging: MIPS Stack. * resuming execution: Continuing and Stepping. * RET: Command Syntax. * return: Returning. * returning from a function: Returning. * reverse-search: Search. * run: Starting. * running: Starting. * running 29K programs: EB29K Remote. * running VxWorks tasks: VxWorks Attach. * s: Continuing and Stepping. * saving symbol table: Files. * scope: M2 Scope. * search: Search. * searching: Search. * selected frame: Stack. * serial connections, debugging: Protocol. * serial device, Hitachi micros: Hitachi Boards. * serial line speed, Hitachi micros: Hitachi Boards. * serial line, target remote: Debug Session. * serial protocol, GDB remote: Protocol. * set addressprint: Renamed Commands. * set args: Arguments. * set array-max: Renamed Commands. * set arrayprint: Renamed Commands. * set asm-demangle: Renamed Commands. * set caution: Renamed Commands. * set check: Type Checking. * set check: Range Checking. * set check range: Range Checking. * set check type: Type Checking. * set complaints: Messages/Warnings. * set confirm: Messages/Warnings. * set demangle: Renamed Commands. * set demangle-style: Print Settings. * set editing: Editing. * set environment: Environment. * set height: Screen Size. * set history expansion: History. * set history filename: History. * set history save: History. * set history size: History. * set history write: Renamed Commands. * set language: Manually. * set listsize: List. * set machine: Hitachi Special. * set memory MOD: Hitachi Special. * set mipsfpu off: MIPS Remote. * set prettyprint: Renamed Commands. * set print address: Print Settings. * set print array: Print Settings. * set print asm-demangle: Print Settings. * set print demangle: Print Settings. * set print elements: Print Settings. * set print max-symbolic-offset: Print Settings. * set print object: Print Settings. * set print pretty: Print Settings. * set print sevenbit-strings: Print Settings. * set print symbol-filename: Print Settings. * set print union: Print Settings. * set print vtbl: Print Settings. * set prompt: Prompt. * set radix: Numbers. * set remotedebug: Protocol. * set remotedebug: MIPS Remote. * set retransmit-timeout: MIPS Remote. * set rstack_high_address: Registers. * set screen-height: Renamed Commands. * set screen-width: Renamed Commands. * set sevenbit-strings: Renamed Commands. * set symbol-reloading: Messages/Warnings. * set timeout: MIPS Remote. * set unionprint: Renamed Commands. * set variable: Assignment. * set verbose: Messages/Warnings. * set vtblprint: Renamed Commands. * set width: Screen Size. * set write: Patching. * setting variables: Assignment. * setting watchpoints: Set Watchpoints. * set_debug_traps: Stub Contents. * share: Files. * shared libraries: Files. * sharedlibrary: Files. * shell: Shell Commands. * shell escape: Shell Commands. * show: Help. * show addressprint: Renamed Commands. * show args: Arguments. * show array-max: Renamed Commands. * show arrayprint: Renamed Commands. * show asm-demangle: Renamed Commands. * show caution: Renamed Commands. * show check range: Range Checking. * show check type: Type Checking. * show commands: History. * show complaints: Messages/Warnings. * show confirm: Messages/Warnings. * show convenience: Convenience Vars. * show copying: Help. * show demangle: Renamed Commands. * show demangle-style: Print Settings. * show directories: Source Path. * show editing: Editing. * show environment: Environment. * show height: Screen Size. * show history: History. * show history write: Renamed Commands. * show language: Show. * show listsize: List. * show machine: Hitachi Special. * show mipsfpu: MIPS Remote. * show paths: Environment. * show prettyprint: Renamed Commands. * show print address: Print Settings. * show print array: Print Settings. * show print asm-demangle: Print Settings. * show print demangle: Print Settings. * show print elements: Print Settings. * show print max-symbolic-offset: Print Settings. * show print object: Print Settings. * show print pretty: Print Settings. * show print sevenbit-strings: Print Settings. * show print symbol-filename: Print Settings. * show print union: Print Settings. * show print vtbl: Print Settings. * show prompt: Prompt. * show radix: Numbers. * show remotedebug: MIPS Remote. * show remotedebug: Protocol. * show retransmit-timeout: MIPS Remote. * show rstack_high_address: Registers. * show screen-height: Renamed Commands. * show screen-width: Renamed Commands. * show sevenbit-strings: Renamed Commands. * show timeout: MIPS Remote. * show unionprint: Renamed Commands. * show user: Define. * show values: Value History. * show verbose: Messages/Warnings. * show version: Help. * show vtblprint: Renamed Commands. * show warranty: Help. * show width: Screen Size. * show write: Patching. * si: Continuing and Stepping. * signal: Signaling. * signals: Signals. * silent: Break Commands. * sim: Simulator. * simulator: Simulator. * simulator, H8/300 or H8/500: Simulator. * simulator, Hitachi SH: Simulator. * simulator, Z8000: Simulator. * size of screen: Screen Size. * source: Command Files. * source path: Source Path. * sparc-stub.c: Remote Serial. * speed: Hitachi Boards. * st2000 CMD: ST2000 Remote. * ST2000 auxiliary commands: ST2000 Remote. * stack frame: Frames. * stack on MIPS: MIPS Stack. * stacking targets: Active Targets. * starting: Starting. * STDBUG commands (ST2000): ST2000 Remote. * step: Continuing and Stepping. * stepi: Continuing and Stepping. * stepping: Continuing and Stepping. * stopped threads: Thread Stops. * stub example, remote debugging: Protocol. * stupid questions: Messages/Warnings. * switching threads: Threads. * switching threads automatically: Threads. * symbol decoding style, C++: Print Settings. * symbol dump: Symbols. * symbol names: Symbols. * symbol overloading: Breakpoint Menus. * symbol table: Files. * symbol-file: Files. * symbols, reading immediately: Files. * target: Targets. * target amd-eb: Target Commands. * target core: Target Commands. * target e7000: Hitachi ICE. * target exec: Target Commands. * target hms: Target Commands. * target mips PORT: MIPS Remote. * target nindy: Target Commands. * target remote: Target Commands. * target sim: Target Commands. * target sim: Simulator. * target st2000: Target Commands. * target udi: Target Commands. * target vxworks: Target Commands. * tbreak: Set Breaks. * TCP port, target remote: Debug Session. * terminal: Input/Output. * this: Cplus expressions. * thread THREADNO: Threads. * thread breakpoints: Thread Stops. * thread identifier (GDB): Threads. * thread identifier (system): Threads. * thread number: Threads. * threads and watchpoints: Set Watchpoints. * threads of execution: Threads. * threads, automatic switching: Threads. * threads, continuing: Thread Stops. * threads, stopped: Thread Stops. * toggle-editing-mode: Readline Vi Mode. * tty: Input/Output. * type casting memory: Expressions. * type checking: Checks. * type conversions in C++: Cplus expressions. * u: Continuing and Stepping. * udi: UDI29K Remote. * UDI: UDI29K Remote. * undisplay: Auto Display. * unknown address, locating: Output Formats. * unset: Renamed Commands. * unset environment: Environment. * until: Continuing and Stepping. * up: Selection. * up-silently: Selection. * user-defined command: Define. * value history: Value History. * variable name conflict: Variables. * variable values, wrong: Variables. * variables, setting: Assignment. * version number: Help. * VxWorks: VxWorks Remote. * watch: Set Watchpoints. * watchpoints: Breakpoints. * watchpoints and threads: Set Watchpoints. * whatis: Symbols. * where: Backtrace. * wild pointer, interpreting: Print Settings. * word completion: Completion. * working directory: Source Path. * working directory (of your program): Working Directory. * working language: Languages. * writing into corefiles: Patching. * writing into executables: Patching. * wrong values: Variables. * x: Memory. * Z8000 simulator: Simulator. gdb-4.13/gdb/vx-share/ 777 34562 1752 0 5623250761 12754 5ustar fnfcygnusgdb-4.13/gdb/vx-share/README 666 34562 1752 566 5247504627 13710 0ustar fnfcygnusThe files in this directory are shared with Wind River Systems' VxWorks debug stub. This stub runs in the realtime system, as a process, and waits for net connections from GDB's and DBX's and such. Do not change these files without coordinating with Wind River Systems in Alameda, California. Talk to postmaster@wrs.com to find out who currently maintains GDB for them. gdb-4.13/gdb/vx-share/dbgRpcLib.h 666 34562 1752 1342 5271750254 15036 0ustar fnfcygnus/* Copyright 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. dbgRpcLib.h - header file for remote debugging via rpc */ /* modification history -------------------- 01b,04oct90,maf added VX_BOOT_FILE_INQ. 01a,05jun90,llk extracted from xdr_dbx.h. */ #ifndef INCdbxRpcLibh #define INCdbxRpcLibh 1 #define PROCESS_START 50 #define PROCESS_WAIT 51 #define VX_STATE_INQ 60 #define VX_LOAD 61 #define VX_SYMBOL_INQ 62 #define VX_BREAK_ADD 63 #define VX_BREAK_DELETE 64 #define VX_FP_INQUIRE 65 #define VX_TASK_SUSPEND 66 #define VX_CALL_FUNC 67 #define VX_CONV_FROM_68881 68 #define VX_CONV_TO_68881 69 #define VX_BOOT_FILE_INQ 70 #define VX_SOURCE_STEP 71 #endif INCdbxRpcLibh gdb-4.13/gdb/vx-share/ptrace.h 666 34562 1752 661 5311537762 14451 0ustar fnfcygnus/* Ptrace request codes implemented by the VxWorks remote debug protocol. These values match those used by SunOS in some old release. */ enum ptracereq { PTRACE_GETREGS = 12, PTRACE_GETFPREGS = 14, PTRACE_SETREGS = 13, PTRACE_SETFPREGS = 15, PTRACE_WRITEDATA = 17, PTRACE_READDATA = 16, PTRACE_SINGLESTEP = 9, PTRACE_CONT = 7, PTRACE_ATTACH = 10, PTRACE_DETACH = 11, PTRACE_KILL = 8 /* no trailing comma */ }; gdb-4.13/gdb/vx-share/vxTypes.h 666 34562 1752 3206 5271750255 14672 0ustar fnfcygnus/* vxTypes.h - VxWorks type definition header */ /* Copyright 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. */ /* modification history -------------------- 01c,05oct90,shl added copyright notice. made #endif ANSI style. 01b,10aug90,dnw added VOIDFUNCPTR 01a,29may90,del written. */ #ifndef INCvxTypesh #define INCvxTypesh /* The following stuff must NOT be included if this include file is used * from assembly language. Just #define ASMLANGUAGE before the include, * to get rid of it. */ #ifndef ASMLANGUAGE /* vxWorks types */ typedef char INT8; typedef short INT16; typedef int INT32; typedef unsigned char UINT8; typedef unsigned short UINT16; typedef unsigned int UINT32; typedef unsigned char UCHAR; typedef unsigned short USHORT; typedef unsigned int UINT; typedef unsigned long ULONG; typedef int BOOL; typedef int VOID; typedef int STATUS; typedef int ARGINT; typedef int (*FUNCPTR) (); /* ptr to function returning int */ typedef VOID (*VOIDFUNCPTR) (); /* ptr to function returning VOID */ /* historical definitions - now obsolete */ typedef char TINY; /* obsolete */ typedef char TBOOL; /* obsolete */ typedef unsigned char UTINY; /* obsolete */ /* architecture dependent typedefs */ #ifdef CPU_FAMILY #if CPU_FAMILY==MC680X0 typedef unsigned short INSTR; /* word-aligned instructions */ #endif /* CPU_FAMILY==MC680X0 */ #if CPU_FAMILY==SPARC typedef unsigned long INSTR; /* 32 bit word-aligned instructions */ #endif /* CPU_FAMILY==SPARC */ #endif #endif /* ASMLANGUAGE */ #endif /* INCvxTypesh */ gdb-4.13/gdb/vx-share/vxWorks.h 666 34562 1752 10611 5352432411 14700 0ustar fnfcygnus/* vxWorks.h - VxWorks standard definitions header */ /* Copyright 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. */ /* modification history -------------------- 01z,05oct90,shl added copyright notice. made #endif ANSI style. 01y,28sep90,del added I960 defines. 01x,29may90,del moved types to vxTypes.h 01w,09apr90,jcf added timeout definitions. 01v,24jan90,gae moved network configuration flags here from makefile's. 01u,01sep88,mcl definition of INSTR dependent on processor family; added SPARC. +gae added MC680X0 and defined CPU_FAMILY. 01t,08apr89,dnw added ifdef to prevent inclusion of vxWorks.h more than once. 01s,22jun88,dnw moved READ, WRITE, and UPDATE back here from ioLib.h. 01r,22apr88,gae oops! forgot some #endif's in 01q. 01q,12apr88,gae removed QUICK & WAIT; added STD_{IN,OUT,ERR}. fixed #define's of FALSE, TRUE, etc. moved READ, WRITE, and UPDATE to ioLib.h. 01p,04dec87,dnw added undefine of MC68000 to get around Green Hills bug that pre-defines MC68000. 01o,12nov87,ecs added type ULONG. 01n,08feb86,dnw added types INSTR, UINT, USHORT. 01m,14oct85,rdc added BUS types. 01l,16jul85,jlf added conditional for NULL and EOF. 01k,24jun85,rdc installed condtional compile so we can include in assembly language files. See instructions below. Added System type macro and CPU type macro. 01j,13jun85,dnw cleaned-up, removed more obsolete stuff to wrs.h 01i,11sep84,jlf changed name from wrs.h to vxWorks.h. removed GLOBAL. 01h,03jun84,dnw removed IGNORE declaration. 01g,09apr84,jlf added MEMBER_SIZE macro. 01f,14dec83,dnw added MSB, LSB macros 01e,17nov83,jlf added STATUS type, for routines which return a status. 01d,13jul83,dnw added NELEMENTS macro 01c,14May83,dnw added OFFSET macro 01b,17Feb83,dnw added stuff from Whitesmiths std.h 01a,15Feb83,dnw written */ #ifndef INCvxWorksh #define INCvxWorksh #if !defined(EOF) || (EOF!=(-1)) #define EOF (-1) #endif #if !defined(FALSE) || (FALSE!=0) #define FALSE 0 #endif #if !defined(TRUE) || (TRUE!=1) #define TRUE 1 #endif #define NONE (-1) /* for times when NULL won't do */ #define EOS '\0' /* C string terminator */ /* return status values */ #define OK 0 #define ERROR (-1) /* timeout defines */ #define NO_WAIT 0 #define WAIT_FOREVER (-1) /* low-level I/O input, output, error fd's */ #define STD_IN 0 #define STD_OUT 1 #define STD_ERR 2 /* modes - must match O_RDONLY/O_WRONLY/O_RDWR in ioLib.h! */ #define READ 0 #define WRITE 1 #define UPDATE 2 /* SYSTEM types */ #define V7 1 /* ATT version 7 */ #define SYS_V 2 /* ATT System 5 */ #define BSD_4_2 3 /* Berkeley BSD 4.2 */ /* CPU types */ /* The Green Hills compiler pre-defines "MC68000"!! */ #ifdef MC68000 #undef MC68000 #endif #define MC68000 1 #define MC68010 2 #define MC68020 3 #define MC68030 4 #define MC68040 5 #define MC680X0 9 #define SPARC 10 #ifndef I960 #define I960 20 #endif #define I960KB 21 #define I960CA 22 #if CPU==MC68000 || CPU==MC68010 || CPU==MC68020 || CPU==MC68030 #define CPU_FAMILY MC680X0 #endif /* CPU==MC68000 || CPU==MC68010 || CPU==MC68020 || CPU==MC68030 */ #if CPU==SPARC #define CPU_FAMILY SPARC #endif /* CPU==SPARC */ #if CPU==I960KB #define CPU_FAMILY I960 #endif /* CPU==I960KB */ #if CPU==I960CA #define CPU_FAMILY I960 #endif /* CPU==I960CA */ /* BUS types */ #define VME_BUS 1 #define MULTI_BUS 2 /* network configuration parameters */ #define INET /* include internet protocols */ #define BSD 43 /* BSD 4.3 -like OS */ #define BSDDEBUG /* turn on debug */ #define GATEWAY /* tables to be initialized for gateway routing */ /* common macros */ #define MSB(x) (((x) >> 8) & 0xff) /* most signif byte of 2-byte integer */ #define LSB(x) ((x) & 0xff) /* least signif byte of 2-byte integer*/ #define OFFSET(structure, member) /* byte offset of member in structure*/\ ((int) &(((structure *) 0) -> member)) #define MEMBER_SIZE(structure, member) /* size of a member of a structure */\ (sizeof (((structure *) 0) -> member)) #define NELEMENTS(array) /* number of elements in an array */ \ (sizeof (array) / sizeof ((array) [0])) #define FOREVER for (;;) /* storage class specifier definitions */ #define FAST register #define IMPORT extern #define LOCAL static /* include typedefs - must come after CPU_FAMILY definitions above */ #include "vxTypes.h" #endif /* INCvxWorksh */ gdb-4.13/gdb/vx-share/wait.h 666 34562 1752 2406 5271750257 14157 0ustar fnfcygnus/* wait.h - header file for remote wait call */ /* Copyright 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. */ /* modification history -------------------- 01a,05jun90,llk borrowed. */ /* Define how to access the structure that the wait system call stores. On many systems, there is a structure defined for this. But on vanilla-ish USG systems there is not. */ #ifndef HAVE_WAIT_STRUCT #define WAITTYPE int #define WIFSTOPPED(w) (((w)&0377) == 0177) #define WIFSIGNALED(w) (((w)&0377) != 0177 && ((w)&~0377) == 0) #define WIFEXITED(w) (((w)&0377) == 0) #define WRETCODE(w) ((w) >> 8) #define WSTOPSIG(w) ((w) >> 8) #define WCOREDUMP(w) (((w)&0200) != 0) #define WTERMSIG(w) ((w) & 0177) #define WSETEXIT(w, status) ((w) = (status)) #define WSETSTOP(w,sig) ((w) = (0177 | ((sig) << 8))) #else #if FALSE #ifndef ORIG /* don't include sys/wait.h */ #else ORIG #include #endif ORIG #endif FALSE #define WAITTYPE union wait #define WRETCODE(w) (w).w_retcode #define WSTOPSIG(w) (w).w_stopsig #define WCOREDUMP(w) (w).w_coredump #define WTERMSIG(w) (w).w_termsig #define WSETEXIT(w, status) ((w).w_status = (status)) #define WSETSTOP(w,sig) \ ((w).w_stopsig = (sig), (w).w_coredump = 0, (w).w_termsig = 0177) #endif gdb-4.13/gdb/vx-share/xdr_ld.c 666 34562 1752 3767 5351414473 14471 0ustar fnfcygnus/* xdr_ld.c - xdr routines for remote dbx interface to VxWorks */ /* Copyright 1984, 1985, 1986, 1987, 1988, 1989, 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. */ /* modification history -------------------- 01a,05jun90,llk extracted from xdr_dbx.c. */ /* DESCRIPTION This module contains the eXternal Data Representation (XDR) routines for object files that are downloaded to VxWorks. They are used by remote debuggers that use RPC (such as dbxWorks and vxGdb). */ #include "defs.h" #include "vxWorks.h" #include "rpc/rpc.h" #include "xdr_ld.h" /* forward declarations */ bool_t xdr_String(); /* xdr routine for argument list */ /******************************************************************************* * * xdr_String - xdr routine for strings. * * Used by xdr_arg_info to handle the actual argument * strings. normally calls xdr_string - but does something * reasonable encode of null pointer. */ bool_t xdr_String (xdrs, strp) XDR *xdrs; char **strp; { if ((*strp == NULL) & (xdrs->x_op == XDR_ENCODE)) return(FALSE); else return(xdr_string(xdrs, strp, MAXSTRLEN)); } /******************************************************************************* * * xdr_ldfile - xdr routine for a single element in the load table */ bool_t xdr_ldfile (xdrs, objp) XDR *xdrs; ldfile *objp; { if (! xdr_String(xdrs, &objp->name)) return(FALSE); if (! xdr_int(xdrs, &objp->txt_addr)) return(FALSE); if (! xdr_int(xdrs, &objp->data_addr)) return(FALSE); if (! xdr_int(xdrs, &objp->bss_addr)) return(FALSE); return(TRUE); } /******************************************************************************* * * xdr_ldtabl - * * xdr routine for a list of files and load addresses loaded into VxWorks. */ bool_t xdr_ldtabl (xdrs,objp) XDR *xdrs; ldtabl *objp; { return (xdr_array (xdrs, (char *) &objp->tbl_ent, (UINT *) &objp->tbl_size, MAXTBLSZ, sizeof(ldfile), xdr_ldfile)); } gdb-4.13/gdb/vx-share/xdr_ld.h 666 34562 1752 1434 5271750261 14462 0ustar fnfcygnus/* xdr_ld.h - xdr for additional dbxWorks structures */ /* Copyright 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. */ /* modification history -------------------- 01a,05jun90,llk extracted from xdr_dbx.h. */ #ifndef INCxdrldh #define INCxdrldh #define MAXSTRLEN 256 #define MAXTBLSZ 100 /* * structure used to pass back the information for a single file * loaded in VxWorks */ struct ldfile { char *name; int txt_addr; int data_addr; int bss_addr; }; typedef struct ldfile ldfile; /* * structure used to return a list of all files loaded over to * VxWorks. (VX_STATE_INQ return) */ struct ldtabl { u_int tbl_size; ldfile *tbl_ent; }; typedef struct ldtabl ldtabl; bool_t xdr_ldfile(); bool_t xdr_ldtabl(); #endif INCxdrldh gdb-4.13/gdb/vx-share/xdr_ptrace.c 666 34562 1752 5122 5351414474 15334 0ustar fnfcygnus/* xdr_ptrace.c - xdr routines for remote ptrace calls */ /* Copyright 1984, 1985, 1986, 1987, 1988, 1989, 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. */ /* modification history -------------------- 01b,25may91,maf now uses counted bytes struct to transfer registers. removed xdr_regs_ptr (), xdr_fp_status_ptr (), and xdr_fpa_regs_ptr (). 01a,05jun90,llk extracted from xdr_ptrace.h, version 01c. */ #include "defs.h" #include "vxWorks.h" #include #include "xdr_ptrace.h" #define MAX_LEN 32000 /******************************************************************** * * xdr_c_bytes - * * xdr routine for counted bytes * */ bool_t xdr_c_bytes(xdrs,objp) XDR *xdrs; C_bytes *objp; { return(xdr_bytes(xdrs, &objp->bytes, (u_int *) &objp->len, MAX_LEN)); } /* xdr_c_bytes */ /******************************************************************** * * xdr_c_bytes_ptr - * * xdr routine for counted bytes branch of ptrace_info * */ LOCAL bool_t xdr_c_bytes_ptr(xdrs,objp) XDR *xdrs; C_bytes **objp; { return(xdr_pointer(xdrs, (char **) objp, sizeof(C_bytes), xdr_c_bytes)); } /* xdr_c_bytes_ptr */ /******************************************************************** * * xdr_ptrace_info - * * xdr routine for discriminated union ptrace_info * */ bool_t xdr_ptrace_info(xdrs,objp) XDR *xdrs; Ptrace_info *objp; { static struct xdr_discrim choices[] = { { (int) DATA, xdr_c_bytes_ptr }, { __dontcare__, NULL } }; return(xdr_union(xdrs, (enum_t *) &objp->ttype, (char *) &objp->more_data, choices, xdr_void)); } /* xdr_ptrace_info */ /******************************************************************** * * xdr_rptrace - * * xdr routine for remote ptrace data into server * */ bool_t xdr_rptrace(xdrs,objp) XDR *xdrs; Rptrace *objp; { if (! xdr_int(xdrs, &objp->pid)) return(FALSE); if (! xdr_int(xdrs, &objp->data)) return(FALSE); if (! xdr_int(xdrs, &objp->addr)) return(FALSE); if (! xdr_ptrace_info(xdrs, &objp->info)) return(FALSE); return(TRUE); } /* xdr_rptrace */ /******************************************************************** * * xdr_ptrace_return - * * xdr routine for remote ptrace data returned by server * */ bool_t xdr_ptrace_return(xdrs, objp) XDR *xdrs; Ptrace_return *objp; { if (! xdr_int(xdrs, &objp->status)) return(FALSE); if (! xdr_int(xdrs, &objp->errno)) return(FALSE); if (! xdr_ptrace_info(xdrs, &objp->info)) return(FALSE); return(TRUE); } /* xdr_ptrace_return */ gdb-4.13/gdb/vx-share/xdr_ptrace.h 666 34562 1752 2705 5271750263 15345 0ustar fnfcygnus/* xdr_ptrace.h - xdr header for remote ptrace structures */ /* Copyright 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. */ /* modification history -------------------- 01b,25may91,maf now uses counted bytes struct to transfer registers; removed references to old xdr_regs functions. removed includes of "xdr_regs.h" and "reg.h". 01a,05jun90,llk extracted from xdr_ptrace.h. */ /* * Counted byte structure used by READ/WRITE TEXT/DATA * and GET/SET REGS/FPREGS */ struct c_bytes { u_int len; caddr_t bytes; }; typedef struct c_bytes C_bytes; /* * enum for discriminated union ptrace_info */ enum ptype { NOINFO = 0, /* no additional infomation */ DATA = 1 /* c_bytes */ }; typedef enum ptype ptype; /* * discrimnated union for passing additional data to be * written to the debugged process. */ struct ptrace_info { ptype ttype; caddr_t more_data; }; typedef struct ptrace_info Ptrace_info; /* * structure passed to server on all remote ptrace calls */ struct rptrace { int pid; int data; int addr; /* FIX! this really should be caddr_t or something */ Ptrace_info info; }; typedef struct rptrace Rptrace; /* * structure returned by server on all remote ptrace calls */ struct ptrace_return { int status; int errno; Ptrace_info info; }; typedef struct ptrace_return Ptrace_return; bool_t xdr_c_bytes(); bool_t xdr_ptrace_info(); bool_t xdr_rptrace(); bool_t xdr_ptrace_return(); gdb-4.13/gdb/vx-share/xdr_rdb.c 666 34562 1752 10513 5351414475 14646 0ustar fnfcygnus/* xdr_rdb.c - xdr routines for Remote Debug interface to VxWorks */ /* Copyright 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. */ /* modification history -------------------- 01a,21mar90,llk created using modification 01d of xdr_dbx.c. */ /* DESCRIPTION This module contains the eXternal Data Representation (XDR) routines for the RDB interface for VxWorks. */ #include "defs.h" #include "vxWorks.h" #include #include "xdr_rdb.h" /* forward declarations */ bool_t xdr_arg_type(xdrs, objp) XDR *xdrs; arg_type *objp; { if (!xdr_enum(xdrs, (enum_t *)objp)) { return (FALSE); } return (TRUE); } bool_t xdr_arg_value(xdrs, objp) XDR *xdrs; arg_value *objp; { if (!xdr_arg_type(xdrs, &objp->type)) { return (FALSE); } switch (objp->type) { case T_BYTE: if (!xdr_char(xdrs, &objp->arg_value_u.v_byte)) { return (FALSE); } break; case T_WORD: if (!xdr_short(xdrs, &objp->arg_value_u.v_word)) { return (FALSE); } break; case T_INT: if (!xdr_int(xdrs, &objp->arg_value_u.v_int)) { return (FALSE); } break; case T_FLOAT: if (!xdr_float(xdrs, &objp->arg_value_u.v_fp)) { return (FALSE); } break; case T_DOUBLE: if (!xdr_double(xdrs, &objp->arg_value_u.v_dp)) { return (FALSE); } break; case T_UNKNOWN: break; } return (TRUE); } bool_t xdr_func_call(xdrs, objp) XDR *xdrs; func_call *objp; { if (!xdr_int(xdrs, &objp->func_addr)) { return (FALSE); } if (!xdr_array(xdrs, (char **)&objp->args.args_val, (u_int *)&objp->args.args_len, MAX_FUNC_ARGS, sizeof(arg_value), xdr_arg_value)) { return (FALSE); } return (TRUE); } bool_t xdr_arg_one(xdrs, objp) XDR *xdrs; arg_one *objp; { if (!xdr_string(xdrs, objp, MAX_ARG_LEN)) { return (FALSE); } return (TRUE); } bool_t xdr_arg_array(xdrs, objp) XDR *xdrs; arg_array *objp; { if (!xdr_array(xdrs, (char **)&objp->arg_array_val, (u_int *)&objp->arg_array_len, MAX_ARG_CNT, sizeof(arg_one), xdr_arg_one)) { return (FALSE); } return (TRUE); } /********************************************************************* * * xdr_EVENT_TYPE - * */ bool_t xdr_EVENT_TYPE(xdrs, objp) XDR *xdrs; EVENT_TYPE *objp; { if (!xdr_enum (xdrs, (enum_t *) objp)) return (FALSE); return (TRUE); } /********************************************************************* * * xdr_RDB_EVENT - * */ bool_t xdr_RDB_EVENT (xdrs, objp) XDR *xdrs; RDB_EVENT *objp; { if (!xdr_int (xdrs, &objp->status)) return (FALSE); if (!xdr_int (xdrs, &objp->taskId)) return (FALSE); if (!xdr_EVENT_TYPE (xdrs, &objp->eventType)) return (FALSE); if (!xdr_int (xdrs, &objp->sigType)) return (FALSE); return (TRUE); } /********************************************************************* * * xdr_TASK_START - * */ bool_t xdr_TASK_START (xdrs, objp) XDR *xdrs; TASK_START *objp; { if (!xdr_int (xdrs, &objp->status)) return (FALSE); if (!xdr_int (xdrs, &objp->pid)) return (FALSE); return (TRUE); } /********************************************************************* * * xdr_SYMBOL_ADDR - * */ bool_t xdr_SYMBOL_ADDR (xdrs, objp) XDR *xdrs; SYMBOL_ADDR *objp; { if (!xdr_int (xdrs, &objp->status)) return (FALSE); if (!xdr_u_int (xdrs, &objp->addr)) return (FALSE); return (TRUE); } /********************************************************************* * * xdr_SOURCE_STEP - * */ bool_t xdr_SOURCE_STEP (xdrs, objp) XDR *xdrs; SOURCE_STEP *objp; { if (!xdr_int (xdrs, &objp->taskId)) return (FALSE); if (!xdr_u_int (xdrs, &objp->startAddr)) return (FALSE); if (!xdr_u_int (xdrs, &objp->endAddr)) return (FALSE); return (TRUE); } gdb-4.13/gdb/vx-share/xdr_rdb.h 666 34562 1752 5043 5271750265 14636 0ustar fnfcygnus/* xdr_rdb.h - xdr for additional rdb structures */ /* Copyright 1992 Free Software Foundation, Inc. This code was donated by Wind River Systems, Inc. */ /* modification history -------------------- 01c,25may91,maf rolled RDBVERS for VxGDB 1.0 version. 01b,12apr91,maf rolled RDBVERS. 01a,09jan91,maf created using v1a of xdr_rdb.h for 4.0.2 VxWorks 68k. added struct SOURCE_STEP. */ #ifndef INCxdrrdbh #define INCxdrrdbh enum arg_type { T_UNKNOWN = 0, T_BYTE = 1, T_WORD = 2, T_INT = 3, T_FLOAT = 4, T_DOUBLE = 5 }; typedef enum arg_type arg_type; bool_t xdr_arg_type(); struct arg_value { arg_type type; union { char v_byte; short v_word; int v_int; float v_fp; double v_dp; } arg_value_u; }; typedef struct arg_value arg_value; bool_t xdr_arg_value(); struct func_call { int func_addr; struct { u_int args_len; arg_value *args_val; } args; }; typedef struct func_call func_call; bool_t xdr_func_call(); typedef char *arg_one; bool_t xdr_arg_one(); typedef struct { u_int arg_array_len; arg_one *arg_array_val; } arg_array; bool_t xdr_arg_array(); /* * Structures used to pass structures required for * process control but not part of the standard ptrace interface */ /* * arg_info is used to pass arguments into process start */ struct arg_info { int rargc; char **rargv; }; typedef struct arg_info Arg_info; enum EVENT_TYPE { EVENT_BREAK = 0, EVENT_STOP = 1, EVENT_EXIT = 2, EVENT_BUS_ERR = 3, EVENT_SUSPEND = 4, EVENT_ZERO_DIV = 5, EVENT_SIGNAL = 6, EVENT_START = 7 }; typedef enum EVENT_TYPE EVENT_TYPE; struct RDB_EVENT { int status; int taskId; EVENT_TYPE eventType; int sigType; }; typedef struct RDB_EVENT RDB_EVENT; struct TASK_START { int status; int pid; }; typedef struct TASK_START TASK_START; struct SYMBOL_ADDR { int status; u_int addr; }; typedef struct SYMBOL_ADDR SYMBOL_ADDR; struct SOURCE_STEP { int taskId; u_int startAddr; u_int endAddr; }; typedef struct SOURCE_STEP SOURCE_STEP; #define MAX_ARG_CNT 10 #define MAX_FUNC_ARGS 100 #define MAX_ARG_LEN 100 bool_t xdr_arg_info(); bool_t xdr_EVENT_TYPE(); bool_t xdr_RDB_EVENT(); bool_t xdr_TASK_START(); bool_t xdr_SYMBOL_ADDR(); bool_t xdr_SOURCE_STEP(); #define RDBPROG (u_long) 0x44444444 #define RDBVERS (u_long) 3 #endif INCxdrrdbh gdb-4.13/gdb/refcard.ps 666 34562 1752 157161 5623251705 13323 0ustar fnfcygnus%!PS-Adobe-2.0 %%Creator: dvips 5.47 Copyright 1986-91 Radical Eye Software %%Title: refcard.dvi %%Pages: 2 1 %%BoundingBox: 0 0 612 792 %%EndComments %%BeginProcSet: tex.pro /TeXDict 200 dict def TeXDict begin /N /def load def /B{bind def}N /S /exch load def /X{S N}B /TR /translate load N /isls false N /vsize 10 N /@rigin{ isls{[0 1 -1 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale Resolution VResolution vsize neg mul TR matrix currentmatrix dup dup 4 get round 4 exch put dup dup 5 get round 5 exch put setmatrix}N /@letter{/vsize 10 N}B /@landscape{/isls true N /vsize -1 N}B /@a4{/vsize 10.6929133858 N}B /@a3{ /vsize 15.5531 N}B /@ledger{/vsize 16 N}B /@legal{/vsize 13 N}B /@manualfeed{ statusdict /manualfeed true put}B /@copies{/#copies X}B /FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{/sf 1 N /fntrx FMat N df-tail} B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{128 ch-data dup length 3 sub get sub}B /ch-yoff{ ch-data dup length 2 sub get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N /rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup /base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx 0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff .1 add]{ch-image} imagemask restore}B /D{/cc X dup type /stringtype ne{]}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin 0 0 moveto}N /eop{clear SI restore showpage userdict /eop-hook known{eop-hook}if}N /@start{userdict /start-hook known{start-hook}if /VResolution X /Resolution X 1000 div /DVImag X /IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for}N /p /show load N /RMat[1 0 0 -1 0 0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V statusdict begin /product where{pop product dup length 7 ge{0 7 getinterval(Display)eq}{pop false}ifelse}{false}ifelse end{{gsave TR -.1 -.1 TR 1 1 scale rulex ruley false RMat{BDot}imagemask grestore}}{{gsave TR -.1 -.1 TR rulex ruley scale 1 1 false RMat{BDot}imagemask grestore}}ifelse B /a{ moveto}B /delta 0 N /tail{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{ S p tail}B /c{-4 M}B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w }B /q{p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p a}B /bos{/SS save N}B /eos{clear SS restore}B end %%EndProcSet TeXDict begin 1000 300 300 @start /Fa 3 104 df<0003FE0000000FFF8000003C01E000 00F000780001C0001C00030000060006000003000C0000018018000000C018000000C030000000 603000000060600000003060000000306000000030C000000018C000000018C000000018C00000 0018C000000018C000000018C000000018C000000018C000000018600000003060000000306000 0000303000000060300000006018000000C018000000C00C000001800600000300030000060001 C0001C0000F0007800003C01E000000FFF80000003FE000025277E9D2A>13 D<003C00E001C00180038003800380038003800380038003800380038003800380038003000700 1C00F0001C00070003000380038003800380038003800380038003800380038003800380018001 C000E0003C0E297D9E15>102 DI E /Fb 1 59 df<60F0F06004047C830C>58 D E /Fc 61 125 df<01F8000604000C0E00180E001800001800 00180000FFFE001806001806001806001806001806001806001806001806001806001806001806 007E1F801114809313>12 D<01FE00060E000C0E00180600180600180600180600FFFE00180600 1806001806001806001806001806001806001806001806001806001806007E1F801114809313> I<4100E380618020802080208041004100820009097F9311>34 D<020002000F8032406220C210 C270C270E220F2007F003FC00FE002E002704230E230C2308220426022C01F00020002000C187E 9511>36 D<40E06020202040408003097D9309>39 D<01020408103020606040C0C0C0C0C0C0C0 C0C0C040606020301008040201081E7E950D>I<80402010080C04060602030303030303030303 03020606040C0810204080081E7E950D>I<006000006000006000006000006000006000006000 006000006000006000FFFFF0FFFFF0006000006000006000006000006000006000006000006000 00600000600014167E9119>43 D<40E06020202040408003097D8209>II<40 E04003037D8209>I<0010003000600060006000C000C000C00180018003000300030006000600 06000C000C000C0018001800300030003000600060006000C000C0000C1D7E9511>I<0F0030C0 606060604020C030C030C030C030C030C030C030C030C03040206060606030C00F000C137E9211 >I<0C001C00EC000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C00FF C00A137D9211>I<1F0060C06060F070F030603000700070006000C001C0018002000400081010 1020207FE0FFE00C137E9211>I<40E0400000000000000040E040030D7D8C09>58 D<40E0400000000000000040E06020202040408003137D8C09>I<003000003000007800007800 007800009C00009C00011E00010E00010E0002070002070004038007FF800403800801C00801C0 1000E03800E0FE07FC16147F9319>65 DI<00FC200703600C00E0180060300060700020600020E00000E00000E00000E00000 E00000E000006000207000203000201800400C008007030000FC0013147E9318>III<00FC200703600C00E0180060300060700020600020E00000E00000 E00000E00000E00FF8E000E06000E07000E03000E01800E00C00E007036000FC2015147E931A> 71 D76 DII<01 F800070E001C03803801C03000C07000E0600060E00070E00070E00070E00070E00070E0007070 00E07000E03000C03801C01C0380070E0001F80014147E9319>II82 D<7FFFF0607030407010407010807008807008807008007000007000007000007000 00700000700000700000700000700000700000700000700007FF0015147F9318>84 DI87 D89 D<208041004100820082 008200C300E380410009097A9311>92 D<7F00E1C0E0404060006007E038606060C060C064C064 61E43E380E0D7E8C11>97 DI<0FE0187020706020C000C000C000C000C00060 00201018200FC00C0D7F8C0F>I<00780018001800180018001800180F98187820386018C018C0 18C018C018C0186018203810580F9E0F147F9312>I<0F80104020206030C010FFF0C000C000C0 006000201018200FC00C0D7F8C0F>I<03C00CE018E01840180018001800FF0018001800180018 0018001800180018001800180018007F000B1480930A>I<0F3C30E62040606060606060204030 C02F00600060003FE03FF06018C00CC00CC00C601830300FC00F147F8C11>I I<2070200000000000F03030303030303030303030FC06157F9409>I<02070200000000000F03 0303030303030303030303030343E2E67C081B82940A>IIIII<0FC0186020106018C00CC00CC00CC00CC00C 6018601838700FC00E0D7F8C11>II<0F88184820386018C018C018C018C018C018 6018203818580F9800180018001800180018007E0F137F8C11>II<3E806180C080C080E0007E003F8003C080C0 80C0C0C0E1809F000A0D7F8C0D>I<10001000100030007000FF80300030003000300030003000 300030803080308011000E0009127F910D>IIIIIII124 D E /Fd 2 94 df91 D93 D E /Fe 27 123 df<001F8F000020D9800060990000C0300000C03000 00C0300000C0300007FFFE000180300001806000018060000180600001806000030060000300C0 000300C0000300C0000300C0000600C00006018000060180000601800004010000CCC30000C8C6 000070780000191A819315>11 D<000FF000301800601000600000C00000C00000C00007FFE000 C0600180600180C00180C00180C00180C00181800301900301900301900301A00300E006000006 0000060000C40000C80000700000151A819314>I45 D<000080000180000300000300000600000600000C000018000018000030000030000060000060 0000C0000180000180000300000300000600000C00000C00001800001800003000003000006000 00C00000C00000800000111D7E9512>47 D<07C03F8000C00C0001600800016008000120080001 300800023010000218100002181000020C1000040C200004042000040620000402200008034000 080340000801C0000801C00018008000FE00800019147E9319>78 D<07B00C7010703060606060 606060C0C0C0C8C0C841C862D03C700D0D7C8C12>97 D<7C000C00180018001800180030003700 388030C060C060C060C060C0C180C180C1004300660038000A147C9310>I<07800C4010603040 600060006000C000C0004020404021801E000B0D7C8C10>I<007C000C00180018001800180030 07B00C7010703060606060606060C0C0C0C8C0C841C862D03C700E147C9312>I<07800C401020 304060407F8060004000C0004020604021801E000B0D7C8C10>I<001C00660064006000C000C0 00C007F800C001800180018001800180030003000300030003000200060006000600C400C80070 000F1A81930B>I<01D8023804380C3018301830183030603060306010E019C00EC000C000C001 80C180C3007C000D137E8C10>I<3E0006000C000C000C000C00180019E01E3018303830303030 3030306060606460C460C4C0C8C0700E147D9312>I<02060000000000384C4C8C981818303262 62643807147D930B>I<7C0C181818183030303060606060C0D0D0D0D06006147C9309>108 D<30F878590D8C4E0E0C9C0E0C980C0C180C0C180C0C3018183018193018313018316030326030 1C180D7D8C1C>I<30F05B184C189C189818181818183030303230623062606460380F0D7D8C13> I<03800C6018203030603060306030C060C06040C0608023001E000C0D7C8C12>I<0C78168C13 0426062606060606060C0C0C0C0C080C101A2019C018001800300030003000FC000F137F8C12> I<31F05A184C109C009800180018003000300030003000600060000D0D7D8C0F>114 D<0700188018C0308038001E001F0003800180C180810082007C000A0D7D8C0E>I<04000C000C 000C001800FF8018001800300030003000300060006100610062006400380009127D910C>I<38 184C184C188C3098301830183030603064306430E411E80E380E0D7D8C12>I<38104C384C108C 10981018101810302030203040304018800F000D0D7D8C10>I<071E09E311C221802180018001 800300030403044308C51078E0100D7F8C10>120 D<38184C184C188C30983018301830306030 60306030E011C00EC000C000802180630046003C000D137D8C11>I<06100F2010E00040008001 0002000C00102020203840478083000C0D7E8C0E>I E /Ff 55 123 df<0100030003000F803F E073704338C338C338C31073007F003FC00FE003F003384318E318E318E33073603FC00F800300 030001000D1A7E9612>36 D<07001F8019C039C039C039C039BE3B3E3E701C701C701CE03EE06F E0E7C0E3C4E38E63CE7EFC3C380F147F9312>38 D<070007000700E738FFF87FF01FC01FC07FF0 FFF8E7380700070007000D0E7E9012>42 D<038003800380038003800380FFFEFFFEFFFE038003 8003800380038003800F0F7F9112>I<60F0F878183030E0C00509798312>II<60F0F0600404798312>I<0018003800380070007000E000E001C001C001C003800380 070007000E000E001C001C001C003800380070007000E000E000C0000D1A7E9612>I<07C00FE0 1C703838701C701CE00EE00EE00EE00EE00EE00EE00EE01E701C701C38381C700FE007C00F147F 9312>I<0F803FC070E0E070E038E038403800380030007000E000C00180030006000C00183830 387FF87FF80D147E9312>50 D<0FE03FF07838701C201C001C0038007807E007F00038001C000E 000E400EE00EE01C78383FF00FC00F147F9312>I55 D<60F0F06000000000000060F0F060040E798D12>58 D<0038007801F003E00F801F003C00F800 F000F8003C001F000F8003E001F0007800380D117E9212>60 DI<4000E000F0007C003E000F8007C001E000F8007800F801E007C00F 803E007C00F000E00040000D137E9312>I<03E007F01E18381C30FC71FE739EE30EE70EE70EE7 0EE70EE30C739C71F830F038001E0E07FE03F80F147F9312>64 D<03E60FFE1C3E381E700E700E 600EE000E000E000E000E000E000600E700E700E381C1C380FF003E00F147F9312>67 D69 DI73 D77 DI<3FE07FF07070E038E038E038E038E038E038E038E038E038E038E038E038 E038E03870707FF03FE00D147E9312>II82 D<1F303FF070F0E070E070E070E00070007F003FC00FE000F0003800386038E038E030F070FFE0 CF800D147E9312>I<7FFEFFFEE38EE38EE38E0380038003800380038003800380038003800380 0380038003801FF01FF00F147F9312>II<3F807FC070E0207000700FF03FF07870E070E070E07070F03FFE1F3E0F0E7E8D12> 97 DI<07F01FF8383870106000E000E000E000E0006000703838381FF007E0 0D0E7E8D12>I<00F800F8003800380038003807B81FF8387870386038E038E038E038E0386038 707838781FFE0FBE0F147F9312>I<07801FE0387070706038E038FFF8FFF8E000600070383838 1FF007C00D0E7E8D12>I<007E00FF01C70382038003807FFEFFFE038003800380038003800380 03800380038003803FF83FF81014809312>I<0F9E1FFF38E7707070707070707038E03FC03F80 70003FE03FF83FFC701EE00EE00EE00E600C783C1FF00FE010167F8D12>II< 06000F000F000600000000000000FF00FF000700070007000700070007000700070007000700FF F0FFF00C157D9412>I<00C001E001E000C00000000000001FE01FE000E000E000E000E000E000 E000E000E000E000E000E000E000E000E000E040C0E1C0FF807E000B1C7E9412>IIIII<0F803FE038E07070E038E038E038E038E038F0787070 38E03FE00F800D0E7E8D12>II<079C1FFC387C703C601CE01CE01CE01C E01C601C703C387C1FFC079C001C001C001C001C001C007F007F10157F8D12>II<1FF03FF06070C070E000 7F003FE00FF000786018E018F030FFE0DFC00D0E7E8D12>I<06000E000E000E007FF8FFF80E00 0E000E000E000E000E000E000E380E380E3807F003C00D127F9112>IIII<7C7C7C7C1CF00EE00FC007C00380078007C00EE01EF0 1C70FC7EFC7E0F0E7F8D12>II<3FFC7FFC7038707000E001C003800700 0E001C1C381C701CFFFCFFFC0E0E7F8D12>I E /Fg 35 122 df<00038000000380000007C000 0007C0000007C000000FE000000FE000001FF000001BF000001BF0000031F8000031F8000061FC 000060FC0000E0FE0000C07E0000C07E0001803F0001FFFF0003FFFF8003001F8003001F800600 0FC006000FC00E000FE00C0007E0FFC07FFEFFC07FFE1F1C7E9B24>65 DI<001FE02000FFF8 E003F80FE007C003E00F8001E01F0000E03E0000E03E0000607E0000607C000060FC000000FC00 0000FC000000FC000000FC000000FC000000FC000000FC0000007C0000607E0000603E0000603E 0000C01F0000C00F80018007C0030003F80E0000FFFC00001FE0001B1C7D9B22>III I<000FF008007FFE3801FC07F807E001F80F8000781F0000783F0000383E0000387E0000187C00 0018FC000000FC000000FC000000FC000000FC000000FC000000FC007FFFFC007FFF7C0001F87E 0001F83E0001F83F0001F81F0001F80F8001F807E001F801FC07F8007FFE78000FF818201C7D9B 26>II76 D78 D80 D<07F8201FFEE03C07E07801E07000 E0F000E0F00060F00060F80000FE0000FFE0007FFE003FFF003FFF800FFFC007FFE0007FE00003 F00001F00000F0C000F0C000F0C000E0E000E0F001C0FC03C0EFFF0083FC00141C7D9B1B>83 D<7FFFFFE07FFFFFE0781F81E0701F80E0601F8060E01F8070C01F8030C01F8030C01F8030C01F 8030001F8000001F8000001F8000001F8000001F8000001F8000001F8000001F8000001F800000 1F8000001F8000001F8000001F8000001F8000001F8000001F800007FFFE0007FFFE001C1C7E9B 21>II87 D<0FF8001C1E003E0F803E07803E07 C01C07C00007C0007FC007E7C01F07C03C07C07C07C0F807C0F807C0F807C0780BC03E13F80FE1 F815127F9117>97 DI<03FC000E0E001C1F003C1F00781F 00780E00F80000F80000F80000F80000F80000F800007800007801803C01801C03000E0E0003F8 0011127E9115>I<000FF0000FF00001F00001F00001F00001F00001F00001F00001F00001F000 01F001F9F00F07F01C03F03C01F07801F07801F0F801F0F801F0F801F0F801F0F801F0F801F078 01F07801F03C01F01C03F00F0FFE03F9FE171D7E9C1B>I<01FC000F07001C03803C01C07801C0 7801E0F801E0F801E0FFFFE0F80000F80000F800007800007C00603C00601E00C00F038001FC00 13127F9116>I<03F8F00E0F381E0F381C07303C07803C07803C07803C07801C07001E0F000E0E 001BF8001000001800001800001FFF001FFFC00FFFE01FFFF07801F8F00078F00078F000787000 707800F01E03C007FF00151B7F9118>103 DI<1E003F00 3F003F003F001E00000000000000000000000000FF00FF001F001F001F001F001F001F001F001F 001F001F001F001F001F001F00FFE0FFE00B1E7F9D0E>I 107 DIII<01FC000F07801C01 C03C01E07800F07800F0F800F8F800F8F800F8F800F8F800F8F800F87800F07800F03C01E01E03 C00F078001FC0015127F9118>II114 D<1FD830786018E018E018F000FF807FE07FF01FF807FC007CC01CC01CE01CE018F8 30CFC00E127E9113>I<0300030003000300070007000F000F003FFCFFFC1F001F001F001F001F 001F001F001F001F001F0C1F0C1F0C1F0C0F08079803F00E1A7F9913>II120 DI E /Fh 47 122 df<020408103020604040C0C0C0C0C0C0C0C0404060203010 080402071A7F920C>40 D<8040201018080C0404060606060606060604040C081810204080071A 7E920C>I<40E060202040408003087E8209>44 D<40E04003037E8209>46 D<0C003C00CC000C000C000C000C000C000C000C000C000C000C000C000C00FF8009107E8F0F> 49 D<1F00618040C08060C0600060006000C00180030006000C00102020207FC0FFC00B107F8F 0F>I<1F00218060C060C000C0008001800F00008000400060C060C060804060801F000B107F8F 0F>I<0300030007000F000B001300330023004300C300FFE003000300030003001FE00B107F8F 0F>I<1F00318060C0C040C060C060C06040E021E01E600060004060C0608043003E000B107F8F 0F>57 D<40E040000000000040E060202040408003107E8A09>59 D<03E0000C180010040023C2 004631004C0D00980C80980C80980C80980C80980C804C0C80463C8023C7001000000C038003FC 0011117E9017>64 D66 D<03F10C0B1807300360014001C000C000C000C000C0004001600130 0218020C0C03F010117E9016>II70 D<03F1000C0B00180700300300600100400100C00000C00000C00000C03FC0C003004003006003 003003001803000C070003F90012117E9017>I73 D76 D78 D80 D82 D<1F2060E0006080208020800060003E001F80 00C00060002080208020C040E0C09F000B117E9011>I<7FFF8060C18040C080C0C0C080C04080 C04000C00000C00000C00000C00000C00000C00000C00000C00000C00000C0000FFC0012117F90 16>III<3E006300018001800F8031804180C190C19063903DE00C0B7F8A0F>97 DI<1F8030C06000C000C000C000C000C000604030801F000A0B7F8A0E>I<01E0006000600060 006000600F6030E06060C060C060C060C060C060606030E01F780D117F9011>I<1F00318060C0 C0C0FFC0C000C000C000604030801F000A0B7F8A0E>I<07000D801800180018001800FE001800 180018001800180018001800180018007E00091180900A>I<1EF0331061806180618033003E00 400060003F803FC060E0C060C060C06060C01F000C117F8A0F>II<30703000000000F03030 30303030303030FC0612809108>I107 DIII<1F00318060C0 C060C060C060C060C06060C031801F000B0B7F8A0F>II114 D<3E028280783E038181C2BC080B7F8A0C>I<10103030FE3030 303030323232321C070F7F8E0C>IIII121 D E /Fi 12 86 df66 D<0003FE0080001FFF818000FF01E38001F8003F8003E0001F8007C0000F800F800007801F8000 07803F000003803F000003807F000001807E000001807E00000180FE00000000FE00000000FE00 000000FE00000000FE00000000FE00000000FE00000000FE000000007E000000007E000001807F 000001803F000001803F000003801F800003000F8000030007C000060003F0000C0001F8003800 00FF00F000001FFFC0000003FE000021227DA128>IIII<0003FE0040001FFFC0C0007F00F1C001F8003FC003F0 000FC007C00007C00FC00003C01F800003C03F000001C03F000001C07F000000C07E000000C07E 000000C0FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000 FE000FFFFC7E000FFFFC7F00001FC07F00001FC03F00001FC03F00001FC01F80001FC00FC0001F C007E0001FC003F0001FC001FC003FC0007F80E7C0001FFFC3C00003FF00C026227DA12C>I73 D75 D78 D<0007FC0000003FFF800000FC07E00003F001F80007E000FC000FC0007E001F8000 3F001F80003F003F00001F803F00001F807F00001FC07E00000FC07E00000FC0FE00000FE0FE00 000FE0FE00000FE0FE00000FE0FE00000FE0FE00000FE0FE00000FE0FE00000FE0FE00000FE07E 00000FC07F00001FC07F00001FC03F00001F803F81F03F801F83F83F000FC70C7E0007E606FC00 03F607F80000FF07E000003FFF80000007FF80200000038020000001C020000001E0E0000001FF E0000001FFC0000000FFC0000000FFC00000007F800000007F000000001E00232C7DA12A>81 DI85 D E end %%EndProlog %%BeginSetup %%Feature: *Resolution 300 TeXDict begin @landscape %%EndSetup %%Page: 1 1 bop -225 -183 a Fi(GDB)14 b(QUICK)g(REFERENCE)22 b Fh(GDB)14 b(V)n(ersion)h(4)-225 -91 y Fg(Essen)o(tial)c(Commands)-225 -45 y Ff(gdb)i Fe(pr)n(o)n(gr)n(am)f Fd([)p Fe(c)n(or)n(e)p Fd(])24 b Fc(debug)14 b Fe(pr)n(o)n(gr)n(am)e Fd([)p Fc(using)i(coredump)g Fe(c)n(or)n(e)p Fd(])-225 9 y Ff(b)f Fd([)p Fe(\014le)p Ff(:)p Fd(])p Fe(function)68 b Fc(set)13 b(breakp)q(oin)o(t)i(at)e Fe(function)g Fd([)p Fc(in)h Fe(\014le)p Fd(])-225 63 y Ff(run)f Fd([)p Fe(ar)n(glist)p Fd(])126 b Fc(start)13 b(y)o(our)h(program)f Fd([)p Fc(with)h Fe(ar)n(glist)p Fd(])-225 106 y Ff(bt)274 b Fc(bac)o(ktrace:)20 b(displa)o(y)c(program)d(stac)o(k)-225 143 y Ff(p)g Fe(expr)214 b Fc(displa)o(y)15 b(the)f(v)n(alue)h(of)e(an)h (expression)-225 180 y Ff(c)292 b Fc(con)o(tin)o(ue)14 b(running)h(y)o(our)f (program)-225 218 y Ff(n)292 b Fc(next)14 b(line,)h(stepping)g(o)o(v)o(er)f (function)g(calls)-225 255 y Ff(s)292 b Fc(next)14 b(line,)h(stepping)g(in)o (to)f(function)h(calls)-225 352 y Fg(Starting)c(GDB)-225 398 y Ff(gdb)256 b Fc(start)13 b(GDB,)h(with)g(no)g(debugging)g(\014les)-225 435 y Ff(gdb)f Fe(pr)n(o)n(gr)n(am)121 b Fc(b)q(egin)14 b(debugging)g Fe(pr)n(o)n(gr)n(am)-225 472 y Ff(gdb)f Fe(pr)n(o)n(gr)n(am)f(c)n(or)n(e)48 b Fc(debug)14 b(coredump)g Fe(c)n(or)n(e)f Fc(pro)q(duced)h(b)o(y)105 510 y Fe(pr)n(o)n(gr)n(am)-225 548 y Ff(gdb)f(--help)135 b Fc(describ)q(e)14 b(command)g(line)g(options)-225 647 y Fg(Stopping)c(GDB) -225 692 y Ff(quit)238 b Fc(exit)14 b(GDB;)g(also)g Ff(q)f Fc(or)g Ff(EOF)g Fc(\(eg)g Ff(C-d)p Fc(\))-225 734 y Ff(INTERRUPT)148 b Fc(\(eg)13 b Ff(C-c)p Fc(\))g(terminate)g(curren)o(t)h(command,)h(or)105 771 y(send)g(to)e(running)i(pro)q(cess)-225 868 y Fg(Getting)c(Help)-225 914 y Ff(help)238 b Fc(list)14 b(classes)g(of)g(commands)-225 951 y Ff(help)e Fe(class)155 b Fc(one-line)14 b(descriptions)h(for)f (commands)g(in)105 988 y Fe(class)-225 1021 y Ff(help)e Fe(c)n(ommand)83 b Fc(describ)q(e)14 b Fe(c)n(ommand)-225 1119 y Fg(Executing)e(y)o(our)h (Program)-225 1165 y Ff(run)g Fe(ar)n(glist)150 b Fc(start)13 b(y)o(our)h(program)f(with)i Fe(ar)n(glist)-225 1203 y Ff(run)256 b Fc(start)13 b(y)o(our)h(program)f(with)i(curren)o(t)f(argumen)o(t)105 1240 y(list)-225 1273 y Ff(run)f Fb(:)7 b(:)g(:)12 b Ff(<)p Fe(inf)h Ff(>)p Fe(outf)32 b Fc(start)13 b(y)o(our)h(program)f(with)i(input,) g(output)105 1310 y(redirected)-225 1360 y Ff(kill)238 b Fc(kill)15 b(running)g(program)-225 1434 y Ff(tty)e Fe(dev)193 b Fc(use)14 b Fe(dev)f Fc(as)g(stdin)i(and)f(stdout)g(for)g(next)g Ff(run)-225 1472 y(set)f(args)f Fe(ar)n(glist)66 b Fc(sp)q(ecify)15 b Fe(ar)n(glist)d Fc(for)i(next)g Ff(run)-225 1509 y(set)f(args)171 b Fc(sp)q(ecify)15 b(empt)o(y)f(argumen)o(t)g(list)-225 1546 y Ff(show)e(args)154 b Fc(displa)o(y)15 b(argumen)o(t)f(list)-225 1621 y Ff(show)e(env)172 b Fc(sho)o(w)13 b(all)i(en)o(vironmen)o(t)g(v)n(ariables)-225 1659 y Ff(show)d(env)h Fe(var)110 b Fc(sho)o(w)13 b(v)n(alue)i(of)f(en)o (vironmen)o(t)h(v)n(ariable)f Fe(var)-225 1696 y Ff(set)f(env)g Fe(var)f(string)28 b Fc(set)13 b(en)o(vironmen)o(t)j(v)n(ariable)e Fe(var)-225 1733 y Ff(unset)e(env)h Fe(var)92 b Fc(remo)o(v)o(e)13 b Fe(var)g Fc(from)h(en)o(vironmen)o(t)-225 1820 y Fg(Shell)d(Commands)-225 1866 y Ff(cd)i Fe(dir)217 b Fc(c)o(hange)13 b(w)o(orking)h(directory)g(to)f Fe(dir)-225 1903 y Ff(pwd)256 b Fc(Prin)o(t)15 b(w)o(orking)e(directory)-225 1941 y Ff(make)f Fb(:)7 b(:)g(:)176 b Fc(call)14 b(\\)p Ff(make)p Fc(")-225 1978 y Ff(shell)e Fe(cmd)146 b Fc(execute)13 b(arbitrary)h(shell)h (command)f(string)-225 2100 y Fd([)f(])h Fh(surround)f(optional)j(argumen)o (ts)45 b Fb(:)7 b(:)g(:)13 b Fh(sho)o(w)h(one)f(or)h(more)f(argumen)o(ts)-258 2174 y(c)-272 2175 y Fa(\015)p Fh(1991,)h(1992,)h(1993)g(F)n(ree)d(Soft)o(w)o (are)h(F)n(oundation,)h(Inc.)60 b(P)o(ermissions)15 b(on)f(bac)o(k)p 800 -217 1 9 v 800 2175 V 875 -183 a Fg(Breakp)q(oin)o(ts)d(and)j(W)l(atc)o (hp)q(oin)o(ts)875 -132 y Ff(break)e Fd([)p Fe(\014le)p Ff(:)p Fd(])p Fe(line)875 -86 y Ff(b)i Fd([)p Fe(\014le)p Ff(:)p Fd(])p Fe(line)1185 -132 y Fc(set)g(breakp)q(oin)o(t)g(at)f Fe(line)h Fc(n)o(um)o(b)q(er)h Fd([)p Fc(in)f Fe(\014le)p Fd(])1185 -94 y Fc(eg:)33 b Ff(break)12 b(main.c:37)875 -32 y(break)g Fd([)p Fe(\014le)p Ff(:)p Fd(])p Fe(func)57 b Fc(set)14 b(breakp)q(oin)o(t)g(at)f Fe(func)h Fd([)p Fc(in)g Fe(\014le)p Fd(])875 11 y Ff(break)e(+)p Fe(o\013set)875 48 y Ff(break)g(-)p Fe(o\013set)1185 11 y Fc(set)i(break)f (at)h Fe(o\013set)f Fc(lines)i(from)f(curren)o(t)g(stop)875 87 y Ff(break)e(*)p Fe(addr)121 b Fc(set)14 b(breakp)q(oin)o(t)g(at)f (address)h Fe(addr)875 124 y Ff(break)220 b Fc(set)14 b(breakp)q(oin)o(t)g (at)f(next)i(instruction)875 161 y Ff(break)d Fb(:)7 b(:)g(:)12 b Ff(if)i Fe(expr)31 b Fc(break)14 b(conditionally)h(on)f(nonzero)f Fe(expr)875 211 y Ff(cond)g Fe(n)h Fd([)p Fe(expr)p Fd(])103 b Fc(new)13 b(conditional)i(expression)g(on)e(breakp)q(oin)o(t)1206 248 y Fe(n)p Fc(;)h(mak)o(e)g(unconditional)h(if)g(no)e Fe(expr)875 286 y Ff(tbreak)f Fb(:)7 b(:)g(:)140 b Fc(temp)q(orary)13 b(break;)i(disable) f(when)g(reac)o(hed)875 324 y Ff(rbreak)e Fe(r)n(e)n(gex)115 b Fc(break)14 b(on)f(all)i(functions)g(matc)o(hing)f Fe(r)n(e)n(gex)875 361 y Ff(watch)e Fe(expr)143 b Fc(set)14 b(a)f(w)o(atc)o(hp)q(oin)o(t)h(for)f (expression)i Fe(expr)875 398 y Ff(catch)d Fe(x)192 b Fc(break)14 b(at)f(C++)i(handler)f(for)g(exception)g Fe(x)875 473 y Ff(info)f(break)135 b Fc(sho)o(w)13 b(de\014ned)i(breakp)q(oin)o(ts)875 511 y Ff(info)e(watch)135 b Fc(sho)o(w)13 b(de\014ned)i(w)o(atc)o(hp)q(oin)o(ts)875 585 y Ff(clear)220 b Fc(delete)14 b(breakp)q(oin)o(ts)g(at)g(next)g(instruction) 875 635 y Ff(clear)e Fd([)p Fe(\014le)p Ff(:)p Fd(])p Fe(fun)73 b Fc(delete)14 b(breakp)q(oin)o(ts)g(at)g(en)o(try)g(to)f Fe(fun)p Fc(\(\))875 688 y Ff(clear)f Fd([)p Fe(\014le)p Ff(:)p Fd(])p Fe(line)66 b Fc(delete)14 b(breakp)q(oin)o(ts)g(on)g(source)f(line)875 742 y Ff(delete)f Fd([)p Fe(n)p Fd(])147 b Fc(delete)14 b(breakp)q(oin)o(ts)g Fd([)p Fc(or)f(breakp)q(oin)o(t)i Fe(n)p Fd(])875 823 y Ff(disable)c Fd([)p Fe(n)p Fd(])130 b Fc(disable)15 b(breakp)q(oin)o(ts)f Fd([)p Fc(or)f(breakp)q(oin)o(t)i Fe(n)p Fd(])875 877 y Ff(enable)d Fd([)p Fe(n)p Fd(])147 b Fc(enable)14 b(breakp)q(oin)o(ts)g Fd([)p Fc(or)f(breakp)q(oin)o(t)i Fe(n)p Fd(])875 931 y Ff(enable)d(once)g Fd([)p Fe(n)p Fd(])63 b Fc(enable)14 b(breakp)q(oin)o(ts)g Fd([)p Fc(or)f(breakp)q(oin)o(t)i Fe(n)p Fd(])p Fc(;)1206 969 y(disable)f(again)g(when)f(reac)o(hed)875 1018 y Ff(enable)f(del)h Fd([)p Fe(n)p Fd(])80 b Fc(enable)14 b(breakp)q(oin)o(ts)g Fd([)p Fc(or)f(breakp)q(oin)o(t)i Fe(n)p Fd(])p Fc(;)1206 1055 y(delete)e(when)h(reac)o(hed)875 1105 y Ff(ignore)e Fe(n)i(c)n(ount)76 b Fc(ignore)13 b(breakp)q(oin)o(t)i Fe(n)p Fc(,)f Fe(c)n(ount)g Fc(times)875 1180 y Ff(commands)d Fe(n)946 1217 y Fd([)p Ff(silent)p Fd(])946 1255 y Fe(c)n(ommand-list)1185 1180 y Fc(execute)i(GDB)h Fe(c)n(ommand-list)e Fc(ev)o(ery)j(time)1206 1217 y(breakp)q(oin)o(t)f Fe(n)g Fc(is)g(reac)o(hed.)21 b Fd([)p Ff(silent)1206 1263 y Fc(suppresses)14 b(default)h(displa)o(y)p Fd(])875 1306 y Ff(end)256 b Fc(end)14 b(of)g Fe(c)n(ommand-list)875 1393 y Fg(Program)f(Stac)o(k)875 1445 y Ff(backtrace)e Fd([)p Fe(n)p Fd(])875 1490 y Ff(bt)i Fd([)p Fe(n)p Fd(])1185 1445 y Fc(prin)o(t)i(trace)e (of)g(all)h(frames)g(in)h(stac)o(k;)f(or)f(of)h Fe(n)1206 1482 y Fc(frames|innermost)g(if)h Fe(n)p Ff(>0)p Fc(,)e(outermost)h(if)1206 1519 y Fe(n)p Ff(<0)875 1563 y(frame)e Fd([)p Fe(n)p Fd(])165 b Fc(select)13 b(frame)h(n)o(um)o(b)q(er)h Fe(n)f Fc(or)f(frame)h(at)g (address)1206 1600 y Fe(n)p Fc(;)g(if)h(no)e Fe(n)p Fc(,)i(displa)o(y)g (curren)o(t)f(frame)875 1639 y Ff(up)f Fe(n)242 b Fc(select)13 b(frame)h Fe(n)g Fc(frames)g(up)875 1676 y Ff(down)f Fe(n)206 b Fc(select)13 b(frame)h Fe(n)g Fc(frames)g(do)o(wn)875 1720 y Ff(info)f(frame)f Fd([)p Fe(addr)p Fd(])30 b Fc(describ)q(e)14 b(selected)g(frame,)g(or)f(frame)h(at)f Fe(addr)875 1763 y Ff(info)g(args)153 b Fc(argumen)o(ts)14 b(of)f(selected)h(frame)875 1800 y Ff(info)f(locals)117 b Fc(lo)q(cal)13 b(v)n(ariables)i(of)e(selected)h (frame)875 1844 y Ff(info)f(reg)f Fd([)p Fe(rn)p Fd(])p Fb(:)7 b(:)g(:)875 1889 y Ff(info)13 b(all-reg)e Fd([)p Fe(rn)p Fd(])1185 1844 y Fc(register)i(v)n(alues)i Fd([)p Fc(for)e(regs)g Fe(rn)s Fd(])g Fc(in)h(selected)1206 1881 y(frame;)g Ff(all-reg)d Fc(includes)k (\015oating)e(p)q(oin)o(t)875 1933 y Ff(info)g(catch)135 b Fc(exception)14 b(handlers)h(activ)o(e)e(in)i(selected)f(frame)p 1900 -217 V 1900 2175 V 1975 -183 a Fg(Execution)f(Con)o(trol)1975 -138 y Ff(continue)e Fd([)p Fe(c)n(ount)p Fd(])1975 -92 y Ff(c)j Fd([)p Fe(c)n(ount)p Fd(])2285 -138 y Fc(con)o(tin)o(ue)g(running;)i(if)e Fe(c)n(ount)g Fc(sp)q(eci\014ed,)g(ignore)2306 -100 y(this)g(breakp)q(oin)o (t)h(next)f Fe(c)n(ount)g Fc(times)1975 -26 y Ff(step)f Fd([)p Fe(c)n(ount)p Fd(])1975 20 y Ff(s)h Fd([)p Fe(c)n(ount)p Fd(])2285 -26 y Fc(execute)g(un)o(til)h(another)e(line)i(reac)o(hed;)f(rep)q(eat)2306 12 y Fe(c)n(ount)f Fc(times)i(if)f(sp)q(eci\014ed)1975 74 y Ff(stepi)e Fd([)p Fe(c)n(ount)p Fd(])1975 120 y Ff(si)h Fd([)p Fe(c)n(ount)p Fd(])2285 74 y Fc(step)h(b)o(y)h(mac)o(hine)f(instructions)h (rather)f(than)2306 111 y(source)f(lines)1975 186 y Ff(next)g Fd([)p Fe(c)n(ount)p Fd(])1975 232 y Ff(n)h Fd([)p Fe(c)n(ount)p Fd(])2285 186 y Fc(execute)g(next)g(line,)h(including)h(an)o(y)e(function) 2306 223 y(calls)1975 286 y Ff(nexti)e Fd([)p Fe(c)n(ount)p Fd(])1975 331 y Ff(ni)h Fd([)p Fe(c)n(ount)p Fd(])2285 286 y Fc(next)h(mac)o(hine)h(instruction)g(rather)e(than)2306 323 y(source)g(line)1975 398 y Ff(until)f Fd([)p Fe(lo)n(c)n(ation)p Fd(])67 b Fc(run)14 b(un)o(til)i(next)e(instruction)h(\(or)e Fe(lo)n(c)n(ation)p Fc(\))1975 441 y Ff(finish)202 b Fc(run)14 b(un)o(til)i(selected)e(stac)o(k)f(frame)h(returns)1975 484 y Ff(return)e Fd([)p Fe(expr)p Fd(])101 b Fc(p)q(op)14 b(selected)g(stac)o(k) f(frame)h(without)2306 522 y(executing)g Fd([)p Fc(setting)f(return)i(v)n (alue)p Fd(])1975 566 y Ff(signal)d Fe(num)125 b Fc(resume)14 b(execution)g(with)g(signal)h Fe(s)f Fc(\(none)f(if)i Ff(0)p Fc(\))1975 604 y Ff(jump)e Fe(line)1975 641 y Ff(jump)g(*)p Fe(addr)n(ess)2285 604 y Fc(resume)h(execution)g(at)g(sp)q(eci\014ed)g Fe(line)f Fc(n)o(um)o(b)q(er)2306 641 y(or)g Fe(addr)n(ess)1975 681 y Ff(set)g(var=)p Fe(expr)106 b Fc(ev)n(aluate)14 b Fe(expr)e Fc(without)i(displa)o(ying)i(it;)f(use)2306 718 y(for)e(altering)h(program)f (v)n(ariables)1975 815 y Fg(Displa)o(y)1975 867 y Ff(print)f Fd([)p Ff(/)p Fe(f)6 b Fd(])13 b([)p Fe(expr)p Fd(])1975 913 y Ff(p)h Fd([)p Ff(/)p Fe(f)5 b Fd(])13 b([)p Fe(expr)p Fd(])2285 867 y Fc(sho)o(w)h(v)n(alue)g(of)g Fe(expr)e Fd([)p Fc(or)h(last)h(v)n(alue)h Ff($)p Fd(])2306 904 y Fc(according)e(to)g(format)h Fe(f)p Fc(:)2046 956 y Ff(x)221 b Fc(hexadecimal)2046 993 y Ff(d)g Fc(signed)14 b(decimal)2046 1030 y Ff(u)221 b Fc(unsigned)15 b(decimal)2046 1068 y Ff(o)221 b Fc(o)q(ctal)2046 1105 y Ff(t)g Fc(binary)2046 1142 y Ff(a)g Fc(address,)14 b(absolute)g(and)g(relativ)o(e) 2046 1180 y Ff(c)221 b Fc(c)o(haracter)2046 1217 y Ff(f)g Fc(\015oating)13 b(p)q(oin)o(t)1975 1266 y Ff(call)g Fd([)p Ff(/)p Fe(f)5 b Fd(])13 b Fe(expr)89 b Fc(lik)o(e)15 b Ff(print)d Fc(but)i(do)q(es)g(not)g (displa)o(y)h Ff(void)1975 1320 y(x)f Fd([)p Ff(/)p Fe(Nuf)5 b Fd(])14 b Fe(expr)98 b Fc(examine)14 b(memory)g(at)g(address)g Fe(expr)p Fc(;)f(optional)2306 1358 y(format)g(sp)q(ec)h(follo)o(ws)g(slash) 2011 1396 y Fe(N)249 b Fc(coun)o(t)14 b(of)f(ho)o(w)h(man)o(y)h(units)g(to)e (displa)o(y)2011 1433 y Fe(u)256 b Fc(unit)15 b(size;)f(one)g(of)2356 1471 y Ff(b)f Fc(individual)k(b)o(ytes)2356 1508 y Ff(h)c Fc(halfw)o(ords)h (\(t)o(w)o(o)f(b)o(ytes\))2356 1545 y Ff(w)g Fc(w)o(ords)h(\(four)g(b)o (ytes\))2356 1583 y Ff(g)f Fc(gian)o(t)h(w)o(ords)f(\(eigh)o(t)h(b)o(ytes\)) 2011 1620 y Fe(f)263 b Fc(prin)o(ting)15 b(format.)21 b(An)o(y)14 b Ff(print)e Fc(format,)i(or)2356 1657 y Ff(s)f Fc(n)o(ull-terminated)j (string)2356 1695 y Ff(i)d Fc(mac)o(hine)h(instructions)1975 1738 y Ff(disassem)d Fd([)p Fe(addr)p Fd(])62 b Fc(displa)o(y)15 b(memory)g(as)e(mac)o(hine)h(instructions)1975 1840 y Fg(Automatic)e(Displa)o (y)1975 1891 y Ff(display)g Fd([)p Ff(/)p Fe(f)5 b Fd(])13 b Fe(expr)36 b Fc(sho)o(w)14 b(v)n(alue)g(of)g Fe(expr)e Fc(eac)o(h)i(time)g (program)2306 1929 y(stops)g Fd([)p Fc(according)e(to)i(format)f Fe(f)6 b Fd(])1975 1972 y Ff(display)184 b Fc(displa)o(y)15 b(all)g(enabled)f(expressions)h(on)f(list)1975 2014 y Ff(undisplay)d Fe(n)118 b Fc(remo)o(v)o(e)14 b(n)o(um)o(b)q(er\(s\))h Fe(n)f Fc(from)g(list)h(of)2306 2051 y(automatically)f(displa)o(y)o(ed)h (expressions)1975 2091 y Ff(disable)d(disp)g Fe(n)69 b Fc(disable)15 b(displa)o(y)g(for)f(expression\(s\))h(n)o(um)o(b)q(er)g Fe(n)1975 2132 y Ff(enable)d(disp)g Fe(n)87 b Fc(enable)14 b(displa)o(y)h(for)f (expression\(s\))h(n)o(um)o(b)q(er)g Fe(n)1975 2170 y Ff(info)e(display)99 b Fc(n)o(um)o(b)q(ered)15 b(list)g(of)e(displa)o(y)j(expressions)p eop %%Page: 2 2 bop -225 -183 a Fg(Expressions)-225 -138 y Fe(expr)245 b Fc(an)13 b(expression)i(in)g(C,)f(C++,)g(or)g(Mo)q(dula-2)105 -100 y(\(including)i (function)f(calls\),)f(or:)-225 -60 y Fe(addr)s Ff(@)p Fe(len)176 b Fc(an)13 b(arra)o(y)h(of)f Fe(len)h Fc(elemen)o(ts)h(b)q(eginning)f(at)105 -23 y Fe(addr)-225 10 y(\014le)p Ff(::)p Fe(nm)182 b Fc(a)13 b(v)n(ariable)h(or)g(function)h Fe(nm)e Fc(de\014ned)i(in)f Fe(\014le)-225 59 y Fa(f)p Fe(typ)n(e)p Fa(g)p Fe(addr)138 b Fc(read)13 b(memory)h(at)g Fe(addr)e Fc(as)h(sp)q(eci\014ed)h Fe(typ)n(e)-225 105 y Ff($)292 b Fc(most)13 b(recen)o(t)h(displa)o(y)o(ed)i (v)n(alue)-225 142 y Ff($)p Fe(n)273 b(n)p Fc(th)14 b(displa)o(y)o(ed)i(v)n (alue)-225 179 y Ff($$)274 b Fc(displa)o(y)o(ed)15 b(v)n(alue)g(previous)g (to)e($)-225 217 y Ff($$)p Fe(n)255 b(n)p Fc(th)14 b(displa)o(y)o(ed)i(v)n (alue)e(bac)o(k)g(from)g($)-225 254 y Ff($)p -205 254 11 2 v 292 w Fc(last)g(address)g(examined)g(with)h Ff(x)-225 291 y($)p -205 291 V -193 291 V 292 w Fc(v)n(alue)f(at)g(address)g($)p 357 291 10 2 v -225 329 a Ff($)p Fe(var)243 b Fc(con)o(v)o(enience)14 b(v)n(ariable;)h(assign)f(an)o(y)g(v)n(alue)-225 410 y Ff(show)e(values)g Fd([)p Fe(n)p Fd(])63 b Fc(sho)o(w)13 b(last)h(10)f(v)n(alues)i Fd([)p Fc(or)e(surrounding)i($)p Fe(n)p Fd(])-225 453 y Ff(show)d(conv)154 b Fc(displa)o(y)15 b(all)f(con)o(v)o(enience)h(v)n(ariables)-225 550 y Fg(Sym)o(b)q(ol)d(T)l(able)-225 595 y Ff(info)g(address)g Fe(s)74 b Fc(sho)o(w)13 b(where)h(sym)o(b)q(ol)h Fe(s)f Fc(is)g(stored)-225 645 y Ff(info)e(func)h Fd([)p Fe(r)n(e)n(gex)p Fd(])42 b Fc(sho)o(w)13 b(names,)i(t)o(yp)q(es)f(of)g(de\014ned)g(functions)105 682 y(\(all,)h(or)e(matc)o(hing)h Fe(r)n(e)n(gex)p Fc(\))-225 733 y Ff(info)e(var)h Fd([)p Fe(r)n(e)n(gex)p Fd(])60 b Fc(sho)o(w)13 b(names,)i(t)o(yp)q(es)f(of)g(global)f(v)n(ariables)i(\(all,)105 770 y(or)f(matc)o(hing)g Fe(r)n(e)n(gex)p Fc(\))-225 821 y Ff(whatis)e Fd([)p Fe(expr)p Fd(])-225 867 y Ff(ptype)g Fd([)p Fe(expr)p Fd(])85 821 y Fc(sho)o(w)h(data)h(t)o(yp)q(e)g(of)g Fe(expr)e Fd([)p Fc(or)h Ff($)p Fd(])g Fc(without)105 858 y(ev)n(aluating;)i Ff(ptype)d Fc(giv)o(es)i(more)g(detail)-225 910 y Ff(ptype)e Fe(typ)n(e)147 b Fc(describ)q(e)14 b(t)o(yp)q(e,)h(struct,)f(union,)h(or)f (en)o(um)-225 1008 y Fg(GDB)f(Scripts)-225 1054 y Ff(source)f Fe(script)104 b Fc(read,)14 b(execute)f(GDB)h(commands)g(from)g(\014le)105 1091 y Fe(script)-225 1147 y Ff(define)e Fe(cmd)-154 1184 y(c)n(ommand-list) 85 1147 y Fc(create)g(new)i(GDB)g(command)g Fe(cmd)p Fc(;)f(execute)105 1184 y(script)i(de\014ned)f(b)o(y)h Fe(c)n(ommand-list)-225 1222 y Ff(end)256 b Fc(end)14 b(of)g Fe(c)n(ommand-list)-225 1260 y Ff(document)d Fe(cmd)-154 1297 y(help-text)85 1260 y Fc(create)h(online)j(do)q(cumen)o(tation)f(for)f(new)h(GDB)105 1297 y(command)g Fe(cmd)-225 1335 y Ff(end)256 b Fc(end)14 b(of)g Fe(help-text)-225 1432 y Fg(Signals)-225 1478 y Ff(handle)e Fe(signal)h(act)44 b Fc(sp)q(ecify)15 b(GDB)e(actions)h(for)f Fe(signal)p Fc(:)-190 1515 y Ff(print)185 b Fc(announce)13 b(signal)-190 1553 y Ff(noprint)149 b Fc(b)q(e)13 b(silen)o(t)i(for)f(signal) -190 1590 y Ff(stop)203 b Fc(halt)14 b(execution)g(on)g(signal)-190 1627 y Ff(nostop)167 b Fc(do)13 b(not)h(halt)g(execution)-190 1665 y Ff(pass)203 b Fc(allo)o(w)13 b(y)o(our)h(program)f(to)h(handle)g (signal)-190 1702 y Ff(nopass)167 b Fc(do)13 b(not)h(allo)o(w)g(y)o(our)g (program)f(to)g(see)h(signal)-225 1739 y Ff(info)e(signals)100 b Fc(sho)o(w)13 b(table)h(of)g(signals,)h(GDB)e(action)h(for)f(eac)o(h)-225 1838 y Fg(Debugging)e(T)l(argets)-225 1884 y Ff(target)h Fe(typ)n(e)g(p)n(ar) n(am)24 b Fc(connect)13 b(to)g(target)g(mac)o(hine,)i(pro)q(cess,)e(or)h (\014le)-225 1921 y Ff(help)e(target)118 b Fc(displa)o(y)15 b(a)o(v)n(ailable)g(targets)-225 1958 y Ff(attach)d Fe(p)n(ar)n(am)97 b Fc(connect)13 b(to)g(another)h(pro)q(cess)-225 1996 y Ff(detach)202 b Fc(release)13 b(target)f(from)i(GDB)g(con)o(trol)p 800 -217 1 9 v 800 2175 V 875 -183 a Fg(Con)o(trollin)o(g)d(GDB)875 -138 y Ff(set)i Fe(p)n(ar)n(am)f(value)61 b Fc(set)14 b(one)f(of)h(GDB's)g (in)o(ternal)h(parameters)875 -100 y Ff(show)e Fe(p)n(ar)n(am)132 b Fc(displa)o(y)15 b(curren)o(t)f(setting)g(of)g(parameter)875 -51 y(P)o(arameters)f(understo)q(o)q(d)h(b)o(y)h Ff(set)e Fc(and)h Ff(show)p Fc(:)910 -13 y Ff(complaint)d Fe(limit)31 b Fc(n)o(um)o(b)q(er)15 b(of)e(messages)h(on)f(un)o(usual)j(sym)o(b)q(ols)910 28 y Ff(confirm)c Fe(on/o\013)43 b Fc(enable)14 b(or)f(disable)i(cautionary)f (queries)910 66 y Ff(editing)e Fe(on/o\013)43 b Fc(con)o(trol)13 b Ff(readline)e Fc(command-line)k(editing)910 103 y Ff(height)d Fe(lpp)110 b Fc(n)o(um)o(b)q(er)15 b(of)e(lines)i(b)q(efore)f(pause)g(in)g (displa)o(y)910 145 y Ff(language)d Fe(lang)58 b Fc(Language)12 b(for)h(GDB)h(expressions)h(\()p Ff(auto)p Fc(,)e Ff(c)g Fc(or)1206 182 y Ff(modula-2)p Fc(\))910 222 y Ff(listsize)e Fe(n)101 b Fc(n)o(um)o(b)q(er)15 b(of)e(lines)i(sho)o(wn)f(b)o(y)h Ff(list)910 259 y(prompt)d Fe(str)114 b Fc(use)14 b Fe(str)f Fc(as)g(GDB)h(prompt)910 297 y Ff(radix)e Fe(b)n(ase)111 b Fc(o)q(ctal,)13 b(decimal,)i(or)e(hex)i(n)o (um)o(b)q(er)1206 334 y(represen)o(tation)910 374 y Ff(verbose)d Fe(on/o\013)43 b Fc(con)o(trol)13 b(messages)g(when)h(loading)g(sym)o(b)q (ols)910 411 y Ff(width)e Fe(cpl)130 b Fc(n)o(um)o(b)q(er)15 b(of)e(c)o(haracters)g(b)q(efore)h(line)g(folded)910 449 y Ff(write)e Fe(on/o\013)79 b Fc(Allo)o(w)13 b(or)h(forbid)g(patc)o(hing)h (binary)m(,)g(core)e(\014les)1206 486 y(\(when)g(reop)q(ened)h(with)g Ff(exec)f Fc(or)g Ff(core)p Fc(\))910 526 y Ff(history)f Fb(:)7 b(:)g(:)910 563 y Ff(h)14 b Fb(:)7 b(:)g(:)1185 526 y Fc(groups)14 b(with)g(the)g(follo)o(wing)g(options:)910 598 y Ff(h)g(exp)f Fe(o\013/on)82 b Fc(disable/enable)14 b Ff(readline)d Fc(history)k(expansion) 910 635 y Ff(h)f(file)e Fe(\014lename)33 b Fc(\014le)14 b(for)f(recording)h (GDB)f(command)h(history)910 672 y Ff(h)g(size)e Fe(size)104 b Fc(n)o(um)o(b)q(er)15 b(of)e(commands)h(k)o(ept)h(in)f(history)h(list)910 710 y Ff(h)f(save)e Fe(o\013/on)65 b Fc(con)o(trol)13 b(use)h(of)g(external)g (\014le)g(for)f(command)1206 747 y(history)910 803 y Ff(print)f Fb(:)7 b(:)g(:)910 840 y Ff(p)14 b Fb(:)7 b(:)g(:)1185 803 y Fc(groups)14 b(with)g(the)g(follo)o(wing)g(options:)910 882 y Ff(p)g(address)d Fe(on/o\013)h Fc(prin)o(t)j(memory)f(addresses)g(in)g (stac)o(ks,)h(v)n(alues)910 923 y Ff(p)f(array)e Fe(o\013/on)47 b Fc(compact)13 b(or)g(attractiv)o(e)g(format)h(for)g(arra)o(ys)910 965 y Ff(p)g(demangl)d Fe(on/o\013)h Fc(source)h(\(demangled\))h(or)g(in)o (ternal)g(form)g(for)1206 1002 y(C++)g(sym)o(b)q(ols)910 1042 y Ff(p)g(asm-dem)d Fe(on/o\013)h Fc(demangle)i(C++)g(sym)o(b)q(ols)h(in)g (mac)o(hine-)1206 1079 y(instruction)g(output)910 1118 y Ff(p)f(elements)d Fe(limit)17 b Fc(n)o(um)o(b)q(er)e(of)e(arra)o(y)h(elemen)o(ts)g(to)g(displa) o(y)910 1160 y Ff(p)g(object)e Fe(on/o\013)29 b Fc(prin)o(t)15 b(C++)f(deriv)o(ed)h(t)o(yp)q(es)g(for)e(ob)r(jects)910 1201 y Ff(p)h(pretty)e Fe(o\013/on)29 b Fc(struct)14 b(displa)o(y:)23 b(compact)13 b(or)g(inden)o(ted)910 1243 y Ff(p)h(union)e Fe(on/o\013)47 b Fc(displa)o(y)15 b(of)f(union)h(mem)o(b)q(ers)910 1284 y Ff(p)f(vtbl)e Fe(o\013/on)65 b Fc(displa)o(y)15 b(of)f(C++)h(virtual)f (function)h(tables)875 1359 y Ff(show)e(commands)81 b Fc(sho)o(w)13 b(last)h(10)f(commands)875 1396 y Ff(show)g(commands)e Fe(n)51 b Fc(sho)o(w)13 b(10)g(commands)h(around)g(n)o(um)o(b)q(er)h Fe(n)875 1434 y Ff(show)e(commands)e(+)52 b Fc(sho)o(w)13 b(next)i(10)e (commands)875 1521 y Fg(W)l(orking)g(Files)875 1573 y Ff(file)g Fd([)p Fe(\014le)p Fd(])156 b Fc(use)14 b Fe(\014le)f Fc(for)h(b)q(oth)g(sym) o(b)q(ols)h(and)f(executable;)1206 1610 y(with)g(no)g(arg,)f(discard)h(b)q (oth)875 1659 y Ff(core)f Fd([)p Fe(\014le)p Fd(])156 b Fc(read)13 b Fe(\014le)h Fc(as)f(coredump;)i(or)e(discard)875 1713 y Ff(exec)g Fd([)p Fe(\014le)p Fd(])156 b Fc(use)14 b Fe(\014le)f Fc(as)h(executable)g (only;)h(or)e(discard)875 1767 y Ff(symbol)f Fd([)p Fe(\014le)p Fd(])121 b Fc(use)14 b(sym)o(b)q(ol)h(table)f(from)g Fe(\014le)p Fc(;)f(or)h(discard)875 1810 y Ff(load)f Fe(\014le)180 b Fc(dynamically)15 b(link)h Fe(\014le)f Fc(and)f(add)g(its)h(sym)o(b)q(ols)875 1848 y Ff(add-sym)c Fe(\014le)j(addr)45 b Fc(read)13 b(additional)i(sym)o(b)q (ols)g(from)f Fe(\014le)p Fc(,)1206 1885 y(dynamically)h(loaded)f(at)f Fe(addr)875 1923 y Ff(info)g(files)135 b Fc(displa)o(y)15 b(w)o(orking)f (\014les)g(and)g(targets)f(in)i(use)875 1961 y Ff(path)e Fe(dirs)167 b Fc(add)14 b Fe(dirs)f Fc(to)g(fron)o(t)h(of)g(path)g(searc)o(hed)f(for)1206 1998 y(executable)g(and)h(sym)o(b)q(ol)h(\014les)875 2037 y Ff(show)e(path)153 b Fc(displa)o(y)15 b(executable)f(and)g(sym)o(b)q(ol)h (\014le)f(path)875 2074 y Ff(info)f(share)135 b Fc(list)15 b(names)e(of)h(shared)g(libraries)h(curren)o(tly)1206 2111 y(loaded)p 1900 -217 V 1900 2175 V 1975 -183 a Fg(Source)e(Files)1975 -138 y Ff(dir)g Fe(names)148 b Fc(add)14 b(directory)g Fe(names)f Fc(to)h(fron)o(t)g(of)f(source)2306 -100 y(path)1975 -62 y Ff(dir)256 b Fc(clear)13 b(source)h(path)1975 -25 y Ff(show)f(dir)171 b Fc(sho)o(w)14 b(curren)o(t)g(source)f(path)1975 50 y Ff(list)238 b Fc(sho)o(w)14 b(next)g(ten)g(lines)h(of)e(source)1975 87 y Ff(list)g(-)207 b Fc(sho)o(w)14 b(previous)g(ten)g(lines)1975 125 y Ff(list)f Fe(lines)156 b Fc(displa)o(y)15 b(source)f(surrounding)h Fe(lines)p Fc(,)f(sp)q(eci\014ed)2306 162 y(as:)2011 206 y Fd([)p Fe(\014le)p Ff(:)p Fd(])p Fe(num)122 b Fc(line)15 b(n)o(um)o(b)q(er)g Fd([)p Fc(in)f(named)g(\014le)p Fd(])2011 260 y([)p Fe(\014le)p Ff(:)p Fd(])p Fe(function)63 b Fc(b)q(eginning)15 b(of)e(function)i Fd([)p Fc(in)f(named)g(\014le)p Fd(])2011 303 y Ff(+)p Fe(o\013)217 b(o\013)14 b Fc(lines)h(after)e(last)h(prin)o(ted)2011 340 y Ff(-)p Fe(o\013)217 b(o\013)14 b Fc(lines)h(previous)f(to)g(last)g(prin)o (ted)2011 377 y Ff(*)p Fe(addr)n(ess)145 b Fc(line)15 b(con)o(taining)f Fe(addr)n(ess)1975 415 y Ff(list)f Fe(f)p Ff(,)p Fe(l)187 b Fc(from)14 b(line)h Fe(f)e Fc(to)g(line)i Fe(l)1975 452 y Ff(info)e(line)f Fe(num)76 b Fc(sho)o(w)14 b(starting,)g(ending)g(addresses)g(of)2306 489 y(compiled)g(co)q(de)f(for)h(source)f(line)i Fe(num)1975 528 y Ff(info)e(source)117 b Fc(sho)o(w)14 b(name)f(of)h(curren)o(t)g(source) f(\014le)1975 565 y Ff(info)g(sources)99 b Fc(list)15 b(all)f(source)f (\014les)h(in)h(use)1975 603 y Ff(forw)e Fe(r)n(e)n(gex)150 b Fc(searc)o(h)13 b(follo)o(wing)h(source)g(lines)h(for)e Fe(r)n(e)n(gex)1975 640 y Ff(rev)g Fe(r)n(e)n(gex)168 b Fc(searc)o(h)13 b(preceding)h(source)g (lines)h(for)e Fe(r)n(e)n(gex)1975 737 y Fg(GDB)g(under)f(GNU)i(Emacs)1975 782 y Ff(M-x)f(gdb)189 b Fc(run)14 b(GDB)g(under)h(Emacs)1975 820 y Ff(C-h)e(m)225 b Fc(describ)q(e)14 b(GDB)g(mo)q(de)1975 857 y Ff(M-s)256 b Fc(step)14 b(one)f(line)i(\()p Ff(step)p Fc(\))1975 899 y Ff(M-n)256 b Fc(next)14 b(line)h(\()p Ff(next)p Fc(\))1975 936 y Ff(M-i)256 b Fc(step)14 b(one)f(instruction)i(\()p Ff(stepi)p Fc(\))1975 978 y Ff(C-c)e(C-f)189 b Fc(\014nish)15 b(curren)o(t)f(stac)o(k)g(frame)f(\()p Ff(finish)p Fc(\))1975 1015 y Ff(M-c)256 b Fc(con)o(tin)o(ue)14 b(\()p Ff(cont)p Fc(\))1975 1052 y Ff(M-u)256 b Fc(up)14 b Fe(ar)n(g)f Fc(frames)h(\()p Ff(up)p Fc(\))1975 1094 y Ff(M-d)256 b Fc(do)o(wn)14 b Fe(ar)n(g)f Fc(frames)h(\()p Ff(down)p Fc(\))1975 1131 y Ff(C-x)f(&)225 b Fc(cop)o(y)14 b(n)o(um)o(b)q(er)h(from)f(p)q(oin)o(t,)h(insert)f(at)f(end) 1975 1169 y Ff(C-x)g(SPC)189 b Fc(\(in)14 b(source)g(\014le\))g(set)f(break)h (at)g(p)q(oin)o(t)1975 1267 y Fg(GDB)f(License)1975 1313 y Ff(show)g(copying)99 b Fc(Displa)o(y)15 b(GNU)e(General)g(Public)i(License) 1975 1350 y Ff(show)e(warranty)81 b Fc(There)13 b(is)i(NO)e(W)l(ARRANTY)g (for)h(GDB.)2306 1387 y(Displa)o(y)h(full)g(no-w)o(arran)o(t)o(y)f(statemen)o (t.)2024 1622 y Fh(Cop)o(yrigh)o(t)2185 1621 y(c)2171 1622 y Fa(\015)o Fh(1991,)h(1992,)f(1993)h(F)n(ree)d(Soft)o(w)o(are)i(F)n (oundation,)f(Inc.)2215 1660 y(Roland)i(P)o(esc)o(h)f(\(p)q(esc)o(h@cygn)o (us.com\))1997 1697 y(The)f(author)h(assumes)f(no)h(resp)q(onsibilit)o(y)j (for)c(an)o(y)h(errors)g(on)g(this)h(card.)1975 1759 y(This)g(card)e(ma)o(y)g (b)q(e)g(freely)h(distributed)g(under)f(the)g(terms)g(of)g(the)h(GNU)1975 1797 y(General)h(Public)g(License.)2012 1834 y(Please)f(con)o(tribute)g(to)g (dev)o(elopmen)o(t)e(of)i(this)h(card)e(b)o(y)h(annotating)h(it.)1975 1896 y(GDB)g(itself)f(is)h(free)e(soft)o(w)o(are;)g(y)o(ou)h(are)g(w)o (elcome)e(to)i(distribute)h(copies)f(of)1975 1934 y(it)h(under)e(the)g(terms) g(of)g(the)g(GNU)i(General)g(Public)g(License.)20 b(There)12 b(is)1975 1971 y(absolutely)k(no)d(w)o(arran)o(t)o(y)i(for)e(GDB.)p eop %%Trailer end userdict /end-hook known{end-hook}if %%EOF gdb-4.13/README 666 34562 1752 2643 5603451210 11416 0ustar fnfcygnus README for GNU development tools This directory contains various GNU compilers, assemblers, linkers, debuggers, etc., plus their support routines, definitions, and documentation. If you are receiving this as part of a GDB release, see the file gdb/README. If with a gas release, see gas/README; if with a libg++ release, see libg++/README, etc. That'll give you info about this package -- supported targets, how to use it, how to report bugs, etc. It is now possible to automatically configure and build a variety of tools with one command. To build all of the tools contained herein, run the ``configure'' script here, e.g.: ./configure make If the configure script can't determine your type of computer, give it the name as an argument, for instance ``./configure sun4''. You can use the script ``config.sub'' to test whether a name is recognized; if it is, config.sub translates it to a triplet specifying CPU, vendor, and OS.) See etc/cfg-paper.texi, etc/configure.texi, and/or the README files in various subdirectories, for more details. Much of the code and documentation enclosed, and this file, is copyright 1993 by the Free Software Foundation, Inc. See the file COPYING or COPYING.LIB in the various directories, for a description of the GNU General Public License terms under which you can copy the files. REPORTING BUGS: Again, see gdb/README, gas/README, etc., for info on where and how to report problems. gdb-4.13/Makefile.in 666 34562 1752 73222 5623251412 12630 0ustar fnfcygnus# # Makefile for directory with subdirs to build. # Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation # # This file 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ # srcdir = . prefix = /usr/local exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib tooldir = $(exec_prefix)/$(target) program_transform_name = datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include docdir = $(datadir)/doc SHELL = /bin/sh INSTALL = $${srcroot}/install.sh -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) -m 644 INSTALL_XFORM = $(INSTALL) -t='$(program_transform_name)' INSTALL_DOSREL = install-dosrel-fake AS = as AR = ar AR_FLAGS = rc CC = cc # Special variables passed down in EXTRA_GCC_FLAGS. They are defined # here so that they can be overridden by Makefile fragments. HOST_CC = $(CC_FOR_BUILD) HOST_PREFIX = HOST_PREFIX_1 = loser- # We don't specify -g -O because many compilers don't support -g -O, # and/or -O is broken in and of itself. CFLAGS = -g CXX = gcc # Use -O to stress test the compiler. CXXFLAGS = -g -O -fexternal-templates RANLIB = ranlib NM = nm # Not plain GZIP, since gzip looks there for extra command-line options. GZIPPROG = gzip BISON = bison -y LEX = `if [ -f $$r/flex/flex ] ; \ then echo $$r/flex/flex ; \ else echo flex ; fi` M4 = `if [ -f $$r/m4/m4 ] ; \ then echo $$r/m4/m4 ; \ else echo m4 ; fi` MAKEINFO = `if [ -f $$r/texinfo/makeinfo/makeinfo ] ; \ then echo $$r/texinfo/makeinfo/makeinfo ; \ else echo makeinfo ; fi` # This just becomes part of the MAKEINFO definition passed down to # sub-makes. It lets flags be given on the command line while still # using the makeinfo from the object tree. MAKEINFOFLAGS = EXPECT = `if [ -f $$r/expect/expect ] ; \ then echo $$r/expect/expect ; \ else echo expect ; fi` RUNTEST = `if [ -f $${srcroot}/dejagnu/runtest ] ; \ then echo $${srcroot}/dejagnu/runtest ; \ else echo runtest ; fi` # libraries that may need to be augmented on a system-by-system basis X11_LIB = -lX11 # compilers to use to create programs which must be run in the build # environment. CC_FOR_BUILD = $(CC) CXX_FOR_BUILD = $(CXX) SUBDIRS = "this is set via configure, don't edit this" OTHERS = ALL = all.normal INSTALL_TARGET = install-dirs \ $(INSTALL_MODULES) \ $(INSTALL_TARGET_MODULES) \ $(INSTALL_X11_MODULES) \ install-gcc \ $(INSTALL_DOSREL) CC_FOR_TARGET = ` \ if [ -f $$r/gcc/Makefile ] ; then \ if [ -f $$r/newlib/Makefile ] ; then \ echo $$r/gcc/xgcc -B$$r/gcc/ -idirafter $$r/newlib/targ-include -idirafter $${srcroot}/newlib/libc/include -nostdinc; \ else \ echo $$r/gcc/xgcc -B$$r/gcc/; \ fi; \ else \ if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ echo $(CC); \ else \ t='$(program_transform_name)'; echo gcc | sed -e 's/brokensed/brokensed/' $$t; \ fi; \ fi` CXX_FOR_TARGET = ` \ if [ -f $$r/gcc/Makefile ] ; then \ if [ -f $$r/newlib/Makefile ] ; then \ echo $$r/gcc/xgcc -B$$r/gcc/ -idirafter $$r/newlib/targ-include -idirafter $${srcroot}/newlib/libc/include -nostdinc; \ else \ echo $$r/gcc/xgcc -B$$r/gcc/; \ fi; \ else \ if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ echo $(CXX); \ else \ t='$(program_transform_name)'; echo gcc | sed -e 's/brokensed/brokensed/' $$t; \ fi; \ fi` AS_FOR_TARGET = ` \ if [ -f $$r/gas/Makefile ] ; then \ echo $$r/gas/as.new ; \ else \ if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ echo $(AS); \ else \ t='$(program_transform_name)'; echo as | sed -e 's/brokensed/brokensed/' $$t ; \ fi; \ fi` AR_FOR_TARGET = ` \ if [ -f $$r/binutils/ar ] ; then \ echo $$r/binutils/ar ; \ else \ if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ echo $(AR); \ else \ t='$(program_transform_name)'; echo ar | sed -e 's/brokensed/brokensed/' $$t ; \ fi; \ fi` RANLIB_FOR_TARGET = ` \ if [ -f $$r/binutils/ranlib ] ; then \ echo $$r/binutils/ranlib ; \ else \ if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ echo $(RANLIB); \ else \ t='$(program_transform_name)'; echo ranlib | sed -e 's/brokensed/brokensed/' $$t ; \ fi; \ fi` NM_FOR_TARGET = ` \ if [ -f $$r/binutils/Makefile ] ; then \ echo $$r/binutils/nm.new ; \ else \ if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ echo $(NM); \ else \ t='$(program_transform_name)'; echo nm | sed -e 's/brokensed/brokensed/' $$t ; \ fi; \ fi` #### host and target specific makefile fragments come in here. ### # Flags to pass down to all sub-makes. # Please keep these in alphabetical order. BASE_FLAGS_TO_PASS = \ "AR_FLAGS=$(AR_FLAGS)" \ "AR_FOR_TARGET=$(AR_FOR_TARGET)" \ "AS_FOR_TARGET=$(AS_FOR_TARGET)" \ "BISON=$(BISON)" \ "CC_FOR_BUILD=$(CC_FOR_BUILD)" \ "CC_FOR_TARGET=$(CC_FOR_TARGET)" \ "CFLAGS=$(CFLAGS)" \ "CXX_FOR_BUILD=$(CXX_FOR_BUILD)" \ "CXXFLAGS=$(CXXFLAGS)" \ "CXX_FOR_TARGET=$(CXX_FOR_TARGET)" \ "GCC_FOR_TARGET=$(CC_FOR_TARGET)" \ "INSTALL=$(INSTALL)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "INSTALL_XFORM=$(INSTALL_XFORM)" \ "LDFLAGS=$(LDFLAGS)" \ "LEX=$(LEX)" \ "M4=$(M4)" \ "MAKEINFO=$(MAKEINFO) $(MAKEINFOFLAGS)" \ "NM_FOR_TARGET=$(NM_FOR_TARGET)" \ "RANLIB_FOR_TARGET=$(RANLIB_FOR_TARGET)" \ "SHELL=$(SHELL)" \ "EXPECT=$(EXPECT)" \ "RUNTEST=$(RUNTEST)" \ "RUNTESTFLAGS=$(RUNTESTFLAGS)" \ "YACC=$(BISON)" \ "exec_prefix=$(exec_prefix)" \ "prefix=$(prefix)" \ "tooldir=$(tooldir)" # Flags to pass down to most sub-makes, in which we're building with # the host environment. # If any variables are added here, they must be added to do-*, below. EXTRA_HOST_FLAGS = \ 'AR=$(AR)' \ 'AS=$(AS)' \ 'CC=$(CC)' \ 'CXX=$(CXX)' \ 'NM=$(NM)' \ 'RANLIB=$(RANLIB)' FLAGS_TO_PASS = $(BASE_FLAGS_TO_PASS) $(EXTRA_HOST_FLAGS) # Flags that are concerned with the location of the X11 include files # and library files X11_FLAGS_TO_PASS = \ "X11_INCLUDE_FLAGS=$(X11_INCLUDE_FLAGS)" \ "X11_LIB_FLAGS=$(X11_LIB_FLAGS)" \ "X11_LIB=$(X11_LIB)" # Flags to pass down to makes which are built with the target environment. # The double $ decreases the length of the command line; the variables # are set in BASE_FLAGS_TO_PASS, and the sub-make will expand them. # If any variables are added here, they must be added to do-*, below. EXTRA_TARGET_FLAGS = \ 'AR=$$(AR_FOR_TARGET)' \ 'AS=$$(AS_FOR_TARGET)' \ 'CC=$$(CC_FOR_TARGET)' \ 'CXX=$$(CXX_FOR_TARGET)' \ 'NM=$$(NM_FOR_TARGET)' \ 'RANLIB=$$(RANLIB_FOR_TARGET)' TARGET_FLAGS_TO_PASS = $(BASE_FLAGS_TO_PASS) $(EXTRA_TARGET_FLAGS) # Flags to pass down to gcc. gcc builds a library, libgcc.a, so it # unfortunately needs the native compiler and the target ar and # ranlib. # If any variables are added here, they must be added to do-*, below. # The HOST_* variables are a special case, which are used for the gcc # cross-building scheme. EXTRA_GCC_FLAGS = \ 'AR=$$(AR_FOR_TARGET)' \ 'AS=$(AS)' \ 'CC=$(CC)' \ 'CXX=$(CXX)' \ 'HOST_CC=$(CC_FOR_BUILD)' \ 'HOST_PREFIX=$(HOST_PREFIX)' \ 'HOST_PREFIX_1=$(HOST_PREFIX_1)' \ 'NM=$(NM)' \ 'RANLIB=$$(RANLIB_FOR_TARGET)' GCC_FLAGS_TO_PASS = $(BASE_FLAGS_TO_PASS) $(EXTRA_GCC_FLAGS) # This is a list of the targets for all of the modules which are compiled # using $(FLAGS_TO_PASS). ALL_MODULES = \ all-autoconf \ all-bfd \ all-binutils \ all-byacc \ all-cvs \ all-dejagnu \ all-diff \ all-dosutils \ all-etc \ all-fileutils \ all-find \ all-flex \ all-gas \ all-gawk \ all-gdb \ all-gprof \ all-grep \ all-gzip \ all-hello \ all-indent \ all-ispell \ all-ld \ all-libiberty \ all-m4 \ all-make \ all-mmalloc \ all-opcodes \ all-pagas \ all-patch \ all-prms \ all-rcs \ all-readline \ all-release \ all-recode \ all-sed \ all-send-pr \ all-shellutils \ all-sim \ all-tar \ all-tcl \ all-texinfo \ all-textutils \ all-tgas \ all-time \ all-uudecode \ all-wdiff # This is a list of the check targets for all of the modules which are # compiled using $(FLAGS_TO_PASS). # This is a list of the check targets for all of the modules which are # compiled using $(FLAGS_TO_PASS). # # The list is in two parts. The first lists those tools which # are tested as part of the host's native tool-chain, and not # tested in a cross configuration. NATIVE_CHECK_MODULES = \ check-byacc \ check-flex CROSS_CHECK_MODULES = \ check-autoconf \ check-bfd \ check-binutils \ check-cvs \ check-dejagnu \ check-diff \ check-etc \ check-fileutils \ check-find \ check-gas \ check-gawk \ check-gdb \ check-gprof \ check-grep \ check-gzip \ check-hello \ check-indent \ check-ispell \ check-ld \ check-libiberty \ check-m4 \ check-make \ check-mmcheckoc \ check-opcodes \ check-pagas \ check-patch \ check-prms \ check-rcs \ check-readline \ check-recode \ check-sed \ check-send-pr \ check-shellutils \ check-sim \ check-tar \ check-tcl \ check-texinfo \ check-textutils \ check-tgas \ check-time \ check-uudecode \ check-wdiff CHECK_MODULES=$(NATIVE_CHECK_MODULES) $(CROSS_CHECK_MODULES) # This is a list of the install targets for all of the modules which are # compiled using $(FLAGS_TO_PASS). INSTALL_MODULES = \ install-autoconf \ install-bfd \ install-binutils \ install-byacc \ install-cvs \ install-dejagnu \ install-diff \ install-dosutils \ install-etc \ install-fileutils \ install-find \ install-flex \ install-gas \ install-gawk \ install-gdb \ install-glob \ install-gprof \ install-grep \ install-gzip \ install-hello \ install-indent \ install-ispell \ install-ld \ install-libiberty \ install-m4 \ install-make \ install-mmalloc \ install-opcodes \ install-pagas \ install-patch \ install-prms \ install-rcs \ install-readline \ install-recode \ install-sed \ install-send-pr \ install-shellutils \ install-sim \ install-tar \ install-tcl \ install-textutils \ install-tgas \ install-time \ install-uudecode \ install-wdiff # This is a list of the targets for all of the modules which are compiled # using $(X11_FLAGS_TO_PASS). ALL_X11_MODULES = \ all-emacs \ all-emacs19 \ all-expect \ all-gash \ all-tclX \ all-tk # This is a list of the check targets for all of the modules which are # compiled using $(X11_FLAGS_TO_PASS). CHECK_X11_MODULES = \ check-emacs \ check-expect \ check-gash \ check-tclX \ check-tk # This is a list of the install targets for all the modules which are # compiled using $(X11_FLAGS_TO_PASS). INSTALL_X11_MODULES = \ install-emacs \ install-emacs19 \ install-expect \ install-gash \ install-tclX \ install-tk # This is a list of the targets for all of the modules which are compiled # using $(TARGET_FLAGS_TO_PASS). ALL_TARGET_MODULES = \ all-libio \ all-libg++ \ all-newlib \ all-xiberty # This is a list of the check targets for all of the modules which are # compiled using $(TARGET_FLAGS_TO_PASS). CHECK_TARGET_MODULES = \ check-libio \ check-libg++ \ check-newlib \ check-xiberty # This is a list of the install targets for all of the modules which are # compiled using $(TARGET_FLAGS_TO_PASS). INSTALL_TARGET_MODULES = \ install-libio \ install-libg++ \ install-newlib \ install-xiberty # This is a shell case of all modules which are compiled using # $(TARGET_FLAGS_TO_PASS), used in the do-X rule. TARGET_LIBS = libio | libg++ | newlib | xiberty # The first rule in the file had better be this one. Don't put any above it. all: all.normal .PHONY: all # The target built for a native build. .PHONY: all.normal all.normal: \ $(ALL_MODULES) \ $(ALL_TARGET_MODULES) \ $(ALL_X11_MODULES) \ all-gcc # Do a target for all the subdirectories. A ``make do-X'' will do a # ``make X'' in all subdirectories (because, in general, there is a # dependency (below) of X upon do-X, a ``make X'' will also do this, # but it may do additional work as well). # This target ensures that $(BASE_FLAGS_TO_PASS) appears only once, # because it is so large that it can easily overflow the command line # length limit on some systems. DO_X = \ do-clean \ do-distclean \ do-dvi \ do-info \ do-install-info \ do-installcheck \ do-mostlyclean \ do-realclean \ do-TAGS .PHONY: $(DO_X) $(DO_X): @target=`echo $@ | sed -e 's/^do-//'`; \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ for i in $(SUBDIRS); do \ if [ -f ./$$i/Makefile ]; then \ case $$i in \ $(TARGET_LIBS) ) \ for flag in $(EXTRA_TARGET_FLAGS); do \ eval `echo "$$flag" | sed -e "s|^\(.*\)=\(.*\)|\1='\2'|"`; \ done; \ ;; \ gcc) \ for flag in $(EXTRA_GCC_FLAGS); do \ eval `echo "$$flag" | sed -e "s|^\(.*\)=\(.*\)|\1='\2'|"`; \ done; \ ;; \ *) \ for flag in $(EXTRA_HOST_FLAGS); do \ eval `echo "$$flag" | sed -e "s|^\(.*\)=\(.*\)|\1='\2'|"`; \ done; \ ;; \ esac ; \ export AR AS CC CXX NM RANLIB; \ if (cd ./$$i; \ $(MAKE) $(BASE_FLAGS_TO_PASS) "AR=$${AR}" "AS=$${AS}" \ "CC=$${CC}" "CXX=$${CXX}" "NM=$${NM}" \ "RANLIB=$${RANLIB}" \ $${target}); \ then true; else exit 1; fi; \ else true; fi; \ done # Here are the targets which correspond to the do-X targets. .PHONY: info installcheck dvi install-info .PHONY: clean distclean mostlyclean realclean local-clean local-distclean info: do-info installcheck: do-installcheck dvi: do-dvi install-info: do-install-info dir.info srcroot=`cd $(srcdir); pwd`; export srcroot; \ if [ -f dir.info ] ; then \ $(INSTALL_DATA) dir.info $(infodir)/dir.info ; \ else true ; fi local-clean: -rm -f *.a TEMP errs core *.o *~ \#* TAGS *.E local-distclean: -rm -f Makefile config.status clean: do-clean local-clean mostlyclean: do-mostlyclean local-clean distclean: do-distclean local-clean local-distclean realclean: do-realclean local-clean local-distclean # Check target. .PHONY: check check: $(CHECK_MODULES) \ $(CHECK_TARGET_MODULES) \ $(CHECK_X11_MODULES) \ check-gcc # Installation targets. .PHONY: install uninstall vault-install install: $(INSTALL_TARGET) uninstall: @echo "the uninstall target is not supported in this tree" vault-install: @if [ -f ./release/vault-install ] ; then \ ./release/vault-install $(host_alias) $(target_alias) ; \ else \ true ; \ fi .PHONY: install.all install.all: install-no-fixedincludes @if [ -f ./gcc/Makefile ] ; then \ r=`pwd` ; export r ; \ (cd ./gcc; \ $(MAKE) $(FLAGS_TO_PASS) install-headers) ; \ else \ true ; \ fi # install-no-fixedincludes is used because Cygnus can not distribute # the fixed header files. .PHONY: install-no-fixedincludes install-no-fixedincludes: \ install-dirs \ $(INSTALL_MODULES) \ $(INSTALL_TARGET_MODULES) \ $(INSTALL_X11_MODULES) \ gcc-no-fixedincludes # Install the gcc headers files, but not the fixed include files, # which Cygnus is not allowed to distribute. This rule is very # dependent on the workings of the gcc Makefile.in. .PHONY: gcc-no-fixedincludes gcc-no-fixedincludes: @if [ -f ./gcc/Makefile ]; then \ rm -rf gcc/tmp-include; \ mv gcc/include gcc/tmp-include 2>/dev/null; \ mkdir gcc/include; \ cp $(srcdir)/gcc/gsyslimits.h gcc/include/syslimits.h; \ touch gcc/stmp-fixinc gcc/include/fixed; \ rm -f gcc/stmp-headers gcc/stmp-int-hdrs; \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd` ; export srcroot; \ (cd ./gcc; \ $(MAKE) $(GCC_FLAGS_TO_PASS) install); \ rm -rf gcc/include; \ mv gcc/tmp-include gcc/include 2>/dev/null; \ else true; fi # This rule is used to build the modules which use FLAGS_TO_PASS. To # build a target all-X means to cd to X and make all. # all-glob is handled specially because it doesn't actually build. # # all-gui, all-libproc and all-librx are handled specially because # they are still experimental, and if they fail to build, that # shouldn't stop "make all". .PHONY: $(ALL_MODULES) all-glob all-gui all-libproc all-librx $(ALL_MODULES) all-glob all-gui all-libproc all-librx: @dir=`echo $@ | sed -e 's/all-//'`; \ if [ -d ./$${dir} ] ; then \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; $(MAKE) $(FLAGS_TO_PASS) all); \ else \ true ; \ fi; \ else \ true; \ fi # This rule is used to check the modules which use FLAGS_TO_PASS. To # build a target check-X means to cd to X and make all. .PHONY: $(CHECK_MODULES) $(NATIVE_CHECK_MODULES) $(CROSS_CHECK_MODULES) $(NATIVE_CHECK_MODULES): @if [ "$(host_canonical)" = "$(target_canonical)" ] ; then \ dir=`echo $@ | sed -e 's/check-//'`; \ if [ -d ./$${dir} ] ; then \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; $(MAKE) $(FLAGS_TO_PASS) check); \ else \ true; \ fi ; \ fi; \ fi $(CROSS_CHECK_MODULES): @dir=`echo $@ | sed -e 's/check-//'`; \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; $(MAKE) $(FLAGS_TO_PASS) check); \ else \ true; \ fi # This rule is used to install the modules which use FLAGS_TO_PASS. # To build a target install-X means to cd to X and make install. .PHONY: $(INSTALL_MODULES) $(INSTALL_MODULES): install-dirs @dir=`echo $@ | sed -e 's/install-//'`; \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; $(MAKE) $(FLAGS_TO_PASS) install); \ else \ true; \ fi # This rule is used to build the modules which use TARGET_FLAGS_TO_PASS. # To build a target all-X means to cd to X and make all. .PHONY: $(ALL_TARGET_MODULES) $(ALL_TARGET_MODULES): @dir=`echo $@ | sed -e 's/all-//'`; \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; $(MAKE) $(TARGET_FLAGS_TO_PASS) all); \ else \ true; \ fi # This rule is used to check the modules which use TARGET_FLAGS_TO_PASS. # To build a target install-X means to cd to X and make install. .PHONY: $(CHECK_TARGET_MODULES) $(CHECK_TARGET_MODULES): @dir=`echo $@ | sed -e 's/check-//'`; \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; $(MAKE) $(TARGET_FLAGS_TO_PASS) check); \ else \ true; \ fi # This rule is used to install the modules which use # TARGET_FLAGS_TO_PASS. To build a target install-X means to cd to X # and make install. .PHONY: $(INSTALL_TARGET_MODULES) $(INSTALL_TARGET_MODULES): install-dirs @dir=`echo $@ | sed -e 's/install-//'`; \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; $(MAKE) $(TARGET_FLAGS_TO_PASS) install); \ else \ true; \ fi # This rule is used to build the modules which use X11_FLAGS_TO_PASS. # To build a target all-X means to cd to X and make all. .PHONY: $(ALL_X11_MODULES) $(ALL_X11_MODULES): @dir=`echo $@ | sed -e 's/all-//'`; \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; \ $(MAKE) $(FLAGS_TO_PASS) $(X11_FLAGS_TO_PASS) all); \ else \ true; \ fi # This rule is used to check the modules which use X11_FLAGS_TO_PASS. # To build a target check-X means to cd to X and make all. .PHONY: $(CHECK_X11_MODULES) $(CHECK_X11_MODULES): @dir=`echo $@ | sed -e 's/check-//'`; \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; \ $(MAKE) $(FLAGS_TO_PASS) $(X11_FLAGS_TO_PASS) check); \ else \ true; \ fi # This rule is used to install the modules which use X11_FLAGS_TO_PASS. # To build a target install-X means to cd to X and make install. .PHONY: $(INSTALL_X11_MODULES) $(INSTALL_X11_MODULES): @dir=`echo $@ | sed -e 's/install-//'`; \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; \ $(MAKE) $(FLAGS_TO_PASS) $(X11_FLAGS_TO_PASS) install); \ else \ true; \ fi # gcc is the only module which uses GCC_FLAGS_TO_PASS. .PHONY: all-gcc all-gcc: @if [ -f ./gcc/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd gcc; $(MAKE) $(GCC_FLAGS_TO_PASS) all); \ else \ true; \ fi .PHONY: check-gcc check-gcc: @if [ -f ./gcc/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd gcc; $(MAKE) $(GCC_FLAGS_TO_PASS) check); \ else \ true; \ fi .PHONY: install-gcc install-gcc: @if [ -f ./gcc/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd gcc; $(MAKE) $(GCC_FLAGS_TO_PASS) install); \ else \ true; \ fi # EXPERIMENTAL STUFF # This rule is used to install the modules which use FLAGS_TO_PASS. # To build a target install-X means to cd to X and make install. .PHONY: install-dosrel install-dosrel: install-dirs info @dir=`echo $@ | sed -e 's/install-//'`; \ if [ -f ./$${dir}/Makefile ] ; then \ r=`pwd`; export r; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ (cd $${dir}; $(MAKE) $(FLAGS_TO_PASS) install); \ else \ true; \ fi install-dosrel-fake: # This is a list of inter-dependencies among modules. all-autoconf: all-m4 all-bfd: all-binutils: all-libiberty all-opcodes all-bfd all-flex all-byacc: all-cvs: all-dejagnu: all-tcl all-expect all-tk all-diff: all-libiberty all-emacs: all-emacs19: all-byacc all-etc: all-expect: all-tcl all-tk all-fileutils: all-libiberty all-find: all-flex: all-libiberty all-byacc all-gas: all-libiberty all-opcodes all-bfd all-gash: all-tcl all-gawk: all-gcc: all-libiberty all-byacc all-binutils all-gas all-pagas all-gdb: all-libiberty all-opcodes all-bfd all-mmalloc all-readline all-glob all-byacc all-sim all-glob: all-gprof: all-libiberty all-bfd all-grep: all-libiberty all-gui: all-gdb all-libproc all-librx all-gzip: all-libiberty all-hello: all-libiberty all-indent: all-ispell: all-emacs # all-emacs19 ??? is this needed? all-ld: all-libiberty all-bfd all-byacc all-flex all-libg++: all-gas all-pagas all-ld all-gcc all-xiberty all-newlib all-libio all-libio: all-gas all-pagas all-ld all-gcc all-xiberty all-newlib all-libiberty: all-m4: all-libiberty all-make: all-libiberty all-mmalloc: all-newlib: all-binutils all-gas all-pagas all-gcc all-opcodes: all-bfd all-patch: all-prms: all-libiberty all-rcs: all-readline: all-recode: all-libiberty all-sed: all-libiberty all-send-pr: all-prms all-shellutils: all-sim: all-libiberty all-bfd all-tar: all-libiberty all-tcl: all-tclX: all-tcl all-tk all-tk: all-tcl all-texinfo: all-libiberty all-textutils: all-tgas: all-libiberty all-bfd all-time: all-wdiff: all-uudecode: all-libiberty all-xiberty: all-gcc all-newlib ### other supporting targets MAKEDIRS= \ $(prefix) \ $(exec_prefix) \ $(tooldir) .PHONY: install-dirs install-dirs: @for i in $(MAKEDIRS) ; do \ echo Making $$i... ; \ parent=`echo $$i | sed -e 's@/[^/]*$$@@' | sed -e 's@^$$@/@'`; \ if [ -d $$parent ] ; then true ; else mkdir $$parent ; fi ; \ if [ ! -d $$i ] ; then \ if mkdir $$i ; then \ true ; \ else \ exit 1 ; \ fi ; \ else \ true ; \ fi ; \ done dir.info: do-install-info if [ -f $(srcdir)/texinfo/gen-info-dir ] ; then \ $(srcdir)/texinfo/gen-info-dir $(infodir) $(srcdir)/texinfo/dir.info-template > dir.info.new ; \ mv -f dir.info.new dir.info ; \ else true ; \ fi dist: @echo "Building a full distribution of this tree isn't done" @echo "via 'make dist'. Check out the etc/ subdirectory" etags tags: TAGS # Right now this just builds TAGS in each subdirectory. emacs19 has the # ability to use several tags files at once, so there is probably no need # to combine them into one big TAGS file (like CVS 1.3 does). We could # (if we felt like it) have this Makefile write a piece of elisp which # the user could load to tell emacs19 where all the TAGS files we just # built are. TAGS: do-TAGS # with the gnu make, this is done automatically. Makefile: Makefile.in configure.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status # # Support for building net releases # Files in devo used in any net release. # ChangeLog omitted because it may refer to files which are not in this # distribution (perhaps it would be better to include it anyway). DEVO_SUPPORT= README Makefile.in configure configure.in \ config.guess config.sub config move-if-change \ COPYING COPYING.LIB install.sh # Files in devo/etc used in any net release. # ChangeLog omitted because it may refer to files which are not in this # distribution (perhaps it would be better to include it anyway). ETC_SUPPORT= Makefile.in cfg-paper.texi configure.in configure.man \ configure.texi standards.texi make-stds.texi # When you use `make setup-dirs' or `make taz' you should always redefine # this macro. SUPPORT_FILES = list-of-support-files-for-tool-in-question # Directories that might want `make diststuff' run. DISTSTUFFDIRS= ld gprof gdb libg++ binutils gnats # Files where "byacc" (Cygnus version) should be changed to "bison -y" (FSF). DISTBISONFILES= binutils/Makefile.in gas/Makefile.in gdb/Makefile.in # Directories where "info" should be built. DISTDOCDIRS= ld gprof binutils gas bfd libg++ libio gdb gnats send-pr .PHONY: taz taz: $(DEVO_SUPPORT) $(SUPPORT_FILES) \ texinfo/texinfo.tex texinfo/gpl.texinfo texinfo/lgpl.texinfo # Make sure "diststuff" files get built properly. for f in $(DISTBISONFILES) ; do \ if [ -r $$f ]; then \ sed '/^BISON *=.*$$/s/.*/BISON = bison -y/' <$$f >tmp ; \ mv -f tmp $$f ; \ else true; fi ; \ done # Take out texinfo from a few places; make simple BISON=bison line. sed -e '/^all\.normal: /s/\all-texinfo //' \ -e '/^ install-texinfo /d' \ -e '/^BISON = /,/^$$/d' \ -e '/^# BISON:/s/.*/BISON = bison -y/' \ tmp mv -f tmp Makefile.in # ./configure sun4 # Doc files don't change; include them in distribution. for f in $(DISTDOCDIRS) ; do \ if [ -r $$f/Makefile ]; then \ (cd $$f ; $(MAKE) info) || exit 1 ; \ else true ; fi ; \ done # Make links, and run "make diststuff" when needed. # The `echo' for setting `p' is to convert all whitespace to spaces. # Then the `case' further below should tell whether $$d is in # DISTSTUFFDIRS. rm -rf proto-toplev ; mkdir proto-toplev set -e ; dirs="$(TOOL) $(DEVO_SUPPORT) $(SUPPORT_FILES)" ; \ p=" `echo $(DISTSTUFFDIRS)` " ; \ for d in $$dirs ; do \ if [ -d $$d ]; then \ case " $$p " in \ *" $$d "*) \ echo making diststuff in $$d ; \ (cd $$d ; pwd ; $(MAKE) diststuff ) || exit 1 ;; \ esac ; \ if [ -d $$d/proto-$$d.dir ]; then \ ln -s ../$$d/proto-$$d.dir proto-toplev/$$d ; \ else \ ln -s ../$$d proto-toplev/$$d ; \ fi ; \ else ln -s ../$$d proto-toplev/$$d ; fi ; \ done $(MAKE) distclean # mkdir proto-toplev/etc (cd proto-toplev/etc; for i in $(ETC_SUPPORT); do \ ln -s ../../etc/$$i . ; \ done) # # Take out texinfo and glob from configurable dirs rm proto-toplev/configure.in sed -e '/^host_tools=/s/texinfo //' \ -e '/^host_libs=/s/glob //' \ proto-toplev/configure.in # mkdir proto-toplev/texinfo ln -s ../../texinfo/texinfo.tex proto-toplev/texinfo/ ln -s ../../texinfo/gpl.texinfo proto-toplev/texinfo/ ln -s ../../texinfo/lgpl.texinfo proto-toplev/texinfo/ ln -s ../../texinfo/tex3patch proto-toplev/texinfo/ chmod og=u `find . -print` (VER=`sed <$(TOOL)/Makefile.in -n 's/^VERSION *= *//p'`; \ echo "==> Making $(TOOL)-$$VER.tar.gz"; \ rm -f $(TOOL)-$$VER; ln -s proto-toplev $(TOOL)-$$VER; \ tar cfh - $(TOOL)-$$VER \ | $(GZIPPROG) -v -9 >$(TOOL)-$$VER.tar.gz ) TEXINFO_SUPPORT= texinfo/texinfo.tex texinfo/gpl.texinfo texinfo/lgpl.texinfo DIST_SUPPORT= $(DEVO_SUPPORT) $(TEXINFO_SUPPORT) .PHONY: gas.tar.gz GAS_SUPPORT_DIRS= bfd include libiberty opcodes gas.tar.gz: $(DIST_SUPPORT) $(GAS_SUPPORT_DIRS) gas $(MAKE) -f Makefile.in taz TOOL=gas \ SUPPORT_FILES="$(GAS_SUPPORT_DIRS)" # The FSF "binutils" release includes gprof and ld. .PHONY: binutils.tar.gz BINUTILS_SUPPORT_DIRS= bfd include libiberty opcodes ld gprof binutils.tar.gz: $(DIST_SUPPORT) $(BINUTILS_SUPPORT_DIRS) binutils $(MAKE) -f Makefile.in taz TOOL=binutils \ SUPPORT_FILES="$(BINUTILS_SUPPORT_DIRS)" .PHONY: gas+binutils.tar.gz GASB_SUPPORT_DIRS= $(GAS_SUPPORT_DIRS) binutils ld gprof gas+binutils.tar.gz: $(DIST_SUPPORT) $(GASB_SUPPORT_DIRS) gas $(MAKE) -f Makefile.in taz TOOL=gas \ SUPPORT_FILES="$(GASB_SUPPORT_DIRS)" .PHONY: libg++.tar.gz LIBGXX_SUPPORT_DIRS=include libio libiberty xiberty libg++.tar.gz: $(DIST_SUPPORT) libg++ $(MAKE) -f Makefile.in taz TOOL=libg++ \ SUPPORT_FILES="$(LIBGXX_SUPPORT_DIRS)" GNATS_SUPPORT_DIRS=include libiberty send-pr gnats.tar.gz: $(DIST_SUPPORT) $(GNATS_SUPPORT_DIRS) gnats $(MAKE) -f Makefile.in taz TOOL=gnats \ SUPPORT_FILES="$(GNATS_SUPPORT_DIRS)" .PHONY: gdb.tar.gz GDB_SUPPORT_DIRS= bfd glob include libiberty mmalloc opcodes readline sim gdb.tar.gz: $(DIST_SUPPORT) $(GDB_SUPPORT_DIRS) gdb $(MAKE) -f Makefile.in taz TOOL=gdb \ SUPPORT_FILES="$(GDB_SUPPORT_DIRS)" .NOEXPORT: MAKEOVERRIDES= # end of Makefile.in gdb-4.13/configure 777 34562 1752 76343 5603636046 12511 0ustar fnfcygnus#!/bin/sh ### WARNING: this file contains embedded tabs. Do not run untabify on this file. # Configuration script # Copyright (C) 1988, 90, 91, 92, 93, 94 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # Please email any bugs, comments, and/or additions to this file to: # configure@cygnus.com # This file was written by K. Richard Pixley. # # Shell script to create proper links to machine-dependent files in # preparation for compilation. # # If configure succeeds, it leaves its status in config.status. # If configure fails after disturbing the status quo, # config.status is removed. # export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh $0 $argv; kill $$) remove=rm hard_link=ln symbolic_link='ln -s' #for Test #remove="echo rm" #hard_link="echo ln" #symbolic_link="echo ln -s" # clear some things potentially inherited from environment. Makefile=Makefile Makefile_in=Makefile.in arguments=$* build_alias= configdirs= exec_prefix= exec_prefixoption= fatal= floating_point=default gas=default host_alias=NOHOST host_makefile_frag= moveifchange= norecursion= other_options= package_makefile_frag= prefix=/usr/local progname= program_prefix= program_prefixoption= program_suffix= program_suffixoption= program_transform_name= program_transform_nameoption= redirect=">/dev/null" removing= site= site_makefile_frag= site_option= srcdir= srctrigger= subdirs= target_alias=NOTARGET target_makefile_frag= undefs=NOUNDEFS version="$Revision: 1.189 $" x11=default ### we might need to use some other shell than /bin/sh for running subshells # config_shell=${CONFIG_SHELL-/bin/sh} NO_EDIT="This file was generated automatically by configure. Do not edit." ## this is a little touchy and won't always work, but... ## ## if the argv[0] starts with a slash then it is an absolute name that can (and ## must) be used as is. ## ## otherwise, if argv[0] has no slash in it, we can assume that it is on the ## path. Since PATH might include "." we also add `pwd` to the end of PATH. ## progname=$0 # if PWD already has a value, it is probably wrong. if [ -n "$PWD" ]; then PWD=`pwd`; fi case "${progname}" in /*) ;; */*) ;; *) PATH=$PATH:${PWD=`pwd`} ; export PATH ;; esac # Loop over all args while : do # Break out if there are no more args case $# in 0) break ;; esac # Get the first arg, and shuffle option=$1 shift # Make all options have two hyphens orig_option=$option # Save original for error messages case $option in --*) ;; -*) option=-$option ;; esac # Split out the argument for options that take them case $option in --*=*) optarg=`echo $option | sed -e 's/^[^=]*=//'` ;; # These options have mandatory values. Since we didn't find an = sign, # the value must be in the next argument --b* | --ex* | --ho* | --pre* | --program-p* | --program-s* | --program-t* | --si* | --sr* | --ta* | --tm* | --x-*) optarg=$1 shift ;; esac # Now, process the options case $option in --build* | --b*) case "$build_alias" in "") build_alias=$optarg ;; *) echo '***' Can only configure for one build machine at a time. 1>&2 fatal=yes ;; esac ;; --disable-*) enableopt=`echo ${option} | sed 's:^--disable-:enable_:;s:-:_:g'` eval $enableopt=no disableoptions="$disableoptions $option" ;; --enable-*) case "$option" in *=*) ;; *) optarg=yes ;; esac enableopt=`echo ${option} | sed 's:^--::;s:=.*$::;s:-:_:g'` eval $enableopt="$optarg" enableoptions="$enableoptions $option" ;; --exec-prefix* | --ex*) exec_prefix=$optarg exec_prefixoption="--exec-prefix=$optarg" ;; --gas | --g*) gas=yes ;; --help | --he*) fatal=yes ;; --host* | --ho*) case $host_alias in NOHOST) host_alias=$optarg ;; *) echo '***' Can only configure for one host at a time. 1>&2 fatal=yes ;; esac ;; --nfp | --nf*) floating_point=no ;; --norecursion | --no*) norecursion=yes ;; --prefix* | --pre*) prefix=$optarg prefixoption="--prefix=$optarg" ;; --program-prefix* | --program-p*) program_prefix=$optarg program_prefixoption="--program-prefix=$optarg" ;; --program-suffix* | --program-s*) program_suffix=$optarg program_suffixoption="--program-suffix=$optarg" ;; --program-transform-name* | --program-t*) # Double any backslashes or dollar signs in the argument program_transform_name="${program_transform_name} -e `echo ${optarg} | sed -e 's/\\\\/\\\\\\\\/g' -e 's/\\\$/$$/g'`" program_transform_nameoption="${program_transform_nameoption} --program-transform-name='$optarg'" ;; --rm) removing=--rm ;; --silent | --sil* | --quiet | --q*) redirect=">/dev/null" verbose=--silent ;; --site* | --sit*) site=$optarg site_option="--site=$optarg" ;; --srcdir*/ | --sr*/) # Remove trailing slashes. Otherwise, when the file name gets # bolted into an object file as debug info, it has two slashes # in it. Ordinarily this is ok, but emacs takes double slash # to mean "forget the first part". srcdir=`echo $optarg | sed -e 's:/$::'` ;; --srcdir* | --sr*) srcdir=$optarg ;; --target* | --ta*) case $target_alias in NOTARGET) target_alias=$optarg ;; *) echo '***' Can only configure for one target at a time. 1>&2 fatal=yes ;; esac ;; --tmpdir* | --tm*) TMPDIR=$optarg tmpdiroption="--tmpdir=$optarg" ;; --verbose | --v | --verb*) redirect= verbose=--verbose ;; --version | --V | --vers*) echo "This is Cygnus Configure version" `echo ${version} | sed 's/[ $:]//g'` exit 0 ;; --with-*) case "$option" in *=*) ;; *) optarg=yes ;; esac withopt=`echo ${option} | sed 's:^--::;s:=.*$::;s:-:_:g'` eval $withopt="$optarg" withoptions="$withoptions $option" ;; --without-*) withopt=`echo ${option} | sed 's:^--::;s:out::;s:-:_:g'` eval $withopt=no withoutoptions="$withoutoptions $option" ;; --x) with_x=yes withoptions="$withoptions --with-x" ;; --x-i* | --x-l*) other_options="$other_options $orig_option" ;; --*) echo "configure: Unrecognized option: \"$orig_option\"; use --help for usage." >&2 exit 1 ;; *) case $undefs in NOUNDEFS) undefs=$option ;; *) echo '***' Can only configure for one host and one target at a time. 1>&2 fatal=yes ;; esac ;; esac done # process host and target # Do some error checking and defaulting for the host and target type. # The inputs are: # configure --host=HOST --target=TARGET UNDEFS # # The rules are: # 1. You aren't allowed to specify --host, --target, and undefs at the # same time. # 2. Host defaults to undefs. # 3. If undefs is not specified, then host defaults to the current host, # as determined by config.guess. # 4. Target defaults to undefs. # 5. If undefs is not specified, then target defaults to host. case "${fatal}" in "") # Make sure that host, target & undefs aren't all specified at the # same time. case $host_alias---$target_alias---$undefs in NOHOST---*---* | *---NOTARGET---* | *---*---NOUNDEFS) ;; *) echo '***' Can only configure for one host and one target at a time. 1>&2 fatal=yes break 2 ;; esac # Now, do defaulting for host. case $host_alias in NOHOST) case $undefs in NOUNDEFS) # Neither --host option nor undefs were present. # Call config.guess. guesssys=`echo ${progname} | sed 's/configure$/config.guess/'` if host_alias=`${guesssys}` then # If the string we are going to use for # the target is a prefix of the string # we just guessed for the host, then # assume we are running native, and force # the same string for both target and host. case $target_alias in NOTARGET) case $undefs in NOUNDEFS) ;; *) if expr $host_alias : $undefs >/dev/null then host_alias=$undefs fi ;; esac ;; *) if expr $host_alias : $target_alias >/dev/null then host_alias=$target_alias fi ;; esac echo "Configuring for a ${host_alias} host." 1>&2 arguments="--host=$host_alias $arguments" else echo 'Config.guess failed to determine the host type. You need to specify one.' 1>&2 fatal=yes fi ;; *) host_alias=$undefs ;; esac esac # Do defaulting for target. If --target option isn't present, default # to undefs. If undefs isn't present, default to host. case $target_alias in NOTARGET) case $undefs in NOUNDEFS) target_alias=$host_alias ;; *) target_alias=$undefs ;; esac esac ;; *) ;; esac if [ -n "${fatal}" -o "${host_alias}" = "help" ] ; then exec 1>&2 echo Usage: configure [OPTIONS] HOST echo echo Options: [defaults in brackets] echo ' --prefix=MYDIR configure for installation of host independent files into MYDIR. ["/usr/local"]' echo ' --exec-prefix=MYDIR configure for installation of host dependent files into MYDIR. ["/usr/local"]' echo ' --help print this message. [normal config]' echo ' --build=BUILD configure for building on BUILD. [BUILD=HOST]' echo ' --host=HOST configure for HOST. [determined via config.guess]' echo ' --norecursion configure this directory only. [recurse]' echo ' --program-prefix=FOO install programs with FOO prepended to their names. [ "" ]' echo ' --program-suffix=FOO install programs with FOO appended to their names. [ "" ]' echo ' --program-transform-name=FOO install programs with names transformed by sed pattern FOO. [ "" ]' echo ' --site=SITE configure with site specific makefile for SITE' echo ' --srcdir=DIR find the sources in DIR. ["." or ".."]' echo ' --target=TARGET configure for TARGET. [TARGET = HOST]' echo ' --tmpdir=TMPDIR create temporary files in TMPDIR. [ TMPDIR = "/tmp" ]' echo ' --nfp configure the compilers default to soft floating point. [hard float]' echo ' --with-FOO, --with-FOO=BAR package FOO is available (parameter BAR)' echo ' --without-FOO package FOO is NOT available' echo ' --enable-FOO, --enable-FOO=BAR include feature FOO (parameter BAR)' echo ' --disable-FOO do not include feature FOO' echo echo 'Where HOST and TARGET are something like "sun4", "decstation", "encore", etc.' echo if [ -r config.status ] ; then cat config.status fi exit 1 fi configsub=`echo ${progname} | sed 's/configure$/config.sub/'` moveifchange=`echo ${progname} | sed 's/configure$/move-if-change/'` # this is a hack. sun4 must always be a valid host alias or this will fail. if ${configsub} sun4 >/dev/null 2>&1 ; then true else echo '***' cannot find config.sub. 1>&2 exit 1 fi touch config.junk if ${moveifchange} config.junk config.trash ; then true else echo '***' cannot find move-if-change. 1>&2 exit 1 fi rm -f config.junk config.trash case "${srcdir}" in "") if [ -r configure.in ] ; then srcdir=. else if [ -r ${progname}.in ] ; then srcdir=`echo ${progname} | sed 's:/configure$::'` else echo '***' "Can't find configure.in. Try using --srcdir=some_dir" 1>&2 exit 1 fi fi ;; *) ;; esac ### warn about some conflicting configurations. case "${srcdir}" in ".") ;; *) if [ -f ${srcdir}/config.status ] ; then echo '***' Cannot configure here in \"${PWD=`pwd`}\" when \"${srcdir}\" is currently configured. 1>&2 exit 1 fi esac # default exec_prefix case "${exec_prefixoption}" in "") exec_prefix="\$(prefix)" ;; *) ;; esac ### break up ${srcdir}/configure.in. case "`grep '^# per\-host:' ${srcdir}/configure.in`" in "") echo '***' ${srcdir}/configure.in has no \"per-host:\" line. 1>&2 exit 1 ;; *) ;; esac case "`grep '^# per\-target:' ${srcdir}/configure.in`" in "") echo '***' ${srcdir}/configure.in has no \"per-target:\" line. 1>&2 exit 1 ;; *) ;; esac case "${TMPDIR}" in "") TMPDIR=/tmp ; export TMPDIR ;; *) ;; esac # keep this filename short for &%*%$*# 14 char file names tmpfile=${TMPDIR}/cONf$$ trap "rm -f ${tmpfile}.com ${tmpfile}.tgt ${tmpfile}.hst ${tmpfile}.pos; exit 1" 1 2 15 trap "rm -f ${tmpfile}.com ${tmpfile}.tgt ${tmpfile}.hst ${tmpfile}.pos" 0 # split ${srcdir}/configure.in into common, per-host, per-target, # and post-target parts. Post-target is optional. sed -e '/^# per\-host:/,$d' ${srcdir}/configure.in > ${tmpfile}.com sed -e '1,/^# per\-host:/d' -e '/^# per\-target:/,$d' ${srcdir}/configure.in > ${tmpfile}.hst if grep '^# post-target:' ${srcdir}/configure.in >/dev/null ; then sed -e '1,/^# per\-target:/d' -e '/^# post\-target:/,$d' ${srcdir}/configure.in > ${tmpfile}.tgt sed -e '1,/^# post\-target:/d' ${srcdir}/configure.in > ${tmpfile}.pos else sed -e '1,/^# per\-target:/d' ${srcdir}/configure.in > ${tmpfile}.tgt echo >${tmpfile}.pos fi ### do common part of configure.in . ${tmpfile}.com # some sanity checks on configure.in case "${srctrigger}" in "") echo '***' srctrigger not set in ${PWD=`pwd`}/configure.in. 1>&2 exit 1 ;; *) ;; esac case "${build_alias}" in "") ;; *) result=`${configsub} ${build_alias}` buildopt="--build=${build_alias}" build_cpu=`echo $result | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\1/'` build_vendor=`echo $result | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\2/'` build_os=`echo $result | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\3/'` build=${build_cpu}-${build_vendor}-${build_os} ;; esac result=`${configsub} ${host_alias}` host_cpu=`echo $result | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\1/'` host_vendor=`echo $result | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\2/'` host_os=`echo $result | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\3/'` host=${host_cpu}-${host_vendor}-${host_os} . ${tmpfile}.hst result=`${configsub} ${target_alias}` target_cpu=`echo $result | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\1/'` target_vendor=`echo $result | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\2/'` target_os=`echo $result | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\3/'` target=${target_cpu}-${target_vendor}-${target_os} . ${tmpfile}.tgt # Find the source files, if location was not specified. case "${srcdir}" in "") srcdirdefaulted=1 srcdir=. if [ ! -r ${srctrigger} ] ; then srcdir=.. fi ;; *) ;; esac if [ ! -r ${srcdir}/${srctrigger} ] ; then case "${srcdirdefaulted}" in "") echo '***' "${progname}: Can't find ${srcname} sources in ${PWD=`pwd`}/${srcdir}" 1>&2 ;; *) echo '***' "${progname}: Can't find ${srcname} sources in ${PWD=`pwd`}/. or ${PWD=`pwd`}/.." 1>&2 ;; esac echo '***' \(At least ${srctrigger} is missing.\) 1>&2 exit 1 fi # Some systems (e.g., one of the i386-aix systems the gas testers are # using) don't handle "\$" correctly, so don't use it here. tooldir='$(exec_prefix)'/${target_alias} if [ "${host_alias}" != "${target_alias}" ] ; then if [ "${program_prefixoption}" = "" ] ; then if [ "${program_suffixoption}" = "" ] ; then if [ "${program_transform_nameoption}" = "" ] ; then program_prefix=${target_alias}- ; fi fi fi fi # Merge program_prefix and program_suffix onto program_transform_name # Use a double $ so that make ignores it if [ "${program_suffix}" != "" ] ; then program_transform_name="-e s,\$\$,${program_suffix}, ${program_transform_name}" fi if [ "${program_prefix}" != "" ] ; then program_transform_name="-e s,^,${program_prefix}, ${program_transform_name}" fi for subdir in . ${subdirs} ; do # ${subdir} is relative path from . to the directory we're currently # configuring. # ${invsubdir} is inverse of ${subdir), *with* trailing /, if needed. invsubdir=`echo ${subdir}/ | sed -e 's|\./||g' -e 's|[^/]*/|../|g'` ### figure out what to do with srcdir case "${srcdir}" in ".") # no -srcdir option. We're building in place. makesrcdir=. ;; /*) # absolute path makesrcdir=`echo ${srcdir}/${subdir} | sed -e 's|/\.$||'` ;; *) # otherwise relative case "${subdir}" in .) makesrcdir=${srcdir} ;; *) makesrcdir=${invsubdir}${srcdir}/${subdir} ;; esac ;; esac if [ "${subdir}/" != "./" ] ; then Makefile=${subdir}/Makefile fi if [ ! -d ${subdir} ] ; then if mkdir ${subdir} ; then true else echo '***' "${progname}: could not make ${PWD=`pwd`}/${subdir}" 1>&2 exit 1 fi fi case "${removing}" in "") case "${subdir}" in .) ;; *) eval echo Building in ${subdir} ${redirect} ;; esac # FIXME Should this be done recursively ??? (Useful for e.g. gdbtest) # Set up the list of links to be made. # ${links} is the list of link names, and ${files} is the list of names to link to. # Make the links. configlinks="${links}" if [ -r ${subdir}/config.status ] ; then mv -f ${subdir}/config.status ${subdir}/config.back fi while [ -n "${files}" ] ; do # set file to car of files, files to cdr of files set ${files}; file=$1; shift; files=$* set ${links}; link=$1; shift; links=$* if [ ! -r ${srcdir}/${file} ] ; then echo '***' "${progname}: cannot create a link \"${link}\"," 1>&2 echo '***' "since the file \"${srcdir}/${file}\" does not exist." 1>&2 exit 1 fi ${remove} -f ${link} # Make a symlink if possible, otherwise try a hard link if ${symbolic_link} ${srcdir}/${file} ${link} >/dev/null 2>&1 ; then true else # We need to re-remove the file because Lynx leaves a # very strange directory there when it fails an NFS symlink. ${remove} -r -f ${link} ${hard_link} ${srcdir}/${file} ${link} fi if [ ! -r ${link} ] ; then echo '***' "${progname}: unable to link \"${link}\" to \"${srcdir}/${file}\"." 1>&2 exit 1 fi echo "Linked \"${link}\" to \"${srcdir}/${file}\"." done # Create a .gdbinit file which runs the one in srcdir # and tells GDB to look there for source files. if [ -r ${srcdir}/${subdir}/.gdbinit ] ; then case ${srcdir} in .) ;; *) cat > ${subdir}/.gdbinit < ${subdir}/Makefile.tem else cp ${srcdir}/${subdir}/${Makefile_in} ${subdir}/Makefile.tem site_makefile_frag= fi ;; esac # working copy now in ${subdir}/Makefile.tem # Conditionalize the makefile for this host. rm -f ${Makefile} case "${host_makefile_frag}" in "") mv ${subdir}/Makefile.tem ${Makefile} ;; *) if [ ! -f ${host_makefile_frag} ] ; then host_makefile_frag=${srcdir}/${host_makefile_frag} fi if [ -f ${host_makefile_frag} ] ; then sed -e "/^####/ r ${host_makefile_frag}" ${subdir}/Makefile.tem > ${Makefile} else echo '***' Expected host makefile fragment \"${host_makefile_frag}\" 1>&2 echo '***' is missing in ${PWD=`pwd`}. 1>&2 mv ${subdir}/Makefile.tem ${Makefile} fi esac # working copy now in ${Makefile} # Conditionalize the makefile for this target. rm -f ${subdir}/Makefile.tem case "${target_makefile_frag}" in "") mv ${Makefile} ${subdir}/Makefile.tem ;; *) if [ ! -f ${target_makefile_frag} ] ; then target_makefile_frag=${srcdir}/${target_makefile_frag} fi if [ -f ${target_makefile_frag} ] ; then sed -e "/^####/ r ${target_makefile_frag}" ${Makefile} > ${subdir}/Makefile.tem else mv ${Makefile} ${subdir}/Makefile.tem target_makefile_frag= fi ;; esac # real copy now in ${subdir}/Makefile.tem # Conditionalize the makefile for this package. rm -f ${Makefile} case "${package_makefile_frag}" in "") mv ${subdir}/Makefile.tem ${Makefile} ;; *) if [ ! -f ${package_makefile_frag} ] ; then package_makefile_frag=${srcdir}/${package_makefile_frag} fi if [ -f ${package_makefile_frag} ] ; then sed -e "/^####/ r ${package_makefile_frag}" ${subdir}/Makefile.tem > ${Makefile} rm -f ${subdir}/Makefile.tem else echo '***' Expected package makefile fragment \"${package_makefile_frag}\" 1>&2 echo '***' is missing in ${PWD=`pwd`}. 1>&2 mv ${subdir}/Makefile.tem ${Makefile} fi esac # working copy now in ${Makefile} mv ${Makefile} ${subdir}/Makefile.tem # real copy now in ${subdir}/Makefile.tem # prepend warning about editting, and a bunch of variables. rm -f ${Makefile} cat > ${Makefile} <> ${Makefile} << EOF build_alias = ${build_alias} build_cpu = ${build_cpu} build_vendor = ${build_vendor} build_os = ${build_os} build_canonical = ${build_cpu}-${build_vendor}-${build_os} EOF esac case "${package_makefile_frag}" in "") ;; /*) echo package_makefile_frag = ${package_makefile_frag} >>${Makefile} ;; *) echo package_makefile_frag = ${invsubdir}${package_makefile_frag} >>${Makefile} ;; esac case "${target_makefile_frag}" in "") ;; /*) echo target_makefile_frag = ${target_makefile_frag} >>${Makefile} ;; *) echo target_makefile_frag = ${invsubdir}${target_makefile_frag} >>${Makefile} ;; esac case "${host_makefile_frag}" in "") ;; /*) echo host_makefile_frag = ${host_makefile_frag} >>${Makefile} ;; *) echo host_makefile_frag = ${invsubdir}${host_makefile_frag} >>${Makefile} ;; esac if [ "${site_makefile_frag}" != "" ] ; then echo site_makefile_frag = ${invsubdir}${site_makefile_frag} >>${Makefile} fi # make sure that some sort of reasonable default exists for these # two variables CXX=${CXX-"g++ -O"} CC=${CC-cc} # reset prefix, exec_prefix, srcdir, SUBDIRS, NONSUBDIRS, # remove any form feeds. if [ -z "${subdirs}" ]; then rm -f ${subdir}/Makefile.tem2 sed -e "s:^SUBDIRS[ ]*=.*$:SUBDIRS = ${configdirs}:" \ -e "s:^NONSUBDIRS[ ]*=.*$:NONSUBDIRS = ${noconfigdirs}:" \ ${subdir}/Makefile.tem > ${subdir}/Makefile.tem2 rm -f ${subdir}/Makefile.tem mv ${subdir}/Makefile.tem2 ${subdir}/Makefile.tem fi sed -e "s:^prefix[ ]*=.*$:prefix = ${prefix}:" \ -e "s:^exec_prefix[ ]*=.*$:exec_prefix = ${exec_prefix}:" \ -e "s:^SHELL[ ]*=.*$:SHELL = ${config_shell}:" \ -e "s:^srcdir[ ]*=.*$:srcdir = ${makesrcdir}:" \ -e "s/ //" \ -e "s:^program_prefix[ ]*=.*$:program_prefix = ${program_prefix}:" \ -e "s:^program_suffix[ ]*=.*$:program_suffix = ${program_suffix}:" \ -e "s:^program_transform_name[ ]*=.*$:program_transform_name = ${program_transform_name}:" \ -e "s:^tooldir[ ]*=.*$:tooldir = ${tooldir}:" \ ${subdir}/Makefile.tem >> ${Makefile} # final copy now in ${Makefile} else echo "No Makefile.in found in ${srcdir}/${subdir}, unable to configure" 1>&2 fi rm -f ${subdir}/Makefile.tem case "${host_makefile_frag}" in "") using= ;; *) using="and \"${host_makefile_frag}\"" ;; esac case "${target_makefile_frag}" in "") ;; *) using="${using} and \"${target_makefile_frag}\"" ;; esac case "${site_makefile_frag}" in "") ;; *) using="${using} and \"${site_makefile_frag}\"" ;; esac newusing=`echo "${using}" | sed 's/and/using/'` using=${newusing} echo "Created \"${Makefile}\" in" ${PWD=`pwd`} ${using} . ${tmpfile}.pos # describe the chosen configuration in config.status. # Make that file a shellscript which will reestablish # the same configuration. Used in Makefiles to rebuild # Makefiles. case "${norecursion}" in "") arguments="${arguments} --norecursion" ;; *) ;; esac if [ ${subdir} = . ] ; then echo "#!/bin/sh # ${NO_EDIT} # This directory was configured as follows: ${progname}" ${arguments} " # ${using}" > ${subdir}/config.new else echo "#!/bin/sh # ${NO_EDIT} # This directory was configured as follows: cd ${invsubdir} ${progname}" ${arguments} " # ${using}" > ${subdir}/config.new fi chmod a+x ${subdir}/config.new if [ -r ${subdir}/config.back ] ; then mv -f ${subdir}/config.back ${subdir}/config.status fi ${moveifchange} ${subdir}/config.new ${subdir}/config.status ;; *) rm -f ${Makefile} ${subdir}/config.status ${links} ;; esac done # If there are subdirectories, then recur. if [ -z "${norecursion}" -a -n "${configdirs}" ] ; then for configdir in ${configdirs} ; do if [ -d ${srcdir}/${configdir} ] ; then eval echo Configuring ${configdir}... ${redirect} case "${srcdir}" in ".") ;; *) if [ ! -d ./${configdir} ] ; then if mkdir ./${configdir} ; then true else echo '***' "${progname}: could not make ${PWD=`pwd`}/${configdir}" 1>&2 exit 1 fi fi ;; esac POPDIR=${PWD=`pwd`} cd ${configdir} ### figure out what to do with srcdir case "${srcdir}" in ".") newsrcdir=${srcdir} ;; # no -srcdir option. We're building in place. /*) # absolute path newsrcdir=${srcdir}/${configdir} srcdiroption="--srcdir=${newsrcdir}" ;; *) # otherwise relative newsrcdir=../${srcdir}/${configdir} srcdiroption="--srcdir=${newsrcdir}" ;; esac ### check for guested configure, otherwise fix possibly relative progname if [ -f ${newsrcdir}/configure ] ; then recprog=${newsrcdir}/configure elif [ -f ${newsrcdir}/configure.in ] ; then case "${progname}" in /*) recprog=${progname} ;; *) recprog=../${progname} ;; esac else eval echo No configuration information in ${configdir} ${redirect} recprog= fi ### The recursion line is here. if [ ! -z "${recprog}" ] ; then if eval ${config_shell} ${recprog} ${verbose} ${buildopt} --host=${host_alias} --target=${target_alias} \ ${prefixoption} ${tmpdiroption} ${exec_prefixoption} \ ${srcdiroption} ${program_prefixoption} ${program_suffixoption} ${program_transform_nameoption} ${site_option} ${withoptions} ${withoutoptions} ${enableoptions} ${disableoptions} ${removing} ${other_options} ${redirect} ; then true else echo Configure in `pwd` failed, exiting. 1>&2 exit 1 fi fi cd ${POPDIR} fi done fi exit 0 # # Local Variables: # fill-column: 131 # End: # # end of configure gdb-4.13/configure.in 666 34562 1752 31755 5623251756 13114 0ustar fnfcygnus############################################################################## ## This file is a shell script fragment that supplies the information ## necessary to tailor a template configure script into the configure ## script appropriate for this directory. For more information, check ## any existing configure script. ## Be warned, there are two types of configure.in files. There are those ## used by Autoconf, which are macros which are expanded into a configure ## script by autoconf. The other sort, of which this is one, is executed ## by Cygnus configure. ## For more information on these two systems, check out the documentation ## for 'Autoconf' (autoconf.texi) and 'Configure' (configure.texi). ############################################################################## ### To add a new directory to the tree, first choose whether it is a target ### or a host dependent tool. Then put it into the appropriate list ### (library or tools, host or target), doing a dependency sort. For ### example, gdb requires that byacc (or bison) be built first, so it is in ### the ${host_tools} list after byacc and bison. # these libraries are used by various programs built for the host environment # host_libs="mmalloc libiberty opcodes bfd readline gash tcl tk tclX" # these tools are built for the host environment # host_tools="byacc flex bison binutils ld gas gcc gdb make patch prms send-pr gprof gdbtest tgas etc expect dejagnu sim m4 autoconf ispell grep diff rcs cvs fileutils shellutils textutils wdiff find emacs uudecode hello tar gzip indent recode release sed utils" # these libraries are built for the target environment, and are built after # the host libraries and the host tools (which may be a cross compiler) # target_libs="libm xiberty newlib libio libg++" # these tools are built using the target libs, and are intended to run only # in the target environment. we currently have none. # # note: any program that *uses* libraries that are in the "target_libs" # list belongs in this list. those programs are also very likely # candidates for the "native_only" list which follows # target_tools="groff" ################################################################################ ## These two lists are of directories that are to be removed from the ## ${configdirs} list for either cross-compilations or for native- ## compilations. For example, it doesn't make that much sense to ## cross-compile Emacs, nor is it terribly useful to compile xiberty in ## a native environment. # directories to be built in the native environment only # native_only="autoconf cvs emacs fileutils find grep groff gzip hello indent ispell m4 rcs recode sed shellutils tar textutils gash tk uudecode wdiff gprof" # directories to be built in a cross environment only # cross_only="xiberty newlib" ## All tools belong in one of the four categories, and are assigned above ## We assign ${configdirs} this way to remove all embedded newlines. This ## is important because configure will choke if they ever get through. # configdirs=`echo ${host_libs} ${host_tools} ${target_libs} ${target_tools}` ################################################################################ srctrigger=move-if-change srcname="gnu development package" # This gets set non-empty for some net releases of packages. appdirs="" # per-host: # Work in distributions that contain no compiler tools, like Autoconf. if [ -d ${srcdir}/config ]; then case "${host}" in m68k-hp-hpux*) host_makefile_frag=config/mh-hp300 ;; m68k-apollo-sysv*) host_makefile_frag=config/mh-apollo68 ;; m68k-apollo-bsd*) host_makefile_frag=config/mh-a68bsd ;; m88k-dg-dgux*) host_makefile_frag=config/mh-dgux ;; m88k-harris-cxux*) host_makefile_frag=config/mh-cxux ;; m88k-motorola-sysv*) host_makefile_frag=config/mh-delta88;; mips*-dec-ultrix*) host_makefile_frag=config/mh-decstation ;; mips*-sgi-irix5*) host_makefile_frag=config/mh-irix5 ;; mips*-sgi-irix4*) host_makefile_frag=config/mh-irix4 ;; mips*-sgi-irix3*) host_makefile_frag=config/mh-sysv ;; mips*-*-sysv4*) host_makefile_frag=config/mh-sysv4 ;; mips*-*-sysv*) host_makefile_frag=config/mh-riscos ;; i[34]86-ncr-sysv43) host_makefile_frag=config/mh-ncrsvr43 ;; i[34]86-ncr-sysv4*) host_makefile_frag=config/mh-ncr3000 ;; i[34]86-*-sco*) host_makefile_frag=config/mh-sco ;; i[34]86-*-isc*) host_makefile_frag=config/mh-sysv ;; i[34]86-*-linux*) host_makefile_frag=config/mh-linux ;; i[34]86-*-solaris2*) host_makefile_frag=config/mh-sysv4 ;; i[34]86-*-aix*) host_makefile_frag=config/mh-aix386 ;; i[34]86-*-go32*) host_makefile_frag=config/mh-go32 ;; vax-*-ultrix2*) host_makefile_frag=config/mh-vaxult2 ;; *-ibm-aix*) host_makefile_frag=config/mh-aix ;; *-bull-bosx*) host_makefile_frag=config/mh-aix ;; *-*-solaris2*) host_makefile_frag=config/mh-solaris ;; m68k-sun-*) host_makefile_frag=config/mh-sun3 ;; *-sun-*) host_makefile_frag=config/mh-sun ;; *-hp-hpux*) host_makefile_frag=config/mh-hpux ;; *-*-hiux*) host_makefile_frag=config/mh-hpux ;; rs6000-*-lynxos*) host_makefile_frag=config/mh-lynxrs6k ;; *-*-lynxos*) host_makefile_frag=config/mh-lynxos ;; *-*-sysv4*) host_makefile_frag=config/mh-sysv4 ;; *-*-sysv*) host_makefile_frag=config/mh-sysv ;; esac fi # per-target: case "${target}" in v810*) target_makefile_frag=config/mt-v810 ;; esac gasdir=gas use_gnu_ld= use_gnu_as= # some tools are so dependent upon X11 that if we're not building with X, # it's not even worth trying to configure, much less build, that tool. case ${with_x} in yes | "") # the default value for this tree is that X11 is available ;; no) configdirs=`echo " ${configdirs} " | sed -e 's/ tk / /;/ gash / /'` ;; *) echo "*** bad value \"${with_x}\" for -with-x flag; ignored" 1>&2 ;; esac # Some tools are only suitable for building in a "native" situation. # Those are added when we have a host==target configuration. For cross # toolchains, we add some directories that should only be useful in a # cross-compiler. is_cross_compiler= if [ x"${host}" = x"${target}" ] ; then # when doing a native toolchain, don't build the targets # that are in the 'cross only' list for i in ${cross_only} ; do configdirs=`echo " ${configdirs} " | sed -e "s/ $i / /"` done is_cross_compiler=no else # similarly, don't build the targets in the 'native only' # list when building a cross compiler for i in ${native_only} ; do configdirs=`echo " ${configdirs} " | sed -e "s/ $i / /"` done is_cross_compiler=yes fi # Configure extra directories which are host specific case "${host}" in i[34]86-*-go32*) configdirs="$configdirs dosrel" ;; esac # Remove more programs from consideration, based on the host or # target this usually means that a port of the program doesn't # exist yet. noconfigdirs="" case "${host}" in i[34]86-*-netbsd*) noconfigdirs="tk fileutils" ;; i[34]86-*-vsta) noconfigdirs="tcl expect dejagnu make texinfo bison patch flex byacc send-pr gprof uudecode dejagnu diff" ;; i[34]86-*-go32) noconfigdirs="tcl expect deja-gnu make texinfo bison patch flex byacc send-pr gprof uudecode dejagnu diff" ;; esac case "${target}" in alpha-dec-osf1*) noconfigdirs="$noconfigdirs emacs fileutils grep newlib" ;; alpha*-*-*) noconfigdirs="$noconfigdirs newlib" ;; h8300*-*-* | \ h8500-*-*) noconfigdirs="$noconfigdirs libg++ libio" ;; hppa*-*-*elf*) # Do configure ld/binutils/gas for this case. ;; hppa*-*-*) # HP's C compiler doesn't handle Emacs correctly (but on BSD and Mach # cc is gcc, and on any system a user should be able to link cc to # whatever they want. FIXME, emacs). case "${CC}" in "" | cc*) noconfigdirs="$noconfigdirs emacs" ;; *) ;; esac noconfigdirs="$noconfigdirs ld shellutils" ;; i[34]86-*-go32) # add the go32 support tools to the list # but don't build gdb configdirs=`echo go32 ${configdirs}` noconfigdirs="$noconfigdirs gdb libg++ libio" ;; i[34]86-*-sco*) noconfigdirs="$noconfigdirs gprof" ;; i[34]86-*-solaris2*) # The linker does static linking correctly, but the Solaris C library # has bugs such that some important functions won't work when statically # linked. (See man pages for getpwuid, for example.) noconfigdirs="$noconfigdirs ld" ;; i[34]86-*-sysv4*) # The SYSV4 C compiler doesn't handle Emacs correctly case "${CC}" in "" | cc*) noconfigdirs="$noconfigdirs emacs" ;; *) ;; esac # but that's okay since emacs doesn't work anyway noconfigdirs="$noconfigdirs emacs" ;; powerpc-*-aix*) # copied from rs6000-*-* entry noconfigdirs="$noconfigdirs ld binutils gprof textutils cvs" ;; rs6000-*-lynxos*) # a gcc built textutils will cause the linker to hang on 'join' # The CVS server code doesn't work on the RS/6000 # Newlib makes problems for libg++ in crosses. noconfigdirs="$noconfigdirs gas ld newlib gprof textutils cvs" use_gnu_ld=no use_gnu_as=no ;; rs6000-*-*) # a gcc built textutils will cause the linker to hang on 'join' noconfigdirs="$noconfigdirs ld binutils gprof textutils" ;; m68k-apollo-*) noconfigdirs="$noconfigdirs ld binutils gprof" ;; mips*-*-irix5*) # The GNU linker does not support shared libraries. noconfigdirs="$noconfigdirs ld gprof" ;; mips*-dec-bsd*) noconfigdirs="$noconfigdirs gprof" ;; mips*-*-bsd*) noconfigdirs="$noconfigdirs gprof ld" ;; mips*-*-*) noconfigdirs="$noconfigdirs gprof" ;; romp-*-*) noconfigdirs="bfd binutils ld gas opcodes" ;; sh-*-*) case "${host}" in i[34]86-*-vsta) ;; # don't add gprof back in *) configdirs=`echo gprof ${configdirs}` ;; i[34]86-*-go32) ;; # don't add gprof back in *) configdirs=`echo gprof ${configdirs}` ;; esac ;; sparc-*-sunos4*) if [ x${is_cross_compiler} != xno ] ; then noconfigdirs="$noconfigdirs gdb gdbtest newlib sim dejagnu expect tcl" else use_gnu_ld=no fi ;; vax-*-vms) noconfigdirs="$noconfigdirs bfd binutils gdb ld newlib opcodes" ;; vax-*-*) noconfigdirs="$noconfigdirs newlib" ;; *-*-lynxos*) # Newlib makes problems for libg++ in crosses. noconfigdirs="$noconfigdirs newlib" ;; esac notsupp="" for dir in . $noconfigdirs ; do if [ $dir != . ] && echo "# ${configdirs} #" | grep "${dir} " >/dev/null 2>&1 ; then configdirs=`echo " ${configdirs} " | sed -e "s/ ${dir} / /"` if [ -r $srcdir/$dir/configure ] || [ -r $srcdir/$dir/configure.in ]; then notsupp="$notsupp $dir" fi fi done # Produce a warning message for the subdirs we can't configure. # This isn't especially interesting in the Cygnus tree, but in the individual # FSF releases, it's important to let people know when their machine isn't # supported by the one or two programs in a package. if [ -n "${notsupp}" ] && [ -z "${norecursion}" ]; then # If $appdirs is non-empty, at least one of those directories must still # be configured, or we error out. (E.g., if the gas release supports a # specified target in some subdirs but not the gas subdir, we shouldn't # pretend that all is well.) if [ -n "$appdirs" ]; then for dir in $appdirs ; do if [ -r $dir/Makefile.in ] && echo "# ${configdirs} #" | grep "${dir} " >/dev/null 2>&1 ; then appdirs="" break fi done if [ -n "$appdirs" ]; then echo "*** This configuration is not supported by this package." 1>&2 exit 1 fi fi # Okay, some application will build, or we don't care to check. Still # notify of subdirs not getting built. echo "*** This configuration is not supported in the following subdirectories:" 1>&2 echo " ${notsupp}" 1>&2 echo " (Any other directories should still work fine.)" 1>&2 fi # Set with_gnu_as and with_gnu_ld as appropriate. # # This is done by determining whether or not the appropriate directory # is available, and by checking whether or not specific configurations # have requested that this magic not happen. # # The command line options always override the explicit settings in # configure.in, and the settings in configure.in override this magic. # # If the default for a toolchain is to use GNU as and ld, and you don't # want to do that, then you should use the --without-gnu-as and # --without-gnu-ld options for the configure script. if [ x${use_gnu_as} = x ] ; then if [ x${with_gnu_as} != xno ] && echo " ${configdirs} " | grep " ${gasdir} " > /dev/null 2>&1 && [ -d ${srcdir}/${gasdir} ] ; then with_gnu_as=yes withoptions="$withoptions --with-gnu-as" fi fi if [ x${use_gnu_ld} = x ] ; then if [ x${with_gnu_ld} != xno ] && echo " ${configdirs} " | grep " ld " > /dev/null 2>&1 && [ -d ${srcdir}/ld ] ; then with_gnu_ld=yes withoptions="$withoptions --with-gnu-ld" fi fi # # Local Variables: # fill-column: 131 # End: # gdb-4.13/config.guess 777 34562 1752 22251 5612030314 13071 0ustar fnfcygnus#!/bin/sh # This script attempts to guess a canonical system name. # Copyright (C) 1992, 1993 Free Software Foundation, Inc. # # This file 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ # # This script attempts to guess a canonical system name similar to # config.sub. If it succeeds, it prints the system name on stdout, and # exits with 0. Otherwise, it exits with 1. # # The plan is that this can be called by configure scripts if you # don't specify an explicit system type (host/target name). # # Only a few systems have been added to this list; please add others # (but try to keep the structure clean). # UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown # Note: order is significant - the case branches are not exclusive. case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in alpha:OSF1:V*:*) # After 1.2, OSF1 uses "V1.3" for uname -r. echo alpha-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^V//'` exit 0 ;; alpha:OSF1:*:*) # 1.2 uses "1.2" for uname -r. echo alpha-dec-osf${UNAME_RELEASE} exit 0 ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit 0;; sun4*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:*:*) echo sparc-sun-sunos${UNAME_RELEASE} exit 0 ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit 0 ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit 0 ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit 0 ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit 0 ;; mips:*:5*:RISCos) echo mips-mips-riscos${UNAME_RELEASE} exit 0 ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit 0 ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit 0 ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit 0 ;; AViiON:dgux:*:*) echo m88k-dg-dgux${UNAME_RELEASE} exit 0 ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit 0 ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit 0 ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit 0 ;; *:IRIX:*:*) echo mips-sgi-irix${UNAME_RELEASE} exit 0 ;; i[34]86:AIX:*:*) echo i386-ibm-aix exit 0 ;; *:AIX:2:3) echo rs6000-ibm-aix3.2 exit 0 ;; *:AIX:*:*) echo rs6000-ibm-aix exit 0 ;; *:BOSX:*:*) echo rs6000-bull-bosx exit 0 ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit 0 ;; 9000/31?:HP-UX:*:*) echo m68000-hp-hpux exit 0 ;; 9000/[34]??:HP-UX:*:*) echo m68k-hp-hpux exit 0 ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit 0 ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit 0 ;; 9000/7??:HP-UX:*:* | 9000/8?7:HP-UX:*:* ) echo hppa1.1-hp-hpux exit 0 ;; 9000/8??:HP-UX:*:*) echo hppa1.0-hp-hpux exit 0 ;; 3050*:HI-UX:*:*) sed 's/^ //' << EOF >dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF ${CC-cc} dummy.c -o dummy && ./dummy && rm dummy.c dummy && exit 0 rm -f dummy.c dummy echo unknown-hitachi-hiuxwe2 exit 0 ;; 9000/7??:4.3bsd:*:* | 9000/8?7:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit 0 ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit 0 ;; hp7??:OSF1:*:* | hp8?7:OSF1:*:* ) echo hppa1.1-hp-osf exit 0 ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit 0 ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1:*) echo c1-convex-bsd exit 0 ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2:*) echo c2-convex-bsd exit 0 ;; CRAY*X-MP:UNICOS:*:*) echo xmp-cray-unicos exit 0 ;; CRAY*Y-MP:UNICOS:*:*) echo ymp-cray-unicos exit 0 ;; CRAY-2:UNICOS:*:*) echo cray2-cray-unicos exit 0 ;; hp3[0-9][05]:NetBSD:*:*) echo m68k-hp-netbsd${UNAME_RELEASE} exit 0 ;; i[34]86:BSD/386:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit 0 ;; i[34]86:FreeBSD:*:*) echo ${UNAME_MACHINE}-unknown-freebsd${UNAME_RELEASE} exit 0 ;; i[34]86:NetBSD:*:*) echo ${UNAME_MACHINE}-unknown-netbsd${UNAME_RELEASE} exit 0 ;; i[34]86:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux exit 0 ;; i[34]86:UNIX_SV:4.*:*) if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_RELEASE} else echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE} fi exit 0 ;; i[34]86:*:3.2:*) if /bin/uname -X 2>/dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|egrep Release|sed -e 's/.*= //')` (/bin/uname -X|egrep i80486 >/dev/null) && UNAME_MACHINE=i486 echo ${UNAME_MACHINE}-unknown-sco$UNAME_REL else echo ${UNAME_MACHINE}-unknown-sysv32 fi exit 0 ;; # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. earlier versions # are messed up and put the nodename in both sysname and nodename. i[34]86:DYNIX/ptx:4*:*) echo i386-sequent-sysv4 exit 0 ;; Intel:Mach:3*:*) echo i386-unknown-mach3 exit 0 ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit 0 ;; M680[234]0:*:R3V[567]*:*) test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; 3[34]??:*:4.0:*) uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv4 && exit 0 ;; 33[56]0,3???:*:4.0:*) uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv43 && exit 0 ;; m680[234]0:LynxOS:2.2*:*) echo m68k-lynx-lynxos${UNAME_RELEASE} exit 0 ;; i[34]86:LynxOS:2.2*:*) echo i386-lynx-lynxos${UNAME_RELEASE} exit 0 ;; TSUNAMI:LynxOS:2.2*:*) echo sparc-lynx-lynxos${UNAME_RELEASE} exit 0 ;; rs6000:LynxOS:2.2*:*) echo rs6000-lynx-lynxos${UNAME_RELEASE} exit 0 ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit 0 ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit 0 ;; esac #echo '(No uname command or uname output not recognized.)' 1>&2 #echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 cat >dummy.c <&2 exit 1 gdb-4.13/config.sub 777 34562 1752 45510 5623251353 12551 0ustar fnfcygnus#!/bin/sh # Configuration validation subroutine script, version 1.1. # Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc. # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software # can handle that machine. It does not imply ALL GNU software can. #This file 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 2 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, write to the Free Software #Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # It is wrong to echo any other type of specification. if [ x$1 = x ] then echo Configuration name missing. 1>&2 echo "Usage: $0 CPU-MFR-OPSYS" 1>&2 echo "or $0 ALIAS" 1>&2 echo where ALIAS is a recognized configuration type. 1>&2 exit 1 fi # First pass through any local machine types. case $1 in *local*) echo $1 exit 0 ;; *) ;; esac # Separate what the user gave into CPU-COMPANY and OS (if any). basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next* | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ -sim | -cisco) # CYGNUS LOCAL os= basic_machine=$1 ;; -scout) # CYGNUS LOCAL ;; -wrs) # CYGNUS LOCAL os=vxworks basic_machine=$1 ;; -unixware) # CYGNUS LOCAL os=-sysv4 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -hiux*) os=-hiuxwe2 ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -lynx*) os=-lynxos ;; -os9k) os=-os9k ;; -os9) os=-os9 ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. tahoe | i[34]86 | i860 | m68k | m68000 | m88k | ns32k | arm | pyramid \ | tron | a29k | 580 | i960 | hppa1.0 | hppa1.1 \ | alpha | we32k | ns16k | clipper | sparclite | i370 \ | powerpc \ | h8300 | h8300h | sh \ | m88110 | sparc | m680[01234]0 | m683?2 | z8k | v70 \ | v810 \ | h8500 | mips64 | mipsel | mips64el) # CYGNUS LOCAL basic_machine=$basic_machine-unknown ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. vax-* | tahoe-* | i[34]86-* | i860-* | m68k-* | m68000-* | m88k-* \ | sparc-* | ns32k-* | fx80-* | arm-* | c[123]* \ | mips-* | pyramid-* | tron-* | a29k-* | romp-* | rs6000-* \ | none-* | 580-* | cray2-* | i960-* | xmp-* | ymp-* \ | hppa1.0-* | hppa1.1-* | alpha-* | we32k-* | cydra-* | ns16k-* \ | pn-* | np1-* | xps100-* | clipper-* | orion-* | sparclite-* \ | powerpc-* \ | h8300-* | h8300h-* | sh-* \ | m88110-* | m680[01234]0-* | m683?2-* | z8k-* | h8500-* \ | mips64-* | mipsel-* | mips64el-*) # CYGNUS LOCAL ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. sparc64) # CYGNUS LOCAL basic_machine=sparc64-sun os=-elf ;; sparc64-*) # CYGNUS LOCAL ;; mips3-*) # CYGNUS LOCAL basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3) # CYGNUS LOCAL basic_machine=mips64-unknown ;; dpx20 | dpx20-*) # CYGNUS LOCAL basic_machine=rs6000-bull os=-bosx ;; unixware) # CYGNUS LOCAL os=-sysv4 basic_machine=i386-unknown ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; i370-ibm* | ibm*) basic_machine=i370-ibm os=-mvs ;; i386mach) # CYGNUS LOCAL basic_machine=i386-mach os=-mach ;; i[34]86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-sysv32 ;; i[34]86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-sysv4 ;; i[34]86v) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-sysv ;; i[34]86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-solaris2 ;; vsta | i386-vsta) # CYGNUS LOCAL basic_machine=i386-unknown os=-vsta ;; go32 | i386-go32) # CYGNUS LOCAL basic_machine=i386-unknown os=-go32 ;; i386-linux* | linux) # CYGNUS LOCAL basic_machine=i386-unknown os=-linux ;; i386-linux*coff | linuxcoff) # CYGNUS LOCAL basic_machine=i386-unknown os=-linuxcoff ;; i386-linux*elf | linuxelf) # CYGNUS LOCAL basic_machine=i386-unknown os=-linuxelf ;; 386bsd) # CYGNUS LOCAL basic_machine=i386-unknown os=-bsd ;; netbsd386) basic_machine=i386-unknown # CYGNUS LOCAL os=-netbsd ;; spur) basic_machine=spur-unknown ;; paragon) basic_machine=i860-intel os=-osf ;; alliant | fx80) basic_machine=fx80-alliant ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; m88k-omron*) basic_machine=m88k-omron ;; merlin) basic_machine=ns32k-utek os=-sysv ;; crds | unos) basic_machine=m68k-crds ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; genix) basic_machine=ns32k-ns ;; iris | iris4d | \ iris3 | iris4) # CYGNUS LOCAL basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; balance) basic_machine=ns32k-sequent os=-dynix ;; pc532) basic_machine=ns32k-pc532 ;; symmetry) basic_machine=i386-sequent os=-dynix ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun4sol2) # CYGNUS LOCAL basic_machine=sparc-sun os=-solaris2 ;; z8ksim) # CYGNUS LOCAL basic_machine=z8k-zilog os=-sim ;; sun3) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; msdos) # CYGNUS LOCAL basic_machine=i386-unknown os=-msdos ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; ps2) basic_machine=i386-ibm ;; fx2800) basic_machine=i860-alliant ;; next) basic_machine=m68k-next os=-bsd ;; amiga) basic_machine=m68k-cbm ;; amigados) basic_machine=m68k-cbm os=-amigados ;; amigaunix | amix) basic_machine=m68k-cbm os=-sysv4 ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k31[0-9] | hp9k2[0-9][0-9]) basic_machine=m68000-hp ;; hp9k7[0-9][0-9] | hp7[0-9][0-9] | hp9k8[0-9]7 | hp8[0-9]7) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; h3050r* | hppahitachi) basic_machine=hppa1.1-hitachi ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; apollo68bsd) # CYGNUS LOCAL basic_machine=m68k-apollo os=-bsd ;; altos | altos3068) basic_machine=m68k-altos ;; miniframe) basic_machine=m68010-convergent ;; tower | tower-32) basic_machine=m68k-ncr ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; st2000) # CYGNUS LOCAL basic_machine=m68k-tandem ;; m6*bug) # CYGNUS LOCAL basic_machine=m68k-bug os=-coff ;; rom68k) # CYGNUS LOCAL basic_machine=m68k-rom68k os=-coff ;; monitor) # CYGNUS LOCAL basic_machine=m68k-rom68k os=-coff ;; decstation | decstation-3100 | pmax | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; am29k) basic_machine=a29k-none os=-bsd ;; amdahl) basic_machine=580-amdahl os=-sysv ;; stratus) # CYGNUS LOCAL basic_machine=i860-stratus os=-sysv4 ;; cray | ymp) basic_machine=ymp-cray os=-unicos ;; cray2) basic_machine=cray2-cray os=-unicos ;; xmp) basic_machine=xmp-cray os=-unicos ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; h8300hms) # CYGNUS LOCAL basic_machine=h8300-hitachi os=-hms ;; sh*) # CYGNUS LOCAL basic_machine=sh-hitachi os=-hms ;; h8500hms) # CYGNUS LOCAL basic_machine=h8500-hitachi os=-hms ;; h8300xray) # CYGNUS LOCAL basic_machine=h8300-hitachi os=-xray ;; h8300hds) basic_machine=h8300-hitachi os=-hds ;; udi29k) # CYGNUS LOCAL basic_machine=a29k-amd os=-udi ;; a29khif) # CYGNUS LOCAL basic_machine=a29k-amd os=-udi ;; sa29200) # CYGNUS LOCAL basic_machine=a29k-amd os=-udi ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hppaosf) basic_machine=hppa1.1-hp os=-osf ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; necv70) # CYGNUS LOCAL basic_machine=v70-nec os=-sysv ;; v810 | necv810) basic_machine=v810-nec os=-none ;; news1000) basic_machine=m68030-sony os=-newsos ;; nindy960) basic_machine=i960-intel os=-nindy ;; pn) basic_machine=pn-gould ;; np1) basic_machine=np1-gould ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; es1800 | OSE68k | ose68k | ose | OSE) # CYGNUS LOCAL basic_machine=m68k-ericsson os=-ose ;; OSE68000 | ose68000) # CYGNUS LOCAL basic_machine=m68000-ericsson os=-ose ;; os68k) # CYGNUS LOCAL basic_machine=m68k-none os=-os68k ;; sparclite-wrs) # CYGNUS LOCAL basic_machine=sparclite-wrs os=-vxworks ;; sparcfrw) # CYGNUS LOCAL basic_machine=sparcfrw-sun os=-sunos4 ;; sparcfrwcompat) # CYGNUS LOCAL basic_machine=sparcfrwcompat-sun os=-sunos4 ;; sparclitefrw) # CYGNUS LOCAL basic_machine=sparclitefrw-fujitsu ;; sparclitefrwcompat) # CYGNUS LOCAL basic_machine=sparclitefrwcompat-fujitsu ;; adobe68k) # CYGNUS LOCAL basic_machine=m68010-adobe os=-scout ;; xps | xps100) basic_machine=xps100-honeywell ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. mips) basic_machine=mips-mips ;; romp) basic_machine=romp-ibm ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; we32k) basic_machine=we32k-att ;; sparc) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # -solaris* is a basic system type, with this one exception. -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; # First accept the basic system types. # The portable systems comes first. # Each alternative must end in a *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]* | -hpux* \ | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ | -amigados* | -msdos* | -newsos* | -unicos* | -aos* \ | -nindy* | -vxworks* | -ebmon* | -hms* | -mvs* | -clix* \ | -riscos* | -linux* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -netbsd* | -riscix* | -lynxos* \ | -go32 | -vsta | -sim | -es1800* | -udi | -hms* | -xray | -hds* \ | -os68k* | -none* | -v88r* | -aout* | -coff | -elf* | -bosx* \ | -abug | -ecoff* | -netware* | -os9* ) # The last three lines above are CYGNUS LOCAL ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -386bsd) # CYGNUS LOCAL os=-bsd ;; -ctix* | -uts*) os=-sysv ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -unixware) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -ose*) # CYGNUS LOCAL os=-ose ;; -es1800*) # CYGNUS LOCAL os=-ose ;; -cxux7*) os=-cxux7 ;; -xenix) os=-xenix ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $1 | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in *-acorn) os=-riscix1.2 ;; *-dec | vax-*) os=-ultrix4.2 ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 # This also exists in the configure program, but was not the # default. # os=-sunos4 ;; m68*-cisco) os=-aout ;; mips*-cisco) os=-elf ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-ibm) os=-aix ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigados ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m88k-omron*) os=-luna ;; *-sequent) os=-bsd ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-bsd ;; i[34]86-*) os=-sco3.2v2 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-masscomp) os=-rtu ;; *-rom68k) # CYGNUS LOCAL os=-coff ;; *-*bug) # CYGNUS LOCAL os=-coff ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -bosx*) # CYGNUS LOCAL vendor=bull ;; -lynxos*) vendor=lynx ;; -aix*) vendor=ibm ;; -hpux*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs*) vendor=ibm ;; -vxworks*) vendor=wrs # CYGNUS LOCAL ;; -hms*) # CYGNUS LOCAL vendor=hitachi ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os gdb-4.13/config/ 777 34562 1752 0 5623250440 11722 5ustar fnfcygnusgdb-4.13/config/ChangeLog 666 34562 1752 7341 5612031757 13567 0ustar fnfcygnusSat Jul 16 12:17:49 1994 Stan Shebs (shebs@andros.cygnus.com) * mh-cxux: New file, from Bob Rusk (rrusk@mail.csd.harris.com). Sat Jun 4 17:22:12 1994 Per Bothner (bothner@kalessin.cygnus.com) * mh-ncrsvr43: New file from Tom McConnell . Thu May 19 00:32:11 1994 Jeff Law (law@snake.cs.utah.edu) * mh-hpux (CC): Add -Wp,-H256000 to avoid "too much defining" errors from the HPUX 8 compilers. Wed May 4 20:14:47 1994 D. V. Henkel-Wallace (gumby@cygnus.com) * mh-lynxrs6k: set SHELL to /bin/bash Tue Apr 12 12:38:17 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mh-irix4 (CC): Change -XNh1500 to -XNh2000. Sat Dec 25 20:03:45 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * mt-hppa: Delete. Tue Nov 16 22:54:39 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mh-a68bsd: Define CC to gcc. Mon Nov 15 16:56:51 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mh-linux: Don't put -static in LDFLAGS. Add comments. Mon Nov 15 13:37:58 1993 david d `zoo' zuhn (zoo@cirdan.cygnus.com) * mh-sysv4 (AR_FLAGS): change from cq to cr Fri Nov 5 08:12:32 1993 D. V. Henkel-Wallace (gumby@blues.cygnus.com) * mh-unixware: remove. It's the same as sysv4, and config.guess can't tell the difference. So don't allow skew. Wed Oct 20 20:35:14 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mh-hp300: Revert yesterday's change, but add comment explaining. Tue Oct 19 18:58:21 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mh-hp300: Don't define CFLAGS to empty. Why should hp300 be different from anything else? ("gdb doesn't understand the native debug format" isn't a good enough answer because we might be using gcc). Tue Oct 5 12:17:40 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mh-alphaosf: Remove, no longer necessary now that gdb knows how to handle OSF/1 shared libraries. Tue Jul 6 11:27:33 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * mh-alphaosf: New file. Thu Jul 1 15:49:33 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mh-riscos: New file. Mon Jun 14 12:03:18 1993 david d `zoo' zuhn (zoo at rtl.cygnus.com) * mh-aix, mh-aix386, mh-decstation, mh-delta88, mh-hpux, mh-irix4, mh-ncr3000, mh-solaris, mh-sysv, mh-sysv4: remove INSTALL=cp line, now that we're using install.sh globally Fri Jun 4 16:09:34 1993 Ian Lance Taylor (ian@cygnus.com) * mh-sysv4 (INSTALL): Use cp, not /usr/ucb/install. Thu Apr 8 11:21:52 1993 Ian Lance Taylor (ian@cygnus.com) * mt-a29k, mt-ebmon29k, mt-os68k, mt-ose68000, mt-ose68k, mt-vxworks68, mt-vxworks960: Removed obsolete, unused target Makefile fragment files. Mon Mar 8 15:05:25 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * mh-aix386: New file; old mh-aix, plus no-op RANLIB. Thu Oct 1 13:50:48 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * mh-solaris: INSTALL is NOT /usr/ucb/install Mon Aug 24 14:25:35 1992 Ian Lance Taylor (ian@cygnus.com) * mt-ose68000, mt-ose68k: renamed from mt-OSE*. Tue Jul 21 02:11:01 1992 D. V. Henkel-Wallace (gumby@cygnus.com) * mt-OSE68k, mt-680000: new configs. Thu Jul 16 17:12:09 1992 K. Richard Pixley (rich@rtl.cygnus.com) * mh-irix4: merged changes from progressive. Tue Jun 9 23:29:38 1992 Per Bothner (bothner@rtl.cygnus.com) * Everywhere: Change RANLIB=echo>/dev/null (which confuses some shells - and I don't blame them) to RANLIB=true. * mh-solaris: Use /usr/ucb/install for INSTALL. Sun May 31 14:45:23 1992 Mark Eichin (eichin at cygnus.com) * mh-solaris2: Add new configuration for Solaris 2 (sysv, no ranlib) Fri Apr 10 23:10:08 1992 Fred Fish (fnf@cygnus.com) * mh-ncr3000: Add new configuration for NCR 3000. Tue Dec 10 00:10:55 1991 K. Richard Pixley (rich at rtl.cygnus.com) * ChangeLog: fresh changelog. gdb-4.13/config/mh-a68bsd 666 34562 1752 726 5472327437 13420 0ustar fnfcygnusRANLIB=true #None of the Apollo compilers can compile gas or binutils. The preprocessor # chokes on bfd, the compiler won't let you assign integers to enums, and # other problems. Defining CC to gcc is a questionable way to say "don't use # the apollo compiler" (the preferred version of GCC could be called cc, # or whatever), but I'm not sure leaving CC as cc is any better... #CC=cc -A ansi -A runtype,any -A systype,any -U__STDC__ -DNO_STDARG CC=gcc BISON=yacc gdb-4.13/config/mh-aix 666 34562 1752 254 5407462156 13102 0ustar fnfcygnus# X11 #X11_HOME_DIRECTORY=/usr/lpp/X11 X11_HOME_DIRECTORY=/usr/unsupported X11_INCLUDE_FLAGS = -I$(X11_HOME_DIRECTORY)/include X11_LIB_FLAGS = -L$(X11_HOME_DIRECTORY)/lib gdb-4.13/config/mh-aix386 666 34562 1752 14 5407462157 13316 0ustar fnfcygnusRANLIB = @: gdb-4.13/config/mh-apollo68 666 34562 1752 133 5215320770 13751 0ustar fnfcygnusHDEFINES = -DUSG RANLIB=true CC= cc -A ansi -A runtype,any -A systype,any -U__STDC__ -DUSG gdb-4.13/config/mh-cxux 666 34562 1752 656 5612031756 13312 0ustar fnfcygnus# Configuration for Harris CX/UX 7 (and maybe 6), based on sysv4 configuration. # Define SYSV as -DSYSV if you are using a System V operating system. SYSV = -DSYSV -DSVR4 RANLIB = true # C++ debugging is not yet supported under SVR4 (DWARF) CXXFLAGS=-O # The l flag generates a warning from the SVR4 archiver, remove it. AR_FLAGS = cq # Under CX/UX, we want to tell the compiler to use ANSI mode. CFLAGS=-Xa -g LDFLAGS=-Xa -g gdb-4.13/config/mh-decstation 666 34562 1752 271 5407462161 14451 0ustar fnfcygnusCC = cc -Wf,-XNg1000 # for X11, since the native DECwindows include files are really broken when # it comes to function prototypes. X11_INCLUDE_FLAGS = "-DNeedFunctionPrototypes=0" gdb-4.13/config/mh-delta88 666 34562 1752 21 5407462163 13540 0ustar fnfcygnusRANLIB = true gdb-4.13/config/mh-dgux 666 34562 1752 114 5215320773 13256 0ustar fnfcygnusHDEFINES=-DHOST_SYS=DGUX_SYS CC=gcc -Wall -ansi -D__using_DGUX RANLIB=true gdb-4.13/config/mh-go32 666 34562 1752 1062 5604662670 13113 0ustar fnfcygnusCC=i386-go32-gcc AR=i386-go32-ar RANLIB=i386-go32-ranlib CC_FOR_BUILD=gcc HOST_CC=gcc HOST_CFLAGS= CFLAGS=-O2 -fno-omit-frame-pointer -Xlinker -S HOST_PREFIX=foo HOST_PREFIX_1=foo RANLIB=i386-go32-ranlib AR=i386-go32-ar GCC_FOR_TARGET=${target_alias}-gcc CXX_FOR_TARGET=${target_alias}-gcc CC_FOR_TARGET=${target_alias}-gcc AS_FOR_TARGET=${target_alias}-as AR_FOR_TARGET=${target_alias}-ar NM_FOR_TARGET=${target_alias}-nm RANLIB_FOR_TARGET=${target_alias}-ranlib HOST_PREFIX=cross HOST_PREFIX_1=cross MAKEINFOFLAGS=--no-split INSTALL_DOSREL=install-dosrel gdb-4.13/config/mh-hp300 666 34562 1752 605 5461363763 13157 0ustar fnfcygnus# Define SYSV as -DSYSV if you are using a System V operating system. SYSV = -DSYSV RANLIB = true # Native cc can't bootstrap gcc with -g. Defining CFLAGS here loses (a) # for non-gcc directories, (b) if we are compiling with gcc, not # native cc. Neither (a) nor (b) has a trivial fix though. CFLAGS = # X11 X11_INCLUDE_FLAGS = -I/usr/include/X11R5 X11_LIB_FLAGS = -L/usr/lib/X11R5 gdb-4.13/config/mh-hpux 666 34562 1752 311 5566604313 13276 0ustar fnfcygnus# Define SYSV as -DSYSV if you are using a System V operating system. CC = cc -Wp,-H256000 SYSV = -DSYSV RANLIB = true # X11 X11_INCLUDE_FLAGS = -I/usr/include/X11R4 X11_LIB_FLAGS = -L/usr/lib/X11R4 gdb-4.13/config/mh-irix4 666 34562 1752 421 5552547271 13357 0ustar fnfcygnus# Makefile changes for SGI's running IRIX-4.x. # Tell compiler to use K&R C. We can't compile under the SGI Ansi # environment. Also bump switch table size so that cp-parse will # compile. CC = cc -cckr -Wf,-XNg1500 -Wf,-XNk1000 -Wf,-XNh2000 SYSV = -DSYSV RANLIB = true gdb-4.13/config/mh-irix5 666 34562 1752 113 5477441623 13356 0ustar fnfcygnus# Makefile changes for SGI's running IRIX-5.x. SYSV = -DSYSV RANLIB = true gdb-4.13/config/mh-linux 666 34562 1752 410 5472005120 13434 0ustar fnfcygnus# Define SYSV as -DSYSV if you are using a System V operating system. # FIXME: What is this used for? It should go away (and even if it hasn't, # it's not clear linux should define it). SYSV = -DSYSV RANLIB = ranlib # What is this doing here? #LDFLAGS = -static gdb-4.13/config/mh-lynxos 666 34562 1752 116 5421606160 13641 0ustar fnfcygnus# /bin/cc is less than useful for our purposes. Always use GCC CC = /bin/gcc gdb-4.13/config/mh-lynxrs6k 666 34562 1752 354 5575250225 14120 0ustar fnfcygnus# LynxOS running on the rs6000 doesn't have ranlib RANLIB = true # /bin/cc is less than useful for our purposes. Always use GCC CC = /usr/cygnus/progressive/bin/gcc # /bin/sh is too buggy, so use /bin/bash instead. SHELL = /bin/bash gdb-4.13/config/mh-ncr3000 666 34562 1752 1306 5407462167 13427 0ustar fnfcygnus# Host configuration file for an NCR 3000 (i486/SVR4) system. # The NCR 3000 ships with a MetaWare compiler installed as /bin/cc. # This compiler not only emits obnoxious copyright messages every time # you run it, but it chokes and dies on a whole bunch of GNU source # files. Default to using the AT&T compiler installed in /usr/ccs/ATT/cc. # Unfortunately though, the AT&T compiler sometimes generates code that # the assembler barfs on if -g is used, so disable it by default as well. CC = /usr/ccs/ATT/cc CFLAGS = # Define SYSV as -DSYSV if you are using a System V operating system. SYSV = -DSYSV -DSVR4 RANLIB = true # The l flag generates a warning from the SVR4 archiver, remove it. AR_FLAGS = cq gdb-4.13/config/mh-ncrsvr43 666 34562 1752 547 5574215373 14014 0ustar fnfcygnus# Host configuration file for an NCR 3000 (i486/SVR43) system. # The MetaWare compiler will generate a copyright message unless you # turn it off. CFLAGS = -g -Hnocopyr # Define SYSV as -DSYSV if you are using a System V operating system. SYSV = -DSYSV -DSVR4 RANLIB = true # The l flag generates a warning from the SVR4 archiver, remove it. AR_FLAGS = cq gdb-4.13/config/mh-riscos 666 34562 1752 1200 5414650053 13624 0ustar fnfcygnus# This is for a MIPS running RISC/os 4.52C. # This is needed for GDB, but needs to be in the top-level make because # if a library is compiled with the bsd headers and gets linked with the # sysv system libraries all hell can break loose (e.g. a jmp_buf might be # a different size). # ptrace(2) apparently has problems in the BSD environment. No workaround is # known except to select the sysv environment. Could we use /proc instead? # These "sysv environments" and "bsd environments" often end up being a pain. # # This is not part of CFLAGS because perhaps not all C compilers have this # option. CC= cc -systype sysv RANLIB = true gdb-4.13/config/mh-sco 666 34562 1752 327 5330410557 13077 0ustar fnfcygnus# Define SYSV as -DSYSV if you are using a System V operating system. SYSV = -DSYSV RANLIB = true # You may need this if you don't have bison. # BISON = yacc -Sm10400 X11_LIB = -lX11_s -lsocket -lm -lintl -lmalloc gdb-4.13/config/mh-solaris 666 34562 1752 730 5407462171 13771 0ustar fnfcygnus# Makefile changes for Suns running Solaris 2 SYSV = -DSYSV RANLIB = true CFLAGS = -g # if you're using Sun's C compiler, add -xs to the CFLAGS line # this is for Emacs, since Sun's ANSI mode preprocessor does some # very wierd things to the input stream, breaking $(FOO) into # $ ( FOO ), which breaks the ymakefile system that Emacs uses CC = cc -Xs # X11 OPENWINHOME = /usr/openwin X11_INCLUDE_FLAGS = -I$(OPENWINHOME)/include X11_LIB_FLAGS = -L$(OPENWINHOME)/lib gdb-4.13/config/mh-sun 666 34562 1752 164 5306516112 13114 0ustar fnfcygnus# X11 OPENWINHOME = /usr/openwin X11_INCLUDE_FLAGS = -I$(OPENWINHOME)/include X11_LIB_FLAGS = -L$(OPENWINHOME)/lib gdb-4.13/config/mh-sun3 666 34562 1752 414 5355743023 13204 0ustar fnfcygnus# X11 OPENWINHOME = /usr/openwin X11_INCLUDE_FLAGS = -I$(OPENWINHOME)/include X11_LIB_FLAGS = -L$(OPENWINHOME)/lib # Sun's C compiler needs the -J flag to be able to compile cp-parse.c # without overflowing the jump tables (-J says to use a 32 bit table) CC = cc -J gdb-4.13/config/mh-sysv 666 34562 1752 142 5407462173 13320 0ustar fnfcygnus# Define SYSV as -DSYSV if you are using a System V operating system. SYSV = -DSYSV RANLIB = true gdb-4.13/config/mh-sysv4 666 34562 1752 533 5471774067 13421 0ustar fnfcygnus# Define SYSV as -DSYSV if you are using a System V operating system. SYSV = -DSYSV -DSVR4 RANLIB = true # C++ debugging is not yet supported under SVR4 (DWARF) CXXFLAGS=-O # The l flag generates a warning from the SVR4 archiver, remove it. AR_FLAGS = cr X11_INCLUDE_FLAGS = -I/usr/X/include X11_LIB_FLAGS = -L/usr/X/lib X11_LIB = -lX11 -lnsl gdb-4.13/config/mh-vaxult2 666 34562 1752 111 5345046041 13706 0ustar fnfcygnus# The old BSD pcc isn't up to compiling parts of gdb so use gcc CC = gcc gdb-4.13/config/mt-v810 666 34562 1752 144 5601617207 13024 0ustar fnfcygnusCC = ca732 AS = as732 AR = ar732 RANLIB = true NEWLIB_CFLAGS = TARGET_CFLAGS = CFLAGS = INCLUDES = gdb-4.13/move-if-change 777 34562 1752 201 5175067250 13230 0ustar fnfcygnus#!/bin/sh if test -r $2 then if cmp $1 $2 > /dev/null then echo $2 is unchanged rm -f $1 else mv -f $1 $2 fi else mv -f $1 $2 fi gdb-4.13/COPYING 666 34562 1752 43076 5242127263 11625 0ustar fnfcygnus GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. gdb-4.13/COPYING.LIB 666 34562 1752 61261 5262156007 12226 0ustar fnfcygnus GNU LIBRARY GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. [This is the first released version of the library GPL. It is numbered 2 because it goes with version 2 of the ordinary GPL.] Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public Licenses are intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This license, the Library General Public License, applies to some specially designated Free Software Foundation software, and to any other libraries whose authors decide to use it. You can use it for your libraries, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the library, or if you modify it. For example, if you distribute copies of the library, whether gratis or for a fee, you must give the recipients all the rights that we gave you. You must make sure that they, too, receive or can get the source code. If you link a program with the library, you must provide complete object files to the recipients so that they can relink them with the library, after making changes to the library and recompiling it. And you must show them these terms so they know their rights. Our method of protecting your rights has two steps: (1) copyright the library, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the library. Also, for each distributor's protection, we want to make certain that everyone understands that there is no warranty for this free library. If the library is modified by someone else and passed on, we want its recipients to know that what they have is not the original version, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that companies distributing free software will individually obtain patent licenses, thus in effect transforming the program into proprietary software. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. Most GNU software, including some libraries, is covered by the ordinary GNU General Public License, which was designed for utility programs. This license, the GNU Library General Public License, applies to certain designated libraries. This license is quite different from the ordinary one; be sure to read it in full, and don't assume that anything in it is the same as in the ordinary license. The reason we have a separate public license for some libraries is that they blur the distinction we usually make between modifying or adding to a program and simply using it. Linking a program with a library, without changing the library, is in some sense simply using the library, and is analogous to running a utility program or application program. However, in a textual and legal sense, the linked executable is a combined work, a derivative of the original library, and the ordinary General Public License treats it as such. Because of this blurred distinction, using the ordinary General Public License for libraries did not effectively promote software sharing, because most developers did not use the libraries. We concluded that weaker conditions might promote sharing better. However, unrestricted linking of non-free programs would deprive the users of those programs of all benefit from the free status of the libraries themselves. This Library General Public License is intended to permit developers of non-free programs to use free libraries, while preserving your freedom as a user of such programs to change the free libraries that are incorporated in them. (We have not seen how to achieve this as regards changes in header files, but we have achieved it as regards changes in the actual functions of the Library.) The hope is that this will lead to faster development of free libraries. The precise terms and conditions for copying, distribution and modification follow. Pay close attention to the difference between a "work based on the library" and a "work that uses the library". The former contains code derived from the library, while the latter only works together with the library. Note that it is possible for a library to be covered by the ordinary General Public License rather than by this special one. GNU LIBRARY GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any software library which contains a notice placed by the copyright holder or other authorized party saying it may be distributed under the terms of this Library General Public License (also called "this License"). Each licensee is addressed as "you". A "library" means a collection of software functions and/or data prepared so as to be conveniently linked with application programs (which use some of those functions and data) to form executables. The "Library", below, refers to any such software library or work which has been distributed under these terms. A "work based on the Library" means either the Library or any derivative work under copyright law: that is to say, a work containing the Library or a portion of it, either verbatim or with modifications and/or translated straightforwardly into another language. (Hereinafter, translation is included without limitation in the term "modification".) "Source code" for a work means the preferred form of the work for making modifications to it. For a library, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the library. Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running a program using the Library is not restricted, and output from such a program is covered only if its contents constitute a work based on the Library (independent of the use of the Library in a tool for writing it). Whether that is true depends on what the Library does and what the program that uses the Library does. 1. You may copy and distribute verbatim copies of the Library's complete source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and distribute a copy of this License along with the Library. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Library or any portion of it, thus forming a work based on the Library, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) The modified work must itself be a software library. b) You must cause the files modified to carry prominent notices stating that you changed the files and the date of any change. c) You must cause the whole of the work to be licensed at no charge to all third parties under the terms of this License. d) If a facility in the modified Library refers to a function or a table of data to be supplied by an application program that uses the facility, other than as an argument passed when the facility is invoked, then you must make a good faith effort to ensure that, in the event an application does not supply such function or table, the facility still operates, and performs whatever part of its purpose remains meaningful. (For example, a function in a library to compute square roots has a purpose that is entirely well-defined independent of the application. Therefore, Subsection 2d requires that any application-supplied function or table used by this function must be optional: if the application does not supply it, the square root function must still compute square roots.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Library, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Library, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Library. In addition, mere aggregation of another work not based on the Library with the Library (or with a work based on the Library) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may opt to apply the terms of the ordinary GNU General Public License instead of this License to a given copy of the Library. To do this, you must alter all the notices that refer to this License, so that they refer to the ordinary GNU General Public License, version 2, instead of to this License. (If a newer version than version 2 of the ordinary GNU General Public License has appeared, then you can specify that version instead if you wish.) Do not make any other change in these notices. Once this change is made in a given copy, it is irreversible for that copy, so the ordinary GNU General Public License applies to all subsequent copies and derivative works made from that copy. This option is useful when you wish to copy part of the code of the Library into a program that is not a library. 4. You may copy and distribute the Library (or a portion or derivative of it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange. If distribution of object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place satisfies the requirement to distribute the source code, even though third parties are not compelled to copy the source along with the object code. 5. A program that contains no derivative of any portion of the Library, but is designed to work with the Library by being compiled or linked with it, is called a "work that uses the Library". Such a work, in isolation, is not a derivative work of the Library, and therefore falls outside the scope of this License. However, linking a "work that uses the Library" with the Library creates an executable that is a derivative of the Library (because it contains portions of the Library), rather than a "work that uses the library". The executable is therefore covered by this License. Section 6 states terms for distribution of such executables. When a "work that uses the Library" uses material from a header file that is part of the Library, the object code for the work may be a derivative work of the Library even though the source code is not. Whether this is true is especially significant if the work can be linked without the Library, or if the work is itself a library. The threshold for this to be true is not precisely defined by law. If such an object file uses only numerical parameters, data structure layouts and accessors, and small macros and small inline functions (ten lines or less in length), then the use of the object file is unrestricted, regardless of whether it is legally a derivative work. (Executables containing this object code plus portions of the Library will still fall under Section 6.) Otherwise, if the work is a derivative of the Library, you may distribute the object code for the work under the terms of Section 6. Any executables containing that work also fall under Section 6, whether or not they are linked directly with the Library itself. 6. As an exception to the Sections above, you may also compile or link a "work that uses the Library" with the Library to produce a work containing portions of the Library, and distribute that work under terms of your choice, provided that the terms permit modification of the work for the customer's own use and reverse engineering for debugging such modifications. You must give prominent notice with each copy of the work that the Library is used in it and that the Library and its use are covered by this License. You must supply a copy of this License. If the work during execution displays copyright notices, you must include the copyright notice for the Library among them, as well as a reference directing the user to the copy of this License. Also, you must do one of these things: a) Accompany the work with the complete corresponding machine-readable source code for the Library including whatever changes were used in the work (which must be distributed under Sections 1 and 2 above); and, if the work is an executable linked with the Library, with the complete machine-readable "work that uses the Library", as object code and/or source code, so that the user can modify the Library and then relink to produce a modified executable containing the modified Library. (It is understood that the user who changes the contents of definitions files in the Library will not necessarily be able to recompile the application to use the modified definitions.) b) Accompany the work with a written offer, valid for at least three years, to give the same user the materials specified in Subsection 6a, above, for a charge no more than the cost of performing this distribution. c) If distribution of the work is made by offering access to copy from a designated place, offer equivalent access to copy the above specified materials from the same place. d) Verify that the user has already received a copy of these materials or that you have already sent this user a copy. For an executable, the required form of the "work that uses the Library" must include any data and utility programs needed for reproducing the executable from it. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. It may happen that this requirement contradicts the license restrictions of other proprietary libraries that do not normally accompany the operating system. Such a contradiction means you cannot use both them and the Library together in an executable that you distribute. 7. You may place library facilities that are a work based on the Library side-by-side in a single library together with other library facilities not covered by this License, and distribute such a combined library, provided that the separate distribution of the work based on the Library and of the other library facilities is otherwise permitted, and provided that you do these two things: a) Accompany the combined library with a copy of the same work based on the Library, uncombined with any other library facilities. This must be distributed under the terms of the Sections above. b) Give prominent notice with the combined library of the fact that part of it is a work based on the Library, and explaining where to find the accompanying uncombined form of the same work. 8. You may not copy, modify, sublicense, link with, or distribute the Library except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense, link with, or distribute the Library is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 9. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Library or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Library (or any work based on the Library), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Library or works based on it. 10. Each time you redistribute the Library (or any work based on the Library), the recipient automatically receives a license from the original licensor to copy, distribute, link with or modify the Library subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 11. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Library at all. For example, if a patent license would not permit royalty-free redistribution of the Library by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Library. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply, and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 12. If the distribution and/or use of the Library is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Library under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 13. The Free Software Foundation may publish revised and/or new versions of the Library General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Library specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Library does not specify a license version number, you may choose any version ever published by the Free Software Foundation. 14. If you wish to incorporate parts of the Library into other free programs whose distribution conditions are incompatible with these, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Libraries If you develop a new library, and you want it to be of the greatest possible use to the public, we recommend making it free software that everyone can redistribute and change. You can do so by permitting redistribution under these terms (or, alternatively, under the terms of the ordinary General Public License). To apply these terms, attach the following notices to the library. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the library, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the library `Frob' (a library for tweaking knobs) written by James Random Hacker. , 1 April 1990 Ty Coon, President of Vice That's all there is to it! gdb-4.13/install.sh 777 34562 1752 11065 5557535334 12603 0ustar fnfcygnus#!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5. # # $XConsortium: install.sh,v 1.2 89/12/18 14:47:22 jim Exp $ # # This script is compatible with the BSD install script, but was written # from scratch. # # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" mkdirprog="${MKDIRPROG-mkdir}" tranformbasename="" transform_arg="" instcmd="$mvprog" chmodcmd="$chmodprog 0755" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" dir_arg="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -d) dir_arg=true shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; -t=*) transformarg=`echo $1 | sed 's/-t=//'` shift continue;; -b=*) transformbasename=`echo $1 | sed 's/-b=//'` shift continue;; *) if [ x"$src" = x ] then src=$1 else # this colon is to work around a 386BSD /bin/sh bug : dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 else true fi if [ x"$dir_arg" != x ]; then dst=$src src="" if [ -d $dst ]; then instcmd=: else instcmd=mkdir fi else # Waiting for this to be detected by the "$instcmd $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if [ -f $src -o -d $src ] then true else echo "install: $src does not exist" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 else true fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` else true fi fi ## this sed command emulates the dirname command dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` # Make sure that the destination directory exists. # this part is taken from Noah Friedman's mkinstalldirs script # Skip lots of stat calls in the usual case. if [ ! -d "$dstdir" ]; then defaultIFS=' ' IFS="${IFS-${defaultIFS}}" oIFS="${IFS}" # Some sh's can't handle IFS=/ for some reason. IFS='%' set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` IFS="${oIFS}" pathcomp='' while [ $# -ne 0 ] ; do pathcomp="${pathcomp}${1}" shift if [ ! -d "${pathcomp}" ] ; then $mkdirprog "${pathcomp}" else true fi pathcomp="${pathcomp}/" done fi if [ x"$dir_arg" != x ] then $doit $instcmd $dst && if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi else # If we're going to rename the final executable, determine the name now. if [ x"$transformarg" = x ] then dstfile=`basename $dst` else dstfile=`basename $dst $transformbasename | sed $transformarg`$transformbasename fi # don't allow the sed command to completely eliminate the filename if [ x"$dstfile" = x ] then dstfile=`basename $dst` else true fi # Make a temp file name in the proper directory. dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp && trap "rm -f ${dsttmp}" 0 && # and set any options; do chmod last to preserve setuid bits # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $instcmd $src $dsttmp" command. if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && # Now rename the file to the real destination. $doit $rmcmd -f $dstdir/$dstfile && $doit $mvcmd $dsttmp $dstdir/$dstfile fi && exit 0 gdb-4.13/bfd/ 777 34562 1752 0 5623251723 11215 5ustar fnfcygnusgdb-4.13/bfd/config/ 777 34562 1752 0 5623250401 12452 5ustar fnfcygnusgdb-4.13/bfd/config/README 666 34562 1752 2574 5602365655 13441 0ustar fnfcygnusThis directory contains target (.mt) and host (.mh) specific Makefile fragments. They get added to the Makefile that configure builds. They are used by {bfd,opcodes,binutils}/configure.in. make variables that can be set in *.mt: configure.in figures out which .o files to compile into libbfd.a, and sets make variable TDEFAULTS, based on these first three variables: DEFAULT_VECTOR=icoff_little_vec The default target; if not specified, there is no default. Used in targets.c. Not used if the target is an argument to --enable-targets. SELECT_VECS=icoff_big_vec b_out_vec_little_host b_out_vec_big_host Any additional targets to support when this target is configured in. Used in targets.c. Not used if configured with --enable-targets=all. SELECT_ARCHITECTURES=bfd_h8500_arch Architectures to support; used in archures.c. Not used if configured with --enable-targets=all. TDEFINES = target-specific cc flags for BFD make variables that can be set in *.mh: AR = ar program AR_FLAGS = cq if the default rc runs out of memory CC = cc program CFLAGS = cc flags that also get passed to mkdep and used to compile gen-aout and subdirectories HDEFINES = host-specific cc flags for BFD HDEPFILES = .o files to add to libbfd.a (trad-core.o) INSTALL = install program LDFLAGS = used to compile chew in doc subdirectory (-lmalloc) RANLIB = ranlib program or dummy (echo or true, they're equivalent) gdb-4.13/bfd/config/a29k-aout.mt 666 34562 1752 220 5431027374 14572 0ustar fnfcygnus# Target: AMD 29k using a.out # this isn't full encap, but works for .o files. DEFAULT_VECTOR=sunos_big_vec SELECT_ARCHITECTURES=bfd_a29k_arch gdb-4.13/bfd/config/a29k-coff.mt 666 34562 1752 174 5431027375 14550 0ustar fnfcygnus# Target: AMD 29k using coff DEFAULT_VECTOR=a29kcoff_big_vec SELECT_VECS=sunos_big_vec SELECT_ARCHITECTURES=bfd_a29k_arch gdb-4.13/bfd/config/adobe.mt 666 34562 1752 115 5431027376 14135 0ustar fnfcygnus# Target: a.out.adobe format, any processor DEFAULT_VECTOR=a_out_adobe_vec gdb-4.13/bfd/config/alpha-nlm.mt 666 34562 1752 404 5477244522 14741 0ustar fnfcygnus# Target: Alpha using Novell's NetWare Loadable Module (NLM) format. # Note that we produce ECOFF output and only convert it at the last # moment to NLMs. DEFAULT_VECTOR=ecoffalpha_little_vec SELECT_VECS=nlm32_alpha_vec SELECT_ARCHITECTURES=bfd_alpha_arch gdb-4.13/bfd/config/alphaosf.mh 666 34562 1752 52 5517332471 14624 0ustar fnfcygnusHDEFINES= -DOSF_CORE HDEPFILES=osf-core.o gdb-4.13/bfd/config/alphaosf.mt 666 34562 1752 146 5477172631 14671 0ustar fnfcygnus# Target: Alpha running OSF DEFAULT_VECTOR=ecoffalpha_little_vec SELECT_ARCHITECTURES=bfd_alpha_arch gdb-4.13/bfd/config/amix.mh 666 34562 1752 162 5130331707 13777 0ustar fnfcygnus# FIXME: Add "-Wall -ansi" to CC when problems are resolved. CC = /usr/public/bin/gcc AR_FLAGS = cq RANLIB = echo gdb-4.13/bfd/config/apollo.mh 666 34562 1752 213 5457105170 14331 0ustar fnfcygnus# Apollo cc can't get through all of bfd no matter what options you # give it. Use gcc instead. HDEFINES = RANLIB=echo >/dev/null CC= gcc gdb-4.13/bfd/config/apollo.mt 666 34562 1752 177 5457105171 14357 0ustar fnfcygnus# Target: Motorola 68000 using COFF TDEPFILES=coff-apollo.o DEFAULT_VECTOR=apollocoff_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/apollov68.mh 666 34562 1752 463 5244256204 14703 0ustar fnfcygnus# vasta@apollo.com says this is how to compile on an Apollo (SR10.x). # Use a Berkeley environment. # sef@Cygnus.COM says this is how to compile on an apollo in the SysV # environment. CC=cc -A nansi -A cpu,3000 -A runtype,any -A systype,any -DSHORT_ENUM_BUG -DUSG -U__STDC__ -Dm68000=mc68000 RANLIB = echo gdb-4.13/bfd/config/bigmips.mt 666 34562 1752 201 5450630145 14504 0ustar fnfcygnus# Target: Big-Endian MIPS machine. DEFAULT_VECTOR=ecoff_big_vec SELECT_VECS=ecoff_little_vec SELECT_ARCHITECTURES=bfd_mips_arch gdb-4.13/bfd/config/decstation.mh 666 34562 1752 60 5244007464 15161 0ustar fnfcygnusHDEFINES=-DTRAD_CORE -G 4 HDEPFILES=trad-core.o gdb-4.13/bfd/config/decstation.mt 666 34562 1752 202 5450630146 15211 0ustar fnfcygnus# Target: DECstation running ULTRIX DEFAULT_VECTOR=ecoff_little_vec SELECT_VECS=ecoff_big_vec SELECT_ARCHITECTURES=bfd_mips_arch gdb-4.13/bfd/config/delta68.mh 666 34562 1752 120 5415050776 14314 0ustar fnfcygnus# Motorola Delta Seris sysV68 R3V7.1 HDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/delta88.mh 666 34562 1752 132 5474206275 14323 0ustar fnfcygnus#CC=gcc -Wall -ansi RANLIB=echo INSTALL=cp HDEFINES=-DPTRACE_CORE HDEPFILES=ptrace-core.o gdb-4.13/bfd/config/dgux.mh 666 34562 1752 56 5101636237 13776 0ustar fnfcygnusCC=gcc -Wall -ansi -D__using_DGUX RANLIB=echo gdb-4.13/bfd/config/dpx2.mh 666 34562 1752 53 5420120341 13665 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/esix.mh 666 34562 1752 207 5425060126 14012 0ustar fnfcygnus# ESIX 5.3.2 D (one of the 3 zillion variants of sysv3 for the 386). RANLIB = /bin/true HDEFINES = -DTRAD_CORE HDEPFILES = trad-core.o gdb-4.13/bfd/config/go32.mh 666 34562 1752 163 5562511117 13620 0ustar fnfcygnusCC_FOR_BUILD=gcc CC=i386-go32-gcc -fno-omit-frame-pointer -O2 -Xlinker -S AR=i386-go32-ar RANLIB=i386-go32-ranlib gdb-4.13/bfd/config/h8300-coff.mt 666 34562 1752 207 5432502224 14531 0ustar fnfcygnus# Target: Hitachi H8/300 using COFF and S-Record object file format DEFAULT_VECTOR=h8300coff_vec SELECT_ARCHITECTURES=bfd_h8300_arch gdb-4.13/bfd/config/h8500-coff.mt 666 34562 1752 165 5432502226 14540 0ustar fnfcygnus# Target: Hitachi H8/500 using COFF and Srecords DEFAULT_VECTOR= h8500coff_vec SELECT_ARCHITECTURES=bfd_h8500_arch gdb-4.13/bfd/config/harris.mh 666 34562 1752 65 5110276016 14312 0ustar fnfcygnusHDEFINES=-DHOST_SYS=HARRIS CC=cc -v -Xa RANLIB=echo gdb-4.13/bfd/config/hp300.mh 666 34562 1752 116 5423566357 13712 0ustar fnfcygnus# HP/300 (m68k) host running HPUX. HDEFINES=-DHPUX_CORE HDEPFILES=hpux-core.o gdb-4.13/bfd/config/hp300bsd.mh 666 34562 1752 53 5101636240 14341 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/hp300bsd.mt 666 34562 1752 143 5431027406 14401 0ustar fnfcygnus# Target: HP 300 running BSD Unix. DEFAULT_VECTOR=hp300bsd_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/hp300hpux.mt 666 34562 1752 100 5431027410 14601 0ustar fnfcygnusDEFAULT_VECTOR=hp300hpux_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/hppa-elf.mt 666 34562 1752 105 5437521320 14550 0ustar fnfcygnusDEFAULT_VECTOR=bfd_elf32_hppa_vec SELECT_ARCHITECTURES=bfd_hppa_arch gdb-4.13/bfd/config/hppabsd.mh 666 34562 1752 156 5470546702 14477 0ustar fnfcygnus# HPPA host running BSD. RANLIB=echo HDEFINES=-DHPUX_CORE -DHPPABSD_CORE HDEPFILES=hpux-core.o hppabsd-core.o gdb-4.13/bfd/config/hppabsd.mt 666 34562 1752 131 5525616521 14502 0ustar fnfcygnusDEFAULT_VECTOR=som_vec SELECT_ARCHITECTURES=bfd_hppa_arch SELECT_VECS=bfd_elf32_hppa_vec gdb-4.13/bfd/config/hppahpux.mh 666 34562 1752 105 5423566362 14707 0ustar fnfcygnus# HPPA host running HPUX. HDEFINES=-DHPUX_CORE HDEPFILES=hpux-core.o gdb-4.13/bfd/config/hppahpux.mt 666 34562 1752 72 5461560660 14703 0ustar fnfcygnusDEFAULT_VECTOR=som_vec SELECT_ARCHITECTURES=bfd_hppa_arch gdb-4.13/bfd/config/hppaosf.mh 666 34562 1752 46 5525616520 14471 0ustar fnfcygnus# HPPA host running OSF1. RANLIB=echo gdb-4.13/bfd/config/hppaosf.mt 666 34562 1752 131 5525616516 14525 0ustar fnfcygnusDEFAULT_VECTOR=som_vec SELECT_ARCHITECTURES=bfd_hppa_arch SELECT_VECS=bfd_elf32_hppa_vec gdb-4.13/bfd/config/i386-aout.mt 666 34562 1752 143 5431027416 14516 0ustar fnfcygnus# Target: Intel 386 running a.out DEFAULT_VECTOR=i386aout_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386-bsd.mt 666 34562 1752 155 5431027417 14322 0ustar fnfcygnus# Target: Intel 386 running bsd, using a.out DEFAULT_VECTOR=i386bsd_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386-coff.mt 666 34562 1752 143 5431027420 14456 0ustar fnfcygnus# Target: Intel 386 running coff. DEFAULT_VECTOR=i386coff_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386-dynix.mt 666 34562 1752 152 5546237375 14717 0ustar fnfcygnus# Target: Intel 386 running dynix a.out DEFAULT_VECTOR=i386dynix_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386-elf.mt 666 34562 1752 200 5431625431 14307 0ustar fnfcygnus# Target: Intel i386 using ELF. DEFAULT_VECTOR=bfd_elf32_i386_vec SELECT_VECS=i386coff_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386-linux.mt 666 34562 1752 217 5431625432 14711 0ustar fnfcygnus# Target: Intel 386 running linux using a.out DEFAULT_VECTOR=i386linux_vec SELECT_VECS=bfd_elf32_i386_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386-lynx.mt 666 34562 1752 254 5473171615 14552 0ustar fnfcygnus# Target: Intel 386 running LynxOS (a.out and coff, defaulting to coff) DEFAULT_VECTOR=i386lynx_coff_vec SELECT_VECS=i386lynx_aout_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386-mach3.mt 666 34562 1752 145 5606352635 14553 0ustar fnfcygnus# Target: Intel 386 running Mach 3 DEFAULT_VECTOR=i386mach3_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386-netbsd.mt 666 34562 1752 225 5514064520 15025 0ustar fnfcygnus# Target: Intel 386 running netbsd, using (modified) a.out DEFAULT_VECTOR=netbsd386_vec SELECT_VECS=i386bsd_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386-nlm.mt 666 34562 1752 736 5527013551 14345 0ustar fnfcygnus# Target: Intel i386 using Novell's NetWare Loadable Module (NLM) format. # Note that we produce elf output and only convert it at the last # moment to NLMs. We could in principle generate NLMs directly, but I # don't think the format is really rich enough to do this, and anyway, # this can be more convenient for the user. We can convert coff too. DEFAULT_VECTOR=bfd_elf32_i386_vec SELECT_VECS=nlm32_i386_vec i386coff_vec i386aout_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/news.mh 666 34562 1752 53 5405202266 13776 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/i386-os9k.mt 666 34562 1752 143 5534502402 14430 0ustar fnfcygnus# Target: Intel 386 running os9k DEFAULT_VECTOR=i386os9k_vec SELECT_ARCHITECTURES=bfd_i386_arch gdb-4.13/bfd/config/i386aix.mh 666 34562 1752 213 5430603444 14234 0ustar fnfcygnus# Host configuration for i[34]86 ps/2 running aix 1.2.x HDEFINES=-DFASCIST_FDOPEN -DAIX386_CORE HDEPFILES=aix386-core.o CC=gcc RANLIB=echo gdb-4.13/bfd/config/i386bsd.mh 666 34562 1752 53 5265267512 14215 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/i386linux.mh 666 34562 1752 53 5430603450 14571 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/i386mach3.mh 666 34562 1752 57 5606352645 14445 0ustar fnfcygnusHDEFINES = -DTRAD_CORE HDEPFILES = trad-core.o gdb-4.13/bfd/config/i386sco.mh 666 34562 1752 143 5444527347 14255 0ustar fnfcygnus# Host: Intel 386 running SCO Unix. RANLIB = /bin/true HDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/i386v.mh 666 34562 1752 23 5430603452 13676 0ustar fnfcygnusRANLIB = /bin/true gdb-4.13/bfd/config/i386v4.mh 666 34562 1752 144 5215263057 14012 0ustar fnfcygnus# Host configuration for SVR4. AR_FLAGS = cq RANLIB = echo >/dev/null INSTALL = /usr/ucb/install -c gdb-4.13/bfd/config/i860-elf.mt 666 34562 1752 103 5431027430 14301 0ustar fnfcygnus# Target: Intel 860 using ELF. DEFAULT_VECTOR=bfd_elf32_i860_vec gdb-4.13/bfd/config/i960-bout.mt 666 34562 1752 251 5431027431 14512 0ustar fnfcygnus# Target: Intel 960 running b.out DEFAULT_VECTOR=b_out_vec_little_host SELECT_VECS=b_out_vec_big_host icoff_little_vec icoff_big_vec SELECT_ARCHITECTURES=bfd_i960_arch gdb-4.13/bfd/config/i960-coff.mt 666 34562 1752 275 5431027432 14465 0ustar fnfcygnus# Target: Intel 960 embedded development, COFF format DEFAULT_VECTOR=icoff_little_vec SELECT_VECS=icoff_big_vec b_out_vec_little_host b_out_vec_big_host SELECT_ARCHITECTURES=bfd_i960_arch gdb-4.13/bfd/config/irix3.mh 666 34562 1752 57 5333777074 14102 0ustar fnfcygnusHDEFINES = -G 4 LDFLAGS = -lmalloc RANLIB=echo gdb-4.13/bfd/config/irix4.mh 666 34562 1752 142 5476740636 14120 0ustar fnfcygnusHDEFINES = -G 4 -DIRIX_CORE HDEPFILES = irix-core.o LDFLAGS = -lmalloc RANLIB = echo INSTALL = cp gdb-4.13/bfd/config/irix5.mh 666 34562 1752 112 5476740637 14117 0ustar fnfcygnusHDEFINES = -DIRIX_CORE HDEPFILES = irix-core.o RANLIB = echo INSTALL = cp gdb-4.13/bfd/config/m68k-0aout.mt 666 34562 1752 563 5561774673 14722 0ustar fnfcygnus# Target: Motorola 68000 using a.out # This version sets the toolversion field of the a.out header to 0, as # is required by Cisco. DEFAULT_VECTOR=aout0_big_vec SELECT_ARCHITECTURES=bfd_m68k_arch # We include this here, rather than making a separate cisco configuration, so # that cisco-core.c gets routinely tested at least for compilation. SELECT_VECS=cisco_core_vec gdb-4.13/bfd/config/m68k-aout.mt 666 34562 1752 305 5561774674 14635 0ustar fnfcygnus# Target: Motorola 68000 using a.out # This version sets the toolversion field of the a.out header to 1, as # is required by SunOS. DEFAULT_VECTOR=sunos_big_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/m68k-coff.mt 666 34562 1752 145 5431027435 14562 0ustar fnfcygnus# Target: Motorola 68000 using COFF DEFAULT_VECTOR=m68kcoff_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/m68k-elf.mt 666 34562 1752 204 5431625435 14413 0ustar fnfcygnus# Target: Motorola 68000 using ELF. DEFAULT_VECTOR=bfd_elf32_m68k_vec SELECT_VECS=m68kcoff_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/m68k-lynx.mt 666 34562 1752 261 5473171616 14645 0ustar fnfcygnus# Target: Motorola 680x0 running LynxOS (a.out and coff, defaulting to coff) DEFAULT_VECTOR=m68klynx_coff_vec SELECT_VECS=m68klynx_aout_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/m68k-ose.mt 666 34562 1752 244 5562727437 14451 0ustar fnfcygnus# Target: Motorola 68000 using a.out, coff and extended tekhex DEFAULT_VECTOR=sunos_big_vec SELECT_VECS=m68kcoff_vec tekhex_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/m88k-coff.mt 666 34562 1752 146 5431530365 14566 0ustar fnfcygnus# Target: Motorola 88000 using coff. DEFAULT_VECTOR=m88kbcs_vec SELECT_ARCHITECTURES=bfd_m88k_arch gdb-4.13/bfd/config/m88k-elf.mt 666 34562 1752 336 5435270762 14426 0ustar fnfcygnus# Target: 88k using ELF. DEFAULT_VECTOR=bfd_elf32_m88k_vec # Include COFF because SVR4 systems can run COFF binaries, and GDB should be # able to debug them. SELECT_VECS=m88kbcs_vec SELECT_ARCHITECTURES=bfd_m88k_arch gdb-4.13/bfd/config/m88k-mach3.mt 666 34562 1752 152 5606352640 14643 0ustar fnfcygnus# Target: Omron Luna/88k running Mach 3 DEFAULT_VECTOR=m88kmach3_vec SELECT_ARCHITECTURES=bfd_m88k_arch gdb-4.13/bfd/config/m88kmach3.mh 666 34562 1752 57 5606352650 14537 0ustar fnfcygnusHDEFINES = -DTRAD_CORE HDEPFILES = trad-core.o gdb-4.13/bfd/config/mips-mach3.mt 666 34562 1752 147 5606352643 15033 0ustar fnfcygnus# Target: MIPS running Mach 3 DEFAULT_VECTOR=aout_mips_little_vec SELECT_ARCHITECTURES=bfd_mips_arch gdb-4.13/bfd/config/mipsbelf.mt 666 34562 1752 471 5564712130 14665 0ustar fnfcygnus# Target: Big endian MIPS running ELF # Includes ECOFF support for Irix 5, which can run ECOFF executables # Includes little endian vectors because they cost nothing extra DEFAULT_VECTOR=bfd_elf32_bigmips_vec SELECT_VECS=bfd_elf32_littlemips_vec ecoff_big_vec ecoff_little_vec SELECT_ARCHITECTURES=bfd_mips_arch gdb-4.13/bfd/config/mipsbsd.mh 666 34562 1752 53 5333313544 14465 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/mipsdecbsd.mt 666 34562 1752 176 5431027441 15200 0ustar fnfcygnus# Target: DECstation MIPS processor running BSD a.out DEFAULT_VECTOR=aout_mips_little_vec SELECT_ARCHITECTURES=bfd_mips_arch gdb-4.13/bfd/config/mipslelf.mt 666 34562 1752 227 5450630147 14677 0ustar fnfcygnus# Target: Little endian MIPS running ELF DEFAULT_VECTOR=bfd_elf32_littlemips_vec SELECT_VECS=bfd_elf32_bigmips_vec SELECT_ARCHITECTURES=bfd_mips_arch gdb-4.13/bfd/config/mipsmach3.mh 666 34562 1752 57 5606352653 14723 0ustar fnfcygnusHDEFINES = -DTRAD_CORE HDEPFILES = trad-core.o gdb-4.13/bfd/config/ncr3000.mh 666 34562 1752 1202 5217167501 14147 0ustar fnfcygnus# Host configuration for SVR4. # The NCR 3000 ships with a MetaWare compiler installed as /bin/cc. # This compiler not only emits obnoxious copyright messages every time # you run it, but it chokes and dies on a whole bunch of GNU source # files. Default to using the AT&T compiler installed in /usr/ccs/ATT/cc. # Unfortunately though, the AT&T compiler sometimes generates code that # the assembler barfs on if -g is used, so disable it by default as well. CC = /usr/ccs/ATT/cc CFLAGS = AR_FLAGS = cq RANLIB = true # The /usr/ucb/install program is incompatible (complains about unknown # group staff). Use good old cp... INSTALL = cp gdb-4.13/bfd/config/news-mips.mh 666 34562 1752 53 5453411565 14753 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/news.mt 666 34562 1752 124 5431027442 14031 0ustar fnfcygnus# Target: Sony NEWS DEFAULT_VECTOR=newsos3_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/noop.mt 666 34562 1752 77 5411406774 14026 0ustar fnfcygnus# Target: Motorola 88000 using a.out # Nothing to do for now. gdb-4.13/bfd/config/ns32k-nbsd.mt 666 34562 1752 155 5615014732 14747 0ustar fnfcygnus# Target: National NS32k with aout format DEFAULT_VECTOR=netbsd532_vec SELECT_ARCHITECTURES=bfd_ns32k_arch gdb-4.13/bfd/config/pc532-mach.mt 666 34562 1752 216 5611327626 14630 0ustar fnfcygnus# Target: NS32k series processor with aout format DEFAULT_VECTOR=pc532mach_vec SELECT_ARCHITECTURES=bfd_ns32k_arch SELECT_VECS=pc532mach_vec gdb-4.13/bfd/config/pc532mach.mh 666 34562 1752 53 5611327632 14513 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/ppc-elf.mt 666 34562 1752 151 5531160314 14400 0ustar fnfcygnus# Target: PowerPC using ELF DEFAULT_VECTOR=bfd_elf32_powerpc_vec SELECT_ARCHITECTURES=bfd_powerpc_arch gdb-4.13/bfd/config/ppc-nlm.mt 666 34562 1752 752 5531160316 14431 0ustar fnfcygnus# Target: PowerPC using Novell's NetWare Loadable Module (NLM) format. # Note that we produce elf output and only convert it at the last # moment to NLMs. We could in principle generate NLMs directly, but I # don't think the format is really rich enough to do this, and anyway, # this can be more convenient for the user. We can convert XCOFF too. DEFAULT_VECTOR=bfd_elf32_powerpc_vec SELECT_VECS=nlm32_powerpc_vec rs6000coff_vec SELECT_ARCHITECTURES=bfd_powerpc_arch bfd_rs6000_arch gdb-4.13/bfd/config/riscos.mh 666 34562 1752 74 5415062475 14336 0ustar fnfcygnusRANLIB=true HDEFINES=-DTRAD_CORE -G 4 HDEPFILES=trad-core.o gdb-4.13/bfd/config/riscos.mt 666 34562 1752 235 5450630147 14365 0ustar fnfcygnus# Mips running RISC/os 4.52.C (and presumably other versions). DEFAULT_VECTOR=ecoff_big_vec SELECT_VECS=ecoff_little_vec SELECT_ARCHITECTURES=bfd_mips_arch gdb-4.13/bfd/config/rs6000.mh 666 34562 1752 406 5530022630 13770 0ustar fnfcygnus# Host: IBM RS/6000 running AIX # This #define is a kludge to allow coff-rs6000.c to compile on most host. # We only turn on archive & core support if this symbol is defined, since # we don't have distributable include files for them. HDEPFILES = rs6000-core.o gdb-4.13/bfd/config/rs6000.mt 666 34562 1752 170 5545615466 14027 0ustar fnfcygnus# Target: IBM RS/6000 running AIX DEFAULT_VECTOR=rs6000coff_vec SELECT_ARCHITECTURES=bfd_rs6000_arch bfd_powerpc_arch gdb-4.13/bfd/config/rs6000lynx.mh 666 34562 1752 614 5530022632 14706 0ustar fnfcygnus# Host: IBM RS/6000 running LynxOS # This file is derived from rs6000.mh, but it disables COFF archives. LynxOS # uses a.out style archives (even though it uses XCOFF binaries). # Turn on core file support in coff-rs6000.c. We cannot do this in # configure.in, as there is no way to distinguish between aix and lynx at the # critical part of the post-target routine. HDEPFILES = lynx-core.o gdb-4.13/bfd/config/rtbsd.mh 666 34562 1752 373 5101636247 14170 0ustar fnfcygnus# The IBM RT/PC has only been supported as a host in a cross-development # environment. If you don't have gcc, I was able to get 'hc -Hnocpp -ma' # to compile most of the modules, but didn't try running anything. CC=gcc # hc/pcc just can't cut it gdb-4.13/bfd/config/sh-coff.mt 666 34562 1752 152 5432502227 14403 0ustar fnfcygnus# Target: Hitachi SH using COFF and Srecords DEFAULT_VECTOR=shcoff_vec SELECT_ARCHITECTURES=bfd_sh_arch gdb-4.13/bfd/config/solaris2.mh 666 34562 1752 14 5477747374 14604 0ustar fnfcygnusRANLIB=echo gdb-4.13/bfd/config/sparc-aout.mt 666 34562 1752 140 5431027447 15136 0ustar fnfcygnus# Target: SPARC using a.out. DEFAULT_VECTOR=sunos_big_vec SELECT_ARCHITECTURES=bfd_sparc_arch gdb-4.13/bfd/config/sparc-coff.mt 666 34562 1752 137 5476745200 15114 0ustar fnfcygnus# Target: Sparc running COFF DEFAULT_VECTOR=sparccoff_vec SELECT_ARCHITECTURES=bfd_sparc_arch gdb-4.13/bfd/config/sparc-elf.mt 666 34562 1752 211 5431625437 14736 0ustar fnfcygnus# Target: SPARC CPU using ELF format. DEFAULT_VECTOR=bfd_elf32_sparc_vec SELECT_VECS=sunos_big_vec SELECT_ARCHITECTURES=bfd_sparc_arch gdb-4.13/bfd/config/sparc-ll.mh 666 34562 1752 106 5101636250 14553 0ustar fnfcygnusHDEFINES=-DHOST_64_BIT="long long" CC=/usr/latest/bin/gcc -Wall -ansi gdb-4.13/bfd/config/sparc-lynx.mt 666 34562 1752 253 5473171616 15171 0ustar fnfcygnus# Target: Sparc running LynxOS (a.out and coff, defaulting to coff) DEFAULT_VECTOR=sparclynx_coff_vec SELECT_VECS=sparclynx_aout_vec SELECT_ARCHITECTURES=bfd_sparc_arch gdb-4.13/bfd/config/sparc-nlm.mt 666 34562 1752 721 5472507421 14761 0ustar fnfcygnus# Target: SPARC using Novell's NetWare Loadable Module (NLM) format. # Note that we produce elf output and only convert it at the last # moment to NLMs. We could in principle generate NLMs directly, but I # don't think the format is really rich enough to do this, and anyway, # this can be more convenient for the user. We can convert a.out too. DEFAULT_VECTOR=bfd_elf32_sparc_vec SELECT_VECS=nlm32_sparc_vec sunos_big_vec SELECT_ARCHITECTURES=bfd_sparc_arch gdb-4.13/bfd/config/sparc64-elf.mt 666 34562 1752 162 5577705260 15121 0ustar fnfcygnus# Target: SPARC v9 CPU using ELF format. DEFAULT_VECTOR=bfd_elf64_sparc_vec SELECT_ARCHITECTURES=bfd_sparc_arch gdb-4.13/bfd/config/st2000.mt 666 34562 1752 232 5432502231 14000 0ustar fnfcygnus# Target: Tandem ST-2000 using COFF and IEEE-695 object file format DEFAULT_VECTOR=m68kcoff_vec SELECT_VECS=ieee_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/stratus.mh 666 34562 1752 131 5236574510 14552 0ustar fnfcygnus# FIXME: Add "-Wall -ansi" to CC when problems are resolved. AR_FLAGS = cq RANLIB = echo gdb-4.13/bfd/config/symmetry.mh 666 34562 1752 165 5544706032 14743 0ustar fnfcygnus# Symmetry running either dynix (bsd) or ptx (sysv), but not ptx4 (sysv4) HDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o gdb-4.13/bfd/config/sysv4.mh 666 34562 1752 14 5216242124 14104 0ustar fnfcygnusRANLIB=echo gdb-4.13/bfd/config/tahoe.mh 666 34562 1752 77 5101636252 14127 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o #CC=gcc -Wall -ansi gdb-4.13/bfd/config/tahoe.mt 666 34562 1752 131 5431027454 14156 0ustar fnfcygnus# Target: CCI Tahoe running BSD Unix. # ONLY works native. DEFAULT_VECTOR=host_aout_vec gdb-4.13/bfd/config/u68k-coff.mt 666 34562 1752 200 5432502232 14554 0ustar fnfcygnus# Target: Motorola 68k using COFF with names with underscore DEFAULT_VECTOR=m68kcoffun_vec SELECT_ARCHITECTURES=bfd_m68k_arch gdb-4.13/bfd/config/ultra3.mh 666 34562 1752 65 5101636253 14237 0ustar fnfcygnusCC=u3cc AR=u3ar RANLIB=/bin/true HDEFINES=-DNO_FCNTL gdb-4.13/bfd/config/vax.mt 666 34562 1752 164 5431027457 13665 0ustar fnfcygnus# Target: Vax running BSD Unix # ONLY works native. DEFAULT_VECTOR=host_aout_vec SELECT_ARCHITECTURES=bfd_vax_arch gdb-4.13/bfd/config/vaxbsd.mh 666 34562 1752 77 5101636254 14320 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o #CC=gcc -Wall -ansi gdb-4.13/bfd/config/vaxult.mh 666 34562 1752 77 5142352714 14355 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o #CC=gcc -Wall -ansi gdb-4.13/bfd/config/vaxult2.mh 666 34562 1752 76 5345044234 14436 0ustar fnfcygnusHDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o CC=gcc -Wall -ansi gdb-4.13/bfd/config/vsta.mh 666 34562 1752 10 5511361216 13767 0ustar fnfcygnusCC=gcc gdb-4.13/bfd/config/we32k.mt 666 34562 1752 144 5431027460 14012 0ustar fnfcygnus# Target: AT&T 3B2 running coff. DEFAULT_VECTOR=we32kcoff_vec SELECT_ARCHITECTURES=bfd_we32k_arch gdb-4.13/bfd/config/z8k-coff.mt 666 34562 1752 203 5432502233 14477 0ustar fnfcygnus# Target: Hitachi H8/300 using COFF and IEEE-695 object file format DEFAULT_VECTOR=z8kcoff_vec SELECT_ARCHITECTURES=bfd_z8k_arch gdb-4.13/bfd/COPYING 666 34562 1752 43076 5045565752 12372 0ustar fnfcygnus GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. gdb-4.13/bfd/ChangeLog 666 34562 1752 627343 5623164627 13134 0ustar fnfcygnusFri Aug 12 11:22:40 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * elfcode.h (section_from_elf_index): Correct check for invalid section index. Wed Aug 10 22:28:49 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * reloc.c (struct reloc_howto_struct): Remove special_function1. It's the wrong way to do things. (HOWTO): Change accordingly. (HOWTO2): Remove. (_bfd_final_link_relocate): Remove references to special_function1. * bfd-in2.h: Rebuilt. * aoutx.h (aout_link_input_section_std): Remove references to special_function1. (aout_link_reloc_link_order): Likewise. Sat Aug 6 22:27:30 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * irix-core.c (irix_core_core_file_p): Ignore sections that are not contained in the core file. Thu Aug 4 11:09:24 1994 Fred Fish (fnf@lisa.cygnus.com) * hosts/solaris2.h: Remove #undef of const for non-gcc compiles. (This will be fixed differently in the next release). Thu Jul 28 13:06:58 1994 Fred Fish (fnf@cygnus.com) * ptrace-core.c (ptrace_unix_core_file_p): Convert zalloc usage to bfd_zalloc. Sat Jul 16 21:10:39 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * elfcode.h (elf_get_dynamic_symtab_upper_bound): If there is no dynamic symtab, return error. * libelf.h (ELF_LINK_HASH_DEFINED_WEAK): Define. * elfcode.h (elf_link_add_object_symbols): If symbol is defined as weak, set ELF_LINK_HASH_DEFINED_WEAK. (elf_link_output_extsym): If symbol is defined as weak, mark it STB_WEAK. * libelf.h (struct bfd_elf_section_data): Add relocs field. (shdr_name): Remove; unused. * elfcode.h (elf_slurp_reloc_table): Rewrote to handle both REL and RELA relocs. Free up the unswapped relocs. Permit the relocs to be cached in the section_data. Correct the reloc address. (elf_slurp_reloca_table): Remove. (elf_canonicalize_reloc): Rewrote. (elf_link_input_bfd): Permit the relocs to be cached in the section data. Sat Jul 16 13:55:38 1994 Stan Shebs (shebs@andros.cygnus.com) * config.bfd (m88*-harris-cxux*): Recognize. * hosts/harris.h (POSIX_UTIME, HAVE_PROCFS): Define. * configure.host (m68*-atari-sysv4*): New host. (m68*-cbm-sysv4*): Use m68kv4 instead of amix. * hosts/amix.h: Remove. * hosts/m68kv4.h: New file, was amix.h. Thu Jul 14 15:12:24 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * reloc.c (enum bfd_reloc_code_real, bfd_type, struct reloc_howto_struct, reloc_howto_type, HOWTO, HOWTO2): Copied changes over from bfd-in2.h so they get generated properly next time someone runs "make headers". * bfd-in2.h: Rebuilt. * targets.c (netbsd532_vec, pc532mach_vec): Declare const. (m88kmach3_vec): Restore deleted declaration. * configure.in: Alphabetize target vector names. * config/pc532mach.mh: New file. (HDEPFILES, HDEFINES): Define here. * config/pc532-mach.mt (HDEPFILES, HDEFINES): Deleted. * config/ns32k-netbsd.mt (HDEPFILES, HDEFINES): Deleted. Sun Jul 10 00:04:20 1994 Ian Dall (dall@hfrd.dsto.gov.au) * pc532-mach.c: New File. pc532-mach a.out format. * netbsd532.c: New file. pc532-netbsd532 a.out format. * hosts/pc532mach.h: New file. pc532-mach host support. * cpu-ns32k.c: New file. ns32k support cpu specific code rather than format specific code. * config/pc532-mach.mt: New file. Support for pc532-mach target. * config/ns32k-netbsd.mt: New file. Support for netbsd532 target. * aout-ns32k.c, aout-ns32k.h: New files supporting aout format for ns32k series. * targets.c: Add netbsd532_vec and pc532machaout_vec into bfd_target_vector array. Move netbsd386_vec to alphabetic order location. * reloc.c (_bfd_final_link_relocate) Add support for special_function1 in howto. * libaout.h: add M_NS32032, M_NS32532, M_532_NETBSD entries in machine_type enum. * configure.in: add pc532mach_vec and netbsd532_vec entries. * config.bfd: add pc532mach host entries. Use for both ns32k-pc532-mach and ns32k-pc532-netbsd. * config.bfd: it doesn't work to use i386-mach3 for ns32k*-*-mach. add ns32k-pc532-mach* and ns32k-*-netbsd* entries. * bfd-in2.h: Add ns32k specific relocations to bfd_reloc_code_real enum. * bfd-in2.h: Add special_function1 to struct howto. Change HOWTO and NEWHOWTO macros to make special_function1 NULL. Neww HOWTO2 macro. * bfd-in2.h: Split definition of struct reloc_howto_struct and corresponding typedef into two statements. * bfd-in2.h: Add entry bfd_arch_ns32k to bfd_architecture enum. * archures.c: Add bfd_ns32k_arch prototype, and entry in archures_init_table. * aoutx.h (aout_link_reloc_link_order): Allow for target dependent MY_put_reloc macro. Allow for target dependent special_function1 to apply the relocation. * aoutx.h (aout_link_input_section_std): Allow for target dependent determination of reloc howto. Allow for target dependent special_function1 to apply the relocation. * aoutx.h (get_reloc_upper_bound): Detect bss and return 0. * aoutx.h (slurp_reloc_table): Detect bss and succesfully read zero reloc entries. * aoutx.h (machine_type): Add bfd_arch_ns32k case. * aoutx.h: Stat to determine executable status if STAT_FOR_EXEC is defined (not just MACH). Use fstat instead of stat and check for fstat error. * aoutx.h: Allow target dependent swap_std_reloc_{in,out}. * aoutx.h: Allow CTORS reloc info to be in target dependent reloc table. * aout-target.h: Apply SWAP_MAGIC (if defined) after swap_exec_header_in, otherwise we have magic in the wrong order. Thu Jul 14 11:47:27 1994 Stan Shebs (shebs@andros.cygnus.com) * coff-sparc.c (sparccoff_vec): Have leading underscores. Tue Jul 12 12:08:10 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * aix386-core.c, aoutf1.h, cisco-core.c, elfcode.h, hppabsd-core.c, hpux-core.c, irix-core.c, lynx-core.c, osf-core.c, ptrace-core.c, rs6000-core.c, trad-core.c: Remove SEC_ALLOC flag from .reg sections, .reg sections are not allocated and contain debug information only. * osf-core.c (make_bfd_asection, osf_core_core_file_p): Use bfd_make_section_anyway instead of building unique section names. Tue Jul 12 11:41:22 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * libelf.h (bfd_elf32_swap_symbol_in): Declare. (bfd_elf32_swap_symbol_out): Declare. (bfd_elf64_swap_symbol_in, bfd_elf64_swap_symbol_out): Declare. * elf32-hppa.c (elf32_hppa_args_hash_table_init): Correct cast. * aout-encap.c (ARCH): Don't define. Obsolete. * aout0.c, aoutx.h, gen-aout.c, hp300bsd.c, hp300hpux.c: Likewise. * i386aout.c, i386bsd.c, i386dynix.c, i386linux.c: Likewise. * i386lynx.c, m68klynx.c, mipsbsd.c, netbsd386.c: Likewise. * newsos3.c, sparclynx.c, sunos.c: Likewise. Mon Jul 11 20:08:23 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * section.c (STD_SECTION): Make the sixth argument boolean, not the seventh. From gary@tuva.pacsemi.oz.au (gary kopff). Sun Jul 10 09:12:02 1994 D. V. Henkel-Wallace (gumby@cygnus.com) * aoutx.h (bfd_free_cached_info): Change name of FREE to BFCI_FREE in order not to collide with LynxOS's definition of FREE in /usr/include/sys/proc.h Thu Jul 7 14:18:06 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * reloc.c (bfd_perform_relocation): Don't clobber the relocation value for coff-Intel-little or coff-Intel-big. Hack upon hack. Thu Jul 7 10:10:34 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * aoutx.h (howto_table_std): Add entry for GOT relocations which are present in sun3 shared libraries, to avoid assertions when reading the dynamic relocations. Thu Jul 7 10:19:20 1994 Jeff Law (law@snake.cs.utah.edu) * som.h (R_HPPA_COMPLEX): Fix dumb typo. Wed Jul 6 19:21:57 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * hosts/sysv4.h (qsort, strtol): Don't declare. * elfcode.h (elf_link_output_sym): Don't call output_symbol_hook if it is NULL. * elf32-mips.c (mips_elf_final_write_processing): Add ignored info argument to correspond to recent libelf.h change. Wed Jul 6 00:48:57 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * coff-alpha.c (alpha_ecoff_mkobject_hook): New hook to additionally copy object type information from the alpha file header to the BFD flags. (alpha_ecoff_backend_data): Use it. (ecoffalpha_little_vec): Add DYNAMIC to object_flags. * aout64.c: Fix typo in conditional QMAGIC definition. Wed Jul 6 00:13:17 1994 Jeff Law (law@snake.cs.utah.edu) * hppabsd-core.c (hppabsd_core_core_file_p): Sanity check the value of clicksz to help weed out non HPPA BSD core files. Tue Jul 5 13:26:02 1994 Stan Shebs (shebs@andros.cygnus.com) Mach 3 support. * config.bfd (m88*-*-mach3*, mips*-dec-mach3*, mips*-*-mach3*): New targets. * configure.host (i[34]86-*-mach3*, ns32k-*-mach3*): Recognize "mach3" instead of "mach". (m88*-*-mach3*, mips*-dec-mach3*, mips*-*-mach3*): New hosts. * targets.c (m88kmach3_vec): New target vector. (bfd_target_vector): Add i386mach3_vec and m88kmach3_vec, but inside #if 0. * aoutx.h (some_aout_object_p) [MACH]: Recognize executables by checking for execute permission, instead of looking at entry point. * i386mach3.c: Update, define MACH, N_TXTOFF, N_TXTADDR, N_SHARED_LIB, don't include aout/*.h files, etc. * m88kmach3.c: New file, m88k Mach 3 target. * config/m88k-mach3.mt, config/mips-mach3.mt: New files, target makefile fragments. * config/i386mach3.mh, config/m88kmach3.mh, config/mipsmach3.mh: New files, host makefile fragments. * hosts/m88kmach3.h, hosts/mipsmach3.h: New files, host definitions. Tue Jul 5 13:56:52 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * elfcode.h (swap_out_syms): Get alignment of common symbol from st_value field of saved ELF symbol information, if there is any. Mon Jul 4 19:13:32 1994 Jeff Law (law@snake.cs.utah.edu) * som.h (R_HPPA_COMPLEX): Define. * elf32-hppa.h (R_HPPA_COMPLEX): Define. (elf32_hppa_reloc_type): Delete R_PARISC_STUB_CALL_17. Fri Jul 1 12:07:41 1994 Jeff Law (law@snake.cs.utah.edu) * Support code for enabling the new style linker for PA ELF. * elfcode.h (swap_symbol_in, swap_symbol_out): Externalize. (elf_compute_section_file_positions): Pass link_info to the begin_write_processing hook. (bfd_elf_write_object_contents): Pass NULL for new link_info argument to final_write_processing hook. (elf_link_output_sym): Accept new "input_section" argument for the symbols's input section. All callers changed. Call the link_output_symbol_hook if it's defined. (elf_bfd_final_link): Call the final_write_processing hook if it's defined. * libelf.h (elf_backend_link_output_symbol_hook): Declare. (elf_backend_begin_write_processing): Add new "info" argument. (elf_backend_final_write_processing): Likewise. * elf32-target.h (elf_backend_link_output_symbol_hook): Provide a default definition. (elf32_bed): Add elf_backend_link_output_symbol_hook. * elf64-target.h: Likewise. * Major rework of the PA ELF code. Uses the new style BFD linker, major cleanups. * hppa_stubs.h: Rewrite from scratch. Much smaller and simpler. * elf32-hppa.h: Delete all symbol extension related code. (hppa_look_for_stubs_in_section): Delete decl. (elf32_hppa_size_stubs, elf32_hppa_build_stubs): New decls. * elf32-hppa.c: Symbol extension stuff moved form elf32-hppa.h into elf32-hppa.c. Do not include aout64.h. (typdef hppa_stub_type): Delete. (elf32_hppa_stub_name_list_struct): Delete. (elf32_hppa_stub_description_struct): Delete. (arg_reloc_type): Use simpler enumerations. All references changed. (arg_location, arg_reloc_relocation): Likewise. (elf32_hppa_symextn_map_struct): Delete. (get_symbol_value): Delete. (elf32_hppa_get_sym_extn): Delete. (find_stubs, new_stubs, type_of_mismatch): Delete. (find_stub_by_name, add_stub_by_name): Delete. (hppa_elf_stub_finish, hppa_elf_stub_reloc): Delete. (hppa_elf_arg_reloc_needed): Renamed. Simplify. (hppa_elf_build_linker_stub, hppa_elf_create_stub_sec): Delete. (hppa_elf_long_branch_needed_p): Delete. (hppa_look_for_stubs_in_section): Delete. (hppa_elf_get_section_contents): Delete. (elf32_hppa_backend_symbol_processing): Delete. (elf32_hppa_backend_section_processing): Delete. (elf32_hppa_backend_section_from_shdr): Delete. (elf32_hppa_backend_fake_sections): Delete. (elf32_hppa_backend_section_from_bfd_section): Delete. (NEW_INSTRUCTION): Delete. (CURRENT_STUB_OFFSET): Delete. (elf32_hppa_relocate_section): New function. (elf32_hppa_bfd_final_link_relocate): New function. (elf32_hppa_size_symext): New function. (elf32_hppa_link_output_symbol_hook): New function. (elf32_hppa_read_symext_info): New function. (elf32_hppa_add_symbol_hook): New function. (elf32_hppa_name_of_stub): New function. (elf32_hppa_size_of_stub): New function. (elf32_hppa_build_one_sub): New function. (elf32_hppa_build_stubs): New function. (elf32_hppa_size_stubs): New function. (linker, stub and argument hash tables): Add appropriate structures, definitions and functions to implement all three hash tables. (hppa_elf_relocate_insn): Don't need argument location information in this function. (add_entry_to_symext_chain): Accept a symbol's argument location information rather than the symbol itself. All callers changed. (hppa_elf_gen_reloc_type): Simplify. (hppa_elf_set_section_contents): Stub section is no longer special. (hppa_elf_reloc): Greatly simplify. (elf32_hppa_begin_write_processing): Accept link_info argument. Handle being called from the BFD backend linker. (elf32_hppa_final_write_processing): Likewise. (elf_hppa_tc_make_sections): No longer call stub_finish. Mon Jun 27 18:07:06 1994 Steve Chamberlain (sac@cirdan.cygnus.com) * section.c (bfd_get_section_contents): Put in parens to get precedence right. Sun Jun 26 18:08:29 1994 Jeff Law (law@snake.cs.utah.edu) * libelf.h (relocate_section): New argument "output_names" added to prototype. * elfcode.h (elf_link_input_bfd): New argument "output_names" added to prototype of relocate_section. Pass the output symbol names to relocate_section. * elf32-i386.c (elf_i386_relocate_section): Use "output_names" to determine the name of a local symbol. * elf32-mips.c (mips_elf_relocate_section): Likewise. * elf32-sparc.c (elf32_sparc_relocate_section): Likewise. Fri Jun 24 08:15:42 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) Add Solaris BCP (the part of Solaris which allows it to run SunOS4 a.out files) core file handling. * aoutf1.h (external_solaris_bcp_core, swapcore_solaris_bcp): New structure and its swap in function. (internal_sunos_core): New member c_data_addr, to receive the start address of the data section in the core file. (swapcore_sun3, swapcore_sparc, sunos4_core_file_p): Use it. (sunos4_core_file_p): Recognize Solaris BCP core file. (sunos4_core_file_matches_executable_p): Always indicate match for Solaris BCP core files. Thu Jun 23 15:31:28 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) Preliminary support for generating shared libraries, from Eric Youngdale . * elfcode.h (prep_headers): If DYNAMIC, set e_type to ET_DYN. (elf_link_add_object_symbols): If generating a shared library, create dynamic sections for first input BFD with the right format. (elf_link_create_dynamic_sections): Don't create .interp section if creating a shared library. (elf_link_input_bfd): Skip dynamic sections in input file. (elf_bfd_final_link): If creating a shared library, it's OK for dynobj to have sections which are not SEC_IN_MEMORY. * elf32-i386.c (elf_i386_size_dynamic_sections): Only set .interp section if not creating a shared library. * elf32-sparc.c (elf_sparc_size_dynamic_sections): Likewise. * elfcode.h (elf_object_p): Don't set DYNAMIC just because there is an SHT_DYNAMIC section. * cf-i386lynx.c (i386coff_vec): Don't include DYNAMIC in object_flags. * coff-sparc.c (sparccoff_vec): Likewise. * hppabsd-core.c (hppabsd_core_vec): Likewise. * aoutx.h (NAME(aout,some_aout_object_p)): Don't set SEC_RELOC just because DYNAMIC is set. Thu Jun 23 12:53:41 1994 David J. Mackenzie (djm@rtl.cygnus.com) * configure.in: Change --with-targets to --enable-targets and --with-64-bit-bfd to --enable-64-bit-bfd. * Makefile.in, mpw-make.in, targets.c: Change comments. Wed Jun 22 17:59:59 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * config.bfd (powerpc-*-elf*): New target, just like powerpc-*-sysv4*. * linker.c (FAIL): Undefine macro before defining as enum. Wed Jun 22 10:52:47 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * linker.c (_bfd_generic_link_add_archive_symbols): Initialize pass from abfd->archive_pass, and save it there as well. * hash.c (bfd_hash_allocate): Don't call bfd_set_error if obstack_alloc returns NULL unless the size is non-zero. * linker.c (archive_hash_allocate): Define. (_bfd_generic_link_add_archive_symbols): Use archive_hash_allocate rather than obstack_alloc, for clarity. * elfcode.h (elf_get_reloc_upper_bound): Correct. * aout64.c (BMAGIC, QMAGIC): Define if not already defined. From Peter Schauer . Linux ZMAGIC support from Eric Youngdale . * libaout.h (struct aoutdata): Add field zmagic_disk_block_size. * aout-target.h (MY(callback)): Only set alignment according to architecture if the section sizes are aligned to that alignment, for backward compatibility. (MY(set_sizes)): Initialize zmagic_disk_block_size field. * aoutx.h (adjust_z_magic): Set ztih if using q_magic_format. Set text section filepos to zmagic_disk_block_size if not ztih. Use a different padding algorithm if not ztih. * i386linux.c (MY_text_includes_header): Don't define. * aoutx.h (aout_link_check_ar_symbols): Just skip N_STAB and N_FN symbols; don't look them up in the hash table. From ralphc@pyramid.com (Ralph Campbell). Tue Jun 21 11:47:20 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * coff-go32.c (go32coff_archive_p): Remove unused function. * section.c (bfd_abs_section): Make const. (bfd_abs_section_ptr, bfd_is_abs_section): Define. (bfd_und_section): Make const. (bfd_und_section_ptr, bfd_is_und_section): Define. (bfd_com_section): Make const. (bfd_com_section_ptr): Define. (bfd_ind_section): Make const. (bfd_ind_section_ptr, bfd_is_ind_section): Define. (bfd_abs_symbol, bfd_com_symbol): Make const. (bfd_und_symbol, bfd_ind_symbol): Likewise. (global_syms): Cast initialization of section field. (STD_SECTION): Define as const, and cast initializations. * bfd-in2.h: Rebuilt. * Many files: Change uses of bfd_abs_section, etc., to use bfd_abs_section_ptr or bfd_is_abs_section, etc. Mon Jun 20 11:06:27 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * Many files: change all bfd_target vectors to be const. Change all uses of bfd_target * to be const bfd_target *. Change bfd_target_vector and bfd_default_vector arrays to be const bfd_target * const *. * ecoff.c, libecoff.h, ecoffswap.h, coff-alpha.c, coff-mips.c, elf32-mips.c: Renamed all externally visible ECOFF routines which are local to BFD to start with _bfd_ecoff instead of just ecoff. * ecoff.c (ecoff_swap_tir_in): Change input argument to const. (ecoff_swap_tir_out): Likewise. (ecoff_swap_rndx_in, ecoff_swap_rndx_out): Likewise. (ecoff_slurp_symbolic_info): Add new arguments to correspond to read_debug_info entry point in ecoff_debug_swap structure. Change all calls. * libecoff.h (ecoff_slurp_symbolic_info): Change declaration. * ecoffswap.h (ecoff_swap_tir_in, ecoff_swap_tir_out): Declare. (ecoff_swap_rndx_in, ecoff_swap_rndx_out): Declare. * coff-alpha.c (alpha_ecoff_backend_data): Initialize new ecoff_debug_swap fields. * coff-mips.c (mips_ecoff_backend_data): Likewise. * elf32-mips.c (mips_elf_read_ecoff_info): Undefine READ. (mips_elf_ecoff_debug_swap): Initialize new ecoff_debug_swap fields. * configure.in (bfd_elf32_bigmips_vec): Use ecoff.o and ecofflink.o. (bfd_elf32_littlemips_vec): Likewise. (ecoff_big_vec, ecoff_little_vec): Likewise. (ecoffalpha_little_vec): Likewise. * Makefile.in (BFD_LIBS): Remove ecoff.o and ecofflink.o. (BFD32_BACKENDS): Add ecoff.o and ecofflink.o. * aoutx.h (NAME(aout,final_link)): Check flavour of sub, not abfd, when computing reloc sizes. From Eric Youngdale . * elfcode.h (elf_bfd_final_link): Don't try to compute maximum reloc count or size for a non-ELF file. * mipsbsd.c (MY_final_link_callback): Define to avoid warning. * hp300hpux.c (MY_final_link_callback): Define to avoid warning. (BMAGIC, QMAGIC): Define; used by aoutx.h. (MY(slurp_symbol_table)): Change translate_from_native_sym_flags calls to use new parameters. Fri Jun 17 14:45:32 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aout-target.h (MY(callback)): Set the alignments of the text, data and bss sections after determining the architecture. * sunos.c (sunos_add_one_symbol): Treat a common symbol from a dynamic object as being in the .bss section of the object, rather than as being undefined. Fri Jun 17 11:16:50 1994 Jeff Law (law@snake.cs.utah.edu) * libhppa.h (bfd_hppa_insn2fmt, hppa_rebuild_insn): Make INLINE. * elf32-hppa.h (elf_hppa_final_processing): Delete decl. Thu Jun 16 23:36:23 1994 Jeff Law (law@snake.cs.utah.edu) * elfcode.h (elf_link_input_bfd): Don't try to read local symbols if there aren't any in the input file. Thu Jun 16 14:25:22 1994 Eric Youngdale (ericy@cais.cais.com) * i386linux.c: Many new functions and definitions for linker support for Linux shared libraries. * bfd-in.h (bfd_linux_size_dynamic_sections): Declare. * bfd-in2.h: Rebuild. Thu Jun 16 14:23:46 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * config.bfd: If second argument is ``_'', then, instead of echoing config file name, echo whether target uses leading underscores on symbol names. Add appropriate settings to different cases. Used by binutils/configure.in to set default for c++filt. * elfcode.h (elf_bfd_final_link): If trying to generate a shared object, warn and return false. * aoutx.h (NAME(aout,some_aout_object_p)): Accept BMAGIC objects and treat them as OMAGIC. Wed Jun 15 18:02:21 1994 Ken Raeburn (raeburn@cujo.cygnus.com) Enable sparc v9 support for release. Note that this is still a work in progress, pending release of an ABI specification. * config.bfd, configure.in: Include sparc v9 elf config. * elfcode.h (prep_headers): Handle sparc v9 (64 bit). * reloc.c (bfd_reloc_code_real): New reloc types. * elf64-sparc.c: Implement elf64-sparc target. * Makefile.in, targets.c: Updated. Wed Jun 15 01:34:07 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * libelf.h (struct elf_obj_tdata): New field dt_needed_name. (elf_dt_needed_name): New accessor macro. * elfcode.h (elf_link_add_object_symbols): If elf_dt_needed_name is set, use that instead of the filename for the DT_NEEDED dynamic entry. * elf.c (bfd_elf_set_dt_needed_name): New function. * bfd-in.h (bfd_elf_set_dt_needed_name): Declare. * bfd-in2.h: Rebuilt. * elfcode.h (NAME(bfd_elf,size_dynamic_sections)): Add sinterpptr argument, and set it to the .interp section. * bfd-in.h (bfd_elf32_size_dynamic_sections): Update prototype. (bfd_elf64_size_dynamic_sections): Likewise. * bfd-in2.h: Rebuilt. * coff-sparc.c (SWAP_OUT_RELOC_EXTRA): Define to clear the r_spare field of the reloc rather than letting it be garbage. * archive.c (bfd_slurp_armap): Recognize __.SYMDEF/ as well as __.SYMDEF; the former was used in old Linux archives. From jrs@world.std.com (Rick Sladkey). * i386linux.c (i386linux_write_object_contents): Define; like MY(write_object_contents) in aout-target.h, but set MACHTYPE to M_386. From jrs@world.std.com (Rick Sladkey). (MY_write_object_contents): Define. * aoutx.h (translate_from_native_sym_flags): Treat N_SETV symbols as N_DATA symbols. (aout_link_add_symbols): Likewise. * aoutx.h: Rewrite symbol duplicate elimination to use BFD hash tables. (struct stringtab_entry, struct stringtab_data): Remove. (HASHMAXLEN, HASH_CHAR, hash, compare, log2, emit_strtab): Remove. (struct strtab_hash_entry, struct strtab_hash): Define. (strtab_hash_newfunc, strtab_hash_lookup): Define. (stringtab_free, emit_stringtab): Define. (stringtab_init, add_to_stringtab): Rewrite. (NAME(aout,write_syms)): Use new stringtab code. (struct aout_final_link_info, NAME(aout,final_link)): Likewise. (aout_link_write_symbols, aout_link_write_other_symbol): Likewise. * bfd-in.h (BFD_TRADITIONAL_FORMAT): Define new BFD flag to request BFD to write object in the traditional format, whatever that means for the particular backend. * bfd-in2.h: Rebuilt. * hash.c (bfd_hash_allocate): If obstack_alloc fails, set bfd_error_no_memory. Tue Jun 14 13:00:04 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * libaout.h (struct aoutdata): Add q_magic_format to subformat enum. * aout-target.h (MY_bfd_copy_private_bfd_data): Define as function if not already defined. Copy subformat information. (MY_text_includes_header): Define as 0 if not already defined. (MY(backend_data)): Use MY_text_includes_header rather than 0. (MY_final_link_callback): Rename from final_link_callback, and define only if MY_final_link_callback is not already defined. (MY_bfd_final_link): Rename use of final_link_callback to MY_final_link_callback. * aoutx.h (NAME(aout,some_aout_object_p)): Handle QMAGIC like ZMAGIC, but set the subformat to q_magic_format. Abort if the magic number if not recognized. (adjust_z_magic): Use QMAGIC if q_magic_format. * i386linux.c (MY_text_includes_header): Define as 1. (i386linux_bfd_final_link): New static function. (MY_bfd_final_link): Define as i386linux_bfd_final_link. * aoutx.h (translate_to_native_sym_flags): Check both section and output_section against sections of abfd. * libecoff.h (struct ecoff_link_hash_entry): Change type of written from boolean to char. Add new field small. * ecoff.c (ecoff_link_hash_newfunc): Initialize written to 0 rather than false. Initialize small to 0. (ecoff_link_add_externals): If ECOFF type is scSUndefined, set small. If small is set, and hash table type is common, force the symbol into a section named SCOMMON and change the ECOFF type from scCommon to scSCommon. (ecoff_link_write_external): Set written to 1 rather than true. * coff-mips.c (mips_relocate_section): Correct JMPADDR reloc overflow check to consider section VMA of input file. Mon Jun 13 14:20:07 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutf1.h (aout_32_sunos4_write_object_contents): Handle a machine type of 68000. * aoutx.h (NAME(aout,machine_type)): Add new argument unknown. Set *unknown to true if machine type is really unknown, as opposed to M_UNKNOWN for the 68000. (NAME(aout,set_arch_mach)): Change NAME(aout,machine_type) call accordingly. * libaout.h (NAME(aout,machine_type)): Add new argument to prototype. Sun Jun 12 20:21:03 1994 Jeff Law (law@snake.cs.utah.edu) * som.c (EXEC_AUX_ID): Define based on availablity of HPUX_AUX_ID or HIUX_AUX_ID. (som_begin_writing): Use EXEC_AUX_ID instead of HPUX_AUX_ID. (som_write_armap): Use CPU_PA_RISC1_0 as the magic number. Note som.c is careful to always define CPU_PA_RISC1_0. Sat Jun 11 16:32:30 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Add weak symbols as an extension to a.out. * aoutx.h (sym_in_text_section): Don't define. (sym_in_data_section, sym_in_bss_section): Likewise. (sym_is_undefined, sym_is_global_defn): Likewise. (sym_is_debugger_info, sym_is_fortrancommon): Likewise. (sym_is_absolute, sym_is_indirect): Likewise. (translate_from_native_sym_flags): Rewrite for clarity. Rearrange arguments and change caller. Handle weak symbols. (translate_to_native_sym_flags): Likewise. (aout_link_check_ar_symbols): Don't ignore weak symbols. Pull object in from archive if a weak defintion is found for an existing undefined symbol. (aout_link_add_symbols): Put all cases in switch. Set flags of an undefined symbol to 0. Handle weak symbols. (aout_link_write_symbols): Handle weak symbols. (aout_link_write_other_symbol): Likewise. (aout_link_input_section_std): Likewise. (aout_link_input_section_ext): Likewise. * sunos.c (sunos_write_dynamic_symbol): Likewise. Fri Jun 10 13:25:13 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (NAME(aout,canonicalize_reloc)): Handle .bss section. (NAME(aout,get_reloc_upper_bound)): Likewise. * coff-i960.c (coff_i960_reloc_type_lookup): Add BFD_RELOC_CTOR. * linker.c (_bfd_generic_link_write_global_symbol): Don't assume the section of a common symbol is not NULL. Wed Jun 8 23:15:53 1994 Stu Grossman (grossman@cygnus.com) * nlmcode.h (nlm_object_p): Set EXEC_P and start address for GDB. Wed Jun 8 23:57:34 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (aout_get_external_symbols): Don't try to read the strings if there are no symbols. (aout_link_write_other_symbol): Use the output section when working out the type. Tue Jun 7 13:25:08 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (assign_section_numbers): Put shstrtab, symtab and strtab sections at end of file. Avoids bug in some versions of SVR4 strip. From Eric Youngdale . * coffcode.h (styp_to_sec_flags): If COFF_PAGE_SIZE is defined, set SEC_DEBUGGING for STYP_INFO sections. (coff_compute_section_file_positions): If COFF_PAGE_SIZE is defined, and D_PAGED is set, set the file position equal to the section VMA modulo COFF_PAGE_SIZE. * coffgen.c (coff_real_object_p): If F_EXEC is set, set D_PAGED. * coff-i386.c: Set D_PAGED in BFD target. (COFF_PAGE_SIZE): Define. * coff-m68k.c, coff-sparc.c: Likewise. Mon Jun 6 10:57:28 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (bfd_section_from_shdr): Don't turn a reloc section into a BFD section just because SHF_ALLOC is set; require that it not use the normal symbol table. (elf_section_from_bfd_section): Corresponding change. Better indirect and warning symbol handling inspired by Stuart Quick . * linker.c (enum link_action): Add REF, MIND, CWARN, REFC. (link_action): Change UNDEF_ROW/def and UNDEFW_ROW/def from NOACT to REF. Change UNDEF_ROW/indr and UNDEFW_ROW/indr from CYCLE to REFC. Change DEF_ROW/indr and COMMON_ROW/indr from CYCLE to MDEF. Change DEFW_ROW/indr from CYCLE to NOACT. Change INDR_ROW/indr from MDEF to MIND. Change INDR_ROW/warn from WARNC to CYCLE. Change WARN_ROW/def and WARN_ROW/indr from MWARN to CWARN. Change WARN_ROW/com from MWARN to WARN. Change WARN_ROW/warn from NOACT to CYCLE. Change SET_ROW/warn from WARNC to CYCLE> (_bfd_generic_link_add_one_symbol): Handle REF, MIND, CWARN and REFC. If a new indirect symbol has been referenced, push the reference down to the symbol it points to. FIx handling of WARN. * aoutx.h (translate_from_native_sym_flags): If N_WARNING, don't clobber e_type of next symbol. (translate_to_native_sym_flags): Likewise. (aout_link_write_symbols): Loop on bfd_link_hash_warning as well as bfd_link_hash_indirect. * libaout.h (struct aout_link_hash_entry): New field written. * aoutx.h (NAME(aout,link_hash_newfunc)): Initialize written. (aout_link_write_symbols): Use written, not root.written. (aout_link_write_other_symbol): Likewise. * sunos.c (sunos_scan_dynamic_symbol): Likewise. * libecoff.h (struct ecoff_link_hash_entry): New field written. * ecoff.c (ecoff_link_hash_newfunc): Initialize written. (ecoff_link_write_external): use written, not root.written. * genlink.h (struct generic_link_hash_entry): New field written. * linker.c (_bfd_link_hash_newfunc): Don't initialize written. (generic_link_hash_newfunc): Initialize written. (_bfd_generic_link_output_symbols): Use written, not root.written. (_bfd_generic_link_write_global_symbol): Likewise. (_bfd_generic_reloc_link_order): Likewise. * libecoff.h (ecoff_data_type): Add linker field. * ecoff.c (ecoff_write_object_contents): Check new tdata linker field, rather than outsymbols being non-NULL, to decide whether to output the symbols and relocs. (ecoff_bfd_final_link): Set new tdata linker field to true. * ecoff.c (ecoff_bfd_copy_private_bfd_data): Don't try to copy data to a non-ECOFF file. * libbfd-in.h: Add warning that libbfd.h is a generated file. * libbfd.h: Rebuilt. Sun Jun 5 15:02:30 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Changes to support ELF strip and objcopy on dynamically linked files. * elfcode.h (elf_fake_sections): Add prototype. (bfd_section_from_shdr): Make a BFD section from an SHT_HASH section, and from an SHT_DYNSYM section, and from the dynamic string table section. (elf_object_p): Set D_PAGED if there is a program header. (elf_make_sections): Remove. (fix_up_strtabs): Remove. (elf_fake_sections): Rewrite. Now sets sh_entsize. (assign_section_numbers): Rewrite. Now sets sh_link and sh_info for all sections. (elf_compute_section_file_positions): Don't call obsolete functions elf_make_sections or fix_up_strtabs. (swap_out_syms): Set sh_addralign to FILE_ALIGN rather than 4. (NAME(bfd_elf,write_object_contents)): Permit writing DYNAMIC objects. (elf_section_from_bfd_section): Treat SHT_DYNSYM like other normal sections. If an SHT_REL or SHT_RELA section is allocated or uses an unusual symbol table, permit a BFD section to map to it. Permit most SHT_STRTAB sections to have a BFD section mapped to them. (elf_bfd_final_link): Don't set sh_link, sh_info or sh_entsize fields of dynamic sections here; do it in assign_section_numbers. * elf32-target.h, elf64-target.h: Add D_PAGED to permitted object flags. * elf.c (_bfd_elf_make_section_from_shdr): Only set SEC_DATA if SEC_LOAD is set, rather than checking SEC_ALLOC. * libbfd-in.h (bfd_realloc): Change last arg to "size_t size". Fri Jun 3 10:58:02 1994 Jeff Law (law@snake.cs.utah.edu) * som.c (som_write_object_contents): Don't compute the file header's checksum here. (som_write_headers): Instead do it here. * libbfd.h (bfd_realloc): Change last arg to "size_t size". Thu Jun 2 17:39:22 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * hosts/sun3.h: Include . Don't declare free, exit or getenv. Add linker support for SunOS shared libraries. * sunos.c: Include bfdlink.h. Add many new functions and definitions for SunOS shared library support. * bfd-in.h (bfd_sunos_record_link_assignment): Declare. (bfd_sunos_size_dynamic_sections): Declare. * bfd-in2.h: Rebuilt. * aoutx.h (struct aout_link_hash_entry): Move to libaout.h. (struct aout_link_hash_table): Likewise. (aout_link_hash_lookup, aout_link_hash_traverse): Likewise. (aout_hash_table): Likewise. (NAME(aout,link_hash_newfunc)): Rename from aout_link_hash_newfunc and make externally visible. (NAME(aout,link_hash_table_init)): New function. (NAME(aout,link_hash_table_create)): Call NAME(aout,link_hash_table_init), not _bfd_link_hash_table_init. (aout_link_add_symbols): Don't fail if no symbols. If it exists, call add_dynamic_symbols backend entry point for dynamic objects. Use add_one_symbol backend entry point if it exists. (NAME(aout,final_link)): Call finish_dynamic_link backend entry point, if it exists. (aout_link_input_bfd): For a dynamic object, call link_dynamic_object backend entry point, if it exists. (aout_link_write_other_symbol): Call write_dynamic_symbol backend entry point, if it exists. (aout_link_input_section): Don't read the relocs if they have already been read. (aout_link_input_section_std): When doing a final link, for a reloc against an external symbol, call check_dynamic_reloc backend entry point, if it exists. (aout_link_input_section_ext): Likewise. * libaout.h: Protect against multiple inclusion. Include bfdlink.h. (struct aout_link_hash_entry): Move in from aoutx.h. (struct aout_link_hash_table): Likewise. (aout_link_hash_lookup, aout_link_hash_traverse): Likewise. (aout_hash_table): Likewise. (struct aout_backend_data): Add fields add_dynamic_symbols, add_one_symbol, link_dynamic_object, write_dynamic_symbol, check_dynamic_reloc, and finish_dynamic_link. (struct aout_section_data_struct): Define new structure. (aout_section_data): Define new accessor macro. (NAME(aout,link_hash_newfunc)): Declare. (NAME(aout,link_hash_table_init)): Declare. * aoutf1.h (sunos4_aout_backend): Initialize new aout_backend_data fields. * aout-target.h (MY(backend_data)): Likewise. * i386aout.c (MY(backend_data)): Likewise. * i386mach3.c (MY(backend_data)): Likewise. * mipsbsd.c (MY(backend_data)): Likewise. * sparclynx.c (sparclynx_aout_backend): Likewise. * aoutx.h (NAME(aout,slurp_symbol_table)): Don't zero out cached until we know it is non-NULL. (aout_link_write_symbols): Don't skip a warning symbol even if it has already been written out. If skipping an indirect symbol, skip the next symbol as well. Wed Jun 1 14:37:50 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * hosts/sun3.h: Don't declare qsort, malloc or realloc. Thu May 26 13:56:03 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * nlmcode.h (nlm_swap_auxiliary_headers_in): Cast bfd_byte pointer to char pointer to avoid compiler warnings. * dep-in.sed: Remove spaces before colons. Merged changes back in from FSF gas release 2.3: * Makefile.in (stmp-bfd.h): Wrap `if' block around grep invocation, to avoid a bug in BSD 4.4 make. From Ralph Campbell: * mipsbsd.c (mips_fix_jmp_addr): If symbol is undefined, return an error. (mips_fix_hi16_s): Ditto. Fri May 13 21:21:00 1994 DJ Delorie (dj@ctron.com) * makefile.dos: define a default target, or archives won't work due to multiple matches. Wed May 11 22:32:00 1994 DJ Delorie (dj@ctron.com) * configure.bat: update for latest files * makefile.dos: update for correct targets and sources * coff-go32.c: [new] go32's COFF format (i386coff with underscores) * targets.c: add go32coff target * makefile.in: add coff-go32.c support Thu May 26 10:10:21 1994 Jeff Law (law@snake.cs.utah.edu) * som.c (som_prep_headers): Do not set the system_id here, private bfd data has not been copied yet. (som_write_headers): Instead do it here. Tue May 24 16:17:18 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Make MIPS ELF use new ELF backend linker. No shared library support yet. * elf32-mips.c (bfd_mips_elf32_swap_gptab_in): New function. (bfd_mips_elf32_swap_gptab_out): New function. (mips_elf_object_p): If last symbol is LOCAL, set elf_bad_symtab. (mips_elf_final_write_processing): Set sh_info field for .gptab.* sections. (mips_elf_fake_sections): Set sh_entsize for .gptab.* sections. (mips_elf_read_ecoff_info): Read and free external symbols last, not first, for clarity. (struct mips_elf_link_hash_entry): Define new structure. (struct mips_elf_link_hash_table): Define new structure. (mips_elf_link_hash_lookup): Define new macro. (mips_elf_link_hash_traverse): Define new macro. (mips_elf_hash_table): Define new macro. (mips_elf_link_hash_newfunc): New static function. (mips_elf_link_hash_table_create): New static function. (mips_elf_add_symbol_hook): New static function. (struct extsym_info): Define new structure. (mips_elf_get_extr, mips_elf_set_index): Remove. (mips_elf_output_extsym): New static function. (gptab_compare): New static function. (mips_elf_final_link): Rewrite to use ELF backend linker, and to merge gptab information in input files. (mips_elf_relocate_hi16): New static function. (mips_elf_relocate_section): New static function. (bfd_elf32_bfd_link_hash_table_create): Define as macro before including elf32-target.h. (elf_backend_relocate_section): Likewise. (elf_backend_add_symbol_hook): Likewise. * elf.c (_bfd_elf_link_hash_newfunc): Rename from elf_link_hash_newfunc and make globally visible. Change caller. (_bfd_elf_link_hash_table_init): New function, broken out of _bfd_elf_link_hash_table_create. (_bfd_elf_link_hash_table_create): Use _bfd_elf_link_hash_table_init. * libelf.h (struct elf_obj_tdata): Add new field bad_symtab. (elf_bad_symtab): Define new accessor macro. (_bfd_elf_link_hash_newfunc): Declare. (_bew_elf_link_hash_table_init): Declare. * elfcode.h (elf_object_p): Call backend object_p hook after swapping in all the section headers. (map_program_segments): Correct typo: Internal for External. (elf_link_add_object_symbols): If elf_bad_symtab is set, read all the symbols. Skip STB_LOCAL symbols rather than giving an error. (elf_bfd_final_link): If elf_bad_symtab is set, allocate space for all symbols, not just locals. (elf_link_output_extsym): Only skip a symbol not mentioned by a regular file if it is mentioned by a dynamic object. (elf_link_input_bfd): If elf_bad_symtab is set, read all the symbols. Fri May 20 13:38:23 1994 Jeff Law (law@snake.cs.utah.edu) * som.c (som_set_reloc_info): Do not set any relocation info for SOM fixups which are never passed to BFD. Fri May 20 11:57:05 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-mips.c (mips_relocate_section): Add MIPS_R_JMPADDR overflow checking. * elf32-i386.c (elf_i386_size_dynamic_sections): Add DT_DEBUG to the dynamic linking information for the benefit of the debugger. From Peter Schauer. * elf32-sparc.c (elf32_sparc_size_dynamic_sections): Likewise. * elf.c (_bfd_elf_make_section_from_shdr): New function, based on code repeated three times in bfd_section_from_shdr in elfcode.h. * libelf.h (_bfd_elf_make_section_from_shdr): Declare. * elfcode.h (bfd_section_from_shdr): Use new function _bfd_elf_make_section_from_shdr to create BFD sections. If a reloc section does not use the main symbol table, or it is part of the process image, treat it as a normal section, not relocs. * elf32-mips.c (mips_elf_section_from_shdr): Use new function _bfd_elf_make_section_from_shdr. Thu May 19 11:37:11 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elf32-target.h, elf64-target.h: Change ar_max_namelen value from 15 to 14 to match SVR4 ar. Add support for ELF shared libraries. Loosely based on work by Eric Youngdale . * libelf.h (struct elf_backend_data): Add new fields for dynamic linking: elf_backend_create_dynamic_sections, elf_backend_adjust_dynamic_symbol, elf_backend_size_dynamic_sections, elf_backend_finish_dynamic_symbol, elf_backend_finish_dynamic_sections. (struct elf_link_hash_entry): Change type of align field to bfd_size_type. Add fields dynindx, dynstr_index, weakdef, elf_link_hash_flags. (struct elf_link_hash_table): Add fields dynobj, dynsymcount, dynstr, bucketcount. (bfd_elf32_swap_reloc_in, bfd_elf32_swap_reloc_out): Declare. (bfd_elf32_swap_reloca_in, bfd_elf32_swap_reloca_out): Declare. (bfd_elf32_swap_dyn_in, bfd_elf32_swap_dyn_out): Declare. (bfd_elf32_add_dynamic_entry): Declare. (bfd_elf64_swap_reloc_in, bfd_elf64_swap_reloc_out): Declare. (bfd_elf64_swap_reloca_in, bfd_elf64_swap_reloca_out): Declare. (bfd_elf64_swap_dyn_in, bfd_elf64_swap_dyn_out): Declare. (bfd_elf64_add_dynamic_entry): Declare. * elfcode.h (Elf_External_Dyn): Define. (elf_swap_reloc_in): Define as macro using NAME. Make externally visible. (elf_swap_reloc_out): Likewise. (elf_swap_reloca_in, elf_swap_reloca_out): Likewise. (elf_swap_dyn_in, elf_swap_dyn_out): Define as macro using NAME and as new externally visible function. (elf_fake_sections): Set section type of dynamic sections based on section names. (elf_write_phdrs): Remove. (assign_file_position_for_section): Add new align argument. Change all callers. (get_program_header_size): New static function. (struct seg_info): Remove. (map_program_segments): Completely rewrite. (assign_file_positions_except_relocs): Completely rewrite. (assign_file_positions_for_relocs): Don't set a file position for sections which already have one. Don't bother to align the file position here. (section_from_elf_index): Handle SHT_HASH and SHT_DYNAMIC section types. (elf_section_from_bfd_section): Likewise. (elf_slurp_symbol_table): If section_from_elf_index fails, just use bfd_abs_section rather than returning an error. (elf_sizeof_headers): Make useful. (elf_link_record_dynamic_symbol): New static function. (elf_link_add_object_symbols): Handle dynamic objects. (elf_link_create_dynamic_sections): New static function. (elf_add_dynamic_entry): Define as macro using NAME and as new externally visible function. (NAME(bfd_elf,record_link_assignment)): New function. (elf_buckets): New static variable. (NAME(bfd_elf,size_dynamic_sections)): New function. (struct elf_final_link_info): Add dynsym_sec and hash_sec fields. (elf_bfd_final_link): Handle dynamic linking. Create a section symbol for all ELF sections, not all BFD sections. Store section symbol index in target_index field, not index field. Traverse over global symbols even if stripping. (elf_link_output_extsym): Output dynamic symbols. Mark symbols defined by dynamic objects as undefined. (elf_link_input_bfd): Ignore dynamic objects. Use target_index field for section relocs, and make sure it is set. (elf_reloc_link_order): Use target_index field for section relocs, and make sure it is set. * elf.c (elf_link_hash_newfunc): Initialize dynindx, dynstr_index, weakdef and elf_link_hash_flags fields. (_bfd_elf_link_hash_table_create): Initialize dynobj, dynsymcount, dynstr and bucketcount fields. * elf32-target.h: Initialize new dynamic linking fields. * elf64-target.h: Likewise. * elf32-i386.c: New functions for dynamic linking support. * elf32-sparc.c: Likewise. * bfd-in.h (bfd_elf32_record_link_assignment): Declare. (bfd_elf64_record_link_assignment): Declare. (bfd_elf32_size_dynamic_sections): Declare. (bfd_elf64_size_dynamic_sections): Declare. * bfd-in2.h: Rebuilt. Wed May 18 08:29:04 1994 Ian Lance Taylor (ian@cygnus.com) * som.c: Don't include or . (som_reloc_queue_find): Call memcmp instead of bcmp. (som_bfd_reloc_type_lookup): Change first argument to bfd *. (compare_syms): Change types of arguments to const void *. (bfd_section_from_som_symbol): Removed unused local found. (som_write_armap): Add elength, map, orl_count and int arguments. (som_write_armap): Use %ld and cast to long for getuid result. Wed May 18 09:09:32 1994 Jeff Law (law@snake.cs.utah.edu) * elf32-hppa.h (R_HPPA_ABS_CALL): Define. * elf32-hppa.c (hppa_elf_gen_reloc_type): Handle absolute calls. * som.h (R_HPPA_ABS_CALL): Define. * som.c (hppa_som_gen_reloc_type): Delete complex relocation types. Tue May 17 19:33:12 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * coff-i960.c (icoff_little_vec, icoff_big_vec): Indicate leading underscore, for compatibility with Intel tool chain (gnu960v2). Mon May 16 10:09:22 1994 Jeff Law (law@snake.cs.utah.edu) * bfd-in2.h: Rebuilt. * elf32-hppa.c: Change .hppa_linker_stubs to .PARISC.stubs, likewise for other PA specific sections. (hppa_elf_relocate_unwind_table): Delete unused function. (elf_hppa_howto_table): Completely new table based on 94-02-02 draft PA ELF spec. Change relocation tags appropriately throughout elf32-hppa.c (hppa_elf_gen_reloc_type): Rewrite and simplify based on 94-02-02 spec. (hppa_elf_reloc): Likewise. (hppa_look_for_stubs_in_section): Likewise (ELF_MACHINE_CODE): Change to EM_PARISC. * elf32-hppa.h: Include "elf/hppa.h". Change relocation tags appropriately throughout elf32-hppa.h. (elf32_hppa_reloc_type): New table based on 94-02-02 draft PA ELF spec. (R_HPPA_ABS_CALL, R_HPPA_COMPLEX*, R_HPPA_UNWIND): Delete definitions. * elfcode.h (prep_headers): Use EM_PARISC instead of EM_HPPA. * reloc.c (bfd_reloc_code_real): Delete unused HPPA relocations. * som.h (R_HPPA_ABS_CALL, R_HPPA_COMPLEX): Delete definitions. * libhppa.h (hppa_field_adjust): Avoid adding constant_value into the final value twice for LR and RR field selectors. Sat May 14 09:09:19 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * aoutx.h (add_to_stringtab): Use BFD_ASSERT not assert. This avoids __eprintf troubles. Fri May 13 10:51:21 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bout.c (b_out_bfd_reloc_type_lookup): Handle BFD_RELOC_CTOR. * config/mipsbelf.mt (SELECT_VECS): Add ecoff_big_vec and ecoff_little_vec since Irix 5 supports ECOFF executables. Wed May 11 00:31:57 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c (ecoff_find_nearest_line): Handle fdr.adr != pdr.adr correctly. * Makefile.in (stmp-bfd.h): Use || instead of ; to force SunOS make to invoke the shell. Tue May 10 14:23:43 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * section.c (SEC_COFF_SHARED_LIBRARY): Renamed from SEC_SHARED_LIBRARY for clarity. Changed all uses. * bfd-in2.h: Rebuilt. * coffcode.h (sec_to_styp_flags): If SEC_COFF_SHARED_LIBRARY is set, set STYP_NOLOAD. * coffgen.c (coff_section_from_bfd_index): Don't get an assertion failure because of a bad shared library. Mon May 9 18:53:40 1994 Bill Cox (bill@rtl.cygnus.com) * linker.c: Add missing comment terminator. Mon May 9 11:53:54 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * linker.c (_bfd_generic_link_add_one_symbol): If hashp and *hashp are not NULL, assume the caller has already looked up the symbol in the hash table and has stored the entry in *hashp. (generic_link_add_symbol_list): Set h to NULL before calling _bfd_generic_link_add_one_symbol. * ecoff.c (ecoff_link_add_externals): Likewise. * elfcode.h (assign_file_positions_except_relocs): Don't require page shared between .data and .bss segments to contain zeroes. * elfcode.h: Include bfdlink.h. Added several new functions to do linking. (ELF_R_TYPE): Define. (bfd_add_to_strtab): Return unsigned long. Change check for realloc failure. (elf_fake_sections): Check return value of bfd_add_to_strtab. (elf_compute_section_file_positions): Add link_info argument. Call elf_backend_begin_write_processing hook and prep_headers here. Only call swap_out_syms if link_info is NULL. Set up .shstrtab section here. Pass dosyms argument to assign_file_positions_except_relocs. Set output_has_begun flag. (assign_file_positions_for_symtab_and_strtabs): Add dosyms argument, and use it to control setting .symtab and .strtab file positions. (assign_file_positions_except_relocs): Add dosyms argument, and pass it on. (prep_headers): Check return value of bfd_add_to_strtab. (swap_out_syms): Likewise. Also, don't set up .shstrtab here. (NAME(bfd_elf,write_object_contents)): Some calls moved into elf_compute_section_file_positions. (elf_set_section_contents): Likewise. (elf_slurp_symbol_table): SHN_LORESERV corrected to SHN_LORESERVE. * libelf.h: Include bfdlink.h. (struct elf_backend_data): Add fields collect, elf_add_symbol_hook, elf_backend_relocate_section. (struct bfd_elf_section_data): Add field rel_hashes. (struct elf_obj_tdata): Remove fields internal_syms and symbols. Add field sym_hashes. (obj_symbols, obj_internal_syms): Remove definitions. (elf_sym_hashes): Define. (struct elf_link_hash_entry): Define. (struct elf_link_hash_table): Define. (elf_link_hash_lookup): Define. (elf_link_hash_traverse): Define. (elf_hash_table): Define. (_bfd_elf_link_hash_table_create): Declare. (bfd_elf32_bfd_link_add_symbols): Declare. (bfd_elf32_bfd_final_link): Declare. (bfd_elf64_bfd_link_add_symbols): Declare. (bfd_elf64_bfd_final_link): Declare. * elf.c: Include bfdlink.h. (elf_link_hash_newfunc): New function. (_bfd_elf_link_hash_table_create): New function. * elf32-target.h (elf_backend_relocate_section): If not defined, define as 0 and use generic linker. Otherwise, use ELF backend linker. (elf_backend_collect): If not defined, define as false. (elf_backend_add_symbol_hook): If not defined, define as 0. (elf32_bed): Initialize new fields. * elf64-target.h: Same changes as elf32-target.h. * elf32-i386.c: Include bfdlink.h. (elf_i386_relocate_section): New function. (elf_backend_relocate_section): Define. * elf32-sparc.c: Include bfdlink.h. (elf_info_to_howto): Change type of dst from Elf32_Internal_Rela to Elf_Internal_Rela (they're the same type anyhow). (elf_sparc_relocate_section): New function. (elf_backend_relocate_section): Define. * elf32-mips.c (elf_backend_collect): Define. * Makefile.in (stmp-bfd.h): Avoid useless make error message in a different way; touch takes a numeric argument on some systems. Fri May 6 13:34:14 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * nlmcode.h (nlm_swap_auxiliary_headers_in): Rework custom header handling for latest suggested format. (nlm_swap_auxiliary_headers_out): Likewise. (nlm_compute_section_file_positions): Likewise. Fri May 6 11:11:50 1994 D. V. Henkel-Wallace (gumby@rtl.cygnus.com) * config.bfd: handle erricsson config (for OSE). Thu May 5 15:40:47 1994 Ken Raeburn (raeburn@cujo.cygnus.com) Patches from Ralph Campbell: * mipsbsd.c (mips_fix_jmp_addr): New function. (mips_fix_hi16_s): Use bfd_is_com_section. (mips_howto_table_ext): Call mips_fix_jmp_addr for MIPS_RELOC_JMP. Fri May 6 11:48:55 1994 Steve Chamberlain (sac@cygnus.com) * config/go32.mh: XX support. From bill * Makefile.in: Build sysdep.h without causing worrying but harmless error message. Wed May 4 11:09:53 1994 Ian Lance Taylor (ian@cygnus.com) Changed m68k-aout to set flags to 0; m68k-sunos still uses 1. * aout0.c: New file. * targets.c (aout0_big_vec): Declare. (bfd_target_vector): Add aout0_big_vec. * config.bfd (m68*-*-aout*): Use m68k-0aout, not m68k-aout. * config/m68k-aout.mt (SELECT_VECS): Removed. * config/m68k-0aout.mt: New file. * configure.in (aout0_big_vec): New target vector: use aout0.o, aout32.o and stab-syms.o. * Makefile.in: Rebuilt dependencies. (BFD32_BACKENDS): Add aout0.o. (CFILES): Add aout0.c. * libaout.h (struct aout_backend_data): Add field exec_hdr_flags. * aout-target.h (MY_exec_hdr_flags): If not defined, define as 0. MY(backend_data): Initialize exec_hdr_flags field. * aoutf1.h (sunos_32_set_arch_mach): Make static. (aout32_sunos4_write_object_contents): Set flags from backend info. (MY_exec_hdr_flags): If not defined, define as 1. (sunos4_aout_backend): Initialize exec_hdr_flags field. * aout-encap.c (encap_write_object_contents): Set flags from backend info. (MY_exec_hdr_flags): Define as N_FLAGS_COFF_ENCAPSULATE. * hp300hpux.c (MY_exec_hdr_flags): Define as 0x2. (MY(write_object_contents)): Set flags from backend info. * i386aout.c (MY(backend_data)): Initialize exec_hdr_flags field. * i386mach3.c (MY(backend_data)): Likewise. * mipsbsd.c (MY(backend_data)): Likewise. * sparclynx.c (NAME(aout,sparclynx_write_object_contents)): Set flags from backend info. (sparclynx_aout_backend): Initialize exec_hdr_flags field. Wed May 4 02:56:00 1994 Ken Raeburn (raeburn@kr-pc.cygnus.com) * config.bfd (i386-*-gnu*): Treat like i386-*-mach*. (m68*-apollo-*): Treat all Apollo configs the same, don't handle BSD specially. Tue May 3 19:43:21 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * cache.c: Rewrote to work correctly. * libbfd.h: Rebuilt. * opncls.c (bfd_cache_init, bfd_open_file): Don't declare. (bfd_fdopenr): Check return value of bfd_cache_init. Fri Apr 29 15:08:23 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * cf-m68klynx.c (CALC_ADDEND): Check for PC relative relocs by enumerating them, since the reloc type can not serve as an index into the m68k COFF howto_table. Fri Apr 29 09:42:39 1994 Steve Chamberlain (sac@cygnus.com) * config.bfd (*-go32): Changed to coff. * coff-h8300.c (JMPL1): Get HOWTO right for 24bit branches. * srec.c (srec_write_symbols): Write out the correct number of symbols and don't stick in extra nulls. Tue Apr 26 15:07:24 1994 Stan Shebs (shebs@andros.cygnus.com) * cf-sparclynx.c (LYNXOS, COFF_LONG_FILENAMES): Define. * coff-sparc.c (BADMAG): Recognize LYNXCOFFMAGIC. (COFF_SPARC): Define. * coffcode.h (coff_new_section_hook): If COFF_SPARC, set alignment power of data and bss sections to 3. * hosts/lynx.h (__LYNXOS): Define. Tue Apr 26 15:04:26 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * elf32-hppa.c (hppa_elf_reloc): Adjust the addend of relocations against section symbols to avoid losing during ld -r. Tue Apr 26 12:16:41 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (shstrtab_length_fixed): Remove useless static variable. (struct elf_sect_data): Remove unused structure. (elf_object_p): Free memory if error occurs. Check return value of bfd_default_set_arch_mach. If elf_get_str_section fails, preserve error code rather than setting wrong_format. (null_shdr): Remove static variable. (assign_section_numbers): Remove shstrtab_length_fixed assignment. Allocate first section header on BFD obstack rather than using null_shdr. (bfd_prpsinfo): Remove unused local variable newsect. Mon Apr 25 15:31:04 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (write_relocs): Undo patch of Apr 10; breaks Solaris. * elfcode.h (bfd_section_from_shdr): Use bfd_make_section_anyway to create sections. Check return value of recursive calls. (bfd_section_from_phdr): Check return value of bfd_make_section. (elf_symbol_from_bfd_symbol): Likewise. (elf_object_p): Check return value of bfd_section_from_shdr. (section_from_elf_index): Likewise. (elf_slurp_symbol_table): Check return value of section_from_elf_index. (bfd_prstatus): Return boolean value. Check return value of bfd_make_section. (bfd_fpregset): Likewise. (bfd_prpsinfo): Return boolean value. (elf_corefile_note): Check return values of bfd_prstatus, bfd_fpregset, and bfd_prpsinfo. (elf_core_file_p): Check return value of elf_corefile_note. Fri Apr 22 11:08:38 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Get rid of the ECOFF .reginfo section hack. * ecoff.c (ecoff_mkobject_hook): Don't create a .reginfo section. (ecoff_new_section_hook): Don't handle the .reginfo section. (ecoff_sizeof_headers): Likewise. (ecoff_get_section_contents): Likewise. (ecoff_compute_section_file_positions): Likewise. (ecoff_compute_reloc_file_positions): Likewise. (ecoff_set_section_contents): Likewise. (ecoff_write_object_contents): Likewise. (ecoff_bfd_final_link): Likewise. (ecoff_bfd_copy_private_bfd_data): Copy the GP value and the register masks. (bfd_ecoff_get_gp_value): New function. (bfd_ecoff_set_gp_value): New function. (bfd_ecoff_set_regmasks): New function. * bfd-in.h (bfd_ecoff_get_gp_value): Declare. (bfd_ecoff_set_gp_value): Declare. (bfd_ecoff_set_regmasks): Declare. * bfd-in2.h: Rebuilt. Fix ECOFF objcopy to actually copy debugging information. * ecoff.c (ecoff_bfd_copy_private_bfd_data): New function. (ecoff_get_extr): Assume that any ECOFF symbol with local clear is an external symbol, rather than checking the symbol flags. Only check the flags for non-ECOFF symbols. * ecofflink.c (bfd_ecoff_debug_externals): Don't crash if the output_section field of the symbol section is NULL. * libecoff.h (ecoff_bfd_copy_private_bfd_data): Declare as function rather than defining as macro. * ieee.c (ieee_object_p): Set bfd_error_got_wrong_format if appropriate. * targets.c (bfd_target_vector): Add bfd_elf32_powerpc_vec. * aout-adobe.c (aout_adobe_set_arch_mach): Check return value of bfd_default_set_arch_mach. Accept bfd_arch_m68k as well as bfd_arch_unknown. * coffcode.h (coff_set_arch_mach): Check return value of bfd_default_set_arch_mach. * elfcode.h (elf_set_arch_mach): Don't check a list of ELF architectures, just see if the desired architecture matches what the ELF backend permits. * coffcode.h (coff_set_arch_mach_hook): Rename SHMAGIC to SH_ARCH_MAGIC to match change in coff/sh.h. (coff_set_flags): Likewise. Follow convention in which each NLM header has an 8 byte stamp followed by a four byte length. * libnlm.h (struct nlm_obj_tdata): Rename nlm_cygnus_section_hdr to nlm_cygnus_ext_header, and change type to Nlm_Internal_Cygnus_Ext_Header. (nlm_cygnus_ext_header): Rename from nlm_cygnus_section_header. * nlmcode.h (nlm_swap_auxiliary_headers_in): Use CyGnUsEx instead of CyGnUsSeCs. Rename from cygnus_section to cygnus_ext. Require length word to be 8. (nlm_swap_auxiliary_headers_out): Rename from cygnus_section to cygnus_ext. Set length word to 8. (nlm_compute_section_file_positions): Rename from cygnus_section to cygnus_ext. Thu Apr 21 22:54:22 1994 Stu Grossman (grossman at cygnus.com) * nlmcode.h (nlm_swap_auxiliary_headers_in): Keep section table (from CyGnUsSeCs) in more permanent memory to keep section names from getting trashed. Thu Apr 21 09:29:37 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * libelf.h (elf_obj_tdata): Add members for dynamic symbol table handling. * elfcode.h (bfd_section_from_shdr): Handle dynamic symbol table. * elfcode.h (elf_slurp_symbol_table): Take additional parameter to select static or dynamic symbol table and return number of symbols slurped or -1 on error. * elfcode.h (elf_get_symtab): Set bfd symcount from elf_slurp_symbol_table result. * elfcode.h (elf_get_dynamic_symtab_upper_bound, elf_canonicalize_dynamic_symtab): New functions to handle dynamic symbol table. * elf32-target.h, elf64-target.h (BFD_JUMP_TABLE_DYNAMIC): Change to handle dynamic symbol table, provide default definitions for dynamic relocs. * aoutx.h (howto_table_std, NAME(aout,swap_std_reloc_out), NAME(aout,swap_std_reloc_in), aout_link_input_section_std, aout_link_reloc_link_order): Handle r_jmptable and r_relative relocations. Thu Apr 21 11:58:19 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Clean up uses of _bfd_dummy_target (from Peter Schauer). * libbfd.c (_bfd_dummy_target): Set bfd_error_wrong_format. * nlm-target.h (nlm_core_file_p): Define as _bfd_dummy_target, not NULL. * srec.c (srec_vec): Use _bfd_dummy_target, not NULL, in _bfd_check_format. (symbolsrec_vec): Likewise. * tekhex.c (tekhex_vec): Likewise. * libnlm.h (struct nlm_obj_tdata): Add nlm_cygnus_section_hdr field. (nlm_cygnus_section_header): New accessor macro. * nlmcode.h (nlm_object_p): Free new tdata structure if failure. Add fixed sections before swapping in auxiliary headers. After adding sections, treat errors as real, not as wrong format. (nlm_swap_auxiliary_headers_in): Swap in the sections header; add sections to the BFD for each section it describes. (nlm_swap_auxiliary_headers_out): Swap out the sections header. (nlm_compute_section_file_positions): Account for the size of the sections header. Wed Apr 20 16:45:51 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * coff-sparc.c (sparccoff_vec): Change minimum alignment power to 2, so that stab sections can be multiples of 4 bytes only. * hosts/i386aix.h: Changes to avoid prototypes conflicts with the ones defined in stdlib.h. (From Minh Tran-Le.) Wed Apr 20 14:15:21 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * nlm32-ppc.c: Complete rewrite for new version of PowerPC NetWare. Old code still present, but ifdeffed out. * nlmcode.h (nlm_swap_auxiliary_headers_in): Don't assume a particular format for the customer header. Allocate a block of memory and read it into that. (nlm_swap_auxiliary_headers_out): Write out the block of memory. (nlm_compute_section_file_positions): Include length of customer header when computing its size. Mon Apr 18 14:27:17 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_prep_headers): Get the space's number from the backend private section data rather than target_index. (bfd_som_set_section_attributes): Store the space's number in the backend private section data rather than target_index. * som.h (som_copyable_section_data_struct): Add space_number. Fri Apr 15 12:22:07 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-a29k.c (reloc_processing): Always set the address of a R_IHCONST reloc to that of the immediately preceding R_IHIHALF. gas does this anyhow, but some other assemblers seem to leave garbage in the R_IHCONST address field. * bfd/archive.c: Consistently use ARFMAG; from schwab@issan.informatik.uni-dortmund.de (Andreas Schwab). (_bfd_write_archive_contents): Use ARFMAG rather than '`' and '\012'. (bsd_write_armap): Likewise. (coff_write_armap): Likewise. * coff-mips.c (mips_relocate_section): When relaxing, adjust local relocs against the .text section as required. * ecofflink.c (bfd_ecoff_debug_accumulate): When relaxing, adjust PDR addresses as required. * ecoff.c (ecoff_emit_aggregate): Take fdr argument. Map fdr index through rfd map if it exists. Check for a couple of cases which gdb handles specially. Change all callers. (ecoff_type_to_string): Take fdr argument rather than aux_ptr and bigendian argument. Change all callers. (ecoff_print_symbol): Handle stStruct, stUnion and stEnum. Thu Apr 14 13:05:10 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-mips.c (mips_howto_table): Add dummy entries to account for numbering changes in include/coff/mips.h. Add entries for MIPS_R_RELHI and MIPS_R_RELLO. (mips_ecoff_swap_reloc_in): Handle an extra bit for the reloc type when little endian. Treat internal MIPS_R_RELLO or MIPS_R_RELHI relocs like MIPS_R_SWITCH, and convert r_offset from 24 to 32 bits. (mips_ecoff_swap_reloc_out): Likewise. (mips_adjust_reloc_in): Handle internal MIPS_R_RELLO or MIPS_R_RELHI relocs like MIPS_R_SWITCH. (mips_adjust_reloc_out): Likewise. (mips_relhi_addr, mips_relhi_addend): New static variables. (mips_relhi_reloc, mips_rello_reloc): New functions. (mips_bfd_reloc_type_lookup): Turn BFD_RELOC_PCREL_HI16_S into MIPS_R_RELHI and turn BFD_RELOC_PCREL_LO16 into MIPS_R_RELLO. (mips_relocate_hi): Rename from mips_relocate_refhi, and add pcrel argument. Changed all callers. (mips_relocate_section): Rename got_reflo to got_lo and reflo_int_rel to lo_int_rel. Handle MIPS_R_RELLO and MIPS_R_RELHI relocs. (mips_relax_section): Adjust MIPS_R_RELHI/MIPS_R_RELLO pairs when expanding a PC relative call. * reloc.c (bfd_reloc_code_real_type): Add BFD_RELOC_PCREL_HI16_S and BFD_RELOC_PCREL_LO16. * bfd-in2.h: Rebuilt. Wed Apr 13 11:50:07 1994 Stan Shebs (shebs@andros.cygnus.com) * coff-sparc.c (sparccoff_vec): Set minimum alignment power to 3. Tue Apr 12 13:36:20 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_write_fixups): Always emit at least one relocation for any non-bss section. Mon Apr 11 14:41:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (assign_file_positions_except_relocs): Don't require the file alignment to correspond to the page size when linking with -N. Sun Apr 10 01:02:24 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * elfcode.h (write_relocs): For rela relocations, adjust the addend for relocations involving section symbols to account for the lossage of 1:1 mapping from input section symbols to output section symbols. Fri Apr 8 12:22:02 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (NAME(aout,make_sections)): New function. (NAME(aout,some_aout_object_p)): Call NAME(aout,make_sections) rather than making sections inline. (NAME(aout,mkobject)): Don't make any sections. (NAME(aout,adjust_sizes_and_vmas)): Call NAME(aout,make_sections). (NAME(aout,final_link)): Don't dereference obj_textsec (abfd) or obj_datasec (abfd) if they are NULL. * libaout.h (NAME(aout,make_sections)): Declare. * bout.c (b_out_mkobject): Don't make any sections. (b_out_write_object_contents): Call aout_32_make_sections. (b_out_set_section_contents): Likewise. * i386os9k.c (os9k_mkobject): Don't make any sections. (os9k_write_object_contents): Call aout_32_make_sections. (os9k_set_section_contents): Likewise. * aoutx.h (NAME(aout,new_section_hook)): Don't set N_EXT in target index. Wed Apr 6 20:44:56 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * config.bfd, configure.host: Add mips-*-sysv4* support. Thu Apr 7 14:23:05 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-mips.c (mips_howto_table): Add entry for MIPS_R_SWITCH. (mips_ecoff_swap_reloc_in): For MIPS_R_SWTICH, copy r_symndx into r_offset and set r_symndx to RELOC_SECTION_TEXT. (mips_ecoff_swap_reloc_out): For MIPS_R_SWITCH, get the r_symndx value from the r_offset field. (mips_adjust_reloc_in): Maximum r_type value is now MIPS_R_SWITCH. For MIPS_R_SWITCH, copy the r_offset field into the addend field. (mips_adjust_reloc_out): For MIPS_R_SWITCH, copy the addend field into the r_offset field. (mips_switch_reloc): New function. (mips_bfd_reloc_type_lookup): Translate BFD_RELOC_GPREL32 into MIPS_R_SWITCH. (mips_relocate_section): Handle MIPS_R_SWITCH. (mips_relax_section): Adjust MIPS_R_SWITCH offset if necessary. Thu Apr 7 11:10:51 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * elfcode.h (elf_set_section_contents): Support calling the backend function elf_backend_begin_write_processing when just beginning to write an object file. * libelf.h (elf_backend_begin_write_processing): Declare. * elf{32,64}-target.h (elf_backend_begin_write_processing): Provide a default definition. (elf{32,64}_bed): Add elf_backend_begin_write_processing. * elf32-hppa.h (elf_hppa_tc_symbol): Delete extern declaration. (elf_hppa_tc_make_sections): Likewise. * elf32-hppa.c (symext_chain_built): Delete. (symext_chain_size): Renamed from symextn_contents_real_size. (elf32_hppa_backend_{begin,final}_write_processing): New functions. (add_entry_to_symext_chain): New function. (hppa_elf_set_section_contents): Ignore writes to the symbol extension section until it's been rebuilt internally. (hppa_elf_get_section_contents): Symbol extension section is no longer special. (elf_backend_{begin,final}_write_processing): Define. (elf_hppa_tc_make_sections): Simplify now that much code has migrated into elf32_hppa_backend_{being,final}_write_processing. Wed Apr 6 17:24:14 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Add new target vectors to read the dynamic symbols and dynamic relocs. Change a.out to use these rather than reading the dynamic symbols and relocs along with the normal symbols and relocs. * targets.c (bfd_target): Add fields _bfd_get_dynamic_symtab_upper_bound, _bfd_canonicalize_dynamic_symtab, _bfd_get_dynamic_reloc_upper_bound, _bfd_canonicalize_dynamic_reloc. (BFD_JUMP_TABLE_DYNAMIC): Define. * libbfd-in.h (_bfd_nodynamic_get_dynamic_symtab_upper_bound): Define. (_bfd_nodynamic_canonicalize_dynamic_symtab): Define. (_bfd_nodynamic_get_dynamic_reloc_upper_bound): Define. (_bfd_nodynamic_canonicalize_dynamic_reloc): Define. * bfd.c (bfd_get_dynamic_symtab_upper_bound): Define. (bfd_canonicalize_dynamic_symtab): Define. (bfd_get_dynamic_reloc_upper_bound): Define. (bfd_canonicalize_dynamic_reloc): Define. * sunos.c (MY_read_dynamic_symbols): Don't define. (MY_read_dynamic_relocs): Don't define. (MY_get_dynamic_symtab_upper_bound): Define. (MY_canonicalize_dynamic_symtab): Define. (MY_get_dynamic_reloc_upper_bound): Define. (MY_canonicalize_dynamic_reloc): Define. (struct sunos_dynamic_info): Change type of dynsym_count and dynrel_count to long. Add fields canonical_dynsym and canonical_dynrel. (sunos_read_dynamic_info): Check that BFD had DYNAMIC flag set. Clear info->canonical_dynsym and info->canonical_dynrel. (MY(read_dynamic_symbols)): Removed. (MY(read_dynamic_relocs)): Removed. (sunos_get_dynamic_symtab_upper_bound): New function. (sunos_canonicalize_dynamic_symtab): New function. (sunos_get_dynamic_reloc_upper_bound): New function. (sunos_canonicalize_dynamic_reloc): New function. * libaout.h: Declare struct reloc_ext_external and reloc_std_external to avoid prototype problems. (struct aout_backend_data): Remove fields read_dynamic_symbols and read_dynamic_relocs. (NAME(aout,translate_symbol_table)): Declare. (NAME(aout,swap_ext_reloc_in)): Declare. (NAME(aout,swap_std_reloc_in)): Declare. * aoutx.h (NAME(aout,translate_symbol_table)): Renamed from translate_symbol_table and made non-static. Changed all callers. (NAME(aout,slurp_symbol_table)): Don't read dynamic symbols. (NAME(aout,slurp_reloc_table)): Don't read dynamic relocs. (NAME(aout,get_reloc_upper_bound)): Don't count dynamic relocs. * aoutf1.h (aout_32_sunos4_write_object_contents): Don't bother to remove dynamic symbols and relocs. They will no longer be present. (MY_read_dynamic_symbols): Don't define. (MY_read_dynamic_relocs): Don't define. (sunos4_aout_backend): Don't initialize dynamic entry points. * aout-target.h (MY_read_dynamic_symbols): Don't define. (MY_read_dynamic_relocs): Don't define. (MY(backend_data)): Don't initialize dynamic entry points. (MY_get_dynamic_symtab_upper_bound): If not defined, define to _bfd_nodynamic version. (MY_canonicalize_dynamic_symtab): Likewise. (MY_get_dynamic_reloc_upper_bound): Likewise. (MY_canonicalize_dynamic_reloc): Likewise. * All backends: Added BFD_JUMP_TABLE_DYNAMIC to target vector. * bfd-in2.h: Rebuilt. * libbfd.h: Rebuilt. * cf-m68klynx.c: Include sysdep.h. * hp300hpux.c: Removed some spaces in uses of NAME to avoid problems with traditional C compilers. * targets.c (bfd_target): Rearranged fields in target vector. Removed _bfd_debug_info_start, _bfd_debug_info_end and _bfd_debug_info_accumulate, which were never used. (BFD_JUMP_TABLE_GENERIC, BFD_JUMP_TABLE_COPY): Defined. (BFD_JUMP_TABLE_CORE, BFD_JUMP_TABLE_ARCHIVE): Defined. (BFD_JUMP_TABLE_SYMBOLS, BFD_JUMP_TABLE_RELOCS): Defined. (BFD_JUMP_TABLE_WRITE, BFD_JUMP_TABLE_LINK): Defined. * All backends: Changed to use the new BFD_JUMP_TABLE_* macros rather than the single JUMP_TABLE macro. Removed many of the weird macro definitions needed to support the monolithic JUMP_TABLE. * bfd-in.h (JUMP_TABLE): Removed. * libbfd-in.h: Define a bunch of macros, and declare a few functions, for use with the new BFD_JUMP_TABLE_* macros. * libbfd.c (_bfd_dummy_new_section_hook): Removed. (bfd_false): Set bfd_error_invalid_operation. (bfd_nullvoidptr): Likewise. (bfd_n1): New function. (_bfd_nocore_core_file_matches_executable_p): Renamed from _bfd_dummy_core_file_matches_executable_p. (_bfd_nocore_core_file_failing_command): Similar rename. Set bfd_error_invalid_operation. (_bfd_nocore_core_file_failing_signal): Likewise. (_bfd_generic_get_section_contents): Renamed from bfd_generic_get_section_contents. Changed all callers. (_bfd_generic_set_section_contents): Similar rename. * ieee.c: #if 0 out ieee_bfd_debug_info_start, ieee_bfd_debug_info_end, ieee_bfd_debug_info_accumulate. They were never called. * bfd-in2.h: Rebuilt. * libbfd.h: Rebuilt. Tue Apr 5 22:10:04 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * Crude support for examining dynamic libraries. * som.c (som_object_setup): Set DYNAMIC flag for SHL_MAGIC and DL_MAGIC objects. (som_prep_headers): Preserve the system_id for DYNAMIC objects. Use SHL_MAGIC as the magic number of the DYNAMIC flag is set. Write exec headers for DYNAMIC objects. (som_begin_writing): DYNAMIC objects have the same alignment restrictions as D_PAGED objects. (bfd_section_from_som_symbol): Treat DYNAMIC objects like EXEC_P objects. (object_flags): Add DYNAMIC. Tue Apr 5 17:48:52 1994 Stan Shebs (shebs@andros.cygnus.com) * i386lynx.c, sparclynx.c (NAME): Remove embedded whitespace in macro uses, confuses some non-ANSI compilers. Tue Apr 5 15:50:01 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_bfd_free_cached_info): Add missing PARAMS decl. Don't free anything if we don't have a bfd_object. (som_close_and_cleanup): Call som_bfd_free_cached_info. Tue Apr 5 11:22:38 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elf32-mips.c (mips_elf_final_link): Don't remove empty sections. It turns out not to be required on Irix 5, and it causes problems if the sections happen to contain symbols. * elfcode.h (write_shdrs_and_ehdr): Correct bfd_write check. * aoutx.h (NAME(aout,canonicalize_reloc)): Don't error out if section->relocation is NULL; malloc might have returned NULL when given a zero size if there were no relocations. * bout.c (b_out_canonicalize_reloc): Likewise. * coffcode.h (coff_canonicalize_reloc): Likewise. * ecoff.c (ecoff_canonicalize_reloc): Likewise. * elfcode.h (elf_canonicalize_reloc): Likewise. * mipsbsd.c (MY(canonicalize_reloc)): Likewise. * i386lynx.c (NAME(lynx,canonicalize_reloc)): Likewise. * nlmcode.h (nlm_canonicalize_reloc): Likewise. * som.c (som_canonicalize_reloc): Likewise. * hp300hpux.c (MY(slurp_reloc_table)): Likewise. Also, if malloc returns NULL, don't report an error if we asked for zero bytes. * i386lynx.c (NAME(lynx,slurp_reloc_table)): If malloc returns NULL, don't report an error if we asked for zero bytes. * nlmcode.h (nlm_slurp_reloc_fixups): Likewise. Mon Apr 4 15:30:49 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (NAME(aout,bfd_free_cached_info)): Don't free anything if we don't have a bfd_object. Made sure that every call to bfd_read, bfd_write, and bfd_seek checks the return value and handled bfd_error correctly. These changes are not itemised. Also: * aoutx.h (emit_strtab): Change return type to boolean, and return errors. (NAME(aout,write_syms)): Check emit_strtab return value. (NAME(aout,final_link)): Likewise. * coffcode.h (coff_write_relocs): Change return type to boolean, and return errors. (coff_write_object_contents): Check coff_write_relocs return value. * i386os9k.c (os9k_swap_exec_header_in): Change return type to boolean. (os9k_object_p): Check os9k_swap_exec_header_in return value. * oasys.c (oasys_read_record): Change return type to boolean. (oasys_slurp_symbol_table: Check oasys_read_record return value. (oasys_object_p, oasys_slurp_section_data): Likewise. (oasys_write_record): Change return type to boolean. (oasys_write_syms): Likewise. Also, check oasys_write_record return value. (oasys_write_sections): Check oasys_write_record return value. (oasys_write_header): Change return type to boolean. Check oasys_write_record return value. (oasys_write_end, oasys_write_data): Likewise. (oasys_write_object_contents): Check return values of oasys_write_header, oasys_write_syms, oasys_write_data, and oasys_write_end. * srec.c (srec_write_record): Change return type to boolean. (srec_write_header): Likewise. Also, check srec_write_record return value. (srec_write_section, srec_write_terminator): Likewise. (srec_write_symbols): Change return type to boolean. (internal_srec_write_object_contents): Check return value of srec_write_symbols, srec_write_header, srec_write_section, and srec_write_terminator. * Makefile.in: Rebuilt dependencies. Mon Apr 4 10:56:45 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * aix386-core.c (aix386_bfd_is_local_label): Correct cast from asection to asymbol. * ptrace-core.c (ptrace_unix_bfd_is_local_label): Correct cast from bfd to asymbol. * trad-core.c (trad_unix_bfd_is_local_label): Correct cast from asection to asymbol. Sun Apr 3 18:27:29 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_slurp_string_table): Use malloc to allocate space for the cached copy of the native string table. (som_slurp_symbol_table): Likewise for the native symbol table. (som_slurp_reloc_table): Likewise for the native and generic relocation tables. (som_bfd_free_cached_info): Free the cached native strings, symbols, and relocations. Also free the canonical cached relocations. Fri Apr 1 12:40:58 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (aout_link_write_symbols): If keep_memory is false, make sure the symbol name is stored in permanent memory before adding it to the string table. * archive.c (_bfd_write_archive_contents): Once we've found an object, don't bother to look for more when deciding whether to build a map. (compute_and_write_armap): After adding the symbols for a BFD, call bfd_free_cached_info on it. Add bfd_free_cached_info support to a.out backends. * aoutx.h (aout_get_external_symbols): Renamed from aout_link_get_symbols. Read strings even if symbols have been read. Store string size in obj_aout_string_size. (NAME(aout,slurp_symbol_table)): Call aout_get_external_symbols to read the symbols. Allocate the cached symbols with malloc, not bfd_alloc. (NAME(aout,slurp_reloc_table)): Allocate the cached relocs with malloc, not bfd_alloc. (NAME(aout,bfd_free_cached_info)): New function; free cached symbols and relocs. * libaout.h (struct aoutdata): Add external_string_size field. (obj_aout_external_string_size): New accessor macro. (NAME(aout,close_and_cleanup)): Don't declare. (NAME(aout,bfd_free_cached_info)): Declare. (aout_32_close_and_cleanup): Don't define. (aout_64_close_and_cleanup): Don't define. * aout-target.h (MY_bfd_free_cached_info): If not already defined, define as NAME(aout,free_cached_info). (MY_close_and_cleanup): If not already defined, define as MY_bfd_free_cached_info. * aout-adobe.c (aout_32_close_and_cleanup): Define. (aout_32_bfd_free_cached_info): Don't define. * bout.c (aout_32_close_and_cleanup): Define. (aout_32_bfd_free_cached_info): Don't define. * hp300hpux.c (MY_bfd_free_cached_info): Define as bfd_true. (MY_close_and_cleanup): Don't define. * i386lynx.c (NAME(lynx,slurp_reloc_table)): Allocate the cached relocs with malloc, not bfd_alloc. * i386os9k.c (aout_32_close_and_cleanup): Define. (aout_32_bfd_free_cached_info): Don't define. Add a new entry point to free memory cached by a BFD. * targets.c (bfd_target): Add _bfd_free_cached_info field. * bfd.c (bfd_free_cached_info): Define. * bfd-in.h (JUMP_TABLE): Add _bfd_free_cached_info. * bfd-in2.h: Rebuilt. * All backends: Initialize bfd_free_cached_info entry point to bfd_true. * elf32-hppa.c (elf_hppa_reloc_type_lookup): Correct type of first, unused, argument. (hppa_elf_is_local_label): Declare instead of som_bfd_is_local_label. * coff-a29k.c (a29k_reloc): Add reloc_entry->address to value of absolute R_IREL reloc. Thu Mar 31 11:52:15 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Added some support for Irix 4 shared libraries. * ecoff.c (ecoff_new_section_hook): Set SEC_SHARED_LIBRARY for a .lib section. (ecoff_sec_to_styp_flags): Set SEC_SHARED_LIBRARY if STYP_ECOFF_LIB bit is set. (ecoff_compute_section_file_positions): Round the contents of a .lib section up to the next page boundary. (ecoff_set_section_contents): If we see a .lib section, increment the vma by one to count the number of shared libraries we have. (ecoff_write_object_contents): Don't crash if we see a STYP_ECOFF_LIB section, and don't adjust text_start or data_start or bss_size either. * coffcode.h (CALC_ADDEND): Change to fetch original symbol value from original BFD, rather than using value of current BFD symbol. Needed for new linker. * coff-sparc.c (CALC_ADDEND): Likewise. * ecoff.c (ecoff_write_object_contents): Set the text_start and data_start entries in the optional header correctly even if a text or data section starts at location zero. * reloc.c (bfd_reloc_code_real_type): Added BFD_RELOC_26 (from sef and raeburn). * bfd-in2.h: Rebuilt. * nlm32-i386.c (nlm_i386_read_import): Null terminate the symbol name. * nlm32-alpha.c (nlm_alpha_read_import): Likewise. * nlm32-sparc.c (nlm_sparc_read_import): Likewise. * coffgen.c (coff_write_symbol): Reindented. Changed to return boolean, and changed written to unsigned int *. Check error returns from called functions. (coff_write_alien_symbol): Likewise. (coff_write_native_symbol): Likewise. (coff_write_symbols): Likewise. Reworked checks on whether to write symbol name to string table for clarity and to avoid core dumping when given a non COFF symbol. * libcoff-in.h (coff_write_symbols): Declare as returning boolean. * libcoff.h: Rebuilt. * coffcode.h (coff_write_object_contents): Check return value of coff_write_symbols. Wed Mar 30 16:25:41 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Changes to let BFD return an error indication from get_symtab_upper_bound, bfd_canonicalize_symtab, bfd_get_reloc_upper_bound, and bfd_canonicalize_reloc. They now return long instead of unsigned int, and use -1 to indicate an error. Along the way, rename get_symtab_upper_bound to bfd_get_symtab_upper_bound. * bfd.c (bfd_get_reloc_upper_bound): Return long, and -1 on errors. (bfd_canonicalize_reloc): Likewise. * syms.c (bfd_get_symtab_upper_bound): Renamed from get_symtab_upper_bound. * targets.c (bfd_target): Renamed _get_symtab_upper_bound to _bfd_get_symtab_upper_bound, and changed it and _bfd_canonicalize_symtab and _get_reloc_upper_bound and _bfd_canonicalize_reloc to all return long. * aoutx.h (NAME(aout,get_symtab)): Return long, and -1 on errors. (NAME(aout,canonicalize_reloc)): Likewise. (NAME(aout,get_reloc_upper_bound)): Likewise. (NAME(aout,get_symtab_upper_bound)): Likewise. * bout.c (b_out_canonicalize_reloc): Likewise. (b_out_get_reloc_upper_bound): Likewise. * coffcode.h (coff_canonicalize_reloc): Likewise. * coffgen.c (coff_get_symtab_upper_bound): Likewise. (coff_get_symtab): Likewise. (coff_get_reloc_upper_bound): Likewise. * ecoff.c (ecoff_get_symtab_upper_bound): Likewise. (ecoff_get_symtab): Likewise. (ecoff_canonicalize_reloc): Likewise. * elfcode.h (elf_get_symtab_upper_bound): Likewise. (elf_get_reloc_upper_bound): Likewise. (elf_canonicalize_reloc): Likewise. (elf_get_symtab): Likewise. * hp300hpux.c (MY(get_symtab)): Likewise. (MY(get_symtab_upper_bound)): Likewise. (MY(canonicalize_reloc)): Likewise. * i386lynx.c (NAME(lynx,canonicalize_reloc)): Likewise. * ieee.c (ieee_slurp_external_symbols): Change return type to boolean. Check for errors from get_symbol. (ieee_slurp_symbol_table): Change return type to boolean. Check for errors from ieee_slurp_external_symbols. (ieee_get_symtab_upper_bound): Return long, and -1 on errors. (ieee_get_symtab): Likewise. (ieee_get_reloc_upper_bound): Likewise. (ieee_canonicalize_reloc): Likewise. * mipsbsd.c (MY(canonicalize_reloc)): Likewise. * nlmcode.h (nlm_get_symtab_upper_bound): Likewise. (nlm_get_symtab): Likewise. (nlm_get_reloc_upper_bound): Likewise. (nlm_canonicalize_reloc): Likewise. * oasys.c (oasys_get_symtab_upper_bound): Likewise. (oasys_get_symtab): Likewise. (oasys_get_reloc_upper_bound): Likewise. (oasys_canonicalize_reloc): Likewise. * som.c (som_get_symtab_upper_bound): Likewise. (som_get_symtab): Likewise. (som_get_reloc_upper_bound): Likewise. (som_canonicalize_reloc): Likewise. * srec.c (srec_get_symtab_upper_bound): Likewise. (srec_get_symtab): Likewise. (srec_get_reloc_upper_bound): Define as bfd_0l. (srec_canonicalize_reloc): Likewise. * tekhex.c (tekhex_get_symtab): Return long, and -1 on errors. (tekhex_get_symtab_upper_bound): Likewise. (tekhex_get_reloc_upper_bound): Define as bfd_0l. (tekhex_canonicalize_reloc): Likewise. * libaout.h (NAME(aout,get_symtab_upper_bound)): Change declaration to return long. (NAME(aout,get_symtab)): Likewise. (NAME(aout,canonicalize_reloc)): Likewise. (NAME(aout,get_reloc_upper_bound)): Likewise. * libcoff-in.h (coff_get_symtab_upper_bound): Likewise. (coff_get_symtab): Likewise. (coff_get_reloc_upper_bound): Likewise. * libecoff.h (ecoff_get_symtab_upper_bound): Likewise. (ecoff_get_symtab): Likewise. (ecoff_canonicalize_reloc): Likewise. * libelf.h (bfd_elf32_get_symtab_upper_bound): Likewise. (bfd_elf32_get_symtab): Likewise. (bfd_elf32_get_reloc_upper_bound): Likewise. (bfd_elf32_canonicalize_reloc): Likewise. (bfd_elf64_get_symtab_upper_bound): Likewise. (bfd_elf64_get_symtab): Likewise. (bfd_elf64_get_reloc_upper_bound): Likewise. (bfd_elf64_canonicalize_reloc): Likewise. * libnlm.h (nlmNAME(get_symtab_upper_bound)): Likewise. (nlmNAME(get_symtab)): Likewise. (nlmNAME(get_reloc_upper_bound)): Likewise. (nlmNAME(canonicalize_reloc)): Likewise. * archive.c (compute_and_write_armap): Use error_return and no_memory_return labels rather than freeing information in various places. Change storage, symcount and src_count to long. Check errors from bfd_get_symtab_upper_bound and bfd_canonicalize_symtab. * bout.c (b_out_relax_section): Change reloc_size to long. Check for errors from bfd_get_reloc_upper_bound and bfd_canonicalize_reloc. (b_out_get_relocated_section_contents): Likewise. * coff-alpha.c (alpha_ecoff_get_relocated_section_contents): Likewise. * elf32-mips.c: Likewise. * elf32-hppa.c (hppa_elf_stub_finish): Likewise. (hppa_look_for_stubs_in_section): Check for errors from bfd_get_symtab_upper_bound, bfd_canonicalize_symtab, and bfd_canonicalize_reloc. * ecofflink.c (bfd_ecoff_debug_accumulate_other): Check for errors from bfd_get_symtab_upper_bound and bfd_canonicalize_symtab. * linker.c (generic_link_read_symbols): Likewise. (_bfd_generic_final_link): Check for errors from bfd_get_reloc_upper_bound and bfd_canonicalize_reloc. * reloc.c (bfd_generic_get_relocated_section_contents): Likewise. * reloc16.c (bfd_coff_reloc16_relax_section): Likewise. (bfd_coff_reloc16_get_relocated_section_contents): Likewise. * libbfd.c (bfd_0l): New function. * libbfd-in.h (bfd_0l): Declare. * aix386-core.c: Change get_symtab_upper_bound, get_symtab, get_reloc_upper_bound, and canonicalize_reloc to use bfd_0l rather than bfd_0u. * cisco-core.c, hppabsd-core.c, hpux-core.c: Likewise. * irix-core.c, osf-core.c, ptrace-core.c, trad-core.c: Likewise. * bfd-in2.h: Rebuilt. * libbfd.h: Rebuilt. * libcoff.h: Rebuilt. * nlm32-sparc.c (nlm_sparc_read_reloc): Remove unused variables temp and name. Wed Mar 30 08:33:04 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * hosts/dpx2.h: Define POSIX_UTIME. Wed Mar 30 00:31:49 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * i386dynix.c, config/i386-dynix.mt: New files, handling Dynix variant of a.out. * configure.in, config.bfd: Use them for Dynix. * Makefile.in: Add dependencies for i386dynix.o. * targets.c: Add definition for i386dynix_vec. * hosts/symmetry.h: Do not define TRAD_CORE_USER_OFFSET for Dynix. Define HOST_DATA_START_ADDR and TRAD_UNIX_CORE_FILE_FAILING_SIGNAL for Dynix. Remove inclusion of dynix3.h, Dynix bfd is now handled by i386dynix.c Mon Mar 28 12:53:27 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * Makefile.in (BFD32_BACKENDS): Add coff-sparc.o. * coffcode.h (coff_set_flags): Handle bfd_arch_powerpc like bfd_arch_rs6000. * config.bfd (powerpc-*-aix*): New target; use rs6000.mt. * config/rs6000.mt (SELECT_ARCHITECTURES): Add bfd_powerpc_arch. * aoutx.h (translate_from_native_sym_flags): Set SEC_RELOC flag for generated constructor section. Sun Mar 27 16:25:22 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_begin_writing): New approach at dealing with holes in executables left by the HP linker. Does not rely on subspace alignments as subspaces are *NOT* guaranteed to be properly aligned in an executable (can you believe that!). Sat Mar 26 10:25:43 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_get_section_contents): New function. Do not try to actually read data from a section that doesn't have either SEC_LOAD or SEC_DEBUGGING set (eg $BSS$) just return true. * libbfd.c (bfd_read): Set bfd_error as appropriate for a short read. (bfd_error_system_call or bfd_error_file_truncated). * som.c: Do not blindly set bfd_error_system_call after a failing bfd_read, bfd_write, or bfd_seek. In a few places (like som_object_p) override the error status set by bfd_read. * aix386-core.c, aout-encap,c archive.c, bout.c: Likewise. * coff-rs6000.c, coffgen.c ecoff.c, elf.c: Likewise. * elf32-hppa.c, elfcode.h, hp300hpux.c, i386lynx.c: Likewise. * nlm32-alpha.c, nlm32-i386.c, nlm32-sparc.c: Likewise. * som.c: Check return values from several bfd_{seek,read,write} calls that we just assumed were not failing. Fri Mar 25 11:44:06 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * hosts/sysv4.h (HAVE_PROCFS): Add comments about ptx4. * config/sysv4.mh: Add comment. * config/symmetry.mh: Change comment. * configure.host: Use sysv4, not symmetry, for i[34]86-sequent-sysv4*. Fri Mar 25 17:10:45 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Changes to support linker relaxing of embedded MIPS PIC code to use a five instruction sequence for function calls which are out of range of the bal instruction. * libecoff.h (struct ecoff_section_tdata): Define. (ecoff_section_data): Define. (ecoff_bfd_relax_section): Don't define. * ecoff.c (ecoff_final_link_debug_accumulate): Don't read or free the debugging information if it has already been read. (ecoff_indirect_link_order): Handle _cooked_size being different from _raw_size. Don't reread the contents or the relocs if they have already been read in. * coff-mips.c (mips_howto_table): Change bitsize of PCREL16 from 18 to 16. (PCREL16_EXPANSION_ADJUSTMENT): Define. (mips_relocate_refhi): Take adjust argument. (mips_relocate_section): Handle reloc offsets stored in section used_by_bfd field. Call mips_relax_pcrel16 to handle details of expanding an out of range PCREL16. Keep trace of adjustments required by expansions. Set s and unset h when converting a reloc from undefined to section. Change handling of PC relative relocs: if against a section, they are correct in the object file, if against an external symbol they are pcrel_offset. (mips_relax_section): New function. (mips_relax_pcrel16): New function. (ecoff_bfd_relax_section): Define. * coff-alpha.c (ecoff_bfd_relax_section): Define. * ecofflink.c (bfd_ecoff_debug_accumulate): Handle adjustments built by mips_relax_section when writing out addresses. * elf32-mips.c (mips_elf_read_ecoff_info): Clear adjust field. * aoutx.h (NAME(aout,find_nearest_line)): The caller expects functionname_ptr to be set to a symbol name, so prepend symbol_leading_char. Thu Mar 24 11:33:46 1994 Steve Chamberlain (sac@jonny.cygnus.com) * coff-h8300.c (h8300_reloc16_extra_cases): Add relaxing info for 16bit relative branches. * coff-h8500.c (r_high8, r_low16, r_high16): Don't complain on overflow. Thu Mar 24 09:21:13 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_bfd_prep_for_ar_write): Ignore non-SOM objects. (som_bfd_ar_write_symbol_stuff, som_write_armap): Likewise. Wed Mar 23 14:29:31 1994 David J. Mackenzie (djm@rtl.cygnus.com) * netbsd386.c (N_SET_FLAGS): Delete the old definition. Wed Mar 23 14:58:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Clean up the relaxing code for the new linker. * targets.c (_bfd_relax_section): Take boolean *again argument rather than asymbol list. * bfd.c (bfd_relax_section): Change name of fourth argument from symbols to again. * reloc.c (bfd_generic_relax_section): Take boolean *again argument rather than asymbol list. Always return true. * bout.c: Include genlink.h. (aligncode, perform_slip): Declare. (perform_slip): Take BFD argument rather than asymbol list. Changed all callers. Get the symbols from the BFD. Change the hash table entry value as well as the symbol value. (abs32code): Take BFD argument rather than asymbol list. Changed all callers. (aligncode): Likewise. (b_out_relax_section): Take boolean *again argument rather than asymbol list. Only return false if an error occurred. Set *again to false. Get symbols from BFD. * reloc16.c: Include genlink.h. (bfd_perform_slip): Take BFD argument rather than asymbol list. Get the symbols from the BFD. Change the hash table entry value as well as the symbol value. (bfd_coff_reloc16_relax_section): Take boolean *again argument rather than asymbol list. Only return false if an error occurred. Set *again to false. Get symbols from BFD. * coffcode.h (bfd_coff_backend_data): Change _bfd_coff_reloc16_estimate to take BFD argument rather than asymbol list. (bfd_coff_reloc16_estimate): Corresponding change. (dummy_reloc16_estimate): Corresponding change. * libcoff-in.h (bfd_coff_reloc16_relax_section): Change declaration to take boolean * rather than asymbol list. (bfd_perform_slip): Change declaration to take BFD rather than asymbol list. * coff-h8300.c (h300_reloc16_estimate): Take BFD argument rather than asymbol list. Changed calls to bfd_perform_slip. * bfd-in2.h: Rebuilt. * libbfd.h: Rebuilt. * libcoff.h: Rebuilt. * Makefile.in: Rebuilt dependencies. * genlink.h (_bfd_generic_link_get_symbols): Define. (_bfd_generic_link_get_symcount): Define. * linker.c (generic_link_read_symbols): New function. (generic_link_add_object_symbols): Use it. Use _bfd_generic_link_get_symbols and _bfd_generic_link_get_symcount to get the symbols from the BFD. (generic_link_check_archive_element): Likewise. (_bfd_generic_final_link): Likewise. (_bfd_generic_link_output_symbols): Likewise. (default_indirect_link_order): Likewise. (generic_link_add_symbol_list): Store pointer to hash table entry in asymbol udata field. Tue Mar 22 13:09:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-mips.c (mips_howto_table): Add entry for new MIPS_R_PCREL16 reloc, used in embedded PIC code. (mips_adjust_reloc_in): Change sanity check to permit new reloc. (mips_bfd_reloc_type_lookup): Turn BFD_RELOC_16_PCREL_S2 into MIPS_R_PCREL16. * elf32-mips.c (mips_elf_final_link): Account for link_order relocs when allocating space for relocations. Set SEC_RELOC flag for any section which has relocs. Handle link_order relocs in link_order loop. Use _bfd_generic_link_add_symbols_collect for add_symbls entry point. * linker.c (_bfd_generic_final_link): Set reloc_count to 0 before counting relocs. Set SEC_RELOC flag for any section which has relocs. * linker.c (_bfd_default_link_order): Handle bfd_data_link_order. * linker.c (_bfd_generic_link_add_symbols): Just call generic_link_add_symbols. (_bfd_generic_link_add_symbols_collect): New function, like _bfd_generic_link_add_symbols but also collect constructors and destructors by name as collect2 does. (generic_link_add_symbols): New function, like old _bfd_generic_link_add_symbols but with collect argument. (generic_link_add_object_symbols): Take collect argument. (generic_link_check_archive_element_no_collect): New function. (generic_link_check_archive_element_collect): New function. (generic_link_check_archive_element): Take collect argument. (generic_link_add_symbol_list): Take collect argument. (_bfd_generic_link_add_one_symbol): Rename constructor argument to collect. * libbfd-in.h (_bfd_generic_link_add_symbols_collect): Declare. * libbfd.h: Rebuilt. Tue Mar 22 10:04:00 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * archive.c (bfd_construct_extended_name_table): Use ar_padchar for first character in an extended name. (_bfd_write_archive_contents): If ar_padchar == '/', then use "//" as the name of the special archive member holding the extended name table. Mon Mar 21 12:28:19 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Support for link_order types which generate relocs in order to support -Ur in the linker. * linker.c (generic_link_add_symbol_list): Remove bitsize argument from call to _bfd_generic_link_add_one_symbol. (_bfd_generic_link_add_one_symbol): Remove bitsize argument. Don't pass bitsize to constructor call back. Pass BFD_RELOC_CTOR instead of bitsize to add_to_set call back. (_bfd_generic_final_link): Account for link_order relocs when allocating space for relocations. Handle them in link_order loop. (_bfd_generic_reloc_link_order): New function. (_bfd_default_link_order): If a reloc_link_order is seen here, abort. (_bfd_count_link_order_relocs): New function. * libbfd-in.h (_bfd_generic_link_add_one_symbol): Remove bitsize argument from declaration. (_bfd_generic_reloc_link_order): Declare. (_bfd_count_link_order_relocs): Declare. * libbfd.h: Rebuilt. * aoutx.h (aout_link_add_symbols): Remove bitsize argument from call to _bfd_generic_link_add_one_symbol. (NAME(aout,final_link)): Account for link_order relocs when allocating space for relocations. Handle them after handling all input BFDs. (aout_link_reloc_link_order): New function. * ecoff.c (ecoff_link_add_externals): Remove bitsize argument from call to _bfd_generic_link_add_one_symbol. (ecoff_bfd_final_link): Account for link_order relocs when allocating space for relocations. Handle them in link_order loop. (ecoff_link_write_external): Set the storage class of a defined linker created symbol based on the section it is in. Correct bfd_link_hash_weak case to use .sc rather than .st. (ecoff_reloc_link_order): New function. * coff-alpha.c (alpha_bfd_reloc_type_lookup): Handle BFD_RELOC_CTOR. * coff-mips.c (mips_bfd_reloc_type_lookup): Likewise. * sunos.c (sunos_read_dynamic_info): Remove unused locals dynsym and buf. * cisco-core.c (cisco_core_file_p): Only pass one argument to bfd_zmalloc. Free a pointer, not a union. (cisco_bfd_is_local_label): Correct cast from asection to asymbol. Sun Mar 20 09:24:36 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * bfd/som.c (som_begin_writing): Fix thinko (off by one error). * som.c (bfd_section_from_som_symbol): Only to do the value comparison for function symbols within executables. * som.c (bfd_section_from_som_symbol): Renamed from som_section_from_subspace_index. Pass in a native SOM symbol. For executables, iterate through the sections to find out which contains the symbol's address rather than using the symbol_info field. (symbol_info has a different meaning for dynamicly linked executables.) * trad-core.c (trad_unix_core_file_p): Don't pass abfd to bfd_zmalloc. * som.c (som_begin_writing): Fix braino (one call to align space/subspace data was done unconditionally rather than just for executables.) * som.c (som_begin_writing): Align text in all executables to make HPUX kernel happy. Fixes strip/objcopy for shared executables. Sat Mar 19 07:06:59 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_begin_writing): Account for alignment needs of subspaces too when writing executables. Never request a negative bss size. Fixes some problems with demand paged executables, still having problems with pure executables and shared executables. Fri Mar 18 19:12:47 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * trad-core.c (trad_unix_core_file_p): Call bfd_zmalloc not bfd_zalloc for rawptr, because later on we may call free, not bfd_release, on it. * bfd.c (struct _bfd): Add cisco_core_struct to tdata union. * libbfd.c (bfd_read, bfd_seek): Add comments regarding errors. * cisco-core.c: New file. * Makefile.in: Change accordingly. * configure.in: Recognize cisco_core_vec. * config/m68k-aout.mt (SELECT_VECS): Add cisco_core_vec. * targets.c: Add cisco_core_vec. * bfd-in2.h: Rebuilt. Fri Mar 18 18:13:49 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.h (som_copyable_section_data_struct): New structure containing all the private section information which needs to be copied from input section to output section during objcopy or strip. (som_section_data_struct): Remove several fields now in som_copyable_section_data_struct. Make the space and subspace dictionaries be pointers (to save space when only reading objects). * som.c (bfd_som_set_section_attributes): Now returns a boolean; some references changed. Allocate a copyable data stucture if none exists. Store info into the copyable data structure. (bfd_som_set_subsection_attributes): Likewise. (som_is_space, som_is_subspace, som_is_container): New functions. Use these instead of directly accessing private data. (som_prep_headers): Allocate space and subspace headers here. Fill in some fields in the space/subspace headers from the copyable data. (som_bfd_copy_private_section_data): Only copy the stuff that we really need to make objcopy and strip work. Allocate the copy_data structure for the output bfd before copying. * som.h (struct som_exec_data): New structure to hold exec info that must be preserved when running objcopy/strip. (struct somdata): Add new "exec_data" field and accessor macro. Add some comments on how the various fields are used. (som_section_data_struct): Make is_space and is_subspace bitfields. Delete unused subspace_index. All references now use the target_index field within the section structure itself. * som.c (make_unique_section): Delete unused declaration. (som_bfd_copy_private_bfd_data): New function. (som_object_setup): Allocate space for and save exec information that needs to be copied during objcopy/strip. (som_mkobject): Do not allocate space for a file header here. It is not used when only reading SOM objects. (som_prep_headers): Allocate space for and attach a file header to the output bfd. For executables, use the saved system_id value rather than trying to guess the right value. Do not abort wwhen setting file_hdr->entry* for executables. (som_begin_writing): For executables, set the exec_entry and exec_flags fields. (som_copy_private_backend_section_data): Always return a value. * libhppa.h (PA_PAGESIZE): Define. * som.c (SOM_ALIGN): Define. (som_begin_writing): If writing an executable, initialize all fields in the exec header to zero. Update fields in the exec header as sizes of loadable subspaces are computed. Carefully preserve alignments when building executables. Actually write the exec after all the fields are filled in. * Better long-filename handling. Reads SOM ABI compliant extended names, but doesn't quite write compliant extended names yet. * som.c (som_slurp_extended_name_table): Delete function. The generic code will handle things correctly. (som_slurp_armap): Seek to the beginning of the next member. (normalize): New function. (som_bfd_ar_write_symbol_stuff): Take the size of the extended name table into account when computing the file offsets in the SOM dictionary. Make sure to align to an even boundary. (som_write_armap): Initialize the checksum to zero. (ar_maxchars): Fix. Opps. Fri Mar 18 20:35:24 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * aoutx.h (reloc_type_lookup): Handle BFD_RELOC_CTOR on a 64-bit machine. Handle BFD_RELOC_SPARC13 and BFD_RELOC_SPARC_BASE13. Thu Mar 17 18:26:46 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * bfd-in.h (BFD_VERSION): Use @VERSION@. * Makefile.in (bfd.h): Replace it with contents of VERSION file. * bfd-in2.h: Regenerated. * trad-core.c (trad_unix_bfd_is_local_label): Fixed typo where this was also named trad_unix_bfd_copy_private_bfd_data. Thu Mar 17 10:37:07 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * aoutx.h, elfcode.h, coff-alpha.c, bout.c, ecoff.c, ecofflink.c, elf32-hppa.c, elf32-mips.c, linker.c, som.c, sunos.c: If malloc(0) returns NULL, it is not an error. It's possible that some of these checks are not necessary (because the size can never be zero), but putting in the checks is the conservative thing to do in light of the fact that some of these malloc calls replaced unchecked alloca calls, in which a zero argument would work fine. Thu Mar 17 11:44:45 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * osf-core.c (osf_core_bfd_copy_private_bfd_data): Remove duplicate definition. (osf_core_bfd_is_local_label): Define. * reloc.c (bfd_generic_get_relocated_section_contents): Don't fail if malloc (0) fails. bfd_canonicalize_reloc returning 0 is not a failure indication, it merely means there are no relocs. * elfcode.h (NAME(bfd_elf,write_object_contents)): Don't use space after NAME, since SunOS /bin/cc can't handle it. Wed Mar 16 16:43:33 1994 David J. Mackenzie (djm@thepub.cygnus.com) * netbsd386.c (N_SET_FLAGS): Don't nuke the machine id field. From sukes@glue.umd.edu (Tasuki Hirata). Wed Mar 16 07:55:54 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * aoutf1.h (4 places): Use a simple #if on ARCH_SIZE, rather than all that convoluted stuff with NAME, CAT3, etc. The convoluted stuff broke for SunOS4 /bin/cc (due to DEFUN elimination, I guess). Wed Mar 16 00:02:05 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_prep_for_fixups): Detect section symbols based on either the lack of private data or the symbol flags. Do not munge section symbol names anymore -- they no longer confuse GDB. (som_begin_writing): Leave space for an exec header if writing an executable. (som_slurp_symbol_table): Recognize both forms of section symbol names "L$0\002" and "$$". Change the name of "L$0\002" section symbols to be the name of the section they represent. Debugging symbols begin with "L$0\001", not just "L$". Tue Mar 15 22:58:28 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * bfd-in2.h, libbfd.h, libcoff.h: Rebuilt. * bfd-in.h (JUMP_TABLE): Add new entries to the jump table for bfd_copy_private_section_data, bfd_copy_private_bfd_data, and bfd_is_local_label. * targets.c: Add new entries to the bfd_target structure. * bfd.c (bfd_copy_private_bfd_data): New definition. * section.c (bfd_copy_private_section_data): New definition. * syms.c (bfd_is_local_label): New definition. * libbfd-in.h (bfd_generic_is_local_label): Declare. * libbfd.c (bfd_generic_is_local_label): New function. * *-core.c: Provide default definitions for new functions in the target vector which all point to bfd_false. * aout-target.h, coffcode.h, elf32-target.h elf64-target.h, ieee.c libaout.h, libecoff.h, nlm-target.h, oasys.c, srec.c, tekhex.c Default new vectors for copying private backend data to bfd_true. Default new vector for determining if a symbol is a local label to bfd_generic_is_local_label. * som.c (som_bfd_copy_private_section_data): New function. (som_bfd_is_local_label): New function. (som_bfd_copy_private_bfd_data): For now default to bfd_true. * elf32-hppa.c (hppa_elf_is_local_label): New function. Tue Mar 15 23:55:47 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * cf-m68klynx.c (CALC_ADDEND): Use _bfd_m68klynx_howto_table. Tue Mar 15 04:41:13 1994 David J. Mackenzie (djm@rtl.cygnus.com) * Most files: Replace DEFUN and DEFUN_VOID with K&R-style function definition. Indent some of them to GNU standards. * aout32.c, archures.c, core.c, cpu-h8300.c, cpu-i960.c, cpu-m68k.c, cpu-m88k.c, cpu-mips.c, cpu-vax.c, ctor.c, demo64.c, elf32-hppa.h, gen-aout.c, host-aout.c, init.c, libhppa.h, libieee.h, liboasys.h, newsos3.c, som.h, stab-syms.c, sunos.c: Update copyright years. Mon Mar 14 11:41:23 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_prep_for_fixups): A relocation involving the section symbol for the *ABS* section is really a relocation involving no symbol. (som_slurp_symbol_table): Do not set BSF_GLOBAL or BSF_EXPORT for undefined symbols. Correctly distinguish between debugger symbols and section symbols. * som (setup_sections): Set SEC_DEBUGGING and the section attributes for spaces and subspaces. * som.c (som_bfd_count_ar_symbols): Fix typo. * som.c (som_object_setup): Set EXEC_P, D_PAGED, WP_TEXT, and HAS_RELOC based on the object's magic number. (make_unique_section): Delete function. BFD and its users are prepared to handle multiple sections with the same name. (setup_sections): Allocate space on the BFD's obstack to hold section names. Use bfd_make_setion_anyway rather than the obsolete make_unique_section. (som_prep_headers): Choose the correct SOM magic number based on the BFD's flags. (som_bfd_fill_in_ar_symbols): Return false, not NULL on error. Sat Mar 12 09:46:09 1994 Ian Lance Taylor (ian@cygnus.com) * elf32-ppc.c: Renamed from elf32-powerpc.c. * nlm32-ppc.c: Renamed from nlm32-powerpc.c. * Makefile.in, configure.in: Corresponding changes. Fri Mar 11 22:27:19 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elf32-powerpc.c: Extensive changes to update to preliminary ABI. Fri Mar 11 00:34:59 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * sunos.c (sunos_read_dynamic_info): Assume that dynamic info is always located at the start of the data section to allow recovery of the dynamic info from a stripped executable. * ecoff.c (ecoff_styp_to_sec_flags): Handle STYP_PDATA, STYP_XDATA and STYP_COMMENT. Wed Mar 9 17:17:53 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * libbfd-in.h: Remove alloca cruft. It was missing some necessary cruft (like the #pragma alloca for AIX). In addition to that problem, the C alloca calls xmalloc, which means checking for being out of memory can't work right. The following changes remove all uses of alloca from BFD. * hosts/solaris2.h: Remove alloca cruft. * som.c: Replace alloca with a fixed size auto array. * aoutx.h, elfcode.h, nlmcode.h, bout.c, coff-alpha.c, ecoff.c, ecofflink.c, elf32-hppa.c, elf32-mips.c, linker.c, reloc.c, som.c, sunos.c: Replace alloca with malloc and appropriate error checking and freeing. * linker.c: Replace alloca with obstack_alloc. * libbfd.h: Rebuilt. Tue Mar 8 12:10:38 1994 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (mips_relocate_section): Handle MIPS_R_LITERAL like MIPS_R_GPREL. Sat Mar 5 14:08:54 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * elf32-hppa.h, elfcode.h: Replace uses of Elf*_Half, Elf*_Word, Elf*_Off typedefs by their expansion, the typedefs have been removed from include/elf/internal.h. * elfcode.h (bfd_section_from_shdr): Handle SHT_DYNAMIC section like SHT_PROGBITS section. Thu Mar 3 20:03:39 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.h (_PA_RISC_ID): Treat HOST_HPPAOSF just like HOST_HPPABSD. Wed Mar 2 13:28:06 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * configure.host: Recognize i[34]86-sequent-*. * trad-core.c (trad_unix_core_file_p): A non-zero, not zero, return from bfd_seek indicates an error. New macro TRAD_CORE_DSIZE_INCLUDES_TSIZE to replace TRAD_CORE_STACK_OFFSET. * hosts/symmetry.h: Define TRAD_CORE_DSIZE_INCLUDES_TSIZE and TRAD_CORE_USER_OFFSET but not HOST_STACK_OFFSET. Wed Mar 2 11:57:03 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.[ch]: Do not include libhppa.h in som.c, instead include it in som.h. * elf32-hppa.[ch]: Do not include libhppa.h in elf32-hppa.c, instead include it in elf32-hppa.h. * som.c (log2): Return -1 on error rather than aborting. (setup_sections): Bubble up an error from log2. * Changes to make HP C compiler happy in both traditional and ANSI mode. * som.c (hppa_som_gen_reloc_type): Use correct enum type for field parameter. (bfd_som_set_section_attributes): Use unsigned int rather than unsigned char to avoid GNU-C extensions. (bfd_som_attach_aux_hdr): Return a boolean to indicate success or failure rather than aborting on failure. * som.h (bfd_som_set_section_attributes): Fix prototype to match som.c changes. (bfd_som_attach_aux_hdr): Add prototype. (hppa_som-gen_reloc_type): Likewise. * elf32-hppa.c: Add a couple casts to make HP compiler happy. (hppa_look_for_stubs_in_section): Do not return false on failure until rest of code is ready to handle it. Abort for now. Tue Mar 1 18:33:59 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * bfd-in2.h: Rebuilt. Tue Mar 1 13:06:53 1994 Kung Hsu (kung@mexican.cygnus.com) * i386os9k.c: use new functions bfd_set_error and bfd_get_error. * Makefile.in: delete an extra blank. * configure.in : Add i396os9k_vec. Mon Feb 28 15:41:01 1994 Kung Hsu (kung@mexican.cygnus.com) * config.bfd : Add i386-os9k. * config/i386-os9k.mt : Newly add os9k target makefile. * i386os9k.c : new file to handle os9k format bfd. * Makefile.in : Handle new file i386os9k.c * targets.c : Add bfd_target_os9k_flavour and i386os9k_vec. * cache.c : Initialize cache_sentinel to 0. Sun Feb 27 16:30:55 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * elf32-hppa.c (mismatches, retval_mismatches): Fix mismatch action in case where caller specified no argument relocation. (hppa_elf_build_linker_stub): Try again to get the sym_ptr_ptr right in the original relocation and the stub's relocation. * elf32-hppa.h (hppa_look_for_stub_in_section): Fix typo. Delete unused symbols argument. * elf32-hppa.c (hppa_elf_stub_reloc): Accept asymbol ** rather than asymbol * for original target symbol. All callers changed. Set reloc->sym_ptr_ptr appropriately. (hppa_elf_build_linker_stub): Set reloc->sym_ptr_ptr correctly. (hppa_elf_look_for_stubs_in_section): No longer need symbols argument. Use the output symbols when canonicalizing the relocs, creating them if necessary. * linker.c (_bfd_generic_link_output_symbols): Do not rebuild/clobber the output symbols if they already exist. Sun Feb 27 15:22:36 1994 Stan Shebs (shebs@andros.cygnus.com) * targets.c (BFD_SEND, BFD_SEND_FMT): Add debugging versions that check all the pointer dereferences. Enabled via DEBUG_BFD_SEND. * bfd-in2.h: Rebuilt. * srec.c (hex_value): Always set to a size of 256 bytes. (srec_init): Cosmetic changes. Sun Feb 27 11:18:47 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * elf32-hppa.c: Second half of major cleanup. More comments, PARAMize and staticize rest of functions. Delete unused functions. Delete unused/unnecessary arguments to some functions. Group static vars together. Abort for bad errors until we have error code propogation working. Work on spacing and indention. Add FIXMEs for unresolved problems. Use enums rather than #defines for lots of things. Merge two functions which build linker stubs into a single function (so they can easily share a ton of common code). Sat Feb 26 10:00:45 1994 Ian Lance Taylor (ian@cygnus.com) * reloc.c (_bfd_relocate_contents): Adjust handling of overflow to avoid depending upon right shifts of signed numbers, and to correct handling of src_mask with lower bits zero. * aoutx.h, archive.c: Add casts to avoid warnings from SVR4 cc. * ecoff.c, ecofflink.c, ecoffswap.h, srec.c: Likewise. * elf32-i386.c: Likewise. * elfcode.h (bfd_section_from_shdr): Make i unsigned; remove old #if 0 code. (elf_write_phdrs): Make i unsigned. (map_program_segments): Make i and n_left unsigned. (assign_file_positions_except_relocs): Make i unsigned. (write_shdrs_and_ehdr): Make count unsigned. (assign_file_positions_for_relocs): Make i unsigned. (NAME(bfd,elf_write_object_contents)): Make count unsigned. (section_from_elf_index): Make index argument unsigned. Fri Feb 25 21:34:58 1994 Ian Lance Taylor (ian@cygnus.com) * elfcode.h: Don't include assert.h. (swap_out_syms): Use BFD_ASSERT rather than assert. * linker.c (_bfd_generic_link_write_global_symbol): Add missing break in switch. * hosts/i386v4.h (qsort, strtol): Remove incorrect and useless declarations. Fri Feb 25 16:35:57 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * libhppa.h (hppa_rebuild_insn): Moved here from elf32-hppa.c. * elf32-hppa.h (elf_hppa_tc_symbol): Add new arguments. (elf_hppa_tc_make_sections): Likewise. (elf_hppa_final_processing): Add extern decl. * elf32-hppa.c: First half of major cleanup. Add/cleanup lots of comments. PARAMize some static functions. Delete unused functions. Delete unused/unnecessary arguments to many functions. Group static vars together. Collapse common case statements together in many places. Use default case when possible instead of listing each case separately. Abort for bad errors until we get error code propogation working. Work on spacing and indention problems. Add FIXMEs for some unresolved problems. Delete hopelessly broken COMPLEX relocation support (it's never used anyway). (hppa_elf_rebuild_insn): Delete. Moved into libhppa.h. (elf_hppa_tc_symbol): Accept and use new arguments (symext chains). (elf_hppa_tc_make_sections): Likewise. * format.c (bfd_check_format_matches): Initialize matching_vector to keep gcc -Wall quiet. * elfcode.h (elf_slurp_reloca_table): Fix typo. * som.c (som_get_symtab_upper_bound): Use "sizeof (asymbol *)" not "sizeof (som_symbol_type *)". * elfcode.h (elf_get_symtab_upper_bound): Use "sizeof (asymbol *)" not "sizeof (asymbol"). Opps. Fri Feb 25 13:19:04 1994 Ted Lemon (mellon@pepper.ncd.com) * bfd.c (bfd_get_gp_size): Can't return gp value on an archive. (bfd_set_gp_size): Can't set gp value on an archive. Fri Feb 25 12:57:00 1994 Steve Chamberlain (sac@jonny.cygnus.com) * srec.c (pass_over): Don't skip too many characters when end of line seen. Fri Feb 25 11:41:57 1994 Ian Lance Taylor (ian@cygnus.com) * ecoff.c (ecoff_sizeof_headers): Align result to 16 byte boundary. Thu Feb 24 07:13:22 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_bfd_derive_misc_symbol_info): Derive symbol_info field for absolute symbols in the same manner as undefined and common symbols. Thu Feb 24 04:29:19 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * elfcode.h (elf_core_file_p): Check for core file e_machine match like in elf_object_p. Wed Feb 23 18:28:37 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * elfcode.h (alloca): Delete declaration. * som.c (som_prep_headers): Use CPU_PA_RISC1_0 for magic number rather than HP9000S800_ID. Note som.c is careful to make sure CPU_PA_RISC1_0 is always defined. Mon Feb 21 10:12:02 1994 Stan Shebs (shebs@andros.cygnus.com) * Makefile.in (targets.o, archures.o): Use ALL_CFLAGS to supply flags to explicit compile actions. Mon Feb 21 09:50:06 1994 Ian Lance Taylor (ian@lisa.cygnus.com) * ecofflink.c (ecoff_write_symhdr): Set symhdr->magic here. * ecoff.c (ecoff_write_object_contents): Make sure .bss section ends on a page boundary if there is no symbol table. (ecoff_bfd_final_link): Don't set symhdr->magic here. * hosts/hp300.h: Include ; don't declare free. * som.c (som_bfd_count_ar_symbols): Use a pointer and alloca rather than an array of variable size. (som_bfd_fill_in_ar_symbols): Likewise. (som_bfd_ar_write_symbol_stuff): Likewise. * coff-alpha.c (alpha_relocate_section): Rewrite mask and shift operation to avoid OSF 1.3 cc bug. * ecoff.c (ecoff_write_object_contents): Make text_size, data_size and bss_size bfd_size_type instead of unsigned long. Make text_start and data_start bfd_vma instead of unsigned long. * ecofflink.c (ecoff_add_string): Remove incorrect cast of return value. Sun Feb 20 16:06:54 1994 Ian Lance Taylor (ian@lisa.cygnus.com) * linker.c (_bfd_generic_link_add_archive_symbols): Consider symbols in the order they appear in the archive map. Sat Feb 19 03:17:32 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * coff-alpha.c (reloc_nil): Add forward declaration, add missing error_message argument. * coff-sparc.c (bfd_coff_generic_reloc): Add forward declaration, add missing error_message argument. * mipsbsd.c (mips_fix_hi16_s): Add forward declaration, add missing error_message argument. Fri Feb 18 11:41:58 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Support for PowerPC NetWare. * nlm32-powerpc.c: New file. * config.bfd (powerpc-*-netware*): New target; use ppc-nlm. * config/ppc-nlm.mt: New file. * configure.in (nlm32_powerpc_vec): New target vector; use nlm32-powerpc.o, nlm32.o, nlm.o. * targets.c (nlm32_powerpc_vec): Declare. * Makefile.in (BFD32_BACKENDS): Add nlm32-powerpc.o. (CFILES): Add nlm32-powerpc.c. Initial support for PowerPC ELF. Done without an ABI, and probably to be changed when I get an ABI. * config.bfd (powerpc-*-sysv4*): New target; use ppc-elf. * config/ppc-elf.mt: New file. * configure.in (bfd_elf32_powerpc_vec): New target vector; use elf32-powerpc.o, elf32.o, elf.o. * elf32-powerpc.c: New file. * elfcode.h (prep_headers): Add bfd_arch_powerpc case. (elf_set_arch_mach): Likewise. * targets.c (bfd_elf32_powerpc_vec): Declare. * Makefile.in (BFD32_BACKENDS): Add elf32-powerpc.o. (CFILES): Add elf32-powerpc.c. Rebuilt dependencies. Thu Feb 17 15:29:55 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coffgen.c (coff_write_linenumbers): Always return a value. * elfcode.h (elf_slurp_symbol_table): Handle zero symbols reasonably. Allocate x_symp using alloca. * elfcode.h (map_program_segments): ELF program header entries must be sorted by load address. This used to generate the entries in reverse order. * section.c (SEC_IN_MEMORY): Define. (asection): Rename unused field otheruserdata to contents, and make it char *. (bfd_make_section_anyway): Initialize contents field to NULL. (bfd_get_section_contents): If SEC_IN_MEMORY is set, get section contents from contents field rather than from file. * bfd-in2.h: Rebuilt. Thu Feb 17 08:30:53 1994 David J. Mackenzie (djm@thepub.cygnus.com) * bfd.c (bfd_get_error, bfd_set_error): New functions. (bfd_error): Make static. (bfd_error_type): Renamed from bfd_ec. Prepend "bfd_error_" to all values. * bfd-in2.h: Regenerated. * aix386-core.c, aout-adobe.c, aout-encap.c, aout-target.h, aoutf1.h, aoutx.h, archive.c, archures.c, bfd.c, bout.c, cache.c, coff-alpha.c, coff-mips.c, coff-rs6000.c, coffcode.h, coffgen.c, core.c, ctor.c, ecoff.c, ecofflink.c, elf.c, elf32-hppa.c, elf32-mips.c, elfcode.h, format.c, hash.c, hp300hpux.c, hppabsd-core.c, i386lynx.c, ieee.c, libbfd.c, libelf.h, linker.c, lynx-core.c, nlm.c, nlm32-alpha.c, nlm32-i386.c, nlm32-sparc.c, nlmcode.h, oasys.c, opncls.c, osf-core.c, ptrace-core.c, reloc16.c, rs6000-core.c, section.c, som.c, srec.c, sunos.c, syms.c, targets.c, tekhex.c, trad-core.c: Change callers. Tue Feb 15 22:27:27 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c: Remove FIXMEs for things which have been dealt with. Tue Feb 15 19:39:24 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * section.c (bfd_get_section_contents): Since this function reads unrelocated contents, the section's raw size is always the one to use for bounds checking. * linker.c (default_indirect_link_order): In assertion, compare link_order size field against cooked size, not raw size, of input section. * bout.c (b_out_get_reloc_upper_bound): For BSS section, just return 0. (aligncode): When shrinking, the addend should be set to the current offset in the section plus the number of bytes of padding that will actually be retained. (b_out_relax_section): If a section contains no relocations, don't bother processing them. (b_out_get_relocated_section_contents): Set reloc_done. Assert that bfd_get_section_contents returns true. Check that relocs are properly ordered. (b_out_get_relocated_section_contents, case ALIGNDONE): Assert that reloc->addend falls between the current source offset and the raw size of the input section. * config.bfd: Support i960 vxworks versions > 5.0 with coff, not bout. Default with no version number is still bout. Support explicit i960-coff target too. * bout.c: Changed some indentation, deleted trailing whitespace, fixed some comments, removed some "#if 1" lines. (output_addr): New macro. (calljx_callback, callj_callback, get_value, abs32code, aligncode, b_out_get_relocated_section_contents): Use it for readability. Tue Feb 15 09:00:16 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_bfd_prep_for_ar_write): Iterate through the SOM symbols, not the BFD symbols. (som_bfd_ar_write_symbol_stuff): Likewise. Mon Feb 14 22:55:20 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_slurp_symbol_table): Do not die if a BFD doesn't have any symbols. * Finish basic read-write support for SOM archive libraries. Bugs surely remain as this hasn't been tested all that much. * som.c (SOM_LST_HASH_SIZE, SOM_LST_MODULE_LIMIT): Define. (struct som_misc_symbol_info): New structure to hold info necessary to build both normal and library symbol tables. (som_derive_misc_symbol_info): New function to derive info necessary to build both normal and library symbol tables. (som_build_and_write_symbol_table): Use new function to derive misc symbol information. (som_slurp_symbol_table): Update backend private data for symbols appropriately. (som_bfd_prep_for_ar_write): New function. (som_bfd_ar_symbol_hash): New function. (som_bfd_ar_write_symbol_stuff): New function. (som_write_armap): Flesh out. (som_vec): Fix ar padding character. * som.c: Consistently use memset rather than bzero. Mon Feb 14 17:02:28 1994 Stu Grossman (grossman at cygnus.com) * coff-rs6000.c: Add Lynx core file support, use HOST_AIX, where appropriate. * rs6000-core.c: Use HOST_AIX instead of COREFILES_PLEASE. * config/rs6000.mh: Remove defs of ARCHIVES_PLEASE and COREFILES_PLEASE. * config/rs6000lynx.mh: Turn on Lynx core file support. * hosts/rs6000.h: #define HOST_AIX. * hosts/rs6000lynx.h: Create this to enable Lynx host support. Sun Feb 13 14:30:00 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.h (som_symbol_data): Safely access backend private data for BFD symbols. All callers changed. * Read-only SOM archive support. * som.c (som_bfd_count_ar_symbols): New helper function. (som_bfd_fill_in_ar_symbols): New helper function. (som_slurp_armap): New function to read a SOM LST. * som.h: Include and . Sat Feb 12 22:34:14 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * elfcode.h (elf_map_symbols): Fix typo. (write_object_contents): Check return values from prep_headers and elf_compute_section_file_positions. (set_section_contents): Likewise. Fri Feb 11 16:56:50 1994 David J. Mackenzie (djm@thepub.cygnus.com) * archive.c (normalize) [VMS]: Call malloc, not bfd_xmalloc. (bfd_construct_extended_name_table): Check result of normalize. Tue Feb 8 08:57:31 1994 David J. Mackenzie (djm@thepub.cygnus.com) Make all callers of malloc or realloc (including via obstacks) check the result for NULL. Most set bfd_error to no_memory and return in that case; a few are harder to fix, and are marked with "FIXME ". * elf32-hppa.c (hppa_elf_build_arg_reloc_stub hppa_elf_build_long_branch_stub): Check bfd_make_empty_symbol return. * linker.c (_bfd_generic_link_output_symbols _bfd_generic_link_write_global_symbol): Ditto * section.c (bfd_make_section_anyway): Ditto. * tekhex.c (find_chunk tekhex_mkobject): Check bfd_alloc. (first_phase): Ditto. FIXME void (tekhex_make_empty_symbol): Check bfd_zalloc. * sunos.c (sunos_read_dynamic_info): Check bfd_zalloc. (MY(read_dynamic_symbols) MY(read_dynamic_relocs)): Check bfd_alloc. * stringhash.c (_bfd_stringtab_hash_newfunc): Check bfd_hash_allocate. * srec.c: Indent. (fillup_symbols): Check bfd_alloc. FIXME void (srec_mkobject srec_get_section_contents srec_set_section_contents): Check bfd_alloc. (srec_make_empty_symbol): Check bfd_zalloc. * som.c (hppa_som_gen_reloc_type): Check bfd_alloc_by_size_t. (make_unique_section): Check bfd_alloc. (som_new_section_hook): Check bfd_zalloc. (bfd_som_attach_aux_hdr): Ditto. FIXME void * rs6000-core.c (rs6000coff_core_p): Check bfd_zalloc. * osf-core.c (osf_core_make_empty_symbol): Check bfd_zalloc. (osf_core_core_file_p): Check bfd_alloc. * oasys.c (oasys_slurp_symbol_table oasys_archive_p oasys_mkobject oasys_object_p oasys_new_section_hook oasys_set_section_contents): Check bfd_alloc. (oasys_slurp_section_data): Check bfd_zalloc and bfd_alloc. (oasys_make_empty_symbol): Check bfd_zalloc. * nlmcode.h (nlm_make_empty_symbol): Check bfd_zalloc. (nlm_slurp_symbol_table): Check bfd_zalloc and bfd_alloc. * nlm32-sparc.c (nlm_sparc_read_import): Check bfd_alloc. * nlm32-i386.c (nlm_i386_read_import): Check bfd_alloc. * nlm32-alpha.c (nlm_alpha_read_import): Check bfd_alloc. * linker.c (_bfd_link_hash_newfunc (generic_link_hash_newfunc (archive_hash_newfunc (_bfd_generic_link_add_one_symbol): Check bfd_hash_allocate. (_bfd_generic_final_link (_bfd_generic_link_output_symbols (default_indirect_link_order): Check bfd_alloc. (bfd_new_link_order): Check bfd_alloc_by_size_t. * irix-core.c (irix_core_make_empty_symbol): Check bfd_zalloc. * ieee.c: Indent. (read_id get_symbol get_section_entry ieee_archive_p ieee_object_p ieee_slurp_section_data ieee_new_section_hook): Check bfd_alloc. (do_one): Check bfd_alloc. Return a boolean. (ieee_slurp_section_data): Check it. (init_for_output): Check bfd_alloc. Return a boolean. (ieee_set_section_contents): Check it. (do_with_relocs): Check bfd_alloc. Return a boolean. (ieee_bfd_debug_info_accumulate): Ditto. FIXME void. (ieee_mkobject): Check bfd_zalloc. (ieee_make_empty_symbol): Check bfd_zmalloc. * hpux-core.c (hpux_core_make_empty_symbol): Check bfd_zalloc. * hppabsd-core.c (hppabsd_core_make_empty_symbol): Check bfd_zalloc. (hppabsd_core_core_file_p): Check bfd_zalloc. * hp300hpux.c (MY(slurp_symbol_table)): Check bfd_alloc. * elfcode.h (elf_new_section_hook): Check bfd_alloc. (bfd_section_from_phdr): Ditto. (write_relocs): Ditto. FIXME void (elf_map_symbols assign_section_numbers map_program_segments): Ditto. Return a boolean. (swap_out_syms): Ditto. Check elf_map_symbols. (elf_slurp_symbol_table): Check bfd_zalloc. (elf_slurp_reloca_table): Check bfd_alloc. (elf_slurp_reloc_table): Ditto. (elf_compute_section_file_positions): Check assign_section_numbers. (assign_file_positions_except_relocs): Return a boolean. Check map_program_segments. (elf_compute_section_file_positions): Check it. * elf32-mips.c (mips_elf_final_link): Check bfd_alloc. * elf32-hppa.c (hppa_elf_stub_branch_reloc): Check bfd_zmalloc and realloc. (hppa_elf_stub_reloc): Ditto. (hppa_elf_build_arg_reloc_stub): Check bfd_zalloc. (hppa_elf_build_long_branch_stub): Ditto. (elf32_hppa_backend_symbol_table_processing): Ditto. * ecoff.c (ecoff_set_symbol_info): Check bfd_alloc. Return a boolean. (ecoff_slurp_symbol_table): Check it. (ecoff_slurp_armap): Check bfd_alloc. (ecoff_write_armap): Check bfd_zalloc. (ecoff_link_hash_newfunc): Check bfd_hash_allocate and _bfd_link_hash_newfunc. (ecoff_link_add_externals): Check bfd_alloc. * ctor.c (bfd_constructor_entry): Check bfd_alloc. * coffgen.c (coff_real_object_p): Check bfd_alloc. (coff_renumber_symbols): Check bfd_alloc_by_size_t. Return a boolean. (coff_write_symbol): Check bfd_alloc. FIXME int (coff_write_linenumbers): Check bfd_alloc. Return a boolean. (coff_section_symbol): Check bfd_alloc_by_size_t. (coff_get_normalized_symtab): Check bfd_alloc. (coff_bfd_make_debug_symbol): Check bfd_zalloc. * libcoff-in.h: Change decls of coff_renumber_symbols, coff_write_linenumbers. * libcoff.h: Rebuilt. * coffcode.h (coff_write_object_contents): Check coff_renumber_symbols, coff_write_linenumbers. * coffcode.h: Indent. (coff_add_missing_symbols): Check bfd_alloc_by_size_t. Return a boolean. (coff_write_object_contents): Check it. * coff-alpha.c (alpha_relocate_section): Check bfd_alloc. * coff-mips.c (mips_relocate_section): Ditto. * archive.c (bfd_slurp_bsd_armap_f2): Check bfd_alloc value. (do_slurp_bsd_armap): Ditto. (compute_and_write_armap): Check bfd_realloc value. * aoutx.h (translate_from_native_sym_flags): Check bfd_alloc return value. Return boolean value. (NAME(aout,make_empty_symbol)): Check bfd_zalloc return value. (NAME(aout,slurp_symbol_table)): Check bf_alloc and bfd_zalloc return value. (add_to_stringtab): Ditto. FIXME void (aout_link_hash_newfunc): Check bfd_hash_allocate return value. (aout_link_add_symbols): Check bfd_alloc value. (translate_symbol_table): Check translate_from_native_sym_flags. * hp300hpux.c (MY(slurp_symbol_table)): Ditto. * aoutx.h (aout_link_hash_newfunc): Check _bfd_link_hash_newfunc. * opncls.c (bfd_zalloc bfd_realloc): Check result of bfd_alloc. * opncls.c (obstack_chunk_alloc): Define as malloc, not bfd_xmalloc_by_size_t. (_bfd_new_bfd): Check obstack_begin for 0 return. * ieee.c (obstack_chunk_alloc): Define as malloc, not bfd_xmalloc_by_size_t. (ieee_archive_p): Check obstack_begin for 0 return and obstack_finish for NULL return. * hash.c (obstack_chunk_alloc): Define as malloc, not bfd_xmalloc_by_size_t. (bfd_hash_table_init_n): Check obstack_begin for 0 return and obstack_finish for NULL return. (bfd_hash_lookup): Check obstack_alloc for NULL return. * ecofflink.c (obstack_chunk_alloc): Define as malloc, not bfd_xmalloc_by_size_t. bfd_ecoff_debug_accumulate bfd_ecoff_debug_accumulate_other): Check obstack_alloc. (add_file_shuffle add_memory_shuffle): Check obstack_alloc for NULL return. Return boolean, not void. (bfd_ecoff_debug_init): Check obstack_begin for 0 return. (bfd_ecoff_debug_accumulate): Check add_file_shuffle and add_memory_shuffle return. (string_hash_newfunc): Check bfd_hash_allocate and bfd_hash_newfunc. (bfd_ecoff_debug_accumulate): Check bfd_alloc. (ecoff_add_string): Check add_memory_shuffle return. * libbfd-in.h (xmalloc, bfd_xmalloc, bfd_xmalloc_by_size_t): Remove decls. * libbfd.h: Rebuilt. Fri Feb 11 15:35:32 1994 Stu Grossman (grossman at cygnus.com) * configure.host: Add Lynx/rs6000 support. * config/i386-nlm.mt: Enable a.out file support. * config/rs6000lynx.mh: Lynx/rs6000 host support. Fri Feb 11 17:25:58 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * archive.c (compute_and_write_armap): Rewrite somewhat to improve memory usage. Fri Feb 11 13:10:42 1994 Stan Shebs (shebs@andros.cygnus.com) * archive.c: Change all references to '\n' in archive magic to '\012', for greater portability. * ecoff.c (ecoff_write_armap): Ditto. Thu Feb 10 12:58:48 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (aout_link_write_other_symbol): Check strip settings to see whether symbol should be output. * genlink.h (struct generic_write_global_symbol_info): Added info field. * linker.c (_bfd_generic_final_link): Initialize wginfo.info. (_bfd_generic_link_write_global_symbol): Check strip settings to see whether symbol should be output. * elf32-mips.c (mips_elf_final_link): Initialize wginfo.info. Wed Feb 9 21:34:58 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_reloc_queue_find): Do not examine a NULL queue entry. * som.c: Cast return values from BFD memory allocation routines to avoid warnings from the HP compiler. Wed Feb 9 12:55:02 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-alpha.c (alpha_relocate_section): Accept a LITERAL reloc on an "ldl" instruction too. * archive.c (bfd_ar_hdr_from_filesystem): Cast status elements when passing them to sprintf. Use %ld instead of %d. * coff-rs6000.c (rs6000coff_mkarchive): Return false. (rs6000_coff_snarf_ar_hdr): Don't declare errno; it's not used. Also removed unused variable namelen. (rs6000coff_write_armap): Declare orl_count and stridx parameters. Tue Feb 8 18:00:34 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * libbfd-in.h (xmalloc): Don't declare parameter type, to avoid conflicts. * libbfd.h: Rebuilt. Tue Feb 8 15:55:50 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * coff-alpha.c (reloc_nil): New function. (alpha_howto_table): Use it as special_function to prevent certain relocs from being adjusted by bfd_perform_relocation. IGNORE reloc should be partial_inplace. (alpha_ecoff_get_relocated_section_contents): Accept a LITERAL reloc on an "ldl" instruction too. Tue Feb 8 00:32:28 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * elf32-hppa.c (CURRENT_STUB_OFFSET, hppa_elf_build_arg_reloc_stub, hppa_elf_build_long_branch_stub): Cast to char * instead of int before performing pointer arithmetic. Mon Feb 7 20:56:27 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * config.bfd (hppa*-*-osf*): Use bfd_name hppaosf for this configuration. (hppa*-*-*elf*): This configuration used hppa-elf now. * som.c: This file is also used for HOST_HPPAOSF. * targets.c (bfd_target_vector): Enable som_vec for HOST_HPPAOSF. * hosts/hppaosf.h: New host configuration file. * config/hppabsd.mt (SELECT_VECS): Add bfd_elf32_hppa_vec as BSD handles both SOM and ELF object files. * config/hppaosf.mh (HDEFINES): Delete. No longer needed. (RANLIB): Doesn't do anything, define it to be "echo". * config/hppaosf.mt: New target makefile fragment for a PA running OSF1. Mon Feb 7 15:02:06 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * archures.c (enum bfd_architecture): Added bfd_arch_powerpc. (archures_init_table): If SELECT_ARCHITECTURES is not defined, added bfd_powerpc_arch. * bfd-in2.h: Rebuilt. * cpu-powerpc.c: New file. * Makefile.in (ALL_MACHINES, CFILES): Added cpu-powerpc.c. Rebuilt dependencies. * elfcode.h (bfd_section_from_shdr): Get vma and alignment_power of an SHT_STRTAB section from sh_addr and sh_addralign, rather than just setting them to zero. Sun Feb 6 20:04:10 1994 David J. Mackenzie (djm@thepub.cygnus.com) * elfcode.h (prep_headers, swap_out_syms): Check for NULL return from bfd_new_strtab. (elf_compute_section_file_positions): Check for false return from swap_out_syms. * linker.c (default_indirect_link_order): Check for NULL return from bfd_get_relocated_section_contents. * syms.c: Make example application in doc call xmalloc, not bfd_xmalloc. * aoutx.h (NAME(aout,slurp_symbol_table), aout_link_get_symbols, NAME(aout,link_hash_table_create)): * bout.c (b_out_slurp_reloc_table, b_out_squirt_out_relocs): * ecoff.c (ecoff_bfd_link_hash_table_create): * ecofflink.c (bfd_ecoff_debug_init): * format.c (bfd_check_format_matches): * linker.c (_bfd_generic_link_hash_table_create): (_bfd_generic_final_link): * reloc16.c (bfd_coff_reloc16_relax_section): (bfd_coff_reloc16_get_relocated_section_contents): * elf32-hppa.c (hppa_elf_build_arg_reloc_stub): * elf32-mips.c (mips_elf_final_link): * elfcode.h (bfd_new_strtab): (bfd_add_2_to_strtab): (elf_slurp_symbol_table): (elf_corefile_note): * libbfd.c (bfd_zmalloc): Use malloc and check the result, instead of bfd_xmalloc. Sat Feb 5 12:39:28 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * config.bfd: Put m68*-*-sysv* line after m68*-*-sysv4*. Sat Feb 5 05:32:44 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * srec.c (srec_write_record): Put CONST keyword for "src" before "unsigned", some compilers don't like it after "unsigned". * libcoff.h, libcoff-in.h (bfd_perform_slip): Rename "value" to "val" in prototype declaration because some compilers don't like arguments whose names are the same as types. Sat Feb 5 01:14:38 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (aout_link_check_ar_symbols): Correct test for whether object file defines symbol. Also, if skipping a symbol, skip the second symbol of a N_WARNING or N_INDR symbol as well. Fri Feb 4 23:55:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Add basic support for writing RS/6000 XCOFF files. * coff-rs6000.c (dummy_reloc): Removed. (rs6000coff_howto_table): Defined XCOFF relocs. (RTYPE2HOWTO): Defined to use rs6000coff_rtype2howto. (rs6000coff_rtype2howto): New function. (coff_bfd_reloc_type_lookup): Defined to use rs6000coff_reloc_type_lookup. (rs6000coff_reloc_type_lookup): New function. (SELECT_RELOC): Defined to set r_type and r_size fields. (COFF_LONG_FILENAMES): Defined. * coffcode.h (combined_entry_type): Changed fix_tag and fix_end fields to bitfields. Added fields fix_value and fix_scnlen. (sec_to_styp_flags): If STYP_DEBUG is defined, use it rather than STYP_INFO for the type of a section named .debug. (coff_add_missing_symbols): Don't define if RS6000COFF_C. (coff_write_object_contents): If RS6000COFF_C, don't call coff_add_missing_symbols. (coff_slurp_symbol_table): If RS6000COFF_C, then if the last aux entry has type STY_LD change the x_scnlen into a pointer to a symbol and set fix_scnlen. Also, for a C_BSTAT symbol, change the value into a pointer to a symbol and set fix_value. * libcoff.h: Rebuilt. * coffgen.c (coff_mangle_symbols): Reindent. If fix_value is set, get the symbol offset. Likewise for fix_scnlen. (string_size): Change type to bfd_size_type. (debug_string_size, debug_string_section): New static variables. (coff_fix_symbol_name): If bfd_coff_symname_in_debug returns true, write the symbol name into the .debug section; assume that the section has already been created with the right size. (coff_write_symbols): Initialize debug_string_size to 0. If bfd_coff_symname_in_debug returns true, don't put symbol name in usual string table. After writing out all symbols, if debug_string_size is not 0, check that it matches the size of the .debug section. (coff_get_normalized_symtab): Clear new fix_value and fix_scnlen fields. If the string offset is 0, always use an empty string as the name. (coff_make_empty_symbol): Zero out the symbol structure. * reloc.c (bfd_perform_relocation): Work around one gross hack with another: actually look at the target name to avoid the broken COFF check. (bfd_reloc_code_real_type): Add BFD_RELOC_PPC_B26, BFD_RELOC_PPC_BA26 and BFD_RELOC_PPC_TOC16. * bfd-in2.h: Rebuilt. Fri Feb 4 17:28:32 1994 David J. Mackenzie (djm@thepub.cygnus.com) * libbfd.c (bfd_zmalloc): Call bfd_xmalloc instead of malloc. (bfd_xmalloc, bfd_xmalloc_by_size_t): Functions deleted. * libbfd-in.h: Define them as macros calling xmalloc and declare xmalloc. * libbfd.h: Rebuilt. Thu Feb 3 16:49:35 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecofflink.c (bfd_ecoff_debug_externals): If a small undefined symbol has a value in the ECOFF symbol but not in the BFD symbol, keep the value in the ECOFF symbol. This helps gas. * linker.c (_bfd_generic_link_output_symbols, _bfd_generic_link_write_global_symbol): Don't require that all references to a common symbol be themselves common symbols. * aoutx.h (aout_reloc_index_to_section): Handle N_UNDF. Wed Feb 2 20:37:19 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * libbfd.c, bfd-in.h, hosts/alphaosf.h, hosts/sparc-ll.h, aoutf1.h, sparclynx.c, Makefile.in: Change HOST_64_BIT to BFD_HOST_64_BIT. * bfd-in2.h: Rebuilt. Wed Feb 2 12:30:13 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coffswap.h (coff_swap_reloc_out): If RS6000COFF_C, handle type and size correctly. (coff_swap_aux_in): If RS6000COFF_C, change x_csect.x_scnlen to x_csect.x_scnlen.l to match change in coff/internal.h. (coff_swap_aux_out): Likewise. * coff-mips.c (mips_ecoff_backend_data), coff-alpha.c (alpha_ecoff_backend_data): Change casts of aux_in and aux_out fields to match yesterday's changes. * coffcode.h (coff_write_relocs): If SELECT_RELOC is defined, pass in the internal_reloc itself, not the type. * coff-apollo.c, coff-h8300.c, coff-h8500.c, coff-i386.c, coff-m68k.c, coff-sh.c, coff-we32k.c, coff-z8k.c: Changed definition of SELECT_RELOC accordingly. Tue Feb 1 12:05:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coffcode.h (bfd_coff_backend_data): Added new arguments to _bfd_coff_swap_aux_in and _bfd_coff_swap_aux_out: aux index number and number of aux entries. (bfd_coff_swap_aux_in, bfd_coff_swap_aux_out): Changed accordingly. * libcoff.h: Rebuilt. * coffswap.h (coff_swap_aux_in, coff_swap_aux_out): Accept new arguments. If RS6000COFF_C, only treat C_EXT and C_HIDEXT specially if this is the last aux entry. * coffgen.c (coff_write_symbol, coff_get_normalized_symtab): Pass new arguments to swap_aux functions. Sun Jan 30 15:14:36 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * gen-aout.c (main): Set DEFAULT_ARCH based on preprocessor macros (only testing for m68k and vax at the moment); do verify that the preprocessor didn't trash the arch name inside the string version. Don't print out "pagesize =" line that prevents output from compiling. Derive BYTES_IN_WORD and ARCH values from sizeof results. * Makefile.in (aout-params.h): Pass gen-aout a dummy target name. (check, installcheck): Identify directory in "no testsuites" message. Sun Jan 30 13:25:28 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (aout_link_write_symbols): Write out correct value for object file symbol. Fri Jan 28 18:34:05 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * hosts/vaxbsd.h (HOST_STACK_END_ADDR): Vax BSD doesn't define KERNBASE, so hard-code 0x80000000 instead. Thu Jan 27 13:54:08 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * linker.c (generic_link_add_symbol_list): If symbol is common, set the BSF_OLD_COMMON flag. Wed Jan 26 13:47:15 1994 David J. Mackenzie (djm@thepub.cygnus.com) * format.c (bfd_check_format_matches): Put the new entry in the correct element of matching_vector. Tue Jan 25 11:43:28 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * som.c, som.h (bfd_som_set_section_attributes, bfd_som_set_subsection_attributes): Change parameters from char to int. Following a prototype with an old-style function definition in the presence of widened parameters is a GCC-ism not supported by the HP compiler in ANSI mode. Tue Jan 25 11:46:46 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * reloc.c (bfd_get_reloc_size): Size of type -2 is 4 bytes, not 2. * hp300hpux.c (MY(write_object_contents)): Write out the symbols before writing out the relocs, so that the right symbol indices are used. * archive.c (do_slurp_bsd_armap, bfd_slurp_bsd_armap_f2): Do not try to overlay the internal carsyms on the external symdefs. That can not work if the size of a host pointer is larger than 4 bytes. * format.c (bfd_check_format_matches): Cast result of bfd_xmalloc_by_size_t. * opncls.c (_bfd_new_bfd): Avoid ANSI C prototype. * archive.c: Reindented to GNU standards. Mon Jan 24 14:41:23 1994 David J. Mackenzie (djm@thepub.cygnus.com) * opncls.c (_bfd_new_bfd, _bfd_new_bfd_contained_in): Add "_bfd_" to function names. * archive.c (_bfd_create_empty_archive_element_shell), libbfd-in.h: Change callers. * libbfd.c (bfd_zmalloc): Renamed from zalloc. * libbfd.c (bfd_add_to_string_table), trad-core.c (trad_unix_core_file_p), targets.c (bfd_target_list), ptrace-core.c (ptrace_unix_core_file_p), opncls.c (new_bfd), libbfd-in.h, ieee.c (ieee_make_empty_symbol), elf32-hppa.c (hppa_elf_stub_branch_reloc), (hppa_elf_stub_reloc): Change callers. * libbfd.h: Regenerated. * archive.c (_bfd_look_for_bfd_in_cache): Add "_bfd_" to name. (_bfd_get_elt_at_filepos), coff-rs6000.c (rs6000coff_get_elt_at_filepos), libbfd-in.h: Change callers. * format.c (bfd_check_format_matches), libbfd-in.h, targets.c, elfcode.h (elf_object_p): Rename target_vector to bfd_target_vector and default_vector to bfd_default_vector. * libbfd.h: Regenerated. * format.c (bfd_check_format_matches): New function. (bfd_check_format): Call it. (bfd_matching_formats): Function removed. * targets.c: Replace the vector added on Jan 21 with a count of entries in default_vector. * bfd-in2.h: Regenerated. Mon Jan 24 12:38:54 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-alpha.c (alpha_ecoff_object_p): New function. Set size of .pdata section based on lnnoptr field, not section header. (alpha_relocate_section): Don't bother to check if r_symndx >= 0, since it is unsigned. (ecoffalpha_little_vec): Use alpha_ecoff_object_p rather than coff_object_p. * ecoff.c (ecoff_new_section_hook): Set alignment_power field of .pdata section to 3. (ecoff_compute_section_file_positions): Save the size of the .pdata section in the line_filepos field, and actually align the .pdata section to an alignment power of 4. (ecoff_compute_reloc_file_positions): Set output_has_begun after calling ecoff_compute_section_file_positions. (ecoff_write_object_contents): Set s_lnnoptr for the .pdata section from the line_filepos field. Set vstamp for the optional header from the vstamp of the symbolic header. (ecoff_bfd_final_link): Set vstamp of the symbolic header to the vstamp used by the first object file in the link. * ecofflink.c (ecoff_align_debug): Align RFDs to debug_align. * linker.c (generic_link_check_achive_element): Set SEC_ALLOC flag for a created common section. (_bfd_generic_link_add_one_symbol): Likewise. * elfcode.h (swap_out_syms): Use elf_section_from_bfd_section to get the index of a common section, rather than always using SHN_COMMON (MIPS has multiple common sections). * elf32-hppa.c (hppa_elf_gen_reloc_type): Typo (== for =). * bfd/aoutx.h (aout_link_input_section_std, aout_link_input_section_ext): Pass additional arguments to reloc_overflow callback. * coff-alpha.c (alpha_ecoff_get_relocated_section_contents, alpha_relocat_section): Likewise. * coff-h8300.c (h8300_reloc16_extra_cases): Likewise. * coff-h8500.c (extra_case): Likewise. * coff-mips.c (mips_relocate_section): Likewise. * coff-z8k.c (extra_case): Likewise. * elf32-hppa.c (hppa_elf_stub_finish): Likewise. * reloc.c (bfd_generic_get_relocated_section_contents): Likewise. * bout.c (calljx_callback, callj_callback): Use get_value to get the symbol value and check for undefined symbols. (get_value): If the symbol is undefined, look it up in the linker hash table. (b_out_get_relocated_section_contents): For PCREL24 and PCREL13 use get_value to get the symbol value and check for undefined symbols. * reloc16.c (bfd_coff_reloc16_get_value): If the symbol is undefined, look it up in the linker hash table. * aoutx.h (translate_symbol_table): The string index 0 has a special meaning for normal symbols, but not for dynamic symbols. Sat Jan 22 12:26:01 1994 Stu Grossman (grossman at cygnus.com) * sparclynx.c: Setup appropriate macros to enable core file support. Fri Jan 21 16:25:35 1994 David J. Mackenzie (djm@thepub.cygnus.com) * targets.c: Add a vector of matching format names. * format.c (bfd_matching_formats): New function to return it. (bfd_check_format): Set it. * bfd-in2.h: Regenerated. * bfd-in.h: Remove decls of bfd_ec type and error printing functions. Remove decl of type symclass; wasn't used. * bfd.c: Document error handling, including code fragments containing the error decls that were in bfd-in.h. Remove DEFUNs. * bfd-in2.h: Regenerated. Fri Jan 21 14:11:16 1994 Sean Fagan (sef@cygnus.com) * nlmcode.h, liblnm.h, nlm32-alpha.c nlm32-i386.c nlm32-sparc.c: The sparc (and possibly other?) NLM format requires a different way to write exports, so add a write_export field to the backend data (and set it to NULL for everything but the sparc). Fri Jan 21 14:11:16 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * sunos.c (MY(read_dynamic_relocs)): Compare info->dynrel with NULL, not (struct external_nlist *) NULL. info->dynrel is a PTR, not a struct external_nlist *. Fri Jan 21 09:29:01 1994 David J. Mackenzie (djm@thepub.cygnus.com) * bfd.c: Remove error strings for errors removed below. * aoutx.h (translate_to_native_sym_flags), bfd-in.h (bfd_ec), oasys.c (oasys_write_sections): Rename bfd_error_nonrepresentable_section to nonrepresentable_section. None of the other bfd error names start with "bfd_error". Remove errors symbol_not_found and no_relocation_info, which seem to be unused. * bfd-in2.h: Regenerated. Fri Jan 21 01:11:55 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfd.c (bfd_get_gp_size): Added support for ELF. * syms.c (BSF_DYNAMIC): New symbol flag. (bfd_print_symbol_vandf): Print it. * bfd-in2.h: Rebuilt. * libaout.h (struct aout_backend_data): New read_dynamic_symbols and read_dynamic_relocs fields. (struct aoutdata): New dynamic_info field. (obj_aout_dynamic_info): New accessor macro. * sunos.c (struct sunos_dynamic_info): New structure. (sunos_read_dynamic_info, MY(read_dynamic_symbols), MY(read_dynamic_relocs)): New functions to read dynamic symbols and relocs. * aoutx.h (NAME(aout,some_aout_object_p)): If the object is dynamically linked, set SEC_RELOC for both the .text and .data sections. (translate_from_native_sym_flags): Don't set BSF_LOCAL for an undefined symbol. (translate_symbol_table): New function, split out of slurp_symbol_table; set the BSF_DYNAMIC flag appropriately. (NAME(aout,slurp_symbol_table)): Read dynamic symbols, if any. (NAME(aout,slurp_reloc_table)): Read dynamic relocs, if any. (NAME(aout,get_reloc_upper_bound)): Include dynamic reloc count in return value. * aoutf1.h (NAME(aout,sunos4_write_object_contents)): Don't write out dynamic symbols or relocs against reloc symbols, since they are already in the .text section and we wouldn't know where to write them anyhow. (sunos4_aout_backend): Initialize read_dynamic_symbols and read_dynamic_relocs fields. * aout-target.h (MY(backend_data)): Initialize read_dynamic_symbols and read_dynamic_relocs fields. Thu Jan 20 20:57:27 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * hosts/alphaosf.h (uint64e_type, uint64_type, int64_type): Delete typedefs, since HOST_64_BIT will take care of defining them in bfd.h. Wed Jan 19 17:28:59 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * config/alphaosf.mh (HDEFINES): Don't define HOST_64_BIT here; that's dealt with elsewhere. * hosts/alphaosf.h (sprintf_vma, fprintf_vma): New macros. (uint64_typeHIGH, uint64_typeLOW): Comment with HOST_64_BIT so they get copied to bfd.h. * reloc.c (enum bfd_reloc_code_real): Add some Alpha relocation types. Reorganized some of the existing ones. * coff-alpha.c (alpha_howto_table): Construct 64-bit negative one values in case of compilation on a 32-bit machine. Fix pcrel fields of some reloc types. (alpha_bfd_reloc_type_lookup): Handle more relocation types. * bfd-in.h (uint64_typeHIGH, uint64_typeLOW): Supply default definitions when not defined, regardless of whether uint64_type is a defined macro or not. (fprintf_vma, sprintf_vma): Define only if fprintf_vma is not already defined. Wed Jan 19 00:02:54 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (translate_to_native_sym_flags): Set the type of a BSF_WARNING symbol to N_WARNING. Tue Jan 18 16:43:19 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (aout_link_add_symbols): Increment sym_hash as well as p for an indirect or warning symbol. (aout_link_write_symbols): Update sym_hash with the target of an indirect or warning symbol. If an indirect symbol is defined, output the calculated value and don't output the target symbol. Tue Jan 18 03:54:59 1994 David J. Mackenzie (djm@thepub.cygnus.com) * aoutx.h (translate_from_native_sym_flags): Give warning symbols an (unused) nonzero section value, needed for check below. Mon Jan 17 15:12:07 1994 David J. Mackenzie (djm@thepub.cygnus.com) * aoutx.h (translate_from_native_sym_flags, aout_link_add_symbols): Treat N_SET[ABDT] | N_EXT like N_SET[ABDT]. Fri Jan 14 16:45:43 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (elf_object_p): If there is a SHT_DYNAMIC section, set the DYNAMIC flag for the BFD. (NAME(bfd_elf,write_object_contents)): Don't try to write out a BFD with the DYNAMIC flag set, since we don't generate the program header table correctly. Fri Jan 14 01:04:36 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * elfcode.h (elf_slurp_symbol_table): Free x_symp at the end of the function to avoid storage leak. Thu Jan 13 23:07:32 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c (ecoff_link_write_external): An ifd can be -1. Thu Jan 13 12:33:27 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_set_reloc_info): Provide a default symbol for relocations which don't actually have an associated symbol. * som.c (hppa_som_reloc): Add new "error message" argument. Wed Jan 12 13:36:43 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) Enable gdb to write to core files on more core file readers. * libbfd.c (bfd_generic_set_section_contents): Remove range check for section size, it is already done in bfd_set_section_contents with bfd_get_section_size_now. * aix386-core.c, hppabsd-core.c, hpux-core.c, irix-core.c, osf-core.c, ptrace-core.c, trad-core.c (*_set_section_contents): Use bfd_generic_set_section_contents instead of bfd_false. Wed Jan 12 15:31:57 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * linker.c: Added initial documentation. * linker.c (default_indirect_link_order): Don't expect space for output relocations if there aren't any input relocations. Tue Jan 11 14:37:12 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aoutx.h (NAME(aout,final_link)): Set a_entry before computing file offsets. * elfcode.h (swap_out_syms): A common symbol is STT_OBJECT, not STT_NOTYPE. Tue Jan 11 09:10:56 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * config.bfd: Use ELF, not COFF for m88*-*-dgux*. Combine m88k-*-* and m88110-*-* cases into m88*-*-*. Tue Jan 11 00:07:19 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecofflink.c: Extensive changes to compress and merge debugging information, and to write some of out directly rather than saving it in memory. Several new functions and structures, and new arguments to existing functions. * ecoff.c (ecoff_compute_reloc_file_positions): Compute sym_filepos as well. (ecoff_get_extr): Use ifdmap instead of ifdbase. (ecoff_write_object_contents): Don't compute sym_filepos here. Only output symbols if outsymbols is not NULL. (ecoff_bfd_final_link): Adjust for changes in ecoff_debug_info and bfd_ecoff_debug functions. Write out debugging information here. (ecoff_final_link_debug_accumulate): Adjust for changes in bfd_ecoff_debug functions. (ecoff_link_write_external): Use ifdmap rather than ifdbase. * elf32-mips.c (mips_elf_read_ecoff_info): Read external symbols first, to put them in the first memory buffer. Clear fdr field. (mips_elf_get_extr): Use pointer to unswapped external symbol. (mips_elf_final_link): Adjust for changes in bfd_ecoff functions. Preserve .text, .data and .bss even if they are empty. Save pointer to unswapped external symbol rather than copying it. Don't free up the external symbols. * libelf.h (elf_symbol_type): Change mips_extr to PTR. * bfd-in.h (bfd_ecoff_debug_init, bfd_ecoff_debug_free): Declare. (bfd_ecoff_debug_accumulate): Update declaration. (bfd_ecoff_debug_accumulate_other): Rename declaration from bfd_ecoff_debug_link_other and update. (bfd_ecoff_write_accumulated_debug): Declare. * bfd-in2.h: Rebuilt. * Makefile.in: Rebuilt dependencies. Mon Jan 10 20:46:53 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (install): Remove "@" which follows a backslash. In this position it just causes errors, not suppresses echoes. Mon Jan 10 09:06:21 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (hppa_som_gen_reloc_type): Fix handling of LT and RT field selectors. Sun Jan 9 04:32:25 1994 Ken Raeburn (raeburn@kr-pc.cygnus.com) * config/i386-netbsd.mt (SELECT_VECS): Include i386bsd_vec. Fri Jan 7 10:27:27 1994 David J. Mackenzie (djm@rtl.cygnus.com) * aoutx.h (adjust_z_magic): Don't merge the start of bss with the end of data if they are not contiguous. * aoutf1.h (sunos4_aout_backend): Comment the fields' meanings. Fri Jan 7 15:40:16 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c (ecoff_mkobject_hook): Don't set SEC_SHARED_LIBRARY flag for .reginfo section here. (ecoff_new_section_hook): Set it here instead. Fri Jan 7 10:29:27 1994 Stan Shebs (shebs@andros.cygnus.com) * bfd-in.h: (bfd_boolean): Add workaround for systems that also define true and false as enums. (ALMOST_STDC): Add as alternative to __STDC__. * bfd-in2.h: Rebuilt. * syms.c (bfd_print_symbol_vandf): Convert a PTR to FILE*. Thu Jan 6 14:24:44 1994 David J. Mackenzie (djm@thepub.cygnus.com) * aoutx.h (translate_to_native_sym_flags): Catch the case where there is no output section. Thu Jan 6 14:37:42 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * nlmcode.h (nlm_object_p): If we can't read the fixed header, count it as a wrong format error, not a system call error, since the object file might simply be too small. * targets.c (target_vector): Added nlm32_alpha_vec inside #ifdef BFD64. * Makefile.in (BFD32_BACKENDS): Remove nlm32-alpha.o. (BFD64_BACKENDS): Add nlm32-alpha.o. It depends on 64 bit support, even though it is for an Alpha in 32 bit mode. * configure.in (nlm32_alpha_vec): Set target64 to true. * nlm32-gen.c, nlm64-gen.c: Removed. All nlm targets are different, so there is no point to providing a generic one. * libnlm.h: Don't bother to check for nlm_backend(bfd) being NULL in the backend accessor macros; that should no longer be possible. * targets.c (target_vector): Removed nlm32_big_generic_vec, nlm64_big_generic_vec, nlm64_little_generic_vec. * configure.in (nlm32_big_generic_vec, nlm32_little_generic_vec, nlm64_big_generic_vec, nlm64_little_generic_vec): Removed. * Makefile.in: Rebuilt dependencies, and (BFD32_BACKENDS): Removed nlm32-gen.o. (BFD64_BACKENDS): Removed nlm64-gen.o. (CFILES): Removed nlm32-gen.c and nlm64-gen.c. * hp300hpux.c (ARCH_SIZE): Define before including aoutx.h. * linker.c (_bfd_generic_link_add_one_symbol): Add constructor and bitsize arguments. Changed all callers (aoutx.h). * libbfd-in.h (_bfd_generic_link_add_one_symbol): Add constructor and bitsize arguments to declaration. * libbfd.h: Rebuilt. * ecoff.c: First cut at new style of linker backend for ECOFF--added a bunch of functions. Also: (ecoff_sec_to_styp_flags): Set flags for .pdata and .xdata. (ecoff_slurp_symbolic_header): New function. (ecoff_slurp_symbolic_info): Call ecoff_slurp_symbolic_header. (ecoff_compute_reloc_file_positions): New function. (ecoff_set_section_contents): Get out quickly if count is zero. Check errors better. (ecoff_write_object_contents): Put .xdata section in data segment. Call ecoff_compute_reloc_file_positions. Don't output relocs or external symbols if outsymbols is NULL. (ecoff_bfd_final_link): Completely rewritten. * libecoff.h: Include bfdlink.h. (struct ecoff_backend_data): Add relocate_section field. (ecoff_data_type): Add sym_hashes and symndx_to_section fields. (struct ecoff_link_hash_entry): Define. (struct ecoff_link_hash_table): Define. (ecoff_bfd_link_add_symbols): Declare as function, not macro. (ecoff_bfd_link_hash_table_create): Likewise. * ecofflink.c (bfd_ecoff_debug_one_external): New function. (bfd_ecoff_debug_externals): Call bfd_ecoff_debug_one_external. * bfd-in.h (bfd_ecoff_debug_one_external): Declare. * bfd-in2.h: Rebuilt. * coff-alpha.c (alpha_howto_table): Mark BRADDR as partial_inplace, and set the src_mask to 0x1fffff. (alpha_ecoff_get_relocated_section_contents): Remove unused variable gp_warned. (alpha_convert_external_reloc): New static function. (alpha_relocate_section): New static function. (alpha_ecoff_backend_data): Initialize relocate_section field. * coff-mips.c (mips_relocate_refhi): New static function. (mips_relocate_section): New static function. (mips_ecoff_backend_data): Initialize relocate_section field. * reloc.c (_bfd_relocate_contents): Corrected signed overflow checking when there is an addend. * aoutx.h (NAME(aout,final_link)): Don't abort when trying to link a non a.out file, just pass it to _bfd_default_link_order. (aout_link_input_section_std): When doing a final PC relative link against a section symbol, subtract the VMA of the input section. (aout_link_input_section_ext): Likewise. * linker.c (default_indirect_link_order): Renamed from _bfd_generic_indirect_link_order and made static. (_bfd_generic_final_link): Don't switch on link_order type, just call _bfd_default_link_order. (_bfd_default_link_order): Handle bfd_indirect_link_order type. * genlink.h: Removed declaration of _bfd_generic_indirect_link_order. * elf32-mips.c (mips_elf_final_link): Don't switch on link_order type, just call _bfd_default_link_order. Tue Jan 4 21:23:37 1994 Ian Lance Taylor (ian@cygnus.com) * linker.c (generic_link_check_archive_element): Base the name of the created common section on the name of the section the symbol came from. (_bfd_generic_link_add_one_symbol): (case BIG): A common symbol must have a section, so don't bother to create one. Mon Jan 3 15:32:16 1994 David J. Mackenzie (djm@thepub.cygnus.com) * aout-target.h (MY(vec)): Add DYNAMIC to mask of object flags. * aoutf1.h (NAME(aout,sunos4_write_object_contents)): If the DYNAMIC flag is set, set it in the exec header. * aoutx.h (NAME(aout,some_aout_object_p)): If the object is dynamically linked, set the DYNAMIC flag in the BFD. * libaout.h (N_SET_DYNAMIC): New macro. (N_DYNAMIC): Add missing 0 in mask. Mon Jan 3 11:41:45 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c (ecoff_get_extr): Don't output section symbols as external symbols. * bfd-in.h, hash.c: Change bfd_hash_allocate argument from size_t to unsigned int, because size_t may not be defined in bfd.h. * bfd-in2.h: Rebuilt. * bfd-in.h (bfd_get{b,l}[_signed_]{16,32,64}): Declare argument to be a const pointer. * bfd-in2.h: Rebuilt. * libbfd.c (bfd_get{b,l}[_signed_]{16,32,64}): Declare argument to be a const pointer. * targets.c (bfd_target): Change swap function pointers accordingly. * archive.c (do_slurp_coff_armap): Change swap accordingly. * aix386-core.c: Change NO_GET and NO_GETS accordingly. * hppabsd-core.c, hpux-core.c, irix-core.c, osf-core.c, ptrace-core.c, trad-core.c: Change NO_GET and NO_SIGNED_GET accordingly. * libbfd-in.h (struct artdata): Added tdata field. (_bfd_add_bfd_to_archive_cache): Declare. (_bfd_get_elt_at_filepos): Declare. (_bfd_snarf_ar_hdr): Renamed from snarf_ar_hdr. * libbfd.h: Rebuilt. * archive.c: Cleaned up some more. (_bfd_generic_mkarchive, bfd_generic_archive_p): Initialize pointer elements of artdata. (_bfd_add_bfd_to_archive_cache): Renamed from add_bfd_to_cache. (_bfd_snarf_ar_hdr): Renamed from snarf_ar_hdr. (_bfd_get_elt_at_filepos): Renamed from get_elt_at_filepos. (get_extended_arelt_filename, bfd_construct_extended_name_table, bfd_ar_hdr_from_filesystem, compute_and_write_armap): Made static. * ecoff.c: Some comment changes. (ecoff_slurp_armap): Handle rename of snarf_ar_hdr. Set ardata->tdata to raw_armap. (ecoff_archive_p): Initialize pointer elements of artdata. * coff-rs6000.c (rs6000coff_get_elt_at_filepos): Handle rename of add_bfd_to_cache. * hash.c: Added some documentation. Mon Jan 3 11:09:28 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * aout-target.h, netbsd386.c: Replace NO_SWAP_MAGIC with SWAP_MAGIC, and do the swapping here rather than calling ntohl from the N_* macros. This cleans up assumptions about the size of a host long, the existence to ntohl, etc. Sat Jan 1 13:50:05 1994 Rob Savoye (rob@darkstar.cygnus.com) * config.bfd: Add support for VSTa micro-kernel. It currently uses i386-aout. Sat Jan 1 10:18:54 1994 David J. Mackenzie (djm@thepub.cygnus.com) * hosts/i386mach3.h (HOST_SEGMENT_SIZE): Fix value. * i386mach3.c (SEGMENT_SIZE): Fix value. Fri Dec 31 16:23:43 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Minor cleanups suggested by CodeCenter. * aoutx.h, coffgen.c, ecoff.c, ecofflink.c, elf.c, libbfd.c, linker.c, reloc.c, section.c, srec.c: Added /*ARGSUSED*/ as appropriate. * aoutx.h (struct external_exec): Removed unnecessary declaration. (NAME(aout,some_aout_object_p)): Set some tdata pointers to NULL. (adjust_z_magic): Removed useless variable data_vma. (stringtab_init): Initialize hash_zero. (add_to_stringtab): Removed unused fourth argument. (NAME(aout,swap_std_reloc_out)): Removed useless variable r_addend. (aout_link_input_section): Added some casts. * archive.c (get_extended_arelt_filename, do_slurp_coff_armap, bfd_ar_hdr_from_filesystem, bsd_write_armap, coff_write_armap): Minor code rewriting to make it more C like. (do_slurp_bsd_armap): Added some casts. * ecoff.c (ecoff_write_object_contents): Removed useless variable scn_base. (ecoff_write_armap): Added some casts. Use "" rather than "\0". * ecofflink.c (bfd_ecoff_write_debug): Added a cast. * libaout.h (struct internal_exec): Removed unnecessary declaration. * linker.c (_bfd_generic_indirect_link_order): Added a cast. * opncls.c (new_bfd): Removed a cast. * reloc.c (bfd_generic_get_relocated_section_contents): Added some casts. * srec.c (internal_srec_write_object_contents): Removed useless variable bytes_written. Fri Dec 31 11:46:13 1993 David J. Mackenzie (djm@thepub.cygnus.com) * i386mach3.c (N_TXTADDR): Don't define after all. (TEXT_START_ADDR): Don't include exec header size in value. Thu Dec 30 15:47:54 1993 David J. Mackenzie (djm@thepub.cygnus.com) * i386mach3.c (N_TXTADDR): Define. Thu Dec 30 13:37:24 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Extensive changes to move the bulk of the linker into BFD so that more efficient backend code can be written for specific object files. Only existing efficient backend is a.out. * seclet.c, seclet.h: Removed. * hash.c, linker.c, genlink.h: New files. * bfd-in.h: Removed bfd_error_vector. Declared hash table structures and functions. (JUMP_TABLE): Removed bfd_seclet_link, added bfd_link_hash_table_create, bfd_link_add_symbols and bfd_final_link. * All backends: Changed accordingly. * bfd-in2.h: Rebuilt. * bfd.c (struct _bfd): Added link_next and archive_pass fields. Removed ld_symbols field. (bfd_nonrepresentable_section, bfd_undefined_symbol, bfd_reloc_value_truncated, bfd_reloc_is_dangerous, bfd_error_vector): Removed. (bfd_default_error_trap, bfd_error_trap, bfd_error_nonrepresentabltrap): Removed. (bfd_get_relocated_section_contents): Pass link_info. Pass link_order instead of seclet. Pass symbols. (bfd_relax_section): Pass link_info. (bfd_seclet_link): Removed. (bfd_link_hash_table_create, bfd_link_add_symbols, bfd_final_link): New macros. * libbfd-in.h: If __GNUC__ is defined and alloca is not, define alloca as __builtin_alloca. Declare internal linking functions. * libbfd.h: Rebuilt. * libbfd.c (bfd_seek): Comment out fseek assertion. It's worked for months. * reloc.c (reloc_howto_type): Added error_message argument to special_function field. Changed all callers and all definitions. (bfd_get_reloc_size): Make argument a const pointer. (bfd_perform_relocation): Add error_message argument to hold string set if return value if bfd_reloc_dangerous. Changed all callers. (_bfd_final_link_relocate, _bfd_relocate_contents): New functions. * section.c (asection): Renamed seclets_head and seclets_tail to link_order_head and link_order_tail. * targets.c (bfd_target): Replaced seclet argument with link_info and link_order and symbols arguments in bfd_get_relocated_section_contents. Added symbols argument to bfd_relax_section. Removed bfd_seclet_link. Added bfd_link_hash_table_create, bfd_link_add_symbols and bfd_final_link. * libaout.h (struct aoutdata): Added external_syms, external_sym_count, external_strings, sym_hashes fields. (obj_aout_external_syms, obj_aout_external_sym_count, obj_aout_external_strings, obj_aout_sym_hashes): New accessor macros. (WRITE_HEADERS): Only output symbols if outsymbols is not NULL. * aoutx.h: Wrote new back end linker routines. (translate_to_native_sym_flags): Return boolean value. Don't use bfd_error_vector. (NAME(aout,write_syms)): Return boolean value. Check return value of translate_to_native_sym_flags and bfd_write. * aout-target.h (final_link_callback): New function. (MY_bfd_final_link): New function. * aout-adobe.c (aout_adobe_write_object_contents): Check return value of aout_32_write_syms. * hp300hpux.c (MY(write_object_contents)): Likewise. * i386lynx.c (WRITE_HEADERS): Likewise. * libaout.h (WRITE_HEADERS): Likewise. * bout.c: Changed functions to use link_info->callbacks rather than bfd_error_vector, and link_orders rather than seclets. * coff-alpha.c: Likewise. * coff-h8300.c: Likewise. * coff-h8500.c: Likewise. * coff-sh.c: Likewise. * coff-z8k.c: Likewise. * elf32-hppa.c: Likewise. * reloc16.c: Likewise. * coff-alpha.c (alpha_ecoff_get_relocated_section_contents): Look up _gp in the hash table rather than in outsymbols. * coff-a29k.c (a29k_reloc): Pass errors back in new error_message argument rather than printing them. * coffcode.h (bfd_coff_reloc16_extra_cases): Take link_info and link_order arguments rather than seclet. Changed all uses and definitions. (bfd_coff_reloc16_estimate): Pass link_info arguments. Changed all uses and definitions. * libcoff.h: Rebuilt. * ecoff.c (ecoff_get_extr): If symbol is defined by linker, but not by ECOFF, make it scAbs. (ecoff_bfd_final_link): Renamed from ecoff_bfd_seclet_link and rewritten. * elf32-mips.c (mips_elf_final_link): Renamed from mips_elf_seclet_link and rewritten. * elf32-hppa.c (elf32_hppa_stub_description): Added link_info field. (new_stub, add_stub_by_name, hppa_elf_build_arg_reloc_stub, hppa_elf_build_long_branch_stub, hppa_look_for_stubs_in_section): Added link_info arguments. Changed all callers. * elfcode.h (elf_slurp_symbol_table): Don't quit if outsymbols is not NULL. * oasys.c (oasys_write_sections): Return boolean value rather than using bfd_error_vector. (oasys_write_object_contents): Check return value of oasys_write_sections. * hosts/std-host.h: Don't declare qsort or strtol. * Makefile.in: Rebuild dependencies. (BFD_LIBS): Removed seclet.o. Added hash.o and linker.o. (CFILES): Removed seclet.c. Added hash.c and linker.c. (HFILES): Removed seclet.h. Added genlink.h. Thu Dec 30 07:41:36 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * section.c (bfd_get_section_contents): Return zero filled buffer if section has no contents. Tue Dec 28 12:43:54 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elf.c (bfd_elf_generic_reloc): If this is not an inplace reloc, then skip bfd_perform_relocation even if the addend is non-zero. Tue Dec 21 09:22:19 1993 Ken Raeburn (raeburn@rtl.cygnus.com) * coffcode.h (coff_write_relocs) [SWAP_OUT_RELOC_OFFSET]: Copy addend to r_offset field. * Makefile.in (CFILES): Added coff-sparc.c. Rebuild dependencies. * coff-sparc.c (SWAP_IN_RELOC_OFFSET, SWAP_OUT_RELOC_OFFSET, CALC_ADDEND): Define. * aix386-core.c (aix386_core_file_p): Use cd_regs[0] for computing the offsetof because AIX /bin/cc does not like to take the address of an array. (From Minh Tran-Le.) Thu Dec 16 13:06:32 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * Thu Dec 16 15:41:06 1993 Peter Hoogenboom (hoogen@cs.utah.edu) * elf32-hppa.c (hppa_elf_build_arg_reloc_stub): Make sure to copy the return pointer into %r2 if no jump-in-call-delay-slot optimization was done. * hosts/hp300bsd.h: Correctly identify 4.3BSD vs 4.4BSD. Wed Dec 15 08:04:16 1993 David J. Mackenzie (djm@thepub.cygnus.com) * hosts/std-host.h: (time): Don't declare; conflicts on Mach3. * hosts/i386mach3.h (HOST_PAGE_SIZE): Set to 1 to avoid padding. (HOST_SEGMENT_SIZE): Set to 0 for same reason. * i386mach3.c (PAGE_SIZE, SEGMENT_SIZE): Same changes as above. (TEXT_START_ADDR): Correct. (MY_backend_data): Define. * aoutx.h (adjust_o_magic, adjust_z_magic, adjust_n_magic): New functions; code moved from aout__adjust_sizes_and_vmas. Tue Dec 14 21:48:33 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_begin_writing): Fix thinkos in auxiliary header support. (bfd_som_attach_aux_hdr): Likewise. Mon Dec 13 23:34:48 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * elf32-hppa.c (hppa_elf_gen_reloc_type): Handle 'T' field selectors for PIC code. * som.c (hppa_som_gen_reloc_type): Handle 'T' field selectors. (som_write_fixups): Handle R_DLT_REL, R_FSEL, R_RSEL, R_LSEL relocations needed by PIC. Tue Dec 7 15:47:51 1993 Stu Grossman (grossman at cygnus.com) * nlmcode.h: Fixes to avoid compiler warnings... Tue Dec 7 15:10:54 1993 Ian Lance Taylor (ian@cygnus.com) * libnlm.h (nlm_backend_data): Removed macro definition. (nlm_alpha_backend_data): Adjusted accordingly. Sun Dec 5 19:32:08 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_begin_writing): Flesh out code for handling simple auxiliary headers. (bfd_som_attach_aux_hdr): New function. * som.h (struct somdata): Add fields for attaching version and copyright headers. Add accessor macros. * som.c (R_DLT_REL, R_AUX_UNWIND, R_SEC_STMT): Add protected definitions for old versions of HPUX which fail to define them. (som_hppa_howto_talbe): Add R_DLT_REL, R_AUX_UNWIND, and R_SEC_STMT now that they're safe. Delete bogus R_STATEMENT relocations. * som.c (som_hppa_howto_table): Add missing R_END_TRY. Delete extra R_DATA_OVERRIDE. (hppa_som_gen_reloc_type): Generate a relocation for the rounding mode selector if needed. (som_write_fixups): Handle requests for a change in the default rounding mode. Rounding modes do not consume input bytes, but are just markers much like R_ENTRY and R_EXIT. Sat Dec 4 19:40:32 1993 Jeffrey A. Law (law@snake.cs.utah.edu) Fri Dec 3 09:55:17 1993 Pete Hoogenboom (hoogen@cs.utah.edu) * elf32-hppa.c: (hppa_elf_reloc): Do not do code reordering when the branch instruction as originally been nullified. hppa_elf_reloc): Avoid useless call to bfd_put_32 () in the case of no code reordering due to an LDO instruction in the delay slot of the branch. Make sure to relocate the correct instruction. Do not perform instruction reordering for millicode calls. (hppa_elf_build_arg_reloc_stub): Change the relocation type to R_HPPA_STUB_CALL_17 when special processing might be needed. (hppa_elf_build_long_branch_stub): Prevent code reordering on a call from a linker stub to another linker stub and for millicode calls. Do not trash the return register for calls from one linker stub to a second linker stub. * elf32-hppa.c: (elf_hppa_howto_table): PLABEL and DLT relocations are not pc-relative. * hppa_stubs.h: (BLE_N_XXX_0_31): New instruction used in linker stub code. (COPY_2_31): Likewise. Fri Dec 3 18:40:58 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * config/solaris2.mh (HDEFINES): Remove -Dconst= * hosts/solaris.h: If not __GNUC__, define const as empty. Thu Dec 2 15:43:32 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c: Added various casts for 32/64 bit cross targeting. (ecoff_mkobject_hook): Set SEC_SHARED_LIBRARY for the .reginfo section so that the linker ignores it. * ecofflink.c: Added various casts for 32/64 bit cross targeting. (ecoff_add_bytes): Changed need argument to size_t. (bfd_ecoff_debug_link_other): Check return value of ecoff_add_string. * libbfd-in.h (new_bfd): Use void rather than an empty parameter list. * libbfd.h: Rebuilt. * libnlm.h (struct nlm_obj_tdata): New field backend_data. (nlm_backend_data, nlm_alpha_backend_data): New accessor macros. (struct nlm_backend_data): New field no_uninitialized_data. (nlm_no_uninitialized_data): New accessor macro. * nlmcode.h (nlm_compute_section_file_positions): Handle no_uninitialized_data. (nlm_external_reloc_compare): Sort relocs by address for a particular symbol, to make the sort more stable. (nlm_write_object_contents): Cast the arguments to qsort. Get the value of a debugging symbol the same way we get the value of a normal symbol. * nlm32-alpha.c: Various changes. Write out GP and .lita relocs. Set no_uninitialized_data to true. * nlm32-i386.c (nlm32_i386_backend), nlm32-sparc.c (nlm32_sparc_backend): Set no_uninitialized_data field false. * nlmswap.h (nlm_swap_fixed_header_out): Zero out destination before filling it in. Wed Dec 1 21:47:58 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_section_type, som_decode_symcalss): New functions. (som_get_symbol_info): Use them. (som_slurp_symbol_table): Set the section of common and undefined symbols correctly. Wed Dec 1 14:15:10 1993 Ken Raeburn (raeburn@cygnus.com) * elfcode.h (write_relocs): Initialize local var LAST_SYM_IDX, to make gcc happy. * mipsbsd.c: Changes from Ralph Campbell: (mips_howto_table_ext): MIPS_RELOC_LO16 should use complain_overflow_dont. (aout_mips_*_vec): Make name use "a.out" instead of "aout", to make gdb happy. * bfd.c (bfd_errmsgs): Reword invalid-target message. * config.bfd: For sparc*-*-coff, use sparc-coff. * configure.in: Handle sparccoff_vec. * targets.c (sparccoff_vec): Declare. * reloc.c (bfd_get_reloc_size): New function. (struct reloc_howto_type): Update documentation of size field. Wed Dec 1 14:39:05 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * nlm32-alpha.c: New file; preliminary Alpha NetWare support. * config.bfd (alpha-*-netware*): New target; use alpha-nlm. * config/alpha-nlm.mt: New file. * configure.in (nlm32_alpha_vec): New vector; use nlm32-alpha.o, nlm32.o, and nlm.o. * Makefile.in (BFD32_BACKENDS): Added nlm32-alpha.o. (CFILES): Added nlm32-alpha.c. Rebuilt dependencies. * targets.c (nlm32_alpha_vec): Declare. * libnlm.h (struct nlm_backend_data): New fields optional_prefix_size, nlm_backend_object_p, nlm_write_prefix, nlm_set_public_section, nlm_get_public_offset. Removed unused nlm_write_reloc field. Changed nlm_write_import to remove unnecessary symbol argument. Renamed nlm_write_externals to nlm_write_external, and changed cound argument from bfd_vma to bfd_size_type. (nlm_optional_prefix_size, nlm_backend_object_p_func, nlm_write_prefix_func, nlm_set_public_section_func, nlm_get_public_offset_func): New accessor macros. (nlm_write_reloc_func): Removed. (nlm_write_external_func): Adjusted for field renaming. * nlm32-i386.c (nlm_i386_write_import): Renamed from nlm_i386_write_reloc. Removed old nlm_i386_write_import which just called old nlm_i386_write_reloc. (nlm_i386_write_external): Renamed from nlm_i386_write_externals. Declared. Changed second argument from bfd_vma to bfd_size_type. (nlm32_i386_backend): Adjusted for changes to fields and names. * nlm32-sparc.c (nlm_sparc_mangle_relocs): Removed unused, ifdeffed out code. (nlm_sparc_write_import): Removed second argument. (nlm_sparc_write_external): Renamed from nlm_sparc_write_externals. Changed second argument from bfd_vma to bfd_size_type. (nlm32_sparc_backend): Adjusted for changes to fields and names. * nlmcode.h: Removed some unused code. (nlm_object_p): Don't destroy tdata pointer. Call backend_object_p function if it exists. (nlm_slurp_symbol_table): Removed unused variable rcount. Call set_public_section_func if it exists instead of checking NLM_HIBIT. (nlm_compute_section_file_positions): Account for optional_prefix_size. (nlm_write_object_contents): Account for optional_prefix_size. Removed useless variable write_reloc_func. Changed declaration and call of write_import_func. Call write_prefix_func if it exists. Removed unused variables len and temp. Call get_public_offset_func if it exists rather than setting NLM_HIBIT. * nlmswap.h: Declare functions. * bfd-in.h (uint64_typeLOW, uint64_typeHIGH): Fully parenthesize for clarity. (fprintf_vma, sprintf_vma): Use %lx, not %x. * bfd-in2.h: Rebuilt. * hosts/alphaosf.h (uint64_typeLOW, uint64_typeHIGH): Cast results to unsigned long. * config.bfd: Don't set target64 here, as the setting is ignored. * configure.in (ecoffalpha_little_vec): Set target64. * config/alphaosf.mt (TDEFINES): Removed; setting host parameters in TDEFINES is wrong. * coff-alpha.c (alpha_ecoff_get_relocated_section_contents): Remove unused variable output_section. Tue Nov 30 16:45:23 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * irix-core.c: New file for Irix 4 and Irix 5 core support. Functions taken out of coff-mips.c. Handle vmap type VMAPFILE. * coff-mips.c: Irix 4 core file support moved to irix-core.c. * targets.c: If IRIX_CORE defined, include irix_core_vec in target_vector. * config/irix4.mh (HDEFINES): Add -DIRIX_CORE. (HDEPFILES): Define to be irix-core.o. * config/irix5.mh (HDEFINES): Define to be -DIRIX_CORE. (HDEPFILES): Define to be irix-core.o. * Makefile.in (OPTIONAL_BACKENDS): Added irix-core.o. Removed sco-core.o, which no longer exists. (CFILES): Added all *-core.c files. Rebuilt dependencies. Wed Nov 24 02:02:41 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (map_program_segments): Restore check of file_size != mem_size, but only if SHT_PROGBITS. * ecofflink.c: New file to hold ECOFF debug information linking routines. * ecoff.c (ecoff_clear_output_flags, ecoff_rel, ecoff_dump_seclet, ecoff_add_string, ecoff_get_debug): Removed. Functionality now in ecofflink.c. (ecoff_get_extr, ecoff_set_index): New functions. (ecoff_slurp_symbolic_info): Don't save raw_size. (ecoff_bfd_seclet_link): Rewrote to use ecofflink.c functions. (ecoff_compute_section_file_positions): Don't set EXEC_P just because there is a start address. (ecoff_write_object_contents): Handle external symbols here. Use ecofflink.c functions to write out debugging information. * elf32-mips.c (mips_elf_read_ecoff_info, mips_elf_get_extr, mips_elf_set_index): New functions. (mips_elf_seclet_link): Discard empty sections, the .options section and .gptab sections. Handle linking .mdebug section. * libecoff.h (ecoff_data_type): Removed raw_size and ifdbase. * libelf.h (elf_symbol_type): Added mips_extr to tc_data union. * bfd-in.h: Added prototypes for routines in ecofflink.c (some are called by gas, so they are public). * bfd-in2.h: Rebuilt. * Makefile.in (BFD_LIBS): Added ecofflink.o. (CFILES): Added ecofflink.c. (ecofflink.o): New target. Rebuilt dependencies. Mon Nov 22 22:26:42 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (hppa_object_p): Also recognize SHARED_MAGIC_CNX as a valid magic number if it's been defined. Mon Nov 22 14:17:36 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c (ecoff_mkobject): Don't create .scommon section; linker no longer requires it. (ecoff_bfd_seclet_link, ecoff_sizeof_headers, ecoff_write_object_contents): Don't treat .scommon section specially. Mon Nov 22 10:54:27 1993 Fred Fish (fnf@cygnus.com) Merged changes from kev@spuds.geg.mot.com (Kevin A. Buettner): * bfd/config/delta88.mh (HDEFINES): Define this to be -DPTRACE_CORE. * bfd/config/delta88.mh (HDEPFILES): Defined to be ptrace-core.o. * bfd/ptrace-core.c: New file for dealing with core files with start with the ptrace_user structure found on BCS compliant systems. * bfd/targets.c (ptrace_core_vec): New vector. Mon Nov 22 02:33:12 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * Minimal support for reading SOM fixup streams. Allows objdump -r to do something reasonable. * som.c (som_get_reloc_upper_bound): Implement. (som_canonicalize_reloc): Implement. (som_set_reloc_info, som_slurp_reloc_table): New functions. Sun Nov 21 13:46:55 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * hosts/lynx.h (FPRINTF_ALREADY_DECLARED): Define. * hosts/sparclynx.h: Include lynx.h instead of duplicating it. Fri Nov 19 14:34:04 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-a29k.c (a29k_reloc): For R_IREL, don't left shift signed_value before sign extending it. Don't subtract out reloc_entry->address. This makes it compatible with what gas is generating. * elfcode.h (elf_fake_sections): Accept .sbss as the name for a SHT_NOBITS sections. (map_program_segments): Don't leave the loop after the first SHT_NOBITS section. (assign_file_positions_except_relocs): Only force sh_offset and sh_addr to match modulo maxpagesize for a section which is not SHT_NOBITS. Changed the method used to force page alignment after a SHT_NOBITS section to only do it for the last such consecutive section, and to really force page alignment. Fri Nov 19 04:02:01 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * coffcode.h (coff_slurp_symbol_table): Print more verbose message in the case of an unknown (or unhandled) storage class. * config/i386-lynx.mt (TDEFINES): FPRINTF_ALREADY_DECLARED should not be defined here, since it is a host attribute, not a target one. * config/m68k-lynx.mt, config/sparc-lynx.mt: Ditto. * coffcode.h (coff_bfd_reloc_type_lookup): Don't define if already defined. * coff-sparc.c: Define some relocations, based on ELF relocations. (enum reloc_type, bfd_coff_generic_reloc, coff_sparc_howto_table, struct coff_reloc_map, sparc_reloc_map, coff_sparc_reloc_type_lookup): Borrowed from elf32-sparc.c and elf.c, renamed. (coff_bfd_reloc_type_lookup): Define to be coff_sparc_reloc_.... (rtype2howto): Index into coff_sparc_howto_table using dst->r_type. Thu Nov 18 11:45:39 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * config.bfd (mips*-*-irix5*): New target; use mipsbelf. * configure.host (mips-sgi-irix5*) New host; use irix5 (no hosts/irix5.h created; just use std-host.h). * config/irix5.mh: New file; like irix4.mh, but don't use -G or -lmalloc. * Makefile.in: Rebuilt dependencies. * ecoffswap.h: Changed type of internal pointers for swap out functions to const *. * elf32-mips.c (mips_elf_got16_reloc): New function. Handle GOT16 correctly for assembler, but linker support not implemented. (elf_mips_howto_table): Use mips_elf_got16_reloc for GOT16. (mips_elf_sym_is_global): New function; at least on Irix 5, all non section symbols are considered global. (elf_backend_sym_is_global): Define. (mips_elf_final_write_processing): New function. Set the MIPS architecture level correctly. (elf_backend_final_write_processing): Define. (mips_elf_section_from_shdr): Handle SHT_MIPS_OPTIONS. (mips_elf_fake_sections): Set entsize of .mdebug or .reginfo section to 1. Handle .options section. (mips_elf_acom_section, mips_elf_acom_symbol, mips_elf_acom_symbol_ptr): New static variables, used to build a generic .acommon section to hold SHN_MIPS_ACOMMON symbols. (mips_elf_symbol_processing): Handle SHN_MIPS_ACOMMON symbols by putting them all in a global .acommon section. * elfcode.h (bfd_section_from_shdr): Don't dump core if target section has no ELF section data. (elf_make_sections): Set addralign of reloc section to 4. (elf_fake_sections): Likewise. (map_program_segments): Don't consider section 0. (assign_file_positions_except_relocs): Don't consider section 0. In the main loop, skip the symtab and strtab sections, since their positions are set elsewhere. (swap_out_syms): Set addralign of symtab section to 4. Set addralign of strtab sections to 1. (assign_file_positions_for_relocs): Don't consider section 0. (write_object_contents): Don't write out section 0. * libelf.h (struct elf_backend_data): Added fields elf_backend_sym_is_global and elf_backend_final_write_processing. * elf32-target.h (elf32_bed): Added corresponding initializers. * elf64-target.h (elf64_bed): Likewise. * elfcode.h (sym_is_global): Take abfd argument. Call elf_backend_sym_is_global if it is not NULL. (elf_map_symbols): Pass abfd to sym_is_global. (write_object_contents): Call elf_backend_final_write_processing if it is defined. Wed Nov 17 18:43:28 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * libecoff.h: Include coff/ecoff.h. (struct ecoff_backend_data): Move external debugging information fields into a single field pointing to an ecoff_debug_swap structure. (ecoff_data_type): Move debugging information fields into a single field pointing to an ecoff_debug_info structure. * coff-alpha.c, coff-mips.c, ecoff.c: Corresponding changes. Wed Nov 17 17:38:58 1993 Sean Eric Fagan (sef@cygnus.com) * nlmswap.h: New file to swap fixed header. Included by NLM backends. * libnlm.h (struct reloc_and_sec): Define. (struct nlm_backend_data): Add fields fixed_header_size, nlm_read_import, nlm_write_import, nlm_swap_fhdr_in, nlm_swap_fhdr_out. (nlm_fixed_header_size, nlm_read_import_func, nlm_write_import_func, nlm_swap_fixed_header_in_func, nlm_swap_fixed_header_out_func, nlm_write_external_func): New accessor macros. * nlmcode.h: Use new functions. * nlm32-i386.c: Provide new functions. * nlm32-sparc.c: New file; SPARC NLM backend. Wed Nov 17 13:56:10 1993 Stan Shebs (shebs@rtl.cygnus.com) * i386lynx.c (swap_std_reloc_in, swap_ext_reloc_in): Ignore garbage bits appearing in the upper end of symbolnums. * config/sparc-lynx.mt (TDEFINES): Add -DFPRINTF_ALREADY_DECLARED. Tue Nov 16 17:03:41 1993 Stu Grossman (grossman at cygnus.com) * lynx-core.c (lynx_core_file_p): Change bfd_zalloc to bfd_alloc. * m68klynx.c: Define core file macros. * hosts/i386lynx.h, hosts/m68klynx.h, hosts/lynx.h: Move all non-architecture specific stuff into lynx.h. Tue Nov 16 15:45:54 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * i386linux.c: Define new macro ZMAGIC_DISK_BLOCK_SIZE to 1024, and change PAGE_SIZE to 4096. Mon Nov 15 11:48:08 1993 Ken Raeburn (raeburn@rtl.cygnus.com) * Makefile.in (diststuff): New target. * VERSION: Updated. Sun Nov 14 23:33:01 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_object_setup): Do not create dummy ".text", ".data", and ".bss" sections. (setup_sections): Do not set SEC_HAS_CONTENTS if a section's size is zero. Recognize BSS type sections and turn off SEC_LOAD and SEC_DATA (so binutils/size works). Set the correct value for a section's _raw_size. (som_slurp_symbol_table): Program entry points, and millicode are also functions. Mark them as such. Also mark L$* symbols as debugging symbols. * bfd-in2.h: Rebuilt. Sat Nov 13 15:27:15 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_bfd_reloc_type_lookup): Add missing prototype. Returns a pointer to constant data. Delete bogus #define which made the function useless. * som.c (som_prep_for_fixups): New function. (som_write_fixups): New function. (som_write_space_strings): New function. (som_write_symbol_strings): New function. (som_begin_writing): New function. Fri Nov 12 15:29:36 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * som.c (som_write_object_contents): Do not abort. Flesh out. (som_set_section_contents): Do not abort. Flesh out. * som.c (som_write_headers): New function. (som_prep_headers): New function. (som_build_and_write_symbol_table): New function. * som.c (som_sizeof_headers): Add missing prototype. (som_set_arch_mach): Do not abort. * som.c (som_count_spaces): New function. (som_count_subspaces): New function. (compare_syms): New function. (som_compute_checksum): New function. * som.c (hppa_som_gen_reloc_type): New function. (som_bfd_reloc_type_lookup): New function. * som.c (try_prev_fixup): New function. (som_reloc_skip): New function. (som_reloc_addend): New function. (som_reloc_call): New function. * som.c (som_initialize_reloc_queue): New function. (som_reloc_queue_insert): Likewise. (som_reloc_queue_fix): Likewise. (som_reloc_queue_find): Likewise. * som.c (som_hppa_howto_table): SOM howto relocation table. (hppa_som_reloc): New function. * som.c (struct reloc_queue): New structure to keep track of the last four multibyte relocations emitted. (enum pa_symbol_type): Type to fully describe the symbol types associated with .import/.export assembler directives. * som.c: Include libhppa.h * som.c (bfd_som_set_section_attributes): New function. (bfd_som_set_subsection_attributes): Likewise. (bfd_som_set_symboL_type): Likewise. (bfd_som_attach_unwind_info): Likewise. * som.h: Declare new exported functions. * som.h (struct som_symbol): Add new fields to hold additional information needed to build/write symbol tables and fixup streams. (struct som_section_data_struct): Add new fields to hold additional information needed to build/write space and subspace headers. (som_symbol_data): New accessor macro for SOM symbol information. (R_HPPA_*): Basic relocation types to be used by the assembler. Fri Nov 12 11:00:28 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * trad-core.c (trad_unix_core_file_p): If new hook TRAD_CORE_ALLOW_ANY_EXTRA_SIZE defined, then skip the check for the corefile being too big. * hosts/i386sco.h: Define it. Thu Nov 11 15:16:28 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * bfd.c (struct _bfd): Add hppabsd_core_data. * targets.c (target_vector): Add hppabsd_core_vec. * hpux-core.c (hpux_core_core_file_p): Fail if an unknown core section is encountered during core section scanning. * hppabsd-core.c: New file. * config/hppabsd.mh: Enable HPPA BSD core files. * elf32-hppa.c (hppa_elf_reloc): Remove DEFUN crud. Remove code which is either commented out or ifdef'd out. Add, update and clean comments. Fix various indention and spacing problems. Handle problems related to using "ble" to jump to a stub rather than "bl" (%r31 is trashed by "ble", but not by "bl"). (NEW_INSTRUCTION): Put inside curly braces. (CURRENT_STUB_OFFSET): Fix indention problems. (hppa_elf_build_arg_reloc_stub): Fix indention and spacing problems. Add, update and clean comments. Handle "ble" %r31 lossage problems. (hppa_elf_build_long_branch_stub): Likewise. (hppa_look_for_stubs_in_section): Likewise. (hppa_elf_stub_check): Remove obsolete function. * hppa_stubs.h: Add new instructions to deal with %r31 lossage problems. Delete unused instructions. Tue Nov 9 11:40:27 1993 Stan Shebs (shebs@rtl.cygnus.com) * m68klynx.c (TARGET_IS_BIG_ENDIAN_P): Define. Tue Nov 9 11:26:05 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (elf_object_p): Rather than looking through an array of architectures, get the ELF EM_xxx code from the backend information. Let the generic ELF target match any EM_xxx code not matched by another ELF target. Call elf_backend_object_p to let the backend do more checks and set global information. * libelf.h (struct elf_backend_data): Added elf_machine_code and elf_backend_object_p fields. (struct bfd_elf_arch_map): Removed. (bfd_elf_arch_map, bfd_elf_arch_map_size): Don't declare. * elf32-target.h, elf64-target.h: Initialize elf_machine_code field with ELF_MACHINE_CODE. Initialize elf_backend_object_p field with elf_backend_object_p (if it is defined). * elf32-gen.c, elf32-hppa.c, elf32-i386.c, elf32-i860.c, elf32-m68k.c, elf32-m88k.c, elf32-mips.c, elf32-sparc.c, elf64-gen.c (ELF_MACHINE_CODE): Defined. * elf32-mips.c: Include ecoffswap.h to get ECOFF swapping routines. (mips_elf_object_p): Set the right machine number. (mips_elf_ecoff_debug_swap): Defined. (elf_backend_object_p): Defined to be mips_elf_object_p. (elf_backend_ecoff_debug_swap): Defined to be mips_elf_ecoff_debug_swap. * elf.c (bfd_elf_arch_map, bfd_elf_arch_map_size): Removed. * libbfd-in.h (target_vector, default_vector): Declare. * libbfd.h: Rebuilt. * format.c (target_vector, default_vector): Don't declare. * elf32-mips.c (elf_mips_howto_table): Don't complain on overflow for R_MIPS_26. Correct overflow detection requires matching the upper four bits of the destination against the PC. From Ted Lemon . * bout.c (b_out_reloc_type_lookup): Return type should point to const data. * coff-i960.c (coff_i960_reloc_type_lookup): Likewise. * elf32-hppa.c (elf_hppa_reloc_type_lookup): Likewise. * mipsbsd.c (MY(reloc_howto_type_lookup)): Likewise. * coff-i386.c (coff_i386_reloc): Made howto const. * oasys.c (oasys_write_data): Made how const. * libelf.h: Added some comments. (struct elf_backend_data): Added elf_backend_ecoff_debug_swap field. Removed unused write_relocs field. * elf32-target.h: Adjusted elf_backend_data initialization accordingly. * elf64-target.h: Corrected elf_backend_data initialization to fill in all fields and to set elf_64_p to 1. Mon Nov 8 18:13:14 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (bfd_section_from_shdr): Remove duplicate assignment to filepos in SHT_STRTAB case. (assign_file_position_for_section): Set BFD section filepos as well as ELF section sh_offset. * reloc.c: Use const instead of CONST. (bfd_perform_relocation): Make variable howto a const pointer. * bfd-in2.h, libbfd.h: Rebuilt. Mon Nov 8 12:19:15 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (realclean): Don't remove generated headers. Reverts change of 2 Jul 1993. Mon Nov 8 06:08:31 1993 D. V. Henkel-Wallace (gumby@cirdan.cygnus.com) * configure.bfd: make unixware equivalent to sysv4. * config/i386-nlm.mt: bring in elf config; make it the default. Sun Nov 7 20:21:38 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * libbfd.c (bfd_put_8): Add parens around reference to "val" argument. Fri Nov 5 21:45:09 1993 David J. Mackenzie (djm@thepub.cygnus.com) * hosts/i386mach3.h (HOST_SEGMENT_SIZE), i386mach3.c (SEGMENT_SIZE, TEXT_START_ADDR): Correct values (?). Fri Nov 5 15:17:57 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coffcode.h (coff_write_object_contents): Zero out internal_a. Fri Nov 5 10:41:07 1993 David J. Mackenzie (djm@thepub.cygnus.com) * aoutx.h, archive.c, archures.c, bfd.c, cache.c, coffcode.h, core.c, ctor.c, format.c, init.c, libbfd.c, opncls.c, reloc.c, section.c, syms.c, targets.c: Doc cleanup (spelling, punctuation, grammar, formatting). * bfd-in2.h, libbfd.h: Rebuild. Thu Nov 4 14:46:14 1993 John Gilmore (gnu@rtl.cygnus.com) * bfd-in.h (bfd_get_cacheable, bfd_set_cacheable): New accessors. * bfd.c, opncls.c: Improve comments on file descriptor cacheing. Thu Nov 4 08:54:30 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * From Pete Hoogenboom (hoogen@cs.utah.edu) * elf32-hppa.c (hppa_elf_get_section_contents): Fix logic error in last change. Always rebuild symbol extension section the first time though if output sections exist (fixes ld -r problems). Thu Nov 04 08:08:46 1993 Jeffrey Wheat (cassidy@cygnus.com) * Makefile.in: Add .PHONY for check and installcheck rules. Tue Nov 2 14:42:27 1993 Bill Cox (bill@tarkas.cygnus.com) * libbfd-in.h (artdata): Use long, not time_t for portability, at least to HPUX. File below is a derived file. Tue Nov 2 14:42:27 1993 Bill Cox (bill@tarkas.cygnus.com) * libbfd.h (artdata): Use long, not time_t for portability, at least to HPUX. Tue Nov 2 09:32:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config.bfd: Use bigmips for mips*-*-bsd*. Mon Nov 1 14:30:09 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (elf_slurp_reloca_table, elf_slurp_reloc_table): Handle symbol number of zero. * reloc.c (enum bfd_reloc_code_real): Added BFD_RELOC_MIPS_LITERAL, BFD_RELOC_MIPS_GOT16, BFD_RELOC_MIPS_CALL16, BFD_RELOC_MIPS_GPREL32. * bfd-in2.h: Rebuilt. * coff-mips.c (mips_bfd_reloc_type_lookup): Handle BFD_RELOC_MIPS_LITERAL. * elf32-mips.c (mips_reloc_map): Handle new relocs. (mips_elf_hi16_reloc, mips_elf_lo16_reloc): Rearrange _gp_disp checks slightly. * aout-target.h (MY_bfd_debug_info_start, MY_bfd_debug_info_end, MY_bfd_debug_info_accumulat [sic]): Remove unused definitions. (MY_bfd_get_relocated_section_contents, MY_bfd_relax_section, MY_bfd_seclet_link): Define. (MY_bfd_reloc_type_lookup): Rename from MY_reloc_howto_type_lookup. (MY_bfd_make_debug_symbol): Rename from MY_make_debug_symbol. (MY(vec)): Use JUMP_TABLE rather than listing functions. * hp300hpux.c (MY_get_symtab, MY_get_symtab_upper_bound, MY_canonicalize_reloc, MY_write_object_contents): Don't define in terms of MY, because that causes a recusive invocation of CAT when expanded within JUMP_TABLE, and ANSI compilers don't expand recursive macros. * mipsbsd.c (MY_bfd_reloc_type_lookup): Rename from MY_reloc_howto_type_lookup, and don't define in terms of MY. (MY_canonicalize_reloc): Don't define in terms of MY. (aout_mips_little_vec, aout_mips_big_vec): Use JUMP_TABLE rather than listing functions. Mon Nov 1 09:12:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config.bfd: Use m68k-elf for m68*-*-sysv4*. See file ChangeLog.1 Local Variables: mode: indented-text left-margin: 8 fill-column: 74 version-control: never End: gdb-4.13/bfd/ChangeLog.1 666 34562 1752 1013745 5474342156 13306 0ustar fnfcygnusSun Oct 31 09:35:49 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * targets.c: Move enum target_flavour outside of struct and change the name to enum bfd_flavour. This means bfd clients can use it. * bfd-in.h: Add macro bfd_get_flavour. * bfd-in2.h: Rebuilt. * som.c: Add comment about how abort() on corrupt executable is evil. Sat Oct 30 12:27:09 1993 David J. Mackenzie (djm@thepub.cygnus.com) * aoutx.h (aout,slurp_reloc_table): Avoid a goto. Fri Oct 29 16:04:33 1993 David J. Mackenzie (djm@thepub.cygnus.com) * gen-aout.c, libbfd.c: exit(1) instead of exit(-1). Fri Oct 29 13:17:21 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfd-in.h: Added commands for object file flag values. * bfd-in2.h: Rebuilt. * elfcode.h (elf_object_p): If type is ET_DYN, set DYNAMIC flag, not EXEC_P. * bout.c, coff-h8300.c, coff-sh.c: Add BFD_IS_RELAXABLE to object_flags field for target vector. * aix386-core.c, aout-adobe.c, aout-target.h, bout.c, coff-a29k.c, coff-alpha.c, coff-apollo.c, coff-h8300.c, coff-h8500.c, coff-i386.c, coff-i960.c, coff-m68k.c, coff-m88k.c, coff-mips.c, coff-rs6000.c, coff-sh.c, coff-we32k.c, coff-z8k.c, hpux-core.c, ieee.c, mipsbsd.c, nlm-target.h, oasys.c, osf-core.c, som.c, srec.c, tekhex.c, trad-core.c: Remove DYNAMIC from object_flags field for target vector. Thu Oct 28 20:02:31 1993 David J. Mackenzie (djm@thepub.cygnus.com) * hosts/std-host.h: Don't declare time; causes error on mach3. * configure.in (i386mach3_vec): Require aout32.o stab-syms.o. Thu Oct 28 16:33:26 1993 Stan Shebs (shebs@rtl.cygnus.com) LynxOS and Sparc LynxOS changes: * config.bfd: Recognize sparc-*-lynxos*. * configure.host: Recognize sparc-*-lynxos*. * configure.in: Recognize Sparc Lynx vectors. * targets.c (sparclynx_aout_vec): Declare. (sparclynx_coff_vec): Declare. (target_vector): Add them. * cf-i386lynx.c: New file, renamed from i386lynx-cf.c. * cf-m68klynx.c: New file, renamed from m68klynx-cf.c. * cf-sparclynx.c: New file, support for coff in Sparc LynxOS. * coff-sparc.c: New file, basic Sparc coff support. * sparclynx.c: New file, support for a.out in Sparc LynxOS. * Makefile.in: Change filenames appropriately, add Sparc rules. * coffcode.h (coff_set_arch_mach_hook): Recognize Sparc magic number. (coff_set_flags): Use LynxOS magic number for i386, m68k, and Sparc LynxOS, set Sparc magic number for Sparcs. * config/m68k-lynx.mt (SELECT_VECS): Remove redundant vector. * config/sparc-lynx.mt: New file. * hosts/i386lynx.h: Cosmetic improvements. * hosts/m68klynx.h: Add ifdefs, #define of cfree. * hosts/sparclynx.h: New file. Thu Oct 28 16:23:40 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) gcc -Wall lint: * coff-h8300.c (h8300_reloc16_estimate): Declare return type. Remove useless statement probably left by code copy. * cpu-i960.c (compatible): Fully bracket matrix initializer. * elf32-hppa.c (hppa_elf_build_arg_reloc_stub): Use bfd_xmalloc rather than xmalloc. Use realloc and check the return value rather than xrealloc. (hppa_elf_get_section_contents): Add some casts. * elf32-i386.c (elf_i386_reloc_type_lookup): Remove unused variable. Add default case to switch. * hp300hpux.c: Declare aout_32_write_syms. * i386bsd.c, i386linux.c, netbsd386.c (N_SHARED_LIB): Define as 0 (definition from aout/aout64.h is always 0 anyhow). * i386lynx.c (swap_std_reloc_in): Remove unused variable. * ieee.c (ieee_write_id): length can never be negative. (read_id): Likewise. (ieee_archive_p): Remove unused variable. * libcoff-in.h (bfd_perform_slip): Declare. * libcoff.h: Rebuilt. * oasys.c (oasys_write_sections): Remove zero initialization of static structure. * reloc16.c: Indentation change. Wed Oct 27 16:51:29 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in, config/i386-mach3.mt: Update for new configuration (--with-targets and so on). * hosts/i386mach3.h: Declare errno. * targets.c: Declare i386mach3_vec. Wed Oct 27 12:18:07 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * nlmcode.h (nlm_swap_auxiliary_headers_in, nlm_swap_auxiliary_headers_out): Handle sharedDebugRecordOffset and sharedDebugRecordCount fields. Tue Oct 26 16:21:12 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * targets.c (target_vector): Remove SCO_CORE. On Sep 11 1993, we started using trad-core.c for SCO instead. * targets.c (target_vector): Re-enable generic ELF and NLM targets. Tue Oct 26 16:53:12 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (assign_file_position_for_section): Align sh_offset to sh_addralign (this is what UnixWare does, and it shouldn't hurt). Tue Oct 26 10:16:54 1993 Ken Raeburn (raeburn@cygnus.com) From Jeff Law and Pete Hoogenboom at Utah: * elf32-hppa.h (hppa_elf_stub_finish): Add prototype. (ELF32_HPPA_R_ARG_RELOC): Renamed without the ELF32 prefix and moved into libhppa.h. All references changed. (ELF32_HPPA_R_CONSTANT, ELF32_HPPA_R_ADDEND): Likewise. (get_opcode and opcode defines): Move into libhppa.h * elf32-hppa.c (hppa_elf_insn2fmt): Rename and move info libhppa.h. * libhppa.h (HPPA_R_*): Moved here. Reformatted slightly to make for easier reading. (get_opcode): Moved here. FIXME! this really should be a C function inside the opcode library! (bfd_hppa_insn2fmt): Likewise. * targets.c (target_vector): Enable elf32-hppa vector. * elf32-hppa.c (hppa_elf_get_section_contents): Add new comments and clarify existing comments. Do not use DEFUN to declare this function. Fix numerous indention problems. Correctly handle cases where symbol extension section may need to be read from disk, read from memory, or built then read from memory. * elf32-hppa.h: Reformat with gnu-indent and hand fix numerous formatting and indention problems gnu-indent can not handle. Clarify some comments about relocation types. Comment basic relocation "classes". Group PARAM declarations together. (HPPA_SXT_{NULL, SYMNDX, RG_RELOC}): Make members of a new enumerated type rather than #defines. Tue Oct 26 02:40:46 1993 Stu Grossman (grossman at cygnus.com) * som.c (hppa_object_setup): Set SEC_CODE for .text section so that GDB can figure out text_start and text_end. Mon Oct 25 16:05:23 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Fix up warnings from gcc -Wall: * coffgen.c (coff_print_symbol): Use %lx and cast n_value to unsigned long. Use %ld for tagndx. Use %lx for offset + vma and cast it to unsigned long. * ecoff.c (ecoff_emit_aggregate): Use %ld. (ecoff_print_symbol): Use %ld, and cast indx and sym_base to long. * coffcode.h (dummy_reloc16_estimate): Specify return type. * libbfd.c (bfd_write): If not everything is written out, set bfd_error to system_call_error. If the return value is non-negative, set errno to ENOSPC (if ENOSPC is defined). (bfd_seek): If the seek fails, set bfd_error to system_call_error. (bfd_generic_set_section_contents): For a bad offset + count, set bfd_error to bad_value. * seclet.c (rel): Don't abort. Instead, return false. Mon Oct 25 09:59:37 1993 Ken Raeburn (raeburn@cygnus.com) * aoutx.h (reloc_type_lookup): Handle BFD_RELOC_SPARC_WDISP22. Fri Oct 22 20:35:54 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * config.bfd: handle mips*-* instead of mips-*, use mips*el instead of mips-*-*l Fri Oct 22 14:03:33 1993 Mark Eichin (eichin@cygnus.com) * m68k-lynx.mt, i386-lynx.mt (TDEFINES): set FPRINTF_ALREADY_DECLARED because the objdump.c declaration of fprintf collides with the native one. Fri Oct 22 11:50:25 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * targets.c (target_vector): Enable MIPS ELF vectors. Fri Oct 22 07:51:51 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config.bfd: Use bigmips for mips-sony-bsd*. * configure.host, config.bfd: Add * to end of all OS names. Thu Oct 21 12:16:26 1993 Ken Raeburn (raeburn@cygnus.com) * elfcode.h (FILE_ALIGN): Renamed from EALIGN, to avoid conflict with Ultrix header files. * som.h (struct som_section_data_struct): Renamed from som_section_data to avoid conflict with macro by that name. Changes from Jeff Law and Peter Hoogenboom at Utah: * elf32-hppa.c (hppa_elf_reloc): Target register for a 'jump in delay slot' optimization in combination with a long call stub should always be r31. * elf32-hppa.c: (hppa_elf_relocate_insn): To be consistent across all relocation types, retrieve instruction addends from the relocation entry rather than from the instruction itself. * elf32-hppa.c: (hppa_elf_relocate_insn): Fix a relocation error that only occurred when the addend of an 'addil' or 'ldil' was larger than 21 bits and very close to a 2K byte boundary. * elf32-hppa.c: (hppa_elf_reloc): Handle the optimization in which a jump is placed in the delay slot of a function call. The jump was being accomplished via an adjustment to the return pointer. This optimization would break the long call stub code, if there was any. * elf32-hppa.c: (hppa_elf_build_long_branch_stub): Corrections to long branch stubs to avoid use of general register 2. * hppa_stubs.h: New stub instructions. * elfcode.h: Declare bfd_elf_find_section. * som.h (som_section_data): Add new "subspace_index" field. * som.c (setup_sections): Save the original SOM subspace index in the BFD section associated with that subspace. (som_get_symtab_upper_bound): Implement. (som_get_symtab): Implement. (som_print_symbol): Implement. (som_slurp_string_table): New function to read a string table from a SOM object file. (som_section_from_subspace_index): New function to return the section which corresponds to a SOM subspace index. (som_slurp_symbol_table): New function to read the symbol table from a SOM object file. (som_make_empty_symbol): Check for errors from bfd_zalloc. (som_new_section_hook): Initialize subspace_index field to -1 instead of 0. * som.c (som_object_setup): Fix polarity of test to set HAS_RELOC. Set EXEC_P for executables. (setup_sections): Correctly identify when a section has relocations. (log2): New function. (setup_sections): Correctly convert between SOM alignments and BFD alignments. * som.c (setup_sections): Do not set SEC_ALLOC or SEC_LOAD for sections which correspond to SOM spaces, doing so confuses many utilities. Set assorted SEC_* flags for SOM subspaces which correspond to BFD sections. * elf32-hppa.c: (elf32_hppa_backend_fake_sections): The stab string table should have sh_type == SHT_STRTAB. Add processing to make it so. * elfcode.h: (bfd_section_from_shdr): String tables (other than .strtab) were not getting the file offsets recorded, so they could not be read from disk. * elfcode.h: (elf_make_sections): Leave the sh_addr field of the section header and the vma field of a section at 0 if the section is not part of the program execution image. (e.g., .stab) * som.[hc]: Change target vector prefix from "hppa" to "som". Consistently use obj_som prefix to access fields in backend data structures. Fix all callers/references. * som.h: Do not include files only needed for core file reading here. Include a.out for both HOST_HPPAHPUX and HOST_HPPABSD. Delete forward structure declarations, they are unnecessary. (struct somdata): Delete aux_hdr, and hp_symbol_entry_size fields. Change "symbols" to "symtab". Add "stringtab" and "reloc_filepos" fields for future use. Change obj_som_* macros as appropriate. (som_section_data): New structure to keep SOM specific information about BFD sections (for future use). * som.c: Provide PARAMS declarations for all functions currently in this file. (struct container): Delete unwanted structure definition. (som_object_setup): Add comments. Use som_mkobject to allocate SOM specific information in the BFD; use information from the file and (possibly empty) auxiliary headers to initialize this information. Delete redundant bfd_get_symcount (abfd) "calls". (setup_sections): Return type is now boolean, fix return statements. "Fix" handling of BSS like subspaces in the computation of the containing space's size. If the subspace has relocations, set the appropriate BFD section flags and record the index into and the size of the fixup stream. Always return a value. (som_object_p): Set bfd_error appropriately if errors are detected from bfd_{read,seek} functions. Handle EXECLIBMAGIC type files. Do not try to read a non-existant auxiliary header. (som_mkobject): Flesh out. (som_section_hook): Allocate space to hold SOM specific information about sections. Thu Oct 21 12:41:34 1993 Jim Kingdon (kingdon@lioth.cygnus.com) gcc -Wall lint: * coff-h8300.c, coffcode.h: Change shrink parameter in *_reloc16_estimate to unsigned to match prototype. * archive.c: Avoid "/*" in comment. Thu Oct 21 13:05:16 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * dep-in.sed: Create our own line breaks for a more aesthetic Makefile. * Makefile.in: Rebuilt dependencies. * elf32-mips.c: Include "seclet.h". (mips_elf_fake_sections): Force size of .reginfo section to sizeof Elf32_External_RegInfo. (mips_elf_seclet_link): New function. Link the .reginfo section specially, and pass everything else to the generic routine. (bfd_elf32_bfd_seclet_link): Define macro. * elf32-target.h: If bfd_elf32_bfd_seclet_link is already defined, don't override it. Wed Oct 20 12:22:37 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * libnlm.h (nlm_backend_data): Added signature field. (nlm_signature): New macro. * nlmcode.h (nlm_object_p, nlm_write_object_contents): Use the NLM signature from the backend rather than the constant NLM_SIGNATURE. * nlm32-i386.c (nlm32_i386_backend): Initialize signature field. * aoutf1.h (MACHTYPE_OK): Accept M_UNKNOWN. (NAME(sunos,set_arch_mach)): Treat M_UNKNOWN as 68000, not 68020. Wed Oct 20 10:28:27 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hosts/i386bsd.h [__bsdi__]: Define HOST_DATA_START_ADDR. Wed Oct 20 10:10:07 1993 Ken Raeburn (raeburn@cygnus.com) * Makefile.in (HFILES): New variable, for use in "make dep". (.dep): Depend on $(CFILES) and $(HFILES). Delete .dep1 and remake it, so that "$?" is complete. (.dep1): Don't need to remove .dep1 first. (dep.sed): Depend on config.status, not Makefile. (CFILES): Add nlm.c. Tue Oct 19 15:26:26 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-alpha.c: Implemented reloc handling for the linker, made various other related changes. * libecoff.h (ecoff_backend_data): Added rdata_in_text field. Renamed finish_reloc to adjust_reloc_in. Added adjust_reloc_out field. (ecoff_bfd_get_relocated_section_contents): Don't define. * ecoff.c (ecoff_sec_to_styp_flags, ecoff_styp_to_sec_flags): Handle .lita section. (ecoff_slurp_reloc_table): Handle RELOC_SECTION_FINI. finish_reloc backend field renamed to adjust_reloc_in. (ecoff_bfd_seclet_link): Adjust number of aux entries to debug_align boundary. (ecoff_compute_section_file_positions): If rdata_in_text put .rdata section in text segment, not data segment. Put .pdata section in text segment. (ecoff_write_object_contents): Likewise. Also, call adjust_reloc_out, and handle .lita, .xdata, .pdata, .fini and absolute sections when writing out relocs. * coffswap.h (coff_swap_aouthdr_out): For ALPHAECOFF, output 2 for bldrev field, as on Alpha OSF/1. Padding field is now 2 bytes. * coff-mips.c (mips_ecoff_swap_reloc_out): Added assertion. (mips_adjust_reloc_in): Renamed from mips_finish_reloc. (mips_adjust_reloc_out): New function (does nothing). (mips_ecoff_backend_data): Initialize new fields. (ecoff_bfd_get_relocation_section_contents): Define to be bfd_generic_get_relocated_section_contents. * reloc.c (bfd_perform_relocation): Added casts to avoid Alpha OSF/1 cc bug. Thu Oct 14 01:10:35 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * reloc.c (bfd_perform_relocation): Add comments attempting to explain PC relative relocations. * coffcode.h (styp_to_sec_flags): Don't set SEC_DEBUGGING until it is made to work. (coff_compute_section_file_positions): Remove check for USE_DISCARDED_SECTIONS_COUNT. * coff-i386.c: Don't define USE_DISCARDED_SECTIONS_COUNT. Basing it on host defines is wrong. * ecoff.c (ecoff_bfd_seclet_link): Don't link a .reginfo section. (ecoff_write_object_contents): Don't require the .reginfo section to be a particular size. Wed Oct 13 18:39:03 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * Makefile.in (dep-in): New rule, for editing dependencies into Makefile.in in $(srcdir). Use move-if-change. (.dep1, dep): Use move-if-change. (CFILES): Add coff-apollo.c. Sun Oct 10 18:02:56 1993 Troy Rollo (troy@cbme.unsw.EDU.AU) * Makefile.in: Recognise new file, coff-apollo.o * coff-apollo.c: New file * coffcode.h: Recognise apollo magic numbers and writable text * coffswap.h: Swap Apollo optional header entries * config.bfd: Add line for Apollo * configure.host: Replace apollo68b and apollo68v with Apollo * configure.in: Recognise apollocoff_vec * targets.c: Likewise * config/apollo.mh, config/apollo.mt: New files * hosts/apollo68.h: Remove inclusion of strings.h Wed Oct 13 14:28:17 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * coff-i386.c (i3coff_object_p): Now static. * Makefile.in: Updated dependencies. (.dep, .dep1, dep.sed): New targets, to make "make dep" work better. * dep-in.sed: New file. * m68klynx-cf.c (ONLY_DECLARE_RELOCS): Define, to avoid name conflicts when "--with-targets=all". * coff-m68k.c (m68kcoff_howto_table, m68k_rtype2howto, m68k_howto2rtype): Rename via macros to keep namespace clean. * configure.in: For m68klynx_coff_vec, include coff-m68k.o for now. Tue Oct 12 17:03:27 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elf32-mips.c: Extensive additions to do relocations and to handle MIPS specific sections. * libelf.h (elf_backend_data): Pass fourth argument to elf_backend_section_from_bfd_section to permit it to control the section index to use. (elf_obj_tdata): Add gp and gp_size fields. (elf_gp, elf_gp_size): New accessor macros. * elfcode.h: Removed a number of unused local variables. (elf_fake_sections): Clear section header before calling elf_backend_fake_sections, not after. (prep_headers): Return true at end. (elf_section_from_bfd_section): Pass retval argument to elf_backend_section_from_bfd_section. * elf32-hppa.c (elf32_hppa_backend_section_from_bfd_section): Accept and ignore new retval argument. * bfd.c: Include libelf.h. (bfd_set_gp_size): Handle ELF targets. * Makefile.in (bfd.o): Depends upon libelf.h. (elf32-mips.o): Depends upon $(INCDIR)/elf/mips.h. Mon Oct 11 17:25:18 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c (ecoff_mkobject): Check bfd_make_section return value. (ecoff_mkobject_hook): New function. (ecoff_new_section_hook, ecoff_sizeof_headers, ecoff_compute_section_file_positions, ecoff_set_section_contents, ecoff_write_object_contents): Handle dummy REGINFO section. (ecoff_get_section_contents): New function to handle reading REGINFO section. * libecoff.h (ecoff_get_section_contents): Change from macro definition to function prototype. (ecoff_mkobject_hook): New prototype. * coff-alpha.c (alpha_ecoff_mkobject_hook): Removed. (alpha_ecoff_backend_data): Use ecoff_mkobject_hook. * coff-mips.c (mips_ecoff_mkobject_hook): Removed. (mips_ecoff_backend_data): Use ecoff_mkobject_hook. Fri Oct 8 15:25:33 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * libbfd.c (bfd_get*32, bfd_get*64): Prevent ANSI sign extension by casting the most significant byte to bfd_vma. Fri Oct 8 02:34:21 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * configure.in: Do not define SELECT_VECS, SELECT_ARCHITECTURES if configuring --with-targets=all. Thu Oct 7 17:34:07 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * aoutx.h (howto_table_std): Correct the "size" field in some entries. * reloc.c (reloc_howto_type): Change documentation to dispel any notion that the "size" field is a power-of-two indicator. Thu Oct 7 10:50:38 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * coffswap.h: (bfd_swap_reloc_in): a symndx is signed. Make support for relaxing more generic. * reloc16.c: Add new target entry - bfd_coff_reloc16_estimate, fix bit rot. * libcoff.h, libcoff-in.h: declarations. Prototypes * coffcode.h (bfd_coff_std_swap_table): Add calls to coff_reloc_16_extra_cases and coff_reloc16_estimate. (dummy_reloc16_estimate): New function. * coff-h8300.c (h8300_reloc16_estimate): New function Thu Oct 7 14:24:13 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elfcode.h (EALIGN): Define, dependent on ARCH_SIZE. (align_file_position): New function. (elf_locate_sh): Disabled function deleted. (assign_file_positions_for_symtab_and_strtabs): Align position, then place symtab, then do other sections. (map_program_segments): Align program header. (assign_file_positions_except_relocs): Align section headers. (assign_file_positions_for_relocs): Align relocation sections. Tue Oct 5 10:44:32 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.host: Recognize hppa*-*-hiux* (currently synonym for hpux). Change other hppa entries to use -*- not -hp-. * config.bfd: Recognize hppa*-*-hiux* (currently synonym for hpux). * coff-rs6000.c, cpu-rs6000.c, rs6000-core.c: Change non-ASCII characters in comment to octal escapes. Sun Oct 3 12:35:15 1993 Stan Shebs (shebs@rtl.cygnus.com) * coff-i386lynx.c: Removed, name too long. * i386lynx-cf.c: New file, was coff-i386lynx.c. * configure.in: Reflect file name changes. * Makefile.in: Mention Lynx-related files. * i386lynx.c (lynx_32_swap_ext_reloc_in): get reloc bits in i386 Lynx-specific way. * m68klynx-cf.c: New file, defines coff format for M68K LynxOS. * m68klynx.c: Remove coff vector definition, now in m68klynx-cf.c. * coffcode.h (sec_to_styp_flags): Set section flag to STYP_INFO for .stab, .stabstr and .debug sections, and set SEC_DEBUGGING for sections of type STYP_INFO. (from Minh Tran-Le) (coff_compute_section_file_positions): Add discarded_sections_count to abfd->section_count, which helps `strip' keep the size of the executable header constant. * coff-i386.c (discarded_sections_count): New variable, initialized to zero. For use by `strip'. Currently being used only in aix386 coff, but may be useful for other coff systems. (from Minh Tran-Le) * coffswap.h (coff_swap_filehdr_out): Added a missing cast. * archive.c: Cosmetic improvements. * opncls.c: Cosmetic improvements. (new_bfd): Removed redundant structure slot init. Sat Oct 2 18:48:17 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/news-mips.mh, hosts/news-mips.h: New files. * configure.host: Use news-mips for mips-sony-bsd*. Fri Oct 1 13:14:17 1993 Stan Shebs (shebs@rtl.cygnus.com) * configure.in: i386lynx_coff_vec requires coff-i386lynx.o. * coff-i386lynx.c: New file, defines Lynx target vector and name, includes coff-i386.c. * coff-i386.c (i386coff_vec): Allow redefinition of target vector symbol and name, if TARGET_SYM and/or TARGET_NAME are defined. * i386lynx.c: Remove coff vector definition entirely. (lynx_32_swap_ext_reloc_in): Define. (lynx_32_swap_std_reloc_in): Define, get reloc bits in i386 Lynx-specific way. (lynx_32_swap_ext_reloc_out): Define. (lynx_32_swap_std_reloc_out): Define. (lynx_32_slurp_reloc_table): Define, call Lynx swapping fns. (lynx_32_squirt_out_relocs): Define, call Lynx swapping fns. (lynx_32_canonicalize_reloc): Define, call Lynx swapping fns. (WRITE_HEADERS): Define, call Lynx swapping fns. * config/i386-lynx.mt (SELECT_VECS): Remove redundant vector. Thu Sep 30 17:50:52 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * reloc.c (bfd_reloc_code_type): Add linkage-table relative relocations of size 8, 16, 32. Sort generic relocs by type rather than size. Added a little documentation too. * aoutx.h (howto_table_std): Add BASE16 and BASE32 relocs. (TABLE_SIZE): New macro. (reloc_type_lookup): Handle BFD_RELOC_{16,32}_BASEREL for std relocs. (swap_std_reloc_out): Write baserel relocs correctly. (swap_std_reloc_in): Handle r_baserel field. Assert that r_jmptable and r_relative fields are clear, and that the computed index does refer to a defined entry of the howto table. Tue Sep 28 14:47:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * section.c (bfd_make_section_anyway): New function. * section.c: Change comments to say several sections can have the same name. * bfd-in2.h: Re-generate to reflect above change. * coffgen.c (make_a_section_from_file): Call bfd_make_section_anyway if still no section after the bfd_coff_make_section_hook. * coffcode.h: Add comment about TWO_DATA_SECS. Tue Sep 28 03:22:24 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * ecoff.c (ecoff_slurp_symbolic_info): Always determine raw_size explicitly. * ecoff.c (ecoff_sec_to_styp_flags, ecoff_styp_to_sec_flags): Handle .fini section. Mon Sep 27 18:29:18 1993 Stan Shebs (shebs@rtl.cygnus.com) * config.bfd configure.host: Match on *-lynxos* for LynxOS, add m68*-*-lynxos*. * configure.in : Replaced i386lynx_vec with i386lynx_aout_vec and i386lynx_coff_vec. Added m68klynx_aout_vec and m68klynx_coff_vec. * targets.c (target_vector): Removed i386lynx_vec, added {i386,m68k}lynx_{aout,coff}_vec. * i386lynx.c: Added copy of i386coff.c, renamed bfd target to i386lynx_coff_vec. * m68klynx.c: New file. * config/i386-lynx.mt: Replaced i386lynx_vec with i386lynx_aout_vec and i386lynx_coff_vec. * config/m68k-lynx.mt: New file. * hosts/i386lynx.h: Added definition of cfree as free (from Eichin). * hosts/m68klynx.h: New file. Mon Sep 27 18:00:41 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * archive.c: Define offsetof here. * hosts/*.h: Don't define it here. Mon Sep 27 19:09:27 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (bfd_section_from_shdr): Set filepos for SHT_STRTAB section. Fri Sep 24 15:47:40 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hpux-core.c: Add comment about hpux version 7. Fri Sep 24 16:50:26 1993 Stu Grossman (grossman at cygnus.com) * lynx-core.c (lynx_core_file_p): Change per-thread register section names from .regXXX to .reg/XXX to avoid parsing ambiguity in gdb/corelow.c. Create alias .reg section for the currently running thread. Fri Sep 24 13:22:32 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * libecoff.h (ecoff_backend_data): Removed big_magic and little_magic fields. * coff-alpha.c (alpha_ecoff_backend_data): Removed initialization of big_magic and little_magic. * coff-mips.c (mips_ecoff_bad_format_hook): Make sure magic number matches endianess of bfd. (mips_ecoff_backend_data): Removed initialization of big_magic and little_magic. * ecoff.c (ecoff_set_arch_mach_hook): Set MIPS machine number based on magic number. Support r4000 magic numbers. (ecoff_get_magic): New function. (ecoff_write_object_contents): Use ecoff_get_magic, not fields in the backend structure. * cpu-mips.c (arch_info_struct): Added case for r6000. For MIPS configurations put both big and little endian versions in the list of targets; the code is getting compiled in anyhow. * bigmips.mt (SELECT_VECS): Define to be ecoff_little_vec. * decstation.mt (SELECT_VECS): Define to be ecoff_big_vec. * mipsbelf.mt (SELECT_VECS): Define to be bfd_elf32_littlemips_vec. * mipslelf.mt (SELECT_VECS): Define to be bfd_elf32_bitmips_vec. * riscos.mt (SELECT_VECS): Define to be ecoff_little_vec. Fri Sep 24 00:42:23 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * osf-core.c: New file for OSF/1 core file support. * config/alphaosf.mh (HDEFINES): Add -DOSF_CORE. (HDEPFILES): Set to osf-core.o. * bfd-in2.h (union tdata): Add osf_core_data member. * targets.c: If OSF_CORE is defined, add osf_core_vec to target list. * Makefile.in (OPTIONAL_BACKENDS): Add osf-core.o. (osf-core.o): New dependency. Thu Sep 23 21:04:53 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * TODO: Remove note about making --with-bfd-targets use canonical target configuration name (already done); reword item about separating reading and writing stuff to not refer to a non-existent item. * ecoff.h (ecoff_set_arch_mach_hook): Accept MIPS_MAGIC_LITTLE2 and MIPS_MAGIC_BIG2. Thu Sep 23 11:06:34 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * gen-aout.c (main): Output newline after end of comment, not before. (Reported by Jonathan Stone, jonathan@oscar.stanford.edu). Thu Sep 23 10:48:27 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * archive.c (compute_and_write_armap): Put weak symbols in the armap. * elfcode.h (fix_up_strtabs): Set sh_entsize for the .stab section, not the .stabstr section. Set the type of the .stabstr section to SHT_STRTAB. (elf_section_from_bfd_section): Handle SHT_STRTAB sections. * section.c (SEC_DEBUGGING): New section flag. * elfcode.h (bfd_section_from_shdr): If section is SHT_PROGBITS, and the name starts with .debug, .line or .stab, set SEC_DEBUGGING. If SHT_STRTAB, check for .debug and .stab. * elf32-target.h (TARGET_BIG_SYM, TARGET_LITTLE_SYM): Added SEC_DEBUGGING to section_flags. * elf64-target.h (TARGET_BIG_SYM, TARGET_LITTLE_SYM): Added SEC_DEBUGGING and SEC_CODE to section_flags. * bfd-in2.h: Updated. Wed Sep 22 16:34:14 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfd.c (tdata): Add lynx_core_data. * ecoff.c (ecoff_compute_section_file_positions): Set filepos for sections with SEC_LOAD set, even if SEC_HAS_CONTENTS is clear. (ecoff_write_object_contents): Don't set scnptr to zero just because size of section is zero. Needed for Irix 4.0.5F. Wed Sep 22 09:49:32 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config.bfd: Use i960-bout, not i960-coff for i960-*-nindy*. Wed Sep 22 07:34:09 1993 Stu Grossman (grossman at cygnus.com) * Makefile.in (OPTIONAL_BACKENDS): Add lynx-core.o. * bfd-in2.h (tdata): Add lynx_core_data; * config.bfd configure.host: Get rid of superfluous netbsd and lynxos entries. * configure.in: Add lynx-core.o to Lynx config. * i386lynx.c: Add defs for core file support. * lynx-core.c: New file with Lynx core file support. * hosts/i386lynx.h: Move lots of host specific includes to here. Add def of HOST_LYNX. Remove unnecessary defs. Mon Sep 20 19:18:10 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (bfd_section_from_shdr): Only set SEC_DATA for a SHF_PROGBITS or SHT_STRTAB section if SEC_ALLOC is set. Never set SEC_DATA for a SHF_NOBITS section. * nlm32-i386.c (nlm_i386_mangle_relocs): Check SEC_LOAD rather than SEC_CODE | SEC_DATA. Add some casts to avoid warnings. * nlmcode.h: Add some casts to avoid warnings. (nlm_write_object_contents): Ignore relocs for sections that are neither code nor data. Just use the symbol value for debugging symbols; don't offset by the section vma. Fri Sep 17 18:08:55 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * reloc.c (bfd_perform_relocation): Don't return an error when performing a reloc against an undefined weak symbol. * syms.c (bfd_print_symbol_vandf): Show value of BSF_WEAK rather than obsolete BSF_EXPORT. Fri Sep 17 02:04:31 1993 John Gilmore (gnu@cygnus.com) * hosts/{alphaosf.h, amix.h, apollo68.h, apollov68.h, decstation.h, delta88.h, dgux.h, dose.h, go32.h, harris.h, hp300.h, hp300bsd.h, hppabsd.h, hppahpux.h, i386aix.h, i386bsd.h, i386linux.h, i386lynx.h, i386v.h, i386v4.h, irix3.h, irix4.h, mipsbsd.h, ncr3000.h, rs6000.h, rtbsd.h, solaris2.h, sparc-ll.h, std-host.h, stratus.h, sun3.h, sysv4.h, tahoe.h, ultra3.h, vaxult.h, vaxult2.h, we32k.h}: Make sure that "offsetof" is defined on all hosts, now that archive.c uses it. Thu Sep 16 18:20:30 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elfcode.h (elf_map_symbols): Create section symbols for all sections, not just allocated sections; debugging sections can have relocs. (elf_symbol_from_bfd_symbol): If there is an output section, use the section index from that rather than the input section. Thu Sep 16 12:20:50 1993 Ken Raeburn (raeburn@cygnus.com) * libbfd-in.h (bfd_flush, bfd_stat): Reflect John's changes to libbfd.h, which is regenerated from this file. * bfd-in.h (symtype): Deleted typedef. Wed Sep 15 11:48:37 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * libbfd.c (COERCExx): Cast x to bfd_signed_vma before doing the xor and subtract. Otherwise it will not sign extend if the type of bfd_vma is larger than int. * ecoffswap.h (ecoff_swap_pdr_in): Get regoffset, iopt, fregoffset and frameoffset as signed numbers. From Peter Schauer. Tue Sep 14 18:20:36 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elf32-i386.c (elf_howto_table): Add bfd_elf_generic_reloc special function for all reloc entries. * elf32-target.h (TARGET_LITTLE_SYM): Add SEC_CODE to section_flags. * libelf.h (elf_symbol_type): Remove desc, type and other fields. * Makefile.in (elf32-*.o): These depend upon elf32-target.h. Tue Sep 14 14:34:45 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * libbfd-in.h (struct artdata): Add armap_timestamp and armap_datepos here too. Mon Sep 13 21:03:18 1993 John Gilmore (gnu@cacophony.cygnus.com) Improve timestamp support in BSD archive files to avoid linker warnings. * libbfd.h (struct artdata): Add armap_timestamp and armap_datepos. (bfd_flush, bfd_stat): Add prototypes. * libbfd.c (bfd_flush): Add, does fflush on a BFD. (bfd_stat): Add, does fstat on a BFD. * archive.c (_bfd_write_archive_contents): At end of file writing, verify and possibly update the timestamp in the armap, if a BSD archive. FIXME! Kludge recognizes BSD archive, rather than vectoring properly. Should add to xvec. (compute_and_write_armap): Move prototype to top, avoid PROTO. (bsd_write_armap): Save timestamp and file location thereof, when writing the armap in a BSD file. (bsd_update_armap_timestamp): New function to check and rewrite the timestamp. * hosts/std-host.h (offsetof): Define, if not already, for archive.c. Sat Sep 11 18:13:42 1993 Jim Kingdon (kingdon@poseidon.cygnus.com) * hosts/i386sco.h: Define a bunch of stuff for core files. * sco-core.c: Remove, replace by trad-core.c. * trad-core.c: If HOST_STACK_START_ADDR is defined, use it. * config/i386sco.mh: Use trad-core not sco-core. * hosts/i386isc.h, config/i386isc.mh: Remove. * configure.host: Use i386sco for isc. * config/i386-sco.mt: Remove, identical to i386-coff.mt. * config.bfd: Use i386-coff not i386-sco. * config.bfd: Recognize i[34]86-*-solaris2* specifically rather than using *-*-solaris2* (i486-unknown-solaris2 is i386-elf, not i486-elf which doesn't exist). Fri Sep 10 12:56:36 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coffswap.h (coff_swap_aouthdr_out): For ALPHAECOFF, force padding field to zero. * config.bfd (i[34]86-*-netbsd*): New target; use i386-netbsd. * configure.in: Remove bogus netbsd386 handling. * coff-mips.c: Don't warn about overflow for MIPS_R_JMPADDR reloc. Correct overflow detection requires matching the upper four bits of the destination against the PC. Thu Sep 9 16:57:46 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * configure.in: Make 64-bit stuff work with "--with-targets=all". Tue Sep 7 14:17:02 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * libbfd-in.h: Removed swapping routines declarations. * bfd-in.h: Added swapping routine declarations, and renamed them from _do_* to bfd_*. * libbfd.c: Renamed swapping routines from _do_* to _bfd_*. * Changed all callers. * libbfd.h, bfd-in2.h: Rebuilt. Mon Sep 6 15:28:07 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * elf32-i386.c (elf_howto_table): Set pcrel_offset to true for R_386_PC32. Fri Sep 3 13:06:12 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * configure.in: Reorganized setting of makefile variables so 64-bit stuff works again. * libbfd-in.h (_do_get*, _do_put*): Renamed via macros to clean up namespace. * libelf.h (elf32_symbol_type, elf64_symbol_type): Deleted "native_elf_sym" field, merged to make new type "elf_symbol_type". (struct elf_obj_tdata): Field symbols is now elf_symbol_type*. Deleted field raw_syms. (obj_symbols): Remove cast. (obj_raw_syms): Deleted. * elfcode.h (elf_slurp_symbol_table): Don't set raw_syms or native_elf_sym fields. * elf32-hppa.c: Changed uses of elf32_symbol_type to elf_symbol_type. From Pete Hoogenboom and Jeff Law: * elf32-hppa.c (ELF_MAXPAGESIZE): Define. * elf32-hppa.c (elf_hppa_tc_symbol): If the argument relocation bits are zero (e.g., they specify no relocations), then do not even bother adding their entries to the symextn section. * elf32-hppa.c (elf_hppa_tc_symbol): Any function, regardless of scope can have an argument relocation stub. * elf32-hppa.c: (Elf32_hppa_Stub_description): Rename this structure and type to elf32_hppa_stub_description. This makes it consistent with the GNU coding conventions. (elf32_hppa_stub_description): Added a 'next' field to allow linking of stub description structures. (elf32_hppa_stub_description): Added a 'stub_listP' field to keep track of individual stubs. (Elf32_hppa_Stub_list, Elf32_hppa_Stub_list_struct): Removed. Combined with the elf32_hppa_stub_description structure. (elf32_hppa_stub_name_list): New type to keep track of individual stubs. (add_stub): Removed. (add_stub_by_name): New function. (find_stub_by_name): New function. (hppa_elf_build_arg_reloc_stub): Allow reusing stubs that already exist. (hppa_elf_build_long_branch_stub): Allow reusing stubs that already exist. * elf32-hppa.c: (retval_mismatches): The direction of argument relocation was reversed. (hppa_elf_build_arg_reloc_stub): Return address was not being restored. (hppa_elf_arg_reloc_needed_p): Add argument containing caller argument relocation bits so this function can be used in the check for plabel stubs. (hppa_elf_stub_check): Pass caller argument relocation bits into hppa_elf_arg_reloc_needed_p(). (hppa_look_for_stubs_in_section): Add check for plabel stubs and pass caller argument relocation bits into hppa_elf_arg_reloc_needed_p(). Thu Sep 2 00:59:55 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * libhppa.h (hppa_field_adjust): Remove unused `init_value' variable. * hosts/delta88v4.h: New for SVR4. * configure.hosts: Use it. Wed Sep 1 14:23:32 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * libaout.h, netbsd386.c: Change M_I386 to M_386_NETBSD. M_I386 is an SCO pre-define. Tue Aug 31 12:50:19 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * nlmcode.h (nlm_object_p): Set HAS_SYMS if there are external references. (nlm_swap_auxiliary_headers_{in,out}): The copyright length is only one byte. (nlm_get_symtab_upper_bound): Include debugging symbols in symbol count. (nlm_slurp_symbol_table): Make symlength unsigned. Read debugging symbols as BFD local symbols. (nlm_write_object_contents): Don't bother writing out exported symbols more than once; they now appear in the symbol table more than once (with and without a prefix) if necessary. Set offset values to be non-zero as NLMLINK does. Tue Aug 31 12:07:43 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * libhppa.h: Restore #undefs of e_fsel and other e_* symbols. Fri Aug 27 16:43:35 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * section.c (struct sec): Move position of user_set_vma, and document it. (SEC_BALIGN): Disable for now. I don't think it's currently used. * elf32-hppa.c (elf_hppa_howto_table): Now static. (symext_rootP, symext_lastP, global_value, GOT_value, global_symbol, global_sym_defined, symextn_contents, symextn_contents_real_size, elf_hppa_stub_rootP, elf32_hppa_symextn_map, elf32_hppa_symextn_map_size): Rely on default initialization. (hppa_elf_gen_reloc_type): Macro "UNDEFINED" doesn't need a trailing semicolon. (hppa_look_for_stubs_in_section): Introduce temporaries to make code more readable in 80 columns. * libhppa.h (all functions): Now inline under GNU C. More patches from Jeff Law: * elf32-hppa.c (AR_WARN): Give argument which caused the invalid argument relocation. (AR_UNIMP): Delete unused macro. (hppa_elf_set_section_contents): Always return a value. (elf32_hppa_backend_table_processing): Likewise. (elf32_hppa_backend_section_processing: Likewise. * som.c: New file containing SOM specific code extracted from hppa.c * som.h: New file containing SOM specific code extracted from libhppa.h * hppa.c: Deleted. * libhppa.h: Delete SOM specific code. Add generic PA code which can be shared by both SOM and ELF backends. * Makefile.in: Replace hppa.c with som.c. elf32-hppa.o depends on libhppa.h now. * configure.in (hppa_vec): Needs som.o module instead of hppa.o. * elf32-hppa.c: Include libhppa.h. Do not define BYTES_IN_WORD. * elf32-hppa.h (hppa_reloc_field_selector_type): Delete now lives in libhppa.h. (hppa_reloc_field_selector_type_alt): Likewise. * hosts/hppabsd.h: Include and . Do not define malloc or free. * config/hppa-elf.mt (SELECT_ARCHITECTURES): Don't define SELECT_VECS. * elf32-hppa.c (hppa_elf_relocate_unwind_table): Delete unused variables. (elf_hppa_reloc_type_lookup): Likewise. (elf_hppa_tc_make_sections): Likewise. (hppa_elf_arg_reloc_needed_p): Likewise. (hppa_elf_build_long_branch_stub): Likewise. (elf_reloc_map): Delete, no longer used. (elf_hppa_reloc_map): Likewise. (elf32_hppa_symextn_map_max_size): Likewise. (elf32_hppa_get_sym_extn): Abort if type is bogus. * elf32-hppa.c (elf32_hppa_backend_fake_sections): Add processing of the .hppa_unwind section. Wed Aug 25 16:13:49 1993 K. Richard Pixley (rich@sendai.cygnus.com) * config.bfd: recognize m88110. Tue Aug 24 16:32:35 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) Merged changes from Jeff Law and Pete Hoogenboom at Utah: * elfcode.h (elf_section_from_bfd_section): Add detection of SHT_NOTE sections. * elf32-hppa.c: (hppa_elf_build_long_branch_stub,hppa_elf_long_branch_needed_p): New functions for support of long branch stubs. (hppa_elf_stub_check,hppa_look_for_stubs_in_section): Add check for long branch stubs. (hppa_look_for_stubs): Unused function. Removed. (hppa_elf_set_section_contents): Implement a PA/ELF-specific version of bfd_set_section_contents. (hppa_elf_long_branch_needed_p): Only output debugging diagnostics when BFD is configured for debugging. * elf32-hppa.c: (elf32_hppa_get_symextn_chain): New function to return a list of symbols that have non-zero argument relocation bits. (hppa_elf_stub_finish): Make sure stub generation is done only once. * elf32-hppa.c: (hppa_elf_stub_reloc): New function for generation relocation entries within a stub. (hppa_elf_build_arg_reloc_stub): Corrections to argument relocation stubs. * elf32-hppa.c: New #define's for argument relocation types. (mismatches, retval_mismatches): Updated to reflect new argument relocation types. (CURRENT_STUB_OFFSET): New macro. * elfcode.h (map_program_segments): Set the PF_X bit for data segments. * elf32-hppa.c: (elf_hppa_howto_table): Add R_HPPA_STUB_CALL_17 for support of linker stub generation. (hppa_elf_reloc): Add support of R_HPPA_STUB_CALL_17 relocation type. * elf32-hppa.h: (elf32_hppa_reloc_type): Add R_HPPA_STUB_CALL_17 for support of linker stub generation. * hppa_stubs.h: Add new instructions that are used in linker stub generation. * elf32-hppa.c (hppa_elf_relocate_unwind_table): The offsets in an unwind descriptor were incorrect. * libelf.h (bfd_elf_find_section): Declare. * elf32-hppa.c: (elf32_hppa_backend_symbol_processing): New function in place of global_sym field in elf_backend_data structure. (elf32_hppa_backend_symbol_table_processing, elf32_hppa_backend_section_processing, elf32_hppa_backend_fake_sections, elf32_hppa_backend_section_from_shdr, elf32_hppa_backend_section_from_bfd_section): New functions to provide support of symbol extension sections and argument relocation stubs. (elf_info_to_howto): Remove call to abort(). * elf32-target.h: Support for special processing by the backend. (struct elf_backend_data): Added elf_backend_symbol_processing, elf_backend_symbol_table_processing, elf_backend_section_processing, elf_backend_section_from_shdr, elf_backend_fake_sections, and elf_backend_section_from_bfd_section fields. * elfcode.h: (bfd_section_from_shdr): Add a check for processor-specific section types. (elf_fake_sections): Add a check for processor-specific section types. (bfd_elf32_write_object_contents): Add a check to see if there is any final section processing to be done by the backend. (elf_section_from_bfd_section): Add a check for processor-specific section types. (elf_slurp_symbol_table): Remove reference to global_sym in the elf_backend_data structure. Replace it with a call to elf_backend_symbol_processing. * libelf.h: Remove global_sym field in the elf_backend_data structure. Replace it with a series of backend-specific functions. * elf32-hppa.c (hppa_elf_stub_branch_reloc): The formal argument stub_sym should be called target_sym. (hppa_elf_build_arg_reloc_stub): Refer to the stub bfd (abfd) rather than the output bfd (output_bfd). (hppa_elf_reloc): Get rid of references to the global_sym field in the elf_backend_data structure. * elfcode.h (elf_fake_sections): Check the correct condition for .bss. Also, detect the existence of a .note section. * elf32-hppa.c (hppa_elf_relocate_insn): r_format argument should have been r_field. * hosts/hppabsd.h (HOST_MACHINE_ARCH): Reference to bfd_arch_m68k should be a reference to bfd_arch_hppa. * hppa.c (hppa_vec): Replace bfd_false with _bfd_dummy_target in the bfd_check_format structure to avoid a type mismatch. Mon Aug 23 1993 Sean Fagan (sef@cygnus.com) and Jim Kingdon (kingdon@cygnus.com) Add NetBSD support: * netbsd386.c: New file. * aoutx.h: Make sym_is_debugger_info true for N_FN. * Makefile.in, aout-target.h, config.bfd, configure.host, configure.in, libaout.h, targets.c: Other changes. Fri Aug 20 17:04:59 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/m88k-elf.mt: New file. * config.bfd: Use it for m88*-*-sysv4*. Fri Aug 20 15:16:58 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elfcode.h (elf_build_phdrs): Unused function deleted. (bfd_shdr_from_section): Ditto. (write_relocs): Don't change section contents for addend. (elf_locate_sh): Return type is now always elf_internal_shdr, since the other types were really aliases for this type anyways. Don't compile this function, since it is static and doesn't appear to be used in this file. (sym_is_global): Return non-zero for weak symbols. Abort if section pointer is null. (swap_out_syms): Reorder tests so function symbols can be weak. (elf_slurp_symbol_table): Don't use BSF_EXPORT. (elf_slurp_reloca_table): Make RELOC_PROCESSING section smaller by extracting out some common code. Abort if BFD section symbol has null name. (elf_slurp_reloc_table): Translate ELF section symbols into BFD section symbols. Don't read section contents to fill in addend field. * elf32-i386.c (elf_howto_table): All partial_inplace fields should be "true". * Merged from OSF: Tue Jun 15 14:38:32 1993 Michael Meissner (meissner@osf.org) * libelf.h (struct Elf_Sym_Extra): New structure to contain ELF specific information for a symbol. Put in elf_sym_num, which gives the external symbol number in the elf object file, since local symbols must come before global symbols. (elf_sym_extra): New macro. (elf_symtab_map): Delete, in favor of using Elf_Sym_Extra. * elfcode.h (elf_map_symbols): Use Elf_Sym_Extra to map internal symbol number to external number. Store the address of the Elf_Sym_Extra field for the symbol in the udata field. (elf_write_object_contents): Use Elf_Sym_Extra to map out symbols. Sun Jun 20 16:30:11 1993 Michael Meissner (meissner@osf.org) * elfcode.h (elf_obj_tdata): Add field to count the size of the array of pointers to section symbols. (elf_map_symbols): Bump the max index of the section symbols so that we don't overwrite memory. Store the max index into the elf_obj_tdata field. Sat Jun 19 10:12:27 1993 Michael Meissner (meissner@osf.org) * elfcode.h (elf_obj_tdata): Add pointer to an array of pointers to the section symbols we created. Remove unused field internal_syms. (elf_map_symbols): Fill in array of pointers to section symbols. Only create section symbols for sections that have SEC_ALLOC set, and have non-zero size. (elf_symbol_from_bfd_symbol): If udata is NULL, and this is a section symbol, look up the section in the list of section symbols, and set the udata pointer appropriately. Otherwise, if udata is still NULL, fail an assertion, and use 0, instead of dropping core. Fri Aug 20 12:18:05 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * config.bfd (mips-*-elfl*, mips-*-elf*): New targets, using mipslelf and mipsbelf respectively. * config/mipslelf.mt, config/mipsbelf.mt: New files. * elf32-mips.c: Added some reloc information. * configure.in: Fixed error message. * ecoff.c (ECOFF_LONG_SIZE): Removed. Just use constants. Thu Aug 19 09:45:51 1993 David J. Mackenzie (djm@thepub.cygnus.com) * Makefile.in (BFD_LIBS, ALL_MACHINES, BFD32_BACKENDS, BFD64_BACKENDS, OPTIONAL_BACKENDS): Alphabetize entries and add a few missing ones. * archures.c: Alphabetize decls. * configure.in, targets.c: Add missing vectors to the tables. * targets.c (target_vector) [!SELECT_VECS]: Add DEFAULT_VECTOR. Remove hp300bsd_vec due to clash with sunos_big_vec. Tue Aug 17 18:12:32 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hosts/i386{mach3,osf1mk}.h: New files, for Mach hosting. * hosts/i386mach.h: removed, replaced by i386osf1mk.h. * config/i386mach3.mt, i386mach3.c: New files, for Mach a.out format. * Makefile.in, configure.host, config.bfd: Corresponding changes. * hosts/decstation.h: Include not . Tue Aug 17 15:19:41 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coffgen.c (coff_section_symbol): If section's output_section is not yet set, point to itself. This is needed because this is called on the output file, not the input file. * coff-rs6000.c (dummy_reloc, RTYPE2HOWTO): Set howto field to a dummy value, rather than leaving it NULL. * archures.c (bfd_default_set_arch_mach): Set bfd_error on failure. * aoutx.h (NAME(aout,set_arch_mach)): Check return value of bfd_default_set_arch_mach. Tue Aug 17 09:42:16 1993 David J. Mackenzie (djm@thepub.cygnus.com) * config.bfd (cpu): Extract from canonical name with sed. * configure.in: Don't pass it. Sun Aug 15 20:45:45 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * bfd-in.h: Remove {BYTE,WORD,LONG}_SIZE; they are pointless and BYTE_SIZE conflicts with a Mach header. * ecoff.c: Change LONG_SIZE to ECOFF_LONG_SIZE and define it. * configure.host: Make sure all OS fields end in *. Fri Aug 13 16:33:33 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c (ecoff_slurp_reloc_table): Use bfd_abs_section for RELOC_SECTION_NONE and RELOC_SECTION_ABS. If a reloc section doesn't exist, don't try to create it. * nlmcode.h (nlm_write_object_contents): procedure offsets are from start of code segment, not start of file. * config/i386-nlm.mt (DEFAULT_VECTOR): It's nlm32_i386_vec, not bfd_nlm32_i386_vec. * configure.in (SELECT_VECS switch): Likewise. Thu Aug 12 10:32:47 1993 David J. Mackenzie (djm@thepub.cygnus.com) * format.c (bfd_check_format): If the target matches the default target, set match_count to 1, to ignore any previous matches. * Makefile.in (BFD32_BACKENDS): Remove srec.o, add reloc16.o. * configure.in: Add reloc16.o when we add coff-h8300.o, coff-h8500.o, coff-sh.o, coff-z8k.o. Makefile.in (BFD_LIBS): Remove reloc16.o. * config/u68k-coff.mt: Fix typo, DEFAULT_TARGET for DEFAULT_VECTOR. * config/h8300-coff.mt, h8500-coff.mt, sh-coff.mt, st2000.mt, z8k-coff.mt (DEFAULT_VECTOR): Define. Don't explicitly add S-records via SELECT_VECS. * targets.c (target_vector), Makefile.in (BFD_LIBS): Always support S-records, for convenience. Thu Aug 12 08:30:05 1993 Ian Lance Taylor (ian@cygnus.com) * coff-alpha.c (alpha_howto_table, alpha_finish_reloc, alpha_ecoff_swap_reloc_{in,out}, alpha_bfd_reloc_type_lookup): Read and write Alpha relocs. Can't process them yet. * ecoff.c (ecoff_slurp_reloc_table): Recognize new reloc sections. If the section does not already exist, create it. * ecoffswap.h (ecoff_swap_pdr_{in,out}): Handle new fields defined on the Alpha. * libecoff.h (ecoff_backend_data): Added constructor_reloc and finish_reloc fields. * ecoff.c: Move MIPS reloc support from here... * coff-mips.c: to here. * ecoff.c (ecoff_set_symbol_info): Get constructor reloc howto from backend. (ecoff_slurp_reloc_table): Removed MIPS specific stuff. Call finish_reloc backend function. (ecoff_write_object_contents): Removed MIPS specific assertions. * coff-mips.c (mips_finish_reloc): New function. (mips_ecoff_backend_data): Fill in new fields. * coff-alpha.c (alpha_ecoff_backend_data): Use NULL for new fields. * targets.c: Added extern for ecoffalpha_little_vec. * bfd.c (_bfd_host_big_endian): Removed. * bfd-in.h (HOST_BYTE_ORDER_BIG_P, bfd_header_twiddle_required): Removed. * bfd-in2.h: Regenerated. Wed Aug 11 12:11:23 1993 David J. Mackenzie (djm@thepub.cygnus.com) * config.bfd: New file, broken out of configure.in. * configure.in: Use it, and use standard target names for --with-targets, replacing --with-bfd-targets. * archures.c (archures_init_table): Add bfd_sh_arch. * configure.in: Include coff-m68k.o for m68kcoffun_vec. Include nlm32.o and nlm.o for bfd_nlm32_i386_vec. Fix error in error message. * oasys.c: Make bfd_error_vector extern. * configure.in: Include stab-syms.o for a.out/b.out targets and hp300{bsd,hpux}. Wed Aug 11 06:40:51 1993 Ian Lance Taylor (ian@cygnus.com) * nlmcode.h (nlm_compute_section_file_positions): Add the .bss section before setting output_has_begun. (nlm_set_section_contents): Remove argument names from mangle_relocs_func prototype. (nlm_write_object_contents): Remove shadowing local variable. Don't write out debugging symbols if debugInfoOffset is -1. Add the codeImageOffset to the start, exit, and check procedure offsets. * nlm32-i386.c (nlm_i386_write_reloc, nlm_i386_mangle_relocs): Don't check partial_inplace field; its value is irrelevant. * Base use of sco-core on host, not target. * configure.host (i[34]86-*-sco*): Use i386sco rather than i386v. * config/i386-sco.mt (TDEFINES): Removed. * config/i386sco.mh: New file to use sco-core. * hosts/i386sco.h: New file; just includes hosts/i386v.h. * ecoffswap.h (ecoff_swap_{hdr,ext}_{in,out}): Use signed conversions for some fields. Tue Aug 10 13:32:23 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c (ecoff_gprel_reloc): If _gp is not defined, give an error rather than aborting. * libnlm.h (struct nlm_backend_data): Added mach field. (nlm_machine): New accessor macro. * nlm.c (nlm_mkobject): Set architecture and machine from backend information. * nlm32-i386.c (nlm32_i386_backend): Initialize new mach field. Tue Aug 10 09:31:18 1993 David J. Mackenzie (djm@thepub.cygnus.com) * configure.in: Replace calls to sort with shell code to uniq the lists. Tue Aug 10 06:23:16 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * configure.in: Include aout32.o for any a.out/b.out formats. Mon Aug 9 09:37:18 1993 David J. Mackenzie (djm@thepub.cygnus.com) * config/i386-linux.mt (SELECT_VECS): Support bfd_elf32_i386_vec. * config/m68k-elf.mt (SELECT_VECS): Support m68kcoff_vec. * config/i386-elf.mt (SELECT_VECS): Support i386coff_vec. * config/hppa-elf.mt (SELECT_VECS): Support hppa_vec. * config/sparc-elf.mt (SELECT_VECS): Support sunos_big_vec. * config/i386-sco.mt (SELECT_VECS): Don't define; Ian says it was just a hack. Mon Aug 9 13:15:00 1993 K. Richard Pixley (rich@sendai.cygnus.com) * config/m88k-coff.mt (DEFAULT_VEC -> DEFAULT_VECTOR): renamed. Mon Aug 9 14:26:45 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * syms.c (BSF_EXPORT): Now same as BSF_GLOBAL. * bfd.c (bfd_scan_vma): New function. Mon Aug 9 11:29:53 1993 Ian Lance Taylor (ian@cygnus.com) * bfd-in.h (bfd_get_architecture, bfd_get_machine): Removed obsolete macros. * bfd-in2.h: Updated. * ecoff.c (ecoff_slurp_armap): Correct bug in initialization of stringbase. Sun Aug 8 12:21:13 1993 David J. Mackenzie (djm@thepub.cygnus.com) * configure.in: Remove unneeded test. Sun Aug 8 12:41:22 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in ({dist,real}clean): Use $(MAKE), not make. Sat Aug 7 09:14:21 1993 David J. Mackenzie (djm@thepub.cygnus.com) * config/st2000.mt (TDEFINES): Don't define MRI; not used. * PORTING, TODO, config/README: Update to reflect below changes. * configure.in: Replace MINIMIZE and --with-minimal-bfd with --with-bfd-targets="target1,target2,..." and the special target "all" to get the previous default behavior. Figure out which architecture and backend .o files are needed from DEFAULT_VECTOR, SELECT_VECS, and SELECT_ARCHITECTURES as set in the .mt files. Define TDEFAULTS based on them, also. * Makefile.in: Remove references to MINIMIZE. * archures.c, targets.c: Ditto. * config/*.mt: Define DEFAULT_VECTOR, SELECT_VECS, and SELECT_ARCHITECTURES as variables rather than as -D arguments to TDEFAULTS. * config/a29k-coff.mt,alphaosf.mt, i386-sco.mt, i960-bout.mt, i960-coff.mt (TDEFAULTS): Don't put the default vector in SELECT_VECS manually; it's automatic now. * config/i386-sco.mt (TDEFAULTS): Don't put &sco_core_vec in SELECT_VECS manually; -DSCO_CORE does it automatically now. * config/h8300-coff.mt,h8500-coff.mt,sh-coff.mt,st2000.mt,z8k-coff.mt (TDEFAULTS): Don't define BFD; not used. * config/hppaosf.mh (HDEFINES): Don't define SELECT_ARCHITECTURES; this is a host, not a target. Sat Aug 7 05:28:03 1993 Fred Fish (fnf@deneb.cygnus.com) * elfcode.h (elf_object_p): Add comment about what this function does and to watch out for side effects. Add FIXME for memory leaks. Fix comment about checking for matching byte order. Preserve pointer to old tdata (if any), and restore it if we don't match file with target vector. If we are going to use goto's, use them consistently and maintainably. * nlmcode.h (nlm_object_p): Expand comments about leaked memory to note that the problem is even more serious than just leaked memory. Replace goto with more traditional return. Fri Aug 6 12:00:03 1993 David J. Mackenzie (djm@thepub.cygnus.com) Fix incorrect or useless makefile variable definitions: * config/news.mt, config/u68k-coff.mt (TDEFAULTS): Use this to define DEFAULT_VECTOR, instead of TDEFINES. * config/i386aix.mh (MINIMIZE): Don't define. * config/hppaosf.mh (MINIMIZE): Don't conditionalize. * config/rs6000.mh (ALLOCA), * config/i386v.mh (ALLOCA), * config/i386linux.mh (ALLOCA), * config/i386isc.mh (ALLOCA), * config/go32.mh (EXTRALIBS): Don't define; not used. * config/solaris2.mh (HDEFINES): Renamed from H_DEFINES. * config/alphaosf.mt (TDEFINES): Set it, not HDEFINES. * config/z8k-coff.mt (CC): Don't define. It's a target, not a host. * config/.Sanitize (Things-to-keep): Add README. * config/README: New file, explaining the variables. * targets.c (target_vector): Add hp300_bsd_vec. * Makefile.in (BFD32_BACKENDS, CFILES): Add hp300bsd. (hp300bsd.o): New rule. Fri Aug 6 15:13:22 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * libelf.h (NAME): Provide a default definition, that's neither for 32 bits nor for 64. Tue Jun 15 14:38:32 1993 Michael Meissner (meissner@osf.org) * libelf.h (elf_hash): Change declaration to bfd_elf_hash, since that is what is in elf.c. Fri Aug 6 12:28:38 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.c (ecoff_set_symbol_info): Removed special handling for scBss and scSBss symbols, since it was wrong. * Makefile.in (coff-mips.o, coff-alpha.o): Don't depend on coffcode.h. * coffcode.h (sec_to_styp_flags): Inspired by mb@tti.COM (Michael Bloom): Only set STYP_BSS for SEC_ALLOC sections. * ecoff.c (ecoff_slurp_armap): From Arne Henrik Juul : Handle a COFF style armap. Fri Aug 6 09:59:45 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hpux-core.c: Cast return value from bfd_zalloc. Thu Aug 5 13:22:44 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * aoutx.h (log2): Delete i387-specific code. * Makefile.in (BFD_LIBS): Always include elf.o. (BFD32_BACKENDS): Don't include elf.o here. (ofiles): Delete references to ofiles2 and ofiles3. (do_clean): Delete ofiles. (BFDIN_H): Changed references to $(srcdir)/bfd-in2.h. (stmp-bfd.h): Use bfd.h-new as temporary name, not bfd.h2. (headers): Use bfd-in2.h-new as temporary name, not bfd.h-new. * bfd-in.h: Reworded comment to make it clear that bfd-in2.h is a generated file. * reloc.c (enum bfd_reloc_code_real): Added i386-elf reloc types (from Meissner's additions to bfd-in2.h). * elf32-i386.c (ELF_MAXPAGESIZE): Define. Merged: Wed Jun 23 06:05:58 1993 Michael Meissner (meissner@osf.org) * elfcode.h (elf_write_object_contents): Don't drop core if elf_symbol_from returns a NULL pointer when processing a non-elf symbol, use a 0 size instead. Tue Jun 15 14:38:32 1993 Michael Meissner (meissner@osf.org) * elfcode.h (elf_hash): Delete macro mapping elf_hash to bfd_elf32_hash, since the hash table is independent of the 32/64 bit system. * libelf.h (elf_hash): Change declaration to bfd_elf_hash, since that is what is in elf.c. Sat Jun 19 10:12:27 1993 Michael Meissner (meissner@osf.org) * elf32-i386.h (reloc_type): Reformat spacing. (elf_howto_table): Add the rest of the 386/ELF relocations. (elf_i386_reloc_type_lookup): Ditto. (elf_i386_info_to_howto): Ditto. (elf_i386_info_to_howto_rel): Ditto. Thu Aug 5 10:07:43 1993 Fred Fish (fnf@cygnus.com) * nlmcode.h (nlm_get_reloc_upper_bound): Test return value of nlm_slurp_symbol_table as boolean, not pointer. * nlmcode.h (nlm_canonicalize_reloc): Test return value of nlm_slurp_reloc_fixups as boolean, not pointer. Wed Aug 4 16:22:55 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * config/go32.mh: remove HDEFINES; since __MSDOS__ and __GO32__ are now predefined by GCC Wed Aug 4 16:06:29 1993 David J. Mackenzie (djm@thepub.cygnus.com) * coffgen.c (coff_print_symbol): Add the section offset to the line number address, so it's printed the same way as the function address. Only showed up for line numbers that aren't in the first section (.text). Wed Aug 4 08:33:55 1993 Ian Lance Taylor (ian@cygnus.com) * libnlm.h (nlm_backend_data): Added nlm_mangle_relocs. (nlm_mangle_relocs_func): New macro. * nlm32-i386.c (nlm_i386_write_reloc): Rewrote correctly. (nlm_i386_mangle_relocs): New function. * nlmcode.h (nlm_compute_section_file_positions): Move all common symbols into the .bss section. (nlm_set_section_contents): Call the mangle_relocs function. (nlm_write_object_contents): Treat a reloc against any defined symbol as an internal reloc. Fix bug in external reloc counting. Get the offset and debugging type right for .bss symbols. Only output debugging symbols for defined symbols. * coff-h8500.c (rtype2howto): Do an fprintf to stderr rather than using printf. * coff-z8k.c (rtype2howto): Likewise. * coffcode.h (dummy_reloc16_extra_cases): Likewise. * elf32-i386.c (TRACE): Likewise. * hp300hpux.c (convert_sym_type, swap_std_reloc_in): Likewise. * rs6000-core.c (rs6000coff_get_section_contents): Likewise. * coffgen.c (coff_print_symbol): Do an fprintf to the file argument rather than using printf. Tue Aug 3 18:17:25 1993 Ian Lance Taylor (ian@cygnus.com) * coffswap.h: Added macros used when accessing several fields; default is the same as before. (coff_swap_aouthdr_{in,out}): Handle the Alpha ECOFF fields. * coff-alpha.c: Defined macros to use the right sizes in coffswap.h. * libecoff.h: Backend information is now in target vector, not BFD. Start of backend information is COFF backend information. * coff-alpha.c, coff-mips.c: Changed accordingly. * ecoff.c (ecoff_mkobject): New function. (ARMAP_START): Changed into backend information, since Alpha uses a different name. (ecoff_slurp_armap): Don't overlay archive header. * bfd.c: Include libcoff.h. Tue Aug 3 16:33:11 1993 David J. Mackenzie (djm@thepub.cygnus.com) * Makefile.in (install): Fix sh syntax error. * aoutf1.h: Make bfd_error_trap extern; it's defined in bfd.c. Tue Aug 3 15:19:09 1993 Fred Fish (fnf@deneb.cygnus.com) * nlm_slurp_symbol_table: Don't use '&' on arrays. Tue Aug 3 11:06:28 1993 Ian Lance Taylor (ian@cygnus.com) * ecoff.c: New file for generic ECOFF functions. * ecoffswap.h: New file for ECOFF swapping functions which differ only slightly for different targets. * libecoff.h: Added prototypes for ecoff.c functions. (ecoff_backend_data): New structure. (ecoff_tdata): Added backend_data field. Changed external data pointers to be PTR rather than to a particular struct. (ecoff_symbol_struct): Moved in from coff-mips.c. * coff-alpha.c, coff-mips.c: Moved common functions into ecoff.c. Added ECOFF backend structures. Include ecoffswap.h. * coff-msym.c: Removed; superseded by ecoffswap.h. * bfd.c: Include coff/internal.h. * Makefile.in (BFD_LIBS): Removed coff-mips.o and coff-msym.o. Added ecoff.o. (BFD64_BACKENDS): Added coff-alpha.o. (CFILES): Removed coff-msym.c. Added ecoff.c. (bfd.o): Added dependency on $(INCDIR)/coff/sym.h. (coff-mips.o): Added dependency on ecoffswap.h and coff/ecoff.h. (ecoff.o, coff-alpha.o): New targets. (coff-msym.o): Removed target. Mon Aug 2 23:33:38 1993 John Gilmore (gnu@cygnus.com) * elf32-hppa.h, hosts/*: Remove (one more time) all occurrances of EXFUN in the BFD sources. Heave ho! Mon Aug 2 16:45:57 1993 Stu Grossman (grossman at cygnus.com) * coffcode.h (coff_set_arch_mach_hook): Add check for I386LYNXMAGIC. Mon Aug 2 12:18:03 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * hosts/sun3.h: remove some more conflicting decls Mon Aug 2 11:48:23 1993 Stu Grossman (grossman at cygnus.com) * i386lynx.c: Remove unnecessary def of N_HEADER_IN_TEXT, redefine TEXT_START_ADDR to be 0. Sun Aug 1 22:54:08 1993 Stu Grossman (grossman at cygnus.com) * configure.host, configure.in, hosts/i386lynx.h: Lynx/386 host and target info. Fri Jul 30 18:08:27 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * nlm32-i386.c: New file. First cut at i386 NLM code. * libnlm.h: Added some more prototypes. (struct nlm_relent): New structure. (nlmNAME(symbol_type)): Added rcnt and relocs fields. (struct nlm_obj_tdata): Added new fields: nlm_symbols, nlm_text_low, nlm_data_low, nlm_reloc_fixups, nlm_reloc_fixup_secs. (struct nlm_backend_data): New structure, with accessor macros. * nlmcode.h: Use NLM_HIBIT rather than MSB. (nlm_object_p): Set SEC_RELOC for .text and .data. Don't set SEC_DATA for .bss. Set HAS_RELOC and HAS_SYMS for abfd. Set the architecture. (nlm_swap_fixed_header_out, nlm_swap_variable_header_out, find_nonzero, nlm_swap_auxiliary_headers_out): New outbound swapping functions. (nlm_get_symtab_upper_bound, nlm_slurp_symbol_table): Include external references in symbol table as undefined symbols. (nlm_get_symtab, nlm_slurp_symbol_table): Fill in alocation argument in get_symtab rather than in slurp_symbol_table. (nlm_slurp_symbol_table): Save symbol information in tdata. (nlm_print_symbol): New function. (nlm_slurp_reloc_fixups, nlm_get_reloc_upper_bound, nlm_canonicalize_reloc): New functions to read relocs. (nlm_compute_section_file_positions, nlm_set_section_contents, nlm_external_reloc_compare, nlm_write_object_contents): New functions to create NLM files. * nlm-target.h: Define all the nlm functions here either as default values or in terms of nlmNAME. Use JUMP_TABLE(nlm). Set the backend_data field to TARGET_BACKEND_DATA. * nlm32-gen.c, nlm64-gen.c: Don't define function macros here; they are now in nlm-target.h. (TARGET_BACKEND_DATA): Define as NULL. * nlm.c (nlm_mkobject): Do allocate the tdata field. (nlm_set_arch_mach): New function. * targets.c: Added nlm32_i386_vec. * Makefile.in (BFD32_BACKENDS): Added nlm32-i386.o. (CFILES): Added nlm32-i386.c. (nlm32-gen.o, nlm64-gen.o): Depend on nlm-target.h. (nlm32-i386.o): New target. Thu Jul 29 20:20:39 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * hosts/sun3.h: remove some function decls that conflict w/ ANSI C, and aren't needed anyway (return int) Wed Jul 28 15:46:38 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elfcode.h: Use casts with bfd_alloc and alloca. Tue Jul 27 12:51:43 1993 Fred Fish (fnf@deneb.cygnus.com) * nlm{32,64}-gen.c (JUMP_TABLE_PREFIX): Delete. * nlm{32,64}-gen.c (JUMP_TABLE_INIT): New macro that works with older cpp's, that don't do additional replacement on the JUMP_TABLE macro's argument. * nlm-target.h (JUMP_TABLE_INIT): Use new macro in place of JUMP_TABLE macro. Mon Jul 26 17:39:01 1993 Jim Kingdon (kingdon@lioth.cygnus.com) Yet another trad-core variant: * config/esix.mh, hosts/esix.h: New files. * configure.hosts: Use them. Mon Jul 26 13:22:15 1993 Ian Lance Taylor (ian@cygnus.com) * reloc.c (bfd_perform_relocation): Handle the case of complain_overflow_bitfield, rightshift > bitpos, and a negative number. Mon Jul 26 14:40:10 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elfcode.h: Reimplement segment writing. (elf_write_phdrs): Use precomputed e_phoff rather than making assumptions. (elf_build_phdrs): Disabled, for now. (assign_file_position_for_section): Don't change file offset for SHT_NOBITS. (assign_file_positions_for_symtab_and_strtabs): New function. (struct seg_info): New type. (map_program_segments): New function. (assign_file_positions_except_relocs): For executables, leave section headers &c for last, and properly align all sections with flag SHF_ALLOC set. (prep_headers): No longer abort when EXEC_P is set. (write_shdrs_and_ehdr): Deleted all code relating to program segments. * elfcode.h (various): Deleted some unused code, and debugging "malloc(0)" calls. (write_relocs): Cache value of last symbol looked up, to save time if the symbol is referred to repeatedly. (elf_fake_sections): Check only SEC_RELOC flag, not number of relocs. (assign_section_numbers): Likewise. * Makefile.in (ofiles): Stars in wildcards belong outside quotes. * libelf.h (struct elf_backend_data): New field, maxpagesize. (struct elf_obj_tdata): New field, phdr. * elf32-target.h (elf32_bed): Initialize maxpagesize from ELF_MAXPAGESIZE. (ELF_MAXPAGESIZE): Default to 1. * elf64-target.h (elf64_bed, ELF_MAXPAGESIZE): Likewise. * elf32-sparc.c (ELF_MAXPAGESIZE): Define. (elf_sparc_howto_table): All relocs should have pcrel_offset=true. Most should have length field of `2'. * reloc.c (bfd_perform_relocation): Handle 64-bit relocs. * config/sparc-aout.mt (TARGET_BACKENDS): Define. Mon Jul 26 08:56:16 1993 Ian Lance Taylor (ian@cygnus.com) * configure.in: Don't look in ${srcdir} for ${target_makefile_frag}; the top level script has already adjusted for it. Mon Jul 26 08:09:19 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * srec.c (srec_write_symbols): Get CR LF in the right order. Mon Jul 26 02:08:41 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hosts/vaxbsd.h: Include std-host.h. Don't include . Sat Jul 24 16:13:01 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * reloc.c (bfd_perform_relocation): Handle case of rightshift != bitpos when overflow checking. Fri Jul 23 10:20:27 1993 Doug Evans (dje@canuck.cygnus.com) * bfd.c (bfd_nonrepresentable_section, bfd_undefined_symbol, bfd_reloc_value_truncated, bfd_reloc_is_dangerous, bfd_assert): Send error messages to stderr. Thu Jul 22 15:57:29 1993 Fred Fish (fnf@deneb.cygnus.com) * nlm{32,64}-target.h: Remove. * nlm-target.h: New file, merged from nlm{32,64}-target.h * libnlm.h (NLM_ARCH_SIZE): Define to ARCH_SIZE. * nlm.c (ARCH_SIZE): Remove define to zero. * nlm32-gen.c (ARCH_SIZE): Define to 32. * nlm32-gen.c (JUMP_TABLE_PREFIX): Define to nlm32. * nlm{32,64}-gen.c (nlm-target.h): Include. * targets.c, libnlm.h, nlm.c, nlm{32,64}-gen.c, nlm{32,64}.c, nlmcode.h: Convert prefixes from bfd_nlm to just nlm, and use macros select size. Thu Jul 22 15:40:14 1993 K. Richard Pixley (rich@sendai.cygnus.com) * Makefile.in (Makefile): add configure.in, drop redundant $(srcdir), drop redundant ./ Thu Jul 22 13:34:57 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * hpux-core.c: New file; backend for HP/UX style core files. * bfd.c (struct _bfd): Renamed hppa_core_data field to hpux_core_data. * bfd-in2.h: Updated. * hppa.c (make_bfd_asection, hppa_core_file_p, hppa_core_file_failing_command, hppa_core_file_failing_signal, hppa_core_file_matches_executable_p): Moved into hpux-core.c. Removed from target vector. * libhppa.h (struct hppa_core_struct and accessor macros): Moved into hpux-core.c. * targets.c: If HPUX_CORE is defined, add hpux_core_vec to target list. * config/hp300.mh (HDEFINES): Set to -DHPUX_CORE. (HDEPFILES): Set to hpux-core.o. * config/hppabsd.mh, config/hppahpux.mh: Likewise. * hosts/hp300.h (HOST_HP300HPUX): Define. * Makefile.in (OPTIONAL_BACKENDS): Added sco-core.o, aix386-core.o, hpux-core.o. (sco-core.o, aix386-core.o, hpux-core.o): New dependencies. * reloc.c (enum complain_overflow): New enumeration with the various flavours of overflow checking. (srtuct reloc_howto_struct): Changed complain_on_overflow field from boolean to emum complain_overflow. Removed obsolete absolute field. (HOWTO): Removed absolute argument. (bfd_perform_relocation): Do overflow checking on all types of fields. * bfd-in2.h: Updated accordingly. * all targets: Updated initialization of reloc howto tables. Wed Jul 21 20:34:34 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * opncls.c (bfd_create): Don't use C++ keyword "template" as a C variable name. Tue Jul 20 15:02:23 1993 Fred Fish (fnf@deneb.cygnus.com) * coff-m68k.c (m68k_howto2rtype): Make arg CONST to match callers. * elfcode.h: Fix several illegal pointer combination warnings for usages of bfd_alloc and alloca. * libnlm.h (nlm_obj_tdata): Rename hidden struct members to avoid apparent Sun C preprocessor recursion. Fix access macros. * nlmcode.h: Remove spurious '&' before several array references. Tue Jul 20 14:36:27 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * Rename for DOS uniqueness: coff-m68k-un.c -> coff-u68k.c config/m68k-coffun.mt -> u68k-coff.mt. * Makefile.in, configure.in: Corresponding changes. Tue Jul 20 16:21:52 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elf32-sparc.c (elf_sparc_howto_table): Don't use "&" before function name; it's valid without, and some compilers give warnings with it there. Tue Jul 20 08:21:15 1993 Fred Fish (fnf@deneb.cygnus.com) * bfd-in.h: Apply some of the changes that were made to bfd-in2.h. * bfd.c (union tdata): Add nlm_obj_data; * targets.c (enum target_flavour): Add bfd_target_nlm_flavour. Mon Jul 19 20:46:18 1993 Fred Fish (fnf@deneb.cygnus.com) * configure.in (*-*-netware, i[34]86-*-netware): New configs. * Makefile.in (BFD32_BACKENDS): Add nlm.o, nlm32.o, nlm32-gen.o. * Makefile.in (BFD64_BACKENDS): Add nlm64.o, nlm64-gen.o. * Makefile.in (CFILES): Add nlm{32,64}.c, nlm{32,64}-gen.c. * Makefile.in (nlm.o, nlm{32,64}.o, nlm{32,64}-gen.o: New targets. * bfd-in2.h (INLINE): Defines moved here. * {aoutx.h, elf.c, elfcode.h}: Move INLINE defines to bfd-in2.h. * libelf.h (CAT4): Move define to bfd-in2.h. * bfd-in2.h (CAT4): Merge CAT4 macro with other CAT macros. * bfd-in2.h (union tdata): Add nlm_obj_data. * bfd-in2.h (enum target_flavour): Add bfd_target_nlm_flavour. * targets.c (bfd_nlm{32,64}_{big,little}_vec): Add prototypes. * targets.c (target_vector): Add bfd_nlm{32,64}_{big,little}_vec. * (libnlm.h, nlm.c, nlmcode.h, nlm{32,64}-gen.c, nlm{32,64}-target.h, nlm{32,64}.c, config/i386-nlm.mt): New files for NLM support. Mon Jul 19 15:09:01 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * configure.{hosts,in}: add i[34]86-*-lynxos* support Mon Jul 19 14:53:30 1993 Ken Raeburn (raeburn@rtl.cygnus.com) * elf.c, elfcode.h, libelf.h: Serious reorganization. Deleted `thunk' structure, merged into tdata, duplicate data eliminated. Rearranged functions, grouping by functionality. Broke up many functions in elfcode.h, re-ordered many parts of file writing to handle unpredictable state of section relocation table as provided by various applications. Still needs cleanup: Merge functions back together, split out data structure with only data that is used only when writing out object file. * elf.c (bfd_elf_generic_reloc): New function, taken from coff-mips.c. * elf32-sparc.c (elf_sparc_howto_table): Use it, to work around bfd_perform_relocation lossage. * Makefile.in (BFD_LIBS): Include coff-mips.o and coff-msym.o, so that gdb will link. (ofiles): Don't use sort or uniq; do it with sh constructs. Sun Jul 18 19:42:14 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * coffcode.h: Recognize I386PTXMAGIC. * aoutf1.h, libaout.h: Add M_386_DYNIX. * trad-core.c (TRAD_CORE_USER_OFFSET, TRAD_CORE_STACK_FILEPOS): New macros; use it if defined. * config/symmetry.mh, hosts/symmetry.h: New files. Fri Jul 16 14:56:31 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * Rename elf{32,64}-generic.c to *-gen.c for 14 char filenames. * Makefile.in: Change accordingly. (CFILES): Add elf64-gen.c. Fri Jul 16 09:53:23 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c: Use MIPS_AOUT_{OZ}MAGIC rather than {OZ}MAGIC. Thu Jul 15 16:02:07 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-m88k.c (howto_table): Corrected bitsize for R_PCR26L from 16 to 26. Wed Jul 14 15:29:56 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hppa.c [HOST_HPPABSD]: Use hpux-style core files. * libhppa.h [HOST_HPPABSD]: Include hpux version of core.h Wed Jul 14 09:30:48 1993 Doug Evans (dje@canuck.cygnus.com) * configure.in: Recognize h8300h-*-*. Tue Jul 13 12:03:00 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * coff-h8500.c (reloc_processing, rtype2howto): New relocation type R_H8500_HIGH_16. * coff-sh.c (r_imm32): Get the width of the reloc right. Tue Jul 13 16:48:56 1993 Frederic Pierresteguy (F.Pierresteguy@frcl.bull.fr) * configure.in: Add new target m68k-coffun to the dpx/2. * config/m68k-coffun.mt: New file, renamed from config/dpx2.mt. Mon Jul 12 10:42:49 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * reloc.c (enum bfd_reloc_code_real): Move SPARC_BASE13 reloc into sparc-aout-specific list. * libelf.h (struct elf_obj_tdata): Add field `thunk'. * config/sparc-elf.mt (TARGET_BACKENDS): New make variable. Thu Jul 1 14:52:47 1993 Frederic Pierresteguy (F.Pierresteguy@frcl.bull.fr) and Jim Kingdon (kingdon@cygnus.com) * elfcode.h: Use memset not bzero. * trad-core.c: Don't include . * i386linux.h: Include . * coff-m68k-un.c: new file to handle names with underscores on svr3 machines. * coff-m68k.c (m68k_rtype2howto): added #ifdef ONLY_DECLARE_RELOCS to not duplicate the function in the executable. (TARGET_SYM, TARGET_NAME, NAMES_HAVE_UNDERSCORE): new macros needed by coff-m68k-un.c. * coffcode.h (MC68KBCSMAGIC): case added. * targets.c: Add m68kcoffun_vec. * configure.host: added support for Bull dpx/2. * config/dpx2.mh, hosts/dpx2.h: new files. * Makefile.in: added target coff-m68k-un. Fri Jul 9 00:43:06 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * aoutf1.h: Add definition of MACHTYPE_OK. Thu Jul 8 14:37:44 1993 David J. Mackenzie (djm@thepub.cygnus.com) * reloc.c (bfd_perform_relocation): Don't subtract the addend again for coff. * syms.c, bfd-in2.h: Doc fix. * coffcode.h (CALC_ADDEND): Check for common section using the section flag as well as the symbol flag. Thu Jul 8 13:43:52 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hosts/i386bsd.h: Conditionalize HOST_STACK_END_ADDR on __bsdi__. i386bsd.c: Remove defines of N_TXT*; the versions in aout64.h should be sufficient. Define TEXT_START_ADDR. Wed Jul 7 10:56:21 1993 Ian Lance Taylor (ian@cygnus.com) * aoutx.h (translate_from_native_sym_flags): Removed statep argument. Just let an indirect symbol point to the next symbol without forcing the next symbol to be undefined. Changed all callers. * hp300hpux.c (slurp_symbol_table): Changed call to translate_from_native_sym_flags. * targets.c: Added hp300hpux_vec. * Makefile.in (hp300hpux.o): Added dependencies. Tue Jul 6 13:24:55 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * reloc.c (enum bfd_reloc_code_real): Put simple power-of-two relocs together, and add 64-bit versions. (bfd_generic_get_relocated_section_contents): Argument to alloca is size_t. * libbfd.c (bfd_xmalloc_by_size_t): New function. * opncls.c (bfd_cache_init, bfd_open_file): Add prototypes to declarations. (obstack_chunk_alloc): Use bfd_xmalloc_by_size_t. (new_bfd): Prototype-style definition, using DEFUN. (bfd_alloc_grow, bfd_alloc, bfd_zalloc, bfd_realloc): Size argument is type size_t, not bfd_size_type. * ieee.c (obstack_chunk_alloc): Use bfd_xmalloc_by_size_t. * bfd.c (bfd_default_error_trap, bfd_error_trap, bfd_error_nonrepresentabltrap): Prototypes. * libbfd-in.h (bfd_alloc, bfd_zalloc, bfd_realloc, bfd_alloc_grow): Adjusted prototypes for arg type change. * archive.c (get_elt_at_filepos, do_slurp_bsd_armap, normalize, do_slurp_coff_armap, bfd_construct_extended_name_table): Prototypes. * elfcode.h (elf_string_from_elf_strtab): Prototypes. * libelf.h (elf_string_from_elf_section, elf_get_str_section): Prototypes. * Makefile.in (ALL_MACHINES): Renamed from BFD_MACHINES. (ofiles): New target. Build a list of unique file names, in case any got duplicated. (TARGETLIB): Use list of files from ofiles. * configure.in: Set BFD_MACHINES and BFD_BACKENDS depending on minimal-bfd flag and target makefile frag contents. * elfcode.h (elf_read): Delete static declaration, since function has moved. (elf_map_symbols): Write out section symbols for all sections, for now. (elf_symbol_from_bfd_symbol): Allow match if both symbols are section symbols for the same section. (elf_find_nearest_line): Don't print message, just return false. * libelf.h (bfd_elf_locate_sh): Declaration deleted. Mon Jul 5 16:48:11 1993 Doug Evans (dje@canuck.cygnus.com) * cpu-h8300.c (h8300_scan): Fix parsing of architecture string. Fri Jul 2 18:27:00 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (clean): Remove bfd.h and stmp-bfd.h. (realclean): Remove generated headers. Fri Jul 2 14:51:51 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * section.c (bfd_set_section_content): Deny if file is not opened with the proper mode, set output_has_begun if file is openened for update. * aoutx.h (aout_*_set_section_content): Remove checks that are now done in bfd_set_section_content. Fri Jul 2 09:25:20 1993 Ian Lance Taylor (ian@cygnus.com) * hosts/std-host.h: Removed declarations of printf, fprintf, fcntl, fread and fwrite. They are all error prone for one reason or another. Changed declaration of memchr from char * to PTR. * configure.in (mips-*-riscos*): New target; use riscos. * configure.host (mips-*-riscos*): New host; use riscos. * config/riscos.mh (HDEFINES): Add -G 4. * libaout.h (GET_SWORD): Use the bfd_h_get_signed entry points rather than casting the result of bfd_h_get. Fri Jul 2 10:13:48 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in, hosts/delta68.h, config/delta68.mh: Add stuff for Motorola Delta 68. Wed Jun 30 06:02:43 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * targets.c (bfd_elf64_{big,little}_generic_vec): Declare, and include in search list if BFD64 is defined. * libelf.h (CAT4): Added a version for Saber-C, ANSI mode. (bfd_elf64_*): Declarations for 64-bit versions of many routines. Tue Jun 29 22:50:59 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elf64-target.h, elf64-generic.c: New files. * Makefile.in (BFD64_BACKENDS): Include elf64-generic.o. (elf64-generic.o): List dependencies. * Makefile.in: List target `all' explicitly before host/target makefile fragments are included, in case they define any new targets. * elfcode.h (ELF_R_INFO, ELF_R_SYM): Define as 32- or 64-bit versions as appropriate. Uses updated. (elf_debug_section): Declare before use. (elf_debug_file): New function. (bfd_section_from_shdr, bfd_shdr_from_section, elf_fake_sections): Alignment value in section header is n_bytes, not log2. (new_section_hook): Do nothing for now. (bfd_section_from_shdr): Use Elf_External_Rel[a], not 32-bit version explicitly. (elf_core_file_p): Simplify check for correct class (word size). (elf_make_sections, elf_fake_sections, elf_write_object_contents): Initialize all fields when creating data structures. (elf_locate_sh): Renamed from bfd_elfXX_locate_sh, made static. (elf_compute_section_file_positions): Set correct class in output file. (elf_write_object_contents): Section symbols have empty names in output file. * libbfd.c (bfd_xmalloc, zalloc): Be sure to cast malloc, memset args to size_t before call. (bfd_add_to_string_table): Cast zalloc arg to bfd_size_type. Tue Jun 29 10:49:42 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_find_nearest_line): If procedure has no line number information, return 0 for line number. Mon Jun 28 10:45:02 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * aoutx.h (some_aout_object_p): If *oldrawptr is non-NULL, copy it into *rawptr. Sun Jun 27 09:05:19 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hosts/riscos.h: Define NBPG and UPAGES. Sun Jun 27 16:28:26 1993 Ken Raeburn (raeburn@cygnus.com) * elfcode.h (elf_slurp_symbol_table): Don't use obj_raw_syms as lvalue; it contains a cast. Fri Jun 25 17:09:55 1993 David J. Mackenzie (djm@thepub.cygnus.com) * aoutx.h (hash, compare, struct stringtab_entry, add_to_stringtab): Use unsigned hash values for better hashing. (hash): Hash in the string length for long strings. Thu Jun 24 15:47:51 1993 David J. Mackenzie (djm@thepub.cygnus.com) * aoutx.h (compare): Replace 3 if's with a subtraction. (translate_to_native_sym_flags, add_to_stringtab): Reorder tests in decreasing order of success, as an optimization. (hash): Take a length arg; ignore chars after #25, for speed. (add_to_stringtab): Pass length to hash. Thu Jun 24 17:25:51 1993 Ken Raeburn (raeburn@poseidon.cygnus.com) * elf32-sparc.c (sparc_reloc_map): Add SPARC_WDISP22 reloc. * elfcode.h (elf_new_section_hook): Do nothing for now. (elf_write_object_contents): Output common symbols the way ELF wants them. Wed Jun 23 16:20:07 1993 Ken Raeburn (raeburn@poseidon.cygnus.com) * libelf.h (struct elf_obj_tdata and associated macros): Moved here from elfcode.h. A couple of size-specific structure pointers were changed to PTR; uses fixed appropriately. (elf32_symbol_type, elf64_symbol_type): Separated definitions. (bfd_elf_mkobject): Renamed from bfd_elf32_mkobject. (bfd_elf32_mkobject, bfd_elf64_mkobject, elf_mkobject): New temporary macros to ease name change. * elf.c (elf_read, elf_mkobject, elf_get_str_section, elf_string_from_elf_section, bfd_elf_find_section): Moved here from elfcode.h. * doc/Makefile.in (libbfd.h): Process elf.c too. * Makefile.in (elf.o): Note new dependencies. * elfcode.h: Lots of stuff moved elsewhere. Deleted some unused code, tweaked some debug hooks. (elf_slurp_reloca_table): Translate ELF section symbols into BFD section symbols. Wed Jun 23 11:34:21 1993 Jim Kingdon (kingdon@cygnus.com) * hosts/riscos.h: New file. Tue Jun 22 14:35:20 1993 Ken Raeburn (raeburn@poseidon.cygnus.com) * elfcode.h (bfd_section_from_shdr, case SHT_PROGBITS): Even if section already exists, use its pointer to fill in rawdata slot. Tue Jun 22 16:36:51 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hosts/std-host.h: Return value of puts and fputs is int not void. Tue Jun 22 14:25:58 1993 David J. Mackenzie (djm@thepub.cygnus.com) * aoutx.h (howto_table_ext): Comment the field names. * reloc.c (bfd_perform_relocation): Fix max and min values. Mon Jun 21 18:19:14 1993 Ken Raeburn (raeburn@poseidon.cygnus.com) * elf32-target.h, elf32-hppa.c, elfcode.h: Use new size-independent elf internal data structures. * elfcode.h (put_word, get_word): Define as appropriate for architecture word size. Structure swapping functions changed to use them as appropriate. * configure.in: If compiling 64-bit back ends, do them before 32-bit ones. * libelf.h: Use new size-independent versions of elf internal data structures. (symbol_type): Reordered to put any fields dependent on target size at the end. (elf_backend_data): Renamed from elf##_backend_data and made size-independent. (elf_sect_thunk): Now size-independent. * libbfd.c (bfd_log2): Now returns unsigned int. Mon Jun 21 12:30:47 1993 Jim Kingdon (kingdon@cygnus.com) * Rename config/m88k-aout.mt to config/noop.mt. configure.in: Use it for mips-*-bsd*. Sun Jun 20 20:32:19 1993 Ken Raeburn (raeburn@poseidon.cygnus.com) * cpu-m68k.c (arch_info_struct): Eliminate "partially bracketed initializer" warning from gcc. * cpu-h8500.c (arch_info_struct): Likewise. * cpu-sh.c (arch_info_struct): Likewise. * cpu-h8300.c (local_bfd_reloc_type_lookup, howto*_callback, howto_*): Unused functions and variables commented out. * cpu-z8k.c (local_bfd_reloc_type_lookup, howto*_callback, howto_*): Likewise. * cpu-h8500.c (compatible): Likewise. * cpu-sh.c (compatible): Likewise. * hp300hpux.c (swap_std_reloc_in): Delete unused variables. Always set a valid length value, even for invalid input. * srec.c (srec_write_symbols): Use sprintf_vma. * bfd-in.h (uint64_typeLOW, uint64_typeHIGH, int64_type, uint64_type): Provide default definitions. * hosts/std-host.h (int64 stuff): Remove them from here. * bfd-in.h (sprintf_vma): Define parallel to fprintf_vma. * elf32-i386.c (elf_i386_reloc_type_lookup): Delete unused variable. Added default case to switch. * aoutx.h (translate_from_native_sym_flags): Before casting pointers to integers, make sure the integer type is wide enough. * coff-mips.c (ecoff_set_symbol_info): Ditto. * section.c (bfd_get_section_contents): Since `count' is unsigned, don't bother comparing for less-than-zero. (bfd_set_section_contents): Ditto. * elfcode.h (bfd_add_to_strtab): Now static. (sym_is_global): New function. (elf_map_symbols): Call it. Now returns void. Removed unused local variable. (bfd_section_from_shdr): Mark string tables other than for section and symbol names as normal sections having contents. (fix_up_strtabs): New function; fixes up ELF header fields for stab sections with string tables associated. (elf_write_object_contents): Map fix_up_strtabs over all BFD sections. Reordered condition tests for symbol flags; default to local-object value instead of global-object. (elf_symbol_from_bfd_symbol): Hid conditionally-used variable inside condition test. (elf_print_symbol): Use fprintf_vma. (elf_idx_of_sym, bfd_shdr_from_section): Unused functions commented out. * bfd-in.h (int64_type, uint64_type): Define these if we fall back to "long long" for HOST_64_BIT. * libelf.h (elfNAME, ElfNAME): New versions to get desired results without using invalid ANSI C preprocessing tokens. * elf32-target.h (bfd_elf32_new_section_hook): Delete macro. * libelf.h (bfd_elf32_new_section_hook): Declare. * elfcode.h (new_section_hook): Define here. * hosts/sparc.h, hosts/std-host.h, hosts/i386bsd.h: Protect against multiple inclusions. * hosts/news.h: Include hosts/std-host.h, not plain std-host.h. * Makefile.in (bfd.h): Generate into current directory by grabbing 64-bit definition (if any) from sysdep.h. * bfd-in.h: Put in marker for sysdep.h inclusion. Fri Jun 18 19:57:23 1993 David J. Mackenzie (djm@thepub.cygnus.com) * reloc.c (bfd_perform_relocation): Check for overflow on pc-relative relocations if the howto asked for it. Fri Jun 18 16:00:20 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in (stmp-bfd.h): Ignore nonzero exit status from grep. Fri Jun 18 16:54:29 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/riscos.m{h,t}: New files. * configure.{host,in}: Use them. Fri Jun 18 12:55:10 1993 K. Richard Pixley (rich@cygnus.com) * elf32-mips.c: comment change. This is a mips file, not 88k. Mon Jun 14 14:02:41 1993 Jim Kingdon (kingdon@cygnus.com) * cache.c (bfd_cache_init): Increment open_files and call close_one if necessary. (bfd_open_file): Don't increment open_files here. Fri Jun 18 10:00:14 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/delta88.mh: Don't set CC. * Makefile.in: Add elf32-{mips,m88k,generic}. elf32-{mips,m88k,generic}.c: New files. targets.c (target_vector): Include bfd_elf32_{mips,m88k,generic}_vec. elfcode.h (elf_object_p): Match elf32-generic for all machines which don't match a different target. Fri Jun 18 03:12:12 1993 John Gilmore (gnu@cygnus.com) Eliminate "int8_type", "int16_type", "int32_type", and their variants from the BFD universe. Leave the 64-bit types for now, since they are in flux. * aoutx.h, hp300hpux.c: Eliminate needless (int32_type) casts. * libaout.h (GET_SWORD): Convert (int32_type) to (int). * ieee.c: Convert uint8e_type => unsigned char. * oasys.c: Extensive changes to eliminate obsolete types. These depend on changes in ../include/oasys.h as well. * hosts/*.h: Remove declarations of all these types. Mon Jun 14 14:02:41 1993 Jim Kingdon (kingdon@cygnus.com) * hosts/delta88.h: #if 0 out some declarations which conflict with system headers. Mon Jun 14 17:08:18 1993 david d `zoo' zuhn (zoo at rtl.cygnus.com) * Makefile.in (install): remove parentdir cruft Mon Jun 14 19:04:09 1993 Stu Grossman (grossman@cygnus.com) * hppa.c (hppa_get_symbol_info): Remove redundant copy. * Expurgate random DEFUNs that have crept in. Mon Jun 14 10:23:53 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_set_symbol_info): Constructor sections should only be aligned to a 4 byte boundary. Sat Jun 12 16:13:17 1993 Jim Kingdon (kingdon@cygnus.com) * hosts/std-host.h (struct int64e_struct): Remove needless typedef keyword. Fri Jun 11 14:25:34 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * aoutf1.h (sunos4_write_object_contents): set flags to 1, breaking 1927 but fixing some other important things. Thu Jun 10 20:36:22 1993 Doug Evans (dje@canuck.cygnus.com) * hosts/std-host.h (int64e_type): Fix definition. Thu Jun 10 11:48:28 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_sec_to_styp_flags): Use STYP_MIPS_INIT for section named _INIT. Don't set STYP_TEXT unless SEC_CODE is set. (ecoff_styp_to_sec_flags): Treat a STYP_MIPS_INIT section like a STYP_TEXT section. Wed Jun 9 16:48:13 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in (install, headers): don't put comments after a tab in the actions section of a rule Wed Jun 9 15:00:01 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_mkobject_hook): Mark ZMAGIC files as D_PAGED. (ecoff_write_object_contents): If not D_PAGED, don't add the section headers to text_size. If not D_PAGED, set the magic number to OMAGIC rather than ZMAGIC. If creating a D_PAGED executable, the executable must fully occupy an even number of pages. (ecoff_set_symbol_info, make_bfd_asection, ecoff_little_vec, ecoff_big_vec): Consistently set section alignment power to 4, since ECOFF sections should be multiples of 16 bytes. (ecoff_little_vec, ecoff_big_vec): Added D_PAGED to object_flags. Made ar_pad_char and ar_max_namelen agree for both. Tue Jun 8 20:28:02 1993 Mark Eichin (eichin at tweedledumber) * elfcode.h (elf_slurp_symbol_table): subtract section vma from symbol value, since bfd symbols are section relative, but ELF symbols aren't. Tue Jun 8 12:08:27 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * cpu-i960.c, cpu-h8300.c (compatible): Make static. Tue Jun 8 14:27:56 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * hosts/news.h, config/news.mh: New files. Tue Jun 8 12:08:27 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * bfd-in2.h, archures.c (bfd_mach_h8300[h]): new defines. * coff-h8300.c: More addressing modes. * coffcode.h (coff_set_arch_mach_hook): Cope with H8300 magic number. * cpu-h8300.c: Removed disassemble stuff. (h8300_scan): Recognise H8/300H name. (compatible): New function. * reloc16.c (bfd_coff_reloc16_get_relocated_sec): Cope with more addressing modes. Tue Jun 8 10:30:13 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_compute_section_file_positions, ecoff_write_object_contents): Only round to page boundaries if D_PAGED flag is set for the output BFD. Fri Jun 4 15:47:52 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * coffcode.h (get_index, coff_slurp_symbol_table): Fix pointer casts to work on machine where sizeof(long) != sizeof(int) != sizeof(char *). * coffgen.c (coff_get_normalized_symtab): Ditto. * cpu-h8300.c coff-h8300.c: Support for H8/300-H. Fri Jun 4 15:24:27 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * coffgen.c (coff_write_symbols): For empty string table, write out 4 in correct byte order. (from minyard@bnr.ca) * elf32-hppa.c: Don't include libhppa.h for now; define BYTES_IN_WORD instead, until Utah sends a better fix. (hppa_elf_build_arg_reloc_stub): Use xmalloc and xrealloc instead of malloc and realloc. Fri Jun 4 07:49:01 1993 Ian Lance Taylor (ian@cygnus.com) * configure.in (mips-*-ecoffl*): New target; use decstation. (mips-*-ecoff*): Added trailing '*'. * coff-mips.c (ecoff_get_debug): Get the offset from the first PDR for the FDR, not from the first PDR in the file. Thu Jun 3 16:41:10 1993 Stu Grossman (grossman@cygnus.com) * hppa.c (hppa_get_symbol_info): New func needed for JUMP_TABLE. Thu Jun 3 15:33:57 1993 David J. Mackenzie (djm@rtl.cygnus.com) * hppa.c (hppa_get_symbol_info): New function. Thu Jun 3 13:07:42 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elfcode.h (elf_map_symbols): Don't crash if no symbols have been allocated yet. From Peter Hoogenboom (hoogen@schafer.cs.utah.edu): * libhppa.h (MAXCOMLEN): Define unconditionally. (_PA_RISC_ID): Only define if not already defined. * elf32-hppa.c: Include libhppa.h. From Ralph Campbell: * hosts/mipsbsd.h (HOST_DATA_START_ADDR): Delete definition. * elf32-hppa.h (symext_rootP, symext_lastP): Delete decls. Thu Jun 3 00:23:53 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * config/go32.mh: define EXTRALIBES to -lm (for binutils), also remove defines of __MSDOS__ and __GO32__ (these are in the compiler now). Wed Jun 2 17:57:13 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) From Utah: * hosts/hppabsd.h: Eliminate use of obsolete EXFUN. * config/hppabsd.mh: Don't use ranlib. Tue Jun 1 04:15:57 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com) * elf.c: New file, for word-size independent code. * elfcode.h (elf_hash): Moved to there, renamed bfd_elf_hash. * Makefile.in: Include elf.o in standard objects. * bfd-in.h (CAT3): Define here. * libaout.h, libelf.h: Not here. * libelf.h (struct strtab): Define here. (bfd_elf_locate_sh): Declare here. * elfcode.h (struct strtab): Definition deleted. * reloc.c (enum bfd_reloc_code_real): Added HPPA_PCREL_CALL_12. * Makefile.in: Make "all", not "bfd.h", be the default target. (stmp-bfd.h): New target; prevents rebuilding world if bfd.h hasn't really changed. Tue May 25 12:15:15 1993 Michael Meissner (meissner@osf.org) * elfcode.h (elf_hash): Provide elf standard hash function. (various): Key off of the machines use_rela_p field to determine whether to use REL or RELA relocations. (elf_swap_reloc_out, elf_swap_reloc_in): New functions. (elf_make_sections): Allocate a pointer to hold all data for a given section, and copy each fragment into the data region. Update the section's pointer with the REL implicit addends if the machine uses REL relocation. * elf32-i386.c (elf_bfd_reloc_type_lookup): Rename to elf_i386_bfd_reloc_type_lookup, and use cpp to map the name back into was elf32-target.h expects. (elf_info_to_howto): Rename to elf_i386_info_to_howto. (elf_i386_bfd_reloc_type_lookup): Add relocation support. (elf_i386_info_to_howto): Add minimal relocation support. * libelf.h (elf_backend_data): Add use_rela_p, elf_64_p, elf_info_to_howto_rel fields. * elf32-target.h (elf_bed): Add support for new fields in elf_backend_data. Sun May 30 16:38:24 1993 Peter Hoogenboom (hoogen@fast.cs.utah.edu) * elf32-hppa.c: Add symbol extension section support, fix relocation howto table, add stub generation support. * elf32-hppa.h: Add symbol extension section support, fix relocation howto table, add stub generation support. * elfcode.h (bfd_elf_locate_sh): New function to locate ELF section header. * elfcode.h (bfd_add_to_strtab): Made non-static due to a call from elf32-hppa.c. * elfcode.h (elf_idx_of_sym): Return STN_UNDEF instead of 0 when the symbol is not found. * elfcode.h (elf_compute_section_file_positions): Not all section file positions were computed. * elfcode.h (elf_get_sect_thunk): New function. * hppa.c (sign_ext): Reimplement. * hppa.c (round_down,round,round_up,L,R,LS,RS,LD,RD,LR,RR): Make these functions static. Tue Jun 1 14:40:41 1993 Per Bothner (bothner@rtl.cygnus.com) * Makefile.in (bfd.h): Move closer to headers - and after 'all'! * aoutx.h (translate_from_native_sym_flags): Don't set BSF_DEBUGGING for constructor symbols, only BSF_CONSTRUCTOR. * aoutx.h (translate_to_native_sym_flags): Translate constructor symbols properly. Thu May 27 16:09:04 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * archures.c (bfd_default_arch_struct): use 4 byte alignment as a minimum. * aout-target.h (minimum_alignment): 8 byte alignment is right. (fix ld/2680) Thu May 27 13:38:47 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * configure.in, Makefile.in: Build bfd-in2.h in source directory, from bfd-in.h and .c files. Build bfd.h in build directory, substituting in requested target word size. Insert word size into makefile, and maybe enable 64-bit targets. * bfd-in.h, libbfd.c, demo64.c, targets.c: Define BFD64 if 64 bits are available. Conditionalize on this. Assume HOST_64_BIT will be defined if needed, so 64-bit targets are conditionalized only in the Makefile. Tue May 25 14:03:56 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * libbfd.c (COERCE64): Rewrite to avoid out-of-range values. * coff-sh.c (rtype2howto): Put error message on stderr. (extra_case): Delete unused variable. * coff-mips.c (ecoff_print_symbol): Cast bfd_vma values to long before calling printf. * elfcode.h: New file, almost completely derived from old elf32.c. * elf32.c: Now just define ARCH_SIZE and include elfcode.h. * Makefile.in (elf64.o): List dependencies, don't build by default. (elf64.c): Add to list of sources. (elf32.o): Update dependencies. * elf32-*.c: Updated type/macro/structure names. Cleaned up namespace pollution; rename vectors. * targets.c, config/*-elf.mt: Updated. * All uses of 32-bit versions of structures, routines, and macros renamed. * Makefile.in (archures.o, targets.o): Depend on Makefile. Mon May 24 15:53:13 1993 Ken Raeburn (raeburn@cygnus.com) * elf32-i386.c (enum reloc_type): No comma after last enumerator. * elf32.c (elf_string_from_elf_section): Handle index of zero specially. (bfd_section_from_shdr, elf_slurp_symbol_table): Don't need to do so here. (elf_write_object_contents): Deleted one unused variable and initialized another to avoid gcc warnings. (elf_set_section_contents): Delete unused variable. Fri May 21 19:04:21 1993 Stu Grossman (grossman@cygnus.com) * i386lynx.c: New module for Lynx variant of a.out. * Makefile.in (BFD_BACKENDS CFILES depends): Add i386lynx.c. * gen-aout.c: Get rid of defunct endian stuff, print out true pagesize. * targets.c (target_vector): Add i386lynx_vec. Fri May 21 17:02:22 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Use i386-sco.mt for i[36]86-*-isc*. Fri May 21 13:44:18 1993 David J. Mackenzie (djm@rtl.cygnus.com) * aix386-core.c, aout-target.h, aoutx.h, coff-alpha.c, coff-mips.c, coffgen.c, elf32.c, ieee.c, libaout.h, libcoff-in.h, libelf.h, mipsbsd.c, oasys.c, sco-core.c, srec.c, tekhex.c, trad-core.c: Define a TARGET_get_symbol_info function or macro. Remove the bfd_print_symbol_nm case from TARGET_print_symbol. * bfd-in.h: Don't define bfd_print_symbol_nm. Define symbol_info type. (JUMP_TABLE): Set _get_symbol_info element. * syms.c (coff_section_type, bfd_symbol_info): New functions. (bfd_decode_symclass): Use coff_section_type. * targets.c: Add bfd_get_symbol_info call. Wed May 19 15:30:52 1993 Stu Grossman (grossman@cygnus.com) * coff-i386.c (coff_i386_reloc): Use unsigned char to avoid complaints from ancient gcc's. Wed May 19 15:51:19 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * trad-core.c: Check macro TRAD_CORE_EXTRA_SIZE_ALLOWED. hosts/i386linux.h: Define it. Mon May 17 15:00:33 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * VERSION, bfd-in.h: Bump version number to 2.2. * hppa.c (assemble_3, dis_assemble_3, assemble_12, dis_assemble_12, assemble_17, dis_assemble_17, assemble_21, dis_assemble_21, sign_ext, ones, sign_unext, low_sign_ext, low_sign_unext, round_down, round, round_up, L, R, LS, RS, LD, RD, LR, RR, hppa_field_adjust): New functions. Mon May 17 10:04:16 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_set_symbol_info): Added support for indirect stabs symbols, including new indirect_ptr_ptr argument. (ecoff_slurp_symbol_table): Pass new argument in calls to ecoff_set_symbol_info. Fri May 14 00:05:06 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * configure.in: For m68k sysv systems, use m68k-coff. * config/hppa-elf.mt (TDEFINES): Don't define DEFAULT_VECTOR here. (TDEFAULTS): Define it here. Use the new name. * elf32-hppa.c (elf_hppa_backend_data): Delete; rely on default values instead. * reloc.c (bfd_reloc_code_real_type): Add some HPPA reloc types. * aix386-core.c (NO_GETS): Fix PROTO invocation to have correct number of arguments. (aix386_core_file_p): Initialize core_size to correct value. Wed May 12 14:39:59 1993 Ian Lance Taylor (ian@cygnus.com) * Makefile.in (CC_FOR_BUILD): New variable, set to $(CC). (FLAGS_TO_PASS): Pass down CC_FOR_BUILD. * bout.c (aout32_slurp_extended_name_table): Define to be _bfd_slurp_extended_name_table rather than bfd_true. * coff-mips.c: Include libaout.h and aout/aout64.h to get definitions for N_SET[ATDB]. (ecoff_howto_table): Moved near top of file. (ecoff_set_symbol_info): If a STABS symbol of type N_SET[ATDB] is seen, cook up a constructor section of the same name and put in a reloc pointing to the symbol. This lets the GNU linker build global constructors and destructors without using collect. Tue May 11 00:33:31 1993 John Gilmore (gnu@cygnus.com) * coff-m88k.c (m88kbcs_vec): Symbols have underbars. Mon May 10 05:55:45 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com) * hosts/miniframe.h: New file. * configure.host: Use it. Sun May 9 16:36:59 1993 Fred Fish (fnf@cygnus.com) * configure.in (hppa*-*-bsd): Change to hppa*-*-bsd* * configure.in (hppa*-*-hpux): Change to hppa*-*-hpux* * configure.in (m68*-hp-bsd): Change to m68*-hp-bsd* * configure.in (m68*-*-hpux): Change to m68*-*-hpux* * configure.in (*-*-bsd): Change to *-*-bsd* Wed May 5 16:08:32 1993 Per Bothner (bothner@cygnus.com) * elf32-hppa.c (elf_hppa_reloc_type_lookup): Cast enums to int, for the sake of the old Portable C Compiler. Mon May 3 14:37:01 1993 Stu Grossman (grossman@cygnus.com) * Makefile.in (CFILES): Add cpu-sh.c and coff-sh.c. Mon May 3 14:03:21 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * configure.in: Get target name right for m68*-*-hpux. Sun May 2 11:39:44 1993 Fred Fish (fnf@cygnus.com) * trad-core.c (NO_SIGNED_GET): New macro. * trad-core.c (trad_core_vec): Use new NO_SIGNED_GET instead of signed NO_GET, where appropriate. * configure.in (i[34]86-*-linux*): Add; bfd_target = i386-linux. * configure.in (*-*-linux*): Remove until linux port for a non-i386/i486 system is actually available. Fri Apr 30 20:04:10 1993 Stu Grossman (grossman@cygnus.com) * libhppa.h: #undef e_* symbols which come from when compiling under HPUX. Fri Apr 30 17:25:23 1993 Stu Grossman (grossman@cygnus.com) * The following patches are from Jeffrey Law . * hppa.c (hppa_core_file_p): Provide a temporary dummy routine for HOST_HPPABSD. * bfd/hosts/hppabsd.h: Fix declarations of malloc and free. * bfd/libhppa.h: Include sysdep here. Conditionalize includes based on HOST_HPPAHPUX or HOST_HPPABSD. Provide definitions for MAXCOMLEN and _PA_RISC_ID suitable for BSD. Fri Apr 30 17:34:11 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elf32-hppa.c: Don't include a.out.h. Apparently not even the GNU version is needed. Fri Apr 30 09:38:59 1993 Jim Kingdon (kingdon@cygnus.com) * coffcode.h: use dummy_reloc16_extra_cases rather than casting abort. Thu Apr 29 11:30:32 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * Makefile.in: Build elf32-hppa.o. * syms.c (BSF_FUNCTION): New symbol flag. * elf32-hppa.c: Fixed to work with elf32-target.h. * hp300hpux.c (NAME, NAME_swap_exec_header_in): Fix for traditional C. * libaout.h (NAME): Don't define if already defined. * libelf.h: Protect against multiple inclusions. (elf_symbol_type): Moved here, added new fields. (struct elf_backend_data): New field `global_sym'; I suspect this may be misplaced. * elf32.c (elf_symbol_type): Deleted from here. (struct elf_obj_tdata): New fields raw_syms and internal_syms, to point to backend versions of symbols. (obj_symbols, obj_raw_syms, obj_internal_syms): New macros. (elf_swap_phdr_out, elf_build_phdrs, elf_write_phdrs): New functions. (elf_write_object_contents): Write program headers if appropriate. (bfd_section_from_shdr): Unnamed sections get empty string for name, not "unnamed". Handle SHT_NOBITS separately from SHT_PROGBITS, and set some different flags. (elf_file_p): New routine. (elf_object_p, elf_core_file_p): Call it. (elf_object_p): Handle EM_HPPA. (elf_symbol_from, elf_idx_of_sym): New functions. (elf_make_sections): Get symbol number right for relocations. Set SHF_ALLOC, SHF_WRITE, SHF_EXECINSTR when appropriate. (elf_fake_sections): BSS section should be SHT_NOBITS, not SHT_PROGBITS. Always generate symtab and strtab, not only if relocations are needed. Set SHF_* flags as appropriate. (elf_compute_section_file_positions): Handle bfd_arch_hppa. (elf_write_object_contents): Fix off-by-one error in symbol count. Store a correct value for the symbol; write the size field properly; make some guesses about the type field. Set section type correctly for string tables. (section_from_elf_index): Check for absolute and common sections first. (elf_section_from_bfd_section): Ditto. (elf_slurp_symbol_table): Use elf_symbol_type instead of asymbol. Use empty string instead of "unnamed" for nameless symbols. Handle STTY_FUNC type, and weirdness with "$global$" symbol for HPPA (only?). Don't free raw symbols; keep the pointer around for later. (elf_set_arch_mach): Handle bfd_arch_hppa. (elf_find_nearest_line): Just return false. (elf_write_object_contents, elf_set_section_contents): Set output_has_begun field after computing file positions. (elf_set_section_contents): Write section contents immediately, rather than caching the whole file and writing it at close time. * libhppa.h (enum hppa_reloc_field_selector_type, enum hppa_reloc_field_selector_typ_alt, enum hppa_reloc_expr_type, enum hppa_reloc_expr_type_alt): New enumerator types. * config/hppa-elf.mt,. config/hppaosf.mh: HP PA/OSF support. * configure.in, configure.host: Use them. Wed Apr 28 23:21:01 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elf32-target.h: Allow overrides of armap defaults. * elf32-hppa.c, elf32-hppa.h: New files. * config/hp300hpux.mt: New file. Tue Apr 27 05:39:40 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com) * aix386-core.c (NO_GETS): New macro; NO_GET for signed values. (aix386_core_vec): Update for new fields. * archive.c (bfd_generic_archive_p): Call target-specific slurp_armap code, instead of bfd_slurp_armap. (bfd_slurp_bsd_armap_f2): New function. * libbfd-in.h (bfd_slurp_bsd_armap_f2): Declare it. * aout-target.h (AR_PAD_CHAR): Define it if not already defined. (vec): Use it. * libaout.h (struct aoutdata): New field for subformat, for differentiating between highly similar a.out formats. * aoutx.h (NAME_swap_exec_header_in): New macro, defaults to local version of function. (swap_exec_header_in): Don't define if NAME_swap_exec_header_in is already defined. * hp300hpux.c: New file. * Makefile.in: Include it. Mon Apr 26 13:24:43 1993 Steve Chamberlain (sac@thepub.cygnus.com) * Makefile.in, archures.c, coffcode.h, targets.c: Support for Hitachi SH. Mon Apr 26 13:55:42 1993 Jim Kingdon (kingdon@cygnus.com) * trad-core.c (trad_unix_core_file_p): Check the file size. Mon Apr 26 13:24:43 1993 Steve Chamberlain (sac@thepub.cygnus.com) * coff-alpha.c: Remove duplicate function and add warnings. Mon Apr 26 11:25:58 1993 Ian Lance Taylor (ian@cygnus.com) * sco-core.c (sco_core_vec): Add initializers for new target fields. Sat Apr 24 21:33:45 1993 Jim Kingdon (kingdon@cygnus.com) * coffcode.h [_LIT]: Recognize .lit section. Fri Apr 23 19:00:36 1993 Steve Chamberlain (sac@thepub.cygnus.com) * coff-alpha.c, cpu-alpha.c, config/alphaosf.mt, config/alphaosf.mt, hosts/alphaosf.h: New files. Fri Apr 23 16:48:46 1993 Stu Grossman (grossman@cygnus.com) * Merge in HPPA/BSD changes from Utah. * hppa.c: Use this for both HPUX & BSD. * targets.c: Enable hppa_vec for both HPUX & BSD. * config/hppabsd.mt: TDEFINES => TDEFAULTS. * hosts/hppabsd.h: #define HOST_HPPABSD. Wed Apr 21 01:50:10 1993 John Gilmore (gnu@cygnus.com) * libbfd.c: Whitespace changes around byteswap macros. * libbfd-in.h: Whitespace changes around byteswap declarations. Tue Apr 20 15:59:07 1993 Stu Grossman (grossman@cygnus.com) * aoutf1.h (sunos4_core_file_p): Don't default bfd_error to system_error anymore. It confuses bfd_check_format(). Mon Apr 19 23:03:08 1993 Stu Grossman (grossman@cygnus.com) * bfd.c: Add sgi_core_data to tdata union. * coff-mips.c: Add Irix 4.x core file support. * hosts/irix4.h: #define HOST_IRIX4. Mon Apr 19 18:52:52 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * aoutx.h (translate_from_native_sym_flags): Check that the symbol's section does get set. (slurp_symbol_table): Zero index means null-string name. * aoutx.h (struct stringtab_entry, struct stringtab_data): New data structures. (hash, stringtab_init, add_to_stringtab, emit_strtab, compare): New functions. (write_syms): Use them, to reduce string table size. Mon Apr 19 16:45:12 1993 Fred Fish (fnf@cygnus.com) * trad-core.c (trad_core_vec): Add 6 new initializers to match new signed get/put fields. Minor reformatting to label some fields. Mon Apr 19 06:09:41 1993 Jim Kingdon (kingdon@cygnus.com) * bfd-in.h: Insert comment about SVR3 compiler warnings. * hosts/{hp300,i386isc,i386v}.h: Remove unused #defines of {r,}index (bfd uses strchr and the broken SVR3.2 cpp loses with the defines). * libbfd.c: bfd_put*: Remove casts to bfd_vma. Fri Apr 16 17:49:27 1993 Jim Kingdon (kingdon@cygnus.com) * aoutf1.h (internal_sunos_core): Make c_stacktop a bfd_vma. (swapcore_sparc): Make sp a bfd_vma. Thu Apr 15 09:09:18 1993 Jim Kingdon (kingdon@cygnus.com) * libbfd.c: Add signed versions of bfd_{h_,}{get,put}_signed_. libbfd.c, libbfd-in.h: Add _do*signed*. targets.c, all targets: Add bfd*signed*. bfd-in.h: Add bfd_signed_vma. Add comments. * bfd-in.h (bfd_error), bfd.c (bfd_errmsgs): Add file_truncated. * format.c (bfd_check_error): Check error return from _bfd_check_format routines. Wed Apr 14 23:48:25 1993 Jim Kingdon (kingdon@cygnus.com) * rs6000-core.c (rs6000coff_core_p): Improve error checking and recognize .data section if present. Thu Apr 15 01:00:29 1993 John Gilmore (gnu@cygnus.com) * aoutx.h (aout_*_adjust_sizes_and_vmas): Avoid `sanity' check for the case where the user sets the address of the BSS section (and the file header can't specify this). Let the user set it wherever they want, regardless of what goes in the header. * ieee.c (ieee_slurp_sections): Pass all ieee section names straight through into BFD sections. Add comments. Wed Apr 14 20:34:54 1993 John Gilmore (gnu@cygnus.com) Cleanup in preparation for better 64-bit host support. * bfd-in.h (bfd_64_type): Remove. * libbfd.c (_do_getb64, _do_putb64): Use bfd_vma, not bfd_64_type. * bfd-in.h (bfd_size): Remove. * bfd-in.h (bfd_offset): Remove, after fixing ld/ldlang.[ch]. * bfd-in.h (bfd_word): Remove. * reloc.c (reloc_howto_type): Replace bfd_word with bfd_vma. * bfd-in.h (rawdata_offset): Remove. * reloc.c (arelent): Replace rawdata_offset with bfd_size_type. (bfd_perform_relocation): Lint. (enum bfd_reloc_status): Comment cleanup. * aout-adobe.c, cpu-h8300.c, mipsbsd.c, srec.c: lint -Wall. Tue Apr 13 11:19:52 1993 Jim Kingdon (kingdon@cygnus.com) * aoutf1.h (swapcore_sparc): Guess the right value of USRSTACK. Mon Apr 12 14:18:00 1993 John Gilmore (gnu@cygnus.com) * elf32.c: Clean up old comments. Fri Apr 9 10:43:20 1993 Ian Lance Taylor (ian@cygnus.com) * config/sun3.h: String argument to fprintf is const. * coff-mips.c: Renamed PAGE_SIZE to ROUND_SIZE, to avoid confusion on systems which define PAGE_SIZE in . Thu Apr 8 10:28:00 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * trad-core.c (trad_unix_core_file_failing_signal): Use new macro TRAD_UNIX_CORE_FILE_FAILING_SIGNAL to allow host files to specify the core file failing signal. * hosts/decstation.h (TRAD_UNIX_CORE_FILE_FAILING_SIGNAL): Define to supply the core file failing signal. Thu Apr 8 09:17:35 1993 Ian Lance Taylor (ian@cygnus.com) * coffcode.h (styp_to_sec_flags): Only set SEC_SHARED_LIBRARY for a STYP_NOLOAD | STYP_BSS section if BSS_NOLOAD_IS_SHARED_LIBRARY is defined. On many COFF targets STYP_BSS is always STYP_NOLOAD. * coff-i386.h (BSS_NOLOAD_IS_SHARED_LIBRARY): Define. Wed Apr 7 11:33:06 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (PAGESIZE): Correct value. Tue Apr 6 12:05:44 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_find_nearest_line): Address of first PDR is an offset (patch from Jean-Daniel Fekete ). Mon Apr 5 12:07:12 1993 Ian Lance Taylor (ian@cygnus.com) * coffcode.h (styp_to_sec_flags): Set SEC_SHARED_LIBRARY for a STYP_NOLOAD | STYP_BSS section. Don't set SEC_NEVER_LOAD for a STYP_INFO section. (coff_compute_section_file_positions): Force vma and lma of _LIB section to be zero. (coff_set_section_contents): Count number of entries in new lma field, not in vma. * coffgen.c (make_a_section_from_file): Force lineno_count of SEC_SHARED_LIBRARY section to be zero, since it is non-zero on the SCO 3.2v4 shared library. * seclet.c (rel): Copy over any section with contents, not just loadable sections. * coff-mips.c (ecoff_make_empty_symbol): Zero out newly allocated symbol. * coff-i386.c (coff_i386_reloc): New function, to generate relocateable output correctly. (howto_table): Use coff_i386_reloc for all reloc types. (CALC_ADDEND): Use a more efficient hack to get the correct addend for a common symbol. (i386comm_value): Removed; no longer needed. Sun Apr 4 15:08:48 1993 Steve Chamberlain (sac@thepub.cygnus.com) * coffcode.h (coff_set_section_contents): Don't write out sections without a filepos. Fri Apr 2 14:35:05 1993 Ian Lance Taylor (ian@cygnus.com) * seclet.c (seclet_dump_seclet): Correct SEC_HAS_CONTENTS test. Wed Mar 31 17:41:05 1993 Ian Lance Taylor (ian@cygnus.com) * reloc.c (bfd_reloc_code_real_type): Added BFD_RELOC_MIPS_GPREL. * libecoff.h (ecoff_data_type): Added gp_size field. * coff-mips.c (ecoff_mkobject_hook): Initialize gp_size to 8. (ecoff_set_symbol_info): Compare against gp_size, not hardcoded 8. Set flags to 0 for large common symbols. (ecoff_gprel_reloc): Handle non-zero addend for external symbols, which can occur for gas-generated relocs. (ecoff_bfd_reloc_type_lookup): Added BFD_RELOC_MIPS_GPREL case. * bfd.c (bfd_get_gp_size, bfd_set_gp_size): New functions. * Makefile.in (bfd.o): Now depends on coff/sym.h and libecoff.h. Tue Mar 30 09:33:16 1993 Steve Chamberlain (sac@thepub.cygnus.com) * srec.c (srec_set_section_contents): Use lma field for load address. * section.c: Add declaration of lma field to section structure. * coffcode.h (coff_write_object_contents): Use lma field for load address. * bfd-in.h (bfd_set_section_vma): Set lma along with vma. * aoutx.h (translate_from_native_sym_flags): Now handles indirect symbols in a better way. (translate_to_native_sym_flag): Set the N_INDR bit when necessary. (aout<>slurp_symbol_table): Maintain indirect state. * section.c: Added BFD_IND_SECTION_NAME and bfd_ind_section. (bfd_make_section): Cope with new builtin section. * syms.c (bfd_decode_symclass): Can now print indirect section info. Wed Mar 24 13:36:33 1993 Per Bothner (bothner@rtl.cygnus.com) * aout-target.h (MY(object_p)): Fail if MACHTYPE_OK is defined, and yields false. * aout-mipsbsd.c, i386bsd.c: Define MACHTYPE_OK appropriately. * archive.c (snarf_ar_hdr): Add support for reading (only, so far) BSD-4.4-style extended headers. * archive.c: Some more comments. Wed Mar 24 02:05:10 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: fix rule for dvi and info, so that the recursive makes does the right thing, instead of always info Wed Mar 24 02:56:44 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * libbfd.c (bfd_seek): Disable optimized handling for archives and archive members; they need more special reatment. For now, verify that computed and actual file positions correspond. Tue Mar 23 08:45:33 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * mipsbsd.c: Renamed from aout-mipsbsd.c. (set_arch_mach): Delete non-MIPS code. (reloc_howto_type_lookup): Ditto. * Makefile.in: Adjusted. * libbfd.c (bfd_tell): Update `where' field. (bfd_seek): Don't do anything if we're not changing the file position. If FILE_OFFSET_IS_CHAR_INDEX is defined, check `where' field against a SEEK_SET request. Call bfd_tell to re-update `where' field when done. (bfd_read, bfd_write) [FILE_OFFSET_IS_CHAR_INDEX]: Maintain `where' field. * hosts/sparc.h: Define FILE_OFFSET_IS_CHAR_INDEX. Mon Mar 22 23:18:10 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: added installcheck target Mon Mar 22 14:57:18 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_set_symbol_info): Relocate encapsulated stabs if the type is not stNil. Tue Mar 16 10:35:27 1993 Ken Raeburn (raeburn@cygnus.com) * elf32.c (elf_little_vec, elf_big_vec): Delete now-invalid forward declarations. * elf32-sparc.c (elf_sparc_howto_table): Don't use CONST here, it's implied by the type. Fri Mar 12 18:58:08 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.host: recognize sparc-sun-solaris2* instead of sparc-sun-solaris* Tue Mar 9 09:23:12 1993 Jim Kingdon (kingdon@cygnus.com) * rs6000-core.c: Add .ldinfo section. Fri Mar 12 11:57:52 1993 Ian Lance Taylor (ian@cygnus.com) * Makefile.in (MAKEOVERRIDES): Define to be empty. Fri Mar 12 08:32:11 1993 Steve Chamberlain (sac@thepub.cygnus.com) * section.c (bfd_set_section_contents): whitespace * seclet.c (seclet_dump_seclet): Don't try and fill sections with no contents. Thu Mar 11 19:26:15 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * hosts/go32.h: don't define POSIX_UTIME Tue Mar 9 10:52:01 1993 Fred Fish (fnf@cygnus.com) * elf32.c (elf_object_p): Use ELF_ARCH stored in xvec to match against machine architecture stored in the ELF header, to resolve ambiguities. * elf32.c (bfd_section_from_shdr): Bfd_make_section can return NULL, so only use results when non-NULL. * targets.c (elf32_m68k_vec, elf32_i860_vec): Add extern decls and add to vector of targets. Mon Mar 8 15:13:44 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_set_symbol_info): Encapsulated STABS symbols are always just debugging symbols. * coff-mips.c (ecoff_[gs]et_sym_index): Moved macros from here... libecoff.h (ecoff_[gs]et_sym_index): ...to here. Mon Mar 8 14:55:13 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * hppa.c (_PA_RISC_ID): Defined if not already defined (e.g., for hpux 7). Patch from friedman@gnu.ai.mit.edu. (hppa_object_p): Only check for DL_MAGIC and SHL_MAGIC if they're defined, which they aren't in hpux 7.0. * aix386-core.c: Include uinfo.h and coredump.h. Patch from Minh Tran-Le, tranle@intellicorp.com. Fri Mar 5 14:54:21 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_generic_reloc): If the addend is non-zero, go ahead and do the relocation. (ecoff_refhi_reloc): Don't to the relocation here, just remember what needs to be done. (ecoff_reflo_reloc): Do the REFHI relocation here. Thu Mar 4 14:44:01 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_bfd_reloc_type_lookup): New function. (ecoff_write_object_contents): Added BFD_ASSERT calls to ensure relocs are reasonable. * coff-msym.c: Eliminated uses of DEFUN. (ecoff_swap_tir_out): New function. Tue Mar 2 17:52:58 1993 Fred Fish (fnf@cygnus.com) (Ultrix 2.2 support from Michael Rendell ) * configure.host (vax-*-ultrix2*): Add triplet. * hosts/vaxult2.h: New file. * config/vaxult2.mh: New file. * aoutx.h (string.h): Include for strchr and friends. * archive.c (string.h): Include for memchr and friends. * elf32.c (string.h): Include for strrchr and friends. Sat Feb 27 00:44:24 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * aoutf1.c (sunos4_reloc_type_lookup): Unused; deleted. (MY_set_sizes): Use sunos4_set_sizes. * elf32.c: Renamed from elf.c. Several CPU-specific functions deleted, as well as elf-big and elf-little targets. * libelf.h: New file. * elf32-sparc.c, elf32-i386.c, elf32-i860.c, elf32-m68k.c: New files, new targets. * Makefile.in, config/*-elf.mt, targets.c: Adjusted. * i386linux.c (TARGETNAME): Use hyphens instead of parentheses. * coffcode.h (coff_compute_section_file_positions): Don't need variable "old_sofar" if compiling for i960. * reloc.c (bfd_default_reloc_type_lookup): First argument is now a bfd pointer. * libbfd.h: Updated. * ieee.c (exten, envi): "static" belongs first in declaration. Fri Feb 26 17:37:34 1993 Steve Chamberlain (sac@thepub.cygnus.com) * srec.c: add support for symbolsrec, srecords with symbols in them. Thu Feb 25 11:43:30 1993 John Gilmore (gnu@cacophony.cygnus.com) * ieee.c: cast all arguments of ieee_write_byte to bfd_byte to avoid lint complaints. Thu Feb 25 02:15:52 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elf.c (elf_write_object_contents): Section ".shstrtab" should be type SHT_STRTAB. Don't alter file offset for section 0. (reloc_type_names): Now an array instead of a macro. Still inside "#if 0", since it's used only in debugging code also in "#if 0". (struct elf_reloc_map_elt, struct elf_reloc_map): New types. (sort_reloc_map): New function. (sparc_reloc_map): New variable. (elf_bfd_reloc_type_lookup): New function. Tue Feb 23 12:17:16 1993 Ian Lance Taylor (ian@cygnus.com) * bfd-in.h (JUMP_TABLE): Added bfd_reloc_type_lookup and bfd_make_debug_symbol; they were already in the target structure. * Adjusted all uses of JUMP_TABLE. * coffgen.c, libcoff-in.h (coff_bfd_make_debug_symbol): Renamed from coff_make_debug_symbol. * libcoff.h: Updated accordingly. * Minor cleanups provoked by gcc warnings: * aoutx.h (NAME(aout, reloc_type_lookup)), cpu-h8300.c (local_bfd_reloc_type_lookup), cpu-z8k.c (local_bfd_reloc_type_lookup): Added default case to switches. * archive.c (do_slurp_bsd_armap, do_slurp_coff_armap), ieee.c (ieee_slurp_section_data), elf.c (elf_make_sections, elf_fake_sections, elf_compute_section_file_positions, elf_write_object_contents): Removed unused variables. * archures.c: Removed /* from within comment. * bout.c (b_out_squirt_out_relocs): Initialize r_extern. * oasys.c (oasys_write_data): Initialize i. Mon Feb 22 18:40:06 1993 Per Bothner (bothner@rtl.cygnus.com) * libcoff.h (obj_raw_syment_coun): New macro. * coffgen.c (coff_get_normalized_symtab): Initialize raw_syment_count. * coffgen.c (coff_find_nearest_line): Numerous little fixes. Mon Feb 22 15:03:07 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c (ecoff_set_symbol_info): stBlock symbols are always debugging symbols. (ecoff_get_debug): Offset the fdr adr by the adr of the first pdr, for compatibility with tools from MIPS. * config/bigmips.mt: New file; default vector is ecoff_big_vec. * config/irix3.mt, config/irix4.mt: Removed. * configure.in (mips-*-ecoff): New target; uses bigmips.mt. (mips-sgi-*, mips-big-*): Use bigmips rather than irix3. Wed Feb 17 23:40:41 1993 John Gilmore (gnu@cygnus.com) * hosts/hp300bsd.h: Add gross hack to determine whether we are running on BSD 4.3 or BSD 4.4, and use appropriate include files (and set other parameters) to match. Wed Feb 17 12:28:13 1993 K. Richard Pixley (rich@cygnus.com) * trad-core.c (trad_unix_make_empty_symbol): wrap PARAMS around an ansi definition which otherwise confuses non-ansi compilers. * aout-adobe.c (aout_adobe_object_p): eliminate a warning from vax ultrix cc by forward declaring getenv as is done in bfd_find_target. Tue Feb 16 17:56:58 1993 K. Richard Pixley (rich@cygnus.com) * elf.c (elf_info_to_howto): cast an enum into unsigned char avoiding a fatal error in vax ultrix 4.2 cc. Tue Feb 16 00:44:54 1993 John Gilmore (gnu@cygnus.com) * bfd-in.h, VERSION: Roll to version 2.1. Mon Feb 15 20:43:51 1993 John Gilmore (gnu@cygnus.com) * oasys.c (oasys_write_object_contents): Lint. * srec.c: Whitespace cleanup. Fri Feb 12 14:23:07 1993 Ian Lance Taylor (ian@cygnus.com) * coffgen.c (coff_print_symbol): Print correct tagndx value; cleaned up output formatting a bit. Fri Feb 12 08:28:56 1993 Steve Chamberlain (sac@thepub.cygnus.com) * coffcode.h (coff_set_arch_mach_hook): *FIXME* the H8/300 is always relaxable. Should be moved somewhere else. Thu Feb 11 14:09:42 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * aout-mipsbsd.c: Eliminated uses of DEFUN. (aout_mips_*_vec): Added seclet_link element. * Makefile.in (BFD_BACKENDS, CFILES, aout-mipsbsd.o): Added support for aout-mipsbsd target. * bout.c (get_value): Don't truncate 32-bit addend to 16 bits. Fri Feb 5 08:08:43 1993 Steve Chamberlain (sac@thepub.cygnus.com) * cpu-h8500.c (scan_mach): return false if it's not an H8/500 Thu Feb 4 12:52:40 1993 Steve Chamberlain (sac@thepub.cygnus.com) Add support for the H8/500 * coff-h8500.c, cpu-h8500.c, archures.c, coffcode.h, targets.c Thu Feb 4 12:35:02 1993 Ian Lance Taylor (ian@cygnus.com) * libecoff.h: New file. Defines ECOFF backend data for gdb. * coff-mips.c: Now includes libecoff.h. (ecoff_data_type): Moved to libecoff.h. (ecoff_slurp_symbolic_info): Made globally visible so that gdb can call it. If there is ever another ECOFF target, this and the swapping functions should be accessed via an ECOFF specific target vector. * Makefile.in (coff-mips.o): Depends on libecoff.h. Wed Feb 3 09:14:36 1993 Ian Lance Taylor (ian@cygnus.com) * coffcode.h: Removed MIPS specific information, since coff-mips.c no longer includes this file. * coff-msym.c (ecoff_swap_fdr_in, ecoff_swap_ext_in): Set reserved bits to 0 to make comparison test useful. * config/irix3.mh, config/irix4.mh (HDEFINES): Set to -G 4 to avoid overflowing GP accessible sections in binutils/objdump. Tue Feb 2 15:36:55 1993 Per Bothner (bothner@cygnus.com) * aoutx.h (NAME(aout,slurp_symbol_table)): Made symbol reading more robust: Fail if string index is out of string table range. Tue Feb 2 11:43:25 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * bout.c (b_out_get_relocated_section_contents, cases PCREL24 and PCREL13): Don't take dst_address into account; the input file has already taken care of that. Tue Feb 2 11:41:06 1993 Ian Lance Taylor (ian@cygnus.com) * coff-mips.c: Completed support for linker and binutils. Mon Feb 1 14:45:38 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * bout.c (b_out_get_relocated_section_contents, case ABS32): Keep original addend from section contents. Thu Jan 28 21:01:37 1993 John Gilmore (gnu@cygnus.com) Fix minor bugs reported by Carl Greco, : * hosts/delta88.h (strtol): Fix prototype. * config/m88k-coff.mt (SELECT_ARCHITECTURES): Fix name. Wed Jan 27 17:16:51 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * elf.c: Get rid of "#ifdef sparc". (RELOC_TYPE_NAMES): Never used (currently), so don't include it. (elf_sparc_howto_table): Renamed from elf_howto_table, and always used. (elf_info_to_howto): Use runtime conditionals on CPU type, not compile type conditionals on host CPU. (elf_little_vec, elf_big_vec): Use bfd_default_reloc_type_lookup, not null pointer. (reloc_type, RELOC_TYPE_NAMES): Include i386 values. Tue Jan 26 11:43:14 1993 Ian Lance Taylor (ian@cygnus.com) * section.c (SEC_IS_COMMON): New section flag, needed for MIPS ECOFF which has two common sections. (bfd_com_section): Set SEC_IS_COMMON flag. * bfd-in.h (bfd_is_com_section): New macro to test SEC_IS_COMMON. * aoutx.h, archive.c, bout.c, coff-a29k.c, coff-m88k.c, coff-mips.c, coffgen.c, ieee.c, oasys.c, reloc.c, syms.: Use bfd_is_com_section macro rather than checking for equality to bfd_com_section. Mon Jan 25 15:27:36 1993 Ian Lance Taylor (ian@cygnus.com) * coffcode.h (_bfd_coff_mkobject_hook): Pass aouthdr argument. (coff_mkobject_hook): Accept aouthdr argument. * coffgen.c (coff_real_object_p): Pass aouthdr to mkobject_hook. Handle NULL aouthdr argument. (coff_object_p): If there is no aouthdr, pass it as NULL to coff_real_object_p. * libcoff.h: Rebuilt for mkobject_hook changes. * coffswap.h (coff_swap_aouthdr_in, coff_swap_aouthdr_in): Swap additional MIPS ECOFF fields. Sat Jan 23 18:36:20 PST 1993 Ralph Campbell (ralphc@pyramid.com) * configure.host: added mips-dec-bsd* * configure.in: added mips-dec-bsd* * aout-mipsbsd.c: new file for mips-dec-bsd* * aout-target.h: don't define '' if 'MY_BFD_TARGET' is defined. * aoutx.h: added mips support. * archures.c: added mips support to bfd_default_scan(). * cpu-mips.c: added support for R4000 (untested). * libaout.h: added MIPS1 & MIPS2 magic numbers. * reloc.c: fix typo's in comments. Added BFD_RELOC entries which I hope will make it into include/bfd.h. * targets.c: added aout_mips_*_vec. Wed Jan 20 17:15:52 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * config/decstation.mt: Set DEFAULT_VECTOR to ecoff_little_vec. Tue Jan 19 09:06:14 1993 Ian Lance Taylor (ian@cygnus.com) * bfd-in.h (bfd_asymbol_value): Add needed parentheses. * libcoff-in.h: Update prototype for coff_count_linenumbers. Fri Jan 15 18:13:17 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * coff-msym.c (ecoff_swap_hdr_out, ecoff_swap_fdr_out, ecoff_swap_pdr_out, ecoff_swap_sym_out, ecoff_swap_ext_out, ecoff_swap_rndx_out, ecoff_swap_rfd_out, ecoff_swap_opt_in, ecoff_swap_opt_out, ecoff_swap_dnr_in, ecoff_swap_dnr_out): New functions. * coffswap.h: If NO_COFF_RELOCS is defined, don't define bfd_swap_reloc_in or coff_swap_reloc_out. * coff-mips.c: Added code to link and write out symbolic debugging information, and to swap relocs in and out. Thu Jan 14 15:51:58 1993 Steve Chamberlain (sac@thepub.cygnus.com) * libcoff.h, coffgen.c (coff_count_linenumbers), coffcode.h (coff_write_object_contents): coff_count_linenumbers returns the number of line number records it found. * coffgen.c (coff_write_linenumbers): only write out line numbers in the section they belong to. Mon Jan 11 18:32:22 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * targets.c (bfd_target): Added relocateable argument to _bfd_get_relocated_section_contents. Added _bfd_seclet_link target vector for linker use. * bfd.c (bfd_seclet_link): New macro. * bfd-in.h (JUMP_TABLE): Added _bfd_seclet_link. * seclet.c (rel, seclet_dump_seclet): Added relocateable argument and boolean return value. Made static. (bfd_generic_seclet_link): Renamed from seclet_dump. Added relocateable argument. * reloc.c (bfd_generic_get_relocated_section_contents): Added relocateable argument (if relocateable, saves relocs). * bout.c (b_out_get_relocated_section_contents), reloc16.c (bfd_coff_reloc16_get_relocated_section_contents): Added relocateable argument (if relocateable, just calls bfd_generic_get_relocated_section_contents). * libcoff-in.h (bfd_coff_reloc16_get_value): Added relocateable argument to prototype. * All targets: Set new _bfd_seclet_link vector to bfd_generic_seclet_link. Sat Jan 9 21:29:32 1993 Stu Grossman (grossman at cygnus.com) * coffgen.c: #include seclet.h. Sat Jan 9 19:48:14 1993 Stu Grossman (grossman at cygnus.com) * hppa.c (hppa_object_setup): Get rid of all knowledge of stabs debug info. Setup info about linker symbols only, and use standard bfd fields to hold the info. * (hppa_object_p): Remove unneeded decls. * (hppa_new_section_hook): Get rid of most of this. * libhppa.h (struct hppadata): Remove ten pounds of useless ugly fat. Remove all knowledge of stabs, remove redundant knowledge of linker symbols. * Remove macros for accessing fields which are now gone. Fri Jan 8 15:20:00 1993 Steve Chamberlain (sac@thepub.cygnus.com) * coffcode.h (sec_to_styp_flags): allow SEC_NEVER_LOAD to turn on STYP_NOLOAD bit. * coff-z8k.c: delete unused reloc functions Fri Jan 8 15:47:53 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfd.c (struct _bfd): Added ecoff_tdata to tdata union. * targets.c (enum target_flavour): Added bfd_target_ecoff_flavour. * coff-msym.c: Use DEFUN for function definitons. * coff-mips.c: Added code to read and print symbols, and to find line numbers. * coffcode.h: Moved many generic functions into coffgen.c. Moved swapping functions into coffswap.h for ECOFF use. Moved relocation functions, only used by h8300 and z8k, into reloc16.c. Added hooks for coffgen.c functions to backend data structure, and added hook functions. Still more could be done. * coffswap.h: New file to hold COFF swapping routines. * coffgen.c: New file to hold generic COFF functions. * reloc16.c: New file to hold h8300 and z8k specific relocation functions. * libcoff-in.h: Added declarations for functions in coffgen.c. * libcoff.h: Rebuilt to incorporate changes. * coff-h8300.c: Function name changes. * coff-z8k.c: Function name changes. Use coff_reloc16_extra_cases hook rather than defining EXTRA_CASES. * Makefile.in: Build new files coffgen and reloc16. Added dependencies of coff-*.o on coffswap.h and seclet.h. Thu Jan 7 16:16:26 1993 Per Bothner (bothner@cygnus.com) * ieee.c (ieee_slurp_sections): Add cast to avoid warning about discarding const. Wed Jan 6 00:16:49 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * archive.c, seclet.c, elf.c use bfd_xmalloc instead of malloc Tue Jan 5 09:35:57 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * configure.in (post-target): If --with-minimal-bfd is specified, set MINIMIZE=1. Mon Jan 4 07:20:01 1993 Steve Chamberlain (sac@thepub.cygnus.com) * srec.c (srec_write_records): one of my boards wants a CR between records. Wed Dec 30 12:46:30 1992 Ian Lance Taylor (ian@cygnus.com) * archive.c (do_slurp_coff_armap): set symdef_count correctly (it broke a couple of weeks ago). Tue Dec 29 21:41:05 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * elf.c (bfd_elf_find_section): Switch back to "struct ..." for return type, so libbfd.h doesn't reference undefined typedefnames. Tue Dec 29 13:54:35 1992 Ian Lance Taylor (ian@cygnus.com) * coffcode.h (coff_real_object_p): use name I386AIXMAGIC rather than I386SVMAGIC. (coff_pointerize_aux): don't pointerize a negative tagndx (sometimes generated by SCO 3.2v4 cc). * bout.c (calljx_callback, callj_callback, b_out_get_relocated_section_contents): warn if relocating against an undefined symbol. Mon Dec 28 14:30:55 1992 Stu Grossman (grossman at cygnus.com) * hppa.c: Get rid of DEFUN, use more conventional prolog stuff. Make a bunch more routines be static. * hppa.c (fill_spaces): Get rid of this, replace with much better written setup_sections(). * (setup_sections): New routine to create BFD sections for each space and subspace in SOM files. * (hppa_object_setup): Use BFD sections created by setup_sections() to locate GDB symbol table info. * (make_unique_section): New routine to create a BFD section. It ensures that the given name is unique, and will generate a unique one if necessary. * (hppa_object_p): Become much more paranoid about file header. * (make_bfd_asection): Call bfd_make_section to do the dirty work. Simplify code somewhat. * (hppa_core_file_p): Use proper name for stack section. * libhppa.h: Remove millicode_start, millicode_end decls. Mon Dec 28 11:03:22 1992 Ken Raeburn (raeburn@cygnus.com) * Makefile.in (coff-we32k.o, coff-z8k.o): Note dependencies. * reloc.c (bfd_perform_relocation): For normal 2- or 4-byte relocs, don't bother doing the adjustment if the value to add is zero. Sun Dec 27 17:45:05 1992 Fred Fish (fnf@cygnus.com) * bfd.c (bfd_get_size): New function that gets an upper bound on the possible size of any object in a bfd. * elf.c (bfd_elf_find_section, elf_get_str_section, elf_get_symtab_upper_bound): Rewrite to avoid NULL pointer dereferences. * elf.c (elf_big_vec, elf_little_vec): Document last three members initialized to NULL. Thu Dec 24 17:49:09 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * hppa.c: change a 'const' to 'CONST', or else HP C compiler dies Mon Dec 21 16:33:34 1992 Per Bothner (bothner@rtl.cygnus.com) * hosts/std-host.h: New file. Attempt at a generic/default set of definitions, to discourage porting to new hosts by copying. * hosts/news.h: Removed. * hosts/sparc.h: Use std-host.h. * bfd-in.h: New macros bfd_asymbol_bfd and bfd_asymbol_flavour; perhaps we can later remove the the_bfd field from each symbol. * syms.c (struct symbol_cache_entry): Remove unused field app_data. Add comment noting that the_bfd is almost redundant, but not quite. * aoutx.h, coff-a29k.c, coff-i386.c, coff-i960.c, coffcode.h: Use new macros bfd_asymbol_bfd and bfd_asymbol_flavour. * hppa.c (fill_spaces): Make slightly more rebust. * configure.in: Allow std-host as the "default" host. Mon Dec 21 17:24:13 1992 Stu Grossman (grossman at cygnus.com) * bfd.c: Add struct hppa_core_data to tdata union. * hppa.c: Conditionalize on HOST_HPPAHPUX instead of hp9000s800. Get rid of HPPA/BSD specific code. That will go somewhere else someday. * (fill_spaces): Don't spin forever and die if you don't find $MILLICODE$ subspace. * (hppa_object_p): Make sure that we have a real honest-to-cthulu exec file! * (hppa_core_file_failing_signal, hppa_core_file_failing_command): Make these work for HPUX. * (make_bfd_asection): New routine to make section creation a little easier. * (hppa_core_file_p): Completely rewrite, leave out bugs. * libhppa.h: #include the right system files. Redefine all of the structs/macros for hacking core files to use more sensible HPUX core file structures. * targets.c (target_vector): Conditionalize hppa_vec on HOST_HPPAHPUX, not hp9000s800. * hosts/hppahpux.h: #include stdlib.h to get correct decls for malloc and realloc. #define HOST_HPPAHPUX. Mon Dec 21 12:40:10 1992 Ian Lance Taylor (ian@cygnus.com) * Patches from Minh Tran-le . * configure.in (i386-*-isc*, i386-*-aix*): New targets. * configure.host (i386-*-isc*, i386-*-aix*): New hosts. * hosts/i386isc.h, config/i386isc.mh: New files for Interactive Unix. * hosts/i386aix.h, config/i386aix.mh: New files for AIX on PS/2. * aix386-core.c: New file for handling core files on AIX on PS/2. * targets.c: if AIX386_CORE, use aix386_core_vec. * coffcode.h (coff_real_object_p): check for I386SVMAGIC as well as I386MAGIC. Fri Dec 18 10:20:27 1992 Steve Chamberlain (sac@thepub.cygnus.com) * aoutf1.h (sunos4_write_object_contents): set flags to 0, fixing 1927. Thu Dec 17 19:35:32 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: added dvi target Thu Dec 17 00:36:24 1992 John Gilmore (gnu@cygnus.com) * bfd.c: Use right name for tekhex tdata struct. * tekhex.c: Insert leading_char (0) into bfd_target struct. Style. * libcoff.h: Updated to get spacing change from coffcode.h. * trad-core.c: leading_char is 0 (no symbols!), not '_'. Tue Dec 15 15:40:30 1992 Per Bothner (bothner@cygnus.com) * archive.c (do_slurp_bsd_armap, do_slurp_coff_armap): New functions, with the "guts" of the old bfd_slurp_bsd_armap and bfd_slurp_coff_armap, but assuming we've already checked if the armap is present or not. Also, rewrite a bit to avoid keeping around obstack data that we don't need. * archive.c (snarf_ar_header, _bfd_slurp_extended_name_table): Various fixes to correctly handle COFF_style archives names. (Note that because these have a trailing '/', the names can have embedded spaces.) * archive.c (bfd_slurp_armap): New function, replaces old bfd_slurp_bsd_armap and bfd_slurp_coff_armap. Recognizes _either_ format, and calls do_slurp_bsd_armap or do_slurp_coff_armap if either form of map is seen. * libbfd-in.h: Changed bfd_slurp_bsd_armap and bfd_slurp_coff_armap into macro synonyms for bfd_slurp_armap. * elf.c (elf_slurp_armap, elf_write_armap): Fix. * Makefile.in (AR_FLAGS): Use rc instead of non-standard qc. Mon Dec 14 17:08:08 1992 Stu Grossman (grossman at cygnus.com) * hppa.c: #include "sysdep.h", not . * libhppa.h: Make millicode_start and millicode_end be unsigned int to be same type as CORE_ADDR in GDB. Why are these here? Sat Dec 12 15:54:36 1992 Ian Lance Taylor (ian@cygnus.com) * coff-i386.c (CALC_ADDEND): if reloc is PC relative, add the vaddr of the section to the addend. * targets.c: if MINIMIZE is 1, and SCO_CORE is defined, add SCO_CORE to SELECT_VECS. (target_vector): add sco_core_vec. * sco-core.c (sco_core_vec): add leading underscore initializer. * configure.in (i[34]86-*-sco*): use target i386-sco. * config/i386-sco.mt: new file; define SCO_CORE. Thu Dec 10 02:13:15 1992 John Gilmore (gnu@cygnus.com) * aout-adobe.c (aout_adobe_object_p): Fix !strcmp thinko. Fri Dec 4 14:02:49 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * coffcode.h (bfd_coff_std_swap_table): Now static and const. Thu Dec 3 16:54:58 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * hosts/i386linux.h: Include unistd.h. * aoutx.h (print_symbol): aout_stab_name returns a constant string. * libaout.h (aout_stab_name): Fix prototype. * stab-syms.c (aout_stab_names): Array is now const. (aout_stab_name): Return value is now pointer to const. * aoutx.h, archive.c, archures.c, coffcode.h, ctor.c, reloc.c, syms.c: Doc fixes. * syms.c (asymbol): Added new field "app_data", for data particular to the application. Some of the linker flags ought to get moved to this field someday. * archures.c (bfd_default_scan): Recognize a few more numbers: 80486, 80960, and 960. * bfd-in.h (COFF_SWAP_TABLE): New is just address of bfd_coff_std_swap_table, cast to PTR. * bfd.c (bfd_coff_swap_*): Deleted macros. * targets.c (struct bfd_target): Deleted COFF-specific swapping routine pointers. * coffcode.h (type bfd_coff_backend_data): New structure type, contains pointers to the COFF-specific swapping routines. (bfd_coff_std_swap_table): New data structure, to be used when NO_COFF_SYMBOLS and NO_COFF_LINENOS are not defined. (bfd_coff_swap_*): New macros. * coff-mips.c (mips_coff_swap_table): New data structure. (ecoff_big_vec): Use it. * All COFF targets: Moved COFF_SWAP_TABLE to target-specific data. * All other targets: Deleted coff-specific vector entries. * trad-core.c: Fixed some `PARAMS' uses that were missing parentheses. Sun Nov 29 08:37:13 1992 Fred Fish (fnf@cygnus.com) * aoutx.h (some_aout_object_p): Protect arg prototype in callback_to_real_object_p with PARAMS macro for non-ANSI compilers. Sat Nov 28 04:01:21 1992 John Gilmore (gnu@cygnus.com) * aout-target.h, aoutf1.h, trad-core.c, coffcode.h, libaout.h, libbfd-in.h, bfd-in.h: Eliminate all PROTO calls, replace with PARAMS for readability. * aoutx.h: Add type to callback parameter. * coff-mips.c: Don't call trad-core.h, not needed. * trad-core.c: Incorporate trad-core.h declarations. Fix comments. * trad-core.h: Eliminate, unused. Wed Nov 18 13:16:17 1992 Steve Chamberlain (sac@thepub.cygnus.com) * format.c (bfd_check_format): if default target isn't found then look through the entire list rather than return early. Mon Nov 16 14:33:03 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * config/i960-coff.mt: reorder vec to match bfd_check_format (from Per) Thu Nov 12 17:01:41 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: pass down prefix and exec_prefix in FLAGS_TO_PASS Thu Nov 12 09:46:47 1992 Steve Chamberlain (sac@thepub.cygnus.com) * coff-z8k.c: checkpoint, more addressing modes handled * coffcode.h (get_value): don't truncate reloc->addend field, it's a long now. Wed Nov 11 23:57:55 1992 Brendan Kehoe (brendan@cygnus.com) * we32k.mt (TDEFAULTS): Use we32kcoff_vec, not i386coff_vec. Tue Nov 10 14:04:38 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: minor tweaks to make $(CC) command lines more consistent Mon Nov 9 23:58:17 1992 John Gilmore (gnu@cygnus.com) * opncls.c (bfd_fdopenr, bfd_close): Add doc about cacheing and about when file descriptors are closed. Sat Nov 7 00:42:20 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * bout.c (b_out_squirt_out_relocs): Make sure alignment relocs get written out correctly. Thu Nov 5 15:34:19 1992 Ian Lance Taylor (ian@cygnus.com) * section.c: New section bit SEC_SHARED_LIBRARY. coffcode.h (styp_to_sec_flags): if STYP_NOLOAD && (STYP_TEXT || STYP_DATA), set SEC_SHARED_LIBRARY. This seems to be correct for i386-sysv. Thu Nov 5 04:43:09 1992 John Gilmore (gnu@cygnus.com) * target.c (struct bfd_target): Eliminate the SDEF and SDEF_FMT macros; use PARAMS to declare the function pointers involved. * bfd-in.h, bfd.c, libbfd.h, reloc.c, seclet.h, section.c, targets.c: Rename struct bfd_seclet_struct to struct bfd_seclet. Thu Nov 5 02:59:09 1992 John Gilmore (gnu@cygnus.com) Cleanup: Replace all uses of EXFUN in the BFD sources, with PARAMS. * archures.c, reloc.c, section.c, tekhex.c: Use PARAMS in declaring pointers to functions. * cache.c, elf.c: Move static function decls to top, use PARAMS. * seclet.h: Declare external function with PARAMS. * doc/chew.c (exfunstuff): Eliminate. (paramstuff): Replace exfunstuff with function to generate PARAMS. * doc/proto.str: Use paramstuff rather than exfunstuff. * libbfd.h: Update, based on changes in source code and chew. Wed Nov 4 22:47:29 1992 John Gilmore (gnu@cygnus.com) * libieee.h: Add FIXME about removing limit on number of sections. * bfd-in.h: Improve comments to make it clear that bfd.h is the wrong place to edit this file. * Makefile.in (install): Install ansidecl.h and obstack.h in the same places where we install bfd.h. Wed Nov 4 13:40:23 1992 Sean Eric Fagan (sef@cygnus.com) * coffcode.h (coff_swap_aux_out, coff_swap_aux_in): check for symbol type before blindly modifying the auxent. Specifically, only modify the endndx fields for types that need it, and don't set the array information for non-arrays. Wed Nov 4 09:30:50 1992 Ken Raeburn (raeburn@cygnus.com) * aoutx.h (some_aout_object_p): Section list should be set up correctly anyways; don't have to set up "next" pointers manually. Mon Nov 2 12:36:14 1992 Ian Lance Taylor (ian@cygnus.com) * config/delta88.mh, config/hp300.mh, config/hppahpux.mh, config/i386v.mh: removed -DUSG from HDEFINES. hosts/delta88.h, hosts/hp300.h, hosts/hppahpux.h, hosts/i386v.h: defined USE_UTIME. hosts/i386v.h: don't define POSIX_UTIME. Fri Oct 30 16:13:52 1992 Steve Chamberlain (sac@thepub.cygnus.com) * ieee.c (ieee_slurp_sections): make a private copy of the section's name before truncating it. Thu Oct 29 08:30:50 1992 Steve Chamberlain (sac@thepub.cygnus.com) * hppa.c: add symbol_leading_char entry in transfer vec ,Wed Oct 28 16:11:57 1992 Steve Chamberlain (sac@thepub.cygnus.com) * ieee.c (get_symbol): can now cope when two symbols of a different class, but the same index number occur consecutively. (get_section_entry): nicer name for sections being forward referenced. (ieee_archive_p): don't free the filename string, since it was never malloced. Wed Oct 28 13:42:09 1992 John Gilmore (gnu@cygnus.com) * coffcode.h (coff_write_object_contents): Zero timestamp field. Tue Oct 27 12:24:34 1992 Ian Lance Taylor (ian@cygnus.com) * coffcode.h (coff_swap_aux_out): set the fcnary info before optionally setting the dimen info, since they are in the same memory locations. Also zero out external auxent. (coff_write_symbol): don't zero external auxent; now done in coff_swap_aux_out. Fri Oct 23 13:55:35 1992 Ian Lance Taylor (ian@cygnus.com) * Check fclose return value for errors. libbfd.h: bfd_cache_close now returns a boolean. cache.c (bfd_cache_delete): return fclose success value. (bfd_cache_close): return bfd_cache_delete return value. opncls.c (bfd_close, bfd_close_all_done): return result of bfd_cache_close. Fri Oct 23 10:32:36 1992 Steve Chamberlain (sac@thepub.cygnus.com) * seclet.c (rel): don't load sections without the SEC_LOAD bit. Thu Oct 15 10:16:35 1992 Steve Chamberlain (sac@thepub.cygnus.com) * coff-m68k.c (m68k_howto2type, SELECT_RELOC): new function to work out a coff relocation type from a howto's attributes rather than using the input r_type field. This fixes PR1677 and allows conversion of a.out relocs to coff relocs. * coffcode.h (coff_write_relocs): if supplied a relocation relative to an absolute symbol, use the right symbol index. * reloc.c (bfd_perform_relocation): do a partial link for coff relocs right. Fri Oct 23 08:15:56 1992 Ian Lance Taylor (ian@cygnus.com) * changes to support i386-sysv with shared libraries: * coffcode.h (sec_to_styp_flags): if TWO_DATA_SECS is defined, check for .data2; if _LIB is defined, check for it; map SEC_NEVER_LOAD to STYP_NOLOAD. (styp_to_sec_flags): map STYP_NOLOAD to SEC_NEVER_LOAD. (make_a_section_from_file): if TWO_DATA_SECS, accept .data2. (coff_write_object_contents): force vaddr of .lib to 0; set scnptr if section has contents, not just if it is loadable; if TWO_DATA_SECS, check for .data2 (coff_set_section_contents): set vma of .lib section to number of .lib sections. * coff-i386.c: define TWO_DATA_SECS; use a special CALC_ADDEND; don't define coff_write_armap to bsd_write_armap. * hosts/i386v.h: don't include , since it is not provided by SVR3.2. Thu Oct 22 22:40:20 1992 Brendan Kehoe (brendan@lisa.cygnus.com) * solaris2.h: Get the definition of alloca from alloca.h if we aren't using gcc. Thu Oct 22 03:07:28 1992 John Gilmore (gnu@cygnus.com) * configure.in (i960-*-{aout,bout}): Support these. Wed Oct 21 03:46:34 1992 John Gilmore (gnu@cygnus.com) * config/a29k-aout.mt (DEFAULT_TARGET): Set to one that exists. Thu Oct 15 15:05:39 1992 Per Bothner (bothner@cygnus.com) * apollo68.h, apollov68.h, hp300.h, i386v.h, irix3.h: Remove no-longer-used definitions of L_SET and L_INCR. * i386linux.h: Tweaks to smooth Linux build. Thu Oct 15 01:32:22 1992 John Gilmore (gnu@cygnus.com) * seclet.h: Add enum tag to bfd_seclet_enum_type. * bfd-in.h (file_ptr): Update comments, make FIXME re off_t. * aout-adobe.c, aoutf1.h, archive.c, bout.c, coff-rs6000.c, coffcode.h, elf.c, ieee.c, libaout.h, libbfd.c, oasys.c, sco-core.c: Lint: Second argument of bfd_seek is always file_ptr. Third argument is SEEK_SET or SEEK_CUR. Result is always 0 or -1. * aout-adobe.c, aoutf1.h, aoutx.h, bout.c coff-m68k.c, coff-z8k.c, coffcode.h, elf.c, libaout.h, libbfd-in.h, srec.c: Lint. Fri Oct 9 03:46:37 1992 John Gilmore (gnu@cygnus.com) * configure.host: New file, contains mapping of host configs to host support file names for bfd, binutils, opcodes. * configure.in: Use it. * i386aout.c: Cleanup, dump TARGET_IS_LITTLE_ENDIAN_P. * i386bsd.c: Cleanup, reformat. * config/i386-bsd.mt: Comment changes. * config/i386bsd.mh: New file for core file support. * hosts/i386bsd.h: Merge changes from Peter Schauer. * bout.c (ALIGN): Rename to ALIGNER, since system header files on BSD 4.4 define ALIGN (sigh!). Thu Oct 8 22:18:10 1992 Mark Eichin (eichin at tweedledumber.cygnus.com) * libaout.h (aout_backend_data): added exec_header_not_counted field. For ZMAGIC files only, when text_includes_header is set, by default the length of the exec header is counted in the text section size. For go32, exec header is mapped in but does *not* contribute to the size of section. * aoutx.h (aout_adjust_sizes_and_vmas): if exec_header_not_counted is not set, but ztih is, add the size of the exec header to the recorded size of the text section. * aoutf1.h (sunos4_aout_backend): clear exec_header_not_counted. * i386aout.c (i386aout_backend_data): set exec_header_not_counted. Also set text_includes_header. * aout-target.h (*_backend_data): cleare exec_header_not_counted by default in MY(backend_data). Thu Oct 8 18:12:49 1992 Ken Raeburn (raeburn@cygnus.com) * aout-target.h (callback): Don't define this function if it won't be used. * aoutx.h (some_aout_object_p): Restore old aout_data value if this type doesn't match. Don't lose if file sections have already been created. (set_arch_mach): Set reloc_entry_size. (slurp_symbol_table): Use bfd_h_get_{16,8} for reaeding symbol data. * hosts/i386bsd.h: New file. * configure.in: Recognize i[34]86-*-bsd host. * aout-target.h (callback, write_object_contents): Delete unused variables. * aoutx.h (reloc_type_lookup): New function. * aout-target.h (MY_reloc_howto_type_lookup): Use it as default. * aoutf1.h (sunos4_reloc_type_lookup): Deleted. (MY_reloc_howto_type_lookup): Don't define it. * aoutx.h (adjust_sizes_and_vmas): Don't bother with padding for OMAGIC files. (slurp_symbol_table): Use header byte order, not target byte order, for reading symbol data. Thu Oct 8 17:33:39 1992 John Gilmore (gnu@cygnus.com) * configure.in: Undo some brain damage in the host section. * configure.in: Reformat the target section, test many configs. * Makefile.in (make): Remove obsolete `make make'. * aoutx.h (some_aout_object_p): Make defines line up. Thu Oct 8 08:52:48 1992 Steve Chamberlain (sac@thepub.cygnus.com) Now a bfd knows whether underscores are normally prepended to symbols in its file format. * aout-adobe.c, aout-target.h, bout.c, coff-a29k.c, coff-h8300.c, coff-z8k.c: targets set so they have leading underscore * coff-i386.c, coff-i960.c, coff-m68k.c, coff-mips.c, coff-m88k.c, coff-rs6000.c, coff-we32k.c, elf.c, ieee.c, srec.c: targets set without leading underscore flag * targets.c: add symbol leading char to xvec description * bfd-in.h (bfd_get_symbol_leading_char): new macro. Mon Oct 5 14:32:55 1992 Per Bothner (bothner@cygnus.com) * archive.c: Make errno global. * archive.c (_bfd_write_archive_contents): If read fails (and errno!=0) set bfd_error to malformed_archive (since this probably indicates a truncated archive), rather than system_call_error. Mon Oct 5 03:33:39 1992 Mark Eichin (eichin at tweedledumber.cygnus.com) * Makefile.in: added rules for i386bsd.c * i386bsd.c: new file, supporting 386bsd. * configure.in: recognize i386-*-bsd target. * config/i386-bsd.mt: new file - 386bsd target configuration. Thu Oct 1 17:51:07 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: re-arrange host section to use *-*-* notation, clean up some of the target section as well * seclet.c: cast result of bfd_get_relocated_section_contents to avoid compiler warnings Tue Sep 29 13:24:09 1992 Ken Raeburn (raeburn@cygnus.com) * coffcode.h (coff_section_symbol): Create section if it doesn't already exist. * bout.c: Removed some unused variables. Tue Sep 29 08:30:21 1992 Ian Lance Taylor (ian@cygnus.com) * Portability fixes from p3: coffcode.h (coff_write_relocs): removed sanity check until it works on all targets (per advice from sac). config/hp9000.mh: new file to define USG. hppa.c: #undef hppa before the JUMP_TABLE. hosts/hppahpux.h: #define NATIVE_HPPAHPUX_COMPILER if not __STDC__. targets.c (bfd_target_list): if NATIVE_HPPAHPUX_COMPILER, make local variable target volatile to avoid mysterious bug in HP9000/700 cc. Sat Sep 26 03:58:49 1992 John Gilmore (gnu@cygnus.com) * config/hppabsd.mh, config.hppahpux.mh: Remove various bogosity. * hosts/hppahpux.h: Remove bcopy and index circumventions. Fri Sep 25 22:36:52 1992 John Gilmore (gnu@cygnus.com) * coff-z8k.c (func_da, func_jr): Lint. * coffcode.h: Use memset rather than bzero. * elf.c: Use memcpy rather than bcopy. * tekhex.c: Use memset rather than bzero. Fri Sep 25 19:14:48 1992 John Gilmore (gnu@cygnus.com) Add Adobe a.out support. * aout-adobe.c: New file. So far, only reads a.out.adobe. FIXME. * config/adobe.mt: Add. * configure.in (*-adobe-* target): Add. * targets.c (a_out_adobe_vec): Add. * Makefile.in: add aout-adobe.c. * configure.in: Put two dashes in all entries to be matched. Add comments to remind people to do this. Reorder all entries that match manufacturer names, to occur last, so they will only be matched if no more specific match occurs. Remove manufacturers `aout', `bout', `coff', and `elf'. Fri Sep 25 15:03:22 1992 Brendan Kehoe (brendan@rtl.cygnus.com) * elf.c (section_from_elf_index): Return bfd_abs_section, not 0, since we should never have a NULL section. (elf_slurp_symbol_table): If st_shndx doesn't match any of our tests, set the section to bfd_abs_section. Fri Sep 25 11:11:57 1992 Steve Chamberlain (sac@thepub.cygnus.com) * coff-z8k.c: getting closer * coffcode.h (coff_get_relocated_section_contents): allow EXTRA_CASES hooks for different arches to provide different reloc types. * seclet.h: #ifndef around it to allow multiple inclusion * srec.c: minor doc fix Mon Sep 21 14:33:58 1992 Ian Lance Taylor (ian@cygnus.com) * hosts/hp9000.h, hosts/irix3.h: changes from WRS. Sun Sep 20 08:48:25 1992 Fred Fish (fnf@cygnus.com) * configure.in: Use i386-elf for all i386/i486 sysv4 hosts, not just ncr. Thu Sep 17 06:40:46 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * bout.c (b_out_slurp_reloc_table): Clear howto field before filling in reloc, in case immediately following code doesn't set it. Fri Sep 11 15:37:06 1992 Ian Lance Taylor (ian@cygnus.com) * coffcode.h (coff_renumber_symbols): set the last renumbered symbol pointer to NULL, as expected by coff_write_linenumbers. (coff_write_relocs): apparently a non-zero addend is OK for reloc type R_IHCONST used on the 29k. Thu Sep 10 13:28:24 1992 John Gilmore (gnu@cygnus.com) * opncls.c (bfd_fdopenr): Determine whether to fdopen for update, based on how the underlying file was opened. Obsoletes FASCIST_FDOPEN. * hosts/rs6000.h, hosts/tahoe.h, hosts/vaxbsd.h: Remove all FASCIST_FDOPEN config defines. Tue Sep 8 21:37:58 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * sparc-opc.c: Moved to opcodes library, now that we have one. * Makefile: Don't compile it. Tue Sep 8 10:10:34 1992 Ian Lance Taylor (ian@cygnus.com) * aoutx.h: adjust_sizes_and_vmas did not return anything. Thu Sep 3 19:29:04 1992 Per Bothner (bothner@rtl.cygnus.com) * section.c (bfd_set_section_flags): Remove a sanity check. It is unfortunately broken, and prevents strip from working. Thu Sep 3 16:14:40 1992 Jim Wilson (wilson@sphagnum.cygnus.com) * sparc-opc.c (condr): Remove extraneous, but harmless, backlash created by last change. Thu Sep 3 13:52:38 1992 Per Bothner (bothner@rtl.cygnus.com) * reloc.c (reloc_howto_struct): Make size field be unsigned. * bfd-in.h: Bump to version 2.0. Thu Sep 3 09:05:37 1992 Stu Grossman (grossman at cygnus.com) * bout.c, cpu-z8k.c: Use enums when initializing structs to keep braindamaged HP/Apollo compiler happy. Wed Sep 2 02:53:29 1992 John Gilmore (gnu@cygnus.com) * format.c: Fix description of search for matching target. * aoutx.h (some_aout_object_p): Set SEC_CODE and SEC_DATA. * targets.c: Update description of search for matching target. * Makefile.in (do_clean, clean): Fix infant mortality typo. (docdir): Set to ./doc, not ${srcdir}/doc, which has no makefile. (z8k and we32k files): `*.o: *.c': avoid Sun Make bug. Wed Sep 2 00:26:32 1992 Per Bothner (bothner@rtl.cygnus.com) * Makefile.in: Added mostlyclean/clean/distclean rules. Tue Sep 1 13:38:40 1992 Per Bothner (bothner@cygnus.com) * targets.c (target_vector): Take out oasys (unless that is the default): Because there is no magic number in archives, there can be annoying target mis-matches. Mon Aug 31 10:11:37 1992 Jim Wilson (wilson@sphagnum.cygnus.com) * sparc-opc.c: Rigorously updated to match architecture manual. Mon Aug 31 08:07:58 1992 Steve Chamberlain (sac@thepub.cygnus.com) * aoutx.h (aoutswap_ext_reloc_out), bout.c (b_out_squirt_out_relocs): fix bug 1506 where abs symbols attached to the built-in abs_section were not written out correctly. Fri Aug 28 16:29:15 1992 Ian Lance Taylor (ian@cygnus.com) * archive.c (bfd_slurp_bsd_armap): if the symdef_count is too large, assume we're using a swapped byte order and fail with wrong_format rather than dumping core. Fri Aug 28 15:38:03 1992 Ken Raeburn (raeburn@cygnus.com) * Renamed opc-sparc.c to sparc-opc.c for systems with short filename constraints. * Makefile.in: Updated to reflect change. Thu Aug 27 13:05:28 1992 Brendan Kehoe (brendan@cygnus.com) Add preliminary support for the we32k: * Makefile.in, archures.c, coffocode.h, configure.in, targets.c: Minor edits. * coff-we32k.c, cpu-we32k.c, config/we32k.mt, hosts/we32k.h: New files. Wed Aug 26 14:20:16 1992 Steve Chamberlain (sac@thepub.cygnus.com) * bout.c: added support for relaxable alignment relocs. * seclet.c (rel, seclet_dump_seclet, seclet_dump): get the app to pass down pointer to play area rather than use alloca * cpu-z8k.c (compatible): made static to reduce name space polution. Tue Aug 25 08:39:10 1992 Steve Chamberlain (sac@thepub.cygnus.com) Add basic support for the z8k: * Makefile.in, archures.c, coffcode.h, configure.in, reloc.c, section.c, targets.c, * syms.c: move mis-inserted patch. Fri Aug 14 15:39:29 PDT 1992 Howard Chu (hyc@hanauma.jpl.nasa.gov) Documentation fixes: * ctors.c, format.c, section.c, reloc.c: append " -" to item tags. * reloc.c, section.c, syms.c, targets.c: add DOCDD before @node comments. * reloc.c: break out addend item from surrounding text. * doc.str (DOCDD): Defined. Adds text to output. (bodytext): Put bulletize before kill_bogus_lines. * chew.c (bulletize): End itemization after a blank line, to prevent following text from being swallowed up in an item. Mon Aug 24 20:50:22 1992 Stu Grossman (grossman at cygnus.com) * configure.in: Add sparclite as a target. Mon Aug 24 12:06:31 1992 Steve Chamberlain (sac@thepub.cygnus.com) * ieee.c (ieee_get_symtab): always null terminate the symbol list, lint. * coffcode.h (coff_add_missing_symbols): if symbols don't come from a coff file (csym is null), dont deref them * ieee.c (parse_expression): get the answer right when adding an abs+(sec+off), (ieee_generic_stat_arch_elt): call ieee_object_p on elts so that filename is filled in. Thu Aug 20 19:05:48 1992 Ken Raeburn (raeburn@cygnus.com) * bout.c (howto_align_table): New set of relocs, with enough data for "objdump -r" to work. (b_out_reloc_type_lookup): Recognize alignment relocs. Tue Aug 18 12:57:45 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: added FLAGS_TO_PASS, and used it for all recursive invocations of make. Also, always create installation directories. * config/apollov68.mh: removed -g from CC definition. Mon Aug 17 13:40:08 1992 Ken Raeburn (raeburn@cygnus.com) * config/decstation.mh (HDEFINES): Specify "-G 4" to avoid overflowing gp-offset range. Mon Aug 17 11:44:28 1992 Steve Chamberlain (sac@thepub.cygnus.com) * srec.c (srec_set_section_contents): don't write out sections without the LOAD and ALLOC attributes Mon Aug 17 11:55:07 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * archures.c, cpu-m68k.c, cpu-sparc.c: Undo 16 June changes. * libaout.h (struct aout_backend_data): New callback "set_sizes". * aout-target.h (callback): Don't set page/seg sizes. (mkobject): Ditto. (set_sizes): New routine. (backend_data): Point to it. * aoutf1.h (sunos4_set_sizes): Heed architecture when setting sizes. (sunos4_aout_backend): Point to it. * aoutx.h (set_arch_mach): Call set_sizes callback. Fri Aug 14 19:22:18 1992 Per Bothner (bothner@cygnus.com) * aout-target.h: Make _bfd_slurp_extended_name_table be the default. Given that we *write* the suckers (for long archive member names), we really ought to be able to read them! * trad-core.c: Don't include . It doesn't seem to be needed, and many machines don't have it. Thu Aug 13 09:53:39 1992 Steve Chamberlain (sac@thepub.cygnus.com) * coff-m68k.c (vector): read and write archives in coff format. Tue Aug 11 12:19:42 1992 Ken Raeburn (raeburn@cygnus.com) * opc-sparc.c: New file. Sat Aug 8 23:15:35 1992 Fred Fish (fnf@cygnus.com) * bout.c (bfd_reloc_status_type, callj_callback): Cast void* pointers to bfd_byte* before performing arithmetic on them. Such use with bare void* pointers is a gcc extension. * cache.c (bfd_cache_delete): Forward decl with prototype form. * archive (normalize): Add to CONST to match actual usages with CONST. Mon Aug 3 00:35:29 1992 Fred Fish (fnf@cygnus.com) * configure.in: Recognize i486 host cpu, and use i386-elf for i486-ncr-sysv4. Sat Aug 1 13:49:59 1992 Fred Fish (fnf@cygnus.com) * config/stratus.mt (CC): Remove definition. * elf.c (bfd_section_from_shdr): Test for the possibility that section_from_elf_index returns NULL and don't dereference it. Mon Jul 20 02:46:09 1992 D. V. Henkel-Wallace (gumby@cygnus.com) * add hppa_data to bfd tdata (indirectly via sef). * config/hppahpux.mh: hpux is -DUSG (patch by sef) Sat Jul 18 15:50:11 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: error messages to stderr, not stdout Fri Jul 17 18:32:46 1992 K. Richard Pixley (rich@rtl.cygnus.com) * bfd.c, cache.c, coff-a29k.c, coff-i386.c, coff-i960.c, coff-m68k.c, coff-m88k.c, demo64.c, libaout.h, libbfd.c, oasys.c, opncls.c, sunos.c, targets.c: removed rcsid's. Fri Jul 17 17:06:56 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: recognize hppa* instead of hppa Thu Jul 16 16:39:25 1992 Steve Chamberlain (sac@thepub.cygnus.com) * coff-m68k.c: added R_RELLONG_NEG reloc type, and changed RTYPE2HOWTO to cope with same. * reloc.c (bfd_perform_relocation): added support for size of -2 (subtract a word reloc type). Updated doc. Thu Jul 16 16:28:09 1992 K. Richard Pixley (rich@rtl.cygnus.com) * Makefile.in: merged changes from progressive, removed rcsid. * archures.c, archive.c, Makefile.dos: removed rcsid. Thu Jul 16 08:08:25 1992 Steve Chamberlain (sac@thepub.cygnus.com) * bfd-in.h : add BFD_IS_RELAXABLE flag * bout.c (bout_swap_exec_header_[in_out]): new field in exec header e_relaxable, major hackery in callbacks * libaout.h : add space for a_relaxable. * seclet.c (rel): don't relax empty sections Wed Jul 15 07:57:46 1992 Steve Chamberlain (sac@thepub.cygnus.com) * section.c (STD_SECTION): add some casts to the initializers for dumb compilers Tue Jul 14 14:06:28 1992 Stu Grossman (grossman at cygnus.com) * rs6000-core.c (rs6000coff_core_p): Greatly simplify expression, and add appropriate casts to keep (picayune) aix-cc happy. Mon Jul 13 05:06:51 1992 John Gilmore (gnu at cygnus.com) * elf.c (elf_slurp_symbol_table): Now 2nd arg is where to write symbol pointers. Punt expensive & useless bfd_realloc. Use malloc for raw symbols, and free it before returning. (bfd_section_from_shdr): Do not slurp symbol table until politely asked. Do not even slurp string tables. (elf_get_symtab_upper_bound): Count 'em without reading them. (elf_get_symtab): This is how to politely ask. Schlurp! This should probably just *become* elf_slurp_symbol_table, FIXME. Wed Jul 8 16:24:33 1992 Steve Chamberlain (sac@thepub.cygnus.com) * archive.c (bsd_write_armap): write the timestamp of the archive header to be just a little bit later than the timestamp of the file, otherwise the linker will complain that the index is out of date. Tue Jul 7 00:23:23 1992 Fred Fish (fnf@cygnus.com) * configure.in: Add m68k-ericsson-*. Sat Jul 4 03:29:41 1992 John Gilmore (gnu at cygnus.com) * syms.h: Define BSF_FILE, update BSF_SECTION_SYM desc. * elf.c: Remove unconditional debug printf's. (elf_write_object_contents, elf_slurp_symbol_table): Handle BSF_SECTION_SYM <=> STT_SECTION, BSF_FILE <=> STT_FILE. (elf_slurp_symbol_table): Hand out symbols in forward, not reverse order. Simplify duplicate code. Fri Jul 3 20:23:34 1992 Fred Fish (fnf@cygnus.com) * elf.c: Remove "(void)" casts from function calls where the return value is ignored, in accordance with GNU coding standards. Tue Jun 30 16:49:12 1992 Fred Fish (fnf@cygnus.com) * hppa.c: Apply John's standard fix to avoid "empty translation unit" warnings from some ANSI-C compilers. Thu Jun 25 04:39:25 1992 John Gilmore (gnu at cygnus.com) * hosts/solaris2.h: Configure same as sysv4. Tue Jun 23 21:54:44 1992 Fred Fish (fnf@cygnus.com) * libbfd.h, libbfd-in.h (bfd_seek): Make prototype match definition. * reloc.c (bfd_default_reloc_type_lookup): Make cast on return type match actual return type. * elf_print_symbol (section_name): Make CONST. Mon Jun 22 17:35:24 1992 Per Bothner (bothner@cygnus.com) * i386linux.c, hosts/i386linux.h, config/i386-linux.mt: New files, for Linux (a free Unix clone for 386 machines). * Makefile.in, configure.in, targets.c: Update accordingly. Fri Jun 19 20:23:21 1992 Steve Chamberlain (sac@thepub.cygnus.com) Lints for bfd_reloc_code_type->bfd_reloc_code_real_type, and correct calling of howto special functions and fixes from Raeburn for gas<>bfdness * archures.c: nuke bfd_reloc_code_type * bout.c, cpu-h8300.c, coff-i960.c, coff-m88k.c: special function lint * coffcode.h (styp_to_sec_flags): STYP_INFO is marked as SEC_NEVER_LOAD, various other bfdgas newness * reloc.c->libbfd.h: change protype of bfd_default_reloc_type_lookup * targets.c: change jump table vector to above Fri Jun 19 19:00:45 1992 John Gilmore (gnu at cygnus.com) * elf.c (bfd_elf_find_section): Mark as INTERNAL_FUNCTION so its prototype will be included in libbfd.h. Change result type to struct * (rather than equivalent typedef) so it can be used in the prototype, where they typedef won't be known. * libbfd.h: Updated version. Fri Jun 19 15:21:56 1992 Stu Grossman (grossman at cygnus.com) * Makefile.in, archures.c, configure.in, cpu-hppa.c, hppa.c, libhppa.h, targets.c: HPPA merge. Fri Jun 19 12:21:38 1992 John Gilmore (gnu at cygnus.com) * configure.in: Separate Solaris2 from SYSV4 on SPARC. * config/solaris2.mh: Kludge around Sun compiler bug. Wed Jun 17 14:02:46 1992 Stu Grossman (grossman at cygnus.com) * libaout.h (aout_backend_data): Change defs of two bitfields to be unsigned chars instead to get around rs6000 compiler problem. Wed Jun 17 13:55:31 1992 Fred Fish (fnf@cygnus.com) * elf.c (bfd_section_from_shdr, elf_slurp_symbol_table): Correct misconception that there can be only one symbol table. Only call elf_slurp_symbol_table on the full symbol table, not the dynamic one which is only a subset of the full one. Wed Jun 17 15:54:57 1992 Ken Raeburn (Raeburn@Cygnus.COM) * coffcode.h (coff_compute_section_file_positions): For I960, don't align sections in file. Tue Jun 16 06:28:21 1992 Ken Raeburn (Raeburn@Cygnus.COM) * targets.c (struct bfd_target): Added field for target-specific (but not file-specific) data, for distinguishing minor characteristics between (e.g.) a.out formats. * section.c (struct sec): New field user_set_vma indicates vma field should be heeded, not assumed to be unset. (STD_SECTION): Initialize that field of standard sections to zero. * bfd-in.h (bfd_set_section_vma): Set user_set_vma to true. * coffcode.h (coff_write_relocs): Write out swapped reloc, not pre-swapped version. * archures.c (struct bfd_arch_info): Fixed order of comment and field decl. New fields indicate size of page and segment for architecture. * cpu-m68k.c (N): Fill in values. * cpu-sparc.c (arch_info_struct): Ditto. * libaout.h (struct aout_backend_data): Various bits of data (not all used currently) with characteristics of a.out implementation. Important field for now is text_includes_header, indicating that the text section starts immediately after the file header, which gets mapped in with it. (struct aout_data): New fields indicate whether vma has been adjusted yet (not yet used), and what magic number will be used in the output file (should go away in favor of vma_adjusted). (WRITE_HEADERS): Code for dealing with section sizes and related header fields replaced with call to adjust_sizes_and_vmas. * aoutx.h (some_aout_object_p): Fill in magic number field. Set WP_TEXT flag for ZMAGIC as well as NMAGIC files. (set_arch_mach): Set page size and segment size once CPU type is known. (adjust_sizes_and_vmas): New function; has much code moved from set_section_contents and WRITE_HEADERS. Sets or adjusts vma and size parameters, as well as many header fields, after deciding on magic number for output file. Checks to ensure that this adjustment has only been done once. (set_section_contents): Call adjust_sizes_and_vmas instead of doing much of the work here. * aout-target.h (MY_make_debug_symbol, MY_backend_data): Provide default (null) values of these fields. * aoutf1.h (sunos4_write_object_contents): Don't override a_text value in exec header. (sunos4_aout_backend, MY_backend_data): Define backend data indicating file header is included in text section. * aoutf1.h (MY_reloc_howto_type_lookup): Fix typo. * hosts/sparc.h (abort, exit): Hide these names if compiling with gcc version 2, to avoid warnings. Mon Jun 15 12:26:56 1992 Fred Fish (fnf@cygnus.com) * config/ncr3000.mh (INSTALL, RANLIB): Don't use /usr/ucb/install, it's broken on ncr 3000's. Use simple "true" for RANLIB. Sat Jun 13 09:16:43 1992 Michael Tiemann (tiemann@rtl.cygnus.com) * configure.in (m680[01234]0-wrs-*): Fix typo in match pattern. Fri Jun 12 19:48:34 1992 John Gilmore (gnu at cygnus.com) * section.c (STD_SECTION): Remove extra semicolon in declarations. * configure.in: Rewrite target parsing to use simple format. Handle sparc-sun-solaris2 configuration. * aout64.h: Avoid ANSI C brain death warning. * elf.c: Avoid trigraph (???) or /* in comments. Fri Jun 12 14:51:14 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * config/sysv4.mh: new file, RANLIB=echo * configure.in: handle Solaris2 as -sysv4 or -solaris2 Thu Jun 11 00:52:03 1992 John Gilmore (gnu at cygnus.com) * elf.c (elf_obj_tdata): Merge elf_obj_tdata_struct and elf_core_tdata_struct into a single common struct. Core files wouldn't have worked at all without this. (bfd_elf_find_section): New function for GDB's undercover use to find string sections that BFD hides from it. (elf_get_str_section): Avoid multiple alloc&reads for same data; lint. (elf_object_p, elf_core_file_p): Allocate internal file header storage dynamically. * bfd.c (union {...} tdata): Remove elf_core_tdata_struct. * demo64.c: Prevent "empty translation unit" warnings from idiots. Tue Jun 9 17:15:26 1992 Fred Fish (fnf at cygnus.com) * config/{i386v4.mh, ncr3000.mh}: Update RANLIB, add INSTALL. Sat Jun 6 17:02:51 1992 John Gilmore (gnu at cygnus.com) * configure.in: Handle Solaris2 as *-sun-sysv4 or as *-sun-sunos5. Sun May 31 05:45:00 1992 david d `zoo' zuhn (zoo@cygnus.com) * configure.in: handle m680[01234]0 as aliases for m68k Tue May 26 16:50:59 1992 Steve Chamberlain (sac@thepub.cygnus.com) * coff-a29k.c: do byte relocs correctly * coffcode.h (styp_to_sec_flags): never load INFO sections * seclet.c (rel): don't relocate INFO sections Wed May 20 08:18:18 1992 Ken Raeburn (Raeburn@Cygnus.COM) * section.c (bfd_*_symbol, bfd_*_section): Initialize statically. Make the symbols unmodifiable. (bfd_section_init): Deleted. * init.c (bfd_init): Don't call bfd_section_init. * section.c (bfd_set_section_contents): Ensure that range to be written is within section boundaries. (bfd_get_section_contents): Likewise. Don't bother dispatching if size is zero. * libbfd.c (bfd_xmalloc): Text of error message should be const. * coff-i960.c (howto_table): Deleted. (howto_rellong, howto_iprmed, howto_optcall): New vars; interesting entries from old howto_table. (RTYPE2HOWTO): Adjusted to use switch. (coff_i960_reloc_type_lookup): New function. * coffcode.h (coff_new_section_hook): Allocate storage for aux records for section symbol. (make_abs_section): Unused; deleted. (renumber_symbols): Re-order symbols so undefined symbols come last, as COFF format desires. (coff_write_symbol): Put C_FILE symbols in debug section always. (coff_section_symbol): New function; creates a symbol with the same name as a section, and sets up aux records for it. (coff_add_missing_symbols): New function; adds section symbols to symbol table if they aren't there already. Should someday also add a dummy C_FILE symbol if none is present. (coff_write_object_contents): Add missing symbols before preparing symbol table to be written. (coff_slurp_reloc_table): Verify that symbol indices read in are in a reasonable range. * libcoff-in.h (struct coff_tdata): New field conv_table_size. (obj_conv_table_size): Accessor macro. * bout.c (b_out_reloc_type_lookup): New function. Handles three reloc types on i960. * bfd-in.h (bfd_get_section_name): New macro. Like bfd_section_name, but returns rvalue, not lvalue. (bfd_get_section_vma, bfd_get_section_alignment): Similar. (bfd_get_section_flags): Now returns rvalue. * reloc.c (enum bfd_reloc_code_real): Add several new values, some general, some specific to sparc or i960. * aoutx.h (set_section_contents): Set VMA for each section based on previous section. If text section VMA doesn't appear to have been set, make a best guess from the type of file. * aout-target.h (MY_reloc_howto_type_lookup): Define as zero if not defined. (MY(vec)): Initialize reloc_type_lookup field. * aoutx.h (howto_table_*): Export as aout_#_*_howto_table. (bfd_error_trap, bfd_error_vector): Extern, not common. * aoutf1.h (sunos4_reloc_type_lookup): New function. Handles a few types of relocs for sparc; will need enhancement. * bout.c (callj_callback): Use DEFUN macro in definition. * coff-i960.c (optcall_callback): Likewise. * targets.c (bfd_target): Added fields reloc_type_lookup and _bfd_make_debug_symbol. Also minor comment changes. * syms.c (bfd_make_debug_symbol): New dispatching macro. * reloc.c (bfd_reloc_type_lookup): Take a BFD ptr as arg rather than arch info, and dispatch with BFD_SEND. Callers changed. * archures.c (struct bfd_arch_info): Deleted field reloc_type_lookup. * cpu-*.c: Don't initialize that field. * bfd-in.h (enum bfd_error): Add new value "bad_value". * bfd.c (bfd_errmsgs): Now const; added entry for bad_value. (bfd_errmsg): Now returns ptr to const. * bfd-in.h (bfd_errmsg): Fix prototype. * cache.c (BFD_CACHE_MAX_OPEN): Fix typo in doc. * reloc.c (bfd_generic_relax_section): Ditto. * section.c (Section Output doc): Improve description of use of output_section and output_offset. Tue May 19 23:42:10 1992 D. V. Henkel-Wallace (gumby@cygnus.com) * sco-core.c: new file from net. * aoutx.h (translate_to_native_sym_flags): bugfix from net: Now we have the hairy linker, it's possible to move symbols from one section into another. Actually make that work! Sat May 16 17:57:59 1992 K. Richard Pixley (rich@rtl.cygnus.com) * hosts/sun3.h: fix declaration of free. Tue May 12 14:08:59 1992 Steve Chamberlain (sac@thepub.cygnus.com) * coff-a29k.c (perform_reloc): fix bug in jmp/call evaluation * coff-h8300.c (reloc_processing): all relocs are relative to section start. * opncls.c: don't use fdopen on DOS systems short patches from Glenn Kasten (glenn@ready.com) * target.c: enabled oasys support * oasys.c: Insert . when UNDERSCORE_HACK is enabled, fix problem where a relocation which crossed a modification byte boundary did not work. Fix problem where a relocation near the end of a data record did not work. Tue May 5 18:11:25 1992 Steve Chamberlain (sac@thepub.cygnus.com) * archive.c (bfd_slurp_coff_armap): old versions of BFD wrote archvie header string counts the endian way, this heuristic sees how big an archive string to read by trying it one way and if the string table is unreasonably big, trying it the other. *FIXME*. * opncls.c (bfd_fdopenr): can't do fdopens on VMS Tue May 5 14:18:24 1992 Per Bothner (bothner@rtl.cygnus.com) * bfd-in.h: Increase version number to 1.97, for consistency with ../binutils. * Makefile.in: docdir is ./doc, not ${srcdir}/doc. Mon May 4 11:49:15 1992 Steve Chamberlain (sac@thepub.cygnus.com) * bfd-in.h: bump version to 1.96 Major change; changed calling convention for bfd_get_relocated_section_contents so that caller allocates memory for section data. * coffcode.h (bfd_coff_get_relocated_section_contents), reloc.c, seclet.c, targets.c, bfd.c: reflect new convention. * coffcode.h (styp_to_sec_flags): if styp_flags is not a special case, then use reasonable default values for SEC_* flags. Fri May 1 12:58:34 1992 Steve Chamberlain (sac@thepub.cygnus.com) * coffcode.h (coff_write_object_contents): use RELSZ to work out size of output reloc struct. * targets.c, Makefile.in: comment out tekhex for the moment. * ieee.c: if some places where null pointers were used instead of &bfd_abs_section. * configure.in: tandem target is st2000 * coff-m68k.c: rename static howto_table to global m68kcoff_howto_table. * bout.c: remove unnecessary abort * coff-a29k.c: various changes to the way relocations work to cope with the "new order" and latent bugs. * coffcode.h: lint Wed Apr 29 12:37:07 1992 Steve Chamberlain (sac@thepub.cygnus.com) * aoutx.h (aout_swap_ext_reloc_out, aout_swap_std_reloc_out) bout.c (b_out_squirt_out_relocs): treat abs sumbols the right way. * reloc.c (bfd_perform-relocation): don't relocate refs to absolute symbols if doing a partial link. Fri Apr 24 07:35:26 1992 Stu Grossman (grossman at cygnus.com) * configure.in: Add a29k-amd-udi. Thu Apr 23 18:37:55 1992 Fred Fish (fnf@cygnus.com) * aoutx.h (aout__swap_exec_header_in): Zero out the internal_exec structure before initializing the fields that are used, so that the unused fields are in a known state. Wed Apr 22 09:36:08 1992 Fred Fish (fnf@cygnus.com) * tekhex.c (struct data_struct): Convert from typedef that typedefs nothing to a normal structure declaration. * tekhex.c (pass_over): Prototype args for function that second arg points to. Mon Apr 20 22:22:51 1992 K. Richard Pixley (rich@rtl.cygnus.com) * Makefile.in: remove old style staging. Do not print recursion lines. * Makefile.in: rework CFLAGS so that CFLAGS can be passed from the Makefile command line. Remove MINUS_G. Default CFLAGS to -g. Pass CFLAGS. Fri Apr 17 09:15:31 1992 Steve Chamberlain (sac@thepub.cygnus.com) * bfd.c, Makefile.in: added tekhex * aoutx.h (set_section_contents): pages should be padded to the size of a page, not the size of a segment. * configure.in: added go32 host and i386-aout target. * i386aout.c, libaout.h: now works for go32 target * ieee.c: fix bit rot. * seclet.c: support for padding seclet type. Wed Apr 15 18:11:58 1992 K. Richard Pixley (rich@rtl.cygnus.com) * Makefile.in: added .NOEXPORT: Tue Apr 14 14:34:42 1992 Fred Fish (fnf@cygnus.com) * elf.c (bfd_add_strtab, bfd_add_2_to_strtab): CONST spreads like ooze. * elf.c (elf_compute_section_file_positions, elf_write_object_contents): Return boolean, not NULL (which can be void *). * elf.c (bfd_section_from_shdr): Ifdef-out debugging code. Also ifdef-out code that aborts on unhandled section types. Fri Apr 10 22:29:18 1992 Fred Fish (fnf@cygnus.com) * configure.in: Recognize ncr3000 config * Makefile.in (MINUS_G): Pass on to recursive makes. * hosts/ncr3000.h, config/ncr3000.mh: Add host config files. Thu Apr 2 17:42:45 1992 John Gilmore (gnu at cygnus.com) * Makefile.in: Now that we have sym.h and symconst.h, compile coff-msym.c on all systems. * config/{decstation.mh, irix3.mh, irix4.mh}: Remove coff-msym.o dep. * coff-msym.c: Update include files and comments; add weakext bit. Wed Apr 1 23:16:38 1992 John Gilmore (gnu at cygnus.com) * archive.c, bfd.c, bout.c, coffcode.h, init.c, reloc.c, section.c, srec.c, syms.c, coff-h8300.c: Lint. Sun Mar 29 09:37:59 1992 John Gilmore (gnu at cygnus.com) * bout.c, coff-a29k.c, coff-i960.c: Lint. * configure.in: Add new host and target configs. * elf.c (bfd_prstatus, bfd_fpregset): Avoid typename of register structs, which vary; just use member name. (elf_object_p, elf_core_file_p): Lint, fix comments. * config/sparc-elf.mt, hosts/sysv4.h: New config files. Sat Mar 28 13:07:02 1992 Fred Fish (fnf@cygnus.com) * elf.c (elf_object_p, elf_core_file_p): Fix to use only a single local, disposable, copy of the external form of section header table and program header table entries. Thu Mar 26 16:59:58 1992 John Gilmore (gnu at cygnus.com) * Makefile.in: Set MINIMIZE back to 0 for a real release. Tue Mar 24 15:57:03 1992 K. Richard Pixley (rich@cygnus.com) * configure.in: config/irix4.m[ht], hosts/irix4.h: add support for irix4. Mon Mar 23 22:37:34 1992 Stu Grossman (grossman at cygnus.com) * coff-msym.c (ecoff_swap_rfd_in): remove & for array ref. Tue Mar 17 14:12:25 1992 Per Bothner (bothner@rtl.cygnus.com) * bout.c (b_out_slurp_reloc_table): Use BFD_ASSERT macro, not internal bfd_assert function (twice). Tue Mar 17 10:45:12 1992 Steve Chamberlain (sac@thepub.cygnus.com) * aout-target.h: change ar_max_namelen to 15 (the right value) * coff-a29k, coffcode.h: more hangovers from the bfd_abs_section change Mon Mar 16 14:57:22 1992 Steve Chamberlain (sac@rtl.cygnus.com) * archive.c (bfd_generic_archive_p): check for bout archives too. * bout.c: make it work again. Sat Mar 14 17:30:40 1992 Fred Fish (fnf@cygnus.com) * elf.c (elf_corefile_note): Call bfd_xmalloc() instead of bare malloc(). * reloc.c (bfd_generic_get_relocated_section_contents): Call bfd_xmalloc() instead of bare malloc(). Fri Mar 13 15:44:37 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: pass down MAKEINFO on info. Fri Mar 13 07:41:13 1992 Steve Chamberlain (sac@thepub.cygnus.com) * config/mt- now .mt, config/mh- now .mh. host/h- now just . * configure.in: reflect changes Thu Mar 12 11:15:02 1992 Per Bothner (bothner@cygnus.com) * libbfd-in.h (set_tdata): Make change of Feb 27 in the actual source file, not just the generated libbfd.h. Sat Mar 7 10:33:41 1992 Steve Chamberlain (sac@thepub.cygnus.com) * coff-i960.c (icoff_little_vec): add COFF_SWAP_TABLE so we can run gdb on little-endian 960 code. * archive.c (compute_and_write_armap): indirect symbols should go into the archive header too. Fri Mar 6 21:55:16 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: added check target. Thu Mar 5 23:51:42 1992 John Gilmore (gnu at cygnus.com) * coff-msym.c: Move this file from gdb/ecoff.c. It handles byte-swapping for ECOFF (MIPS symbol) files. * config/mh-decstation, config/mh-irix3: Add coff-msym.o to the files built on MIPS-based hosts. * Makefile.in: Add rule for coff-msym. Thu Mar 5 21:36:05 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: added clean-info target. MINIMIZE=1. Sun Mar 1 22:32:58 1992 Per Bothner (bothner@cygnus.com) * coff-rs6000.c: Move core file functions into separate new file rs6000-core.c. This is needed because reading core files depends on native include files that conflict with ../include/coff/rs6000.h. * config/mh-rs6000: Add rs6000-core.o to HDEPFILES. Thu Feb 27 22:19:55 1992 Per Bothner (bothner@cygnus.com) * aoutx.h (NAME(aout,print_symbol)): Don't print symbol addresss for undefined symbols. * coff-rs6000.c: Various updates (due to target- independent changes). * libbfd.h: Ditto (tdata field is now a union). * hosts/h-sparc.h: Removed prototype for bogus function 'emset' (presumably should have been 'memset' - which is there). Thu Feb 27 11:46:33 1992 John Gilmore (gnu at cygnus.com) * configure.in (mips-big-* target): Same is Iris. Thu Feb 27 09:24:56 1992 Steve Chamberlain (sac at thepub.cygnus.com) * aoutx.h (translate_from_native_sym_flags): when creating an alias symbol, fill in the section as undefined, rather than leaving it blank. If an output section can't be found for a symbol, then don't core dump. Wed Feb 26 18:04:40 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in, configure.in: removed traces of namesubdir, -subdirs, $(subdir), $(unsubdir), some rcs triggers. Forced copyrights to '92, changed some from Cygnus to FSF. Wed Feb 26 19:40:59 1992 Steve Chamberlain (sac at thepub.cygnus.com) * bfd.c: lint * coff-h8300.c: fix stupid reloc subtraction bug * coffcode.h (coff_swap_aux_out): only swap a tvndx by 2 bytes, since that's how wide it is. (coff_slurp_symbol_table): always zero out the symbol.flags and done_lineno fields. Tue Feb 25 14:29:24 1992 Steve Chamberlain (sac at rtl.cygnus.com) * coffcode.h (coff_write_symbol): write out the correct number of auxents. * cpu-h8300.c: fix disassembly bug Fri Feb 21 21:39:56 1992 John Gilmore (gnu at cygnus.com) * bfd-in.h (bfd_errmsg), coffcode.h (coff_swap_aux_in, section_from_bfd_index), cpu-h8300.c (howto*_callback), reloc.c, section.c (bfd_map_over_sections), targets.c (bfd_target_list): Protolint. * libbfd.h: Update to match a libbfd-in.h from a month ago. Fri Feb 21 10:57:54 1992 Steve Chamberlain (sac at rtl.cygnus.com) * coffcode.h (coff_swap_aux_in): lint, (coff_print_symbol): prints out tagndx too. * aoutx.h (swap_std_reloc_out, swap_ext_reloc_out): use the output section of a symbol rather than the section of a reffed symbol to determine the r_index of an emmitted reloc. Thu Feb 20 18:10:34 1992 Per Bothner (bothner at cygnus.com) * PORTING: New (preliminary) porting guide. Wed Feb 19 21:39:37 1992 John Gilmore (gnu at cygnus.com) * bout.c (callj_callback), coff-a29k.c (a29k_reloc), coff-m88k.c (howto_hvrt16): lint. Mon Feb 17 12:02:17 1992 Per Bothner (bothner at cygnus.com) * hp300bsd.c (new), config/mt-hp300bsd: Make hp300bsd a full configuration (with possible cross-development), instead of using host-aout.c. Sun Feb 16 13:01:49 1992 Per Bothner (bothner at cygnus.com) * aout-target.h (MY(write_object_contents): Set obj_reloc_entry_size (abfd). * gen-aout.c: Change to emit a .c files, not a .h file. Thu Feb 13 20:11:47 1992 Fred Fish (fnf at cygnus.com) * elf.c (elf_slurp_symbol_table): Remove obsolete use of BSF_ABSOLUTE and replace with bfd_abs_section reference. Thu Feb 13 17:22:44 1992 Steve Chamberlain (sac at rtl.cygnus.com) * coffcode.h (get_normalized_symtab): fixed bug where symbols with more than one auxent can cause nasty core dumps. * coffcode.h, libcoff.c: added new fielded to coff_symbol_struct "done_lineno" so that a symbol which appears twice in the symbol table only gets it's linenumbers relocated once. Modifed (coff_write_native_symbol) and (coff_make_empty_symbol) to make use of it. Tue Feb 4 15:39:55 1992 Steve Chamberlain (sac at rtl.cygnus.com) * aoutx.h: (translate_from_native_sym_flags): fix constructor stuff to use the New Order. Fri Jan 31 01:34:45 1992 Stu Grossman (grossman at cygnus.com) * ieee.c: Change type of envi[] to unsigned char. * configure.in: fix vax ultrix configuration. * elf.c (bfd_section_from_shdr): Deal with null return from bfd_make_section(). (elf_object_p): Select endianess properly. Fri Jan 31 01:19:55 1992 John Gilmore (gnu at cygnus.com) * hosts/h-tahoe.h, h-vaxbsd.h: Fix stack in core files. Thu Jan 30 23:51:07 1992 John Gilmore (gnu at cygnus.com) * Makefile.in: host-aout.c doesn't depend on aout-params.h. * aout-target.h: Use TARGET_BIG_ENDIAN_P to set up vector. * host-aout.c: Don't use aout-params.h; configure these systems in their xm files, not in a randomly generated file. * hosts/h-hp300bsd.h, h-tahoe.h, h-vaxbsd.h, h-vaxult.h: Specify byte order. * hosts/h-vaxbsd.h: Define the form of exec and core files. Thu Jan 30 13:02:41 1992 Per Bothner (bothner at cygnus.com) * config/mt-tahoe, config/mt-vax: Change DEFAULT_VECTOR to host_aout_vec here as well. Thu Jan 30 11:41:45 1992 Stu Grossman (grossman at cygnus.com) * host-aout.c: Change TARGETNAME to "a.out" to be compatible with gdb. config/mt-hp300bsd: Change DEFAULT_VECTOR to host_aout_vec to prevent undefined symbol. Thu Jan 30 07:26:53 1992 Steve Chamberlain (sac at rtl.cygnus.com) Various lints found on PersSony * aoutx.h: cast an enum * coff-a29k.c: many ints in reloc structure turned to enum * coffcode.h: more enums * cpu-h8300.c: more enums * opncls.c: more enums Thu Jan 30 01:19:56 1992 John Gilmore (gnu at cygnus.com) * configure.in: Make Tahoe configuration work again. * bfd-in.h: Remove trailing comma from enum declaration. * ieee.c: Can't put byte values >0x7F into a signed char. Tue Jan 28 21:10:51 1992 Fred Fish (fnf at cygnus.com) * Makefile.in: Add dependencies for various coff-*.o files. * elf.c: Remove extraneous paren from core_prpsinfo and core_prpstatus macros, rename core_prpstatus to core_prstatus. Replace references to old section "size" member with new "_raw_size" member. Implement elf_make_empty_symbol, which is now used. Tue Jan 28 14:51:40 1992 Stu Grossman (grossman at cygnus.com) * trad-core.c, bfd.c, ../include/bfd.h: Various fixes for PMAX core reading. Tue Jan 28 10:46:32 1992 Steve Chamberlain (sac at rtl.cygnus.com) * coffcode.h (bfd_coff_relax_section): now static. (bfd_coff_get_relocated_section_contents): various type lints. Mon Jan 27 19:44:08 1992 Steve Chamberlain (sac at rtl.cygnus.com) New entry point in the transfer vector - bfd_relax_section. * aout-target.h: add to vector, call generic_relax * bfd-in.h: add to vector * bfd.c: add #define for vector * bout.c: add to vector, call generic_relax * coffcode.h: add to vector, also now has coff specific relax code for the relaxable H8/300 relocs. Also clean up abs section cruft. * elf.c: call generic_relax * ieee.c: call new vector, clean up some bugs due to the creation of bfd_abs_section * libbfd.h: add bfd_generic_relax_section EXFUN * oasys.c: call generic_relax * reloc.c: implement generic_relax * seclet.c: moved much of this into coffcode.h * srec.c: call generic_relax * targets.c: define new transfer vector Fri Jan 24 14:40:17 1992 Steve Chamberlain (sac at rtl.cygnus.com) * everything: now modified to use smaller reloc type. Self hosts on sun3 & sun4. Sat Jan 18 17:00:16 1992 Fred Fish (fnf at cygnus.com) * config/mh-stratus, config/mt-i860-elf, hosts/h-stratus: New files for stratus. * configure.in: Add configuration fragments for stratus. Wed Jan 15 10:02:43 1992 Fred Fish (fnf at cygnus.com) * aoutx.h (NAME(aout,find_nearest_line)): Declare various filename variables as CONST since they are set to point to a const char string. Fixes compiler complaints. Fri Jan 10 17:44:53 1992 Fred Fish (fnf at cygnus.com) * hosts/h-amix.h hosts/h-i386v4.h: Change abort() to a function returning void. Fri Jan 10 14:33:32 1992 Per Bothner (bothner at cygnus.com) * aoutx.h (NAME(aout,find_nearest_line)): Recognize N_SOL symbols, so that we can emit the correct file name even if it's an include file. Thu Jan 2 16:43:34 1992 John Gilmore (gnu at cygnus.com) * coff-i960.c: Add COFF_SWAP_TABLE to little_vec as well as big_vec. (Reported by john@labtam.labtam.oz.au (John Carey)). Wed Jan 1 04:23:06 1992 Fred Fish (fnf at cygnus.com) * elf.c: Change all '#if HAVE_PROCFS' to '#ifdef HAVE_PROCFS'. * config/mh-amix, config/mh-i386v4: Remove HDEFINES that was being used to -DHAVE_PROCFS. * hosts/h-amix, hosts/h-i386v4: Add '#define HAVE_PROCFS'. Move '#include "fopen-same.h"' to end of file to match other h-* files. Fri Dec 20 12:06:17 1991 Fred Fish (fnf at cygnus.com) * configure.in: Change svr4 references to sysv4. Add case "unknown" for target vendor and infer some targets based on the specified operating system. Wed Dec 18 17:17:59 1991 Stu Grossman (grossman at cygnus.com) * bfd-in.h, libaout.h: ANSIfy enums. Wed Dec 18 16:12:25 1991 Steve Chamberlain (sac at rtl.cygnus.com) * archive.c (normalize): created version for VMS which removes the VMS directory crap from the front and end of a filename, eg turn [-.foo]bar.obj;123 into bar.obj (bfd_construct_extended_name_table): now writes index into an extended name table in decimal - the same base used to read an extended name table. Wed Dec 18 14:40:39 1991 Per Bothner (bothner at cygnus.com) * aout-encap.c: Fix to use aout-target.h. * aoutf1.h: Use standard MY_object_p and MY_callback in aout-target.h. Remove target-specific versions. * host-aout.c: Re-write to use aout-target.h. * gen-aout.c: New files use with host-aout.c to generate host-specific a.out-related parameters. * Makefile.in: host-aout.o depends on aout-params.h, which is generated by gen-aout. * aout-target.h: Make a little more flexible. * libaout.h, aout-target.h: Removed WORK_OUT_FILE_POSTIONS macro. Instead, inline it in aout-target.h. * newsos3.c: Define N_SHARED_LIB(x) as 0 to avoid a gcc -Wall warning. * archive.c: Add missing commas in DEFUN macro (2 places). * elf.c, coffcode.h, aoutf1.h: Use ANSI functions instead of Berkeley ones, now that libiberty has them: bcopy->memcpy, bzero->memset, bcmp->memcmp. * aoutx.h: Various touch-ups: Re-formatting, fix a cast, remove unused variable. Tue Dec 17 19:48:59 1991 Fred Fish (fnf at cygnus.com) * elf.c (elf_core_file_matches_executable_p): Enclose corename and execname inside HAVE_PROCFS ifdef since they are unused when it is not defined. Mon Dec 16 12:00:10 1991 Fred Fish (fnf at cygnus.com) * elf.c: Flag all sections as either code or data. We can't be sure what they are anyway, since ELF doesn't fit the traditional model of text+data+bss very well. Add new local function elf_read() to simplify code. Record entry point in the bfd structure. Thu Dec 12 21:01:22 1991 John Gilmore (gnu at cygnus.com) * hosts/h-*.h: Configure fopen using ../include/fopen-*.h rather than N copies of the same lines. Wed Dec 11 16:39:45 1991 Steve Chamberlain (sac at rtl.cygnus.com) * cpu-h8300.c: disassemble branch displacements correctly * coff-h8300.c: put reloc offsets out in 32bits * makefile.dos, configdj.bat: New files from DJ * cache.c: fopen with new macros is needed for DOS. * ieee.c: environ renamed to envi to stop an include file conflict. * opncls.c, coff-rs6000.c: more fopens with macros. Tue Dec 10 04:07:24 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: infodir belongs in datadir. Sat Dec 7 16:39:23 1991 Steve Chamberlain (sac at rtl.cygnus.com) * Makefile.in: fix where docdir lives * aoutx.h, archive.c, archures.c, bfd.c, cache.c, coff-m88k.c, coffcode.h, core.c, ctor.c, elf.c, format.c, ieee.c, init.c, libbfd.c, libbfd.h, libcoff.h, opncls.c, reloc.c, section.c, srec.c, syms.c, targets.c : all new documentation and lint removal. Sat Dec 7 07:22:09 1991 John Gilmore (gnu at cygnus.com) * coffcode.h, srec.c: Lint. Fri Dec 6 22:58:48 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: install using INSTALL_DATA, added standards.text support. * configure.in: mark directory as target dependent. configure nows works in objdir always so make file existence checks against ${srcdir}. Thu Dec 5 22:46:19 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: idestdir and ddestdir go away. Added copyrights and shift gpl to v2. Added ChangeLog if it didn't exist. docdir and mandir now keyed off datadir by default. Wed Dec 4 10:14:17 1991 Steve Chamberlain (sac at rtl.cygnus.com) * aoutf1.h (sunos__object_p, sunos4_callback): moved the computation of arch and machine type so it's worked out before some_aout_object_p is called. * aoutx.h: (some_aout_object_p): don't set arch and mach to unknown. * archures.c: add extra field 'section_align_power' to hold default section alignment in object files. * cpu-a29k.c, cpu-h8300.c, cpu-i386.c, cpu-i960.c, cpu-m68k.c, cpu-m88k.c, cpu-mips.c, cpu-rs6000.c, cpu-sparc.c, cpu-vax.c: initialize the new field. * bout.c (b_out_callback): replace the text size, since aout fries them. * aoutx.h: Documentation in the new style Wed Dec 4 02:00:30 1991 John Gilmore (gnu at cygnus.com) * bfd.c (bfd_get_mtime): Don't cache mtime any more; only use the saved value if mtime_set is already set (intended for archive files, though apparently not used yet). Tue Dec 3 22:54:50 1991 John Gilmore (gnu at cygnus.com) * targets.c: Revise comments about how to configure the target vector, to match reality. Remove mention of obsolete methods. Remove long lists of capitalized macros that turn into the same thing in lowercase. Normal vector simply lists all known lowercase xvec names; all other cases are handled by SELECT_VECS. * config/mt-i386-coff: Set DEFAULT_VECTOR to real identifier, not macro name. * config/mt-i960-{coff,bout}: Use SELECT_VECS to make a short list of supported targets. Tue Dec 3 14:06:15 1991 Per Bothner (bothner at cygnus.com) * archive.c (bsd_write_armap): The pad byte sometimes added to the string table in a __.SYMDEF member is now counted as part of the size of the string table. This is compatible with the old ranlib, as well as Sun's. Tue Dec 3 10:53:30 1991 Steve Chamberlain (sac at rtl.cygnus.com) * srec.c: Rewrote to fix many bugs; now gets the record type right, doesn't choke on input, sets the start address in an S9 and fills in the filename on an S0. Sat Nov 30 21:19:15 1991 Steve Chamberlain (sac at rtl.cygnus.com) * cpu-h8300.c: Add support for MEMIND addressing mode * coff-a29k.c: defined RELOC_PROCESSING to take the #ifdef out of coffcode.h * coffcode.h: use the new macro if available * elf.c (elf_corefile_note): cast malloc to avoid warning. * Makefile.in: Fixed dependencies due to file rename * aout-encap.c, aoutf1.h, aoutx.h, archive.c, bout.c, coff-a29k.c, coff-h8300.c, coff-i386.c, coff-i960.c, coff-m68k.c, coff-m88k.c, coff-mips.c, coff-rs6000.c, cpu-h300.c, elf.c, i386aout.c, newos3.c, stab-syms.c, syms.c: All these files have had their #includes altered to point to the new places. Fri Nov 29 20:04:49 1991 Fred Fish (fnf at cygnus.com) * config/mh-i386v4, config/mh-i386-elf, hosts/h-i386v4.h: New files. * configure.in: Add vendor "ncr" as supported per-target vendor. Add svr4 case for i386 per-host case. * elf.c (elf_object_p, elf_core_file_p): Add missing "break" to ELFDATA2LSB cases. Fri Nov 29 12:16:51 1991 Per Bothner (bothner at cygnus.com) * syms.c (bfd_decode_symclass): Return 'A' for symbols that are both absolute and global. * archive.c (bfd_special_undocumented_glue): Return NULL if bfd_ar_hdr_from_filesystem returns NULL. Tue Nov 26 09:10:55 1991 Steve Chamberlain (sac at cygnus.com) * Makefile.in: added coff-h8300 * configure.in: now h8 is a coff target * cpu-h8300.c: fix various disassembly problems * libcoff.h: took out some code which has been #0ed for a long time. * targets.c: added h8 coff * coff-a29k.c, coff-i386.c, coff-i960.c, coff-m68k.c, coff-m88k.c added new macro RTYPE2HOWTO to take a load of #ifdefs out of coffcode.h * coffcode.h: Started to change the way machine dependencies are handled, from the nest of #ifdefs to macros defined in the including coff-.c Fri Nov 22 08:11:42 1991 John Gilmore (gnu at cygnus.com) * aoutx.h (some_aout_object_p): Set the `executable' bit if the entry point is contained in the text segment, even if the text segment is at location 0. * coff-mips.c, coffcode.h: Peter Schauer's patch to kludge in nonstandard MIPS sections (.rdata, .sdata, etc). * aoutx.h, bfd.c, coffcode.h, ieee.c, oasys.c, targets.c: CONST lint. * libbfd-in.h, libbfd.h, aoutx.h, coffcode.h, elf.c, libaout.h: Rename ALIGN to BFD_ALIGN to avoid conflict with BSD . * libbfd.c: Lint. * host-aout.c, trad-core.c: Fix write_armap prototypes. Lint. Thu Nov 21 19:56:40 1991 Per Bothner (bothner at cygnus.com) * stab-syms.c, syms.c: Moved bfd_stab_name() and bfd_stab_names[] from syms.c to new file stab-syms.c. Also, since GNU extended type codes such as N_SETT are no longer in ../include/stab.def, include them manually. * stab-syms.c, aoutx.h: Renamed bfd_stab_name() and bfd_stab_names[] to aout_stab_name() and aout_stab_names[]. * libaout.h: Added prototype for aout_stab_name(). * Makefile.in: Update Makefile for new stab-syms.[co]. Thu Nov 21 11:50:49 1991 John Gilmore (gnu at cygnus.com) * libaout.h (WORK_OUT_FILE_POSITIONS): One more try at this rather complicated seeming problem. Eliminate LOGICAL_ versions, just make N_XXX work by excluding the header from the text segment. * aoutx.h: Fix comments to match. Tue Nov 19 18:49:01 1991 Per Bothner (bothner at cygnus.com) * libaout.h (WORK_OUT_FILE_POSITIONS): Use new LOGICAL_TXTADDR, LOGICAL_TXTOFF, LOGICAL_TXTSIZE macros to figure out numbers for the "logical" text segment (i.e. never consider the exec header to be part of the text segment). This change is needed for consistency with various other parts of bfd and ld. * aoutx.h (NAME(aout,soe_aout_object_p)): Fix comment, and move calculation of obj_textsec(abfd)->size to libaout.h. * bfd-in.h: Removed bogus ';'. * Makefile.in: Add MINIMIZE flag to select lean or bloated target_vector. * targets.c: Use new MINIMIZE macro, and add trad_core if needed. * newsos3.c: Fixes to ../include/aout64.h remove need for special N_TXTOFF macro, but require N_HEADER_IN_TEXT. Mon Nov 18 12:00:59 1991 Per Bothner (bothner at cygnus.com) * aout-target.h, aoutf1.h, newsos3.c: Make aout-target.h handle both little and big-endian targets, with little the default unless TARGET_IS_BIG_ENDIAN_P is defined. * host-aout.c: Add FIXME note. Sun Nov 17 13:29:39 1991 Per Bothner (bothner at cygnus.com) * targets.c: Make the default target_vector contain just &DEFAULT_VECTOR. This makes executables a lot smaller. Old behavior can be gotten by defining ALL_TARGETS. * aoutf1.h, demo64.c, i386aout.c, newsos3.c, sunos.c: Factored out common code into new file aout-target.h. Saves a lot of duplicate code for a.out variants. Fri Nov 15 13:00:43 1991 Per Bothner (bothner at cygnus.com) Get 'make headers' to work when configured with +subdirs. * Makefile.in: Add $(subdir) to docdir path. * doc/Makefile.in (protos): Add $(srcdir) prefix to name of sed scripts. Thu Nov 14 19:49:10 1991 Per Bothner (bothner at cygnus.com) * aoutx.h (NAME(aout,print_symbol)): Fix thinko. * syms.c (bfd_stab_names): Turn on new GNU_EXTRA_STABS macro to include names of N_SETT etc. Thu Nov 14 19:11:13 1991 Fred Fish (fnf at cygnus.com) * elf.c: Add minimal support for ELF symbol tables. Generates canonical bfd symbol tables from ELF symbol tables. Change the name of some functions from bfd_ to elf_. * syms.c: Trivial fix to comment to remove a redundant "to". Wed Nov 13 17:02:01 1991 John Gilmore (gnu at cygnus.com) * coff-{i386,m68k,m88k}.c: Change name of file format to standard form that GDB recognizes as COFF. Wed Nov 13 09:09:41 1991 Steve Chamberlain (sac at cygnus.com) * ieee.c (ieee_object_p): cast NULL correctly. * configure.in: added harris host * coff-a29k.c: Lots of changes, most from David Wood. Tue Nov 12 07:21:41 1991 John Gilmore (gnu at cygnus.com) * coff-m88k.c (coff_write_armap): Just #undef it. Mon Nov 11 20:30:18 1991 Steve Chamberlain (sac at cygnus.com) * Makefile.in: standardize on MINUS_G to disable debugging * coff-m88k.c: create coff armaps instead of bsd ones. * opncls.c (bfd_close_all_done), (bfd_close): Mask out random bits when calling chmod. Mon Nov 11 19:07:32 1991 Fred Fish (fnf at cygnus.com) * elf.c: Additions to support ELF format core files. * config/mh-amix: Add -DHAVE_PROCFS to HDEFINES, since host has support for /proc (all the include files in particular). Mon Nov 11 18:36:47 1991 Per Bothner (bothner at cygnus.com) * aoutx.h (NAME(aout,find_nearest_line)): Handle the case of two N_SO stabs, one for directory, and one for filename. * bfd-in.h (print_vma): Factor out duplicate definition. Exit a little more gracefully when malloc returns NULL. * libbfd.c: New function bfd_xmalloc (malloc wrapper). * opncls.c, syms.c, bout.c, aoutx.h: Replace malloc by bfd_xmalloc. * libbfd.h: Rre-generated due to libbfd.c update. Sat Nov 9 13:45:01 1991 Fred Fish (fnf at cygnus.com) * config/mt-m68k-elf: Define DEFAULT_VECTOR as elf_big_vec. * elf.c (elf_object_p): Don't try to create a bfd section for the first ELF section header. It is just a placeholder. Sat Nov 9 03:04:26 1991 John Gilmore (gnu at cygnus.com) * coff-rs6000.c, config/mh-rs6000: Make it work on archive and core files, when compiling native. * hosts/h-rs6000.h: Define FASCIST_FDOPEN for bfd_fdopenr. FIXME: The aoutf1.h change below needs to be reversed back to the way it was. Thu Nov 7 11:03:55 1991 Steve Chamberlain (sac at rtl.cygnus.com) * coffcode.h: Defined new macros [PUT|GET]LINENO_LNNO for manipulation of lnno fields in lineno structs in a coff-.h independent way. Override it in coff-.h to your favourite number if you don't have a 16bit lnno field. (coff_swap_lineno_in) (coff_swap_lineno_out): modified to use the new macros. Mon Nov 4 11:38:33 1991 Steve Chamberlain (sac at cygnus.com) * aoutf1.h (sunos4_callback): Now defaults to 68020 rather than unknown arch when the magic number doesn't specify the architecture, since some OSs (eg old sun3s) don't set the number, and 020 is probably the right answer anyway. Sun Nov 3 12:07:08 1991 Per Bothner (bothner at cygnus.com) * hosts/h-news.h, hosts/h-rtbsd.h: Get rid of MISSING_VFPRINTF, since libiberty provides one. * bfd-in.h (bfd_print_symbol_type_hopw enum): Add new option bfd_print_symbol_nm, for use by nm. * aoutx.h (NAME(aout,print_symbol)): Add code for new bfd_print_symbol_nm option, to print in nm format. * coffcode.h (coff_print_symbol), ieee.c (ieee_print_symbol) oasys.c (oasys_print_symbol): Provide stub implementations for bfd_print_symbol_nm. * syms.c: New function bfd_decode_symclass, used by nm printer. New function bfd_stab_name to look up string name of stab code. Sat Nov 2 14:26:03 1991 Steve Chamberlain (steve at cygnus.com) * Makefile.in: Added ctor.c * archures.c (bfd_default_arch_struct) added bfd_default_reloc_type_lookup. * coffcode.h: removed a load of #if 0ed code. (coff_compute_file_section_positions): now works out the section alignment and size correctly in all cases. (coff_get_symtab): looks for constructor symbols and calls the right function when they're found. (coff_canonicalize_reloc): knows when a section is full of constructors and does the right thing. * cpu-m88k.c: Added default_reloc_type lookup to the architecture description. * libbfd-in.h: (bfd_default_reloc_type_lookup) defun added. * libcoff.h: removed #if 0ed code * reloc.c: (bfd_reloc_code_real_type) added BFD_RELOC_CTOR for arch independent constructor relocation type. (bfd_reloc_type_lookup): removed the comment "this will go away" since it won't. (bfd_howto_32): stolen from 88k, this is a 32bit reloc which is used when BFD_RELOC_CTOR falls through to give a default 32bit reloc for constructors. (bfd_default_reloc_type_lookup): added. * aoutf1.h: fixed SEGMENT_SIZE typo. Thu Oct 31 18:23:06 1991 John Gilmore (gnu at cygnus.com) * coff-rs6000.c: Change name to "aixcoff-rs6000", to avoid matching prefix "coff". * coffcode.h (coff_swap_aux_in, coff_swap_aux_out): Handle rs/6000 csect records. Sun Oct 27 16:56:58 1991 Steve Chamberlain (steve at cygnus.com) * coff-m88k.c, targets.c: change name of m88k_bcs to m88kbcs * configure.in: add motorola delta88 cases * libbfd.h, libbfd-in.h, archive.c, ieee.c, elf.c, srec.c: fix write_armap prototype * libbfd.c: add doc on bfd_write_bigendian_4byte_int Fri Oct 25 02:48:19 1991 John Gilmore (gnu at cygnus.com) * Rename COFF-related files in `coff-ARCH.c' form. coff-a29k.c, coff-i386.c, coff-i960.c, coff-m68k.c, coff-m88k.c, coff-mips.c, coff-rs6000.c to be exact. * Makefile.in: Only supply TARGET_DEFAULTS to targets.c, reducing make output clutter. * config/mt-*: Ditto. Thu Oct 24 22:40:07 1991 John Gilmore (gnu at cygnus.com) RS/6000 support, by Metin G. Ozisik, Mimi Phûông-Thåo Võ, and John Gilmore. Archive support from Damon A. Permezel. * Makefile.in: Add cpu-rs6000.c and rs6000coff.c. * configure.in: Add rs6000 case. * targets.c: Add rs6000 vector. * archures.c: Add rs6000, fix comment on romp. * bfd-in.h (enum bfd_error): Add no_debug_section error. * libcoff-in.h (struct coff_tdata): Remove unused string_table. * bfd.c (bfd_errmsgs): Add no_debug_section error message. * section.c (bfd_make_section): Return NULL on attempt to create a section twice. * coffcode.h (bfd_swap_reloc_in): Handle r_type and r_size. (bfd_swap_aouthdr_in): Handle lots more members. (make_a_section_from_file): If section has already been seen, just return false rather than overwriting it. (coff_real_object_p): Understand incoming magic numbers. (coff_set_flags): Understand outgoing magic numbers. (coff_compute_section_file_positions): outgoing aouthdr magic #. (build_debug_section): Add fn for reading debug string section. (get_normalized_symtab): Handle symbol names in debug string section. Remove unused obj_string_table. (coff_slurp_symbol_table): Handle rs6000-specific storage classes. * aoutx.h (translate_from_native_sym_flags, N_SET*): Check for existing section before making one. * cpu-rs6000.c: New file. * rs6000coff.c: New file. Thu Oct 24 02:03:24 1991 Fred Fish (fnf at cygnus.com) * elf.c: Add partial support for ELF format corefiles. Still needs support for extracting registers from corefiles. * config/t-m68k-elf: Set DEFAULT_VECTOR to elf_big_vec. * config/{h-amix,h-dgux,h-irix3,h-ultra3}: For systems where RANLIB is defined as echo, send the output to /dev/null to help reduce clutter in the output from doing a make. Mon Oct 21 17:48:48 1991 John Gilmore (gnu at cygnus.com) * hosts/h-vaxult.h: Remove malloc/free decls covered in stdlib.h. Fix HOST_PAGE_SIZE and HOST_SEGMENT_SIZE. From David Taylor. Mon Oct 21 09:34:11 1991 Steve Chamberlain (steve at rtl.cygnus.com) * coffcode.h (coff_compute_section_file_positions): make it pad section size out if there are alignment restrictions so that the image will be ok on a system where section positions are worked out by accumulating sizes rather than from the section headers. * targets.c (proto write_armap). Changed orl_count to unsigned. * opncls.c (bfd_close_all_done). Added so that generative programs like gas can close a bfd without causing bfd confusion. * libbfd.h (changed becuase of protos) * amdcoff.c: messed with the way that jmp displacements are calcualated. This may not yet be totally correct. * archive.c (coff_write_armap): rewrote the way that ranlibs are written out. * coffcode.h (fixup_symbol_value): now doesn't core dump if a non abs symbol has no section (like a register symbol). (coff_write_symbol) now zeros auxent before filling it up to help with sensitive applications. * libbfd.c (bfd_write_bigendian_4byte_int): added. Wed Oct 16 22:58:45 1991 John Gilmore (gnu at cygnus.com) * bfd.c: Make sure we don't get a macro strerror(). * opncls.c (bfd_fdopenr): If FASCIST_FDOPEN, use "r", not "r+". * trad-core.c (trad_unix_core_file_failing_command): Suppress attempt to recover command, ifdef NO_CORE_COMMAND. * hosts/h-tahoe.h: Add FASCIST_FDOPEN and NO_CORE_COMMAND; revamp HOST_*, etc. * hosts/h-i386v.h: Use , not , unlike POSIX. Wed Oct 16 12:43:49 1991 Per Bothner (bothner at cygnus.com) * archive.c (bsd_write_argmap): The size of the ranlib structures should not include the size field itself. * aoutx.h, libaout.h (NAME(aout, sizeof_headers)): Use adata(abfd)->exec_bytes_size field instead of constant macro, because aoutx.h compiles to a simple .o file shared by all 32-bits a.out targets. Wed Oct 16 11:11:05 1991 John Gilmore (gnu at cygnus.com) * configure.in: Allow i386-sco-sysv. * bout.c: Remove unused i960_align; lint dummy core file handlers. * cpu-h8300.c: lint. * host-aout.c: New strategy. We use common code, include files, and data structures to handle the file, but set a few parameters from the host's config file (page size, text start addr, etc). * libaout.h: Define HP BSD machine types. * aoutf1.h: Handle reading a.outs with these types. * trad-core.c: Pass the u.u_ar0 value as the negative of the virtual-memory-address of the .reg section. We can't just make a section for "all the regs and nothing else" because only GDB knows exactly where the regs are (scattered around the upage and stack). Clean up memory allocation. Remove big- and little-endian vectors, replace with single vector; this only runs on the host, in host byte order. Replace byteswap routines with aborts in case anyone calls them. * targets.c: There's only one trad_core_vec now. * aoutf1.h (sunos_core_file_p): VMA of .reg* now needs to be 0. Tue Oct 15 08:29:03 1991 John Gilmore (gnu at cygnus.com) * hosts/h-amix.h (free): Fix prototype. * aoutx.h: Don't use NULL as an integer, for braindead systems that declare it as (void *)0. (From Peter Schauer.) Mon Oct 14 17:20:47 1991 Per Bothner (bothner at cygnus.com) * opncls.c (bfd_fdopenr): Add parentheses to avoid reported problem with bad Ultrix system headers. * aoutx.h (NAME(aout,set_section_contents)): Try to handle the various kinds of alignments for the various kinds of magic numbers. Mon Oct 14 14:23:10 1991 John Gilmore (gnu at cygnus.com) * doc/Makefile: Don't assume . is on the path (from James Clark). Fri Oct 11 22:45:14 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Avoid Sun Make VPATH bugs. * targets.c: Declare trad_core vectors extern. Fri Oct 11 13:03:02 1991 Per Bothner (bothner at cygnus.com) * coffcode.h: Moved ALIGN macro to libbfd.h. Removed i960_align. * libbfd.h: Moved ALIGN macro here. * bout.c (b_out_callback): Replace i960_align by align_power. * libaout.h (struct aoutdata): Added fields page_size, segment_size and exec_bytes_size. These help generic code (in aoutx.h and libaout.h) to figure out where to align the various segments in a demand paged file. * libaout.h (WRITE_HEADER): Use new (struct aoutdata) fields to decide if the exec header counts in a_text (text segment size). Also, assume D_PAGED flag is set; don't set it here. * bout.c (b_out_callback): Add initialization of adata fields page_size, segment_size, and exec_bytes_size. * host-aout.c (NAME(host_aout, callback) and NAME(host_aout,mkobject): Ditto. * i386aout.c (aout386_callback) and new aout386_mkobject): Ditto. * newos3.c (newsos3_callback) and new newsos_mkobject): Ditto. * aoutf1.c (sunos4_callback) and new sunos_mkobject): Ditto. * aoutx.h (NAME(aout,some_aout_object_p)): Don't subtract EXEC_BYTES_SIZE from the a_test size; this is only appropriate for some systems (mainly sunos), so do it in the callback instead. Same routine: Add stuff to the THIS_IS_ONLY_DOCUMENTATION comment. * aoutx.h (NAME(aout,set_section_contents): Change the way filepos and size of sections are carried out to support older styles of demand paged executables. Fri Oct 11 12:33:36 1991 Steve Chamberlain (steve at cygnus.com) * bfd-in.h: Added more macros to COFF_SWAP_TABLE. * bfd.c: Added macros to enable gas to swap coff records. * coffcode.h: Make the coff_swap_*_out routines return the number of bytes swapped, and cleaned up their prototypes. * configure.in: Added ebmon/coff support * ecoff.c: Changed null definitions of coff_swap_*_out to conform to new prototypes * targets.c: Added new entry points for coff swapping Fri Oct 11 03:01:52 1991 John Gilmore (gnu at cygnus.com) Restructure configuration scheme for bfd, binutils, ld. * include/sys/h-*.h: Move to bfd/hosts/h-*.h. * configure.in: Revise to symlink sysdep.h to hosts/h-xxx.h. Change some config names to match other dirs. * *.c: Include bfd.h before sysdep.h, so ansidecl and PROTO() get defined first. * Makefile.in: Use -I. to get sysdep.h. Remove refs to ../include/sysdep.h. * cpu-i960.c: Strncmp needed a length arg. * ecoff.c: Don't ever call trad_unix_core_file_p from here. * i386aout.c: Remove dead N_TXTOFF override. * trad-core.c: Don't disable the whole file if SUN4_SYS. * config/: Rename some config files to match up h-*.h names. Remove all the HOST_SYS definitions from the config files. * hosts/h-amix.h, h-i386v.h: Define POSIX_UTIME, not USG. * hosts/h-hp9000.h: Remove USG comment. * hosts/h-rs6000.h: Include for malloc. * hosts/h-news.h, h-sparc-64.h: New config files that had previously been kludged in the file. Thu Oct 10 17:54:08 1991 John Gilmore (gnu at cygnus.com) * config/*: trad-core support is HOST dependent, not target dependent. Target config files only set DEFAULT_VECTOR and/or other vector elements. Exception: when host-aout.c is in use, in which case we're forced to assume we're native (hp, vax, tahoe). Rename XDEPFILES to HDEPFILES. * Makefile.in: Rename XDEPFILES. * config/h-sun*: Don't force static linking. * trad-core.c: Document how to use it nowadays. * i386aout.c, newsos3.c: Clean up. * i386coff.c: Allow 386 coff files to be used as core files too (for reading core files from embedded systems). Tue Oct 8 15:30:39 1991 John Gilmore (gnu at cygnus.com) * Add i386aout.c for a.out support on the i386. Tue Oct 8 12:18:54 1991 Roland H. Pesch (pesch at cygnus.com) * reloc.c, section.c, syms.c, targets.c: correct info-node structure in *doc* comments. doc/Makefile: stop hiding complaints from makeinfo. Sun Oct 6 19:10:06 1991 John Gilmore (gnu at cygnus.com) * aoutx.h (...some_aout_object_p): Take a third parameter, the internal_exec struct, and avoid ever looking at an external_exec. All callers changed to read the entire external_exec struct, swap and check its magic number, swap in the whole structure, and pass the swapped-in version to some_aout_object_p. * bout.c: Bring into modern era. Use single _object_p routine for big- aand little-endian. Provide internal and external exec header structs. Use separate swap-in and swap-out routines. * libaout.h: Move struct internal_exec from ../include/aout64.h to here. Add obj_symbol_entry_size to struct aoutdata. * aoutx.h (...some_aout_object_p): Set obj_symbol_entry_size. * ../include/aout64.h: Change EXTERNAL_LIST_SIZE to EXTERNAL_NLIST_SIZE. Callers changed. Fri Oct 4 18:18:46 1991 John Gilmore (gnu at cygnus.com) * bfd.c: Remove strerror() to libiberty. * elf.c: Remove elf_set_section_contents, use generic one. Lint. * libbfd-in.h, libbfd.c: Add bfd_generic_set_section_contents. * libbfd.c (bfd_generic_{get,set}_section_contents): Check that last byte of transfer, not first byte, is within the section. * host-aout.c: Remove `BSD' archive support. Lint. * archures.c: Rename `struct bfd_arch_info_struct' to `struct bfd_arch_info'. Rename `typedef bfd_arch_info_struct_type' to `bfd_arch_info_type'. All uses changed. * reloc.c: Rename `bfd_reloc_status_enum_type' to `bfd_reloc_status_type'. Rename `bfd_reloc_code_enum_real_type' to `bfd_reloc_code_real_type'. (This seems to be a misnomer, it needs a better name.) All uses changed. * targets.c: Rename `enum target_flavour_enum' to `enum target_flavour', and remove the `_enum' from all of the enum values themselves. All uses changed. * configure.in, config/h-i386mach: i386 mach host. * config/t-i386-aout: Use host-aout.c. * trad-core.c: Give it its own xvec's to make it independent of other file formats. * ecoff.c, host-aout.c: Remove refs to trad-core. * config/t-dec3100, t-hp300bsd, t-tahoe, t-vax: Define TRAD_CORE. * targets.c: #ifdef TRAD_CORE, include it in the vector. Fri Oct 4 17:38:03 1991 Steve Chamberlain (steve at cygnus.com) * reloc.c: Extended NEWHOWTO macro * ieee.c: Changed the way 8bit pcrel is done * cpu-h8300.c: got the registers in the right order Thu Oct 3 19:39:55 1991 John Gilmore (gnu at cygnus.com) * bfd-in.h: enum boolean => enum bfd_boolean for SVR4. Gumby's prediction is vindicated! * bfd-in.h, libbfd-in.h, doc/Makefile, doc/tolibbfd, doc/intobfd: Remove refs to howto.c, since Steve forgot. Thu Oct 3 07:49:21 1991 Steve Chamberlain (steve at cygnus.com) * elf.c: took the abort out of set_arch_mach so that objdump -i will still work. Now allows any architecture/machine to be set. Wed Oct 2 13:50:35 1991 Steve Chamberlain (steve at cygnus.com) * howto.c deleted and moved code to reloc.c * libbfd.h, libbfd-in.h removed $id stuff for real * cpu-h8300.c Made it match various different spellings of h8300. * archures.c: Took out the first char filter which made it only look for a cpu/arch match when the first chars of supplied and tested names were the same. * targets.c removed oasys stuff, pending someone to fix the bugs in it. Tue Oct 1 12:29:44 1991 John Gilmore (gnu at cygnus.com) * Makefile.in, configure.in, targets.c, elf.c: Add preliminary ELF support good enough for GDB. * configure.in, config/h-amix, config/t-m68k-elf: Handle m68k-cbm-svr4 host and target. * config/t-m68k-coff, t-m88k-coff, t-m88k-aout: Make files nonempty so `diff' and `patch' can cope. Tue Oct 1 11:24:31 1991 Steve Chamberlain (steve at cygnus.com) * archures.c: removed texinfo error * init.c: added texinfo hooks, and removed initialization error message. * libcoff-in.h, libbfd-in.h removed $id field so cvs can merge without complaints. Tue Oct 1 05:02:53 1991 John Gilmore (gnu at cygnus.com) * cpu-i960.c: Avoid numerical count of initializers. Vax Ultrix changes from David Taylor : * host-aout.c: Make little-endian vector really little-endian. * configure.in: Separate vax and tahoe cases, handle ultrix. * config/t-vax: Add trad-core.o. * config/h-vaxult: New host system. Mon Sep 30 15:13:46 1991 Steve Chamberlain (steve at cygnus.com) * bfd-in.h VERSION, change version number to 0.18, this makes a gap, but now is the same as the linker version number. * cpu-a29k.c, cpu-i386.c, cpu-m68k.c, cpu-mips.c, cpu-vax.c, cpu-h8300.c, cpu-i960.c, cpu-m88k.c, cpu-sparc.c: added. These files will eventually contain processor specific bits for bfd, like strange relocation information and dis/assembly. So far only the H8 has been even partially done. This work also ties in with the change in handling architectures. * amdcoff.c: (a29k_reloc) fix error message. * aout-f1.h: (choose_reloc_size) now calls bfd_get_arch to discover the architecture of the bfd. (sunos4_callback) calls the function bfd_set_arch_mach rather than stuffing stuff directly into the bfd. (sunos4_write_object_contents), changed names of accessor functions. * aoutx.h: (set_arch_mach) now calls bfd_default_set_arch_mach to setup the environment. * archive.c: (bfd_slurp_coff_armap) coff archives always have the headers in big endian format, regardless of the endianess of the host or target. * archures.c: totally changed. Now an architecture is represented with a pointer to an info structure rather than an enumerated type and a long. The old info is available as two elements in the structure. Future enhancements to architecure support will involve pointers to methods being placed into the info structure. * bfd.c: changed the definition of the bfd structure for the new architecture stuff. * bout.c: (b_out_set_arch_mach) changed to use the new architecture mechanism. * coffcode.h: (coff_set_arch_mach, coff_set_flags) changed to use the new architecture mechanism. * configure.in: added h8 stuff. * ieee.c: too many changes to note. Now ieee files written with bfd gas and ld can be read by gld and ieee only linkers and simulators. * libbfd.c, libbfd.h: changed prototype of bfd_write. * newsos3.c: (newos3_callback) now calls bfd_set_arch_mach rather than fixing the structure directly. * oasys.c: (oasys_object_p) now calls bfd_default_set_arch_mach rather than fixing the structure directly. * opncls.c: (new_bfd) makes sure that bfd_init has been called before opening a bfd. * srec.c: (srec_set_arch_mach) now calls bfd_default_set_arch_mach rather than fixing the structure directly. * targets.c: (target_vector) now by defining SELECT_VECS (perhaps in the t/hmake file) a user can select which backends they want linked with bfd without changing the source. * init.c: new, looks after initializing modules. * howto.c: for future use, will allow an application to work out what cookie to use as a handle on a relcoatio howto. Mon Sep 30 13:31:15 1991 John Gilmore (gnu at cygnus.com) * srec.c: Better error checking, partly from Peter Schauer. (srec_object_p): Avoid assuming any file that starts with 'S' is an S-record file! (Check for 3 uppercase-hex digits after it.) (ISHEX): Define new macro for checking supposedly hex characters. (pass_over): Treat as EOF any S-record line that: * doesn't have hex in either size character * produces a size larger than 0x7F * has an unrecognized type number Thu Sep 26 15:27:29 1991 John Gilmore (gnu at cygnus.com) * aoutf1.h, aoutx.h, bout.c, coffcode.h, host-aout.c, oasys.c, opncls.c: Lint (saber actually). Thu Sep 26 11:24:24 1991 Per Bothner (bothner at cygnus.com) * libaout.h (WRITE_HEADERS): Set header's a_text field always. * newsos3.c: Fixed two types: newos3 -> newsos3. * reloc.c (bfd_perform_relocation): Fix pc-relative relocation to use correct segment. Mon Sep 23 18:24:34 1991 Per Bothner (bothner at cygnus.com) * aoutx.h (print_symbol): Handle missing symbol->name. Fri Sep 20 12:26:01 1991 Stu Grossman (grossman at cygnus.com) * aoutf1.h (swapcore_sparc): Change name of USRSTACK, fix comment at top of routine. Tue Sep 17 17:23:49 1991 Stu Grossman (grossman at cygnus.com) * oasys.c, configure.in, config/h-irix3, config/t-irix3: add sgi/irix support. Thu Sep 12 14:29:09 1991 John Gilmore (gnu at cygint.cygnus.com) Changes for the AMD 29000 Ultracomputer port from David Wood. (wood@nyu.edu). * opncls.c (bfd_fdopenr): Handle NO_FCNTL. * Makefile.in: Make subdirs work by using $(INCDIR) in the crude dependencies. * coffcode.h (coff_real_object_p): Pass information about the current file's coff symbol format to BFD via the coff_data struct. (coff_find_nearest_line): obj_icof => coff_data. (coff_swap_sym_{in,out}): Check that SYMNMLEN == E_SYMNMLEN. (coff_swap_aux_{in,out}): Check that FILNMLEN == E_FILNMLEN and DIMNUM == E_DIMNUM. * configure.in: Handle a29k-*-* hosts, and targets a29k-*-coff, a29k-*-aout, and a29k-*-sym1. * libcoff-in.h: Add local_n_btmask, local_n_btshft, local_n_tmask, local_n_tshift, local_symesz, local_auxesz, local_linesz to `coff_data' (tdata) struct. (coff_data, coff_data_type, coff_tdata): Rename struct icofdata. * config/h-ultra3: Handle a29k-*-* hosts as Ultracomputers. Thu Sep 12 14:07:22 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * Makefile.in: $(MAKE) for make, $(docdir) for doc * doc/Makefile: redundant dependencies for Sun-make VPATH bug Tue Sep 10 20:34:12 1991 John Gilmore (gnu at cygint.cygnus.com) * aoutf1.h (sunos4_core_file_p): Release the right storage in error case. (sunos4_core_file_matches_executable_p): Fix header comparison. * aoutx.h: Avoid shifts of 32 bits, undefined in C. Lint. * bout.c, icoff.c, ieee.c, libbfd.c, oasys.c: gcc -O -W lint. Wed Sep 4 00:44:52 1991 John Gilmore (gnu at cygint.cygnus.com) Allow GDB to patch object files. * aoutf1.h (sunos_core_file_p): Set SEC_HAS_CONTENTS on all sections. * trad-core.h (trad_unix_core_file_p): Ditto. * aoutx.h (aout_set_section_contents): On first output, check abfd->direction and complain if erroneous. * Makefile.in: Add crude dependencies. Tue Sep 3 13:46:19 1991 Steve Chamberlain (steve at cygint.cygnus.com) * config/* aoutx.h configure* shortened all the h/tmake-xxxx to h/t-xxxx files so that everything will work on System V. Fri Aug 23 13:51:06 1991 John Gilmore (gnu at cygint.cygnus.com) * aoutx.h: Add information on host-aout.c and how to configure to use it, to the manual. * configure.in: Tix typo. * ecoff.c: If compiling for DEC3100, use trad_unix core files, else dummy out the core file support. * trad-core.c (trad_unix_core_file_p): If HOST_DATA_START_ADDR is specified, use it to locate the data section. * coffcode.h (coff_write_symbols): Declare buffer as bfd_bytes rather than as chars (lint). Thu Aug 22 22:20:19 1991 Stu Grossman (grossman at cygint.cygnus.com) * aoutx.h, coffcode.h: saberized. Thu Aug 22 11:27:06 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * bfd.texinfo: some cleanup, reincorporated more intro matter from bfd.doc bfd.c, targets.c: minor rewording of doc segments Wed Aug 21 19:13:22 1991 John Gilmore (gnu at cygint.cygnus.com) * trad-core.c (trad_unix_core_file_p): Use HOST_TEXT_START_ADDR, etc, rather than TEXT_START_ADDR. * host-aout.c: Remove #if 0 around whole thing. Update to modern (32/64-bit) a.out naming conventions. Include a large chunk of ../include/a.out.gnu.h to get macros that are not defined by the system include files. (host_aout_{32,64}_write_object_contents): Use the WRITE_HEADERS macro used by the other a.out implementations. * Makefile.in: Give dependencies to OPTIONAL_BACKENDS. Wed Aug 21 14:33:06 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * Makefile.in: use targets "bfd.dvi" and "bfd.ps" instead of texdoc and psdoc; make these depend on generated .texi's * scanit, (new) unPROTO: turn PROTO macros into ANSI declarations in doc * bfd.c, reloc.c, syms.c: minor spelling/wording fixes in doc portions * Makefile.in, awkscan-ip, awkscan-p, intobfd, libbfd.h, libcoff.h, tolibcoff; new bfd-in.h, libbfd-in.h, libcoff-in.h: (a) use separate files for invariant parts of bfd.h, libbfd.h, and libcoff.h; (b) in generated parts of same, use less obtrusive marks indicating .c origins. * bfd.texinfo: generalize most references to linker Tue Aug 20 15:18:02 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * Makefile.in: include core.p in PROTOS (building better bfd.h) * archures.c: remove empty foo() definition (crept in at vn1.9) Mon Aug 19 13:48:22 1991 Roland H. Pesch (pesch at cygint.cygnus.com) * bfd.texinfo: use @setchapternewpage on instead of lots of @page's; minor rephrasing in Introduction. * aoutx.h, archive.c, archures.c, bfd.c, bfd.texinfo, cache.c, coffcode.h, core.c, format.c, ieee.c, libbfd.c, libbfd.h, libcoff.h, oasys.c, opncls.c, reloc.c, section.c, syms.c, targets.c (documentation segments): used BFD (caps) more consistently as a name in discourse, fixed a few other minor typos and uses of fonts Thu Aug 8 16:47:43 1991 Steve Chamberlain (steve at cygint.cygnus.com) * coffcode.h: fixed bug where string table size wasn't being swapped. Thu Aug 1 16:35:28 1991 Steve Chamberlain (steve at cygint.cygnus.com) * section.c: added SEC_CONSTRUCTOR_TEXT|DATA|BSS flags * syms.c: added BSF_CONSTRUCTOR, BSF_WARNING and BSF_INDIRECT flags. (bfd_print_symbol_vandf) now knows what to do with the above flags. * aoutx.h: made translate_from_native_sym_flags and translate_to_native_sym_flags produce the above flags. Wed Jul 31 09:53:52 1991 John Gilmore (gnu at cygint.cygnus.com) * all files: update copyright notices for GPL version 2. Install header comments and attribute most modules to their authors. BFD's name is now officially "Binary File Descriptor", so remove any conflicting pejoratives. archures.h: Consists solely of comments; remove it. Fri Jul 26 18:11:34 1991 Steve Chamberlain (steve at cygint.cygnus.com) * Makefile.in, bfd.c: Made it compile again. Fri Jul 19 08:17:09 1991 Steve Chamberlain (steve at cygint.cygnus.com) * newsos3.c, targets.c, coffcode.h: new patches from David Wood Mon Jul 15 16:27:42 1991 Steve Chamberlain (steve at cygint.cygnus.com) * aoutf1.h archive.c bfd.c coffcode.h core.c ecoff.c ieee.c bfd.texinfo oasys.c opncls.c reloc.c srec.c: More documentation on lint fixes. * amdcoff.c bfd.texinfo Makefile.in : Folded in changes for amd 29k coff by David Wood (wood@lab.ultra.nyu.edu). Thu Jul 4 09:53:16 1991 Steve Chamberlain (steve at cygint.cygnus.com) * Everything: created some new files, core.c format.c, reloc.c, section.c and syms.c to split the functionality a bit better. Cleaned up the rest of the files a bit, and added some documentation. Mon Jul 1 13:29:47 1991 David Wood (wood at david.ultra.nya.edu) * opncls.c, ../include/sys/h-sun3.h ../include/sys/h-sun4.h: fcntl really takes 3 arguments, patched code and ammended prototypes. Fri Jun 14 13:19:40 1991 Steve Chamberlain (steve at cygint.cygnus.com) * ../include/bfd.h (struct bfd_target): Added new field "align_power_min" which contains the minimum alignment for a section. This is used in coff_new_section_hook. The field insertion necessitates an update of all backends.. * aoutf1.h jump table field inserted * archive.c(snarf_ar_hdr)(bfd_slurp_coff_armap) can now parse dgux style extended filenames too. * bout.c(b_out_squirt_out_relocs) fix to assertion tests. Jump table field inserted. * coffcode.h(just about everything) Now patches up symbol tables using a different mechanism. The Intel major bug has been fixed, and the linker can self host on the Aviion and be debugged with gdb. * ecoff.c: new include and jump table patch, i386coff.c: new include and jump table patch, icoff.c: new include and jump table patch, ieee.c: can now read archives containing ieee modules., libcoff.h: added (combined_entry_type), libieee.h: uped max sections to 20, m68kcoff.c: new include and jump table patch, m88kbcs.c: new include and jump table patch, oasys.c: various bugs fixed. opncls.c: added bfd_alloc_grow and bfd_alloc_finish. srec.c: jump table patch. trad-code.c fixed #IF typeo Fri Jun 7 12:35:46 1991 Sean Fagan (sef at cygint.cygnus.com) * coffcode.h (coff_swap_aux_in): added else case to deal with filenames less than 9 characters. Thu Jun 6 18:27:38 1991 Steve Chamberlain (steve at cygint.cygnus.com) * ../include/oasys.h oasys.c (oasys_archive_p): fixed so it works * srec.c: now allows any number of sections to be created in a file. Outputs addresses of the right length. Thu May 30 15:30:10 1991 Steve Chamberlain (steve at cygint.cygnus.com) * bfd.c (bfd_check_format): Fixed problem where when a defaulted target didn't match, the format got set to the attempted match, breaking a future test. *../include/i386coff.h : fixed typo in type field with size * i386coff.c icoff.c m88k-bcs.c ecoff.c ../include/bfd.h : Added support in the jump table for the swapping routines exported to gdb. Now gdb works with the 386. Tue May 28 17:21:43 1991 John Gilmore (gnu at cygint.cygnus.com) * Merge in changes from gdb-3.95 release. Makefile.in: Allow hmake and tmake files to add OFILES. aoutf1.h: bfd.c: support specific targets as well as searching. When searching, take default target in preference to others. bfd.doc: typos ieee.c, oasys.c: Avoid using the "tdata" macros left of assignment. liba.out.h: Don't hard-code file offsets; use N_ macros for them. libbfd.h: Support specific targets as well as searching. opncls.c: Support specific targets as well as searching. targets.c: Search is short-circuited if default target matches. liboasys.c, libieee.c: Undo bothner changes that make macros work to the left of assignment, but which depend on the representations of different pointer types being the same. Fri May 24 18:56:52 1991 Steve Chamberlain (steve at cygint.cygnus.com) * i386coff.c: created. * coffcode.h: added support for 386. * Makefile.in: added support for 386. * ../include/i386coff.h: created Wed May 22 07:26:38 1991 Steve Chamberlain (steve at cygint.cygnus.com) * coffcode.h: removed all put_x_ * libbfd.c: Changed #ifdef __GNUC__ to #ifdef HOST_64_BIT, Added DEFUNS Tue May 21 08:58:58 1991 Steve Chamberlain (steve at cygint.cygnus.com) (bothner) * opncls.c: Changed obstack_chunk_alloc use xmalloc Mon May 20 17:12:17 1991 Steve Chamberlain (steve at cygint.cygnus.com) * everything: Removed sysdep.h from bfd.h and put back into files from which it was split out. Now 64 bit version is built with a -DHOST_64_BIT="long long" on the compile line. Fri May 17 19:35:26 1991 Steve Chamberlain (steve at cygint.cygnus.com) Changed all the [get|put][name] routines to use [get|put]_[size in bytes]. Put in support for 64 bit work. Now two versions of bfd may be generated, according to the state of TARGET_64_BIT, one which is 32 bit only, and one which is 64/32 bits. Created new back end 'demo64' to test 64 bit functionality. Renamed some files to work on DOS. * archive.c: lint * bfd.c: prototypes and lint. * ecoff.c: added 64bit transfer * icoff.c: added 64bit transfer * ieee.c: name chage, 64 bit transfer. * liba.out.h: Split out common code from sunos and newsos into liba.out. Name changes and prototype mods. * libbfd.c: lint and prototypes, extra 64bit swaps. * libbfd.h: prototypes for new functions. * libcoff.h: lint * libieee.h: make work on DOS * liboasys.h: make work on DOS * m88k-bcs.c: Name change and 64bit stuff.* newsos3.c: common code removed, new jump table. * oasys.c: Name change * opncls.c: Portability fixes * srec.c: Name changes * sunos.c: Removed comon code. * targets.c: Added demo * aout32, aout64.c include aoutx.h * bout.c: used to be called b.out.c * coffcode.h: used to be called coff-code.h, now 64bit ized. * demo64.c: 64 bit a.out back end Thu May 16 16:02:07 1991 Steve Chamberlain (steve at cygint.cygnus.com) from bothner * libieee.h: Make ieee_data and ieee_ar_data macros usable on LHS of assignment, even when using old compilers. * liboasys.h: Ditto for oasys_data and oasys_ar_data. * m68kcoff.c: Add enum-to-int casts to accomodate old compilers. * newsos3.c: Fix definitions of SEGMENT_SIZE and TEXT_START_ADDR. * opncls.c: Define S_IXUSR, S_IXGRP, S_IXOTH if undefined. * targets.c: Add declaration of newsos3_vec. Mon May 13 10:03:29 1991 Steve Chamberlain (steve at cygint.cygnus.com) * aout.c: fixxed some of the problems with filepos calculation. (swap_ext_reloc): fixed problem with creation of relocs. (aout_set_section_contents): fixed filepos problem * coff-code.h: (swap_filehdr_in, swap_filehdr_out) add. (swap_filehdr) delete. Changed all the usage of bfd_h_put_x. (swap_aouthdr_in, swap_aouthdr_out) add. (swap_aouthdr) delete. (coff_real_object_p) cleaned up, added MIPS. (coff_object_p) cleaned up. (coff_write_object_contents) cleaned up. * ecoff.c: Totally different. Now supports ecoff fully. * icoff.c: fixed problems in relocation callout. * libcoff.h: (struct icofdata) removed hdr structure from tdata. * m68kcoff.c: updated target vector. * sunos.c: (choose_reloc_size) added: (sunos4_callback) calls choose_reloc_size. (sunos4_write_object_contents) now calls choose_reloc_size so outputs relocs correctly, also calculates the size of the sections correctly. Fri May 10 16:58:53 1991 John Gilmore (gnu at cygint.cygnus.com) Merge Per Bothner's changes to modularize BFD a.out a bit. * libbfd.h, libbfd.c (bfd_generic_get_section_contents): Add. * ieee.c: Cast enums to int before comparing them, for brain- dead compilers. * coff-code.h: Remove coff_get_section_contents, and use the generic one instead. * aout.c: Derive new module from sunos.c, containing generic support code for all kinds of a.out files. * sunos.c: Remove all code that goes in aout.c. Split out machine dependent followup in sunos4_object_p into sunos4_callback. Use JUMP_TABLE(aout) for the transver vector, and redefine only the names we CHANGE, not all the names. Drop the little-endian vector, and rename the vector as sunos4 rather than generic. * b.out.c: Use aout.c routines for most of the work. Slight changes for the new regime. Remove close_and_cleanup and get_section_contents in favor of generics. New transfer vector regime. * newsos.c: New support for Sony NEWS, another a.out format. * ecoff.c: Remove close_and_cleanup. New tvec regime. * icoff.c, m88k-bcs.c: Add write_contents to tvec. * ieee.c, oasys.c: Remove close_and_cleanup, add write_contents to tvec. * opncls.c (bfd_close): Call format-dependent write_contents routine, if writing, before calling target-dependent close_and_cleanup routine (which is now always generic, I think). * srec.c: Use bfd_alloc instead of malloc. Remove close_and_cleanup and move code from it to srec_write_object_contents. Add write_contents to tvec. * targets.c: Remove a.out little vector, replace a.out big vector with SunOS vector. FIXME: Need Vax support again now. * libbfd.h: Add write_contents format-dependent-vector to the bfd_target vector. Supply a generic close_and_cleanup routine. * liba.out.h: Handle the new aout.c split. Add prototypes for all routines defined in aout.c. Rename "sunos" things to "aout" things. Add a few fields where needed for various formats. * Makefile.in: Add aout.c and newsos.c. * archive.c, ieee.c, oasys.c: Lint. Fri May 10 12:34:48 1991 Steve Chamberlain (steve at cygint.cygnus.com) * ../include/bfd.h changed forward declaration struct stat; to reduce warnings. Changed comment on bfd_h__x. * ../include/m68kcoff.h, ../include/intel-coff.h, ../include/m88k-bcs.h Now there are two incarnations of relocs, linenos and syments. One for internal digestion, and one full of char arrays for I/O. The original names have gone to detect errors. * Makefile.in, m68kcoff.c, targets.c Test new structure code with a 68k coff implementaion * coff-code.h, icoff.c, coffswap.c, libcoff.h Fixed all the places where there were problems with the size and alignments of structures on disk and structures in memory. #ifed out all the code in coffswap.c, since it should be done using the target swap routines now. Thu May 9 11:00:45 1991 Steve Chamberlain (steve at cygint.cygnus.com) * ieee.c (do_one, ieee_slurp_section_data): now supports the load multiple reloc command. * sunos.c (sunos4_set_section_contents): Made it so that sections are always padded to their alignment size. Sat May 4 15:49:43 1991 John Gilmore (gnu at cygint.cygnus.com) * archive.c, bfd.c, coff-code.h, opncls.c, sunos.c, trad-core.c: Clean up types and such (saber C problems). * ecoff.c: Clean up types and such. Remove routines that are not used. Fix up reading and swapping of shorts from files. Notes on bfd-0.5.2-patch1a, from Per Bothner: * a.out.vax.c: Remove two bogus "static" from prototypes. * ecoff.c: Got rid of lots of non-working junk (that had been copied directly from coff-code.h). Updated to be consistent with updates to icoff.c and coff-code.h. * libbfd.h: Added definitions for S_IXUSR, S_IXGRP, and S_IXOTH if they're missing (as they are in (BDS-4.3-based) NewsOS-3). * sunos.c (n_txtoff): (Re-)Add support for sony. This is a kludge, but until the target_vector is automatically generated, it's as good as any. Note that the text offset is the only difference between NewsOS and SunOs (including magic numbers). (Most of the sunos_* routines should to renamed bsd_* and move to a bsd.c file. Then (and when the target_vector is automatically generated) it might make sense to create a separate Sony target.) * sysdep.h: Don't declare fread and fwrite. Causes trouble on some systems, and doesn't help on others. Similarly, only define X_OK if not already defined. * trad-core.c: Don't include sys/stat.h - at least on NewsOS 3, it has already been included. Tue Mar 5 01:47:57 1991 John Gilmore (gnu at cygint.cygnus.com) * coff-code.h (bfd_coff_swap_sym, bfd_coff_swap_aux, bfd_coff_swap_lineno): Export the routines that byte-swap COFF symbol tables if necessary when reading them in, so gdb can use them. Add "bfd_coff_" to the names so they won't conflict with names in calling programs. FIXME-soon: if coff-code.h is included in two BFD modules, this will cause duplicate definitions; the routines should be exported to a separate, common, module (probably along with a mess of other ones). Sat Mar 2 12:11:26 1991 John Gilmore (gnu at cygint.cygnus.com) Improve modtime support. * bfd.h: Add boolean mtime_set, and declare bfd_get_mtime. Remove #define for bfd_get_mtime. Remove gratuitous comment. * bfd.c (bfd_get_mtime): New fn, caches mtime, gets if not cached. BUG: archive members still do not get correct mod times. Improve floating point support for core files. * sunos.c (struct core): Change void *fpa_dummy to double fp_stuff. (sunos4_core_file_p): Create a second registers section in the core file, called ".reg2", for the float registers. Thu Feb 14 15:49:06 1991 Gumby Vinayak Wallace (gumby at cygint.cygnus.com) * many changes to improve archive handling; found a logic flaw in bfd_check_format which only just happened to work by cooncidence. Thu Feb 14 07:53:16 1991 Steve Chamberlain (steve at cygint.cygnus.com) * bfd.c (bfd_perform_relocation): fixed to use output_offsets correctly. * bfd.h: changed type of udata in asymbol to void *, like it should be. Added bfd_reloc_dangerous enum member. * coff-code.h: Fixed it so that internally generated symbols get their values relocated correctly in all cases. Removed calls to xmalloc. * icoff.c: Not understanding the destination symbol of a reloc is not a failure any more, just 'dangerous'. This allows linking of b.out and coff images. * sunos.c: Cleaned up the way that ZMAGIC section sizes are calculated. Tue Feb 12 13:25:46 1991 Steve Chamberlain (steve at cygint.cygnus.com) * sunos.c (translate_to_native_sym_flags): fixed sym_pointer->n_value so that symbols on the way out get their section relative values calculated correctly. * coff-code.h (mangle_symbols): fixed problem where tags were not being relocated for structs, enums, unions. Also various lints. Mon Feb 11 19:52:26 1991 Gumby Vinayak Wallace (gumby at cygint.cygnus.com) * archive.c (get_elt_at_filepos): system_call_error returned incorrectly. Sun Feb 10 23:18:40 1991 Gumby Vinayak Wallace (gumby at cygint.cygnus.com) * Resolve the use of no_error and system_call_error. The bfd library itself now will never set bfd_error to no_error. The code still needs to be combed to make sure all the error codes are correct. I suspect they are not always set correctly. * The names of all the messages have _ prepended because the sun bundled compiler can't distinguish from a macro which takes an argument and the same identifier in a non-macro context. * The reason for the above being that entry points which used to be trampoline functions are now just macros which expand to a direct call through the bfd's xfer vector. * (../include/intel-coff.h) F_AR32WR: fix this constant. Why must gas have its own version of everything (the gas version had the correct value) Tue Feb 5 11:46:53 1991 Steve Chamberlain (steve at cygint.cygnus.com) * b.out.c: Added patches supplied by chrisb@mipon2.intel.com to properly support i960 architecture and output correct reloc stuff. * bfd.h: added prototype for bfd_printable_arch_mach, added BFD_FAIL * coff-code.h: Applied patches from chrisb to support i960 architecture, zero relocs and swap them correcly and conditionally compiled the timestamp. * sunos.c: Made the default section alignment 2^3 so that doubles are done properly. Fixed the same reloc bug that was in b.out.c * sysdep.h: Now compiles on a Posix box Wed Jan 30 21:36:26 1991 John Gilmore (gnu at cygint.cygnus.com) * icoff.c: Fix comment on big-endian version. * coff-code.h: Make HAS_RELOC really work (it's backwards from F_RELFLG). Set F_AR32WR in output files if little endian architecture. Tue Jan 29 20:56:10 PST 1991 steve@cygnus.com * archures.c fixed =/== typo * sunos.c added architecture stuff for output. Fixed bug where files where vma(data) != size(text) were processed wrong. * coff-code.h added a lint cast * (../include/a.out.sun4.h) fixed it so zmagic worked Mon Jan 28 19:15:29 PST 1991 steve@cygnus.com * archive.c removed loads of includes, and fixed bug where string table didn't have a null at the end. * bfd.c fixed includes, added symbols argument to canonicalize_reloc entry point. * libbfd.c fixed includes and added some lint patches. * targets.c added both sorts of intel coff. * b.out.c fixed included, changed was the canonical relocs were done. * icoff.c added support for callj and big and little enidian tables. * opncls.c added chmod+xing for files with EXEC_P set. * sunos.c fixed includes. Changed default section alignement to words. Fixed relocation stuff to work with new scheme * bfd.h various new types added, prototype for new reloc calls, changed bfd->iostream to a void * to including files don't need stdio.h. * libcoff.h added conversion table to tie relocs to canonical symbols * sysdep.h created * coff-code.h fixed includes. Added code to support big and little endian formats. Various lints. Better processing of symbols. Changed reloc stuff to new order * libbfd.h fixed includes Mon Jan 21 11:53:51 PST 1991 steve@cygnus.com * bfd.h changed name of alignment entry in sec_struct to alignment_power, because of conflicting uses within bfd. Now it should be obvious that it's a 2**n alignment specifier. Removed start_pad, end_alignment, block, minsize, output_file_alignment, subsection_alignment and original_vma fields. Added align_power() macro. Fixed bfd_section_alignment acessor macros. Added bfd_symbol_same_target macro. * b.out.c (b_out_write_object_contents) fixed to use new alignment member. Fixed (callj_callback) to use section relative symbols properly. * sunos.c (sunos4_object_p) fixed to use new alignment_power. Fixed (translate_from_native_sym_flags) to correctly make symbols section relative. * bfd.c (bfd_errmsg) fixed various enum cast problems. (bfd_make_section) took out initialization of obsolete members. (bfd_print_symbol_vandf) added * opncls.c (bfd_create) created. * coff-code.h (coff_new_section_hook) took away refs to obsolete members. (make_a_section_from_file) added conversion between alignment types. (coff_symbol_from) added. (coff_count_linenumbers) only counts linenumbers if symbol is of coff-type. (coff_mangle_symbols) only heavily mangles symbols if symbol is coff-type. (coff_write_symbols) various lints. (coff_write_object_contents) various lints and modification for alignment conversion. (coff_slurp_relocs) fixed for use with new asection shape. Sat Jan 19 16:10:42 PST 1991 steve@cygnus.com * archive.c lots of lint * b.out.c added callj relocation support, upgrated reloc howto. Fixed so that asymbol and reloc records are output correctly. * bfd.c lots of lint, support for new bfd entry point bfd_print_symbol. * bfd.h changed definition of asymbol to contain pointer to owning bfd, removed target dependencies. * cache.c took out print statements, put in BFD_ASSERT calls. * coff-code.h various lints, corrected linenumber output functionality. Added support for new style asymbols and bfd_print_symbol. Fixed so that asymbol and reloc records are handled correctly. Added timestamp. * icoff.c Added support for new howto shape. * liba.out.h Added support for new asymbol shape * libbfd.c various lints * libbfd.h various lints * libcoff.h added support for new asymbol shape. * sunos.c various lints. Added support for new asymbol shape and bfd_print_symbol. Wed Jan 16 21:38:09 PST 1991 steve@cygnus.com * b.out.c removed prototype of sunos4_ennativate_symtab, lots of pointer lint. Added support for callj relocation. Fixed bug where the last 32 bytes of the text section were overwritten by data. Fixed bug where archives of b.out didn't work due bfd_slurp_extended_name_table returning false. * sunos.c added support for n_other field. Braced the howto table so that it won't be affected by any lengthing of the howto struct typedef. Various lints * bfd.h added support for n_other field, added special_function reloc type, modified bfd_perform_relocation prototype. Added bfd_h_get_x macros. * bfd.c upgraded bfd_perform_relocation, various lints. Wed Jan 16 01:55:53 1991 John Gilmore (gnu at rtl) * ChangeLog: Started ChangeLog for BFD. * ToDo: Create file for suggestions. * Makefile: Support easy loading into Saber C. Add dependencies for icoff.o and bcs88kcoff.o. Rename coff.c to coff-code.h. Change callers. * bfd.c (bfd_check_format): Allow the check_format routines to return the desired target vector, rather than just a Boolean. bfd.h (bfd_check_format): Change function pointer return type. archive.c (bfd_generic_archive_p): change callee. b.out.c (b_out_little_object_p, b_out_big_object_p, b_out_real_object_p): change callee. libbfd.c (_bfd_dummy_target): Dummy routine replacing bfd_false in check_format transfer vectors that need a filler. libbfd.h (bfd_generic_archive_p, _bfd_dummy_target): Fix decls. bcs88kcoff.c: change callee. coff-code.h (coff_real_object_p, coff_big_object_p): change callee. icoff.c: change callee. sunos.c (sunos4_object_p, sunos4_core_file_p): change callee. * libbfd.c (zalloc): It should actually zero the storage! This was commented out for some reason. * libbfd.h: Add malloc, xmalloc, memcpy, and fatal decls. This is so callers can avoid which doesn't exist on older systems. * bfd.c (map_over_sections): Add debugging code, since I noticed the section count for sunos core files was bad, but only GDB had detected the problem. (bfd_set_section_lineno_size, bfd_set_section_linenos, bfd_get_section_linenos): Remove obsolete functions. (bfd_apply_relocations): Use longs, not ints, for the math. * bfd.h: Declare enum boolean and struct bfd_target as well as typedefs for them. Remove obsolete bfd_get_section_lineno_size. * cache.c: Make the "fdopen" support work. Keep better track of how many files are open. Centralize the opening of files and be sure bfd_open[rw] actually try to open the file. Evade linked list initialization problems. * b.out.c, coff-code.h, opncls.c, sunos.c: lint. * coff-code.h (coff_slurp_symbol_table): Null-terminate symtab names. * cplus-dem.c: Delete file, since it is not part of BFD. * opncls.c (bfd_openr): Eliminate misplaced #if 0 code. (bfd_openr, bfd_openw): Actually open the file, give error now. * sunos.c (sunos4_core_file_p): Set section count. (sunos4_set_section_linenos, stab_names, fprint_name): Eliminiate obsolete definitions. (_write_symbol_table): Initialize counter. (foop): Eliminate debugging code. Local Variables: mode: indented-text left-margin: 8 fill-column: 74 version-control: never End: gdb-4.13/bfd/Makefile.in 666 34562 1752 63652 5602365756 13407 0ustar fnfcygnus# Makefile template for Configure for the BFD library. # Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc. # Written by Cygnus Support. # # This file is part of BFD, the Binary File Descriptor library. # # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. srcdir = . prefix = /usr/local exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include oldincludedir = docdir = doc SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) AR = ar AR_FLAGS = rc CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib CC_FOR_BUILD = $(CC) INCDIR = $(srcdir)/../include CSEARCH = -I. -I$(srcdir) -I$(INCDIR) DEP = mkdep SUBDIRS = doc TARGETLIB = libbfd.a # bfd.h goes here, for now BFD_H = bfd.h # Some of these files should be in BFD*_BACKENDS below, but some programs # won't link without them. So, in order for some of the minimal-bfd # hacks to work, they're also included here for now. # gdb: elf.o # objdump: elf.o # # Also, Jim Kingdon notes: # Writing S-records should be included in all (or at least most) # *-*-coff, *-*-aout, etc., configurations, because people will want to # be able to use objcopy to create S-records. (S-records are not useful # for the debugger, so if you are downloading things as S-records you # need two copies of the executable, one to download and one for the # debugger). BFD_LIBS = \ archive.o archures.o bfd.o cache.o coffgen.o core.o ctor.o \ format.o init.o libbfd.o opncls.o reloc.o \ section.o syms.o targets.o hash.o linker.o \ elf.o srec.o # This list is alphabetized to make it easier to keep in sync # with the decls and initializer in archures.c. ALL_MACHINES = \ cpu-a29k.o \ cpu-alpha.o \ cpu-h8300.o \ cpu-h8500.o \ cpu-hppa.o \ cpu-i386.o \ cpu-i960.o \ cpu-m68k.o \ cpu-m88k.o \ cpu-mips.o \ cpu-powerpc.o \ cpu-rs6000.o \ cpu-sh.o \ cpu-sparc.o \ cpu-vax.o \ cpu-we32k.o \ cpu-z8k.o # The .o files needed by all of the 32 bit vectors that are configured into # target_vector in targets.c if configured with --enable-targets=all. BFD32_BACKENDS = \ aout-adobe.o \ aout0.o \ aout32.o \ bout.o \ cf-i386lynx.o \ cf-m68klynx.o \ cf-sparclynx.o \ coff-a29k.o \ coff-apollo.o \ coff-h8300.o \ coff-h8500.o \ coff-i386.o \ coff-go32.o \ coff-i960.o \ coff-m68k.o \ coff-m88k.o \ coff-mips.o \ coff-rs6000.o \ coff-sh.o \ coff-sparc.o \ coff-u68k.o \ coff-we32k.o \ coff-z8k.o \ ecoff.o \ ecofflink.o \ elf32-gen.o \ elf32-hppa.o \ elf32-i386.o \ elf32-i860.o \ elf32-m68k.o \ elf32-m88k.o \ elf32-mips.o \ elf32-ppc.o \ elf32-sparc.o \ elf32.o \ hp300hpux.o \ som.o \ i386aout.o \ i386bsd.o \ i386linux.o \ i386lynx.o \ netbsd386.o \ i386mach3.o \ i386os9k.o \ ieee.o \ m68klynx.o \ mipsbsd.o \ newsos3.o \ nlm.o \ nlm32-i386.o \ nlm32-sparc.o \ nlm32-ppc.o \ nlm32.o \ oasys.o \ reloc16.o \ sparclynx.o \ stab-syms.o \ sunos.o # The .o files needed by all of the 64 bit vectors that are configured into # target_vector in targets.c if configured with --enable-targets=all # and --enable-64-bit-bfd. BFD64_BACKENDS = \ aout64.o \ coff-alpha.o \ demo64.o \ elf64-gen.o \ elf64-sparc.o \ elf64.o \ nlm32-alpha.o \ nlm64.o OPTIONAL_BACKENDS = \ aix386-core.o \ hpux-core.o \ irix-core.o \ lynx-core.o \ osf-core.o \ trad-core.o \ cisco-core.o # These are defined by configure.in: # WORDSIZE=32 # BFD_BACKENDS = $(BFD32_BACKENDS) all: #### host and target dependent Makefile fragments come in here. ### FLAGS_TO_PASS = \ "prefix=$(prefix)" \ "exec_prefix=$(exec_prefix)" \ "against=$(against)" \ "AR=$(AR)" \ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CC_FOR_BUILD=$(CC_FOR_BUILD)" \ "CFLAGS=$(CFLAGS)" \ "RANLIB=$(RANLIB)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "BISON=$(BISON)" ALL_CFLAGS=$(CFLAGS) $(HDEFINES) $(TDEFINES) $(CSEARCH) $(CSWITCHES) .c.o: $(CC) -c $(ALL_CFLAGS) $< # C source files that correspond to .o's. CFILES = libbfd.c opncls.c bfd.c archive.c targets.c cache.c \ archures.c coff-i386.c coff-go32.c aout64.c aout32.c sunos.c demo64.c \ coff-i960.c srec.c tekhex.c oasys.c ieee.c aout0.c \ ecoff.c ecofflink.c coff-m68k.c coff-u68k.c coff-apollo.c \ coff-a29k.c coff-rs6000.c coff-sparc.c coffgen.c format.c \ section.c core.c syms.c stab-syms.c reloc.c init.c ctor.c \ coff-m88k.c coff-mips.c coff-sh.c trad-core.c cisco-core.c newsos3.c \ i386aout.c i386linux.c netbsd386.c i386mach3.c i386os9k.c \ bout.c aout-adobe.c coff-we32k.c \ i386bsd.c i386dynix.c cpu-h8300.c cpu-i960.c cpu-sparc.c cpu-m68k.c \ cpu-m88k.c cpu-vax.c cpu-mips.c cpu-a29k.c cpu-i386.c cpu-powerpc.c \ cpu-rs6000.c coff-h8300.c som.c cpu-hppa.c cpu-we32k.c reloc16.c \ mipsbsd.c cpu-sh.c \ elf.c elf32.c elf32-sparc.c elf32-i386.c elf32-i860.c elf32-m68k.c \ elf32-hppa.c elf32-m88k.c elf32-mips.c elf32-gen.c elf32-ppc.c \ elf64.c elf64-gen.c elf64-sparc.c \ nlm.c nlm32.c nlm32-i386.c nlm32-sparc.c nlm32-alpha.c \ nlm64.c coff-alpha.c cpu-alpha.c nlm32-ppc.c \ hp300bsd.c hp300hpux.c \ i386lynx.c cf-i386lynx.c m68klynx.c cf-m68klynx.c \ sparclynx.c cf-sparclynx.c aix386-core.c hpux-core.c \ irix-core.c lynx-core.c osf-core.c hash.c linker.c HFILES = aout-target.h aoutf1.h aoutx.h coffcode.h \ coffswap.h ecoffswap.h elf32-hppa.h elf32-target.h elf64-target.h \ elfcode.h hppa_stubs.h libaout.h libbfd.h \ libcoff.h libecoff.h libelf.h libhppa.h libieee.h libnlm.h \ liboasys.h nlm-target.h nlmcode.h som.h genlink.h STAGESTUFF = $(TARGETLIB) $(OFILES) all: Makefile $(TARGETLIB) @$(MAKE) subdir_do DO=all "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) .NOEXPORT: MAKEOVERRIDES= .PHONY: check installcheck check: @echo No testsuites exist for the BFD library. Nothing to check. installcheck: @echo No testsuites exist for the BFD library. Nothing to check. info dvi : force @$(MAKE) subdir_do DO=$@ "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) clean-info: @$(MAKE) subdir_do DO=clean-info "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) install-info: force @$(MAKE) subdir_do DO=install-info "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) diststuff: info # Various kinds of .o files to put in libbfd.a: # BFD_LIBS Generic routines, always needed. # BFD_BACKENDS Routines the configured targets need. # BFD_MACHINES Architecture-specific routines the configured targets need. # HDEPFILES Routines the host needs, regardless of target. # TDEPFILES Routines the target needs, regardless of host. OFILES = $(BFD_LIBS) $(BFD_BACKENDS) $(BFD_MACHINES) $(HDEPFILES) $(TDEPFILES) ofiles : Makefile rm -f ofiles f=""; \ for i in $(OFILES) ; do \ case " $$f " in \ *" $$i "*) ;; \ *) f="$$f $$i" ;; \ esac ; \ done ; \ echo $$f > ofiles $(TARGETLIB): $(OFILES) ofiles rm -f $(TARGETLIB) @echo ofiles = `cat ofiles` $(AR) $(AR_FLAGS) $(TARGETLIB) `cat ofiles` $(RANLIB) $(TARGETLIB) # When compiling archures.c and targets.c, supply the default target # info from configure. targets.o: targets.c Makefile $(CC) -c $(ALL_CFLAGS) $(TDEFAULTS) $< archures.o: archures.c Makefile $(CC) -c $(ALL_CFLAGS) $(TDEFAULTS) $< subdir_do: force @for i in $(DODIRS); do \ if [ -d ./$$i ] ; then \ if (cd ./$$i; \ $(MAKE) $(FLAGS_TO_PASS) $(DO)) ; then true ; \ else exit 1 ; fi ; \ else true ; fi ; \ done tags etags: TAGS TAGS: force etags $(INCDIR)/*.h $(srcdir)/*.h $(srcdir)/*.c do_mostlyclean: rm -f *.o *~ core *.E *.p *.ip aout-params.h gen-aout do_clean: do_mostlyclean rm -f libbfd.a TAGS bfd.h stmp-bfd.h ofiles do_distclean: do_clean rm -f Makefile config.status sysdep.h # Should we remove $(srcdir)/libcoff.h $(srcdir)/libbfd.h $(srcdir)/bfd-in2.h? # make-stds.texi says it depends on whether they can be regenerated using # this makefile. Well, they can, but only via an explicit "make headers"; # the makefile does not regenerate them as needed. So I guess we should not # remove them in realclean. do_realclean: do_distclean mostlyclean: do_mostlyclean $(MAKE) subdir_do DO=mostlyclean "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) clean: do_clean $(MAKE) subdir_do DO=clean "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) distclean: $(MAKE) subdir_do DO=distclean "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) $(MAKE) do_distclean clobber realclean: $(MAKE) subdir_do DO=realclean "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) $(MAKE) do_realclean # Mark everything as depending on config.status, since the timestamp on # sysdep.h might actually move backwards if we reconfig and relink it # to a different hosts/h-xxx.h file. This will force a recompile anyway. BFD_H_DEPS= $(INCDIR)/ansidecl.h $(INCDIR)/obstack.h RECONFIG = config.status $(BFD_LIBS): libbfd.h $(BFD_H) $(RECONFIG) $(BFD_H_DEPS) $(BFD_MACHINES): libbfd.h $(BFD_H) $(RECONFIG) $(BFD_H_DEPS) $(BFD_BACKENDS): libbfd.h $(BFD_H) $(RECONFIG) $(BFD_H_DEPS) $(OPTIONAL_BACKENDS): libbfd.h $(BFD_H) $(RECONFIG) $(BFD_H_DEPS) # Get around a Sun Make bug in SunOS 4.1.1 with VPATH cpu-i386.o:cpu-i386.c cpu-z8k.o: cpu-z8k.c cpu-h8500.o: cpu-h8500.c cpu-we32k.o: cpu-we32k.c saber: #suppress 65 on bfd_map_over_sections #suppress 66 on bfd_map_over_sections #suppress 67 on bfd_map_over_sections #suppress 68 on bfd_map_over_sections #suppress 69 on bfd_map_over_sections #suppress 70 on bfd_map_over_sections #suppress 110 in bfd_map_over_sections #suppress 112 in bfd_map_over_sections #suppress 530 #suppress 590 in swap_exec_header #suppress 590 in _bfd_dummy_core_file_matches_executable_p #suppress 590 in bfd_dont_truncate_arname #suppress 590 on ignore #suppress 590 on abfd #setopt load_flags $(CFLAGS) #load $(CFILES) #----------------------------------------------------------------------------- # 'STANDARD' GNU/960 TARGETS BELOW THIS POINT # # 'VERSION' file must be present and contain a string of the form "x.y" #----------------------------------------------------------------------------- ver960.c: FORCE rm -f ver960.c echo "char ${TARG}_ver[]= \"${TARG} `cat VERSION`, `date`\";" > ver960.c # This target should be invoked before building a new release. # 'VERSION' file must be present and contain a string of the form "x.y" # roll: @V=`cat VERSION` ; \ MAJ=`sed 's/\..*//' VERSION` ; \ MIN=`sed 's/.*\.//' VERSION` ; \ V=$$MAJ.`expr $$MIN + 1` ; \ rm -f VERSION ; \ echo $$V >VERSION ; \ echo Version $$V # Dummy target to force execution of dependent targets. # force: install: $(INSTALL_DATA) libbfd.a $(libdir)/libbfd.a $(RANLIB) $(libdir)/libbfd.a # Install BFD include file, and others that it needs. Install them # both in GCC's include directory, and in the system include dir # if configured as $(oldincludedir) -- which it usually isnt. $(INSTALL_DATA) $(BFD_H) $(includedir)/bfd.h $(INSTALL_DATA) $(INCDIR)/ansidecl.h $(includedir)/ansidecl.h $(INSTALL_DATA) $(INCDIR)/obstack.h $(includedir)/obstack.h -if test -z "$(oldincludedir)"; then true; else \ test -d $(oldincludedir) || mkdir $(oldincludedir); \ $(INSTALL_DATA) $(BFD_H) $(oldincludedir)/bfd.h; \ $(INSTALL_DATA) $(INCDIR)/ansidecl.h $(oldincludedir)/ansidecl.h; \ $(INSTALL_DATA) $(INCDIR)/obstack.h $(oldincludedir)/obstack.h; \ $(MAKE) subdir_do DO=install "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS); \ fi Makefile: Makefile.in configure.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) config.status # Have to get rid of .dep1 here so that "$?" later includes all of $(CFILES). .dep: dep.sed $(CFILES) $(HFILES) bfd.h rm -f .dep1 $(MAKE) DEP=$(DEP) .dep1 sed -f dep.sed <.dep1 >.dep # This rule really wants a mkdep that runs "gcc -MM". .dep1: $(CFILES) rm -f .dep2 echo '# DO NOT DELETE THIS LINE -- mkdep uses it.' > .dep2 $(DEP) -f .dep2 $(ALL_CFLAGS) $? $(srcdir)/../move-if-change .dep2 .dep1 dep.sed: dep-in.sed config.status sed <$(srcdir)/dep-in.sed >dep.sed \ -e 's!@BFD_H@!$(BFD_H)!' \ -e 's!@INCDIR@!$(INCDIR)!' \ -e 's!@srcdir@!$(srcdir)!' dep: .dep sed -e '/^..DO NOT DELETE THIS LINE/,$$d' < Makefile > tmp-Makefile cat .dep >> tmp-Makefile $(srcdir)/../move-if-change tmp-Makefile Makefile dep-in: .dep sed -e '/^..DO NOT DELETE THIS LINE/,$$d' < $(srcdir)/Makefile.in > tmp-Makefile.in cat .dep >> tmp-Makefile.in $(srcdir)/../move-if-change tmp-Makefile.in $(srcdir)/Makefile.in host-aout.o: Makefile # The following program can be used to generate a simple config file # which can be folded into an h-XXX file for a new host, with some editing. aout-params.h: gen-aout ./gen-aout host > aout-params.h gen-aout: $(srcdir)/gen-aout.c Makefile $(CC) -o gen-aout $(CFLAGS) $(LFLAGS) $(srcdir)/gen-aout.c BFDIN_H= $(srcdir)/bfd-in2.h $(BFD_H): stmp-bfd.h ; @true # The file ../include/bfd.h is from earlier attempts to get this right. # If the file is still there, kill it. # The weird sh*t with grep is to avoid printing "exit 1 (ignored)" type # messages from make, and avoid various ways in which different versions # of make will screw up exit status checks. # -grep... -> make prints "exit 1" message # grep ... ; exit 0 -> sun(?) make notices grep failure # grep ... || exit 0 -> bsd4.4 make still notices # if grep ... -> seems okay so far stmp-bfd.h : $(srcdir)/bfd-in2.h Makefile rm -f bfd.h-new 64 ../include/bfd.h if grep BFD_HOST_64_BIT sysdep.h > 64 2>/dev/null; then true; \ else true; fi sed -e 's/@WORDSIZE@/$(WORDSIZE)/' \ -e "s/@VERSION@/`cat $(srcdir)/VERSION`/" \ -e '/64-bit.*sysdep.h/ r 64' \ < $(srcdir)/bfd-in2.h \ > bfd.h-new $(srcdir)/../move-if-change bfd.h-new $(BFD_H) rm -f 64 touch stmp-bfd.h # Could really use a "copy-if-change"... headers: (cd $(docdir); $(MAKE) protos $(FLAGS_TO_PASS)) cp $(docdir)/bfd.h bfd-in2.h-new $(srcdir)/../move-if-change bfd-in2.h-new $(srcdir)/bfd-in2.h cp $(docdir)/libbfd.h libbfd.h-new $(srcdir)/../move-if-change libbfd.h-new $(srcdir)/libbfd.h cp $(docdir)/libcoff.h libcoff.h-new $(srcdir)/../move-if-change libcoff.h-new $(srcdir)/libcoff.h bfd.info: (cd $(docdir); $(MAKE) bfd.info $(FLAGS_TO_PASS)) bfd.dvi: (cd $(docdir); $(MAKE) bfd.dvi $(FLAGS_TO_PASS)) bfd.ps: (cd $(docdir); $(MAKE) bfd.ps $(FLAGS_TO_PASS)) # What appears below is generated by a hacked mkdep using gcc -MM. # DO NOT DELETE THIS LINE -- mkdep uses it. # DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. libbfd.o: libbfd.c opncls.o: opncls.c bfd.o: bfd.c $(INCDIR)/bfdlink.h $(INCDIR)/coff/internal.h \ $(INCDIR)/coff/sym.h libcoff.h libecoff.h $(INCDIR)/coff/ecoff.h \ libelf.h $(INCDIR)/elf/common.h $(INCDIR)/elf/internal.h \ $(INCDIR)/elf/external.h archive.o: archive.c $(INCDIR)/aout/ar.h $(INCDIR)/aout/ranlib.h targets.o: targets.c cache.o: cache.c archures.o: archures.c coff-i386.o: coff-i386.c $(INCDIR)/coff/i386.h $(INCDIR)/coff/internal.h \ libcoff.h coffcode.h coffswap.h coff-go32.o: coff-go32.c $(INCDIR)/coff/i386.h $(INCDIR)/coff/internal.h \ libcoff.h coffcode.h coffswap.h aout64.o: aout64.c aoutx.h $(INCDIR)/bfdlink.h libaout.h \ $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h $(INCDIR)/aout/stab.def \ $(INCDIR)/aout/ar.h aout32.o: aout32.c aoutx.h $(INCDIR)/bfdlink.h libaout.h \ $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h $(INCDIR)/aout/stab.def \ $(INCDIR)/aout/ar.h sunos.o: sunos.c $(INCDIR)/bfdlink.h libaout.h aoutf1.h \ $(INCDIR)/aout/sun4.h $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h aout-target.h demo64.o: demo64.c aoutf1.h $(INCDIR)/aout/sun4.h libaout.h \ $(INCDIR)/bfdlink.h $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h aout-target.h coff-i960.o: coff-i960.c $(INCDIR)/coff/i960.h $(INCDIR)/coff/internal.h \ libcoff.h coffcode.h coffswap.h srec.o: srec.c tekhex.o: tekhex.c oasys.o: oasys.c $(INCDIR)/oasys.h liboasys.h ieee.o: ieee.c $(INCDIR)/ieee.h libieee.h aout0.o: aout0.c aoutf1.h $(INCDIR)/aout/sun4.h libaout.h \ $(INCDIR)/bfdlink.h $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h aout-target.h ecoff.o: ecoff.c $(INCDIR)/bfdlink.h $(INCDIR)/aout/ar.h \ $(INCDIR)/aout/ranlib.h libaout.h $(INCDIR)/aout/aout64.h \ $(INCDIR)/coff/internal.h $(INCDIR)/coff/sym.h $(INCDIR)/coff/symconst.h \ $(INCDIR)/coff/ecoff.h libcoff.h libecoff.h ecofflink.o: ecofflink.c $(INCDIR)/bfdlink.h $(INCDIR)/coff/internal.h \ $(INCDIR)/coff/sym.h $(INCDIR)/coff/symconst.h $(INCDIR)/coff/ecoff.h coff-m68k.o: coff-m68k.c $(INCDIR)/coff/m68k.h $(INCDIR)/coff/internal.h \ libcoff.h coffcode.h coffswap.h coff-u68k.o: coff-u68k.c coff-m68k.c $(INCDIR)/coff/m68k.h \ $(INCDIR)/coff/internal.h libcoff.h coffcode.h coffswap.h coff-apollo.o: coff-apollo.c $(INCDIR)/coff/apollo.h \ $(INCDIR)/coff/internal.h libcoff.h coffcode.h coffswap.h coff-a29k.o: coff-a29k.c $(INCDIR)/coff/a29k.h $(INCDIR)/coff/internal.h \ libcoff.h coffcode.h coffswap.h coff-rs6000.o: coff-rs6000.c $(INCDIR)/coff/internal.h \ $(INCDIR)/coff/rs6000.h libcoff.h coffcode.h coffswap.h coff-sparc.o: coff-sparc.c $(INCDIR)/coff/sparc.h $(INCDIR)/coff/internal.h \ libcoff.h coffcode.h coffswap.h coffgen.o: coffgen.c $(INCDIR)/coff/internal.h libcoff.h format.o: format.c section.o: section.c core.o: core.c syms.o: syms.c $(INCDIR)/aout/stab_gnu.h $(INCDIR)/aout/stab.def stab-syms.o: stab-syms.c libaout.h $(INCDIR)/bfdlink.h \ $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab.def reloc.o: reloc.c $(INCDIR)/bfdlink.h init.o: init.c ctor.o: ctor.c coff-m88k.o: coff-m88k.c $(INCDIR)/coff/m88k.h $(INCDIR)/coff/internal.h \ libcoff.h coffcode.h coffswap.h coff-mips.o: coff-mips.c $(INCDIR)/bfdlink.h $(INCDIR)/coff/internal.h \ $(INCDIR)/coff/sym.h $(INCDIR)/coff/symconst.h $(INCDIR)/coff/ecoff.h \ $(INCDIR)/coff/mips.h libcoff.h libecoff.h coffswap.h \ ecoffswap.h coff-sh.o: coff-sh.c $(INCDIR)/bfdlink.h $(INCDIR)/coff/sh.h \ $(INCDIR)/coff/internal.h libcoff.h coffcode.h coffswap.h trad-core.o: trad-core.c libaout.h $(INCDIR)/bfdlink.h cisco-core.o: cisco-core.c newsos3.o: newsos3.c $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h libaout.h \ $(INCDIR)/bfdlink.h aout-target.h i386aout.o: i386aout.c libaout.h $(INCDIR)/bfdlink.h \ aout-target.h $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h i386linux.o: i386linux.c $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h libaout.h \ $(INCDIR)/bfdlink.h aout-target.h netbsd386.o: netbsd386.c libaout.h $(INCDIR)/bfdlink.h \ aout-target.h $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h i386mach3.o: i386mach3.c $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h libaout.h \ $(INCDIR)/bfdlink.h aout-target.h i386os9k.o: i386os9k.c $(INCDIR)/bfdlink.h libaout.h \ $(INCDIR)/os9k.h bout.o: bout.c $(INCDIR)/bfdlink.h genlink.h $(INCDIR)/bout.h \ $(INCDIR)/aout/stab_gnu.h $(INCDIR)/aout/stab.def libaout.h aout-adobe.o: aout-adobe.c $(INCDIR)/aout/adobe.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def libaout.h $(INCDIR)/bfdlink.h coff-we32k.o: coff-we32k.c $(INCDIR)/coff/we32k.h $(INCDIR)/coff/internal.h \ libcoff.h coffcode.h coffswap.h i386bsd.o: i386bsd.c libaout.h $(INCDIR)/bfdlink.h \ aout-target.h $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h i386dynix.o: i386dynix.c $(INCDIR)/aout/dynix3.h libaout.h \ $(INCDIR)/bfdlink.h aout-target.h $(INCDIR)/aout/aout64.h \ $(INCDIR)/aout/stab_gnu.h $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h cpu-h8300.o: cpu-h8300.c cpu-i960.o: cpu-i960.c cpu-sparc.o: cpu-sparc.c cpu-m68k.o: cpu-m68k.c cpu-m88k.o: cpu-m88k.c cpu-vax.o: cpu-vax.c cpu-mips.o: cpu-mips.c cpu-a29k.o: cpu-a29k.c cpu-i386.o: cpu-i386.c cpu-powerpc.o: cpu-powerpc.c cpu-rs6000.o: cpu-rs6000.c coff-h8300.o: coff-h8300.c $(INCDIR)/bfdlink.h $(INCDIR)/coff/h8300.h \ $(INCDIR)/coff/internal.h libcoff.h coffcode.h coffswap.h som.o: som.c cpu-hppa.o: cpu-hppa.c cpu-we32k.o: cpu-we32k.c reloc16.o: reloc16.c $(INCDIR)/bfdlink.h genlink.h \ $(INCDIR)/coff/internal.h libcoff.h mipsbsd.o: mipsbsd.c libaout.h $(INCDIR)/bfdlink.h \ aout-target.h $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h cpu-sh.o: cpu-sh.c elf.o: elf.c $(INCDIR)/bfdlink.h libelf.h $(INCDIR)/elf/common.h \ $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h elf32.o: elf32.c elfcode.h $(INCDIR)/bfdlink.h libelf.h \ $(INCDIR)/elf/common.h $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h elf32-sparc.o: elf32-sparc.c $(INCDIR)/bfdlink.h libelf.h \ $(INCDIR)/elf/common.h $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h \ elf32-target.h elf32-i386.o: elf32-i386.c $(INCDIR)/bfdlink.h libelf.h \ $(INCDIR)/elf/common.h $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h \ elf32-target.h elf32-i860.o: elf32-i860.c libelf.h $(INCDIR)/elf/common.h \ $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h $(INCDIR)/bfdlink.h \ elf32-target.h elf32-m68k.o: elf32-m68k.c libelf.h $(INCDIR)/elf/common.h \ $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h $(INCDIR)/bfdlink.h \ elf32-target.h elf32-hppa.o: elf32-hppa.c $(INCDIR)/bfdlink.h libelf.h \ $(INCDIR)/elf/common.h $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h \ elf32-hppa.h libhppa.h $(INCDIR)/elf/hppa.h $(INCDIR)/aout/aout64.h \ hppa_stubs.h elf32-target.h elf32-m88k.o: elf32-m88k.c libelf.h $(INCDIR)/elf/common.h \ $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h $(INCDIR)/bfdlink.h \ elf32-target.h elf32-mips.o: elf32-mips.c $(INCDIR)/bfdlink.h genlink.h \ libelf.h $(INCDIR)/elf/common.h $(INCDIR)/elf/internal.h \ $(INCDIR)/elf/external.h $(INCDIR)/elf/mips.h $(INCDIR)/coff/sym.h \ $(INCDIR)/coff/symconst.h $(INCDIR)/coff/internal.h \ $(INCDIR)/coff/ecoff.h $(INCDIR)/coff/mips.h ecoffswap.h \ elf32-target.h elf32-gen.o: elf32-gen.c libelf.h $(INCDIR)/elf/common.h \ $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h $(INCDIR)/bfdlink.h \ elf32-target.h elf32-ppc.o: elf32-ppc.c libelf.h $(INCDIR)/elf/common.h \ $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h $(INCDIR)/bfdlink.h \ elf32-target.h elf64.o: elf64.c elfcode.h $(INCDIR)/bfdlink.h libelf.h \ $(INCDIR)/elf/common.h $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h elf64-gen.o: elf64-gen.c libelf.h $(INCDIR)/elf/common.h \ $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h $(INCDIR)/bfdlink.h \ elf64-target.h elf64-sparc.o: elf64-sparc.c libelf.h $(INCDIR)/elf/common.h \ $(INCDIR)/elf/internal.h $(INCDIR)/elf/external.h $(INCDIR)/bfdlink.h \ elf64-target.h nlm.o: nlm.c libnlm.h $(INCDIR)/nlm/common.h $(INCDIR)/nlm/internal.h \ $(INCDIR)/nlm/external.h nlm32.o: nlm32.c nlmcode.h libnlm.h $(INCDIR)/nlm/common.h \ $(INCDIR)/nlm/internal.h $(INCDIR)/nlm/external.h nlm32-i386.o: nlm32-i386.c $(INCDIR)/nlm/i386-ext.h \ libnlm.h $(INCDIR)/nlm/common.h $(INCDIR)/nlm/internal.h \ $(INCDIR)/nlm/external.h nlmswap.h nlm-target.h nlm32-sparc.o: nlm32-sparc.c $(INCDIR)/nlm/sparc32-ext.h \ libnlm.h $(INCDIR)/nlm/common.h $(INCDIR)/nlm/internal.h \ $(INCDIR)/nlm/external.h nlmswap.h nlm-target.h nlm32-alpha.o: nlm32-alpha.c $(INCDIR)/nlm/alpha-ext.h \ libnlm.h $(INCDIR)/nlm/common.h $(INCDIR)/nlm/internal.h \ $(INCDIR)/nlm/external.h nlmswap.h nlm-target.h nlm64.o: nlm64.c nlmcode.h libnlm.h $(INCDIR)/nlm/common.h \ $(INCDIR)/nlm/internal.h $(INCDIR)/nlm/external.h coff-alpha.o: coff-alpha.c $(INCDIR)/bfdlink.h $(INCDIR)/coff/internal.h \ $(INCDIR)/coff/sym.h $(INCDIR)/coff/symconst.h $(INCDIR)/coff/ecoff.h \ $(INCDIR)/coff/alpha.h libcoff.h libecoff.h coffswap.h \ ecoffswap.h cpu-alpha.o: cpu-alpha.c nlm32-ppc.o: nlm32-ppc.c $(INCDIR)/nlm/ppc-ext.h libnlm.h \ $(INCDIR)/nlm/common.h $(INCDIR)/nlm/internal.h $(INCDIR)/nlm/external.h \ nlmswap.h nlm-target.h hp300bsd.o: hp300bsd.c libaout.h $(INCDIR)/bfdlink.h \ aout-target.h $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h hp300hpux.o: hp300hpux.c $(INCDIR)/aout/hp300hpux.h \ aoutx.h $(INCDIR)/bfdlink.h libaout.h $(INCDIR)/aout/aout64.h \ $(INCDIR)/aout/stab_gnu.h $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h \ aout-target.h i386lynx.o: i386lynx.c libaout.h $(INCDIR)/bfdlink.h \ $(INCDIR)/aout/aout64.h aout-target.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h cf-i386lynx.o: cf-i386lynx.c coff-i386.c $(INCDIR)/coff/i386.h \ $(INCDIR)/coff/internal.h libcoff.h coffcode.h coffswap.h m68klynx.o: m68klynx.c libaout.h $(INCDIR)/bfdlink.h \ $(INCDIR)/aout/aout64.h aout-target.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h cf-m68klynx.o: cf-m68klynx.c coff-m68k.c $(INCDIR)/coff/m68k.h \ $(INCDIR)/coff/internal.h libcoff.h coffcode.h coffswap.h sparclynx.o: sparclynx.c $(INCDIR)/aout/sun4.h libaout.h \ $(INCDIR)/bfdlink.h $(INCDIR)/aout/aout64.h $(INCDIR)/aout/stab_gnu.h \ $(INCDIR)/aout/stab.def $(INCDIR)/aout/ar.h aout-target.h cf-sparclynx.o: cf-sparclynx.c coff-sparc.c $(INCDIR)/coff/sparc.h \ $(INCDIR)/coff/internal.h libcoff.h coffcode.h coffswap.h aix386-core.o: aix386-core.c $(INCDIR)/coff/i386.h \ $(INCDIR)/coff/internal.h libcoff.h hpux-core.o: hpux-core.c irix-core.o: irix-core.c lynx-core.o: lynx-core.c osf-core.o: osf-core.c hash.o: hash.c linker.o: linker.c $(INCDIR)/bfdlink.h genlink.h # IF YOU PUT ANYTHING HERE IT WILL GO AWAY gdb-4.13/bfd/PORTING 666 34562 1752 5327 5464321212 12343 0ustar fnfcygnus Preliminary Notes on Porting BFD -------------------------------- The 'host' is the system a tool runs *on*. The 'target' is the system a tool runs *for*, i.e. a tool can read/write the binaries of the target. Porting to a new host --------------------- Pick a name for your host. Call that . ( might be sun4, ...) Create a file hosts/.mh. Porting to a new target ----------------------- Pick a name for your target. Call that . Call the name for your CPU architecture . You need to create .c and config/.mt, and add a case for it to a case statements in bfd/configure.host and bfd/config.bfd, which associates each canonical host type with a BFD host type (used as the base of the makefile fragment names), and to the table in bfd/configure.in which associates each target vector with the .o files it uses. config/.mt is a Makefile fragment. The following is usually enough: DEFAULT_VECTOR=_vec SELECT_ARCHITECTURES=bfd__arch See the list of cpu types in archures.c, or "ls cpu-*.c". If your architecture is new, you need to add it to the tables in bfd/archures.c, opcodes/configure.in, and binutils/objdump.c. For more information about .mt and .mh files, see config/README. The file .c is the hard part. It implements the bfd_target _vec, which includes pointers to functions that do the actual -specific methods. Porting to a that uses the a.out binary format ------------------------------------------------------- In this case, the include file aout-target.h probaby does most of what you need. The program gen-aout generates .c for you automatically for many a.out systems. Do: make gen-aout ./gen-aout > .c (This only works if you are building on the target ("native"). If you must make a cross-port from scratch, copy the most similar existing file that includes aout-target.h, and fix what is wrong.) Check the parameters in .c, and fix anything that is wrong. (Also let us know about it; perhaps we can improve gen-aout.c.) TARGET_IS_BIG_ENDIAN_P Should be defined if is big-endian. N_HEADER_IN_TEXT(x) See discussion in ../include/aout/aout64.h. BYTES_IN_WORD Number of bytes per word. (Usually 4 but can be 8.) ARCH Number of bits per word. (Usually 32, but can be 64.) ENTRY_CAN_BE_ZERO Define if the extry point (start address of an executable program) can be 0x0. TEXT_START_ADDR The address of the start of the text segemnt in virtual memory. Normally, the same as the entry point. PAGE_SIZE SEGMENT_SIZE Usually, the same as the PAGE_SIZE. Alignment needed for the data segment. TARGETNAME The name of the target, for run-time lookups. Usually "a.out-" gdb-4.13/bfd/TODO 666 34562 1752 1671 5450454757 12004 0ustar fnfcygnusThings that still need to be done: -*- Text -*- o - A source of space lossage is that all the target-dependent code is in a single bfd_target structure. Hence all the code for *writing* object files is still pulled into all the applications that only care about *reading* (gdb, nm, objdump), while gas has to carry along all the unneded baggage for reading objects. And so on. This would be a substantial change, and the payoff would not all that great (essentially none if bfd is used as a shared library). o - The storage needed by BFD data structures is also larger than strictly needed. This may be difficult to do much about. o - implement bfd_abort, which should close the bfd but not alter the filesystem. o - update the bfd doc; write a how-to-write-a-backend doc, take out the stupid quips and fill in all the blanks. o - upgrade the reloc handling as per Steve's suggestion. gdb-4.13/bfd/VERSION 666 34562 1752 13 5471761111 12275 0ustar fnfcygnuscygnus-2.3 gdb-4.13/bfd/aix386-core.c 666 34562 1752 21214 5610565565 13441 0ustar fnfcygnus/* BFD back-end for AIX on PS/2 core files. This was based on trad-core.c, which was written by John Gilmore of Cygnus Support. Copyright 1988, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Minh Tran-Le . Converted to back end form by Ian Lance Taylor . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* To use this file on a particular host, configure the host with these parameters in the config/h-HOST file: HDEFINES=-DAIX386_CORE=1 HDEPFILES=aix386-core.o */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/i386.h" #include "coff/internal.h" #include "libcoff.h" #include #include #include #include #if defined (_AIX) && defined (_I386) #define NOCHECKS /* this is for coredump.h */ #define _h_USER /* avoid including user.h from coredump.h */ #include #include #endif /* _AIX && _I386 */ /* maybe this could work on some other i386 but I have not tried it * mtranle@paris - Tue Sep 24 12:49:35 1991 */ #ifndef COR_MAGIC # define COR_MAGIC "core" #endif /* need this cast because ptr is really void * */ #define core_hdr(bfd) \ (((bfd->tdata.trad_core_data))->hdr) #define core_section(bfd,n) \ (((bfd)->tdata.trad_core_data)->sections[n]) #define core_regsec(bfd) \ (((bfd)->tdata.trad_core_data)->reg_section) #define core_reg2sec(bfd) \ (((bfd)->tdata.trad_core_data)->reg2_section) /* These are stored in the bfd's tdata */ struct trad_core_struct { struct corehdr *hdr; /* core file header */ asection *reg_section; asection *reg2_section; asection *sections[MAX_CORE_SEGS]; }; static const bfd_target * aix386_core_file_p (abfd) bfd *abfd; { int i,n; unsigned char longbuf[4]; /* Raw bytes of various header fields */ int core_size = sizeof (struct corehdr); struct corehdr *core; struct mergem { struct trad_core_struct coredata; struct corehdr internal_core; } *mergem; if (bfd_read ((PTR)longbuf, 1, sizeof (longbuf), abfd) != sizeof (longbuf)) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } if (strncmp(longbuf,COR_MAGIC,4)) return 0; if (bfd_seek (abfd, 0L, false) < 0) return 0; mergem = (struct mergem *)bfd_zalloc (abfd, sizeof (struct mergem)); if (mergem == NULL) { bfd_set_error (bfd_error_no_memory); return 0; } core = &mergem->internal_core; if ((bfd_read ((PTR) core, 1, core_size, abfd)) != core_size) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); bfd_release (abfd, (char *)mergem); return 0; } set_tdata (abfd, &mergem->coredata); core_hdr (abfd) = core; /* create the sections. This is raunchy, but bfd_close wants to reclaim them */ core_regsec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_regsec (abfd) == NULL) { loser: bfd_set_error (bfd_error_no_memory); bfd_release (abfd, (char *)mergem); return 0; } core_reg2sec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_reg2sec (abfd) == NULL) { loser1: bfd_release (abfd, core_regsec (abfd)); goto loser; } for (i=0, n=0 ; (i < MAX_CORE_SEGS) && (core->cd_segs[i].cs_type) ; i++) { if (core->cd_segs[i].cs_offset == 0) continue; core_section (abfd,n) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_section (abfd,n) == NULL) { int j; if (n > 0) { for (j=0; j < n; j++) bfd_release (abfd, core_section(abfd, j)); } bfd_release (abfd, (char *)mergem); goto loser1; } switch (core->cd_segs[i].cs_type) { case COR_TYPE_DATA: core_section (abfd, n)->name = ".data"; core_section (abfd, n)->flags = (SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS); break; case COR_TYPE_STACK: core_section (abfd, n)->name = ".stack"; core_section (abfd, n)->flags = (SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS); break; case COR_TYPE_LIBDATA: core_section (abfd, n)->name = ".libdata"; core_section (abfd, n)->flags = (SEC_ALLOC + SEC_HAS_CONTENTS); break; case COR_TYPE_WRITE: core_section (abfd, n)->name = ".writeable"; core_section (abfd, n)->flags = (SEC_ALLOC + SEC_HAS_CONTENTS); break; case COR_TYPE_MSC: core_section (abfd, n)->name = ".misc"; core_section (abfd, n)->flags = (SEC_ALLOC + SEC_HAS_CONTENTS); break; default: core_section (abfd, n)->name = ".unknown"; core_section (abfd, n)->flags = (SEC_ALLOC + SEC_HAS_CONTENTS); break; } core_section (abfd, n)->_raw_size = core->cd_segs[i].cs_len; core_section (abfd, n)->vma = core->cd_segs[i].cs_address; core_section (abfd, n)->filepos = core->cd_segs[i].cs_offset; core_section (abfd, n)->alignment_power = 2; core_section (abfd, n)->next = NULL; if (n > 0) core_section (abfd, (n-1))->next = core_section (abfd, n); abfd->section_count = ++n; } core_regsec (abfd)->name = ".reg"; core_reg2sec (abfd)->name = ".reg2"; core_regsec (abfd)->flags = SEC_HAS_CONTENTS; core_reg2sec (abfd)->flags = SEC_HAS_CONTENTS; core_regsec (abfd)->_raw_size = sizeof(core->cd_regs); core_reg2sec (abfd)->_raw_size = sizeof(core->cd_fpregs); core_regsec (abfd)->vma = -1; core_reg2sec (abfd)->vma = -1; /* We'll access the regs afresh in the core file, like any section: */ core_regsec (abfd)->filepos = (file_ptr)offsetof(struct corehdr,cd_regs[0]); core_reg2sec (abfd)->filepos = (file_ptr)offsetof(struct corehdr, cd_fpregs); /* add the 2 reg fake sections to abfd */ abfd->section_count += 2; abfd->sections = core_regsec (abfd); core_regsec (abfd)->next = core_reg2sec (abfd); core_reg2sec (abfd)->next = core_section (abfd, 0); return abfd->xvec; } static char * aix386_core_file_failing_command (abfd) bfd *abfd; { return core_hdr (abfd)->cd_comm; } static int aix386_core_file_failing_signal (abfd) bfd *abfd; { return core_hdr (abfd)->cd_cursig; } static boolean aix386_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd; bfd *exec_bfd; { return true; /* FIXME, We have no way of telling at this point */ } /* If somebody calls any byte-swapping routines, shoot them. */ void swap_abort() { abort(); /* This way doesn't require any declaration for ANSI to fuck up */ } #define NO_GET ((PROTO(bfd_vma, (*), ( const bfd_byte *))) swap_abort ) #define NO_GETS ((PROTO(bfd_signed_vma, (*), (const bfd_byte *))) swap_abort ) #define NO_PUT ((PROTO(void, (*), (bfd_vma, bfd_byte *))) swap_abort ) const bfd_target aix386_core_vec = { "aix386-core", bfd_target_unknown_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading underscore */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 3, /* minimum alignment power */ NO_GET, NO_GETS, NO_PUT, NO_GET, NO_GETS, NO_PUT, NO_GET, NO_GETS, NO_PUT, /* data */ NO_GET, NO_GETS, NO_PUT, NO_GET, NO_GETS, NO_PUT, NO_GET, NO_GETS, NO_PUT, /* hdrs */ {_bfd_dummy_target, _bfd_dummy_target, _bfd_dummy_target, aix386_core_file_p}, {bfd_false, bfd_false, /* bfd_create_object */ bfd_false, bfd_false}, {bfd_false, bfd_false, /* bfd_write_contents */ bfd_false, bfd_false}, BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (aix386), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (_bfd_generic), BFD_JUMP_TABLE_LINK (_bfd_nolink), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 }; gdb-4.13/bfd/aout-adobe.c 666 34562 1752 37616 5601407732 13515 0ustar fnfcygnus/* BFD back-end for a.out.adobe binaries. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. Based on bout.c. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "aout/adobe.h" #include "aout/stab_gnu.h" #include "libaout.h" /* BFD a.out internal data structures */ extern const bfd_target a_out_adobe_vec; /* Forward decl */ static const bfd_target *aout_adobe_callback PARAMS ((bfd *)); extern boolean aout_32_slurp_symbol_table PARAMS ((bfd *abfd)); extern boolean aout_32_write_syms PARAMS ((bfd *)); static void aout_adobe_write_section PARAMS ((bfd *abfd, sec_ptr sect)); /* Swaps the information in an executable header taken from a raw byte stream memory image, into the internal exec_header structure. */ void aout_adobe_swap_exec_header_in PARAMS ((bfd *abfd, struct external_exec *raw_bytes, struct internal_exec *execp)); void aout_adobe_swap_exec_header_in (abfd, raw_bytes, execp) bfd *abfd; struct external_exec *raw_bytes; struct internal_exec *execp; { struct external_exec *bytes = (struct external_exec *)raw_bytes; /* Now fill in fields in the execp, from the bytes in the raw data. */ execp->a_info = bfd_h_get_32 (abfd, bytes->e_info); execp->a_text = GET_WORD (abfd, bytes->e_text); execp->a_data = GET_WORD (abfd, bytes->e_data); execp->a_bss = GET_WORD (abfd, bytes->e_bss); execp->a_syms = GET_WORD (abfd, bytes->e_syms); execp->a_entry = GET_WORD (abfd, bytes->e_entry); execp->a_trsize = GET_WORD (abfd, bytes->e_trsize); execp->a_drsize = GET_WORD (abfd, bytes->e_drsize); } /* Swaps the information in an internal exec header structure into the supplied buffer ready for writing to disk. */ PROTO(void, aout_adobe_swap_exec_header_out, (bfd *abfd, struct internal_exec *execp, struct external_exec *raw_bytes)); void aout_adobe_swap_exec_header_out (abfd, execp, raw_bytes) bfd *abfd; struct internal_exec *execp; struct external_exec *raw_bytes; { struct external_exec *bytes = (struct external_exec *)raw_bytes; /* Now fill in fields in the raw data, from the fields in the exec struct. */ bfd_h_put_32 (abfd, execp->a_info , bytes->e_info); PUT_WORD (abfd, execp->a_text , bytes->e_text); PUT_WORD (abfd, execp->a_data , bytes->e_data); PUT_WORD (abfd, execp->a_bss , bytes->e_bss); PUT_WORD (abfd, execp->a_syms , bytes->e_syms); PUT_WORD (abfd, execp->a_entry , bytes->e_entry); PUT_WORD (abfd, execp->a_trsize, bytes->e_trsize); PUT_WORD (abfd, execp->a_drsize, bytes->e_drsize); } static const bfd_target * aout_adobe_object_p (abfd) bfd *abfd; { struct internal_exec anexec; struct external_exec exec_bytes; char *targ; if (bfd_read ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd) != EXEC_BYTES_SIZE) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } anexec.a_info = bfd_h_get_32 (abfd, exec_bytes.e_info); /* Normally we just compare for the magic number. However, a bunch of Adobe tools aren't fixed up yet; they generate files using ZMAGIC(!). If the environment variable GNUTARGET is set to "a.out.adobe", we will take just about any a.out file as an Adobe a.out file. FIXME! */ if (N_BADMAG (anexec)) { extern char *getenv (); targ = getenv ("GNUTARGET"); if (targ && !strcmp (targ, a_out_adobe_vec.name)) ; /* Just continue anyway, if specifically set to this format */ else { bfd_set_error (bfd_error_wrong_format); return 0; } } aout_adobe_swap_exec_header_in (abfd, &exec_bytes, &anexec); return aout_32_some_aout_object_p (abfd, &anexec, aout_adobe_callback); } /* Finish up the opening of a b.out file for reading. Fill in all the fields that are not handled by common code. */ static const bfd_target * aout_adobe_callback (abfd) bfd *abfd; { struct internal_exec *execp = exec_hdr (abfd); asection *sect; struct external_segdesc ext[1]; char *section_name; char try_again[30]; /* name and number */ char *newname; int trynum; flagword flags; /* Architecture and machine type -- unknown in this format. */ bfd_set_arch_mach(abfd, bfd_arch_unknown, 0); /* The positions of the string table and symbol table. */ obj_str_filepos (abfd) = N_STROFF (*execp); obj_sym_filepos (abfd) = N_SYMOFF (*execp); /* Suck up the section information from the file, one section at a time. */ for (;;) { if (bfd_read ((PTR) ext, 1, sizeof (*ext), abfd) != sizeof (*ext)) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } switch (ext->e_type[0]) { case N_TEXT: section_name = ".text"; flags = SEC_CODE | SEC_LOAD | SEC_ALLOC | SEC_HAS_CONTENTS; break; case N_DATA: section_name = ".data"; flags = SEC_DATA | SEC_LOAD | SEC_ALLOC | SEC_HAS_CONTENTS; break; case N_BSS: section_name = ".bss"; flags = SEC_DATA | SEC_HAS_CONTENTS; break; case 0: goto no_more_sections; default: fprintf (stderr, "Unknown section type in a.out.adobe file: %x\n", ext->e_type[0]); goto no_more_sections; } /* First one is called ".text" or whatever; subsequent ones are ".text1", ".text2", ... */ bfd_set_error (bfd_error_no_error); sect = bfd_make_section (abfd, section_name); trynum = 0; while (!sect) { if (bfd_get_error () != bfd_error_no_error) return 0; /* Some other error -- slide into the sunset */ sprintf (try_again, "%s%d", section_name, ++trynum); sect = bfd_make_section (abfd, try_again); } /* Fix the name, if it is a sprintf'd name. */ if (sect->name == try_again) { newname = (char *) bfd_zalloc(abfd, strlen (sect->name)); if (newname == NULL) { bfd_set_error (bfd_error_no_memory); return 0; } strcpy (newname, sect->name); sect->name = newname; } /* Now set the section's attributes. */ bfd_set_section_flags (abfd, sect, flags); sect->_raw_size = ((ext->e_size[0] << 8) /* Assumed big-endian */ | ext->e_size[1] << 8) | ext->e_size[2]; sect->_cooked_size = sect->_raw_size; sect->vma = bfd_h_get_32 (abfd, ext->e_virtbase); sect->filepos = bfd_h_get_32 (abfd, ext->e_filebase); /* FIXME XXX alignment? */ /* Set relocation information for first section of each type. */ if (trynum == 0) switch (ext->e_type[0]) { case N_TEXT: sect->rel_filepos = N_TRELOFF (*execp); sect->reloc_count = execp->a_trsize; break; case N_DATA: sect->rel_filepos = N_DRELOFF (*execp); sect->reloc_count = execp->a_drsize; break; } } no_more_sections: adata(abfd).reloc_entry_size = sizeof (struct reloc_std_external); adata(abfd).symbol_entry_size = sizeof (struct external_nlist); adata(abfd).page_size = 1; /* Not applicable. */ adata(abfd).segment_size = 1; /* Not applicable. */ adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE; return abfd->xvec; } struct bout_data_struct { struct aoutdata a; struct internal_exec e; }; static boolean aout_adobe_mkobject (abfd) bfd *abfd; { struct bout_data_struct *rawptr; rawptr = (struct bout_data_struct *) bfd_zalloc (abfd, sizeof (struct bout_data_struct)); if (rawptr == NULL) { bfd_set_error (bfd_error_no_memory); return false; } abfd->tdata.bout_data = rawptr; exec_hdr (abfd) = &rawptr->e; adata(abfd).reloc_entry_size = sizeof (struct reloc_std_external); adata(abfd).symbol_entry_size = sizeof (struct external_nlist); adata(abfd).page_size = 1; /* Not applicable. */ adata(abfd).segment_size = 1; /* Not applicable. */ adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE; return true; } static boolean aout_adobe_write_object_contents (abfd) bfd *abfd; { struct external_exec swapped_hdr; static struct external_segdesc sentinel[1]; /* Initialized to zero */ asection *sect; exec_hdr (abfd)->a_info = ZMAGIC; /* Calculate text size as total of text sections, etc. */ exec_hdr (abfd)->a_text = 0; exec_hdr (abfd)->a_data = 0; exec_hdr (abfd)->a_bss = 0; exec_hdr (abfd)->a_trsize = 0; exec_hdr (abfd)->a_drsize = 0; for (sect = abfd->sections; sect; sect = sect->next) { if (sect->flags & SEC_CODE) { exec_hdr (abfd)->a_text += sect->_raw_size; exec_hdr (abfd)->a_trsize += sect->reloc_count * sizeof (struct reloc_std_external); } else if (sect->flags & SEC_DATA) { exec_hdr (abfd)->a_data += sect->_raw_size; exec_hdr (abfd)->a_drsize += sect->reloc_count * sizeof (struct reloc_std_external); } else if (sect->flags & SEC_ALLOC && !(sect->flags & SEC_LOAD)) { exec_hdr (abfd)->a_bss += sect->_raw_size; } } exec_hdr (abfd)->a_syms = bfd_get_symcount (abfd) * sizeof (struct external_nlist); exec_hdr (abfd)->a_entry = bfd_get_start_address (abfd); aout_adobe_swap_exec_header_out (abfd, exec_hdr (abfd), &swapped_hdr); if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0 || (bfd_write ((PTR) &swapped_hdr, 1, EXEC_BYTES_SIZE, abfd) != EXEC_BYTES_SIZE)) return false; /* Now write out the section information. Text first, data next, rest afterward. */ for (sect = abfd->sections; sect; sect = sect->next) { if (sect->flags & SEC_CODE) { aout_adobe_write_section (abfd, sect); } } for (sect = abfd->sections; sect; sect = sect->next) { if (sect->flags & SEC_DATA) { aout_adobe_write_section (abfd, sect); } } for (sect = abfd->sections; sect; sect = sect->next) { if (!(sect->flags & (SEC_CODE|SEC_DATA))) { aout_adobe_write_section (abfd, sect); } } /* Write final `sentinel` section header (with type of 0). */ if (bfd_write ((PTR) sentinel, 1, sizeof (*sentinel), abfd) != sizeof (*sentinel)) return false; /* Now write out reloc info, followed by syms and strings */ if (bfd_get_symcount (abfd) != 0) { if (bfd_seek (abfd, (file_ptr)(N_SYMOFF(*exec_hdr(abfd))), SEEK_SET) != 0) return false; if (! aout_32_write_syms (abfd)) return false; if (bfd_seek (abfd, (file_ptr)(N_TRELOFF(*exec_hdr(abfd))), SEEK_SET) != 0) return false; for (sect = abfd->sections; sect; sect = sect->next) { if (sect->flags & SEC_CODE) { if (!aout_32_squirt_out_relocs (abfd, sect)) return false; } } if (bfd_seek (abfd, (file_ptr)(N_DRELOFF(*exec_hdr(abfd))), SEEK_SET) != 0) return false; for (sect = abfd->sections; sect; sect = sect->next) { if (sect->flags & SEC_DATA) { if (!aout_32_squirt_out_relocs (abfd, sect)) return false; } } } return true; } static void aout_adobe_write_section (abfd, sect) bfd *abfd; sec_ptr sect; { /* FIXME XXX */ } static boolean aout_adobe_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; unsigned char *location; file_ptr offset; int count; { file_ptr section_start; sec_ptr sect; if (abfd->output_has_begun == false) { /* set by bfd.c handler */ /* Assign file offsets to sections. Text sections are first, and are contiguous. Then data sections. Everything else at the end. */ section_start = N_TXTOFF (ignore<-->me); for (sect = abfd->sections; sect; sect = sect->next) { if (sect->flags & SEC_CODE) { sect->filepos = section_start; /* FIXME: Round to alignment */ section_start += sect->_raw_size; } } for (sect = abfd->sections; sect; sect = sect->next) { if (sect->flags & SEC_DATA) { sect->filepos = section_start; /* FIXME: Round to alignment */ section_start += sect->_raw_size; } } for (sect = abfd->sections; sect; sect = sect->next) { if (sect->flags & SEC_HAS_CONTENTS && !(sect->flags & (SEC_CODE|SEC_DATA))) { sect->filepos = section_start; /* FIXME: Round to alignment */ section_start += sect->_raw_size; } } } /* regardless, once we know what we're doing, we might as well get going */ if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0) return false; if (count != 0) { return (bfd_write ((PTR)location, 1, count, abfd) == count) ?true:false; } return true; } static boolean aout_adobe_set_arch_mach (abfd, arch, machine) bfd *abfd; enum bfd_architecture arch; unsigned long machine; { if (! bfd_default_set_arch_mach (abfd, arch, machine)) return false; if (arch == bfd_arch_unknown || arch == bfd_arch_m68k) return true; return false; } static int aout_adobe_sizeof_headers (ignore_abfd, ignore) bfd *ignore_abfd; boolean ignore; { return sizeof(struct internal_exec); } /* Build the transfer vector for Adobe A.Out files. */ #define aout_32_close_and_cleanup aout_32_bfd_free_cached_info #define aout_32_bfd_make_debug_symbol \ ((asymbol *(*) PARAMS ((bfd *, void *, unsigned long))) bfd_nullvoidptr) #define aout_32_bfd_reloc_type_lookup \ ((CONST struct reloc_howto_struct *(*) \ PARAMS ((bfd *, bfd_reloc_code_real_type))) bfd_nullvoidptr) #define aout_32_set_arch_mach aout_adobe_set_arch_mach #define aout_32_set_section_contents aout_adobe_set_section_contents #define aout_32_sizeof_headers aout_adobe_sizeof_headers #define aout_32_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define aout_32_bfd_relax_section bfd_generic_relax_section #define aout_32_bfd_link_hash_table_create \ _bfd_generic_link_hash_table_create #define aout_32_bfd_link_add_symbols _bfd_generic_link_add_symbols #define aout_32_bfd_final_link _bfd_generic_final_link const bfd_target a_out_adobe_vec = { "a.out.adobe", /* name */ bfd_target_aout_flavour, true, /* data byte order is unknown (big assumed) */ true, /* hdr byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT ), /* section flags */ (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_DATA | SEC_RELOC), '_', /* symbol leading char */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 2, /* minumum alignment power */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, aout_adobe_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, aout_adobe_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, aout_adobe_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (aout_32), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_bsd), BFD_JUMP_TABLE_SYMBOLS (aout_32), BFD_JUMP_TABLE_RELOCS (aout_32), BFD_JUMP_TABLE_WRITE (aout_32), BFD_JUMP_TABLE_LINK (aout_32), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 }; gdb-4.13/bfd/aout-encap.c 666 34562 1752 15625 5610535316 13525 0ustar fnfcygnus/* BFD back-end for a.out files encapsulated with COFF headers. Copyright (C) 1990, 1991 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* THIS MODULE IS NOT FINISHED. IT PROBABLY DOESN'T EVEN COMPILE. */ #if 0 #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define TEXT_START_ADDR 0 #define BYTES_IN_WORD 4 #endif #include "bfd.h" #include #include "libbfd.h" #include #include "aout/stab_gnu.h" #include "aout/ar.h" #include "libaout.h" /* BFD a.out internal data structures */ const bfd_target *encap_real_callback (); const bfd_target * encap_object_p (abfd) bfd *abfd; { unsigned char magicbuf[4]; /* Raw bytes of magic number from file */ unsigned long magic; /* Swapped magic number */ short coff_magic; struct external_exec exec_bytes; struct internal_exec exec; if (bfd_read ((PTR)magicbuf, 1, sizeof (magicbuf), abfd) != sizeof (magicbuf)) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } coff_magic = bfd_h_get_16 (abfd, magicbuf); if (coff_magic != COFF_MAGIC) return 0; /* Not an encap coff file */ __header_offset_temp==COFF_MAGIC ? sizeof(struct coffheader) : 0) (fseek ((f), HEADER_OFFSET((f)), 1)) magic = bfd_h_get_32 (abfd, magicbuf); if (N_BADMAG (*((struct internal_exec *) &magic))) return 0; struct external_exec exec_bytes; if (bfd_read ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd) != EXEC_BYTES_SIZE) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } NAME(aout,swap_exec_header_in)(abfd, &exec_bytes, &exec); return aout_32_some_aout_object_p (abfd, &exec, encap_realcallback); } /* Finish up the reading of a encapsulated-coff a.out file header */ const bfd_target * encap_real_callback (abfd) bfd *abfd; { struct internal_exec *execp = exec_hdr (abfd); MY(callback)(abfd, execp); /* If we have a coff header, it can give us better values for text_start and exec_data_start. This is particularly useful for remote debugging of embedded systems. */ if (N_FLAGS(exec_aouthdr) & N_FLAGS_COFF_ENCAPSULATE) { struct coffheader ch; int val; val = lseek (execchan, -(sizeof (AOUTHDR) + sizeof (ch)), 1); if (val == -1) perror_with_name (filename); val = myread (execchan, &ch, sizeof (ch)); if (val < 0) perror_with_name (filename); text_start = ch.text_start; exec_data_start = ch.data_start; } else { text_start = IS_OBJECT_FILE (exec_aouthdr) ? 0 : N_TXTADDR (exec_aouthdr); exec_data_start = IS_OBJECT_FILE (exec_aouthdr) ? exec_aouthdr.a_text : N_DATADDR (exec_aouthdr); } /* Determine the architecture and machine type of the object file. */ bfd_default_set_arch_mach(abfd, bfd_arch_m68k, 0); /* FIXME */ return abfd->xvec; } /* Write an object file in Encapsulated COFF format. Section contents have already been written. We write the file header, symbols, and relocation. */ boolean encap_write_object_contents (abfd) bfd *abfd; { bfd_size_type data_pad = 0; struct external_exec exec_bytes; struct internal_exec *execp = exec_hdr (abfd); /****** FIXME: Fragments from the old GNU LD program for dealing with encap coff. */ struct coffheader coffheader; int need_coff_header; /* Determine whether to count the header as part of the text size, and initialize the text size accordingly. This depends on the kind of system and on the output format selected. */ N_SET_MAGIC (outheader, magic); #ifdef INITIALIZE_HEADER INITIALIZE_HEADER; #endif text_size = sizeof (struct exec); #ifdef COFF_ENCAPSULATE if (relocatable_output == 0 && file_table[0].just_syms_flag == 0) { need_coff_header = 1; /* set this flag now, since it will change the values of N_TXTOFF, etc */ N_SET_FLAGS (outheader, aout_backend_info (abfd)->exec_hdr_flags); text_size += sizeof (struct coffheader); } #endif #ifdef COFF_ENCAPSULATE if (need_coff_header) { /* We are encapsulating BSD format within COFF format. */ struct coffscn *tp, *dp, *bp; tp = &coffheader.scns[0]; dp = &coffheader.scns[1]; bp = &coffheader.scns[2]; strcpy (tp->s_name, ".text"); tp->s_paddr = text_start; tp->s_vaddr = text_start; tp->s_size = text_size; tp->s_scnptr = sizeof (struct coffheader) + sizeof (struct exec); tp->s_relptr = 0; tp->s_lnnoptr = 0; tp->s_nreloc = 0; tp->s_nlnno = 0; tp->s_flags = 0x20; strcpy (dp->s_name, ".data"); dp->s_paddr = data_start; dp->s_vaddr = data_start; dp->s_size = data_size; dp->s_scnptr = tp->s_scnptr + tp->s_size; dp->s_relptr = 0; dp->s_lnnoptr = 0; dp->s_nreloc = 0; dp->s_nlnno = 0; dp->s_flags = 0x40; strcpy (bp->s_name, ".bss"); bp->s_paddr = dp->s_vaddr + dp->s_size; bp->s_vaddr = bp->s_paddr; bp->s_size = bss_size; bp->s_scnptr = 0; bp->s_relptr = 0; bp->s_lnnoptr = 0; bp->s_nreloc = 0; bp->s_nlnno = 0; bp->s_flags = 0x80; coffheader.f_magic = COFF_MAGIC; coffheader.f_nscns = 3; /* store an unlikely time so programs can * tell that there is a bsd header */ coffheader.f_timdat = 1; coffheader.f_symptr = 0; coffheader.f_nsyms = 0; coffheader.f_opthdr = 28; coffheader.f_flags = 0x103; /* aouthdr */ coffheader.magic = ZMAGIC; coffheader.vstamp = 0; coffheader.tsize = tp->s_size; coffheader.dsize = dp->s_size; coffheader.bsize = bp->s_size; coffheader.entry = outheader.a_entry; coffheader.text_start = tp->s_vaddr; coffheader.data_start = dp->s_vaddr; } #endif #ifdef COFF_ENCAPSULATE if (need_coff_header) mywrite (&coffheader, sizeof coffheader, 1, outdesc); #endif #ifndef COFF_ENCAPSULATE padfile (N_TXTOFF (outheader) - sizeof outheader, outdesc); #endif text_size -= N_TXTOFF (outheader); WRITE_HEADERS(abfd, execp); return true; } #define MY_write_object_content encap_write_object_contents #define MY_object_p encap_object_p #define MY_exec_hdr_flags N_FLAGS_COFF_ENCAPSULATE #include "aout-target.h" gdb-4.13/bfd/aout-ns32k.c 666 34562 1752 25020 5611327342 13364 0ustar fnfcygnus/* Written by Ian Dall * 5-Jun-94 * HISTORY * 05-Jun-94 Ian Dall (idall@eleceng.adelaide.edu.au) at University of Adelaide * This code was formerly in aout-pc532-mach.c. This organisations * is intended to allow multiple format support more easilly. * */ #define BYTES_IN_WORD 4 #include "bfd.h" #include "aout/aout64.h" #include "aout-ns32k.h" #define MY(OP) MYNS(OP) #define MY_swap_std_reloc_in MY(swap_std_reloc_in) #define MY_swap_std_reloc_out MY(swap_std_reloc_out) static void MY_swap_std_reloc_in PARAMS ((bfd *abfd, struct reloc_std_external *bytes, arelent *cache_ptr, asymbol **symbols)); static void MY_swap_std_reloc_out PARAMS((bfd *abfd, arelent *g, struct reloc_std_external *natptr)); /* The ns32k series is ah, unusual, when it comes to relocation. * There are three storage methods for relocateable objects. There * are displacements, immediate operands and ordinary twos complement * data. Of these, only the last fits into the standard relocation * scheme. Immediate operands are stored huffman encoded and * immediate operands are stored big endian (where as the natural byte * order is little endian for this achitecture). * Note that the ns32k displacement storage method is orthogonal to * whether the relocation is pc relative or not. The "displacement" * storage scheme is used for essentially all address constants. The * displacement can be relative to zero (absolute displacement), * relative to the pc (pc relative), the stack pointer, the frame * pointer, the static base register and general purpose register etc. * For example: * * sym1: .long . # pc relative 2's complement * sym1: .long foo # 2's complement not pc relative * * self: movd @self, r0 # pc relative displacement * movd foo, r0 # non pc relative displacement * * self: movd self, r0 # pc relative immediate * movd foo, r0 # non pc relative immediate * * In addition, for historical reasons the encoding of the relocation types * in the a.out format relocation entries is such that even the relocation * methods which are standard are not encoded the standard way. * */ bfd_reloc_status_type ns32k_reloc_disp(bfd *abfd, arelent *reloc_entry, struct symbol_cache_entry *symbol, PTR data, asection *input_section, bfd *output_bfd, char **error_message); bfd_reloc_status_type ns32k_reloc_imm (bfd *abfd, arelent *reloc_entry, struct symbol_cache_entry *symbol, PTR data, asection *input_section, bfd *output_bfd, char **error_message); bfd_reloc_status_type ns32k_reloc_contents_disp (const reloc_howto_type *howto, bfd *input_bfd, bfd_vma relocation, bfd_byte *location); bfd_reloc_status_type ns32k_reloc_contents_imm (const reloc_howto_type *howto, bfd *input_bfd, bfd_vma relocation, bfd_byte *location); reloc_howto_type MY(howto_table)[] = { /* ns32k immediate operands */ HOWTO2(BFD_RELOC_NS32K_IMM_8, 0, 0, 8, false, 0, true, ns32k_reloc_imm, ns32k_reloc_contents_imm,"NS32K_IMM_8", true, 0x000000ff,0x000000ff, false), HOWTO2(BFD_RELOC_NS32K_IMM_16, 0, 1, 16, false, 0, true, ns32k_reloc_imm, ns32k_reloc_contents_imm, "NS32K_IMM_16", true, 0x0000ffff,0x0000ffff, false), HOWTO2(BFD_RELOC_NS32K_IMM_32, 0, 2, 32, false, 0, true, ns32k_reloc_imm, ns32k_reloc_contents_imm,"NS32K_IMM_32", true, 0xffffffff,0xffffffff, false), HOWTO2(BFD_RELOC_NS32K_IMM_8_PCREL, 0, 0, 8, true, 0, false, ns32k_reloc_imm, ns32k_reloc_contents_imm,"PCREL_NS32K_IMM_8", true, 0x000000ff, 0x000000ff, false), HOWTO2(BFD_RELOC_NS32K_IMM_16_PCREL, 0, 1, 16, true, 0, false, ns32k_reloc_imm, ns32k_reloc_contents_imm,"PCREL_NS32K_IMM_16", true, 0x0000ffff,0x0000ffff, false), HOWTO2(BFD_RELOC_NS32K_IMM_32_PCREL, 0, 2, 32, true, 0, false, ns32k_reloc_imm, ns32k_reloc_contents_imm,"PCREL_NS32K_IMM_32", true, 0xffffffff,0xffffffff, false), /* ns32k displacements */ HOWTO2(BFD_RELOC_NS32K_DISP_8, 0, 0, 8, false, 0, true, ns32k_reloc_disp, ns32k_reloc_contents_disp,"NS32K_DISP_8", true, 0x000000ff,0x000000ff, false), HOWTO2(BFD_RELOC_NS32K_DISP_16, 0, 1, 16, false, 0, true, ns32k_reloc_disp, ns32k_reloc_contents_disp,"NS32K_DISP_16", true, 0x0000ffff, 0x0000ffff, false), HOWTO2(BFD_RELOC_NS32K_DISP_32, 0, 2, 32, false, 0, true, ns32k_reloc_disp, ns32k_reloc_contents_disp,"NS32K_DISP_32", true, 0xffffffff, 0xffffffff, false), HOWTO2(BFD_RELOC_NS32K_DISP_8_PCREL, 0, 0, 8, true, 0, false, ns32k_reloc_disp, ns32k_reloc_contents_disp,"PCREL_NS32K_DISP_8", true, 0x000000ff,0x000000ff, false), HOWTO2(BFD_RELOC_NS32K_DISP_16_PCREL, 0, 1, 16, true, 0, false, ns32k_reloc_disp, ns32k_reloc_contents_disp,"PCREL_NS32K_DISP_16", true, 0x0000ffff,0x0000ffff, false), HOWTO2(BFD_RELOC_NS32K_DISP_32_PCREL, 0, 2, 32, true, 0, false, ns32k_reloc_disp, ns32k_reloc_contents_disp,"PCREL_NS32K_DISP_32", true, 0xffffffff,0xffffffff, false), /* Normal 2's complement */ HOWTO(BFD_RELOC_8, 0, 0, 8, false, 0, complain_overflow_bitfield,0, "8", true, 0x000000ff,0x000000ff, false), HOWTO(BFD_RELOC_16, 0, 1, 16, false, 0, complain_overflow_bitfield,0, "16", true, 0x0000ffff,0x0000ffff, false), HOWTO(BFD_RELOC_32, 0, 2, 32, false, 0, complain_overflow_bitfield,0, "32", true, 0xffffffff,0xffffffff, false), HOWTO(BFD_RELOC_8_PCREL, 0, 0, 8, true, 0, complain_overflow_signed, 0, "PCREL_8", true, 0x000000ff,0x000000ff, false), HOWTO(BFD_RELOC_16_PCREL, 0, 1, 16, true, 0, complain_overflow_signed, 0, "PCREL_16", true, 0x0000ffff,0x0000ffff, false), HOWTO(BFD_RELOC_32_PCREL, 0, 2, 32, true, 0, complain_overflow_signed, 0, "PCREL_32", true, 0xffffffff,0xffffffff, false), }; #define MY_reloc_howto(BFD,REL,IN,EX,PC) ({ \ unsigned int r_length; \ int r_ns32k_type; \ BFD_ASSERT((BFD)->xvec->header_byteorder_big_p == false); \ IN = ((REL)->r_index[2] << 16) \ | ((REL)->r_index[1] << 8) \ | (REL)->r_index[0]; \ EX = (0 != ((REL)->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE)); \ PC = (0 != ((REL)->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE)); \ r_length = ((REL)->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE) \ >> RELOC_STD_BITS_LENGTH_SH_LITTLE; \ r_ns32k_type = ((REL)->r_type[0] & RELOC_STD_BITS_NS32K_TYPE_LITTLE) \ >> RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE; \ MY(howto_table) + r_length + 3 * (PC) + 6 * r_ns32k_type;}) #define MY_put_reloc(BFD, EXT, IDX, VAL, HOWTO, RELOC) { \ unsigned int r_length; \ int r_pcrel; \ int r_ns32k_type; \ PUT_WORD ((BFD), (VAL), (RELOC)->r_address); \ r_length = (HOWTO)->size ; /* Size as a power of two */ \ r_pcrel = (int) (HOWTO)->pc_relative; /* Relative to PC? */ \ r_ns32k_type = ((HOWTO) - MY(howto_table) )/6; \ BFD_ASSERT ((BFD)->xvec->header_byteorder_big_p == false); \ (RELOC)->r_index[2] = (IDX) >> 16; \ (RELOC)->r_index[1] = (IDX) >> 8; \ (RELOC)->r_index[0] = (IDX); \ (RELOC)->r_type[0] = \ ((EXT)? RELOC_STD_BITS_EXTERN_LITTLE: 0) \ | (r_pcrel? RELOC_STD_BITS_PCREL_LITTLE: 0) \ | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE) \ | (r_ns32k_type << RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);} #define RELOC_STD_BITS_NS32K_TYPE_BIG 0x06 #define RELOC_STD_BITS_NS32K_TYPE_LITTLE 0x60 #define RELOC_STD_BITS_NS32K_TYPE_SH_BIG 1 #define RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE 5 #define STAT_FOR_EXEC #include CONST struct reloc_howto_struct * DEFUN(MY(bfd_reloc_type_lookup),(abfd,code), bfd *abfd AND bfd_reloc_code_real_type code) { #define ENTRY(i,j) case i: return &MY(howto_table)[j] int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE; BFD_ASSERT(ext == 0); if (code == BFD_RELOC_CTOR) switch (bfd_get_arch_info (abfd)->bits_per_address) { case 32: code = BFD_RELOC_32; break; } switch (code) { ENTRY(BFD_RELOC_NS32K_IMM_8, 0); ENTRY(BFD_RELOC_NS32K_IMM_16, 1); ENTRY(BFD_RELOC_NS32K_IMM_32, 2); ENTRY(BFD_RELOC_NS32K_IMM_8_PCREL, 3); ENTRY(BFD_RELOC_NS32K_IMM_16_PCREL, 4); ENTRY(BFD_RELOC_NS32K_IMM_32_PCREL, 5); ENTRY(BFD_RELOC_NS32K_DISP_8, 6); ENTRY(BFD_RELOC_NS32K_DISP_16, 7); ENTRY(BFD_RELOC_NS32K_DISP_32, 8); ENTRY(BFD_RELOC_NS32K_DISP_8_PCREL, 9); ENTRY(BFD_RELOC_NS32K_DISP_16_PCREL, 10); ENTRY(BFD_RELOC_NS32K_DISP_32_PCREL, 11); ENTRY(BFD_RELOC_8, 12); ENTRY(BFD_RELOC_16, 13); ENTRY(BFD_RELOC_32, 14); ENTRY(BFD_RELOC_8_PCREL, 15); ENTRY(BFD_RELOC_16_PCREL, 16); ENTRY(BFD_RELOC_32_PCREL, 17); default: return (CONST struct reloc_howto_struct *) 0; } #undef ENTRY } static void DEFUN(MY_swap_std_reloc_in, (abfd, bytes, cache_ptr, symbols), bfd *abfd AND struct reloc_std_external *bytes AND arelent *cache_ptr AND asymbol **symbols) { int r_index; int r_extern; unsigned int r_length; int r_pcrel; int r_ns32k_type; struct aoutdata *su = &(abfd->tdata.aout_data->a); cache_ptr->address = bfd_h_get_32 (abfd, bytes->r_address); /* now the fun stuff */ cache_ptr->howto = MY_reloc_howto(abfd, bytes, r_index, r_extern, r_pcrel); MOVE_ADDRESS(0); } static void DEFUN(MY_swap_std_reloc_out,(abfd, g, natptr), bfd *abfd AND arelent *g AND struct reloc_std_external *natptr) { int r_index; asymbol *sym = *(g->sym_ptr_ptr); int r_extern; unsigned int r_length; int r_pcrel; int r_ns32k_type; unsigned int r_addend; asection *output_section = sym->section->output_section; r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma; /* name was clobbered by aout_write_syms to be symbol index */ /* If this relocation is relative to a symbol then set the r_index to the symbols index, and the r_extern bit. Absolute symbols can come in in two ways, either as an offset from the abs section, or as a symbol which has an abs value. check for that here */ if (bfd_is_com_section (output_section) || output_section == &bfd_abs_section || output_section == &bfd_und_section) { if (bfd_abs_section.symbol == sym) { /* Whoops, looked like an abs symbol, but is really an offset from the abs section */ r_index = 0; r_extern = 0; } else { /* Fill in symbol */ r_extern = 1; #define KEEPIT flags r_index = stoi((*(g->sym_ptr_ptr))->KEEPIT); #undef KEEPIT } } else { /* Just an ordinary section */ r_extern = 0; r_index = output_section->target_index; } MY_put_reloc(abfd, r_extern, r_index, g->address, g->howto, natptr); } gdb-4.13/bfd/aout-ns32k.h 666 34562 1752 643 5611327345 13340 0ustar fnfcygnus/* Written by Ian Dall * 5-Jun-94 */ #define MYNS(OP) CAT(ns32kaout_,OP) CONST struct reloc_howto_struct * MYNS(bfd_reloc_type_lookup) PARAMS((bfd *abfd AND bfd_reloc_code_real_type code)); boolean MYNS(write_object_contents) PARAMS((bfd *abfd)); /* Avoid multiple definitions from aoutx if supporting standard a.out format(s) * as well as this one */ #define NAME(x,y) CAT3(ns32kaout, _32_, y) gdb-4.13/bfd/aout-target.h 666 34562 1752 37763 5611327352 13741 0ustar fnfcygnus/* Define a target vector and some small routines for a variant of a.out. Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "aout/aout64.h" #include "aout/stab_gnu.h" #include "aout/ar.h" /*#include "libaout.h"*/ extern CONST struct reloc_howto_struct * NAME(aout,reloc_type_lookup) (); /* Set parameters about this a.out file that are machine-dependent. This routine is called from some_aout_object_p just before it returns. */ #ifndef MY_callback static const bfd_target * MY(callback) (abfd) bfd *abfd; { struct internal_exec *execp = exec_hdr (abfd); unsigned int arch_align_power; unsigned long arch_align; /* Calculate the file positions of the parts of a newly read aout header */ obj_textsec (abfd)->_raw_size = N_TXTSIZE(*execp); /* The virtual memory addresses of the sections */ obj_textsec (abfd)->vma = N_TXTADDR(*execp); obj_datasec (abfd)->vma = N_DATADDR(*execp); obj_bsssec (abfd)->vma = N_BSSADDR(*execp); /* The file offsets of the sections */ obj_textsec (abfd)->filepos = N_TXTOFF (*execp); obj_datasec (abfd)->filepos = N_DATOFF (*execp); /* The file offsets of the relocation info */ obj_textsec (abfd)->rel_filepos = N_TRELOFF(*execp); obj_datasec (abfd)->rel_filepos = N_DRELOFF(*execp); /* The file offsets of the string table and symbol table. */ obj_sym_filepos (abfd) = N_SYMOFF (*execp); obj_str_filepos (abfd) = N_STROFF (*execp); /* Determine the architecture and machine type of the object file. */ #ifdef SET_ARCH_MACH SET_ARCH_MACH(abfd, *execp); #else bfd_default_set_arch_mach(abfd, DEFAULT_ARCH, 0); #endif /* Now that we know the architecture, set the alignments of the sections. This is normally done by NAME(aout,new_section_hook), but when the initial sections were created the architecture had not yet been set. However, for backward compatibility, we don't set the alignment power any higher than as required by the size of the section. */ arch_align_power = bfd_get_arch_info (abfd)->section_align_power; arch_align = 1 << arch_align_power; if ((BFD_ALIGN (obj_textsec (abfd)->_raw_size, arch_align) == obj_textsec (abfd)->_raw_size) && (BFD_ALIGN (obj_datasec (abfd)->_raw_size, arch_align) == obj_datasec (abfd)->_raw_size) && (BFD_ALIGN (obj_bsssec (abfd)->_raw_size, arch_align) == obj_bsssec (abfd)->_raw_size)) { obj_textsec (abfd)->alignment_power = arch_align_power; obj_datasec (abfd)->alignment_power = arch_align_power; obj_bsssec (abfd)->alignment_power = arch_align_power; } /* Don't set sizes now -- can't be sure until we know arch & mach. Sizes get set in set_sizes callback, later. */ #if 0 adata(abfd).page_size = PAGE_SIZE; #ifdef SEGMENT_SIZE adata(abfd).segment_size = SEGMENT_SIZE; #else adata(abfd).segment_size = PAGE_SIZE; #endif adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE; #endif return abfd->xvec; } #endif #ifndef MY_object_p /* Finish up the reading of an a.out file header */ static const bfd_target * MY(object_p) (abfd) bfd *abfd; { struct external_exec exec_bytes; /* Raw exec header from file */ struct internal_exec exec; /* Cleaned-up exec header */ const bfd_target *target; if (bfd_read ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd) != EXEC_BYTES_SIZE) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } #ifdef SWAP_MAGIC exec.a_info = SWAP_MAGIC (exec_bytes.e_info); #else exec.a_info = bfd_h_get_32 (abfd, exec_bytes.e_info); #endif /* SWAP_MAGIC */ if (N_BADMAG (exec)) return 0; #ifdef MACHTYPE_OK if (!(MACHTYPE_OK (N_MACHTYPE (exec)))) return 0; #endif NAME(aout,swap_exec_header_in)(abfd, &exec_bytes, &exec); #ifdef SWAP_MAGIC /* swap_exec_header_in read in a_info with the wrong byte order */ exec.a_info = SWAP_MAGIC (exec_bytes.e_info); #endif /* SWAP_MAGIC */ target = NAME(aout,some_aout_object_p) (abfd, &exec, MY(callback)); #ifdef ENTRY_CAN_BE_ZERO /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage) * means that it isn't obvious if EXEC_P should be set. * All of the following must be true for an executable: * There must be no relocations, the bfd can be neither an * archive nor an archive element, and the file must be executable. */ if (exec.a_trsize + exec.a_drsize == 0 && bfd_get_format(abfd) == bfd_object && abfd->my_archive == NULL) { struct stat buf; #ifndef S_IXUSR #define S_IXUSR 0100 /* Execute by owner. */ #endif if (stat(abfd->filename, &buf) == 0 && (buf.st_mode & S_IXUSR)) abfd->flags |= EXEC_P; } #endif /* ENTRY_CAN_BE_ZERO */ return target; } #define MY_object_p MY(object_p) #endif #ifndef MY_mkobject static boolean MY(mkobject) (abfd) bfd *abfd; { if (NAME(aout,mkobject)(abfd) == false) return false; #if 0 /* Sizes get set in set_sizes callback, later, after we know the architecture and machine. */ adata(abfd).page_size = PAGE_SIZE; #ifdef SEGMENT_SIZE adata(abfd).segment_size = SEGMENT_SIZE; #else adata(abfd).segment_size = PAGE_SIZE; #endif adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE; #endif return true; } #define MY_mkobject MY(mkobject) #endif #ifndef MY_bfd_copy_private_section_data /* Copy private section data. This actually does nothing with the sections. It copies the subformat field. We copy it here, because we need to know whether this is a QMAGIC file before we set the section contents, and copy_private_bfd_data is not called until after the section contents have been set. */ /*ARGSUSED*/ static boolean MY_bfd_copy_private_section_data (ibfd, isec, obfd, osec) bfd *ibfd; asection *isec; bfd *obfd; asection *osec; { obj_aout_subformat (obfd) = obj_aout_subformat (ibfd); return true; } #endif /* Write an object file. Section contents have already been written. We write the file header, symbols, and relocation. */ #ifndef MY_write_object_contents static boolean MY(write_object_contents) (abfd) bfd *abfd; { struct external_exec exec_bytes; struct internal_exec *execp = exec_hdr (abfd); #if CHOOSE_RELOC_SIZE CHOOSE_RELOC_SIZE(abfd); #else obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; #endif WRITE_HEADERS(abfd, execp); return true; } #define MY_write_object_contents MY(write_object_contents) #endif #ifndef MY_set_sizes static boolean MY(set_sizes) (abfd) bfd *abfd; { adata(abfd).page_size = PAGE_SIZE; #ifdef SEGMENT_SIZE adata(abfd).segment_size = SEGMENT_SIZE; #else adata(abfd).segment_size = PAGE_SIZE; #endif #ifdef ZMAGIC_DISK_BLOCK_SIZE adata(abfd).zmagic_disk_block_size = ZMAGIC_DISK_BLOCK_SIZE; #else adata(abfd).zmagic_disk_block_size = PAGE_SIZE; #endif adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE; return true; } #define MY_set_sizes MY(set_sizes) #endif #ifndef MY_exec_hdr_flags #define MY_exec_hdr_flags 0 #endif #ifndef MY_backend_data #ifndef MY_text_includes_header #define MY_text_includes_header 0 #endif #ifndef MY_add_dynamic_symbols #define MY_add_dynamic_symbols 0 #endif #ifndef MY_add_one_symbol #define MY_add_one_symbol 0 #endif #ifndef MY_link_dynamic_object #define MY_link_dynamic_object 0 #endif #ifndef MY_write_dynamic_symbol #define MY_write_dynamic_symbol 0 #endif #ifndef MY_check_dynamic_reloc #define MY_check_dynamic_reloc 0 #endif #ifndef MY_finish_dynamic_link #define MY_finish_dynamic_link 0 #endif static CONST struct aout_backend_data MY(backend_data) = { 0, /* zmagic contiguous */ MY_text_includes_header, MY_exec_hdr_flags, 0, /* text vma? */ MY_set_sizes, 0, /* exec header is counted */ MY_add_dynamic_symbols, MY_add_one_symbol, MY_link_dynamic_object, MY_write_dynamic_symbol, MY_check_dynamic_reloc, MY_finish_dynamic_link }; #define MY_backend_data &MY(backend_data) #endif #ifndef MY_final_link_callback /* Callback for the final_link routine to set the section offsets. */ static void MY_final_link_callback PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *)); static void MY_final_link_callback (abfd, ptreloff, pdreloff, psymoff) bfd *abfd; file_ptr *ptreloff; file_ptr *pdreloff; file_ptr *psymoff; { struct internal_exec *execp = exec_hdr (abfd); *ptreloff = N_TRELOFF (*execp); *pdreloff = N_DRELOFF (*execp); *psymoff = N_SYMOFF (*execp); } #endif #ifndef MY_bfd_final_link /* Final link routine. We need to use a call back to get the correct offsets in the output file. */ static boolean MY_bfd_final_link (abfd, info) bfd *abfd; struct bfd_link_info *info; { return NAME(aout,final_link) (abfd, info, MY_final_link_callback); } #endif /* We assume BFD generic archive files. */ #ifndef MY_openr_next_archived_file #define MY_openr_next_archived_file bfd_generic_openr_next_archived_file #endif #ifndef MY_generic_stat_arch_elt #define MY_generic_stat_arch_elt bfd_generic_stat_arch_elt #endif #ifndef MY_slurp_armap #define MY_slurp_armap bfd_slurp_bsd_armap #endif #ifndef MY_slurp_extended_name_table #define MY_slurp_extended_name_table _bfd_slurp_extended_name_table #endif #ifndef MY_write_armap #define MY_write_armap bsd_write_armap #endif #ifndef MY_truncate_arname #define MY_truncate_arname bfd_bsd_truncate_arname #endif /* No core file defined here -- configure in trad-core.c separately. */ #ifndef MY_core_file_failing_command #define MY_core_file_failing_command _bfd_nocore_core_file_failing_command #endif #ifndef MY_core_file_failing_signal #define MY_core_file_failing_signal _bfd_nocore_core_file_failing_signal #endif #ifndef MY_core_file_matches_executable_p #define MY_core_file_matches_executable_p \ _bfd_nocore_core_file_matches_executable_p #endif #ifndef MY_core_file_p #define MY_core_file_p _bfd_dummy_target #endif #ifndef MY_bfd_debug_info_start #define MY_bfd_debug_info_start bfd_void #endif #ifndef MY_bfd_debug_info_end #define MY_bfd_debug_info_end bfd_void #endif #ifndef MY_bfd_debug_info_accumulate #define MY_bfd_debug_info_accumulate \ (void (*) PARAMS ((bfd*, struct sec *))) bfd_void #endif #ifndef MY_core_file_failing_command #define MY_core_file_failing_command NAME(aout,core_file_failing_command) #endif #ifndef MY_core_file_failing_signal #define MY_core_file_failing_signal NAME(aout,core_file_failing_signal) #endif #ifndef MY_core_file_matches_executable_p #define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p) #endif #ifndef MY_set_section_contents #define MY_set_section_contents NAME(aout,set_section_contents) #endif #ifndef MY_get_section_contents #define MY_get_section_contents NAME(aout,get_section_contents) #endif #ifndef MY_new_section_hook #define MY_new_section_hook NAME(aout,new_section_hook) #endif #ifndef MY_get_symtab_upper_bound #define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound) #endif #ifndef MY_get_symtab #define MY_get_symtab NAME(aout,get_symtab) #endif #ifndef MY_get_reloc_upper_bound #define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound) #endif #ifndef MY_canonicalize_reloc #define MY_canonicalize_reloc NAME(aout,canonicalize_reloc) #endif #ifndef MY_make_empty_symbol #define MY_make_empty_symbol NAME(aout,make_empty_symbol) #endif #ifndef MY_print_symbol #define MY_print_symbol NAME(aout,print_symbol) #endif #ifndef MY_get_symbol_info #define MY_get_symbol_info NAME(aout,get_symbol_info) #endif #ifndef MY_get_lineno #define MY_get_lineno NAME(aout,get_lineno) #endif #ifndef MY_set_arch_mach #define MY_set_arch_mach NAME(aout,set_arch_mach) #endif #ifndef MY_find_nearest_line #define MY_find_nearest_line NAME(aout,find_nearest_line) #endif #ifndef MY_sizeof_headers #define MY_sizeof_headers NAME(aout,sizeof_headers) #endif #ifndef MY_bfd_get_relocated_section_contents #define MY_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #endif #ifndef MY_bfd_relax_section #define MY_bfd_relax_section bfd_generic_relax_section #endif #ifndef MY_bfd_reloc_type_lookup #define MY_bfd_reloc_type_lookup NAME(aout,reloc_type_lookup) #endif #ifndef MY_bfd_make_debug_symbol #define MY_bfd_make_debug_symbol 0 #endif #ifndef MY_bfd_link_hash_table_create #define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create) #endif #ifndef MY_bfd_link_add_symbols #define MY_bfd_link_add_symbols NAME(aout,link_add_symbols) #endif #ifndef MY_bfd_copy_private_bfd_data #define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data #endif #ifndef MY_bfd_is_local_label #define MY_bfd_is_local_label bfd_generic_is_local_label #endif #ifndef MY_bfd_free_cached_info #define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info) #endif #ifndef MY_close_and_cleanup #define MY_close_and_cleanup MY_bfd_free_cached_info #endif #ifndef MY_get_dynamic_symtab_upper_bound #define MY_get_dynamic_symtab_upper_bound \ _bfd_nodynamic_get_dynamic_symtab_upper_bound #endif #ifndef MY_canonicalize_dynamic_symtab #define MY_canonicalize_dynamic_symtab \ _bfd_nodynamic_canonicalize_dynamic_symtab #endif #ifndef MY_get_dynamic_reloc_upper_bound #define MY_get_dynamic_reloc_upper_bound \ _bfd_nodynamic_get_dynamic_reloc_upper_bound #endif #ifndef MY_canonicalize_dynamic_reloc #define MY_canonicalize_dynamic_reloc \ _bfd_nodynamic_canonicalize_dynamic_reloc #endif /* Aout symbols normally have leading underscores */ #ifndef MY_symbol_leading_char #define MY_symbol_leading_char '_' #endif /* Aout archives normally use spaces for padding */ #ifndef AR_PAD_CHAR #define AR_PAD_CHAR ' ' #endif #ifndef MY_BFD_TARGET const bfd_target MY(vec) = { TARGETNAME, /* name */ bfd_target_aout_flavour, #ifdef TARGET_IS_BIG_ENDIAN_P true, /* target byte order (big) */ true, /* target headers byte order (big) */ #else false, /* target byte order (little) */ false, /* target headers byte order (little) */ #endif (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ MY_symbol_leading_char, AR_PAD_CHAR, /* ar_pad_char */ 15, /* ar_max_namelen */ 3, /* minimum alignment */ #ifdef TARGET_IS_BIG_ENDIAN_P bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ #else bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ #endif {_bfd_dummy_target, MY_object_p, /* bfd_check_format */ bfd_generic_archive_p, MY_core_file_p}, {bfd_false, MY_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, MY_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (MY), BFD_JUMP_TABLE_COPY (MY), BFD_JUMP_TABLE_CORE (MY), BFD_JUMP_TABLE_ARCHIVE (MY), BFD_JUMP_TABLE_SYMBOLS (MY), BFD_JUMP_TABLE_RELOCS (MY), BFD_JUMP_TABLE_WRITE (MY), BFD_JUMP_TABLE_LINK (MY), BFD_JUMP_TABLE_DYNAMIC (MY), (PTR) MY_backend_data, }; #endif /* MY_BFD_TARGET */ gdb-4.13/bfd/aout0.c 666 34562 1752 2051 5610535317 12467 0ustar fnfcygnus/* BFD backend for SunOS style a.out with flags set to 0 Copyright (C) 1990, 91, 92, 93, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGETNAME "a.out-zero-big" #define MY(OP) CAT(aout0_big_,OP) #include "bfd.h" #define MY_exec_hdr_flags 0 /* Include the usual a.out support. */ #include "aoutf1.h" gdb-4.13/bfd/aout32.c 666 34562 1752 1615 5541347561 12566 0ustar fnfcygnus/* BFD back-end for 32-bit a.out files. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define ARCH_SIZE 32 #include "aoutx.h" gdb-4.13/bfd/aout64.c 666 34562 1752 2020 5606461404 12555 0ustar fnfcygnus/* BFD back-end for 64-bit a.out files. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define ARCH_SIZE 64 /* aoutx.h requires definitions for BMAGIC and QMAGIC. */ #ifndef BMAGIC #define BMAGIC 0 #endif #ifndef QMAGIC #define QMAGIC 0 #endif #include "aoutx.h" gdb-4.13/bfd/aoutf1.h 666 34562 1752 62127 5610565570 12701 0ustar fnfcygnus/* A.out "format 1" file handling code for BFD. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "aout/sun4.h" #include "libaout.h" /* BFD a.out internal data structures */ #include "aout/aout64.h" #include "aout/stab_gnu.h" #include "aout/ar.h" /* This is needed to reject a NewsOS file, e.g. in gdb/testsuite/gdb.t10/crossload.exp. I needed to add M_UNKNOWN to recognize a 68000 object, so this will probably no longer reject a NewsOS object. . */ #define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \ || (mtype) == M_68010 \ || (mtype) == M_68020 \ || (mtype) == M_SPARC) /* The file @code{aoutf1.h} contains the code for BFD's a.out back end. Control over the generated back end is given by these two preprocessor names: @table @code @item ARCH_SIZE This value should be either 32 or 64, depending upon the size of an int in the target format. It changes the sizes of the structs which perform the memory/disk mapping of structures. The 64 bit backend may only be used if the host compiler supports 64 ints (eg long long with gcc), by defining the name @code{BFD_HOST_64_BIT} in @code{bfd.h}. With this name defined, @emph{all} bfd operations are performed with 64bit arithmetic, not just those to a 64bit target. @item TARGETNAME The name put into the target vector. @item @end table */ /*SUPPRESS558*/ /*SUPPRESS529*/ static void #if ARCH_SIZE == 64 sunos_64_set_arch_mach #else sunos_32_set_arch_mach #endif (abfd, machtype) bfd *abfd; int machtype; { /* Determine the architecture and machine type of the object file. */ enum bfd_architecture arch; long machine; switch (machtype) { case M_UNKNOWN: /* Some Sun3s make magic numbers without cpu types in them, so we'll default to the 68000. */ arch = bfd_arch_m68k; machine = 68000; break; case M_68010: case M_HP200: arch = bfd_arch_m68k; machine = 68010; break; case M_68020: case M_HP300: arch = bfd_arch_m68k; machine = 68020; break; case M_SPARC: arch = bfd_arch_sparc; machine = 0; break; case M_386: case M_386_DYNIX: arch = bfd_arch_i386; machine = 0; break; case M_29K: arch = bfd_arch_a29k; machine = 0; break; case M_HPUX: arch = bfd_arch_m68k; machine = 0; break; default: arch = bfd_arch_obscure; machine = 0; break; } bfd_set_arch_mach (abfd, arch, machine); } #define SET_ARCH_MACH(ABFD, EXEC) \ NAME(sunos,set_arch_mach)(ABFD, N_MACHTYPE (EXEC)); \ choose_reloc_size(ABFD); /* Determine the size of a relocation entry, based on the architecture */ static void choose_reloc_size (abfd) bfd *abfd; { switch (bfd_get_arch (abfd)) { case bfd_arch_sparc: case bfd_arch_a29k: obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE; break; default: obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; break; } } /* Write an object file in SunOS format. Section contents have already been written. We write the file header, symbols, and relocation. */ static boolean #if ARCH_SIZE == 64 aout_64_sunos4_write_object_contents #else aout_32_sunos4_write_object_contents #endif (abfd) bfd *abfd; { struct external_exec exec_bytes; struct internal_exec *execp = exec_hdr (abfd); /* Magic number, maestro, please! */ switch (bfd_get_arch (abfd)) { case bfd_arch_m68k: switch (bfd_get_mach (abfd)) { case 68000: N_SET_MACHTYPE (*execp, M_UNKNOWN); break; case 68010: N_SET_MACHTYPE (*execp, M_68010); break; default: case 68020: N_SET_MACHTYPE (*execp, M_68020); break; } break; case bfd_arch_sparc: N_SET_MACHTYPE (*execp, M_SPARC); break; case bfd_arch_i386: N_SET_MACHTYPE (*execp, M_386); break; case bfd_arch_a29k: N_SET_MACHTYPE (*execp, M_29K); break; default: N_SET_MACHTYPE (*execp, M_UNKNOWN); } choose_reloc_size (abfd); N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags); N_SET_DYNAMIC (*execp, bfd_get_file_flags (abfd) & DYNAMIC); WRITE_HEADERS (abfd, execp); return true; } /* core files */ #define CORE_MAGIC 0x080456 #define CORE_NAMELEN 16 /* The core structure is taken from the Sun documentation. Unfortunately, they don't document the FPA structure, or at least I can't find it easily. Fortunately the core header contains its own length. So this shouldn't cause problems, except for c_ucode, which so far we don't use but is easy to find with a little arithmetic. */ /* But the reg structure can be gotten from the SPARC processor handbook. This really should be in a GNU include file though so that gdb can use the same info. */ struct regs { int r_psr; int r_pc; int r_npc; int r_y; int r_g1; int r_g2; int r_g3; int r_g4; int r_g5; int r_g6; int r_g7; int r_o0; int r_o1; int r_o2; int r_o3; int r_o4; int r_o5; int r_o6; int r_o7; }; /* Taken from Sun documentation: */ /* FIXME: It's worse than we expect. This struct contains TWO substructs neither of whose size we know, WITH STUFF IN BETWEEN THEM! We can't even portably access the stuff in between! */ struct external_sparc_core { int c_magic; /* Corefile magic number */ int c_len; /* Sizeof (struct core) */ #define SPARC_CORE_LEN 432 int c_regs[19]; /* General purpose registers -- MACHDEP SIZE */ struct external_exec c_aouthdr; /* A.out header */ int c_signo; /* Killing signal, if any */ int c_tsize; /* Text size (bytes) */ int c_dsize; /* Data size (bytes) */ int c_ssize; /* Stack size (bytes) */ char c_cmdname[CORE_NAMELEN + 1]; /* Command name */ double fp_stuff[1]; /* external FPU state (size unknown by us) */ /* The type "double" is critical here, for alignment. SunOS declares a struct here, but the struct's alignment is double since it contains doubles. */ int c_ucode; /* Exception no. from u_code */ /* (this member is not accessible by name since we don't portably know the size of fp_stuff.) */ }; /* Core files generated by the BCP (the part of Solaris which allows it to run SunOS4 a.out files). */ struct external_solaris_bcp_core { int c_magic; /* Corefile magic number */ int c_len; /* Sizeof (struct core) */ #define SOLARIS_BCP_CORE_LEN 456 int c_regs[19]; /* General purpose registers -- MACHDEP SIZE */ int c_exdata_vp; /* exdata structure */ int c_exdata_tsize; int c_exdata_dsize; int c_exdata_bsize; int c_exdata_lsize; int c_exdata_nshlibs; short c_exdata_mach; short c_exdata_mag; int c_exdata_toffset; int c_exdata_doffset; int c_exdata_loffset; int c_exdata_txtorg; int c_exdata_datorg; int c_exdata_entloc; int c_signo; /* Killing signal, if any */ int c_tsize; /* Text size (bytes) */ int c_dsize; /* Data size (bytes) */ int c_ssize; /* Stack size (bytes) */ char c_cmdname[CORE_NAMELEN + 1]; /* Command name */ double fp_stuff[1]; /* external FPU state (size unknown by us) */ /* The type "double" is critical here, for alignment. SunOS declares a struct here, but the struct's alignment is double since it contains doubles. */ int c_ucode; /* Exception no. from u_code */ /* (this member is not accessible by name since we don't portably know the size of fp_stuff.) */ }; struct external_sun3_core { int c_magic; /* Corefile magic number */ int c_len; /* Sizeof (struct core) */ #define SUN3_CORE_LEN 826 /* As of SunOS 4.1.1 */ int c_regs[18]; /* General purpose registers -- MACHDEP SIZE */ struct external_exec c_aouthdr; /* A.out header */ int c_signo; /* Killing signal, if any */ int c_tsize; /* Text size (bytes) */ int c_dsize; /* Data size (bytes) */ int c_ssize; /* Stack size (bytes) */ char c_cmdname[CORE_NAMELEN + 1]; /* Command name */ double fp_stuff[1]; /* external FPU state (size unknown by us) */ /* The type "double" is critical here, for alignment. SunOS declares a struct here, but the struct's alignment is double since it contains doubles. */ int c_ucode; /* Exception no. from u_code */ /* (this member is not accessible by name since we don't portably know the size of fp_stuff.) */ }; struct internal_sunos_core { int c_magic; /* Corefile magic number */ int c_len; /* Sizeof (struct core) */ long c_regs_pos; /* file offset of General purpose registers */ int c_regs_size; /* size of General purpose registers */ struct internal_exec c_aouthdr; /* A.out header */ int c_signo; /* Killing signal, if any */ int c_tsize; /* Text size (bytes) */ int c_dsize; /* Data size (bytes) */ bfd_vma c_data_addr; /* Data start (address) */ int c_ssize; /* Stack size (bytes) */ bfd_vma c_stacktop; /* Stack top (address) */ char c_cmdname[CORE_NAMELEN + 1]; /* Command name */ long fp_stuff_pos; /* file offset of external FPU state (regs) */ int fp_stuff_size; /* Size of it */ int c_ucode; /* Exception no. from u_code */ }; /* byte-swap in the Sun-3 core structure */ static void swapcore_sun3 (abfd, ext, intcore) bfd *abfd; char *ext; struct internal_sunos_core *intcore; { struct external_sun3_core *extcore = (struct external_sun3_core *) ext; intcore->c_magic = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_magic); intcore->c_len = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_len); intcore->c_regs_pos = (long) (((struct external_sun3_core *) 0)->c_regs); intcore->c_regs_size = sizeof (extcore->c_regs); #if ARCH_SIZE == 64 aout_64_swap_exec_header_in #else aout_32_swap_exec_header_in #endif (abfd, &extcore->c_aouthdr, &intcore->c_aouthdr); intcore->c_signo = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_signo); intcore->c_tsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_tsize); intcore->c_dsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_dsize); intcore->c_data_addr = N_DATADDR (intcore->c_aouthdr); intcore->c_ssize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_ssize); memcpy (intcore->c_cmdname, extcore->c_cmdname, sizeof (intcore->c_cmdname)); intcore->fp_stuff_pos = (long) (((struct external_sun3_core *) 0)->fp_stuff); /* FP stuff takes up whole rest of struct, except c_ucode. */ intcore->fp_stuff_size = intcore->c_len - (sizeof extcore->c_ucode) - (file_ptr) (((struct external_sun3_core *) 0)->fp_stuff); /* Ucode is the last thing in the struct -- just before the end */ intcore->c_ucode = bfd_h_get_32 (abfd, intcore->c_len - sizeof (extcore->c_ucode) + (unsigned char *) extcore); intcore->c_stacktop = 0x0E000000; /* By experimentation */ } /* byte-swap in the Sparc core structure */ static void swapcore_sparc (abfd, ext, intcore) bfd *abfd; char *ext; struct internal_sunos_core *intcore; { struct external_sparc_core *extcore = (struct external_sparc_core *) ext; intcore->c_magic = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_magic); intcore->c_len = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_len); intcore->c_regs_pos = (long) (((struct external_sparc_core *) 0)->c_regs); intcore->c_regs_size = sizeof (extcore->c_regs); #if ARCH_SIZE == 64 aout_64_swap_exec_header_in #else aout_32_swap_exec_header_in #endif (abfd, &extcore->c_aouthdr, &intcore->c_aouthdr); intcore->c_signo = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_signo); intcore->c_tsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_tsize); intcore->c_dsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_dsize); intcore->c_data_addr = N_DATADDR (intcore->c_aouthdr); intcore->c_ssize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_ssize); memcpy (intcore->c_cmdname, extcore->c_cmdname, sizeof (intcore->c_cmdname)); intcore->fp_stuff_pos = (long) (((struct external_sparc_core *) 0)->fp_stuff); /* FP stuff takes up whole rest of struct, except c_ucode. */ intcore->fp_stuff_size = intcore->c_len - (sizeof extcore->c_ucode) - (file_ptr) (((struct external_sparc_core *) 0)->fp_stuff); /* Ucode is the last thing in the struct -- just before the end */ intcore->c_ucode = bfd_h_get_32 (abfd, intcore->c_len - sizeof (extcore->c_ucode) + (unsigned char *) extcore); /* Supposedly the user stack grows downward from the bottom of kernel memory. Presuming that this remains true, this definition will work. */ /* Now sun has provided us with another challenge. The value is different for sparc2 and sparc10 (both running SunOS 4.1.3). We pick one or the other based on the current value of the stack pointer. This loses (a) if the stack pointer has been clobbered, or (b) if the stack is larger than 128 megabytes. It's times like these you're glad they're switching to ELF. Note that using include files or nlist on /vmunix would be wrong, because we want the value for this core file, no matter what kind of machine we were compiled on or are running on. */ #define SPARC_USRSTACK_SPARC2 ((bfd_vma)0xf8000000) #define SPARC_USRSTACK_SPARC10 ((bfd_vma)0xf0000000) { bfd_vma sp = bfd_h_get_32 (abfd, (unsigned char *) &((struct regs *) &extcore->c_regs[0])->r_o6); if (sp < SPARC_USRSTACK_SPARC10) intcore->c_stacktop = SPARC_USRSTACK_SPARC10; else intcore->c_stacktop = SPARC_USRSTACK_SPARC2; } } /* byte-swap in the Solaris BCP core structure */ static void swapcore_solaris_bcp (abfd, ext, intcore) bfd *abfd; char *ext; struct internal_sunos_core *intcore; { struct external_solaris_bcp_core *extcore = (struct external_solaris_bcp_core *) ext; intcore->c_magic = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_magic); intcore->c_len = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_len); intcore->c_regs_pos = (long) (((struct external_solaris_bcp_core *) 0)->c_regs); intcore->c_regs_size = sizeof (extcore->c_regs); /* The Solaris BCP exdata structure does not contain an a_syms field, so we are unable to synthesize an internal exec header. Luckily we are able to figure out the start address of the data section, which is the only thing needed from the internal exec header, from the exdata structure. As of Solaris 2.3, BCP core files for statically linked executables are buggy. The exdata structure is not properly filled in, and the data section is written from address zero instead of the data start address. */ memset ((PTR) &intcore->c_aouthdr, 0, sizeof (struct internal_exec)); intcore->c_data_addr = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_exdata_datorg); intcore->c_signo = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_signo); intcore->c_tsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_tsize); intcore->c_dsize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_dsize); intcore->c_ssize = bfd_h_get_32 (abfd, (unsigned char *) &extcore->c_ssize); memcpy (intcore->c_cmdname, extcore->c_cmdname, sizeof (intcore->c_cmdname)); intcore->fp_stuff_pos = (long) (((struct external_solaris_bcp_core *) 0)->fp_stuff); /* FP stuff takes up whole rest of struct, except c_ucode. */ intcore->fp_stuff_size = intcore->c_len - (sizeof extcore->c_ucode) - (file_ptr) (((struct external_solaris_bcp_core *) 0)->fp_stuff); /* Ucode is the last thing in the struct -- just before the end */ intcore->c_ucode = bfd_h_get_32 (abfd, intcore->c_len - sizeof (extcore->c_ucode) + (unsigned char *) extcore); /* Supposedly the user stack grows downward from the bottom of kernel memory. Presuming that this remains true, this definition will work. */ /* Now sun has provided us with another challenge. The value is different for sparc2 and sparc10 (both running SunOS 4.1.3). We pick one or the other based on the current value of the stack pointer. This loses (a) if the stack pointer has been clobbered, or (b) if the stack is larger than 128 megabytes. It's times like these you're glad they're switching to ELF. Note that using include files or nlist on /vmunix would be wrong, because we want the value for this core file, no matter what kind of machine we were compiled on or are running on. */ #define SPARC_USRSTACK_SPARC2 ((bfd_vma)0xf8000000) #define SPARC_USRSTACK_SPARC10 ((bfd_vma)0xf0000000) { bfd_vma sp = bfd_h_get_32 (abfd, (unsigned char *) &((struct regs *) &extcore->c_regs[0])->r_o6); if (sp < SPARC_USRSTACK_SPARC10) intcore->c_stacktop = SPARC_USRSTACK_SPARC10; else intcore->c_stacktop = SPARC_USRSTACK_SPARC2; } } /* need this cast because ptr is really void * */ #define core_hdr(bfd) ((bfd)->tdata.sun_core_data) #define core_datasec(bfd) (core_hdr(bfd)->data_section) #define core_stacksec(bfd) (core_hdr(bfd)->stack_section) #define core_regsec(bfd) (core_hdr(bfd)->reg_section) #define core_reg2sec(bfd) (core_hdr(bfd)->reg2_section) /* These are stored in the bfd's tdata */ struct sun_core_struct { struct internal_sunos_core *hdr; /* core file header */ asection *data_section; asection *stack_section; asection *reg_section; asection *reg2_section; }; static const bfd_target * sunos4_core_file_p (abfd) bfd *abfd; { unsigned char longbuf[4]; /* Raw bytes of various header fields */ int core_size; int core_mag; struct internal_sunos_core *core; char *extcore; struct mergem { struct sun_core_struct suncoredata; struct internal_sunos_core internal_sunos_core; char external_core[1]; } *mergem; if (bfd_read ((PTR) longbuf, 1, sizeof (longbuf), abfd) != sizeof (longbuf)) return 0; core_mag = bfd_h_get_32 (abfd, longbuf); if (core_mag != CORE_MAGIC) return 0; /* SunOS core headers can vary in length; second word is size; */ if (bfd_read ((PTR) longbuf, 1, sizeof (longbuf), abfd) != sizeof (longbuf)) return 0; core_size = bfd_h_get_32 (abfd, longbuf); /* Sanity check */ if (core_size > 20000) return 0; if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) < 0) return 0; mergem = (struct mergem *) bfd_zalloc (abfd, core_size + sizeof (struct mergem)); if (mergem == NULL) { bfd_set_error (bfd_error_no_memory); return 0; } extcore = mergem->external_core; if ((bfd_read ((PTR) extcore, 1, core_size, abfd)) != core_size) { bfd_release (abfd, (char *) mergem); return 0; } /* Validate that it's a core file we know how to handle, due to sun botching the positioning of registers and other fields in a machine dependent way. */ core = &mergem->internal_sunos_core; switch (core_size) { case SPARC_CORE_LEN: swapcore_sparc (abfd, extcore, core); break; case SUN3_CORE_LEN: swapcore_sun3 (abfd, extcore, core); break; case SOLARIS_BCP_CORE_LEN: swapcore_solaris_bcp (abfd, extcore, core); break; default: bfd_set_error (bfd_error_system_call); /* FIXME */ bfd_release (abfd, (char *) mergem); return 0; } abfd->tdata.sun_core_data = &mergem->suncoredata; abfd->tdata.sun_core_data->hdr = core; /* create the sections. This is raunchy, but bfd_close wants to reclaim them */ core_stacksec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_stacksec (abfd) == NULL) { loser: bfd_set_error (bfd_error_no_memory); bfd_release (abfd, (char *) mergem); return 0; } core_datasec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_datasec (abfd) == NULL) { loser1: bfd_release (abfd, core_stacksec (abfd)); goto loser; } core_regsec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_regsec (abfd) == NULL) { loser2: bfd_release (abfd, core_datasec (abfd)); goto loser1; } core_reg2sec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_reg2sec (abfd) == NULL) { bfd_release (abfd, core_regsec (abfd)); goto loser2; } core_stacksec (abfd)->name = ".stack"; core_datasec (abfd)->name = ".data"; core_regsec (abfd)->name = ".reg"; core_reg2sec (abfd)->name = ".reg2"; core_stacksec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS; core_datasec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS; core_regsec (abfd)->flags = SEC_HAS_CONTENTS; core_reg2sec (abfd)->flags = SEC_HAS_CONTENTS; core_stacksec (abfd)->_raw_size = core->c_ssize; core_datasec (abfd)->_raw_size = core->c_dsize; core_regsec (abfd)->_raw_size = core->c_regs_size; core_reg2sec (abfd)->_raw_size = core->fp_stuff_size; core_stacksec (abfd)->vma = (core->c_stacktop - core->c_ssize); core_datasec (abfd)->vma = core->c_data_addr; core_regsec (abfd)->vma = 0; core_reg2sec (abfd)->vma = 0; core_stacksec (abfd)->filepos = core->c_len + core->c_dsize; core_datasec (abfd)->filepos = core->c_len; /* We'll access the regs afresh in the core file, like any section: */ core_regsec (abfd)->filepos = (file_ptr) core->c_regs_pos; core_reg2sec (abfd)->filepos = (file_ptr) core->fp_stuff_pos; /* Align to word at least */ core_stacksec (abfd)->alignment_power = 2; core_datasec (abfd)->alignment_power = 2; core_regsec (abfd)->alignment_power = 2; core_reg2sec (abfd)->alignment_power = 2; abfd->sections = core_stacksec (abfd); core_stacksec (abfd)->next = core_datasec (abfd); core_datasec (abfd)->next = core_regsec (abfd); core_regsec (abfd)->next = core_reg2sec (abfd); abfd->section_count = 4; return abfd->xvec; } static char * sunos4_core_file_failing_command (abfd) bfd *abfd; { return core_hdr (abfd)->hdr->c_cmdname; } static int sunos4_core_file_failing_signal (abfd) bfd *abfd; { return core_hdr (abfd)->hdr->c_signo; } static boolean sunos4_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd; bfd *exec_bfd; { if (core_bfd->xvec != exec_bfd->xvec) { bfd_set_error (bfd_error_system_call); return false; } /* Solaris core files do not include an aouthdr. */ if ((core_hdr (core_bfd)->hdr)->c_len == SOLARIS_BCP_CORE_LEN) return true; return (memcmp ((char *) &((core_hdr (core_bfd)->hdr)->c_aouthdr), (char *) exec_hdr (exec_bfd), sizeof (struct internal_exec)) == 0) ? true : false; } #define MY_set_sizes sunos4_set_sizes static boolean sunos4_set_sizes (abfd) bfd *abfd; { switch (bfd_get_arch (abfd)) { default: return false; case bfd_arch_sparc: adata (abfd).page_size = 0x2000; adata (abfd).segment_size = 0x2000; adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE; return true; case bfd_arch_m68k: adata (abfd).page_size = 0x2000; adata (abfd).segment_size = 0x20000; adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE; return true; } } /* We default to setting the toolversion field to 1, as is required by SunOS. */ #ifndef MY_exec_hdr_flags #define MY_exec_hdr_flags 1 #endif #ifndef MY_add_dynamic_symbols #define MY_add_dynamic_symbols 0 #endif #ifndef MY_add_one_symbol #define MY_add_one_symbol 0 #endif #ifndef MY_link_dynamic_object #define MY_link_dynamic_object 0 #endif #ifndef MY_write_dynamic_symbol #define MY_write_dynamic_symbol 0 #endif #ifndef MY_check_dynamic_reloc #define MY_check_dynamic_reloc 0 #endif #ifndef MY_finish_dynamic_link #define MY_finish_dynamic_link 0 #endif static CONST struct aout_backend_data sunos4_aout_backend = { 0, /* zmagic files are not contiguous */ 1, /* text includes header */ MY_exec_hdr_flags, 0, /* default text vma */ sunos4_set_sizes, 0, /* header is counted in zmagic text */ MY_add_dynamic_symbols, MY_add_one_symbol, MY_link_dynamic_object, MY_write_dynamic_symbol, MY_check_dynamic_reloc, MY_finish_dynamic_link }; #define MY_core_file_failing_command sunos4_core_file_failing_command #define MY_core_file_failing_signal sunos4_core_file_failing_signal #define MY_core_file_matches_executable_p sunos4_core_file_matches_executable_p #define MY_bfd_debug_info_start bfd_void #define MY_bfd_debug_info_end bfd_void #define MY_bfd_debug_info_accumulate \ (void (*) PARAMS ((bfd *, struct sec *))) bfd_void #define MY_core_file_p sunos4_core_file_p #define MY_write_object_contents NAME(aout,sunos4_write_object_contents) #define MY_backend_data &sunos4_aout_backend #define TARGET_IS_BIG_ENDIAN_P #include "aout-target.h" gdb-4.13/bfd/aoutx.h 666 34562 1752 435462 5622333660 12664 0ustar fnfcygnus/* BFD semi-generic back-end for a.out binaries. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION a.out backends DESCRIPTION BFD supports a number of different flavours of a.out format, though the major differences are only the sizes of the structures on disk, and the shape of the relocation information. The support is split into a basic support file @file{aoutx.h} and other files which derive functions from the base. One derivation file is @file{aoutf1.h} (for a.out flavour 1), and adds to the basic a.out functions support for sun3, sun4, 386 and 29k a.out files, to create a target jump vector for a specific target. This information is further split out into more specific files for each machine, including @file{sunos.c} for sun3 and sun4, @file{newsos3.c} for the Sony NEWS, and @file{demo64.c} for a demonstration of a 64 bit a.out format. The base file @file{aoutx.h} defines general mechanisms for reading and writing records to and from disk and various other methods which BFD requires. It is included by @file{aout32.c} and @file{aout64.c} to form the names <>, <>, etc. As an example, this is what goes on to make the back end for a sun4, from @file{aout32.c}: | #define ARCH_SIZE 32 | #include "aoutx.h" Which exports names: | ... | aout_32_canonicalize_reloc | aout_32_find_nearest_line | aout_32_get_lineno | aout_32_get_reloc_upper_bound | ... from @file{sunos.c}: | #define TARGET_NAME "a.out-sunos-big" | #define VECNAME sunos_big_vec | #include "aoutf1.h" requires all the names from @file{aout32.c}, and produces the jump vector | sunos_big_vec The file @file{host-aout.c} is a special case. It is for a large set of hosts that use ``more or less standard'' a.out files, and for which cross-debugging is not interesting. It uses the standard 32-bit a.out support routines, but determines the file offsets and addresses of the text, data, and BSS sections, the machine architecture and machine type, and the entry point address, in a host-dependent manner. Once these values have been determined, generic code is used to handle the object file. When porting it to run on a new system, you must supply: | HOST_PAGE_SIZE | HOST_SEGMENT_SIZE | HOST_MACHINE_ARCH (optional) | HOST_MACHINE_MACHINE (optional) | HOST_TEXT_START_ADDR | HOST_STACK_END_ADDR in the file @file{../include/sys/h-@var{XXX}.h} (for your host). These values, plus the structures and macros defined in @file{a.out.h} on your host system, will produce a BFD target that will access ordinary a.out files on your host. To configure a new machine to use @file{host-aout.c}, specify: | TDEFAULTS = -DDEFAULT_VECTOR=host_aout_big_vec | TDEPFILES= host-aout.o trad-core.o in the @file{config/@var{XXX}.mt} file, and modify @file{configure.in} to use the @file{@var{XXX}.mt} file (by setting "<>") when your configuration is selected. */ /* Some assumptions: * Any BFD with D_PAGED set is ZMAGIC, and vice versa. Doesn't matter what the setting of WP_TEXT is on output, but it'll get set on input. * Any BFD with D_PAGED clear and WP_TEXT set is NMAGIC. * Any BFD with both flags clear is OMAGIC. (Just want to make these explicit, so the conditions tested in this file make sense if you're more familiar with a.out than with BFD.) */ #define KEEPIT flags #define KEEPITTYPE int #include /* For strchr and friends */ #include "bfd.h" #include #include "bfdlink.h" #include "libaout.h" #include "libbfd.h" #include "aout/aout64.h" #include "aout/stab_gnu.h" #include "aout/ar.h" static boolean aout_get_external_symbols PARAMS ((bfd *)); static boolean translate_from_native_sym_flags PARAMS ((bfd *, aout_symbol_type *)); static boolean translate_to_native_sym_flags PARAMS ((bfd *, asymbol *, struct external_nlist *)); /* SUBSECTION Relocations DESCRIPTION The file @file{aoutx.h} provides for both the @emph{standard} and @emph{extended} forms of a.out relocation records. The standard records contain only an address, a symbol index, and a type field. The extended records (used on 29ks and sparcs) also have a full integer for an addend. */ #ifndef CTOR_TABLE_RELOC_HOWTO #define CTOR_TABLE_RELOC_IDX 2 #define CTOR_TABLE_RELOC_HOWTO(BFD) ((obj_reloc_entry_size(BFD) == RELOC_EXT_SIZE \ ? howto_table_ext : howto_table_std) \ + CTOR_TABLE_RELOC_IDX) #endif #ifndef MY_swap_std_reloc_in #define MY_swap_std_reloc_in NAME(aout,swap_std_reloc_in) #endif #ifndef MY_swap_std_reloc_out #define MY_swap_std_reloc_out NAME(aout,swap_std_reloc_out) #endif #define howto_table_ext NAME(aout,ext_howto_table) #define howto_table_std NAME(aout,std_howto_table) reloc_howto_type howto_table_ext[] = { /* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone */ HOWTO(RELOC_8, 0, 0, 8, false, 0, complain_overflow_bitfield,0,"8", false, 0,0x000000ff, false), HOWTO(RELOC_16, 0, 1, 16, false, 0, complain_overflow_bitfield,0,"16", false, 0,0x0000ffff, false), HOWTO(RELOC_32, 0, 2, 32, false, 0, complain_overflow_bitfield,0,"32", false, 0,0xffffffff, false), HOWTO(RELOC_DISP8, 0, 0, 8, true, 0, complain_overflow_signed,0,"DISP8", false, 0,0x000000ff, false), HOWTO(RELOC_DISP16, 0, 1, 16, true, 0, complain_overflow_signed,0,"DISP16", false, 0,0x0000ffff, false), HOWTO(RELOC_DISP32, 0, 2, 32, true, 0, complain_overflow_signed,0,"DISP32", false, 0,0xffffffff, false), HOWTO(RELOC_WDISP30,2, 2, 30, true, 0, complain_overflow_signed,0,"WDISP30", false, 0,0x3fffffff, false), HOWTO(RELOC_WDISP22,2, 2, 22, true, 0, complain_overflow_signed,0,"WDISP22", false, 0,0x003fffff, false), HOWTO(RELOC_HI22, 10, 2, 22, false, 0, complain_overflow_bitfield,0,"HI22", false, 0,0x003fffff, false), HOWTO(RELOC_22, 0, 2, 22, false, 0, complain_overflow_bitfield,0,"22", false, 0,0x003fffff, false), HOWTO(RELOC_13, 0, 2, 13, false, 0, complain_overflow_bitfield,0,"13", false, 0,0x00001fff, false), HOWTO(RELOC_LO10, 0, 2, 10, false, 0, complain_overflow_dont,0,"LO10", false, 0,0x000003ff, false), HOWTO(RELOC_SFA_BASE,0, 2, 32, false, 0, complain_overflow_bitfield,0,"SFA_BASE", false, 0,0xffffffff, false), HOWTO(RELOC_SFA_OFF13,0,2, 32, false, 0, complain_overflow_bitfield,0,"SFA_OFF13",false, 0,0xffffffff, false), HOWTO(RELOC_BASE10, 0, 2, 16, false, 0, complain_overflow_bitfield,0,"BASE10", false, 0,0x0000ffff, false), HOWTO(RELOC_BASE13, 0, 2, 13, false, 0, complain_overflow_bitfield,0,"BASE13", false, 0,0x00001fff, false), HOWTO(RELOC_BASE22, 0, 2, 0, false, 0, complain_overflow_bitfield,0,"BASE22", false, 0,0x00000000, false), HOWTO(RELOC_PC10, 0, 2, 10, false, 0, complain_overflow_bitfield,0,"PC10", false, 0,0x000003ff, false), HOWTO(RELOC_PC22, 0, 2, 22, false, 0, complain_overflow_bitfield,0,"PC22", false, 0,0x003fffff, false), HOWTO(RELOC_JMP_TBL,0, 2, 32, false, 0, complain_overflow_bitfield,0,"JMP_TBL", false, 0,0xffffffff, false), HOWTO(RELOC_SEGOFF16,0, 2, 0, false, 0, complain_overflow_bitfield,0,"SEGOFF16", false, 0,0x00000000, false), HOWTO(RELOC_GLOB_DAT,0, 2, 0, false, 0, complain_overflow_bitfield,0,"GLOB_DAT", false, 0,0x00000000, false), HOWTO(RELOC_JMP_SLOT,0, 2, 0, false, 0, complain_overflow_bitfield,0,"JMP_SLOT", false, 0,0x00000000, false), HOWTO(RELOC_RELATIVE,0, 2, 0, false, 0, complain_overflow_bitfield,0,"RELATIVE", false, 0,0x00000000, false), }; /* Convert standard reloc records to "arelent" format (incl byte swap). */ reloc_howto_type howto_table_std[] = { /* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone */ HOWTO( 0, 0, 0, 8, false, 0, complain_overflow_bitfield,0,"8", true, 0x000000ff,0x000000ff, false), HOWTO( 1, 0, 1, 16, false, 0, complain_overflow_bitfield,0,"16", true, 0x0000ffff,0x0000ffff, false), HOWTO( 2, 0, 2, 32, false, 0, complain_overflow_bitfield,0,"32", true, 0xffffffff,0xffffffff, false), HOWTO( 3, 0, 4, 64, false, 0, complain_overflow_bitfield,0,"64", true, 0xdeaddead,0xdeaddead, false), HOWTO( 4, 0, 0, 8, true, 0, complain_overflow_signed, 0,"DISP8", true, 0x000000ff,0x000000ff, false), HOWTO( 5, 0, 1, 16, true, 0, complain_overflow_signed, 0,"DISP16", true, 0x0000ffff,0x0000ffff, false), HOWTO( 6, 0, 2, 32, true, 0, complain_overflow_signed, 0,"DISP32", true, 0xffffffff,0xffffffff, false), HOWTO( 7, 0, 4, 64, true, 0, complain_overflow_signed, 0,"DISP64", true, 0xfeedface,0xfeedface, false), HOWTO( 8, 0, 2, 0, false, 0, complain_overflow_bitfield,0,"GOT_REL", false, 0,0x00000000, false), HOWTO( 9, 0, 1, 16, false, 0, complain_overflow_bitfield,0,"BASE16", false,0xffffffff,0xffffffff, false), HOWTO(10, 0, 2, 32, false, 0, complain_overflow_bitfield,0,"BASE32", false,0xffffffff,0xffffffff, false), { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, HOWTO(16, 0, 2, 0, false, 0, complain_overflow_bitfield,0,"JMP_TABLE", false, 0,0x00000000, false), { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, HOWTO(32, 0, 2, 0, false, 0, complain_overflow_bitfield,0,"RELATIVE", false, 0,0x00000000, false), { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, { -1 }, HOWTO(40, 0, 2, 0, false, 0, complain_overflow_bitfield,0,"BASEREL", false, 0,0x00000000, false), }; #define TABLE_SIZE(TABLE) (sizeof(TABLE)/sizeof(TABLE[0])) CONST struct reloc_howto_struct * NAME(aout,reloc_type_lookup) (abfd,code) bfd *abfd; bfd_reloc_code_real_type code; { #define EXT(i,j) case i: return &howto_table_ext[j] #define STD(i,j) case i: return &howto_table_std[j] int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE; if (code == BFD_RELOC_CTOR) switch (bfd_get_arch_info (abfd)->bits_per_address) { case 32: code = BFD_RELOC_32; break; case 64: code = BFD_RELOC_64; break; } if (ext) switch (code) { EXT (BFD_RELOC_32, 2); EXT (BFD_RELOC_HI22, 8); EXT (BFD_RELOC_LO10, 11); EXT (BFD_RELOC_32_PCREL_S2, 6); EXT (BFD_RELOC_SPARC_WDISP22, 7); EXT (BFD_RELOC_SPARC13, 10); EXT (BFD_RELOC_SPARC_BASE13, 15); default: return (CONST struct reloc_howto_struct *) 0; } else /* std relocs */ switch (code) { STD (BFD_RELOC_16, 1); STD (BFD_RELOC_32, 2); STD (BFD_RELOC_8_PCREL, 4); STD (BFD_RELOC_16_PCREL, 5); STD (BFD_RELOC_32_PCREL, 6); STD (BFD_RELOC_16_BASEREL, 9); STD (BFD_RELOC_32_BASEREL, 10); default: return (CONST struct reloc_howto_struct *) 0; } } /* SUBSECTION Internal entry points DESCRIPTION @file{aoutx.h} exports several routines for accessing the contents of an a.out file, which are gathered and exported in turn by various format specific files (eg sunos.c). */ /* FUNCTION aout_@var{size}_swap_exec_header_in SYNOPSIS void aout_@var{size}_swap_exec_header_in, (bfd *abfd, struct external_exec *raw_bytes, struct internal_exec *execp); DESCRIPTION Swap the information in an executable header @var{raw_bytes} taken from a raw byte stream memory image into the internal exec header structure @var{execp}. */ #ifndef NAME_swap_exec_header_in void NAME(aout,swap_exec_header_in) (abfd, raw_bytes, execp) bfd *abfd; struct external_exec *raw_bytes; struct internal_exec *execp; { struct external_exec *bytes = (struct external_exec *)raw_bytes; /* The internal_exec structure has some fields that are unused in this configuration (IE for i960), so ensure that all such uninitialized fields are zero'd out. There are places where two of these structs are memcmp'd, and thus the contents do matter. */ memset ((PTR) execp, 0, sizeof (struct internal_exec)); /* Now fill in fields in the execp, from the bytes in the raw data. */ execp->a_info = bfd_h_get_32 (abfd, bytes->e_info); execp->a_text = GET_WORD (abfd, bytes->e_text); execp->a_data = GET_WORD (abfd, bytes->e_data); execp->a_bss = GET_WORD (abfd, bytes->e_bss); execp->a_syms = GET_WORD (abfd, bytes->e_syms); execp->a_entry = GET_WORD (abfd, bytes->e_entry); execp->a_trsize = GET_WORD (abfd, bytes->e_trsize); execp->a_drsize = GET_WORD (abfd, bytes->e_drsize); } #define NAME_swap_exec_header_in NAME(aout,swap_exec_header_in) #endif /* FUNCTION aout_@var{size}_swap_exec_header_out SYNOPSIS void aout_@var{size}_swap_exec_header_out (bfd *abfd, struct internal_exec *execp, struct external_exec *raw_bytes); DESCRIPTION Swap the information in an internal exec header structure @var{execp} into the buffer @var{raw_bytes} ready for writing to disk. */ void NAME(aout,swap_exec_header_out) (abfd, execp, raw_bytes) bfd *abfd; struct internal_exec *execp; struct external_exec *raw_bytes; { struct external_exec *bytes = (struct external_exec *)raw_bytes; /* Now fill in fields in the raw data, from the fields in the exec struct. */ bfd_h_put_32 (abfd, execp->a_info , bytes->e_info); PUT_WORD (abfd, execp->a_text , bytes->e_text); PUT_WORD (abfd, execp->a_data , bytes->e_data); PUT_WORD (abfd, execp->a_bss , bytes->e_bss); PUT_WORD (abfd, execp->a_syms , bytes->e_syms); PUT_WORD (abfd, execp->a_entry , bytes->e_entry); PUT_WORD (abfd, execp->a_trsize, bytes->e_trsize); PUT_WORD (abfd, execp->a_drsize, bytes->e_drsize); } /* Make all the section for an a.out file. */ boolean NAME(aout,make_sections) (abfd) bfd *abfd; { if (obj_textsec (abfd) == (asection *) NULL && bfd_make_section (abfd, ".text") == (asection *) NULL) return false; if (obj_datasec (abfd) == (asection *) NULL && bfd_make_section (abfd, ".data") == (asection *) NULL) return false; if (obj_bsssec (abfd) == (asection *) NULL && bfd_make_section (abfd, ".bss") == (asection *) NULL) return false; return true; } /* FUNCTION aout_@var{size}_some_aout_object_p SYNOPSIS const bfd_target *aout_@var{size}_some_aout_object_p (bfd *abfd, const bfd_target *(*callback_to_real_object_p)()); DESCRIPTION Some a.out variant thinks that the file open in @var{abfd} checking is an a.out file. Do some more checking, and set up for access if it really is. Call back to the calling environment's "finish up" function just before returning, to handle any last-minute setup. */ const bfd_target * NAME(aout,some_aout_object_p) (abfd, execp, callback_to_real_object_p) bfd *abfd; struct internal_exec *execp; const bfd_target *(*callback_to_real_object_p) PARAMS ((bfd *)); { struct aout_data_struct *rawptr, *oldrawptr; const bfd_target *result; rawptr = (struct aout_data_struct *) bfd_zalloc (abfd, sizeof (struct aout_data_struct )); if (rawptr == NULL) { bfd_set_error (bfd_error_no_memory); return 0; } oldrawptr = abfd->tdata.aout_data; abfd->tdata.aout_data = rawptr; /* Copy the contents of the old tdata struct. In particular, we want the subformat, since for hpux it was set in hp300hpux.c:swap_exec_header_in and will be used in hp300hpux.c:callback. */ if (oldrawptr != NULL) *abfd->tdata.aout_data = *oldrawptr; abfd->tdata.aout_data->a.hdr = &rawptr->e; *(abfd->tdata.aout_data->a.hdr) = *execp; /* Copy in the internal_exec struct */ execp = abfd->tdata.aout_data->a.hdr; /* Set the file flags */ abfd->flags = NO_FLAGS; if (execp->a_drsize || execp->a_trsize) abfd->flags |= HAS_RELOC; /* Setting of EXEC_P has been deferred to the bottom of this function */ if (execp->a_syms) abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS; if (N_DYNAMIC(*execp)) abfd->flags |= DYNAMIC; if (N_MAGIC (*execp) == ZMAGIC) { abfd->flags |= D_PAGED | WP_TEXT; adata (abfd).magic = z_magic; } else if (N_MAGIC (*execp) == QMAGIC) { abfd->flags |= D_PAGED | WP_TEXT; adata (abfd).magic = z_magic; adata (abfd).subformat = q_magic_format; } else if (N_MAGIC (*execp) == NMAGIC) { abfd->flags |= WP_TEXT; adata (abfd).magic = n_magic; } else if (N_MAGIC (*execp) == OMAGIC || N_MAGIC (*execp) == BMAGIC) adata (abfd).magic = o_magic; else { /* Should have been checked with N_BADMAG before this routine was called. */ abort (); } bfd_get_start_address (abfd) = execp->a_entry; obj_aout_symbols (abfd) = (aout_symbol_type *)NULL; bfd_get_symcount (abfd) = execp->a_syms / sizeof (struct external_nlist); /* The default relocation entry size is that of traditional V7 Unix. */ obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; /* The default symbol entry size is that of traditional Unix. */ obj_symbol_entry_size (abfd) = EXTERNAL_NLIST_SIZE; obj_aout_external_syms (abfd) = NULL; obj_aout_external_strings (abfd) = NULL; obj_aout_sym_hashes (abfd) = NULL; if (! NAME(aout,make_sections) (abfd)) return NULL; obj_datasec (abfd)->_raw_size = execp->a_data; obj_bsssec (abfd)->_raw_size = execp->a_bss; obj_textsec (abfd)->flags = (execp->a_trsize != 0 ? (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS | SEC_RELOC) : (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS)); obj_datasec (abfd)->flags = (execp->a_drsize != 0 ? (SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_HAS_CONTENTS | SEC_RELOC) : (SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_HAS_CONTENTS)); obj_bsssec (abfd)->flags = SEC_ALLOC; #ifdef THIS_IS_ONLY_DOCUMENTATION /* The common code can't fill in these things because they depend on either the start address of the text segment, the rounding up of virtual addresses between segments, or the starting file position of the text segment -- all of which varies among different versions of a.out. */ /* Call back to the format-dependent code to fill in the rest of the fields and do any further cleanup. Things that should be filled in by the callback: */ struct exec *execp = exec_hdr (abfd); obj_textsec (abfd)->size = N_TXTSIZE(*execp); obj_textsec (abfd)->raw_size = N_TXTSIZE(*execp); /* data and bss are already filled in since they're so standard */ /* The virtual memory addresses of the sections */ obj_textsec (abfd)->vma = N_TXTADDR(*execp); obj_datasec (abfd)->vma = N_DATADDR(*execp); obj_bsssec (abfd)->vma = N_BSSADDR(*execp); /* The file offsets of the sections */ obj_textsec (abfd)->filepos = N_TXTOFF(*execp); obj_datasec (abfd)->filepos = N_DATOFF(*execp); /* The file offsets of the relocation info */ obj_textsec (abfd)->rel_filepos = N_TRELOFF(*execp); obj_datasec (abfd)->rel_filepos = N_DRELOFF(*execp); /* The file offsets of the string table and symbol table. */ obj_str_filepos (abfd) = N_STROFF (*execp); obj_sym_filepos (abfd) = N_SYMOFF (*execp); /* Determine the architecture and machine type of the object file. */ switch (N_MACHTYPE (*exec_hdr (abfd))) { default: abfd->obj_arch = bfd_arch_obscure; break; } adata(abfd)->page_size = PAGE_SIZE; adata(abfd)->segment_size = SEGMENT_SIZE; adata(abfd)->exec_bytes_size = EXEC_BYTES_SIZE; return abfd->xvec; /* The architecture is encoded in various ways in various a.out variants, or is not encoded at all in some of them. The relocation size depends on the architecture and the a.out variant. Finally, the return value is the bfd_target vector in use. If an error occurs, return zero and set bfd_error to the appropriate error code. Formats such as b.out, which have additional fields in the a.out header, should cope with them in this callback as well. */ #endif /* DOCUMENTATION */ result = (*callback_to_real_object_p)(abfd); #if defined(MACH) || defined(STAT_FOR_EXEC) /* The original heuristic doesn't work in some important cases. The * a.out file has no information about the text start address. For * files (like kernels) linked to non-standard addresses (ld -Ttext * nnn) the entry point may not be between the default text start * (obj_textsec(abfd)->vma) and (obj_textsec(abfd)->vma) + text size * This is not just a mach issue. Many kernels are loaded at non * standard addresses. */ { struct stat stat_buf; if (abfd->iostream && (fstat(fileno((FILE *) (abfd->iostream)), &stat_buf) == 0) && ((stat_buf.st_mode & 0111) != 0)) abfd->flags |= EXEC_P; } #else /* ! MACH */ /* Now that the segment addresses have been worked out, take a better guess at whether the file is executable. If the entry point is within the text segment, assume it is. (This makes files executable even if their entry point address is 0, as long as their text starts at zero.) At some point we should probably break down and stat the file and declare it executable if (one of) its 'x' bits are on... */ if ((execp->a_entry >= obj_textsec(abfd)->vma) && (execp->a_entry < obj_textsec(abfd)->vma + obj_textsec(abfd)->_raw_size)) abfd->flags |= EXEC_P; #endif /* MACH */ if (result) { #if 0 /* These should be set correctly anyways. */ abfd->sections = obj_textsec (abfd); obj_textsec (abfd)->next = obj_datasec (abfd); obj_datasec (abfd)->next = obj_bsssec (abfd); #endif } else { free (rawptr); abfd->tdata.aout_data = oldrawptr; } return result; } /* FUNCTION aout_@var{size}_mkobject SYNOPSIS boolean aout_@var{size}_mkobject, (bfd *abfd); DESCRIPTION Initialize BFD @var{abfd} for use with a.out files. */ boolean NAME(aout,mkobject) (abfd) bfd *abfd; { struct aout_data_struct *rawptr; bfd_set_error (bfd_error_system_call); /* Use an intermediate variable for clarity */ rawptr = (struct aout_data_struct *)bfd_zalloc (abfd, sizeof (struct aout_data_struct )); if (rawptr == NULL) { bfd_set_error (bfd_error_no_memory); return false; } abfd->tdata.aout_data = rawptr; exec_hdr (abfd) = &(rawptr->e); obj_textsec (abfd) = (asection *)NULL; obj_datasec (abfd) = (asection *)NULL; obj_bsssec (abfd) = (asection *)NULL; return true; } /* FUNCTION aout_@var{size}_machine_type SYNOPSIS enum machine_type aout_@var{size}_machine_type (enum bfd_architecture arch, unsigned long machine)); DESCRIPTION Keep track of machine architecture and machine type for a.out's. Return the <> for a particular architecture and machine, or <> if that exact architecture and machine can't be represented in a.out format. If the architecture is understood, machine type 0 (default) is always understood. */ enum machine_type NAME(aout,machine_type) (arch, machine, unknown) enum bfd_architecture arch; unsigned long machine; boolean *unknown; { enum machine_type arch_flags; arch_flags = M_UNKNOWN; *unknown = true; switch (arch) { case bfd_arch_sparc: if (machine == 0) arch_flags = M_SPARC; break; case bfd_arch_m68k: switch (machine) { case 0: arch_flags = M_68010; break; case 68000: arch_flags = M_UNKNOWN; *unknown = false; break; case 68010: arch_flags = M_68010; break; case 68020: arch_flags = M_68020; break; default: arch_flags = M_UNKNOWN; break; } break; case bfd_arch_i386: if (machine == 0) arch_flags = M_386; break; case bfd_arch_a29k: if (machine == 0) arch_flags = M_29K; break; case bfd_arch_mips: switch (machine) { case 0: case 2000: case 3000: arch_flags = M_MIPS1; break; case 4000: case 4400: case 6000: arch_flags = M_MIPS2; break; default: arch_flags = M_UNKNOWN; break; } break; case bfd_arch_ns32k: switch (machine) { case 0: arch_flags = M_NS32532; break; case 32032: arch_flags = M_NS32032; break; case 32532: arch_flags = M_NS32532; break; default: arch_flags = M_UNKNOWN; break; } break; default: arch_flags = M_UNKNOWN; } if (arch_flags != M_UNKNOWN) *unknown = false; return arch_flags; } /* FUNCTION aout_@var{size}_set_arch_mach SYNOPSIS boolean aout_@var{size}_set_arch_mach, (bfd *, enum bfd_architecture arch, unsigned long machine)); DESCRIPTION Set the architecture and the machine of the BFD @var{abfd} to the values @var{arch} and @var{machine}. Verify that @var{abfd}'s format can support the architecture required. */ boolean NAME(aout,set_arch_mach) (abfd, arch, machine) bfd *abfd; enum bfd_architecture arch; unsigned long machine; { if (! bfd_default_set_arch_mach (abfd, arch, machine)) return false; if (arch != bfd_arch_unknown) { boolean unknown; NAME(aout,machine_type) (arch, machine, &unknown); if (unknown) return false; } /* Determine the size of a relocation entry */ switch (arch) { case bfd_arch_sparc: case bfd_arch_a29k: case bfd_arch_mips: obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE; break; default: obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; break; } return (*aout_backend_info(abfd)->set_sizes) (abfd); } static void adjust_o_magic (abfd, execp) bfd *abfd; struct internal_exec *execp; { file_ptr pos = adata (abfd).exec_bytes_size; bfd_vma vma = 0; int pad = 0; /* Text. */ obj_textsec(abfd)->filepos = pos; pos += obj_textsec(abfd)->_raw_size; vma += obj_textsec(abfd)->_raw_size; /* Data. */ if (!obj_datasec(abfd)->user_set_vma) { #if 0 /* ?? Does alignment in the file image really matter? */ pad = align_power (vma, obj_datasec(abfd)->alignment_power) - vma; #endif obj_textsec(abfd)->_raw_size += pad; pos += pad; vma += pad; obj_datasec(abfd)->vma = vma; } obj_datasec(abfd)->filepos = pos; pos += obj_datasec(abfd)->_raw_size; vma += obj_datasec(abfd)->_raw_size; /* BSS. */ if (!obj_bsssec(abfd)->user_set_vma) { #if 0 pad = align_power (vma, obj_bsssec(abfd)->alignment_power) - vma; #endif obj_datasec(abfd)->_raw_size += pad; pos += pad; vma += pad; obj_bsssec(abfd)->vma = vma; } obj_bsssec(abfd)->filepos = pos; /* Fix up the exec header. */ execp->a_text = obj_textsec(abfd)->_raw_size; execp->a_data = obj_datasec(abfd)->_raw_size; execp->a_bss = obj_bsssec(abfd)->_raw_size; N_SET_MAGIC (*execp, OMAGIC); } static void adjust_z_magic (abfd, execp) bfd *abfd; struct internal_exec *execp; { bfd_size_type data_pad, text_pad; file_ptr text_end; CONST struct aout_backend_data *abdp; int ztih; /* Nonzero if text includes exec header. */ abdp = aout_backend_info (abfd); /* Text. */ ztih = (abdp != NULL && (abdp->text_includes_header || obj_aout_subformat (abfd) == q_magic_format)); obj_textsec(abfd)->filepos = (ztih ? adata(abfd).exec_bytes_size : adata(abfd).zmagic_disk_block_size); if (! obj_textsec(abfd)->user_set_vma) /* ?? Do we really need to check for relocs here? */ obj_textsec(abfd)->vma = ((abfd->flags & HAS_RELOC) ? 0 : (ztih ? (abdp->default_text_vma + adata(abfd).exec_bytes_size) : abdp->default_text_vma)); /* Could take strange alignment of text section into account here? */ /* Find start of data. */ if (ztih) { text_end = obj_textsec (abfd)->filepos + obj_textsec (abfd)->_raw_size; text_pad = BFD_ALIGN (text_end, adata (abfd).page_size) - text_end; } else { /* Note that if page_size == zmagic_disk_block_size, then filepos == page_size, and this case is the same as the ztih case. */ text_end = obj_textsec (abfd)->_raw_size; text_pad = BFD_ALIGN (text_end, adata (abfd).page_size) - text_end; text_end += obj_textsec (abfd)->filepos; } obj_textsec(abfd)->_raw_size += text_pad; text_end += text_pad; /* Data. */ if (!obj_datasec(abfd)->user_set_vma) { bfd_vma vma; vma = obj_textsec(abfd)->vma + obj_textsec(abfd)->_raw_size; obj_datasec(abfd)->vma = BFD_ALIGN (vma, adata(abfd).segment_size); } if (abdp && abdp->zmagic_mapped_contiguous) { text_pad = (obj_datasec(abfd)->vma - obj_textsec(abfd)->vma - obj_textsec(abfd)->_raw_size); obj_textsec(abfd)->_raw_size += text_pad; } obj_datasec(abfd)->filepos = (obj_textsec(abfd)->filepos + obj_textsec(abfd)->_raw_size); /* Fix up exec header while we're at it. */ execp->a_text = obj_textsec(abfd)->_raw_size; if (ztih && (!abdp || (abdp && !abdp->exec_header_not_counted))) execp->a_text += adata(abfd).exec_bytes_size; if (obj_aout_subformat (abfd) == q_magic_format) N_SET_MAGIC (*execp, QMAGIC); else N_SET_MAGIC (*execp, ZMAGIC); /* Spec says data section should be rounded up to page boundary. */ obj_datasec(abfd)->_raw_size = align_power (obj_datasec(abfd)->_raw_size, obj_bsssec(abfd)->alignment_power); execp->a_data = BFD_ALIGN (obj_datasec(abfd)->_raw_size, adata(abfd).page_size); data_pad = execp->a_data - obj_datasec(abfd)->_raw_size; /* BSS. */ if (!obj_bsssec(abfd)->user_set_vma) obj_bsssec(abfd)->vma = (obj_datasec(abfd)->vma + obj_datasec(abfd)->_raw_size); /* If the BSS immediately follows the data section and extra space in the page is left after the data section, fudge data in the header so that the bss section looks smaller by that amount. We'll start the bss section there, and lie to the OS. (Note that a linker script, as well as the above assignment, could have explicitly set the BSS vma to immediately follow the data section.) */ if (align_power (obj_bsssec(abfd)->vma, obj_bsssec(abfd)->alignment_power) == obj_datasec(abfd)->vma + obj_datasec(abfd)->_raw_size) execp->a_bss = (data_pad > obj_bsssec(abfd)->_raw_size) ? 0 : obj_bsssec(abfd)->_raw_size - data_pad; else execp->a_bss = obj_bsssec(abfd)->_raw_size; } static void adjust_n_magic (abfd, execp) bfd *abfd; struct internal_exec *execp; { file_ptr pos = adata(abfd).exec_bytes_size; bfd_vma vma = 0; int pad; /* Text. */ obj_textsec(abfd)->filepos = pos; if (!obj_textsec(abfd)->user_set_vma) obj_textsec(abfd)->vma = vma; else vma = obj_textsec(abfd)->vma; pos += obj_textsec(abfd)->_raw_size; vma += obj_textsec(abfd)->_raw_size; /* Data. */ obj_datasec(abfd)->filepos = pos; if (!obj_datasec(abfd)->user_set_vma) obj_datasec(abfd)->vma = BFD_ALIGN (vma, adata(abfd).segment_size); vma = obj_datasec(abfd)->vma; /* Since BSS follows data immediately, see if it needs alignment. */ vma += obj_datasec(abfd)->_raw_size; pad = align_power (vma, obj_bsssec(abfd)->alignment_power) - vma; obj_datasec(abfd)->_raw_size += pad; pos += obj_datasec(abfd)->_raw_size; /* BSS. */ if (!obj_bsssec(abfd)->user_set_vma) obj_bsssec(abfd)->vma = vma; else vma = obj_bsssec(abfd)->vma; /* Fix up exec header. */ execp->a_text = obj_textsec(abfd)->_raw_size; execp->a_data = obj_datasec(abfd)->_raw_size; execp->a_bss = obj_bsssec(abfd)->_raw_size; N_SET_MAGIC (*execp, NMAGIC); } boolean NAME(aout,adjust_sizes_and_vmas) (abfd, text_size, text_end) bfd *abfd; bfd_size_type *text_size; file_ptr *text_end; { struct internal_exec *execp = exec_hdr (abfd); if (! NAME(aout,make_sections) (abfd)) return false; if (adata(abfd).magic != undecided_magic) return true; obj_textsec(abfd)->_raw_size = align_power(obj_textsec(abfd)->_raw_size, obj_textsec(abfd)->alignment_power); *text_size = obj_textsec (abfd)->_raw_size; /* Rule (heuristic) for when to pad to a new page. Note that there are (at least) two ways demand-paged (ZMAGIC) files have been handled. Most Berkeley-based systems start the text segment at (PAGE_SIZE). However, newer versions of SUNOS start the text segment right after the exec header; the latter is counted in the text segment size, and is paged in by the kernel with the rest of the text. */ /* This perhaps isn't the right way to do this, but made it simpler for me to understand enough to implement it. Better would probably be to go right from BFD flags to alignment/positioning characteristics. But the old code was sloppy enough about handling the flags, and had enough other magic, that it was a little hard for me to understand. I think I understand it better now, but I haven't time to do the cleanup this minute. */ if (abfd->flags & D_PAGED) /* Whether or not WP_TEXT is set -- let D_PAGED override. */ adata(abfd).magic = z_magic; else if (abfd->flags & WP_TEXT) adata(abfd).magic = n_magic; else adata(abfd).magic = o_magic; #ifdef BFD_AOUT_DEBUG /* requires gcc2 */ #if __GNUC__ >= 2 fprintf (stderr, "%s text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x,%x>\n", ({ char *str; switch (adata(abfd).magic) { case n_magic: str = "NMAGIC"; break; case o_magic: str = "OMAGIC"; break; case z_magic: str = "ZMAGIC"; break; default: abort (); } str; }), obj_textsec(abfd)->vma, obj_textsec(abfd)->_raw_size, obj_textsec(abfd)->alignment_power, obj_datasec(abfd)->vma, obj_datasec(abfd)->_raw_size, obj_datasec(abfd)->alignment_power, obj_bsssec(abfd)->vma, obj_bsssec(abfd)->_raw_size, obj_bsssec(abfd)->alignment_power); #endif #endif switch (adata(abfd).magic) { case o_magic: adjust_o_magic (abfd, execp); break; case z_magic: adjust_z_magic (abfd, execp); break; case n_magic: adjust_n_magic (abfd, execp); break; default: abort (); } #ifdef BFD_AOUT_DEBUG fprintf (stderr, " text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x>\n", obj_textsec(abfd)->vma, obj_textsec(abfd)->_raw_size, obj_textsec(abfd)->filepos, obj_datasec(abfd)->vma, obj_datasec(abfd)->_raw_size, obj_datasec(abfd)->filepos, obj_bsssec(abfd)->vma, obj_bsssec(abfd)->_raw_size); #endif return true; } /* FUNCTION aout_@var{size}_new_section_hook SYNOPSIS boolean aout_@var{size}_new_section_hook, (bfd *abfd, asection *newsect)); DESCRIPTION Called by the BFD in response to a @code{bfd_make_section} request. */ boolean NAME(aout,new_section_hook) (abfd, newsect) bfd *abfd; asection *newsect; { /* align to double at least */ newsect->alignment_power = bfd_get_arch_info(abfd)->section_align_power; if (bfd_get_format (abfd) == bfd_object) { if (obj_textsec(abfd) == NULL && !strcmp(newsect->name, ".text")) { obj_textsec(abfd)= newsect; newsect->target_index = N_TEXT; return true; } if (obj_datasec(abfd) == NULL && !strcmp(newsect->name, ".data")) { obj_datasec(abfd) = newsect; newsect->target_index = N_DATA; return true; } if (obj_bsssec(abfd) == NULL && !strcmp(newsect->name, ".bss")) { obj_bsssec(abfd) = newsect; newsect->target_index = N_BSS; return true; } } /* We allow more than three sections internally */ return true; } boolean NAME(aout,set_section_contents) (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { file_ptr text_end; bfd_size_type text_size; if (abfd->output_has_begun == false) { if (NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end) == false) return false; } /* regardless, once we know what we're doing, we might as well get going */ if (section != obj_bsssec(abfd)) { if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0) return false; if (count) { return (bfd_write ((PTR)location, 1, count, abfd) == count) ? true : false; } return true; } return true; } /* Read the external symbols from an a.out file. */ static boolean aout_get_external_symbols (abfd) bfd *abfd; { if (obj_aout_external_syms (abfd) == (struct external_nlist *) NULL) { bfd_size_type count; struct external_nlist *syms; count = exec_hdr (abfd)->a_syms / EXTERNAL_NLIST_SIZE; /* We allocate using malloc to make the values easy to free later on. If we put them on the obstack it might not be possible to free them. */ syms = ((struct external_nlist *) malloc ((size_t) count * EXTERNAL_NLIST_SIZE)); if (syms == (struct external_nlist *) NULL && count != 0) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0 || (bfd_read (syms, 1, exec_hdr (abfd)->a_syms, abfd) != exec_hdr (abfd)->a_syms)) { free (syms); return false; } obj_aout_external_syms (abfd) = syms; obj_aout_external_sym_count (abfd) = count; } if (obj_aout_external_strings (abfd) == NULL && exec_hdr (abfd)->a_syms != 0) { unsigned char string_chars[BYTES_IN_WORD]; bfd_size_type stringsize; char *strings; /* Get the size of the strings. */ if (bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET) != 0 || (bfd_read ((PTR) string_chars, BYTES_IN_WORD, 1, abfd) != BYTES_IN_WORD)) return false; stringsize = GET_WORD (abfd, string_chars); strings = (char *) malloc ((size_t) stringsize + 1); if (strings == NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* Skip space for the string count in the buffer for convenience when using indexes. */ if (bfd_read (strings + BYTES_IN_WORD, 1, stringsize - BYTES_IN_WORD, abfd) != stringsize - BYTES_IN_WORD) { free (strings); return false; } /* Sanity preservation. */ strings[stringsize] = '\0'; obj_aout_external_strings (abfd) = strings; obj_aout_external_string_size (abfd) = stringsize; } return true; } /* Translate an a.out symbol into a BFD symbol. The desc, other, type and symbol->value fields of CACHE_PTR will be set from the a.out nlist structure. This function is responsible for setting symbol->flags and symbol->section, and adjusting symbol->value. */ static boolean translate_from_native_sym_flags (abfd, cache_ptr) bfd *abfd; aout_symbol_type *cache_ptr; { flagword visible; if ((cache_ptr->type & N_STAB) != 0 || cache_ptr->type == N_FN) { asection *sec; /* This is a debugging symbol. */ cache_ptr->symbol.flags = BSF_DEBUGGING; /* Work out the symbol section. */ switch (cache_ptr->type & N_TYPE) { case N_TEXT: case N_FN: sec = obj_textsec (abfd); break; case N_DATA: sec = obj_datasec (abfd); break; case N_BSS: sec = obj_bsssec (abfd); break; default: case N_ABS: sec = bfd_abs_section_ptr; break; } cache_ptr->symbol.section = sec; cache_ptr->symbol.value -= sec->vma; return true; } /* Get the default visibility. This does not apply to all types, so we just hold it in a local variable to use if wanted. */ if ((cache_ptr->type & N_EXT) == 0) visible = BSF_LOCAL; else visible = BSF_GLOBAL; switch (cache_ptr->type) { default: case N_ABS: case N_ABS | N_EXT: cache_ptr->symbol.section = bfd_abs_section_ptr; cache_ptr->symbol.flags = visible; break; case N_UNDF | N_EXT: if (cache_ptr->symbol.value != 0) { /* This is a common symbol. */ cache_ptr->symbol.flags = BSF_GLOBAL; cache_ptr->symbol.section = bfd_com_section_ptr; } else { cache_ptr->symbol.flags = 0; cache_ptr->symbol.section = bfd_und_section_ptr; } break; case N_TEXT: case N_TEXT | N_EXT: cache_ptr->symbol.section = obj_textsec (abfd); cache_ptr->symbol.value -= cache_ptr->symbol.section->vma; cache_ptr->symbol.flags = visible; break; /* N_SETV symbols used to represent set vectors placed in the data section. They are no longer generated. Theoretically, it was possible to extract the entries and combine them with new ones, although I don't know if that was ever actually done. Unless that feature is restored, treat them as data symbols. */ case N_SETV: case N_SETV | N_EXT: case N_DATA: case N_DATA | N_EXT: cache_ptr->symbol.section = obj_datasec (abfd); cache_ptr->symbol.value -= cache_ptr->symbol.section->vma; cache_ptr->symbol.flags = visible; break; case N_BSS: case N_BSS | N_EXT: cache_ptr->symbol.section = obj_bsssec (abfd); cache_ptr->symbol.value -= cache_ptr->symbol.section->vma; cache_ptr->symbol.flags = visible; break; case N_SETA: case N_SETA | N_EXT: case N_SETT: case N_SETT | N_EXT: case N_SETD: case N_SETD | N_EXT: case N_SETB: case N_SETB | N_EXT: { asection *section; arelent_chain *reloc; asection *into_section; /* This is a set symbol. The name of the symbol is the name of the set (e.g., __CTOR_LIST__). The value of the symbol is the value to add to the set. We create a section with the same name as the symbol, and add a reloc to insert the appropriate value into the section. This action is actually obsolete; it used to make the linker do the right thing, but the linker no longer uses this function. */ section = bfd_get_section_by_name (abfd, cache_ptr->symbol.name); if (section == NULL) { char *copy; copy = bfd_alloc (abfd, strlen (cache_ptr->symbol.name) + 1); if (copy == NULL) { bfd_set_error (bfd_error_no_memory); return false; } strcpy (copy, cache_ptr->symbol.name); section = bfd_make_section (abfd, copy); if (section == NULL) return false; } reloc = (arelent_chain *) bfd_alloc (abfd, sizeof (arelent_chain)); if (reloc == NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* Build a relocation entry for the constructor. */ switch (cache_ptr->type & N_TYPE) { case N_SETA: into_section = bfd_abs_section_ptr; cache_ptr->type = N_ABS; break; case N_SETT: into_section = obj_textsec (abfd); cache_ptr->type = N_TEXT; break; case N_SETD: into_section = obj_datasec (abfd); cache_ptr->type = N_DATA; break; case N_SETB: into_section = obj_bsssec (abfd); cache_ptr->type = N_BSS; break; } /* Build a relocation pointing into the constructor section pointing at the symbol in the set vector specified. */ reloc->relent.addend = cache_ptr->symbol.value; cache_ptr->symbol.section = into_section; reloc->relent.sym_ptr_ptr = into_section->symbol_ptr_ptr; /* We modify the symbol to belong to a section depending upon the name of the symbol, and add to the size of the section to contain a pointer to the symbol. Build a reloc entry to relocate to this symbol attached to this section. */ section->flags = SEC_CONSTRUCTOR | SEC_RELOC; section->reloc_count++; section->alignment_power = 2; reloc->next = section->constructor_chain; section->constructor_chain = reloc; reloc->relent.address = section->_raw_size; section->_raw_size += BYTES_IN_WORD; reloc->relent.howto = CTOR_TABLE_RELOC_HOWTO(abfd); cache_ptr->symbol.flags |= BSF_CONSTRUCTOR; } break; case N_WARNING: /* This symbol is the text of a warning message. The next symbol is the symbol to associate the warning with. If a reference is made to that symbol, a warning is issued. */ cache_ptr->symbol.flags = BSF_DEBUGGING | BSF_WARNING; /* @@ Stuffing pointers into integers is a no-no. We can usually get away with it if the integer is large enough though. */ if (sizeof (cache_ptr + 1) > sizeof (bfd_vma)) abort (); cache_ptr->symbol.value = (bfd_vma) (cache_ptr + 1); cache_ptr->symbol.section = bfd_abs_section_ptr; break; case N_INDR: case N_INDR | N_EXT: /* An indirect symbol. This consists of two symbols in a row. The first symbol is the name of the indirection. The second symbol is the name of the target. A reference to the first symbol becomes a reference to the second. */ cache_ptr->symbol.flags = BSF_DEBUGGING | BSF_INDIRECT | visible; /* @@ Stuffing pointers into integers is a no-no. We can usually get away with it if the integer is large enough though. */ if (sizeof (cache_ptr + 1) > sizeof (bfd_vma)) abort (); cache_ptr->symbol.value = (bfd_vma) (cache_ptr + 1); cache_ptr->symbol.section = bfd_ind_section_ptr; break; case N_WEAKU: cache_ptr->symbol.section = bfd_und_section_ptr; cache_ptr->symbol.flags = BSF_WEAK; break; case N_WEAKA: cache_ptr->symbol.section = bfd_abs_section_ptr; cache_ptr->symbol.flags = BSF_WEAK; break; case N_WEAKT: cache_ptr->symbol.section = obj_textsec (abfd); cache_ptr->symbol.value -= cache_ptr->symbol.section->vma; cache_ptr->symbol.flags = BSF_WEAK; break; case N_WEAKD: cache_ptr->symbol.section = obj_datasec (abfd); cache_ptr->symbol.value -= cache_ptr->symbol.section->vma; cache_ptr->symbol.flags = BSF_WEAK; break; case N_WEAKB: cache_ptr->symbol.section = obj_bsssec (abfd); cache_ptr->symbol.value -= cache_ptr->symbol.section->vma; cache_ptr->symbol.flags = BSF_WEAK; break; } return true; } /* Set the fields of SYM_POINTER according to CACHE_PTR. */ static boolean translate_to_native_sym_flags (abfd, cache_ptr, sym_pointer) bfd *abfd; asymbol *cache_ptr; struct external_nlist *sym_pointer; { bfd_vma value = cache_ptr->value; /* Mask out any existing type bits in case copying from one section to another. */ sym_pointer->e_type[0] &= ~N_TYPE; if (bfd_is_abs_section (bfd_get_section (cache_ptr))) sym_pointer->e_type[0] |= N_ABS; else if (bfd_get_section (cache_ptr) == obj_textsec (abfd) || (bfd_get_section (cache_ptr)->output_section == obj_textsec (abfd))) sym_pointer->e_type[0] |= N_TEXT; else if (bfd_get_section (cache_ptr) == obj_datasec (abfd) || (bfd_get_section (cache_ptr)->output_section == obj_datasec (abfd))) sym_pointer->e_type[0] |= N_DATA; else if (bfd_get_section (cache_ptr) == obj_bsssec (abfd) || (bfd_get_section (cache_ptr)->output_section == obj_bsssec (abfd))) sym_pointer->e_type[0] |= N_BSS; else if (bfd_get_section (cache_ptr) == NULL) { /* Protect the bfd_is_com_section call. This case occurs, e.g., for the *DEBUG* section of a COFF file. */ bfd_set_error (bfd_error_nonrepresentable_section); return false; } else if (bfd_is_und_section (bfd_get_section (cache_ptr))) sym_pointer->e_type[0] = N_UNDF | N_EXT; else if (bfd_is_ind_section (bfd_get_section (cache_ptr))) sym_pointer->e_type[0] = N_INDR; else if (bfd_is_com_section (bfd_get_section (cache_ptr))) sym_pointer->e_type[0] = N_UNDF | N_EXT; else { bfd_set_error (bfd_error_nonrepresentable_section); return false; } /* Turn the symbol from section relative to absolute again */ value += cache_ptr->section->vma; if ((cache_ptr->flags & BSF_WARNING) != 0) sym_pointer->e_type[0] = N_WARNING; if ((cache_ptr->flags & BSF_DEBUGGING) != 0) sym_pointer->e_type[0] = ((aout_symbol_type *) cache_ptr)->type; else if ((cache_ptr->flags & BSF_GLOBAL) != 0) sym_pointer->e_type[0] |= N_EXT; if ((cache_ptr->flags & BSF_CONSTRUCTOR) != 0) { int type = ((aout_symbol_type *) cache_ptr)->type; switch (type) { case N_ABS: type = N_SETA; break; case N_TEXT: type = N_SETT; break; case N_DATA: type = N_SETD; break; case N_BSS: type = N_SETB; break; } sym_pointer->e_type[0] = type; } if ((cache_ptr->flags & BSF_WEAK) != 0) { int type; switch (sym_pointer->e_type[0] & N_TYPE) { default: case N_ABS: type = N_WEAKA; break; case N_TEXT: type = N_WEAKT; break; case N_DATA: type = N_WEAKD; break; case N_BSS: type = N_WEAKB; break; case N_UNDF: type = N_WEAKU; break; } sym_pointer->e_type[0] = type; } PUT_WORD(abfd, value, sym_pointer->e_value); return true; } /* Native-level interface to symbols. */ asymbol * NAME(aout,make_empty_symbol) (abfd) bfd *abfd; { aout_symbol_type *new = (aout_symbol_type *)bfd_zalloc (abfd, sizeof (aout_symbol_type)); if (!new) { bfd_set_error (bfd_error_no_memory); return NULL; } new->symbol.the_bfd = abfd; return &new->symbol; } /* Translate a set of internal symbols into external symbols. */ boolean NAME(aout,translate_symbol_table) (abfd, in, ext, count, str, strsize, dynamic) bfd *abfd; aout_symbol_type *in; struct external_nlist *ext; bfd_size_type count; char *str; bfd_size_type strsize; boolean dynamic; { struct external_nlist *ext_end; ext_end = ext + count; for (; ext < ext_end; ext++, in++) { bfd_vma x; x = GET_WORD (abfd, ext->e_strx); in->symbol.the_bfd = abfd; /* For the normal symbols, the zero index points at the number of bytes in the string table but is to be interpreted as the null string. For the dynamic symbols, the number of bytes in the string table is stored in the __DYNAMIC structure and the zero index points at an actual string. */ if (x == 0 && ! dynamic) in->symbol.name = ""; else if (x < strsize) in->symbol.name = str + x; else return false; in->symbol.value = GET_SWORD (abfd, ext->e_value); in->desc = bfd_h_get_16 (abfd, ext->e_desc); in->other = bfd_h_get_8 (abfd, ext->e_other); in->type = bfd_h_get_8 (abfd, ext->e_type); in->symbol.udata = 0; if (! translate_from_native_sym_flags (abfd, in)) return false; if (dynamic) in->symbol.flags |= BSF_DYNAMIC; } return true; } /* We read the symbols into a buffer, which is discarded when this function exits. We read the strings into a buffer large enough to hold them all plus all the cached symbol entries. */ boolean NAME(aout,slurp_symbol_table) (abfd) bfd *abfd; { struct external_nlist *old_external_syms; aout_symbol_type *cached; size_t cached_size; /* If there's no work to be done, don't do any */ if (obj_aout_symbols (abfd) != (aout_symbol_type *) NULL) return true; old_external_syms = obj_aout_external_syms (abfd); if (! aout_get_external_symbols (abfd)) return false; if (obj_aout_external_sym_count (abfd) == 0) { bfd_set_error (bfd_error_no_symbols); return false; } cached_size = (obj_aout_external_sym_count (abfd) * sizeof (aout_symbol_type)); cached = (aout_symbol_type *) malloc (cached_size); if (cached == NULL) { bfd_set_error (bfd_error_no_memory); return false; } memset (cached, 0, cached_size); /* Convert from external symbol information to internal. */ if (! (NAME(aout,translate_symbol_table) (abfd, cached, obj_aout_external_syms (abfd), obj_aout_external_sym_count (abfd), obj_aout_external_strings (abfd), obj_aout_external_string_size (abfd), false))) { free (cached); return false; } bfd_get_symcount (abfd) = obj_aout_external_sym_count (abfd); obj_aout_symbols (abfd) = cached; /* It is very likely that anybody who calls this function will not want the external symbol information, so if it was allocated because of our call to aout_get_external_symbols, we free it up right away to save space. */ if (old_external_syms == (struct external_nlist *) NULL && obj_aout_external_syms (abfd) != (struct external_nlist *) NULL) { free (obj_aout_external_syms (abfd)); obj_aout_external_syms (abfd) = NULL; } return true; } /* We use a hash table when writing out symbols so that we only write out a particular string once. This helps particularly when the linker writes out stabs debugging entries, because each different contributing object file tends to have many duplicate stabs strings. Possible improvements: + look for strings matching trailing substrings of other strings + better data structures? balanced trees? + look at reducing memory use elsewhere -- maybe if we didn't have to construct the entire symbol table at once, we could get by with smaller amounts of VM? (What effect does that have on the string table reductions?) This hash table code breaks dbx on SunOS 4.1.3, so we don't do it if BFD_TRADITIONAL_FORMAT is set. */ /* An entry in the strtab hash table. */ struct strtab_hash_entry { struct bfd_hash_entry root; /* Index in string table. */ bfd_size_type index; /* Next string in strtab. */ struct strtab_hash_entry *next; }; /* The strtab hash table. */ struct strtab_hash { struct bfd_hash_table table; /* Size of strtab--also next available index. */ bfd_size_type size; /* First string in strtab. */ struct strtab_hash_entry *first; /* Last string in strtab. */ struct strtab_hash_entry *last; }; static struct bfd_hash_entry *strtab_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); static boolean stringtab_init PARAMS ((struct strtab_hash *)); static bfd_size_type add_to_stringtab PARAMS ((bfd *, struct strtab_hash *, const char *, boolean)); static boolean emit_stringtab PARAMS ((bfd *, struct strtab_hash *)); /* Routine to create an entry in a strtab. */ static struct bfd_hash_entry * strtab_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct strtab_hash_entry *ret = (struct strtab_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct strtab_hash_entry *) NULL) ret = ((struct strtab_hash_entry *) bfd_hash_allocate (table, sizeof (struct strtab_hash_entry))); if (ret == (struct strtab_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Call the allocation method of the superclass. */ ret = ((struct strtab_hash_entry *) bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret) { /* Initialize the local fields. */ ret->index = (bfd_size_type) -1; ret->next = NULL; } return (struct bfd_hash_entry *) ret; } /* Look up an entry in an strtab. */ #define strtab_hash_lookup(t, string, create, copy) \ ((struct strtab_hash_entry *) \ bfd_hash_lookup (&(t)->table, (string), (create), (copy))) /* Create a new strtab. */ static boolean stringtab_init (table) struct strtab_hash *table; { if (! bfd_hash_table_init (&table->table, strtab_hash_newfunc)) return false; /* Leave space for the size of the string table. */ table->size = BYTES_IN_WORD; table->first = NULL; table->last = NULL; return true; } /* Free a strtab. */ #define stringtab_free(tab) bfd_hash_table_free (&(tab)->table) /* Get the index of a string in a strtab, adding it if it is not already present. If HASH is false, we don't really use the hash table, and we don't eliminate duplicate strings. */ static INLINE bfd_size_type add_to_stringtab (abfd, tab, str, copy) bfd *abfd; struct strtab_hash *tab; const char *str; boolean copy; { register struct strtab_hash_entry *entry; /* An index of 0 always means the empty string. */ if (*str == '\0') return 0; if ((abfd->flags & BFD_TRADITIONAL_FORMAT) == 0) { entry = strtab_hash_lookup (tab, str, true, copy); if (entry == NULL) return (bfd_size_type) -1; } else { entry = ((struct strtab_hash_entry *) bfd_hash_allocate (&tab->table, sizeof (struct strtab_hash_entry))); if (entry == NULL) return (bfd_size_type) -1; if (! copy) entry->root.string = str; else { char *n; n = (char *) bfd_hash_allocate (&tab->table, strlen (str) + 1); if (n == NULL) return (bfd_size_type) -1; entry->root.string = n; } entry->index = (bfd_size_type) -1; entry->next = NULL; } if (entry->index == (bfd_size_type) -1) { entry->index = tab->size; tab->size += strlen (str) + 1; if (tab->first == NULL) tab->first = entry; else tab->last->next = entry; tab->last = entry; } return entry->index; } /* Write out a strtab. ABFD is already at the right location in the file. */ static boolean emit_stringtab (abfd, tab) register bfd *abfd; struct strtab_hash *tab; { bfd_byte buffer[BYTES_IN_WORD]; register struct strtab_hash_entry *entry; PUT_WORD (abfd, tab->size, buffer); if (bfd_write ((PTR) buffer, 1, BYTES_IN_WORD, abfd) != BYTES_IN_WORD) return false; for (entry = tab->first; entry != NULL; entry = entry->next) { register const char *str; register size_t len; str = entry->root.string; len = strlen (str) + 1; if (bfd_write ((PTR) str, 1, len, abfd) != len) return false; } return true; } boolean NAME(aout,write_syms) (abfd) bfd *abfd; { unsigned int count ; asymbol **generic = bfd_get_outsymbols (abfd); struct strtab_hash strtab; if (! stringtab_init (&strtab)) return false; for (count = 0; count < bfd_get_symcount (abfd); count++) { asymbol *g = generic[count]; bfd_size_type indx; struct external_nlist nsp; indx = add_to_stringtab (abfd, &strtab, g->name, false); if (indx == (bfd_size_type) -1) goto error_return; PUT_WORD (abfd, indx, (bfd_byte *) nsp.e_strx); if (bfd_asymbol_flavour(g) == abfd->xvec->flavour) { bfd_h_put_16(abfd, aout_symbol(g)->desc, nsp.e_desc); bfd_h_put_8(abfd, aout_symbol(g)->other, nsp.e_other); bfd_h_put_8(abfd, aout_symbol(g)->type, nsp.e_type); } else { bfd_h_put_16(abfd,0, nsp.e_desc); bfd_h_put_8(abfd, 0, nsp.e_other); bfd_h_put_8(abfd, 0, nsp.e_type); } if (! translate_to_native_sym_flags (abfd, g, &nsp)) goto error_return; if (bfd_write((PTR)&nsp,1,EXTERNAL_NLIST_SIZE, abfd) != EXTERNAL_NLIST_SIZE) goto error_return; /* NB: `KEEPIT' currently overlays `flags', so set this only here, at the end. */ g->KEEPIT = count; } if (! emit_stringtab (abfd, &strtab)) goto error_return; stringtab_free (&strtab); return true; error_return: stringtab_free (&strtab); return false; } long NAME(aout,get_symtab) (abfd, location) bfd *abfd; asymbol **location; { unsigned int counter = 0; aout_symbol_type *symbase; if (!NAME(aout,slurp_symbol_table)(abfd)) return -1; for (symbase = obj_aout_symbols(abfd); counter++ < bfd_get_symcount (abfd);) *(location++) = (asymbol *)( symbase++); *location++ =0; return bfd_get_symcount (abfd); } /* Standard reloc stuff */ /* Output standard relocation information to a file in target byte order. */ void NAME(aout,swap_std_reloc_out) (abfd, g, natptr) bfd *abfd; arelent *g; struct reloc_std_external *natptr; { int r_index; asymbol *sym = *(g->sym_ptr_ptr); int r_extern; unsigned int r_length; int r_pcrel; int r_baserel, r_jmptable, r_relative; asection *output_section = sym->section->output_section; PUT_WORD(abfd, g->address, natptr->r_address); r_length = g->howto->size ; /* Size as a power of two */ r_pcrel = (int) g->howto->pc_relative; /* Relative to PC? */ /* XXX This relies on relocs coming from a.out files. */ r_baserel = (g->howto->type & 8) != 0; r_jmptable = (g->howto->type & 16) != 0; r_relative = (g->howto->type & 32) != 0; #if 0 /* For a standard reloc, the addend is in the object file. */ r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma; #endif /* name was clobbered by aout_write_syms to be symbol index */ /* If this relocation is relative to a symbol then set the r_index to the symbols index, and the r_extern bit. Absolute symbols can come in in two ways, either as an offset from the abs section, or as a symbol which has an abs value. check for that here */ if (bfd_is_com_section (output_section) || bfd_is_abs_section (output_section) || bfd_is_und_section (output_section)) { if (bfd_abs_section_ptr->symbol == sym) { /* Whoops, looked like an abs symbol, but is really an offset from the abs section */ r_index = 0; r_extern = 0; } else { /* Fill in symbol */ r_extern = 1; r_index = stoi((*(g->sym_ptr_ptr))->KEEPIT); } } else { /* Just an ordinary section */ r_extern = 0; r_index = output_section->target_index; } /* now the fun stuff */ if (abfd->xvec->header_byteorder_big_p != false) { natptr->r_index[0] = r_index >> 16; natptr->r_index[1] = r_index >> 8; natptr->r_index[2] = r_index; natptr->r_type[0] = (r_extern? RELOC_STD_BITS_EXTERN_BIG: 0) | (r_pcrel? RELOC_STD_BITS_PCREL_BIG: 0) | (r_baserel? RELOC_STD_BITS_BASEREL_BIG: 0) | (r_jmptable? RELOC_STD_BITS_JMPTABLE_BIG: 0) | (r_relative? RELOC_STD_BITS_RELATIVE_BIG: 0) | (r_length << RELOC_STD_BITS_LENGTH_SH_BIG); } else { natptr->r_index[2] = r_index >> 16; natptr->r_index[1] = r_index >> 8; natptr->r_index[0] = r_index; natptr->r_type[0] = (r_extern? RELOC_STD_BITS_EXTERN_LITTLE: 0) | (r_pcrel? RELOC_STD_BITS_PCREL_LITTLE: 0) | (r_baserel? RELOC_STD_BITS_BASEREL_LITTLE: 0) | (r_jmptable? RELOC_STD_BITS_JMPTABLE_LITTLE: 0) | (r_relative? RELOC_STD_BITS_RELATIVE_LITTLE: 0) | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE); } } /* Extended stuff */ /* Output extended relocation information to a file in target byte order. */ void NAME(aout,swap_ext_reloc_out) (abfd, g, natptr) bfd *abfd; arelent *g; register struct reloc_ext_external *natptr; { int r_index; int r_extern; unsigned int r_type; unsigned int r_addend; asymbol *sym = *(g->sym_ptr_ptr); asection *output_section = sym->section->output_section; PUT_WORD (abfd, g->address, natptr->r_address); r_type = (unsigned int) g->howto->type; r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma; /* If this relocation is relative to a symbol then set the r_index to the symbols index, and the r_extern bit. Absolute symbols can come in in two ways, either as an offset from the abs section, or as a symbol which has an abs value. check for that here. */ if (bfd_is_com_section (output_section) || bfd_is_abs_section (output_section) || bfd_is_und_section (output_section)) { if (bfd_abs_section_ptr->symbol == sym) { /* Whoops, looked like an abs symbol, but is really an offset from the abs section */ r_index = 0; r_extern = 0; } else { r_extern = 1; r_index = stoi((*(g->sym_ptr_ptr))->KEEPIT); } } else { /* Just an ordinary section */ r_extern = 0; r_index = output_section->target_index; } /* now the fun stuff */ if (abfd->xvec->header_byteorder_big_p != false) { natptr->r_index[0] = r_index >> 16; natptr->r_index[1] = r_index >> 8; natptr->r_index[2] = r_index; natptr->r_type[0] = ((r_extern? RELOC_EXT_BITS_EXTERN_BIG: 0) | (r_type << RELOC_EXT_BITS_TYPE_SH_BIG)); } else { natptr->r_index[2] = r_index >> 16; natptr->r_index[1] = r_index >> 8; natptr->r_index[0] = r_index; natptr->r_type[0] = (r_extern? RELOC_EXT_BITS_EXTERN_LITTLE: 0) | (r_type << RELOC_EXT_BITS_TYPE_SH_LITTLE); } PUT_WORD (abfd, r_addend, natptr->r_addend); } /* BFD deals internally with all things based from the section they're in. so, something in 10 bytes into a text section with a base of 50 would have a symbol (.text+10) and know .text vma was 50. Aout keeps all it's symbols based from zero, so the symbol would contain 60. This macro subs the base of each section from the value to give the true offset from the section */ #define MOVE_ADDRESS(ad) \ if (r_extern) { \ /* undefined symbol */ \ cache_ptr->sym_ptr_ptr = symbols + r_index; \ cache_ptr->addend = ad; \ } else { \ /* defined, section relative. replace symbol with pointer to \ symbol which points to section */ \ switch (r_index) { \ case N_TEXT: \ case N_TEXT | N_EXT: \ cache_ptr->sym_ptr_ptr = obj_textsec(abfd)->symbol_ptr_ptr; \ cache_ptr->addend = ad - su->textsec->vma; \ break; \ case N_DATA: \ case N_DATA | N_EXT: \ cache_ptr->sym_ptr_ptr = obj_datasec(abfd)->symbol_ptr_ptr; \ cache_ptr->addend = ad - su->datasec->vma; \ break; \ case N_BSS: \ case N_BSS | N_EXT: \ cache_ptr->sym_ptr_ptr = obj_bsssec(abfd)->symbol_ptr_ptr; \ cache_ptr->addend = ad - su->bsssec->vma; \ break; \ default: \ case N_ABS: \ case N_ABS | N_EXT: \ cache_ptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; \ cache_ptr->addend = ad; \ break; \ } \ } \ void NAME(aout,swap_ext_reloc_in) (abfd, bytes, cache_ptr, symbols) bfd *abfd; struct reloc_ext_external *bytes; arelent *cache_ptr; asymbol **symbols; { int r_index; int r_extern; unsigned int r_type; struct aoutdata *su = &(abfd->tdata.aout_data->a); cache_ptr->address = (GET_SWORD (abfd, bytes->r_address)); /* now the fun stuff */ if (abfd->xvec->header_byteorder_big_p != false) { r_index = (bytes->r_index[0] << 16) | (bytes->r_index[1] << 8) | bytes->r_index[2]; r_extern = (0 != (bytes->r_type[0] & RELOC_EXT_BITS_EXTERN_BIG)); r_type = (bytes->r_type[0] & RELOC_EXT_BITS_TYPE_BIG) >> RELOC_EXT_BITS_TYPE_SH_BIG; } else { r_index = (bytes->r_index[2] << 16) | (bytes->r_index[1] << 8) | bytes->r_index[0]; r_extern = (0 != (bytes->r_type[0] & RELOC_EXT_BITS_EXTERN_LITTLE)); r_type = (bytes->r_type[0] & RELOC_EXT_BITS_TYPE_LITTLE) >> RELOC_EXT_BITS_TYPE_SH_LITTLE; } cache_ptr->howto = howto_table_ext + r_type; MOVE_ADDRESS(GET_SWORD(abfd, bytes->r_addend)); } void NAME(aout,swap_std_reloc_in) (abfd, bytes, cache_ptr, symbols) bfd *abfd; struct reloc_std_external *bytes; arelent *cache_ptr; asymbol **symbols; { int r_index; int r_extern; unsigned int r_length; int r_pcrel; int r_baserel, r_jmptable, r_relative; struct aoutdata *su = &(abfd->tdata.aout_data->a); int howto_idx; cache_ptr->address = bfd_h_get_32 (abfd, bytes->r_address); /* now the fun stuff */ if (abfd->xvec->header_byteorder_big_p != false) { r_index = (bytes->r_index[0] << 16) | (bytes->r_index[1] << 8) | bytes->r_index[2]; r_extern = (0 != (bytes->r_type[0] & RELOC_STD_BITS_EXTERN_BIG)); r_pcrel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_PCREL_BIG)); r_baserel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_BASEREL_BIG)); r_jmptable= (0 != (bytes->r_type[0] & RELOC_STD_BITS_JMPTABLE_BIG)); r_relative= (0 != (bytes->r_type[0] & RELOC_STD_BITS_RELATIVE_BIG)); r_length = (bytes->r_type[0] & RELOC_STD_BITS_LENGTH_BIG) >> RELOC_STD_BITS_LENGTH_SH_BIG; } else { r_index = (bytes->r_index[2] << 16) | (bytes->r_index[1] << 8) | bytes->r_index[0]; r_extern = (0 != (bytes->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE)); r_pcrel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE)); r_baserel = (0 != (bytes->r_type[0] & RELOC_STD_BITS_BASEREL_LITTLE)); r_jmptable= (0 != (bytes->r_type[0] & RELOC_STD_BITS_JMPTABLE_LITTLE)); r_relative= (0 != (bytes->r_type[0] & RELOC_STD_BITS_RELATIVE_LITTLE)); r_length = (bytes->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE) >> RELOC_STD_BITS_LENGTH_SH_LITTLE; } howto_idx = r_length + 4 * r_pcrel + 8 * r_baserel + 16 * r_jmptable + 32 * r_relative; BFD_ASSERT (howto_idx < TABLE_SIZE (howto_table_std)); cache_ptr->howto = howto_table_std + howto_idx; BFD_ASSERT (cache_ptr->howto->type != -1); MOVE_ADDRESS(0); } /* Read and swap the relocs for a section. */ boolean NAME(aout,slurp_reloc_table) (abfd, asect, symbols) bfd *abfd; sec_ptr asect; asymbol **symbols; { unsigned int count; bfd_size_type reloc_size; PTR relocs; arelent *reloc_cache; size_t each_size; unsigned int counter = 0; arelent *cache_ptr; if (asect->relocation) return true; if (asect->flags & SEC_CONSTRUCTOR) return true; if (asect == obj_datasec (abfd)) reloc_size = exec_hdr(abfd)->a_drsize; else if (asect == obj_textsec (abfd)) reloc_size = exec_hdr(abfd)->a_trsize; else if (asect == obj_bsssec (abfd)) reloc_size = 0; else { bfd_set_error (bfd_error_invalid_operation); return false; } if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0) return false; each_size = obj_reloc_entry_size (abfd); count = reloc_size / each_size; reloc_cache = (arelent *) malloc ((size_t) (count * sizeof (arelent))); if (reloc_cache == NULL && count != 0) { bfd_set_error (bfd_error_no_memory); return false; } memset (reloc_cache, 0, count * sizeof (arelent)); relocs = malloc (reloc_size); if (relocs == NULL && reloc_size != 0) { free (reloc_cache); bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read (relocs, 1, reloc_size, abfd) != reloc_size) { free (relocs); free (reloc_cache); return false; } cache_ptr = reloc_cache; if (each_size == RELOC_EXT_SIZE) { register struct reloc_ext_external *rptr = (struct reloc_ext_external *) relocs; for (; counter < count; counter++, rptr++, cache_ptr++) NAME(aout,swap_ext_reloc_in) (abfd, rptr, cache_ptr, symbols); } else { register struct reloc_std_external *rptr = (struct reloc_std_external *) relocs; for (; counter < count; counter++, rptr++, cache_ptr++) MY_swap_std_reloc_in(abfd, rptr, cache_ptr, symbols); } free (relocs); asect->relocation = reloc_cache; asect->reloc_count = cache_ptr - reloc_cache; return true; } /* Write out a relocation section into an object file. */ boolean NAME(aout,squirt_out_relocs) (abfd, section) bfd *abfd; asection *section; { arelent **generic; unsigned char *native, *natptr; size_t each_size; unsigned int count = section->reloc_count; size_t natsize; if (count == 0) return true; each_size = obj_reloc_entry_size (abfd); natsize = each_size * count; native = (unsigned char *) bfd_zalloc (abfd, natsize); if (!native) { bfd_set_error (bfd_error_no_memory); return false; } generic = section->orelocation; if (each_size == RELOC_EXT_SIZE) { for (natptr = native; count != 0; --count, natptr += each_size, ++generic) NAME(aout,swap_ext_reloc_out) (abfd, *generic, (struct reloc_ext_external *)natptr); } else { for (natptr = native; count != 0; --count, natptr += each_size, ++generic) MY_swap_std_reloc_out(abfd, *generic, (struct reloc_std_external *)natptr); } if ( bfd_write ((PTR) native, 1, natsize, abfd) != natsize) { bfd_release(abfd, native); return false; } bfd_release (abfd, native); return true; } /* This is stupid. This function should be a boolean predicate */ long NAME(aout,canonicalize_reloc) (abfd, section, relptr, symbols) bfd *abfd; sec_ptr section; arelent **relptr; asymbol **symbols; { arelent *tblptr = section->relocation; unsigned int count; if (section == obj_bsssec (abfd)) { *relptr = NULL; return 0; } if (!(tblptr || NAME(aout,slurp_reloc_table)(abfd, section, symbols))) return -1; if (section->flags & SEC_CONSTRUCTOR) { arelent_chain *chain = section->constructor_chain; for (count = 0; count < section->reloc_count; count ++) { *relptr ++ = &chain->relent; chain = chain->next; } } else { tblptr = section->relocation; for (count = 0; count++ < section->reloc_count;) { *relptr++ = tblptr++; } } *relptr = 0; return section->reloc_count; } long NAME(aout,get_reloc_upper_bound) (abfd, asect) bfd *abfd; sec_ptr asect; { if (bfd_get_format (abfd) != bfd_object) { bfd_set_error (bfd_error_invalid_operation); return -1; } if (asect->flags & SEC_CONSTRUCTOR) { return (sizeof (arelent *) * (asect->reloc_count+1)); } if (asect == obj_datasec (abfd)) return (sizeof (arelent *) * ((exec_hdr(abfd)->a_drsize / obj_reloc_entry_size (abfd)) + 1)); if (asect == obj_textsec (abfd)) return (sizeof (arelent *) * ((exec_hdr(abfd)->a_trsize / obj_reloc_entry_size (abfd)) + 1)); if (asect == obj_bsssec (abfd)) return sizeof (arelent *); if (asect == obj_bsssec (abfd)) return 0; bfd_set_error (bfd_error_invalid_operation); return -1; } long NAME(aout,get_symtab_upper_bound) (abfd) bfd *abfd; { if (!NAME(aout,slurp_symbol_table)(abfd)) return -1; return (bfd_get_symcount (abfd)+1) * (sizeof (aout_symbol_type *)); } /*ARGSUSED*/ alent * NAME(aout,get_lineno) (ignore_abfd, ignore_symbol) bfd *ignore_abfd; asymbol *ignore_symbol; { return (alent *)NULL; } /*ARGSUSED*/ void NAME(aout,get_symbol_info) (ignore_abfd, symbol, ret) bfd *ignore_abfd; asymbol *symbol; symbol_info *ret; { bfd_symbol_info (symbol, ret); if (ret->type == '?') { int type_code = aout_symbol(symbol)->type & 0xff; CONST char *stab_name = aout_stab_name(type_code); static char buf[10]; if (stab_name == NULL) { sprintf(buf, "(%d)", type_code); stab_name = buf; } ret->type = '-'; ret->stab_other = (unsigned)(aout_symbol(symbol)->other & 0xff); ret->stab_desc = (unsigned)(aout_symbol(symbol)->desc & 0xffff); ret->stab_name = stab_name; } } /*ARGSUSED*/ void NAME(aout,print_symbol) (ignore_abfd, afile, symbol, how) bfd *ignore_abfd; PTR afile; asymbol *symbol; bfd_print_symbol_type how; { FILE *file = (FILE *)afile; switch (how) { case bfd_print_symbol_name: if (symbol->name) fprintf(file,"%s", symbol->name); break; case bfd_print_symbol_more: fprintf(file,"%4x %2x %2x",(unsigned)(aout_symbol(symbol)->desc & 0xffff), (unsigned)(aout_symbol(symbol)->other & 0xff), (unsigned)(aout_symbol(symbol)->type)); break; case bfd_print_symbol_all: { CONST char *section_name = symbol->section->name; bfd_print_symbol_vandf((PTR)file,symbol); fprintf(file," %-5s %04x %02x %02x", section_name, (unsigned)(aout_symbol(symbol)->desc & 0xffff), (unsigned)(aout_symbol(symbol)->other & 0xff), (unsigned)(aout_symbol(symbol)->type & 0xff)); if (symbol->name) fprintf(file," %s", symbol->name); } break; } } /* provided a BFD, a section and an offset into the section, calculate and return the name of the source file and the line nearest to the wanted location. */ boolean NAME(aout,find_nearest_line) (abfd, section, symbols, offset, filename_ptr, functionname_ptr, line_ptr) bfd *abfd; asection *section; asymbol **symbols; bfd_vma offset; CONST char **filename_ptr; CONST char **functionname_ptr; unsigned int *line_ptr; { /* Run down the file looking for the filename, function and linenumber */ asymbol **p; static char buffer[100]; static char filename_buffer[200]; CONST char *directory_name = NULL; CONST char *main_file_name = NULL; CONST char *current_file_name = NULL; CONST char *line_file_name = NULL; /* Value of current_file_name at line number. */ bfd_vma high_line_vma = ~0; bfd_vma low_func_vma = 0; asymbol *func = 0; *filename_ptr = abfd->filename; *functionname_ptr = 0; *line_ptr = 0; if (symbols != (asymbol **)NULL) { for (p = symbols; *p; p++) { aout_symbol_type *q = (aout_symbol_type *)(*p); next: switch (q->type){ case N_SO: main_file_name = current_file_name = q->symbol.name; /* Look ahead to next symbol to check if that too is an N_SO. */ p++; if (*p == NULL) break; q = (aout_symbol_type *)(*p); if (q->type != (int)N_SO) goto next; /* Found a second N_SO First is directory; second is filename. */ directory_name = current_file_name; main_file_name = current_file_name = q->symbol.name; if (obj_textsec(abfd) != section) goto done; break; case N_SOL: current_file_name = q->symbol.name; break; case N_SLINE: case N_DSLINE: case N_BSLINE: /* We'll keep this if it resolves nearer than the one we have already */ if (q->symbol.value >= offset && q->symbol.value < high_line_vma) { *line_ptr = q->desc; high_line_vma = q->symbol.value; line_file_name = current_file_name; } break; case N_FUN: { /* We'll keep this if it is nearer than the one we have already */ if (q->symbol.value >= low_func_vma && q->symbol.value <= offset) { low_func_vma = q->symbol.value; func = (asymbol *)q; } if (*line_ptr && func) { CONST char *function = func->name; char *p; /* The caller expects a symbol name. We actually have a function name, without the leading underscore. Put the underscore back in, so that the caller gets a symbol name. */ if (bfd_get_symbol_leading_char (abfd) == '\0') strncpy (buffer, function, sizeof (buffer) - 1); else { buffer[0] = bfd_get_symbol_leading_char (abfd); strncpy (buffer + 1, function, sizeof (buffer) - 2); } buffer[sizeof(buffer)-1] = 0; /* Have to remove : stuff */ p = strchr(buffer,':'); if (p != NULL) { *p = '\0'; } *functionname_ptr = buffer; goto done; } } break; } } } done: if (*line_ptr) main_file_name = line_file_name; if (main_file_name) { if (main_file_name[0] == '/' || directory_name == NULL) *filename_ptr = main_file_name; else { sprintf(filename_buffer, "%.140s%.50s", directory_name, main_file_name); *filename_ptr = filename_buffer; } } return true; } /*ARGSUSED*/ int NAME(aout,sizeof_headers) (abfd, execable) bfd *abfd; boolean execable; { return adata(abfd).exec_bytes_size; } /* Free all information we have cached for this BFD. We can always read it again later if we need it. */ boolean NAME(aout,bfd_free_cached_info) (abfd) bfd *abfd; { asection *o; if (bfd_get_format (abfd) != bfd_object) return true; #define BFCI_FREE(x) if (x != NULL) { free (x); x = NULL; } BFCI_FREE (obj_aout_symbols (abfd)); BFCI_FREE (obj_aout_external_syms (abfd)); BFCI_FREE (obj_aout_external_strings (abfd)); for (o = abfd->sections; o != (asection *) NULL; o = o->next) BFCI_FREE (o->relocation); #undef BFCI_FREE return true; } /* a.out link code. */ static boolean aout_link_add_object_symbols PARAMS ((bfd *, struct bfd_link_info *)); static boolean aout_link_check_archive_element PARAMS ((bfd *, struct bfd_link_info *, boolean *)); static boolean aout_link_free_symbols PARAMS ((bfd *)); static boolean aout_link_check_ar_symbols PARAMS ((bfd *, struct bfd_link_info *, boolean *pneeded)); static boolean aout_link_add_symbols PARAMS ((bfd *, struct bfd_link_info *)); /* Routine to create an entry in an a.out link hash table. */ struct bfd_hash_entry * NAME(aout,link_hash_newfunc) (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct aout_link_hash_entry *ret = (struct aout_link_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct aout_link_hash_entry *) NULL) ret = ((struct aout_link_hash_entry *) bfd_hash_allocate (table, sizeof (struct aout_link_hash_entry))); if (ret == (struct aout_link_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return (struct bfd_hash_entry *) ret; } /* Call the allocation method of the superclass. */ ret = ((struct aout_link_hash_entry *) _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret) { /* Set local fields. */ ret->written = false; ret->indx = -1; } return (struct bfd_hash_entry *) ret; } /* Initialize an a.out link hash table. */ boolean NAME(aout,link_hash_table_init) (table, abfd, newfunc) struct aout_link_hash_table *table; bfd *abfd; struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); { return _bfd_link_hash_table_init (&table->root, abfd, newfunc); } /* Create an a.out link hash table. */ struct bfd_link_hash_table * NAME(aout,link_hash_table_create) (abfd) bfd *abfd; { struct aout_link_hash_table *ret; ret = ((struct aout_link_hash_table *) malloc (sizeof (struct aout_link_hash_table))); if (ret == (struct aout_link_hash_table *) NULL) { bfd_set_error (bfd_error_no_memory); return (struct bfd_link_hash_table *) NULL; } if (! NAME(aout,link_hash_table_init) (ret, abfd, NAME(aout,link_hash_newfunc))) { free (ret); return (struct bfd_link_hash_table *) NULL; } return &ret->root; } /* Given an a.out BFD, add symbols to the global hash table as appropriate. */ boolean NAME(aout,link_add_symbols) (abfd, info) bfd *abfd; struct bfd_link_info *info; { switch (bfd_get_format (abfd)) { case bfd_object: return aout_link_add_object_symbols (abfd, info); case bfd_archive: return _bfd_generic_link_add_archive_symbols (abfd, info, aout_link_check_archive_element); default: bfd_set_error (bfd_error_wrong_format); return false; } } /* Add symbols from an a.out object file. */ static boolean aout_link_add_object_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { if (! aout_get_external_symbols (abfd)) return false; if (! aout_link_add_symbols (abfd, info)) return false; if (! info->keep_memory) { if (! aout_link_free_symbols (abfd)) return false; } return true; } /* Check a single archive element to see if we need to include it in the link. *PNEEDED is set according to whether this element is needed in the link or not. This is called from _bfd_generic_link_add_archive_symbols. */ static boolean aout_link_check_archive_element (abfd, info, pneeded) bfd *abfd; struct bfd_link_info *info; boolean *pneeded; { if (! aout_get_external_symbols (abfd)) return false; if (! aout_link_check_ar_symbols (abfd, info, pneeded)) return false; if (*pneeded) { if (! aout_link_add_symbols (abfd, info)) return false; } /* We keep around the symbols even if we aren't going to use this object file, because we may want to reread it. This doesn't waste too much memory, because it isn't all that common to read an archive element but not need it. */ if (! info->keep_memory) { if (! aout_link_free_symbols (abfd)) return false; } return true; } /* Free up the internal symbols read from an a.out file. */ static boolean aout_link_free_symbols (abfd) bfd *abfd; { if (obj_aout_external_syms (abfd) != (struct external_nlist *) NULL) { free ((PTR) obj_aout_external_syms (abfd)); obj_aout_external_syms (abfd) = (struct external_nlist *) NULL; } if (obj_aout_external_strings (abfd) != (char *) NULL) { free ((PTR) obj_aout_external_strings (abfd)); obj_aout_external_strings (abfd) = (char *) NULL; } return true; } /* Look through the internal symbols to see if this object file should be included in the link. We should include this object file if it defines any symbols which are currently undefined. If this object file defines a common symbol, then we may adjust the size of the known symbol but we do not include the object file in the link (unless there is some other reason to include it). */ static boolean aout_link_check_ar_symbols (abfd, info, pneeded) bfd *abfd; struct bfd_link_info *info; boolean *pneeded; { register struct external_nlist *p; struct external_nlist *pend; char *strings; *pneeded = false; /* Look through all the symbols. */ p = obj_aout_external_syms (abfd); pend = p + obj_aout_external_sym_count (abfd); strings = obj_aout_external_strings (abfd); for (; p < pend; p++) { int type = bfd_h_get_8 (abfd, p->e_type); const char *name; struct bfd_link_hash_entry *h; /* Ignore symbols that are not externally visible. This is an optimization only, as we check the type more thoroughly below. */ if (((type & N_EXT) == 0 || (type & N_STAB) != 0 || type == N_FN) && type != N_WEAKA && type != N_WEAKT && type != N_WEAKD && type != N_WEAKB) { if (type == N_WARNING || type == N_INDR) ++p; continue; } name = strings + GET_WORD (abfd, p->e_strx); h = bfd_link_hash_lookup (info->hash, name, false, false, true); /* We are only interested in symbols that are currently undefined or common. */ if (h == (struct bfd_link_hash_entry *) NULL || (h->type != bfd_link_hash_undefined && h->type != bfd_link_hash_common)) { if (type == (N_INDR | N_EXT)) ++p; continue; } if (type == (N_TEXT | N_EXT) || type == (N_DATA | N_EXT) || type == (N_BSS | N_EXT) || type == (N_ABS | N_EXT) || type == (N_INDR | N_EXT)) { /* This object file defines this symbol. We must link it in. This is true regardless of whether the current definition of the symbol is undefined or common. If the current definition is common, we have a case in which we have already seen an object file including int a; and this object file from the archive includes int a = 5; In such a case we must include this object file. FIXME: The SunOS 4.1.3 linker will pull in the archive element if the symbol is defined in the .data section, but not if it is defined in the .text section. That seems a bit crazy to me, and I haven't implemented it. However, it might be correct. */ if (! (*info->callbacks->add_archive_element) (info, abfd, name)) return false; *pneeded = true; return true; } if (type == (N_UNDF | N_EXT)) { bfd_vma value; value = GET_WORD (abfd, p->e_value); if (value != 0) { /* This symbol is common in the object from the archive file. */ if (h->type == bfd_link_hash_undefined) { bfd *symbfd; symbfd = h->u.undef.abfd; if (symbfd == (bfd *) NULL) { /* This symbol was created as undefined from outside BFD. We assume that we should link in the object file. This is done for the -u option in the linker. */ if (! (*info->callbacks->add_archive_element) (info, abfd, name)) return false; *pneeded = true; return true; } /* Turn the current link symbol into a common symbol. It is already on the undefs list. */ h->type = bfd_link_hash_common; h->u.c.size = value; h->u.c.section = bfd_make_section_old_way (symbfd, "COMMON"); } else { /* Adjust the size of the common symbol if necessary. */ if (value > h->u.c.size) h->u.c.size = value; } } } if (type == N_WEAKA || type == N_WEAKT || type == N_WEAKD || type == N_WEAKB) { /* This symbol is weak but defined. We must pull it in if the current link symbol is undefined, but we don't want it if the current link symbol is common. */ if (h->type == bfd_link_hash_undefined) { if (! (*info->callbacks->add_archive_element) (info, abfd, name)) return false; *pneeded = true; return true; } } } /* We do not need this object file. */ return true; } /* Add all symbols from an object file to the hash table. */ static boolean aout_link_add_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { boolean (*add_one_symbol) PARAMS ((struct bfd_link_info *, bfd *, const char *, flagword, asection *, bfd_vma, const char *, boolean, boolean, struct bfd_link_hash_entry **)); bfd_size_type sym_count; char *strings; boolean copy; struct aout_link_hash_entry **sym_hash; register struct external_nlist *p; struct external_nlist *pend; sym_count = obj_aout_external_sym_count (abfd); strings = obj_aout_external_strings (abfd); if (info->keep_memory) copy = false; else copy = true; /* We keep a list of the linker hash table entries that correspond to particular symbols. We could just look them up in the hash table, but keeping the list is more efficient. Perhaps this should be conditional on info->keep_memory. */ sym_hash = ((struct aout_link_hash_entry **) bfd_alloc (abfd, ((size_t) sym_count * sizeof (struct aout_link_hash_entry *)))); if (sym_hash == NULL && sym_count != 0) { bfd_set_error (bfd_error_no_memory); return false; } obj_aout_sym_hashes (abfd) = sym_hash; if ((abfd->flags & DYNAMIC) != 0 && aout_backend_info (abfd)->add_dynamic_symbols != NULL) { if (! (*aout_backend_info (abfd)->add_dynamic_symbols) (abfd, info)) return false; } add_one_symbol = aout_backend_info (abfd)->add_one_symbol; if (add_one_symbol == NULL) add_one_symbol = _bfd_generic_link_add_one_symbol; p = obj_aout_external_syms (abfd); pend = p + sym_count; for (; p < pend; p++, sym_hash++) { int type; const char *name; bfd_vma value; asection *section; flagword flags; const char *string; *sym_hash = NULL; type = bfd_h_get_8 (abfd, p->e_type); /* Ignore debugging symbols. */ if ((type & N_STAB) != 0) continue; name = strings + GET_WORD (abfd, p->e_strx); value = GET_WORD (abfd, p->e_value); flags = BSF_GLOBAL; string = NULL; switch (type) { default: abort (); case N_UNDF: case N_ABS: case N_TEXT: case N_DATA: case N_BSS: case N_FN_SEQ: case N_COMM: case N_SETV: case N_FN: /* Ignore symbols that are not externally visible. */ continue; case N_INDR: /* Ignore local indirect symbol. */ ++p; ++sym_hash; continue; case N_UNDF | N_EXT: if (value == 0) { section = bfd_und_section_ptr; flags = 0; } else section = bfd_com_section_ptr; break; case N_ABS | N_EXT: section = bfd_abs_section_ptr; break; case N_TEXT | N_EXT: section = obj_textsec (abfd); value -= bfd_get_section_vma (abfd, section); break; case N_DATA | N_EXT: case N_SETV | N_EXT: /* Treat N_SETV symbols as N_DATA symbol; see comment in translate_from_native_sym_flags. */ section = obj_datasec (abfd); value -= bfd_get_section_vma (abfd, section); break; case N_BSS | N_EXT: section = obj_bsssec (abfd); value -= bfd_get_section_vma (abfd, section); break; case N_INDR | N_EXT: /* An indirect symbol. The next symbol is the symbol which this one really is. */ BFD_ASSERT (p + 1 < pend); ++p; string = strings + GET_WORD (abfd, p->e_strx); section = bfd_ind_section_ptr; flags |= BSF_INDIRECT; break; case N_COMM | N_EXT: section = bfd_com_section_ptr; break; case N_SETA: case N_SETA | N_EXT: section = bfd_abs_section_ptr; flags |= BSF_CONSTRUCTOR; break; case N_SETT: case N_SETT | N_EXT: section = obj_textsec (abfd); flags |= BSF_CONSTRUCTOR; value -= bfd_get_section_vma (abfd, section); break; case N_SETD: case N_SETD | N_EXT: section = obj_datasec (abfd); flags |= BSF_CONSTRUCTOR; value -= bfd_get_section_vma (abfd, section); break; case N_SETB: case N_SETB | N_EXT: section = obj_bsssec (abfd); flags |= BSF_CONSTRUCTOR; value -= bfd_get_section_vma (abfd, section); break; case N_WARNING: /* A warning symbol. The next symbol is the one to warn about. */ BFD_ASSERT (p + 1 < pend); ++p; string = name; name = strings + GET_WORD (abfd, p->e_strx); section = bfd_und_section_ptr; flags |= BSF_WARNING; break; case N_WEAKU: section = bfd_und_section_ptr; flags = BSF_WEAK; break; case N_WEAKA: section = bfd_abs_section_ptr; flags = BSF_WEAK; break; case N_WEAKT: section = obj_textsec (abfd); value -= bfd_get_section_vma (abfd, section); flags = BSF_WEAK; break; case N_WEAKD: section = obj_datasec (abfd); value -= bfd_get_section_vma (abfd, section); flags = BSF_WEAK; break; case N_WEAKB: section = obj_bsssec (abfd); value -= bfd_get_section_vma (abfd, section); flags = BSF_WEAK; break; } if (! ((*add_one_symbol) (info, abfd, name, flags, section, value, string, copy, false, (struct bfd_link_hash_entry **) sym_hash))) return false; if (type == (N_INDR | N_EXT) || type == N_WARNING) ++sym_hash; } return true; } /* During the final link step we need to pass around a bunch of information, so we do it in an instance of this structure. */ struct aout_final_link_info { /* General link information. */ struct bfd_link_info *info; /* Output bfd. */ bfd *output_bfd; /* Reloc file positions. */ file_ptr treloff, dreloff; /* File position of symbols. */ file_ptr symoff; /* String table. */ struct strtab_hash strtab; }; static boolean aout_link_input_bfd PARAMS ((struct aout_final_link_info *, bfd *input_bfd)); static boolean aout_link_write_symbols PARAMS ((struct aout_final_link_info *, bfd *input_bfd, int *symbol_map)); static boolean aout_link_write_other_symbol PARAMS ((struct aout_link_hash_entry *, PTR)); static boolean aout_link_input_section PARAMS ((struct aout_final_link_info *, bfd *input_bfd, asection *input_section, file_ptr *reloff_ptr, bfd_size_type rel_size, int *symbol_map)); static boolean aout_link_input_section_std PARAMS ((struct aout_final_link_info *, bfd *input_bfd, asection *input_section, struct reloc_std_external *, bfd_size_type rel_size, bfd_byte *contents, int *symbol_map)); static boolean aout_link_input_section_ext PARAMS ((struct aout_final_link_info *, bfd *input_bfd, asection *input_section, struct reloc_ext_external *, bfd_size_type rel_size, bfd_byte *contents, int *symbol_map)); static INLINE asection *aout_reloc_index_to_section PARAMS ((bfd *, int)); static boolean aout_link_reloc_link_order PARAMS ((struct aout_final_link_info *, asection *, struct bfd_link_order *)); /* Do the final link step. This is called on the output BFD. The INFO structure should point to a list of BFDs linked through the link_next field which can be used to find each BFD which takes part in the output. Also, each section in ABFD should point to a list of bfd_link_order structures which list all the input sections for the output section. */ boolean NAME(aout,final_link) (abfd, info, callback) bfd *abfd; struct bfd_link_info *info; void (*callback) PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *)); { struct aout_final_link_info aout_info; register bfd *sub; bfd_size_type text_size; file_ptr text_end; register struct bfd_link_order *p; asection *o; boolean have_link_order_relocs; aout_info.info = info; aout_info.output_bfd = abfd; if (! info->relocateable) { exec_hdr (abfd)->a_trsize = 0; exec_hdr (abfd)->a_drsize = 0; } else { bfd_size_type trsize, drsize; /* Count up the relocation sizes. */ trsize = 0; drsize = 0; for (sub = info->input_bfds; sub != (bfd *) NULL; sub = sub->link_next) { if (bfd_get_flavour (sub) == bfd_target_aout_flavour) { trsize += exec_hdr (sub)->a_trsize; drsize += exec_hdr (sub)->a_drsize; } else { /* FIXME: We need to identify the .text and .data sections and call get_reloc_upper_bound and canonicalize_reloc to work out the number of relocs needed, and then multiply by the reloc size. */ abort (); } } if (obj_textsec (abfd) != (asection *) NULL) trsize += (_bfd_count_link_order_relocs (obj_textsec (abfd) ->link_order_head) * obj_reloc_entry_size (abfd)); exec_hdr (abfd)->a_trsize = trsize; if (obj_datasec (abfd) != (asection *) NULL) drsize += (_bfd_count_link_order_relocs (obj_datasec (abfd) ->link_order_head) * obj_reloc_entry_size (abfd)); exec_hdr (abfd)->a_drsize = drsize; } exec_hdr (abfd)->a_entry = bfd_get_start_address (abfd); /* Adjust the section sizes and vmas according to the magic number. This sets a_text, a_data and a_bss in the exec_hdr and sets the filepos for each section. */ if (! NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end)) return false; /* The relocation and symbol file positions differ among a.out targets. We are passed a callback routine from the backend specific code to handle this. FIXME: At this point we do not know how much space the symbol table will require. This will not work for any (nonstandard) a.out target that needs to know the symbol table size before it can compute the relocation file positions. This may or may not be the case for the hp300hpux target, for example. */ (*callback) (abfd, &aout_info.treloff, &aout_info.dreloff, &aout_info.symoff); obj_textsec (abfd)->rel_filepos = aout_info.treloff; obj_datasec (abfd)->rel_filepos = aout_info.dreloff; obj_sym_filepos (abfd) = aout_info.symoff; /* We keep a count of the symbols as we output them. */ obj_aout_external_sym_count (abfd) = 0; /* We accumulate the string table as we write out the symbols. */ if (! stringtab_init (&aout_info.strtab)) return false; /* The most time efficient way to do the link would be to read all the input object files into memory and then sort out the information into the output file. Unfortunately, that will probably use too much memory. Another method would be to step through everything that composes the text section and write it out, and then everything that composes the data section and write it out, and then write out the relocs, and then write out the symbols. Unfortunately, that requires reading stuff from each input file several times, and we will not be able to keep all the input files open simultaneously, and reopening them will be slow. What we do is basically process one input file at a time. We do everything we need to do with an input file once--copy over the section contents, handle the relocation information, and write out the symbols--and then we throw away the information we read from it. This approach requires a lot of lseeks of the output file, which is unfortunate but still faster than reopening a lot of files. We use the output_has_begun field of the input BFDs to see whether we have already handled it. */ for (sub = info->input_bfds; sub != (bfd *) NULL; sub = sub->link_next) sub->output_has_begun = false; have_link_order_relocs = false; for (o = abfd->sections; o != (asection *) NULL; o = o->next) { for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) { if (p->type == bfd_indirect_link_order && (bfd_get_flavour (p->u.indirect.section->owner) == bfd_target_aout_flavour)) { bfd *input_bfd; input_bfd = p->u.indirect.section->owner; if (! input_bfd->output_has_begun) { if (! aout_link_input_bfd (&aout_info, input_bfd)) return false; input_bfd->output_has_begun = true; } } else if (p->type == bfd_section_reloc_link_order || p->type == bfd_symbol_reloc_link_order) { /* These are handled below. */ have_link_order_relocs = true; } else { if (! _bfd_default_link_order (abfd, info, o, p)) return false; } } } /* Write out any symbols that we have not already written out. */ aout_link_hash_traverse (aout_hash_table (info), aout_link_write_other_symbol, (PTR) &aout_info); /* Now handle any relocs we were asked to create by the linker. These did not come from any input file. We must do these after we have written out all the symbols, so that we know the symbol indices to use. */ if (have_link_order_relocs) { for (o = abfd->sections; o != (asection *) NULL; o = o->next) { for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) { if (p->type == bfd_section_reloc_link_order || p->type == bfd_symbol_reloc_link_order) { if (! aout_link_reloc_link_order (&aout_info, o, p)) return false; } } } } /* Finish up any dynamic linking we may be doing. */ if (aout_backend_info (abfd)->finish_dynamic_link != NULL) { if (! (*aout_backend_info (abfd)->finish_dynamic_link) (abfd, info)) return false; } /* Update the header information. */ abfd->symcount = obj_aout_external_sym_count (abfd); exec_hdr (abfd)->a_syms = abfd->symcount * EXTERNAL_NLIST_SIZE; obj_str_filepos (abfd) = obj_sym_filepos (abfd) + exec_hdr (abfd)->a_syms; obj_textsec (abfd)->reloc_count = exec_hdr (abfd)->a_trsize / obj_reloc_entry_size (abfd); obj_datasec (abfd)->reloc_count = exec_hdr (abfd)->a_drsize / obj_reloc_entry_size (abfd); /* Write out the string table. */ if (bfd_seek (abfd, obj_str_filepos (abfd), SEEK_SET) != 0) return false; return emit_stringtab (abfd, &aout_info.strtab); } /* Link an a.out input BFD into the output file. */ static boolean aout_link_input_bfd (finfo, input_bfd) struct aout_final_link_info *finfo; bfd *input_bfd; { bfd_size_type sym_count; int *symbol_map = NULL; BFD_ASSERT (bfd_get_format (input_bfd) == bfd_object); /* If this is a dynamic object, it may need special handling. */ if ((input_bfd->flags & DYNAMIC) != 0 && aout_backend_info (input_bfd)->link_dynamic_object != NULL) { return ((*aout_backend_info (input_bfd)->link_dynamic_object) (finfo->info, input_bfd)); } /* Get the symbols. We probably have them already, unless finfo->info->keep_memory is false. */ if (! aout_get_external_symbols (input_bfd)) return false; sym_count = obj_aout_external_sym_count (input_bfd); symbol_map = (int *) malloc ((size_t) sym_count * sizeof (int)); if (symbol_map == NULL && sym_count != 0) { bfd_set_error (bfd_error_no_memory); return false; } /* Write out the symbols and get a map of the new indices. */ if (! aout_link_write_symbols (finfo, input_bfd, symbol_map)) goto error_return; /* Relocate and write out the sections. */ if (! aout_link_input_section (finfo, input_bfd, obj_textsec (input_bfd), &finfo->treloff, exec_hdr (input_bfd)->a_trsize, symbol_map) || ! aout_link_input_section (finfo, input_bfd, obj_datasec (input_bfd), &finfo->dreloff, exec_hdr (input_bfd)->a_drsize, symbol_map)) goto error_return; /* If we are not keeping memory, we don't need the symbols any longer. We still need them if we are keeping memory, because the strings in the hash table point into them. */ if (! finfo->info->keep_memory) { if (! aout_link_free_symbols (input_bfd)) goto error_return; } if (symbol_map != NULL) free (symbol_map); return true; error_return: if (symbol_map != NULL) free (symbol_map); return false; } /* Adjust and write out the symbols for an a.out file. Set the new symbol indices into a symbol_map. */ static boolean aout_link_write_symbols (finfo, input_bfd, symbol_map) struct aout_final_link_info *finfo; bfd *input_bfd; int *symbol_map; { bfd *output_bfd; bfd_size_type sym_count; char *strings; enum bfd_link_strip strip; enum bfd_link_discard discard; struct external_nlist *output_syms = NULL; struct external_nlist *outsym; bfd_size_type strtab_index; register struct external_nlist *sym; struct external_nlist *sym_end; struct aout_link_hash_entry **sym_hash; boolean pass; boolean skip_indirect; output_bfd = finfo->output_bfd; sym_count = obj_aout_external_sym_count (input_bfd); strings = obj_aout_external_strings (input_bfd); strip = finfo->info->strip; discard = finfo->info->discard; output_syms = ((struct external_nlist *) malloc ((size_t) (sym_count + 1) * EXTERNAL_NLIST_SIZE)); if (output_syms == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } outsym = output_syms; /* First write out a symbol for this object file, unless we are discarding such symbols. */ if (strip != strip_all && (strip != strip_some || bfd_hash_lookup (finfo->info->keep_hash, input_bfd->filename, false, false) != NULL) && discard != discard_all) { bfd_h_put_8 (output_bfd, N_TEXT, outsym->e_type); bfd_h_put_8 (output_bfd, 0, outsym->e_other); bfd_h_put_16 (output_bfd, (bfd_vma) 0, outsym->e_desc); strtab_index = add_to_stringtab (output_bfd, &finfo->strtab, input_bfd->filename, false); if (strtab_index == (bfd_size_type) -1) goto error_return; PUT_WORD (output_bfd, strtab_index, outsym->e_strx); PUT_WORD (output_bfd, (bfd_get_section_vma (output_bfd, obj_textsec (input_bfd)->output_section) + obj_textsec (input_bfd)->output_offset), outsym->e_value); ++obj_aout_external_sym_count (output_bfd); ++outsym; } pass = false; skip_indirect = false; sym = obj_aout_external_syms (input_bfd); sym_end = sym + sym_count; sym_hash = obj_aout_sym_hashes (input_bfd); for (; sym < sym_end; sym++, sym_hash++, symbol_map++) { const char *name; int type; struct aout_link_hash_entry *h; boolean skip; asection *symsec; bfd_vma val = 0; boolean copy; *symbol_map = -1; type = bfd_h_get_8 (input_bfd, sym->e_type); name = strings + GET_WORD (input_bfd, sym->e_strx); h = NULL; if (pass) { /* Pass this symbol through. It is the target of an indirect or warning symbol. */ val = GET_WORD (input_bfd, sym->e_value); pass = false; } else if (skip_indirect) { /* Skip this symbol, which is the target of an indirect symbol that we have changed to no longer be an indirect symbol. */ skip_indirect = false; continue; } else { struct aout_link_hash_entry *hresolve; /* We have saved the hash table entry for this symbol, if there is one. Note that we could just look it up again in the hash table, provided we first check that it is an external symbol. */ h = *sym_hash; /* If this is an indirect or warning symbol, then change hresolve to the base symbol. We also change *sym_hash so that the relocation routines relocate against the real symbol. */ hresolve = h; if (h != (struct aout_link_hash_entry *) NULL && (h->root.type == bfd_link_hash_indirect || h->root.type == bfd_link_hash_warning)) { hresolve = (struct aout_link_hash_entry *) h->root.u.i.link; while (hresolve->root.type == bfd_link_hash_indirect || hresolve->root.type == bfd_link_hash_warning) hresolve = ((struct aout_link_hash_entry *) hresolve->root.u.i.link); *sym_hash = hresolve; } /* If the symbol has already been written out, skip it. */ if (h != (struct aout_link_hash_entry *) NULL && h->root.type != bfd_link_hash_warning && h->written) { if ((type & N_TYPE) == N_INDR) skip_indirect = true; *symbol_map = h->indx; continue; } /* See if we are stripping this symbol. */ skip = false; switch (strip) { case strip_none: break; case strip_debugger: if ((type & N_STAB) != 0) skip = true; break; case strip_some: if (bfd_hash_lookup (finfo->info->keep_hash, name, false, false) == NULL) skip = true; break; case strip_all: skip = true; break; } if (skip) { if (h != (struct aout_link_hash_entry *) NULL) h->written = true; continue; } /* Get the value of the symbol. */ if ((type & N_TYPE) == N_TEXT || type == N_WEAKT) symsec = obj_textsec (input_bfd); else if ((type & N_TYPE) == N_DATA || type == N_WEAKD) symsec = obj_datasec (input_bfd); else if ((type & N_TYPE) == N_BSS || type == N_WEAKB) symsec = obj_bsssec (input_bfd); else if ((type & N_TYPE) == N_ABS || type == N_WEAKA) symsec = bfd_abs_section_ptr; else if (((type & N_TYPE) == N_INDR && (hresolve == (struct aout_link_hash_entry *) NULL || (hresolve->root.type != bfd_link_hash_defined && hresolve->root.type != bfd_link_hash_common))) || type == N_WARNING) { /* Pass the next symbol through unchanged. The condition above for indirect symbols is so that if the indirect symbol was defined, we output it with the correct definition so the debugger will understand it. */ pass = true; val = GET_WORD (input_bfd, sym->e_value); symsec = NULL; } else if ((type & N_STAB) != 0) { val = GET_WORD (input_bfd, sym->e_value); symsec = NULL; } else { /* If we get here with an indirect symbol, it means that we are outputting it with a real definition. In such a case we do not want to output the next symbol, which is the target of the indirection. */ if ((type & N_TYPE) == N_INDR) skip_indirect = true; /* We need to get the value from the hash table. We use hresolve so that if we have defined an indirect symbol we output the final definition. */ if (h == (struct aout_link_hash_entry *) NULL) val = 0; else if (hresolve->root.type == bfd_link_hash_defined) { asection *input_section; asection *output_section; /* This case means a common symbol which was turned into a defined symbol. */ input_section = hresolve->root.u.def.section; output_section = input_section->output_section; BFD_ASSERT (bfd_is_abs_section (output_section) || output_section->owner == output_bfd); val = (hresolve->root.u.def.value + bfd_get_section_vma (output_bfd, output_section) + input_section->output_offset); /* Get the correct type based on the section. If this is a constructed set, force it to be globally visible. */ if (type == N_SETT || type == N_SETD || type == N_SETB || type == N_SETA) type |= N_EXT; type &=~ N_TYPE; if (output_section == obj_textsec (output_bfd)) type |= N_TEXT; else if (output_section == obj_datasec (output_bfd)) type |= N_DATA; else if (output_section == obj_bsssec (output_bfd)) type |= N_BSS; else type |= N_ABS; } else if (hresolve->root.type == bfd_link_hash_common) val = hresolve->root.u.c.size; else if (hresolve->root.type == bfd_link_hash_weak) { val = 0; type = N_WEAKU; } else val = 0; symsec = NULL; } if (symsec != (asection *) NULL) val = (symsec->output_section->vma + symsec->output_offset + (GET_WORD (input_bfd, sym->e_value) - symsec->vma)); /* If this is a global symbol set the written flag, and if it is a local symbol see if we should discard it. */ if (h != (struct aout_link_hash_entry *) NULL) { h->written = true; h->indx = obj_aout_external_sym_count (output_bfd); } else { switch (discard) { case discard_none: break; case discard_l: if (*name == *finfo->info->lprefix && (finfo->info->lprefix_len == 1 || strncmp (name, finfo->info->lprefix, finfo->info->lprefix_len) == 0)) skip = true; break; case discard_all: skip = true; break; } if (skip) { pass = false; continue; } } } /* Copy this symbol into the list of symbols we are going to write out. */ bfd_h_put_8 (output_bfd, type, outsym->e_type); bfd_h_put_8 (output_bfd, bfd_h_get_8 (input_bfd, sym->e_other), outsym->e_other); bfd_h_put_16 (output_bfd, bfd_h_get_16 (input_bfd, sym->e_desc), outsym->e_desc); copy = false; if (! finfo->info->keep_memory) { /* name points into a string table which we are going to free. If there is a hash table entry, use that string. Otherwise, copy name into memory. */ if (h != (struct aout_link_hash_entry *) NULL) name = (*sym_hash)->root.root.string; else copy = true; } strtab_index = add_to_stringtab (output_bfd, &finfo->strtab, name, copy); if (strtab_index == (bfd_size_type) -1) goto error_return; PUT_WORD (output_bfd, strtab_index, outsym->e_strx); PUT_WORD (output_bfd, val, outsym->e_value); *symbol_map = obj_aout_external_sym_count (output_bfd); ++obj_aout_external_sym_count (output_bfd); ++outsym; } /* Write out the output symbols we have just constructed. */ if (outsym > output_syms) { bfd_size_type outsym_count; if (bfd_seek (output_bfd, finfo->symoff, SEEK_SET) != 0) goto error_return; outsym_count = outsym - output_syms; if (bfd_write ((PTR) output_syms, (bfd_size_type) EXTERNAL_NLIST_SIZE, (bfd_size_type) outsym_count, output_bfd) != outsym_count * EXTERNAL_NLIST_SIZE) goto error_return; finfo->symoff += outsym_count * EXTERNAL_NLIST_SIZE; } if (output_syms != NULL) free (output_syms); return true; error_return: if (output_syms != NULL) free (output_syms); return false; } /* Write out a symbol that was not associated with an a.out input object. */ static boolean aout_link_write_other_symbol (h, data) struct aout_link_hash_entry *h; PTR data; { struct aout_final_link_info *finfo = (struct aout_final_link_info *) data; bfd *output_bfd; int type; bfd_vma val; struct external_nlist outsym; bfd_size_type indx; output_bfd = finfo->output_bfd; if (aout_backend_info (output_bfd)->write_dynamic_symbol != NULL) { if (! ((*aout_backend_info (output_bfd)->write_dynamic_symbol) (output_bfd, finfo->info, h))) { /* FIXME: No way to handle errors. */ abort (); } } if (h->written) return true; h->written = true; if (finfo->info->strip == strip_all || (finfo->info->strip == strip_some && bfd_hash_lookup (finfo->info->keep_hash, h->root.root.string, false, false) == NULL)) return true; switch (h->root.type) { default: case bfd_link_hash_new: abort (); /* Avoid variable not initialized warnings. */ return true; case bfd_link_hash_undefined: type = N_UNDF | N_EXT; val = 0; break; case bfd_link_hash_defined: { asection *sec; sec = h->root.u.def.section->output_section; BFD_ASSERT (bfd_is_abs_section (sec) || sec->owner == output_bfd); if (sec == obj_textsec (output_bfd)) type = N_TEXT | N_EXT; else if (sec == obj_datasec (output_bfd)) type = N_DATA | N_EXT; else if (sec == obj_bsssec (output_bfd)) type = N_BSS | N_EXT; else type = N_ABS | N_EXT; val = (h->root.u.def.value + sec->vma + h->root.u.def.section->output_offset); } break; case bfd_link_hash_common: type = N_UNDF | N_EXT; val = h->root.u.c.size; break; case bfd_link_hash_weak: type = N_WEAKU; val = 0; case bfd_link_hash_indirect: case bfd_link_hash_warning: /* FIXME: Ignore these for now. The circumstances under which they should be written out are not clear to me. */ return true; } bfd_h_put_8 (output_bfd, type, outsym.e_type); bfd_h_put_8 (output_bfd, 0, outsym.e_other); bfd_h_put_16 (output_bfd, 0, outsym.e_desc); indx = add_to_stringtab (output_bfd, &finfo->strtab, h->root.root.string, false); if (indx == (bfd_size_type) -1) { /* FIXME: No way to handle errors. */ abort (); } PUT_WORD (output_bfd, indx, outsym.e_strx); PUT_WORD (output_bfd, val, outsym.e_value); if (bfd_seek (output_bfd, finfo->symoff, SEEK_SET) != 0 || bfd_write ((PTR) &outsym, (bfd_size_type) EXTERNAL_NLIST_SIZE, (bfd_size_type) 1, output_bfd) != EXTERNAL_NLIST_SIZE) { /* FIXME: No way to handle errors. */ abort (); } finfo->symoff += EXTERNAL_NLIST_SIZE; h->indx = obj_aout_external_sym_count (output_bfd); ++obj_aout_external_sym_count (output_bfd); return true; } /* Link an a.out section into the output file. */ static boolean aout_link_input_section (finfo, input_bfd, input_section, reloff_ptr, rel_size, symbol_map) struct aout_final_link_info *finfo; bfd *input_bfd; asection *input_section; file_ptr *reloff_ptr; bfd_size_type rel_size; int *symbol_map; { bfd_size_type input_size; bfd_byte *contents = NULL; PTR relocs; PTR free_relocs = NULL; /* Get the section contents. */ input_size = bfd_section_size (input_bfd, input_section); contents = (bfd_byte *) malloc (input_size); if (contents == NULL && input_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (! bfd_get_section_contents (input_bfd, input_section, (PTR) contents, (file_ptr) 0, input_size)) goto error_return; /* Read in the relocs if we haven't already done it. */ if (aout_section_data (input_section) != NULL && aout_section_data (input_section)->relocs != NULL) relocs = aout_section_data (input_section)->relocs; else { relocs = free_relocs = (PTR) malloc (rel_size); if (relocs == NULL && rel_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (input_bfd, input_section->rel_filepos, SEEK_SET) != 0 || bfd_read (relocs, 1, rel_size, input_bfd) != rel_size) goto error_return; } /* Relocate the section contents. */ if (obj_reloc_entry_size (input_bfd) == RELOC_STD_SIZE) { if (! aout_link_input_section_std (finfo, input_bfd, input_section, (struct reloc_std_external *) relocs, rel_size, contents, symbol_map)) goto error_return; } else { if (! aout_link_input_section_ext (finfo, input_bfd, input_section, (struct reloc_ext_external *) relocs, rel_size, contents, symbol_map)) goto error_return; } /* Write out the section contents. */ if (! bfd_set_section_contents (finfo->output_bfd, input_section->output_section, (PTR) contents, input_section->output_offset, input_size)) goto error_return; /* If we are producing relocateable output, the relocs were modified, and we now write them out. */ if (finfo->info->relocateable) { if (bfd_seek (finfo->output_bfd, *reloff_ptr, SEEK_SET) != 0) goto error_return; if (bfd_write (relocs, (bfd_size_type) 1, rel_size, finfo->output_bfd) != rel_size) goto error_return; *reloff_ptr += rel_size; /* Assert that the relocs have not run into the symbols, and that if these are the text relocs they have not run into the data relocs. */ BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (finfo->output_bfd) && (reloff_ptr != &finfo->treloff || (*reloff_ptr <= obj_datasec (finfo->output_bfd)->rel_filepos))); } if (free_relocs != NULL) free (free_relocs); if (contents != NULL) free (contents); return true; error_return: if (free_relocs != NULL) free (free_relocs); if (contents != NULL) free (contents); return false; } /* Get the section corresponding to a reloc index. */ static INLINE asection * aout_reloc_index_to_section (abfd, indx) bfd *abfd; int indx; { switch (indx & N_TYPE) { case N_TEXT: return obj_textsec (abfd); case N_DATA: return obj_datasec (abfd); case N_BSS: return obj_bsssec (abfd); case N_ABS: case N_UNDF: return bfd_abs_section_ptr; default: abort (); } } /* Relocate an a.out section using standard a.out relocs. */ static boolean aout_link_input_section_std (finfo, input_bfd, input_section, relocs, rel_size, contents, symbol_map) struct aout_final_link_info *finfo; bfd *input_bfd; asection *input_section; struct reloc_std_external *relocs; bfd_size_type rel_size; bfd_byte *contents; int *symbol_map; { boolean (*check_dynamic_reloc) PARAMS ((struct bfd_link_info *, bfd *, asection *, struct aout_link_hash_entry *, PTR, boolean *)); bfd *output_bfd; boolean relocateable; struct external_nlist *syms; char *strings; struct aout_link_hash_entry **sym_hashes; bfd_size_type reloc_count; register struct reloc_std_external *rel; struct reloc_std_external *rel_end; output_bfd = finfo->output_bfd; check_dynamic_reloc = aout_backend_info (output_bfd)->check_dynamic_reloc; BFD_ASSERT (obj_reloc_entry_size (input_bfd) == RELOC_STD_SIZE); BFD_ASSERT (input_bfd->xvec->header_byteorder_big_p == output_bfd->xvec->header_byteorder_big_p); relocateable = finfo->info->relocateable; syms = obj_aout_external_syms (input_bfd); strings = obj_aout_external_strings (input_bfd); sym_hashes = obj_aout_sym_hashes (input_bfd); reloc_count = rel_size / RELOC_STD_SIZE; rel = relocs; rel_end = rel + reloc_count; for (; rel < rel_end; rel++) { bfd_vma r_addr; int r_index; int r_extern; int r_pcrel; int r_baserel; int r_jmptable; int r_relative; int r_length; int howto_idx; reloc_howto_type *howto; bfd_vma relocation; bfd_reloc_status_type r; r_addr = GET_SWORD (input_bfd, rel->r_address); #ifdef MY_reloc_howto howto = MY_reloc_howto(input_bfd, rel, r_index, r_extern, r_pcrel); #else if (input_bfd->xvec->header_byteorder_big_p) { r_index = ((rel->r_index[0] << 16) | (rel->r_index[1] << 8) | rel->r_index[2]); r_extern = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_BIG)); r_pcrel = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_BIG)); r_baserel = (0 != (rel->r_type[0] & RELOC_STD_BITS_BASEREL_BIG)); r_jmptable= (0 != (rel->r_type[0] & RELOC_STD_BITS_JMPTABLE_BIG)); r_relative= (0 != (rel->r_type[0] & RELOC_STD_BITS_RELATIVE_BIG)); r_length = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_BIG) >> RELOC_STD_BITS_LENGTH_SH_BIG); } else { r_index = ((rel->r_index[2] << 16) | (rel->r_index[1] << 8) | rel->r_index[0]); r_extern = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE)); r_pcrel = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE)); r_baserel = (0 != (rel->r_type[0] & RELOC_STD_BITS_BASEREL_LITTLE)); r_jmptable= (0 != (rel->r_type[0] & RELOC_STD_BITS_JMPTABLE_LITTLE)); r_relative= (0 != (rel->r_type[0] & RELOC_STD_BITS_RELATIVE_LITTLE)); r_length = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE) >> RELOC_STD_BITS_LENGTH_SH_LITTLE); } howto_idx = r_length + 4 * r_pcrel + 8 * r_baserel + 16 * r_jmptable + 32 * r_relative; BFD_ASSERT (howto_idx < TABLE_SIZE (howto_table_std)); howto = howto_table_std + howto_idx; #endif if (relocateable) { /* We are generating a relocateable output file, and must modify the reloc accordingly. */ if (r_extern) { struct aout_link_hash_entry *h; /* If we know the symbol this relocation is against, convert it into a relocation against a section. This is what the native linker does. */ h = sym_hashes[r_index]; if (h != (struct aout_link_hash_entry *) NULL && h->root.type == bfd_link_hash_defined) { asection *output_section; /* Change the r_extern value. */ if (output_bfd->xvec->header_byteorder_big_p) rel->r_type[0] &=~ RELOC_STD_BITS_EXTERN_BIG; else rel->r_type[0] &=~ RELOC_STD_BITS_EXTERN_LITTLE; /* Compute a new r_index. */ output_section = h->root.u.def.section->output_section; if (output_section == obj_textsec (output_bfd)) r_index = N_TEXT; else if (output_section == obj_datasec (output_bfd)) r_index = N_DATA; else if (output_section == obj_bsssec (output_bfd)) r_index = N_BSS; else r_index = N_ABS; /* Add the symbol value and the section VMA to the addend stored in the contents. */ relocation = (h->root.u.def.value + output_section->vma + h->root.u.def.section->output_offset); } else { /* We must change r_index according to the symbol map. */ r_index = symbol_map[r_index]; if (r_index == -1) { const char *name; name = strings + GET_WORD (input_bfd, syms[r_index].e_strx); if (! ((*finfo->info->callbacks->unattached_reloc) (finfo->info, name, input_bfd, input_section, r_addr))) return false; r_index = 0; } relocation = 0; } /* Write out the new r_index value. */ if (output_bfd->xvec->header_byteorder_big_p) { rel->r_index[0] = r_index >> 16; rel->r_index[1] = r_index >> 8; rel->r_index[2] = r_index; } else { rel->r_index[2] = r_index >> 16; rel->r_index[1] = r_index >> 8; rel->r_index[0] = r_index; } } else { asection *section; /* This is a relocation against a section. We must adjust by the amount that the section moved. */ section = aout_reloc_index_to_section (input_bfd, r_index); relocation = (section->output_section->vma + section->output_offset - section->vma); } /* Change the address of the relocation. */ PUT_WORD (output_bfd, r_addr + input_section->output_offset, rel->r_address); /* Adjust a PC relative relocation by removing the reference to the original address in the section and including the reference to the new address. */ if (r_pcrel) relocation -= (input_section->output_section->vma + input_section->output_offset - input_section->vma); if (relocation == 0) r = bfd_reloc_ok; else r = _bfd_relocate_contents (howto, input_bfd, relocation, contents + r_addr); } else { /* We are generating an executable, and must do a full relocation. */ if (r_extern) { struct aout_link_hash_entry *h; h = sym_hashes[r_index]; if (check_dynamic_reloc != NULL) { boolean skip; if (! ((*check_dynamic_reloc) (finfo->info, input_bfd, input_section, h, (PTR) rel, &skip))) return false; if (skip) continue; } if (h != (struct aout_link_hash_entry *) NULL && h->root.type == bfd_link_hash_defined) { relocation = (h->root.u.def.value + h->root.u.def.section->output_section->vma + h->root.u.def.section->output_offset); } else if (h != (struct aout_link_hash_entry *) NULL && h->root.type == bfd_link_hash_weak) relocation = 0; else { const char *name; name = strings + GET_WORD (input_bfd, syms[r_index].e_strx); if (! ((*finfo->info->callbacks->undefined_symbol) (finfo->info, name, input_bfd, input_section, r_addr))) return false; relocation = 0; } } else { asection *section; section = aout_reloc_index_to_section (input_bfd, r_index); relocation = (section->output_section->vma + section->output_offset - section->vma); if (r_pcrel) relocation += input_section->vma; } r = _bfd_final_link_relocate (howto, input_bfd, input_section, contents, r_addr, relocation, (bfd_vma) 0); } if (r != bfd_reloc_ok) { switch (r) { default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: { const char *name; if (r_extern) name = strings + GET_WORD (input_bfd, syms[r_index].e_strx); else { asection *s; s = aout_reloc_index_to_section (input_bfd, r_index); name = bfd_section_name (input_bfd, s); } if (! ((*finfo->info->callbacks->reloc_overflow) (finfo->info, name, howto->name, (bfd_vma) 0, input_bfd, input_section, r_addr))) return false; } break; } } } return true; } /* Relocate an a.out section using extended a.out relocs. */ static boolean aout_link_input_section_ext (finfo, input_bfd, input_section, relocs, rel_size, contents, symbol_map) struct aout_final_link_info *finfo; bfd *input_bfd; asection *input_section; struct reloc_ext_external *relocs; bfd_size_type rel_size; bfd_byte *contents; int *symbol_map; { boolean (*check_dynamic_reloc) PARAMS ((struct bfd_link_info *, bfd *, asection *, struct aout_link_hash_entry *, PTR, boolean *)); bfd *output_bfd; boolean relocateable; struct external_nlist *syms; char *strings; struct aout_link_hash_entry **sym_hashes; bfd_size_type reloc_count; register struct reloc_ext_external *rel; struct reloc_ext_external *rel_end; output_bfd = finfo->output_bfd; check_dynamic_reloc = aout_backend_info (output_bfd)->check_dynamic_reloc; BFD_ASSERT (obj_reloc_entry_size (input_bfd) == RELOC_EXT_SIZE); BFD_ASSERT (input_bfd->xvec->header_byteorder_big_p == output_bfd->xvec->header_byteorder_big_p); relocateable = finfo->info->relocateable; syms = obj_aout_external_syms (input_bfd); strings = obj_aout_external_strings (input_bfd); sym_hashes = obj_aout_sym_hashes (input_bfd); reloc_count = rel_size / RELOC_EXT_SIZE; rel = relocs; rel_end = rel + reloc_count; for (; rel < rel_end; rel++) { bfd_vma r_addr; int r_index; int r_extern; int r_type; bfd_vma r_addend; bfd_vma relocation; r_addr = GET_SWORD (input_bfd, rel->r_address); if (input_bfd->xvec->header_byteorder_big_p) { r_index = ((rel->r_index[0] << 16) | (rel->r_index[1] << 8) | rel->r_index[2]); r_extern = (0 != (rel->r_type[0] & RELOC_EXT_BITS_EXTERN_BIG)); r_type = ((rel->r_type[0] & RELOC_EXT_BITS_TYPE_BIG) >> RELOC_EXT_BITS_TYPE_SH_BIG); } else { r_index = ((rel->r_index[2] << 16) | (rel->r_index[1] << 8) | rel->r_index[0]); r_extern = (0 != (rel->r_type[0] & RELOC_EXT_BITS_EXTERN_LITTLE)); r_type = ((rel->r_type[0] & RELOC_EXT_BITS_TYPE_LITTLE) >> RELOC_EXT_BITS_TYPE_SH_LITTLE); } r_addend = GET_SWORD (input_bfd, rel->r_addend); BFD_ASSERT (r_type >= 0 && r_type < TABLE_SIZE (howto_table_ext)); if (relocateable) { /* We are generating a relocateable output file, and must modify the reloc accordingly. */ if (r_extern) { struct aout_link_hash_entry *h; /* If we know the symbol this relocation is against, convert it into a relocation against a section. This is what the native linker does. */ h = sym_hashes[r_index]; if (h != (struct aout_link_hash_entry *) NULL && h->root.type == bfd_link_hash_defined) { asection *output_section; /* Change the r_extern value. */ if (output_bfd->xvec->header_byteorder_big_p) rel->r_type[0] &=~ RELOC_EXT_BITS_EXTERN_BIG; else rel->r_type[0] &=~ RELOC_EXT_BITS_EXTERN_LITTLE; /* Compute a new r_index. */ output_section = h->root.u.def.section->output_section; if (output_section == obj_textsec (output_bfd)) r_index = N_TEXT; else if (output_section == obj_datasec (output_bfd)) r_index = N_DATA; else if (output_section == obj_bsssec (output_bfd)) r_index = N_BSS; else r_index = N_ABS; /* Add the symbol value and the section VMA to the addend. */ relocation = (h->root.u.def.value + output_section->vma + h->root.u.def.section->output_offset); /* Now RELOCATION is the VMA of the final destination. If this is a PC relative reloc, then ADDEND is the negative of the source VMA. We want to set ADDEND to the difference between the destination VMA and the source VMA, which means we must adjust RELOCATION by the change in the source VMA. This is done below. */ } else { /* We must change r_index according to the symbol map. */ r_index = symbol_map[r_index]; if (r_index == -1) { const char *name; name = (strings + GET_WORD (input_bfd, syms[r_index].e_strx)); if (! ((*finfo->info->callbacks->unattached_reloc) (finfo->info, name, input_bfd, input_section, r_addr))) return false; r_index = 0; } relocation = 0; /* If this is a PC relative reloc, then the addend is the negative of the source VMA. We must adjust it by the change in the source VMA. This is done below. */ } /* Write out the new r_index value. */ if (output_bfd->xvec->header_byteorder_big_p) { rel->r_index[0] = r_index >> 16; rel->r_index[1] = r_index >> 8; rel->r_index[2] = r_index; } else { rel->r_index[2] = r_index >> 16; rel->r_index[1] = r_index >> 8; rel->r_index[0] = r_index; } } else { asection *section; /* This is a relocation against a section. We must adjust by the amount that the section moved. */ section = aout_reloc_index_to_section (input_bfd, r_index); relocation = (section->output_section->vma + section->output_offset - section->vma); /* If this is a PC relative reloc, then the addend is the difference in VMA between the destination and the source. We have just adjusted for the change in VMA of the destination, so we must also adjust by the change in VMA of the source. This is done below. */ } /* As described above, we must always adjust a PC relative reloc by the change in VMA of the source. */ if (howto_table_ext[r_type].pc_relative) relocation -= (input_section->output_section->vma + input_section->output_offset - input_section->vma); /* Change the addend if necessary. */ if (relocation != 0) PUT_WORD (output_bfd, r_addend + relocation, rel->r_addend); /* Change the address of the relocation. */ PUT_WORD (output_bfd, r_addr + input_section->output_offset, rel->r_address); } else { bfd_reloc_status_type r; /* We are generating an executable, and must do a full relocation. */ if (r_extern) { struct aout_link_hash_entry *h; h = sym_hashes[r_index]; if (check_dynamic_reloc != NULL) { boolean skip; if (! ((*check_dynamic_reloc) (finfo->info, input_bfd, input_section, h, (PTR) rel, &skip))) return false; if (skip) continue; } if (h != (struct aout_link_hash_entry *) NULL && h->root.type == bfd_link_hash_defined) { relocation = (h->root.u.def.value + h->root.u.def.section->output_section->vma + h->root.u.def.section->output_offset); } else if (h != (struct aout_link_hash_entry *) NULL && h->root.type == bfd_link_hash_weak) relocation = 0; else { const char *name; name = strings + GET_WORD (input_bfd, syms[r_index].e_strx); if (! ((*finfo->info->callbacks->undefined_symbol) (finfo->info, name, input_bfd, input_section, r_addr))) return false; relocation = 0; } } else { asection *section; section = aout_reloc_index_to_section (input_bfd, r_index); /* If this is a PC relative reloc, then R_ADDEND is the difference between the two vmas, or old_dest_sec + old_dest_off - (old_src_sec + old_src_off) where old_dest_sec == section->vma and old_src_sec == input_section->vma and old_src_off == r_addr _bfd_final_link_relocate expects RELOCATION + R_ADDEND to be the VMA of the destination minus r_addr (the minus r_addr is because this relocation is not pcrel_offset, which is a bit confusing and should, perhaps, be changed), or new_dest_sec where new_dest_sec == output_section->vma + output_offset We arrange for this to happen by setting RELOCATION to new_dest_sec + old_src_sec - old_dest_sec If this is not a PC relative reloc, then R_ADDEND is simply the VMA of the destination, so we set RELOCATION to the change in the destination VMA, or new_dest_sec - old_dest_sec */ relocation = (section->output_section->vma + section->output_offset - section->vma); if (howto_table_ext[r_type].pc_relative) relocation += input_section->vma; } r = _bfd_final_link_relocate (howto_table_ext + r_type, input_bfd, input_section, contents, r_addr, relocation, r_addend); if (r != bfd_reloc_ok) { switch (r) { default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: { const char *name; if (r_extern) name = strings + GET_WORD (input_bfd, syms[r_index].e_strx); else { asection *s; s = aout_reloc_index_to_section (input_bfd, r_index); name = bfd_section_name (input_bfd, s); } if (! ((*finfo->info->callbacks->reloc_overflow) (finfo->info, name, howto_table_ext[r_type].name, r_addend, input_bfd, input_section, r_addr))) return false; } break; } } } } return true; } /* Handle a link order which is supposed to generate a reloc. */ static boolean aout_link_reloc_link_order (finfo, o, p) struct aout_final_link_info *finfo; asection *o; struct bfd_link_order *p; { struct bfd_link_order_reloc *pr; int r_index; int r_extern; const reloc_howto_type *howto; file_ptr *reloff_ptr; struct reloc_std_external srel; struct reloc_ext_external erel; PTR rel_ptr; pr = p->u.reloc.p; if (p->type == bfd_section_reloc_link_order) { r_extern = 0; if (bfd_is_abs_section (pr->u.section)) r_index = N_ABS | N_EXT; else { BFD_ASSERT (pr->u.section->owner == finfo->output_bfd); r_index = pr->u.section->target_index; } } else { struct aout_link_hash_entry *h; BFD_ASSERT (p->type == bfd_symbol_reloc_link_order); r_extern = 1; h = aout_link_hash_lookup (aout_hash_table (finfo->info), pr->u.name, false, false, true); if (h != (struct aout_link_hash_entry *) NULL && h->indx == -1) r_index = h->indx; else { if (! ((*finfo->info->callbacks->unattached_reloc) (finfo->info, pr->u.name, (bfd *) NULL, (asection *) NULL, (bfd_vma) 0))) return false; r_index = 0; } } howto = bfd_reloc_type_lookup (finfo->output_bfd, pr->reloc); if (howto == (const reloc_howto_type *) NULL) { bfd_set_error (bfd_error_bad_value); return false; } if (o == obj_textsec (finfo->output_bfd)) reloff_ptr = &finfo->treloff; else if (o == obj_datasec (finfo->output_bfd)) reloff_ptr = &finfo->dreloff; else abort (); if (obj_reloc_entry_size (finfo->output_bfd) == RELOC_STD_SIZE) { int r_pcrel; int r_baserel; int r_jmptable; int r_relative; int r_length; #ifdef MY_put_reloc MY_put_reloc(finfo->output_bfd, r_extern, r_index, p->offset, howto, &srel); #else r_pcrel = howto->pc_relative; r_baserel = (howto->type & 8) != 0; r_jmptable = (howto->type & 16) != 0; r_relative = (howto->type & 32) != 0; r_length = howto->size; PUT_WORD (finfo->output_bfd, p->offset, srel.r_address); if (finfo->output_bfd->xvec->header_byteorder_big_p) { srel.r_index[0] = r_index >> 16; srel.r_index[1] = r_index >> 8; srel.r_index[2] = r_index; srel.r_type[0] = ((r_extern ? RELOC_STD_BITS_EXTERN_BIG : 0) | (r_pcrel ? RELOC_STD_BITS_PCREL_BIG : 0) | (r_baserel ? RELOC_STD_BITS_BASEREL_BIG : 0) | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_BIG : 0) | (r_relative ? RELOC_STD_BITS_RELATIVE_BIG : 0) | (r_length << RELOC_STD_BITS_LENGTH_SH_BIG)); } else { srel.r_index[2] = r_index >> 16; srel.r_index[1] = r_index >> 8; srel.r_index[0] = r_index; srel.r_type[0] = ((r_extern ? RELOC_STD_BITS_EXTERN_LITTLE : 0) | (r_pcrel ? RELOC_STD_BITS_PCREL_LITTLE : 0) | (r_baserel ? RELOC_STD_BITS_BASEREL_LITTLE : 0) | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_LITTLE : 0) | (r_relative ? RELOC_STD_BITS_RELATIVE_LITTLE : 0) | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE)); } #endif rel_ptr = (PTR) &srel; /* We have to write the addend into the object file, since standard a.out relocs are in place. It would be more reliable if we had the current contents of the file here, rather than assuming zeroes, but we can't read the file since it was opened using bfd_openw. */ if (pr->addend != 0) { bfd_size_type size; bfd_reloc_status_type r; bfd_byte *buf; boolean ok; size = bfd_get_reloc_size (howto); buf = (bfd_byte *) bfd_zmalloc (size); if (buf == (bfd_byte *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } r = _bfd_relocate_contents (howto, finfo->output_bfd, pr->addend, buf); switch (r) { case bfd_reloc_ok: break; default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: if (! ((*finfo->info->callbacks->reloc_overflow) (finfo->info, (p->type == bfd_section_reloc_link_order ? bfd_section_name (finfo->output_bfd, pr->u.section) : pr->u.name), howto->name, pr->addend, (bfd *) NULL, (asection *) NULL, (bfd_vma) 0))) { free (buf); return false; } break; } ok = bfd_set_section_contents (finfo->output_bfd, o, (PTR) buf, (file_ptr) p->offset, size); free (buf); if (! ok) return false; } } else { PUT_WORD (finfo->output_bfd, p->offset, erel.r_address); if (finfo->output_bfd->xvec->header_byteorder_big_p) { erel.r_index[0] = r_index >> 16; erel.r_index[1] = r_index >> 8; erel.r_index[2] = r_index; erel.r_type[0] = ((r_extern ? RELOC_EXT_BITS_EXTERN_BIG : 0) | (howto->type << RELOC_EXT_BITS_TYPE_SH_BIG)); } else { erel.r_index[2] = r_index >> 16; erel.r_index[1] = r_index >> 8; erel.r_index[0] = r_index; erel.r_type[0] = (r_extern ? RELOC_EXT_BITS_EXTERN_LITTLE : 0) | (howto->type << RELOC_EXT_BITS_TYPE_SH_LITTLE); } PUT_WORD (finfo->output_bfd, pr->addend, erel.r_addend); rel_ptr = (PTR) &erel; } if (bfd_seek (finfo->output_bfd, *reloff_ptr, SEEK_SET) != 0 || (bfd_write (rel_ptr, (bfd_size_type) 1, obj_reloc_entry_size (finfo->output_bfd), finfo->output_bfd) != obj_reloc_entry_size (finfo->output_bfd))) return false; *reloff_ptr += obj_reloc_entry_size (finfo->output_bfd); /* Assert that the relocs have not run into the symbols, and that n the text relocs have not run into the data relocs. */ BFD_ASSERT (*reloff_ptr <= obj_sym_filepos (finfo->output_bfd) && (reloff_ptr != &finfo->treloff || (*reloff_ptr <= obj_datasec (finfo->output_bfd)->rel_filepos))); return true; } gdb-4.13/bfd/archive.c 666 34562 1752 156724 5601614535 13141 0ustar fnfcygnus/* BFD back-end for archive files (libraries). Copyright 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. Mostly Gumby Henkel-Wallace's fault. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* @setfilename archive-info SECTION Archives DESCRIPTION An archive (or library) is just another BFD. It has a symbol table, although there's not much a user program will do with it. The big difference between an archive BFD and an ordinary BFD is that the archive doesn't have sections. Instead it has a chain of BFDs that are considered its contents. These BFDs can be manipulated like any other. The BFDs contained in an archive opened for reading will all be opened for reading. You may put either input or output BFDs into an archive opened for output; they will be handled correctly when the archive is closed. Use <> to step through the contents of an archive opened for input. You don't have to read the entire archive if you don't want to! Read it until you find what you want. Archive contents of output BFDs are chained through the <> pointer in a BFD. The first one is findable through the <> slot of the archive. Set it with <> (q.v.). A given BFD may be in only one open output archive at a time. As expected, the BFD archive code is more general than the archive code of any given environment. BFD archives may contain files of different formats (e.g., a.out and coff) and even different architectures. You may even place archives recursively into archives! This can cause unexpected confusion, since some archive formats are more expressive than others. For instance, Intel COFF archives can preserve long filenames; SunOS a.out archives cannot. If you move a file from the first to the second format and back again, the filename may be truncated. Likewise, different a.out environments have different conventions as to how they truncate filenames, whether they preserve directory names in filenames, etc. When interoperating with native tools, be sure your files are homogeneous. Beware: most of these formats do not react well to the presence of spaces in filenames. We do the best we can, but can't always handle this case due to restrictions in the format of archives. Many Unix utilities are braindead in regards to spaces and such in filenames anyway, so this shouldn't be much of a restriction. Archives are supported in BFD in <>. */ /* Assumes: o - all archive elements start on an even boundary, newline padded; o - all arch headers are char *; o - all arch headers are the same size (across architectures). */ /* Some formats provide a way to cram a long filename into the short (16 chars) space provided by a BSD archive. The trick is: make a special "file" in the front of the archive, sort of like the SYMDEF entry. If the filename is too long to fit, put it in the extended name table, and use its index as the filename. To prevent confusion prepend the index with a space. This means you can't have filenames that start with a space, but then again, many Unix utilities can't handle that anyway. This scheme unfortunately requires that you stand on your head in order to write an archive since you need to put a magic file at the front, and need to touch every entry to do so. C'est la vie. We support two variants of this idea: The SVR4 format (extended name table is named "//"), and an extended pseudo-BSD variant (extended name table is named "ARFILENAMES/"). The origin of the latter format is uncertain. BSD 4.4 uses a third scheme: It writes a long filename directly after the header. This allows 'ar q' to work. We currently can read BSD 4.4 archives, but not write them. */ /* Summary of archive member names: Symbol table (must be first): "__.SYMDEF " - Symbol table, Berkeley style, produced by ranlib. "/ " - Symbol table, system 5 style. Long name table (must be before regular file members): "// " - Long name table, System 5 R4 style. "ARFILENAMES/ " - Long name table, non-standard extended BSD (not BSD 4.4). Regular file members with short names: "filename.o/ " - Regular file, System 5 style (embedded spaces ok). "filename.o " - Regular file, Berkeley style (no embedded spaces). Regular files with long names (or embedded spaces, for BSD variants): "/18 " - SVR4 style, name at offset 18 in name table. "#1/23 " - Long name (or embedded paces) 23 characters long, BSD 4.4 style, full name follows header. Implemented for reading, not writing. " 18 " - Long name 18 characters long, extended pseudo-BSD. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "aout/ar.h" #include "aout/ranlib.h" #include #include /* For memchr, strrchr and friends */ #include #ifndef errno extern int errno; #endif #ifdef GNU960 #define BFD_GNU960_ARMAG(abfd) (BFD_COFF_FILE_P((abfd)) ? ARMAG : ARMAGB) #endif /* Can't define this in hosts/foo.h, because (e.g. in gprof) the hosts file is included, then obstack.h, which thinks if offsetof is defined, it doesn't need to include stddef.h. */ /* Define offsetof for those systems which lack it */ #if !defined (offsetof) #define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER) #endif /* We keep a cache of archive filepointers to archive elements to speed up searching the archive by filepos. We only add an entry to the cache when we actually read one. We also don't sort the cache; it's generally short enough to search linearly. Note that the pointers here point to the front of the ar_hdr, not to the front of the contents! */ struct ar_cache { file_ptr ptr; bfd *arelt; struct ar_cache *next; }; #define ar_padchar(abfd) ((abfd)->xvec->ar_pad_char) #define ar_maxnamelen(abfd) ((abfd)->xvec->ar_max_namelen) #define arch_eltdata(bfd) ((struct areltdata *)((bfd)->arelt_data)) #define arch_hdr(bfd) ((struct ar_hdr *)arch_eltdata(bfd)->arch_header) static char *get_extended_arelt_filename PARAMS ((bfd *arch, const char *name)); static boolean do_slurp_bsd_armap PARAMS ((bfd *abfd)); static boolean do_slurp_coff_armap PARAMS ((bfd *abfd)); static const char *normalize PARAMS ((const char *file)); static boolean bfd_construct_extended_name_table PARAMS ((bfd *abfd, char **tabloc, unsigned int *)); static struct areltdata *bfd_ar_hdr_from_filesystem PARAMS ((bfd *abfd, const char *)); static boolean compute_and_write_armap PARAMS ((bfd *arch, unsigned int elength)); static boolean bsd_update_armap_timestamp PARAMS ((bfd *arch)); boolean _bfd_generic_mkarchive (abfd) bfd *abfd; { abfd->tdata.aout_ar_data = ((struct artdata *) bfd_zalloc (abfd, sizeof (struct artdata))); if (bfd_ardata (abfd) == NULL) { bfd_set_error (bfd_error_no_memory); return false; } bfd_ardata (abfd)->cache = NULL; bfd_ardata (abfd)->archive_head = NULL; bfd_ardata (abfd)->symdefs = NULL; bfd_ardata (abfd)->extended_names = NULL; bfd_ardata (abfd)->tdata = NULL; return true; } /* FUNCTION bfd_get_next_mapent SYNOPSIS symindex bfd_get_next_mapent(bfd *abfd, symindex previous, carsym **sym); DESCRIPTION Step through archive @var{abfd}'s symbol table (if it has one). Successively update @var{sym} with the next symbol's information, returning that symbol's (internal) index into the symbol table. Supply <> as the @var{previous} entry to get the first one; returns <> when you've already got the last one. A <> is a canonical archive symbol. The only user-visible element is its name, a null-terminated string. */ symindex bfd_get_next_mapent (abfd, prev, entry) bfd *abfd; symindex prev; carsym **entry; { if (!bfd_has_map (abfd)) { bfd_set_error (bfd_error_invalid_operation); return BFD_NO_MORE_SYMBOLS; } if (prev == BFD_NO_MORE_SYMBOLS) prev = 0; else if (++prev >= bfd_ardata (abfd)->symdef_count) return BFD_NO_MORE_SYMBOLS; *entry = (bfd_ardata (abfd)->symdefs + prev); return prev; } /* To be called by backends only */ bfd * _bfd_create_empty_archive_element_shell (obfd) bfd *obfd; { bfd *nbfd; nbfd = _bfd_new_bfd_contained_in (obfd); if (nbfd == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } return nbfd; } /* FUNCTION bfd_set_archive_head SYNOPSIS boolean bfd_set_archive_head(bfd *output, bfd *new_head); DESCRIPTION Set the head of the chain of BFDs contained in the archive @var{output} to @var{new_head}. */ boolean bfd_set_archive_head (output_archive, new_head) bfd *output_archive; bfd *new_head; { output_archive->archive_head = new_head; return true; } bfd * _bfd_look_for_bfd_in_cache (arch_bfd, filepos) bfd *arch_bfd; file_ptr filepos; { struct ar_cache *current; for (current = bfd_ardata (arch_bfd)->cache; current != NULL; current = current->next) if (current->ptr == filepos) return current->arelt; return NULL; } /* Kind of stupid to call cons for each one, but we don't do too many */ boolean _bfd_add_bfd_to_archive_cache (arch_bfd, filepos, new_elt) bfd *arch_bfd, *new_elt; file_ptr filepos; { struct ar_cache *new_cache = ((struct ar_cache *) bfd_zalloc (arch_bfd, sizeof (struct ar_cache))); if (new_cache == NULL) { bfd_set_error (bfd_error_no_memory); return false; } new_cache->ptr = filepos; new_cache->arelt = new_elt; new_cache->next = (struct ar_cache *) NULL; if (bfd_ardata (arch_bfd)->cache == NULL) bfd_ardata (arch_bfd)->cache = new_cache; else { struct ar_cache *current = bfd_ardata (arch_bfd)->cache; while (current->next != NULL) current = current->next; current->next = new_cache; } return true; } /* The name begins with space. Hence the rest of the name is an index into the string table. */ static char * get_extended_arelt_filename (arch, name) bfd *arch; const char *name; { unsigned long index = 0; /* Should extract string so that I can guarantee not to overflow into the next region, but I'm too lazy. */ errno = 0; /* Skip first char, which is '/' in SVR4 or ' ' in some other variants. */ index = strtol (name + 1, NULL, 10); if (errno != 0) { bfd_set_error (bfd_error_malformed_archive); return NULL; } return bfd_ardata (arch)->extended_names + index; } /* This functions reads an arch header and returns an areltdata pointer, or NULL on error. Presumes the file pointer is already in the right place (ie pointing to the ar_hdr in the file). Moves the file pointer; on success it should be pointing to the front of the file contents; on failure it could have been moved arbitrarily. */ struct areltdata * _bfd_snarf_ar_hdr (abfd) bfd *abfd; { #ifndef errno extern int errno; #endif struct ar_hdr hdr; char *hdrp = (char *) &hdr; unsigned int parsed_size; struct areltdata *ared; char *filename = NULL; unsigned int namelen = 0; unsigned int allocsize = sizeof (struct areltdata) + sizeof (struct ar_hdr); char *allocptr = 0; if (bfd_read ((PTR) hdrp, 1, sizeof (struct ar_hdr), abfd) != sizeof (struct ar_hdr)) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_no_more_archived_files); return NULL; } if (strncmp (hdr.ar_fmag, ARFMAG, 2)) { bfd_set_error (bfd_error_malformed_archive); return NULL; } errno = 0; parsed_size = strtol (hdr.ar_size, NULL, 10); if (errno != 0) { bfd_set_error (bfd_error_malformed_archive); return NULL; } /* Extract the filename from the archive - there are two ways to specify an extendend name table, either the first char of the name is a space, or it's a slash. */ if ((hdr.ar_name[0] == '/' || (hdr.ar_name[0] == ' ' && memchr (hdr.ar_name, '/', ar_maxnamelen (abfd)) == NULL)) && bfd_ardata (abfd)->extended_names != NULL) { filename = get_extended_arelt_filename (abfd, hdr.ar_name); if (filename == NULL) { bfd_set_error (bfd_error_malformed_archive); return NULL; } } /* BSD4.4-style long filename. Only implemented for reading, so far! */ else if (hdr.ar_name[0] == '#' && hdr.ar_name[1] == '1' && hdr.ar_name[2] == '/' && isdigit (hdr.ar_name[3])) { /* BSD-4.4 extended name */ namelen = atoi (&hdr.ar_name[3]); allocsize += namelen + 1; parsed_size -= namelen; allocptr = bfd_zalloc (abfd, allocsize); if (allocptr == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } filename = (allocptr + sizeof (struct areltdata) + sizeof (struct ar_hdr)); if (bfd_read (filename, 1, namelen, abfd) != namelen) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_no_more_archived_files); return NULL; } filename[namelen] = '\0'; } else { /* We judge the end of the name by looking for '/' or ' '. Note: The SYSV format (terminated by '/') allows embedded spaces, so only look for ' ' if we don't find '/'. */ namelen = 0; while (hdr.ar_name[namelen] != '\0' && hdr.ar_name[namelen] != '/') { namelen++; if (namelen == (unsigned) ar_maxnamelen (abfd)) { namelen = 0; while (hdr.ar_name[namelen] != ' ' && namelen < (unsigned) ar_maxnamelen (abfd)) namelen++; break; } } allocsize += namelen + 1; } if (!allocptr) { allocptr = bfd_zalloc (abfd, allocsize); if (allocptr == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } } ared = (struct areltdata *) allocptr; ared->arch_header = allocptr + sizeof (struct areltdata); memcpy ((char *) ared->arch_header, (char *) &hdr, sizeof (struct ar_hdr)); ared->parsed_size = parsed_size; if (filename != NULL) ared->filename = filename; else { ared->filename = allocptr + (sizeof (struct areltdata) + sizeof (struct ar_hdr)); if (namelen) memcpy (ared->filename, hdr.ar_name, namelen); ared->filename[namelen] = '\0'; } return ared; } /* This is an internal function; it's mainly used when indexing through the archive symbol table, but also used to get the next element, since it handles the bookkeeping so nicely for us. */ bfd * _bfd_get_elt_at_filepos (archive, filepos) bfd *archive; file_ptr filepos; { struct areltdata *new_areldata; bfd *n_nfd; n_nfd = _bfd_look_for_bfd_in_cache (archive, filepos); if (n_nfd) return n_nfd; if (0 > bfd_seek (archive, filepos, SEEK_SET)) return NULL; if ((new_areldata = _bfd_snarf_ar_hdr (archive)) == NULL) return NULL; n_nfd = _bfd_create_empty_archive_element_shell (archive); if (n_nfd == NULL) { bfd_release (archive, (PTR) new_areldata); return NULL; } n_nfd->origin = bfd_tell (archive); n_nfd->arelt_data = (PTR) new_areldata; n_nfd->filename = new_areldata->filename; if (_bfd_add_bfd_to_archive_cache (archive, filepos, n_nfd)) return n_nfd; /* huh? */ bfd_release (archive, (PTR) n_nfd); bfd_release (archive, (PTR) new_areldata); return NULL; } /* FUNCTION bfd_get_elt_at_index SYNOPSIS bfd *bfd_get_elt_at_index(bfd *archive, int index); DESCRIPTION Return the BFD which is referenced by the symbol in @var{archive} indexed by @var{index}. @var{index} should have been returned by <> (q.v.). */ bfd * bfd_get_elt_at_index (abfd, index) bfd *abfd; int index; { carsym *entry; entry = bfd_ardata (abfd)->symdefs + index; return _bfd_get_elt_at_filepos (abfd, entry->file_offset); } /* FUNCTION bfd_openr_next_archived_file SYNOPSIS bfd *bfd_openr_next_archived_file(bfd *archive, bfd *previous); DESCRIPTION Provided a BFD, @var{archive}, containing an archive and NULL, open an input BFD on the first contained element and returns that. Subsequent calls should pass the archive and the previous return value to return a created BFD to the next contained element. NULL is returned when there are no more. */ bfd * bfd_openr_next_archived_file (archive, last_file) bfd *archive; bfd *last_file; { if ((bfd_get_format (archive) != bfd_archive) || (archive->direction == write_direction)) { bfd_set_error (bfd_error_invalid_operation); return NULL; } return BFD_SEND (archive, openr_next_archived_file, (archive, last_file)); } bfd * bfd_generic_openr_next_archived_file (archive, last_file) bfd *archive; bfd *last_file; { file_ptr filestart; if (!last_file) filestart = bfd_ardata (archive)->first_file_filepos; else { unsigned int size = arelt_size (last_file); /* Pad to an even boundary... Note that last_file->origin can be odd in the case of BSD-4.4-style element with a long odd size. */ filestart = last_file->origin + size; filestart += filestart % 2; } return _bfd_get_elt_at_filepos (archive, filestart); } const bfd_target * bfd_generic_archive_p (abfd) bfd *abfd; { char armag[SARMAG + 1]; if (bfd_read ((PTR) armag, 1, SARMAG, abfd) != SARMAG) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return NULL; } #ifdef GNU960 if (strncmp (armag, BFD_GNU960_ARMAG (abfd), SARMAG) != 0) return 0; #else if (strncmp (armag, ARMAG, SARMAG) != 0 && strncmp (armag, ARMAGB, SARMAG) != 0) return 0; #endif /* We are setting bfd_ardata(abfd) here, but since bfd_ardata involves a cast, we can't do it as the left operand of assignment. */ abfd->tdata.aout_ar_data = ((struct artdata *) bfd_zalloc (abfd, sizeof (struct artdata))); if (bfd_ardata (abfd) == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } bfd_ardata (abfd)->first_file_filepos = SARMAG; bfd_ardata (abfd)->cache = NULL; bfd_ardata (abfd)->archive_head = NULL; bfd_ardata (abfd)->symdefs = NULL; bfd_ardata (abfd)->extended_names = NULL; bfd_ardata (abfd)->tdata = NULL; if (!BFD_SEND (abfd, _bfd_slurp_armap, (abfd))) { bfd_release (abfd, bfd_ardata (abfd)); abfd->tdata.aout_ar_data = NULL; return NULL; } if (!BFD_SEND (abfd, _bfd_slurp_extended_name_table, (abfd))) { bfd_release (abfd, bfd_ardata (abfd)); abfd->tdata.aout_ar_data = NULL; return NULL; } return abfd->xvec; } /* Some constants for a 32 bit BSD archive structure. We do not support 64 bit archives presently; so far as I know, none actually exist. Supporting them would require changing these constants, and changing some bfd_h_get_32 to bfd_h_get_64. */ /* The size of an external symdef structure. */ #define BSD_SYMDEF_SIZE 8 /* The offset from the start of a symdef structure to the file offset. */ #define BSD_SYMDEF_OFFSET_SIZE 4 /* The size of the symdef count. */ #define BSD_SYMDEF_COUNT_SIZE 4 /* The size of the string count. */ #define BSD_STRING_COUNT_SIZE 4 /* Returns false on error, true otherwise */ static boolean do_slurp_bsd_armap (abfd) bfd *abfd; { struct areltdata *mapdata; unsigned int counter; bfd_byte *raw_armap, *rbase; struct artdata *ardata = bfd_ardata (abfd); char *stringbase; unsigned int parsed_size; carsym *set; mapdata = _bfd_snarf_ar_hdr (abfd); if (mapdata == NULL) return false; parsed_size = mapdata->parsed_size; bfd_release (abfd, (PTR) mapdata); /* Don't need it any more. */ raw_armap = (bfd_byte *) bfd_zalloc (abfd, parsed_size); if (raw_armap == (bfd_byte *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read ((PTR) raw_armap, 1, parsed_size, abfd) != parsed_size) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_malformed_archive); byebye: bfd_release (abfd, (PTR) raw_armap); return false; } ardata->symdef_count = bfd_h_get_32 (abfd, raw_armap) / BSD_SYMDEF_SIZE; if (ardata->symdef_count * BSD_SYMDEF_SIZE > parsed_size - BSD_SYMDEF_COUNT_SIZE) { /* Probably we're using the wrong byte ordering. */ bfd_set_error (bfd_error_wrong_format); goto byebye; } ardata->cache = 0; rbase = raw_armap + BSD_SYMDEF_COUNT_SIZE; stringbase = ((char *) rbase + ardata->symdef_count * BSD_SYMDEF_SIZE + BSD_STRING_COUNT_SIZE); ardata->symdefs = (carsym *) bfd_alloc (abfd, (ardata->symdef_count * sizeof (carsym))); if (!ardata->symdefs) { bfd_set_error (bfd_error_no_memory); return false; } for (counter = 0, set = ardata->symdefs; counter < ardata->symdef_count; counter++, set++, rbase += BSD_SYMDEF_SIZE) { set->name = bfd_h_get_32 (abfd, rbase) + stringbase; set->file_offset = bfd_h_get_32 (abfd, rbase + BSD_SYMDEF_OFFSET_SIZE); } ardata->first_file_filepos = bfd_tell (abfd); /* Pad to an even boundary if you have to */ ardata->first_file_filepos += (ardata->first_file_filepos) % 2; /* FIXME, we should provide some way to free raw_ardata when we are done using the strings from it. For now, it seems to be allocated on an obstack anyway... */ bfd_has_map (abfd) = true; return true; } /* Returns false on error, true otherwise */ static boolean do_slurp_coff_armap (abfd) bfd *abfd; { struct areltdata *mapdata; int *raw_armap, *rawptr; struct artdata *ardata = bfd_ardata (abfd); char *stringbase; unsigned int stringsize; unsigned int parsed_size; carsym *carsyms; unsigned int nsymz; /* Number of symbols in armap. */ bfd_vma (*swap) PARAMS ((const bfd_byte *)); char int_buf[sizeof (long)]; unsigned int carsym_size, ptrsize, i; mapdata = _bfd_snarf_ar_hdr (abfd); if (mapdata == NULL) return false; parsed_size = mapdata->parsed_size; bfd_release (abfd, (PTR) mapdata); /* Don't need it any more. */ if (bfd_read ((PTR) int_buf, 1, 4, abfd) != 4) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_malformed_archive); return false; } /* It seems that all numeric information in a coff archive is always in big endian format, nomatter the host or target. */ swap = bfd_getb32; nsymz = bfd_getb32 ((PTR) int_buf); stringsize = parsed_size - (4 * nsymz) - 4; #if 1 /* ... except that some archive formats are broken, and it may be our fault - the i960 little endian coff sometimes has big and sometimes little, because our tools changed. Here's a horrible hack to clean up the crap. */ if (stringsize > 0xfffff) { /* This looks dangerous, let's do it the other way around */ nsymz = bfd_getl32 ((PTR) int_buf); stringsize = parsed_size - (4 * nsymz) - 4; swap = bfd_getl32; } #endif /* The coff armap must be read sequentially. So we construct a bsd-style one in core all at once, for simplicity. */ carsym_size = (nsymz * sizeof (carsym)); ptrsize = (4 * nsymz); ardata->symdefs = (carsym *) bfd_zalloc (abfd, carsym_size + stringsize + 1); if (ardata->symdefs == NULL) { bfd_set_error (bfd_error_no_memory); return false; } carsyms = ardata->symdefs; stringbase = ((char *) ardata->symdefs) + carsym_size; /* Allocate and read in the raw offsets. */ raw_armap = (int *) bfd_alloc (abfd, ptrsize); if (raw_armap == NULL) { bfd_set_error (bfd_error_no_memory); goto release_symdefs; } if (bfd_read ((PTR) raw_armap, 1, ptrsize, abfd) != ptrsize || bfd_read ((PTR) stringbase, 1, stringsize, abfd) != stringsize) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_malformed_archive); goto release_raw_armap; } /* OK, build the carsyms */ for (i = 0; i < nsymz; i++) { rawptr = raw_armap + i; carsyms->file_offset = swap ((PTR) rawptr); carsyms->name = stringbase; stringbase += strlen (stringbase) + 1; carsyms++; } *stringbase = 0; ardata->symdef_count = nsymz; ardata->first_file_filepos = bfd_tell (abfd); /* Pad to an even boundary if you have to */ ardata->first_file_filepos += (ardata->first_file_filepos) % 2; bfd_has_map (abfd) = true; bfd_release (abfd, (PTR) raw_armap); return true; release_raw_armap: bfd_release (abfd, (PTR) raw_armap); release_symdefs: bfd_release (abfd, (PTR) (ardata)->symdefs); return false; } /* This routine can handle either coff-style or bsd-style armaps. Returns false on error, true otherwise */ boolean bfd_slurp_armap (abfd) bfd *abfd; { char nextname[17]; int i = bfd_read ((PTR) nextname, 1, 16, abfd); if (i == 0) return true; if (i != 16) return false; if (bfd_seek (abfd, (file_ptr) - 16, SEEK_CUR) != 0) return false; if (!strncmp (nextname, "__.SYMDEF ", 16) || !strncmp (nextname, "__.SYMDEF/ ", 16)) /* old Linux archives */ return do_slurp_bsd_armap (abfd); else if (!strncmp (nextname, "/ ", 16)) return do_slurp_coff_armap (abfd); bfd_has_map (abfd) = false; return true; } /* Returns false on error, true otherwise */ /* flavor 2 of a bsd armap, similar to bfd_slurp_bsd_armap except the header is in a slightly different order and the map name is '/'. This flavour is used by hp300hpux. */ #define HPUX_SYMDEF_COUNT_SIZE 2 boolean bfd_slurp_bsd_armap_f2 (abfd) bfd *abfd; { struct areltdata *mapdata; char nextname[17]; unsigned int counter; bfd_byte *raw_armap, *rbase; struct artdata *ardata = bfd_ardata (abfd); char *stringbase; unsigned int stringsize; carsym *set; int i = bfd_read ((PTR) nextname, 1, 16, abfd); if (i == 0) return true; if (i != 16) return false; /* The archive has at least 16 bytes in it */ if (bfd_seek (abfd, -16L, SEEK_CUR) != 0) return false; if (!strncmp (nextname, "__.SYMDEF ", 16) || !strncmp (nextname, "__.SYMDEF/ ", 16)) /* old Linux archives */ return do_slurp_bsd_armap (abfd); if (strncmp (nextname, "/ ", 16)) { bfd_has_map (abfd) = false; return true; } mapdata = _bfd_snarf_ar_hdr (abfd); if (mapdata == NULL) return false; raw_armap = (bfd_byte *) bfd_zalloc (abfd, mapdata->parsed_size); if (raw_armap == NULL) { bfd_set_error (bfd_error_no_memory); byebye: bfd_release (abfd, (PTR) mapdata); return false; } if (bfd_read ((PTR) raw_armap, 1, mapdata->parsed_size, abfd) != mapdata->parsed_size) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_malformed_archive); byebyebye: bfd_release (abfd, (PTR) raw_armap); goto byebye; } ardata->symdef_count = bfd_h_get_16 (abfd, (PTR) raw_armap); if (ardata->symdef_count * BSD_SYMDEF_SIZE > mapdata->parsed_size - HPUX_SYMDEF_COUNT_SIZE) { /* Probably we're using the wrong byte ordering. */ bfd_set_error (bfd_error_wrong_format); goto byebyebye; } ardata->cache = 0; stringsize = bfd_h_get_32 (abfd, raw_armap + HPUX_SYMDEF_COUNT_SIZE); /* skip sym count and string sz */ stringbase = ((char *) raw_armap + HPUX_SYMDEF_COUNT_SIZE + BSD_STRING_COUNT_SIZE); rbase = (bfd_byte *) stringbase + stringsize; ardata->symdefs = (carsym *) bfd_alloc (abfd, (ardata->symdef_count * BSD_SYMDEF_SIZE)); if (!ardata->symdefs) { bfd_set_error (bfd_error_no_memory); return false; } for (counter = 0, set = ardata->symdefs; counter < ardata->symdef_count; counter++, set++, rbase += BSD_SYMDEF_SIZE) { set->name = bfd_h_get_32 (abfd, rbase) + stringbase; set->file_offset = bfd_h_get_32 (abfd, rbase + BSD_SYMDEF_OFFSET_SIZE); } ardata->first_file_filepos = bfd_tell (abfd); /* Pad to an even boundary if you have to */ ardata->first_file_filepos += (ardata->first_file_filepos) % 2; /* FIXME, we should provide some way to free raw_ardata when we are done using the strings from it. For now, it seems to be allocated on an obstack anyway... */ bfd_has_map (abfd) = true; return true; } /** Extended name table. Normally archives support only 14-character filenames. Intel has extended the format: longer names are stored in a special element (the first in the archive, or second if there is an armap); the name in the ar_hdr is replaced by . Index is the P.R. of an int (decimal). Data General have extended the format by using the prefix // for the special element */ /* Returns false on error, true otherwise */ boolean _bfd_slurp_extended_name_table (abfd) bfd *abfd; { char nextname[17]; struct areltdata *namedata; /* FIXME: Formatting sucks here, and in case of failure of BFD_READ, we probably don't want to return true. */ if (bfd_read ((PTR) nextname, 1, 16, abfd) == 16) { if (bfd_seek (abfd, (file_ptr) - 16, SEEK_CUR) != 0) return false; if (strncmp (nextname, "ARFILENAMES/ ", 16) != 0 && strncmp (nextname, "// ", 16) != 0) { bfd_ardata (abfd)->extended_names = NULL; return true; } namedata = _bfd_snarf_ar_hdr (abfd); if (namedata == NULL) return false; bfd_ardata (abfd)->extended_names = bfd_zalloc (abfd, namedata->parsed_size); if (bfd_ardata (abfd)->extended_names == NULL) { bfd_set_error (bfd_error_no_memory); byebye: bfd_release (abfd, (PTR) namedata); return false; } if (bfd_read ((PTR) bfd_ardata (abfd)->extended_names, 1, namedata->parsed_size, abfd) != namedata->parsed_size) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_malformed_archive); bfd_release (abfd, (PTR) (bfd_ardata (abfd)->extended_names)); bfd_ardata (abfd)->extended_names = NULL; goto byebye; } /* Since the archive is supposed to be printable if it contains text, the entries in the list are newline-padded, not null padded. In SVR4-style archives, the names also have a trailing '/'. We'll fix both problems here.. */ { char *temp = bfd_ardata (abfd)->extended_names; char *limit = temp + namedata->parsed_size; for (; temp < limit; ++temp) if (*temp == '\012') temp[temp[-1] == '/' ? -1 : 0] = '\0'; } /* Pad to an even boundary if you have to */ bfd_ardata (abfd)->first_file_filepos = bfd_tell (abfd); bfd_ardata (abfd)->first_file_filepos += (bfd_ardata (abfd)->first_file_filepos) % 2; /* FIXME, we can't release namedata here because it was allocated below extended_names on the obstack... */ /* bfd_release (abfd, namedata); */ } return true; } #ifdef VMS /* Return a copy of the stuff in the filename between any :]> and a semicolon */ static const char * normalize (file) const char *file; { CONST char *first; CONST char *last; char *copy; first = file + strlen (file) - 1; last = first + 1; while (first != file) { if (*first == ';') last = first; if (*first == ':' || *first == ']' || *first == '>') { first++; break; } first--; } copy = malloc (last - first + 1); if (!copy) return copy; memcpy (copy, first, last - first); copy[last - first] = 0; return copy; } #else static const char * normalize (file) const char *file; { CONST char *filename = strrchr (file, '/'); if (filename != (char *) NULL) filename++; else filename = file; return filename; } #endif /* Follows archive_head and produces an extended name table if necessary. Returns (in tabloc) a pointer to an extended name table, and in tablen the length of the table. If it makes an entry it clobbers the filename so that the element may be written without further massage. Returns true if it ran successfully, false if something went wrong. A successful return may still involve a zero-length tablen! */ static boolean bfd_construct_extended_name_table (abfd, tabloc, tablen) bfd *abfd; char **tabloc; unsigned int *tablen; { unsigned int maxname = abfd->xvec->ar_max_namelen; unsigned int total_namelen = 0; bfd *current; char *strptr; *tablen = 0; /* Figure out how long the table should be */ for (current = abfd->archive_head; current != NULL; current = current->next) { CONST char *normal = normalize (current->filename); unsigned int thislen; if (!normal) { bfd_set_error (bfd_error_no_memory); return false; } thislen = strlen (normal); if (thislen > maxname) total_namelen += thislen + 1; /* leave room for \n */ } if (total_namelen == 0) return true; *tabloc = bfd_zalloc (abfd, total_namelen); if (*tabloc == NULL) { bfd_set_error (bfd_error_no_memory); return false; } *tablen = total_namelen; strptr = *tabloc; for (current = abfd->archive_head; current != NULL; current = current->next) { CONST char *normal = normalize (current->filename); unsigned int thislen; if (!normal) { bfd_set_error (bfd_error_no_memory); return false; } thislen = strlen (normal); if (thislen > maxname) { /* Works for now; may need to be re-engineered if we encounter an oddball archive format and want to generalise this hack. */ struct ar_hdr *hdr = arch_hdr (current); strcpy (strptr, normal); strptr[thislen] = '\012'; hdr->ar_name[0] = ar_padchar (current); /* We know there will always be enough room (one of the few cases where you may safely use sprintf). */ sprintf ((hdr->ar_name) + 1, "%-d", (unsigned) (strptr - *tabloc)); /* Kinda Kludgy. We should just use the returned value of sprintf but not all implementations get this right */ { char *temp = hdr->ar_name + 2; for (; temp < hdr->ar_name + maxname; temp++) if (*temp == '\0') *temp = ' '; } strptr += thislen + 1; } } return true; } /** A couple of functions for creating ar_hdrs */ /* Takes a filename, returns an arelt_data for it, or NULL if it can't make one. The filename must refer to a filename in the filesystem. The filename field of the ar_hdr will NOT be initialized */ static struct areltdata * bfd_ar_hdr_from_filesystem (abfd, filename) bfd *abfd; const char *filename; { struct stat status; struct areltdata *ared; struct ar_hdr *hdr; char *temp, *temp1; if (stat (filename, &status) != 0) { bfd_set_error (bfd_error_system_call); return NULL; } ared = (struct areltdata *) bfd_zalloc (abfd, sizeof (struct ar_hdr) + sizeof (struct areltdata)); if (ared == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } hdr = (struct ar_hdr *) (((char *) ared) + sizeof (struct areltdata)); /* ar headers are space padded, not null padded! */ memset ((PTR) hdr, ' ', sizeof (struct ar_hdr)); strncpy (hdr->ar_fmag, ARFMAG, 2); /* Goddamned sprintf doesn't permit MAXIMUM field lengths */ sprintf ((hdr->ar_date), "%-12ld", (long) status.st_mtime); sprintf ((hdr->ar_uid), "%ld", (long) status.st_uid); sprintf ((hdr->ar_gid), "%ld", (long) status.st_gid); sprintf ((hdr->ar_mode), "%-8o", (unsigned int) status.st_mode); sprintf ((hdr->ar_size), "%-10ld", (long) status.st_size); /* Correct for a lossage in sprintf whereby it null-terminates. I cannot understand how these C losers could design such a ramshackle bunch of IO operations */ temp = (char *) hdr; temp1 = temp + sizeof (struct ar_hdr) - 2; for (; temp < temp1; temp++) { if (*temp == '\0') *temp = ' '; } strncpy (hdr->ar_fmag, ARFMAG, 2); ared->parsed_size = status.st_size; ared->arch_header = (char *) hdr; return ared; } /* This is magic required by the "ar" program. Since it's undocumented, it's undocumented. You may think that it would take a strong stomach to write this, and it does, but it takes even a stronger stomach to try to code around such a thing! */ struct ar_hdr * bfd_special_undocumented_glue (abfd, filename) bfd *abfd; char *filename; { struct areltdata *ar_elt = bfd_ar_hdr_from_filesystem (abfd, filename); if (ar_elt == NULL) return NULL; return (struct ar_hdr *) ar_elt->arch_header; } /* Analogous to stat call */ int bfd_generic_stat_arch_elt (abfd, buf) bfd *abfd; struct stat *buf; { struct ar_hdr *hdr; char *aloser; if (abfd->arelt_data == NULL) { bfd_set_error (bfd_error_invalid_operation); return -1; } hdr = arch_hdr (abfd); #define foo(arelt, stelt, size) \ buf->stelt = strtol (hdr->arelt, &aloser, size); \ if (aloser == hdr->arelt) return -1; foo (ar_date, st_mtime, 10); foo (ar_uid, st_uid, 10); foo (ar_gid, st_gid, 10); foo (ar_mode, st_mode, 8); buf->st_size = arch_eltdata (abfd)->parsed_size; return 0; } void bfd_dont_truncate_arname (abfd, pathname, arhdr) bfd *abfd; CONST char *pathname; char *arhdr; { /* FIXME: This interacts unpleasantly with ar's quick-append option. Fortunately ic960 users will never use that option. Fixing this is very hard; fortunately I know how to do it and will do so once intel's release is out the door. */ struct ar_hdr *hdr = (struct ar_hdr *) arhdr; int length; CONST char *filename = normalize (pathname); int maxlen = ar_maxnamelen (abfd); length = strlen (filename); if (length <= maxlen) memcpy (hdr->ar_name, filename, length); if (length < maxlen) (hdr->ar_name)[length] = ar_padchar (abfd); } void bfd_bsd_truncate_arname (abfd, pathname, arhdr) bfd *abfd; CONST char *pathname; char *arhdr; { struct ar_hdr *hdr = (struct ar_hdr *) arhdr; int length; CONST char *filename = strrchr (pathname, '/'); int maxlen = ar_maxnamelen (abfd); if (filename == NULL) filename = pathname; else ++filename; length = strlen (filename); if (length <= maxlen) memcpy (hdr->ar_name, filename, length); else { /* pathname: meet procrustes */ memcpy (hdr->ar_name, filename, maxlen); length = maxlen; } if (length < maxlen) (hdr->ar_name)[length] = ar_padchar (abfd); } /* Store name into ar header. Truncates the name to fit. 1> strip pathname to be just the basename. 2> if it's short enuf to fit, stuff it in. 3> If it doesn't end with .o, truncate it to fit 4> truncate it before the .o, append .o, stuff THAT in. */ /* This is what gnu ar does. It's better but incompatible with the bsd ar. */ void bfd_gnu_truncate_arname (abfd, pathname, arhdr) bfd *abfd; CONST char *pathname; char *arhdr; { struct ar_hdr *hdr = (struct ar_hdr *) arhdr; int length; CONST char *filename = strrchr (pathname, '/'); int maxlen = ar_maxnamelen (abfd); if (filename == NULL) filename = pathname; else ++filename; length = strlen (filename); if (length <= maxlen) memcpy (hdr->ar_name, filename, length); else { /* pathname: meet procrustes */ memcpy (hdr->ar_name, filename, maxlen); if ((filename[length - 2] == '.') && (filename[length - 1] == 'o')) { hdr->ar_name[maxlen - 2] = '.'; hdr->ar_name[maxlen - 1] = 'o'; } length = maxlen; } if (length < 16) (hdr->ar_name)[length] = ar_padchar (abfd); } /* The BFD is open for write and has its format set to bfd_archive */ boolean _bfd_write_archive_contents (arch) bfd *arch; { bfd *current; char *etable = NULL; unsigned int elength = 0; boolean makemap = bfd_has_map (arch); boolean hasobjects = false; /* if no .o's, don't bother to make a map */ bfd_size_type wrote; unsigned int i; int tries; /* Verify the viability of all entries; if any of them live in the filesystem (as opposed to living in an archive open for input) then construct a fresh ar_hdr for them. */ for (current = arch->archive_head; current; current = current->next) { if (bfd_write_p (current)) { bfd_set_error (bfd_error_invalid_operation); return false; } if (!current->arelt_data) { current->arelt_data = (PTR) bfd_ar_hdr_from_filesystem (arch, current->filename); if (!current->arelt_data) return false; /* Put in the file name */ BFD_SEND (arch, _bfd_truncate_arname, (arch, current->filename, (char *) arch_hdr (current))); } if (makemap && ! hasobjects) { /* don't bother if we won't make a map! */ if ((bfd_check_format (current, bfd_object)) #if 0 /* FIXME -- these are not set correctly */ && ((bfd_get_file_flags (current) & HAS_SYMS)) #endif ) hasobjects = true; } } if (!bfd_construct_extended_name_table (arch, &etable, &elength)) return false; if (bfd_seek (arch, (file_ptr) 0, SEEK_SET) != 0) return false; #ifdef GNU960 wrote = bfd_write (BFD_GNU960_ARMAG (arch), 1, SARMAG, arch); #else wrote = bfd_write (ARMAG, 1, SARMAG, arch); #endif if (wrote != SARMAG) return false; if (makemap && hasobjects) { if (compute_and_write_armap (arch, elength) != true) return false; } if (elength != 0) { struct ar_hdr hdr; memset ((char *) (&hdr), 0, sizeof (struct ar_hdr)); if (ar_padchar (arch) == '/') sprintf (&(hdr.ar_name[0]), "//"); else sprintf (&(hdr.ar_name[0]), "ARFILENAMES/"); sprintf (&(hdr.ar_size[0]), "%-10d", (int) elength); strncpy (hdr.ar_fmag, ARFMAG, 2); for (i = 0; i < sizeof (struct ar_hdr); i++) if (((char *) (&hdr))[i] == '\0') (((char *) (&hdr))[i]) = ' '; if ((bfd_write ((char *) &hdr, 1, sizeof (struct ar_hdr), arch) != sizeof (struct ar_hdr)) || bfd_write (etable, 1, elength, arch) != elength) return false; if ((elength % 2) == 1) { if (bfd_write ("\012", 1, 1, arch) != 1) return false; } } for (current = arch->archive_head; current; current = current->next) { char buffer[DEFAULT_BUFFERSIZE]; unsigned int remaining = arelt_size (current); struct ar_hdr *hdr = arch_hdr (current); /* write ar header */ if (bfd_write ((char *) hdr, 1, sizeof (*hdr), arch) != sizeof (*hdr)) return false; if (bfd_seek (current, (file_ptr) 0, SEEK_SET) != 0) return false; while (remaining) { unsigned int amt = DEFAULT_BUFFERSIZE; if (amt > remaining) amt = remaining; errno = 0; if (bfd_read (buffer, amt, 1, current) != amt) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_malformed_archive); return false; } if (bfd_write (buffer, amt, 1, arch) != amt) return false; remaining -= amt; } if ((arelt_size (current) % 2) == 1) { if (bfd_write ("\012", 1, 1, arch) != 1) return false; } } /* Verify the timestamp in the archive file. If it would not be accepted by the linker, rewrite it until it would be. If anything odd happens, break out and just return. (The Berkeley linker checks the timestamp and refuses to read the table-of-contents if it is >60 seconds less than the file's modified-time. That painful hack requires this painful hack. */ tries = 1; do { /* FIXME! This kludge is to avoid adding a member to the xvec, while generating a small patch for Adobe. FIXME! The update_armap_timestamp function call should be in the xvec, thus: if (bfd_update_armap_timestamp (arch) == true) break; ^ Instead, we check whether in a BSD archive, and call directly. */ if (arch->xvec->write_armap != bsd_write_armap) break; if (bsd_update_armap_timestamp (arch) == true) /* FIXME!!! Vector it */ break; if (tries > 0) fprintf (stderr, "Warning: writing archive was slow: rewriting timestamp\n"); } while (++tries < 6); return true; } /* Note that the namidx for the first symbol is 0 */ static boolean compute_and_write_armap (arch, elength) bfd *arch; unsigned int elength; { char *first_name = NULL; bfd *current; file_ptr elt_no = 0; struct orl *map = NULL; int orl_max = 1024; /* fine initial default */ int orl_count = 0; int stridx = 0; /* string index */ asymbol **syms = NULL; long syms_max = 0; boolean ret; /* Dunno if this is the best place for this info... */ if (elength != 0) elength += sizeof (struct ar_hdr); elength += elength % 2; map = (struct orl *) malloc (orl_max * sizeof (struct orl)); if (map == NULL) goto no_memory_return; /* We put the symbol names on the arch obstack, and then discard them when done. */ first_name = bfd_alloc (arch, 1); if (first_name == NULL) goto no_memory_return; /* Drop all the files called __.SYMDEF, we're going to make our own */ while (arch->archive_head && strcmp (arch->archive_head->filename, "__.SYMDEF") == 0) arch->archive_head = arch->archive_head->next; /* Map over each element */ for (current = arch->archive_head; current != (bfd *) NULL; current = current->next, elt_no++) { if ((bfd_check_format (current, bfd_object) == true) && ((bfd_get_file_flags (current) & HAS_SYMS))) { long storage; long symcount; long src_count; storage = bfd_get_symtab_upper_bound (current); if (storage < 0) goto error_return; if (storage != 0) { if (storage > syms_max) { if (syms_max > 0) free (syms); syms_max = storage; syms = (asymbol **) malloc ((size_t) syms_max); if (syms == NULL) goto no_memory_return; } symcount = bfd_canonicalize_symtab (current, syms); if (symcount < 0) goto error_return; /* Now map over all the symbols, picking out the ones we want */ for (src_count = 0; src_count < symcount; src_count++) { flagword flags = (syms[src_count])->flags; asection *sec = syms[src_count]->section; if ((flags & BSF_GLOBAL || flags & BSF_WEAK || flags & BSF_INDIRECT || bfd_is_com_section (sec)) && ! bfd_is_und_section (sec)) { size_t namelen; struct orl *new_map; /* This symbol will go into the archive header */ if (orl_count == orl_max) { orl_max *= 2; new_map = ((struct orl *) realloc ((PTR) map, orl_max * sizeof (struct orl))); if (new_map == (struct orl *) NULL) goto no_memory_return; map = new_map; } namelen = strlen (syms[src_count]->name); map[orl_count].name = ((char **) bfd_alloc (arch, sizeof (char *))); if (map[orl_count].name == NULL) goto no_memory_return; *(map[orl_count].name) = bfd_alloc (arch, namelen + 1); if (*(map[orl_count].name) == NULL) goto no_memory_return; strcpy (*(map[orl_count].name), syms[src_count]->name); (map[orl_count]).pos = (file_ptr) current; (map[orl_count]).namidx = stridx; stridx += namelen + 1; ++orl_count; } } } /* Now ask the BFD to free up any cached information, so we don't fill all of memory with symbol tables. */ if (! bfd_free_cached_info (current)) goto error_return; } } /* OK, now we have collected all the data, let's write them out */ ret = BFD_SEND (arch, write_armap, (arch, elength, map, orl_count, stridx)); if (syms_max > 0) free (syms); if (map != NULL) free (map); if (first_name != NULL) bfd_release (arch, first_name); return ret; no_memory_return: bfd_set_error (bfd_error_no_memory); error_return: if (syms_max > 0) free (syms); if (map != NULL) free (map); if (first_name != NULL) bfd_release (arch, first_name); return false; } boolean bsd_write_armap (arch, elength, map, orl_count, stridx) bfd *arch; unsigned int elength; struct orl *map; unsigned int orl_count; int stridx; { int padit = stridx & 1; unsigned int ranlibsize = orl_count * sizeof (struct ranlib); unsigned int stringsize = stridx + padit; /* Include 8 bytes to store ranlibsize and stringsize in output. */ unsigned int mapsize = ranlibsize + stringsize + 8; file_ptr firstreal; bfd *current = arch->archive_head; bfd *last_elt = current; /* last element arch seen */ int temp; int count; struct ar_hdr hdr; struct stat statbuf; unsigned int i; firstreal = mapsize + elength + sizeof (struct ar_hdr) + SARMAG; stat (arch->filename, &statbuf); memset ((char *) (&hdr), 0, sizeof (struct ar_hdr)); sprintf (hdr.ar_name, RANLIBMAG); /* Remember the timestamp, to keep it holy. But fudge it a little. */ bfd_ardata (arch)->armap_timestamp = statbuf.st_mtime + ARMAP_TIME_OFFSET; bfd_ardata (arch)->armap_datepos = (SARMAG + offsetof (struct ar_hdr, ar_date[0])); sprintf (hdr.ar_date, "%ld", bfd_ardata (arch)->armap_timestamp); sprintf (hdr.ar_uid, "%d", getuid ()); sprintf (hdr.ar_gid, "%d", getgid ()); sprintf (hdr.ar_size, "%-10d", (int) mapsize); strncpy (hdr.ar_fmag, ARFMAG, 2); for (i = 0; i < sizeof (struct ar_hdr); i++) if (((char *) (&hdr))[i] == '\0') (((char *) (&hdr))[i]) = ' '; if (bfd_write ((char *) &hdr, 1, sizeof (struct ar_hdr), arch) != sizeof (struct ar_hdr)) return false; bfd_h_put_32 (arch, (bfd_vma) ranlibsize, (PTR) &temp); if (bfd_write (&temp, 1, sizeof (temp), arch) != sizeof (temp)) return false; for (count = 0; count < orl_count; count++) { struct symdef outs; struct symdef *outp = &outs; if (((bfd *) (map[count]).pos) != last_elt) { do { firstreal += arelt_size (current) + sizeof (struct ar_hdr); firstreal += firstreal % 2; current = current->next; } while (current != (bfd *) (map[count]).pos); } /* if new archive element */ last_elt = current; bfd_h_put_32 (arch, ((map[count]).namidx), (PTR) &outs.s.string_offset); bfd_h_put_32 (arch, firstreal, (PTR) &outs.file_offset); if (bfd_write ((char *) outp, 1, sizeof (outs), arch) != sizeof (outs)) return false; } /* now write the strings themselves */ bfd_h_put_32 (arch, stringsize, (PTR) &temp); if (bfd_write ((PTR) &temp, 1, sizeof (temp), arch) != sizeof (temp)) return false; for (count = 0; count < orl_count; count++) { size_t len = strlen (*map[count].name) + 1; if (bfd_write (*map[count].name, 1, len, arch) != len) return false; } /* The spec sez this should be a newline. But in order to be bug-compatible for sun's ar we use a null. */ if (padit) { if (bfd_write ("", 1, 1, arch) != 1) return false; } return true; } /* At the end of archive file handling, update the timestamp in the file, so the linker will accept it. Return true if the timestamp was OK, or an unusual problem happened. Return false if we updated the timestamp. */ static boolean bsd_update_armap_timestamp (arch) bfd *arch; { struct stat archstat; struct ar_hdr hdr; int i; /* Flush writes, get last-write timestamp from file, and compare it to the timestamp IN the file. */ bfd_flush (arch); if (bfd_stat (arch, &archstat) == -1) { perror ("Reading archive file mod timestamp"); return true; /* Can't read mod time for some reason */ } if (archstat.st_mtime <= bfd_ardata (arch)->armap_timestamp) return true; /* OK by the linker's rules */ /* Update the timestamp. */ bfd_ardata (arch)->armap_timestamp = archstat.st_mtime + ARMAP_TIME_OFFSET; /* Prepare an ASCII version suitable for writing. */ memset (hdr.ar_date, 0, sizeof (hdr.ar_date)); sprintf (hdr.ar_date, "%ld", bfd_ardata (arch)->armap_timestamp); for (i = 0; i < sizeof (hdr.ar_date); i++) if (hdr.ar_date[i] == '\0') (hdr.ar_date)[i] = ' '; /* Write it into the file. */ if (bfd_seek (arch, bfd_ardata (arch)->armap_datepos, SEEK_SET) != 0 || (bfd_write (hdr.ar_date, sizeof (hdr.ar_date), 1, arch) != sizeof (hdr.ar_date))) { /* FIXME: bfd can't call perror. */ perror ("Writing updated armap timestamp"); return true; /* Some error while writing */ } return false; /* We updated the timestamp successfully. */ } /* A coff armap looks like : lARMAG struct ar_hdr with name = '/' number of symbols offset of file for symbol 0 offset of file for symbol 1 offset of file for symbol n-1 symbol name 0 symbol name 1 symbol name n-1 */ boolean coff_write_armap (arch, elength, map, symbol_count, stridx) bfd *arch; unsigned int elength; struct orl *map; unsigned int symbol_count; int stridx; { /* The size of the ranlib is the number of exported symbols in the archive * the number of bytes in a int, + an int for the count */ unsigned int ranlibsize = (symbol_count * 4) + 4; unsigned int stringsize = stridx; unsigned int mapsize = stringsize + ranlibsize; file_ptr archive_member_file_ptr; bfd *current = arch->archive_head; int count; struct ar_hdr hdr; unsigned int i; int padit = mapsize & 1; if (padit) mapsize++; /* work out where the first object file will go in the archive */ archive_member_file_ptr = (mapsize + elength + sizeof (struct ar_hdr) + SARMAG); memset ((char *) (&hdr), 0, sizeof (struct ar_hdr)); hdr.ar_name[0] = '/'; sprintf (hdr.ar_size, "%-10d", (int) mapsize); sprintf (hdr.ar_date, "%ld", (long) time (NULL)); /* This, at least, is what Intel coff sets the values to.: */ sprintf ((hdr.ar_uid), "%d", 0); sprintf ((hdr.ar_gid), "%d", 0); sprintf ((hdr.ar_mode), "%-7o", (unsigned) 0); strncpy (hdr.ar_fmag, ARFMAG, 2); for (i = 0; i < sizeof (struct ar_hdr); i++) if (((char *) (&hdr))[i] == '\0') (((char *) (&hdr))[i]) = ' '; /* Write the ar header for this item and the number of symbols */ if (bfd_write ((PTR) &hdr, 1, sizeof (struct ar_hdr), arch) != sizeof (struct ar_hdr)) return false; bfd_write_bigendian_4byte_int (arch, symbol_count); /* Two passes, first write the file offsets for each symbol - remembering that each offset is on a two byte boundary. */ /* Write out the file offset for the file associated with each symbol, and remember to keep the offsets padded out. */ current = arch->archive_head; count = 0; while (current != (bfd *) NULL && count < symbol_count) { /* For each symbol which is used defined in this object, write out the object file's address in the archive */ while (((bfd *) (map[count]).pos) == current) { bfd_write_bigendian_4byte_int (arch, archive_member_file_ptr); count++; } /* Add size of this archive entry */ archive_member_file_ptr += (arelt_size (current) + sizeof (struct ar_hdr)); /* remember aboout the even alignment */ archive_member_file_ptr += archive_member_file_ptr % 2; current = current->next; } /* now write the strings themselves */ for (count = 0; count < symbol_count; count++) { size_t len = strlen (*map[count].name) + 1; if (bfd_write (*map[count].name, 1, len, arch) != len) return false; } /* The spec sez this should be a newline. But in order to be bug-compatible for arc960 we use a null. */ if (padit) { if (bfd_write ("", 1, 1, arch) != 1) return false; } return true; } gdb-4.13/bfd/archures.c 666 34562 1752 40324 5611327423 13276 0ustar fnfcygnus/* BFD library support routines for architectures. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Hacked by John Gilmore and Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION Architectures BFD keeps one atom in a BFD describing the architecture of the data attached to the BFD: a pointer to a <>. Pointers to structures can be requested independently of a BFD so that an architecture's information can be interrogated without access to an open BFD. The architecture information is provided by each architecture package. The set of default architectures is selected by the macro <>. This is normally set up in the @file{config/@var{target}.mt} file of your choice. If the name is not defined, then all the architectures supported are included. When BFD starts up, all the architectures are called with an initialize method. It is up to the architecture back end to insert as many items into the list of architectures as it wants to; generally this would be one for each machine and one for the default case (an item with a machine field of 0). BFD's idea of an architecture is implemented in @file{archures.c}. */ /* SUBSECTION bfd_architecture DESCRIPTION This enum gives the object file's CPU architecture, in a global sense---i.e., what processor family does it belong to? Another field indicates which processor within the family is in use. The machine gives a number which distinguishes different versions of the architecture, containing, for example, 2 and 3 for Intel i960 KA and i960 KB, and 68020 and 68030 for Motorola 68020 and 68030. .enum bfd_architecture .{ . bfd_arch_unknown, {* File arch not known *} . bfd_arch_obscure, {* Arch known, not one of these *} . bfd_arch_m68k, {* Motorola 68xxx *} . bfd_arch_vax, {* DEC Vax *} . bfd_arch_i960, {* Intel 960 *} . {* The order of the following is important. . lower number indicates a machine type that . only accepts a subset of the instructions . available to machines with higher numbers. . The exception is the "ca", which is . incompatible with all other machines except . "core". *} . .#define bfd_mach_i960_core 1 .#define bfd_mach_i960_ka_sa 2 .#define bfd_mach_i960_kb_sb 3 .#define bfd_mach_i960_mc 4 .#define bfd_mach_i960_xa 5 .#define bfd_mach_i960_ca 6 . . bfd_arch_a29k, {* AMD 29000 *} . bfd_arch_sparc, {* SPARC *} . bfd_arch_mips, {* MIPS Rxxxx *} . bfd_arch_i386, {* Intel 386 *} . bfd_arch_we32k, {* AT&T WE32xxx *} . bfd_arch_tahoe, {* CCI/Harris Tahoe *} . bfd_arch_i860, {* Intel 860 *} . bfd_arch_romp, {* IBM ROMP PC/RT *} . bfd_arch_alliant, {* Alliant *} . bfd_arch_convex, {* Convex *} . bfd_arch_m88k, {* Motorola 88xxx *} . bfd_arch_pyramid, {* Pyramid Technology *} . bfd_arch_h8300, {* Hitachi H8/300 *} .#define bfd_mach_h8300 1 .#define bfd_mach_h8300h 2 . bfd_arch_powerpc, {* PowerPC *} . bfd_arch_rs6000, {* IBM RS/6000 *} . bfd_arch_hppa, {* HP PA RISC *} . bfd_arch_z8k, {* Zilog Z8000 *} .#define bfd_mach_z8001 1 .#define bfd_mach_z8002 2 . bfd_arch_h8500, {* Hitachi H8/500 *} . bfd_arch_sh, {* Hitachi SH *} . bfd_arch_alpha, {* Dec Alpha *} . bfd_arch_ns32k, {* National Semiconductors ns32000 *} . bfd_arch_last . }; */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" /* SUBSECTION bfd_arch_info DESCRIPTION This structure contains information on architectures for use within BFD. . .typedef struct bfd_arch_info .{ . int bits_per_word; . int bits_per_address; . int bits_per_byte; . enum bfd_architecture arch; . long mach; . char *arch_name; . CONST char *printable_name; . unsigned int section_align_power; . {* true if this is the default machine for the architecture *} . boolean the_default; . CONST struct bfd_arch_info * (*compatible) . PARAMS ((CONST struct bfd_arch_info *a, . CONST struct bfd_arch_info *b)); . . boolean (*scan) PARAMS ((CONST struct bfd_arch_info *, CONST char *)); . {* How to disassemble an instruction, producing a printable . representation on a specified stdio stream. This isn't . defined for most processors at present, because of the size . of the additional tables it would drag in, and because gdb . wants to use a different interface. *} . unsigned int (*disassemble) PARAMS ((bfd_vma addr, CONST char *data, . PTR stream)); . . struct bfd_arch_info *next; .} bfd_arch_info_type; */ bfd_arch_info_type *bfd_arch_info_list; /* FUNCTION bfd_printable_name SYNOPSIS CONST char *bfd_printable_name(bfd *abfd); DESCRIPTION Return a printable string representing the architecture and machine from the pointer to the architecture info structure. */ CONST char * bfd_printable_name (abfd) bfd *abfd; { return abfd->arch_info->printable_name; } /* FUNCTION bfd_scan_arch SYNOPSIS bfd_arch_info_type *bfd_scan_arch(CONST char *string); DESCRIPTION Figure out if BFD supports any cpu which could be described with the name @var{string}. Return a pointer to an <> structure if a machine is found, otherwise NULL. */ bfd_arch_info_type * bfd_scan_arch (string) CONST char *string; { struct bfd_arch_info *ap; /* Look through all the installed architectures */ for (ap = bfd_arch_info_list; ap != (bfd_arch_info_type *)NULL; ap = ap->next) { if (ap->scan(ap, string)) return ap; } return (bfd_arch_info_type *)NULL; } /* FUNCTION bfd_arch_get_compatible SYNOPSIS CONST bfd_arch_info_type *bfd_arch_get_compatible( CONST bfd *abfd, CONST bfd *bbfd); DESCRIPTION Determine whether two BFDs' architectures and machine types are compatible. Calculates the lowest common denominator between the two architectures and machine types implied by the BFDs and returns a pointer to an <> structure describing the compatible machine. */ CONST bfd_arch_info_type * bfd_arch_get_compatible (abfd, bbfd) CONST bfd *abfd; CONST bfd *bbfd; { return abfd->arch_info->compatible(abfd->arch_info,bbfd->arch_info); } /* INTERNAL_DEFINITION bfd_default_arch_struct DESCRIPTION The <> is an item of <> which has been initialized to a fairly generic state. A BFD starts life by pointing to this structure, until the correct back end has determined the real architecture of the file. .extern bfd_arch_info_type bfd_default_arch_struct; */ bfd_arch_info_type bfd_default_arch_struct = { 32,32,8,bfd_arch_unknown,0,"unknown","unknown",2,true, bfd_default_compatible, bfd_default_scan, 0, }; /* FUNCTION bfd_set_arch_info SYNOPSIS void bfd_set_arch_info(bfd *abfd, bfd_arch_info_type *arg); DESCRIPTION Set the architecture info of @var{abfd} to @var{arg}. */ void bfd_set_arch_info (abfd, arg) bfd *abfd; bfd_arch_info_type *arg; { abfd->arch_info = arg; } /* INTERNAL_FUNCTION bfd_default_set_arch_mach SYNOPSIS boolean bfd_default_set_arch_mach(bfd *abfd, enum bfd_architecture arch, unsigned long mach); DESCRIPTION Set the architecture and machine type in BFD @var{abfd} to @var{arch} and @var{mach}. Find the correct pointer to a structure and insert it into the <> pointer. */ boolean bfd_default_set_arch_mach (abfd, arch, mach) bfd *abfd; enum bfd_architecture arch; unsigned long mach; { static struct bfd_arch_info *old_ptr = &bfd_default_arch_struct; boolean found = false; /* run through the table to find the one we want, we keep a little cache to speed things up */ if (old_ptr == 0 || arch != old_ptr->arch || mach != old_ptr->mach) { bfd_arch_info_type *ptr; old_ptr = (bfd_arch_info_type *)NULL; for (ptr = bfd_arch_info_list; ptr != (bfd_arch_info_type *)NULL; ptr= ptr->next) { if (ptr->arch == arch && ((ptr->mach == mach) || (ptr->the_default && mach == 0))) { old_ptr = ptr; found = true; break; } } if (found==false) { /*looked for it and it wasn't there, so put in the default */ old_ptr = &bfd_default_arch_struct; bfd_set_error (bfd_error_bad_value); } } else { /* it was in the cache */ found = true; } abfd->arch_info = old_ptr; return found; } /* FUNCTION bfd_get_arch SYNOPSIS enum bfd_architecture bfd_get_arch(bfd *abfd); DESCRIPTION Return the enumerated type which describes the BFD @var{abfd}'s architecture. */ enum bfd_architecture bfd_get_arch (abfd) bfd *abfd; { return abfd->arch_info->arch; } /* FUNCTION bfd_get_mach SYNOPSIS unsigned long bfd_get_mach(bfd *abfd); DESCRIPTION Return the long type which describes the BFD @var{abfd}'s machine. */ unsigned long bfd_get_mach (abfd) bfd *abfd; { return abfd->arch_info->mach; } /* FUNCTION bfd_arch_bits_per_byte SYNOPSIS unsigned int bfd_arch_bits_per_byte(bfd *abfd); DESCRIPTION Return the number of bits in one of the BFD @var{abfd}'s architecture's bytes. */ unsigned int bfd_arch_bits_per_byte (abfd) bfd *abfd; { return abfd->arch_info->bits_per_byte; } /* FUNCTION bfd_arch_bits_per_address SYNOPSIS unsigned int bfd_arch_bits_per_address(bfd *abfd); DESCRIPTION Return the number of bits in one of the BFD @var{abfd}'s architecture's addresses. */ unsigned int bfd_arch_bits_per_address (abfd) bfd *abfd; { return abfd->arch_info->bits_per_address; } extern void bfd_a29k_arch PARAMS ((void)); extern void bfd_alpha_arch PARAMS ((void)); extern void bfd_h8300_arch PARAMS ((void)); extern void bfd_h8500_arch PARAMS ((void)); extern void bfd_hppa_arch PARAMS ((void)); extern void bfd_i386_arch PARAMS ((void)); extern void bfd_i960_arch PARAMS ((void)); extern void bfd_m68k_arch PARAMS ((void)); extern void bfd_m88k_arch PARAMS ((void)); extern void bfd_mips_arch PARAMS ((void)); extern void bfd_powerpc_arch PARAMS ((void)); extern void bfd_rs6000_arch PARAMS ((void)); extern void bfd_sh_arch PARAMS ((void)); extern void bfd_sparc_arch PARAMS ((void)); extern void bfd_vax_arch PARAMS ((void)); extern void bfd_we32k_arch PARAMS ((void)); extern void bfd_z8k_arch PARAMS ((void)); extern void bfd_ns32k_arch PARAMS ((void)); static void (*archures_init_table[]) PARAMS ((void)) = { #ifdef SELECT_ARCHITECTURES SELECT_ARCHITECTURES, #else bfd_a29k_arch, bfd_alpha_arch, bfd_h8300_arch, bfd_h8500_arch, bfd_hppa_arch, bfd_i386_arch, bfd_i960_arch, bfd_m68k_arch, bfd_m88k_arch, bfd_mips_arch, bfd_powerpc_arch, bfd_rs6000_arch, bfd_sh_arch, bfd_sparc_arch, bfd_vax_arch, bfd_we32k_arch, bfd_z8k_arch, bfd_ns32k_arch, #endif 0 }; /* INTERNAL_FUNCTION bfd_arch_init SYNOPSIS void bfd_arch_init(void); DESCRIPTION Initialize the architecture dispatch table by calling all installed architecture packages and getting them to poke around. */ void bfd_arch_init () { void (**ptable) PARAMS ((void)); for (ptable = archures_init_table; *ptable ; ptable++) { (*ptable)(); } } /* INTERNAL_FUNCTION bfd_arch_linkin SYNOPSIS void bfd_arch_linkin(bfd_arch_info_type *ptr); DESCRIPTION Link the architecture info structure @var{ptr} into the list. */ void bfd_arch_linkin (ptr) bfd_arch_info_type *ptr; { ptr->next = bfd_arch_info_list; bfd_arch_info_list = ptr; } /* INTERNAL_FUNCTION bfd_default_compatible SYNOPSIS CONST bfd_arch_info_type *bfd_default_compatible (CONST bfd_arch_info_type *a, CONST bfd_arch_info_type *b); DESCRIPTION The default function for testing for compatibility. */ CONST bfd_arch_info_type * bfd_default_compatible (a,b) CONST bfd_arch_info_type *a; CONST bfd_arch_info_type *b; { if(a->arch != b->arch) return NULL; if (a->mach > b->mach) { return a; } if (b->mach > a->mach) { return b; } return a; } /* INTERNAL_FUNCTION bfd_default_scan SYNOPSIS boolean bfd_default_scan(CONST struct bfd_arch_info *info, CONST char *string); DESCRIPTION The default function for working out whether this is an architecture hit and a machine hit. */ boolean bfd_default_scan (info, string) CONST struct bfd_arch_info *info; CONST char *string; { CONST char *ptr_src; CONST char *ptr_tst; unsigned long number; enum bfd_architecture arch; /* First test for an exact match */ if (strcmp(string, info->printable_name) == 0) return true; /* See how much of the supplied string matches with the architecture, eg the string m68k:68020 would match the 68k entry up to the :, then we get left with the machine number */ for (ptr_src = string, ptr_tst = info->arch_name; *ptr_src && *ptr_tst; ptr_src++, ptr_tst++) { if (*ptr_src != *ptr_tst) break; } /* Chewed up as much of the architecture as will match, skip any colons */ if (*ptr_src == ':') ptr_src++; if (*ptr_src == 0) { /* nothing more, then only keep this one if it is the default machine for this architecture */ return info->the_default; } number = 0; while (isdigit(*ptr_src)) { number = number * 10 + *ptr_src - '0'; ptr_src++; } switch (number) { case 300: arch = bfd_arch_h8300; break; case 500: arch = bfd_arch_h8500; break; case 68010: case 68020: case 68030: case 68040: case 68332: case 68050: case 68000: arch = bfd_arch_m68k; break; case 386: case 80386: case 486: case 80486: arch = bfd_arch_i386; break; case 29000: arch = bfd_arch_a29k; break; case 8000: arch = bfd_arch_z8k; break; case 32000: arch = bfd_arch_we32k; break; case 860: case 80860: arch = bfd_arch_i860; break; case 960: case 80960: arch = bfd_arch_i960; break; case 2000: case 3000: case 4000: case 4400: arch = bfd_arch_mips; break; case 6000: arch = bfd_arch_rs6000; break; default: return false; } if (arch != info->arch) return false; if (number != info->mach) return false; return true; } /* FUNCTION bfd_get_arch_info SYNOPSIS bfd_arch_info_type * bfd_get_arch_info(bfd *abfd); DESCRIPTION Return the architecture info struct in @var{abfd}. */ bfd_arch_info_type * bfd_get_arch_info (abfd) bfd *abfd; { return abfd->arch_info; } /* FUNCTION bfd_lookup_arch SYNOPSIS bfd_arch_info_type *bfd_lookup_arch (enum bfd_architecture arch, long machine); DESCRIPTION Look for the architecure info structure which matches the arguments @var{arch} and @var{machine}. A machine of 0 matches the machine/architecture structure which marks itself as the default. */ bfd_arch_info_type * bfd_lookup_arch (arch, machine) enum bfd_architecture arch; long machine; { bfd_arch_info_type *ap; bfd_check_init(); for (ap = bfd_arch_info_list; ap != (bfd_arch_info_type *)NULL; ap = ap->next) { if (ap->arch == arch && ((ap->mach == machine) || (ap->the_default && machine == 0))) { return ap; } } return (bfd_arch_info_type *)NULL; } /* FUNCTION bfd_printable_arch_mach SYNOPSIS CONST char *bfd_printable_arch_mach (enum bfd_architecture arch, unsigned long machine); DESCRIPTION Return a printable string representing the architecture and machine type. This routine is depreciated. */ CONST char * bfd_printable_arch_mach (arch, machine) enum bfd_architecture arch; unsigned long machine; { bfd_arch_info_type *ap = bfd_lookup_arch(arch, machine); if(ap) return ap->printable_name; return "UNKNOWN!"; } gdb-4.13/bfd/doc/ 777 34562 1752 0 5623251722 11761 5ustar fnfcygnusgdb-4.13/bfd/doc/ChangeLog 666 34562 1752 14600 5537147217 13643 0ustar fnfcygnusWed Jan 12 18:37:12 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfd.texinfo: Added Linker Functions node. * doc/Makefile.in (DOCFILES): Added linker.texi. (SRCDOC): Added linker.c. (linker.texi): New target. Tue Jan 4 10:52:56 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * chew.c: Don't rely on a correct declaration of exit. (chew_exit): New function which just calls exit. (main): Use it. Mon Jan 3 11:40:40 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfd.texinfo: Added Hash Tables node. * Makefile.in (DOCFILES): Added hash.texi. (SRCDOC): Added hash.c. (hash.texi): New target. Thu Dec 30 16:57:04 1993 Ken Raeburn (raeburn@cujo.cygnus.com) * Makefile.in: Delete all references to seclet.c, since it's just been deleted. Don't mention hash.c, linker.c, or genlink.h yet, since they don't contain documentation yet (hint, hint!). Fri Nov 5 10:58:53 1993 David J. Mackenzie (djm@thepub.cygnus.com) * bfd.texinfo: Small cleanups. Fri Nov 19 03:46:11 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * Makefile.in (archures.texi): Depends on $(MKDOC). Tue Aug 10 14:22:39 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * bfd.texinfo (BFD back end): Don't include elfcode.texi, since it's empty now and that triggers a makeinfo bug. Mon Aug 9 16:27:30 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * bfd.texinfo (BFD back end): New section on ELF, includes elf.texi and elfcode.texi. * Makefile.in (DOCFILES): Include elf.texi, elfcode.texi. (SRCDOC): Include elfcode.h, elf.c. (elf.texi, elfcode.texi): New intermediate targets. Thu Jun 24 13:48:13 1993 David J. Mackenzie (djm@thepub.cygnus.com) * Makefile.in (.c.o, chew.o): Put CFLAGS last. * bfdsumm.texi: New file, broken out of bfd.texinfo, to share with ld.texinfo. Mon Jun 14 12:07:07 1993 david d `zoo' zuhn (zoo at rtl.cygnus.com) * Makefile.in (install-info): remove parentdir cruft, Wed Jun 9 16:00:32 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in (mostlyclean): Remove chew.o. Tue May 25 14:46:58 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * Makefile.in (libbfd.h): Use elfcode.h, not elf32.c. Mon May 24 15:50:07 1993 Ken Raeburn (raeburn@cygnus.com) * chew.c (compile): Add a couple of missing casts. Wed May 12 14:45:14 1993 Ian Lance Taylor (ian@cygnus.com) * Makefile.in (CC_FOR_BUILD): New variable, define to be $(CC). (chew.o, $(MKDOC)): Build using CC_FOR_BUILD rather than CC, since it must run on the build machine. Tue Apr 6 22:38:10 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (chew): Don't compile from .c to executable in a single step; it puts a temporary .o filename into the executable, which makes multi-stage comparisons fail. Compile chew.c to chew.o, and link that, which makes identical executables every time. Wed Mar 24 17:26:29 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: fix typo (bfd.texinfo not bfd.texino) Fri Mar 19 01:13:00 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com) * bfd.texinfo: Since BFD version number has been bumped, do same to "version number" on title page, and elsewhere. Should be fixed to extract real version number. Tue Mar 16 12:15:13 1993 Per Bothner (bothner@rtl.cygnus.com) * Makefile.in: Add *clean rules. Mon Jan 11 18:43:56 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * Makefile.in (libbfd.h): Removed duplicate init.c and libbfd.c. Added seclet.c. (bfd.h): Added dependency on bfd.c and seclet.c. Added seclet.c to build. Thu Dec 17 19:35:43 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: added dvi target, define and use $(TEXI2DVI) Thu Dec 3 17:42:48 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * Makefile.in (TEXIDIR): New variable. (bfd.dvi): Look for bfd.texinfo in $(srcdir). Generate index. * bfd.texinfo: Minor doc fixes. Thu Nov 5 03:13:55 1992 John Gilmore (gnu@cygnus.com) Cleanup: Replace all uses of EXFUN in the BFD sources, with PARAMS. * doc/chew.c (exfunstuff): Eliminate. (paramstuff): Replace exfunstuff with function to generate PARAMS. * doc/proto.str: Use paramstuff rather than exfunstuff. Mon Aug 17 12:40:32 1992 Steve Chamberlain (sac@thepub.cygnus.com) * chew.c: various patches provided by Howard Chu. Fri Jun 19 18:59:54 1992 John Gilmore (gnu at cygnus.com) * Makefile.in (libbfd.h): Add elf.c as a source of prototypes. Mon May 11 18:55:59 1992 John Gilmore (gnu at cygnus.com) * chew.c: exit() should be declared by config files, not by portable source code. Its type could be int or void function. Mon May 4 13:45:57 1992 K. Richard Pixley (rich@rtl.cygnus.com) * Makefile.in: another CFLAGS correction. Tue Apr 28 10:21:32 1992 K. Richard Pixley (rich@rtl.cygnus.com) * Makefile.in: Do the CFLAGS thing. Fri Apr 10 22:34:52 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (MINUS_G): Add macro and default to -g. Fri Mar 6 18:53:18 1992 Steve Chamberlain (sac@thepub.cygnus.com) * chew.c: now has -w switch turn on warnings Wed Feb 26 18:04:40 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in, configure.in: removed traces of namesubdir, -subdirs, $(subdir), $(unsubdir), some rcs triggers. Forced copyrights to '92, changed some from Cygnus to FSF. Tue Dec 10 22:11:05 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: build chew into the current directory. Complete the MKDOC macro transition. Tue Dec 10 08:26:28 1991 Steve Chamberlain (sac at rtl.cygnus.com) * chew.c: don't core dump when can't open file * Makefile.in: get proto.str from the right place when built in odd directories Tue Dec 10 04:07:25 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: infodir belongs in datadir. Sat Dec 7 17:01:23 1991 Steve Chamberlain (sac at rtl.cygnus.com) * chew.c: Much modified * proto.str, doc.str: New files for extracting to product prototypes and documents respectively. Fri Dec 6 22:57:12 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: added standards.text support, host/site/target inclusion hooks, install using INSTALL_DATA rather than cp, don't echo on install. Thu Dec 5 22:46:17 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: idestdir and ddestdir go away. Added copyrights and shift gpl to v2. Added ChangeLog if it didn't exist. docdir and mandir now keyed off datadir by default. Local Variables: version-control: never End: gdb-4.13/bfd/doc/Makefile.in 666 34562 1752 23501 5515105245 14125 0ustar fnfcygnus# # Makefile # Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation # # This file 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ # srcdir = . prefix = /usr/local exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include docdir = $(datadir)/doc MKDOC=./chew SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) AR = ar AR_FLAGS = qv BISON = bison MAKEINFO = makeinfo TEXI2DVI = texi2dvi RANLIB = ranlib CFLAGS = -g CC_FOR_BUILD = $(CC) #### Host, target, and site specific Makefile fragments come in here. ### .c.o: $(CC) -c -I.. -I$(srcdir)/.. -I$(srcdir)/../../include $(H_CFLAGS) $(CFLAGS) $< # main GDB source directory DOCFILES = aoutx.texi archive.texi archures.texi \ bfd.texi cache.texi coffcode.texi \ core.texi elf.texi elfcode.texi format.texi libbfd.texi \ opncls.texi reloc.texi section.texi \ syms.texi targets.texi init.texi ctor.texi hash.texi linker.texi PROTOS = archive.p archures.p bfd.p \ core.p format.p \ libbfd.p opncls.p reloc.p \ section.p syms.p targets.p \ format.p core.p init.p IPROTOS = cache.ip libbfd.ip reloc.ip init.ip archures.ip ctor.ip coffcode.ip # SRCDOC, SRCPROT, SRCIPROT only used to sidestep Sun Make bug in interaction # between VPATH and suffix rules. If you use GNU Make, perhaps other Makes, # you don't need these three: SRCDOC = $(srcdir)/../aoutx.h $(srcdir)/../archive.c \ $(srcdir)/../archures.c $(srcdir)/../bfd.c \ $(srcdir)/../cache.c $(srcdir)/../coffcode.h \ $(srcdir)/../core.c $(srcdir)/../elf.c \ $(srcdir)/../elfcode.h $(srcdir)/../format.c \ $(srcdir)/../libbfd.c $(srcdir)/../opncls.c \ $(srcdir)/../reloc.c $(srcdir)/../section.c \ $(srcdir)/../syms.c $(srcdir)/../targets.c \ $(srcdir)/../hash.c $(srcdir)/../linker.c SRCPROT = $(srcdir)/../archive.c $(srcdir)/../archures.c \ $(srcdir)/../bfd.c $(srcdir)/../coffcode.h $(srcdir)/../core.c \ $(srcdir)/../format.c $(srcdir)/../libbfd.c \ $(srcdir)/../opncls.c $(srcdir)/../reloc.c \ $(srcdir)/../section.c $(srcdir)/../syms.c \ $(srcdir)/../targets.c $(srcdir)/../init.c SRCIPROT = $(srcdir)/../cache.c $(srcdir)/../libbfd.c \ $(srcdir)/../reloc.c $(srcdir)/../cpu-h8300.c \ $(srcdir)/../cpu-i960.c $(srcdir)/../archures.c \ $(srcdir)/../init.c $(srcdir)/../ctor.c STAGESTUFF = $(DOCFILES) *.info* TEXIDIR = $(srcdir)/../../texinfo/fsf all install: info: bfd.info dvi: bfd.dvi install-info: info for i in *.info* ; do \ $(INSTALL_DATA) $$i $(infodir)/$$i ; \ done docs: $(MKDOC) protos bfd.info bfd.dvi bfd.ps $(MKDOC): chew.o $(CC_FOR_BUILD) -o $(MKDOC) chew.o $(LOADLIBES) $(LDFLAGS) chew.o: chew.c $(CC_FOR_BUILD) -c -I.. -I$(srcdir)/.. -I$(srcdir)/../../include $(H_CFLAGS) $(CFLAGS) $(srcdir)/chew.c protos: libbfd.h libcoff.h bfd.h # We can't replace these rules with an implicit rule, because # makes without VPATH support couldn't find the .h files in `..'. aoutx.texi: $(MKDOC) $(srcdir)/../aoutx.h $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../aoutx.h >aoutx.texi archive.texi: $(MKDOC) $(srcdir)/../archive.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../archive.c >archive.texi archures.texi: $(MKDOC) $(srcdir)/../archures.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str < $(srcdir)/../archures.c >archures.texi bfd.texi: $(MKDOC) $(srcdir)/../bfd.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str < $(srcdir)/../bfd.c >bfd.texi cache.texi: $(MKDOC) $(srcdir)/../cache.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str < $(srcdir)/../cache.c >cache.texi coffcode.texi: $(MKDOC) $(srcdir)/../coffcode.h $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../coffcode.h >coffcode.texi core.texi: $(MKDOC) $(srcdir)/../core.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../core.c >core.texi elf.texi: $(MKDOC) $(srcdir)/../elf.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../elf.c >elf.texi elfcode.texi: $(MKDOC) $(srcdir)/../elfcode.h $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../elfcode.h >elfcode.texi format.texi: $(MKDOC) $(srcdir)/../format.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../format.c >format.texi libbfd.texi: $(MKDOC) $(srcdir)/../libbfd.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str < $(srcdir)/../libbfd.c >libbfd.texi opncls.texi: $(MKDOC) $(srcdir)/../opncls.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../opncls.c >opncls.texi reloc.texi : $(MKDOC) $(srcdir)/../reloc.c $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../reloc.c >reloc.texi section.texi: $(MKDOC) $(srcdir)/../section.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../section.c >section.texi syms.texi : $(MKDOC) $(srcdir)/../syms.c $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../syms.c >syms.texi targets.texi: $(MKDOC) $(srcdir)/../targets.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../targets.c >targets.texi init.texi: $(MKDOC) $(srcdir)/../init.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../init.c >init.texi ctor.texi: $(MKDOC) $(srcdir)/../ctor.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../ctor.c >ctor.texi hash.texi: $(MKDOC) $(srcdir)/../hash.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../hash.c >hash.texi linker.texi: $(MKDOC) $(srcdir)/../linker.c $(srcdir)/doc.str $(MKDOC) -f $(srcdir)/doc.str <$(srcdir)/../linker.c >linker.texi libbfd.h: $(srcdir)/../libbfd-in.h \ $(srcdir)/../init.c \ $(srcdir)/../libbfd.c \ $(srcdir)/../cache.c \ $(srcdir)/../ctor.c \ $(srcdir)/../reloc.c \ $(srcdir)/../cpu-h8300.c \ $(srcdir)/../cpu-i960.c \ $(srcdir)/../archures.c \ $(srcdir)/../elfcode.h \ $(MKDOC) cat $(srcdir)/../libbfd-in.h >libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../init.c >>libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../libbfd.c >>libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../cache.c >>libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../ctor.c >>libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../reloc.c >>libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../cpu-h8300.c >>libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../cpu-i960.c >>libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../archures.c >>libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../elf.c >>libbfd.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../elfcode.h >>libbfd.h libcoff.h: $(srcdir)/../libcoff-in.h \ $(srcdir)/../coffcode.h \ $(MKDOC) cat $(srcdir)/../libcoff-in.h >libcoff.h $(MKDOC) -i -f $(srcdir)/proto.str < $(srcdir)/../coffcode.h >>libcoff.h bfd.h: $(srcdir)/../bfd-in.h \ $(srcdir)/../init.c \ $(srcdir)/../opncls.c \ $(srcdir)/../libbfd.c \ $(srcdir)/../section.c \ $(srcdir)/../archures.c \ $(srcdir)/../reloc.c \ $(srcdir)/../syms.c \ $(srcdir)/../bfd.c \ $(srcdir)/../archive.c \ $(srcdir)/../core.c \ $(srcdir)/../targets.c \ $(srcdir)/../format.c \ $(MKDOC) cat $(srcdir)/../bfd-in.h >bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../init.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../opncls.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../libbfd.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../section.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../archures.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../reloc.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../syms.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../bfd.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../archive.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../core.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../targets.c >>bfd.h $(MKDOC) -f $(srcdir)/proto.str<$(srcdir)/../format.c >>bfd.h echo "#endif" >>bfd.h clean-info: clean mostlyclean: rm -rf *.log *.ps *~* *.dvi *# $(MKDOC) *.o clean: mostlyclean rm -rf $(STAGESTUFF) rm -f *.p *.ip bfd.?? bfd.??? bfd.h libbfd.h libcoff.h texput.log distclean: clean rm -f Makefile config.status realclean: clean rm -f Makefile config.status bfd.info: $(DOCFILES) bfdsumm.texi bfd.texinfo $(MAKEINFO) -I$(srcdir) -o bfd.info $(srcdir)/bfd.texinfo bfd.dvi: $(DOCFILES) bfdsumm.texi bfd.texinfo $(TEXI2DVI) $(srcdir)/bfd.texinfo bfd.ps: bfd.dvi dvips bfd -o quickdoc: $(DOCFILES) bfdsumm.texi bfd.texinfo TEXINPUTS=${TEXIDIR}:.:$$TEXINPUTS tex bfd.texinfo stage1: force - mkdir stage1 - mv -f $(STAGESTUFF) stage1 stage2: force - mkdir stage2 - mv -f $(STAGESTUFF) stage2 stage3: force - mkdir stage3 - mv -f $(STAGESTUFF) stage3 against=stage2 comparison: force for i in $(STAGESTUFF) ; do cmp $$i $(against)/$$i || exit 1 ; done de-stage1: force - (cd stage1 ; mv -f $(STAGESTUFF) ..) - rmdir stage1 de-stage2: force - (cd stage2 ; mv -f $(STAGESTUFF) ..) - rmdir stage2 de-stage3: force - (cd stage3 ; mv -f $(STAGESTUFF) ..) - rmdir stage3 force: Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status gdb-4.13/bfd/doc/bfd.texinfo 666 34562 1752 25146 5542155170 14222 0ustar fnfcygnus\input texinfo.tex @setfilename bfd.info @c $Id: bfd.texinfo,v 1.26 1994/03/17 22:32:24 pesch Exp $ @tex % NOTE LOCAL KLUGE TO AVOID TOO MUCH WHITESPACE \global\long\def\example{% \begingroup \let\aboveenvbreak=\par \let\afterenvbreak=\par \parskip=0pt \lisp} \global\long\def\Eexample{% \Elisp \endgroup \vskip -\parskip% to cancel out effect of following \par } @end tex @synindex fn cp @ifinfo @format START-INFO-DIR-ENTRY * Bfd: (bfd). The Binary File Descriptor library. END-INFO-DIR-ENTRY @end format @end ifinfo @ifinfo This file documents the BFD library. Copyright (C) 1991 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through Tex and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, subject to the terms of the GNU General Public License, which includes the provision that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end ifinfo @iftex @c@finalout @setchapternewpage on @c@setchapternewpage odd @settitle LIB BFD, the Binary File Descriptor Library @titlepage @title{libbfd} @subtitle{The Binary File Descriptor Library} @sp 1 @subtitle First Edition---BFD version < 3.0 @subtitle April 1991 @author {Steve Chamberlain} @author {Cygnus Support} @page @tex \def\$#1${{#1}} % Kluge: collect RCS revision info without $...$ \xdef\manvers{\$Revision: 1.26 $} % For use in headers, footers too {\parskip=0pt \hfill Cygnus Support\par \hfill sac\@cygnus.com\par \hfill {\it BFD}, \manvers\par \hfill \TeX{}info \texinfoversion\par } \global\parindent=0pt % Steve likes it this way @end tex @vskip 0pt plus 1filll Copyright @copyright{} 1991 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, subject to the terms of the GNU General Public License, which includes the provision that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end titlepage @end iftex @node Top, Overview, (dir), (dir) @ifinfo This file documents the binary file descriptor library libbfd. @end ifinfo @menu * Overview:: Overview of BFD * BFD front end:: BFD front end * BFD back ends:: BFD back ends * Index:: Index @end menu @node Overview, BFD front end, Top, Top @chapter Introduction @cindex BFD @cindex what is it? BFD is a package which allows applications to use the same routines to operate on object files whatever the object file format. A new object file format can be supported simply by creating a new BFD back end and adding it to the library. BFD is split into two parts: the front end, and the back ends (one for each object file format). @itemize @bullet @item The front end of BFD provides the interface to the user. It manages memory and various canonical data structures. The front end also decides which back end to use and when to call back end routines. @item The back ends provide BFD its view of the real world. Each back end provides a set of calls which the BFD front end can use to maintain its canonical form. The back ends also may keep around information for their own use, for greater efficiency. @end itemize @menu * History:: History * How It Works:: How It Works * What BFD Version 2 Can Do:: What BFD Version 2 Can Do @end menu @node History, How It Works, Overview, Overview @section History One spur behind BFD was the desire, on the part of the GNU 960 team at Intel Oregon, for interoperability of applications on their COFF and b.out file formats. Cygnus was providing GNU support for the team, and was contracted to provide the required functionality. The name came from a conversation David Wallace was having with Richard Stallman about the library: RMS said that it would be quite hard---David said ``BFD''. Stallman was right, but the name stuck. At the same time, Ready Systems wanted much the same thing, but for different object file formats: IEEE-695, Oasys, Srecords, a.out and 68k coff. BFD was first implemented by members of Cygnus Support; Steve Chamberlain (@code{sac@@cygnus.com}), John Gilmore (@code{gnu@@cygnus.com}), K. Richard Pixley (@code{rich@@cygnus.com}) and David Henkel-Wallace (@code{gumby@@cygnus.com}). @node How It Works, What BFD Version 2 Can Do, History, Overview @section How To Use BFD To use the library, include @file{bfd.h} and link with @file{libbfd.a}. BFD provides a common interface to the parts of an object file for a calling application. When an application sucessfully opens a target file (object, archive, or whatever), a pointer to an internal structure is returned. This pointer points to a structure called @code{bfd}, described in @file{bfd.h}. Our convention is to call this pointer a BFD, and instances of it within code @code{abfd}. All operations on the target object file are applied as methods to the BFD. The mapping is defined within @code{bfd.h} in a set of macros, all beginning with @samp{bfd_} to reduce namespace pollution. For example, this sequence does what you would probably expect: return the number of sections in an object file attached to a BFD @code{abfd}. @lisp @c @cartouche #include "bfd.h" unsigned int number_of_sections(abfd) bfd *abfd; @{ return bfd_count_sections(abfd); @} @c @end cartouche @end lisp The abstraction used within BFD is that an object file has: @itemize @bullet @item a header, @item a number of sections containing raw data (@pxref{Sections}), @item a set of relocations (@pxref{Relocations}), and @item some symbol information (@pxref{Symbols}). @end itemize @noindent Also, BFDs opened for archives have the additional attribute of an index and contain subordinate BFDs. This approach is fine for a.out and coff, but loses efficiency when applied to formats such as S-records and IEEE-695. @node What BFD Version 2 Can Do, , How It Works, Overview @section What BFD Version 2 Can Do @include bfdsumm.texi @node BFD front end, BFD back ends, Overview, Top @chapter BFD front end @include bfd.texi @menu * Memory Usage:: * Initialization:: * Sections:: * Symbols:: * Archives:: * Formats:: * Relocations:: * Core Files:: * Targets:: * Architectures:: * Opening and Closing:: * Constructors:: * Internal:: * File Caching:: * Linker Functions:: * Hash Tables:: @end menu @node Memory Usage, Initialization, BFD front end, BFD front end @section Memory usage BFD keeps all of its internal structures in obstacks. There is one obstack per open BFD file, into which the current state is stored. When a BFD is closed, the obstack is deleted, and so everything which has been allocated by BFD for the closing file is thrown away. BFD does not free anything created by an application, but pointers into @code{bfd} structures become invalid on a @code{bfd_close}; for example, after a @code{bfd_close} the vector passed to @code{bfd_canonicalize_symtab} is still around, since it has been allocated by the application, but the data that it pointed to are lost. The general rule is to not close a BFD until all operations dependent upon data from the BFD have been completed, or all the data from within the file has been copied. To help with the management of memory, there is a function (@code{bfd_alloc_size}) which returns the number of bytes in obstacks associated with the supplied BFD. This could be used to select the greediest open BFD, close it to reclaim the memory, perform some operation and reopen the BFD again, to get a fresh copy of the data structures. @node Initialization, Sections, Memory Usage, BFD front end @include init.texi @node Sections, Symbols, Initialization, BFD front end @include section.texi @node Symbols, Archives, Sections, BFD front end @include syms.texi @node Archives, Formats, Symbols, BFD front end @include archive.texi @node Formats, Relocations, Archives, BFD front end @include format.texi @node Relocations, Core Files, Formats, BFD front end @include reloc.texi @node Core Files, Targets, Relocations, BFD front end @include core.texi @node Targets, Architectures, Core Files, BFD front end @include targets.texi @node Architectures, Opening and Closing, Targets, BFD front end @include archures.texi @node Opening and Closing, Constructors, Architectures, BFD front end @include opncls.texi @node Constructors, Internal, Opening and Closing, BFD front end @include ctor.texi @node Internal, File Caching, Constructors, BFD front end @include libbfd.texi @node File Caching, Linker Functions, Internal, BFD front end @include cache.texi @node Linker Functions, Hash Tables, File Caching, BFD front end @include linker.texi @node Hash Tables, , Linker Functions, BFD front end @include hash.texi @node BFD back ends, Index, BFD front end, Top @chapter BFD back ends @menu * What to Put Where:: * aout :: a.out backends * coff :: coff backends * elf :: elf backends @ignore * oasys :: oasys backends * ieee :: ieee backend * srecord :: s-record backend @end ignore @end menu @node What to Put Where, aout, BFD back ends, BFD back ends All of BFD lives in one directory. @node aout, coff, What to Put Where, BFD back ends @include aoutx.texi @node coff, elf, aout, BFD back ends @include coffcode.texi @node elf, , coff, BFD back ends @include elf.texi @c Leave this out until the file has some actual contents... @c @include elfcode.texi @node Index, , BFD back ends , Top @unnumbered Index @printindex cp @tex % I think something like @colophon should be in texinfo. In the % meantime: \long\def\colophon{\hbox to0pt{}\vfill \centerline{The body of this manual is set in} \centerline{\fontname\tenrm,} \centerline{with headings in {\bf\fontname\tenbf}} \centerline{and examples in {\tt\fontname\tentt}.} \centerline{{\it\fontname\tenit\/} and} \centerline{{\sl\fontname\tensl\/}} \centerline{are used for emphasis.}\vfill} \page\colophon % Blame: pesch@cygnus.com, 28mar91. @end tex @contents @bye gdb-4.13/bfd/doc/bfdsumm.texi 666 34562 1752 17163 5417060063 14416 0ustar fnfcygnus@c This summary of BFD is shared by the BFD and LD docs. When an object file is opened, BFD subroutines automatically determine the format of the input object file. They then build a descriptor in memory with pointers to routines that will be used to access elements of the object file's data structures. As different information from the the object files is required, BFD reads from different sections of the file and processes them. For example, a very common operation for the linker is processing symbol tables. Each BFD back end provides a routine for converting between the object file's representation of symbols and an internal canonical format. When the linker asks for the symbol table of an object file, it calls through a memory pointer to the routine from the relevant BFD back end which reads and converts the table into a canonical form. The linker then operates upon the canonical form. When the link is finished and the linker writes the output file's symbol table, another BFD back end routine is called to take the newly created symbol table and convert it into the chosen output format. @menu * BFD information loss:: Information Loss * Canonical format:: The BFD canonical object-file format @end menu @node BFD information loss @subsection Information Loss @emph{Information can be lost during output.} The output formats supported by BFD do not provide identical facilities, and information which can be described in one form has nowhere to go in another format. One example of this is alignment information in @code{b.out}. There is nowhere in an @code{a.out} format file to store alignment information on the contained data, so when a file is linked from @code{b.out} and an @code{a.out} image is produced, alignment information will not propagate to the output file. (The linker will still use the alignment information internally, so the link is performed correctly). Another example is COFF section names. COFF files may contain an unlimited number of sections, each one with a textual section name. If the target of the link is a format which does not have many sections (e.g., @code{a.out}) or has sections without names (e.g., the Oasys format), the link cannot be done simply. You can circumvent this problem by describing the desired input-to-output section mapping with the linker command language. @emph{Information can be lost during canonicalization.} The BFD internal canonical form of the external formats is not exhaustive; there are structures in input formats for which there is no direct representation internally. This means that the BFD back ends cannot maintain all possible data richness through the transformation between external to internal and back to external formats. This limitation is only a problem when an application reads one format and writes another. Each BFD back end is responsible for maintaining as much data as possible, and the internal BFD canonical form has structures which are opaque to the BFD core, and exported only to the back ends. When a file is read in one format, the canonical form is generated for BFD and the application. At the same time, the back end saves away any information which may otherwise be lost. If the data is then written back in the same format, the back end routine will be able to use the canonical form provided by the BFD core as well as the information it prepared earlier. Since there is a great deal of commonality between back ends, there is no information lost when linking or copying big endian COFF to little endian COFF, or @code{a.out} to @code{b.out}. When a mixture of formats is linked, the information is only lost from the files whose format differs from the destination. @node Canonical format @subsection The BFD canonical object-file format The greatest potential for loss of information occurs when there is the least overlap between the information provided by the source format, that stored by the canonical format, and that needed by the destination format. A brief description of the canonical form may help you understand which kinds of data you can count on preserving across conversions. @cindex BFD canonical format @cindex internal object-file format @table @emph @item files Information stored on a per-file basis includes target machine architecture, particular implementation format type, a demand pageable bit, and a write protected bit. Information like Unix magic numbers is not stored here---only the magic numbers' meaning, so a @code{ZMAGIC} file would have both the demand pageable bit and the write protected text bit set. The byte order of the target is stored on a per-file basis, so that big- and little-endian object files may be used with one another. @item sections Each section in the input file contains the name of the section, the section's original address in the object file, size and alignment information, various flags, and pointers into other BFD data structures. @item symbols Each symbol contains a pointer to the information for the object file which originally defined it, its name, its value, and various flag bits. When a BFD back end reads in a symbol table, it relocates all symbols to make them relative to the base of the section where they were defined. Doing this ensures that each symbol points to its containing section. Each symbol also has a varying amount of hidden private data for the BFD back end. Since the symbol points to the original file, the private data format for that symbol is accessible. @code{ld} can operate on a collection of symbols of wildly different formats without problems. Normal global and simple local symbols are maintained on output, so an output file (no matter its format) will retain symbols pointing to functions and to global, static, and common variables. Some symbol information is not worth retaining; in @code{a.out}, type information is stored in the symbol table as long symbol names. This information would be useless to most COFF debuggers; the linker has command line switches to allow users to throw it away. There is one word of type information within the symbol, so if the format supports symbol type information within symbols (for example, COFF, IEEE, Oasys) and the type is simple enough to fit within one word (nearly everything but aggregates), the information will be preserved. @item relocation level Each canonical BFD relocation record contains a pointer to the symbol to relocate to, the offset of the data to relocate, the section the data is in, and a pointer to a relocation type descriptor. Relocation is performed by passing messages through the relocation type descriptor and the symbol pointer. Therefore, relocations can be performed on output data using a relocation method that is only available in one of the input formats. For instance, Oasys provides a byte relocation format. A relocation record requesting this relocation type would point indirectly to a routine to perform this, so the relocation may be performed on a byte being written to a 68k COFF file, even though 68k COFF has no such relocation type. @item line numbers Object formats can contain, for debugging purposes, some form of mapping between symbols, source line numbers, and addresses in the output file. These addresses have to be relocated along with the symbol information. Each symbol with an associated list of line number records points to the first record of the list. The head of a line number list consists of a pointer to the symbol, which allows finding out the address of the function whose line number is being described. The rest of the list is made up of pairs: offsets into the section and line numbers. Any format which can simply derive this information can pass it successfully between formats (COFF, IEEE and Oasys). @end table gdb-4.13/bfd/doc/chew.c 666 34562 1752 55007 5512310571 13155 0ustar fnfcygnus/* chew Copyright (C) 1990-1991 Free Software Foundation, Inc. Contributed by steve chamberlain @cygnus This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Yet another way of extracting documentation from source. No, I haven't finished it yet, but I hope you people like it better that the old way sac Basically, this is a sort of string forth, maybe we should call it struth? You define new words thus: : ; There is no */ #include #include "sysdep.h" #define DEF_SIZE 5000 #define STACK 50 int internal_wanted; int internal_mode; int warning; /* Here is a string type ... */ typedef struct buffer { char *ptr; unsigned int write_idx; unsigned int size; } string_type; static void DEFUN(init_string_with_size,(buffer, size), string_type *buffer AND unsigned int size ) { buffer->write_idx = 0; buffer->size = size; buffer->ptr = malloc(size); } static void DEFUN(init_string,(buffer), string_type *buffer) { init_string_with_size(buffer, DEF_SIZE); } static int DEFUN(find, (str, what), string_type *str AND char *what) { unsigned int i; char *p; p = what; for (i = 0; i < str->write_idx && *p; i++) { if (*p == str->ptr[i]) p++; else p = what; } return (*p == 0); } static void DEFUN(write_buffer,(buffer), string_type *buffer) { fwrite(buffer->ptr, buffer->write_idx, 1, stdout); } static void DEFUN(delete_string,(buffer), string_type *buffer) { free(buffer->ptr); } static char *DEFUN(addr, (buffer, idx), string_type *buffer AND unsigned int idx) { return buffer->ptr + idx; } static char DEFUN(at,(buffer, pos), string_type *buffer AND unsigned int pos) { if ( pos >= buffer->write_idx) { return 0; } return buffer->ptr[pos]; } static void DEFUN(catchar,(buffer, ch), string_type *buffer AND char ch) { if (buffer->write_idx == buffer->size) { buffer->size *=2; buffer->ptr = realloc(buffer->ptr, buffer->size); } buffer->ptr[buffer->write_idx ++ ] = ch; } static void DEFUN(overwrite_string,(dst, src), string_type *dst AND string_type *src) { free(dst->ptr); dst->size = src->size; dst->write_idx = src->write_idx; dst->ptr = src->ptr; } static void DEFUN(catstr,(dst, src), string_type *dst AND string_type *src) { unsigned int i; for (i = 0; i < src->write_idx; i++) { catchar(dst, src->ptr[i]); } } static void DEFUN(cattext,(buffer, string), string_type *buffer AND char *string) { while (*string) { catchar(buffer, *string); string++; } } static void DEFUN(catbuf,(buffer, buf, len), string_type *buffer AND char *buf AND unsigned int len) { while (len--) { catchar(buffer, *buf); buf++; } } static unsigned int DEFUN(skip_white_and_stars,(src, idx), string_type *src AND unsigned int idx) { while (isspace(at(src,idx)) || (at(src,idx) == '*' && at(src,idx +1) !='/' && at(src,idx -1) != '\n')) idx++; return idx; } /***********************************************************************/ string_type stack[STACK]; string_type *tos; unsigned int idx = 0; /* Pos in input buffer */ string_type *ptr; /* and the buffer */ typedef void (*stinst_type)(); stinst_type *pc; stinst_type sstack[STACK]; stinst_type *ssp = &sstack[0]; int istack[STACK]; int *isp = &istack[0]; typedef int *word_type; struct dict_struct { char *word; struct dict_struct *next; stinst_type *code; int code_length; int code_end; int var; }; typedef struct dict_struct dict_type; #define WORD(x) static void x() static void DEFUN(exec,(word), dict_type *word) { pc = word->code; while (*pc) { (*pc)(); } } WORD(call) { stinst_type *oldpc = pc; dict_type *e; e = (dict_type *)(pc [1]); exec(e); pc = oldpc + 2; } WORD(remchar) { tos->write_idx--; pc++; } WORD(push_number) { isp++; pc++; *isp = (int)(*pc); pc++; } WORD(push_text) { tos++; init_string(tos); pc++; cattext(tos,*((char **)pc)); pc++; } /* This function removes everything not inside comments starting on the first char of the line from the string, also when copying comments, removes blank space and leading *'s Blank lines are turned into one blank line */ static void DEFUN(remove_noncomments,(src,dst), string_type *src AND string_type *dst) { unsigned int idx = 0; while (at(src,idx)) { /* Now see if we have a comment at the start of the line */ if (at(src,idx) == '\n' && at(src,idx+1) == '/' && at(src,idx+2) == '*') { idx+=3; idx = skip_white_and_stars(src,idx); /* Remove leading dot */ if (at(src, idx) == '.') idx++; /* Copy to the end of the line, or till the end of the comment */ while (at(src, idx)) { if (at(src, idx) == '\n') { /* end of line, echo and scrape of leading blanks */ if (at(src,idx +1) == '\n') catchar(dst,'\n'); catchar(dst,'\n'); idx++; idx = skip_white_and_stars(src, idx); } else if (at(src, idx) == '*' && at(src,idx+1) == '/') { idx +=2 ; cattext(dst,"\nENDDD\n"); break; } else { catchar(dst, at(src, idx)); idx++; } } } else idx++; } } /* turn: foobar name(stuff); into: foobar name PARAMS ((stuff)); and a blank line. */ static void DEFUN_VOID(paramstuff) { unsigned int openp; unsigned int fname; unsigned int idx; string_type out; init_string(&out); /* make sure that it's not already param'd or proto'd */ if(find(tos,"PARAMS") || find(tos,"PROTO") || !find(tos,"(")) { catstr(&out,tos); } else { /* Find the open paren */ for (openp = 0; at(tos, openp) != '(' && at(tos,openp); openp++) ; fname = openp; /* Step back to the fname */ fname--; while (fname && isspace(at(tos, fname))) fname --; while (fname && !isspace(at(tos,fname)) && at(tos,fname) != '*') fname--; fname++; for (idx = 0; idx < fname; idx++) /* Output type */ { catchar(&out, at(tos,idx)); } cattext(&out, "\n"); /* Insert a newline between type and fnname */ for (idx = fname; idx < openp; idx++) /* Output fnname */ { catchar(&out, at(tos,idx)); } cattext(&out," PARAMS ("); while (at(tos,idx) && at(tos,idx) !=';') { catchar(&out, at(tos, idx)); idx++; } cattext(&out,");\n\n"); } overwrite_string(tos, &out); pc++; } /* turn {* and *} into comments */ WORD(translatecomments) { unsigned int idx = 0; string_type out; init_string(&out); while (at(tos, idx)) { if (at(tos,idx) == '{' && at(tos,idx+1) =='*') { cattext(&out," /*"); idx+=2; } else if (at(tos,idx) == '*' && at(tos,idx+1) =='}') { cattext(&out,"*/"); idx+=2; } else { catchar(&out, at(tos, idx)); idx++; } } overwrite_string(tos, &out); pc++; } /* turn everything not starting with a . into a comment */ WORD(manglecomments) { unsigned int idx = 0; string_type out; init_string(&out); while (at(tos, idx)) { if (at(tos,idx) == '\n' && at(tos,idx+1) =='*') { cattext(&out," /*"); idx+=2; } else if (at(tos,idx) == '*' && at(tos,idx+1) =='}') { cattext(&out,"*/"); idx+=2; } else { catchar(&out, at(tos, idx)); idx++; } } overwrite_string(tos, &out); pc++; } /* Mod tos so that only lines with leading dots remain */ static void DEFUN_VOID(outputdots) { unsigned int idx = 0; string_type out; init_string(&out); while (at(tos, idx)) { if (at(tos, idx) == '\n' && at(tos, idx+1) == '.') { idx += 2; while (at(tos, idx) && at(tos, idx)!='\n') { if (at(tos,idx) == '{' && at(tos,idx+1) =='*') { cattext(&out," /*"); idx+=2; } else if (at(tos,idx) == '*' && at(tos,idx+1) =='}') { cattext(&out,"*/"); idx+=2; } else { catchar(&out, at(tos, idx)); idx++; } } catchar(&out,'\n'); } else { idx++; } } overwrite_string(tos, &out); pc++; } /* Find lines starting with . and | and put example around them on tos */ WORD(courierize) { string_type out; unsigned int idx = 0; int command = 0; init_string(&out); while (at(tos, idx)) { if (at(tos, idx) == '\n' && (at(tos, idx +1 ) == '.' || at(tos,idx+1) == '|')) { cattext(&out,"\n@example\n"); do { idx += 2; while (at(tos, idx) && at(tos, idx)!='\n') { if (at(tos,idx)=='{' && at(tos,idx+1) =='*') { cattext(&out," /*"); idx+=2; } else if (at(tos,idx)=='*' && at(tos,idx+1) =='}') { cattext(&out,"*/"); idx+=2; } else if (at(tos,idx) == '{' && !command) { cattext(&out,"@{"); idx++; } else if (at(tos,idx) == '}' && !command) { cattext(&out,"@}"); idx++; } else { if (at(tos,idx) == '@') command = 1; else if (isspace(at(tos,idx)) || at(tos,idx) == '}') command = 0; catchar(&out, at(tos, idx)); idx++; } } catchar(&out,'\n'); } while (at(tos, idx) == '\n' && (at(tos, idx+1) == '.') || (at(tos,idx+1) == '|')); cattext(&out,"@end example"); } else { catchar(&out, at(tos, idx)); idx++; } } overwrite_string(tos, &out); pc++; } /* Finds any lines starting with "o ", if there are any, then turns on @itemize @bullet, and @items each of them. Then ends with @end itemize, inplace at TOS*/ WORD(bulletize) { unsigned int idx = 0; int on = 0; string_type out; init_string(&out); while (at(tos, idx)) { if (at(tos, idx) == '@' && at(tos, idx+1) == '*') { cattext(&out,"*"); idx+=2; } else if (at(tos, idx) == '\n' && at(tos, idx+1) == 'o' && isspace(at(tos, idx +2))) { if (!on) { cattext(&out,"\n@itemize @bullet\n"); on = 1; } cattext(&out,"\n@item\n"); idx+=3; } else { catchar(&out, at(tos, idx)); if (on && at(tos, idx) == '\n' && at(tos, idx+1) == '\n' && at(tos, idx+2) != 'o') { cattext(&out, "@end itemize"); on = 0; } idx++; } } if (on) { cattext(&out,"@end itemize\n"); } delete_string(tos); *tos = out; pc++; } /* Turn <> into @code{foo} in place at TOS*/ WORD(do_fancy_stuff) { unsigned int idx = 0; string_type out; init_string(&out); while (at(tos, idx)) { if (at(tos, idx) == '<' && at(tos, idx+1) == '<' && !isspace(at(tos,idx + 2))) { /* This qualifies as a << startup */ idx +=2; cattext(&out,"@code{"); while(at(tos,idx) && at(tos,idx) != '>' ) { catchar(&out, at(tos, idx)); idx++; } cattext(&out,"}"); idx+=2; } else { catchar(&out, at(tos, idx)); idx++; } } delete_string(tos); *tos = out; pc++; } /* A command is all upper case,and alone on a line */ static int DEFUN( iscommand,(ptr, idx), string_type *ptr AND unsigned int idx) { unsigned int len = 0; while (at(ptr,idx)) { if (isupper(at(ptr,idx)) || at(ptr,idx) == ' ' || at(ptr,idx) == '_') { len++; idx++; } else if(at(ptr,idx) == '\n') { if (len >4) return 1; return 0; } else return 0; } return 0; } DEFUN(copy_past_newline,(ptr, idx, dst), string_type *ptr AND unsigned int idx AND string_type *dst) { while (at(ptr, idx) && at(ptr, idx) != '\n') { catchar(dst, at(ptr, idx)); idx++; } catchar(dst, at(ptr, idx)); idx++; return idx; } WORD(icopy_past_newline) { tos++; init_string(tos); idx = copy_past_newline(ptr, idx, tos); pc++; } /* indent Take the string at the top of the stack, do some prettying */ WORD(kill_bogus_lines) { int sl ; int nl = 0; int idx = 0; int c; int dot = 0 ; string_type out; init_string(&out); /* Drop leading nl */ while (at(tos,idx) == '\n') { idx++; } c = idx; /* Find the last char */ while (at(tos,idx)) { idx++; } /* find the last non white before the nl */ idx--; while (idx && isspace(at(tos,idx))) idx--; idx++; /* Copy buffer upto last char, but blank lines before and after dots don't count */ sl = 1; while (c < idx) { if (at(tos,c) == '\n' && at(tos,c+1) == '\n' && at(tos,c+2) == '.') { /* Ignore two newlines before a dot*/ c++; } else if (at(tos,c) == '.' && sl) { /* remember that this line started with a dot */ dot=2; } else if (at(tos,c) == '\n' && at(tos,c+1) == '\n' && dot) { c++; /* Ignore two newlines when last line was dot */ } catchar(&out, at(tos,c)); if (at(tos,c) == '\n') { sl = 1; if (dot == 2)dot=1;else dot = 0; } c++; } /* Append nl*/ catchar(&out, '\n'); pc++; delete_string(tos); *tos = out; } WORD(indent) { string_type out; int tab = 0; int idx = 0; int ol =0; init_string(&out); while (at(tos,idx)) { switch (at(tos,idx)) { case '\n': cattext(&out,"\n"); idx++; if (tab) { cattext(&out," "); } ol = 0; break; case '(': tab++; if (ol == 0) cattext(&out," "); idx++; cattext(&out,"("); ol = 1; break; case ')': tab--; cattext(&out,")"); idx++; ol=1; break; default: catchar(&out,at(tos,idx)); ol=1; idx++; break; } } pc++; delete_string(tos); *tos = out; } WORD(get_stuff_in_command) { tos++; init_string(tos); while (at(ptr, idx)) { if (iscommand(ptr, idx)) break; idx = copy_past_newline(ptr, idx, tos); } pc++; } WORD(swap) { string_type t; t = tos[0]; tos[0] = tos[-1]; tos[-1] =t; pc++; } WORD(other_dup) { tos++; init_string(tos); catstr(tos, tos-1); pc++; } WORD(icatstr) { catstr(tos-1, tos); delete_string(tos); tos--; pc++; } WORD(skip_past_newline) { while (at(ptr,idx) && at(ptr,idx) != '\n') idx++; idx++; pc++; } WORD(internalmode) { internal_mode = *(isp); isp--; pc++; } WORD(maybecatstr) { if (internal_wanted == internal_mode) { catstr(tos-1, tos); } delete_string(tos); tos--; pc++; } char * DEFUN(nextword,(string, word), char *string AND char **word) { char *word_start; int idx; char *dst; char *src; int length = 0; while (isspace(*string) || *string == '-') { if (*string == '-') { while (*string && *string != '\n') string++; } else { string++; } } if (!*string) return 0; word_start = string; if (*string == '"') { string++; length++; while (*string != '"') { string++; length++; } } else { while (!isspace(*string)) { string++; length++; } } *word = malloc(length + 1); dst = *word; src = word_start; for (idx= 0; idx < length; idx++) { if (src[idx] == '\\' && src[idx+1] == 'n') { *dst++ = '\n'; idx++; } else *dst++ = src[idx]; } *dst++ = 0; if(*string) return string + 1; else return 0; } dict_type *root; dict_type * DEFUN(lookup_word,(word), char *word) { dict_type *ptr = root; while (ptr) { if (strcmp(ptr->word, word) == 0) return ptr; ptr = ptr->next; } if (warning) fprintf(stderr,"Can't find %s\n",word); return 0; } static void DEFUN_VOID(perform) { tos = stack; while (at(ptr, idx)) { /* It's worth looking through the command list */ if (iscommand(ptr, idx)) { unsigned int i; int found = 0; char *next; dict_type *word ; (void) nextword(addr(ptr, idx), &next); word = lookup_word(next); if (word) { exec(word); } else { if (warning) fprintf(stderr,"warning, %s is not recognised\n", next); skip_past_newline(); } } else skip_past_newline(); } } dict_type * DEFUN(newentry,(word), char *word) { dict_type *new = (dict_type *)malloc(sizeof(dict_type)); new->word = word; new->next = root; root = new; new->code = (stinst_type *)malloc(sizeof(stinst_type )); new->code_length = 1; new->code_end = 0; return new; } unsigned int DEFUN(add_to_definition,(entry, word), dict_type *entry AND stinst_type word) { if (entry->code_end == entry->code_length) { entry->code_length += 2; entry->code = (stinst_type *) realloc((char *)(entry->code), entry->code_length *sizeof(word_type)); } entry->code[entry->code_end] = word; return entry->code_end++; } void DEFUN(add_intrinsic,(name, func), char *name AND void (*func)()) { dict_type *new = newentry(name); add_to_definition(new, func); add_to_definition(new, 0); } WORD(push_addr) { } void DEFUN(add_var,(name), char *name) { dict_type *new = newentry(name); add_to_definition(new, push_number); add_to_definition(new, (stinst_type)(&(new->var))); add_to_definition(new,0); } void DEFUN(compile, (string), char *string) { int jstack[STACK]; int *jptr = jstack; /* add words to the dictionary */ char *word; string = nextword(string, &word); while (string && *string && word[0]) { if (strcmp(word,"var")==0) { string=nextword(string, &word); add_var(word); string=nextword(string, &word); } else if (word[0] == ':') { dict_type *ptr; /* Compile a word and add to dictionary */ string = nextword(string, &word); ptr = newentry(word); string = nextword(string, &word); while (word[0] != ';' ) { switch (word[0]) { case '"': /* got a string, embed magic push string function */ add_to_definition(ptr, push_text); add_to_definition(ptr, (stinst_type)(word+1)); break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': /* Got a number, embedd the magic push number function */ add_to_definition(ptr, push_number); add_to_definition(ptr, (stinst_type)atol(word)); break; default: add_to_definition(ptr, call); add_to_definition(ptr, (stinst_type)lookup_word(word)); } string = nextword(string, &word); } add_to_definition(ptr,0); string = nextword(string, &word); } else { fprintf(stderr,"syntax error at %s\n",string-1); } } } static void DEFUN_VOID(bang) { *(int *)((isp[0])) = isp[-1]; isp-=2; pc++; } WORD(atsign) { isp[0] = *(int *)(isp[0]); pc++; } WORD(hello) { printf("hello\n"); pc++; } static void DEFUN(read_in, (str, file), string_type *str AND FILE *file) { char buff[10000]; unsigned int r; do { r = fread(buff, 1, sizeof(buff), file); catbuf(str, buff, r); } while (r); buff[0] = 0; catbuf(str, buff,1); } static void DEFUN_VOID(usage) { fprintf(stderr,"usage: -[d|i|g] file\n"); exit(33); } /* There is no reliable way to declare exit. Sometimes it returns int, and sometimes it returns void. Sometimes it changes between OS releases. Trying to get it declared correctly in the hosts file is a pointless waste of time. */ static void chew_exit () { exit (0); } int DEFUN(main,(ac,av), int ac AND char *av[]) { unsigned int i; string_type buffer; string_type pptr; init_string(&buffer); init_string(&pptr); init_string(stack+0); tos=stack+1; ptr = &pptr; add_intrinsic("push_text", push_text); add_intrinsic("!", bang); add_intrinsic("@", atsign); add_intrinsic("hello",hello); add_intrinsic("skip_past_newline", skip_past_newline ); add_intrinsic("catstr", icatstr ); add_intrinsic("copy_past_newline", icopy_past_newline ); add_intrinsic("dup", other_dup ); add_intrinsic("remchar", remchar ); add_intrinsic("get_stuff_in_command", get_stuff_in_command ); add_intrinsic("do_fancy_stuff", do_fancy_stuff ); add_intrinsic("bulletize", bulletize ); add_intrinsic("courierize", courierize ); /* If the following line gives an error, exit() is not declared in the ../hosts/foo.h file for this host. Fix it there, not here! */ /* No, don't fix it anywhere; see comment on chew_exit--Ian Taylor. */ add_intrinsic("exit", chew_exit ); add_intrinsic("swap", swap ); add_intrinsic("outputdots", outputdots ); add_intrinsic("paramstuff", paramstuff ); add_intrinsic("maybecatstr", maybecatstr ); add_intrinsic("translatecomments", translatecomments ); add_intrinsic("kill_bogus_lines", kill_bogus_lines); add_intrinsic("indent", indent); add_intrinsic("internalmode", internalmode); /* Put a nl at the start */ catchar(&buffer,'\n'); read_in(&buffer, stdin); remove_noncomments(&buffer, ptr); for (i= 1; i < ac; i++) { if (av[i][0] == '-') { if (av[i][1] == 'f') { string_type b; FILE *f; init_string(&b); f = fopen(av[i+1],"r"); if (!f) { fprintf(stderr,"Can't open the input file %s\n",av[i+1]); return 33; } read_in(&b, f); compile(b.ptr); perform(); } else if (av[i][1] == 'i') { internal_wanted = 1; } else if (av[i][1] == 'w') { warning = 1; } } } write_buffer(stack+0); return 0; } gdb-4.13/bfd/doc/configure.in 666 34562 1752 456 5110302107 14320 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. srctrigger=bfd.texinfo srcname="BFD doc" # per-host: # per-target: gdb-4.13/bfd/doc/doc.str 666 34562 1752 2737 5246527250 13354 0ustar fnfcygnus: DOCDD skip_past_newline get_stuff_in_command kill_bogus_lines catstr ; : ENDDD skip_past_newline ; : EXAMPLE skip_past_newline get_stuff_in_command kill_bogus_lines do_fancy_stuff translatecomments courierize catstr ; : INODE "@node " catstr skip_past_newline copy_past_newline catstr ; : CODE_FRAGMENT EXAMPLE ; : SYNOPSIS skip_past_newline "@strong{Synopsis}\n" catstr "@example\n" catstr get_stuff_in_command kill_bogus_lines indent catstr "@end example\n" catstr ; : func "@findex " - a skip_past_newline copy_past_newline dup - a x x "@subsubsection @code{" - a x x b swap remchar "}\n" - a x b x c catstr catstr catstr catstr catstr ; : FUNCTION "@findex " - a skip_past_newline copy_past_newline dup - a x x "@subsubsection @code{" - a x x b swap remchar "}\n" - a x b x c catstr catstr catstr catstr catstr ; : bodytext get_stuff_in_command bulletize kill_bogus_lines do_fancy_stuff courierize catstr "@*\n" catstr ; : asection skip_past_newline catstr copy_past_newline do_fancy_stuff catstr bodytext ; : SECTION "@section " asection ; : SUBSECTION "@subsection " asection ; : SUBSUBSECTION "@subsubsection " asection ; : subhead skip_past_newline bodytext ; : DESCRIPTION "@strong{Description}@*\n" catstr subhead ; : RETURNS "@strong{Returns}@*\n" catstr subhead ; : INTERNAL_FUNCTION func ; : INTERNAL_DEFINITION func ; : INTERNAL func ; : TYPEDEF FUNCTION ; gdb-4.13/bfd/doc/proto.str 666 34562 1752 1041 5276201154 13730 0ustar fnfcygnus : SYNOPSIS skip_past_newline get_stuff_in_command paramstuff indent maybecatstr ; : ignore skip_past_newline get_stuff_in_command outputdots maybecatstr ; : CODE_FRAGMENT ignore ; : external 0 internalmode ignore ; : internal 1 internalmode ignore ; : ENDDD external ; : SECTION ignore ; : SUBSECTION ignore ; : SUBSUBSECTION ignore ; : INTERNAL_DEFINITION internal ; : DESCRIPTION ignore ; : FUNCTION external ; : RETURNS ignore ; : TYPEDEF external ; : INTERNAL_FUNCTION internal ; : INTERNAL internal ; : INODE ignore ; gdb-4.13/bfd/bfd-in.h 666 34562 1752 50625 5600114776 12636 0ustar fnfcygnus/* Main header file for the bfd library -- portable access to object files. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. ** NOTE: bfd.h and bfd-in2.h are GENERATED files. Don't change them; ** instead, change bfd-in.h or the other BFD source files processed to ** generate these files. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* bfd.h -- The only header file required by users of the bfd library The bfd.h file is generated from bfd-in.h and various .c files; if you change it, your changes will probably be lost. All the prototypes and definitions following the comment "THE FOLLOWING IS EXTRACTED FROM THE SOURCE" are extracted from the source files for BFD. If you change it, someone oneday will extract it from the source again, and your changes will be lost. To save yourself from this bind, change the definitions in the source in the bfd directory. Type "make docs" and then "make headers" in that directory, and magically this file will change to reflect your changes. If you don't have the tools to perform the extraction, then you are safe from someone on your system trampling over your header files. You should still maintain the equivalence between the source and this file though; every change you make to the .c file should be reflected here. */ #ifndef __BFD_H_SEEN__ #define __BFD_H_SEEN__ #include "ansidecl.h" #include "obstack.h" /* These two lines get substitutions done by commands in Makefile.in. */ #define BFD_VERSION "@VERSION@" #define BFD_ARCH_SIZE @WORDSIZE@ #if BFD_ARCH_SIZE >= 64 #define BFD64 #endif #ifndef INLINE #if __GNUC__ >= 2 #define INLINE __inline__ #else #define INLINE #endif #endif /* 64-bit type definition (if any) from bfd's sysdep.h goes here */ /* forward declaration */ typedef struct _bfd bfd; /* To squelch erroneous compiler warnings ("illegal pointer combination") from the SVR3 compiler, we would like to typedef boolean to int (it doesn't like functions which return boolean. Making sure they are never implicitly declared to return int doesn't seem to help). But this file is not configured based on the host. */ /* General rules: functions which are boolean return true on success and false on failure (unless they're a predicate). -- bfd.doc */ /* I'm sure this is going to break something and someone is going to force me to change it. */ /* typedef enum boolean {false, true} boolean; */ /* Yup, SVR4 has a "typedef enum boolean" in -fnf */ /* It gets worse if the host also defines a true/false enum... -sts */ #ifndef TRUE_FALSE_ALREADY_DEFINED typedef enum bfd_boolean {false, true} boolean; #define BFD_TRUE_FALSE #else typedef enum bfd_boolean {bfd_false, bfd_true} boolean; #endif /* A pointer to a position in a file. */ /* FIXME: This should be using off_t from . For now, try to avoid breaking stuff by not including here. This will break on systems with 64-bit file offsets (e.g. 4.4BSD). Probably the best long-term answer is to avoid using file_ptr AND off_t in this header file, and to handle this in the BFD implementation rather than in its interface. */ /* typedef off_t file_ptr; */ typedef long int file_ptr; /* Support for different sizes of target format ints and addresses. If the host implements 64-bit values, it defines BFD_HOST_64_BIT to be the appropriate type. Otherwise, this code will fall back on gcc's "long long" type if gcc is being used. BFD_HOST_64_BIT must be defined in such a way as to be a valid type name by itself or with "unsigned" prefixed. It should be a signed type by itself. If neither is the case, then compilation will fail if 64-bit targets are requested. If you don't request any 64-bit targets, you should be safe. */ #ifdef BFD64 #if defined (__GNUC__) && !defined (BFD_HOST_64_BIT) #define BFD_HOST_64_BIT long long typedef BFD_HOST_64_BIT int64_type; typedef unsigned BFD_HOST_64_BIT uint64_type; #endif #if !defined (uint64_type) && defined (__GNUC__) #define uint64_type unsigned long long #define int64_type long long #endif #ifndef uint64_typeLOW #define uint64_typeLOW(x) ((unsigned long)(((x) & 0xffffffff))) #define uint64_typeHIGH(x) ((unsigned long)(((x) >> 32) & 0xffffffff)) #endif typedef unsigned BFD_HOST_64_BIT bfd_vma; typedef BFD_HOST_64_BIT bfd_signed_vma; typedef unsigned BFD_HOST_64_BIT bfd_size_type; typedef unsigned BFD_HOST_64_BIT symvalue; #ifndef fprintf_vma #define fprintf_vma(s,x) \ fprintf(s,"%08lx%08lx", uint64_typeHIGH(x), uint64_typeLOW(x)) #define sprintf_vma(s,x) \ sprintf(s,"%08lx%08lx", uint64_typeHIGH(x), uint64_typeLOW(x)) #endif #else /* not BFD64 */ /* Represent a target address. Also used as a generic unsigned type which is guaranteed to be big enough to hold any arithmetic types we need to deal with. */ typedef unsigned long bfd_vma; /* A generic signed type which is guaranteed to be big enough to hold any arithmetic types we need to deal with. Can be assumed to be compatible with bfd_vma in the same way that signed and unsigned ints are compatible (as parameters, in assignment, etc). */ typedef long bfd_signed_vma; typedef unsigned long symvalue; typedef unsigned long bfd_size_type; /* Print a bfd_vma x on stream s. */ #define fprintf_vma(s,x) fprintf(s, "%08lx", x) #define sprintf_vma(s,x) sprintf(s, "%08lx", x) #endif /* not BFD64 */ #define printf_vma(x) fprintf_vma(stdout,x) typedef unsigned int flagword; /* 32 bits of flags */ /** File formats */ typedef enum bfd_format { bfd_unknown = 0, /* file format is unknown */ bfd_object, /* linker/assember/compiler output */ bfd_archive, /* object archive file */ bfd_core, /* core dump */ bfd_type_end} /* marks the end; don't use it! */ bfd_format; /* Values that may appear in the flags field of a BFD. These also appear in the object_flags field of the bfd_target structure, where they indicate the set of flags used by that backend (not all flags are meaningful for all object file formats) (FIXME: at the moment, the object_flags values have mostly just been copied from backend to another, and are not necessarily correct). */ /* No flags. */ #define NO_FLAGS 0x00 /* BFD contains relocation entries. */ #define HAS_RELOC 0x01 /* BFD is directly executable. */ #define EXEC_P 0x02 /* BFD has line number information (basically used for F_LNNO in a COFF header). */ #define HAS_LINENO 0x04 /* BFD has debugging information. */ #define HAS_DEBUG 0x08 /* BFD has symbols. */ #define HAS_SYMS 0x10 /* BFD has local symbols (basically used for F_LSYMS in a COFF header). */ #define HAS_LOCALS 0x20 /* BFD is a dynamic object. */ #define DYNAMIC 0x40 /* Text section is write protected (if D_PAGED is not set, this is like an a.out NMAGIC file) (the linker sets this by default, but clears it for -r or -N). */ #define WP_TEXT 0x80 /* BFD is dynamically paged (this is like an a.out ZMAGIC file) (the linker sets this by default, but clears it for -r or -n or -N). */ #define D_PAGED 0x100 /* BFD is relaxable (this means that bfd_relax_section may be able to do something). */ #define BFD_IS_RELAXABLE 0x200 /* This may be set before writing out a BFD to request using a traditional format. For example, this is used to request that when writing out an a.out object the symbols not be hashed to eliminate duplicates. */ #define BFD_TRADITIONAL_FORMAT 0x400 /* symbols and relocation */ /* A count of carsyms (canonical archive symbols). */ typedef unsigned long symindex; #define BFD_NO_MORE_SYMBOLS ((symindex) ~0) /* General purpose part of a symbol X; target specific parts are in libcoff.h, libaout.h, etc. */ #define bfd_get_section(x) ((x)->section) #define bfd_get_output_section(x) ((x)->section->output_section) #define bfd_set_section(x,y) ((x)->section) = (y) #define bfd_asymbol_base(x) ((x)->section->vma) #define bfd_asymbol_value(x) (bfd_asymbol_base(x) + (x)->value) #define bfd_asymbol_name(x) ((x)->name) /*Perhaps future: #define bfd_asymbol_bfd(x) ((x)->section->owner)*/ #define bfd_asymbol_bfd(x) ((x)->the_bfd) #define bfd_asymbol_flavour(x) (bfd_asymbol_bfd(x)->xvec->flavour) /* A canonical archive symbol. */ /* This is a type pun with struct ranlib on purpose! */ typedef struct carsym { char *name; file_ptr file_offset; /* look here to find the file */ } carsym; /* to make these you call a carsymogen */ /* Used in generating armaps (archive tables of contents). Perhaps just a forward definition would do? */ struct orl { /* output ranlib */ char **name; /* symbol name */ file_ptr pos; /* bfd* or file position */ int namidx; /* index into string table */ }; /* Linenumber stuff */ typedef struct lineno_cache_entry { unsigned int line_number; /* Linenumber from start of function*/ union { struct symbol_cache_entry *sym; /* Function name */ unsigned long offset; /* Offset into section */ } u; } alent; /* object and core file sections */ #define align_power(addr, align) \ ( ((addr) + ((1<<(align))-1)) & (-1 << (align))) typedef struct sec *sec_ptr; #define bfd_get_section_name(bfd, ptr) ((ptr)->name + 0) #define bfd_get_section_vma(bfd, ptr) ((ptr)->vma + 0) #define bfd_get_section_alignment(bfd, ptr) ((ptr)->alignment_power + 0) #define bfd_section_name(bfd, ptr) ((ptr)->name) #define bfd_section_size(bfd, ptr) (bfd_get_section_size_before_reloc(ptr)) #define bfd_section_vma(bfd, ptr) ((ptr)->vma) #define bfd_section_alignment(bfd, ptr) ((ptr)->alignment_power) #define bfd_get_section_flags(bfd, ptr) ((ptr)->flags + 0) #define bfd_get_section_userdata(bfd, ptr) ((ptr)->userdata) #define bfd_is_com_section(ptr) (((ptr)->flags & SEC_IS_COMMON) != 0) #define bfd_set_section_vma(bfd, ptr, val) (((ptr)->vma = (ptr)->lma= (val)), ((ptr)->user_set_vma = true), true) #define bfd_set_section_alignment(bfd, ptr, val) (((ptr)->alignment_power = (val)),true) #define bfd_set_section_userdata(bfd, ptr, val) (((ptr)->userdata = (val)),true) typedef struct stat stat_type; typedef enum bfd_print_symbol { bfd_print_symbol_name, bfd_print_symbol_more, bfd_print_symbol_all } bfd_print_symbol_type; /* Information about a symbol that nm needs. */ typedef struct _symbol_info { symvalue value; char type; CONST char *name; /* Symbol name. */ char stab_other; /* Unused. */ short stab_desc; /* Info for N_TYPE. */ CONST char *stab_name; } symbol_info; /* Hash table routines. There is no way to free up a hash table. */ /* An element in the hash table. Most uses will actually use a larger structure, and an instance of this will be the first field. */ struct bfd_hash_entry { /* Next entry for this hash code. */ struct bfd_hash_entry *next; /* String being hashed. */ const char *string; /* Hash code. This is the full hash code, not the index into the table. */ unsigned long hash; }; /* A hash table. */ struct bfd_hash_table { /* The hash array. */ struct bfd_hash_entry **table; /* The number of slots in the hash table. */ unsigned int size; /* A function used to create new elements in the hash table. The first entry is itself a pointer to an element. When this function is first invoked, this pointer will be NULL. However, having the pointer permits a hierarchy of method functions to be built each of which calls the function in the superclass. Thus each function should be written to allocate a new block of memory only if the argument is NULL. */ struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); /* An obstack for this hash table. */ struct obstack memory; }; /* Initialize a hash table. */ extern boolean bfd_hash_table_init PARAMS ((struct bfd_hash_table *, struct bfd_hash_entry *(*) (struct bfd_hash_entry *, struct bfd_hash_table *, const char *))); /* Initialize a hash table specifying a size. */ extern boolean bfd_hash_table_init_n PARAMS ((struct bfd_hash_table *, struct bfd_hash_entry *(*) (struct bfd_hash_entry *, struct bfd_hash_table *, const char *), unsigned int size)); /* Free up a hash table. */ extern void bfd_hash_table_free PARAMS ((struct bfd_hash_table *)); /* Look up a string in a hash table. If CREATE is true, a new entry will be created for this string if one does not already exist. The COPY argument must be true if this routine should copy the string into newly allocated memory when adding an entry. */ extern struct bfd_hash_entry *bfd_hash_lookup PARAMS ((struct bfd_hash_table *, const char *, boolean create, boolean copy)); /* Base method for creating a hash table entry. */ extern struct bfd_hash_entry *bfd_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); /* Grab some space for a hash table entry. */ extern PTR bfd_hash_allocate PARAMS ((struct bfd_hash_table *, unsigned int)); /* Traverse a hash table in a random order, calling a function on each element. If the function returns false, the traversal stops. The INFO argument is passed to the function. */ extern void bfd_hash_traverse PARAMS ((struct bfd_hash_table *, boolean (*) (struct bfd_hash_entry *, PTR), PTR info)); /* Semi-portable string concatenation in cpp. The CAT4 hack is to avoid a problem with some strict ANSI C preprocessors. The problem is, "32_" is not a valid preprocessing token, and we don't want extra underscores (e.g., "nlm_32_"). The XCAT2 macro will cause the inner CAT macros to be evaluated first, producing still-valid pp-tokens. Then the final concatenation can be done. (Sigh.) */ #ifndef CAT #ifdef SABER #define CAT(a,b) a##b #define CAT3(a,b,c) a##b##c #define CAT4(a,b,c,d) a##b##c##d #else #if defined(__STDC__) || defined(ALMOST_STDC) #define CAT(a,b) a##b #define CAT3(a,b,c) a##b##c #define XCAT2(a,b) CAT(a,b) #define CAT4(a,b,c,d) XCAT2(CAT(a,b),CAT(c,d)) #else #define CAT(a,b) a/**/b #define CAT3(a,b,c) a/**/b/**/c #define CAT4(a,b,c,d) a/**/b/**/c/**/d #endif #endif #endif #define COFF_SWAP_TABLE (PTR) &bfd_coff_std_swap_table /* User program access to BFD facilities */ /* Cast from const char * to char * so that caller can assign to a char * without a warning. */ #define bfd_get_filename(abfd) ((char *) (abfd)->filename) #define bfd_get_cacheable(abfd) ((abfd)->cacheable) #define bfd_get_format(abfd) ((abfd)->format) #define bfd_get_target(abfd) ((abfd)->xvec->name) #define bfd_get_flavour(abfd) ((abfd)->xvec->flavour) #define bfd_get_file_flags(abfd) ((abfd)->flags) #define bfd_applicable_file_flags(abfd) ((abfd)->xvec->object_flags) #define bfd_applicable_section_flags(abfd) ((abfd)->xvec->section_flags) #define bfd_my_archive(abfd) ((abfd)->my_archive) #define bfd_has_map(abfd) ((abfd)->has_armap) #define bfd_valid_reloc_types(abfd) ((abfd)->xvec->valid_reloc_types) #define bfd_usrdata(abfd) ((abfd)->usrdata) #define bfd_get_start_address(abfd) ((abfd)->start_address) #define bfd_get_symcount(abfd) ((abfd)->symcount) #define bfd_get_outsymbols(abfd) ((abfd)->outsymbols) #define bfd_count_sections(abfd) ((abfd)->section_count) #define bfd_get_symbol_leading_char(abfd) ((abfd)->xvec->symbol_leading_char) #define bfd_set_cacheable(abfd,bool) (((abfd)->cacheable = (bool)), true) /* Byte swapping routines. */ bfd_vma bfd_getb64 PARAMS ((const unsigned char *)); bfd_vma bfd_getl64 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getb_signed_64 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getl_signed_64 PARAMS ((const unsigned char *)); bfd_vma bfd_getb32 PARAMS ((const unsigned char *)); bfd_vma bfd_getl32 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getb_signed_32 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getl_signed_32 PARAMS ((const unsigned char *)); bfd_vma bfd_getb16 PARAMS ((const unsigned char *)); bfd_vma bfd_getl16 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getb_signed_16 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getl_signed_16 PARAMS ((const unsigned char *)); void bfd_putb64 PARAMS ((bfd_vma, unsigned char *)); void bfd_putl64 PARAMS ((bfd_vma, unsigned char *)); void bfd_putb32 PARAMS ((bfd_vma, unsigned char *)); void bfd_putl32 PARAMS ((bfd_vma, unsigned char *)); void bfd_putb16 PARAMS ((bfd_vma, unsigned char *)); void bfd_putl16 PARAMS ((bfd_vma, unsigned char *)); /* Externally visible ECOFF routines. */ #if defined(__STDC__) || defined(ALMOST_STDC) struct ecoff_debug_info; struct ecoff_debug_swap; struct ecoff_extr; struct symbol_cache_entry; struct bfd_link_info; #endif extern bfd_vma bfd_ecoff_get_gp_value PARAMS ((bfd * abfd)); extern boolean bfd_ecoff_set_gp_value PARAMS ((bfd *abfd, bfd_vma gp_value)); extern boolean bfd_ecoff_set_regmasks PARAMS ((bfd *abfd, unsigned long gprmask, unsigned long fprmask, unsigned long *cprmask)); extern PTR bfd_ecoff_debug_init PARAMS ((bfd *output_bfd, struct ecoff_debug_info *output_debug, const struct ecoff_debug_swap *output_swap, struct bfd_link_info *)); extern void bfd_ecoff_debug_free PARAMS ((PTR handle, bfd *output_bfd, struct ecoff_debug_info *output_debug, const struct ecoff_debug_swap *output_swap, struct bfd_link_info *)); extern boolean bfd_ecoff_debug_accumulate PARAMS ((PTR handle, bfd *output_bfd, struct ecoff_debug_info *output_debug, const struct ecoff_debug_swap *output_swap, bfd *input_bfd, struct ecoff_debug_info *input_debug, const struct ecoff_debug_swap *input_swap, struct bfd_link_info *)); extern boolean bfd_ecoff_debug_accumulate_other PARAMS ((PTR handle, bfd *output_bfd, struct ecoff_debug_info *output_debug, const struct ecoff_debug_swap *output_swap, bfd *input_bfd, struct bfd_link_info *)); extern boolean bfd_ecoff_debug_externals PARAMS ((bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap, boolean relocateable, boolean (*get_extr) (struct symbol_cache_entry *, struct ecoff_extr *), void (*set_index) (struct symbol_cache_entry *, bfd_size_type))); extern boolean bfd_ecoff_debug_one_external PARAMS ((bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap, const char *name, struct ecoff_extr *esym)); extern bfd_size_type bfd_ecoff_debug_size PARAMS ((bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap)); extern boolean bfd_ecoff_write_debug PARAMS ((bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap, file_ptr where)); extern boolean bfd_ecoff_write_accumulated_debug PARAMS ((PTR handle, bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap, struct bfd_link_info *info, file_ptr where)); /* Externally visible ELF routines. */ extern boolean bfd_elf32_record_link_assignment PARAMS ((bfd *, struct bfd_link_info *, const char *)); extern boolean bfd_elf64_record_link_assignment PARAMS ((bfd *, struct bfd_link_info *, const char *)); extern boolean bfd_elf32_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *, struct sec **)); extern boolean bfd_elf64_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *, struct sec **)); extern void bfd_elf_set_dt_needed_name PARAMS ((bfd *, const char *)); /* SunOS shared library support routines for the linker. */ extern boolean bfd_sunos_record_link_assignment PARAMS ((bfd *, struct bfd_link_info *, const char *)); extern boolean bfd_sunos_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *, struct sec **, struct sec **, struct sec **)); /* Linux shared library support routines for the linker. */ extern boolean bfd_linux_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); /* And more from the source. */ gdb-4.13/bfd/bfd-in2.h 666 34562 1752 223052 5622333666 12741 0ustar fnfcygnus/* Main header file for the bfd library -- portable access to object files. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. ** NOTE: bfd.h and bfd-in2.h are GENERATED files. Don't change them; ** instead, change bfd-in.h or the other BFD source files processed to ** generate these files. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* bfd.h -- The only header file required by users of the bfd library The bfd.h file is generated from bfd-in.h and various .c files; if you change it, your changes will probably be lost. All the prototypes and definitions following the comment "THE FOLLOWING IS EXTRACTED FROM THE SOURCE" are extracted from the source files for BFD. If you change it, someone oneday will extract it from the source again, and your changes will be lost. To save yourself from this bind, change the definitions in the source in the bfd directory. Type "make docs" and then "make headers" in that directory, and magically this file will change to reflect your changes. If you don't have the tools to perform the extraction, then you are safe from someone on your system trampling over your header files. You should still maintain the equivalence between the source and this file though; every change you make to the .c file should be reflected here. */ #ifndef __BFD_H_SEEN__ #define __BFD_H_SEEN__ #include "ansidecl.h" #include "obstack.h" /* These two lines get substitutions done by commands in Makefile.in. */ #define BFD_VERSION "@VERSION@" #define BFD_ARCH_SIZE @WORDSIZE@ #if BFD_ARCH_SIZE >= 64 #define BFD64 #endif #ifndef INLINE #if __GNUC__ >= 2 #define INLINE __inline__ #else #define INLINE #endif #endif /* 64-bit type definition (if any) from bfd's sysdep.h goes here */ /* forward declaration */ typedef struct _bfd bfd; /* To squelch erroneous compiler warnings ("illegal pointer combination") from the SVR3 compiler, we would like to typedef boolean to int (it doesn't like functions which return boolean. Making sure they are never implicitly declared to return int doesn't seem to help). But this file is not configured based on the host. */ /* General rules: functions which are boolean return true on success and false on failure (unless they're a predicate). -- bfd.doc */ /* I'm sure this is going to break something and someone is going to force me to change it. */ /* typedef enum boolean {false, true} boolean; */ /* Yup, SVR4 has a "typedef enum boolean" in -fnf */ /* It gets worse if the host also defines a true/false enum... -sts */ #ifndef TRUE_FALSE_ALREADY_DEFINED typedef enum bfd_boolean {false, true} boolean; #define BFD_TRUE_FALSE #else typedef enum bfd_boolean {bfd_false, bfd_true} boolean; #endif /* A pointer to a position in a file. */ /* FIXME: This should be using off_t from . For now, try to avoid breaking stuff by not including here. This will break on systems with 64-bit file offsets (e.g. 4.4BSD). Probably the best long-term answer is to avoid using file_ptr AND off_t in this header file, and to handle this in the BFD implementation rather than in its interface. */ /* typedef off_t file_ptr; */ typedef long int file_ptr; /* Support for different sizes of target format ints and addresses. If the host implements 64-bit values, it defines BFD_HOST_64_BIT to be the appropriate type. Otherwise, this code will fall back on gcc's "long long" type if gcc is being used. BFD_HOST_64_BIT must be defined in such a way as to be a valid type name by itself or with "unsigned" prefixed. It should be a signed type by itself. If neither is the case, then compilation will fail if 64-bit targets are requested. If you don't request any 64-bit targets, you should be safe. */ #ifdef BFD64 #if defined (__GNUC__) && !defined (BFD_HOST_64_BIT) #define BFD_HOST_64_BIT long long typedef BFD_HOST_64_BIT int64_type; typedef unsigned BFD_HOST_64_BIT uint64_type; #endif #if !defined (uint64_type) && defined (__GNUC__) #define uint64_type unsigned long long #define int64_type long long #endif #ifndef uint64_typeLOW #define uint64_typeLOW(x) ((unsigned long)(((x) & 0xffffffff))) #define uint64_typeHIGH(x) ((unsigned long)(((x) >> 32) & 0xffffffff)) #endif typedef unsigned BFD_HOST_64_BIT bfd_vma; typedef BFD_HOST_64_BIT bfd_signed_vma; typedef unsigned BFD_HOST_64_BIT bfd_size_type; typedef unsigned BFD_HOST_64_BIT symvalue; #ifndef fprintf_vma #define fprintf_vma(s,x) \ fprintf(s,"%08lx%08lx", uint64_typeHIGH(x), uint64_typeLOW(x)) #define sprintf_vma(s,x) \ sprintf(s,"%08lx%08lx", uint64_typeHIGH(x), uint64_typeLOW(x)) #endif #else /* not BFD64 */ /* Represent a target address. Also used as a generic unsigned type which is guaranteed to be big enough to hold any arithmetic types we need to deal with. */ typedef unsigned long bfd_vma; /* A generic signed type which is guaranteed to be big enough to hold any arithmetic types we need to deal with. Can be assumed to be compatible with bfd_vma in the same way that signed and unsigned ints are compatible (as parameters, in assignment, etc). */ typedef long bfd_signed_vma; typedef unsigned long symvalue; typedef unsigned long bfd_size_type; /* Print a bfd_vma x on stream s. */ #define fprintf_vma(s,x) fprintf(s, "%08lx", x) #define sprintf_vma(s,x) sprintf(s, "%08lx", x) #endif /* not BFD64 */ #define printf_vma(x) fprintf_vma(stdout,x) typedef unsigned int flagword; /* 32 bits of flags */ /** File formats */ typedef enum bfd_format { bfd_unknown = 0, /* file format is unknown */ bfd_object, /* linker/assember/compiler output */ bfd_archive, /* object archive file */ bfd_core, /* core dump */ bfd_type_end} /* marks the end; don't use it! */ bfd_format; /* Values that may appear in the flags field of a BFD. These also appear in the object_flags field of the bfd_target structure, where they indicate the set of flags used by that backend (not all flags are meaningful for all object file formats) (FIXME: at the moment, the object_flags values have mostly just been copied from backend to another, and are not necessarily correct). */ /* No flags. */ #define NO_FLAGS 0x00 /* BFD contains relocation entries. */ #define HAS_RELOC 0x01 /* BFD is directly executable. */ #define EXEC_P 0x02 /* BFD has line number information (basically used for F_LNNO in a COFF header). */ #define HAS_LINENO 0x04 /* BFD has debugging information. */ #define HAS_DEBUG 0x08 /* BFD has symbols. */ #define HAS_SYMS 0x10 /* BFD has local symbols (basically used for F_LSYMS in a COFF header). */ #define HAS_LOCALS 0x20 /* BFD is a dynamic object. */ #define DYNAMIC 0x40 /* Text section is write protected (if D_PAGED is not set, this is like an a.out NMAGIC file) (the linker sets this by default, but clears it for -r or -N). */ #define WP_TEXT 0x80 /* BFD is dynamically paged (this is like an a.out ZMAGIC file) (the linker sets this by default, but clears it for -r or -n or -N). */ #define D_PAGED 0x100 /* BFD is relaxable (this means that bfd_relax_section may be able to do something). */ #define BFD_IS_RELAXABLE 0x200 /* This may be set before writing out a BFD to request using a traditional format. For example, this is used to request that when writing out an a.out object the symbols not be hashed to eliminate duplicates. */ #define BFD_TRADITIONAL_FORMAT 0x400 /* symbols and relocation */ /* A count of carsyms (canonical archive symbols). */ typedef unsigned long symindex; #define BFD_NO_MORE_SYMBOLS ((symindex) ~0) /* General purpose part of a symbol X; target specific parts are in libcoff.h, libaout.h, etc. */ #define bfd_get_section(x) ((x)->section) #define bfd_get_output_section(x) ((x)->section->output_section) #define bfd_set_section(x,y) ((x)->section) = (y) #define bfd_asymbol_base(x) ((x)->section->vma) #define bfd_asymbol_value(x) (bfd_asymbol_base(x) + (x)->value) #define bfd_asymbol_name(x) ((x)->name) /*Perhaps future: #define bfd_asymbol_bfd(x) ((x)->section->owner)*/ #define bfd_asymbol_bfd(x) ((x)->the_bfd) #define bfd_asymbol_flavour(x) (bfd_asymbol_bfd(x)->xvec->flavour) /* A canonical archive symbol. */ /* This is a type pun with struct ranlib on purpose! */ typedef struct carsym { char *name; file_ptr file_offset; /* look here to find the file */ } carsym; /* to make these you call a carsymogen */ /* Used in generating armaps (archive tables of contents). Perhaps just a forward definition would do? */ struct orl { /* output ranlib */ char **name; /* symbol name */ file_ptr pos; /* bfd* or file position */ int namidx; /* index into string table */ }; /* Linenumber stuff */ typedef struct lineno_cache_entry { unsigned int line_number; /* Linenumber from start of function*/ union { struct symbol_cache_entry *sym; /* Function name */ unsigned long offset; /* Offset into section */ } u; } alent; /* object and core file sections */ #define align_power(addr, align) \ ( ((addr) + ((1<<(align))-1)) & (-1 << (align))) typedef struct sec *sec_ptr; #define bfd_get_section_name(bfd, ptr) ((ptr)->name + 0) #define bfd_get_section_vma(bfd, ptr) ((ptr)->vma + 0) #define bfd_get_section_alignment(bfd, ptr) ((ptr)->alignment_power + 0) #define bfd_section_name(bfd, ptr) ((ptr)->name) #define bfd_section_size(bfd, ptr) (bfd_get_section_size_before_reloc(ptr)) #define bfd_section_vma(bfd, ptr) ((ptr)->vma) #define bfd_section_alignment(bfd, ptr) ((ptr)->alignment_power) #define bfd_get_section_flags(bfd, ptr) ((ptr)->flags + 0) #define bfd_get_section_userdata(bfd, ptr) ((ptr)->userdata) #define bfd_is_com_section(ptr) (((ptr)->flags & SEC_IS_COMMON) != 0) #define bfd_set_section_vma(bfd, ptr, val) (((ptr)->vma = (ptr)->lma= (val)), ((ptr)->user_set_vma = true), true) #define bfd_set_section_alignment(bfd, ptr, val) (((ptr)->alignment_power = (val)),true) #define bfd_set_section_userdata(bfd, ptr, val) (((ptr)->userdata = (val)),true) typedef struct stat stat_type; typedef enum bfd_print_symbol { bfd_print_symbol_name, bfd_print_symbol_more, bfd_print_symbol_all } bfd_print_symbol_type; /* Information about a symbol that nm needs. */ typedef struct _symbol_info { symvalue value; char type; CONST char *name; /* Symbol name. */ char stab_other; /* Unused. */ short stab_desc; /* Info for N_TYPE. */ CONST char *stab_name; } symbol_info; /* Hash table routines. There is no way to free up a hash table. */ /* An element in the hash table. Most uses will actually use a larger structure, and an instance of this will be the first field. */ struct bfd_hash_entry { /* Next entry for this hash code. */ struct bfd_hash_entry *next; /* String being hashed. */ const char *string; /* Hash code. This is the full hash code, not the index into the table. */ unsigned long hash; }; /* A hash table. */ struct bfd_hash_table { /* The hash array. */ struct bfd_hash_entry **table; /* The number of slots in the hash table. */ unsigned int size; /* A function used to create new elements in the hash table. The first entry is itself a pointer to an element. When this function is first invoked, this pointer will be NULL. However, having the pointer permits a hierarchy of method functions to be built each of which calls the function in the superclass. Thus each function should be written to allocate a new block of memory only if the argument is NULL. */ struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); /* An obstack for this hash table. */ struct obstack memory; }; /* Initialize a hash table. */ extern boolean bfd_hash_table_init PARAMS ((struct bfd_hash_table *, struct bfd_hash_entry *(*) (struct bfd_hash_entry *, struct bfd_hash_table *, const char *))); /* Initialize a hash table specifying a size. */ extern boolean bfd_hash_table_init_n PARAMS ((struct bfd_hash_table *, struct bfd_hash_entry *(*) (struct bfd_hash_entry *, struct bfd_hash_table *, const char *), unsigned int size)); /* Free up a hash table. */ extern void bfd_hash_table_free PARAMS ((struct bfd_hash_table *)); /* Look up a string in a hash table. If CREATE is true, a new entry will be created for this string if one does not already exist. The COPY argument must be true if this routine should copy the string into newly allocated memory when adding an entry. */ extern struct bfd_hash_entry *bfd_hash_lookup PARAMS ((struct bfd_hash_table *, const char *, boolean create, boolean copy)); /* Base method for creating a hash table entry. */ extern struct bfd_hash_entry *bfd_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); /* Grab some space for a hash table entry. */ extern PTR bfd_hash_allocate PARAMS ((struct bfd_hash_table *, unsigned int)); /* Traverse a hash table in a random order, calling a function on each element. If the function returns false, the traversal stops. The INFO argument is passed to the function. */ extern void bfd_hash_traverse PARAMS ((struct bfd_hash_table *, boolean (*) (struct bfd_hash_entry *, PTR), PTR info)); /* Semi-portable string concatenation in cpp. The CAT4 hack is to avoid a problem with some strict ANSI C preprocessors. The problem is, "32_" is not a valid preprocessing token, and we don't want extra underscores (e.g., "nlm_32_"). The XCAT2 macro will cause the inner CAT macros to be evaluated first, producing still-valid pp-tokens. Then the final concatenation can be done. (Sigh.) */ #ifndef CAT #ifdef SABER #define CAT(a,b) a##b #define CAT3(a,b,c) a##b##c #define CAT4(a,b,c,d) a##b##c##d #else #if defined(__STDC__) || defined(ALMOST_STDC) #define CAT(a,b) a##b #define CAT3(a,b,c) a##b##c #define XCAT2(a,b) CAT(a,b) #define CAT4(a,b,c,d) XCAT2(CAT(a,b),CAT(c,d)) #else #define CAT(a,b) a/**/b #define CAT3(a,b,c) a/**/b/**/c #define CAT4(a,b,c,d) a/**/b/**/c/**/d #endif #endif #endif #define COFF_SWAP_TABLE (PTR) &bfd_coff_std_swap_table /* User program access to BFD facilities */ /* Cast from const char * to char * so that caller can assign to a char * without a warning. */ #define bfd_get_filename(abfd) ((char *) (abfd)->filename) #define bfd_get_cacheable(abfd) ((abfd)->cacheable) #define bfd_get_format(abfd) ((abfd)->format) #define bfd_get_target(abfd) ((abfd)->xvec->name) #define bfd_get_flavour(abfd) ((abfd)->xvec->flavour) #define bfd_get_file_flags(abfd) ((abfd)->flags) #define bfd_applicable_file_flags(abfd) ((abfd)->xvec->object_flags) #define bfd_applicable_section_flags(abfd) ((abfd)->xvec->section_flags) #define bfd_my_archive(abfd) ((abfd)->my_archive) #define bfd_has_map(abfd) ((abfd)->has_armap) #define bfd_valid_reloc_types(abfd) ((abfd)->xvec->valid_reloc_types) #define bfd_usrdata(abfd) ((abfd)->usrdata) #define bfd_get_start_address(abfd) ((abfd)->start_address) #define bfd_get_symcount(abfd) ((abfd)->symcount) #define bfd_get_outsymbols(abfd) ((abfd)->outsymbols) #define bfd_count_sections(abfd) ((abfd)->section_count) #define bfd_get_symbol_leading_char(abfd) ((abfd)->xvec->symbol_leading_char) #define bfd_set_cacheable(abfd,bool) (((abfd)->cacheable = (bool)), true) /* Byte swapping routines. */ bfd_vma bfd_getb64 PARAMS ((const unsigned char *)); bfd_vma bfd_getl64 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getb_signed_64 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getl_signed_64 PARAMS ((const unsigned char *)); bfd_vma bfd_getb32 PARAMS ((const unsigned char *)); bfd_vma bfd_getl32 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getb_signed_32 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getl_signed_32 PARAMS ((const unsigned char *)); bfd_vma bfd_getb16 PARAMS ((const unsigned char *)); bfd_vma bfd_getl16 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getb_signed_16 PARAMS ((const unsigned char *)); bfd_signed_vma bfd_getl_signed_16 PARAMS ((const unsigned char *)); void bfd_putb64 PARAMS ((bfd_vma, unsigned char *)); void bfd_putl64 PARAMS ((bfd_vma, unsigned char *)); void bfd_putb32 PARAMS ((bfd_vma, unsigned char *)); void bfd_putl32 PARAMS ((bfd_vma, unsigned char *)); void bfd_putb16 PARAMS ((bfd_vma, unsigned char *)); void bfd_putl16 PARAMS ((bfd_vma, unsigned char *)); /* Externally visible ECOFF routines. */ #if defined(__STDC__) || defined(ALMOST_STDC) struct ecoff_debug_info; struct ecoff_debug_swap; struct ecoff_extr; struct symbol_cache_entry; struct bfd_link_info; #endif extern bfd_vma bfd_ecoff_get_gp_value PARAMS ((bfd * abfd)); extern boolean bfd_ecoff_set_gp_value PARAMS ((bfd *abfd, bfd_vma gp_value)); extern boolean bfd_ecoff_set_regmasks PARAMS ((bfd *abfd, unsigned long gprmask, unsigned long fprmask, unsigned long *cprmask)); extern PTR bfd_ecoff_debug_init PARAMS ((bfd *output_bfd, struct ecoff_debug_info *output_debug, const struct ecoff_debug_swap *output_swap, struct bfd_link_info *)); extern void bfd_ecoff_debug_free PARAMS ((PTR handle, bfd *output_bfd, struct ecoff_debug_info *output_debug, const struct ecoff_debug_swap *output_swap, struct bfd_link_info *)); extern boolean bfd_ecoff_debug_accumulate PARAMS ((PTR handle, bfd *output_bfd, struct ecoff_debug_info *output_debug, const struct ecoff_debug_swap *output_swap, bfd *input_bfd, struct ecoff_debug_info *input_debug, const struct ecoff_debug_swap *input_swap, struct bfd_link_info *)); extern boolean bfd_ecoff_debug_accumulate_other PARAMS ((PTR handle, bfd *output_bfd, struct ecoff_debug_info *output_debug, const struct ecoff_debug_swap *output_swap, bfd *input_bfd, struct bfd_link_info *)); extern boolean bfd_ecoff_debug_externals PARAMS ((bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap, boolean relocateable, boolean (*get_extr) (struct symbol_cache_entry *, struct ecoff_extr *), void (*set_index) (struct symbol_cache_entry *, bfd_size_type))); extern boolean bfd_ecoff_debug_one_external PARAMS ((bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap, const char *name, struct ecoff_extr *esym)); extern bfd_size_type bfd_ecoff_debug_size PARAMS ((bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap)); extern boolean bfd_ecoff_write_debug PARAMS ((bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap, file_ptr where)); extern boolean bfd_ecoff_write_accumulated_debug PARAMS ((PTR handle, bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap, struct bfd_link_info *info, file_ptr where)); /* Externally visible ELF routines. */ extern boolean bfd_elf32_record_link_assignment PARAMS ((bfd *, struct bfd_link_info *, const char *)); extern boolean bfd_elf64_record_link_assignment PARAMS ((bfd *, struct bfd_link_info *, const char *)); extern boolean bfd_elf32_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *, struct sec **)); extern boolean bfd_elf64_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *, struct sec **)); extern void bfd_elf_set_dt_needed_name PARAMS ((bfd *, const char *)); /* SunOS shared library support routines for the linker. */ extern boolean bfd_sunos_record_link_assignment PARAMS ((bfd *, struct bfd_link_info *, const char *)); extern boolean bfd_sunos_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *, struct sec **, struct sec **, struct sec **)); /* Linux shared library support routines for the linker. */ extern boolean bfd_linux_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); /* And more from the source. */ void bfd_init PARAMS ((void)); bfd * bfd_openr PARAMS ((CONST char *filename, CONST char *target)); bfd * bfd_fdopenr PARAMS ((CONST char *filename, CONST char *target, int fd)); bfd * bfd_openw PARAMS ((CONST char *filename, CONST char *target)); boolean bfd_close PARAMS ((bfd *abfd)); boolean bfd_close_all_done PARAMS ((bfd *)); bfd_size_type bfd_alloc_size PARAMS ((bfd *abfd)); bfd * bfd_create PARAMS ((CONST char *filename, bfd *templ)); /* Byte swapping macros for user section data. */ #define bfd_put_8(abfd, val, ptr) \ (*((unsigned char *)(ptr)) = (unsigned char)(val)) #define bfd_put_signed_8 \ bfd_put_8 #define bfd_get_8(abfd, ptr) \ (*(unsigned char *)(ptr)) #define bfd_get_signed_8(abfd, ptr) \ ((*(unsigned char *)(ptr) ^ 0x80) - 0x80) #define bfd_put_16(abfd, val, ptr) \ BFD_SEND(abfd, bfd_putx16, ((val),(ptr))) #define bfd_put_signed_16 \ bfd_put_16 #define bfd_get_16(abfd, ptr) \ BFD_SEND(abfd, bfd_getx16, (ptr)) #define bfd_get_signed_16(abfd, ptr) \ BFD_SEND (abfd, bfd_getx_signed_16, (ptr)) #define bfd_put_32(abfd, val, ptr) \ BFD_SEND(abfd, bfd_putx32, ((val),(ptr))) #define bfd_put_signed_32 \ bfd_put_32 #define bfd_get_32(abfd, ptr) \ BFD_SEND(abfd, bfd_getx32, (ptr)) #define bfd_get_signed_32(abfd, ptr) \ BFD_SEND(abfd, bfd_getx_signed_32, (ptr)) #define bfd_put_64(abfd, val, ptr) \ BFD_SEND(abfd, bfd_putx64, ((val), (ptr))) #define bfd_put_signed_64 \ bfd_put_64 #define bfd_get_64(abfd, ptr) \ BFD_SEND(abfd, bfd_getx64, (ptr)) #define bfd_get_signed_64(abfd, ptr) \ BFD_SEND(abfd, bfd_getx_signed_64, (ptr)) /* Byte swapping macros for file header data. */ #define bfd_h_put_8(abfd, val, ptr) \ bfd_put_8 (abfd, val, ptr) #define bfd_h_put_signed_8(abfd, val, ptr) \ bfd_put_8 (abfd, val, ptr) #define bfd_h_get_8(abfd, ptr) \ bfd_get_8 (abfd, ptr) #define bfd_h_get_signed_8(abfd, ptr) \ bfd_get_signed_8 (abfd, ptr) #define bfd_h_put_16(abfd, val, ptr) \ BFD_SEND(abfd, bfd_h_putx16,(val,ptr)) #define bfd_h_put_signed_16 \ bfd_h_put_16 #define bfd_h_get_16(abfd, ptr) \ BFD_SEND(abfd, bfd_h_getx16,(ptr)) #define bfd_h_get_signed_16(abfd, ptr) \ BFD_SEND(abfd, bfd_h_getx_signed_16, (ptr)) #define bfd_h_put_32(abfd, val, ptr) \ BFD_SEND(abfd, bfd_h_putx32,(val,ptr)) #define bfd_h_put_signed_32 \ bfd_h_put_32 #define bfd_h_get_32(abfd, ptr) \ BFD_SEND(abfd, bfd_h_getx32,(ptr)) #define bfd_h_get_signed_32(abfd, ptr) \ BFD_SEND(abfd, bfd_h_getx_signed_32, (ptr)) #define bfd_h_put_64(abfd, val, ptr) \ BFD_SEND(abfd, bfd_h_putx64,(val, ptr)) #define bfd_h_put_signed_64 \ bfd_h_put_64 #define bfd_h_get_64(abfd, ptr) \ BFD_SEND(abfd, bfd_h_getx64,(ptr)) #define bfd_h_get_signed_64(abfd, ptr) \ BFD_SEND(abfd, bfd_h_getx_signed_64, (ptr)) typedef struct sec { /* The name of the section; the name isn't a copy, the pointer is the same as that passed to bfd_make_section. */ CONST char *name; /* Which section is it; 0..nth. */ int index; /* The next section in the list belonging to the BFD, or NULL. */ struct sec *next; /* The field flags contains attributes of the section. Some flags are read in from the object file, and some are synthesized from other information. */ flagword flags; #define SEC_NO_FLAGS 0x000 /* Tells the OS to allocate space for this section when loading. This is clear for a section containing debug information only. */ #define SEC_ALLOC 0x001 /* Tells the OS to load the section from the file when loading. This is clear for a .bss section. */ #define SEC_LOAD 0x002 /* The section contains data still to be relocated, so there is some relocation information too. */ #define SEC_RELOC 0x004 #if 0 /* Obsolete ? */ #define SEC_BALIGN 0x008 #endif /* A signal to the OS that the section contains read only data. */ #define SEC_READONLY 0x010 /* The section contains code only. */ #define SEC_CODE 0x020 /* The section contains data only. */ #define SEC_DATA 0x040 /* The section will reside in ROM. */ #define SEC_ROM 0x080 /* The section contains constructor information. This section type is used by the linker to create lists of constructors and destructors used by <>. When a back end sees a symbol which should be used in a constructor list, it creates a new section for the type of name (e.g., <<__CTOR_LIST__>>), attaches the symbol to it, and builds a relocation. To build the lists of constructors, all the linker has to do is catenate all the sections called <<__CTOR_LIST__>> and relocate the data contained within - exactly the operations it would peform on standard data. */ #define SEC_CONSTRUCTOR 0x100 /* The section is a constuctor, and should be placed at the end of the text, data, or bss section(?). */ #define SEC_CONSTRUCTOR_TEXT 0x1100 #define SEC_CONSTRUCTOR_DATA 0x2100 #define SEC_CONSTRUCTOR_BSS 0x3100 /* The section has contents - a data section could be <> | <>; a debug section could be <> */ #define SEC_HAS_CONTENTS 0x200 /* An instruction to the linker to not output the section even if it has information which would normally be written. */ #define SEC_NEVER_LOAD 0x400 /* The section is a COFF shared library section. This flag is only for the linker. If this type of section appears in the input file, the linker must copy it to the output file without changing the vma or size. FIXME: Although this was originally intended to be general, it really is COFF specific (and the flag was renamed to indicate this). It might be cleaner to have some more general mechanism to allow the back end to control what the linker does with sections. */ #define SEC_COFF_SHARED_LIBRARY 0x800 /* The section is a common section (symbols may be defined multiple times, the value of a symbol is the amount of space it requires, and the largest symbol value is the one used). Most targets have exactly one of these (which we translate to bfd_com_section_ptr), but ECOFF has two. */ #define SEC_IS_COMMON 0x8000 /* The section contains only debugging information. For example, this is set for ELF .debug and .stab sections. strip tests this flag to see if a section can be discarded. */ #define SEC_DEBUGGING 0x10000 /* The contents of this section are held in memory pointed to by the contents field. This is checked by bfd_get_section_contents, and the data is retrieved from memory if appropriate. */ #define SEC_IN_MEMORY 0x20000 /* End of section flags. */ /* The virtual memory address of the section - where it will be at run time. The symbols are relocated against this. The user_set_vma flag is maintained by bfd; if it's not set, the backend can assign addresses (for example, in <>, where the default address for <<.data>> is dependent on the specific target and various flags). */ bfd_vma vma; boolean user_set_vma; /* The load address of the section - where it would be in a rom image; really only used for writing section header information. */ bfd_vma lma; /* The size of the section in bytes, as it will be output. contains a value even if the section has no contents (e.g., the size of <<.bss>>). This will be filled in after relocation */ bfd_size_type _cooked_size; /* The original size on disk of the section, in bytes. Normally this value is the same as the size, but if some relaxing has been done, then this value will be bigger. */ bfd_size_type _raw_size; /* If this section is going to be output, then this value is the offset into the output section of the first byte in the input section. E.g., if this was going to start at the 100th byte in the output section, this value would be 100. */ bfd_vma output_offset; /* The output section through which to map on output. */ struct sec *output_section; /* The alignment requirement of the section, as an exponent of 2 - e.g., 3 aligns to 2^3 (or 8). */ unsigned int alignment_power; /* If an input section, a pointer to a vector of relocation records for the data in this section. */ struct reloc_cache_entry *relocation; /* If an output section, a pointer to a vector of pointers to relocation records for the data in this section. */ struct reloc_cache_entry **orelocation; /* The number of relocation records in one of the above */ unsigned reloc_count; /* Information below is back end specific - and not always used or updated. */ /* File position of section data */ file_ptr filepos; /* File position of relocation info */ file_ptr rel_filepos; /* File position of line data */ file_ptr line_filepos; /* Pointer to data for applications */ PTR userdata; /* If the SEC_IN_MEMORY flag is set, this points to the actual contents. */ unsigned char *contents; /* Attached line number information */ alent *lineno; /* Number of line number records */ unsigned int lineno_count; /* When a section is being output, this value changes as more linenumbers are written out */ file_ptr moving_line_filepos; /* What the section number is in the target world */ int target_index; PTR used_by_bfd; /* If this is a constructor section then here is a list of the relocations created to relocate items within it. */ struct relent_chain *constructor_chain; /* The BFD which owns the section. */ bfd *owner; boolean reloc_done; /* A symbol which points at this section only */ struct symbol_cache_entry *symbol; struct symbol_cache_entry **symbol_ptr_ptr; struct bfd_link_order *link_order_head; struct bfd_link_order *link_order_tail; } asection ; /* These sections are global, and are managed by BFD. The application and target back end are not permitted to change the values in these sections. New code should use the section_ptr macros rather than referring directly to the const sections. The const sections may eventually vanish. */ #define BFD_ABS_SECTION_NAME "*ABS*" #define BFD_UND_SECTION_NAME "*UND*" #define BFD_COM_SECTION_NAME "*COM*" #define BFD_IND_SECTION_NAME "*IND*" /* the absolute section */ extern const asection bfd_abs_section; #define bfd_abs_section_ptr ((asection *) &bfd_abs_section) #define bfd_is_abs_section(sec) ((sec) == bfd_abs_section_ptr) /* Pointer to the undefined section */ extern const asection bfd_und_section; #define bfd_und_section_ptr ((asection *) &bfd_und_section) #define bfd_is_und_section(sec) ((sec) == bfd_und_section_ptr) /* Pointer to the common section */ extern const asection bfd_com_section; #define bfd_com_section_ptr ((asection *) &bfd_com_section) /* Pointer to the indirect section */ extern const asection bfd_ind_section; #define bfd_ind_section_ptr ((asection *) &bfd_ind_section) #define bfd_is_ind_section(sec) ((sec) == bfd_ind_section_ptr) extern const struct symbol_cache_entry * const bfd_abs_symbol; extern const struct symbol_cache_entry * const bfd_com_symbol; extern const struct symbol_cache_entry * const bfd_und_symbol; extern const struct symbol_cache_entry * const bfd_ind_symbol; #define bfd_get_section_size_before_reloc(section) \ (section->reloc_done ? (abort(),1): (section)->_raw_size) #define bfd_get_section_size_after_reloc(section) \ ((section->reloc_done) ? (section)->_cooked_size: (abort(),1)) asection * bfd_get_section_by_name PARAMS ((bfd *abfd, CONST char *name)); asection * bfd_make_section_old_way PARAMS ((bfd *abfd, CONST char *name)); asection * bfd_make_section_anyway PARAMS ((bfd *abfd, CONST char *name)); asection * bfd_make_section PARAMS ((bfd *, CONST char *name)); boolean bfd_set_section_flags PARAMS ((bfd *abfd, asection *sec, flagword flags)); void bfd_map_over_sections PARAMS ((bfd *abfd, void (*func)(bfd *abfd, asection *sect, PTR obj), PTR obj)); boolean bfd_set_section_size PARAMS ((bfd *abfd, asection *sec, bfd_size_type val)); boolean bfd_set_section_contents PARAMS ((bfd *abfd, asection *section, PTR data, file_ptr offset, bfd_size_type count)); boolean bfd_get_section_contents PARAMS ((bfd *abfd, asection *section, PTR location, file_ptr offset, bfd_size_type count)); boolean bfd_copy_private_section_data PARAMS ((bfd *ibfd, asection *isec, bfd *obfd, asection *osec)); #define bfd_copy_private_section_data(ibfd, isection, obfd, osection) \ BFD_SEND (ibfd, _bfd_copy_private_section_data, \ (ibfd, isection, obfd, osection)) enum bfd_architecture { bfd_arch_unknown, /* File arch not known */ bfd_arch_obscure, /* Arch known, not one of these */ bfd_arch_m68k, /* Motorola 68xxx */ bfd_arch_vax, /* DEC Vax */ bfd_arch_i960, /* Intel 960 */ /* The order of the following is important. lower number indicates a machine type that only accepts a subset of the instructions available to machines with higher numbers. The exception is the "ca", which is incompatible with all other machines except "core". */ #define bfd_mach_i960_core 1 #define bfd_mach_i960_ka_sa 2 #define bfd_mach_i960_kb_sb 3 #define bfd_mach_i960_mc 4 #define bfd_mach_i960_xa 5 #define bfd_mach_i960_ca 6 bfd_arch_a29k, /* AMD 29000 */ bfd_arch_sparc, /* SPARC */ bfd_arch_mips, /* MIPS Rxxxx */ bfd_arch_i386, /* Intel 386 */ bfd_arch_we32k, /* AT&T WE32xxx */ bfd_arch_tahoe, /* CCI/Harris Tahoe */ bfd_arch_i860, /* Intel 860 */ bfd_arch_romp, /* IBM ROMP PC/RT */ bfd_arch_alliant, /* Alliant */ bfd_arch_convex, /* Convex */ bfd_arch_m88k, /* Motorola 88xxx */ bfd_arch_pyramid, /* Pyramid Technology */ bfd_arch_h8300, /* Hitachi H8/300 */ #define bfd_mach_h8300 1 #define bfd_mach_h8300h 2 bfd_arch_powerpc, /* PowerPC */ bfd_arch_rs6000, /* IBM RS/6000 */ bfd_arch_hppa, /* HP PA RISC */ bfd_arch_z8k, /* Zilog Z8000 */ #define bfd_mach_z8001 1 #define bfd_mach_z8002 2 bfd_arch_h8500, /* Hitachi H8/500 */ bfd_arch_sh, /* Hitachi SH */ bfd_arch_alpha, /* Dec Alpha */ bfd_arch_ns32k, /* National Semiconductors ns32000 */ bfd_arch_last }; typedef struct bfd_arch_info { int bits_per_word; int bits_per_address; int bits_per_byte; enum bfd_architecture arch; long mach; char *arch_name; CONST char *printable_name; unsigned int section_align_power; /* true if this is the default machine for the architecture */ boolean the_default; CONST struct bfd_arch_info * (*compatible) PARAMS ((CONST struct bfd_arch_info *a, CONST struct bfd_arch_info *b)); boolean (*scan) PARAMS ((CONST struct bfd_arch_info *, CONST char *)); /* How to disassemble an instruction, producing a printable representation on a specified stdio stream. This isn't defined for most processors at present, because of the size of the additional tables it would drag in, and because gdb wants to use a different interface. */ unsigned int (*disassemble) PARAMS ((bfd_vma addr, CONST char *data, PTR stream)); struct bfd_arch_info *next; } bfd_arch_info_type; CONST char * bfd_printable_name PARAMS ((bfd *abfd)); bfd_arch_info_type * bfd_scan_arch PARAMS ((CONST char *string)); CONST bfd_arch_info_type * bfd_arch_get_compatible PARAMS (( CONST bfd *abfd, CONST bfd *bbfd)); void bfd_set_arch_info PARAMS ((bfd *abfd, bfd_arch_info_type *arg)); enum bfd_architecture bfd_get_arch PARAMS ((bfd *abfd)); unsigned long bfd_get_mach PARAMS ((bfd *abfd)); unsigned int bfd_arch_bits_per_byte PARAMS ((bfd *abfd)); unsigned int bfd_arch_bits_per_address PARAMS ((bfd *abfd)); bfd_arch_info_type * bfd_get_arch_info PARAMS ((bfd *abfd)); bfd_arch_info_type * bfd_lookup_arch PARAMS ((enum bfd_architecture arch, long machine)); CONST char * bfd_printable_arch_mach PARAMS ((enum bfd_architecture arch, unsigned long machine)); typedef enum bfd_reloc_status { /* No errors detected */ bfd_reloc_ok, /* The relocation was performed, but there was an overflow. */ bfd_reloc_overflow, /* The address to relocate was not within the section supplied. */ bfd_reloc_outofrange, /* Used by special functions */ bfd_reloc_continue, /* Unsupported relocation size requested. */ bfd_reloc_notsupported, /* Unused */ bfd_reloc_other, /* The symbol to relocate against was undefined. */ bfd_reloc_undefined, /* The relocation was performed, but may not be ok - presently generated only when linking i960 coff files with i960 b.out symbols. If this type is returned, the error_message argument to bfd_perform_relocation will be set. */ bfd_reloc_dangerous } bfd_reloc_status_type; typedef struct reloc_cache_entry { /* A pointer into the canonical table of pointers */ struct symbol_cache_entry **sym_ptr_ptr; /* offset in section */ bfd_size_type address; /* addend for relocation value */ bfd_vma addend; /* Pointer to how to perform the required relocation */ const struct reloc_howto_struct *howto; } arelent; enum complain_overflow { /* Do not complain on overflow. */ complain_overflow_dont, /* Complain if the bitfield overflows, whether it is considered as signed or unsigned. */ complain_overflow_bitfield, /* Complain if the value overflows when considered as signed number. */ complain_overflow_signed, /* Complain if the value overflows when considered as an unsigned number. */ complain_overflow_unsigned }; typedef unsigned char bfd_byte; typedef struct reloc_howto_struct reloc_howto_type; struct reloc_howto_struct { /* The type field has mainly a documetary use - the back end can do what it wants with it, though normally the back end's external idea of what a reloc number is stored in this field. For example, a PC relative word relocation in a coff environment has the type 023 - because that's what the outside world calls a R_PCRWORD reloc. */ unsigned int type; /* The value the final relocation is shifted right by. This drops unwanted data from the relocation. */ unsigned int rightshift; /* The size of the item to be relocated. This is *not* a power-of-two measure. To get the number of bytes operated on by a type of relocation, use bfd_get_reloc_size. */ int size; /* The number of bits in the item to be relocated. This is used when doing overflow checking. */ unsigned int bitsize; /* Notes that the relocation is relative to the location in the data section of the addend. The relocation function will subtract from the relocation value the address of the location being relocated. */ boolean pc_relative; /* The bit position of the reloc value in the destination. The relocated value is left shifted by this amount. */ unsigned int bitpos; /* What type of overflow error should be checked for when relocating. */ enum complain_overflow complain_on_overflow; /* If this field is non null, then the supplied function is called rather than the normal function. This allows really strange relocation methods to be accomodated (e.g., i960 callj instructions). */ bfd_reloc_status_type (*special_function) PARAMS ((bfd *abfd, arelent *reloc_entry, struct symbol_cache_entry *symbol, PTR data, asection *input_section, bfd *output_bfd, char **error_message)); /* The textual name of the relocation type. */ char *name; /* When performing a partial link, some formats must modify the relocations rather than the data - this flag signals this.*/ boolean partial_inplace; /* The src_mask selects which parts of the read in data are to be used in the relocation sum. E.g., if this was an 8 bit bit of data which we read and relocated, this would be 0x000000ff. When we have relocs which have an addend, such as sun4 extended relocs, the value in the offset part of a relocating field is garbage so we never use it. In this case the mask would be 0x00000000. */ bfd_vma src_mask; /* The dst_mask selects which parts of the instruction are replaced into the instruction. In most cases src_mask == dst_mask, except in the above special case, where dst_mask would be 0x000000ff, and src_mask would be 0x00000000. */ bfd_vma dst_mask; /* When some formats create PC relative instructions, they leave the value of the pc of the place being relocated in the offset slot of the instruction, so that a PC relative relocation can be made just by adding in an ordinary offset (e.g., sun3 a.out). Some formats leave the displacement part of an instruction empty (e.g., m88k bcs); this flag signals the fact.*/ boolean pcrel_offset; }; #define HOWTO(C, R,S,B, P, BI, O, SF, NAME, INPLACE, MASKSRC, MASKDST, PC) \ {(unsigned)C,R,S,B, P, BI, O,SF,NAME,INPLACE,MASKSRC,MASKDST,PC} #define NEWHOWTO( FUNCTION, NAME,SIZE,REL,IN) HOWTO(0,0,SIZE,0,REL,0,complain_overflow_dont,FUNCTION, NAME,false,0,0,IN) #define HOWTO_PREPARE(relocation, symbol) \ { \ if (symbol != (asymbol *)NULL) { \ if (bfd_is_com_section (symbol->section)) { \ relocation = 0; \ } \ else { \ relocation = symbol->value; \ } \ } \ } int bfd_get_reloc_size PARAMS ((const reloc_howto_type *)); typedef struct relent_chain { arelent relent; struct relent_chain *next; } arelent_chain; bfd_reloc_status_type bfd_perform_relocation PARAMS ((bfd *abfd, arelent *reloc_entry, PTR data, asection *input_section, bfd *output_bfd, char **error_message)); typedef enum bfd_reloc_code_real { /* Basic absolute relocations */ BFD_RELOC_64, BFD_RELOC_32, BFD_RELOC_26, BFD_RELOC_16, BFD_RELOC_14, BFD_RELOC_8, /* PC-relative relocations */ BFD_RELOC_64_PCREL, BFD_RELOC_32_PCREL, BFD_RELOC_24_PCREL, /* used by i960 */ BFD_RELOC_16_PCREL, BFD_RELOC_8_PCREL, /* Linkage-table relative */ BFD_RELOC_32_BASEREL, BFD_RELOC_16_BASEREL, BFD_RELOC_8_BASEREL, /* The type of reloc used to build a contructor table - at the moment probably a 32 bit wide abs address, but the cpu can choose. */ BFD_RELOC_CTOR, /* 8 bits wide, but used to form an address like 0xffnn */ BFD_RELOC_8_FFnn, /* 32-bit pc-relative, shifted right 2 bits (i.e., 30-bit word displacement, e.g. for SPARC) */ BFD_RELOC_32_PCREL_S2, /* signed 16-bit pc-relative, shifted right 2 bits (e.g. for MIPS) */ BFD_RELOC_16_PCREL_S2, /* this is used on the Alpha */ BFD_RELOC_23_PCREL_S2, /* High 22 bits of 32-bit value, placed into lower 22 bits of target word; simple reloc. */ BFD_RELOC_HI22, /* Low 10 bits. */ BFD_RELOC_LO10, /* For systems that allocate a Global Pointer register, these are displacements off that register. These relocation types are handled specially, because the value the register will have is decided relatively late. */ BFD_RELOC_GPREL16, BFD_RELOC_GPREL32, /* Reloc types used for i960/b.out. */ BFD_RELOC_I960_CALLJ, /* now for the sparc/elf codes */ BFD_RELOC_NONE, /* actually used */ BFD_RELOC_SPARC_WDISP22, BFD_RELOC_SPARC22, BFD_RELOC_SPARC13, BFD_RELOC_SPARC_GOT10, BFD_RELOC_SPARC_GOT13, BFD_RELOC_SPARC_GOT22, BFD_RELOC_SPARC_PC10, BFD_RELOC_SPARC_PC22, BFD_RELOC_SPARC_WPLT30, BFD_RELOC_SPARC_COPY, BFD_RELOC_SPARC_GLOB_DAT, BFD_RELOC_SPARC_JMP_SLOT, BFD_RELOC_SPARC_RELATIVE, BFD_RELOC_SPARC_UA32, /* these are a.out specific? */ BFD_RELOC_SPARC_BASE13, BFD_RELOC_SPARC_BASE22, /* some relocations we're using for sparc v9 -- subject to change */ BFD_RELOC_SPARC_10, BFD_RELOC_SPARC_11, #define BFD_RELOC_SPARC_64 BFD_RELOC_64 BFD_RELOC_SPARC_OLO10, BFD_RELOC_SPARC_HH22, BFD_RELOC_SPARC_HM10, BFD_RELOC_SPARC_LM22, BFD_RELOC_SPARC_PC_HH22, BFD_RELOC_SPARC_PC_HM10, BFD_RELOC_SPARC_PC_LM22, BFD_RELOC_SPARC_WDISP16, BFD_RELOC_SPARC_WDISP19, BFD_RELOC_SPARC_GLOB_JMP, BFD_RELOC_SPARC_LO7, /* Alpha ECOFF relocations. Some of these treat the symbol or "addend" in some special way. */ /* For GPDISP_HI16 ("gpdisp") relocations, the symbol is ignored when writing; when reading, it will be the absolute section symbol. The addend is the displacement in bytes of the "lda" instruction from the "ldah" instruction (which is at the address of this reloc). */ BFD_RELOC_ALPHA_GPDISP_HI16, /* For GPDISP_LO16 ("ignore") relocations, the symbol is handled as with GPDISP_HI16 relocs. The addend is ignored when writing the relocations out, and is filled in with the file's GP value on reading, for convenience. */ BFD_RELOC_ALPHA_GPDISP_LO16, /* The Alpha LITERAL/LITUSE relocs are produced by a symbol reference; the assembler turns it into a LDQ instruction to load the address of the symbol, and then fills in a register in the real instruction. The LITERAL reloc, at the LDQ instruction, refers to the .lita section symbol. The addend is ignored when writing, but is filled in with the file's GP value on reading, for convenience, as with the GPDISP_LO16 reloc. The LITUSE reloc, on the instruction using the loaded address, gives information to the linker that it might be able to use to optimize away some literal section references. The symbol is ignored (read as the absolute section symbol), and the "addend" indicates the type of instruction using the register: 1 - "memory" fmt insn 2 - byte-manipulation (byte offset reg) 3 - jsr (target of branch) The GNU linker currently doesn't do any of this optimizing. */ BFD_RELOC_ALPHA_LITERAL, BFD_RELOC_ALPHA_LITUSE, /* The HINT relocation indicates a value that should be filled into the "hint" field of a jmp/jsr/ret instruction, for possible branch- prediction logic which may be provided on some processors. */ BFD_RELOC_ALPHA_HINT, /* Bits 27..2 of the relocation address shifted right 2 bits; simple reloc otherwise. */ BFD_RELOC_MIPS_JMP, /* High 16 bits of 32-bit value; simple reloc. */ BFD_RELOC_HI16, /* High 16 bits of 32-bit value but the low 16 bits will be sign extended and added to form the final result. If the low 16 bits form a negative number, we need to add one to the high value to compensate for the borrow when the low bits are added. */ BFD_RELOC_HI16_S, /* Low 16 bits. */ BFD_RELOC_LO16, /* Like BFD_RELOC_HI16_S, but PC relative. */ BFD_RELOC_PCREL_HI16_S, /* Like BFD_RELOC_LO16, but PC relative. */ BFD_RELOC_PCREL_LO16, /* relocation relative to the global pointer. */ #define BFD_RELOC_MIPS_GPREL BFD_RELOC_GPREL16 /* Relocation against a MIPS literal section. */ BFD_RELOC_MIPS_LITERAL, /* MIPS ELF relocations. */ BFD_RELOC_MIPS_GOT16, BFD_RELOC_MIPS_CALL16, #define BFD_RELOC_MIPS_GPREL32 BFD_RELOC_GPREL32 /* i386/elf relocations */ BFD_RELOC_386_GOT32, BFD_RELOC_386_PLT32, BFD_RELOC_386_COPY, BFD_RELOC_386_GLOB_DAT, BFD_RELOC_386_JUMP_SLOT, BFD_RELOC_386_RELATIVE, BFD_RELOC_386_GOTOFF, BFD_RELOC_386_GOTPC, /* ns32k relocations */ BFD_RELOC_NS32K_IMM_8, BFD_RELOC_NS32K_IMM_16, BFD_RELOC_NS32K_IMM_32, BFD_RELOC_NS32K_IMM_8_PCREL, BFD_RELOC_NS32K_IMM_16_PCREL, BFD_RELOC_NS32K_IMM_32_PCREL, BFD_RELOC_NS32K_DISP_8, BFD_RELOC_NS32K_DISP_16, BFD_RELOC_NS32K_DISP_32, BFD_RELOC_NS32K_DISP_8_PCREL, BFD_RELOC_NS32K_DISP_16_PCREL, BFD_RELOC_NS32K_DISP_32_PCREL, /* PowerPC/POWER (RS/6000) relocs. */ /* 26 bit relative branch. Low two bits must be zero. High 24 bits installed in bits 6 through 29 of instruction. */ BFD_RELOC_PPC_B26, /* 26 bit absolute branch, like BFD_RELOC_PPC_B26 but absolute. */ BFD_RELOC_PPC_BA26, /* 16 bit TOC relative reference. */ BFD_RELOC_PPC_TOC16, /* this must be the highest numeric value */ BFD_RELOC_UNUSED } bfd_reloc_code_real_type; const struct reloc_howto_struct * bfd_reloc_type_lookup PARAMS ((bfd *abfd, bfd_reloc_code_real_type code)); typedef struct symbol_cache_entry { /* A pointer to the BFD which owns the symbol. This information is necessary so that a back end can work out what additional information (invisible to the application writer) is carried with the symbol. This field is *almost* redundant, since you can use section->owner instead, except that some symbols point to the global sections bfd_{abs,com,und}_section. This could be fixed by making these globals be per-bfd (or per-target-flavor). FIXME. */ struct _bfd *the_bfd; /* Use bfd_asymbol_bfd(sym) to access this field. */ /* The text of the symbol. The name is left alone, and not copied; the application may not alter it. */ CONST char *name; /* The value of the symbol. This really should be a union of a numeric value with a pointer, since some flags indicate that a pointer to another symbol is stored here. */ symvalue value; /* Attributes of a symbol: */ #define BSF_NO_FLAGS 0x00 /* The symbol has local scope; <> in <>. The value is the offset into the section of the data. */ #define BSF_LOCAL 0x01 /* The symbol has global scope; initialized data in <>. The value is the offset into the section of the data. */ #define BSF_GLOBAL 0x02 /* The symbol has global scope and is exported. The value is the offset into the section of the data. */ #define BSF_EXPORT BSF_GLOBAL /* no real difference */ /* A normal C symbol would be one of: <>, <>, <> or <> */ /* The symbol is a debugging record. The value has an arbitary meaning. */ #define BSF_DEBUGGING 0x08 /* The symbol denotes a function entry point. Used in ELF, perhaps others someday. */ #define BSF_FUNCTION 0x10 /* Used by the linker. */ #define BSF_KEEP 0x20 #define BSF_KEEP_G 0x40 /* A weak global symbol, overridable without warnings by a regular global symbol of the same name. */ #define BSF_WEAK 0x80 /* This symbol was created to point to a section, e.g. ELF's STT_SECTION symbols. */ #define BSF_SECTION_SYM 0x100 /* The symbol used to be a common symbol, but now it is allocated. */ #define BSF_OLD_COMMON 0x200 /* The default value for common data. */ #define BFD_FORT_COMM_DEFAULT_VALUE 0 /* In some files the type of a symbol sometimes alters its location in an output file - ie in coff a <> symbol which is also <> symbol appears where it was declared and not at the end of a section. This bit is set by the target BFD part to convey this information. */ #define BSF_NOT_AT_END 0x400 /* Signal that the symbol is the label of constructor section. */ #define BSF_CONSTRUCTOR 0x800 /* Signal that the symbol is a warning symbol. If the symbol is a warning symbol, then the value field (I know this is tacky) will point to the asymbol which when referenced will cause the warning. */ #define BSF_WARNING 0x1000 /* Signal that the symbol is indirect. The value of the symbol is a pointer to an undefined asymbol which contains the name to use instead. */ #define BSF_INDIRECT 0x2000 /* BSF_FILE marks symbols that contain a file name. This is used for ELF STT_FILE symbols. */ #define BSF_FILE 0x4000 /* Symbol is from dynamic linking information. */ #define BSF_DYNAMIC 0x8000 flagword flags; /* A pointer to the section to which this symbol is relative. This will always be non NULL, there are special sections for undefined and absolute symbols */ struct sec *section; /* Back end special data. This is being phased out in favour of making this a union. */ PTR udata; } asymbol; #define bfd_get_symtab_upper_bound(abfd) \ BFD_SEND (abfd, _bfd_get_symtab_upper_bound, (abfd)) boolean bfd_is_local_label PARAMS ((bfd *abfd, asymbol *sym)); #define bfd_is_local_label(abfd, sym) \ BFD_SEND (abfd, _bfd_is_local_label,(abfd, sym)) #define bfd_canonicalize_symtab(abfd, location) \ BFD_SEND (abfd, _bfd_canonicalize_symtab,\ (abfd, location)) boolean bfd_set_symtab PARAMS ((bfd *abfd, asymbol **location, unsigned int count)); void bfd_print_symbol_vandf PARAMS ((PTR file, asymbol *symbol)); #define bfd_make_empty_symbol(abfd) \ BFD_SEND (abfd, _bfd_make_empty_symbol, (abfd)) #define bfd_make_debug_symbol(abfd,ptr,size) \ BFD_SEND (abfd, _bfd_make_debug_symbol, (abfd, ptr, size)) int bfd_decode_symclass PARAMS ((asymbol *symbol)); void bfd_symbol_info PARAMS ((asymbol *symbol, symbol_info *ret)); struct _bfd { /* The filename the application opened the BFD with. */ CONST char *filename; /* A pointer to the target jump table. */ const struct bfd_target *xvec; /* To avoid dragging too many header files into every file that includes `<>', IOSTREAM has been declared as a "char *", and MTIME as a "long". Their correct types, to which they are cast when used, are "FILE *" and "time_t". The iostream is the result of an fopen on the filename. */ char *iostream; /* Is the file descriptor being cached? That is, can it be closed as needed, and re-opened when accessed later? */ boolean cacheable; /* Marks whether there was a default target specified when the BFD was opened. This is used to select which matching algorithm to use to choose the back end. */ boolean target_defaulted; /* The caching routines use these to maintain a least-recently-used list of BFDs */ struct _bfd *lru_prev, *lru_next; /* When a file is closed by the caching routines, BFD retains state information on the file here: */ file_ptr where; /* and here: (``once'' means at least once) */ boolean opened_once; /* Set if we have a locally maintained mtime value, rather than getting it from the file each time: */ boolean mtime_set; /* File modified time, if mtime_set is true: */ long mtime; /* Reserved for an unimplemented file locking extension.*/ int ifd; /* The format which belongs to the BFD. (object, core, etc.) */ bfd_format format; /* The direction the BFD was opened with*/ enum bfd_direction {no_direction = 0, read_direction = 1, write_direction = 2, both_direction = 3} direction; /* Format_specific flags*/ flagword flags; /* Currently my_archive is tested before adding origin to anything. I believe that this can become always an add of origin, with origin set to 0 for non archive files. */ file_ptr origin; /* Remember when output has begun, to stop strange things from happening. */ boolean output_has_begun; /* Pointer to linked list of sections*/ struct sec *sections; /* The number of sections */ unsigned int section_count; /* Stuff only useful for object files: The start address. */ bfd_vma start_address; /* Used for input and output*/ unsigned int symcount; /* Symbol table for output BFD (with symcount entries) */ struct symbol_cache_entry **outsymbols; /* Pointer to structure which contains architecture information*/ struct bfd_arch_info *arch_info; /* Stuff only useful for archives:*/ PTR arelt_data; struct _bfd *my_archive; /* The containing archive BFD. */ struct _bfd *next; /* The next BFD in the archive. */ struct _bfd *archive_head; /* The first BFD in the archive. */ boolean has_armap; /* A chain of BFD structures involved in a link. */ struct _bfd *link_next; /* A field used by _bfd_generic_link_add_archive_symbols. This will be used only for archive elements. */ int archive_pass; /* Used by the back end to hold private data. */ union { struct aout_data_struct *aout_data; struct artdata *aout_ar_data; struct _oasys_data *oasys_obj_data; struct _oasys_ar_data *oasys_ar_data; struct coff_tdata *coff_obj_data; struct ecoff_tdata *ecoff_obj_data; struct ieee_data_struct *ieee_data; struct ieee_ar_data_struct *ieee_ar_data; struct srec_data_struct *srec_data; struct tekhex_data_struct *tekhex_data; struct elf_obj_tdata *elf_obj_data; struct nlm_obj_tdata *nlm_obj_data; struct bout_data_struct *bout_data; struct sun_core_struct *sun_core_data; struct trad_core_struct *trad_core_data; struct som_data_struct *som_data; struct hpux_core_struct *hpux_core_data; struct hppabsd_core_struct *hppabsd_core_data; struct sgi_core_struct *sgi_core_data; struct lynx_core_struct *lynx_core_data; struct osf_core_struct *osf_core_data; struct cisco_core_struct *cisco_core_data; PTR any; } tdata; /* Used by the application to hold private data*/ PTR usrdata; /* Where all the allocated stuff under this BFD goes */ struct obstack memory; }; typedef enum bfd_error { bfd_error_no_error = 0, bfd_error_system_call, bfd_error_invalid_target, bfd_error_wrong_format, bfd_error_invalid_operation, bfd_error_no_memory, bfd_error_no_symbols, bfd_error_no_more_archived_files, bfd_error_malformed_archive, bfd_error_file_not_recognized, bfd_error_file_ambiguously_recognized, bfd_error_no_contents, bfd_error_nonrepresentable_section, bfd_error_no_debug_section, bfd_error_bad_value, bfd_error_file_truncated, bfd_error_invalid_error_code } bfd_error_type; bfd_error_type bfd_get_error PARAMS ((void)); void bfd_set_error PARAMS ((bfd_error_type error_tag)); CONST char * bfd_errmsg PARAMS ((bfd_error_type error_tag)); void bfd_perror PARAMS ((CONST char *message)); long bfd_get_reloc_upper_bound PARAMS ((bfd *abfd, asection *sect)); long bfd_canonicalize_reloc PARAMS ((bfd *abfd, asection *sec, arelent **loc, asymbol **syms)); void bfd_set_reloc PARAMS ((bfd *abfd, asection *sec, arelent **rel, unsigned int count) ); boolean bfd_set_file_flags PARAMS ((bfd *abfd, flagword flags)); boolean bfd_set_start_address PARAMS ((bfd *abfd, bfd_vma vma)); long bfd_get_mtime PARAMS ((bfd *abfd)); long bfd_get_size PARAMS ((bfd *abfd)); int bfd_get_gp_size PARAMS ((bfd *abfd)); void bfd_set_gp_size PARAMS ((bfd *abfd, int i)); bfd_vma bfd_scan_vma PARAMS ((CONST char *string, CONST char **end, int base)); boolean bfd_copy_private_bfd_data PARAMS ((bfd *ibfd, bfd *obfd)); #define bfd_copy_private_bfd_data(ibfd, obfd) \ BFD_SEND (ibfd, _bfd_copy_private_bfd_data, \ (ibfd, obfd)) #define bfd_sizeof_headers(abfd, reloc) \ BFD_SEND (abfd, _bfd_sizeof_headers, (abfd, reloc)) #define bfd_find_nearest_line(abfd, sec, syms, off, file, func, line) \ BFD_SEND (abfd, _bfd_find_nearest_line, (abfd, sec, syms, off, file, func, line)) /* Do these three do anything useful at all, for any back end? */ #define bfd_debug_info_start(abfd) \ BFD_SEND (abfd, _bfd_debug_info_start, (abfd)) #define bfd_debug_info_end(abfd) \ BFD_SEND (abfd, _bfd_debug_info_end, (abfd)) #define bfd_debug_info_accumulate(abfd, section) \ BFD_SEND (abfd, _bfd_debug_info_accumulate, (abfd, section)) #define bfd_stat_arch_elt(abfd, stat) \ BFD_SEND (abfd, _bfd_stat_arch_elt,(abfd, stat)) #define bfd_set_arch_mach(abfd, arch, mach)\ BFD_SEND ( abfd, _bfd_set_arch_mach, (abfd, arch, mach)) #define bfd_get_relocated_section_contents(abfd, link_info, link_order, data, relocateable, symbols) \ BFD_SEND (abfd, _bfd_get_relocated_section_contents, \ (abfd, link_info, link_order, data, relocateable, symbols)) #define bfd_relax_section(abfd, section, link_info, again) \ BFD_SEND (abfd, _bfd_relax_section, (abfd, section, link_info, again)) #define bfd_link_hash_table_create(abfd) \ BFD_SEND (abfd, _bfd_link_hash_table_create, (abfd)) #define bfd_link_add_symbols(abfd, info) \ BFD_SEND (abfd, _bfd_link_add_symbols, (abfd, info)) #define bfd_final_link(abfd, info) \ BFD_SEND (abfd, _bfd_final_link, (abfd, info)) #define bfd_free_cached_info(abfd) \ BFD_SEND (abfd, _bfd_free_cached_info, (abfd)) #define bfd_get_dynamic_symtab_upper_bound(abfd) \ BFD_SEND (abfd, _bfd_get_dynamic_symtab_upper_bound, (abfd)) #define bfd_canonicalize_dynamic_symtab(abfd, asymbols) \ BFD_SEND (abfd, _bfd_canonicalize_dynamic_symtab, (abfd, asymbols)) #define bfd_get_dynamic_reloc_upper_bound(abfd) \ BFD_SEND (abfd, _bfd_get_dynamic_reloc_upper_bound, (abfd)) #define bfd_canonicalize_dynamic_reloc(abfd, arels, asyms) \ BFD_SEND (abfd, _bfd_canonicalize_dynamic_reloc, (abfd, arels, asyms)) symindex bfd_get_next_mapent PARAMS ((bfd *abfd, symindex previous, carsym **sym)); boolean bfd_set_archive_head PARAMS ((bfd *output, bfd *new_head)); bfd * bfd_get_elt_at_index PARAMS ((bfd *archive, int index)); bfd * bfd_openr_next_archived_file PARAMS ((bfd *archive, bfd *previous)); CONST char * bfd_core_file_failing_command PARAMS ((bfd *abfd)); int bfd_core_file_failing_signal PARAMS ((bfd *abfd)); boolean core_file_matches_executable_p PARAMS ((bfd *core_bfd, bfd *exec_bfd)); #define BFD_SEND(bfd, message, arglist) \ ((*((bfd)->xvec->message)) arglist) #ifdef DEBUG_BFD_SEND #undef BFD_SEND #define BFD_SEND(bfd, message, arglist) \ (((bfd) && (bfd)->xvec && (bfd)->xvec->message) ? \ ((*((bfd)->xvec->message)) arglist) : \ (bfd_assert (__FILE__,__LINE__), NULL)) #endif #define BFD_SEND_FMT(bfd, message, arglist) \ (((bfd)->xvec->message[(int)((bfd)->format)]) arglist) #ifdef DEBUG_BFD_SEND #undef BFD_SEND_FMT #define BFD_SEND_FMT(bfd, message, arglist) \ (((bfd) && (bfd)->xvec && (bfd)->xvec->message) ? \ (((bfd)->xvec->message[(int)((bfd)->format)]) arglist) : \ (bfd_assert (__FILE__,__LINE__), NULL)) #endif enum bfd_flavour { bfd_target_unknown_flavour, bfd_target_aout_flavour, bfd_target_coff_flavour, bfd_target_ecoff_flavour, bfd_target_elf_flavour, bfd_target_ieee_flavour, bfd_target_nlm_flavour, bfd_target_oasys_flavour, bfd_target_tekhex_flavour, bfd_target_srec_flavour, bfd_target_som_flavour, bfd_target_os9k_flavour}; /* Forward declaration. */ typedef struct bfd_link_info _bfd_link_info; typedef struct bfd_target { char *name; enum bfd_flavour flavour; boolean byteorder_big_p; boolean header_byteorder_big_p; flagword object_flags; flagword section_flags; char symbol_leading_char; char ar_pad_char; unsigned short ar_max_namelen; unsigned int align_power_min; bfd_vma (*bfd_getx64) PARAMS ((const bfd_byte *)); bfd_signed_vma (*bfd_getx_signed_64) PARAMS ((const bfd_byte *)); void (*bfd_putx64) PARAMS ((bfd_vma, bfd_byte *)); bfd_vma (*bfd_getx32) PARAMS ((const bfd_byte *)); bfd_signed_vma (*bfd_getx_signed_32) PARAMS ((const bfd_byte *)); void (*bfd_putx32) PARAMS ((bfd_vma, bfd_byte *)); bfd_vma (*bfd_getx16) PARAMS ((const bfd_byte *)); bfd_signed_vma (*bfd_getx_signed_16) PARAMS ((const bfd_byte *)); void (*bfd_putx16) PARAMS ((bfd_vma, bfd_byte *)); bfd_vma (*bfd_h_getx64) PARAMS ((const bfd_byte *)); bfd_signed_vma (*bfd_h_getx_signed_64) PARAMS ((const bfd_byte *)); void (*bfd_h_putx64) PARAMS ((bfd_vma, bfd_byte *)); bfd_vma (*bfd_h_getx32) PARAMS ((const bfd_byte *)); bfd_signed_vma (*bfd_h_getx_signed_32) PARAMS ((const bfd_byte *)); void (*bfd_h_putx32) PARAMS ((bfd_vma, bfd_byte *)); bfd_vma (*bfd_h_getx16) PARAMS ((const bfd_byte *)); bfd_signed_vma (*bfd_h_getx_signed_16) PARAMS ((const bfd_byte *)); void (*bfd_h_putx16) PARAMS ((bfd_vma, bfd_byte *)); const struct bfd_target *(*_bfd_check_format[bfd_type_end]) PARAMS ((bfd *)); boolean (*_bfd_set_format[bfd_type_end]) PARAMS ((bfd *)); boolean (*_bfd_write_contents[bfd_type_end]) PARAMS ((bfd *)); /* Generic entry points. */ #define BFD_JUMP_TABLE_GENERIC(NAME)\ CAT(NAME,_close_and_cleanup),\ CAT(NAME,_bfd_free_cached_info),\ CAT(NAME,_new_section_hook),\ CAT(NAME,_get_section_contents) /* Called when the BFD is being closed to do any necessary cleanup. */ boolean (*_close_and_cleanup) PARAMS ((bfd *)); /* Ask the BFD to free all cached information. */ boolean (*_bfd_free_cached_info) PARAMS ((bfd *)); /* Called when a new section is created. */ boolean (*_new_section_hook) PARAMS ((bfd *, sec_ptr)); /* Read the contents of a section. */ boolean (*_bfd_get_section_contents) PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type)); /* Entry points to copy private data. */ #define BFD_JUMP_TABLE_COPY(NAME)\ CAT(NAME,_bfd_copy_private_bfd_data),\ CAT(NAME,_bfd_copy_private_section_data) /* Called to copy BFD general private data from one object file to another. */ boolean (*_bfd_copy_private_bfd_data) PARAMS ((bfd *, bfd *)); /* Called to copy BFD private section data from one object file to another. */ boolean (*_bfd_copy_private_section_data) PARAMS ((bfd *, sec_ptr, bfd *, sec_ptr)); /* Core file entry points. */ #define BFD_JUMP_TABLE_CORE(NAME)\ CAT(NAME,_core_file_failing_command),\ CAT(NAME,_core_file_failing_signal),\ CAT(NAME,_core_file_matches_executable_p) char * (*_core_file_failing_command) PARAMS ((bfd *)); int (*_core_file_failing_signal) PARAMS ((bfd *)); boolean (*_core_file_matches_executable_p) PARAMS ((bfd *, bfd *)); /* Archive entry points. */ #define BFD_JUMP_TABLE_ARCHIVE(NAME)\ CAT(NAME,_slurp_armap),\ CAT(NAME,_slurp_extended_name_table),\ CAT(NAME,_truncate_arname),\ CAT(NAME,_write_armap),\ CAT(NAME,_openr_next_archived_file),\ CAT(NAME,_generic_stat_arch_elt) boolean (*_bfd_slurp_armap) PARAMS ((bfd *)); boolean (*_bfd_slurp_extended_name_table) PARAMS ((bfd *)); void (*_bfd_truncate_arname) PARAMS ((bfd *, CONST char *, char *)); boolean (*write_armap) PARAMS ((bfd *arch, unsigned int elength, struct orl *map, unsigned int orl_count, int stridx)); bfd * (*openr_next_archived_file) PARAMS ((bfd *arch, bfd *prev)); int (*_bfd_stat_arch_elt) PARAMS ((bfd *, struct stat *)); /* Entry points used for symbols. */ #define BFD_JUMP_TABLE_SYMBOLS(NAME)\ CAT(NAME,_get_symtab_upper_bound),\ CAT(NAME,_get_symtab),\ CAT(NAME,_make_empty_symbol),\ CAT(NAME,_print_symbol),\ CAT(NAME,_get_symbol_info),\ CAT(NAME,_bfd_is_local_label),\ CAT(NAME,_get_lineno),\ CAT(NAME,_find_nearest_line),\ CAT(NAME,_bfd_make_debug_symbol) long (*_bfd_get_symtab_upper_bound) PARAMS ((bfd *)); long (*_bfd_canonicalize_symtab) PARAMS ((bfd *, struct symbol_cache_entry **)); struct symbol_cache_entry * (*_bfd_make_empty_symbol) PARAMS ((bfd *)); void (*_bfd_print_symbol) PARAMS ((bfd *, PTR, struct symbol_cache_entry *, bfd_print_symbol_type)); #define bfd_print_symbol(b,p,s,e) BFD_SEND(b, _bfd_print_symbol, (b,p,s,e)) void (*_bfd_get_symbol_info) PARAMS ((bfd *, struct symbol_cache_entry *, symbol_info *)); #define bfd_get_symbol_info(b,p,e) BFD_SEND(b, _bfd_get_symbol_info, (b,p,e)) boolean (*_bfd_is_local_label) PARAMS ((bfd *, asymbol *)); alent * (*_get_lineno) PARAMS ((bfd *, struct symbol_cache_entry *)); boolean (*_bfd_find_nearest_line) PARAMS ((bfd *abfd, struct sec *section, struct symbol_cache_entry **symbols, bfd_vma offset, CONST char **file, CONST char **func, unsigned int *line)); /* Back-door to allow format-aware applications to create debug symbols while using BFD for everything else. Currently used by the assembler when creating COFF files. */ asymbol * (*_bfd_make_debug_symbol) PARAMS (( bfd *abfd, void *ptr, unsigned long size)); /* Routines for relocs. */ #define BFD_JUMP_TABLE_RELOCS(NAME)\ CAT(NAME,_get_reloc_upper_bound),\ CAT(NAME,_canonicalize_reloc),\ CAT(NAME,_bfd_reloc_type_lookup) long (*_get_reloc_upper_bound) PARAMS ((bfd *, sec_ptr)); long (*_bfd_canonicalize_reloc) PARAMS ((bfd *, sec_ptr, arelent **, struct symbol_cache_entry **)); /* See documentation on reloc types. */ CONST struct reloc_howto_struct * (*reloc_type_lookup) PARAMS ((bfd *abfd, bfd_reloc_code_real_type code)); /* Routines used when writing an object file. */ #define BFD_JUMP_TABLE_WRITE(NAME)\ CAT(NAME,_set_arch_mach),\ CAT(NAME,_set_section_contents) boolean (*_bfd_set_arch_mach) PARAMS ((bfd *, enum bfd_architecture, unsigned long)); boolean (*_bfd_set_section_contents) PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type)); /* Routines used by the linker. */ #define BFD_JUMP_TABLE_LINK(NAME)\ CAT(NAME,_sizeof_headers),\ CAT(NAME,_bfd_get_relocated_section_contents),\ CAT(NAME,_bfd_relax_section),\ CAT(NAME,_bfd_link_hash_table_create),\ CAT(NAME,_bfd_link_add_symbols),\ CAT(NAME,_bfd_final_link) int (*_bfd_sizeof_headers) PARAMS ((bfd *, boolean)); bfd_byte * (*_bfd_get_relocated_section_contents) PARAMS ((bfd *, struct bfd_link_info *, struct bfd_link_order *, bfd_byte *data, boolean relocateable, struct symbol_cache_entry **)); boolean (*_bfd_relax_section) PARAMS ((bfd *, struct sec *, struct bfd_link_info *, boolean *again)); /* Create a hash table for the linker. Different backends store different information in this table. */ struct bfd_link_hash_table *(*_bfd_link_hash_table_create) PARAMS ((bfd *)); /* Add symbols from this object file into the hash table. */ boolean (*_bfd_link_add_symbols) PARAMS ((bfd *, struct bfd_link_info *)); /* Do a link based on the link_order structures attached to each section of the BFD. */ boolean (*_bfd_final_link) PARAMS ((bfd *, struct bfd_link_info *)); /* Routines to handle dynamic symbols and relocs. */ #define BFD_JUMP_TABLE_DYNAMIC(NAME)\ CAT(NAME,_get_dynamic_symtab_upper_bound),\ CAT(NAME,_canonicalize_dynamic_symtab),\ CAT(NAME,_get_dynamic_reloc_upper_bound),\ CAT(NAME,_canonicalize_dynamic_reloc) /* Get the amount of memory required to hold the dynamic symbols. */ long (*_bfd_get_dynamic_symtab_upper_bound) PARAMS ((bfd *)); /* Read in the dynamic symbols. */ long (*_bfd_canonicalize_dynamic_symtab) PARAMS ((bfd *, struct symbol_cache_entry **)); /* Get the amount of memory required to hold the dynamic relocs. */ long (*_bfd_get_dynamic_reloc_upper_bound) PARAMS ((bfd *)); /* Read in the dynamic relocs. */ long (*_bfd_canonicalize_dynamic_reloc) PARAMS ((bfd *, arelent **, struct symbol_cache_entry **)); PTR backend_data; } bfd_target; const bfd_target * bfd_find_target PARAMS ((CONST char *target_name, bfd *abfd)); const char ** bfd_target_list PARAMS ((void)); boolean bfd_check_format PARAMS ((bfd *abfd, bfd_format format)); boolean bfd_check_format_matches PARAMS ((bfd *abfd, bfd_format format, char ***matching)); boolean bfd_set_format PARAMS ((bfd *abfd, bfd_format format)); CONST char * bfd_format_string PARAMS ((bfd_format format)); #endif gdb-4.13/bfd/bfd.c 666 34562 1752 51746 5601407760 12231 0ustar fnfcygnus/* Generic BFD library interface and support routines. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION <> A BFD has type <>; objects of this type are the cornerstone of any application using BFD. Using BFD consists of making references though the BFD and to data in the BFD. Here is the structure that defines the type <>. It contains the major data about the file and pointers to the rest of the data. CODE_FRAGMENT . .struct _bfd .{ . {* The filename the application opened the BFD with. *} . CONST char *filename; . . {* A pointer to the target jump table. *} . const struct bfd_target *xvec; . . {* To avoid dragging too many header files into every file that . includes `<>', IOSTREAM has been declared as a "char . *", and MTIME as a "long". Their correct types, to which they . are cast when used, are "FILE *" and "time_t". The iostream . is the result of an fopen on the filename. *} . char *iostream; . . {* Is the file descriptor being cached? That is, can it be closed as . needed, and re-opened when accessed later? *} . . boolean cacheable; . . {* Marks whether there was a default target specified when the . BFD was opened. This is used to select which matching algorithm . to use to choose the back end. *} . . boolean target_defaulted; . . {* The caching routines use these to maintain a . least-recently-used list of BFDs *} . . struct _bfd *lru_prev, *lru_next; . . {* When a file is closed by the caching routines, BFD retains . state information on the file here: *} . . file_ptr where; . . {* and here: (``once'' means at least once) *} . . boolean opened_once; . . {* Set if we have a locally maintained mtime value, rather than . getting it from the file each time: *} . . boolean mtime_set; . . {* File modified time, if mtime_set is true: *} . . long mtime; . . {* Reserved for an unimplemented file locking extension.*} . . int ifd; . . {* The format which belongs to the BFD. (object, core, etc.) *} . . bfd_format format; . . {* The direction the BFD was opened with*} . . enum bfd_direction {no_direction = 0, . read_direction = 1, . write_direction = 2, . both_direction = 3} direction; . . {* Format_specific flags*} . . flagword flags; . . {* Currently my_archive is tested before adding origin to . anything. I believe that this can become always an add of . origin, with origin set to 0 for non archive files. *} . . file_ptr origin; . . {* Remember when output has begun, to stop strange things . from happening. *} . boolean output_has_begun; . . {* Pointer to linked list of sections*} . struct sec *sections; . . {* The number of sections *} . unsigned int section_count; . . {* Stuff only useful for object files: . The start address. *} . bfd_vma start_address; . . {* Used for input and output*} . unsigned int symcount; . . {* Symbol table for output BFD (with symcount entries) *} . struct symbol_cache_entry **outsymbols; . . {* Pointer to structure which contains architecture information*} . struct bfd_arch_info *arch_info; . . {* Stuff only useful for archives:*} . PTR arelt_data; . struct _bfd *my_archive; {* The containing archive BFD. *} . struct _bfd *next; {* The next BFD in the archive. *} . struct _bfd *archive_head; {* The first BFD in the archive. *} . boolean has_armap; . . {* A chain of BFD structures involved in a link. *} . struct _bfd *link_next; . . {* A field used by _bfd_generic_link_add_archive_symbols. This will . be used only for archive elements. *} . int archive_pass; . . {* Used by the back end to hold private data. *} . . union . { . struct aout_data_struct *aout_data; . struct artdata *aout_ar_data; . struct _oasys_data *oasys_obj_data; . struct _oasys_ar_data *oasys_ar_data; . struct coff_tdata *coff_obj_data; . struct ecoff_tdata *ecoff_obj_data; . struct ieee_data_struct *ieee_data; . struct ieee_ar_data_struct *ieee_ar_data; . struct srec_data_struct *srec_data; . struct tekhex_data_struct *tekhex_data; . struct elf_obj_tdata *elf_obj_data; . struct nlm_obj_tdata *nlm_obj_data; . struct bout_data_struct *bout_data; . struct sun_core_struct *sun_core_data; . struct trad_core_struct *trad_core_data; . struct som_data_struct *som_data; . struct hpux_core_struct *hpux_core_data; . struct hppabsd_core_struct *hppabsd_core_data; . struct sgi_core_struct *sgi_core_data; . struct lynx_core_struct *lynx_core_data; . struct osf_core_struct *osf_core_data; . struct cisco_core_struct *cisco_core_data; . PTR any; . } tdata; . . {* Used by the application to hold private data*} . PTR usrdata; . . {* Where all the allocated stuff under this BFD goes *} . struct obstack memory; .}; . */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #include "coff/internal.h" #include "coff/sym.h" #include "libcoff.h" #include "libecoff.h" #undef obj_symbols #include "libelf.h" /* SECTION Error reporting Most BFD functions return nonzero on success (check their individual documentation for precise semantics). On an error, they call <> to set an error condition that callers can check by calling <>. If that returns <>, then check <>. The easiest way to report a BFD error to the user is to use <>. SUBSECTION Type <> The values returned by <> are defined by the enumerated type <>. CODE_FRAGMENT . .typedef enum bfd_error .{ . bfd_error_no_error = 0, . bfd_error_system_call, . bfd_error_invalid_target, . bfd_error_wrong_format, . bfd_error_invalid_operation, . bfd_error_no_memory, . bfd_error_no_symbols, . bfd_error_no_more_archived_files, . bfd_error_malformed_archive, . bfd_error_file_not_recognized, . bfd_error_file_ambiguously_recognized, . bfd_error_no_contents, . bfd_error_nonrepresentable_section, . bfd_error_no_debug_section, . bfd_error_bad_value, . bfd_error_file_truncated, . bfd_error_invalid_error_code .} bfd_error_type; . */ #undef strerror extern char *strerror(); static bfd_error_type bfd_error = bfd_error_no_error; CONST char *CONST bfd_errmsgs[] = { "No error", "System call error", "Invalid bfd target", "File in wrong format", "Invalid operation", "Memory exhausted", "No symbols", "No more archived files", "Malformed archive", "File format not recognized", "File format is ambiguous", "Section has no contents", "Nonrepresentable section on output", "Symbol needs debug section which does not exist", "Bad value", "File truncated", "#" }; /* FUNCTION bfd_get_error SYNOPSIS bfd_error_type bfd_get_error (void); DESCRIPTION Return the current BFD error condition. */ bfd_error_type bfd_get_error () { return bfd_error; } /* FUNCTION bfd_set_error SYNOPSIS void bfd_set_error (bfd_error_type error_tag); DESCRIPTION Set the BFD error condition to be @var{error_tag}. */ void bfd_set_error (error_tag) bfd_error_type error_tag; { bfd_error = error_tag; } /* FUNCTION bfd_errmsg SYNOPSIS CONST char *bfd_errmsg (bfd_error_type error_tag); DESCRIPTION Return a string describing the error @var{error_tag}, or the system error if @var{error_tag} is <>. */ CONST char * bfd_errmsg (error_tag) bfd_error_type error_tag; { #ifndef errno extern int errno; #endif if (error_tag == bfd_error_system_call) return strerror (errno); if ((((int)error_tag <(int) bfd_error_no_error) || ((int)error_tag > (int)bfd_error_invalid_error_code))) error_tag = bfd_error_invalid_error_code;/* sanity check */ return bfd_errmsgs [(int)error_tag]; } /* FUNCTION bfd_perror SYNOPSIS void bfd_perror (CONST char *message); DESCRIPTION Print to the standard error stream a string describing the last BFD error that occurred, or the last system error if the last BFD error was a system call failure. If @var{message} is non-NULL and non-empty, the error string printed is preceded by @var{message}, a colon, and a space. It is followed by a newline. */ void bfd_perror (message) CONST char *message; { if (bfd_get_error () == bfd_error_system_call) perror((char *)message); /* must be system error then... */ else { if (message == NULL || *message == '\0') fprintf (stderr, "%s\n", bfd_errmsg (bfd_get_error ())); else fprintf (stderr, "%s: %s\n", message, bfd_errmsg (bfd_get_error ())); } } /* SECTION Symbols */ /* FUNCTION bfd_get_reloc_upper_bound SYNOPSIS long bfd_get_reloc_upper_bound(bfd *abfd, asection *sect); DESCRIPTION Return the number of bytes required to store the relocation information associated with section @var{sect} attached to bfd @var{abfd}. If an error occurs, return -1. */ long bfd_get_reloc_upper_bound (abfd, asect) bfd *abfd; sec_ptr asect; { if (abfd->format != bfd_object) { bfd_set_error (bfd_error_invalid_operation); return -1; } return BFD_SEND (abfd, _get_reloc_upper_bound, (abfd, asect)); } /* FUNCTION bfd_canonicalize_reloc SYNOPSIS long bfd_canonicalize_reloc (bfd *abfd, asection *sec, arelent **loc, asymbol **syms); DESCRIPTION Call the back end associated with the open BFD @var{abfd} and translate the external form of the relocation information attached to @var{sec} into the internal canonical form. Place the table into memory at @var{loc}, which has been preallocated, usually by a call to <>. Returns the number of relocs, or -1 on error. The @var{syms} table is also needed for horrible internal magic reasons. */ long bfd_canonicalize_reloc (abfd, asect, location, symbols) bfd *abfd; sec_ptr asect; arelent **location; asymbol **symbols; { if (abfd->format != bfd_object) { bfd_set_error (bfd_error_invalid_operation); return -1; } return BFD_SEND (abfd, _bfd_canonicalize_reloc, (abfd, asect, location, symbols)); } /* FUNCTION bfd_set_reloc SYNOPSIS void bfd_set_reloc (bfd *abfd, asection *sec, arelent **rel, unsigned int count) DESCRIPTION Set the relocation pointer and count within section @var{sec} to the values @var{rel} and @var{count}. The argument @var{abfd} is ignored. */ /*ARGSUSED*/ void bfd_set_reloc (ignore_abfd, asect, location, count) bfd *ignore_abfd; sec_ptr asect; arelent **location; unsigned int count; { asect->orelocation = location; asect->reloc_count = count; } /* FUNCTION bfd_set_file_flags SYNOPSIS boolean bfd_set_file_flags(bfd *abfd, flagword flags); DESCRIPTION Set the flag word in the BFD @var{abfd} to the value @var{flags}. Possible errors are: o <> - The target bfd was not of object format. o <> - The target bfd was open for reading. o <> - The flag word contained a bit which was not applicable to the type of file. E.g., an attempt was made to set the <> bit on a BFD format which does not support demand paging. */ boolean bfd_set_file_flags (abfd, flags) bfd *abfd; flagword flags; { if (abfd->format != bfd_object) { bfd_set_error (bfd_error_wrong_format); return false; } if (bfd_read_p (abfd)) { bfd_set_error (bfd_error_invalid_operation); return false; } bfd_get_file_flags (abfd) = flags; if ((flags & bfd_applicable_file_flags (abfd)) != flags) { bfd_set_error (bfd_error_invalid_operation); return false; } return true; } void bfd_assert(file, line) char *file; int line; { fprintf(stderr, "bfd assertion fail %s:%d\n",file,line); } /* FUNCTION bfd_set_start_address SYNOPSIS boolean bfd_set_start_address(bfd *abfd, bfd_vma vma); DESCRIPTION Make @var{vma} the entry point of output BFD @var{abfd}. RETURNS Returns <> on success, <> otherwise. */ boolean bfd_set_start_address(abfd, vma) bfd *abfd; bfd_vma vma; { abfd->start_address = vma; return true; } /* FUNCTION bfd_get_mtime SYNOPSIS long bfd_get_mtime(bfd *abfd); DESCRIPTION Return the file modification time (as read from the file system, or from the archive header for archive members). */ long bfd_get_mtime (abfd) bfd *abfd; { FILE *fp; struct stat buf; if (abfd->mtime_set) return abfd->mtime; fp = bfd_cache_lookup (abfd); if (0 != fstat (fileno (fp), &buf)) return 0; abfd->mtime = buf.st_mtime; /* Save value in case anyone wants it */ return buf.st_mtime; } /* FUNCTION bfd_get_size SYNOPSIS long bfd_get_size(bfd *abfd); DESCRIPTION Return the file size (as read from file system) for the file associated with BFD @var{abfd}. The initial motivation for, and use of, this routine is not so we can get the exact size of the object the BFD applies to, since that might not be generally possible (archive members for example). It would be ideal if someone could eventually modify it so that such results were guaranteed. Instead, we want to ask questions like "is this NNN byte sized object I'm about to try read from file offset YYY reasonable?" As as example of where we might do this, some object formats use string tables for which the first <> bytes of the table contain the size of the table itself, including the size bytes. If an application tries to read what it thinks is one of these string tables, without some way to validate the size, and for some reason the size is wrong (byte swapping error, wrong location for the string table, etc.), the only clue is likely to be a read error when it tries to read the table, or a "virtual memory exhausted" error when it tries to allocate 15 bazillon bytes of space for the 15 bazillon byte table it is about to read. This function at least allows us to answer the quesion, "is the size reasonable?". */ long bfd_get_size (abfd) bfd *abfd; { FILE *fp; struct stat buf; fp = bfd_cache_lookup (abfd); if (0 != fstat (fileno (fp), &buf)) return 0; return buf.st_size; } /* FUNCTION bfd_get_gp_size SYNOPSIS int bfd_get_gp_size(bfd *abfd); DESCRIPTION Return the maximum size of objects to be optimized using the GP register under MIPS ECOFF. This is typically set by the <<-G>> argument to the compiler, assembler or linker. */ int bfd_get_gp_size (abfd) bfd *abfd; { if (abfd->format == bfd_object) { if (abfd->xvec->flavour == bfd_target_ecoff_flavour) return ecoff_data (abfd)->gp_size; else if (abfd->xvec->flavour == bfd_target_elf_flavour) return elf_gp_size (abfd); } return 0; } /* FUNCTION bfd_set_gp_size SYNOPSIS void bfd_set_gp_size(bfd *abfd, int i); DESCRIPTION Set the maximum size of objects to be optimized using the GP register under ECOFF or MIPS ELF. This is typically set by the <<-G>> argument to the compiler, assembler or linker. */ void bfd_set_gp_size (abfd, i) bfd *abfd; int i; { /* Don't try to set GP size on an archive or core file! */ if (abfd->format != bfd_object) return; if (abfd->xvec->flavour == bfd_target_ecoff_flavour) ecoff_data (abfd)->gp_size = i; else if (abfd->xvec->flavour == bfd_target_elf_flavour) elf_gp_size (abfd) = i; } /* FUNCTION bfd_scan_vma SYNOPSIS bfd_vma bfd_scan_vma(CONST char *string, CONST char **end, int base); DESCRIPTION Convert, like <>, a numerical expression @var{string} into a <> integer, and return that integer. (Though without as many bells and whistles as <>.) The expression is assumed to be unsigned (i.e., positive). If given a @var{base}, it is used as the base for conversion. A base of 0 causes the function to interpret the string in hex if a leading "0x" or "0X" is found, otherwise in octal if a leading zero is found, otherwise in decimal. Overflow is not detected. */ bfd_vma bfd_scan_vma (string, end, base) CONST char *string; CONST char **end; int base; { bfd_vma value; int digit; /* Let the host do it if possible. */ if (sizeof(bfd_vma) <= sizeof(unsigned long)) return (bfd_vma) strtoul (string, 0, base); /* A negative base makes no sense, and we only need to go as high as hex. */ if ((base < 0) || (base > 16)) return (bfd_vma) 0; if (base == 0) { if (string[0] == '0') { if ((string[1] == 'x') || (string[1] == 'X')) base = 16; /* XXX should we also allow "0b" or "0B" to set base to 2? */ else base = 8; } else base = 10; } if ((base == 16) && (string[0] == '0') && ((string[1] == 'x') || (string[1] == 'X'))) string += 2; /* XXX should we also skip over "0b" or "0B" if base is 2? */ /* Speed could be improved with a table like hex_value[] in gas. */ #define HEX_VALUE(c) \ (isxdigit(c) ? \ (isdigit(c) ? \ (c - '0') : \ (10 + c - (islower(c) ? 'a' : 'A'))) : \ 42) for (value = 0; (digit = HEX_VALUE(*string)) < base; string++) { value = value * base + digit; } if (end) *end = string; return value; } /* FUNCTION bfd_copy_private_bfd_data SYNOPSIS boolean bfd_copy_private_bfd_data(bfd *ibfd, bfd *obfd); DESCRIPTION Copy private BFD information from the BFD @var{ibfd} to the the BFD @var{obfd}. Return <> on success, <> on error. Possible error returns are: o <> - Not enough memory exists to create private data for @var{obfd}. .#define bfd_copy_private_bfd_data(ibfd, obfd) \ . BFD_SEND (ibfd, _bfd_copy_private_bfd_data, \ . (ibfd, obfd)) */ /* FUNCTION stuff DESCRIPTION Stuff which should be documented: .#define bfd_sizeof_headers(abfd, reloc) \ . BFD_SEND (abfd, _bfd_sizeof_headers, (abfd, reloc)) . .#define bfd_find_nearest_line(abfd, sec, syms, off, file, func, line) \ . BFD_SEND (abfd, _bfd_find_nearest_line, (abfd, sec, syms, off, file, func, line)) . . {* Do these three do anything useful at all, for any back end? *} .#define bfd_debug_info_start(abfd) \ . BFD_SEND (abfd, _bfd_debug_info_start, (abfd)) . .#define bfd_debug_info_end(abfd) \ . BFD_SEND (abfd, _bfd_debug_info_end, (abfd)) . .#define bfd_debug_info_accumulate(abfd, section) \ . BFD_SEND (abfd, _bfd_debug_info_accumulate, (abfd, section)) . . .#define bfd_stat_arch_elt(abfd, stat) \ . BFD_SEND (abfd, _bfd_stat_arch_elt,(abfd, stat)) . .#define bfd_set_arch_mach(abfd, arch, mach)\ . BFD_SEND ( abfd, _bfd_set_arch_mach, (abfd, arch, mach)) . .#define bfd_get_relocated_section_contents(abfd, link_info, link_order, data, relocateable, symbols) \ . BFD_SEND (abfd, _bfd_get_relocated_section_contents, \ . (abfd, link_info, link_order, data, relocateable, symbols)) . .#define bfd_relax_section(abfd, section, link_info, again) \ . BFD_SEND (abfd, _bfd_relax_section, (abfd, section, link_info, again)) . .#define bfd_link_hash_table_create(abfd) \ . BFD_SEND (abfd, _bfd_link_hash_table_create, (abfd)) . .#define bfd_link_add_symbols(abfd, info) \ . BFD_SEND (abfd, _bfd_link_add_symbols, (abfd, info)) . .#define bfd_final_link(abfd, info) \ . BFD_SEND (abfd, _bfd_final_link, (abfd, info)) . .#define bfd_free_cached_info(abfd) \ . BFD_SEND (abfd, _bfd_free_cached_info, (abfd)) . .#define bfd_get_dynamic_symtab_upper_bound(abfd) \ . BFD_SEND (abfd, _bfd_get_dynamic_symtab_upper_bound, (abfd)) . .#define bfd_canonicalize_dynamic_symtab(abfd, asymbols) \ . BFD_SEND (abfd, _bfd_canonicalize_dynamic_symtab, (abfd, asymbols)) . .#define bfd_get_dynamic_reloc_upper_bound(abfd) \ . BFD_SEND (abfd, _bfd_get_dynamic_reloc_upper_bound, (abfd)) . .#define bfd_canonicalize_dynamic_reloc(abfd, arels, asyms) \ . BFD_SEND (abfd, _bfd_canonicalize_dynamic_reloc, (abfd, arels, asyms)) . */ gdb-4.13/bfd/bout.c 666 34562 1752 120703 5601614545 12456 0ustar fnfcygnus/* BFD back-end for Intel 960 b.out binaries. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "bfdlink.h" #include "genlink.h" #include "bout.h" #include "aout/stab_gnu.h" #include "libaout.h" /* BFD a.out internal data structures */ static int aligncode PARAMS ((bfd *abfd, asection *input_section, arelent *r, unsigned int shrink)); static void perform_slip PARAMS ((bfd *abfd, unsigned int slip, asection *input_section, bfd_vma value)); static boolean b_out_squirt_out_relocs PARAMS ((bfd *abfd, asection *section)); static const bfd_target *b_out_callback PARAMS ((bfd *)); static bfd_reloc_status_type calljx_callback PARAMS ((bfd *, struct bfd_link_info *, arelent *, PTR src, PTR dst, asection *)); static bfd_reloc_status_type callj_callback PARAMS ((bfd *, struct bfd_link_info *, arelent *, PTR data, unsigned int srcidx, unsigned int dstidx, asection *)); static bfd_vma get_value PARAMS ((arelent *, struct bfd_link_info *, asection *)); static int abs32code PARAMS ((bfd *, asection *, arelent *, unsigned int, struct bfd_link_info *)); static boolean b_out_bfd_relax_section PARAMS ((bfd *, asection *, struct bfd_link_info *, boolean *)); static bfd_byte *b_out_bfd_get_relocated_section_contents PARAMS ((bfd *, struct bfd_link_info *, struct bfd_link_order *, bfd_byte *, boolean, asymbol **)); /* Swaps the information in an executable header taken from a raw byte stream memory image, into the internal exec_header structure. */ void bout_swap_exec_header_in (abfd, raw_bytes, execp) bfd *abfd; struct external_exec *raw_bytes; struct internal_exec *execp; { struct external_exec *bytes = (struct external_exec *)raw_bytes; /* Now fill in fields in the execp, from the bytes in the raw data. */ execp->a_info = bfd_h_get_32 (abfd, bytes->e_info); execp->a_text = GET_WORD (abfd, bytes->e_text); execp->a_data = GET_WORD (abfd, bytes->e_data); execp->a_bss = GET_WORD (abfd, bytes->e_bss); execp->a_syms = GET_WORD (abfd, bytes->e_syms); execp->a_entry = GET_WORD (abfd, bytes->e_entry); execp->a_trsize = GET_WORD (abfd, bytes->e_trsize); execp->a_drsize = GET_WORD (abfd, bytes->e_drsize); execp->a_tload = GET_WORD (abfd, bytes->e_tload); execp->a_dload = GET_WORD (abfd, bytes->e_dload); execp->a_talign = bytes->e_talign[0]; execp->a_dalign = bytes->e_dalign[0]; execp->a_balign = bytes->e_balign[0]; execp->a_relaxable = bytes->e_relaxable[0]; } /* Swaps the information in an internal exec header structure into the supplied buffer ready for writing to disk. */ PROTO(void, bout_swap_exec_header_out, (bfd *abfd, struct internal_exec *execp, struct external_exec *raw_bytes)); void bout_swap_exec_header_out (abfd, execp, raw_bytes) bfd *abfd; struct internal_exec *execp; struct external_exec *raw_bytes; { struct external_exec *bytes = (struct external_exec *)raw_bytes; /* Now fill in fields in the raw data, from the fields in the exec struct. */ bfd_h_put_32 (abfd, execp->a_info , bytes->e_info); PUT_WORD (abfd, execp->a_text , bytes->e_text); PUT_WORD (abfd, execp->a_data , bytes->e_data); PUT_WORD (abfd, execp->a_bss , bytes->e_bss); PUT_WORD (abfd, execp->a_syms , bytes->e_syms); PUT_WORD (abfd, execp->a_entry , bytes->e_entry); PUT_WORD (abfd, execp->a_trsize, bytes->e_trsize); PUT_WORD (abfd, execp->a_drsize, bytes->e_drsize); PUT_WORD (abfd, execp->a_tload , bytes->e_tload); PUT_WORD (abfd, execp->a_dload , bytes->e_dload); bytes->e_talign[0] = execp->a_talign; bytes->e_dalign[0] = execp->a_dalign; bytes->e_balign[0] = execp->a_balign; bytes->e_relaxable[0] = execp->a_relaxable; } static const bfd_target * b_out_object_p (abfd) bfd *abfd; { struct internal_exec anexec; struct external_exec exec_bytes; if (bfd_read ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd) != EXEC_BYTES_SIZE) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } anexec.a_info = bfd_h_get_32 (abfd, exec_bytes.e_info); if (N_BADMAG (anexec)) { bfd_set_error (bfd_error_wrong_format); return 0; } bout_swap_exec_header_in (abfd, &exec_bytes, &anexec); return aout_32_some_aout_object_p (abfd, &anexec, b_out_callback); } /* Finish up the opening of a b.out file for reading. Fill in all the fields that are not handled by common code. */ static const bfd_target * b_out_callback (abfd) bfd *abfd; { struct internal_exec *execp = exec_hdr (abfd); unsigned long bss_start; /* Architecture and machine type */ bfd_set_arch_mach(abfd, bfd_arch_i960, /* B.out only used on i960 */ bfd_mach_i960_core /* Default */ ); /* The positions of the string table and symbol table. */ obj_str_filepos (abfd) = N_STROFF (*execp); obj_sym_filepos (abfd) = N_SYMOFF (*execp); /* The alignments of the sections */ obj_textsec (abfd)->alignment_power = execp->a_talign; obj_datasec (abfd)->alignment_power = execp->a_dalign; obj_bsssec (abfd)->alignment_power = execp->a_balign; /* The starting addresses of the sections. */ obj_textsec (abfd)->vma = execp->a_tload; obj_datasec (abfd)->vma = execp->a_dload; /* And reload the sizes, since the aout module zaps them */ obj_textsec (abfd)->_raw_size = execp->a_text; bss_start = execp->a_dload + execp->a_data; /* BSS = end of data section */ obj_bsssec (abfd)->vma = align_power (bss_start, execp->a_balign); /* The file positions of the sections */ obj_textsec (abfd)->filepos = N_TXTOFF(*execp); obj_datasec (abfd)->filepos = N_DATOFF(*execp); /* The file positions of the relocation info */ obj_textsec (abfd)->rel_filepos = N_TROFF(*execp); obj_datasec (abfd)->rel_filepos = N_DROFF(*execp); adata(abfd).page_size = 1; /* Not applicable. */ adata(abfd).segment_size = 1; /* Not applicable. */ adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE; if (execp->a_relaxable) abfd->flags |= BFD_IS_RELAXABLE; return abfd->xvec; } struct bout_data_struct { struct aoutdata a; struct internal_exec e; }; static boolean b_out_mkobject (abfd) bfd *abfd; { struct bout_data_struct *rawptr; rawptr = (struct bout_data_struct *) bfd_zalloc (abfd, sizeof (struct bout_data_struct)); if (rawptr == NULL) { bfd_set_error (bfd_error_no_memory); return false; } abfd->tdata.bout_data = rawptr; exec_hdr (abfd) = &rawptr->e; obj_textsec (abfd) = (asection *)NULL; obj_datasec (abfd) = (asection *)NULL; obj_bsssec (abfd) = (asection *)NULL; return true; } static boolean b_out_write_object_contents (abfd) bfd *abfd; { struct external_exec swapped_hdr; if (! aout_32_make_sections (abfd)) return false; exec_hdr (abfd)->a_info = BMAGIC; exec_hdr (abfd)->a_text = obj_textsec (abfd)->_raw_size; exec_hdr (abfd)->a_data = obj_datasec (abfd)->_raw_size; exec_hdr (abfd)->a_bss = obj_bsssec (abfd)->_raw_size; exec_hdr (abfd)->a_syms = bfd_get_symcount (abfd) * sizeof (struct nlist); exec_hdr (abfd)->a_entry = bfd_get_start_address (abfd); exec_hdr (abfd)->a_trsize = ((obj_textsec (abfd)->reloc_count) * sizeof (struct relocation_info)); exec_hdr (abfd)->a_drsize = ((obj_datasec (abfd)->reloc_count) * sizeof (struct relocation_info)); exec_hdr (abfd)->a_talign = obj_textsec (abfd)->alignment_power; exec_hdr (abfd)->a_dalign = obj_datasec (abfd)->alignment_power; exec_hdr (abfd)->a_balign = obj_bsssec (abfd)->alignment_power; exec_hdr (abfd)->a_tload = obj_textsec (abfd)->vma; exec_hdr (abfd)->a_dload = obj_datasec (abfd)->vma; bout_swap_exec_header_out (abfd, exec_hdr (abfd), &swapped_hdr); if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0 || (bfd_write ((PTR) &swapped_hdr, 1, EXEC_BYTES_SIZE, abfd) != EXEC_BYTES_SIZE)) return false; /* Now write out reloc info, followed by syms and strings */ if (bfd_get_symcount (abfd) != 0) { if (bfd_seek (abfd, (file_ptr)(N_SYMOFF(*exec_hdr(abfd))), SEEK_SET) != 0) return false; if (! aout_32_write_syms (abfd)) return false; if (bfd_seek (abfd, (file_ptr)(N_TROFF(*exec_hdr(abfd))), SEEK_SET) != 0) return false; if (!b_out_squirt_out_relocs (abfd, obj_textsec (abfd))) return false; if (bfd_seek (abfd, (file_ptr)(N_DROFF(*exec_hdr(abfd))), SEEK_SET) != 0) return false; if (!b_out_squirt_out_relocs (abfd, obj_datasec (abfd))) return false; } return true; } /** Some reloc hackery */ #define CALLS 0x66003800 /* Template for 'calls' instruction */ #define BAL 0x0b000000 /* Template for 'bal' instruction */ #define BALX 0x85000000 /* Template for 'balx' instruction */ #define BAL_MASK 0x00ffffff #define CALL 0x09000000 #define PCREL13_MASK 0x1fff #define output_addr(sec) ((sec)->output_offset+(sec)->output_section->vma) /* Magic to turn callx into calljx */ static bfd_reloc_status_type calljx_callback (abfd, link_info, reloc_entry, src, dst, input_section) bfd *abfd; struct bfd_link_info *link_info; arelent *reloc_entry; PTR src; PTR dst; asection *input_section; { int word = bfd_get_32 (abfd, src); asymbol *symbol_in = *(reloc_entry->sym_ptr_ptr); aout_symbol_type *symbol = aout_symbol (symbol_in); bfd_vma value; value = get_value (reloc_entry, link_info, input_section); if (IS_CALLNAME (symbol->other)) { aout_symbol_type *balsym = symbol+1; int inst = bfd_get_32 (abfd, (bfd_byte *) src-4); /* The next symbol should be an N_BALNAME */ BFD_ASSERT (IS_BALNAME (balsym->other)); inst &= BAL_MASK; inst |= BALX; bfd_put_32 (abfd, inst, (bfd_byte *) dst-4); symbol = balsym; value = (symbol->symbol.value + output_addr (symbol->symbol.section)); } word += value + reloc_entry->addend; bfd_put_32(abfd, word, dst); return bfd_reloc_ok; } /* Magic to turn call into callj */ static bfd_reloc_status_type callj_callback (abfd, link_info, reloc_entry, data, srcidx, dstidx, input_section) bfd *abfd; struct bfd_link_info *link_info; arelent *reloc_entry; PTR data; unsigned int srcidx; unsigned int dstidx; asection *input_section; { int word = bfd_get_32 (abfd, (bfd_byte *) data + srcidx); asymbol *symbol_in = *(reloc_entry->sym_ptr_ptr); aout_symbol_type *symbol = aout_symbol (symbol_in); bfd_vma value; value = get_value (reloc_entry, link_info, input_section); if (IS_OTHER(symbol->other)) { /* Call to a system procedure - replace code with system procedure number. */ word = CALLS | (symbol->other - 1); } else if (IS_CALLNAME(symbol->other)) { aout_symbol_type *balsym = symbol+1; /* The next symbol should be an N_BALNAME. */ BFD_ASSERT(IS_BALNAME(balsym->other)); /* We are calling a leaf, so replace the call instruction with a bal. */ word = BAL | ((word + output_addr (balsym->symbol.section) + balsym->symbol.value + reloc_entry->addend - dstidx - output_addr (input_section)) & BAL_MASK); } else { word = CALL | (((word & BAL_MASK) + value + reloc_entry->addend - dstidx - output_addr (input_section)) & BAL_MASK); } bfd_put_32(abfd, word, (bfd_byte *) data + dstidx); return bfd_reloc_ok; } /* type rshift size bitsize pcrel bitpos absolute overflow check*/ #define ABS32CODE 0 #define ABS32CODE_SHRUNK 1 #define PCREL24 2 #define CALLJ 3 #define ABS32 4 #define PCREL13 5 #define ABS32_MAYBE_RELAXABLE 1 #define ABS32_WAS_RELAXABLE 2 #define ALIGNER 10 #define ALIGNDONE 11 static reloc_howto_type howto_reloc_callj = HOWTO(CALLJ, 0, 2, 24, true, 0, complain_overflow_signed, 0,"callj", true, 0x00ffffff, 0x00ffffff,false); static reloc_howto_type howto_reloc_abs32 = HOWTO(ABS32, 0, 2, 32, false, 0, complain_overflow_bitfield,0,"abs32", true, 0xffffffff,0xffffffff,false); static reloc_howto_type howto_reloc_pcrel24 = HOWTO(PCREL24, 0, 2, 24, true, 0, complain_overflow_signed,0,"pcrel24", true, 0x00ffffff,0x00ffffff,false); static reloc_howto_type howto_reloc_pcrel13 = HOWTO(PCREL13, 0, 2, 13, true, 0, complain_overflow_signed,0,"pcrel13", true, 0x00001fff,0x00001fff,false); static reloc_howto_type howto_reloc_abs32codeshrunk = HOWTO(ABS32CODE_SHRUNK, 0, 2, 24, true, 0, complain_overflow_signed, 0,"callx->callj", true, 0x00ffffff, 0x00ffffff,false); static reloc_howto_type howto_reloc_abs32code = HOWTO(ABS32CODE, 0, 2, 32, false, 0, complain_overflow_bitfield,0,"callx", true, 0xffffffff,0xffffffff,false); static reloc_howto_type howto_align_table[] = { HOWTO (ALIGNER, 0, 0x1, 0, false, 0, complain_overflow_dont, 0, "align16", false, 0, 0, false), HOWTO (ALIGNER, 0, 0x3, 0, false, 0, complain_overflow_dont, 0, "align32", false, 0, 0, false), HOWTO (ALIGNER, 0, 0x7, 0, false, 0, complain_overflow_dont, 0, "align64", false, 0, 0, false), HOWTO (ALIGNER, 0, 0xf, 0, false, 0, complain_overflow_dont, 0, "align128", false, 0, 0, false), }; static reloc_howto_type howto_done_align_table[] = { HOWTO (ALIGNDONE, 0x1, 0x1, 0, false, 0, complain_overflow_dont, 0, "donealign16", false, 0, 0, false), HOWTO (ALIGNDONE, 0x3, 0x3, 0, false, 0, complain_overflow_dont, 0, "donealign32", false, 0, 0, false), HOWTO (ALIGNDONE, 0x7, 0x7, 0, false, 0, complain_overflow_dont, 0, "donealign64", false, 0, 0, false), HOWTO (ALIGNDONE, 0xf, 0xf, 0, false, 0, complain_overflow_dont, 0, "donealign128", false, 0, 0, false), }; static const reloc_howto_type * b_out_bfd_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { switch (code) { default: return 0; case BFD_RELOC_I960_CALLJ: return &howto_reloc_callj; case BFD_RELOC_32: case BFD_RELOC_CTOR: return &howto_reloc_abs32; case BFD_RELOC_24_PCREL: return &howto_reloc_pcrel24; } } /* Allocate enough room for all the reloc entries, plus pointers to them all */ static boolean b_out_slurp_reloc_table (abfd, asect, symbols) bfd *abfd; sec_ptr asect; asymbol **symbols; { register struct relocation_info *rptr; unsigned int counter ; arelent *cache_ptr ; int extern_mask, pcrel_mask, callj_mask, length_shift; int incode_mask; int size_mask; bfd_vma prev_addr = 0; unsigned int count; size_t reloc_size; struct relocation_info *relocs; arelent *reloc_cache; if (asect->relocation) return true; if (!aout_32_slurp_symbol_table (abfd)) return false; if (asect == obj_datasec (abfd)) { reloc_size = exec_hdr(abfd)->a_drsize; goto doit; } if (asect == obj_textsec (abfd)) { reloc_size = exec_hdr(abfd)->a_trsize; goto doit; } bfd_set_error (bfd_error_invalid_operation); return false; doit: if (bfd_seek (abfd, (file_ptr)(asect->rel_filepos), SEEK_SET) != 0) return false; count = reloc_size / sizeof (struct relocation_info); relocs = (struct relocation_info *) malloc (reloc_size); if (!relocs && reloc_size != 0) { bfd_set_error (bfd_error_no_memory); return false; } reloc_cache = (arelent *) malloc ((count+1) * sizeof (arelent)); if (!reloc_cache) { free ((char*)relocs); bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read ((PTR) relocs, 1, reloc_size, abfd) != reloc_size) { free (reloc_cache); free (relocs); return false; } if (abfd->xvec->header_byteorder_big_p) { /* big-endian bit field allocation order */ pcrel_mask = 0x80; extern_mask = 0x10; incode_mask = 0x08; callj_mask = 0x02; size_mask = 0x20; length_shift = 5; } else { /* little-endian bit field allocation order */ pcrel_mask = 0x01; extern_mask = 0x08; incode_mask = 0x10; callj_mask = 0x40; size_mask = 0x02; length_shift = 1; } for (rptr = relocs, cache_ptr = reloc_cache, counter = 0; counter < count; counter++, rptr++, cache_ptr++) { unsigned char *raw = (unsigned char *)rptr; unsigned int symnum; cache_ptr->address = bfd_h_get_32 (abfd, raw + 0); cache_ptr->howto = 0; if (abfd->xvec->header_byteorder_big_p) { symnum = (raw[4] << 16) | (raw[5] << 8) | raw[6]; } else { symnum = (raw[6] << 16) | (raw[5] << 8) | raw[4]; } if (raw[7] & extern_mask) { /* if this is set then the r_index is a index into the symbol table; * if the bit is not set then r_index contains a section map. * we either fill in the sym entry with a pointer to the symbol, * or point to the correct section */ cache_ptr->sym_ptr_ptr = symbols + symnum; cache_ptr->addend = 0; } else { /* in a.out symbols are relative to the beginning of the * file rather than sections ? * (look in translate_from_native_sym_flags) * the reloc entry addend has added to it the offset into the * file of the data, so subtract the base to make the reloc * section relative */ int s; { /* sign-extend symnum from 24 bits to whatever host uses */ s = symnum; if (s & (1 << 23)) s |= (~0) << 24; } cache_ptr->sym_ptr_ptr = (asymbol **)NULL; switch (s) { case N_TEXT: case N_TEXT | N_EXT: cache_ptr->sym_ptr_ptr = obj_textsec(abfd)->symbol_ptr_ptr; cache_ptr->addend = - obj_textsec(abfd)->vma; break; case N_DATA: case N_DATA | N_EXT: cache_ptr->sym_ptr_ptr = obj_datasec(abfd)->symbol_ptr_ptr; cache_ptr->addend = - obj_datasec(abfd)->vma; break; case N_BSS: case N_BSS | N_EXT: cache_ptr->sym_ptr_ptr = obj_bsssec(abfd)->symbol_ptr_ptr; cache_ptr->addend = - obj_bsssec(abfd)->vma; break; case N_ABS: case N_ABS | N_EXT: cache_ptr->sym_ptr_ptr = obj_bsssec(abfd)->symbol_ptr_ptr; cache_ptr->addend = 0; break; case -2: /* .align */ if (raw[7] & pcrel_mask) { cache_ptr->howto = &howto_align_table[(raw[7] >> length_shift) & 3]; cache_ptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; } else { /* .org? */ abort (); } cache_ptr->addend = 0; break; default: BFD_ASSERT(0); break; } } /* the i960 only has a few relocation types: abs 32-bit and pcrel 24bit. except for callj's! */ if (cache_ptr->howto != 0) ; else if (raw[7] & callj_mask) { cache_ptr->howto = &howto_reloc_callj; } else if ( raw[7] & pcrel_mask) { if (raw[7] & size_mask) cache_ptr->howto = &howto_reloc_pcrel13; else cache_ptr->howto = &howto_reloc_pcrel24; } else { if (raw[7] & incode_mask) { cache_ptr->howto = &howto_reloc_abs32code; } else { cache_ptr->howto = &howto_reloc_abs32; } } if (cache_ptr->address < prev_addr) { /* Ouch! this reloc is out of order, insert into the right place */ arelent tmp; arelent *cursor = cache_ptr-1; bfd_vma stop = cache_ptr->address; tmp = *cache_ptr; while (cursor->address > stop && cursor >= reloc_cache) { cursor[1] = cursor[0]; cursor--; } cursor[1] = tmp; } else { prev_addr = cache_ptr->address; } } free (relocs); asect->relocation = reloc_cache; asect->reloc_count = count; return true; } static boolean b_out_squirt_out_relocs (abfd, section) bfd *abfd; asection *section; { arelent **generic; int r_extern = 0; int r_idx; int incode_mask; int len_1; unsigned int count = section->reloc_count; struct relocation_info *native, *natptr; size_t natsize = count * sizeof (struct relocation_info); int extern_mask, pcrel_mask, len_2, callj_mask; if (count == 0) return true; generic = section->orelocation; native = ((struct relocation_info *) malloc (natsize)); if (!native && natsize != 0) { bfd_set_error (bfd_error_no_memory); return false; } if (abfd->xvec->header_byteorder_big_p) { /* Big-endian bit field allocation order */ pcrel_mask = 0x80; extern_mask = 0x10; len_2 = 0x40; len_1 = 0x20; callj_mask = 0x02; incode_mask = 0x08; } else { /* Little-endian bit field allocation order */ pcrel_mask = 0x01; extern_mask = 0x08; len_2 = 0x04; len_1 = 0x02; callj_mask = 0x40; incode_mask = 0x10; } for (natptr = native; count > 0; --count, ++natptr, ++generic) { arelent *g = *generic; unsigned char *raw = (unsigned char *)natptr; asymbol *sym = *(g->sym_ptr_ptr); asection *output_section = sym->section->output_section; bfd_h_put_32(abfd, g->address, raw); /* Find a type in the output format which matches the input howto - * at the moment we assume input format == output format FIXME!! */ r_idx = 0; /* FIXME: Need callj stuff here, and to check the howto entries to be sure they are real for this architecture. */ if (g->howto== &howto_reloc_callj) { raw[7] = callj_mask + pcrel_mask + len_2; } else if (g->howto == &howto_reloc_pcrel24) { raw[7] = pcrel_mask + len_2; } else if (g->howto == &howto_reloc_pcrel13) { raw[7] = pcrel_mask + len_1; } else if (g->howto == &howto_reloc_abs32code) { raw[7] = len_2 + incode_mask; } else if (g->howto >= howto_align_table && g->howto <= (howto_align_table + sizeof (howto_align_table) / sizeof (howto_align_table[0]) - 1)) { /* symnum == -2; extern_mask not set, pcrel_mask set */ r_idx = -2; r_extern = 0; raw[7] = (pcrel_mask | ((g->howto - howto_align_table) << 1)); } else { raw[7] = len_2; } if (r_idx != 0) /* already mucked with r_extern, r_idx */; else if (bfd_is_com_section (output_section) || bfd_is_abs_section (output_section) || bfd_is_und_section (output_section)) { if (bfd_abs_section_ptr->symbol == sym) { /* Whoops, looked like an abs symbol, but is really an offset from the abs section */ r_idx = 0; r_extern = 0; } else { /* Fill in symbol */ r_extern = 1; r_idx = stoi((*(g->sym_ptr_ptr))->flags); } } else { /* Just an ordinary section */ r_extern = 0; r_idx = output_section->target_index; } if (abfd->xvec->header_byteorder_big_p) { raw[4] = (unsigned char) (r_idx >> 16); raw[5] = (unsigned char) (r_idx >> 8); raw[6] = (unsigned char) (r_idx ); } else { raw[6] = (unsigned char) (r_idx >> 16); raw[5] = (unsigned char) (r_idx>> 8); raw[4] = (unsigned char) (r_idx ); } if (r_extern) raw[7] |= extern_mask; } if (bfd_write ((PTR) native, 1, natsize, abfd) != natsize) { free((PTR)native); return false; } free ((PTR)native); return true; } /* This is stupid. This function should be a boolean predicate */ static long b_out_canonicalize_reloc (abfd, section, relptr, symbols) bfd *abfd; sec_ptr section; arelent **relptr; asymbol **symbols; { arelent *tblptr = section->relocation; unsigned int count = 0; if (!(tblptr || b_out_slurp_reloc_table (abfd, section, symbols))) return -1; tblptr = section->relocation; for (; count++ < section->reloc_count;) *relptr++ = tblptr++; *relptr = 0; return section->reloc_count; } static long b_out_get_reloc_upper_bound (abfd, asect) bfd *abfd; sec_ptr asect; { if (bfd_get_format (abfd) != bfd_object) { bfd_set_error (bfd_error_invalid_operation); return -1; } if (asect == obj_datasec (abfd)) return (sizeof (arelent *) * ((exec_hdr(abfd)->a_drsize / sizeof (struct relocation_info)) +1)); if (asect == obj_textsec (abfd)) return (sizeof (arelent *) * ((exec_hdr(abfd)->a_trsize / sizeof (struct relocation_info)) +1)); if (asect == obj_bsssec (abfd)) return 0; bfd_set_error (bfd_error_invalid_operation); return -1; } static boolean b_out_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; unsigned char *location; file_ptr offset; int count; { if (abfd->output_has_begun == false) { /* set by bfd.c handler */ if (! aout_32_make_sections (abfd)) return false; obj_textsec (abfd)->filepos = sizeof(struct internal_exec); obj_datasec(abfd)->filepos = obj_textsec(abfd)->filepos + obj_textsec (abfd)->_raw_size; } /* regardless, once we know what we're doing, we might as well get going */ if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0) return false; if (count != 0) { return (bfd_write ((PTR)location, 1, count, abfd) == count) ?true:false; } return true; } static boolean b_out_set_arch_mach (abfd, arch, machine) bfd *abfd; enum bfd_architecture arch; unsigned long machine; { bfd_default_set_arch_mach(abfd, arch, machine); if (arch == bfd_arch_unknown) /* Unknown machine arch is OK */ return true; if (arch == bfd_arch_i960) /* i960 default is OK */ switch (machine) { case bfd_mach_i960_core: case bfd_mach_i960_kb_sb: case bfd_mach_i960_mc: case bfd_mach_i960_xa: case bfd_mach_i960_ca: case bfd_mach_i960_ka_sa: case 0: return true; default: return false; } return false; } static int b_out_sizeof_headers (ignore_abfd, ignore) bfd *ignore_abfd; boolean ignore; { return sizeof(struct internal_exec); } /************************************************************************/ static bfd_vma get_value (reloc, link_info, input_section) arelent *reloc; struct bfd_link_info *link_info; asection *input_section; { bfd_vma value; asymbol *symbol = *(reloc->sym_ptr_ptr); /* A symbol holds a pointer to a section, and an offset from the base of the section. To relocate, we find where the section will live in the output and add that in */ if (bfd_is_und_section (symbol->section)) { struct bfd_link_hash_entry *h; /* The symbol is undefined in this BFD. Look it up in the global linker hash table. FIXME: This should be changed when we convert b.out to use a specific final_link function and change the interface to bfd_relax_section to not require the generic symbols. */ h = bfd_link_hash_lookup (link_info->hash, bfd_asymbol_name (symbol), false, false, true); if (h != (struct bfd_link_hash_entry *) NULL && h->type == bfd_link_hash_defined) value = h->u.def.value + output_addr (h->u.def.section); else if (h != (struct bfd_link_hash_entry *) NULL && h->type == bfd_link_hash_common) value = h->u.c.size; else { if (! ((*link_info->callbacks->undefined_symbol) (link_info, bfd_asymbol_name (symbol), input_section->owner, input_section, reloc->address))) abort (); value = 0; } } else { value = symbol->value + output_addr (symbol->section); } /* Add the value contained in the relocation */ value += reloc->addend; return value; } static void perform_slip (abfd, slip, input_section, value) bfd *abfd; unsigned int slip; asection *input_section; bfd_vma value; { asymbol **s; s = _bfd_generic_link_get_symbols (abfd); BFD_ASSERT (s != (asymbol **) NULL); /* Find all symbols past this point, and make them know what's happened */ while (*s) { asymbol *p = *s; if (p->section == input_section) { /* This was pointing into this section, so mangle it */ if (p->value > value) { p->value -=slip; if (p->udata != NULL) { struct generic_link_hash_entry *h; h = (struct generic_link_hash_entry *) p->udata; BFD_ASSERT (h->root.type == bfd_link_hash_defined); h->root.u.def.value -= slip; BFD_ASSERT (h->root.u.def.value == p->value); } } } s++; } } /* This routine works out if the thing we want to get to can be reached with a 24bit offset instead of a 32 bit one. If it can, then it changes the amode */ static int abs32code (abfd, input_section, r, shrink, link_info) bfd *abfd; asection *input_section; arelent *r; unsigned int shrink; struct bfd_link_info *link_info; { bfd_vma value = get_value (r, link_info, input_section); bfd_vma dot = output_addr (input_section) + r->address; bfd_vma gap; /* See if the address we're looking at within 2^23 bytes of where we are, if so then we can use a small branch rather than the jump we were going to */ gap = value - (dot - shrink); if (-1<<23 < (long)gap && (long)gap < 1<<23 ) { /* Change the reloc type from 32bitcode possible 24, to 24bit possible 32 */ r->howto = &howto_reloc_abs32codeshrunk; /* The place to relc moves back by four bytes */ r->address -=4; /* This will be four bytes smaller in the long run */ shrink += 4 ; perform_slip (abfd, 4, input_section, r->address-shrink + 4); } return shrink; } static int aligncode (abfd, input_section, r, shrink) bfd *abfd; asection *input_section; arelent *r; unsigned int shrink; { bfd_vma dot = output_addr (input_section) + r->address; bfd_vma gap; bfd_vma old_end; bfd_vma new_end; int shrink_delta; int size = r->howto->size; /* Reduce the size of the alignment so that it's still aligned but smaller - the current size is already the same size as or bigger than the alignment required. */ /* calculate the first byte following the padding before we optimize */ old_end = ((dot + size ) & ~size) + size+1; /* work out where the new end will be - remember that we're smaller than we used to be */ new_end = ((dot - shrink + size) & ~size); /* This is the new end */ gap = old_end - ((dot + size) & ~size); shrink_delta = (old_end - new_end) - shrink; if (shrink_delta) { /* Change the reloc so that it knows how far to align to */ r->howto = howto_done_align_table + (r->howto - howto_align_table); /* Encode the stuff into the addend - for future use we need to know how big the reloc used to be */ r->addend = old_end - dot + r->address; /* This will be N bytes smaller in the long run, adjust all the symbols */ perform_slip (abfd, shrink_delta, input_section, r->address - shrink); shrink += shrink_delta; } return shrink; } static boolean b_out_bfd_relax_section (abfd, i, link_info, again) bfd *abfd; asection *i; struct bfd_link_info *link_info; boolean *again; { /* Get enough memory to hold the stuff */ bfd *input_bfd = i->owner; asection *input_section = i; int shrink = 0 ; arelent **reloc_vector = NULL; long reloc_size = bfd_get_reloc_upper_bound(input_bfd, input_section); if (reloc_size < 0) return false; /* We only run this relaxation once. It might work to run it multiple times, but it hasn't been tested. */ *again = false; if (reloc_size) { long reloc_count; reloc_vector = (arelent **) malloc (reloc_size); if (reloc_vector == NULL && reloc_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* Get the relocs and think about them */ reloc_count = bfd_canonicalize_reloc (input_bfd, input_section, reloc_vector, _bfd_generic_link_get_symbols (input_bfd)); if (reloc_count < 0) goto error_return; if (reloc_count > 0) { arelent **parent; for (parent = reloc_vector; *parent; parent++) { arelent *r = *parent; switch (r->howto->type) { case ALIGNER: /* An alignment reloc */ shrink = aligncode (abfd, input_section, r, shrink); break; case ABS32CODE: /* A 32bit reloc in an addressing mode */ shrink = abs32code (input_bfd, input_section, r, shrink, link_info); break; case ABS32CODE_SHRUNK: shrink+=4; break; } } } } input_section->_cooked_size = input_section->_raw_size - shrink; if (reloc_vector != NULL) free (reloc_vector); return true; error_return: if (reloc_vector != NULL) free (reloc_vector); return false; } static bfd_byte * b_out_bfd_get_relocated_section_contents (in_abfd, link_info, link_order, data, relocateable, symbols) bfd *in_abfd; struct bfd_link_info *link_info; struct bfd_link_order *link_order; bfd_byte *data; boolean relocateable; asymbol **symbols; { /* Get enough memory to hold the stuff */ bfd *input_bfd = link_order->u.indirect.section->owner; asection *input_section = link_order->u.indirect.section; long reloc_size = bfd_get_reloc_upper_bound(input_bfd, input_section); arelent **reloc_vector = NULL; long reloc_count; if (reloc_size < 0) goto error_return; /* If producing relocateable output, don't bother to relax. */ if (relocateable) return bfd_generic_get_relocated_section_contents (in_abfd, link_info, link_order, data, relocateable, symbols); reloc_vector = (arelent **) malloc (reloc_size); if (reloc_vector == NULL && reloc_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } input_section->reloc_done = 1; /* read in the section */ BFD_ASSERT (true == bfd_get_section_contents(input_bfd, input_section, data, 0, input_section->_raw_size)); reloc_count = bfd_canonicalize_reloc (input_bfd, input_section, reloc_vector, symbols); if (reloc_count < 0) goto error_return; if (reloc_count > 0) { arelent **parent = reloc_vector; arelent *reloc ; unsigned int dst_address = 0; unsigned int src_address = 0; unsigned int run; unsigned int idx; /* Find how long a run we can do */ while (dst_address < link_order->size) { reloc = *parent; if (reloc) { /* Note that the relaxing didn't tie up the addresses in the relocation, so we use the original address to work out the run of non-relocated data */ BFD_ASSERT (reloc->address >= src_address); run = reloc->address - src_address; parent++; } else { run = link_order->size - dst_address; } /* Copy the bytes */ for (idx = 0; idx < run; idx++) { data[dst_address++] = data[src_address++]; } /* Now do the relocation */ if (reloc) { switch (reloc->howto->type) { case ABS32CODE: calljx_callback (in_abfd, link_info, reloc, src_address + data, dst_address + data, input_section); src_address+=4; dst_address+=4; break; case ABS32: bfd_put_32(in_abfd, (bfd_get_32 (in_abfd, data+src_address) + get_value (reloc, link_info, input_section)), data+dst_address); src_address+=4; dst_address+=4; break; case CALLJ: callj_callback (in_abfd, link_info, reloc, data, src_address, dst_address, input_section); src_address+=4; dst_address+=4; break; case ALIGNDONE: BFD_ASSERT (reloc->addend >= src_address); BFD_ASSERT (reloc->addend <= input_section->_raw_size); src_address = reloc->addend; dst_address = ((dst_address + reloc->howto->size) & ~reloc->howto->size); break; case ABS32CODE_SHRUNK: /* This used to be a callx, but we've found out that a callj will reach, so do the right thing. */ callj_callback (in_abfd, link_info, reloc, data, src_address + 4, dst_address, input_section); dst_address+=4; src_address+=8; break; case PCREL24: { long int word = bfd_get_32(in_abfd, data+src_address); bfd_vma value; value = get_value (reloc, link_info, input_section); word = ((word & ~BAL_MASK) | (((word & BAL_MASK) + value - output_addr (input_section) + reloc->addend) & BAL_MASK)); bfd_put_32(in_abfd,word, data+dst_address); dst_address+=4; src_address+=4; } break; case PCREL13: { long int word = bfd_get_32(in_abfd, data+src_address); bfd_vma value; value = get_value (reloc, link_info, input_section); word = ((word & ~PCREL13_MASK) | (((word & PCREL13_MASK) + value + reloc->addend - output_addr (input_section)) & PCREL13_MASK)); bfd_put_32(in_abfd,word, data+dst_address); dst_address+=4; src_address+=4; } break; default: abort(); } } } } if (reloc_vector != NULL) free (reloc_vector); return data; error_return: if (reloc_vector != NULL) free (reloc_vector); return NULL; } /***********************************************************************/ /* Build the transfer vectors for Big and Little-Endian B.OUT files. */ #define aout_32_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol #define aout_32_close_and_cleanup aout_32_bfd_free_cached_info #define b_out_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define b_out_bfd_link_add_symbols _bfd_generic_link_add_symbols #define b_out_bfd_final_link _bfd_generic_final_link const bfd_target b_out_vec_big_host = { "b.out.big", /* name */ bfd_target_aout_flavour, false, /* data byte order is little */ true, /* hdr byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | BFD_IS_RELAXABLE ), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* symbol leading char */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 2, /* minumum alignment power */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, b_out_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, b_out_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, b_out_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (aout_32), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_bsd), BFD_JUMP_TABLE_SYMBOLS (aout_32), BFD_JUMP_TABLE_RELOCS (b_out), BFD_JUMP_TABLE_WRITE (b_out), BFD_JUMP_TABLE_LINK (b_out), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0, }; const bfd_target b_out_vec_little_host = { "b.out.little", /* name */ bfd_target_aout_flavour, false, /* data byte order is little */ false, /* header byte order is little */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | BFD_IS_RELAXABLE ), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* symbol leading char */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 2, /* minum align */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ {_bfd_dummy_target, b_out_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, b_out_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, b_out_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (aout_32), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_bsd), BFD_JUMP_TABLE_SYMBOLS (aout_32), BFD_JUMP_TABLE_RELOCS (b_out), BFD_JUMP_TABLE_WRITE (b_out), BFD_JUMP_TABLE_LINK (b_out), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 }; gdb-4.13/bfd/cache.c 666 34562 1752 16260 5561562424 12535 0ustar fnfcygnus/* BFD library -- caching of file descriptors. Copyright 1990, 1991, 1992, 1994 Free Software Foundation, Inc. Hacked by Steve Chamberlain of Cygnus Support (steve@cygnus.com). This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION File caching The file caching mechanism is embedded within BFD and allows the application to open as many BFDs as it wants without regard to the underlying operating system's file descriptor limit (often as low as 20 open files). The module in <> maintains a least recently used list of <> files, and exports the name <>, which runs around and makes sure that the required BFD is open. If not, then it chooses a file to close, closes it and opens the one wanted, returning its file handle. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static void insert PARAMS ((bfd *)); static void snip PARAMS ((bfd *)); static boolean close_one PARAMS ((void)); static boolean bfd_cache_delete PARAMS ((bfd *)); /* INTERNAL_FUNCTION BFD_CACHE_MAX_OPEN macro DESCRIPTION The maximum number of files which the cache will keep open at one time. .#define BFD_CACHE_MAX_OPEN 10 */ /* The number of BFD files we have open. */ static int open_files; /* INTERNAL_FUNCTION bfd_last_cache SYNOPSIS extern bfd *bfd_last_cache; DESCRIPTION Zero, or a pointer to the topmost BFD on the chain. This is used by the <> macro in @file{libbfd.h} to determine when it can avoid a function call. */ bfd *bfd_last_cache; /* INTERNAL_FUNCTION bfd_cache_lookup DESCRIPTION Check to see if the required BFD is the same as the last one looked up. If so, then it can use the stream in the BFD with impunity, since it can't have changed since the last lookup; otherwise, it has to perform the complicated lookup function. .#define bfd_cache_lookup(x) \ . ((x)==bfd_last_cache? \ . (FILE*)(bfd_last_cache->iostream): \ . bfd_cache_lookup_worker(x)) */ /* Insert a BFD into the cache. */ static INLINE void insert (abfd) bfd *abfd; { if (bfd_last_cache == NULL) { abfd->lru_next = abfd; abfd->lru_prev = abfd; } else { abfd->lru_next = bfd_last_cache; abfd->lru_prev = bfd_last_cache->lru_prev; abfd->lru_prev->lru_next = abfd; abfd->lru_next->lru_prev = abfd; } bfd_last_cache = abfd; } /* Remove a BFD from the cache. */ static INLINE void snip (abfd) bfd *abfd; { abfd->lru_prev->lru_next = abfd->lru_next; abfd->lru_next->lru_prev = abfd->lru_prev; if (abfd == bfd_last_cache) { bfd_last_cache = abfd->lru_next; if (abfd == bfd_last_cache) bfd_last_cache = NULL; } } /* We need to open a new file, and the cache is full. Find the least recently used cacheable BFD and close it. */ static boolean close_one () { register bfd *kill; if (bfd_last_cache == NULL) kill = NULL; else { for (kill = bfd_last_cache->lru_prev; ! kill->cacheable; kill = kill->lru_prev) { if (kill == bfd_last_cache) { kill = NULL; break; } } } if (kill == NULL) { /* There are no open cacheable BFD's. */ return true; } kill->where = ftell ((FILE *) kill->iostream); return bfd_cache_delete (kill); } /* Close a BFD and remove it from the cache. */ static boolean bfd_cache_delete (abfd) bfd *abfd; { boolean ret; if (fclose ((FILE *) abfd->iostream) == 0) ret = true; else { ret = false; bfd_set_error (bfd_error_system_call); } snip (abfd); abfd->iostream = NULL; --open_files; return ret; } /* INTERNAL_FUNCTION bfd_cache_init SYNOPSIS boolean bfd_cache_init (bfd *abfd); DESCRIPTION Add a newly opened BFD to the cache. */ boolean bfd_cache_init (abfd) bfd *abfd; { BFD_ASSERT (abfd->iostream != NULL); if (open_files >= BFD_CACHE_MAX_OPEN) { if (! close_one ()) return false; } insert (abfd); ++open_files; return true; } /* INTERNAL_FUNCTION bfd_cache_close SYNOPSIS boolean bfd_cache_close (bfd *abfd); DESCRIPTION Remove the BFD @var{abfd} from the cache. If the attached file is open, then close it too. RETURNS <> is returned if closing the file fails, <> is returned if all is well. */ boolean bfd_cache_close (abfd) bfd *abfd; { if (abfd->iostream == NULL) return true; return bfd_cache_delete (abfd); } /* INTERNAL_FUNCTION bfd_open_file SYNOPSIS FILE* bfd_open_file(bfd *abfd); DESCRIPTION Call the OS to open a file for @var{abfd}. Return the <> (possibly <>) that results from this operation. Set up the BFD so that future accesses know the file is open. If the <> returned is <>, then it won't have been put in the cache, so it won't have to be removed from it. */ FILE * bfd_open_file (abfd) bfd *abfd; { abfd->cacheable = true; /* Allow it to be closed later. */ if (open_files >= BFD_CACHE_MAX_OPEN) { if (! close_one ()) return NULL; } switch (abfd->direction) { case read_direction: case no_direction: abfd->iostream = (char *) fopen (abfd->filename, FOPEN_RB); break; case both_direction: case write_direction: if (abfd->opened_once == true) { abfd->iostream = (char *) fopen (abfd->filename, FOPEN_RUB); if (abfd->iostream == NULL) abfd->iostream = (char *) fopen (abfd->filename, FOPEN_WUB); } else { /*open for creat */ abfd->iostream = (char *) fopen (abfd->filename, FOPEN_WB); abfd->opened_once = true; } break; } if (abfd->iostream != NULL) { if (! bfd_cache_init (abfd)) return NULL; } return (FILE *) abfd->iostream; } /* INTERNAL_FUNCTION bfd_cache_lookup_worker SYNOPSIS FILE *bfd_cache_lookup_worker(bfd *abfd); DESCRIPTION Called when the macro <> fails to find a quick answer. Find a file descriptor for @var{abfd}. If necessary, it open it. If there are already more than <> files open, it tries to close one first, to avoid running out of file descriptors. */ FILE * bfd_cache_lookup_worker (abfd) bfd *abfd; { if (abfd->my_archive) abfd = abfd->my_archive; if (abfd->iostream != NULL) { /* Move the file to the start of the cache. */ if (abfd != bfd_last_cache) { snip (abfd); insert (abfd); } } else { if (bfd_open_file (abfd) == NULL) return NULL; if (fseek ((FILE *) abfd->iostream, abfd->where, SEEK_SET) != 0) return NULL; } return (FILE *) abfd->iostream; } gdb-4.13/bfd/cf-i386lynx.c 666 34562 1752 5631 5602362662 13442 0ustar fnfcygnus/* BFD back-end for Intel 386 COFF LynxOS files. Copyright 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_SYM i386lynx_coff_vec #define TARGET_NAME "coff-i386-lynx" #define LYNXOS #define COFF_LONG_FILENAMES #include "coff-i386.c" static const bfd_target * i386_lynxos_coff_object_p(a) bfd *a; { return coff_object_p(a); } #if 0 #undef TARGET_SYM #define TARGET_SYM i386lynx_sysv_coff_vec #undef TARGET_NAME #define TARGET_NAME "coff-i386-lynx-sysv" /* Another almost-copy of the vector in coff-i386.c. */ const bfd_target #ifdef TARGET_SYM TARGET_SYM = #else i386coff_vec = #endif { #ifdef TARGET_NAME TARGET_NAME, #else "coff-i386", /* name */ #endif bfd_target_coff_flavour, false, /* data byte order is little */ false, /* header byte order is little */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 2, /* minimum alignment power */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ /* Note that we allow an object file to be treated as a core file as well. */ {_bfd_dummy_target, i3coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, i3coff_object_p}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; #endif gdb-4.13/bfd/cf-m68klynx.c 666 34562 1752 13403 5560255577 13563 0ustar fnfcygnus/* BFD back-end for Motorola M68K COFF LynxOS files. Copyright 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_SYM m68klynx_coff_vec #define TARGET_NAME "coff-m68k-lynx" #define LYNXOS #define COFF_LONG_FILENAMES #define _bfd_m68kcoff_howto_table _bfd_m68klynx_howto_table #define _bfd_m68kcoff_rtype2howto _bfd_m68klynx_rtype2howto #define _bfd_m68kcoff_howto2rtype _bfd_m68klynx_howto2rtype #define LYNX_SPECIAL_FN _bfd_m68klynx_special_fn #include "bfd.h" #include "sysdep.h" static bfd_reloc_status_type _bfd_m68klynx_special_fn PARAMS ((bfd *abfd, arelent *reloc_entry, asymbol *symbol, PTR data, asection *input_section, bfd *output_bfd, char **error_message)); /* For some reason when using m68k COFF the value stored in the .text section for a reference to a common symbol is the value itself plus any desired offset. (taken from work done by Ian Taylor, Cygnus Support, for I386 COFF). */ /* If we are producing relocateable output, we need to do some adjustments to the object file that are not done by the bfd_perform_relocation function. This function is called by every reloc type to make any required adjustments. */ static bfd_reloc_status_type _bfd_m68klynx_special_fn (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { symvalue diff; if (output_bfd == (bfd *) NULL) return bfd_reloc_continue; if (bfd_is_com_section (symbol->section)) { /* We are relocating a common symbol. The current value in the object file is ORIG + OFFSET, where ORIG is the value of the common symbol as seen by the object file when it was compiled (this may be zero if the symbol was undefined) and OFFSET is the offset into the common symbol (normally zero, but may be non-zero when referring to a field in a common structure). ORIG is the negative of reloc_entry->addend, which is set by the CALC_ADDEND macro below. We want to replace the value in the object file with NEW + OFFSET, where NEW is the value of the common symbol which we are going to put in the final object file. NEW is symbol->value. */ diff = symbol->value + reloc_entry->addend; } else { /* For some reason bfd_perform_relocation always effectively ignores the addend for a COFF target when producing relocateable output. This seems to be always wrong for 386 COFF, so we handle the addend here instead. */ diff = reloc_entry->addend; } #define DOIT(x) \ x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + diff) & howto->dst_mask)) if (diff != 0) { const reloc_howto_type *howto = reloc_entry->howto; unsigned char *addr = (unsigned char *) data + reloc_entry->address; switch (howto->size) { case 0: { char x = bfd_get_8 (abfd, addr); DOIT (x); bfd_put_8 (abfd, x, addr); } break; case 1: { short x = bfd_get_16 (abfd, addr); DOIT (x); bfd_put_16 (abfd, x, addr); } break; case 2: { long x = bfd_get_32 (abfd, addr); DOIT (x); bfd_put_32 (abfd, x, addr); } break; default: abort (); } } /* Now let bfd_perform_relocation finish everything up. */ return bfd_reloc_continue; } /* Compute the addend of a reloc. If the reloc is to a common symbol, the object file contains the value of the common symbol. By the time this is called, the linker may be using a different symbol from a different object file with a different value. Therefore, we hack wildly to locate the original symbol from this file so that we can make the correct adjustment. This macro sets coffsym to the symbol from the original file, and uses it to set the addend value correctly. If this is not a common symbol, the usual addend calculation is done, except that an additional tweak is needed for PC relative relocs. FIXME: This macro refers to symbols and asect; these are from the calling function, not the macro arguments. */ #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \ { \ coff_symbol_type *coffsym = (coff_symbol_type *) NULL; \ if (ptr && bfd_asymbol_bfd (ptr) != abfd) \ coffsym = (obj_symbols (abfd) \ + (cache_ptr->sym_ptr_ptr - symbols)); \ else if (ptr) \ coffsym = coff_symbol_from (abfd, ptr); \ if (coffsym != (coff_symbol_type *) NULL \ && coffsym->native->u.syment.n_scnum == 0) \ cache_ptr->addend = - coffsym->native->u.syment.n_value; \ else if (ptr && bfd_asymbol_bfd (ptr) == abfd \ && ptr->section != (asection *) NULL) \ cache_ptr->addend = - (ptr->section->vma + ptr->value); \ else \ cache_ptr->addend = 0; \ if (ptr && (reloc.r_type == R_PCRBYTE \ || reloc.r_type == R_PCRWORD \ || reloc.r_type == R_PCRLONG)) \ cache_ptr->addend += asect->vma; \ } #include "coff-m68k.c" gdb-4.13/bfd/cf-sparclynx.c 666 34562 1752 1747 5557310415 14063 0ustar fnfcygnus/* BFD back-end for Sparc COFF LynxOS files. Copyright 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_SYM sparclynx_coff_vec #define TARGET_NAME "coff-sparc-lynx" #define LYNXOS #define COFF_LONG_FILENAMES #include "coff-sparc.c" gdb-4.13/bfd/cisco-core.c 666 34562 1752 22444 5610565573 13524 0ustar fnfcygnus/* BFD back-end for CISCO crash dumps. Copyright 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" /* core_file_failing_signal returns a host signal (this probably should be fixed). */ #include #define CRASH_INFO (0xffc) #define CRASH_MAGIC 0xdead1234 typedef enum { CRASH_REASON_NOTCRASHED = 0, CRASH_REASON_EXCEPTION = 1, CRASH_REASON_CORRUPT = 2, } crashreason; struct crashinfo_external { char magic[4]; /* Magic number */ char version[4]; /* Version number */ char reason[4]; /* Crash reason */ char cpu_vector[4]; /* CPU vector for exceptions */ char registers[4]; /* Pointer to saved registers */ char rambase[4]; /* Base of RAM (not in V1 crash info) */ }; struct cisco_core_struct { int sig; }; static const bfd_target * cisco_core_file_p (abfd) bfd *abfd; { char buf[4]; unsigned int crashinfo_offset; struct crashinfo_external crashinfo; int nread; unsigned int rambase; sec_ptr asect; struct stat statbuf; if (bfd_seek (abfd, CRASH_INFO, SEEK_SET) != 0) return NULL; nread = bfd_read (buf, 1, 4, abfd); if (nread != 4) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return NULL; } crashinfo_offset = bfd_get_32 (abfd, buf); if (bfd_seek (abfd, crashinfo_offset, SEEK_SET) != 0) return NULL; nread = bfd_read (&crashinfo, 1, sizeof (crashinfo), abfd); if (nread != sizeof (crashinfo)) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return NULL; } if (bfd_stat (abfd, &statbuf) < 0) { bfd_set_error (bfd_error_system_call); return NULL; } if (bfd_get_32 (abfd, crashinfo.magic) != CRASH_MAGIC) { bfd_set_error (bfd_error_wrong_format); return NULL; } switch (bfd_get_32 (abfd, crashinfo.version)) { case 0: bfd_set_error (bfd_error_wrong_format); return NULL; case 1: rambase = 0; break; default: case 2: rambase = bfd_get_32 (abfd, crashinfo.rambase); break; } /* OK, we believe you. You're a core file. */ abfd->tdata.cisco_core_data = ((struct cisco_core_struct *) bfd_zmalloc (sizeof (struct cisco_core_struct))); if (abfd->tdata.cisco_core_data == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } switch ((crashreason) bfd_get_32 (abfd, crashinfo.reason)) { case CRASH_REASON_NOTCRASHED: /* Crash file probably came from write core. */ abfd->tdata.cisco_core_data->sig = 0; break; case CRASH_REASON_CORRUPT: /* The crash context area was corrupt -- proceed with caution. We have no way of passing this information back to the caller. */ abfd->tdata.cisco_core_data->sig = 0; break; case CRASH_REASON_EXCEPTION: /* Crash occured due to CPU exception. */ /* This is 68k-specific; for MIPS we'll need to interpret cpu_vector differently based on the target configuration (since CISCO core files don't seem to have the processor encoded in them). */ switch (bfd_get_32 (abfd, crashinfo.cpu_vector)) { /* bus error */ case 2 : abfd->tdata.cisco_core_data->sig = SIGBUS; break; /* address error */ case 3 : abfd->tdata.cisco_core_data->sig = SIGBUS; break; /* illegal instruction */ case 4 : abfd->tdata.cisco_core_data->sig = SIGILL; break; /* zero divide */ case 5 : abfd->tdata.cisco_core_data->sig = SIGFPE; break; /* chk instruction */ case 6 : abfd->tdata.cisco_core_data->sig = SIGFPE; break; /* trapv instruction */ case 7 : abfd->tdata.cisco_core_data->sig = SIGFPE; break; /* privilege violation */ case 8 : abfd->tdata.cisco_core_data->sig = SIGSEGV; break; /* trace trap */ case 9 : abfd->tdata.cisco_core_data->sig = SIGTRAP; break; /* line 1010 emulator */ case 10: abfd->tdata.cisco_core_data->sig = SIGILL; break; /* line 1111 emulator */ case 11: abfd->tdata.cisco_core_data->sig = SIGILL; break; /* Coprocessor protocol violation. Using a standard MMU or FPU this cannot be triggered by software. Call it a SIGBUS. */ case 13: abfd->tdata.cisco_core_data->sig = SIGBUS; break; /* interrupt */ case 31: abfd->tdata.cisco_core_data->sig = SIGINT; break; /* breakpoint */ case 33: abfd->tdata.cisco_core_data->sig = SIGTRAP; break; /* floating point err */ case 48: abfd->tdata.cisco_core_data->sig = SIGFPE; break; /* floating point err */ case 49: abfd->tdata.cisco_core_data->sig = SIGFPE; break; /* zero divide */ case 50: abfd->tdata.cisco_core_data->sig = SIGFPE; break; /* underflow */ case 51: abfd->tdata.cisco_core_data->sig = SIGFPE; break; /* operand error */ case 52: abfd->tdata.cisco_core_data->sig = SIGFPE; break; /* overflow */ case 53: abfd->tdata.cisco_core_data->sig = SIGFPE; break; /* NAN */ case 54: abfd->tdata.cisco_core_data->sig = SIGFPE; break; default: /* "software generated"*/ abfd->tdata.cisco_core_data->sig = SIGEMT; } break; default: /* Unknown crash reason. */ abfd->tdata.cisco_core_data->sig = 0; break; } abfd->sections = NULL; abfd->section_count = 0; asect = (asection *) bfd_zmalloc (sizeof (asection)); if (asect == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } asect->name = ".reg"; asect->flags = SEC_HAS_CONTENTS; /* This can be bigger than the real size. Set it to the size of the whole core file. */ asect->_raw_size = statbuf.st_size; asect->vma = 0; asect->filepos = bfd_get_32 (abfd, crashinfo.registers) - rambase; asect->next = abfd->sections; abfd->sections = asect; ++abfd->section_count; /* There is only one section containing data from the target system's RAM. We call it .data. */ asect = (asection *) bfd_zmalloc (sizeof (asection)); if (asect == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } asect->name = ".data"; asect->flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS; /* The size of memory is the size of the core file itself. */ asect->_raw_size = statbuf.st_size; asect->vma = rambase; asect->filepos = 0; asect->next = abfd->sections; abfd->sections = asect; ++abfd->section_count; return abfd->xvec; error_return: { sec_ptr nextsect; for (asect = abfd->sections; asect != NULL;) { nextsect = asect->next; free (asect); asect = nextsect; } free (abfd->tdata.cisco_core_data); return NULL; } } char * cisco_core_file_failing_command (abfd) bfd *abfd; { return NULL; } int cisco_core_file_failing_signal (abfd) bfd *abfd; { return abfd->tdata.cisco_core_data->sig; } boolean cisco_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd; bfd *exec_bfd; { return true; } const bfd_target cisco_core_vec = { "trad-core", bfd_target_unknown_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* symbol prefix */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 3, /* minimum alignment power */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ { /* bfd_check_format */ _bfd_dummy_target, /* unknown format */ _bfd_dummy_target, /* object file */ _bfd_dummy_target, /* archive */ cisco_core_file_p /* a core file */ }, { /* bfd_set_format */ bfd_false, bfd_false, bfd_false, bfd_false }, { /* bfd_write_contents */ bfd_false, bfd_false, bfd_false, bfd_false }, BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (cisco), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (_bfd_generic), BFD_JUMP_TABLE_LINK (_bfd_nolink), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 /* backend_data */ }; gdb-4.13/bfd/coff-a29k.c 666 34562 1752 26377 5601614547 13164 0ustar fnfcygnus/* BFD back-end for AMD 29000 COFF binaries. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by David Wood at New York University 7/8/91. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define A29K 1 #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/a29k.h" #include "coff/internal.h" #include "libcoff.h" static long get_symbol_value PARAMS ((asymbol *)); static bfd_reloc_status_type a29k_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); #define INSERT_HWORD(WORD,HWORD) \ (((WORD) & 0xff00ff00) | (((HWORD) & 0xff00) << 8) | ((HWORD)& 0xff)) #define EXTRACT_HWORD(WORD) \ (((WORD) & 0x00ff0000) >> 8) | ((WORD)& 0xff) #define SIGN_EXTEND_HWORD(HWORD) \ ((HWORD) & 0x8000 ? (HWORD)|0xffff0000 : (HWORD)) /* Provided the symbol, returns the value reffed */ static long get_symbol_value (symbol) asymbol *symbol; { long relocation = 0; if (bfd_is_com_section (symbol->section)) { relocation = 0; } else { relocation = symbol->value + symbol->section->output_section->vma + symbol->section->output_offset; } return(relocation); } /* this function is in charge of performing all the 29k relocations */ static bfd_reloc_status_type a29k_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol_in; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { /* the consth relocation comes in two parts, we have to remember the state between calls, in these variables */ static boolean part1_consth_active = false; static unsigned long part1_consth_value; unsigned long insn; unsigned long sym_value; unsigned long unsigned_value; unsigned short r_type; long signed_value; unsigned long addr = reloc_entry->address ; /*+ input_section->vma*/ bfd_byte *hit_data =addr + (bfd_byte *)(data); r_type = reloc_entry->howto->type; if (output_bfd) { /* Partial linking - do nothing */ reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } if (symbol_in != NULL && bfd_is_und_section (symbol_in->section)) { /* Keep the state machine happy in case we're called again */ if (r_type == R_IHIHALF) { part1_consth_active = true; part1_consth_value = 0; } return(bfd_reloc_undefined); } if ((part1_consth_active) && (r_type != R_IHCONST)) { part1_consth_active = false; *error_message = (char *) "Missing IHCONST"; return(bfd_reloc_dangerous); } sym_value = get_symbol_value(symbol_in); switch (r_type) { case R_IREL: insn = bfd_get_32(abfd, hit_data); /* Take the value in the field and sign extend it */ signed_value = EXTRACT_HWORD(insn); signed_value = SIGN_EXTEND_HWORD(signed_value); signed_value <<= 2; signed_value += sym_value + reloc_entry->addend; if (((signed_value + reloc_entry->address) & ~0x3ffff) == 0) { /* Absolute jmp/call */ insn |= (1<<24); /* Make it absolute */ signed_value += reloc_entry->address; /* FIXME: Should we change r_type to R_IABS */ } else { /* Relative jmp/call, so subtract from the value the address of the place we're coming from */ signed_value -= (input_section->output_section->vma + input_section->output_offset); if (signed_value>0x1ffff || signed_value<-0x20000) return(bfd_reloc_overflow); } signed_value >>= 2; insn = INSERT_HWORD(insn, signed_value); bfd_put_32(abfd, insn ,hit_data); break; case R_ILOHALF: insn = bfd_get_32(abfd, hit_data); unsigned_value = EXTRACT_HWORD(insn); unsigned_value += sym_value + reloc_entry->addend; insn = INSERT_HWORD(insn, unsigned_value); bfd_put_32(abfd, insn, hit_data); break; case R_IHIHALF: insn = bfd_get_32(abfd, hit_data); /* consth, part 1 Just get the symbol value that is referenced */ part1_consth_active = true; part1_consth_value = sym_value + reloc_entry->addend; /* Don't modify insn until R_IHCONST */ break; case R_IHCONST: insn = bfd_get_32(abfd, hit_data); /* consth, part 2 Now relocate the reference */ if (part1_consth_active == false) { *error_message = (char *) "Missing IHIHALF"; return(bfd_reloc_dangerous); } /* sym_ptr_ptr = r_symndx, in coff_slurp_reloc_table() */ unsigned_value = 0; /*EXTRACT_HWORD(insn) << 16;*/ unsigned_value += reloc_entry->addend; /* r_symndx */ unsigned_value += part1_consth_value; unsigned_value = unsigned_value >> 16; insn = INSERT_HWORD(insn, unsigned_value); part1_consth_active = false; bfd_put_32(abfd, insn, hit_data); break; case R_BYTE: insn = bfd_get_8(abfd, hit_data); unsigned_value = insn + sym_value + reloc_entry->addend; if (unsigned_value & 0xffffff00) { fprintf(stderr,"Relocation problem : "); fprintf(stderr,"byte value too large in module %s\n", abfd->filename); return(bfd_reloc_overflow); } bfd_put_8(abfd, unsigned_value, hit_data); break; case R_HWORD: insn = bfd_get_16(abfd, hit_data); unsigned_value = insn + sym_value + reloc_entry->addend; if (unsigned_value & 0xffff0000) { fprintf(stderr,"Relocation problem : "); fprintf(stderr,"hword value too large in module %s\n", abfd->filename); return(bfd_reloc_overflow); } bfd_put_16(abfd, insn, hit_data); break; case R_WORD: insn = bfd_get_32(abfd, hit_data); insn += sym_value + reloc_entry->addend; bfd_put_32(abfd, insn, hit_data); break; default: *error_message = "Unrecognized reloc"; return (bfd_reloc_dangerous); } return(bfd_reloc_ok); } /* type rightshift size bitsize pc-relative bitpos absolute complain_on_overflow special_function relocation name partial_inplace src_mask */ /*FIXME: I'm not real sure about this table */ static reloc_howto_type howto_table[] = { {R_ABS, 0, 3, 32, false, 0, complain_overflow_bitfield,a29k_reloc,"ABS", true, 0xffffffff,0xffffffff, false}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}, {10}, {11}, {12}, {13}, {14}, {15}, {16}, {17}, {18}, {19}, {20}, {21}, {22}, {23}, {R_IREL, 0, 3, 32, true, 0, complain_overflow_signed,a29k_reloc,"IREL", true, 0xffffffff,0xffffffff, false}, {R_IABS, 0, 3, 32, false, 0, complain_overflow_bitfield, a29k_reloc,"IABS", true, 0xffffffff,0xffffffff, false}, {R_ILOHALF, 0, 3, 16, true, 0, complain_overflow_signed, a29k_reloc,"ILOHALF", true, 0x0000ffff,0x0000ffff, false}, {R_IHIHALF, 0, 3, 16, true, 16, complain_overflow_signed, a29k_reloc,"IHIHALF", true, 0xffff0000,0xffff0000, false}, {R_IHCONST, 0, 3, 16, true, 0, complain_overflow_signed, a29k_reloc,"IHCONST", true, 0xffff0000,0xffff0000, false}, {R_BYTE, 0, 0, 8, false, 0, complain_overflow_bitfield, a29k_reloc,"BYTE", true, 0x000000ff,0x000000ff, false}, {R_HWORD, 0, 1, 16, false, 0, complain_overflow_bitfield, a29k_reloc,"HWORD", true, 0x0000ffff,0x0000ffff, false}, {R_WORD, 0, 2, 32, false, 0, complain_overflow_bitfield, a29k_reloc,"WORD", true, 0xffffffff,0xffffffff, false}, }; #define BADMAG(x) A29KBADMAG(x) #define RELOC_PROCESSING(relent, reloc, symbols, abfd, section) \ reloc_processing(relent, reloc, symbols, abfd, section) static void reloc_processing (relent,reloc, symbols, abfd, section) arelent *relent; struct internal_reloc *reloc; asymbol **symbols; bfd *abfd; asection *section; { static bfd_vma ihihalf_vaddr = (bfd_vma) -1; relent->address = reloc->r_vaddr; relent->howto = howto_table + reloc->r_type; if (reloc->r_type == R_IHCONST) { /* The address of an R_IHCONST should always be the address of the immediately preceding R_IHIHALF. relocs generated by gas are correct, but relocs generated by High C are different (I can't figure out what the address means for High C). We can handle both gas and High C by ignoring the address here, and simply reusing the address saved for R_IHIHALF. */ if (ihihalf_vaddr == (bfd_vma) -1) abort (); relent->address = ihihalf_vaddr; ihihalf_vaddr = (bfd_vma) -1; relent->addend = reloc->r_symndx; relent->sym_ptr_ptr= bfd_abs_section_ptr->symbol_ptr_ptr; } else { asymbol *ptr; relent->sym_ptr_ptr = symbols + obj_convert(abfd)[reloc->r_symndx]; ptr = *(relent->sym_ptr_ptr); if (ptr && bfd_asymbol_bfd(ptr) == abfd && ((ptr->flags & BSF_OLD_COMMON)== 0)) { relent->addend = 0; } else { relent->addend = 0; } relent->address-= section->vma; if (reloc->r_type == R_IHIHALF) ihihalf_vaddr = relent->address; else if (ihihalf_vaddr != (bfd_vma) -1) abort (); } } #include "coffcode.h" const bfd_target a29kcoff_big_vec = { "coff-a29k-big", /* name */ bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC /* section flags */ | SEC_LOAD | SEC_RELOC | SEC_READONLY ), '_', /* leading underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 2, /* minimum section alignment */ /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, { _bfd_dummy_target, coff_object_p, bfd_generic_archive_p, _bfd_dummy_target }, { bfd_false, coff_mkobject, _bfd_generic_mkarchive, bfd_false }, { bfd_false, coff_write_object_contents, _bfd_write_archive_contents, bfd_false }, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE }; gdb-4.13/bfd/coff-alpha.c 666 34562 1752 170572 5606461407 13520 0ustar fnfcygnus/* BFD back-end for ALPHA Extended-Coff files. Copyright 1993, 1994 Free Software Foundation, Inc. Modified from coff-mips.c by Steve Chamberlain and Ian Lance Taylor . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #include "coff/internal.h" #include "coff/sym.h" #include "coff/symconst.h" #include "coff/ecoff.h" #include "coff/alpha.h" #include "libcoff.h" #include "libecoff.h" /* Prototypes for static functions. */ static const bfd_target *alpha_ecoff_object_p PARAMS ((bfd *)); static boolean alpha_ecoff_bad_format_hook PARAMS ((bfd *abfd, PTR filehdr)); static PTR alpha_ecoff_mkobject_hook PARAMS ((bfd *, PTR filehdr, PTR aouthdr)); static void alpha_ecoff_swap_reloc_in PARAMS ((bfd *, PTR, struct internal_reloc *)); static void alpha_ecoff_swap_reloc_out PARAMS ((bfd *, const struct internal_reloc *, PTR)); static void alpha_adjust_reloc_in PARAMS ((bfd *, const struct internal_reloc *, arelent *)); static void alpha_adjust_reloc_out PARAMS ((bfd *, const arelent *, struct internal_reloc *)); static bfd_byte *alpha_ecoff_get_relocated_section_contents PARAMS ((bfd *abfd, struct bfd_link_info *, struct bfd_link_order *, bfd_byte *data, boolean relocateable, asymbol **symbols)); static bfd_vma alpha_convert_external_reloc PARAMS ((bfd *, struct bfd_link_info *, bfd *, struct external_reloc *, struct ecoff_link_hash_entry *)); static boolean alpha_relocate_section PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *, PTR)); /* ECOFF has COFF sections, but the debugging information is stored in a completely different format. ECOFF targets use some of the swapping routines from coffswap.h, and some of the generic COFF routines in coffgen.c, but, unlike the real COFF targets, do not use coffcode.h itself. Get the generic COFF swapping routines, except for the reloc, symbol, and lineno ones. Give them ecoff names. Define some accessor macros for the large sizes used for Alpha ECOFF. */ #define GET_FILEHDR_SYMPTR bfd_h_get_64 #define PUT_FILEHDR_SYMPTR bfd_h_put_64 #define GET_AOUTHDR_TSIZE bfd_h_get_64 #define PUT_AOUTHDR_TSIZE bfd_h_put_64 #define GET_AOUTHDR_DSIZE bfd_h_get_64 #define PUT_AOUTHDR_DSIZE bfd_h_put_64 #define GET_AOUTHDR_BSIZE bfd_h_get_64 #define PUT_AOUTHDR_BSIZE bfd_h_put_64 #define GET_AOUTHDR_ENTRY bfd_h_get_64 #define PUT_AOUTHDR_ENTRY bfd_h_put_64 #define GET_AOUTHDR_TEXT_START bfd_h_get_64 #define PUT_AOUTHDR_TEXT_START bfd_h_put_64 #define GET_AOUTHDR_DATA_START bfd_h_get_64 #define PUT_AOUTHDR_DATA_START bfd_h_put_64 #define GET_SCNHDR_PADDR bfd_h_get_64 #define PUT_SCNHDR_PADDR bfd_h_put_64 #define GET_SCNHDR_VADDR bfd_h_get_64 #define PUT_SCNHDR_VADDR bfd_h_put_64 #define GET_SCNHDR_SIZE bfd_h_get_64 #define PUT_SCNHDR_SIZE bfd_h_put_64 #define GET_SCNHDR_SCNPTR bfd_h_get_64 #define PUT_SCNHDR_SCNPTR bfd_h_put_64 #define GET_SCNHDR_RELPTR bfd_h_get_64 #define PUT_SCNHDR_RELPTR bfd_h_put_64 #define GET_SCNHDR_LNNOPTR bfd_h_get_64 #define PUT_SCNHDR_LNNOPTR bfd_h_put_64 #define ALPHAECOFF #define NO_COFF_RELOCS #define NO_COFF_SYMBOLS #define NO_COFF_LINENOS #define coff_swap_filehdr_in alpha_ecoff_swap_filehdr_in #define coff_swap_filehdr_out alpha_ecoff_swap_filehdr_out #define coff_swap_aouthdr_in alpha_ecoff_swap_aouthdr_in #define coff_swap_aouthdr_out alpha_ecoff_swap_aouthdr_out #define coff_swap_scnhdr_in alpha_ecoff_swap_scnhdr_in #define coff_swap_scnhdr_out alpha_ecoff_swap_scnhdr_out #include "coffswap.h" /* Get the ECOFF swapping routines. */ #define ECOFF_64 #include "ecoffswap.h" /* How to process the various reloc types. */ static bfd_reloc_status_type reloc_nil PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); static bfd_reloc_status_type reloc_nil (abfd, reloc, sym, data, sec, output_bfd, error_message) bfd *abfd; arelent *reloc; asymbol *sym; PTR data; asection *sec; bfd *output_bfd; char **error_message; { return bfd_reloc_ok; } /* In case we're on a 32-bit machine, construct a 64-bit "-1" value from smaller values. Start with zero, widen, *then* decrement. */ #define MINUS_ONE (((bfd_vma)0) - 1) static reloc_howto_type alpha_howto_table[] = { /* Reloc type 0 is ignored by itself. However, it appears after a GPDISP reloc to identify the location where the low order 16 bits of the gp register are loaded. */ HOWTO (ALPHA_R_IGNORE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 8, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ reloc_nil, /* special_function */ "IGNORE", /* name */ true, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ true), /* pcrel_offset */ /* A 32 bit reference to a symbol. */ HOWTO (ALPHA_R_REFLONG, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "REFLONG", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* A 64 bit reference to a symbol. */ HOWTO (ALPHA_R_REFQUAD, /* type */ 0, /* rightshift */ 4, /* size (0 = byte, 1 = short, 2 = long) */ 64, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "REFQUAD", /* name */ true, /* partial_inplace */ MINUS_ONE, /* src_mask */ MINUS_ONE, /* dst_mask */ false), /* pcrel_offset */ /* A 32 bit GP relative offset. This is just like REFLONG except that when the value is used the value of the gp register will be added in. */ HOWTO (ALPHA_R_GPREL32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "GPREL32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Used for an instruction that refers to memory off the GP register. The offset is 16 bits of the 32 bit instruction. This reloc always seems to be against the .lita section. */ HOWTO (ALPHA_R_LITERAL, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "LITERAL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* This reloc only appears immediately following a LITERAL reloc. It identifies a use of the literal. It seems that the linker can use this to eliminate a portion of the .lita section. The symbol index is special: 1 means the literal address is in the base register of a memory format instruction; 2 means the literal address is in the byte offset register of a byte-manipulation instruction; 3 means the literal address is in the target register of a jsr instruction. This does not actually do any relocation. */ HOWTO (ALPHA_R_LITUSE, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ reloc_nil, /* special_function */ "LITUSE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Load the gp register. This is always used for a ldah instruction which loads the upper 16 bits of the gp register. The next reloc will be an IGNORE reloc which identifies the location of the lda instruction which loads the lower 16 bits. The symbol index of the GPDISP instruction appears to actually be the number of bytes between the ldah and lda instructions. This gives two different ways to determine where the lda instruction is; I don't know why both are used. The value to use for the relocation is the difference between the GP value and the current location; the load will always be done against a register holding the current address. */ HOWTO (ALPHA_R_GPDISP, /* type */ 16, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ reloc_nil, /* special_function */ "GPDISP", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ true), /* pcrel_offset */ /* A 21 bit branch. The native assembler generates these for branches within the text segment, and also fills in the PC relative offset in the instruction. */ HOWTO (ALPHA_R_BRADDR, /* type */ 2, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 21, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "BRADDR", /* name */ true, /* partial_inplace */ 0x1fffff, /* src_mask */ 0x1fffff, /* dst_mask */ false), /* pcrel_offset */ /* A hint for a jump to a register. */ HOWTO (ALPHA_R_HINT, /* type */ 2, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 14, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "HINT", /* name */ true, /* partial_inplace */ 0x3fff, /* src_mask */ 0x3fff, /* dst_mask */ false), /* pcrel_offset */ /* 16 bit PC relative offset. */ HOWTO (ALPHA_R_SREL16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "SREL16", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* 32 bit PC relative offset. */ HOWTO (ALPHA_R_SREL32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "SREL32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* A 64 bit PC relative offset. */ HOWTO (ALPHA_R_SREL64, /* type */ 0, /* rightshift */ 4, /* size (0 = byte, 1 = short, 2 = long) */ 64, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "SREL64", /* name */ true, /* partial_inplace */ MINUS_ONE, /* src_mask */ MINUS_ONE, /* dst_mask */ false), /* pcrel_offset */ /* Push a value on the reloc evaluation stack. */ HOWTO (ALPHA_R_OP_PUSH, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "OP_PUSH", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Store the value from the stack at the given address. Store it in a bitfield of size r_size starting at bit position r_offset. */ HOWTO (ALPHA_R_OP_STORE, /* type */ 0, /* rightshift */ 4, /* size (0 = byte, 1 = short, 2 = long) */ 64, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "OP_STORE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ MINUS_ONE, /* dst_mask */ false), /* pcrel_offset */ /* Subtract the reloc address from the value on the top of the relocation stack. */ HOWTO (ALPHA_R_OP_PSUB, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "OP_PSUB", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Shift the value on the top of the relocation stack right by the given value. */ HOWTO (ALPHA_R_OP_PRSHIFT, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "OP_PRSHIFT", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Adjust the GP value for a new range in the object file. */ HOWTO (ALPHA_R_GPVALUE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "GPVALUE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false) /* pcrel_offset */ }; /* Recognize an Alpha ECOFF file. */ static const bfd_target * alpha_ecoff_object_p (abfd) bfd *abfd; { static const bfd_target *ret; ret = coff_object_p (abfd); if (ret != NULL) { asection *sec; /* Alpha ECOFF has a .pdata section. The lnnoptr field of the .pdata section is the number of entries it contains. Each entry takes up 8 bytes. The number of entries is required since the section is aligned to a 16 byte boundary. When we link .pdata sections together, we do not want to include the alignment bytes. We handle this on input by faking the size of the .pdata section to remove the unwanted alignment bytes. On output we will set the lnnoptr field and force the alignment. */ sec = bfd_get_section_by_name (abfd, _PDATA); if (sec != (asection *) NULL) { bfd_size_type size; size = sec->line_filepos * 8; BFD_ASSERT (size == bfd_section_size (abfd, sec) || size + 8 == bfd_section_size (abfd, sec)); if (! bfd_set_section_size (abfd, sec, size)) return NULL; } } return ret; } /* See whether the magic number matches. */ static boolean alpha_ecoff_bad_format_hook (abfd, filehdr) bfd *abfd; PTR filehdr; { struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr; if (ALPHA_ECOFF_BADMAG (*internal_f)) return false; return true; } /* This is a hook called by coff_real_object_p to create any backend specific information. */ static PTR alpha_ecoff_mkobject_hook (abfd, filehdr, aouthdr) bfd *abfd; PTR filehdr; PTR aouthdr; { PTR ecoff; ecoff = _bfd_ecoff_mkobject_hook (abfd, filehdr, aouthdr); if (ecoff != NULL) { struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr; /* Set additional BFD flags according to the object type from the machine specific file header flags. */ switch (internal_f->f_flags & F_ALPHA_OBJECT_TYPE_MASK) { case F_ALPHA_SHARABLE: abfd->flags |= DYNAMIC; break; case F_ALPHA_CALL_SHARED: /* Always executable if using shared libraries as the run time loader might resolve undefined references. */ abfd->flags |= (DYNAMIC | EXEC_P); break; } } return ecoff; } /* Reloc handling. */ /* Swap a reloc in. */ static void alpha_ecoff_swap_reloc_in (abfd, ext_ptr, intern) bfd *abfd; PTR ext_ptr; struct internal_reloc *intern; { const RELOC *ext = (RELOC *) ext_ptr; intern->r_vaddr = bfd_h_get_64 (abfd, (bfd_byte *) ext->r_vaddr); intern->r_symndx = bfd_h_get_32 (abfd, (bfd_byte *) ext->r_symndx); BFD_ASSERT (abfd->xvec->header_byteorder_big_p == false); intern->r_type = ((ext->r_bits[0] & RELOC_BITS0_TYPE_LITTLE) >> RELOC_BITS0_TYPE_SH_LITTLE); intern->r_extern = (ext->r_bits[1] & RELOC_BITS1_EXTERN_LITTLE) != 0; intern->r_offset = ((ext->r_bits[1] & RELOC_BITS1_OFFSET_LITTLE) >> RELOC_BITS1_OFFSET_SH_LITTLE); /* Ignored the reserved bits. */ intern->r_size = ((ext->r_bits[3] & RELOC_BITS3_SIZE_LITTLE) >> RELOC_BITS3_SIZE_SH_LITTLE); if (intern->r_type == ALPHA_R_LITUSE || intern->r_type == ALPHA_R_GPDISP) { /* Handle the LITUSE and GPDISP relocs specially. Its symndx value is not actually a symbol index, but is instead a special code. We put the code in the r_size field, and clobber the symndx. */ if (intern->r_size != 0) abort (); intern->r_size = intern->r_symndx; intern->r_symndx = RELOC_SECTION_NONE; } else if (intern->r_type == ALPHA_R_IGNORE) { /* The IGNORE reloc generally follows a GPDISP reloc, and is against the .lita section. The section is irrelevant. */ if (! intern->r_extern && (intern->r_symndx == RELOC_SECTION_NONE || intern->r_symndx == RELOC_SECTION_ABS)) abort (); if (! intern->r_extern && intern->r_symndx == RELOC_SECTION_LITA) intern->r_symndx = RELOC_SECTION_NONE; } } /* Swap a reloc out. */ static void alpha_ecoff_swap_reloc_out (abfd, intern, dst) bfd *abfd; const struct internal_reloc *intern; PTR dst; { RELOC *ext = (RELOC *) dst; long symndx; unsigned char size; /* Undo the hackery done in swap_reloc_in. */ if (intern->r_type == ALPHA_R_LITUSE || intern->r_type == ALPHA_R_GPDISP) { symndx = intern->r_size; size = 0; } else if (intern->r_type == ALPHA_R_IGNORE && ! intern->r_extern && intern->r_symndx == RELOC_SECTION_NONE) { symndx = RELOC_SECTION_LITA; size = intern->r_size; } else { symndx = intern->r_symndx; size = intern->r_size; } BFD_ASSERT (intern->r_extern || (intern->r_symndx >= 0 && intern->r_symndx <= 14)); bfd_h_put_64 (abfd, intern->r_vaddr, (bfd_byte *) ext->r_vaddr); bfd_h_put_32 (abfd, symndx, (bfd_byte *) ext->r_symndx); BFD_ASSERT (abfd->xvec->header_byteorder_big_p == false); ext->r_bits[0] = ((intern->r_type << RELOC_BITS0_TYPE_SH_LITTLE) & RELOC_BITS0_TYPE_LITTLE); ext->r_bits[1] = ((intern->r_extern ? RELOC_BITS1_EXTERN_LITTLE : 0) | ((intern->r_offset << RELOC_BITS1_OFFSET_SH_LITTLE) & RELOC_BITS1_OFFSET_LITTLE)); ext->r_bits[2] = 0; ext->r_bits[3] = ((size << RELOC_BITS3_SIZE_SH_LITTLE) & RELOC_BITS3_SIZE_LITTLE); } /* Finish canonicalizing a reloc. Part of this is generic to all ECOFF targets, and that part is in ecoff.c. The rest is done in this backend routine. It must fill in the howto field. */ static void alpha_adjust_reloc_in (abfd, intern, rptr) bfd *abfd; const struct internal_reloc *intern; arelent *rptr; { if (intern->r_type > ALPHA_R_GPVALUE) abort (); switch (intern->r_type) { case ALPHA_R_BRADDR: case ALPHA_R_SREL16: case ALPHA_R_SREL32: case ALPHA_R_SREL64: /* The PC relative relocs do not seem to use the section VMA as a negative addend. */ rptr->addend = 0; break; case ALPHA_R_GPREL32: case ALPHA_R_LITERAL: /* Copy the gp value for this object file into the addend, to ensure that we are not confused by the linker. */ if (! intern->r_extern) rptr->addend += ecoff_data (abfd)->gp; break; case ALPHA_R_LITUSE: case ALPHA_R_GPDISP: /* The LITUSE and GPDISP relocs do not use a symbol, or an addend, but they do use a special code. Put this code in the addend field. */ rptr->addend = intern->r_size; break; case ALPHA_R_OP_STORE: /* The STORE reloc needs the size and offset fields. We store them in the addend. */ BFD_ASSERT (intern->r_offset <= 256 && intern->r_size <= 256); rptr->addend = (intern->r_offset << 8) + intern->r_size; break; case ALPHA_R_OP_PUSH: case ALPHA_R_OP_PSUB: case ALPHA_R_OP_PRSHIFT: /* The PUSH, PSUB and PRSHIFT relocs do not actually use an address. I believe that the address supplied is really an addend. */ rptr->addend = intern->r_vaddr; break; case ALPHA_R_GPVALUE: /* Set the addend field to the new GP value. */ rptr->addend = intern->r_symndx + ecoff_data (abfd)->gp; break; case ALPHA_R_IGNORE: /* If the type is ALPHA_R_IGNORE, make sure this is a reference to the absolute section so that the reloc is ignored. For some reason the address of this reloc type is not adjusted by the section vma. We record the gp value for this object file here, for convenience when doing the GPDISP relocation. */ rptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; rptr->address = intern->r_vaddr; rptr->addend = ecoff_data (abfd)->gp; break; default: break; } rptr->howto = &alpha_howto_table[intern->r_type]; } /* When writing out a reloc we need to pull some values back out of the addend field into the reloc. This is roughly the reverse of alpha_adjust_reloc_in, except that there are several changes we do not need to undo. */ static void alpha_adjust_reloc_out (abfd, rel, intern) bfd *abfd; const arelent *rel; struct internal_reloc *intern; { switch (intern->r_type) { case ALPHA_R_LITUSE: case ALPHA_R_GPDISP: intern->r_size = rel->addend; break; case ALPHA_R_OP_STORE: intern->r_size = rel->addend & 0xff; intern->r_offset = (rel->addend >> 8) & 0xff; break; case ALPHA_R_OP_PUSH: case ALPHA_R_OP_PSUB: case ALPHA_R_OP_PRSHIFT: intern->r_vaddr = rel->addend; break; case ALPHA_R_IGNORE: intern->r_vaddr = rel->address; if (intern->r_symndx == RELOC_SECTION_ABS) intern->r_symndx = RELOC_SECTION_NONE; break; default: break; } } /* The size of the stack for the relocation evaluator. */ #define RELOC_STACKSIZE (10) /* Alpha ECOFF relocs have a built in expression evaluator as well as other interdependencies. Rather than use a bunch of special functions and global variables, we use a single routine to do all the relocation for a section. I haven't yet worked out how the assembler is going to handle this. */ static bfd_byte * alpha_ecoff_get_relocated_section_contents (abfd, link_info, link_order, data, relocateable, symbols) bfd *abfd; struct bfd_link_info *link_info; struct bfd_link_order *link_order; bfd_byte *data; boolean relocateable; asymbol **symbols; { bfd *input_bfd = link_order->u.indirect.section->owner; asection *input_section = link_order->u.indirect.section; long reloc_size = bfd_get_reloc_upper_bound (input_bfd, input_section); arelent **reloc_vector = NULL; long reloc_count; bfd *output_bfd = relocateable ? abfd : (bfd *) NULL; bfd_vma gp; boolean gp_undefined; bfd_vma stack[RELOC_STACKSIZE]; int tos = 0; if (reloc_size < 0) goto error_return; reloc_vector = (arelent **) malloc (reloc_size); if (reloc_vector == NULL && reloc_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (! bfd_get_section_contents (input_bfd, input_section, data, (file_ptr) 0, input_section->_raw_size)) goto error_return; /* The section size is not going to change. */ input_section->_cooked_size = input_section->_raw_size; input_section->reloc_done = true; reloc_count = bfd_canonicalize_reloc (input_bfd, input_section, reloc_vector, symbols); if (reloc_count < 0) goto error_return; if (reloc_count == 0) goto successful_return; /* Get the GP value for the output BFD. */ gp_undefined = false; if (ecoff_data (abfd)->gp == 0) { if (relocateable != false) { asection *sec; bfd_vma lo; /* Make up a value. */ lo = (bfd_vma) -1; for (sec = abfd->sections; sec != NULL; sec = sec->next) { if (sec->vma < lo && (strcmp (sec->name, ".sbss") == 0 || strcmp (sec->name, ".sdata") == 0 || strcmp (sec->name, ".lit4") == 0 || strcmp (sec->name, ".lit8") == 0 || strcmp (sec->name, ".lita") == 0)) lo = sec->vma; } ecoff_data (abfd)->gp = lo + 0x8000; } else { struct bfd_link_hash_entry *h; h = bfd_link_hash_lookup (link_info->hash, "_gp", false, false, true); if (h == (struct bfd_link_hash_entry *) NULL || h->type != bfd_link_hash_defined) gp_undefined = true; else ecoff_data (abfd)->gp = (h->u.def.value + h->u.def.section->output_section->vma + h->u.def.section->output_offset); } } gp = ecoff_data (abfd)->gp; for (; *reloc_vector != (arelent *) NULL; reloc_vector++) { arelent *rel; bfd_reloc_status_type r; char *err; rel = *reloc_vector; r = bfd_reloc_ok; switch (rel->howto->type) { case ALPHA_R_IGNORE: rel->address += input_section->output_offset; break; case ALPHA_R_REFLONG: case ALPHA_R_REFQUAD: case ALPHA_R_BRADDR: case ALPHA_R_HINT: case ALPHA_R_SREL16: case ALPHA_R_SREL32: case ALPHA_R_SREL64: if (relocateable && ((*rel->sym_ptr_ptr)->flags & BSF_SECTION_SYM) == 0) { rel->address += input_section->output_offset; break; } r = bfd_perform_relocation (input_bfd, rel, data, input_section, output_bfd, &err); break; case ALPHA_R_GPREL32: /* This relocation is used in a switch table. It is a 32 bit offset from the current GP value. We must adjust it by the different between the original GP value and the current GP value. The original GP value is stored in the addend. We adjust the addend and let bfd_perform_relocation finish the job. */ rel->addend -= gp; r = bfd_perform_relocation (input_bfd, rel, data, input_section, output_bfd, &err); if (r == bfd_reloc_ok && gp_undefined) { r = bfd_reloc_dangerous; err = (char *) "GP relative relocation used when GP not defined"; } break; case ALPHA_R_LITERAL: /* This is a reference to a literal value, generally (always?) in the .lita section. This is a 16 bit GP relative relocation. Sometimes the subsequent reloc is a LITUSE reloc, which indicates how this reloc is used. This sometimes permits rewriting the two instructions referred to by the LITERAL and the LITUSE into different instructions which do not refer to .lita. This can save a memory reference, and permits removing a value from .lita thus saving GP relative space. We do not these optimizations. To do them we would need to arrange to link the .lita section first, so that by the time we got here we would know the final values to use. This would not be particularly difficult, but it is not currently implemented. */ { unsigned long insn; /* I believe that the LITERAL reloc will only apply to a ldq or ldl instruction, so check my assumption. */ insn = bfd_get_32 (input_bfd, data + rel->address); BFD_ASSERT (((insn >> 26) & 0x3f) == 0x29 || ((insn >> 26) & 0x3f) == 0x28); rel->addend -= gp; r = bfd_perform_relocation (input_bfd, rel, data, input_section, output_bfd, &err); if (r == bfd_reloc_ok && gp_undefined) { r = bfd_reloc_dangerous; err = (char *) "GP relative relocation used when GP not defined"; } } break; case ALPHA_R_LITUSE: /* See ALPHA_R_LITERAL above for the uses of this reloc. It does not cause anything to happen, itself. */ rel->address += input_section->output_offset; break; case ALPHA_R_GPDISP: /* This marks the ldah of an ldah/lda pair which loads the gp register with the difference of the gp value and the current location. The second of the pair is r_size bytes ahead, and is marked with an ALPHA_R_IGNORE reloc. */ { unsigned long insn1, insn2; bfd_vma addend; BFD_ASSERT (reloc_vector[1] != NULL && reloc_vector[1]->howto->type == ALPHA_R_IGNORE && (rel->address + rel->addend == reloc_vector[1]->address)); /* Get the two instructions. */ insn1 = bfd_get_32 (input_bfd, data + rel->address); insn2 = bfd_get_32 (input_bfd, data + rel->address + rel->addend); BFD_ASSERT (((insn1 >> 26) & 0x3f) == 0x09); /* ldah */ BFD_ASSERT (((insn2 >> 26) & 0x3f) == 0x08); /* lda */ /* Get the existing addend. We must account for the sign extension done by lda and ldah. */ addend = ((insn1 & 0xffff) << 16) + (insn2 & 0xffff); if (insn1 & 0x8000) { addend -= 0x80000000; addend -= 0x80000000; } if (insn2 & 0x8000) addend -= 0x10000; /* The existing addend includes the different between the gp of the input BFD and the address in the input BFD. Subtract this out. */ addend -= (reloc_vector[1]->addend - (input_section->vma + rel->address)); /* Now add in the final gp value, and subtract out the final address. */ addend += (gp - (input_section->output_section->vma + input_section->output_offset + rel->address)); /* Change the instructions, accounting for the sign extension, and write them out. */ if (addend & 0x8000) addend += 0x10000; insn1 = (insn1 & 0xffff0000) | ((addend >> 16) & 0xffff); insn2 = (insn2 & 0xffff0000) | (addend & 0xffff); bfd_put_32 (input_bfd, (bfd_vma) insn1, data + rel->address); bfd_put_32 (input_bfd, (bfd_vma) insn2, data + rel->address + rel->addend); rel->address += input_section->output_offset; } break; case ALPHA_R_OP_PUSH: /* Push a value on the reloc evaluation stack. */ { asymbol *symbol; bfd_vma relocation; if (relocateable) { rel->address += input_section->output_offset; break; } /* Figure out the relocation of this symbol. */ symbol = *rel->sym_ptr_ptr; if (bfd_is_und_section (symbol->section)) r = bfd_reloc_undefined; if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; relocation += rel->addend; if (tos >= RELOC_STACKSIZE) abort (); stack[tos++] = relocation; } break; case ALPHA_R_OP_STORE: /* Store a value from the reloc stack into a bitfield. */ { bfd_vma val; int offset, size; if (relocateable) { rel->address += input_section->output_offset; break; } if (tos == 0) abort (); /* The offset and size for this reloc are encoded into the addend field by alpha_adjust_reloc_in. */ offset = (rel->addend >> 8) & 0xff; size = rel->addend & 0xff; val = bfd_get_64 (abfd, data + rel->address); val &=~ (((1 << size) - 1) << offset); val |= (stack[--tos] & ((1 << size) - 1)) << offset; bfd_put_64 (abfd, val, data + rel->address); } break; case ALPHA_R_OP_PSUB: /* Subtract a value from the top of the stack. */ { asymbol *symbol; bfd_vma relocation; if (relocateable) { rel->address += input_section->output_offset; break; } /* Figure out the relocation of this symbol. */ symbol = *rel->sym_ptr_ptr; if (bfd_is_und_section (symbol->section)) r = bfd_reloc_undefined; if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; relocation += rel->addend; if (tos == 0) abort (); stack[tos - 1] -= relocation; } break; case ALPHA_R_OP_PRSHIFT: /* Shift the value on the top of the stack. */ { asymbol *symbol; bfd_vma relocation; if (relocateable) { rel->address += input_section->output_offset; break; } /* Figure out the relocation of this symbol. */ symbol = *rel->sym_ptr_ptr; if (bfd_is_und_section (symbol->section)) r = bfd_reloc_undefined; if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; relocation += rel->addend; if (tos == 0) abort (); stack[tos - 1] >>= relocation; } break; case ALPHA_R_GPVALUE: /* I really don't know if this does the right thing. */ gp = rel->addend; gp_undefined = false; break; default: abort (); } if (relocateable) { asection *os = input_section->output_section; /* A partial link, so keep the relocs. */ os->orelocation[os->reloc_count] = rel; os->reloc_count++; } if (r != bfd_reloc_ok) { switch (r) { case bfd_reloc_undefined: if (! ((*link_info->callbacks->undefined_symbol) (link_info, bfd_asymbol_name (*rel->sym_ptr_ptr), input_bfd, input_section, rel->address))) goto error_return; break; case bfd_reloc_dangerous: if (! ((*link_info->callbacks->reloc_dangerous) (link_info, err, input_bfd, input_section, rel->address))) goto error_return; break; case bfd_reloc_overflow: if (! ((*link_info->callbacks->reloc_overflow) (link_info, bfd_asymbol_name (*rel->sym_ptr_ptr), rel->howto->name, rel->addend, input_bfd, input_section, rel->address))) goto error_return; break; case bfd_reloc_outofrange: default: abort (); break; } } } if (tos != 0) abort (); successful_return: if (reloc_vector != NULL) free (reloc_vector); return data; error_return: if (reloc_vector != NULL) free (reloc_vector); return NULL; } /* Get the howto structure for a generic reloc type. */ static CONST struct reloc_howto_struct * alpha_bfd_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { int alpha_type; switch (code) { case BFD_RELOC_32: alpha_type = ALPHA_R_REFLONG; break; case BFD_RELOC_64: case BFD_RELOC_CTOR: alpha_type = ALPHA_R_REFQUAD; break; case BFD_RELOC_GPREL32: alpha_type = ALPHA_R_GPREL32; break; case BFD_RELOC_ALPHA_LITERAL: alpha_type = ALPHA_R_LITERAL; break; case BFD_RELOC_ALPHA_LITUSE: alpha_type = ALPHA_R_LITUSE; break; case BFD_RELOC_ALPHA_GPDISP_HI16: alpha_type = ALPHA_R_GPDISP; break; case BFD_RELOC_ALPHA_GPDISP_LO16: alpha_type = ALPHA_R_IGNORE; break; case BFD_RELOC_23_PCREL_S2: alpha_type = ALPHA_R_BRADDR; break; case BFD_RELOC_ALPHA_HINT: alpha_type = ALPHA_R_HINT; break; case BFD_RELOC_16_PCREL: alpha_type = ALPHA_R_SREL16; break; case BFD_RELOC_32_PCREL: alpha_type = ALPHA_R_SREL32; break; case BFD_RELOC_64_PCREL: alpha_type = ALPHA_R_SREL64; break; #if 0 case ???: alpha_type = ALPHA_R_OP_PUSH; break; case ???: alpha_type = ALPHA_R_OP_STORE; break; case ???: alpha_type = ALPHA_R_OP_PSUB; break; case ???: alpha_type = ALPHA_R_OP_PRSHIFT; break; case ???: alpha_type = ALPHA_R_GPVALUE; break; #endif default: return (CONST struct reloc_howto_struct *) NULL; } return &alpha_howto_table[alpha_type]; } /* A helper routine for alpha_relocate_section which converts an external reloc when generating relocateable output. Returns the relocation amount. */ static bfd_vma alpha_convert_external_reloc (output_bfd, info, input_bfd, ext_rel, h) bfd *output_bfd; struct bfd_link_info *info; bfd *input_bfd; struct external_reloc *ext_rel; struct ecoff_link_hash_entry *h; { unsigned long r_symndx; bfd_vma relocation; BFD_ASSERT (info->relocateable); if (h->root.type == bfd_link_hash_defined) { asection *hsec; const char *name; /* This symbol is defined in the output. Convert the reloc from being against the symbol to being against the section. */ /* Clear the r_extern bit. */ ext_rel->r_bits[1] &=~ RELOC_BITS1_EXTERN_LITTLE; /* Compute a new r_symndx value. */ hsec = h->root.u.def.section; name = bfd_get_section_name (output_bfd, hsec->output_section); r_symndx = -1; switch (name[1]) { case 'A': if (strcmp (name, "*ABS*") == 0) r_symndx = RELOC_SECTION_ABS; break; case 'b': if (strcmp (name, ".bss") == 0) r_symndx = RELOC_SECTION_BSS; break; case 'd': if (strcmp (name, ".data") == 0) r_symndx = RELOC_SECTION_DATA; break; case 'f': if (strcmp (name, ".fini") == 0) r_symndx = RELOC_SECTION_FINI; break; case 'i': if (strcmp (name, ".init") == 0) r_symndx = RELOC_SECTION_INIT; break; case 'l': if (strcmp (name, ".lita") == 0) r_symndx = RELOC_SECTION_LITA; else if (strcmp (name, ".lit8") == 0) r_symndx = RELOC_SECTION_LIT8; else if (strcmp (name, ".lit4") == 0) r_symndx = RELOC_SECTION_LIT4; break; case 'p': if (strcmp (name, ".pdata") == 0) r_symndx = RELOC_SECTION_PDATA; break; case 'r': if (strcmp (name, ".rdata") == 0) r_symndx = RELOC_SECTION_RDATA; break; case 's': if (strcmp (name, ".sdata") == 0) r_symndx = RELOC_SECTION_SDATA; else if (strcmp (name, ".sbss") == 0) r_symndx = RELOC_SECTION_SBSS; break; case 't': if (strcmp (name, ".text") == 0) r_symndx = RELOC_SECTION_TEXT; break; case 'x': if (strcmp (name, ".xdata") == 0) r_symndx = RELOC_SECTION_XDATA; break; } if (r_symndx == -1) abort (); /* Add the section VMA and the symbol value. */ relocation = (h->root.u.def.value + hsec->output_section->vma + hsec->output_offset); } else { /* Change the symndx value to the right one for the output BFD. */ r_symndx = h->indx; if (r_symndx == -1) { /* Caller must give an error. */ r_symndx = 0; } relocation = 0; } /* Write out the new r_symndx value. */ bfd_h_put_32 (input_bfd, (bfd_vma) r_symndx, (bfd_byte *) ext_rel->r_symndx); return relocation; } /* Relocate a section while linking an Alpha ECOFF file. This is quite similar to get_relocated_section_contents. Perhaps they could be combined somehow. */ static boolean alpha_relocate_section (output_bfd, info, input_bfd, input_section, contents, external_relocs) bfd *output_bfd; struct bfd_link_info *info; bfd *input_bfd; asection *input_section; bfd_byte *contents; PTR external_relocs; { asection **symndx_to_section; struct ecoff_link_hash_entry **sym_hashes; bfd_vma gp; boolean gp_undefined; bfd_vma stack[RELOC_STACKSIZE]; int tos = 0; struct external_reloc *ext_rel; struct external_reloc *ext_rel_end; /* We keep a table mapping the symndx found in an internal reloc to the appropriate section. This is faster than looking up the section by name each time. */ symndx_to_section = ecoff_data (input_bfd)->symndx_to_section; if (symndx_to_section == (asection **) NULL) { symndx_to_section = ((asection **) bfd_alloc (input_bfd, (NUM_RELOC_SECTIONS * sizeof (asection *)))); if (!symndx_to_section) { bfd_set_error (bfd_error_no_memory); return false; } symndx_to_section[RELOC_SECTION_NONE] = NULL; symndx_to_section[RELOC_SECTION_TEXT] = bfd_get_section_by_name (input_bfd, ".text"); symndx_to_section[RELOC_SECTION_RDATA] = bfd_get_section_by_name (input_bfd, ".rdata"); symndx_to_section[RELOC_SECTION_DATA] = bfd_get_section_by_name (input_bfd, ".data"); symndx_to_section[RELOC_SECTION_SDATA] = bfd_get_section_by_name (input_bfd, ".sdata"); symndx_to_section[RELOC_SECTION_SBSS] = bfd_get_section_by_name (input_bfd, ".sbss"); symndx_to_section[RELOC_SECTION_BSS] = bfd_get_section_by_name (input_bfd, ".bss"); symndx_to_section[RELOC_SECTION_INIT] = bfd_get_section_by_name (input_bfd, ".init"); symndx_to_section[RELOC_SECTION_LIT8] = bfd_get_section_by_name (input_bfd, ".lit8"); symndx_to_section[RELOC_SECTION_LIT4] = bfd_get_section_by_name (input_bfd, ".lit4"); symndx_to_section[RELOC_SECTION_XDATA] = bfd_get_section_by_name (input_bfd, ".xdata"); symndx_to_section[RELOC_SECTION_PDATA] = bfd_get_section_by_name (input_bfd, ".pdata"); symndx_to_section[RELOC_SECTION_FINI] = bfd_get_section_by_name (input_bfd, ".fini"); symndx_to_section[RELOC_SECTION_LITA] = bfd_get_section_by_name (input_bfd, ".lita"); symndx_to_section[RELOC_SECTION_ABS] = bfd_abs_section_ptr; ecoff_data (input_bfd)->symndx_to_section = symndx_to_section; } sym_hashes = ecoff_data (input_bfd)->sym_hashes; gp = ecoff_data (output_bfd)->gp; if (gp == 0) gp_undefined = true; else gp_undefined = false; BFD_ASSERT (output_bfd->xvec->header_byteorder_big_p == false); BFD_ASSERT (input_bfd->xvec->header_byteorder_big_p == false); ext_rel = (struct external_reloc *) external_relocs; ext_rel_end = ext_rel + input_section->reloc_count; for (; ext_rel < ext_rel_end; ext_rel++) { bfd_vma r_vaddr; unsigned long r_symndx; int r_type; int r_extern; int r_offset; int r_size; boolean relocatep; boolean adjust_addrp; boolean gp_usedp; bfd_vma addend; r_vaddr = bfd_h_get_64 (input_bfd, (bfd_byte *) ext_rel->r_vaddr); r_symndx = bfd_h_get_32 (input_bfd, (bfd_byte *) ext_rel->r_symndx); r_type = ((ext_rel->r_bits[0] & RELOC_BITS0_TYPE_LITTLE) >> RELOC_BITS0_TYPE_SH_LITTLE); r_extern = (ext_rel->r_bits[1] & RELOC_BITS1_EXTERN_LITTLE) != 0; r_offset = ((ext_rel->r_bits[1] & RELOC_BITS1_OFFSET_LITTLE) >> RELOC_BITS1_OFFSET_SH_LITTLE); /* Ignored the reserved bits. */ r_size = ((ext_rel->r_bits[3] & RELOC_BITS3_SIZE_LITTLE) >> RELOC_BITS3_SIZE_SH_LITTLE); relocatep = false; adjust_addrp = true; gp_usedp = false; addend = 0; switch (r_type) { default: abort (); case ALPHA_R_IGNORE: /* This reloc appears after a GPDISP reloc. It marks the position of the second instruction to be altered by the GPDISP reloc, but is not otherwise used for anything. For some reason, the address of the relocation does not appear to include the section VMA, unlike the other relocation types. */ if (info->relocateable) bfd_h_put_64 (input_bfd, input_section->output_offset + r_vaddr, (bfd_byte *) ext_rel->r_vaddr); adjust_addrp = false; break; case ALPHA_R_REFLONG: case ALPHA_R_REFQUAD: case ALPHA_R_BRADDR: case ALPHA_R_HINT: case ALPHA_R_SREL16: case ALPHA_R_SREL32: case ALPHA_R_SREL64: relocatep = true; break; case ALPHA_R_GPREL32: /* This relocation is used in a switch table. It is a 32 bit offset from the current GP value. We must adjust it by the different between the original GP value and the current GP value. */ relocatep = true; addend = ecoff_data (input_bfd)->gp - gp; gp_usedp = true; break; case ALPHA_R_LITERAL: /* This is a reference to a literal value, generally (always?) in the .lita section. This is a 16 bit GP relative relocation. Sometimes the subsequent reloc is a LITUSE reloc, which indicates how this reloc is used. This sometimes permits rewriting the two instructions referred to by the LITERAL and the LITUSE into different instructions which do not refer to .lita. This can save a memory reference, and permits removing a value from .lita thus saving GP relative space. We do not these optimizations. To do them we would need to arrange to link the .lita section first, so that by the time we got here we would know the final values to use. This would not be particularly difficult, but it is not currently implemented. */ /* I believe that the LITERAL reloc will only apply to a ldq or ldl instruction, so check my assumption. */ { unsigned long insn; insn = bfd_get_32 (input_bfd, contents + r_vaddr - input_section->vma); BFD_ASSERT (((insn >> 26) & 0x3f) == 0x29 || ((insn >> 26) & 0x3f) == 0x28); } relocatep = true; addend = ecoff_data (input_bfd)->gp - gp; gp_usedp = true; break; case ALPHA_R_LITUSE: /* See ALPHA_R_LITERAL above for the uses of this reloc. It does not cause anything to happen, itself. */ break; case ALPHA_R_GPDISP: /* This marks the ldah of an ldah/lda pair which loads the gp register with the difference of the gp value and the current location. The second of the pair is r_symndx bytes ahead, and is also marked with an ALPHA_R_IGNORE reloc. */ { unsigned long insn1, insn2; BFD_ASSERT (ext_rel + 1 < ext_rel_end && (((ext_rel + 1)->r_bits[0] & RELOC_BITS0_TYPE_LITTLE) >> RELOC_BITS0_TYPE_SH_LITTLE) == ALPHA_R_IGNORE && (bfd_h_get_64 (input_bfd, (bfd_byte *) (ext_rel + 1)->r_vaddr) == r_vaddr - input_section->vma + r_symndx)); /* Get the two instructions. */ insn1 = bfd_get_32 (input_bfd, contents + r_vaddr - input_section->vma); insn2 = bfd_get_32 (input_bfd, (contents + r_vaddr - input_section->vma + r_symndx)); BFD_ASSERT (((insn1 >> 26) & 0x3f) == 0x09); /* ldah */ BFD_ASSERT (((insn2 >> 26) & 0x3f) == 0x08); /* lda */ /* Get the existing addend. We must account for the sign extension done by lda and ldah. */ addend = ((insn1 & 0xffff) << 16) + (insn2 & 0xffff); if (insn1 & 0x8000) { /* This is addend -= 0x100000000 without causing an integer overflow on a 32 bit host. */ addend -= 0x80000000; addend -= 0x80000000; } if (insn2 & 0x8000) addend -= 0x10000; /* The existing addend includes the difference between the gp of the input BFD and the address in the input BFD. We want to change this to the difference between the final GP and the final address. */ addend += (gp - ecoff_data (input_bfd)->gp + input_section->vma - (input_section->output_section->vma + input_section->output_offset)); /* Change the instructions, accounting for the sign extension, and write them out. */ if (addend & 0x8000) addend += 0x10000; insn1 = (insn1 & 0xffff0000) | ((addend >> 16) & 0xffff); insn2 = (insn2 & 0xffff0000) | (addend & 0xffff); bfd_put_32 (input_bfd, (bfd_vma) insn1, contents + r_vaddr - input_section->vma); bfd_put_32 (input_bfd, (bfd_vma) insn2, contents + r_vaddr - input_section->vma + r_symndx); gp_usedp = true; } break; case ALPHA_R_OP_PUSH: case ALPHA_R_OP_PSUB: case ALPHA_R_OP_PRSHIFT: /* Manipulate values on the reloc evaluation stack. The r_vaddr field is not an address in input_section, it is the current value (including any addend) of the object being used. */ if (! r_extern) { asection *s; s = symndx_to_section[r_symndx]; if (s == (asection *) NULL) abort (); addend = s->output_section->vma + s->output_offset - s->vma; } else { struct ecoff_link_hash_entry *h; h = sym_hashes[r_symndx]; if (h == (struct ecoff_link_hash_entry *) NULL) abort (); if (! info->relocateable) { if (h->root.type == bfd_link_hash_defined) addend = (h->root.u.def.value + h->root.u.def.section->output_section->vma + h->root.u.def.section->output_offset); else { /* Note that we pass the address as 0, since we do not have a meaningful number for the location within the section that is being relocated. */ if (! ((*info->callbacks->undefined_symbol) (info, h->root.root.string, input_bfd, input_section, (bfd_vma) 0))) return false; addend = 0; } } else { if (h->root.type != bfd_link_hash_defined && h->indx == -1) { /* This symbol is not being written out. Pass the address as 0, as with undefined_symbol, above. */ if (! ((*info->callbacks->unattached_reloc) (info, h->root.root.string, input_bfd, input_section, (bfd_vma) 0))) return false; } addend = alpha_convert_external_reloc (output_bfd, info, input_bfd, ext_rel, h); } } addend += r_vaddr; if (info->relocateable) { /* Adjust r_vaddr by the addend. */ bfd_h_put_64 (input_bfd, addend, (bfd_byte *) ext_rel->r_vaddr); } else { switch (r_type) { case ALPHA_R_OP_PUSH: if (tos >= RELOC_STACKSIZE) abort (); stack[tos++] = addend; break; case ALPHA_R_OP_PSUB: if (tos == 0) abort (); stack[tos - 1] -= addend; break; case ALPHA_R_OP_PRSHIFT: if (tos == 0) abort (); stack[tos - 1] >>= addend; break; } } adjust_addrp = false; break; case ALPHA_R_OP_STORE: /* Store a value from the reloc stack into a bitfield. If we are generating relocateable output, all we do is adjust the address of the reloc. */ if (! info->relocateable) { bfd_vma mask; bfd_vma val; if (tos == 0) abort (); /* Get the relocation mask. The separate steps and the casts to bfd_vma are attempts to avoid a bug in the Alpha OSF 1.3 C compiler. See reloc.c for more details. */ mask = 1; mask <<= (bfd_vma) r_size; mask -= 1; /* FIXME: I don't know what kind of overflow checking, if any, should be done here. */ val = bfd_get_64 (input_bfd, contents + r_vaddr - input_section->vma); val &=~ mask << (bfd_vma) r_offset; val |= (stack[--tos] & mask) << (bfd_vma) r_offset; bfd_put_64 (input_bfd, val, contents + r_vaddr - input_section->vma); } break; case ALPHA_R_GPVALUE: /* I really don't know if this does the right thing. */ gp = ecoff_data (input_bfd)->gp + r_symndx; gp_undefined = false; break; } if (relocatep) { reloc_howto_type *howto; struct ecoff_link_hash_entry *h = NULL; asection *s = NULL; bfd_vma relocation; bfd_reloc_status_type r; /* Perform a relocation. */ howto = &alpha_howto_table[r_type]; if (r_extern) { h = sym_hashes[r_symndx]; /* If h is NULL, that means that there is a reloc against an external symbol which we thought was just a debugging symbol. This should not happen. */ if (h == (struct ecoff_link_hash_entry *) NULL) abort (); } else { if (r_symndx >= NUM_RELOC_SECTIONS) s = NULL; else s = symndx_to_section[r_symndx]; if (s == (asection *) NULL) abort (); } if (info->relocateable) { /* We are generating relocateable output, and must convert the existing reloc. */ if (r_extern) { if (h->root.type != bfd_link_hash_defined && h->indx == -1) { /* This symbol is not being written out. */ if (! ((*info->callbacks->unattached_reloc) (info, h->root.root.string, input_bfd, input_section, r_vaddr - input_section->vma))) return false; } relocation = alpha_convert_external_reloc (output_bfd, info, input_bfd, ext_rel, h); } else { /* This is a relocation against a section. Adjust the value by the amount the section moved. */ relocation = (s->output_section->vma + s->output_offset - s->vma); } /* If this is PC relative, the existing object file appears to already have the reloc worked out. We must subtract out the old value and add in the new one. */ if (howto->pc_relative) relocation -= (input_section->output_section->vma + input_section->output_offset - input_section->vma); /* Put in any addend. */ relocation += addend; /* Adjust the contents. */ r = _bfd_relocate_contents (howto, input_bfd, relocation, (contents + r_vaddr - input_section->vma)); } else { /* We are producing a final executable. */ if (r_extern) { /* This is a reloc against a symbol. */ if (h->root.type == bfd_link_hash_defined) { asection *hsec; hsec = h->root.u.def.section; relocation = (h->root.u.def.value + hsec->output_section->vma + hsec->output_offset); } else { if (! ((*info->callbacks->undefined_symbol) (info, h->root.root.string, input_bfd, input_section, r_vaddr - input_section->vma))) return false; relocation = 0; } } else { /* This is a reloc against a section. */ relocation = (s->output_section->vma + s->output_offset - s->vma); /* Adjust a PC relative relocation by removing the reference to the original source section. */ if (howto->pc_relative) relocation += input_section->vma; } r = _bfd_final_link_relocate (howto, input_bfd, input_section, contents, r_vaddr - input_section->vma, relocation, addend); } if (r != bfd_reloc_ok) { switch (r) { default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: { const char *name; if (r_extern) name = sym_hashes[r_symndx]->root.root.string; else name = bfd_section_name (input_bfd, symndx_to_section[r_symndx]); if (! ((*info->callbacks->reloc_overflow) (info, name, alpha_howto_table[r_type].name, (bfd_vma) 0, input_bfd, input_section, r_vaddr - input_section->vma))) return false; } break; } } } if (info->relocateable && adjust_addrp) { /* Change the address of the relocation. */ bfd_h_put_64 (input_bfd, (input_section->output_section->vma + input_section->output_offset - input_section->vma + r_vaddr), (bfd_byte *) ext_rel->r_vaddr); } if (gp_usedp && gp_undefined) { if (! ((*info->callbacks->reloc_dangerous) (info, "GP relative relocation when GP not defined", input_bfd, input_section, r_vaddr - input_section->vma))) return false; /* Only give the error once per link. */ ecoff_data (output_bfd)->gp = gp = 4; gp_undefined = false; } } if (tos != 0) abort (); return true; } /* This is the ECOFF backend structure. The backend field of the target vector points to this. */ static const struct ecoff_backend_data alpha_ecoff_backend_data = { /* COFF backend structure. */ { (void (*) PARAMS ((bfd *,PTR,int,int,int,int,PTR))) bfd_void, /* aux_in */ (void (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* sym_in */ (void (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* lineno_in */ (unsigned (*) PARAMS ((bfd *,PTR,int,int,int,int,PTR)))bfd_void,/*aux_out*/ (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* sym_out */ (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* lineno_out */ (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* reloc_out */ alpha_ecoff_swap_filehdr_out, alpha_ecoff_swap_aouthdr_out, alpha_ecoff_swap_scnhdr_out, FILHSZ, AOUTSZ, SCNHSZ, 0, 0, 0, true, alpha_ecoff_swap_filehdr_in, alpha_ecoff_swap_aouthdr_in, alpha_ecoff_swap_scnhdr_in, alpha_ecoff_bad_format_hook, _bfd_ecoff_set_arch_mach_hook, alpha_ecoff_mkobject_hook, _bfd_ecoff_styp_to_sec_flags, _bfd_ecoff_make_section_hook, _bfd_ecoff_set_alignment_hook, _bfd_ecoff_slurp_symbol_table, NULL, NULL }, /* Supported architecture. */ bfd_arch_alpha, /* Initial portion of armap string. */ "________64", /* The page boundary used to align sections in a demand-paged executable file. E.g., 0x1000. */ 0x2000, /* True if the .rdata section is part of the text segment, as on the Alpha. False if .rdata is part of the data segment, as on the MIPS. */ true, /* Bitsize of constructor entries. */ 64, /* Reloc to use for constructor entries. */ &alpha_howto_table[ALPHA_R_REFQUAD], { /* Symbol table magic number. */ magicSym2, /* Alignment of debugging information. E.g., 4. */ 8, /* Sizes of external symbolic information. */ sizeof (struct hdr_ext), sizeof (struct dnr_ext), sizeof (struct pdr_ext), sizeof (struct sym_ext), sizeof (struct opt_ext), sizeof (struct fdr_ext), sizeof (struct rfd_ext), sizeof (struct ext_ext), /* Functions to swap in external symbolic data. */ ecoff_swap_hdr_in, ecoff_swap_dnr_in, ecoff_swap_pdr_in, ecoff_swap_sym_in, ecoff_swap_opt_in, ecoff_swap_fdr_in, ecoff_swap_rfd_in, ecoff_swap_ext_in, _bfd_ecoff_swap_tir_in, _bfd_ecoff_swap_rndx_in, /* Functions to swap out external symbolic data. */ ecoff_swap_hdr_out, ecoff_swap_dnr_out, ecoff_swap_pdr_out, ecoff_swap_sym_out, ecoff_swap_opt_out, ecoff_swap_fdr_out, ecoff_swap_rfd_out, ecoff_swap_ext_out, _bfd_ecoff_swap_tir_out, _bfd_ecoff_swap_rndx_out, /* Function to read in symbolic data. */ _bfd_ecoff_slurp_symbolic_info }, /* External reloc size. */ RELSZ, /* Reloc swapping functions. */ alpha_ecoff_swap_reloc_in, alpha_ecoff_swap_reloc_out, /* Backend reloc tweaking. */ alpha_adjust_reloc_in, alpha_adjust_reloc_out, /* Relocate section contents while linking. */ alpha_relocate_section }; /* Looking up a reloc type is Alpha specific. */ #define _bfd_ecoff_bfd_reloc_type_lookup alpha_bfd_reloc_type_lookup /* So is getting relocated section contents. */ #define _bfd_ecoff_bfd_get_relocated_section_contents \ alpha_ecoff_get_relocated_section_contents /* Relaxing sections is generic. */ #define _bfd_ecoff_bfd_relax_section bfd_generic_relax_section const bfd_target ecoffalpha_little_vec = { "ecoff-littlealpha", /* name */ bfd_target_ecoff_flavour, false, /* data byte order is little */ false, /* header byte order is little */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* sect flags */ 0, /* leading underscore */ ' ', /* ar_pad_char */ 15, /* ar_max_namelen */ 4, /* minimum alignment power */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ {_bfd_dummy_target, alpha_ecoff_object_p, /* bfd_check_format */ _bfd_ecoff_archive_p, _bfd_dummy_target}, {bfd_false, _bfd_ecoff_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, _bfd_ecoff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (_bfd_ecoff), BFD_JUMP_TABLE_COPY (_bfd_ecoff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_ecoff), BFD_JUMP_TABLE_SYMBOLS (_bfd_ecoff), BFD_JUMP_TABLE_RELOCS (_bfd_ecoff), BFD_JUMP_TABLE_WRITE (_bfd_ecoff), BFD_JUMP_TABLE_LINK (_bfd_ecoff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) &alpha_ecoff_backend_data }; gdb-4.13/bfd/coff-apollo.c 666 34562 1752 12473 5601407776 13700 0ustar fnfcygnus/* BFD back-end for Apollo 68000 COFF binaries. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. By Troy Rollo (troy@cbme.unsw.edu.au) Based on m68k standard COFF version Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/apollo.h" #include "coff/internal.h" #include "libcoff.h" #ifdef ONLY_DECLARE_RELOCS extern reloc_howto_type apollocoff_howto_table[]; #else reloc_howto_type apollocoff_howto_table[] = { HOWTO(R_RELBYTE, 0, 0, 8, false, 0, complain_overflow_bitfield, 0, "8", true, 0x000000ff,0x000000ff, false), HOWTO(R_RELWORD, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "16", true, 0x0000ffff,0x0000ffff, false), HOWTO(R_RELLONG, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, "32", true, 0xffffffff,0xffffffff, false), HOWTO(R_PCRBYTE, 0, 0, 8, true, 0, complain_overflow_signed, 0, "DISP8", true, 0x000000ff,0x000000ff, false), HOWTO(R_PCRWORD, 0, 1, 16, true, 0, complain_overflow_signed, 0, "DISP16", true, 0x0000ffff,0x0000ffff, false), HOWTO(R_PCRLONG, 0, 2, 32, true, 0, complain_overflow_signed, 0, "DISP32", true, 0xffffffff,0xffffffff, false), HOWTO(R_RELLONG_NEG, 0, -2, 32, false, 0, complain_overflow_bitfield, 0, "-32", true, 0xffffffff,0xffffffff, false), }; #endif /* not ONLY_DECLARE_RELOCS */ #ifndef BADMAG #define BADMAG(x) M68KBADMAG(x) #endif #define APOLLO_M68 1 /* Customize coffcode.h */ /* Turn a howto into a reloc number */ #ifdef ONLY_DECLARE_RELOCS extern void apollo_rtype2howto PARAMS ((arelent *internal, int relocentry)); extern int apollo_howto2rtype PARAMS ((CONST struct reloc_howto_struct *)); #else void apollo_rtype2howto(internal, relocentry) arelent *internal; int relocentry; { switch (relocentry) { case R_RELBYTE: internal->howto = apollocoff_howto_table + 0; break; case R_RELWORD: internal->howto = apollocoff_howto_table + 1; break; case R_RELLONG: internal->howto = apollocoff_howto_table + 2; break; case R_PCRBYTE: internal->howto = apollocoff_howto_table + 3; break; case R_PCRWORD: internal->howto = apollocoff_howto_table + 4; break; case R_PCRLONG: internal->howto = apollocoff_howto_table + 5; break; case R_RELLONG_NEG: internal->howto = apollocoff_howto_table + 6; break; } } int apollo_howto2rtype (internal) CONST struct reloc_howto_struct *internal; { if (internal->pc_relative) { switch (internal->bitsize) { case 32: return R_PCRLONG; case 16: return R_PCRWORD; case 8: return R_PCRBYTE; } } else { switch (internal->bitsize) { case 32: return R_RELLONG; case 16: return R_RELWORD; case 8: return R_RELBYTE; } } return R_RELLONG; } #endif /* not ONLY_DECLARE_RELOCS */ #define RTYPE2HOWTO(internal, relocentry) \ apollo_rtype2howto(internal, (relocentry)->r_type) #define SELECT_RELOC(external, internal) \ external.r_type = apollo_howto2rtype(internal); #include "coffcode.h" const bfd_target #ifdef TARGET_SYM TARGET_SYM = #else apollocoff_vec = #endif { #ifdef TARGET_NAME TARGET_NAME, #else "apollo-m68k", /* name */ #endif bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ #ifdef NAMES_HAVE_UNDERSCORE '_', #else 0, /* leading underscore */ #endif '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 3, /* minimum section alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE }; gdb-4.13/bfd/coff-go32.c 666 34562 1752 31477 5601660254 13161 0ustar fnfcygnus/* BFD back-end for Intel 386 COFF files (go32 variant). Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by DJ Delorie. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/i386.h" #include "coff/internal.h" #include "libcoff.h" static bfd_reloc_status_type coff_go32_reloc PARAMS ((bfd *abfd, arelent *reloc_entry, asymbol *symbol, PTR data, asection *input_section, bfd *output_bfd, char **error_message)); /* For some reason when using i386 COFF the value stored in the .text section for a reference to a common symbol is the value itself plus any desired offset. Ian Taylor, Cygnus Support. */ /* If we are producing relocateable output, we need to do some adjustments to the object file that are not done by the bfd_perform_relocation function. This function is called by every reloc type to make any required adjustments. */ static bfd_reloc_status_type coff_go32_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { symvalue diff; if (output_bfd == (bfd *) NULL) return bfd_reloc_continue; if (bfd_is_com_section (symbol->section)) { /* We are relocating a common symbol. The current value in the object file is ORIG + OFFSET, where ORIG is the value of the common symbol as seen by the object file when it was compiled (this may be zero if the symbol was undefined) and OFFSET is the offset into the common symbol (normally zero, but may be non-zero when referring to a field in a common structure). ORIG is the negative of reloc_entry->addend, which is set by the CALC_ADDEND macro below. We want to replace the value in the object file with NEW + OFFSET, where NEW is the value of the common symbol which we are going to put in the final object file. NEW is symbol->value. */ diff = symbol->value + reloc_entry->addend; } else { /* For some reason bfd_perform_relocation always effectively ignores the addend for a COFF target when producing relocateable output. This seems to be always wrong for 386 COFF, so we handle the addend here instead. */ diff = reloc_entry->addend; } #define DOIT(x) \ x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + diff) & howto->dst_mask)) if (diff != 0) { const reloc_howto_type *howto = reloc_entry->howto; unsigned char *addr = (unsigned char *) data + reloc_entry->address; switch (howto->size) { case 0: { char x = bfd_get_8 (abfd, addr); DOIT (x); bfd_put_8 (abfd, x, addr); } break; case 1: { short x = bfd_get_16 (abfd, addr); DOIT (x); bfd_put_16 (abfd, x, addr); } break; case 2: { long x = bfd_get_32 (abfd, addr); DOIT (x); bfd_put_32 (abfd, x, addr); } break; default: abort (); } } /* Now let bfd_perform_relocation finish everything up. */ return bfd_reloc_continue; } static reloc_howto_type howto_table[] = { {0}, {1}, {2}, {3}, {4}, {5}, HOWTO (R_DIR32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ coff_go32_reloc, /* special_function */ "dir32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ {7}, {010}, {011}, {012}, {013}, {014}, {015}, {016}, HOWTO (R_RELBYTE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 8, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ coff_go32_reloc, /* special_function */ "8", /* name */ true, /* partial_inplace */ 0x000000ff, /* src_mask */ 0x000000ff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_RELWORD, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ coff_go32_reloc, /* special_function */ "16", /* name */ true, /* partial_inplace */ 0x0000ffff, /* src_mask */ 0x0000ffff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_RELLONG, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ coff_go32_reloc, /* special_function */ "32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_PCRBYTE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 8, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ coff_go32_reloc, /* special_function */ "DISP8", /* name */ true, /* partial_inplace */ 0x000000ff, /* src_mask */ 0x000000ff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_PCRWORD, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ coff_go32_reloc, /* special_function */ "DISP16", /* name */ true, /* partial_inplace */ 0x0000ffff, /* src_mask */ 0x0000ffff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_PCRLONG, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ coff_go32_reloc, /* special_function */ "DISP32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false) /* pcrel_offset */ }; /* Turn a howto into a reloc nunmber */ #define SELECT_RELOC(x,howto) { x.r_type = howto->type; } #define BADMAG(x) I386BADMAG(x) #define I386 1 /* Customize coffcode.h */ #define RTYPE2HOWTO(cache_ptr, dst) \ cache_ptr->howto = howto_table + (dst)->r_type; /* On SCO Unix 3.2.2 the native assembler generates two .data sections. We handle that by renaming the second one to .data2. It does no harm to do this for any 386 COFF target. */ #define TWO_DATA_SECS /* For 386 COFF a STYP_NOLOAD | STYP_BSS section is part of a shared library. On some other COFF targets STYP_BSS is normally STYP_NOLOAD. */ #define BSS_NOLOAD_IS_SHARED_LIBRARY /* Compute the addend of a reloc. If the reloc is to a common symbol, the object file contains the value of the common symbol. By the time this is called, the linker may be using a different symbol from a different object file with a different value. Therefore, we hack wildly to locate the original symbol from this file so that we can make the correct adjustment. This macro sets coffsym to the symbol from the original file, and uses it to set the addend value correctly. If this is not a common symbol, the usual addend calculation is done, except that an additional tweak is needed for PC relative relocs. FIXME: This macro refers to symbols and asect; these are from the calling function, not the macro arguments. */ #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \ { \ coff_symbol_type *coffsym = (coff_symbol_type *) NULL; \ if (ptr && bfd_asymbol_bfd (ptr) != abfd) \ coffsym = (obj_symbols (abfd) \ + (cache_ptr->sym_ptr_ptr - symbols)); \ else if (ptr) \ coffsym = coff_symbol_from (abfd, ptr); \ if (coffsym != (coff_symbol_type *) NULL \ && coffsym->native->u.syment.n_scnum == 0) \ cache_ptr->addend = - coffsym->native->u.syment.n_value; \ else if (ptr && bfd_asymbol_bfd (ptr) == abfd \ && ptr->section != (asection *) NULL) \ cache_ptr->addend = - (ptr->section->vma + ptr->value); \ else \ cache_ptr->addend = 0; \ if (ptr && howto_table[reloc.r_type].pc_relative) \ cache_ptr->addend += asect->vma; \ } #include "coffcode.h" static const bfd_target * go32coff_object_p(a) bfd *a; { return coff_object_p(a); } const bfd_target #ifdef TARGET_SYM TARGET_SYM = #else go32coff_vec = #endif { #ifdef TARGET_NAME TARGET_NAME, #else "coff-go32", /* name */ #endif bfd_target_coff_flavour, false, /* data byte order is little */ false, /* header byte order is little */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* leading underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 2, /* minimum alignment power */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ /* Note that we allow an object file to be treated as a core file as well. */ {_bfd_dummy_target, go32coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, go32coff_object_p}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-h8300.c 666 34562 1752 40354 5601614554 13145 0ustar fnfcygnus/* BFD back-end for Hitachi H8/300 COFF binaries. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Steve Chamberlain, . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "obstack.h" #include "libbfd.h" #include "bfdlink.h" #include "coff/h8300.h" #include "coff/internal.h" #include "libcoff.h" static reloc_howto_type howto_table[] = { HOWTO (R_RELBYTE, 0, 0, 8, false, 0, complain_overflow_bitfield, 0, "8", true, 0x000000ff, 0x000000ff, false), HOWTO (R_RELWORD, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "16", true, 0x0000ffff, 0x0000ffff, false), HOWTO (R_RELLONG, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, "32", true, 0xffffffff, 0xffffffff, false), HOWTO (R_PCRBYTE, 0, 0, 8, true, 0, complain_overflow_signed, 0, "DISP8", true, 0x000000ff, 0x000000ff, true), HOWTO (R_PCRWORD, 0, 1, 16, true, 0, complain_overflow_signed, 0, "DISP16", true, 0x0000ffff, 0x0000ffff, true), HOWTO (R_PCRLONG, 0, 2, 32, true, 0, complain_overflow_signed, 0, "DISP32", true, 0xffffffff, 0xffffffff, true), HOWTO (R_MOVB1, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "16/8", true, 0x0000ffff, 0x0000ffff, false), HOWTO (R_MOVB2, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "8/16", true, 0x0000ffff, 0x0000ffff, false), HOWTO (R_JMP1, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "16/pcrel", true, 0x0000ffff, 0x0000ffff, false), HOWTO (R_JMP2, 0, 0, 8, false, 0, complain_overflow_bitfield, 0, "pcrecl/16", true, 0x000000ff, 0x000000ff, false), HOWTO (R_JMPL1, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, "24/pcrell", true, 0x00ffffff, 0x00ffffff, false), HOWTO (R_JMPL_B8, 0, 0, 8, false, 0, complain_overflow_bitfield, 0, "pc8/24", true, 0x000000ff, 0x000000ff, false), HOWTO (R_MOVLB1, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "24/8", true, 0x0000ffff, 0x0000ffff, false), HOWTO (R_MOVLB2, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "8/24", true, 0x0000ffff, 0x0000ffff, false), }; /* Turn a howto into a reloc number */ #define SELECT_RELOC(x,howto) \ { x.r_type = select_reloc(howto); } #define BADMAG(x) (H8300BADMAG(x)&& H8300HBADMAG(x)) #define H8300 1 /* Customize coffcode.h */ #define __A_MAGIC_SET__ /* Code to swap in the reloc */ #define SWAP_IN_RELOC_OFFSET bfd_h_get_32 #define SWAP_OUT_RELOC_OFFSET bfd_h_put_32 #define SWAP_OUT_RELOC_EXTRA(abfd, src, dst) \ dst->r_stuff[0] = 'S'; \ dst->r_stuff[1] = 'C'; static int select_reloc (howto) reloc_howto_type *howto; { return howto->type; } /* Code to turn a r_type into a howto ptr, uses the above howto table */ static void rtype2howto (internal, dst) arelent *internal; struct internal_reloc *dst; { switch (dst->r_type) { case R_RELBYTE: internal->howto = howto_table + 0; break; case R_RELWORD: internal->howto = howto_table + 1; break; case R_RELLONG: internal->howto = howto_table + 2; break; case R_PCRBYTE: internal->howto = howto_table + 3; break; case R_PCRWORD: internal->howto = howto_table + 4; break; case R_PCRLONG: internal->howto = howto_table + 5; break; case R_MOVB1: internal->howto = howto_table + 6; break; case R_MOVB2: internal->howto = howto_table + 7; break; case R_JMP1: internal->howto = howto_table + 8; break; case R_JMP2: internal->howto = howto_table + 9; break; case R_JMPL1: internal->howto = howto_table + 10; break; case R_JMPL_B8: internal->howto = howto_table + 11; break; case R_MOVLB1: internal->howto = howto_table + 12; break; case R_MOVLB2: internal->howto = howto_table + 13; break; default: fprintf (stderr, "Bad reloc\n"); break; } } #define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry) /* Perform any necessaru magic to the addend in a reloc entry */ #define CALC_ADDEND(abfd, symbol, ext_reloc, cache_ptr) \ cache_ptr->addend = ext_reloc.r_offset; #define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \ reloc_processing(relent, reloc, symbols, abfd, section) static void reloc_processing (relent, reloc, symbols, abfd, section) arelent * relent; struct internal_reloc *reloc; asymbol ** symbols; bfd * abfd; asection * section; { relent->address = reloc->r_vaddr; rtype2howto (relent, reloc); if (((int) reloc->r_symndx) > 0) { relent->sym_ptr_ptr = symbols + obj_convert (abfd)[reloc->r_symndx]; } else { relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; } relent->addend = reloc->r_offset; relent->address -= section->vma; /* relent->section = 0;*/ } static int h8300_reloc16_estimate(abfd, input_section, reloc, shrink, link_info) bfd *abfd; asection *input_section; arelent *reloc; unsigned int shrink; struct bfd_link_info *link_info; { bfd_vma value; bfd_vma dot; bfd_vma gap; /* The address of the thing to be relocated will have moved back by the size of the shrink - but we don't change reloc->address here, since we need it to know where the relocation lives in the source uncooked section */ /* reloc->address -= shrink; conceptual */ bfd_vma address = reloc->address - shrink; switch (reloc->howto->type) { case R_MOVB2: case R_JMP2: shrink+=2; break; /* Thing is a move one byte */ case R_MOVB1: value = bfd_coff_reloc16_get_value(reloc, link_info, input_section); if (value >= 0xff00) { /* Change the reloc type from 16bit, possible 8 to 8bit possible 16 */ reloc->howto = reloc->howto + 1; /* The place to relc moves back by one */ /* This will be two bytes smaller in the long run */ shrink +=2 ; bfd_perform_slip(abfd, 2, input_section, address); } break; /* This is the 24 bit branch which could become an 8 bitter, the relocation points to the first byte of the insn, not the actual data */ case R_JMPL1: value = bfd_coff_reloc16_get_value(reloc, link_info, input_section); dot = input_section->output_section->vma + input_section->output_offset + address; /* See if the address we're looking at within 127 bytes of where we are, if so then we can use a small branch rather than the jump we were going to */ gap = value - dot ; if (-120 < (long)gap && (long)gap < 120 ) { /* Change the reloc type from 24bit, possible 8 to 8bit possible 32 */ reloc->howto = reloc->howto + 1; /* This will be two bytes smaller in the long run */ shrink +=2 ; bfd_perform_slip(abfd, 2, input_section, address); } break; case R_JMP1: value = bfd_coff_reloc16_get_value(reloc, link_info, input_section); dot = input_section->output_section->vma + input_section->output_offset + address; /* See if the address we're looking at within 127 bytes of where we are, if so then we can use a small branch rather than the jump we were going to */ gap = value - (dot - shrink); if (-120 < (long)gap && (long)gap < 120 ) { /* Change the reloc type from 16bit, possible 8 to 8bit possible 16 */ reloc->howto = reloc->howto + 1; /* The place to relc moves back by one */ /* This will be two bytes smaller in the long run */ shrink +=2 ; bfd_perform_slip(abfd, 2, input_section, address); } break; } return shrink; } /* First phase of a relaxing link */ /* Reloc types large small R_MOVB1 R_MOVB2 mov.b with 16bit or 8 bit address R_JMP1 R_JMP2 jmp or pcrel branch R_JMPL1 R_JMPL_B8 24jmp or pcrel branch R_MOVLB1 R_MOVLB2 24 or 8 bit reloc for mov.b */ static void h8300_reloc16_extra_cases (abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr) bfd *abfd; struct bfd_link_info *link_info; struct bfd_link_order *link_order; arelent *reloc; bfd_byte *data; unsigned int *src_ptr; unsigned int *dst_ptr; { unsigned int src_address = *src_ptr; unsigned int dst_address = *dst_ptr; asection *input_section = link_order->u.indirect.section; switch (reloc->howto->type) { /* A 24 bit branch which could be a 8 bit pcrel, really pointing to the byte before the 24bit hole, so we can treat it as a 32bit pointer */ case R_PCRBYTE: { bfd_vma dot = link_order->offset + dst_address + link_order->u.indirect.section->output_section->vma; int gap = (bfd_coff_reloc16_get_value (reloc, link_info, input_section) - dot); if (gap > 127 || gap < -128) { if (! ((*link_info->callbacks->reloc_overflow) (link_info, bfd_asymbol_name (*reloc->sym_ptr_ptr), reloc->howto->name, reloc->addend, input_section->owner, input_section, reloc->address))) abort (); } bfd_put_8 (abfd, gap, data + dst_address); dst_address++; src_address++; break; } case R_PCRWORD: { bfd_vma dot = link_order->offset + dst_address + link_order->u.indirect.section->output_section->vma; int gap = (bfd_coff_reloc16_get_value (reloc, link_info, input_section) - dot) - 1; if (gap > 32767 || gap < -32768) { if (! ((*link_info->callbacks->reloc_overflow) (link_info, bfd_asymbol_name (*reloc->sym_ptr_ptr), reloc->howto->name, reloc->addend, input_section->owner, input_section, reloc->address))) abort (); } bfd_put_16 (abfd, gap, data + dst_address); dst_address+=2; src_address+=2; break; } case R_RELBYTE: { unsigned int gap = bfd_coff_reloc16_get_value (reloc, link_info, input_section); if (gap > 0xff && gap < ~0xff) { if (! ((*link_info->callbacks->reloc_overflow) (link_info, bfd_asymbol_name (*reloc->sym_ptr_ptr), reloc->howto->name, reloc->addend, input_section->owner, input_section, reloc->address))) abort (); } bfd_put_8 (abfd, gap, data + dst_address); dst_address += 1; src_address += 1; } break; case R_JMP1: /* A relword which would have like to have been a pcrel */ case R_MOVB1: /* A relword which would like to have been modified but didn't make it */ case R_RELWORD: bfd_put_16 (abfd, bfd_coff_reloc16_get_value (reloc, link_info, input_section), data + dst_address); dst_address += 2; src_address += 2; break; case R_RELLONG: bfd_put_32 (abfd, bfd_coff_reloc16_get_value (reloc, link_info, input_section), data + dst_address); dst_address += 4; src_address += 4; break; case R_MOVB2: /* Special relaxed type, there will be a gap between where we get stuff from and where we put stuff to now for a mov.b @aa:16 -> mov.b @aa:8 opcode 0x6a 0x0y offset -> 0x2y off */ if (data[dst_address - 1] != 0x6a) abort (); switch (data[src_address] & 0xf0) { case 0x00: /* Src is memory */ data[dst_address - 1] = (data[src_address] & 0xf) | 0x20; break; case 0x80: /* Src is reg */ data[dst_address - 1] = (data[src_address] & 0xf) | 0x30; break; default: abort (); } /* the offset must fit ! after all, what was all the relaxing about ? */ bfd_put_8 (abfd, bfd_coff_reloc16_get_value (reloc, link_info, input_section), data + dst_address); /* Note the magic - src goes up by two bytes, but dst by only one */ dst_address += 1; src_address += 3; break; case R_JMP2: /* Speciial relaxed type */ { bfd_vma dot = link_order->offset + dst_address + link_order->u.indirect.section->output_section->vma; int gap = (bfd_coff_reloc16_get_value (reloc, link_info, input_section) - dot - 1); if ((gap & ~0xff) != 0 && ((gap & 0xff00) != 0xff00)) abort (); bfd_put_8 (abfd, gap, data + dst_address); switch (data[dst_address - 1]) { case 0x5e: /* jsr -> bsr */ bfd_put_8 (abfd, 0x55, data + dst_address - 1); break; case 0x5a: /* jmp ->bra */ bfd_put_8 (abfd, 0x40, data + dst_address - 1); break; default: abort (); } dst_address++; src_address += 3; break; } break; case R_JMPL_B8: /* 24 bit branch which is now 8 bits */ /* Speciial relaxed type */ { bfd_vma dot = link_order->offset + dst_address + link_order->u.indirect.section->output_section->vma; int gap = (bfd_coff_reloc16_get_value (reloc, link_info, input_section) - dot - 2); if ((gap & ~0xff) != 0 && ((gap & 0xff00) != 0xff00)) abort (); switch (data[src_address]) { case 0x5e: /* jsr -> bsr */ bfd_put_8 (abfd, 0x55, data + dst_address); break; case 0x5a: /* jmp ->bra */ bfd_put_8 (abfd, 0x40, data + dst_address); break; default: bfd_put_8 (abfd, 0xde, data + dst_address); break; } bfd_put_8 (abfd, gap, data + dst_address + 1); dst_address += 2; src_address += 4; break; } case R_JMPL1: { int v = bfd_coff_reloc16_get_value (reloc, link_info, input_section); int o = bfd_get_32 (abfd, data + src_address); v = (v & 0x00ffffff) | (o & 0xff000000); bfd_put_32 (abfd, v, data + dst_address); dst_address += 4; src_address += 4; } break; /* A 24 bit mov which could be an 8 bit move, really pointing to the byte before the 24bit hole, so we can treat it as a 32bit pointer */ case R_MOVLB1: { int v = bfd_coff_reloc16_get_value (reloc, link_info, input_section); int o = bfd_get_32 (abfd, data + dst_address); v = (v & 0x00ffffff) | (o & 0xff000000); bfd_put_32 (abfd, v, data + dst_address); dst_address += 4; src_address += 4; } break; default: abort (); break; } *src_ptr = src_address; *dst_ptr = dst_address; } #define coff_reloc16_extra_cases h8300_reloc16_extra_cases #define coff_reloc16_estimate h8300_reloc16_estimate #include "coffcode.h" #undef coff_bfd_get_relocated_section_contents #undef coff_bfd_relax_section #define coff_bfd_get_relocated_section_contents \ bfd_coff_reloc16_get_relocated_section_contents #define coff_bfd_relax_section bfd_coff_reloc16_relax_section const bfd_target h8300coff_vec = { "coff-h8300", /* name */ bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | BFD_IS_RELAXABLE ), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* leading char */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 1, /* minimum section alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-h8500.c 666 34562 1752 23356 5601614555 13153 0ustar fnfcygnus/* BFD back-end for Hitachi H8/500 COFF binaries. Copyright 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Steve Chamberlain, . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "obstack.h" #include "libbfd.h" #include "bfdlink.h" #include "coff/h8500.h" #include "coff/internal.h" #include "libcoff.h" static reloc_howto_type r_imm8 = HOWTO (R_H8500_IMM8, 0, 1, 8, false, 0, complain_overflow_bitfield, 0, "r_imm8", true, 0x000000ff, 0x000000ff, false); static reloc_howto_type r_imm16 = HOWTO (R_H8500_IMM16, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "r_imm16", true, 0x0000ffff, 0x0000ffff, false); static reloc_howto_type r_imm24 = HOWTO (R_H8500_IMM24, 0, 1, 24, false, 0, complain_overflow_bitfield, 0, "r_imm24", true, 0x00ffffff, 0x00ffffff, false); static reloc_howto_type r_imm32 = HOWTO (R_H8500_IMM32, 0, 1, 32, false, 0, complain_overflow_bitfield, 0, "r_imm32", true, 0xffffffff, 0xffffffff, false); static reloc_howto_type r_high8 = HOWTO (R_H8500_HIGH8, 0, 1, 8, false, 0, complain_overflow_dont, 0, "r_high8", true, 0x000000ff, 0x000000ff, false); static reloc_howto_type r_low16 = HOWTO (R_H8500_LOW16, 0, 1, 16, false, 0, complain_overflow_dont, 0, "r_low16", true, 0x0000ffff, 0x0000ffff, false); static reloc_howto_type r_pcrel8 = HOWTO (R_H8500_PCREL8, 0, 1, 8, true, 0, complain_overflow_signed, 0, "r_pcrel8", true, 0, 0, true); static reloc_howto_type r_pcrel16 = HOWTO (R_H8500_PCREL16, 0, 1, 16, true, 0, complain_overflow_signed, 0, "r_pcrel16", true, 0, 0, true); static reloc_howto_type r_high16 = HOWTO (R_H8500_HIGH16, 0, 1, 8, false, 0, complain_overflow_dont, 0, "r_high16", true, 0x000ffff, 0x0000ffff, false); /* Turn a howto into a reloc number */ static int coff_h8500_select_reloc (howto) reloc_howto_type *howto; { return howto->type; } #define SELECT_RELOC(x,howto) x.r_type = coff_h8500_select_reloc(howto) #define BADMAG(x) H8500BADMAG(x) #define H8500 1 /* Customize coffcode.h */ #define __A_MAGIC_SET__ /* Code to swap in the reloc */ #define SWAP_IN_RELOC_OFFSET bfd_h_get_32 #define SWAP_OUT_RELOC_OFFSET bfd_h_put_32 #define SWAP_OUT_RELOC_EXTRA(abfd, src, dst) \ dst->r_stuff[0] = 'S'; \ dst->r_stuff[1] = 'C'; /* Code to turn a r_type into a howto ptr, uses the above howto table */ static void rtype2howto(internal, dst) arelent * internal; struct internal_reloc *dst; { switch (dst->r_type) { default: fprintf (stderr, "BAD 0x%x\n", dst->r_type); case R_H8500_IMM8: internal->howto = &r_imm8; break; case R_H8500_IMM16: internal->howto = &r_imm16; break; case R_H8500_IMM24: internal->howto = &r_imm24; break; case R_H8500_IMM32: internal->howto = &r_imm32; break; case R_H8500_PCREL8: internal->howto = &r_pcrel8; break; case R_H8500_PCREL16: internal->howto = &r_pcrel16; break; case R_H8500_HIGH8: internal->howto = &r_high8; break; case R_H8500_HIGH16: internal->howto = &r_high16; break; case R_H8500_LOW16: internal->howto = &r_low16; break; } } #define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry) /* Perform any necessaru magic to the addend in a reloc entry */ #define CALC_ADDEND(abfd, symbol, ext_reloc, cache_ptr) \ cache_ptr->addend = ext_reloc.r_offset; #define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \ reloc_processing(relent, reloc, symbols, abfd, section) static void reloc_processing (relent, reloc, symbols, abfd, section) arelent * relent; struct internal_reloc *reloc; asymbol ** symbols; bfd * abfd; asection * section; { relent->address = reloc->r_vaddr; rtype2howto (relent, reloc); if (reloc->r_symndx > 0) { relent->sym_ptr_ptr = symbols + obj_convert (abfd)[reloc->r_symndx]; } else { relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; } relent->addend = reloc->r_offset; relent->address -= section->vma; } static void extra_case (in_abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr) bfd *in_abfd; struct bfd_link_info *link_info; struct bfd_link_order *link_order; arelent *reloc; bfd_byte *data; unsigned int *src_ptr; unsigned int *dst_ptr; { bfd_byte *d = data+*dst_ptr; asection *input_section = link_order->u.indirect.section; switch (reloc->howto->type) { case R_H8500_IMM8: bfd_put_8 (in_abfd, bfd_coff_reloc16_get_value (reloc, link_info, input_section), d); (*dst_ptr) += 1; (*src_ptr) += 1; break; case R_H8500_HIGH8: bfd_put_8 (in_abfd, (bfd_coff_reloc16_get_value (reloc, link_info, input_section) >> 16), d ); (*dst_ptr) += 1; (*src_ptr) += 1; break; case R_H8500_IMM16: bfd_put_16 (in_abfd, bfd_coff_reloc16_get_value (reloc, link_info, input_section), d ); (*dst_ptr) += 2; (*src_ptr) += 2; break; case R_H8500_LOW16: bfd_put_16 (in_abfd, bfd_coff_reloc16_get_value (reloc, link_info, input_section), d); (*dst_ptr) += 2; (*src_ptr) += 2; break; case R_H8500_HIGH16: bfd_put_16 (in_abfd, (bfd_coff_reloc16_get_value (reloc, link_info, input_section) >>16), d); (*dst_ptr) += 2; (*src_ptr) += 2; break; case R_H8500_IMM24: { int v = bfd_coff_reloc16_get_value(reloc, link_info, input_section); int o = bfd_get_32(in_abfd, data+ *dst_ptr -1); v = (v & 0x00ffffff) | (o & 0xff00000); bfd_put_32 (in_abfd, v, data + *dst_ptr -1); (*dst_ptr) +=3; (*src_ptr)+=3;; } break; case R_H8500_IMM32: { int v = bfd_coff_reloc16_get_value(reloc, link_info, input_section); bfd_put_32 (in_abfd, v, data + *dst_ptr); (*dst_ptr) +=4; (*src_ptr)+=4;; } break; case R_H8500_PCREL8: { bfd_vma dst = bfd_coff_reloc16_get_value (reloc, link_info, input_section); bfd_vma dot = link_order->offset + *dst_ptr + link_order->u.indirect.section->output_section->vma; int gap = dst - dot - 1; /* -1 since were in the odd byte of the word and the pc's been incremented */ if (gap > 128 || gap < -128) { if (! ((*link_info->callbacks->reloc_overflow) (link_info, bfd_asymbol_name (*reloc->sym_ptr_ptr), reloc->howto->name, reloc->addend, input_section->owner, input_section, reloc->address))) abort (); } bfd_put_8 (in_abfd, gap, data + *dst_ptr); (*dst_ptr)++; (*src_ptr)++; break; } case R_H8500_PCREL16: { bfd_vma dst = bfd_coff_reloc16_get_value (reloc, link_info, input_section); bfd_vma dot = link_order->offset + *dst_ptr + link_order->u.indirect.section->output_section->vma; int gap = dst - dot - 1; /* -1 since were in the odd byte of the word and the pc's been incremented */ if (gap > 32767 || gap < -32768) { if (! ((*link_info->callbacks->reloc_overflow) (link_info, bfd_asymbol_name (*reloc->sym_ptr_ptr), reloc->howto->name, reloc->addend, input_section->owner, input_section, reloc->address))) abort (); } bfd_put_16 (in_abfd, gap, data + *dst_ptr); (*dst_ptr)+=2; (*src_ptr)+=2; break; } default: abort (); } } #define coff_reloc16_extra_cases extra_case #include "coffcode.h" #undef coff_bfd_get_relocated_section_contents #undef coff_bfd_relax_section #define coff_bfd_get_relocated_section_contents \ bfd_coff_reloc16_get_relocated_section_contents #define coff_bfd_relax_section bfd_coff_reloc16_relax_section const bfd_target h8500coff_vec = { "coff-h8500", /* name */ bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* leading symbol underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 1, /* minimum section alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-i386.c 666 34562 1752 31603 5601410003 13050 0ustar fnfcygnus/* BFD back-end for Intel 386 COFF files. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/i386.h" #include "coff/internal.h" #include "libcoff.h" static bfd_reloc_status_type coff_i386_reloc PARAMS ((bfd *abfd, arelent *reloc_entry, asymbol *symbol, PTR data, asection *input_section, bfd *output_bfd, char **error_message)); /* The page size is a guess based on ELF. */ #define COFF_PAGE_SIZE 0x1000 /* For some reason when using i386 COFF the value stored in the .text section for a reference to a common symbol is the value itself plus any desired offset. Ian Taylor, Cygnus Support. */ /* If we are producing relocateable output, we need to do some adjustments to the object file that are not done by the bfd_perform_relocation function. This function is called by every reloc type to make any required adjustments. */ static bfd_reloc_status_type coff_i386_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { symvalue diff; if (output_bfd == (bfd *) NULL) return bfd_reloc_continue; if (bfd_is_com_section (symbol->section)) { /* We are relocating a common symbol. The current value in the object file is ORIG + OFFSET, where ORIG is the value of the common symbol as seen by the object file when it was compiled (this may be zero if the symbol was undefined) and OFFSET is the offset into the common symbol (normally zero, but may be non-zero when referring to a field in a common structure). ORIG is the negative of reloc_entry->addend, which is set by the CALC_ADDEND macro below. We want to replace the value in the object file with NEW + OFFSET, where NEW is the value of the common symbol which we are going to put in the final object file. NEW is symbol->value. */ diff = symbol->value + reloc_entry->addend; } else { /* For some reason bfd_perform_relocation always effectively ignores the addend for a COFF target when producing relocateable output. This seems to be always wrong for 386 COFF, so we handle the addend here instead. */ diff = reloc_entry->addend; } #define DOIT(x) \ x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + diff) & howto->dst_mask)) if (diff != 0) { const reloc_howto_type *howto = reloc_entry->howto; unsigned char *addr = (unsigned char *) data + reloc_entry->address; switch (howto->size) { case 0: { char x = bfd_get_8 (abfd, addr); DOIT (x); bfd_put_8 (abfd, x, addr); } break; case 1: { short x = bfd_get_16 (abfd, addr); DOIT (x); bfd_put_16 (abfd, x, addr); } break; case 2: { long x = bfd_get_32 (abfd, addr); DOIT (x); bfd_put_32 (abfd, x, addr); } break; default: abort (); } } /* Now let bfd_perform_relocation finish everything up. */ return bfd_reloc_continue; } static reloc_howto_type howto_table[] = { {0}, {1}, {2}, {3}, {4}, {5}, HOWTO (R_DIR32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ coff_i386_reloc, /* special_function */ "dir32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ {7}, {010}, {011}, {012}, {013}, {014}, {015}, {016}, HOWTO (R_RELBYTE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 8, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ coff_i386_reloc, /* special_function */ "8", /* name */ true, /* partial_inplace */ 0x000000ff, /* src_mask */ 0x000000ff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_RELWORD, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ coff_i386_reloc, /* special_function */ "16", /* name */ true, /* partial_inplace */ 0x0000ffff, /* src_mask */ 0x0000ffff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_RELLONG, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ coff_i386_reloc, /* special_function */ "32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_PCRBYTE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 8, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ coff_i386_reloc, /* special_function */ "DISP8", /* name */ true, /* partial_inplace */ 0x000000ff, /* src_mask */ 0x000000ff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_PCRWORD, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ coff_i386_reloc, /* special_function */ "DISP16", /* name */ true, /* partial_inplace */ 0x0000ffff, /* src_mask */ 0x0000ffff, /* dst_mask */ false), /* pcrel_offset */ HOWTO (R_PCRLONG, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ coff_i386_reloc, /* special_function */ "DISP32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false) /* pcrel_offset */ }; /* Turn a howto into a reloc nunmber */ #define SELECT_RELOC(x,howto) { x.r_type = howto->type; } #define BADMAG(x) I386BADMAG(x) #define I386 1 /* Customize coffcode.h */ #define RTYPE2HOWTO(cache_ptr, dst) \ cache_ptr->howto = howto_table + (dst)->r_type; /* On SCO Unix 3.2.2 the native assembler generates two .data sections. We handle that by renaming the second one to .data2. It does no harm to do this for any 386 COFF target. */ #define TWO_DATA_SECS /* For 386 COFF a STYP_NOLOAD | STYP_BSS section is part of a shared library. On some other COFF targets STYP_BSS is normally STYP_NOLOAD. */ #define BSS_NOLOAD_IS_SHARED_LIBRARY /* Compute the addend of a reloc. If the reloc is to a common symbol, the object file contains the value of the common symbol. By the time this is called, the linker may be using a different symbol from a different object file with a different value. Therefore, we hack wildly to locate the original symbol from this file so that we can make the correct adjustment. This macro sets coffsym to the symbol from the original file, and uses it to set the addend value correctly. If this is not a common symbol, the usual addend calculation is done, except that an additional tweak is needed for PC relative relocs. FIXME: This macro refers to symbols and asect; these are from the calling function, not the macro arguments. */ #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \ { \ coff_symbol_type *coffsym = (coff_symbol_type *) NULL; \ if (ptr && bfd_asymbol_bfd (ptr) != abfd) \ coffsym = (obj_symbols (abfd) \ + (cache_ptr->sym_ptr_ptr - symbols)); \ else if (ptr) \ coffsym = coff_symbol_from (abfd, ptr); \ if (coffsym != (coff_symbol_type *) NULL \ && coffsym->native->u.syment.n_scnum == 0) \ cache_ptr->addend = - coffsym->native->u.syment.n_value; \ else if (ptr && bfd_asymbol_bfd (ptr) == abfd \ && ptr->section != (asection *) NULL) \ cache_ptr->addend = - (ptr->section->vma + ptr->value); \ else \ cache_ptr->addend = 0; \ if (ptr && howto_table[reloc.r_type].pc_relative) \ cache_ptr->addend += asect->vma; \ } #include "coffcode.h" static const bfd_target * i3coff_object_p(a) bfd *a; { return coff_object_p(a); } const bfd_target #ifdef TARGET_SYM TARGET_SYM = #else i386coff_vec = #endif { #ifdef TARGET_NAME TARGET_NAME, #else "coff-i386", /* name */ #endif bfd_target_coff_flavour, false, /* data byte order is little */ false, /* header byte order is little */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 2, /* minimum alignment power */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ /* Note that we allow an object file to be treated as a core file as well. */ {_bfd_dummy_target, i3coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, i3coff_object_p}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-i960.c 666 34562 1752 17721 5601410005 13055 0ustar fnfcygnus/* BFD back-end for Intel 960 COFF files. Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define I960 1 #define BADMAG(x) I960BADMAG(x) #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/i960.h" #include "coff/internal.h" #include "libcoff.h" /* to allow easier abstraction-breaking */ static bfd_reloc_status_type optcall_callback PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); #define COFF_LONG_FILENAMES #define CALLS 0x66003800 /* Template for 'calls' instruction */ #define BAL 0x0b000000 /* Template for 'bal' instruction */ #define BAL_MASK 0x00ffffff static bfd_reloc_status_type optcall_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; char **error_message; { /* This item has already been relocated correctly, but we may be * able to patch in yet better code - done by digging out the * correct info on this symbol */ bfd_reloc_status_type result; coff_symbol_type *cs = coffsymbol(symbol_in); /* So the target symbol has to be of coff type, and the symbol has to have the correct native information within it */ if ((bfd_asymbol_flavour(&cs->symbol) != bfd_target_coff_flavour) || (cs->native == (combined_entry_type *)NULL)) { /* This is interesting, consider the case where we're outputting coff from a mix n match input, linking from coff to a symbol defined in a bout file will cause this match to be true. Should I complain? This will only work if the bout symbol is non leaf. */ *error_message = (char *) "uncertain calling convention for non-COFF symbol"; result = bfd_reloc_dangerous; } else { switch (cs->native->u.syment.n_sclass) { case C_LEAFSTAT: case C_LEAFEXT: /* This is a call to a leaf procedure, replace instruction with a bal to the correct location. */ { union internal_auxent *aux = &((cs->native+2)->u.auxent); int word = bfd_get_32(abfd, (bfd_byte *)data + reloc_entry->address); int olf = (aux->x_bal.x_balntry - cs->native->u.syment.n_value); BFD_ASSERT(cs->native->u.syment.n_numaux==2); /* We replace the original call instruction with a bal to the bal entry point - the offset of which is described in the 2nd auxent of the original symbol. We keep the native sym and auxents untouched, so the delta between the two is the offset of the bal entry point. */ word = ((word + olf) & BAL_MASK) | BAL; bfd_put_32(abfd, word, (bfd_byte *) data + reloc_entry->address); } result = bfd_reloc_ok; break; case C_SCALL: /* This is a call to a system call, replace with a calls to # */ BFD_ASSERT(0); result = bfd_reloc_ok; break; default: result = bfd_reloc_ok; break; } } return result; } static reloc_howto_type howto_rellong = { (unsigned int) R_RELLONG, 0, 2, 32,false, 0, complain_overflow_bitfield, 0,"rellong", true, 0xffffffff, 0xffffffff}; static reloc_howto_type howto_iprmed = { R_IPRMED, 0, 2, 24,true,0, complain_overflow_signed,0, "iprmed ", true, 0x00ffffff, 0x00ffffff}; static reloc_howto_type howto_optcall = { R_OPTCALL, 0,2,24,true,0, complain_overflow_signed, optcall_callback, "optcall", true, 0x00ffffff, 0x00ffffff}; static const reloc_howto_type * coff_i960_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { switch (code) { default: return 0; case BFD_RELOC_I960_CALLJ: return &howto_optcall; case BFD_RELOC_32: case BFD_RELOC_CTOR: return &howto_rellong; case BFD_RELOC_24_PCREL: return &howto_iprmed; } } /* The real code is in coffcode.h */ #define RTYPE2HOWTO(cache_ptr, dst) \ { \ reloc_howto_type *howto_ptr; \ switch ((dst)->r_type) { \ case 17: howto_ptr = &howto_rellong; break; \ case 25: howto_ptr = &howto_iprmed; break; \ case 27: howto_ptr = &howto_optcall; break; \ default: howto_ptr = 0; break; \ } \ cache_ptr->howto = howto_ptr; \ } #include "coffcode.h" #undef coff_bfd_reloc_type_lookup #define coff_bfd_reloc_type_lookup coff_i960_reloc_type_lookup const bfd_target icoff_little_vec = { "coff-Intel-little", /* name */ bfd_target_coff_flavour, false, /* data byte order is little */ false, /* header byte order is little */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* leading underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 3, /* minimum alignment power */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; const bfd_target icoff_big_vec = { "coff-Intel-big", /* name */ bfd_target_coff_flavour, false, /* data byte order is little */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* leading underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 3, /* minimum alignment power */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-m68k.c 666 34562 1752 13163 5601410007 13151 0ustar fnfcygnus/* BFD back-end for Motorola 68000 COFF binaries. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/m68k.h" #include "coff/internal.h" #include "libcoff.h" #ifndef LYNX_SPECIAL_FN #define LYNX_SPECIAL_FN 0 #endif /* The page size is a guess based on ELF. */ #define COFF_PAGE_SIZE 0x2000 /* Clean up namespace. */ #define m68kcoff_howto_table _bfd_m68kcoff_howto_table #define m68k_rtype2howto _bfd_m68kcoff_rtype2howto #define m68k_howto2rtype _bfd_m68kcoff_howto2rtype #ifdef ONLY_DECLARE_RELOCS extern reloc_howto_type m68kcoff_howto_table[]; #else reloc_howto_type m68kcoff_howto_table[] = { HOWTO(R_RELBYTE, 0, 0, 8, false, 0, complain_overflow_bitfield, LYNX_SPECIAL_FN, "8", true, 0x000000ff,0x000000ff, false), HOWTO(R_RELWORD, 0, 1, 16, false, 0, complain_overflow_bitfield, LYNX_SPECIAL_FN, "16", true, 0x0000ffff,0x0000ffff, false), HOWTO(R_RELLONG, 0, 2, 32, false, 0, complain_overflow_bitfield, LYNX_SPECIAL_FN, "32", true, 0xffffffff,0xffffffff, false), HOWTO(R_PCRBYTE, 0, 0, 8, true, 0, complain_overflow_signed, LYNX_SPECIAL_FN, "DISP8", true, 0x000000ff,0x000000ff, false), HOWTO(R_PCRWORD, 0, 1, 16, true, 0, complain_overflow_signed, LYNX_SPECIAL_FN, "DISP16", true, 0x0000ffff,0x0000ffff, false), HOWTO(R_PCRLONG, 0, 2, 32, true, 0, complain_overflow_signed, LYNX_SPECIAL_FN, "DISP32", true, 0xffffffff,0xffffffff, false), HOWTO(R_RELLONG_NEG, 0, -2, 32, false, 0, complain_overflow_bitfield, LYNX_SPECIAL_FN, "-32", true, 0xffffffff,0xffffffff, false), }; #endif /* not ONLY_DECLARE_RELOCS */ #ifndef BADMAG #define BADMAG(x) M68KBADMAG(x) #endif #define M68 1 /* Customize coffcode.h */ /* Turn a howto into a reloc number */ #ifdef ONLY_DECLARE_RELOCS extern void m68k_rtype2howto PARAMS ((arelent *internal, int relocentry)); extern int m68k_howto2rtype PARAMS ((CONST struct reloc_howto_struct *)); #else void m68k_rtype2howto(internal, relocentry) arelent *internal; int relocentry; { switch (relocentry) { case R_RELBYTE: internal->howto = m68kcoff_howto_table + 0; break; case R_RELWORD: internal->howto = m68kcoff_howto_table + 1; break; case R_RELLONG: internal->howto = m68kcoff_howto_table + 2; break; case R_PCRBYTE: internal->howto = m68kcoff_howto_table + 3; break; case R_PCRWORD: internal->howto = m68kcoff_howto_table + 4; break; case R_PCRLONG: internal->howto = m68kcoff_howto_table + 5; break; case R_RELLONG_NEG: internal->howto = m68kcoff_howto_table + 6; break; } } int m68k_howto2rtype (internal) CONST struct reloc_howto_struct *internal; { if (internal->pc_relative) { switch (internal->bitsize) { case 32: return R_PCRLONG; case 16: return R_PCRWORD; case 8: return R_PCRBYTE; } } else { switch (internal->bitsize) { case 32: return R_RELLONG; case 16: return R_RELWORD; case 8: return R_RELBYTE; } } return R_RELLONG; } #endif /* not ONLY_DECLARE_RELOCS */ #define RTYPE2HOWTO(internal, relocentry) \ m68k_rtype2howto(internal, (relocentry)->r_type) #define SELECT_RELOC(external, internal) \ external.r_type = m68k_howto2rtype(internal); #include "coffcode.h" const bfd_target #ifdef TARGET_SYM TARGET_SYM = #else m68kcoff_vec = #endif { #ifdef TARGET_NAME TARGET_NAME, #else "coff-m68k", /* name */ #endif bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ #ifdef NAMES_HAVE_UNDERSCORE '_', #else 0, /* leading underscore */ #endif '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 1, /* minimum section alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE }; gdb-4.13/bfd/coff-m88k.c 666 34562 1752 11566 5601410010 13152 0ustar fnfcygnus/* BFD back-end for Motorola 88000 COFF "Binary Compatability Standard" files. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define M88 1 /* Customize various include files */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/m88k.h" #include "coff/internal.h" #include "libcoff.h" #undef HOWTO_PREPARE /* Provided the symbol, returns the value reffed */ #define HOWTO_PREPARE(relocation, symbol) \ { \ if (symbol != (asymbol *)NULL) { \ if (bfd_is_com_section (symbol->section)) { \ relocation = 0; \ } \ else { \ relocation = symbol->value; \ } \ } \ if (symbol->section != (asection *)NULL) { \ relocation += symbol->section->output_section->vma + \ symbol->section->output_offset; \ } \ } static bfd_reloc_status_type howto_hvrt16 (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; char **error_message; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_16(abfd, (bfd_byte *)data + addr); HOWTO_PREPARE(relocation, symbol_in); x = (x + relocation + reloc_entry->addend) >> 16; bfd_put_16(abfd, x, (bfd_byte *)data + addr); return bfd_reloc_ok; } static reloc_howto_type howto_table[] = { HOWTO(R_PCR16L,02,1,16,true, 0,complain_overflow_signed, 0, "PCR16L",false,0x0000ffff,0x0000ffff,true), HOWTO(R_PCR26L,02,2,26,true, 0,complain_overflow_signed, 0, "PCR26L",false,0x03ffffff,0x03ffffff,true), HOWTO(R_VRT16, 00,1,16,false,0,complain_overflow_bitfield, 0, "VRT16", false,0x0000ffff,0x0000ffff,true), HOWTO(R_HVRT16,16,1,16,false,0,complain_overflow_dont,howto_hvrt16,"HVRT16",false,0x0000ffff,0x0000ffff,true), HOWTO(R_LVRT16,00,1,16,false,0,complain_overflow_dont, 0, "LVRT16",false,0x0000ffff,0x0000ffff,true), HOWTO(R_VRT32, 00,2,32,false,0,complain_overflow_bitfield, 0, "VRT32", false,0xffffffff,0xffffffff,true), }; /* Code to swap in the reloc offset */ #define SWAP_IN_RELOC_OFFSET bfd_h_get_16 #define SWAP_OUT_RELOC_OFFSET bfd_h_put_16 /* Code to turn an external r_type into a pointer to an entry in the above howto table */ #define RTYPE2HOWTO(cache_ptr, dst) \ if ((dst)->r_type >= R_PCR16L && (dst)->r_type <= R_VRT32) {\ cache_ptr->howto = howto_table + (dst)->r_type - R_PCR16L;\ cache_ptr->addend += (dst)->r_offset << 16; \ } \ else { \ BFD_ASSERT(0); \ } #define BADMAG(x) MC88BADMAG(x) #include "coffcode.h" #undef coff_write_armap const bfd_target m88kbcs_vec = { "coff-m88kbcs", /* name */ bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* leading underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 3, /* default alignment power */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-mips.c 666 34562 1752 230011 5601614560 13357 0ustar fnfcygnus/* BFD back-end for MIPS Extended-Coff files. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Original version by Per Bothner. Full support added by Ian Lance Taylor, ian@cygnus.com. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #include "coff/internal.h" #include "coff/sym.h" #include "coff/symconst.h" #include "coff/ecoff.h" #include "coff/mips.h" #include "libcoff.h" #include "libecoff.h" /* Prototypes for static functions. */ static boolean mips_ecoff_bad_format_hook PARAMS ((bfd *abfd, PTR filehdr)); static void mips_ecoff_swap_reloc_in PARAMS ((bfd *, PTR, struct internal_reloc *)); static void mips_ecoff_swap_reloc_out PARAMS ((bfd *, const struct internal_reloc *, PTR)); static void mips_adjust_reloc_in PARAMS ((bfd *, const struct internal_reloc *, arelent *)); static void mips_adjust_reloc_out PARAMS ((bfd *, const arelent *, struct internal_reloc *)); static bfd_reloc_status_type mips_generic_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static bfd_reloc_status_type mips_refhi_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static bfd_reloc_status_type mips_reflo_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static bfd_reloc_status_type mips_gprel_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static bfd_reloc_status_type mips_relhi_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static bfd_reloc_status_type mips_rello_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static bfd_reloc_status_type mips_switch_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static void mips_relocate_hi PARAMS ((struct internal_reloc *refhi, struct internal_reloc *reflo, bfd *input_bfd, asection *input_section, bfd_byte *contents, size_t adjust, bfd_vma relocation, boolean pcrel)); static boolean mips_relocate_section PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *, PTR)); static boolean mips_relax_section PARAMS ((bfd *, asection *, struct bfd_link_info *, boolean *)); static boolean mips_relax_pcrel16 PARAMS ((struct bfd_link_info *, bfd *, asection *, struct ecoff_link_hash_entry *, bfd_byte *, bfd_vma)); /* ECOFF has COFF sections, but the debugging information is stored in a completely different format. ECOFF targets use some of the swapping routines from coffswap.h, and some of the generic COFF routines in coffgen.c, but, unlike the real COFF targets, do not use coffcode.h itself. Get the generic COFF swapping routines, except for the reloc, symbol, and lineno ones. Give them ECOFF names. */ #define MIPSECOFF #define NO_COFF_RELOCS #define NO_COFF_SYMBOLS #define NO_COFF_LINENOS #define coff_swap_filehdr_in mips_ecoff_swap_filehdr_in #define coff_swap_filehdr_out mips_ecoff_swap_filehdr_out #define coff_swap_aouthdr_in mips_ecoff_swap_aouthdr_in #define coff_swap_aouthdr_out mips_ecoff_swap_aouthdr_out #define coff_swap_scnhdr_in mips_ecoff_swap_scnhdr_in #define coff_swap_scnhdr_out mips_ecoff_swap_scnhdr_out #include "coffswap.h" /* Get the ECOFF swapping routines. */ #define ECOFF_32 #include "ecoffswap.h" /* How to process the various relocs types. */ static reloc_howto_type mips_howto_table[] = { /* Reloc type 0 is ignored. The reloc reading code ensures that this is a reference to the .abs section, which will cause bfd_perform_relocation to do nothing. */ HOWTO (MIPS_R_IGNORE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 8, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "IGNORE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* A 16 bit reference to a symbol, normally from a data section. */ HOWTO (MIPS_R_REFHALF, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ mips_generic_reloc, /* special_function */ "REFHALF", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* A 32 bit reference to a symbol, normally from a data section. */ HOWTO (MIPS_R_REFWORD, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ mips_generic_reloc, /* special_function */ "REFWORD", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* A 26 bit absolute jump address. */ HOWTO (MIPS_R_JMPADDR, /* type */ 2, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ /* This needs complex overflow detection, because the upper four bits must match the PC. */ mips_generic_reloc, /* special_function */ "JMPADDR", /* name */ true, /* partial_inplace */ 0x3ffffff, /* src_mask */ 0x3ffffff, /* dst_mask */ false), /* pcrel_offset */ /* The high 16 bits of a symbol value. Handled by the function mips_refhi_reloc. */ HOWTO (MIPS_R_REFHI, /* type */ 16, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ mips_refhi_reloc, /* special_function */ "REFHI", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* The low 16 bits of a symbol value. */ HOWTO (MIPS_R_REFLO, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ mips_reflo_reloc, /* special_function */ "REFLO", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* A reference to an offset from the gp register. Handled by the function mips_gprel_reloc. */ HOWTO (MIPS_R_GPREL, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ mips_gprel_reloc, /* special_function */ "GPREL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* A reference to a literal using an offset from the gp register. Handled by the function mips_gprel_reloc. */ HOWTO (MIPS_R_LITERAL, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ mips_gprel_reloc, /* special_function */ "LITERAL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ { 8 }, { 9 }, { 10 }, { 11 }, /* This reloc is a Cygnus extension used when generating position independent code for embedded systems. It represents a 16 bit PC relative reloc rightshifted twice as used in the MIPS branch instructions. */ HOWTO (MIPS_R_PCREL16, /* type */ 2, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ mips_generic_reloc, /* special_function */ "PCREL16", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ true), /* pcrel_offset */ /* This reloc is a Cygnus extension used when generating position independent code for embedded systems. It represents the high 16 bits of a PC relative reloc. The next reloc must be MIPS_R_RELLO, and the addend is formed from the addends of the two instructions, just as in MIPS_R_REFHI and MIPS_R_REFLO. The final value is actually PC relative to the location of the MIPS_R_RELLO reloc, not the MIPS_R_RELHI reloc. */ HOWTO (MIPS_R_RELHI, /* type */ 16, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ mips_relhi_reloc, /* special_function */ "RELHI", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ true), /* pcrel_offset */ /* This reloc is a Cygnus extension used when generating position independent code for embedded systems. It represents the low 16 bits of a PC relative reloc. */ HOWTO (MIPS_R_RELLO, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ mips_rello_reloc, /* special_function */ "RELLO", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ true), /* pcrel_offset */ { 15 }, { 16 }, { 17 }, { 18 }, { 19 }, { 20 }, { 21 }, /* This reloc is a Cygnus extension used when generating position independent code for embedded systems. It represents an entry in a switch table, which is the difference between two symbols in the .text section. The symndx is actually the offset from the reloc address to the subtrahend. See include/coff/mips.h for more details. */ HOWTO (MIPS_R_SWITCH, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ mips_switch_reloc, /* special_function */ "SWITCH", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ true) /* pcrel_offset */ }; #define MIPS_HOWTO_COUNT \ (sizeof mips_howto_table / sizeof mips_howto_table[0]) /* When the linker is doing relaxing, it may change a external PCREL16 reloc. This typically represents an instruction like bal foo We change it to .set noreorder bal $L1 lui $at,%hi(foo - $L1) $L1: addiu $at,%lo(foo - $L1) addu $at,$at,$31 jalr $at PCREL16_EXPANSION_ADJUSTMENT is the number of bytes this changes the instruction by. */ #define PCREL16_EXPANSION_ADJUSTMENT (4 * 4) /* See whether the magic number matches. */ static boolean mips_ecoff_bad_format_hook (abfd, filehdr) bfd *abfd; PTR filehdr; { struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr; switch (internal_f->f_magic) { case MIPS_MAGIC_1: /* I don't know what endianness this implies. */ return true; case MIPS_MAGIC_BIG: case MIPS_MAGIC_BIG2: case MIPS_MAGIC_BIG3: return abfd->xvec->byteorder_big_p; case MIPS_MAGIC_LITTLE: case MIPS_MAGIC_LITTLE2: case MIPS_MAGIC_LITTLE3: return abfd->xvec->byteorder_big_p == false; default: return false; } } /* Reloc handling. MIPS ECOFF relocs are packed into 8 bytes in external form. They use a bit which indicates whether the symbol is external. */ /* Swap a reloc in. */ static void mips_ecoff_swap_reloc_in (abfd, ext_ptr, intern) bfd *abfd; PTR ext_ptr; struct internal_reloc *intern; { const RELOC *ext = (RELOC *) ext_ptr; intern->r_vaddr = bfd_h_get_32 (abfd, (bfd_byte *) ext->r_vaddr); if (abfd->xvec->header_byteorder_big_p != false) { intern->r_symndx = (((int) ext->r_bits[0] << RELOC_BITS0_SYMNDX_SH_LEFT_BIG) | ((int) ext->r_bits[1] << RELOC_BITS1_SYMNDX_SH_LEFT_BIG) | ((int) ext->r_bits[2] << RELOC_BITS2_SYMNDX_SH_LEFT_BIG)); intern->r_type = ((ext->r_bits[3] & RELOC_BITS3_TYPE_BIG) >> RELOC_BITS3_TYPE_SH_BIG); intern->r_extern = (ext->r_bits[3] & RELOC_BITS3_EXTERN_BIG) != 0; } else { intern->r_symndx = (((int) ext->r_bits[0] << RELOC_BITS0_SYMNDX_SH_LEFT_LITTLE) | ((int) ext->r_bits[1] << RELOC_BITS1_SYMNDX_SH_LEFT_LITTLE) | ((int) ext->r_bits[2] << RELOC_BITS2_SYMNDX_SH_LEFT_LITTLE)); intern->r_type = (((ext->r_bits[3] & RELOC_BITS3_TYPE_LITTLE) >> RELOC_BITS3_TYPE_SH_LITTLE) | ((ext->r_bits[3] & RELOC_BITS3_TYPEHI_LITTLE) << RELOC_BITS3_TYPEHI_SH_LITTLE)); intern->r_extern = (ext->r_bits[3] & RELOC_BITS3_EXTERN_LITTLE) != 0; } /* If this is a MIPS_R_SWITCH reloc, or an internal MIPS_R_RELHI or MIPS_R_RELLO reloc, r_symndx is actually the offset from the reloc address to the base of the difference (see include/coff/mips.h for more details). We copy symndx into the r_offset field so as not to confuse ecoff_slurp_reloc_table in ecoff.c. In adjust_reloc_in we then copy r_offset into the reloc addend. */ if (intern->r_type == MIPS_R_SWITCH || (! intern->r_extern && (intern->r_type == MIPS_R_RELLO || intern->r_type == MIPS_R_RELHI))) { BFD_ASSERT (! intern->r_extern); intern->r_offset = intern->r_symndx; if (intern->r_offset & 0x800000) intern->r_offset -= 0x1000000; intern->r_symndx = RELOC_SECTION_TEXT; } } /* Swap a reloc out. */ static void mips_ecoff_swap_reloc_out (abfd, intern, dst) bfd *abfd; const struct internal_reloc *intern; PTR dst; { RELOC *ext = (RELOC *) dst; long r_symndx; BFD_ASSERT (intern->r_extern || (intern->r_symndx >= 0 && intern->r_symndx <= 12)); /* If this is a MIPS_R_SWITCH reloc, or an internal MIPS_R_RELLO or MIPS_R_RELHI reloc, we actually want to write the contents of r_offset out as the symbol index. This undoes the change made by mips_ecoff_swap_reloc_in. */ if (intern->r_type != MIPS_R_SWITCH && (intern->r_extern || (intern->r_type != MIPS_R_RELHI && intern->r_type != MIPS_R_RELLO))) r_symndx = intern->r_symndx; else { BFD_ASSERT (intern->r_symndx == RELOC_SECTION_TEXT); r_symndx = intern->r_offset & 0xffffff; } bfd_h_put_32 (abfd, intern->r_vaddr, (bfd_byte *) ext->r_vaddr); if (abfd->xvec->header_byteorder_big_p != false) { ext->r_bits[0] = r_symndx >> RELOC_BITS0_SYMNDX_SH_LEFT_BIG; ext->r_bits[1] = r_symndx >> RELOC_BITS1_SYMNDX_SH_LEFT_BIG; ext->r_bits[2] = r_symndx >> RELOC_BITS2_SYMNDX_SH_LEFT_BIG; ext->r_bits[3] = (((intern->r_type << RELOC_BITS3_TYPE_SH_BIG) & RELOC_BITS3_TYPE_BIG) | (intern->r_extern ? RELOC_BITS3_EXTERN_BIG : 0)); } else { ext->r_bits[0] = r_symndx >> RELOC_BITS0_SYMNDX_SH_LEFT_LITTLE; ext->r_bits[1] = r_symndx >> RELOC_BITS1_SYMNDX_SH_LEFT_LITTLE; ext->r_bits[2] = r_symndx >> RELOC_BITS2_SYMNDX_SH_LEFT_LITTLE; ext->r_bits[3] = (((intern->r_type << RELOC_BITS3_TYPE_SH_LITTLE) & RELOC_BITS3_TYPE_LITTLE) | ((intern->r_type >> RELOC_BITS3_TYPEHI_SH_LITTLE & RELOC_BITS3_TYPEHI_LITTLE)) | (intern->r_extern ? RELOC_BITS3_EXTERN_LITTLE : 0)); } } /* Finish canonicalizing a reloc. Part of this is generic to all ECOFF targets, and that part is in ecoff.c. The rest is done in this backend routine. It must fill in the howto field. */ static void mips_adjust_reloc_in (abfd, intern, rptr) bfd *abfd; const struct internal_reloc *intern; arelent *rptr; { if (intern->r_type > MIPS_R_SWITCH) abort (); if (! intern->r_extern && (intern->r_type == MIPS_R_GPREL || intern->r_type == MIPS_R_LITERAL)) rptr->addend += ecoff_data (abfd)->gp; /* If the type is MIPS_R_IGNORE, make sure this is a reference to the absolute section so that the reloc is ignored. */ if (intern->r_type == MIPS_R_IGNORE) rptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; /* If this is a MIPS_R_SWITCH reloc, or an internal MIPS_R_RELHI or MIPS_R_RELLO reloc, we want the addend field of the BFD relocto hold the value which was originally in the symndx field of the internal MIPS ECOFF reloc. This value was copied into intern->r_offset by mips_swap_reloc_in, and here we copy it into the addend field. */ if (intern->r_type == MIPS_R_SWITCH || (! intern->r_extern && (intern->r_type == MIPS_R_RELHI || intern->r_type == MIPS_R_RELLO))) rptr->addend = intern->r_offset; rptr->howto = &mips_howto_table[intern->r_type]; } /* Make any adjustments needed to a reloc before writing it out. None are needed for MIPS. */ static void mips_adjust_reloc_out (abfd, rel, intern) bfd *abfd; const arelent *rel; struct internal_reloc *intern; { /* For a MIPS_R_SWITCH reloc, or an internal MIPS_R_RELHI or MIPS_R_RELLO reloc, we must copy rel->addend into intern->r_offset. This will then be written out as the symbol index by mips_ecoff_swap_reloc_out. This operation parallels the action of mips_adjust_reloc_in. */ if (intern->r_type == MIPS_R_SWITCH || (! intern->r_extern && (intern->r_type == MIPS_R_RELHI || intern->r_type == MIPS_R_RELLO))) intern->r_offset = rel->addend; } /* ECOFF relocs are either against external symbols, or against sections. If we are producing relocateable output, and the reloc is against an external symbol, and nothing has given us any additional addend, the resulting reloc will also be against the same symbol. In such a case, we don't want to change anything about the way the reloc is handled, since it will all be done at final link time. Rather than put special case code into bfd_perform_relocation, all the reloc types use this howto function. It just short circuits the reloc if producing relocateable output against an external symbol. */ static bfd_reloc_status_type mips_generic_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { if (output_bfd != (bfd *) NULL && (symbol->flags & BSF_SECTION_SYM) == 0 && reloc_entry->addend == 0) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } return bfd_reloc_continue; } /* Do a REFHI relocation. This has to be done in combination with a REFLO reloc, because there is a carry from the REFLO to the REFHI. Here we just save the information we need; we do the actual relocation when we see the REFLO. MIPS ECOFF requires that the REFLO immediately follow the REFHI, so this ought to work. */ static bfd_byte *mips_refhi_addr; static bfd_vma mips_refhi_addend; static bfd_reloc_status_type mips_refhi_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { bfd_reloc_status_type ret; bfd_vma relocation; /* If we're relocating, and this an external symbol, we don't want to change anything. */ if (output_bfd != (bfd *) NULL && (symbol->flags & BSF_SECTION_SYM) == 0 && reloc_entry->addend == 0) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } ret = bfd_reloc_ok; if (bfd_is_und_section (symbol->section) && output_bfd == (bfd *) NULL) ret = bfd_reloc_undefined; if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; relocation += reloc_entry->addend; if (reloc_entry->address > input_section->_cooked_size) return bfd_reloc_outofrange; /* Save the information, and let REFLO do the actual relocation. */ mips_refhi_addr = (bfd_byte *) data + reloc_entry->address; mips_refhi_addend = relocation; if (output_bfd != (bfd *) NULL) reloc_entry->address += input_section->output_offset; return ret; } /* Do a REFLO relocation. This is a straightforward 16 bit inplace relocation; this function exists in order to do the REFHI relocation described above. */ static bfd_reloc_status_type mips_reflo_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { if (mips_refhi_addr != (bfd_byte *) NULL) { unsigned long insn; unsigned long val; unsigned long vallo; /* Do the REFHI relocation. Note that we actually don't need to know anything about the REFLO itself, except where to find the low 16 bits of the addend needed by the REFHI. */ insn = bfd_get_32 (abfd, mips_refhi_addr); vallo = (bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address) & 0xffff); val = ((insn & 0xffff) << 16) + vallo; val += mips_refhi_addend; /* The low order 16 bits are always treated as a signed value. Therefore, a negative value in the low order bits requires an adjustment in the high order bits. We need to make this adjustment in two ways: once for the bits we took from the data, and once for the bits we are putting back in to the data. */ if ((vallo & 0x8000) != 0) val -= 0x10000; if ((val & 0x8000) != 0) val += 0x10000; insn = (insn &~ 0xffff) | ((val >> 16) & 0xffff); bfd_put_32 (abfd, insn, mips_refhi_addr); mips_refhi_addr = (bfd_byte *) NULL; } /* Now do the REFLO reloc in the usual way. */ return mips_generic_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message); } /* Do a GPREL relocation. This is a 16 bit value which must become the offset from the gp register. */ static bfd_reloc_status_type mips_gprel_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { boolean relocateable; bfd_vma relocation; unsigned long val; unsigned long insn; /* If we're relocating, and this is an external symbol with no addend, we don't want to change anything. We will only have an addend if this is a newly created reloc, not read from an ECOFF file. */ if (output_bfd != (bfd *) NULL && (symbol->flags & BSF_SECTION_SYM) == 0 && reloc_entry->addend == 0) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } if (output_bfd != (bfd *) NULL) relocateable = true; else { relocateable = false; output_bfd = symbol->section->output_section->owner; } if (bfd_is_und_section (symbol->section) && relocateable == false) return bfd_reloc_undefined; /* We have to figure out the gp value, so that we can adjust the symbol value correctly. We look up the symbol _gp in the output BFD. If we can't find it, we're stuck. We cache it in the ECOFF target data. We don't need to adjust the symbol value for an external symbol if we are producing relocateable output. */ if (ecoff_data (output_bfd)->gp == 0 && (relocateable == false || (symbol->flags & BSF_SECTION_SYM) != 0)) { if (relocateable != false) { /* Make up a value. */ ecoff_data (output_bfd)->gp = symbol->section->output_section->vma + 0x4000; } else { unsigned int count; asymbol **sym; unsigned int i; count = bfd_get_symcount (output_bfd); sym = bfd_get_outsymbols (output_bfd); if (sym == (asymbol **) NULL) i = count; else { for (i = 0; i < count; i++, sym++) { register CONST char *name; name = bfd_asymbol_name (*sym); if (*name == '_' && strcmp (name, "_gp") == 0) { ecoff_data (output_bfd)->gp = bfd_asymbol_value (*sym); break; } } } if (i >= count) { /* Only get the error once. */ ecoff_data (output_bfd)->gp = 4; *error_message = (char *) "GP relative relocation when _gp not defined"; return bfd_reloc_dangerous; } } } if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; if (reloc_entry->address > input_section->_cooked_size) return bfd_reloc_outofrange; insn = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address); /* Set val to the offset into the section or symbol. */ val = ((insn & 0xffff) + reloc_entry->addend) & 0xffff; if (val & 0x8000) val -= 0x10000; /* Adjust val for the final section location and GP value. If we are producing relocateable output, we don't want to do this for an external symbol. */ if (relocateable == false || (symbol->flags & BSF_SECTION_SYM) != 0) val += relocation - ecoff_data (output_bfd)->gp; insn = (insn &~ 0xffff) | (val & 0xffff); bfd_put_32 (abfd, insn, (bfd_byte *) data + reloc_entry->address); if (relocateable != false) reloc_entry->address += input_section->output_offset; /* Make sure it fit in 16 bits. */ if (val >= 0x8000 && val < 0xffff8000) return bfd_reloc_overflow; return bfd_reloc_ok; } /* Do a RELHI relocation. We do this in conjunction with a RELLO reloc, just as REFHI and REFLO are done together. RELHI and RELLO are Cygnus extensions used when generating position independent code for embedded systems. */ static bfd_byte *mips_relhi_addr; static bfd_vma mips_relhi_addend; static bfd_reloc_status_type mips_relhi_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { bfd_reloc_status_type ret; bfd_vma relocation; /* If this is a reloc against a section symbol, then it is correct in the object file. The only time we want to change this case is when we are relaxing, and that is handled entirely by mips_relocate_section and never calls this function. */ if ((symbol->flags & BSF_SECTION_SYM) != 0) { if (output_bfd != (bfd *) NULL) reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } /* This is an external symbol. If we're relocating, we don't want to change anything. */ if (output_bfd != (bfd *) NULL) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } ret = bfd_reloc_ok; if (bfd_is_und_section (symbol->section) && output_bfd == (bfd *) NULL) ret = bfd_reloc_undefined; if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; relocation += reloc_entry->addend; if (reloc_entry->address > input_section->_cooked_size) return bfd_reloc_outofrange; /* Save the information, and let RELLO do the actual relocation. */ mips_relhi_addr = (bfd_byte *) data + reloc_entry->address; mips_relhi_addend = relocation; if (output_bfd != (bfd *) NULL) reloc_entry->address += input_section->output_offset; return ret; } /* Do a RELLO relocation. This is a straightforward 16 bit PC relative relocation; this function exists in order to do the RELHI relocation described above. */ static bfd_reloc_status_type mips_rello_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { if (mips_relhi_addr != (bfd_byte *) NULL) { unsigned long insn; unsigned long val; unsigned long vallo; /* Do the RELHI relocation. Note that we actually don't need to know anything about the RELLO itself, except where to find the low 16 bits of the addend needed by the RELHI. */ insn = bfd_get_32 (abfd, mips_relhi_addr); vallo = (bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address) & 0xffff); val = ((insn & 0xffff) << 16) + vallo; val += mips_relhi_addend; /* If the symbol is defined, make val PC relative. If the symbol is not defined we don't want to do this, because we don't want the value in the object file to incorporate the address of the reloc. */ if (! bfd_is_und_section (bfd_get_section (symbol)) && ! bfd_is_com_section (bfd_get_section (symbol))) val -= (input_section->output_section->vma + input_section->output_offset + reloc_entry->address); /* The low order 16 bits are always treated as a signed value. Therefore, a negative value in the low order bits requires an adjustment in the high order bits. We need to make this adjustment in two ways: once for the bits we took from the data, and once for the bits we are putting back in to the data. */ if ((vallo & 0x8000) != 0) val -= 0x10000; if ((val & 0x8000) != 0) val += 0x10000; insn = (insn &~ 0xffff) | ((val >> 16) & 0xffff); bfd_put_32 (abfd, insn, mips_relhi_addr); mips_relhi_addr = (bfd_byte *) NULL; } /* If this is a reloc against a section symbol, then it is correct in the object file. The only time we want to change this case is when we are relaxing, and that is handled entirely by mips_relocate_section and never calls this function. */ if ((symbol->flags & BSF_SECTION_SYM) != 0) { if (output_bfd != (bfd *) NULL) reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } /* bfd_perform_relocation does not handle pcrel_offset relocations correctly when generating a relocateable file, so handle them directly here. */ if (output_bfd != (bfd *) NULL) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } /* Now do the RELLO reloc in the usual way. */ return mips_generic_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message); } /* This is the special function for the MIPS_R_SWITCH reloc. This special reloc is normally correct in the object file, and only requires special handling when relaxing. We don't want bfd_perform_relocation to tamper with it at all. */ /*ARGSUSED*/ static bfd_reloc_status_type mips_switch_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { return bfd_reloc_ok; } /* Get the howto structure for a generic reloc type. */ static CONST struct reloc_howto_struct * mips_bfd_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { int mips_type; switch (code) { case BFD_RELOC_16: mips_type = MIPS_R_REFHALF; break; case BFD_RELOC_32: case BFD_RELOC_CTOR: mips_type = MIPS_R_REFWORD; break; case BFD_RELOC_MIPS_JMP: mips_type = MIPS_R_JMPADDR; break; case BFD_RELOC_HI16_S: mips_type = MIPS_R_REFHI; break; case BFD_RELOC_LO16: mips_type = MIPS_R_REFLO; break; case BFD_RELOC_MIPS_GPREL: mips_type = MIPS_R_GPREL; break; case BFD_RELOC_MIPS_LITERAL: mips_type = MIPS_R_LITERAL; break; case BFD_RELOC_16_PCREL_S2: mips_type = MIPS_R_PCREL16; break; case BFD_RELOC_PCREL_HI16_S: mips_type = MIPS_R_RELHI; break; case BFD_RELOC_PCREL_LO16: mips_type = MIPS_R_RELLO; break; case BFD_RELOC_GPREL32: mips_type = MIPS_R_SWITCH; break; default: return (CONST struct reloc_howto_struct *) NULL; } return &mips_howto_table[mips_type]; } /* A helper routine for mips_relocate_section which handles the REFHI and RELHI relocations. The REFHI relocation must be followed by a REFLO relocation (and RELHI by a RELLO), and the addend used is formed from the addends of both instructions. */ static void mips_relocate_hi (refhi, reflo, input_bfd, input_section, contents, adjust, relocation, pcrel) struct internal_reloc *refhi; struct internal_reloc *reflo; bfd *input_bfd; asection *input_section; bfd_byte *contents; size_t adjust; bfd_vma relocation; boolean pcrel; { unsigned long insn; unsigned long val; unsigned long vallo; insn = bfd_get_32 (input_bfd, contents + adjust + refhi->r_vaddr - input_section->vma); vallo = (bfd_get_32 (input_bfd, contents + adjust + reflo->r_vaddr - input_section->vma) & 0xffff); val = ((insn & 0xffff) << 16) + vallo; val += relocation; /* The low order 16 bits are always treated as a signed value. Therefore, a negative value in the low order bits requires an adjustment in the high order bits. We need to make this adjustment in two ways: once for the bits we took from the data, and once for the bits we are putting back in to the data. */ if ((vallo & 0x8000) != 0) val -= 0x10000; if (pcrel) val -= (input_section->output_section->vma + input_section->output_offset + (reflo->r_vaddr - input_section->vma + adjust)); if ((val & 0x8000) != 0) val += 0x10000; insn = (insn &~ 0xffff) | ((val >> 16) & 0xffff); bfd_put_32 (input_bfd, (bfd_vma) insn, contents + adjust + refhi->r_vaddr - input_section->vma); } /* Relocate a section while linking a MIPS ECOFF file. */ static boolean mips_relocate_section (output_bfd, info, input_bfd, input_section, contents, external_relocs) bfd *output_bfd; struct bfd_link_info *info; bfd *input_bfd; asection *input_section; bfd_byte *contents; PTR external_relocs; { asection **symndx_to_section; struct ecoff_link_hash_entry **sym_hashes; bfd_vma gp; boolean gp_undefined; size_t adjust; long *offsets; struct external_reloc *ext_rel; struct external_reloc *ext_rel_end; unsigned int i; boolean got_lo; struct internal_reloc lo_int_rel; BFD_ASSERT (input_bfd->xvec->header_byteorder_big_p == output_bfd->xvec->header_byteorder_big_p); /* We keep a table mapping the symndx found in an internal reloc to the appropriate section. This is faster than looking up the section by name each time. */ symndx_to_section = ecoff_data (input_bfd)->symndx_to_section; if (symndx_to_section == (asection **) NULL) { symndx_to_section = ((asection **) bfd_alloc (input_bfd, (NUM_RELOC_SECTIONS * sizeof (asection *)))); if (!symndx_to_section) { bfd_set_error (bfd_error_no_memory); return false; } symndx_to_section[RELOC_SECTION_NONE] = NULL; symndx_to_section[RELOC_SECTION_TEXT] = bfd_get_section_by_name (input_bfd, ".text"); symndx_to_section[RELOC_SECTION_RDATA] = bfd_get_section_by_name (input_bfd, ".rdata"); symndx_to_section[RELOC_SECTION_DATA] = bfd_get_section_by_name (input_bfd, ".data"); symndx_to_section[RELOC_SECTION_SDATA] = bfd_get_section_by_name (input_bfd, ".sdata"); symndx_to_section[RELOC_SECTION_SBSS] = bfd_get_section_by_name (input_bfd, ".sbss"); symndx_to_section[RELOC_SECTION_BSS] = bfd_get_section_by_name (input_bfd, ".bss"); symndx_to_section[RELOC_SECTION_INIT] = bfd_get_section_by_name (input_bfd, ".init"); symndx_to_section[RELOC_SECTION_LIT8] = bfd_get_section_by_name (input_bfd, ".lit8"); symndx_to_section[RELOC_SECTION_LIT4] = bfd_get_section_by_name (input_bfd, ".lit4"); symndx_to_section[RELOC_SECTION_XDATA] = NULL; symndx_to_section[RELOC_SECTION_PDATA] = NULL; symndx_to_section[RELOC_SECTION_FINI] = bfd_get_section_by_name (input_bfd, ".fini"); symndx_to_section[RELOC_SECTION_LITA] = NULL; symndx_to_section[RELOC_SECTION_ABS] = NULL; ecoff_data (input_bfd)->symndx_to_section = symndx_to_section; } sym_hashes = ecoff_data (input_bfd)->sym_hashes; gp = ecoff_data (output_bfd)->gp; if (gp == 0) gp_undefined = true; else gp_undefined = false; got_lo = false; adjust = 0; if (ecoff_section_data (input_bfd, input_section) == NULL) offsets = NULL; else offsets = ecoff_section_data (input_bfd, input_section)->offsets; ext_rel = (struct external_reloc *) external_relocs; ext_rel_end = ext_rel + input_section->reloc_count; for (i = 0; ext_rel < ext_rel_end; ext_rel++, i++) { struct internal_reloc int_rel; bfd_vma addend; reloc_howto_type *howto; struct ecoff_link_hash_entry *h = NULL; asection *s = NULL; bfd_vma relocation; bfd_reloc_status_type r; if (! got_lo) mips_ecoff_swap_reloc_in (input_bfd, (PTR) ext_rel, &int_rel); else { int_rel = lo_int_rel; got_lo = false; } BFD_ASSERT (int_rel.r_type < sizeof mips_howto_table / sizeof mips_howto_table[0]); /* The REFHI and RELHI relocs requires special handling. they must be followed by a REFLO or RELLO reloc, respectively, and the addend is formed from both relocs. */ if (int_rel.r_type == MIPS_R_REFHI || int_rel.r_type == MIPS_R_RELHI) { BFD_ASSERT ((ext_rel + 1) < ext_rel_end); mips_ecoff_swap_reloc_in (input_bfd, (PTR) (ext_rel + 1), &lo_int_rel); BFD_ASSERT ((lo_int_rel.r_type == (int_rel.r_type == MIPS_R_REFHI ? MIPS_R_REFLO : MIPS_R_RELLO)) && int_rel.r_extern == lo_int_rel.r_extern && int_rel.r_symndx == lo_int_rel.r_symndx); got_lo = true; } howto = &mips_howto_table[int_rel.r_type]; /* The SWITCH reloc must be handled specially. This reloc is marks the location of a difference between two portions of an object file. The symbol index does not reference a symbol, but is actually the offset from the reloc to the subtrahend of the difference. This reloc is correct in the object file, and needs no further adjustment, unless we are relaxing. If we are relaxing, we may have to add in an offset. Since no symbols are involved in this reloc, we handle it completely here. */ if (int_rel.r_type == MIPS_R_SWITCH) { if (offsets != NULL && offsets[i] != 0) { r = _bfd_relocate_contents (howto, input_bfd, (bfd_vma) offsets[i], (contents + adjust + int_rel.r_vaddr - input_section->vma)); BFD_ASSERT (r == bfd_reloc_ok); } continue; } if (int_rel.r_extern) { h = sym_hashes[int_rel.r_symndx]; /* If h is NULL, that means that there is a reloc against an external symbol which we thought was just a debugging symbol. This should not happen. */ if (h == (struct ecoff_link_hash_entry *) NULL) abort (); } else { if (int_rel.r_symndx < 0 || int_rel.r_symndx >= NUM_RELOC_SECTIONS) s = NULL; else s = symndx_to_section[int_rel.r_symndx]; if (s == (asection *) NULL) abort (); } /* The GPREL reloc uses an addend: the difference in the GP values. */ if (int_rel.r_type != MIPS_R_GPREL && int_rel.r_type != MIPS_R_LITERAL) addend = 0; else { if (gp_undefined) { if (! ((*info->callbacks->reloc_dangerous) (info, "GP relative relocation when GP not defined", input_bfd, input_section, int_rel.r_vaddr - input_section->vma))) return false; /* Only give the error once per link. */ ecoff_data (output_bfd)->gp = gp = 4; gp_undefined = false; } if (! int_rel.r_extern) { /* This is a relocation against a section. The current addend in the instruction is the difference between INPUT_SECTION->vma and the GP value of INPUT_BFD. We must change this to be the difference between the final definition (which will end up in RELOCATION) and the GP value of OUTPUT_BFD (which is in GP). */ addend = ecoff_data (input_bfd)->gp - gp; } else if (! info->relocateable || h->root.type == bfd_link_hash_defined) { /* This is a relocation against an undefined or common symbol. The current addend in the instruction is simply the desired offset into the symbol (normally zero). We are going to change this into a relocation against a defined symbol, so we want the instruction to hold the difference between the final definition of the symbol (which will end up in RELOCATION) and the GP value of OUTPUT_BFD (which is in GP). */ addend = - gp; } else { /* This is a relocation against an undefined or common symbol. The current addend in the instruction is simply the desired offset into the symbol (normally zero). We are generating relocateable output, and we aren't going to define this symbol, so we just leave the instruction alone. */ addend = 0; } } /* If we are relaxing, mips_relax_section may have set offsets[i] to some value. A value of 1 means we must expand a PC relative branch into a multi-instruction of sequence, and any other value is an addend. */ if (offsets != NULL && offsets[i] != 0) { BFD_ASSERT (! info->relocateable); BFD_ASSERT (int_rel.r_type == MIPS_R_PCREL16 || int_rel.r_type == MIPS_R_RELHI || int_rel.r_type == MIPS_R_RELLO); if (offsets[i] != 1) addend += offsets[i]; else { bfd_byte *here; BFD_ASSERT (int_rel.r_extern && int_rel.r_type == MIPS_R_PCREL16); /* Move the rest of the instructions up. */ here = (contents + adjust + int_rel.r_vaddr - input_section->vma); memmove (here + PCREL16_EXPANSION_ADJUSTMENT, here, (input_section->_raw_size - (int_rel.r_vaddr - input_section->vma))); /* Generate the new instructions. */ if (! mips_relax_pcrel16 (info, input_bfd, input_section, h, here, (input_section->output_section->vma + input_section->output_offset + (int_rel.r_vaddr - input_section->vma) + adjust))) return false; /* We must adjust everything else up a notch. */ adjust += PCREL16_EXPANSION_ADJUSTMENT; /* mips_relax_pcrel16 handles all the details of this relocation. */ continue; } } /* If we are relaxing, and this is a reloc against the .text segment, we may need to adjust it if some branches have been expanded. The reloc types which are likely to occur in the .text section are handled efficiently by mips_relax_section, and thus do not need to be handled here. */ if (ecoff_data (input_bfd)->debug_info.adjust != NULL && ! int_rel.r_extern && int_rel.r_symndx == RELOC_SECTION_TEXT && (strcmp (bfd_get_section_name (input_bfd, input_section), ".text") != 0 || (int_rel.r_type != MIPS_R_PCREL16 && int_rel.r_type != MIPS_R_SWITCH && int_rel.r_type != MIPS_R_RELHI && int_rel.r_type != MIPS_R_RELLO))) { bfd_vma adr; struct ecoff_value_adjust *a; /* We need to get the addend so that we know whether we need to adjust the address. */ BFD_ASSERT (int_rel.r_type == MIPS_R_REFWORD); adr = bfd_get_32 (input_bfd, (contents + adjust + int_rel.r_vaddr - input_section->vma)); for (a = ecoff_data (input_bfd)->debug_info.adjust; a != (struct ecoff_value_adjust *) NULL; a = a->next) { if (adr >= a->start && adr < a->end) addend += a->adjust; } } if (info->relocateable) { /* We are generating relocateable output, and must convert the existing reloc. */ if (int_rel.r_extern) { if (h->root.type == bfd_link_hash_defined) { const char *name; /* This symbol is defined in the output. Convert the reloc from being against the symbol to being against the section. */ /* Clear the r_extern bit. */ int_rel.r_extern = 0; /* Compute a new r_symndx value. */ s = h->root.u.def.section; name = bfd_get_section_name (output_bfd, s->output_section); int_rel.r_symndx = -1; switch (name[1]) { case 'b': if (strcmp (name, ".bss") == 0) int_rel.r_symndx = RELOC_SECTION_BSS; break; case 'd': if (strcmp (name, ".data") == 0) int_rel.r_symndx = RELOC_SECTION_DATA; break; case 'f': if (strcmp (name, ".fini") == 0) int_rel.r_symndx = RELOC_SECTION_FINI; break; case 'i': if (strcmp (name, ".init") == 0) int_rel.r_symndx = RELOC_SECTION_INIT; break; case 'l': if (strcmp (name, ".lit8") == 0) int_rel.r_symndx = RELOC_SECTION_LIT8; else if (strcmp (name, ".lit4") == 0) int_rel.r_symndx = RELOC_SECTION_LIT4; break; case 'r': if (strcmp (name, ".rdata") == 0) int_rel.r_symndx = RELOC_SECTION_RDATA; break; case 's': if (strcmp (name, ".sdata") == 0) int_rel.r_symndx = RELOC_SECTION_SDATA; else if (strcmp (name, ".sbss") == 0) int_rel.r_symndx = RELOC_SECTION_SBSS; break; case 't': if (strcmp (name, ".text") == 0) int_rel.r_symndx = RELOC_SECTION_TEXT; break; } if (int_rel.r_symndx == -1) abort (); /* Add the section VMA and the symbol value. */ relocation = (h->root.u.def.value + s->output_section->vma + s->output_offset); /* For a PC relative relocation, the object file currently holds just the addend. We must adjust by the address to get the right value. */ if (howto->pc_relative) { relocation -= int_rel.r_vaddr - input_section->vma; /* If we are converting a RELHI or RELLO reloc from being against an external symbol to being against a section, we must put a special value into the r_offset field. This value is the old addend. The r_offset for both the RELOHI and RELLO relocs are the same, and we set both when we see RELHI. */ if (int_rel.r_type == MIPS_R_RELHI) { long addhi, addlo; addhi = bfd_get_32 (input_bfd, (contents + adjust + int_rel.r_vaddr - input_section->vma)); addhi &= 0xffff; if (addhi & 0x8000) addhi -= 0x10000; addhi <<= 16; addlo = bfd_get_32 (input_bfd, (contents + adjust + lo_int_rel.r_vaddr - input_section->vma)); addlo &= 0xffff; if (addlo & 0x8000) addlo -= 0x10000; int_rel.r_offset = addhi + addlo; lo_int_rel.r_offset = int_rel.r_offset; } } h = NULL; } else { /* Change the symndx value to the right one for the output BFD. */ int_rel.r_symndx = h->indx; if (int_rel.r_symndx == -1) { /* This symbol is not being written out. */ if (! ((*info->callbacks->unattached_reloc) (info, h->root.root.string, input_bfd, input_section, int_rel.r_vaddr - input_section->vma))) return false; int_rel.r_symndx = 0; } relocation = 0; } } else { /* This is a relocation against a section. Adjust the value by the amount the section moved. */ relocation = (s->output_section->vma + s->output_offset - s->vma); } relocation += addend; addend = 0; /* Adjust a PC relative relocation by removing the reference to the original address in the section and including the reference to the new address. However, external RELHI and RELLO relocs are PC relative, but don't include any reference to the address. The addend is merely an addend. */ if (howto->pc_relative && (! int_rel.r_extern || (int_rel.r_type != MIPS_R_RELHI && int_rel.r_type != MIPS_R_RELLO))) relocation -= (input_section->output_section->vma + input_section->output_offset - input_section->vma); /* Adjust the contents. */ if (relocation == 0) r = bfd_reloc_ok; else { if (int_rel.r_type != MIPS_R_REFHI && int_rel.r_type != MIPS_R_RELHI) r = _bfd_relocate_contents (howto, input_bfd, relocation, (contents + adjust + int_rel.r_vaddr - input_section->vma)); else { mips_relocate_hi (&int_rel, &lo_int_rel, input_bfd, input_section, contents, adjust, relocation, int_rel.r_type == MIPS_R_RELHI); r = bfd_reloc_ok; } } /* Adjust the reloc address. */ int_rel.r_vaddr += (input_section->output_section->vma + input_section->output_offset - input_section->vma); /* Save the changed reloc information. */ mips_ecoff_swap_reloc_out (input_bfd, &int_rel, (PTR) ext_rel); } else { /* We are producing a final executable. */ if (int_rel.r_extern) { /* This is a reloc against a symbol. */ if (h->root.type == bfd_link_hash_defined) { asection *hsec; hsec = h->root.u.def.section; relocation = (h->root.u.def.value + hsec->output_section->vma + hsec->output_offset); } else { if (! ((*info->callbacks->undefined_symbol) (info, h->root.root.string, input_bfd, input_section, int_rel.r_vaddr - input_section->vma))) return false; relocation = 0; } } else { /* This is a reloc against a section. */ relocation = (s->output_section->vma + s->output_offset - s->vma); /* A PC relative reloc is already correct in the object file. Make it look like a pcrel_offset relocation by adding in the start address. */ if (howto->pc_relative) { if (int_rel.r_type != MIPS_R_RELHI) relocation += int_rel.r_vaddr + adjust; else relocation += lo_int_rel.r_vaddr + adjust; } } if (int_rel.r_type != MIPS_R_REFHI && int_rel.r_type != MIPS_R_RELHI) r = _bfd_final_link_relocate (howto, input_bfd, input_section, contents, (int_rel.r_vaddr - input_section->vma + adjust), relocation, addend); else { mips_relocate_hi (&int_rel, &lo_int_rel, input_bfd, input_section, contents, adjust, relocation, int_rel.r_type == MIPS_R_RELHI); r = bfd_reloc_ok; } } /* MIPS_R_JMPADDR requires peculiar overflow detection. The instruction provides a 28 bit address (the two lower bits are implicit zeroes) which is combined with the upper four bits of the instruction address. */ if (r == bfd_reloc_ok && int_rel.r_type == MIPS_R_JMPADDR && (((relocation + addend + (int_rel.r_extern ? 0 : s->vma)) & 0xf0000000) != ((input_section->output_section->vma + input_section->output_offset + (int_rel.r_vaddr - input_section->vma) + adjust) & 0xf0000000))) r = bfd_reloc_overflow; if (r != bfd_reloc_ok) { switch (r) { default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: { const char *name; if (int_rel.r_extern) name = h->root.root.string; else name = bfd_section_name (input_bfd, s); if (! ((*info->callbacks->reloc_overflow) (info, name, howto->name, (bfd_vma) 0, input_bfd, input_section, int_rel.r_vaddr - input_section->vma))) return false; } break; } } } return true; } /* Relax a section when linking a MIPS ECOFF file. This is used for embedded PIC code, which always uses PC relative branches which only have an 18 bit range on MIPS. If a branch is not in range, we generate a long instruction sequence to compensate. Each time we find a branch to expand, we have to check all the others again to make sure they are still in range. This is slow, but it only has to be done when -relax is passed to the linker. This routine figures out which branches need to expand; the actual expansion is done in mips_relocate_section when the section contents are relocated. The information is stored in the offsets field of the ecoff_section_tdata structure. An offset of 1 means that the branch must be expanded into a multi-instruction PC relative branch (such an offset will only occur for a PC relative branch to an external symbol). Any other offset must be a multiple of four, and is the amount to change the branch by (such an offset will only occur for a PC relative branch within the same section). We do not modify the section relocs or contents themselves so that if memory usage becomes an issue we can discard them and read them again. The only information we must save in memory between this routine and the mips_relocate_section routine is the table of offsets. */ static boolean mips_relax_section (abfd, sec, info, again) bfd *abfd; asection *sec; struct bfd_link_info *info; boolean *again; { struct ecoff_section_tdata *section_tdata; bfd_byte *contents = NULL; long *offsets; struct external_reloc *ext_rel; struct external_reloc *ext_rel_end; unsigned int i; /* Assume we are not going to need another pass. */ *again = false; /* If we are not generating an ECOFF file, this is much too confusing to deal with. */ if (info->hash->creator->flavour != bfd_get_flavour (abfd)) return true; /* If there are no relocs, there is nothing to do. */ if (sec->reloc_count == 0) return true; /* We are only interested in PC relative relocs, and why would there ever be one from anything but the .text section? */ if (strcmp (bfd_get_section_name (abfd, sec), ".text") != 0) return true; /* Read in the relocs, if we haven't already got them. */ section_tdata = ecoff_section_data (abfd, sec); if (section_tdata == (struct ecoff_section_tdata *) NULL) { bfd_size_type external_reloc_size; bfd_size_type external_relocs_size; sec->used_by_bfd = (PTR) bfd_alloc_by_size_t (abfd, sizeof (struct ecoff_section_tdata)); if (sec->used_by_bfd == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } section_tdata = ecoff_section_data (abfd, sec); section_tdata->contents = NULL; section_tdata->offsets = NULL; external_reloc_size = ecoff_backend (abfd)->external_reloc_size; external_relocs_size = external_reloc_size * sec->reloc_count; section_tdata->external_relocs = (PTR) bfd_alloc (abfd, external_relocs_size); if (section_tdata->external_relocs == NULL && external_relocs_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (abfd, sec->rel_filepos, SEEK_SET) != 0 || (bfd_read (section_tdata->external_relocs, 1, external_relocs_size, abfd) != external_relocs_size)) goto error_return; /* We must initialize _cooked_size only the first time we are called. */ sec->_cooked_size = sec->_raw_size; } contents = section_tdata->contents; offsets = section_tdata->offsets; /* Look for any external PC relative relocs. Internal PC relative relocs are already correct in the object file, so they certainly can not overflow. */ ext_rel = (struct external_reloc *) section_tdata->external_relocs; ext_rel_end = ext_rel + sec->reloc_count; for (i = 0; ext_rel < ext_rel_end; ext_rel++, i++) { struct internal_reloc int_rel; struct ecoff_link_hash_entry *h; asection *hsec; bfd_signed_vma relocation; struct external_reloc *adj_ext_rel; unsigned int adj_i; unsigned long ext_count; struct ecoff_link_hash_entry **adj_h_ptr; struct ecoff_link_hash_entry **adj_h_ptr_end; struct ecoff_value_adjust *adjust; /* If we have already expanded this reloc, we certainly don't need to do it again. */ if (offsets != (long *) NULL && offsets[i] == 1) continue; /* Quickly check that this reloc is external PCREL16. */ if (abfd->xvec->header_byteorder_big_p) { if ((ext_rel->r_bits[3] & RELOC_BITS3_EXTERN_BIG) == 0 || (((ext_rel->r_bits[3] & RELOC_BITS3_TYPE_BIG) >> RELOC_BITS3_TYPE_SH_BIG) != MIPS_R_PCREL16)) continue; } else { if ((ext_rel->r_bits[3] & RELOC_BITS3_EXTERN_LITTLE) == 0 || (((ext_rel->r_bits[3] & RELOC_BITS3_TYPE_LITTLE) >> RELOC_BITS3_TYPE_SH_LITTLE) != MIPS_R_PCREL16)) continue; } mips_ecoff_swap_reloc_in (abfd, (PTR) ext_rel, &int_rel); h = ecoff_data (abfd)->sym_hashes[int_rel.r_symndx]; if (h == (struct ecoff_link_hash_entry *) NULL) abort (); if (h->root.type != bfd_link_hash_defined) { /* Just ignore undefined symbols. These will presumably generate an error later in the link. */ continue; } /* Get the value of the symbol. */ hsec = h->root.u.def.section; relocation = (h->root.u.def.value + hsec->output_section->vma + hsec->output_offset); /* Subtract out the current address. */ relocation -= (sec->output_section->vma + sec->output_offset + (int_rel.r_vaddr - sec->vma)); /* The addend is stored in the object file. In the normal case of ``bal symbol'', the addend will be -4. It will only be different in the case of ``bal symbol+constant''. To avoid always reading in the section contents, we don't check the addend in the object file (we could easily check the contents if we happen to have already read them in, but I fear that this could be confusing). This means we will screw up if there is a branch to a symbol that is in range, but added to a constant which puts it out of range; in such a case the link will fail with a reloc overflow error. Since the compiler will never generate such code, it should be easy enough to work around it by changing the assembly code in the source file. */ relocation -= 4; /* Now RELOCATION is the number we want to put in the object file. See whether it fits. */ if (relocation >= -0x20000 && relocation < 0x20000) continue; /* Now that we know this reloc needs work, which will rarely happen, go ahead and grab the section contents. */ if (contents == (bfd_byte *) NULL) { if (info->keep_memory) contents = (bfd_byte *) bfd_alloc (abfd, sec->_raw_size); else contents = (bfd_byte *) malloc (sec->_raw_size); if (contents == (bfd_byte *) NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (! bfd_get_section_contents (abfd, sec, (PTR) contents, (file_ptr) 0, sec->_raw_size)) goto error_return; if (info->keep_memory) section_tdata->contents = contents; } /* We only support changing the bal instruction. It would be possible to handle other PC relative branches, but some of them (the conditional branches) would require a different length instruction sequence which would complicate both this routine and mips_relax_pcrel16. It could be written if somebody felt it were important. Ignoring this reloc will presumably cause a reloc overflow error later on. */ if (bfd_get_32 (abfd, contents + int_rel.r_vaddr - sec->vma) != 0x0411ffff) /* bgezal $0,. == bal . */ continue; /* Bother. We need to expand this reloc, and we will need to make another relaxation pass since this change may put other relocs out of range. We need to examine the local branches and we need to allocate memory to hold the offsets we must add to them. We also need to adjust the values of all symbols in the object file following this location. */ sec->_cooked_size += PCREL16_EXPANSION_ADJUSTMENT; *again = true; if (offsets == (long *) NULL) { size_t size; size = sec->reloc_count * sizeof (long); offsets = (long *) bfd_alloc_by_size_t (abfd, size); if (offsets == (long *) NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } memset (offsets, 0, size); section_tdata->offsets = offsets; } offsets[i] = 1; /* Now look for all PC relative references that cross this reloc and adjust their offsets. */ adj_ext_rel = (struct external_reloc *) section_tdata->external_relocs; for (adj_i = 0; adj_ext_rel < ext_rel_end; adj_ext_rel++, adj_i++) { struct internal_reloc adj_int_rel; bfd_vma start, stop; int change; mips_ecoff_swap_reloc_in (abfd, (PTR) adj_ext_rel, &adj_int_rel); if (adj_int_rel.r_type == MIPS_R_PCREL16) { unsigned long insn; /* We only care about local references. External ones will be relocated correctly anyhow. */ if (adj_int_rel.r_extern) continue; /* We are only interested in a PC relative reloc within this section. FIXME: Cross section PC relative relocs may not be handled correctly; does anybody care? */ if (adj_int_rel.r_symndx != RELOC_SECTION_TEXT) continue; start = adj_int_rel.r_vaddr; insn = bfd_get_32 (abfd, contents + adj_int_rel.r_vaddr - sec->vma); stop = (insn & 0xffff) << 2; if ((stop & 0x20000) != 0) stop -= 0x40000; stop += adj_int_rel.r_vaddr + 4; } else if (adj_int_rel.r_type == MIPS_R_RELHI) { struct internal_reloc rello; long addhi, addlo; /* The next reloc must be MIPS_R_RELLO, and we handle them together. */ BFD_ASSERT (adj_ext_rel + 1 < ext_rel_end); mips_ecoff_swap_reloc_in (abfd, (PTR) (adj_ext_rel + 1), &rello); BFD_ASSERT (rello.r_type == MIPS_R_RELLO); addhi = bfd_get_32 (abfd, contents + adj_int_rel.r_vaddr - sec->vma); addhi &= 0xffff; if (addhi & 0x8000) addhi -= 0x10000; addhi <<= 16; addlo = bfd_get_32 (abfd, contents + rello.r_vaddr - sec->vma); addlo &= 0xffff; if (addlo & 0x8000) addlo -= 0x10000; if (adj_int_rel.r_extern) { /* The value we want here is sym - RELLOaddr + addend which we can express as sym - (RELLOaddr - addend) Therefore if we are expanding the area between RELLOaddr and RELLOaddr - addend we must adjust the addend. This is admittedly ambiguous, since we might mean (sym + addend) - RELLOaddr, but in practice we don't, and there is no way to handle that case correctly since at this point we have no idea whether any reloc is being expanded between sym and sym + addend. */ start = rello.r_vaddr - (addhi + addlo); stop = rello.r_vaddr; } else { /* An internal RELHI/RELLO pair represents the difference between two addresses, $LC0 - foo. The symndx value is actually the difference between the reloc address and $LC0. This lets us compute $LC0, and, by considering the addend, foo. If the reloc we are expanding falls between those two relocs, we must adjust the addend. At this point, the symndx value is actually in the r_offset field, where it was put by mips_ecoff_swap_reloc_in. */ start = rello.r_vaddr - adj_int_rel.r_offset; stop = start + addhi + addlo; } } else if (adj_int_rel.r_type == MIPS_R_SWITCH) { /* A MIPS_R_SWITCH reloc represents a word of the form .word $L3-$LS12 The value in the object file is correct, assuming the original value of $L3. The symndx value is actually the difference between the reloc address and $LS12. This lets us compute the original value of $LS12 as vaddr - symndx and the original value of $L3 as vaddr - symndx + addend where addend is the value from the object file. At this point, the symndx value is actually found in the r_offset field, since it was moved by mips_ecoff_swap_reloc_in. */ start = adj_int_rel.r_vaddr - adj_int_rel.r_offset; stop = start + bfd_get_32 (abfd, (contents + adj_int_rel.r_vaddr - sec->vma)); } else continue; /* If the range expressed by this reloc, which is the distance between START and STOP crosses the reloc we are expanding, we must adjust the offset. The sign of the adjustment depends upon the direction in which the range crosses the reloc being expanded. */ if (start <= int_rel.r_vaddr && stop > int_rel.r_vaddr) change = PCREL16_EXPANSION_ADJUSTMENT; else if (start > int_rel.r_vaddr && stop <= int_rel.r_vaddr) change = - PCREL16_EXPANSION_ADJUSTMENT; else change = 0; offsets[adj_i] += change; if (adj_int_rel.r_type == MIPS_R_RELHI) { adj_ext_rel++; adj_i++; offsets[adj_i] += change; } } /* Find all symbols in this section defined by this object file and adjust their values. Note that we decide whether to adjust the value based on the value stored in the ECOFF EXTR structure, because the value stored in the hash table may have been changed by an earlier expanded reloc and thus may no longer correctly indicate whether the symbol is before or after the expanded reloc. */ ext_count = ecoff_data (abfd)->debug_info.symbolic_header.iextMax; adj_h_ptr = ecoff_data (abfd)->sym_hashes; adj_h_ptr_end = adj_h_ptr + ext_count; for (; adj_h_ptr < adj_h_ptr_end; adj_h_ptr++) { struct ecoff_link_hash_entry *adj_h; adj_h = *adj_h_ptr; if (adj_h != (struct ecoff_link_hash_entry *) NULL && adj_h->root.type == bfd_link_hash_defined && adj_h->root.u.def.section == sec && adj_h->esym.asym.value > int_rel.r_vaddr) adj_h->root.u.def.value += PCREL16_EXPANSION_ADJUSTMENT; } /* Add an entry to the symbol value adjust list. This is used by bfd_ecoff_debug_accumulate to adjust the values of internal symbols and FDR's. */ adjust = ((struct ecoff_value_adjust *) bfd_alloc (abfd, sizeof (struct ecoff_value_adjust))); if (adjust == (struct ecoff_value_adjust *) NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } adjust->start = int_rel.r_vaddr; adjust->end = sec->vma + sec->_raw_size; adjust->adjust = PCREL16_EXPANSION_ADJUSTMENT; adjust->next = ecoff_data (abfd)->debug_info.adjust; ecoff_data (abfd)->debug_info.adjust = adjust; } if (contents != (bfd_byte *) NULL && ! info->keep_memory) free (contents); return true; error_return: if (contents != (bfd_byte *) NULL && ! info->keep_memory) free (contents); return false; } /* This routine is called from mips_relocate_section when a PC relative reloc must be expanded into the five instruction sequence. It handles all the details of the expansion, including resolving the reloc. */ static boolean mips_relax_pcrel16 (info, input_bfd, input_section, h, location, address) struct bfd_link_info *info; bfd *input_bfd; asection *input_section; struct ecoff_link_hash_entry *h; bfd_byte *location; bfd_vma address; { bfd_vma relocation; /* 0x0411ffff is bgezal $0,. == bal . */ BFD_ASSERT (bfd_get_32 (input_bfd, location) == 0x0411ffff); /* We need to compute the distance between the symbol and the current address plus eight. */ relocation = (h->root.u.def.value + h->root.u.def.section->output_section->vma + h->root.u.def.section->output_offset); relocation -= address + 8; /* If the lower half is negative, increment the upper 16 half. */ if ((relocation & 0x8000) != 0) relocation += 0x10000; bfd_put_32 (input_bfd, 0x04110001, location); /* bal .+8 */ bfd_put_32 (input_bfd, 0x3c010000 | ((relocation >> 16) & 0xffff), /* lui $at,XX */ location + 4); bfd_put_32 (input_bfd, 0x24210000 | (relocation & 0xffff), /* addiu $at,$at,XX */ location + 8); bfd_put_32 (input_bfd, 0x003f0821, location + 12); /* addu $at,$at,$ra */ bfd_put_32 (input_bfd, 0x0020f809, location + 16); /* jalr $at */ return true; } /* This is the ECOFF backend structure. The backend field of the target vector points to this. */ static const struct ecoff_backend_data mips_ecoff_backend_data = { /* COFF backend structure. */ { (void (*) PARAMS ((bfd *,PTR,int,int,int,int,PTR))) bfd_void, /* aux_in */ (void (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* sym_in */ (void (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* lineno_in */ (unsigned (*) PARAMS ((bfd *,PTR,int,int,int,int,PTR)))bfd_void,/*aux_out*/ (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* sym_out */ (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* lineno_out */ (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* reloc_out */ mips_ecoff_swap_filehdr_out, mips_ecoff_swap_aouthdr_out, mips_ecoff_swap_scnhdr_out, FILHSZ, AOUTSZ, SCNHSZ, 0, 0, 0, true, mips_ecoff_swap_filehdr_in, mips_ecoff_swap_aouthdr_in, mips_ecoff_swap_scnhdr_in, mips_ecoff_bad_format_hook, _bfd_ecoff_set_arch_mach_hook, _bfd_ecoff_mkobject_hook, _bfd_ecoff_styp_to_sec_flags, _bfd_ecoff_make_section_hook, _bfd_ecoff_set_alignment_hook, _bfd_ecoff_slurp_symbol_table, NULL, NULL }, /* Supported architecture. */ bfd_arch_mips, /* Initial portion of armap string. */ "__________", /* The page boundary used to align sections in a demand-paged executable file. E.g., 0x1000. */ 0x1000, /* True if the .rdata section is part of the text segment, as on the Alpha. False if .rdata is part of the data segment, as on the MIPS. */ false, /* Bitsize of constructor entries. */ 32, /* Reloc to use for constructor entries. */ &mips_howto_table[MIPS_R_REFWORD], { /* Symbol table magic number. */ magicSym, /* Alignment of debugging information. E.g., 4. */ 4, /* Sizes of external symbolic information. */ sizeof (struct hdr_ext), sizeof (struct dnr_ext), sizeof (struct pdr_ext), sizeof (struct sym_ext), sizeof (struct opt_ext), sizeof (struct fdr_ext), sizeof (struct rfd_ext), sizeof (struct ext_ext), /* Functions to swap in external symbolic data. */ ecoff_swap_hdr_in, ecoff_swap_dnr_in, ecoff_swap_pdr_in, ecoff_swap_sym_in, ecoff_swap_opt_in, ecoff_swap_fdr_in, ecoff_swap_rfd_in, ecoff_swap_ext_in, _bfd_ecoff_swap_tir_in, _bfd_ecoff_swap_rndx_in, /* Functions to swap out external symbolic data. */ ecoff_swap_hdr_out, ecoff_swap_dnr_out, ecoff_swap_pdr_out, ecoff_swap_sym_out, ecoff_swap_opt_out, ecoff_swap_fdr_out, ecoff_swap_rfd_out, ecoff_swap_ext_out, _bfd_ecoff_swap_tir_out, _bfd_ecoff_swap_rndx_out, /* Function to read in symbolic data. */ _bfd_ecoff_slurp_symbolic_info }, /* External reloc size. */ RELSZ, /* Reloc swapping functions. */ mips_ecoff_swap_reloc_in, mips_ecoff_swap_reloc_out, /* Backend reloc tweaking. */ mips_adjust_reloc_in, mips_adjust_reloc_out, /* Relocate section contents while linking. */ mips_relocate_section }; /* Looking up a reloc type is MIPS specific. */ #define _bfd_ecoff_bfd_reloc_type_lookup mips_bfd_reloc_type_lookup /* Getting relocated section contents is generic. */ #define _bfd_ecoff_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents /* Relaxing sections is MIPS specific. */ #define _bfd_ecoff_bfd_relax_section mips_relax_section const bfd_target ecoff_little_vec = { "ecoff-littlemips", /* name */ bfd_target_ecoff_flavour, false, /* data byte order is little */ false, /* header byte order is little */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* sect flags */ 0, /* leading underscore */ ' ', /* ar_pad_char */ 15, /* ar_max_namelen */ 4, /* minimum alignment power */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ _bfd_ecoff_archive_p, _bfd_dummy_target}, {bfd_false, _bfd_ecoff_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, _bfd_ecoff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (_bfd_ecoff), BFD_JUMP_TABLE_COPY (_bfd_ecoff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_ecoff), BFD_JUMP_TABLE_SYMBOLS (_bfd_ecoff), BFD_JUMP_TABLE_RELOCS (_bfd_ecoff), BFD_JUMP_TABLE_WRITE (_bfd_ecoff), BFD_JUMP_TABLE_LINK (_bfd_ecoff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) &mips_ecoff_backend_data }; const bfd_target ecoff_big_vec = { "ecoff-bigmips", /* name */ bfd_target_ecoff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* sect flags */ 0, /* leading underscore */ ' ', /* ar_pad_char */ 15, /* ar_max_namelen */ 4, /* minimum alignment power */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ _bfd_ecoff_archive_p, _bfd_dummy_target}, {bfd_false, _bfd_ecoff_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, _bfd_ecoff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (_bfd_ecoff), BFD_JUMP_TABLE_COPY (_bfd_ecoff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_ecoff), BFD_JUMP_TABLE_SYMBOLS (_bfd_ecoff), BFD_JUMP_TABLE_RELOCS (_bfd_ecoff), BFD_JUMP_TABLE_WRITE (_bfd_ecoff), BFD_JUMP_TABLE_LINK (_bfd_ecoff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) &mips_ecoff_backend_data }; gdb-4.13/bfd/coff-rs6000.c 666 34562 1752 76431 5601410017 13326 0ustar fnfcygnus/* BFD back-end for IBM RS/6000 "XCOFF" files. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. FIXME: Can someone provide a transliteration of this name into ASCII? Using the following chars caused a compiler warning on HIUX (so I replaced them with octal escapes), and isn't useful without an understanding of what character set it is. Written by Metin G. Ozisik, Mimi Ph\373\364ng-Th\345o V\365, and John Gilmore. Archive support from Damon A. Permezel. Contributed by IBM Corporation and Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This port currently only handles reading object files, except when compiled on an RS/6000 host. -- no archive support, no core files. In all cases, it does not support writing. FIXMEmgo comments are left from Metin Ozisik's original port. */ /* Internalcoff.h and coffcode.h modify themselves based on this flag. */ #define RS6000COFF_C 1 #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/internal.h" #include "coff/rs6000.h" #include "libcoff.h" /* The main body of code is in coffcode.h. */ /* The XCOFF reloc table. Actually, XCOFF relocations specify the bitsize and whether they are signed or not, along with a conventional type. This table is for the types, which are used for different algorithms for putting in the reloc. Many of these relocs need special_function entries, which I have not written. */ static reloc_howto_type rs6000coff_howto_table[] = { /* Standard 32 bit relocation. */ HOWTO (0, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_POS", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* 32 bit relocation, but store negative value. */ HOWTO (1, /* type */ 0, /* rightshift */ -2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_NEG", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* 32 bit PC relative relocation. */ HOWTO (2, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "R_REL", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* 16 bit TOC relative relocation. */ HOWTO (3, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "R_TOC", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* I don't really know what this is. */ HOWTO (4, /* type */ 1, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RTB", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* External TOC relative symbol. */ HOWTO (5, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_GL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Local TOC relative symbol. */ HOWTO (6, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_TCL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ { 7 }, /* Non modifiable absolute branch. */ HOWTO (8, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_BA", /* name */ true, /* partial_inplace */ 0x3fffffc, /* src_mask */ 0x3fffffc, /* dst_mask */ false), /* pcrel_offset */ { 9 }, /* Non modifiable relative branch. */ HOWTO (0xa, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "R_BR", /* name */ true, /* partial_inplace */ 0x3fffffc, /* src_mask */ 0x3fffffc, /* dst_mask */ false), /* pcrel_offset */ { 0xb }, /* Indirect load. */ HOWTO (0xc, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Load address. */ HOWTO (0xd, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RLA", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ { 0xe }, /* Non-relocating reference. */ HOWTO (0xf, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_REF", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ { 0x10 }, { 0x11 }, /* TOC relative indirect load. */ HOWTO (0x12, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_TRL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* TOC relative load address. */ HOWTO (0x13, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_TRLA", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable relative branch. */ HOWTO (0x14, /* type */ 1, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RRTBI", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable absolute branch. */ HOWTO (0x15, /* type */ 1, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RRTBA", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable call absolute indirect. */ HOWTO (0x16, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_CAI", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable call relative. */ HOWTO (0x17, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_REL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable branch absolute. */ HOWTO (0x18, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RBA", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable branch absolute. */ HOWTO (0x19, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RBAC", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable branch relative. */ HOWTO (0x1a, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "R_REL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable branch absolute. */ HOWTO (0x1b, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_REL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false) /* pcrel_offset */ }; #define RTYPE2HOWTO(cache_ptr, dst) rs6000coff_rtype2howto (cache_ptr, dst) static void rs6000coff_rtype2howto PARAMS ((arelent *, struct internal_reloc *)); static void rs6000coff_rtype2howto (relent, internal) arelent *relent; struct internal_reloc *internal; { relent->howto = rs6000coff_howto_table + internal->r_type; /* The r_size field of an XCOFF reloc encodes the bitsize of the relocation, as well as indicating whether it is signed or not. Doublecheck that the relocation information gathered from the type matches this information. */ if (relent->howto->bitsize != (internal->r_size & 0x1f) + 1) abort (); #if 0 if ((internal->r_size & 0x80) != 0 ? (relent->howto->complain_on_overflow != complain_overflow_signed) : (relent->howto->complain_on_overflow != complain_overflow_bitfield)) abort (); #endif } #define coff_bfd_reloc_type_lookup rs6000coff_reloc_type_lookup static const struct reloc_howto_struct *rs6000coff_reloc_type_lookup PARAMS ((bfd *, bfd_reloc_code_real_type)); static const struct reloc_howto_struct * rs6000coff_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { switch (code) { case BFD_RELOC_PPC_B26: return &rs6000coff_howto_table[0xa]; case BFD_RELOC_PPC_BA26: return &rs6000coff_howto_table[8]; case BFD_RELOC_PPC_TOC16: return &rs6000coff_howto_table[3]; case BFD_RELOC_32: return &rs6000coff_howto_table[0]; default: return NULL; } } #define SELECT_RELOC(internal, howto) \ { \ internal.r_type = howto->type; \ internal.r_size = \ ((howto->complain_on_overflow == complain_overflow_signed \ ? 0x80 \ : 0) \ | (howto->bitsize - 1)); \ } #define COFF_LONG_FILENAMES #include "coffcode.h" #define coff_archive_p bfd_generic_archive_p #define coff_mkarchive _bfd_generic_mkarchive #ifdef HOST_AIX /* ------------------------------------------------------------------------ */ /* Support for archive file stuff.. */ /* Stolen from Damon A. Permezel's `bfd' portation. */ /* ------------------------------------------------------------------------ */ #define rs6000coff_slurp_armap bfd_slurp_coff_armap #define rs6000coff_slurp_extended_name_table _bfd_slurp_extended_name_table #define rs6000coff_truncate_arname bfd_dont_truncate_arname #undef coff_mkarchive #define coff_mkarchive rs6000coff_mkarchive #undef coff_archive_p #define coff_archive_p rs6000coff_archive_p #include "/usr/include/ar.h" /* doesn't do it. */ #define arch_hdr(bfd) \ ((struct ar_hdr *) \ (((struct areltdata *)((bfd)->arelt_data))->arch_header)) static boolean rs6000coff_mkarchive (abfd) bfd *abfd; { bfd_set_error (bfd_error_invalid_operation); /* write not supported */ return false; } /* This functions reads an arch header and returns an areltdata pointer, or NULL on error. Presumes the file pointer is already in the right place (ie pointing to the ar_hdr in the file). Moves the file pointer; on success it should be pointing to the front of the file contents; on failure it could have been moved arbitrarily. */ struct areltdata * rs6000coff_snarf_ar_hdr (abfd) bfd *abfd; { struct { struct ar_hdr hdr; char namebuf[256]; } h; int size; struct areltdata *ared; char *allocptr; size = sizeof (h.hdr); if (bfd_read(&h.hdr, 1, size, abfd) != size) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_no_more_archived_files); return NULL; } size = atoi(h.hdr.ar_namlen); /* ar_name[] length */ size += size & 1; if (bfd_read(&h.hdr._ar_name.ar_name[2], 1, size, abfd) != size) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_no_more_archived_files); return NULL; } if (strncmp(h.hdr._ar_name.ar_fmag + size, AIAFMAG, 2)) { bfd_set_error (bfd_error_malformed_archive); return NULL; } h.hdr._ar_name.ar_name[size] = 0; /* terminate filename */ /* * if the filename is NULL, we're (probably) at the end. */ if (size == 0) { bfd_set_error (bfd_error_no_more_archived_files); return NULL; } size += sizeof (h.hdr); allocptr = bfd_zalloc(abfd, sizeof (*ared) + size); if (allocptr == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } ared = (struct areltdata *) allocptr; ared->arch_header = (void *) (allocptr + sizeof (struct areltdata)); memcpy ((char *) ared->arch_header, &h.hdr, size); ared->parsed_size = atoi(h.hdr.ar_size); ared->filename = ((AR_HDR*) ared->arch_header)->_ar_name.ar_name; return ared; } /* Stolen directly from archive.c, except it calls rs6000coff_snarf_ar_hdr. Why wasn't this part of the transfer vector? */ bfd * rs6000coff_get_elt_at_filepos (archive, filepos) bfd *archive; file_ptr filepos; { struct areltdata *new_areldata; bfd *n_nfd; n_nfd = _bfd_look_for_bfd_in_cache (archive, filepos); if (n_nfd) return n_nfd; if (0 != bfd_seek (archive, filepos, SEEK_SET)) return NULL; if ((new_areldata = rs6000coff_snarf_ar_hdr (archive)) == NULL) return NULL; n_nfd = _bfd_create_empty_archive_element_shell (archive); if (n_nfd == NULL) { bfd_release (archive, (PTR)new_areldata); return NULL; } n_nfd->origin = bfd_tell (archive); n_nfd->arelt_data = (PTR) new_areldata; n_nfd->filename = new_areldata->filename; if (_bfd_add_bfd_to_archive_cache (archive, filepos, n_nfd)) return n_nfd; /* huh? */ bfd_release (archive, (PTR)n_nfd); bfd_release (archive, (PTR)new_areldata); return NULL; } /* * xcoff_openr_next_archived_file - xcoff has nxt/prv seek addrs. */ static bfd * rs6000coff_openr_next_archived_file(archive, last_file) bfd *archive, *last_file; { file_ptr filestart; if (!last_file) filestart = bfd_ardata(archive)->first_file_filepos; else filestart = atol(arch_hdr(last_file)->ar_nxtmem); return rs6000coff_get_elt_at_filepos (archive, filestart); } static const bfd_target * rs6000coff_archive_p (abfd) bfd *abfd; { struct fl_hdr hdr; register struct artdata *art; if (bfd_read (&hdr, sizeof (hdr), 1, abfd) != sizeof (hdr)) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } if (strncmp(hdr.fl_magic, AIAMAG, SAIAMAG)) { bfd_set_error (bfd_error_wrong_format); return 0; } /* * bfd_ardata() accesses the bfd->tdata field. */ abfd->tdata.aout_ar_data = (void *) bfd_zalloc(abfd, sizeof (*art) + sizeof (hdr)); if ((art = bfd_ardata (abfd)) == NULL) { bfd_set_error (bfd_error_no_memory); return 0; } art->first_file_filepos = atoi(hdr.fl_fstmoff); *(struct fl_hdr *) (1 + art) = hdr; /* Someday... * slurp in the member table, which I think is the armap equivalent. xcoff_slurp_armap(abfd); */ return abfd->xvec; } static int rs6000coff_generic_stat_arch_elt(abfd, buf) bfd *abfd; struct stat *buf; { struct ar_hdr *hdr; char *aloser; if (abfd->arelt_data == NULL) { bfd_set_error (bfd_error_invalid_operation); return -1; } hdr = arch_hdr (abfd); #define foo(arelt, stelt, size) \ buf->stelt = strtol (hdr->arelt, &aloser, size); \ if (aloser == hdr->arelt) return -1; foo (ar_date, st_mtime, 10); foo (ar_uid, st_uid, 10); foo (ar_gid, st_gid, 10); foo (ar_mode, st_mode, 8); foo (ar_size, st_size, 10); #undef foo return 0; } static boolean rs6000coff_write_armap (arch, elength, map, orl_count, stridx) bfd *arch; unsigned int elength; struct orl *map; unsigned int orl_count; int stridx; { bfd_set_error (bfd_error_invalid_operation); return false; } #endif /* HOST_AIX */ #define CORE_FILE_P _bfd_dummy_target #define coff_core_file_failing_command _bfd_nocore_core_file_failing_command #define coff_core_file_failing_signal _bfd_nocore_core_file_failing_signal #define coff_core_file_matches_executable_p \ _bfd_nocore_core_file_matches_executable_p #ifdef HOST_AIX #undef CORE_FILE_P #define CORE_FILE_P rs6000coff_core_p extern const bfd_target * rs6000coff_core_p (); extern boolean rs6000coff_get_section_contents (); extern boolean rs6000coff_core_file_matches_executable_p (); #undef coff_core_file_matches_executable_p #define coff_core_file_matches_executable_p \ rs6000coff_core_file_matches_executable_p #undef coff_get_section_contents #define coff_get_section_contents rs6000coff_get_section_contents #endif /* HOST_AIX */ #ifdef HOST_LYNX #undef CORE_FILE_P #define CORE_FILE_P lynx_core_file_p extern const bfd_target *lynx_core_file_p PARAMS ((bfd *abfd)); extern boolean lynx_core_file_matches_executable_p PARAMS ((bfd *core_bfd, bfd *exec_bfd)); #undef coff_core_file_matches_executable_p #define coff_core_file_matches_executable_p lynx_core_file_matches_executable_p extern char *lynx_core_file_failing_command PARAMS ((bfd *abfd)); #undef coff_core_file_failing_command #define coff_core_file_failing_command lynx_core_file_failing_command extern int lynx_core_file_failing_signal PARAMS ((bfd *abfd)); #undef coff_core_file_failing_signal #define coff_core_file_failing_signal lynx_core_file_failing_signal #endif /* HOST_LYNX */ /* The transfer vector that leads the outside world to all of the above. */ const bfd_target rs6000coff_vec = { "aixcoff-rs6000", /* name */ bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading char */ '/', /* ar_pad_char */ 15, /* ar_max_namelen??? FIXMEmgo */ 3, /* default alignment power */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ coff_archive_p, CORE_FILE_P}, {bfd_false, coff_mkobject, coff_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (coff), #ifdef HOST_AIX BFD_JUMP_TABLE_ARCHIVE (rs6000coff), #else BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), #endif BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-sh.c 666 34562 1752 12460 5601614565 13014 0ustar fnfcygnus/* BFD back-end for Hitachi Super-H COFF binaries. Copyright 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Steve Chamberlain, . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "obstack.h" #include "libbfd.h" #include "bfdlink.h" #include "coff/sh.h" #include "coff/internal.h" #include "libcoff.h" static reloc_howto_type r_imm32 = HOWTO (R_SH_IMM32, 0,2, 32, false, 0, complain_overflow_bitfield, 0, "r_imm32", false, 0x0, 0xffffffff, false); /* Turn a howto into a reloc number */ static int coff_SH_select_reloc (howto) reloc_howto_type *howto; { return howto->type; } #define SELECT_RELOC(x,howto) x.r_type = coff_SH_select_reloc(howto) #define BADMAG(x) SHBADMAG(x) #define SH 1 /* Customize coffcode.h */ #define __A_MAGIC_SET__ /* Code to swap in the reloc */ #define SWAP_IN_RELOC_OFFSET bfd_h_get_32 #define SWAP_OUT_RELOC_OFFSET bfd_h_put_32 #define SWAP_OUT_RELOC_EXTRA(abfd, src, dst) \ dst->r_stuff[0] = 'S'; \ dst->r_stuff[1] = 'C'; /* Code to turn a r_type into a howto ptr, uses the above howto table */ static void rtype2howto (internal, dst) arelent * internal; struct internal_reloc *dst; { switch (dst->r_type) { default: fprintf (stderr, "BAD 0x%x\n", dst->r_type); case R_SH_IMM32: internal->howto = &r_imm32; break; } } #define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry) /* Perform any necessaru magic to the addend in a reloc entry */ #define CALC_ADDEND(abfd, symbol, ext_reloc, cache_ptr) \ cache_ptr->addend = ext_reloc.r_offset; #define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \ reloc_processing(relent, reloc, symbols, abfd, section) static void reloc_processing (relent, reloc, symbols, abfd, section) arelent * relent; struct internal_reloc *reloc; asymbol ** symbols; bfd * abfd; asection * section; { relent->address = reloc->r_vaddr; rtype2howto (relent, reloc); if (reloc->r_symndx > 0) { relent->sym_ptr_ptr = symbols + obj_convert (abfd)[reloc->r_symndx]; } else { relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; } relent->addend = reloc->r_offset; relent->address -= section->vma; } static void extra_case (in_abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr) bfd *in_abfd; struct bfd_link_info *link_info; struct bfd_link_order *link_order; arelent *reloc; bfd_byte *data; unsigned int *src_ptr; unsigned int *dst_ptr; { switch (reloc->howto->type) { case R_SH_IMM32: { int v = bfd_coff_reloc16_get_value(reloc, link_info, link_order->u.indirect.section); bfd_put_32 (in_abfd, v, data + *dst_ptr); (*dst_ptr) +=4; (*src_ptr)+=4;; } break; default: abort (); } } #define coff_reloc16_extra_cases extra_case #include "coffcode.h" #undef coff_bfd_get_relocated_section_contents #undef coff_bfd_relax_section #define coff_bfd_get_relocated_section_contents \ bfd_coff_reloc16_get_relocated_section_contents #define coff_bfd_relax_section bfd_coff_reloc16_relax_section const bfd_target shcoff_vec = { "coff-sh", /* name */ bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | BFD_IS_RELAXABLE ), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* leading symbol underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 2, /* minimum section alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-sparc.c 666 34562 1752 26120 5611304332 13475 0ustar fnfcygnus/* BFD back-end for Sparc COFF files. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/sparc.h" #include "coff/internal.h" #include "libcoff.h" #define BADMAG(x) ((x).f_magic != SPARCMAGIC && (x).f_magic != LYNXCOFFMAGIC) /* The page size is a guess based on ELF. */ #define COFF_PAGE_SIZE 0x10000 enum reloc_type { R_SPARC_NONE = 0, R_SPARC_8, R_SPARC_16, R_SPARC_32, R_SPARC_DISP8, R_SPARC_DISP16, R_SPARC_DISP32, R_SPARC_WDISP30, R_SPARC_WDISP22, R_SPARC_HI22, R_SPARC_22, R_SPARC_13, R_SPARC_LO10, R_SPARC_GOT10, R_SPARC_GOT13, R_SPARC_GOT22, R_SPARC_PC10, R_SPARC_PC22, R_SPARC_WPLT30, R_SPARC_COPY, R_SPARC_GLOB_DAT, R_SPARC_JMP_SLOT, R_SPARC_RELATIVE, R_SPARC_UA32, R_SPARC_max }; #if 0 static CONST char *CONST reloc_type_names[] = { "R_SPARC_NONE", "R_SPARC_8", "R_SPARC_16", "R_SPARC_32", "R_SPARC_DISP8", "R_SPARC_DISP16", "R_SPARC_DISP32", "R_SPARC_WDISP30", "R_SPARC_WDISP22", "R_SPARC_HI22", "R_SPARC_22", "R_SPARC_13", "R_SPARC_LO10", "R_SPARC_GOT10", "R_SPARC_GOT13", "R_SPARC_GOT22", "R_SPARC_PC10", "R_SPARC_PC22", "R_SPARC_WPLT30", "R_SPARC_COPY", "R_SPARC_GLOB_DAT", "R_SPARC_JMP_SLOT", "R_SPARC_RELATIVE", "R_SPARC_UA32", }; #endif /* This is stolen pretty directly from elf.c. */ static bfd_reloc_status_type bfd_coff_generic_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); static bfd_reloc_status_type bfd_coff_generic_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { if (output_bfd != (bfd *) NULL && (symbol->flags & BSF_SECTION_SYM) == 0 && reloc_entry->addend == 0) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } return bfd_reloc_continue; } static reloc_howto_type coff_sparc_howto_table[] = { HOWTO(R_SPARC_NONE, 0,0, 0,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_NONE", false,0,0x00000000,true), HOWTO(R_SPARC_8, 0,0, 8,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_8", false,0,0x000000ff,true), HOWTO(R_SPARC_16, 0,1,16,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_16", false,0,0x0000ffff,true), HOWTO(R_SPARC_32, 0,2,32,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_32", false,0,0xffffffff,true), HOWTO(R_SPARC_DISP8, 0,0, 8,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_DISP8", false,0,0x000000ff,true), HOWTO(R_SPARC_DISP16, 0,1,16,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_DISP16", false,0,0x0000ffff,true), HOWTO(R_SPARC_DISP32, 0,2,32,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_DISP32", false,0,0x00ffffff,true), HOWTO(R_SPARC_WDISP30, 2,2,30,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_WDISP30", false,0,0x3fffffff,true), HOWTO(R_SPARC_WDISP22, 2,2,22,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_WDISP22", false,0,0x003fffff,true), HOWTO(R_SPARC_HI22, 10,2,22,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_HI22", false,0,0x003fffff,true), HOWTO(R_SPARC_22, 0,2,22,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_22", false,0,0x003fffff,true), HOWTO(R_SPARC_13, 0,2,13,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_13", false,0,0x00001fff,true), HOWTO(R_SPARC_LO10, 0,2,10,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_LO10", false,0,0x000003ff,true), HOWTO(R_SPARC_GOT10, 0,2,10,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_GOT10", false,0,0x000003ff,true), HOWTO(R_SPARC_GOT13, 0,2,13,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_GOT13", false,0,0x00001fff,true), HOWTO(R_SPARC_GOT22, 10,2,22,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_GOT22", false,0,0x003fffff,true), HOWTO(R_SPARC_PC10, 0,2,10,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_PC10", false,0,0x000003ff,true), HOWTO(R_SPARC_PC22, 0,2,22,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_PC22", false,0,0x003fffff,true), HOWTO(R_SPARC_WPLT30, 0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_WPLT30", false,0,0x00000000,true), HOWTO(R_SPARC_COPY, 0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_COPY", false,0,0x00000000,true), HOWTO(R_SPARC_GLOB_DAT,0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_GLOB_DAT",false,0,0x00000000,true), HOWTO(R_SPARC_JMP_SLOT,0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_JMP_SLOT",false,0,0x00000000,true), HOWTO(R_SPARC_RELATIVE,0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_RELATIVE",false,0,0x00000000,true), HOWTO(R_SPARC_UA32, 0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_UA32", false,0,0x00000000,true), }; struct coff_reloc_map { unsigned char bfd_reloc_val; unsigned char coff_reloc_val; }; static CONST struct coff_reloc_map sparc_reloc_map[] = { { BFD_RELOC_NONE, R_SPARC_NONE, }, { BFD_RELOC_16, R_SPARC_16, }, { BFD_RELOC_8, R_SPARC_8 }, { BFD_RELOC_8_PCREL, R_SPARC_DISP8 }, { BFD_RELOC_CTOR, R_SPARC_32 }, /* @@ Assumes 32 bits. */ { BFD_RELOC_32, R_SPARC_32 }, { BFD_RELOC_32_PCREL, R_SPARC_DISP32 }, { BFD_RELOC_HI22, R_SPARC_HI22 }, { BFD_RELOC_LO10, R_SPARC_LO10, }, { BFD_RELOC_32_PCREL_S2, R_SPARC_WDISP30 }, { BFD_RELOC_SPARC22, R_SPARC_22 }, { BFD_RELOC_SPARC13, R_SPARC_13 }, { BFD_RELOC_SPARC_GOT10, R_SPARC_GOT10 }, { BFD_RELOC_SPARC_GOT13, R_SPARC_GOT13 }, { BFD_RELOC_SPARC_GOT22, R_SPARC_GOT22 }, { BFD_RELOC_SPARC_PC10, R_SPARC_PC10 }, { BFD_RELOC_SPARC_PC22, R_SPARC_PC22 }, { BFD_RELOC_SPARC_WPLT30, R_SPARC_WPLT30 }, { BFD_RELOC_SPARC_COPY, R_SPARC_COPY }, { BFD_RELOC_SPARC_GLOB_DAT, R_SPARC_GLOB_DAT }, { BFD_RELOC_SPARC_JMP_SLOT, R_SPARC_JMP_SLOT }, { BFD_RELOC_SPARC_RELATIVE, R_SPARC_RELATIVE }, { BFD_RELOC_SPARC_WDISP22, R_SPARC_WDISP22 }, /* { BFD_RELOC_SPARC_UA32, R_SPARC_UA32 }, not used?? */ }; static CONST struct reloc_howto_struct * coff_sparc_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { int i; for (i = 0; i < sizeof (sparc_reloc_map) / sizeof (struct coff_reloc_map); i++) { if (sparc_reloc_map[i].bfd_reloc_val == code) return &coff_sparc_howto_table[(int) sparc_reloc_map[i].coff_reloc_val]; } return 0; } #define coff_bfd_reloc_type_lookup coff_sparc_reloc_type_lookup static void rtype2howto (cache_ptr, dst) arelent *cache_ptr; struct internal_reloc *dst; { BFD_ASSERT (dst->r_type < (unsigned int) R_SPARC_max); cache_ptr->howto = &coff_sparc_howto_table[dst->r_type]; } #define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry) #define SWAP_IN_RELOC_OFFSET bfd_h_get_32 #define SWAP_OUT_RELOC_OFFSET bfd_h_put_32 /* This is just like the standard one, except for the addition of the last line, the adjustment of the addend. */ #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \ { \ coff_symbol_type *coffsym = (coff_symbol_type *) NULL; \ if (ptr && bfd_asymbol_bfd (ptr) != abfd) \ coffsym = (obj_symbols (abfd) \ + (cache_ptr->sym_ptr_ptr - symbols)); \ else if (ptr) \ coffsym = coff_symbol_from (abfd, ptr); \ if (coffsym != (coff_symbol_type *) NULL \ && coffsym->native->u.syment.n_scnum == 0) \ cache_ptr->addend = 0; \ else if (ptr && bfd_asymbol_bfd (ptr) == abfd \ && ptr->section != (asection *) NULL) \ cache_ptr->addend = - (ptr->section->vma + ptr->value); \ else \ cache_ptr->addend = 0; \ cache_ptr->addend += reloc.r_offset; \ } /* Clear the r_spare field in relocs. */ #define SWAP_OUT_RELOC_EXTRA(abfd,src,dst) \ do { \ dst->r_spare[0] = 0; \ dst->r_spare[1] = 0; \ } while (0) #define __A_MAGIC_SET__ /* Enable Sparc-specific hacks in coffcode.h. */ #define COFF_SPARC #include "coffcode.h" const bfd_target #ifdef TARGET_SYM TARGET_SYM = #else sparccoff_vec = #endif { #ifdef TARGET_NAME TARGET_NAME, #else "coff-sparc", /* name */ #endif bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* leading underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 2, /* minimum alignment power */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ /* Note that we allow an object file to be treated as a core file as well. */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, coff_object_p}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-u68k.c 666 34562 1752 2472 5423063570 13155 0ustar fnfcygnus/* BFD back-end for Motorola 68000 COFF binaries having underscore with name. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_SYM m68kcoffun_vec #define TARGET_NAME "coff-m68k-un" #define NAMES_HAVE_UNDERSCORE /* define this to not have multiple copy of m68k_rtype2howto in the executable file */ #define ONLY_DECLARE_RELOCS /* This magic number indicates that the names have underscores. Other 68k magic numbers indicate that the names do not have underscores. */ #define BADMAG(x) ((x).f_magic != MC68KBCSMAGIC) #include "coff-m68k.c" gdb-4.13/bfd/coff-we32k.c 666 34562 1752 7441 5601410022 13276 0ustar fnfcygnus/* BFD back-end for we32k COFF files. Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Brendan Kehoe (brendan@cs.widener.edu). This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" #include "coff/we32k.h" #include "coff/internal.h" #include "libcoff.h" static reloc_howto_type howto_table[] = { {0}, {1}, {2}, {3}, {4}, {5}, HOWTO(R_DIR32, 0, 2, 32, false, 0,complain_overflow_bitfield, 0, "dir32", true, 0xffffffff,0xffffffff, false), {7}, {010}, {011}, {012}, {013}, {014}, {015}, {016}, HOWTO(R_RELBYTE, 0, 0, 8, false, 0, complain_overflow_bitfield, 0, "8", true, 0x000000ff,0x000000ff, false), HOWTO(R_RELWORD, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "16", true, 0x0000ffff,0x0000ffff, false), HOWTO(R_RELLONG, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, "32", true, 0xffffffff,0xffffffff, false), HOWTO(R_PCRBYTE, 0, 0, 8, true, 0, complain_overflow_signed, 0, "DISP8", true, 0x000000ff,0x000000ff, false), HOWTO(R_PCRWORD, 0, 1, 16, true, 0, complain_overflow_signed, 0, "DISP16", true, 0x0000ffff,0x0000ffff, false), HOWTO(R_PCRLONG, 0, 2, 32, true, 0, complain_overflow_signed, 0, "DISP32", true, 0xffffffff,0xffffffff, false), }; /* Turn a howto into a reloc nunmber */ #define SELECT_RELOC(x,howto) { x.r_type = howto->type; } #define BADMAG(x) WE32KBADMAG(x) #define WE32K 1 #define RTYPE2HOWTO(cache_ptr, dst) \ cache_ptr->howto = howto_table + (dst)->r_type; #include "coffcode.h" #define coff_write_armap bsd_write_armap const bfd_target we32kcoff_vec = { "coff-we32k", /* name */ bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 3, /* minimum alignment power */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coff-z8k.c 666 34562 1752 16743 5601614566 13127 0ustar fnfcygnus/* BFD back-end for Zilog Z800n COFF binaries. Copyright 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Steve Chamberlain, . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "obstack.h" #include "libbfd.h" #include "bfdlink.h" #include "coff/z8k.h" #include "coff/internal.h" #include "libcoff.h" static reloc_howto_type r_imm32 = HOWTO (R_IMM32, 0, 1, 32, false, 0, complain_overflow_bitfield, 0, "r_imm32", true, 0xffffffff, 0xffffffff, false); static reloc_howto_type r_imm4l = HOWTO (R_IMM4L, 0, 1, 4, false, 0, complain_overflow_bitfield, 0, "r_imm4l", true, 0xf, 0xf, false); static reloc_howto_type r_da = HOWTO (R_IMM16, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "r_da", true, 0x0000ffff, 0x0000ffff, false); static reloc_howto_type r_imm8 = HOWTO (R_IMM8, 0, 1, 8, false, 0, complain_overflow_bitfield, 0, "r_imm8", true, 0x000000ff, 0x000000ff, false); static reloc_howto_type r_jr = HOWTO (R_JR, 0, 1, 8, true, 0, complain_overflow_signed, 0, "r_jr", true, 0, 0, true); /* Turn a howto into a reloc number */ static int coff_z8k_select_reloc (howto) reloc_howto_type *howto; { return howto->type; } #define SELECT_RELOC(x,howto) x.r_type = coff_z8k_select_reloc(howto) #define BADMAG(x) Z8KBADMAG(x) #define Z8K 1 /* Customize coffcode.h */ #define __A_MAGIC_SET__ /* Code to swap in the reloc */ #define SWAP_IN_RELOC_OFFSET bfd_h_get_32 #define SWAP_OUT_RELOC_OFFSET bfd_h_put_32 #define SWAP_OUT_RELOC_EXTRA(abfd, src, dst) \ dst->r_stuff[0] = 'S'; \ dst->r_stuff[1] = 'C'; /* Code to turn a r_type into a howto ptr, uses the above howto table */ static void rtype2howto (internal, dst) arelent * internal; struct internal_reloc *dst; { switch (dst->r_type) { default: fprintf (stderr, "BAD 0x%x\n", dst->r_type); case R_IMM8: internal->howto = &r_imm8; break; case R_IMM16: internal->howto = &r_da; break; case R_JR: internal->howto = &r_jr; break; case R_IMM32: internal->howto = &r_imm32; break; case R_IMM4L: internal->howto = &r_imm4l; break; } } #define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry) /* Perform any necessaru magic to the addend in a reloc entry */ #define CALC_ADDEND(abfd, symbol, ext_reloc, cache_ptr) \ cache_ptr->addend = ext_reloc.r_offset; #define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \ reloc_processing(relent, reloc, symbols, abfd, section) static void reloc_processing (relent, reloc, symbols, abfd, section) arelent * relent; struct internal_reloc *reloc; asymbol ** symbols; bfd * abfd; asection * section; { relent->address = reloc->r_vaddr; rtype2howto (relent, reloc); if (reloc->r_symndx > 0) { relent->sym_ptr_ptr = symbols + obj_convert (abfd)[reloc->r_symndx]; } else { relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; } relent->addend = reloc->r_offset; relent->address -= section->vma; } static void extra_case (in_abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr) bfd *in_abfd; struct bfd_link_info *link_info; struct bfd_link_order *link_order; arelent *reloc; bfd_byte *data; unsigned int *src_ptr; unsigned int *dst_ptr; { asection *input_section = link_order->u.indirect.section; switch (reloc->howto->type) { case R_IMM8: bfd_put_8 (in_abfd, bfd_coff_reloc16_get_value (reloc, link_info, input_section), data + *dst_ptr); (*dst_ptr) += 1; (*src_ptr) += 1; break; case R_IMM32: bfd_put_32 (in_abfd, bfd_coff_reloc16_get_value (reloc, link_info, input_section), data + *dst_ptr); (*dst_ptr) += 4; (*src_ptr) += 4; break; case R_IMM4L: bfd_put_8 (in_abfd, ((bfd_get_8 (in_abfd, data + *dst_ptr) & 0xf0) | (0x0f & bfd_coff_reloc16_get_value (reloc, link_info, input_section))), data + *dst_ptr); (*dst_ptr) += 1; (*src_ptr) += 1; break; case R_IMM16: bfd_put_16 (in_abfd, bfd_coff_reloc16_get_value (reloc, link_info, input_section), data + *dst_ptr); (*dst_ptr) += 2; (*src_ptr) += 2; break; case R_JR: { bfd_vma dst = bfd_coff_reloc16_get_value (reloc, link_info, input_section); bfd_vma dot = (link_order->offset + *dst_ptr + input_section->output_section->vma); int gap = dst - dot - 1;/* -1 since were in the odd byte of the word and the pc's been incremented */ if (gap & 1) abort (); gap /= 2; if (gap > 128 || gap < -128) { if (! ((*link_info->callbacks->reloc_overflow) (link_info, bfd_asymbol_name (*reloc->sym_ptr_ptr), reloc->howto->name, reloc->addend, input_section->owner, input_section, reloc->address))) abort (); } bfd_put_8 (in_abfd, gap, data + *dst_ptr); (*dst_ptr)++; (*src_ptr)++; break; } default: abort (); } } #define coff_reloc16_extra_cases extra_case #include "coffcode.h" #undef coff_bfd_get_relocated_section_contents #undef coff_bfd_relax_section #define coff_bfd_get_relocated_section_contents \ bfd_coff_reloc16_get_relocated_section_contents #define coff_bfd_relax_section bfd_coff_reloc16_relax_section const bfd_target z8kcoff_vec = { "coff-z8k", /* name */ bfd_target_coff_flavour, true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ '_', /* leading symbol underscore */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ 1, /* minimum section alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, {bfd_false, coff_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (coff), BFD_JUMP_TABLE_COPY (coff), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (coff), BFD_JUMP_TABLE_RELOCS (coff), BFD_JUMP_TABLE_WRITE (coff), BFD_JUMP_TABLE_LINK (coff), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), COFF_SWAP_TABLE, }; gdb-4.13/bfd/coffcode.h 666 34562 1752 210756 5601614570 13270 0ustar fnfcygnus/* Support for the generic parts of most COFF variants, for BFD. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Most of this hacked by Steve Chamberlain, sac@cygnus.com */ /* SECTION coff backends BFD supports a number of different flavours of coff format. The major differences between formats are the sizes and alignments of fields in structures on disk, and the occasional extra field. Coff in all its varieties is implemented with a few common files and a number of implementation specific files. For example, The 88k bcs coff format is implemented in the file @file{coff-m88k.c}. This file @code{#include}s @file{coff/m88k.h} which defines the external structure of the coff format for the 88k, and @file{coff/internal.h} which defines the internal structure. @file{coff-m88k.c} also defines the relocations used by the 88k format @xref{Relocations}. The Intel i960 processor version of coff is implemented in @file{coff-i960.c}. This file has the same structure as @file{coff-m88k.c}, except that it includes @file{coff/i960.h} rather than @file{coff-m88k.h}. SUBSECTION Porting to a new version of coff The recommended method is to select from the existing implementations the version of coff which is most like the one you want to use. For example, we'll say that i386 coff is the one you select, and that your coff flavour is called foo. Copy @file{i386coff.c} to @file{foocoff.c}, copy @file{../include/coff/i386.h} to @file{../include/coff/foo.h}, and add the lines to @file{targets.c} and @file{Makefile.in} so that your new back end is used. Alter the shapes of the structures in @file{../include/coff/foo.h} so that they match what you need. You will probably also have to add @code{#ifdef}s to the code in @file{coff/internal.h} and @file{coffcode.h} if your version of coff is too wild. You can verify that your new BFD backend works quite simply by building @file{objdump} from the @file{binutils} directory, and making sure that its version of what's going on and your host system's idea (assuming it has the pretty standard coff dump utility, usually called @code{att-dump} or just @code{dump}) are the same. Then clean up your code, and send what you've done to Cygnus. Then your stuff will be in the next release, and you won't have to keep integrating it. SUBSECTION How the coff backend works SUBSUBSECTION File layout The Coff backend is split into generic routines that are applicable to any Coff target and routines that are specific to a particular target. The target-specific routines are further split into ones which are basically the same for all Coff targets except that they use the external symbol format or use different values for certain constants. The generic routines are in @file{coffgen.c}. These routines work for any Coff target. They use some hooks into the target specific code; the hooks are in a @code{bfd_coff_backend_data} structure, one of which exists for each target. The essentially similar target-specific routines are in @file{coffcode.h}. This header file includes executable C code. The various Coff targets first include the appropriate Coff header file, make any special defines that are needed, and then include @file{coffcode.h}. Some of the Coff targets then also have additional routines in the target source file itself. For example, @file{coff-i960.c} includes @file{coff/internal.h} and @file{coff/i960.h}. It then defines a few constants, such as @code{I960}, and includes @file{coffcode.h}. Since the i960 has complex relocation types, @file{coff-i960.c} also includes some code to manipulate the i960 relocs. This code is not in @file{coffcode.h} because it would not be used by any other target. SUBSUBSECTION Bit twiddling Each flavour of coff supported in BFD has its own header file describing the external layout of the structures. There is also an internal description of the coff layout, in @file{coff/internal.h}. A major function of the coff backend is swapping the bytes and twiddling the bits to translate the external form of the structures into the normal internal form. This is all performed in the @code{bfd_swap}_@i{thing}_@i{direction} routines. Some elements are different sizes between different versions of coff; it is the duty of the coff version specific include file to override the definitions of various packing routines in @file{coffcode.h}. E.g., the size of line number entry in coff is sometimes 16 bits, and sometimes 32 bits. @code{#define}ing @code{PUT_LNSZ_LNNO} and @code{GET_LNSZ_LNNO} will select the correct one. No doubt, some day someone will find a version of coff which has a varying field size not catered to at the moment. To port BFD, that person will have to add more @code{#defines}. Three of the bit twiddling routines are exported to @code{gdb}; @code{coff_swap_aux_in}, @code{coff_swap_sym_in} and @code{coff_swap_linno_in}. @code{GDB} reads the symbol table on its own, but uses BFD to fix things up. More of the bit twiddlers are exported for @code{gas}; @code{coff_swap_aux_out}, @code{coff_swap_sym_out}, @code{coff_swap_lineno_out}, @code{coff_swap_reloc_out}, @code{coff_swap_filehdr_out}, @code{coff_swap_aouthdr_out}, @code{coff_swap_scnhdr_out}. @code{Gas} currently keeps track of all the symbol table and reloc drudgery itself, thereby saving the internal BFD overhead, but uses BFD to swap things on the way out, making cross ports much safer. Doing so also allows BFD (and thus the linker) to use the same header files as @code{gas}, which makes one avenue to disaster disappear. SUBSUBSECTION Symbol reading The simple canonical form for symbols used by BFD is not rich enough to keep all the information available in a coff symbol table. The back end gets around this problem by keeping the original symbol table around, "behind the scenes". When a symbol table is requested (through a call to @code{bfd_canonicalize_symtab}), a request gets through to @code{coff_get_normalized_symtab}. This reads the symbol table from the coff file and swaps all the structures inside into the internal form. It also fixes up all the pointers in the table (represented in the file by offsets from the first symbol in the table) into physical pointers to elements in the new internal table. This involves some work since the meanings of fields change depending upon context: a field that is a pointer to another structure in the symbol table at one moment may be the size in bytes of a structure at the next. Another pass is made over the table. All symbols which mark file names (<> symbols) are modified so that the internal string points to the value in the auxent (the real filename) rather than the normal text associated with the symbol (@code{".file"}). At this time the symbol names are moved around. Coff stores all symbols less than nine characters long physically within the symbol table; longer strings are kept at the end of the file in the string table. This pass moves all strings into memory and replaces them with pointers to the strings. The symbol table is massaged once again, this time to create the canonical table used by the BFD application. Each symbol is inspected in turn, and a decision made (using the @code{sclass} field) about the various flags to set in the @code{asymbol}. @xref{Symbols}. The generated canonical table shares strings with the hidden internal symbol table. Any linenumbers are read from the coff file too, and attached to the symbols which own the functions the linenumbers belong to. SUBSUBSECTION Symbol writing Writing a symbol to a coff file which didn't come from a coff file will lose any debugging information. The @code{asymbol} structure remembers the BFD from which the symbol was taken, and on output the back end makes sure that the same destination target as source target is present. When the symbols have come from a coff file then all the debugging information is preserved. Symbol tables are provided for writing to the back end in a vector of pointers to pointers. This allows applications like the linker to accumulate and output large symbol tables without having to do too much byte copying. This function runs through the provided symbol table and patches each symbol marked as a file place holder (@code{C_FILE}) to point to the next file place holder in the list. It also marks each @code{offset} field in the list with the offset from the first symbol of the current symbol. Another function of this procedure is to turn the canonical value form of BFD into the form used by coff. Internally, BFD expects symbol values to be offsets from a section base; so a symbol physically at 0x120, but in a section starting at 0x100, would have the value 0x20. Coff expects symbols to contain their final value, so symbols have their values changed at this point to reflect their sum with their owning section. This transformation uses the <> field of the @code{asymbol}'s @code{asection} @xref{Sections}. o <> This routine runs though the provided symbol table and uses the offsets generated by the previous pass and the pointers generated when the symbol table was read in to create the structured hierachy required by coff. It changes each pointer to a symbol into the index into the symbol table of the asymbol. o <> This routine runs through the symbol table and patches up the symbols from their internal form into the coff way, calls the bit twiddlers, and writes out the table to the file. */ /* INTERNAL_DEFINITION coff_symbol_type DESCRIPTION The hidden information for an <> is described in a <>: CODE_FRAGMENT . .typedef struct coff_ptr_struct .{ . . {* Remembers the offset from the first symbol in the file for . this symbol. Generated by coff_renumber_symbols. *} .unsigned int offset; . . {* Should the value of this symbol be renumbered. Used for . XCOFF C_BSTAT symbols. Set by coff_slurp_symbol_table. *} .unsigned int fix_value : 1; . . {* Should the tag field of this symbol be renumbered. . Created by coff_pointerize_aux. *} .unsigned int fix_tag : 1; . . {* Should the endidx field of this symbol be renumbered. . Created by coff_pointerize_aux. *} .unsigned int fix_end : 1; . . {* Should the x_csect.x_scnlen field be renumbered. . Created by coff_slurp_symbol_table. *} .unsigned int fix_scnlen : 1; . . {* The container for the symbol structure as read and translated . from the file. *} . .union { . union internal_auxent auxent; . struct internal_syment syment; . } u; .} combined_entry_type; . . .{* Each canonical asymbol really looks like this: *} . .typedef struct coff_symbol_struct .{ . {* The actual symbol which the rest of BFD works with *} .asymbol symbol; . . {* A pointer to the hidden information for this symbol *} .combined_entry_type *native; . . {* A pointer to the linenumber information for this symbol *} .struct lineno_cache_entry *lineno; . . {* Have the line numbers been relocated yet ? *} .boolean done_lineno; .} coff_symbol_type; */ #include "coffswap.h" /* void warning(); */ /* * Return a word with STYP_* (scnhdr.s_flags) flags set to represent the * incoming SEC_* flags. The inverse of this function is styp_to_sec_flags(). * NOTE: If you add to/change this routine, you should mirror the changes * in styp_to_sec_flags(). */ static long sec_to_styp_flags (sec_name, sec_flags) CONST char *sec_name; flagword sec_flags; { long styp_flags = 0; if (!strcmp (sec_name, _TEXT)) { styp_flags = STYP_TEXT; } else if (!strcmp (sec_name, _DATA)) { styp_flags = STYP_DATA; #ifdef TWO_DATA_SECS } else if (!strcmp (sec_name, ".data2")) { styp_flags = STYP_DATA; #endif /* TWO_DATA_SECS */ } else if (!strcmp (sec_name, _BSS)) { styp_flags = STYP_BSS; #ifdef _COMMENT } else if (!strcmp (sec_name, _COMMENT)) { styp_flags = STYP_INFO; #endif /* _COMMENT */ #ifdef _LIB } else if (!strcmp (sec_name, _LIB)) { styp_flags = STYP_LIB; #endif /* _LIB */ #ifdef _LIT } else if (!strcmp (sec_name, _LIT)) { styp_flags = STYP_LIT; #endif /* _LIT */ } else if (!strcmp (sec_name, ".debug")) { #ifdef STYP_DEBUG styp_flags = STYP_DEBUG; #else styp_flags = STYP_INFO; #endif } else if (!strcmp (sec_name, ".stab") || !strncmp (sec_name, ".stabstr", 8)) { styp_flags = STYP_INFO; } /* Try and figure out what it should be */ else if (sec_flags & SEC_CODE) { styp_flags = STYP_TEXT; } else if (sec_flags & SEC_DATA) { styp_flags = STYP_DATA; } else if (sec_flags & SEC_READONLY) { #ifdef STYP_LIT /* 29k readonly text/data section */ styp_flags = STYP_LIT; #else styp_flags = STYP_TEXT; #endif /* STYP_LIT */ } else if (sec_flags & SEC_LOAD) { styp_flags = STYP_TEXT; } else if (sec_flags & SEC_ALLOC) { styp_flags = STYP_BSS; } #ifdef STYP_NOLOAD if ((sec_flags & (SEC_NEVER_LOAD | SEC_COFF_SHARED_LIBRARY)) != 0) styp_flags |= STYP_NOLOAD; #endif return (styp_flags); } /* * Return a word with SEC_* flags set to represent the incoming * STYP_* flags (from scnhdr.s_flags). The inverse of this * function is sec_to_styp_flags(). * NOTE: If you add to/change this routine, you should mirror the changes * in sec_to_styp_flags(). */ static flagword styp_to_sec_flags (abfd, hdr) bfd * abfd; PTR hdr; { struct internal_scnhdr *internal_s = (struct internal_scnhdr *) hdr; long styp_flags = internal_s->s_flags; flagword sec_flags = 0; #ifdef STYP_NOLOAD if (styp_flags & STYP_NOLOAD) { sec_flags |= SEC_NEVER_LOAD; } #endif /* STYP_NOLOAD */ /* For 386 COFF, at least, an unloadable text or data section is actually a shared library section. */ if (styp_flags & STYP_TEXT) { if (sec_flags & SEC_NEVER_LOAD) sec_flags |= SEC_CODE | SEC_COFF_SHARED_LIBRARY; else sec_flags |= SEC_CODE | SEC_LOAD | SEC_ALLOC; } else if (styp_flags & STYP_DATA) { if (sec_flags & SEC_NEVER_LOAD) sec_flags |= SEC_DATA | SEC_COFF_SHARED_LIBRARY; else sec_flags |= SEC_DATA | SEC_LOAD | SEC_ALLOC; } else if (styp_flags & STYP_BSS) { #ifdef BSS_NOLOAD_IS_SHARED_LIBRARY if (sec_flags & SEC_NEVER_LOAD) sec_flags |= SEC_ALLOC | SEC_COFF_SHARED_LIBRARY; else #endif sec_flags |= SEC_ALLOC; } else if (styp_flags & STYP_INFO) { /* We mark these as SEC_DEBUGGING, but only if COFF_PAGE_SIZE is defined. coff_compute_section_file_positions uses COFF_PAGE_SIZE to ensure that the low order bits of the section VMA and the file offset match. If we don't know COFF_PAGE_SIZE, we can't ensure the correct correspondence, and demand page loading of the file will fail. */ #ifdef COFF_PAGE_SIZE sec_flags |= SEC_DEBUGGING; #endif } else { sec_flags |= SEC_ALLOC | SEC_LOAD; } #ifdef STYP_LIT /* A29k readonly text/data section type */ if ((styp_flags & STYP_LIT) == STYP_LIT) { sec_flags = (SEC_LOAD | SEC_ALLOC | SEC_READONLY); } #endif /* STYP_LIT */ #ifdef STYP_OTHER_LOAD /* Other loaded sections */ if (styp_flags & STYP_OTHER_LOAD) { sec_flags = (SEC_LOAD | SEC_ALLOC); } #endif /* STYP_SDATA */ return (sec_flags); } #define get_index(symbol) ((long) (symbol)->udata) /* INTERNAL_DEFINITION bfd_coff_backend_data CODE_FRAGMENT Special entry points for gdb to swap in coff symbol table parts: .typedef struct .{ . void (*_bfd_coff_swap_aux_in) PARAMS (( . bfd *abfd, . PTR ext, . int type, . int class, . int indaux, . int numaux, . PTR in)); . . void (*_bfd_coff_swap_sym_in) PARAMS (( . bfd *abfd , . PTR ext, . PTR in)); . . void (*_bfd_coff_swap_lineno_in) PARAMS (( . bfd *abfd, . PTR ext, . PTR in)); . Special entry points for gas to swap out coff parts: . unsigned int (*_bfd_coff_swap_aux_out) PARAMS (( . bfd *abfd, . PTR in, . int type, . int class, . int indaux, . int numaux, . PTR ext)); . . unsigned int (*_bfd_coff_swap_sym_out) PARAMS (( . bfd *abfd, . PTR in, . PTR ext)); . . unsigned int (*_bfd_coff_swap_lineno_out) PARAMS (( . bfd *abfd, . PTR in, . PTR ext)); . . unsigned int (*_bfd_coff_swap_reloc_out) PARAMS (( . bfd *abfd, . PTR src, . PTR dst)); . . unsigned int (*_bfd_coff_swap_filehdr_out) PARAMS (( . bfd *abfd, . PTR in, . PTR out)); . . unsigned int (*_bfd_coff_swap_aouthdr_out) PARAMS (( . bfd *abfd, . PTR in, . PTR out)); . . unsigned int (*_bfd_coff_swap_scnhdr_out) PARAMS (( . bfd *abfd, . PTR in, . PTR out)); . Special entry points for generic COFF routines to call target dependent COFF routines: . unsigned int _bfd_filhsz; . unsigned int _bfd_aoutsz; . unsigned int _bfd_scnhsz; . unsigned int _bfd_symesz; . unsigned int _bfd_auxesz; . unsigned int _bfd_linesz; . boolean _bfd_coff_long_filenames; . void (*_bfd_coff_swap_filehdr_in) PARAMS (( . bfd *abfd, . PTR ext, . PTR in)); . void (*_bfd_coff_swap_aouthdr_in) PARAMS (( . bfd *abfd, . PTR ext, . PTR in)); . void (*_bfd_coff_swap_scnhdr_in) PARAMS (( . bfd *abfd, . PTR ext, . PTR in)); . boolean (*_bfd_coff_bad_format_hook) PARAMS (( . bfd *abfd, . PTR internal_filehdr)); . boolean (*_bfd_coff_set_arch_mach_hook) PARAMS (( . bfd *abfd, . PTR internal_filehdr)); . PTR (*_bfd_coff_mkobject_hook) PARAMS (( . bfd *abfd, . PTR internal_filehdr, . PTR internal_aouthdr)); . flagword (*_bfd_styp_to_sec_flags_hook) PARAMS (( . bfd *abfd, . PTR internal_scnhdr)); . asection *(*_bfd_make_section_hook) PARAMS (( . bfd *abfd, . char *name)); . void (*_bfd_set_alignment_hook) PARAMS (( . bfd *abfd, . asection *sec, . PTR internal_scnhdr)); . boolean (*_bfd_coff_slurp_symbol_table) PARAMS (( . bfd *abfd)); . boolean (*_bfd_coff_symname_in_debug) PARAMS (( . bfd *abfd, . struct internal_syment *sym)); . void (*_bfd_coff_reloc16_extra_cases) PARAMS (( . bfd *abfd, . struct bfd_link_info *link_info, . struct bfd_link_order *link_order, . arelent *reloc, . bfd_byte *data, . unsigned int *src_ptr, . unsigned int *dst_ptr)); . int (*_bfd_coff_reloc16_estimate) PARAMS (( . bfd *abfd, . asection *input_section, . arelent *r, . unsigned int shrink, . struct bfd_link_info *link_info)); . .} bfd_coff_backend_data; . .#define coff_backend_info(abfd) ((bfd_coff_backend_data *) (abfd)->xvec->backend_data) . .#define bfd_coff_swap_aux_in(a,e,t,c,ind,num,i) \ . ((coff_backend_info (a)->_bfd_coff_swap_aux_in) (a,e,t,c,ind,num,i)) . .#define bfd_coff_swap_sym_in(a,e,i) \ . ((coff_backend_info (a)->_bfd_coff_swap_sym_in) (a,e,i)) . .#define bfd_coff_swap_lineno_in(a,e,i) \ . ((coff_backend_info ( a)->_bfd_coff_swap_lineno_in) (a,e,i)) . .#define bfd_coff_swap_reloc_out(abfd, i, o) \ . ((coff_backend_info (abfd)->_bfd_coff_swap_reloc_out) (abfd, i, o)) . .#define bfd_coff_swap_lineno_out(abfd, i, o) \ . ((coff_backend_info (abfd)->_bfd_coff_swap_lineno_out) (abfd, i, o)) . .#define bfd_coff_swap_aux_out(a,i,t,c,ind,num,o) \ . ((coff_backend_info (a)->_bfd_coff_swap_aux_out) (a,i,t,c,ind,num,o)) . .#define bfd_coff_swap_sym_out(abfd, i,o) \ . ((coff_backend_info (abfd)->_bfd_coff_swap_sym_out) (abfd, i, o)) . .#define bfd_coff_swap_scnhdr_out(abfd, i,o) \ . ((coff_backend_info (abfd)->_bfd_coff_swap_scnhdr_out) (abfd, i, o)) . .#define bfd_coff_swap_filehdr_out(abfd, i,o) \ . ((coff_backend_info (abfd)->_bfd_coff_swap_filehdr_out) (abfd, i, o)) . .#define bfd_coff_swap_aouthdr_out(abfd, i,o) \ . ((coff_backend_info (abfd)->_bfd_coff_swap_aouthdr_out) (abfd, i, o)) . .#define bfd_coff_filhsz(abfd) (coff_backend_info (abfd)->_bfd_filhsz) .#define bfd_coff_aoutsz(abfd) (coff_backend_info (abfd)->_bfd_aoutsz) .#define bfd_coff_scnhsz(abfd) (coff_backend_info (abfd)->_bfd_scnhsz) .#define bfd_coff_symesz(abfd) (coff_backend_info (abfd)->_bfd_symesz) .#define bfd_coff_auxesz(abfd) (coff_backend_info (abfd)->_bfd_auxesz) .#define bfd_coff_linesz(abfd) (coff_backend_info (abfd)->_bfd_linesz) .#define bfd_coff_long_filenames(abfd) (coff_backend_info (abfd)->_bfd_coff_long_filenames) .#define bfd_coff_swap_filehdr_in(abfd, i,o) \ . ((coff_backend_info (abfd)->_bfd_coff_swap_filehdr_in) (abfd, i, o)) . .#define bfd_coff_swap_aouthdr_in(abfd, i,o) \ . ((coff_backend_info (abfd)->_bfd_coff_swap_aouthdr_in) (abfd, i, o)) . .#define bfd_coff_swap_scnhdr_in(abfd, i,o) \ . ((coff_backend_info (abfd)->_bfd_coff_swap_scnhdr_in) (abfd, i, o)) . .#define bfd_coff_bad_format_hook(abfd, filehdr) \ . ((coff_backend_info (abfd)->_bfd_coff_bad_format_hook) (abfd, filehdr)) . .#define bfd_coff_set_arch_mach_hook(abfd, filehdr)\ . ((coff_backend_info (abfd)->_bfd_coff_set_arch_mach_hook) (abfd, filehdr)) .#define bfd_coff_mkobject_hook(abfd, filehdr, aouthdr)\ . ((coff_backend_info (abfd)->_bfd_coff_mkobject_hook) (abfd, filehdr, aouthdr)) . .#define bfd_coff_styp_to_sec_flags_hook(abfd, scnhdr)\ . ((coff_backend_info (abfd)->_bfd_styp_to_sec_flags_hook) (abfd, scnhdr)) . .#define bfd_coff_make_section_hook(abfd, name)\ . ((coff_backend_info (abfd)->_bfd_make_section_hook) (abfd, name)) . .#define bfd_coff_set_alignment_hook(abfd, sec, scnhdr)\ . ((coff_backend_info (abfd)->_bfd_set_alignment_hook) (abfd, sec, scnhdr)) . .#define bfd_coff_slurp_symbol_table(abfd)\ . ((coff_backend_info (abfd)->_bfd_coff_slurp_symbol_table) (abfd)) . .#define bfd_coff_symname_in_debug(abfd, sym)\ . ((coff_backend_info (abfd)->_bfd_coff_symname_in_debug) (abfd, sym)) . .#define bfd_coff_reloc16_extra_cases(abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr)\ . ((coff_backend_info (abfd)->_bfd_coff_reloc16_extra_cases)\ . (abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr)) . .#define bfd_coff_reloc16_estimate(abfd, section, reloc, shrink, link_info)\ . ((coff_backend_info (abfd)->_bfd_coff_reloc16_estimate)\ . (abfd, section, reloc, shrink, link_info)) . */ /* See whether the magic number matches. */ static boolean coff_bad_format_hook (abfd, filehdr) bfd * abfd; PTR filehdr; { struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr; if (BADMAG (*internal_f)) return false; /* if the optional header is NULL or not the correct size then quit; the only difference I can see between m88k dgux headers (MC88DMAGIC) and Intel 960 readwrite headers (I960WRMAGIC) is that the optional header is of a different size. But the mips keeps extra stuff in it's opthdr, so dont check when doing that */ #if defined(M88) || defined(I960) if (internal_f->f_opthdr != 0 && AOUTSZ != internal_f->f_opthdr) return false; #endif return true; } static asection * coff_make_section_hook (abfd, name) bfd * abfd; char *name; { #ifdef TWO_DATA_SECS /* FIXME: This predates the call to bfd_make_section_anyway in make_a_section_from_file, and can probably go away. */ /* On SCO a file created by the Microsoft assembler can have two .data sections. We use .data2 for the second one. */ if (strcmp (name, _DATA) == 0) return bfd_make_section (abfd, ".data2"); #endif return (asection *) NULL; } /* initialize a section structure with information peculiar to this particular implementation of coff */ static boolean coff_new_section_hook (abfd, section) bfd * abfd; asection * section; { section->alignment_power = abfd->xvec->align_power_min; /* Allocate aux records for section symbols, to store size and related info. @@ Shouldn't use constant multiplier here! */ coffsymbol (section->symbol)->native = (combined_entry_type *) bfd_zalloc (abfd, sizeof (combined_entry_type) * 10); #ifdef COFF_SPARC /* This is to allow double-word operations on addresses in data or bss. */ if (strcmp (section->name, ".data") == 0 || strcmp (section->name, ".bss") == 0) section->alignment_power = 3; #endif /* COFF_SPARC */ return true; } #ifdef I960 /* Set the alignment of a BFD section. */ static void coff_set_alignment_hook (abfd, section, scnhdr) bfd * abfd; asection * section; PTR scnhdr; { struct internal_scnhdr *hdr = (struct internal_scnhdr *) scnhdr; unsigned int i; for (i = 0; i < 32; i++) if ((1 << i) >= hdr->s_align) break; section->alignment_power = i; } #else /* ! I960 */ #define coff_set_alignment_hook \ ((void (*) PARAMS ((bfd *, asection *, PTR))) bfd_void) #endif /* ! I960 */ static boolean coff_mkobject (abfd) bfd * abfd; { coff_data_type *coff; abfd->tdata.coff_obj_data = (struct coff_tdata *) bfd_zalloc (abfd, sizeof (coff_data_type)); if (abfd->tdata.coff_obj_data == 0) { bfd_set_error (bfd_error_no_memory); return false; } coff = coff_data (abfd); coff->symbols = (coff_symbol_type *) NULL; coff->conversion_table = (unsigned int *) NULL; coff->raw_syments = (struct coff_ptr_struct *) NULL; coff->raw_linenos = (struct lineno *) NULL; coff->relocbase = 0; /* make_abs_section(abfd);*/ return true; } /* Create the COFF backend specific information. */ static PTR coff_mkobject_hook (abfd, filehdr, aouthdr) bfd * abfd; PTR filehdr; PTR aouthdr; { struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr; coff_data_type *coff; if (coff_mkobject (abfd) == false) return NULL; coff = coff_data (abfd); coff->sym_filepos = internal_f->f_symptr; coff->flags = internal_f->f_flags; /* These members communicate important constants about the symbol table to GDB's symbol-reading code. These `constants' unfortunately vary among coff implementations... */ coff->local_n_btmask = N_BTMASK; coff->local_n_btshft = N_BTSHFT; coff->local_n_tmask = N_TMASK; coff->local_n_tshift = N_TSHIFT; coff->local_symesz = SYMESZ; coff->local_auxesz = AUXESZ; coff->local_linesz = LINESZ; return (PTR) coff; } /* Determine the machine architecture and type. FIXME: This is target dependent because the magic numbers are defined in the target dependent header files. But there is no particular need for this. If the magic numbers were moved to a separate file, this function would be target independent and would also be much more successful at linking together COFF files for different architectures. */ static boolean coff_set_arch_mach_hook (abfd, filehdr) bfd *abfd; PTR filehdr; { long machine; enum bfd_architecture arch; struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr; machine = 0; switch (internal_f->f_magic) { #ifdef I386MAGIC case I386MAGIC: case I386PTXMAGIC: case I386AIXMAGIC: /* Danbury PS/2 AIX C Compiler */ case LYNXCOFFMAGIC: /* shadows the m68k Lynx number below, sigh */ arch = bfd_arch_i386; machine = 0; break; #endif #ifdef A29K_MAGIC_BIG case A29K_MAGIC_BIG: case A29K_MAGIC_LITTLE: arch = bfd_arch_a29k; machine = 0; break; #endif #ifdef MC68MAGIC case MC68MAGIC: case M68MAGIC: #ifdef MC68KBCSMAGIC case MC68KBCSMAGIC: #endif #ifdef APOLLOM68KMAGIC case APOLLOM68KMAGIC: #endif #ifdef LYNXCOFFMAGIC case LYNXCOFFMAGIC: #endif arch = bfd_arch_m68k; machine = 68020; break; #endif #ifdef MC88MAGIC case MC88MAGIC: case MC88DMAGIC: case MC88OMAGIC: arch = bfd_arch_m88k; machine = 88100; break; #endif #ifdef Z8KMAGIC case Z8KMAGIC: arch = bfd_arch_z8k; switch (internal_f->f_flags & F_MACHMASK) { case F_Z8001: machine = bfd_mach_z8001; break; case F_Z8002: machine = bfd_mach_z8002; break; default: return false; } break; #endif #ifdef I960 #ifdef I960ROMAGIC case I960ROMAGIC: case I960RWMAGIC: arch = bfd_arch_i960; switch (F_I960TYPE & internal_f->f_flags) { default: case F_I960CORE: machine = bfd_mach_i960_core; break; case F_I960KB: machine = bfd_mach_i960_kb_sb; break; case F_I960MC: machine = bfd_mach_i960_mc; break; case F_I960XA: machine = bfd_mach_i960_xa; break; case F_I960CA: machine = bfd_mach_i960_ca; break; case F_I960KA: machine = bfd_mach_i960_ka_sa; break; } break; #endif #endif #ifdef U802ROMAGIC case U802ROMAGIC: case U802WRMAGIC: case U802TOCMAGIC: arch = bfd_arch_rs6000; machine = 6000; break; #endif #ifdef WE32KMAGIC case WE32KMAGIC: arch = bfd_arch_we32k; machine = 0; break; #endif #ifdef H8300MAGIC case H8300MAGIC: arch = bfd_arch_h8300; machine = bfd_mach_h8300; /* !! FIXME this probably isn't the right place for this */ abfd->flags |= BFD_IS_RELAXABLE; break; #endif #ifdef H8300HMAGIC case H8300HMAGIC: arch = bfd_arch_h8300; machine = bfd_mach_h8300h; /* !! FIXME this probably isn't the right place for this */ abfd->flags |= BFD_IS_RELAXABLE; break; #endif #ifdef SH_ARCH_MAGIC case SH_ARCH_MAGIC: arch = bfd_arch_sh; machine = 0; break; #endif #ifdef H8500MAGIC case H8500MAGIC: arch = bfd_arch_h8500; machine = 0; break; #endif #ifdef SPARCMAGIC case SPARCMAGIC: #ifdef LYNXCOFFMAGIC case LYNXCOFFMAGIC: #endif arch = bfd_arch_sparc; machine = 0; break; #endif default: /* Unreadable input file type */ arch = bfd_arch_obscure; break; } bfd_default_set_arch_mach (abfd, arch, machine); return true; } #ifdef SYMNAME_IN_DEBUG static boolean symname_in_debug_hook (abfd, sym) bfd * abfd; struct internal_syment *sym; { return SYMNAME_IN_DEBUG (sym) ? true : false; } #else #define symname_in_debug_hook \ (boolean (*) PARAMS ((bfd *, struct internal_syment *))) bfd_false #endif /* SUBSUBSECTION Writing relocations To write relocations, the back end steps though the canonical relocation table and create an @code{internal_reloc}. The symbol index to use is removed from the @code{offset} field in the symbol table supplied. The address comes directly from the sum of the section base address and the relocation offset; the type is dug directly from the howto field. Then the @code{internal_reloc} is swapped into the shape of an @code{external_reloc} and written out to disk. */ static boolean coff_write_relocs (abfd) bfd * abfd; { asection *s; for (s = abfd->sections; s != (asection *) NULL; s = s->next) { unsigned int i; struct external_reloc dst; arelent **p = s->orelocation; if (bfd_seek (abfd, s->rel_filepos, SEEK_SET) != 0) return false; for (i = 0; i < s->reloc_count; i++) { struct internal_reloc n; arelent *q = p[i]; memset ((PTR) & n, 0, sizeof (n)); n.r_vaddr = q->address + s->vma; #ifdef R_IHCONST /* The 29k const/consth reloc pair is a real kludge. The consth part doesn't have a symbol; it has an offset. So rebuilt that here. */ if (q->howto->type == R_IHCONST) n.r_symndx = q->addend; else #endif if (q->sym_ptr_ptr) { if (q->sym_ptr_ptr == bfd_abs_section_ptr->symbol_ptr_ptr) /* This is a relocation relative to the absolute symbol. */ n.r_symndx = -1; else { n.r_symndx = get_index ((*(q->sym_ptr_ptr))); /* Take notice if the symbol reloc points to a symbol we don't have in our symbol table. What should we do for this?? */ if (n.r_symndx > obj_conv_table_size (abfd)) abort (); } } #ifdef SWAP_OUT_RELOC_OFFSET n.r_offset = q->addend; #endif #ifdef SELECT_RELOC /* Work out reloc type from what is required */ SELECT_RELOC (n, q->howto); #else n.r_type = q->howto->type; #endif coff_swap_reloc_out (abfd, &n, &dst); if (bfd_write ((PTR) & dst, 1, RELSZ, abfd) != RELSZ) return false; } } return true; } /* Set flags and magic number of a coff file from architecture and machine type. Result is true if we can represent the arch&type, false if not. */ static boolean coff_set_flags (abfd, magicp, flagsp) bfd * abfd; unsigned *magicp; unsigned short *flagsp; { switch (bfd_get_arch (abfd)) { #ifdef Z8KMAGIC case bfd_arch_z8k: *magicp = Z8KMAGIC; switch (bfd_get_mach (abfd)) { case bfd_mach_z8001: *flagsp = F_Z8001; break; case bfd_mach_z8002: *flagsp = F_Z8002; break; default: return false; } return true; #endif #ifdef I960ROMAGIC case bfd_arch_i960: { unsigned flags; *magicp = I960ROMAGIC; /* ((bfd_get_file_flags(abfd) & WP_TEXT) ? I960ROMAGIC : I960RWMAGIC); FIXME??? */ switch (bfd_get_mach (abfd)) { case bfd_mach_i960_core: flags = F_I960CORE; break; case bfd_mach_i960_kb_sb: flags = F_I960KB; break; case bfd_mach_i960_mc: flags = F_I960MC; break; case bfd_mach_i960_xa: flags = F_I960XA; break; case bfd_mach_i960_ca: flags = F_I960CA; break; case bfd_mach_i960_ka_sa: flags = F_I960KA; break; default: return false; } *flagsp = flags; return true; } break; #endif #ifdef I386MAGIC case bfd_arch_i386: *magicp = I386MAGIC; #ifdef LYNXOS /* Just overwrite the usual value if we're doing Lynx. */ *magicp = LYNXCOFFMAGIC; #endif return true; break; #endif #ifdef MC68MAGIC case bfd_arch_m68k: #ifdef APOLLOM68KMAGIC *magicp = APOLLO_COFF_VERSION_NUMBER; #else *magicp = MC68MAGIC; #endif #ifdef LYNXOS /* Just overwrite the usual value if we're doing Lynx. */ *magicp = LYNXCOFFMAGIC; #endif return true; break; #endif #ifdef MC88MAGIC case bfd_arch_m88k: *magicp = MC88OMAGIC; return true; break; #endif #ifdef H8300MAGIC case bfd_arch_h8300: switch (bfd_get_mach (abfd)) { case bfd_mach_h8300: *magicp = H8300MAGIC; return true; case bfd_mach_h8300h: *magicp = H8300HMAGIC; return true; } break; #endif #ifdef SH_ARCH_MAGIC case bfd_arch_sh: *magicp = SH_ARCH_MAGIC; return true; break; #endif #ifdef SPARCMAGIC case bfd_arch_sparc: *magicp = SPARCMAGIC; #ifdef LYNXOS /* Just overwrite the usual value if we're doing Lynx. */ *magicp = LYNXCOFFMAGIC; #endif return true; break; #endif #ifdef H8500MAGIC case bfd_arch_h8500: *magicp = H8500MAGIC; return true; break; #endif #ifdef A29K_MAGIC_BIG case bfd_arch_a29k: if (abfd->xvec->byteorder_big_p) *magicp = A29K_MAGIC_BIG; else *magicp = A29K_MAGIC_LITTLE; return true; break; #endif #ifdef WE32KMAGIC case bfd_arch_we32k: *magicp = WE32KMAGIC; return true; break; #endif #ifdef U802TOCMAGIC case bfd_arch_rs6000: case bfd_arch_powerpc: *magicp = U802TOCMAGIC; return true; break; #endif default: /* Unknown architecture */ /* return false; -- fall through to "return false" below, to avoid "statement never reached" errors on the one below. */ break; } return false; } static boolean coff_set_arch_mach (abfd, arch, machine) bfd * abfd; enum bfd_architecture arch; unsigned long machine; { unsigned dummy1; unsigned short dummy2; if (! bfd_default_set_arch_mach (abfd, arch, machine)) return false; if (arch != bfd_arch_unknown && coff_set_flags (abfd, &dummy1, &dummy2) != true) return false; /* We can't represent this type */ return true; /* We're easy ... */ } /* Calculate the file position for each section. */ static void coff_compute_section_file_positions (abfd) bfd * abfd; { asection *current; asection *previous = (asection *) NULL; file_ptr sofar = FILHSZ; #ifndef I960 file_ptr old_sofar; #endif if (bfd_get_start_address (abfd)) { /* A start address may have been added to the original file. In this case it will need an optional header to record it. */ abfd->flags |= EXEC_P; } if (abfd->flags & EXEC_P) sofar += AOUTSZ; sofar += abfd->section_count * SCNHSZ; for (current = abfd->sections; current != (asection *) NULL; current = current->next) { /* Only deal with sections which have contents */ if (!(current->flags & SEC_HAS_CONTENTS)) continue; /* Align the sections in the file to the same boundary on which they are aligned in virtual memory. I960 doesn't do this (FIXME) so we can stay in sync with Intel. 960 doesn't yet page from files... */ #ifndef I960 { /* make sure this section is aligned on the right boundary - by padding the previous section up if necessary */ old_sofar = sofar; sofar = BFD_ALIGN (sofar, 1 << current->alignment_power); if (previous != (asection *) NULL) { previous->_raw_size += sofar - old_sofar; } } #endif #ifdef COFF_PAGE_SIZE /* In demand paged files the low order bits of the file offset must match the low order bits of the virtual address. */ if ((abfd->flags & D_PAGED) != 0) sofar += (current->vma - sofar) % COFF_PAGE_SIZE; #endif current->filepos = sofar; sofar += current->_raw_size; #ifndef I960 /* make sure that this section is of the right size too */ old_sofar = sofar; sofar = BFD_ALIGN (sofar, 1 << current->alignment_power); current->_raw_size += sofar - old_sofar; #endif #ifdef _LIB /* Force .lib sections to start at zero. The vma is then incremented in coff_set_section_contents. This is right for SVR3.2. */ if (strcmp (current->name, _LIB) == 0) bfd_set_section_vma (abfd, current, 0); #endif previous = current; } obj_relocbase (abfd) = sofar; } #ifndef RS6000COFF_C /* If .file, .text, .data, .bss symbols are missing, add them. */ /* @@ Should we only be adding missing symbols, or overriding the aux values for existing section symbols? */ static boolean coff_add_missing_symbols (abfd) bfd *abfd; { unsigned int nsyms = bfd_get_symcount (abfd); asymbol **sympp = abfd->outsymbols; asymbol **sympp2; unsigned int i; int need_text = 1, need_data = 1, need_bss = 1, need_file = 1; for (i = 0; i < nsyms; i++) { coff_symbol_type *csym = coff_symbol_from (abfd, sympp[i]); CONST char *name; if (csym) { /* only do this if there is a coff representation of the input symbol */ if (csym->native && csym->native->u.syment.n_sclass == C_FILE) { need_file = 0; continue; } name = csym->symbol.name; if (!name) continue; if (!strcmp (name, _TEXT)) need_text = 0; #ifdef APOLLO_M68 else if (!strcmp (name, ".wtext")) need_text = 0; #endif else if (!strcmp (name, _DATA)) need_data = 0; else if (!strcmp (name, _BSS)) need_bss = 0; } } /* Now i == bfd_get_symcount (abfd). */ /* @@ For now, don't deal with .file symbol. */ need_file = 0; if (!need_text && !need_data && !need_bss && !need_file) return true; nsyms += need_text + need_data + need_bss + need_file; sympp2 = (asymbol **) bfd_alloc_by_size_t (abfd, nsyms * sizeof (asymbol *)); if (!sympp2) { bfd_set_error (bfd_error_no_memory); return false; } memcpy (sympp2, sympp, i * sizeof (asymbol *)); if (need_file) { /* @@ Generate fake .file symbol, in sympp2[i], and increment i. */ abort (); } if (need_text) sympp2[i++] = coff_section_symbol (abfd, _TEXT); if (need_data) sympp2[i++] = coff_section_symbol (abfd, _DATA); if (need_bss) sympp2[i++] = coff_section_symbol (abfd, _BSS); BFD_ASSERT (i == nsyms); bfd_set_symtab (abfd, sympp2, nsyms); return true; } #endif /* ! defined (RS6000COFF_C) */ /* SUPPRESS 558 */ /* SUPPRESS 529 */ static boolean coff_write_object_contents (abfd) bfd * abfd; { asection *current; unsigned int count; boolean hasrelocs = false; boolean haslinno = false; file_ptr reloc_base; file_ptr lineno_base; file_ptr sym_base; file_ptr scn_base; file_ptr data_base; unsigned long reloc_size = 0; unsigned long lnno_size = 0; asection *text_sec = NULL; asection *data_sec = NULL; asection *bss_sec = NULL; struct internal_filehdr internal_f; struct internal_aouthdr internal_a; bfd_set_error (bfd_error_system_call); /* Number the output sections, starting from one on the first section with a name which doesn't start with a *. @@ The code doesn't make this check. Is it supposed to be done, or isn't it?? */ count = 1; for (current = abfd->sections; current != (asection *) NULL; current = current->next) { current->target_index = count; count++; } if (abfd->output_has_begun == false) { coff_compute_section_file_positions (abfd); } if (abfd->sections != (asection *) NULL) { scn_base = abfd->sections->filepos; } else { scn_base = 0; } if (bfd_seek (abfd, scn_base, SEEK_SET) != 0) return false; reloc_base = obj_relocbase (abfd); /* Make a pass through the symbol table to count line number entries and put them into the correct asections */ lnno_size = coff_count_linenumbers (abfd) * LINESZ; data_base = scn_base; /* Work out the size of the reloc and linno areas */ for (current = abfd->sections; current != NULL; current = current->next) { /* We give section headers to +ve indexes */ if (current->target_index > 0) { reloc_size += current->reloc_count * RELSZ; data_base += SCNHSZ; } } lineno_base = reloc_base + reloc_size; sym_base = lineno_base + lnno_size; /* Indicate in each section->line_filepos its actual file address */ for (current = abfd->sections; current != NULL; current = current->next) { if (current->target_index > 0) { if (current->lineno_count) { current->line_filepos = lineno_base; current->moving_line_filepos = lineno_base; lineno_base += current->lineno_count * LINESZ; } else { current->line_filepos = 0; } if (current->reloc_count) { current->rel_filepos = reloc_base; reloc_base += current->reloc_count * RELSZ; } else { current->rel_filepos = 0; } } } /* Write section headers to the file. */ internal_f.f_nscns = 0; if (bfd_seek (abfd, (file_ptr) ((abfd->flags & EXEC_P) ? (FILHSZ + AOUTSZ) : FILHSZ), SEEK_SET) != 0) return false; { #if 0 unsigned int pad = abfd->flags & D_PAGED ? data_base : 0; #endif unsigned int pad = 0; for (current = abfd->sections; current != NULL; current = current->next) { struct internal_scnhdr section; if (current->target_index > 0) { internal_f.f_nscns++; strncpy (&(section.s_name[0]), current->name, 8); #ifdef _LIB /* Always set s_vaddr of .lib to 0. This is right for SVR3.2 Ian Taylor . */ if (strcmp (current->name, _LIB) == 0) section.s_vaddr = 0; else #endif section.s_vaddr = current->lma + pad; section.s_paddr = current->lma + pad; section.s_size = current->_raw_size - pad; /* If this section has no size or is unloadable then the scnptr will be 0 too */ if (current->_raw_size - pad == 0 || (current->flags & (SEC_LOAD | SEC_HAS_CONTENTS)) == 0) { section.s_scnptr = 0; } else { section.s_scnptr = current->filepos; } section.s_relptr = current->rel_filepos; section.s_lnnoptr = current->line_filepos; section.s_nreloc = current->reloc_count; section.s_nlnno = current->lineno_count; if (current->reloc_count != 0) hasrelocs = true; if (current->lineno_count != 0) haslinno = true; section.s_flags = sec_to_styp_flags (current->name, current->flags); if (!strcmp (current->name, _TEXT)) { text_sec = current; } else if (!strcmp (current->name, _DATA)) { data_sec = current; #ifdef TWO_DATA_SECS } else if (!strcmp (current->name, ".data2")) { data_sec = current; #endif /* TWO_DATA_SECS */ } else if (!strcmp (current->name, _BSS)) { bss_sec = current; } #ifdef I960 section.s_align = (current->alignment_power ? 1 << current->alignment_power : 0); #endif { SCNHDR buff; coff_swap_scnhdr_out (abfd, §ion, &buff); if (bfd_write ((PTR) (&buff), 1, SCNHSZ, abfd) != SCNHSZ) return false; } pad = 0; } } } /* OK, now set up the filehdr... */ /* Don't include the internal abs section in the section count */ /* We will NOT put a fucking timestamp in the header here. Every time you put it back, I will come in and take it out again. I'm sorry. This field does not belong here. We fill it with a 0 so it compares the same but is not a reasonable time. -- gnu@cygnus.com */ internal_f.f_timdat = 0; if (bfd_get_symcount (abfd) != 0) internal_f.f_symptr = sym_base; else internal_f.f_symptr = 0; internal_f.f_flags = 0; if (abfd->flags & EXEC_P) internal_f.f_opthdr = AOUTSZ; else internal_f.f_opthdr = 0; if (!hasrelocs) internal_f.f_flags |= F_RELFLG; if (!haslinno) internal_f.f_flags |= F_LNNO; if (0 == bfd_get_symcount (abfd)) internal_f.f_flags |= F_LSYMS; if (abfd->flags & EXEC_P) internal_f.f_flags |= F_EXEC; if (!abfd->xvec->byteorder_big_p) internal_f.f_flags |= F_AR32WR; else internal_f.f_flags |= F_AR32W; /* FIXME, should do something about the other byte orders and architectures. */ memset (&internal_a, 0, sizeof internal_a); /* Set up architecture-dependent stuff */ { unsigned int magic = 0; unsigned short flags = 0; coff_set_flags (abfd, &magic, &flags); internal_f.f_magic = magic; internal_f.f_flags |= flags; /* ...and the "opt"hdr... */ #ifdef A29K #ifdef ULTRA3 /* NYU's machine */ /* FIXME: This is a bogus check. I really want to see if there * is a .shbss or a .shdata section, if so then set the magic * number to indicate a shared data executable. */ if (internal_f.f_nscns >= 7) internal_a.magic = SHMAGIC; /* Shared magic */ else #endif /* ULTRA3 */ internal_a.magic = NMAGIC;/* Assume separate i/d */ #define __A_MAGIC_SET__ #endif /* A29K */ #ifdef I960 internal_a.magic = (magic == I960ROMAGIC ? NMAGIC : OMAGIC); #define __A_MAGIC_SET__ #endif /* I960 */ #if M88 #define __A_MAGIC_SET__ internal_a.magic = PAGEMAGICBCS; #endif /* M88 */ #if APOLLO_M68 #define __A_MAGIC_SET__ internal_a.magic = APOLLO_COFF_VERSION_NUMBER; #endif #if M68 || WE32K #define __A_MAGIC_SET__ /* Never was anything here for the 68k */ #endif /* M68 || WE32K */ #if I386 #define __A_MAGIC_SET__ internal_a.magic = ZMAGIC; #endif /* I386 */ #if RS6000COFF_C #define __A_MAGIC_SET__ internal_a.magic = (abfd->flags & D_PAGED) ? RS6K_AOUTHDR_ZMAGIC : (abfd->flags & WP_TEXT) ? RS6K_AOUTHDR_NMAGIC : RS6K_AOUTHDR_OMAGIC; #endif #ifndef __A_MAGIC_SET__ #include "Your aouthdr magic number is not being set!" #else #undef __A_MAGIC_SET__ #endif } /* Now should write relocs, strings, syms */ obj_sym_filepos (abfd) = sym_base; if (bfd_get_symcount (abfd) != 0) { #ifndef RS6000COFF_C if (!coff_add_missing_symbols (abfd)) return false; #endif if (!coff_renumber_symbols (abfd)) return false; coff_mangle_symbols (abfd); if (! coff_write_symbols (abfd)) return false; if (! coff_write_linenumbers (abfd)) return false; if (! coff_write_relocs (abfd)) return false; } if (text_sec) { internal_a.tsize = bfd_get_section_size_before_reloc (text_sec); internal_a.text_start = internal_a.tsize ? text_sec->vma : 0; } if (data_sec) { internal_a.dsize = bfd_get_section_size_before_reloc (data_sec); internal_a.data_start = internal_a.dsize ? data_sec->vma : 0; } if (bss_sec) { internal_a.bsize = bfd_get_section_size_before_reloc (bss_sec); } internal_a.entry = bfd_get_start_address (abfd); internal_f.f_nsyms = bfd_get_symcount (abfd); /* now write them */ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) return false; { FILHDR buff; coff_swap_filehdr_out (abfd, (PTR) & internal_f, (PTR) & buff); if (bfd_write ((PTR) & buff, 1, FILHSZ, abfd) != FILHSZ) return false; } if (abfd->flags & EXEC_P) { AOUTHDR buff; coff_swap_aouthdr_out (abfd, (PTR) & internal_a, (PTR) & buff); if (bfd_write ((PTR) & buff, 1, AOUTSZ, abfd) != AOUTSZ) return false; } return true; } static boolean coff_set_section_contents (abfd, section, location, offset, count) bfd * abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { if (abfd->output_has_begun == false) /* set by bfd.c handler */ coff_compute_section_file_positions (abfd); #ifdef _LIB /* If this is a .lib section, bump the vma address so that it winds up being the number of .lib sections output. This is right for SVR3.2. Shared libraries should probably get more generic support. Ian Taylor . */ if (strcmp (section->name, _LIB) == 0) ++section->lma; #endif /* Don't write out bss sections - one way to do this is to see if the filepos has not been set. */ if (section->filepos == 0) return true; if (bfd_seek (abfd, (file_ptr) (section->filepos + offset), SEEK_SET) != 0) return false; if (count != 0) { return (bfd_write (location, 1, count, abfd) == count) ? true : false; } return true; } #if 0 static boolean coff_close_and_cleanup (abfd) bfd *abfd; { if (!bfd_read_p (abfd)) switch (abfd->format) { case bfd_archive: if (!_bfd_write_archive_contents (abfd)) return false; break; case bfd_object: if (!coff_write_object_contents (abfd)) return false; break; default: bfd_set_error (bfd_error_invalid_operation); return false; } /* We depend on bfd_close to free all the memory on the obstack. */ /* FIXME if bfd_release is not using obstacks! */ return true; } #endif static PTR buy_and_read (abfd, where, seek_direction, size) bfd *abfd; file_ptr where; int seek_direction; size_t size; { PTR area = (PTR) bfd_alloc (abfd, size); if (!area) { bfd_set_error (bfd_error_no_memory); return (NULL); } if (bfd_seek (abfd, where, seek_direction) != 0 || bfd_read (area, 1, size, abfd) != size) return (NULL); return (area); } /* buy_and_read() */ /* SUBSUBSECTION Reading linenumbers Creating the linenumber table is done by reading in the entire coff linenumber table, and creating another table for internal use. A coff linenumber table is structured so that each function is marked as having a line number of 0. Each line within the function is an offset from the first line in the function. The base of the line number information for the table is stored in the symbol associated with the function. The information is copied from the external to the internal table, and each symbol which marks a function is marked by pointing its... How does this work ? */ static boolean coff_slurp_line_table (abfd, asect) bfd *abfd; asection *asect; { LINENO *native_lineno; alent *lineno_cache; BFD_ASSERT (asect->lineno == (alent *) NULL); native_lineno = (LINENO *) buy_and_read (abfd, asect->line_filepos, SEEK_SET, (size_t) (LINESZ * asect->lineno_count)); lineno_cache = (alent *) bfd_alloc (abfd, (size_t) ((asect->lineno_count + 1) * sizeof (alent))); if (lineno_cache == NULL) { bfd_set_error (bfd_error_no_memory); return false; } else { unsigned int counter = 0; alent *cache_ptr = lineno_cache; LINENO *src = native_lineno; while (counter < asect->lineno_count) { struct internal_lineno dst; coff_swap_lineno_in (abfd, src, &dst); cache_ptr->line_number = dst.l_lnno; if (cache_ptr->line_number == 0) { coff_symbol_type *sym = (coff_symbol_type *) (dst.l_addr.l_symndx + obj_raw_syments (abfd))->u.syment._n._n_n._n_zeroes; cache_ptr->u.sym = (asymbol *) sym; sym->lineno = cache_ptr; } else { cache_ptr->u.offset = dst.l_addr.l_paddr - bfd_section_vma (abfd, asect); } /* If no linenumber expect a symbol index */ cache_ptr++; src++; counter++; } cache_ptr->line_number = 0; } asect->lineno = lineno_cache; /* FIXME, free native_lineno here, or use alloca or something. */ return true; } static boolean coff_slurp_symbol_table (abfd) bfd * abfd; { combined_entry_type *native_symbols; coff_symbol_type *cached_area; unsigned int *table_ptr; unsigned int number_of_symbols = 0; if (obj_symbols (abfd)) return true; if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0) return false; /* Read in the symbol table */ if ((native_symbols = coff_get_normalized_symtab (abfd)) == NULL) { return (false); } /* on error */ /* Allocate enough room for all the symbols in cached form */ cached_area = (coff_symbol_type *) bfd_alloc (abfd, (size_t) (bfd_get_symcount (abfd) * sizeof (coff_symbol_type))); if (cached_area == NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* on error */ table_ptr = (unsigned int *) bfd_alloc (abfd, (size_t) (bfd_get_symcount (abfd) * sizeof (unsigned int))); if (table_ptr == NULL) { bfd_set_error (bfd_error_no_memory); return false; } else { coff_symbol_type *dst = cached_area; unsigned int last_native_index = bfd_get_symcount (abfd); unsigned int this_index = 0; while (this_index < last_native_index) { combined_entry_type *src = native_symbols + this_index; table_ptr[this_index] = number_of_symbols; dst->symbol.the_bfd = abfd; dst->symbol.name = (char *) (src->u.syment._n._n_n._n_offset); /* We use the native name field to point to the cached field. */ src->u.syment._n._n_n._n_zeroes = (long) dst; dst->symbol.section = coff_section_from_bfd_index (abfd, src->u.syment.n_scnum); dst->symbol.flags = 0; dst->done_lineno = false; switch (src->u.syment.n_sclass) { #ifdef I960 case C_LEAFEXT: #if 0 dst->symbol.value = src->u.syment.n_value - dst->symbol.section->vma; dst->symbol.flags = BSF_EXPORT | BSF_GLOBAL; dst->symbol.flags |= BSF_NOT_AT_END; #endif /* Fall through to next case */ #endif case C_EXT: #ifdef RS6000COFF_C case C_HIDEXT: #endif if ((src->u.syment.n_scnum) == 0) { if ((src->u.syment.n_value) == 0) { dst->symbol.section = bfd_und_section_ptr; dst->symbol.value = 0; } else { dst->symbol.section = bfd_com_section_ptr; dst->symbol.value = (src->u.syment.n_value); } } else { /* Base the value as an index from the base of the section */ dst->symbol.flags = BSF_EXPORT | BSF_GLOBAL; dst->symbol.value = src->u.syment.n_value - dst->symbol.section->vma; if (ISFCN ((src->u.syment.n_type))) { /* A function ext does not go at the end of a file */ dst->symbol.flags |= BSF_NOT_AT_END; } } #ifdef RS6000COFF_C /* If this symbol has a csect aux of type LD, the scnlen field is actually the index of the containing csect symbol. We need to pointerize it. */ if (src->u.syment.n_numaux > 0) { combined_entry_type *aux; aux = src + src->u.syment.n_numaux - 1; if (SMTYP_SMTYP (aux->u.auxent.x_csect.x_smtyp) == XTY_LD) { aux->u.auxent.x_csect.x_scnlen.p = native_symbols + aux->u.auxent.x_csect.x_scnlen.l; aux->fix_scnlen = 1; } } #endif break; case C_STAT: /* static */ #ifdef I960 case C_LEAFSTAT: /* static leaf procedure */ #endif case C_LABEL: /* label */ if (src->u.syment.n_scnum == -2) dst->symbol.flags = BSF_DEBUGGING; else dst->symbol.flags = BSF_LOCAL; /* Base the value as an index from the base of the section, if there is one */ if (dst->symbol.section) dst->symbol.value = (src->u.syment.n_value) - dst->symbol.section->vma; else dst->symbol.value = (src->u.syment.n_value); break; case C_MOS: /* member of structure */ case C_EOS: /* end of structure */ #ifdef NOTDEF /* C_AUTOARG has the same value */ #ifdef C_GLBLREG case C_GLBLREG: /* A29k-specific storage class */ #endif #endif case C_REGPARM: /* register parameter */ case C_REG: /* register variable */ #ifdef C_AUTOARG case C_AUTOARG: /* 960-specific storage class */ #endif case C_TPDEF: /* type definition */ case C_ARG: case C_AUTO: /* automatic variable */ case C_FIELD: /* bit field */ case C_ENTAG: /* enumeration tag */ case C_MOE: /* member of enumeration */ case C_MOU: /* member of union */ case C_UNTAG: /* union tag */ dst->symbol.flags = BSF_DEBUGGING; dst->symbol.value = (src->u.syment.n_value); break; case C_FILE: /* file name */ case C_STRTAG: /* structure tag */ #ifdef RS6000COFF_C case C_BINCL: /* beginning of include file */ case C_EINCL: /* ending of include file */ case C_GSYM: case C_LSYM: case C_PSYM: case C_RSYM: case C_RPSYM: case C_STSYM: case C_DECL: case C_ENTRY: case C_FUN: case C_ESTAT: #endif dst->symbol.flags = BSF_DEBUGGING; dst->symbol.value = (src->u.syment.n_value); break; #ifdef RS6000COFF_C case C_BSTAT: dst->symbol.flags = BSF_DEBUGGING; dst->symbol.value = src->u.syment.n_value; /* The value is actually a symbol index. Save a pointer to the symbol instead of the index. FIXME: This should use a union. */ src->u.syment.n_value = (long) (native_symbols + src->u.syment.n_value); src->fix_value = 1; break; #endif case C_BLOCK: /* ".bb" or ".eb" */ case C_FCN: /* ".bf" or ".ef" */ case C_EFCN: /* physical end of function */ dst->symbol.flags = BSF_LOCAL; /* Base the value as an index from the base of the section */ dst->symbol.value = (src->u.syment.n_value) - dst->symbol.section->vma; break; case C_NULL: case C_EXTDEF: /* external definition */ case C_ULABEL: /* undefined label */ case C_USTATIC: /* undefined static */ case C_LINE: /* line # reformatted as symbol table entry */ case C_ALIAS: /* duplicate tag */ case C_HIDDEN: /* ext symbol in dmert public lib */ default: fprintf (stderr, "Unrecognized storage class %d (assuming debugging)\n for %s symbol `%s'\n", src->u.syment.n_sclass, dst->symbol.section->name, dst->symbol.name); /* abort();*/ dst->symbol.flags = BSF_DEBUGGING; dst->symbol.value = (src->u.syment.n_value); break; } /* BFD_ASSERT(dst->symbol.flags != 0);*/ dst->native = src; dst->symbol.udata = 0; dst->lineno = (alent *) NULL; this_index += (src->u.syment.n_numaux) + 1; dst++; number_of_symbols++; } /* walk the native symtab */ } /* bfdize the native symtab */ obj_symbols (abfd) = cached_area; obj_raw_syments (abfd) = native_symbols; obj_conv_table_size (abfd) = bfd_get_symcount (abfd); bfd_get_symcount (abfd) = number_of_symbols; obj_convert (abfd) = table_ptr; /* Slurp the line tables for each section too */ { asection *p; p = abfd->sections; while (p) { coff_slurp_line_table (abfd, p); p = p->next; } } return true; } /* coff_slurp_symbol_table() */ /* SUBSUBSECTION Reading relocations Coff relocations are easily transformed into the internal BFD form (@code{arelent}). Reading a coff relocation table is done in the following stages: o Read the entire coff relocation table into memory. o Process each relocation in turn; first swap it from the external to the internal form. o Turn the symbol referenced in the relocation's symbol index into a pointer into the canonical symbol table. This table is the same as the one returned by a call to @code{bfd_canonicalize_symtab}. The back end will call that routine and save the result if a canonicalization hasn't been done. o The reloc index is turned into a pointer to a howto structure, in a back end specific way. For instance, the 386 and 960 use the @code{r_type} to directly produce an index into a howto table vector; the 88k subtracts a number from the @code{r_type} field and creates an addend field. */ #ifndef CALC_ADDEND #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \ { \ coff_symbol_type *coffsym = (coff_symbol_type *) NULL; \ if (ptr && bfd_asymbol_bfd (ptr) != abfd) \ coffsym = (obj_symbols (abfd) \ + (cache_ptr->sym_ptr_ptr - symbols)); \ else if (ptr) \ coffsym = coff_symbol_from (abfd, ptr); \ if (coffsym != (coff_symbol_type *) NULL \ && coffsym->native->u.syment.n_scnum == 0) \ cache_ptr->addend = 0; \ else if (ptr && bfd_asymbol_bfd (ptr) == abfd \ && ptr->section != (asection *) NULL) \ cache_ptr->addend = - (ptr->section->vma + ptr->value); \ else \ cache_ptr->addend = 0; \ } #endif static boolean coff_slurp_reloc_table (abfd, asect, symbols) bfd * abfd; sec_ptr asect; asymbol ** symbols; { RELOC *native_relocs; arelent *reloc_cache; arelent *cache_ptr; unsigned int idx; if (asect->relocation) return true; if (asect->reloc_count == 0) return true; if (asect->flags & SEC_CONSTRUCTOR) return true; if (!coff_slurp_symbol_table (abfd)) return false; native_relocs = (RELOC *) buy_and_read (abfd, asect->rel_filepos, SEEK_SET, (size_t) (RELSZ * asect->reloc_count)); reloc_cache = (arelent *) bfd_alloc (abfd, (size_t) (asect->reloc_count * sizeof (arelent))); if (reloc_cache == NULL) { bfd_set_error (bfd_error_no_memory); return false; } for (idx = 0; idx < asect->reloc_count; idx++) { #ifdef RELOC_PROCESSING struct internal_reloc dst; struct external_reloc *src; cache_ptr = reloc_cache + idx; src = native_relocs + idx; bfd_swap_reloc_in (abfd, src, &dst); RELOC_PROCESSING (cache_ptr, &dst, symbols, abfd, asect); #else struct internal_reloc dst; asymbol *ptr; struct external_reloc *src; cache_ptr = reloc_cache + idx; src = native_relocs + idx; bfd_swap_reloc_in (abfd, src, &dst); cache_ptr->address = dst.r_vaddr; if (dst.r_symndx != -1) { /* @@ Should never be greater than count of symbols! */ if (dst.r_symndx >= obj_conv_table_size (abfd)) abort (); cache_ptr->sym_ptr_ptr = symbols + obj_convert (abfd)[dst.r_symndx]; ptr = *(cache_ptr->sym_ptr_ptr); } else { cache_ptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; ptr = 0; } /* The symbols definitions that we have read in have been relocated as if their sections started at 0. But the offsets refering to the symbols in the raw data have not been modified, so we have to have a negative addend to compensate. Note that symbols which used to be common must be left alone */ /* Calculate any reloc addend by looking at the symbol */ CALC_ADDEND (abfd, ptr, dst, cache_ptr); cache_ptr->address -= asect->vma; /* !! cache_ptr->section = (asection *) NULL;*/ /* Fill in the cache_ptr->howto field from dst.r_type */ RTYPE2HOWTO (cache_ptr, &dst); #endif } asect->relocation = reloc_cache; return true; } /* This is stupid. This function should be a boolean predicate. */ static long coff_canonicalize_reloc (abfd, section, relptr, symbols) bfd * abfd; sec_ptr section; arelent ** relptr; asymbol ** symbols; { arelent *tblptr = section->relocation; unsigned int count = 0; if (section->flags & SEC_CONSTRUCTOR) { /* this section has relocs made up by us, they are not in the file, so take them out of their chain and place them into the data area provided */ arelent_chain *chain = section->constructor_chain; for (count = 0; count < section->reloc_count; count++) { *relptr++ = &chain->relent; chain = chain->next; } } else { if (! coff_slurp_reloc_table (abfd, section, symbols)) return -1; tblptr = section->relocation; for (; count++ < section->reloc_count;) *relptr++ = tblptr++; } *relptr = 0; return section->reloc_count; } #ifdef GNU960 file_ptr coff_sym_filepos (abfd) bfd *abfd; { return obj_sym_filepos (abfd); } #endif #ifndef coff_reloc16_estimate #define coff_reloc16_estimate dummy_reloc16_estimate static int dummy_reloc16_estimate (abfd, input_section, reloc, shrink, link_info) bfd *abfd; asection *input_section; arelent *reloc; unsigned int shrink; struct bfd_link_info *link_info; { abort (); } #endif #ifndef coff_reloc16_extra_cases #define coff_reloc16_extra_cases dummy_reloc16_extra_cases /* This works even if abort is not declared in any header file. */ static void dummy_reloc16_extra_cases (abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr) bfd *abfd; struct bfd_link_info *link_info; struct bfd_link_order *link_order; arelent *reloc; bfd_byte *data; unsigned int *src_ptr; unsigned int *dst_ptr; { fprintf (stderr, "%s\n", reloc->howto->name); abort (); } #endif static CONST bfd_coff_backend_data bfd_coff_std_swap_table = { coff_swap_aux_in, coff_swap_sym_in, coff_swap_lineno_in, coff_swap_aux_out, coff_swap_sym_out, coff_swap_lineno_out, coff_swap_reloc_out, coff_swap_filehdr_out, coff_swap_aouthdr_out, coff_swap_scnhdr_out, FILHSZ, AOUTSZ, SCNHSZ, SYMESZ, AUXESZ, LINESZ, #ifdef COFF_LONG_FILENAMES true, #else false, #endif coff_swap_filehdr_in, coff_swap_aouthdr_in, coff_swap_scnhdr_in, coff_bad_format_hook, coff_set_arch_mach_hook, coff_mkobject_hook, styp_to_sec_flags, coff_make_section_hook, coff_set_alignment_hook, coff_slurp_symbol_table, symname_in_debug_hook, coff_reloc16_extra_cases, coff_reloc16_estimate }; #define coff_close_and_cleanup _bfd_generic_close_and_cleanup #define coff_bfd_free_cached_info _bfd_generic_bfd_free_cached_info #define coff_get_section_contents _bfd_generic_get_section_contents #define coff_bfd_copy_private_section_data \ _bfd_generic_bfd_copy_private_section_data #define coff_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data #ifndef coff_bfd_is_local_label #define coff_bfd_is_local_label bfd_generic_is_local_label #endif /* The reloc lookup routine must be supplied by each individual COFF backend. */ #ifndef coff_bfd_reloc_type_lookup #define coff_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup #endif #define coff_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define coff_bfd_relax_section bfd_generic_relax_section #define coff_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define coff_bfd_link_add_symbols _bfd_generic_link_add_symbols #define coff_bfd_final_link _bfd_generic_final_link gdb-4.13/bfd/coffgen.c 666 34562 1752 133723 5601614573 13123 0ustar fnfcygnus/* Support for the generic parts of COFF, for BFD. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Most of this hacked by Steve Chamberlain, sac@cygnus.com. Split out of coffcode.h by Ian Taylor, ian@cygnus.com. */ /* This file contains COFF code that is not dependent on any particular COFF target. There is only one version of this file in libbfd.a, so no target specific code may be put in here. Or, to put it another way, ********** DO NOT PUT TARGET SPECIFIC CODE IN THIS FILE ********** If you need to add some target specific behaviour, add a new hook function to bfd_coff_backend_data. Some of these functions are also called by the ECOFF routines. Those functions may not use any COFF specific information, such as coff_data (abfd). */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "coff/internal.h" #include "libcoff.h" static boolean coff_write_symbol PARAMS ((bfd *, asymbol *, combined_entry_type *, unsigned int *)); static boolean coff_write_alien_symbol PARAMS ((bfd *, asymbol *, unsigned int *)); static boolean coff_write_native_symbol PARAMS ((bfd *, coff_symbol_type *, unsigned int *)); static asection bfd_debug_section = { "*DEBUG*" }; /* Take a section header read from a coff file (in HOST byte order), and make a BFD "section" out of it. This is used by ECOFF. */ static boolean make_a_section_from_file (abfd, hdr, target_index) bfd *abfd; struct internal_scnhdr *hdr; unsigned int target_index; { asection *return_section; char *name; /* Assorted wastage to null-terminate the name, thanks AT&T! */ name = bfd_alloc(abfd, sizeof (hdr->s_name)+1); if (name == NULL) { bfd_set_error (bfd_error_no_memory); return false; } strncpy(name, (char *) &hdr->s_name[0], sizeof (hdr->s_name)); name[sizeof (hdr->s_name)] = 0; return_section = bfd_make_section(abfd, name); if (return_section == NULL) return_section = bfd_coff_make_section_hook (abfd, name); /* Handle several sections of the same name. For example, if an executable has two .bss sections, GDB better be able to find both of them (PR 3562). */ if (return_section == NULL) return_section = bfd_make_section_anyway (abfd, name); if (return_section == NULL) return false; /* s_paddr is presumed to be = to s_vaddr */ return_section->vma = hdr->s_vaddr; return_section->_raw_size = hdr->s_size; return_section->filepos = hdr->s_scnptr; return_section->rel_filepos = hdr->s_relptr; return_section->reloc_count = hdr->s_nreloc; bfd_coff_set_alignment_hook (abfd, return_section, hdr); return_section->line_filepos = hdr->s_lnnoptr; return_section->lineno_count = hdr->s_nlnno; return_section->userdata = NULL; return_section->next = (asection *) NULL; return_section->flags = bfd_coff_styp_to_sec_flags_hook (abfd, hdr); return_section->target_index = target_index; /* At least on i386-coff, the line number count for a shared library section must be ignored. */ if ((return_section->flags & SEC_COFF_SHARED_LIBRARY) != 0) return_section->lineno_count = 0; if (hdr->s_nreloc != 0) return_section->flags |= SEC_RELOC; /* FIXME: should this check 'hdr->s_size > 0' */ if (hdr->s_scnptr != 0) return_section->flags |= SEC_HAS_CONTENTS; return true; } /* Read in a COFF object and make it into a BFD. This is used by ECOFF as well. */ static const bfd_target * coff_real_object_p (abfd, nscns, internal_f, internal_a) bfd *abfd; unsigned nscns; struct internal_filehdr *internal_f; struct internal_aouthdr *internal_a; { PTR tdata; size_t readsize; /* length of file_info */ unsigned int scnhsz; char *external_sections; /* Build a play area */ tdata = bfd_coff_mkobject_hook (abfd, (PTR) internal_f, (PTR) internal_a); if (tdata == NULL) return 0; scnhsz = bfd_coff_scnhsz (abfd); readsize = nscns * scnhsz; external_sections = (char *)bfd_alloc(abfd, readsize); if (!external_sections) { bfd_set_error (bfd_error_no_memory); goto fail; } if (bfd_read((PTR)external_sections, 1, readsize, abfd) != readsize) { goto fail; } /* Now copy data as required; construct all asections etc */ if (nscns != 0) { unsigned int i; for (i = 0; i < nscns; i++) { struct internal_scnhdr tmp; bfd_coff_swap_scnhdr_in(abfd, (PTR) (external_sections + i * scnhsz), (PTR) &tmp); make_a_section_from_file(abfd,&tmp, i+1); } } /* make_abs_section(abfd);*/ if (bfd_coff_set_arch_mach_hook (abfd, (PTR) internal_f) == false) goto fail; if (!(internal_f->f_flags & F_RELFLG)) abfd->flags |= HAS_RELOC; if ((internal_f->f_flags & F_EXEC)) abfd->flags |= EXEC_P; if (!(internal_f->f_flags & F_LNNO)) abfd->flags |= HAS_LINENO; if (!(internal_f->f_flags & F_LSYMS)) abfd->flags |= HAS_LOCALS; /* FIXME: How can we set D_PAGED correctly? */ if ((internal_f->f_flags & F_EXEC) != 0) abfd->flags |= D_PAGED; bfd_get_symcount(abfd) = internal_f->f_nsyms; if (internal_f->f_nsyms) abfd->flags |= HAS_SYMS; if (internal_a != (struct internal_aouthdr *) NULL) bfd_get_start_address (abfd) = internal_a->entry; else bfd_get_start_address (abfd) = 0; return abfd->xvec; fail: bfd_release(abfd, tdata); return (const bfd_target *)NULL; } /* Turn a COFF file into a BFD, but fail with bfd_error_wrong_format if it is not a COFF file. This is also used by ECOFF. */ const bfd_target * coff_object_p (abfd) bfd *abfd; { unsigned int filhsz; unsigned int aoutsz; int nscns; PTR filehdr; struct internal_filehdr internal_f; struct internal_aouthdr internal_a; /* figure out how much to read */ filhsz = bfd_coff_filhsz (abfd); aoutsz = bfd_coff_aoutsz (abfd); filehdr = bfd_alloc (abfd, filhsz); if (filehdr == NULL) return 0; if (bfd_read(filehdr, 1, filhsz, abfd) != filhsz) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } bfd_coff_swap_filehdr_in(abfd, filehdr, &internal_f); bfd_release (abfd, filehdr); if (bfd_coff_bad_format_hook (abfd, &internal_f) == false) { bfd_set_error (bfd_error_wrong_format); return 0; } nscns =internal_f.f_nscns; if (internal_f.f_opthdr) { PTR opthdr; opthdr = bfd_alloc (abfd, aoutsz); if (opthdr == NULL) return 0;; if (bfd_read(opthdr, 1,aoutsz, abfd) != aoutsz) { return 0; } bfd_coff_swap_aouthdr_in(abfd, opthdr, (PTR)&internal_a); } /* Seek past the opt hdr stuff */ if (bfd_seek(abfd, (file_ptr) (internal_f.f_opthdr + filhsz), SEEK_SET) != 0) return NULL; return coff_real_object_p(abfd, nscns, &internal_f, (internal_f.f_opthdr != 0 ? &internal_a : (struct internal_aouthdr *) NULL)); } /* Get the BFD section from a COFF symbol section number. */ asection * coff_section_from_bfd_index (abfd, index) bfd *abfd; int index; { struct sec *answer = abfd->sections; if (index == N_ABS) { return bfd_abs_section_ptr; } if (index == N_UNDEF) { return bfd_und_section_ptr; } if(index == N_DEBUG) { return &bfd_debug_section; } while (answer) { if (answer->target_index == index) return answer; answer = answer->next; } /* We should not reach this point, but the SCO 3.2v4 /lib/libc_s.a has a bad symbol table in biglitpow.o. */ return bfd_und_section_ptr; } /* Get the upper bound of a COFF symbol table. */ long coff_get_symtab_upper_bound(abfd) bfd *abfd; { if (!bfd_coff_slurp_symbol_table(abfd)) return -1; return (bfd_get_symcount(abfd) + 1) * (sizeof(coff_symbol_type *)); } /* Canonicalize a COFF symbol table. */ long coff_get_symtab (abfd, alocation) bfd *abfd; asymbol **alocation; { unsigned int counter = 0; coff_symbol_type *symbase; coff_symbol_type **location = (coff_symbol_type **) (alocation); if (!bfd_coff_slurp_symbol_table(abfd)) return -1; symbase = obj_symbols(abfd); while (counter < bfd_get_symcount(abfd)) { /* This nasty code looks at the symbol to decide whether or not it is descibes a constructor/destructor entry point. It is structured this way to (hopefully) speed non matches */ #if 0 if (0 && symbase->symbol.name[9] == '$') { bfd_constructor_entry(abfd, (asymbol **)location, symbase->symbol.name[10] == 'I' ? "CTOR" : "DTOR"); } #endif *(location++) = symbase++; counter++; } *location++ = 0; return bfd_get_symcount(abfd); } /* Set lineno_count for the output sections of a COFF file. */ int coff_count_linenumbers (abfd) bfd *abfd; { unsigned int limit = bfd_get_symcount(abfd); unsigned int i; int total = 0; asymbol **p; { asection *s = abfd->sections->output_section; while (s) { BFD_ASSERT(s->lineno_count == 0); s = s->next; } } for (p = abfd->outsymbols, i = 0; i < limit; i++, p++) { asymbol *q_maybe = *p; if (bfd_asymbol_flavour(q_maybe) == bfd_target_coff_flavour) { coff_symbol_type *q = coffsymbol(q_maybe); if (q->lineno) { /* This symbol has a linenumber, increment the owning section's linenumber count */ alent *l = q->lineno; q->symbol.section->output_section->lineno_count++; total ++; l++; while (l->line_number) { total ++; q->symbol.section->output_section->lineno_count++; l++; } } } } return total; } /* Takes a bfd and a symbol, returns a pointer to the coff specific area of the symbol if there is one. */ /*ARGSUSED*/ coff_symbol_type * coff_symbol_from (ignore_abfd, symbol) bfd *ignore_abfd; asymbol *symbol; { if (bfd_asymbol_flavour(symbol) != bfd_target_coff_flavour) return (coff_symbol_type *)NULL; if (bfd_asymbol_bfd(symbol)->tdata.coff_obj_data == (coff_data_type*)NULL) return (coff_symbol_type *)NULL; return (coff_symbol_type *) symbol; } static void fixup_symbol_value (coff_symbol_ptr, syment) coff_symbol_type *coff_symbol_ptr; struct internal_syment *syment; { /* Normalize the symbol flags */ if (bfd_is_com_section (coff_symbol_ptr->symbol.section)) { /* a common symbol is undefined with a value */ syment->n_scnum = N_UNDEF; syment->n_value = coff_symbol_ptr->symbol.value; } else if (coff_symbol_ptr->symbol.flags & BSF_DEBUGGING) { syment->n_value = coff_symbol_ptr->symbol.value; } else if (bfd_is_und_section (coff_symbol_ptr->symbol.section)) { syment->n_scnum = N_UNDEF; syment->n_value = 0; } else { if (coff_symbol_ptr->symbol.section) { syment->n_scnum = coff_symbol_ptr->symbol.section->output_section->target_index; syment->n_value = coff_symbol_ptr->symbol.value + coff_symbol_ptr->symbol.section->output_offset + coff_symbol_ptr->symbol.section->output_section->vma; } else { BFD_ASSERT(0); /* This can happen, but I don't know why yet (steve@cygnus.com) */ syment->n_scnum = N_ABS; syment->n_value = coff_symbol_ptr->symbol.value; } } } /* run through all the symbols in the symbol table and work out what their indexes into the symbol table will be when output Coff requires that each C_FILE symbol points to the next one in the chain, and that the last one points to the first external symbol. We do that here too. */ boolean coff_renumber_symbols (bfd_ptr) bfd *bfd_ptr; { unsigned int symbol_count = bfd_get_symcount(bfd_ptr); asymbol **symbol_ptr_ptr = bfd_ptr->outsymbols; unsigned int native_index = 0; struct internal_syment *last_file = (struct internal_syment *)NULL; unsigned int symbol_index; /* COFF demands that undefined symbols come after all other symbols. Since we don't need to impose this extra knowledge on all our client programs, deal with that here. Sort the symbol table; just move the undefined symbols to the end, leaving the rest alone. */ /* @@ Do we have some condition we could test for, so we don't always have to do this? I don't think relocatability is quite right, but I'm not certain. [raeburn:19920508.1711EST] */ { asymbol **newsyms; int i; newsyms = (asymbol **) bfd_alloc_by_size_t (bfd_ptr, sizeof (asymbol *) * (symbol_count + 1)); if (!newsyms) { bfd_set_error (bfd_error_no_memory); return false; } bfd_ptr->outsymbols = newsyms; for (i = 0; i < symbol_count; i++) if (! bfd_is_und_section (symbol_ptr_ptr[i]->section)) *newsyms++ = symbol_ptr_ptr[i]; for (i = 0; i < symbol_count; i++) if (bfd_is_und_section (symbol_ptr_ptr[i]->section)) *newsyms++ = symbol_ptr_ptr[i]; *newsyms = (asymbol *) NULL; symbol_ptr_ptr = bfd_ptr->outsymbols; } for (symbol_index = 0; symbol_index < symbol_count; symbol_index++) { coff_symbol_type *coff_symbol_ptr = coff_symbol_from(bfd_ptr, symbol_ptr_ptr[symbol_index]); if (coff_symbol_ptr && coff_symbol_ptr->native) { combined_entry_type *s = coff_symbol_ptr->native; int i; if (s->u.syment.n_sclass == C_FILE) { if (last_file != (struct internal_syment *)NULL) { last_file->n_value = native_index; } last_file = &(s->u.syment); } else { /* Modify the symbol values according to their section and type */ fixup_symbol_value(coff_symbol_ptr, &(s->u.syment)); } for (i = 0; i < s->u.syment.n_numaux + 1; i++) { s[i].offset = native_index ++; } } else { native_index++; } } obj_conv_table_size (bfd_ptr) = native_index; return true; } /* Run thorough the symbol table again, and fix it so that all pointers to entries are changed to the entries' index in the output symbol table. */ void coff_mangle_symbols (bfd_ptr) bfd *bfd_ptr; { unsigned int symbol_count = bfd_get_symcount (bfd_ptr); asymbol **symbol_ptr_ptr = bfd_ptr->outsymbols; unsigned int symbol_index; for (symbol_index = 0; symbol_index < symbol_count; symbol_index++) { coff_symbol_type *coff_symbol_ptr = coff_symbol_from (bfd_ptr, symbol_ptr_ptr[symbol_index]); if (coff_symbol_ptr && coff_symbol_ptr->native) { int i; combined_entry_type *s = coff_symbol_ptr->native; if (s->fix_value) { /* FIXME: We should use a union here. */ s->u.syment.n_value = ((combined_entry_type *) s->u.syment.n_value)->offset; s->fix_value = 0; } for (i = 0; i < s->u.syment.n_numaux ; i++) { combined_entry_type *a = s + i + 1; if (a->fix_tag) { a->u.auxent.x_sym.x_tagndx.l = a->u.auxent.x_sym.x_tagndx.p->offset; a->fix_tag = 0; } if (a->fix_end) { a->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l = a->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p->offset; a->fix_end = 0; } if (a->fix_scnlen) { a->u.auxent.x_csect.x_scnlen.l = a->u.auxent.x_csect.x_scnlen.p->offset; a->fix_scnlen = 0; } } } } } static bfd_size_type string_size; static bfd_size_type debug_string_size; static asection *debug_string_section; static void coff_fix_symbol_name (abfd, symbol, native) bfd *abfd; asymbol *symbol; combined_entry_type *native; { unsigned int name_length; union internal_auxent *auxent; char * name = ( char *)(symbol->name); if (name == (char *) NULL) { /* coff symbols always have names, so we'll make one up */ symbol->name = "strange"; name = (char *)symbol->name; } name_length = strlen(name); if (native->u.syment.n_sclass == C_FILE) { strncpy(native->u.syment._n._n_name, ".file", SYMNMLEN); auxent = &(native+1)->u.auxent; if (bfd_coff_long_filenames (abfd)) { if (name_length <= FILNMLEN) { strncpy(auxent->x_file.x_fname, name, FILNMLEN); } else { auxent->x_file.x_n.x_offset = string_size + 4; auxent->x_file.x_n.x_zeroes = 0; string_size += name_length + 1; } } else { strncpy(auxent->x_file.x_fname, name, FILNMLEN); if (name_length > FILNMLEN) { name[FILNMLEN] = '\0'; } } } else { /* NOT A C_FILE SYMBOL */ if (name_length <= SYMNMLEN) { /* This name will fit into the symbol neatly */ strncpy(native->u.syment._n._n_name, symbol->name, SYMNMLEN); } else if (! bfd_coff_symname_in_debug (abfd, &native->u.syment)) { native->u.syment._n._n_n._n_offset = string_size + 4; native->u.syment._n._n_n._n_zeroes = 0; string_size += name_length + 1; } else { long filepos; bfd_byte buf[2]; /* This name should be written into the .debug section. For some reason each name is preceded by a two byte length and also followed by a null byte. FIXME: We assume that the .debug section has already been created, and that it is large enough. */ if (debug_string_section == (asection *) NULL) debug_string_section = bfd_get_section_by_name (abfd, ".debug"); filepos = bfd_tell (abfd); bfd_put_16 (abfd, name_length + 1, buf); if (! bfd_set_section_contents (abfd, debug_string_section, (PTR) buf, (file_ptr) debug_string_size, (bfd_size_type) 2) || ! bfd_set_section_contents (abfd, debug_string_section, (PTR) symbol->name, (file_ptr) debug_string_size + 2, (bfd_size_type) name_length + 1)) abort (); if (bfd_seek (abfd, filepos, SEEK_SET) != 0) abort (); native->u.syment._n._n_n._n_offset = debug_string_size + 2; native->u.syment._n._n_n._n_zeroes = 0; debug_string_size += name_length + 3; } } } /* We need to keep track of the symbol index so that when we write out the relocs we can get the index for a symbol. This method is a hack. FIXME. */ #define set_index(symbol, idx) ((symbol)->udata = (PTR) (idx)) /* Write a symbol out to a COFF file. */ static boolean coff_write_symbol (abfd, symbol, native, written) bfd *abfd; asymbol *symbol; combined_entry_type *native; unsigned int *written; { unsigned int numaux = native->u.syment.n_numaux; int type = native->u.syment.n_type; int class = native->u.syment.n_sclass; PTR buf; bfd_size_type symesz; /* @@ bfd_debug_section isn't accessible outside this file, but we know that C_FILE symbols belong there. So move them. */ if (native->u.syment.n_sclass == C_FILE) symbol->section = &bfd_debug_section; if (bfd_is_abs_section (symbol->section)) { native->u.syment.n_scnum = N_ABS; } else if (symbol->section == &bfd_debug_section) { native->u.syment.n_scnum = N_DEBUG; } else if (bfd_is_und_section (symbol->section)) { native->u.syment.n_scnum = N_UNDEF; } else { native->u.syment.n_scnum = symbol->section->output_section->target_index; } coff_fix_symbol_name (abfd, symbol, native); symesz = bfd_coff_symesz (abfd); buf = bfd_alloc (abfd, symesz); if (!buf) { bfd_set_error (bfd_error_no_memory); return false; } bfd_coff_swap_sym_out (abfd, &native->u.syment, buf); if (bfd_write (buf, 1, symesz, abfd) != symesz) return false; bfd_release (abfd, buf); if (native->u.syment.n_numaux > 0) { bfd_size_type auxesz; unsigned int j; auxesz = bfd_coff_auxesz (abfd); buf = bfd_alloc (abfd, auxesz); if (!buf) { bfd_set_error (bfd_error_no_memory); return false; } for (j = 0; j < native->u.syment.n_numaux; j++) { bfd_coff_swap_aux_out (abfd, &((native + j + 1)->u.auxent), type, class, j, native->u.syment.n_numaux, buf); if (bfd_write (buf, 1, auxesz, abfd)!= auxesz) return false; } bfd_release (abfd, buf); } /* Store the index for use when we write out the relocs. */ set_index (symbol, *written); *written += numaux + 1; return true; } /* Write out a symbol to a COFF file that does not come from a COFF file originally. This symbol may have been created by the linker, or we may be linking a non COFF file to a COFF file. */ static boolean coff_write_alien_symbol (abfd, symbol, written) bfd *abfd; asymbol *symbol; unsigned int *written; { combined_entry_type *native; combined_entry_type dummy; native = &dummy; native->u.syment.n_type = T_NULL; native->u.syment.n_flags = 0; if (bfd_is_und_section (symbol->section)) { native->u.syment.n_scnum = N_UNDEF; native->u.syment.n_value = symbol->value; } else if (bfd_is_com_section (symbol->section)) { native->u.syment.n_scnum = N_UNDEF; native->u.syment.n_value = symbol->value; } else if (symbol->flags & BSF_DEBUGGING) { /* Remove the symbol name so that it does not take up any space. COFF won't know what to do with it anyhow. */ symbol->name = ""; } else { native->u.syment.n_scnum = symbol->section->output_section->target_index; native->u.syment.n_value = (symbol->value + symbol->section->output_section->vma + symbol->section->output_offset); /* Copy the any flags from the the file header into the symbol. FIXME: Why? */ { coff_symbol_type *c = coff_symbol_from (abfd, symbol); if (c != (coff_symbol_type *) NULL) native->u.syment.n_flags = bfd_asymbol_bfd (&c->symbol)->flags; } } native->u.syment.n_type = 0; if (symbol->flags & BSF_LOCAL) native->u.syment.n_sclass = C_STAT; else native->u.syment.n_sclass = C_EXT; native->u.syment.n_numaux = 0; return coff_write_symbol (abfd, symbol, native, written); } /* Write a native symbol to a COFF file. */ static boolean coff_write_native_symbol (abfd, symbol, written) bfd *abfd; coff_symbol_type *symbol; unsigned int *written; { combined_entry_type *native = symbol->native; alent *lineno = symbol->lineno; /* If this symbol has an associated line number, we must store the symbol index in the line number field. We also tag the auxent to point to the right place in the lineno table. */ if (lineno && !symbol->done_lineno) { unsigned int count = 0; lineno[count].u.offset = *written; if (native->u.syment.n_numaux) { union internal_auxent *a = &((native+1)->u.auxent); a->x_sym.x_fcnary.x_fcn.x_lnnoptr = symbol->symbol.section->output_section->moving_line_filepos; } /* Count and relocate all other linenumbers. */ count++; while (lineno[count].line_number != 0) { #if 0 /* 13 april 92. sac I've been told this, but still need proof: > The second bug is also in `bfd/coffcode.h'. This bug > causes the linker to screw up the pc-relocations for > all the line numbers in COFF code. This bug isn't only > specific to A29K implementations, but affects all > systems using COFF format binaries. Note that in COFF > object files, the line number core offsets output by > the assembler are relative to the start of each > procedure, not to the start of the .text section. This > patch relocates the line numbers relative to the > `native->u.syment.n_value' instead of the section > virtual address. > modular!olson@cs.arizona.edu (Jon Olson) */ lineno[count].u.offset += native->u.syment.n_value; #else lineno[count].u.offset += (symbol->symbol.section->output_section->vma + symbol->symbol.section->output_offset); #endif count++; } symbol->done_lineno = true; symbol->symbol.section->output_section->moving_line_filepos += count * bfd_coff_linesz (abfd); } return coff_write_symbol (abfd, &(symbol->symbol), native, written); } /* Write out the COFF symbols. */ boolean coff_write_symbols (abfd) bfd *abfd; { unsigned int i; unsigned int limit = bfd_get_symcount(abfd); unsigned int written = 0; asymbol **p; string_size = 0; debug_string_size = 0; /* Seek to the right place */ if (bfd_seek (abfd, obj_sym_filepos(abfd), SEEK_SET) != 0) return false; /* Output all the symbols we have */ written = 0; for (p = abfd->outsymbols, i = 0; i < limit; i++, p++) { asymbol *symbol = *p; coff_symbol_type *c_symbol = coff_symbol_from (abfd, symbol); if (c_symbol == (coff_symbol_type *) NULL || c_symbol->native == (combined_entry_type *)NULL) { if (! coff_write_alien_symbol (abfd, symbol, &written)) return false; } else { if (! coff_write_native_symbol (abfd, c_symbol, &written)) return false; } } bfd_get_symcount (abfd) = written; /* Now write out strings */ if (string_size != 0) { unsigned int size = string_size + 4; bfd_byte buffer[4]; bfd_h_put_32 (abfd, size, buffer); if (bfd_write ((PTR) buffer, 1, sizeof (buffer), abfd) != sizeof (buffer)) return false; for (p = abfd->outsymbols, i = 0; i < limit; i++, p++) { asymbol *q = *p; size_t name_length = strlen (q->name); coff_symbol_type *c_symbol = coff_symbol_from (abfd, q); size_t maxlen; /* Figure out whether the symbol name should go in the string table. Symbol names that are short enough are stored directly in the syment structure. File names permit a different, longer, length in the syment structure. On XCOFF, some symbol names are stored in the .debug section rather than in the string table. */ if (c_symbol == NULL || c_symbol->native == NULL) { /* This is not a COFF symbol, so it certainly is not a file name, nor does it go in the .debug section. */ maxlen = SYMNMLEN; } else if (bfd_coff_symname_in_debug (abfd, &c_symbol->native->u.syment)) { /* This symbol name is in the XCOFF .debug section. Don't write it into the string table. */ maxlen = name_length; } else if (c_symbol->native->u.syment.n_sclass == C_FILE) maxlen = FILNMLEN; else maxlen = SYMNMLEN; if (name_length > maxlen) { if (bfd_write ((PTR) (q->name), 1, name_length + 1, abfd) != name_length + 1) return false; } } } else { /* We would normally not write anything here, but we'll write out 4 so that any stupid coff reader which tries to read the string table even when there isn't one won't croak. */ unsigned int size = 4; bfd_byte buffer[4]; bfd_h_put_32 (abfd, size, buffer); if (bfd_write ((PTR) buffer, 1, 4, abfd) != 4) return false; } /* Make sure the .debug section was created to be the correct size. We should create it ourselves on the fly, but we don't because BFD won't let us write to any section until we know how large all the sections are. We could still do it by making another pass over the symbols. FIXME. */ BFD_ASSERT (debug_string_size == 0 || (debug_string_section != (asection *) NULL && (BFD_ALIGN (debug_string_size, 1 << debug_string_section->alignment_power) == bfd_section_size (abfd, debug_string_section)))); return true; } boolean coff_write_linenumbers (abfd) bfd *abfd; { asection *s; bfd_size_type linesz; PTR buff; linesz = bfd_coff_linesz (abfd); buff = bfd_alloc (abfd, linesz); if (!buff) { bfd_set_error (bfd_error_no_memory); return false; } for (s = abfd->sections; s != (asection *) NULL; s = s->next) { if (s->lineno_count) { asymbol **q = abfd->outsymbols; if (bfd_seek(abfd, s->line_filepos, SEEK_SET) != 0) return false; /* Find all the linenumbers in this section */ while (*q) { asymbol *p = *q; if (p->section->output_section == s) { alent *l = BFD_SEND(bfd_asymbol_bfd(p), _get_lineno, (bfd_asymbol_bfd(p), p)); if (l) { /* Found a linenumber entry, output */ struct internal_lineno out; memset( (PTR)&out, 0, sizeof(out)); out.l_lnno = 0; out.l_addr.l_symndx = l->u.offset; bfd_coff_swap_lineno_out(abfd, &out, buff); if (bfd_write(buff, 1, linesz, abfd) != linesz) return false; l++; while (l->line_number) { out.l_lnno = l->line_number; out.l_addr.l_symndx = l->u.offset; bfd_coff_swap_lineno_out(abfd, &out, buff); if (bfd_write(buff, 1, linesz, abfd) != linesz) return false; l++; } } } q++; } } } bfd_release (abfd, buff); return true; } /*ARGSUSED*/ alent * coff_get_lineno (ignore_abfd, symbol) bfd *ignore_abfd; asymbol *symbol; { return coffsymbol(symbol)->lineno; } asymbol * coff_section_symbol (abfd, name) bfd *abfd; char *name; { asection *sec = bfd_make_section_old_way (abfd, name); asymbol *sym; combined_entry_type *csym; sym = sec->symbol; csym = coff_symbol_from (abfd, sym)->native; /* Make sure back-end COFF stuff is there. */ if (csym == 0) { struct foo { coff_symbol_type sym; /* @@FIXME This shouldn't use a fixed size!! */ combined_entry_type e[10]; }; struct foo *f; f = (struct foo *) bfd_alloc_by_size_t (abfd, sizeof (*f)); if (!f) { bfd_set_error (bfd_error_no_error); return NULL; } memset ((char *) f, 0, sizeof (*f)); coff_symbol_from (abfd, sym)->native = csym = f->e; } csym[0].u.syment.n_sclass = C_STAT; csym[0].u.syment.n_numaux = 1; /* SF_SET_STATICS (sym); @@ ??? */ csym[1].u.auxent.x_scn.x_scnlen = sec->_raw_size; csym[1].u.auxent.x_scn.x_nreloc = sec->reloc_count; csym[1].u.auxent.x_scn.x_nlinno = sec->lineno_count; if (sec->output_section == NULL) { sec->output_section = sec; sec->output_offset = 0; } return sym; } /* This function transforms the offsets into the symbol table into pointers to syments. */ static void coff_pointerize_aux (abfd, table_base, type, class, auxent) bfd *abfd; combined_entry_type *table_base; int type; int class; combined_entry_type *auxent; { /* Don't bother if this is a file or a section */ if (class == C_STAT && type == T_NULL) return; if (class == C_FILE) return; /* Otherwise patch up */ #define N_TMASK coff_data (abfd)->local_n_tmask #define N_BTSHFT coff_data (abfd)->local_n_btshft if (ISFCN(type) || ISTAG(class) || class == C_BLOCK) { auxent->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p = table_base + auxent->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l; auxent->fix_end = 1; } /* A negative tagndx is meaningless, but the SCO 3.2v4 cc can generate one, so we must be careful to ignore it. */ if (auxent->u.auxent.x_sym.x_tagndx.l > 0) { auxent->u.auxent.x_sym.x_tagndx.p = table_base + auxent->u.auxent.x_sym.x_tagndx.l; auxent->fix_tag = 1; } } static char * build_string_table (abfd) bfd *abfd; { char string_table_size_buffer[4]; unsigned int string_table_size; char *string_table; /* At this point we should be "seek"'d to the end of the symbols === the symbol table size. */ if (bfd_read((char *) string_table_size_buffer, sizeof(string_table_size_buffer), 1, abfd) != sizeof(string_table_size)) return (NULL); string_table_size = bfd_h_get_32(abfd, (bfd_byte *) string_table_size_buffer); if ((string_table = (PTR) bfd_alloc(abfd, string_table_size -= 4)) == NULL) { bfd_set_error (bfd_error_no_memory); return (NULL); } /* on mallocation error */ if (bfd_read(string_table, string_table_size, 1, abfd) != string_table_size) return (NULL); return string_table; } /* Allocate space for the ".debug" section, and read it. We did not read the debug section until now, because we didn't want to go to the trouble until someone needed it. */ static char * build_debug_section (abfd) bfd *abfd; { char *debug_section; long position; asection *sect = bfd_get_section_by_name (abfd, ".debug"); if (!sect) { bfd_set_error (bfd_error_no_debug_section); return NULL; } debug_section = (PTR) bfd_alloc (abfd, bfd_get_section_size_before_reloc (sect)); if (debug_section == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Seek to the beginning of the `.debug' section and read it. Save the current position first; it is needed by our caller. Then read debug section and reset the file pointer. */ position = bfd_tell (abfd); if (bfd_seek (abfd, sect->filepos, SEEK_SET) != 0 || (bfd_read (debug_section, bfd_get_section_size_before_reloc (sect), 1, abfd) != bfd_get_section_size_before_reloc(sect)) || bfd_seek (abfd, position, SEEK_SET) != 0) return NULL; return debug_section; } /* Return a pointer to a malloc'd copy of 'name'. 'name' may not be \0-terminated, but will not exceed 'maxlen' characters. The copy *will* be \0-terminated. */ static char * copy_name (abfd, name, maxlen) bfd *abfd; char *name; int maxlen; { int len; char *newname; for (len = 0; len < maxlen; ++len) { if (name[len] == '\0') { break; } } if ((newname = (PTR) bfd_alloc(abfd, len+1)) == NULL) { bfd_set_error (bfd_error_no_memory); return (NULL); } strncpy(newname, name, len); newname[len] = '\0'; return newname; } /* Read a symbol table into freshly bfd_allocated memory, swap it, and knit the symbol names into a normalized form. By normalized here I mean that all symbols have an n_offset pointer that points to a null- terminated string. */ combined_entry_type * coff_get_normalized_symtab (abfd) bfd *abfd; { combined_entry_type *internal; combined_entry_type *internal_ptr; combined_entry_type *symbol_ptr; combined_entry_type *internal_end; bfd_size_type symesz; PTR raw; char *raw_src; char *raw_end; char *string_table = NULL; char *debug_section = NULL; unsigned long size; unsigned int raw_size; if (obj_raw_syments(abfd) != (combined_entry_type *)NULL) { return obj_raw_syments(abfd); } if ((size = bfd_get_symcount(abfd) * sizeof(combined_entry_type)) == 0) { bfd_set_error (bfd_error_no_symbols); return (NULL); } internal = (combined_entry_type *)bfd_alloc(abfd, size); if (!internal) { bfd_set_error (bfd_error_no_memory); return NULL; } internal_end = internal + bfd_get_symcount(abfd); symesz = bfd_coff_symesz (abfd); raw_size = bfd_get_symcount(abfd) * symesz; raw = bfd_alloc(abfd,raw_size); if (!raw) { bfd_set_error (bfd_error_no_memory); return NULL; } if (bfd_seek(abfd, obj_sym_filepos(abfd), SEEK_SET) == -1 || bfd_read(raw, raw_size, 1, abfd) != raw_size) return (NULL); /* mark the end of the symbols */ raw_end = (char *) raw + bfd_get_symcount(abfd) * symesz; /* FIXME SOMEDAY. A string table size of zero is very weird, but probably possible. If one shows up, it will probably kill us. */ /* Swap all the raw entries */ for (raw_src = (char *) raw, internal_ptr = internal; raw_src < raw_end; raw_src += symesz, internal_ptr++) { unsigned int i; bfd_coff_swap_sym_in(abfd, (PTR)raw_src, (PTR)&internal_ptr->u.syment); internal_ptr->fix_value = 0; internal_ptr->fix_tag = 0; internal_ptr->fix_end = 0; internal_ptr->fix_scnlen = 0; symbol_ptr = internal_ptr; for (i = 0; i < symbol_ptr->u.syment.n_numaux; i++) { internal_ptr++; raw_src += symesz; internal_ptr->fix_value = 0; internal_ptr->fix_tag = 0; internal_ptr->fix_end = 0; internal_ptr->fix_scnlen = 0; bfd_coff_swap_aux_in(abfd, (PTR) raw_src, symbol_ptr->u.syment.n_type, symbol_ptr->u.syment.n_sclass, i, symbol_ptr->u.syment.n_numaux, &(internal_ptr->u.auxent)); /* Remember that bal entries arn't pointerized */ if (i != 1 || symbol_ptr->u.syment.n_sclass != C_LEAFPROC) { coff_pointerize_aux(abfd, internal, symbol_ptr->u.syment.n_type, symbol_ptr->u.syment.n_sclass, internal_ptr); } } } /* Free all the raw stuff */ bfd_release(abfd, raw); for (internal_ptr = internal; internal_ptr < internal_end; internal_ptr ++) { if (internal_ptr->u.syment.n_sclass == C_FILE) { /* make a file symbol point to the name in the auxent, since the text ".file" is redundant */ if ((internal_ptr+1)->u.auxent.x_file.x_n.x_zeroes == 0) { /* the filename is a long one, point into the string table */ if (string_table == NULL) { string_table = build_string_table(abfd); } internal_ptr->u.syment._n._n_n._n_offset = (long) (string_table - 4 + (internal_ptr+1)->u.auxent.x_file.x_n.x_offset); } else { /* ordinary short filename, put into memory anyway */ internal_ptr->u.syment._n._n_n._n_offset = (long) copy_name(abfd, (internal_ptr+1)->u.auxent.x_file.x_fname, FILNMLEN); } } else { if (internal_ptr->u.syment._n._n_n._n_zeroes != 0) { /* This is a "short" name. Make it long. */ unsigned long i = 0; char *newstring = NULL; /* find the length of this string without walking into memory that isn't ours. */ for (i = 0; i < 8; ++i) { if (internal_ptr->u.syment._n._n_name[i] == '\0') { break; } /* if end of string */ } /* possible lengths of this string. */ if ((newstring = (PTR) bfd_alloc(abfd, ++i)) == NULL) { bfd_set_error (bfd_error_no_memory); return (NULL); } /* on error */ memset(newstring, 0, i); strncpy(newstring, internal_ptr->u.syment._n._n_name, i-1); internal_ptr->u.syment._n._n_n._n_offset = (long int) newstring; internal_ptr->u.syment._n._n_n._n_zeroes = 0; } else if (internal_ptr->u.syment._n._n_n._n_offset == 0) internal_ptr->u.syment._n._n_n._n_offset = (long int) ""; else if (!bfd_coff_symname_in_debug(abfd, &internal_ptr->u.syment)) { /* Long name already. Point symbol at the string in the table. */ if (string_table == NULL) { string_table = build_string_table(abfd); } internal_ptr->u.syment._n._n_n._n_offset = (long int) (string_table - 4 + internal_ptr->u.syment._n._n_n._n_offset); } else { /* Long name in debug section. Very similar. */ if (debug_section == NULL) { debug_section = build_debug_section(abfd); } internal_ptr->u.syment._n._n_n._n_offset = (long int) (debug_section + internal_ptr->u.syment._n._n_n._n_offset); } } internal_ptr += internal_ptr->u.syment.n_numaux; } obj_raw_syments(abfd) = internal; obj_raw_syment_count(abfd) = internal_ptr - internal; return (internal); } /* coff_get_normalized_symtab() */ long coff_get_reloc_upper_bound (abfd, asect) bfd *abfd; sec_ptr asect; { if (bfd_get_format(abfd) != bfd_object) { bfd_set_error (bfd_error_invalid_operation); return -1; } return (asect->reloc_count + 1) * sizeof(arelent *); } asymbol * coff_make_empty_symbol (abfd) bfd *abfd; { coff_symbol_type *new = (coff_symbol_type *) bfd_alloc(abfd, sizeof(coff_symbol_type)); if (new == NULL) { bfd_set_error (bfd_error_no_memory); return (NULL); } /* on error */ memset (new, 0, sizeof *new); new->symbol.section = 0; new->native = 0; new->lineno = (alent *) NULL; new->done_lineno = false; new->symbol.the_bfd = abfd; return &new->symbol; } /* Make a debugging symbol. */ asymbol * coff_bfd_make_debug_symbol (abfd, ptr, sz) bfd *abfd; PTR ptr; unsigned long sz; { coff_symbol_type *new = (coff_symbol_type *) bfd_alloc(abfd, sizeof(coff_symbol_type)); if (new == NULL) { bfd_set_error (bfd_error_no_memory); return (NULL); } /* on error */ /* @@ This shouldn't be using a constant multiplier. */ new->native = (combined_entry_type *) bfd_zalloc (abfd, sizeof (combined_entry_type) * 10); if (!new->native) { bfd_set_error (bfd_error_no_memory); return (NULL); } /* on error */ new->symbol.section = &bfd_debug_section; new->lineno = (alent *) NULL; new->done_lineno = false; new->symbol.the_bfd = abfd; return &new->symbol; } /*ARGSUSED*/ void coff_get_symbol_info (abfd, symbol, ret) bfd *abfd; asymbol *symbol; symbol_info *ret; { bfd_symbol_info (symbol, ret); } /* Print out information about COFF symbol. */ void coff_print_symbol (abfd, filep, symbol, how) bfd *abfd; PTR filep; asymbol *symbol; bfd_print_symbol_type how; { FILE *file = (FILE *) filep; switch (how) { case bfd_print_symbol_name: fprintf (file, "%s", symbol->name); break; case bfd_print_symbol_more: fprintf (file, "coff %s %s", coffsymbol(symbol)->native ? "n" : "g", coffsymbol(symbol)->lineno ? "l" : " "); break; case bfd_print_symbol_all: if (coffsymbol(symbol)->native) { unsigned int aux; combined_entry_type *combined = coffsymbol (symbol)->native; combined_entry_type *root = obj_raw_syments (abfd); struct lineno_cache_entry *l = coffsymbol(symbol)->lineno; fprintf (file,"[%3d]", combined - root); fprintf (file, "(sc %2d)(fl 0x%02x)(ty %3x)(sc %3d) (nx %d) 0x%08lx %s", combined->u.syment.n_scnum, combined->u.syment.n_flags, combined->u.syment.n_type, combined->u.syment.n_sclass, combined->u.syment.n_numaux, (unsigned long) combined->u.syment.n_value, symbol->name); for (aux = 0; aux < combined->u.syment.n_numaux; aux++) { combined_entry_type *auxp = combined + aux + 1; long tagndx; if (auxp->fix_tag) tagndx = auxp->u.auxent.x_sym.x_tagndx.p - root; else tagndx = auxp->u.auxent.x_sym.x_tagndx.l; fprintf (file, "\n"); switch (combined->u.syment.n_sclass) { case C_FILE: fprintf (file, "File "); break; default: fprintf (file, "AUX lnno %d size 0x%x tagndx %ld", auxp->u.auxent.x_sym.x_misc.x_lnsz.x_lnno, auxp->u.auxent.x_sym.x_misc.x_lnsz.x_size, tagndx); break; } } if (l) { fprintf (file, "\n%s :", l->u.sym->name); l++; while (l->line_number) { fprintf (file, "\n%4d : 0x%lx", l->line_number, ((unsigned long) (l->u.offset + symbol->section->vma))); l++; } } } else { bfd_print_symbol_vandf ((PTR) file, symbol); fprintf (file, " %-5s %s %s %s", symbol->section->name, coffsymbol(symbol)->native ? "n" : "g", coffsymbol(symbol)->lineno ? "l" : " ", symbol->name); } } } /* Provided a BFD, a section and an offset into the section, calculate and return the name of the source file and the line nearest to the wanted location. */ /*ARGSUSED*/ boolean coff_find_nearest_line (abfd, section, ignore_symbols, offset, filename_ptr, functionname_ptr, line_ptr) bfd *abfd; asection *section; asymbol **ignore_symbols; bfd_vma offset; CONST char **filename_ptr; CONST char **functionname_ptr; unsigned int *line_ptr; { static bfd *cache_abfd; static asection *cache_section; static bfd_vma cache_offset; static unsigned int cache_i; static CONST char *cache_function; static unsigned int line_base = 0; unsigned int i = 0; coff_data_type *cof = coff_data(abfd); /* Run through the raw syments if available */ combined_entry_type *p; alent *l; *filename_ptr = 0; *functionname_ptr = 0; *line_ptr = 0; /* Don't try and find line numbers in a non coff file */ if (abfd->xvec->flavour != bfd_target_coff_flavour) return false; if (cof == NULL) return false; p = cof->raw_syments; for (i = 0; i < cof->raw_syment_count; i++) { if (p->u.syment.n_sclass == C_FILE) { /* File name has been moved into symbol */ *filename_ptr = (char *) p->u.syment._n._n_n._n_offset; break; } p += 1 + p->u.syment.n_numaux; } /* Now wander though the raw linenumbers of the section */ /* If this is the same BFD as we were previously called with and this is the same section, and the offset we want is further down then we can prime the lookup loop */ if (abfd == cache_abfd && section == cache_section && offset >= cache_offset) { i = cache_i; *functionname_ptr = cache_function; } else { i = 0; } l = §ion->lineno[i]; for (; i < section->lineno_count; i++) { if (l->line_number == 0) { /* Get the symbol this line number points at */ coff_symbol_type *coff = (coff_symbol_type *) (l->u.sym); if (coff->symbol.value > offset) break; *functionname_ptr = coff->symbol.name; if (coff->native) { combined_entry_type *s = coff->native; s = s + 1 + s->u.syment.n_numaux; /* S should now point to the .bf of the function */ if (s->u.syment.n_numaux) { /* The linenumber is stored in the auxent */ union internal_auxent *a = &((s + 1)->u.auxent); line_base = a->x_sym.x_misc.x_lnsz.x_lnno; *line_ptr = line_base; } } } else { if (l->u.offset > offset) break; *line_ptr = l->line_number + line_base - 1; } l++; } cache_abfd = abfd; cache_section = section; cache_offset = offset; cache_i = i; cache_function = *functionname_ptr; return true; } int coff_sizeof_headers (abfd, reloc) bfd *abfd; boolean reloc; { size_t size; if (reloc == false) { size = bfd_coff_filhsz (abfd) + bfd_coff_aoutsz (abfd); } else { size = bfd_coff_filhsz (abfd); } size += abfd->section_count * bfd_coff_scnhsz (abfd); return size; } gdb-4.13/bfd/coffswap.h 666 34562 1752 62005 5623250433 13276 0ustar fnfcygnus/* Generic COFF swapping routines, for BFD. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file contains routines used to swap COFF data. It is a header file because the details of swapping depend on the details of the structures used by each COFF implementation. This is included by coffcode.h, as well as by the ECOFF backend. Any file which uses this must first include "coff/internal.h" and "coff/CPU.h". The functions will then be correct for that CPU. */ #define PUTWORD bfd_h_put_32 #define PUTHALF bfd_h_put_16 #define PUTBYTE bfd_h_put_8 #ifndef GET_FCN_LNNOPTR #define GET_FCN_LNNOPTR(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_lnnoptr) #endif #ifndef GET_FCN_ENDNDX #define GET_FCN_ENDNDX(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_endndx) #endif #ifndef PUT_FCN_LNNOPTR #define PUT_FCN_LNNOPTR(abfd, in, ext) PUTWORD(abfd, in, (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_lnnoptr) #endif #ifndef PUT_FCN_ENDNDX #define PUT_FCN_ENDNDX(abfd, in, ext) PUTWORD(abfd, in, (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_endndx) #endif #ifndef GET_LNSZ_LNNO #define GET_LNSZ_LNNO(abfd, ext) bfd_h_get_16(abfd, (bfd_byte *) ext->x_sym.x_misc.x_lnsz.x_lnno) #endif #ifndef GET_LNSZ_SIZE #define GET_LNSZ_SIZE(abfd, ext) bfd_h_get_16(abfd, (bfd_byte *) ext->x_sym.x_misc.x_lnsz.x_size) #endif #ifndef PUT_LNSZ_LNNO #define PUT_LNSZ_LNNO(abfd, in, ext) bfd_h_put_16(abfd, in, (bfd_byte *)ext->x_sym.x_misc.x_lnsz.x_lnno) #endif #ifndef PUT_LNSZ_SIZE #define PUT_LNSZ_SIZE(abfd, in, ext) bfd_h_put_16(abfd, in, (bfd_byte*) ext->x_sym.x_misc.x_lnsz.x_size) #endif #ifndef GET_SCN_SCNLEN #define GET_SCN_SCNLEN(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) ext->x_scn.x_scnlen) #endif #ifndef GET_SCN_NRELOC #define GET_SCN_NRELOC(abfd, ext) bfd_h_get_16(abfd, (bfd_byte *)ext->x_scn.x_nreloc) #endif #ifndef GET_SCN_NLINNO #define GET_SCN_NLINNO(abfd, ext) bfd_h_get_16(abfd, (bfd_byte *)ext->x_scn.x_nlinno) #endif #ifndef PUT_SCN_SCNLEN #define PUT_SCN_SCNLEN(abfd,in, ext) bfd_h_put_32(abfd, in, (bfd_byte *) ext->x_scn.x_scnlen) #endif #ifndef PUT_SCN_NRELOC #define PUT_SCN_NRELOC(abfd,in, ext) bfd_h_put_16(abfd, in, (bfd_byte *)ext->x_scn.x_nreloc) #endif #ifndef PUT_SCN_NLINNO #define PUT_SCN_NLINNO(abfd,in, ext) bfd_h_put_16(abfd,in, (bfd_byte *) ext->x_scn.x_nlinno) #endif #ifndef GET_LINENO_LNNO #define GET_LINENO_LNNO(abfd, ext) bfd_h_get_16(abfd, (bfd_byte *) (ext->l_lnno)); #endif #ifndef PUT_LINENO_LNNO #define PUT_LINENO_LNNO(abfd,val, ext) bfd_h_put_16(abfd,val, (bfd_byte *) (ext->l_lnno)); #endif /* The f_symptr field in the filehdr is sometimes 64 bits. */ #ifndef GET_FILEHDR_SYMPTR #define GET_FILEHDR_SYMPTR bfd_h_get_32 #endif #ifndef PUT_FILEHDR_SYMPTR #define PUT_FILEHDR_SYMPTR bfd_h_put_32 #endif /* Some fields in the aouthdr are sometimes 64 bits. */ #ifndef GET_AOUTHDR_TSIZE #define GET_AOUTHDR_TSIZE bfd_h_get_32 #endif #ifndef PUT_AOUTHDR_TSIZE #define PUT_AOUTHDR_TSIZE bfd_h_put_32 #endif #ifndef GET_AOUTHDR_DSIZE #define GET_AOUTHDR_DSIZE bfd_h_get_32 #endif #ifndef PUT_AOUTHDR_DSIZE #define PUT_AOUTHDR_DSIZE bfd_h_put_32 #endif #ifndef GET_AOUTHDR_BSIZE #define GET_AOUTHDR_BSIZE bfd_h_get_32 #endif #ifndef PUT_AOUTHDR_BSIZE #define PUT_AOUTHDR_BSIZE bfd_h_put_32 #endif #ifndef GET_AOUTHDR_ENTRY #define GET_AOUTHDR_ENTRY bfd_h_get_32 #endif #ifndef PUT_AOUTHDR_ENTRY #define PUT_AOUTHDR_ENTRY bfd_h_put_32 #endif #ifndef GET_AOUTHDR_TEXT_START #define GET_AOUTHDR_TEXT_START bfd_h_get_32 #endif #ifndef PUT_AOUTHDR_TEXT_START #define PUT_AOUTHDR_TEXT_START bfd_h_put_32 #endif #ifndef GET_AOUTHDR_DATA_START #define GET_AOUTHDR_DATA_START bfd_h_get_32 #endif #ifndef PUT_AOUTHDR_DATA_START #define PUT_AOUTHDR_DATA_START bfd_h_put_32 #endif /* Some fields in the scnhdr are sometimes 64 bits. */ #ifndef GET_SCNHDR_PADDR #define GET_SCNHDR_PADDR bfd_h_get_32 #endif #ifndef PUT_SCNHDR_PADDR #define PUT_SCNHDR_PADDR bfd_h_put_32 #endif #ifndef GET_SCNHDR_VADDR #define GET_SCNHDR_VADDR bfd_h_get_32 #endif #ifndef PUT_SCNHDR_VADDR #define PUT_SCNHDR_VADDR bfd_h_put_32 #endif #ifndef GET_SCNHDR_SIZE #define GET_SCNHDR_SIZE bfd_h_get_32 #endif #ifndef PUT_SCNHDR_SIZE #define PUT_SCNHDR_SIZE bfd_h_put_32 #endif #ifndef GET_SCNHDR_SCNPTR #define GET_SCNHDR_SCNPTR bfd_h_get_32 #endif #ifndef PUT_SCNHDR_SCNPTR #define PUT_SCNHDR_SCNPTR bfd_h_put_32 #endif #ifndef GET_SCNHDR_RELPTR #define GET_SCNHDR_RELPTR bfd_h_get_32 #endif #ifndef PUT_SCNHDR_RELPTR #define PUT_SCNHDR_RELPTR bfd_h_put_32 #endif #ifndef GET_SCNHDR_LNNOPTR #define GET_SCNHDR_LNNOPTR bfd_h_get_32 #endif #ifndef PUT_SCNHDR_LNNOPTR #define PUT_SCNHDR_LNNOPTR bfd_h_put_32 #endif #ifndef NO_COFF_RELOCS static void bfd_swap_reloc_in (abfd, reloc_src, reloc_dst) bfd *abfd; RELOC *reloc_src; struct internal_reloc *reloc_dst; { reloc_dst->r_vaddr = bfd_h_get_32(abfd, (bfd_byte *)reloc_src->r_vaddr); reloc_dst->r_symndx = bfd_h_get_signed_32(abfd, (bfd_byte *) reloc_src->r_symndx); #ifdef RS6000COFF_C reloc_dst->r_type = bfd_h_get_8(abfd, reloc_src->r_type); reloc_dst->r_size = bfd_h_get_8(abfd, reloc_src->r_size); #else reloc_dst->r_type = bfd_h_get_16(abfd, (bfd_byte *) reloc_src->r_type); #endif #ifdef SWAP_IN_RELOC_OFFSET reloc_dst->r_offset = SWAP_IN_RELOC_OFFSET(abfd, (bfd_byte *) reloc_src->r_offset); #endif } static unsigned int coff_swap_reloc_out (abfd, src, dst) bfd *abfd; PTR src; PTR dst; { struct internal_reloc *reloc_src = (struct internal_reloc *)src; struct external_reloc *reloc_dst = (struct external_reloc *)dst; bfd_h_put_32(abfd, reloc_src->r_vaddr, (bfd_byte *) reloc_dst->r_vaddr); bfd_h_put_32(abfd, reloc_src->r_symndx, (bfd_byte *) reloc_dst->r_symndx); #ifdef RS6000COFF_C bfd_h_put_8 (abfd, reloc_src->r_type, (bfd_byte *) reloc_dst->r_type); bfd_h_put_8 (abfd, reloc_src->r_size, (bfd_byte *) reloc_dst->r_size); #else bfd_h_put_16(abfd, reloc_src->r_type, (bfd_byte *) reloc_dst->r_type); #endif #ifdef SWAP_OUT_RELOC_OFFSET SWAP_OUT_RELOC_OFFSET(abfd, reloc_src->r_offset, (bfd_byte *) reloc_dst->r_offset); #endif #ifdef SWAP_OUT_RELOC_EXTRA SWAP_OUT_RELOC_EXTRA(abfd,reloc_src, reloc_dst); #endif return sizeof(struct external_reloc); } #endif /* NO_COFF_RELOCS */ static void coff_swap_filehdr_in (abfd, src, dst) bfd *abfd; PTR src; PTR dst; { FILHDR *filehdr_src = (FILHDR *) src; struct internal_filehdr *filehdr_dst = (struct internal_filehdr *) dst; filehdr_dst->f_magic = bfd_h_get_16(abfd, (bfd_byte *) filehdr_src->f_magic); filehdr_dst->f_nscns = bfd_h_get_16(abfd, (bfd_byte *)filehdr_src-> f_nscns); filehdr_dst->f_timdat = bfd_h_get_32(abfd, (bfd_byte *)filehdr_src-> f_timdat); filehdr_dst->f_symptr = GET_FILEHDR_SYMPTR (abfd, (bfd_byte *) filehdr_src->f_symptr); filehdr_dst->f_nsyms = bfd_h_get_32(abfd, (bfd_byte *)filehdr_src-> f_nsyms); filehdr_dst->f_opthdr = bfd_h_get_16(abfd, (bfd_byte *)filehdr_src-> f_opthdr); filehdr_dst->f_flags = bfd_h_get_16(abfd, (bfd_byte *)filehdr_src-> f_flags); } static unsigned int coff_swap_filehdr_out (abfd, in, out) bfd *abfd; PTR in; PTR out; { struct internal_filehdr *filehdr_in = (struct internal_filehdr *)in; FILHDR *filehdr_out = (FILHDR *)out; bfd_h_put_16(abfd, filehdr_in->f_magic, (bfd_byte *) filehdr_out->f_magic); bfd_h_put_16(abfd, filehdr_in->f_nscns, (bfd_byte *) filehdr_out->f_nscns); bfd_h_put_32(abfd, filehdr_in->f_timdat, (bfd_byte *) filehdr_out->f_timdat); PUT_FILEHDR_SYMPTR (abfd, (bfd_vma) filehdr_in->f_symptr, (bfd_byte *) filehdr_out->f_symptr); bfd_h_put_32(abfd, filehdr_in->f_nsyms, (bfd_byte *) filehdr_out->f_nsyms); bfd_h_put_16(abfd, filehdr_in->f_opthdr, (bfd_byte *) filehdr_out->f_opthdr); bfd_h_put_16(abfd, filehdr_in->f_flags, (bfd_byte *) filehdr_out->f_flags); return sizeof(FILHDR); } #ifndef NO_COFF_SYMBOLS static void coff_swap_sym_in (abfd, ext1, in1) bfd *abfd; PTR ext1; PTR in1; { SYMENT *ext = (SYMENT *)ext1; struct internal_syment *in = (struct internal_syment *)in1; if( ext->e.e_name[0] == 0) { in->_n._n_n._n_zeroes = 0; in->_n._n_n._n_offset = bfd_h_get_32(abfd, (bfd_byte *) ext->e.e.e_offset); } else { #if SYMNMLEN != E_SYMNMLEN -> Error, we need to cope with truncating or extending SYMNMLEN!; #else memcpy(in->_n._n_name, ext->e.e_name, SYMNMLEN); #endif } in->n_value = bfd_h_get_32(abfd, (bfd_byte *) ext->e_value); in->n_scnum = bfd_h_get_16(abfd, (bfd_byte *) ext->e_scnum); if (sizeof(ext->e_type) == 2){ in->n_type = bfd_h_get_16(abfd, (bfd_byte *) ext->e_type); } else { in->n_type = bfd_h_get_32(abfd, (bfd_byte *) ext->e_type); } in->n_sclass = bfd_h_get_8(abfd, ext->e_sclass); in->n_numaux = bfd_h_get_8(abfd, ext->e_numaux); } static unsigned int coff_swap_sym_out (abfd, inp, extp) bfd *abfd; PTR inp; PTR extp; { struct internal_syment *in = (struct internal_syment *)inp; SYMENT *ext =(SYMENT *)extp; if(in->_n._n_name[0] == 0) { bfd_h_put_32(abfd, 0, (bfd_byte *) ext->e.e.e_zeroes); bfd_h_put_32(abfd, in->_n._n_n._n_offset, (bfd_byte *) ext->e.e.e_offset); } else { #if SYMNMLEN != E_SYMNMLEN -> Error, we need to cope with truncating or extending SYMNMLEN!; #else memcpy(ext->e.e_name, in->_n._n_name, SYMNMLEN); #endif } bfd_h_put_32(abfd, in->n_value , (bfd_byte *) ext->e_value); bfd_h_put_16(abfd, in->n_scnum , (bfd_byte *) ext->e_scnum); if (sizeof(ext->e_type) == 2) { bfd_h_put_16(abfd, in->n_type , (bfd_byte *) ext->e_type); } else { bfd_h_put_32(abfd, in->n_type , (bfd_byte *) ext->e_type); } bfd_h_put_8(abfd, in->n_sclass , ext->e_sclass); bfd_h_put_8(abfd, in->n_numaux , ext->e_numaux); return sizeof(SYMENT); } static void coff_swap_aux_in (abfd, ext1, type, class, indx, numaux, in1) bfd *abfd; PTR ext1; int type; int class; int indx; int numaux; PTR in1; { AUXENT *ext = (AUXENT *)ext1; union internal_auxent *in = (union internal_auxent *)in1; switch (class) { case C_FILE: if (ext->x_file.x_fname[0] == 0) { in->x_file.x_n.x_zeroes = 0; in->x_file.x_n.x_offset = bfd_h_get_32(abfd, (bfd_byte *) ext->x_file.x_n.x_offset); } else { #if FILNMLEN != E_FILNMLEN -> Error, we need to cope with truncating or extending FILNMLEN!; #else memcpy (in->x_file.x_fname, ext->x_file.x_fname, FILNMLEN); #endif } return; /* RS/6000 "csect" auxents */ #ifdef RS6000COFF_C case C_EXT: case C_HIDEXT: if (indx + 1 == numaux) { in->x_csect.x_scnlen.l = bfd_h_get_32 (abfd, ext->x_csect.x_scnlen); in->x_csect.x_parmhash = bfd_h_get_32 (abfd, ext->x_csect.x_parmhash); in->x_csect.x_snhash = bfd_h_get_16 (abfd, ext->x_csect.x_snhash); /* We don't have to hack bitfields in x_smtyp because it's defined by shifts-and-ands, which are equivalent on all byte orders. */ in->x_csect.x_smtyp = bfd_h_get_8 (abfd, ext->x_csect.x_smtyp); in->x_csect.x_smclas = bfd_h_get_8 (abfd, ext->x_csect.x_smclas); in->x_csect.x_stab = bfd_h_get_32 (abfd, ext->x_csect.x_stab); in->x_csect.x_snstab = bfd_h_get_16 (abfd, ext->x_csect.x_snstab); return; } break; #endif case C_STAT: #ifdef C_LEAFSTAT case C_LEAFSTAT: #endif case C_HIDDEN: if (type == T_NULL) { in->x_scn.x_scnlen = GET_SCN_SCNLEN(abfd, ext); in->x_scn.x_nreloc = GET_SCN_NRELOC(abfd, ext); in->x_scn.x_nlinno = GET_SCN_NLINNO(abfd, ext); return; } break; } in->x_sym.x_tagndx.l = bfd_h_get_32(abfd, (bfd_byte *) ext->x_sym.x_tagndx); #ifndef NO_TVNDX in->x_sym.x_tvndx = bfd_h_get_16(abfd, (bfd_byte *) ext->x_sym.x_tvndx); #endif if (ISARY(type)) { #if DIMNUM != E_DIMNUM -> Error, we need to cope with truncating or extending DIMNUM!; #else in->x_sym.x_fcnary.x_ary.x_dimen[0] = bfd_h_get_16(abfd, (bfd_byte *) ext->x_sym.x_fcnary.x_ary.x_dimen[0]); in->x_sym.x_fcnary.x_ary.x_dimen[1] = bfd_h_get_16(abfd, (bfd_byte *) ext->x_sym.x_fcnary.x_ary.x_dimen[1]); in->x_sym.x_fcnary.x_ary.x_dimen[2] = bfd_h_get_16(abfd, (bfd_byte *) ext->x_sym.x_fcnary.x_ary.x_dimen[2]); in->x_sym.x_fcnary.x_ary.x_dimen[3] = bfd_h_get_16(abfd, (bfd_byte *) ext->x_sym.x_fcnary.x_ary.x_dimen[3]); #endif } if (class == C_BLOCK || ISFCN(type) || ISTAG(class)) { in->x_sym.x_fcnary.x_fcn.x_lnnoptr = GET_FCN_LNNOPTR(abfd, ext); in->x_sym.x_fcnary.x_fcn.x_endndx.l = GET_FCN_ENDNDX(abfd, ext); } if (ISFCN(type)) { in->x_sym.x_misc.x_fsize = bfd_h_get_32(abfd, (bfd_byte *) ext->x_sym.x_misc.x_fsize); } else { in->x_sym.x_misc.x_lnsz.x_lnno = GET_LNSZ_LNNO(abfd, ext); in->x_sym.x_misc.x_lnsz.x_size = GET_LNSZ_SIZE(abfd, ext); } } static unsigned int coff_swap_aux_out (abfd, inp, type, class, indx, numaux, extp) bfd *abfd; PTR inp; int type; int class; int indx; int numaux; PTR extp; { union internal_auxent *in = (union internal_auxent *)inp; AUXENT *ext = (AUXENT *)extp; memset((PTR)ext, 0, AUXESZ); switch (class) { case C_FILE: if (in->x_file.x_fname[0] == 0) { PUTWORD(abfd, 0, (bfd_byte *) ext->x_file.x_n.x_zeroes); PUTWORD(abfd, in->x_file.x_n.x_offset, (bfd_byte *) ext->x_file.x_n.x_offset); } else { #if FILNMLEN != E_FILNMLEN -> Error, we need to cope with truncating or extending FILNMLEN!; #else memcpy (ext->x_file.x_fname, in->x_file.x_fname, FILNMLEN); #endif } return sizeof (AUXENT); #ifdef RS6000COFF_C /* RS/6000 "csect" auxents */ case C_EXT: case C_HIDEXT: if (indx + 1 == numaux) { PUTWORD (abfd, in->x_csect.x_scnlen.l, ext->x_csect.x_scnlen); PUTWORD (abfd, in->x_csect.x_parmhash, ext->x_csect.x_parmhash); PUTHALF (abfd, in->x_csect.x_snhash, ext->x_csect.x_snhash); /* We don't have to hack bitfields in x_smtyp because it's defined by shifts-and-ands, which are equivalent on all byte orders. */ PUTBYTE (abfd, in->x_csect.x_smtyp, ext->x_csect.x_smtyp); PUTBYTE (abfd, in->x_csect.x_smclas, ext->x_csect.x_smclas); PUTWORD (abfd, in->x_csect.x_stab, ext->x_csect.x_stab); PUTHALF (abfd, in->x_csect.x_snstab, ext->x_csect.x_snstab); return sizeof (AUXENT); } break; #endif case C_STAT: #ifdef C_LEAFSTAT case C_LEAFSTAT: #endif case C_HIDDEN: if (type == T_NULL) { PUT_SCN_SCNLEN(abfd, in->x_scn.x_scnlen, ext); PUT_SCN_NRELOC(abfd, in->x_scn.x_nreloc, ext); PUT_SCN_NLINNO(abfd, in->x_scn.x_nlinno, ext); return sizeof (AUXENT); } break; } PUTWORD(abfd, in->x_sym.x_tagndx.l, (bfd_byte *) ext->x_sym.x_tagndx); #ifndef NO_TVNDX bfd_h_put_16(abfd, in->x_sym.x_tvndx , (bfd_byte *) ext->x_sym.x_tvndx); #endif if (class == C_BLOCK || ISFCN(type) || ISTAG(class)) { PUT_FCN_LNNOPTR(abfd, in->x_sym.x_fcnary.x_fcn.x_lnnoptr, ext); PUT_FCN_ENDNDX(abfd, in->x_sym.x_fcnary.x_fcn.x_endndx.l, ext); } if (ISFCN(type)) { PUTWORD(abfd, in->x_sym.x_misc.x_fsize, (bfd_byte *) ext->x_sym.x_misc.x_fsize); } else { if (ISARY(type)) { #if DIMNUM != E_DIMNUM -> Error, we need to cope with truncating or extending DIMNUM!; #else bfd_h_put_16(abfd, in->x_sym.x_fcnary.x_ary.x_dimen[0], (bfd_byte *)ext->x_sym.x_fcnary.x_ary.x_dimen[0]); bfd_h_put_16(abfd, in->x_sym.x_fcnary.x_ary.x_dimen[1], (bfd_byte *)ext->x_sym.x_fcnary.x_ary.x_dimen[1]); bfd_h_put_16(abfd, in->x_sym.x_fcnary.x_ary.x_dimen[2], (bfd_byte *)ext->x_sym.x_fcnary.x_ary.x_dimen[2]); bfd_h_put_16(abfd, in->x_sym.x_fcnary.x_ary.x_dimen[3], (bfd_byte *)ext->x_sym.x_fcnary.x_ary.x_dimen[3]); #endif } PUT_LNSZ_LNNO(abfd, in->x_sym.x_misc.x_lnsz.x_lnno, ext); PUT_LNSZ_SIZE(abfd, in->x_sym.x_misc.x_lnsz.x_size, ext); } return sizeof(AUXENT); } #endif /* NO_COFF_SYMBOLS */ #ifndef NO_COFF_LINENOS static void coff_swap_lineno_in (abfd, ext1, in1) bfd *abfd; PTR ext1; PTR in1; { LINENO *ext = (LINENO *)ext1; struct internal_lineno *in = (struct internal_lineno *)in1; in->l_addr.l_symndx = bfd_h_get_32(abfd, (bfd_byte *) ext->l_addr.l_symndx); in->l_lnno = GET_LINENO_LNNO(abfd, ext); } static unsigned int coff_swap_lineno_out (abfd, inp, outp) bfd *abfd; PTR inp; PTR outp; { struct internal_lineno *in = (struct internal_lineno *)inp; struct external_lineno *ext = (struct external_lineno *)outp; PUTWORD(abfd, in->l_addr.l_symndx, (bfd_byte *) ext->l_addr.l_symndx); PUT_LINENO_LNNO (abfd, in->l_lnno, ext); return sizeof(struct external_lineno); } #endif /* NO_COFF_LINENOS */ static void coff_swap_aouthdr_in (abfd, aouthdr_ext1, aouthdr_int1) bfd *abfd; PTR aouthdr_ext1; PTR aouthdr_int1; { AOUTHDR *aouthdr_ext = (AOUTHDR *) aouthdr_ext1; struct internal_aouthdr *aouthdr_int = (struct internal_aouthdr *)aouthdr_int1; aouthdr_int->magic = bfd_h_get_16(abfd, (bfd_byte *) aouthdr_ext->magic); aouthdr_int->vstamp = bfd_h_get_16(abfd, (bfd_byte *) aouthdr_ext->vstamp); aouthdr_int->tsize = GET_AOUTHDR_TSIZE (abfd, (bfd_byte *) aouthdr_ext->tsize); aouthdr_int->dsize = GET_AOUTHDR_DSIZE (abfd, (bfd_byte *) aouthdr_ext->dsize); aouthdr_int->bsize = GET_AOUTHDR_BSIZE (abfd, (bfd_byte *) aouthdr_ext->bsize); aouthdr_int->entry = GET_AOUTHDR_ENTRY (abfd, (bfd_byte *) aouthdr_ext->entry); aouthdr_int->text_start = GET_AOUTHDR_TEXT_START (abfd, (bfd_byte *) aouthdr_ext->text_start); aouthdr_int->data_start = GET_AOUTHDR_DATA_START (abfd, (bfd_byte *) aouthdr_ext->data_start); #ifdef I960 aouthdr_int->tagentries = bfd_h_get_32(abfd, (bfd_byte *) aouthdr_ext->tagentries); #endif #ifdef APOLLO_M68 bfd_h_put_32(abfd, aouthdr_int->o_inlib, (bfd_byte *) aouthdr_ext->o_inlib); bfd_h_put_32(abfd, aouthdr_int->o_sri, (bfd_byte *) aouthdr_ext->o_sri); bfd_h_put_32(abfd, aouthdr_int->vid[0], (bfd_byte *) aouthdr_ext->vid); bfd_h_put_32(abfd, aouthdr_int->vid[1], (bfd_byte *) aouthdr_ext->vid + 4); #endif #ifdef RS6000COFF_C aouthdr_int->o_toc = bfd_h_get_32(abfd, aouthdr_ext->o_toc); aouthdr_int->o_snentry = bfd_h_get_16(abfd, aouthdr_ext->o_snentry); aouthdr_int->o_sntext = bfd_h_get_16(abfd, aouthdr_ext->o_sntext); aouthdr_int->o_sndata = bfd_h_get_16(abfd, aouthdr_ext->o_sndata); aouthdr_int->o_sntoc = bfd_h_get_16(abfd, aouthdr_ext->o_sntoc); aouthdr_int->o_snloader = bfd_h_get_16(abfd, aouthdr_ext->o_snloader); aouthdr_int->o_snbss = bfd_h_get_16(abfd, aouthdr_ext->o_snbss); aouthdr_int->o_algntext = bfd_h_get_16(abfd, aouthdr_ext->o_algntext); aouthdr_int->o_algndata = bfd_h_get_16(abfd, aouthdr_ext->o_algndata); aouthdr_int->o_modtype = bfd_h_get_16(abfd, aouthdr_ext->o_modtype); aouthdr_int->o_maxstack = bfd_h_get_32(abfd, aouthdr_ext->o_maxstack); #endif #ifdef MIPSECOFF aouthdr_int->bss_start = bfd_h_get_32(abfd, aouthdr_ext->bss_start); aouthdr_int->gp_value = bfd_h_get_32(abfd, aouthdr_ext->gp_value); aouthdr_int->gprmask = bfd_h_get_32(abfd, aouthdr_ext->gprmask); aouthdr_int->cprmask[0] = bfd_h_get_32(abfd, aouthdr_ext->cprmask[0]); aouthdr_int->cprmask[1] = bfd_h_get_32(abfd, aouthdr_ext->cprmask[1]); aouthdr_int->cprmask[2] = bfd_h_get_32(abfd, aouthdr_ext->cprmask[2]); aouthdr_int->cprmask[3] = bfd_h_get_32(abfd, aouthdr_ext->cprmask[3]); #endif #ifdef ALPHAECOFF aouthdr_int->bss_start = bfd_h_get_64(abfd, aouthdr_ext->bss_start); aouthdr_int->gp_value = bfd_h_get_64(abfd, aouthdr_ext->gp_value); aouthdr_int->gprmask = bfd_h_get_32(abfd, aouthdr_ext->gprmask); aouthdr_int->fprmask = bfd_h_get_32(abfd, aouthdr_ext->fprmask); #endif } static unsigned int coff_swap_aouthdr_out (abfd, in, out) bfd *abfd; PTR in; PTR out; { struct internal_aouthdr *aouthdr_in = (struct internal_aouthdr *)in; AOUTHDR *aouthdr_out = (AOUTHDR *)out; bfd_h_put_16(abfd, aouthdr_in->magic, (bfd_byte *) aouthdr_out->magic); bfd_h_put_16(abfd, aouthdr_in->vstamp, (bfd_byte *) aouthdr_out->vstamp); PUT_AOUTHDR_TSIZE (abfd, aouthdr_in->tsize, (bfd_byte *) aouthdr_out->tsize); PUT_AOUTHDR_DSIZE (abfd, aouthdr_in->dsize, (bfd_byte *) aouthdr_out->dsize); PUT_AOUTHDR_BSIZE (abfd, aouthdr_in->bsize, (bfd_byte *) aouthdr_out->bsize); PUT_AOUTHDR_ENTRY (abfd, aouthdr_in->entry, (bfd_byte *) aouthdr_out->entry); PUT_AOUTHDR_TEXT_START (abfd, aouthdr_in->text_start, (bfd_byte *) aouthdr_out->text_start); PUT_AOUTHDR_DATA_START (abfd, aouthdr_in->data_start, (bfd_byte *) aouthdr_out->data_start); #ifdef I960 bfd_h_put_32(abfd, aouthdr_in->tagentries, (bfd_byte *) aouthdr_out->tagentries); #endif #ifdef MIPSECOFF bfd_h_put_32(abfd, aouthdr_in->bss_start, (bfd_byte *) aouthdr_out->bss_start); bfd_h_put_32(abfd, aouthdr_in->gp_value, (bfd_byte *) aouthdr_out->gp_value); bfd_h_put_32(abfd, aouthdr_in->gprmask, (bfd_byte *) aouthdr_out->gprmask); bfd_h_put_32(abfd, aouthdr_in->cprmask[0], (bfd_byte *) aouthdr_out->cprmask[0]); bfd_h_put_32(abfd, aouthdr_in->cprmask[1], (bfd_byte *) aouthdr_out->cprmask[1]); bfd_h_put_32(abfd, aouthdr_in->cprmask[2], (bfd_byte *) aouthdr_out->cprmask[2]); bfd_h_put_32(abfd, aouthdr_in->cprmask[3], (bfd_byte *) aouthdr_out->cprmask[3]); #endif #ifdef ALPHAECOFF /* FIXME: What does bldrev mean? */ bfd_h_put_16(abfd, (bfd_vma) 2, (bfd_byte *) aouthdr_out->bldrev); bfd_h_put_16(abfd, (bfd_vma) 0, (bfd_byte *) aouthdr_out->padding); bfd_h_put_64(abfd, aouthdr_in->bss_start, (bfd_byte *) aouthdr_out->bss_start); bfd_h_put_64(abfd, aouthdr_in->gp_value, (bfd_byte *) aouthdr_out->gp_value); bfd_h_put_32(abfd, aouthdr_in->gprmask, (bfd_byte *) aouthdr_out->gprmask); bfd_h_put_32(abfd, aouthdr_in->fprmask, (bfd_byte *) aouthdr_out->fprmask); #endif return sizeof(AOUTHDR); } static void coff_swap_scnhdr_in (abfd, ext, in) bfd *abfd; PTR ext; PTR in; { SCNHDR *scnhdr_ext = (SCNHDR *) ext; struct internal_scnhdr *scnhdr_int = (struct internal_scnhdr *) in; memcpy(scnhdr_int->s_name, scnhdr_ext->s_name, sizeof(scnhdr_int->s_name)); scnhdr_int->s_vaddr = GET_SCNHDR_VADDR (abfd, (bfd_byte *) scnhdr_ext->s_vaddr); scnhdr_int->s_paddr = GET_SCNHDR_PADDR (abfd, (bfd_byte *) scnhdr_ext->s_paddr); scnhdr_int->s_size = GET_SCNHDR_SIZE (abfd, (bfd_byte *) scnhdr_ext->s_size); scnhdr_int->s_scnptr = GET_SCNHDR_SCNPTR (abfd, (bfd_byte *) scnhdr_ext->s_scnptr); scnhdr_int->s_relptr = GET_SCNHDR_RELPTR (abfd, (bfd_byte *) scnhdr_ext->s_relptr); scnhdr_int->s_lnnoptr = GET_SCNHDR_LNNOPTR (abfd, (bfd_byte *) scnhdr_ext->s_lnnoptr); scnhdr_int->s_flags = bfd_h_get_32(abfd, (bfd_byte *) scnhdr_ext->s_flags); #if defined(M88) scnhdr_int->s_nreloc = bfd_h_get_32(abfd, (bfd_byte *) scnhdr_ext->s_nreloc); scnhdr_int->s_nlnno = bfd_h_get_32(abfd, (bfd_byte *) scnhdr_ext->s_nlnno); #else scnhdr_int->s_nreloc = bfd_h_get_16(abfd, (bfd_byte *) scnhdr_ext->s_nreloc); scnhdr_int->s_nlnno = bfd_h_get_16(abfd, (bfd_byte *) scnhdr_ext->s_nlnno); #endif #ifdef I960 scnhdr_int->s_align = bfd_h_get_32(abfd, (bfd_byte *) scnhdr_ext->s_align); #endif } static unsigned int coff_swap_scnhdr_out (abfd, in, out) bfd *abfd; PTR in; PTR out; { struct internal_scnhdr *scnhdr_int = (struct internal_scnhdr *)in; SCNHDR *scnhdr_ext = (SCNHDR *)out; memcpy(scnhdr_ext->s_name, scnhdr_int->s_name, sizeof(scnhdr_int->s_name)); PUT_SCNHDR_VADDR (abfd, scnhdr_int->s_vaddr, (bfd_byte *) scnhdr_ext->s_vaddr); PUT_SCNHDR_PADDR (abfd, scnhdr_int->s_paddr, (bfd_byte *) scnhdr_ext->s_paddr); PUT_SCNHDR_SIZE (abfd, scnhdr_int->s_size, (bfd_byte *) scnhdr_ext->s_size); PUT_SCNHDR_SCNPTR (abfd, scnhdr_int->s_scnptr, (bfd_byte *) scnhdr_ext->s_scnptr); PUT_SCNHDR_RELPTR (abfd, scnhdr_int->s_relptr, (bfd_byte *) scnhdr_ext->s_relptr); PUT_SCNHDR_LNNOPTR (abfd, scnhdr_int->s_lnnoptr, (bfd_byte *) scnhdr_ext->s_lnnoptr); PUTWORD(abfd, scnhdr_int->s_flags, (bfd_byte *) scnhdr_ext->s_flags); #if defined(M88) PUTWORD(abfd, scnhdr_int->s_nlnno, (bfd_byte *) scnhdr_ext->s_nlnno); PUTWORD(abfd, scnhdr_int->s_nreloc, (bfd_byte *) scnhdr_ext->s_nreloc); #else PUTHALF(abfd, scnhdr_int->s_nlnno, (bfd_byte *) scnhdr_ext->s_nlnno); PUTHALF(abfd, scnhdr_int->s_nreloc, (bfd_byte *) scnhdr_ext->s_nreloc); #endif #if defined(I960) PUTWORD(abfd, scnhdr_int->s_align, (bfd_byte *) scnhdr_ext->s_align); #endif return sizeof(SCNHDR); } gdb-4.13/bfd/config.bfd 777 34562 1752 15007 5612046073 13243 0ustar fnfcygnus#!/bin/sh # config.bfd # Convert a canonical host type into a BFD host type. # Call with canonical name as the argument. # Echos the result. # If second argument is _, echoes whether underscores are stripped. canon="$1" cpu=`echo $canon | sed 's/^\(.*\)-\(.*\)-\(.*\)$/\1/'` # The binutils c++filt program wants to know whether underscores are # stripped or not. It uses this information to choose a default. # This information is duplicated in the symbol_leading_char field of # the BFD target vector, but c++filt does not deal with object files # and is not linked against libbfd.a. It is not terribly important # that c++filt get this right; it is just convenient. strip_underscore=no # WHEN ADDING ENTRIES TO THIS MATRIX: # Make sure that the left side always has two dashes. Otherwise you # can get spurious matches. Even for unambiguous cases, do this as a # convention, else the table becomes a real mess to understand and maintain. case "${canon}" in alpha-*-netware*) bfd_name=alpha-nlm ;; alpha-*-*) bfd_name=alphaosf ;; a29k-*-ebmon*) bfd_name=a29k-coff strip_underscore=yes ;; a29k-*-udi*) bfd_name=a29k-coff strip_underscore=yes ;; a29k-*-aout*) bfd_name=a29k-aout strip_underscore=yes ;; a29k-*-coff*) bfd_name=a29k-coff strip_underscore=yes ;; a29k-*-sym1*) bfd_name=a29k-coff strip_underscore=yes ;; h8300*-*-*) bfd_name=h8300-coff strip_underscore=yes ;; h8500-*-*) bfd_name=h8500-coff strip_underscore=yes ;; sh-*-*) bfd_name=sh-coff strip_underscore=yes ;; hppa*-*-*elf*) bfd_name=hppa-elf ;; hppa*-*-bsd*) bfd_name=hppabsd ;; hppa*-*-hpux*) bfd_name=hppahpux ;; hppa*-*-hiux*) bfd_name=hppahpux ;; hppa*-*-osf*) bfd_name=hppaosf ;; i[34]86-*-sysv4*) bfd_name=i386-elf ;; i[34]86-*-unixware) bfd_name=i386-elf ;; i[34]86-*-solaris2*) bfd_name=i386-elf ;; i[34]86-*-sysv*) bfd_name=i386-coff ;; i[34]86-*-isc*) bfd_name=i386-coff ;; i[34]86-*-sco*) bfd_name=i386-coff ;; i[34]86-sequent-bsd*) bfd_name=i386-dynix strip_underscore=yes ;; i[34]86-*-bsd*) bfd_name=i386-bsd strip_underscore=yes ;; i[34]86-*-coff) bfd_name=i386-coff ;; i[34]86-*-aix*) bfd_name=i386-coff ;; i[34]86-*-elf) bfd_name=i386-elf ;; i[34]86-*-netbsd*) bfd_name=i386-netbsd strip_underscore=yes ;; i[34]86-*-netware*) bfd_name=i386-nlm ;; i[34]86-*-linux*) bfd_name=i386-linux strip_underscore=yes ;; i[34]86-*-lynxos*) bfd_name=i386-lynx ;; i[34]86-*-gnu*) bfd_name=i386-mach3 strip_underscore=yes ;; i[34]86-*-mach*) bfd_name=i386-mach3 strip_underscore=yes ;; i[34]86-*-osf1mk*) bfd_name=i386-mach3 strip_underscore=yes ;; i[34]86-*-os9k) bfd_name=i386-os9k ;; i[34]86-none-*) bfd_name=i386-coff ;; i960-*-vxworks4*) bfd_name=i960-bout strip_underscore=yes ;; i960-*-vxworks5.0) bfd_name=i960-bout strip_underscore=yes ;; i960-*-vxworks5.*) bfd_name=i960-coff strip_underscore=yes ;; i960-*-vxworks*) bfd_name=i960-bout strip_underscore=yes ;; i960-*-aout*) bfd_name=i960-bout strip_underscore=yes ;; i960-*-bout*) bfd_name=i960-bout strip_underscore=yes ;; i960-*-coff*) bfd_name=i960-coff strip_underscore=yes ;; i960-*-nindy*) bfd_name=i960-bout strip_underscore=yes ;; m68*-apollo-*) bfd_name=apollo ;; m68*-bull-sysv*) bfd_name=u68k-coff ;; m68*-hp-bsd*) bfd_name=hp300bsd strip_underscore=yes ;; m68*-*-aout*) bfd_name=m68k-0aout strip_underscore=yes ;; m68*-*-coff*) bfd_name=m68k-coff ;; m68*-*-hpux*) bfd_name=hp300hpux strip_underscore=yes ;; m68*-*-lynxos*) bfd_name=m68k-lynx ;; m68*-*-os68k*) bfd_name=m68k-aout strip_underscore=yes ;; m68*-*-sunos*) bfd_name=m68k-aout strip_underscore=yes ;; m68*-*-sysv4*) bfd_name=m68k-elf ;; m68*-*-sysv*) bfd_name=m68k-coff ;; m68*-*-vxworks*) bfd_name=m68k-aout strip_underscore=yes ;; m68*-ericsson-*) bfd_name=m68k-ose strip_underscore=yes ;; m68*-netx-*) bfd_name=m68k-aout strip_underscore=yes ;; m88*-harris-cxux*) bfd_name=m88k-elf ;; # DGUX used to use COFF, but now (Jan 94) I believe it uses ELF by default. m88*-*-dgux*) bfd_name=m88k-elf ;; m88*-*-mach3*) bfd_name=m88k-mach3 ;; m88*-*-sysv4*) bfd_name=m88k-elf ;; m88*-*-*) bfd_name=m88k-coff strip_underscore=yes ;; mips*-big-*) bfd_name=bigmips ;; mips*-dec-bsd*) bfd_name=mipsdecbsd strip_underscore=yes ;; mips*-dec-mach3*) bfd_name=mips-mach3 ;; mips*-dec-*) bfd_name=decstation ;; mips*el-*-ecoff*) bfd_name=decstation ;; mips*-*-ecoff*) bfd_name=bigmips ;; mips*-*-irix5*) bfd_name=mipsbelf ;; mips*-sgi-*) bfd_name=bigmips ;; mips*-*-mach3*) bfd_name=mips-mach3 ;; mips*-*-sysv4*) bfd_name=mipsbelf ;; mips*-*-sysv*) bfd_name=riscos ;; mips*-*-riscos*) bfd_name=riscos ;; mips*-*-bsd*) bfd_name=bigmips ;; # Sony News mips*el-*-elf*) bfd_name=mipslelf ;; mips*-*-elf*) bfd_name=mipsbelf ;; ns32k-pc532-mach*) bfd_name=pc532-mach strip_underscore=yes;; ns32k-*-netbsd*) bfd_name=ns32k-netbsd strip_underscore=yes;; powerpc-*-aix*) bfd_name=rs6000 ;; powerpc-*-elf*) bfd_name=ppc-elf ;; powerpc-*-sysv4*) bfd_name=ppc-elf ;; powerpc-*-netware*) bfd_name=ppc-nlm ;; rs6000-*-*) bfd_name=rs6000 ;; sparc-*-lynxos*) bfd_name=sparc-lynx ;; sparc-*-solaris2*) bfd_name=sparc-elf ;; sparc-*-sysv4*) bfd_name=sparc-elf ;; sparc64-*-aout*) bfd_name=sparc-aout strip_underscore=yes ;; sparc64-*-elf*) bfd_name=sparc64-elf ;; sparc-*-netware*) bfd_name=sparc-nlm ;; sparc*-*-coff*) bfd_name=sparc-coff ;; sparc*-*-*) bfd_name=sparc-aout strip_underscore=yes ;; tahoe-*-*) bfd_name=tahoe strip_underscore=yes ;; vax-*-vms*) bfd_name=vax-vms ;; vax-*-*) bfd_name=vax strip_underscore=yes ;; we32k-*-*) bfd_name=we32k ;; z8k*-*-*) bfd_name=z8k-coff strip_underscore=yes ;; *-*-aout*) bfd_name=${cpu}-aout strip_underscore=yes ;; *-*-bsd*) bfd_name=${cpu}-aout strip_underscore=yes ;; *-*-netware*) bfd_name=${cpu}-nlm ;; *-*-sysv4*) bfd_name=${cpu}-elf ;; *-*-solaris2*) bfd_name=${cpu}-elf ;; *-*-vsta*) bfd_name=${cpu}-aout strip_underscore=yes ;; *-*-go32*) bfd_name=${cpu}-coff ;; *-*-sysv*) bfd_name=${cpu}-coff ;; *-*-aout64*) bfd_name=${cpu}-aout64 strip_underscore=yes ;; *-*-elf64*) bfd_name=${cpu}-elf64 ;; *-adobe-*) bfd_name=adobe strip_underscore=yes ;; *-sony-*) bfd_name=news strip_underscore=yes ;; *-intel-*) bfd_name=${cpu}-coff ;; *-stratus-*) bfd_name=${cpu}-elf ;; *-cbm-*) bfd_name=${cpu}-elf ;; *-ncr-*) bfd_name=${cpu}-elf ;; *-tandem-*) bfd_name=st2000 ;; # Allow targets that config.sub doesn't recognize, like "all". *) bfd_name=$canon ;; esac if [ "x$2" = "x_" ]; then echo $strip_underscore else echo $bfd_name fi gdb-4.13/bfd/configure.bat 666 34562 1752 643 5571422720 13730 0ustar fnfcygnus@echo off if "%1" == "h8/300" goto h8300 echo Configuring bfd for go32 update hosts\go32.h sysdep.h update Makefile.dos Makefile echo s/@WORDSIZE@/32/g>config.sed sed -e s/^/s\/@VERSION@\// -e s/$/\/g/g version >>config.sed sed -f config.sed < bfd-in2.h > bfd.h2 update bfd.h2 bfd.h goto exit :h8300 echo Configuring bfd for H8/300 update hosts\h-go32.h sysdep.h update Makefile.dos Makefile :exit gdb-4.13/bfd/configure.host 666 34562 1752 6614 5612045327 14163 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. # Since the "bfd/hosts" directory is shared by the bfd, opcodes, and # binutils directories (at least), the index to it is also shared. # This is that index. Each configure.in file should source this file # in its per-host part. case "${host}" in # WHEN ADDING ENTRIES TO THIS MATRIX: # Make sure that the left side always has two dashes. Otherwise you # can get spurious matches. Even for unambiguous cases, do this as a # convention, else the table becomes a real mess to understand and maintain. # # Note that these entries cannot be fully alphabetical. Don't try. # The order of matching is critical when multiple lines could match. alpha-*-*) my_host=alphaosf ; host64=true ;; a29k-*-*) my_host=ultra3 ;; hppa*-*-hpux*) my_host=hppahpux ;; hppa*-*-hiux*) my_host=hppahpux ;; hppa*-*-bsd*) my_host=hppabsd ;; hppa*-*-osf*) my_host=hppaosf ;; i[34]86-sequent-bsd*) my_host=symmetry ;; i[34]86-sequent-sysv4*) my_host=sysv4 ;; i[34]86-sequent-sysv*) my_host=symmetry ;; i[34]86-*-bsd*) my_host=i386bsd ;; i[34]86-*-netbsd*) my_host=i386bsd ;; i[34]86-ncr*-sysv4*) my_host=ncr3000 ;; i[34]86-*-go32*) my_host=go32 ;; i[34]86-esix-sysv3*) my_host=esix ;; i[34]86-*-sysv4*) my_host=i386v4 ;; i[34]86-*-sysv*) my_host=i386v ;; i[34]86-*-solaris*) my_host=i386v ;; i[34]86-*-sco*) my_host=i386sco ;; i[34]86-*-mach3*) my_host=i386mach3 ;; i[34]86-*-osf1mk*) my_host=i386osf1mk ;; i[34]86-*-msdos*) my_host=dose ;; i[34]86-*-linux*) my_host=i386linux ;; i[34]86-*-lynxos*) my_host=i386lynx ;; i[34]86-*-isc*) my_host=i386sco ;; i[34]86-*-aix*) my_host=i386aix ;; i860-*-*) my_host=stratus ;; mips-dec-bsd*) my_host=mipsbsd ;; mips-dec-mach3*) my_host=mipsmach3 ;; mips-dec-*) my_host=decstation ;; mips-sgi-irix3*) my_host=irix3 ;; mips-sgi-irix4*) my_host=irix4 ;; mips-sgi-irix5*) my_host=irix5 ;; mips-*-mach3*) my_host=mipsmach3 ;; mips-*-sysv4*) my_host=sysv4 ;; mips-*-sysv*) my_host=riscos ;; mips-*-riscos*) my_host=riscos ;; mips-sony-bsd*) my_host=news-mips ;; m68*-apollo*-sysv*) my_host=apollov68 ;; m68*-apollo*-bsd*) my_host=apollo68 ;; m68*-atari-sysv4*) my_host=m68kv4 ;; m68*-bull*-sysv*) my_host=dpx2 ;; m68*-convergent-sysv*) my_host=miniframe ;; m68*-cbm-amigados*) my_host=amigados ;; m68*-cbm-sysv4*) my_host=m68kv4 ;; m68*-hp-hpux*) my_host=hp300 ;; m68*-hp-bsd*) my_host=hp300bsd ;; m68*-*-lynxos*) my_host=m68klynx ;; m68*-motorola-sysv*) my_host=delta68 ;; m68*-sony-*) my_host=news ;; m68*-sun-*) my_host=sun3 ;; m88*-*-sysv4*) my_host=delta88v4 ;; m88*-motorola-sysv*) my_host=delta88 ;; m88*-harris-*) my_host=harris ;; m88*-*-dgux*) my_host=dgux ;; m88*-*-mach3*) my_host=m88kmach3 ;; ns32k-pc532-mach) my_host=pc532mach ;; ns32k-pc532-netbsd*) my_host=pc532mach ;; romp-*-*) my_host=rtbsd ;; rs6000-*-lynx*) my_host=rs6000lynx ;; rs6000-*-*) my_host=rs6000 ;; sparc-*-lynxos*) my_host=sparclynx ;; sparc-*-sunos64*) my_host=sparc-ll ;; sparc-*-sysv4*) my_host=sysv4 ;; sparc-*-solaris2*) my_host=solaris2 ;; sparc-*-sysv64*) my_host=sysv4-ll ;; sparc-*-*) my_host=sparc ;; tahoe-*-*) my_host=tahoe ;; vax-*-ultrix2*) my_host=vaxult2 ;; vax-*-ultrix*) my_host=vaxult ;; vax-*-*) my_host=vaxbsd ;; we32k-*-*) my_host=we32k ;; esac gdb-4.13/bfd/configure.in 666 34562 1752 22341 5611327477 13637 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. configdirs="doc" srctrigger=libbfd.c srcname="BFD" target_dependent=true host64=false target64=false want64=false # per-host: . ${srcdir}/configure.host # Set up to make a link between the host's include file and "sysdep.h". files="hosts/${my_host}.h" links="sysdep.h" if [ ! -f ${srcdir}/${files} ] ; then files=../bfd/hosts/std-host.h echo "[${srcname} has no specific support for host ${host} -- using std-host]" fi host_makefile_frag= if [ -f ${srcdir}/config/${my_host}.mh ] ; then host_makefile_frag=config/${my_host}.mh fi # per-target: # Canonicalize the secondary target names. if [ -n "$enable_targets" ]; then for targ in `echo $enable_targets | sed 's/,/ /g'` do result=`$configsub $targ 2>/dev/null` if [ -n "$result" ]; then canon_targets="$canon_targets $result" else # Allow targets that config.sub doesn't recognize, like "all". canon_targets="$canon_targets $targ" fi done fi all_targets=false for targ in $target $canon_targets do bfd_target=`$srcdir/config.bfd $targ` if [ "x$bfd_target" = "xall" ]; then all_targets=true else if [ ! -f ${srcdir}/config/${bfd_target}.mt ] ; then echo '***' No file ${srcdir}/config/${bfd_target}.mt 1>&2 echo '***' BFD does not support target ${bfd_target} 1>&2 echo '***' Look in bfd/config.bfd for supported targets 1>&2 exit 1 fi if [ "x$targ" = "x$target" ]; then target_makefile_frag=${srcdir}/config/${bfd_target}.mt else target_extra_frags="$target_extra_frags ${srcdir}/config/${bfd_target}.mt" fi fi done # We don't do any links based on the target system, just makefile config. # post-target: rm -f Makefile.tmp Makefile.2 mv Makefile Makefile.tmp case ${enable_64_bit_bfd} in yes) want64=true ;; no | "") want64=false ;; *) echo "*** bad value \"${enable_64_bit_bfd}\" for 64-bit-bfd flag; ignored" 1>&2 ;; esac # This processing still needs to be done if we're to decide properly whether # 64-bit support needs to be compiled in. Currently, it will be included if # the default or any other explicitly requested target requires it; it # will not be included on a 32-bit host if no 64-bit target is requested, and # no "--with-64-bit-bfd" option is given, even if "--with-targets=all" is # used. # The default vector in the primary target. DEFAULT_VECTOR=`sed -n ' s/DEFAULT_VECTOR[ ]*=[ ]*\([^ ]*\)/\1/p ' $target_makefile_frag` allfrags="$target_makefile_frag $target_extra_frags" # The default and selected vectors in all the configured targets. SELECT_VECS=`sed -n ' s/DEFAULT_VECTOR[ ]*=[ ]*\([^ ]*\)/\1/p s/SELECT_VECS[ ]*=[ ]*\([^ ]*\)/\1/p ' $allfrags` # uniq the list. f="" for i in $SELECT_VECS ; do case " $f " in *" $i "*) ;; *) f="$f $i" ;; esac done SELECT_VECS="$f" # The architectures in all the configured targets. SELECT_ARCHITECTURES=`sed -n ' s/SELECT_ARCHITECTURES[ ]*=[ ]*//p ' $allfrags` # uniq the list. f="" for i in $SELECT_ARCHITECTURES ; do case " $f " in *" $i "*) ;; *) f="$f $i" ;; esac done SELECT_ARCHITECTURES="$f" # Target backend .o files. tb= for vec in $SELECT_VECS do case "$vec" in # This list is alphabetized to make it easy to compare # with the two vector lists in targets.c. a29kcoff_big_vec) tb="$tb coff-a29k.o" ;; a_out_adobe_vec) tb="$tb aout-adobe.o aout32.o stab-syms.o" ;; aout0_big_vec) tb="$tb aout0.o aout32.o stab-syms.o" ;; aout_mips_big_vec) tb="$tb mipsbsd.o aout32.o stab-syms.o" ;; aout_mips_little_vec) tb="$tb mipsbsd.o aout32.o stab-syms.o" ;; apollocoff_vec) tb="$tb coff-apollo.o" ;; b_out_vec_big_host) tb="$tb bout.o aout32.o stab-syms.o" ;; b_out_vec_little_host) tb="$tb bout.o aout32.o stab-syms.o" ;; bfd_elf32_big_generic_vec) tb="$tb elf32-gen.o elf32.o elf.o" ;; bfd_elf32_bigmips_vec) tb="$tb elf32-mips.o elf32.o elf.o ecoff.o ecofflink.o" ;; bfd_elf32_hppa_vec) tb="$tb elf32-hppa.o elf32.o elf.o" ;; bfd_elf32_i386_vec) tb="$tb elf32-i386.o elf32.o elf.o" ;; bfd_elf32_i860_vec) tb="$tb elf32-i860.o elf32.o elf.o" ;; bfd_elf32_little_generic_vec) tb="$tb elf32-gen.o elf32.o elf.o" ;; bfd_elf32_littlemips_vec) tb="$tb elf32-mips.o elf32.o elf.o ecoff.o ecofflink.o" ;; bfd_elf32_m68k_vec) tb="$tb elf32-m68k.o elf32.o elf.o" ;; bfd_elf32_m88k_vec) tb="$tb elf32-m88k.o elf32.o elf.o" ;; bfd_elf32_powerpc_vec) tb="$tb elf32-ppc.o elf32.o elf.o" ;; bfd_elf32_sparc_vec) tb="$tb elf32-sparc.o elf32.o elf.o" ;; bfd_elf64_big_generic_vec) tb="$tb elf64-gen.o elf64.o elf.o" target64=true ;; bfd_elf64_little_generic_vec) tb="$tb elf64-gen.o elf64.o elf.o" target64=true ;; bfd_elf64_sparc_vec) tb="$tb elf64-sparc.o elf64.o elf.o" target64=true ;; cisco_core_vec) tb="$tb cisco-core.o" ;; demo_64_vec) tb="$tb demo64.o aout64.o stab-syms.o" target64=true ;; ecoff_big_vec) tb="$tb coff-mips.o ecoff.o ecofflink.o" ;; ecoff_little_vec) tb="$tb coff-mips.o ecoff.o ecofflink.o" ;; ecoffalpha_little_vec) tb="$tb coff-alpha.o ecoff.o ecofflink.o" target64=true ;; h8300coff_vec) tb="$tb coff-h8300.o reloc16.o" ;; h8500coff_vec) tb="$tb coff-h8500.o reloc16.o" ;; host_aout_vec) tb="$tb host-aout.o aout32.o stab-syms.o" ;; hp300bsd_vec) tb="$tb hp300bsd.o aout32.o stab-syms.o" ;; hp300hpux_vec) tb="$tb hp300hpux.o aout32.o stab-syms.o" ;; i386aout_vec) tb="$tb i386aout.o aout32.o stab-syms.o" ;; i386bsd_vec) tb="$tb i386bsd.o aout32.o stab-syms.o" ;; i386dynix_vec) tb="$tb i386dynix.o aout32.o stab-syms.o" ;; i386coff_vec) tb="$tb coff-i386.o" ;; i386linux_vec) tb="$tb i386linux.o aout32.o stab-syms.o" ;; i386lynx_aout_vec) tb="$tb i386lynx.o lynx-core.o aout32.o stab-syms.o" ;; i386lynx_coff_vec) tb="$tb cf-i386lynx.o lynx-core.o stab-syms.o" ;; i386mach3_vec) tb="$tb i386mach3.o aout32.o stab-syms.o" ;; i386os9k_vec) tb="$tb i386os9k.o aout32.o stab-syms.o" ;; icoff_big_vec) tb="$tb coff-i960.o" ;; icoff_little_vec) tb="$tb coff-i960.o" ;; ieee_vec) tb="$tb ieee.o" ;; m68kcoff_vec) tb="$tb coff-m68k.o" ;; m68kcoffun_vec) tb="$tb coff-u68k.o coff-m68k.o" ;; m68klynx_aout_vec) tb="$tb m68klynx.o lynx-core.o aout32.o stab-syms.o" ;; m68klynx_coff_vec) tb="$tb cf-m68klynx.o coff-m68k.o lynx-core.o stab-syms.o" ;; m88kbcs_vec) tb="$tb coff-m88k.o" ;; netbsd386_vec) tb="$tb netbsd386.o aout32.o stab-syms.o" ;; netbsd532_vec) tb="$tb netbsd532.o aout-ns32k.o stab-syms.o" ;; newsos3_vec) tb="$tb newsos3.o aout32.o stab-syms.o" ;; nlm32_i386_vec) tb="$tb nlm32-i386.o nlm32.o nlm.o" ;; nlm32_sparc_vec) tb="$tb nlm32-sparc.o nlm32.o nlm.o" ;; nlm32_alpha_vec) tb="$tb nlm32-alpha.o nlm32.o nlm.o" target64=true ;; nlm32_powerpc_vec) tb="$tb nlm32-ppc.o nlm32.o nlm.o" ;; pc532mach_vec) tb="$tb pc532-mach.o aout-ns32k.o stab-syms.o" ;; rs6000coff_vec) tb="$tb coff-rs6000.o" ;; shcoff_vec) tb="$tb coff-sh.o reloc16.o" ;; som_vec) tb="$tb som.o" ;; sparclynx_aout_vec) tb="$tb sparclynx.o lynx-core.o aout32.o stab-syms.o" ;; sparclynx_coff_vec) tb="$tb cf-sparclynx.o lynx-core.o stab-syms.o" ;; sparccoff_vec) tb="$tb coff-sparc.o" ;; srec_vec) tb="$tb srec.o" ;; sunos_big_vec) tb="$tb sunos.o aout32.o stab-syms.o" ;; symbolsrec_vec) tb="$tb srec.o" ;; tekhex_vec) tb="$tb tekhex.o" ;; we32kcoff_vec) tb="$tb coff-we32k.o" ;; z8kcoff_vec) tb="$tb coff-z8k.o reloc16.o" ;; "") ;; *) echo "*** unknown target vector $vec" 1>&2; exit 1 ;; esac done # Target architecture .o files. ta=`echo $SELECT_ARCHITECTURES | sed -e s/bfd_/cpu-/g -e s/_arch/.o/g` # Weed out duplicate .o files. f="" for i in $tb ; do case " $f " in *" $i "*) ;; *) f="$f $i" ;; esac done tb="$f" f="" for i in $ta ; do case " $f " in *" $i "*) ;; *) f="$f $i" ;; esac done ta="$f" bfd_backends="$tb" bfd_machines="$ta" if [ x${all_targets} = xtrue ]; then bfd_backends="${bfd_backends}"' $(ALL_BACKENDS)' bfd_machines="${bfd_machines}"' $(ALL_MACHINES)' else # all_targets is true # Only set these if they will be nonempty, for the clever echo. test -n "$SELECT_VECS" && selvecs=`echo $SELECT_VECS | sed -e 's/^/\&/' -e 's/ \(.\)/,\&\1/g'` test -n "SELECT_ARCHITECTURES" && selarchs=`echo $SELECT_ARCHITECTURES | sed -e 's/ \(.\)/,\1/g'` fi # all_targets is true case ${host64}-${target64}-${want64} in *true*) wordsize=64 all_backends='$(BFD64_BACKENDS) $(BFD32_BACKENDS)' ;; false-false-false) wordsize=32 all_backends='$(BFD32_BACKENDS)' ;; esac echo WORDSIZE=${wordsize} >> Makefile.2 echo ALL_BACKENDS=${all_backends} >> Makefile.2 echo BFD_BACKENDS=${bfd_backends} >> Makefile.2 echo BFD_MACHINES=${bfd_machines} >> Makefile.2 test -n "$DEFAULT_VECTOR" && defvec="$DEFAULT_VECTOR" echo "TDEFAULTS = \ ${defvec+-DDEFAULT_VECTOR=$defvec} \ ${selvecs+-DSELECT_VECS='$selvecs'} \ ${selarchs+-DSELECT_ARCHITECTURES='$selarchs'}" \ >> Makefile.2 cat Makefile.tmp >> Makefile.2 rm -f Makefile.tmp mv Makefile.2 Makefile gdb-4.13/bfd/core.c 666 34562 1752 5044 5541347705 12401 0ustar fnfcygnus/* Core file generic interface routines for BFD. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION Core files DESCRIPTION These are functions pertaining to core files. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" /* FUNCTION bfd_core_file_failing_command SYNOPSIS CONST char *bfd_core_file_failing_command(bfd *abfd); DESCRIPTION Return a read-only string explaining which program was running when it failed and produced the core file @var{abfd}. */ CONST char * bfd_core_file_failing_command (abfd) bfd *abfd; { if (abfd->format != bfd_core) { bfd_set_error (bfd_error_invalid_operation); return NULL; } return BFD_SEND (abfd, _core_file_failing_command, (abfd)); } /* FUNCTION bfd_core_file_failing_signal SYNOPSIS int bfd_core_file_failing_signal(bfd *abfd); DESCRIPTION Returns the signal number which caused the core dump which generated the file the BFD @var{abfd} is attached to. */ int bfd_core_file_failing_signal (abfd) bfd *abfd; { if (abfd->format != bfd_core) { bfd_set_error (bfd_error_invalid_operation); return 0; } return BFD_SEND (abfd, _core_file_failing_signal, (abfd)); } /* FUNCTION core_file_matches_executable_p SYNOPSIS boolean core_file_matches_executable_p (bfd *core_bfd, bfd *exec_bfd); DESCRIPTION Return <> if the core file attached to @var{core_bfd} was generated by a run of the executable file attached to @var{exec_bfd}, <> otherwise. */ boolean core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd, *exec_bfd; { if ((core_bfd->format != bfd_core) || (exec_bfd->format != bfd_object)) { bfd_set_error (bfd_error_wrong_format); return false; } return BFD_SEND (core_bfd, _core_file_matches_executable_p, (core_bfd, exec_bfd)); } gdb-4.13/bfd/cpu-a29k.c 666 34562 1752 2451 5541347710 12777 0ustar fnfcygnus/* BFD support for the AMD 29000 architecture. Copyright 1992 Free Software Foundation, Inc. Hacked by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_a29k, 0, /* only 1 machine */ "a29k", "a29k", 4, true, /* the one and only */ bfd_default_compatible, bfd_default_scan , 0, }; void bfd_a29k_arch () { bfd_arch_linkin(&arch_info_struct); } gdb-4.13/bfd/cpu-alpha.c 666 34562 1752 2367 5541347712 13326 0ustar fnfcygnus/* BFD support for the Alpha architecture. Copyright 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 64, /* 32 bits in a word */ 64, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_alpha, 0, /* only 1 machine */ "alpha", "alpha", 3, true, /* the one and only */ bfd_default_compatible, bfd_default_scan , 0, }; void bfd_alpha_arch () { bfd_arch_linkin(&arch_info_struct); } gdb-4.13/bfd/cpu-h8300.c 666 34562 1752 14155 5541347715 13024 0ustar fnfcygnus/* BFD library support routines for the Hitachi H8/300 architecture. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Hacked by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #if 0 /* not used currently */ /* Relocations for the H8 */ static bfd_reloc_status_type howto16_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd * abfd; arelent * reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection * ignore_input_section; bfd * ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_16 (abfd, (bfd_byte *) data + addr); HOWTO_PREPARE (relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_16 (abfd, x, (bfd_byte *) data + addr); return bfd_reloc_ok; } static bfd_reloc_status_type howto8_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd * abfd; arelent * reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection * ignore_input_section; bfd * ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_8 (abfd, (bfd_byte *) data + addr); HOWTO_PREPARE (relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_8 (abfd, x, (bfd_byte *) data + addr); return bfd_reloc_ok; } static bfd_reloc_status_type howto8_FFnn_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd * abfd; arelent * reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection * ignore_input_section; bfd * ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_8 (abfd, (bfd_byte *) data + addr); abort (); HOWTO_PREPARE (relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_8 (abfd, x, (bfd_byte *) data + addr); return bfd_reloc_ok; } static bfd_reloc_status_type howto8_pcrel_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd * abfd; arelent * reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection * ignore_input_section; bfd * ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_8 (abfd, (bfd_byte *) data + addr); abort (); HOWTO_PREPARE (relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_8 (abfd, x, (bfd_byte *) data + addr); return bfd_reloc_ok; } static reloc_howto_type howto_16 = NEWHOWTO (howto16_callback, "abs16", 1, false, false); static reloc_howto_type howto_8 = NEWHOWTO (howto8_callback, "abs8", 0, false, false); static reloc_howto_type howto_8_FFnn = NEWHOWTO (howto8_FFnn_callback, "ff00+abs8", 0, false, false); static reloc_howto_type howto_8_pcrel = NEWHOWTO (howto8_pcrel_callback, "pcrel8", 0, false, true); static CONST struct reloc_howto_struct * local_bfd_reloc_type_lookup (arch, code) CONST struct bfd_arch_info *arch; bfd_reloc_code_real_type code; { switch (code) { case BFD_RELOC_16: return &howto_16; case BFD_RELOC_8_FFnn: return &howto_8_FFnn; case BFD_RELOC_8: return &howto_8; case BFD_RELOC_8_PCREL: return &howto_8_pcrel; default: return (reloc_howto_type *) NULL; } } #endif int bfd_default_scan_num_mach (); static boolean h8300_scan (info, string) CONST struct bfd_arch_info *info; CONST char *string; { if (*string != 'h' && *string != 'H') return false; string++; if (*string != '8') return false; string++; if (*string == '/') string++; if (*string != '3') return false; string++; if (*string != '0') return false; string++; if (*string != '0') return false; string++; if (*string == '-') string++; if (*string == 'h' || *string == 'H') { return (info->mach == bfd_mach_h8300h); } else { return info->mach == bfd_mach_h8300; } } /* This routine is provided two arch_infos and works out the machine which would be compatible with both and returns a pointer to its info structure */ static CONST bfd_arch_info_type * compatible (in, out) CONST bfd_arch_info_type * in; CONST bfd_arch_info_type * out; { /* If the output is non-H and the input is -H, that's bad */ if (in->mach == bfd_mach_h8300h && out->mach == bfd_mach_h8300) return 0; /* If either is an -H, the answer is -H */ if (in->mach == bfd_mach_h8300h) return in; return out; } static bfd_arch_info_type h8300_info_struct = { 16, /* 16 bits in a word */ 16, /* 16 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_h8300, bfd_mach_h8300, "H8/300", /* arch_name */ "H8/300", /* printable name */ 1, true, /* the default machine */ compatible, h8300_scan, 0, /* local_bfd_reloc_type_lookup, */ 0, }; static bfd_arch_info_type h8300h_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_h8300, bfd_mach_h8300h, "H8/300H", /* arch_name */ "H8/300H", /* printable name */ 1, false, /* the default machine */ compatible, h8300_scan, 0, /* local_bfd_reloc_type_lookup, */ 0, }; void bfd_h8300_arch() { bfd_arch_linkin (&h8300_info_struct); bfd_arch_linkin (&h8300h_info_struct); } gdb-4.13/bfd/cpu-h8500.c 666 34562 1752 12133 5541347722 13016 0ustar fnfcygnus/* BFD library support routines for the H8/500 architecture. Copyright (C) 1993 Free Software Foundation, Inc. Hacked by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #if 0 /* Relocations for the Z8K */ static bfd_reloc_status_type howto16_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd *abfd; arelent *reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_16(abfd, (bfd_byte *)data + addr); HOWTO_PREPARE(relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_16(abfd, x, (bfd_byte *)data + addr); return bfd_reloc_ok; } static bfd_reloc_status_type howto8_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd *abfd; arelent *reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_8(abfd, (bfd_byte *)data + addr); HOWTO_PREPARE(relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_8(abfd, x, (bfd_byte *)data + addr); return bfd_reloc_ok; } static bfd_reloc_status_type howto8_FFnn_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd *abfd; arelent *reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_8(abfd, (bfd_byte *)data + addr); abort(); HOWTO_PREPARE(relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_8(abfd, x, (bfd_byte *)data + addr); return bfd_reloc_ok; } static bfd_reloc_status_type howto8_pcrel_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd *abfd; arelent *reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_8(abfd, (bfd_byte *)data + addr); abort(); HOWTO_PREPARE(relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_8(abfd, x, (bfd_byte *)data + addr); return bfd_reloc_ok; } static reloc_howto_type howto_16 = NEWHOWTO(howto16_callback,"abs16",1,false,false); static reloc_howto_type howto_8 = NEWHOWTO(howto8_callback,"abs8",0,false,false); static reloc_howto_type howto_8_FFnn = NEWHOWTO(howto8_FFnn_callback,"ff00+abs8",0,false,false); static reloc_howto_type howto_8_pcrel = NEWHOWTO(howto8_pcrel_callback,"pcrel8",0,false,true); static CONST struct reloc_howto_struct * local_bfd_reloc_type_lookup (arch, code) CONST struct bfd_arch_info *arch; bfd_reloc_code_real_type code; { switch (code) { case BFD_RELOC_16: return &howto_16; case BFD_RELOC_8_FFnn: return &howto_8_FFnn; case BFD_RELOC_8: return &howto_8; case BFD_RELOC_8_PCREL: return &howto_8_pcrel; } return (reloc_howto_type *)NULL; } #endif int bfd_default_scan_num_mach(); static boolean scan_mach (info, string) CONST struct bfd_arch_info *info; CONST char *string; { if (strcmp(string,"h8/500") == 0) return true; if (strcmp(string,"H8/500") == 0) return true; if (strcmp(string,"h8500") == 0) return true; if (strcmp(string,"H8500") == 0) return true; return false; } #if 0 /* not used currently */ /* This routine is provided two arch_infos and returns whether they'd be compatible */ static CONST bfd_arch_info_type * compatible (a,b) CONST bfd_arch_info_type *a; CONST bfd_arch_info_type *b; { if (a->arch != b->arch || a->mach != b->mach) return NULL; return a; } #endif static bfd_arch_info_type arch_info_struct[] = { { 16, /* 16 bits in a word */ 24, /* 24 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_h8500, 0, /* only 1 machine */ "H8/500", /* arch_name */ "H8/500", /* printable name */ 1, true, /* the default machine */ bfd_default_compatible, scan_mach, 0, 0, }, }; void bfd_h8500_arch() { bfd_arch_linkin(&arch_info_struct[0]); } gdb-4.13/bfd/cpu-hppa.c 666 34562 1752 2416 5541347725 13170 0ustar fnfcygnus/* BFD support for the HP Precision Architecture architecture. Copyright 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_hppa, 0, /* only 1 machine */ "hppa", "hppa", 3, true, /* the one and only */ bfd_default_compatible, bfd_default_scan , 0, 0, }; void bfd_hppa_arch () { bfd_arch_linkin(&arch_info_struct); } gdb-4.13/bfd/cpu-i386.c 666 34562 1752 2367 5541347730 12732 0ustar fnfcygnus/* BFD support for the Intel 386 architecture. Copyright 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_i386, 0, /* only 1 machine */ "i386", "i386", 3, true, /* the one and only */ bfd_default_compatible, bfd_default_scan , 0, }; void bfd_i386_arch () { bfd_arch_linkin(&arch_info_struct); } gdb-4.13/bfd/cpu-i960.c 666 34562 1752 10720 5541347732 12742 0ustar fnfcygnus/* BFD library support routines for the i960 architecture. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Hacked by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" /* This routine is provided a string, and tries to work out if it could possibly refer to the i960 machine pointed at in the info_struct pointer */ static boolean scan_960_mach (ap, string) CONST bfd_arch_info_type *ap; CONST char *string; { unsigned long machine; /* Look for the string i960, or somesuch at the front of the string */ if (strncmp("i960",string,4) == 0) { string+=4; } else { /* no match, can be us */ return false; } if (string[0] == 0) { /* i960 on it's own means core to us*/ if (ap->mach == bfd_mach_i960_core) return true; return false; } if (string[0] != ':') { return false; } string++; if (string[0] == '\0') return false; if (string[0] == 'c' && string[1] == 'o' && string[2] == 'r' && string[3] == 'e' && string[4] == '\0') machine = bfd_mach_i960_core; else if (string[1] == '\0' || string[2] != '\0') /* rest are 2-char */ return false; else if (string[0] == 'k' && string[1] == 'b') machine = bfd_mach_i960_kb_sb; else if (string[0] == 's' && string[1] == 'b') machine = bfd_mach_i960_kb_sb; else if (string[0] == 'm' && string[1] == 'c') machine = bfd_mach_i960_mc; else if (string[0] == 'x' && string[1] == 'a') machine = bfd_mach_i960_xa; else if (string[0] == 'c' && string[1] == 'a') machine = bfd_mach_i960_ca; else if (string[0] == 'k' && string[1] == 'a') machine = bfd_mach_i960_ka_sa; else if (string[0] == 's' && string[1] == 'a') machine = bfd_mach_i960_ka_sa; else return false; if (machine == ap->mach) return true; return false; } /* This routine is provided two arch_infos and works out the i960 machine which would be compatible with both and returns a pointer to its info structure */ static CONST bfd_arch_info_type * compatible (a,b) CONST bfd_arch_info_type *a; CONST bfd_arch_info_type *b; { /* The i960 has two distinct subspecies which may not interbreed: CORE CA CORE KA KB MC XA Any architecture on the same line is compatible, the one on the right is the least restrictive. We represent this information in an array, each machine to a side */ #define ERROR 0 #define CORE bfd_mach_i960_core /*1*/ #define KA bfd_mach_i960_ka_sa /*2*/ #define KB bfd_mach_i960_kb_sb /*3*/ #define MC bfd_mach_i960_mc /*4*/ #define XA bfd_mach_i960_xa /*5*/ #define CA bfd_mach_i960_ca /*6*/ static CONST char matrix[7][7] = { { ERROR, CORE, KA, KB, MC, XA, CA }, { CORE, CORE, KA, KB, MC, XA, CA }, { KA, KA, KA, KB, MC, XA, ERROR }, { KB, KB, KB, KB, MC, XA, ERROR }, { MC, MC, MC, MC, MC, XA, ERROR }, { XA, XA, XA, XA, XA, XA, ERROR }, { CA, CA, ERROR, ERROR, ERROR, ERROR, CA } }; if (a->arch != b->arch || matrix[a->mach][b->mach] == ERROR) { return NULL; } else { return (a->mach == matrix[a->mach][b->mach]) ? a : b; } } int bfd_default_scan_num_mach(); #define N(a,b,d) \ { 32, 32, 8,bfd_arch_i960,a,"i960",b,3,d,compatible,scan_960_mach,0,} static bfd_arch_info_type arch_info_struct[] = { N(bfd_mach_i960_core,"i960:core",true), N(bfd_mach_i960_ka_sa,"i960:ka_sa",false), N(bfd_mach_i960_kb_sb,"i960:kb_sb",false), N(bfd_mach_i960_mc,"i960:mc",false), N(bfd_mach_i960_xa,"i960:xa",false), N(bfd_mach_i960_ca,"i960:ca",false) }; void bfd_i960_arch () { unsigned int i; for (i = 0; i < sizeof(arch_info_struct)/sizeof (*arch_info_struct); i++) { bfd_arch_linkin(arch_info_struct + i); } } gdb-4.13/bfd/cpu-m68k.c 666 34562 1752 3072 5541347736 13026 0ustar fnfcygnus/* BFD library support routines for architectures. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Hacked by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" int bfd_default_scan_num_mach(); #define N(name, print,d) \ { 32, 32, 8, bfd_arch_m68k, name, "m68k",print,2,d,bfd_default_compatible,bfd_default_scan, 0, } static bfd_arch_info_type arch_info_struct[] = { N(68000,"m68k:68000",false), N(68008,"m68k:68008",false), N(68010,"m68k:68010",false), N(68020,"m68k:68020",true), /* the word m68k will match this too */ N(68030,"m68k:68030",false), N(68040,"m68k:68040",false), N(68070,"m68k:68070",false), { 0 }, } ; void bfd_m68k_arch () { unsigned int i; for (i = 0; arch_info_struct[i].bits_per_word; i++) { bfd_arch_linkin(&arch_info_struct[i]); } } gdb-4.13/bfd/cpu-m88k.c 666 34562 1752 2517 5541347742 13030 0ustar fnfcygnus/* bfd back-end for m88k support Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_m88k, 88100, /* only 1 machine */ "m88k", "m88k:88100", 3, true, /* the one and only */ bfd_default_compatible, bfd_default_scan , 0, /* disassemble */ }; void bfd_m88k_arch () { bfd_arch_linkin(&arch_info_struct); } gdb-4.13/bfd/cpu-mips.c 666 34562 1752 3534 5541347746 13215 0ustar fnfcygnus/* bfd back-end for mips support Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct[] = { { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_mips, 3000, "mips", "mips:3000", 3, true, bfd_default_compatible, bfd_default_scan, 0, }, { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_mips, 6000, "mips", "mips:6000", 3, false, bfd_default_compatible, bfd_default_scan, 0, }, { 64, /* 64 bits in a word */ 64, /* 64 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_mips, 4000, "mips", "mips:4000", 3, false, bfd_default_compatible, bfd_default_scan , 0, } }; void bfd_mips_arch () { register int i; for (i = 0; i < sizeof (arch_info_struct) / sizeof (*arch_info_struct); i++) bfd_arch_linkin(&arch_info_struct[i]); } gdb-4.13/bfd/cpu-ns32k.c 666 34562 1752 56327 5611327505 13222 0ustar fnfcygnus/* BFD library support routines for architectures. Copyright (C) 1990-1991 Free Software Foundation, Inc. Almost totally rewritten by Ian Dall from initial work by Andrew Cagney. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" int bfd_default_scan_num_mach(); #define N(machine, printable, d) \ { 32, 32, 8, bfd_arch_ns32k, machine, "ns32k",printable,3,d,bfd_default_compatible,bfd_default_scan, 0, } static bfd_arch_info_type arch_info_struct[] = { N(32032,"ns32k:32032",false), N(32532,"ns32k:32532",true), /* the word ns32k will match this too */ 0 } ; void bfd_ns32k_arch(void) { unsigned int i; for (i = 0; arch_info_struct[i].bits_per_word; i++) { bfd_arch_linkin(&arch_info_struct[i]); } } static long ns32k_sign_extend(int value, int bits) { value = value & ((1 << bits) - 1); return (value & (1 << (bits-1)) ? value | (~((1 << bits) - 1)) : value); } static long ns32k_get_displacement(bfd_byte *buffer, long offset, long size) { long value; buffer += offset; switch (size) { case 1: value = ns32k_sign_extend (*buffer, 7); break; case 2: value = ns32k_sign_extend(*buffer++, 6); value = (value << 8) | (0xff & *buffer); break; case 4: value = ns32k_sign_extend(*buffer++, 6); value = (value << 8) | (0xff & *buffer++); value = (value << 8) | (0xff & *buffer++); value = (value << 8) | (0xff & *buffer); break; } return value; } static int ns32k_put_displacement(long value, bfd_byte *buffer, long offset, long size) { buffer += offset; switch (size) { case 1: if (value < -64 || value > 63) return -1; value&=0x7f; *buffer++=value; break; case 2: if (value < -8192 || value > 8191) return -1; value&=0x3fff; value|=0x8000; *buffer++=(value>>8); *buffer++=value; break; case 4: if (value < -0x1f000000 || value >= 0x20000000) return -1; value|=0xc0000000; *buffer++=(value>>24); *buffer++=(value>>16); *buffer++=(value>>8); *buffer++=value; break; default: return -1; } return 0; } static long ns32k_get_immediate(bfd_byte *buffer, long offset, long size) { long value = 0; buffer += offset; switch (size) { case 4: value = (value << 8) | (*buffer++ & 0xff); case 3: value = (value << 8) | (*buffer++ & 0xff); case 2: value = (value << 8) | (*buffer++ & 0xff); case 1: value = (value << 8) | (*buffer++ & 0xff); } return value; } static int ns32k_put_immediate (long value, bfd_byte *buffer, long offset, long size) { buffer += offset + size - 1; switch (size) { case 4: *buffer-- = (value & 0xff); value >>= 8; case 3: *buffer-- = (value & 0xff); value >>= 8; case 2: *buffer-- = (value & 0xff); value >>= 8; case 1: *buffer-- = (value & 0xff); value >>= 8; } return 0; } /* This is just like the standard perform_relocation except we * use get_data and put_data which know about the ns32k * storage methods. * This is probably a lot more complicated than it needs to be! */ static bfd_reloc_status_type do_ns32k_reloc (bfd *abfd, arelent *reloc_entry, struct symbol_cache_entry *symbol, PTR data, asection *input_section, bfd *output_bfd, char **error_message, long (*get_data)(), int (*put_data)()) { int overflow = 0; bfd_vma relocation; bfd_reloc_status_type flag = bfd_reloc_ok; bfd_size_type addr = reloc_entry->address; bfd_vma output_base = 0; const reloc_howto_type *howto = reloc_entry->howto; asection *reloc_target_output_section; if ((symbol->section == &bfd_abs_section) && output_bfd != (bfd *) NULL) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } /* If we are not producing relocateable output, return an error if the symbol is not defined. An undefined weak symbol is considered to have a value of zero (SVR4 ABI, p. 4-27). */ if (symbol->section == &bfd_und_section && (symbol->flags & BSF_WEAK) == 0 && output_bfd == (bfd *) NULL) flag = bfd_reloc_undefined; /* Is the address of the relocation really within the section? */ if (reloc_entry->address > input_section->_cooked_size) return bfd_reloc_outofrange; /* Work out which section the relocation is targetted at and the initial relocation command value. */ /* Get symbol value. (Common symbols are special.) */ if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; reloc_target_output_section = symbol->section->output_section; /* Convert input-section-relative symbol value to absolute. */ if (output_bfd && howto->partial_inplace == false) output_base = 0; else output_base = reloc_target_output_section->vma; relocation += output_base + symbol->section->output_offset; /* Add in supplied addend. */ relocation += reloc_entry->addend; /* Here the variable relocation holds the final address of the symbol we are relocating against, plus any addend. */ if (howto->pc_relative == true) { /* This is a PC relative relocation. We want to set RELOCATION to the distance between the address of the symbol and the location. RELOCATION is already the address of the symbol. We start by subtracting the address of the section containing the location. If pcrel_offset is set, we must further subtract the position of the location within the section. Some targets arrange for the addend to be the negative of the position of the location within the section; for example, i386-aout does this. For i386-aout, pcrel_offset is false. Some other targets do not include the position of the location; for example, m88kbcs, or ELF. For those targets, pcrel_offset is true. If we are producing relocateable output, then we must ensure that this reloc will be correctly computed when the final relocation is done. If pcrel_offset is false we want to wind up with the negative of the location within the section, which means we must adjust the existing addend by the change in the location within the section. If pcrel_offset is true we do not want to adjust the existing addend at all. FIXME: This seems logical to me, but for the case of producing relocateable output it is not what the code actually does. I don't want to change it, because it seems far too likely that something will break. */ relocation -= input_section->output_section->vma + input_section->output_offset; if (howto->pcrel_offset == true) relocation -= reloc_entry->address; } if (output_bfd != (bfd *) NULL) { if (howto->partial_inplace == false) { /* This is a partial relocation, and we want to apply the relocation to the reloc entry rather than the raw data. Modify the reloc inplace to reflect what we now know. */ reloc_entry->addend = relocation; reloc_entry->address += input_section->output_offset; return flag; } else { /* This is a partial relocation, but inplace, so modify the reloc record a bit. If we've relocated with a symbol with a section, change into a ref to the section belonging to the symbol. */ reloc_entry->address += input_section->output_offset; /* WTF?? */ if (abfd->xvec->flavour == bfd_target_coff_flavour && strcmp (abfd->xvec->name, "aixcoff-rs6000") != 0) { #if 1 /* For m68k-coff, the addend was being subtracted twice during relocation with -r. Removing the line below this comment fixes that problem; see PR 2953. However, Ian wrote the following, regarding removing the line below, which explains why it is still enabled: --djm If you put a patch like that into BFD you need to check all the COFF linkers. I am fairly certain that patch will break coff-i386 (e.g., SCO); see coff_i386_reloc in coff-i386.c where I worked around the problem in a different way. There may very well be a reason that the code works as it does. Hmmm. The first obvious point is that bfd_perform_relocation should not have any tests that depend upon the flavour. It's seem like entirely the wrong place for such a thing. The second obvious point is that the current code ignores the reloc addend when producing relocateable output for COFF. That's peculiar. In fact, I really have no idea what the point of the line you want to remove is. A typical COFF reloc subtracts the old value of the symbol and adds in the new value to the location in the object file (if it's a pc relative reloc it adds the difference between the symbol value and the location). When relocating we need to preserve that property. BFD handles this by setting the addend to the negative of the old value of the symbol. Unfortunately it handles common symbols in a non-standard way (it doesn't subtract the old value) but that's a different story (we can't change it without losing backward compatibility with old object files) (coff-i386 does subtract the old value, to be compatible with existing coff-i386 targets, like SCO). So everything works fine when not producing relocateable output. When we are producing relocateable output, logically we should do exactly what we do when not producing relocateable output. Therefore, your patch is correct. In fact, it should probably always just set reloc_entry->addend to 0 for all cases, since it is, in fact, going to add the value into the object file. This won't hurt the COFF code, which doesn't use the addend; I'm not sure what it will do to other formats (the thing to check for would be whether any formats both use the addend and set partial_inplace). When I wanted to make coff-i386 produce relocateable output, I ran into the problem that you are running into: I wanted to remove that line. Rather than risk it, I made the coff-i386 relocs use a special function; it's coff_i386_reloc in coff-i386.c. The function specifically adds the addend field into the object file, knowing that bfd_perform_relocation is not going to. If you remove that line, then coff-i386.c will wind up adding the addend field in twice. It's trivial to fix; it just needs to be done. The problem with removing the line is just that it may break some working code. With BFD it's hard to be sure of anything. The right way to deal with this is simply to build and test at least all the supported COFF targets. It should be straightforward if time and disk space consuming. For each target: 1) build the linker 2) generate some executable, and link it using -r (I would probably use paranoia.o and link against newlib/libc.a, which for all the supported targets would be available in /usr/cygnus/progressive/H-host/target/lib/libc.a). 3) make the change to reloc.c 4) rebuild the linker 5) repeat step 2 6) if the resulting object files are the same, you have at least made it no worse 7) if they are different you have to figure out which version is right */ relocation -= reloc_entry->addend; #endif reloc_entry->addend = 0; } else { reloc_entry->addend = relocation; } } } else { reloc_entry->addend = 0; } /* FIXME: This overflow checking is incomplete, because the value might have overflowed before we get here. For a correct check we need to compute the value in a size larger than bitsize, but we can't reasonably do that for a reloc the same size as a host machine word. FIXME: We should also do overflow checking on the result after adding in the value contained in the object file. */ if (howto->complain_on_overflow != complain_overflow_dont) { bfd_vma check; /* Get the value that will be used for the relocation, but starting at bit position zero. */ if (howto->rightshift > howto->bitpos) check = relocation >> (howto->rightshift - howto->bitpos); else check = relocation << (howto->bitpos - howto->rightshift); switch (howto->complain_on_overflow) { case complain_overflow_signed: { /* Assumes two's complement. */ bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1; bfd_signed_vma reloc_signed_min = ~reloc_signed_max; /* The above right shift is incorrect for a signed value. Fix it up by forcing on the upper bits. */ if (howto->rightshift > howto->bitpos && (bfd_signed_vma) relocation < 0) check |= ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> (howto->rightshift - howto->bitpos))); if ((bfd_signed_vma) check > reloc_signed_max || (bfd_signed_vma) check < reloc_signed_min) flag = bfd_reloc_overflow; } break; case complain_overflow_unsigned: { /* Assumes two's complement. This expression avoids overflow if howto->bitsize is the number of bits in bfd_vma. */ bfd_vma reloc_unsigned_max = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1; if ((bfd_vma) check > reloc_unsigned_max) flag = bfd_reloc_overflow; } break; case complain_overflow_bitfield: { /* Assumes two's complement. This expression avoids overflow if howto->bitsize is the number of bits in bfd_vma. */ bfd_vma reloc_bits = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1; if (((bfd_vma) check & ~reloc_bits) != 0 && ((bfd_vma) check & ~reloc_bits) != (-1 & ~reloc_bits)) { /* The above right shift is incorrect for a signed value. See if turning on the upper bits fixes the overflow. */ if (howto->rightshift > howto->bitpos && (bfd_signed_vma) relocation < 0) { check |= ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> (howto->rightshift - howto->bitpos))); if (((bfd_vma) check & ~reloc_bits) != (-1 & ~reloc_bits)) flag = bfd_reloc_overflow; } else flag = bfd_reloc_overflow; } } break; default: abort (); } } /* Either we are relocating all the way, or we don't want to apply the relocation to the reloc entry (probably because there isn't any room in the output format to describe addends to relocs) */ /* The cast to bfd_vma avoids a bug in the Alpha OSF/1 C compiler (OSF version 1.3, compiler version 3.11). It miscompiles the following program: struct str { unsigned int i0; } s = { 0 }; int main () { unsigned long x; x = 0x100000000; x <<= (unsigned long) s.i0; if (x == 0) printf ("failed\n"); else printf ("succeeded (%lx)\n", x); } */ relocation >>= (bfd_vma) howto->rightshift; /* Shift everything up to where it's going to be used */ relocation <<= (bfd_vma) howto->bitpos; /* Wait for the day when all have the mask in them */ /* What we do: i instruction to be left alone o offset within instruction r relocation offset to apply S src mask D dst mask N ~dst mask A part 1 B part 2 R result Do this: i i i i i o o o o o from bfd_get and S S S S S to get the size offset we want + r r r r r r r r r r to get the final value to place and D D D D D to chop to right size ----------------------- A A A A A And this: ... i i i i i o o o o o from bfd_get and N N N N N get instruction ----------------------- ... B B B B B And then: B B B B B or A A A A A ----------------------- R R R R R R R R R R put into bfd_put */ #define DOIT(x) \ x = ( (x & ~howto->dst_mask) | (((x & howto->src_mask) + relocation) & howto->dst_mask)) switch (howto->size) { case 0: { char x = get_data (data, addr, 1); DOIT (x); overflow = put_data(x, data, addr, 1); } break; case 1: if (relocation) { short x = get_data (data, addr, 2); DOIT (x); overflow = put_data(x, (unsigned char *) data, addr, 2); } break; case 2: if (relocation) { long x = get_data (data, addr, 4); DOIT (x); overflow = put_data(x, data, addr, 4); } break; case -2: { long x = get_data(data, addr, 4); relocation = -relocation; DOIT(x); overflow = put_data(x, data , addr, 4); } break; case 3: /* Do nothing */ break; case 4: #ifdef BFD64 if (relocation) { bfd_vma x = get_data (data, addr, 8); DOIT (x); overflow = put_data(x, data, addr, 8); } #else abort (); #endif break; default: return bfd_reloc_other; } if ((howto->complain_on_overflow != complain_overflow_dont) && overflow) return bfd_reloc_overflow; return flag; } /* Relocate a given location using a given value and howto. */ static bfd_reloc_status_type do_ns32k_reloc_contents (howto, input_bfd, relocation, location, get_data, put_data) const reloc_howto_type *howto; bfd *input_bfd; bfd_vma relocation; bfd_byte *location; long (*get_data)(); int (*put_data)(); { int size; bfd_vma x; boolean overflow; /* If the size is negative, negate RELOCATION. This isn't very general. */ if (howto->size < 0) relocation = -relocation; /* Get the value we are going to relocate. */ size = bfd_get_reloc_size (howto); switch (size) { default: case 0: abort (); case 1: case 2: case 4: #ifdef BFD64 case 8: #endif x = get_data (location, 0, size); break; } /* Check for overflow. FIXME: We may drop bits during the addition which we don't check for. We must either check at every single operation, which would be tedious, or we must do the computations in a type larger than bfd_vma, which would be inefficient. */ overflow = false; if (howto->complain_on_overflow != complain_overflow_dont) { bfd_vma check; bfd_signed_vma signed_check; bfd_vma add; bfd_signed_vma signed_add; if (howto->rightshift == 0) { check = relocation; signed_check = (bfd_signed_vma) relocation; } else { /* Drop unwanted bits from the value we are relocating to. */ check = relocation >> howto->rightshift; /* If this is a signed value, the rightshift just dropped leading 1 bits (assuming twos complement). */ if ((bfd_signed_vma) relocation >= 0) signed_check = check; else signed_check = (check | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->rightshift))); } /* Get the value from the object file. */ add = x & howto->src_mask; /* Get the value from the object file with an appropriate sign. The expression involving howto->src_mask isolates the upper bit of src_mask. If that bit is set in the value we are adding, it is negative, and we subtract out that number times two. If src_mask includes the highest possible bit, then we can not get the upper bit, but that does not matter since signed_add needs no adjustment to become negative in that case. */ signed_add = add; if ((add & (((~howto->src_mask) >> 1) & howto->src_mask)) != 0) signed_add -= (((~howto->src_mask) >> 1) & howto->src_mask) << 1; /* Add the value from the object file, shifted so that it is a straight number. */ if (howto->bitpos == 0) { check += add; signed_check += signed_add; } else { check += add >> howto->bitpos; /* For the signed case we use ADD, rather than SIGNED_ADD, to avoid warnings from SVR4 cc. This is OK since we explictly handle the sign bits. */ if (signed_add >= 0) signed_check += add >> howto->bitpos; else signed_check += ((add >> howto->bitpos) | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->bitpos))); } switch (howto->complain_on_overflow) { case complain_overflow_signed: { /* Assumes two's complement. */ bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1; bfd_signed_vma reloc_signed_min = ~reloc_signed_max; if (signed_check > reloc_signed_max || signed_check < reloc_signed_min) overflow = true; } break; case complain_overflow_unsigned: { /* Assumes two's complement. This expression avoids overflow if howto->bitsize is the number of bits in bfd_vma. */ bfd_vma reloc_unsigned_max = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1; if (check > reloc_unsigned_max) overflow = true; } break; case complain_overflow_bitfield: { /* Assumes two's complement. This expression avoids overflow if howto->bitsize is the number of bits in bfd_vma. */ bfd_vma reloc_bits = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1; if ((check & ~reloc_bits) != 0 && (((bfd_vma) signed_check & ~reloc_bits) != (-1 & ~reloc_bits))) overflow = true; } break; default: abort (); } } /* Put RELOCATION in the right bits. */ relocation >>= (bfd_vma) howto->rightshift; relocation <<= (bfd_vma) howto->bitpos; /* Add RELOCATION to the right bits of X. */ x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + relocation) & howto->dst_mask)); /* Put the relocated value back in the object file. */ switch (size) { default: case 0: abort (); case 1: case 2: case 4: #ifdef BFD64 case 8: #endif put_data(x, location, 0, size); break; } return overflow ? bfd_reloc_overflow : bfd_reloc_ok; } bfd_reloc_status_type ns32k_reloc_disp(bfd *abfd, arelent *reloc_entry, struct symbol_cache_entry *symbol, PTR data, asection *input_section, bfd *output_bfd, char **error_message) { return do_ns32k_reloc(abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message, ns32k_get_displacement, ns32k_put_displacement); } bfd_reloc_status_type ns32k_reloc_imm (bfd *abfd, arelent *reloc_entry, struct symbol_cache_entry *symbol, PTR data, asection *input_section, bfd *output_bfd, char **error_message) { return do_ns32k_reloc(abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message, ns32k_get_immediate, ns32k_put_immediate); } bfd_reloc_status_type ns32k_reloc_contents_disp (const reloc_howto_type *howto, bfd *input_bfd, bfd_vma relocation, bfd_byte *location) { return do_ns32k_reloc_contents(howto, input_bfd, relocation, location, ns32k_get_displacement, ns32k_put_displacement); } bfd_reloc_status_type ns32k_reloc_contents_imm (const reloc_howto_type *howto, bfd *input_bfd, bfd_vma relocation, bfd_byte *location) { return do_ns32k_reloc_contents(howto, input_bfd, relocation, location, ns32k_get_immediate, ns32k_put_immediate); } gdb-4.13/bfd/cpu-powerpc.c 666 34562 1752 2464 5525557130 13715 0ustar fnfcygnus/* BFD PowerPC CPU definition Copyright (C) 1994 Free Software Foundation, Inc. Contributed by Ian Lance Taylor, Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_powerpc, 601, /* for the mpc601 */ "powerpc", "powerpc:601", 3, true, /* default PowerPC cpu */ bfd_default_compatible, bfd_default_scan , 0, }; void bfd_powerpc_arch () { bfd_arch_linkin (&arch_info_struct); } gdb-4.13/bfd/cpu-rs6000.c 666 34562 1752 3137 5541347752 13173 0ustar fnfcygnus/* BFD back-end for rs6000 support Copyright (C) 1990, 1991 Free Software Foundation, Inc. FIXME: Can someone provide a transliteration of this name into ASCII? Using the following chars caused a compiler warning on HIUX (so I replaced them with octal escapes), and isn't useful without an understanding of what character set it is. Written by Mimi Ph\373\364ng-Th\345o V\365 of IBM and John Gilmore of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_rs6000, 6000, /* only 1 machine */ "rs6000", "rs6000:6000", 3, true, /* the one and only */ bfd_default_compatible, bfd_default_scan , 0, }; void bfd_rs6000_arch () { bfd_arch_linkin(&arch_info_struct); } gdb-4.13/bfd/cpu-sh.c 666 34562 1752 3653 5541347755 12661 0ustar fnfcygnus/* BFD library support routines for the Hitachi-SH architecture. Copyright (C) 1993 Free Software Foundation, Inc. Hacked by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" int bfd_default_scan_num_mach(); static boolean scan_mach (info, string) CONST struct bfd_arch_info *info; CONST char *string; { if (strcmp(string,"sh") == 0) return true; if (strcmp(string,"SH") == 0) return true; return false; } #if 0 /* This routine is provided two arch_infos and returns whether they'd be compatible */ static CONST bfd_arch_info_type * compatible (a,b) CONST bfd_arch_info_type *a; CONST bfd_arch_info_type *b; { if (a->arch != b->arch || a->mach != b->mach) return NULL; return a; } #endif static bfd_arch_info_type arch_info_struct[] = { { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_sh, 0, /* only 1 machine */ "SH", /* arch_name */ "SH", /* printable name */ 1, true, /* the default machine */ bfd_default_compatible, scan_mach, 0, 0, }, }; void bfd_sh_arch () { bfd_arch_linkin(&arch_info_struct[0]); } gdb-4.13/bfd/cpu-sparc.c 666 34562 1752 2367 5541347761 13355 0ustar fnfcygnus/* BFD support for the SPARC architecture. Copyright 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_sparc, 0, /* only 1 machine */ "sparc", "sparc", 3, true, /* the one and only */ bfd_default_compatible, bfd_default_scan , 0, }; void bfd_sparc_arch () { bfd_arch_linkin(&arch_info_struct); } gdb-4.13/bfd/cpu-vax.c 666 34562 1752 2453 5541347765 13043 0ustar fnfcygnus/* bfd back-end for vax support Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_vax, 0, /* only 1 machine */ "vax", "vax", 3, true, /* the one and only */ bfd_default_compatible, bfd_default_scan , 0, }; void bfd_vax_arch () { bfd_arch_linkin(&arch_info_struct); } gdb-4.13/bfd/cpu-we32k.c 666 34562 1752 2510 5541347767 13174 0ustar fnfcygnus/* bfd back-end for we32k support Copyright (C) 1992 Free Software Foundation, Inc. Contributed by Brendan Kehoe (brendan@cs.widener.edu). This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static bfd_arch_info_type arch_info_struct = { 32, /* 32 bits in a word */ 32, /* 32 bits in an address */ 8, /* 8 bits in a byte */ bfd_arch_we32k, 32000, /* only 1 machine */ "we32k", "we32k:32000", 3, true, /* the one and only */ bfd_default_compatible, bfd_default_scan , 0, /* disassemble */ }; void bfd_we32k_arch () { bfd_arch_linkin(&arch_info_struct); } gdb-4.13/bfd/cpu-z8k.c 666 34562 1752 12103 5541347771 12767 0ustar fnfcygnus/* BFD library support routines for the Z800n architecture. Copyright (C) 1992 Free Software Foundation, Inc. Hacked by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #if 0 /* not used currently */ /* Relocations for the Z8K */ static bfd_reloc_status_type howto16_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd *abfd; arelent *reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_16 (abfd, (bfd_byte *) data + addr); HOWTO_PREPARE (relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_16 (abfd, x, (bfd_byte *) data + addr); return bfd_reloc_ok; } static bfd_reloc_status_type howto8_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd *abfd; arelent *reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_8 (abfd, (bfd_byte *) data + addr); HOWTO_PREPARE (relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_8 (abfd, x, (bfd_byte *) data + addr); return bfd_reloc_ok; } static bfd_reloc_status_type howto8_FFnn_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd *abfd; arelent *reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_8 (abfd, (bfd_byte *) data + addr); abort (); HOWTO_PREPARE (relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_8 (abfd, x, (bfd_byte *) data + addr); return bfd_reloc_ok; } static bfd_reloc_status_type howto8_pcrel_callback (abfd, reloc_entry, symbol_in, data, ignore_input_section, ignore_bfd) bfd *abfd; arelent *reloc_entry; struct symbol_cache_entry *symbol_in; PTR data; asection *ignore_input_section; bfd *ignore_bfd; { long relocation = 0; bfd_vma addr = reloc_entry->address; long x = bfd_get_8 (abfd, (bfd_byte *) data + addr); abort (); HOWTO_PREPARE (relocation, symbol_in); x = (x + relocation + reloc_entry->addend); bfd_put_8 (abfd, x, (bfd_byte *) data + addr); return bfd_reloc_ok; } static reloc_howto_type howto_16 = NEWHOWTO (howto16_callback, "abs16", 1, false, false); static reloc_howto_type howto_8 = NEWHOWTO (howto8_callback, "abs8", 0, false, false); static reloc_howto_type howto_8_FFnn = NEWHOWTO (howto8_FFnn_callback, "ff00+abs8", 0, false, false); static reloc_howto_type howto_8_pcrel = NEWHOWTO (howto8_pcrel_callback, "pcrel8", 0, false, true); static CONST struct reloc_howto_struct * local_bfd_reloc_type_lookup (arch, code) CONST struct bfd_arch_info *arch; bfd_reloc_code_real_type code; { switch (code) { case BFD_RELOC_16: return &howto_16; case BFD_RELOC_8_FFnn: return &howto_8_FFnn; case BFD_RELOC_8: return &howto_8; case BFD_RELOC_8_PCREL: return &howto_8_pcrel; default: return (reloc_howto_type *) NULL; } } #endif int bfd_default_scan_num_mach (); static boolean scan_mach (info, string) CONST struct bfd_arch_info *info; CONST char *string; { if (strcmp (string, "z8001") == 0 || strcmp (string, "z8k") == 0) { return bfd_mach_z8001 == info->mach; } if (strcmp (string, "z8002") == 0) { return bfd_mach_z8002 == info->mach; } return false; } /* This routine is provided two arch_infos and returns whether they'd be compatible */ static CONST bfd_arch_info_type * compatible (a, b) CONST bfd_arch_info_type *a; CONST bfd_arch_info_type *b; { if (a->arch != b->arch || a->mach != b->mach) return NULL; return a; } static bfd_arch_info_type arch_info_struct[] = { {32, 16, 8, bfd_arch_z8k, bfd_mach_z8002, "z8k", "z8002", 1, false, compatible, scan_mach, 0,}, {32, 32, 8, bfd_arch_z8k, bfd_mach_z8001, "z8k", "z8001", 1, true, compatible, scan_mach, 0,}, }; void bfd_z8k_arch () { bfd_arch_linkin (&arch_info_struct[0]); bfd_arch_linkin (&arch_info_struct[1]); } gdb-4.13/bfd/ctor.c 666 34562 1752 12504 5541347774 12445 0ustar fnfcygnus/* BFD library support routines for constructors Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Hacked by Steve Chamberlain of Cygnus Support. With some help from Judy Chamberlain too. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION Constructors Classes in C++ have @dfn{constructors} and @dfn{destructors}. These are functions which are called automatically by the language whenever data of a class is created or destroyed. Class data which is static may also be have a type which requires `construction'; the contructor must be called before the data can be referenced, so the contructor must be called before the program begins. The common solution to this problem is for the compiler to call a magic function as the first statement before <
>. This magic function (often called <<__main>>) runs around calling the constructors for all the things needing it. With COFF, the compiler has a bargain with the linker et al. All constructors are given strange names; for example, <<__GLOBAL__$I$foo>> might be the label of a contructor for the class @var{foo}. The solution on unfortunate systems (most System V machines) is to perform a partial link on all the <<.o>> files, do an <> on the result, run <> or some such over the result looking for strange <<__GLOBAL__$>> symbols, generate a C program from this, compile it, and link with the partially linked input. This process is usually called <>. Some versions of <> use something called the <> mechanism. The constructor symbols are output from the compiler with a special stab code saying that they are constructors, and the linker can deal with them directly. BFD allows applications (i.e., the linker) to deal with constructor information independently of their external implementation by providing a set of entry points for the indiviual object back ends to call to maintain a database of the contructor information. The application can interrogate the database to find out what it wants. The construction data essential for the linker to be able to perform its job are: o asymbol - The asymbol of the contructor entry point contains all the information necessary to call the function. o table id - The type of symbol, i.e., is it a constructor, a destructor or something else someone dreamed up to make our lives difficult. The constructor module takes this information and builds extra sections attached to the BFDs which own the entry points. It creates these sections as if they were tables of pointers to the entry points, and builds relocation entries to go with them so that the tables can be relocated along with the data they reference. These sections are marked with a special bit (<>), which the linker notices and does with what it wants. */ #include #include #include /* INTERNAL_FUNCTION bfd_constructor_entry SYNOPSIS boolean bfd_constructor_entry(bfd *abfd, asymbol **symbol_ptr_ptr, CONST char*type); DESCRIPTION @var{symbol_ptr_ptr} describes the function to be called; @var{type} descibes the xtor type, e.g., something like "CTOR" or "DTOR" would be fine. @var{abfd} is the BFD which owns the function. Create a section called "CTOR" or "DTOR" or whatever if the BFD doesn't already have one, and grow a relocation table for the entry points as they accumulate. Return <> if successful, <> if out of memory. */ boolean bfd_constructor_entry (abfd, symbol_ptr_ptr, type) bfd *abfd; asymbol **symbol_ptr_ptr; CONST char *type; { /* Look up the section we're using to store the table in */ asection *rel_section = bfd_get_section_by_name (abfd, type); if (rel_section == (asection *)NULL) { rel_section = bfd_make_section (abfd, type); rel_section->flags = SEC_CONSTRUCTOR; rel_section->alignment_power = 2; } /* Create a relocation into the section which references the entry point */ { arelent_chain *reloc = (arelent_chain *)bfd_alloc(abfd, sizeof(arelent_chain)); if (!reloc) { bfd_set_error (bfd_error_no_memory); return false; } /* reloc->relent.section = (asection *)NULL;*/ reloc->relent.addend = 0; reloc->relent.sym_ptr_ptr = symbol_ptr_ptr; reloc->next = rel_section->constructor_chain; rel_section->constructor_chain = reloc; reloc->relent.address = rel_section->_cooked_size; /* ask the cpu which howto to use */ reloc->relent.howto = bfd_reloc_type_lookup(abfd, BFD_RELOC_CTOR); rel_section->_cooked_size += sizeof(int *); rel_section->reloc_count++; } return true; } gdb-4.13/bfd/demo64.c 666 34562 1752 1732 5541347777 12560 0ustar fnfcygnus/* BFD backend for demonstration 64-bit a.out binaries. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define ARCH_SIZE 64 #define MY(OP) CAT(demo_64_,OP) #define TARGETNAME "demo64" #include "aoutf1.h" gdb-4.13/bfd/dep-in.sed 666 34562 1752 455 5571422722 13133 0ustar fnfcygnus:loop /\\$/N /\\$/b loop s! @BFD_H@!!g s!@INCDIR@!$(INCDIR)!g s!@srcdir@/!!g s!hosts/[^ ]*\.h ! !g s/ sysdep.h//g s/ libbfd.h//g s! \$(INCDIR)/fopen-[^ ]*\.h!!g s! \$(INCDIR)/ansidecl\.h!!g s! \$(INCDIR)/obstack\.h!!g s/\\\n */ /g s/ *$// s/ */ /g s/ *:/:/g /:$/d s/\(.\{50\}[^ ]*\) /\1 \\\ /g gdb-4.13/bfd/ecoff.c 666 34562 1752 430635 5601614575 12602 0ustar fnfcygnus/* Generic ECOFF (Extended-COFF) routines. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Original version by Per Bothner. Full support added by Ian Lance Taylor, ian@cygnus.com. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #include "aout/ar.h" #include "aout/ranlib.h" /* FIXME: We need the definitions of N_SET[ADTB], but aout64.h defines some other stuff which we don't want and which conflicts with stuff we do want. */ #include "libaout.h" #include "aout/aout64.h" #undef N_ABS #undef exec_hdr #undef obj_sym_filepos #include "coff/internal.h" #include "coff/sym.h" #include "coff/symconst.h" #include "coff/ecoff.h" #include "libcoff.h" #include "libecoff.h" /* Prototypes for static functions. */ static int ecoff_get_magic PARAMS ((bfd *abfd)); static long ecoff_sec_to_styp_flags PARAMS ((const char *name, flagword flags)); static boolean ecoff_slurp_symbolic_header PARAMS ((bfd *abfd)); static boolean ecoff_set_symbol_info PARAMS ((bfd *abfd, SYMR *ecoff_sym, asymbol *asym, int ext, asymbol **indirect_ptr_ptr)); static void ecoff_emit_aggregate PARAMS ((bfd *abfd, FDR *fdr, char *string, RNDXR *rndx, long isym, const char *which)); static char *ecoff_type_to_string PARAMS ((bfd *abfd, FDR *fdr, unsigned int indx)); static boolean ecoff_slurp_reloc_table PARAMS ((bfd *abfd, asection *section, asymbol **symbols)); static void ecoff_compute_section_file_positions PARAMS ((bfd *abfd)); static bfd_size_type ecoff_compute_reloc_file_positions PARAMS ((bfd *abfd)); static boolean ecoff_get_extr PARAMS ((asymbol *, EXTR *)); static void ecoff_set_index PARAMS ((asymbol *, bfd_size_type)); static unsigned int ecoff_armap_hash PARAMS ((CONST char *s, unsigned int *rehash, unsigned int size, unsigned int hlog)); /* This stuff is somewhat copied from coffcode.h. */ static asection bfd_debug_section = { "*DEBUG*" }; /* Create an ECOFF object. */ boolean _bfd_ecoff_mkobject (abfd) bfd *abfd; { abfd->tdata.ecoff_obj_data = ((struct ecoff_tdata *) bfd_zalloc (abfd, sizeof (ecoff_data_type))); if (abfd->tdata.ecoff_obj_data == NULL) { bfd_set_error (bfd_error_no_memory); return false; } return true; } /* This is a hook called by coff_real_object_p to create any backend specific information. */ PTR _bfd_ecoff_mkobject_hook (abfd, filehdr, aouthdr) bfd *abfd; PTR filehdr; PTR aouthdr; { struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr; struct internal_aouthdr *internal_a = (struct internal_aouthdr *) aouthdr; ecoff_data_type *ecoff; if (_bfd_ecoff_mkobject (abfd) == false) return NULL; ecoff = ecoff_data (abfd); ecoff->gp_size = 8; ecoff->sym_filepos = internal_f->f_symptr; if (internal_a != (struct internal_aouthdr *) NULL) { int i; ecoff->text_start = internal_a->text_start; ecoff->text_end = internal_a->text_start + internal_a->tsize; ecoff->gp = internal_a->gp_value; ecoff->gprmask = internal_a->gprmask; for (i = 0; i < 4; i++) ecoff->cprmask[i] = internal_a->cprmask[i]; ecoff->fprmask = internal_a->fprmask; if (internal_a->magic == ECOFF_AOUT_ZMAGIC) abfd->flags |= D_PAGED; } /* It turns out that no special action is required by the MIPS or Alpha ECOFF backends. They have different information in the a.out header, but we just copy it all (e.g., gprmask, cprmask and fprmask) and let the swapping routines ensure that only relevant information is written out. */ return (PTR) ecoff; } /* This is a hook needed by SCO COFF, but we have nothing to do. */ /*ARGSUSED*/ asection * _bfd_ecoff_make_section_hook (abfd, name) bfd *abfd; char *name; { return (asection *) NULL; } /* Initialize a new section. */ boolean _bfd_ecoff_new_section_hook (abfd, section) bfd *abfd; asection *section; { /* For the .pdata section, which has a special meaning on the Alpha, we set the alignment to 8. We correct this later in ecoff_compute_section_file_positions. We do this hackery because we need to know the exact unaligned size of the .pdata section in order to set the lnnoptr field correctly. */ if (strcmp (section->name, _PDATA) == 0) section->alignment_power = 3; else section->alignment_power = abfd->xvec->align_power_min; if (strcmp (section->name, _TEXT) == 0) section->flags |= SEC_CODE | SEC_LOAD | SEC_ALLOC; else if (strcmp (section->name, _DATA) == 0 || strcmp (section->name, _SDATA) == 0) section->flags |= SEC_DATA | SEC_LOAD | SEC_ALLOC; else if (strcmp (section->name, _RDATA) == 0 || strcmp (section->name, _LIT8) == 0 || strcmp (section->name, _LIT4) == 0) section->flags |= SEC_DATA | SEC_LOAD | SEC_ALLOC | SEC_READONLY; else if (strcmp (section->name, _BSS) == 0 || strcmp (section->name, _SBSS) == 0) section->flags |= SEC_ALLOC; else if (strcmp (section->name, _LIB) == 0) { /* An Irix 4 shared libary. */ section->flags |= SEC_COFF_SHARED_LIBRARY; } /* Probably any other section name is SEC_NEVER_LOAD, but I'm uncertain about .init on some systems and I don't know how shared libraries work. */ return true; } /* Determine the machine architecture and type. This is called from the generic COFF routines. It is the inverse of ecoff_get_magic, below. This could be an ECOFF backend routine, with one version for each target, but there aren't all that many ECOFF targets. */ boolean _bfd_ecoff_set_arch_mach_hook (abfd, filehdr) bfd *abfd; PTR filehdr; { struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr; enum bfd_architecture arch; unsigned long mach; switch (internal_f->f_magic) { case MIPS_MAGIC_1: case MIPS_MAGIC_LITTLE: case MIPS_MAGIC_BIG: arch = bfd_arch_mips; mach = 3000; break; case MIPS_MAGIC_LITTLE2: case MIPS_MAGIC_BIG2: /* MIPS ISA level 2: the r6000 */ arch = bfd_arch_mips; mach = 6000; break; case MIPS_MAGIC_LITTLE3: case MIPS_MAGIC_BIG3: /* MIPS ISA level 3: the r4000 */ arch = bfd_arch_mips; mach = 4000; break; case ALPHA_MAGIC: arch = bfd_arch_alpha; mach = 0; break; default: arch = bfd_arch_obscure; mach = 0; break; } return bfd_default_set_arch_mach (abfd, arch, mach); } /* Get the magic number to use based on the architecture and machine. This is the inverse of _bfd_ecoff_set_arch_mach_hook, above. */ static int ecoff_get_magic (abfd) bfd *abfd; { int big, little; switch (bfd_get_arch (abfd)) { case bfd_arch_mips: switch (bfd_get_mach (abfd)) { default: case 0: case 3000: big = MIPS_MAGIC_BIG; little = MIPS_MAGIC_LITTLE; break; case 6000: big = MIPS_MAGIC_BIG2; little = MIPS_MAGIC_LITTLE2; break; case 4000: big = MIPS_MAGIC_BIG3; little = MIPS_MAGIC_LITTLE3; break; } return abfd->xvec->byteorder_big_p ? big : little; case bfd_arch_alpha: return ALPHA_MAGIC; default: abort (); return 0; } } /* Get the section s_flags to use for a section. */ static long ecoff_sec_to_styp_flags (name, flags) const char *name; flagword flags; { long styp; styp = 0; if (strcmp (name, _TEXT) == 0) styp = STYP_TEXT; else if (strcmp (name, _DATA) == 0) styp = STYP_DATA; else if (strcmp (name, _SDATA) == 0) styp = STYP_SDATA; else if (strcmp (name, _RDATA) == 0) styp = STYP_RDATA; else if (strcmp (name, _LITA) == 0) styp = STYP_LITA; else if (strcmp (name, _LIT8) == 0) styp = STYP_LIT8; else if (strcmp (name, _LIT4) == 0) styp = STYP_LIT4; else if (strcmp (name, _BSS) == 0) styp = STYP_BSS; else if (strcmp (name, _SBSS) == 0) styp = STYP_SBSS; else if (strcmp (name, _INIT) == 0) styp = STYP_ECOFF_INIT; else if (strcmp (name, _FINI) == 0) styp = STYP_ECOFF_FINI; else if (strcmp (name, _PDATA) == 0) styp = STYP_PDATA; else if (strcmp (name, _XDATA) == 0) styp = STYP_XDATA; else if (strcmp (name, _LIB) == 0) styp = STYP_ECOFF_LIB; else if (flags & SEC_CODE) styp = STYP_TEXT; else if (flags & SEC_DATA) styp = STYP_DATA; else if (flags & SEC_READONLY) styp = STYP_RDATA; else if (flags & SEC_LOAD) styp = STYP_REG; else styp = STYP_BSS; if (flags & SEC_NEVER_LOAD) styp |= STYP_NOLOAD; return styp; } /* Get the BFD flags to use for a section. */ /*ARGSUSED*/ flagword _bfd_ecoff_styp_to_sec_flags (abfd, hdr) bfd *abfd; PTR hdr; { struct internal_scnhdr *internal_s = (struct internal_scnhdr *) hdr; long styp_flags = internal_s->s_flags; flagword sec_flags=0; if (styp_flags & STYP_NOLOAD) sec_flags |= SEC_NEVER_LOAD; /* For 386 COFF, at least, an unloadable text or data section is actually a shared library section. */ if ((styp_flags & STYP_TEXT) || (styp_flags & STYP_ECOFF_INIT) || (styp_flags & STYP_ECOFF_FINI)) { if (sec_flags & SEC_NEVER_LOAD) sec_flags |= SEC_CODE | SEC_COFF_SHARED_LIBRARY; else sec_flags |= SEC_CODE | SEC_LOAD | SEC_ALLOC; } else if ((styp_flags & STYP_DATA) || (styp_flags & STYP_RDATA) || (styp_flags & STYP_SDATA) || styp_flags == STYP_PDATA || styp_flags == STYP_XDATA) { if (sec_flags & SEC_NEVER_LOAD) sec_flags |= SEC_DATA | SEC_COFF_SHARED_LIBRARY; else sec_flags |= SEC_DATA | SEC_LOAD | SEC_ALLOC; if ((styp_flags & STYP_RDATA) || styp_flags == STYP_PDATA) sec_flags |= SEC_READONLY; } else if ((styp_flags & STYP_BSS) || (styp_flags & STYP_SBSS)) { sec_flags |= SEC_ALLOC; } else if ((styp_flags & STYP_INFO) || styp_flags == STYP_COMMENT) { sec_flags |= SEC_NEVER_LOAD; } else if ((styp_flags & STYP_LITA) || (styp_flags & STYP_LIT8) || (styp_flags & STYP_LIT4)) { sec_flags |= SEC_DATA | SEC_LOAD | SEC_ALLOC | SEC_READONLY; } else if (styp_flags & STYP_ECOFF_LIB) { sec_flags |= SEC_COFF_SHARED_LIBRARY; } else { sec_flags |= SEC_ALLOC | SEC_LOAD; } return sec_flags; } /* Routines to swap auxiliary information in and out. I am assuming that the auxiliary information format is always going to be target independent. */ /* Swap in a type information record. BIGEND says whether AUX symbols are big-endian or little-endian; this info comes from the file header record (fh-fBigendian). */ void _bfd_ecoff_swap_tir_in (bigend, ext_copy, intern) int bigend; const struct tir_ext *ext_copy; TIR *intern; { struct tir_ext ext[1]; *ext = *ext_copy; /* Make it reasonable to do in-place. */ /* now the fun stuff... */ if (bigend) { intern->fBitfield = 0 != (ext->t_bits1[0] & TIR_BITS1_FBITFIELD_BIG); intern->continued = 0 != (ext->t_bits1[0] & TIR_BITS1_CONTINUED_BIG); intern->bt = (ext->t_bits1[0] & TIR_BITS1_BT_BIG) >> TIR_BITS1_BT_SH_BIG; intern->tq4 = (ext->t_tq45[0] & TIR_BITS_TQ4_BIG) >> TIR_BITS_TQ4_SH_BIG; intern->tq5 = (ext->t_tq45[0] & TIR_BITS_TQ5_BIG) >> TIR_BITS_TQ5_SH_BIG; intern->tq0 = (ext->t_tq01[0] & TIR_BITS_TQ0_BIG) >> TIR_BITS_TQ0_SH_BIG; intern->tq1 = (ext->t_tq01[0] & TIR_BITS_TQ1_BIG) >> TIR_BITS_TQ1_SH_BIG; intern->tq2 = (ext->t_tq23[0] & TIR_BITS_TQ2_BIG) >> TIR_BITS_TQ2_SH_BIG; intern->tq3 = (ext->t_tq23[0] & TIR_BITS_TQ3_BIG) >> TIR_BITS_TQ3_SH_BIG; } else { intern->fBitfield = 0 != (ext->t_bits1[0] & TIR_BITS1_FBITFIELD_LITTLE); intern->continued = 0 != (ext->t_bits1[0] & TIR_BITS1_CONTINUED_LITTLE); intern->bt = (ext->t_bits1[0] & TIR_BITS1_BT_LITTLE) >> TIR_BITS1_BT_SH_LITTLE; intern->tq4 = (ext->t_tq45[0] & TIR_BITS_TQ4_LITTLE) >> TIR_BITS_TQ4_SH_LITTLE; intern->tq5 = (ext->t_tq45[0] & TIR_BITS_TQ5_LITTLE) >> TIR_BITS_TQ5_SH_LITTLE; intern->tq0 = (ext->t_tq01[0] & TIR_BITS_TQ0_LITTLE) >> TIR_BITS_TQ0_SH_LITTLE; intern->tq1 = (ext->t_tq01[0] & TIR_BITS_TQ1_LITTLE) >> TIR_BITS_TQ1_SH_LITTLE; intern->tq2 = (ext->t_tq23[0] & TIR_BITS_TQ2_LITTLE) >> TIR_BITS_TQ2_SH_LITTLE; intern->tq3 = (ext->t_tq23[0] & TIR_BITS_TQ3_LITTLE) >> TIR_BITS_TQ3_SH_LITTLE; } #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out a type information record. BIGEND says whether AUX symbols are big-endian or little-endian; this info comes from the file header record (fh-fBigendian). */ void _bfd_ecoff_swap_tir_out (bigend, intern_copy, ext) int bigend; const TIR *intern_copy; struct tir_ext *ext; { TIR intern[1]; *intern = *intern_copy; /* Make it reasonable to do in-place. */ /* now the fun stuff... */ if (bigend) { ext->t_bits1[0] = ((intern->fBitfield ? TIR_BITS1_FBITFIELD_BIG : 0) | (intern->continued ? TIR_BITS1_CONTINUED_BIG : 0) | ((intern->bt << TIR_BITS1_BT_SH_BIG) & TIR_BITS1_BT_BIG)); ext->t_tq45[0] = (((intern->tq4 << TIR_BITS_TQ4_SH_BIG) & TIR_BITS_TQ4_BIG) | ((intern->tq5 << TIR_BITS_TQ5_SH_BIG) & TIR_BITS_TQ5_BIG)); ext->t_tq01[0] = (((intern->tq0 << TIR_BITS_TQ0_SH_BIG) & TIR_BITS_TQ0_BIG) | ((intern->tq1 << TIR_BITS_TQ1_SH_BIG) & TIR_BITS_TQ1_BIG)); ext->t_tq23[0] = (((intern->tq2 << TIR_BITS_TQ2_SH_BIG) & TIR_BITS_TQ2_BIG) | ((intern->tq3 << TIR_BITS_TQ3_SH_BIG) & TIR_BITS_TQ3_BIG)); } else { ext->t_bits1[0] = ((intern->fBitfield ? TIR_BITS1_FBITFIELD_LITTLE : 0) | (intern->continued ? TIR_BITS1_CONTINUED_LITTLE : 0) | ((intern->bt << TIR_BITS1_BT_SH_LITTLE) & TIR_BITS1_BT_LITTLE)); ext->t_tq45[0] = (((intern->tq4 << TIR_BITS_TQ4_SH_LITTLE) & TIR_BITS_TQ4_LITTLE) | ((intern->tq5 << TIR_BITS_TQ5_SH_LITTLE) & TIR_BITS_TQ5_LITTLE)); ext->t_tq01[0] = (((intern->tq0 << TIR_BITS_TQ0_SH_LITTLE) & TIR_BITS_TQ0_LITTLE) | ((intern->tq1 << TIR_BITS_TQ1_SH_LITTLE) & TIR_BITS_TQ1_LITTLE)); ext->t_tq23[0] = (((intern->tq2 << TIR_BITS_TQ2_SH_LITTLE) & TIR_BITS_TQ2_LITTLE) | ((intern->tq3 << TIR_BITS_TQ3_SH_LITTLE) & TIR_BITS_TQ3_LITTLE)); } #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap in a relative symbol record. BIGEND says whether it is in big-endian or little-endian format.*/ void _bfd_ecoff_swap_rndx_in (bigend, ext_copy, intern) int bigend; const struct rndx_ext *ext_copy; RNDXR *intern; { struct rndx_ext ext[1]; *ext = *ext_copy; /* Make it reasonable to do in-place. */ /* now the fun stuff... */ if (bigend) { intern->rfd = (ext->r_bits[0] << RNDX_BITS0_RFD_SH_LEFT_BIG) | ((ext->r_bits[1] & RNDX_BITS1_RFD_BIG) >> RNDX_BITS1_RFD_SH_BIG); intern->index = ((ext->r_bits[1] & RNDX_BITS1_INDEX_BIG) << RNDX_BITS1_INDEX_SH_LEFT_BIG) | (ext->r_bits[2] << RNDX_BITS2_INDEX_SH_LEFT_BIG) | (ext->r_bits[3] << RNDX_BITS3_INDEX_SH_LEFT_BIG); } else { intern->rfd = (ext->r_bits[0] << RNDX_BITS0_RFD_SH_LEFT_LITTLE) | ((ext->r_bits[1] & RNDX_BITS1_RFD_LITTLE) << RNDX_BITS1_RFD_SH_LEFT_LITTLE); intern->index = ((ext->r_bits[1] & RNDX_BITS1_INDEX_LITTLE) >> RNDX_BITS1_INDEX_SH_LITTLE) | (ext->r_bits[2] << RNDX_BITS2_INDEX_SH_LEFT_LITTLE) | ((unsigned int) ext->r_bits[3] << RNDX_BITS3_INDEX_SH_LEFT_LITTLE); } #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out a relative symbol record. BIGEND says whether it is in big-endian or little-endian format.*/ void _bfd_ecoff_swap_rndx_out (bigend, intern_copy, ext) int bigend; const RNDXR *intern_copy; struct rndx_ext *ext; { RNDXR intern[1]; *intern = *intern_copy; /* Make it reasonable to do in-place. */ /* now the fun stuff... */ if (bigend) { ext->r_bits[0] = intern->rfd >> RNDX_BITS0_RFD_SH_LEFT_BIG; ext->r_bits[1] = (((intern->rfd << RNDX_BITS1_RFD_SH_BIG) & RNDX_BITS1_RFD_BIG) | ((intern->index >> RNDX_BITS1_INDEX_SH_LEFT_BIG) & RNDX_BITS1_INDEX_BIG)); ext->r_bits[2] = intern->index >> RNDX_BITS2_INDEX_SH_LEFT_BIG; ext->r_bits[3] = intern->index >> RNDX_BITS3_INDEX_SH_LEFT_BIG; } else { ext->r_bits[0] = intern->rfd >> RNDX_BITS0_RFD_SH_LEFT_LITTLE; ext->r_bits[1] = (((intern->rfd >> RNDX_BITS1_RFD_SH_LEFT_LITTLE) & RNDX_BITS1_RFD_LITTLE) | ((intern->index << RNDX_BITS1_INDEX_SH_LITTLE) & RNDX_BITS1_INDEX_LITTLE)); ext->r_bits[2] = intern->index >> RNDX_BITS2_INDEX_SH_LEFT_LITTLE; ext->r_bits[3] = intern->index >> RNDX_BITS3_INDEX_SH_LEFT_LITTLE; } #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Read in the symbolic header for an ECOFF object file. */ static boolean ecoff_slurp_symbolic_header (abfd) bfd *abfd; { const struct ecoff_backend_data * const backend = ecoff_backend (abfd); bfd_size_type external_hdr_size; PTR raw = NULL; HDRR *internal_symhdr; /* See if we've already read it in. */ if (ecoff_data (abfd)->debug_info.symbolic_header.magic == backend->debug_swap.sym_magic) return true; /* See whether there is a symbolic header. */ if (ecoff_data (abfd)->sym_filepos == 0) { bfd_get_symcount (abfd) = 0; return true; } /* At this point bfd_get_symcount (abfd) holds the number of symbols as read from the file header, but on ECOFF this is always the size of the symbolic information header. It would be cleaner to handle this when we first read the file in coffgen.c. */ external_hdr_size = backend->debug_swap.external_hdr_size; if (bfd_get_symcount (abfd) != external_hdr_size) { bfd_set_error (bfd_error_bad_value); return false; } /* Read the symbolic information header. */ raw = (PTR) malloc ((size_t) external_hdr_size); if (raw == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (abfd, ecoff_data (abfd)->sym_filepos, SEEK_SET) == -1 || (bfd_read (raw, external_hdr_size, 1, abfd) != external_hdr_size)) goto error_return; internal_symhdr = &ecoff_data (abfd)->debug_info.symbolic_header; (*backend->debug_swap.swap_hdr_in) (abfd, raw, internal_symhdr); if (internal_symhdr->magic != backend->debug_swap.sym_magic) { bfd_set_error (bfd_error_bad_value); goto error_return; } /* Now we can get the correct number of symbols. */ bfd_get_symcount (abfd) = (internal_symhdr->isymMax + internal_symhdr->iextMax); if (raw != NULL) free (raw); return true; error_return: if (raw != NULL) free (raw); return false; } /* Read in and swap the important symbolic information for an ECOFF object file. This is called by gdb via the read_debug_info entry point in the backend structure. */ /*ARGSUSED*/ boolean _bfd_ecoff_slurp_symbolic_info (abfd, ignore, debug) bfd *abfd; asection *ignore; struct ecoff_debug_info *debug; { const struct ecoff_backend_data * const backend = ecoff_backend (abfd); HDRR *internal_symhdr; bfd_size_type raw_base; bfd_size_type raw_size; PTR raw; bfd_size_type external_fdr_size; char *fraw_src; char *fraw_end; struct fdr *fdr_ptr; bfd_size_type raw_end; bfd_size_type cb_end; BFD_ASSERT (debug == &ecoff_data (abfd)->debug_info); /* Check whether we've already gotten it, and whether there's any to get. */ if (ecoff_data (abfd)->raw_syments != (PTR) NULL) return true; if (ecoff_data (abfd)->sym_filepos == 0) { bfd_get_symcount (abfd) = 0; return true; } if (! ecoff_slurp_symbolic_header (abfd)) return false; internal_symhdr = &debug->symbolic_header; /* Read all the symbolic information at once. */ raw_base = (ecoff_data (abfd)->sym_filepos + backend->debug_swap.external_hdr_size); /* Alpha ecoff makes the determination of raw_size difficult. It has an undocumented debug data section between the symhdr and the first documented section. And the ordering of the sections varies between statically and dynamically linked executables. If bfd supports SEEK_END someday, this code could be simplified. */ raw_end = 0; #define UPDATE_RAW_END(start, count, size) \ cb_end = internal_symhdr->start + internal_symhdr->count * (size); \ if (cb_end > raw_end) \ raw_end = cb_end UPDATE_RAW_END (cbLineOffset, cbLine, sizeof (unsigned char)); UPDATE_RAW_END (cbDnOffset, idnMax, backend->debug_swap.external_dnr_size); UPDATE_RAW_END (cbPdOffset, ipdMax, backend->debug_swap.external_pdr_size); UPDATE_RAW_END (cbSymOffset, isymMax, backend->debug_swap.external_sym_size); UPDATE_RAW_END (cbOptOffset, ioptMax, backend->debug_swap.external_opt_size); UPDATE_RAW_END (cbAuxOffset, iauxMax, sizeof (union aux_ext)); UPDATE_RAW_END (cbSsOffset, issMax, sizeof (char)); UPDATE_RAW_END (cbSsExtOffset, issExtMax, sizeof (char)); UPDATE_RAW_END (cbFdOffset, ifdMax, backend->debug_swap.external_fdr_size); UPDATE_RAW_END (cbRfdOffset, crfd, backend->debug_swap.external_rfd_size); UPDATE_RAW_END (cbExtOffset, iextMax, backend->debug_swap.external_ext_size); #undef UPDATE_RAW_END raw_size = raw_end - raw_base; if (raw_size == 0) { ecoff_data (abfd)->sym_filepos = 0; return true; } raw = (PTR) bfd_alloc (abfd, raw_size); if (raw == NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_seek (abfd, (ecoff_data (abfd)->sym_filepos + backend->debug_swap.external_hdr_size), SEEK_SET) != 0 || bfd_read (raw, raw_size, 1, abfd) != raw_size) { bfd_release (abfd, raw); return false; } ecoff_data (abfd)->raw_syments = raw; /* Get pointers for the numeric offsets in the HDRR structure. */ #define FIX(off1, off2, type) \ if (internal_symhdr->off1 == 0) \ debug->off2 = (type) NULL; \ else \ debug->off2 = (type) ((char *) raw \ + internal_symhdr->off1 \ - raw_base) FIX (cbLineOffset, line, unsigned char *); FIX (cbDnOffset, external_dnr, PTR); FIX (cbPdOffset, external_pdr, PTR); FIX (cbSymOffset, external_sym, PTR); FIX (cbOptOffset, external_opt, PTR); FIX (cbAuxOffset, external_aux, union aux_ext *); FIX (cbSsOffset, ss, char *); FIX (cbSsExtOffset, ssext, char *); FIX (cbFdOffset, external_fdr, PTR); FIX (cbRfdOffset, external_rfd, PTR); FIX (cbExtOffset, external_ext, PTR); #undef FIX /* I don't want to always swap all the data, because it will just waste time and most programs will never look at it. The only time the linker needs most of the debugging information swapped is when linking big-endian and little-endian MIPS object files together, which is not a common occurrence. We need to look at the fdr to deal with a lot of information in the symbols, so we swap them here. */ debug->fdr = (struct fdr *) bfd_alloc (abfd, (internal_symhdr->ifdMax * sizeof (struct fdr))); if (debug->fdr == NULL) { bfd_set_error (bfd_error_no_memory); return false; } external_fdr_size = backend->debug_swap.external_fdr_size; fdr_ptr = debug->fdr; fraw_src = (char *) debug->external_fdr; fraw_end = fraw_src + internal_symhdr->ifdMax * external_fdr_size; for (; fraw_src < fraw_end; fraw_src += external_fdr_size, fdr_ptr++) (*backend->debug_swap.swap_fdr_in) (abfd, (PTR) fraw_src, fdr_ptr); return true; } /* ECOFF symbol table routines. The ECOFF symbol table is described in gcc/mips-tfile.c. */ /* ECOFF uses two common sections. One is the usual one, and the other is for small objects. All the small objects are kept together, and then referenced via the gp pointer, which yields faster assembler code. This is what we use for the small common section. */ static asection ecoff_scom_section; static asymbol ecoff_scom_symbol; static asymbol *ecoff_scom_symbol_ptr; /* Create an empty symbol. */ asymbol * _bfd_ecoff_make_empty_symbol (abfd) bfd *abfd; { ecoff_symbol_type *new; new = (ecoff_symbol_type *) bfd_alloc (abfd, sizeof (ecoff_symbol_type)); if (new == (ecoff_symbol_type *) NULL) { bfd_set_error (bfd_error_no_memory); return (asymbol *) NULL; } memset ((PTR) new, 0, sizeof *new); new->symbol.section = (asection *) NULL; new->fdr = (FDR *) NULL; new->local = false; new->native = NULL; new->symbol.the_bfd = abfd; return &new->symbol; } /* Set the BFD flags and section for an ECOFF symbol. */ static boolean ecoff_set_symbol_info (abfd, ecoff_sym, asym, ext, indirect_ptr_ptr) bfd *abfd; SYMR *ecoff_sym; asymbol *asym; int ext; asymbol **indirect_ptr_ptr; { asym->the_bfd = abfd; asym->value = ecoff_sym->value; asym->section = &bfd_debug_section; asym->udata = NULL; /* An indirect symbol requires two consecutive stabs symbols. */ if (*indirect_ptr_ptr != (asymbol *) NULL) { BFD_ASSERT (ECOFF_IS_STAB (ecoff_sym)); /* @@ Stuffing pointers into integers is a no-no. We can usually get away with it if the integer is large enough though. */ if (sizeof (asym) > sizeof (bfd_vma)) abort (); (*indirect_ptr_ptr)->value = (bfd_vma) asym; asym->flags = BSF_DEBUGGING; asym->section = bfd_und_section_ptr; *indirect_ptr_ptr = NULL; return true; } if (ECOFF_IS_STAB (ecoff_sym) && (ECOFF_UNMARK_STAB (ecoff_sym->index) | N_EXT) == (N_INDR | N_EXT)) { asym->flags = BSF_DEBUGGING | BSF_INDIRECT; asym->section = bfd_ind_section_ptr; /* Pass this symbol on to the next call to this function. */ *indirect_ptr_ptr = asym; return true; } /* Most symbol types are just for debugging. */ switch (ecoff_sym->st) { case stGlobal: case stStatic: case stLabel: case stProc: case stStaticProc: break; case stNil: if (ECOFF_IS_STAB (ecoff_sym)) { asym->flags = BSF_DEBUGGING; return true; } break; default: asym->flags = BSF_DEBUGGING; return true; } if (ext) asym->flags = BSF_EXPORT | BSF_GLOBAL; else asym->flags = BSF_LOCAL; switch (ecoff_sym->sc) { case scNil: /* Used for compiler generated labels. Leave them in the debugging section, and mark them as local. If BSF_DEBUGGING is set, then nm does not display them for some reason. If no flags are set then the linker whines about them. */ asym->flags = BSF_LOCAL; break; case scText: asym->section = bfd_make_section_old_way (abfd, ".text"); asym->value -= asym->section->vma; break; case scData: asym->section = bfd_make_section_old_way (abfd, ".data"); asym->value -= asym->section->vma; break; case scBss: asym->section = bfd_make_section_old_way (abfd, ".bss"); asym->value -= asym->section->vma; break; case scRegister: asym->flags = BSF_DEBUGGING; break; case scAbs: asym->section = bfd_abs_section_ptr; break; case scUndefined: asym->section = bfd_und_section_ptr; asym->flags = 0; asym->value = 0; break; case scCdbLocal: case scBits: case scCdbSystem: case scRegImage: case scInfo: case scUserStruct: asym->flags = BSF_DEBUGGING; break; case scSData: asym->section = bfd_make_section_old_way (abfd, ".sdata"); asym->value -= asym->section->vma; break; case scSBss: asym->section = bfd_make_section_old_way (abfd, ".sbss"); asym->value -= asym->section->vma; break; case scRData: asym->section = bfd_make_section_old_way (abfd, ".rdata"); asym->value -= asym->section->vma; break; case scVar: asym->flags = BSF_DEBUGGING; break; case scCommon: if (asym->value > ecoff_data (abfd)->gp_size) { asym->section = bfd_com_section_ptr; asym->flags = 0; break; } /* Fall through. */ case scSCommon: if (ecoff_scom_section.name == NULL) { /* Initialize the small common section. */ ecoff_scom_section.name = SCOMMON; ecoff_scom_section.flags = SEC_IS_COMMON; ecoff_scom_section.output_section = &ecoff_scom_section; ecoff_scom_section.symbol = &ecoff_scom_symbol; ecoff_scom_section.symbol_ptr_ptr = &ecoff_scom_symbol_ptr; ecoff_scom_symbol.name = SCOMMON; ecoff_scom_symbol.flags = BSF_SECTION_SYM; ecoff_scom_symbol.section = &ecoff_scom_section; ecoff_scom_symbol_ptr = &ecoff_scom_symbol; } asym->section = &ecoff_scom_section; asym->flags = 0; break; case scVarRegister: case scVariant: asym->flags = BSF_DEBUGGING; break; case scSUndefined: asym->section = bfd_und_section_ptr; asym->flags = 0; asym->value = 0; break; case scInit: asym->section = bfd_make_section_old_way (abfd, ".init"); asym->value -= asym->section->vma; break; case scBasedVar: case scXData: case scPData: asym->flags = BSF_DEBUGGING; break; case scFini: asym->section = bfd_make_section_old_way (abfd, ".fini"); asym->value -= asym->section->vma; break; default: break; } /* Look for special constructors symbols and make relocation entries in a special construction section. These are produced by the -fgnu-linker argument to g++. */ if (ECOFF_IS_STAB (ecoff_sym)) { switch (ECOFF_UNMARK_STAB (ecoff_sym->index)) { default: break; case N_SETA: case N_SETT: case N_SETD: case N_SETB: { const char *name; asection *section; arelent_chain *reloc_chain; unsigned int bitsize; /* Get a section with the same name as the symbol (usually __CTOR_LIST__ or __DTOR_LIST__). FIXME: gcc uses the name ___CTOR_LIST (three underscores). We need __CTOR_LIST (two underscores), since ECOFF doesn't use a leading underscore. This should be handled by gcc, but instead we do it here. Actually, this should all be done differently anyhow. */ name = bfd_asymbol_name (asym); if (name[0] == '_' && name[1] == '_' && name[2] == '_') { ++name; asym->name = name; } section = bfd_get_section_by_name (abfd, name); if (section == (asection *) NULL) { char *copy; copy = (char *) bfd_alloc (abfd, strlen (name) + 1); if (!copy) { bfd_set_error (bfd_error_no_memory); return false; } strcpy (copy, name); section = bfd_make_section (abfd, copy); } /* Build a reloc pointing to this constructor. */ reloc_chain = (arelent_chain *) bfd_alloc (abfd, sizeof (arelent_chain)); if (!reloc_chain) { bfd_set_error (bfd_error_no_memory); return false; } reloc_chain->relent.sym_ptr_ptr = bfd_get_section (asym)->symbol_ptr_ptr; reloc_chain->relent.address = section->_raw_size; reloc_chain->relent.addend = asym->value; reloc_chain->relent.howto = ecoff_backend (abfd)->constructor_reloc; /* Set up the constructor section to hold the reloc. */ section->flags = SEC_CONSTRUCTOR; ++section->reloc_count; /* Constructor sections must be rounded to a boundary based on the bitsize. These are not real sections-- they are handled specially by the linker--so the ECOFF 16 byte alignment restriction does not apply. */ bitsize = ecoff_backend (abfd)->constructor_bitsize; section->alignment_power = 1; while ((1 << section->alignment_power) < bitsize / 8) ++section->alignment_power; reloc_chain->next = section->constructor_chain; section->constructor_chain = reloc_chain; section->_raw_size += bitsize / 8; /* Mark the symbol as a constructor. */ asym->flags |= BSF_CONSTRUCTOR; } break; } } return true; } /* Read an ECOFF symbol table. */ boolean _bfd_ecoff_slurp_symbol_table (abfd) bfd *abfd; { const struct ecoff_backend_data * const backend = ecoff_backend (abfd); const bfd_size_type external_ext_size = backend->debug_swap.external_ext_size; const bfd_size_type external_sym_size = backend->debug_swap.external_sym_size; void (* const swap_ext_in) PARAMS ((bfd *, PTR, EXTR *)) = backend->debug_swap.swap_ext_in; void (* const swap_sym_in) PARAMS ((bfd *, PTR, SYMR *)) = backend->debug_swap.swap_sym_in; bfd_size_type internal_size; ecoff_symbol_type *internal; ecoff_symbol_type *internal_ptr; asymbol *indirect_ptr; char *eraw_src; char *eraw_end; FDR *fdr_ptr; FDR *fdr_end; /* If we've already read in the symbol table, do nothing. */ if (ecoff_data (abfd)->canonical_symbols != NULL) return true; /* Get the symbolic information. */ if (! _bfd_ecoff_slurp_symbolic_info (abfd, (asection *) NULL, &ecoff_data (abfd)->debug_info)) return false; if (bfd_get_symcount (abfd) == 0) return true; internal_size = bfd_get_symcount (abfd) * sizeof (ecoff_symbol_type); internal = (ecoff_symbol_type *) bfd_alloc (abfd, internal_size); if (internal == NULL) { bfd_set_error (bfd_error_no_memory); return false; } internal_ptr = internal; indirect_ptr = NULL; eraw_src = (char *) ecoff_data (abfd)->debug_info.external_ext; eraw_end = (eraw_src + (ecoff_data (abfd)->debug_info.symbolic_header.iextMax * external_ext_size)); for (; eraw_src < eraw_end; eraw_src += external_ext_size, internal_ptr++) { EXTR internal_esym; (*swap_ext_in) (abfd, (PTR) eraw_src, &internal_esym); internal_ptr->symbol.name = (ecoff_data (abfd)->debug_info.ssext + internal_esym.asym.iss); if (!ecoff_set_symbol_info (abfd, &internal_esym.asym, &internal_ptr->symbol, 1, &indirect_ptr)) return false; /* The alpha uses a negative ifd field for section symbols. */ if (internal_esym.ifd >= 0) internal_ptr->fdr = (ecoff_data (abfd)->debug_info.fdr + internal_esym.ifd); else internal_ptr->fdr = NULL; internal_ptr->local = false; internal_ptr->native = (PTR) eraw_src; } BFD_ASSERT (indirect_ptr == (asymbol *) NULL); /* The local symbols must be accessed via the fdr's, because the string and aux indices are relative to the fdr information. */ fdr_ptr = ecoff_data (abfd)->debug_info.fdr; fdr_end = fdr_ptr + ecoff_data (abfd)->debug_info.symbolic_header.ifdMax; for (; fdr_ptr < fdr_end; fdr_ptr++) { char *lraw_src; char *lraw_end; lraw_src = ((char *) ecoff_data (abfd)->debug_info.external_sym + fdr_ptr->isymBase * external_sym_size); lraw_end = lraw_src + fdr_ptr->csym * external_sym_size; for (; lraw_src < lraw_end; lraw_src += external_sym_size, internal_ptr++) { SYMR internal_sym; (*swap_sym_in) (abfd, (PTR) lraw_src, &internal_sym); internal_ptr->symbol.name = (ecoff_data (abfd)->debug_info.ss + fdr_ptr->issBase + internal_sym.iss); if (!ecoff_set_symbol_info (abfd, &internal_sym, &internal_ptr->symbol, 0, &indirect_ptr)) return false; internal_ptr->fdr = fdr_ptr; internal_ptr->local = true; internal_ptr->native = (PTR) lraw_src; } } BFD_ASSERT (indirect_ptr == (asymbol *) NULL); ecoff_data (abfd)->canonical_symbols = internal; return true; } /* Return the amount of space needed for the canonical symbols. */ long _bfd_ecoff_get_symtab_upper_bound (abfd) bfd *abfd; { if (! _bfd_ecoff_slurp_symbolic_info (abfd, (asection *) NULL, &ecoff_data (abfd)->debug_info)) return -1; if (bfd_get_symcount (abfd) == 0) return 0; return (bfd_get_symcount (abfd) + 1) * (sizeof (ecoff_symbol_type *)); } /* Get the canonical symbols. */ long _bfd_ecoff_get_symtab (abfd, alocation) bfd *abfd; asymbol **alocation; { unsigned int counter = 0; ecoff_symbol_type *symbase; ecoff_symbol_type **location = (ecoff_symbol_type **) alocation; if (_bfd_ecoff_slurp_symbol_table (abfd) == false) return -1; if (bfd_get_symcount (abfd) == 0) return 0; symbase = ecoff_data (abfd)->canonical_symbols; while (counter < bfd_get_symcount (abfd)) { *(location++) = symbase++; counter++; } *location++ = (ecoff_symbol_type *) NULL; return bfd_get_symcount (abfd); } /* Turn ECOFF type information into a printable string. ecoff_emit_aggregate and ecoff_type_to_string are from gcc/mips-tdump.c, with swapping added and used_ptr removed. */ /* Write aggregate information to a string. */ static void ecoff_emit_aggregate (abfd, fdr, string, rndx, isym, which) bfd *abfd; FDR *fdr; char *string; RNDXR *rndx; long isym; const char *which; { const struct ecoff_debug_swap * const debug_swap = &ecoff_backend (abfd)->debug_swap; struct ecoff_debug_info * const debug_info = &ecoff_data (abfd)->debug_info; unsigned int ifd = rndx->rfd; unsigned int indx = rndx->index; const char *name; if (ifd == 0xfff) ifd = isym; /* An ifd of -1 is an opaque type. An escaped index of 0 is a struct return type of a procedure compiled without -g. */ if (ifd == 0xffffffff || (rndx->rfd == 0xfff && indx == 0)) name = ""; else if (indx == indexNil) name = ""; else { SYMR sym; if (debug_info->external_rfd == NULL) fdr = debug_info->fdr + ifd; else { RFDT rfd; (*debug_swap->swap_rfd_in) (abfd, ((char *) debug_info->external_rfd + ((fdr->rfdBase + ifd) * debug_swap->external_rfd_size)), &rfd); fdr = debug_info->fdr + rfd; } indx += fdr->isymBase; (*debug_swap->swap_sym_in) (abfd, ((char *) debug_info->external_sym + indx * debug_swap->external_sym_size), &sym); name = debug_info->ss + fdr->issBase + sym.iss; } sprintf (string, "%s %s { ifd = %u, index = %lu }", which, name, ifd, ((long) indx + debug_info->symbolic_header.iextMax)); } /* Convert the type information to string format. */ static char * ecoff_type_to_string (abfd, fdr, indx) bfd *abfd; FDR *fdr; unsigned int indx; { union aux_ext *aux_ptr; int bigendian; AUXU u; struct qual { unsigned int type; int low_bound; int high_bound; int stride; } qualifiers[7]; unsigned int basic_type; int i; static char buffer1[1024]; static char buffer2[1024]; char *p1 = buffer1; char *p2 = buffer2; RNDXR rndx; aux_ptr = ecoff_data (abfd)->debug_info.external_aux + fdr->iauxBase; bigendian = fdr->fBigendian; for (i = 0; i < 7; i++) { qualifiers[i].low_bound = 0; qualifiers[i].high_bound = 0; qualifiers[i].stride = 0; } if (AUX_GET_ISYM (bigendian, &aux_ptr[indx]) == -1) return "-1 (no type)"; _bfd_ecoff_swap_tir_in (bigendian, &aux_ptr[indx++].a_ti, &u.ti); basic_type = u.ti.bt; qualifiers[0].type = u.ti.tq0; qualifiers[1].type = u.ti.tq1; qualifiers[2].type = u.ti.tq2; qualifiers[3].type = u.ti.tq3; qualifiers[4].type = u.ti.tq4; qualifiers[5].type = u.ti.tq5; qualifiers[6].type = tqNil; /* * Go get the basic type. */ switch (basic_type) { case btNil: /* undefined */ strcpy (p1, "nil"); break; case btAdr: /* address - integer same size as pointer */ strcpy (p1, "address"); break; case btChar: /* character */ strcpy (p1, "char"); break; case btUChar: /* unsigned character */ strcpy (p1, "unsigned char"); break; case btShort: /* short */ strcpy (p1, "short"); break; case btUShort: /* unsigned short */ strcpy (p1, "unsigned short"); break; case btInt: /* int */ strcpy (p1, "int"); break; case btUInt: /* unsigned int */ strcpy (p1, "unsigned int"); break; case btLong: /* long */ strcpy (p1, "long"); break; case btULong: /* unsigned long */ strcpy (p1, "unsigned long"); break; case btFloat: /* float (real) */ strcpy (p1, "float"); break; case btDouble: /* Double (real) */ strcpy (p1, "double"); break; /* Structures add 1-2 aux words: 1st word is [ST_RFDESCAPE, offset] pointer to struct def; 2nd word is file index if 1st word rfd is ST_RFDESCAPE. */ case btStruct: /* Structure (Record) */ _bfd_ecoff_swap_rndx_in (bigendian, &aux_ptr[indx].a_rndx, &rndx); ecoff_emit_aggregate (abfd, fdr, p1, &rndx, (long) AUX_GET_ISYM (bigendian, &aux_ptr[indx+1]), "struct"); indx++; /* skip aux words */ break; /* Unions add 1-2 aux words: 1st word is [ST_RFDESCAPE, offset] pointer to union def; 2nd word is file index if 1st word rfd is ST_RFDESCAPE. */ case btUnion: /* Union */ _bfd_ecoff_swap_rndx_in (bigendian, &aux_ptr[indx].a_rndx, &rndx); ecoff_emit_aggregate (abfd, fdr, p1, &rndx, (long) AUX_GET_ISYM (bigendian, &aux_ptr[indx+1]), "union"); indx++; /* skip aux words */ break; /* Enumerations add 1-2 aux words: 1st word is [ST_RFDESCAPE, offset] pointer to enum def; 2nd word is file index if 1st word rfd is ST_RFDESCAPE. */ case btEnum: /* Enumeration */ _bfd_ecoff_swap_rndx_in (bigendian, &aux_ptr[indx].a_rndx, &rndx); ecoff_emit_aggregate (abfd, fdr, p1, &rndx, (long) AUX_GET_ISYM (bigendian, &aux_ptr[indx+1]), "enum"); indx++; /* skip aux words */ break; case btTypedef: /* defined via a typedef, isymRef points */ strcpy (p1, "typedef"); break; case btRange: /* subrange of int */ strcpy (p1, "subrange"); break; case btSet: /* pascal sets */ strcpy (p1, "set"); break; case btComplex: /* fortran complex */ strcpy (p1, "complex"); break; case btDComplex: /* fortran double complex */ strcpy (p1, "double complex"); break; case btIndirect: /* forward or unnamed typedef */ strcpy (p1, "forward/unamed typedef"); break; case btFixedDec: /* Fixed Decimal */ strcpy (p1, "fixed decimal"); break; case btFloatDec: /* Float Decimal */ strcpy (p1, "float decimal"); break; case btString: /* Varying Length Character String */ strcpy (p1, "string"); break; case btBit: /* Aligned Bit String */ strcpy (p1, "bit"); break; case btPicture: /* Picture */ strcpy (p1, "picture"); break; case btVoid: /* Void */ strcpy (p1, "void"); break; default: sprintf (p1, "Unknown basic type %d", (int) basic_type); break; } p1 += strlen (buffer1); /* * If this is a bitfield, get the bitsize. */ if (u.ti.fBitfield) { int bitsize; bitsize = AUX_GET_WIDTH (bigendian, &aux_ptr[indx++]); sprintf (p1, " : %d", bitsize); p1 += strlen (buffer1); } /* * Deal with any qualifiers. */ if (qualifiers[0].type != tqNil) { /* * Snarf up any array bounds in the correct order. Arrays * store 5 successive words in the aux. table: * word 0 RNDXR to type of the bounds (ie, int) * word 1 Current file descriptor index * word 2 low bound * word 3 high bound (or -1 if []) * word 4 stride size in bits */ for (i = 0; i < 7; i++) { if (qualifiers[i].type == tqArray) { qualifiers[i].low_bound = AUX_GET_DNLOW (bigendian, &aux_ptr[indx+2]); qualifiers[i].high_bound = AUX_GET_DNHIGH (bigendian, &aux_ptr[indx+3]); qualifiers[i].stride = AUX_GET_WIDTH (bigendian, &aux_ptr[indx+4]); indx += 5; } } /* * Now print out the qualifiers. */ for (i = 0; i < 6; i++) { switch (qualifiers[i].type) { case tqNil: case tqMax: break; case tqPtr: strcpy (p2, "ptr to "); p2 += sizeof ("ptr to ")-1; break; case tqVol: strcpy (p2, "volatile "); p2 += sizeof ("volatile ")-1; break; case tqFar: strcpy (p2, "far "); p2 += sizeof ("far ")-1; break; case tqProc: strcpy (p2, "func. ret. "); p2 += sizeof ("func. ret. "); break; case tqArray: { int first_array = i; int j; /* Print array bounds reversed (ie, in the order the C programmer writes them). C is such a fun language.... */ while (i < 5 && qualifiers[i+1].type == tqArray) i++; for (j = i; j >= first_array; j--) { strcpy (p2, "array ["); p2 += sizeof ("array [")-1; if (qualifiers[j].low_bound != 0) sprintf (p2, "%ld:%ld {%ld bits}", (long) qualifiers[j].low_bound, (long) qualifiers[j].high_bound, (long) qualifiers[j].stride); else if (qualifiers[j].high_bound != -1) sprintf (p2, "%ld {%ld bits}", (long) (qualifiers[j].high_bound + 1), (long) (qualifiers[j].stride)); else sprintf (p2, " {%ld bits}", (long) (qualifiers[j].stride)); p2 += strlen (p2); strcpy (p2, "] of "); p2 += sizeof ("] of ")-1; } } break; } } } strcpy (p2, buffer1); return buffer2; } /* Return information about ECOFF symbol SYMBOL in RET. */ /*ARGSUSED*/ void _bfd_ecoff_get_symbol_info (abfd, symbol, ret) bfd *abfd; /* Ignored. */ asymbol *symbol; symbol_info *ret; { bfd_symbol_info (symbol, ret); } /* Print information about an ECOFF symbol. */ void _bfd_ecoff_print_symbol (abfd, filep, symbol, how) bfd *abfd; PTR filep; asymbol *symbol; bfd_print_symbol_type how; { const struct ecoff_debug_swap * const debug_swap = &ecoff_backend (abfd)->debug_swap; FILE *file = (FILE *)filep; switch (how) { case bfd_print_symbol_name: fprintf (file, "%s", symbol->name); break; case bfd_print_symbol_more: if (ecoffsymbol (symbol)->local) { SYMR ecoff_sym; (*debug_swap->swap_sym_in) (abfd, ecoffsymbol (symbol)->native, &ecoff_sym); fprintf (file, "ecoff local "); fprintf_vma (file, (bfd_vma) ecoff_sym.value); fprintf (file, " %x %x", (unsigned) ecoff_sym.st, (unsigned) ecoff_sym.sc); } else { EXTR ecoff_ext; (*debug_swap->swap_ext_in) (abfd, ecoffsymbol (symbol)->native, &ecoff_ext); fprintf (file, "ecoff extern "); fprintf_vma (file, (bfd_vma) ecoff_ext.asym.value); fprintf (file, " %x %x", (unsigned) ecoff_ext.asym.st, (unsigned) ecoff_ext.asym.sc); } break; case bfd_print_symbol_all: /* Print out the symbols in a reasonable way */ { char type; int pos; EXTR ecoff_ext; char jmptbl; char cobol_main; char weakext; if (ecoffsymbol (symbol)->local) { (*debug_swap->swap_sym_in) (abfd, ecoffsymbol (symbol)->native, &ecoff_ext.asym); type = 'l'; pos = ((((char *) ecoffsymbol (symbol)->native - (char *) ecoff_data (abfd)->debug_info.external_sym) / debug_swap->external_sym_size) + ecoff_data (abfd)->debug_info.symbolic_header.iextMax); jmptbl = ' '; cobol_main = ' '; weakext = ' '; } else { (*debug_swap->swap_ext_in) (abfd, ecoffsymbol (symbol)->native, &ecoff_ext); type = 'e'; pos = (((char *) ecoffsymbol (symbol)->native - (char *) ecoff_data (abfd)->debug_info.external_ext) / debug_swap->external_ext_size); jmptbl = ecoff_ext.jmptbl ? 'j' : ' '; cobol_main = ecoff_ext.cobol_main ? 'c' : ' '; weakext = ecoff_ext.weakext ? 'w' : ' '; } fprintf (file, "[%3d] %c ", pos, type); fprintf_vma (file, (bfd_vma) ecoff_ext.asym.value); fprintf (file, " st %x sc %x indx %x %c%c%c %s", (unsigned) ecoff_ext.asym.st, (unsigned) ecoff_ext.asym.sc, (unsigned) ecoff_ext.asym.index, jmptbl, cobol_main, weakext, symbol->name); if (ecoffsymbol (symbol)->fdr != NULL && ecoff_ext.asym.index != indexNil) { FDR *fdr; unsigned int indx; int bigendian; bfd_size_type sym_base; union aux_ext *aux_base; fdr = ecoffsymbol (symbol)->fdr; indx = ecoff_ext.asym.index; /* sym_base is used to map the fdr relative indices which appear in the file to the position number which we are using. */ sym_base = fdr->isymBase; if (ecoffsymbol (symbol)->local) sym_base += ecoff_data (abfd)->debug_info.symbolic_header.iextMax; /* aux_base is the start of the aux entries for this file; asym.index is an offset from this. */ aux_base = (ecoff_data (abfd)->debug_info.external_aux + fdr->iauxBase); /* The aux entries are stored in host byte order; the order is indicated by a bit in the fdr. */ bigendian = fdr->fBigendian; /* This switch is basically from gcc/mips-tdump.c */ switch (ecoff_ext.asym.st) { case stNil: case stLabel: break; case stFile: case stBlock: fprintf (file, "\n End+1 symbol: %ld", (long) (indx + sym_base)); break; case stEnd: if (ecoff_ext.asym.sc == scText || ecoff_ext.asym.sc == scInfo) fprintf (file, "\n First symbol: %ld", (long) (indx + sym_base)); else fprintf (file, "\n First symbol: %ld", ((long) (AUX_GET_ISYM (bigendian, &aux_base[ecoff_ext.asym.index]) + sym_base))); break; case stProc: case stStaticProc: if (ECOFF_IS_STAB (&ecoff_ext.asym)) ; else if (ecoffsymbol (symbol)->local) fprintf (file, "\n End+1 symbol: %-7ld Type: %s", ((long) (AUX_GET_ISYM (bigendian, &aux_base[ecoff_ext.asym.index]) + sym_base)), ecoff_type_to_string (abfd, fdr, indx + 1)); else fprintf (file, "\n Local symbol: %ld", ((long) indx + (long) sym_base + (ecoff_data (abfd) ->debug_info.symbolic_header.iextMax))); break; case stStruct: fprintf (file, "\n struct; End+1 symbol: %ld", (long) (indx + sym_base)); break; case stUnion: fprintf (file, "\n union; End+1 symbol: %ld", (long) (indx + sym_base)); break; case stEnum: fprintf (file, "\n enum; End+1 symbol: %ld", (long) (indx + sym_base)); break; default: if (! ECOFF_IS_STAB (&ecoff_ext.asym)) fprintf (file, "\n Type: %s", ecoff_type_to_string (abfd, fdr, indx)); break; } } } break; } } /* Read in the relocs for a section. */ static boolean ecoff_slurp_reloc_table (abfd, section, symbols) bfd *abfd; asection *section; asymbol **symbols; { const struct ecoff_backend_data * const backend = ecoff_backend (abfd); arelent *internal_relocs; bfd_size_type external_reloc_size; bfd_size_type external_relocs_size; char *external_relocs; arelent *rptr; unsigned int i; if (section->relocation != (arelent *) NULL || section->reloc_count == 0 || (section->flags & SEC_CONSTRUCTOR) != 0) return true; if (_bfd_ecoff_slurp_symbol_table (abfd) == false) return false; internal_relocs = (arelent *) bfd_alloc (abfd, (sizeof (arelent) * section->reloc_count)); external_reloc_size = backend->external_reloc_size; external_relocs_size = external_reloc_size * section->reloc_count; external_relocs = (char *) bfd_alloc (abfd, external_relocs_size); if (internal_relocs == (arelent *) NULL || external_relocs == (char *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_seek (abfd, section->rel_filepos, SEEK_SET) != 0) return false; if (bfd_read (external_relocs, 1, external_relocs_size, abfd) != external_relocs_size) return false; for (i = 0, rptr = internal_relocs; i < section->reloc_count; i++, rptr++) { struct internal_reloc intern; (*backend->swap_reloc_in) (abfd, external_relocs + i * external_reloc_size, &intern); if (intern.r_extern) { /* r_symndx is an index into the external symbols. */ BFD_ASSERT (intern.r_symndx >= 0 && (intern.r_symndx < (ecoff_data (abfd) ->debug_info.symbolic_header.iextMax))); rptr->sym_ptr_ptr = symbols + intern.r_symndx; rptr->addend = 0; } else if (intern.r_symndx == RELOC_SECTION_NONE || intern.r_symndx == RELOC_SECTION_ABS) { rptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; rptr->addend = 0; } else { CONST char *sec_name; asection *sec; /* r_symndx is a section key. */ switch (intern.r_symndx) { case RELOC_SECTION_TEXT: sec_name = ".text"; break; case RELOC_SECTION_RDATA: sec_name = ".rdata"; break; case RELOC_SECTION_DATA: sec_name = ".data"; break; case RELOC_SECTION_SDATA: sec_name = ".sdata"; break; case RELOC_SECTION_SBSS: sec_name = ".sbss"; break; case RELOC_SECTION_BSS: sec_name = ".bss"; break; case RELOC_SECTION_INIT: sec_name = ".init"; break; case RELOC_SECTION_LIT8: sec_name = ".lit8"; break; case RELOC_SECTION_LIT4: sec_name = ".lit4"; break; case RELOC_SECTION_XDATA: sec_name = ".xdata"; break; case RELOC_SECTION_PDATA: sec_name = ".pdata"; break; case RELOC_SECTION_FINI: sec_name = ".fini"; break; case RELOC_SECTION_LITA: sec_name = ".lita"; break; default: abort (); } sec = bfd_get_section_by_name (abfd, sec_name); if (sec == (asection *) NULL) abort (); rptr->sym_ptr_ptr = sec->symbol_ptr_ptr; rptr->addend = - bfd_get_section_vma (abfd, sec); } rptr->address = intern.r_vaddr - bfd_get_section_vma (abfd, section); /* Let the backend select the howto field and do any other required processing. */ (*backend->adjust_reloc_in) (abfd, &intern, rptr); } bfd_release (abfd, external_relocs); section->relocation = internal_relocs; return true; } /* Get a canonical list of relocs. */ long _bfd_ecoff_canonicalize_reloc (abfd, section, relptr, symbols) bfd *abfd; asection *section; arelent **relptr; asymbol **symbols; { unsigned int count; if (section->flags & SEC_CONSTRUCTOR) { arelent_chain *chain; /* This section has relocs made up by us, not the file, so take them out of their chain and place them into the data area provided. */ for (count = 0, chain = section->constructor_chain; count < section->reloc_count; count++, chain = chain->next) *relptr++ = &chain->relent; } else { arelent *tblptr; if (ecoff_slurp_reloc_table (abfd, section, symbols) == false) return -1; tblptr = section->relocation; for (count = 0; count < section->reloc_count; count++) *relptr++ = tblptr++; } *relptr = (arelent *) NULL; return section->reloc_count; } /* Provided a BFD, a section and an offset into the section, calculate and return the name of the source file and the line nearest to the wanted location. */ /*ARGSUSED*/ boolean _bfd_ecoff_find_nearest_line (abfd, section, ignore_symbols, offset, filename_ptr, functionname_ptr, retline_ptr) bfd *abfd; asection *section; asymbol **ignore_symbols; bfd_vma offset; CONST char **filename_ptr; CONST char **functionname_ptr; unsigned int *retline_ptr; { const struct ecoff_debug_swap * const debug_swap = &ecoff_backend (abfd)->debug_swap; FDR *fdr_ptr; FDR *fdr_start; FDR *fdr_end; FDR *fdr_hold; bfd_size_type external_pdr_size; char *pdr_ptr; char *pdr_end; PDR pdr; bfd_vma first_off; unsigned char *line_ptr; unsigned char *line_end; int lineno; /* If we're not in the .text section, we don't have any line numbers. */ if (strcmp (section->name, _TEXT) != 0 || offset < ecoff_data (abfd)->text_start || offset >= ecoff_data (abfd)->text_end) return false; /* Make sure we have the FDR's. */ if (! _bfd_ecoff_slurp_symbolic_info (abfd, (asection *) NULL, &ecoff_data (abfd)->debug_info) || bfd_get_symcount (abfd) == 0) return false; /* Each file descriptor (FDR) has a memory address. Here we track down which FDR we want. The FDR's are stored in increasing memory order. If speed is ever important, this can become a binary search. We must ignore FDR's with no PDR entries; they will have the adr of the FDR before or after them. */ fdr_start = ecoff_data (abfd)->debug_info.fdr; fdr_end = fdr_start + ecoff_data (abfd)->debug_info.symbolic_header.ifdMax; fdr_hold = (FDR *) NULL; for (fdr_ptr = fdr_start; fdr_ptr < fdr_end; fdr_ptr++) { if (fdr_ptr->cpd == 0) continue; if (offset < fdr_ptr->adr) break; fdr_hold = fdr_ptr; } if (fdr_hold == (FDR *) NULL) return false; fdr_ptr = fdr_hold; /* Each FDR has a list of procedure descriptors (PDR). PDR's also have an address, which is relative to the FDR address, and are also stored in increasing memory order. */ offset -= fdr_ptr->adr; external_pdr_size = debug_swap->external_pdr_size; pdr_ptr = ((char *) ecoff_data (abfd)->debug_info.external_pdr + fdr_ptr->ipdFirst * external_pdr_size); pdr_end = pdr_ptr + fdr_ptr->cpd * external_pdr_size; (*debug_swap->swap_pdr_in) (abfd, (PTR) pdr_ptr, &pdr); if (offset < pdr.adr) return false; /* The address of the first PDR is an offset which applies to the addresses of all the PDR's. */ first_off = pdr.adr; for (pdr_ptr += external_pdr_size; pdr_ptr < pdr_end; pdr_ptr += external_pdr_size) { (*debug_swap->swap_pdr_in) (abfd, (PTR) pdr_ptr, &pdr); if (offset < pdr.adr) break; } /* Now we can look for the actual line number. The line numbers are stored in a very funky format, which I won't try to describe. Note that right here pdr_ptr and pdr hold the PDR *after* the one we want; we need this to compute line_end. */ line_end = ecoff_data (abfd)->debug_info.line; if (pdr_ptr == pdr_end) line_end += fdr_ptr->cbLineOffset + fdr_ptr->cbLine; else line_end += fdr_ptr->cbLineOffset + pdr.cbLineOffset; /* Now change pdr and pdr_ptr to the one we want. */ pdr_ptr -= external_pdr_size; (*debug_swap->swap_pdr_in) (abfd, (PTR) pdr_ptr, &pdr); offset -= pdr.adr - first_off; lineno = pdr.lnLow; line_ptr = (ecoff_data (abfd)->debug_info.line + fdr_ptr->cbLineOffset + pdr.cbLineOffset); while (line_ptr < line_end) { int delta; int count; delta = *line_ptr >> 4; if (delta >= 0x8) delta -= 0x10; count = (*line_ptr & 0xf) + 1; ++line_ptr; if (delta == -8) { delta = (((line_ptr[0]) & 0xff) << 8) + ((line_ptr[1]) & 0xff); if (delta >= 0x8000) delta -= 0x10000; line_ptr += 2; } lineno += delta; if (offset < count * 4) break; offset -= count * 4; } /* If fdr_ptr->rss is -1, then this file does not have full symbols, at least according to gdb/mipsread.c. */ if (fdr_ptr->rss == -1) { *filename_ptr = NULL; if (pdr.isym == -1) *functionname_ptr = NULL; else { EXTR proc_ext; (*debug_swap->swap_ext_in) (abfd, ((char *) ecoff_data (abfd)->debug_info.external_ext + pdr.isym * debug_swap->external_ext_size), &proc_ext); *functionname_ptr = (ecoff_data (abfd)->debug_info.ssext + proc_ext.asym.iss); } } else { SYMR proc_sym; *filename_ptr = (ecoff_data (abfd)->debug_info.ss + fdr_ptr->issBase + fdr_ptr->rss); (*debug_swap->swap_sym_in) (abfd, ((char *) ecoff_data (abfd)->debug_info.external_sym + (fdr_ptr->isymBase + pdr.isym) * debug_swap->external_sym_size), &proc_sym); *functionname_ptr = (ecoff_data (abfd)->debug_info.ss + fdr_ptr->issBase + proc_sym.iss); } if (lineno == ilineNil) lineno = 0; *retline_ptr = lineno; return true; } /* Copy private BFD data. This is called by objcopy and strip. We use it to copy the ECOFF debugging information from one BFD to the other. It would be theoretically possible to represent the ECOFF debugging information in the symbol table. However, it would be a lot of work, and there would be little gain (gas, gdb, and ld already access the ECOFF debugging information via the ecoff_debug_info structure, and that structure would have to be retained in order to support ECOFF debugging in MIPS ELF). The debugging information for the ECOFF external symbols comes from the symbol table, so this function only handles the other debugging information. */ boolean _bfd_ecoff_bfd_copy_private_bfd_data (ibfd, obfd) bfd *ibfd; bfd *obfd; { struct ecoff_debug_info *iinfo = &ecoff_data (ibfd)->debug_info; struct ecoff_debug_info *oinfo = &ecoff_data (obfd)->debug_info; register int i; asymbol **sym_ptr_ptr; size_t c; boolean local; /* This function is selected based on the input vector. We only want to copy information over if the output BFD also uses ECOFF format. */ if (bfd_get_flavour (obfd) != bfd_target_ecoff_flavour) return true; /* Copy the GP value and the register masks. */ ecoff_data (obfd)->gp = ecoff_data (ibfd)->gp; ecoff_data (obfd)->gprmask = ecoff_data (ibfd)->gprmask; ecoff_data (obfd)->fprmask = ecoff_data (ibfd)->fprmask; for (i = 0; i < 3; i++) ecoff_data (obfd)->cprmask[i] = ecoff_data (ibfd)->cprmask[i]; /* Copy the version stamp. */ oinfo->symbolic_header.vstamp = iinfo->symbolic_header.vstamp; /* If there are no symbols, don't copy any debugging information. */ c = bfd_get_symcount (obfd); sym_ptr_ptr = bfd_get_outsymbols (obfd); if (c == 0 || sym_ptr_ptr == (asymbol **) NULL) return true; /* See if there are any local symbols. */ local = false; for (; c > 0; c--, sym_ptr_ptr++) { if (ecoffsymbol (*sym_ptr_ptr)->local) { local = true; break; } } if (local) { /* There are some local symbols. We just bring over all the debugging information. FIXME: This is not quite the right thing to do. If the user has asked us to discard all debugging information, then we are probably going to wind up keeping it because there will probably be some local symbol which objcopy did not discard. We should actually break apart the debugging information and only keep that which applies to the symbols we want to keep. */ oinfo->symbolic_header.ilineMax = iinfo->symbolic_header.ilineMax; oinfo->symbolic_header.cbLine = iinfo->symbolic_header.cbLine; oinfo->line = iinfo->line; oinfo->symbolic_header.idnMax = iinfo->symbolic_header.idnMax; oinfo->external_dnr = iinfo->external_dnr; oinfo->symbolic_header.ipdMax = iinfo->symbolic_header.ipdMax; oinfo->external_pdr = iinfo->external_pdr; oinfo->symbolic_header.isymMax = iinfo->symbolic_header.isymMax; oinfo->external_sym = iinfo->external_sym; oinfo->symbolic_header.ioptMax = iinfo->symbolic_header.ioptMax; oinfo->external_opt = iinfo->external_opt; oinfo->symbolic_header.iauxMax = iinfo->symbolic_header.iauxMax; oinfo->external_aux = iinfo->external_aux; oinfo->symbolic_header.issMax = iinfo->symbolic_header.issMax; oinfo->ss = iinfo->ss; oinfo->symbolic_header.ifdMax = iinfo->symbolic_header.ifdMax; oinfo->external_fdr = iinfo->external_fdr; oinfo->symbolic_header.crfd = iinfo->symbolic_header.crfd; oinfo->external_rfd = iinfo->external_rfd; } else { /* We are discarding all the local symbol information. Look through the external symbols and remove all references to FDR or aux information. */ c = bfd_get_symcount (obfd); sym_ptr_ptr = bfd_get_outsymbols (obfd); for (; c > 0; c--, sym_ptr_ptr++) { EXTR esym; (*(ecoff_backend (obfd)->debug_swap.swap_ext_in)) (obfd, ecoffsymbol (*sym_ptr_ptr)->native, &esym); esym.ifd = ifdNil; esym.asym.index = indexNil; (*(ecoff_backend (obfd)->debug_swap.swap_ext_out)) (obfd, &esym, ecoffsymbol (*sym_ptr_ptr)->native); } } return true; } /* Set the architecture. The supported architecture is stored in the backend pointer. We always set the architecture anyhow, since many callers ignore the return value. */ boolean _bfd_ecoff_set_arch_mach (abfd, arch, machine) bfd *abfd; enum bfd_architecture arch; unsigned long machine; { bfd_default_set_arch_mach (abfd, arch, machine); return arch == ecoff_backend (abfd)->arch; } /* Get the size of the section headers. */ /*ARGSUSED*/ int _bfd_ecoff_sizeof_headers (abfd, reloc) bfd *abfd; boolean reloc; { asection *current; int c; int ret; c = 0; for (current = abfd->sections; current != (asection *)NULL; current = current->next) ++c; ret = (bfd_coff_filhsz (abfd) + bfd_coff_aoutsz (abfd) + c * bfd_coff_scnhsz (abfd)); return BFD_ALIGN (ret, 16); } /* Get the contents of a section. */ boolean _bfd_ecoff_get_section_contents (abfd, section, location, offset, count) bfd *abfd; asection *section; PTR location; file_ptr offset; bfd_size_type count; { return _bfd_generic_get_section_contents (abfd, section, location, offset, count); } /* Calculate the file position for each section, and set reloc_filepos. */ static void ecoff_compute_section_file_positions (abfd) bfd *abfd; { asection *current; file_ptr sofar; file_ptr old_sofar; boolean first_data; sofar = _bfd_ecoff_sizeof_headers (abfd, false); first_data = true; for (current = abfd->sections; current != (asection *) NULL; current = current->next) { unsigned int alignment_power; /* Only deal with sections which have contents */ if ((current->flags & (SEC_HAS_CONTENTS | SEC_LOAD)) == 0) continue; /* For the Alpha ECOFF .pdata section the lnnoptr field is supposed to indicate the number of .pdata entries that are really in the section. Each entry is 8 bytes. We store this away in line_filepos before increasing the section size. */ if (strcmp (current->name, _PDATA) != 0) alignment_power = current->alignment_power; else { current->line_filepos = current->_raw_size / 8; alignment_power = 4; } /* On Ultrix, the data sections in an executable file must be aligned to a page boundary within the file. This does not affect the section size, though. FIXME: Does this work for other platforms? It requires some modification for the Alpha, because .rdata on the Alpha goes with the text, not the data. */ if ((abfd->flags & EXEC_P) != 0 && (abfd->flags & D_PAGED) != 0 && first_data != false && (current->flags & SEC_CODE) == 0 && (! ecoff_backend (abfd)->rdata_in_text || strcmp (current->name, _RDATA) != 0) && strcmp (current->name, _PDATA) != 0) { const bfd_vma round = ecoff_backend (abfd)->round; sofar = (sofar + round - 1) &~ (round - 1); first_data = false; } else if (strcmp (current->name, _LIB) == 0) { const bfd_vma round = ecoff_backend (abfd)->round; /* On Irix 4, the location of contents of the .lib section from a shared library section is also rounded up to a page boundary. */ sofar = (sofar + round - 1) &~ (round - 1); } /* Align the sections in the file to the same boundary on which they are aligned in virtual memory. */ old_sofar = sofar; sofar = BFD_ALIGN (sofar, 1 << alignment_power); current->filepos = sofar; sofar += current->_raw_size; /* make sure that this section is of the right size too */ old_sofar = sofar; sofar = BFD_ALIGN (sofar, 1 << alignment_power); current->_raw_size += sofar - old_sofar; } ecoff_data (abfd)->reloc_filepos = sofar; } /* Determine the location of the relocs for all the sections in the output file, as well as the location of the symbolic debugging information. */ static bfd_size_type ecoff_compute_reloc_file_positions (abfd) bfd *abfd; { const bfd_size_type external_reloc_size = ecoff_backend (abfd)->external_reloc_size; file_ptr reloc_base; bfd_size_type reloc_size; asection *current; file_ptr sym_base; if (! abfd->output_has_begun) { ecoff_compute_section_file_positions (abfd); abfd->output_has_begun = true; } reloc_base = ecoff_data (abfd)->reloc_filepos; reloc_size = 0; for (current = abfd->sections; current != (asection *)NULL; current = current->next) { if (current->reloc_count == 0) current->rel_filepos = 0; else { bfd_size_type relsize; current->rel_filepos = reloc_base; relsize = current->reloc_count * external_reloc_size; reloc_size += relsize; reloc_base += relsize; } } sym_base = ecoff_data (abfd)->reloc_filepos + reloc_size; /* At least on Ultrix, the symbol table of an executable file must be aligned to a page boundary. FIXME: Is this true on other platforms? */ if ((abfd->flags & EXEC_P) != 0 && (abfd->flags & D_PAGED) != 0) sym_base = ((sym_base + ecoff_backend (abfd)->round - 1) &~ (ecoff_backend (abfd)->round - 1)); ecoff_data (abfd)->sym_filepos = sym_base; return reloc_size; } /* Set the contents of a section. */ boolean _bfd_ecoff_set_section_contents (abfd, section, location, offset, count) bfd *abfd; asection *section; PTR location; file_ptr offset; bfd_size_type count; { /* This must be done first, because bfd_set_section_contents is going to set output_has_begun to true. */ if (abfd->output_has_begun == false) ecoff_compute_section_file_positions (abfd); /* If this is a .lib section, bump the vma address so that it winds up being the number of .lib sections output. This is right for Irix 4. Ian Taylor . */ if (strcmp (section->name, _LIB) == 0) ++section->vma; if (count == 0) return true; if (bfd_seek (abfd, (file_ptr) (section->filepos + offset), SEEK_SET) != 0 || bfd_write (location, 1, count, abfd) != count) return false; return true; } /* Get the GP value for an ECOFF file. This is a hook used by nlmconv. */ bfd_vma bfd_ecoff_get_gp_value (abfd) bfd *abfd; { if (bfd_get_flavour (abfd) != bfd_target_ecoff_flavour || bfd_get_format (abfd) != bfd_object) { bfd_set_error (bfd_error_invalid_operation); return 0; } return ecoff_data (abfd)->gp; } /* Set the GP value for an ECOFF file. This is a hook used by the assembler. */ boolean bfd_ecoff_set_gp_value (abfd, gp_value) bfd *abfd; bfd_vma gp_value; { if (bfd_get_flavour (abfd) != bfd_target_ecoff_flavour || bfd_get_format (abfd) != bfd_object) { bfd_set_error (bfd_error_invalid_operation); return false; } ecoff_data (abfd)->gp = gp_value; return true; } /* Set the register masks for an ECOFF file. This is a hook used by the assembler. */ boolean bfd_ecoff_set_regmasks (abfd, gprmask, fprmask, cprmask) bfd *abfd; unsigned long gprmask; unsigned long fprmask; unsigned long *cprmask; { ecoff_data_type *tdata; if (bfd_get_flavour (abfd) != bfd_target_ecoff_flavour || bfd_get_format (abfd) != bfd_object) { bfd_set_error (bfd_error_invalid_operation); return false; } tdata = ecoff_data (abfd); tdata->gprmask = gprmask; tdata->fprmask = fprmask; if (cprmask != (unsigned long *) NULL) { register int i; for (i = 0; i < 3; i++) tdata->cprmask[i] = cprmask[i]; } return true; } /* Get ECOFF EXTR information for an external symbol. This function is passed to bfd_ecoff_debug_externals. */ static boolean ecoff_get_extr (sym, esym) asymbol *sym; EXTR *esym; { ecoff_symbol_type *ecoff_sym_ptr; bfd *input_bfd; if (bfd_asymbol_flavour (sym) != bfd_target_ecoff_flavour || ecoffsymbol (sym)->native == NULL) { /* Don't include debugging, local, or section symbols. */ if ((sym->flags & BSF_DEBUGGING) != 0 || (sym->flags & BSF_LOCAL) != 0 || (sym->flags & BSF_SECTION_SYM) != 0) return false; esym->jmptbl = 0; esym->cobol_main = 0; esym->weakext = 0; esym->reserved = 0; esym->ifd = ifdNil; /* FIXME: we can do better than this for st and sc. */ esym->asym.st = stGlobal; esym->asym.sc = scAbs; esym->asym.reserved = 0; esym->asym.index = indexNil; return true; } ecoff_sym_ptr = ecoffsymbol (sym); if (ecoff_sym_ptr->local) return false; input_bfd = bfd_asymbol_bfd (sym); (*(ecoff_backend (input_bfd)->debug_swap.swap_ext_in)) (input_bfd, ecoff_sym_ptr->native, esym); /* If the symbol was defined by the linker, then esym will be undefined but sym will not be. Get a better class for such a symbol. */ if ((esym->asym.sc == scUndefined || esym->asym.sc == scSUndefined) && ! bfd_is_und_section (bfd_get_section (sym))) esym->asym.sc = scAbs; /* Adjust the FDR index for the symbol by that used for the input BFD. */ if (esym->ifd != -1) { struct ecoff_debug_info *input_debug; input_debug = &ecoff_data (input_bfd)->debug_info; BFD_ASSERT (esym->ifd < input_debug->symbolic_header.ifdMax); if (input_debug->ifdmap != (RFDT *) NULL) esym->ifd = input_debug->ifdmap[esym->ifd]; } return true; } /* Set the external symbol index. This routine is passed to bfd_ecoff_debug_externals. */ static void ecoff_set_index (sym, indx) asymbol *sym; bfd_size_type indx; { ecoff_set_sym_index (sym, indx); } /* Write out an ECOFF file. */ boolean _bfd_ecoff_write_object_contents (abfd) bfd *abfd; { const struct ecoff_backend_data * const backend = ecoff_backend (abfd); const bfd_vma round = backend->round; const bfd_size_type filhsz = bfd_coff_filhsz (abfd); const bfd_size_type aoutsz = bfd_coff_aoutsz (abfd); const bfd_size_type scnhsz = bfd_coff_scnhsz (abfd); const bfd_size_type external_hdr_size = backend->debug_swap.external_hdr_size; const bfd_size_type external_reloc_size = backend->external_reloc_size; void (* const adjust_reloc_out) PARAMS ((bfd *, const arelent *, struct internal_reloc *)) = backend->adjust_reloc_out; void (* const swap_reloc_out) PARAMS ((bfd *, const struct internal_reloc *, PTR)) = backend->swap_reloc_out; struct ecoff_debug_info * const debug = &ecoff_data (abfd)->debug_info; HDRR * const symhdr = &debug->symbolic_header; asection *current; unsigned int count; bfd_size_type reloc_size; bfd_size_type text_size; bfd_vma text_start; boolean set_text_start; bfd_size_type data_size; bfd_vma data_start; boolean set_data_start; bfd_size_type bss_size; PTR buff = NULL; PTR reloc_buff = NULL; struct internal_filehdr internal_f; struct internal_aouthdr internal_a; int i; /* Determine where the sections and relocs will go in the output file. */ reloc_size = ecoff_compute_reloc_file_positions (abfd); count = 1; for (current = abfd->sections; current != (asection *)NULL; current = current->next) { current->target_index = count; ++count; } if ((abfd->flags & D_PAGED) != 0) text_size = _bfd_ecoff_sizeof_headers (abfd, false); else text_size = 0; text_start = 0; set_text_start = false; data_size = 0; data_start = 0; set_data_start = false; bss_size = 0; /* Write section headers to the file. */ /* Allocate buff big enough to hold a section header, file header, or a.out header. */ { bfd_size_type siz; siz = scnhsz; if (siz < filhsz) siz = filhsz; if (siz < aoutsz) siz = aoutsz; buff = (PTR) malloc (siz); if (buff == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } } internal_f.f_nscns = 0; if (bfd_seek (abfd, (file_ptr) (filhsz + aoutsz), SEEK_SET) != 0) goto error_return; for (current = abfd->sections; current != (asection *) NULL; current = current->next) { struct internal_scnhdr section; bfd_vma vma; ++internal_f.f_nscns; strncpy (section.s_name, current->name, sizeof section.s_name); /* This seems to be correct for Irix 4 shared libraries. */ vma = bfd_get_section_vma (abfd, current); if (strcmp (current->name, _LIB) == 0) section.s_vaddr = 0; else section.s_vaddr = vma; section.s_paddr = vma; section.s_size = bfd_get_section_size_before_reloc (current); /* If this section is unloadable then the scnptr will be 0. */ if ((current->flags & (SEC_LOAD | SEC_HAS_CONTENTS)) == 0) section.s_scnptr = 0; else section.s_scnptr = current->filepos; section.s_relptr = current->rel_filepos; /* FIXME: the lnnoptr of the .sbss or .sdata section of an object file produced by the assembler is supposed to point to information about how much room is required by objects of various different sizes. I think this only matters if we want the linker to compute the best size to use, or something. I don't know what happens if the information is not present. */ if (strcmp (current->name, _PDATA) != 0) section.s_lnnoptr = 0; else { /* The Alpha ECOFF .pdata section uses the lnnoptr field to hold the number of entries in the section (each entry is 8 bytes). We stored this in the line_filepos field in ecoff_compute_section_file_positions. */ section.s_lnnoptr = current->line_filepos; } section.s_nreloc = current->reloc_count; section.s_nlnno = 0; section.s_flags = ecoff_sec_to_styp_flags (current->name, current->flags); bfd_coff_swap_scnhdr_out (abfd, (PTR) §ion, buff); if (bfd_write (buff, 1, scnhsz, abfd) != scnhsz) goto error_return; if ((section.s_flags & STYP_TEXT) != 0 || ((section.s_flags & STYP_RDATA) != 0 && backend->rdata_in_text) || strcmp (current->name, _PDATA) == 0) { text_size += bfd_get_section_size_before_reloc (current); if (! set_text_start || text_start > vma) { text_start = vma; set_text_start = true; } } else if ((section.s_flags & STYP_RDATA) != 0 || (section.s_flags & STYP_DATA) != 0 || (section.s_flags & STYP_LITA) != 0 || (section.s_flags & STYP_LIT8) != 0 || (section.s_flags & STYP_LIT4) != 0 || (section.s_flags & STYP_SDATA) != 0 || strcmp (current->name, _XDATA) == 0) { data_size += bfd_get_section_size_before_reloc (current); if (! set_data_start || data_start > vma) { data_start = vma; set_data_start = true; } } else if ((section.s_flags & STYP_BSS) != 0 || (section.s_flags & STYP_SBSS) != 0) bss_size += bfd_get_section_size_before_reloc (current); else if ((section.s_flags & STYP_ECOFF_LIB) != 0) /* Do nothing */ ; else abort (); } /* Set up the file header. */ internal_f.f_magic = ecoff_get_magic (abfd); /* We will NOT put a fucking timestamp in the header here. Every time you put it back, I will come in and take it out again. I'm sorry. This field does not belong here. We fill it with a 0 so it compares the same but is not a reasonable time. -- gnu@cygnus.com. */ internal_f.f_timdat = 0; if (bfd_get_symcount (abfd) != 0) { /* The ECOFF f_nsyms field is not actually the number of symbols, it's the size of symbolic information header. */ internal_f.f_nsyms = external_hdr_size; internal_f.f_symptr = ecoff_data (abfd)->sym_filepos; } else { internal_f.f_nsyms = 0; internal_f.f_symptr = 0; } internal_f.f_opthdr = aoutsz; internal_f.f_flags = F_LNNO; if (reloc_size == 0) internal_f.f_flags |= F_RELFLG; if (bfd_get_symcount (abfd) == 0) internal_f.f_flags |= F_LSYMS; if (abfd->flags & EXEC_P) internal_f.f_flags |= F_EXEC; if (! abfd->xvec->byteorder_big_p) internal_f.f_flags |= F_AR32WR; else internal_f.f_flags |= F_AR32W; /* Set up the ``optional'' header. */ if ((abfd->flags & D_PAGED) != 0) internal_a.magic = ECOFF_AOUT_ZMAGIC; else internal_a.magic = ECOFF_AOUT_OMAGIC; /* FIXME: Is this really correct? */ internal_a.vstamp = symhdr->vstamp; /* At least on Ultrix, these have to be rounded to page boundaries. FIXME: Is this true on other platforms? */ if ((abfd->flags & D_PAGED) != 0) { internal_a.tsize = (text_size + round - 1) &~ (round - 1); internal_a.text_start = text_start &~ (round - 1); internal_a.dsize = (data_size + round - 1) &~ (round - 1); internal_a.data_start = data_start &~ (round - 1); } else { internal_a.tsize = text_size; internal_a.text_start = text_start; internal_a.dsize = data_size; internal_a.data_start = data_start; } /* On Ultrix, the initial portions of the .sbss and .bss segments are at the end of the data section. The bsize field in the optional header records how many bss bytes are required beyond those in the data section. The value is not rounded to a page boundary. */ if (bss_size < internal_a.dsize - data_size) bss_size = 0; else bss_size -= internal_a.dsize - data_size; internal_a.bsize = bss_size; internal_a.bss_start = internal_a.data_start + internal_a.dsize; internal_a.entry = bfd_get_start_address (abfd); internal_a.gp_value = ecoff_data (abfd)->gp; internal_a.gprmask = ecoff_data (abfd)->gprmask; internal_a.fprmask = ecoff_data (abfd)->fprmask; for (i = 0; i < 4; i++) internal_a.cprmask[i] = ecoff_data (abfd)->cprmask[i]; /* Write out the file header and the optional header. */ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) goto error_return; bfd_coff_swap_filehdr_out (abfd, (PTR) &internal_f, buff); if (bfd_write (buff, 1, filhsz, abfd) != filhsz) goto error_return; bfd_coff_swap_aouthdr_out (abfd, (PTR) &internal_a, buff); if (bfd_write (buff, 1, aoutsz, abfd) != aoutsz) goto error_return; /* Build the external symbol information. This must be done before writing out the relocs so that we know the symbol indices. We don't do this if this BFD was created by the backend linker, since it will have already handled the symbols and relocs. */ if (! ecoff_data (abfd)->linker) { symhdr->iextMax = 0; symhdr->issExtMax = 0; debug->external_ext = debug->external_ext_end = NULL; debug->ssext = debug->ssext_end = NULL; if (bfd_ecoff_debug_externals (abfd, debug, &backend->debug_swap, (((abfd->flags & EXEC_P) == 0) ? true : false), ecoff_get_extr, ecoff_set_index) == false) goto error_return; /* Write out the relocs. */ for (current = abfd->sections; current != (asection *) NULL; current = current->next) { arelent **reloc_ptr_ptr; arelent **reloc_end; char *out_ptr; if (current->reloc_count == 0) continue; reloc_buff = bfd_alloc (abfd, current->reloc_count * external_reloc_size); if (reloc_buff == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } reloc_ptr_ptr = current->orelocation; reloc_end = reloc_ptr_ptr + current->reloc_count; out_ptr = (char *) reloc_buff; for (; reloc_ptr_ptr < reloc_end; reloc_ptr_ptr++, out_ptr += external_reloc_size) { arelent *reloc; asymbol *sym; struct internal_reloc in; memset ((PTR) &in, 0, sizeof in); reloc = *reloc_ptr_ptr; sym = *reloc->sym_ptr_ptr; in.r_vaddr = (reloc->address + bfd_get_section_vma (abfd, current)); in.r_type = reloc->howto->type; if ((sym->flags & BSF_SECTION_SYM) == 0) { in.r_symndx = ecoff_get_sym_index (*reloc->sym_ptr_ptr); in.r_extern = 1; } else { CONST char *name; name = bfd_get_section_name (abfd, bfd_get_section (sym)); if (strcmp (name, ".text") == 0) in.r_symndx = RELOC_SECTION_TEXT; else if (strcmp (name, ".rdata") == 0) in.r_symndx = RELOC_SECTION_RDATA; else if (strcmp (name, ".data") == 0) in.r_symndx = RELOC_SECTION_DATA; else if (strcmp (name, ".sdata") == 0) in.r_symndx = RELOC_SECTION_SDATA; else if (strcmp (name, ".sbss") == 0) in.r_symndx = RELOC_SECTION_SBSS; else if (strcmp (name, ".bss") == 0) in.r_symndx = RELOC_SECTION_BSS; else if (strcmp (name, ".init") == 0) in.r_symndx = RELOC_SECTION_INIT; else if (strcmp (name, ".lit8") == 0) in.r_symndx = RELOC_SECTION_LIT8; else if (strcmp (name, ".lit4") == 0) in.r_symndx = RELOC_SECTION_LIT4; else if (strcmp (name, ".xdata") == 0) in.r_symndx = RELOC_SECTION_XDATA; else if (strcmp (name, ".pdata") == 0) in.r_symndx = RELOC_SECTION_PDATA; else if (strcmp (name, ".fini") == 0) in.r_symndx = RELOC_SECTION_FINI; else if (strcmp (name, ".lita") == 0) in.r_symndx = RELOC_SECTION_LITA; else if (strcmp (name, "*ABS*") == 0) in.r_symndx = RELOC_SECTION_ABS; else abort (); in.r_extern = 0; } (*adjust_reloc_out) (abfd, reloc, &in); (*swap_reloc_out) (abfd, &in, (PTR) out_ptr); } if (bfd_seek (abfd, current->rel_filepos, SEEK_SET) != 0) goto error_return; if (bfd_write (reloc_buff, external_reloc_size, current->reloc_count, abfd) != external_reloc_size * current->reloc_count) goto error_return; bfd_release (abfd, reloc_buff); reloc_buff = NULL; } /* Write out the symbolic debugging information. */ if (bfd_get_symcount (abfd) > 0) { /* Write out the debugging information. */ if (bfd_ecoff_write_debug (abfd, debug, &backend->debug_swap, ecoff_data (abfd)->sym_filepos) == false) goto error_return; } } /* The .bss section of a demand paged executable must receive an entire page. If there are symbols, the symbols will start on the next page. If there are no symbols, we must fill out the page by hand. */ if (bfd_get_symcount (abfd) == 0 && (abfd->flags & EXEC_P) != 0 && (abfd->flags & D_PAGED) != 0) { char c; if (bfd_seek (abfd, (file_ptr) ecoff_data (abfd)->sym_filepos - 1, SEEK_SET) != 0) goto error_return; if (bfd_read (&c, 1, 1, abfd) == 0) c = 0; if (bfd_seek (abfd, (file_ptr) ecoff_data (abfd)->sym_filepos - 1, SEEK_SET) != 0) goto error_return; if (bfd_write (&c, 1, 1, abfd) != 1) goto error_return; } if (reloc_buff != NULL) bfd_release (abfd, reloc_buff); if (buff != NULL) free (buff); return true; error_return: if (reloc_buff != NULL) bfd_release (abfd, reloc_buff); if (buff != NULL) free (buff); return false; } /* Archive handling. ECOFF uses what appears to be a unique type of archive header (armap). The byte ordering of the armap and the contents are encoded in the name of the armap itself. At least for now, we only support archives with the same byte ordering in the armap and the contents. The first four bytes in the armap are the number of symbol definitions. This is always a power of two. This is followed by the symbol definitions. Each symbol definition occupies 8 bytes. The first four bytes are the offset from the start of the armap strings to the null-terminated string naming this symbol. The second four bytes are the file offset to the archive member which defines this symbol. If the second four bytes are 0, then this is not actually a symbol definition, and it should be ignored. The symbols are hashed into the armap with a closed hashing scheme. See the functions below for the details of the algorithm. After the symbol definitions comes four bytes holding the size of the string table, followed by the string table itself. */ /* The name of an archive headers looks like this: __________E[BL]E[BL]_ (with a trailing space). The trailing space is changed to an X if the archive is changed to indicate that the armap is out of date. The Alpha seems to use ________64E[BL]E[BL]_. */ #define ARMAP_BIG_ENDIAN 'B' #define ARMAP_LITTLE_ENDIAN 'L' #define ARMAP_MARKER 'E' #define ARMAP_START_LENGTH 10 #define ARMAP_HEADER_MARKER_INDEX 10 #define ARMAP_HEADER_ENDIAN_INDEX 11 #define ARMAP_OBJECT_MARKER_INDEX 12 #define ARMAP_OBJECT_ENDIAN_INDEX 13 #define ARMAP_END_INDEX 14 #define ARMAP_END "_ " /* This is a magic number used in the hashing algorithm. */ #define ARMAP_HASH_MAGIC 0x9dd68ab5 /* This returns the hash value to use for a string. It also sets *REHASH to the rehash adjustment if the first slot is taken. SIZE is the number of entries in the hash table, and HLOG is the log base 2 of SIZE. */ static unsigned int ecoff_armap_hash (s, rehash, size, hlog) CONST char *s; unsigned int *rehash; unsigned int size; unsigned int hlog; { unsigned int hash; hash = *s++; while (*s != '\0') hash = ((hash >> 27) | (hash << 5)) + *s++; hash *= ARMAP_HASH_MAGIC; *rehash = (hash & (size - 1)) | 1; return hash >> (32 - hlog); } /* Read in the armap. */ boolean _bfd_ecoff_slurp_armap (abfd) bfd *abfd; { char nextname[17]; unsigned int i; struct areltdata *mapdata; bfd_size_type parsed_size; char *raw_armap; struct artdata *ardata; unsigned int count; char *raw_ptr; struct symdef *symdef_ptr; char *stringbase; /* Get the name of the first element. */ i = bfd_read ((PTR) nextname, 1, 16, abfd); if (i == 0) return true; if (i != 16) return false; if (bfd_seek (abfd, (file_ptr) -16, SEEK_CUR) != 0) return false; /* Irix 4.0.5F apparently can use either an ECOFF armap or a standard COFF armap. We could move the ECOFF armap stuff into bfd_slurp_armap, but that seems inappropriate since no other target uses this format. Instead, we check directly for a COFF armap. */ if (strncmp (nextname, "/ ", 16) == 0) return bfd_slurp_armap (abfd); /* See if the first element is an armap. */ if (strncmp (nextname, ecoff_backend (abfd)->armap_start, ARMAP_START_LENGTH) != 0 || nextname[ARMAP_HEADER_MARKER_INDEX] != ARMAP_MARKER || (nextname[ARMAP_HEADER_ENDIAN_INDEX] != ARMAP_BIG_ENDIAN && nextname[ARMAP_HEADER_ENDIAN_INDEX] != ARMAP_LITTLE_ENDIAN) || nextname[ARMAP_OBJECT_MARKER_INDEX] != ARMAP_MARKER || (nextname[ARMAP_OBJECT_ENDIAN_INDEX] != ARMAP_BIG_ENDIAN && nextname[ARMAP_OBJECT_ENDIAN_INDEX] != ARMAP_LITTLE_ENDIAN) || strncmp (nextname + ARMAP_END_INDEX, ARMAP_END, sizeof ARMAP_END - 1) != 0) { bfd_has_map (abfd) = false; return true; } /* Make sure we have the right byte ordering. */ if (((nextname[ARMAP_HEADER_ENDIAN_INDEX] == ARMAP_BIG_ENDIAN) ^ (abfd->xvec->header_byteorder_big_p != false)) || ((nextname[ARMAP_OBJECT_ENDIAN_INDEX] == ARMAP_BIG_ENDIAN) ^ (abfd->xvec->byteorder_big_p != false))) { bfd_set_error (bfd_error_wrong_format); return false; } /* Read in the armap. */ ardata = bfd_ardata (abfd); mapdata = _bfd_snarf_ar_hdr (abfd); if (mapdata == (struct areltdata *) NULL) return false; parsed_size = mapdata->parsed_size; bfd_release (abfd, (PTR) mapdata); raw_armap = (char *) bfd_alloc (abfd, parsed_size); if (raw_armap == (char *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read ((PTR) raw_armap, 1, parsed_size, abfd) != parsed_size) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_malformed_archive); bfd_release (abfd, (PTR) raw_armap); return false; } ardata->tdata = (PTR) raw_armap; count = bfd_h_get_32 (abfd, (PTR) raw_armap); ardata->symdef_count = 0; ardata->cache = (struct ar_cache *) NULL; /* This code used to overlay the symdefs over the raw archive data, but that doesn't work on a 64 bit host. */ stringbase = raw_armap + count * 8 + 8; #ifdef CHECK_ARMAP_HASH { unsigned int hlog; /* Double check that I have the hashing algorithm right by making sure that every symbol can be looked up successfully. */ hlog = 0; for (i = 1; i < count; i <<= 1) hlog++; BFD_ASSERT (i == count); raw_ptr = raw_armap + 4; for (i = 0; i < count; i++, raw_ptr += 8) { unsigned int name_offset, file_offset; unsigned int hash, rehash, srch; name_offset = bfd_h_get_32 (abfd, (PTR) raw_ptr); file_offset = bfd_h_get_32 (abfd, (PTR) (raw_ptr + 4)); if (file_offset == 0) continue; hash = ecoff_armap_hash (stringbase + name_offset, &rehash, count, hlog); if (hash == i) continue; /* See if we can rehash to this location. */ for (srch = (hash + rehash) & (count - 1); srch != hash && srch != i; srch = (srch + rehash) & (count - 1)) BFD_ASSERT (bfd_h_get_32 (abfd, (PTR) (raw_armap + 8 + srch * 8)) != 0); BFD_ASSERT (srch == i); } } #endif /* CHECK_ARMAP_HASH */ raw_ptr = raw_armap + 4; for (i = 0; i < count; i++, raw_ptr += 8) if (bfd_h_get_32 (abfd, (PTR) (raw_ptr + 4)) != 0) ++ardata->symdef_count; symdef_ptr = ((struct symdef *) bfd_alloc (abfd, ardata->symdef_count * sizeof (struct symdef))); if (!symdef_ptr) { bfd_set_error (bfd_error_no_memory); return false; } ardata->symdefs = (carsym *) symdef_ptr; raw_ptr = raw_armap + 4; for (i = 0; i < count; i++, raw_ptr += 8) { unsigned int name_offset, file_offset; file_offset = bfd_h_get_32 (abfd, (PTR) (raw_ptr + 4)); if (file_offset == 0) continue; name_offset = bfd_h_get_32 (abfd, (PTR) raw_ptr); symdef_ptr->s.name = stringbase + name_offset; symdef_ptr->file_offset = file_offset; ++symdef_ptr; } ardata->first_file_filepos = bfd_tell (abfd); /* Pad to an even boundary. */ ardata->first_file_filepos += ardata->first_file_filepos % 2; bfd_has_map (abfd) = true; return true; } /* Write out an armap. */ boolean _bfd_ecoff_write_armap (abfd, elength, map, orl_count, stridx) bfd *abfd; unsigned int elength; struct orl *map; unsigned int orl_count; int stridx; { unsigned int hashsize, hashlog; unsigned int symdefsize; int padit; unsigned int stringsize; unsigned int mapsize; file_ptr firstreal; struct ar_hdr hdr; struct stat statbuf; unsigned int i; bfd_byte temp[4]; bfd_byte *hashtable; bfd *current; bfd *last_elt; /* Ultrix appears to use as a hash table size the least power of two greater than twice the number of entries. */ for (hashlog = 0; (1 << hashlog) <= 2 * orl_count; hashlog++) ; hashsize = 1 << hashlog; symdefsize = hashsize * 8; padit = stridx % 2; stringsize = stridx + padit; /* Include 8 bytes to store symdefsize and stringsize in output. */ mapsize = symdefsize + stringsize + 8; firstreal = SARMAG + sizeof (struct ar_hdr) + mapsize + elength; memset ((PTR) &hdr, 0, sizeof hdr); /* Work out the ECOFF armap name. */ strcpy (hdr.ar_name, ecoff_backend (abfd)->armap_start); hdr.ar_name[ARMAP_HEADER_MARKER_INDEX] = ARMAP_MARKER; hdr.ar_name[ARMAP_HEADER_ENDIAN_INDEX] = (abfd->xvec->header_byteorder_big_p ? ARMAP_BIG_ENDIAN : ARMAP_LITTLE_ENDIAN); hdr.ar_name[ARMAP_OBJECT_MARKER_INDEX] = ARMAP_MARKER; hdr.ar_name[ARMAP_OBJECT_ENDIAN_INDEX] = abfd->xvec->byteorder_big_p ? ARMAP_BIG_ENDIAN : ARMAP_LITTLE_ENDIAN; memcpy (hdr.ar_name + ARMAP_END_INDEX, ARMAP_END, sizeof ARMAP_END - 1); /* Write the timestamp of the archive header to be just a little bit later than the timestamp of the file, otherwise the linker will complain that the index is out of date. Actually, the Ultrix linker just checks the archive name; the GNU linker may check the date. */ stat (abfd->filename, &statbuf); sprintf (hdr.ar_date, "%ld", (long) (statbuf.st_mtime + 60)); /* The DECstation uses zeroes for the uid, gid and mode of the armap. */ hdr.ar_uid[0] = '0'; hdr.ar_gid[0] = '0'; hdr.ar_mode[0] = '0'; sprintf (hdr.ar_size, "%-10d", (int) mapsize); hdr.ar_fmag[0] = '`'; hdr.ar_fmag[1] = '\012'; /* Turn all null bytes in the header into spaces. */ for (i = 0; i < sizeof (struct ar_hdr); i++) if (((char *)(&hdr))[i] == '\0') (((char *)(&hdr))[i]) = ' '; if (bfd_write ((PTR) &hdr, 1, sizeof (struct ar_hdr), abfd) != sizeof (struct ar_hdr)) return false; bfd_h_put_32 (abfd, (bfd_vma) hashsize, temp); if (bfd_write ((PTR) temp, 1, 4, abfd) != 4) return false; hashtable = (bfd_byte *) bfd_zalloc (abfd, symdefsize); if (!hashtable) { bfd_set_error (bfd_error_no_memory); return false; } current = abfd->archive_head; last_elt = current; for (i = 0; i < orl_count; i++) { unsigned int hash, rehash; /* Advance firstreal to the file position of this archive element. */ if (((bfd *) map[i].pos) != last_elt) { do { firstreal += arelt_size (current) + sizeof (struct ar_hdr); firstreal += firstreal % 2; current = current->next; } while (current != (bfd *) map[i].pos); } last_elt = current; hash = ecoff_armap_hash (*map[i].name, &rehash, hashsize, hashlog); if (bfd_h_get_32 (abfd, (PTR) (hashtable + (hash * 8) + 4)) != 0) { unsigned int srch; /* The desired slot is already taken. */ for (srch = (hash + rehash) & (hashsize - 1); srch != hash; srch = (srch + rehash) & (hashsize - 1)) if (bfd_h_get_32 (abfd, (PTR) (hashtable + (srch * 8) + 4)) == 0) break; BFD_ASSERT (srch != hash); hash = srch; } bfd_h_put_32 (abfd, (bfd_vma) map[i].namidx, (PTR) (hashtable + hash * 8)); bfd_h_put_32 (abfd, (bfd_vma) firstreal, (PTR) (hashtable + hash * 8 + 4)); } if (bfd_write ((PTR) hashtable, 1, symdefsize, abfd) != symdefsize) return false; bfd_release (abfd, hashtable); /* Now write the strings. */ bfd_h_put_32 (abfd, (bfd_vma) stringsize, temp); if (bfd_write ((PTR) temp, 1, 4, abfd) != 4) return false; for (i = 0; i < orl_count; i++) { bfd_size_type len; len = strlen (*map[i].name) + 1; if (bfd_write ((PTR) (*map[i].name), 1, len, abfd) != len) return false; } /* The spec sez this should be a newline. But in order to be bug-compatible for DECstation ar we use a null. */ if (padit) { if (bfd_write ("", 1, 1, abfd) != 1) return false; } return true; } /* See whether this BFD is an archive. If it is, read in the armap and the extended name table. */ const bfd_target * _bfd_ecoff_archive_p (abfd) bfd *abfd; { char armag[SARMAG + 1]; if (bfd_read ((PTR) armag, 1, SARMAG, abfd) != SARMAG || strncmp (armag, ARMAG, SARMAG) != 0) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return (const bfd_target *) NULL; } /* We are setting bfd_ardata(abfd) here, but since bfd_ardata involves a cast, we can't do it as the left operand of assignment. */ abfd->tdata.aout_ar_data = (struct artdata *) bfd_zalloc (abfd, sizeof (struct artdata)); if (bfd_ardata (abfd) == (struct artdata *) NULL) { bfd_set_error (bfd_error_no_memory); return (const bfd_target *) NULL; } bfd_ardata (abfd)->first_file_filepos = SARMAG; bfd_ardata (abfd)->cache = NULL; bfd_ardata (abfd)->archive_head = NULL; bfd_ardata (abfd)->symdefs = NULL; bfd_ardata (abfd)->extended_names = NULL; bfd_ardata (abfd)->tdata = NULL; if (_bfd_ecoff_slurp_armap (abfd) == false || _bfd_ecoff_slurp_extended_name_table (abfd) == false) { bfd_release (abfd, bfd_ardata (abfd)); abfd->tdata.aout_ar_data = (struct artdata *) NULL; return (const bfd_target *) NULL; } return abfd->xvec; } /* ECOFF linker code. */ static struct bfd_hash_entry *ecoff_link_hash_newfunc PARAMS ((struct bfd_hash_entry *entry, struct bfd_hash_table *table, const char *string)); static boolean ecoff_link_add_archive_symbols PARAMS ((bfd *, struct bfd_link_info *)); static boolean ecoff_link_check_archive_element PARAMS ((bfd *, struct bfd_link_info *, boolean *pneeded)); static boolean ecoff_link_add_object_symbols PARAMS ((bfd *, struct bfd_link_info *)); static boolean ecoff_link_add_externals PARAMS ((bfd *, struct bfd_link_info *, PTR, char *)); /* Routine to create an entry in an ECOFF link hash table. */ static struct bfd_hash_entry * ecoff_link_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct ecoff_link_hash_entry *ret = (struct ecoff_link_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct ecoff_link_hash_entry *) NULL) ret = ((struct ecoff_link_hash_entry *) bfd_hash_allocate (table, sizeof (struct ecoff_link_hash_entry))); if (ret == (struct ecoff_link_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Call the allocation method of the superclass. */ ret = ((struct ecoff_link_hash_entry *) _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret) { /* Set local fields. */ ret->indx = -1; ret->abfd = NULL; ret->written = 0; ret->small = 0; } memset ((PTR) &ret->esym, 0, sizeof ret->esym); return (struct bfd_hash_entry *) ret; } /* Create an ECOFF link hash table. */ struct bfd_link_hash_table * _bfd_ecoff_bfd_link_hash_table_create (abfd) bfd *abfd; { struct ecoff_link_hash_table *ret; ret = ((struct ecoff_link_hash_table *) malloc (sizeof (struct ecoff_link_hash_table))); if (!ret) { bfd_set_error (bfd_error_no_memory); return NULL; } if (! _bfd_link_hash_table_init (&ret->root, abfd, ecoff_link_hash_newfunc)) { free (ret); return (struct bfd_link_hash_table *) NULL; } return &ret->root; } /* Look up an entry in an ECOFF link hash table. */ #define ecoff_link_hash_lookup(table, string, create, copy, follow) \ ((struct ecoff_link_hash_entry *) \ bfd_link_hash_lookup (&(table)->root, (string), (create), (copy), (follow))) /* Traverse an ECOFF link hash table. */ #define ecoff_link_hash_traverse(table, func, info) \ (bfd_link_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct bfd_link_hash_entry *, PTR))) (func), \ (info))) /* Get the ECOFF link hash table from the info structure. This is just a cast. */ #define ecoff_hash_table(p) ((struct ecoff_link_hash_table *) ((p)->hash)) /* Given an ECOFF BFD, add symbols to the global hash table as appropriate. */ boolean _bfd_ecoff_bfd_link_add_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { switch (bfd_get_format (abfd)) { case bfd_object: return ecoff_link_add_object_symbols (abfd, info); case bfd_archive: return ecoff_link_add_archive_symbols (abfd, info); default: bfd_set_error (bfd_error_wrong_format); return false; } } /* Add the symbols from an archive file to the global hash table. This looks through the undefined symbols, looks each one up in the archive hash table, and adds any associated object file. We do not use _bfd_generic_link_add_archive_symbols because ECOFF archives already have a hash table, so there is no reason to construct another one. */ static boolean ecoff_link_add_archive_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { const bfd_byte *raw_armap; struct bfd_link_hash_entry **pundef; unsigned int armap_count; unsigned int armap_log; unsigned int i; const bfd_byte *hashtable; const char *stringbase; if (! bfd_has_map (abfd)) { bfd_set_error (bfd_error_no_symbols); return false; } /* If we don't have any raw data for this archive, as can happen on Irix 4.0.5F, we call the generic routine. FIXME: We should be more clever about this, since someday tdata may get to something for a generic archive. */ raw_armap = (const bfd_byte *) bfd_ardata (abfd)->tdata; if (raw_armap == (bfd_byte *) NULL) return (_bfd_generic_link_add_archive_symbols (abfd, info, ecoff_link_check_archive_element)); armap_count = bfd_h_get_32 (abfd, raw_armap); armap_log = 0; for (i = 1; i < armap_count; i <<= 1) armap_log++; BFD_ASSERT (i == armap_count); hashtable = raw_armap + 4; stringbase = (const char *) raw_armap + armap_count * 8 + 8; /* Look through the list of undefined symbols. */ pundef = &info->hash->undefs; while (*pundef != (struct bfd_link_hash_entry *) NULL) { struct bfd_link_hash_entry *h; unsigned int hash, rehash; unsigned int file_offset; const char *name; bfd *element; h = *pundef; /* When a symbol is defined, it is not necessarily removed from the list. */ if (h->type != bfd_link_hash_undefined && h->type != bfd_link_hash_common) { /* Remove this entry from the list, for general cleanliness and because we are going to look through the list again if we search any more libraries. We can't remove the entry if it is the tail, because that would lose any entries we add to the list later on. */ if (*pundef != info->hash->undefs_tail) *pundef = (*pundef)->next; else pundef = &(*pundef)->next; continue; } /* Native ECOFF linkers do not pull in archive elements merely to satisfy common definitions, so neither do we. We leave them on the list, though, in case we are linking against some other object format. */ if (h->type != bfd_link_hash_undefined) { pundef = &(*pundef)->next; continue; } /* Look for this symbol in the archive hash table. */ hash = ecoff_armap_hash (h->root.string, &rehash, armap_count, armap_log); file_offset = bfd_h_get_32 (abfd, hashtable + (hash * 8) + 4); if (file_offset == 0) { /* Nothing in this slot. */ pundef = &(*pundef)->next; continue; } name = stringbase + bfd_h_get_32 (abfd, hashtable + (hash * 8)); if (name[0] != h->root.string[0] || strcmp (name, h->root.string) != 0) { unsigned int srch; boolean found; /* That was the wrong symbol. Try rehashing. */ found = false; for (srch = (hash + rehash) & (armap_count - 1); srch != hash; srch = (srch + rehash) & (armap_count - 1)) { file_offset = bfd_h_get_32 (abfd, hashtable + (srch * 8) + 4); if (file_offset == 0) break; name = stringbase + bfd_h_get_32 (abfd, hashtable + (srch * 8)); if (name[0] == h->root.string[0] && strcmp (name, h->root.string) == 0) { found = true; break; } } if (! found) { pundef = &(*pundef)->next; continue; } hash = srch; } element = _bfd_get_elt_at_filepos (abfd, file_offset); if (element == (bfd *) NULL) return false; if (! bfd_check_format (element, bfd_object)) return false; /* Unlike the generic linker, we know that this element provides a definition for an undefined symbol and we know that we want to include it. We don't need to check anything. */ if (! (*info->callbacks->add_archive_element) (info, element, name)) return false; if (! ecoff_link_add_object_symbols (element, info)) return false; pundef = &(*pundef)->next; } return true; } /* This is called if we used _bfd_generic_link_add_archive_symbols because we were not dealing with an ECOFF archive. */ static boolean ecoff_link_check_archive_element (abfd, info, pneeded) bfd *abfd; struct bfd_link_info *info; boolean *pneeded; { const struct ecoff_backend_data * const backend = ecoff_backend (abfd); void (* const swap_ext_in) PARAMS ((bfd *, PTR, EXTR *)) = backend->debug_swap.swap_ext_in; HDRR *symhdr; bfd_size_type external_ext_size; PTR external_ext = NULL; size_t esize; char *ssext = NULL; char *ext_ptr; char *ext_end; *pneeded = false; if (! ecoff_slurp_symbolic_header (abfd)) goto error_return; /* If there are no symbols, we don't want it. */ if (bfd_get_symcount (abfd) == 0) goto successful_return; symhdr = &ecoff_data (abfd)->debug_info.symbolic_header; /* Read in the external symbols and external strings. */ external_ext_size = backend->debug_swap.external_ext_size; esize = symhdr->iextMax * external_ext_size; external_ext = (PTR) malloc (esize); if (external_ext == NULL && esize != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (abfd, symhdr->cbExtOffset, SEEK_SET) != 0 || bfd_read (external_ext, 1, esize, abfd) != esize) goto error_return; ssext = (char *) malloc (symhdr->issExtMax); if (ssext == NULL && symhdr->issExtMax != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (abfd, symhdr->cbSsExtOffset, SEEK_SET) != 0 || bfd_read (ssext, 1, symhdr->issExtMax, abfd) != symhdr->issExtMax) goto error_return; /* Look through the external symbols to see if they define some symbol that is currently undefined. */ ext_ptr = (char *) external_ext; ext_end = ext_ptr + esize; for (; ext_ptr < ext_end; ext_ptr += external_ext_size) { EXTR esym; boolean def; const char *name; struct bfd_link_hash_entry *h; (*swap_ext_in) (abfd, (PTR) ext_ptr, &esym); /* See if this symbol defines something. */ if (esym.asym.st != stGlobal && esym.asym.st != stLabel && esym.asym.st != stProc) continue; switch (esym.asym.sc) { case scText: case scData: case scBss: case scAbs: case scSData: case scSBss: case scRData: case scCommon: case scSCommon: case scInit: case scFini: def = true; break; default: def = false; break; } if (! def) continue; name = ssext + esym.asym.iss; h = bfd_link_hash_lookup (info->hash, name, false, false, true); /* Unlike the generic linker, we do not pull in elements because of common symbols. */ if (h == (struct bfd_link_hash_entry *) NULL || h->type != bfd_link_hash_undefined) continue; /* Include this element. */ if (! (*info->callbacks->add_archive_element) (info, abfd, name)) goto error_return; if (! ecoff_link_add_externals (abfd, info, external_ext, ssext)) goto error_return; *pneeded = true; goto successful_return; } successful_return: if (external_ext != NULL) free (external_ext); if (ssext != NULL) free (ssext); return true; error_return: if (external_ext != NULL) free (external_ext); if (ssext != NULL) free (ssext); return false; } /* Add symbols from an ECOFF object file to the global linker hash table. */ static boolean ecoff_link_add_object_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { HDRR *symhdr; bfd_size_type external_ext_size; PTR external_ext = NULL; size_t esize; char *ssext = NULL; boolean result; if (! ecoff_slurp_symbolic_header (abfd)) return false; /* If there are no symbols, we don't want it. */ if (bfd_get_symcount (abfd) == 0) return true; symhdr = &ecoff_data (abfd)->debug_info.symbolic_header; /* Read in the external symbols and external strings. */ external_ext_size = ecoff_backend (abfd)->debug_swap.external_ext_size; esize = symhdr->iextMax * external_ext_size; external_ext = (PTR) malloc (esize); if (external_ext == NULL && esize != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (abfd, symhdr->cbExtOffset, SEEK_SET) != 0 || bfd_read (external_ext, 1, esize, abfd) != esize) goto error_return; ssext = (char *) malloc (symhdr->issExtMax); if (ssext == NULL && symhdr->issExtMax != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (abfd, symhdr->cbSsExtOffset, SEEK_SET) != 0 || bfd_read (ssext, 1, symhdr->issExtMax, abfd) != symhdr->issExtMax) goto error_return; result = ecoff_link_add_externals (abfd, info, external_ext, ssext); if (ssext != NULL) free (ssext); if (external_ext != NULL) free (external_ext); return result; error_return: if (ssext != NULL) free (ssext); if (external_ext != NULL) free (external_ext); return false; } /* Add the external symbols of an object file to the global linker hash table. The external symbols and strings we are passed are just allocated on the stack, and will be discarded. We must explicitly save any information we may need later on in the link. We do not want to read the external symbol information again. */ static boolean ecoff_link_add_externals (abfd, info, external_ext, ssext) bfd *abfd; struct bfd_link_info *info; PTR external_ext; char *ssext; { const struct ecoff_backend_data * const backend = ecoff_backend (abfd); void (* const swap_ext_in) PARAMS ((bfd *, PTR, EXTR *)) = backend->debug_swap.swap_ext_in; bfd_size_type external_ext_size = backend->debug_swap.external_ext_size; unsigned long ext_count; struct ecoff_link_hash_entry **sym_hash; char *ext_ptr; char *ext_end; ext_count = ecoff_data (abfd)->debug_info.symbolic_header.iextMax; sym_hash = ((struct ecoff_link_hash_entry **) bfd_alloc (abfd, ext_count * sizeof (struct bfd_link_hash_entry *))); if (!sym_hash) { bfd_set_error (bfd_error_no_memory); return false; } ecoff_data (abfd)->sym_hashes = sym_hash; ext_ptr = (char *) external_ext; ext_end = ext_ptr + ext_count * external_ext_size; for (; ext_ptr < ext_end; ext_ptr += external_ext_size, sym_hash++) { EXTR esym; boolean skip; bfd_vma value; asection *section; const char *name; struct ecoff_link_hash_entry *h; *sym_hash = NULL; (*swap_ext_in) (abfd, (PTR) ext_ptr, &esym); /* Skip debugging symbols. */ skip = false; switch (esym.asym.st) { case stGlobal: case stStatic: case stLabel: case stProc: case stStaticProc: break; default: skip = true; break; } if (skip) continue; /* Get the information for this symbol. */ value = esym.asym.value; switch (esym.asym.sc) { default: case scNil: case scRegister: case scCdbLocal: case scBits: case scCdbSystem: case scRegImage: case scInfo: case scUserStruct: case scVar: case scVarRegister: case scVariant: case scBasedVar: case scXData: case scPData: section = NULL; break; case scText: section = bfd_make_section_old_way (abfd, ".text"); value -= section->vma; break; case scData: section = bfd_make_section_old_way (abfd, ".data"); value -= section->vma; break; case scBss: section = bfd_make_section_old_way (abfd, ".bss"); value -= section->vma; break; case scAbs: section = bfd_abs_section_ptr; break; case scUndefined: section = bfd_und_section_ptr; break; case scSData: section = bfd_make_section_old_way (abfd, ".sdata"); value -= section->vma; break; case scSBss: section = bfd_make_section_old_way (abfd, ".sbss"); value -= section->vma; break; case scRData: section = bfd_make_section_old_way (abfd, ".rdata"); value -= section->vma; break; case scCommon: if (value > ecoff_data (abfd)->gp_size) { section = bfd_com_section_ptr; break; } /* Fall through. */ case scSCommon: if (ecoff_scom_section.name == NULL) { /* Initialize the small common section. */ ecoff_scom_section.name = SCOMMON; ecoff_scom_section.flags = SEC_IS_COMMON; ecoff_scom_section.output_section = &ecoff_scom_section; ecoff_scom_section.symbol = &ecoff_scom_symbol; ecoff_scom_section.symbol_ptr_ptr = &ecoff_scom_symbol_ptr; ecoff_scom_symbol.name = SCOMMON; ecoff_scom_symbol.flags = BSF_SECTION_SYM; ecoff_scom_symbol.section = &ecoff_scom_section; ecoff_scom_symbol_ptr = &ecoff_scom_symbol; } section = &ecoff_scom_section; break; case scSUndefined: section = bfd_und_section_ptr; break; case scInit: section = bfd_make_section_old_way (abfd, ".init"); value -= section->vma; break; case scFini: section = bfd_make_section_old_way (abfd, ".fini"); value -= section->vma; break; } if (section == (asection *) NULL) continue; name = ssext + esym.asym.iss; h = NULL; if (! (_bfd_generic_link_add_one_symbol (info, abfd, name, BSF_GLOBAL, section, value, (const char *) NULL, true, true, (struct bfd_link_hash_entry **) &h))) return false; *sym_hash = h; /* If we are building an ECOFF hash table, save the external symbol information. */ if (info->hash->creator->flavour == bfd_get_flavour (abfd)) { if (h->abfd == (bfd *) NULL || (! bfd_is_und_section (section) && (! bfd_is_com_section (section) || h->root.type != bfd_link_hash_defined))) { h->abfd = abfd; h->esym = esym; } /* Remember whether this symbol was small undefined. */ if (esym.asym.sc == scSUndefined) h->small = 1; /* If this symbol was ever small undefined, it needs to wind up in a GP relative section. We can't control the section of a defined symbol, but we can control the section of a common symbol. This case is actually needed on Ultrix 4.2 to handle the symbol cred in -lckrb. */ if (h->small && h->root.type == bfd_link_hash_common && strcmp (h->root.u.c.section->name, SCOMMON) != 0) { h->root.u.c.section = bfd_make_section_old_way (abfd, SCOMMON); h->root.u.c.section->flags = SEC_ALLOC; if (h->esym.asym.sc == scCommon) h->esym.asym.sc = scSCommon; } } } return true; } /* ECOFF final link routines. */ static boolean ecoff_final_link_debug_accumulate PARAMS ((bfd *output_bfd, bfd *input_bfd, struct bfd_link_info *, PTR handle)); static boolean ecoff_link_write_external PARAMS ((struct ecoff_link_hash_entry *, PTR)); static boolean ecoff_indirect_link_order PARAMS ((bfd *, struct bfd_link_info *, asection *, struct bfd_link_order *)); static boolean ecoff_reloc_link_order PARAMS ((bfd *, struct bfd_link_info *, asection *, struct bfd_link_order *)); /* ECOFF final link routine. This looks through all the input BFDs and gathers together all the debugging information, and then processes all the link order information. This may cause it to close and reopen some input BFDs; I'll see how bad this is. */ boolean _bfd_ecoff_bfd_final_link (abfd, info) bfd *abfd; struct bfd_link_info *info; { const struct ecoff_backend_data * const backend = ecoff_backend (abfd); struct ecoff_debug_info * const debug = &ecoff_data (abfd)->debug_info; HDRR *symhdr; PTR handle; register bfd *input_bfd; asection *o; struct bfd_link_order *p; /* We accumulate the debugging information counts in the symbolic header. */ symhdr = &debug->symbolic_header; symhdr->vstamp = 0; symhdr->ilineMax = 0; symhdr->cbLine = 0; symhdr->idnMax = 0; symhdr->ipdMax = 0; symhdr->isymMax = 0; symhdr->ioptMax = 0; symhdr->iauxMax = 0; symhdr->issMax = 0; symhdr->issExtMax = 0; symhdr->ifdMax = 0; symhdr->crfd = 0; symhdr->iextMax = 0; /* We accumulate the debugging information itself in the debug_info structure. */ debug->line = NULL; debug->external_dnr = NULL; debug->external_pdr = NULL; debug->external_sym = NULL; debug->external_opt = NULL; debug->external_aux = NULL; debug->ss = NULL; debug->ssext = debug->ssext_end = NULL; debug->external_fdr = NULL; debug->external_rfd = NULL; debug->external_ext = debug->external_ext_end = NULL; handle = bfd_ecoff_debug_init (abfd, debug, &backend->debug_swap, info); if (handle == (PTR) NULL) return false; /* Accumulate the debugging symbols from each input BFD. */ for (input_bfd = info->input_bfds; input_bfd != (bfd *) NULL; input_bfd = input_bfd->link_next) { boolean ret; if (bfd_get_flavour (input_bfd) == bfd_target_ecoff_flavour) { /* Abitrarily set the symbolic header vstamp to the vstamp of the first object file in the link. */ if (symhdr->vstamp == 0) symhdr->vstamp = ecoff_data (input_bfd)->debug_info.symbolic_header.vstamp; ret = ecoff_final_link_debug_accumulate (abfd, input_bfd, info, handle); } else ret = bfd_ecoff_debug_accumulate_other (handle, abfd, debug, &backend->debug_swap, input_bfd, info); if (! ret) return false; /* Combine the register masks. */ ecoff_data (abfd)->gprmask |= ecoff_data (input_bfd)->gprmask; ecoff_data (abfd)->fprmask |= ecoff_data (input_bfd)->fprmask; ecoff_data (abfd)->cprmask[0] |= ecoff_data (input_bfd)->cprmask[0]; ecoff_data (abfd)->cprmask[1] |= ecoff_data (input_bfd)->cprmask[1]; ecoff_data (abfd)->cprmask[2] |= ecoff_data (input_bfd)->cprmask[2]; ecoff_data (abfd)->cprmask[3] |= ecoff_data (input_bfd)->cprmask[3]; } /* Write out the external symbols. */ ecoff_link_hash_traverse (ecoff_hash_table (info), ecoff_link_write_external, (PTR) abfd); if (info->relocateable) { /* We need to make a pass over the link_orders to count up the number of relocations we will need to output, so that we know how much space they will take up. */ for (o = abfd->sections; o != (asection *) NULL; o = o->next) { o->reloc_count = 0; for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) if (p->type == bfd_indirect_link_order) o->reloc_count += p->u.indirect.section->reloc_count; else if (p->type == bfd_section_reloc_link_order || p->type == bfd_symbol_reloc_link_order) ++o->reloc_count; } } /* Compute the reloc and symbol file positions. */ ecoff_compute_reloc_file_positions (abfd); /* Write out the debugging information. */ if (! bfd_ecoff_write_accumulated_debug (handle, abfd, debug, &backend->debug_swap, info, ecoff_data (abfd)->sym_filepos)) return false; bfd_ecoff_debug_free (handle, abfd, debug, &backend->debug_swap, info); if (info->relocateable) { /* Now reset the reloc_count field of the sections in the output BFD to 0, so that we can use them to keep track of how many relocs we have output thus far. */ for (o = abfd->sections; o != (asection *) NULL; o = o->next) o->reloc_count = 0; } /* Get a value for the GP register. */ if (ecoff_data (abfd)->gp == 0) { struct bfd_link_hash_entry *h; h = bfd_link_hash_lookup (info->hash, "_gp", false, false, true); if (h != (struct bfd_link_hash_entry *) NULL && h->type == bfd_link_hash_defined) ecoff_data (abfd)->gp = (h->u.def.value + h->u.def.section->output_section->vma + h->u.def.section->output_offset); else if (info->relocateable) { bfd_vma lo; /* Make up a value. */ lo = (bfd_vma) -1; for (o = abfd->sections; o != (asection *) NULL; o = o->next) { if (o->vma < lo && (strcmp (o->name, _SBSS) == 0 || strcmp (o->name, _SDATA) == 0 || strcmp (o->name, _LIT4) == 0 || strcmp (o->name, _LIT8) == 0 || strcmp (o->name, _LITA) == 0)) lo = o->vma; } ecoff_data (abfd)->gp = lo + 0x8000; } else { /* If the relocate_section function needs to do a reloc involving the GP value, it should make a reloc_dangerous callback to warn that GP is not defined. */ } } for (o = abfd->sections; o != (asection *) NULL; o = o->next) { for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) { if (p->type == bfd_indirect_link_order && (bfd_get_flavour (p->u.indirect.section->owner) == bfd_target_ecoff_flavour)) { if (! ecoff_indirect_link_order (abfd, info, o, p)) return false; } else if (p->type == bfd_section_reloc_link_order || p->type == bfd_symbol_reloc_link_order) { if (! ecoff_reloc_link_order (abfd, info, o, p)) return false; } else { if (! _bfd_default_link_order (abfd, info, o, p)) return false; } } } bfd_get_symcount (abfd) = symhdr->iextMax + symhdr->isymMax; ecoff_data (abfd)->linker = true; return true; } /* Accumulate the debugging information for an input BFD into the output BFD. This must read in the symbolic information of the input BFD. */ static boolean ecoff_final_link_debug_accumulate (output_bfd, input_bfd, info, handle) bfd *output_bfd; bfd *input_bfd; struct bfd_link_info *info; PTR handle; { struct ecoff_debug_info * const debug = &ecoff_data (input_bfd)->debug_info; const struct ecoff_debug_swap * const swap = &ecoff_backend (input_bfd)->debug_swap; HDRR *symhdr = &debug->symbolic_header; boolean ret; #define READ(ptr, offset, count, size, type) \ if (symhdr->count == 0) \ debug->ptr = NULL; \ else \ { \ debug->ptr = (type) malloc (size * symhdr->count); \ if (debug->ptr == NULL) \ { \ bfd_set_error (bfd_error_no_memory); \ ret = false; \ goto return_something; \ } \ if ((bfd_seek (input_bfd, (file_ptr) symhdr->offset, SEEK_SET) \ != 0) \ || (bfd_read (debug->ptr, size, symhdr->count, \ input_bfd) != size * symhdr->count)) \ { \ ret = false; \ goto return_something; \ } \ } /* If raw_syments is not NULL, then the data was already by read by _bfd_ecoff_slurp_symbolic_info. */ if (ecoff_data (input_bfd)->raw_syments == NULL) { READ (line, cbLineOffset, cbLine, sizeof (unsigned char), unsigned char *); READ (external_dnr, cbDnOffset, idnMax, swap->external_dnr_size, PTR); READ (external_pdr, cbPdOffset, ipdMax, swap->external_pdr_size, PTR); READ (external_sym, cbSymOffset, isymMax, swap->external_sym_size, PTR); READ (external_opt, cbOptOffset, ioptMax, swap->external_opt_size, PTR); READ (external_aux, cbAuxOffset, iauxMax, sizeof (union aux_ext), union aux_ext *); READ (ss, cbSsOffset, issMax, sizeof (char), char *); READ (external_fdr, cbFdOffset, ifdMax, swap->external_fdr_size, PTR); READ (external_rfd, cbRfdOffset, crfd, swap->external_rfd_size, PTR); } #undef READ /* We do not read the external strings or the external symbols. */ ret = (bfd_ecoff_debug_accumulate (handle, output_bfd, &ecoff_data (output_bfd)->debug_info, &ecoff_backend (output_bfd)->debug_swap, input_bfd, debug, swap, info)); return_something: if (ecoff_data (input_bfd)->raw_syments == NULL) { if (debug->line != NULL) free (debug->line); if (debug->external_dnr != NULL) free (debug->external_dnr); if (debug->external_pdr != NULL) free (debug->external_pdr); if (debug->external_sym != NULL) free (debug->external_sym); if (debug->external_opt != NULL) free (debug->external_opt); if (debug->external_aux != NULL) free (debug->external_aux); if (debug->ss != NULL) free (debug->ss); if (debug->external_fdr != NULL) free (debug->external_fdr); if (debug->external_rfd != NULL) free (debug->external_rfd); /* Make sure we don't accidentally follow one of these pointers into freed memory. */ debug->line = NULL; debug->external_dnr = NULL; debug->external_pdr = NULL; debug->external_sym = NULL; debug->external_opt = NULL; debug->external_aux = NULL; debug->ss = NULL; debug->external_fdr = NULL; debug->external_rfd = NULL; } return ret; } /* Put out information for an external symbol. These come only from the hash table. */ static boolean ecoff_link_write_external (h, data) struct ecoff_link_hash_entry *h; PTR data; { bfd *output_bfd = (bfd *) data; /* FIXME: We should check if this symbol is being stripped. */ if (h->written) return true; if (h->abfd == (bfd *) NULL) { h->esym.jmptbl = 0; h->esym.cobol_main = 0; h->esym.weakext = 0; h->esym.reserved = 0; h->esym.ifd = ifdNil; h->esym.asym.value = 0; h->esym.asym.st = stGlobal; if (h->root.type != bfd_link_hash_defined) h->esym.asym.sc = scAbs; else { asection *output_section; const char *name; output_section = h->root.u.def.section->output_section; name = bfd_section_name (output_section->owner, output_section); if (strcmp (name, _TEXT) == 0) h->esym.asym.sc = scText; else if (strcmp (name, _DATA) == 0) h->esym.asym.sc = scData; else if (strcmp (name, _SDATA) == 0) h->esym.asym.sc = scSData; else if (strcmp (name, _RDATA) == 0) h->esym.asym.sc = scRData; else if (strcmp (name, _BSS) == 0) h->esym.asym.sc = scBss; else if (strcmp (name, _SBSS) == 0) h->esym.asym.sc = scSBss; else if (strcmp (name, _INIT) == 0) h->esym.asym.sc = scInit; else if (strcmp (name, _FINI) == 0) h->esym.asym.sc = scFini; else if (strcmp (name, _PDATA) == 0) h->esym.asym.sc = scPData; else if (strcmp (name, _XDATA) == 0) h->esym.asym.sc = scXData; else h->esym.asym.sc = scAbs; } h->esym.asym.reserved = 0; h->esym.asym.index = indexNil; } else if (h->esym.ifd != -1) { struct ecoff_debug_info *debug; /* Adjust the FDR index for the symbol by that used for the input BFD. */ debug = &ecoff_data (h->abfd)->debug_info; BFD_ASSERT (h->esym.ifd >= 0 && h->esym.ifd < debug->symbolic_header.ifdMax); h->esym.ifd = debug->ifdmap[h->esym.ifd]; } switch (h->root.type) { default: case bfd_link_hash_new: abort (); case bfd_link_hash_undefined: case bfd_link_hash_weak: if (h->esym.asym.sc != scUndefined && h->esym.asym.sc != scSUndefined) h->esym.asym.sc = scUndefined; break; case bfd_link_hash_defined: if (h->esym.asym.sc == scUndefined || h->esym.asym.sc == scSUndefined) h->esym.asym.sc = scAbs; else if (h->esym.asym.sc == scCommon) h->esym.asym.sc = scBss; else if (h->esym.asym.sc == scSCommon) h->esym.asym.sc = scSBss; h->esym.asym.value = (h->root.u.def.value + h->root.u.def.section->output_section->vma + h->root.u.def.section->output_offset); break; case bfd_link_hash_common: if (h->esym.asym.sc != scCommon && h->esym.asym.sc != scSCommon) h->esym.asym.sc = scCommon; h->esym.asym.value = h->root.u.c.size; break; case bfd_link_hash_indirect: case bfd_link_hash_warning: /* FIXME: Ignore these for now. The circumstances under which they should be written out are not clear to me. */ return true; } /* bfd_ecoff_debug_one_external uses iextMax to keep track of the symbol number. */ h->indx = ecoff_data (output_bfd)->debug_info.symbolic_header.iextMax; h->written = 1; return (bfd_ecoff_debug_one_external (output_bfd, &ecoff_data (output_bfd)->debug_info, &ecoff_backend (output_bfd)->debug_swap, h->root.root.string, &h->esym)); } /* Relocate and write an ECOFF section into an ECOFF output file. */ static boolean ecoff_indirect_link_order (output_bfd, info, output_section, link_order) bfd *output_bfd; struct bfd_link_info *info; asection *output_section; struct bfd_link_order *link_order; { asection *input_section; bfd *input_bfd; struct ecoff_section_tdata *section_tdata; bfd_size_type raw_size; bfd_size_type cooked_size; bfd_byte *contents = NULL; bfd_size_type external_reloc_size; bfd_size_type external_relocs_size; PTR external_relocs = NULL; BFD_ASSERT ((output_section->flags & SEC_HAS_CONTENTS) != 0); if (link_order->size == 0) return true; input_section = link_order->u.indirect.section; input_bfd = input_section->owner; section_tdata = ecoff_section_data (input_bfd, input_section); raw_size = input_section->_raw_size; cooked_size = input_section->_cooked_size; if (cooked_size == 0) cooked_size = raw_size; BFD_ASSERT (input_section->output_section == output_section); BFD_ASSERT (input_section->output_offset == link_order->offset); BFD_ASSERT (cooked_size == link_order->size); /* Get the section contents. We allocate memory for the larger of the size before relocating and the size after relocating. */ contents = (bfd_byte *) malloc (raw_size >= cooked_size ? raw_size : cooked_size); if (contents == NULL && raw_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* If we are relaxing, the contents may have already been read into memory, in which case we copy them into our new buffer. We don't simply reuse the old buffer in case cooked_size > raw_size. */ if (section_tdata != (struct ecoff_section_tdata *) NULL && section_tdata->contents != (bfd_byte *) NULL) memcpy (contents, section_tdata->contents, raw_size); else { if (! bfd_get_section_contents (input_bfd, input_section, (PTR) contents, (file_ptr) 0, raw_size)) goto error_return; } /* Get the relocs. If we are relaxing MIPS code, they will already have been read in. Otherwise, we read them in now. */ external_reloc_size = ecoff_backend (input_bfd)->external_reloc_size; external_relocs_size = external_reloc_size * input_section->reloc_count; if (section_tdata != (struct ecoff_section_tdata *) NULL) external_relocs = section_tdata->external_relocs; else { external_relocs = (PTR) malloc (external_relocs_size); if (external_relocs == NULL && external_relocs_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (input_bfd, input_section->rel_filepos, SEEK_SET) != 0 || (bfd_read (external_relocs, 1, external_relocs_size, input_bfd) != external_relocs_size)) goto error_return; } /* Relocate the section contents. */ if (! ((*ecoff_backend (input_bfd)->relocate_section) (output_bfd, info, input_bfd, input_section, contents, external_relocs))) goto error_return; /* Write out the relocated section. */ if (! bfd_set_section_contents (output_bfd, output_section, (PTR) contents, input_section->output_offset, cooked_size)) goto error_return; /* If we are producing relocateable output, the relocs were modified, and we write them out now. We use the reloc_count field of output_section to keep track of the number of relocs we have output so far. */ if (info->relocateable) { if (bfd_seek (output_bfd, (output_section->rel_filepos + output_section->reloc_count * external_reloc_size), SEEK_SET) != 0 || (bfd_write (external_relocs, 1, external_relocs_size, output_bfd) != external_relocs_size)) goto error_return; output_section->reloc_count += input_section->reloc_count; } if (contents != NULL) free (contents); if (external_relocs != NULL && section_tdata == NULL) free (external_relocs); return true; error_return: if (contents != NULL) free (contents); if (external_relocs != NULL && section_tdata == NULL) free (external_relocs); return false; } /* Generate a reloc when linking an ECOFF file. This is a reloc requested by the linker, and does come from any input file. This is used to build constructor and destructor tables when linking with -Ur. */ static boolean ecoff_reloc_link_order (output_bfd, info, output_section, link_order) bfd *output_bfd; struct bfd_link_info *info; asection *output_section; struct bfd_link_order *link_order; { arelent rel; struct internal_reloc in; bfd_size_type external_reloc_size; bfd_byte *rbuf; boolean ok; /* We set up an arelent to pass to the backend adjust_reloc_out routine. */ rel.address = link_order->offset; rel.howto = bfd_reloc_type_lookup (output_bfd, link_order->u.reloc.p->reloc); if (rel.howto == (const reloc_howto_type *) NULL) { bfd_set_error (bfd_error_bad_value); return false; } if (link_order->type == bfd_section_reloc_link_order) rel.sym_ptr_ptr = link_order->u.reloc.p->u.section->symbol_ptr_ptr; else { /* We can't set up a reloc against a symbol correctly, because we have no asymbol structure. Currently no adjust_reloc_out routine cases. */ rel.sym_ptr_ptr = (asymbol **) NULL; } /* All ECOFF relocs are in-place. Put the addend into the object file. */ BFD_ASSERT (rel.howto->partial_inplace); if (link_order->u.reloc.p->addend != 0) { bfd_size_type size; bfd_reloc_status_type rstat; bfd_byte *buf; boolean ok; size = bfd_get_reloc_size (rel.howto); buf = (bfd_byte *) bfd_zmalloc (size); if (buf == (bfd_byte *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } rstat = _bfd_relocate_contents (rel.howto, output_bfd, link_order->u.reloc.p->addend, buf); switch (rstat) { case bfd_reloc_ok: break; default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: if (! ((*info->callbacks->reloc_overflow) (info, (link_order->type == bfd_section_reloc_link_order ? bfd_section_name (output_bfd, link_order->u.reloc.p->u.section) : link_order->u.reloc.p->u.name), rel.howto->name, link_order->u.reloc.p->addend, (bfd *) NULL, (asection *) NULL, (bfd_vma) 0))) { free (buf); return false; } break; } ok = bfd_set_section_contents (output_bfd, output_section, (PTR) buf, (file_ptr) link_order->offset, size); free (buf); if (! ok) return false; } rel.addend = 0; /* Move the information into a internal_reloc structure. */ in.r_vaddr = (rel.address + bfd_get_section_vma (output_bfd, output_section)); in.r_type = rel.howto->type; if (link_order->type == bfd_symbol_reloc_link_order) { struct ecoff_link_hash_entry *h; h = ecoff_link_hash_lookup (ecoff_hash_table (info), link_order->u.reloc.p->u.name, false, false, true); if (h != (struct ecoff_link_hash_entry *) NULL && h->indx != -1) in.r_symndx = h->indx; else { if (! ((*info->callbacks->unattached_reloc) (info, link_order->u.reloc.p->u.name, (bfd *) NULL, (asection *) NULL, (bfd_vma) 0))) return false; in.r_symndx = 0; } in.r_extern = 1; } else { CONST char *name; name = bfd_get_section_name (output_bfd, link_order->u.reloc.p->u.section); if (strcmp (name, ".text") == 0) in.r_symndx = RELOC_SECTION_TEXT; else if (strcmp (name, ".rdata") == 0) in.r_symndx = RELOC_SECTION_RDATA; else if (strcmp (name, ".data") == 0) in.r_symndx = RELOC_SECTION_DATA; else if (strcmp (name, ".sdata") == 0) in.r_symndx = RELOC_SECTION_SDATA; else if (strcmp (name, ".sbss") == 0) in.r_symndx = RELOC_SECTION_SBSS; else if (strcmp (name, ".bss") == 0) in.r_symndx = RELOC_SECTION_BSS; else if (strcmp (name, ".init") == 0) in.r_symndx = RELOC_SECTION_INIT; else if (strcmp (name, ".lit8") == 0) in.r_symndx = RELOC_SECTION_LIT8; else if (strcmp (name, ".lit4") == 0) in.r_symndx = RELOC_SECTION_LIT4; else if (strcmp (name, ".xdata") == 0) in.r_symndx = RELOC_SECTION_XDATA; else if (strcmp (name, ".pdata") == 0) in.r_symndx = RELOC_SECTION_PDATA; else if (strcmp (name, ".fini") == 0) in.r_symndx = RELOC_SECTION_FINI; else if (strcmp (name, ".lita") == 0) in.r_symndx = RELOC_SECTION_LITA; else if (strcmp (name, "*ABS*") == 0) in.r_symndx = RELOC_SECTION_ABS; else abort (); in.r_extern = 0; } /* Let the BFD backend adjust the reloc. */ (*ecoff_backend (output_bfd)->adjust_reloc_out) (output_bfd, &rel, &in); /* Get some memory and swap out the reloc. */ external_reloc_size = ecoff_backend (output_bfd)->external_reloc_size; rbuf = (bfd_byte *) malloc (external_reloc_size); if (rbuf == (bfd_byte *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } (*ecoff_backend (output_bfd)->swap_reloc_out) (output_bfd, &in, (PTR) rbuf); ok = (bfd_seek (output_bfd, (output_section->rel_filepos + output_section->reloc_count * external_reloc_size), SEEK_SET) == 0 && (bfd_write ((PTR) rbuf, 1, external_reloc_size, output_bfd) == external_reloc_size)); if (ok) ++output_section->reloc_count; free (rbuf); return ok; } gdb-4.13/bfd/ecofflink.c 666 34562 1752 132431 5601614600 13436 0ustar fnfcygnus/* Routines to link ECOFF debugging information. Copyright 1993 Free Software Foundation, Inc. Written by Ian Lance Taylor, Cygnus Support, . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #include "obstack.h" #include "coff/internal.h" #include "coff/sym.h" #include "coff/symconst.h" #include "coff/ecoff.h" static boolean ecoff_add_bytes PARAMS ((char **buf, char **bufend, size_t need)); static struct bfd_hash_entry *string_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); static void ecoff_align_debug PARAMS ((bfd *abfd, struct ecoff_debug_info *debug, const struct ecoff_debug_swap *swap)); static boolean ecoff_write_symhdr PARAMS ((bfd *, struct ecoff_debug_info *, const struct ecoff_debug_swap *, file_ptr where)); /* Obstack allocation and deallocation routines. */ #define obstack_chunk_alloc malloc #define obstack_chunk_free free /* The minimum amount of data to allocate. */ #define ALLOC_SIZE (4064) /* Add bytes to a buffer. Return success. */ static boolean ecoff_add_bytes (buf, bufend, need) char **buf; char **bufend; size_t need; { size_t have; size_t want; char *newbuf; have = *bufend - *buf; if (have > need) want = ALLOC_SIZE; else { want = need - have; if (want < ALLOC_SIZE) want = ALLOC_SIZE; } if (*buf == NULL) newbuf = (char *) malloc (have + want); else newbuf = (char *) realloc (*buf, have + want); if (newbuf == NULL) { bfd_set_error (bfd_error_no_memory); return false; } *buf = newbuf; *bufend = *buf + have + want; return true; } /* We keep a hash table which maps strings to numbers. We use it to map FDR names to indices in the output file, and to map local strings when combining stabs debugging information. */ struct string_hash_entry { struct bfd_hash_entry root; /* FDR index or string table offset. */ long val; /* Next entry in string table. */ struct string_hash_entry *next; }; struct string_hash_table { struct bfd_hash_table table; }; /* Routine to create an entry in a string hash table. */ static struct bfd_hash_entry * string_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct string_hash_entry *ret = (struct string_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct string_hash_entry *) NULL) ret = ((struct string_hash_entry *) bfd_hash_allocate (table, sizeof (struct string_hash_entry))); if (ret == (struct string_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Call the allocation method of the superclass. */ ret = ((struct string_hash_entry *) bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret) { /* Initialize the local fields. */ ret->val = -1; ret->next = NULL; } return (struct bfd_hash_entry *) ret; } /* Look up an entry in an string hash table. */ #define string_hash_lookup(t, string, create, copy) \ ((struct string_hash_entry *) \ bfd_hash_lookup (&(t)->table, (string), (create), (copy))) /* We can't afford to read in all the debugging information when we do a link. Instead, we build a list of these structures to show how different parts of the input file map to the output file. */ struct shuffle { /* The next entry in this linked list. */ struct shuffle *next; /* The length of the information. */ unsigned long size; /* Whether this information comes from a file or not. */ boolean filep; union { struct { /* The BFD the data comes from. */ bfd *input_bfd; /* The offset within input_bfd. */ file_ptr offset; } file; /* The data to be written out. */ PTR memory; } u; }; /* This structure holds information across calls to bfd_ecoff_debug_accumulate. */ struct accumulate { /* The FDR hash table. */ struct string_hash_table fdr_hash; /* The strings hash table. */ struct string_hash_table str_hash; /* Linked lists describing how to shuffle the input debug information into the output file. We keep a pointer to both the head and the tail. */ struct shuffle *line; struct shuffle *line_end; struct shuffle *pdr; struct shuffle *pdr_end; struct shuffle *sym; struct shuffle *sym_end; struct shuffle *opt; struct shuffle *opt_end; struct shuffle *aux; struct shuffle *aux_end; struct shuffle *ss; struct shuffle *ss_end; struct string_hash_entry *ss_hash; struct string_hash_entry *ss_hash_end; struct shuffle *fdr; struct shuffle *fdr_end; struct shuffle *rfd; struct shuffle *rfd_end; /* The size of the largest file shuffle. */ unsigned long largest_file_shuffle; /* An obstack for debugging information. */ struct obstack memory; }; /* Add a file entry to a shuffle list. */ static boolean add_file_shuffle PARAMS ((struct accumulate *, struct shuffle **, struct shuffle **, bfd *, file_ptr, unsigned long)); static boolean add_file_shuffle (ainfo, head, tail, input_bfd, offset, size) struct accumulate *ainfo; struct shuffle **head; struct shuffle **tail; bfd *input_bfd; file_ptr offset; unsigned long size; { struct shuffle *n; if (*tail != (struct shuffle *) NULL && (*tail)->filep && (*tail)->u.file.input_bfd == input_bfd && (*tail)->u.file.offset + (*tail)->size == offset) { /* Just merge this entry onto the existing one. */ (*tail)->size += size; if ((*tail)->size > ainfo->largest_file_shuffle) ainfo->largest_file_shuffle = (*tail)->size; return true; } n = (struct shuffle *) obstack_alloc (&ainfo->memory, sizeof (struct shuffle)); if (!n) { bfd_set_error (bfd_error_no_memory); return false; } n->next = NULL; n->size = size; n->filep = true; n->u.file.input_bfd = input_bfd; n->u.file.offset = offset; if (*head == (struct shuffle *) NULL) *head = n; if (*tail != (struct shuffle *) NULL) (*tail)->next = n; *tail = n; if (size > ainfo->largest_file_shuffle) ainfo->largest_file_shuffle = size; return true; } /* Add a memory entry to a shuffle list. */ static boolean add_memory_shuffle PARAMS ((struct accumulate *, struct shuffle **head, struct shuffle **tail, bfd_byte *data, unsigned long size)); static boolean add_memory_shuffle (ainfo, head, tail, data, size) struct accumulate *ainfo; struct shuffle **head; struct shuffle **tail; bfd_byte *data; unsigned long size; { struct shuffle *n; n = (struct shuffle *) obstack_alloc (&ainfo->memory, sizeof (struct shuffle)); if (!n) { bfd_set_error (bfd_error_no_memory); return false; } n->next = NULL; n->size = size; n->filep = false; n->u.memory = (PTR) data; if (*head == (struct shuffle *) NULL) *head = n; if (*tail != (struct shuffle *) NULL) (*tail)->next = n; *tail = n; return true; } /* Initialize the FDR hash table. This returns a handle which is then passed in to bfd_ecoff_debug_accumulate, et. al. */ /*ARGSUSED*/ PTR bfd_ecoff_debug_init (output_bfd, output_debug, output_swap, info) bfd *output_bfd; struct ecoff_debug_info *output_debug; const struct ecoff_debug_swap *output_swap; struct bfd_link_info *info; { struct accumulate *ainfo; ainfo = (struct accumulate *) malloc (sizeof (struct accumulate)); if (!ainfo) { bfd_set_error (bfd_error_no_memory); return NULL; } if (! bfd_hash_table_init_n (&ainfo->fdr_hash.table, string_hash_newfunc, 1021)) return NULL; ainfo->line = NULL; ainfo->line_end = NULL; ainfo->pdr = NULL; ainfo->pdr_end = NULL; ainfo->sym = NULL; ainfo->sym_end = NULL; ainfo->opt = NULL; ainfo->opt_end = NULL; ainfo->aux = NULL; ainfo->aux_end = NULL; ainfo->ss = NULL; ainfo->ss_end = NULL; ainfo->ss_hash = NULL; ainfo->ss_hash_end = NULL; ainfo->fdr = NULL; ainfo->fdr_end = NULL; ainfo->rfd = NULL; ainfo->rfd_end = NULL; ainfo->largest_file_shuffle = 0; if (! info->relocateable) { if (! bfd_hash_table_init (&ainfo->str_hash.table, string_hash_newfunc)) return NULL; /* The first entry in the string table is the empty string. */ output_debug->symbolic_header.issMax = 1; } if (!obstack_begin (&ainfo->memory, 4050)) { bfd_set_error (bfd_error_no_memory); return NULL; } return (PTR) ainfo; } /* Free the accumulated debugging information. */ /*ARGSUSED*/ void bfd_ecoff_debug_free (handle, output_bfd, output_debug, output_swap, info) PTR handle; bfd *output_bfd; struct ecoff_debug_info *output_debug; const struct ecoff_debug_swap *output_swap; struct bfd_link_info *info; { struct accumulate *ainfo = (struct accumulate *) handle; bfd_hash_table_free (&ainfo->fdr_hash.table); if (! info->relocateable) bfd_hash_table_free (&ainfo->str_hash.table); obstack_free (&ainfo->memory, (PTR) NULL); free (ainfo); } /* Accumulate the debugging information from INPUT_BFD into OUTPUT_BFD. The INPUT_DEBUG argument points to some ECOFF debugging information which we want to link into the information pointed to by the OUTPUT_DEBUG argument. OUTPUT_SWAP and INPUT_SWAP point to the swapping information needed. INFO is the linker information structure. HANDLE is returned by bfd_ecoff_debug_init. */ /*ARGSUSED*/ boolean bfd_ecoff_debug_accumulate (handle, output_bfd, output_debug, output_swap, input_bfd, input_debug, input_swap, info) PTR handle; bfd *output_bfd; struct ecoff_debug_info *output_debug; const struct ecoff_debug_swap *output_swap; bfd *input_bfd; struct ecoff_debug_info *input_debug; const struct ecoff_debug_swap *input_swap; struct bfd_link_info *info; { struct accumulate *ainfo = (struct accumulate *) handle; void (* const swap_sym_in) PARAMS ((bfd *, PTR, SYMR *)) = input_swap->swap_sym_in; void (* const swap_rfd_in) PARAMS ((bfd *, PTR, RFDT *)) = input_swap->swap_rfd_in; void (* const swap_sym_out) PARAMS ((bfd *, const SYMR *, PTR)) = output_swap->swap_sym_out; void (* const swap_fdr_out) PARAMS ((bfd *, const FDR *, PTR)) = output_swap->swap_fdr_out; void (* const swap_rfd_out) PARAMS ((bfd *, const RFDT *, PTR)) = output_swap->swap_rfd_out; bfd_size_type external_pdr_size = output_swap->external_pdr_size; bfd_size_type external_sym_size = output_swap->external_sym_size; bfd_size_type external_opt_size = output_swap->external_opt_size; bfd_size_type external_fdr_size = output_swap->external_fdr_size; bfd_size_type external_rfd_size = output_swap->external_rfd_size; HDRR * const output_symhdr = &output_debug->symbolic_header; HDRR * const input_symhdr = &input_debug->symbolic_header; bfd_vma section_adjust[scMax]; asection *sec; bfd_byte *fdr_start; bfd_byte *fdr_ptr; bfd_byte *fdr_end; bfd_size_type fdr_add; unsigned int copied; RFDT i; unsigned long sz; bfd_byte *rfd_out; bfd_byte *rfd_in; bfd_byte *rfd_end; long newrfdbase = 0; long oldrfdbase = 0; bfd_byte *fdr_out; /* Use section_adjust to hold the value to add to a symbol in a particular section. */ memset ((PTR) section_adjust, 0, sizeof section_adjust); #define SET(name, indx) \ sec = bfd_get_section_by_name (input_bfd, name); \ if (sec != NULL) \ section_adjust[indx] = (sec->output_section->vma \ + sec->output_offset \ - sec->vma); SET (".text", scText); SET (".data", scData); SET (".bss", scBss); SET (".sdata", scSData); SET (".sbss", scSBss); /* scRdata section may be either .rdata or .rodata. */ SET (".rdata", scRData); SET (".rodata", scRData); SET (".init", scInit); SET (".fini", scFini); #undef SET /* Find all the debugging information based on the FDR's. We need to handle them whether they are swapped or not. */ if (input_debug->fdr != (FDR *) NULL) { fdr_start = (bfd_byte *) input_debug->fdr; fdr_add = sizeof (FDR); } else { fdr_start = (bfd_byte *) input_debug->external_fdr; fdr_add = input_swap->external_fdr_size; } fdr_end = fdr_start + input_symhdr->ifdMax * fdr_add; input_debug->ifdmap = (RFDT *) bfd_alloc (input_bfd, (input_symhdr->ifdMax * sizeof (RFDT))); sz = (input_symhdr->crfd + input_symhdr->ifdMax) * external_rfd_size; rfd_out = (bfd_byte *) obstack_alloc (&ainfo->memory, sz); if (!input_debug->ifdmap || !rfd_out) { bfd_set_error (bfd_error_no_memory); return false; } if (!add_memory_shuffle (ainfo, &ainfo->rfd, &ainfo->rfd_end, rfd_out, sz)) return false; copied = 0; /* Look through the FDR's to see which ones we are going to include in the final output. We do not want duplicate FDR information for header files, because ECOFF debugging is often very large. When we find an FDR with no line information which can be merged, we look it up in a hash table to ensure that we only include it once. We keep a table mapping FDR numbers to the final number they get with the BFD, so that we can refer to it when we write out the external symbols. */ for (fdr_ptr = fdr_start, i = 0; fdr_ptr < fdr_end; fdr_ptr += fdr_add, i++, rfd_out += external_rfd_size) { FDR fdr; if (input_debug->fdr != (FDR *) NULL) fdr = *(FDR *) fdr_ptr; else (*input_swap->swap_fdr_in) (input_bfd, (PTR) fdr_ptr, &fdr); /* See if this FDR can be merged with an existing one. */ if (fdr.cbLine == 0 && fdr.rss != -1 && fdr.fMerge) { const char *name; char *lookup; struct string_hash_entry *fh; /* We look up a string formed from the file name and the number of symbols. Sometimes an include file will conditionally define a typedef or something based on the order of include files. Using the number of symbols as a hash reduces the chance that we will merge symbol information that should not be merged. */ name = input_debug->ss + fdr.issBase + fdr.rss; lookup = (char *) malloc (strlen (name) + 20); if (lookup == NULL) { bfd_set_error (bfd_error_no_memory); return false; } sprintf (lookup, "%s %lx", name, fdr.csym); fh = string_hash_lookup (&ainfo->fdr_hash, lookup, true, true); free (lookup); if (fh == (struct string_hash_entry *) NULL) return false; if (fh->val != -1) { input_debug->ifdmap[i] = fh->val; (*swap_rfd_out) (output_bfd, input_debug->ifdmap + i, (PTR) rfd_out); /* Don't copy this FDR. */ continue; } fh->val = output_symhdr->ifdMax + copied; } input_debug->ifdmap[i] = output_symhdr->ifdMax + copied; (*swap_rfd_out) (output_bfd, input_debug->ifdmap + i, (PTR) rfd_out); ++copied; } newrfdbase = output_symhdr->crfd; output_symhdr->crfd += input_symhdr->ifdMax; /* Copy over any existing RFD's. RFD's are only created by the linker, so this will only happen for input files which are the result of a partial link. */ rfd_in = (bfd_byte *) input_debug->external_rfd; rfd_end = rfd_in + input_symhdr->crfd * input_swap->external_rfd_size; for (; rfd_in < rfd_end; rfd_in += input_swap->external_rfd_size) { RFDT rfd; (*swap_rfd_in) (input_bfd, (PTR) rfd_in, &rfd); BFD_ASSERT (rfd >= 0 && rfd < input_symhdr->ifdMax); rfd = input_debug->ifdmap[rfd]; (*swap_rfd_out) (output_bfd, &rfd, (PTR) rfd_out); rfd_out += external_rfd_size; } oldrfdbase = output_symhdr->crfd; output_symhdr->crfd += input_symhdr->crfd; /* Look through the FDR's and copy over all associated debugging information. */ sz = copied * external_fdr_size; fdr_out = (bfd_byte *) obstack_alloc (&ainfo->memory, sz); if (!fdr_out) { bfd_set_error (bfd_error_no_memory); return false; } if (!add_memory_shuffle (ainfo, &ainfo->fdr, &ainfo->fdr_end, fdr_out, sz)) return false; for (fdr_ptr = fdr_start, i = 0; fdr_ptr < fdr_end; fdr_ptr += fdr_add, i++) { FDR fdr; bfd_vma fdr_adr; bfd_byte *sym_out; bfd_byte *lraw_src; bfd_byte *lraw_end; boolean fgotfilename; if (input_debug->ifdmap[i] < output_symhdr->ifdMax) { /* We are not copying this FDR. */ continue; } if (input_debug->fdr != (FDR *) NULL) fdr = *(FDR *) fdr_ptr; else (*input_swap->swap_fdr_in) (input_bfd, (PTR) fdr_ptr, &fdr); fdr_adr = fdr.adr; /* Adjust the FDR address for any changes that may have been made by relaxing. */ if (input_debug->adjust != (struct ecoff_value_adjust *) NULL) { struct ecoff_value_adjust *adjust; for (adjust = input_debug->adjust; adjust != (struct ecoff_value_adjust *) NULL; adjust = adjust->next) if (fdr_adr >= adjust->start && fdr_adr < adjust->end) fdr.adr += adjust->adjust; } /* FIXME: It is conceivable that this FDR points to the .init or .fini section, in which case this will not do the right thing. */ fdr.adr += section_adjust[scText]; /* Swap in the local symbols, adjust their values, and swap them out again. */ fgotfilename = false; sz = fdr.csym * external_sym_size; sym_out = (bfd_byte *) obstack_alloc (&ainfo->memory, sz); if (!sym_out) { bfd_set_error (bfd_error_no_memory); return false; } if (!add_memory_shuffle (ainfo, &ainfo->sym, &ainfo->sym_end, sym_out, sz)) return false; lraw_src = ((bfd_byte *) input_debug->external_sym + fdr.isymBase * input_swap->external_sym_size); lraw_end = lraw_src + fdr.csym * input_swap->external_sym_size; for (; lraw_src < lraw_end; lraw_src += input_swap->external_sym_size) { SYMR internal_sym; (*swap_sym_in) (input_bfd, (PTR) lraw_src, &internal_sym); BFD_ASSERT (internal_sym.sc != scCommon && internal_sym.sc != scSCommon); /* Adjust the symbol value if appropriate. */ switch (internal_sym.st) { case stNil: if (ECOFF_IS_STAB (&internal_sym)) break; /* Fall through. */ case stGlobal: case stStatic: case stLabel: case stProc: case stStaticProc: if (input_debug->adjust != (struct ecoff_value_adjust *) NULL) { bfd_vma value; struct ecoff_value_adjust *adjust; value = internal_sym.value; for (adjust = input_debug->adjust; adjust != (struct ecoff_value_adjust *) NULL; adjust = adjust->next) if (value >= adjust->start && value < adjust->end) internal_sym.value += adjust->adjust; } internal_sym.value += section_adjust[internal_sym.sc]; break; default: break; } /* If we are doing a final link, we hash all the strings in the local symbol table together. This reduces the amount of space required by debugging information. We don't do this when performing a relocateable link because it would prevent us from easily merging different FDR's. */ if (! info->relocateable) { boolean ffilename; const char *name; if (! fgotfilename && internal_sym.iss == fdr.rss) ffilename = true; else ffilename = false; /* Hash the name into the string table. */ name = input_debug->ss + fdr.issBase + internal_sym.iss; if (*name == '\0') internal_sym.iss = 0; else { struct string_hash_entry *sh; sh = string_hash_lookup (&ainfo->str_hash, name, true, true); if (sh == (struct string_hash_entry *) NULL) return false; if (sh->val == -1) { sh->val = output_symhdr->issMax; output_symhdr->issMax += strlen (name) + 1; if (ainfo->ss_hash == (struct string_hash_entry *) NULL) ainfo->ss_hash = sh; if (ainfo->ss_hash_end != (struct string_hash_entry *) NULL) ainfo->ss_hash_end->next = sh; ainfo->ss_hash_end = sh; } internal_sym.iss = sh->val; } if (ffilename) { fdr.rss = internal_sym.iss; fgotfilename = true; } } (*swap_sym_out) (output_bfd, &internal_sym, sym_out); sym_out += external_sym_size; } fdr.isymBase = output_symhdr->isymMax; output_symhdr->isymMax += fdr.csym; /* Copy the information that does not need swapping. */ /* FIXME: If we are relaxing, we need to adjust the line numbers. Frankly, forget it. Anybody using stabs debugging information will not use this line number information, and stabs are adjusted correctly. */ if (fdr.cbLine > 0) { if (!add_file_shuffle (ainfo, &ainfo->line, &ainfo->line_end, input_bfd, input_symhdr->cbLineOffset + fdr.cbLineOffset, fdr.cbLine)) return false; fdr.ilineBase = output_symhdr->ilineMax; fdr.cbLineOffset = output_symhdr->cbLine; output_symhdr->ilineMax += fdr.cline; output_symhdr->cbLine += fdr.cbLine; } if (fdr.caux > 0) { if (!add_file_shuffle (ainfo, &ainfo->aux, &ainfo->aux_end, input_bfd, (input_symhdr->cbAuxOffset + fdr.iauxBase * sizeof (union aux_ext)), fdr.caux * sizeof (union aux_ext))) return false; fdr.iauxBase = output_symhdr->iauxMax; output_symhdr->iauxMax += fdr.caux; } if (! info->relocateable) { /* When are are hashing strings, we lie about the number of strings attached to each FDR. We need to set cbSs because some versions of dbx apparently use it to decide how much of the string table to read in. */ fdr.issBase = 0; fdr.cbSs = output_symhdr->issMax; } else if (fdr.cbSs > 0) { if (!add_file_shuffle (ainfo, &ainfo->ss, &ainfo->ss_end, input_bfd, input_symhdr->cbSsOffset + fdr.issBase, fdr.cbSs)) return false; fdr.issBase = output_symhdr->issMax; output_symhdr->issMax += fdr.cbSs; } if ((output_bfd->xvec->header_byteorder_big_p == input_bfd->xvec->header_byteorder_big_p) && input_debug->adjust == (struct ecoff_value_adjust *) NULL) { /* The two BFD's have the same endianness, and we don't have to adjust the PDR addresses, so simply copying the information will suffice. */ BFD_ASSERT (external_pdr_size == input_swap->external_pdr_size); if (fdr.cpd > 0) { if (!add_file_shuffle (ainfo, &ainfo->pdr, &ainfo->pdr_end, input_bfd, (input_symhdr->cbPdOffset + fdr.ipdFirst * external_pdr_size), fdr.cpd * external_pdr_size)) return false; } BFD_ASSERT (external_opt_size == input_swap->external_opt_size); if (fdr.copt > 0) { if (!add_file_shuffle (ainfo, &ainfo->opt, &ainfo->opt_end, input_bfd, (input_symhdr->cbOptOffset + fdr.ioptBase * external_opt_size), fdr.copt * external_opt_size)) return false; } } else { bfd_size_type outsz, insz; bfd_byte *in; bfd_byte *end; bfd_byte *out; /* The two BFD's have different endianness, so we must swap everything in and out. This code would always work, but it would be unnecessarily slow in the normal case. */ outsz = external_pdr_size; insz = input_swap->external_pdr_size; in = ((bfd_byte *) input_debug->external_pdr + fdr.ipdFirst * insz); end = in + fdr.cpd * insz; sz = fdr.cpd * outsz; out = (bfd_byte *) obstack_alloc (&ainfo->memory, sz); if (!out) { bfd_set_error (bfd_error_no_memory); return false; } if (!add_memory_shuffle (ainfo, &ainfo->pdr, &ainfo->pdr_end, out, sz)) return false; for (; in < end; in += insz, out += outsz) { PDR pdr; (*input_swap->swap_pdr_in) (input_bfd, (PTR) in, &pdr); /* If we have been relaxing, we may have to adjust the address. */ if (input_debug->adjust != (struct ecoff_value_adjust *) NULL) { bfd_vma adr; struct ecoff_value_adjust *adjust; adr = fdr_adr + pdr.adr; for (adjust = input_debug->adjust; adjust != (struct ecoff_value_adjust *) NULL; adjust = adjust->next) if (adr >= adjust->start && adr < adjust->end) pdr.adr += adjust->adjust; } (*output_swap->swap_pdr_out) (output_bfd, &pdr, (PTR) out); } /* Swap over the optimization information. */ outsz = external_opt_size; insz = input_swap->external_opt_size; in = ((bfd_byte *) input_debug->external_opt + fdr.ioptBase * insz); end = in + fdr.copt * insz; sz = fdr.copt * outsz; out = (bfd_byte *) obstack_alloc (&ainfo->memory, sz); if (!out) { bfd_set_error (bfd_error_no_memory); return false; } if (!add_memory_shuffle (ainfo, &ainfo->opt, &ainfo->opt_end, out, sz)) return false; for (; in < end; in += insz, out += outsz) { OPTR opt; (*input_swap->swap_opt_in) (input_bfd, (PTR) in, &opt); (*output_swap->swap_opt_out) (output_bfd, &opt, (PTR) out); } } fdr.ipdFirst = output_symhdr->ipdMax; output_symhdr->ipdMax += fdr.cpd; fdr.ioptBase = output_symhdr->ioptMax; output_symhdr->ioptMax += fdr.copt; if (fdr.crfd <= 0) { /* Point this FDR at the table of RFD's we created. */ fdr.rfdBase = newrfdbase; fdr.crfd = input_symhdr->ifdMax; } else { /* Point this FDR at the remapped RFD's. */ fdr.rfdBase += oldrfdbase; } (*swap_fdr_out) (output_bfd, &fdr, fdr_out); fdr_out += external_fdr_size; ++output_symhdr->ifdMax; } return true; } /* Add a string to the debugging information we are accumulating. Return the offset from the fdr string base. */ static long ecoff_add_string PARAMS ((struct accumulate *, struct bfd_link_info *, struct ecoff_debug_info *, FDR *fdr, const char *string)); static long ecoff_add_string (ainfo, info, debug, fdr, string) struct accumulate *ainfo; struct bfd_link_info *info; struct ecoff_debug_info *debug; FDR *fdr; const char *string; { HDRR *symhdr; size_t len; bfd_size_type ret; symhdr = &debug->symbolic_header; len = strlen (string); if (info->relocateable) { if (!add_memory_shuffle (ainfo, &ainfo->ss, &ainfo->ss_end, (PTR) string, len + 1)) return -1; ret = symhdr->issMax; symhdr->issMax += len + 1; fdr->cbSs += len + 1; } else { struct string_hash_entry *sh; sh = string_hash_lookup (&ainfo->str_hash, string, true, true); if (sh == (struct string_hash_entry *) NULL) return -1; if (sh->val == -1) { sh->val = symhdr->issMax; symhdr->issMax += len + 1; if (ainfo->ss_hash == (struct string_hash_entry *) NULL) ainfo->ss_hash = sh; if (ainfo->ss_hash_end != (struct string_hash_entry *) NULL) ainfo->ss_hash_end->next = sh; ainfo->ss_hash_end = sh; } ret = sh->val; } return ret; } /* Add debugging information from a non-ECOFF file. */ boolean bfd_ecoff_debug_accumulate_other (handle, output_bfd, output_debug, output_swap, input_bfd, info) PTR handle; bfd *output_bfd; struct ecoff_debug_info *output_debug; const struct ecoff_debug_swap *output_swap; bfd *input_bfd; struct bfd_link_info *info; { struct accumulate *ainfo = (struct accumulate *) handle; void (* const swap_sym_out) PARAMS ((bfd *, const SYMR *, PTR)) = output_swap->swap_sym_out; HDRR *output_symhdr = &output_debug->symbolic_header; FDR fdr; asection *sec; asymbol **symbols; asymbol **sym_ptr; asymbol **sym_end; long symsize; long symcount; PTR external_fdr; memset ((PTR) &fdr, 0, sizeof fdr); sec = bfd_get_section_by_name (input_bfd, ".text"); if (sec != NULL) fdr.adr = sec->output_section->vma + sec->output_offset; else { /* FIXME: What about .init or .fini? */ fdr.adr = 0; } fdr.issBase = output_symhdr->issMax; fdr.cbSs = 0; fdr.rss = ecoff_add_string (ainfo, info, output_debug, &fdr, bfd_get_filename (input_bfd)); if (fdr.rss == -1) return false; fdr.isymBase = output_symhdr->isymMax; /* Get the local symbols from the input BFD. */ symsize = bfd_get_symtab_upper_bound (input_bfd); if (symsize < 0) return false; symbols = (asymbol **) bfd_alloc (output_bfd, symsize); if (symbols == (asymbol **) NULL) { bfd_set_error (bfd_error_no_memory); return false; } symcount = bfd_canonicalize_symtab (input_bfd, symbols); if (symcount < 0) return false; sym_end = symbols + symcount; /* Handle the local symbols. Any external symbols are handled separately. */ fdr.csym = 0; for (sym_ptr = symbols; sym_ptr != sym_end; sym_ptr++) { SYMR internal_sym; PTR external_sym; if (((*sym_ptr)->flags & BSF_EXPORT) != 0) continue; memset ((PTR) &internal_sym, 0, sizeof internal_sym); internal_sym.iss = ecoff_add_string (ainfo, info, output_debug, &fdr, (*sym_ptr)->name); if (internal_sym.iss == -1) return false; if (bfd_is_com_section ((*sym_ptr)->section) || bfd_is_und_section ((*sym_ptr)->section)) internal_sym.value = (*sym_ptr)->value; else internal_sym.value = ((*sym_ptr)->value + (*sym_ptr)->section->output_offset + (*sym_ptr)->section->output_section->vma); internal_sym.st = stNil; internal_sym.sc = scUndefined; internal_sym.index = indexNil; external_sym = (PTR) obstack_alloc (&ainfo->memory, output_swap->external_sym_size); if (!external_sym) { bfd_set_error (bfd_error_no_memory); return false; } (*swap_sym_out) (output_bfd, &internal_sym, external_sym); add_memory_shuffle (ainfo, &ainfo->sym, &ainfo->sym_end, external_sym, output_swap->external_sym_size); ++fdr.csym; ++output_symhdr->isymMax; } bfd_release (output_bfd, (PTR) symbols); /* Leave everything else in the FDR zeroed out. This will cause the lang field to be langC. The fBigendian field will indicate little endian format, but it doesn't matter because it only applies to aux fields and there are none. */ external_fdr = (PTR) obstack_alloc (&ainfo->memory, output_swap->external_fdr_size); if (!external_fdr) { bfd_set_error (bfd_error_no_memory); return false; } (*output_swap->swap_fdr_out) (output_bfd, &fdr, external_fdr); add_memory_shuffle (ainfo, &ainfo->fdr, &ainfo->fdr_end, external_fdr, output_swap->external_fdr_size); ++output_symhdr->ifdMax; return true; } /* Set up ECOFF debugging information for the external symbols. FIXME: This is done using a memory buffer, but it should be probably be changed to use a shuffle structure. The assembler uses this interface, so that must be changed to do something else. */ boolean bfd_ecoff_debug_externals (abfd, debug, swap, relocateable, get_extr, set_index) bfd *abfd; struct ecoff_debug_info *debug; const struct ecoff_debug_swap *swap; boolean relocateable; boolean (*get_extr) PARAMS ((asymbol *, EXTR *)); void (*set_index) PARAMS ((asymbol *, bfd_size_type)); { HDRR * const symhdr = &debug->symbolic_header; asymbol **sym_ptr_ptr; size_t c; sym_ptr_ptr = bfd_get_outsymbols (abfd); if (sym_ptr_ptr == NULL) return true; for (c = bfd_get_symcount (abfd); c > 0; c--, sym_ptr_ptr++) { asymbol *sym_ptr; EXTR esym; sym_ptr = *sym_ptr_ptr; /* Get the external symbol information. */ if ((*get_extr) (sym_ptr, &esym) == false) continue; /* If we're producing an executable, move common symbols into bss. */ if (relocateable == false) { if (esym.asym.sc == scCommon) esym.asym.sc = scBss; else if (esym.asym.sc == scSCommon) esym.asym.sc = scSBss; } if (bfd_is_com_section (sym_ptr->section) || bfd_is_und_section (sym_ptr->section) || sym_ptr->section->output_section == (asection *) NULL) { /* FIXME: gas does not keep the value of a small undefined symbol in the symbol itself, because of relocation problems. */ if (esym.asym.sc != scSUndefined || esym.asym.value == 0 || sym_ptr->value != 0) esym.asym.value = sym_ptr->value; } else esym.asym.value = (sym_ptr->value + sym_ptr->section->output_offset + sym_ptr->section->output_section->vma); if (set_index) (*set_index) (sym_ptr, (bfd_size_type) symhdr->iextMax); if (! bfd_ecoff_debug_one_external (abfd, debug, swap, sym_ptr->name, &esym)) return false; } return true; } /* Add a single external symbol to the debugging information. */ boolean bfd_ecoff_debug_one_external (abfd, debug, swap, name, esym) bfd *abfd; struct ecoff_debug_info *debug; const struct ecoff_debug_swap *swap; const char *name; EXTR *esym; { const bfd_size_type external_ext_size = swap->external_ext_size; void (* const swap_ext_out) PARAMS ((bfd *, const EXTR *, PTR)) = swap->swap_ext_out; HDRR * const symhdr = &debug->symbolic_header; size_t namelen; namelen = strlen (name); if (debug->ssext_end - debug->ssext < symhdr->issExtMax + namelen + 1) { if (ecoff_add_bytes ((char **) &debug->ssext, (char **) &debug->ssext_end, symhdr->issExtMax + namelen + 1) == false) return false; } if ((char *) debug->external_ext_end - (char *) debug->external_ext < (symhdr->iextMax + 1) * external_ext_size) { if (ecoff_add_bytes ((char **) &debug->external_ext, (char **) &debug->external_ext_end, (symhdr->iextMax + 1) * external_ext_size) == false) return false; } esym->asym.iss = symhdr->issExtMax; (*swap_ext_out) (abfd, esym, ((char *) debug->external_ext + symhdr->iextMax * swap->external_ext_size)); ++symhdr->iextMax; strcpy (debug->ssext + symhdr->issExtMax, name); symhdr->issExtMax += namelen + 1; return true; } /* Align the ECOFF debugging information. */ /*ARGSUSED*/ static void ecoff_align_debug (abfd, debug, swap) bfd *abfd; struct ecoff_debug_info *debug; const struct ecoff_debug_swap *swap; { HDRR * const symhdr = &debug->symbolic_header; bfd_size_type debug_align, aux_align, rfd_align; size_t add; /* Adjust the counts so that structures are aligned. */ debug_align = swap->debug_align; aux_align = debug_align / sizeof (union aux_ext); rfd_align = debug_align / swap->external_rfd_size; add = debug_align - (symhdr->cbLine & (debug_align - 1)); if (add != debug_align) { if (debug->line != (unsigned char *) NULL) memset ((PTR) (debug->line + symhdr->cbLine), 0, add); symhdr->cbLine += add; } add = debug_align - (symhdr->issMax & (debug_align - 1)); if (add != debug_align) { if (debug->ss != (char *) NULL) memset ((PTR) (debug->ss + symhdr->issMax), 0, add); symhdr->issMax += add; } add = debug_align - (symhdr->issExtMax & (debug_align - 1)); if (add != debug_align) { if (debug->ssext != (char *) NULL) memset ((PTR) (debug->ssext + symhdr->issExtMax), 0, add); symhdr->issExtMax += add; } add = aux_align - (symhdr->iauxMax & (aux_align - 1)); if (add != aux_align) { if (debug->external_aux != (union aux_ext *) NULL) memset ((PTR) (debug->external_aux + symhdr->iauxMax), 0, add * sizeof (union aux_ext)); symhdr->iauxMax += add; } add = rfd_align - (symhdr->crfd & (rfd_align - 1)); if (add != rfd_align) { if (debug->external_rfd != (PTR) NULL) memset ((PTR) ((char *) debug->external_rfd + symhdr->crfd * swap->external_rfd_size), 0, add * swap->external_rfd_size); symhdr->crfd += add; } } /* Return the size required by the ECOFF debugging information. */ bfd_size_type bfd_ecoff_debug_size (abfd, debug, swap) bfd *abfd; struct ecoff_debug_info *debug; const struct ecoff_debug_swap *swap; { bfd_size_type tot; ecoff_align_debug (abfd, debug, swap); tot = swap->external_hdr_size; #define ADD(count, size) \ tot += debug->symbolic_header.count * size ADD (cbLine, sizeof (unsigned char)); ADD (idnMax, swap->external_dnr_size); ADD (ipdMax, swap->external_pdr_size); ADD (isymMax, swap->external_sym_size); ADD (ioptMax, swap->external_opt_size); ADD (iauxMax, sizeof (union aux_ext)); ADD (issMax, sizeof (char)); ADD (issExtMax, sizeof (char)); ADD (ifdMax, swap->external_fdr_size); ADD (crfd, swap->external_rfd_size); ADD (iextMax, swap->external_ext_size); #undef ADD return tot; } /* Write out the ECOFF symbolic header, given the file position it is going to be placed at. This assumes that the counts are set correctly. */ static boolean ecoff_write_symhdr (abfd, debug, swap, where) bfd *abfd; struct ecoff_debug_info *debug; const struct ecoff_debug_swap *swap; file_ptr where; { HDRR * const symhdr = &debug->symbolic_header; char *buff = NULL; ecoff_align_debug (abfd, debug, swap); /* Go to the right location in the file. */ if (bfd_seek (abfd, where, SEEK_SET) != 0) return false; where += swap->external_hdr_size; symhdr->magic = swap->sym_magic; /* Fill in the file offsets. */ #define SET(offset, count, size) \ if (symhdr->count == 0) \ symhdr->offset = 0; \ else \ { \ symhdr->offset = where; \ where += symhdr->count * size; \ } SET (cbLineOffset, cbLine, sizeof (unsigned char)); SET (cbDnOffset, idnMax, swap->external_dnr_size); SET (cbPdOffset, ipdMax, swap->external_pdr_size); SET (cbSymOffset, isymMax, swap->external_sym_size); SET (cbOptOffset, ioptMax, swap->external_opt_size); SET (cbAuxOffset, iauxMax, sizeof (union aux_ext)); SET (cbSsOffset, issMax, sizeof (char)); SET (cbSsExtOffset, issExtMax, sizeof (char)); SET (cbFdOffset, ifdMax, swap->external_fdr_size); SET (cbRfdOffset, crfd, swap->external_rfd_size); SET (cbExtOffset, iextMax, swap->external_ext_size); #undef SET buff = (PTR) malloc (swap->external_hdr_size); if (buff == NULL && swap->external_hdr_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } (*swap->swap_hdr_out) (abfd, symhdr, buff); if (bfd_write (buff, 1, swap->external_hdr_size, abfd) != swap->external_hdr_size) goto error_return; if (buff != NULL) free (buff); return true; error_return: if (buff != NULL) free (buff); return false; } /* Write out the ECOFF debugging information. This function assumes that the information (the pointers and counts) in *DEBUG have been set correctly. WHERE is the position in the file to write the information to. This function fills in the file offsets in the symbolic header. */ boolean bfd_ecoff_write_debug (abfd, debug, swap, where) bfd *abfd; struct ecoff_debug_info *debug; const struct ecoff_debug_swap *swap; file_ptr where; { HDRR * const symhdr = &debug->symbolic_header; if (! ecoff_write_symhdr (abfd, debug, swap, where)) return false; #define WRITE(ptr, count, size, offset) \ BFD_ASSERT (symhdr->offset == 0 || bfd_tell (abfd) == symhdr->offset); \ if (bfd_write ((PTR) debug->ptr, size, symhdr->count, abfd) \ != size * symhdr->count) \ return false; WRITE (line, cbLine, sizeof (unsigned char), cbLineOffset); WRITE (external_dnr, idnMax, swap->external_dnr_size, cbDnOffset); WRITE (external_pdr, ipdMax, swap->external_pdr_size, cbPdOffset); WRITE (external_sym, isymMax, swap->external_sym_size, cbSymOffset); WRITE (external_opt, ioptMax, swap->external_opt_size, cbOptOffset); WRITE (external_aux, iauxMax, sizeof (union aux_ext), cbAuxOffset); WRITE (ss, issMax, sizeof (char), cbSsOffset); WRITE (ssext, issExtMax, sizeof (char), cbSsExtOffset); WRITE (external_fdr, ifdMax, swap->external_fdr_size, cbFdOffset); WRITE (external_rfd, crfd, swap->external_rfd_size, cbRfdOffset); WRITE (external_ext, iextMax, swap->external_ext_size, cbExtOffset); #undef WRITE return true; } /* Write out a shuffle list. */ static boolean ecoff_write_shuffle PARAMS ((bfd *, const struct ecoff_debug_swap *, struct shuffle *, PTR space)); static boolean ecoff_write_shuffle (abfd, swap, shuffle, space) bfd *abfd; const struct ecoff_debug_swap *swap; struct shuffle *shuffle; PTR space; { register struct shuffle *l; unsigned long total; total = 0; for (l = shuffle; l != (struct shuffle *) NULL; l = l->next) { if (! l->filep) { if (bfd_write (l->u.memory, 1, l->size, abfd) != l->size) return false; } else { if (bfd_seek (l->u.file.input_bfd, l->u.file.offset, SEEK_SET) != 0 || bfd_read (space, 1, l->size, l->u.file.input_bfd) != l->size || bfd_write (space, 1, l->size, abfd) != l->size) return false; } total += l->size; } if ((total & (swap->debug_align - 1)) != 0) { int i; bfd_byte *s; i = swap->debug_align - (total & (swap->debug_align - 1)); s = (bfd_byte *) malloc (i); if (s == NULL && i != 0) { bfd_set_error (bfd_error_no_memory); return false; } memset ((PTR) s, 0, i); if (bfd_write ((PTR) s, 1, i, abfd) != i) { free (s); return false; } free (s); } return true; } /* Write out debugging information using accumulated linker information. */ boolean bfd_ecoff_write_accumulated_debug (handle, abfd, debug, swap, info, where) PTR handle; bfd *abfd; struct ecoff_debug_info *debug; const struct ecoff_debug_swap *swap; struct bfd_link_info *info; file_ptr where; { struct accumulate *ainfo = (struct accumulate *) handle; PTR space = NULL; if (! ecoff_write_symhdr (abfd, debug, swap, where)) goto error_return; space = (PTR) malloc (ainfo->largest_file_shuffle); if (space == NULL && ainfo->largest_file_shuffle != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (! ecoff_write_shuffle (abfd, swap, ainfo->line, space) || ! ecoff_write_shuffle (abfd, swap, ainfo->pdr, space) || ! ecoff_write_shuffle (abfd, swap, ainfo->sym, space) || ! ecoff_write_shuffle (abfd, swap, ainfo->opt, space) || ! ecoff_write_shuffle (abfd, swap, ainfo->aux, space)) goto error_return; /* The string table is written out from the hash table if this is a final link. */ if (info->relocateable) { BFD_ASSERT (ainfo->ss_hash == (struct string_hash_entry *) NULL); if (! ecoff_write_shuffle (abfd, swap, ainfo->ss, space)) goto error_return; } else { unsigned long total; bfd_byte null; struct string_hash_entry *sh; BFD_ASSERT (ainfo->ss == (struct shuffle *) NULL); null = 0; if (bfd_write ((PTR) &null, 1, 1, abfd) != 1) goto error_return; total = 1; BFD_ASSERT (ainfo->ss_hash == NULL || ainfo->ss_hash->val == 1); for (sh = ainfo->ss_hash; sh != (struct string_hash_entry *) NULL; sh = sh->next) { size_t len; len = strlen (sh->root.string); if (bfd_write ((PTR) sh->root.string, 1, len + 1, abfd) != len + 1) goto error_return; total += len + 1; } if ((total & (swap->debug_align - 1)) != 0) { int i; bfd_byte *s; i = swap->debug_align - (total & (swap->debug_align - 1)); s = (bfd_byte *) malloc (i); if (s == NULL && i != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } memset ((PTR) s, 0, i); if (bfd_write ((PTR) s, 1, i, abfd) != i) { free (s); goto error_return; } free (s); } } /* The external strings and symbol are not converted over to using shuffles. FIXME: They probably should be. */ if (bfd_write (debug->ssext, 1, debug->symbolic_header.issExtMax, abfd) != debug->symbolic_header.issExtMax) goto error_return; if ((debug->symbolic_header.issExtMax & (swap->debug_align - 1)) != 0) { int i; bfd_byte *s; i = (swap->debug_align - (debug->symbolic_header.issExtMax & (swap->debug_align - 1))); s = (bfd_byte *) malloc (i); if (s == NULL && i != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } memset ((PTR) s, 0, i); if (bfd_write ((PTR) s, 1, i, abfd) != i) { free (s); goto error_return; } free (s); } if (! ecoff_write_shuffle (abfd, swap, ainfo->fdr, space) || ! ecoff_write_shuffle (abfd, swap, ainfo->rfd, space)) goto error_return; BFD_ASSERT (debug->symbolic_header.cbExtOffset == 0 || debug->symbolic_header.cbExtOffset == bfd_tell (abfd)); if (bfd_write (debug->external_ext, swap->external_ext_size, debug->symbolic_header.iextMax, abfd) != debug->symbolic_header.iextMax * swap->external_ext_size) goto error_return; if (space != NULL) free (space); return true; error_return: if (space != NULL) free (space); return false; } gdb-4.13/bfd/ecoffswap.h 666 34562 1752 73151 5604407724 13455 0ustar fnfcygnus/* Generic ECOFF swapping routines, for BFD. Copyright 1992, 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NOTE: This is a header file, but it contains executable routines. This is done this way because these routines are substantially similar, but are not identical, for all ECOFF targets. These are routines to swap the ECOFF symbolic information in and out. The routines are defined statically. You can set breakpoints on them in gdb by naming the including source file; e.g., 'coff-mips.c':ecoff_swap_hdr_in. Before including this header file, one of ECOFF_32 or ECOFF_64 must be defined. These are checked when swapping information that depends upon the target size. This code works for 32 bit and 64 bit ECOFF, but may need to be generalized in the future. Some header file which defines the external forms of these structures must also be included before including this header file. Currently this is either coff/mips.h or coff/alpha.h. If the symbol TEST is defined when this file is compiled, a comparison is made to ensure that, in fact, the output is bit-for-bit the same as the input. Of course, this symbol should only be defined when deliberately testing the code on a machine with the proper byte sex and such. */ #ifdef ECOFF_32 #define ecoff_get_off bfd_h_get_32 #define ecoff_put_off bfd_h_put_32 #endif #ifdef ECOFF_64 #define ecoff_get_off bfd_h_get_64 #define ecoff_put_off bfd_h_put_64 #endif /* ECOFF auxiliary information swapping routines. These are the same for all ECOFF targets, so they are defined in ecoff.c. */ extern void _bfd_ecoff_swap_tir_in PARAMS ((int, const struct tir_ext *, TIR *)); extern void _bfd_ecoff_swap_tir_out PARAMS ((int, const TIR *, struct tir_ext *)); extern void _bfd_ecoff_swap_rndx_in PARAMS ((int, const struct rndx_ext *, RNDXR *)); extern void _bfd_ecoff_swap_rndx_out PARAMS ((int, const RNDXR *, struct rndx_ext *)); /* Swap in the symbolic header. */ static void ecoff_swap_hdr_in (abfd, ext_copy, intern) bfd *abfd; PTR ext_copy; HDRR *intern; { struct hdr_ext ext[1]; *ext = *(struct hdr_ext *) ext_copy; intern->magic = bfd_h_get_signed_16 (abfd, (bfd_byte *)ext->h_magic); intern->vstamp = bfd_h_get_signed_16 (abfd, (bfd_byte *)ext->h_vstamp); intern->ilineMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_ilineMax); intern->cbLine = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbLine); intern->cbLineOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbLineOffset); intern->idnMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_idnMax); intern->cbDnOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbDnOffset); intern->ipdMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_ipdMax); intern->cbPdOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbPdOffset); intern->isymMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_isymMax); intern->cbSymOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbSymOffset); intern->ioptMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_ioptMax); intern->cbOptOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbOptOffset); intern->iauxMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_iauxMax); intern->cbAuxOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbAuxOffset); intern->issMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_issMax); intern->cbSsOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbSsOffset); intern->issExtMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_issExtMax); intern->cbSsExtOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbSsExtOffset); intern->ifdMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_ifdMax); intern->cbFdOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbFdOffset); intern->crfd = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_crfd); intern->cbRfdOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbRfdOffset); intern->iextMax = bfd_h_get_32 (abfd, (bfd_byte *)ext->h_iextMax); intern->cbExtOffset = ecoff_get_off (abfd, (bfd_byte *)ext->h_cbExtOffset); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out the symbolic header. */ static void ecoff_swap_hdr_out (abfd, intern_copy, ext_ptr) bfd *abfd; const HDRR *intern_copy; PTR ext_ptr; { struct hdr_ext *ext = (struct hdr_ext *) ext_ptr; HDRR intern[1]; *intern = *intern_copy; bfd_h_put_signed_16 (abfd, intern->magic, (bfd_byte *)ext->h_magic); bfd_h_put_signed_16 (abfd, intern->vstamp, (bfd_byte *)ext->h_vstamp); bfd_h_put_32 (abfd, intern->ilineMax, (bfd_byte *)ext->h_ilineMax); ecoff_put_off (abfd, intern->cbLine, (bfd_byte *)ext->h_cbLine); ecoff_put_off (abfd, intern->cbLineOffset, (bfd_byte *)ext->h_cbLineOffset); bfd_h_put_32 (abfd, intern->idnMax, (bfd_byte *)ext->h_idnMax); ecoff_put_off (abfd, intern->cbDnOffset, (bfd_byte *)ext->h_cbDnOffset); bfd_h_put_32 (abfd, intern->ipdMax, (bfd_byte *)ext->h_ipdMax); ecoff_put_off (abfd, intern->cbPdOffset, (bfd_byte *)ext->h_cbPdOffset); bfd_h_put_32 (abfd, intern->isymMax, (bfd_byte *)ext->h_isymMax); ecoff_put_off (abfd, intern->cbSymOffset, (bfd_byte *)ext->h_cbSymOffset); bfd_h_put_32 (abfd, intern->ioptMax, (bfd_byte *)ext->h_ioptMax); ecoff_put_off (abfd, intern->cbOptOffset, (bfd_byte *)ext->h_cbOptOffset); bfd_h_put_32 (abfd, intern->iauxMax, (bfd_byte *)ext->h_iauxMax); ecoff_put_off (abfd, intern->cbAuxOffset, (bfd_byte *)ext->h_cbAuxOffset); bfd_h_put_32 (abfd, intern->issMax, (bfd_byte *)ext->h_issMax); ecoff_put_off (abfd, intern->cbSsOffset, (bfd_byte *)ext->h_cbSsOffset); bfd_h_put_32 (abfd, intern->issExtMax, (bfd_byte *)ext->h_issExtMax); ecoff_put_off (abfd, intern->cbSsExtOffset, (bfd_byte *)ext->h_cbSsExtOffset); bfd_h_put_32 (abfd, intern->ifdMax, (bfd_byte *)ext->h_ifdMax); ecoff_put_off (abfd, intern->cbFdOffset, (bfd_byte *)ext->h_cbFdOffset); bfd_h_put_32 (abfd, intern->crfd, (bfd_byte *)ext->h_crfd); ecoff_put_off (abfd, intern->cbRfdOffset, (bfd_byte *)ext->h_cbRfdOffset); bfd_h_put_32 (abfd, intern->iextMax, (bfd_byte *)ext->h_iextMax); ecoff_put_off (abfd, intern->cbExtOffset, (bfd_byte *)ext->h_cbExtOffset); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap in the file descriptor record. */ static void ecoff_swap_fdr_in (abfd, ext_copy, intern) bfd *abfd; PTR ext_copy; FDR *intern; { struct fdr_ext ext[1]; *ext = *(struct fdr_ext *) ext_copy; intern->adr = ecoff_get_off (abfd, (bfd_byte *)ext->f_adr); intern->rss = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_rss); intern->issBase = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_issBase); intern->cbSs = ecoff_get_off (abfd, (bfd_byte *)ext->f_cbSs); intern->isymBase = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_isymBase); intern->csym = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_csym); intern->ilineBase = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_ilineBase); intern->cline = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_cline); intern->ioptBase = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_ioptBase); intern->copt = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_copt); #ifdef ECOFF_32 intern->ipdFirst = bfd_h_get_16 (abfd, (bfd_byte *)ext->f_ipdFirst); intern->cpd = bfd_h_get_16 (abfd, (bfd_byte *)ext->f_cpd); #endif #ifdef ECOFF_64 intern->ipdFirst = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_ipdFirst); intern->cpd = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_cpd); #endif intern->iauxBase = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_iauxBase); intern->caux = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_caux); intern->rfdBase = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_rfdBase); intern->crfd = bfd_h_get_32 (abfd, (bfd_byte *)ext->f_crfd); /* now the fun stuff... */ if (abfd->xvec->header_byteorder_big_p != false) { intern->lang = (ext->f_bits1[0] & FDR_BITS1_LANG_BIG) >> FDR_BITS1_LANG_SH_BIG; intern->fMerge = 0 != (ext->f_bits1[0] & FDR_BITS1_FMERGE_BIG); intern->fReadin = 0 != (ext->f_bits1[0] & FDR_BITS1_FREADIN_BIG); intern->fBigendian = 0 != (ext->f_bits1[0] & FDR_BITS1_FBIGENDIAN_BIG); intern->glevel = (ext->f_bits2[0] & FDR_BITS2_GLEVEL_BIG) >> FDR_BITS2_GLEVEL_SH_BIG; } else { intern->lang = (ext->f_bits1[0] & FDR_BITS1_LANG_LITTLE) >> FDR_BITS1_LANG_SH_LITTLE; intern->fMerge = 0 != (ext->f_bits1[0] & FDR_BITS1_FMERGE_LITTLE); intern->fReadin = 0 != (ext->f_bits1[0] & FDR_BITS1_FREADIN_LITTLE); intern->fBigendian = 0 != (ext->f_bits1[0] & FDR_BITS1_FBIGENDIAN_LITTLE); intern->glevel = (ext->f_bits2[0] & FDR_BITS2_GLEVEL_LITTLE) >> FDR_BITS2_GLEVEL_SH_LITTLE; } intern->reserved = 0; intern->cbLineOffset = ecoff_get_off (abfd, (bfd_byte *)ext->f_cbLineOffset); intern->cbLine = ecoff_get_off (abfd, (bfd_byte *)ext->f_cbLine); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out the file descriptor record. */ static void ecoff_swap_fdr_out (abfd, intern_copy, ext_ptr) bfd *abfd; const FDR *intern_copy; PTR ext_ptr; { struct fdr_ext *ext = (struct fdr_ext *) ext_ptr; FDR intern[1]; *intern = *intern_copy; /* Make it reasonable to do in-place. */ ecoff_put_off (abfd, intern->adr, (bfd_byte *)ext->f_adr); bfd_h_put_32 (abfd, intern->rss, (bfd_byte *)ext->f_rss); bfd_h_put_32 (abfd, intern->issBase, (bfd_byte *)ext->f_issBase); ecoff_put_off (abfd, intern->cbSs, (bfd_byte *)ext->f_cbSs); bfd_h_put_32 (abfd, intern->isymBase, (bfd_byte *)ext->f_isymBase); bfd_h_put_32 (abfd, intern->csym, (bfd_byte *)ext->f_csym); bfd_h_put_32 (abfd, intern->ilineBase, (bfd_byte *)ext->f_ilineBase); bfd_h_put_32 (abfd, intern->cline, (bfd_byte *)ext->f_cline); bfd_h_put_32 (abfd, intern->ioptBase, (bfd_byte *)ext->f_ioptBase); bfd_h_put_32 (abfd, intern->copt, (bfd_byte *)ext->f_copt); #ifdef ECOFF_32 bfd_h_put_16 (abfd, intern->ipdFirst, (bfd_byte *)ext->f_ipdFirst); bfd_h_put_16 (abfd, intern->cpd, (bfd_byte *)ext->f_cpd); #endif #ifdef ECOFF_64 bfd_h_put_32 (abfd, intern->ipdFirst, (bfd_byte *)ext->f_ipdFirst); bfd_h_put_32 (abfd, intern->cpd, (bfd_byte *)ext->f_cpd); #endif bfd_h_put_32 (abfd, intern->iauxBase, (bfd_byte *)ext->f_iauxBase); bfd_h_put_32 (abfd, intern->caux, (bfd_byte *)ext->f_caux); bfd_h_put_32 (abfd, intern->rfdBase, (bfd_byte *)ext->f_rfdBase); bfd_h_put_32 (abfd, intern->crfd, (bfd_byte *)ext->f_crfd); /* now the fun stuff... */ if (abfd->xvec->header_byteorder_big_p != false) { ext->f_bits1[0] = (((intern->lang << FDR_BITS1_LANG_SH_BIG) & FDR_BITS1_LANG_BIG) | (intern->fMerge ? FDR_BITS1_FMERGE_BIG : 0) | (intern->fReadin ? FDR_BITS1_FREADIN_BIG : 0) | (intern->fBigendian ? FDR_BITS1_FBIGENDIAN_BIG : 0)); ext->f_bits2[0] = ((intern->glevel << FDR_BITS2_GLEVEL_SH_BIG) & FDR_BITS2_GLEVEL_BIG); ext->f_bits2[1] = 0; ext->f_bits2[2] = 0; } else { ext->f_bits1[0] = (((intern->lang << FDR_BITS1_LANG_SH_LITTLE) & FDR_BITS1_LANG_LITTLE) | (intern->fMerge ? FDR_BITS1_FMERGE_LITTLE : 0) | (intern->fReadin ? FDR_BITS1_FREADIN_LITTLE : 0) | (intern->fBigendian ? FDR_BITS1_FBIGENDIAN_LITTLE : 0)); ext->f_bits2[0] = ((intern->glevel << FDR_BITS2_GLEVEL_SH_LITTLE) & FDR_BITS2_GLEVEL_LITTLE); ext->f_bits2[1] = 0; ext->f_bits2[2] = 0; } ecoff_put_off (abfd, intern->cbLineOffset, (bfd_byte *)ext->f_cbLineOffset); ecoff_put_off (abfd, intern->cbLine, (bfd_byte *)ext->f_cbLine); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* start-sanitize-mpw */ #ifndef MPW_C /* end-sanitize-mpw */ /* Swap in the procedure descriptor record. */ static void ecoff_swap_pdr_in (abfd, ext_copy, intern) bfd *abfd; PTR ext_copy; PDR *intern; { struct pdr_ext ext[1]; *ext = *(struct pdr_ext *) ext_copy; intern->adr = ecoff_get_off (abfd, (bfd_byte *)ext->p_adr); intern->isym = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_isym); intern->iline = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_iline); intern->regmask = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_regmask); intern->regoffset = bfd_h_get_signed_32 (abfd, (bfd_byte *)ext->p_regoffset); intern->iopt = bfd_h_get_signed_32 (abfd, (bfd_byte *)ext->p_iopt); intern->fregmask = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_fregmask); intern->fregoffset = bfd_h_get_signed_32 (abfd, (bfd_byte *)ext->p_fregoffset); intern->frameoffset = bfd_h_get_signed_32 (abfd, (bfd_byte *)ext->p_frameoffset); intern->framereg = bfd_h_get_16 (abfd, (bfd_byte *)ext->p_framereg); intern->pcreg = bfd_h_get_16 (abfd, (bfd_byte *)ext->p_pcreg); intern->lnLow = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_lnLow); intern->lnHigh = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_lnHigh); intern->cbLineOffset = ecoff_get_off (abfd, (bfd_byte *)ext->p_cbLineOffset); #ifdef ECOFF_64 intern->gp_prologue = bfd_h_get_8 (abfd, (bfd_byte *) ext->p_gp_prologue); if (abfd->xvec->header_byteorder_big_p != false) { intern->gp_used = 0 != (ext->p_bits1[0] & PDR_BITS1_GP_USED_BIG); intern->reg_frame = 0 != (ext->p_bits1[0] & PDR_BITS1_REG_FRAME_BIG); intern->reserved = (((ext->p_bits1[0] & PDR_BITS1_RESERVED_BIG) << PDR_BITS1_RESERVED_SH_LEFT_BIG) | ((ext->p_bits2[0] & PDR_BITS2_RESERVED_BIG) >> PDR_BITS2_RESERVED_SH_BIG)); } else { intern->gp_used = 0 != (ext->p_bits1[0] & PDR_BITS1_GP_USED_LITTLE); intern->reg_frame = 0 != (ext->p_bits1[0] & PDR_BITS1_REG_FRAME_LITTLE); intern->reserved = (((ext->p_bits1[0] & PDR_BITS1_RESERVED_LITTLE) >> PDR_BITS1_RESERVED_SH_LITTLE) | ((ext->p_bits2[0] & PDR_BITS2_RESERVED_LITTLE) << PDR_BITS2_RESERVED_SH_LEFT_LITTLE)); } intern->localoff = bfd_h_get_8 (abfd, (bfd_byte *) ext->p_localoff); #endif #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out the procedure descriptor record. */ static void ecoff_swap_pdr_out (abfd, intern_copy, ext_ptr) bfd *abfd; const PDR *intern_copy; PTR ext_ptr; { struct pdr_ext *ext = (struct pdr_ext *) ext_ptr; PDR intern[1]; *intern = *intern_copy; /* Make it reasonable to do in-place. */ ecoff_put_off (abfd, intern->adr, (bfd_byte *)ext->p_adr); bfd_h_put_32 (abfd, intern->isym, (bfd_byte *)ext->p_isym); bfd_h_put_32 (abfd, intern->iline, (bfd_byte *)ext->p_iline); bfd_h_put_32 (abfd, intern->regmask, (bfd_byte *)ext->p_regmask); bfd_h_put_32 (abfd, intern->regoffset, (bfd_byte *)ext->p_regoffset); bfd_h_put_32 (abfd, intern->iopt, (bfd_byte *)ext->p_iopt); bfd_h_put_32 (abfd, intern->fregmask, (bfd_byte *)ext->p_fregmask); bfd_h_put_32 (abfd, intern->fregoffset, (bfd_byte *)ext->p_fregoffset); bfd_h_put_32 (abfd, intern->frameoffset, (bfd_byte *)ext->p_frameoffset); bfd_h_put_16 (abfd, intern->framereg, (bfd_byte *)ext->p_framereg); bfd_h_put_16 (abfd, intern->pcreg, (bfd_byte *)ext->p_pcreg); bfd_h_put_32 (abfd, intern->lnLow, (bfd_byte *)ext->p_lnLow); bfd_h_put_32 (abfd, intern->lnHigh, (bfd_byte *)ext->p_lnHigh); ecoff_put_off (abfd, intern->cbLineOffset, (bfd_byte *)ext->p_cbLineOffset); #ifdef ECOFF_64 bfd_h_put_8 (abfd, intern->gp_prologue, (bfd_byte *) ext->p_gp_prologue); if (abfd->xvec->header_byteorder_big_p != false) { ext->p_bits1[0] = ((intern->gp_used ? PDR_BITS1_GP_USED_BIG : 0) | (intern->reg_frame ? PDR_BITS1_REG_FRAME_BIG : 0) | ((intern->reserved >> PDR_BITS1_RESERVED_SH_LEFT_BIG) & PDR_BITS1_RESERVED_BIG)); ext->p_bits2[0] = ((intern->reserved << PDR_BITS2_RESERVED_SH_BIG) & PDR_BITS2_RESERVED_BIG); } else { ext->p_bits1[0] = ((intern->gp_used ? PDR_BITS1_GP_USED_LITTLE : 0) | (intern->reg_frame ? PDR_BITS1_REG_FRAME_LITTLE : 0) | ((intern->reserved << PDR_BITS1_RESERVED_SH_LITTLE) & PDR_BITS1_RESERVED_LITTLE)); ext->p_bits2[0] = ((intern->reserved >> PDR_BITS2_RESERVED_SH_LEFT_LITTLE) & PDR_BITS2_RESERVED_LITTLE); } bfd_h_put_8 (abfd, intern->localoff, (bfd_byte *) ext->p_localoff); #endif #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* start-sanitize-mpw */ #else /* MPW_C */ /* Same routines, but with ECOFF_64 code removed, so ^&%$#&! MPW C doesn't corrupt itself and then freak out. */ /* Swap in the procedure descriptor record. */ static void ecoff_swap_pdr_in (abfd, ext_copy, intern) bfd *abfd; PTR ext_copy; PDR *intern; { struct pdr_ext ext[1]; *ext = *(struct pdr_ext *) ext_copy; intern->adr = ecoff_get_off (abfd, (bfd_byte *)ext->p_adr); intern->isym = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_isym); intern->iline = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_iline); intern->regmask = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_regmask); intern->regoffset = bfd_h_get_signed_32 (abfd, (bfd_byte *)ext->p_regoffset); intern->iopt = bfd_h_get_signed_32 (abfd, (bfd_byte *)ext->p_iopt); intern->fregmask = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_fregmask); intern->fregoffset = bfd_h_get_signed_32 (abfd, (bfd_byte *)ext->p_fregoffset); intern->frameoffset = bfd_h_get_signed_32 (abfd, (bfd_byte *)ext->p_frameoffset); intern->framereg = bfd_h_get_16 (abfd, (bfd_byte *)ext->p_framereg); intern->pcreg = bfd_h_get_16 (abfd, (bfd_byte *)ext->p_pcreg); intern->lnLow = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_lnLow); intern->lnHigh = bfd_h_get_32 (abfd, (bfd_byte *)ext->p_lnHigh); intern->cbLineOffset = ecoff_get_off (abfd, (bfd_byte *)ext->p_cbLineOffset); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out the procedure descriptor record. */ static void ecoff_swap_pdr_out (abfd, intern_copy, ext_ptr) bfd *abfd; const PDR *intern_copy; PTR ext_ptr; { struct pdr_ext *ext = (struct pdr_ext *) ext_ptr; PDR intern[1]; *intern = *intern_copy; /* Make it reasonable to do in-place. */ ecoff_put_off (abfd, intern->adr, (bfd_byte *)ext->p_adr); bfd_h_put_32 (abfd, intern->isym, (bfd_byte *)ext->p_isym); bfd_h_put_32 (abfd, intern->iline, (bfd_byte *)ext->p_iline); bfd_h_put_32 (abfd, intern->regmask, (bfd_byte *)ext->p_regmask); bfd_h_put_32 (abfd, intern->regoffset, (bfd_byte *)ext->p_regoffset); bfd_h_put_32 (abfd, intern->iopt, (bfd_byte *)ext->p_iopt); bfd_h_put_32 (abfd, intern->fregmask, (bfd_byte *)ext->p_fregmask); bfd_h_put_32 (abfd, intern->fregoffset, (bfd_byte *)ext->p_fregoffset); bfd_h_put_32 (abfd, intern->frameoffset, (bfd_byte *)ext->p_frameoffset); bfd_h_put_16 (abfd, intern->framereg, (bfd_byte *)ext->p_framereg); bfd_h_put_16 (abfd, intern->pcreg, (bfd_byte *)ext->p_pcreg); bfd_h_put_32 (abfd, intern->lnLow, (bfd_byte *)ext->p_lnLow); bfd_h_put_32 (abfd, intern->lnHigh, (bfd_byte *)ext->p_lnHigh); ecoff_put_off (abfd, intern->cbLineOffset, (bfd_byte *)ext->p_cbLineOffset); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } #endif /* MPW_C */ /* end-sanitize-mpw */ /* Swap in a symbol record. */ static void ecoff_swap_sym_in (abfd, ext_copy, intern) bfd *abfd; PTR ext_copy; SYMR *intern; { struct sym_ext ext[1]; *ext = *(struct sym_ext *) ext_copy; intern->iss = bfd_h_get_32 (abfd, (bfd_byte *)ext->s_iss); intern->value = ecoff_get_off (abfd, (bfd_byte *)ext->s_value); /* now the fun stuff... */ if (abfd->xvec->header_byteorder_big_p != false) { intern->st = (ext->s_bits1[0] & SYM_BITS1_ST_BIG) >> SYM_BITS1_ST_SH_BIG; intern->sc = ((ext->s_bits1[0] & SYM_BITS1_SC_BIG) << SYM_BITS1_SC_SH_LEFT_BIG) | ((ext->s_bits2[0] & SYM_BITS2_SC_BIG) >> SYM_BITS2_SC_SH_BIG); intern->reserved = 0 != (ext->s_bits2[0] & SYM_BITS2_RESERVED_BIG); intern->index = ((ext->s_bits2[0] & SYM_BITS2_INDEX_BIG) << SYM_BITS2_INDEX_SH_LEFT_BIG) | (ext->s_bits3[0] << SYM_BITS3_INDEX_SH_LEFT_BIG) | (ext->s_bits4[0] << SYM_BITS4_INDEX_SH_LEFT_BIG); } else { intern->st = (ext->s_bits1[0] & SYM_BITS1_ST_LITTLE) >> SYM_BITS1_ST_SH_LITTLE; intern->sc = ((ext->s_bits1[0] & SYM_BITS1_SC_LITTLE) >> SYM_BITS1_SC_SH_LITTLE) | ((ext->s_bits2[0] & SYM_BITS2_SC_LITTLE) << SYM_BITS2_SC_SH_LEFT_LITTLE); intern->reserved = 0 != (ext->s_bits2[0] & SYM_BITS2_RESERVED_LITTLE); intern->index = ((ext->s_bits2[0] & SYM_BITS2_INDEX_LITTLE) >> SYM_BITS2_INDEX_SH_LITTLE) | (ext->s_bits3[0] << SYM_BITS3_INDEX_SH_LEFT_LITTLE) | ((unsigned int) ext->s_bits4[0] << SYM_BITS4_INDEX_SH_LEFT_LITTLE); } #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out a symbol record. */ static void ecoff_swap_sym_out (abfd, intern_copy, ext_ptr) bfd *abfd; const SYMR *intern_copy; PTR ext_ptr; { struct sym_ext *ext = (struct sym_ext *) ext_ptr; SYMR intern[1]; *intern = *intern_copy; /* Make it reasonable to do in-place. */ bfd_h_put_32 (abfd, intern->iss, (bfd_byte *)ext->s_iss); ecoff_put_off (abfd, intern->value, (bfd_byte *)ext->s_value); /* now the fun stuff... */ if (abfd->xvec->header_byteorder_big_p != false) { ext->s_bits1[0] = (((intern->st << SYM_BITS1_ST_SH_BIG) & SYM_BITS1_ST_BIG) | ((intern->sc >> SYM_BITS1_SC_SH_LEFT_BIG) & SYM_BITS1_SC_BIG)); ext->s_bits2[0] = (((intern->sc << SYM_BITS2_SC_SH_BIG) & SYM_BITS2_SC_BIG) | (intern->reserved ? SYM_BITS2_RESERVED_BIG : 0) | ((intern->index >> SYM_BITS2_INDEX_SH_LEFT_BIG) & SYM_BITS2_INDEX_BIG)); ext->s_bits3[0] = (intern->index >> SYM_BITS3_INDEX_SH_LEFT_BIG) & 0xff; ext->s_bits4[0] = (intern->index >> SYM_BITS4_INDEX_SH_LEFT_BIG) & 0xff; } else { ext->s_bits1[0] = (((intern->st << SYM_BITS1_ST_SH_LITTLE) & SYM_BITS1_ST_LITTLE) | ((intern->sc << SYM_BITS1_SC_SH_LITTLE) & SYM_BITS1_SC_LITTLE)); ext->s_bits2[0] = (((intern->sc >> SYM_BITS2_SC_SH_LEFT_LITTLE) & SYM_BITS2_SC_LITTLE) | (intern->reserved ? SYM_BITS2_RESERVED_LITTLE : 0) | ((intern->index << SYM_BITS2_INDEX_SH_LITTLE) & SYM_BITS2_INDEX_LITTLE)); ext->s_bits3[0] = (intern->index >> SYM_BITS3_INDEX_SH_LEFT_LITTLE) & 0xff; ext->s_bits4[0] = (intern->index >> SYM_BITS4_INDEX_SH_LEFT_LITTLE) & 0xff; } #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap in an external symbol record. */ static void ecoff_swap_ext_in (abfd, ext_copy, intern) bfd *abfd; PTR ext_copy; EXTR *intern; { struct ext_ext ext[1]; *ext = *(struct ext_ext *) ext_copy; /* now the fun stuff... */ if (abfd->xvec->header_byteorder_big_p != false) { intern->jmptbl = 0 != (ext->es_bits1[0] & EXT_BITS1_JMPTBL_BIG); intern->cobol_main = 0 != (ext->es_bits1[0] & EXT_BITS1_COBOL_MAIN_BIG); intern->weakext = 0 != (ext->es_bits1[0] & EXT_BITS1_WEAKEXT_BIG); } else { intern->jmptbl = 0 != (ext->es_bits1[0] & EXT_BITS1_JMPTBL_LITTLE); intern->cobol_main = 0 != (ext->es_bits1[0] & EXT_BITS1_COBOL_MAIN_LITTLE); intern->weakext = 0 != (ext->es_bits1[0] & EXT_BITS1_WEAKEXT_LITTLE); } intern->reserved = 0; #ifdef ECOFF_32 intern->ifd = bfd_h_get_signed_16 (abfd, (bfd_byte *)ext->es_ifd); #endif #ifdef ECOFF_64 intern->ifd = bfd_h_get_signed_32 (abfd, (bfd_byte *)ext->es_ifd); #endif ecoff_swap_sym_in (abfd, &ext->es_asym, &intern->asym); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out an external symbol record. */ static void ecoff_swap_ext_out (abfd, intern_copy, ext_ptr) bfd *abfd; const EXTR *intern_copy; PTR ext_ptr; { struct ext_ext *ext = (struct ext_ext *) ext_ptr; EXTR intern[1]; *intern = *intern_copy; /* Make it reasonable to do in-place. */ /* now the fun stuff... */ if (abfd->xvec->header_byteorder_big_p != false) { ext->es_bits1[0] = ((intern->jmptbl ? EXT_BITS1_JMPTBL_BIG : 0) | (intern->cobol_main ? EXT_BITS1_COBOL_MAIN_BIG : 0) | (intern->weakext ? EXT_BITS1_WEAKEXT_BIG : 0)); ext->es_bits2[0] = 0; } else { ext->es_bits1[0] = ((intern->jmptbl ? EXT_BITS1_JMPTBL_LITTLE : 0) | (intern->cobol_main ? EXT_BITS1_COBOL_MAIN_LITTLE : 0) | (intern->weakext ? EXT_BITS1_WEAKEXT_LITTLE : 0)); ext->es_bits2[0] = 0; } #ifdef ECOFF_32 bfd_h_put_signed_16 (abfd, intern->ifd, (bfd_byte *)ext->es_ifd); #endif #ifdef ECOFF_64 bfd_h_put_signed_32 (abfd, intern->ifd, (bfd_byte *)ext->es_ifd); #endif ecoff_swap_sym_out (abfd, &intern->asym, &ext->es_asym); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap in a relative file descriptor. */ static void ecoff_swap_rfd_in (abfd, ext_ptr, intern) bfd *abfd; PTR ext_ptr; RFDT *intern; { struct rfd_ext *ext = (struct rfd_ext *) ext_ptr; *intern = bfd_h_get_32 (abfd, (bfd_byte *)ext->rfd); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out a relative file descriptor. */ static void ecoff_swap_rfd_out (abfd, intern, ext_ptr) bfd *abfd; const RFDT *intern; PTR ext_ptr; { struct rfd_ext *ext = (struct rfd_ext *) ext_ptr; bfd_h_put_32 (abfd, *intern, (bfd_byte *)ext->rfd); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap in an optimization symbol. */ static void ecoff_swap_opt_in (abfd, ext_copy, intern) bfd *abfd; PTR ext_copy; OPTR *intern; { struct opt_ext ext[1]; *ext = *(struct opt_ext *) ext_copy; if (abfd->xvec->header_byteorder_big_p != false) { intern->ot = ext->o_bits1[0]; intern->value = (((unsigned int) ext->o_bits2[0] << OPT_BITS2_VALUE_SH_LEFT_BIG) | ((unsigned int) ext->o_bits3[0] << OPT_BITS2_VALUE_SH_LEFT_BIG) | ((unsigned int) ext->o_bits4[0] << OPT_BITS2_VALUE_SH_LEFT_BIG)); } else { intern->ot = ext->o_bits1[0]; intern->value = ((ext->o_bits2[0] << OPT_BITS2_VALUE_SH_LEFT_LITTLE) | (ext->o_bits3[0] << OPT_BITS2_VALUE_SH_LEFT_LITTLE) | (ext->o_bits4[0] << OPT_BITS2_VALUE_SH_LEFT_LITTLE)); } _bfd_ecoff_swap_rndx_in (abfd->xvec->header_byteorder_big_p != false, &ext->o_rndx, &intern->rndx); intern->offset = bfd_h_get_32 (abfd, (bfd_byte *) ext->o_offset); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out an optimization symbol. */ static void ecoff_swap_opt_out (abfd, intern_copy, ext_ptr) bfd *abfd; const OPTR *intern_copy; PTR ext_ptr; { struct opt_ext *ext = (struct opt_ext *) ext_ptr; OPTR intern[1]; *intern = *intern_copy; /* Make it reasonable to do in-place. */ if (abfd->xvec->header_byteorder_big_p != false) { ext->o_bits1[0] = intern->ot; ext->o_bits2[0] = intern->value >> OPT_BITS2_VALUE_SH_LEFT_BIG; ext->o_bits3[0] = intern->value >> OPT_BITS3_VALUE_SH_LEFT_BIG; ext->o_bits4[0] = intern->value >> OPT_BITS4_VALUE_SH_LEFT_BIG; } else { ext->o_bits1[0] = intern->ot; ext->o_bits2[0] = intern->value >> OPT_BITS2_VALUE_SH_LEFT_LITTLE; ext->o_bits3[0] = intern->value >> OPT_BITS3_VALUE_SH_LEFT_LITTLE; ext->o_bits4[0] = intern->value >> OPT_BITS4_VALUE_SH_LEFT_LITTLE; } _bfd_ecoff_swap_rndx_out (abfd->xvec->header_byteorder_big_p != false, &intern->rndx, &ext->o_rndx); bfd_h_put_32 (abfd, intern->value, (bfd_byte *) ext->o_offset); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap in a dense number. */ static void ecoff_swap_dnr_in (abfd, ext_copy, intern) bfd *abfd; PTR ext_copy; DNR *intern; { struct dnr_ext ext[1]; *ext = *(struct dnr_ext *) ext_copy; intern->rfd = bfd_h_get_32 (abfd, (bfd_byte *) ext->d_rfd); intern->index = bfd_h_get_32 (abfd, (bfd_byte *) ext->d_index); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } /* Swap out a dense number. */ static void ecoff_swap_dnr_out (abfd, intern_copy, ext_ptr) bfd *abfd; const DNR *intern_copy; PTR ext_ptr; { struct dnr_ext *ext = (struct dnr_ext *) ext_ptr; DNR intern[1]; *intern = *intern_copy; /* Make it reasonable to do in-place. */ bfd_h_put_32 (abfd, intern->rfd, (bfd_byte *) ext->d_rfd); bfd_h_put_32 (abfd, intern->index, (bfd_byte *) ext->d_index); #ifdef TEST if (memcmp ((char *)ext, (char *)intern, sizeof (*intern)) != 0) abort(); #endif } gdb-4.13/bfd/elf.c 666 34562 1752 24371 5577713127 12247 0ustar fnfcygnus/* ELF executable support for BFD. Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION ELF backends BFD support for ELF formats is being worked on. Currently, the best supported back ends are for sparc and i386 (running svr4 or Solaris 2). Documentation of the internals of the support code still needs to be written. The code is changing quickly enough that we haven't bothered yet. */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #define ARCH_SIZE 0 #include "libelf.h" /* Standard ELF hash function. Do not change this function; you will cause invalid hash tables to be generated. (Well, you would if this were being used yet.) */ unsigned long bfd_elf_hash (name) CONST unsigned char *name; { unsigned long h = 0; unsigned long g; int ch; while ((ch = *name++) != '\0') { h = (h << 4) + ch; if ((g = (h & 0xf0000000)) != 0) { h ^= g >> 24; h &= ~g; } } return h; } /* Read a specified number of bytes at a specified offset in an ELF file, into a newly allocated buffer, and return a pointer to the buffer. */ static char * elf_read (abfd, offset, size) bfd * abfd; long offset; int size; { char *buf; if ((buf = bfd_alloc (abfd, size)) == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } if (bfd_seek (abfd, offset, SEEK_SET) == -1) return NULL; if (bfd_read ((PTR) buf, size, 1, abfd) != size) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_file_truncated); return NULL; } return buf; } boolean elf_mkobject (abfd) bfd * abfd; { /* this just does initialization */ /* coff_mkobject zalloc's space for tdata.coff_obj_data ... */ elf_tdata (abfd) = (struct elf_obj_tdata *) bfd_zalloc (abfd, sizeof (struct elf_obj_tdata)); if (elf_tdata (abfd) == 0) { bfd_set_error (bfd_error_no_memory); return false; } /* since everything is done at close time, do we need any initialization? */ return true; } char * elf_get_str_section (abfd, shindex) bfd * abfd; unsigned int shindex; { Elf_Internal_Shdr **i_shdrp; char *shstrtab = NULL; unsigned int offset; unsigned int shstrtabsize; i_shdrp = elf_elfsections (abfd); if (i_shdrp == 0 || i_shdrp[shindex] == 0) return 0; shstrtab = i_shdrp[shindex]->rawdata; if (shstrtab == NULL) { /* No cached one, attempt to read, and cache what we read. */ offset = i_shdrp[shindex]->sh_offset; shstrtabsize = i_shdrp[shindex]->sh_size; shstrtab = elf_read (abfd, offset, shstrtabsize); i_shdrp[shindex]->rawdata = (void *) shstrtab; } return shstrtab; } char * elf_string_from_elf_section (abfd, shindex, strindex) bfd * abfd; unsigned int shindex; unsigned int strindex; { Elf_Internal_Shdr *hdr; if (strindex == 0) return ""; hdr = elf_elfsections (abfd)[shindex]; if (!hdr->rawdata && elf_get_str_section (abfd, shindex) == NULL) return NULL; return ((char *) hdr->rawdata) + strindex; } /* Make a BFD section from an ELF section. We store a pointer to the BFD section in the rawdata field of the header. */ boolean _bfd_elf_make_section_from_shdr (abfd, hdr, name) bfd *abfd; Elf_Internal_Shdr *hdr; const char *name; { asection *newsect; flagword flags; if (hdr->rawdata != NULL) { BFD_ASSERT (strcmp (name, ((asection *) hdr->rawdata)->name) == 0); return true; } newsect = bfd_make_section_anyway (abfd, name); if (newsect == NULL) return false; newsect->filepos = hdr->sh_offset; if (! bfd_set_section_vma (abfd, newsect, hdr->sh_addr) || ! bfd_set_section_size (abfd, newsect, hdr->sh_size) || ! bfd_set_section_alignment (abfd, newsect, bfd_log2 (hdr->sh_addralign))) return false; flags = SEC_NO_FLAGS; if (hdr->sh_type != SHT_NOBITS) flags |= SEC_HAS_CONTENTS; if ((hdr->sh_flags & SHF_ALLOC) != 0) { flags |= SEC_ALLOC; if (hdr->sh_type != SHT_NOBITS) flags |= SEC_LOAD; } if ((hdr->sh_flags & SHF_WRITE) == 0) flags |= SEC_READONLY; if ((hdr->sh_flags & SHF_EXECINSTR) != 0) flags |= SEC_CODE; else if ((flags & SEC_LOAD) != 0) flags |= SEC_DATA; /* The debugging sections appear to be recognized only by name, not any sort of flag. */ if (strncmp (name, ".debug", sizeof ".debug" - 1) == 0 || strncmp (name, ".line", sizeof ".line" - 1) == 0 || strncmp (name, ".stab", sizeof ".stab" - 1) == 0) flags |= SEC_DEBUGGING; if (! bfd_set_section_flags (abfd, newsect, flags)) return false; hdr->rawdata = (PTR) newsect; elf_section_data (newsect)->this_hdr = *hdr; return true; } /* INTERNAL_FUNCTION bfd_elf_find_section SYNOPSIS struct elf_internal_shdr *bfd_elf_find_section (bfd *abfd, char *name); DESCRIPTION Helper functions for GDB to locate the string tables. Since BFD hides string tables from callers, GDB needs to use an internal hook to find them. Sun's .stabstr, in particular, isn't even pointed to by the .stab section, so ordinary mechanisms wouldn't work to find it, even if we had some. */ struct elf_internal_shdr * bfd_elf_find_section (abfd, name) bfd * abfd; char *name; { Elf_Internal_Shdr **i_shdrp; char *shstrtab; unsigned int max; unsigned int i; i_shdrp = elf_elfsections (abfd); if (i_shdrp != NULL) { shstrtab = elf_get_str_section (abfd, elf_elfheader (abfd)->e_shstrndx); if (shstrtab != NULL) { max = elf_elfheader (abfd)->e_shnum; for (i = 1; i < max; i++) if (!strcmp (&shstrtab[i_shdrp[i]->sh_name], name)) return i_shdrp[i]; } } return 0; } const char *const bfd_elf_section_type_names[] = { "SHT_NULL", "SHT_PROGBITS", "SHT_SYMTAB", "SHT_STRTAB", "SHT_RELA", "SHT_HASH", "SHT_DYNAMIC", "SHT_NOTE", "SHT_NOBITS", "SHT_REL", "SHT_SHLIB", "SHT_DYNSYM", }; /* ELF relocs are against symbols. If we are producing relocateable output, and the reloc is against an external symbol, and nothing has given us any additional addend, the resulting reloc will also be against the same symbol. In such a case, we don't want to change anything about the way the reloc is handled, since it will all be done at final link time. Rather than put special case code into bfd_perform_relocation, all the reloc types use this howto function. It just short circuits the reloc if producing relocateable output against an external symbol. */ /*ARGSUSED*/ bfd_reloc_status_type bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { if (output_bfd != (bfd *) NULL && (symbol->flags & BSF_SECTION_SYM) == 0 && (! reloc_entry->howto->partial_inplace || reloc_entry->addend == 0)) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } return bfd_reloc_continue; } /* Create an entry in an ELF linker hash table. */ struct bfd_hash_entry * _bfd_elf_link_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct elf_link_hash_entry *ret = (struct elf_link_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct elf_link_hash_entry *) NULL) ret = ((struct elf_link_hash_entry *) bfd_hash_allocate (table, sizeof (struct elf_link_hash_entry))); if (ret == (struct elf_link_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return (struct bfd_hash_entry *) ret; } /* Call the allocation method of the superclass. */ ret = ((struct elf_link_hash_entry *) _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret != (struct elf_link_hash_entry *) NULL) { /* Set local fields. */ ret->indx = -1; ret->size = 0; ret->align = 0; ret->dynindx = -1; ret->dynstr_index = 0; ret->weakdef = NULL; ret->type = STT_NOTYPE; ret->elf_link_hash_flags = 0; } return (struct bfd_hash_entry *) ret; } /* Initialize an ELF linker hash table. */ boolean _bfd_elf_link_hash_table_init (table, abfd, newfunc) struct elf_link_hash_table *table; bfd *abfd; struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); { table->dynobj = NULL; table->dynsymcount = 0; table->dynstr = NULL; table->bucketcount = 0; return _bfd_link_hash_table_init (&table->root, abfd, newfunc); } /* Create an ELF linker hash table. */ struct bfd_link_hash_table * _bfd_elf_link_hash_table_create (abfd) bfd *abfd; { struct elf_link_hash_table *ret; ret = ((struct elf_link_hash_table *) bfd_alloc (abfd, sizeof (struct elf_link_hash_table))); if (ret == (struct elf_link_hash_table *) NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } if (! _bfd_elf_link_hash_table_init (ret, abfd, _bfd_elf_link_hash_newfunc)) { bfd_release (abfd, ret); return NULL; } return &ret->root; } /* This is a hook for the ELF emulation code in the generic linker to tell the backend linker what file name to use for the DT_NEEDED entry for a dynamic object. */ void bfd_elf_set_dt_needed_name (abfd, name) bfd *abfd; const char *name; { elf_dt_needed_name (abfd) = name; } gdb-4.13/bfd/elf32-gen.c 666 34562 1752 2571 5470003350 13117 0ustar fnfcygnus/* Generic support for 32-bit ELF Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libelf.h" /* This does not include any relocations, but should be good enough for GDB to read the file. */ #define TARGET_LITTLE_SYM bfd_elf32_little_generic_vec #define TARGET_LITTLE_NAME "elf32-little" #define TARGET_BIG_SYM bfd_elf32_big_generic_vec #define TARGET_BIG_NAME "elf32-big" #define ELF_ARCH bfd_arch_unknown #define ELF_MACHINE_CODE EM_NONE #define bfd_elf32_bfd_reloc_type_lookup bfd_default_reloc_type_lookup #define elf_info_to_howto bfd_elf32_no_info_to_howto #include "elf32-target.h" gdb-4.13/bfd/elf32-hppa.c 666 34562 1752 272163 5610540426 13352 0ustar fnfcygnus/* BFD back-end for HP PA-RISC ELF files. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Center for Software Science Department of Computer Science University of Utah This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #include "obstack.h" #include "libelf.h" /* HPPA symbol table extension entry types */ enum elf32_hppa_symextn_types { PARISC_SXT_NULL, PARISC_SXT_SYMNDX, PARISC_SXT_ARG_RELOC, }; /* These macros compose and decompose the value of a symextn entry: entry_type = ELF32_PARISC_SX_TYPE(word); entry_value = ELF32_PARISC_SX_VAL(word); word = ELF32_PARISC_SX_WORD(type,val); */ #define ELF32_PARISC_SX_TYPE(p) ((p) >> 24) #define ELF32_PARISC_SX_VAL(p) ((p) & 0xFFFFFF) #define ELF32_PARISC_SX_WORD(type,val) (((type) << 24) + (val & 0xFFFFFF)) /* The following was added facilitate implementation of the .hppa_symextn section. This section is built after the symbol table is built in the elf_write_object_contents routine (called from bfd_close). It is built so late because it requires information that is not known until the symbol and string table sections have been allocated, and the symbol table has been built. */ #define SYMEXTN_SECTION_NAME ".PARISC.symext" /* FIXME. Are these external? (For example used by GAS?). If so the names need to change to avoid namespace pollution, if not they should be moved into elf32-hppa.c. */ typedef unsigned long symext_entryS; struct symext_chain { symext_entryS entry; struct symext_chain *next; }; typedef struct symext_chain symext_chainS; /* We use three different hash tables to hold information for linking PA ELF objects. The first is the elf32_hppa_link_hash_table which is derived from the standard ELF linker hash table. We use this as a place to attach other hash tables and static information. The second is the stub hash table which is derived from the base BFD hash table. The stub hash table holds the information necessary to build the linker stubs during a link. The last hash table keeps track of argument location information needed to build hash tables. Each function with nonzero argument location bits will have an entry in this table. */ /* Hash table for linker stubs. */ struct elf32_hppa_stub_hash_entry { /* Base hash table entry structure, we can get the name of the stub (and thus know exactly what actions it performs) from the base hash table entry. */ struct bfd_hash_entry root; /* Offset of the beginning of this stub. */ bfd_vma offset; /* Given the symbol's value and its section we can determine its final value when building the stubs (so the stub knows where to jump. */ symvalue target_value; asection *target_section; }; struct elf32_hppa_stub_hash_table { /* The hash table itself. */ struct bfd_hash_table root; /* The stub BFD. */ bfd *stub_bfd; /* Where to place the next stub. */ bfd_byte *location; /* Current offset in the stub section. */ unsigned int offset; }; /* Hash table for argument location information. */ struct elf32_hppa_args_hash_entry { /* Base hash table entry structure. */ struct bfd_hash_entry root; /* The argument location bits for this entry. */ int arg_bits; }; struct elf32_hppa_args_hash_table { /* The hash table itself. */ struct bfd_hash_table root; }; struct elf32_hppa_link_hash_entry { struct elf_link_hash_entry root; }; struct elf32_hppa_link_hash_table { /* The main hash table. */ struct elf_link_hash_table root; /* The stub hash table. */ struct elf32_hppa_stub_hash_table *stub_hash_table; /* The argument relocation bits hash table. */ struct elf32_hppa_args_hash_table *args_hash_table; /* A count of the number of output symbols. */ unsigned int output_symbol_count; /* Stuff so we can handle DP relative relocations. */ long global_value; int global_sym_defined; }; typedef unsigned int symextn_entry; /* FIXME. */ #define ARGUMENTS 0 #define RETURN_VALUE 1 /* The various argument relocations that may be performed. */ typedef enum { /* No relocation. */ NO, /* Relocate 32 bits from GR to FP register. */ GF, /* Relocate 64 bits from a GR pair to FP pair. */ GD, /* Relocate 32 bits from FP to GR. */ FG, /* Relocate 64 bits from FP pair to GR pair. */ DG, } arg_reloc_type; /* What is being relocated (eg which argument or the return value). */ typedef enum { ARG0, ARG1, ARG2, ARG3, RET, } arg_reloc_location; /* ELF32/HPPA relocation support This file contains ELF32/HPPA relocation support as specified in the Stratus FTX/Golf Object File Format (SED-1762) dated November 19, 1992. */ #include "elf32-hppa.h" #include "hppa_stubs.h" static bfd_reloc_status_type hppa_elf_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); static unsigned long hppa_elf_relocate_insn PARAMS ((bfd *, asection *, unsigned long, unsigned long, long, long, unsigned long, unsigned long, unsigned long)); static bfd_reloc_status_type hppa_elf_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd*, char **)); static CONST reloc_howto_type * elf_hppa_reloc_type_lookup PARAMS ((bfd *, bfd_reloc_code_real_type)); static boolean elf32_hppa_set_section_contents PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type)); static void elf_info_to_howto PARAMS ((bfd *, arelent *, Elf32_Internal_Rela *)); static boolean elf32_hppa_backend_symbol_table_processing PARAMS ((bfd *, elf_symbol_type *, int)); static void elf32_hppa_backend_begin_write_processing PARAMS ((bfd *, struct bfd_link_info *)); static void elf32_hppa_backend_final_write_processing PARAMS ((bfd *, struct bfd_link_info *)); static void add_entry_to_symext_chain PARAMS ((bfd *, unsigned int, unsigned int, symext_chainS **, symext_chainS **)); static void elf_hppa_tc_make_sections PARAMS ((bfd *, symext_chainS *)); static boolean hppa_elf_is_local_label PARAMS ((bfd *, asymbol *)); static boolean elf32_hppa_add_symbol_hook PARAMS ((bfd *, struct bfd_link_info *, const Elf_Internal_Sym *, const char **, flagword *, asection **, bfd_vma *)); static bfd_reloc_status_type elf32_hppa_bfd_final_link_relocate PARAMS ((const reloc_howto_type *, bfd *, bfd *, asection *, bfd_byte *, bfd_vma, bfd_vma, bfd_vma, struct bfd_link_info *, asection *, const char *, int)); static struct bfd_link_hash_table *elf32_hppa_link_hash_table_create PARAMS ((bfd *)); static struct bfd_hash_entry * elf32_hppa_stub_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); static struct bfd_hash_entry * elf32_hppa_args_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); static boolean elf32_hppa_relocate_section PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *, Elf_Internal_Rela *, Elf_Internal_Sym *, asection **, char *)); static boolean elf32_hppa_stub_hash_table_init PARAMS ((struct elf32_hppa_stub_hash_table *, bfd *, struct bfd_hash_entry *(*) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)))); static boolean elf32_hppa_build_one_stub PARAMS ((struct bfd_hash_entry *, PTR)); static boolean elf32_hppa_read_symext_info PARAMS ((bfd *, Elf_Internal_Shdr *, struct elf32_hppa_args_hash_table *, Elf_Internal_Sym *, boolean, boolean)); static unsigned int elf32_hppa_size_of_stub PARAMS ((unsigned int, unsigned int, bfd_vma, bfd_vma, const char *)); static boolean elf32_hppa_arg_reloc_needed PARAMS ((unsigned int, unsigned int, arg_reloc_type [])); static void elf32_hppa_name_of_stub PARAMS ((unsigned int, unsigned int, bfd_vma, bfd_vma, char *)); static boolean elf32_hppa_size_symext PARAMS ((struct bfd_hash_entry *, PTR)); static boolean elf32_hppa_link_output_symbol_hook PARAMS ((bfd *, struct bfd_link_info *, const char *, Elf_Internal_Sym *, asection *)); /* ELF/PA relocation howto entries. */ static reloc_howto_type elf_hppa_howto_table[ELF_HOWTO_TABLE_SIZE] = { {R_PARISC_NONE, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_NONE"}, {R_PARISC_DIR32, 0, 0, 32, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DIR32"}, {R_PARISC_DIR21L, 0, 0, 21, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DIR21L"}, {R_PARISC_DIR17R, 0, 0, 17, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DIR17R"}, {R_PARISC_DIR17F, 0, 0, 17, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DIR17F"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_DIR14R, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DIR14R"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_PCREL21L, 0, 0, 21, true, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PCREL21L"}, {R_PARISC_PCREL17R, 0, 0, 17, true, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PCREL17R"}, {R_PARISC_PCREL17F, 0, 0, 17, true, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PCREL17F"}, {R_PARISC_PCREL17C, 0, 0, 17, true, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PCREL17C"}, {R_PARISC_PCREL14R, 0, 0, 14, true, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PCREL14R"}, {R_PARISC_PCREL14F, 0, 0, 14, true, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PCREL14F"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_DPREL21L, 0, 0, 21, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DPREL21L"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_DPREL14R, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DPREL14R"}, {R_PARISC_DPREL14F, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DPREL14F"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_DLTREL21L, 0, 0, 21, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DLTREL21L"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_DLTREL14R, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DLTREL14R"}, {R_PARISC_DLTREL14F, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DLTREL14F"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_DLTIND21L, 0, 0, 21, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DLTIND21L"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_DLTIND14R, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DLTIND14R"}, {R_PARISC_DLTIND14F, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_DLTIND14F"}, {R_PARISC_SETBASE, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_SETBASE"}, {R_PARISC_BASEREL32, 0, 0, 32, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_BASEREL32"}, {R_PARISC_BASEREL21L, 0, 0, 21, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_BASEREL21L"}, {R_PARISC_BASEREL17R, 0, 0, 17, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_BASEREL17R"}, {R_PARISC_BASEREL17F, 0, 0, 17, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_BASEREL17F"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_BASEREL14R, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_BASEREL14R"}, {R_PARISC_BASEREL14F, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_BASEREL14F"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_TEXTREL32, 0, 0, 32, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_TEXTREL32"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_DATAREL32, 0, 0, 32, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_PLABEL32, 0, 0, 32, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PLABEL32"}, {R_PARISC_PLABEL21L, 0, 0, 21, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PLABEL21L"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_PLABEL14R, 0, 0, 14, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PLABEL14R"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_PLTIND21L, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PLTIND21L"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_UNIMPLEMENTED"}, {R_PARISC_PLTIND14R, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PLTIND14R"}, {R_PARISC_PLTIND14F, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_PLTIND14F"}, {R_PARISC_COPY, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_COPY"}, {R_PARISC_GLOB_DAT, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_GLOB_DAT"}, {R_PARISC_JMP_SLOT, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_JMP_SLOT"}, {R_PARISC_RELATIVE, 0, 0, 0, false, 0, complain_overflow_bitfield, hppa_elf_reloc, "R_PARISC_RELATIVE"}, {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"}, }; /* Where (what register type) is an argument comming from? */ typedef enum { AR_NO, AR_GR, AR_FR, AR_FU, AR_FPDBL1, AR_FPDBL2, } arg_location; /* Horizontal represents the callee's argument location information, vertical represents caller's argument location information. Value at a particular X,Y location represents what (if any) argument relocation needs to be performed to make caller and callee agree. */ static CONST arg_reloc_type arg_mismatches[6][6] = { {NO, NO, NO, NO, NO, NO}, {NO, NO, GF, NO, GD, NO}, {NO, FG, NO, NO, NO, NO}, {NO, NO, NO, NO, NO, NO}, {NO, DG, NO, NO, NO, NO}, {NO, DG, NO, NO, NO, NO}, }; /* Likewise, but reversed for the return value. */ static CONST arg_reloc_type ret_mismatches[6][6] = { {NO, NO, NO, NO, NO, NO}, {NO, NO, FG, NO, DG, NO}, {NO, GF, NO, NO, NO, NO}, {NO, NO, NO, NO, NO, NO}, {NO, GD, NO, NO, NO, NO}, {NO, GD, NO, NO, NO, NO}, }; /* Misc static crud for symbol extension records. */ static symext_chainS *symext_rootP; static symext_chainS *symext_lastP; static int symext_chain_size; /* FIXME: We should be able to try this static variable! */ static symext_entryS *symextn_contents; /* For linker stub hash tables. */ #define elf32_hppa_stub_hash_lookup(table, string, create, copy) \ ((struct elf32_hppa_stub_hash_entry *) \ bfd_hash_lookup (&(table)->root, (string), (create), (copy))) #define elf32_hppa_stub_hash_traverse(table, func, info) \ (bfd_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct bfd_hash_entry *, PTR))) (func), \ (info))) /* For linker args hash tables. */ #define elf32_hppa_args_hash_lookup(table, string, create, copy) \ ((struct elf32_hppa_args_hash_entry *) \ bfd_hash_lookup (&(table)->root, (string), (create), (copy))) #define elf32_hppa_args_hash_traverse(table, func, info) \ (bfd_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct bfd_hash_entry *, PTR))) (func), \ (info))) #define elf32_hppa_args_hash_table_init(table, newfunc) \ (bfd_hash_table_init \ (&(table)->root, \ (struct bfd_hash_entry *(*) PARAMS ((struct bfd_hash_entry *, \ struct bfd_hash_table *, \ const char *))) (newfunc))) /* For HPPA linker hash table. */ #define elf32_hppa_link_hash_lookup(table, string, create, copy, follow)\ ((struct elf32_hppa_link_hash_entry *) \ elf_link_hash_lookup (&(table)->root, (string), (create), \ (copy), (follow))) #define elf32_hppa_link_hash_traverse(table, func, info) \ (elf_link_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct elf_link_hash_entry *, PTR))) (func), \ (info))) /* Get the PA ELF linker hash table from a link_info structure. */ #define elf32_hppa_hash_table(p) \ ((struct elf32_hppa_link_hash_table *) ((p)->hash)) /* Extract specific argument location bits for WHICH from the full argument location in AR. */ #define EXTRACT_ARBITS(ar, which) ((ar) >> (8 - ((which) * 2))) & 3 /* Assorted hash table functions. */ /* Initialize an entry in the stub hash table. */ static struct bfd_hash_entry * elf32_hppa_stub_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct elf32_hppa_stub_hash_entry *ret; ret = (struct elf32_hppa_stub_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == NULL) ret = ((struct elf32_hppa_stub_hash_entry *) bfd_hash_allocate (table, sizeof (struct elf32_hppa_stub_hash_entry))); if (ret == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Call the allocation method of the superclass. */ ret = ((struct elf32_hppa_stub_hash_entry *) bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret) { /* Initialize the local fields. */ ret->offset = 0; ret->target_value = 0; ret->target_section = NULL; } return (struct bfd_hash_entry *) ret; } /* Initialize a stub hash table. */ static boolean elf32_hppa_stub_hash_table_init (table, stub_bfd, newfunc) struct elf32_hppa_stub_hash_table *table; bfd *stub_bfd; struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); { table->offset = 0; table->location = 0; table->stub_bfd = stub_bfd; return (bfd_hash_table_init (&table->root, newfunc)); } /* Initialize an entry in the argument location hash table. */ static struct bfd_hash_entry * elf32_hppa_args_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct elf32_hppa_args_hash_entry *ret; ret = (struct elf32_hppa_args_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == NULL) ret = ((struct elf32_hppa_args_hash_entry *) bfd_hash_allocate (table, sizeof (struct elf32_hppa_args_hash_entry))); if (ret == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Call the allocation method of the superclass. */ ret = ((struct elf32_hppa_args_hash_entry *) bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); /* Initialize the local fields. */ if (ret) ret->arg_bits = 0; return (struct bfd_hash_entry *) ret; } /* Create the derived linker hash table. The PA ELF port uses the derived hash table to keep information specific to the PA ELF linker (without using static variables). */ static struct bfd_link_hash_table * elf32_hppa_link_hash_table_create (abfd) bfd *abfd; { struct elf32_hppa_link_hash_table *ret; ret = ((struct elf32_hppa_link_hash_table *) bfd_alloc (abfd, sizeof (struct elf32_hppa_link_hash_table))); if (ret == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } if (!_bfd_elf_link_hash_table_init (&ret->root, abfd, _bfd_elf_link_hash_newfunc)) { bfd_release (abfd, ret); return NULL; } ret->stub_hash_table = NULL; ret->args_hash_table = NULL; ret->output_symbol_count = 0; ret->global_value = 0; ret->global_sym_defined = 0; return &ret->root.root; } /* Relocate the given INSN given the various input parameters. FIXME: endianness and sizeof (long) issues abound here. */ static unsigned long hppa_elf_relocate_insn (abfd, input_sect, insn, address, sym_value, r_addend, r_format, r_field, pcrel) bfd *abfd; asection *input_sect; unsigned long insn; unsigned long address; long sym_value; long r_addend; unsigned long r_format; unsigned long r_field; unsigned long pcrel; { unsigned char opcode = get_opcode (insn); long constant_value; switch (opcode) { case LDO: case LDB: case LDH: case LDW: case LDWM: case STB: case STH: case STW: case STWM: case COMICLR: case SUBI: case ADDIT: case ADDI: case LDIL: case ADDIL: constant_value = HPPA_R_CONSTANT (r_addend); if (pcrel) sym_value -= address; sym_value = hppa_field_adjust (sym_value, constant_value, r_field); return hppa_rebuild_insn (abfd, insn, sym_value, r_format); case BL: case BE: case BLE: /* XXX computing constant_value is not needed??? */ constant_value = assemble_17 ((insn & 0x001f0000) >> 16, (insn & 0x00001ffc) >> 2, insn & 1); constant_value = (constant_value << 15) >> 15; if (pcrel) { sym_value -= address + input_sect->output_offset + input_sect->output_section->vma; sym_value = hppa_field_adjust (sym_value, -8, r_field); } else sym_value = hppa_field_adjust (sym_value, constant_value, r_field); return hppa_rebuild_insn (abfd, insn, sym_value >> 2, r_format); default: if (opcode == 0) { constant_value = HPPA_R_CONSTANT (r_addend); if (pcrel) sym_value -= address; return hppa_field_adjust (sym_value, constant_value, r_field); } else abort (); } } /* Relocate an HPPA ELF section. */ static boolean elf32_hppa_relocate_section (output_bfd, info, input_bfd, input_section, contents, relocs, local_syms, local_sections, output_names) bfd *output_bfd; struct bfd_link_info *info; bfd *input_bfd; asection *input_section; bfd_byte *contents; Elf_Internal_Rela *relocs; Elf_Internal_Sym *local_syms; asection **local_sections; char *output_names; { Elf_Internal_Shdr *symtab_hdr; Elf_Internal_Rela *rel; Elf_Internal_Rela *relend; symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr; rel = relocs; relend = relocs + input_section->reloc_count; for (; rel < relend; rel++) { int r_type; const reloc_howto_type *howto; long r_symndx; struct elf_link_hash_entry *h; Elf_Internal_Sym *sym; asection *sym_sec; bfd_vma relocation; bfd_reloc_status_type r; const char *sym_name; r_type = ELF32_R_TYPE (rel->r_info); if (r_type < 0 || r_type >= (int) R_PARISC_UNIMPLEMENTED) { bfd_set_error (bfd_error_bad_value); return false; } howto = elf_hppa_howto_table + r_type; r_symndx = ELF32_R_SYM (rel->r_info); if (info->relocateable) { /* This is a relocateable link. We don't have to change anything, unless the reloc is against a section symbol, in which case we have to adjust according to where the section symbol winds up in the output section. */ if (r_symndx < symtab_hdr->sh_info) { sym = local_syms + r_symndx; if (ELF_ST_TYPE (sym->st_info) == STT_SECTION) { sym_sec = local_sections[r_symndx]; rel->r_addend += sym_sec->output_offset; } } continue; } /* This is a final link. */ h = NULL; sym = NULL; sym_sec = NULL; if (r_symndx < symtab_hdr->sh_info) { sym = local_syms + r_symndx; sym_sec = local_sections[r_symndx]; relocation = ((ELF_ST_TYPE (sym->st_info) == STT_SECTION ? 0 : sym->st_value) + sym_sec->output_offset + sym_sec->output_section->vma); } else { long indx; indx = r_symndx - symtab_hdr->sh_info; h = elf_sym_hashes (input_bfd)[indx]; if (h->root.type == bfd_link_hash_defined) { sym_sec = h->root.u.def.section; relocation = (h->root.u.def.value + sym_sec->output_offset + sym_sec->output_section->vma); } else if (h->root.type == bfd_link_hash_weak) relocation = 0; else { if (!((*info->callbacks->undefined_symbol) (info, h->root.root.string, input_bfd, input_section, rel->r_offset))) return false; relocation = 0; } } if (h != NULL) sym_name = h->root.root.string; else { sym_name = output_names + sym->st_name; if (sym_name == NULL) return false; if (*sym_name == '\0') sym_name = bfd_section_name (input_bfd, sym_sec); } r = elf32_hppa_bfd_final_link_relocate (howto, input_bfd, output_bfd, input_section, contents, rel->r_offset, relocation, rel->r_addend, info, sym_sec, sym_name, h == NULL); if (r != bfd_reloc_ok) { switch (r) { case bfd_reloc_dangerous: { /* We use this return value to indicate that we performed a "dangerous" relocation. This doesn't mean we did the wrong thing, it just means there may be some cleanup that needs to be done here. In particular we had to swap the last call insn and its delay slot. If the delay slot insn needed a relocation, then we'll need to adjust the next relocation entry's offset to account for the fact that the insn moved. This hair wouldn't be necessary if we inserted stubs between procedures and used a "bl" to get to the stub. */ if (rel != relend) { Elf_Internal_Rela *next_rel = rel + 1; if (rel->r_offset + 4 == next_rel->r_offset) next_rel->r_offset -= 4; } break; } default: case bfd_reloc_outofrange: case bfd_reloc_overflow: { if (!((*info->callbacks->reloc_overflow) (info, sym_name, howto->name, (bfd_vma) 0, input_bfd, input_section, rel->r_offset))) return false; } break; } } } return true; } /* Return one (or more) BFD relocations which implement the base relocation with modifications based on format and field. */ elf32_hppa_reloc_type ** hppa_elf_gen_reloc_type (abfd, base_type, format, field) bfd *abfd; elf32_hppa_reloc_type base_type; int format; int field; { elf32_hppa_reloc_type *finaltype; elf32_hppa_reloc_type **final_types; /* Allocate slots for the BFD relocation. */ final_types = (elf32_hppa_reloc_type **) bfd_alloc_by_size_t (abfd, sizeof (elf32_hppa_reloc_type *) * 2); if (final_types == NULL) return NULL; /* Allocate space for the relocation itself. */ finaltype = (elf32_hppa_reloc_type *) bfd_alloc_by_size_t (abfd, sizeof (elf32_hppa_reloc_type)); if (finaltype == NULL) return NULL; /* Some reasonable defaults. */ final_types[0] = finaltype; final_types[1] = NULL; #define final_type finaltype[0] final_type = base_type; /* Just a tangle of nested switch statements to deal with the braindamage that a different field selector means a completely different relocation for PA ELF. */ switch (base_type) { case R_HPPA: case R_HPPA_ABS_CALL: switch (format) { case 14: switch (field) { case e_rsel: case e_rrsel: final_type = R_PARISC_DIR14R; break; case e_rtsel: final_type = R_PARISC_DLTREL14R; break; case e_tsel: final_type = R_PARISC_DLTREL14F; break; case e_rpsel: final_type = R_PARISC_PLABEL14R; break; default: return NULL; } break; case 17: switch (field) { case e_fsel: final_type = R_PARISC_DIR17F; break; case e_rsel: case e_rrsel: final_type = R_PARISC_DIR17R; break; default: return NULL; } break; case 21: switch (field) { case e_lsel: case e_lrsel: final_type = R_PARISC_DIR21L; break; case e_ltsel: final_type = R_PARISC_DLTREL21L; break; case e_lpsel: final_type = R_PARISC_PLABEL21L; break; default: return NULL; } break; case 32: switch (field) { case e_fsel: final_type = R_PARISC_DIR32; break; case e_psel: final_type = R_PARISC_PLABEL32; break; default: return NULL; } break; default: return NULL; } break; case R_HPPA_GOTOFF: switch (format) { case 14: switch (field) { case e_rsel: case e_rrsel: final_type = R_PARISC_DPREL14R; break; case e_fsel: final_type = R_PARISC_DPREL14F; break; default: return NULL; } break; case 21: switch (field) { case e_lrsel: case e_lsel: final_type = R_PARISC_DPREL21L; break; default: return NULL; } break; default: return NULL; } break; case R_HPPA_PCREL_CALL: switch (format) { case 14: switch (field) { case e_rsel: case e_rrsel: final_type = R_PARISC_PCREL14R; break; case e_fsel: final_type = R_PARISC_PCREL14F; break; default: return NULL; } break; case 17: switch (field) { case e_rsel: case e_rrsel: final_type = R_PARISC_PCREL17R; break; case e_fsel: final_type = R_PARISC_PCREL17F; break; default: return NULL; } break; case 21: switch (field) { case e_lsel: case e_lrsel: final_type = R_PARISC_PCREL21L; break; default: return NULL; } break; default: return NULL; } break; default: return NULL; } return final_types; } #undef final_type /* Set the contents of a particular section at a particular location. */ static boolean elf32_hppa_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { /* Ignore write requests for the symbol extension section until we've had the chance to rebuild it ourselves. */ if (!strcmp (section->name, ".PARISC.symextn") && !symext_chain_size) return true; else return bfd_elf32_set_section_contents (abfd, section, location, offset, count); } /* Translate from an elf into field into a howto relocation pointer. */ static void elf_info_to_howto (abfd, cache_ptr, dst) bfd *abfd; arelent *cache_ptr; Elf32_Internal_Rela *dst; { BFD_ASSERT (ELF32_R_TYPE(dst->r_info) < (unsigned int) R_PARISC_UNIMPLEMENTED); cache_ptr->howto = &elf_hppa_howto_table[ELF32_R_TYPE (dst->r_info)]; } /* Actually perform a relocation. NOTE this is (mostly) superceeded by elf32_hppa_bfd_final_link_relocate which is called by the new fast linker. */ static bfd_reloc_status_type hppa_elf_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol_in; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { /* It is no longer valid to call hppa_elf_reloc when creating a final executable. */ if (output_bfd) { reloc_entry->address += input_section->output_offset; /* Work around lossage in generic elf code to write relocations. (maps different section symbols into the same symbol index). */ if ((symbol_in->flags & BSF_SECTION_SYM) && symbol_in->section) reloc_entry->addend += symbol_in->section->output_offset; return bfd_reloc_ok; } else { *error_message = (char *) "Unsupported call to hppa_elf_reloc"; return bfd_reloc_notsupported; } } /* Actually perform a relocation as part of a final link. This can get rather hairy when linker stubs are needed. */ static bfd_reloc_status_type elf32_hppa_bfd_final_link_relocate (howto, input_bfd, output_bfd, input_section, contents, offset, value, addend, info, sym_sec, sym_name, is_local) const reloc_howto_type *howto; bfd *input_bfd; bfd *output_bfd; asection *input_section; bfd_byte *contents; bfd_vma offset; bfd_vma value; bfd_vma addend; struct bfd_link_info *info; asection *sym_sec; const char *sym_name; int is_local; { unsigned long insn; unsigned long r_type = howto->type; unsigned long r_format = howto->bitsize; unsigned long r_field = e_fsel; bfd_byte *hit_data = contents + offset + input_section->vma; boolean r_pcrel = howto->pc_relative; insn = bfd_get_32 (input_bfd, hit_data); /* Make sure we have a value for $global$. FIXME isn't this effectively just like the gp pointer on MIPS? Can we use those routines for this purpose? */ if (!elf32_hppa_hash_table (info)->global_sym_defined) { struct elf_link_hash_entry *h; asection *sec; h = elf_link_hash_lookup (elf_hash_table (info), "$global$", false, false, false); /* If there isn't a $global$, then we're in deep trouble. */ if (h == NULL) return bfd_reloc_notsupported; sec = h->root.u.def.section; elf32_hppa_hash_table (info)->global_value = (h->root.u.def.value + sec->vma + sec->output_offset); elf32_hppa_hash_table (info)->global_sym_defined = 1; } switch (r_type) { case R_PARISC_NONE: break; case R_PARISC_DIR32: case R_PARISC_DIR17F: case R_PARISC_PCREL17C: r_field = e_fsel; goto do_basic_type_1; case R_PARISC_DIR21L: case R_PARISC_PCREL21L: r_field = e_lrsel; goto do_basic_type_1; case R_PARISC_DIR17R: case R_PARISC_PCREL17R: case R_PARISC_DIR14R: case R_PARISC_PCREL14R: r_field = e_rrsel; goto do_basic_type_1; /* For all the DP relative relocations, we need to examine the symbol's section. If it's a code section, then "data pointer relative" makes no sense. In that case we don't adjust the "value", and for 21 bit addil instructions, we change the source addend register from %dp to %r0. */ case R_PARISC_DPREL21L: r_field = e_lrsel; if (sym_sec->flags & SEC_CODE) insn &= ~0x03e00000; else value -= elf32_hppa_hash_table (info)->global_value; goto do_basic_type_1; case R_PARISC_DPREL14R: r_field = e_rrsel; if ((sym_sec->flags & SEC_CODE) == 0) value -= elf32_hppa_hash_table (info)->global_value; goto do_basic_type_1; case R_PARISC_DPREL14F: r_field = e_fsel; if ((sym_sec->flags & SEC_CODE) == 0) value -= elf32_hppa_hash_table (info)->global_value; goto do_basic_type_1; /* These cases are separate as they may involve a lot more work to deal with linker stubs. */ case R_PARISC_PLABEL32: case R_PARISC_PLABEL21L: case R_PARISC_PLABEL14R: case R_PARISC_PCREL17F: { bfd_vma location; unsigned int len, caller_args, callee_args; arg_reloc_type arg_reloc_types[5]; struct elf32_hppa_args_hash_table *args_hash_table; struct elf32_hppa_args_hash_entry *args_hash; char *new_name, *stub_name; /* Get the field selector right. We'll need it in a minute. */ if (r_type == R_PARISC_PCREL17F || r_type == R_PARISC_PLABEL32) r_field = e_fsel; else if (r_type == R_PARISC_PLABEL21L) r_field = e_lrsel; else if (r_type == R_PARISC_PLABEL14R) r_field = e_rrsel; /* Find out where we are and where we're going. */ location = (offset + input_section->output_offset + input_section->output_section->vma); /* Now look for the argument relocation bits associated with the target. */ len = strlen (sym_name) + 1; if (is_local) len += 9; new_name = malloc (len); if (!new_name) { bfd_set_error (bfd_error_no_memory); return bfd_reloc_notsupported; } strcpy (new_name, sym_name); /* Local symbols have unique IDs. */ if (is_local) sprintf (new_name + len - 10, "_%08x", (int)sym_sec); args_hash_table = elf32_hppa_hash_table (info)->args_hash_table; args_hash = elf32_hppa_args_hash_lookup (args_hash_table, new_name, false, false); if (args_hash == NULL) callee_args = 0; else callee_args = args_hash->arg_bits; /* If this is a CALL relocation, then get the caller's bits from the addend. Else use the magic 0x155 value for PLABELS. Also we don't care about the destination (value) for PLABELS. */ if (r_type == R_PARISC_PCREL17F) caller_args = HPPA_R_ARG_RELOC (addend); else { caller_args = 0x155; location = value; } /* Any kind of linker stub needed? */ if (((int)(value - location) > 0x3ffff) || ((int)(value - location) < (int)0xfffc0000) || elf32_hppa_arg_reloc_needed (caller_args, callee_args, arg_reloc_types)) { struct elf32_hppa_stub_hash_table *stub_hash_table; struct elf32_hppa_stub_hash_entry *stub_hash; asection *stub_section; /* Build a name for the stub. */ len = strlen (new_name); len += 23; stub_name = malloc (len); if (!stub_name) { bfd_set_error (bfd_error_no_memory); return bfd_reloc_notsupported; } elf32_hppa_name_of_stub (caller_args, callee_args, location, value, stub_name); strcat (stub_name, new_name); free (new_name); stub_hash_table = elf32_hppa_hash_table (info)->stub_hash_table; stub_hash = elf32_hppa_stub_hash_lookup (stub_hash_table, stub_name, false, false); /* We're done with that name. */ free (stub_name); /* The stub BFD only has one section. */ stub_section = stub_hash_table->stub_bfd->sections; if (stub_hash != NULL) { if (r_type == R_PARISC_PCREL17F) { unsigned long delay_insn; unsigned int opcode, rtn_reg, ldo_target_reg, ldo_src_reg; /* We'll need to peek at the next insn. */ delay_insn = bfd_get_32 (input_bfd, hit_data + 4); opcode = get_opcode (delay_insn); /* We also need to know the return register for this call. */ rtn_reg = (insn & 0x03e00000) >> 21; ldo_src_reg = (delay_insn & 0x03e00000) >> 21; ldo_target_reg = (delay_insn & 0x001f0000) >> 16; /* Munge up the value and other parameters for hppa_elf_relocate_insn. */ value = (stub_hash->offset + stub_section->output_offset + stub_section->output_section->vma); r_format = 17; r_field = e_fsel; r_pcrel = 0; addend = 0; /* We need to peek at the delay insn and determine if we'll need to swap the branch and its delay insn. */ if ((insn & 2) || (opcode == LDO && ldo_target_reg == rtn_reg) || (delay_insn == 0x08000240)) { /* No need to swap the branch and its delay slot, but we do need to make sure to jump past the return pointer update in the stub. */ value += 4; /* If the delay insn does a return pointer adjustment, then we have to make sure it stays valid. */ if (opcode == LDO && ldo_target_reg == rtn_reg) { delay_insn &= 0xfc00ffff; delay_insn |= ((31 << 21) | (31 << 16)); bfd_put_32 (input_bfd, delay_insn, hit_data + 4); } /* Use a BLE to reach the stub. */ insn = BLE_SR4_R0; } else { /* Wonderful, we have to swap the call insn and its delay slot. */ bfd_put_32 (input_bfd, delay_insn, hit_data); /* Use a BLE,n to reach the stub. */ insn = (BLE_SR4_R0 | 0x2); bfd_put_32 (input_bfd, insn, hit_data + 4); insn = hppa_elf_relocate_insn (input_bfd, input_section, insn, offset + 4, value, addend, r_format, r_field, r_pcrel); /* Update the instruction word. */ bfd_put_32 (input_bfd, insn, hit_data + 4); return bfd_reloc_dangerous; } } else { /* PLABEL stuff is easy. */ value = (stub_hash->offset + stub_section->output_offset + stub_section->output_section->vma); /* We don't need the RP adjustment for PLABELs. */ value += 4; if (r_type == R_PARISC_PLABEL32) r_format = 32; else if (r_type == R_PARISC_PLABEL21L) r_format = 21; else if (r_type == R_PARISC_PLABEL14R) r_format = 14; r_pcrel = 0; addend = 0; } } else return bfd_reloc_notsupported; } goto do_basic_type_1; } do_basic_type_1: insn = hppa_elf_relocate_insn (input_bfd, input_section, insn, offset, value, addend, r_format, r_field, r_pcrel); break; /* Something we don't know how to handle. */ default: return bfd_reloc_notsupported; } /* Update the instruction word. */ bfd_put_32 (input_bfd, insn, hit_data); return (bfd_reloc_ok); } /* Return the address of the howto table entry to perform the CODE relocation for an ARCH machine. */ static CONST reloc_howto_type * elf_hppa_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { if ((int) code < (int) R_PARISC_UNIMPLEMENTED) { BFD_ASSERT ((int) elf_hppa_howto_table[(int) code].type == (int) code); return &elf_hppa_howto_table[(int) code]; } return NULL; } /* Return true if SYM represents a local label symbol. */ static boolean hppa_elf_is_local_label (abfd, sym) bfd *abfd; asymbol *sym; { return (sym->name[0] == 'L' && sym->name[1] == '$'); } /* Do any backend specific processing when beginning to write an object file. For PA ELF we need to determine the size of the symbol extension section *before* any other output processing happens. */ static void elf32_hppa_backend_begin_write_processing (abfd, info) bfd *abfd; struct bfd_link_info *info; { unsigned int i; asection *symextn_sec; /* Size up the symbol extension section. */ if ((abfd->outsymbols == NULL && info == NULL) || symext_chain_size != 0) return; if (info == NULL) { /* We were not called from the BFD ELF linker code, so we need to examine the output BFD's outsymbols. Note we can not build the symbol extensions now as the symbol map hasn't been set up. */ for (i = 0; i < abfd->symcount; i++) { elf_symbol_type *symbol = (elf_symbol_type *)abfd->outsymbols[i]; /* Only functions ever need an entry in the symbol extension section. */ if (!(symbol->symbol.flags & BSF_FUNCTION)) continue; /* And only if they specify the locations of their arguments. */ if (symbol->tc_data.hppa_arg_reloc == 0) continue; /* Yup. This function symbol needs an entry. */ symext_chain_size += 2 * sizeof (symext_entryS); } } else { struct elf32_hppa_args_hash_table *table; table = elf32_hppa_hash_table (info)->args_hash_table; /* Determine the size of the symbol extension section. */ elf32_hppa_args_hash_traverse (table, elf32_hppa_size_symext, &symext_chain_size); } /* Now create the section and set its size. We'll fill in the contents later. */ symextn_sec = bfd_get_section_by_name (abfd, SYMEXTN_SECTION_NAME); if (symextn_sec == NULL) symextn_sec = bfd_make_section (abfd, SYMEXTN_SECTION_NAME); bfd_set_section_flags (abfd, symextn_sec, SEC_LOAD | SEC_HAS_CONTENTS | SEC_DATA); symextn_sec->output_section = symextn_sec; symextn_sec->output_offset = 0; bfd_set_section_alignment (abfd, symextn_sec, 2); bfd_set_section_size (abfd, symextn_sec, symext_chain_size); } /* Called for each entry in the args location hash table. For each entry we bump the size pointer by 2 records (16 bytes). */ static boolean elf32_hppa_size_symext (gen_entry, in_args) struct bfd_hash_entry *gen_entry; PTR in_args; { unsigned int *sizep = (unsigned int *)in_args; *sizep += 2 * sizeof (symext_entryS); return true; } /* Backend routine called by the linker for each output symbol. For PA ELF we use this opportunity to add an appropriate entry to the symbol extension chain for function symbols. */ static boolean elf32_hppa_link_output_symbol_hook (abfd, info, name, sym, section) bfd *abfd; struct bfd_link_info *info; const char *name; Elf_Internal_Sym *sym; asection *section; { char *new_name; unsigned int len, index; struct elf32_hppa_args_hash_table *args_hash_table; struct elf32_hppa_args_hash_entry *args_hash; index = elf32_hppa_hash_table (info)->output_symbol_count++; /* We need to look up this symbol in the args hash table to see if it has argument relocation bits. */ if (ELF_ST_TYPE (sym->st_info) != STT_FUNC) return true; /* We know it's a function symbol of some kind. */ len = strlen (name) + 1; if (ELF_ST_BIND (sym->st_info) == STB_LOCAL) len += 9; new_name = malloc (len); if (new_name == NULL) { bfd_set_error (bfd_error_no_memory); return false; } strcpy (new_name, name); if (ELF_ST_BIND (sym->st_info) == STB_LOCAL) sprintf (new_name + len - 10, "_%08x", (int)section); /* Now that we have the unique name, we can look it up in the args hash table. */ args_hash_table = elf32_hppa_hash_table (info)->args_hash_table; args_hash = elf32_hppa_args_hash_lookup (args_hash_table, new_name, false, false); free (new_name); if (args_hash == NULL) return true; /* We know this symbol has arg reloc bits. */ add_entry_to_symext_chain (abfd, args_hash->arg_bits, index, &symext_rootP, &symext_lastP); return true; } /* Perform any processing needed late in the object file writing process. For PA ELF we build and set the contents of the symbol extension section. */ static void elf32_hppa_backend_final_write_processing (abfd, info) bfd *abfd; struct bfd_link_info *info; { asection *symextn_sec; unsigned int i, *symtab_map = (int *) elf_sym_extra (abfd); /* Now build the symbol extension section. */ if (symext_chain_size == 0) return; if (info == NULL) { /* We were not called from the backend linker, so we still need to build the symbol extension chain. Look at each symbol, adding the appropriate information to the symbol extension section list as necessary. */ for (i = 0; i < abfd->symcount; i++) { elf_symbol_type *symbol = (elf_symbol_type *) abfd->outsymbols[i]; /* Only functions ever need an entry in the symbol extension section. */ if (!(symbol->symbol.flags & BSF_FUNCTION)) continue; /* And only if they specify the locations of their arguments. */ if (symbol->tc_data.hppa_arg_reloc == 0) continue; /* Add this symbol's information to the chain. */ add_entry_to_symext_chain (abfd, symbol->tc_data.hppa_arg_reloc, symtab_map[i], &symext_rootP, &symext_lastP); } } /* Now fill in the contents of the symbol extension section. */ elf_hppa_tc_make_sections (abfd, symext_rootP); /* And attach that as the section's contents. */ symextn_sec = bfd_get_section_by_name (abfd, SYMEXTN_SECTION_NAME); if (symextn_sec == (asection *) 0) abort(); symextn_sec->contents = (void *)symextn_contents; bfd_set_section_contents (abfd, symextn_sec, symextn_sec->contents, symextn_sec->output_offset, symextn_sec->_raw_size); } /* Update the symbol extention chain to include the symbol pointed to by SYMBOLP if SYMBOLP is a function symbol. Used internally and by GAS. */ static void add_entry_to_symext_chain (abfd, arg_reloc, sym_idx, symext_root, symext_last) bfd *abfd; unsigned int arg_reloc; unsigned int sym_idx; symext_chainS **symext_root; symext_chainS **symext_last; { symext_chainS *symextP; /* Allocate memory and initialize this entry. */ symextP = (symext_chainS *) bfd_alloc (abfd, sizeof (symext_chainS) * 2); if (!symextP) { bfd_set_error (bfd_error_no_memory); abort(); /* FIXME */ } symextP[0].entry = ELF32_PARISC_SX_WORD (PARISC_SXT_SYMNDX, sym_idx); symextP[0].next = &symextP[1]; symextP[1].entry = ELF32_PARISC_SX_WORD (PARISC_SXT_ARG_RELOC, arg_reloc); symextP[1].next = NULL; /* Now update the chain itself so it can be walked later to build the symbol extension section. */ if (*symext_root == NULL) { *symext_root = &symextP[0]; *symext_last = &symextP[1]; } else { (*symext_last)->next = &symextP[0]; *symext_last = &symextP[1]; } } /* Build the symbol extension section. */ static void elf_hppa_tc_make_sections (abfd, symext_root) bfd *abfd; symext_chainS *symext_root; { symext_chainS *symextP; unsigned int i; asection *symextn_sec; symextn_sec = bfd_get_section_by_name (abfd, SYMEXTN_SECTION_NAME); /* Grab some memory for the contents of the symbol extension section itself. */ symextn_contents = (symext_entryS *) bfd_zalloc (abfd, symextn_sec->_raw_size); if (!symextn_contents) { bfd_set_error (bfd_error_no_memory); abort(); /* FIXME */ } /* Fill in the contents of the symbol extension chain. */ for (i = 0, symextP = symext_root; symextP; symextP = symextP->next, ++i) symextn_contents[i] = symextP->entry; return; } /* Do some PA ELF specific work after reading in the symbol table. In particular attach the argument relocation from the symbol extension section to the appropriate symbols. */ static boolean elf32_hppa_backend_symbol_table_processing (abfd, esyms,symcnt) bfd *abfd; elf_symbol_type *esyms; int symcnt; { Elf32_Internal_Shdr *symextn_hdr = bfd_elf_find_section (abfd, SYMEXTN_SECTION_NAME); unsigned int i, current_sym_idx = 0; /* If no symbol extension existed, then all symbol extension information is assumed to be zero. */ if (symextn_hdr == NULL) { for (i = 0; i < symcnt; i++) esyms[i].tc_data.hppa_arg_reloc = 0; return (true); } /* FIXME: Why not use bfd_get_section_contents here? Also should give memory back when we're done. */ /* Allocate a buffer of the appropriate size for the symextn section. */ symextn_hdr->contents = bfd_zalloc(abfd,symextn_hdr->sh_size); if (!symextn_hdr->contents) { bfd_set_error (bfd_error_no_memory); return false; } symextn_hdr->size = symextn_hdr->sh_size; /* Read in the symextn section. */ if (bfd_seek (abfd, symextn_hdr->sh_offset, SEEK_SET) == -1) return false; if (bfd_read ((PTR) symextn_hdr->contents, 1, symextn_hdr->size, abfd) != symextn_hdr->size) return false; /* Parse entries in the symbol extension section, updating the symtab entries as we go */ for (i = 0; i < symextn_hdr->size / sizeof(symext_entryS); i++) { symext_entryS *seP = ((symext_entryS *)symextn_hdr->contents) + i; unsigned int se_value = ELF32_PARISC_SX_VAL (*seP); unsigned int se_type = ELF32_PARISC_SX_TYPE (*seP); switch (se_type) { case PARISC_SXT_NULL: break; case PARISC_SXT_SYMNDX: if (se_value >= symcnt) { bfd_set_error (bfd_error_bad_value); return (false); } current_sym_idx = se_value - 1; break; case PARISC_SXT_ARG_RELOC: esyms[current_sym_idx].tc_data.hppa_arg_reloc = se_value; break; default: bfd_set_error (bfd_error_bad_value); return (false); } } return (true); } /* Read and attach the symbol extension information for the symbols in INPUT_BFD to the argument location hash table. Handle locals if DO_LOCALS is true; likewise for globals when DO_GLOBALS is true. */ static boolean elf32_hppa_read_symext_info (input_bfd, symtab_hdr, args_hash_table, local_syms, do_locals, do_globals) bfd *input_bfd; Elf_Internal_Shdr *symtab_hdr; struct elf32_hppa_args_hash_table *args_hash_table; Elf_Internal_Sym *local_syms; boolean do_locals; boolean do_globals; { asection *symextn_sec; symextn_entry *contents; unsigned int i, n_entries, current_index = 0; /* Get the symbol extension section for this BFD. If no section exists then there's nothing to do. Likewise if the section exists, but has no contents. */ symextn_sec = bfd_get_section_by_name (input_bfd, SYMEXTN_SECTION_NAME); if (symextn_sec == NULL || symextn_sec->_raw_size == 0) return true; contents = (symextn_entry *) malloc (symextn_sec->_raw_size); if (contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_get_section_contents (input_bfd, symextn_sec, contents, 0, symextn_sec->_raw_size) == false) { free (contents); return false; } n_entries = symextn_sec->_raw_size / sizeof (symextn_entry); for (i = 0; i < n_entries; i++) { symextn_entry entry = contents[i]; unsigned int value = ELF32_PARISC_SX_VAL (entry); unsigned int type = ELF32_PARISC_SX_TYPE (entry); struct elf32_hppa_args_hash_entry *args_hash; switch (type) { case PARISC_SXT_NULL: break; case PARISC_SXT_SYMNDX: if (value >= symtab_hdr->sh_size / sizeof (Elf32_External_Sym)) { bfd_set_error (bfd_error_bad_value); free (contents); return false; } current_index = value; break; case PARISC_SXT_ARG_RELOC: if (current_index < symtab_hdr->sh_info && do_locals) { Elf_Internal_Shdr *hdr; char *new_name; const char *sym_name; asection *sym_sec; unsigned int len; hdr = elf_elfsections (input_bfd)[local_syms[current_index].st_shndx]; sym_sec = (asection *)hdr->rawdata; sym_name = elf_string_from_elf_section (input_bfd, symtab_hdr->sh_link, local_syms[current_index].st_name); len = strlen (sym_name) + 10; new_name = malloc (len); if (new_name == NULL) { bfd_set_error (bfd_error_no_memory); free (contents); return false; } strcpy (new_name, sym_name); sprintf (new_name + len - 10, "_%08x", (int)sym_sec); /* This is a global symbol with argument location info. We need to enter it into the hash table. */ args_hash = elf32_hppa_args_hash_lookup (args_hash_table, new_name, true, true); free (new_name); if (args_hash == NULL) { free (contents); return false; } args_hash->arg_bits = value; break; } else if (current_index >= symtab_hdr->sh_info && do_globals) { struct elf_link_hash_entry *h; current_index -= symtab_hdr->sh_info; h = elf_sym_hashes(input_bfd)[current_index]; /* This is a global symbol with argument location information. We need to enter it into the hash table. */ args_hash = elf32_hppa_args_hash_lookup (args_hash_table, h->root.root.string, true, true); if (args_hash == NULL) { bfd_set_error (bfd_error_bad_value); free (contents); return false; } args_hash->arg_bits = value; break; } else break; default: bfd_set_error (bfd_error_bad_value); free (contents); return false; } } free (contents); return true; } /* Undo the generic ELF code's subtraction of section->vma from the value of each external symbol. */ static boolean elf32_hppa_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp) bfd *abfd; struct bfd_link_info *info; const Elf_Internal_Sym *sym; const char **namep; flagword *flagsp; asection **secp; bfd_vma *valp; { *valp += (*secp)->vma; return true; } /* Determine the name of the stub needed to perform a call assuming the argument relocation bits for caller and callee are in CALLER and CALLEE for a call from LOCATION to DESTINATION. Copy the name into STUB_NAME. */ static void elf32_hppa_name_of_stub (caller, callee, location, destination, stub_name) unsigned int caller, callee; bfd_vma location, destination; char *stub_name; { arg_reloc_type arg_reloc_types[5]; if (elf32_hppa_arg_reloc_needed (caller, callee, arg_reloc_types)) { arg_reloc_location i; /* Fill in the basic template. */ strcpy (stub_name, "__XX_XX_XX_XX_XX_stub_"); /* Now fix the specifics. */ for (i = ARG0; i <= RET; i++) switch (arg_reloc_types[i]) { case NO: stub_name[3 * i + 2] = 'N'; stub_name[3 * i + 3] = 'O'; break; case GF: stub_name[3 * i + 2] = 'G'; stub_name[3 * i + 3] = 'F'; break; case FG: stub_name[3 * i + 2] = 'F'; stub_name[3 * i + 3] = 'G'; break; case GD: stub_name[3 * i + 2] = 'G'; stub_name[3 * i + 3] = 'D'; break; case DG: stub_name[3 * i + 2] = 'D'; stub_name[3 * i + 3] = 'G'; break; } } else strcpy (stub_name, "_____long_branch_stub_"); } /* Determine if an argument relocation stub is needed to perform a call assuming the argument relocation bits for caller and callee are in CALLER and CALLEE. Place the type of relocations (if any) into stub_types_p. */ static boolean elf32_hppa_arg_reloc_needed (caller, callee, stub_types) unsigned int caller, callee; arg_reloc_type stub_types[5]; { /* Special case for no relocations. */ if (caller == 0 || callee == 0) return 0; else { arg_location caller_loc[5]; arg_location callee_loc[5]; /* Extract the location information for the argument and return value on both the caller and callee sides. */ caller_loc[ARG0] = EXTRACT_ARBITS (caller, ARG0); callee_loc[ARG0] = EXTRACT_ARBITS (callee, ARG0); caller_loc[ARG1] = EXTRACT_ARBITS (caller, ARG1); callee_loc[ARG1] = EXTRACT_ARBITS (callee, ARG1); caller_loc[ARG2] = EXTRACT_ARBITS (caller, ARG2); callee_loc[ARG2] = EXTRACT_ARBITS (callee, ARG2); caller_loc[ARG3] = EXTRACT_ARBITS (caller, ARG3); callee_loc[ARG3] = EXTRACT_ARBITS (callee, ARG3); caller_loc[RET] = EXTRACT_ARBITS (caller, RET); callee_loc[RET] = EXTRACT_ARBITS (callee, RET); /* Check some special combinations. This is necessary to deal with double precision FP arguments. */ if (caller_loc[ARG0] == AR_FU || caller_loc[ARG1] == AR_FU) { caller_loc[ARG0] = AR_FPDBL1; caller_loc[ARG1] = AR_NO; } if (caller_loc[ARG2] == AR_FU || caller_loc[ARG3] == AR_FU) { caller_loc[ARG2] = AR_FPDBL2; caller_loc[ARG3] = AR_NO; } if (callee_loc[ARG0] == AR_FU || callee_loc[ARG1] == AR_FU) { callee_loc[ARG0] = AR_FPDBL1; callee_loc[ARG1] = AR_NO; } if (callee_loc[ARG2] == AR_FU || callee_loc[ARG3] == AR_FU) { callee_loc[ARG2] = AR_FPDBL2; callee_loc[ARG3] = AR_NO; } /* Now look up any relocation needed for each argument and the return value. */ stub_types[ARG0] = arg_mismatches[caller_loc[ARG0]][callee_loc[ARG0]]; stub_types[ARG1] = arg_mismatches[caller_loc[ARG1]][callee_loc[ARG1]]; stub_types[ARG2] = arg_mismatches[caller_loc[ARG2]][callee_loc[ARG2]]; stub_types[ARG3] = arg_mismatches[caller_loc[ARG3]][callee_loc[ARG3]]; stub_types[RET] = ret_mismatches[caller_loc[RET]][callee_loc[RET]]; return (stub_types[ARG0] != NO || stub_types[ARG1] != NO || stub_types[ARG2] != NO || stub_types[ARG3] != NO || stub_types[RET] != NO); } } /* Compute the size of the stub needed to call from LOCATION to DESTINATION (a function named SYM_NAME), with argument relocation bits CALLER and CALLEE. Return zero if no stub is needed to perform such a call. */ static unsigned int elf32_hppa_size_of_stub (callee, caller, location, destination, sym_name) unsigned int callee, caller; bfd_vma location, destination; const char *sym_name; { arg_reloc_type arg_reloc_types[5]; /* Determine if a long branch or argument relocation stub is needed. If an argument relocation stub is needed, the relocation will be stored into arg_reloc_types. */ if (!(((int)(location - destination) > 0x3ffff) || ((int)(location - destination) < (int)0xfffc0000) || elf32_hppa_arg_reloc_needed (caller, callee, arg_reloc_types))) return 0; /* Some kind of stub is needed. Determine how big it needs to be. First check for argument relocation stubs as they also handle long calls. Then check for long calls to millicode and finally the normal long calls. */ if (arg_reloc_types[ARG0] != NO || arg_reloc_types[ARG1] != NO || arg_reloc_types[ARG2] != NO || arg_reloc_types[ARG3] != NO || arg_reloc_types[RET] != NO) { /* Some kind of argument relocation stub is needed. */ unsigned int len = 16; arg_reloc_location i; /* Each GR or FG relocation takes 2 insns, each GD or DG relocation takes 3 insns. Plus 4 more insns for the RP adjustment, ldil & (be | ble) and copy. */ for (i = ARG0; i <= RET; i++) switch (arg_reloc_types[i]) { case GF: case FG: len += 8; break; case GD: case DG: len += 12; break; default: break; } /* Extra instructions are needed if we're relocating a return value. */ if (arg_reloc_types[RET] != NO) len += 12; return len; } else if (!strncmp ("$$", sym_name, 2) && strcmp ("$$dyncall", sym_name)) return 12; else return 16; } /* Build one linker stub as defined by the stub hash table entry GEN_ENTRY. IN_ARGS contains the stub BFD and link info pointers. */ static boolean elf32_hppa_build_one_stub (gen_entry, in_args) struct bfd_hash_entry *gen_entry; PTR in_args; { void **args = (void **)in_args; bfd *stub_bfd = (bfd *)args[0]; struct bfd_link_info *info = (struct bfd_link_info *)args[1]; struct elf32_hppa_stub_hash_entry *entry; struct elf32_hppa_stub_hash_table *stub_hash_table; bfd_byte *loc; symvalue sym_value; const char *sym_name; /* Initialize pointers to the stub hash table, the particular entry we are building a stub for, and where (in memory) we should place the stub instructions. */ entry = (struct elf32_hppa_stub_hash_entry *)gen_entry; stub_hash_table = elf32_hppa_hash_table(info)->stub_hash_table; loc = stub_hash_table->location; /* Make a note of the offset within the stubs for this entry. */ entry->offset = stub_hash_table->offset; /* The symbol's name starts at offset 22. */ sym_name = entry->root.string + 22; sym_value = (entry->target_value + entry->target_section->output_offset + entry->target_section->output_section->vma); if (strncmp ("_____long_branch_stub_", entry->root.string, 22)) { /* This must be an argument or return value relocation stub. */ unsigned long insn; arg_reloc_location i; bfd_byte *begin_loc = loc; /* First the return pointer adjustment. Depending on exact calling sequence this instruction may be skipped. */ bfd_put_32 (stub_bfd, LDO_M4_R31_R31, loc); loc += 4; /* If we are relocating a return value, then we're going to have to return into the stub. So we have to save off the user's return pointer into the stack at RP'. */ if (strncmp (entry->root.string + 14, "NO", 2)) { bfd_put_32 (stub_bfd, STW_R31_M8R30, loc); loc += 4; } /* Iterate over the argument relocations, emitting instructions to move them around as necessary. */ for (i = ARG0; i <= ARG3; i++) { if (!strncmp (entry->root.string + 3 * i + 2, "GF", 2)) { bfd_put_32 (stub_bfd, STW_ARG_M16R30 | ((26 - i) << 16), loc); bfd_put_32 (stub_bfd, FLDW_M16R30_FARG | (4 + i), loc + 4); loc += 8; } else if (!strncmp (entry->root.string + 3 * i + 2, "FG", 2)) { bfd_put_32 (stub_bfd, FSTW_FARG_M16R30 | (4 + i), loc); bfd_put_32 (stub_bfd, LDW_M16R30_ARG | ((26 - i) << 16), loc + 4); loc += 8; } else if (!strncmp (entry->root.string + 3 * i + 2, "GD", 2)) { bfd_put_32 (stub_bfd, STW_ARG_M12R30 | ((26 - i) << 16), loc); bfd_put_32 (stub_bfd, STW_ARG_M16R30 | ((25 - i) << 16), loc + 4); bfd_put_32 (stub_bfd, FLDD_M16R30_FARG | (5 + i), loc + 8); loc += 12; } else if (!strncmp (entry->root.string + 3 * i + 2, "DG", 2)) { bfd_put_32 (stub_bfd, FSTD_FARG_M16R30 | (5 + i), loc); bfd_put_32 (stub_bfd, LDW_M12R30_ARG | ((26 - i) << 16), loc + 4); bfd_put_32 (stub_bfd, LDW_M16R30_ARG | ((25 - i) << 16), loc + 8); loc += 12; } } /* Load the high bits of the target address into %r1. */ insn = hppa_rebuild_insn (stub_bfd, LDIL_R1, hppa_field_adjust (sym_value, 0, e_lrsel), 21); bfd_put_32 (stub_bfd, insn, loc); loc += 4; /* If we are relocating a return value, then we're going to have to return into the stub, then perform the return value relocation. */ if (strncmp (entry->root.string + 14, "NO", 2)) { /* To return to the stub we "ble" to the target and copy the return pointer from %r31 into %r2. */ insn = hppa_rebuild_insn (stub_bfd, BLE_SR4_R1, hppa_field_adjust (sym_value, 0, e_rrsel) >> 2, 17); bfd_put_32 (stub_bfd, insn, loc); bfd_put_32 (stub_bfd, COPY_R31_R2, loc + 4); /* Reload the return pointer for our caller from the stack. */ bfd_put_32 (stub_bfd, LDW_M8R30_R31, loc + 8); loc += 12; /* Perform the return value relocation. */ if (!strncmp (entry->root.string + 14, "GF", 2)) { bfd_put_32 (stub_bfd, STW_ARG_M16R30 | (28 << 16), loc); bfd_put_32 (stub_bfd, FLDW_M16R30_FARG | 4, loc + 4); loc += 8; } else if (!strncmp (entry->root.string + 14, "FG", 2)) { bfd_put_32 (stub_bfd, FSTW_FARG_M16R30 | 4, loc); bfd_put_32 (stub_bfd, LDW_M16R30_ARG | (28 << 16), loc + 4); loc += 8; } else if (!strncmp (entry->root.string + 2, "GD", 2)) { bfd_put_32 (stub_bfd, STW_ARG_M12R30 | (28 << 16), loc); bfd_put_32 (stub_bfd, STW_ARG_M16R30 | (29 << 16), loc + 4); bfd_put_32 (stub_bfd, FLDD_M16R30_FARG | 4, loc + 8); loc += 12; } else if (!strncmp (entry->root.string + 2, "DG", 2)) { bfd_put_32 (stub_bfd, FSTD_FARG_M16R30 | 4, loc); bfd_put_32 (stub_bfd, LDW_M12R30_ARG | (28 << 16), loc + 4); bfd_put_32 (stub_bfd, LDW_M16R30_ARG | (29 << 16), loc + 8); loc += 12; } /* Branch back to the user's code now. */ bfd_put_32 (stub_bfd, BV_N_0_R31, loc); loc += 4; } else { /* No return value relocation, so we can simply "be" to the target and copy out return pointer into %r2. */ insn = hppa_rebuild_insn (stub_bfd, BE_SR4_R1, hppa_field_adjust (sym_value, 0, e_rrsel) >> 2, 17); bfd_put_32 (stub_bfd, insn, loc); bfd_put_32 (stub_bfd, COPY_R31_R2, loc + 4); loc += 8; } /* Update the location and offsets. */ stub_hash_table->location += (loc - begin_loc); stub_hash_table->offset += (loc - begin_loc); } else { /* Create one of two variant long branch stubs. One for $$dyncall and normal calls, the other for calls to millicode. */ unsigned long insn; int millicode_call = 0; if (!strncmp ("$$", sym_name, 2) && strcmp ("$$dyncall", sym_name)) millicode_call = 1; /* First the return pointer adjustment. Depending on exact calling sequence this instruction may be skipped. */ bfd_put_32 (stub_bfd, LDO_M4_R31_R31, loc); /* The next two instructions are the long branch itself. A long branch is formed with "ldil" loading the upper bits of the target address into a register, then branching with "be" which adds in the lower bits. Long branches to millicode nullify the delay slot of the "be". */ insn = hppa_rebuild_insn (stub_bfd, LDIL_R1, hppa_field_adjust (sym_value, 0, e_lrsel), 21); bfd_put_32 (stub_bfd, insn, loc + 4); insn = hppa_rebuild_insn (stub_bfd, BE_SR4_R1 | (millicode_call ? 2 : 0), hppa_field_adjust (sym_value, 0, e_rrsel) >> 2, 17); bfd_put_32 (stub_bfd, insn, loc + 8); if (!millicode_call) { /* The sequence to call this stub places the return pointer into %r31, the final target expects the return pointer in %r2, so copy the return pointer into the proper register. */ bfd_put_32 (stub_bfd, COPY_R31_R2, loc + 12); /* Update the location and offsets. */ stub_hash_table->location += 16; stub_hash_table->offset += 16; } else { /* Update the location and offsets. */ stub_hash_table->location += 12; stub_hash_table->offset += 12; } } return true; } /* External entry points for sizing and building linker stubs. */ /* Build all the stubs associated with the current output file. The stubs are kept in a hash table attached to the main linker hash table. This is called via hppaelf_finish in the linker. */ boolean elf32_hppa_build_stubs (stub_bfd, info) bfd *stub_bfd; struct bfd_link_info *info; { /* The stub BFD only has one section. */ asection *stub_sec = stub_bfd->sections; struct elf32_hppa_stub_hash_table *table; unsigned int size; void *args[2]; /* So we can pass both the BFD for the stubs and the link info structure to the routine which actually builds stubs. */ args[0] = stub_bfd; args[1] = info; /* Allocate memory to hold the linker stubs. */ size = bfd_section_size (stub_bfd, stub_sec); stub_sec->contents = bfd_zalloc (stub_bfd, size); if (stub_sec->contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } table = elf32_hppa_hash_table(info)->stub_hash_table; table->location = stub_sec->contents; /* Build the stubs as directed by the stub hash table. */ elf32_hppa_stub_hash_traverse (table, elf32_hppa_build_one_stub, args); return true; } /* Determine and set the size of the stub section for a final link. The basic idea here is to examine all the relocations looking for PC-relative calls to a target that is unreachable with a "bl" instruction or calls where the caller and callee disagree on the location of their arguments or return value. */ boolean elf32_hppa_size_stubs (stub_bfd, output_bfd, link_info) bfd *stub_bfd; bfd *output_bfd; struct bfd_link_info *link_info; { bfd *input_bfd; asection *section, *stub_sec; Elf_Internal_Shdr *symtab_hdr; Elf_Internal_Sym *local_syms, *isym; Elf32_External_Sym *ext_syms, *esym; struct elf32_hppa_stub_hash_table *stub_hash_table = 0; struct elf32_hppa_args_hash_table *args_hash_table = 0; /* Create and initialize the stub hash table. */ stub_hash_table = ((struct elf32_hppa_stub_hash_table *) malloc (sizeof (struct elf32_hppa_stub_hash_table))); if (!stub_hash_table) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (!elf32_hppa_stub_hash_table_init (stub_hash_table, stub_bfd, elf32_hppa_stub_hash_newfunc)) goto error_return; /* Likewise for the argument location hash table. */ args_hash_table = ((struct elf32_hppa_args_hash_table *) malloc (sizeof (struct elf32_hppa_args_hash_table))); if (!args_hash_table) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (!elf32_hppa_args_hash_table_init (args_hash_table, elf32_hppa_args_hash_newfunc)) goto error_return; /* Attach the hash tables to the main hash table. */ elf32_hppa_hash_table(link_info)->stub_hash_table = stub_hash_table; elf32_hppa_hash_table(link_info)->args_hash_table = args_hash_table; /* Walk over all the input BFDs adding entries to the args hash table for all the external functions. */ for (input_bfd = link_info->input_bfds; input_bfd != NULL; input_bfd = input_bfd->link_next) { /* We'll need the symbol table in a second. */ symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr; if (symtab_hdr->sh_info == 0) continue; if (elf32_hppa_read_symext_info (input_bfd, symtab_hdr, args_hash_table, NULL, false, true) == false) goto error_return; } /* Magic as we know the stub bfd only has one section. */ stub_sec = stub_bfd->sections; /* Now that we have argument location information for all the global functions we can start looking for stubs. */ for (input_bfd = link_info->input_bfds; input_bfd != NULL; input_bfd = input_bfd->link_next) { unsigned int i; /* We'll need the symbol table in a second. */ symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr; if (symtab_hdr->sh_info == 0) continue; /* We need an array of the local symbols attached to the input bfd. Unfortunately, we're going to have to read & swap them in. */ local_syms = (Elf_Internal_Sym *)malloc (symtab_hdr->sh_info * sizeof (Elf_Internal_Sym)); if (local_syms == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } ext_syms = (Elf32_External_Sym *)malloc (symtab_hdr->sh_info * sizeof (Elf32_External_Sym)); if (ext_syms == NULL) { bfd_set_error (bfd_error_no_memory); free (local_syms); goto error_return; } if (bfd_seek (input_bfd, symtab_hdr->sh_offset, SEEK_SET) != 0 || bfd_read (ext_syms, 1, (symtab_hdr->sh_info * sizeof (Elf32_External_Sym)), input_bfd) != (symtab_hdr->sh_info * sizeof (Elf32_External_Sym))) { free (local_syms); free (ext_syms); goto error_return; } /* Swap the local symbols in. */ isym = local_syms; esym = ext_syms; for (i = 0; i < symtab_hdr->sh_info; i++, esym++, isym++) bfd_elf32_swap_symbol_in (input_bfd, esym, isym); /* Now we can free the external symbols. */ free (ext_syms); if (elf32_hppa_read_symext_info (input_bfd, symtab_hdr, args_hash_table, local_syms, true, false) == false) { free (local_syms); goto error_return; } /* If generating a relocateable output file, then we don't have to examine the relocs. */ if (link_info->relocateable) { free (local_syms); return true; } /* Walk over each section attached to the input bfd. */ for (section = input_bfd->sections; section != NULL; section = section->next) { Elf_Internal_Shdr *input_rel_hdr; Elf32_External_Rela *external_relocs, *erelaend, *erela; Elf_Internal_Rela *internal_relocs, *irelaend, *irela; /* If there aren't any relocs, then there's nothing to do. */ if ((section->flags & SEC_RELOC) == 0 || section->reloc_count == 0) continue; /* Allocate space for the external relocations. */ external_relocs = (PTR) malloc (section->reloc_count * sizeof (Elf32_External_Rela)); if (external_relocs == NULL) { bfd_set_error (bfd_error_no_memory); free (local_syms); goto error_return; } /* Likewise for the internal relocations. */ internal_relocs = (PTR) malloc (section->reloc_count * sizeof (Elf_Internal_Rela)); if (internal_relocs == NULL) { bfd_set_error (bfd_error_no_memory); free (external_relocs); free (local_syms); goto error_return; } /* Read in the external relocs. */ input_rel_hdr = &elf_section_data (section)->rel_hdr; if (bfd_seek (input_bfd, input_rel_hdr->sh_offset, SEEK_SET) != 0 || bfd_read (external_relocs, 1, input_rel_hdr->sh_size, input_bfd) != input_rel_hdr->sh_size) { free (external_relocs); free (internal_relocs); free (local_syms); goto error_return; } /* Swap in the relocs. */ erela = external_relocs; erelaend = erela + section->reloc_count; irela = internal_relocs; for (; erela < erelaend; erela++, irela++) bfd_elf32_swap_reloca_in (input_bfd, erela, irela); /* We're done with the external relocs, free them. */ free (external_relocs); /* Now examine each relocation. */ irela = internal_relocs; irelaend = irela + section->reloc_count; for (; irela < irelaend; irela++) { long r_type, callee_args, caller_args, r_index, size_of_stub; struct elf_link_hash_entry *hash; struct elf32_hppa_stub_hash_entry *stub_hash; struct elf32_hppa_args_hash_entry *args_hash; Elf_Internal_Sym *sym; asection *sym_sec; const char *sym_name; symvalue sym_value; bfd_vma location, destination; char *new_name = NULL; r_type = ELF32_R_TYPE (irela->r_info); r_index = ELF32_R_SYM (irela->r_info); if (r_type < 0 || r_type >= (int) R_PARISC_UNIMPLEMENTED) { bfd_set_error (bfd_error_bad_value); free (internal_relocs); free (local_syms); goto error_return; } /* Only look for stubs on call instructions or plabel references. */ if (r_type != R_PARISC_PCREL17F && r_type != R_PARISC_PLABEL32 && r_type != R_PARISC_PLABEL21L && r_type != R_PARISC_PLABEL14R) continue; /* Now determine the call target, its name, value, section and argument relocation bits. */ hash = NULL; sym = NULL; sym_sec = NULL; if (r_index < symtab_hdr->sh_info) { /* It's a local symbol. */ Elf_Internal_Shdr *hdr; sym = local_syms + r_index; hdr = elf_elfsections (input_bfd)[sym->st_shndx]; sym_sec = (asection *)hdr->rawdata; sym_name = elf_string_from_elf_section (input_bfd, symtab_hdr->sh_link, sym->st_name); sym_value = (ELF_ST_TYPE (sym->st_info) == STT_SECTION ? 0 : sym->st_value); destination = (sym_value + sym_sec->output_offset + sym_sec->output_section->vma); /* Tack on an ID so we can uniquely identify this local symbol in the stub or arg info hash tables. */ new_name = malloc (strlen (sym_name) + 10); if (new_name == 0) { bfd_set_error (bfd_error_bad_value); free (internal_relocs); free (local_syms); goto error_return; } sprintf (new_name, "%s_%08x", sym_name, (int)sym_sec); sym_name = new_name; } else { /* It's an external symbol. */ long index; index = r_index - symtab_hdr->sh_info; hash = elf_sym_hashes (input_bfd)[index]; if (hash->root.type == bfd_link_hash_defined) { sym_sec = hash->root.u.def.section; sym_name = hash->root.root.string; sym_value = hash->root.u.def.value; destination = (sym_value + sym_sec->output_offset + sym_sec->output_section->vma); } else { bfd_set_error (bfd_error_bad_value); free (internal_relocs); free (local_syms); goto error_return; } } args_hash = elf32_hppa_args_hash_lookup (args_hash_table, sym_name, false, false); /* Get both caller and callee argument information. */ if (args_hash == NULL) callee_args = 0; else callee_args = args_hash->arg_bits; /* For calls get the caller's bits from the addend of the call relocation. For PLABELS the caller's bits are assumed to have all args & return values in general registers (0x155). */ if (r_type == R_PARISC_PCREL17F) caller_args = HPPA_R_ARG_RELOC (irela->r_addend); else caller_args = 0x155; /* Now determine where the call point is. */ location = (section->output_offset + section->output_section->vma + irela->r_offset); /* We only care about the destination for PCREL function calls (eg. we don't care for PLABELS). */ if (r_type != R_PARISC_PCREL17F) location = destination; /* Determine what (if any) linker stub is needed and its size (in bytes). */ size_of_stub = elf32_hppa_size_of_stub (callee_args, caller_args, location, destination, sym_name); if (size_of_stub != 0) { char *stub_name; unsigned int len; /* Get the name of this stub. */ len = strlen (sym_name); len += 23; stub_name = malloc (len); if (!stub_name) { bfd_set_error (bfd_error_no_memory); /* Because sym_name was mallocd above for local symbols. */ if (r_index < symtab_hdr->sh_info) free (new_name); free (internal_relocs); free (local_syms); goto error_return; } elf32_hppa_name_of_stub (caller_args, callee_args, location, destination, stub_name); strcat (stub_name + 22, sym_name); /* Because sym_name was malloced above for local symbols. */ if (r_index < symtab_hdr->sh_info) free (new_name); stub_hash = elf32_hppa_stub_hash_lookup (stub_hash_table, stub_name, false, false); if (stub_hash != NULL) { /* The proper stub has already been created, nothing else to do. */ free (stub_name); } else { bfd_set_section_size (stub_bfd, stub_sec, (bfd_section_size (stub_bfd, stub_sec) + size_of_stub)); /* Enter this entry into the linker stub hash table. */ stub_hash = elf32_hppa_stub_hash_lookup (stub_hash_table, stub_name, true, true); if (stub_hash == NULL) { bfd_set_error (bfd_error_no_memory); free (stub_name); free (internal_relocs); free (local_syms); goto error_return; } /* We'll need these to determine the address that the stub will branch to. */ stub_hash->target_value = sym_value; stub_hash->target_section = sym_sec; } free (stub_name); } } /* We're done with the internal relocs, free them. */ free (internal_relocs); } /* We're done with the local symbols, free them. */ free (local_syms); } return true; error_return: /* Return gracefully, avoiding dangling references to the hash tables. */ if (stub_hash_table) { elf32_hppa_hash_table(link_info)->stub_hash_table = NULL; free (stub_hash_table); } if (args_hash_table) { elf32_hppa_hash_table(link_info)->args_hash_table = NULL; free (args_hash_table); } return false; } /* Misc BFD support code. */ #define bfd_elf32_bfd_reloc_type_lookup elf_hppa_reloc_type_lookup #define bfd_elf32_bfd_is_local_label hppa_elf_is_local_label /* Symbol extension stuff. */ #define bfd_elf32_set_section_contents elf32_hppa_set_section_contents #define elf_backend_symbol_table_processing \ elf32_hppa_backend_symbol_table_processing #define elf_backend_begin_write_processing \ elf32_hppa_backend_begin_write_processing #define elf_backend_final_write_processing \ elf32_hppa_backend_final_write_processing /* Stuff for the BFD linker. */ #define elf_backend_relocate_section elf32_hppa_relocate_section #define elf_backend_add_symbol_hook elf32_hppa_add_symbol_hook #define elf_backend_link_output_symbol_hook \ elf32_hppa_link_output_symbol_hook #define bfd_elf32_bfd_link_hash_table_create \ elf32_hppa_link_hash_table_create #define TARGET_BIG_SYM bfd_elf32_hppa_vec #define TARGET_BIG_NAME "elf32-hppa" #define ELF_ARCH bfd_arch_hppa #define ELF_MACHINE_CODE EM_PARISC #define ELF_MAXPAGESIZE 0x1000 #include "elf32-target.h" gdb-4.13/bfd/elf32-hppa.h 666 34562 1752 11526 5606132442 13331 0ustar fnfcygnus/* ELF32/HPPA support This file contains ELF32/HPPA relocation support as specified in the Stratus FTX/Golf Object File Format (SED-1762) dated November 19, 1992. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by: Center for Software Science Department of Computer Science University of Utah This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef _ELF32_HPPA_H #define _ELF32_HPPA_H #include "libelf.h" #include "libhppa.h" #include "elf/hppa.h" /* ELF/HPPA relocation types */ typedef enum { /* Address relocation types These relocation types do simple base + offset relocations. */ R_PARISC_NONE = 0x00, R_PARISC_DIR32 = 0x01, R_PARISC_DIR21L = 0x02, R_PARISC_DIR17R = 0x03, R_PARISC_DIR17F = 0x04, R_PARISC_DIR14R = 0x06, /* PC-relative relocation types Typically used for calls. Note PCREL17C and PCREL17F differ only in overflow handling. PCREL17C never reports a relocation error. When supporting argument relocations, function calls must be accompanied by parameter relocation information. This information is carried in the ten high-order bits of the addend field. The remaining 22 bits of of the addend field are sign-extended to form the Addend. Note the code to build argument relocations depends on the addend being zero. A consequence of this limitation is GAS can not perform relocation reductions for function symbols. */ R_PARISC_PCREL21L = 0x0a, R_PARISC_PCREL17R = 0x0b, R_PARISC_PCREL17F = 0x0c, R_PARISC_PCREL17C = 0x0d, R_PARISC_PCREL14R = 0x0e, R_PARISC_PCREL14F = 0x0f, /* DP-relative relocation types. */ R_PARISC_DPREL21L = 0x12, R_PARISC_DPREL14R = 0x16, R_PARISC_DPREL14F = 0x17, /* Data linkage table (DLT) relocation types SOM DLT_REL fixup requests are used to for static data references from position-independent code within shared libraries. They are similar to the GOT relocation types in some SVR4 implementations. */ R_PARISC_DLTREL21L = 0x1a, R_PARISC_DLTREL14R = 0x1e, R_PARISC_DLTREL14F = 0x1f, /* DLT indirect relocation types */ R_PARISC_DLTIND21L = 0x22, R_PARISC_DLTIND14R = 0x26, R_PARISC_DLTIND14F = 0x27, /* Base relative relocation types. Ugh. These imply lots of state */ R_PARISC_SETBASE = 0x28, R_PARISC_BASEREL32 = 0x29, R_PARISC_BASEREL21L = 0x2a, R_PARISC_BASEREL17R = 0x2b, R_PARISC_BASEREL17F = 0x2c, R_PARISC_BASEREL14R = 0x2e, R_PARISC_BASEREL14F = 0x2f, /* Segment relative relocation types. */ R_PARISC_TEXTREL32 = 0x31, R_PARISC_DATAREL32 = 0x39, /* Plabel relocation types. */ R_PARISC_PLABEL32 = 0x41, R_PARISC_PLABEL21L = 0x42, R_PARISC_PLABEL14R = 0x46, /* PLT relocations. */ R_PARISC_PLTIND21L = 0x82, R_PARISC_PLTIND14R = 0x86, R_PARISC_PLTIND14F = 0x87, /* Misc relocation types. */ R_PARISC_COPY = 0x88, R_PARISC_GLOB_DAT = 0x89, R_PARISC_JMP_SLOT = 0x8a, R_PARISC_RELATIVE = 0x8b, R_PARISC_UNIMPLEMENTED, } elf32_hppa_reloc_type; #define ELF_HOWTO_TABLE_SIZE R_PARISC_UNIMPLEMENTED + 1 #define N_PARISC_RELOCS R_PARISC_UNIMPLEMENTED + 1 /* Define groups of basic relocations. FIXME: These should be the only basic relocations created by GAS. The rest should be internal to the BFD backend. The idea is both SOM and ELF define these basic relocation types so they map into a SOM or ELF specific relocation as appropriate. This allows GAS to share much more code between the two target object formats. */ #define R_HPPA_NONE R_PARISC_NONE #define R_HPPA R_PARISC_DIR32 #define R_HPPA_GOTOFF R_PARISC_DPREL21L #define R_HPPA_PCREL_CALL R_PARISC_PCREL21L #define R_HPPA_ABS_CALL R_PARISC_DIR17F #define R_HPPA_COMPLEX R_PARISC_UNIMPLEMENTED elf32_hppa_reloc_type **hppa_elf_gen_reloc_type PARAMS ((bfd *, elf32_hppa_reloc_type, int, int)); boolean elf32_hppa_size_stubs PARAMS ((bfd *, bfd *, struct bfd_link_info *)); boolean elf32_hppa_build_stubs PARAMS ((bfd *, struct bfd_link_info *)); #endif /* _ELF32_HPPA_H */ gdb-4.13/bfd/elf32-i386.c 666 34562 1752 72376 5603415317 13101 0ustar fnfcygnus/* Intel 80386/80486-specific support for 32-bit ELF Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #include "libelf.h" static CONST struct reloc_howto_struct *elf_i386_reloc_type_lookup PARAMS ((bfd *, bfd_reloc_code_real_type)); static void elf_i386_info_to_howto PARAMS ((bfd *, arelent *, Elf32_Internal_Rela *)); static void elf_i386_info_to_howto_rel PARAMS ((bfd *, arelent *, Elf32_Internal_Rel *)); static boolean elf_i386_create_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); static boolean elf_i386_adjust_dynamic_symbol PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *)); static boolean elf_i386_allocate_dynamic_section PARAMS ((bfd *, const char *)); static boolean elf_i386_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); static boolean elf_i386_relocate_section PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *, Elf_Internal_Rela *, Elf_Internal_Sym *, asection **, char *)); static boolean elf_i386_finish_dynamic_symbol PARAMS ((bfd *, struct bfd_link_info *, struct elf_link_hash_entry *, Elf_Internal_Sym *)); static boolean elf_i386_finish_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); #define USE_REL 1 /* 386 uses REL relocations instead of RELA */ enum reloc_type { R_386_NONE = 0, R_386_32, R_386_PC32, R_386_GOT32, R_386_PLT32, R_386_COPY, R_386_GLOB_DAT, R_386_JUMP_SLOT, R_386_RELATIVE, R_386_GOTOFF, R_386_GOTPC, R_386_max }; #if 0 static CONST char *CONST reloc_type_names[] = { "R_386_NONE", "R_386_32", "R_386_PC32", "R_386_GOT32", "R_386_PLT32", "R_386_COPY", "R_386_GLOB_DAT", "R_386_JUMP_SLOT", "R_386_RELATIVE", "R_386_GOTOFF", "R_386_GOTPC", }; #endif static reloc_howto_type elf_howto_table[]= { HOWTO(R_386_NONE, 0,0, 0,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_NONE", true,0x00000000,0x00000000,false), HOWTO(R_386_32, 0,2,32,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_32", true,0xffffffff,0xffffffff,false), HOWTO(R_386_PC32, 0,2,32,true, 0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_PC32", true,0xffffffff,0xffffffff,true), HOWTO(R_386_GOT32, 0,2,32,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_GOT32", true,0xffffffff,0xffffffff,false), HOWTO(R_386_PLT32, 0,2,32,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_PLT32", true,0xffffffff,0xffffffff,false), HOWTO(R_386_COPY, 0,2,32,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_COPY", true,0xffffffff,0xffffffff,false), HOWTO(R_386_GLOB_DAT, 0,2,32,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_GLOB_DAT", true,0xffffffff,0xffffffff,false), HOWTO(R_386_JUMP_SLOT, 0,2,32,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_JUMP_SLOT",true,0xffffffff,0xffffffff,false), HOWTO(R_386_RELATIVE, 0,2,32,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_RELATIVE", true,0xffffffff,0xffffffff,false), HOWTO(R_386_GOTOFF, 0,2,32,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_GOTOFF", true,0xffffffff,0xffffffff,false), HOWTO(R_386_GOTPC, 0,2,32,false,0,complain_overflow_bitfield, bfd_elf_generic_reloc,"R_386_GOTPC", true,0xffffffff,0xffffffff,false), }; #ifdef DEBUG_GEN_RELOC #define TRACE(str) fprintf (stderr, "i386 bfd reloc lookup %d (%s)\n", code, str) #else #define TRACE(str) #endif static CONST struct reloc_howto_struct * elf_i386_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { switch (code) { case BFD_RELOC_NONE: TRACE ("BFD_RELOC_NONE"); return &elf_howto_table[ (int)R_386_NONE ]; case BFD_RELOC_32: TRACE ("BFD_RELOC_32"); return &elf_howto_table[ (int)R_386_32 ]; case BFD_RELOC_32_PCREL: TRACE ("BFD_RELOC_PC32"); return &elf_howto_table[ (int)R_386_PC32 ]; case BFD_RELOC_386_GOT32: TRACE ("BFD_RELOC_386_GOT32"); return &elf_howto_table[ (int)R_386_GOT32 ]; case BFD_RELOC_386_PLT32: TRACE ("BFD_RELOC_386_PLT32"); return &elf_howto_table[ (int)R_386_PLT32 ]; case BFD_RELOC_386_COPY: TRACE ("BFD_RELOC_386_COPY"); return &elf_howto_table[ (int)R_386_COPY ]; case BFD_RELOC_386_GLOB_DAT: TRACE ("BFD_RELOC_386_GLOB_DAT"); return &elf_howto_table[ (int)R_386_GLOB_DAT ]; case BFD_RELOC_386_JUMP_SLOT: TRACE ("BFD_RELOC_386_JUMP_SLOT"); return &elf_howto_table[ (int)R_386_JUMP_SLOT ]; case BFD_RELOC_386_RELATIVE: TRACE ("BFD_RELOC_386_RELATIVE"); return &elf_howto_table[ (int)R_386_RELATIVE ]; case BFD_RELOC_386_GOTOFF: TRACE ("BFD_RELOC_386_GOTOFF"); return &elf_howto_table[ (int)R_386_GOTOFF ]; case BFD_RELOC_386_GOTPC: TRACE ("BFD_RELOC_386_GOTPC"); return &elf_howto_table[ (int)R_386_GOTPC ]; default: break; } TRACE ("Unknown"); return 0; } static void elf_i386_info_to_howto (abfd, cache_ptr, dst) bfd *abfd; arelent *cache_ptr; Elf32_Internal_Rela *dst; { BFD_ASSERT (ELF32_R_TYPE(dst->r_info) < (unsigned int) R_386_max); cache_ptr->howto = &elf_howto_table[ELF32_R_TYPE(dst->r_info)]; } static void elf_i386_info_to_howto_rel (abfd, cache_ptr, dst) bfd *abfd; arelent *cache_ptr; Elf32_Internal_Rel *dst; { BFD_ASSERT (ELF32_R_TYPE(dst->r_info) < (unsigned int) R_386_max); cache_ptr->howto = &elf_howto_table[ELF32_R_TYPE(dst->r_info)]; } /* Functions for the i386 ELF linker. */ /* The name of the dynamic interpreter. This is put in the .interp section. */ #define ELF_DYNAMIC_INTERPRETER "/usr/lib/libc.so.1" /* The size in bytes of an entry in the procedure linkage table. */ #define PLT_ENTRY_SIZE 16 /* The first entry in an absolute procedure linkage table looks like this. See the SVR4 ABI i386 supplement to see how this works. */ static bfd_byte elf_i386_plt0_entry[PLT_ENTRY_SIZE] = { 0xff, 0x35, /* pushl contents of address */ 0, 0, 0, 0, /* replaced with address of .got + 4. */ 0xff, 0x25, /* jmp indirect */ 0, 0, 0, 0, /* replaced with address of .got + 8. */ 0, 0, 0, 0 /* pad out to 16 bytes. */ }; /* Subsequent entries in an absolute procedure linkage table look like this. */ static bfd_byte elf_i386_plt_entry[PLT_ENTRY_SIZE] = { 0xff, 0x25, /* jmp indirect */ 0, 0, 0, 0, /* replaced with address of this symbol in .got. */ 0x68, /* pushl immediate */ 0, 0, 0, 0, /* replaced with offset into relocation table. */ 0xe9, /* jmp relative */ 0, 0, 0, 0 /* replaced with offset to start of .plt. */ }; /* Create dynamic sections when linking against a dynamic object. */ static boolean elf_i386_create_dynamic_sections (abfd, info) bfd *abfd; struct bfd_link_info *info; { flagword flags; register asection *s; struct elf_link_hash_entry *h; /* We need to create .plt, .rel.plt, .got, .dynbss, and .rel.bss sections. */ flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY; s = bfd_make_section (abfd, ".plt"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY | SEC_CODE) || ! bfd_set_section_alignment (abfd, s, 2)) return false; s = bfd_make_section (abfd, ".rel.plt"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; s = bfd_make_section (abfd, ".got"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags) || ! bfd_set_section_alignment (abfd, s, 2)) return false; /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got section. We don't do this in the linker script because we don't want to define the symbol if we are not creating a global offset table. */ h = NULL; if (! (_bfd_generic_link_add_one_symbol (info, abfd, "_GLOBAL_OFFSET_TABLE_", BSF_GLOBAL, s, (bfd_vma) 0, (const char *) NULL, false, get_elf_backend_data (abfd)->collect, (struct bfd_link_hash_entry **) &h))) return false; h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR; /* The first three global offset table entries are reserved. */ s->_raw_size += 3 * 4; /* The .dynbss section is a place to put symbols which are defined by dynamic objects, are referenced by regular objects, and are not functions. We must allocate space for them in the process image and use a R_386_COPY reloc to tell the dynamic linker to initialize them at run time. The linker script puts the .dynbss section into the .bss section of the final image. */ s = bfd_make_section (abfd, ".dynbss"); if (s == NULL || ! bfd_set_section_flags (abfd, s, SEC_ALLOC)) return false; /* The .rel.bss section holds copy relocs. This section is not normally needed. We need to create it here, though, so that the linker will map it to an output section. If it turns out not to be needed, we can discard it later. */ s = bfd_make_section (abfd, ".rel.bss"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; return true; } /* Adjust a symbol defined by a dynamic object and referenced by a regular object. The current definition is in some section of the dynamic object, but we're not including those sections. We have to change the definition to something the rest of the link can understand. */ static boolean elf_i386_adjust_dynamic_symbol (info, h) struct bfd_link_info *info; struct elf_link_hash_entry *h; { bfd *dynobj; asection *s; unsigned int power_of_two; size_t align; dynobj = elf_hash_table (info)->dynobj; /* Make sure we know what is going on here. */ BFD_ASSERT (dynobj != NULL && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0 && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) != 0 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0 && h->root.type == bfd_link_hash_defined && (bfd_get_flavour (h->root.u.def.section->owner) == bfd_target_elf_flavour) && (elf_elfheader (h->root.u.def.section->owner)->e_type == ET_DYN) && h->root.u.def.section->output_section == NULL); /* If this is a function, put it in the procedure linkage table. We will fill in the contents of the procedure linkage table later, when we know the address of the .got section. */ if (h->type == STT_FUNC) { s = bfd_get_section_by_name (dynobj, ".plt"); BFD_ASSERT (s != NULL); /* If this is the first .plt entry, make room for the special first entry. */ if (s->_raw_size == 0) s->_raw_size += PLT_ENTRY_SIZE; /* Set the symbol to this location in the .plt. */ h->root.u.def.section = s; h->root.u.def.value = s->_raw_size; /* Make room for this entry. */ s->_raw_size += PLT_ENTRY_SIZE; /* We also need to make an entry in the .got section. */ s = bfd_get_section_by_name (dynobj, ".got"); BFD_ASSERT (s != NULL); s->_raw_size += 4; /* We also need to make an entry in the .rel.plt section. */ s = bfd_get_section_by_name (dynobj, ".rel.plt"); BFD_ASSERT (s != NULL); s->_raw_size += sizeof (Elf32_External_Rel); return true; } /* If this is a weak symbol, and there is a real definition, the processor independent code will have arranged for us to see the real definition first, and we can just use the same value. */ if (h->weakdef != NULL) { BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined); h->root.u.def.section = h->weakdef->root.u.def.section; h->root.u.def.value = h->weakdef->root.u.def.value; h->align = (bfd_size_type) -1; return true; } /* This is a reference to a symbol defined by a dynamic object which is not a function. We must allocate it in our .dynbss section, which will become part of the .bss section of the executable. There will be an entry for this symbol in the .dynsym section. The dynamic object will contain position independent code, so all references from the dynamic object to this symbol will go through the global offset table. The dynamic linker will use the .dynsym entry to determine the address it must put in the global offset table, so both the dynamic object and the regular object will refer to the same memory location for the variable. */ s = bfd_get_section_by_name (dynobj, ".dynbss"); BFD_ASSERT (s != NULL); /* If the symbol is currently defined in the .bss section of the dynamic object, then it is OK to simply initialize it to zero. If the symbol is in some other section, we must generate a R_386_COPY reloc to tell the dynamic linker to copy the initial value out of the dynamic object and into the runtime process image. We need to remember the offset into the .rel.bss section we are going to use, and we coopt the align field for this purpose (the align field is only used for common symbols, and these symbols are always defined). It would be cleaner to use a new field, but that would waste memory. */ if ((h->root.u.def.section->flags & SEC_LOAD) == 0) h->align = (bfd_size_type) -1; else { asection *srel; srel = bfd_get_section_by_name (dynobj, ".rel.bss"); BFD_ASSERT (srel != NULL); h->align = srel->_raw_size; srel->_raw_size += sizeof (Elf32_External_Rel); } /* We need to figure out the alignment required for this symbol. I have no idea how ELF linkers handle this. */ switch (h->size) { case 0: case 1: power_of_two = 0; align = 1; break; case 2: power_of_two = 1; align = 2; break; case 3: case 4: power_of_two = 2; align = 4; break; case 5: case 6: case 7: case 8: power_of_two = 3; align = 8; break; default: power_of_two = 4; align = 16; break; } /* Apply the required alignment. */ s->_raw_size = BFD_ALIGN (s->_raw_size, align); if (power_of_two > bfd_get_section_alignment (dynobj, s)) { if (! bfd_set_section_alignment (dynobj, s, power_of_two)) return false; } /* Define the symbol as being at this point in the section. */ h->root.u.def.section = s; h->root.u.def.value = s->_raw_size; /* Increment the section size to make room for the symbol. */ s->_raw_size += h->size; return true; } /* Allocate contents for a section. */ static INLINE boolean elf_i386_allocate_dynamic_section (dynobj, name) bfd *dynobj; const char *name; { register asection *s; s = bfd_get_section_by_name (dynobj, name); BFD_ASSERT (s != NULL); s->contents = (bfd_byte *) bfd_alloc (dynobj, s->_raw_size); if (s->contents == NULL && s->_raw_size != 0) { bfd_set_error (bfd_error_no_memory); return false; } return true; } /* Set the sizes of the dynamic sections. */ static boolean elf_i386_size_dynamic_sections (output_bfd, info) bfd *output_bfd; struct bfd_link_info *info; { bfd *dynobj; asection *s; dynobj = elf_hash_table (info)->dynobj; BFD_ASSERT (dynobj != NULL); /* Set the contents of the .interp section to the interpreter. */ if (! info->shared) { s = bfd_get_section_by_name (dynobj, ".interp"); BFD_ASSERT (s != NULL); s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER; s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER; } /* The adjust_dynamic_symbol entry point has determined the sizes of the various dynamic sections. Allocate some memory for them to hold contents. */ if (! elf_i386_allocate_dynamic_section (dynobj, ".plt") || ! elf_i386_allocate_dynamic_section (dynobj, ".rel.plt") || ! elf_i386_allocate_dynamic_section (dynobj, ".got") || ! elf_i386_allocate_dynamic_section (dynobj, ".rel.bss")) return false; /* Add some entries to the .dynamic section. We fill in the values later, in elf_i386_finish_dynamic_sections, but we must add the entries now so that we get the correct size for the .dynamic section. The DT_DEBUG entry is filled in by the dynamic linker and used by the debugger. */ if (! bfd_elf32_add_dynamic_entry (info, DT_DEBUG, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_PLTGOT, 0)) return false; s = bfd_get_section_by_name (dynobj, ".plt"); BFD_ASSERT (s != NULL); if (s->_raw_size != 0) { if (! bfd_elf32_add_dynamic_entry (info, DT_PLTRELSZ, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_PLTREL, DT_REL) || ! bfd_elf32_add_dynamic_entry (info, DT_JMPREL, 0)) return false; } /* If we didn't need the .rel.bss section, then discard it from the output file. This is a hack. We don't bother to do it for the other sections because they normally are needed. */ s = bfd_get_section_by_name (dynobj, ".rel.bss"); BFD_ASSERT (s != NULL); if (s->_raw_size == 0) { asection **spp; for (spp = &s->output_section->owner->sections; *spp != s->output_section; spp = &(*spp)->next) ; *spp = s->output_section->next; --s->output_section->owner->section_count; } else { if (! bfd_elf32_add_dynamic_entry (info, DT_REL, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_RELSZ, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_RELENT, sizeof (Elf32_External_Rel))) return false; } return true; } /* Relocate an i386 ELF section. */ static boolean elf_i386_relocate_section (output_bfd, info, input_bfd, input_section, contents, relocs, local_syms, local_sections, output_names) bfd *output_bfd; struct bfd_link_info *info; bfd *input_bfd; asection *input_section; bfd_byte *contents; Elf_Internal_Rela *relocs; Elf_Internal_Sym *local_syms; asection **local_sections; char *output_names; { Elf_Internal_Shdr *symtab_hdr; Elf_Internal_Rela *rel; Elf_Internal_Rela *relend; symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr; rel = relocs; relend = relocs + input_section->reloc_count; for (; rel < relend; rel++) { int r_type; const reloc_howto_type *howto; long r_symndx; struct elf_link_hash_entry *h; Elf_Internal_Sym *sym; asection *sec; bfd_vma relocation; bfd_reloc_status_type r; r_type = ELF32_R_TYPE (rel->r_info); if (r_type < 0 || r_type >= (int) R_386_max) { bfd_set_error (bfd_error_bad_value); return false; } howto = elf_howto_table + r_type; r_symndx = ELF32_R_SYM (rel->r_info); if (info->relocateable) { /* This is a relocateable link. We don't have to change anything, unless the reloc is against a section symbol, in which case we have to adjust according to where the section symbol winds up in the output section. */ if (r_symndx < symtab_hdr->sh_info) { sym = local_syms + r_symndx; if (ELF_ST_TYPE (sym->st_info) == STT_SECTION) { bfd_vma val; sec = local_sections[r_symndx]; val = bfd_get_32 (input_bfd, contents + rel->r_offset); val += sec->output_offset + sym->st_value; bfd_put_32 (input_bfd, val, contents + rel->r_offset); } } continue; } /* This is a final link. */ h = NULL; sym = NULL; sec = NULL; if (r_symndx < symtab_hdr->sh_info) { sym = local_syms + r_symndx; sec = local_sections[r_symndx]; relocation = (sec->output_section->vma + sec->output_offset + sym->st_value); } else { long indx; indx = r_symndx - symtab_hdr->sh_info; h = elf_sym_hashes (input_bfd)[indx]; if (h->root.type == bfd_link_hash_defined) { sec = h->root.u.def.section; relocation = (h->root.u.def.value + sec->output_section->vma + sec->output_offset); } else if (h->root.type == bfd_link_hash_weak) relocation = 0; else { if (! ((*info->callbacks->undefined_symbol) (info, h->root.root.string, input_bfd, input_section, rel->r_offset))) return false; relocation = 0; } } r = _bfd_final_link_relocate (howto, input_bfd, input_section, contents, rel->r_offset, relocation, (bfd_vma) 0); if (r != bfd_reloc_ok) { switch (r) { default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: { const char *name; if (h != NULL) name = h->root.root.string; else { name = output_names + sym->st_name; if (name == NULL) return false; if (*name == '\0') name = bfd_section_name (input_bfd, sec); } if (! ((*info->callbacks->reloc_overflow) (info, name, howto->name, (bfd_vma) 0, input_bfd, input_section, rel->r_offset))) return false; } break; } } } return true; } /* Finish up dynamic symbol handling. We set the contents of various dynamic sections here. */ static boolean elf_i386_finish_dynamic_symbol (output_bfd, info, h, sym) bfd *output_bfd; struct bfd_link_info *info; struct elf_link_hash_entry *h; Elf_Internal_Sym *sym; { /* If this symbol is not defined by a dynamic object, or is not referenced by a regular object, ignore it. */ if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0 || (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0 || (h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) == 0) { /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. */ if (strcmp (h->root.root.string, "_DYNAMIC") == 0 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0) sym->st_shndx = SHN_ABS; return true; } BFD_ASSERT (h->root.type == bfd_link_hash_defined); BFD_ASSERT (h->dynindx != -1); if (h->type == STT_FUNC) { asection *splt; asection *sgot; asection *srel; bfd_vma plt_index; bfd_vma got_offset; Elf_Internal_Rel rel; splt = h->root.u.def.section; BFD_ASSERT (strcmp (bfd_get_section_name (splt->owner, splt), ".plt") == 0); sgot = bfd_get_section_by_name (splt->owner, ".got"); BFD_ASSERT (sgot != NULL); srel = bfd_get_section_by_name (splt->owner, ".rel.plt"); BFD_ASSERT (srel != NULL); /* FIXME: This only handles an absolute procedure linkage table. When producing a dynamic object, we need to generate a position independent procedure linkage table. */ /* Get the index in the procedure linkage table which corresponds to this symbol. This is the index of this symbol in all the symbols for which we are making plt entries. The first entry in the procedure linkage table is reserved. */ plt_index = h->root.u.def.value / PLT_ENTRY_SIZE - 1; /* Get the offset into the .got table of the entry that corresponds to this function. Each .got entry is 4 bytes. The first three are reserved. */ got_offset = (plt_index + 3) * 4; /* Fill in the entry in the procedure linkage table. */ memcpy (splt->contents + h->root.u.def.value, elf_i386_plt_entry, PLT_ENTRY_SIZE); bfd_put_32 (output_bfd, (sgot->output_section->vma + sgot->output_offset + got_offset), splt->contents + h->root.u.def.value + 2); bfd_put_32 (output_bfd, plt_index * sizeof (Elf32_External_Rel), splt->contents + h->root.u.def.value + 7); bfd_put_32 (output_bfd, - (h->root.u.def.value + PLT_ENTRY_SIZE), splt->contents + h->root.u.def.value + 12); /* Fill in the entry in the global offset table. */ bfd_put_32 (output_bfd, (splt->output_section->vma + splt->output_offset + h->root.u.def.value + 6), sgot->contents + got_offset); /* Fill in the entry in the .rel.plt section. */ rel.r_offset = (sgot->output_section->vma + sgot->output_offset + got_offset); rel.r_info = ELF32_R_INFO (h->dynindx, R_386_JUMP_SLOT); bfd_elf32_swap_reloc_out (output_bfd, &rel, ((Elf32_External_Rel *) srel->contents + plt_index)); /* Mark the symbol as undefined, rather than as defined in the .plt section. Leave the value alone. */ sym->st_shndx = SHN_UNDEF; } else { /* This is not a function. We have already allocated memory for it in the .bss section (via .dynbss). All we have to do here is create a COPY reloc if required. */ if (h->align != (bfd_size_type) -1) { asection *s; Elf_Internal_Rel rel; s = bfd_get_section_by_name (h->root.u.def.section->owner, ".rel.bss"); BFD_ASSERT (s != NULL); rel.r_offset = (h->root.u.def.value + h->root.u.def.section->output_section->vma + h->root.u.def.section->output_offset); rel.r_info = ELF32_R_INFO (h->dynindx, R_386_COPY); bfd_elf32_swap_reloc_out (output_bfd, &rel, ((Elf32_External_Rel *) (s->contents + h->align))); } } return true; } /* Finish up the dynamic sections. */ static boolean elf_i386_finish_dynamic_sections (output_bfd, info) bfd *output_bfd; struct bfd_link_info *info; { asection *splt; asection *sgot; asection *sdyn; Elf32_External_Dyn *dyncon, *dynconend; splt = bfd_get_section_by_name (elf_hash_table (info)->dynobj, ".plt"); sgot = bfd_get_section_by_name (elf_hash_table (info)->dynobj, ".got"); sdyn = bfd_get_section_by_name (elf_hash_table (info)->dynobj, ".dynamic"); BFD_ASSERT (splt != NULL && sgot != NULL && sdyn != NULL); dyncon = (Elf32_External_Dyn *) sdyn->contents; dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size); for (; dyncon < dynconend; dyncon++) { Elf_Internal_Dyn dyn; const char *name; boolean size; bfd_elf32_swap_dyn_in (elf_hash_table (info)->dynobj, dyncon, &dyn); /* My reading of the SVR4 ABI indicates that the procedure linkage table relocs (DT_JMPREL) should be included in the overall relocs (DT_REL). This is what Solaris does. However, UnixWare can not handle that case. Therefore, we override the DT_REL and DT_RELSZ entries here to make them not include the JMPREL relocs. */ switch (dyn.d_tag) { case DT_PLTGOT: name = ".got"; size = false; break; case DT_PLTRELSZ: name = ".rel.plt"; size = true; break; case DT_JMPREL: name = ".rel.plt"; size = false; break; case DT_REL: name = ".rel.bss"; size = false; break; case DT_RELSZ: name = ".rel.bss"; size = true; break; default: name = NULL; size = false; break; } if (name != NULL) { asection *s; s = bfd_get_section_by_name (output_bfd, name); BFD_ASSERT (s != NULL); if (! size) dyn.d_un.d_ptr = s->vma; else { if (s->_cooked_size != 0) dyn.d_un.d_val = s->_cooked_size; else dyn.d_un.d_val = s->_raw_size; } bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon); } } /* Fill in the first entry in the procedure linkage table. */ if (splt->_raw_size > 0) { memcpy (splt->contents, elf_i386_plt0_entry, PLT_ENTRY_SIZE); bfd_put_32 (output_bfd, sgot->output_section->vma + sgot->output_offset + 4, splt->contents + 2); bfd_put_32 (output_bfd, sgot->output_section->vma + sgot->output_offset + 8, splt->contents + 8); } /* Fill in the first three entries in the global offset table. */ if (sgot->_raw_size > 0) { bfd_put_32 (output_bfd, sdyn->output_section->vma + sdyn->output_offset, sgot->contents); bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4); bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8); } elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4; /* UnixWare sets the entsize of .plt to 4, although that doesn't really seem like the right value. */ elf_section_data (splt->output_section)->this_hdr.sh_entsize = 4; return true; } #define TARGET_LITTLE_SYM bfd_elf32_i386_vec #define TARGET_LITTLE_NAME "elf32-i386" #define ELF_ARCH bfd_arch_i386 #define ELF_MACHINE_CODE EM_386 #define elf_info_to_howto elf_i386_info_to_howto #define elf_info_to_howto_rel elf_i386_info_to_howto_rel #define bfd_elf32_bfd_reloc_type_lookup elf_i386_reloc_type_lookup #define ELF_MAXPAGESIZE 0x1000 #define elf_backend_create_dynamic_sections \ elf_i386_create_dynamic_sections #define elf_backend_adjust_dynamic_symbol \ elf_i386_adjust_dynamic_symbol #define elf_backend_size_dynamic_sections \ elf_i386_size_dynamic_sections #define elf_backend_relocate_section elf_i386_relocate_section #define elf_backend_finish_dynamic_symbol \ elf_i386_finish_dynamic_symbol #define elf_backend_finish_dynamic_sections \ elf_i386_finish_dynamic_sections #include "elf32-target.h" gdb-4.13/bfd/elf32-i860.c 666 34562 1752 2253 5470003356 13037 0ustar fnfcygnus/* Intel 860 specific support for 32-bit ELF Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libelf.h" #define bfd_elf32_bfd_reloc_type_lookup bfd_default_reloc_type_lookup #define elf_info_to_howto bfd_elf32_no_info_to_howto #define TARGET_BIG_SYM bfd_elf32_i860_vec #define TARGET_BIG_NAME "elf32-i860" #define ELF_ARCH bfd_arch_i860 #define ELF_MACHINE_CODE EM_860 #include "elf32-target.h" gdb-4.13/bfd/elf32-m68k.c 666 34562 1752 2254 5470003357 13140 0ustar fnfcygnus/* Motorola 68k series support for 32-bit ELF Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libelf.h" #define bfd_elf32_bfd_reloc_type_lookup bfd_default_reloc_type_lookup #define elf_info_to_howto bfd_elf32_no_info_to_howto #define TARGET_BIG_SYM bfd_elf32_m68k_vec #define TARGET_BIG_NAME "elf32-m68k" #define ELF_ARCH bfd_arch_m68k #define ELF_MACHINE_CODE EM_68K #include "elf32-target.h" gdb-4.13/bfd/elf32-m88k.c 666 34562 1752 2405 5470003357 13140 0ustar fnfcygnus/* Motorola 88k-specific support for 32-bit ELF Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libelf.h" /* This does not include any relocations, but should be good enough for GDB. */ #define TARGET_BIG_SYM bfd_elf32_m88k_vec #define TARGET_BIG_NAME "elf32-m88k" #define ELF_ARCH bfd_arch_m88k #define ELF_MACHINE_CODE EM_88K #define bfd_elf32_bfd_reloc_type_lookup bfd_default_reloc_type_lookup #define elf_info_to_howto bfd_elf32_no_info_to_howto #include "elf32-target.h" gdb-4.13/bfd/elf32-mips.c 666 34562 1752 216747 5606636503 13407 0ustar fnfcygnus/* MIPS-specific support for 32-bit ELF Copyright 1993, 1994 Free Software Foundation, Inc. Most of the information added by Ian Lance Taylor, Cygnus Support, . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "bfdlink.h" #include "genlink.h" #include "libelf.h" #include "elf/mips.h" /* Get the ECOFF swapping routines. */ #include "coff/sym.h" #include "coff/symconst.h" #include "coff/internal.h" #include "coff/ecoff.h" #include "coff/mips.h" #define ECOFF_32 #include "ecoffswap.h" static bfd_reloc_status_type mips_elf_hi16_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static bfd_reloc_status_type mips_elf_got16_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static bfd_reloc_status_type mips_elf_lo16_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static bfd_reloc_status_type mips_elf_gprel16_reloc PARAMS ((bfd *abfd, arelent *reloc, asymbol *symbol, PTR data, asection *section, bfd *output_bfd, char **error)); static const struct reloc_howto_struct *bfd_elf32_bfd_reloc_type_lookup PARAMS ((bfd *, bfd_reloc_code_real_type)); static void mips_info_to_howto_rel PARAMS ((bfd *, arelent *, Elf32_Internal_Rel *)); static boolean mips_elf_sym_is_global PARAMS ((bfd *, asymbol *)); static boolean mips_elf_object_p PARAMS ((bfd *)); static void mips_elf_final_write_processing PARAMS ((bfd *, struct bfd_link_info *)); static boolean mips_elf_section_from_shdr PARAMS ((bfd *, Elf32_Internal_Shdr *, char *)); static boolean mips_elf_fake_sections PARAMS ((bfd *, Elf32_Internal_Shdr *, asection *)); static boolean mips_elf_section_from_bfd_section PARAMS ((bfd *, Elf32_Internal_Shdr *, asection *, int *)); static boolean mips_elf_section_processing PARAMS ((bfd *, Elf32_Internal_Shdr *)); static void mips_elf_symbol_processing PARAMS ((bfd *, asymbol *)); static boolean mips_elf_read_ecoff_info PARAMS ((bfd *, asection *, struct ecoff_debug_info *)); static struct bfd_hash_entry *mips_elf_link_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); static struct bfd_link_hash_table *mips_elf_link_hash_table_create PARAMS ((bfd *)); static int gptab_compare PARAMS ((const void *, const void *)); static boolean mips_elf_final_link PARAMS ((bfd *, struct bfd_link_info *)); static void mips_elf_relocate_hi16 PARAMS ((bfd *, Elf_Internal_Rela *, Elf_Internal_Rela *, bfd_byte *, bfd_vma)); static boolean mips_elf_relocate_section PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *, Elf_Internal_Rela *, Elf_Internal_Sym *, asection **, char *)); static boolean mips_elf_add_symbol_hook PARAMS ((bfd *, struct bfd_link_info *, const Elf_Internal_Sym *, const char **, flagword *, asection **, bfd_vma *)); #define USE_REL 1 /* MIPS uses REL relocations instead of RELA */ enum reloc_type { R_MIPS_NONE = 0, R_MIPS_16, R_MIPS_32, R_MIPS_REL32, R_MIPS_26, R_MIPS_HI16, R_MIPS_LO16, R_MIPS_GPREL16, R_MIPS_LITERAL, R_MIPS_GOT16, R_MIPS_PC16, R_MIPS_CALL16, R_MIPS_GPREL32, R_MIPS_max }; static reloc_howto_type elf_mips_howto_table[] = { /* No relocation. */ HOWTO (R_MIPS_NONE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_MIPS_NONE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* 16 bit relocation. */ HOWTO (R_MIPS_16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_MIPS_16", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* 32 bit relocation. */ HOWTO (R_MIPS_32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_MIPS_32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* 32 bit symbol relative relocation. */ HOWTO (R_MIPS_REL32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_MIPS_REL32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* 26 bit branch address. */ HOWTO (R_MIPS_26, /* type */ 2, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ /* This needs complex overflow detection, because the upper four bits must match the PC. */ bfd_elf_generic_reloc, /* special_function */ "R_MIPS_26", /* name */ true, /* partial_inplace */ 0x3ffffff, /* src_mask */ 0x3ffffff, /* dst_mask */ false), /* pcrel_offset */ /* High 16 bits of symbol value. */ HOWTO (R_MIPS_HI16, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ mips_elf_hi16_reloc, /* special_function */ "R_MIPS_HI16", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Low 16 bits of symbol value. */ HOWTO (R_MIPS_LO16, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ mips_elf_lo16_reloc, /* special_function */ "R_MIPS_LO16", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* GP relative reference. */ HOWTO (R_MIPS_GPREL16, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ mips_elf_gprel16_reloc, /* special_function */ "R_MIPS_GPREL16", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Reference to literal section. */ HOWTO (R_MIPS_LITERAL, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ mips_elf_gprel16_reloc, /* special_function */ "R_MIPS_LITERAL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Reference to global offset table. */ /* FIXME: This is not handled correctly. */ HOWTO (R_MIPS_GOT16, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ mips_elf_got16_reloc, /* special_function */ "R_MIPS_GOT16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* 16 bit PC relative reference. */ HOWTO (R_MIPS_PC16, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_MIPS_PC16", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* 16 bit call through global offset table. */ /* FIXME: This is not handled correctly. */ HOWTO (R_MIPS_CALL16, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_MIPS_CALL16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* 32 bit GP relative reference. */ /* FIXME: This is not handled correctly. */ HOWTO (R_MIPS_GPREL32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_MIPS_GPREL32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false) /* pcrel_offset */ }; /* Do a R_MIPS_HI16 relocation. This has to be done in combination with a R_MIPS_LO16 reloc, because there is a carry from the LO16 to the HI16. Here we just save the information we need; we do the actual relocation when we see the LO16. MIPS ELF requires that the LO16 immediately follow the HI16, so this ought to work. */ static bfd_byte *mips_hi16_addr; static bfd_vma mips_hi16_addend; static bfd_reloc_status_type mips_elf_hi16_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { bfd_reloc_status_type ret; bfd_vma relocation; /* If we're relocating, and this an external symbol, we don't want to change anything. */ if (output_bfd != (bfd *) NULL && (symbol->flags & BSF_SECTION_SYM) == 0 && reloc_entry->addend == 0) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } /* FIXME: The symbol _gp_disp requires special handling, which we do not do. */ if (strcmp (bfd_asymbol_name (symbol), "_gp_disp") == 0) abort (); ret = bfd_reloc_ok; if (bfd_is_und_section (symbol->section) && output_bfd == (bfd *) NULL) ret = bfd_reloc_undefined; if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; relocation += reloc_entry->addend; if (reloc_entry->address > input_section->_cooked_size) return bfd_reloc_outofrange; /* Save the information, and let LO16 do the actual relocation. */ mips_hi16_addr = (bfd_byte *) data + reloc_entry->address; mips_hi16_addend = relocation; if (output_bfd != (bfd *) NULL) reloc_entry->address += input_section->output_offset; return ret; } /* Do a R_MIPS_LO16 relocation. This is a straightforward 16 bit inplace relocation; this function exists in order to do the R_MIPS_HI16 relocation described above. */ static bfd_reloc_status_type mips_elf_lo16_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { /* FIXME: The symbol _gp_disp requires special handling, which we do not do. */ if (output_bfd == (bfd *) NULL && strcmp (bfd_asymbol_name (symbol), "_gp_disp") == 0) abort (); if (mips_hi16_addr != (bfd_byte *) NULL) { unsigned long insn; unsigned long val; unsigned long vallo; /* Do the HI16 relocation. Note that we actually don't need to know anything about the LO16 itself, except where to find the low 16 bits of the addend needed by the LO16. */ insn = bfd_get_32 (abfd, mips_hi16_addr); vallo = (bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address) & 0xffff); val = ((insn & 0xffff) << 16) + vallo; val += mips_hi16_addend; /* The low order 16 bits are always treated as a signed value. Therefore, a negative value in the low order bits requires an adjustment in the high order bits. We need to make this adjustment in two ways: once for the bits we took from the data, and once for the bits we are putting back in to the data. */ if ((vallo & 0x8000) != 0) val -= 0x10000; if ((val & 0x8000) != 0) val += 0x10000; insn = (insn &~ 0xffff) | ((val >> 16) & 0xffff); bfd_put_32 (abfd, insn, mips_hi16_addr); mips_hi16_addr = (bfd_byte *) NULL; } /* Now do the LO16 reloc in the usual way. */ return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message); } /* Do a R_MIPS_GOT16 reloc. This is a reloc against the global offset table used for PIC code. If the symbol is an external symbol, the instruction is modified to contain the offset of the appropriate entry in the global offset table. If the symbol is a section symbol, the next reloc is a R_MIPS_LO16 reloc. The two 16 bit addends are combined to form the real addend against the section symbol; the GOT16 is modified to contain the offset of an entry in the global offset table, and the LO16 is modified to offset it appropriately. Thus an offset larger than 16 bits requires a modified value in the global offset table. This implementation suffices for the assembler, but the linker does not yet know how to create global offset tables. */ static bfd_reloc_status_type mips_elf_got16_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { /* If we're relocating, and this an external symbol, we don't want to change anything. */ if (output_bfd != (bfd *) NULL && (symbol->flags & BSF_SECTION_SYM) == 0 && reloc_entry->addend == 0) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } /* If we're relocating, and this is a local symbol, we can handle it just like HI16. */ if (output_bfd != (bfd *) NULL && (symbol->flags & BSF_SECTION_SYM) != 0) return mips_elf_hi16_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message); abort (); } /* Do a R_MIPS_GPREL16 relocation. This is a 16 bit value which must become the offset from the gp register. This function also handles R_MIPS_LITERAL relocations, although those can be handled more cleverly because the entries in the .lit8 and .lit4 sections can be merged. */ static bfd_reloc_status_type mips_elf_gprel16_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { boolean relocateable; bfd_vma relocation; unsigned long val; unsigned long insn; /* If we're relocating, and this is an external symbol with no addend, we don't want to change anything. We will only have an addend if this is a newly created reloc, not read from an ELF file. */ if (output_bfd != (bfd *) NULL && (symbol->flags & BSF_SECTION_SYM) == 0 && reloc_entry->addend == 0) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } if (output_bfd != (bfd *) NULL) relocateable = true; else { relocateable = false; output_bfd = symbol->section->output_section->owner; } if (bfd_is_und_section (symbol->section) && relocateable == false) return bfd_reloc_undefined; /* We have to figure out the gp value, so that we can adjust the symbol value correctly. We look up the symbol _gp in the output BFD. If we can't find it, we're stuck. We cache it in the ELF target data. We don't need to adjust the symbol value for an external symbol if we are producing relocateable output. */ if (elf_gp (output_bfd) == 0 && (relocateable == false || (symbol->flags & BSF_SECTION_SYM) != 0)) { if (relocateable != false) { /* Make up a value. */ elf_gp (output_bfd) = symbol->section->output_section->vma + 0x4000; } else { unsigned int count; asymbol **sym; unsigned int i; count = bfd_get_symcount (output_bfd); sym = bfd_get_outsymbols (output_bfd); if (sym == (asymbol **) NULL) i = count; else { for (i = 0; i < count; i++, sym++) { register CONST char *name; name = bfd_asymbol_name (*sym); if (*name == '_' && strcmp (name, "_gp") == 0) { elf_gp (output_bfd) = bfd_asymbol_value (*sym); break; } } } if (i >= count) { /* Only get the error once. */ elf_gp (output_bfd) = 4; *error_message = (char *) "GP relative relocation when _gp not defined"; return bfd_reloc_dangerous; } } } if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; if (reloc_entry->address > input_section->_cooked_size) return bfd_reloc_outofrange; insn = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address); /* Set val to the offset into the section or symbol. */ val = ((insn & 0xffff) + reloc_entry->addend) & 0xffff; if (val & 0x8000) val -= 0x10000; /* Adjust val for the final section location and GP value. If we are producing relocateable output, we don't want to do this for an external symbol. */ if (relocateable == false || (symbol->flags & BSF_SECTION_SYM) != 0) val += relocation - elf_gp (output_bfd); insn = (insn &~ 0xffff) | (val & 0xffff); bfd_put_32 (abfd, insn, (bfd_byte *) data + reloc_entry->address); if (relocateable != false) reloc_entry->address += input_section->output_offset; /* Make sure it fit in 16 bits. */ if (val >= 0x8000 && val < 0xffff8000) return bfd_reloc_overflow; return bfd_reloc_ok; } /* A mapping from BFD reloc types to MIPS ELF reloc types. */ struct elf_reloc_map { bfd_reloc_code_real_type bfd_reloc_val; enum reloc_type elf_reloc_val; }; static CONST struct elf_reloc_map mips_reloc_map[] = { { BFD_RELOC_NONE, R_MIPS_NONE, }, { BFD_RELOC_16, R_MIPS_16 }, { BFD_RELOC_32, R_MIPS_32 }, { BFD_RELOC_CTOR, R_MIPS_32 }, { BFD_RELOC_32_PCREL, R_MIPS_REL32 }, { BFD_RELOC_MIPS_JMP, R_MIPS_26 }, { BFD_RELOC_HI16_S, R_MIPS_HI16 }, { BFD_RELOC_LO16, R_MIPS_LO16 }, { BFD_RELOC_MIPS_GPREL, R_MIPS_GPREL16 }, { BFD_RELOC_MIPS_LITERAL, R_MIPS_LITERAL }, { BFD_RELOC_MIPS_GOT16, R_MIPS_GOT16 }, { BFD_RELOC_16_PCREL, R_MIPS_PC16 }, { BFD_RELOC_MIPS_CALL16, R_MIPS_CALL16 }, { BFD_RELOC_MIPS_GPREL32, R_MIPS_GPREL32 } }; /* Given a BFD reloc type, return a howto structure. */ static const struct reloc_howto_struct * bfd_elf32_bfd_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { int i; for (i = 0; i < sizeof (mips_reloc_map) / sizeof (struct elf_reloc_map); i++) { if (mips_reloc_map[i].bfd_reloc_val == code) return &elf_mips_howto_table[(int) mips_reloc_map[i].elf_reloc_val]; } return NULL; } /* Given a MIPS reloc type, fill in an arelent structure. */ static void mips_info_to_howto_rel (abfd, cache_ptr, dst) bfd *abfd; arelent *cache_ptr; Elf32_Internal_Rel *dst; { unsigned int r_type; r_type = ELF32_R_TYPE (dst->r_info); BFD_ASSERT (r_type < (unsigned int) R_MIPS_max); cache_ptr->howto = &elf_mips_howto_table[r_type]; /* The addend for a GPREL16 or LITERAL relocation comes from the GP value for the object file. We get the addend now, rather than when we do the relocation, because the symbol manipulations done by the linker may cause us to lose track of the input BFD. */ if (((*cache_ptr->sym_ptr_ptr)->flags & BSF_SECTION_SYM) != 0 && (r_type == (unsigned int) R_MIPS_GPREL16 || r_type == (unsigned int) R_MIPS_LITERAL)) cache_ptr->addend = elf_gp (abfd); } /* A .reginfo section holds a single Elf32_RegInfo structure. These routines swap this structure in and out. They are used outside of BFD, so they are globally visible. */ void bfd_mips_elf32_swap_reginfo_in (abfd, ex, in) bfd *abfd; const Elf32_External_RegInfo *ex; Elf32_RegInfo *in; { in->ri_gprmask = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_gprmask); in->ri_cprmask[0] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[0]); in->ri_cprmask[1] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[1]); in->ri_cprmask[2] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[2]); in->ri_cprmask[3] = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_cprmask[3]); in->ri_gp_value = bfd_h_get_32 (abfd, (bfd_byte *) ex->ri_gp_value); } void bfd_mips_elf32_swap_reginfo_out (abfd, in, ex) bfd *abfd; const Elf32_RegInfo *in; Elf32_External_RegInfo *ex; { bfd_h_put_32 (abfd, (bfd_vma) in->ri_gprmask, (bfd_byte *) ex->ri_gprmask); bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[0], (bfd_byte *) ex->ri_cprmask[0]); bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[1], (bfd_byte *) ex->ri_cprmask[1]); bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[2], (bfd_byte *) ex->ri_cprmask[2]); bfd_h_put_32 (abfd, (bfd_vma) in->ri_cprmask[3], (bfd_byte *) ex->ri_cprmask[3]); bfd_h_put_32 (abfd, (bfd_vma) in->ri_gp_value, (bfd_byte *) ex->ri_gp_value); } /* Swap an entry in a .gptab section. Note that these routines rely on the equivalence of the two elements of the union. */ static void bfd_mips_elf32_swap_gptab_in (abfd, ex, in) bfd *abfd; const Elf32_External_gptab *ex; Elf32_gptab *in; { in->gt_entry.gt_g_value = bfd_h_get_32 (abfd, ex->gt_entry.gt_g_value); in->gt_entry.gt_bytes = bfd_h_get_32 (abfd, ex->gt_entry.gt_bytes); } static void bfd_mips_elf32_swap_gptab_out (abfd, in, ex) bfd *abfd; const Elf32_gptab *in; Elf32_External_gptab *ex; { bfd_h_put_32 (abfd, (bfd_vma) in->gt_entry.gt_g_value, ex->gt_entry.gt_g_value); bfd_h_put_32 (abfd, (bfd_vma) in->gt_entry.gt_bytes, ex->gt_entry.gt_bytes); } /* Determine whether a symbol is global for the purposes of splitting the symbol table into global symbols and local symbols. At least on Irix 5, this split must be between section symbols and all other symbols. On most ELF targets the split is between static symbols and externally visible symbols. */ /*ARGSUSED*/ static boolean mips_elf_sym_is_global (abfd, sym) bfd *abfd; asymbol *sym; { return (sym->flags & BSF_SECTION_SYM) == 0 ? true : false; } /* Set the right machine number for a MIPS ELF file. */ static boolean mips_elf_object_p (abfd) bfd *abfd; { switch (elf_elfheader (abfd)->e_flags & EF_MIPS_ARCH) { default: case E_MIPS_ARCH_1: /* Just use the default, which was set in elfcode.h. */ break; case E_MIPS_ARCH_2: (void) bfd_default_set_arch_mach (abfd, bfd_arch_mips, 6000); break; case E_MIPS_ARCH_3: (void) bfd_default_set_arch_mach (abfd, bfd_arch_mips, 4000); break; } /* Irix 5 is broken. Object file symbol tables are not always sorted correctly such that local symbols precede global symbols, and the sh_info field in the symbol table is not always right. We try to quickly check whether the symbol table is broken for this BFD, and, if it is, we set elf_bad_symtab in tdata. */ if (elf_onesymtab (abfd) != 0) { Elf_Internal_Shdr *symtab_hdr; Elf32_External_Sym esym; symtab_hdr = &elf_tdata (abfd)->symtab_hdr; if (bfd_seek (abfd, (symtab_hdr->sh_offset + symtab_hdr->sh_size - sizeof (Elf32_External_Sym)), SEEK_SET) != 0 || (bfd_read ((PTR) &esym, 1, sizeof (Elf32_External_Sym), abfd) != sizeof (Elf32_External_Sym))) return false; if (ELF_ST_BIND (bfd_h_get_8 (abfd, (bfd_byte *) esym.st_info)) == STB_LOCAL) elf_bad_symtab (abfd) = true; } return true; } /* The final processing done just before writing out a MIPS ELF object file. This gets the MIPS architecture right based on the machine number. */ /*ARGSUSED*/ static void mips_elf_final_write_processing (abfd, info) bfd *abfd; struct bfd_link_info *info; { unsigned long val; unsigned int i; Elf_Internal_Shdr **hdrpp; switch (bfd_get_mach (abfd)) { case 3000: val = E_MIPS_ARCH_1; break; case 6000: val = E_MIPS_ARCH_2; break; case 4000: val = E_MIPS_ARCH_3; break; default: return; } elf_elfheader (abfd)->e_flags &=~ EF_MIPS_ARCH; elf_elfheader (abfd)->e_flags |= val; /* Set the sh_info field for .gptab sections. */ for (i = 1, hdrpp = elf_elfsections (abfd) + 1; i < elf_elfheader (abfd)->e_shnum; i++, hdrpp++) { if ((*hdrpp)->sh_type == SHT_MIPS_GPTAB) { const char *name; asection *sec; BFD_ASSERT ((*hdrpp)->rawdata != NULL); name = ((asection *) (*hdrpp)->rawdata)->name; BFD_ASSERT (name != NULL && strncmp (name, ".gptab.", sizeof ".gptab." - 1) == 0); sec = bfd_get_section_by_name (abfd, name + sizeof ".gptab" - 1); BFD_ASSERT (sec != NULL); (*hdrpp)->sh_info = elf_section_data (sec)->this_idx; } } } /* Handle a MIPS specific section when reading an object file. This is called when elfcode.h finds a section with an unknown type. FIXME: We need to handle the SHF_MIPS_GPREL flag, but I'm not sure how to. */ static boolean mips_elf_section_from_shdr (abfd, hdr, name) bfd *abfd; Elf32_Internal_Shdr *hdr; char *name; { asection *newsect; /* There ought to be a place to keep ELF backend specific flags, but at the moment there isn't one. We just keep track of the sections by their name, instead. Fortunately, the ABI gives suggested names for all the MIPS specific sections, so we will probably get away with this. */ switch (hdr->sh_type) { case SHT_MIPS_LIBLIST: if (strcmp (name, ".liblist") != 0) return false; break; case SHT_MIPS_CONFLICT: if (strcmp (name, ".conflict") != 0) return false; break; case SHT_MIPS_GPTAB: if (strncmp (name, ".gptab.", sizeof ".gptab." - 1) != 0) return false; break; case SHT_MIPS_UCODE: if (strcmp (name, ".ucode") != 0) return false; break; case SHT_MIPS_DEBUG: if (strcmp (name, ".mdebug") != 0) return false; break; case SHT_MIPS_REGINFO: if (strcmp (name, ".reginfo") != 0 || hdr->sh_size != sizeof (Elf32_External_RegInfo)) return false; break; case SHT_MIPS_OPTIONS: if (strcmp (name, ".options") != 0) return false; break; default: return false; } if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name)) return false; newsect = (asection *) hdr->rawdata; if (hdr->sh_type == SHT_MIPS_DEBUG) { if (! bfd_set_section_flags (abfd, newsect, (bfd_get_section_flags (abfd, newsect) | SEC_DEBUGGING))) return false; } /* FIXME: We should record sh_info for a .gptab section. */ /* For a .reginfo section, set the gp value in the tdata information from the contents of this section. We need the gp value while processing relocs, so we just get it now. */ if (hdr->sh_type == SHT_MIPS_REGINFO) { Elf32_External_RegInfo ext; Elf32_RegInfo s; if (! bfd_get_section_contents (abfd, newsect, (PTR) &ext, (file_ptr) 0, sizeof ext)) return false; bfd_mips_elf32_swap_reginfo_in (abfd, &ext, &s); elf_gp (abfd) = s.ri_gp_value; } return true; } /* Set the correct type for a MIPS ELF section. We do this by the section name, which is a hack, but ought to work. */ static boolean mips_elf_fake_sections (abfd, hdr, sec) bfd *abfd; Elf32_Internal_Shdr *hdr; asection *sec; { register const char *name; name = bfd_get_section_name (abfd, sec); if (strcmp (name, ".liblist") == 0) { hdr->sh_type = SHT_MIPS_LIBLIST; hdr->sh_info = sec->_raw_size / sizeof (Elf32_Lib); /* FIXME: Set the sh_link field. */ } else if (strcmp (name, ".conflict") == 0) hdr->sh_type = SHT_MIPS_CONFLICT; else if (strncmp (name, ".gptab.", sizeof ".gptab." - 1) == 0) { hdr->sh_type = SHT_MIPS_GPTAB; hdr->sh_entsize = sizeof (Elf32_External_gptab); /* The sh_info field is set in mips_elf_final_write_processing. */ } else if (strcmp (name, ".ucode") == 0) hdr->sh_type = SHT_MIPS_UCODE; else if (strcmp (name, ".mdebug") == 0) { hdr->sh_type = SHT_MIPS_DEBUG; hdr->sh_entsize = 1; } else if (strcmp (name, ".reginfo") == 0) { hdr->sh_type = SHT_MIPS_REGINFO; hdr->sh_entsize = 1; /* Force the section size to the correct value, even if the linker thinks it is larger. The link routine below will only write out this much data for .reginfo. */ hdr->sh_size = sec->_raw_size = sizeof (Elf32_External_RegInfo); } else if (strcmp (name, ".options") == 0) { hdr->sh_type = SHT_MIPS_OPTIONS; hdr->sh_entsize = 1; } return true; } /* Given a BFD section, try to locate the corresponding ELF section index. */ static boolean mips_elf_section_from_bfd_section (abfd, hdr, sec, retval) bfd *abfd; Elf32_Internal_Shdr *hdr; asection *sec; int *retval; { if (strcmp (bfd_get_section_name (abfd, sec), ".scommon") == 0) { *retval = SHN_MIPS_SCOMMON; return true; } if ((asection *) hdr->rawdata == sec) return true; return false; } /* Work over a section just before writing it out. We update the GP value in the .reginfo section based on the value we are using. FIXME: We recognize sections that need the SHF_MIPS_GPREL flag by name; there has to be a better way. */ static boolean mips_elf_section_processing (abfd, hdr) bfd *abfd; Elf32_Internal_Shdr *hdr; { if (hdr->sh_type == SHT_MIPS_REGINFO) { bfd_byte buf[4]; BFD_ASSERT (hdr->sh_size == sizeof (Elf32_External_RegInfo)); BFD_ASSERT (hdr->contents == NULL); if (bfd_seek (abfd, hdr->sh_offset + sizeof (Elf32_External_RegInfo) - 4, SEEK_SET) == -1) return false; bfd_h_put_32 (abfd, (bfd_vma) elf_gp (abfd), buf); if (bfd_write (buf, (bfd_size_type) 1, (bfd_size_type) 4, abfd) != 4) return false; } if (hdr->rawdata != NULL) { const char *name = ((asection *) hdr->rawdata)->name; if (strcmp (name, ".sdata") == 0) { hdr->sh_flags |= SHF_ALLOC | SHF_WRITE | SHF_MIPS_GPREL; hdr->sh_type = SHT_PROGBITS; } else if (strcmp (name, ".sbss") == 0) { hdr->sh_flags |= SHF_ALLOC | SHF_WRITE | SHF_MIPS_GPREL; hdr->sh_type = SHT_NOBITS; } else if (strcmp (name, ".lit8") == 0 || strcmp (name, ".lit4") == 0) { hdr->sh_flags |= SHF_ALLOC | SHF_WRITE | SHF_MIPS_GPREL; hdr->sh_type = SHT_PROGBITS; } } return true; } /* MIPS ELF uses two common sections. One is the usual one, and the other is for small objects. All the small objects are kept together, and then referenced via the gp pointer, which yields faster assembler code. This is what we use for the small common section. This approach is copied from ecoff.c. */ static asection mips_elf_scom_section; static asymbol mips_elf_scom_symbol; static asymbol *mips_elf_scom_symbol_ptr; /* MIPS ELF also uses an acommon section, which represents an allocated common symbol which may be overridden by a definition in a shared library. */ static asection mips_elf_acom_section; static asymbol mips_elf_acom_symbol; static asymbol *mips_elf_acom_symbol_ptr; /* Handle the special MIPS section numbers that a symbol may use. */ static void mips_elf_symbol_processing (abfd, asym) bfd *abfd; asymbol *asym; { elf_symbol_type *elfsym; elfsym = (elf_symbol_type *) asym; switch (elfsym->internal_elf_sym.st_shndx) { case SHN_MIPS_ACOMMON: /* This section is used in a dynamically linked executable file. It is an allocated common section. The dynamic linker can either resolve these symbols to something in a shared library, or it can just leave them here. For our purposes, we can consider these symbols to be in a new section. */ if (mips_elf_acom_section.name == NULL) { /* Initialize the acommon section. */ mips_elf_acom_section.name = ".acommon"; mips_elf_acom_section.flags = SEC_NO_FLAGS; mips_elf_acom_section.output_section = &mips_elf_acom_section; mips_elf_acom_section.symbol = &mips_elf_acom_symbol; mips_elf_acom_section.symbol_ptr_ptr = &mips_elf_acom_symbol_ptr; mips_elf_acom_symbol.name = ".acommon"; mips_elf_acom_symbol.flags = BSF_SECTION_SYM; mips_elf_acom_symbol.section = &mips_elf_acom_section; mips_elf_acom_symbol_ptr = &mips_elf_acom_symbol; } asym->section = &mips_elf_acom_section; break; case SHN_COMMON: /* Common symbols less than the GP size are automatically treated as SHN_MIPS_SCOMMON symbols. */ if (asym->value > elf_gp_size (abfd)) break; /* Fall through. */ case SHN_MIPS_SCOMMON: if (mips_elf_scom_section.name == NULL) { /* Initialize the small common section. */ mips_elf_scom_section.name = ".scommon"; mips_elf_scom_section.flags = SEC_IS_COMMON; mips_elf_scom_section.output_section = &mips_elf_scom_section; mips_elf_scom_section.symbol = &mips_elf_scom_symbol; mips_elf_scom_section.symbol_ptr_ptr = &mips_elf_scom_symbol_ptr; mips_elf_scom_symbol.name = ".scommon"; mips_elf_scom_symbol.flags = BSF_SECTION_SYM; mips_elf_scom_symbol.section = &mips_elf_scom_section; mips_elf_scom_symbol_ptr = &mips_elf_scom_symbol; } asym->section = &mips_elf_scom_section; asym->value = elfsym->internal_elf_sym.st_size; break; case SHN_MIPS_SUNDEFINED: asym->section = bfd_und_section_ptr; break; } } /* Read ECOFF debugging information from a .mdebug section into a ecoff_debug_info structure. */ static boolean mips_elf_read_ecoff_info (abfd, section, debug) bfd *abfd; asection *section; struct ecoff_debug_info *debug; { HDRR *symhdr; const struct ecoff_debug_swap *swap; char *ext_hdr = NULL; swap = get_elf_backend_data (abfd)->elf_backend_ecoff_debug_swap; ext_hdr = (char *) malloc (swap->external_hdr_size); if (ext_hdr == NULL && swap->external_hdr_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_get_section_contents (abfd, section, ext_hdr, (file_ptr) 0, swap->external_hdr_size) == false) goto error_return; symhdr = &debug->symbolic_header; (*swap->swap_hdr_in) (abfd, ext_hdr, symhdr); /* The symbolic header contains absolute file offsets and sizes to read. */ #define READ(ptr, offset, count, size, type) \ if (symhdr->count == 0) \ debug->ptr = NULL; \ else \ { \ debug->ptr = (type) malloc (size * symhdr->count); \ if (debug->ptr == NULL) \ { \ bfd_set_error (bfd_error_no_memory); \ goto error_return; \ } \ if (bfd_seek (abfd, (file_ptr) symhdr->offset, SEEK_SET) != 0 \ || (bfd_read (debug->ptr, size, symhdr->count, \ abfd) != size * symhdr->count)) \ goto error_return; \ } READ (line, cbLineOffset, cbLine, sizeof (unsigned char), unsigned char *); READ (external_dnr, cbDnOffset, idnMax, swap->external_dnr_size, PTR); READ (external_pdr, cbPdOffset, ipdMax, swap->external_pdr_size, PTR); READ (external_sym, cbSymOffset, isymMax, swap->external_sym_size, PTR); READ (external_opt, cbOptOffset, ioptMax, swap->external_opt_size, PTR); READ (external_aux, cbAuxOffset, iauxMax, sizeof (union aux_ext), union aux_ext *); READ (ss, cbSsOffset, issMax, sizeof (char), char *); READ (ssext, cbSsExtOffset, issExtMax, sizeof (char), char *); READ (external_fdr, cbFdOffset, ifdMax, swap->external_fdr_size, PTR); READ (external_rfd, cbRfdOffset, crfd, swap->external_rfd_size, PTR); READ (external_ext, cbExtOffset, iextMax, swap->external_ext_size, PTR); #undef READ debug->fdr = NULL; debug->adjust = NULL; return true; error_return: if (ext_hdr != NULL) free (ext_hdr); if (debug->line != NULL) free (debug->line); if (debug->external_dnr != NULL) free (debug->external_dnr); if (debug->external_pdr != NULL) free (debug->external_pdr); if (debug->external_sym != NULL) free (debug->external_sym); if (debug->external_opt != NULL) free (debug->external_opt); if (debug->external_aux != NULL) free (debug->external_aux); if (debug->ss != NULL) free (debug->ss); if (debug->ssext != NULL) free (debug->ssext); if (debug->external_fdr != NULL) free (debug->external_fdr); if (debug->external_rfd != NULL) free (debug->external_rfd); if (debug->external_ext != NULL) free (debug->external_ext); return false; } /* The MIPS ELF linker needs additional information for each symbol in the global hash table. */ struct mips_elf_link_hash_entry { struct elf_link_hash_entry root; /* External symbol information. */ EXTR esym; }; /* MIPS ELF linker hash table. */ struct mips_elf_link_hash_table { struct elf_link_hash_table root; }; /* Look up an entry in a MIPS ELF linker hash table. */ #define mips_elf_link_hash_lookup(table, string, create, copy, follow) \ ((struct mips_elf_link_hash_entry *) \ elf_link_hash_lookup (&(table)->root, (string), (create), \ (copy), (follow))) /* Traverse a MIPS ELF linker hash table. */ #define mips_elf_link_hash_traverse(table, func, info) \ (elf_link_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct elf_link_hash_entry *, PTR))) (func), \ (info))) /* Get the MIPS ELF linker hash table from a link_info structure. */ #define mips_elf_hash_table(p) \ ((struct mips_elf_link_hash_table *) ((p)->hash)) static boolean mips_elf_output_extsym PARAMS ((struct mips_elf_link_hash_entry *, PTR)); /* Create an entry in a MIPS ELF linker hash table. */ static struct bfd_hash_entry * mips_elf_link_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct mips_elf_link_hash_entry *ret = (struct mips_elf_link_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct mips_elf_link_hash_entry *) NULL) ret = ((struct mips_elf_link_hash_entry *) bfd_hash_allocate (table, sizeof (struct mips_elf_link_hash_entry))); if (ret == (struct mips_elf_link_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return (struct bfd_hash_entry *) ret; } /* Call the allocation method of the superclass. */ ret = ((struct mips_elf_link_hash_entry *) _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret != (struct mips_elf_link_hash_entry *) NULL) { /* Set local fields. */ memset (&ret->esym, 0, sizeof (EXTR)); /* We use -2 as a marker to indicate that the information has not been set. -1 means there is no associated ifd. */ ret->esym.ifd = -2; } return (struct bfd_hash_entry *) ret; } /* Create a MIPS ELF linker hash table. */ static struct bfd_link_hash_table * mips_elf_link_hash_table_create (abfd) bfd *abfd; { struct mips_elf_link_hash_table *ret; ret = ((struct mips_elf_link_hash_table *) bfd_alloc (abfd, sizeof (struct mips_elf_link_hash_table))); if (ret == (struct mips_elf_link_hash_table *) NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } if (! _bfd_elf_link_hash_table_init (&ret->root, abfd, mips_elf_link_hash_newfunc)) { bfd_release (abfd, ret); return NULL; } return &ret->root.root; } /* Hook called by the linker routine which adds symbols from an object file. We must handle the special MIPS section numbers here. */ /*ARGSUSED*/ static boolean mips_elf_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp) bfd *abfd; struct bfd_link_info *info; const Elf_Internal_Sym *sym; const char **namep; flagword *flagsp; asection **secp; bfd_vma *valp; { switch (sym->st_shndx) { case SHN_COMMON: /* Common symbols less than the GP size are automatically treated as SHN_MIPS_SCOMMON symbols. */ if (sym->st_size > elf_gp_size (abfd)) break; /* Fall through. */ case SHN_MIPS_SCOMMON: *secp = bfd_make_section_old_way (abfd, ".scommon"); (*secp)->flags |= SEC_IS_COMMON; *valp = sym->st_size; break; case SHN_MIPS_SUNDEFINED: *secp = bfd_und_section_ptr; break; } return true; } /* Structure used to pass information to mips_elf_output_extsym. */ struct extsym_info { bfd *abfd; struct bfd_link_info *info; struct ecoff_debug_info *debug; const struct ecoff_debug_swap *swap; boolean failed; }; /* This routine is used to write out ECOFF debugging external symbol information. It is called via mips_elf_link_hash_traverse. The ECOFF external symbol information must match the ELF external symbol information. Unfortunately, at this point we don't know whether a symbol is required by reloc information, so the two tables may wind up being different. We must sort out the external symbol information before we can set the final size of the .mdebug section, and we must set the size of the .mdebug section before we can relocate any sections, and we can't know which symbols are required by relocation until we relocate the sections. Fortunately, it is relatively unlikely that any symbol will be stripped but required by a reloc. In particular, it can not happen when generating a final executable. */ static boolean mips_elf_output_extsym (h, data) struct mips_elf_link_hash_entry *h; PTR data; { struct extsym_info *einfo = (struct extsym_info *) data; boolean strip; if (h->root.indx == -2) strip = false; else if (((h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0 || (h->root.elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) != 0) && (h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0 && (h->root.elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) == 0) strip = true; else if (einfo->info->strip == strip_all || (einfo->info->strip == strip_some && bfd_hash_lookup (einfo->info->keep_hash, h->root.root.root.string, false, false) == NULL)) strip = true; else strip = false; if (strip) return true; if (h->esym.ifd == -2) { h->esym.jmptbl = 0; h->esym.cobol_main = 0; h->esym.weakext = 0; h->esym.reserved = 0; h->esym.ifd = ifdNil; h->esym.asym.value = 0; h->esym.asym.st = stGlobal; if (h->root.root.type != bfd_link_hash_defined) h->esym.asym.sc = scAbs; else { asection *output_section; const char *name; output_section = h->root.root.u.def.section->output_section; name = bfd_section_name (output_section->owner, output_section); if (strcmp (name, ".text") == 0) h->esym.asym.sc = scText; else if (strcmp (name, ".data") == 0) h->esym.asym.sc = scData; else if (strcmp (name, ".sdata") == 0) h->esym.asym.sc = scSData; else if (strcmp (name, ".rodata") == 0 || strcmp (name, ".rdata") == 0) h->esym.asym.sc = scRData; else if (strcmp (name, ".bss") == 0) h->esym.asym.sc = scBss; else if (strcmp (name, ".sbss") == 0) h->esym.asym.sc = scSBss; else if (strcmp (name, ".init") == 0) h->esym.asym.sc = scInit; else if (strcmp (name, ".fini") == 0) h->esym.asym.sc = scFini; else h->esym.asym.sc = scAbs; } h->esym.asym.reserved = 0; h->esym.asym.index = indexNil; } if (! bfd_ecoff_debug_one_external (einfo->abfd, einfo->debug, einfo->swap, h->root.root.root.string, &h->esym)) { einfo->failed = true; return false; } return true; } /* A comparison routine used to sort .gptab entries. */ static int gptab_compare (p1, p2) const PTR p1; const PTR p2; { const Elf32_gptab *a1 = (const Elf32_gptab *) p1; const Elf32_gptab *a2 = (const Elf32_gptab *) p2; return a1->gt_entry.gt_g_value - a2->gt_entry.gt_g_value; } /* We need to use a special link routine to handle the .reginfo and the .mdebug sections. We need to merge all instances of these sections together, not write them all out sequentially. */ static boolean mips_elf_final_link (abfd, info) bfd *abfd; struct bfd_link_info *info; { asection **secpp; asection *o; struct bfd_link_order *p; asection *reginfo_sec, *mdebug_sec, *gptab_data_sec, *gptab_bss_sec; Elf32_RegInfo reginfo; struct ecoff_debug_info debug; const struct ecoff_debug_swap *swap = get_elf_backend_data (abfd)->elf_backend_ecoff_debug_swap; HDRR *symhdr = &debug.symbolic_header; PTR mdebug_handle = NULL; /* Drop the .options section, since it has special semantics which I haven't bothered to figure out. */ for (secpp = &abfd->sections; *secpp != NULL; secpp = &(*secpp)->next) { if (strcmp ((*secpp)->name, ".options") == 0) { for (p = (*secpp)->link_order_head; p != NULL; p = p->next) if (p->type == bfd_indirect_link_order) p->u.indirect.section->flags &=~ SEC_HAS_CONTENTS; (*secpp)->link_order_head = NULL; *secpp = (*secpp)->next; --abfd->section_count; break; } } /* Go through the sections and collect the .reginfo and .mdebug information. */ reginfo_sec = NULL; mdebug_sec = NULL; gptab_data_sec = NULL; gptab_bss_sec = NULL; for (o = abfd->sections; o != (asection *) NULL; o = o->next) { if (strcmp (o->name, ".reginfo") == 0) { memset (®info, 0, sizeof reginfo); /* We have found the .reginfo section in the output file. Look through all the link_orders comprising it and merge the information together. */ for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) { asection *input_section; bfd *input_bfd; Elf32_External_RegInfo ext; Elf32_RegInfo sub; if (p->type != bfd_indirect_link_order) { if (p->type == bfd_fill_link_order) continue; abort (); } input_section = p->u.indirect.section; input_bfd = input_section->owner; BFD_ASSERT (input_section->_raw_size == sizeof (Elf32_External_RegInfo)); if (! bfd_get_section_contents (input_bfd, input_section, (PTR) &ext, (file_ptr) 0, sizeof ext)) return false; bfd_mips_elf32_swap_reginfo_in (input_bfd, &ext, &sub); reginfo.ri_gprmask |= sub.ri_gprmask; reginfo.ri_cprmask[0] |= sub.ri_cprmask[0]; reginfo.ri_cprmask[1] |= sub.ri_cprmask[1]; reginfo.ri_cprmask[2] |= sub.ri_cprmask[2]; reginfo.ri_cprmask[3] |= sub.ri_cprmask[3]; /* ri_gp_value is set by the function mips_elf_section_processing when the section is finally written out. */ /* Hack: reset the SEC_HAS_CONTENTS flag so that elf_link_input_bfd ignores this section. */ input_section->flags &=~ SEC_HAS_CONTENTS; } /* Force the section size to the value we want. */ o->_raw_size = sizeof (Elf32_External_RegInfo); /* Skip this section later on (I don't think this currently matters, but someday it might). */ o->link_order_head = (struct bfd_link_order *) NULL; reginfo_sec = o; } if (strcmp (o->name, ".mdebug") == 0) { struct extsym_info einfo; /* We have found the .mdebug section in the output file. Look through all the link_orders comprising it and merge the information together. */ symhdr->magic = swap->sym_magic; /* FIXME: What should the version stamp be? */ symhdr->vstamp = 0; symhdr->ilineMax = 0; symhdr->cbLine = 0; symhdr->idnMax = 0; symhdr->ipdMax = 0; symhdr->isymMax = 0; symhdr->ioptMax = 0; symhdr->iauxMax = 0; symhdr->issMax = 0; symhdr->issExtMax = 0; symhdr->ifdMax = 0; symhdr->crfd = 0; symhdr->iextMax = 0; /* We accumulate the debugging information itself in the debug_info structure. */ debug.line = NULL; debug.external_dnr = NULL; debug.external_pdr = NULL; debug.external_sym = NULL; debug.external_opt = NULL; debug.external_aux = NULL; debug.ss = NULL; debug.ssext = debug.ssext_end = NULL; debug.external_fdr = NULL; debug.external_rfd = NULL; debug.external_ext = debug.external_ext_end = NULL; mdebug_handle = bfd_ecoff_debug_init (abfd, &debug, swap, info); if (mdebug_handle == (PTR) NULL) return false; for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) { asection *input_section; bfd *input_bfd; const struct ecoff_debug_swap *input_swap; struct ecoff_debug_info input_debug; char *eraw_src; char *eraw_end; if (p->type != bfd_indirect_link_order) { if (p->type == bfd_fill_link_order) continue; abort (); } input_section = p->u.indirect.section; input_bfd = input_section->owner; if (bfd_get_flavour (input_bfd) != bfd_target_elf_flavour || (get_elf_backend_data (input_bfd) ->elf_backend_ecoff_debug_swap) == NULL) { /* I don't know what a non MIPS ELF bfd would be doing with a .mdebug section, but I don't really want to deal with it. */ continue; } input_swap = (get_elf_backend_data (input_bfd) ->elf_backend_ecoff_debug_swap); BFD_ASSERT (p->size == input_section->_raw_size); /* The ECOFF linking code expects that we have already read in the debugging information and set up an ecoff_debug_info structure, so we do that now. */ if (! mips_elf_read_ecoff_info (input_bfd, input_section, &input_debug)) return false; if (! (bfd_ecoff_debug_accumulate (mdebug_handle, abfd, &debug, swap, input_bfd, &input_debug, input_swap, info))) return false; /* Loop through the external symbols. For each one with interesting information, try to find the symbol in the linker global hash table and save the information for the output external symbols. */ eraw_src = input_debug.external_ext; eraw_end = (eraw_src + (input_debug.symbolic_header.iextMax * input_swap->external_ext_size)); for (; eraw_src < eraw_end; eraw_src += input_swap->external_ext_size) { EXTR ext; const char *name; struct mips_elf_link_hash_entry *h; (*input_swap->swap_ext_in) (input_bfd, (PTR) eraw_src, &ext); if (ext.asym.sc == scNil || ext.asym.sc == scUndefined || ext.asym.sc == scSUndefined) continue; name = input_debug.ssext + ext.asym.iss; h = mips_elf_link_hash_lookup (mips_elf_hash_table (info), name, false, false, true); if (h == NULL || h->esym.ifd != -2) continue; if (ext.ifd != -1) { BFD_ASSERT (ext.ifd < input_debug.symbolic_header.ifdMax); ext.ifd = input_debug.ifdmap[ext.ifd]; } h->esym = ext; } /* Free up the information we just read. */ free (input_debug.line); free (input_debug.external_dnr); free (input_debug.external_pdr); free (input_debug.external_sym); free (input_debug.external_opt); free (input_debug.external_aux); free (input_debug.ss); free (input_debug.ssext); free (input_debug.external_fdr); free (input_debug.external_rfd); free (input_debug.external_ext); /* Hack: reset the SEC_HAS_CONTENTS flag so that elf_link_input_bfd ignores this section. */ input_section->flags &=~ SEC_HAS_CONTENTS; } /* Build the external symbol information. */ einfo.abfd = abfd; einfo.info = info; einfo.debug = &debug; einfo.swap = swap; einfo.failed = false; mips_elf_link_hash_traverse (mips_elf_hash_table (info), mips_elf_output_extsym, (PTR) &einfo); if (einfo.failed) return false; /* Set the size of the .mdebug section. */ o->_raw_size = bfd_ecoff_debug_size (abfd, &debug, swap); /* Skip this section later on (I don't think this currently matters, but someday it might). */ o->link_order_head = (struct bfd_link_order *) NULL; mdebug_sec = o; } if (strncmp (o->name, ".gptab.", sizeof ".gptab." - 1) == 0) { const char *subname; unsigned int c; Elf32_gptab *tab; Elf32_External_gptab *ext_tab; unsigned int i; /* The .gptab.sdata and .gptab.sbss sections hold information describing how the small data area would change depending upon the -G switch. These sections not used in executables files. */ if (! info->relocateable) { asection **secpp; for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) { asection *input_section; if (p->type != bfd_indirect_link_order) { if (p->type == bfd_fill_link_order) continue; abort (); } input_section = p->u.indirect.section; /* Hack: reset the SEC_HAS_CONTENTS flag so that elf_link_input_bfd ignores this section. */ input_section->flags &=~ SEC_HAS_CONTENTS; } /* Skip this section later on (I don't think this currently matters, but someday it might). */ o->link_order_head = (struct bfd_link_order *) NULL; /* Really remove the section. */ for (secpp = &abfd->sections; *secpp != o; secpp = &(*secpp)->next) ; *secpp = (*secpp)->next; --abfd->section_count; continue; } /* There is one gptab for initialized data, and one for uninitialized data. */ if (strcmp (o->name, ".gptab.sdata") == 0) gptab_data_sec = o; else if (strcmp (o->name, ".gptab.sbss") == 0) gptab_bss_sec = o; else { bfd_set_error (bfd_error_nonrepresentable_section); return false; } /* The linker script always combines .gptab.data and .gptab.sdata into .gptab.sdata, and likewise for .gptab.bss and .gptab.sbss. It is possible that there is no .sdata or .sbss section in the output file, in which case we must change the name of the output section. */ subname = o->name + sizeof ".gptab" - 1; if (bfd_get_section_by_name (abfd, subname) == NULL) { if (o == gptab_data_sec) o->name = ".gptab.data"; else o->name = ".gptab.bss"; subname = o->name + sizeof ".gptab" - 1; BFD_ASSERT (bfd_get_section_by_name (abfd, subname) != NULL); } /* Set up the first entry. */ c = 1; tab = (Elf32_gptab *) malloc (c * sizeof (Elf32_gptab)); if (tab == NULL) { bfd_set_error (bfd_error_no_memory); return false; } tab[0].gt_header.gt_current_g_value = elf_gp_size (abfd); tab[0].gt_header.gt_unused = 0; /* Combine the input sections. */ for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) { asection *input_section; bfd *input_bfd; bfd_size_type size; unsigned long last; bfd_size_type gpentry; if (p->type != bfd_indirect_link_order) { if (p->type == bfd_fill_link_order) continue; abort (); } input_section = p->u.indirect.section; input_bfd = input_section->owner; /* Combine the gptab entries for this input section one by one. We know that the input gptab entries are sorted by ascending -G value. */ size = bfd_section_size (input_bfd, input_section); last = 0; for (gpentry = sizeof (Elf32_External_gptab); gpentry < size; gpentry += sizeof (Elf32_External_gptab)) { Elf32_External_gptab ext_gptab; Elf32_gptab int_gptab; unsigned long val; unsigned long add; boolean exact; unsigned int look; if (! (bfd_get_section_contents (input_bfd, input_section, (PTR) &ext_gptab, gpentry, sizeof (Elf32_External_gptab)))) { free (tab); return false; } bfd_mips_elf32_swap_gptab_in (input_bfd, &ext_gptab, &int_gptab); val = int_gptab.gt_entry.gt_g_value; add = int_gptab.gt_entry.gt_bytes - last; exact = false; for (look = 1; look < c; look++) { if (tab[look].gt_entry.gt_g_value >= val) tab[look].gt_entry.gt_bytes += add; if (tab[look].gt_entry.gt_g_value == val) exact = true; } if (! exact) { Elf32_gptab *new_tab; unsigned int max; /* We need a new table entry. */ new_tab = ((Elf32_gptab *) realloc ((PTR) tab, (c + 1) * sizeof (Elf32_gptab))); if (new_tab == NULL) { bfd_set_error (bfd_error_no_memory); free (tab); return false; } tab = new_tab; tab[c].gt_entry.gt_g_value = val; tab[c].gt_entry.gt_bytes = add; /* Merge in the size for the next smallest -G value, since that will be implied by this new value. */ max = 0; for (look = 1; look < c; look++) { if (tab[look].gt_entry.gt_g_value < val && (max == 0 || (tab[look].gt_entry.gt_g_value > tab[max].gt_entry.gt_g_value))) max = look; } if (max != 0) tab[c].gt_entry.gt_bytes += tab[max].gt_entry.gt_bytes; ++c; } last = int_gptab.gt_entry.gt_bytes; } /* Hack: reset the SEC_HAS_CONTENTS flag so that elf_link_input_bfd ignores this section. */ input_section->flags &=~ SEC_HAS_CONTENTS; } /* The table must be sorted by -G value. */ if (c > 2) qsort (tab + 1, c - 1, sizeof (tab[0]), gptab_compare); /* Swap out the table. */ ext_tab = ((Elf32_External_gptab *) bfd_alloc (abfd, c * sizeof (Elf32_External_gptab))); if (ext_tab == NULL) { bfd_set_error (bfd_error_no_memory); free (tab); return false; } for (i = 0; i < c; i++) bfd_mips_elf32_swap_gptab_out (abfd, tab + i, ext_tab + i); free (tab); o->_raw_size = c * sizeof (Elf32_External_gptab); o->contents = (bfd_byte *) ext_tab; /* Skip this section later on (I don't think this currently matters, but someday it might). */ o->link_order_head = (struct bfd_link_order *) NULL; } } /* Get a value for the GP register. */ if (elf_gp (abfd) == 0) { struct bfd_link_hash_entry *h; h = bfd_link_hash_lookup (info->hash, "_gp", false, false, true); if (h != (struct bfd_link_hash_entry *) NULL && h->type == bfd_link_hash_defined) elf_gp (abfd) = (h->u.def.value + h->u.def.section->output_section->vma + h->u.def.section->output_offset); else if (info->relocateable) { bfd_vma lo; /* Make up a value. */ lo = (bfd_vma) -1; for (o = abfd->sections; o != (asection *) NULL; o = o->next) { if (o->vma < lo && (strcmp (o->name, ".sbss") == 0 || strcmp (o->name, ".sdata") == 0 || strcmp (o->name, ".lit4") == 0 || strcmp (o->name, ".lit8") == 0)) lo = o->vma; } elf_gp (abfd) = lo + 0x8000; } else { /* If the relocate_section function needs to do a reloc involving the GP value, it should make a reloc_dangerous callback to warn that GP is not defined. */ } } /* Invoke the regular ELF backend linker to do all the work. */ if (! bfd_elf32_bfd_final_link (abfd, info)) return false; /* Now write out the computed sections. */ if (reginfo_sec != (asection *) NULL) { Elf32_External_RegInfo ext; bfd_mips_elf32_swap_reginfo_out (abfd, ®info, &ext); if (! bfd_set_section_contents (abfd, reginfo_sec, (PTR) &ext, (file_ptr) 0, sizeof ext)) return false; } if (mdebug_sec != (asection *) NULL) { BFD_ASSERT (abfd->output_has_begun); if (! bfd_ecoff_write_accumulated_debug (mdebug_handle, abfd, &debug, swap, info, mdebug_sec->filepos)) return false; bfd_ecoff_debug_free (mdebug_handle, abfd, &debug, swap, info); } if (gptab_data_sec != (asection *) NULL) { if (! bfd_set_section_contents (abfd, gptab_data_sec, gptab_data_sec->contents, (file_ptr) 0, gptab_data_sec->_raw_size)) return false; } if (gptab_bss_sec != (asection *) NULL) { if (! bfd_set_section_contents (abfd, gptab_bss_sec, gptab_bss_sec->contents, (file_ptr) 0, gptab_bss_sec->_raw_size)) return false; } return true; } /* Handle a MIPS ELF HI16 reloc. */ static void mips_elf_relocate_hi16 (input_bfd, relhi, rello, contents, addend) bfd *input_bfd; Elf_Internal_Rela *relhi; Elf_Internal_Rela *rello; bfd_byte *contents; bfd_vma addend; { bfd_vma insn; bfd_vma addlo; insn = bfd_get_32 (input_bfd, contents + relhi->r_offset); addlo = bfd_get_32 (input_bfd, contents + rello->r_offset); addlo &= 0xffff; addend += ((insn & 0xffff) << 16) + addlo; if ((addlo & 0x8000) != 0) addend -= 0x10000; if ((addend & 0x8000) != 0) addend += 0x10000; bfd_put_32 (input_bfd, (insn & 0xffff0000) | ((addend >> 16) & 0xffff), contents + relhi->r_offset); } /* Relocate a MIPS ELF section. */ static boolean mips_elf_relocate_section (output_bfd, info, input_bfd, input_section, contents, relocs, local_syms, local_sections, output_names) bfd *output_bfd; struct bfd_link_info *info; bfd *input_bfd; asection *input_section; bfd_byte *contents; Elf_Internal_Rela *relocs; Elf_Internal_Sym *local_syms; asection **local_sections; char *output_names; { Elf_Internal_Shdr *symtab_hdr; size_t locsymcount; size_t extsymoff; Elf_Internal_Rela *rel; Elf_Internal_Rela *relend; symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr; if (elf_bad_symtab (input_bfd)) { locsymcount = symtab_hdr->sh_size / sizeof (Elf32_External_Sym); extsymoff = 0; } else { locsymcount = symtab_hdr->sh_info; extsymoff = symtab_hdr->sh_info; } rel = relocs; relend = relocs + input_section->reloc_count; for (; rel < relend; rel++) { int r_type; const reloc_howto_type *howto; long r_symndx; bfd_vma addend; struct elf_link_hash_entry *h; asection *sec; Elf_Internal_Sym *sym; bfd_reloc_status_type r; r_type = ELF32_R_TYPE (rel->r_info); if (r_type < 0 || r_type >= (int) R_MIPS_max) { bfd_set_error (bfd_error_bad_value); return false; } howto = elf_mips_howto_table + r_type; r_symndx = ELF32_R_SYM (rel->r_info); /* Mix in the change in GP address for a GP relative reloc. */ if (r_type != R_MIPS_GPREL16 && r_type != R_MIPS_LITERAL && r_type != R_MIPS_GPREL32) addend = 0; else { if (elf_gp (output_bfd) == 0) { if (! ((*info->callbacks->reloc_dangerous) (info, "GP relative relocation when GP not defined", input_bfd, input_section, rel->r_offset))) return false; /* Only give the error once per link. */ elf_gp (output_bfd) = 4; } if (r_symndx < extsymoff || (elf_bad_symtab (input_bfd) && local_sections[r_symndx] != NULL)) { /* This is a relocation against a section. The current addend in the instruction is the difference between INPUT_SECTION->vma and the GP value of INPUT_BFD. We must change this to be the difference between the final definition (which will end up in RELOCATION) and the GP value of OUTPUT_BFD (which is in GP). */ addend = elf_gp (input_bfd) - elf_gp (output_bfd); } else if (! info->relocateable) { /* We are doing a final link. The current addend in the instruction is simply the desired offset into the symbol (normally zero). We want the instruction to hold the difference between the final definition of the symbol (which will end up in RELOCATION) and the GP value of OUTPUT_BFD (which is in GP). */ addend = - elf_gp (output_bfd); } else { /* We are generating relocateable output, and we aren't going to define this symbol, so we just leave the instruction alone. */ addend = 0; } } h = NULL; sym = NULL; sec = NULL; if (info->relocateable) { /* This is a relocateable link. We don't have to change anything, unless the reloc is against a section symbol, in which case we have to adjust according to where the section symbol winds up in the output section. */ if (r_symndx >= locsymcount || (elf_bad_symtab (input_bfd) && local_sections[r_symndx] == NULL)) r = bfd_reloc_ok; else { sym = local_syms + r_symndx; if (ELF_ST_TYPE (sym->st_info) != STT_SECTION) r = bfd_reloc_ok; else { sec = local_sections[r_symndx]; /* It would be logical to add sym->st_value here, but Irix 5 sometimes generates a garbage symbol value. */ addend += sec->output_offset; /* If this is HI16 with an associated LO16, adjust the addend accordingly. Otherwise, just relocate. */ if (r_type != R_MIPS_HI16 || (rel + 1) >= relend || ELF32_R_TYPE ((rel + 1)->r_info) != R_MIPS_LO16) r = _bfd_relocate_contents (howto, input_bfd, addend, contents + rel->r_offset); else { mips_elf_relocate_hi16 (input_bfd, rel, rel + 1, contents, addend); r = bfd_reloc_ok; } } } } else { bfd_vma relocation; /* This is a final link. */ sym = NULL; if (r_symndx < extsymoff || (elf_bad_symtab (input_bfd) && local_sections[r_symndx] != NULL)) { sym = local_syms + r_symndx; sec = local_sections[r_symndx]; relocation = (sec->output_section->vma + sec->output_offset); /* It would be logical to always add sym->st_value here, but Irix 5 sometimes generates a garbage symbol value. */ if (ELF_ST_TYPE (sym->st_info) != STT_SECTION) relocation += sym->st_value; } else { long indx; indx = r_symndx - extsymoff; h = elf_sym_hashes (input_bfd)[indx]; if (h->root.type == bfd_link_hash_defined) { sec = h->root.u.def.section; relocation = (h->root.u.def.value + sec->output_section->vma + sec->output_offset); } else if (h->root.type == bfd_link_hash_weak) relocation = 0; else { if (! ((*info->callbacks->undefined_symbol) (info, h->root.root.string, input_bfd, input_section, rel->r_offset))) return false; relocation = 0; } } if (r_type != R_MIPS_HI16 || (rel + 1) >= relend || ELF32_R_TYPE ((rel + 1)->r_info) != R_MIPS_LO16) r = _bfd_final_link_relocate (howto, input_bfd, input_section, contents, rel->r_offset, relocation, addend); else { mips_elf_relocate_hi16 (input_bfd, rel, rel + 1, contents, relocation + addend); r = bfd_reloc_ok; } } if (r != bfd_reloc_ok) { switch (r) { default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: { const char *name; if (h != NULL) name = h->root.root.string; else { name = output_names + sym->st_name; if (name == NULL) return false; if (*name == '\0') name = bfd_section_name (input_bfd, sec); } if (! ((*info->callbacks->reloc_overflow) (info, name, howto->name, (bfd_vma) 0, input_bfd, input_section, rel->r_offset))) return false; } break; } } } return true; } /* ECOFF swapping routines. These are used when dealing with the .mdebug section, which is in the ECOFF debugging format. */ static const struct ecoff_debug_swap mips_elf_ecoff_debug_swap = { /* Symbol table magic number. */ magicSym, /* Alignment of debugging information. E.g., 4. */ 4, /* Sizes of external symbolic information. */ sizeof (struct hdr_ext), sizeof (struct dnr_ext), sizeof (struct pdr_ext), sizeof (struct sym_ext), sizeof (struct opt_ext), sizeof (struct fdr_ext), sizeof (struct rfd_ext), sizeof (struct ext_ext), /* Functions to swap in external symbolic data. */ ecoff_swap_hdr_in, ecoff_swap_dnr_in, ecoff_swap_pdr_in, ecoff_swap_sym_in, ecoff_swap_opt_in, ecoff_swap_fdr_in, ecoff_swap_rfd_in, ecoff_swap_ext_in, _bfd_ecoff_swap_tir_in, _bfd_ecoff_swap_rndx_in, /* Functions to swap out external symbolic data. */ ecoff_swap_hdr_out, ecoff_swap_dnr_out, ecoff_swap_pdr_out, ecoff_swap_sym_out, ecoff_swap_opt_out, ecoff_swap_fdr_out, ecoff_swap_rfd_out, ecoff_swap_ext_out, _bfd_ecoff_swap_tir_out, _bfd_ecoff_swap_rndx_out, /* Function to read in symbolic data. */ mips_elf_read_ecoff_info }; #define TARGET_LITTLE_SYM bfd_elf32_littlemips_vec #define TARGET_LITTLE_NAME "elf32-littlemips" #define TARGET_BIG_SYM bfd_elf32_bigmips_vec #define TARGET_BIG_NAME "elf32-bigmips" #define ELF_ARCH bfd_arch_mips #define ELF_MACHINE_CODE EM_MIPS #define ELF_MAXPAGESIZE 0x10000 #define elf_backend_collect true #define elf_info_to_howto 0 #define elf_info_to_howto_rel mips_info_to_howto_rel #define elf_backend_sym_is_global mips_elf_sym_is_global #define elf_backend_object_p mips_elf_object_p #define elf_backend_section_from_shdr mips_elf_section_from_shdr #define elf_backend_fake_sections mips_elf_fake_sections #define elf_backend_section_from_bfd_section \ mips_elf_section_from_bfd_section #define elf_backend_section_processing mips_elf_section_processing #define elf_backend_symbol_processing mips_elf_symbol_processing #define elf_backend_final_write_processing \ mips_elf_final_write_processing #define elf_backend_ecoff_debug_swap &mips_elf_ecoff_debug_swap #define bfd_elf32_bfd_link_hash_table_create \ mips_elf_link_hash_table_create #define bfd_elf32_bfd_final_link mips_elf_final_link #define elf_backend_relocate_section mips_elf_relocate_section #define elf_backend_add_symbol_hook mips_elf_add_symbol_hook #include "elf32-target.h" gdb-4.13/bfd/elf32-ppc.c 666 34562 1752 121303 5601614610 13166 0ustar fnfcygnus/* PowerPC-specific support for 32-bit ELF Copyright 1994 Free Software Foundation, Inc. Written by Ian Lance Taylor, Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is based on a preliminary PowerPC ELF ABI. The information may not match the final PowerPC ELF ABI. It includes suggestions from the in-progress Embedded PowerPC ABI, and that information may also not match. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libelf.h" static bfd_reloc_status_type ppc_elf_unsupported_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); static bfd_reloc_status_type ppc_elf_addr16_ha_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); static bfd_reloc_status_type ppc_elf_got16_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); static const struct reloc_howto_struct *bfd_elf32_bfd_reloc_type_lookup PARAMS ((bfd *abfd, bfd_reloc_code_real_type code)); static void powerpc_info_to_howto PARAMS ((bfd *abfd, arelent *cache_ptr, Elf32_Internal_Rela *dst)); #define USE_RELA enum reloc_type { R_PPC_NONE = 0, R_PPC_ADDR32, R_PPC_ADDR24, R_PPC_ADDR16, R_PPC_ADDR16_LO, R_PPC_ADDR16_HI, R_PPC_ADDR16_HA, R_PPC_ADDR14, R_PPC_ADDR14_BRTAKEN, R_PPC_ADDR14_BRNTAKEN, R_PPC_REL24, R_PPC_REL14, R_PPC_REL14_BRTAKEN, R_PPC_REL14_BRNTAKEN, R_PPC_GOT16, R_PPC_GOT16_LO, R_PPC_GOT16_HI, R_PPC_GOT16_HA, R_PPC_PLT24, R_PPC_COPY, R_PPC_GLOB_DAT, R_PPC_JMP_SLOT, R_PPC_RELATIVE, R_PPC_LOCAL24PC, R_PPC_UADDR32, R_PPC_UADDR16, /* The remaining relocs are from the Embedded ELF ABI, and are not in the SVR4 ELF ABI. */ R_PPC_CGOT16, R_PPC_CGOT16_LO, R_PPC_CGOT16_HI, R_PPC_CGOT16_HA, R_PPC_GOT_REG, R_PPC_CGOT_REG, R_PPC_NADDR16, R_PPC_NADDR32, R_PPC_NADDR24, R_PPC_DISP16, R_PPC_GOTRL16, R_PPC_GOTRLA16, R_PPC_CGOTRL16, R_PPC_CGOTRLA16, R_PPC_max }; static reloc_howto_type elf_powerpc_howto_table[] = { /* This reloc does nothing. */ HOWTO (R_PPC_NONE, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_NONE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* A standard 32 bit relocation. */ HOWTO (R_PPC_ADDR32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_ADDR32", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* An absolute 26 bit branch; the lower two bits must be zero. FIXME: we don't check that, we just clear them. */ HOWTO (R_PPC_ADDR24, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_ADDR24", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0x3fffffc, /* dst_mask */ false), /* pcrel_offset */ /* A standard 16 bit relocation. */ HOWTO (R_PPC_ADDR16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_ADDR16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* A 16 bit relocation without overflow. */ HOWTO (R_PPC_ADDR16_LO, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont,/* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_ADDR16_LO", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* The high order 16 bits of an address. */ HOWTO (R_PPC_ADDR16_HI, /* type */ 16, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_ADDR16_HI", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* The high order 16 bits of an address, plus 1 if the contents of the low 16 bits, treated as a signed number, is negative. */ HOWTO (R_PPC_ADDR16_HA, /* type */ 16, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ ppc_elf_addr16_ha_reloc, /* special_function */ "R_PPC_ADDR16_HA", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* An absolute 16 bit branch; the lower two bits must be zero. FIXME: we don't check that, we just clear them. */ HOWTO (R_PPC_ADDR14, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_ADDR14", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xfffc, /* dst_mask */ false), /* pcrel_offset */ /* An absolute 16 bit branch, for which bit 10 should be set to indicate that the branch is expected to be taken. The lower two bits must be zero. */ HOWTO (R_PPC_ADDR14_BRTAKEN, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_ADDR14_BRTAKEN",/* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xfffc, /* dst_mask */ false), /* pcrel_offset */ /* An absolute 16 bit branch, for which bit 10 should be set to indicate that the branch is not expected to be taken. The lower two bits must be zero. */ HOWTO (R_PPC_ADDR14_BRNTAKEN, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_ADDR14_BRNTAKEN",/* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xfffc, /* dst_mask */ false), /* pcrel_offset */ /* A relative 26 bit branch; the lower two bits must be zero. */ HOWTO (R_PPC_REL24, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_REL24", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0x3fffffc, /* dst_mask */ true), /* pcrel_offset */ /* A relative 16 bit branch; the lower two bits must be zero. */ HOWTO (R_PPC_REL14, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_REL14", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xfffc, /* dst_mask */ true), /* pcrel_offset */ /* A relative 16 bit branch. Bit 10 should be set to indicate that the branch is expected to be taken. The lower two bits must be zero. */ HOWTO (R_PPC_REL14_BRTAKEN, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_REL14_BRTAKEN", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xfffc, /* dst_mask */ true), /* pcrel_offset */ /* A relative 16 bit branch. Bit 10 should be set to indicate that the branch is not expected to be taken. The lower two bits must be zero. */ HOWTO (R_PPC_REL14_BRNTAKEN, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_REL14_BRNTAKEN",/* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xfffc, /* dst_mask */ true), /* pcrel_offset */ /* Like R_PPC_ADDR16, but referring to the GOT table entry for the symbol. */ HOWTO (R_PPC_GOT16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_got16_reloc, /* special_function */ "R_PPC_GOT16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_ADDR16_LO, but referring to the GOT table entry for the symbol. */ HOWTO (R_PPC_GOT16_LO, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_got16_reloc, /* special_function */ "R_PPC_GOT16_LO", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_ADDR16_HI, but referring to the GOT table entry for the symbol. */ HOWTO (R_PPC_GOT16_HI, /* type */ 16, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_got16_reloc, /* special_function */ "R_PPC_GOT16_HI", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_ADDR16_HA, but referring to the GOT table entry for the symbol. FIXME: Not supported. */ HOWTO (R_PPC_GOT16_HA, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_GOT16_HA", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_REL24, but referring to the procedure linkage table entry for the symbol. FIXME: Not supported. */ HOWTO (R_PPC_PLT24, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_PLT24", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0x3fffffc, /* dst_mask */ true), /* pcrel_offset */ /* This is used only by the dynamic linker. The symbol should exist both in the object being run and in some shared library. The dynamic linker copies the data addressed by the symbol from the shared library into the object. I have no idea what the purpose of this is. */ HOWTO (R_PPC_COPY, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_COPY", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_ADDR32, but used when setting global offset table entries. */ HOWTO (R_PPC_GLOB_DAT, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_GLOB_DAT", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Marks a procedure linkage table entry for a symbol. */ HOWTO (R_PPC_JMP_SLOT, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_JMP_SLOT", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Used only by the dynamic linker. When the object is run, this longword is set to the load address of the object, plus the addend. */ HOWTO (R_PPC_RELATIVE, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_RELATIVE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_REL24, but uses the value of the symbol within the object rather than the final value. Normally used for _GLOBAL_OFFSET_TABLE_. FIXME: Not supported. */ HOWTO (R_PPC_LOCAL24PC, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_LOCAL24PC", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0x3fffffc, /* dst_mask */ true), /* pcrel_offset */ /* Like R_PPC_ADDR32, but may be unaligned. */ HOWTO (R_PPC_UADDR32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_UADDR32", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_ADDR16, but may be unaligned. */ HOWTO (R_PPC_UADDR16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ bfd_elf_generic_reloc, /* special_function */ "R_PPC_UADDR16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* The remaining relocs are from the Embedded ELF ABI, and are not in the SVR4 ELF ABI. */ /* Like R_PPC_GOT16, but using the constant GOT table. */ HOWTO (R_PPC_CGOT16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_got16_reloc, /* special_function */ "R_PPC_CGOT16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_GOT16_LO, but using the constant GOT table. */ HOWTO (R_PPC_CGOT16_LO, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_got16_reloc, /* special_function */ "R_PPC_CGOT16_LO", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_GOT16_HI, but using the constant GOT table. */ HOWTO (R_PPC_CGOT16_HI, /* type */ 16, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_got16_reloc, /* special_function */ "R_PPC_CGOT16_HI", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_GOT16_HA, but using the constant GOT table. */ HOWTO (R_PPC_CGOT16_HA, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_CGOT16_HA", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* The dedicated GOT register. */ HOWTO (R_PPC_GOT_REG, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 5, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_GOT_REG", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0x1f, /* dst_mask */ false), /* pcrel_offset */ /* The dedicated CGOT register. */ HOWTO (R_PPC_CGOT_REG, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 5, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_CGOT_REG", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0x1f, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_ADDR16, but subtract the symbol. */ HOWTO (R_PPC_NADDR16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_NADDR16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_ADDR32, but subtract the symbol. */ HOWTO (R_PPC_NADDR32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_NADDR32", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_ADDR24, but subtract the symbol. */ HOWTO (R_PPC_NADDR24, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_NADDR24", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0x3fffffc, /* dst_mask */ false), /* pcrel_offset */ /* Offset of symbol relative to containing csect. */ HOWTO (R_PPC_DISP16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_DISP16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_GOT16, but may be converted to an address computation instead of a load. */ HOWTO (R_PPC_GOTRL16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_got16_reloc, /* special_function */ "R_PPC_GOTRL16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_GOT16, but may be converted to a load instead of an address computation. */ HOWTO (R_PPC_GOTRLA16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_got16_reloc, /* special_function */ "R_PPC_GOTRLA16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_CGOT16, but may be converted to an address computation instead of a load. */ HOWTO (R_PPC_CGOTRL16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_CGOTRL16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Like R_PPC_CGOT16, but may be converted to a load instead of an address computation. */ HOWTO (R_PPC_CGOTRLA16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ ppc_elf_unsupported_reloc, /* special_function */ "R_PPC_CGOTRLA16", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ }; /* Don't pretend we can deal with unsupported relocs. */ /*ARGSUSED*/ static bfd_reloc_status_type ppc_elf_unsupported_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { abort (); } /* Handle the ADDR16_HA reloc by adjusting the reloc addend. */ static bfd_reloc_status_type ppc_elf_addr16_ha_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { bfd_vma relocation; if (output_bfd != (bfd *) NULL) return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message); if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += (symbol->section->output_section->vma + symbol->section->output_offset + reloc_entry->addend); if ((relocation & 0x8000) != 0) reloc_entry->addend += 0x10000; return bfd_reloc_continue; } /* Handle the GOT16 reloc. We want to use the offset within the .got section, not the actual VMA. This is appropriate when generating an embedded ELF object, for which the .got section acts like the AIX .toc section. When and if we support PIC code, we will have to change this, perhaps by switching off on the e_type field. */ static bfd_reloc_status_type ppc_elf_got16_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { asection *sec; if (output_bfd != (bfd *) NULL) return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message); sec = bfd_get_section (*reloc_entry->sym_ptr_ptr); BFD_ASSERT (bfd_is_und_section (sec) || strcmp (bfd_get_section_name (abfd, sec), ".got") == 0 || strcmp (bfd_get_section_name (abfd, sec), ".cgot") == 0); reloc_entry->addend -= sec->output_section->vma; return bfd_reloc_continue; } /* Map BFD reloc types to PowerPC ELF reloc types. */ struct powerpc_reloc_map { unsigned char bfd_reloc_val; unsigned char elf_reloc_val; }; static const struct powerpc_reloc_map powerpc_reloc_map[] = { { BFD_RELOC_NONE, R_PPC_NONE, }, { BFD_RELOC_32, R_PPC_ADDR32 }, { BFD_RELOC_CTOR, R_PPC_ADDR32 }, { BFD_RELOC_PPC_B26, R_PPC_REL24 }, { BFD_RELOC_PPC_BA26, R_PPC_ADDR24 }, { BFD_RELOC_PPC_TOC16, R_PPC_GOT16 } }; static const struct reloc_howto_struct * bfd_elf32_bfd_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { int i; for (i = 0; i < sizeof (powerpc_reloc_map) / sizeof (struct powerpc_reloc_map); i++) { if (powerpc_reloc_map[i].bfd_reloc_val == code) return &elf_powerpc_howto_table[powerpc_reloc_map[i].elf_reloc_val]; } return NULL; } /* Set the howto pointer for a PowerPC ELF reloc. */ static void powerpc_info_to_howto (abfd, cache_ptr, dst) bfd *abfd; arelent *cache_ptr; Elf32_Internal_Rela *dst; { BFD_ASSERT (ELF32_R_TYPE (dst->r_info) < (unsigned int) R_PPC_max); cache_ptr->howto = &elf_powerpc_howto_table[ELF32_R_TYPE (dst->r_info)]; } #define TARGET_BIG_SYM bfd_elf32_powerpc_vec #define TARGET_BIG_NAME "elf32-powerpc" #define ELF_ARCH bfd_arch_powerpc #define ELF_MACHINE_CODE EM_CYGNUS_POWERPC #define ELF_MAXPAGESIZE 0x10000 #define elf_info_to_howto powerpc_info_to_howto #include "elf32-target.h" gdb-4.13/bfd/elf32-sparc.c 666 34562 1752 70643 5603415321 13506 0ustar fnfcygnus/* SPARC-specific support for 32-bit ELF Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #include "libelf.h" static CONST struct reloc_howto_struct *bfd_elf32_bfd_reloc_type_lookup PARAMS ((bfd *, bfd_reloc_code_real_type)); static void elf_info_to_howto PARAMS ((bfd *, arelent *, Elf_Internal_Rela *)); static boolean elf32_sparc_create_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); static boolean elf32_sparc_adjust_dynamic_symbol PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *)); static boolean elf32_sparc_allocate_dynamic_section PARAMS ((bfd *, const char *)); static boolean elf32_sparc_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); static boolean elf32_sparc_relocate_section PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *, Elf_Internal_Rela *, Elf_Internal_Sym *, asection **, char *)); static boolean elf32_sparc_finish_dynamic_symbol PARAMS ((bfd *, struct bfd_link_info *, struct elf_link_hash_entry *, Elf_Internal_Sym *)); static boolean elf32_sparc_finish_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); enum reloc_type { R_SPARC_NONE = 0, R_SPARC_8, R_SPARC_16, R_SPARC_32, R_SPARC_DISP8, R_SPARC_DISP16, R_SPARC_DISP32, R_SPARC_WDISP30, R_SPARC_WDISP22, R_SPARC_HI22, R_SPARC_22, R_SPARC_13, R_SPARC_LO10, R_SPARC_GOT10, R_SPARC_GOT13, R_SPARC_GOT22, R_SPARC_PC10, R_SPARC_PC22, R_SPARC_WPLT30, R_SPARC_COPY, R_SPARC_GLOB_DAT, R_SPARC_JMP_SLOT, R_SPARC_RELATIVE, R_SPARC_UA32, R_SPARC_max }; #if 0 static CONST char *CONST reloc_type_names[] = { "R_SPARC_NONE", "R_SPARC_8", "R_SPARC_16", "R_SPARC_32", "R_SPARC_DISP8", "R_SPARC_DISP16", "R_SPARC_DISP32", "R_SPARC_WDISP30", "R_SPARC_WDISP22", "R_SPARC_HI22", "R_SPARC_22", "R_SPARC_13", "R_SPARC_LO10", "R_SPARC_GOT10", "R_SPARC_GOT13", "R_SPARC_GOT22", "R_SPARC_PC10", "R_SPARC_PC22", "R_SPARC_WPLT30", "R_SPARC_COPY", "R_SPARC_GLOB_DAT", "R_SPARC_JMP_SLOT", "R_SPARC_RELATIVE", "R_SPARC_UA32", }; #endif static reloc_howto_type elf_sparc_howto_table[] = { HOWTO(R_SPARC_NONE, 0,0, 0,false,0,complain_overflow_dont, bfd_elf_generic_reloc,"R_SPARC_NONE", false,0,0x00000000,true), HOWTO(R_SPARC_8, 0,0, 8,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_8", false,0,0x000000ff,true), HOWTO(R_SPARC_16, 0,1,16,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_16", false,0,0x0000ffff,true), HOWTO(R_SPARC_32, 0,2,32,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_32", false,0,0xffffffff,true), HOWTO(R_SPARC_DISP8, 0,0, 8,true, 0,complain_overflow_signed, bfd_elf_generic_reloc,"R_SPARC_DISP8", false,0,0x000000ff,true), HOWTO(R_SPARC_DISP16, 0,1,16,true, 0,complain_overflow_signed, bfd_elf_generic_reloc,"R_SPARC_DISP16", false,0,0x0000ffff,true), HOWTO(R_SPARC_DISP32, 0,2,32,true, 0,complain_overflow_signed, bfd_elf_generic_reloc,"R_SPARC_DISP32", false,0,0x00ffffff,true), HOWTO(R_SPARC_WDISP30, 2,2,30,true, 0,complain_overflow_signed, bfd_elf_generic_reloc,"R_SPARC_WDISP30", false,0,0x3fffffff,true), HOWTO(R_SPARC_WDISP22, 2,2,22,true, 0,complain_overflow_signed, bfd_elf_generic_reloc,"R_SPARC_WDISP22", false,0,0x003fffff,true), HOWTO(R_SPARC_HI22, 10,2,22,false,0,complain_overflow_dont, bfd_elf_generic_reloc,"R_SPARC_HI22", false,0,0x003fffff,true), HOWTO(R_SPARC_22, 0,2,22,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_22", false,0,0x003fffff,true), HOWTO(R_SPARC_13, 0,2,13,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_13", false,0,0x00001fff,true), HOWTO(R_SPARC_LO10, 0,2,10,false,0,complain_overflow_dont, bfd_elf_generic_reloc,"R_SPARC_LO10", false,0,0x000003ff,true), HOWTO(R_SPARC_GOT10, 0,2,10,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_GOT10", false,0,0x000003ff,true), HOWTO(R_SPARC_GOT13, 0,2,13,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_GOT13", false,0,0x00001fff,true), HOWTO(R_SPARC_GOT22, 10,2,22,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_GOT22", false,0,0x003fffff,true), HOWTO(R_SPARC_PC10, 0,2,10,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_PC10", false,0,0x000003ff,true), HOWTO(R_SPARC_PC22, 0,2,22,false,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_PC22", false,0,0x003fffff,true), HOWTO(R_SPARC_WPLT30, 0,0,00,false,0,complain_overflow_dont, bfd_elf_generic_reloc,"R_SPARC_WPLT30", false,0,0x00000000,true), HOWTO(R_SPARC_COPY, 0,0,00,false,0,complain_overflow_dont, bfd_elf_generic_reloc,"R_SPARC_COPY", false,0,0x00000000,true), HOWTO(R_SPARC_GLOB_DAT,0,0,00,false,0,complain_overflow_dont, bfd_elf_generic_reloc,"R_SPARC_GLOB_DAT",false,0,0x00000000,true), HOWTO(R_SPARC_JMP_SLOT,0,0,00,false,0,complain_overflow_dont, bfd_elf_generic_reloc,"R_SPARC_JMP_SLOT",false,0,0x00000000,true), HOWTO(R_SPARC_RELATIVE,0,0,00,false,0,complain_overflow_dont, bfd_elf_generic_reloc,"R_SPARC_RELATIVE",false,0,0x00000000,true), HOWTO(R_SPARC_UA32, 0,0,00,false,0,complain_overflow_dont, bfd_elf_generic_reloc,"R_SPARC_UA32", false,0,0x00000000,true), }; struct elf_reloc_map { unsigned char bfd_reloc_val; unsigned char elf_reloc_val; }; static CONST struct elf_reloc_map sparc_reloc_map[] = { { BFD_RELOC_NONE, R_SPARC_NONE, }, { BFD_RELOC_16, R_SPARC_16, }, { BFD_RELOC_8, R_SPARC_8 }, { BFD_RELOC_8_PCREL, R_SPARC_DISP8 }, { BFD_RELOC_CTOR, R_SPARC_32 }, /* @@ Assumes 32 bits. */ { BFD_RELOC_32, R_SPARC_32 }, { BFD_RELOC_32_PCREL, R_SPARC_DISP32 }, { BFD_RELOC_HI22, R_SPARC_HI22 }, { BFD_RELOC_LO10, R_SPARC_LO10, }, { BFD_RELOC_32_PCREL_S2, R_SPARC_WDISP30 }, { BFD_RELOC_SPARC22, R_SPARC_22 }, { BFD_RELOC_SPARC13, R_SPARC_13 }, { BFD_RELOC_SPARC_GOT10, R_SPARC_GOT10 }, { BFD_RELOC_SPARC_GOT13, R_SPARC_GOT13 }, { BFD_RELOC_SPARC_GOT22, R_SPARC_GOT22 }, { BFD_RELOC_SPARC_PC10, R_SPARC_PC10 }, { BFD_RELOC_SPARC_PC22, R_SPARC_PC22 }, { BFD_RELOC_SPARC_WPLT30, R_SPARC_WPLT30 }, { BFD_RELOC_SPARC_COPY, R_SPARC_COPY }, { BFD_RELOC_SPARC_GLOB_DAT, R_SPARC_GLOB_DAT }, { BFD_RELOC_SPARC_JMP_SLOT, R_SPARC_JMP_SLOT }, { BFD_RELOC_SPARC_RELATIVE, R_SPARC_RELATIVE }, { BFD_RELOC_SPARC_WDISP22, R_SPARC_WDISP22 }, /* { BFD_RELOC_SPARC_UA32, R_SPARC_UA32 }, not used?? */ }; static CONST struct reloc_howto_struct * bfd_elf32_bfd_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { int i; for (i = 0; i < sizeof (sparc_reloc_map) / sizeof (struct elf_reloc_map); i++) { if (sparc_reloc_map[i].bfd_reloc_val == code) return &elf_sparc_howto_table[(int) sparc_reloc_map[i].elf_reloc_val]; } return 0; } static void elf_info_to_howto (abfd, cache_ptr, dst) bfd *abfd; arelent *cache_ptr; Elf_Internal_Rela *dst; { BFD_ASSERT (ELF32_R_TYPE(dst->r_info) < (unsigned int) R_SPARC_max); cache_ptr->howto = &elf_sparc_howto_table[ELF32_R_TYPE(dst->r_info)]; } /* Functions for the SPARC ELF linker. */ /* The name of the dynamic interpreter. This is put in the .interp section. */ #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1" /* The nop opcode we use. */ #define SPARC_NOP 0x01000000 /* The size in bytes of an entry in the procedure linkage table. */ #define PLT_ENTRY_SIZE 12 /* The first four entries in a procedure linkage table are reserved, and the initial contents are unimportant (we zero them out). Subsequent entries look like this. See the SVR4 ABI SPARC supplement to see how this works. */ /* sethi %hi(.-.plt0),%g1. We fill in the address later. */ #define PLT_ENTRY_WORD0 0x03000000 /* b,a .plt0. We fill in the offset later. */ #define PLT_ENTRY_WORD1 0x30800000 /* nop. */ #define PLT_ENTRY_WORD2 SPARC_NOP /* Create dynamic sections when linking against a dynamic object. */ static boolean elf32_sparc_create_dynamic_sections (abfd, info) bfd *abfd; struct bfd_link_info *info; { flagword flags; register asection *s; struct elf_link_hash_entry *h; /* We need to create .plt, .rela.plt, .got, .dynbss, and .rela.bss sections. */ flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY; s = bfd_make_section (abfd, ".plt"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_CODE) || ! bfd_set_section_alignment (abfd, s, 2)) return false; /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the .plt section. */ h = NULL; if (! (_bfd_generic_link_add_one_symbol (info, abfd, "_PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s, (bfd_vma) 0, (const char *) NULL, false, get_elf_backend_data (abfd)->collect, (struct bfd_link_hash_entry **) &h))) return false; h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR; /* The first four entries in .plt are reserved. */ s->_raw_size = 4 * PLT_ENTRY_SIZE; s = bfd_make_section (abfd, ".rela.plt"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; s = bfd_make_section (abfd, ".got"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags) || ! bfd_set_section_alignment (abfd, s, 2)) return false; /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got section. We don't do this in the linker script because we don't want to define the symbol if we are not creating a global offset table. FIXME: The Solaris linker puts _GLOBAL_OFFSET_TABLE_ at the start of the .got section, but when using the small PIC model the .got is accessed using a signed 13 bit offset. Shouldn't _GLOBAL_OFFSET_TABLE_ be located at .got + 4096? */ h = NULL; if (! (_bfd_generic_link_add_one_symbol (info, abfd, "_GLOBAL_OFFSET_TABLE_", BSF_GLOBAL, s, (bfd_vma) 0, (const char *) NULL, false, get_elf_backend_data (abfd)->collect, (struct bfd_link_hash_entry **) &h))) return false; h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR; /* The first global offset table entry is reserved. */ s->_raw_size += 4; /* The .dynbss section is a place to put symbols which are defined by dynamic objects, are referenced by regular objects, and are not functions. We must allocate space for them in the process image and use a R_SPARC_COPY reloc to tell the dynamic linker to initialize them at run time. The linker script puts the .dynbss section into the .bss section of the final image. */ s = bfd_make_section (abfd, ".dynbss"); if (s == NULL || ! bfd_set_section_flags (abfd, s, SEC_ALLOC)) return false; /* The .rela.bss section holds copy relocs. */ s = bfd_make_section (abfd, ".rela.bss"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; return true; } /* Adjust a symbol defined by a dynamic object and referenced by a regular object. The current definition is in some section of the dynamic object, but we're not including those sections. We have to change the definition to something the rest of the link can understand. */ static boolean elf32_sparc_adjust_dynamic_symbol (info, h) struct bfd_link_info *info; struct elf_link_hash_entry *h; { bfd *dynobj; asection *s; unsigned int power_of_two; size_t align; dynobj = elf_hash_table (info)->dynobj; /* Make sure we know what is going on here. */ BFD_ASSERT (dynobj != NULL && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0 && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) != 0 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0 && h->root.type == bfd_link_hash_defined && (bfd_get_flavour (h->root.u.def.section->owner) == bfd_target_elf_flavour) && (elf_elfheader (h->root.u.def.section->owner)->e_type == ET_DYN) && h->root.u.def.section->output_section == NULL); /* If this is a function, put it in the procedure linkage table. We will fill in the contents of the procedure linkage table later (although we could actually do it here). */ if (h->type == STT_FUNC) { s = bfd_get_section_by_name (dynobj, ".plt"); BFD_ASSERT (s != NULL); /* The procedure linkage table has a maximum size. */ if (s->_raw_size >= 0x400000) { bfd_set_error (bfd_error_bad_value); return false; } /* Set the symbol to this location in the .plt. */ h->root.u.def.section = s; h->root.u.def.value = s->_raw_size; /* Make room for this entry. */ s->_raw_size += PLT_ENTRY_SIZE; /* We also need to make an entry in the .rela.plt section. */ s = bfd_get_section_by_name (dynobj, ".rela.plt"); BFD_ASSERT (s != NULL); s->_raw_size += sizeof (Elf32_External_Rela); return true; } /* If this is a weak symbol, and there is a real definition, the processor independent code will have arranged for us to see the real definition first, and we can just use the same value. */ if (h->weakdef != NULL) { BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined); h->root.u.def.section = h->weakdef->root.u.def.section; h->root.u.def.value = h->weakdef->root.u.def.value; h->align = (bfd_size_type) -1; return true; } /* This is a reference to a symbol defined by a dynamic object which is not a function. We must allocate it in our .dynbss section, which will become part of the .bss section of the executable. There will be an entry for this symbol in the .dynsym section. The dynamic object will contain position independent code, so all references from the dynamic object to this symbol will go through the global offset table. The dynamic linker will use the .dynsym entry to determine the address it must put in the global offset table, so both the dynamic object and the regular object will refer to the same memory location for the variable. */ s = bfd_get_section_by_name (dynobj, ".dynbss"); BFD_ASSERT (s != NULL); /* If the symbol is currently defined in the .bss section of the dynamic object, then it is OK to simply initialize it to zero. If the symbol is in some other section, we must generate a R_SPARC_COPY reloc to tell the dynamic linker to copy the initial value out of the dynamic object and into the runtime process image. We need to remember the offset into the .rel.bss section we are going to use, and we coopt the align field for this purpose (the align field is only used for common symbols, and these symbols are always defined). It would be cleaner to use a new field, but that would waste memory. */ if ((h->root.u.def.section->flags & SEC_LOAD) == 0) h->align = (bfd_size_type) -1; else { asection *srel; srel = bfd_get_section_by_name (dynobj, ".rela.bss"); BFD_ASSERT (srel != NULL); h->align = srel->_raw_size; srel->_raw_size += sizeof (Elf32_External_Rela); } /* We need to figure out the alignment required for this symbol. I have no idea how ELF linkers handle this. */ switch (h->size) { case 0: case 1: power_of_two = 0; align = 1; break; case 2: power_of_two = 1; align = 2; break; case 3: case 4: power_of_two = 2; align = 4; break; case 5: case 6: case 7: case 8: power_of_two = 3; align = 8; break; default: power_of_two = 4; align = 16; break; } /* Apply the required alignment. */ s->_raw_size = BFD_ALIGN (s->_raw_size, align); if (power_of_two > bfd_get_section_alignment (dynobj, s)) { if (! bfd_set_section_alignment (dynobj, s, power_of_two)) return false; } /* Define the symbol as being at this point in the section. */ h->root.u.def.section = s; h->root.u.def.value = s->_raw_size; /* Increment the section size to make room for the symbol. */ s->_raw_size += h->size; return true; } /* Allocate contents for a section. */ static INLINE boolean elf32_sparc_allocate_dynamic_section (dynobj, name) bfd *dynobj; const char *name; { register asection *s; s = bfd_get_section_by_name (dynobj, name); BFD_ASSERT (s != NULL); s->contents = (bfd_byte *) bfd_alloc (dynobj, s->_raw_size); if (s->contents == NULL && s->_raw_size != 0) { bfd_set_error (bfd_error_no_memory); return false; } return true; } /* Set the sizes of the dynamic sections. */ static boolean elf32_sparc_size_dynamic_sections (output_bfd, info) bfd *output_bfd; struct bfd_link_info *info; { bfd *dynobj; asection *s; dynobj = elf_hash_table (info)->dynobj; BFD_ASSERT (dynobj != NULL); /* Set the contents of the .interp section to the interpreter. */ if (! info->shared) { s = bfd_get_section_by_name (dynobj, ".interp"); BFD_ASSERT (s != NULL); s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER; s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER; } /* Make space for the trailing nop in .plt. */ s = bfd_get_section_by_name (dynobj, ".plt"); BFD_ASSERT (s != NULL); s->_raw_size += 4; /* The adjust_dynamic_symbol entry point has determined the sizes of the various dynamic sections. Allocate some memory for them to hold contents. */ if (! elf32_sparc_allocate_dynamic_section (dynobj, ".plt") || ! elf32_sparc_allocate_dynamic_section (dynobj, ".rela.plt") || ! elf32_sparc_allocate_dynamic_section (dynobj, ".got") || ! elf32_sparc_allocate_dynamic_section (dynobj, ".rela.bss")) return false; /* Add some entries to the .dynamic section. We fill in the values later, in elf32_sparc_finish_dynamic_sections, but we must add the entries now so that we get the correct size for the .dynamic section. The DT_DEBUG entry is filled in by the dynamic linker and used by the debugger. */ if (! bfd_elf32_add_dynamic_entry (info, DT_DEBUG, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_PLTGOT, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_PLTRELSZ, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_PLTREL, DT_RELA) || ! bfd_elf32_add_dynamic_entry (info, DT_JMPREL, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_RELA, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_RELASZ, 0) || ! bfd_elf32_add_dynamic_entry (info, DT_RELAENT, sizeof (Elf32_External_Rela))) return false; return true; } /* Relocate a SPARC ELF section. */ static boolean elf32_sparc_relocate_section (output_bfd, info, input_bfd, input_section, contents, relocs, local_syms, local_sections, output_names) bfd *output_bfd; struct bfd_link_info *info; bfd *input_bfd; asection *input_section; bfd_byte *contents; Elf_Internal_Rela *relocs; Elf_Internal_Sym *local_syms; asection **local_sections; char *output_names; { Elf_Internal_Shdr *symtab_hdr; struct elf_link_hash_entry **sym_hashes; Elf_Internal_Rela *rel; Elf_Internal_Rela *relend; symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr; sym_hashes = elf_sym_hashes (input_bfd); rel = relocs; relend = relocs + input_section->reloc_count; for (; rel < relend; rel++) { int r_type; const reloc_howto_type *howto; long r_symndx; struct elf_link_hash_entry *h; Elf_Internal_Sym *sym; asection *sec; bfd_vma relocation; bfd_reloc_status_type r; r_type = ELF32_R_TYPE (rel->r_info); if (r_type < 0 || r_type >= (int) R_SPARC_max) { bfd_set_error (bfd_error_bad_value); return false; } howto = elf_sparc_howto_table + r_type; r_symndx = ELF32_R_SYM (rel->r_info); if (info->relocateable) { /* This is a relocateable link. We don't have to change anything, unless the reloc is against a section symbol, in which case we have to adjust according to where the section symbol winds up in the output section. */ if (r_symndx < symtab_hdr->sh_info) { sym = local_syms + r_symndx; if (ELF_ST_TYPE (sym->st_info) == STT_SECTION) { sec = local_sections[r_symndx]; rel->r_addend += sec->output_offset + sym->st_value; } } continue; } /* This is a final link. */ h = NULL; sym = NULL; sec = NULL; if (r_symndx < symtab_hdr->sh_info) { sym = local_syms + r_symndx; sec = local_sections[r_symndx]; relocation = (sec->output_section->vma + sec->output_offset + sym->st_value); } else { long indx; indx = r_symndx - symtab_hdr->sh_info; h = sym_hashes[indx]; if (h->root.type == bfd_link_hash_defined) { sec = h->root.u.def.section; relocation = (h->root.u.def.value + sec->output_section->vma + sec->output_offset); } else if (h->root.type == bfd_link_hash_weak) relocation = 0; else { if (! ((*info->callbacks->undefined_symbol) (info, h->root.root.string, input_bfd, input_section, rel->r_offset))) return false; relocation = 0; } } r = _bfd_final_link_relocate (howto, input_bfd, input_section, contents, rel->r_offset, relocation, rel->r_addend); if (r != bfd_reloc_ok) { switch (r) { default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: { const char *name; if (h != NULL) name = h->root.root.string; else { name = output_names + sym->st_name; if (name == NULL) return false; if (*name == '\0') name = bfd_section_name (input_bfd, sec); } if (! ((*info->callbacks->reloc_overflow) (info, name, howto->name, (bfd_vma) 0, input_bfd, input_section, rel->r_offset))) return false; } break; } } } return true; } /* Finish up dynamic symbol handling. We set the contents of various dynamic sections here. */ static boolean elf32_sparc_finish_dynamic_symbol (output_bfd, info, h, sym) bfd *output_bfd; struct bfd_link_info *info; struct elf_link_hash_entry *h; Elf_Internal_Sym *sym; { /* If this symbol is not defined by a dynamic object, or is not referenced by a regular object, ignore it. */ if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0 || (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0 || (h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) == 0) { /* Mark some specially defined symbols as absolute. */ if (strcmp (h->root.root.string, "_DYNAMIC") == 0 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0 || strcmp (h->root.root.string, "_PROCEDURE_LINKAGE_TABLE_") == 0) sym->st_shndx = SHN_ABS; return true; } BFD_ASSERT (h->root.type == bfd_link_hash_defined); BFD_ASSERT (h->dynindx != -1); if (h->type == STT_FUNC) { asection *splt; asection *srela; Elf_Internal_Rela rela; splt = h->root.u.def.section; BFD_ASSERT (strcmp (bfd_get_section_name (splt->owner, splt), ".plt") == 0); srela = bfd_get_section_by_name (splt->owner, ".rela.plt"); BFD_ASSERT (srela != NULL); /* Fill in the entry in the procedure linkage table. */ bfd_put_32 (output_bfd, PLT_ENTRY_WORD0 + h->root.u.def.value, splt->contents + h->root.u.def.value); bfd_put_32 (output_bfd, (PLT_ENTRY_WORD1 + (((- (h->root.u.def.value + 4)) >> 2) & 0x3fffff)), splt->contents + h->root.u.def.value + 4); bfd_put_32 (output_bfd, PLT_ENTRY_WORD2, splt->contents + h->root.u.def.value + 8); /* Fill in the entry in the .rela.plt section. */ rela.r_offset = (splt->output_section->vma + splt->output_offset + h->root.u.def.value); rela.r_info = ELF32_R_INFO (h->dynindx, R_SPARC_JMP_SLOT); rela.r_addend = 0; bfd_elf32_swap_reloca_out (output_bfd, &rela, ((Elf32_External_Rela *) srela->contents + (h->root.u.def.value / PLT_ENTRY_SIZE - 4))); /* Mark the symbol as undefined, rather than as defined in the .plt section. Leave the value alone. */ sym->st_shndx = SHN_UNDEF; } else { /* This is not a function. We have already allocated memory for it in the .bss section (via .dynbss). All we have to do here is create a COPY reloc if required. */ if (h->align != (bfd_size_type) -1) { asection *s; Elf_Internal_Rela rela; s = bfd_get_section_by_name (h->root.u.def.section->owner, ".rela.bss"); BFD_ASSERT (s != NULL); rela.r_offset = (h->root.u.def.value + h->root.u.def.section->output_section->vma + h->root.u.def.section->output_offset); rela.r_info = ELF32_R_INFO (h->dynindx, R_SPARC_COPY); rela.r_addend = 0; bfd_elf32_swap_reloca_out (output_bfd, &rela, ((Elf32_External_Rela *) (s->contents + h->align))); } } return true; } /* Finish up the dynamic sections. */ static boolean elf32_sparc_finish_dynamic_sections (output_bfd, info) bfd *output_bfd; struct bfd_link_info *info; { asection *splt; asection *sgot; asection *sdyn; Elf32_External_Dyn *dyncon, *dynconend; splt = bfd_get_section_by_name (elf_hash_table (info)->dynobj, ".plt"); sgot = bfd_get_section_by_name (elf_hash_table (info)->dynobj, ".got"); sdyn = bfd_get_section_by_name (elf_hash_table (info)->dynobj, ".dynamic"); BFD_ASSERT (splt != NULL && sgot != NULL && sdyn != NULL); dyncon = (Elf32_External_Dyn *) sdyn->contents; dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size); for (; dyncon < dynconend; dyncon++) { Elf_Internal_Dyn dyn; const char *name; boolean size; bfd_elf32_swap_dyn_in (elf_hash_table (info)->dynobj, dyncon, &dyn); switch (dyn.d_tag) { case DT_PLTGOT: name = ".plt"; size = false; break; case DT_PLTRELSZ: name = ".rela.plt"; size = true; break; case DT_JMPREL: name = ".rela.plt"; size = false; break; default: name = NULL; size = false; break; } if (name != NULL) { asection *s; s = bfd_get_section_by_name (output_bfd, name); BFD_ASSERT (s != NULL); if (! size) dyn.d_un.d_ptr = s->vma; else { if (s->_cooked_size != 0) dyn.d_un.d_val = s->_cooked_size; else dyn.d_un.d_val = s->_raw_size; } bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon); } } /* Clear the first four entries in the procedure linkage table, and put a nop in the last four bytes. */ if (splt->_raw_size > 0) { memset (splt->contents, 0, 4 * PLT_ENTRY_SIZE); bfd_put_32 (output_bfd, SPARC_NOP, splt->contents + splt->_raw_size - 4); } /* Set the first entry in the global offset table to the address of the dynamic section. */ if (sgot->_raw_size > 0) bfd_put_32 (output_bfd, sdyn->output_section->vma + sdyn->output_offset, sgot->contents); elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4; elf_section_data (splt->output_section)->this_hdr.sh_entsize = PLT_ENTRY_SIZE; return true; } #define TARGET_BIG_SYM bfd_elf32_sparc_vec #define TARGET_BIG_NAME "elf32-sparc" #define ELF_ARCH bfd_arch_sparc #define ELF_MACHINE_CODE EM_SPARC #define ELF_MAXPAGESIZE 0x10000 #define elf_backend_create_dynamic_sections \ elf32_sparc_create_dynamic_sections #define elf_backend_adjust_dynamic_symbol \ elf32_sparc_adjust_dynamic_symbol #define elf_backend_size_dynamic_sections \ elf32_sparc_size_dynamic_sections #define elf_backend_relocate_section elf32_sparc_relocate_section #define elf_backend_finish_dynamic_symbol \ elf32_sparc_finish_dynamic_symbol #define elf_backend_finish_dynamic_sections \ elf32_sparc_finish_dynamic_sections #include "elf32-target.h" gdb-4.13/bfd/elf32-target.h 666 34562 1752 26757 5605063655 13713 0ustar fnfcygnus/* Target definitions for 32-bit ELF Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This structure contains everything that BFD knows about a target. It includes things like its byte order, name, what routines to call to do various operations, etc. Every BFD points to a target structure with its "xvec" member. There are two such structures here: one for big-endian machines and one for little-endian machines. */ #define bfd_elf32_close_and_cleanup _bfd_generic_close_and_cleanup #define bfd_elf32_bfd_free_cached_info _bfd_generic_bfd_free_cached_info #ifndef bfd_elf32_get_section_contents #define bfd_elf32_get_section_contents _bfd_generic_get_section_contents #endif #define bfd_elf32_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define bfd_elf32_bfd_relax_section bfd_generic_relax_section #define bfd_elf32_bfd_make_debug_symbol \ ((asymbol *(*) PARAMS ((bfd *, void *, unsigned long))) bfd_nullvoidptr) #ifndef bfd_elf32_bfd_copy_private_section_data #define bfd_elf32_bfd_copy_private_section_data \ ((boolean (*) PARAMS ((bfd *, asection *, bfd *, asection *))) bfd_true) #endif #ifndef bfd_elf32_bfd_copy_private_bfd_data #define bfd_elf32_bfd_copy_private_bfd_data \ ((boolean (*) PARAMS ((bfd *, bfd *))) bfd_true) #endif #ifndef bfd_elf32_bfd_is_local_label #define bfd_elf32_bfd_is_local_label bfd_generic_is_local_label #endif #ifndef bfd_elf32_get_dynamic_reloc_upper_bound #define bfd_elf32_get_dynamic_reloc_upper_bound \ _bfd_nodynamic_get_dynamic_reloc_upper_bound #endif #ifndef bfd_elf32_canonicalize_dynamic_reloc #define bfd_elf32_canonicalize_dynamic_reloc \ _bfd_nodynamic_canonicalize_dynamic_reloc #endif #ifdef elf_backend_relocate_section #ifndef bfd_elf32_bfd_link_hash_table_create #define bfd_elf32_bfd_link_hash_table_create _bfd_elf_link_hash_table_create #endif #else /* ! defined (elf_backend_relocate_section) */ /* If no backend relocate_section routine, use the generic linker. */ #ifndef bfd_elf32_bfd_link_hash_table_create #define bfd_elf32_bfd_link_hash_table_create \ _bfd_generic_link_hash_table_create #endif #ifndef bfd_elf32_bfd_link_add_symbols #define bfd_elf32_bfd_link_add_symbols _bfd_generic_link_add_symbols #endif #ifndef bfd_elf32_bfd_final_link #define bfd_elf32_bfd_final_link _bfd_generic_final_link #endif #endif /* ! defined (elf_backend_relocate_section) */ #ifndef elf_info_to_howto_rel #define elf_info_to_howto_rel 0 #endif #ifndef ELF_MAXPAGESIZE #define ELF_MAXPAGESIZE 1 #endif #ifndef elf_backend_collect #define elf_backend_collect false #endif #ifndef elf_backend_sym_is_global #define elf_backend_sym_is_global 0 #endif #ifndef elf_backend_object_p #define elf_backend_object_p 0 #endif #ifndef elf_backend_symbol_processing #define elf_backend_symbol_processing 0 #endif #ifndef elf_backend_symbol_table_processing #define elf_backend_symbol_table_processing 0 #endif #ifndef elf_backend_section_processing #define elf_backend_section_processing 0 #endif #ifndef elf_backend_section_from_shdr #define elf_backend_section_from_shdr 0 #endif #ifndef elf_backend_fake_sections #define elf_backend_fake_sections 0 #endif #ifndef elf_backend_section_from_bfd_section #define elf_backend_section_from_bfd_section 0 #endif #ifndef elf_backend_add_symbol_hook #define elf_backend_add_symbol_hook 0 #endif #ifndef elf_backend_link_output_symbol_hook #define elf_backend_link_output_symbol_hook 0 #endif #ifndef elf_backend_create_dynamic_sections #define elf_backend_create_dynamic_sections 0 #endif #ifndef elf_backend_adjust_dynamic_symbol #define elf_backend_adjust_dynamic_symbol 0 #endif #ifndef elf_backend_size_dynamic_sections #define elf_backend_size_dynamic_sections 0 #endif #ifndef elf_backend_relocate_section #define elf_backend_relocate_section 0 #endif #ifndef elf_backend_finish_dynamic_symbol #define elf_backend_finish_dynamic_symbol 0 #endif #ifndef elf_backend_finish_dynamic_sections #define elf_backend_finish_dynamic_sections 0 #endif #ifndef elf_backend_begin_write_processing #define elf_backend_begin_write_processing 0 #endif #ifndef elf_backend_final_write_processing #define elf_backend_final_write_processing 0 #endif #ifndef elf_backend_ecoff_debug_swap #define elf_backend_ecoff_debug_swap 0 #endif static CONST struct elf_backend_data elf32_bed = { #ifdef USE_REL 0, /* use_rela_p */ #else 1, /* use_rela_p */ #endif 0, /* elf_64_p */ ELF_ARCH, /* arch */ ELF_MACHINE_CODE, /* elf_machine_code */ ELF_MAXPAGESIZE, /* maxpagesize */ elf_backend_collect, elf_info_to_howto, elf_info_to_howto_rel, elf_backend_sym_is_global, elf_backend_object_p, elf_backend_symbol_processing, elf_backend_symbol_table_processing, elf_backend_section_processing, elf_backend_section_from_shdr, elf_backend_fake_sections, elf_backend_section_from_bfd_section, elf_backend_add_symbol_hook, elf_backend_link_output_symbol_hook, elf_backend_create_dynamic_sections, elf_backend_adjust_dynamic_symbol, elf_backend_size_dynamic_sections, elf_backend_relocate_section, elf_backend_finish_dynamic_symbol, elf_backend_finish_dynamic_sections, elf_backend_begin_write_processing, elf_backend_final_write_processing, elf_backend_ecoff_debug_swap }; #ifdef TARGET_BIG_SYM const bfd_target TARGET_BIG_SYM = { /* name: identify kind of target */ TARGET_BIG_NAME, /* flavour: general indication about file */ bfd_target_elf_flavour, /* byteorder_big_p: data is big endian */ true, /* header_byteorder_big_p: header is also big endian */ true, /* object_flags: mask of all file flags */ (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), /* section_flags: mask of all section flags */ (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_READONLY | SEC_CODE | SEC_DATA | SEC_DEBUGGING), /* leading_symbol_char: is the first char of a user symbol predictable, and if so what is it */ 0, /* ar_pad_char: pad character for filenames within an archive header FIXME: this really has nothing to do with ELF, this is a characteristic of the archiver and/or os and should be independently tunable */ '/', /* ar_max_namelen: maximum number of characters in an archive header FIXME: this really has nothing to do with ELF, this is a characteristic of the archiver and should be independently tunable. This value is a WAG (wild a** guess) */ 14, /* align_power_min: minimum alignment restriction for any section FIXME: this value may be target machine dependent */ 3, /* Routines to byte-swap various sized integers from the data sections */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Routines to byte-swap various sized integers from the file headers */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* bfd_check_format: check the format of a file being read */ { _bfd_dummy_target, /* unknown format */ bfd_elf32_object_p, /* assembler/linker output (object file) */ bfd_generic_archive_p, /* an archive */ bfd_elf32_core_file_p /* a core file */ }, /* bfd_set_format: set the format of a file being written */ { bfd_false, bfd_elf_mkobject, _bfd_generic_mkarchive, bfd_false }, /* bfd_write_contents: write cached information into a file being written */ { bfd_false, bfd_elf32_write_object_contents, _bfd_write_archive_contents, bfd_false }, BFD_JUMP_TABLE_GENERIC (bfd_elf32), BFD_JUMP_TABLE_COPY (bfd_elf32), BFD_JUMP_TABLE_CORE (bfd_elf32), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (bfd_elf32), BFD_JUMP_TABLE_RELOCS (bfd_elf32), BFD_JUMP_TABLE_WRITE (bfd_elf32), BFD_JUMP_TABLE_LINK (bfd_elf32), BFD_JUMP_TABLE_DYNAMIC (bfd_elf32), /* backend_data: */ (PTR) &elf32_bed, }; #endif #ifdef TARGET_LITTLE_SYM const bfd_target TARGET_LITTLE_SYM = { /* name: identify kind of target */ TARGET_LITTLE_NAME, /* flavour: general indication about file */ bfd_target_elf_flavour, /* byteorder_big_p: data is big endian */ false, /* Nope -- this one's little endian */ /* header_byteorder_big_p: header is also big endian */ false, /* Nope -- this one's little endian */ /* object_flags: mask of all file flags */ (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), /* section_flags: mask of all section flags */ (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_READONLY | SEC_CODE | SEC_DATA | SEC_DEBUGGING), /* leading_symbol_char: is the first char of a user symbol predictable, and if so what is it */ 0, /* ar_pad_char: pad character for filenames within an archive header FIXME: this really has nothing to do with ELF, this is a characteristic of the archiver and/or os and should be independently tunable */ '/', /* ar_max_namelen: maximum number of characters in an archive header FIXME: this really has nothing to do with ELF, this is a characteristic of the archiver and should be independently tunable. This value is a WAG (wild a** guess) */ 14, /* align_power_min: minimum alignment restriction for any section FIXME: this value may be target machine dependent */ 3, /* Routines to byte-swap various sized integers from the data sections */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Routines to byte-swap various sized integers from the file headers */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* bfd_check_format: check the format of a file being read */ { _bfd_dummy_target, /* unknown format */ bfd_elf32_object_p, /* assembler/linker output (object file) */ bfd_generic_archive_p, /* an archive */ bfd_elf32_core_file_p /* a core file */ }, /* bfd_set_format: set the format of a file being written */ { bfd_false, bfd_elf_mkobject, _bfd_generic_mkarchive, bfd_false }, /* bfd_write_contents: write cached information into a file being written */ { bfd_false, bfd_elf32_write_object_contents, _bfd_write_archive_contents, bfd_false }, BFD_JUMP_TABLE_GENERIC (bfd_elf32), BFD_JUMP_TABLE_COPY (bfd_elf32), BFD_JUMP_TABLE_CORE (bfd_elf32), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (bfd_elf32), BFD_JUMP_TABLE_RELOCS (bfd_elf32), BFD_JUMP_TABLE_WRITE (bfd_elf32), BFD_JUMP_TABLE_LINK (bfd_elf32), BFD_JUMP_TABLE_DYNAMIC (bfd_elf32), /* backend_data: */ (PTR) &elf32_bed, }; #endif gdb-4.13/bfd/elf32.c 666 34562 1752 1541 5400476547 12363 0ustar fnfcygnus/* ELF 32-bit executable support for BFD. Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define ARCH_SIZE 32 #include "elfcode.h" gdb-4.13/bfd/elf64-gen.c 666 34562 1752 2571 5470003362 13127 0ustar fnfcygnus/* Generic support for 64-bit ELF Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libelf.h" /* This does not include any relocations, but should be good enough for GDB to read the file. */ #define TARGET_LITTLE_SYM bfd_elf64_little_generic_vec #define TARGET_LITTLE_NAME "elf64-little" #define TARGET_BIG_SYM bfd_elf64_big_generic_vec #define TARGET_BIG_NAME "elf64-big" #define ELF_ARCH bfd_arch_unknown #define ELF_MACHINE_CODE EM_NONE #define bfd_elf64_bfd_reloc_type_lookup bfd_default_reloc_type_lookup #define elf_info_to_howto bfd_elf64_no_info_to_howto #include "elf64-target.h" gdb-4.13/bfd/elf64-sparc.c 666 34562 1752 24247 5573706257 13533 0ustar fnfcygnus/* SPARC-specific support for 64-bit ELF Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* We need a published ABI spec for this. Until one comes out, don't assume this'll remain unchanged forever. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libelf.h" enum reloc_type { R_SPARC_NONE = 0, R_SPARC_8, R_SPARC_16, R_SPARC_32, R_SPARC_DISP8, R_SPARC_DISP16, R_SPARC_DISP32, R_SPARC_WDISP30, R_SPARC_WDISP22, R_SPARC_HI22, R_SPARC_22, R_SPARC_13, R_SPARC_LO10, R_SPARC_GOT10, R_SPARC_GOT13, R_SPARC_GOT22, R_SPARC_PC10, R_SPARC_PC22, R_SPARC_WPLT30, R_SPARC_COPY, R_SPARC_GLOB_DAT, R_SPARC_JMP_SLOT, R_SPARC_RELATIVE, R_SPARC_UA32, /* v9 relocs */ R_SPARC_10, R_SPARC_11, R_SPARC_64, R_SPARC_OLO10, R_SPARC_HH22, R_SPARC_HM10, R_SPARC_LM22, R_SPARC_PC_HH22, R_SPARC_PC_HM10, R_SPARC_PC_LM22, R_SPARC_WDISP16, R_SPARC_WDISP19, R_SPARC_GLOB_JMP, R_SPARC_LO7, R_SPARC_max }; #if 0 static CONST char *CONST reloc_type_names[] = { "R_SPARC_NONE", "R_SPARC_8", "R_SPARC_16", "R_SPARC_32", "R_SPARC_DISP8", "R_SPARC_DISP16", "R_SPARC_DISP32", "R_SPARC_WDISP30", "R_SPARC_WDISP22", "R_SPARC_HI22", "R_SPARC_22", "R_SPARC_13", "R_SPARC_LO10", "R_SPARC_GOT10", "R_SPARC_GOT13", "R_SPARC_GOT22", "R_SPARC_PC10", "R_SPARC_PC22", "R_SPARC_WPLT30", "R_SPARC_COPY", "R_SPARC_GLOB_DAT", "R_SPARC_JMP_SLOT", "R_SPARC_RELATIVE", "R_SPARC_UA32", "R_SPARC_10", "R_SPARC_11", "R_SPARC_64", "R_SPARC_OLO10", "R_SPARC_HH22", "R_SPARC_HM10", "R_SPARC_LM22", "R_SPARC_PC_HH22", "R_SPARC_PC_HM10", "R_SPARC_PC_LM22", "R_SPARC_WDISP16", "R_SPARC_WDISP19", "R_SPARC_GLOB_JMP", "R_SPARC_LO7", }; #endif extern void abort (); #define DIE ((bfd_reloc_status_type(*)())abort) static reloc_howto_type elf_sparc_howto_table[] = { HOWTO (R_SPARC_NONE, 0, 0, 0, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_NONE", false, 0, 0x00000000, true), HOWTO (R_SPARC_8, 0, 0, 8, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_8", false, 0, 0x000000ff, true), HOWTO (R_SPARC_16, 0, 1, 16, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_16", false, 0, 0x0000ffff, true), HOWTO (R_SPARC_32, 0, 2, 32, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_32", false, 0, 0xffffffff, true), HOWTO (R_SPARC_DISP8, 0, 0, 8, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_DISP8", false, 0, 0x000000ff, true), HOWTO (R_SPARC_DISP16, 0, 1, 16, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_DISP16", false, 0, 0x0000ffff, true), HOWTO (R_SPARC_DISP32, 0, 2, 32, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_DISP32", false, 0, 0x00ffffff, true), HOWTO (R_SPARC_WDISP30, 2, 2, 30, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_WDISP30", false, 0, 0x3fffffff, true), HOWTO (R_SPARC_WDISP22, 2, 2, 22, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_WDISP22", false, 0, 0x003fffff, true), HOWTO (R_SPARC_HI22, 10, 2, 22, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_HI22", false, 0, 0x003fffff, true), HOWTO (R_SPARC_22, 0, 2, 22, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_22", false, 0, 0x003fffff, true), HOWTO (R_SPARC_13, 0, 2, 13, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_13", false, 0, 0x00001fff, true), HOWTO (R_SPARC_LO10, 0, 2, 10, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_LO10", false, 0, 0x000003ff, true), HOWTO (R_SPARC_GOT10, 0, 2, 10, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_GOT10", false, 0, 0x000003ff, true), HOWTO (R_SPARC_GOT13, 0, 2, 13, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_GOT13", false, 0, 0x00001fff, true), HOWTO (R_SPARC_GOT22, 10, 2, 22, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_GOT22", false, 0, 0x003fffff, true), HOWTO (R_SPARC_PC10, 0, 2, 10, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_PC10", false, 0, 0x000003ff, true), HOWTO (R_SPARC_PC22, 0, 2, 22, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_PC22", false, 0, 0x003fffff, true), HOWTO (R_SPARC_WPLT30, 0, 0, 00, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_WPLT30", false, 0, 0x00000000, true), HOWTO (R_SPARC_COPY, 0, 0, 00, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_COPY", false, 0, 0x00000000, true), HOWTO (R_SPARC_GLOB_DAT, 0, 0, 00, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_GLOB_DAT", false, 0, 0x00000000, true), HOWTO (R_SPARC_JMP_SLOT, 0, 0, 00, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_JMP_SLOT", false, 0, 0x00000000, true), HOWTO (R_SPARC_RELATIVE, 0, 0, 00, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_RELATIVE", false, 0, 0x00000000, true), HOWTO (R_SPARC_UA32, 0, 0, 00, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_UA32", false, 0, 0x00000000, true), HOWTO (R_SPARC_10, 0, 2, 10, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_10", false, 0, 0x000003ff, true), HOWTO (R_SPARC_11, 0, 2, 11, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_11", false, 0, 0x000007ff, true), HOWTO (R_SPARC_64, 0, 4, 00, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_SPARC_64", false, 0, (((bfd_vma) 0xffffffff) << 32) + 0xffffffff, true), HOWTO (R_SPARC_OLO10, 0, 2, 10, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_OLO10", false, 0, 0x000003ff, true), HOWTO (R_SPARC_HH22, 42, 2, 22, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_HH22", false, 0, 0x003fffff, true), HOWTO (R_SPARC_HM10, 32, 2, 10, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_HM10", false, 0, 0x000003ff, true), HOWTO (R_SPARC_LM22, 10, 2, 22, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_LM22", false, 0, 0x003fffff, true), HOWTO (R_SPARC_PC_HH22, 42, 2, 22, true, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_HH22", false, 0, 0x003fffff, true), HOWTO (R_SPARC_PC_HM10, 32, 2, 10, true, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_HM10", false, 0, 0x000003ff, true), HOWTO (R_SPARC_PC_LM22, 10, 2, 22, true, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_LM22", false, 0, 0x003fffff, true), HOWTO (R_SPARC_WDISP16, 2, 2, 16, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_WDISP16", false, 0, 0, true), HOWTO (R_SPARC_WDISP19, 2, 2, 22, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_WDISP19", false, 0, 0x0007ffff, true), HOWTO (R_SPARC_GLOB_JMP, 0, 0, 00, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_GLOB_DAT", false, 0, 0x00000000, true), HOWTO (R_SPARC_LO7, 0, 2, 7, false, 0, complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_LO7", false, 0, 0x0000007f, true), }; struct elf_reloc_map { unsigned char bfd_reloc_val; unsigned char elf_reloc_val; }; static CONST struct elf_reloc_map sparc_reloc_map[] = { {BFD_RELOC_NONE, R_SPARC_NONE,}, {BFD_RELOC_16, R_SPARC_16,}, {BFD_RELOC_8, R_SPARC_8}, {BFD_RELOC_8_PCREL, R_SPARC_DISP8}, {BFD_RELOC_CTOR, R_SPARC_32}, /* @@ Assumes 32 bits. */ {BFD_RELOC_32, R_SPARC_32}, {BFD_RELOC_32_PCREL, R_SPARC_DISP32}, {BFD_RELOC_HI22, R_SPARC_HI22}, {BFD_RELOC_LO10, R_SPARC_LO10,}, {BFD_RELOC_32_PCREL_S2, R_SPARC_WDISP30}, {BFD_RELOC_SPARC22, R_SPARC_22}, {BFD_RELOC_SPARC13, R_SPARC_13}, {BFD_RELOC_SPARC_GOT10, R_SPARC_GOT10}, {BFD_RELOC_SPARC_GOT13, R_SPARC_GOT13}, {BFD_RELOC_SPARC_GOT22, R_SPARC_GOT22}, {BFD_RELOC_SPARC_PC10, R_SPARC_PC10}, {BFD_RELOC_SPARC_PC22, R_SPARC_PC22}, {BFD_RELOC_SPARC_WPLT30, R_SPARC_WPLT30}, {BFD_RELOC_SPARC_COPY, R_SPARC_COPY}, {BFD_RELOC_SPARC_GLOB_DAT, R_SPARC_GLOB_DAT}, {BFD_RELOC_SPARC_JMP_SLOT, R_SPARC_JMP_SLOT}, {BFD_RELOC_SPARC_RELATIVE, R_SPARC_RELATIVE}, {BFD_RELOC_SPARC_WDISP22, R_SPARC_WDISP22}, /* { BFD_RELOC_SPARC_UA32, R_SPARC_UA32 }, not used?? */ {BFD_RELOC_SPARC_10, R_SPARC_10}, {BFD_RELOC_SPARC_11, R_SPARC_11}, {BFD_RELOC_SPARC_64, R_SPARC_64}, {BFD_RELOC_SPARC_OLO10, R_SPARC_OLO10}, {BFD_RELOC_SPARC_HH22, R_SPARC_HH22}, {BFD_RELOC_SPARC_HM10, R_SPARC_HM10}, {BFD_RELOC_SPARC_LM22, R_SPARC_LM22}, {BFD_RELOC_SPARC_PC_HH22, R_SPARC_PC_HH22}, {BFD_RELOC_SPARC_PC_HM10, R_SPARC_PC_HM10}, {BFD_RELOC_SPARC_PC_LM22, R_SPARC_PC_LM22}, {BFD_RELOC_SPARC_WDISP16, R_SPARC_WDISP16}, {BFD_RELOC_SPARC_WDISP19, R_SPARC_WDISP19}, {BFD_RELOC_SPARC_GLOB_JMP, R_SPARC_GLOB_JMP}, {BFD_RELOC_SPARC_LO7, R_SPARC_LO7}, }; static CONST struct reloc_howto_struct * bfd_elf64_bfd_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { int i; for (i = 0; i < sizeof (sparc_reloc_map) / sizeof (struct elf_reloc_map); i++) { if (sparc_reloc_map[i].bfd_reloc_val == code) return &elf_sparc_howto_table[(int) sparc_reloc_map[i].elf_reloc_val]; } return 0; } static void elf_info_to_howto (abfd, cache_ptr, dst) bfd *abfd; arelent *cache_ptr; Elf64_Internal_Rela *dst; { BFD_ASSERT (ELF64_R_TYPE (dst->r_info) < (unsigned int) R_SPARC_max); cache_ptr->howto = &elf_sparc_howto_table[ELF64_R_TYPE (dst->r_info)]; } #define TARGET_BIG_SYM bfd_elf64_sparc_vec #define TARGET_BIG_NAME "elf64-sparc" #define ELF_ARCH bfd_arch_sparc #define ELF_MACHINE_CODE EM_SPARC64 #include "elf64-target.h" gdb-4.13/bfd/elf64-target.h 666 34562 1752 27251 5605063656 13707 0ustar fnfcygnus/* Target definitions for 64-bit ELF Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This structure contains everything that BFD knows about a target. It includes things like its byte order, name, what routines to call to do various operations, etc. Every BFD points to a target structure with its "xvec" member. There are two such structures here: one for big-endian machines and one for little-endian machines. */ #define bfd_elf64_close_and_cleanup _bfd_generic_close_and_cleanup #define bfd_elf64_bfd_free_cached_info _bfd_generic_bfd_free_cached_info #ifndef bfd_elf64_get_section_contents #define bfd_elf64_get_section_contents _bfd_generic_get_section_contents #endif #define bfd_elf64_bfd_debug_info_start bfd_void #define bfd_elf64_bfd_debug_info_end bfd_void #define bfd_elf64_bfd_debug_info_accumulate (PROTO(void,(*),(bfd*, struct sec *))) bfd_void #define bfd_elf64_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define bfd_elf64_bfd_relax_section bfd_generic_relax_section #define bfd_elf64_bfd_make_debug_symbol \ ((asymbol *(*) PARAMS ((bfd *, void *, unsigned long))) bfd_nullvoidptr) #ifndef bfd_elf64_bfd_copy_private_section_data #define bfd_elf64_bfd_copy_private_section_data \ ((boolean (*) PARAMS ((bfd *, asection *, bfd *, asection *))) bfd_true) #endif #ifndef bfd_elf64_bfd_copy_private_bfd_data #define bfd_elf64_bfd_copy_private_bfd_data \ ((boolean (*) PARAMS ((bfd *, bfd *))) bfd_true) #endif #ifndef bfd_elf64_bfd_is_local_label #define bfd_elf64_bfd_is_local_label bfd_generic_is_local_label #endif #ifndef bfd_elf64_get_dynamic_reloc_upper_bound #define bfd_elf64_get_dynamic_reloc_upper_bound \ _bfd_nodynamic_get_dynamic_reloc_upper_bound #endif #ifndef bfd_elf64_canonicalize_dynamic_reloc #define bfd_elf64_canonicalize_dynamic_reloc \ _bfd_nodynamic_canonicalize_dynamic_reloc #endif #ifdef elf_backend_relocate_section #ifndef bfd_elf64_bfd_link_hash_table_create #define bfd_elf64_bfd_link_hash_table_create _bfd_elf_link_hash_table_create #endif #else /* ! defined (elf_backend_relocate_section) */ /* If no backend relocate_section routine, use the generic linker. */ #ifndef bfd_elf64_bfd_link_hash_table_create #define bfd_elf64_bfd_link_hash_table_create \ _bfd_generic_link_hash_table_create #endif #ifndef bfd_elf64_bfd_link_add_symbols #define bfd_elf64_bfd_link_add_symbols _bfd_generic_link_add_symbols #endif #ifndef bfd_elf64_bfd_final_link #define bfd_elf64_bfd_final_link _bfd_generic_final_link #endif #endif /* ! defined (elf_backend_relocate_section) */ #ifndef elf_info_to_howto_rel #define elf_info_to_howto_rel 0 #endif #ifndef ELF_MAXPAGESIZE #define ELF_MAXPAGESIZE 1 #endif #ifndef elf_backend_collect #define elf_backend_collect false #endif #ifndef elf_backend_sym_is_global #define elf_backend_sym_is_global 0 #endif #ifndef elf_backend_object_p #define elf_backend_object_p 0 #endif #ifndef elf_backend_symbol_processing #define elf_backend_symbol_processing 0 #endif #ifndef elf_backend_symbol_table_processing #define elf_backend_symbol_table_processing 0 #endif #ifndef elf_backend_section_processing #define elf_backend_section_processing 0 #endif #ifndef elf_backend_section_from_shdr #define elf_backend_section_from_shdr 0 #endif #ifndef elf_backend_fake_sections #define elf_backend_fake_sections 0 #endif #ifndef elf_backend_section_from_bfd_section #define elf_backend_section_from_bfd_section 0 #endif #ifndef elf_backend_add_symbol_hook #define elf_backend_add_symbol_hook 0 #endif #ifndef elf_backend_link_output_symbol_hook #define elf_backend_link_output_symbol_hook 0 #endif #ifndef elf_backend_create_dynamic_sections #define elf_backend_create_dynamic_sections 0 #endif #ifndef elf_backend_adjust_dynamic_symbol #define elf_backend_adjust_dynamic_symbol 0 #endif #ifndef elf_backend_size_dynamic_sections #define elf_backend_size_dynamic_sections 0 #endif #ifndef elf_backend_relocate_section #define elf_backend_relocate_section 0 #endif #ifndef elf_backend_finish_dynamic_symbol #define elf_backend_finish_dynamic_symbol 0 #endif #ifndef elf_backend_finish_dynamic_sections #define elf_backend_finish_dynamic_sections 0 #endif #ifndef elf_backend_begin_write_processing #define elf_backend_begin_write_processing 0 #endif #ifndef elf_backend_final_write_processing #define elf_backend_final_write_processing 0 #endif #ifndef elf_backend_ecoff_debug_swap #define elf_backend_ecoff_debug_swap 0 #endif static CONST struct elf_backend_data elf64_bed = { #ifdef USE_REL 0, /* use_rela_p */ #else 1, /* use_rela_p */ #endif 1, /* elf_64_p */ ELF_ARCH, /* arch */ ELF_MACHINE_CODE, /* elf_machine_code */ ELF_MAXPAGESIZE, /* maxpagesize */ elf_backend_collect, elf_info_to_howto, elf_info_to_howto_rel, elf_backend_sym_is_global, elf_backend_object_p, elf_backend_symbol_processing, elf_backend_symbol_table_processing, elf_backend_section_processing, elf_backend_section_from_shdr, elf_backend_fake_sections, elf_backend_section_from_bfd_section, elf_backend_add_symbol_hook, elf_backend_link_output_symbol_hook, elf_backend_create_dynamic_sections, elf_backend_adjust_dynamic_symbol, elf_backend_size_dynamic_sections, elf_backend_relocate_section, elf_backend_finish_dynamic_symbol, elf_backend_finish_dynamic_sections, elf_backend_begin_write_processing, elf_backend_final_write_processing, elf_backend_ecoff_debug_swap }; #ifdef TARGET_BIG_SYM const bfd_target TARGET_BIG_SYM = { /* name: identify kind of target */ TARGET_BIG_NAME, /* flavour: general indication about file */ bfd_target_elf_flavour, /* byteorder_big_p: data is big endian */ true, /* header_byteorder_big_p: header is also big endian */ true, /* object_flags: mask of all file flags */ (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), /* section_flags: mask of all section flags */ (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_READONLY | SEC_CODE | SEC_DATA | SEC_DEBUGGING), /* leading_symbol_char: is the first char of a user symbol predictable, and if so what is it */ 0, /* ar_pad_char: pad character for filenames within an archive header FIXME: this really has nothing to do with ELF, this is a characteristic of the archiver and/or os and should be independently tunable */ '/', /* ar_max_namelen: maximum number of characters in an archive header FIXME: this really has nothing to do with ELF, this is a characteristic of the archiver and should be independently tunable. This value is a WAG (wild a** guess) */ 14, /* align_power_min: minimum alignment restriction for any section FIXME: this value may be target machine dependent */ 3, /* Routines to byte-swap various sized integers from the data sections */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Routines to byte-swap various sized integers from the file headers */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* bfd_check_format: check the format of a file being read */ { _bfd_dummy_target, /* unknown format */ bfd_elf64_object_p, /* assembler/linker output (object file) */ bfd_generic_archive_p, /* an archive */ bfd_elf64_core_file_p /* a core file */ }, /* bfd_set_format: set the format of a file being written */ { bfd_false, bfd_elf_mkobject, _bfd_generic_mkarchive, bfd_false }, /* bfd_write_contents: write cached information into a file being written */ { bfd_false, bfd_elf64_write_object_contents, _bfd_write_archive_contents, bfd_false }, BFD_JUMP_TABLE_GENERIC (bfd_elf64), BFD_JUMP_TABLE_COPY (bfd_elf64), BFD_JUMP_TABLE_CORE (bfd_elf64), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (bfd_elf64), BFD_JUMP_TABLE_RELOCS (bfd_elf64), BFD_JUMP_TABLE_WRITE (bfd_elf64), BFD_JUMP_TABLE_LINK (bfd_elf64), BFD_JUMP_TABLE_DYNAMIC (bfd_elf64), /* backend_data: */ (PTR) &elf64_bed, }; #endif #ifdef TARGET_LITTLE_SYM const bfd_target TARGET_LITTLE_SYM = { /* name: identify kind of target */ TARGET_LITTLE_NAME, /* flavour: general indication about file */ bfd_target_elf_flavour, /* byteorder_big_p: data is big endian */ false, /* Nope -- this one's little endian */ /* header_byteorder_big_p: header is also big endian */ false, /* Nope -- this one's little endian */ /* object_flags: mask of all file flags */ (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), /* section_flags: mask of all section flags */ (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_READONLY | SEC_CODE | SEC_DATA | SEC_DEBUGGING), /* leading_symbol_char: is the first char of a user symbol predictable, and if so what is it */ 0, /* ar_pad_char: pad character for filenames within an archive header FIXME: this really has nothing to do with ELF, this is a characteristic of the archiver and/or os and should be independently tunable */ '/', /* ar_max_namelen: maximum number of characters in an archive header FIXME: this really has nothing to do with ELF, this is a characteristic of the archiver and should be independently tunable. This value is a WAG (wild a** guess) */ 14, /* align_power_min: minimum alignment restriction for any section FIXME: this value may be target machine dependent */ 3, /* Routines to byte-swap various sized integers from the data sections */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Routines to byte-swap various sized integers from the file headers */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* bfd_check_format: check the format of a file being read */ { _bfd_dummy_target, /* unknown format */ bfd_elf64_object_p, /* assembler/linker output (object file) */ bfd_generic_archive_p, /* an archive */ bfd_elf64_core_file_p /* a core file */ }, /* bfd_set_format: set the format of a file being written */ { bfd_false, bfd_elf_mkobject, _bfd_generic_mkarchive, bfd_false }, /* bfd_write_contents: write cached information into a file being written */ { bfd_false, bfd_elf64_write_object_contents, _bfd_write_archive_contents, bfd_false }, BFD_JUMP_TABLE_GENERIC (bfd_elf64), BFD_JUMP_TABLE_COPY (bfd_elf64), BFD_JUMP_TABLE_CORE (bfd_elf64), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), BFD_JUMP_TABLE_SYMBOLS (bfd_elf64), BFD_JUMP_TABLE_RELOCS (bfd_elf64), BFD_JUMP_TABLE_WRITE (bfd_elf64), BFD_JUMP_TABLE_LINK (bfd_elf64), BFD_JUMP_TABLE_DYNAMIC (bfd_elf64), /* backend_data: */ (PTR) &elf64_bed, }; #endif gdb-4.13/bfd/elf64.c 666 34562 1752 1540 5400465211 12351 0ustar fnfcygnus/* ELF 64-bit executable support for BFD. Copyright 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define ARCH_SIZE 64 #include "elfcode.h" gdb-4.13/bfd/elfcode.h 666 34562 1752 561010 5623164642 13115 0ustar fnfcygnus/* ELF executable support for BFD. Copyright 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support, from information published in "UNIX System V Release 4, Programmers Guide: ANSI C and Programming Support Tools". Sufficient support for gdb. Rewritten by Mark Eichin @ Cygnus Support, from information published in "System V Application Binary Interface", chapters 4 and 5, as well as the various "Processor Supplement" documents derived from it. Added support for assembler and other object file utilities. Further work done by Ken Raeburn (Cygnus Support), Michael Meissner (Open Software Foundation), and Peter Hoogenboom (University of Utah) to finish and extend this. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Problems and other issues to resolve. (1) BFD expects there to be some fixed number of "sections" in the object file. I.E. there is a "section_count" variable in the bfd structure which contains the number of sections. However, ELF supports multiple "views" of a file. In particular, with current implementations, executable files typically have two tables, a program header table and a section header table, both of which partition the executable. In ELF-speak, the "linking view" of the file uses the section header table to access "sections" within the file, and the "execution view" uses the program header table to access "segments" within the file. "Segments" typically may contain all the data from one or more "sections". Note that the section header table is optional in ELF executables, but it is this information that is most useful to gdb. If the section header table is missing, then gdb should probably try to make do with the program header table. (FIXME) (2) The code in this file is compiled twice, once in 32-bit mode and once in 64-bit mode. More of it should be made size-independent and moved into elf.c. (3) ELF section symbols are handled rather sloppily now. This should be cleaned up, and ELF section symbols reconciled with BFD section symbols. (4) We need a published spec for 64-bit ELF. We've got some stuff here that we're using for SPARC V9 64-bit chips, but don't assume that it's cast in stone. */ #include /* For strrchr and friends */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" #include "libelf.h" /* Renaming structures, typedefs, macros and functions to be size-specific. */ #define Elf_External_Ehdr NAME(Elf,External_Ehdr) #define Elf_External_Sym NAME(Elf,External_Sym) #define Elf_External_Shdr NAME(Elf,External_Shdr) #define Elf_External_Phdr NAME(Elf,External_Phdr) #define Elf_External_Rel NAME(Elf,External_Rel) #define Elf_External_Rela NAME(Elf,External_Rela) #define Elf_External_Dyn NAME(Elf,External_Dyn) #define elf_core_file_failing_command NAME(bfd_elf,core_file_failing_command) #define elf_core_file_failing_signal NAME(bfd_elf,core_file_failing_signal) #define elf_core_file_matches_executable_p \ NAME(bfd_elf,core_file_matches_executable_p) #define elf_object_p NAME(bfd_elf,object_p) #define elf_core_file_p NAME(bfd_elf,core_file_p) #define elf_get_symtab_upper_bound NAME(bfd_elf,get_symtab_upper_bound) #define elf_get_dynamic_symtab_upper_bound \ NAME(bfd_elf,get_dynamic_symtab_upper_bound) #define elf_swap_reloc_in NAME(bfd_elf,swap_reloc_in) #define elf_swap_reloca_in NAME(bfd_elf,swap_reloca_in) #define elf_swap_reloc_out NAME(bfd_elf,swap_reloc_out) #define elf_swap_reloca_out NAME(bfd_elf,swap_reloca_out) #define elf_swap_symbol_in NAME(bfd_elf,swap_symbol_in) #define elf_swap_symbol_out NAME(bfd_elf,swap_symbol_out) #define elf_swap_dyn_in NAME(bfd_elf,swap_dyn_in) #define elf_swap_dyn_out NAME(bfd_elf,swap_dyn_out) #define elf_get_reloc_upper_bound NAME(bfd_elf,get_reloc_upper_bound) #define elf_canonicalize_reloc NAME(bfd_elf,canonicalize_reloc) #define elf_get_symtab NAME(bfd_elf,get_symtab) #define elf_canonicalize_dynamic_symtab \ NAME(bfd_elf,canonicalize_dynamic_symtab) #define elf_make_empty_symbol NAME(bfd_elf,make_empty_symbol) #define elf_get_symbol_info NAME(bfd_elf,get_symbol_info) #define elf_print_symbol NAME(bfd_elf,print_symbol) #define elf_get_lineno NAME(bfd_elf,get_lineno) #define elf_set_arch_mach NAME(bfd_elf,set_arch_mach) #define elf_find_nearest_line NAME(bfd_elf,find_nearest_line) #define elf_sizeof_headers NAME(bfd_elf,sizeof_headers) #define elf_set_section_contents NAME(bfd_elf,set_section_contents) #define elf_no_info_to_howto NAME(bfd_elf,no_info_to_howto) #define elf_no_info_to_howto_rel NAME(bfd_elf,no_info_to_howto_rel) #define elf_new_section_hook NAME(bfd_elf,new_section_hook) #define write_relocs NAME(bfd_elf,_write_relocs) #define elf_find_section NAME(bfd_elf,find_section) #define elf_bfd_link_add_symbols NAME(bfd_elf,bfd_link_add_symbols) #define elf_add_dynamic_entry NAME(bfd_elf,add_dynamic_entry) #define elf_bfd_final_link NAME(bfd_elf,bfd_final_link) #if ARCH_SIZE == 64 #define ELF_R_INFO(X,Y) ELF64_R_INFO(X,Y) #define ELF_R_SYM(X) ELF64_R_SYM(X) #define ELF_R_TYPE(X) ELF64_R_TYPE(X) #define ELFCLASS ELFCLASS64 #define FILE_ALIGN 8 #define LOG_FILE_ALIGN 3 #endif #if ARCH_SIZE == 32 #define ELF_R_INFO(X,Y) ELF32_R_INFO(X,Y) #define ELF_R_SYM(X) ELF32_R_SYM(X) #define ELF_R_TYPE(X) ELF32_R_TYPE(X) #define ELFCLASS ELFCLASS32 #define FILE_ALIGN 4 #define LOG_FILE_ALIGN 2 #endif /* Forward declarations of static functions */ static unsigned long bfd_add_to_strtab PARAMS ((bfd *, struct strtab *, const char *)); static asection *section_from_elf_index PARAMS ((bfd *, unsigned int)); static int elf_section_from_bfd_section PARAMS ((bfd *, struct sec *)); static long elf_slurp_symbol_table PARAMS ((bfd *, asymbol **, boolean)); static boolean elf_slurp_reloc_table PARAMS ((bfd *, asection *, asymbol **)); static int elf_symbol_from_bfd_symbol PARAMS ((bfd *, struct symbol_cache_entry **)); static boolean elf_compute_section_file_positions PARAMS ((bfd *, struct bfd_link_info *)); static boolean prep_headers PARAMS ((bfd *)); static void elf_fake_sections PARAMS ((bfd *, asection *, PTR)); static boolean assign_section_numbers PARAMS ((bfd *)); static file_ptr align_file_position PARAMS ((file_ptr)); static file_ptr assign_file_position_for_section PARAMS ((Elf_Internal_Shdr *, file_ptr, boolean)); static boolean assign_file_positions_except_relocs PARAMS ((bfd *, boolean)); static void assign_file_positions_for_relocs PARAMS ((bfd *)); static bfd_size_type get_program_header_size PARAMS ((bfd *)); static file_ptr map_program_segments PARAMS ((bfd *, file_ptr, Elf_Internal_Shdr *, bfd_size_type)); static boolean elf_map_symbols PARAMS ((bfd *)); static boolean swap_out_syms PARAMS ((bfd *)); static boolean bfd_section_from_shdr PARAMS ((bfd *, unsigned int shindex)); #ifdef DEBUG static void elf_debug_section PARAMS ((char *, int, Elf_Internal_Shdr *)); static void elf_debug_file PARAMS ((Elf_Internal_Ehdr *)); #endif #define elf_string_from_elf_strtab(abfd,strindex) \ elf_string_from_elf_section(abfd,elf_elfheader(abfd)->e_shstrndx,strindex) /* Structure swapping routines */ /* Should perhaps use put_offset, put_word, etc. For now, the two versions can be handled by explicitly specifying 32 bits or "the long type". */ #if ARCH_SIZE == 64 #define put_word bfd_h_put_64 #define get_word bfd_h_get_64 #endif #if ARCH_SIZE == 32 #define put_word bfd_h_put_32 #define get_word bfd_h_get_32 #endif /* Translate an ELF symbol in external format into an ELF symbol in internal format. */ void elf_swap_symbol_in (abfd, src, dst) bfd *abfd; Elf_External_Sym *src; Elf_Internal_Sym *dst; { dst->st_name = bfd_h_get_32 (abfd, (bfd_byte *) src->st_name); dst->st_value = get_word (abfd, (bfd_byte *) src->st_value); dst->st_size = get_word (abfd, (bfd_byte *) src->st_size); dst->st_info = bfd_h_get_8 (abfd, (bfd_byte *) src->st_info); dst->st_other = bfd_h_get_8 (abfd, (bfd_byte *) src->st_other); dst->st_shndx = bfd_h_get_16 (abfd, (bfd_byte *) src->st_shndx); } /* Translate an ELF symbol in internal format into an ELF symbol in external format. */ void elf_swap_symbol_out (abfd, src, dst) bfd *abfd; Elf_Internal_Sym *src; Elf_External_Sym *dst; { bfd_h_put_32 (abfd, src->st_name, dst->st_name); put_word (abfd, src->st_value, dst->st_value); put_word (abfd, src->st_size, dst->st_size); bfd_h_put_8 (abfd, src->st_info, dst->st_info); bfd_h_put_8 (abfd, src->st_other, dst->st_other); bfd_h_put_16 (abfd, src->st_shndx, dst->st_shndx); } /* Translate an ELF file header in external format into an ELF file header in internal format. */ static void elf_swap_ehdr_in (abfd, src, dst) bfd *abfd; Elf_External_Ehdr *src; Elf_Internal_Ehdr *dst; { memcpy (dst->e_ident, src->e_ident, EI_NIDENT); dst->e_type = bfd_h_get_16 (abfd, (bfd_byte *) src->e_type); dst->e_machine = bfd_h_get_16 (abfd, (bfd_byte *) src->e_machine); dst->e_version = bfd_h_get_32 (abfd, (bfd_byte *) src->e_version); dst->e_entry = get_word (abfd, (bfd_byte *) src->e_entry); dst->e_phoff = get_word (abfd, (bfd_byte *) src->e_phoff); dst->e_shoff = get_word (abfd, (bfd_byte *) src->e_shoff); dst->e_flags = bfd_h_get_32 (abfd, (bfd_byte *) src->e_flags); dst->e_ehsize = bfd_h_get_16 (abfd, (bfd_byte *) src->e_ehsize); dst->e_phentsize = bfd_h_get_16 (abfd, (bfd_byte *) src->e_phentsize); dst->e_phnum = bfd_h_get_16 (abfd, (bfd_byte *) src->e_phnum); dst->e_shentsize = bfd_h_get_16 (abfd, (bfd_byte *) src->e_shentsize); dst->e_shnum = bfd_h_get_16 (abfd, (bfd_byte *) src->e_shnum); dst->e_shstrndx = bfd_h_get_16 (abfd, (bfd_byte *) src->e_shstrndx); } /* Translate an ELF file header in internal format into an ELF file header in external format. */ static void elf_swap_ehdr_out (abfd, src, dst) bfd *abfd; Elf_Internal_Ehdr *src; Elf_External_Ehdr *dst; { memcpy (dst->e_ident, src->e_ident, EI_NIDENT); /* note that all elements of dst are *arrays of unsigned char* already... */ bfd_h_put_16 (abfd, src->e_type, dst->e_type); bfd_h_put_16 (abfd, src->e_machine, dst->e_machine); bfd_h_put_32 (abfd, src->e_version, dst->e_version); put_word (abfd, src->e_entry, dst->e_entry); put_word (abfd, src->e_phoff, dst->e_phoff); put_word (abfd, src->e_shoff, dst->e_shoff); bfd_h_put_32 (abfd, src->e_flags, dst->e_flags); bfd_h_put_16 (abfd, src->e_ehsize, dst->e_ehsize); bfd_h_put_16 (abfd, src->e_phentsize, dst->e_phentsize); bfd_h_put_16 (abfd, src->e_phnum, dst->e_phnum); bfd_h_put_16 (abfd, src->e_shentsize, dst->e_shentsize); bfd_h_put_16 (abfd, src->e_shnum, dst->e_shnum); bfd_h_put_16 (abfd, src->e_shstrndx, dst->e_shstrndx); } /* Translate an ELF section header table entry in external format into an ELF section header table entry in internal format. */ static void elf_swap_shdr_in (abfd, src, dst) bfd *abfd; Elf_External_Shdr *src; Elf_Internal_Shdr *dst; { dst->sh_name = bfd_h_get_32 (abfd, (bfd_byte *) src->sh_name); dst->sh_type = bfd_h_get_32 (abfd, (bfd_byte *) src->sh_type); dst->sh_flags = get_word (abfd, (bfd_byte *) src->sh_flags); dst->sh_addr = get_word (abfd, (bfd_byte *) src->sh_addr); dst->sh_offset = get_word (abfd, (bfd_byte *) src->sh_offset); dst->sh_size = get_word (abfd, (bfd_byte *) src->sh_size); dst->sh_link = bfd_h_get_32 (abfd, (bfd_byte *) src->sh_link); dst->sh_info = bfd_h_get_32 (abfd, (bfd_byte *) src->sh_info); dst->sh_addralign = get_word (abfd, (bfd_byte *) src->sh_addralign); dst->sh_entsize = get_word (abfd, (bfd_byte *) src->sh_entsize); /* we haven't done any processing on it yet, so... */ dst->rawdata = (void *) 0; } /* Translate an ELF section header table entry in internal format into an ELF section header table entry in external format. */ static void elf_swap_shdr_out (abfd, src, dst) bfd *abfd; Elf_Internal_Shdr *src; Elf_External_Shdr *dst; { /* note that all elements of dst are *arrays of unsigned char* already... */ bfd_h_put_32 (abfd, src->sh_name, dst->sh_name); bfd_h_put_32 (abfd, src->sh_type, dst->sh_type); put_word (abfd, src->sh_flags, dst->sh_flags); put_word (abfd, src->sh_addr, dst->sh_addr); put_word (abfd, src->sh_offset, dst->sh_offset); put_word (abfd, src->sh_size, dst->sh_size); bfd_h_put_32 (abfd, src->sh_link, dst->sh_link); bfd_h_put_32 (abfd, src->sh_info, dst->sh_info); put_word (abfd, src->sh_addralign, dst->sh_addralign); put_word (abfd, src->sh_entsize, dst->sh_entsize); } /* Translate an ELF program header table entry in external format into an ELF program header table entry in internal format. */ static void elf_swap_phdr_in (abfd, src, dst) bfd *abfd; Elf_External_Phdr *src; Elf_Internal_Phdr *dst; { dst->p_type = bfd_h_get_32 (abfd, (bfd_byte *) src->p_type); dst->p_flags = bfd_h_get_32 (abfd, (bfd_byte *) src->p_flags); dst->p_offset = get_word (abfd, (bfd_byte *) src->p_offset); dst->p_vaddr = get_word (abfd, (bfd_byte *) src->p_vaddr); dst->p_paddr = get_word (abfd, (bfd_byte *) src->p_paddr); dst->p_filesz = get_word (abfd, (bfd_byte *) src->p_filesz); dst->p_memsz = get_word (abfd, (bfd_byte *) src->p_memsz); dst->p_align = get_word (abfd, (bfd_byte *) src->p_align); } static void elf_swap_phdr_out (abfd, src, dst) bfd *abfd; Elf_Internal_Phdr *src; Elf_External_Phdr *dst; { /* note that all elements of dst are *arrays of unsigned char* already... */ bfd_h_put_32 (abfd, src->p_type, dst->p_type); put_word (abfd, src->p_offset, dst->p_offset); put_word (abfd, src->p_vaddr, dst->p_vaddr); put_word (abfd, src->p_paddr, dst->p_paddr); put_word (abfd, src->p_filesz, dst->p_filesz); put_word (abfd, src->p_memsz, dst->p_memsz); bfd_h_put_32 (abfd, src->p_flags, dst->p_flags); put_word (abfd, src->p_align, dst->p_align); } /* Translate an ELF reloc from external format to internal format. */ INLINE void elf_swap_reloc_in (abfd, src, dst) bfd *abfd; Elf_External_Rel *src; Elf_Internal_Rel *dst; { dst->r_offset = get_word (abfd, (bfd_byte *) src->r_offset); dst->r_info = get_word (abfd, (bfd_byte *) src->r_info); } INLINE void elf_swap_reloca_in (abfd, src, dst) bfd *abfd; Elf_External_Rela *src; Elf_Internal_Rela *dst; { dst->r_offset = get_word (abfd, (bfd_byte *) src->r_offset); dst->r_info = get_word (abfd, (bfd_byte *) src->r_info); dst->r_addend = get_word (abfd, (bfd_byte *) src->r_addend); } /* Translate an ELF reloc from internal format to external format. */ INLINE void elf_swap_reloc_out (abfd, src, dst) bfd *abfd; Elf_Internal_Rel *src; Elf_External_Rel *dst; { put_word (abfd, src->r_offset, dst->r_offset); put_word (abfd, src->r_info, dst->r_info); } INLINE void elf_swap_reloca_out (abfd, src, dst) bfd *abfd; Elf_Internal_Rela *src; Elf_External_Rela *dst; { put_word (abfd, src->r_offset, dst->r_offset); put_word (abfd, src->r_info, dst->r_info); put_word (abfd, src->r_addend, dst->r_addend); } INLINE void elf_swap_dyn_in (abfd, src, dst) bfd *abfd; const Elf_External_Dyn *src; Elf_Internal_Dyn *dst; { dst->d_tag = get_word (abfd, src->d_tag); dst->d_un.d_val = get_word (abfd, src->d_un.d_val); } INLINE void elf_swap_dyn_out (abfd, src, dst) bfd *abfd; const Elf_Internal_Dyn *src; Elf_External_Dyn *dst; { put_word (abfd, src->d_tag, dst->d_tag); put_word (abfd, src->d_un.d_val, dst->d_un.d_val); } /* String table creation/manipulation routines */ static struct strtab * bfd_new_strtab (abfd) bfd *abfd; { struct strtab *ss; ss = (struct strtab *) malloc (sizeof (struct strtab)); if (!ss) { bfd_set_error (bfd_error_no_memory); return NULL; } ss->tab = malloc (1); if (!ss->tab) { bfd_set_error (bfd_error_no_memory); return NULL; } *ss->tab = 0; ss->nentries = 0; ss->length = 1; return ss; } static unsigned long bfd_add_to_strtab (abfd, ss, str) bfd *abfd; struct strtab *ss; const char *str; { /* should search first, but for now: */ /* include the trailing NUL */ int ln = strlen (str) + 1; /* FIXME: This is slow. Also, we could combine this with the a.out string table building and use a hash table, although it might not be worth it since ELF symbols don't include debugging information and thus have much less overlap. */ ss->tab = realloc (ss->tab, ss->length + ln); if (ss->tab == NULL) { bfd_set_error (bfd_error_no_memory); return (unsigned long) -1; } strcpy (ss->tab + ss->length, str); ss->nentries++; ss->length += ln; return ss->length - ln; } static int bfd_add_2_to_strtab (abfd, ss, str, str2) bfd *abfd; struct strtab *ss; char *str; CONST char *str2; { /* should search first, but for now: */ /* include the trailing NUL */ int ln = strlen (str) + strlen (str2) + 1; /* should this be using obstacks? */ if (ss->length) ss->tab = realloc (ss->tab, ss->length + ln); else ss->tab = malloc (ln); BFD_ASSERT (ss->tab != 0); /* FIXME */ strcpy (ss->tab + ss->length, str); strcpy (ss->tab + ss->length + strlen (str), str2); ss->nentries++; ss->length += ln; return ss->length - ln; } /* ELF .o/exec file reading */ /* Create a new bfd section from an ELF section header. */ static boolean bfd_section_from_shdr (abfd, shindex) bfd *abfd; unsigned int shindex; { Elf_Internal_Shdr *hdr = elf_elfsections (abfd)[shindex]; Elf_Internal_Ehdr *ehdr = elf_elfheader (abfd); char *name; name = elf_string_from_elf_strtab (abfd, hdr->sh_name); switch (hdr->sh_type) { case SHT_NULL: /* Inactive section. Throw it away. */ return true; case SHT_PROGBITS: /* Normal section with contents. */ case SHT_DYNAMIC: /* Dynamic linking information. */ case SHT_NOBITS: /* .bss section. */ case SHT_HASH: /* .hash section. */ return _bfd_elf_make_section_from_shdr (abfd, hdr, name); case SHT_SYMTAB: /* A symbol table */ if (elf_onesymtab (abfd) == shindex) return true; BFD_ASSERT (hdr->sh_entsize == sizeof (Elf_External_Sym)); BFD_ASSERT (elf_onesymtab (abfd) == 0); elf_onesymtab (abfd) = shindex; elf_tdata (abfd)->symtab_hdr = *hdr; elf_elfsections (abfd)[shindex] = &elf_tdata (abfd)->symtab_hdr; abfd->flags |= HAS_SYMS; return true; case SHT_DYNSYM: /* A dynamic symbol table */ if (elf_dynsymtab (abfd) == shindex) return true; BFD_ASSERT (hdr->sh_entsize == sizeof (Elf_External_Sym)); BFD_ASSERT (elf_dynsymtab (abfd) == 0); elf_dynsymtab (abfd) = shindex; elf_tdata (abfd)->dynsymtab_hdr = *hdr; elf_elfsections (abfd)[shindex] = &elf_tdata (abfd)->dynsymtab_hdr; abfd->flags |= HAS_SYMS; /* Besides being a symbol table, we also treat this as a regular section, so that objcopy can handle it. */ return _bfd_elf_make_section_from_shdr (abfd, hdr, name); case SHT_STRTAB: /* A string table */ if (hdr->rawdata != NULL) return true; if (ehdr->e_shstrndx == shindex) { elf_tdata (abfd)->shstrtab_hdr = *hdr; elf_elfsections (abfd)[shindex] = &elf_tdata (abfd)->shstrtab_hdr; hdr->rawdata = (PTR) & elf_tdata (abfd)->shstrtab_hdr; return true; } { unsigned int i; for (i = 1; i < ehdr->e_shnum; i++) { Elf_Internal_Shdr *hdr2 = elf_elfsections (abfd)[i]; if (hdr2->sh_link == shindex) { if (! bfd_section_from_shdr (abfd, i)) return false; if (elf_onesymtab (abfd) == i) { elf_tdata (abfd)->strtab_hdr = *hdr; elf_elfsections (abfd)[shindex] = &elf_tdata (abfd)->strtab_hdr; return true; } if (elf_dynsymtab (abfd) == i) { elf_tdata (abfd)->dynstrtab_hdr = *hdr; elf_elfsections (abfd)[shindex] = &elf_tdata (abfd)->dynstrtab_hdr; /* We also treat this as a regular section, so that objcopy can handle it. */ break; } #if 0 /* Not handling other string tables specially right now. */ hdr2 = elf_elfsections (abfd)[i]; /* in case it moved */ /* We have a strtab for some random other section. */ newsect = (asection *) hdr2->rawdata; if (!newsect) break; hdr->rawdata = (PTR) newsect; hdr2 = &elf_section_data (newsect)->str_hdr; *hdr2 = *hdr; elf_elfsections (abfd)[shindex] = hdr2; #endif } } } return _bfd_elf_make_section_from_shdr (abfd, hdr, name); case SHT_REL: case SHT_RELA: /* *These* do a lot of work -- but build no sections! */ { asection *target_sect; Elf_Internal_Shdr *hdr2; int use_rela_p = get_elf_backend_data (abfd)->use_rela_p; /* Get the symbol table. */ if (! bfd_section_from_shdr (abfd, hdr->sh_link)) return false; /* If this reloc section does not use the main symbol table we don't treat it as a reloc section. BFD can't adequately represent such a section, so at least for now, we don't try. We just present it as a normal section. */ if (hdr->sh_link != elf_onesymtab (abfd)) return _bfd_elf_make_section_from_shdr (abfd, hdr, name); /* Don't allow REL relocations on a machine that uses RELA and vice versa. */ /* @@ Actually, the generic ABI does suggest that both might be used in one file. But the four ABI Processor Supplements I have access to right now all specify that only one is used on each of those architectures. It's conceivable that, e.g., a bunch of absolute 32-bit relocs might be more compact in REL form even on a RELA machine... */ BFD_ASSERT (use_rela_p ? (hdr->sh_type == SHT_RELA && hdr->sh_entsize == sizeof (Elf_External_Rela)) : (hdr->sh_type == SHT_REL && hdr->sh_entsize == sizeof (Elf_External_Rel))); if (! bfd_section_from_shdr (abfd, hdr->sh_info)) return false; target_sect = section_from_elf_index (abfd, hdr->sh_info); if (target_sect == NULL || elf_section_data (target_sect) == NULL) return false; hdr2 = &elf_section_data (target_sect)->rel_hdr; *hdr2 = *hdr; elf_elfsections (abfd)[shindex] = hdr2; target_sect->reloc_count = hdr->sh_size / hdr->sh_entsize; target_sect->flags |= SEC_RELOC; target_sect->relocation = NULL; target_sect->rel_filepos = hdr->sh_offset; abfd->flags |= HAS_RELOC; return true; } break; case SHT_NOTE: #if 0 fprintf (stderr, "Note Sections not yet supported.\n"); BFD_FAIL (); #endif break; case SHT_SHLIB: #if 0 fprintf (stderr, "SHLIB Sections not supported (and non conforming.)\n"); #endif return true; default: /* Check for any processor-specific section types. */ { struct elf_backend_data *bed = get_elf_backend_data (abfd); if (bed->elf_backend_section_from_shdr) (*bed->elf_backend_section_from_shdr) (abfd, hdr, name); } break; } return true; } boolean elf_new_section_hook (abfd, sec) bfd *abfd ; asection *sec; { struct bfd_elf_section_data *sdata; sdata = (struct bfd_elf_section_data *) bfd_alloc (abfd, sizeof (*sdata)); if (!sdata) { bfd_set_error (bfd_error_no_memory); return false; } sec->used_by_bfd = (PTR) sdata; memset (sdata, 0, sizeof (*sdata)); return true; } /* Create a new bfd section from an ELF program header. Since program segments have no names, we generate a synthetic name of the form segment, where NUM is generally the index in the program header table. For segments that are split (see below) we generate the names segmenta and segmentb. Note that some program segments may have a file size that is different than (less than) the memory size. All this means is that at execution the system must allocate the amount of memory specified by the memory size, but only initialize it with the first "file size" bytes read from the file. This would occur for example, with program segments consisting of combined data+bss. To handle the above situation, this routine generates TWO bfd sections for the single program segment. The first has the length specified by the file size of the segment, and the second has the length specified by the difference between the two sizes. In effect, the segment is split into it's initialized and uninitialized parts. */ static boolean bfd_section_from_phdr (abfd, hdr, index) bfd *abfd; Elf_Internal_Phdr *hdr; int index; { asection *newsect; char *name; char namebuf[64]; int split; split = ((hdr->p_memsz > 0) && (hdr->p_filesz > 0) && (hdr->p_memsz > hdr->p_filesz)); sprintf (namebuf, split ? "segment%da" : "segment%d", index); name = bfd_alloc (abfd, strlen (namebuf) + 1); if (!name) { bfd_set_error (bfd_error_no_memory); return false; } strcpy (name, namebuf); newsect = bfd_make_section (abfd, name); if (newsect == NULL) return false; newsect->vma = hdr->p_vaddr; newsect->_raw_size = hdr->p_filesz; newsect->filepos = hdr->p_offset; newsect->flags |= SEC_HAS_CONTENTS; if (hdr->p_type == PT_LOAD) { newsect->flags |= SEC_ALLOC; newsect->flags |= SEC_LOAD; if (hdr->p_flags & PF_X) { /* FIXME: all we known is that it has execute PERMISSION, may be data. */ newsect->flags |= SEC_CODE; } } if (!(hdr->p_flags & PF_W)) { newsect->flags |= SEC_READONLY; } if (split) { sprintf (namebuf, "segment%db", index); name = bfd_alloc (abfd, strlen (namebuf) + 1); if (!name) { bfd_set_error (bfd_error_no_memory); return false; } strcpy (name, namebuf); newsect = bfd_make_section (abfd, name); if (newsect == NULL) return false; newsect->vma = hdr->p_vaddr + hdr->p_filesz; newsect->_raw_size = hdr->p_memsz - hdr->p_filesz; if (hdr->p_type == PT_LOAD) { newsect->flags |= SEC_ALLOC; if (hdr->p_flags & PF_X) newsect->flags |= SEC_CODE; } if (!(hdr->p_flags & PF_W)) newsect->flags |= SEC_READONLY; } return true; } /* Begin processing a given object. First we validate the file by reading in the ELF header and checking the magic number. */ static INLINE boolean elf_file_p (x_ehdrp) Elf_External_Ehdr *x_ehdrp; { return ((x_ehdrp->e_ident[EI_MAG0] == ELFMAG0) && (x_ehdrp->e_ident[EI_MAG1] == ELFMAG1) && (x_ehdrp->e_ident[EI_MAG2] == ELFMAG2) && (x_ehdrp->e_ident[EI_MAG3] == ELFMAG3)); } /* Check to see if the file associated with ABFD matches the target vector that ABFD points to. Note that we may be called several times with the same ABFD, but different target vectors, most of which will not match. We have to avoid leaving any side effects in ABFD, or any data it points to (like tdata), if the file does not match the target vector. */ const bfd_target * elf_object_p (abfd) bfd *abfd; { Elf_External_Ehdr x_ehdr; /* Elf file header, external form */ Elf_Internal_Ehdr *i_ehdrp; /* Elf file header, internal form */ Elf_External_Shdr x_shdr; /* Section header table entry, external form */ Elf_Internal_Shdr *i_shdrp = NULL; /* Section header table, internal form */ unsigned int shindex; char *shstrtab; /* Internal copy of section header stringtab */ struct elf_backend_data *ebd; struct elf_obj_tdata *preserved_tdata = elf_tdata (abfd); struct elf_obj_tdata *new_tdata = NULL; /* Read in the ELF header in external format. */ if (bfd_read ((PTR) & x_ehdr, sizeof (x_ehdr), 1, abfd) != sizeof (x_ehdr)) { if (bfd_get_error () != bfd_error_system_call) goto got_wrong_format_error; else goto got_no_match; } /* Now check to see if we have a valid ELF file, and one that BFD can make use of. The magic number must match, the address size ('class') and byte-swapping must match our XVEC entry, and it must have a section header table (FIXME: See comments re sections at top of this file). */ if ((elf_file_p (&x_ehdr) == false) || (x_ehdr.e_ident[EI_VERSION] != EV_CURRENT) || (x_ehdr.e_ident[EI_CLASS] != ELFCLASS)) goto got_wrong_format_error; /* Check that file's byte order matches xvec's */ switch (x_ehdr.e_ident[EI_DATA]) { case ELFDATA2MSB: /* Big-endian */ if (!abfd->xvec->header_byteorder_big_p) goto got_wrong_format_error; break; case ELFDATA2LSB: /* Little-endian */ if (abfd->xvec->header_byteorder_big_p) goto got_wrong_format_error; break; case ELFDATANONE: /* No data encoding specified */ default: /* Unknown data encoding specified */ goto got_wrong_format_error; } /* Allocate an instance of the elf_obj_tdata structure and hook it up to the tdata pointer in the bfd. */ new_tdata = ((struct elf_obj_tdata *) bfd_zalloc (abfd, sizeof (struct elf_obj_tdata))); if (new_tdata == NULL) goto got_no_memory_error; elf_tdata (abfd) = new_tdata; /* Now that we know the byte order, swap in the rest of the header */ i_ehdrp = elf_elfheader (abfd); elf_swap_ehdr_in (abfd, &x_ehdr, i_ehdrp); #if DEBUG & 1 elf_debug_file (i_ehdrp); #endif /* If there is no section header table, we're hosed. */ if (i_ehdrp->e_shoff == 0) goto got_wrong_format_error; /* As a simple sanity check, verify that the what BFD thinks is the size of each section header table entry actually matches the size recorded in the file. */ if (i_ehdrp->e_shentsize != sizeof (x_shdr)) goto got_wrong_format_error; ebd = get_elf_backend_data (abfd); /* Check that the ELF e_machine field matches what this particular BFD format expects. */ if (ebd->elf_machine_code != i_ehdrp->e_machine) { const bfd_target * const *target_ptr; if (ebd->elf_machine_code != EM_NONE) goto got_wrong_format_error; /* This is the generic ELF target. Let it match any ELF target for which we do not have a specific backend. */ for (target_ptr = bfd_target_vector; *target_ptr != NULL; target_ptr++) { struct elf_backend_data *back; if ((*target_ptr)->flavour != bfd_target_elf_flavour) continue; back = (struct elf_backend_data *) (*target_ptr)->backend_data; if (back->elf_machine_code == i_ehdrp->e_machine) { /* target_ptr is an ELF backend which matches this object file, so reject the generic ELF target. */ goto got_wrong_format_error; } } } if (i_ehdrp->e_type == ET_EXEC) abfd->flags |= EXEC_P; else if (i_ehdrp->e_type == ET_DYN) abfd->flags |= DYNAMIC; if (i_ehdrp->e_phnum > 0) abfd->flags |= D_PAGED; if (! bfd_default_set_arch_mach (abfd, ebd->arch, 0)) goto got_no_match; /* Remember the entry point specified in the ELF file header. */ bfd_get_start_address (abfd) = i_ehdrp->e_entry; /* Allocate space for a copy of the section header table in internal form, seek to the section header table in the file, read it in, and convert it to internal form. */ i_shdrp = ((Elf_Internal_Shdr *) bfd_alloc (abfd, sizeof (*i_shdrp) * i_ehdrp->e_shnum)); elf_elfsections (abfd) = ((Elf_Internal_Shdr **) bfd_alloc (abfd, sizeof (i_shdrp) * i_ehdrp->e_shnum)); if (!i_shdrp || !elf_elfsections (abfd)) goto got_no_memory_error; if (bfd_seek (abfd, i_ehdrp->e_shoff, SEEK_SET) != 0) goto got_no_match; for (shindex = 0; shindex < i_ehdrp->e_shnum; shindex++) { if (bfd_read ((PTR) & x_shdr, sizeof x_shdr, 1, abfd) != sizeof (x_shdr)) goto got_no_match; elf_swap_shdr_in (abfd, &x_shdr, i_shdrp + shindex); elf_elfsections (abfd)[shindex] = i_shdrp + shindex; } if (i_ehdrp->e_shstrndx) { if (! bfd_section_from_shdr (abfd, i_ehdrp->e_shstrndx)) goto got_no_match; } /* Read in the string table containing the names of the sections. We will need the base pointer to this table later. */ /* We read this inline now, so that we don't have to go through bfd_section_from_shdr with it (since this particular strtab is used to find all of the ELF section names.) */ shstrtab = elf_get_str_section (abfd, i_ehdrp->e_shstrndx); if (!shstrtab) goto got_no_match; /* Once all of the section headers have been read and converted, we can start processing them. Note that the first section header is a dummy placeholder entry, so we ignore it. */ for (shindex = 1; shindex < i_ehdrp->e_shnum; shindex++) { if (! bfd_section_from_shdr (abfd, shindex)) goto got_no_match; } /* Let the backend double check the format and override global information. */ if (ebd->elf_backend_object_p) { if ((*ebd->elf_backend_object_p) (abfd) == false) goto got_wrong_format_error; } return (abfd->xvec); got_wrong_format_error: bfd_set_error (bfd_error_wrong_format); goto got_no_match; got_no_memory_error: bfd_set_error (bfd_error_no_memory); goto got_no_match; got_no_match: if (new_tdata != NULL && new_tdata->elf_sect_ptr != NULL) bfd_release (abfd, new_tdata->elf_sect_ptr); if (i_shdrp != NULL) bfd_release (abfd, i_shdrp); if (new_tdata != NULL) bfd_release (abfd, new_tdata); elf_tdata (abfd) = preserved_tdata; return (NULL); } /* ELF .o/exec file writing */ /* Takes a bfd and a symbol, returns a pointer to the elf specific area of the symbol if there is one. */ static INLINE elf_symbol_type * elf_symbol_from (ignore_abfd, symbol) bfd *ignore_abfd; asymbol *symbol; { if (symbol->the_bfd->xvec->flavour != bfd_target_elf_flavour) return 0; if (symbol->the_bfd->tdata.elf_obj_data == (struct elf_obj_tdata *) NULL) return 0; return (elf_symbol_type *) symbol; } void write_relocs (abfd, sec, xxx) bfd *abfd; asection *sec; PTR xxx; { Elf_Internal_Shdr *rela_hdr; Elf_External_Rela *outbound_relocas; Elf_External_Rel *outbound_relocs; int idx; int use_rela_p = get_elf_backend_data (abfd)->use_rela_p; asymbol *last_sym = 0; int last_sym_idx = 9999999; /* should always be written before use */ if ((sec->flags & SEC_RELOC) == 0) return; /* The linker backend writes the relocs out itself, and sets the reloc_count field to zero to inhibit writing them here. Also, sometimes the SEC_RELOC flag gets set even when there aren't any relocs. */ if (sec->reloc_count == 0) return; rela_hdr = &elf_section_data (sec)->rel_hdr; rela_hdr->sh_size = rela_hdr->sh_entsize * sec->reloc_count; rela_hdr->contents = (void *) bfd_alloc (abfd, rela_hdr->sh_size); if (!rela_hdr->contents) { bfd_set_error (bfd_error_no_memory); abort (); /* FIXME */ } /* orelocation has the data, reloc_count has the count... */ if (use_rela_p) { outbound_relocas = (Elf_External_Rela *) rela_hdr->contents; for (idx = 0; idx < sec->reloc_count; idx++) { Elf_Internal_Rela dst_rela; Elf_External_Rela *src_rela; arelent *ptr; asymbol *sym; int n; ptr = sec->orelocation[idx]; src_rela = outbound_relocas + idx; if (!(abfd->flags & EXEC_P)) dst_rela.r_offset = ptr->address - sec->vma; else dst_rela.r_offset = ptr->address; sym = *ptr->sym_ptr_ptr; if (sym == last_sym) n = last_sym_idx; else { last_sym = sym; last_sym_idx = n = elf_symbol_from_bfd_symbol (abfd, &sym); } dst_rela.r_info = ELF_R_INFO (n, ptr->howto->type); dst_rela.r_addend = ptr->addend; elf_swap_reloca_out (abfd, &dst_rela, src_rela); } } else /* REL relocations */ { outbound_relocs = (Elf_External_Rel *) rela_hdr->contents; for (idx = 0; idx < sec->reloc_count; idx++) { Elf_Internal_Rel dst_rel; Elf_External_Rel *src_rel; arelent *ptr; int n; asymbol *sym; ptr = sec->orelocation[idx]; sym = *ptr->sym_ptr_ptr; src_rel = outbound_relocs + idx; if (!(abfd->flags & EXEC_P)) dst_rel.r_offset = ptr->address - sec->vma; else dst_rel.r_offset = ptr->address; if (sym == last_sym) n = last_sym_idx; else { last_sym = sym; last_sym_idx = n = elf_symbol_from_bfd_symbol (abfd, &sym); } dst_rel.r_info = ELF_R_INFO (n, ptr->howto->type); elf_swap_reloc_out (abfd, &dst_rel, src_rel); } } } /* Set up an ELF internal section header for a section. */ /*ARGSUSED*/ static void elf_fake_sections (abfd, asect, ignore) bfd *abfd; asection *asect; PTR ignore; { Elf_Internal_Shdr *this_hdr; this_hdr = &elf_section_data (asect)->this_hdr; this_hdr->sh_name = bfd_add_to_strtab (abfd, elf_shstrtab (abfd), asect->name); if (this_hdr->sh_name == (unsigned long) -1) abort (); /* FIXME */ this_hdr->sh_flags = 0; if ((asect->flags & SEC_ALLOC) != 0) this_hdr->sh_addr = asect->vma; else this_hdr->sh_addr = 0; this_hdr->sh_offset = 0; this_hdr->sh_size = asect->_raw_size; this_hdr->sh_link = 0; this_hdr->sh_info = 0; this_hdr->sh_addralign = 1 << asect->alignment_power; this_hdr->sh_entsize = 0; this_hdr->rawdata = (PTR) asect; this_hdr->contents = NULL; this_hdr->size = 0; /* FIXME: This should not be based on section names. */ if (strcmp (asect->name, ".dynstr") == 0) this_hdr->sh_type = SHT_STRTAB; else if (strcmp (asect->name, ".hash") == 0) { this_hdr->sh_type = SHT_HASH; this_hdr->sh_entsize = ARCH_SIZE / 8; } else if (strcmp (asect->name, ".dynsym") == 0) { this_hdr->sh_type = SHT_DYNSYM; this_hdr->sh_entsize = sizeof (Elf_External_Sym); } else if (strcmp (asect->name, ".dynamic") == 0) { this_hdr->sh_type = SHT_DYNAMIC; this_hdr->sh_entsize = sizeof (Elf_External_Dyn); } else if (strncmp (asect->name, ".rel.", 5) == 0) { this_hdr->sh_type = SHT_REL; this_hdr->sh_entsize = sizeof (Elf_External_Rel); } else if (strncmp (asect->name, ".rela.", 6) == 0) { this_hdr->sh_type = SHT_RELA; this_hdr->sh_entsize = sizeof (Elf_External_Rela); } else if (strcmp (asect->name, ".note") == 0) this_hdr->sh_type = SHT_NOTE; else if (strncmp (asect->name, ".stab", 5) == 0 && strcmp (asect->name + strlen (asect->name) - 3, "str") == 0) this_hdr->sh_type = SHT_STRTAB; else if ((asect->flags & SEC_ALLOC) != 0 && (asect->flags & SEC_LOAD) != 0) this_hdr->sh_type = SHT_PROGBITS; else if ((asect->flags & SEC_ALLOC) != 0 && ((asect->flags & SEC_LOAD) == 0)) { BFD_ASSERT (strcmp (asect->name, ".bss") == 0 || strcmp (asect->name, ".sbss") == 0); this_hdr->sh_type = SHT_NOBITS; } else { /* Who knows? */ this_hdr->sh_type = SHT_PROGBITS; } if ((asect->flags & SEC_ALLOC) != 0) this_hdr->sh_flags |= SHF_ALLOC; if ((asect->flags & SEC_READONLY) == 0) this_hdr->sh_flags |= SHF_WRITE; if ((asect->flags & SEC_CODE) != 0) this_hdr->sh_flags |= SHF_EXECINSTR; /* Check for processor-specific section types. */ { struct elf_backend_data *bed = get_elf_backend_data (abfd); if (bed->elf_backend_fake_sections) (*bed->elf_backend_fake_sections) (abfd, this_hdr, asect); } /* If the section has relocs, set up a section header for the SHT_REL[A] section. */ if ((asect->flags & SEC_RELOC) != 0) { Elf_Internal_Shdr *rela_hdr; int use_rela_p = get_elf_backend_data (abfd)->use_rela_p; rela_hdr = &elf_section_data (asect)->rel_hdr; rela_hdr->sh_name = bfd_add_2_to_strtab (abfd, elf_shstrtab (abfd), use_rela_p ? ".rela" : ".rel", asect->name); rela_hdr->sh_type = use_rela_p ? SHT_RELA : SHT_REL; rela_hdr->sh_entsize = (use_rela_p ? sizeof (Elf_External_Rela) : sizeof (Elf_External_Rel)); rela_hdr->sh_addralign = FILE_ALIGN; rela_hdr->sh_flags = 0; rela_hdr->sh_addr = 0; rela_hdr->sh_size = 0; rela_hdr->sh_offset = 0; rela_hdr->size = 0; } } /* Assign all ELF section numbers. The dummy first section is handled here too. The link/info pointers for the standard section types are filled in here too, while we're at it. */ static boolean assign_section_numbers (abfd) bfd *abfd; { struct elf_obj_tdata *t = elf_tdata (abfd); asection *sec; unsigned int section_number; Elf_Internal_Shdr **i_shdrp; section_number = 1; for (sec = abfd->sections; sec; sec = sec->next) { struct bfd_elf_section_data *d = elf_section_data (sec); d->this_idx = section_number++; if ((sec->flags & SEC_RELOC) == 0) d->rel_idx = 0; else d->rel_idx = section_number++; } t->shstrtab_section = section_number++; elf_elfheader (abfd)->e_shstrndx = t->shstrtab_section; t->shstrtab_hdr.sh_size = elf_shstrtab (abfd)->length; t->shstrtab_hdr.contents = (PTR) elf_shstrtab (abfd)->tab; if (abfd->symcount > 0) { t->symtab_section = section_number++; t->strtab_section = section_number++; } elf_elfheader (abfd)->e_shnum = section_number; /* Set up the list of section header pointers, in agreement with the indices. */ i_shdrp = ((Elf_Internal_Shdr **) bfd_alloc (abfd, section_number * sizeof (Elf_Internal_Shdr *))); if (i_shdrp == NULL) { bfd_set_error (bfd_error_no_memory); return false; } i_shdrp[0] = ((Elf_Internal_Shdr *) bfd_alloc (abfd, sizeof (Elf_Internal_Shdr))); if (i_shdrp[0] == NULL) { bfd_release (abfd, i_shdrp); bfd_set_error (bfd_error_no_memory); return false; } memset (i_shdrp[0], 0, sizeof (Elf_Internal_Shdr)); elf_elfsections (abfd) = i_shdrp; i_shdrp[t->shstrtab_section] = &t->shstrtab_hdr; if (abfd->symcount > 0) { i_shdrp[t->symtab_section] = &t->symtab_hdr; i_shdrp[t->strtab_section] = &t->strtab_hdr; t->symtab_hdr.sh_link = t->strtab_section; } for (sec = abfd->sections; sec; sec = sec->next) { struct bfd_elf_section_data *d = elf_section_data (sec); asection *s; const char *name; i_shdrp[d->this_idx] = &d->this_hdr; if (d->rel_idx != 0) i_shdrp[d->rel_idx] = &d->rel_hdr; /* Fill in the sh_link and sh_info fields while we're at it. */ /* sh_link of a reloc section is the section index of the symbol table. sh_info is the section index of the section to which the relocation entries apply. */ if (d->rel_idx != 0) { d->rel_hdr.sh_link = t->symtab_section; d->rel_hdr.sh_info = d->this_idx; } switch (d->this_hdr.sh_type) { case SHT_REL: case SHT_RELA: /* A reloc section which we are treating as a normal BFD section. sh_link is the section index of the symbol table. sh_info is the section index of the section to which the relocation entries apply. We assume that an allocated reloc section uses the dynamic symbol table. FIXME: How can we be sure? */ s = bfd_get_section_by_name (abfd, ".dynsym"); if (s != NULL) d->this_hdr.sh_link = elf_section_data (s)->this_idx; /* We look up the section the relocs apply to by name. */ name = sec->name; if (d->this_hdr.sh_type == SHT_REL) name += 4; else name += 5; s = bfd_get_section_by_name (abfd, name); if (s != NULL) d->this_hdr.sh_info = elf_section_data (s)->this_idx; break; case SHT_STRTAB: /* We assume that a section named .stab*str is a stabs string section. We look for a section with the same name but without the trailing ``str'', and set its sh_link field to point to this section. */ if (strncmp (sec->name, ".stab", sizeof ".stab" - 1) == 0 && strcmp (sec->name + strlen (sec->name) - 3, "str") == 0) { size_t len; char *alc; len = strlen (sec->name); alc = (char *) malloc (len - 2); if (alc == NULL) { bfd_set_error (bfd_error_no_memory); return false; } strncpy (alc, sec->name, len - 3); alc[len - 3] = '\0'; s = bfd_get_section_by_name (abfd, alc); free (alc); if (s != NULL) { elf_section_data (s)->this_hdr.sh_link = d->this_idx; /* This is a .stab section. */ elf_section_data (s)->this_hdr.sh_entsize = 4 + 2 * (ARCH_SIZE / 8); } } break; case SHT_DYNAMIC: case SHT_DYNSYM: /* sh_link is the section header index of the string table used for the dynamic entries or symbol table. */ s = bfd_get_section_by_name (abfd, ".dynstr"); if (s != NULL) d->this_hdr.sh_link = elf_section_data (s)->this_idx; break; case SHT_HASH: /* sh_link is the section header index of the symbol table this hash table is for. */ s = bfd_get_section_by_name (abfd, ".dynsym"); if (s != NULL) d->this_hdr.sh_link = elf_section_data (s)->this_idx; break; } } return true; } /* Map symbol from it's internal number to the external number, moving all local symbols to be at the head of the list. */ static INLINE int sym_is_global (abfd, sym) bfd *abfd; asymbol *sym; { /* If the backend has a special mapping, use it. */ if (get_elf_backend_data (abfd)->elf_backend_sym_is_global) return ((*get_elf_backend_data (abfd)->elf_backend_sym_is_global) (abfd, sym)); if (sym->flags & (BSF_GLOBAL | BSF_WEAK)) { if (sym->flags & BSF_LOCAL) abort (); return 1; } if (sym->section == 0) { /* Is this valid? */ abort (); return 1; } if (bfd_is_und_section (sym->section)) return 1; if (bfd_is_com_section (sym->section)) return 1; if (sym->flags & (BSF_LOCAL | BSF_SECTION_SYM | BSF_FILE)) return 0; return 0; } static boolean elf_map_symbols (abfd) bfd *abfd; { int symcount = bfd_get_symcount (abfd); asymbol **syms = bfd_get_outsymbols (abfd); asymbol **sect_syms; int num_locals = 0; int num_globals = 0; int num_locals2 = 0; int num_globals2 = 0; int max_index = 0; int num_sections = 0; Elf_Sym_Extra *sym_extra; int idx; asection *asect; #ifdef DEBUG fprintf (stderr, "elf_map_symbols\n"); fflush (stderr); #endif /* Add local symbols for each section for which there are relocs. FIXME: How can we tell which sections have relocs at this point? Will reloc_count always be accurate? Actually, I think most ELF targets create section symbols for all sections anyhow. */ for (asect = abfd->sections; asect; asect = asect->next) { if (max_index < asect->index) max_index = asect->index; } max_index++; elf_num_section_syms (abfd) = max_index; sect_syms = (asymbol **) bfd_zalloc (abfd, max_index * sizeof (asymbol *)); elf_section_syms (abfd) = sect_syms; if (sect_syms == 0) { bfd_set_error (bfd_error_no_memory); return false; } for (asect = abfd->sections; asect; asect = asect->next) { asymbol *sym = bfd_make_empty_symbol (abfd); if (!sym) { bfd_set_error (bfd_error_no_memory); return false; } sym->the_bfd = abfd; sym->name = asect->name; sym->value = asect->vma; sym->flags = BSF_SECTION_SYM; sym->section = asect; sect_syms[asect->index] = sym; num_sections++; #ifdef DEBUG fprintf (stderr, "creating section symbol, name = %s, value = 0x%.8lx, index = %d, section = 0x%.8lx\n", asect->name, (long) asect->vma, asect->index, (long) asect); #endif } if (num_sections) { if (syms) syms = (asymbol **) bfd_realloc (abfd, syms, ((symcount + num_sections + 1) * sizeof (asymbol *))); else syms = (asymbol **) bfd_alloc (abfd, (num_sections + 1) * sizeof (asymbol *)); if (!syms) { bfd_set_error (bfd_error_no_memory); return false; } for (asect = abfd->sections; asect; asect = asect->next) { if (sect_syms[asect->index]) syms[symcount++] = sect_syms[asect->index]; } syms[symcount] = (asymbol *) 0; bfd_set_symtab (abfd, syms, symcount); } elf_sym_extra (abfd) = sym_extra = (Elf_Sym_Extra *) bfd_alloc (abfd, symcount * sizeof (Elf_Sym_Extra)); if (!sym_extra) { bfd_set_error (bfd_error_no_memory); return false; } /* Identify and classify all of the symbols. */ for (idx = 0; idx < symcount; idx++) { if (!sym_is_global (abfd, syms[idx])) num_locals++; else num_globals++; } /* Now provide mapping information. Add +1 for skipping over the dummy symbol. */ for (idx = 0; idx < symcount; idx++) { syms[idx]->udata = (PTR) & sym_extra[idx]; if (!sym_is_global (abfd, syms[idx])) sym_extra[idx].elf_sym_num = 1 + num_locals2++; else sym_extra[idx].elf_sym_num = 1 + num_locals + num_globals2++; } elf_num_locals (abfd) = num_locals; elf_num_globals (abfd) = num_globals; return true; } /* Compute the file positions we are going to put the sections at, and otherwise prepare to begin writing out the ELF file. If LINK_INFO is not NULL, this is being called by the ELF backend linker. */ static boolean elf_compute_section_file_positions (abfd, link_info) bfd *abfd; struct bfd_link_info *link_info; { struct elf_backend_data *bed = get_elf_backend_data (abfd); Elf_Internal_Shdr *shstrtab_hdr; if (abfd->output_has_begun) return true; /* Do any elf backend specific processing first. */ if (bed->elf_backend_begin_write_processing) (*bed->elf_backend_begin_write_processing) (abfd, link_info); if (! prep_headers (abfd)) return false; bfd_map_over_sections (abfd, elf_fake_sections, 0); if (!assign_section_numbers (abfd)) return false; /* The backend linker builds symbol table information itself. */ if (link_info == NULL) { if (! swap_out_syms (abfd)) return false; } shstrtab_hdr = &elf_tdata (abfd)->shstrtab_hdr; /* sh_name was set in prep_headers. */ shstrtab_hdr->sh_type = SHT_STRTAB; shstrtab_hdr->sh_flags = 0; shstrtab_hdr->sh_addr = 0; shstrtab_hdr->sh_size = elf_shstrtab (abfd)->length; shstrtab_hdr->sh_entsize = 0; shstrtab_hdr->sh_link = 0; shstrtab_hdr->sh_info = 0; /* sh_offset is set in assign_file_positions_for_symtabs_and_strtabs. */ shstrtab_hdr->sh_addralign = 1; shstrtab_hdr->contents = (PTR) elf_shstrtab (abfd)->tab; if (!assign_file_positions_except_relocs (abfd, link_info == NULL ? true : false)) return false; abfd->output_has_begun = true; return true; } /* Align to the maximum file alignment that could be required for any ELF data structure. */ static INLINE file_ptr align_file_position (off) file_ptr off; { return (off + FILE_ALIGN - 1) & ~(FILE_ALIGN - 1); } /* Assign a file position to a section, optionally aligning to the required section alignment. */ static INLINE file_ptr assign_file_position_for_section (i_shdrp, offset, align) Elf_Internal_Shdr *i_shdrp; file_ptr offset; boolean align; { if (align) { unsigned int al; al = i_shdrp->sh_addralign; if (al > 1) offset = BFD_ALIGN (offset, al); } i_shdrp->sh_offset = offset; if (i_shdrp->rawdata != NULL) ((asection *) i_shdrp->rawdata)->filepos = offset; if (i_shdrp->sh_type != SHT_NOBITS) offset += i_shdrp->sh_size; return offset; } /* Get the size of the program header. This is called by the linker before any of the section VMA's are set, so it can't calculate the correct value for a strange memory layout. */ static bfd_size_type get_program_header_size (abfd) bfd *abfd; { size_t segs; asection *s; /* Assume we will need exactly two PT_LOAD segments: one for text and one for data. */ segs = 2; s = bfd_get_section_by_name (abfd, ".interp"); if (s != NULL && (s->flags & SEC_LOAD) != 0) { /* If we have a loadable interpreter section, we need a PT_INTERP segment. In this case, assume we also need a PT_PHDR segment, although that may not be true for all targets. */ segs += 2; } if (bfd_get_section_by_name (abfd, ".dynamic") != NULL) { /* We need a PT_DYNAMIC segment. */ ++segs; } return segs * sizeof (Elf_External_Phdr); } /* Create the program header. OFF is the file offset where the program header should be written. FIRST is the first loadable ELF section. PHDR_SIZE is the size of the program header as returned by get_program_header_size. */ static file_ptr map_program_segments (abfd, off, first, phdr_size) bfd *abfd; file_ptr off; Elf_Internal_Shdr *first; bfd_size_type phdr_size; { Elf_Internal_Phdr phdrs[10]; unsigned int phdr_count; Elf_Internal_Phdr *phdr; int phdr_size_adjust; unsigned int i; Elf_Internal_Shdr **hdrpp; asection *sinterp, *sdyn; unsigned int last_type; Elf_Internal_Ehdr *i_ehdrp; BFD_ASSERT ((abfd->flags & EXEC_P) != 0); BFD_ASSERT (phdr_size / sizeof (Elf_Internal_Phdr) <= sizeof phdrs / sizeof (phdrs[0])); phdr_count = 0; phdr = phdrs; phdr_size_adjust = 0; /* If we have a loadable .interp section, we must create a PT_INTERP segment which must precede all PT_LOAD segments. We assume that we must also create a PT_PHDR segment, although that may not be true for all targets. */ sinterp = bfd_get_section_by_name (abfd, ".interp"); if (sinterp != NULL && (sinterp->flags & SEC_LOAD) != 0) { BFD_ASSERT (first != NULL); phdr->p_type = PT_PHDR; phdr->p_offset = off; /* Account for any adjustment made because of the alignment of the first loadable section. */ phdr_size_adjust = (first->sh_offset - phdr_size) - off; BFD_ASSERT (phdr_size_adjust >= 0 && phdr_size_adjust < 128); /* The program header precedes all loadable sections. This lets us compute its loadable address. This depends on the linker script. */ phdr->p_vaddr = first->sh_addr - (phdr_size + phdr_size_adjust); phdr->p_paddr = 0; phdr->p_filesz = phdr_size; phdr->p_memsz = phdr_size; /* FIXME: UnixWare and Solaris set PF_X, Irix 5 does not. */ phdr->p_flags = PF_R | PF_X; phdr->p_align = FILE_ALIGN; BFD_ASSERT ((phdr->p_vaddr - phdr->p_offset) % FILE_ALIGN == 0); /* Include the ELF header in the first loadable segment. */ phdr_size_adjust += off; ++phdr_count; ++phdr; phdr->p_type = PT_INTERP; phdr->p_offset = sinterp->filepos; phdr->p_vaddr = sinterp->vma; phdr->p_paddr = 0; phdr->p_filesz = sinterp->_raw_size; phdr->p_memsz = sinterp->_raw_size; phdr->p_flags = PF_R; phdr->p_align = 1 << bfd_get_section_alignment (abfd, sinterp); ++phdr_count; ++phdr; } /* Look through the sections to see how they will be divided into program segments. The sections must be arranged in order by sh_addr for this to work correctly. */ phdr->p_type = PT_NULL; last_type = SHT_PROGBITS; for (i = 1, hdrpp = elf_elfsections (abfd) + 1; i < elf_elfheader (abfd)->e_shnum; i++, hdrpp++) { Elf_Internal_Shdr *hdr; hdr = *hdrpp; /* Ignore any section which will not be part of the process image. */ if ((hdr->sh_flags & SHF_ALLOC) == 0) continue; /* If this section fits in the segment we are constructing, add it in. */ if (phdr->p_type != PT_NULL && (hdr->sh_offset - (phdr->p_offset + phdr->p_memsz) == hdr->sh_addr - (phdr->p_vaddr + phdr->p_memsz)) && (last_type != SHT_NOBITS || hdr->sh_type == SHT_NOBITS)) { bfd_size_type adjust; adjust = hdr->sh_addr - (phdr->p_vaddr + phdr->p_memsz); phdr->p_memsz += hdr->sh_size + adjust; if (hdr->sh_type != SHT_NOBITS) phdr->p_filesz += hdr->sh_size + adjust; if ((hdr->sh_flags & SHF_WRITE) != 0) phdr->p_flags |= PF_W; if ((hdr->sh_flags & SHF_EXECINSTR) != 0) phdr->p_flags |= PF_X; last_type = hdr->sh_type; continue; } /* If we have a segment, move to the next one. */ if (phdr->p_type != PT_NULL) { ++phdr; ++phdr_count; } /* Start a new segment. */ phdr->p_type = PT_LOAD; phdr->p_offset = hdr->sh_offset; phdr->p_vaddr = hdr->sh_addr; phdr->p_paddr = 0; if (hdr->sh_type == SHT_NOBITS) phdr->p_filesz = 0; else phdr->p_filesz = hdr->sh_size; phdr->p_memsz = hdr->sh_size; phdr->p_flags = PF_R; if ((hdr->sh_flags & SHF_WRITE) != 0) phdr->p_flags |= PF_W; if ((hdr->sh_flags & SHF_EXECINSTR) != 0) phdr->p_flags |= PF_X; phdr->p_align = get_elf_backend_data (abfd)->maxpagesize; if (hdr == first && sinterp != NULL && (sinterp->flags & SEC_LOAD) != 0) { phdr->p_offset -= phdr_size + phdr_size_adjust; phdr->p_vaddr -= phdr_size + phdr_size_adjust; phdr->p_filesz += phdr_size + phdr_size_adjust; phdr->p_memsz += phdr_size + phdr_size_adjust; } last_type = hdr->sh_type; } if (phdr->p_type != PT_NULL) { ++phdr; ++phdr_count; } /* If we have a .dynamic section, create a PT_DYNAMIC segment. */ sdyn = bfd_get_section_by_name (abfd, ".dynamic"); if (sdyn != NULL && (sdyn->flags & SEC_LOAD) != 0) { phdr->p_type = PT_DYNAMIC; phdr->p_offset = sdyn->filepos; phdr->p_vaddr = sdyn->vma; phdr->p_paddr = 0; phdr->p_filesz = sdyn->_raw_size; phdr->p_memsz = sdyn->_raw_size; phdr->p_flags = PF_R; if ((sdyn->flags & SEC_READONLY) == 0) phdr->p_flags |= PF_W; if ((sdyn->flags & SEC_CODE) != 0) phdr->p_flags |= PF_X; phdr->p_align = 1 << bfd_get_section_alignment (abfd, sdyn); ++phdr; ++phdr_count; } /* Make sure the return value from get_program_header_size matches what we computed here. */ if (phdr_count != phdr_size / sizeof (Elf_External_Phdr)) abort (); /* Set up program header information. */ i_ehdrp = elf_elfheader (abfd); i_ehdrp->e_phentsize = sizeof (Elf_External_Phdr); i_ehdrp->e_phoff = off; i_ehdrp->e_phnum = phdr_count; /* Save the program headers away. I don't think anybody uses this information right now. */ elf_tdata (abfd)->phdr = ((Elf_Internal_Phdr *) bfd_alloc (abfd, (phdr_count * sizeof (Elf_Internal_Phdr)))); if (elf_tdata (abfd)->phdr == NULL && phdr_count != 0) { bfd_set_error (bfd_error_no_memory); return (file_ptr) -1; } memcpy (elf_tdata (abfd)->phdr, phdrs, phdr_count * sizeof (Elf_Internal_Phdr)); /* Write out the program headers. */ if (bfd_seek (abfd, off, SEEK_SET) != 0) return (file_ptr) -1; for (i = 0, phdr = phdrs; i < phdr_count; i++, phdr++) { Elf_External_Phdr extphdr; elf_swap_phdr_out (abfd, phdr, &extphdr); if (bfd_write (&extphdr, sizeof (Elf_External_Phdr), 1, abfd) != sizeof (Elf_External_Phdr)) return (file_ptr) -1; } return off + phdr_count * sizeof (Elf_External_Phdr); } /* Work out the file positions of all the sections. This is called by elf_compute_section_file_positions. All the section sizes and VMAs must be known before this is called. We do not consider reloc sections at this point, unless they form part of the loadable image. Reloc sections are assigned file positions in assign_file_positions_for_relocs, which is called by write_object_contents and final_link. If DOSYMS is false, we do not assign file positions for the symbol table or the string table. */ static boolean assign_file_positions_except_relocs (abfd, dosyms) bfd *abfd; boolean dosyms; { struct elf_obj_tdata * const tdata = elf_tdata (abfd); Elf_Internal_Ehdr * const i_ehdrp = elf_elfheader (abfd); Elf_Internal_Shdr ** const i_shdrpp = elf_elfsections (abfd); file_ptr off; /* Start after the ELF header. */ off = i_ehdrp->e_ehsize; if ((abfd->flags & EXEC_P) == 0) { Elf_Internal_Shdr **hdrpp; unsigned int i; /* We are not creating an executable, which means that we are not creating a program header, and that the actual order of the sections in the file is unimportant. */ for (i = 1, hdrpp = i_shdrpp + 1; i < i_ehdrp->e_shnum; i++, hdrpp++) { Elf_Internal_Shdr *hdr; hdr = *hdrpp; if (hdr->sh_type == SHT_REL || hdr->sh_type == SHT_RELA) { hdr->sh_offset = -1; continue; } if (! dosyms && (i == tdata->symtab_section || i == tdata->strtab_section)) { hdr->sh_offset = -1; continue; } off = assign_file_position_for_section (hdr, off, true); } } else { file_ptr phdr_off; bfd_size_type phdr_size; bfd_vma maxpagesize; Elf_Internal_Shdr **hdrpp; unsigned int i; Elf_Internal_Shdr *first; file_ptr phdr_map; /* We are creating an executable. We must create a program header. We can't actually create the program header until we have set the file positions for the sections, but we can figure out how big it is going to be. */ off = align_file_position (off); phdr_size = get_program_header_size (abfd); if (phdr_size == (file_ptr) -1) return false; phdr_off = off; off += phdr_size; maxpagesize = get_elf_backend_data (abfd)->maxpagesize; if (maxpagesize == 0) maxpagesize = 1; /* FIXME: We might want to sort the sections on the sh_addr field here. For now, we just assume that the linker will create the sections in an appropriate order. */ /* Assign file positions in two passes. In the first pass, we assign a file position to every section which forms part of the executable image. */ first = NULL; for (i = 1, hdrpp = i_shdrpp + 1; i < i_ehdrp->e_shnum; i++, hdrpp++) { Elf_Internal_Shdr *hdr; hdr = *hdrpp; if ((hdr->sh_flags & SHF_ALLOC) == 0) continue; if (first == NULL) first = hdr; if ((abfd->flags & D_PAGED) != 0) { /* The section VMA must equal the file position modulo the page size. This is required by the program header. */ off += (hdr->sh_addr - off) % maxpagesize; } off = assign_file_position_for_section (hdr, off, false); } /* Assign file positions to all the sections which do not form part of the loadable image, except for the relocs. */ for (i = 1, hdrpp = i_shdrpp + 1; i < i_ehdrp->e_shnum; i++, hdrpp++) { Elf_Internal_Shdr *hdr; hdr = *hdrpp; if ((hdr->sh_flags & SHF_ALLOC) != 0) continue; if (hdr->sh_type == SHT_REL || hdr->sh_type == SHT_RELA) { hdr->sh_offset = -1; continue; } if (! dosyms && (i == tdata->symtab_section || i == tdata->strtab_section)) { hdr->sh_offset = -1; continue; } off = assign_file_position_for_section (hdr, off, true); } phdr_map = map_program_segments (abfd, phdr_off, first, phdr_size); if (phdr_map == (file_ptr) -1) return false; BFD_ASSERT (phdr_map == phdr_off + phdr_size); } /* Place the section headers. */ off = align_file_position (off); i_ehdrp->e_shoff = off; off += i_ehdrp->e_shnum * i_ehdrp->e_shentsize; elf_tdata (abfd)->next_file_pos = off; return true; } static boolean prep_headers (abfd) bfd *abfd; { Elf_Internal_Ehdr *i_ehdrp; /* Elf file header, internal form */ Elf_Internal_Phdr *i_phdrp = 0; /* Program header table, internal form */ Elf_Internal_Shdr **i_shdrp; /* Section header table, internal form */ int count; struct strtab *shstrtab; i_ehdrp = elf_elfheader (abfd); i_shdrp = elf_elfsections (abfd); shstrtab = bfd_new_strtab (abfd); if (!shstrtab) return false; elf_shstrtab (abfd) = shstrtab; i_ehdrp->e_ident[EI_MAG0] = ELFMAG0; i_ehdrp->e_ident[EI_MAG1] = ELFMAG1; i_ehdrp->e_ident[EI_MAG2] = ELFMAG2; i_ehdrp->e_ident[EI_MAG3] = ELFMAG3; i_ehdrp->e_ident[EI_CLASS] = ELFCLASS; i_ehdrp->e_ident[EI_DATA] = abfd->xvec->byteorder_big_p ? ELFDATA2MSB : ELFDATA2LSB; i_ehdrp->e_ident[EI_VERSION] = EV_CURRENT; for (count = EI_PAD; count < EI_NIDENT; count++) i_ehdrp->e_ident[count] = 0; if ((abfd->flags & DYNAMIC) != 0) i_ehdrp->e_type = ET_DYN; else if ((abfd->flags & EXEC_P) != 0) i_ehdrp->e_type = ET_EXEC; else i_ehdrp->e_type = ET_REL; switch (bfd_get_arch (abfd)) { case bfd_arch_unknown: i_ehdrp->e_machine = EM_NONE; break; case bfd_arch_sparc: #if ARCH_SIZE == 64 i_ehdrp->e_machine = EM_SPARC64; #else i_ehdrp->e_machine = EM_SPARC; #endif break; case bfd_arch_i386: i_ehdrp->e_machine = EM_386; break; case bfd_arch_m68k: i_ehdrp->e_machine = EM_68K; break; case bfd_arch_m88k: i_ehdrp->e_machine = EM_88K; break; case bfd_arch_i860: i_ehdrp->e_machine = EM_860; break; case bfd_arch_mips: /* MIPS Rxxxx */ i_ehdrp->e_machine = EM_MIPS; /* only MIPS R3000 */ break; case bfd_arch_hppa: i_ehdrp->e_machine = EM_PARISC; break; case bfd_arch_powerpc: i_ehdrp->e_machine = EM_CYGNUS_POWERPC; break; /* also note that EM_M32, AT&T WE32100 is unknown to bfd */ default: i_ehdrp->e_machine = EM_NONE; } i_ehdrp->e_version = EV_CURRENT; i_ehdrp->e_ehsize = sizeof (Elf_External_Ehdr); /* no program header, for now. */ i_ehdrp->e_phoff = 0; i_ehdrp->e_phentsize = 0; i_ehdrp->e_phnum = 0; /* each bfd section is section header entry */ i_ehdrp->e_entry = bfd_get_start_address (abfd); i_ehdrp->e_shentsize = sizeof (Elf_External_Shdr); /* if we're building an executable, we'll need a program header table */ if (abfd->flags & EXEC_P) { /* it all happens later */ #if 0 i_ehdrp->e_phentsize = sizeof (Elf_External_Phdr); /* elf_build_phdrs() returns a (NULL-terminated) array of Elf_Internal_Phdrs */ i_phdrp = elf_build_phdrs (abfd, i_ehdrp, i_shdrp, &i_ehdrp->e_phnum); i_ehdrp->e_phoff = outbase; outbase += i_ehdrp->e_phentsize * i_ehdrp->e_phnum; #endif } else { i_ehdrp->e_phentsize = 0; i_phdrp = 0; i_ehdrp->e_phoff = 0; } elf_tdata (abfd)->symtab_hdr.sh_name = bfd_add_to_strtab (abfd, shstrtab, ".symtab"); elf_tdata (abfd)->strtab_hdr.sh_name = bfd_add_to_strtab (abfd, shstrtab, ".strtab"); elf_tdata (abfd)->shstrtab_hdr.sh_name = bfd_add_to_strtab (abfd, shstrtab, ".shstrtab"); if (elf_tdata (abfd)->symtab_hdr.sh_name == (unsigned int) -1 || elf_tdata (abfd)->symtab_hdr.sh_name == (unsigned int) -1 || elf_tdata (abfd)->shstrtab_hdr.sh_name == (unsigned int) -1) return false; return true; } static boolean swap_out_syms (abfd) bfd *abfd; { if (!elf_map_symbols (abfd)) return false; /* Dump out the symtabs. */ { int symcount = bfd_get_symcount (abfd); asymbol **syms = bfd_get_outsymbols (abfd); struct strtab *stt = bfd_new_strtab (abfd); Elf_Internal_Shdr *symtab_hdr; Elf_Internal_Shdr *symstrtab_hdr; Elf_External_Sym *outbound_syms; int idx; if (!stt) return false; symtab_hdr = &elf_tdata (abfd)->symtab_hdr; symtab_hdr->sh_type = SHT_SYMTAB; symtab_hdr->sh_entsize = sizeof (Elf_External_Sym); symtab_hdr->sh_size = symtab_hdr->sh_entsize * (symcount + 1); symtab_hdr->sh_info = elf_num_locals (abfd) + 1; symtab_hdr->sh_addralign = FILE_ALIGN; symstrtab_hdr = &elf_tdata (abfd)->strtab_hdr; symstrtab_hdr->sh_type = SHT_STRTAB; outbound_syms = (Elf_External_Sym *) bfd_alloc (abfd, (1 + symcount) * sizeof (Elf_External_Sym)); if (!outbound_syms) { bfd_set_error (bfd_error_no_memory); return false; } /* now generate the data (for "contents") */ { /* Fill in zeroth symbol and swap it out. */ Elf_Internal_Sym sym; sym.st_name = 0; sym.st_value = 0; sym.st_size = 0; sym.st_info = 0; sym.st_other = 0; sym.st_shndx = SHN_UNDEF; elf_swap_symbol_out (abfd, &sym, outbound_syms); } for (idx = 0; idx < symcount; idx++) { Elf_Internal_Sym sym; bfd_vma value = syms[idx]->value; elf_symbol_type *type_ptr; if (syms[idx]->flags & BSF_SECTION_SYM) /* Section symbols have no names. */ sym.st_name = 0; else { sym.st_name = bfd_add_to_strtab (abfd, stt, syms[idx]->name); if (sym.st_name == (unsigned long) -1) return false; } type_ptr = elf_symbol_from (abfd, syms[idx]); if (bfd_is_com_section (syms[idx]->section)) { /* ELF common symbols put the alignment into the `value' field, and the size into the `size' field. This is backwards from how BFD handles it, so reverse it here. */ sym.st_size = value; sym.st_value = type_ptr ? type_ptr->internal_elf_sym.st_value : 16; sym.st_shndx = elf_section_from_bfd_section (abfd, syms[idx]->section); } else { asection *sec = syms[idx]->section; int shndx; if (sec->output_section) { value += sec->output_offset; sec = sec->output_section; } value += sec->vma; sym.st_value = value; sym.st_size = type_ptr ? type_ptr->internal_elf_sym.st_size : 0; sym.st_shndx = shndx = elf_section_from_bfd_section (abfd, sec); if (shndx == -1) { asection *sec2; /* Writing this would be a hell of a lot easier if we had some decent documentation on bfd, and knew what to expect of the library, and what to demand of applications. For example, it appears that `objcopy' might not set the section of a symbol to be a section that is actually in the output file. */ sec2 = bfd_get_section_by_name (abfd, sec->name); BFD_ASSERT (sec2 != 0); sym.st_shndx = shndx = elf_section_from_bfd_section (abfd, sec2); BFD_ASSERT (shndx != -1); } } if (bfd_is_com_section (syms[idx]->section)) sym.st_info = ELF_ST_INFO (STB_GLOBAL, STT_OBJECT); else if (bfd_is_und_section (syms[idx]->section)) sym.st_info = ELF_ST_INFO (STB_GLOBAL, STT_NOTYPE); else if (syms[idx]->flags & BSF_SECTION_SYM) sym.st_info = ELF_ST_INFO (STB_LOCAL, STT_SECTION); else if (syms[idx]->flags & BSF_FILE) sym.st_info = ELF_ST_INFO (STB_LOCAL, STT_FILE); else { int bind = STB_LOCAL; int type = STT_OBJECT; unsigned int flags = syms[idx]->flags; if (flags & BSF_LOCAL) bind = STB_LOCAL; else if (flags & BSF_WEAK) bind = STB_WEAK; else if (flags & BSF_GLOBAL) bind = STB_GLOBAL; if (flags & BSF_FUNCTION) type = STT_FUNC; sym.st_info = ELF_ST_INFO (bind, type); } sym.st_other = 0; elf_swap_symbol_out (abfd, &sym, (outbound_syms + elf_sym_extra (abfd)[idx].elf_sym_num)); } symtab_hdr->contents = (PTR) outbound_syms; symstrtab_hdr->contents = (PTR) stt->tab; symstrtab_hdr->sh_size = stt->length; symstrtab_hdr->sh_type = SHT_STRTAB; symstrtab_hdr->sh_flags = 0; symstrtab_hdr->sh_addr = 0; symstrtab_hdr->sh_entsize = 0; symstrtab_hdr->sh_link = 0; symstrtab_hdr->sh_info = 0; symstrtab_hdr->sh_addralign = 1; symstrtab_hdr->size = 0; } return true; } static boolean write_shdrs_and_ehdr (abfd) bfd *abfd; { Elf_External_Ehdr x_ehdr; /* Elf file header, external form */ Elf_Internal_Ehdr *i_ehdrp; /* Elf file header, internal form */ Elf_External_Shdr *x_shdrp; /* Section header table, external form */ Elf_Internal_Shdr **i_shdrp; /* Section header table, internal form */ unsigned int count; struct strtab *shstrtab; i_ehdrp = elf_elfheader (abfd); i_shdrp = elf_elfsections (abfd); shstrtab = elf_shstrtab (abfd); /* swap the header before spitting it out... */ #if DEBUG & 1 elf_debug_file (i_ehdrp); #endif elf_swap_ehdr_out (abfd, i_ehdrp, &x_ehdr); if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0 || (bfd_write ((PTR) & x_ehdr, sizeof (x_ehdr), 1, abfd) != sizeof (x_ehdr))) return false; /* at this point we've concocted all the ELF sections... */ x_shdrp = (Elf_External_Shdr *) bfd_alloc (abfd, sizeof (*x_shdrp) * (i_ehdrp->e_shnum)); if (!x_shdrp) { bfd_set_error (bfd_error_no_memory); return false; } for (count = 0; count < i_ehdrp->e_shnum; count++) { #if DEBUG & 2 elf_debug_section (shstrtab->tab + i_shdrp[count]->sh_name, count, i_shdrp[count]); #endif elf_swap_shdr_out (abfd, i_shdrp[count], x_shdrp + count); } if (bfd_seek (abfd, (file_ptr) i_ehdrp->e_shoff, SEEK_SET) != 0 || (bfd_write ((PTR) x_shdrp, sizeof (*x_shdrp), i_ehdrp->e_shnum, abfd) != sizeof (*x_shdrp) * i_ehdrp->e_shnum)) return false; /* need to dump the string table too... */ return true; } /* Assign file positions for all the reloc sections which are not part of the loadable file image. */ static void assign_file_positions_for_relocs (abfd) bfd *abfd; { file_ptr off; unsigned int i; Elf_Internal_Shdr **shdrpp; off = elf_tdata (abfd)->next_file_pos; for (i = 1, shdrpp = elf_elfsections (abfd) + 1; i < elf_elfheader (abfd)->e_shnum; i++, shdrpp++) { Elf_Internal_Shdr *shdrp; shdrp = *shdrpp; if ((shdrp->sh_type == SHT_REL || shdrp->sh_type == SHT_RELA) && shdrp->sh_offset == -1) off = assign_file_position_for_section (shdrp, off, true); } elf_tdata (abfd)->next_file_pos = off; } boolean NAME(bfd_elf,write_object_contents) (abfd) bfd *abfd; { struct elf_backend_data *bed = get_elf_backend_data (abfd); Elf_Internal_Ehdr *i_ehdrp; Elf_Internal_Shdr **i_shdrp; unsigned int count; if (! abfd->output_has_begun && ! elf_compute_section_file_positions (abfd, (struct bfd_link_info *) NULL)) return false; i_shdrp = elf_elfsections (abfd); i_ehdrp = elf_elfheader (abfd); bfd_map_over_sections (abfd, write_relocs, (PTR) 0); assign_file_positions_for_relocs (abfd); /* After writing the headers, we need to write the sections too... */ for (count = 1; count < i_ehdrp->e_shnum; count++) { if (bed->elf_backend_section_processing) (*bed->elf_backend_section_processing) (abfd, i_shdrp[count]); if (i_shdrp[count]->contents) { if (bfd_seek (abfd, i_shdrp[count]->sh_offset, SEEK_SET) != 0 || (bfd_write (i_shdrp[count]->contents, i_shdrp[count]->sh_size, 1, abfd) != i_shdrp[count]->sh_size)) return false; } } if (bed->elf_backend_final_write_processing) (*bed->elf_backend_final_write_processing) (abfd, NULL); return write_shdrs_and_ehdr (abfd); } /* Given an index of a section, retrieve a pointer to it. Note that for our purposes, sections are indexed by {1, 2, ...} with 0 being an illegal index. */ /* In the original, each ELF section went into exactly one BFD section. This doesn't really make sense, so we need a real mapping. The mapping has to hide in the Elf_Internal_Shdr since asection doesn't have anything like a tdata field... */ static asection * section_from_elf_index (abfd, index) bfd *abfd; unsigned int index; { /* @@ Is bfd_com_section_ptr really correct in all the places it could be returned from this routine? */ if (index == SHN_ABS) return bfd_com_section_ptr; /* not abs? */ if (index == SHN_COMMON) return bfd_com_section_ptr; if (index >= elf_elfheader (abfd)->e_shnum) return NULL; { Elf_Internal_Shdr *hdr = elf_elfsections (abfd)[index]; switch (hdr->sh_type) { /* ELF sections that map to BFD sections */ case SHT_PROGBITS: case SHT_NOBITS: case SHT_HASH: case SHT_DYNAMIC: if (hdr->rawdata == NULL) { if (! bfd_section_from_shdr (abfd, index)) return NULL; } return (struct sec *) hdr->rawdata; default: return bfd_abs_section_ptr; } } } /* given a section, search the header to find them... */ static int elf_section_from_bfd_section (abfd, asect) bfd *abfd; struct sec *asect; { Elf_Internal_Shdr **i_shdrp = elf_elfsections (abfd); int index; Elf_Internal_Shdr *hdr; int maxindex = elf_elfheader (abfd)->e_shnum; if (asect->owner == NULL) { if (bfd_is_abs_section (asect)) return SHN_ABS; if (bfd_is_com_section (asect)) return SHN_COMMON; if (bfd_is_und_section (asect)) return SHN_UNDEF; return -1; } BFD_ASSERT (asect->owner == abfd); for (index = 0; index < maxindex; index++) { hdr = i_shdrp[index]; switch (hdr->sh_type) { /* ELF sections that map to BFD sections */ case SHT_PROGBITS: case SHT_NOBITS: case SHT_NOTE: case SHT_HASH: case SHT_DYNAMIC: case SHT_DYNSYM: if (hdr->rawdata) { if (((struct sec *) (hdr->rawdata)) == asect) return index; } break; case SHT_REL: case SHT_RELA: /* We sometimes map a reloc section to a BFD section. */ if (hdr->sh_link != elf_onesymtab (abfd) && (asection *) hdr->rawdata == asect) return index; break; case SHT_STRTAB: /* We map most string tables to BFD sections. */ if (index != elf_elfheader (abfd)->e_shstrndx && index != elf_onesymtab (abfd) && (asection *) hdr->rawdata == asect) return index; /* FALL THROUGH */ default: { struct elf_backend_data *bed = get_elf_backend_data (abfd); if (bed->elf_backend_section_from_bfd_section) { int retval; retval = index; if ((*bed->elf_backend_section_from_bfd_section) (abfd, hdr, asect, &retval)) return retval; } } break; } } return -1; } /* given a symbol, return the bfd index for that symbol. */ static int elf_symbol_from_bfd_symbol (abfd, asym_ptr_ptr) bfd *abfd; struct symbol_cache_entry **asym_ptr_ptr; { struct symbol_cache_entry *asym_ptr = *asym_ptr_ptr; int idx; flagword flags = asym_ptr->flags; /* When gas creates relocations against local labels, it creates its own symbol for the section, but does put the symbol into the symbol chain, so udata is 0. When the linker is generating relocatable output, this section symbol may be for one of the input sections rather than the output section. */ if (asym_ptr->udata == (PTR) 0 && (flags & BSF_SECTION_SYM) && asym_ptr->section) { int indx; if (asym_ptr->section->output_section != NULL) indx = asym_ptr->section->output_section->index; else indx = asym_ptr->section->index; if (elf_section_syms (abfd)[indx]) asym_ptr->udata = elf_section_syms (abfd)[indx]->udata; } if (asym_ptr->udata) idx = ((Elf_Sym_Extra *) asym_ptr->udata)->elf_sym_num; else { abort (); } #if DEBUG & 4 { fprintf (stderr, "elf_symbol_from_bfd_symbol 0x%.8lx, name = %s, sym num = %d, flags = 0x%.8lx %s\n", (long) asym_ptr, asym_ptr->name, idx, flags, elf_symbol_flags (flags)); fflush (stderr); } #endif return idx; } static long elf_slurp_symbol_table (abfd, symptrs, dynamic) bfd *abfd; asymbol **symptrs; /* Buffer for generated bfd symbols */ boolean dynamic; { Elf_Internal_Shdr *hdr; long symcount; /* Number of external ELF symbols */ elf_symbol_type *sym; /* Pointer to current bfd symbol */ elf_symbol_type *symbase; /* Buffer for generated bfd symbols */ Elf_Internal_Sym i_sym; Elf_External_Sym *x_symp = NULL; /* Read each raw ELF symbol, converting from external ELF form to internal ELF form, and then using the information to create a canonical bfd symbol table entry. Note that we allocate the initial bfd canonical symbol buffer based on a one-to-one mapping of the ELF symbols to canonical symbols. We actually use all the ELF symbols, so there will be no space left over at the end. When we have all the symbols, we build the caller's pointer vector. */ if (dynamic) hdr = &elf_tdata (abfd)->dynsymtab_hdr; else hdr = &elf_tdata (abfd)->symtab_hdr; if (bfd_seek (abfd, hdr->sh_offset, SEEK_SET) == -1) return -1; symcount = hdr->sh_size / sizeof (Elf_External_Sym); if (symcount == 0) sym = symbase = NULL; else { long i; if (bfd_seek (abfd, hdr->sh_offset, SEEK_SET) == -1) return -1; symbase = ((elf_symbol_type *) bfd_zalloc (abfd, symcount * sizeof (elf_symbol_type))); if (symbase == (elf_symbol_type *) NULL) { bfd_set_error (bfd_error_no_memory); return -1; } sym = symbase; /* Temporarily allocate room for the raw ELF symbols. */ x_symp = ((Elf_External_Sym *) malloc (symcount * sizeof (Elf_External_Sym))); if (x_symp == NULL && symcount != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_read ((PTR) x_symp, sizeof (Elf_External_Sym), symcount, abfd) != symcount * sizeof (Elf_External_Sym)) goto error_return; /* Skip first symbol, which is a null dummy. */ for (i = 1; i < symcount; i++) { elf_swap_symbol_in (abfd, x_symp + i, &i_sym); memcpy (&sym->internal_elf_sym, &i_sym, sizeof (Elf_Internal_Sym)); #ifdef ELF_KEEP_EXTSYM memcpy (&sym->native_elf_sym, x_symp + i, sizeof (Elf_External_Sym)); #endif sym->symbol.the_bfd = abfd; sym->symbol.name = elf_string_from_elf_section (abfd, hdr->sh_link, i_sym.st_name); sym->symbol.value = i_sym.st_value; if (i_sym.st_shndx > 0 && i_sym.st_shndx < SHN_LORESERVE) { sym->symbol.section = section_from_elf_index (abfd, i_sym.st_shndx); if (sym->symbol.section == NULL) { /* This symbol is in a section for which we did not create a BFD section. Just use bfd_abs_section, although it is wrong. FIXME. */ sym->symbol.section = bfd_abs_section_ptr; } } else if (i_sym.st_shndx == SHN_ABS) { sym->symbol.section = bfd_abs_section_ptr; } else if (i_sym.st_shndx == SHN_COMMON) { sym->symbol.section = bfd_com_section_ptr; /* Elf puts the alignment into the `value' field, and the size into the `size' field. BFD wants to see the size in the value field, and doesn't care (at the moment) about the alignment. */ sym->symbol.value = i_sym.st_size; } else if (i_sym.st_shndx == SHN_UNDEF) { sym->symbol.section = bfd_und_section_ptr; } else sym->symbol.section = bfd_abs_section_ptr; sym->symbol.value -= sym->symbol.section->vma; switch (ELF_ST_BIND (i_sym.st_info)) { case STB_LOCAL: sym->symbol.flags |= BSF_LOCAL; break; case STB_GLOBAL: sym->symbol.flags |= BSF_GLOBAL; break; case STB_WEAK: sym->symbol.flags |= BSF_WEAK; break; } switch (ELF_ST_TYPE (i_sym.st_info)) { case STT_SECTION: sym->symbol.flags |= BSF_SECTION_SYM | BSF_DEBUGGING; break; case STT_FILE: sym->symbol.flags |= BSF_FILE | BSF_DEBUGGING; break; case STT_FUNC: sym->symbol.flags |= BSF_FUNCTION; break; } if (dynamic) sym->symbol.flags |= BSF_DYNAMIC; /* Do some backend-specific processing on this symbol. */ { struct elf_backend_data *ebd = get_elf_backend_data (abfd); if (ebd->elf_backend_symbol_processing) (*ebd->elf_backend_symbol_processing) (abfd, &sym->symbol); } sym++; } } /* Do some backend-specific processing on this symbol table. */ { struct elf_backend_data *ebd = get_elf_backend_data (abfd); if (ebd->elf_backend_symbol_table_processing) (*ebd->elf_backend_symbol_table_processing) (abfd, symbase, symcount); } /* We rely on the zalloc to clear out the final symbol entry. */ symcount = sym - symbase; /* Fill in the user's symbol pointer vector if needed. */ if (symptrs) { long l = symcount; sym = symbase; while (l-- > 0) { *symptrs++ = &sym->symbol; sym++; } *symptrs = 0; /* Final null pointer */ } if (x_symp != NULL) free (x_symp); return symcount; error_return: if (x_symp != NULL) free (x_symp); return -1; } /* Return the number of bytes required to hold the symtab vector. Note that we base it on the count plus 1, since we will null terminate the vector allocated based on this size. However, the ELF symbol table always has a dummy entry as symbol #0, so it ends up even. */ long elf_get_symtab_upper_bound (abfd) bfd *abfd; { long symcount; long symtab_size; Elf_Internal_Shdr *hdr = &elf_tdata (abfd)->symtab_hdr; symcount = hdr->sh_size / sizeof (Elf_External_Sym); symtab_size = (symcount - 1 + 1) * (sizeof (asymbol *)); return symtab_size; } long elf_get_dynamic_symtab_upper_bound (abfd) bfd *abfd; { long symcount; long symtab_size; Elf_Internal_Shdr *hdr = &elf_tdata (abfd)->dynsymtab_hdr; if (elf_dynsymtab (abfd) == 0) { bfd_set_error (bfd_error_invalid_operation); return -1; } symcount = hdr->sh_size / sizeof (Elf_External_Sym); symtab_size = (symcount - 1 + 1) * (sizeof (asymbol *)); return symtab_size; } long elf_get_reloc_upper_bound (abfd, asect) bfd *abfd; sec_ptr asect; { return (asect->reloc_count + 1) * sizeof (arelent *); } /* Read in and swap the external relocs. */ static boolean elf_slurp_reloc_table (abfd, asect, symbols) bfd *abfd; asection *asect; asymbol **symbols; { struct elf_backend_data * const ebd = get_elf_backend_data (abfd); struct bfd_elf_section_data * const d = elf_section_data (asect); PTR allocated = NULL; bfd_byte *native_relocs; arelent *relents; arelent *relent; unsigned int i; int entsize; if (asect->relocation != NULL) return true; BFD_ASSERT (asect->rel_filepos == d->rel_hdr.sh_offset && (asect->reloc_count == d->rel_hdr.sh_size / d->rel_hdr.sh_entsize)); native_relocs = (bfd_byte *) elf_section_data (asect)->relocs; if (native_relocs == NULL) { allocated = (PTR) malloc (d->rel_hdr.sh_size); if (allocated == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0 || (bfd_read (allocated, 1, d->rel_hdr.sh_size, abfd) != d->rel_hdr.sh_size)) goto error_return; native_relocs = (bfd_byte *) allocated; } relents = ((arelent *) bfd_alloc (abfd, asect->reloc_count * sizeof (arelent))); if (relents == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } entsize = d->rel_hdr.sh_entsize; BFD_ASSERT (entsize == sizeof (Elf_External_Rel) || entsize == sizeof (Elf_External_Rela)); for (i = 0, relent = relents; i < asect->reloc_count; i++, relent++, native_relocs += entsize) { Elf_Internal_Rela rela; Elf_Internal_Rel rel; if (entsize == sizeof (Elf_External_Rela)) elf_swap_reloca_in (abfd, (Elf_External_Rela *) native_relocs, &rela); else { elf_swap_reloc_in (abfd, (Elf_External_Rel *) native_relocs, &rel); rela.r_offset = rel.r_offset; rela.r_info = rel.r_info; rela.r_addend = 0; } /* The address of an ELF reloc is section relative for an object file, and absolute for an executable file or shared library. The address of a BFD reloc is always section relative. */ if ((abfd->flags & (EXEC_P | DYNAMIC)) == 0) relent->address = rela.r_offset; else relent->address = rela.r_offset - asect->vma; if (ELF_R_SYM (rela.r_info) == 0) relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; else { asymbol **ps, *s; ps = symbols + ELF_R_SYM (rela.r_info) - 1; s = *ps; /* Canonicalize ELF section symbols. FIXME: Why? */ if ((s->flags & BSF_SECTION_SYM) == 0) relent->sym_ptr_ptr = ps; else relent->sym_ptr_ptr = s->section->symbol_ptr_ptr; } relent->addend = rela.r_addend; if (entsize == sizeof (Elf_External_Rela)) (*ebd->elf_info_to_howto) (abfd, relent, &rela); else (*ebd->elf_info_to_howto_rel) (abfd, relent, &rel); } asect->relocation = relents; if (allocated != NULL) free (allocated); return true; error_return: if (allocated != NULL) free (allocated); return false; } #ifdef DEBUG static void elf_debug_section (str, num, hdr) char *str; int num; Elf_Internal_Shdr *hdr; { fprintf (stderr, "\nSection#%d '%s' 0x%.8lx\n", num, str, (long) hdr); fprintf (stderr, "sh_name = %ld\tsh_type = %ld\tsh_flags = %ld\n", (long) hdr->sh_name, (long) hdr->sh_type, (long) hdr->sh_flags); fprintf (stderr, "sh_addr = %ld\tsh_offset = %ld\tsh_size = %ld\n", (long) hdr->sh_addr, (long) hdr->sh_offset, (long) hdr->sh_size); fprintf (stderr, "sh_link = %ld\tsh_info = %ld\tsh_addralign = %ld\n", (long) hdr->sh_link, (long) hdr->sh_info, (long) hdr->sh_addralign); fprintf (stderr, "sh_entsize = %ld\n", (long) hdr->sh_entsize); fprintf (stderr, "rawdata = 0x%.8lx\n", (long) hdr->rawdata); fprintf (stderr, "contents = 0x%.8lx\n", (long) hdr->contents); fprintf (stderr, "size = %ld\n", (long) hdr->size); fflush (stderr); } static void elf_debug_file (ehdrp) Elf_Internal_Ehdr *ehdrp; { fprintf (stderr, "e_entry = 0x%.8lx\n", (long) ehdrp->e_entry); fprintf (stderr, "e_phoff = %ld\n", (long) ehdrp->e_phoff); fprintf (stderr, "e_phnum = %ld\n", (long) ehdrp->e_phnum); fprintf (stderr, "e_phentsize = %ld\n", (long) ehdrp->e_phentsize); fprintf (stderr, "e_shoff = %ld\n", (long) ehdrp->e_shoff); fprintf (stderr, "e_shnum = %ld\n", (long) ehdrp->e_shnum); fprintf (stderr, "e_shentsize = %ld\n", (long) ehdrp->e_shentsize); } #endif /* Canonicalize the relocs. */ long elf_canonicalize_reloc (abfd, section, relptr, symbols) bfd *abfd; sec_ptr section; arelent **relptr; asymbol **symbols; { arelent *tblptr; unsigned int i; if (! elf_slurp_reloc_table (abfd, section, symbols)) return -1; tblptr = section->relocation; for (i = 0; i < section->reloc_count; i++) *relptr++ = tblptr++; *relptr = NULL; return section->reloc_count; } long elf_get_symtab (abfd, alocation) bfd *abfd; asymbol **alocation; { long symcount = elf_slurp_symbol_table (abfd, alocation, false); if (symcount >= 0) bfd_get_symcount (abfd) = symcount; return symcount; } long elf_canonicalize_dynamic_symtab (abfd, alocation) bfd *abfd; asymbol **alocation; { return elf_slurp_symbol_table (abfd, alocation, true); } asymbol * elf_make_empty_symbol (abfd) bfd *abfd; { elf_symbol_type *newsym; newsym = (elf_symbol_type *) bfd_zalloc (abfd, sizeof (elf_symbol_type)); if (!newsym) { bfd_set_error (bfd_error_no_memory); return NULL; } else { newsym->symbol.the_bfd = abfd; return &newsym->symbol; } } void elf_get_symbol_info (ignore_abfd, symbol, ret) bfd *ignore_abfd; asymbol *symbol; symbol_info *ret; { bfd_symbol_info (symbol, ret); } void elf_print_symbol (ignore_abfd, filep, symbol, how) bfd *ignore_abfd; PTR filep; asymbol *symbol; bfd_print_symbol_type how; { FILE *file = (FILE *) filep; switch (how) { case bfd_print_symbol_name: fprintf (file, "%s", symbol->name); break; case bfd_print_symbol_more: fprintf (file, "elf "); fprintf_vma (file, symbol->value); fprintf (file, " %lx", (long) symbol->flags); break; case bfd_print_symbol_all: { CONST char *section_name; section_name = symbol->section ? symbol->section->name : "(*none*)"; bfd_print_symbol_vandf ((PTR) file, symbol); fprintf (file, " %s\t%s", section_name, symbol->name); } break; } } alent * elf_get_lineno (ignore_abfd, symbol) bfd *ignore_abfd; asymbol *symbol; { fprintf (stderr, "elf_get_lineno unimplemented\n"); fflush (stderr); BFD_FAIL (); return NULL; } boolean elf_set_arch_mach (abfd, arch, machine) bfd *abfd; enum bfd_architecture arch; unsigned long machine; { /* If this isn't the right architecture for this backend, and this isn't the generic backend, fail. */ if (arch != get_elf_backend_data (abfd)->arch && arch != bfd_arch_unknown && get_elf_backend_data (abfd)->arch != bfd_arch_unknown) return false; return bfd_default_set_arch_mach (abfd, arch, machine); } boolean elf_find_nearest_line (abfd, section, symbols, offset, filename_ptr, functionname_ptr, line_ptr) bfd *abfd; asection *section; asymbol **symbols; bfd_vma offset; CONST char **filename_ptr; CONST char **functionname_ptr; unsigned int *line_ptr; { return false; } int elf_sizeof_headers (abfd, reloc) bfd *abfd; boolean reloc; { int ret; ret = sizeof (Elf_External_Ehdr); if (! reloc) ret += get_program_header_size (abfd); return ret; } boolean elf_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { Elf_Internal_Shdr *hdr; if (! abfd->output_has_begun && ! elf_compute_section_file_positions (abfd, (struct bfd_link_info *) NULL)) return false; hdr = &elf_section_data (section)->this_hdr; if (bfd_seek (abfd, hdr->sh_offset + offset, SEEK_SET) == -1) return false; if (bfd_write (location, 1, count, abfd) != count) return false; return true; } void elf_no_info_to_howto (abfd, cache_ptr, dst) bfd *abfd; arelent *cache_ptr; Elf_Internal_Rela *dst; { fprintf (stderr, "elf RELA relocation support for target machine unimplemented\n"); fflush (stderr); BFD_FAIL (); } void elf_no_info_to_howto_rel (abfd, cache_ptr, dst) bfd *abfd; arelent *cache_ptr; Elf_Internal_Rel *dst; { fprintf (stderr, "elf REL relocation support for target machine unimplemented\n"); fflush (stderr); BFD_FAIL (); } /* Core file support */ #ifdef HAVE_PROCFS /* Some core file support requires host /proc files */ #include #else #define bfd_prstatus(abfd, descdata, descsz, filepos) true #define bfd_fpregset(abfd, descdata, descsz, filepos) true #define bfd_prpsinfo(abfd, descdata, descsz, filepos) true #endif #ifdef HAVE_PROCFS static boolean bfd_prstatus (abfd, descdata, descsz, filepos) bfd *abfd; char *descdata; int descsz; long filepos; { asection *newsect; prstatus_t *status = (prstatus_t *) 0; if (descsz == sizeof (prstatus_t)) { newsect = bfd_make_section (abfd, ".reg"); if (newsect == NULL) return false; newsect->_raw_size = sizeof (status->pr_reg); newsect->filepos = filepos + (long) &status->pr_reg; newsect->flags = SEC_HAS_CONTENTS; newsect->alignment_power = 2; if ((core_prstatus (abfd) = bfd_alloc (abfd, descsz)) != NULL) { memcpy (core_prstatus (abfd), descdata, descsz); } } return true; } /* Stash a copy of the prpsinfo structure away for future use. */ static boolean bfd_prpsinfo (abfd, descdata, descsz, filepos) bfd *abfd; char *descdata; int descsz; long filepos; { if (descsz == sizeof (prpsinfo_t)) { if ((core_prpsinfo (abfd) = bfd_alloc (abfd, descsz)) == NULL) { bfd_set_error (bfd_error_no_memory); return false; } memcpy (core_prpsinfo (abfd), descdata, descsz); } return true; } static boolean bfd_fpregset (abfd, descdata, descsz, filepos) bfd *abfd; char *descdata; int descsz; long filepos; { asection *newsect; newsect = bfd_make_section (abfd, ".reg2"); if (newsect == NULL) return false; newsect->_raw_size = descsz; newsect->filepos = filepos; newsect->flags = SEC_HAS_CONTENTS; newsect->alignment_power = 2; return true; } #endif /* HAVE_PROCFS */ /* Return a pointer to the args (including the command name) that were seen by the program that generated the core dump. Note that for some reason, a spurious space is tacked onto the end of the args in some (at least one anyway) implementations, so strip it off if it exists. */ char * elf_core_file_failing_command (abfd) bfd *abfd; { #ifdef HAVE_PROCFS if (core_prpsinfo (abfd)) { prpsinfo_t *p = core_prpsinfo (abfd); char *scan = p->pr_psargs; while (*scan++) {; } scan -= 2; if ((scan > p->pr_psargs) && (*scan == ' ')) { *scan = '\000'; } return p->pr_psargs; } #endif return NULL; } /* Return the number of the signal that caused the core dump. Presumably, since we have a core file, we got a signal of some kind, so don't bother checking the other process status fields, just return the signal number. */ int elf_core_file_failing_signal (abfd) bfd *abfd; { #ifdef HAVE_PROCFS if (core_prstatus (abfd)) { return ((prstatus_t *) (core_prstatus (abfd)))->pr_cursig; } #endif return -1; } /* Check to see if the core file could reasonably be expected to have come for the current executable file. Note that by default we return true unless we find something that indicates that there might be a problem. */ boolean elf_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd; bfd *exec_bfd; { #ifdef HAVE_PROCFS char *corename; char *execname; #endif /* First, xvecs must match since both are ELF files for the same target. */ if (core_bfd->xvec != exec_bfd->xvec) { bfd_set_error (bfd_error_system_call); return false; } #ifdef HAVE_PROCFS /* If no prpsinfo, just return true. Otherwise, grab the last component of the exec'd pathname from the prpsinfo. */ if (core_prpsinfo (core_bfd)) { corename = (((struct prpsinfo *) core_prpsinfo (core_bfd))->pr_fname); } else { return true; } /* Find the last component of the executable pathname. */ if ((execname = strrchr (exec_bfd->filename, '/')) != NULL) { execname++; } else { execname = (char *) exec_bfd->filename; } /* See if they match */ return strcmp (execname, corename) ? false : true; #else return true; #endif /* HAVE_PROCFS */ } /* ELF core files contain a segment of type PT_NOTE, that holds much of the information that would normally be available from the /proc interface for the process, at the time the process dumped core. Currently this includes copies of the prstatus, prpsinfo, and fpregset structures. Since these structures are potentially machine dependent in size and ordering, bfd provides two levels of support for them. The first level, available on all machines since it does not require that the host have /proc support or the relevant include files, is to create a bfd section for each of the prstatus, prpsinfo, and fpregset structures, without any interpretation of their contents. With just this support, the bfd client will have to interpret the structures itself. Even with /proc support, it might want these full structures for it's own reasons. In the second level of support, where HAVE_PROCFS is defined, bfd will pick apart the structures to gather some additional information that clients may want, such as the general register set, the name of the exec'ed file and its arguments, the signal (if any) that caused the core dump, etc. */ static boolean elf_corefile_note (abfd, hdr) bfd *abfd; Elf_Internal_Phdr *hdr; { Elf_External_Note *x_note_p; /* Elf note, external form */ Elf_Internal_Note i_note; /* Elf note, internal form */ char *buf = NULL; /* Entire note segment contents */ char *namedata; /* Name portion of the note */ char *descdata; /* Descriptor portion of the note */ char *sectname; /* Name to use for new section */ long filepos; /* File offset to descriptor data */ asection *newsect; if (hdr->p_filesz > 0 && (buf = (char *) malloc (hdr->p_filesz)) != NULL && bfd_seek (abfd, hdr->p_offset, SEEK_SET) != -1 && bfd_read ((PTR) buf, hdr->p_filesz, 1, abfd) == hdr->p_filesz) { x_note_p = (Elf_External_Note *) buf; while ((char *) x_note_p < (buf + hdr->p_filesz)) { i_note.namesz = bfd_h_get_32 (abfd, (bfd_byte *) x_note_p->namesz); i_note.descsz = bfd_h_get_32 (abfd, (bfd_byte *) x_note_p->descsz); i_note.type = bfd_h_get_32 (abfd, (bfd_byte *) x_note_p->type); namedata = x_note_p->name; descdata = namedata + BFD_ALIGN (i_note.namesz, 4); filepos = hdr->p_offset + (descdata - buf); switch (i_note.type) { case NT_PRSTATUS: /* process descdata as prstatus info */ if (! bfd_prstatus (abfd, descdata, i_note.descsz, filepos)) return false; sectname = ".prstatus"; break; case NT_FPREGSET: /* process descdata as fpregset info */ if (! bfd_fpregset (abfd, descdata, i_note.descsz, filepos)) return false; sectname = ".fpregset"; break; case NT_PRPSINFO: /* process descdata as prpsinfo */ if (! bfd_prpsinfo (abfd, descdata, i_note.descsz, filepos)) return false; sectname = ".prpsinfo"; break; default: /* Unknown descriptor, just ignore it. */ sectname = NULL; break; } if (sectname != NULL) { newsect = bfd_make_section (abfd, sectname); if (newsect == NULL) return false; newsect->_raw_size = i_note.descsz; newsect->filepos = filepos; newsect->flags = SEC_ALLOC | SEC_HAS_CONTENTS; newsect->alignment_power = 2; } x_note_p = (Elf_External_Note *) (descdata + BFD_ALIGN (i_note.descsz, 4)); } } if (buf != NULL) { free (buf); } else if (hdr->p_filesz > 0) { bfd_set_error (bfd_error_no_memory); return false; } return true; } /* Core files are simply standard ELF formatted files that partition the file using the execution view of the file (program header table) rather than the linking view. In fact, there is no section header table in a core file. The process status information (including the contents of the general register set) and the floating point register set are stored in a segment of type PT_NOTE. We handcraft a couple of extra bfd sections that allow standard bfd access to the general registers (.reg) and the floating point registers (.reg2). */ const bfd_target * elf_core_file_p (abfd) bfd *abfd; { Elf_External_Ehdr x_ehdr; /* Elf file header, external form */ Elf_Internal_Ehdr *i_ehdrp; /* Elf file header, internal form */ Elf_External_Phdr x_phdr; /* Program header table entry, external form */ Elf_Internal_Phdr *i_phdrp; /* Program header table, internal form */ unsigned int phindex; struct elf_backend_data *ebd; /* Read in the ELF header in external format. */ if (bfd_read ((PTR) & x_ehdr, sizeof (x_ehdr), 1, abfd) != sizeof (x_ehdr)) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return NULL; } /* Now check to see if we have a valid ELF file, and one that BFD can make use of. The magic number must match, the address size ('class') and byte-swapping must match our XVEC entry, and it must have a program header table (FIXME: See comments re segments at top of this file). */ if (elf_file_p (&x_ehdr) == false) { wrong: bfd_set_error (bfd_error_wrong_format); return NULL; } /* FIXME, Check EI_VERSION here ! */ { #if ARCH_SIZE == 32 int desired_address_size = ELFCLASS32; #endif #if ARCH_SIZE == 64 int desired_address_size = ELFCLASS64; #endif if (x_ehdr.e_ident[EI_CLASS] != desired_address_size) goto wrong; } /* Switch xvec to match the specified byte order. */ switch (x_ehdr.e_ident[EI_DATA]) { case ELFDATA2MSB: /* Big-endian */ if (abfd->xvec->byteorder_big_p == false) goto wrong; break; case ELFDATA2LSB: /* Little-endian */ if (abfd->xvec->byteorder_big_p == true) goto wrong; break; case ELFDATANONE: /* No data encoding specified */ default: /* Unknown data encoding specified */ goto wrong; } /* Allocate an instance of the elf_obj_tdata structure and hook it up to the tdata pointer in the bfd. */ elf_tdata (abfd) = (struct elf_obj_tdata *) bfd_zalloc (abfd, sizeof (struct elf_obj_tdata)); if (elf_tdata (abfd) == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* FIXME, `wrong' returns from this point onward, leak memory. */ /* Now that we know the byte order, swap in the rest of the header */ i_ehdrp = elf_elfheader (abfd); elf_swap_ehdr_in (abfd, &x_ehdr, i_ehdrp); #if DEBUG & 1 elf_debug_file (i_ehdrp); #endif ebd = get_elf_backend_data (abfd); /* Check that the ELF e_machine field matches what this particular BFD format expects. */ if (ebd->elf_machine_code != i_ehdrp->e_machine) { const bfd_target * const *target_ptr; if (ebd->elf_machine_code != EM_NONE) goto wrong; /* This is the generic ELF target. Let it match any ELF target for which we do not have a specific backend. */ for (target_ptr = bfd_target_vector; *target_ptr != NULL; target_ptr++) { struct elf_backend_data *back; if ((*target_ptr)->flavour != bfd_target_elf_flavour) continue; back = (struct elf_backend_data *) (*target_ptr)->backend_data; if (back->elf_machine_code == i_ehdrp->e_machine) { /* target_ptr is an ELF backend which matches this object file, so reject the generic ELF target. */ goto wrong; } } } /* If there is no program header, or the type is not a core file, then we are hosed. */ if (i_ehdrp->e_phoff == 0 || i_ehdrp->e_type != ET_CORE) goto wrong; /* Allocate space for a copy of the program header table in internal form, seek to the program header table in the file, read it in, and convert it to internal form. As a simple sanity check, verify that the what BFD thinks is the size of each program header table entry actually matches the size recorded in the file. */ if (i_ehdrp->e_phentsize != sizeof (x_phdr)) goto wrong; i_phdrp = (Elf_Internal_Phdr *) bfd_alloc (abfd, sizeof (*i_phdrp) * i_ehdrp->e_phnum); if (!i_phdrp) { bfd_set_error (bfd_error_no_memory); return NULL; } if (bfd_seek (abfd, i_ehdrp->e_phoff, SEEK_SET) == -1) return NULL; for (phindex = 0; phindex < i_ehdrp->e_phnum; phindex++) { if (bfd_read ((PTR) & x_phdr, sizeof (x_phdr), 1, abfd) != sizeof (x_phdr)) return NULL; elf_swap_phdr_in (abfd, &x_phdr, i_phdrp + phindex); } /* Once all of the program headers have been read and converted, we can start processing them. */ for (phindex = 0; phindex < i_ehdrp->e_phnum; phindex++) { bfd_section_from_phdr (abfd, i_phdrp + phindex, phindex); if ((i_phdrp + phindex)->p_type == PT_NOTE) { if (! elf_corefile_note (abfd, i_phdrp + phindex)) return NULL; } } /* Remember the entry point specified in the ELF file header. */ bfd_get_start_address (abfd) = i_ehdrp->e_entry; return abfd->xvec; } /* ELF linker code. */ static boolean elf_link_add_object_symbols PARAMS ((bfd *, struct bfd_link_info *)); static boolean elf_link_add_archive_symbols PARAMS ((bfd *, struct bfd_link_info *)); static INLINE boolean elf_link_record_dynamic_symbol PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *)); static boolean elf_link_create_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); static boolean elf_adjust_dynamic_symbol PARAMS ((struct elf_link_hash_entry *, PTR)); /* Given an ELF BFD, add symbols to the global hash table as appropriate. */ boolean elf_bfd_link_add_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { switch (bfd_get_format (abfd)) { case bfd_object: return elf_link_add_object_symbols (abfd, info); case bfd_archive: return elf_link_add_archive_symbols (abfd, info); default: bfd_set_error (bfd_error_wrong_format); return false; } } /* Add symbols from an ELF archive file to the linker hash table. We don't use _bfd_generic_link_add_archive_symbols because of a problem which arises on UnixWare. The UnixWare libc.so is an archive which includes an entry libc.so.1 which defines a bunch of symbols. The libc.so archive also includes a number of other object files, which also define symbols, some of which are the same as those defined in libc.so.1. Correct linking requires that we consider each object file in turn, and include it if it defines any symbols we need. _bfd_generic_link_add_archive_symbols does not do this; it looks through the list of undefined symbols, and includes any object file which defines them. When this algorithm is used on UnixWare, it winds up pulling in libc.so.1 early and defining a bunch of symbols. This means that some of the other objects in the archive are not included in the link, which is incorrect since they precede libc.so.1 in the archive. Fortunately, ELF archive handling is simpler than that done by _bfd_generic_link_add_archive_symbols, which has to allow for a.out oddities. In ELF, if we find a symbol in the archive map, and the symbol is currently undefined, we know that we must pull in that object file. Unfortunately, we do have to make multiple passes over the symbol table until nothing further is resolved. */ static boolean elf_link_add_archive_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { symindex c; boolean *defined = NULL; boolean *included = NULL; carsym *symdefs; boolean loop; if (! bfd_has_map (abfd)) { bfd_set_error (bfd_error_no_symbols); return false; } /* Keep track of all symbols we know to be already defined, and all files we know to be already included. This is to speed up the second and subsequent passes. */ c = bfd_ardata (abfd)->symdef_count; if (c == 0) return true; defined = (boolean *) malloc (c * sizeof (boolean)); included = (boolean *) malloc (c * sizeof (boolean)); if (defined == (boolean *) NULL || included == (boolean *) NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } memset (defined, 0, c * sizeof (boolean)); memset (included, 0, c * sizeof (boolean)); symdefs = bfd_ardata (abfd)->symdefs; do { file_ptr last; symindex i; carsym *symdef; carsym *symdefend; loop = false; last = -1; symdef = symdefs; symdefend = symdef + c; for (i = 0; symdef < symdefend; symdef++, i++) { struct elf_link_hash_entry *h; bfd *element; struct bfd_link_hash_entry *undefs_tail; symindex mark; if (defined[i] || included[i]) continue; if (symdef->file_offset == last) { included[i] = true; continue; } h = elf_link_hash_lookup (elf_hash_table (info), symdef->name, false, false, false); if (h == (struct elf_link_hash_entry *) NULL) continue; if (h->root.type != bfd_link_hash_undefined) { defined[i] = true; continue; } /* We need to include this archive member. */ element = _bfd_get_elt_at_filepos (abfd, symdef->file_offset); if (element == (bfd *) NULL) goto error_return; if (! bfd_check_format (element, bfd_object)) goto error_return; /* Doublecheck that we have not included this object already--it should be impossible, but there may be something wrong with the archive. */ if (element->archive_pass != 0) { bfd_set_error (bfd_error_bad_value); goto error_return; } element->archive_pass = 1; undefs_tail = info->hash->undefs_tail; if (! (*info->callbacks->add_archive_element) (info, element, symdef->name)) goto error_return; if (! elf_link_add_object_symbols (element, info)) goto error_return; /* If there are any new undefined symbols, we need to make another pass through the archive in order to see whether they can be defined. FIXME: This isn't perfect, because common symbols wind up on undefs_tail and because an undefined symbol which is defined later on in this pass does not require another pass. This isn't a bug, but it does make the code less efficient than it could be. */ if (undefs_tail != info->hash->undefs_tail) loop = true; /* Look backward to mark all symbols from this object file which we have already seen in this pass. */ mark = i; do { included[mark] = true; if (mark == 0) break; --mark; } while (symdefs[mark].file_offset == symdef->file_offset); /* We mark subsequent symbols from this object file as we go on through the loop. */ last = symdef->file_offset; } } while (loop); free (defined); free (included); return true; error_return: if (defined != (boolean *) NULL) free (defined); if (included != (boolean *) NULL) free (included); return false; } /* Record a new dynamic symbol. We record the dynamic symbols as we read the input files, since we need to have a list of all of them before we can determine the final sizes of the output sections. */ static INLINE boolean elf_link_record_dynamic_symbol (info, h) struct bfd_link_info *info; struct elf_link_hash_entry *h; { if (h->dynindx == -1) { h->dynindx = elf_hash_table (info)->dynsymcount; ++elf_hash_table (info)->dynsymcount; h->dynstr_index = bfd_add_to_strtab (elf_hash_table (info)->dynobj, elf_hash_table (info)->dynstr, h->root.root.string); if (h->dynstr_index == (unsigned long) -1) return false; } return true; } /* Add symbols from an ELF object file to the linker hash table. */ static boolean elf_link_add_object_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { boolean (*add_symbol_hook) PARAMS ((bfd *, struct bfd_link_info *, const Elf_Internal_Sym *, const char **, flagword *, asection **, bfd_vma *)); boolean collect; Elf_Internal_Shdr *hdr; size_t symcount; size_t extsymcount; size_t extsymoff; Elf_External_Sym *buf = NULL; struct elf_link_hash_entry **sym_hash; boolean dynamic; Elf_External_Dyn *dynbuf = NULL; struct elf_link_hash_entry *weaks; Elf_External_Sym *esym; Elf_External_Sym *esymend; add_symbol_hook = get_elf_backend_data (abfd)->elf_add_symbol_hook; collect = get_elf_backend_data (abfd)->collect; hdr = &elf_tdata (abfd)->symtab_hdr; symcount = hdr->sh_size / sizeof (Elf_External_Sym); /* The sh_info field of the symtab header tells us where the external symbols start. We don't care about the local symbols at this point. */ if (elf_bad_symtab (abfd)) { extsymcount = symcount; extsymoff = 0; } else { extsymcount = symcount - hdr->sh_info; extsymoff = hdr->sh_info; } buf = (Elf_External_Sym *) malloc (extsymcount * sizeof (Elf_External_Sym)); if (buf == NULL && extsymcount != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* We store a pointer to the hash table entry for each external symbol. */ sym_hash = ((struct elf_link_hash_entry **) bfd_alloc (abfd, extsymcount * sizeof (struct elf_link_hash_entry *))); if (sym_hash == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } elf_sym_hashes (abfd) = sym_hash; if (elf_elfheader (abfd)->e_type != ET_DYN) { dynamic = false; /* If we are creating a shared library, create all the dynamic sections immediately. We need to attach them to something, so we attach them to this BFD, provided it is the right format. FIXME: If there are no input BFD's of the same format as the output, we can't make a shared library. */ if (info->shared && elf_hash_table (info)->dynobj == NULL && abfd->xvec == info->hash->creator) { if (! elf_link_create_dynamic_sections (abfd, info)) goto error_return; elf_hash_table (info)->dynobj = abfd; } } else { asection *s; const char *name; unsigned long strindex; dynamic = true; /* You can't use -r against a dynamic object. There's no hope of using a dynamic object which does not exactly match the format of the output file. */ if (info->relocateable || info->hash->creator != abfd->xvec) { bfd_set_error (bfd_error_invalid_operation); goto error_return; } /* Find the name to use in a DT_NEEDED entry that refers to this object. If the object has a DT_SONAME entry, we use it. Otherwise, if the generic linker stuck something in elf_dt_needed_name, we use that. Otherwise, we just use the file name. */ name = bfd_get_filename (abfd); if (elf_dt_needed_name (abfd) != NULL) name = elf_dt_needed_name (abfd); s = bfd_get_section_by_name (abfd, ".dynamic"); if (s != NULL) { Elf_External_Dyn *extdyn; Elf_External_Dyn *extdynend; dynbuf = (Elf_External_Dyn *) malloc (s->_raw_size); if (dynbuf == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (! bfd_get_section_contents (abfd, s, (PTR) dynbuf, (file_ptr) 0, s->_raw_size)) goto error_return; extdyn = dynbuf; extdynend = extdyn + s->_raw_size / sizeof (Elf_External_Dyn); for (; extdyn < extdynend; extdyn++) { Elf_Internal_Dyn dyn; elf_swap_dyn_in (abfd, extdyn, &dyn); if (dyn.d_tag == DT_SONAME) { int elfsec; unsigned long link; elfsec = elf_section_from_bfd_section (abfd, s); if (elfsec == -1) goto error_return; link = elf_elfsections (abfd)[elfsec]->sh_link; name = elf_string_from_elf_section (abfd, link, dyn.d_un.d_val); if (name == NULL) goto error_return; break; } } free (dynbuf); dynbuf = NULL; } /* We do not want to include any of the sections in a dynamic object in the output file. We hack by simply clobbering the list of sections in the BFD. This could be handled more cleanly by, say, a new section flag; the existing SEC_NEVER_LOAD flag is not the one we want, because that one still implies that the section takes up space in the output file. */ abfd->sections = NULL; /* If this is the first dynamic object found in the link, create the special sections required for dynamic linking. We need to put them somewhere, and attaching them to the first dynamic object is as good place as any. */ if (elf_hash_table (info)->dynobj == NULL) { if (! elf_link_create_dynamic_sections (abfd, info)) goto error_return; elf_hash_table (info)->dynobj = abfd; } /* Add a DT_NEEDED entry for this dynamic object. */ strindex = bfd_add_to_strtab (abfd, elf_hash_table (info)->dynstr, name); if (strindex == (unsigned long) -1) goto error_return; if (! elf_add_dynamic_entry (info, DT_NEEDED, strindex)) goto error_return; } if (bfd_seek (abfd, hdr->sh_offset + extsymoff * sizeof (Elf_External_Sym), SEEK_SET) != 0 || (bfd_read ((PTR) buf, sizeof (Elf_External_Sym), extsymcount, abfd) != extsymcount * sizeof (Elf_External_Sym))) goto error_return; weaks = NULL; esymend = buf + extsymcount; for (esym = buf; esym < esymend; esym++, sym_hash++) { Elf_Internal_Sym sym; int bind; bfd_vma value; asection *sec; flagword flags; const char *name; struct elf_link_hash_entry *h = NULL; boolean definition; elf_swap_symbol_in (abfd, esym, &sym); flags = BSF_NO_FLAGS; sec = NULL; value = sym.st_value; *sym_hash = NULL; bind = ELF_ST_BIND (sym.st_info); if (bind == STB_LOCAL) { /* This should be impossible, since ELF requires that all global symbols follow all local symbols, and that sh_info point to the first global symbol. Unfortunatealy, Irix 5 screws this up. */ continue; } else if (bind == STB_GLOBAL) flags = BSF_GLOBAL; else if (bind == STB_WEAK) flags = BSF_WEAK; else { /* Leave it up to the processor backend. */ } if (sym.st_shndx == SHN_UNDEF) sec = bfd_und_section_ptr; else if (sym.st_shndx > 0 && sym.st_shndx < SHN_LORESERVE) { sec = section_from_elf_index (abfd, sym.st_shndx); if (sec == NULL) goto error_return; value -= sec->vma; } else if (sym.st_shndx == SHN_ABS) sec = bfd_abs_section_ptr; else if (sym.st_shndx == SHN_COMMON) { sec = bfd_com_section_ptr; /* What ELF calls the size we call the value. What ELF calls the value we call the alignment. */ value = sym.st_size; } else { /* Leave it up to the processor backend. */ } name = elf_string_from_elf_section (abfd, hdr->sh_link, sym.st_name); if (name == (const char *) NULL) goto error_return; if (add_symbol_hook) { if (! (*add_symbol_hook) (abfd, info, &sym, &name, &flags, &sec, &value)) goto error_return; /* The hook function sets the name to NULL if this symbol should be skipped for some reason. */ if (name == (const char *) NULL) continue; } /* Sanity check that all possibilities were handled. */ if (flags == BSF_NO_FLAGS || sec == (asection *) NULL) { bfd_set_error (bfd_error_bad_value); goto error_return; } if (bfd_is_und_section (sec) || bfd_is_com_section (sec)) definition = false; else definition = true; if (info->hash->creator->flavour == bfd_target_elf_flavour) { /* We need to look up the symbol now in order to get some of the dynamic object handling right. We pass the hash table entry in to _bfd_generic_link_add_one_symbol so that it does not have to look it up again. */ h = elf_link_hash_lookup (elf_hash_table (info), name, true, false, false); if (h == NULL) goto error_return; *sym_hash = h; /* If we are looking at a dynamic object, and this is a definition, we need to see if it has already been defined by some other object. If it has, we want to use the existing definition, and we do not want to report a multiple symbol definition error; we do this by clobbering sec to be bfd_und_section_ptr. */ if (dynamic && definition) { if (h->root.type == bfd_link_hash_defined) sec = bfd_und_section_ptr; } /* Similarly, if we are not looking at a dynamic object, and we have a definition, we want to override any definition we may have from a dynamic object. Symbols from regular files always take precedence over symbols from dynamic objects, even if they are defined after the dynamic object in the link. */ if (! dynamic && definition && h->root.type == bfd_link_hash_defined && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0 && (bfd_get_flavour (h->root.u.def.section->owner) == bfd_target_elf_flavour) && (elf_elfheader (h->root.u.def.section->owner)->e_type == ET_DYN)) { /* Change the hash table entry to undefined, and let _bfd_generic_link_add_one_symbol do the right thing with the new definition. */ h->root.type = bfd_link_hash_undefined; h->root.u.undef.abfd = h->root.u.def.section->owner; h->elf_link_hash_flags &=~ ELF_LINK_HASH_DEFINED_WEAK; } /* If this is a weak definition which we are going to use, and the symbol is currently undefined, record that the definition is weak. */ if (definition && (flags & BSF_WEAK) != 0 && ! bfd_is_und_section (sec) && (h->root.type == bfd_link_hash_new || h->root.type == bfd_link_hash_undefined || h->root.type == bfd_link_hash_weak)) h->elf_link_hash_flags |= ELF_LINK_HASH_DEFINED_WEAK; } if (! (_bfd_generic_link_add_one_symbol (info, abfd, name, flags, sec, value, (const char *) NULL, false, collect, (struct bfd_link_hash_entry **) sym_hash))) goto error_return; if (dynamic && definition && (flags & BSF_WEAK) != 0 && ELF_ST_TYPE (sym.st_info) != STT_FUNC && (*sym_hash)->weakdef == NULL) { /* Keep a list of all weak defined non function symbols from a dynamic object, using the weakdef field. Later in this function we will set the weakdef field to the correct value. We only put non-function symbols from dynamic objects on this list, because that happens to be the only time we need to know the normal symbol corresponding to a weak symbol, and the information is time consuming to figure out. If the weakdef field is not already NULL, then this symbol was already defined by some previous dynamic object, and we will be using that previous definition anyhow. */ (*sym_hash)->weakdef = weaks; weaks = *sym_hash; } if (info->hash->creator->flavour == bfd_target_elf_flavour) { int old_flags; boolean dynsym; int new_flag; /* Remember the symbol size, type and alignment. */ if (sym.st_size != 0) { /* FIXME: We should probably somehow give a warning if the symbol size changes. */ h->size = sym.st_size; } if (sym.st_shndx == SHN_COMMON && sym.st_value > h->align) h->align = sym.st_value; if (ELF_ST_TYPE (sym.st_info) != STT_NOTYPE) { /* FIXME: We should probably somehow give a warning if the symbol type changes. */ h->type = ELF_ST_TYPE (sym.st_info); } /* Set a flag in the hash table entry indicating the type of reference or definition we just found. Keep a count of the number of dynamic symbols we find. A dynamic symbol is one which is referenced or defined by both a regular object and a shared object, or one which is referenced or defined by more than one shared object. */ old_flags = h->elf_link_hash_flags; dynsym = false; if (! dynamic) { if (! definition) new_flag = ELF_LINK_HASH_REF_REGULAR; else new_flag = ELF_LINK_HASH_DEF_REGULAR; if ((old_flags & (ELF_LINK_HASH_DEF_DYNAMIC | ELF_LINK_HASH_REF_DYNAMIC)) != 0) dynsym = true; } else { if (! definition) new_flag = ELF_LINK_HASH_REF_DYNAMIC; else new_flag = ELF_LINK_HASH_DEF_DYNAMIC; if ((old_flags & new_flag) != 0) { if (! definition) new_flag = ELF_LINK_HASH_REF_DYNAMIC_MULTIPLE; else new_flag = ELF_LINK_HASH_DEF_DYNAMIC_MULTIPLE; dynsym = true; } else { if ((old_flags & (ELF_LINK_HASH_DEF_REGULAR | ELF_LINK_HASH_REF_REGULAR)) != 0) dynsym = true; } } h->elf_link_hash_flags |= new_flag; if (dynsym && h->dynindx == -1) { if (! elf_link_record_dynamic_symbol (info, h)) goto error_return; } } } /* Now set the weakdefs field correctly for all the weak defined symbols we found. The only way to do this is to search all the symbols. Since we only need the information for non functions in dynamic objects, that's the only time we actually put anything on the list WEAKS. We need this information so that if a regular object refers to a symbol defined weakly in a dynamic object, the real symbol in the dynamic object is also put in the dynamic symbols; we also must arrange for both symbols to point to the same memory location. We could handle the general case of symbol aliasing, but a general symbol alias can only be generated in assembler code, handling it correctly would be very time consuming, and other ELF linkers don't handle general aliasing either. */ while (weaks != NULL) { struct elf_link_hash_entry *hlook; asection *slook; bfd_vma vlook; struct elf_link_hash_entry **hpp; struct elf_link_hash_entry **hppend; hlook = weaks; weaks = hlook->weakdef; hlook->weakdef = NULL; BFD_ASSERT (hlook->root.type == bfd_link_hash_defined); slook = hlook->root.u.def.section; vlook = hlook->root.u.def.value; hpp = elf_sym_hashes (abfd); hppend = hpp + extsymcount; for (; hpp < hppend; hpp++) { struct elf_link_hash_entry *h; h = *hpp; if (h != hlook && h->root.type == bfd_link_hash_defined && h->root.u.def.section == slook && h->root.u.def.value == vlook) { hlook->weakdef = h; /* If the weak definition is in the list of dynamic symbols, make sure the real definition is put there as well. */ if (hlook->dynindx != -1 && h->dynindx == -1) { if (! elf_link_record_dynamic_symbol (info, h)) goto error_return; } break; } } } if (buf != NULL) free (buf); return true; error_return: if (buf != NULL) free (buf); if (dynbuf != NULL) free (dynbuf); return false; } /* Create some sections which will be filled in with dynamic linking information. The ABFD argument is an input file which is a dynamic object. The dynamic sections take up virtual memory space when the final executable is run, so we need to create them before addresses are assigned to the output sections. We work out the actual contents and size of these sections later. */ static boolean elf_link_create_dynamic_sections (abfd, info) bfd *abfd; struct bfd_link_info *info; { flagword flags; register asection *s; struct elf_link_hash_entry *h; struct elf_backend_data *bed; /* Note that we set the SEC_IN_MEMORY flag for all of these sections. */ flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY; /* A dynamically linked executable has a .interp section, but a shared library does not. */ if (! info->shared) { s = bfd_make_section (abfd, ".interp"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY)) return false; } s = bfd_make_section (abfd, ".dynamic"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags) || ! bfd_set_section_alignment (abfd, s, LOG_FILE_ALIGN)) return false; /* The special symbol _DYNAMIC is always set to the start of the .dynamic section. This call occurs before we have processed the symbols for any dynamic object, so we don't have to worry about overriding a dynamic definition. We could set _DYNAMIC in a linker script, but we only want to define it if we are, in fact, creating a .dynamic section. We don't want to define it if there is no .dynamic section, since on some ELF platforms the start up code examines it to decide how to initialize the process. */ h = NULL; if (! (_bfd_generic_link_add_one_symbol (info, abfd, "_DYNAMIC", BSF_GLOBAL, s, (bfd_vma) 0, (const char *) NULL, false, get_elf_backend_data (abfd)->collect, (struct bfd_link_hash_entry **) &h))) return false; h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR; s = bfd_make_section (abfd, ".dynsym"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, LOG_FILE_ALIGN)) return false; /* The first .dynsym symbol is a dummy. */ elf_hash_table (info)->dynsymcount = 1; s = bfd_make_section (abfd, ".dynstr"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY)) return false; /* Create a strtab to hold the dynamic symbol names. */ elf_hash_table (info)->dynstr = bfd_new_strtab (abfd); if (elf_hash_table (info)->dynstr == NULL) return false; s = bfd_make_section (abfd, ".hash"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, LOG_FILE_ALIGN)) return false; /* Let the backend create the rest of the sections. This lets the backend set the right flags. The backend will normally create the .got and .plt sections. */ bed = get_elf_backend_data (abfd); return (*bed->elf_backend_create_dynamic_sections) (abfd, info); } /* Add an entry to the .dynamic table. */ boolean elf_add_dynamic_entry (info, tag, val) struct bfd_link_info *info; bfd_vma tag; bfd_vma val; { Elf_Internal_Dyn dyn; bfd *dynobj; asection *s; size_t newsize; bfd_byte *newcontents; dynobj = elf_hash_table (info)->dynobj; s = bfd_get_section_by_name (dynobj, ".dynamic"); BFD_ASSERT (s != NULL); newsize = s->_raw_size + sizeof (Elf_External_Dyn); if (s->contents == NULL) newcontents = (bfd_byte *) malloc (newsize); else newcontents = (bfd_byte *) realloc (s->contents, newsize); if (newcontents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } dyn.d_tag = tag; dyn.d_un.d_val = val; elf_swap_dyn_out (dynobj, &dyn, (Elf_External_Dyn *) (newcontents + s->_raw_size)); s->_raw_size = newsize; s->contents = newcontents; return true; } /* Record an assignment to a symbol made by a linker script. We need this in case some dynamic object refers to this symbol. */ /*ARGSUSED*/ boolean NAME(bfd_elf,record_link_assignment) (output_bfd, info, name) bfd *output_bfd; struct bfd_link_info *info; const char *name; { struct elf_link_hash_entry *h; /* This is called after we have examined all the input objects. If the symbol does not exist, it merely means that no object refers to it, and we can just ignore it at this point. */ h = elf_link_hash_lookup (elf_hash_table (info), name, false, false, false); if (h == NULL) return true; h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR; if ((h->elf_link_hash_flags & (ELF_LINK_HASH_DEF_DYNAMIC | ELF_LINK_HASH_REF_DYNAMIC)) != 0 && h->dynindx == -1) { if (! elf_link_record_dynamic_symbol (info, h)) return false; /* If this is a weak defined symbol, and we know a corresponding real symbol from the same dynamic object, make sure the real symbol is also made into a dynamic symbol. */ if (h->weakdef != NULL && h->weakdef->dynindx == -1) { if (! elf_link_record_dynamic_symbol (info, h->weakdef)) return false; } } return true; } /* Array used to determine the number of hash table buckets to use based on the number of symbols there are. If there are fewer than 3 symbols we use 1 bucket, fewer than 17 symbols we use 3 buckets, fewer than 37 we use 17 buckets, and so forth. We never use more than 521 buckets. */ static const size_t elf_buckets[] = { 1, 3, 17, 37, 67, 97, 131, 197, 263, 521, 0 }; /* Set up the sizes and contents of the ELF dynamic sections. This is called by the ELF linker emulation before_allocation routine. We must set the sizes of the sections before the linker sets the addresses of the various sections. */ boolean NAME(bfd_elf,size_dynamic_sections) (output_bfd, info, sinterpptr) bfd *output_bfd; struct bfd_link_info *info; asection **sinterpptr; { bfd *dynobj; size_t dynsymcount; asection *s; Elf_Internal_Sym isym; size_t i; size_t bucketcount; struct elf_backend_data *bed; *sinterpptr = NULL; dynobj = elf_hash_table (info)->dynobj; dynsymcount = elf_hash_table (info)->dynsymcount; /* If there were no dynamic objects in the link, there is nothing to do here. */ if (dynobj == NULL) return true; *sinterpptr = bfd_get_section_by_name (dynobj, ".interp"); BFD_ASSERT (*sinterpptr != NULL || info->shared); /* Set the size of the .dynsym and .hash sections. We counted the number of dynamic symbols in elf_link_add_object_symbols. We will build the contents of .dynsym and .hash when we build the final symbol table, because until then we do not know the correct value to give the symbols. We built the .dynstr section as we went along in elf_link_add_object_symbols. */ s = bfd_get_section_by_name (dynobj, ".dynsym"); BFD_ASSERT (s != NULL); s->_raw_size = dynsymcount * sizeof (Elf_External_Sym); s->contents = (bfd_byte *) bfd_alloc (output_bfd, s->_raw_size); if (s->contents == NULL && s->_raw_size != 0) { bfd_set_error (bfd_error_no_memory); return false; } /* The first entry in .dynsym is a dummy symbol. */ isym.st_value = 0; isym.st_size = 0; isym.st_name = 0; isym.st_info = 0; isym.st_other = 0; isym.st_shndx = 0; elf_swap_symbol_out (output_bfd, &isym, (Elf_External_Sym *) s->contents); for (i = 0; elf_buckets[i] != 0; i++) { bucketcount = elf_buckets[i]; if (dynsymcount < elf_buckets[i + 1]) break; } s = bfd_get_section_by_name (dynobj, ".hash"); BFD_ASSERT (s != NULL); s->_raw_size = (2 + bucketcount + dynsymcount) * (ARCH_SIZE / 8); s->contents = (bfd_byte *) bfd_alloc (output_bfd, s->_raw_size); if (s->contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } memset (s->contents, 0, s->_raw_size); put_word (output_bfd, bucketcount, s->contents); put_word (output_bfd, dynsymcount, s->contents + (ARCH_SIZE / 8)); elf_hash_table (info)->bucketcount = bucketcount; s = bfd_get_section_by_name (dynobj, ".dynstr"); BFD_ASSERT (s != NULL); s->_raw_size = elf_hash_table (info)->dynstr->length; s->contents = (unsigned char *) elf_hash_table (info)->dynstr->tab; /* Find all symbols which were defined in a dynamic object and make the backend pick a reasonable value for them. */ elf_link_hash_traverse (elf_hash_table (info), elf_adjust_dynamic_symbol, (PTR) info); /* Add some entries to the .dynamic section. We fill in some of the values later, in elf_bfd_final_link, but we must add the entries now so that we know the final size of the .dynamic section. */ if (bfd_get_section_by_name (output_bfd, ".init") != NULL) { if (! elf_add_dynamic_entry (info, DT_INIT, 0)) return false; } if (bfd_get_section_by_name (output_bfd, ".fini") != NULL) { if (! elf_add_dynamic_entry (info, DT_FINI, 0)) return false; } if (! elf_add_dynamic_entry (info, DT_HASH, 0) || ! elf_add_dynamic_entry (info, DT_STRTAB, 0) || ! elf_add_dynamic_entry (info, DT_SYMTAB, 0) || ! elf_add_dynamic_entry (info, DT_STRSZ, elf_hash_table (info)->dynstr->length) || ! elf_add_dynamic_entry (info, DT_SYMENT, sizeof (Elf_External_Sym))) return false; /* The backend must work out the sizes of all the other dynamic sections. */ bed = get_elf_backend_data (output_bfd); if (! (*bed->elf_backend_size_dynamic_sections) (output_bfd, info)) return false; return elf_add_dynamic_entry (info, DT_NULL, 0); } /* Make the backend pick a good value for a dynamic symbol. This is called via elf_link_hash_traverse, and also calls itself recursively. */ static boolean elf_adjust_dynamic_symbol (h, data) struct elf_link_hash_entry *h; PTR data; { struct bfd_link_info *info = (struct bfd_link_info *) data; bfd *dynobj; struct elf_backend_data *bed; /* If this symbol is not defined by a dynamic object, or is not referenced by a regular object, ignore it. FIXME: Do we need to worry about symbols which are defined by one dynamic object and referenced by another one? */ if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0 || (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0 || (h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) == 0) return true; /* If we've already adjusted this symbol, don't do it again. This can happen via a recursive call. */ if ((h->elf_link_hash_flags & ELF_LINK_HASH_DYNAMIC_ADJUSTED) != 0) return true; /* Don't look at this symbol again. Note that we must set this after checking the above conditions, because we may look at a symbol once, decide not to do anything, and then get called recursively later after REF_REGULAR is set below. */ h->elf_link_hash_flags |= ELF_LINK_HASH_DYNAMIC_ADJUSTED; /* If this is a weak definition, and we know a real definition, and the real symbol is not itself defined by a regular object file, then get a good value for the real definition. We handle the real symbol first, for the convenience of the backend routine. Note that there is a confusing case here. If the real definition is defined by a regular object file, we don't get the real symbol from the dynamic object, but we do get the weak symbol. If the processor backend uses a COPY reloc, then if some routine in the dynamic object changes the real symbol, we will not see that change in the corresponding weak symbol. This is the way other ELF linkers work as well, and seems to be a result of the shared library model. I will clarify this issue. Most SVR4 shared libraries define the variable _timezone and define timezone as a weak synonym. The tzset call changes _timezone. If you write extern int timezone; int _timezone = 5; int main () { tzset (); printf ("%d %d\n", timezone, _timezone); } you might expect that, since timezone is a synonym for _timezone, the same number will print both times. However, if the processor backend uses a COPY reloc, then actually timezone will be copied into your process image, and, since you define _timezone yourself, _timezone will not. Thus timezone and _timezone will wind up at different memory locations. The tzset call will set _timezone, leaving timezone unchanged. */ if (h->weakdef != NULL) { struct elf_link_hash_entry *weakdef; BFD_ASSERT (h->root.type == bfd_link_hash_defined); weakdef = h->weakdef; BFD_ASSERT (weakdef->root.type == bfd_link_hash_defined); BFD_ASSERT (weakdef->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC); if ((weakdef->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0 || (weakdef->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) == 0) { /* This symbol is defined or referenced by a regular object file, so we will not do anything special. Clear weakdef for the convenience of the processor backend. */ h->weakdef = NULL; } else { /* There is an implicit reference by a regular object file via the weak symbol. */ weakdef->elf_link_hash_flags |= ELF_LINK_HASH_REF_REGULAR; if (! elf_adjust_dynamic_symbol (weakdef, (PTR) info)) return false; } } dynobj = elf_hash_table (info)->dynobj; bed = get_elf_backend_data (dynobj); if (! (*bed->elf_backend_adjust_dynamic_symbol) (info, h)) { /* FIXME: No way to return error. */ abort (); } return true; } /* Final phase of ELF linker. */ /* A structure we use to avoid passing large numbers of arguments. */ struct elf_final_link_info { /* General link information. */ struct bfd_link_info *info; /* Output BFD. */ bfd *output_bfd; /* Symbol string table. */ struct strtab *symstrtab; /* .dynsym section. */ asection *dynsym_sec; /* .hash section. */ asection *hash_sec; /* Buffer large enough to hold contents of any section. */ bfd_byte *contents; /* Buffer large enough to hold external relocs of any section. */ PTR external_relocs; /* Buffer large enough to hold internal relocs of any section. */ Elf_Internal_Rela *internal_relocs; /* Buffer large enough to hold external local symbols of any input BFD. */ Elf_External_Sym *external_syms; /* Buffer large enough to hold internal local symbols of any input BFD. */ Elf_Internal_Sym *internal_syms; /* Array large enough to hold a symbol index for each local symbol of any input BFD. */ long *indices; /* Array large enough to hold a section pointer for each local symbol of any input BFD. */ asection **sections; /* Buffer to hold swapped out symbols. */ Elf_External_Sym *symbuf; /* Number of swapped out symbols in buffer. */ size_t symbuf_count; /* Number of symbols which fit in symbuf. */ size_t symbuf_size; }; static boolean elf_link_output_sym PARAMS ((struct elf_final_link_info *, const char *, Elf_Internal_Sym *, asection *)); static boolean elf_link_flush_output_syms PARAMS ((struct elf_final_link_info *)); static boolean elf_link_output_extsym PARAMS ((struct elf_link_hash_entry *, PTR)); static boolean elf_link_input_bfd PARAMS ((struct elf_final_link_info *, bfd *)); static boolean elf_reloc_link_order PARAMS ((bfd *, struct bfd_link_info *, asection *, struct bfd_link_order *)); /* Do the final step of an ELF link. */ boolean elf_bfd_final_link (abfd, info) bfd *abfd; struct bfd_link_info *info; { bfd *dynobj; struct elf_final_link_info finfo; register asection *o; register struct bfd_link_order *p; register bfd *sub; size_t max_contents_size; size_t max_external_reloc_size; size_t max_internal_reloc_count; size_t max_sym_count; file_ptr off; Elf_Internal_Sym elfsym; unsigned int i; Elf_Internal_Shdr *symtab_hdr; Elf_Internal_Shdr *symstrtab_hdr; struct elf_backend_data *bed = get_elf_backend_data (abfd); if (info->shared) { fprintf (stderr, "Generating ELF shared libraries is not yet supported\n"); bfd_set_error (bfd_error_invalid_operation); return false; } dynobj = elf_hash_table (info)->dynobj; finfo.info = info; finfo.output_bfd = abfd; finfo.symstrtab = bfd_new_strtab (abfd); if (finfo.symstrtab == NULL) return false; if (dynobj == NULL) { finfo.dynsym_sec = NULL; finfo.hash_sec = NULL; } else { finfo.dynsym_sec = bfd_get_section_by_name (dynobj, ".dynsym"); finfo.hash_sec = bfd_get_section_by_name (dynobj, ".hash"); if (finfo.dynsym_sec == NULL || finfo.hash_sec == NULL) abort (); } finfo.contents = NULL; finfo.external_relocs = NULL; finfo.internal_relocs = NULL; finfo.external_syms = NULL; finfo.internal_syms = NULL; finfo.indices = NULL; finfo.sections = NULL; finfo.symbuf = NULL; finfo.symbuf_count = 0; /* Count up the number of relocations we will output for each output section, so that we know the sizes of the reloc sections. We also figure out some maximum sizes. */ max_contents_size = 0; max_external_reloc_size = 0; max_internal_reloc_count = 0; max_sym_count = 0; for (o = abfd->sections; o != (asection *) NULL; o = o->next) { o->reloc_count = 0; for (p = o->link_order_head; p != NULL; p = p->next) { if (p->type == bfd_section_reloc_link_order || p->type == bfd_symbol_reloc_link_order) ++o->reloc_count; else if (p->type == bfd_indirect_link_order) { asection *sec; sec = p->u.indirect.section; if (info->relocateable) o->reloc_count += sec->reloc_count; if (sec->_raw_size > max_contents_size) max_contents_size = sec->_raw_size; if (sec->_cooked_size > max_contents_size) max_contents_size = sec->_cooked_size; /* We are interested in just local symbols, not all symbols. */ if (bfd_get_flavour (sec->owner) == bfd_target_elf_flavour) { size_t sym_count; if (elf_bad_symtab (sec->owner)) sym_count = (elf_tdata (sec->owner)->symtab_hdr.sh_size / sizeof (Elf_External_Sym)); else sym_count = elf_tdata (sec->owner)->symtab_hdr.sh_info; if (sym_count > max_sym_count) max_sym_count = sym_count; if ((sec->flags & SEC_RELOC) != 0) { size_t ext_size; ext_size = elf_section_data (sec)->rel_hdr.sh_size; if (ext_size > max_external_reloc_size) max_external_reloc_size = ext_size; if (sec->reloc_count > max_internal_reloc_count) max_internal_reloc_count = sec->reloc_count; } } } } if (o->reloc_count > 0) o->flags |= SEC_RELOC; else { /* Explicitly clear the SEC_RELOC flag. The linker tends to set it (this is probably a bug) and if it is set assign_section_numbers will create a reloc section. */ o->flags &=~ SEC_RELOC; } } /* Figure out the file positions for everything but the symbol table and the relocs. We set symcount to force assign_section_numbers to create a symbol table. */ abfd->symcount = info->strip == strip_all ? 0 : 1; BFD_ASSERT (! abfd->output_has_begun); if (! elf_compute_section_file_positions (abfd, info)) goto error_return; /* That created the reloc sections. Set their sizes, and assign them file positions, and allocate some buffers. */ for (o = abfd->sections; o != NULL; o = o->next) { if ((o->flags & SEC_RELOC) != 0) { Elf_Internal_Shdr *rel_hdr; register struct elf_link_hash_entry **p, **pend; rel_hdr = &elf_section_data (o)->rel_hdr; rel_hdr->sh_size = rel_hdr->sh_entsize * o->reloc_count; /* The contents field must last into write_object_contents, so we allocate it with bfd_alloc rather than malloc. */ rel_hdr->contents = (PTR) bfd_alloc (abfd, rel_hdr->sh_size); if (rel_hdr->contents == NULL && rel_hdr->sh_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } p = ((struct elf_link_hash_entry **) malloc (o->reloc_count * sizeof (struct elf_link_hash_entry *))); if (p == NULL && o->reloc_count != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } elf_section_data (o)->rel_hashes = p; pend = p + o->reloc_count; for (; p < pend; p++) *p = NULL; /* Use the reloc_count field as an index when outputting the relocs. */ o->reloc_count = 0; } } assign_file_positions_for_relocs (abfd); /* We have now assigned file positions for all the sections except .symtab and .strtab. We start the .symtab section at the current file position, and write directly to it. We build the .strtab section in memory. When we add .dynsym support, we will build that in memory as well (.dynsym is smaller than .symtab). */ abfd->symcount = 0; symtab_hdr = &elf_tdata (abfd)->symtab_hdr; /* sh_name is set in prep_headers. */ symtab_hdr->sh_type = SHT_SYMTAB; symtab_hdr->sh_flags = 0; symtab_hdr->sh_addr = 0; symtab_hdr->sh_size = 0; symtab_hdr->sh_entsize = sizeof (Elf_External_Sym); /* sh_link is set in assign_section_numbers. */ /* sh_info is set below. */ /* sh_offset is set just below. */ symtab_hdr->sh_addralign = 4; /* FIXME: system dependent? */ off = elf_tdata (abfd)->next_file_pos; off = assign_file_position_for_section (symtab_hdr, off, true); /* Note that at this point elf_tdata (abfd)->next_file_pos is incorrect. We do not yet know the size of the .symtab section. We correct next_file_pos below, after we do know the size. */ /* Allocate a buffer to hold swapped out symbols. This is to avoid continuously seeking to the right position in the file. */ if (! info->keep_memory || max_sym_count < 20) finfo.symbuf_size = 20; else finfo.symbuf_size = max_sym_count; finfo.symbuf = ((Elf_External_Sym *) malloc (finfo.symbuf_size * sizeof (Elf_External_Sym))); if (finfo.symbuf == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* Start writing out the symbol table. The first symbol is always a dummy symbol. */ elfsym.st_value = 0; elfsym.st_size = 0; elfsym.st_info = 0; elfsym.st_other = 0; elfsym.st_shndx = SHN_UNDEF; if (! elf_link_output_sym (&finfo, (const char *) NULL, &elfsym, bfd_und_section_ptr)) goto error_return; #if 0 /* Some standard ELF linkers do this, but we don't because it causes bootstrap comparison failures. */ /* Output a file symbol for the output file as the second symbol. We output this even if we are discarding local symbols, although I'm not sure if this is correct. */ elfsym.st_value = 0; elfsym.st_size = 0; elfsym.st_info = ELF_ST_INFO (STB_LOCAL, STT_FILE); elfsym.st_other = 0; elfsym.st_shndx = SHN_ABS; if (! elf_link_output_sym (&finfo, bfd_get_filename (abfd), &elfsym, bfd_abs_section_ptr)) goto error_return; #endif /* Output a symbol for each section. We output these even if we are discarding local symbols, since they are used for relocs. These symbols have no names. We store the index of each one in the index field of the section, so that we can find it again when outputting relocs. */ elfsym.st_value = 0; elfsym.st_size = 0; elfsym.st_info = ELF_ST_INFO (STB_LOCAL, STT_SECTION); elfsym.st_other = 0; for (i = 1; i < elf_elfheader (abfd)->e_shnum; i++) { o = section_from_elf_index (abfd, i); if (! bfd_is_abs_section (o)) o->target_index = abfd->symcount; elfsym.st_shndx = i; if (! elf_link_output_sym (&finfo, (const char *) NULL, &elfsym, o)) goto error_return; } /* Allocate some memory to hold information read in from the input files. */ finfo.contents = (bfd_byte *) malloc (max_contents_size); finfo.external_relocs = (PTR) malloc (max_external_reloc_size); finfo.internal_relocs = ((Elf_Internal_Rela *) malloc (max_internal_reloc_count * sizeof (Elf_Internal_Rela))); finfo.external_syms = ((Elf_External_Sym *) malloc (max_sym_count * sizeof (Elf_External_Sym))); finfo.internal_syms = ((Elf_Internal_Sym *) malloc (max_sym_count * sizeof (Elf_Internal_Sym))); finfo.indices = (long *) malloc (max_sym_count * sizeof (long)); finfo.sections = (asection **) malloc (max_sym_count * sizeof (asection *)); if ((finfo.contents == NULL && max_contents_size != 0) || (finfo.external_relocs == NULL && max_external_reloc_size != 0) || (finfo.internal_relocs == NULL && max_internal_reloc_count != 0) || (finfo.external_syms == NULL && max_sym_count != 0) || (finfo.internal_syms == NULL && max_sym_count != 0) || (finfo.indices == NULL && max_sym_count != 0) || (finfo.sections == NULL && max_sym_count != 0)) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* Since ELF permits relocations to be against local symbols, we must have the local symbols available when we do the relocations. Since we would rather only read the local symbols once, and we would rather not keep them in memory, we handle all the relocations for a single input file at the same time. Unfortunately, there is no way to know the total number of local symbols until we have seen all of them, and the local symbol indices precede the global symbol indices. This means that when we are generating relocateable output, and we see a reloc against a global symbol, we can not know the symbol index until we have finished examining all the local symbols to see which ones we are going to output. To deal with this, we keep the relocations in memory, and don't output them until the end of the link. This is an unfortunate waste of memory, but I don't see a good way around it. Fortunately, it only happens when performing a relocateable link, which is not the common case. FIXME: If keep_memory is set we could write the relocs out and then read them again; I don't know how bad the memory loss will be. */ for (sub = info->input_bfds; sub != NULL; sub = sub->next) sub->output_has_begun = false; for (o = abfd->sections; o != NULL; o = o->next) { for (p = o->link_order_head; p != NULL; p = p->next) { if (p->type == bfd_indirect_link_order && (bfd_get_flavour (p->u.indirect.section->owner) == bfd_target_elf_flavour)) { sub = p->u.indirect.section->owner; if (! sub->output_has_begun) { if (! elf_link_input_bfd (&finfo, sub)) goto error_return; sub->output_has_begun = true; } } else if (p->type == bfd_section_reloc_link_order || p->type == bfd_symbol_reloc_link_order) { if (! elf_reloc_link_order (abfd, info, o, p)) goto error_return; } else { if (! _bfd_default_link_order (abfd, info, o, p)) goto error_return; } } } /* That wrote out all the local symbols. Finish up the symbol table with the global symbols. */ /* The sh_info field records the index of the first non local symbol. */ symtab_hdr->sh_info = abfd->symcount; if (dynobj != NULL) elf_section_data (finfo.dynsym_sec->output_section)->this_hdr.sh_info = 1; /* We get the global symbols from the hash table. */ elf_link_hash_traverse (elf_hash_table (info), elf_link_output_extsym, (PTR) &finfo); /* Flush all symbols to the file. */ if (! elf_link_flush_output_syms (&finfo)) return false; /* Now we know the size of the symtab section. */ off += symtab_hdr->sh_size; /* Finish up the symbol string table (.strtab) section. */ symstrtab_hdr = &elf_tdata (abfd)->strtab_hdr; /* sh_name was set in prep_headers. */ symstrtab_hdr->sh_type = SHT_STRTAB; symstrtab_hdr->sh_flags = 0; symstrtab_hdr->sh_addr = 0; symstrtab_hdr->sh_size = finfo.symstrtab->length; symstrtab_hdr->sh_entsize = 0; symstrtab_hdr->sh_link = 0; symstrtab_hdr->sh_info = 0; /* sh_offset is set just below. */ symstrtab_hdr->sh_addralign = 1; symstrtab_hdr->contents = (PTR) finfo.symstrtab->tab; off = assign_file_position_for_section (symstrtab_hdr, off, true); elf_tdata (abfd)->next_file_pos = off; /* Adjust the relocs to have the correct symbol indices. */ for (o = abfd->sections; o != NULL; o = o->next) { struct elf_link_hash_entry **rel_hash; Elf_Internal_Shdr *rel_hdr; if ((o->flags & SEC_RELOC) == 0) continue; rel_hash = elf_section_data (o)->rel_hashes; rel_hdr = &elf_section_data (o)->rel_hdr; for (i = 0; i < o->reloc_count; i++, rel_hash++) { if (*rel_hash == NULL) continue; BFD_ASSERT ((*rel_hash)->indx >= 0); if (rel_hdr->sh_entsize == sizeof (Elf_External_Rel)) { Elf_External_Rel *erel; Elf_Internal_Rel irel; erel = (Elf_External_Rel *) rel_hdr->contents + i; elf_swap_reloc_in (abfd, erel, &irel); irel.r_info = ELF_R_INFO ((*rel_hash)->indx, ELF_R_TYPE (irel.r_info)); elf_swap_reloc_out (abfd, &irel, erel); } else { Elf_External_Rela *erela; Elf_Internal_Rela irela; BFD_ASSERT (rel_hdr->sh_entsize == sizeof (Elf_External_Rela)); erela = (Elf_External_Rela *) rel_hdr->contents + i; elf_swap_reloca_in (abfd, erela, &irela); irela.r_info = ELF_R_INFO ((*rel_hash)->indx, ELF_R_TYPE (irela.r_info)); elf_swap_reloca_out (abfd, &irela, erela); } } /* Set the reloc_count field to 0 to prevent write_relocs from trying to swap the relocs out itself. */ o->reloc_count = 0; } /* If we are linking against a dynamic object, finish up the dynamic linking information. */ if (dynobj != NULL) { Elf_External_Dyn *dyncon, *dynconend; /* Fix up .dynamic entries. */ o = bfd_get_section_by_name (dynobj, ".dynamic"); BFD_ASSERT (o != NULL); dyncon = (Elf_External_Dyn *) o->contents; dynconend = (Elf_External_Dyn *) (o->contents + o->_raw_size); for (; dyncon < dynconend; dyncon++) { Elf_Internal_Dyn dyn; const char *name; unsigned int type; elf_swap_dyn_in (dynobj, dyncon, &dyn); switch (dyn.d_tag) { default: break; case DT_INIT: name = ".init"; goto get_vma; case DT_FINI: name = ".fini"; goto get_vma; case DT_HASH: name = ".hash"; goto get_vma; case DT_STRTAB: name = ".dynstr"; goto get_vma; case DT_SYMTAB: name = ".dynsym"; get_vma: o = bfd_get_section_by_name (abfd, name); BFD_ASSERT (o != NULL); dyn.d_un.d_ptr = o->vma; elf_swap_dyn_out (dynobj, &dyn, dyncon); break; case DT_REL: case DT_RELA: case DT_RELSZ: case DT_RELASZ: if (dyn.d_tag == DT_REL || dyn.d_tag == DT_RELSZ) type = SHT_REL; else type = SHT_RELA; dyn.d_un.d_val = 0; for (i = 1; i < elf_elfheader (abfd)->e_shnum; i++) { Elf_Internal_Shdr *hdr; hdr = elf_elfsections (abfd)[i]; if (hdr->sh_type == type && (hdr->sh_flags & SHF_ALLOC) != 0) { if (dyn.d_tag == DT_RELSZ || dyn.d_tag == DT_RELASZ) dyn.d_un.d_val += hdr->sh_size; else { if (dyn.d_un.d_val == 0 || hdr->sh_addr < dyn.d_un.d_val) dyn.d_un.d_val = hdr->sh_addr; } } } elf_swap_dyn_out (dynobj, &dyn, dyncon); break; } } if (! (*bed->elf_backend_finish_dynamic_sections) (abfd, info)) goto error_return; for (o = dynobj->sections; o != NULL; o = o->next) { if ((o->flags & SEC_HAS_CONTENTS) == 0) continue; if ((o->flags & SEC_IN_MEMORY) == 0) { BFD_ASSERT (info->shared); continue; } if (! bfd_set_section_contents (abfd, o->output_section, o->contents, o->output_offset, o->_raw_size)) goto error_return; } } /* Now backend stuff. */ if (bed->elf_backend_final_write_processing) (*bed->elf_backend_final_write_processing) (abfd, NULL); if (finfo.contents != NULL) free (finfo.contents); if (finfo.external_relocs != NULL) free (finfo.external_relocs); if (finfo.internal_relocs != NULL) free (finfo.internal_relocs); if (finfo.external_syms != NULL) free (finfo.external_syms); if (finfo.internal_syms != NULL) free (finfo.internal_syms); if (finfo.indices != NULL) free (finfo.indices); if (finfo.sections != NULL) free (finfo.sections); if (finfo.symbuf != NULL) free (finfo.symbuf); for (o = abfd->sections; o != NULL; o = o->next) { if ((o->flags & SEC_RELOC) != 0 && elf_section_data (o)->rel_hashes != NULL) free (elf_section_data (o)->rel_hashes); } return true; error_return: if (finfo.contents != NULL) free (finfo.contents); if (finfo.external_relocs != NULL) free (finfo.external_relocs); if (finfo.internal_relocs != NULL) free (finfo.internal_relocs); if (finfo.external_syms != NULL) free (finfo.external_syms); if (finfo.internal_syms != NULL) free (finfo.internal_syms); if (finfo.indices != NULL) free (finfo.indices); if (finfo.sections != NULL) free (finfo.sections); if (finfo.symbuf != NULL) free (finfo.symbuf); for (o = abfd->sections; o != NULL; o = o->next) { if ((o->flags & SEC_RELOC) != 0 && elf_section_data (o)->rel_hashes != NULL) free (elf_section_data (o)->rel_hashes); } return false; } /* Add a symbol to the output symbol table. */ static boolean elf_link_output_sym (finfo, name, elfsym, input_sec) struct elf_final_link_info *finfo; const char *name; Elf_Internal_Sym *elfsym; asection *input_sec; { boolean (*output_symbol_hook) PARAMS ((bfd *, struct bfd_link_info *info, const char *, Elf_Internal_Sym *, asection *)); output_symbol_hook = get_elf_backend_data (finfo->output_bfd)-> elf_backend_link_output_symbol_hook; if (output_symbol_hook != NULL) { if (! ((*output_symbol_hook) (finfo->output_bfd, finfo->info, name, elfsym, input_sec))) return false; } if (name == (const char *) NULL || *name == '\0') elfsym->st_name = 0; else { elfsym->st_name = bfd_add_to_strtab (finfo->output_bfd, finfo->symstrtab, name); if (elfsym->st_name == (unsigned long) -1) return false; } if (finfo->symbuf_count >= finfo->symbuf_size) { if (! elf_link_flush_output_syms (finfo)) return false; } elf_swap_symbol_out (finfo->output_bfd, elfsym, finfo->symbuf + finfo->symbuf_count); ++finfo->symbuf_count; ++finfo->output_bfd->symcount; return true; } /* Flush the output symbols to the file. */ static boolean elf_link_flush_output_syms (finfo) struct elf_final_link_info *finfo; { Elf_Internal_Shdr *symtab; symtab = &elf_tdata (finfo->output_bfd)->symtab_hdr; if (bfd_seek (finfo->output_bfd, symtab->sh_offset + symtab->sh_size, SEEK_SET) != 0 || (bfd_write ((PTR) finfo->symbuf, finfo->symbuf_count, sizeof (Elf_External_Sym), finfo->output_bfd) != finfo->symbuf_count * sizeof (Elf_External_Sym))) return false; symtab->sh_size += finfo->symbuf_count * sizeof (Elf_External_Sym); finfo->symbuf_count = 0; return true; } /* Add an external symbol to the symbol table. This is called from the hash table traversal routine. */ static boolean elf_link_output_extsym (h, data) struct elf_link_hash_entry *h; PTR data; { struct elf_final_link_info *finfo = (struct elf_final_link_info *) data; boolean strip; Elf_Internal_Sym sym; asection *input_sec; /* We don't want to output symbols that have never been mentioned by a regular file, or that we have been told to strip. However, if h->indx is set to -2, the symbol is used by a reloc and we must output it. */ if (h->indx == -2) strip = false; else if (((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0 || (h->elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) != 0) && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0 && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) == 0) strip = true; else if (finfo->info->strip == strip_all || (finfo->info->strip == strip_some && bfd_hash_lookup (finfo->info->keep_hash, h->root.root.string, false, false) == NULL)) strip = true; else strip = false; /* If we're stripping it, and it's not a dynamic symbol, there's nothing else to do. */ if (strip && h->dynindx == -1) return true; sym.st_value = 0; sym.st_size = h->size; sym.st_other = 0; if (h->root.type == bfd_link_hash_weak || (h->elf_link_hash_flags & ELF_LINK_HASH_DEFINED_WEAK) != 0) sym.st_info = ELF_ST_INFO (STB_WEAK, h->type); else sym.st_info = ELF_ST_INFO (STB_GLOBAL, h->type); switch (h->root.type) { default: case bfd_link_hash_new: abort (); return false; case bfd_link_hash_undefined: input_sec = bfd_und_section_ptr; sym.st_shndx = SHN_UNDEF; break; case bfd_link_hash_weak: input_sec = bfd_und_section_ptr; sym.st_shndx = SHN_UNDEF; break; case bfd_link_hash_defined: { input_sec = h->root.u.def.section; if (input_sec->output_section != NULL) { sym.st_shndx = elf_section_from_bfd_section (finfo->output_bfd, input_sec->output_section); if (sym.st_shndx == (unsigned short) -1) { /* FIXME: No way to handle errors. */ abort (); } /* ELF symbols in relocateable files are section relative, but in nonrelocateable files they are virtual addresses. */ sym.st_value = h->root.u.def.value + input_sec->output_offset; if (! finfo->info->relocateable) sym.st_value += input_sec->output_section->vma; } else { BFD_ASSERT (bfd_get_flavour (input_sec->owner) == bfd_target_elf_flavour && elf_elfheader (input_sec->owner)->e_type == ET_DYN); sym.st_shndx = SHN_UNDEF; input_sec = bfd_und_section_ptr; } } break; case bfd_link_hash_common: input_sec = bfd_com_section_ptr; sym.st_shndx = SHN_COMMON; if (h->align == 0) sym.st_value = 1; else sym.st_value = h->align; break; case bfd_link_hash_indirect: case bfd_link_hash_warning: /* I have no idea how these should be handled. */ return true; } /* If this symbol should be put in the .dynsym section, then put it there now. We have already know the symbol index. We also fill in the entry in the .hash section. */ if (h->dynindx != -1) { struct elf_backend_data *bed; size_t bucketcount; size_t bucket; bfd_byte *bucketpos; bfd_vma chain; sym.st_name = h->dynstr_index; /* Give the processor backend a chance to tweak the symbol value, and also to finish up anything that needs to be done for this symbol. */ bed = get_elf_backend_data (finfo->output_bfd); if (! ((*bed->elf_backend_finish_dynamic_symbol) (finfo->output_bfd, finfo->info, h, &sym))) { /* FIXME: No way to return error. */ abort (); } elf_swap_symbol_out (finfo->output_bfd, &sym, ((Elf_External_Sym *) finfo->dynsym_sec->contents + h->dynindx)); bucketcount = elf_hash_table (finfo->info)->bucketcount; bucket = bfd_elf_hash (h->root.root.string) % bucketcount; bucketpos = ((bfd_byte *) finfo->hash_sec->contents + (bucket + 2) * (ARCH_SIZE / 8)); chain = get_word (finfo->output_bfd, bucketpos); put_word (finfo->output_bfd, h->dynindx, bucketpos); put_word (finfo->output_bfd, chain, ((bfd_byte *) finfo->hash_sec->contents + (bucketcount + 2 + h->dynindx) * (ARCH_SIZE / 8))); } /* If we're stripping it, then it was just a dynamic symbol, and there's nothing else to do. */ if (strip) return true; h->indx = finfo->output_bfd->symcount; if (! elf_link_output_sym (finfo, h->root.root.string, &sym, input_sec)) { /* FIXME: No way to return error. */ abort (); } return true; } /* Link an input file into the linker output file. This function handles all the sections and relocations of the input file at once. This is so that we only have to read the local symbols once, and don't have to keep them in memory. */ static boolean elf_link_input_bfd (finfo, input_bfd) struct elf_final_link_info *finfo; bfd *input_bfd; { boolean (*relocate_section) PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *, Elf_Internal_Rela *, Elf_Internal_Sym *, asection **, char *)); bfd *output_bfd; Elf_Internal_Shdr *symtab_hdr; size_t locsymcount; size_t extsymoff; Elf_External_Sym *esym; Elf_External_Sym *esymend; Elf_Internal_Sym *isym; long *pindex; asection **ppsection; asection *o; output_bfd = finfo->output_bfd; relocate_section = get_elf_backend_data (output_bfd)->elf_backend_relocate_section; /* If this is a dynamic object, we don't want to do anything here: we don't want the local symbols, and we don't want the section contents. */ if (elf_elfheader (input_bfd)->e_type == ET_DYN) return true; symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr; if (elf_bad_symtab (input_bfd)) { locsymcount = symtab_hdr->sh_size / sizeof (Elf_External_Sym); extsymoff = 0; } else { locsymcount = symtab_hdr->sh_info; extsymoff = symtab_hdr->sh_info; } /* Read the local symbols. */ if (locsymcount > 0 && (bfd_seek (input_bfd, symtab_hdr->sh_offset, SEEK_SET) != 0 || (bfd_read (finfo->external_syms, sizeof (Elf_External_Sym), locsymcount, input_bfd) != locsymcount * sizeof (Elf_External_Sym)))) return false; /* Swap in the local symbols and write out the ones which we know are going into the output file. */ esym = finfo->external_syms; esymend = esym + locsymcount; isym = finfo->internal_syms; pindex = finfo->indices; ppsection = finfo->sections; for (; esym < esymend; esym++, isym++, pindex++, ppsection++) { asection *isec; const char *name; bfd_vma oldval; elf_swap_symbol_in (input_bfd, esym, isym); *pindex = -1; if (elf_bad_symtab (input_bfd)) { if (ELF_ST_BIND (isym->st_info) != STB_LOCAL) { *ppsection = NULL; continue; } } if (isym->st_shndx == SHN_UNDEF) isec = bfd_und_section_ptr; else if (isym->st_shndx > 0 && isym->st_shndx < SHN_LORESERVE) { isec = section_from_elf_index (input_bfd, isym->st_shndx); if (isec == NULL) return false; } else if (isym->st_shndx == SHN_ABS) isec = bfd_abs_section_ptr; else if (isym->st_shndx == SHN_COMMON) isec = bfd_com_section_ptr; else { /* Who knows? */ isec = NULL; } *ppsection = isec; /* Don't output the first, undefined, symbol. */ if (esym == finfo->external_syms) continue; /* If we are stripping all symbols, we don't want to output this one. */ if (finfo->info->strip == strip_all) continue; /* We never output section symbols. Instead, we use the section symbol of the corresponding section in the output file. */ if (ELF_ST_TYPE (isym->st_info) == STT_SECTION) continue; /* If we are discarding all local symbols, we don't want to output this one. If we are generating a relocateable output file, then some of the local symbols may be required by relocs; we output them below as we discover that they are needed. */ if (finfo->info->discard == discard_all) continue; /* Get the name of the symbol. */ name = elf_string_from_elf_section (input_bfd, symtab_hdr->sh_link, isym->st_name); if (name == NULL) return false; /* See if we are discarding symbols with this name. */ if ((finfo->info->strip == strip_some && (bfd_hash_lookup (finfo->info->keep_hash, name, false, false) == NULL)) || (finfo->info->discard == discard_l && strncmp (name, finfo->info->lprefix, finfo->info->lprefix_len) == 0)) continue; /* If we get here, we are going to output this symbol. */ /* Adjust the section index for the output file. */ isym->st_shndx = elf_section_from_bfd_section (output_bfd, isec->output_section); if (isym->st_shndx == (unsigned short) -1) return false; *pindex = output_bfd->symcount; /* ELF symbols in relocateable files are section relative, but in executable files they are virtual addresses. Note that this code assumes that all ELF sections have an associated BFD section with a reasonable value for output_offset; below we assume that they also have a reasonable value for output_section. Any special sections must be set up to meet these requirements. */ oldval = isym->st_value; isym->st_value += isec->output_offset; if (! finfo->info->relocateable) isym->st_value += isec->output_section->vma; if (! elf_link_output_sym (finfo, name, isym, isec)) return false; /* Restore the old value for reloc handling. */ isym->st_value = oldval; } /* Relocate the contents of each section. */ for (o = input_bfd->sections; o != NULL; o = o->next) { Elf_Internal_Shdr *input_rel_hdr; if ((o->flags & SEC_HAS_CONTENTS) == 0) continue; if ((o->flags & SEC_IN_MEMORY) != 0 && input_bfd == elf_hash_table (finfo->info)->dynobj) { /* Section was created by elf_link_create_dynamic_sections. FIXME: This test is fragile. */ continue; } /* Read the contents of the section. */ if (! bfd_get_section_contents (input_bfd, o, finfo->contents, (file_ptr) 0, o->_raw_size)) return false; if ((o->flags & SEC_RELOC) != 0) { PTR external_relocs; /* Get the external relocs. They may have been cached. */ external_relocs = elf_section_data (o)->relocs; if (external_relocs == NULL) { input_rel_hdr = &elf_section_data (o)->rel_hdr; if ((bfd_seek (input_bfd, input_rel_hdr->sh_offset, SEEK_SET) != 0) || (bfd_read (finfo->external_relocs, 1, input_rel_hdr->sh_size, input_bfd) != input_rel_hdr->sh_size)) return false; external_relocs = finfo->external_relocs; } /* Swap in the relocs. For convenience, we always produce an Elf_Internal_Rela array; if the relocs are Rel, we set the addend to 0. */ if (input_rel_hdr->sh_entsize == sizeof (Elf_External_Rel)) { Elf_External_Rel *erel; Elf_External_Rel *erelend; Elf_Internal_Rela *irela; erel = (Elf_External_Rel *) external_relocs; erelend = erel + o->reloc_count; irela = finfo->internal_relocs; for (; erel < erelend; erel++, irela++) { Elf_Internal_Rel irel; elf_swap_reloc_in (input_bfd, erel, &irel); irela->r_offset = irel.r_offset; irela->r_info = irel.r_info; irela->r_addend = 0; } } else { Elf_External_Rela *erela; Elf_External_Rela *erelaend; Elf_Internal_Rela *irela; BFD_ASSERT (input_rel_hdr->sh_entsize == sizeof (Elf_External_Rela)); erela = (Elf_External_Rela *) external_relocs; erelaend = erela + o->reloc_count; irela = finfo->internal_relocs; for (; erela < erelaend; erela++, irela++) elf_swap_reloca_in (input_bfd, erela, irela); } /* Relocate the section by invoking a back end routine. The back end routine is responsible for adjusting the section contents as necessary, and (if using Rela relocs and generating a relocateable output file) adjusting the reloc addend as necessary. The back end routine does not have to worry about setting the reloc address or the reloc symbol index. The back end routine is given a pointer to the swapped in internal symbols, and can access the hash table entries for the external symbols via elf_sym_hashes (input_bfd). When generating relocateable output, the back end routine must handle STB_LOCAL/STT_SECTION symbols specially. The output symbol is going to be a section symbol corresponding to the output section, which will require the addend to be adjusted. */ if (! (*relocate_section) (output_bfd, finfo->info, input_bfd, o, finfo->contents, finfo->internal_relocs, finfo->internal_syms, finfo->sections, finfo->symstrtab->tab)) return false; if (finfo->info->relocateable) { Elf_Internal_Rela *irela; Elf_Internal_Rela *irelaend; struct elf_link_hash_entry **rel_hash; Elf_Internal_Shdr *output_rel_hdr; /* Adjust the reloc addresses and symbol indices. */ irela = finfo->internal_relocs; irelaend = irela + o->reloc_count; rel_hash = (elf_section_data (o->output_section)->rel_hashes + o->output_section->reloc_count); for (; irela < irelaend; irela++, rel_hash++) { long r_symndx; Elf_Internal_Sym *isym; asection *sec; irela->r_offset += o->output_offset; r_symndx = ELF_R_SYM (irela->r_info); if (r_symndx == 0) continue; if (r_symndx >= locsymcount || (elf_bad_symtab (input_bfd) && finfo->sections[r_symndx] == NULL)) { long indx; /* This is a reloc against a global symbol. We have not yet output all the local symbols, so we do not know the symbol index of any global symbol. We set the rel_hash entry for this reloc to point to the global hash table entry for this symbol. The symbol index is then set at the end of elf_bfd_final_link. */ indx = r_symndx - extsymoff; *rel_hash = elf_sym_hashes (input_bfd)[indx]; /* Setting the index to -2 tells elf_link_output_extsym that this symbol is used by a reloc. */ BFD_ASSERT ((*rel_hash)->indx < 0); (*rel_hash)->indx = -2; continue; } /* This is a reloc against a local symbol. */ *rel_hash = NULL; isym = finfo->internal_syms + r_symndx; sec = finfo->sections[r_symndx]; if (ELF_ST_TYPE (isym->st_info) == STT_SECTION) { /* I suppose the backend ought to fill in the section of any STT_SECTION symbol against a processor specific section. */ if (sec != NULL && bfd_is_abs_section (sec)) r_symndx = 0; else if (sec == NULL || sec->owner == NULL) { bfd_set_error (bfd_error_bad_value); return false; } else { r_symndx = sec->output_section->target_index; if (r_symndx == 0) abort (); } } else { if (finfo->indices[r_symndx] == -1) { unsigned long link; const char *name; asection *osec; if (finfo->info->strip == strip_all) { /* You can't do ld -r -s. */ bfd_set_error (bfd_error_invalid_operation); return false; } /* This symbol was skipped earlier, but since it is needed by a reloc, we must output it now. */ link = symtab_hdr->sh_link; name = elf_string_from_elf_section (input_bfd, link, isym->st_name); if (name == NULL) return false; osec = sec->output_section; isym->st_shndx = elf_section_from_bfd_section (output_bfd, osec); if (isym->st_shndx == (unsigned short) -1) return false; isym->st_value += sec->output_offset; if (! finfo->info->relocateable) isym->st_value += osec->vma; finfo->indices[r_symndx] = output_bfd->symcount; if (! elf_link_output_sym (finfo, name, isym, sec)) return false; } r_symndx = finfo->indices[r_symndx]; } irela->r_info = ELF_R_INFO (r_symndx, ELF_R_TYPE (irela->r_info)); } /* Swap out the relocs. */ output_rel_hdr = &elf_section_data (o->output_section)->rel_hdr; BFD_ASSERT (output_rel_hdr->sh_entsize == input_rel_hdr->sh_entsize); irela = finfo->internal_relocs; irelaend = irela + o->reloc_count; if (input_rel_hdr->sh_entsize == sizeof (Elf_External_Rel)) { Elf_External_Rel *erel; erel = ((Elf_External_Rel *) output_rel_hdr->contents + o->output_section->reloc_count); for (; irela < irelaend; irela++, erel++) { Elf_Internal_Rel irel; irel.r_offset = irela->r_offset; irel.r_info = irela->r_info; BFD_ASSERT (irela->r_addend == 0); elf_swap_reloc_out (output_bfd, &irel, erel); } } else { Elf_External_Rela *erela; BFD_ASSERT (input_rel_hdr->sh_entsize == sizeof (Elf_External_Rela)); erela = ((Elf_External_Rela *) output_rel_hdr->contents + o->output_section->reloc_count); for (; irela < irelaend; irela++, erela++) elf_swap_reloca_out (output_bfd, irela, erela); } o->output_section->reloc_count += o->reloc_count; } } /* Write out the modified section contents. */ if (! bfd_set_section_contents (output_bfd, o->output_section, finfo->contents, o->output_offset, (o->_cooked_size != 0 ? o->_cooked_size : o->_raw_size))) return false; } return true; } /* Generate a reloc when linking an ELF file. This is a reloc requested by the linker, and does come from any input file. This is used to build constructor and destructor tables when linking with -Ur. */ static boolean elf_reloc_link_order (output_bfd, info, output_section, link_order) bfd *output_bfd; struct bfd_link_info *info; asection *output_section; struct bfd_link_order *link_order; { const reloc_howto_type *howto; long indx; bfd_vma offset; struct elf_link_hash_entry **rel_hash_ptr; Elf_Internal_Shdr *rel_hdr; howto = bfd_reloc_type_lookup (output_bfd, link_order->u.reloc.p->reloc); if (howto == NULL) { bfd_set_error (bfd_error_bad_value); return false; } /* If this is an inplace reloc, we must write the addend into the object file. */ if (howto->partial_inplace && link_order->u.reloc.p->addend != 0) { bfd_size_type size; bfd_reloc_status_type rstat; bfd_byte *buf; boolean ok; size = bfd_get_reloc_size (howto); buf = (bfd_byte *) bfd_zmalloc (size); if (buf == (bfd_byte *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } rstat = _bfd_relocate_contents (howto, output_bfd, link_order->u.reloc.p->addend, buf); switch (rstat) { case bfd_reloc_ok: break; default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: if (! ((*info->callbacks->reloc_overflow) (info, (link_order->type == bfd_section_reloc_link_order ? bfd_section_name (output_bfd, link_order->u.reloc.p->u.section) : link_order->u.reloc.p->u.name), howto->name, link_order->u.reloc.p->addend, (bfd *) NULL, (asection *) NULL, (bfd_vma) 0))) { free (buf); return false; } break; } ok = bfd_set_section_contents (output_bfd, output_section, (PTR) buf, (file_ptr) link_order->offset, size); free (buf); if (! ok) return false; } /* Figure out the symbol index. */ rel_hash_ptr = (elf_section_data (output_section)->rel_hashes + output_section->reloc_count); if (link_order->type == bfd_section_reloc_link_order) { indx = link_order->u.reloc.p->u.section->target_index; if (indx == 0) abort (); *rel_hash_ptr = NULL; } else { struct elf_link_hash_entry *h; h = elf_link_hash_lookup (elf_hash_table (info), link_order->u.reloc.p->u.name, false, false, true); if (h != NULL) { /* Setting the index to -2 tells elf_link_output_extsym that this symbol is used by a reloc. */ h->indx = -2; *rel_hash_ptr = h; indx = 0; } else { if (! ((*info->callbacks->unattached_reloc) (info, link_order->u.reloc.p->u.name, (bfd *) NULL, (asection *) NULL, (bfd_vma) 0))) return false; indx = 0; } } /* The address of a reloc is relative to the section in a relocateable file, and is a virtual address in an executable file. */ offset = link_order->offset; if (! info->relocateable) offset += output_section->vma; rel_hdr = &elf_section_data (output_section)->rel_hdr; if (rel_hdr->sh_type == SHT_REL) { Elf_Internal_Rel irel; Elf_External_Rel *erel; irel.r_offset = offset; irel.r_info = ELF_R_INFO (indx, howto->type); erel = ((Elf_External_Rel *) rel_hdr->contents + output_section->reloc_count); elf_swap_reloc_out (output_bfd, &irel, erel); } else { Elf_Internal_Rela irela; Elf_External_Rela *erela; irela.r_offset = offset; irela.r_info = ELF_R_INFO (indx, howto->type); irela.r_addend = link_order->u.reloc.p->addend; erela = ((Elf_External_Rela *) rel_hdr->contents + output_section->reloc_count); elf_swap_reloca_out (output_bfd, &irela, erela); } ++output_section->reloc_count; return true; } gdb-4.13/bfd/filemode.c 666 34562 1752 10611 5045566001 13240 0ustar fnfcygnus/* filemode.c -- make a string describing file modes Copyright (C) 1985, 1990 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include void mode_string (); static char ftypelet (); static void rwx (); static void setst (); /* filemodestring - fill in string STR with an ls-style ASCII representation of the st_mode field of file stats block STATP. 10 characters are stored in STR; no terminating null is added. The characters stored in STR are: 0 File type. 'd' for directory, 'c' for character special, 'b' for block special, 'm' for multiplex, 'l' for symbolic link, 's' for socket, 'p' for fifo, '-' for any other file type 1 'r' if the owner may read, '-' otherwise. 2 'w' if the owner may write, '-' otherwise. 3 'x' if the owner may execute, 's' if the file is set-user-id, '-' otherwise. 'S' if the file is set-user-id, but the execute bit isn't set. 4 'r' if group members may read, '-' otherwise. 5 'w' if group members may write, '-' otherwise. 6 'x' if group members may execute, 's' if the file is set-group-id, '-' otherwise. 'S' if it is set-group-id but not executable. 7 'r' if any user may read, '-' otherwise. 8 'w' if any user may write, '-' otherwise. 9 'x' if any user may execute, 't' if the file is "sticky" (will be retained in swap space after execution), '-' otherwise. 'T' if the file is sticky but not executable. */ void filemodestring (statp, str) struct stat *statp; char *str; { mode_string (statp->st_mode, str); } /* Like filemodestring, but only the relevant part of the `struct stat' is given as an argument. */ void mode_string (mode, str) unsigned short mode; char *str; { str[0] = ftypelet (mode); rwx ((mode & 0700) << 0, &str[1]); rwx ((mode & 0070) << 3, &str[4]); rwx ((mode & 0007) << 6, &str[7]); setst (mode, str); } /* Return a character indicating the type of file described by file mode BITS: 'd' for directories 'b' for block special files 'c' for character special files 'm' for multiplexor files 'l' for symbolic links 's' for sockets 'p' for fifos '-' for any other file type. */ static char ftypelet (bits) unsigned short bits; { switch (bits & S_IFMT) { default: return '-'; case S_IFDIR: return 'd'; #ifdef S_IFLNK case S_IFLNK: return 'l'; #endif #ifdef S_IFCHR case S_IFCHR: return 'c'; #endif #ifdef S_IFBLK case S_IFBLK: return 'b'; #endif #ifdef S_IFMPC case S_IFMPC: case S_IFMPB: return 'm'; #endif #ifdef S_IFSOCK case S_IFSOCK: return 's'; #endif #ifdef S_IFIFO #if S_IFIFO != S_IFSOCK case S_IFIFO: return 'p'; #endif #endif #ifdef S_IFNWK /* HP-UX */ case S_IFNWK: return 'n'; #endif } } /* Look at read, write, and execute bits in BITS and set flags in CHARS accordingly. */ static void rwx (bits, chars) unsigned short bits; char *chars; { chars[0] = (bits & S_IREAD) ? 'r' : '-'; chars[1] = (bits & S_IWRITE) ? 'w' : '-'; chars[2] = (bits & S_IEXEC) ? 'x' : '-'; } /* Set the 's' and 't' flags in file attributes string CHARS, according to the file mode BITS. */ static void setst (bits, chars) unsigned short bits; char *chars; { #ifdef S_ISUID if (bits & S_ISUID) { if (chars[3] != 'x') /* Set-uid, but not executable by owner. */ chars[3] = 'S'; else chars[3] = 's'; } #endif #ifdef S_ISGID if (bits & S_ISGID) { if (chars[6] != 'x') /* Set-gid, but not executable by group. */ chars[6] = 'S'; else chars[6] = 's'; } #endif #ifdef S_ISVTX if (bits & S_ISVTX) { if (chars[9] != 'x') /* Sticky, but not executable by others. */ chars[9] = 'T'; else chars[9] = 't'; } #endif } gdb-4.13/bfd/format.c 666 34562 1752 21034 5601410046 12740 0ustar fnfcygnus/* Generic BFD support for file formats. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION File formats A format is a BFD concept of high level file contents type. The formats supported by BFD are: o <> The BFD may contain data, symbols, relocations and debug info. o <> The BFD contains other BFDs and an optional index. o <> The BFD contains the result of an executable core dump. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" /* IMPORT from targets.c. */ extern const size_t _bfd_target_vector_entries; /* FUNCTION bfd_check_format SYNOPSIS boolean bfd_check_format(bfd *abfd, bfd_format format); DESCRIPTION Verify if the file attached to the BFD @var{abfd} is compatible with the format @var{format} (i.e., one of <>, <> or <>). If the BFD has been set to a specific target before the call, only the named target and format combination is checked. If the target has not been set, or has been set to <>, then all the known target backends is interrogated to determine a match. If the default target matches, it is used. If not, exactly one target must recognize the file, or an error results. The function returns <> on success, otherwise <> with one of the following error codes: o <> - if <> is not one of <>, <> or <>. o <> - if an error occured during a read - even some file mismatches can cause bfd_error_system_calls. o <> - none of the backends recognised the file format. o <> - more than one backend recognised the file format. */ boolean bfd_check_format (abfd, format) bfd *abfd; bfd_format format; { return bfd_check_format_matches (abfd, format, NULL); } /* FUNCTION bfd_check_format_matches SYNOPSIS boolean bfd_check_format_matches(bfd *abfd, bfd_format format, char ***matching); DESCRIPTION Like <>, except when it returns false with <> set to <>. In that case, if @var{matching} is not NULL, it will be filled in with a NULL-terminated list of the names of the formats that matched, allocated with <>. Then the user may choose a format and try again. When done with the list that @var{matching} points to, the caller should free it. */ boolean bfd_check_format_matches (abfd, format, matching) bfd *abfd; bfd_format format; char ***matching; { const bfd_target * const *target, *save_targ, *right_targ; char **matching_vector = NULL; int match_count; if (!bfd_read_p (abfd) || ((int)(abfd->format) < (int)bfd_unknown) || ((int)(abfd->format) >= (int)bfd_type_end)) { bfd_set_error (bfd_error_invalid_operation); return false; } if (abfd->format != bfd_unknown) return (abfd->format == format)? true: false; /* Since the target type was defaulted, check them all in the hope that one will be uniquely recognized. */ save_targ = abfd->xvec; match_count = 0; if (matching) { matching_vector = (char **) malloc (sizeof (char *) * (_bfd_target_vector_entries + 1)); if (!matching_vector) { bfd_set_error (bfd_error_no_memory); return false; } matching_vector[0] = NULL; *matching = matching_vector; } right_targ = 0; /* presume the answer is yes */ abfd->format = format; /* If the target type was explicitly specified, just check that target. */ if (!abfd->target_defaulted) { if (bfd_seek (abfd, (file_ptr)0, SEEK_SET) != 0) /* rewind! */ return false; right_targ = BFD_SEND_FMT (abfd, _bfd_check_format, (abfd)); if (right_targ) { abfd->xvec = right_targ; /* Set the target as returned */ if (matching) free (matching_vector); return true; /* File position has moved, BTW */ } } for (target = bfd_target_vector; *target != NULL; target++) { const bfd_target *temp; abfd->xvec = *target; /* Change BFD's target temporarily */ if (bfd_seek (abfd, (file_ptr)0, SEEK_SET) != 0) return false; /* If _bfd_check_format neglects to set bfd_error, assume bfd_error_wrong_format. We didn't used to even pay any attention to bfd_error, so I suspect that some _bfd_check_format might have this problem. */ bfd_set_error (bfd_error_wrong_format); temp = BFD_SEND_FMT (abfd, _bfd_check_format, (abfd)); if (temp) { /* This format checks out as ok! */ right_targ = temp; if (matching) { matching_vector[match_count] = temp->name; matching_vector[match_count + 1] = NULL; } match_count++; /* If this is the default target, accept it, even if other targets might match. People who want those other targets have to set the GNUTARGET variable. */ if (temp == bfd_default_vector[0]) { if (matching) { matching_vector[0] = temp->name; matching_vector[1] = NULL; } match_count = 1; break; } #ifdef GNU960 /* Big- and little-endian b.out archives look the same, but it doesn't * matter: there is no difference in their headers, and member file byte * orders will (I hope) be handled appropriately by bfd. Ditto for big * and little coff archives. And the 4 coff/b.out object formats are * unambiguous. So accept the first match we find. */ break; #endif } else if (bfd_get_error () != bfd_error_wrong_format) { abfd->xvec = save_targ; abfd->format = bfd_unknown; if (matching && bfd_get_error () != bfd_error_file_ambiguously_recognized) free (matching_vector); return false; } } if (match_count == 1) { abfd->xvec = right_targ; /* Change BFD's target permanently */ if (matching) free (matching_vector); return true; /* File position has moved, BTW */ } abfd->xvec = save_targ; /* Restore original target type */ abfd->format = bfd_unknown; /* Restore original format */ if (match_count == 0) { bfd_set_error (bfd_error_file_not_recognized); if (matching) free (matching_vector); } else bfd_set_error (bfd_error_file_ambiguously_recognized); return false; } /* FUNCTION bfd_set_format SYNOPSIS boolean bfd_set_format(bfd *abfd, bfd_format format); DESCRIPTION This function sets the file format of the BFD @var{abfd} to the format @var{format}. If the target set in the BFD does not support the format requested, the format is invalid, or the BFD is not open for writing, then an error occurs. */ boolean bfd_set_format (abfd, format) bfd *abfd; bfd_format format; { if (bfd_read_p (abfd) || ((int)abfd->format < (int)bfd_unknown) || ((int)abfd->format >= (int)bfd_type_end)) { bfd_set_error (bfd_error_invalid_operation); return false; } if (abfd->format != bfd_unknown) return (abfd->format == format) ? true:false; /* presume the answer is yes */ abfd->format = format; if (!BFD_SEND_FMT (abfd, _bfd_set_format, (abfd))) { abfd->format = bfd_unknown; return false; } return true; } /* FUNCTION bfd_format_string SYNOPSIS CONST char *bfd_format_string(bfd_format format); DESCRIPTION Return a pointer to a const string <>, <>, <>, <>, or <>, depending upon the value of @var{format}. */ CONST char * bfd_format_string (format) bfd_format format; { if (((int)format <(int) bfd_unknown) || ((int)format >=(int) bfd_type_end)) return "invalid"; switch (format) { case bfd_object: return "object"; /* linker/assember/compiler output */ case bfd_archive: return "archive"; /* object archive file */ case bfd_core: return "core"; /* core dump */ default: return "unknown"; } } gdb-4.13/bfd/gen-aout.c 666 34562 1752 5456 5610535322 13166 0ustar fnfcygnus/* Generate parameters for an a.out system. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "/usr/include/a.out.h" #include int main (argc, argv) int argc; char** argv; { struct exec my_exec; int page_size; char *target = "unknown"; FILE *file = fopen("gen-aout", "r"); if (file == NULL) { fprintf(stderr, "Cannot open gen-aout!\n"); return -1; } if (fread(&my_exec, sizeof(struct exec), 1, file) != 1) { fprintf(stderr, "Cannot read gen-aout!\n"); return -1; } target = argv[1]; if (target == NULL) { fprintf(stderr, "Usage: gen-aout target_name\n"); exit (1); } #ifdef N_TXTOFF page_size = N_TXTOFF(my_exec); if (page_size == 0) printf("#define N_HEADER_IN_TEXT(x) 1\n"); else printf("#define N_HEADER_IN_TEXT(x) 0\n"); #endif printf("#define BYTES_IN_WORD %d\n", sizeof (int)); if (my_exec.a_entry == 0) { printf("#define ENTRY_CAN_BE_ZERO\n"); printf("#define N_SHARED_LIB(x) 0 /* Avoids warning */\n"); } else { printf("/*#define ENTRY_CAN_BE_ZERO*/\n"); printf("/*#define N_SHARED_LIB(x) 0*/\n"); } printf("#define TEXT_START_ADDR %d\n", my_exec.a_entry); #ifdef PAGSIZ if (page_size == 0) page_size = PAGSIZ; #endif if (page_size != 0) printf("#define PAGE_SIZE %d\n", page_size); else printf("/* #define PAGE_SIZE ??? */\n"); printf("#define SEGMENT_SIZE PAGE_SIZE\n"); #ifdef vax arch = "vax"; #endif #ifdef m68k arch = "m68k"; #endif if (arch[0] == '1') { fprintf (stderr, "warning: preprocessor substituted architecture name inside string;"); fprintf (stderr, " fix DEFAULT_ARCH in the output file yourself\n"); arch = "unknown"; } printf("#define DEFAULT_ARCH bfd_arch_%s\n", arch); printf("\n#define MY(OP) CAT(%s_,OP)\n", target); printf("#define TARGETNAME \"a.out-%s\"\n\n", target); printf("#include \"bfd.h\"\n"); printf("#include \"sysdep.h\"\n"); printf("#include \"libbfd.h\"\n"); printf("#include \"libaout.h\"\n"); printf("\n#include \"aout-target.h\"\n"); return 0; } gdb-4.13/bfd/genlink.h 666 34562 1752 7423 5574667027 13120 0ustar fnfcygnus/* genlink.h -- interface to the BFD generic linker Copyright 1993, 1994 Free Software Foundation, Inc. Written by Ian Lance Taylor, Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef GENLINK_H #define GENLINK_H /* This header file is internal to BFD. It describes the internal structures and functions used by the BFD generic linker, in case any of the more specific linkers want to use or call them. Note that some functions, such as _bfd_generic_link_hash_table_create, are declared in libbfd.h, because they are expected to be widely used. The functions and structures in this file will probably only be used by a few files besides linker.c itself. In fact, this file is not particularly complete; I have only put in the interfaces I actually needed. */ /* The generic linker uses a hash table which is a derived class of the standard linker hash table, just as the other backend specific linkers do. Do not confuse the generic linker hash table with the standard BFD linker hash table it is built upon. */ /* Generic linker hash table entries. */ struct generic_link_hash_entry { struct bfd_link_hash_entry root; /* Whether this symbol has been written out. */ boolean written; /* Symbol from input BFD. */ asymbol *sym; }; /* Generic linker hash table. */ struct generic_link_hash_table { struct bfd_link_hash_table root; }; /* Look up an entry in an generic link hash table. */ #define _bfd_generic_link_hash_lookup(table, string, create, copy, follow) \ ((struct generic_link_hash_entry *) \ bfd_link_hash_lookup (&(table)->root, (string), (create), (copy), (follow))) /* Traverse an generic link hash table. */ #define _bfd_generic_link_hash_traverse(table, func, info) \ (bfd_link_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct bfd_link_hash_entry *, PTR))) (func), \ (info))) /* Get the generic link hash table from the info structure. This is just a cast. */ #define _bfd_generic_hash_table(p) \ ((struct generic_link_hash_table *) ((p)->hash)) /* The generic linker reads in the asymbol structures for an input BFD and keeps them in the outsymbol and symcount fields. */ #define _bfd_generic_link_get_symbols(abfd) ((abfd)->outsymbols) #define _bfd_generic_link_get_symcount(abfd) ((abfd)->symcount) /* Add the symbols of input_bfd to the symbols being built for output_bfd. */ extern boolean _bfd_generic_link_output_symbols PARAMS ((bfd *output_bfd, bfd *input_bfd, struct bfd_link_info *, size_t *psymalloc)); /* This structure is used to pass information to _bfd_generic_link_write_global_symbol, which may be called via _bfd_generic_link_hash_traverse. */ struct generic_write_global_symbol_info { struct bfd_link_info *info; bfd *output_bfd; size_t *psymalloc; }; /* Write out a single global symbol. This is expected to be called via _bfd_generic_link_hash_traverse. The second argument must actually be a struct generic_write_global_symbol_info *. */ extern boolean _bfd_generic_link_write_global_symbol PARAMS ((struct generic_link_hash_entry *, PTR)); #endif gdb-4.13/bfd/hash.c 666 34562 1752 36120 5602136503 12401 0ustar fnfcygnus/* hash.c -- hash table routines for BFD Copyright (C) 1993, 94 Free Software Foundation, Inc. Written by Steve Chamberlain This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" /* SECTION Hash Tables @cindex Hash tables BFD provides a simple set of hash table functions. Routines are provided to initialize a hash table, to free a hash table, to look up a string in a hash table and optionally create an entry for it, and to traverse a hash table. There is currently no routine to delete an string from a hash table. The basic hash table does not permit any data to be stored with a string. However, a hash table is designed to present a base class from which other types of hash tables may be derived. These derived types may store additional information with the string. Hash tables were implemented in this way, rather than simply providing a data pointer in a hash table entry, because they were designed for use by the linker back ends. The linker may create thousands of hash table entries, and the overhead of allocating private data and storing and following pointers becomes noticeable. The basic hash table code is in <>. @menu @* Creating and Freeing a Hash Table:: @* Looking Up or Entering a String:: @* Traversing a Hash Table:: @* Deriving a New Hash Table Type:: @end menu INODE Creating and Freeing a Hash Table, Looking Up or Entering a String, Hash Tables, Hash Tables SUBSECTION Creating and freeing a hash table @findex bfd_hash_table_init @findex bfd_hash_table_init_n To create a hash table, create an instance of a <> (defined in <>) and call <> (if you know approximately how many entries you will need, the function <>, which takes a @var{size} argument, may be used). <> returns <> if some sort of error occurs. @findex bfd_hash_newfunc The function <> take as an argument a function to use to create new entries. For a basic hash table, use the function <>. @xref{Deriving a New Hash Table Type} for why you would want to use a different value for this argument. @findex bfd_hash_allocate <> will create an obstack which will be used to allocate new entries. You may allocate memory on this obstack using <>. @findex bfd_hash_table_free Use <> to free up all the memory that has been allocated for a hash table. This will not free up the <> itself, which you must provide. INODE Looking Up or Entering a String, Traversing a Hash Table, Creating and Freeing a Hash Table, Hash Tables SUBSECTION Looking up or entering a string @findex bfd_hash_lookup The function <> is used both to look up a string in the hash table and to create a new entry. If the @var{create} argument is <>, <> will look up a string. If the string is found, it will returns a pointer to a <>. If the string is not found in the table <> will return <>. You should not modify any of the fields in the returns <>. If the @var{create} argument is <>, the string will be entered into the hash table if it is not already there. Either way a pointer to a <> will be returned, either to the existing structure or to a newly created one. In this case, a <> return means that an error occurred. If the @var{create} argument is <>, and a new entry is created, the @var{copy} argument is used to decide whether to copy the string onto the hash table obstack or not. If @var{copy} is passed as <>, you must be careful not to deallocate or modify the string as long as the hash table exists. INODE Traversing a Hash Table, Deriving a New Hash Table Type, Looking Up or Entering a String, Hash Tables SUBSECTION Traversing a hash table @findex bfd_hash_traverse The function <> may be used to traverse a hash table, calling a function on each element. The traversal is done in a random order. <> takes as arguments a function and a generic <> pointer. The function is called with a hash table entry (a <>) and the generic pointer passed to <>. The function must return a <> value, which indicates whether to continue traversing the hash table. If the function returns <>, <> will stop the traversal and return immediately. INODE Deriving a New Hash Table Type, , Traversing a Hash Table, Hash Tables SUBSECTION Deriving a new hash table type Many uses of hash tables want to store additional information which each entry in the hash table. Some also find it convenient to store additional information with the hash table itself. This may be done using a derived hash table. Since C is not an object oriented language, creating a derived hash table requires sticking together some boilerplate routines with a few differences specific to the type of hash table you want to create. An example of a derived hash table is the linker hash table. The structures for this are defined in <>. The functions are in <>. You may also derive a hash table from an already derived hash table. For example, the a.out linker backend code uses a hash table derived from the linker hash table. @menu @* Define the Derived Structures:: @* Write the Derived Creation Routine:: @* Write Other Derived Routines:: @end menu INODE Define the Derived Structures, Write the Derived Creation Routine, Deriving a New Hash Table Type, Deriving a New Hash Table Type SUBSUBSECTION Define the derived structures You must define a structure for an entry in the hash table, and a structure for the hash table itself. The first field in the structure for an entry in the hash table must be of the type used for an entry in the hash table you are deriving from. If you are deriving from a basic hash table this is <>, which is defined in <>. The first field in the structure for the hash table itself must be of the type of the hash table you are deriving from itself. If you are deriving from a basic hash table, this is <>. For example, the linker hash table defines <> (in <>). The first field, <>, is of type <>. Similarly, the first field in <>, <
>, is of type <>. INODE Write the Derived Creation Routine, Write Other Derived Routines, Define the Derived Structures, Deriving a New Hash Table Type SUBSUBSECTION Write the derived creation routine You must write a routine which will create and initialize an entry in the hash table. This routine is passed as the function argument to <>. In order to permit other hash tables to be derived from the hash table you are creating, this routine must be written in a standard way. The first argument to the creation routine is a pointer to a hash table entry. This may be <>, in which case the routine should allocate the right amount of space. Otherwise the space has already been allocated by a hash table type derived from this one. After allocating space, the creation routine must call the creation routine of the hash table type it is derived from, passing in a pointer to the space it just allocated. This will initialize any fields used by the base hash table. Finally the creation routine must initialize any local fields for the new hash table type. Here is a boilerplate example of a creation routine. @var{function_name} is the name of the routine. @var{entry_type} is the type of an entry in the hash table you are creating. @var{base_newfunc} is the name of the creation routine of the hash table type your hash table is derived from. EXAMPLE .struct bfd_hash_entry * .@var{function_name} (entry, table, string) . struct bfd_hash_entry *entry; . struct bfd_hash_table *table; . const char *string; .{ . struct @var{entry_type} *ret = (@var{entry_type} *) entry; . . {* Allocate the structure if it has not already been allocated by a . derived class. *} . if (ret == (@var{entry_type} *) NULL) . { . ret = ((@var{entry_type} *) . bfd_hash_allocate (table, sizeof (@var{entry_type}))); . if (ret == (@var{entry_type} *) NULL) . return NULL; . } . . {* Call the allocation method of the base class. *} . ret = ((@var{entry_type} *) . @var{base_newfunc} ((struct bfd_hash_entry *) ret, table, string)); . . {* Initialize the local fields here. *} . . return (struct bfd_hash_entry *) ret; .} DESCRIPTION The creation routine for the linker hash table, which is in <>, looks just like this example. @var{function_name} is <<_bfd_link_hash_newfunc>>. @var{entry_type} is <>. @var{base_newfunc} is <>, the creation routine for a basic hash table. <<_bfd_link_hash_newfunc>> also initializes the local fields in a linker hash table entry: <>, <> and <>. INODE Write Other Derived Routines, , Write the Derived Creation Routine, Deriving a New Hash Table Type SUBSUBSECTION Write other derived routines You will want to write other routines for your new hash table, as well. You will want an initialization routine which calls the initialization routine of the hash table you are deriving from and initializes any other local fields. For the linker hash table, this is <<_bfd_link_hash_table_init>> in <>. You will want a lookup routine which calls the lookup routine of the hash table you are deriving from and casts the result. The linker hash table uses <> in <> (this actually takes an additional argument which it uses to decide how to return the looked up value). You may want a traversal routine. This should just call the traversal routine of the hash table you are deriving from with appropriate casts. The linker hash table uses <> in <>. These routines may simply be defined as macros. For example, the a.out backend linker hash table, which is derived from the linker hash table, uses macros for the lookup and traversal routines. These are <> and <> in aoutx.h. */ /* Obstack allocation and deallocation routines. */ #define obstack_chunk_alloc malloc #define obstack_chunk_free free /* The default number of entries to use when creating a hash table. */ #define DEFAULT_SIZE (4051) /* Create a new hash table, given a number of entries. */ boolean bfd_hash_table_init_n (table, newfunc, size) struct bfd_hash_table *table; struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); unsigned int size; { unsigned int alloc; alloc = size * sizeof (struct bfd_hash_entry *); if (!obstack_begin (&table->memory, alloc)) { bfd_set_error (bfd_error_no_memory); return false; } table->table = ((struct bfd_hash_entry **) obstack_alloc (&table->memory, alloc)); if (!table->table) { bfd_set_error (bfd_error_no_memory); return false; } memset ((PTR) table->table, 0, alloc); table->size = size; table->newfunc = newfunc; return true; } /* Create a new hash table with the default number of entries. */ boolean bfd_hash_table_init (table, newfunc) struct bfd_hash_table *table; struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); { return bfd_hash_table_init_n (table, newfunc, DEFAULT_SIZE); } /* Free a hash table. */ void bfd_hash_table_free (table) struct bfd_hash_table *table; { obstack_free (&table->memory, (PTR) NULL); } /* Look up a string in a hash table. */ struct bfd_hash_entry * bfd_hash_lookup (table, string, create, copy) struct bfd_hash_table *table; const char *string; boolean create; boolean copy; { register const unsigned char *s; register unsigned long hash; register unsigned int c; struct bfd_hash_entry *hashp; unsigned int len; unsigned int index; hash = 0; len = 0; s = (const unsigned char *) string; while ((c = *s++) != '\0') { hash += c + (c << 17); hash ^= hash >> 2; ++len; } hash += len + (len << 17); hash ^= hash >> 2; index = hash % table->size; for (hashp = table->table[index]; hashp != (struct bfd_hash_entry *) NULL; hashp = hashp->next) { if (hashp->hash == hash && strcmp (hashp->string, string) == 0) return hashp; } if (! create) return (struct bfd_hash_entry *) NULL; hashp = (*table->newfunc) ((struct bfd_hash_entry *) NULL, table, string); if (hashp == (struct bfd_hash_entry *) NULL) return (struct bfd_hash_entry *) NULL; if (copy) { char *new; new = (char *) obstack_alloc (&table->memory, len + 1); if (!new) { bfd_set_error (bfd_error_no_memory); return (struct bfd_hash_entry *) NULL; } strcpy (new, string); string = new; } hashp->string = string; hashp->hash = hash; hashp->next = table->table[index]; table->table[index] = hashp; return hashp; } /* Base method for creating a new hash table entry. */ /*ARGSUSED*/ struct bfd_hash_entry * bfd_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { if (entry == (struct bfd_hash_entry *) NULL) entry = ((struct bfd_hash_entry *) bfd_hash_allocate (table, sizeof (struct bfd_hash_entry))); return entry; } /* Allocate space in a hash table. */ PTR bfd_hash_allocate (table, size) struct bfd_hash_table *table; unsigned int size; { PTR ret; ret = obstack_alloc (&table->memory, size); if (ret == NULL && size != 0) bfd_set_error (bfd_error_no_memory); return ret; } /* Traverse a hash table. */ void bfd_hash_traverse (table, func, info) struct bfd_hash_table *table; boolean (*func) PARAMS ((struct bfd_hash_entry *, PTR)); PTR info; { unsigned int i; for (i = 0; i < table->size; i++) { struct bfd_hash_entry *p; for (p = table->table[i]; p != NULL; p = p->next) { if (! (*func) (p, info)) return; } } } gdb-4.13/bfd/host-aout.c 666 34562 1752 4377 5541350051 13370 0ustar fnfcygnus/* BFD backend for local host's a.out binaries Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. Probably John Gilmore's fault. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #define ARCH_SIZE 32 /* When porting to a new system, you must supply: HOST_PAGE_SIZE (optional) HOST_SEGMENT_SIZE (optional -- defaults to page size) HOST_MACHINE_ARCH (optional) HOST_MACHINE_MACHINE (optional) HOST_TEXT_START_ADDR (optional) HOST_STACK_END_ADDR (not used, except by trad-core ???) HOST_BIG_ENDIAN_P (required -- define if big-endian) in the ./hosts/h-systemname.h file. */ #ifdef HOST_PAGE_SIZE #define PAGE_SIZE HOST_PAGE_SIZE #endif #ifdef HOST_SEGMENT_SIZE #define SEGMENT_SIZE HOST_SEGMENT_SIZE #else #define SEGMENT_SIZE PAGE_SIZE #endif #ifdef HOST_TEXT_START_ADDR #define TEXT_START_ADDR HOST_TEXT_START_ADDR #endif #ifdef HOST_STACK_END_ADDR #define STACK_END_ADDR HOST_STACK_END_ADDR #endif #ifdef HOST_BIG_ENDIAN_P #define TARGET_IS_BIG_ENDIAN_P #else #undef TARGET_IS_BIG_ENDIAN_P #endif #include "libaout.h" /* BFD a.out internal data structures */ #include "aout/aout64.h" #ifdef HOST_MACHINE_ARCH #ifdef HOST_MACHINE_MACHINE #define SET_ARCH_MACH(abfd, execp) \ bfd_default_set_arch_mach(abfd, HOST_MACHINE_ARCH, HOST_MACHINE_MACHINE) #else #define SET_ARCH_MACH(abfd, execp) \ bfd_default_set_arch_mach(abfd, HOST_MACHINE_ARCH, 0) #endif #endif /* HOST_MACHINE_ARCH */ #define MY(OP) CAT(host_aout_,OP) #define TARGETNAME "a.out" #include "aout-target.h" gdb-4.13/bfd/hp300bsd.c 666 34562 1752 2423 5610535323 12762 0ustar fnfcygnus/* BFD back-end for HP 9000/300 (68000-based) machines running BSD Unix. Copyright 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGET_IS_BIG_ENDIAN_P #define N_HEADER_IN_TEXT(x) 0 #define BYTES_IN_WORD 4 #define ENTRY_CAN_BE_ZERO #define N_SHARED_LIB(x) 0 /* Avoids warning */ #define TEXT_START_ADDR 0 #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define DEFAULT_ARCH bfd_arch_m68k #define MY(OP) CAT(hp300bsd_,OP) #define TARGETNAME "a.out-hp300bsd" #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" #include "aout-target.h" gdb-4.13/bfd/hp300hpux.c 666 34562 1752 64431 5610535324 13226 0ustar fnfcygnus/* BFD backend for hp-ux 9000/300 Copyright (C) 1990, 1991, 1994 Free Software Foundation, Inc. Written by Glenn Engel. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* hpux native ------------> | | | hp300hpux bfd | ----------> hpux w/gnu ext hpux w/gnu extension ----> | | Support for the 9000/[34]00 has several limitations. 1. Shared libraries are not supported. 2. The output format from this bfd is not usable by native tools. The primary motivation for writing this bfd was to allow use of gdb and gcc for host based debugging and not to mimic the hp-ux tools in every detail. This leads to a significant simplification of the code and a leap in performance. The decision to not output hp native compatible objects was further strengthened by the fact that the richness of the gcc compiled objects could not be represented without loss of information. For example, while the hp format supports the concept of secondary symbols, it does not support indirect symbols. Another reason is to maintain backwards compatibility with older implementations of gcc on hpux which used 'hpxt' to translate .a and .o files into a format which could be readily understood by the gnu linker and gdb. This allows reading hp secondary symbols and converting them into indirect symbols but the reverse it not always possible. Another example of differences is that the hp format stores symbol offsets in the object code while the gnu utilities use a field in the relocation record for this. To support the hp native format, the object code would need to be patched with the offsets when producing .o files. The basic technique taken in this implementation is to #include the code from aoutx.h and aout-target.h with appropriate #defines to override code where a unique implementation is needed: { #define a bunch of stuff #include implement a bunch of functions #include "aout-target.h" } The hp symbol table is a bit different than other a.out targets. Instead of having an array of nlist items and an array of strings, hp's format has them mixed together in one structure. In addition, the strings are not null terminated. It looks something like this: nlist element 1 string1 nlist element 2 string2 ... The whole symbol table is read as one chunk and then we march thru it and convert it to canonical form. As we march thru the table, we copy the nlist data into the internal form and we compact the strings and null terminate them, using storage from the already allocated symbol table: string1 null string2 null */ /* @@ Is this really so different from normal a.out that it needs to include aoutx.h? We should go through this file sometime and see what can be made more dependent on aout32.o and what might need to be broken off and accessed through the backend_data field. Or, maybe we really do need such a completely separate implementation. I don't have time to investigate this much further right now. [raeburn:19930428.2124EST] */ /* @@ Also, note that there wind up being two versions of some routines, with different names, only one of which actually gets used. For example: slurp_symbol_table swap_std_reloc_in slurp_reloc_table get_symtab get_symtab_upper_bound canonicalize_reloc mkobject This should also be fixed. */ #define TARGETNAME "a.out-hp300hpux" #define MY(OP) CAT(hp300hpux_,OP) #define external_exec hp300hpux_exec_bytes #define external_nlist hp300hpux_nlist_bytes #include "aout/hp300hpux.h" /* define these so we can compile unused routines in aoutx.h */ #define e_strx e_shlib #define e_other e_length #define e_desc e_almod #define AR_PAD_CHAR '/' #define TARGET_IS_BIG_ENDIAN_P #define DEFAULT_ARCH bfd_arch_m68k #define MY_get_section_contents aout_32_get_section_contents #define MY_slurp_armap bfd_slurp_bsd_armap_f2 /***********************************************/ /* provide overrides for routines in this file */ /***********************************************/ /* these don't use MY because that causes problems within JUMP_TABLE (CAT winds up being expanded recursively, which ANSI C compilers will not do). */ #define MY_get_symtab hp300hpux_get_symtab #define MY_get_symtab_upper_bound hp300hpux_get_symtab_upper_bound #define MY_canonicalize_reloc hp300hpux_canonicalize_reloc #define MY_write_object_contents hp300hpux_write_object_contents #define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols #define MY_final_link_callback unused #define MY_bfd_final_link _bfd_generic_final_link /* Until and unless we convert the slurp_reloc and slurp_symtab routines in this file, we can not use the default aout free_cached_info routine which assumes that the relocs and symtabs were allocated using malloc. */ #define MY_bfd_free_cached_info bfd_true #define hp300hpux_write_syms aout_32_write_syms #define MY_callback MY(callback) #define MY_exec_hdr_flags 0x2 #define NAME_swap_exec_header_in NAME(hp300hpux_32_,swap_exec_header_in) #define HP_SYMTYPE_UNDEFINED 0x00 #define HP_SYMTYPE_ABSOLUTE 0x01 #define HP_SYMTYPE_TEXT 0x02 #define HP_SYMTYPE_DATA 0x03 #define HP_SYMTYPE_BSS 0x04 #define HP_SYMTYPE_COMMON 0x05 #define HP_SYMTYPE_TYPE 0x0F #define HP_SYMTYPE_FILENAME 0x1F #define HP_SYMTYPE_ALIGN 0x10 #define HP_SYMTYPE_EXTERNAL 0x20 #define HP_SECONDARY_SYMBOL 0x40 /* RELOCATION DEFINITIONS */ #define HP_RSEGMENT_TEXT 0x00 #define HP_RSEGMENT_DATA 0x01 #define HP_RSEGMENT_BSS 0x02 #define HP_RSEGMENT_EXTERNAL 0x03 #define HP_RSEGMENT_PCREL 0x04 #define HP_RSEGMENT_RDLT 0x05 #define HP_RSEGMENT_RPLT 0x06 #define HP_RSEGMENT_NOOP 0x3F #define HP_RLENGTH_BYTE 0x00 #define HP_RLENGTH_WORD 0x01 #define HP_RLENGTH_LONG 0x02 #define HP_RLENGTH_ALIGN 0x03 #define NAME(x,y) CAT3(hp300hpux,_32_,y) #define ARCH_SIZE 32 /* aoutx.h requires definitions for BMAGIC and QMAGIC. */ #define BMAGIC 0415 #define QMAGIC 0314 #include "aoutx.h" /* Since the hpux symbol table has nlist elements interspersed with strings and we need to insert som strings for secondary symbols, we give ourselves a little extra padding up front to account for this. Note that for each non-secondary symbol we process, we gain 9 bytes of space for the discarded nlist element (one byte used for null). SYM_EXTRA_BYTES is the extra space. */ #define SYM_EXTRA_BYTES 1024 /* Set parameters about this a.out file that are machine-dependent. This routine is called from some_aout_object_p just before it returns. */ static const bfd_target * MY (callback) (abfd) bfd *abfd; { struct internal_exec *execp = exec_hdr (abfd); /* Calculate the file positions of the parts of a newly read aout header */ obj_textsec (abfd)->_raw_size = N_TXTSIZE (*execp); /* The virtual memory addresses of the sections */ obj_textsec (abfd)->vma = N_TXTADDR (*execp); obj_datasec (abfd)->vma = N_DATADDR (*execp); obj_bsssec (abfd)->vma = N_BSSADDR (*execp); /* The file offsets of the sections */ obj_textsec (abfd)->filepos = N_TXTOFF (*execp); obj_datasec (abfd)->filepos = N_DATOFF (*execp); /* The file offsets of the relocation info */ obj_textsec (abfd)->rel_filepos = N_TRELOFF (*execp); obj_datasec (abfd)->rel_filepos = N_DRELOFF (*execp); /* The file offsets of the string table and symbol table. */ obj_sym_filepos (abfd) = N_SYMOFF (*execp); obj_str_filepos (abfd) = N_STROFF (*execp); /* Determine the architecture and machine type of the object file. */ #ifdef SET_ARCH_MACH SET_ARCH_MACH (abfd, *execp); #else bfd_default_set_arch_mach (abfd, DEFAULT_ARCH, 0); #endif if (obj_aout_subformat (abfd) == gnu_encap_format) { /* The file offsets of the relocation info */ obj_textsec (abfd)->rel_filepos = N_GNU_TRELOFF (*execp); obj_datasec (abfd)->rel_filepos = N_GNU_DRELOFF (*execp); /* The file offsets of the string table and symbol table. */ obj_sym_filepos (abfd) = N_GNU_SYMOFF (*execp); obj_str_filepos (abfd) = (obj_sym_filepos (abfd) + execp->a_syms); abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS; bfd_get_symcount (abfd) = execp->a_syms / 12; obj_symbol_entry_size (abfd) = 12; obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; } return abfd->xvec; } extern boolean aout_32_write_syms PARAMS ((bfd * abfd)); static boolean MY (write_object_contents) (abfd) bfd *abfd; { struct external_exec exec_bytes; struct internal_exec *execp = exec_hdr (abfd); bfd_size_type text_size; /* dummy vars */ file_ptr text_end; memset (&exec_bytes, 0, sizeof (exec_bytes)); #if CHOOSE_RELOC_SIZE CHOOSE_RELOC_SIZE (abfd); #else obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; #endif if (adata (abfd).magic == undecided_magic) NAME (aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end); execp->a_syms = 0; execp->a_entry = bfd_get_start_address (abfd); execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * obj_reloc_entry_size (abfd)); execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * obj_reloc_entry_size (abfd)); N_SET_MACHTYPE (*execp, 0xc); N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags); NAME (aout,swap_exec_header_out) (abfd, execp, &exec_bytes); /* update fields not covered by default swap_exec_header_out */ /* this is really the sym table size but we store it in drelocs */ bfd_h_put_32 (abfd, bfd_get_symcount (abfd) * 12, exec_bytes.e_drelocs); if (bfd_seek (abfd, 0L, false) != 0 || (bfd_write ((PTR) & exec_bytes, 1, EXEC_BYTES_SIZE, abfd) != EXEC_BYTES_SIZE)) return false; /* Write out the symbols, and then the relocs. We must write out the symbols first so that we know the symbol indices. */ if (bfd_get_symcount (abfd) != 0) { /* Skip the relocs to where we want to put the symbols. */ if (bfd_seek (abfd, (file_ptr) N_DRELOFF (*execp) + execp->a_drsize, SEEK_SET) != 0) return false; } if (!MY (write_syms) (abfd)) return false; if (bfd_get_symcount (abfd) != 0) { if (bfd_seek (abfd, (long) (N_TRELOFF (*execp)), false) != 0) return false; if (!NAME (aout,squirt_out_relocs) (abfd, obj_textsec (abfd))) return false; if (bfd_seek (abfd, (long) (N_DRELOFF (*execp)), false) != 0) return false; if (!NAME (aout,squirt_out_relocs) (abfd, obj_datasec (abfd))) return false; } return true; } /* convert the hp symbol type to be the same as aout64.h usage so we */ /* can piggyback routines in aoutx.h. */ static void convert_sym_type (sym_pointer, cache_ptr, abfd) struct external_nlist *sym_pointer; aout_symbol_type *cache_ptr; bfd *abfd; { int name_type; int new_type; name_type = (cache_ptr->type); new_type = 0; if ((name_type & HP_SYMTYPE_ALIGN) != 0) { /* iou_error ("aligned symbol encountered: %s", name);*/ name_type = 0; } if (name_type == HP_SYMTYPE_FILENAME) new_type = N_FN; else { switch (name_type & HP_SYMTYPE_TYPE) { case HP_SYMTYPE_UNDEFINED: new_type = N_UNDF; break; case HP_SYMTYPE_ABSOLUTE: new_type = N_ABS; break; case HP_SYMTYPE_TEXT: new_type = N_TEXT; break; case HP_SYMTYPE_DATA: new_type = N_DATA; break; case HP_SYMTYPE_BSS: new_type = N_BSS; break; case HP_SYMTYPE_COMMON: new_type = N_COMM; break; default: fprintf (stderr, "unknown symbol type encountered: %x", name_type); } if (name_type & HP_SYMTYPE_EXTERNAL) new_type |= N_EXT; if (name_type & HP_SECONDARY_SYMBOL) new_type = (new_type & ~N_TYPE) | N_INDR; } cache_ptr->type = new_type; } /* DESCRIPTION Swaps the information in an executable header taken from a raw byte stream memory image, into the internal exec_header structure. */ void NAME (aout,swap_exec_header_in) (abfd, raw_bytes, execp) bfd *abfd; struct external_exec *raw_bytes; struct internal_exec *execp; { struct external_exec *bytes = (struct external_exec *) raw_bytes; /* The internal_exec structure has some fields that are unused in this configuration (IE for i960), so ensure that all such uninitialized fields are zero'd out. There are places where two of these structs are memcmp'd, and thus the contents do matter. */ memset (execp, 0, sizeof (struct internal_exec)); /* Now fill in fields in the execp, from the bytes in the raw data. */ execp->a_info = bfd_h_get_32 (abfd, bytes->e_info); execp->a_text = GET_WORD (abfd, bytes->e_text); execp->a_data = GET_WORD (abfd, bytes->e_data); execp->a_bss = GET_WORD (abfd, bytes->e_bss); execp->a_syms = GET_WORD (abfd, bytes->e_syms); execp->a_entry = GET_WORD (abfd, bytes->e_entry); execp->a_trsize = GET_WORD (abfd, bytes->e_trsize); execp->a_drsize = GET_WORD (abfd, bytes->e_drsize); /***************************************************************/ /* check the header to see if it was generated by a bfd output */ /* this is detected rather bizarely by requiring a bunch of */ /* header fields to be zero and an old unused field (now used) */ /* to be set. */ /***************************************************************/ do { long syms; struct aout_data_struct *rawptr; if (bfd_h_get_32 (abfd, bytes->e_passize) != 0) break; if (bfd_h_get_32 (abfd, bytes->e_syms) != 0) break; if (bfd_h_get_32 (abfd, bytes->e_supsize) != 0) break; syms = bfd_h_get_32 (abfd, bytes->e_drelocs); if (syms == 0) break; /* OK, we've passed the test as best as we can determine */ execp->a_syms = syms; /* allocate storage for where we will store this result */ rawptr = (struct aout_data_struct *) bfd_zalloc (abfd, sizeof (*rawptr)); if (rawptr == NULL) { bfd_set_error (bfd_error_no_memory); return; } abfd->tdata.aout_data = rawptr; obj_aout_subformat (abfd) = gnu_encap_format; } while (0); } /* The hp symbol table is a bit different than other a.out targets. Instead of having an array of nlist items and an array of strings, hp's format has them mixed together in one structure. In addition, the strings are not null terminated. It looks something like this: nlist element 1 string1 nlist element 2 string2 ... The whole symbol table is read as one chunk and then we march thru it and convert it to canonical form. As we march thru the table, we copy the nlist data into the internal form and we compact the strings and null terminate them, using storage from the already allocated symbol table: string1 null string2 null ... */ boolean MY (slurp_symbol_table) (abfd) bfd *abfd; { bfd_size_type symbol_bytes; struct external_nlist *syms; struct external_nlist *sym_pointer; struct external_nlist *sym_end; char *strings; aout_symbol_type *cached; unsigned num_syms = 0; unsigned num_secondary = 0; /* If there's no work to be done, don't do any */ if (obj_aout_symbols (abfd) != (aout_symbol_type *) NULL) return true; symbol_bytes = exec_hdr (abfd)->a_syms; if (symbol_bytes == 0) { bfd_set_error (bfd_error_no_symbols); return false; } strings = (char *) bfd_alloc (abfd, symbol_bytes + SYM_EXTRA_BYTES); if (!strings) { bfd_set_error (bfd_error_no_memory); return false; } syms = (struct external_nlist *) (strings + SYM_EXTRA_BYTES); if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0 || bfd_read ((PTR) syms, symbol_bytes, 1, abfd) != symbol_bytes) { bfd_release (abfd, syms); return false; } sym_end = (struct external_nlist *) (((char *) syms) + symbol_bytes); /* first, march thru the table and figure out how many symbols there are */ for (sym_pointer = syms; sym_pointer < sym_end; sym_pointer++, num_syms++) { if (bfd_get_8 (abfd, sym_pointer->e_type) & HP_SECONDARY_SYMBOL) num_secondary++; /* skip over the embedded symbol. */ sym_pointer = (struct external_nlist *) (((char *) sym_pointer) + sym_pointer->e_length[0]); } /* now that we know the symbol count, update the bfd header */ bfd_get_symcount (abfd) = num_syms + num_secondary; cached = (aout_symbol_type *) bfd_zalloc (abfd, (bfd_size_type) (bfd_get_symcount (abfd) * sizeof (aout_symbol_type))); if (!cached) { bfd_set_error (bfd_error_no_memory); return false; } /* as we march thru the hp symbol table, convert it into a list of null terminated strings to hold the symbol names. Make sure any assignment to the strings pointer is done after we're thru using the nlist so we don't overwrite anything important. */ num_secondary = 0; /* OK, now walk the new symtable, cacheing symbol properties */ { aout_symbol_type *cache_ptr = cached; aout_symbol_type cache_save; /* Run through table and copy values */ for (sym_pointer = syms, cache_ptr = cached; sym_pointer < sym_end; sym_pointer++, cache_ptr++) { unsigned int length; cache_ptr->symbol.the_bfd = abfd; cache_ptr->symbol.value = GET_SWORD (abfd, sym_pointer->e_value); cache_ptr->desc = bfd_get_16 (abfd, sym_pointer->e_almod); cache_ptr->type = bfd_get_8 (abfd, sym_pointer->e_type); cache_ptr->symbol.udata = 0; length = bfd_get_8 (abfd, sym_pointer->e_length); cache_ptr->other = length; /* other not used, save length here */ cache_save = *cache_ptr; convert_sym_type (sym_pointer, cache_ptr, abfd); if (!translate_from_native_sym_flags (abfd, cache_ptr)) return false; /********************************************************/ /* for hpux, the 'lenght' value indicates the length of */ /* the symbol name which follows the nlist entry. */ /********************************************************/ if (length) { /**************************************************************/ /* the hp string is not null terminated so we create a new one*/ /* by copying the string to overlap the just vacated nlist */ /* structure before it in memory. */ /**************************************************************/ cache_ptr->symbol.name = strings; memcpy (strings, sym_pointer + 1, length); strings[length] = '\0'; strings += length + 1; } else cache_ptr->symbol.name = (char *) NULL; /**********************************************************/ /* this is a bit of a kludge, but a secondary hp symbol */ /* gets translated into a gnu indirect symbol. When this */ /* happens, we need to create a "dummy" record to which */ /* we can point the indirect symbol to. */ /**********************************************************/ if ((cache_ptr->type | N_EXT) == (N_INDR | N_EXT)) { aout_symbol_type *cache_ptr2 = cached + num_syms + num_secondary; num_secondary++; /* aoutx.h assumes the "next" value is the indirect sym */ /* since we don't want to disturb the order by inserting */ /* a new symbol, we tack on the created secondary syms */ /* at the end. */ cache_ptr->symbol.value = (bfd_vma) (cache_ptr2); *cache_ptr2 = cache_save; cache_ptr2->symbol.name = strings; memcpy (strings, cache_ptr->symbol.name, length); strcpy (strings + length, ":secondry"); /* 9 max chars + null */ strings += length + 10; cache_ptr2->type &= ~HP_SECONDARY_SYMBOL; /* clear secondary */ convert_sym_type (sym_pointer, cache_ptr2, abfd); if (!translate_from_native_sym_flags (abfd, cache_ptr2)) return false; } /* skip over the embedded symbol. */ sym_pointer = (struct external_nlist *) (((char *) sym_pointer) + length); } } obj_aout_symbols (abfd) = cached; return true; } void MY (swap_std_reloc_in) (abfd, bytes, cache_ptr, symbols) bfd *abfd; struct hp300hpux_reloc *bytes; arelent *cache_ptr; asymbol **symbols; { int r_index; int r_extern = 0; unsigned int r_length; int r_pcrel = 0; struct aoutdata *su = &(abfd->tdata.aout_data->a); cache_ptr->address = bfd_h_get_32 (abfd, bytes->r_address); r_index = bfd_h_get_16 (abfd, bytes->r_index); switch (bytes->r_type[0]) { case HP_RSEGMENT_TEXT: r_index = N_TEXT; break; case HP_RSEGMENT_DATA: r_index = N_DATA; break; case HP_RSEGMENT_BSS: r_index = N_BSS; break; case HP_RSEGMENT_EXTERNAL: r_extern = 1; break; case HP_RSEGMENT_PCREL: r_extern = 1; r_pcrel = 1; break; case HP_RSEGMENT_RDLT: break; case HP_RSEGMENT_RPLT: break; case HP_RSEGMENT_NOOP: break; default: fprintf (stderr, "illegal relocation segment type: %x\n", (bytes->r_type[0])); } switch (bytes->r_length[0]) { case HP_RLENGTH_BYTE: r_length = 0; break; case HP_RLENGTH_WORD: r_length = 1; break; case HP_RLENGTH_LONG: r_length = 2; break; default: fprintf (stderr, "illegal relocation length: %x\n", bytes->r_length[0]); r_length = 0; } cache_ptr->howto = howto_table_std + r_length + 4 * r_pcrel; /* FIXME-soon: Roll baserel, jmptable, relative bits into howto setting */ /* This macro uses the r_index value computed above */ if (r_pcrel && r_extern) { /* The GNU linker assumes any offset from beginning of section */ /* is already incorporated into the image while the HP linker */ /* adds this in later. Add it in now... */ MOVE_ADDRESS (-cache_ptr->address); } else { MOVE_ADDRESS (0); } } boolean MY (slurp_reloc_table) (abfd, asect, symbols) bfd *abfd; sec_ptr asect; asymbol **symbols; { unsigned int count; bfd_size_type reloc_size; PTR relocs; arelent *reloc_cache; size_t each_size; struct hp300hpux_reloc *rptr; unsigned int counter; arelent *cache_ptr; if (asect->relocation) return true; if (asect->flags & SEC_CONSTRUCTOR) return true; if (asect == obj_datasec (abfd)) { reloc_size = exec_hdr (abfd)->a_drsize; goto doit; } if (asect == obj_textsec (abfd)) { reloc_size = exec_hdr (abfd)->a_trsize; goto doit; } bfd_set_error (bfd_error_invalid_operation); return false; doit: if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0) return false; each_size = obj_reloc_entry_size (abfd); count = reloc_size / each_size; reloc_cache = (arelent *) bfd_zalloc (abfd, (size_t) (count * sizeof (arelent))); if (!reloc_cache && count != 0) { nomem: bfd_set_error (bfd_error_no_memory); return false; } relocs = (PTR) bfd_alloc (abfd, reloc_size); if (!relocs && reloc_size != 0) { bfd_release (abfd, reloc_cache); goto nomem; } if (bfd_read (relocs, 1, reloc_size, abfd) != reloc_size) { bfd_release (abfd, relocs); bfd_release (abfd, reloc_cache); return false; } rptr = (struct hp300hpux_reloc *) relocs; counter = 0; cache_ptr = reloc_cache; for (; counter < count; counter++, rptr++, cache_ptr++) { MY (swap_std_reloc_in) (abfd, rptr, cache_ptr, symbols); } bfd_release (abfd, relocs); asect->relocation = reloc_cache; asect->reloc_count = count; return true; } /************************************************************************/ /* The following functions are identical to functions in aoutx.h except */ /* they refer to MY(func) rather than NAME(aout,func) and they also */ /* call aout_32 versions if the input file was generated by gcc */ /************************************************************************/ long aout_32_get_symtab PARAMS ((bfd * abfd, asymbol ** location)); long aout_32_get_symtab_upper_bound PARAMS ((bfd * abfd)); long aout_32_canonicalize_reloc PARAMS ((bfd * abfd, sec_ptr section, arelent ** relptr, asymbol ** symbols)); long MY (get_symtab) (abfd, location) bfd *abfd; asymbol **location; { unsigned int counter = 0; aout_symbol_type *symbase; if (obj_aout_subformat (abfd) == gnu_encap_format) return aout_32_get_symtab (abfd, location); if (!MY (slurp_symbol_table) (abfd)) return -1; for (symbase = obj_aout_symbols (abfd); counter++ < bfd_get_symcount (abfd);) *(location++) = (asymbol *) (symbase++); *location++ = 0; return bfd_get_symcount (abfd); } long MY (get_symtab_upper_bound) (abfd) bfd *abfd; { if (obj_aout_subformat (abfd) == gnu_encap_format) return aout_32_get_symtab_upper_bound (abfd); if (!MY (slurp_symbol_table) (abfd)) return -1; return (bfd_get_symcount (abfd) + 1) * (sizeof (aout_symbol_type *)); } long MY (canonicalize_reloc) (abfd, section, relptr, symbols) bfd *abfd; sec_ptr section; arelent **relptr; asymbol **symbols; { arelent *tblptr = section->relocation; unsigned int count; if (obj_aout_subformat (abfd) == gnu_encap_format) return aout_32_canonicalize_reloc (abfd, section, relptr, symbols); if (!(tblptr || MY (slurp_reloc_table) (abfd, section, symbols))) return -1; if (section->flags & SEC_CONSTRUCTOR) { arelent_chain *chain = section->constructor_chain; for (count = 0; count < section->reloc_count; count++) { *relptr++ = &chain->relent; chain = chain->next; } } else { tblptr = section->relocation; for (count = 0; count++ < section->reloc_count;) { *relptr++ = tblptr++; } } *relptr = 0; return section->reloc_count; } #include "aout-target.h" gdb-4.13/bfd/hppa_stubs.h 666 34562 1752 2334 5605063677 13631 0ustar fnfcygnus/* HPPA linker stub instructions */ /* These are the instructions which the linker may insert into the code stream when building final executables to handle out-of-range calls and argument relocations. */ #define LDO_M4_R31_R31 0x37ff3ff9 /* ldo -4(%r31),%r31 */ #define LDIL_R1 0x20200000 /* ldil XXX,%r1 */ #define BE_SR4_R1 0xe0202000 /* be XXX(%sr4,%r1) */ #define COPY_R31_R2 0x081f0242 /* copy %r31,%r2 */ #define BLE_SR4_R0 0xe4002000 /* ble XXX(%sr4,%r0) */ #define BLE_SR4_R1 0xe4202000 /* ble XXX(%sr4,%r1) */ #define BV_N_0_R31 0xebe0c002 /* bv,n 0(%r31) */ #define STW_R31_M8R30 0x6bdf3ff1 /* stw %r31,-8(%r30) */ #define LDW_M8R30_R31 0x4bdf3ff1 /* ldw -8(%r30),%r31 */ #define STW_ARG_M16R30 0x6bc03fe1 /* stw %argX,-16(%r30) */ #define LDW_M16R30_ARG 0x4bc03fe1 /* ldw -12(%r30),%argX */ #define STW_ARG_M12R30 0x6bc03fe9 /* stw %argX,-16(%r30) */ #define LDW_M12R30_ARG 0x4bc03fe9 /* ldw -12(%r30),%argX */ #define FSTW_FARG_M16R30 0x27c11200 /* fstws %fargX,-16(%r30) */ #define FLDW_M16R30_FARG 0x27c11000 /* fldws -16(%r30),%fargX */ #define FSTD_FARG_M16R30 0x2fc11200 /* fstds %fargX,-16(%r30) */ #define FLDD_M16R30_FARG 0x2fc11000 /* fldds -16(%r30),%fargX */ gdb-4.13/bfd/hppabsd-core.c 666 34562 1752 22443 5610565606 14041 0ustar fnfcygnus/* BFD back-end for HPPA BSD core files. Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Written by the Center for Software Science at the University of Utah and by Cygnus Support. The core file structure for the Utah 4.3BSD and OSF1 ports on the PA is a mix between traditional cores and hpux cores -- just different enough that supporting this format would tend to add gross hacks to trad-core.c or hpux-core.c. So instead we keep any gross hacks isolated to this file. */ /* This file can only be compiled on systems which use HPPA-BSD style core files. In the config/XXXXXX.mh file for such a system add HDEFINES=-DHPPABSD_CORE HDEPFILES=hppabsd-core.o I would not expect this to be of use to any other host/target, but you never know. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #if defined (HOST_HPPABSD) #include "machine/vmparam.h" #include #include #include #include #include #include #include /* After a.out.h */ #include #include static asection *make_bfd_asection PARAMS ((bfd *, CONST char *, flagword, bfd_size_type, bfd_vma, unsigned int)); static asymbol *hppabsd_core_make_empty_symbol PARAMS ((bfd *)); static const bfd_target *hppabsd_core_core_file_p PARAMS ((bfd *)); static char *hppabsd_core_core_file_failing_command PARAMS ((bfd *)); static int hppabsd_core_core_file_failing_signal PARAMS ((bfd *)); static boolean hppabsd_core_core_file_matches_executable_p PARAMS ((bfd *, bfd *)); static void swap_abort PARAMS ((void)); /* These are stored in the bfd's tdata. */ struct hppabsd_core_struct { int sig; char cmd[MAXCOMLEN + 1]; asection *data_section; asection *stack_section; asection *reg_section; }; #define core_hdr(bfd) ((bfd)->tdata.hppabsd_core_data) #define core_signal(bfd) (core_hdr(bfd)->sig) #define core_command(bfd) (core_hdr(bfd)->cmd) #define core_datasec(bfd) (core_hdr(bfd)->data_section) #define core_stacksec(bfd) (core_hdr(bfd)->stack_section) #define core_regsec(bfd) (core_hdr(bfd)->reg_section) static asection * make_bfd_asection (abfd, name, flags, _raw_size, vma, alignment_power) bfd *abfd; CONST char *name; flagword flags; bfd_size_type _raw_size; bfd_vma vma; unsigned int alignment_power; { asection *asect; asect = bfd_make_section (abfd, name); if (!asect) return NULL; asect->flags = flags; asect->_raw_size = _raw_size; asect->vma = vma; asect->filepos = bfd_tell (abfd); asect->alignment_power = alignment_power; return asect; } static asymbol * hppabsd_core_make_empty_symbol (abfd) bfd *abfd; { asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol)); if (new) new->the_bfd = abfd; return new; } static const bfd_target * hppabsd_core_core_file_p (abfd) bfd *abfd; { int val; struct user u; struct hppabsd_core_struct *coredata; int clicksz; /* Try to read in the u-area. We will need information from this to know how to grok the rest of the core structures. */ val = bfd_read ((void *) &u, 1, sizeof u, abfd); if (val != sizeof u) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return NULL; } /* Get the page size out of the u structure. This will be different for PA 1.0 machines and PA 1.1 machines. Yuk! */ clicksz = u.u_pcb.pcb_pgsz; /* clicksz must be a power of two >= 2k. */ if (clicksz < 0x800 || clicksz != (clicksz & -clicksz)) { bfd_set_error (bfd_error_wrong_format); return NULL; } /* Sanity checks. Make sure the size of the core file matches the the size computed from information within the core itself. */ { FILE *stream = bfd_cache_lookup (abfd); struct stat statbuf; if (stream == NULL || fstat (fileno (stream), &statbuf) < 0) { bfd_set_error (bfd_error_system_call); return NULL; } if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) > statbuf.st_size) { bfd_set_error (bfd_error_file_truncated); return NULL; } if (clicksz * (UPAGES + u.u_dsize + u.u_ssize) < statbuf.st_size) { /* The file is too big. Maybe it's not a core file or we otherwise have bad values for u_dsize and u_ssize). */ bfd_set_error (bfd_error_wrong_format); return NULL; } } /* OK, we believe you. You're a core file (sure, sure). */ coredata = (struct hppabsd_core_struct *) bfd_zalloc (abfd, sizeof (struct hppabsd_core_struct)); if (!coredata) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Make the core data and available via the tdata part of the BFD. */ abfd->tdata.hppabsd_core_data = coredata; /* Create the sections. */ core_stacksec (abfd) = make_bfd_asection (abfd, ".stack", SEC_ALLOC + SEC_HAS_CONTENTS, clicksz * u.u_ssize, NBPG * (USIZE + KSTAKSIZE) + clicksz * u.u_dsize, 2); core_stacksec (abfd)->vma = USRSTACK; core_datasec (abfd) = make_bfd_asection (abfd, ".data", SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS, clicksz * u.u_dsize, NBPG * (USIZE + KSTAKSIZE), 2); core_datasec (abfd)->vma = UDATASEG; core_regsec (abfd) = make_bfd_asection (abfd, ".reg", SEC_HAS_CONTENTS, KSTAKSIZE * NBPG, NBPG * USIZE, 2); core_regsec (abfd)->vma = 0; strncpy (core_command (abfd), u.u_comm, MAXCOMLEN + 1); core_signal (abfd) = u.u_code; return abfd->xvec; } static char * hppabsd_core_core_file_failing_command (abfd) bfd *abfd; { return core_command (abfd); } /* ARGSUSED */ static int hppabsd_core_core_file_failing_signal (abfd) bfd *abfd; { return core_signal (abfd); } /* ARGSUSED */ static boolean hppabsd_core_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd, *exec_bfd; { /* There's no way to know this... */ return true; } #define hppabsd_core_get_symtab_upper_bound \ _bfd_nosymbols_get_symtab_upper_bound #define hppabsd_core_get_symtab _bfd_nosymbols_get_symtab #define hppabsd_core_print_symbol _bfd_nosymbols_print_symbol #define hppabsd_core_get_symbol_info _bfd_nosymbols_get_symbol_info #define hppabsd_core_bfd_is_local_label _bfd_nosymbols_bfd_is_local_label #define hppabsd_core_get_lineno _bfd_nosymbols_get_lineno #define hppabsd_core_find_nearest_line _bfd_nosymbols_find_nearest_line #define hppabsd_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol /* If somebody calls any byte-swapping routines, shoot them. */ static void swap_abort () { /* This way doesn't require any declaration for ANSI to fuck up. */ abort (); } #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort ) #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort ) #define NO_SIGNED_GET \ ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort ) const bfd_target hppabsd_core_vec = { "hppabsd-core", bfd_target_unknown_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* symbol prefix */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 3, /* minimum alignment power */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */ { /* bfd_check_format */ _bfd_dummy_target, /* unknown format */ _bfd_dummy_target, /* object file */ _bfd_dummy_target, /* archive */ hppabsd_core_core_file_p /* a core file */ }, { /* bfd_set_format */ bfd_false, bfd_false, bfd_false, bfd_false }, { /* bfd_write_contents */ bfd_false, bfd_false, bfd_false, bfd_false }, BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (hppabsd_core), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (hppabsd_core), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (_bfd_generic), BFD_JUMP_TABLE_LINK (_bfd_nolink), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 /* backend_data */ }; #endif gdb-4.13/bfd/hpux-core.c 666 34562 1752 20134 5610565611 13373 0ustar fnfcygnus/* BFD back-end for HP/UX core files. Copyright 1993, 1994 Free Software Foundation, Inc. Written by Stu Grossman, Cygnus Support. Converted to back-end form by Ian Lance Taylor, Cygnus SUpport This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file can only be compiled on systems which use HP/UX style core files. In the config/XXXXXX.mh file for such a system add HDEFINES=-DHPUX_CORE HDEPFILES=hpux-core.o */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #if defined (HOST_HPPAHPUX) || defined (HOST_HP300HPUX) /* FIXME: sys/core.h doesn't exist for HPUX version 7. HPUX version 5, 6, and 7 core files seem to be standard trad-core.c type core files; can we just use trad-core.c in addition to this file? */ #include #include #endif /* HOST_HPPAHPUX */ #ifdef HOST_HPPABSD /* Not a very swift place to put it, but that's where the BSD port puts them. */ #include "/hpux/usr/include/sys/core.h" #endif /* HOST_HPPABSD */ #include #include #include #include #include #include #include /* After a.out.h */ #include #include /* These are stored in the bfd's tdata */ struct hpux_core_struct { int sig; char cmd[MAXCOMLEN + 1]; asection *data_section; asection *stack_section; asection *reg_section; }; #define core_hdr(bfd) ((bfd)->tdata.hpux_core_data) #define core_signal(bfd) (core_hdr(bfd)->sig) #define core_command(bfd) (core_hdr(bfd)->cmd) #define core_datasec(bfd) (core_hdr(bfd)->data_section) #define core_stacksec(bfd) (core_hdr(bfd)->stack_section) #define core_regsec(bfd) (core_hdr(bfd)->reg_section) static asection * make_bfd_asection (abfd, name, flags, _raw_size, vma, alignment_power) bfd *abfd; CONST char *name; flagword flags; bfd_size_type _raw_size; bfd_vma vma; unsigned int alignment_power; { asection *asect; asect = bfd_make_section (abfd, name); if (!asect) return NULL; asect->flags = flags; asect->_raw_size = _raw_size; asect->vma = vma; asect->filepos = bfd_tell (abfd); asect->alignment_power = alignment_power; return asect; } static asymbol * hpux_core_make_empty_symbol (abfd) bfd *abfd; { asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol)); if (new) new->the_bfd = abfd; return new; } static const bfd_target * hpux_core_core_file_p (abfd) bfd *abfd; { core_hdr (abfd) = (struct hpux_core_struct *) bfd_zalloc (abfd, sizeof (struct hpux_core_struct)); if (!core_hdr (abfd)) return NULL; while (1) { int val; struct corehead core_header; val = bfd_read ((void *) &core_header, 1, sizeof core_header, abfd); if (val <= 0) break; switch (core_header.type) { case CORE_KERNEL: case CORE_FORMAT: bfd_seek (abfd, core_header.len, SEEK_CUR); /* Just skip this */ break; case CORE_EXEC: { struct proc_exec proc_exec; if (bfd_read ((void *) &proc_exec, 1, core_header.len, abfd) != core_header.len) break; strncpy (core_command (abfd), proc_exec.cmd, MAXCOMLEN + 1); } break; case CORE_PROC: { struct proc_info proc_info; core_regsec (abfd) = make_bfd_asection (abfd, ".reg", SEC_HAS_CONTENTS, core_header.len, (int) &proc_info - (int) &proc_info.hw_regs, 2); if (bfd_read (&proc_info, 1, core_header.len, abfd) != core_header.len) break; core_signal (abfd) = proc_info.sig; } if (!core_regsec (abfd)) return NULL; break; case CORE_DATA: core_datasec (abfd) = make_bfd_asection (abfd, ".data", SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS, core_header.len, core_header.addr, 2); if (!core_datasec (abfd)) return NULL; bfd_seek (abfd, core_header.len, SEEK_CUR); break; case CORE_STACK: core_stacksec (abfd) = make_bfd_asection (abfd, ".stack", SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS, core_header.len, core_header.addr, 2); if (!core_stacksec (abfd)) return NULL; bfd_seek (abfd, core_header.len, SEEK_CUR); break; default: /* Falling into here is an error and should prevent this target from matching. That way systems which use hpux cores along with other formats can still work. */ return 0; } } /* OK, we believe you. You're a core file (sure, sure). */ return abfd->xvec; } static char * hpux_core_core_file_failing_command (abfd) bfd *abfd; { return core_command (abfd); } /* ARGSUSED */ static int hpux_core_core_file_failing_signal (abfd) bfd *abfd; { return core_signal (abfd); } /* ARGSUSED */ static boolean hpux_core_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd, *exec_bfd; { return true; /* FIXME, We have no way of telling at this point */ } #define hpux_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound #define hpux_core_get_symtab _bfd_nosymbols_get_symtab #define hpux_core_print_symbol _bfd_nosymbols_print_symbol #define hpux_core_get_symbol_info _bfd_nosymbols_get_symbol_info #define hpux_core_bfd_is_local_label _bfd_nosymbols_bfd_is_local_label #define hpux_core_get_lineno _bfd_nosymbols_get_lineno #define hpux_core_find_nearest_line _bfd_nosymbols_find_nearest_line #define hpux_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol /* If somebody calls any byte-swapping routines, shoot them. */ void swap_abort() { abort(); /* This way doesn't require any declaration for ANSI to fuck up */ } #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort ) #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort ) #define NO_SIGNED_GET \ ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort ) const bfd_target hpux_core_vec = { "hpux-core", bfd_target_unknown_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* symbol prefix */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 3, /* minimum alignment power */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */ { /* bfd_check_format */ _bfd_dummy_target, /* unknown format */ _bfd_dummy_target, /* object file */ _bfd_dummy_target, /* archive */ hpux_core_core_file_p /* a core file */ }, { /* bfd_set_format */ bfd_false, bfd_false, bfd_false, bfd_false }, { /* bfd_write_contents */ bfd_false, bfd_false, bfd_false, bfd_false }, BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (hpux_core), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (hpux_core), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (_bfd_generic), BFD_JUMP_TABLE_LINK (_bfd_nolink), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 /* backend_data */ }; gdb-4.13/bfd/i386aout.c 666 34562 1752 4357 5610535324 13032 0ustar fnfcygnus/* BFD back-end for i386 a.out binaries. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The only 386 aout system we have here is GO32 from DJ. These numbers make BFD work with that. If your aout 386 system doesn't work with these, we'll have to split them into different files. Send me (sac@cygnus.com) the runes to make it work on your system, and I'll stick it in for the next release. */ #define N_HEADER_IN_TEXT(x) 0 #define BYTES_IN_WORD 4 #define N_TXTOFF(x) 0x20 #define N_TXTADDR(x) (N_MAGIC(x)==ZMAGIC ? 0x1020 : 0) #define N_TXTSIZE(x) ((x).a_text) #if 0 #define N_DATADDR(x) (N_MAGIC(x)==OMAGIC? (N_TXTADDR(x)+(x).a_text) : (SEGMENT_SIZE + ((0x1020+(x).a_text-1) & ~(SEGMENT_SIZE-1)))) #define NOSUBEXECB #endif #define PAGE_SIZE 4096 #define SEGMENT_SIZE 0x400000 #define DEFAULT_ARCH bfd_arch_i386 #define MY(OP) CAT(i386aout_,OP) #define TARGETNAME "a.out-i386" #define NO_WRITE_HEADER_KLUDGE 1 #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" static boolean MY(set_sizes)(); #define MY_backend_data &MY(backend_data) static CONST struct aout_backend_data MY(backend_data) = { 0, /* zmagic contiguous */ 1, /* text incl header */ 0, /* exec_hdr_flags */ 0, /* text vma? */ MY(set_sizes), 1, /* exec header not counted */ 0, /* add_dynamic_symbols */ 0, /* add_one_symbol */ 0, /* link_dynamic_object */ 0, /* write_dynamic_symbol */ 0, /* check_dynamic_reloc */ 0 /* finish_dynamic_link */ }; #include "aout-target.h" gdb-4.13/bfd/i386bsd.c 666 34562 1752 2764 5610535325 12633 0ustar fnfcygnus/* BFD back-end for i386 a.out binaries under BSD. Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This data should be correct for the format used under all the various BSD ports for 386 machines. */ #define BYTES_IN_WORD 4 /* ZMAGIC files never have the header in the text. */ #define N_HEADER_IN_TEXT(x) 0 /* ZMAGIC files start at address 0. This does not apply to QMAGIC. */ #define TEXT_START_ADDR 0 #define N_SHARED_LIB(x) 0 #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define DEFAULT_ARCH bfd_arch_i386 #define MACHTYPE_OK(mtype) ((mtype) == M_386 || (mtype) == M_UNKNOWN) #define MY(OP) CAT(i386bsd_,OP) #define TARGETNAME "a.out-i386-bsd" #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" #include "aout-target.h" gdb-4.13/bfd/i386dynix.c 666 34562 1752 5254 5610535325 13213 0ustar fnfcygnus/* BFD back-end for i386 a.out binaries under dynix. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This BFD is currently only tested with gdb, writing object files may not work. */ #define BYTES_IN_WORD 4 #define TEXT_START_ADDR 4096 #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #include "aout/dynix3.h" #define DEFAULT_ARCH bfd_arch_i386 #define MACHTYPE_OK(mtype) ((mtype) == M_386 || (mtype) == M_UNKNOWN) #define MY(OP) CAT(i386dynix_,OP) #define TARGETNAME "a.out-i386-dynix" #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" /* (Ab)use some fields in the internal exec header to be able to read executables that contain shared data. */ #define a_shdata a_tload #define a_shdrsize a_dload #define aout_32_swap_exec_header_in dynix_swap_exec_header_in void dynix_swap_exec_header_in (abfd, raw_bytes, execp) bfd *abfd; struct external_exec *raw_bytes; struct internal_exec *execp; { struct external_exec *bytes = (struct external_exec *)raw_bytes; /* The internal_exec structure has some fields that are unused in this configuration (IE for i960), so ensure that all such uninitialized fields are zero'd out. There are places where two of these structs are memcmp'd, and thus the contents do matter. */ memset ((PTR) execp, 0, sizeof (struct internal_exec)); /* Now fill in fields in the execp, from the bytes in the raw data. */ execp->a_info = bfd_h_get_32 (abfd, bytes->e_info); execp->a_text = GET_WORD (abfd, bytes->e_text); execp->a_data = GET_WORD (abfd, bytes->e_data); execp->a_bss = GET_WORD (abfd, bytes->e_bss); execp->a_syms = GET_WORD (abfd, bytes->e_syms); execp->a_entry = GET_WORD (abfd, bytes->e_entry); execp->a_trsize = GET_WORD (abfd, bytes->e_trsize); execp->a_drsize = GET_WORD (abfd, bytes->e_drsize); execp->a_shdata = GET_WORD (abfd, bytes->e_shdata); execp->a_shdrsize = GET_WORD (abfd, bytes->e_shdrsize); } #include "aout-target.h" gdb-4.13/bfd/i386linux.c 666 34562 1752 50203 5610535326 13232 0ustar fnfcygnus/* BFD back-end for linux flavored i386 a.out binaries. Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define PAGE_SIZE 4096 #define ZMAGIC_DISK_BLOCK_SIZE 1024 #define SEGMENT_SIZE 4096 #define TEXT_START_ADDR 0x0 #define N_SHARED_LIB(x) 0 #define BYTES_IN_WORD 4 #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "aout/aout64.h" #include "aout/stab_gnu.h" #include "aout/ar.h" #include "libaout.h" /* BFD a.out internal data structures */ #define DEFAULT_ARCH bfd_arch_i386 #define MY(OP) CAT(i386linux_,OP) #define TARGETNAME "a.out-i386-linux" /* We always generate QMAGIC files in preference to ZMAGIC files. It would be possible to make this a linker option, if that ever becomes important. */ static void MY_final_link_callback PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *)); static boolean i386linux_bfd_final_link (abfd, info) bfd *abfd; struct bfd_link_info *info; { obj_aout_subformat (abfd) = q_magic_format; return NAME(aout,final_link) (abfd, info, MY_final_link_callback); } #define MY_bfd_final_link i386linux_bfd_final_link /* Set the machine type correctly. */ static boolean i386linux_write_object_contents (abfd) bfd *abfd; { struct external_exec exec_bytes; struct internal_exec *execp = exec_hdr (abfd); N_SET_MACHTYPE (*execp, M_386); obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; WRITE_HEADERS(abfd, execp); return true; } #define MY_write_object_contents i386linux_write_object_contents /* Code to link against Linux a.out shared libraries. */ /* See if a symbol name is a reference to the global offset table. */ #ifndef GOT_REF_PREFIX #define GOT_REF_PREFIX "__GOT_" #endif #define IS_GOT_SYM(name) \ (strncmp (name, GOT_REF_PREFIX, sizeof GOT_REF_PREFIX - 1) == 0) /* See if a symbol name is a reference to the procedure linkage table. */ #ifndef PLT_REF_PREFIX #define PLT_REF_PREFIX "__PLT_" #endif #define IS_PLT_SYM(name) \ (strncmp (name, PLT_REF_PREFIX, sizeof PLT_REF_PREFIX - 1) == 0) /* This special symbol is a set vector that contains a list of pointers to fixup tables. It will be present in any dynamicly linked file. The linker generated fixup table should also be added to the list, and it should always appear in the second slot (the first one is a dummy with a magic number that is defined in crt0.o). */ #ifndef SHARABLE_CONFLICTS #define SHARABLE_CONFLICTS "__SHARABLE_CONFLICTS__" #endif /* We keep a list of fixups. The terminology is a bit strange, but each fixup contains two 32 bit numbers. A regular fixup contains an address and a pointer, and at runtime we should store the address at the location pointed to by the pointer. A builtin fixup contains two pointers, and we should read the address using one pointer and store it at the location pointed to by the other pointer. Builtin fixups come into play when we have duplicate __GOT__ symbols for the same variable. The builtin fixup will copy the GOT pointer from one over into the other. */ struct fixup { struct fixup *next; struct linux_link_hash_entry *h; bfd_vma value; /* Nonzero if this is a jump instruction that needs to be fixed, zero if this is just a pointer */ char jump; char builtin; }; /* We don't need a special hash table entry structure, but we do need to keep some information between linker passes, so we use a special hash table. */ struct linux_link_hash_entry { struct aout_link_hash_entry root; }; struct linux_link_hash_table { struct aout_link_hash_table root; /* First dynamic object found in link. */ bfd *dynobj; /* Number of fixups. */ size_t fixup_count; /* Number of builtin fixups. */ size_t local_builtins; /* List of fixups. */ struct fixup *fixup_list; }; static struct bfd_hash_entry *linux_link_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); static struct bfd_link_hash_table *linux_link_hash_table_create PARAMS ((bfd *)); static struct fixup *new_fixup PARAMS ((struct bfd_link_info *, struct linux_link_hash_entry *, bfd_vma, int)); static boolean linux_link_create_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *)); static boolean linux_add_one_symbol PARAMS ((struct bfd_link_info *, bfd *, const char *, flagword, asection *, bfd_vma, const char *, boolean, boolean, struct bfd_link_hash_entry **)); static boolean linux_tally_symbols PARAMS ((struct linux_link_hash_entry *, PTR)); static boolean linux_finish_dynamic_link PARAMS ((bfd *, struct bfd_link_info *)); /* Routine to create an entry in an Linux link hash table. */ static struct bfd_hash_entry * linux_link_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct linux_link_hash_entry *ret = (struct linux_link_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct linux_link_hash_entry *) NULL) ret = ((struct linux_link_hash_entry *) bfd_hash_allocate (table, sizeof (struct linux_link_hash_entry))); if (ret == NULL) return (struct bfd_hash_entry *) ret; /* Call the allocation method of the superclass. */ ret = ((struct linux_link_hash_entry *) NAME(aout,link_hash_newfunc) ((struct bfd_hash_entry *) ret, table, string)); if (ret != NULL) { /* Set local fields; there aren't any. */ } return (struct bfd_hash_entry *) ret; } /* Create a Linux link hash table. */ static struct bfd_link_hash_table * linux_link_hash_table_create (abfd) bfd *abfd; { struct linux_link_hash_table *ret; ret = ((struct linux_link_hash_table *) malloc (sizeof (struct linux_link_hash_table))); if (ret == (struct linux_link_hash_table *) NULL) { bfd_set_error (bfd_error_no_memory); return (struct bfd_link_hash_table *) NULL; } if (! NAME(aout,link_hash_table_init) (&ret->root, abfd, linux_link_hash_newfunc)) { free (ret); return (struct bfd_link_hash_table *) NULL; } ret->dynobj = NULL; ret->fixup_count = 0; ret->local_builtins = 0; ret->fixup_list = NULL; return &ret->root.root; } /* Look up an entry in a Linux link hash table. */ #define linux_link_hash_lookup(table, string, create, copy, follow) \ ((struct linux_link_hash_entry *) \ aout_link_hash_lookup (&(table)->root, (string), (create), (copy),\ (follow))) /* Traverse a Linux link hash table. */ #define linux_link_hash_traverse(table, func, info) \ (aout_link_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct aout_link_hash_entry *, PTR))) (func), \ (info))) /* Get the Linux link hash table from the info structure. This is just a cast. */ #define linux_hash_table(p) ((struct linux_link_hash_table *) ((p)->hash)) /* Store the information for a new fixup. */ static struct fixup * new_fixup (info, h, value, builtin) struct bfd_link_info *info; struct linux_link_hash_entry *h; bfd_vma value; int builtin; { struct fixup *f; f = (struct fixup *) bfd_hash_allocate (&info->hash->table, sizeof (struct fixup)); if (f == NULL) return f; f->next = linux_hash_table (info)->fixup_list; linux_hash_table (info)->fixup_list = f; f->h = h; f->value = value; f->builtin = builtin; f->jump = 0; ++linux_hash_table (info)->fixup_count; return f; } /* We come here once we realize that we are going to link to a shared library. We need to create a special section that contains the fixup table, and we ultimately need to add a pointer to this into the set vector for SHARABLE_CONFLICTS. At this point we do not know the size of the section, but that's OK - we just need to create it for now. */ static boolean linux_link_create_dynamic_sections (abfd, info) bfd *abfd; struct bfd_link_info *info; { flagword flags; register asection *s; /* Note that we set the SEC_IN_MEMORY flag. */ flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY; /* We choose to use the name ".dynamic" for the fixup table. Why not? */ s = bfd_make_section (abfd, ".dynamic"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags) || ! bfd_set_section_alignment (abfd, s, 2)) return false; s->_raw_size = 0; s->contents = 0; return true; } /* Function to add a single symbol to the linker hash table. This is a wrapper around _bfd_generic_link_add_one_symbol which handles the tweaking needed for dynamic linking support. */ static boolean linux_add_one_symbol (info, abfd, name, flags, section, value, string, copy, collect, hashp) struct bfd_link_info *info; bfd *abfd; const char *name; flagword flags; asection *section; bfd_vma value; const char *string; boolean copy; boolean collect; struct bfd_link_hash_entry **hashp; { struct linux_link_hash_entry *h; boolean insert; /* Look up and see if we already have this symbol in the hash table. If we do, and the defining entry is from a shared library, we need to create the dynamic sections. FIXME: What if abfd->xvec != info->hash->creator? We may want to be able to link Linux a.out and ELF objects together, but serious confusion is possible. */ insert = false; if (! info->relocateable && linux_hash_table (info)->dynobj == NULL && strcmp (name, SHARABLE_CONFLICTS) == 0) { if (! linux_link_create_dynamic_sections (abfd, info)) return false; linux_hash_table (info)->dynobj = abfd; insert = true; } if (bfd_is_abs_section (section) && (IS_GOT_SYM (name) || IS_PLT_SYM (name))) { h = linux_link_hash_lookup (linux_hash_table (info), name, false, false, false); if (h != NULL && h->root.root.type == bfd_link_hash_defined) { if (new_fixup (info, h, value, ! IS_PLT_SYM(name)) == NULL) return false; return true; } if (hashp != NULL) *hashp = (struct bfd_link_hash_entry *) h; } /* Do the usual procedure for adding a symbol. */ if (! _bfd_generic_link_add_one_symbol (info, abfd, name, flags, section, value, string, copy, collect, hashp)) return false; /* Insert a pointer to our table in the set vector. The dynamic linker requires this information */ if (insert) { asection *s; /* Here we do our special thing to add the pointer to the dynamic section in the SHARABLE_CONFLICTS set vector. */ s = bfd_get_section_by_name (linux_hash_table (info)->dynobj, ".dynamic"); BFD_ASSERT (s != NULL); if (! (_bfd_generic_link_add_one_symbol (info, linux_hash_table (info)->dynobj, SHARABLE_CONFLICTS, BSF_GLOBAL | BSF_CONSTRUCTOR, s, 0, NULL, false, false, NULL))) return false; } return true; } /* We will crawl the hash table and come here for every global symbol. We will examine each entry and see if there are indications that we need to add a fixup. There are two possible cases - one is where you have duplicate definitions of PLT or GOT symbols - these will have already been caught and added as "builtin" fixups. If we find that the corresponding non PLT/GOT symbol is also present, we convert it to a regular fixup instead. This function is called via linux_link_hash_traverse. */ static boolean linux_tally_symbols (h, data) struct linux_link_hash_entry *h; PTR data; { struct bfd_link_info *info = (struct bfd_link_info *) data; struct fixup *f, *f1; int is_plt; struct linux_link_hash_entry *h1, *h2; /* If this symbol is not a PLT/GOT, we do not even need to look at it */ is_plt = IS_PLT_SYM (h->root.root.root.string); if (is_plt || IS_GOT_SYM (h->root.root.root.string)) { /* Look up this symbol twice. Once just as a regular lookup, and then again following all of the indirect links until we reach a real symbol. */ h1 = linux_link_hash_lookup (linux_hash_table (info), (h->root.root.root.string + sizeof PLT_REF_PREFIX - 1), false, false, true); /* h2 does not follow indirect symbols. */ h2 = linux_link_hash_lookup (linux_hash_table (info), (h->root.root.root.string + sizeof PLT_REF_PREFIX - 1), false, false, false); /* The real symbol must exist but if it is also an ABS symbol, there is no need to have a fixup. This is because they both came from the same library. If on the other hand, we had to use an indirect symbol to get to the real symbol, we add the fixup anyway, since there are cases where these symbols come from different shared libraries */ if (h1 != NULL && ((h1->root.root.type == bfd_link_hash_defined && ! bfd_is_abs_section (h->root.root.u.def.section)) || h2->root.root.type == bfd_link_hash_indirect)) { f = new_fixup (info, h1, h->root.root.u.def.value, 0); if (f == NULL) { /* FIXME: No way to return error. */ abort (); } f->jump = is_plt; /* See if there is a "builtin" fixup already present involving this symbol. If so, convert it to a regular fixup. In the end, this relaxes some of the requirements about the order of performing fixups. */ for (f1 = linux_hash_table (info)->fixup_list; f1 != NULL; f1 = f1->next) { if (f1 == f) continue; if (f1->h != h) continue; f1->h = h1; f1->jump = is_plt; f1->builtin = 0; } } /* Quick and dirty way of stripping these symbols from the symtab. */ h->root.written = true; } return true; } /* This is called to set the size of the .dynamic section is. It is called by the Linux linker emulation before_allocation routine. We have finished reading all of the input files, and now we just scan the hash tables to find out how many additional fixups are required. */ boolean bfd_linux_size_dynamic_sections (output_bfd, info) bfd *output_bfd; struct bfd_link_info *info; { struct fixup *f; asection *s; /* First find the fixups... */ linux_link_hash_traverse (linux_hash_table (info), linux_tally_symbols, (PTR) info); /* If there are builtin fixups, leave room for a marker. This is used by the dynamic linker so that it knows that all that follow are builtin fixups instead of regular fixups. */ for (f = linux_hash_table (info)->fixup_list; f != NULL; f = f->next) { if (f->builtin) { ++linux_hash_table (info)->fixup_count; ++linux_hash_table (info)->local_builtins; break; } } if (linux_hash_table (info)->dynobj == NULL) { if (linux_hash_table (info)->fixup_count > 0) abort (); return true; } /* Allocate memory for our fixup table. We will fill it in later. */ s = bfd_get_section_by_name (linux_hash_table (info)->dynobj, ".dynamic"); if (s != NULL) { s->_raw_size = 8 + linux_hash_table (info)->fixup_count * 8; s->contents = (bfd_byte *) bfd_alloc (output_bfd, s->_raw_size); if (s->contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } memset (s->contents, 0, s->_raw_size); } return true; } /* We come here once we are ready to actually write the fixup table to the output file. Scan the fixup tables and so forth and generate the stuff we need. */ static boolean linux_finish_dynamic_link (output_bfd, info) bfd *output_bfd; struct bfd_link_info *info; { asection *s, *os, *is; bfd_byte *fixup_table; struct linux_link_hash_entry *h; struct fixup *f; unsigned int new_addr; int section_offset; int fixups_written; if (linux_hash_table (info)->dynobj == NULL) return true; s = bfd_get_section_by_name (linux_hash_table (info)->dynobj, ".dynamic"); BFD_ASSERT (s != NULL); os = s->output_section; fixups_written = 0; #ifdef LINUX_LINK_DEBUG printf ("Fixup table file offset: %x VMA: %x\n", os->filepos + s->output_offset, os->vma + s->output_offset); #endif fixup_table = s->contents; bfd_put_32 (output_bfd, linux_hash_table (info)->fixup_count, fixup_table); fixup_table += 4; /* Fill in fixup table. */ for (f = linux_hash_table (info)->fixup_list; f != NULL; f = f->next) { if (f->builtin) continue; if (f->h->root.root.type != bfd_link_hash_defined) { /* FIXME! */ fprintf (stderr, "Symbol %s not defined for fixups\n", f->h->root.root.root.string); continue; } is = f->h->root.root.u.def.section; section_offset = is->output_section->vma + is->output_offset; new_addr = f->h->root.root.u.def.value + section_offset; #ifdef LINUX_LINK_DEBUG printf ("Fixup(%d) %s: %x %x\n",f->jump, f->h->root.root.string, new_addr, f->value); #endif if (f->jump) { /* Relative address */ new_addr = new_addr - (f->value + 5); bfd_put_32 (output_bfd, new_addr, fixup_table); fixup_table += 4; bfd_put_32 (output_bfd, f->value + 1, fixup_table); fixup_table += 4; } else { bfd_put_32 (output_bfd, new_addr, fixup_table); fixup_table += 4; bfd_put_32 (output_bfd, f->value, fixup_table); fixup_table += 4; } ++fixups_written; } if (linux_hash_table (info)->local_builtins != 0) { /* Special marker so we know to switch to the other type of fixup */ bfd_put_32 (output_bfd, 0, fixup_table); fixup_table += 4; bfd_put_32 (output_bfd, 0, fixup_table); fixup_table += 4; ++fixups_written; for (f = linux_hash_table (info)->fixup_list; f != NULL; f = f->next) { if (! f->builtin) continue; if (f->h->root.root.type != bfd_link_hash_defined) { /* FIXME! */ fprintf (stderr, "Symbol %s not defined for fixups\n", f->h->root.root.root.string); continue; } is = f->h->root.root.u.def.section; section_offset = is->output_section->vma + is->output_offset; new_addr = f->h->root.root.u.def.value + section_offset; #ifdef LINUX_LINK_DEBUG printf ("Fixup(B) %s: %x %x\n", f->h->root.root.string, new_addr, f->value); #endif bfd_put_32 (output_bfd, new_addr, fixup_table); fixup_table += 4; bfd_put_32 (output_bfd, f->value, fixup_table); fixup_table += 4; ++fixups_written; } } if (linux_hash_table (info)->fixup_count != fixups_written) { /* FIXME! */ fprintf (stderr, "Warning: fixup count mismatch\n"); while (linux_hash_table (info)->fixup_count > fixups_written) { bfd_put_32 (output_bfd, 0, fixup_table); fixup_table += 4; bfd_put_32 (output_bfd, 0, fixup_table); fixup_table += 4; ++fixups_written; } } h = linux_link_hash_lookup (linux_hash_table (info), "__BUILTIN_FIXUPS__", false, false, false); if (h != NULL && h->root.root.type == bfd_link_hash_defined) { is = h->root.root.u.def.section; section_offset = is->output_section->vma + is->output_offset; new_addr = h->root.root.u.def.value + section_offset; #ifdef LINUX_LINK_DEBUG printf ("Builtin fixup table at %x\n", new_addr); #endif bfd_put_32 (output_bfd, new_addr, fixup_table); } else bfd_put_32 (output_bfd, 0, fixup_table); if (bfd_seek (output_bfd, os->filepos + s->output_offset, SEEK_SET) != 0) return false; if (bfd_write ((PTR) s->contents, 1, s->_raw_size, output_bfd) != s->_raw_size) return false; return true; } #define MY_bfd_link_hash_table_create linux_link_hash_table_create #define MY_add_one_symbol linux_add_one_symbol #define MY_finish_dynamic_link linux_finish_dynamic_link #include "aout-target.h" gdb-4.13/bfd/i386lynx.c 666 34562 1752 37061 5610535327 13075 0ustar fnfcygnus/* BFD back-end for i386 a.out binaries under LynxOS. Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define BYTES_IN_WORD 4 #define N_SHARED_LIB(x) 0 #define TEXT_START_ADDR 0 #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define DEFAULT_ARCH bfd_arch_i386 #define MY(OP) CAT(i386lynx_aout_,OP) #define TARGETNAME "a.out-i386-lynx" #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #ifndef WRITE_HEADERS #define WRITE_HEADERS(abfd, execp) \ { \ bfd_size_type text_size; /* dummy vars */ \ file_ptr text_end; \ if (adata(abfd).magic == undecided_magic) \ NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end); \ \ execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE; \ execp->a_entry = bfd_get_start_address (abfd); \ \ execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * \ obj_reloc_entry_size (abfd)); \ execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * \ obj_reloc_entry_size (abfd)); \ NAME(aout,swap_exec_header_out) (abfd, execp, &exec_bytes); \ \ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) return false; \ if (bfd_write ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd) \ != EXEC_BYTES_SIZE) \ return false; \ /* Now write out reloc info, followed by syms and strings */ \ \ if (bfd_get_symcount (abfd) != 0) \ { \ if (bfd_seek (abfd, (file_ptr)(N_SYMOFF(*execp)), SEEK_SET) \ != 0) \ return false; \ \ if (! NAME(aout,write_syms)(abfd)) return false; \ \ if (bfd_seek (abfd, (file_ptr)(N_TRELOFF(*execp)), SEEK_SET) \ != 0) \ return false; \ \ if (!NAME(lynx,squirt_out_relocs) (abfd, obj_textsec (abfd))) \ return false; \ if (bfd_seek (abfd, (file_ptr)(N_DRELOFF(*execp)), SEEK_SET) \ != 0) \ return 0; \ \ if (!NAME(lynx,squirt_out_relocs)(abfd, obj_datasec (abfd))) \ return false; \ } \ } #endif #include "libaout.h" #include "aout/aout64.h" #ifdef HOST_LYNX char *lynx_core_file_failing_command (); int lynx_core_file_failing_signal (); boolean lynx_core_file_matches_executable_p (); const bfd_target *lynx_core_file_p (); #define MY_core_file_failing_command lynx_core_file_failing_command #define MY_core_file_failing_signal lynx_core_file_failing_signal #define MY_core_file_matches_executable_p lynx_core_file_matches_executable_p #define MY_core_file_p lynx_core_file_p #endif /* HOST_LYNX */ #define KEEPIT flags extern reloc_howto_type aout_32_ext_howto_table[]; extern reloc_howto_type aout_32_std_howto_table[]; /* Standard reloc stuff */ /* Output standard relocation information to a file in target byte order. */ void NAME(lynx,swap_std_reloc_out) (abfd, g, natptr) bfd *abfd; arelent *g; struct reloc_std_external *natptr; { int r_index; asymbol *sym = *(g->sym_ptr_ptr); int r_extern; unsigned int r_length; int r_pcrel; int r_baserel, r_jmptable, r_relative; unsigned int r_addend; asection *output_section = sym->section->output_section; PUT_WORD (abfd, g->address, natptr->r_address); r_length = g->howto->size; /* Size as a power of two */ r_pcrel = (int) g->howto->pc_relative; /* Relative to PC? */ /* r_baserel, r_jmptable, r_relative??? FIXME-soon */ r_baserel = 0; r_jmptable = 0; r_relative = 0; r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma; /* name was clobbered by aout_write_syms to be symbol index */ /* If this relocation is relative to a symbol then set the r_index to the symbols index, and the r_extern bit. Absolute symbols can come in in two ways, either as an offset from the abs section, or as a symbol which has an abs value. check for that here */ if (bfd_is_com_section (output_section) || bfd_is_abs_section (output_section) || bfd_is_und_section (output_section)) { if (bfd_abs_section_ptr->symbol == sym) { /* Whoops, looked like an abs symbol, but is really an offset from the abs section */ r_index = 0; r_extern = 0; } else { /* Fill in symbol */ r_extern = 1; r_index = stoi ((*(g->sym_ptr_ptr))->KEEPIT); } } else { /* Just an ordinary section */ r_extern = 0; r_index = output_section->target_index; } /* now the fun stuff */ if (abfd->xvec->header_byteorder_big_p != false) { natptr->r_index[0] = r_index >> 16; natptr->r_index[1] = r_index >> 8; natptr->r_index[2] = r_index; natptr->r_type[0] = (r_extern ? RELOC_STD_BITS_EXTERN_BIG : 0) | (r_pcrel ? RELOC_STD_BITS_PCREL_BIG : 0) | (r_baserel ? RELOC_STD_BITS_BASEREL_BIG : 0) | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_BIG : 0) | (r_relative ? RELOC_STD_BITS_RELATIVE_BIG : 0) | (r_length << RELOC_STD_BITS_LENGTH_SH_BIG); } else { natptr->r_index[2] = r_index >> 16; natptr->r_index[1] = r_index >> 8; natptr->r_index[0] = r_index; natptr->r_type[0] = (r_extern ? RELOC_STD_BITS_EXTERN_LITTLE : 0) | (r_pcrel ? RELOC_STD_BITS_PCREL_LITTLE : 0) | (r_baserel ? RELOC_STD_BITS_BASEREL_LITTLE : 0) | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_LITTLE : 0) | (r_relative ? RELOC_STD_BITS_RELATIVE_LITTLE : 0) | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE); } } /* Extended stuff */ /* Output extended relocation information to a file in target byte order. */ void NAME(lynx,swap_ext_reloc_out) (abfd, g, natptr) bfd *abfd; arelent *g; register struct reloc_ext_external *natptr; { int r_index; int r_extern; unsigned int r_type; unsigned int r_addend; asymbol *sym = *(g->sym_ptr_ptr); asection *output_section = sym->section->output_section; PUT_WORD (abfd, g->address, natptr->r_address); r_type = (unsigned int) g->howto->type; r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma; /* If this relocation is relative to a symbol then set the r_index to the symbols index, and the r_extern bit. Absolute symbols can come in in two ways, either as an offset from the abs section, or as a symbol which has an abs value. check for that here */ if (bfd_is_com_section (output_section) || bfd_is_abs_section (output_section) || bfd_is_und_section (output_section)) { if (bfd_abs_section_ptr->symbol == sym) { /* Whoops, looked like an abs symbol, but is really an offset from the abs section */ r_index = 0; r_extern = 0; } else { r_extern = 1; r_index = stoi ((*(g->sym_ptr_ptr))->KEEPIT); } } else { /* Just an ordinary section */ r_extern = 0; r_index = output_section->target_index; } /* now the fun stuff */ if (abfd->xvec->header_byteorder_big_p != false) { natptr->r_index[0] = r_index >> 16; natptr->r_index[1] = r_index >> 8; natptr->r_index[2] = r_index; natptr->r_type[0] = (r_extern ? RELOC_EXT_BITS_EXTERN_BIG : 0) | (r_type << RELOC_EXT_BITS_TYPE_SH_BIG); } else { natptr->r_index[2] = r_index >> 16; natptr->r_index[1] = r_index >> 8; natptr->r_index[0] = r_index; natptr->r_type[0] = (r_extern ? RELOC_EXT_BITS_EXTERN_LITTLE : 0) | (r_type << RELOC_EXT_BITS_TYPE_SH_LITTLE); } PUT_WORD (abfd, r_addend, natptr->r_addend); } /* BFD deals internally with all things based from the section they're in. so, something in 10 bytes into a text section with a base of 50 would have a symbol (.text+10) and know .text vma was 50. Aout keeps all it's symbols based from zero, so the symbol would contain 60. This macro subs the base of each section from the value to give the true offset from the section */ #define MOVE_ADDRESS(ad) \ if (r_extern) { \ /* undefined symbol */ \ cache_ptr->sym_ptr_ptr = symbols + r_index; \ cache_ptr->addend = ad; \ } else { \ /* defined, section relative. replace symbol with pointer to \ symbol which points to section */ \ switch (r_index) { \ case N_TEXT: \ case N_TEXT | N_EXT: \ cache_ptr->sym_ptr_ptr = obj_textsec(abfd)->symbol_ptr_ptr; \ cache_ptr->addend = ad - su->textsec->vma; \ break; \ case N_DATA: \ case N_DATA | N_EXT: \ cache_ptr->sym_ptr_ptr = obj_datasec(abfd)->symbol_ptr_ptr; \ cache_ptr->addend = ad - su->datasec->vma; \ break; \ case N_BSS: \ case N_BSS | N_EXT: \ cache_ptr->sym_ptr_ptr = obj_bsssec(abfd)->symbol_ptr_ptr; \ cache_ptr->addend = ad - su->bsssec->vma; \ break; \ default: \ case N_ABS: \ case N_ABS | N_EXT: \ cache_ptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; \ cache_ptr->addend = ad; \ break; \ } \ } \ void NAME(lynx,swap_ext_reloc_in) (abfd, bytes, cache_ptr, symbols) bfd *abfd; struct reloc_ext_external *bytes; arelent *cache_ptr; asymbol **symbols; { int r_index; int r_extern; unsigned int r_type; struct aoutdata *su = &(abfd->tdata.aout_data->a); cache_ptr->address = (GET_SWORD (abfd, bytes->r_address)); r_index = bytes->r_index[1]; r_extern = (0 != (bytes->r_index[0] & RELOC_EXT_BITS_EXTERN_BIG)); r_type = (bytes->r_index[0] & RELOC_EXT_BITS_TYPE_BIG) >> RELOC_EXT_BITS_TYPE_SH_BIG; cache_ptr->howto = aout_32_ext_howto_table + r_type; MOVE_ADDRESS (GET_SWORD (abfd, bytes->r_addend)); } void NAME(lynx,swap_std_reloc_in) (abfd, bytes, cache_ptr, symbols) bfd *abfd; struct reloc_std_external *bytes; arelent *cache_ptr; asymbol **symbols; { int r_index; int r_extern; unsigned int r_length; int r_pcrel; int r_baserel, r_jmptable, r_relative; struct aoutdata *su = &(abfd->tdata.aout_data->a); cache_ptr->address = bfd_h_get_32 (abfd, bytes->r_address); r_index = bytes->r_index[1]; r_extern = (0 != (bytes->r_index[0] & RELOC_STD_BITS_EXTERN_BIG)); r_pcrel = (0 != (bytes->r_index[0] & RELOC_STD_BITS_PCREL_BIG)); r_baserel = (0 != (bytes->r_index[0] & RELOC_STD_BITS_BASEREL_BIG)); r_jmptable = (0 != (bytes->r_index[0] & RELOC_STD_BITS_JMPTABLE_BIG)); r_relative = (0 != (bytes->r_index[0] & RELOC_STD_BITS_RELATIVE_BIG)); r_length = (bytes->r_index[0] & RELOC_STD_BITS_LENGTH_BIG) >> RELOC_STD_BITS_LENGTH_SH_BIG; cache_ptr->howto = aout_32_std_howto_table + r_length + 4 * r_pcrel; /* FIXME-soon: Roll baserel, jmptable, relative bits into howto setting */ MOVE_ADDRESS (0); } /* Reloc hackery */ boolean NAME(lynx,slurp_reloc_table) (abfd, asect, symbols) bfd *abfd; sec_ptr asect; asymbol **symbols; { unsigned int count; bfd_size_type reloc_size; PTR relocs; arelent *reloc_cache; size_t each_size; if (asect->relocation) return true; if (asect->flags & SEC_CONSTRUCTOR) return true; if (asect == obj_datasec (abfd)) { reloc_size = exec_hdr (abfd)->a_drsize; goto doit; } if (asect == obj_textsec (abfd)) { reloc_size = exec_hdr (abfd)->a_trsize; goto doit; } bfd_set_error (bfd_error_invalid_operation); return false; doit: if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0) return false; each_size = obj_reloc_entry_size (abfd); count = reloc_size / each_size; reloc_cache = (arelent *) malloc (count * sizeof (arelent)); if (!reloc_cache && count != 0) { nomem: bfd_set_error (bfd_error_no_memory); return false; } memset (reloc_cache, 0, count * sizeof (arelent)); relocs = (PTR) bfd_alloc (abfd, reloc_size); if (!relocs && reloc_size != 0) { free (reloc_cache); goto nomem; } if (bfd_read (relocs, 1, reloc_size, abfd) != reloc_size) { bfd_release (abfd, relocs); free (reloc_cache); return false; } if (each_size == RELOC_EXT_SIZE) { register struct reloc_ext_external *rptr = (struct reloc_ext_external *) relocs; unsigned int counter = 0; arelent *cache_ptr = reloc_cache; for (; counter < count; counter++, rptr++, cache_ptr++) { NAME(lynx,swap_ext_reloc_in) (abfd, rptr, cache_ptr, symbols); } } else { register struct reloc_std_external *rptr = (struct reloc_std_external *) relocs; unsigned int counter = 0; arelent *cache_ptr = reloc_cache; for (; counter < count; counter++, rptr++, cache_ptr++) { NAME(lynx,swap_std_reloc_in) (abfd, rptr, cache_ptr, symbols); } } bfd_release (abfd, relocs); asect->relocation = reloc_cache; asect->reloc_count = count; return true; } /* Write out a relocation section into an object file. */ boolean NAME(lynx,squirt_out_relocs) (abfd, section) bfd *abfd; asection *section; { arelent **generic; unsigned char *native, *natptr; size_t each_size; unsigned int count = section->reloc_count; size_t natsize; if (count == 0) return true; each_size = obj_reloc_entry_size (abfd); natsize = each_size * count; native = (unsigned char *) bfd_zalloc (abfd, natsize); if (!native) { bfd_set_error (bfd_error_no_memory); return false; } generic = section->orelocation; if (each_size == RELOC_EXT_SIZE) { for (natptr = native; count != 0; --count, natptr += each_size, ++generic) NAME(lynx,swap_ext_reloc_out) (abfd, *generic, (struct reloc_ext_external *) natptr); } else { for (natptr = native; count != 0; --count, natptr += each_size, ++generic) NAME(lynx,swap_std_reloc_out) (abfd, *generic, (struct reloc_std_external *) natptr); } if (bfd_write ((PTR) native, 1, natsize, abfd) != natsize) { bfd_release (abfd, native); return false; } bfd_release (abfd, native); return true; } /* This is stupid. This function should be a boolean predicate */ long NAME(lynx,canonicalize_reloc) (abfd, section, relptr, symbols) bfd *abfd; sec_ptr section; arelent **relptr; asymbol **symbols; { arelent *tblptr = section->relocation; unsigned int count; if (!(tblptr || NAME(lynx,slurp_reloc_table) (abfd, section, symbols))) return -1; if (section->flags & SEC_CONSTRUCTOR) { arelent_chain *chain = section->constructor_chain; for (count = 0; count < section->reloc_count; count++) { *relptr++ = &chain->relent; chain = chain->next; } } else { tblptr = section->relocation; for (count = 0; count++ < section->reloc_count;) { *relptr++ = tblptr++; } } *relptr = 0; return section->reloc_count; } #define MY_canonicalize_reloc NAME(lynx,canonicalize_reloc) #include "aout-target.h" gdb-4.13/bfd/i386mach3.c 666 34562 1752 5151 5606352531 13050 0ustar fnfcygnus/* BFD back-end for i386 a.out (Mach 3) binaries. Copyright (C) 1990, 1991, 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This is for Mach 3, which uses a.out, not Mach-O. */ #ifndef MACH #define MACH #endif /* There is no magic number or anything which lets us distinguish this target from i386aout or i386bsd. So this target is only useful if it is the default target. */ #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define BYTES_IN_WORD 4 #define TEXT_START_ADDR 0x10000 /* * Is the assumption that N_MAGIC == ZMAGIC still true? * Also, why do we not adjust for the exec header? Does our * loader do things differently? */ #define N_HEADER_IN_TEXT(x) 1 /* (N_MAGIC(x) == ZMAGIC) */ #define N_TXTSIZE(x) ((x).a_text) /* * Mach 3.0 does not (yet) support shared libraries. */ #define N_SHARED_LIB(x) 0 /* * If the entry isn't the standard entry point for UX binaries, then * assume that text starts at 0. This is a terrible assumption, but * it does the right thing for emulator and BSD386 binaries. */ #define N_TXTADDR(x) \ (N_MAGIC(x) != ZMAGIC ? 0 : /* object file or NMAGIC */\ ((x).a_entry != (TEXT_START_ADDR + EXEC_BYTES_SIZE)) ? 0 : \ N_HEADER_IN_TEXT(x) ? \ TEXT_START_ADDR + EXEC_BYTES_SIZE : /* no padding */\ TEXT_START_ADDR /* a page of padding */\ ) /* * This is an attempt to be compatible with BSD386 binaries, which * have a slightly different layout. */ #define N_TXTOFF(x) \ ((x).a_entry == 0 ? 0x1000: \ (N_MAGIC(x) != ZMAGIC ? EXEC_BYTES_SIZE : /* object file or NMAGIC */\ N_HEADER_IN_TEXT(x) ? \ EXEC_BYTES_SIZE : /* no padding */ \ PAGE_SIZE /* a page of padding */ \ )) #define DEFAULT_ARCH bfd_arch_i386 #define MY(OP) CAT(i386mach3_,OP) #define TARGETNAME "a.out-i386-mach3" #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" #include "aout-target.h" gdb-4.13/bfd/i386os9k.c 666 34562 1752 26175 5601410056 12763 0ustar fnfcygnus/* BFD back-end for os9000 i386 binaries. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "bfdlink.h" #include "libaout.h" /* BFD a.out internal data structures */ #include "os9k.h" static const bfd_target *os9k_callback PARAMS ((bfd *)); /* Swaps the information in an executable header taken from a raw byte stream memory image, into the internal exec_header structure. */ boolean os9k_swap_exec_header_in (abfd, raw_bytes, execp) bfd *abfd; mh_com *raw_bytes; struct internal_exec *execp; { mh_com *bytes = (mh_com *) raw_bytes; unsigned int dload, dmemsize, dmemstart; /* Now fill in fields in the execp, from the bytes in the raw data. */ execp->a_info = bfd_h_get_16 (abfd, bytes->m_sync); execp->a_syms = 0; execp->a_entry = bfd_h_get_32 (abfd, bytes->m_exec); execp->a_talign = 2; execp->a_dalign = 2; execp->a_balign = 2; dload = bfd_h_get_32 (abfd, bytes->m_idata); execp->a_data = dload + 8; if (bfd_seek (abfd, (file_ptr) dload, SEEK_SET) != 0 || (bfd_read (&dmemstart, sizeof (dmemstart), 1, abfd) != sizeof (dmemstart)) || (bfd_read (&dmemsize, sizeof (dmemsize), 1, abfd) != sizeof (dmemsize))) return false; execp->a_tload = 0; execp->a_dload = bfd_h_get_32 (abfd, (unsigned char *) &dmemstart); execp->a_text = dload - execp->a_tload; execp->a_data = bfd_h_get_32 (abfd, (unsigned char *) &dmemsize); execp->a_bss = bfd_h_get_32 (abfd, bytes->m_data) - execp->a_data; execp->a_trsize = 0; execp->a_drsize = 0; return true; } #if 0 /* Swaps the information in an internal exec header structure into the supplied buffer ready for writing to disk. */ PROTO (void, os9k_swap_exec_header_out, (bfd * abfd, struct internal_exec * execp, struct mh_com * raw_bytes)); void os9k_swap_exec_header_out (abfd, execp, raw_bytes) bfd *abfd; struct internal_exec *execp; mh_com *raw_bytes; { mh_com *bytes = (mh_com *) raw_bytes; /* Now fill in fields in the raw data, from the fields in the exec struct. */ bfd_h_put_32 (abfd, execp->a_info, bytes->e_info); bfd_h_put_32 (abfd, execp->a_text, bytes->e_text); bfd_h_put_32 (abfd, execp->a_data, bytes->e_data); bfd_h_put_32 (abfd, execp->a_bss, bytes->e_bss); bfd_h_put_32 (abfd, execp->a_syms, bytes->e_syms); bfd_h_put_32 (abfd, execp->a_entry, bytes->e_entry); bfd_h_put_32 (abfd, execp->a_trsize, bytes->e_trsize); bfd_h_put_32 (abfd, execp->a_drsize, bytes->e_drsize); bfd_h_put_32 (abfd, execp->a_tload, bytes->e_tload); bfd_h_put_32 (abfd, execp->a_dload, bytes->e_dload); bytes->e_talign[0] = execp->a_talign; bytes->e_dalign[0] = execp->a_dalign; bytes->e_balign[0] = execp->a_balign; bytes->e_relaxable[0] = execp->a_relaxable; } #endif /* 0 */ static const bfd_target * os9k_object_p (abfd) bfd *abfd; { struct internal_exec anexec; mh_com exec_bytes; if (bfd_read ((PTR) & exec_bytes, MHCOM_BYTES_SIZE, 1, abfd) != MHCOM_BYTES_SIZE) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } anexec.a_info = bfd_h_get_16 (abfd, exec_bytes.m_sync); if (N_BADMAG (anexec)) { bfd_set_error (bfd_error_wrong_format); return 0; } if (! os9k_swap_exec_header_in (abfd, &exec_bytes, &anexec)) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return NULL; } return aout_32_some_aout_object_p (abfd, &anexec, os9k_callback); } /* Finish up the opening of a b.out file for reading. Fill in all the fields that are not handled by common code. */ static const bfd_target * os9k_callback (abfd) bfd *abfd; { struct internal_exec *execp = exec_hdr (abfd); unsigned long bss_start; /* Architecture and machine type */ bfd_set_arch_mach (abfd, bfd_arch_i386, 0); /* The positions of the string table and symbol table. */ obj_str_filepos (abfd) = 0; obj_sym_filepos (abfd) = 0; /* The alignments of the sections */ obj_textsec (abfd)->alignment_power = execp->a_talign; obj_datasec (abfd)->alignment_power = execp->a_dalign; obj_bsssec (abfd)->alignment_power = execp->a_balign; /* The starting addresses of the sections. */ obj_textsec (abfd)->vma = execp->a_tload; obj_datasec (abfd)->vma = execp->a_dload; /* And reload the sizes, since the aout module zaps them */ obj_textsec (abfd)->_raw_size = execp->a_text; bss_start = execp->a_dload + execp->a_data; /* BSS = end of data section */ obj_bsssec (abfd)->vma = align_power (bss_start, execp->a_balign); /* The file positions of the sections */ obj_textsec (abfd)->filepos = execp->a_entry; obj_datasec (abfd)->filepos = execp->a_dload; /* The file positions of the relocation info *** obj_textsec (abfd)->rel_filepos = N_TROFF(*execp); obj_datasec (abfd)->rel_filepos = N_DROFF(*execp); */ adata (abfd).page_size = 1; /* Not applicable. */ adata (abfd).segment_size = 1;/* Not applicable. */ adata (abfd).exec_bytes_size = MHCOM_BYTES_SIZE; return abfd->xvec; } #if 0 struct bout_data_struct { struct aoutdata a; struct internal_exec e; }; static boolean os9k_mkobject (abfd) bfd *abfd; { struct bout_data_struct *rawptr; rawptr = (struct bout_data_struct *) bfd_zalloc (abfd, sizeof (struct bout_data_struct)); if (rawptr == NULL) { bfd_set_error (bfd_error_no_memory); return false; } abfd->tdata.bout_data = rawptr; exec_hdr (abfd) = &rawptr->e; obj_textsec (abfd) = (asection *) NULL; obj_datasec (abfd) = (asection *) NULL; obj_bsssec (abfd) = (asection *) NULL; return true; } static boolean os9k_write_object_contents (abfd) bfd *abfd; { struct external_exec swapped_hdr; if (! aout_32_make_sections (abfd)) return false; exec_hdr (abfd)->a_info = BMAGIC; exec_hdr (abfd)->a_text = obj_textsec (abfd)->_raw_size; exec_hdr (abfd)->a_data = obj_datasec (abfd)->_raw_size; exec_hdr (abfd)->a_bss = obj_bsssec (abfd)->_raw_size; exec_hdr (abfd)->a_syms = bfd_get_symcount (abfd) * sizeof (struct nlist); exec_hdr (abfd)->a_entry = bfd_get_start_address (abfd); exec_hdr (abfd)->a_trsize = ((obj_textsec (abfd)->reloc_count) * sizeof (struct relocation_info)); exec_hdr (abfd)->a_drsize = ((obj_datasec (abfd)->reloc_count) * sizeof (struct relocation_info)); exec_hdr (abfd)->a_talign = obj_textsec (abfd)->alignment_power; exec_hdr (abfd)->a_dalign = obj_datasec (abfd)->alignment_power; exec_hdr (abfd)->a_balign = obj_bsssec (abfd)->alignment_power; exec_hdr (abfd)->a_tload = obj_textsec (abfd)->vma; exec_hdr (abfd)->a_dload = obj_datasec (abfd)->vma; bout_swap_exec_header_out (abfd, exec_hdr (abfd), &swapped_hdr); if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0 || (bfd_write ((PTR) & swapped_hdr, 1, EXEC_BYTES_SIZE, abfd) != EXEC_BYTES_SIZE)) return false; /* Now write out reloc info, followed by syms and strings */ if (bfd_get_symcount (abfd) != 0) { if (bfd_seek (abfd, (file_ptr) (N_SYMOFF (*exec_hdr (abfd))), SEEK_SET) != 0) return false; if (!aout_32_write_syms (abfd)) return false; if (bfd_seek (abfd, (file_ptr) (N_TROFF (*exec_hdr (abfd))), SEEK_SET) != 0) return false; if (!b_out_squirt_out_relocs (abfd, obj_textsec (abfd))) return false; if (bfd_seek (abfd, (file_ptr) (N_DROFF (*exec_hdr (abfd))), SEEK_SET) != 0) return false; if (!b_out_squirt_out_relocs (abfd, obj_datasec (abfd))) return false; } return true; } static boolean os9k_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; unsigned char *location; file_ptr offset; int count; { if (abfd->output_has_begun == false) { /* set by bfd.c handler */ if (! aout_32_make_sections (abfd)) return false; obj_textsec (abfd)->filepos = sizeof (struct internal_exec); obj_datasec (abfd)->filepos = obj_textsec (abfd)->filepos + obj_textsec (abfd)->_raw_size; } /* regardless, once we know what we're doing, we might as well get going */ if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0) return false; if (count != 0) { return (bfd_write ((PTR) location, 1, count, abfd) == count) ? true : false; } return true; } #endif /* 0 */ static int os9k_sizeof_headers (ignore_abfd, ignore) bfd *ignore_abfd; boolean ignore; { return sizeof (struct internal_exec); } /***********************************************************************/ #define aout_32_close_and_cleanup aout_32_bfd_free_cached_info #define aout_32_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol #define aout_32_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup #define os9k_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define os9k_bfd_relax_section bfd_generic_relax_section #define os9k_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define os9k_bfd_link_add_symbols _bfd_generic_link_add_symbols #define os9k_bfd_final_link _bfd_generic_final_link const bfd_target i386os9k_vec = { "i386os9k", /* name */ bfd_target_os9k_flavour, false, /* data byte order is little */ false, /* hdr byte order is big */ (HAS_RELOC | EXEC_P | WP_TEXT), /* object flags */ (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD), /* section flags */ 0, /* symbol leading char */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 2, /* minumum alignment power */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ {_bfd_dummy_target, os9k_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, bfd_false, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, bfd_false, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (aout_32), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_bsd), BFD_JUMP_TABLE_SYMBOLS (aout_32), BFD_JUMP_TABLE_RELOCS (aout_32), BFD_JUMP_TABLE_WRITE (aout_32), BFD_JUMP_TABLE_LINK (os9k), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0, }; gdb-4.13/bfd/ieee.c 666 34562 1752 230260 5601614622 12410 0ustar fnfcygnus/* BFD back-end for ieee-695 objects. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define KEEPMINUSPCININST 0 /* IEEE 695 format is a stream of records, which we parse using a simple one- token (which is one byte in this lexicon) lookahead recursive decent parser. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "ieee.h" #include "libieee.h" #include "obstack.h" #define obstack_chunk_alloc malloc #define obstack_chunk_free free /* Functions for writing to ieee files in the strange way that the standard requires. */ static void ieee_write_byte (abfd, byte) bfd *abfd; bfd_byte byte; { if (bfd_write ((PTR) & byte, 1, 1, abfd) != 1) abort (); } static void ieee_write_twobyte (abfd, twobyte) bfd *abfd; int twobyte; { bfd_byte b[2]; b[1] = twobyte & 0xff; b[0] = twobyte >> 8; if (bfd_write ((PTR) & b[0], 1, 2, abfd) != 2) abort (); } static void ieee_write_2bytes (abfd, bytes) bfd *abfd; int bytes; { bfd_byte buffer[2]; buffer[0] = bytes >> 8; buffer[1] = bytes & 0xff; if (bfd_write ((PTR) buffer, 1, 2, abfd) != 2) abort (); } static void ieee_write_int (abfd, value) bfd *abfd; bfd_vma value; { if (((unsigned) value) <= 127) { ieee_write_byte (abfd, (bfd_byte) value); } else { unsigned int length; /* How many significant bytes ? */ /* FIXME FOR LONGER INTS */ if (value & 0xff000000) { length = 4; } else if (value & 0x00ff0000) { length = 3; } else if (value & 0x0000ff00) { length = 2; } else length = 1; ieee_write_byte (abfd, (bfd_byte) ((int) ieee_number_repeat_start_enum + length)); switch (length) { case 4: ieee_write_byte (abfd, (bfd_byte) (value >> 24)); case 3: ieee_write_byte (abfd, (bfd_byte) (value >> 16)); case 2: ieee_write_byte (abfd, (bfd_byte) (value >> 8)); case 1: ieee_write_byte (abfd, (bfd_byte) (value)); } } } static void ieee_write_id (abfd, id) bfd *abfd; CONST char *id; { size_t length = strlen (id); if (length <= 127) { ieee_write_byte (abfd, (bfd_byte) length); } else if (length < 255) { ieee_write_byte (abfd, ieee_extension_length_1_enum); ieee_write_byte (abfd, (bfd_byte) length); } else if (length < 65535) { ieee_write_byte (abfd, ieee_extension_length_2_enum); ieee_write_byte (abfd, (bfd_byte) (length >> 8)); ieee_write_byte (abfd, (bfd_byte) (length & 0xff)); } else { BFD_FAIL (); } if (bfd_write ((PTR) id, 1, length, abfd) != length) abort (); } /*************************************************************************** Functions for reading from ieee files in the strange way that the standard requires: */ #define this_byte(ieee) *((ieee)->input_p) #define next_byte(ieee) ((ieee)->input_p++) #define this_byte_and_next(ieee) (*((ieee)->input_p++)) static unsigned short read_2bytes (ieee) common_header_type *ieee; { unsigned char c1 = this_byte_and_next (ieee); unsigned char c2 = this_byte_and_next (ieee); return (c1 << 8) | c2; } static void bfd_get_string (ieee, string, length) common_header_type *ieee; char *string; size_t length; { size_t i; for (i = 0; i < length; i++) { string[i] = this_byte_and_next (ieee); } } static char * read_id (ieee) common_header_type *ieee; { size_t length; char *string; length = this_byte_and_next (ieee); if (length <= 0x7f) { /* Simple string of length 0 to 127 */ } else if (length == 0xde) { /* Length is next byte, allowing 0..255 */ length = this_byte_and_next (ieee); } else if (length == 0xdf) { /* Length is next two bytes, allowing 0..65535 */ length = this_byte_and_next (ieee); length = (length * 256) + this_byte_and_next (ieee); } /* Buy memory and read string */ string = bfd_alloc (ieee->abfd, length + 1); if (!string) { bfd_set_error (bfd_error_no_memory); return NULL; } bfd_get_string (ieee, string, length); string[length] = 0; return string; } static void ieee_write_expression (abfd, value, symbol, pcrel, index) bfd *abfd; bfd_vma value; asymbol *symbol; boolean pcrel; unsigned int index; { unsigned int term_count = 0; if (value != 0) { ieee_write_int (abfd, value); term_count++; } if (bfd_is_com_section (symbol->section) || bfd_is_und_section (symbol->section)) { /* Def of a common symbol */ ieee_write_byte (abfd, ieee_variable_X_enum); ieee_write_int (abfd, symbol->value); term_count++; } else if (! bfd_is_abs_section (symbol->section)) { /* Ref to defined symbol - */ ieee_write_byte (abfd, ieee_variable_R_enum); ieee_write_byte (abfd, (bfd_byte) (symbol->section->index + IEEE_SECTION_NUMBER_BASE)); term_count++; if (symbol->flags & BSF_GLOBAL) { ieee_write_byte (abfd, ieee_variable_I_enum); ieee_write_int (abfd, symbol->value); term_count++; } else if (symbol->flags & (BSF_LOCAL | BSF_SECTION_SYM)) { /* This is a reference to a defined local symbol, We can easily do a local as a section+offset */ ieee_write_byte (abfd, ieee_variable_R_enum); /* or L */ ieee_write_byte (abfd, (bfd_byte) (symbol->section->index + IEEE_SECTION_NUMBER_BASE)); ieee_write_int (abfd, symbol->value); term_count++; } else { BFD_FAIL (); } } if (pcrel) { /* subtract the pc from here by asking for PC of this section*/ ieee_write_byte (abfd, ieee_variable_P_enum); ieee_write_byte (abfd, (bfd_byte) (index + IEEE_SECTION_NUMBER_BASE)); ieee_write_byte (abfd, ieee_function_minus_enum); } if (term_count == 1) { ieee_write_byte (abfd, 0); } else { while (term_count > 1) { ieee_write_byte (abfd, ieee_function_plus_enum); term_count--; } } } /*****************************************************************************/ /* writes any integer into the buffer supplied and always takes 5 bytes */ static void ieee_write_int5 (buffer, value) bfd_byte *buffer; bfd_vma value; { buffer[0] = (bfd_byte) ieee_number_repeat_4_enum; buffer[1] = (value >> 24) & 0xff; buffer[2] = (value >> 16) & 0xff; buffer[3] = (value >> 8) & 0xff; buffer[4] = (value >> 0) & 0xff; } static void ieee_write_int5_out (abfd, value) bfd *abfd; bfd_vma value; { bfd_byte b[5]; ieee_write_int5 (b, value); if (bfd_write ((PTR) b, 1, 5, abfd) != 5) abort (); } static boolean parse_int (ieee, value_ptr) common_header_type *ieee; bfd_vma *value_ptr; { int value = this_byte (ieee); int result; if (value >= 0 && value <= 127) { *value_ptr = value; next_byte (ieee); return true; } else if (value >= 0x80 && value <= 0x88) { unsigned int count = value & 0xf; result = 0; next_byte (ieee); while (count) { result = (result << 8) | this_byte_and_next (ieee); count--; } *value_ptr = result; return true; } return false; } static int parse_i (ieee, ok) common_header_type *ieee; boolean *ok; { bfd_vma x; *ok = parse_int (ieee, &x); return x; } static bfd_vma must_parse_int (ieee) common_header_type *ieee; { bfd_vma result; BFD_ASSERT (parse_int (ieee, &result) == true); return result; } typedef struct { bfd_vma value; asection *section; ieee_symbol_index_type symbol; } ieee_value_type; static reloc_howto_type abs32_howto = HOWTO (1, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, "abs32", true, 0xffffffff, 0xffffffff, false); static reloc_howto_type abs16_howto = HOWTO (1, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "abs16", true, 0x0000ffff, 0x0000ffff, false); static reloc_howto_type abs8_howto = HOWTO (1, 0, 0, 8, false, 0, complain_overflow_bitfield, 0, "abs8", true, 0x000000ff, 0x000000ff, false); static reloc_howto_type rel32_howto = HOWTO (1, 0, 2, 32, true, 0, complain_overflow_signed, 0, "rel32", true, 0xffffffff, 0xffffffff, false); static reloc_howto_type rel16_howto = HOWTO (1, 0, 1, 16, true, 0, complain_overflow_signed, 0, "rel16", true, 0x0000ffff, 0x0000ffff, false); static reloc_howto_type rel8_howto = HOWTO (1, 0, 0, 8, true, 0, complain_overflow_signed, 0, "rel8", true, 0x000000ff, 0x000000ff, false); static ieee_symbol_index_type NOSYMBOL = {0, 0}; static void parse_expression (ieee, value, symbol, pcrel, extra, section) ieee_data_type *ieee; bfd_vma *value; ieee_symbol_index_type *symbol; boolean *pcrel; unsigned int *extra; asection **section; { #define POS sp[1] #define TOS sp[0] #define NOS sp[-1] #define INC sp++; #define DEC sp--; boolean loop = true; ieee_value_type stack[10]; /* The stack pointer always points to the next unused location */ #define PUSH(x,y,z) TOS.symbol=x;TOS.section=y;TOS.value=z;INC; #define POP(x,y,z) DEC;x=TOS.symbol;y=TOS.section;z=TOS.value; ieee_value_type *sp = stack; while (loop) { switch (this_byte (&(ieee->h))) { case ieee_variable_P_enum: /* P variable, current program counter for section n */ { int section_n; next_byte (&(ieee->h)); *pcrel = true; section_n = must_parse_int (&(ieee->h)); PUSH (NOSYMBOL, bfd_abs_section_ptr, TOS.value = ieee->section_table[section_n]->vma + ieee_per_section (ieee->section_table[section_n])->pc); break; } case ieee_variable_L_enum: /* L variable address of section N */ next_byte (&(ieee->h)); PUSH (NOSYMBOL, ieee->section_table[must_parse_int (&(ieee->h))], 0); break; case ieee_variable_R_enum: /* R variable, logical address of section module */ /* FIXME, this should be different to L */ next_byte (&(ieee->h)); PUSH (NOSYMBOL, ieee->section_table[must_parse_int (&(ieee->h))], 0); break; case ieee_variable_S_enum: /* S variable, size in MAUS of section module */ next_byte (&(ieee->h)); PUSH (NOSYMBOL, 0, ieee->section_table[must_parse_int (&(ieee->h))]->_raw_size); break; case ieee_variable_I_enum: case ieee_variable_X_enum: /* Push the address of external variable n */ { ieee_symbol_index_type sy; next_byte (&(ieee->h)); sy.index = (int) (must_parse_int (&(ieee->h))); sy.letter = 'X'; PUSH (sy, bfd_und_section_ptr, 0); } break; case ieee_function_minus_enum: { bfd_vma value1, value2; asection *section1, *section_dummy; ieee_symbol_index_type sy; next_byte (&(ieee->h)); POP (sy, section1, value1); POP (sy, section_dummy, value2); PUSH (sy, section1 ? section1 : section_dummy, value1 - value2); } break; case ieee_function_plus_enum: { bfd_vma value1, value2; asection *section1; asection *section2; ieee_symbol_index_type sy1; ieee_symbol_index_type sy2; next_byte (&(ieee->h)); POP (sy1, section1, value1); POP (sy2, section2, value2); PUSH (sy1.letter ? sy1 : sy2, bfd_is_abs_section (section1) ? section2 : section1, value1 + value2); } break; default: { bfd_vma va; BFD_ASSERT (this_byte (&(ieee->h)) < (int) ieee_variable_A_enum || this_byte (&(ieee->h)) > (int) ieee_variable_Z_enum); if (parse_int (&(ieee->h), &va)) { PUSH (NOSYMBOL, bfd_abs_section_ptr, va); } else { /* Thats all that we can understand. As far as I can see there is a bug in the Microtec IEEE output which I'm using to scan, whereby the comma operator is omitted sometimes in an expression, giving expressions with too many terms. We can tell if that's the case by ensuring that sp == stack here. If not, then we've pushed something too far, so we keep adding. */ while (sp != stack + 1) { asection *section1; ieee_symbol_index_type sy1; POP (sy1, section1, *extra); } { asection *dummy; POP (*symbol, dummy, *value); if (section) *section = dummy; } loop = false; } } } } } #define ieee_seek(abfd, offset) \ IEEE_DATA(abfd)->h.input_p = IEEE_DATA(abfd)->h.first_byte + offset #define ieee_pos(abfd) IEEE_DATA(abfd)->h.input_p -IEEE_DATA(abfd)->h.first_byte static unsigned int last_index; static char last_type; /* is the index for an X or a D */ static ieee_symbol_type * get_symbol (abfd, ieee, last_symbol, symbol_count, pptr, max_index, this_type ) bfd *abfd; ieee_data_type *ieee; ieee_symbol_type *last_symbol; unsigned int *symbol_count; ieee_symbol_type ***pptr; unsigned int *max_index; char this_type ; { /* Need a new symbol */ unsigned int new_index = must_parse_int (&(ieee->h)); if (new_index != last_index || this_type != last_type) { ieee_symbol_type *new_symbol = (ieee_symbol_type *) bfd_alloc (ieee->h.abfd, sizeof (ieee_symbol_type)); if (!new_symbol) { bfd_set_error (bfd_error_no_memory); return NULL; } new_symbol->index = new_index; last_index = new_index; (*symbol_count)++; **pptr = new_symbol; *pptr = &new_symbol->next; if (new_index > *max_index) { *max_index = new_index; } last_type = this_type; return new_symbol; } return last_symbol; } static boolean ieee_slurp_external_symbols (abfd) bfd *abfd; { ieee_data_type *ieee = IEEE_DATA (abfd); file_ptr offset = ieee->w.r.external_part; ieee_symbol_type **prev_symbols_ptr = &ieee->external_symbols; ieee_symbol_type **prev_reference_ptr = &ieee->external_reference; ieee_symbol_type *symbol = (ieee_symbol_type *) NULL; unsigned int symbol_count = 0; boolean loop = true; last_index = 0xffffff; ieee->symbol_table_full = true; ieee_seek (abfd, offset); while (loop) { switch (this_byte (&(ieee->h))) { case ieee_nn_record: next_byte (&(ieee->h)); symbol = get_symbol (abfd, ieee, symbol, &symbol_count, &prev_symbols_ptr, &ieee->external_symbol_max_index, 'D'); if (symbol == NULL) return false; symbol->symbol.the_bfd = abfd; symbol->symbol.name = read_id (&(ieee->h)); symbol->symbol.udata = (PTR) NULL; symbol->symbol.flags = BSF_NO_FLAGS; break; case ieee_external_symbol_enum: next_byte (&(ieee->h)); symbol = get_symbol (abfd, ieee, symbol, &symbol_count, &prev_symbols_ptr, &ieee->external_symbol_max_index, 'D'); if (symbol == NULL) return false; BFD_ASSERT (symbol->index >= ieee->external_symbol_min_index); symbol->symbol.the_bfd = abfd; symbol->symbol.name = read_id (&(ieee->h)); symbol->symbol.udata = (PTR) NULL; symbol->symbol.flags = BSF_NO_FLAGS; break; case ieee_attribute_record_enum >> 8: { unsigned int symbol_name_index; unsigned int symbol_type_index; unsigned int symbol_attribute_def; bfd_vma value; next_byte (&(ieee->h)); /* Skip prefix */ next_byte (&(ieee->h)); symbol_name_index = must_parse_int (&(ieee->h)); symbol_type_index = must_parse_int (&(ieee->h)); symbol_attribute_def = must_parse_int (&(ieee->h)); switch (symbol_attribute_def) { case 63: /* Module misc; followed by two fields which describe the current module block. The first fired is the type id number, the second is the number of asn records associated with the directive */ parse_int (&(ieee->h), &value); parse_int (&(ieee->h), &value); break; default: parse_int (&(ieee->h), &value); break; } } break; case ieee_value_record_enum >> 8: { unsigned int symbol_name_index; ieee_symbol_index_type symbol_ignore; boolean pcrel_ignore; unsigned int extra; next_byte (&(ieee->h)); next_byte (&(ieee->h)); symbol_name_index = must_parse_int (&(ieee->h)); parse_expression (ieee, &symbol->symbol.value, &symbol_ignore, &pcrel_ignore, &extra, &symbol->symbol.section); symbol->symbol.flags = BSF_GLOBAL | BSF_EXPORT; } break; case ieee_weak_external_reference_enum: { bfd_vma size; bfd_vma value; next_byte (&(ieee->h)); /* Throw away the external reference index */ (void) must_parse_int (&(ieee->h)); /* Fetch the default size if not resolved */ size = must_parse_int (&(ieee->h)); /* Fetch the defautlt value if available */ if (parse_int (&(ieee->h), &value) == false) { value = 0; } /* This turns into a common */ symbol->symbol.section = bfd_com_section_ptr; symbol->symbol.value = size; } break; case ieee_external_reference_enum: next_byte (&(ieee->h)); symbol = get_symbol (abfd, ieee, symbol, &symbol_count, &prev_reference_ptr, &ieee->external_reference_max_index, 'X'); if (symbol == NULL) return false; symbol->symbol.the_bfd = abfd; symbol->symbol.name = read_id (&(ieee->h)); symbol->symbol.udata = (PTR) NULL; symbol->symbol.section = bfd_und_section_ptr; symbol->symbol.value = (bfd_vma) 0; symbol->symbol.flags = 0; BFD_ASSERT (symbol->index >= ieee->external_reference_min_index); break; default: loop = false; } } if (ieee->external_symbol_max_index != 0) { ieee->external_symbol_count = ieee->external_symbol_max_index - ieee->external_symbol_min_index + 1; } else { ieee->external_symbol_count = 0; } if (ieee->external_reference_max_index != 0) { ieee->external_reference_count = ieee->external_reference_max_index - ieee->external_reference_min_index + 1; } else { ieee->external_reference_count = 0; } abfd->symcount = ieee->external_reference_count + ieee->external_symbol_count; if (symbol_count != abfd->symcount) { /* There are gaps in the table -- */ ieee->symbol_table_full = false; } *prev_symbols_ptr = (ieee_symbol_type *) NULL; *prev_reference_ptr = (ieee_symbol_type *) NULL; return true; } static boolean ieee_slurp_symbol_table (abfd) bfd *abfd; { if (IEEE_DATA (abfd)->read_symbols == false) { if (! ieee_slurp_external_symbols (abfd)) return false; IEEE_DATA (abfd)->read_symbols = true; } return true; } long ieee_get_symtab_upper_bound (abfd) bfd *abfd; { if (! ieee_slurp_symbol_table (abfd)) return -1; return (abfd->symcount != 0) ? (abfd->symcount + 1) * (sizeof (ieee_symbol_type *)) : 0; } /* Move from our internal lists to the canon table, and insert in symbol index order */ extern const bfd_target ieee_vec; long ieee_get_symtab (abfd, location) bfd *abfd; asymbol **location; { ieee_symbol_type *symp; static bfd dummy_bfd; static asymbol empty_symbol = /* the_bfd, name, value, attr, section */ {&dummy_bfd, " ieee empty", (symvalue) 0, BSF_DEBUGGING, bfd_abs_section_ptr}; if (abfd->symcount) { ieee_data_type *ieee = IEEE_DATA (abfd); dummy_bfd.xvec = &ieee_vec; if (! ieee_slurp_symbol_table (abfd)) return -1; if (ieee->symbol_table_full == false) { /* Arrgh - there are gaps in the table, run through and fill them */ /* up with pointers to a null place */ unsigned int i; for (i = 0; i < abfd->symcount; i++) { location[i] = &empty_symbol; } } ieee->external_symbol_base_offset = -ieee->external_symbol_min_index; for (symp = IEEE_DATA (abfd)->external_symbols; symp != (ieee_symbol_type *) NULL; symp = symp->next) { /* Place into table at correct index locations */ location[symp->index + ieee->external_symbol_base_offset] = &symp->symbol; } /* The external refs are indexed in a bit */ ieee->external_reference_base_offset = -ieee->external_reference_min_index + ieee->external_symbol_count; for (symp = IEEE_DATA (abfd)->external_reference; symp != (ieee_symbol_type *) NULL; symp = symp->next) { location[symp->index + ieee->external_reference_base_offset] = &symp->symbol; } } if (abfd->symcount) { location[abfd->symcount] = (asymbol *) NULL; } return abfd->symcount; } static asection * get_section_entry (abfd, ieee, index) bfd *abfd; ieee_data_type *ieee; unsigned int index; { if (ieee->section_table[index] == (asection *) NULL) { char *tmp = bfd_alloc (abfd, 11); asection *section; if (!tmp) { bfd_set_error (bfd_error_no_memory); return NULL; } sprintf (tmp, " fsec%4d", index); section = bfd_make_section (abfd, tmp); ieee->section_table[index] = section; section->flags = SEC_NO_FLAGS; section->target_index = index; ieee->section_table[index] = section; } return ieee->section_table[index]; } static void ieee_slurp_sections (abfd) bfd *abfd; { ieee_data_type *ieee = IEEE_DATA (abfd); file_ptr offset = ieee->w.r.section_part; asection *section = (asection *) NULL; char *name; if (offset != 0) { bfd_byte section_type[3]; ieee_seek (abfd, offset); while (true) { switch (this_byte (&(ieee->h))) { case ieee_section_type_enum: { unsigned int section_index; next_byte (&(ieee->h)); section_index = must_parse_int (&(ieee->h)); /* Fixme to be nice about a silly number of sections */ BFD_ASSERT (section_index < NSECTIONS); section = get_section_entry (abfd, ieee, section_index); section_type[0] = this_byte_and_next (&(ieee->h)); switch (section_type[0]) { case 0xC1: /* Normal attributes for absolute sections */ section_type[1] = this_byte (&(ieee->h)); section->flags = SEC_LOAD | SEC_ALLOC | SEC_HAS_CONTENTS; switch (section_type[1]) { case 0xD3: /* AS Absolute section attributes */ next_byte (&(ieee->h)); section_type[2] = this_byte (&(ieee->h)); switch (section_type[2]) { case 0xD0: /* Normal code */ next_byte (&(ieee->h)); section->flags |= SEC_LOAD | SEC_CODE; break; case 0xC4: next_byte (&(ieee->h)); section->flags |= SEC_LOAD | SEC_DATA; /* Normal data */ break; case 0xD2: next_byte (&(ieee->h)); /* Normal rom data */ section->flags |= SEC_LOAD | SEC_ROM | SEC_DATA; break; default: break; } } break; case 0xC3: /* Named relocatable sections (type C) */ section_type[1] = this_byte (&(ieee->h)); section->flags = SEC_LOAD | SEC_ALLOC | SEC_HAS_CONTENTS; switch (section_type[1]) { case 0xD0: /* Normal code (CP) */ next_byte (&(ieee->h)); section->flags |= SEC_LOAD | SEC_CODE; break; case 0xC4: /* Normal data (CD) */ next_byte (&(ieee->h)); section->flags |= SEC_LOAD | SEC_DATA; break; case 0xD2: /* Normal rom data (CR) */ next_byte (&(ieee->h)); section->flags |= SEC_LOAD | SEC_ROM | SEC_DATA; break; default: break; } } /* Read section name, use it if non empty. */ name = read_id (&ieee->h); if (name[0]) section->name = name; /* Skip these fields, which we don't care about */ { bfd_vma parent, brother, context; parse_int (&(ieee->h), &parent); parse_int (&(ieee->h), &brother); parse_int (&(ieee->h), &context); } } break; case ieee_section_alignment_enum: { unsigned int section_index; bfd_vma value; asection *section; next_byte (&(ieee->h)); section_index = must_parse_int (&ieee->h); section = get_section_entry (abfd, ieee, section_index); if (section_index > ieee->section_count) { ieee->section_count = section_index; } section->alignment_power = bfd_log2 (must_parse_int (&ieee->h)); (void) parse_int (&(ieee->h), &value); } break; case ieee_e2_first_byte_enum: { ieee_record_enum_type t = (ieee_record_enum_type) (read_2bytes (&(ieee->h))); switch (t) { case ieee_section_size_enum: section = ieee->section_table[must_parse_int (&(ieee->h))]; section->_raw_size = must_parse_int (&(ieee->h)); break; case ieee_physical_region_size_enum: section = ieee->section_table[must_parse_int (&(ieee->h))]; section->_raw_size = must_parse_int (&(ieee->h)); break; case ieee_region_base_address_enum: section = ieee->section_table[must_parse_int (&(ieee->h))]; section->vma = must_parse_int (&(ieee->h)); break; case ieee_mau_size_enum: must_parse_int (&(ieee->h)); must_parse_int (&(ieee->h)); break; case ieee_m_value_enum: must_parse_int (&(ieee->h)); must_parse_int (&(ieee->h)); break; case ieee_section_base_address_enum: section = ieee->section_table[must_parse_int (&(ieee->h))]; section->vma = must_parse_int (&(ieee->h)); break; case ieee_section_offset_enum: (void) must_parse_int (&(ieee->h)); (void) must_parse_int (&(ieee->h)); break; default: return; } } break; default: return; } } } } /*********************************************************************** * archive stuff */ const bfd_target * ieee_archive_p (abfd) bfd *abfd; { char *library; boolean loop; unsigned int i; unsigned char buffer[512]; struct obstack ob; file_ptr buffer_offset = 0; ieee_ar_data_type *save = abfd->tdata.ieee_ar_data; ieee_ar_data_type *ieee; abfd->tdata.ieee_ar_data = (ieee_ar_data_type *) bfd_alloc (abfd, sizeof (ieee_ar_data_type)); if (!abfd->tdata.ieee_ar_data) { bfd_set_error (bfd_error_no_memory); return NULL; } ieee = IEEE_AR_DATA (abfd); /* FIXME: Check return value. I'm not sure whether it needs to read the entire buffer or not. */ bfd_read ((PTR) buffer, 1, sizeof (buffer), abfd); ieee->h.first_byte = buffer; ieee->h.input_p = buffer; ieee->h.abfd = abfd; if (this_byte (&(ieee->h)) != Module_Beginning) { abfd->tdata.ieee_ar_data = save; return (const bfd_target *) NULL; } next_byte (&(ieee->h)); library = read_id (&(ieee->h)); if (strcmp (library, "LIBRARY") != 0) { bfd_release (abfd, ieee); abfd->tdata.ieee_ar_data = save; return (const bfd_target *) NULL; } /* Throw away the filename */ read_id (&(ieee->h)); /* This must be an IEEE archive, so we'll buy some space to do things */ if (!obstack_begin (&ob, 128)) { bfd_set_error (bfd_error_no_memory); return (const bfd_target *) NULL; } ieee->element_count = 0; ieee->element_index = 0; next_byte (&(ieee->h)); /* Drop the ad part */ must_parse_int (&(ieee->h)); /* And the two dummy numbers */ must_parse_int (&(ieee->h)); loop = true; /* Read the index of the BB table */ while (loop) { ieee_ar_obstack_type t; int rec = read_2bytes (&(ieee->h)); if (rec == (int) ieee_assign_value_to_variable_enum) { must_parse_int (&(ieee->h)); t.file_offset = must_parse_int (&(ieee->h)); t.abfd = (bfd *) NULL; ieee->element_count++; obstack_grow (&ob, (PTR) & t, sizeof (t)); /* Make sure that we don't go over the end of the buffer */ if (ieee_pos (abfd) > sizeof (buffer) / 2) { /* Past half way, reseek and reprime */ buffer_offset += ieee_pos (abfd); if (bfd_seek (abfd, buffer_offset, SEEK_SET) != 0) return NULL; /* FIXME: Check return value. I'm not sure whether it needs to read the entire buffer or not. */ bfd_read ((PTR) buffer, 1, sizeof (buffer), abfd); ieee->h.first_byte = buffer; ieee->h.input_p = buffer; } } else loop = false; } ieee->elements = (ieee_ar_obstack_type *) obstack_finish (&ob); if (!ieee->elements) { bfd_set_error (bfd_error_no_memory); return (const bfd_target *) NULL; } /* Now scan the area again, and replace BB offsets with file */ /* offsets */ for (i = 2; i < ieee->element_count; i++) { if (bfd_seek (abfd, ieee->elements[i].file_offset, SEEK_SET) != 0) return NULL; /* FIXME: Check return value. I'm not sure whether it needs to read the entire buffer or not. */ bfd_read ((PTR) buffer, 1, sizeof (buffer), abfd); ieee->h.first_byte = buffer; ieee->h.input_p = buffer; next_byte (&(ieee->h)); /* Drop F8 */ next_byte (&(ieee->h)); /* Drop 14 */ must_parse_int (&(ieee->h)); /* Drop size of block */ if (must_parse_int (&(ieee->h)) != 0) { /* This object has been deleted */ ieee->elements[i].file_offset = 0; } else { ieee->elements[i].file_offset = must_parse_int (&(ieee->h)); } } /* abfd->has_armap = ;*/ return abfd->xvec; } static boolean ieee_mkobject (abfd) bfd *abfd; { abfd->tdata.ieee_data = (ieee_data_type *) bfd_zalloc (abfd, sizeof (ieee_data_type)); return abfd->tdata.ieee_data ? true : false; } const bfd_target * ieee_object_p (abfd) bfd *abfd; { char *processor; unsigned int part; ieee_data_type *ieee; unsigned char buffer[300]; ieee_data_type *save = IEEE_DATA (abfd); abfd->tdata.ieee_data = 0; ieee_mkobject (abfd); ieee = IEEE_DATA (abfd); if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) goto fail; /* Read the first few bytes in to see if it makes sense */ /* FIXME: Check return value. I'm not sure whether it needs to read the entire buffer or not. */ bfd_read ((PTR) buffer, 1, sizeof (buffer), abfd); ieee->h.input_p = buffer; if (this_byte_and_next (&(ieee->h)) != Module_Beginning) goto got_wrong_format; ieee->read_symbols = false; ieee->read_data = false; ieee->section_count = 0; ieee->external_symbol_max_index = 0; ieee->external_symbol_min_index = IEEE_PUBLIC_BASE; ieee->external_reference_min_index = IEEE_REFERENCE_BASE; ieee->external_reference_max_index = 0; ieee->h.abfd = abfd; memset ((PTR) ieee->section_table, 0, sizeof (ieee->section_table)); processor = ieee->mb.processor = read_id (&(ieee->h)); if (strcmp (processor, "LIBRARY") == 0) goto got_wrong_format; ieee->mb.module_name = read_id (&(ieee->h)); if (abfd->filename == (CONST char *) NULL) { abfd->filename = ieee->mb.module_name; } /* Determine the architecture and machine type of the object file. */ { bfd_arch_info_type *arch = bfd_scan_arch (processor); if (arch == 0) goto got_wrong_format; abfd->arch_info = arch; } if (this_byte (&(ieee->h)) != (int) ieee_address_descriptor_enum) { goto fail; } next_byte (&(ieee->h)); if (parse_int (&(ieee->h), &ieee->ad.number_of_bits_mau) == false) { goto fail; } if (parse_int (&(ieee->h), &ieee->ad.number_of_maus_in_address) == false) { goto fail; } /* If there is a byte order info, take it */ if (this_byte (&(ieee->h)) == (int) ieee_variable_L_enum || this_byte (&(ieee->h)) == (int) ieee_variable_M_enum) next_byte (&(ieee->h)); for (part = 0; part < N_W_VARIABLES; part++) { boolean ok; if (read_2bytes (&(ieee->h)) != (int) ieee_assign_value_to_variable_enum) { goto fail; } if (this_byte_and_next (&(ieee->h)) != part) { goto fail; } ieee->w.offset[part] = parse_i (&(ieee->h), &ok); if (ok == false) { goto fail; } } abfd->flags = HAS_SYMS; /* By now we know that this is a real IEEE file, we're going to read the whole thing into memory so that we can run up and down it quickly. We can work out how big the file is from the trailer record */ IEEE_DATA (abfd)->h.first_byte = (unsigned char *) bfd_alloc (ieee->h.abfd, ieee->w.r.me_record + 50); if (!IEEE_DATA (abfd)->h.first_byte) { bfd_set_error (bfd_error_no_memory); goto fail; } if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) goto fail; /* FIXME: Check return value. I'm not sure whether it needs to read the entire buffer or not. */ bfd_read ((PTR) (IEEE_DATA (abfd)->h.first_byte), 1, ieee->w.r.me_record + 50, abfd); ieee_slurp_sections (abfd); return abfd->xvec; got_wrong_format: bfd_set_error (bfd_error_wrong_format); fail: (void) bfd_release (abfd, ieee); abfd->tdata.ieee_data = save; return (const bfd_target *) NULL; } void ieee_get_symbol_info (ignore_abfd, symbol, ret) bfd *ignore_abfd; asymbol *symbol; symbol_info *ret; { bfd_symbol_info (symbol, ret); if (symbol->name[0] == ' ') ret->name = "* empty table entry "; if (!symbol->section) ret->type = (symbol->flags & BSF_LOCAL) ? 'a' : 'A'; } void ieee_print_symbol (ignore_abfd, afile, symbol, how) bfd *ignore_abfd; PTR afile; asymbol *symbol; bfd_print_symbol_type how; { FILE *file = (FILE *) afile; switch (how) { case bfd_print_symbol_name: fprintf (file, "%s", symbol->name); break; case bfd_print_symbol_more: #if 0 fprintf (file, "%4x %2x", aout_symbol (symbol)->desc & 0xffff, aout_symbol (symbol)->other & 0xff); #endif BFD_FAIL (); break; case bfd_print_symbol_all: { CONST char *section_name = symbol->section == (asection *) NULL ? (CONST char *) "*abs" : symbol->section->name; if (symbol->name[0] == ' ') { fprintf (file, "* empty table entry "); } else { bfd_print_symbol_vandf ((PTR) file, symbol); fprintf (file, " %-5s %04x %02x %s", section_name, (unsigned) ieee_symbol (symbol)->index, (unsigned) 0, /* aout_symbol(symbol)->desc & 0xffff, aout_symbol(symbol)->other & 0xff,*/ symbol->name); } } break; } } static boolean do_one (ieee, current_map, location_ptr, s) ieee_data_type *ieee; ieee_per_section_type *current_map; unsigned char *location_ptr; asection *s; { switch (this_byte (&(ieee->h))) { case ieee_load_constant_bytes_enum: { unsigned int number_of_maus; unsigned int i; next_byte (&(ieee->h)); number_of_maus = must_parse_int (&(ieee->h)); for (i = 0; i < number_of_maus; i++) { location_ptr[current_map->pc++] = this_byte (&(ieee->h)); next_byte (&(ieee->h)); } } break; case ieee_load_with_relocation_enum: { boolean loop = true; next_byte (&(ieee->h)); while (loop) { switch (this_byte (&(ieee->h))) { case ieee_variable_R_enum: case ieee_function_signed_open_b_enum: case ieee_function_unsigned_open_b_enum: case ieee_function_either_open_b_enum: { unsigned int extra = 4; boolean pcrel = false; asection *section; ieee_reloc_type *r = (ieee_reloc_type *) bfd_alloc (ieee->h.abfd, sizeof (ieee_reloc_type)); if (!r) { bfd_set_error (bfd_error_no_memory); return false; } *(current_map->reloc_tail_ptr) = r; current_map->reloc_tail_ptr = &r->next; r->next = (ieee_reloc_type *) NULL; next_byte (&(ieee->h)); /* abort();*/ r->relent.sym_ptr_ptr = 0; parse_expression (ieee, &r->relent.addend, &r->symbol, &pcrel, &extra, §ion); r->relent.address = current_map->pc; s->reloc_count++; if (r->relent.sym_ptr_ptr == 0) { r->relent.sym_ptr_ptr = section->symbol_ptr_ptr; } if (this_byte (&(ieee->h)) == (int) ieee_comma) { next_byte (&(ieee->h)); /* Fetch number of bytes to pad */ extra = must_parse_int (&(ieee->h)); }; switch (this_byte (&(ieee->h))) { case ieee_function_signed_close_b_enum: next_byte (&(ieee->h)); break; case ieee_function_unsigned_close_b_enum: next_byte (&(ieee->h)); break; case ieee_function_either_close_b_enum: next_byte (&(ieee->h)); break; default: break; } /* Build a relocation entry for this type */ /* If pc rel then stick -ve pc into instruction and take out of reloc .. I've changed this. It's all too complicated. I keep 0 in the instruction now. */ switch (extra) { case 0: case 4: if (pcrel == true) { #if KEEPMINUSPCININST bfd_put_32 (ieee->h.abfd, -current_map->pc, location_ptr + current_map->pc); r->relent.howto = &rel32_howto; r->relent.addend -= current_map->pc; #else bfd_put_32 (ieee->h.abfd, 0, location_ptr + current_map->pc); r->relent.howto = &rel32_howto; #endif } else { bfd_put_32 (ieee->h.abfd, 0, location_ptr + current_map->pc); r->relent.howto = &abs32_howto; } current_map->pc += 4; break; case 2: if (pcrel == true) { #if KEEPMINUSPCININST bfd_put_16 (ieee->h.abfd, (int) (-current_map->pc), location_ptr + current_map->pc); r->relent.addend -= current_map->pc; r->relent.howto = &rel16_howto; #else bfd_put_16 (ieee->h.abfd, 0, location_ptr + current_map->pc); r->relent.howto = &rel16_howto; #endif } else { bfd_put_16 (ieee->h.abfd, 0, location_ptr + current_map->pc); r->relent.howto = &abs16_howto; } current_map->pc += 2; break; case 1: if (pcrel == true) { #if KEEPMINUSPCININST bfd_put_8 (ieee->h.abfd, (int) (-current_map->pc), location_ptr + current_map->pc); r->relent.addend -= current_map->pc; r->relent.howto = &rel8_howto; #else bfd_put_8 (ieee->h.abfd, 0, location_ptr + current_map->pc); r->relent.howto = &rel8_howto; #endif } else { bfd_put_8 (ieee->h.abfd, 0, location_ptr + current_map->pc); r->relent.howto = &abs8_howto; } current_map->pc += 1; break; default: BFD_FAIL (); break; } } break; default: { bfd_vma this_size; if (parse_int (&(ieee->h), &this_size) == true) { unsigned int i; for (i = 0; i < this_size; i++) { location_ptr[current_map->pc++] = this_byte (&(ieee->h)); next_byte (&(ieee->h)); } } else { loop = false; } } } } } } return true; } /* Read in all the section data and relocation stuff too */ static boolean ieee_slurp_section_data (abfd) bfd *abfd; { bfd_byte *location_ptr = (bfd_byte *) NULL; ieee_data_type *ieee = IEEE_DATA (abfd); unsigned int section_number; ieee_per_section_type *current_map = (ieee_per_section_type *) NULL; asection *s; /* Seek to the start of the data area */ if (ieee->read_data == true) return true; ieee->read_data = true; ieee_seek (abfd, ieee->w.r.data_part); /* Allocate enough space for all the section contents */ for (s = abfd->sections; s != (asection *) NULL; s = s->next) { ieee_per_section_type *per = (ieee_per_section_type *) s->used_by_bfd; per->data = (bfd_byte *) bfd_alloc (ieee->h.abfd, s->_raw_size); if (!per->data) { bfd_set_error (bfd_error_no_memory); return false; } /*SUPPRESS 68*/ per->reloc_tail_ptr = (ieee_reloc_type **) & (s->relocation); } while (true) { switch (this_byte (&(ieee->h))) { /* IF we see anything strange then quit */ default: return true; case ieee_set_current_section_enum: next_byte (&(ieee->h)); section_number = must_parse_int (&(ieee->h)); s = ieee->section_table[section_number]; current_map = (ieee_per_section_type *) s->used_by_bfd; location_ptr = current_map->data - s->vma; /* The document I have says that Microtec's compilers reset */ /* this after a sec section, even though the standard says not */ /* to. SO .. */ current_map->pc = s->vma; break; case ieee_e2_first_byte_enum: next_byte (&(ieee->h)); switch (this_byte (&(ieee->h))) { case ieee_set_current_pc_enum & 0xff: { bfd_vma value; ieee_symbol_index_type symbol; unsigned int extra; boolean pcrel; next_byte (&(ieee->h)); must_parse_int (&(ieee->h)); /* Thow away section #*/ parse_expression (ieee, &value, &symbol, &pcrel, &extra, 0); current_map->pc = value; BFD_ASSERT ((unsigned) (value - s->vma) <= s->_raw_size); } break; case ieee_value_starting_address_enum & 0xff: /* We've got to the end of the data now - */ return true; default: BFD_FAIL (); return true; } break; case ieee_repeat_data_enum: { /* Repeat the following LD or LR n times - we do this by remembering the stream pointer before running it and resetting it and running it n times. We special case the repetition of a repeat_data/load_constant */ unsigned int iterations; unsigned char *start; next_byte (&(ieee->h)); iterations = must_parse_int (&(ieee->h)); start = ieee->h.input_p; if (start[0] == (int) ieee_load_constant_bytes_enum && start[1] == 1) { while (iterations != 0) { location_ptr[current_map->pc++] = start[2]; iterations--; } next_byte (&(ieee->h)); next_byte (&(ieee->h)); next_byte (&(ieee->h)); } else { while (iterations != 0) { ieee->h.input_p = start; if (!do_one (ieee, current_map, location_ptr, s)) return false; iterations--; } } } break; case ieee_load_constant_bytes_enum: case ieee_load_with_relocation_enum: { if (!do_one (ieee, current_map, location_ptr, s)) return false; } } } } boolean ieee_new_section_hook (abfd, newsect) bfd *abfd; asection *newsect; { newsect->used_by_bfd = (PTR) bfd_alloc (abfd, sizeof (ieee_per_section_type)); if (!newsect->used_by_bfd) { bfd_set_error (bfd_error_no_memory); return false; } ieee_per_section (newsect)->data = (bfd_byte *) NULL; ieee_per_section (newsect)->section = newsect; return true; } long ieee_get_reloc_upper_bound (abfd, asect) bfd *abfd; sec_ptr asect; { if (! ieee_slurp_section_data (abfd)) return -1; return (asect->reloc_count + 1) * sizeof (arelent *); } static boolean ieee_get_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { ieee_per_section_type *p = (ieee_per_section_type *) section->used_by_bfd; ieee_slurp_section_data (abfd); (void) memcpy ((PTR) location, (PTR) (p->data + offset), (unsigned) count); return true; } long ieee_canonicalize_reloc (abfd, section, relptr, symbols) bfd *abfd; sec_ptr section; arelent **relptr; asymbol **symbols; { /* ieee_per_section_type *p = (ieee_per_section_type *) section->used_by_bfd;*/ ieee_reloc_type *src = (ieee_reloc_type *) (section->relocation); ieee_data_type *ieee = IEEE_DATA (abfd); while (src != (ieee_reloc_type *) NULL) { /* Work out which symbol to attach it this reloc to */ switch (src->symbol.letter) { case 'X': src->relent.sym_ptr_ptr = symbols + src->symbol.index + ieee->external_reference_base_offset; break; case 0: src->relent.sym_ptr_ptr = src->relent.sym_ptr_ptr[0]->section->symbol_ptr_ptr; break; default: BFD_FAIL (); } *relptr++ = &src->relent; src = src->next; } *relptr = (arelent *) NULL; return section->reloc_count; } static int comp (ap, bp) CONST PTR ap; CONST PTR bp; { arelent *a = *((arelent **) ap); arelent *b = *((arelent **) bp); return a->address - b->address; } /* Write the section headers */ static void ieee_write_section_part (abfd) bfd *abfd; { ieee_data_type *ieee = IEEE_DATA (abfd); asection *s; ieee->w.r.section_part = bfd_tell (abfd); for (s = abfd->sections; s != (asection *) NULL; s = s->next) { if (! bfd_is_abs_section (s)) { ieee_write_byte (abfd, ieee_section_type_enum); ieee_write_byte (abfd, (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE)); if (abfd->flags & EXEC_P) { /* This image is executable, so output absolute sections */ ieee_write_byte (abfd, ieee_variable_A_enum); ieee_write_byte (abfd, ieee_variable_S_enum); } else { ieee_write_byte (abfd, ieee_variable_C_enum); } switch (s->flags & (SEC_CODE | SEC_DATA | SEC_ROM)) { case SEC_CODE | SEC_LOAD: case SEC_CODE: ieee_write_byte (abfd, ieee_variable_P_enum); break; case SEC_DATA: default: ieee_write_byte (abfd, ieee_variable_D_enum); break; case SEC_ROM: case SEC_ROM | SEC_DATA: case SEC_ROM | SEC_LOAD: case SEC_ROM | SEC_DATA | SEC_LOAD: ieee_write_byte (abfd, ieee_variable_R_enum); } ieee_write_id (abfd, s->name); #if 0 ieee_write_int (abfd, 0); /* Parent */ ieee_write_int (abfd, 0); /* Brother */ ieee_write_int (abfd, 0); /* Context */ #endif /* Alignment */ ieee_write_byte (abfd, ieee_section_alignment_enum); ieee_write_byte (abfd, (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE)); ieee_write_int (abfd, 1 << s->alignment_power); /* Size */ ieee_write_2bytes (abfd, ieee_section_size_enum); ieee_write_byte (abfd, (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE)); ieee_write_int (abfd, s->_raw_size); if (abfd->flags & EXEC_P) { /* Relocateable sections don't have asl records */ /* Vma */ ieee_write_2bytes (abfd, ieee_section_base_address_enum); ieee_write_byte (abfd, (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE)); ieee_write_int (abfd, s->vma); } } } } static boolean do_with_relocs (abfd, s) bfd *abfd; asection *s; { unsigned int relocs_to_go = s->reloc_count; bfd_byte *stream = ieee_per_section (s)->data; arelent **p = s->orelocation; bfd_size_type current_byte_index = 0; qsort (s->orelocation, relocs_to_go, sizeof (arelent **), comp); /* Output the section preheader */ ieee_write_byte (abfd, ieee_set_current_section_enum); ieee_write_byte (abfd, (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE)); ieee_write_twobyte (abfd, ieee_set_current_pc_enum); ieee_write_byte (abfd, (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE)); ieee_write_expression (abfd, 0, s->symbol, 0, 0); if (relocs_to_go == 0) { /* If there arn't any relocations then output the load constant byte opcode rather than the load with relocation opcode */ while (current_byte_index < s->_raw_size) { bfd_size_type run; unsigned int MAXRUN = 32; run = MAXRUN; if (run > s->_raw_size - current_byte_index) { run = s->_raw_size - current_byte_index; } if (run != 0) { ieee_write_byte (abfd, ieee_load_constant_bytes_enum); /* Output a stream of bytes */ ieee_write_int (abfd, run); if (bfd_write ((PTR) (stream + current_byte_index), 1, run, abfd) != run) return false; current_byte_index += run; } } } else { ieee_write_byte (abfd, ieee_load_with_relocation_enum); /* Output the data stream as the longest sequence of bytes possible, allowing for the a reasonable packet size and relocation stuffs */ if ((PTR) stream == (PTR) NULL) { /* Outputting a section without data, fill it up */ stream = (unsigned char *) (bfd_alloc (abfd, s->_raw_size)); if (!stream) { bfd_set_error (bfd_error_no_memory); return false; } memset ((PTR) stream, 0, s->_raw_size); } while (current_byte_index < s->_raw_size) { bfd_size_type run; unsigned int MAXRUN = 32; if (relocs_to_go) { run = (*p)->address - current_byte_index; } else { run = MAXRUN; } if (run > s->_raw_size - current_byte_index) { run = s->_raw_size - current_byte_index; } if (run != 0) { /* Output a stream of bytes */ ieee_write_int (abfd, run); if (bfd_write ((PTR) (stream + current_byte_index), 1, run, abfd) != run) return false; current_byte_index += run; } /* Output any relocations here */ if (relocs_to_go && (*p) && (*p)->address == current_byte_index) { while (relocs_to_go && (*p) && (*p)->address == current_byte_index) { arelent *r = *p; bfd_vma ov; #if 0 if (r->howto->pc_relative) { r->addend += current_byte_index; } #endif switch (r->howto->size) { case 2: ov = bfd_get_32 (abfd, stream + current_byte_index); current_byte_index += 4; break; case 1: ov = bfd_get_16 (abfd, stream + current_byte_index); current_byte_index += 2; break; case 0: ov = bfd_get_8 (abfd, stream + current_byte_index); current_byte_index++; break; default: ov = 0; BFD_FAIL (); } ieee_write_byte (abfd, ieee_function_either_open_b_enum); /* abort();*/ if (r->sym_ptr_ptr != (asymbol **) NULL) { ieee_write_expression (abfd, r->addend + ov, *(r->sym_ptr_ptr), r->howto->pc_relative, s->index); } else { ieee_write_expression (abfd, r->addend + ov, (asymbol *) NULL, r->howto->pc_relative, s->index); } if (1 || r->howto->size != 2) { ieee_write_byte (abfd, ieee_comma); ieee_write_int (abfd, 1 << r->howto->size); } ieee_write_byte (abfd, ieee_function_either_close_b_enum); relocs_to_go--; p++; } } } } return true; } /* If there are no relocations in the output section then we can be clever about how we write. We block items up into a max of 127 bytes */ static void do_as_repeat (abfd, s) bfd *abfd; asection *s; { if (s->_raw_size) { ieee_write_byte (abfd, ieee_set_current_section_enum); ieee_write_byte (abfd, (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE)); ieee_write_byte (abfd, ieee_set_current_pc_enum >> 8); ieee_write_byte (abfd, ieee_set_current_pc_enum & 0xff); ieee_write_byte (abfd, (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE)); ieee_write_int (abfd, s->vma); ieee_write_byte (abfd, ieee_repeat_data_enum); ieee_write_int (abfd, s->_raw_size); ieee_write_byte (abfd, ieee_load_constant_bytes_enum); ieee_write_byte (abfd, 1); ieee_write_byte (abfd, 0); } } static void do_without_relocs (abfd, s) bfd *abfd; asection *s; { bfd_byte *stream = ieee_per_section (s)->data; if (stream == 0 || ((s->flags & SEC_LOAD) == 0)) { do_as_repeat (abfd, s); } else { unsigned int i; for (i = 0; i < s->_raw_size; i++) { if (stream[i] != 0) { do_with_relocs (abfd, s); return; } } do_as_repeat (abfd, s); } } static unsigned char *output_ptr_start; static unsigned char *output_ptr; static unsigned char *output_ptr_end; static unsigned char *input_ptr_start; static unsigned char *input_ptr; static unsigned char *input_ptr_end; static bfd *input_bfd; static bfd *output_bfd; static int output_buffer; static void fill () { /* FIXME: Check return value. I'm not sure whether it needs to read the entire buffer or not. */ bfd_read ((PTR) input_ptr_start, 1, input_ptr_end - input_ptr_start, input_bfd); input_ptr = input_ptr_start; } static void flush () { if (bfd_write ((PTR) (output_ptr_start), 1, output_ptr - output_ptr_start, output_bfd) != output_ptr - output_ptr_start) abort (); output_ptr = output_ptr_start; output_buffer++; } #define THIS() ( *input_ptr ) #define NEXT() { input_ptr++; if (input_ptr == input_ptr_end) fill(); } #define OUT(x) { *output_ptr++ = (x); if(output_ptr == output_ptr_end) flush(); } static void write_int (value) int value; { if (value >= 0 && value <= 127) { OUT (value); } else { unsigned int length; /* How many significant bytes ? */ /* FIXME FOR LONGER INTS */ if (value & 0xff000000) { length = 4; } else if (value & 0x00ff0000) { length = 3; } else if (value & 0x0000ff00) { length = 2; } else length = 1; OUT ((int) ieee_number_repeat_start_enum + length); switch (length) { case 4: OUT (value >> 24); case 3: OUT (value >> 16); case 2: OUT (value >> 8); case 1: OUT (value); } } } static void copy_id () { int length = THIS (); char ch; OUT (length); NEXT (); while (length--) { ch = THIS (); OUT (ch); NEXT (); } } #define VAR(x) ((x | 0x80)) static void copy_expression () { int stack[10]; int *tos = stack; int value = 0; while (1) { switch (THIS ()) { case 0x84: NEXT (); value = THIS (); NEXT (); value = (value << 8) | THIS (); NEXT (); value = (value << 8) | THIS (); NEXT (); value = (value << 8) | THIS (); NEXT (); *tos++ = value; break; case 0x83: NEXT (); value = THIS (); NEXT (); value = (value << 8) | THIS (); NEXT (); value = (value << 8) | THIS (); NEXT (); *tos++ = value; break; case 0x82: NEXT (); value = THIS (); NEXT (); value = (value << 8) | THIS (); NEXT (); *tos++ = value; break; case 0x81: NEXT (); value = THIS (); NEXT (); *tos++ = value; break; case 0x80: NEXT (); *tos++ = 0; break; default: if (THIS () > 0x84) { /* Not a number, just bug out with the answer */ write_int (*(--tos)); return; } *tos++ = THIS (); NEXT (); value = 0; break; case 0xa5: /* PLUS anything */ { int value = *(--tos); value += *(--tos); *tos++ = value; NEXT (); } break; case VAR ('R'): { int section_number; ieee_data_type *ieee; asection *s; NEXT (); section_number = THIS (); NEXT (); ieee = IEEE_DATA (input_bfd); s = ieee->section_table[section_number]; if (s->output_section) { value = s->output_section->vma; } else { value = 0; } value += s->output_offset; *tos++ = value; value = 0; } break; case 0x90: { NEXT (); write_int (*(--tos)); OUT (0x90); return; } } } } /* Drop the int in the buffer, and copy a null into the gap, which we will overwrite later */ struct output_buffer_struct { unsigned char *ptrp; int buffer; }; static void fill_int (buf) struct output_buffer_struct *buf; { if (buf->buffer == output_buffer) { /* Still a chance to output the size */ int value = output_ptr - buf->ptrp + 3; buf->ptrp[0] = value >> 24; buf->ptrp[1] = value >> 16; buf->ptrp[2] = value >> 8; buf->ptrp[3] = value >> 0; } } static void drop_int (buf) struct output_buffer_struct *buf; { int type = THIS (); int ch; if (type <= 0x84) { NEXT (); switch (type) { case 0x84: ch = THIS (); NEXT (); case 0x83: ch = THIS (); NEXT (); case 0x82: ch = THIS (); NEXT (); case 0x81: ch = THIS (); NEXT (); case 0x80: break; } } OUT (0x84); buf->ptrp = output_ptr; buf->buffer = output_buffer; OUT (0); OUT (0); OUT (0); OUT (0); } static void copy_int () { int type = THIS (); int ch; if (type <= 0x84) { OUT (type); NEXT (); switch (type) { case 0x84: ch = THIS (); NEXT (); OUT (ch); case 0x83: ch = THIS (); NEXT (); OUT (ch); case 0x82: ch = THIS (); NEXT (); OUT (ch); case 0x81: ch = THIS (); NEXT (); OUT (ch); case 0x80: break; } } } #define ID copy_id() #define INT copy_int() #define EXP copy_expression() static void copy_till_end (); #define INTn(q) copy_int() #define EXPn(q) copy_expression() static void f1_record () { int ch; /* ATN record */ NEXT (); ch = THIS (); switch (ch) { default: OUT (0xf1); OUT (ch); break; case 0xc9: NEXT (); OUT (0xf1); OUT (0xc9); INT; INT; ch = THIS (); switch (ch) { case 0x16: NEXT (); break; case 0x01: NEXT (); break; case 0x00: NEXT (); INT; break; case 0x03: NEXT (); INT; break; case 0x13: EXPn (instruction address); break; default: break; } break; case 0xd8: /* EXternal ref */ NEXT (); OUT (0xf1); OUT (0xd8); EXP; EXP; EXP; EXP; break; case 0xce: NEXT (); OUT (0xf1); OUT (0xce); INT; INT; ch = THIS (); INT; switch (ch) { case 0x01: INT; INT; break; case 0x02: INT; break; case 0x04: EXPn (external function); break; case 0x05: break; case 0x07: INTn (line number); INT; case 0x08: break; case 0x0a: INTn (locked register); INT; break; case 0x3f: copy_till_end (); break; case 0x3e: copy_till_end (); break; case 0x40: copy_till_end (); break; case 0x41: ID; break; } } } static void f0_record () { /* Attribute record */ NEXT (); OUT (0xf0); INTn (Symbol name); ID; } static void copy_till_end () { int ch = THIS (); while (1) { while (ch <= 0x80) { OUT (ch); NEXT (); ch = THIS (); } switch (ch) { case 0x84: OUT (THIS ()); NEXT (); case 0x83: OUT (THIS ()); NEXT (); case 0x82: OUT (THIS ()); NEXT (); case 0x81: OUT (THIS ()); NEXT (); OUT (THIS ()); NEXT (); ch = THIS (); break; default: return; } } } static void f2_record () { NEXT (); OUT (0xf2); INT; NEXT (); OUT (0xce); INT; copy_till_end (); } static void block (); static void f8_record () { int ch; NEXT (); ch = THIS (); switch (ch) { case 0x01: case 0x02: case 0x03: /* Unique typedefs for module */ /* GLobal typedefs */ /* High level module scope beginning */ { struct output_buffer_struct ob; NEXT (); OUT (0xf8); OUT (ch); drop_int (&ob); ID; block (); NEXT (); fill_int (&ob); OUT (0xf9); } break; case 0x04: /* Global function */ { struct output_buffer_struct ob; NEXT (); OUT (0xf8); OUT (0x04); drop_int (&ob); ID; INTn (stack size); INTn (ret val); EXPn (offset); block (); NEXT (); OUT (0xf9); EXPn (size of block); fill_int (&ob); } break; case 0x05: /* File name for source line numbers */ { struct output_buffer_struct ob; NEXT (); OUT (0xf8); OUT (0x05); drop_int (&ob); ID; INTn (year); INTn (month); INTn (day); INTn (hour); INTn (monute); INTn (second); block (); NEXT (); OUT (0xf9); fill_int (&ob); } break; case 0x06: /* Local function */ { struct output_buffer_struct ob; NEXT (); OUT (0xf8); OUT (0x06); drop_int (&ob); ID; INTn (stack size); INTn (type return); EXPn (offset); block (); NEXT (); OUT (0xf9); EXPn (size); fill_int (&ob); } break; case 0x0a: /* Assembler module scope beginning -*/ { struct output_buffer_struct ob; NEXT (); OUT (0xf8); OUT (0x0a); drop_int (&ob); ID; ID; INT; ID; INT; INT; INT; INT; INT; INT; block (); NEXT (); OUT (0xf9); fill_int (&ob); } break; case 0x0b: { struct output_buffer_struct ob; NEXT (); OUT (0xf8); OUT (0x0b); drop_int (&ob); ID; INT; INTn (section index); EXPn (offset); INTn (stuff); block (); OUT (0xf9); NEXT (); EXPn (Size in Maus); fill_int (&ob); } break; } } static void e2_record () { OUT (0xe2); NEXT (); OUT (0xce); NEXT (); INT; EXP; } static void block () { int ch; while (1) { ch = THIS (); switch (ch) { case 0xe1: case 0xe5: return; case 0xf9: return; case 0xf0: f0_record (); break; case 0xf1: f1_record (); break; case 0xf2: f2_record (); break; case 0xf8: f8_record (); break; case 0xe2: e2_record (); break; } } } /* relocate_debug, moves all the debug information from the source bfd to the output bfd, and relocates any expressions it finds */ static void relocate_debug (output, input) bfd *output; bfd *input; { #define IBS 400 #define OBS 400 unsigned char input_buffer[IBS]; input_ptr_start = input_ptr = input_buffer; input_ptr_end = input_buffer + IBS; input_bfd = input; /* FIXME: Check return value. I'm not sure whether it needs to read the entire buffer or not. */ bfd_read ((PTR) input_ptr_start, 1, IBS, input); block (); } /* During linking, we we told about the bfds which made up our contents, we have a list of them. They will still be open, so go to the debug info in each, and copy it out, relocating it as we go. */ static void ieee_write_debug_part (abfd) bfd *abfd; { ieee_data_type *ieee = IEEE_DATA (abfd); bfd_chain_type *chain = ieee->chain_root; unsigned char output_buffer[OBS]; boolean some_debug = false; file_ptr here = bfd_tell (abfd); output_ptr_start = output_ptr = output_buffer; output_ptr_end = output_buffer + OBS; output_ptr = output_buffer; output_bfd = abfd; if (chain == (bfd_chain_type *) NULL) { #if 0 /* There is no debug info, so we'll fake some up */ CONST static char fake[] = { 0xf8, 0xa, 0, 5, 't', 't', 't', 't', 't', 0, 2, 3, '1', '.', '1', 0x82, 1991 >> 8, 1991 & 0xff, 9, 20, 11, 07, 50}; ieee->w.r.debug_information_part = 0; here; /* bfd_write(fake, 1, sizeof(fake), abfd);*/ /* Now write a header for each section */ { int i = 0; asection *s = abfd->sections; while (s) { if (s != abfd->abs_section) { ieee_write_byte (abfd, 0xf8); ieee_write_byte (abfd, 0x0b); ieee_write_byte (abfd, 0); ieee_write_byte (abfd, 0); ieee_write_byte (abfd, 1); ieee_write_byte (abfd, i + IEEE_SECTION_NUMBER_BASE); ieee_write_expression (abfd, 0, s->symbol, 0, 0, 0); ieee_write_byte (abfd, 0); ieee_write_byte (abfd, 0xf9); ieee_write_expression (abfd, s->size, bfd_abs_section_ptr->symbol, 0, 0, 0); i++; } s = s->next; } /* Close the scope */ ieee_write_byte (abfd, 0xf9); } #endif } else { while (chain != (bfd_chain_type *) NULL) { bfd *entry = chain->this; ieee_data_type *entry_ieee = IEEE_DATA (entry); if (entry_ieee->w.r.debug_information_part) { if (bfd_seek (entry, entry_ieee->w.r.debug_information_part, SEEK_SET) != 0) abort (); relocate_debug (abfd, entry); } chain = chain->next; } if (some_debug) { ieee->w.r.debug_information_part = here; } else { ieee->w.r.debug_information_part = 0; } } flush (); } /* write the data in an ieee way */ static void ieee_write_data_part (abfd) bfd *abfd; { asection *s; ieee_data_type *ieee = IEEE_DATA (abfd); ieee->w.r.data_part = bfd_tell (abfd); for (s = abfd->sections; s != (asection *) NULL; s = s->next) { /* Sort the reloc records so we can insert them in the correct places */ if (s->reloc_count != 0) { do_with_relocs (abfd, s); } else { do_without_relocs (abfd, s); } } } static boolean init_for_output (abfd) bfd *abfd; { asection *s; for (s = abfd->sections; s != (asection *) NULL; s = s->next) { if (s->_raw_size != 0) { ieee_per_section (s)->data = (bfd_byte *) (bfd_alloc (abfd, s->_raw_size)); if (!ieee_per_section (s)->data) { bfd_set_error (bfd_error_no_memory); return false; } } } return true; } /** exec and core file sections */ /* set section contents is complicated with IEEE since the format is * not a byte image, but a record stream. */ boolean ieee_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { if (ieee_per_section (section)->data == (bfd_byte *) NULL) { if (!init_for_output (abfd)) return false; } memcpy ((PTR) (ieee_per_section (section)->data + offset), (PTR) location, (unsigned int) count); return true; } /* write the external symbols of a file, IEEE considers two sorts of external symbols, public, and referenced. It uses to internal forms to index them as well. When we write them out we turn their symbol values into indexes from the right base. */ static void ieee_write_external_part (abfd) bfd *abfd; { asymbol **q; ieee_data_type *ieee = IEEE_DATA (abfd); unsigned int reference_index = IEEE_REFERENCE_BASE; unsigned int public_index = IEEE_PUBLIC_BASE + 2; file_ptr here = bfd_tell (abfd); boolean hadone = false; if (abfd->outsymbols != (asymbol **) NULL) { for (q = abfd->outsymbols; *q != (asymbol *) NULL; q++) { asymbol *p = *q; hadone = true; if (bfd_is_und_section (p->section)) { /* This must be a symbol reference .. */ ieee_write_byte (abfd, ieee_external_reference_enum); ieee_write_int (abfd, reference_index); ieee_write_id (abfd, p->name); p->value = reference_index; reference_index++; } else if (bfd_is_com_section (p->section)) { /* This is a weak reference */ ieee_write_byte (abfd, ieee_external_reference_enum); ieee_write_int (abfd, reference_index); ieee_write_id (abfd, p->name); ieee_write_byte (abfd, ieee_weak_external_reference_enum); ieee_write_int (abfd, reference_index); ieee_write_int (abfd, p->value); ieee_write_int (abfd, BFD_FORT_COMM_DEFAULT_VALUE); p->value = reference_index; reference_index++; } else if (p->flags & BSF_GLOBAL) { /* This must be a symbol definition */ ieee_write_byte (abfd, ieee_external_symbol_enum); ieee_write_int (abfd, public_index); ieee_write_id (abfd, p->name); ieee_write_twobyte (abfd, ieee_attribute_record_enum); ieee_write_int (abfd, public_index); ieee_write_byte (abfd, 15); /* instruction address */ ieee_write_byte (abfd, 19); /* static symbol */ ieee_write_byte (abfd, 1); /* one of them */ /* Write out the value */ ieee_write_2bytes (abfd, ieee_value_record_enum); ieee_write_int (abfd, public_index); if (! bfd_is_abs_section (p->section)) { if (abfd->flags & EXEC_P) { /* If fully linked, then output all symbols relocated */ ieee_write_int (abfd, p->value + p->section->output_offset + p->section->output_section->vma); } else { ieee_write_expression (abfd, p->value + p->section->output_offset, p->section->output_section->symbol ,false, 0); } } else { ieee_write_expression (abfd, p->value, bfd_abs_section_ptr->symbol, false, 0); } p->value = public_index; public_index++; } else { /* This can happen - when there are gaps in the symbols read */ /* from an input ieee file */ } } } if (hadone) ieee->w.r.external_part = here; } static CONST unsigned char exten[] = { 0xf0, 0x20, 0x00, 0xf1, 0xce, 0x20, 0x00, 37, 3, 3, /* Set version 3 rev 3 */ 0xf1, 0xce, 0x20, 0x00, 39, 2,/* keep symbol in original case */ 0xf1, 0xce, 0x20, 0x00, 38 /* set object type relocateable to x */ }; static CONST unsigned char envi[] = { 0xf0, 0x21, 0x00, /* 0xf1, 0xce, 0x21, 00, 50, 0x82, 0x07, 0xc7, 0x09, 0x11, 0x11, 0x19, 0x2c, */ 0xf1, 0xce, 0x21, 00, 52, 0x00, /* exec ok */ 0xf1, 0xce, 0x21, 0, 53, 0x03,/* host unix */ /* 0xf1, 0xce, 0x21, 0, 54, 2,1,1 tool & version # */ }; static void ieee_write_me_part (abfd) bfd *abfd; { ieee_data_type *ieee = IEEE_DATA (abfd); ieee->w.r.trailer_part = bfd_tell (abfd); if (abfd->start_address) { ieee->w.r.me_record = bfd_tell (abfd); ieee_write_2bytes (abfd, ieee_value_starting_address_enum); ieee_write_byte (abfd, ieee_function_either_open_b_enum); ieee_write_int (abfd, abfd->start_address); ieee_write_byte (abfd, ieee_function_either_close_b_enum); } else { ieee->w.r.me_record = bfd_tell (abfd); } ieee_write_byte (abfd, ieee_module_end_enum); } boolean ieee_write_object_contents (abfd) bfd *abfd; { ieee_data_type *ieee = IEEE_DATA (abfd); unsigned int i; file_ptr old; /* Fast forward over the header area */ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) return false; ieee_write_byte (abfd, ieee_module_beginning_enum); ieee_write_id (abfd, bfd_printable_name (abfd)); ieee_write_id (abfd, abfd->filename); /* Fast forward over the variable bits */ ieee_write_byte (abfd, ieee_address_descriptor_enum); /* Bits per MAU */ ieee_write_byte (abfd, (bfd_byte) (bfd_arch_bits_per_byte (abfd))); /* MAU's per address */ ieee_write_byte (abfd, (bfd_byte) (bfd_arch_bits_per_address (abfd) / bfd_arch_bits_per_byte (abfd))); old = bfd_tell (abfd); if (bfd_seek (abfd, (file_ptr) (8 * N_W_VARIABLES), SEEK_CUR) != 0) return false; ieee->w.r.extension_record = bfd_tell (abfd); if (bfd_write ((char *) exten, 1, sizeof (exten), abfd) != sizeof (exten)) return false; if (abfd->flags & EXEC_P) ieee_write_byte (abfd, 0x1);/* Absolute */ else ieee_write_byte (abfd, 0x2);/* Relocateable */ ieee->w.r.environmental_record = bfd_tell (abfd); if (bfd_write ((char *) envi, 1, sizeof (envi), abfd) != sizeof (envi)) return false; output_bfd = abfd; flush (); ieee_write_section_part (abfd); /* First write the symbols, this changes their values into table indeces so we cant use it after this point */ ieee_write_external_part (abfd); /* ieee_write_byte(abfd, ieee_record_seperator_enum);*/ /* ieee_write_byte(abfd, ieee_record_seperator_enum);*/ /* Write any debugs we have been told about */ ieee_write_debug_part (abfd); /* Can only write the data once the symbols have been written since the data contains relocation information which points to the symbols */ ieee_write_data_part (abfd); /* At the end we put the end ! */ ieee_write_me_part (abfd); /* Generate the header */ if (bfd_seek (abfd, old, SEEK_SET) != 0) return false; for (i = 0; i < N_W_VARIABLES; i++) { ieee_write_2bytes (abfd, ieee_assign_value_to_variable_enum); ieee_write_byte (abfd, (bfd_byte) i); ieee_write_int5_out (abfd, ieee->w.offset[i]); } return true; } /* Native-level interface to symbols. */ /* We read the symbols into a buffer, which is discarded when this function exits. We read the strings into a buffer large enough to hold them all plus all the cached symbol entries. */ asymbol * ieee_make_empty_symbol (abfd) bfd *abfd; { ieee_symbol_type *new = (ieee_symbol_type *) bfd_zmalloc (sizeof (ieee_symbol_type)); if (!new) { bfd_set_error (bfd_error_no_error); return NULL; } new->symbol.the_bfd = abfd; return &new->symbol; } static bfd * ieee_openr_next_archived_file (arch, prev) bfd *arch; bfd *prev; { ieee_ar_data_type *ar = IEEE_AR_DATA (arch); /* take the next one from the arch state, or reset */ if (prev == (bfd *) NULL) { /* Reset the index - the first two entries are bogus*/ ar->element_index = 2; } while (true) { ieee_ar_obstack_type *p = ar->elements + ar->element_index; ar->element_index++; if (ar->element_index <= ar->element_count) { if (p->file_offset != (file_ptr) 0) { if (p->abfd == (bfd *) NULL) { p->abfd = _bfd_create_empty_archive_element_shell (arch); p->abfd->origin = p->file_offset; } return p->abfd; } } else { bfd_set_error (bfd_error_no_more_archived_files); return (bfd *) NULL; } } } static boolean ieee_find_nearest_line (abfd, section, symbols, offset, filename_ptr, functionname_ptr, line_ptr) bfd *abfd; asection *section; asymbol **symbols; bfd_vma offset; char **filename_ptr; char **functionname_ptr; int *line_ptr; { return false; } static int ieee_generic_stat_arch_elt (abfd, buf) bfd *abfd; struct stat *buf; { ieee_ar_data_type *ar = abfd->my_archive->tdata.ieee_ar_data; if (ar == (ieee_ar_data_type *) NULL) { bfd_set_error (bfd_error_invalid_operation); return -1; } else { buf->st_size = 0x1; buf->st_mode = 0666; return !ieee_object_p (abfd); } } static int ieee_sizeof_headers (abfd, x) bfd *abfd; boolean x; { return 0; } /* The debug info routines are never used. */ #if 0 static void ieee_bfd_debug_info_start (abfd) bfd *abfd; { } static void ieee_bfd_debug_info_end (abfd) bfd *abfd; { } /* Add this section to the list of sections we have debug info for, to be ready to output it at close time */ static void ieee_bfd_debug_info_accumulate (abfd, section) bfd *abfd; asection *section; { ieee_data_type *ieee = IEEE_DATA (section->owner); ieee_data_type *output_ieee = IEEE_DATA (abfd); /* can only accumulate data from other ieee bfds */ if (section->owner->xvec != abfd->xvec) return; /* Only bother once per bfd */ if (ieee->done_debug == true) return; ieee->done_debug = true; /* Don't bother if there is no debug info */ if (ieee->w.r.debug_information_part == 0) return; /* Add to chain */ { bfd_chain_type *n = (bfd_chain_type *) bfd_alloc (abfd, sizeof (bfd_chain_type)); if (!n) { bfd_set_error (bfd_error_no_memory); abort (); /* FIXME */ } n->this = section->owner; n->next = (bfd_chain_type *) NULL; if (output_ieee->chain_head) { output_ieee->chain_head->next = n; } else { output_ieee->chain_root = n; } output_ieee->chain_head = n; } } #endif #define ieee_close_and_cleanup _bfd_generic_close_and_cleanup #define ieee_bfd_free_cached_info _bfd_generic_bfd_free_cached_info #define ieee_slurp_armap bfd_true #define ieee_slurp_extended_name_table bfd_true #define ieee_truncate_arname bfd_dont_truncate_arname #define ieee_write_armap \ ((boolean (*) \ PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int))) \ bfd_true) #define ieee_bfd_is_local_label bfd_generic_is_local_label #define ieee_get_lineno _bfd_nosymbols_get_lineno #define ieee_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol #define ieee_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup #define ieee_set_arch_mach _bfd_generic_set_arch_mach #define ieee_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define ieee_bfd_relax_section bfd_generic_relax_section #define ieee_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define ieee_bfd_link_add_symbols _bfd_generic_link_add_symbols #define ieee_bfd_final_link _bfd_generic_final_link /*SUPPRESS 460 */ const bfd_target ieee_vec = { "ieee", /* name */ bfd_target_ieee_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading underscore */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 1, /* minimum alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, ieee_object_p, /* bfd_check_format */ ieee_archive_p, _bfd_dummy_target, }, { bfd_false, ieee_mkobject, _bfd_generic_mkarchive, bfd_false }, { bfd_false, ieee_write_object_contents, _bfd_write_archive_contents, bfd_false, }, BFD_JUMP_TABLE_GENERIC (ieee), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (ieee), BFD_JUMP_TABLE_SYMBOLS (ieee), BFD_JUMP_TABLE_RELOCS (ieee), BFD_JUMP_TABLE_WRITE (ieee), BFD_JUMP_TABLE_LINK (ieee), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 }; gdb-4.13/bfd/init.c 666 34562 1752 3366 5541350077 12415 0ustar fnfcygnus/* bfd initialization stuff Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" extern void bfd_section_init (); static boolean initialized = false; /* SECTION Initialization These are the functions that handle initializing a BFD. */ /* FUNCTION bfd_init SYNOPSIS void bfd_init(void); DESCRIPTION This routine must be called before any other BFD function to initialize magical internal data structures. */ void bfd_init () { if (initialized == false) { initialized = true; bfd_arch_init(); } } /* INTERNAL_FUNCTION bfd_check_init SYNOPSIS void bfd_check_init(void); DESCRIPTION This routine is called before any other BFD function using initialized data. It ensures that the structures have been initialized. Soon this function will go away, and the BFD library will assume that <> has been called. */ void bfd_check_init () { if (initialized == false) { bfd_init(); } } gdb-4.13/bfd/irix-core.c 666 34562 1752 16231 5621013012 13346 0ustar fnfcygnus/* BFD back-end for Irix core files. Copyright 1993, 1994 Free Software Foundation, Inc. Written by Stu Grossman, Cygnus Support. Converted to back-end form by Ian Lance Taylor, Cygnus Support This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file can only be compiled on systems which use Irix style core files (namely, Irix 4 and Irix 5, so far). In the config/XXXXXX.mh file for such a system add HDEFINES=-DIRIX_CORE HDEPFILES=irix-core.o */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #ifdef IRIX_CORE #include struct sgi_core_struct { int sig; char cmd[CORE_NAMESIZE]; }; #define core_hdr(bfd) ((bfd)->tdata.sgi_core_data) #define core_signal(bfd) (core_hdr(bfd)->sig) #define core_command(bfd) (core_hdr(bfd)->cmd) static asection * make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos) bfd *abfd; CONST char *name; flagword flags; bfd_size_type _raw_size; bfd_vma vma; file_ptr filepos; { asection *asect; asect = bfd_make_section_anyway (abfd, name); if (!asect) return NULL; asect->flags = flags; asect->_raw_size = _raw_size; asect->vma = vma; asect->filepos = filepos; asect->alignment_power = 4; return asect; } static const bfd_target * irix_core_core_file_p (abfd) bfd *abfd; { int val; int i; char *secname; struct coreout coreout; struct idesc *idg, *idf, *ids; val = bfd_read ((PTR)&coreout, 1, sizeof coreout, abfd); if (val != sizeof coreout) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } if (coreout.c_magic != CORE_MAGIC || coreout.c_version != CORE_VERSION1) return 0; core_hdr (abfd) = (struct sgi_core_struct *) bfd_zalloc (abfd, sizeof (struct sgi_core_struct)); if (!core_hdr (abfd)) return NULL; strncpy (core_command (abfd), coreout.c_name, CORE_NAMESIZE); core_signal (abfd) = coreout.c_sigcause; if (bfd_seek (abfd, coreout.c_vmapoffset, SEEK_SET) != 0) return NULL; for (i = 0; i < coreout.c_nvmap; i++) { struct vmap vmap; val = bfd_read ((PTR)&vmap, 1, sizeof vmap, abfd); if (val != sizeof vmap) break; switch (vmap.v_type) { case VDATA: secname = ".data"; break; case VSTACK: secname = ".stack"; break; #ifdef VMAPFILE case VMAPFILE: secname = ".mapfile"; break; #endif default: continue; } /* A file offset of zero means that the section is not contained in the corefile. */ if (vmap.v_offset == 0) continue; if (!make_bfd_asection (abfd, secname, SEC_ALLOC+SEC_LOAD+SEC_HAS_CONTENTS, vmap.v_len, vmap.v_vaddr, vmap.v_offset, 2)) return NULL; } /* Make sure that the regs are contiguous within the core file. */ idg = &coreout.c_idesc[I_GPREGS]; idf = &coreout.c_idesc[I_FPREGS]; ids = &coreout.c_idesc[I_SPECREGS]; if (idg->i_offset + idg->i_len != idf->i_offset || idf->i_offset + idf->i_len != ids->i_offset) return 0; /* Can't deal with non-contig regs */ if (bfd_seek (abfd, idg->i_offset, SEEK_SET) != 0) return NULL; make_bfd_asection (abfd, ".reg", SEC_HAS_CONTENTS, idg->i_len + idf->i_len + ids->i_len, 0, idg->i_offset); /* OK, we believe you. You're a core file (sure, sure). */ return abfd->xvec; } static char * irix_core_core_file_failing_command (abfd) bfd *abfd; { return core_command (abfd); } static int irix_core_core_file_failing_signal (abfd) bfd *abfd; { return core_signal (abfd); } static boolean irix_core_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd, *exec_bfd; { return true; /* XXX - FIXME */ } static asymbol * irix_core_make_empty_symbol (abfd) bfd *abfd; { asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol)); if (new) new->the_bfd = abfd; return new; } #define irix_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound #define irix_core_get_symtab _bfd_nosymbols_get_symtab #define irix_core_print_symbol _bfd_nosymbols_print_symbol #define irix_core_get_symbol_info _bfd_nosymbols_get_symbol_info #define irix_core_bfd_is_local_label _bfd_nosymbols_bfd_is_local_label #define irix_core_get_lineno _bfd_nosymbols_get_lineno #define irix_core_find_nearest_line _bfd_nosymbols_find_nearest_line #define irix_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol /* If somebody calls any byte-swapping routines, shoot them. */ void swap_abort() { abort(); /* This way doesn't require any declaration for ANSI to fuck up */ } #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort ) #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort ) #define NO_SIGNED_GET \ ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort ) const bfd_target irix_core_vec = { "irix-core", bfd_target_unknown_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* symbol prefix */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 3, /* minimum alignment power */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */ { /* bfd_check_format */ _bfd_dummy_target, /* unknown format */ _bfd_dummy_target, /* object file */ _bfd_dummy_target, /* archive */ irix_core_core_file_p /* a core file */ }, { /* bfd_set_format */ bfd_false, bfd_false, bfd_false, bfd_false }, { /* bfd_write_contents */ bfd_false, bfd_false, bfd_false, bfd_false }, BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (irix_core), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (irix_core), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (_bfd_generic), BFD_JUMP_TABLE_LINK (_bfd_nolink), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 /* backend_data */ }; #endif /* IRIX_CORE */ gdb-4.13/bfd/libaout.h 666 34562 1752 45270 5611327514 13134 0ustar fnfcygnus/* BFD back-end data structures for a.out (and similar) files. Copyright 1990, 1991, 1992 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef LIBAOUT_H #define LIBAOUT_H /* We try to encapsulate the differences in the various a.out file variants in a few routines, and otherwise share large masses of code. This means we only have to fix bugs in one place, most of the time. */ #include "bfdlink.h" /* Parameterize the a.out code based on whether it is being built for a 32-bit architecture or a 64-bit architecture. */ #if ARCH_SIZE==64 #define GET_WORD bfd_h_get_64 #define GET_SWORD bfd_h_get_signed_64 #define PUT_WORD bfd_h_put_64 #ifndef NAME #define NAME(x,y) CAT3(x,_64_,y) #endif #define JNAME(x) CAT(x,_64) #define BYTES_IN_WORD 8 #else /* ARCH_SIZE == 32 */ #define GET_WORD bfd_h_get_32 #define GET_SWORD bfd_h_get_signed_32 #define PUT_WORD bfd_h_put_32 #ifndef NAME #define NAME(x,y) CAT3(x,_32_,y) #endif #define JNAME(x) CAT(x,_32) #define BYTES_IN_WORD 4 #endif /* ARCH_SIZE==32 */ /* Declare at file level, since used in parameter lists, which have weird scope. */ struct external_exec; struct external_nlist; struct reloc_ext_external; struct reloc_std_external; /* a.out backend linker hash table entries. */ struct aout_link_hash_entry { struct bfd_link_hash_entry root; /* Whether this symbol has been written out. */ boolean written; /* Symbol index in output file. */ int indx; }; /* a.out backend linker hash table. */ struct aout_link_hash_table { struct bfd_link_hash_table root; }; /* Look up an entry in an a.out link hash table. */ #define aout_link_hash_lookup(table, string, create, copy, follow) \ ((struct aout_link_hash_entry *) \ bfd_link_hash_lookup (&(table)->root, (string), (create), (copy), (follow))) /* Traverse an a.out link hash table. */ #define aout_link_hash_traverse(table, func, info) \ (bfd_link_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct bfd_link_hash_entry *, PTR))) (func), \ (info))) /* Get the a.out link hash table from the info structure. This is just a cast. */ #define aout_hash_table(p) ((struct aout_link_hash_table *) ((p)->hash)) /* Back-end information for various a.out targets. */ struct aout_backend_data { /* Are ZMAGIC files mapped contiguously? If so, the text section may need more padding, if the segment size (granularity for memory access control) is larger than the page size. */ unsigned char zmagic_mapped_contiguous; /* If this flag is set, ZMAGIC/NMAGIC file headers get mapped in with the text section, which starts immediately after the file header. If not, the text section starts on the next page. */ unsigned char text_includes_header; /* The value to pass to N_SET_FLAGS. */ unsigned char exec_hdr_flags; /* If the text section VMA isn't specified, and we need an absolute address, use this as the default. If we're producing a relocatable file, zero is always used. */ /* ?? Perhaps a callback would be a better choice? Will this do anything reasonable for a format that handles multiple CPUs with different load addresses for each? */ bfd_vma default_text_vma; /* Callback for setting the page and segment sizes, if they can't be trivially determined from the architecture. */ boolean (*set_sizes) PARAMS ((bfd *)); /* zmagic files only. For go32, the length of the exec header contributes to the size of the text section in the file for alignment purposes but does *not* get counted in the length of the text section. */ unsigned char exec_header_not_counted; /* Callback from the add symbols phase of the linker code to handle a dynamic object. */ boolean (*add_dynamic_symbols) PARAMS ((bfd *, struct bfd_link_info *)); /* Callback from the add symbols phase of the linker code to handle adding a single symbol to the global linker hash table. */ boolean (*add_one_symbol) PARAMS ((struct bfd_link_info *, bfd *, const char *, flagword, asection *, bfd_vma, const char *, boolean, boolean, struct bfd_link_hash_entry **)); /* Called to handle linking a dynamic object. */ boolean (*link_dynamic_object) PARAMS ((struct bfd_link_info *, bfd *)); /* Called for each global symbol being written out by the linker. This should write out the dynamic symbol information. */ boolean (*write_dynamic_symbol) PARAMS ((bfd *, struct bfd_link_info *, struct aout_link_hash_entry *)); /* This callback is called by the linker for each reloc against an external symbol. RELOC is a pointer to the unswapped reloc. If *SKIP is set to true, the reloc will be skipped. */ boolean (*check_dynamic_reloc) PARAMS ((struct bfd_link_info *info, bfd *input_bfd, asection *input_section, struct aout_link_hash_entry *h, PTR reloc, boolean *skip)); /* Called at the end of a link to finish up any dynamic linking information. */ boolean (*finish_dynamic_link) PARAMS ((bfd *, struct bfd_link_info *)); }; #define aout_backend_info(abfd) \ ((CONST struct aout_backend_data *)((abfd)->xvec->backend_data)) /* This is the layout in memory of a "struct exec" while we process it. All 'lengths' are given as a number of bytes. All 'alignments' are for relinkable files only; an alignment of 'n' indicates the corresponding segment must begin at an address that is a multiple of (2**n). */ struct internal_exec { long a_info; /* Magic number and flags, packed */ bfd_vma a_text; /* length of text, in bytes */ bfd_vma a_data; /* length of data, in bytes */ bfd_vma a_bss; /* length of uninitialized data area in mem */ bfd_vma a_syms; /* length of symbol table data in file */ bfd_vma a_entry; /* start address */ bfd_vma a_trsize; /* length of text's relocation info, in bytes */ bfd_vma a_drsize; /* length of data's relocation info, in bytes */ /* Added for i960 */ bfd_vma a_tload; /* Text runtime load address */ bfd_vma a_dload; /* Data runtime load address */ unsigned char a_talign; /* Alignment of text segment */ unsigned char a_dalign; /* Alignment of data segment */ unsigned char a_balign; /* Alignment of bss segment */ char a_relaxable; /* Enough info for linker relax */ }; /* Magic number is written < MSB > 3130292827262524232221201918171615141312111009080706050403020100 < FLAGS >< MACHINE TYPE >< MAGIC NUMBER > */ /* Magic number for NetBSD is 3130292827262524232221201918171615141312111009080706050403020100 < FLAGS >< >< MAGIC NUMBER > */ enum machine_type { M_UNKNOWN = 0, M_68010 = 1, M_68020 = 2, M_SPARC = 3, /* skip a bunch so we don't run into any of suns numbers */ /* make these up for the ns32k*/ M_NS32032 = (64), /* ns32032 running ? */ M_NS32532 = (64 + 5), /* ns32532 running mach */ M_386 = 100, M_29K = 101, /* AMD 29000 */ M_386_DYNIX = 102, /* Sequent running dynix */ M_386_NETBSD = 134, /* NetBSD/386 binary */ M_532_NETBSD = 137, /* MetBSD/523 binary */ M_MIPS1 = 151, /* MIPS R2000/R3000 binary */ M_MIPS2 = 152, /* MIPS R4000/R6000 binary */ M_HP200 = 200, /* HP 200 (68010) BSD binary */ M_HP300 = (300 % 256), /* HP 300 (68020+68881) BSD binary */ M_HPUX = (0x20c % 256)/* HP 200/300 HPUX binary */ }; #define N_DYNAMIC(exec) ((exec).a_info & 0x80000000) #ifndef N_MAGIC # define N_MAGIC(exec) ((exec).a_info & 0xffff) #endif #ifndef N_MACHTYPE # define N_MACHTYPE(exec) ((enum machine_type)(((exec).a_info >> 16) & 0xff)) #endif #ifndef N_FLAGS # define N_FLAGS(exec) (((exec).a_info >> 24) & 0xff) #endif #ifndef N_SET_INFO # define N_SET_INFO(exec, magic, type, flags) \ ((exec).a_info = ((magic) & 0xffff) \ | (((int)(type) & 0xff) << 16) \ | (((flags) & 0xff) << 24)) #endif #ifndef N_SET_DYNAMIC # define N_SET_DYNAMIC(exec, dynamic) \ ((exec).a_info = (dynamic) ? ((exec).a_info | 0x80000000) : \ ((exec).a_info & 0x7fffffff)) #endif #ifndef N_SET_MAGIC # define N_SET_MAGIC(exec, magic) \ ((exec).a_info = (((exec).a_info & 0xffff0000) | ((magic) & 0xffff))) #endif #ifndef N_SET_MACHTYPE # define N_SET_MACHTYPE(exec, machtype) \ ((exec).a_info = \ ((exec).a_info&0xff00ffff) | ((((int)(machtype))&0xff) << 16)) #endif #ifndef N_SET_FLAGS # define N_SET_FLAGS(exec, flags) \ ((exec).a_info = \ ((exec).a_info&0x00ffffff) | (((flags) & 0xff) << 24)) #endif typedef struct aout_symbol { asymbol symbol; short desc; char other; unsigned char type; } aout_symbol_type; /* The `tdata' struct for all a.out-like object file formats. Various things depend on this struct being around any time an a.out file is being handled. An example is dbxread.c in GDB. */ struct aoutdata { struct internal_exec *hdr; /* exec file header */ aout_symbol_type *symbols; /* symtab for input bfd */ /* For ease, we do this */ asection *textsec; asection *datasec; asection *bsssec; /* We remember these offsets so that after check_file_format, we have no dependencies on the particular format of the exec_hdr. */ file_ptr sym_filepos; file_ptr str_filepos; /* Size of a relocation entry in external form */ unsigned reloc_entry_size; /* Size of a symbol table entry in external form */ unsigned symbol_entry_size; /* Page size - needed for alignment of demand paged files. */ unsigned long page_size; /* Segment size - needed for alignment of demand paged files. */ unsigned long segment_size; /* Zmagic disk block size - need to align the start of the text section in ZMAGIC binaries. Normally the same as page_size. */ unsigned long zmagic_disk_block_size; unsigned exec_bytes_size; unsigned vma_adjusted : 1; /* used when a bfd supports several highly similar formats */ enum { default_format = 0, /* Used on HP 9000/300 running HP/UX. See hp300hpux.c. */ gnu_encap_format, /* Used on Linux, 386BSD, etc. See include/aout/aout64.h. */ q_magic_format } subformat; enum { undecided_magic = 0, z_magic, o_magic, n_magic } magic; /* The external symbol information. */ struct external_nlist *external_syms; bfd_size_type external_sym_count; char *external_strings; bfd_size_type external_string_size; struct aout_link_hash_entry **sym_hashes; /* A pointer for shared library information. */ PTR dynamic_info; }; struct aout_data_struct { struct aoutdata a; struct internal_exec e; }; #define adata(bfd) ((bfd)->tdata.aout_data->a) #define exec_hdr(bfd) (adata(bfd).hdr) #define obj_aout_symbols(bfd) (adata(bfd).symbols) #define obj_textsec(bfd) (adata(bfd).textsec) #define obj_datasec(bfd) (adata(bfd).datasec) #define obj_bsssec(bfd) (adata(bfd).bsssec) #define obj_sym_filepos(bfd) (adata(bfd).sym_filepos) #define obj_str_filepos(bfd) (adata(bfd).str_filepos) #define obj_reloc_entry_size(bfd) (adata(bfd).reloc_entry_size) #define obj_symbol_entry_size(bfd) (adata(bfd).symbol_entry_size) #define obj_aout_subformat(bfd) (adata(bfd).subformat) #define obj_aout_external_syms(bfd) (adata(bfd).external_syms) #define obj_aout_external_sym_count(bfd) (adata(bfd).external_sym_count) #define obj_aout_external_strings(bfd) (adata(bfd).external_strings) #define obj_aout_external_string_size(bfd) (adata(bfd).external_string_size) #define obj_aout_sym_hashes(bfd) (adata(bfd).sym_hashes) #define obj_aout_dynamic_info(bfd) (adata(bfd).dynamic_info) /* We take the address of the first element of an asymbol to ensure that the macro is only ever applied to an asymbol */ #define aout_symbol(asymbol) ((aout_symbol_type *)(&(asymbol)->the_bfd)) /* Information we keep for each a.out section. This is currently only used by the a.out backend linker. */ struct aout_section_data_struct { /* The unswapped relocation entries for this section. */ PTR relocs; }; #define aout_section_data(s) \ ((struct aout_section_data_struct *) (s)->used_by_bfd) /* Prototype declarations for functions defined in aoutx.h */ boolean NAME(aout,squirt_out_relocs) PARAMS ((bfd *abfd, asection *section)); boolean NAME(aout,make_sections) PARAMS ((bfd *)); const bfd_target * NAME(aout,some_aout_object_p) PARAMS ((bfd *abfd, struct internal_exec *execp, const bfd_target *(*callback)(bfd *))); boolean NAME(aout,mkobject) PARAMS ((bfd *abfd)); enum machine_type NAME(aout,machine_type) PARAMS ((enum bfd_architecture arch, unsigned long machine, boolean *unknown)); boolean NAME(aout,set_arch_mach) PARAMS ((bfd *abfd, enum bfd_architecture arch, unsigned long machine)); boolean NAME(aout,new_section_hook) PARAMS ((bfd *abfd, asection *newsect)); boolean NAME(aout,set_section_contents) PARAMS ((bfd *abfd, sec_ptr section, PTR location, file_ptr offset, bfd_size_type count)); asymbol * NAME(aout,make_empty_symbol) PARAMS ((bfd *abfd)); boolean NAME(aout,translate_symbol_table) PARAMS ((bfd *, aout_symbol_type *, struct external_nlist *, bfd_size_type, char *, bfd_size_type, boolean dynamic)); boolean NAME(aout,slurp_symbol_table) PARAMS ((bfd *abfd)); boolean NAME(aout,write_syms) PARAMS ((bfd *abfd)); void NAME(aout,reclaim_symbol_table) PARAMS ((bfd *abfd)); long NAME(aout,get_symtab_upper_bound) PARAMS ((bfd *abfd)); long NAME(aout,get_symtab) PARAMS ((bfd *abfd, asymbol **location)); void NAME(aout,swap_ext_reloc_in) PARAMS ((bfd *, struct reloc_ext_external *, arelent *, asymbol **)); void NAME(aout,swap_std_reloc_in) PARAMS ((bfd *, struct reloc_std_external *, arelent *, asymbol **)); boolean NAME(aout,slurp_reloc_table) PARAMS ((bfd *abfd, sec_ptr asect, asymbol **symbols)); long NAME(aout,canonicalize_reloc) PARAMS ((bfd *abfd, sec_ptr section, arelent **relptr, asymbol **symbols)); long NAME(aout,get_reloc_upper_bound) PARAMS ((bfd *abfd, sec_ptr asect)); void NAME(aout,reclaim_reloc) PARAMS ((bfd *ignore_abfd, sec_ptr ignore)); alent * NAME(aout,get_lineno) PARAMS ((bfd *ignore_abfd, asymbol *ignore_symbol)); void NAME(aout,print_symbol) PARAMS ((bfd *ignore_abfd, PTR file, asymbol *symbol, bfd_print_symbol_type how)); void NAME(aout,get_symbol_info) PARAMS ((bfd *ignore_abfd, asymbol *symbol, symbol_info *ret)); boolean NAME(aout,find_nearest_line) PARAMS ((bfd *abfd, asection *section, asymbol **symbols, bfd_vma offset, CONST char **filename_ptr, CONST char **functionname_ptr, unsigned int *line_ptr)); int NAME(aout,sizeof_headers) PARAMS ((bfd *abfd, boolean exec)); boolean NAME(aout,adjust_sizes_and_vmas) PARAMS ((bfd *abfd, bfd_size_type *text_size, file_ptr *text_end)); void NAME(aout,swap_exec_header_in) PARAMS ((bfd *abfd, struct external_exec *raw_bytes, struct internal_exec *execp)); void NAME(aout,swap_exec_header_out) PARAMS ((bfd *abfd, struct internal_exec *execp, struct external_exec *raw_bytes)); struct bfd_hash_entry * NAME(aout,link_hash_newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); boolean NAME(aout,link_hash_table_init) PARAMS ((struct aout_link_hash_table *, bfd *, struct bfd_hash_entry *(*) (struct bfd_hash_entry *, struct bfd_hash_table *, const char *))); struct bfd_link_hash_table * NAME(aout,link_hash_table_create) PARAMS ((bfd *)); boolean NAME(aout,link_add_symbols) PARAMS ((bfd *, struct bfd_link_info *)); boolean NAME(aout,final_link) PARAMS ((bfd *, struct bfd_link_info *, void (*) (bfd *, file_ptr *, file_ptr *, file_ptr *))); boolean NAME(aout,bfd_free_cached_info) PARAMS ((bfd *)); /* Prototypes for functions in stab-syms.c. */ CONST char * aout_stab_name PARAMS ((int code)); /* A.out uses the generic versions of these routines... */ #define aout_32_get_section_contents _bfd_generic_get_section_contents #define aout_64_get_section_contents _bfd_generic_get_section_contents #ifndef NO_WRITE_HEADER_KLUDGE #define NO_WRITE_HEADER_KLUDGE 0 #endif #ifndef aout_32_bfd_is_local_label #define aout_32_bfd_is_local_label bfd_generic_is_local_label #endif #ifndef WRITE_HEADERS #define WRITE_HEADERS(abfd, execp) \ { \ bfd_size_type text_size; /* dummy vars */ \ file_ptr text_end; \ if (adata(abfd).magic == undecided_magic) \ NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end); \ \ execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE; \ execp->a_entry = bfd_get_start_address (abfd); \ \ execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * \ obj_reloc_entry_size (abfd)); \ execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * \ obj_reloc_entry_size (abfd)); \ NAME(aout,swap_exec_header_out) (abfd, execp, &exec_bytes); \ \ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) return false; \ if (bfd_write ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd) \ != EXEC_BYTES_SIZE) \ return false; \ /* Now write out reloc info, followed by syms and strings */ \ \ if (bfd_get_outsymbols (abfd) != (asymbol **) NULL \ && bfd_get_symcount (abfd) != 0) \ { \ if (bfd_seek (abfd, (file_ptr)(N_SYMOFF(*execp)), SEEK_SET) \ != 0) \ return false; \ \ if (! NAME(aout,write_syms)(abfd)) return false; \ \ if (bfd_seek (abfd, (file_ptr)(N_TRELOFF(*execp)), SEEK_SET) \ != 0) \ return false; \ \ if (!NAME(aout,squirt_out_relocs) (abfd, obj_textsec (abfd))) \ return false; \ if (bfd_seek (abfd, (file_ptr)(N_DRELOFF(*execp)), SEEK_SET) \ != 0) \ return false; \ \ if (!NAME(aout,squirt_out_relocs)(abfd, obj_datasec (abfd))) \ return false; \ } \ } #endif #endif /* ! defined (LIBAOUT_H) */ gdb-4.13/bfd/libbfd-in.h 666 34562 1752 40431 5601410066 13307 0ustar fnfcygnus/* libbfd.h -- Declarations used by bfd library *implementation*. (This include file is not for users of the library.) Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. ** NOTE: libbfd.h is a GENERATED file. Don't change it; instead, ** change libbfd-in.h or the other BFD source files processed to ** generate this file. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Align an address upward to a boundary, expressed as a number of bytes. E.g. align to an 8-byte boundary with argument of 8. */ #define BFD_ALIGN(this, boundary) \ ((( (this) + ((boundary) -1)) & (~((boundary)-1)))) /* If you want to read and write large blocks, you might want to do it in quanta of this amount */ #define DEFAULT_BUFFERSIZE 8192 /* Set a tdata field. Can't use the other macros for this, since they do casts, and casting to the left of assignment isn't portable. */ #define set_tdata(bfd, v) ((bfd)->tdata.any = (PTR) (v)) /* tdata for an archive. For an input archive, cache needs to be free()'d. For an output archive, symdefs do. */ struct artdata { file_ptr first_file_filepos; /* Speed up searching the armap */ struct ar_cache *cache; bfd *archive_head; /* Only interesting in output routines */ carsym *symdefs; /* the symdef entries */ symindex symdef_count; /* how many there are */ char *extended_names; /* clever intel extension */ /* when more compilers are standard C, this can be a time_t */ long armap_timestamp; /* Timestamp value written into armap. This is used for BSD archives to check that the timestamp is recent enough for the BSD linker to not complain, just before we finish writing an archive. */ file_ptr armap_datepos; /* Position within archive to seek to rewrite the date field. */ PTR tdata; /* Backend specific information. */ }; #define bfd_ardata(bfd) ((bfd)->tdata.aout_ar_data) /* Goes in bfd's arelt_data slot */ struct areltdata { char * arch_header; /* it's actually a string */ unsigned int parsed_size; /* octets of filesize not including ar_hdr */ char *filename; /* null-terminated */ }; #define arelt_size(bfd) (((struct areltdata *)((bfd)->arelt_data))->parsed_size) char *bfd_zmalloc PARAMS ((bfd_size_type size)); /* These routines allocate and free things on the BFD's obstack. Note that realloc can never occur in place. */ PTR bfd_alloc PARAMS ((bfd *abfd, size_t size)); PTR bfd_zalloc PARAMS ((bfd *abfd, size_t size)); PTR bfd_realloc PARAMS ((bfd *abfd, PTR orig, size_t size)); void bfd_alloc_grow PARAMS ((bfd *abfd, PTR thing, size_t size)); PTR bfd_alloc_finish PARAMS ((bfd *abfd)); PTR bfd_alloc_by_size_t PARAMS ((bfd *abfd, size_t wanted)); #define bfd_release(x,y) (void) obstack_free(&(x->memory),y) bfd_size_type bfd_read PARAMS ((PTR ptr, bfd_size_type size, bfd_size_type nitems, bfd *abfd)); bfd_size_type bfd_write PARAMS ((CONST PTR ptr, bfd_size_type size, bfd_size_type nitems, bfd *abfd)); int bfd_seek PARAMS ((bfd* CONST abfd, CONST file_ptr fp, CONST int direction)); long bfd_tell PARAMS ((bfd *abfd)); int bfd_flush PARAMS ((bfd *abfd)); int bfd_stat PARAMS ((bfd *abfd, struct stat *)); bfd * _bfd_create_empty_archive_element_shell PARAMS ((bfd *obfd)); bfd * _bfd_look_for_bfd_in_cache PARAMS ((bfd *arch_bfd, file_ptr index)); boolean _bfd_add_bfd_to_archive_cache PARAMS ((bfd *, file_ptr, bfd *)); boolean _bfd_generic_mkarchive PARAMS ((bfd *abfd)); struct areltdata *_bfd_snarf_ar_hdr PARAMS ((bfd *abfd)); const bfd_target *bfd_generic_archive_p PARAMS ((bfd *abfd)); boolean bfd_slurp_armap PARAMS ((bfd *abfd)); boolean bfd_slurp_bsd_armap_f2 PARAMS ((bfd *abfd)); #define bfd_slurp_bsd_armap bfd_slurp_armap #define bfd_slurp_coff_armap bfd_slurp_armap boolean _bfd_slurp_extended_name_table PARAMS ((bfd *abfd)); boolean _bfd_write_archive_contents PARAMS ((bfd *abfd)); bfd *_bfd_get_elt_at_filepos PARAMS ((bfd *archive, file_ptr filepos)); bfd * _bfd_new_bfd PARAMS ((void)); #define DEFAULT_STRING_SPACE_SIZE 0x2000 boolean bfd_add_to_string_table PARAMS ((char **table, char *new_string, unsigned int *table_length, char **free_ptr)); boolean bfd_false PARAMS ((bfd *ignore)); boolean bfd_true PARAMS ((bfd *ignore)); PTR bfd_nullvoidptr PARAMS ((bfd *ignore)); int bfd_0 PARAMS ((bfd *ignore)); unsigned int bfd_0u PARAMS ((bfd *ignore)); long bfd_0l PARAMS ((bfd *ignore)); long _bfd_n1 PARAMS ((bfd *ignore)); void bfd_void PARAMS ((bfd *ignore)); bfd *_bfd_new_bfd_contained_in PARAMS ((bfd *)); const bfd_target *_bfd_dummy_target PARAMS ((bfd *abfd)); void bfd_dont_truncate_arname PARAMS ((bfd *abfd, CONST char *filename, char *hdr)); void bfd_bsd_truncate_arname PARAMS ((bfd *abfd, CONST char *filename, char *hdr)); void bfd_gnu_truncate_arname PARAMS ((bfd *abfd, CONST char *filename, char *hdr)); boolean bsd_write_armap PARAMS ((bfd *arch, unsigned int elength, struct orl *map, unsigned int orl_count, int stridx)); boolean coff_write_armap PARAMS ((bfd *arch, unsigned int elength, struct orl *map, unsigned int orl_count, int stridx)); bfd * bfd_generic_openr_next_archived_file PARAMS ((bfd *archive, bfd *last_file)); int bfd_generic_stat_arch_elt PARAMS ((bfd *, struct stat *)); /* Generic routines to use for BFD_JUMP_TABLE_GENERIC. Use BFD_JUMP_TABLE_GENERIC (_bfd_generic). */ #define _bfd_generic_close_and_cleanup bfd_true #define _bfd_generic_bfd_free_cached_info bfd_true #define _bfd_generic_new_section_hook \ ((boolean (*) PARAMS ((bfd *, asection *))) bfd_true) extern boolean _bfd_generic_get_section_contents PARAMS ((bfd *, asection *, PTR location, file_ptr offset, bfd_size_type count)); /* Generic routines to use for BFD_JUMP_TABLE_COPY. Use BFD_JUMP_TABLE_COPY (_bfd_generic). */ #define _bfd_generic_bfd_copy_private_bfd_data \ ((boolean (*) PARAMS ((bfd *, bfd *))) bfd_true) #define _bfd_generic_bfd_copy_private_section_data \ ((boolean (*) PARAMS ((bfd *, asection *, bfd *, asection *))) bfd_true) /* Routines to use for BFD_JUMP_TABLE_CORE when there is no core file support. Use BFD_JUMP_TABLE_CORE (_bfd_nocore). */ extern char *_bfd_nocore_core_file_failing_command PARAMS ((bfd *)); extern int _bfd_nocore_core_file_failing_signal PARAMS ((bfd *)); extern boolean _bfd_nocore_core_file_matches_executable_p PARAMS ((bfd *, bfd *)); /* Routines to use for BFD_JUMP_TABLE_ARCHIVE when there is no archive file support. Use BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive). */ #define _bfd_noarchive_slurp_armap bfd_false #define _bfd_noarchive_slurp_extended_name_table bfd_false #define _bfd_noarchive_truncate_arname \ ((void (*) PARAMS ((bfd *, const char *, char *))) bfd_void) #define _bfd_noarchive_write_armap \ ((boolean (*) \ PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int))) \ bfd_false) #define _bfd_noarchive_openr_next_archived_file \ ((bfd *(*) PARAMS ((bfd *, bfd *))) bfd_nullvoidptr) #define _bfd_noarchive_generic_stat_arch_elt bfd_generic_stat_arch_elt /* Routines to use for BFD_JUMP_TABLE_ARCHIVE to get BSD style archives. Use BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_bsd). */ #define _bfd_archive_bsd_slurp_armap bfd_slurp_bsd_armap #define _bfd_archive_bsd_slurp_extended_name_table \ _bfd_slurp_extended_name_table #define _bfd_archive_bsd_truncate_arname bfd_bsd_truncate_arname #define _bfd_archive_bsd_write_armap bsd_write_armap #define _bfd_archive_bsd_openr_next_archived_file \ bfd_generic_openr_next_archived_file #define _bfd_archive_bsd_generic_stat_arch_elt \ bfd_generic_stat_arch_elt /* Routines to use for BFD_JUMP_TABLE_ARCHIVE to get COFF style archives. Use BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff). */ #define _bfd_archive_coff_slurp_armap bfd_slurp_coff_armap #define _bfd_archive_coff_slurp_extended_name_table \ _bfd_slurp_extended_name_table #define _bfd_archive_coff_truncate_arname bfd_dont_truncate_arname #define _bfd_archive_coff_write_armap coff_write_armap #define _bfd_archive_coff_openr_next_archived_file \ bfd_generic_openr_next_archived_file #define _bfd_archive_coff_generic_stat_arch_elt \ bfd_generic_stat_arch_elt /* Routines to use for BFD_JUMP_TABLE_SYMBOLS where there is no symbol support. Use BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols). */ #define _bfd_nosymbols_get_symtab_upper_bound _bfd_n1 #define _bfd_nosymbols_get_symtab \ ((long (*) PARAMS ((bfd *, asymbol **))) _bfd_n1) #define _bfd_nosymbols_make_empty_symbol \ ((asymbol *(*) PARAMS ((bfd *))) bfd_nullvoidptr) #define _bfd_nosymbols_print_symbol \ ((void (*) PARAMS ((bfd *, PTR, asymbol *, bfd_print_symbol_type))) bfd_void) #define _bfd_nosymbols_get_symbol_info \ ((void (*) PARAMS ((bfd *, asymbol *, symbol_info *))) bfd_void) #define _bfd_nosymbols_bfd_is_local_label \ ((boolean (*) PARAMS ((bfd *, asymbol *))) bfd_false) #define _bfd_nosymbols_get_lineno \ ((alent *(*) PARAMS ((bfd *, asymbol *))) bfd_nullvoidptr) #define _bfd_nosymbols_find_nearest_line \ ((boolean (*) \ PARAMS ((bfd *, asection *, asymbol **, bfd_vma, const char **, \ const char **, unsigned int *))) \ bfd_false) #define _bfd_nosymbols_bfd_make_debug_symbol \ ((asymbol *(*) PARAMS ((bfd *, PTR, unsigned long))) bfd_nullvoidptr) /* Routines to use for BFD_JUMP_TABLE_RELOCS when there is no reloc support. Use BFD_JUMP_TABLE_RELOCS (_bfd_norelocs). */ #define _bfd_norelocs_get_reloc_upper_bound \ ((long (*) PARAMS ((bfd *, asection *))) _bfd_n1) #define _bfd_norelocs_canonicalize_reloc \ ((long (*) PARAMS ((bfd *, asection *, arelent **, asymbol **))) _bfd_n1) #define _bfd_norelocs_bfd_reloc_type_lookup \ ((const reloc_howto_type *(*) PARAMS ((bfd *, bfd_reloc_code_real_type))) \ bfd_nullvoidptr) /* Routines to use for BFD_JUMP_TABLE_WRITE for targets which may not be written. Use BFD_JUMP_TABLE_WRITE (_bfd_nowrite). */ #define _bfd_nowrite_set_arch_mach \ ((boolean (*) PARAMS ((bfd *, enum bfd_architecture, unsigned long))) \ bfd_false) #define _bfd_nowrite_set_section_contents \ ((boolean (*) PARAMS ((bfd *, asection *, PTR, file_ptr, bfd_size_type))) \ bfd_false) /* Generic routines to use for BFD_JUMP_TABLE_WRITE. Use BFD_JUMP_TABLE_WRITE (_bfd_generic). */ #define _bfd_generic_set_arch_mach bfd_default_set_arch_mach extern boolean _bfd_generic_set_section_contents PARAMS ((bfd *, asection *, PTR, file_ptr, bfd_size_type)); /* Routines to use for BFD_JUMP_TABLE_LINK for targets which do not support linking. Use BFD_JUMP_TABLE_LINK (_bfd_nolink). */ #define _bfd_nolink_sizeof_headers ((int (*) PARAMS ((bfd *, boolean))) bfd_0) #define _bfd_nolink_bfd_get_relocated_section_contents \ ((bfd_byte *(*) \ PARAMS ((bfd *, struct bfd_link_info *, struct bfd_link_order *, \ bfd_byte *, boolean, asymbol **))) \ bfd_nullvoidptr) #define _bfd_nolink_bfd_relax_section \ ((boolean (*) \ PARAMS ((bfd *, asection *, struct bfd_link_info *, boolean *))) \ bfd_false) #define _bfd_nolink_bfd_link_hash_table_create \ ((struct bfd_link_hash_table *(*) PARAMS ((bfd *))) bfd_nullvoidptr) #define _bfd_nolink_bfd_link_add_symbols \ ((boolean (*) PARAMS ((bfd *, struct bfd_link_info *))) bfd_false) #define _bfd_nolink_bfd_final_link \ ((boolean (*) PARAMS ((bfd *, struct bfd_link_info *))) bfd_false) /* Routines to use for BFD_JUMP_TABLE_DYNAMIC for targets which do not have dynamic symbols or relocs. Use BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic). */ #define _bfd_nodynamic_get_dynamic_symtab_upper_bound _bfd_n1 #define _bfd_nodynamic_canonicalize_dynamic_symtab \ ((long (*) PARAMS ((bfd *, asymbol **))) _bfd_n1) #define _bfd_nodynamic_get_dynamic_reloc_upper_bound _bfd_n1 #define _bfd_nodynamic_canonicalize_dynamic_reloc \ ((long (*) PARAMS ((bfd *, arelent **, asymbol **))) _bfd_n1) /* Generic routine to determine of the given symbol is a local label. */ extern boolean bfd_generic_is_local_label PARAMS ((bfd *, asymbol *)); /* A routine to create entries for a bfd_link_hash_table. */ extern struct bfd_hash_entry *_bfd_link_hash_newfunc PARAMS ((struct bfd_hash_entry *entry, struct bfd_hash_table *table, const char *string)); /* Initialize a bfd_link_hash_table. */ extern boolean _bfd_link_hash_table_init PARAMS ((struct bfd_link_hash_table *, bfd *, struct bfd_hash_entry *(*) (struct bfd_hash_entry *, struct bfd_hash_table *, const char *))); /* Generic link hash table creation routine. */ extern struct bfd_link_hash_table *_bfd_generic_link_hash_table_create PARAMS ((bfd *)); /* Generic add symbol routine. */ extern boolean _bfd_generic_link_add_symbols PARAMS ((bfd *, struct bfd_link_info *)); /* Generic add symbol routine. This version is used by targets for which the linker must collect constructors and destructors by name, as the collect2 program does. */ extern boolean _bfd_generic_link_add_symbols_collect PARAMS ((bfd *, struct bfd_link_info *)); /* Generic archive add symbol routine. */ extern boolean _bfd_generic_link_add_archive_symbols PARAMS ((bfd *, struct bfd_link_info *, boolean (*checkfn) (bfd *, struct bfd_link_info *, boolean *))); /* Forward declaration to avoid prototype errors. */ typedef struct bfd_link_hash_entry _bfd_link_hash_entry; /* Generic routine to add a single symbol. */ extern boolean _bfd_generic_link_add_one_symbol PARAMS ((struct bfd_link_info *, bfd *, const char *name, flagword, asection *, bfd_vma, const char *, boolean copy, boolean constructor, struct bfd_link_hash_entry **)); /* Generic link routine. */ extern boolean _bfd_generic_final_link PARAMS ((bfd *, struct bfd_link_info *)); /* Generic reloc_link_order processing routine. */ extern boolean _bfd_generic_reloc_link_order PARAMS ((bfd *, struct bfd_link_info *, asection *, struct bfd_link_order *)); /* Default link order processing routine. */ extern boolean _bfd_default_link_order PARAMS ((bfd *, struct bfd_link_info *, asection *, struct bfd_link_order *)); /* Count the number of reloc entries in a link order list. */ extern unsigned int _bfd_count_link_order_relocs PARAMS ((struct bfd_link_order *)); /* Final link relocation routine. */ extern bfd_reloc_status_type _bfd_final_link_relocate PARAMS ((const reloc_howto_type *, bfd *, asection *, bfd_byte *, bfd_vma address, bfd_vma value, bfd_vma addend)); /* Relocate a particular location by a howto and a value. */ extern bfd_reloc_status_type _bfd_relocate_contents PARAMS ((const reloc_howto_type *, bfd *, bfd_vma, bfd_byte *)); /* Macros to tell if bfds are read or write enabled. Note that bfds open for read may be scribbled into if the fd passed to bfd_fdopenr is actually open both for read and write simultaneously. However an output bfd will never be open for read. Therefore sometimes you want to check bfd_read_p or !bfd_read_p, and only sometimes bfd_write_p. */ #define bfd_read_p(abfd) ((abfd)->direction == read_direction || (abfd)->direction == both_direction) #define bfd_write_p(abfd) ((abfd)->direction == write_direction || (abfd)->direction == both_direction) void bfd_assert PARAMS ((char*,int)); #define BFD_ASSERT(x) \ { if (!(x)) bfd_assert(__FILE__,__LINE__); } #define BFD_FAIL() \ { bfd_assert(__FILE__,__LINE__); } FILE * bfd_cache_lookup_worker PARAMS ((bfd *)); extern bfd *bfd_last_cache; /* Now Steve, what's the story here? */ #ifdef lint #define itos(x) "l" #define stoi(x) 1 #else #define itos(x) ((char*)(x)) #define stoi(x) ((int)(x)) #endif /* List of supported target vectors, and the default vector (if bfd_default_vector[0] is NULL, there is no default). */ extern const bfd_target * const bfd_target_vector[]; extern const bfd_target * const bfd_default_vector[]; /* And more follows */ gdb-4.13/bfd/libbfd.c 666 34562 1752 51360 5601410067 12702 0ustar fnfcygnus/* Assorted BFD support routines, only used internally. Copyright 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" /* SECTION Internal functions DESCRIPTION These routines are used within BFD. They are not intended for export, but are documented here for completeness. */ /* A routine which is used in target vectors for unsupported operations. */ /*ARGSUSED*/ boolean bfd_false (ignore) bfd *ignore; { bfd_set_error (bfd_error_invalid_operation); return false; } /* A routine which is used in target vectors for supported operations which do not actually do anything. */ /*ARGSUSED*/ boolean bfd_true (ignore) bfd *ignore; { return true; } /* A routine which is used in target vectors for unsupported operations which return a pointer value. */ /*ARGSUSED*/ PTR bfd_nullvoidptr (ignore) bfd *ignore; { bfd_set_error (bfd_error_invalid_operation); return NULL; } /*ARGSUSED*/ int bfd_0 (ignore) bfd *ignore; { return 0; } /*ARGSUSED*/ unsigned int bfd_0u (ignore) bfd *ignore; { return 0; } /*ARGUSED*/ long bfd_0l (ignore) bfd *ignore; { return 0; } /* A routine which is used in target vectors for unsupported operations which return -1 on error. */ /*ARGSUSED*/ long _bfd_n1 (ignore_abfd) bfd *ignore_abfd; { bfd_set_error (bfd_error_invalid_operation); return -1; } /*ARGSUSED*/ void bfd_void (ignore) bfd *ignore; { } /*ARGSUSED*/ boolean _bfd_nocore_core_file_matches_executable_p (ignore_core_bfd, ignore_exec_bfd) bfd *ignore_core_bfd; bfd *ignore_exec_bfd; { bfd_set_error (bfd_error_invalid_operation); return false; } /* Routine to handle core_file_failing_command entry point for targets without core file support. */ /*ARGSUSED*/ char * _bfd_nocore_core_file_failing_command (ignore_abfd) bfd *ignore_abfd; { bfd_set_error (bfd_error_invalid_operation); return (char *)NULL; } /* Routine to handle core_file_failing_signal entry point for targets without core file support. */ /*ARGSUSED*/ int _bfd_nocore_core_file_failing_signal (ignore_abfd) bfd *ignore_abfd; { bfd_set_error (bfd_error_invalid_operation); return 0; } /*ARGSUSED*/ const bfd_target * _bfd_dummy_target (ignore_abfd) bfd *ignore_abfd; { bfd_set_error (bfd_error_wrong_format); return 0; } #ifndef bfd_zmalloc /* allocate and clear storage */ char * bfd_zmalloc (size) bfd_size_type size; { char *ptr = (char *) malloc ((size_t) size); if (ptr && size) memset(ptr, 0, (size_t) size); return ptr; } #endif /* bfd_zmalloc */ /* Some IO code */ /* Note that archive entries don't have streams; they share their parent's. This allows someone to play with the iostream behind BFD's back. Also, note that the origin pointer points to the beginning of a file's contents (0 for non-archive elements). For archive entries this is the first octet in the file, NOT the beginning of the archive header. */ static int real_read (where, a,b, file) PTR where; int a; int b; FILE *file; { return fread(where, a,b,file); } /* Return value is amount read (FIXME: how are errors and end of file dealt with? We never call bfd_set_error, which is probably a mistake). */ bfd_size_type bfd_read (ptr, size, nitems, abfd) PTR ptr; bfd_size_type size; bfd_size_type nitems; bfd *abfd; { int nread; nread = real_read (ptr, 1, (int)(size*nitems), bfd_cache_lookup(abfd)); #ifdef FILE_OFFSET_IS_CHAR_INDEX if (nread > 0) abfd->where += nread; #endif /* Set bfd_error if we did not read as much data as we expected. If the read failed due to an error set the bfd_error_system_call, else set bfd_error_file_truncated. A BFD backend may wish to override bfd_error_file_truncated to provide something more useful (eg. no_symbols or wrong_format). */ if (nread < (int)(size * nitems)) { if (ferror (bfd_cache_lookup (abfd))) bfd_set_error (bfd_error_system_call); else bfd_set_error (bfd_error_file_truncated); } return nread; } bfd_size_type bfd_write (ptr, size, nitems, abfd) CONST PTR ptr; bfd_size_type size; bfd_size_type nitems; bfd *abfd; { int nwrote = fwrite (ptr, 1, (int) (size * nitems), bfd_cache_lookup (abfd)); #ifdef FILE_OFFSET_IS_CHAR_INDEX if (nwrote > 0) abfd->where += nwrote; #endif if (nwrote != size * nitems) { #ifdef ENOSPC if (nwrote >= 0) errno = ENOSPC; #endif bfd_set_error (bfd_error_system_call); } return nwrote; } /* INTERNAL_FUNCTION bfd_write_bigendian_4byte_int SYNOPSIS void bfd_write_bigendian_4byte_int(bfd *abfd, int i); DESCRIPTION Write a 4 byte integer @var{i} to the output BFD @var{abfd}, in big endian order regardless of what else is going on. This is useful in archives. */ void bfd_write_bigendian_4byte_int (abfd, i) bfd *abfd; int i; { bfd_byte buffer[4]; bfd_putb32(i, buffer); if (bfd_write((PTR)buffer, 4, 1, abfd) != 4) abort (); } long bfd_tell (abfd) bfd *abfd; { file_ptr ptr; ptr = ftell (bfd_cache_lookup(abfd)); if (abfd->my_archive) ptr -= abfd->origin; abfd->where = ptr; return ptr; } int bfd_flush (abfd) bfd *abfd; { return fflush (bfd_cache_lookup(abfd)); } int bfd_stat (abfd, statbuf) bfd *abfd; struct stat *statbuf; { return fstat (fileno(bfd_cache_lookup(abfd)), statbuf); } /* Returns 0 for success, nonzero for failure (in which case bfd_get_error can retrieve the error code). */ int bfd_seek (abfd, position, direction) bfd * CONST abfd; CONST file_ptr position; CONST int direction; { int result; FILE *f; file_ptr file_position; /* For the time being, a BFD may not seek to it's end. The problem is that we don't easily have a way to recognize the end of an element in an archive. */ BFD_ASSERT (direction == SEEK_SET || direction == SEEK_CUR); if (direction == SEEK_CUR && position == 0) return 0; #ifdef FILE_OFFSET_IS_CHAR_INDEX if (abfd->format != bfd_archive && abfd->my_archive == 0) { #if 0 /* Explanation for this code: I'm only about 95+% sure that the above conditions are sufficient and that all i/o calls are properly adjusting the `where' field. So this is sort of an `assert' that the `where' field is correct. If we can go a while without tripping the abort, we can probably safely disable this code, so that the real optimizations happen. */ file_ptr where_am_i_now; where_am_i_now = ftell (bfd_cache_lookup (abfd)); if (abfd->my_archive) where_am_i_now -= abfd->origin; if (where_am_i_now != abfd->where) abort (); #endif if (direction == SEEK_SET && position == abfd->where) return 0; } else { /* We need something smarter to optimize access to archives. Currently, anything inside an archive is read via the file handle for the archive. Which means that a bfd_seek on one component affects the `current position' in the archive, as well as in any other component. It might be sufficient to put a spike through the cache abstraction, and look to the archive for the file position, but I think we should try for something cleaner. In the meantime, no optimization for archives. */ } #endif f = bfd_cache_lookup (abfd); file_position = position; if (direction == SEEK_SET && abfd->my_archive != NULL) file_position += abfd->origin; result = fseek (f, file_position, direction); if (result != 0) { /* Force redetermination of `where' field. */ bfd_tell (abfd); bfd_set_error (bfd_error_system_call); } else { #ifdef FILE_OFFSET_IS_CHAR_INDEX /* Adjust `where' field. */ if (direction == SEEK_SET) abfd->where = position; else abfd->where += position; #endif } return result; } /** Make a string table */ /*>bfd.h< Add string to table pointed to by table, at location starting with free_ptr. resizes the table if necessary (if it's NULL, creates it, ignoring table_length). Updates free_ptr, table, table_length */ boolean bfd_add_to_string_table (table, new_string, table_length, free_ptr) char **table; char *new_string; unsigned int *table_length; char **free_ptr; { size_t string_length = strlen (new_string) + 1; /* include null here */ char *base = *table; size_t space_length = *table_length; unsigned int offset = (base ? *free_ptr - base : 0); if (base == NULL) { /* Avoid a useless regrow if we can (but of course we still take it next time). */ space_length = (string_length < DEFAULT_STRING_SPACE_SIZE ? DEFAULT_STRING_SPACE_SIZE : string_length+1); base = bfd_zmalloc ((bfd_size_type) space_length); if (base == NULL) { bfd_set_error (bfd_error_no_memory); return false; } } if ((size_t)(offset + string_length) >= space_length) { /* Make sure we will have enough space */ while ((size_t)(offset + string_length) >= space_length) space_length += space_length/2; /* grow by 50% */ base = (char *) realloc (base, space_length); if (base == NULL) { bfd_set_error (bfd_error_no_memory); return false; } } memcpy (base + offset, new_string, string_length); *table = base; *table_length = space_length; *free_ptr = base + offset + string_length; return true; } /** The do-it-yourself (byte) sex-change kit */ /* The middle letter e.g. getshort indicates Big or Little endian target machine. It doesn't matter what the byte order of the host machine is; these routines work for either. */ /* FIXME: Should these take a count argument? Answer (gnu@cygnus.com): No, but perhaps they should be inline functions in swap.h #ifdef __GNUC__. Gprof them later and find out. */ /* FUNCTION bfd_put_size FUNCTION bfd_get_size DESCRIPTION These macros as used for reading and writing raw data in sections; each access (except for bytes) is vectored through the target format of the BFD and mangled accordingly. The mangling performs any necessary endian translations and removes alignment restrictions. Note that types accepted and returned by these macros are identical so they can be swapped around in macros---for example, @file{libaout.h} defines <> to either <> or <>. In the put routines, @var{val} must be a <>. If we are on a system without prototypes, the caller is responsible for making sure that is true, with a cast if necessary. We don't cast them in the macro definitions because that would prevent <> or <> from detecting sins such as passing a pointer. To detect calling these with less than a <>, use <> on a host with 64 bit <>'s. . .{* Byte swapping macros for user section data. *} . .#define bfd_put_8(abfd, val, ptr) \ . (*((unsigned char *)(ptr)) = (unsigned char)(val)) .#define bfd_put_signed_8 \ . bfd_put_8 .#define bfd_get_8(abfd, ptr) \ . (*(unsigned char *)(ptr)) .#define bfd_get_signed_8(abfd, ptr) \ . ((*(unsigned char *)(ptr) ^ 0x80) - 0x80) . .#define bfd_put_16(abfd, val, ptr) \ . BFD_SEND(abfd, bfd_putx16, ((val),(ptr))) .#define bfd_put_signed_16 \ . bfd_put_16 .#define bfd_get_16(abfd, ptr) \ . BFD_SEND(abfd, bfd_getx16, (ptr)) .#define bfd_get_signed_16(abfd, ptr) \ . BFD_SEND (abfd, bfd_getx_signed_16, (ptr)) . .#define bfd_put_32(abfd, val, ptr) \ . BFD_SEND(abfd, bfd_putx32, ((val),(ptr))) .#define bfd_put_signed_32 \ . bfd_put_32 .#define bfd_get_32(abfd, ptr) \ . BFD_SEND(abfd, bfd_getx32, (ptr)) .#define bfd_get_signed_32(abfd, ptr) \ . BFD_SEND(abfd, bfd_getx_signed_32, (ptr)) . .#define bfd_put_64(abfd, val, ptr) \ . BFD_SEND(abfd, bfd_putx64, ((val), (ptr))) .#define bfd_put_signed_64 \ . bfd_put_64 .#define bfd_get_64(abfd, ptr) \ . BFD_SEND(abfd, bfd_getx64, (ptr)) .#define bfd_get_signed_64(abfd, ptr) \ . BFD_SEND(abfd, bfd_getx_signed_64, (ptr)) . */ /* FUNCTION bfd_h_put_size bfd_h_get_size DESCRIPTION These macros have the same function as their <> bretheren, except that they are used for removing information for the header records of object files. Believe it or not, some object files keep their header records in big endian order and their data in little endian order. . .{* Byte swapping macros for file header data. *} . .#define bfd_h_put_8(abfd, val, ptr) \ . bfd_put_8 (abfd, val, ptr) .#define bfd_h_put_signed_8(abfd, val, ptr) \ . bfd_put_8 (abfd, val, ptr) .#define bfd_h_get_8(abfd, ptr) \ . bfd_get_8 (abfd, ptr) .#define bfd_h_get_signed_8(abfd, ptr) \ . bfd_get_signed_8 (abfd, ptr) . .#define bfd_h_put_16(abfd, val, ptr) \ . BFD_SEND(abfd, bfd_h_putx16,(val,ptr)) .#define bfd_h_put_signed_16 \ . bfd_h_put_16 .#define bfd_h_get_16(abfd, ptr) \ . BFD_SEND(abfd, bfd_h_getx16,(ptr)) .#define bfd_h_get_signed_16(abfd, ptr) \ . BFD_SEND(abfd, bfd_h_getx_signed_16, (ptr)) . .#define bfd_h_put_32(abfd, val, ptr) \ . BFD_SEND(abfd, bfd_h_putx32,(val,ptr)) .#define bfd_h_put_signed_32 \ . bfd_h_put_32 .#define bfd_h_get_32(abfd, ptr) \ . BFD_SEND(abfd, bfd_h_getx32,(ptr)) .#define bfd_h_get_signed_32(abfd, ptr) \ . BFD_SEND(abfd, bfd_h_getx_signed_32, (ptr)) . .#define bfd_h_put_64(abfd, val, ptr) \ . BFD_SEND(abfd, bfd_h_putx64,(val, ptr)) .#define bfd_h_put_signed_64 \ . bfd_h_put_64 .#define bfd_h_get_64(abfd, ptr) \ . BFD_SEND(abfd, bfd_h_getx64,(ptr)) .#define bfd_h_get_signed_64(abfd, ptr) \ . BFD_SEND(abfd, bfd_h_getx_signed_64, (ptr)) . */ /* Sign extension to bfd_signed_vma. */ #define COERCE16(x) (((bfd_signed_vma) (x) ^ 0x8000) - 0x8000) #define COERCE32(x) (((bfd_signed_vma) (x) ^ 0x80000000) - 0x80000000) #define EIGHT_GAZILLION (((BFD_HOST_64_BIT)0x80000000) << 32) #define COERCE64(x) \ (((bfd_signed_vma) (x) ^ EIGHT_GAZILLION) - EIGHT_GAZILLION) bfd_vma bfd_getb16 (addr) register const bfd_byte *addr; { return (addr[0] << 8) | addr[1]; } bfd_vma bfd_getl16 (addr) register const bfd_byte *addr; { return (addr[1] << 8) | addr[0]; } bfd_signed_vma bfd_getb_signed_16 (addr) register const bfd_byte *addr; { return COERCE16((addr[0] << 8) | addr[1]); } bfd_signed_vma bfd_getl_signed_16 (addr) register const bfd_byte *addr; { return COERCE16((addr[1] << 8) | addr[0]); } void bfd_putb16 (data, addr) bfd_vma data; register bfd_byte *addr; { addr[0] = (bfd_byte)(data >> 8); addr[1] = (bfd_byte )data; } void bfd_putl16 (data, addr) bfd_vma data; register bfd_byte *addr; { addr[0] = (bfd_byte )data; addr[1] = (bfd_byte)(data >> 8); } bfd_vma bfd_getb32 (addr) register const bfd_byte *addr; { return (((((bfd_vma)addr[0] << 8) | addr[1]) << 8) | addr[2]) << 8 | addr[3]; } bfd_vma bfd_getl32 (addr) register const bfd_byte *addr; { return (((((bfd_vma)addr[3] << 8) | addr[2]) << 8) | addr[1]) << 8 | addr[0]; } bfd_signed_vma bfd_getb_signed_32 (addr) register const bfd_byte *addr; { return COERCE32((((((bfd_vma)addr[0] << 8) | addr[1]) << 8) | addr[2]) << 8 | addr[3]); } bfd_signed_vma bfd_getl_signed_32 (addr) register const bfd_byte *addr; { return COERCE32((((((bfd_vma)addr[3] << 8) | addr[2]) << 8) | addr[1]) << 8 | addr[0]); } bfd_vma bfd_getb64 (addr) register const bfd_byte *addr; { #ifdef BFD64 bfd_vma low, high; high= ((((((((addr[0]) << 8) | addr[1]) << 8) | addr[2]) << 8) | addr[3]) ); low = (((((((((bfd_vma)addr[4]) << 8) | addr[5]) << 8) | addr[6]) << 8) | addr[7])); return high << 32 | low; #else BFD_FAIL(); return 0; #endif } bfd_vma bfd_getl64 (addr) register const bfd_byte *addr; { #ifdef BFD64 bfd_vma low, high; high= (((((((addr[7] << 8) | addr[6]) << 8) | addr[5]) << 8) | addr[4])); low = ((((((((bfd_vma)addr[3] << 8) | addr[2]) << 8) | addr[1]) << 8) | addr[0]) ); return high << 32 | low; #else BFD_FAIL(); return 0; #endif } bfd_signed_vma bfd_getb_signed_64 (addr) register const bfd_byte *addr; { #ifdef BFD64 bfd_vma low, high; high= ((((((((addr[0]) << 8) | addr[1]) << 8) | addr[2]) << 8) | addr[3]) ); low = (((((((((bfd_vma)addr[4]) << 8) | addr[5]) << 8) | addr[6]) << 8) | addr[7])); return COERCE64(high << 32 | low); #else BFD_FAIL(); return 0; #endif } bfd_signed_vma bfd_getl_signed_64 (addr) register const bfd_byte *addr; { #ifdef BFD64 bfd_vma low, high; high= (((((((addr[7] << 8) | addr[6]) << 8) | addr[5]) << 8) | addr[4])); low = ((((((((bfd_vma)addr[3] << 8) | addr[2]) << 8) | addr[1]) << 8) | addr[0]) ); return COERCE64(high << 32 | low); #else BFD_FAIL(); return 0; #endif } void bfd_putb32 (data, addr) bfd_vma data; register bfd_byte *addr; { addr[0] = (bfd_byte)(data >> 24); addr[1] = (bfd_byte)(data >> 16); addr[2] = (bfd_byte)(data >> 8); addr[3] = (bfd_byte)data; } void bfd_putl32 (data, addr) bfd_vma data; register bfd_byte *addr; { addr[0] = (bfd_byte)data; addr[1] = (bfd_byte)(data >> 8); addr[2] = (bfd_byte)(data >> 16); addr[3] = (bfd_byte)(data >> 24); } void bfd_putb64 (data, addr) bfd_vma data; register bfd_byte *addr; { #ifdef BFD64 addr[0] = (bfd_byte)(data >> (7*8)); addr[1] = (bfd_byte)(data >> (6*8)); addr[2] = (bfd_byte)(data >> (5*8)); addr[3] = (bfd_byte)(data >> (4*8)); addr[4] = (bfd_byte)(data >> (3*8)); addr[5] = (bfd_byte)(data >> (2*8)); addr[6] = (bfd_byte)(data >> (1*8)); addr[7] = (bfd_byte)(data >> (0*8)); #else BFD_FAIL(); #endif } void bfd_putl64 (data, addr) bfd_vma data; register bfd_byte *addr; { #ifdef BFD64 addr[7] = (bfd_byte)(data >> (7*8)); addr[6] = (bfd_byte)(data >> (6*8)); addr[5] = (bfd_byte)(data >> (5*8)); addr[4] = (bfd_byte)(data >> (4*8)); addr[3] = (bfd_byte)(data >> (3*8)); addr[2] = (bfd_byte)(data >> (2*8)); addr[1] = (bfd_byte)(data >> (1*8)); addr[0] = (bfd_byte)(data >> (0*8)); #else BFD_FAIL(); #endif } /* Default implementation */ boolean _bfd_generic_get_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { if (count == 0) return true; if ((bfd_size_type)(offset+count) > section->_raw_size || bfd_seek(abfd, (file_ptr)(section->filepos + offset), SEEK_SET) == -1 || bfd_read(location, (bfd_size_type)1, count, abfd) != count) return (false); /* on error */ return (true); } /* This generic function can only be used in implementations where creating NEW sections is disallowed. It is useful in patching existing sections in read-write files, though. See other set_section_contents functions to see why it doesn't work for new sections. */ boolean _bfd_generic_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { if (count == 0) return true; if (bfd_seek (abfd, (file_ptr) (section->filepos + offset), SEEK_SET) == -1 || bfd_write (location, (bfd_size_type) 1, count, abfd) != count) return false; return true; } /* INTERNAL_FUNCTION bfd_log2 SYNOPSIS unsigned int bfd_log2(bfd_vma x); DESCRIPTION Return the log base 2 of the value supplied, rounded up. E.g., an @var{x} of 1025 returns 11. */ unsigned bfd_log2(x) bfd_vma x; { unsigned result = 0; while ( (bfd_vma)(1<< result) < x) result++; return result; } boolean bfd_generic_is_local_label (abfd, sym) bfd *abfd; asymbol *sym; { char locals_prefix = (bfd_get_symbol_leading_char (abfd) == '_') ? 'L' : '.'; return (sym->name[0] == locals_prefix); } gdb-4.13/bfd/libbfd.h 666 34562 1752 43651 5601410071 12706 0ustar fnfcygnus/* libbfd.h -- Declarations used by bfd library *implementation*. (This include file is not for users of the library.) Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. ** NOTE: libbfd.h is a GENERATED file. Don't change it; instead, ** change libbfd-in.h or the other BFD source files processed to ** generate this file. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Align an address upward to a boundary, expressed as a number of bytes. E.g. align to an 8-byte boundary with argument of 8. */ #define BFD_ALIGN(this, boundary) \ ((( (this) + ((boundary) -1)) & (~((boundary)-1)))) /* If you want to read and write large blocks, you might want to do it in quanta of this amount */ #define DEFAULT_BUFFERSIZE 8192 /* Set a tdata field. Can't use the other macros for this, since they do casts, and casting to the left of assignment isn't portable. */ #define set_tdata(bfd, v) ((bfd)->tdata.any = (PTR) (v)) /* tdata for an archive. For an input archive, cache needs to be free()'d. For an output archive, symdefs do. */ struct artdata { file_ptr first_file_filepos; /* Speed up searching the armap */ struct ar_cache *cache; bfd *archive_head; /* Only interesting in output routines */ carsym *symdefs; /* the symdef entries */ symindex symdef_count; /* how many there are */ char *extended_names; /* clever intel extension */ /* when more compilers are standard C, this can be a time_t */ long armap_timestamp; /* Timestamp value written into armap. This is used for BSD archives to check that the timestamp is recent enough for the BSD linker to not complain, just before we finish writing an archive. */ file_ptr armap_datepos; /* Position within archive to seek to rewrite the date field. */ PTR tdata; /* Backend specific information. */ }; #define bfd_ardata(bfd) ((bfd)->tdata.aout_ar_data) /* Goes in bfd's arelt_data slot */ struct areltdata { char * arch_header; /* it's actually a string */ unsigned int parsed_size; /* octets of filesize not including ar_hdr */ char *filename; /* null-terminated */ }; #define arelt_size(bfd) (((struct areltdata *)((bfd)->arelt_data))->parsed_size) char *bfd_zmalloc PARAMS ((bfd_size_type size)); /* These routines allocate and free things on the BFD's obstack. Note that realloc can never occur in place. */ PTR bfd_alloc PARAMS ((bfd *abfd, size_t size)); PTR bfd_zalloc PARAMS ((bfd *abfd, size_t size)); PTR bfd_realloc PARAMS ((bfd *abfd, PTR orig, size_t size)); void bfd_alloc_grow PARAMS ((bfd *abfd, PTR thing, size_t size)); PTR bfd_alloc_finish PARAMS ((bfd *abfd)); PTR bfd_alloc_by_size_t PARAMS ((bfd *abfd, size_t wanted)); #define bfd_release(x,y) (void) obstack_free(&(x->memory),y) bfd_size_type bfd_read PARAMS ((PTR ptr, bfd_size_type size, bfd_size_type nitems, bfd *abfd)); bfd_size_type bfd_write PARAMS ((CONST PTR ptr, bfd_size_type size, bfd_size_type nitems, bfd *abfd)); int bfd_seek PARAMS ((bfd* CONST abfd, CONST file_ptr fp, CONST int direction)); long bfd_tell PARAMS ((bfd *abfd)); int bfd_flush PARAMS ((bfd *abfd)); int bfd_stat PARAMS ((bfd *abfd, struct stat *)); bfd * _bfd_create_empty_archive_element_shell PARAMS ((bfd *obfd)); bfd * _bfd_look_for_bfd_in_cache PARAMS ((bfd *arch_bfd, file_ptr index)); boolean _bfd_add_bfd_to_archive_cache PARAMS ((bfd *, file_ptr, bfd *)); boolean _bfd_generic_mkarchive PARAMS ((bfd *abfd)); struct areltdata *_bfd_snarf_ar_hdr PARAMS ((bfd *abfd)); const bfd_target *bfd_generic_archive_p PARAMS ((bfd *abfd)); boolean bfd_slurp_armap PARAMS ((bfd *abfd)); boolean bfd_slurp_bsd_armap_f2 PARAMS ((bfd *abfd)); #define bfd_slurp_bsd_armap bfd_slurp_armap #define bfd_slurp_coff_armap bfd_slurp_armap boolean _bfd_slurp_extended_name_table PARAMS ((bfd *abfd)); boolean _bfd_write_archive_contents PARAMS ((bfd *abfd)); bfd *_bfd_get_elt_at_filepos PARAMS ((bfd *archive, file_ptr filepos)); bfd * _bfd_new_bfd PARAMS ((void)); #define DEFAULT_STRING_SPACE_SIZE 0x2000 boolean bfd_add_to_string_table PARAMS ((char **table, char *new_string, unsigned int *table_length, char **free_ptr)); boolean bfd_false PARAMS ((bfd *ignore)); boolean bfd_true PARAMS ((bfd *ignore)); PTR bfd_nullvoidptr PARAMS ((bfd *ignore)); int bfd_0 PARAMS ((bfd *ignore)); unsigned int bfd_0u PARAMS ((bfd *ignore)); long bfd_0l PARAMS ((bfd *ignore)); long _bfd_n1 PARAMS ((bfd *ignore)); void bfd_void PARAMS ((bfd *ignore)); bfd *_bfd_new_bfd_contained_in PARAMS ((bfd *)); const bfd_target *_bfd_dummy_target PARAMS ((bfd *abfd)); void bfd_dont_truncate_arname PARAMS ((bfd *abfd, CONST char *filename, char *hdr)); void bfd_bsd_truncate_arname PARAMS ((bfd *abfd, CONST char *filename, char *hdr)); void bfd_gnu_truncate_arname PARAMS ((bfd *abfd, CONST char *filename, char *hdr)); boolean bsd_write_armap PARAMS ((bfd *arch, unsigned int elength, struct orl *map, unsigned int orl_count, int stridx)); boolean coff_write_armap PARAMS ((bfd *arch, unsigned int elength, struct orl *map, unsigned int orl_count, int stridx)); bfd * bfd_generic_openr_next_archived_file PARAMS ((bfd *archive, bfd *last_file)); int bfd_generic_stat_arch_elt PARAMS ((bfd *, struct stat *)); /* Generic routines to use for BFD_JUMP_TABLE_GENERIC. Use BFD_JUMP_TABLE_GENERIC (_bfd_generic). */ #define _bfd_generic_close_and_cleanup bfd_true #define _bfd_generic_bfd_free_cached_info bfd_true #define _bfd_generic_new_section_hook \ ((boolean (*) PARAMS ((bfd *, asection *))) bfd_true) extern boolean _bfd_generic_get_section_contents PARAMS ((bfd *, asection *, PTR location, file_ptr offset, bfd_size_type count)); /* Generic routines to use for BFD_JUMP_TABLE_COPY. Use BFD_JUMP_TABLE_COPY (_bfd_generic). */ #define _bfd_generic_bfd_copy_private_bfd_data \ ((boolean (*) PARAMS ((bfd *, bfd *))) bfd_true) #define _bfd_generic_bfd_copy_private_section_data \ ((boolean (*) PARAMS ((bfd *, asection *, bfd *, asection *))) bfd_true) /* Routines to use for BFD_JUMP_TABLE_CORE when there is no core file support. Use BFD_JUMP_TABLE_CORE (_bfd_nocore). */ extern char *_bfd_nocore_core_file_failing_command PARAMS ((bfd *)); extern int _bfd_nocore_core_file_failing_signal PARAMS ((bfd *)); extern boolean _bfd_nocore_core_file_matches_executable_p PARAMS ((bfd *, bfd *)); /* Routines to use for BFD_JUMP_TABLE_ARCHIVE when there is no archive file support. Use BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive). */ #define _bfd_noarchive_slurp_armap bfd_false #define _bfd_noarchive_slurp_extended_name_table bfd_false #define _bfd_noarchive_truncate_arname \ ((void (*) PARAMS ((bfd *, const char *, char *))) bfd_void) #define _bfd_noarchive_write_armap \ ((boolean (*) \ PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int))) \ bfd_false) #define _bfd_noarchive_openr_next_archived_file \ ((bfd *(*) PARAMS ((bfd *, bfd *))) bfd_nullvoidptr) #define _bfd_noarchive_generic_stat_arch_elt bfd_generic_stat_arch_elt /* Routines to use for BFD_JUMP_TABLE_ARCHIVE to get BSD style archives. Use BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_bsd). */ #define _bfd_archive_bsd_slurp_armap bfd_slurp_bsd_armap #define _bfd_archive_bsd_slurp_extended_name_table \ _bfd_slurp_extended_name_table #define _bfd_archive_bsd_truncate_arname bfd_bsd_truncate_arname #define _bfd_archive_bsd_write_armap bsd_write_armap #define _bfd_archive_bsd_openr_next_archived_file \ bfd_generic_openr_next_archived_file #define _bfd_archive_bsd_generic_stat_arch_elt \ bfd_generic_stat_arch_elt /* Routines to use for BFD_JUMP_TABLE_ARCHIVE to get COFF style archives. Use BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff). */ #define _bfd_archive_coff_slurp_armap bfd_slurp_coff_armap #define _bfd_archive_coff_slurp_extended_name_table \ _bfd_slurp_extended_name_table #define _bfd_archive_coff_truncate_arname bfd_dont_truncate_arname #define _bfd_archive_coff_write_armap coff_write_armap #define _bfd_archive_coff_openr_next_archived_file \ bfd_generic_openr_next_archived_file #define _bfd_archive_coff_generic_stat_arch_elt \ bfd_generic_stat_arch_elt /* Routines to use for BFD_JUMP_TABLE_SYMBOLS where there is no symbol support. Use BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols). */ #define _bfd_nosymbols_get_symtab_upper_bound _bfd_n1 #define _bfd_nosymbols_get_symtab \ ((long (*) PARAMS ((bfd *, asymbol **))) _bfd_n1) #define _bfd_nosymbols_make_empty_symbol \ ((asymbol *(*) PARAMS ((bfd *))) bfd_nullvoidptr) #define _bfd_nosymbols_print_symbol \ ((void (*) PARAMS ((bfd *, PTR, asymbol *, bfd_print_symbol_type))) bfd_void) #define _bfd_nosymbols_get_symbol_info \ ((void (*) PARAMS ((bfd *, asymbol *, symbol_info *))) bfd_void) #define _bfd_nosymbols_bfd_is_local_label \ ((boolean (*) PARAMS ((bfd *, asymbol *))) bfd_false) #define _bfd_nosymbols_get_lineno \ ((alent *(*) PARAMS ((bfd *, asymbol *))) bfd_nullvoidptr) #define _bfd_nosymbols_find_nearest_line \ ((boolean (*) \ PARAMS ((bfd *, asection *, asymbol **, bfd_vma, const char **, \ const char **, unsigned int *))) \ bfd_false) #define _bfd_nosymbols_bfd_make_debug_symbol \ ((asymbol *(*) PARAMS ((bfd *, PTR, unsigned long))) bfd_nullvoidptr) /* Routines to use for BFD_JUMP_TABLE_RELOCS when there is no reloc support. Use BFD_JUMP_TABLE_RELOCS (_bfd_norelocs). */ #define _bfd_norelocs_get_reloc_upper_bound \ ((long (*) PARAMS ((bfd *, asection *))) _bfd_n1) #define _bfd_norelocs_canonicalize_reloc \ ((long (*) PARAMS ((bfd *, asection *, arelent **, asymbol **))) _bfd_n1) #define _bfd_norelocs_bfd_reloc_type_lookup \ ((const reloc_howto_type *(*) PARAMS ((bfd *, bfd_reloc_code_real_type))) \ bfd_nullvoidptr) /* Routines to use for BFD_JUMP_TABLE_WRITE for targets which may not be written. Use BFD_JUMP_TABLE_WRITE (_bfd_nowrite). */ #define _bfd_nowrite_set_arch_mach \ ((boolean (*) PARAMS ((bfd *, enum bfd_architecture, unsigned long))) \ bfd_false) #define _bfd_nowrite_set_section_contents \ ((boolean (*) PARAMS ((bfd *, asection *, PTR, file_ptr, bfd_size_type))) \ bfd_false) /* Generic routines to use for BFD_JUMP_TABLE_WRITE. Use BFD_JUMP_TABLE_WRITE (_bfd_generic). */ #define _bfd_generic_set_arch_mach bfd_default_set_arch_mach extern boolean _bfd_generic_set_section_contents PARAMS ((bfd *, asection *, PTR, file_ptr, bfd_size_type)); /* Routines to use for BFD_JUMP_TABLE_LINK for targets which do not support linking. Use BFD_JUMP_TABLE_LINK (_bfd_nolink). */ #define _bfd_nolink_sizeof_headers ((int (*) PARAMS ((bfd *, boolean))) bfd_0) #define _bfd_nolink_bfd_get_relocated_section_contents \ ((bfd_byte *(*) \ PARAMS ((bfd *, struct bfd_link_info *, struct bfd_link_order *, \ bfd_byte *, boolean, asymbol **))) \ bfd_nullvoidptr) #define _bfd_nolink_bfd_relax_section \ ((boolean (*) \ PARAMS ((bfd *, asection *, struct bfd_link_info *, boolean *))) \ bfd_false) #define _bfd_nolink_bfd_link_hash_table_create \ ((struct bfd_link_hash_table *(*) PARAMS ((bfd *))) bfd_nullvoidptr) #define _bfd_nolink_bfd_link_add_symbols \ ((boolean (*) PARAMS ((bfd *, struct bfd_link_info *))) bfd_false) #define _bfd_nolink_bfd_final_link \ ((boolean (*) PARAMS ((bfd *, struct bfd_link_info *))) bfd_false) /* Routines to use for BFD_JUMP_TABLE_DYNAMIC for targets which do not have dynamic symbols or relocs. Use BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic). */ #define _bfd_nodynamic_get_dynamic_symtab_upper_bound _bfd_n1 #define _bfd_nodynamic_canonicalize_dynamic_symtab \ ((long (*) PARAMS ((bfd *, asymbol **))) _bfd_n1) #define _bfd_nodynamic_get_dynamic_reloc_upper_bound _bfd_n1 #define _bfd_nodynamic_canonicalize_dynamic_reloc \ ((long (*) PARAMS ((bfd *, arelent **, asymbol **))) _bfd_n1) /* Generic routine to determine of the given symbol is a local label. */ extern boolean bfd_generic_is_local_label PARAMS ((bfd *, asymbol *)); /* A routine to create entries for a bfd_link_hash_table. */ extern struct bfd_hash_entry *_bfd_link_hash_newfunc PARAMS ((struct bfd_hash_entry *entry, struct bfd_hash_table *table, const char *string)); /* Initialize a bfd_link_hash_table. */ extern boolean _bfd_link_hash_table_init PARAMS ((struct bfd_link_hash_table *, bfd *, struct bfd_hash_entry *(*) (struct bfd_hash_entry *, struct bfd_hash_table *, const char *))); /* Generic link hash table creation routine. */ extern struct bfd_link_hash_table *_bfd_generic_link_hash_table_create PARAMS ((bfd *)); /* Generic add symbol routine. */ extern boolean _bfd_generic_link_add_symbols PARAMS ((bfd *, struct bfd_link_info *)); /* Generic add symbol routine. This version is used by targets for which the linker must collect constructors and destructors by name, as the collect2 program does. */ extern boolean _bfd_generic_link_add_symbols_collect PARAMS ((bfd *, struct bfd_link_info *)); /* Generic archive add symbol routine. */ extern boolean _bfd_generic_link_add_archive_symbols PARAMS ((bfd *, struct bfd_link_info *, boolean (*checkfn) (bfd *, struct bfd_link_info *, boolean *))); /* Forward declaration to avoid prototype errors. */ typedef struct bfd_link_hash_entry _bfd_link_hash_entry; /* Generic routine to add a single symbol. */ extern boolean _bfd_generic_link_add_one_symbol PARAMS ((struct bfd_link_info *, bfd *, const char *name, flagword, asection *, bfd_vma, const char *, boolean copy, boolean constructor, struct bfd_link_hash_entry **)); /* Generic link routine. */ extern boolean _bfd_generic_final_link PARAMS ((bfd *, struct bfd_link_info *)); /* Generic reloc_link_order processing routine. */ extern boolean _bfd_generic_reloc_link_order PARAMS ((bfd *, struct bfd_link_info *, asection *, struct bfd_link_order *)); /* Default link order processing routine. */ extern boolean _bfd_default_link_order PARAMS ((bfd *, struct bfd_link_info *, asection *, struct bfd_link_order *)); /* Count the number of reloc entries in a link order list. */ extern unsigned int _bfd_count_link_order_relocs PARAMS ((struct bfd_link_order *)); /* Final link relocation routine. */ extern bfd_reloc_status_type _bfd_final_link_relocate PARAMS ((const reloc_howto_type *, bfd *, asection *, bfd_byte *, bfd_vma address, bfd_vma value, bfd_vma addend)); /* Relocate a particular location by a howto and a value. */ extern bfd_reloc_status_type _bfd_relocate_contents PARAMS ((const reloc_howto_type *, bfd *, bfd_vma, bfd_byte *)); /* Macros to tell if bfds are read or write enabled. Note that bfds open for read may be scribbled into if the fd passed to bfd_fdopenr is actually open both for read and write simultaneously. However an output bfd will never be open for read. Therefore sometimes you want to check bfd_read_p or !bfd_read_p, and only sometimes bfd_write_p. */ #define bfd_read_p(abfd) ((abfd)->direction == read_direction || (abfd)->direction == both_direction) #define bfd_write_p(abfd) ((abfd)->direction == write_direction || (abfd)->direction == both_direction) void bfd_assert PARAMS ((char*,int)); #define BFD_ASSERT(x) \ { if (!(x)) bfd_assert(__FILE__,__LINE__); } #define BFD_FAIL() \ { bfd_assert(__FILE__,__LINE__); } FILE * bfd_cache_lookup_worker PARAMS ((bfd *)); extern bfd *bfd_last_cache; /* Now Steve, what's the story here? */ #ifdef lint #define itos(x) "l" #define stoi(x) 1 #else #define itos(x) ((char*)(x)) #define stoi(x) ((int)(x)) #endif /* List of supported target vectors, and the default vector (if bfd_default_vector[0] is NULL, there is no default). */ extern const bfd_target * const bfd_target_vector[]; extern const bfd_target * const bfd_default_vector[]; /* And more follows */ void bfd_check_init PARAMS ((void)); void bfd_write_bigendian_4byte_int PARAMS ((bfd *abfd, int i)); unsigned int bfd_log2 PARAMS ((bfd_vma x)); #define BFD_CACHE_MAX_OPEN 10 extern bfd *bfd_last_cache; #define bfd_cache_lookup(x) \ ((x)==bfd_last_cache? \ (FILE*)(bfd_last_cache->iostream): \ bfd_cache_lookup_worker(x)) boolean bfd_cache_init PARAMS ((bfd *abfd)); boolean bfd_cache_close PARAMS ((bfd *abfd)); FILE* bfd_open_file PARAMS ((bfd *abfd)); FILE * bfd_cache_lookup_worker PARAMS ((bfd *abfd)); boolean bfd_constructor_entry PARAMS ((bfd *abfd, asymbol **symbol_ptr_ptr, CONST char*type)); const struct reloc_howto_struct * bfd_default_reloc_type_lookup PARAMS ((bfd *abfd, bfd_reloc_code_real_type code)); boolean bfd_generic_relax_section PARAMS ((bfd *abfd, asection *section, struct bfd_link_info *, boolean *)); bfd_byte * bfd_generic_get_relocated_section_contents PARAMS ((bfd *abfd, struct bfd_link_info *link_info, struct bfd_link_order *link_order, bfd_byte *data, boolean relocateable, asymbol **symbols)); extern bfd_arch_info_type bfd_default_arch_struct; boolean bfd_default_set_arch_mach PARAMS ((bfd *abfd, enum bfd_architecture arch, unsigned long mach)); void bfd_arch_init PARAMS ((void)); void bfd_arch_linkin PARAMS ((bfd_arch_info_type *ptr)); CONST bfd_arch_info_type * bfd_default_compatible PARAMS ((CONST bfd_arch_info_type *a, CONST bfd_arch_info_type *b)); boolean bfd_default_scan PARAMS ((CONST struct bfd_arch_info *info, CONST char *string)); struct elf_internal_shdr * bfd_elf_find_section PARAMS ((bfd *abfd, char *name)); gdb-4.13/bfd/libcoff-in.h 666 34562 1752 11331 5601410073 13464 0ustar fnfcygnus/* BFD COFF object file private structure. Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Object file tdata; access macros */ #define coff_data(bfd) ((bfd)->tdata.coff_obj_data) #define exec_hdr(bfd) (coff_data(bfd)->hdr) #define obj_symbols(bfd) (coff_data(bfd)->symbols) #define obj_sym_filepos(bfd) (coff_data(bfd)->sym_filepos) #define obj_relocbase(bfd) (coff_data(bfd)->relocbase) #define obj_raw_syments(bfd) (coff_data(bfd)->raw_syments) #define obj_raw_syment_count(bfd) (coff_data(bfd)->raw_syment_count) #define obj_convert(bfd) (coff_data(bfd)->conversion_table) #define obj_conv_table_size(bfd) (coff_data(bfd)->conv_table_size) #if CFILE_STUFF #define obj_symbol_slew(bfd) (coff_data(bfd)->symbol_index_slew) #else #define obj_symbol_slew(bfd) 0 #endif /* `Tdata' information kept for COFF files. */ typedef struct coff_tdata { struct coff_symbol_struct *symbols; /* symtab for input bfd */ unsigned int *conversion_table; int conv_table_size; file_ptr sym_filepos; long symbol_index_slew; /* used during read to mark whether a C_FILE symbol as been added. */ struct coff_ptr_struct *raw_syments; struct lineno *raw_linenos; unsigned int raw_syment_count; unsigned short flags; /* These are only valid once writing has begun */ long int relocbase; /* These members communicate important constants about the symbol table to GDB's symbol-reading code. These `constants' unfortunately vary from coff implementation to implementation... */ unsigned local_n_btmask; unsigned local_n_btshft; unsigned local_n_tmask; unsigned local_n_tshift; unsigned local_symesz; unsigned local_auxesz; unsigned local_linesz; } coff_data_type; /* We take the address of the first element of a asymbol to ensure that the * macro is only ever applied to an asymbol. */ #define coffsymbol(asymbol) ((coff_symbol_type *)(&((asymbol)->the_bfd))) /* Functions in coffgen.c. */ extern const bfd_target *coff_object_p PARAMS ((bfd *)); extern struct sec *coff_section_from_bfd_index PARAMS ((bfd *, int)); extern long coff_get_symtab_upper_bound PARAMS ((bfd *)); extern long coff_get_symtab PARAMS ((bfd *, asymbol **)); extern int coff_count_linenumbers PARAMS ((bfd *)); extern struct coff_symbol_struct *coff_symbol_from PARAMS ((bfd *, asymbol *)); extern boolean coff_renumber_symbols PARAMS ((bfd *)); extern void coff_mangle_symbols PARAMS ((bfd *)); extern boolean coff_write_symbols PARAMS ((bfd *)); extern boolean coff_write_linenumbers PARAMS ((bfd *)); extern alent *coff_get_lineno PARAMS ((bfd *, asymbol *)); extern asymbol *coff_section_symbol PARAMS ((bfd *, char *)); extern struct coff_ptr_struct *coff_get_normalized_symtab PARAMS ((bfd *)); extern long coff_get_reloc_upper_bound PARAMS ((bfd *, sec_ptr)); extern asymbol *coff_make_empty_symbol PARAMS ((bfd *)); extern void coff_print_symbol PARAMS ((bfd *, PTR filep, asymbol *, bfd_print_symbol_type how)); extern void coff_get_symbol_info PARAMS ((bfd *, asymbol *, symbol_info *ret)); extern asymbol *coff_bfd_make_debug_symbol PARAMS ((bfd *, PTR, unsigned long)); extern boolean coff_find_nearest_line PARAMS ((bfd *, asection *, asymbol **, bfd_vma offset, CONST char **filename_ptr, CONST char **functionname_ptr, unsigned int *line_ptr)); extern int coff_sizeof_headers PARAMS ((bfd *, boolean reloc)); extern boolean bfd_coff_reloc16_relax_section PARAMS ((bfd *, asection *, struct bfd_link_info *, boolean *)); extern bfd_byte *bfd_coff_reloc16_get_relocated_section_contents PARAMS ((bfd *, struct bfd_link_info *, struct bfd_link_order *, bfd_byte *, boolean relocateable, asymbol **)); extern bfd_vma bfd_coff_reloc16_get_value PARAMS ((arelent *, struct bfd_link_info *, asection *)); extern void bfd_perform_slip PARAMS ((bfd *abfd, unsigned int slip, asection *input_section, bfd_vma val)); /* And more taken from the source .. */ gdb-4.13/bfd/libcoff.h 666 34562 1752 31446 5601410074 13072 0ustar fnfcygnus/* BFD COFF object file private structure. Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Object file tdata; access macros */ #define coff_data(bfd) ((bfd)->tdata.coff_obj_data) #define exec_hdr(bfd) (coff_data(bfd)->hdr) #define obj_symbols(bfd) (coff_data(bfd)->symbols) #define obj_sym_filepos(bfd) (coff_data(bfd)->sym_filepos) #define obj_relocbase(bfd) (coff_data(bfd)->relocbase) #define obj_raw_syments(bfd) (coff_data(bfd)->raw_syments) #define obj_raw_syment_count(bfd) (coff_data(bfd)->raw_syment_count) #define obj_convert(bfd) (coff_data(bfd)->conversion_table) #define obj_conv_table_size(bfd) (coff_data(bfd)->conv_table_size) #if CFILE_STUFF #define obj_symbol_slew(bfd) (coff_data(bfd)->symbol_index_slew) #else #define obj_symbol_slew(bfd) 0 #endif /* `Tdata' information kept for COFF files. */ typedef struct coff_tdata { struct coff_symbol_struct *symbols; /* symtab for input bfd */ unsigned int *conversion_table; int conv_table_size; file_ptr sym_filepos; long symbol_index_slew; /* used during read to mark whether a C_FILE symbol as been added. */ struct coff_ptr_struct *raw_syments; struct lineno *raw_linenos; unsigned int raw_syment_count; unsigned short flags; /* These are only valid once writing has begun */ long int relocbase; /* These members communicate important constants about the symbol table to GDB's symbol-reading code. These `constants' unfortunately vary from coff implementation to implementation... */ unsigned local_n_btmask; unsigned local_n_btshft; unsigned local_n_tmask; unsigned local_n_tshift; unsigned local_symesz; unsigned local_auxesz; unsigned local_linesz; } coff_data_type; /* We take the address of the first element of a asymbol to ensure that the * macro is only ever applied to an asymbol. */ #define coffsymbol(asymbol) ((coff_symbol_type *)(&((asymbol)->the_bfd))) /* Functions in coffgen.c. */ extern const bfd_target *coff_object_p PARAMS ((bfd *)); extern struct sec *coff_section_from_bfd_index PARAMS ((bfd *, int)); extern long coff_get_symtab_upper_bound PARAMS ((bfd *)); extern long coff_get_symtab PARAMS ((bfd *, asymbol **)); extern int coff_count_linenumbers PARAMS ((bfd *)); extern struct coff_symbol_struct *coff_symbol_from PARAMS ((bfd *, asymbol *)); extern boolean coff_renumber_symbols PARAMS ((bfd *)); extern void coff_mangle_symbols PARAMS ((bfd *)); extern boolean coff_write_symbols PARAMS ((bfd *)); extern boolean coff_write_linenumbers PARAMS ((bfd *)); extern alent *coff_get_lineno PARAMS ((bfd *, asymbol *)); extern asymbol *coff_section_symbol PARAMS ((bfd *, char *)); extern struct coff_ptr_struct *coff_get_normalized_symtab PARAMS ((bfd *)); extern long coff_get_reloc_upper_bound PARAMS ((bfd *, sec_ptr)); extern asymbol *coff_make_empty_symbol PARAMS ((bfd *)); extern void coff_print_symbol PARAMS ((bfd *, PTR filep, asymbol *, bfd_print_symbol_type how)); extern void coff_get_symbol_info PARAMS ((bfd *, asymbol *, symbol_info *ret)); extern asymbol *coff_bfd_make_debug_symbol PARAMS ((bfd *, PTR, unsigned long)); extern boolean coff_find_nearest_line PARAMS ((bfd *, asection *, asymbol **, bfd_vma offset, CONST char **filename_ptr, CONST char **functionname_ptr, unsigned int *line_ptr)); extern int coff_sizeof_headers PARAMS ((bfd *, boolean reloc)); extern boolean bfd_coff_reloc16_relax_section PARAMS ((bfd *, asection *, struct bfd_link_info *, boolean *)); extern bfd_byte *bfd_coff_reloc16_get_relocated_section_contents PARAMS ((bfd *, struct bfd_link_info *, struct bfd_link_order *, bfd_byte *, boolean relocateable, asymbol **)); extern bfd_vma bfd_coff_reloc16_get_value PARAMS ((arelent *, struct bfd_link_info *, asection *)); extern void bfd_perform_slip PARAMS ((bfd *abfd, unsigned int slip, asection *input_section, bfd_vma val)); /* And more taken from the source .. */ typedef struct coff_ptr_struct { /* Remembers the offset from the first symbol in the file for this symbol. Generated by coff_renumber_symbols. */ unsigned int offset; /* Should the value of this symbol be renumbered. Used for XCOFF C_BSTAT symbols. Set by coff_slurp_symbol_table. */ unsigned int fix_value : 1; /* Should the tag field of this symbol be renumbered. Created by coff_pointerize_aux. */ unsigned int fix_tag : 1; /* Should the endidx field of this symbol be renumbered. Created by coff_pointerize_aux. */ unsigned int fix_end : 1; /* Should the x_csect.x_scnlen field be renumbered. Created by coff_slurp_symbol_table. */ unsigned int fix_scnlen : 1; /* The container for the symbol structure as read and translated from the file. */ union { union internal_auxent auxent; struct internal_syment syment; } u; } combined_entry_type; /* Each canonical asymbol really looks like this: */ typedef struct coff_symbol_struct { /* The actual symbol which the rest of BFD works with */ asymbol symbol; /* A pointer to the hidden information for this symbol */ combined_entry_type *native; /* A pointer to the linenumber information for this symbol */ struct lineno_cache_entry *lineno; /* Have the line numbers been relocated yet ? */ boolean done_lineno; } coff_symbol_type; typedef struct { void (*_bfd_coff_swap_aux_in) PARAMS (( bfd *abfd, PTR ext, int type, int class, int indaux, int numaux, PTR in)); void (*_bfd_coff_swap_sym_in) PARAMS (( bfd *abfd , PTR ext, PTR in)); void (*_bfd_coff_swap_lineno_in) PARAMS (( bfd *abfd, PTR ext, PTR in)); unsigned int (*_bfd_coff_swap_aux_out) PARAMS (( bfd *abfd, PTR in, int type, int class, int indaux, int numaux, PTR ext)); unsigned int (*_bfd_coff_swap_sym_out) PARAMS (( bfd *abfd, PTR in, PTR ext)); unsigned int (*_bfd_coff_swap_lineno_out) PARAMS (( bfd *abfd, PTR in, PTR ext)); unsigned int (*_bfd_coff_swap_reloc_out) PARAMS (( bfd *abfd, PTR src, PTR dst)); unsigned int (*_bfd_coff_swap_filehdr_out) PARAMS (( bfd *abfd, PTR in, PTR out)); unsigned int (*_bfd_coff_swap_aouthdr_out) PARAMS (( bfd *abfd, PTR in, PTR out)); unsigned int (*_bfd_coff_swap_scnhdr_out) PARAMS (( bfd *abfd, PTR in, PTR out)); unsigned int _bfd_filhsz; unsigned int _bfd_aoutsz; unsigned int _bfd_scnhsz; unsigned int _bfd_symesz; unsigned int _bfd_auxesz; unsigned int _bfd_linesz; boolean _bfd_coff_long_filenames; void (*_bfd_coff_swap_filehdr_in) PARAMS (( bfd *abfd, PTR ext, PTR in)); void (*_bfd_coff_swap_aouthdr_in) PARAMS (( bfd *abfd, PTR ext, PTR in)); void (*_bfd_coff_swap_scnhdr_in) PARAMS (( bfd *abfd, PTR ext, PTR in)); boolean (*_bfd_coff_bad_format_hook) PARAMS (( bfd *abfd, PTR internal_filehdr)); boolean (*_bfd_coff_set_arch_mach_hook) PARAMS (( bfd *abfd, PTR internal_filehdr)); PTR (*_bfd_coff_mkobject_hook) PARAMS (( bfd *abfd, PTR internal_filehdr, PTR internal_aouthdr)); flagword (*_bfd_styp_to_sec_flags_hook) PARAMS (( bfd *abfd, PTR internal_scnhdr)); asection *(*_bfd_make_section_hook) PARAMS (( bfd *abfd, char *name)); void (*_bfd_set_alignment_hook) PARAMS (( bfd *abfd, asection *sec, PTR internal_scnhdr)); boolean (*_bfd_coff_slurp_symbol_table) PARAMS (( bfd *abfd)); boolean (*_bfd_coff_symname_in_debug) PARAMS (( bfd *abfd, struct internal_syment *sym)); void (*_bfd_coff_reloc16_extra_cases) PARAMS (( bfd *abfd, struct bfd_link_info *link_info, struct bfd_link_order *link_order, arelent *reloc, bfd_byte *data, unsigned int *src_ptr, unsigned int *dst_ptr)); int (*_bfd_coff_reloc16_estimate) PARAMS (( bfd *abfd, asection *input_section, arelent *r, unsigned int shrink, struct bfd_link_info *link_info)); } bfd_coff_backend_data; #define coff_backend_info(abfd) ((bfd_coff_backend_data *) (abfd)->xvec->backend_data) #define bfd_coff_swap_aux_in(a,e,t,c,ind,num,i) \ ((coff_backend_info (a)->_bfd_coff_swap_aux_in) (a,e,t,c,ind,num,i)) #define bfd_coff_swap_sym_in(a,e,i) \ ((coff_backend_info (a)->_bfd_coff_swap_sym_in) (a,e,i)) #define bfd_coff_swap_lineno_in(a,e,i) \ ((coff_backend_info ( a)->_bfd_coff_swap_lineno_in) (a,e,i)) #define bfd_coff_swap_reloc_out(abfd, i, o) \ ((coff_backend_info (abfd)->_bfd_coff_swap_reloc_out) (abfd, i, o)) #define bfd_coff_swap_lineno_out(abfd, i, o) \ ((coff_backend_info (abfd)->_bfd_coff_swap_lineno_out) (abfd, i, o)) #define bfd_coff_swap_aux_out(a,i,t,c,ind,num,o) \ ((coff_backend_info (a)->_bfd_coff_swap_aux_out) (a,i,t,c,ind,num,o)) #define bfd_coff_swap_sym_out(abfd, i,o) \ ((coff_backend_info (abfd)->_bfd_coff_swap_sym_out) (abfd, i, o)) #define bfd_coff_swap_scnhdr_out(abfd, i,o) \ ((coff_backend_info (abfd)->_bfd_coff_swap_scnhdr_out) (abfd, i, o)) #define bfd_coff_swap_filehdr_out(abfd, i,o) \ ((coff_backend_info (abfd)->_bfd_coff_swap_filehdr_out) (abfd, i, o)) #define bfd_coff_swap_aouthdr_out(abfd, i,o) \ ((coff_backend_info (abfd)->_bfd_coff_swap_aouthdr_out) (abfd, i, o)) #define bfd_coff_filhsz(abfd) (coff_backend_info (abfd)->_bfd_filhsz) #define bfd_coff_aoutsz(abfd) (coff_backend_info (abfd)->_bfd_aoutsz) #define bfd_coff_scnhsz(abfd) (coff_backend_info (abfd)->_bfd_scnhsz) #define bfd_coff_symesz(abfd) (coff_backend_info (abfd)->_bfd_symesz) #define bfd_coff_auxesz(abfd) (coff_backend_info (abfd)->_bfd_auxesz) #define bfd_coff_linesz(abfd) (coff_backend_info (abfd)->_bfd_linesz) #define bfd_coff_long_filenames(abfd) (coff_backend_info (abfd)->_bfd_coff_long_filenames) #define bfd_coff_swap_filehdr_in(abfd, i,o) \ ((coff_backend_info (abfd)->_bfd_coff_swap_filehdr_in) (abfd, i, o)) #define bfd_coff_swap_aouthdr_in(abfd, i,o) \ ((coff_backend_info (abfd)->_bfd_coff_swap_aouthdr_in) (abfd, i, o)) #define bfd_coff_swap_scnhdr_in(abfd, i,o) \ ((coff_backend_info (abfd)->_bfd_coff_swap_scnhdr_in) (abfd, i, o)) #define bfd_coff_bad_format_hook(abfd, filehdr) \ ((coff_backend_info (abfd)->_bfd_coff_bad_format_hook) (abfd, filehdr)) #define bfd_coff_set_arch_mach_hook(abfd, filehdr)\ ((coff_backend_info (abfd)->_bfd_coff_set_arch_mach_hook) (abfd, filehdr)) #define bfd_coff_mkobject_hook(abfd, filehdr, aouthdr)\ ((coff_backend_info (abfd)->_bfd_coff_mkobject_hook) (abfd, filehdr, aouthdr)) #define bfd_coff_styp_to_sec_flags_hook(abfd, scnhdr)\ ((coff_backend_info (abfd)->_bfd_styp_to_sec_flags_hook) (abfd, scnhdr)) #define bfd_coff_make_section_hook(abfd, name)\ ((coff_backend_info (abfd)->_bfd_make_section_hook) (abfd, name)) #define bfd_coff_set_alignment_hook(abfd, sec, scnhdr)\ ((coff_backend_info (abfd)->_bfd_set_alignment_hook) (abfd, sec, scnhdr)) #define bfd_coff_slurp_symbol_table(abfd)\ ((coff_backend_info (abfd)->_bfd_coff_slurp_symbol_table) (abfd)) #define bfd_coff_symname_in_debug(abfd, sym)\ ((coff_backend_info (abfd)->_bfd_coff_symname_in_debug) (abfd, sym)) #define bfd_coff_reloc16_extra_cases(abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr)\ ((coff_backend_info (abfd)->_bfd_coff_reloc16_extra_cases)\ (abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr)) #define bfd_coff_reloc16_estimate(abfd, section, reloc, shrink, link_info)\ ((coff_backend_info (abfd)->_bfd_coff_reloc16_estimate)\ (abfd, section, reloc, shrink, link_info)) gdb-4.13/bfd/libecoff.h 666 34562 1752 26744 5601410076 13246 0ustar fnfcygnus/* BFD ECOFF object file private structure. Copyright (C) 1993 Free Software Foundation, Inc. Written by Ian Lance Taylor, Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfdlink.h" #ifndef ECOFF_H #include "coff/ecoff.h" #endif /* This is the backend information kept for ECOFF files. This structure is constant for a particular backend. The first element is the COFF backend data structure, so that ECOFF targets can use the generic COFF code. */ #define ecoff_backend(abfd) \ ((struct ecoff_backend_data *) (abfd)->xvec->backend_data) struct ecoff_backend_data { /* COFF backend information. This must be the first field. */ bfd_coff_backend_data coff; /* Supported architecture. */ enum bfd_architecture arch; /* Initial portion of armap string. */ const char *armap_start; /* The page boundary used to align sections in a demand-paged executable file. E.g., 0x1000. */ bfd_vma round; /* True if the .rdata section is part of the text segment, as on the Alpha. False if .rdata is part of the data segment, as on the MIPS. */ boolean rdata_in_text; /* Bitsize of constructor entries. */ unsigned int constructor_bitsize; /* Reloc to use for constructor entries. */ CONST struct reloc_howto_struct *constructor_reloc; /* How to swap debugging information. */ struct ecoff_debug_swap debug_swap; /* External reloc size. */ bfd_size_type external_reloc_size; /* Reloc swapping functions. */ void (*swap_reloc_in) PARAMS ((bfd *, PTR, struct internal_reloc *)); void (*swap_reloc_out) PARAMS ((bfd *, const struct internal_reloc *, PTR)); /* Backend reloc tweaking. */ void (*adjust_reloc_in) PARAMS ((bfd *, const struct internal_reloc *, arelent *)); void (*adjust_reloc_out) PARAMS ((bfd *, const arelent *, struct internal_reloc *)); /* Relocate section contents while linking. */ boolean (*relocate_section) PARAMS ((bfd *output_bfd, struct bfd_link_info *, bfd *input_bfd, asection *input_section, bfd_byte *contents, PTR external_relocs)); }; /* This is the target specific information kept for ECOFF files. */ #define ecoff_data(abfd) ((abfd)->tdata.ecoff_obj_data) typedef struct ecoff_tdata { /* The reloc file position, set by ecoff_compute_section_file_positions. */ file_ptr reloc_filepos; /* The symbol table file position, set by _bfd_ecoff_mkobject_hook. */ file_ptr sym_filepos; /* The start and end of the text segment. Only valid for an existing file, not for one we are creating. */ unsigned long text_start; unsigned long text_end; /* The cached gp value. This is used when relocating. */ bfd_vma gp; /* The maximum size of objects to optimize using gp. This is typically set by the -G option to the compiler, assembler or linker. */ int gp_size; /* The register masks. When linking, all the masks found in the input files are combined into the masks of the output file. These are not all used for all targets, but that's OK, because the relevant ones are the only ones swapped in and out. */ unsigned long gprmask; unsigned long fprmask; unsigned long cprmask[4]; /* The ECOFF symbolic debugging information. */ struct ecoff_debug_info debug_info; /* The unswapped ECOFF symbolic information. */ PTR raw_syments; /* The canonical BFD symbols. */ struct ecoff_symbol_struct *canonical_symbols; /* A mapping from external symbol numbers to entries in the linker hash table, used when linking. */ struct ecoff_link_hash_entry **sym_hashes; /* A mapping from reloc symbol indices to sections, used when linking. */ asection **symndx_to_section; /* True if this BFD was written by the backend linker. */ boolean linker; } ecoff_data_type; /* Each canonical asymbol really looks like this. */ typedef struct ecoff_symbol_struct { /* The actual symbol which the rest of BFD works with */ asymbol symbol; /* The fdr for this symbol. */ FDR *fdr; /* true if this is a local symbol rather than an external one. */ boolean local; /* A pointer to the unswapped hidden information for this symbol. This is either a struct sym_ext or a struct ext_ext, depending on the value of the local field above. */ PTR native; } ecoff_symbol_type; /* We take the address of the first element of a asymbol to ensure that the macro is only ever applied to an asymbol. */ #define ecoffsymbol(asymbol) ((ecoff_symbol_type *) (&((asymbol)->the_bfd))) /* This is a hack borrowed from coffcode.h; we need to save the index of an external symbol when we write it out so that can set the symbol index correctly when we write out the relocs. */ #define ecoff_get_sym_index(symbol) ((unsigned long) (symbol)->udata) #define ecoff_set_sym_index(symbol, idx) ((symbol)->udata = (PTR) (idx)) /* When generating MIPS embedded PIC code, the linker relaxes the code to turn PC relative branches into longer code sequences when the PC relative branch is out of range. This involves reading the relocs in bfd_relax_section as well as in bfd_final_link, and requires the code to keep track of which relocs have been expanded. A pointer to this structure is put in the used_by_bfd pointer of a section to keep track of this information. The user_by_bfd pointer will be NULL if the information was not needed. */ struct ecoff_section_tdata { /* The unswapped relocs for this section. These are stored in memory so the input file does not have to be read twice. */ PTR external_relocs; /* The contents of the section. These bytes may or may not be saved in memory, but if it is this is a pointer to them. */ bfd_byte *contents; /* Offset adjustments for PC relative branches. A number other than 1 is an addend for a PC relative branch, or a switch table entry which is the difference of two .text locations; this addend arises because the branch or difference crosses one or more branches which were expanded into a larger code sequence. A 1 means that this branch was itself expanded into a larger code sequence. 1 is not a possible offset, since all offsets must be multiples of the instruction size, which is 4; also, the only relocs with non-zero offsets will be PC relative branches or switch table entries within the same object file. If this field is NULL, no branches were expanded and no offsets are required. Otherwise there are as many entries as there are relocs in the section, and the entry for any reloc that is not PC relative is zero. */ long *offsets; }; /* An accessor macro for the ecoff_section_tdata structure. */ #define ecoff_section_data(abfd, sec) \ ((struct ecoff_section_tdata *) (sec)->used_by_bfd) /* ECOFF linker hash table entries. */ struct ecoff_link_hash_entry { struct bfd_link_hash_entry root; /* Symbol index in output file. */ long indx; /* BFD that ext field value came from. */ bfd *abfd; /* ECOFF external symbol information. */ EXTR esym; /* Nonzero if this symbol has been written out. */ char written; /* Nonzero if this symbol was referred to as small undefined. */ char small; }; /* ECOFF linker hash table. */ struct ecoff_link_hash_table { struct bfd_link_hash_table root; }; /* Make an ECOFF object. */ extern boolean _bfd_ecoff_mkobject PARAMS ((bfd *)); /* Read in the ECOFF symbolic debugging information. */ extern boolean _bfd_ecoff_slurp_symbolic_info PARAMS ((bfd *, asection *, struct ecoff_debug_info *)); /* Generic ECOFF BFD backend vectors. */ extern boolean _bfd_ecoff_write_object_contents PARAMS ((bfd *abfd)); extern const bfd_target *_bfd_ecoff_archive_p PARAMS ((bfd *abfd)); #define _bfd_ecoff_close_and_cleanup _bfd_generic_close_and_cleanup #define _bfd_ecoff_bfd_free_cached_info _bfd_generic_bfd_free_cached_info extern boolean _bfd_ecoff_new_section_hook PARAMS ((bfd *, asection *)); extern boolean _bfd_ecoff_get_section_contents PARAMS ((bfd *, asection *, PTR location, file_ptr, bfd_size_type)); extern boolean _bfd_ecoff_bfd_copy_private_bfd_data PARAMS ((bfd *, bfd *)); #define _bfd_ecoff_bfd_copy_private_section_data \ _bfd_generic_bfd_copy_private_section_data extern boolean _bfd_ecoff_slurp_armap PARAMS ((bfd *abfd)); #define _bfd_ecoff_slurp_extended_name_table _bfd_slurp_extended_name_table #define _bfd_ecoff_truncate_arname bfd_dont_truncate_arname extern boolean _bfd_ecoff_write_armap PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int)); #define _bfd_ecoff_openr_next_archived_file \ bfd_generic_openr_next_archived_file #define _bfd_ecoff_generic_stat_arch_elt bfd_generic_stat_arch_elt extern long _bfd_ecoff_get_symtab_upper_bound PARAMS ((bfd *abfd)); extern long _bfd_ecoff_get_symtab PARAMS ((bfd *abfd, asymbol **alocation)); extern asymbol *_bfd_ecoff_make_empty_symbol PARAMS ((bfd *abfd)); extern void _bfd_ecoff_print_symbol PARAMS ((bfd *, PTR filep, asymbol *, bfd_print_symbol_type)); extern void _bfd_ecoff_get_symbol_info PARAMS ((bfd *, asymbol *, symbol_info *)); #define _bfd_ecoff_bfd_is_local_label bfd_generic_is_local_label #define _bfd_ecoff_get_lineno _bfd_nosymbols_get_lineno extern boolean _bfd_ecoff_find_nearest_line PARAMS ((bfd *, asection *, asymbol **, bfd_vma offset, const char **filename_ptr, const char **fnname_ptr, unsigned int *retline_ptr)); #define _bfd_ecoff_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol #define _bfd_ecoff_get_reloc_upper_bound coff_get_reloc_upper_bound extern long _bfd_ecoff_canonicalize_reloc PARAMS ((bfd *, asection *, arelent **, asymbol **symbols)); /* ecoff_bfd_reloc_type_lookup defined by backend. */ extern boolean _bfd_ecoff_set_arch_mach PARAMS ((bfd *, enum bfd_architecture, unsigned long machine)); extern boolean _bfd_ecoff_set_section_contents PARAMS ((bfd *, asection *, PTR location, file_ptr, bfd_size_type)); extern int _bfd_ecoff_sizeof_headers PARAMS ((bfd *abfd, boolean reloc)); /* ecoff_bfd_get_relocated_section_contents defined by backend. */ /* ecoff_bfd_relax_section defined by backend. */ extern struct bfd_link_hash_table *_bfd_ecoff_bfd_link_hash_table_create PARAMS ((bfd *)); extern boolean _bfd_ecoff_bfd_link_add_symbols PARAMS ((bfd *, struct bfd_link_info *)); extern boolean _bfd_ecoff_bfd_final_link PARAMS ((bfd *, struct bfd_link_info *)); /* Hook functions for the generic COFF section reading code. */ extern PTR _bfd_ecoff_mkobject_hook PARAMS ((bfd *, PTR filehdr, PTR aouthdr)); extern asection *_bfd_ecoff_make_section_hook PARAMS ((bfd *abfd, char *name)); #define _bfd_ecoff_set_alignment_hook \ ((void (*) PARAMS ((bfd *, asection *, PTR))) bfd_void) extern boolean _bfd_ecoff_set_arch_mach_hook PARAMS ((bfd *abfd, PTR filehdr)); extern flagword _bfd_ecoff_styp_to_sec_flags PARAMS ((bfd *abfd, PTR hdr)); extern boolean _bfd_ecoff_slurp_symbol_table PARAMS ((bfd *abfd)); gdb-4.13/bfd/libelf.h 666 34562 1752 63444 5612112072 12725 0ustar fnfcygnus/* BFD back-end data structures for ELF files. Copyright (C) 1992, 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef _LIBELF_H_ #define _LIBELF_H_ 1 #include "elf/common.h" #include "elf/internal.h" #include "elf/external.h" #include "bfdlink.h" /* If size isn't specified as 64 or 32, NAME macro should fail. */ #ifndef NAME #if ARCH_SIZE==64 #define NAME(x,y) CAT4(x,64,_,y) #endif #if ARCH_SIZE==32 #define NAME(x,y) CAT4(x,32,_,y) #endif #endif #ifndef NAME #define NAME(x,y) CAT4(x,NOSIZE,_,y) #endif #define ElfNAME(X) NAME(Elf,X) #define elfNAME(X) NAME(elf,X) /* Information held for an ELF symbol. The first field is the corresponding asymbol. Every symbol is an ELF file is actually a pointer to this structure, although it is often handled as a pointer to an asymbol. */ typedef struct { /* The BFD symbol. */ asymbol symbol; /* ELF symbol information. */ Elf_Internal_Sym internal_elf_sym; /* Backend specific information. */ union { unsigned int hppa_arg_reloc; PTR mips_extr; PTR any; } tc_data; } elf_symbol_type; /* ELF linker hash table entries. */ struct elf_link_hash_entry { struct bfd_link_hash_entry root; /* Symbol index in output file. This is initialized to -1. It is set to -2 if the symbol is used by a reloc. */ long indx; /* Symbol size. */ bfd_size_type size; /* Symbol alignment (common symbols only). */ bfd_size_type align; /* Symbol index as a dynamic symbol. Initialized to -1, and remains -1 if this is not a dynamic symbol. */ long dynindx; /* String table index in .dynstr if this is a dynamic symbol. */ unsigned long dynstr_index; /* If this is a weak defined symbol from a dynamic object, this field points to a defined symbol with the same value, if there is one. Otherwise it is NULL. */ struct elf_link_hash_entry *weakdef; /* Symbol type (STT_NOTYPE, STT_OBJECT, etc.). */ char type; /* Some flags; legal values follow. */ unsigned char elf_link_hash_flags; /* Symbol is referenced by a non-shared object. */ #define ELF_LINK_HASH_REF_REGULAR 01 /* Symbol is defined by a non-shared object. */ #define ELF_LINK_HASH_DEF_REGULAR 02 /* Symbol is referenced by a shared object. */ #define ELF_LINK_HASH_REF_DYNAMIC 04 /* Symbol is defined by a shared object. */ #define ELF_LINK_HASH_DEF_DYNAMIC 010 /* Symbol is referenced by two or more shared objects. */ #define ELF_LINK_HASH_REF_DYNAMIC_MULTIPLE 020 /* Symbol is defined by two or more shared objects. */ #define ELF_LINK_HASH_DEF_DYNAMIC_MULTIPLE 040 /* Dynamic symbol has been adjustd. */ #define ELF_LINK_HASH_DYNAMIC_ADJUSTED 0100 /* Symbol is defined as weak. */ #define ELF_LINK_HASH_DEFINED_WEAK 0200 }; /* ELF linker hash table. */ struct elf_link_hash_table { struct bfd_link_hash_table root; /* The first dynamic object found during a link. We create several special input sections when linking against dynamic objects, and we simply attach them to the first one found. */ bfd *dynobj; /* The number of symbols found in the link which must be put into the .dynsym section. */ size_t dynsymcount; /* The string table of dynamic symbols, which becomes the .dynstr section. */ struct strtab *dynstr; /* The number of buckets in the hash table in the .hash section. This is based on the number of dynamic symbols. */ size_t bucketcount; }; /* Look up an entry in an ELF linker hash table. */ #define elf_link_hash_lookup(table, string, create, copy, follow) \ ((struct elf_link_hash_entry *) \ bfd_link_hash_lookup (&(table)->root, (string), (create), \ (copy), (follow))) /* Traverse an ELF linker hash table. */ #define elf_link_hash_traverse(table, func, info) \ (bfd_link_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct bfd_link_hash_entry *, PTR))) (func), \ (info))) /* Get the ELF linker hash table from a link_info structure. */ #define elf_hash_table(p) ((struct elf_link_hash_table *) ((p)->hash)) /* Constant information held for an ELF backend. */ struct elf_backend_data { /* Whether the backend uses REL or RELA relocations. FIXME: some ELF backends use both. When we need to support one, this whole approach will need to be changed. */ int use_rela_p; /* Whether this backend is 64 bits or not. FIXME: Who cares? */ int elf_64_p; /* The architecture for this backend. */ enum bfd_architecture arch; /* The ELF machine code (EM_xxxx) for this backend. */ int elf_machine_code; /* The maximum page size for this backend. */ bfd_vma maxpagesize; /* This is true if the linker should act like collect and gather global constructors and destructors by name. This is true for MIPS ELF because the Irix 5 tools can not handle the .init section. */ boolean collect; /* A function to translate an ELF RELA relocation to a BFD arelent structure. */ void (*elf_info_to_howto) PARAMS ((bfd *, arelent *, Elf_Internal_Rela *)); /* A function to translate an ELF REL relocation to a BFD arelent structure. */ void (*elf_info_to_howto_rel) PARAMS ((bfd *, arelent *, Elf_Internal_Rel *)); /* A function to determine whether a symbol is global when partitioning the symbol table into local and global symbols. This should be NULL for most targets, in which case the correct thing will be done. MIPS ELF, at least on the Irix 5, has special requirements. */ boolean (*elf_backend_sym_is_global) PARAMS ((bfd *, asymbol *)); /* The remaining functions are hooks which are called only if they are not NULL. */ /* A function to permit a backend specific check on whether a particular BFD format is relevant for an object file, and to permit the backend to set any global information it wishes. When this is called elf_elfheader is set, but anything else should be used with caution. If this returns false, the check_format routine will return a bfd_error_wrong_format error. */ boolean (*elf_backend_object_p) PARAMS ((bfd *)); /* A function to do additional symbol processing when reading the ELF symbol table. This is where any processor-specific special section indices are handled. */ void (*elf_backend_symbol_processing) PARAMS ((bfd *, asymbol *)); /* A function to do additional symbol processing after reading the entire ELF symbol table. */ boolean (*elf_backend_symbol_table_processing) PARAMS ((bfd *, elf_symbol_type *, int)); /* A function to do additional processing on the ELF section header just before writing it out. This is used to set the flags and type fields for some sections, or to actually write out data for unusual sections. */ boolean (*elf_backend_section_processing) PARAMS ((bfd *, Elf32_Internal_Shdr *)); /* A function to handle unusual section types when creating BFD sections from ELF sections. */ boolean (*elf_backend_section_from_shdr) PARAMS ((bfd *, Elf32_Internal_Shdr *, char *)); /* A function to set up the ELF section header for a BFD section in preparation for writing it out. This is where the flags and type fields are set for unusual sections. */ boolean (*elf_backend_fake_sections) PARAMS ((bfd *, Elf32_Internal_Shdr *, asection *)); /* A function to get the ELF section index for a BFD section. If this returns true, the section was found. If it is a normal ELF section, *RETVAL should be left unchanged. If it is not a normal ELF section *RETVAL should be set to the SHN_xxxx index. */ boolean (*elf_backend_section_from_bfd_section) PARAMS ((bfd *, Elf32_Internal_Shdr *, asection *, int *retval)); /* If this field is not NULL, it is called by the add_symbols phase of a link just before adding a symbol to the global linker hash table. It may modify any of the fields as it wishes. If *NAME is set to NULL, the symbol will be skipped rather than being added to the hash table. This function is responsible for handling all processor dependent symbol bindings and section indices, and must set at least *FLAGS and *SEC for each processor dependent case; failure to do so will cause a link error. */ boolean (*elf_add_symbol_hook) PARAMS ((bfd *abfd, struct bfd_link_info *info, const Elf_Internal_Sym *, const char **name, flagword *flags, asection **sec, bfd_vma *value)); /* If this field is not NULL, it is called by the elf_link_output_sym phase of a link for each symbol which will appear in the object file. */ boolean (*elf_backend_link_output_symbol_hook) PARAMS ((bfd *, struct bfd_link_info *info, const char *, Elf_Internal_Sym *, asection *)); /* The CREATE_DYNAMIC_SECTIONS function is called by the ELF backend linker the first time it encounters a dynamic object in the link. This function must create any sections required for dynamic linking. The ABFD argument is a dynamic object. The .interp, .dynamic, .dynsym, .dynstr, and .hash functions have already been created, and this function may modify the section flags if desired. This function will normally create the .got and .plt sections, but different backends have different requirements. */ boolean (*elf_backend_create_dynamic_sections) PARAMS ((bfd *abfd, struct bfd_link_info *info)); /* The ADJUST_DYNAMIC_SYMBOL function is called by the ELF backend linker for every symbol which is defined by a dynamic object and referenced by a regular object. This is called after all the input files have been seen, but before the SIZE_DYNAMIC_SECTIONS function has been called. The hash table entry should be bfd_link_hash_defined, and it should be defined in a section from a dynamic object. Dynamic object sections are not included in the final link, and this function is responsible for changing the value to something which the rest of the link can deal with. This will normally involve adding an entry to the .plt or .got or some such section, and setting the symbol to point to that. */ boolean (*elf_backend_adjust_dynamic_symbol) PARAMS ((struct bfd_link_info *info, struct elf_link_hash_entry *h)); /* The SIZE_DYNAMIC_SECTIONS function is called by the ELF backend linker after all the linker input files have been seen but before the sections sizes have been set. This is called after ADJUST_DYNAMIC_SYMBOL has been called on all appropriate symbols. It is only called when linking against a dynamic object. It must set the sizes of the dynamic sections, and may fill in their contents as well. The generic ELF linker can handle the .dynsym, .dynstr and .hash sections. This function must handle the .interp section and any sections created by the CREATE_DYNAMIC_SECTIONS entry point. */ boolean (*elf_backend_size_dynamic_sections) PARAMS ((bfd *output_bfd, struct bfd_link_info *info)); /* The RELOCATE_SECTION function is called by the ELF backend linker to handle the relocations for a section. The relocs are always passed as Rela structures; if the section actually uses Rel structures, the r_addend field will always be zero. This function is responsible for adjust the section contents as necessary, and (if using Rela relocs and generating a relocateable output file) adjusting the reloc addend as necessary. This function does not have to worry about setting the reloc address or the reloc symbol index. LOCAL_SYMS is a pointer to the swapped in local symbols. LOCAL_SECTIONS is an array giving the section in the input file corresponding to the st_shndx field of each local symbol. The global hash table entry for the global symbols can be found via elf_sym_hashes (input_bfd). When generating relocateable output, this function must handle STB_LOCAL/STT_SECTION symbols specially. The output symbol is going to be the section symbol corresponding to the output section, which means that the addend must be adjusted accordingly. */ boolean (*elf_backend_relocate_section) PARAMS ((bfd *output_bfd, struct bfd_link_info *info, bfd *input_bfd, asection *input_section, bfd_byte *contents, Elf_Internal_Rela *relocs, Elf_Internal_Sym *local_syms, asection **local_sections, char *output_names)); /* The FINISH_DYNAMIC_SYMBOL function is called by the ELF backend linker just before it writes a symbol out to the .dynsym section. The processor backend may make any required adjustment to the symbol. It may also take the opportunity to set contents of the dynamic sections. Note that FINISH_DYNAMIC_SYMBOL is called on all .dynsym symbols, while ADJUST_DYNAMIC_SYMBOL is only called on those symbols which are defined by a dynamic object. */ boolean (*elf_backend_finish_dynamic_symbol) PARAMS ((bfd *output_bfd, struct bfd_link_info *info, struct elf_link_hash_entry *h, Elf_Internal_Sym *sym)); /* The FINISH_DYNAMIC_SECTIONS function is called by the ELF backend linker just before it writes all the dynamic sections out to the output file. The FINISH_DYNAMIC_SYMBOL will have been called on all dynamic symbols. */ boolean (*elf_backend_finish_dynamic_sections) PARAMS ((bfd *output_bfd, struct bfd_link_info *info)); /* A function to do any beginning processing needed for the ELF file before building the ELF headers and computing file positions. */ void (*elf_backend_begin_write_processing) PARAMS ((bfd *, struct bfd_link_info *)); /* A function to do any final processing needed for the ELF file before writing it out. */ void (*elf_backend_final_write_processing) PARAMS ((bfd *, struct bfd_link_info *)); /* The swapping table to use when dealing with ECOFF information. Used for the MIPS ELF .mdebug section. */ const struct ecoff_debug_swap *elf_backend_ecoff_debug_swap; }; struct elf_sym_extra { int elf_sym_num; /* sym# after locals/globals are reordered */ }; typedef struct elf_sym_extra Elf_Sym_Extra; /* Information stored for each BFD section in an ELF file. This structure is allocated by elf_new_section_hook. */ struct bfd_elf_section_data { /* The ELF header for this section. */ Elf_Internal_Shdr this_hdr; /* The ELF header for the reloc section associated with this section, if any. */ Elf_Internal_Shdr rel_hdr; /* The ELF section number of this section. Only used for an output file. */ int this_idx; /* The ELF section number of the reloc section associated with this section, if any. Only used for an output file. */ int rel_idx; /* Used by the backend linker to store the symbol hash table entries associated with relocs against global symbols. */ struct elf_link_hash_entry **rel_hashes; /* A pointer to the unswapped external relocs; this may be NULL. */ PTR relocs; }; #define elf_section_data(sec) ((struct bfd_elf_section_data*)sec->used_by_bfd) #define get_elf_backend_data(abfd) \ ((struct elf_backend_data *) (abfd)->xvec->backend_data) struct strtab { char *tab; int nentries; int length; }; /* Some private data is stashed away for future use using the tdata pointer in the bfd structure. */ struct elf_obj_tdata { Elf_Internal_Ehdr elf_header[1]; /* Actual data, but ref like ptr */ Elf_Internal_Shdr **elf_sect_ptr; Elf_Internal_Phdr *phdr; struct strtab *strtab_ptr; int num_locals; int num_globals; Elf_Sym_Extra *sym_extra; asymbol **section_syms; /* STT_SECTION symbols for each section */ int num_section_syms; /* number of section_syms allocated */ Elf_Internal_Shdr symtab_hdr; Elf_Internal_Shdr shstrtab_hdr; Elf_Internal_Shdr strtab_hdr; Elf_Internal_Shdr dynsymtab_hdr; Elf_Internal_Shdr dynstrtab_hdr; int symtab_section, shstrtab_section, strtab_section, dynsymtab_section; file_ptr next_file_pos; void *prstatus; /* The raw /proc prstatus structure */ void *prpsinfo; /* The raw /proc prpsinfo structure */ bfd_vma gp; /* The gp value (MIPS only, for now) */ int gp_size; /* The gp size (MIPS only, for now) */ /* A mapping from external symbols to entries in the linker hash table, used when linking. This is indexed by the symbol index minus the sh_info field of the symbol table header. */ struct elf_link_hash_entry **sym_hashes; /* The linker ELF emulation code needs to let the backend ELF linker know what filename should be used for a dynamic object if the dynamic object is found using a search. This field is used to hold that information. */ const char *dt_needed_name; /* Irix 5 often screws up the symbol table, sorting local symbols after global symbols. This flag is set if the symbol table in this BFD appears to be screwed up. If it is, we ignore the sh_info field in the symbol table header, and always read all the symbols. */ boolean bad_symtab; }; #define elf_tdata(bfd) ((bfd) -> tdata.elf_obj_data) #define elf_elfheader(bfd) (elf_tdata(bfd) -> elf_header) #define elf_elfsections(bfd) (elf_tdata(bfd) -> elf_sect_ptr) #define elf_shstrtab(bfd) (elf_tdata(bfd) -> strtab_ptr) #define elf_onesymtab(bfd) (elf_tdata(bfd) -> symtab_section) #define elf_dynsymtab(bfd) (elf_tdata(bfd) -> dynsymtab_section) #define elf_num_locals(bfd) (elf_tdata(bfd) -> num_locals) #define elf_num_globals(bfd) (elf_tdata(bfd) -> num_globals) #define elf_sym_extra(bfd) (elf_tdata(bfd) -> sym_extra) #define elf_section_syms(bfd) (elf_tdata(bfd) -> section_syms) #define elf_num_section_syms(bfd) (elf_tdata(bfd) -> num_section_syms) #define core_prpsinfo(bfd) (elf_tdata(bfd) -> prpsinfo) #define core_prstatus(bfd) (elf_tdata(bfd) -> prstatus) #define elf_gp(bfd) (elf_tdata(bfd) -> gp) #define elf_gp_size(bfd) (elf_tdata(bfd) -> gp_size) #define elf_sym_hashes(bfd) (elf_tdata(bfd) -> sym_hashes) #define elf_dt_needed_name(bfd) (elf_tdata(bfd) -> dt_needed_name) #define elf_bad_symtab(bfd) (elf_tdata(bfd) -> bad_symtab) extern char * elf_string_from_elf_section PARAMS ((bfd *, unsigned, unsigned)); extern char * elf_get_str_section PARAMS ((bfd *, unsigned)); #define bfd_elf32_mkobject bfd_elf_mkobject #define bfd_elf64_mkobject bfd_elf_mkobject #define elf_mkobject bfd_elf_mkobject extern unsigned long bfd_elf_hash PARAMS ((CONST unsigned char *)); extern bfd_reloc_status_type bfd_elf_generic_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); extern boolean bfd_elf_mkobject PARAMS ((bfd *)); extern Elf_Internal_Shdr *bfd_elf_find_section PARAMS ((bfd *, char *)); extern boolean _bfd_elf_make_section_from_shdr PARAMS ((bfd *abfd, Elf_Internal_Shdr *hdr, const char *name)); extern struct bfd_hash_entry *_bfd_elf_link_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); extern struct bfd_link_hash_table *_bfd_elf_link_hash_table_create PARAMS ((bfd *)); extern boolean _bfd_elf_link_hash_table_init PARAMS ((struct elf_link_hash_table *, bfd *, struct bfd_hash_entry *(*) (struct bfd_hash_entry *, struct bfd_hash_table *, const char *))); extern boolean bfd_elf32_write_object_contents PARAMS ((bfd *)); extern boolean bfd_elf64_write_object_contents PARAMS ((bfd *)); extern const bfd_target *bfd_elf32_object_p PARAMS ((bfd *)); extern const bfd_target *bfd_elf32_core_file_p PARAMS ((bfd *)); extern char *bfd_elf32_core_file_failing_command PARAMS ((bfd *)); extern int bfd_elf32_core_file_failing_signal PARAMS ((bfd *)); extern boolean bfd_elf32_core_file_matches_executable_p PARAMS ((bfd *, bfd *)); extern boolean bfd_elf32_set_section_contents PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type)); extern long bfd_elf32_get_symtab_upper_bound PARAMS ((bfd *)); extern long bfd_elf32_get_symtab PARAMS ((bfd *, asymbol **)); extern long bfd_elf32_get_dynamic_symtab_upper_bound PARAMS ((bfd *)); extern long bfd_elf32_canonicalize_dynamic_symtab PARAMS ((bfd *, asymbol **)); extern long bfd_elf32_get_reloc_upper_bound PARAMS ((bfd *, sec_ptr)); extern long bfd_elf32_canonicalize_reloc PARAMS ((bfd *, sec_ptr, arelent **, asymbol **)); extern asymbol *bfd_elf32_make_empty_symbol PARAMS ((bfd *)); extern void bfd_elf32_print_symbol PARAMS ((bfd *, PTR, asymbol *, bfd_print_symbol_type)); extern void bfd_elf32_get_symbol_info PARAMS ((bfd *, asymbol *, symbol_info *)); extern alent *bfd_elf32_get_lineno PARAMS ((bfd *, asymbol *)); extern boolean bfd_elf32_set_arch_mach PARAMS ((bfd *, enum bfd_architecture, unsigned long)); extern boolean bfd_elf32_find_nearest_line PARAMS ((bfd *, asection *, asymbol **, bfd_vma, CONST char **, CONST char **, unsigned int *)); extern int bfd_elf32_sizeof_headers PARAMS ((bfd *, boolean)); extern void bfd_elf32__write_relocs PARAMS ((bfd *, asection *, PTR)); extern boolean bfd_elf32_new_section_hook PARAMS ((bfd *, asection *)); extern boolean bfd_elf32_bfd_link_add_symbols PARAMS ((bfd *, struct bfd_link_info *)); extern boolean bfd_elf32_bfd_final_link PARAMS ((bfd *, struct bfd_link_info *)); extern void bfd_elf32_swap_symbol_in PARAMS ((bfd *, Elf32_External_Sym *, Elf_Internal_Sym *)); extern void bfd_elf32_swap_symbol_out PARAMS ((bfd *, Elf_Internal_Sym *, Elf32_External_Sym *)); extern void bfd_elf32_swap_reloc_in PARAMS ((bfd *, Elf32_External_Rel *, Elf_Internal_Rel *)); extern void bfd_elf32_swap_reloc_out PARAMS ((bfd *, Elf_Internal_Rel *, Elf32_External_Rel *)); extern void bfd_elf32_swap_reloca_in PARAMS ((bfd *, Elf32_External_Rela *, Elf_Internal_Rela *)); extern void bfd_elf32_swap_reloca_out PARAMS ((bfd *, Elf_Internal_Rela *, Elf32_External_Rela *)); extern void bfd_elf32_swap_dyn_in PARAMS ((bfd *, const Elf32_External_Dyn *, Elf_Internal_Dyn *)); extern void bfd_elf32_swap_dyn_out PARAMS ((bfd *, const Elf_Internal_Dyn *, Elf32_External_Dyn *)); extern boolean bfd_elf32_add_dynamic_entry PARAMS ((struct bfd_link_info *, bfd_vma, bfd_vma)); /* If the target doesn't have reloc handling written yet: */ extern void bfd_elf32_no_info_to_howto PARAMS ((bfd *, arelent *, Elf32_Internal_Rela *)); extern const bfd_target *bfd_elf64_object_p PARAMS ((bfd *)); extern const bfd_target *bfd_elf64_core_file_p PARAMS ((bfd *)); extern char *bfd_elf64_core_file_failing_command PARAMS ((bfd *)); extern int bfd_elf64_core_file_failing_signal PARAMS ((bfd *)); extern boolean bfd_elf64_core_file_matches_executable_p PARAMS ((bfd *, bfd *)); extern boolean bfd_elf64_set_section_contents PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type)); extern long bfd_elf64_get_symtab_upper_bound PARAMS ((bfd *)); extern long bfd_elf64_get_symtab PARAMS ((bfd *, asymbol **)); extern long bfd_elf64_get_dynamic_symtab_upper_bound PARAMS ((bfd *)); extern long bfd_elf64_canonicalize_dynamic_symtab PARAMS ((bfd *, asymbol **)); extern long bfd_elf64_get_reloc_upper_bound PARAMS ((bfd *, sec_ptr)); extern long bfd_elf64_canonicalize_reloc PARAMS ((bfd *, sec_ptr, arelent **, asymbol **)); extern asymbol *bfd_elf64_make_empty_symbol PARAMS ((bfd *)); extern void bfd_elf64_print_symbol PARAMS ((bfd *, PTR, asymbol *, bfd_print_symbol_type)); extern void bfd_elf64_get_symbol_info PARAMS ((bfd *, asymbol *, symbol_info *)); extern alent *bfd_elf64_get_lineno PARAMS ((bfd *, asymbol *)); extern boolean bfd_elf64_set_arch_mach PARAMS ((bfd *, enum bfd_architecture, unsigned long)); extern boolean bfd_elf64_find_nearest_line PARAMS ((bfd *, asection *, asymbol **, bfd_vma, CONST char **, CONST char **, unsigned int *)); extern int bfd_elf64_sizeof_headers PARAMS ((bfd *, boolean)); extern void bfd_elf64__write_relocs PARAMS ((bfd *, asection *, PTR)); extern boolean bfd_elf64_new_section_hook PARAMS ((bfd *, asection *)); extern boolean bfd_elf64_bfd_link_add_symbols PARAMS ((bfd *, struct bfd_link_info *)); extern boolean bfd_elf64_bfd_final_link PARAMS ((bfd *, struct bfd_link_info *)); extern void bfd_elf64_swap_symbol_in PARAMS ((bfd *, Elf64_External_Sym *, Elf_Internal_Sym *)); extern void bfd_elf64_swap_symbol_out PARAMS ((bfd *, Elf_Internal_Sym *, Elf64_External_Sym *)); extern void bfd_elf64_swap_reloc_in PARAMS ((bfd *, Elf64_External_Rel *, Elf_Internal_Rel *)); extern void bfd_elf64_swap_reloc_out PARAMS ((bfd *, Elf_Internal_Rel *, Elf64_External_Rel *)); extern void bfd_elf64_swap_reloca_in PARAMS ((bfd *, Elf64_External_Rela *, Elf_Internal_Rela *)); extern void bfd_elf64_swap_reloca_out PARAMS ((bfd *, Elf_Internal_Rela *, Elf64_External_Rela *)); extern void bfd_elf64_swap_dyn_in PARAMS ((bfd *, const Elf64_External_Dyn *, Elf_Internal_Dyn *)); extern void bfd_elf64_swap_dyn_out PARAMS ((bfd *, const Elf_Internal_Dyn *, Elf64_External_Dyn *)); extern boolean bfd_elf64_add_dynamic_entry PARAMS ((struct bfd_link_info *, bfd_vma, bfd_vma)); /* If the target doesn't have reloc handling written yet: */ extern void bfd_elf64_no_info_to_howto PARAMS ((bfd *, arelent *, Elf64_Internal_Rela *)); #endif /* _LIBELF_H_ */ gdb-4.13/bfd/libhppa.h 666 34562 1752 26602 5600363520 13105 0ustar fnfcygnus/* HP PA-RISC SOM object file format: definitions internal to BFD. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef _HPPA_H #define _HPPA_H #define BYTES_IN_WORD 4 #define PA_PAGESIZE 0x1000 #ifndef INLINE #ifdef __GNUC__ #define INLINE inline #else #define INLINE #endif /* GNU C? */ #endif /* INLINE */ /* HP PA-RISC relocation types */ enum hppa_reloc_field_selector_type { R_HPPA_FSEL = 0x0, R_HPPA_LSSEL = 0x1, R_HPPA_RSSEL = 0x2, R_HPPA_LSEL = 0x3, R_HPPA_RSEL = 0x4, R_HPPA_LDSEL = 0x5, R_HPPA_RDSEL = 0x6, R_HPPA_LRSEL = 0x7, R_HPPA_RRSEL = 0x8, R_HPPA_PSEL = 0x9, R_HPPA_LPSEL = 0xa, R_HPPA_RPSEL = 0xb, R_HPPA_TSEL = 0xc, R_HPPA_LTSEL = 0xd, R_HPPA_RTSEL = 0xe }; /* /usr/include/reloc.h defines these to constants. We want to use them in enums, so #undef them before we start using them. We might be able to fix this another way by simply managing not to include /usr/include/reloc.h, but currently GDB picks up these defines somewhere. */ #undef e_fsel #undef e_lssel #undef e_rssel #undef e_lsel #undef e_rsel #undef e_ldsel #undef e_rdsel #undef e_lrsel #undef e_rrsel #undef e_psel #undef e_lpsel #undef e_rpsel #undef e_tsel #undef e_ltsel #undef e_rtsel #undef e_one #undef e_two #undef e_pcrel #undef e_con #undef e_plabel #undef e_abs /* for compatibility */ enum hppa_reloc_field_selector_type_alt { e_fsel = R_HPPA_FSEL, e_lssel = R_HPPA_LSSEL, e_rssel = R_HPPA_RSSEL, e_lsel = R_HPPA_LSEL, e_rsel = R_HPPA_RSEL, e_ldsel = R_HPPA_LDSEL, e_rdsel = R_HPPA_RDSEL, e_lrsel = R_HPPA_LRSEL, e_rrsel = R_HPPA_RRSEL, e_psel = R_HPPA_PSEL, e_lpsel = R_HPPA_LPSEL, e_rpsel = R_HPPA_RPSEL, e_tsel = R_HPPA_TSEL, e_ltsel = R_HPPA_LTSEL, e_rtsel = R_HPPA_RTSEL }; enum hppa_reloc_expr_type { R_HPPA_E_ONE = 0, R_HPPA_E_TWO = 1, R_HPPA_E_PCREL = 2, R_HPPA_E_CON = 3, R_HPPA_E_PLABEL = 7, R_HPPA_E_ABS = 18 }; /* for compatibility */ enum hppa_reloc_expr_type_alt { e_one = R_HPPA_E_ONE, e_two = R_HPPA_E_TWO, e_pcrel = R_HPPA_E_PCREL, e_con = R_HPPA_E_CON, e_plabel = R_HPPA_E_PLABEL, e_abs = R_HPPA_E_ABS }; /* Relocations for function calls must be accompanied by parameter relocation bits. These bits describe exactly where the caller has placed the function's arguments and where it expects to find a return value. Both ELF and SOM encode this information within the addend field of the call relocation. (Note this could break very badly if one was to make a call like bl foo + 0x12345678). The high order 10 bits contain parameter relocation information, the low order 22 bits contain the constant offset. */ #define HPPA_R_ARG_RELOC(a) (((a) >> 22) & 0x3FF) #define HPPA_R_CONSTANT(a) ((((int)(a)) << 10) >> 10) #define HPPA_R_ADDEND(r,c) (((r) << 22) + ((c) & 0x3FFFFF)) /* Some functions to manipulate PA instructions. */ static INLINE unsigned int assemble_3 (x) unsigned int x; { return (((x & 1) << 2) | ((x & 6) >> 1)) & 7; } static INLINE void dis_assemble_3 (x, r) unsigned int x; unsigned int *r; { *r = (((x & 4) >> 2) | ((x & 3) << 1)) & 7; } static INLINE unsigned int assemble_12 (x, y) unsigned int x, y; { return (((y & 1) << 11) | ((x & 1) << 10) | ((x & 0x7fe) >> 1)) & 0xfff; } static INLINE void dis_assemble_12 (as12, x, y) unsigned int as12; unsigned int *x, *y; { *y = (as12 & 0x800) >> 11; *x = ((as12 & 0x3ff) << 1) | ((as12 & 0x400) >> 10); } static INLINE unsigned long assemble_17 (x, y, z) unsigned int x, y, z; { unsigned long temp; temp = ((z & 1) << 16) | ((x & 0x1f) << 11) | ((y & 1) << 10) | ((y & 0x7fe) >> 1); return temp & 0x1ffff; } static INLINE void dis_assemble_17 (as17, x, y, z) unsigned int as17; unsigned int *x, *y, *z; { *z = (as17 & 0x10000) >> 16; *x = (as17 & 0x0f800) >> 11; *y = (((as17 & 0x00400) >> 10) | ((as17 & 0x3ff) << 1)) & 0x7ff; } static INLINE unsigned long assemble_21 (x) unsigned int x; { unsigned long temp; temp = ((x & 1) << 20) | ((x & 0xffe) << 8) | ((x & 0xc000) >> 7) | ((x & 0x1f0000) >> 14) | ((x & 0x003000) >> 12); return temp & 0x1fffff; } static INLINE void dis_assemble_21 (as21, x) unsigned int as21, *x; { unsigned long temp; temp = (as21 & 0x100000) >> 20; temp |= (as21 & 0x0ffe00) >> 8; temp |= (as21 & 0x000180) << 7; temp |= (as21 & 0x00007c) << 14; temp |= (as21 & 0x000003) << 12; *x = temp; } static INLINE unsigned long sign_ext (x, len) unsigned int x, len; { return (x << (32 - len)) >> (32 - len); } static INLINE unsigned int ones (n) int n; { unsigned int len_ones; int i; i = 0; len_ones = 0; while (i < n) { len_ones = (len_ones << 1) | 1; i++; } return len_ones; } static INLINE void sign_unext (x, len, result) unsigned int x, len; unsigned int *result; { unsigned int len_ones; len_ones = ones (len); *result = x & len_ones; } static INLINE unsigned long low_sign_ext (x, len) unsigned int x, len; { unsigned int temp1, temp2; unsigned int len_ones; len_ones = ones (len); temp1 = (x & 1) << (len - 1); temp2 = ((x & 0xfffffffe) & len_ones) >> 1; return sign_ext ((temp1 | temp2), len); } static INLINE void low_sign_unext (x, len, result) unsigned int x, len; unsigned int *result; { unsigned int temp; unsigned int sign; unsigned int rest; unsigned int one_bit_at_len; unsigned int len_ones; len_ones = ones (len); one_bit_at_len = 1 << (len - 1); sign_unext (x, len, &temp); sign = temp & one_bit_at_len; sign >>= (len - 1); rest = temp & (len_ones ^ one_bit_at_len); rest <<= 1; *result = rest | sign; } /* Handle field selectors for PA instructions. */ static INLINE unsigned long hppa_field_adjust (value, constant_value, r_field) unsigned long value; unsigned long constant_value; unsigned short r_field; { switch (r_field) { case e_fsel: /* F : no change */ value += constant_value; break; case e_lssel: /* LS : if (bit 21) then add 0x800 arithmetic shift right 11 bits */ value += constant_value; if (value & 0x00000400) value += 0x800; value = (value & 0xfffff800) >> 11; break; case e_rssel: /* RS : Sign extend from bit 21 */ value += constant_value; if (value & 0x00000400) value |= 0xfffff800; else value &= 0x7ff; break; case e_lsel: /* L : Arithmetic shift right 11 bits */ value += constant_value; value = (value & 0xfffff800) >> 11; break; case e_rsel: /* R : Set bits 0-20 to zero */ value += constant_value; value = value & 0x7ff; break; case e_ldsel: /* LD : Add 0x800, arithmetic shift right 11 bits */ value += constant_value; value += 0x800; value = (value & 0xfffff800) >> 11; break; case e_rdsel: /* RD : Set bits 0-20 to one */ value += constant_value; value |= 0xfffff800; break; case e_lrsel: /* LR : L with "rounded" constant */ value = value + ((constant_value + 0x1000) & 0xffffe000); value = (value & 0xfffff800) >> 11; break; case e_rrsel: /* RR : R with "rounded" constant */ value = value + ((constant_value + 0x1000) & 0xffffe000); value = (value & 0x7ff) + constant_value - ((constant_value + 0x1000) & 0xffffe000); break; default: abort (); } return value; } /* PA-RISC OPCODES */ #define get_opcode(insn) ((insn) & 0xfc000000) >> 26 /* FIXME: this list is incomplete. It should also be an enumerated type rather than #defines. */ #define LDO 0x0d #define LDB 0x10 #define LDH 0x11 #define LDW 0x12 #define LDWM 0x13 #define STB 0x18 #define STH 0x19 #define STW 0x1a #define STWM 0x1b #define COMICLR 0x24 #define SUBI 0x25 #define SUBIO 0x25 #define ADDIT 0x2c #define ADDITO 0x2c #define ADDI 0x2d #define ADDIO 0x2d #define LDIL 0x08 #define ADDIL 0x0a #define MOVB 0x32 #define MOVIB 0x33 #define COMBT 0x20 #define COMBF 0x22 #define COMIBT 0x21 #define COMIBF 0x23 #define ADDBT 0x28 #define ADDBF 0x2a #define ADDIBT 0x29 #define ADDIBF 0x2b #define BVB 0x30 #define BB 0x31 #define BL 0x3a #define BLE 0x39 #define BE 0x38 /* Given a machine instruction, return its format. FIXME: opcodes which do not map to a known format should return an error of some sort. */ static INLINE char bfd_hppa_insn2fmt (insn) unsigned long insn; { char fmt = -1; unsigned char op = get_opcode (insn); switch (op) { case ADDI: case ADDIT: case SUBI: fmt = 11; break; case MOVB: case MOVIB: case COMBT: case COMBF: case COMIBT: case COMIBF: case ADDBT: case ADDBF: case ADDIBT: case ADDIBF: case BVB: case BB: fmt = 12; break; case LDO: case LDB: case LDH: case LDW: case LDWM: case STB: case STH: case STW: case STWM: fmt = 14; break; case BL: case BE: case BLE: fmt = 17; break; case LDIL: case ADDIL: fmt = 21; break; default: fmt = 32; break; } return fmt; } /* Insert VALUE into INSN using R_FORMAT to determine exactly what bits to change. */ static INLINE unsigned long hppa_rebuild_insn (abfd, insn, value, r_format) bfd *abfd; unsigned long insn; unsigned long value; unsigned long r_format; { unsigned long const_part; unsigned long rebuilt_part; switch (r_format) { case 11: { unsigned w1, w; const_part = insn & 0xffffe002; dis_assemble_12 (value, &w1, &w); rebuilt_part = (w1 << 2) | w; return const_part | rebuilt_part; } case 12: { unsigned w1, w; const_part = insn & 0xffffe002; dis_assemble_12 (value, &w1, &w); rebuilt_part = (w1 << 2) | w; return const_part | rebuilt_part; } case 14: const_part = insn & 0xffffc000; low_sign_unext (value, 14, &rebuilt_part); return const_part | rebuilt_part; case 17: { unsigned w1, w2, w; const_part = insn & 0xffe0e002; dis_assemble_17 (value, &w1, &w2, &w); rebuilt_part = (w2 << 2) | (w1 << 16) | w; return const_part | rebuilt_part; } case 21: const_part = insn & 0xffe00000; dis_assemble_21 (value, &rebuilt_part); return const_part | rebuilt_part; case 32: const_part = 0; return value; default: abort (); } return insn; } #endif /* _HPPA_H */ gdb-4.13/bfd/libieee.h 666 34562 1752 6551 5541350112 13042 0ustar fnfcygnus/* IEEE-695 object file formats: definitions internal to BFD. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. Mostly Steve Chamberlain's fault. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ typedef struct { unsigned int index:24; char letter; } ieee_symbol_index_type; typedef struct ct { bfd *this; struct ct *next; } bfd_chain_type; typedef struct ieee_symbol { asymbol symbol; struct ieee_symbol *next; unsigned int index; } ieee_symbol_type; typedef struct ieee_reloc { arelent relent; struct ieee_reloc *next; ieee_symbol_index_type symbol; } ieee_reloc_type; #define ieee_symbol(x) ((ieee_symbol_type *)(x)) typedef struct ieee_per_section { asection *section; bfd_byte *data; bfd_vma offset; bfd_vma pc; /* For output */ file_ptr current_pos; unsigned int current_byte; boolean initialized; ieee_reloc_type **reloc_tail_ptr; } ieee_per_section_type; #define ieee_per_section(x) ((ieee_per_section_type *)((x)->used_by_bfd)) /* FIXME! There should be no limit to the number of sections! */ #define NSECTIONS 20 typedef struct { unsigned char *input_p; unsigned char *first_byte; bfd *abfd; } common_header_type ; typedef struct ieee_data_struct { common_header_type h; boolean read_symbols; boolean read_data; file_ptr output_cursor; /* Map of section indexes to section ptrs */ asection * section_table[NSECTIONS]; ieee_address_descriptor_type ad; ieee_module_begin_type mb; ieee_w_variable_type w; unsigned int section_count; unsigned int map_idx; /* List of GLOBAL EXPORT symbols */ ieee_symbol_type *external_symbols; /* List of UNDEFINED symbols */ ieee_symbol_type *external_reference; /* When the symbols have been canonicalized, they are in a * special order, we remember various bases here.. */ unsigned int external_symbol_max_index; unsigned int external_symbol_min_index; unsigned int external_symbol_count; int external_symbol_base_offset; unsigned int external_reference_max_index; unsigned int external_reference_min_index; unsigned int external_reference_count; int external_reference_base_offset; boolean symbol_table_full; boolean done_debug; bfd_chain_type *chain_head; bfd_chain_type *chain_root; } ieee_data_type; typedef struct { file_ptr file_offset; bfd *abfd; } ieee_ar_obstack_type; typedef struct ieee_ar_data_struct { common_header_type h; ieee_ar_obstack_type *elements; unsigned int element_index ; unsigned int element_count; } ieee_ar_data_type; #define IEEE_DATA(abfd) ((abfd)->tdata.ieee_data) #define IEEE_AR_DATA(abfd) ((abfd)->tdata.ieee_ar_data) #define ptr(abfd) (ieee_data(abfd)->input_p) gdb-4.13/bfd/libnlm.h 666 34562 1752 24331 5601410101 12725 0ustar fnfcygnus/* BFD back-end data structures for NLM (NetWare Loadable Modules) files. Copyright (C) 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef _LIBNLM_H_ #define _LIBNLM_H_ 1 #ifdef ARCH_SIZE # define NLM_ARCH_SIZE ARCH_SIZE #endif #include "nlm/common.h" #include "nlm/internal.h" #include "nlm/external.h" /* A reloc for an imported NLM symbol. Normal relocs are associated with sections, and include a symbol. These relocs are associated with (undefined) symbols, and include a section. */ struct nlm_relent { /* Section of reloc. */ asection *section; /* Reloc info (sym_ptr_ptr field set only when canonicalized). */ arelent reloc; }; /* Information we keep for an NLM symbol. */ typedef struct { /* BFD symbol. */ asymbol symbol; /* Number of reloc entries for imported symbol. */ bfd_size_type rcnt; /* Array of reloc information for imported symbol. */ struct nlm_relent *relocs; } nlmNAME(symbol_type); extern boolean nlm_mkobject PARAMS ((bfd *)); extern boolean nlm_set_arch_mach PARAMS ((bfd *, enum bfd_architecture, unsigned long)); extern void nlmNAME(get_symbol_info) PARAMS ((bfd *, asymbol *, symbol_info *)); extern long nlmNAME(get_symtab_upper_bound) PARAMS ((bfd *)); extern long nlmNAME(get_symtab) PARAMS ((bfd *, asymbol **)); extern asymbol *nlmNAME(make_empty_symbol) PARAMS ((bfd *)); extern void nlmNAME(print_symbol) PARAMS ((bfd *, PTR, asymbol *, bfd_print_symbol_type)); extern long nlmNAME(get_reloc_upper_bound) PARAMS ((bfd *, asection *)); extern long nlmNAME(canonicalize_reloc) PARAMS ((bfd *, asection *, arelent **, asymbol **)); extern const bfd_target *nlmNAME(object_p) PARAMS ((bfd *)); extern boolean nlmNAME(set_arch_mach) PARAMS ((bfd *, enum bfd_architecture, unsigned long)); extern boolean nlmNAME(set_section_contents) PARAMS ((bfd *, asection *, PTR, file_ptr, bfd_size_type)); extern boolean nlmNAME(write_object_contents) PARAMS ((bfd *)); /* Some private data is stashed away for future use using the tdata pointer in the bfd structure. */ struct nlm_obj_tdata { /* Actual data, but ref like ptr */ Nlm_Internal_Fixed_Header nlm_fixed_hdr[1]; Nlm_Internal_Variable_Header nlm_variable_hdr[1]; Nlm_Internal_Version_Header nlm_version_hdr[1]; Nlm_Internal_Copyright_Header nlm_copyright_hdr[1]; Nlm_Internal_Extended_Header nlm_extended_hdr[1]; Nlm_Internal_Custom_Header nlm_custom_hdr[1]; Nlm_Internal_Cygnus_Ext_Header nlm_cygnus_ext_hdr[1]; /* BFD NLM symbols. */ nlmNAME(symbol_type) *nlm_symbols; /* Lowest text and data VMA values. */ bfd_vma nlm_text_low; bfd_vma nlm_data_low; /* Caches for data read from object file. */ arelent * nlm_reloc_fixups; asection ** nlm_reloc_fixup_secs; /* Backend specific information. This should probably be a pointer, but that would require yet another entry point to initialize the structure. */ union { struct /* Alpha backend information. */ { bfd_vma gp; /* GP value. */ bfd_vma lita_address; /* .lita section address. */ bfd_size_type lita_size; /* .lita section size. */ } alpha_backend_data; } backend_data; }; #define nlm_tdata(bfd) ((bfd) -> tdata.nlm_obj_data) #define nlm_fixed_header(bfd) (nlm_tdata(bfd) -> nlm_fixed_hdr) #define nlm_variable_header(bfd) (nlm_tdata(bfd) -> nlm_variable_hdr) #define nlm_version_header(bfd) (nlm_tdata(bfd) -> nlm_version_hdr) #define nlm_copyright_header(bfd) (nlm_tdata(bfd) -> nlm_copyright_hdr) #define nlm_extended_header(bfd) (nlm_tdata(bfd) -> nlm_extended_hdr) #define nlm_custom_header(bfd) (nlm_tdata(bfd) -> nlm_custom_hdr) #define nlm_cygnus_ext_header(bfd) (nlm_tdata(bfd) -> nlm_cygnus_ext_hdr) #define nlm_get_symbols(bfd) (nlm_tdata(bfd) -> nlm_symbols) #define nlm_set_symbols(bfd, p) (nlm_tdata(bfd) -> nlm_symbols = (p)) #define nlm_set_text_low(bfd, i) (nlm_tdata(bfd) -> nlm_text_low = (i)) #define nlm_get_text_low(bfd) (nlm_tdata(bfd) -> nlm_text_low) #define nlm_set_data_low(bfd, i) (nlm_tdata(bfd) -> nlm_data_low = (i)) #define nlm_get_data_low(bfd) (nlm_tdata(bfd) -> nlm_data_low) #define nlm_relocation_fixups(bfd) (nlm_tdata(bfd) -> nlm_reloc_fixups) #define nlm_relocation_fixup_secs(bfd) (nlm_tdata(bfd)->nlm_reloc_fixup_secs) #define nlm_alpha_backend_data(bfd) \ (&nlm_tdata (bfd)->backend_data.alpha_backend_data) /* This is used when writing out the external relocs. */ struct reloc_and_sec { arelent *rel; asection *sec; }; /* We store some function pointer in the backend structure. This lets different NLM targets share most of the same code, while providing slightly different code where necessary. */ struct nlm_backend_data { /* Signature for this backend. */ char signature[NLM_SIGNATURE_SIZE]; /* Size of the fixed header. */ bfd_size_type fixed_header_size; /* Size of optional prefix for this backend. Some backend may require this to be a function, but so far a constant is OK. This is for a prefix which precedes the standard NLM fixed header. */ bfd_size_type optional_prefix_size; /* Architecture. */ enum bfd_architecture arch; /* Machine. */ long mach; /* Some NLM formats do not use the uninitialized data section, so all uninitialized data must be put into the regular data section instead. */ boolean no_uninitialized_data; /* Some NLM formats have a prefix on the file. If this function is not NULL, it will be called by nlm_object_p. It should return true if this file could match this format, and it should leave the BFD such that a bfd_read will pick up the fixed header. */ boolean (*nlm_backend_object_p) PARAMS ((bfd *)); /* Write out the prefix. This function may be NULL. This must write out the same number of bytes as is in the field optional_prefix_size. */ boolean (*nlm_write_prefix) PARAMS ((bfd *)); /* Read a relocation fixup from abfd. The reloc information is machine specific. The second argument is the symbol if this is an import, or NULL if this is a reloc fixup. This function should set the third argument to the section which the reloc belongs in, and the fourth argument to the reloc itself; it does not need to fill in the sym_ptr_ptr field for a reloc against an import symbol. */ boolean (*nlm_read_reloc) PARAMS ((bfd *, nlmNAME(symbol_type) *, asection **, arelent *)); /* To make objcopy to an i386 NLM work, the i386 backend needs a chance to work over the relocs. This is a bit icky. */ boolean (*nlm_mangle_relocs) PARAMS ((bfd *, asection *, PTR data, bfd_vma offset, bfd_size_type count)); /* Read an import record from abfd. It would be nice if this were in a machine-dependent format, but it doesn't seem to be. */ boolean (*nlm_read_import) PARAMS ((bfd *, nlmNAME(symbol_type) *)); /* Write an import record to abfd. */ boolean (*nlm_write_import) PARAMS ((bfd *, asection *, arelent *)); /* Set the section for a public symbol. This may be NULL, in which case a default method will be used. */ boolean (*nlm_set_public_section) PARAMS ((bfd *, nlmNAME(symbol_type) *)); /* Get the offset to write out for a public symbol. This may be NULL, in which case a default method will be used. */ bfd_vma (*nlm_get_public_offset) PARAMS ((bfd *, asymbol *)); /* Swap the fixed header in and out */ void (*nlm_swap_fhdr_in) PARAMS ((bfd *, PTR, Nlm_Internal_Fixed_Header *)); void (*nlm_swap_fhdr_out) PARAMS ((bfd *, struct nlm_internal_fixed_header *, PTR)); /* Write out an external reference. */ boolean (*nlm_write_external) PARAMS ((bfd *, bfd_size_type, asymbol *, struct reloc_and_sec *)); boolean (*nlm_write_export) PARAMS ((bfd *, asymbol *, bfd_vma)); }; #define nlm_backend(bfd) \ ((struct nlm_backend_data *)((bfd) -> xvec -> backend_data)) #define nlm_signature(bfd) \ (nlm_backend(bfd) -> signature) #define nlm_fixed_header_size(bfd) \ (nlm_backend(bfd) -> fixed_header_size) #define nlm_optional_prefix_size(bfd) \ (nlm_backend(bfd) -> optional_prefix_size) #define nlm_architecture(bfd) \ (nlm_backend(bfd) -> arch) #define nlm_machine(bfd) \ (nlm_backend(bfd) -> mach) #define nlm_no_uninitialized_data(bfd) \ (nlm_backend(bfd) -> no_uninitialized_data) #define nlm_backend_object_p_func(bfd) \ (nlm_backend(bfd) -> nlm_backend_object_p) #define nlm_write_prefix_func(bfd) \ (nlm_backend(bfd) -> nlm_write_prefix) #define nlm_read_reloc_func(bfd) \ (nlm_backend(bfd) -> nlm_read_reloc) #define nlm_mangle_relocs_func(bfd) \ (nlm_backend(bfd) -> nlm_mangle_relocs) #define nlm_read_import_func(bfd) \ (nlm_backend(bfd) -> nlm_read_import) #define nlm_write_import_func(bfd) \ (nlm_backend(bfd) -> nlm_write_import) #define nlm_set_public_section_func(bfd) \ (nlm_backend(bfd) -> nlm_set_public_section) #define nlm_get_public_offset_func(bfd) \ (nlm_backend(bfd) -> nlm_get_public_offset) #define nlm_swap_fixed_header_in_func(bfd) \ (nlm_backend(bfd) -> nlm_swap_fhdr_in) #define nlm_swap_fixed_header_out_func(bfd) \ (nlm_backend(bfd) -> nlm_swap_fhdr_out) #define nlm_write_external_func(bfd) \ (nlm_backend(bfd) -> nlm_write_external) #define nlm_write_export_func(bfd) \ (nlm_backend(bfd) -> nlm_write_export) /* The NLM code, data, and uninitialized sections have no names defined in the NLM, but bfd wants to give them names, so use the traditional UNIX names. */ #define NLM_CODE_NAME ".text" #define NLM_INITIALIZED_DATA_NAME ".data" #define NLM_UNINITIALIZED_DATA_NAME ".bss" #endif /* _LIBNLM_H_ */ gdb-4.13/bfd/liboasys.h 666 34562 1752 4274 5541350115 13274 0ustar fnfcygnus/* BFD internal declarations for Oasys file format handling. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Scrawled by Steve Chamberlain of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ typedef struct _oasys_symbol { asymbol symbol; } oasys_symbol_type; typedef struct _oasys_reloc { arelent relent; struct _oasys_reloc *next; unsigned int symbol; } oasys_reloc_type; #define oasys_symbol(x) ((oasys_symbol_type *)(x)) #define oasys_per_section(x) ((oasys_per_section_type *)(x->used_by_bfd)) typedef struct _oasys_per_section { asection *section; bfd_byte *data; bfd_vma offset; boolean had_vma; oasys_reloc_type **reloc_tail_ptr; bfd_vma pc; file_ptr current_pos; unsigned int current_byte; boolean initialized; } oasys_per_section_type; #define NSECTIONS 10 typedef struct _oasys_ar_obstack { file_ptr file_offset; bfd *abfd; } oasys_ar_obstack_type; typedef struct _oasys_module_info { file_ptr pos; unsigned int size; bfd *abfd; char *name; } oasys_module_info_type; typedef struct _oasys_ar_data { oasys_module_info_type *module; unsigned int module_count; unsigned int module_index; } oasys_ar_data_type; typedef struct _oasys_data { struct obstack oasys_obstack; char *strings; asymbol *symbols; unsigned int symbol_string_length; asection *sections[OASYS_MAX_SEC_COUNT]; file_ptr first_data_record; } oasys_data_type; #define OASYS_DATA(abfd) ((abfd)->tdata.oasys_obj_data) #define OASYS_AR_DATA(abfd) ((abfd)->tdata.oasys_ar_data) gdb-4.13/bfd/linker.c 666 34562 1752 224546 5602154433 12777 0ustar fnfcygnus/* linker.c -- BFD linker routines Copyright (C) 1993, 94 Free Software Foundation, Inc. Written by Steve Chamberlain and Ian Lance Taylor, Cygnus Support This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "bfdlink.h" #include "genlink.h" /* SECTION Linker Functions @cindex Linker The linker uses three special entry points in the BFD target vector. It is not necessary to write special routines for these entry points when creating a new BFD back end, since generic versions are provided. However, writing them can speed up linking and make it use significantly less runtime memory. The first routine creates a hash table used by the other routines. The second routine adds the symbols from an object file to the hash table. The third routine takes all the object files and links them together to create the output file. These routines are designed so that the linker proper does not need to know anything about the symbols in the object files that it is linking. The linker merely arranges the sections as directed by the linker script and lets BFD handle the details of symbols and relocs. The second routine and third routines are passed a pointer to a <> structure (defined in <>) which holds information relevant to the link, including the linker hash table (which was created by the first routine) and a set of callback functions to the linker proper. The generic linker routines are in <>, and use the header file <>. As of this writing, the only back ends which have implemented versions of these routines are a.out (in <>) and ECOFF (in <>). The a.out routines are used as examples throughout this section. @menu @* Creating a Linker Hash Table:: @* Adding Symbols to the Hash Table:: @* Performing the Final Link:: @end menu INODE Creating a Linker Hash Table, Adding Symbols to the Hash Table, Linker Functions, Linker Functions SUBSECTION Creating a linker hash table @cindex _bfd_link_hash_table_create in target vector @cindex target vector (_bfd_link_hash_table_create) The linker routines must create a hash table, which must be derived from <> described in <>. @xref{Hash Tables} for information on how to create a derived hash table. This entry point is called using the target vector of the linker output file. The <<_bfd_link_hash_table_create>> entry point must allocate and initialize an instance of the desired hash table. If the back end does not require any additional information to be stored with the entries in the hash table, the entry point may simply create a <>. Most likely, however, some additional information will be needed. For example, with each entry in the hash table the a.out linker keeps the index the symbol has in the final output file (this index number is used so that when doing a relocateable link the symbol index used in the output file can be quickly filled in when copying over a reloc). The a.out linker code defines the required structures and functions for a hash table derived from <>. The a.out linker hash table is created by the function <>; it simply allocates space for the hash table, initializes it, and returns a pointer to it. When writing the linker routines for a new back end, you will generally not know exactly which fields will be required until you have finished. You should simply create a new hash table which defines no additional fields, and then simply add fields as they become necessary. INODE Adding Symbols to the Hash Table, Performing the Final Link, Creating a Linker Hash Table, Linker Functions SUBSECTION Adding symbols to the hash table @cindex _bfd_link_add_symbols in target vector @cindex target vector (_bfd_link_add_symbols) The linker proper will call the <<_bfd_link_add_symbols>> entry point for each object file or archive which is to be linked (typically these are the files named on the command line, but some may also come from the linker script). The entry point is responsible for examining the file. For an object file, BFD must add any relevant symbol information to the hash table. For an archive, BFD must determine which elements of the archive should be used and adding them to the link. The a.out version of this entry point is <>. @menu @* Differing file formats:: @* Adding symbols from an object file:: @* Adding symbols from an archive:: @end menu INODE Differing file formats, Adding symbols from an object file, Adding Symbols to the Hash Table, Adding Symbols to the Hash Table SUBSUBSECTION Differing file formats Normally all the files involved in a link will be of the same format, but it is also possible to link together different format object files, and the back end must support that. The <<_bfd_link_add_symbols>> entry point is called via the target vector of the file to be added. This has an important consequence: the function may not assume that the hash table is the type created by the corresponding <<_bfd_link_hash_table_create>> vector. All the <<_bfd_link_add_symbols>> function can assume about the hash table is that it is derived from <>. Sometimes the <<_bfd_link_add_symbols>> function must store some information in the hash table entry to be used by the <<_bfd_final_link>> function. In such a case the <> field of the hash table must be checked to make sure that the hash table was created by an object file of the same format. The <<_bfd_final_link>> routine must be prepared to handle a hash entry without any extra information added by the <<_bfd_link_add_symbols>> function. A hash entry without extra information will also occur when the linker script directs the linker to create a symbol. Note that, regardless of how a hash table entry is added, all the fields will be initialized to some sort of null value by the hash table entry initialization function. See <> for an example of how to check the <> field before saving information (in this case, the ECOFF external symbol debugging information) in a hash table entry. INODE Adding symbols from an object file, Adding symbols from an archive, Differing file formats, Adding Symbols to the Hash Table SUBSUBSECTION Adding symbols from an object file When the <<_bfd_link_add_symbols>> routine is passed an object file, it must add all externally visible symbols in that object file to the hash table. The actual work of adding the symbol to the hash table is normally handled by the function <<_bfd_generic_link_add_one_symbol>>. The <<_bfd_link_add_symbols>> routine is responsible for reading all the symbols from the object file and passing the correct information to <<_bfd_generic_link_add_one_symbol>>. The <<_bfd_link_add_symbols>> routine should not use <> to read the symbols. The point of providing this routine is to avoid the overhead of converting the symbols into generic <> structures. @findex _bfd_generic_link_add_one_symbol <<_bfd_generic_link_add_one_symbol>> handles the details of combining common symbols, warning about multiple definitions, and so forth. It takes arguments which describe the symbol to add, notably symbol flags, a section, and an offset. The symbol flags include such things as <> or <>. The section is a section in the object file, or something like <> for an undefined symbol or <> for a common symbol. If the <<_bfd_final_link>> routine is also going to need to read the symbol information, the <<_bfd_link_add_symbols>> routine should save it somewhere attached to the object file BFD. However, the information should only be saved if the <> field of the <> argument is true, so that the <<-no-keep-memory>> linker switch is effective. The a.out function which adds symbols from an object file is <>, and most of the interesting work is in <>. The latter saves pointers to the hash tables entries created by <<_bfd_generic_link_add_one_symbol>> indexed by symbol number, so that the <<_bfd_final_link>> routine does not have to call the hash table lookup routine to locate the entry. INODE Adding symbols from an archive, , Adding symbols from an object file, Adding Symbols to the Hash Table SUBSUBSECTION Adding symbols from an archive When the <<_bfd_link_add_symbols>> routine is passed an archive, it must look through the symbols defined by the archive and decide which elements of the archive should be included in the link. For each such element it must call the <> linker callback, and it must add the symbols from the object file to the linker hash table. @findex _bfd_generic_link_add_archive_symbols In most cases the work of looking through the symbols in the archive should be done by the <<_bfd_generic_link_add_archive_symbols>> function. This function builds a hash table from the archive symbol table and looks through the list of undefined symbols to see which elements should be included. <<_bfd_generic_link_add_archive_symbols>> is passed a function to call to make the final decision about adding an archive element to the link and to do the actual work of adding the symbols to the linker hash table. The function passed to <<_bfd_generic_link_add_archive_symbols>> must read the symbols of the archive element and decide whether the archive element should be included in the link. If the element is to be included, the <> linker callback routine must be called with the element as an argument, and the elements symbols must be added to the linker hash table just as though the element had itself been passed to the <<_bfd_link_add_symbols>> function. When the a.out <<_bfd_link_add_symbols>> function receives an archive, it calls <<_bfd_generic_link_add_archive_symbols>> passing <> as the function argument. <> calls <>. If the latter decides to add the element (an element is only added if it provides a real, non-common, definition for a previously undefined or common symbol) it calls the <> callback and then <> calls <> to actually add the symbols to the linker hash table. The ECOFF back end is unusual in that it does not normally call <<_bfd_generic_link_add_archive_symbols>>, because ECOFF archives already contain a hash table of symbols. The ECOFF back end searches the archive itself to avoid the overhead of creating a new hash table. INODE Performing the Final Link, , Adding Symbols to the Hash Table, Linker Functions SUBSECTION Performing the final link @cindex _bfd_link_final_link in target vector @cindex target vector (_bfd_final_link) When all the input files have been processed, the linker calls the <<_bfd_final_link>> entry point of the output BFD. This routine is responsible for producing the final output file, which has several aspects. It must relocate the contents of the input sections and copy the data into the output sections. It must build an output symbol table including any local symbols from the input files and the global symbols from the hash table. When producing relocateable output, it must modify the input relocs and write them into the output file. There may also be object format dependent work to be done. The linker will also call the <> entry point when the BFD is closed. The two entry points must work together in order to produce the correct output file. The details of how this works are inevitably dependent upon the specific object file format. The a.out <<_bfd_final_link>> routine is <>. @menu @* Information provided by the linker:: @* Relocating the section contents:: @* Writing the symbol table:: @end menu INODE Information provided by the linker, Relocating the section contents, Performing the Final Link, Performing the Final Link SUBSUBSECTION Information provided by the linker Before the linker calls the <<_bfd_final_link>> entry point, it sets up some data structures for the function to use. The <> field of the <> structure will point to a list of all the input files included in the link. These files are linked through the <> field of the <> structure. Each section in the output file will have a list of <> structures attached to the <> field (the <> structure is defined in <>). These structures describe how to create the contents of the output section in terms of the contents of various input sections, fill constants, and, eventually, other types of information. They also describe relocs that must be created by the BFD backend, but do not correspond to any input file; this is used to support -Ur, which builds constructors while generating a relocateable object file. INODE Relocating the section contents, Writing the symbol table, Information provided by the linker, Performing the Final Link SUBSUBSECTION Relocating the section contents The <<_bfd_final_link>> function should look through the <> structures attached to each section of the output file. Each <> structure should either be handled specially, or it should be passed to the function <<_bfd_default_link_order>> which will do the right thing (<<_bfd_default_link_order>> is defined in <>). For efficiency, a <> of type <> whose associated section belongs to a BFD of the same format as the output BFD must be handled specially. This type of <> describes part of an output section in terms of a section belonging to one of the input files. The <<_bfd_final_link>> function should read the contents of the section and any associated relocs, apply the relocs to the section contents, and write out the modified section contents. If performing a relocateable link, the relocs themselves must also be modified and written out. @findex _bfd_relocate_contents @findex _bfd_final_link_relocate The functions <<_bfd_relocate_contents>> and <<_bfd_final_link_relocate>> provide some general support for performing the actual relocations, notably overflow checking. Their arguments include information about the symbol the relocation is against and a <> argument which describes the relocation to perform. These functions are defined in <>. The a.out function which handles reading, relocating, and writing section contents is <>. The actual relocation is done in <> and <>. INODE Writing the symbol table, , Relocating the section contents, Performing the Final Link SUBSUBSECTION Writing the symbol table The <<_bfd_final_link>> function must gather all the symbols in the input files and write them out. It must also write out all the symbols in the global hash table. This must be controlled by the <> and <> fields of the <> structure. The local symbols of the input files will not have been entered into the linker hash table. The <<_bfd_final_link>> routine must consider each input file and include the symbols in the output file. It may be convenient to do this when looking through the <> structures, or it may be done by stepping through the <> list. The <<_bfd_final_link>> routine must also traverse the global hash table to gather all the externally visible symbols. It is possible that most of the externally visible symbols may be written out when considering the symbols of each input file, but it is still necessary to traverse the hash table since the linker script may have defined some symbols that are not in any of the input files. The <> field in the <> structure may be used to determine which entries in the hash table have not already been written out. The <> field of the <> structure controls which symbols are written out. The possible values are listed in <>. If the value is <>, then the <> field of the <> structure is a hash table of symbols to keep; each symbol should be looked up in this hash table, and only symbols which are present should be included in the output file. If the <> field of the <> structure permits local symbols to be written out, the <> field is used to further controls which local symbols are included in the output file. If the value is <>, then all local symbols which begin with a certain prefix are discarded; this prefix is described by the <> and <> fields of the <> structure. The a.out backend handles symbols by calling <> on each input BFD and then traversing the global hash table with the function <>. It builds a string table while writing out the symbols, which is written to the output file at the end of <>. */ static struct bfd_hash_entry *generic_link_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); static boolean generic_link_read_symbols PARAMS ((bfd *)); static boolean generic_link_add_symbols PARAMS ((bfd *, struct bfd_link_info *, boolean collect)); static boolean generic_link_add_object_symbols PARAMS ((bfd *, struct bfd_link_info *, boolean collect)); static boolean generic_link_check_archive_element_no_collect PARAMS ((bfd *, struct bfd_link_info *, boolean *pneeded)); static boolean generic_link_check_archive_element_collect PARAMS ((bfd *, struct bfd_link_info *, boolean *pneeded)); static boolean generic_link_check_archive_element PARAMS ((bfd *, struct bfd_link_info *, boolean *pneeded, boolean collect)); static boolean generic_link_add_symbol_list PARAMS ((bfd *, struct bfd_link_info *, bfd_size_type count, asymbol **, boolean collect)); static boolean generic_add_output_symbol PARAMS ((bfd *, size_t *psymalloc, asymbol *)); static boolean default_fill_link_order PARAMS ((bfd *, struct bfd_link_info *, asection *, struct bfd_link_order *)); static boolean default_indirect_link_order PARAMS ((bfd *, struct bfd_link_info *, asection *, struct bfd_link_order *)); /* The link hash table structure is defined in bfdlink.h. It provides a base hash table which the backend specific hash tables are built upon. */ /* Routine to create an entry in the link hash table. */ struct bfd_hash_entry * _bfd_link_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct bfd_link_hash_entry *ret = (struct bfd_link_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct bfd_link_hash_entry *) NULL) ret = ((struct bfd_link_hash_entry *) bfd_hash_allocate (table, sizeof (struct bfd_link_hash_entry))); if (ret == (struct bfd_link_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Call the allocation method of the superclass. */ ret = ((struct bfd_link_hash_entry *) bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret) { /* Initialize the local fields. */ ret->type = bfd_link_hash_new; ret->next = NULL; } return (struct bfd_hash_entry *) ret; } /* Initialize a link hash table. The BFD argument is the one responsible for creating this table. */ boolean _bfd_link_hash_table_init (table, abfd, newfunc) struct bfd_link_hash_table *table; bfd *abfd; struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); { table->creator = abfd->xvec; table->undefs = NULL; table->undefs_tail = NULL; return bfd_hash_table_init (&table->table, newfunc); } /* Look up a symbol in a link hash table. If follow is true, we follow bfd_link_hash_indirect and bfd_link_hash_warning links to the real symbol. */ struct bfd_link_hash_entry * bfd_link_hash_lookup (table, string, create, copy, follow) struct bfd_link_hash_table *table; const char *string; boolean create; boolean copy; boolean follow; { struct bfd_link_hash_entry *ret; ret = ((struct bfd_link_hash_entry *) bfd_hash_lookup (&table->table, string, create, copy)); if (follow && ret != (struct bfd_link_hash_entry *) NULL) { while (ret->type == bfd_link_hash_indirect || ret->type == bfd_link_hash_warning) ret = ret->u.i.link; } return ret; } /* Traverse a generic link hash table. The only reason this is not a macro is to do better type checking. This code presumes that an argument passed as a struct bfd_hash_entry * may be caught as a struct bfd_link_hash_entry * with no explicit cast required on the call. */ void bfd_link_hash_traverse (table, func, info) struct bfd_link_hash_table *table; boolean (*func) PARAMS ((struct bfd_link_hash_entry *, PTR)); PTR info; { bfd_hash_traverse (&table->table, ((boolean (*) PARAMS ((struct bfd_hash_entry *, PTR))) func), info); } /* Add a symbol to the linker hash table undefs list. */ INLINE void bfd_link_add_undef (table, h) struct bfd_link_hash_table *table; struct bfd_link_hash_entry *h; { BFD_ASSERT (h->next == NULL); if (table->undefs_tail != (struct bfd_link_hash_entry *) NULL) table->undefs_tail->next = h; if (table->undefs == (struct bfd_link_hash_entry *) NULL) table->undefs = h; table->undefs_tail = h; } /* Routine to create an entry in an generic link hash table. */ static struct bfd_hash_entry * generic_link_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct generic_link_hash_entry *ret = (struct generic_link_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct generic_link_hash_entry *) NULL) ret = ((struct generic_link_hash_entry *) bfd_hash_allocate (table, sizeof (struct generic_link_hash_entry))); if (ret == (struct generic_link_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Call the allocation method of the superclass. */ ret = ((struct generic_link_hash_entry *) _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret) { /* Set local fields. */ ret->written = false; ret->sym = NULL; } return (struct bfd_hash_entry *) ret; } /* Create an generic link hash table. */ struct bfd_link_hash_table * _bfd_generic_link_hash_table_create (abfd) bfd *abfd; { struct generic_link_hash_table *ret; ret = ((struct generic_link_hash_table *) malloc (sizeof (struct generic_link_hash_table))); if (!ret) { bfd_set_error (bfd_error_no_memory); return (struct bfd_link_hash_table *) NULL; } if (! _bfd_link_hash_table_init (&ret->root, abfd, generic_link_hash_newfunc)) { free (ret); return (struct bfd_link_hash_table *) NULL; } return &ret->root; } /* Grab the symbols for an object file when doing a generic link. We store the symbols in the outsymbols field. We need to keep them around for the entire link to ensure that we only read them once. If we read them multiple times, we might wind up with relocs and the hash table pointing to different instances of the symbol structure. */ static boolean generic_link_read_symbols (abfd) bfd *abfd; { if (abfd->outsymbols == (asymbol **) NULL) { long symsize; long symcount; symsize = bfd_get_symtab_upper_bound (abfd); if (symsize < 0) return false; abfd->outsymbols = (asymbol **) bfd_alloc (abfd, symsize); if (abfd->outsymbols == NULL && symsize != 0) { bfd_set_error (bfd_error_no_memory); return false; } symcount = bfd_canonicalize_symtab (abfd, abfd->outsymbols); if (symcount < 0) return false; abfd->symcount = symcount; } return true; } /* Generic function to add symbols to from an object file to the global hash table. This version does not automatically collect constructors by name. */ boolean _bfd_generic_link_add_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { return generic_link_add_symbols (abfd, info, false); } /* Generic function to add symbols from an object file to the global hash table. This version automatically collects constructors by name, as the collect2 program does. It should be used for any target which does not provide some other mechanism for setting up constructors and destructors; these are approximately those targets for which gcc uses collect2 and do not support stabs. */ boolean _bfd_generic_link_add_symbols_collect (abfd, info) bfd *abfd; struct bfd_link_info *info; { return generic_link_add_symbols (abfd, info, true); } /* Add symbols from an object file to the global hash table. */ static boolean generic_link_add_symbols (abfd, info, collect) bfd *abfd; struct bfd_link_info *info; boolean collect; { boolean ret; switch (bfd_get_format (abfd)) { case bfd_object: ret = generic_link_add_object_symbols (abfd, info, collect); break; case bfd_archive: ret = (_bfd_generic_link_add_archive_symbols (abfd, info, (collect ? generic_link_check_archive_element_collect : generic_link_check_archive_element_no_collect))); break; default: bfd_set_error (bfd_error_wrong_format); ret = false; } return ret; } /* Add symbols from an object file to the global hash table. */ static boolean generic_link_add_object_symbols (abfd, info, collect) bfd *abfd; struct bfd_link_info *info; boolean collect; { if (! generic_link_read_symbols (abfd)) return false; return generic_link_add_symbol_list (abfd, info, _bfd_generic_link_get_symcount (abfd), _bfd_generic_link_get_symbols (abfd), collect); } /* We build a hash table of all symbols defined in an archive. */ /* An archive symbol may be defined by multiple archive elements. This linked list is used to hold the elements. */ struct archive_list { struct archive_list *next; int indx; }; /* An entry in an archive hash table. */ struct archive_hash_entry { struct bfd_hash_entry root; /* Where the symbol is defined. */ struct archive_list *defs; }; /* An archive hash table itself. */ struct archive_hash_table { struct bfd_hash_table table; }; static struct bfd_hash_entry *archive_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); static boolean archive_hash_table_init PARAMS ((struct archive_hash_table *, struct bfd_hash_entry *(*) (struct bfd_hash_entry *, struct bfd_hash_table *, const char *))); /* Create a new entry for an archive hash table. */ static struct bfd_hash_entry * archive_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct archive_hash_entry *ret = (struct archive_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct archive_hash_entry *) NULL) ret = ((struct archive_hash_entry *) bfd_hash_allocate (table, sizeof (struct archive_hash_entry))); if (ret == (struct archive_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Call the allocation method of the superclass. */ ret = ((struct archive_hash_entry *) bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string)); if (ret) { /* Initialize the local fields. */ ret->defs = (struct archive_list *) NULL; } return (struct bfd_hash_entry *) ret; } /* Initialize an archive hash table. */ static boolean archive_hash_table_init (table, newfunc) struct archive_hash_table *table; struct bfd_hash_entry *(*newfunc) PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); { return bfd_hash_table_init (&table->table, newfunc); } /* Look up an entry in an archive hash table. */ #define archive_hash_lookup(t, string, create, copy) \ ((struct archive_hash_entry *) \ bfd_hash_lookup (&(t)->table, (string), (create), (copy))) /* Allocate space in an archive hash table. */ #define archive_hash_allocate(t, size) bfd_hash_allocate (&(t)->table, (size)) /* Free an archive hash table. */ #define archive_hash_table_free(t) bfd_hash_table_free (&(t)->table) /* Generic function to add symbols from an archive file to the global hash file. This function presumes that the archive symbol table has already been read in (this is normally done by the bfd_check_format entry point). It looks through the undefined and common symbols and searches the archive symbol table for them. If it finds an entry, it includes the associated object file in the link. The old linker looked through the archive symbol table for undefined symbols. We do it the other way around, looking through undefined symbols for symbols defined in the archive. The advantage of the newer scheme is that we only have to look through the list of undefined symbols once, whereas the old method had to re-search the symbol table each time a new object file was added. The CHECKFN argument is used to see if an object file should be included. CHECKFN should set *PNEEDED to true if the object file should be included, and must also call the bfd_link_info add_archive_element callback function and handle adding the symbols to the global hash table. CHECKFN should only return false if some sort of error occurs. For some formats, such as a.out, it is possible to look through an object file but not actually include it in the link. The archive_pass field in a BFD is used to avoid checking the symbols of an object files too many times. When an object is included in the link, archive_pass is set to -1. If an object is scanned but not included, archive_pass is set to the pass number. The pass number is incremented each time a new object file is included. The pass number is used because when a new object file is included it may create new undefined symbols which cause a previously examined object file to be included. */ boolean _bfd_generic_link_add_archive_symbols (abfd, info, checkfn) bfd *abfd; struct bfd_link_info *info; boolean (*checkfn) PARAMS ((bfd *, struct bfd_link_info *, boolean *pneeded)); { carsym *arsyms; carsym *arsym_end; register carsym *arsym; int pass; struct archive_hash_table arsym_hash; int indx; struct bfd_link_hash_entry **pundef; if (! bfd_has_map (abfd)) { bfd_set_error (bfd_error_no_symbols); return false; } arsyms = bfd_ardata (abfd)->symdefs; arsym_end = arsyms + bfd_ardata (abfd)->symdef_count; /* In order to quickly determine whether an symbol is defined in this archive, we build a hash table of the symbols. */ if (! archive_hash_table_init (&arsym_hash, archive_hash_newfunc)) return false; for (arsym = arsyms, indx = 0; arsym < arsym_end; arsym++, indx++) { struct archive_hash_entry *arh; struct archive_list *l, **pp; arh = archive_hash_lookup (&arsym_hash, arsym->name, true, false); if (arh == (struct archive_hash_entry *) NULL) goto error_return; l = ((struct archive_list *) archive_hash_allocate (&arsym_hash, sizeof (struct archive_list))); if (l == NULL) goto error_return; l->indx = indx; for (pp = &arh->defs; *pp != (struct archive_list *) NULL; pp = &(*pp)->next) ; *pp = l; l->next = NULL; } /* The archive_pass field in the archive itself is used to initialize PASS, sine we may search the same archive multiple times. */ pass = abfd->archive_pass; if (pass == 0) pass = 1; /* New undefined symbols are added to the end of the list, so we only need to look through it once. */ pundef = &info->hash->undefs; while (*pundef != (struct bfd_link_hash_entry *) NULL) { struct bfd_link_hash_entry *h; struct archive_hash_entry *arh; struct archive_list *l; h = *pundef; /* When a symbol is defined, it is not necessarily removed from the list. */ if (h->type != bfd_link_hash_undefined && h->type != bfd_link_hash_common) { /* Remove this entry from the list, for general cleanliness and because we are going to look through the list again if we search any more libraries. We can't remove the entry if it is the tail, because that would lose any entries we add to the list later on (it would also cause us to lose track of whether the symbol has been referenced). */ if (*pundef != info->hash->undefs_tail) *pundef = (*pundef)->next; else pundef = &(*pundef)->next; continue; } /* Look for this symbol in the archive symbol map. */ arh = archive_hash_lookup (&arsym_hash, h->root.string, false, false); if (arh == (struct archive_hash_entry *) NULL) { pundef = &(*pundef)->next; continue; } /* Look at all the objects which define this symbol. */ for (l = arh->defs; l != (struct archive_list *) NULL; l = l->next) { bfd *element; boolean needed; /* If the symbol has gotten defined along the way, quit. */ if (h->type != bfd_link_hash_undefined && h->type != bfd_link_hash_common) break; element = bfd_get_elt_at_index (abfd, l->indx); if (element == (bfd *) NULL) goto error_return; /* If we've already included this element, or if we've already checked it on this pass, continue. */ if (element->archive_pass == -1 || element->archive_pass == pass) continue; /* If we can't figure this element out, just ignore it. */ if (! bfd_check_format (element, bfd_object)) { element->archive_pass = -1; continue; } /* CHECKFN will see if this element should be included, and go ahead and include it if appropriate. */ if (! (*checkfn) (element, info, &needed)) goto error_return; if (! needed) element->archive_pass = pass; else { element->archive_pass = -1; /* Increment the pass count to show that we may need to recheck object files which were already checked. */ ++pass; } } pundef = &(*pundef)->next; } archive_hash_table_free (&arsym_hash); /* Save PASS in case we are called again. */ abfd->archive_pass = pass; return true; error_return: archive_hash_table_free (&arsym_hash); return false; } /* See if we should include an archive element. This version is used when we do not want to automatically collect constructors based on the symbol name, presumably because we have some other mechanism for finding them. */ static boolean generic_link_check_archive_element_no_collect (abfd, info, pneeded) bfd *abfd; struct bfd_link_info *info; boolean *pneeded; { return generic_link_check_archive_element (abfd, info, pneeded, false); } /* See if we should include an archive element. This version is used when we want to automatically collect constructors based on the symbol name, as collect2 does. */ static boolean generic_link_check_archive_element_collect (abfd, info, pneeded) bfd *abfd; struct bfd_link_info *info; boolean *pneeded; { return generic_link_check_archive_element (abfd, info, pneeded, true); } /* See if we should include an archive element. Optionally collect constructors. */ static boolean generic_link_check_archive_element (abfd, info, pneeded, collect) bfd *abfd; struct bfd_link_info *info; boolean *pneeded; boolean collect; { asymbol **pp, **ppend; *pneeded = false; if (! generic_link_read_symbols (abfd)) return false; pp = _bfd_generic_link_get_symbols (abfd); ppend = pp + _bfd_generic_link_get_symcount (abfd); for (; pp < ppend; pp++) { asymbol *p; struct bfd_link_hash_entry *h; p = *pp; /* We are only interested in globally visible symbols. */ if (! bfd_is_com_section (p->section) && (p->flags & (BSF_GLOBAL | BSF_INDIRECT | BSF_WEAK)) == 0) continue; /* We are only interested if we know something about this symbol, and it is undefined or common. An undefined weak symbol (type bfd_link_hash_weak) is not considered to be a reference when pulling files out of an archive. See the SVR4 ABI, p. 4-27. */ h = bfd_link_hash_lookup (info->hash, bfd_asymbol_name (p), false, false, true); if (h == (struct bfd_link_hash_entry *) NULL || (h->type != bfd_link_hash_undefined && h->type != bfd_link_hash_common)) continue; /* P is a symbol we are looking for. */ if (! bfd_is_com_section (p->section)) { bfd_size_type symcount; asymbol **symbols; /* This object file defines this symbol, so pull it in. */ if (! (*info->callbacks->add_archive_element) (info, abfd, bfd_asymbol_name (p))) return false; symcount = _bfd_generic_link_get_symcount (abfd); symbols = _bfd_generic_link_get_symbols (abfd); if (! generic_link_add_symbol_list (abfd, info, symcount, symbols, collect)) return false; *pneeded = true; return true; } /* P is a common symbol. */ if (h->type == bfd_link_hash_undefined) { bfd *symbfd; symbfd = h->u.undef.abfd; if (symbfd == (bfd *) NULL) { /* This symbol was created as undefined from outside BFD. We assume that we should link in the object file. This is for the -u option in the linker. */ if (! (*info->callbacks->add_archive_element) (info, abfd, bfd_asymbol_name (p))) return false; *pneeded = true; return true; } /* Turn the symbol into a common symbol but do not link in the object file. This is how a.out works. Object formats that require different semantics must implement this function differently. This symbol is already on the undefs list. We add the section to a common section attached to symbfd to ensure that it is in a BFD which will be linked in. */ h->type = bfd_link_hash_common; h->u.c.size = bfd_asymbol_value (p); if (p->section == bfd_com_section_ptr) h->u.c.section = bfd_make_section_old_way (symbfd, "COMMON"); else h->u.c.section = bfd_make_section_old_way (symbfd, p->section->name); h->u.c.section->flags = SEC_ALLOC; } else { /* Adjust the size of the common symbol if necessary. This is how a.out works. Object formats that require different semantics must implement this function differently. */ if (bfd_asymbol_value (p) > h->u.c.size) h->u.c.size = bfd_asymbol_value (p); } } /* This archive element is not needed. */ return true; } /* Add the symbols from an object file to the global hash table. ABFD is the object file. INFO is the linker information. SYMBOL_COUNT is the number of symbols. SYMBOLS is the list of symbols. COLLECT is true if constructors should be automatically collected by name as is done by collect2. */ static boolean generic_link_add_symbol_list (abfd, info, symbol_count, symbols, collect) bfd *abfd; struct bfd_link_info *info; bfd_size_type symbol_count; asymbol **symbols; boolean collect; { asymbol **pp, **ppend; pp = symbols; ppend = symbols + symbol_count; for (; pp < ppend; pp++) { asymbol *p; p = *pp; if ((p->flags & (BSF_INDIRECT | BSF_WARNING | BSF_GLOBAL | BSF_CONSTRUCTOR | BSF_WEAK)) != 0 || bfd_is_und_section (bfd_get_section (p)) || bfd_is_com_section (bfd_get_section (p)) || bfd_is_ind_section (bfd_get_section (p))) { const char *name; const char *string; struct generic_link_hash_entry *h; name = bfd_asymbol_name (p); if ((p->flags & BSF_INDIRECT) != 0 || bfd_is_ind_section (p->section)) string = bfd_asymbol_name ((asymbol *) p->value); else if ((p->flags & BSF_WARNING) != 0) { /* The name of P is actually the warning string, and the value is actually a pointer to the symbol to warn about. */ string = name; name = bfd_asymbol_name ((asymbol *) p->value); } else string = NULL; h = NULL; if (! (_bfd_generic_link_add_one_symbol (info, abfd, name, p->flags, bfd_get_section (p), p->value, string, false, collect, (struct bfd_link_hash_entry **) &h))) return false; /* Save the BFD symbol so that we don't lose any backend specific information that may be attached to it. We only want this one if it gives more information than the existing one; we don't want to replace a defined symbol with an undefined one. This routine may be called with a hash table other than the generic hash table, so we only do this if we are certain that the hash table is a generic one. */ if (info->hash->creator == abfd->xvec) { if (h->sym == (asymbol *) NULL || (! bfd_is_und_section (bfd_get_section (p)) && (! bfd_is_com_section (bfd_get_section (p)) || bfd_is_und_section (bfd_get_section (h->sym))))) { h->sym = p; /* BSF_OLD_COMMON is a hack to support COFF reloc reading, and it should go away when the COFF linker is switched to the new version. */ if (bfd_is_com_section (bfd_get_section (p))) p->flags |= BSF_OLD_COMMON; } /* Store a back pointer from the symbol to the hash table entry for the benefit of relaxation code until it gets rewritten to not use asymbol structures. */ p->udata = (PTR) h; } } } return true; } /* We use a state table to deal with adding symbols from an object file. The first index into the state table describes the symbol from the object file. The second index into the state table is the type of the symbol in the hash table. */ /* The symbol from the object file is turned into one of these row values. */ enum link_row { UNDEF_ROW, /* Undefined. */ UNDEFW_ROW, /* Weak undefined. */ DEF_ROW, /* Defined. */ DEFW_ROW, /* Weak defined. */ COMMON_ROW, /* Common. */ INDR_ROW, /* Indirect. */ WARN_ROW, /* Warning. */ SET_ROW /* Member of set. */ }; /* apparently needed for Hitachi 3050R(HI-UX/WE2)? */ #undef FAIL /* The actions to take in the state table. */ enum link_action { FAIL, /* Abort. */ UND, /* Mark symbol undefined. */ WEAK, /* Mark symbol weak undefined. */ DEF, /* Mark symbol defined. */ COM, /* Mark symbol common. */ REF, /* Mark defined symbol referenced. */ CREF, /* Possibly warn about common reference to defined symbol. */ CDEF, /* Define existing common symbol. */ NOACT, /* No action. */ BIG, /* Mark symbol common using largest size. */ MDEF, /* Multiple definition error. */ MIND, /* Multiple indirect symbols. */ IND, /* Make indirect symbol. */ SET, /* Add value to set. */ MWARN, /* Make warning symbol. */ WARN, /* Issue warning. */ CWARN, /* Warn if referenced, else MWARN. */ CYCLE, /* Repeat with symbol pointed to. */ REFC, /* Mark indirect symbol referenced and then CYCLE. */ WARNC /* Issue warning and then CYCLE. */ }; /* The state table itself. The first index is a link_row and the second index is a bfd_link_hash_type. */ static const enum link_action link_action[8][7] = { /* current\prev new undef weak def com indr warn */ /* UNDEF_ROW */ {UND, NOACT, NOACT, REF, NOACT, REFC, WARNC }, /* UNDEFW_ROW */ {WEAK, WEAK, NOACT, REF, NOACT, REFC, WARNC }, /* DEF_ROW */ {DEF, DEF, DEF, MDEF, CDEF, MDEF, CYCLE }, /* DEFW_ROW */ {DEF, DEF, DEF, NOACT, NOACT, NOACT, CYCLE }, /* COMMON_ROW */ {COM, COM, COM, CREF, BIG, MDEF, WARNC }, /* INDR_ROW */ {IND, IND, IND, MDEF, MDEF, MIND, CYCLE }, /* WARN_ROW */ {MWARN, WARN, WARN, CWARN, WARN, CWARN, CYCLE }, /* SET_ROW */ {SET, SET, SET, SET, SET, CYCLE, CYCLE } }; /* Most of the entries in the LINK_ACTION table are straightforward, but a few are somewhat subtle. A reference to an indirect symbol (UNDEF_ROW/indr or UNDEFW_ROW/indr) is counted as a reference both to the indirect symbol and to the symbol the indirect symbol points to. A reference to a warning symbol (UNDEF_ROW/warn or UNDEFW_ROW/warn) causes the warning to be issued. A common definition of an indirect symbol (COMMON_ROW/indr) is treated as a multiple definition error. Likewise for an indirect definition of a common symbol (INDR_ROW/com). An indirect definition of a warning (INDR_ROW/warn) does not cause the warning to be issued. If a warning is created for an indirect symbol (WARN_ROW/indr) no warning is created for the symbol the indirect symbol points to. Adding an entry to a set does not count as a reference to a set, and no warning is issued (SET_ROW/warn). */ /* Add a symbol to the global hash table. ABFD is the BFD the symbol comes from. NAME is the name of the symbol. FLAGS is the BSF_* bits associated with the symbol. SECTION is the section in which the symbol is defined; this may be bfd_und_section_ptr or bfd_com_section_ptr. VALUE is the value of the symbol, relative to the section. STRING is used for either an indirect symbol, in which case it is the name of the symbol to indirect to, or a warning symbol, in which case it is the warning string. COPY is true if NAME or STRING must be copied into locally allocated memory if they need to be saved. COLLECT is true if we should automatically collect gcc constructor or destructor names as collect2 does. HASHP, if not NULL, is a place to store the created hash table entry; if *HASHP is not NULL, the caller has already looked up the hash table entry, and stored it in *HASHP. */ boolean _bfd_generic_link_add_one_symbol (info, abfd, name, flags, section, value, string, copy, collect, hashp) struct bfd_link_info *info; bfd *abfd; const char *name; flagword flags; asection *section; bfd_vma value; const char *string; boolean copy; boolean collect; struct bfd_link_hash_entry **hashp; { enum link_row row; struct bfd_link_hash_entry *h; boolean cycle; if (bfd_is_ind_section (section) || (flags & BSF_INDIRECT) != 0) row = INDR_ROW; else if ((flags & BSF_WARNING) != 0) row = WARN_ROW; else if ((flags & BSF_CONSTRUCTOR) != 0) row = SET_ROW; else if (bfd_is_und_section (section)) { if ((flags & BSF_WEAK) != 0) row = UNDEFW_ROW; else row = UNDEF_ROW; } else if ((flags & BSF_WEAK) != 0) row = DEFW_ROW; else if (bfd_is_com_section (section)) row = COMMON_ROW; else row = DEF_ROW; if (hashp != NULL && *hashp != NULL) { h = *hashp; BFD_ASSERT (strcmp (h->root.string, name) == 0); } else { h = bfd_link_hash_lookup (info->hash, name, true, copy, false); if (h == NULL) { if (hashp != NULL) *hashp = NULL; return false; } } if (info->notice_hash != (struct bfd_hash_table *) NULL && (bfd_hash_lookup (info->notice_hash, name, false, false) != (struct bfd_hash_entry *) NULL)) { if (! (*info->callbacks->notice) (info, name, abfd, section, value)) return false; } if (hashp != (struct bfd_link_hash_entry **) NULL) *hashp = h; do { enum link_action action; cycle = false; action = link_action[(int) row][(int) h->type]; switch (action) { case FAIL: abort (); case NOACT: /* Do nothing. */ break; case UND: /* Make a new undefined symbol. */ h->type = bfd_link_hash_undefined; h->u.undef.abfd = abfd; bfd_link_add_undef (info->hash, h); break; case WEAK: /* Make a new weak undefined symbol. */ h->type = bfd_link_hash_weak; h->u.undef.abfd = abfd; break; case CDEF: /* We have found a definition for a symbol which was previously common. */ BFD_ASSERT (h->type == bfd_link_hash_common); if (! ((*info->callbacks->multiple_common) (info, name, h->u.c.section->owner, bfd_link_hash_common, h->u.c.size, abfd, bfd_link_hash_defined, (bfd_vma) 0))) return false; /* Fall through. */ case DEF: /* Define a symbol. */ h->type = bfd_link_hash_defined; h->u.def.section = section; h->u.def.value = value; /* If we have been asked to, we act like collect2 and identify all functions that might be global constructors and destructors and pass them up in a callback. We only do this for certain object file types, since many object file types can handle this automatically. */ if (collect && name[0] == '_') { const char *s; /* A constructor or destructor name starts like this: _+GLOBAL_[_.$][ID][_.$] where the first [_.$] and the second are the same character (we accept any character there, in case a new object file format comes along with even worse naming restrictions). */ #define CONS_PREFIX "GLOBAL_" #define CONS_PREFIX_LEN (sizeof CONS_PREFIX - 1) s = name + 1; while (*s == '_') ++s; if (s[0] == 'G' && strncmp (s, CONS_PREFIX, CONS_PREFIX_LEN - 1) == 0) { char c; c = s[CONS_PREFIX_LEN + 1]; if ((c == 'I' || c == 'D') && s[CONS_PREFIX_LEN] == s[CONS_PREFIX_LEN + 2]) { if (! ((*info->callbacks->constructor) (info, c == 'I' ? true : false, name, abfd, section, value))) return false; } } } break; case COM: /* We have found a common definition for a symbol. */ if (h->type == bfd_link_hash_new) bfd_link_add_undef (info->hash, h); h->type = bfd_link_hash_common; h->u.c.size = value; if (section == bfd_com_section_ptr) { h->u.c.section = bfd_make_section_old_way (abfd, "COMMON"); h->u.c.section->flags = SEC_ALLOC; } else if (section->owner != abfd) { h->u.c.section = bfd_make_section_old_way (abfd, section->name); h->u.c.section->flags = SEC_ALLOC; } else h->u.c.section = section; break; case REF: /* A reference to a defined symbol. */ if (h->next == NULL && info->hash->undefs_tail != h) h->next = h; break; case BIG: /* We have found a common definition for a symbol which already had a common definition. Use the maximum of the two sizes. */ BFD_ASSERT (h->type == bfd_link_hash_common); if (! ((*info->callbacks->multiple_common) (info, name, h->u.c.section->owner, bfd_link_hash_common, h->u.c.size, abfd, bfd_link_hash_common, value))) return false; if (value > h->u.c.size) h->u.c.size = value; break; case CREF: /* We have found a common definition for a symbol which was already defined. */ BFD_ASSERT (h->type == bfd_link_hash_defined); if (! ((*info->callbacks->multiple_common) (info, name, h->u.def.section->owner, bfd_link_hash_defined, (bfd_vma) 0, abfd, bfd_link_hash_common, value))) return false; break; case MIND: /* Multiple indirect symbols. This is OK if they both point to the same symbol. */ if (strcmp (h->u.i.link->root.string, string) == 0) break; /* Fall through. */ case MDEF: /* Handle a multiple definition. */ { asection *msec; bfd_vma mval; switch (h->type) { case bfd_link_hash_defined: msec = h->u.def.section; mval = h->u.def.value; break; case bfd_link_hash_common: msec = bfd_com_section_ptr; mval = h->u.c.size; break; case bfd_link_hash_indirect: msec = bfd_ind_section_ptr; mval = 0; break; default: abort (); } if (! ((*info->callbacks->multiple_definition) (info, name, msec->owner, msec, mval, abfd, section, value))) return false; } break; case IND: /* Create an indirect symbol. */ { struct bfd_link_hash_entry *inh; /* STRING is the name of the symbol we want to indirect to. */ inh = bfd_link_hash_lookup (info->hash, string, true, copy, false); if (inh == (struct bfd_link_hash_entry *) NULL) return false; if (inh->type == bfd_link_hash_new) { inh->type = bfd_link_hash_undefined; inh->u.undef.abfd = abfd; bfd_link_add_undef (info->hash, inh); } /* If the indirect symbol has been referenced, we need to push the reference down to the symbol we are referencing. */ if (h->type != bfd_link_hash_new) { row = UNDEF_ROW; cycle = true; } h->type = bfd_link_hash_indirect; h->u.i.link = inh; } break; case SET: /* Add an entry to a set. */ if (! (*info->callbacks->add_to_set) (info, h, BFD_RELOC_CTOR, abfd, section, value)) return false; break; case WARNC: /* Issue a warning and cycle. */ if (h->u.i.warning != NULL) { if (! (*info->callbacks->warning) (info, h->u.i.warning)) return false; /* Only issue a warning once. */ h->u.i.warning = NULL; } /* Fall through. */ case CYCLE: /* Try again with the referenced symbol. */ h = h->u.i.link; cycle = true; break; case REFC: /* A reference to an indirect symbol. */ if (h->next == NULL && info->hash->undefs_tail != h) h->next = h; h = h->u.i.link; cycle = true; break; case WARN: /* Issue a warning. */ if (! (*info->callbacks->warning) (info, string)) return false; break; case CWARN: /* Warn if this symbol has been referenced already, otherwise either add a warning or cycle. A symbol has been referenced if the next field is not NULL, or it is the tail of the undefined symbol list. The REF case above helps to ensure this. */ if (h->next != NULL || info->hash->undefs_tail == h) { if (! (*info->callbacks->warning) (info, string)) return false; break; } /* Fall through. */ case MWARN: /* Make a warning symbol. */ { struct bfd_link_hash_entry *sub; /* STRING is the warning to give. */ sub = ((struct bfd_link_hash_entry *) bfd_hash_allocate (&info->hash->table, sizeof (struct bfd_link_hash_entry))); if (!sub) { bfd_set_error (bfd_error_no_memory); return false; } *sub = *h; h->type = bfd_link_hash_warning; h->u.i.link = sub; if (! copy) h->u.i.warning = string; else { char *w; w = bfd_hash_allocate (&info->hash->table, strlen (string) + 1); strcpy (w, string); h->u.i.warning = w; } } break; } } while (cycle); return true; } /* Generic final link routine. */ boolean _bfd_generic_final_link (abfd, info) bfd *abfd; struct bfd_link_info *info; { bfd *sub; asection *o; struct bfd_link_order *p; size_t outsymalloc; struct generic_write_global_symbol_info wginfo; abfd->outsymbols = (asymbol **) NULL; abfd->symcount = 0; outsymalloc = 0; /* Build the output symbol table. */ for (sub = info->input_bfds; sub != (bfd *) NULL; sub = sub->link_next) if (! _bfd_generic_link_output_symbols (abfd, sub, info, &outsymalloc)) return false; /* Accumulate the global symbols. */ wginfo.info = info; wginfo.output_bfd = abfd; wginfo.psymalloc = &outsymalloc; _bfd_generic_link_hash_traverse (_bfd_generic_hash_table (info), _bfd_generic_link_write_global_symbol, (PTR) &wginfo); if (info->relocateable) { /* Allocate space for the output relocs for each section. */ for (o = abfd->sections; o != (asection *) NULL; o = o->next) { o->reloc_count = 0; for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) { if (p->type == bfd_section_reloc_link_order || p->type == bfd_symbol_reloc_link_order) ++o->reloc_count; else if (p->type == bfd_indirect_link_order) { asection *input_section; bfd *input_bfd; long relsize; arelent **relocs; asymbol **symbols; long reloc_count; input_section = p->u.indirect.section; input_bfd = input_section->owner; relsize = bfd_get_reloc_upper_bound (input_bfd, input_section); if (relsize < 0) return false; relocs = (arelent **) malloc ((size_t) relsize); if (!relocs && relsize != 0) { bfd_set_error (bfd_error_no_memory); return false; } symbols = _bfd_generic_link_get_symbols (input_bfd); reloc_count = bfd_canonicalize_reloc (input_bfd, input_section, relocs, symbols); if (reloc_count < 0) return false; BFD_ASSERT (reloc_count == input_section->reloc_count); o->reloc_count += reloc_count; free (relocs); } } if (o->reloc_count > 0) { o->orelocation = ((arelent **) bfd_alloc (abfd, (o->reloc_count * sizeof (arelent *)))); if (!o->orelocation) { bfd_set_error (bfd_error_no_memory); return false; } o->flags |= SEC_RELOC; /* Reset the count so that it can be used as an index when putting in the output relocs. */ o->reloc_count = 0; } } } /* Handle all the link order information for the sections. */ for (o = abfd->sections; o != (asection *) NULL; o = o->next) { for (p = o->link_order_head; p != (struct bfd_link_order *) NULL; p = p->next) { switch (p->type) { case bfd_section_reloc_link_order: case bfd_symbol_reloc_link_order: if (! _bfd_generic_reloc_link_order (abfd, info, o, p)) return false; break; default: if (! _bfd_default_link_order (abfd, info, o, p)) return false; break; } } } return true; } /* Add an output symbol to the output BFD. */ static boolean generic_add_output_symbol (output_bfd, psymalloc, sym) bfd *output_bfd; size_t *psymalloc; asymbol *sym; { if (output_bfd->symcount >= *psymalloc) { asymbol **newsyms; if (*psymalloc == 0) *psymalloc = 124; else *psymalloc *= 2; if (output_bfd->outsymbols == (asymbol **) NULL) newsyms = (asymbol **) malloc (*psymalloc * sizeof (asymbol *)); else newsyms = (asymbol **) realloc (output_bfd->outsymbols, *psymalloc * sizeof (asymbol *)); if (newsyms == (asymbol **) NULL) { bfd_set_error (bfd_error_no_memory); return false; } output_bfd->outsymbols = newsyms; } output_bfd->outsymbols[output_bfd->symcount] = sym; ++output_bfd->symcount; return true; } /* Handle the symbols for an input BFD. */ boolean _bfd_generic_link_output_symbols (output_bfd, input_bfd, info, psymalloc) bfd *output_bfd; bfd *input_bfd; struct bfd_link_info *info; size_t *psymalloc; { asymbol **sym_ptr; asymbol **sym_end; if (! generic_link_read_symbols (input_bfd)) return false; /* Create a filename symbol if we are supposed to. */ if (info->create_object_symbols_section != (asection *) NULL) { asection *sec; for (sec = input_bfd->sections; sec != (asection *) NULL; sec = sec->next) { if (sec->output_section == info->create_object_symbols_section) { asymbol *newsym; newsym = bfd_make_empty_symbol (input_bfd); if (!newsym) return false; newsym->name = input_bfd->filename; newsym->value = 0; newsym->flags = BSF_LOCAL | BSF_FILE; newsym->section = sec; if (! generic_add_output_symbol (output_bfd, psymalloc, newsym)) return false; break; } } } /* Adjust the values of the globally visible symbols, and write out local symbols. */ sym_ptr = _bfd_generic_link_get_symbols (input_bfd); sym_end = sym_ptr + _bfd_generic_link_get_symcount (input_bfd); for (; sym_ptr < sym_end; sym_ptr++) { asymbol *sym; struct generic_link_hash_entry *h; boolean output; h = (struct generic_link_hash_entry *) NULL; sym = *sym_ptr; if ((sym->flags & (BSF_INDIRECT | BSF_WARNING | BSF_GLOBAL | BSF_CONSTRUCTOR | BSF_WEAK)) != 0 || bfd_is_und_section (bfd_get_section (sym)) || bfd_is_com_section (bfd_get_section (sym)) || bfd_is_ind_section (bfd_get_section (sym))) { h = _bfd_generic_link_hash_lookup (_bfd_generic_hash_table (info), bfd_asymbol_name (sym), false, false, true); if (h != (struct generic_link_hash_entry *) NULL) { /* Force all references to this symbol to point to the same area in memory. It is possible that this routine will be called with a hash table other than a generic hash table, so we double check that. */ if (info->hash->creator == input_bfd->xvec) { if (h->sym != (asymbol *) NULL) *sym_ptr = sym = h->sym; } switch (h->root.type) { default: case bfd_link_hash_new: abort (); case bfd_link_hash_undefined: case bfd_link_hash_weak: break; case bfd_link_hash_defined: sym->value = h->root.u.def.value; sym->section = h->root.u.def.section; sym->flags |= BSF_GLOBAL; break; case bfd_link_hash_common: sym->value = h->root.u.c.size; sym->flags |= BSF_GLOBAL; if (! bfd_is_com_section (sym->section)) { BFD_ASSERT (bfd_is_und_section (sym->section)); sym->section = bfd_com_section_ptr; } /* We do not set the section of the symbol to h->root.u.c.section. That value was saved so that we would know where to allocate the symbol if it was defined. In this case the type is still bfd_link_hash_common, so we did not define it, so we do not want to use that section. */ break; } } } /* This switch is straight from the old code in write_file_locals in ldsym.c. */ if (info->strip == strip_some && (bfd_hash_lookup (info->keep_hash, bfd_asymbol_name (sym), false, false) == (struct bfd_hash_entry *) NULL)) output = false; else if ((sym->flags & (BSF_GLOBAL | BSF_WEAK)) != 0) { /* If this symbol is marked as occurring now, rather than at the end, output it now. This is used for COFF C_EXT FCN symbols. FIXME: There must be a better way. */ if (bfd_asymbol_bfd (sym) == input_bfd && (sym->flags & BSF_NOT_AT_END) != 0) output = true; else output = false; } else if (bfd_is_ind_section (sym->section)) output = false; else if ((sym->flags & BSF_DEBUGGING) != 0) { if (info->strip == strip_none) output = true; else output = false; } else if (bfd_is_und_section (sym->section) || bfd_is_com_section (sym->section)) output = false; else if ((sym->flags & BSF_LOCAL) != 0) { if ((sym->flags & BSF_WARNING) != 0) output = false; else { switch (info->discard) { default: case discard_all: output = false; break; case discard_l: if (bfd_asymbol_name (sym)[0] == info->lprefix[0] && (info->lprefix_len == 1 || strncmp (bfd_asymbol_name (sym), info->lprefix, info->lprefix_len) == 0)) output = false; else output = true; break; case discard_none: output = true; break; } } } else if ((sym->flags & BSF_CONSTRUCTOR)) { if (info->strip != strip_all) output = true; else output = false; } else abort (); if (output) { if (! generic_add_output_symbol (output_bfd, psymalloc, sym)) return false; if (h != (struct generic_link_hash_entry *) NULL) h->written = true; } } return true; } /* Write out a global symbol, if it hasn't already been written out. This is called for each symbol in the hash table. */ boolean _bfd_generic_link_write_global_symbol (h, data) struct generic_link_hash_entry *h; PTR data; { struct generic_write_global_symbol_info *wginfo = (struct generic_write_global_symbol_info *) data; asymbol *sym; if (h->written) return true; h->written = true; if (wginfo->info->strip == strip_all || (wginfo->info->strip == strip_some && bfd_hash_lookup (wginfo->info->keep_hash, h->root.root.string, false, false) == NULL)) return true; if (h->sym != (asymbol *) NULL) { sym = h->sym; BFD_ASSERT (strcmp (bfd_asymbol_name (sym), h->root.root.string) == 0); } else { sym = bfd_make_empty_symbol (wginfo->output_bfd); if (!sym) return false; sym->name = h->root.root.string; sym->flags = 0; } switch (h->root.type) { default: case bfd_link_hash_new: abort (); case bfd_link_hash_undefined: sym->section = bfd_und_section_ptr; sym->value = 0; break; case bfd_link_hash_weak: sym->section = bfd_und_section_ptr; sym->value = 0; sym->flags |= BSF_WEAK; break; case bfd_link_hash_defined: sym->section = h->root.u.def.section; sym->value = h->root.u.def.value; break; case bfd_link_hash_common: sym->value = h->root.u.c.size; if (sym->section == NULL) sym->section = bfd_com_section_ptr; else if (! bfd_is_com_section (sym->section)) { BFD_ASSERT (bfd_is_und_section (sym->section)); sym->section = bfd_com_section_ptr; } /* Do not set the section; see _bfd_generic_link_output_symbols. */ break; case bfd_link_hash_indirect: case bfd_link_hash_warning: /* FIXME: What should we do here? */ break; } sym->flags |= BSF_GLOBAL; if (! generic_add_output_symbol (wginfo->output_bfd, wginfo->psymalloc, sym)) { /* FIXME: No way to return failure. */ abort (); } return true; } /* Create a relocation. */ boolean _bfd_generic_reloc_link_order (abfd, info, sec, link_order) bfd *abfd; struct bfd_link_info *info; asection *sec; struct bfd_link_order *link_order; { arelent *r; if (! info->relocateable) abort (); if (sec->orelocation == (arelent **) NULL) abort (); r = (arelent *) bfd_alloc (abfd, sizeof (arelent)); if (r == (arelent *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } r->address = link_order->offset; r->howto = bfd_reloc_type_lookup (abfd, link_order->u.reloc.p->reloc); if (r->howto == (const reloc_howto_type *) NULL) { bfd_set_error (bfd_error_bad_value); return false; } /* Get the symbol to use for the relocation. */ if (link_order->type == bfd_section_reloc_link_order) r->sym_ptr_ptr = link_order->u.reloc.p->u.section->symbol_ptr_ptr; else { struct generic_link_hash_entry *h; h = _bfd_generic_link_hash_lookup (_bfd_generic_hash_table (info), link_order->u.reloc.p->u.name, false, false, true); if (h == (struct generic_link_hash_entry *) NULL || ! h->written) { if (! ((*info->callbacks->unattached_reloc) (info, link_order->u.reloc.p->u.name, (bfd *) NULL, (asection *) NULL, (bfd_vma) 0))) return false; bfd_set_error (bfd_error_bad_value); return false; } r->sym_ptr_ptr = &h->sym; } /* If this is an inplace reloc, write the addend to the object file. Otherwise, store it in the reloc addend. */ if (! r->howto->partial_inplace) r->addend = link_order->u.reloc.p->addend; else { bfd_size_type size; bfd_reloc_status_type rstat; bfd_byte *buf; boolean ok; size = bfd_get_reloc_size (r->howto); buf = (bfd_byte *) bfd_zmalloc (size); if (buf == (bfd_byte *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } rstat = _bfd_relocate_contents (r->howto, abfd, link_order->u.reloc.p->addend, buf); switch (rstat) { case bfd_reloc_ok: break; default: case bfd_reloc_outofrange: abort (); case bfd_reloc_overflow: if (! ((*info->callbacks->reloc_overflow) (info, (link_order->type == bfd_section_reloc_link_order ? bfd_section_name (abfd, link_order->u.reloc.p->u.section) : link_order->u.reloc.p->u.name), r->howto->name, link_order->u.reloc.p->addend, (bfd *) NULL, (asection *) NULL, (bfd_vma) 0))) { free (buf); return false; } break; } ok = bfd_set_section_contents (abfd, sec, (PTR) buf, (file_ptr) link_order->offset, size); free (buf); if (! ok) return false; r->addend = 0; } sec->orelocation[sec->reloc_count] = r; ++sec->reloc_count; return true; } /* Allocate a new link_order for a section. */ struct bfd_link_order * bfd_new_link_order (abfd, section) bfd *abfd; asection *section; { struct bfd_link_order *new; new = ((struct bfd_link_order *) bfd_alloc_by_size_t (abfd, sizeof (struct bfd_link_order))); if (!new) { bfd_set_error (bfd_error_no_memory); return NULL; } new->type = bfd_undefined_link_order; new->offset = 0; new->size = 0; new->next = (struct bfd_link_order *) NULL; if (section->link_order_tail != (struct bfd_link_order *) NULL) section->link_order_tail->next = new; else section->link_order_head = new; section->link_order_tail = new; return new; } /* Default link order processing routine. Note that we can not handle the reloc_link_order types here, since they depend upon the details of how the particular backends generates relocs. */ boolean _bfd_default_link_order (abfd, info, sec, link_order) bfd *abfd; struct bfd_link_info *info; asection *sec; struct bfd_link_order *link_order; { switch (link_order->type) { case bfd_undefined_link_order: case bfd_section_reloc_link_order: case bfd_symbol_reloc_link_order: default: abort (); case bfd_indirect_link_order: return default_indirect_link_order (abfd, info, sec, link_order); case bfd_fill_link_order: return default_fill_link_order (abfd, info, sec, link_order); case bfd_data_link_order: return bfd_set_section_contents (abfd, sec, (PTR) link_order->u.data.contents, (file_ptr) link_order->offset, link_order->size); } } /* Default routine to handle a bfd_fill_link_order. */ /*ARGSUSED*/ static boolean default_fill_link_order (abfd, info, sec, link_order) bfd *abfd; struct bfd_link_info *info; asection *sec; struct bfd_link_order *link_order; { size_t size; char *space; size_t i; int fill; boolean result; BFD_ASSERT ((sec->flags & SEC_HAS_CONTENTS) != 0); size = (size_t) link_order->size; space = (char *) malloc (size); if (space == NULL && size != 0) { bfd_set_error (bfd_error_no_memory); return false; } fill = link_order->u.fill.value; for (i = 0; i < size; i += 2) space[i] = fill >> 8; for (i = 1; i < size; i += 2) space[i] = fill; result = bfd_set_section_contents (abfd, sec, space, (file_ptr) link_order->offset, link_order->size); free (space); return result; } /* Default routine to handle a bfd_indirect_link_order. */ static boolean default_indirect_link_order (output_bfd, info, output_section, link_order) bfd *output_bfd; struct bfd_link_info *info; asection *output_section; struct bfd_link_order *link_order; { asection *input_section; bfd *input_bfd; bfd_byte *contents = NULL; bfd_byte *new_contents; BFD_ASSERT ((output_section->flags & SEC_HAS_CONTENTS) != 0); if (link_order->size == 0) return true; input_section = link_order->u.indirect.section; input_bfd = input_section->owner; BFD_ASSERT (input_section->output_section == output_section); BFD_ASSERT (input_section->output_offset == link_order->offset); BFD_ASSERT (input_section->_cooked_size == link_order->size); if (info->relocateable && input_section->reloc_count > 0 && output_section->orelocation == (arelent **) NULL) { /* Space has not been allocated for the output relocations. This can happen when we are called by a specific backend because somebody is attempting to link together different types of object files. Handling this case correctly is difficult, and sometimes impossible. */ abort (); } /* Get the canonical symbols. The generic linker will always have retrieved them by this point, but we may be being called by a specific linker when linking different types of object files together. */ if (! generic_link_read_symbols (input_bfd)) return false; /* Get and relocate the section contents. */ contents = (bfd_byte *) malloc (bfd_section_size (input_bfd, input_section)); if (contents == NULL && bfd_section_size (input_bfd, input_section) != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } new_contents = (bfd_get_relocated_section_contents (output_bfd, info, link_order, contents, info->relocateable, _bfd_generic_link_get_symbols (input_bfd))); if (!new_contents) goto error_return; /* Output the section contents. */ if (! bfd_set_section_contents (output_bfd, output_section, (PTR) new_contents, link_order->offset, link_order->size)) goto error_return; if (contents != NULL) free (contents); return true; error_return: if (contents != NULL) free (contents); return false; } /* A little routine to count the number of relocs in a link_order list. */ unsigned int _bfd_count_link_order_relocs (link_order) struct bfd_link_order *link_order; { register unsigned int c; register struct bfd_link_order *l; c = 0; for (l = link_order; l != (struct bfd_link_order *) NULL; l = l->next) { if (l->type == bfd_section_reloc_link_order || l->type == bfd_symbol_reloc_link_order) ++c; } return c; } gdb-4.13/bfd/lynx-core.c 666 34562 1752 12733 5610565614 13412 0ustar fnfcygnus/* BFD back end for Lynx core files Copyright 1993 Free Software Foundation, Inc. Written by Stu Grossman of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #ifdef HOST_LYNX /* Core files only work locally for now */ /* These are stored in the bfd's tdata */ struct lynx_core_struct { int sig; char cmd[PNMLEN + 1]; }; #define core_hdr(bfd) ((bfd)->tdata.lynx_core_data) #define core_signal(bfd) (core_hdr(bfd)->sig) #define core_command(bfd) (core_hdr(bfd)->cmd) /* Handle Lynx core dump file. */ static asection * make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos) bfd *abfd; CONST char *name; flagword flags; bfd_size_type _raw_size; bfd_vma vma; file_ptr filepos; { asection *asect; char *newname; newname = bfd_alloc (abfd, strlen (name) + 1); if (!newname) return NULL; strcpy (newname, name); asect = bfd_make_section (abfd, newname); if (!asect) return NULL; asect->flags = flags; asect->_raw_size = _raw_size; asect->vma = vma; asect->filepos = filepos; asect->alignment_power = 2; return asect; } /* ARGSUSED */ const bfd_target * lynx_core_file_p (abfd) bfd *abfd; { int val; int secnum; struct pssentry pss; size_t tcontext_size; core_st_t *threadp; int pagesize; asection *newsect; pagesize = getpagesize (); /* Serious cross-target issue here... This really needs to come from a system-specific header file. */ /* Get the pss entry from the core file */ if (bfd_seek (abfd, 0, SEEK_SET) != 0) return NULL; val = bfd_read ((void *)&pss, 1, sizeof pss, abfd); if (val != sizeof pss) { /* Too small to be a core file */ if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return NULL; } core_hdr (abfd) = (struct lynx_core_struct *) bfd_zalloc (abfd, sizeof (struct lynx_core_struct)); if (!core_hdr (abfd)) { bfd_set_error (bfd_error_no_memory); return NULL; } strncpy (core_command (abfd), pss.pname, PNMLEN + 1); /* Compute the size of the thread contexts */ tcontext_size = pss.threadcnt * sizeof (core_st_t); /* Allocate space for the thread contexts */ threadp = (core_st_t *)bfd_alloc (abfd, tcontext_size); if (!threadp) { bfd_set_error (bfd_error_no_memory); return NULL; } /* Save thread contexts */ if (bfd_seek (abfd, pagesize, SEEK_SET) != 0) return NULL; val = bfd_read ((void *)threadp, pss.threadcnt, sizeof (core_st_t), abfd); if (val != tcontext_size) { /* Probably too small to be a core file */ if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return NULL; } core_signal (abfd) = threadp->currsig; newsect = make_bfd_asection (abfd, ".stack", SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS, pss.ssize, pss.slimit, pagesize + tcontext_size); if (!newsect) { bfd_set_error (bfd_error_no_memory); return NULL; } newsect = make_bfd_asection (abfd, ".data", SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS, pss.data_len + pss.bss_len, pss.data_start, pagesize + tcontext_size + pss.ssize); if (!newsect) { bfd_set_error (bfd_error_no_memory); return NULL; } /* And, now for the .reg/XXX pseudo sections. Each thread has it's own .reg/XXX section, where XXX is the thread id (without leading zeros). The currently running thread (at the time of the core dump) also has an alias called `.reg' (just to keep GDB happy). Note that we use `.reg/XXX' as opposed to `.regXXX' because GDB expects that .reg2 will be the floating- point registers. */ newsect = make_bfd_asection (abfd, ".reg", SEC_HAS_CONTENTS, sizeof (core_st_t), 0, pagesize); if (!newsect) { bfd_set_error (bfd_error_no_memory); return NULL; } for (secnum = 0; secnum < pss.threadcnt; secnum++) { char secname[100]; sprintf (secname, ".reg/%d", BUILDPID (0, threadp[secnum].tid)); newsect = make_bfd_asection (abfd, secname, SEC_HAS_CONTENTS, sizeof (core_st_t), 0, pagesize + secnum * sizeof (core_st_t)); if (!newsect) { bfd_set_error (bfd_error_no_memory); return NULL; } } return abfd->xvec; } char * lynx_core_file_failing_command (abfd) bfd *abfd; { return core_command (abfd); } /* ARGSUSED */ int lynx_core_file_failing_signal (abfd) bfd *abfd; { return core_signal (abfd); } /* ARGSUSED */ boolean lynx_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd, *exec_bfd; { return true; /* FIXME, We have no way of telling at this point */ } #endif /* HOST_LYNX */ gdb-4.13/bfd/m68klynx.c 666 34562 1752 3251 5610535327 13143 0ustar fnfcygnus/* BFD back-end for m68k binaries under LynxOS. Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define BYTES_IN_WORD 4 #define N_SHARED_LIB(x) 0 #define TEXT_START_ADDR 0 #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define DEFAULT_ARCH bfd_arch_m68k #define MY(OP) CAT(m68klynx_aout_,OP) #define TARGETNAME "a.out-m68k-lynx" #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" #include "aout/aout64.h" #define TARGET_IS_BIG_ENDIAN_P #ifdef HOST_LYNX char *lynx_core_file_failing_command(); int lynx_core_file_failing_signal(); boolean lynx_core_file_matches_executable_p(); const bfd_target *lynx_core_file_p(); #define MY_core_file_failing_command lynx_core_file_failing_command #define MY_core_file_failing_signal lynx_core_file_failing_signal #define MY_core_file_matches_executable_p lynx_core_file_matches_executable_p #define MY_core_file_p lynx_core_file_p #endif /* HOST_LYNX */ #include "aout-target.h" gdb-4.13/bfd/m88kmach3.c 666 34562 1752 2434 5606352536 13154 0ustar fnfcygnus/* BFD back-end for Motorola m88k a.out (Mach 3) binaries. Copyright (C) 1990, 1991, 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef MACH #define MACH #endif #define PAGE_SIZE (4096*2) #define SEGMENT_SIZE 0x20000 #define TEXT_START_ADDR 0 #define BYTES_IN_WORD 4 #define N_HEADER_IN_TEXT(x) 1 /* (N_MAGIG(x) == ZMAGIC) */ #define N_TXTSIZE(x) ((x).a_text) #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" #define DEFAULT_ARCH bfd_arch_m88k #define MY(OP) CAT(m88kmach3_,OP) #define TARGETNAME "a.out-m88k-mach3" #include "aout-target.h" gdb-4.13/bfd/makefile.dos 666 34562 1752 1305 5571422724 13563 0ustar fnfcygnusCFLAGS=-O2 .c.o : gcc $(CFLAGS) -I. -I../include -c $< all : libbfd.a targets.o : targets.c gcc $(CFLAGS) -I. -I../include -DSELECT_VECS=&go32coff_vec,&i386aout_vec -DDEFAULT_VECTOR=go32coff_vec -c $*.c archures.o : archures.c gcc $(CFLAGS) -I. -I../include -DSELECT_ARCHITECTURES=bfd_i386_arch -c $*.c OBJS = \ libbfd.o \ opncls.o \ bfd.o \ archive.o \ targets.o \ cache.o \ archures.o \ core.o \ section.o \ format.o \ syms.o \ reloc.o \ init.o \ ctor.o \ coffgen.o \ srec.o \ hash.o \ linker.o \ ecoff.o \ ecofflink.o \ elf.o \ aout32.o \ stab-sym.o \ i386aout.o \ cpu-i386.o \ coff-go32.o \ $E libbfd.a : $(OBJS) -rm libbfd.a ar rvs libbfd.a $(OBJS) ranlib libbfd.a gdb-4.13/bfd/mipsbsd.c 666 34562 1752 33125 5610535330 13121 0ustar fnfcygnus/* BFD backend for MIPS BSD (a.out) binaries. Copyright (C) 1993, 1994 Free Software Foundation, Inc. Written by Ralph Campbell. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define BYTES_IN_WORD 4 /* #define ENTRY_CAN_BE_ZERO */ #define N_HEADER_IN_TEXT(x) 1 #define N_SHARED_LIB(x) 0 #define N_TXTADDR(x) \ (N_MAGIC(x) != ZMAGIC ? (x).a_entry : /* object file or NMAGIC */\ TEXT_START_ADDR + EXEC_BYTES_SIZE /* no padding */\ ) #define N_DATADDR(x) (N_TXTADDR(x)+N_TXTSIZE(x)) #define TEXT_START_ADDR 4096 #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define DEFAULT_ARCH bfd_arch_mips #define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \ || (mtype) == M_MIPS1 || (mtype) == M_MIPS2) #define MY_symbol_leading_char '\0' #define MY(OP) CAT(mipsbsd_,OP) #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" #define SET_ARCH_MACH(ABFD, EXEC) \ MY(set_arch_mach)(ABFD, N_MACHTYPE (EXEC)); \ MY(choose_reloc_size)(ABFD); void MY(set_arch_mach) PARAMS ((bfd *abfd, int machtype)); static void MY(choose_reloc_size) PARAMS ((bfd *abfd)); #define MY_write_object_contents MY(write_object_contents) static boolean MY(write_object_contents) PARAMS ((bfd *abfd)); /* We can't use MY(x) here because it leads to a recursive call to CAT when expanded inside JUMP_TABLE. */ #define MY_bfd_reloc_type_lookup mipsbsd_reloc_howto_type_lookup #define MY_canonicalize_reloc mipsbsd_canonicalize_reloc #define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols #define MY_final_link_callback unused #define MY_bfd_final_link _bfd_generic_final_link #define MY_backend_data &MY(backend_data) #define MY_BFD_TARGET #include "aout-target.h" void MY(set_arch_mach) (abfd, machtype) bfd *abfd; int machtype; { enum bfd_architecture arch; long machine; /* Determine the architecture and machine type of the object file. */ switch (machtype) { case M_MIPS1: arch = bfd_arch_mips; machine = 3000; break; case M_MIPS2: arch = bfd_arch_mips; machine = 4000; break; default: arch = bfd_arch_obscure; machine = 0; break; } bfd_set_arch_mach(abfd, arch, machine); } /* Determine the size of a relocation entry, based on the architecture */ static void MY(choose_reloc_size) (abfd) bfd *abfd; { switch (bfd_get_arch(abfd)) { case bfd_arch_sparc: case bfd_arch_a29k: case bfd_arch_mips: obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE; break; default: obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; break; } } /* Write an object file in BSD a.out format. Section contents have already been written. We write the file header, symbols, and relocation. */ static boolean MY(write_object_contents) (abfd) bfd *abfd; { struct external_exec exec_bytes; struct internal_exec *execp = exec_hdr (abfd); /* Magic number, maestro, please! */ switch (bfd_get_arch(abfd)) { case bfd_arch_m68k: switch (bfd_get_mach(abfd)) { case 68010: N_SET_MACHTYPE(*execp, M_68010); break; default: case 68020: N_SET_MACHTYPE(*execp, M_68020); break; } break; case bfd_arch_sparc: N_SET_MACHTYPE(*execp, M_SPARC); break; case bfd_arch_i386: N_SET_MACHTYPE(*execp, M_386); break; case bfd_arch_a29k: N_SET_MACHTYPE(*execp, M_29K); break; case bfd_arch_mips: switch (bfd_get_mach(abfd)) { case 4000: case 6000: N_SET_MACHTYPE(*execp, M_MIPS2); break; default: N_SET_MACHTYPE(*execp, M_MIPS1); break; } break; default: N_SET_MACHTYPE(*execp, M_UNKNOWN); } MY(choose_reloc_size)(abfd); WRITE_HEADERS(abfd, execp); return true; } /* * MIPS relocation types. */ #define MIPS_RELOC_32 0 #define MIPS_RELOC_JMP 1 #define MIPS_RELOC_WDISP16 2 #define MIPS_RELOC_HI16 3 #define MIPS_RELOC_HI16_S 4 #define MIPS_RELOC_LO16 5 /* * This is only called when performing a BFD_RELOC_MIPS_JMP relocation. * The jump destination address is formed from the upper 4 bits of the * "current" program counter concatenated with the jump instruction's * 26 bit field and two trailing zeros. * If the destination address is not in the same segment as the "current" * program counter, then we need to signal an error. */ static bfd_reloc_status_type mips_fix_jmp_addr (abfd,reloc_entry,symbol,data,input_section,output_bfd) bfd *abfd; arelent *reloc_entry; struct symbol_cache_entry *symbol; PTR data; asection *input_section; bfd *output_bfd; { bfd_vma relocation, pc; /* If this is a partial relocation, just continue. */ if (output_bfd != (bfd *)NULL) return bfd_reloc_continue; /* If this is an undefined symbol, return error */ if (bfd_is_und_section (symbol->section) && (symbol->flags & BSF_WEAK) == 0) return bfd_reloc_undefined; /* * Work out which section the relocation is targetted at and the * initial relocation command value. */ if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; relocation += reloc_entry->addend; pc = input_section->output_section->vma + input_section->output_offset + reloc_entry->address + 4; if ((relocation & 0xF0000000) != (pc & 0xF0000000)) return bfd_reloc_overflow; return bfd_reloc_continue; } /* * This is only called when performing a BFD_RELOC_HI16_S relocation. * We need to see if bit 15 is set in the result. If it is, we add * 0x10000 and continue normally. This will compensate for the sign extension * when the low bits are added at run time. */ static bfd_reloc_status_type mips_fix_hi16_s PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); static bfd_reloc_status_type mips_fix_hi16_s (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { bfd_vma relocation; /* If this is a partial relocation, just continue. */ if (output_bfd != (bfd *)NULL) return bfd_reloc_continue; /* If this is an undefined symbol, return error */ if (bfd_is_und_section (symbol->section) && (symbol->flags & BSF_WEAK) == 0) return bfd_reloc_undefined; /* * Work out which section the relocation is targetted at and the * initial relocation command value. */ if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; relocation += symbol->section->output_section->vma; relocation += symbol->section->output_offset; relocation += reloc_entry->addend; if (relocation & 0x8000) reloc_entry->addend += 0x10000; return bfd_reloc_continue; } static reloc_howto_type mips_howto_table_ext[] = { {MIPS_RELOC_32, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, "32", false, 0, 0xffffffff, false}, {MIPS_RELOC_JMP, 2, 2, 26, false, 0, complain_overflow_dont, mips_fix_jmp_addr, "MIPS_JMP", false, 0, 0x03ffffff, false}, {MIPS_RELOC_WDISP16, 2, 1, 16, true, 0, complain_overflow_signed, 0, "WDISP16", false, 0, 0x0000ffff, false}, {MIPS_RELOC_HI16, 16, 1, 16, false, 0, complain_overflow_bitfield, 0, "HI16", false, 0, 0x0000ffff, false}, {MIPS_RELOC_HI16_S, 16, 1, 16, false, 0, complain_overflow_bitfield, mips_fix_hi16_s, "HI16_S", false, 0, 0x0000ffff, false}, {MIPS_RELOC_LO16, 0, 1, 16, false, 0, complain_overflow_dont, 0, "LO16", false, 0, 0x0000ffff, false}, }; static const reloc_howto_type * MY(reloc_howto_type_lookup) (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { if (bfd_get_arch (abfd) != bfd_arch_mips) return 0; switch (code) { case BFD_RELOC_32: return (&mips_howto_table_ext[MIPS_RELOC_32]); case BFD_RELOC_MIPS_JMP: return (&mips_howto_table_ext[MIPS_RELOC_JMP]); case BFD_RELOC_16_PCREL_S2: return (&mips_howto_table_ext[MIPS_RELOC_WDISP16]); case BFD_RELOC_HI16: return (&mips_howto_table_ext[MIPS_RELOC_HI16]); case BFD_RELOC_HI16_S: return (&mips_howto_table_ext[MIPS_RELOC_HI16_S]); case BFD_RELOC_LO16: return (&mips_howto_table_ext[MIPS_RELOC_LO16]); default: return 0; } } /* * This is just like the standard aoutx.h version but we need to do our * own mapping of external reloc type values to howto entries. */ long MY(canonicalize_reloc)(abfd, section, relptr, symbols) bfd *abfd; sec_ptr section; arelent **relptr; asymbol **symbols; { arelent *tblptr = section->relocation; unsigned int count, c; extern reloc_howto_type NAME(aout,ext_howto_table)[]; /* If we have already read in the relocation table, return the values. */ if (section->flags & SEC_CONSTRUCTOR) { arelent_chain *chain = section->constructor_chain; for (count = 0; count < section->reloc_count; count++) { *relptr++ = &chain->relent; chain = chain->next; } *relptr = 0; return section->reloc_count; } if (tblptr && section->reloc_count) { for (count = 0; count++ < section->reloc_count;) *relptr++ = tblptr++; *relptr = 0; return section->reloc_count; } if (!NAME(aout,slurp_reloc_table)(abfd, section, symbols)) return -1; tblptr = section->relocation; /* fix up howto entries */ for (count = 0; count++ < section->reloc_count;) { c = tblptr->howto - NAME(aout,ext_howto_table); tblptr->howto = &mips_howto_table_ext[c]; *relptr++ = tblptr++; } *relptr = 0; return section->reloc_count; } static CONST struct aout_backend_data MY(backend_data) = { 0, /* zmagic contiguous */ 1, /* text incl header */ 0, /* exec_hdr_flags */ PAGE_SIZE, /* text vma */ MY_set_sizes, 0, /* text size includes exec header */ 0, /* add_dynamic_symbols */ 0, /* add_one_symbol */ 0, /* link_dynamic_object */ 0, /* write_dynamic_symbol */ 0, /* check_dynamic_reloc */ 0 /* finish_dynamic_link */ }; const bfd_target aout_mips_little_vec = { "a.out-mips-little", /* name */ bfd_target_aout_flavour, false, /* target byte order (little) */ false, /* target headers byte order (little) */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ MY_symbol_leading_char, ' ', /* ar_pad_char */ 15, /* ar_max_namelen */ 1, /* minimum alignment */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */ {_bfd_dummy_target, MY_object_p, /* bfd_check_format */ bfd_generic_archive_p, MY_core_file_p}, {bfd_false, MY_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, MY_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (MY), BFD_JUMP_TABLE_COPY (MY), BFD_JUMP_TABLE_CORE (MY), BFD_JUMP_TABLE_ARCHIVE (MY), BFD_JUMP_TABLE_SYMBOLS (MY), BFD_JUMP_TABLE_RELOCS (MY), BFD_JUMP_TABLE_WRITE (MY), BFD_JUMP_TABLE_LINK (MY), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) MY_backend_data, }; const bfd_target aout_mips_big_vec = { "a.out-mips-big", /* name */ bfd_target_aout_flavour, true, /* target byte order (big) */ true, /* target headers byte order (big) */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ MY_symbol_leading_char, ' ', /* ar_pad_char */ 15, /* ar_max_namelen */ 1, /* minimum alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, MY_object_p, /* bfd_check_format */ bfd_generic_archive_p, MY_core_file_p}, {bfd_false, MY_mkobject, /* bfd_set_format */ _bfd_generic_mkarchive, bfd_false}, {bfd_false, MY_write_object_contents, /* bfd_write_contents */ _bfd_write_archive_contents, bfd_false}, BFD_JUMP_TABLE_GENERIC (MY), BFD_JUMP_TABLE_COPY (MY), BFD_JUMP_TABLE_CORE (MY), BFD_JUMP_TABLE_ARCHIVE (MY), BFD_JUMP_TABLE_SYMBOLS (MY), BFD_JUMP_TABLE_RELOCS (MY), BFD_JUMP_TABLE_WRITE (MY), BFD_JUMP_TABLE_LINK (MY), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) MY_backend_data, }; gdb-4.13/bfd/netbsd386.c 666 34562 1752 7041 5610535330 13156 0ustar fnfcygnus/* BFD back-end for NetBSD/386 a.out-ish binaries. Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define BYTES_IN_WORD 4 /* ZMAGIC files never have the header in the text. */ #define N_HEADER_IN_TEXT(x) 0 /* ZMAGIC files start at address 0. This does not apply to QMAGIC. */ #define TEXT_START_ADDR 0 #define N_SHARED_LIB(x) 0 #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define DEFAULT_ARCH bfd_arch_i386 #define MACHTYPE_OK(mtype) ((mtype) == M_386 || (mtype) == M_386_NETBSD || (mtype) == M_UNKNOWN) #define MY(OP) CAT(netbsd386_,OP) /* This needs to start with a.out so GDB knows it is an a.out variant. */ #define TARGETNAME "a.out-netbsd-386" #define N_MAGIC(ex) \ ( (((ex).a_info)&0xffff0000) ? ((((ex).a_info))&0xffff) : ((ex).a_info)) #define N_MACHTYPE(ex) \ ( (((ex).a_info)&0xffff0000) ? (((((ex).a_info))>>16)&0x03ff) : 0 ) # define N_FLAGS(ex) \ ( (((ex).a_info)&0xffff0000) ? ((((ex).a_info)>>26)&0x3f) : 0 ) #define N_SET_INFO(ex, mag,mid,flag) \ ( (ex).a_info = htonl( (((flag)&0x3f)<<26) | (((mid)&0x03ff)<<16) | \ (((mag)&0xffff)) ) ) #define N_SET_MAGIC(exec,magic) \ ((exec).a_info = (((exec).a_info & ~0xffff) | ((magic) & 0xffff))) #define N_SET_MACHTYPE(exec,machtype) \ ((exec).a_info = \ (((exec).a_info & ~(0x3ff<<16)) | (((machtype)&0xff) << 16))) #define N_SET_FLAGS(exec, flags) \ ((exec).a_info = \ (((exec).a_info & ~(0x3f<<26)) | (((flags)&0x3f) << 26))) #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" #define N_GETMAGIC2(ex) \ ( (((ex).a_info)&0xffff0000) ? ((((ex).a_info))&0xffff) : \ (((ex).a_info) | 0x10000) ) #define N_TXTADDR(ex) (N_GETMAGIC2(ex) == (ZMAGIC|0x10000) ? 0 : 4096) #define N_TXTOFF(ex) \ ( N_GETMAGIC2(ex)==ZMAGIC || N_GETMAGIC2(ex)==(QMAGIC|0x10000) ? \ 0 : (N_GETMAGIC2(ex)==(ZMAGIC|0x10000) ? 4096 : EXEC_BYTES_SIZE )) #define N_ALIGN(ex,x) \ (N_MAGIC(ex) == ZMAGIC || N_MAGIC(ex) == QMAGIC ? \ ((x) + 4096 - 1) & ~(4096 - 1) : (x)) #define N_DATADDR(ex) \ N_ALIGN(ex, N_TXTADDR(ex) + (ex).a_text) /* Data segment offset. */ #define N_DATOFF(ex) \ N_ALIGN(ex, N_TXTOFF(ex) + (ex).a_text) /* #define N_BADMAG(x) n_badmag(N_MAGIC(x)) */ /* On NetBSD, the magic number is always in ntohl's "network" (big-endian) format. */ #define SWAP_MAGIC(ext) bfd_getb32 (ext) #include "aout-target.h" #if 0 int n_badmag(x) unsigned long x; { union { unsigned long l; unsigned char c[sizeof(unsigned long)]; } l; unsigned char temp; printf ("x = %o, OMAGIC = %o, NMAGIC = %o, ZMAGIC = %o, QMAGIC = %o\n", x, OMAGIC, NMAGIC, ZMAGIC, QMAGIC); l.l = x; temp = l.c[0]; l.c[0] = l.c[3]; l.c[3] = temp; temp = l.c[2]; l.c[2] = l.c[1]; l.c[1] = temp; printf ("\tbyte-swapped(x) = %o\n", l.l); return (x != OMAGIC && x != NMAGIC && x != ZMAGIC && x != QMAGIC); } #endif gdb-4.13/bfd/netbsd532.c 666 34562 1752 14376 5611327521 13202 0ustar fnfcygnus/* BFD back-end for NetBSD/532 a.out-ish binaries. Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Created by Ian Dall * 5-Jun-94 * * Largely a copy of netbsd386.c plus some code from aout-pc532-mach.c */ #define BYTES_IN_WORD 4 #define ARCH 32 /* ZMAGIC files never include the header in the text. */ #define N_HEADER_IN_TEXT(x) 1 #define PAGE_SIZE 0x1000 /* ZMAGIC files start at address 0. This does not apply to QMAGIC. */ #define TEXT_START_ADDR PAGE_SIZE #define N_SHARED_LIB(x) 0 /* Use a_entry of 0 to distinguish object files from OMAGIC executables */ #define N_TXTADDR(x) \ ((N_MAGIC(x) == OMAGIC) && \ ((x).a_entry < TEXT_START_ADDR) ? 0 : /* object file or NMAGIC */\ N_SHARED_LIB(x) ? 0 : \ N_HEADER_IN_TEXT(x) ? \ TEXT_START_ADDR + EXEC_BYTES_SIZE : /* no padding */\ TEXT_START_ADDR /* a page of padding */\ ) #define SEGMENT_SIZE PAGE_SIZE #define DEFAULT_ARCH bfd_arch_ns32k #define MY(OP) CAT(netbsd532_,OP) /* This needs to start with a.out so GDB knows it is an a.out variant. */ #define TARGETNAME "a.out-netbsd-532" #define MACHTYPE_OK(mtype) ((mtype) == M_532_NETBSD) #define N_MAGIC(ex) \ ( (((ex).a_info)&0xffff0000) ? ((((ex).a_info))&0xffff) : ((ex).a_info)) #define N_MACHTYPE(ex) \ ( (((ex).a_info)&0xffff0000) ? (((((ex).a_info))>>16)&0x03ff) : 0 ) #define N_FLAGS(ex) \ ( (((ex).a_info)&0xffff0000) ? ((((ex).a_info)>>26)&0x3f) : 0 ) #define N_SET_INFO(ex, mag,mid,flag) \ ( (ex).a_info = htonl( (((flag)&0x3f)<<26) | (((mid)&0x03ff)<<16) | \ (((mag)&0xffff)) ) ) #define N_SET_MAGIC(exec,magic) \ ((exec).a_info = (((exec).a_info & ~0xffff) | ((magic) & 0xffff))) #define N_SET_MACHTYPE(exec,machtype) \ ((exec).a_info = \ (((exec).a_info & ~(0x3ff<<16)) | (((machtype)&0xff) << 16))) #define N_SET_FLAGS(exec, flags) \ ((exec).a_info = \ (((exec).a_info & ~(0x3f<<26)) | (((flags)&0x3f) << 26))) #define N_MAG(MAG) ((MAG) == o_magic? OMAGIC: ((MAG) == z_magic? ZMAGIC: ((MAG) == n_magic? NMAGIC: 0))) #define WRITE_HEADERS(abfd, execp) \ { \ bfd_size_type text_size; /* dummy vars */ \ int mag; \ file_ptr text_end; \ if (adata(abfd).magic == undecided_magic) \ NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end); \ mag = adata(abfd).magic; \ N_SET_INFO(*execp, N_MAG(mag), M_532_NETBSD, aout_backend_info (abfd)->exec_hdr_flags); \ \ execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE; \ execp->a_entry = bfd_get_start_address (abfd); \ \ execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * \ obj_reloc_entry_size (abfd)); \ execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * \ obj_reloc_entry_size (abfd)); \ NAME(aout,swap_exec_header_out) (abfd, execp, &exec_bytes); \ \ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) return false; \ if (bfd_write ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd) \ != EXEC_BYTES_SIZE) \ return false; \ /* Now write out reloc info, followed by syms and strings */ \ \ if (bfd_get_outsymbols (abfd) != (asymbol **) NULL \ && bfd_get_symcount (abfd) != 0) \ { \ if (bfd_seek (abfd, (file_ptr)(N_SYMOFF(*execp)), SEEK_SET) \ != 0) \ return false; \ \ if (! NAME(aout,write_syms)(abfd)) return false; \ \ if (bfd_seek (abfd, (file_ptr)(N_TRELOFF(*execp)), SEEK_SET) \ != 0) \ return false; \ \ if (!NAME(aout,squirt_out_relocs) (abfd, obj_textsec (abfd))) \ return false; \ if (bfd_seek (abfd, (file_ptr)(N_DRELOFF(*execp)), SEEK_SET) \ != 0) \ return false; \ \ if (!NAME(aout,squirt_out_relocs)(abfd, obj_datasec (abfd))) \ return false; \ } \ } #include "bfd.h" #include "sysdep.h" #include "aout-ns32k.h" #include "libbfd.h" #include "libaout.h" /* On NetBSD, the magic number is always in ntohl's "network" (big-endian) format. */ #define SWAP_MAGIC(ext) bfd_getb32 (ext) #include "aout/aout64.h" /* Forward declaration. Defined in aout-target.h */ static boolean MY(set_sizes)(); static CONST struct aout_backend_data MY(backend_data) = { 0, /* zmagic contiguous */ 1, /* text incl header */ 0, 0, /* text vma? */ MY(set_sizes), 0, /* exec header is counted */ }; #define MY_backend_data &MY(backend_data) /* We can`t use the MYNS macro here for cpp reasons too subtle * for me -- IWD */ #define MY_bfd_reloc_type_lookup ns32kaout_bfd_reloc_type_lookup /* libaout doesn't use NAME for these ... */ #define MY_get_section_contents aout_32_get_section_contents static boolean MY(write_object_contents) (abfd) bfd *abfd; { struct external_exec exec_bytes; struct internal_exec *execp = exec_hdr (abfd); #if CHOOSE_RELOC_SIZE CHOOSE_RELOC_SIZE(abfd); #else obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; #endif BFD_ASSERT(bfd_get_arch(abfd) == bfd_arch_ns32k); BFD_ASSERT(bfd_get_mach(abfd) == 32532); N_SET_MACHTYPE (*execp, M_532_NETBSD); N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags); WRITE_HEADERS(abfd, execp); return true; } #define MY_write_object_contents MY(write_object_contents) #include "aout-target.h" gdb-4.13/bfd/newsos3.c 666 34562 1752 2643 5610535331 13043 0ustar fnfcygnus/* BFD back-end for NewsOS3 (Sony, 68k) binaries. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define TEXT_START_ADDR 0 #define BYTES_IN_WORD 4 #define MY(OP) CAT(newsos3_,OP) #define TARGETNAME "a.out-newsos3" #define ENTRY_CAN_BE_ZERO #define N_SHARED_LIB(x) 0 /* Avoids warning when compiled with -Wall. */ #define DEFAULT_ARCH bfd_arch_m68k #define TARGET_IS_BIG_ENDIAN_P #define N_HEADER_IN_TEXT(x) 0 #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "aout/aout64.h" #include "aout/stab_gnu.h" #include "aout/ar.h" #include "libaout.h" /* BFD a.out internal data structures */ #include "aout-target.h" gdb-4.13/bfd/nlm-target.h 666 34562 1752 17724 5601410106 13537 0ustar fnfcygnus/* Target definitions for 32/64-bit NLM (NetWare Loadable Module) Copyright (C) 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define nlm_core_file_p _bfd_dummy_target #define nlm_get_symtab_upper_bound nlmNAME(get_symtab_upper_bound) #define nlm_get_symtab nlmNAME(get_symtab) #define nlm_make_empty_symbol nlmNAME(make_empty_symbol) #define nlm_print_symbol nlmNAME(print_symbol) #define nlm_get_symbol_info nlmNAME(get_symbol_info) #define nlm_bfd_is_local_label bfd_generic_is_local_label #define nlm_get_lineno _bfd_nosymbols_get_lineno #define nlm_find_nearest_line _bfd_nosymbols_find_nearest_line #define nlm_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol #define nlm_get_reloc_upper_bound nlmNAME(get_reloc_upper_bound) #define nlm_canonicalize_reloc nlmNAME(canonicalize_reloc) #define nlm_bfd_reloc_type_lookup bfd_default_reloc_type_lookup #define nlm_set_section_contents nlmNAME(set_section_contents) #define nlm_sizeof_headers _bfd_nolink_sizeof_headers #define nlm_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define nlm_bfd_relax_section bfd_generic_relax_section #define nlm_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define nlm_bfd_link_add_symbols _bfd_generic_link_add_symbols #define nlm_bfd_final_link _bfd_generic_final_link /* This structure contains everything that BFD knows about a target. It includes things like its byte order, name, what routines to call to do various operations, etc. Every BFD points to a target structure with its "xvec" member. There are two such structures here: one for big-endian machines and one for little-endian machines. */ #ifdef TARGET_BIG_SYM const bfd_target TARGET_BIG_SYM = { /* name: identify kind of target */ TARGET_BIG_NAME, /* flavour: general indication about file */ bfd_target_nlm_flavour, /* byteorder_big_p: data is big endian */ true, /* header_byteorder_big_p: header is also big endian */ true, /* object_flags: mask of all file flags */ (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), /* section_flags: mask of all section flags */ (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_READONLY | SEC_CODE | SEC_DATA), /* leading_symbol_char: is the first char of a user symbol predictable, and if so what is it */ 0, /* ar_pad_char: pad character for filenames within an archive header FIXME: this really has nothing to do with NLM, this is a characteristic of the archiver and/or os and should be independently tunable */ '/', /* ar_max_namelen: maximum number of characters in an archive header FIXME: this really has nothing to do with NLM, this is a characteristic of the archiver and should be independently tunable. This value is a WAG (wild a** guess) */ 15, /* align_power_min: minimum alignment restriction for any section FIXME: this value may be target machine dependent */ 3, /* Routines to byte-swap various sized integers from the data sections */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Routines to byte-swap various sized integers from the file headers */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* bfd_check_format: check the format of a file being read */ { _bfd_dummy_target, /* unknown format */ nlmNAME(object_p), /* assembler/linker output (object file) */ bfd_generic_archive_p, /* an archive */ nlm_core_file_p /* a core file */ }, /* bfd_set_format: set the format of a file being written */ { bfd_false, nlm_mkobject, _bfd_generic_mkarchive, bfd_false }, /* bfd_write_contents: write cached information into a file being written */ { bfd_false, nlmNAME(write_object_contents), _bfd_write_archive_contents, bfd_false }, /* Initialize a jump table with the standard macro. All names start with "nlm" */ BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (nlm), BFD_JUMP_TABLE_RELOCS (nlm), BFD_JUMP_TABLE_WRITE (nlm), BFD_JUMP_TABLE_LINK (nlm), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), /* backend_data: */ (PTR) TARGET_BACKEND_DATA }; #endif #ifdef TARGET_LITTLE_SYM const bfd_target TARGET_LITTLE_SYM = { /* name: identify kind of target */ TARGET_LITTLE_NAME, /* flavour: general indication about file */ bfd_target_nlm_flavour, /* byteorder_big_p: data is big endian */ false, /* Nope -- this one's little endian */ /* header_byteorder_big_p: header is also big endian */ false, /* Nope -- this one's little endian */ /* object_flags: mask of all file flags */ (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT), /* section_flags: mask of all section flags */ (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_READONLY | SEC_DATA), /* leading_symbol_char: is the first char of a user symbol predictable, and if so what is it */ 0, /* ar_pad_char: pad character for filenames within an archive header FIXME: this really has nothing to do with NLM, this is a characteristic of the archiver and/or os and should be independently tunable */ '/', /* ar_max_namelen: maximum number of characters in an archive header FIXME: this really has nothing to do with NLM, this is a characteristic of the archiver and should be independently tunable. This value is a WAG (wild a** guess) */ 15, /* align_power_min: minimum alignment restriction for any section FIXME: this value may be target machine dependent */ 3, /* Routines to byte-swap various sized integers from the data sections */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Routines to byte-swap various sized integers from the file headers */ bfd_getl64, bfd_getl_signed_64, bfd_putl64, bfd_getl32, bfd_getl_signed_32, bfd_putl32, bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* bfd_check_format: check the format of a file being read */ { _bfd_dummy_target, /* unknown format */ nlmNAME(object_p), /* assembler/linker output (object file) */ bfd_generic_archive_p, /* an archive */ nlm_core_file_p /* a core file */ }, /* bfd_set_format: set the format of a file being written */ { bfd_false, nlm_mkobject, _bfd_generic_mkarchive, bfd_false }, /* bfd_write_contents: write cached information into a file being written */ { bfd_false, nlmNAME(write_object_contents), _bfd_write_archive_contents, bfd_false }, /* Initialize a jump table with the standard macro. All names start with "nlm" */ BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (nlm), BFD_JUMP_TABLE_RELOCS (nlm), BFD_JUMP_TABLE_WRITE (nlm), BFD_JUMP_TABLE_LINK (nlm), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), /* backend_data: */ (PTR) TARGET_BACKEND_DATA }; #endif gdb-4.13/bfd/nlm.c 666 34562 1752 3373 5530731071 12231 0ustar fnfcygnus/* NLM (NetWare Loadable Module) executable support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libnlm.h" /* Make an NLM object. We just need to allocate the backend information. */ boolean nlm_mkobject (abfd) bfd * abfd; { nlm_tdata (abfd) = (struct nlm_obj_tdata *) bfd_zalloc (abfd, sizeof (struct nlm_obj_tdata)); if (nlm_tdata (abfd) == NULL) { bfd_set_error (bfd_error_no_memory); return (false); } if (nlm_architecture (abfd) != bfd_arch_unknown) bfd_default_set_arch_mach (abfd, nlm_architecture (abfd), nlm_machine (abfd)); /* since everything is done at close time, do we need any initialization? */ return (true); } /* Set the architecture and machine for an NLM object. */ boolean nlm_set_arch_mach (abfd, arch, machine) bfd * abfd; enum bfd_architecture arch; unsigned long machine; { bfd_default_set_arch_mach (abfd, arch, machine); return arch == nlm_architecture (abfd); } gdb-4.13/bfd/nlm32-alpha.c 666 34562 1752 64134 5601614630 13503 0ustar fnfcygnus/* Support for 32-bit Alpha NLM (NetWare Loadable Module) Copyright (C) 1993 Free Software Foundation, Inc. Written by Ian Lance Taylor, Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file describes the 32 bit Alpha NLM format. You might think that an Alpha chip would use a 64 bit format, but, for some reason, it doesn't. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #define ARCH_SIZE 32 #include "nlm/alpha-ext.h" #define Nlm_External_Fixed_Header Nlm32_alpha_External_Fixed_Header #include "libnlm.h" static boolean nlm_alpha_backend_object_p PARAMS ((bfd *)); static boolean nlm_alpha_write_prefix PARAMS ((bfd *)); static boolean nlm_alpha_read_reloc PARAMS ((bfd *, nlmNAME(symbol_type) *, asection **, arelent *)); static boolean nlm_alpha_mangle_relocs PARAMS ((bfd *, asection *, PTR, bfd_vma, bfd_size_type)); static boolean nlm_alpha_read_import PARAMS ((bfd *, nlmNAME(symbol_type) *)); static boolean nlm_alpha_write_import PARAMS ((bfd *, asection *, arelent *)); static boolean nlm_alpha_set_public_section PARAMS ((bfd *, nlmNAME(symbol_type) *)); static bfd_vma nlm_alpha_get_public_offset PARAMS ((bfd *, asymbol *)); static boolean nlm_alpha_write_external PARAMS ((bfd *, bfd_size_type, asymbol *, struct reloc_and_sec *)); /* Alpha NLM's have a prefix header before the standard NLM. This function reads it in, verifies the version, and seeks the bfd to the location before the regular NLM header. */ static boolean nlm_alpha_backend_object_p (abfd) bfd *abfd; { struct nlm32_alpha_external_prefix_header s; bfd_size_type size; if (bfd_read ((PTR) &s, sizeof s, 1, abfd) != sizeof s) return false; if (bfd_h_get_32 (abfd, s.magic) != NLM32_ALPHA_MAGIC) return false; /* FIXME: Should we check the format number? */ /* Skip to the end of the header. */ size = bfd_h_get_32 (abfd, s.size); if (bfd_seek (abfd, size, SEEK_SET) != 0) return false; return true; } /* Write out the prefix. */ static boolean nlm_alpha_write_prefix (abfd) bfd *abfd; { struct nlm32_alpha_external_prefix_header s; memset (&s, 0, sizeof s); bfd_h_put_32 (abfd, (bfd_vma) NLM32_ALPHA_MAGIC, s.magic); bfd_h_put_32 (abfd, (bfd_vma) 2, s.format); bfd_h_put_32 (abfd, (bfd_vma) sizeof s, s.size); if (bfd_write ((PTR) &s, sizeof s, 1, abfd) != sizeof s) return false; return true; } /* How to process the various reloc types. */ static reloc_howto_type nlm32_alpha_howto_table[] = { /* Reloc type 0 is ignored by itself. However, it appears after a GPDISP reloc to identify the location where the low order 16 bits of the gp register are loaded. */ HOWTO (ALPHA_R_IGNORE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 8, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "IGNORE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* A 32 bit reference to a symbol. */ HOWTO (ALPHA_R_REFLONG, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "REFLONG", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* A 64 bit reference to a symbol. */ HOWTO (ALPHA_R_REFQUAD, /* type */ 0, /* rightshift */ 4, /* size (0 = byte, 1 = short, 2 = long) */ 64, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "REFQUAD", /* name */ true, /* partial_inplace */ 0xffffffffffffffff, /* src_mask */ 0xffffffffffffffff, /* dst_mask */ false), /* pcrel_offset */ /* A 32 bit GP relative offset. This is just like REFLONG except that when the value is used the value of the gp register will be added in. */ HOWTO (ALPHA_R_GPREL32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "GPREL32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Used for an instruction that refers to memory off the GP register. The offset is 16 bits of the 32 bit instruction. This reloc always seems to be against the .lita section. */ HOWTO (ALPHA_R_LITERAL, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "LITERAL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* This reloc only appears immediately following a LITERAL reloc. It identifies a use of the literal. It seems that the linker can use this to eliminate a portion of the .lita section. The symbol index is special: 1 means the literal address is in the base register of a memory format instruction; 2 means the literal address is in the byte offset register of a byte-manipulation instruction; 3 means the literal address is in the target register of a jsr instruction. This does not actually do any relocation. */ HOWTO (ALPHA_R_LITUSE, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "LITUSE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Load the gp register. This is always used for a ldah instruction which loads the upper 16 bits of the gp register. The next reloc will be an IGNORE reloc which identifies the location of the lda instruction which loads the lower 16 bits. The symbol index of the GPDISP instruction appears to actually be the number of bytes between the ldah and lda instructions. This gives two different ways to determine where the lda instruction is; I don't know why both are used. The value to use for the relocation is the difference between the GP value and the current location; the load will always be done against a register holding the current address. */ HOWTO (ALPHA_R_GPDISP, /* type */ 16, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "GPDISP", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ true), /* pcrel_offset */ /* A 21 bit branch. The native assembler generates these for branches within the text segment, and also fills in the PC relative offset in the instruction. It seems to me that this reloc, unlike the others, is not partial_inplace. */ HOWTO (ALPHA_R_BRADDR, /* type */ 2, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 21, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "BRADDR", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0x1fffff, /* dst_mask */ false), /* pcrel_offset */ /* A hint for a jump to a register. */ HOWTO (ALPHA_R_HINT, /* type */ 2, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 14, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "HINT", /* name */ true, /* partial_inplace */ 0x3fff, /* src_mask */ 0x3fff, /* dst_mask */ false), /* pcrel_offset */ /* 16 bit PC relative offset. */ HOWTO (ALPHA_R_SREL16, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "SREL16", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* 32 bit PC relative offset. */ HOWTO (ALPHA_R_SREL32, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "SREL32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* A 64 bit PC relative offset. */ HOWTO (ALPHA_R_SREL64, /* type */ 0, /* rightshift */ 4, /* size (0 = byte, 1 = short, 2 = long) */ 64, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "SREL64", /* name */ true, /* partial_inplace */ 0xffffffffffffffff, /* src_mask */ 0xffffffffffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Push a value on the reloc evaluation stack. */ HOWTO (ALPHA_R_OP_PUSH, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "OP_PUSH", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Store the value from the stack at the given address. Store it in a bitfield of size r_size starting at bit position r_offset. */ HOWTO (ALPHA_R_OP_STORE, /* type */ 0, /* rightshift */ 4, /* size (0 = byte, 1 = short, 2 = long) */ 64, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "OP_STORE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0xffffffffffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Subtract the reloc address from the value on the top of the relocation stack. */ HOWTO (ALPHA_R_OP_PSUB, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "OP_PSUB", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Shift the value on the top of the relocation stack right by the given value. */ HOWTO (ALPHA_R_OP_PRSHIFT, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "OP_PRSHIFT", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ /* Adjust the GP value for a new range in the object file. */ HOWTO (ALPHA_R_GPVALUE, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "GPVALUE", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false) /* pcrel_offset */ }; static reloc_howto_type nlm32_alpha_nw_howto = HOWTO (ALPHA_R_NW_RELOC, /* type */ 0, /* rightshift */ 0, /* size (0 = byte, 1 = short, 2 = long) */ 0, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_dont, /* complain_on_overflow */ 0, /* special_function */ "NW_RELOC", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false); /* pcrel_offset */ /* Read an Alpha NLM reloc. This routine keeps some static data which it uses when handling local relocs. This only works correctly because all the local relocs are read at once. */ static boolean nlm_alpha_read_reloc (abfd, sym, secp, rel) bfd *abfd; nlmNAME(symbol_type) *sym; asection **secp; arelent *rel; { static bfd_vma gp_value; static bfd_vma lita_address; struct nlm32_alpha_external_reloc ext; bfd_vma r_vaddr; long r_symndx; int r_type, r_extern, r_offset, r_size; asection *code_sec, *data_sec; /* Read the reloc from the file. */ if (bfd_read (&ext, sizeof ext, 1, abfd) != sizeof ext) return false; /* Swap in the reloc information. */ r_vaddr = bfd_h_get_64 (abfd, (bfd_byte *) ext.r_vaddr); r_symndx = bfd_h_get_32 (abfd, (bfd_byte *) ext.r_symndx); BFD_ASSERT (abfd->xvec->header_byteorder_big_p == false); r_type = ((ext.r_bits[0] & RELOC_BITS0_TYPE_LITTLE) >> RELOC_BITS0_TYPE_SH_LITTLE); r_extern = (ext.r_bits[1] & RELOC_BITS1_EXTERN_LITTLE) != 0; r_offset = ((ext.r_bits[1] & RELOC_BITS1_OFFSET_LITTLE) >> RELOC_BITS1_OFFSET_SH_LITTLE); /* Ignore the reserved bits. */ r_size = ((ext.r_bits[3] & RELOC_BITS3_SIZE_LITTLE) >> RELOC_BITS3_SIZE_SH_LITTLE); /* Fill in the BFD arelent structure. */ code_sec = bfd_get_section_by_name (abfd, NLM_CODE_NAME); data_sec = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); if (r_extern) { /* External relocations are only used for imports. */ BFD_ASSERT (sym != NULL); /* We don't need to set sym_ptr_ptr for this case. It is set in nlm_canonicalize_reloc. */ rel->sym_ptr_ptr = NULL; rel->addend = 0; } else { /* Internal relocations are only used for local relocation fixups. If they are not NW_RELOC or GPDISP or IGNORE, they must be against .text or .data. */ BFD_ASSERT (r_type == ALPHA_R_NW_RELOC || sym == NULL); if (r_type == ALPHA_R_NW_RELOC || r_type == ALPHA_R_GPDISP || r_type == ALPHA_R_IGNORE) { rel->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; rel->addend = 0; } else if (r_symndx == ALPHA_RELOC_SECTION_TEXT) { rel->sym_ptr_ptr = code_sec->symbol_ptr_ptr; BFD_ASSERT (bfd_get_section_vma (abfd, code_sec) == 0); rel->addend = 0; } else if (r_symndx == ALPHA_RELOC_SECTION_DATA) { rel->sym_ptr_ptr = data_sec->symbol_ptr_ptr; rel->addend = - bfd_get_section_vma (abfd, data_sec); } else { BFD_ASSERT (0); rel->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; rel->addend = 0; } } /* We use the address to determine whether the reloc is in the .text or .data section. R_NW_RELOC relocs don't really have a section, so we put them in .text. */ if (r_type == ALPHA_R_NW_RELOC || r_vaddr < bfd_section_size (abfd, code_sec)) { *secp = code_sec; rel->address = r_vaddr; } else { *secp = data_sec; rel->address = r_vaddr - bfd_section_size (abfd, code_sec); } /* We must adjust the addend based on the type. */ BFD_ASSERT ((r_type >= 0 && r_type <= ALPHA_R_GPVALUE) || r_type == ALPHA_R_NW_RELOC); switch (r_type) { case ALPHA_R_BRADDR: case ALPHA_R_SREL16: case ALPHA_R_SREL32: case ALPHA_R_SREL64: /* The PC relative relocs do not seem to use the section VMA as a negative addend. */ rel->addend = 0; break; case ALPHA_R_GPREL32: /* Copy the gp value for this object file into the addend, to ensure that we are not confused by the linker. */ if (! r_extern) rel->addend += gp_value; break; case ALPHA_R_LITERAL: BFD_ASSERT (! r_extern); rel->addend += lita_address; break; case ALPHA_R_LITUSE: case ALPHA_R_GPDISP: /* The LITUSE and GPDISP relocs do not use a symbol, or an addend, but they do use a special code. Put this code in the addend field. */ rel->addend = r_symndx; rel->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; break; case ALPHA_R_OP_STORE: /* The STORE reloc needs the size and offset fields. We store them in the addend. */ BFD_ASSERT (r_offset < 256 && r_size < 256); rel->addend = (r_offset << 8) + r_size; break; case ALPHA_R_OP_PUSH: case ALPHA_R_OP_PSUB: case ALPHA_R_OP_PRSHIFT: /* The PUSH, PSUB and PRSHIFT relocs do not actually use an address. I believe that the address supplied is really an addend. */ rel->addend = r_vaddr; break; case ALPHA_R_GPVALUE: /* Record the new gp value. */ gp_value += r_symndx; rel->addend = gp_value; break; case ALPHA_R_IGNORE: /* If the type is ALPHA_R_IGNORE, make sure this is a reference to the absolute section so that the reloc is ignored. For some reason the address of this reloc type is not adjusted by the section vma. We record the gp value for this object file here, for convenience when doing the GPDISP relocation. */ rel->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; rel->address = r_vaddr; rel->addend = gp_value; break; case ALPHA_R_NW_RELOC: /* If this is SETGP, we set the addend to 0. Otherwise we set the addend to the size of the .lita section (this is r_symndx) plus 1. We have already set the address of the reloc to r_vaddr. */ if (r_size == ALPHA_R_NW_RELOC_SETGP) { gp_value = r_vaddr; rel->addend = 0; } else if (r_size == ALPHA_R_NW_RELOC_LITA) { lita_address = r_vaddr; rel->addend = r_symndx + 1; } else BFD_ASSERT (0); rel->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; break; default: break; } if (r_type == ALPHA_R_NW_RELOC) rel->howto = &nlm32_alpha_nw_howto; else rel->howto = &nlm32_alpha_howto_table[r_type]; return true; } /* Mangle Alpha NLM relocs for output. */ static boolean nlm_alpha_mangle_relocs (abfd, sec, data, offset, count) bfd *abfd; asection *sec; PTR data; bfd_vma offset; bfd_size_type count; { return true; } /* Read an ALPHA NLM import record */ static boolean nlm_alpha_read_import (abfd, sym) bfd *abfd; nlmNAME(symbol_type) *sym; { struct nlm_relent *nlm_relocs; /* relocation records for symbol */ bfd_size_type rcount; /* number of relocs */ bfd_byte temp[NLM_TARGET_LONG_SIZE]; /* temporary 32-bit value */ unsigned char symlength; /* length of symbol name */ char *name; if (bfd_read ((PTR) &symlength, sizeof (symlength), 1, abfd) != sizeof (symlength)) return false; sym -> symbol.the_bfd = abfd; name = bfd_alloc (abfd, symlength + 1); if (name == NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read (name, symlength, 1, abfd) != symlength) return false; name[symlength] = '\0'; sym -> symbol.name = name; sym -> symbol.flags = 0; sym -> symbol.value = 0; sym -> symbol.section = bfd_und_section_ptr; if (bfd_read ((PTR) temp, sizeof (temp), 1, abfd) != sizeof (temp)) return false; rcount = bfd_h_get_32 (abfd, temp); nlm_relocs = ((struct nlm_relent *) bfd_alloc (abfd, rcount * sizeof (struct nlm_relent))); if (!nlm_relocs) { bfd_set_error (bfd_error_no_memory); return false; } sym -> relocs = nlm_relocs; sym -> rcnt = 0; while (sym -> rcnt < rcount) { asection *section; if (nlm_alpha_read_reloc (abfd, sym, §ion, &nlm_relocs -> reloc) == false) return false; nlm_relocs -> section = section; nlm_relocs++; sym -> rcnt++; } return true; } /* Write an Alpha NLM reloc. */ static boolean nlm_alpha_write_import (abfd, sec, rel) bfd *abfd; asection *sec; arelent *rel; { asymbol *sym; bfd_vma r_vaddr; long r_symndx; int r_type, r_extern, r_offset, r_size; struct nlm32_alpha_external_reloc ext; sym = *rel->sym_ptr_ptr; /* Get values for the relocation fields. */ r_type = rel->howto->type; if (r_type != ALPHA_R_NW_RELOC) { r_vaddr = bfd_get_section_vma (abfd, sec) + rel->address; if ((sec->flags & SEC_CODE) == 0) r_vaddr += bfd_section_size (abfd, bfd_get_section_by_name (abfd, NLM_CODE_NAME)); if (bfd_is_und_section (bfd_get_section (sym))) { r_extern = 1; r_symndx = 0; } else { r_extern = 0; if (bfd_get_section_flags (abfd, bfd_get_section (sym)) & SEC_CODE) r_symndx = ALPHA_RELOC_SECTION_TEXT; else r_symndx = ALPHA_RELOC_SECTION_DATA; } r_offset = 0; r_size = 0; switch (r_type) { case ALPHA_R_LITUSE: case ALPHA_R_GPDISP: r_symndx = rel->addend; break; case ALPHA_R_OP_STORE: r_size = rel->addend & 0xff; r_offset = (rel->addend >> 8) & 0xff; break; case ALPHA_R_OP_PUSH: case ALPHA_R_OP_PSUB: case ALPHA_R_OP_PRSHIFT: r_vaddr = rel->addend; break; case ALPHA_R_IGNORE: r_vaddr = rel->address; break; default: break; } } else { /* r_type == ALPHA_R_NW_RELOC */ r_vaddr = rel->address; if (rel->addend == 0) { r_symndx = 0; r_size = ALPHA_R_NW_RELOC_SETGP; } else { r_symndx = rel->addend - 1; r_size = ALPHA_R_NW_RELOC_LITA; } r_extern = 0; r_offset = 0; } /* Swap out the relocation fields. */ bfd_h_put_64 (abfd, r_vaddr, (bfd_byte *) ext.r_vaddr); bfd_h_put_32 (abfd, r_symndx, (bfd_byte *) ext.r_symndx); BFD_ASSERT (abfd->xvec->header_byteorder_big_p == false); ext.r_bits[0] = ((r_type << RELOC_BITS0_TYPE_SH_LITTLE) & RELOC_BITS0_TYPE_LITTLE); ext.r_bits[1] = ((r_extern ? RELOC_BITS1_EXTERN_LITTLE : 0) | ((r_offset << RELOC_BITS1_OFFSET_SH_LITTLE) & RELOC_BITS1_OFFSET_LITTLE)); ext.r_bits[2] = 0; ext.r_bits[3] = ((r_size << RELOC_BITS3_SIZE_SH_LITTLE) & RELOC_BITS3_SIZE_LITTLE); /* Write out the relocation. */ if (bfd_write (&ext, sizeof ext, 1, abfd) != sizeof ext) return false; return true; } /* Alpha NetWare does not use the high bit to determine whether a public symbol is in the code segment or the data segment. Instead, it just uses the address. The set_public_section and get_public_offset routines override the default code which uses the high bit. */ /* Set the section for a public symbol. */ static boolean nlm_alpha_set_public_section (abfd, sym) bfd *abfd; nlmNAME(symbol_type) *sym; { asection *code_sec, *data_sec; code_sec = bfd_get_section_by_name (abfd, NLM_CODE_NAME); data_sec = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); if (sym->symbol.value < bfd_section_size (abfd, code_sec)) { sym->symbol.section = code_sec; sym->symbol.flags |= BSF_FUNCTION; } else { sym->symbol.section = data_sec; sym->symbol.value -= bfd_section_size (abfd, code_sec); /* The data segment had better be aligned. */ BFD_ASSERT ((bfd_section_size (abfd, code_sec) & 0xf) == 0); } return true; } /* Get the offset to write out for a public symbol. */ static bfd_vma nlm_alpha_get_public_offset (abfd, sym) bfd *abfd; asymbol *sym; { return bfd_asymbol_value (sym); } /* Write an Alpha NLM external symbol. */ static boolean nlm_alpha_write_external (abfd, count, sym, relocs) bfd *abfd; bfd_size_type count; asymbol *sym; struct reloc_and_sec *relocs; { int i; bfd_byte len; unsigned char temp[NLM_TARGET_LONG_SIZE]; arelent r; len = strlen (sym->name); if ((bfd_write (&len, sizeof (bfd_byte), 1, abfd) != sizeof(bfd_byte)) || bfd_write (sym->name, len, 1, abfd) != len) return false; bfd_put_32 (abfd, count + 2, temp); if (bfd_write (temp, sizeof (temp), 1, abfd) != sizeof (temp)) return false; /* The first two relocs for each external symbol are the .lita address and the GP value. */ r.sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; r.howto = &nlm32_alpha_nw_howto; r.address = nlm_alpha_backend_data (abfd)->lita_address; r.addend = nlm_alpha_backend_data (abfd)->lita_size + 1; if (nlm_alpha_write_import (abfd, (asection *) NULL, &r) == false) return false; r.address = nlm_alpha_backend_data (abfd)->gp; r.addend = 0; if (nlm_alpha_write_import (abfd, (asection *) NULL, &r) == false) return false; for (i = 0; i < count; i++) { if (nlm_alpha_write_import (abfd, relocs[i].sec, relocs[i].rel) == false) return false; } return true; } #include "nlmswap.h" static const struct nlm_backend_data nlm32_alpha_backend = { "NetWare Alpha Module \032", sizeof (Nlm32_alpha_External_Fixed_Header), sizeof (struct nlm32_alpha_external_prefix_header), bfd_arch_alpha, 0, true, /* no uninitialized data permitted by Alpha NetWare. */ nlm_alpha_backend_object_p, nlm_alpha_write_prefix, nlm_alpha_read_reloc, nlm_alpha_mangle_relocs, nlm_alpha_read_import, nlm_alpha_write_import, nlm_alpha_set_public_section, nlm_alpha_get_public_offset, nlm_swap_fixed_header_in, nlm_swap_fixed_header_out, nlm_alpha_write_external, 0, /* write_export */ }; #define TARGET_LITTLE_NAME "nlm32-alpha" #define TARGET_LITTLE_SYM nlmNAME(alpha_vec) #define TARGET_BACKEND_DATA &nlm32_alpha_backend #include "nlm-target.h" gdb-4.13/bfd/nlm32-i386.c 666 34562 1752 32076 5601614631 13110 0ustar fnfcygnus/* Support for 32-bit i386 NLM (NetWare Loadable Module) Copyright (C) 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #define ARCH_SIZE 32 #include "nlm/i386-ext.h" #define Nlm_External_Fixed_Header Nlm32_i386_External_Fixed_Header #include "libnlm.h" static boolean nlm_i386_read_reloc PARAMS ((bfd *, nlmNAME(symbol_type) *, asection **, arelent *)); static boolean nlm_i386_write_import PARAMS ((bfd *, asection *, arelent *)); static boolean nlm_i386_mangle_relocs PARAMS ((bfd *, asection *, PTR, bfd_vma, bfd_size_type)); static boolean nlm_i386_read_import PARAMS ((bfd *, nlmNAME(symbol_type) *)); static boolean nlm_i386_write_external PARAMS ((bfd *, bfd_size_type, asymbol *, struct reloc_and_sec *)); /* Adjust the reloc location by an absolute value. */ static reloc_howto_type nlm_i386_abs_howto = HOWTO (0, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false); /* pcrel_offset */ /* Adjust the reloc location by a PC relative displacement. */ static reloc_howto_type nlm_i386_pcrel_howto = HOWTO (1, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "DISP32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ true); /* pcrel_offset */ /* Read a NetWare i386 reloc. */ static boolean nlm_i386_read_reloc (abfd, sym, secp, rel) bfd *abfd; nlmNAME(symbol_type) *sym; asection **secp; arelent *rel; { bfd_byte temp[4]; bfd_vma val; const char *name; if (bfd_read (temp, sizeof (temp), 1, abfd) != sizeof (temp)) return false; val = bfd_get_32 (abfd, temp); /* The value is an offset into either the code or data segment. This is the location which needs to be adjusted. If this is a relocation fixup rather than an imported symbol (the sym argument is NULL) then the high bit is 0 if the location needs to be adjusted by the address of the data segment, or 1 if the location needs to be adjusted by the address of the code segment. If this is an imported symbol, then the high bit is 0 if the location is 0 if the location should be adjusted by the offset to the symbol, or 1 if the location should adjusted by the absolute value of the symbol. The second most significant bit is 0 if the value is an offset into the data segment, or 1 if the value is an offset into the code segment. All this translates fairly easily into a BFD reloc. */ if (sym == NULL) { if ((val & NLM_HIBIT) == 0) name = NLM_INITIALIZED_DATA_NAME; else { name = NLM_CODE_NAME; val &=~ NLM_HIBIT; } rel->sym_ptr_ptr = bfd_get_section_by_name (abfd, name)->symbol_ptr_ptr; rel->howto = &nlm_i386_abs_howto; } else { /* In this case we do not need to set the sym_ptr_ptr field. */ rel->sym_ptr_ptr = NULL; if ((val & NLM_HIBIT) == 0) rel->howto = &nlm_i386_pcrel_howto; else { rel->howto = &nlm_i386_abs_howto; val &=~ NLM_HIBIT; } } if ((val & (NLM_HIBIT >> 1)) == 0) *secp = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); else { *secp = bfd_get_section_by_name (abfd, NLM_CODE_NAME); val &=~ (NLM_HIBIT >> 1); } rel->address = val; rel->addend = 0; return true; } /* Write a NetWare i386 reloc. */ static boolean nlm_i386_write_import (abfd, sec, rel) bfd *abfd; asection *sec; arelent *rel; { asymbol *sym; bfd_vma val; bfd_byte temp[4]; /* NetWare only supports two kinds of relocs. We should check special_function here, as well, but at the moment coff-i386 relocs uses a special_function which does not affect what we do here. */ if (rel->addend != 0 || rel->howto == NULL || rel->howto->rightshift != 0 || rel->howto->size != 2 || rel->howto->bitsize != 32 || rel->howto->bitpos != 0 || rel->howto->src_mask != 0xffffffff || rel->howto->dst_mask != 0xffffffff) { bfd_set_error (bfd_error_invalid_operation); return false; } sym = *rel->sym_ptr_ptr; /* The value we write out is the offset into the appropriate segment. This offset is the section vma, adjusted by the vma of the lowest section in that segment, plus the address of the relocation. */ val = bfd_get_section_vma (abfd, sec) + rel->address; /* The second most significant bit is 0 if the value is an offset into the data segment, or 1 if the value is an offset into the code segment. */ if (bfd_get_section_flags (abfd, sec) & SEC_CODE) { val -= nlm_get_text_low (abfd); val |= NLM_HIBIT >> 1; } else val -= nlm_get_data_low (abfd); if (! bfd_is_und_section (bfd_get_section (sym))) { /* NetWare only supports absolute internal relocs. */ if (rel->howto->pc_relative) { bfd_set_error (bfd_error_invalid_operation); return false; } /* The high bit is 1 if the reloc is against the code section, 0 if against the data section. */ if (bfd_get_section_flags (abfd, bfd_get_section (sym)) & SEC_CODE) val |= NLM_HIBIT; } else { /* The high bit is 1 if this is an absolute reloc, 0 if it is PC relative. */ if (! rel->howto->pc_relative) val |= NLM_HIBIT; else { /* PC relative relocs on NetWare must be pcrel_offset. */ if (! rel->howto->pcrel_offset) { bfd_set_error (bfd_error_invalid_operation); return false; } } } bfd_put_32 (abfd, val, temp); if (bfd_write (temp, sizeof (temp), 1, abfd) != sizeof (temp)) return false; return true; } /* I want to be able to use objcopy to turn a i386 a.out or COFF file into a NetWare i386 module. That means that the relocs from the source file have to be mapped into relocs that apply to the target file. This function is called by nlm_set_section_contents to give it a chance to rework the relocs. This is actually a fairly general concept. However, this is not a general implementation. */ static boolean nlm_i386_mangle_relocs (abfd, sec, data, offset, count) bfd *abfd; asection *sec; PTR data; bfd_vma offset; bfd_size_type count; { arelent **rel_ptr_ptr, **rel_end; rel_ptr_ptr = sec->orelocation; rel_end = rel_ptr_ptr + sec->reloc_count; for (; rel_ptr_ptr < rel_end; rel_ptr_ptr++) { arelent *rel; asymbol *sym; bfd_vma addend; rel = *rel_ptr_ptr; sym = *rel->sym_ptr_ptr; /* Note that no serious harm will ensue if we fail to change a reloc. We will wind up failing in nlm_i386_write_import. */ /* Make sure this reloc is within the data we have. We only 4 byte relocs here, so we insist on having 4 bytes. */ if (rel->address < offset || rel->address + 4 > offset + count) continue; /* NetWare doesn't support reloc addends, so we get rid of them here by simply adding them into the object data. We handle the symbol value, if any, the same way. */ addend = rel->addend + sym->value; /* The value of a symbol is the offset into the section. If the symbol is in the .bss segment, we need to include the size of the data segment in the offset as well. Fortunately, we know that at this point the size of the data section is in the NLM header. */ if (((bfd_get_section_flags (abfd, bfd_get_section (sym)) & SEC_LOAD) == 0) && ((bfd_get_section_flags (abfd, bfd_get_section (sym)) & SEC_ALLOC) != 0)) addend += nlm_fixed_header (abfd)->dataImageSize; if (addend != 0 && rel->howto != NULL && rel->howto->rightshift == 0 && rel->howto->size == 2 && rel->howto->bitsize == 32 && rel->howto->bitpos == 0 && rel->howto->src_mask == 0xffffffff && rel->howto->dst_mask == 0xffffffff) { bfd_vma val; val = bfd_get_32 (abfd, (bfd_byte *) data + rel->address - offset); val += addend; bfd_put_32 (abfd, val, (bfd_byte *) data + rel->address - offset); rel->addend = 0; } /* NetWare uses a reloc with pcrel_offset set. We adjust pc_relative relocs accordingly. We are going to change the howto field, so we can only do this if the current one is compatible. We should check special_function here, but at the moment coff-i386 uses a special_function which does not affect what we are doing here. */ if (rel->howto != NULL && rel->howto->pc_relative && ! rel->howto->pcrel_offset && rel->howto->rightshift == 0 && rel->howto->size == 2 && rel->howto->bitsize == 32 && rel->howto->bitpos == 0 && rel->howto->src_mask == 0xffffffff && rel->howto->dst_mask == 0xffffffff) { bfd_vma val; /* When pcrel_offset is not set, it means that the negative of the address of the memory location is stored in the memory location. We must add it back in. */ val = bfd_get_32 (abfd, (bfd_byte *) data + rel->address - offset); val += rel->address; bfd_put_32 (abfd, val, (bfd_byte *) data + rel->address - offset); rel->howto = &nlm_i386_pcrel_howto; } } return true; } /* Read a NetWare i386 import record */ static boolean nlm_i386_read_import (abfd, sym) bfd *abfd; nlmNAME(symbol_type) *sym; { struct nlm_relent *nlm_relocs; /* relocation records for symbol */ bfd_size_type rcount; /* number of relocs */ bfd_byte temp[NLM_TARGET_LONG_SIZE]; /* temporary 32-bit value */ unsigned char symlength; /* length of symbol name */ char *name; if (bfd_read ((PTR) &symlength, sizeof (symlength), 1, abfd) != sizeof (symlength)) return false; sym -> symbol.the_bfd = abfd; name = bfd_alloc (abfd, symlength + 1); if (name == NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read (name, symlength, 1, abfd) != symlength) return false; name[symlength] = '\0'; sym -> symbol.name = name; sym -> symbol.flags = 0; sym -> symbol.value = 0; sym -> symbol.section = bfd_und_section_ptr; if (bfd_read ((PTR) temp, sizeof (temp), 1, abfd) != sizeof (temp)) return false; rcount = bfd_h_get_32 (abfd, temp); nlm_relocs = ((struct nlm_relent *) bfd_alloc (abfd, rcount * sizeof (struct nlm_relent))); if (!nlm_relocs) { bfd_set_error (bfd_error_no_memory); return false; } sym -> relocs = nlm_relocs; sym -> rcnt = 0; while (sym -> rcnt < rcount) { asection *section; if (nlm_i386_read_reloc (abfd, sym, §ion, &nlm_relocs -> reloc) == false) return false; nlm_relocs -> section = section; nlm_relocs++; sym -> rcnt++; } return true; } /* Write out an external reference. */ static boolean nlm_i386_write_external (abfd, count, sym, relocs) bfd *abfd; bfd_size_type count; asymbol *sym; struct reloc_and_sec *relocs; { int i; bfd_byte len; unsigned char temp[NLM_TARGET_LONG_SIZE]; len = strlen (sym->name); if ((bfd_write (&len, sizeof (bfd_byte), 1, abfd) != sizeof(bfd_byte)) || bfd_write (sym->name, len, 1, abfd) != len) return false; bfd_put_32 (abfd, count, temp); if (bfd_write (temp, sizeof(temp), 1, abfd) != sizeof (temp)) return false; for (i = 0; i < count; i++) { if (nlm_i386_write_import (abfd, relocs[i].sec, relocs[i].rel) == false) return false; } return true; } #include "nlmswap.h" static const struct nlm_backend_data nlm32_i386_backend = { "NetWare Loadable Module\032", sizeof (Nlm32_i386_External_Fixed_Header), 0, /* optional_prefix_size */ bfd_arch_i386, 0, false, 0, /* backend_object_p */ 0, /* write_prefix_func */ nlm_i386_read_reloc, nlm_i386_mangle_relocs, nlm_i386_read_import, nlm_i386_write_import, 0, /* set_public_section */ 0, /* get_public_offset */ nlm_swap_fixed_header_in, nlm_swap_fixed_header_out, nlm_i386_write_external, 0, /* write_export */ }; #define TARGET_LITTLE_NAME "nlm32-i386" #define TARGET_LITTLE_SYM nlmNAME(i386_vec) #define TARGET_BACKEND_DATA &nlm32_i386_backend #include "nlm-target.h" gdb-4.13/bfd/nlm32-ppc.c 666 34562 1752 110151 5601614632 13211 0ustar fnfcygnus/* Support for 32-bit PowerPC NLM (NetWare Loadable Module) Copyright (C) 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" /* The format of a PowerPC NLM changed. Define OLDFORMAT to get the old format. */ #define ARCH_SIZE 32 #include "nlm/ppc-ext.h" #define Nlm_External_Fixed_Header Nlm32_powerpc_External_Fixed_Header #include "libnlm.h" #ifdef OLDFORMAT static boolean nlm_powerpc_backend_object_p PARAMS ((bfd *)); static boolean nlm_powerpc_write_prefix PARAMS ((bfd *)); #endif static boolean nlm_powerpc_read_reloc PARAMS ((bfd *, nlmNAME(symbol_type) *, asection **, arelent *)); static boolean nlm_powerpc_mangle_relocs PARAMS ((bfd *, asection *, PTR, bfd_vma, bfd_size_type)); static boolean nlm_powerpc_read_import PARAMS ((bfd *, nlmNAME(symbol_type) *)); #ifdef OLDFORMAT static boolean nlm_powerpc_write_reloc PARAMS ((bfd *, asection *, arelent *, int)); #endif static boolean nlm_powerpc_write_import PARAMS ((bfd *, asection *, arelent *)); static boolean nlm_powerpc_write_external PARAMS ((bfd *, bfd_size_type, asymbol *, struct reloc_and_sec *)); #ifndef OLDFORMAT static boolean nlm_powerpc_set_public_section PARAMS ((bfd *, nlmNAME(symbol_type) *)); static bfd_vma nlm_powerpc_get_public_offset PARAMS ((bfd *, asymbol *)); #endif #ifdef OLDFORMAT /* The prefix header is only used in the old format. */ /* PowerPC NLM's have a prefix header before the standard NLM. This function reads it in, verifies the version, and seeks the bfd to the location before the regular NLM header. */ static boolean nlm_powerpc_backend_object_p (abfd) bfd *abfd; { struct nlm32_powerpc_external_prefix_header s; if (bfd_read ((PTR) &s, sizeof s, 1, abfd) != sizeof s) return false; if (memcmp (s.signature, NLM32_POWERPC_SIGNATURE, sizeof s.signature) != 0 || bfd_h_get_32 (abfd, s.headerVersion) != NLM32_POWERPC_HEADER_VERSION) return false; return true; } /* Write out the prefix. */ static boolean nlm_powerpc_write_prefix (abfd) bfd *abfd; { struct nlm32_powerpc_external_prefix_header s; memset (&s, 0, sizeof s); memcpy (s.signature, NLM32_POWERPC_SIGNATURE, sizeof s.signature); bfd_h_put_32 (abfd, (bfd_vma) NLM32_POWERPC_HEADER_VERSION, s.headerVersion); bfd_h_put_32 (abfd, (bfd_vma) 0, s.origins); /* FIXME: What should we do about the date? */ if (bfd_write ((PTR) &s, sizeof s, 1, abfd) != sizeof s) return false; return true; } #endif /* OLDFORMAT */ #ifndef OLDFORMAT /* There is only one type of reloc in a PowerPC NLM. */ static reloc_howto_type nlm_powerpc_howto = HOWTO (0, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "32", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false); /* pcrel_offset */ /* Read a PowerPC NLM reloc. */ static boolean nlm_powerpc_read_reloc (abfd, sym, secp, rel) bfd *abfd; nlmNAME(symbol_type) *sym; asection **secp; arelent *rel; { bfd_byte temp[4]; bfd_vma val; const char *name; if (bfd_read (temp, sizeof (temp), 1, abfd) != sizeof (temp)) return false; val = bfd_get_32 (abfd, temp); /* The value is a word offset into either the code or data segment. This is the location which needs to be adjusted. The high bit is 0 if the value is an offset into the data segment, or 1 if the value is an offset into the text segment. If this is a relocation fixup rather than an imported symbol (the sym argument is NULL), then the second most significant bit is 0 if the address of the data segment should be added to the location addressed by the value, or 1 if the address of the text segment should be added. If this is an imported symbol, the second most significant bit is not used and must be 0. */ if ((val & NLM_HIBIT) == 0) name = NLM_INITIALIZED_DATA_NAME; else { name = NLM_CODE_NAME; val &=~ NLM_HIBIT; } *secp = bfd_get_section_by_name (abfd, name); if (sym == NULL) { if ((val & (NLM_HIBIT >> 1)) == 0) name = NLM_INITIALIZED_DATA_NAME; else { name = NLM_CODE_NAME; val &=~ (NLM_HIBIT >> 1); } rel->sym_ptr_ptr = bfd_get_section_by_name (abfd, name)->symbol_ptr_ptr; } rel->howto = &nlm_powerpc_howto; rel->address = val << 2; rel->addend = 0; return true; } #else /* OLDFORMAT */ /* This reloc handling is only applicable to the old format. */ /* How to process the various reloc types. PowerPC NLMs use XCOFF reloc types, and I have just copied the XCOFF reloc table here. */ static reloc_howto_type nlm_powerpc_howto_table[] = { /* Standard 32 bit relocation. */ HOWTO (0, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_POS", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* 32 bit relocation, but store negative value. */ HOWTO (1, /* type */ 0, /* rightshift */ -2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_NEG", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* 32 bit PC relative relocation. */ HOWTO (2, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "R_REL", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* 16 bit TOC relative relocation. */ HOWTO (3, /* type */ 0, /* rightshift */ 1, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "R_TOC", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* I don't really know what this is. */ HOWTO (4, /* type */ 1, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RTB", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* External TOC relative symbol. */ HOWTO (5, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_GL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Local TOC relative symbol. */ HOWTO (6, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_TCL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ { 7 }, /* Non modifiable absolute branch. */ HOWTO (8, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_BA", /* name */ true, /* partial_inplace */ 0x3fffffc, /* src_mask */ 0x3fffffc, /* dst_mask */ false), /* pcrel_offset */ { 9 }, /* Non modifiable relative branch. */ HOWTO (0xa, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ true, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "R_BR", /* name */ true, /* partial_inplace */ 0x3fffffc, /* src_mask */ 0x3fffffc, /* dst_mask */ false), /* pcrel_offset */ { 0xb }, /* Indirect load. */ HOWTO (0xc, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Load address. */ HOWTO (0xd, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RLA", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ { 0xe }, /* Non-relocating reference. */ HOWTO (0xf, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_REF", /* name */ false, /* partial_inplace */ 0, /* src_mask */ 0, /* dst_mask */ false), /* pcrel_offset */ { 0x10 }, { 0x11 }, /* TOC relative indirect load. */ HOWTO (0x12, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_TRL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* TOC relative load address. */ HOWTO (0x13, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_TRLA", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable relative branch. */ HOWTO (0x14, /* type */ 1, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RRTBI", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable absolute branch. */ HOWTO (0x15, /* type */ 1, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 32, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RRTBA", /* name */ true, /* partial_inplace */ 0xffffffff, /* src_mask */ 0xffffffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable call absolute indirect. */ HOWTO (0x16, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_CAI", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable call relative. */ HOWTO (0x17, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_REL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable branch absolute. */ HOWTO (0x18, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RBA", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable branch absolute. */ HOWTO (0x19, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_RBAC", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable branch relative. */ HOWTO (0x1a, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 26, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_signed, /* complain_on_overflow */ 0, /* special_function */ "R_REL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false), /* pcrel_offset */ /* Modifiable branch absolute. */ HOWTO (0x1b, /* type */ 0, /* rightshift */ 2, /* size (0 = byte, 1 = short, 2 = long) */ 16, /* bitsize */ false, /* pc_relative */ 0, /* bitpos */ complain_overflow_bitfield, /* complain_on_overflow */ 0, /* special_function */ "R_REL", /* name */ true, /* partial_inplace */ 0xffff, /* src_mask */ 0xffff, /* dst_mask */ false) /* pcrel_offset */ }; #define HOWTO_COUNT (sizeof nlm_powerpc_howto_table \ / sizeof nlm_powerpc_howto_table[0]) /* Read a PowerPC NLM reloc. */ static boolean nlm_powerpc_read_reloc (abfd, sym, secp, rel) bfd *abfd; nlmNAME(symbol_type) *sym; asection **secp; arelent *rel; { struct nlm32_powerpc_external_reloc ext; bfd_vma l_vaddr; unsigned long l_symndx; int l_rtype; int l_rsecnm; asection *code_sec, *data_sec, *bss_sec; /* Read the reloc from the file. */ if (bfd_read (&ext, sizeof ext, 1, abfd) != sizeof ext) return false; /* Swap in the fields. */ l_vaddr = bfd_h_get_32 (abfd, ext.l_vaddr); l_symndx = bfd_h_get_32 (abfd, ext.l_symndx); l_rtype = bfd_h_get_16 (abfd, ext.l_rtype); l_rsecnm = bfd_h_get_16 (abfd, ext.l_rsecnm); /* Get the sections now, for convenience. */ code_sec = bfd_get_section_by_name (abfd, NLM_CODE_NAME); data_sec = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); bss_sec = bfd_get_section_by_name (abfd, NLM_UNINITIALIZED_DATA_NAME); /* Work out the arelent fields. */ if (sym != NULL) { /* This is an import. sym_ptr_ptr is filled in by nlm_canonicalize_reloc. */ rel->sym_ptr_ptr = NULL; } else { asection *sec; if (l_symndx == 0) sec = code_sec; else if (l_symndx == 1) sec = data_sec; else if (l_symndx == 2) sec = bss_sec; else { bfd_set_error (bfd_error_bad_value); return false; } rel->sym_ptr_ptr = sec->symbol_ptr_ptr; } rel->addend = 0; BFD_ASSERT ((l_rtype & 0xff) < HOWTO_COUNT); rel->howto = nlm_powerpc_howto_table + (l_rtype & 0xff); BFD_ASSERT (rel->howto->name != NULL && ((l_rtype & 0x8000) != 0 ? (rel->howto->complain_on_overflow == complain_overflow_signed) : (rel->howto->complain_on_overflow == complain_overflow_bitfield)) && ((l_rtype >> 8) & 0x1f) == rel->howto->bitsize - 1); if (l_rsecnm == 0) *secp = code_sec; else if (l_rsecnm == 1) { *secp = data_sec; l_vaddr -= bfd_section_size (abfd, code_sec); } else { bfd_set_error (bfd_error_bad_value); return false; } rel->address = l_vaddr; return true; } #endif /* OLDFORMAT */ /* Mangle PowerPC NLM relocs for output. */ static boolean nlm_powerpc_mangle_relocs (abfd, sec, data, offset, count) bfd *abfd; asection *sec; PTR data; bfd_vma offset; bfd_size_type count; { return true; } /* Read a PowerPC NLM import record */ static boolean nlm_powerpc_read_import (abfd, sym) bfd *abfd; nlmNAME(symbol_type) *sym; { struct nlm_relent *nlm_relocs; /* relocation records for symbol */ bfd_size_type rcount; /* number of relocs */ bfd_byte temp[NLM_TARGET_LONG_SIZE]; /* temporary 32-bit value */ unsigned char symlength; /* length of symbol name */ char *name; if (bfd_read ((PTR) &symlength, sizeof (symlength), 1, abfd) != sizeof (symlength)) return (false); sym -> symbol.the_bfd = abfd; name = bfd_alloc (abfd, symlength + 1); if (name == NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read (name, symlength, 1, abfd) != symlength) return (false); name[symlength] = '\0'; sym -> symbol.name = name; sym -> symbol.flags = 0; sym -> symbol.value = 0; sym -> symbol.section = bfd_und_section_ptr; if (bfd_read ((PTR) temp, sizeof (temp), 1, abfd) != sizeof (temp)) return (false); rcount = bfd_h_get_32 (abfd, temp); nlm_relocs = ((struct nlm_relent *) bfd_alloc (abfd, rcount * sizeof (struct nlm_relent))); if (nlm_relocs == (struct nlm_relent *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } sym -> relocs = nlm_relocs; sym -> rcnt = 0; while (sym -> rcnt < rcount) { asection *section; if (nlm_powerpc_read_reloc (abfd, sym, §ion, &nlm_relocs -> reloc) == false) return false; nlm_relocs -> section = section; nlm_relocs++; sym -> rcnt++; } return true; } #ifndef OLDFORMAT /* Write a PowerPC NLM reloc. */ static boolean nlm_powerpc_write_import (abfd, sec, rel) bfd *abfd; asection *sec; arelent *rel; { asymbol *sym; bfd_vma val; bfd_byte temp[4]; /* PowerPC NetWare only supports one kind of reloc. */ if (rel->addend != 0 || rel->howto == NULL || rel->howto->rightshift != 0 || rel->howto->size != 2 || rel->howto->bitsize != 32 || rel->howto->bitpos != 0 || rel->howto->pc_relative || (rel->howto->src_mask != 0xffffffff && rel->addend != 0) || rel->howto->dst_mask != 0xffffffff) { bfd_set_error (bfd_error_invalid_operation); return false; } sym = *rel->sym_ptr_ptr; /* The value we write out is the offset into the appropriate segment, rightshifted by two. This offset is the section vma, adjusted by the vma of the lowest section in that segment, plus the address of the relocation. */ val = bfd_get_section_vma (abfd, sec) + rel->address; if ((val & 3) != 0) { bfd_set_error (bfd_error_bad_value); return false; } val >>= 2; /* The high bit is 0 if the reloc is in the data section, or 1 if the reloc is in the code section. */ if (bfd_get_section_flags (abfd, sec) & SEC_DATA) val -= nlm_get_data_low (abfd); else { val -= nlm_get_text_low (abfd); val |= NLM_HIBIT; } if (! bfd_is_und_section (bfd_get_section (sym))) { /* This is an internal relocation fixup. The second most significant bit is 0 if this is a reloc against the data segment, or 1 if it is a reloc against the text segment. */ if (bfd_get_section_flags (abfd, bfd_get_section (sym)) & SEC_CODE) val |= NLM_HIBIT >> 1; } bfd_put_32 (abfd, val, temp); if (bfd_write (temp, sizeof (temp), 1, abfd) != sizeof (temp)) return false; return true; } #else /* OLDFORMAT */ /* This is used for the reloc handling in the old format. */ /* Write a PowerPC NLM reloc. */ static boolean nlm_powerpc_write_reloc (abfd, sec, rel, indx) bfd *abfd; asection *sec; arelent *rel; int indx; { struct nlm32_powerpc_external_reloc ext; asection *code_sec, *data_sec, *bss_sec; asymbol *sym; asection *symsec; unsigned long l_symndx; int l_rtype; int l_rsecnm; const reloc_howto_type *howto; bfd_size_type address; /* Get the sections now, for convenience. */ code_sec = bfd_get_section_by_name (abfd, NLM_CODE_NAME); data_sec = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); bss_sec = bfd_get_section_by_name (abfd, NLM_UNINITIALIZED_DATA_NAME); sym = *rel->sym_ptr_ptr; symsec = bfd_get_section (sym); if (indx != -1) { BFD_ASSERT (bfd_is_und_section (symsec)); l_symndx = indx + 3; } else { if (symsec == code_sec) l_symndx = 0; else if (symsec == data_sec) l_symndx = 1; else if (symsec == bss_sec) l_symndx = 2; else { bfd_set_error (bfd_error_bad_value); return false; } } bfd_h_put_32 (abfd, (bfd_vma) l_symndx, ext.l_symndx); for (howto = nlm_powerpc_howto_table; howto < nlm_powerpc_howto_table + HOWTO_COUNT; howto++) { if (howto->rightshift == rel->howto->rightshift && howto->size == rel->howto->size && howto->bitsize == rel->howto->bitsize && howto->pc_relative == rel->howto->pc_relative && howto->bitpos == rel->howto->bitpos && (howto->partial_inplace == rel->howto->partial_inplace || (! rel->howto->partial_inplace && rel->addend == 0)) && (howto->src_mask == rel->howto->src_mask || (rel->howto->src_mask == 0 && rel->addend == 0)) && howto->dst_mask == rel->howto->dst_mask && howto->pcrel_offset == rel->howto->pcrel_offset) break; } if (howto >= nlm_powerpc_howto_table + HOWTO_COUNT) { bfd_set_error (bfd_error_bad_value); return false; } l_rtype = howto->type; if (howto->complain_on_overflow == complain_overflow_signed) l_rtype |= 0x8000; l_rtype |= (howto->bitsize - 1) << 8; bfd_h_put_16 (abfd, (bfd_vma) l_rtype, ext.l_rtype); address = rel->address; if (sec == code_sec) l_rsecnm = 0; else if (sec == data_sec) { l_rsecnm = 1; address += bfd_section_size (abfd, code_sec); } else { bfd_set_error (bfd_error_bad_value); return false; } bfd_h_put_16 (abfd, (bfd_vma) l_rsecnm, ext.l_rsecnm); bfd_h_put_32 (abfd, (bfd_vma) address, ext.l_vaddr); if (bfd_write (&ext, sizeof ext, 1, abfd) != sizeof ext) return false; return true; } /* Write a PowerPC NLM import. */ static boolean nlm_powerpc_write_import (abfd, sec, rel) bfd *abfd; asection *sec; arelent *rel; { return nlm_powerpc_write_reloc (abfd, sec, rel, -1); } #endif /* OLDFORMAT */ /* Write a PowerPC NLM external symbol. This routine keeps a static count of the symbol index. FIXME: I don't know if this is necessary, and the index never gets reset. */ static boolean nlm_powerpc_write_external (abfd, count, sym, relocs) bfd *abfd; bfd_size_type count; asymbol *sym; struct reloc_and_sec *relocs; { int i; bfd_byte len; unsigned char temp[NLM_TARGET_LONG_SIZE]; #ifdef OLDFORMAT static int indx; #endif len = strlen (sym->name); if ((bfd_write (&len, sizeof (bfd_byte), 1, abfd) != sizeof(bfd_byte)) || bfd_write (sym->name, len, 1, abfd) != len) return false; bfd_put_32 (abfd, count, temp); if (bfd_write (temp, sizeof(temp), 1, abfd) != sizeof (temp)) return false; for (i = 0; i < count; i++) { #ifndef OLDFORMAT if (! nlm_powerpc_write_import (abfd, relocs[i].sec, relocs[i].rel)) return false; #else if (! nlm_powerpc_write_reloc (abfd, relocs[i].sec, relocs[i].rel, indx)) return false; #endif } #ifdef OLDFORMAT ++indx; #endif return true; } #ifndef OLDFORMAT /* PowerPC Netware uses a word offset, not a byte offset, for public symbols. */ /* Set the section for a public symbol. */ static boolean nlm_powerpc_set_public_section (abfd, sym) bfd *abfd; nlmNAME(symbol_type) *sym; { if (sym->symbol.value & NLM_HIBIT) { sym->symbol.value &= ~NLM_HIBIT; sym->symbol.flags |= BSF_FUNCTION; sym->symbol.section = bfd_get_section_by_name (abfd, NLM_CODE_NAME); } else { sym->symbol.section = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); } sym->symbol.value <<= 2; return true; } /* Get the offset to write out for a public symbol. */ static bfd_vma nlm_powerpc_get_public_offset (abfd, sym) bfd *abfd; asymbol *sym; { bfd_vma offset; asection *sec; offset = bfd_asymbol_value (sym); sec = bfd_get_section (sym); if (sec->flags & SEC_CODE) { offset -= nlm_get_text_low (abfd); offset |= NLM_HIBIT; } else if (sec->flags & (SEC_DATA | SEC_ALLOC)) { /* SEC_ALLOC is for the .bss section. */ offset -= nlm_get_data_low (abfd); } else { /* We can't handle an exported symbol that is not in the code or data segment. */ bfd_set_error (bfd_error_invalid_operation); /* FIXME: No way to return error. */ abort (); } return offset; } #endif /* ! defined (OLDFORMAT) */ #include "nlmswap.h" static const struct nlm_backend_data nlm32_powerpc_backend = { "NetWare PowerPC Module \032", sizeof (Nlm32_powerpc_External_Fixed_Header), #ifndef OLDFORMAT 0, /* optional_prefix_size */ #else sizeof (struct nlm32_powerpc_external_prefix_header), #endif bfd_arch_powerpc, 0, false, #ifndef OLDFORMAT 0, /* backend_object_p */ 0, /* write_prefix */ #else nlm_powerpc_backend_object_p, nlm_powerpc_write_prefix, #endif nlm_powerpc_read_reloc, nlm_powerpc_mangle_relocs, nlm_powerpc_read_import, nlm_powerpc_write_import, #ifndef OLDFORMAT nlm_powerpc_set_public_section, nlm_powerpc_get_public_offset, #else 0, /* set_public_section */ 0, /* get_public_offset */ #endif nlm_swap_fixed_header_in, nlm_swap_fixed_header_out, nlm_powerpc_write_external, 0, /* write_export */ }; #define TARGET_BIG_NAME "nlm32-powerpc" #define TARGET_BIG_SYM nlmNAME(powerpc_vec) #define TARGET_BACKEND_DATA &nlm32_powerpc_backend #include "nlm-target.h" gdb-4.13/bfd/nlm32-sparc.c 666 34562 1752 32327 5601614633 13530 0ustar fnfcygnus/* Support for 32-bit SPARC NLM (NetWare Loadable Module) Copyright (C) 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #define ARCH_SIZE 32 #include "nlm/sparc32-ext.h" #define Nlm_External_Fixed_Header Nlm32_sparc_External_Fixed_Header #include "libnlm.h" static boolean nlm_sparc_read_reloc PARAMS ((bfd *, nlmNAME(symbol_type) *, asection **, arelent *)); static boolean nlm_sparc_write_reloc PARAMS ((bfd *, asection *, arelent *)); static boolean nlm_sparc_mangle_relocs PARAMS ((bfd *, asection *, PTR, bfd_vma, bfd_size_type)); static boolean nlm_sparc_read_import PARAMS ((bfd *, nlmNAME(symbol_type) *)); static boolean nlm_sparc_write_import PARAMS ((bfd *, asection *, arelent *)); static boolean nlm_sparc_write_external PARAMS ((bfd *, bfd_size_type, asymbol *, struct reloc_and_sec *)); enum reloc_type { R_SPARC_NONE = 0, R_SPARC_8, R_SPARC_16, R_SPARC_32, R_SPARC_DISP8, R_SPARC_DISP16, R_SPARC_DISP32, R_SPARC_WDISP30, R_SPARC_WDISP22, R_SPARC_HI22, R_SPARC_22, R_SPARC_13, R_SPARC_LO10, R_SPARC_GOT10, R_SPARC_GOT13, R_SPARC_GOT22, R_SPARC_PC10, R_SPARC_PC22, R_SPARC_WPLT30, R_SPARC_COPY, R_SPARC_GLOB_DAT, R_SPARC_JMP_SLOT, R_SPARC_RELATIVE, R_SPARC_UA32, R_SPARC_max }; #if 0 static CONST char *CONST reloc_type_names[] = { "R_SPARC_NONE", "R_SPARC_8", "R_SPARC_16", "R_SPARC_32", "R_SPARC_DISP8", "R_SPARC_DISP16", "R_SPARC_DISP32", "R_SPARC_WDISP30", "R_SPARC_WDISP22", "R_SPARC_HI22", "R_SPARC_22", "R_SPARC_13", "R_SPARC_LO10", "R_SPARC_GOT10", "R_SPARC_GOT13", "R_SPARC_GOT22", "R_SPARC_PC10", "R_SPARC_PC22", "R_SPARC_WPLT30", "R_SPARC_COPY", "R_SPARC_GLOB_DAT", "R_SPARC_JMP_SLOT", "R_SPARC_RELATIVE", "R_SPARC_UA32", }; #endif static reloc_howto_type nlm32_sparc_howto_table[] = { HOWTO(R_SPARC_NONE, 0,0, 0,false,0,complain_overflow_dont, 0,"R_SPARC_NONE", false,0,0x00000000,true), HOWTO(R_SPARC_8, 0,0, 8,false,0,complain_overflow_bitfield,0,"R_SPARC_8", false,0,0x000000ff,true), HOWTO(R_SPARC_16, 0,1,16,false,0,complain_overflow_bitfield,0,"R_SPARC_16", false,0,0x0000ffff,true), HOWTO(R_SPARC_32, 0,2,32,false,0,complain_overflow_bitfield,0,"R_SPARC_32", false,0,0xffffffff,true), HOWTO(R_SPARC_DISP8, 0,0, 8,true, 0,complain_overflow_signed, 0,"R_SPARC_DISP8", false,0,0x000000ff,true), HOWTO(R_SPARC_DISP16, 0,1,16,true, 0,complain_overflow_signed, 0,"R_SPARC_DISP16", false,0,0x0000ffff,true), HOWTO(R_SPARC_DISP32, 0,2,32,true, 0,complain_overflow_signed, 0,"R_SPARC_DISP32", false,0,0x00ffffff,true), HOWTO(R_SPARC_WDISP30, 2,2,30,true, 0,complain_overflow_signed, 0,"R_SPARC_WDISP30", false,0,0x3fffffff,true), HOWTO(R_SPARC_WDISP22, 2,2,22,true, 0,complain_overflow_signed, 0,"R_SPARC_WDISP22", false,0,0x003fffff,true), HOWTO(R_SPARC_HI22, 10,2,22,false,0,complain_overflow_dont, 0,"R_SPARC_HI22", false,0,0x003fffff,true), HOWTO(R_SPARC_22, 0,2,22,false,0,complain_overflow_bitfield,0,"R_SPARC_22", false,0,0x003fffff,true), HOWTO(R_SPARC_13, 0,2,13,false,0,complain_overflow_bitfield,0,"R_SPARC_13", false,0,0x00001fff,true), HOWTO(R_SPARC_LO10, 0,2,10,false,0,complain_overflow_dont, 0,"R_SPARC_LO10", false,0,0x000003ff,true), HOWTO(R_SPARC_GOT10, 0,2,10,false,0,complain_overflow_bitfield,0,"R_SPARC_GOT10", false,0,0x000003ff,true), HOWTO(R_SPARC_GOT13, 0,2,13,false,0,complain_overflow_bitfield,0,"R_SPARC_GOT13", false,0,0x00001fff,true), HOWTO(R_SPARC_GOT22, 10,2,22,false,0,complain_overflow_bitfield,0,"R_SPARC_GOT22", false,0,0x003fffff,true), HOWTO(R_SPARC_PC10, 0,2,10,false,0,complain_overflow_bitfield,0,"R_SPARC_PC10", false,0,0x000003ff,true), HOWTO(R_SPARC_PC22, 0,2,22,false,0,complain_overflow_bitfield,0,"R_SPARC_PC22", false,0,0x003fffff,true), HOWTO(R_SPARC_WPLT30, 0,0,00,false,0,complain_overflow_dont, 0,"R_SPARC_WPLT30", false,0,0x00000000,true), HOWTO(R_SPARC_COPY, 0,0,00,false,0,complain_overflow_dont, 0,"R_SPARC_COPY", false,0,0x00000000,true), HOWTO(R_SPARC_GLOB_DAT,0,0,00,false,0,complain_overflow_dont, 0,"R_SPARC_GLOB_DAT",false,0,0x00000000,true), HOWTO(R_SPARC_JMP_SLOT,0,0,00,false,0,complain_overflow_dont, 0,"R_SPARC_JMP_SLOT",false,0,0x00000000,true), HOWTO(R_SPARC_RELATIVE,0,0,00,false,0,complain_overflow_dont, 0,"R_SPARC_RELATIVE",false,0,0x00000000,true), HOWTO(R_SPARC_UA32, 0,0,00,false,0,complain_overflow_dont, 0,"R_SPARC_UA32", false,0,0x00000000,true), }; /* Read a NetWare sparc reloc. */ struct nlm32_sparc_reloc_ext { unsigned char offset[4]; unsigned char addend[4]; unsigned char type[1]; unsigned char pad1[3]; }; static boolean nlm_sparc_read_reloc (abfd, sym, secp, rel) bfd *abfd; nlmNAME(symbol_type) *sym; asection **secp; arelent *rel; { bfd_vma val, addend; int index; unsigned int type; struct nlm32_sparc_reloc_ext tmp_reloc; asection *code_sec, *data_sec; if (bfd_read (&tmp_reloc, 12, 1, abfd) != 12) return false; code_sec = bfd_get_section_by_name (abfd, NLM_CODE_NAME); data_sec = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); *secp = code_sec; val = bfd_get_32 (abfd, tmp_reloc.offset); addend = bfd_get_32 (abfd, tmp_reloc.addend); type = bfd_get_8 (abfd, tmp_reloc.type); rel->address = val; rel->addend = addend; rel->howto = NULL; for (index = 0; index < sizeof(nlm32_sparc_howto_table) / sizeof(reloc_howto_type); index++) if (nlm32_sparc_howto_table[index].type == type) { rel->howto = &nlm32_sparc_howto_table[index]; break; } #ifdef DEBUG fprintf (stderr, "%s: address = %08lx, addend = %08lx, type = %d, howto = %08lx\n", __FUNCTION__, rel->address, rel->addend, type, rel->howto); #endif return true; } /* Write a NetWare sparc reloc. */ static boolean nlm_sparc_write_reloc (abfd, sec, rel) bfd *abfd; asection *sec; arelent *rel; { bfd_vma val; struct nlm32_sparc_reloc_ext tmp_reloc; int index; int type = -1; reloc_howto_type *tmp; for (index = 0; index < sizeof (nlm32_sparc_howto_table) / sizeof(reloc_howto_type); index++) { tmp = &nlm32_sparc_howto_table[index]; if (tmp->rightshift == rel->howto->rightshift && tmp->size == rel->howto->size && tmp->bitsize == rel->howto->bitsize && tmp->pc_relative == rel->howto->pc_relative && tmp->bitpos == rel->howto->bitpos && tmp->src_mask == rel->howto->src_mask && tmp->dst_mask == rel->howto->dst_mask) { type = tmp->type; break; } } if (type == -1) abort(); /* * Netware wants a list of relocs for each address. * Format is: * long offset * long addend * char type * That should be it. */ /* The value we write out is the offset into the appropriate segment. This offset is the section vma, adjusted by the vma of the lowest section in that segment, plus the address of the relocation. */ #if 0 val = bfd_get_section_vma (abfd, (*rel->sym_ptr_ptr)->section) + rel->address; #else val = bfd_get_section_vma (abfd, sec) + rel->address; #endif #ifdef DEBUG fprintf (stderr, "%s: val = %08lx, addend = %08lx, type = %d\n", __FUNCTION__, val, rel->addend, rel->howto->type); #endif bfd_put_32 (abfd, val, tmp_reloc.offset); bfd_put_32 (abfd, rel->addend, tmp_reloc.addend); bfd_put_8 (abfd, (short)(rel->howto->type), tmp_reloc.type); if (bfd_write (&tmp_reloc, 12, 1, abfd) != 12) return false; return true; } /* Mangle relocs for SPARC NetWare. We can just use the standard SPARC relocs. */ static boolean nlm_sparc_mangle_relocs (abfd, sec, data, offset, count) bfd *abfd; asection *sec; PTR data; bfd_vma offset; bfd_size_type count; { return true; } /* Read a NetWare sparc import record */ static boolean nlm_sparc_read_import (abfd, sym) bfd *abfd; nlmNAME(symbol_type) *sym; { struct nlm_relent *nlm_relocs; /* relocation records for symbol */ bfd_size_type rcount; /* number of relocs */ bfd_byte temp[NLM_TARGET_LONG_SIZE]; /* temporary 32-bit value */ unsigned char symlength; /* length of symbol name */ char *name; /* * First, read in the number of relocation * entries for this symbol */ if (bfd_read ((PTR) temp, 4, 1, abfd) != 4) return false; rcount = bfd_get_32 (abfd, temp); /* * Next, read in the length of the symbol */ if (bfd_read ((PTR) &symlength, sizeof (symlength), 1, abfd) != sizeof (symlength)) return false; sym -> symbol.the_bfd = abfd; name = bfd_alloc (abfd, symlength + 1); if (name == NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* * Then read in the symbol */ if (bfd_read (name, symlength, 1, abfd) != symlength) return false; name[symlength] = '\0'; sym -> symbol.name = name; sym -> symbol.flags = 0; sym -> symbol.value = 0; sym -> symbol.section = bfd_und_section_ptr; /* * Next, start reading in the relocs. */ nlm_relocs = ((struct nlm_relent *) bfd_alloc (abfd, rcount * sizeof (struct nlm_relent))); if (!nlm_relocs) { bfd_set_error (bfd_error_no_memory); return false; } sym -> relocs = nlm_relocs; sym -> rcnt = 0; while (sym -> rcnt < rcount) { asection *section; if (nlm_sparc_read_reloc (abfd, sym, §ion, &nlm_relocs -> reloc) == false) return false; nlm_relocs -> section = section; nlm_relocs++; sym -> rcnt++; } return true; } static boolean nlm_sparc_write_import (abfd, sec, rel) bfd *abfd; asection *sec; arelent *rel; { char temp[4]; asection *code, *data, *bss, *symsec; bfd_vma base; code = bfd_get_section_by_name (abfd, NLM_CODE_NAME); data = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); bss = bfd_get_section_by_name (abfd, NLM_UNINITIALIZED_DATA_NAME); symsec = (*rel->sym_ptr_ptr)->section; if (symsec == code) { base = 0; } else if (symsec == data) { base = bfd_section_size (abfd, code); } else if (symsec == bss) { base = bfd_section_size (abfd, code) + bfd_section_size (abfd, data); } else base = 0; #ifdef DEBUG fprintf (stderr, "%s: <%x, 1>\n\t", __FUNCTION__, base + (*rel->sym_ptr_ptr)->value); #endif bfd_put_32 (abfd, base + (*rel->sym_ptr_ptr)->value, temp); if (bfd_write ((PTR)temp, 4, 1, abfd) != 4) return false; bfd_put_32 (abfd, 1, temp); if (bfd_write ((PTR)temp, 4, 1, abfd) != 4) return false; if (nlm_sparc_write_reloc (abfd, sec, rel) == false) return false; return true; } /* Write out an external reference. */ static boolean nlm_sparc_write_external (abfd, count, sym, relocs) bfd *abfd; bfd_size_type count; asymbol *sym; struct reloc_and_sec *relocs; { int i; bfd_byte len; unsigned char temp[NLM_TARGET_LONG_SIZE]; bfd_put_32 (abfd, count, temp); if (bfd_write (temp, sizeof(temp), 1, abfd) != sizeof (temp)) return false; len = strlen (sym->name); if ((bfd_write (&len, sizeof (bfd_byte), 1, abfd) != sizeof(bfd_byte)) || bfd_write (sym->name, len, 1, abfd) != len) return false; for (i = 0; i < count; i++) { if (nlm_sparc_write_reloc (abfd, relocs[i].sec, relocs[i].rel) == false) return false; } return true; } static boolean nlm_sparc_write_export (abfd, sym, value) bfd *abfd; asymbol *sym; bfd_vma value; { bfd_byte len; bfd_byte temp[4]; #ifdef DEBUG fprintf (stderr, "%s: <%x, %d, %s>\n", __FUNCTION__, value, strlen (sym->name), sym->name); #endif bfd_put_32 (abfd, value, temp); len = strlen (sym->name); if (bfd_write (temp, 4, 1, abfd) != 4 || bfd_write (&len, 1, 1, abfd) != 1 || bfd_write (sym->name, len, 1, abfd) != len) return false; return true; } #undef nlm_swap_fixed_header_in #undef nlm_swap_fixed_header_out #include "nlmswap.h" static const struct nlm_backend_data nlm32_sparc_backend = { "NetWare SPARC Module \032", sizeof (Nlm32_sparc_External_Fixed_Header), 0, /* optional_prefix_size */ bfd_arch_sparc, 0, false, 0, /* backend_object_p */ 0, /* write_prefix_func */ nlm_sparc_read_reloc, nlm_sparc_mangle_relocs, nlm_sparc_read_import, nlm_sparc_write_import, 0, /* set_public_section */ 0, /* get_public_offset */ nlm_swap_fixed_header_in, nlm_swap_fixed_header_out, nlm_sparc_write_external, nlm_sparc_write_export }; #define TARGET_BIG_NAME "nlm32-sparc" #define TARGET_BIG_SYM nlmNAME(sparc_vec) #define TARGET_BACKEND_DATA &nlm32_sparc_backend #include "nlm-target.h" gdb-4.13/bfd/nlm32.c 666 34562 1752 1574 5423617020 12375 0ustar fnfcygnus/* NLM (NetWare Loadable Module) 32-bit executable support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define ARCH_SIZE 32 #include "nlmcode.h" gdb-4.13/bfd/nlm64.c 666 34562 1752 1574 5423617024 12406 0ustar fnfcygnus/* NLM (NetWare Loadable Module) 64-bit executable support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define ARCH_SIZE 64 #include "nlmcode.h" gdb-4.13/bfd/nlmcode.h 666 34562 1752 201452 5601614635 13134 0ustar fnfcygnus/* NLM (NetWare Loadable Module) executable support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support, using ELF support as the template. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include /* For strrchr and friends */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libnlm.h" /* The functions in this file do not use the names they appear to use. This file is actually compiled multiple times, once for each size of NLM target we are using. At each size we use a different name, constructed by the macro nlmNAME. For example, the function which is named nlm_symbol_type below is actually named nlm32_symbol_type in the final executable. */ #define Nlm_External_Fixed_Header NlmNAME(External_Fixed_Header) #define Nlm_External_Version_Header NlmNAME(External_Version_Header) #define Nlm_External_Copyright_Header NlmNAME(External_Copyright_Header) #define Nlm_External_Extended_Header NlmNAME(External_Extended_Header) #define Nlm_External_Custom_Header NlmNAME(External_Custom_Header) #define Nlm_External_Cygnus_Ext_Header NlmNAME(External_Cygnus_Ext_Header) #define nlm_symbol_type nlmNAME(symbol_type) #define nlm_get_symtab_upper_bound nlmNAME(get_symtab_upper_bound) #define nlm_get_symtab nlmNAME(get_symtab) #define nlm_make_empty_symbol nlmNAME(make_empty_symbol) #define nlm_print_symbol nlmNAME(print_symbol) #define nlm_get_symbol_info nlmNAME(get_symbol_info) #define nlm_get_reloc_upper_bound nlmNAME(get_reloc_upper_bound) #define nlm_canonicalize_reloc nlmNAME(canonicalize_reloc) #define nlm_object_p nlmNAME(object_p) #define nlm_set_section_contents nlmNAME(set_section_contents) #define nlm_write_object_contents nlmNAME(write_object_contents) #define nlm_swap_fixed_header_in(abfd,src,dst) \ (nlm_swap_fixed_header_in_func(abfd))(abfd,src,dst) #define nlm_swap_fixed_header_out(abfd,src,dst) \ (nlm_swap_fixed_header_out_func(abfd))(abfd,src,dst) /* Forward declarations of static functions */ static boolean add_bfd_section PARAMS ((bfd *, char *, file_ptr, bfd_size_type, flagword)); static boolean nlm_swap_variable_header_in PARAMS ((bfd *)); static boolean nlm_swap_variable_header_out PARAMS ((bfd *)); static boolean find_nonzero PARAMS ((PTR, size_t)); static boolean nlm_swap_auxiliary_headers_in PARAMS ((bfd *)); static boolean nlm_swap_auxiliary_headers_out PARAMS ((bfd *)); static boolean nlm_slurp_symbol_table PARAMS ((bfd *)); static boolean nlm_slurp_reloc_fixups PARAMS ((bfd *)); static boolean nlm_compute_section_file_positions PARAMS ((bfd *)); static int nlm_external_reloc_compare PARAMS ((const void *, const void *)); /* Should perhaps use put_offset, put_word, etc. For now, the two versions can be handled by explicitly specifying 32 bits or "the long type". */ #if ARCH_SIZE == 64 #define put_word bfd_h_put_64 #define get_word bfd_h_get_64 #endif #if ARCH_SIZE == 32 #define put_word bfd_h_put_32 #define get_word bfd_h_get_32 #endif const bfd_target * nlm_object_p (abfd) bfd *abfd; { struct nlm_obj_tdata *preserved_tdata = nlm_tdata (abfd); boolean (*backend_object_p) PARAMS ((bfd *)); PTR x_fxdhdr = NULL; Nlm_Internal_Fixed_Header *i_fxdhdrp; struct nlm_obj_tdata *new_tdata = NULL; const char *signature; enum bfd_architecture arch; /* Some NLM formats have a prefix before the standard NLM fixed header. */ backend_object_p = nlm_backend_object_p_func (abfd); if (backend_object_p) { if (!(*backend_object_p) (abfd)) goto got_wrong_format_error; } /* Read in the fixed length portion of the NLM header in external format. */ x_fxdhdr = (PTR) malloc (nlm_fixed_header_size (abfd)); if (x_fxdhdr == NULL) { bfd_set_error (bfd_error_no_memory); goto got_no_match; } if (bfd_read ((PTR) x_fxdhdr, nlm_fixed_header_size (abfd), 1, abfd) != nlm_fixed_header_size (abfd)) { if (bfd_get_error () != bfd_error_system_call) goto got_wrong_format_error; else goto got_no_match; } /* Allocate an instance of the nlm_obj_tdata structure and hook it up to the tdata pointer in the bfd. */ new_tdata = ((struct nlm_obj_tdata *) bfd_zalloc (abfd, sizeof (struct nlm_obj_tdata))); if (new_tdata == NULL) { bfd_set_error (bfd_error_no_memory); goto got_no_match; } nlm_tdata (abfd) = new_tdata; i_fxdhdrp = nlm_fixed_header (abfd); nlm_swap_fixed_header_in (abfd, x_fxdhdr, i_fxdhdrp); free (x_fxdhdr); x_fxdhdr = NULL; /* Check to see if we have an NLM file for this backend by matching the NLM signature. */ signature = nlm_signature (abfd); if (signature != NULL && *signature != '\0' && strncmp ((char *) i_fxdhdrp->signature, signature, NLM_SIGNATURE_SIZE) != 0) goto got_wrong_format_error; /* There's no supported way to discover the endianess of an NLM, so test for a sane version number after doing byte swapping appropriate for this XVEC. (Hack alert!) */ if (i_fxdhdrp->version > 0xFFFF) goto got_wrong_format_error; /* There's no supported way to check for 32 bit versus 64 bit addresses, so ignore this distinction for now. (FIXME) */ /* Swap in the rest of the required header. */ if (!nlm_swap_variable_header_in (abfd)) { if (bfd_get_error () != bfd_error_system_call) goto got_wrong_format_error; else goto got_no_match; } /* Add the sections supplied by all NLM's, and then read in the auxiliary headers. Reading the auxiliary headers may create additional sections described in the cygnus_ext header. From this point on we assume that we have an NLM, and do not treat errors as indicating the wrong format. */ if (!add_bfd_section (abfd, NLM_CODE_NAME, i_fxdhdrp->codeImageOffset, i_fxdhdrp->codeImageSize, (SEC_CODE | SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_RELOC)) || !add_bfd_section (abfd, NLM_INITIALIZED_DATA_NAME, i_fxdhdrp->dataImageOffset, i_fxdhdrp->dataImageSize, (SEC_DATA | SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_RELOC)) || !add_bfd_section (abfd, NLM_UNINITIALIZED_DATA_NAME, (file_ptr) 0, i_fxdhdrp->uninitializedDataSize, SEC_ALLOC)) goto got_no_match; if (!nlm_swap_auxiliary_headers_in (abfd)) goto got_no_match; if (nlm_fixed_header (abfd)->numberOfRelocationFixups != 0 || nlm_fixed_header (abfd)->numberOfExternalReferences != 0) abfd->flags |= HAS_RELOC; if (nlm_fixed_header (abfd)->numberOfPublics != 0 || nlm_fixed_header (abfd)->numberOfDebugRecords != 0 || nlm_fixed_header (abfd)->numberOfExternalReferences != 0) abfd->flags |= HAS_SYMS; arch = nlm_architecture (abfd); if (arch != bfd_arch_unknown) bfd_default_set_arch_mach (abfd, arch, (unsigned long) 0); abfd->flags |= EXEC_P; bfd_get_start_address (abfd) = nlm_fixed_header (abfd)->codeStartOffset; return (abfd->xvec); got_wrong_format_error: bfd_set_error (bfd_error_wrong_format); got_no_match: nlm_tdata (abfd) = preserved_tdata; if (new_tdata != NULL) bfd_release (abfd, new_tdata); if (x_fxdhdr != NULL) free (x_fxdhdr); return (NULL); } /* Add a section to the bfd. */ static boolean add_bfd_section (abfd, name, offset, size, flags) bfd *abfd; char *name; file_ptr offset; bfd_size_type size; flagword flags; { asection *newsect; newsect = bfd_make_section (abfd, name); if (newsect == NULL) { return (false); } newsect->vma = 0; /* NLM's are relocatable. */ newsect->_raw_size = size; newsect->filepos = offset; newsect->flags = flags; newsect->alignment_power = bfd_log2 (0); /* FIXME */ return (true); } /* Read and swap in the variable length header. All the fields must exist in the NLM, and must exist in the order they are read here. */ static boolean nlm_swap_variable_header_in (abfd) bfd *abfd; { unsigned char temp[NLM_TARGET_LONG_SIZE]; /* Read the description length and text members. */ if (bfd_read ((PTR) & nlm_variable_header (abfd)->descriptionLength, sizeof (nlm_variable_header (abfd)->descriptionLength), 1, abfd) != sizeof (nlm_variable_header (abfd)->descriptionLength)) return (false); if (bfd_read ((PTR) nlm_variable_header (abfd)->descriptionText, nlm_variable_header (abfd)->descriptionLength + 1, 1, abfd) != nlm_variable_header (abfd)->descriptionLength + 1) return (false); /* Read and convert the stackSize field. */ if (bfd_read ((PTR) temp, sizeof (temp), 1, abfd) != sizeof (temp)) return (false); nlm_variable_header (abfd)->stackSize = get_word (abfd, (bfd_byte *) temp); /* Read and convert the reserved field. */ if (bfd_read ((PTR) temp, sizeof (temp), 1, abfd) != sizeof (temp)) return (false); nlm_variable_header (abfd)->reserved = get_word (abfd, (bfd_byte *) temp); /* Read the oldThreadName field. This field is a fixed length string. */ if (bfd_read ((PTR) nlm_variable_header (abfd)->oldThreadName, sizeof (nlm_variable_header (abfd)->oldThreadName), 1, abfd) != sizeof (nlm_variable_header (abfd)->oldThreadName)) return (false); /* Read the screen name length and text members. */ if (bfd_read ((PTR) & nlm_variable_header (abfd)->screenNameLength, sizeof (nlm_variable_header (abfd)->screenNameLength), 1, abfd) != sizeof (nlm_variable_header (abfd)->screenNameLength)) return (false); if (bfd_read ((PTR) nlm_variable_header (abfd)->screenName, nlm_variable_header (abfd)->screenNameLength + 1, 1, abfd) != nlm_variable_header (abfd)->screenNameLength + 1) return (false); /* Read the thread name length and text members. */ if (bfd_read ((PTR) & nlm_variable_header (abfd)->threadNameLength, sizeof (nlm_variable_header (abfd)->threadNameLength), 1, abfd) != sizeof (nlm_variable_header (abfd)->threadNameLength)) return (false); if (bfd_read ((PTR) nlm_variable_header (abfd)->threadName, nlm_variable_header (abfd)->threadNameLength + 1, 1, abfd) != nlm_variable_header (abfd)->threadNameLength + 1) return (false); return (true); } /* Swap and write out the variable length header. All the fields must exist in the NLM, and must exist in this order. */ static boolean nlm_swap_variable_header_out (abfd) bfd *abfd; { unsigned char temp[NLM_TARGET_LONG_SIZE]; /* Write the description length and text members. */ if (bfd_write ((PTR) & nlm_variable_header (abfd)->descriptionLength, sizeof (nlm_variable_header (abfd)->descriptionLength), 1, abfd) != sizeof (nlm_variable_header (abfd)->descriptionLength)) return (false); if (bfd_write ((PTR) nlm_variable_header (abfd)->descriptionText, nlm_variable_header (abfd)->descriptionLength + 1, 1, abfd) != nlm_variable_header (abfd)->descriptionLength + 1) return (false); /* Convert and write the stackSize field. */ put_word (abfd, (bfd_vma) nlm_variable_header (abfd)->stackSize, (bfd_byte *) temp); if (bfd_write ((PTR) temp, sizeof (temp), 1, abfd) != sizeof (temp)) return (false); /* Convert and write the reserved field. */ put_word (abfd, (bfd_vma) nlm_variable_header (abfd)->reserved, (bfd_byte *) temp); if (bfd_write ((PTR) temp, sizeof (temp), 1, abfd) != sizeof (temp)) return (false); /* Write the oldThreadName field. This field is a fixed length string. */ if (bfd_write ((PTR) nlm_variable_header (abfd)->oldThreadName, sizeof (nlm_variable_header (abfd)->oldThreadName), 1, abfd) != sizeof (nlm_variable_header (abfd)->oldThreadName)) return (false); /* Write the screen name length and text members. */ if (bfd_write ((PTR) & nlm_variable_header (abfd)->screenNameLength, sizeof (nlm_variable_header (abfd)->screenNameLength), 1, abfd) != sizeof (nlm_variable_header (abfd)->screenNameLength)) return (false); if (bfd_write ((PTR) nlm_variable_header (abfd)->screenName, nlm_variable_header (abfd)->screenNameLength + 1, 1, abfd) != nlm_variable_header (abfd)->screenNameLength + 1) return (false); /* Write the thread name length and text members. */ if (bfd_write ((PTR) & nlm_variable_header (abfd)->threadNameLength, sizeof (nlm_variable_header (abfd)->threadNameLength), 1, abfd) != sizeof (nlm_variable_header (abfd)->threadNameLength)) return (false); if (bfd_write ((PTR) nlm_variable_header (abfd)->threadName, nlm_variable_header (abfd)->threadNameLength + 1, 1, abfd) != nlm_variable_header (abfd)->threadNameLength + 1) return (false); return (true); } /* Read and swap in the contents of all the auxiliary headers. Because of the braindead design, we have to do strcmps on strings of indeterminate length to figure out what each auxiliary header is. Even worse, we have no way of knowing how many auxiliary headers there are or where the end of the auxiliary headers are, except by finding something that doesn't look like a known auxiliary header. This means that the first new type of auxiliary header added will break all existing tools that don't recognize it. */ static boolean nlm_swap_auxiliary_headers_in (abfd) bfd *abfd; { char tempstr[16]; long position; for (;;) { position = bfd_tell (abfd); if (bfd_read ((PTR) tempstr, sizeof (tempstr), 1, abfd) != sizeof (tempstr)) return (false); if (bfd_seek (abfd, position, SEEK_SET) == -1) return (false); if (strncmp (tempstr, "VeRsIoN#", 8) == 0) { Nlm_External_Version_Header thdr; if (bfd_read ((PTR) & thdr, sizeof (thdr), 1, abfd) != sizeof (thdr)) return (false); memcpy (nlm_version_header (abfd)->stamp, thdr.stamp, sizeof (thdr.stamp)); nlm_version_header (abfd)->majorVersion = get_word (abfd, (bfd_byte *) thdr.majorVersion); nlm_version_header (abfd)->minorVersion = get_word (abfd, (bfd_byte *) thdr.minorVersion); nlm_version_header (abfd)->revision = get_word (abfd, (bfd_byte *) thdr.revision); nlm_version_header (abfd)->year = get_word (abfd, (bfd_byte *) thdr.year); nlm_version_header (abfd)->month = get_word (abfd, (bfd_byte *) thdr.month); nlm_version_header (abfd)->day = get_word (abfd, (bfd_byte *) thdr.day); } else if (strncmp (tempstr, "MeSsAgEs", 8) == 0) { Nlm_External_Extended_Header thdr; if (bfd_read ((PTR) & thdr, sizeof (thdr), 1, abfd) != sizeof (thdr)) return (false); memcpy (nlm_extended_header (abfd)->stamp, thdr.stamp, sizeof (thdr.stamp)); nlm_extended_header (abfd)->languageID = get_word (abfd, (bfd_byte *) thdr.languageID); nlm_extended_header (abfd)->messageFileOffset = get_word (abfd, (bfd_byte *) thdr.messageFileOffset); nlm_extended_header (abfd)->messageFileLength = get_word (abfd, (bfd_byte *) thdr.messageFileLength); nlm_extended_header (abfd)->messageCount = get_word (abfd, (bfd_byte *) thdr.messageCount); nlm_extended_header (abfd)->helpFileOffset = get_word (abfd, (bfd_byte *) thdr.helpFileOffset); nlm_extended_header (abfd)->helpFileLength = get_word (abfd, (bfd_byte *) thdr.helpFileLength); nlm_extended_header (abfd)->RPCDataOffset = get_word (abfd, (bfd_byte *) thdr.RPCDataOffset); nlm_extended_header (abfd)->RPCDataLength = get_word (abfd, (bfd_byte *) thdr.RPCDataLength); nlm_extended_header (abfd)->sharedCodeOffset = get_word (abfd, (bfd_byte *) thdr.sharedCodeOffset); nlm_extended_header (abfd)->sharedCodeLength = get_word (abfd, (bfd_byte *) thdr.sharedCodeLength); nlm_extended_header (abfd)->sharedDataOffset = get_word (abfd, (bfd_byte *) thdr.sharedDataOffset); nlm_extended_header (abfd)->sharedDataLength = get_word (abfd, (bfd_byte *) thdr.sharedDataLength); nlm_extended_header (abfd)->sharedRelocationFixupOffset = get_word (abfd, (bfd_byte *) thdr.sharedRelocationFixupOffset); nlm_extended_header (abfd)->sharedRelocationFixupCount = get_word (abfd, (bfd_byte *) thdr.sharedRelocationFixupCount); nlm_extended_header (abfd)->sharedExternalReferenceOffset = get_word (abfd, (bfd_byte *) thdr.sharedExternalReferenceOffset); nlm_extended_header (abfd)->sharedExternalReferenceCount = get_word (abfd, (bfd_byte *) thdr.sharedExternalReferenceCount); nlm_extended_header (abfd)->sharedPublicsOffset = get_word (abfd, (bfd_byte *) thdr.sharedPublicsOffset); nlm_extended_header (abfd)->sharedPublicsCount = get_word (abfd, (bfd_byte *) thdr.sharedPublicsCount); nlm_extended_header (abfd)->sharedDebugRecordOffset = get_word (abfd, (bfd_byte *) thdr.sharedDebugRecordOffset); nlm_extended_header (abfd)->sharedDebugRecordCount = get_word (abfd, (bfd_byte *) thdr.sharedDebugRecordCount); nlm_extended_header (abfd)->SharedInitializationOffset = get_word (abfd, (bfd_byte *) thdr.sharedInitializationOffset); nlm_extended_header (abfd)->SharedExitProcedureOffset = get_word (abfd, (bfd_byte *) thdr.SharedExitProcedureOffset); nlm_extended_header (abfd)->productID = get_word (abfd, (bfd_byte *) thdr.productID); nlm_extended_header (abfd)->reserved0 = get_word (abfd, (bfd_byte *) thdr.reserved0); nlm_extended_header (abfd)->reserved1 = get_word (abfd, (bfd_byte *) thdr.reserved1); nlm_extended_header (abfd)->reserved2 = get_word (abfd, (bfd_byte *) thdr.reserved2); nlm_extended_header (abfd)->reserved3 = get_word (abfd, (bfd_byte *) thdr.reserved3); nlm_extended_header (abfd)->reserved4 = get_word (abfd, (bfd_byte *) thdr.reserved4); nlm_extended_header (abfd)->reserved5 = get_word (abfd, (bfd_byte *) thdr.reserved5); } else if (strncmp (tempstr, "CoPyRiGhT=", 10) == 0) { if (bfd_read ((PTR) nlm_copyright_header (abfd)->stamp, sizeof (nlm_copyright_header (abfd)->stamp), 1, abfd) != sizeof (nlm_copyright_header (abfd)->stamp)) return (false); if (bfd_read ((PTR) & (nlm_copyright_header (abfd) ->copyrightMessageLength), 1, 1, abfd) != 1) return (false); /* The copyright message is a variable length string. */ if (bfd_read ((PTR) nlm_copyright_header (abfd)->copyrightMessage, nlm_copyright_header (abfd)->copyrightMessageLength + 1, 1, abfd) != nlm_copyright_header (abfd)->copyrightMessageLength + 1) return (false); } else if (strncmp (tempstr, "CuStHeAd", 8) == 0) { Nlm_External_Custom_Header thdr; bfd_size_type hdrLength; file_ptr dataOffset; bfd_size_type dataLength; char dataStamp[8]; PTR hdr; /* Read the stamp ("CuStHeAd"). */ if (bfd_read ((PTR) thdr.stamp, 1, sizeof (thdr.stamp), abfd) != sizeof (thdr.stamp)) return false; /* Read the length of this custom header. */ if (bfd_read ((PTR) thdr.length, 1, sizeof (thdr.length), abfd) != sizeof (thdr.length)) return false; hdrLength = get_word (abfd, (bfd_byte *) thdr.length); /* Read further fields if we have them. */ if (hdrLength < NLM_TARGET_LONG_SIZE) dataOffset = 0; else { if (bfd_read ((PTR) thdr.dataOffset, 1, sizeof (thdr.dataOffset), abfd) != sizeof (thdr.dataOffset)) return false; dataOffset = get_word (abfd, (bfd_byte *) thdr.dataOffset); } if (hdrLength < 2 * NLM_TARGET_LONG_SIZE) dataLength = 0; else { if (bfd_read ((PTR) thdr.dataLength, 1, sizeof (thdr.dataLength), abfd) != sizeof (thdr.dataLength)) return false; dataLength = get_word (abfd, (bfd_byte *) thdr.dataLength); } if (hdrLength < 2 * NLM_TARGET_LONG_SIZE + 8) memset (dataStamp, 0, sizeof (dataStamp)); else { if (bfd_read ((PTR) dataStamp, 1, sizeof (dataStamp), abfd) != sizeof (dataStamp)) return false; } /* Read the rest of the header, if any. */ if (hdrLength <= 2 * NLM_TARGET_LONG_SIZE + 8) { hdr = NULL; hdrLength = 0; } else { hdrLength -= 2 * NLM_TARGET_LONG_SIZE + 8; hdr = bfd_alloc (abfd, hdrLength); if (hdr == NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read (hdr, 1, hdrLength, abfd) != hdrLength) return false; } /* If we have found a Cygnus header, process it. Otherwise, just save the associated data without trying to interpret it. */ if (strncmp (dataStamp, "CyGnUsEx", 8) == 0) { file_ptr pos; bfd_byte *contents; bfd_byte *p, *pend; BFD_ASSERT (hdrLength == 0 && hdr == NULL); pos = bfd_tell (abfd); if (bfd_seek (abfd, dataOffset, SEEK_SET) != 0) return false; contents = (bfd_byte *) bfd_alloc (abfd, dataLength); if (contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read (contents, 1, dataLength, abfd) != dataLength) return false; if (bfd_seek (abfd, pos, SEEK_SET) != 0) return false; memcpy (nlm_cygnus_ext_header (abfd), "CyGnUsEx", 8); nlm_cygnus_ext_header (abfd)->offset = dataOffset; nlm_cygnus_ext_header (abfd)->length = dataLength; /* This data this header points to provides a list of the sections which were in the original object file which was converted to become an NLM. We locate those sections and add them to the BFD. Note that this is likely to create a second .text, .data and .bss section; retrieving the sections by name will get the actual NLM sections, which is what we want to happen. The sections from the original file, which may be subsets of the NLM section, can only be found using bfd_map_over_sections. */ p = contents; pend = p + dataLength; while (p < pend) { char *name; size_t l; file_ptr filepos; bfd_size_type size; asection *newsec; /* The format of this information is null terminated section name zeroes to adjust to 4 byte boundary 4 byte section data file pointer 4 byte section size */ name = (char *) p; l = strlen (name) + 1; l = (l + 3) &~ 3; p += l; filepos = bfd_h_get_32 (abfd, p); p += 4; size = bfd_h_get_32 (abfd, p); p += 4; newsec = bfd_make_section_anyway (abfd, name); if (newsec == (asection *) NULL) return false; newsec->_raw_size = size; if (filepos != 0) { newsec->filepos = filepos; newsec->flags |= SEC_HAS_CONTENTS; } } } else { memcpy (nlm_custom_header (abfd)->stamp, thdr.stamp, sizeof (thdr.stamp)); nlm_custom_header (abfd)->hdrLength = hdrLength; nlm_custom_header (abfd)->dataOffset = dataOffset; nlm_custom_header (abfd)->dataLength = dataLength; memcpy (nlm_custom_header (abfd)->dataStamp, dataStamp, sizeof (dataStamp)); nlm_custom_header (abfd)->hdr = hdr; } } else { break; } } return (true); } /* Return whether there is a non-zero byte in a memory block. */ static boolean find_nonzero (buf, size) PTR buf; size_t size; { char *p = (char *) buf; while (size-- != 0) if (*p++ != 0) return true; return false; } /* Swap out the contents of the auxiliary headers. We create those auxiliary headers which have been set non-zero. We do not require the caller to set up the stamp fields. */ static boolean nlm_swap_auxiliary_headers_out (abfd) bfd *abfd; { /* Write out the version header if there is one. */ if (find_nonzero ((PTR) nlm_version_header (abfd), sizeof (Nlm_Internal_Version_Header))) { Nlm_External_Version_Header thdr; memcpy (thdr.stamp, "VeRsIoN#", 8); put_word (abfd, (bfd_vma) nlm_version_header (abfd)->majorVersion, (bfd_byte *) thdr.majorVersion); put_word (abfd, (bfd_vma) nlm_version_header (abfd)->minorVersion, (bfd_byte *) thdr.minorVersion); put_word (abfd, (bfd_vma) nlm_version_header (abfd)->revision, (bfd_byte *) thdr.revision); put_word (abfd, (bfd_vma) nlm_version_header (abfd)->year, (bfd_byte *) thdr.year); put_word (abfd, (bfd_vma) nlm_version_header (abfd)->month, (bfd_byte *) thdr.month); put_word (abfd, (bfd_vma) nlm_version_header (abfd)->day, (bfd_byte *) thdr.day); if (bfd_write ((PTR) & thdr, sizeof (thdr), 1, abfd) != sizeof (thdr)) return false; } /* Write out the extended header if there is one. */ if (find_nonzero ((PTR) nlm_extended_header (abfd), sizeof (Nlm_Internal_Extended_Header))) { Nlm_External_Extended_Header thdr; memcpy (thdr.stamp, "MeSsAgEs", 8); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->languageID, (bfd_byte *) thdr.languageID); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->messageFileOffset, (bfd_byte *) thdr.messageFileOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->messageFileLength, (bfd_byte *) thdr.messageFileLength); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->messageCount, (bfd_byte *) thdr.messageCount); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->helpFileOffset, (bfd_byte *) thdr.helpFileOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->helpFileLength, (bfd_byte *) thdr.helpFileLength); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->RPCDataOffset, (bfd_byte *) thdr.RPCDataOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->RPCDataLength, (bfd_byte *) thdr.RPCDataLength); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedCodeOffset, (bfd_byte *) thdr.sharedCodeOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedCodeLength, (bfd_byte *) thdr.sharedCodeLength); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedDataOffset, (bfd_byte *) thdr.sharedDataOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedDataLength, (bfd_byte *) thdr.sharedDataLength); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedRelocationFixupOffset, (bfd_byte *) thdr.sharedRelocationFixupOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedRelocationFixupCount, (bfd_byte *) thdr.sharedRelocationFixupCount); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedExternalReferenceOffset, (bfd_byte *) thdr.sharedExternalReferenceOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedExternalReferenceCount, (bfd_byte *) thdr.sharedExternalReferenceCount); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedPublicsOffset, (bfd_byte *) thdr.sharedPublicsOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedPublicsCount, (bfd_byte *) thdr.sharedPublicsCount); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedDebugRecordOffset, (bfd_byte *) thdr.sharedDebugRecordOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->sharedDebugRecordCount, (bfd_byte *) thdr.sharedDebugRecordCount); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->SharedInitializationOffset, (bfd_byte *) thdr.sharedInitializationOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->SharedExitProcedureOffset, (bfd_byte *) thdr.SharedExitProcedureOffset); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->productID, (bfd_byte *) thdr.productID); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->reserved0, (bfd_byte *) thdr.reserved0); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->reserved1, (bfd_byte *) thdr.reserved1); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->reserved2, (bfd_byte *) thdr.reserved2); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->reserved3, (bfd_byte *) thdr.reserved3); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->reserved4, (bfd_byte *) thdr.reserved4); put_word (abfd, (bfd_vma) nlm_extended_header (abfd)->reserved5, (bfd_byte *) thdr.reserved5); if (bfd_write ((PTR) & thdr, sizeof (thdr), 1, abfd) != sizeof (thdr)) return false; } /* Write out the copyright header if there is one. */ if (find_nonzero ((PTR) nlm_copyright_header (abfd), sizeof (Nlm_Internal_Copyright_Header))) { Nlm_External_Copyright_Header thdr; memcpy (thdr.stamp, "CoPyRiGhT=", 10); if (bfd_write ((PTR) thdr.stamp, sizeof (thdr.stamp), 1, abfd) != sizeof (thdr.stamp)) return false; thdr.copyrightMessageLength[0] = nlm_copyright_header (abfd)->copyrightMessageLength; if (bfd_write ((PTR) thdr.copyrightMessageLength, 1, 1, abfd) != 1) return false; /* The copyright message is a variable length string. */ if (bfd_write ((PTR) nlm_copyright_header (abfd)->copyrightMessage, nlm_copyright_header (abfd)->copyrightMessageLength + 1, 1, abfd) != nlm_copyright_header (abfd)->copyrightMessageLength + 1) return false; } /* Write out the custom header if there is one. */ if (find_nonzero ((PTR) nlm_custom_header (abfd), sizeof (Nlm_Internal_Custom_Header))) { Nlm_External_Custom_Header thdr; boolean ds; bfd_size_type hdrLength; ds = find_nonzero ((PTR) nlm_custom_header (abfd)->dataStamp, sizeof (nlm_custom_header (abfd)->dataStamp)); memcpy (thdr.stamp, "CuStHeAd", 8); hdrLength = (2 * NLM_TARGET_LONG_SIZE + (ds ? 8 : 0) + nlm_custom_header (abfd)->hdrLength); put_word (abfd, hdrLength, thdr.length); put_word (abfd, (bfd_vma) nlm_custom_header (abfd)->dataOffset, thdr.dataOffset); put_word (abfd, (bfd_vma) nlm_custom_header (abfd)->dataLength, thdr.dataLength); if (! ds) { BFD_ASSERT (nlm_custom_header (abfd)->hdrLength == 0); if (bfd_write ((PTR) &thdr, 1, sizeof (thdr) - sizeof (thdr.dataStamp), abfd) != sizeof (thdr) - sizeof (thdr.dataStamp)) return false; } else { memcpy (thdr.dataStamp, nlm_custom_header (abfd)->dataStamp, sizeof (thdr.dataStamp)); if (bfd_write ((PTR) &thdr, sizeof (thdr), 1, abfd) != sizeof (thdr)) return false; if (bfd_write (nlm_custom_header (abfd)->hdr, 1, nlm_custom_header (abfd)->hdrLength, abfd) != nlm_custom_header (abfd)->hdrLength) return false; } } /* Write out the Cygnus debugging header if there is one. */ if (find_nonzero ((PTR) nlm_cygnus_ext_header (abfd), sizeof (Nlm_Internal_Cygnus_Ext_Header))) { Nlm_External_Custom_Header thdr; memcpy (thdr.stamp, "CuStHeAd", 8); put_word (abfd, (bfd_vma) 2 * NLM_TARGET_LONG_SIZE + 8, (bfd_byte *) thdr.length); put_word (abfd, (bfd_vma) nlm_cygnus_ext_header (abfd)->offset, (bfd_byte *) thdr.dataOffset); put_word (abfd, (bfd_vma) nlm_cygnus_ext_header (abfd)->length, (bfd_byte *) thdr.dataLength); memcpy (thdr.dataStamp, "CyGnUsEx", 8); if (bfd_write ((PTR) &thdr, sizeof (thdr), 1, abfd) != sizeof (thdr)) return false; } return true; } /* We read the NLM's public symbols and use it to generate a bfd symbol table (hey, it's better than nothing) on a one-for-one basis. Thus use the number of public symbols as the number of bfd symbols we will have once we actually get around to reading them in. Return the number of bytes required to hold the symtab vector, based on the count plus 1, since we will NULL terminate the vector allocated based on this size. */ long nlm_get_symtab_upper_bound (abfd) bfd *abfd; { Nlm_Internal_Fixed_Header *i_fxdhdrp; /* Nlm file header, internal form */ long symcount; long symtab_size = 0; i_fxdhdrp = nlm_fixed_header (abfd); symcount = (i_fxdhdrp->numberOfPublics + i_fxdhdrp->numberOfDebugRecords + i_fxdhdrp->numberOfExternalReferences); symtab_size = (symcount + 1) * (sizeof (asymbol)); return (symtab_size); } /* Note that bfd_get_symcount is guaranteed to be zero if slurping the symbol table fails. */ long nlm_get_symtab (abfd, alocation) bfd *abfd; asymbol **alocation; { nlm_symbol_type *symbase; bfd_size_type counter = 0; if (nlm_slurp_symbol_table (abfd) == false) return -1; symbase = nlm_get_symbols (abfd); while (counter < bfd_get_symcount (abfd)) { *alocation++ = &symbase->symbol; symbase++; counter++; } *alocation = (asymbol *) NULL; return bfd_get_symcount (abfd); } /* Make an NLM symbol. There is nothing special to do here. */ asymbol * nlm_make_empty_symbol (abfd) bfd *abfd; { nlm_symbol_type *new; new = (nlm_symbol_type *) bfd_zalloc (abfd, sizeof (nlm_symbol_type)); if (new) new->symbol.the_bfd = abfd; return &new->symbol; } /* Get symbol information. */ void nlm_get_symbol_info (ignore_abfd, symbol, ret) bfd *ignore_abfd; asymbol *symbol; symbol_info *ret; { bfd_symbol_info (symbol, ret); } /* Print symbol information. */ void nlm_print_symbol (abfd, afile, symbol, how) bfd *abfd; PTR afile; asymbol *symbol; bfd_print_symbol_type how; { FILE *file = (FILE *) afile; switch (how) { case bfd_print_symbol_name: case bfd_print_symbol_more: if (symbol->name) fprintf (file, "%s", symbol->name); break; case bfd_print_symbol_all: bfd_print_symbol_vandf ((PTR) file, symbol); fprintf (file, " %-5s", symbol->section->name); if (symbol->name) fprintf (file, " %s", symbol->name); break; } } /* Slurp in nlm symbol table. In the external (in-file) form, NLM export records are variable length, with the following form: 1 byte length of the symbol name (N) N bytes the symbol name 4 bytes the symbol offset from start of it's section We also read in the debugging symbols and import records. Import records are treated as undefined symbols. As we read the import records we also read in the associated reloc information, which is attached to the symbol. The bfd symbols are copied to SYMPTRS. When we return, the bfd symcount is either zero or contains the correct number of symbols. */ static boolean nlm_slurp_symbol_table (abfd) bfd *abfd; { Nlm_Internal_Fixed_Header *i_fxdhdrp; /* Nlm file header, internal form */ bfd_size_type totsymcount; /* Number of NLM symbols */ bfd_size_type symcount; /* Counter of NLM symbols */ nlm_symbol_type *sym; /* Pointer to current bfd symbol */ unsigned char symlength; /* Symbol length read into here */ unsigned char symtype; /* Type of debugging symbol */ bfd_byte temp[NLM_TARGET_LONG_SIZE]; /* Symbol offsets read into here */ boolean (*read_import_func) PARAMS ((bfd *, nlm_symbol_type *)); boolean (*set_public_section_func) PARAMS ((bfd *, nlm_symbol_type *)); if (nlm_get_symbols (abfd) != NULL) return (true); /* Read each raw NLM symbol, using the information to create a canonical bfd symbol table entry. Note that we allocate the initial bfd canonical symbol buffer based on a one-to-one mapping of the NLM symbols to canonical symbols. We actually use all the NLM symbols, so there will be no space left over at the end. When we have all the symbols, we build the caller's pointer vector. */ abfd->symcount = 0; i_fxdhdrp = nlm_fixed_header (abfd); totsymcount = (i_fxdhdrp->numberOfPublics + i_fxdhdrp->numberOfDebugRecords + i_fxdhdrp->numberOfExternalReferences); if (totsymcount == 0) { return (true); } if (bfd_seek (abfd, i_fxdhdrp->publicsOffset, SEEK_SET) == -1) return (false); sym = ((nlm_symbol_type *) bfd_zalloc (abfd, totsymcount * sizeof (nlm_symbol_type))); if (!sym) { bfd_set_error (bfd_error_no_memory); return false; } nlm_set_symbols (abfd, sym); /* We use the bfd's symcount directly as the control count, so that early termination of the loop leaves the symcount correct for the symbols that were read. */ set_public_section_func = nlm_set_public_section_func (abfd); symcount = i_fxdhdrp->numberOfPublics; while (abfd->symcount < symcount) { if (bfd_read ((PTR) & symlength, sizeof (symlength), 1, abfd) != sizeof (symlength)) return (false); sym->symbol.the_bfd = abfd; sym->symbol.name = bfd_alloc (abfd, symlength + 1); if (!sym->symbol.name) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read ((PTR) sym->symbol.name, symlength, 1, abfd) != symlength) return (false); /* Cast away const. */ ((char *) (sym->symbol.name))[symlength] = '\0'; if (bfd_read ((PTR) temp, sizeof (temp), 1, abfd) != sizeof (temp)) return (false); sym->symbol.flags = BSF_GLOBAL | BSF_EXPORT; sym->symbol.value = get_word (abfd, temp); if (set_public_section_func) { /* Most backends can use the code below, but unfortunately some use a different scheme. */ if ((*set_public_section_func) (abfd, sym) == false) return false; } else { if (sym->symbol.value & NLM_HIBIT) { sym->symbol.value &= ~NLM_HIBIT; sym->symbol.flags |= BSF_FUNCTION; sym->symbol.section = bfd_get_section_by_name (abfd, NLM_CODE_NAME); } else { sym->symbol.section = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); } } sym->rcnt = 0; abfd->symcount++; sym++; } /* Read the debugging records. */ if (i_fxdhdrp->numberOfDebugRecords > 0) { if (bfd_seek (abfd, i_fxdhdrp->debugInfoOffset, SEEK_SET) == -1) return (false); symcount += i_fxdhdrp->numberOfDebugRecords; while (abfd->symcount < symcount) { if ((bfd_read ((PTR) & symtype, sizeof (symtype), 1, abfd) != sizeof (symtype)) || bfd_read ((PTR) temp, sizeof (temp), 1, abfd) != sizeof (temp) || (bfd_read ((PTR) & symlength, sizeof (symlength), 1, abfd) != sizeof (symlength))) return false; sym->symbol.the_bfd = abfd; sym->symbol.name = bfd_alloc (abfd, symlength + 1); if (!sym->symbol.name) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_read ((PTR) sym->symbol.name, symlength, 1, abfd) != symlength) return (false); /* Cast away const. */ ((char *) (sym->symbol.name))[symlength] = '\0'; sym->symbol.flags = BSF_LOCAL; sym->symbol.value = get_word (abfd, temp); if (symtype == 0) { sym->symbol.section = bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME); } else if (symtype == 1) { sym->symbol.flags |= BSF_FUNCTION; sym->symbol.section = bfd_get_section_by_name (abfd, NLM_CODE_NAME); } else { sym->symbol.section = bfd_abs_section_ptr; } sym->rcnt = 0; abfd->symcount++; sym++; } } /* Read in the import records. We can only do this if we know how to read relocs for this target. */ read_import_func = nlm_read_import_func (abfd); if (read_import_func != NULL) { if (bfd_seek (abfd, i_fxdhdrp->externalReferencesOffset, SEEK_SET) == -1) return (false); symcount += i_fxdhdrp->numberOfExternalReferences; while (abfd->symcount < symcount) { if ((*read_import_func) (abfd, sym) == false) return false; sym++; abfd->symcount++; } } return (true); } /* Get the relocs for an NLM file. There are two types of relocs. Imports are relocs against symbols defined in other NLM files. We treat these as relocs against global symbols. Relocation fixups are internal relocs. The actual format used to store the relocs is machine specific. */ /* Read in the relocation fixup information. This is stored in nlm_relocation_fixups, an array of arelent structures, and nlm_relocation_fixup_secs, an array of section pointers. The section pointers are needed because the relocs are not sorted by section. */ static boolean nlm_slurp_reloc_fixups (abfd) bfd *abfd; { boolean (*read_func) PARAMS ((bfd *, nlm_symbol_type *, asection **, arelent *)); bfd_size_type count; arelent *rels; asection **secs; if (nlm_relocation_fixups (abfd) != NULL) return true; read_func = nlm_read_reloc_func (abfd); if (read_func == NULL) return true; if (bfd_seek (abfd, nlm_fixed_header (abfd)->relocationFixupOffset, SEEK_SET) != 0) return false; count = nlm_fixed_header (abfd)->numberOfRelocationFixups; rels = (arelent *) bfd_alloc (abfd, count * sizeof (arelent)); secs = (asection **) bfd_alloc (abfd, count * sizeof (asection *)); if ((rels == NULL || secs == NULL) && count != 0) { bfd_set_error (bfd_error_no_memory); return false; } nlm_relocation_fixups (abfd) = rels; nlm_relocation_fixup_secs (abfd) = secs; /* We have to read piece by piece, because we don't know how large the machine specific reloc information is. */ while (count-- != 0) { if ((*read_func) (abfd, (nlm_symbol_type *) NULL, secs, rels) == false) { nlm_relocation_fixups (abfd) = NULL; nlm_relocation_fixup_secs (abfd) = NULL; return false; } ++secs; ++rels; } return true; } /* Get the number of relocs. This really just returns an upper bound, since it does not attempt to distinguish them based on the section. That will be handled when they are actually read. */ long nlm_get_reloc_upper_bound (abfd, sec) bfd *abfd; asection *sec; { nlm_symbol_type *syms; bfd_size_type count; unsigned int ret; /* If we don't know how to read relocs, just return 0. */ if (nlm_read_reloc_func (abfd) == NULL) return -1; /* Make sure we have either the code or the data section. */ if ((bfd_get_section_flags (abfd, sec) & (SEC_CODE | SEC_DATA)) == 0) return 0; syms = nlm_get_symbols (abfd); if (syms == NULL) { if (nlm_slurp_symbol_table (abfd) == false) return -1; syms = nlm_get_symbols (abfd); } ret = nlm_fixed_header (abfd)->numberOfRelocationFixups; count = bfd_get_symcount (abfd); while (count-- != 0) { ret += syms->rcnt; ++syms; } return (ret + 1) * sizeof (arelent *); } /* Get the relocs themselves. */ long nlm_canonicalize_reloc (abfd, sec, relptr, symbols) bfd *abfd; asection *sec; arelent **relptr; asymbol **symbols; { arelent *rels; asection **secs; bfd_size_type count, i; unsigned int ret; /* Get the relocation fixups. */ rels = nlm_relocation_fixups (abfd); if (rels == NULL) { if (nlm_slurp_reloc_fixups (abfd) == false) return -1; rels = nlm_relocation_fixups (abfd); } secs = nlm_relocation_fixup_secs (abfd); ret = 0; count = nlm_fixed_header (abfd)->numberOfRelocationFixups; for (i = 0; i < count; i++, rels++, secs++) { if (*secs == sec) { *relptr++ = rels; ++ret; } } /* Get the import symbols. */ count = bfd_get_symcount (abfd); for (i = 0; i < count; i++, symbols++) { asymbol *sym; sym = *symbols; if (bfd_asymbol_flavour (sym) == bfd_target_nlm_flavour) { nlm_symbol_type *nlm_sym; bfd_size_type j; nlm_sym = (nlm_symbol_type *) sym; for (j = 0; j < nlm_sym->rcnt; j++) { if (nlm_sym->relocs[j].section == sec) { *relptr = &nlm_sym->relocs[j].reloc; (*relptr)->sym_ptr_ptr = symbols; ++relptr; ++ret; } } } } *relptr = NULL; return ret; } /* Compute the section file positions for an NLM file. All variable length data in the file headers must be set before this function is called. If the variable length data is changed later, the resulting object file will be incorrect. Unfortunately, there is no way to check this. This routine also sets the Size and Offset fields in the fixed header. It also looks over the symbols and moves any common symbols into the .bss section; NLM has no way to represent a common symbol. This approach means that either the symbols must already have been set at this point, or there must be no common symbols. We need to move the symbols at this point so that mangle_relocs can see the final values. */ static boolean nlm_compute_section_file_positions (abfd) bfd *abfd; { file_ptr sofar; asection *sec; bfd_vma text, data, bss; bfd_vma text_low, data_low; int text_align, data_align, other_align; file_ptr text_ptr, data_ptr, other_ptr; asection *bss_sec; asymbol **sym_ptr_ptr; if (abfd->output_has_begun == true) return true; /* Make sure we have a section to hold uninitialized data. */ bss_sec = bfd_get_section_by_name (abfd, NLM_UNINITIALIZED_DATA_NAME); if (bss_sec == NULL) { if (!add_bfd_section (abfd, NLM_UNINITIALIZED_DATA_NAME, (file_ptr) 0, (bfd_size_type) 0, SEC_ALLOC)) return false; bss_sec = bfd_get_section_by_name (abfd, NLM_UNINITIALIZED_DATA_NAME); } abfd->output_has_begun = true; /* The fixed header. */ sofar = nlm_optional_prefix_size (abfd) + nlm_fixed_header_size (abfd); /* The variable header. */ sofar += (sizeof (nlm_variable_header (abfd)->descriptionLength) + nlm_variable_header (abfd)->descriptionLength + 1 + NLM_TARGET_LONG_SIZE /* stackSize */ + NLM_TARGET_LONG_SIZE /* reserved */ + sizeof (nlm_variable_header (abfd)->oldThreadName) + sizeof (nlm_variable_header (abfd)->screenNameLength) + nlm_variable_header (abfd)->screenNameLength + 1 + sizeof (nlm_variable_header (abfd)->threadNameLength) + nlm_variable_header (abfd)->threadNameLength + 1); /* The auxiliary headers. */ if (find_nonzero ((PTR) nlm_version_header (abfd), sizeof (Nlm_Internal_Version_Header))) sofar += sizeof (Nlm_External_Version_Header); if (find_nonzero ((PTR) nlm_extended_header (abfd), sizeof (Nlm_Internal_Extended_Header))) sofar += sizeof (Nlm_External_Extended_Header); if (find_nonzero ((PTR) nlm_copyright_header (abfd), sizeof (Nlm_Internal_Copyright_Header))) sofar += (sizeof (Nlm_External_Copyright_Header) + nlm_copyright_header (abfd)->copyrightMessageLength + 1); if (find_nonzero ((PTR) nlm_custom_header (abfd), sizeof (Nlm_Internal_Custom_Header))) sofar += (sizeof (Nlm_External_Custom_Header) + nlm_custom_header (abfd)->hdrLength); if (find_nonzero ((PTR) nlm_cygnus_ext_header (abfd), sizeof (Nlm_Internal_Cygnus_Ext_Header))) sofar += sizeof (Nlm_External_Custom_Header); /* Compute the section file positions in two passes. First get the sizes of the text and data sections, and then set the file positions. This code aligns the sections in the file using the same alignment restrictions that apply to the sections in memory; this may not be necessary. */ text = 0; text_low = (bfd_vma) - 1; text_align = 0; data = 0; data_low = (bfd_vma) - 1; data_align = 0; bss = 0; other_align = 0; for (sec = abfd->sections; sec != (asection *) NULL; sec = sec->next) { flagword f; sec->_raw_size = BFD_ALIGN (sec->_raw_size, 1 << sec->alignment_power); f = bfd_get_section_flags (abfd, sec); if (f & SEC_CODE) { text += sec->_raw_size; if (bfd_get_section_vma (abfd, sec) < text_low) text_low = bfd_get_section_vma (abfd, sec); if (sec->alignment_power > text_align) text_align = sec->alignment_power; } else if (f & SEC_DATA) { data += sec->_raw_size; if (bfd_get_section_vma (abfd, sec) < data_low) data_low = bfd_get_section_vma (abfd, sec); if (sec->alignment_power > data_align) data_align = sec->alignment_power; } else if (f & SEC_HAS_CONTENTS) { if (sec->alignment_power > other_align) other_align = sec->alignment_power; } else if (f & SEC_ALLOC) bss += sec->_raw_size; } nlm_set_text_low (abfd, text_low); nlm_set_data_low (abfd, data_low); if (nlm_no_uninitialized_data (abfd)) { /* This NetWare format does not use uninitialized data. We must increase the size of the data section. We will never wind up writing those file locations, so they will remain zero. */ data += bss; bss = 0; } text_ptr = BFD_ALIGN (sofar, 1 << text_align); data_ptr = BFD_ALIGN (text_ptr + text, 1 << data_align); other_ptr = BFD_ALIGN (data_ptr + data, 1 << other_align); /* Fill in some fields in the header for which we now have the information. */ nlm_fixed_header (abfd)->codeImageOffset = text_ptr; nlm_fixed_header (abfd)->codeImageSize = text; nlm_fixed_header (abfd)->dataImageOffset = data_ptr; nlm_fixed_header (abfd)->dataImageSize = data; nlm_fixed_header (abfd)->uninitializedDataSize = bss; for (sec = abfd->sections; sec != (asection *) NULL; sec = sec->next) { flagword f; f = bfd_get_section_flags (abfd, sec); if (f & SEC_CODE) { sec->filepos = text_ptr; text_ptr += sec->_raw_size; } else if (f & SEC_DATA) { sec->filepos = data_ptr; data_ptr += sec->_raw_size; } else if (f & SEC_HAS_CONTENTS) { sec->filepos = other_ptr; other_ptr += sec->_raw_size; } } nlm_fixed_header (abfd)->relocationFixupOffset = other_ptr; /* Move all common symbols into the .bss section. */ sym_ptr_ptr = bfd_get_outsymbols (abfd); if (sym_ptr_ptr != NULL) { asymbol **sym_end; bfd_vma add; sym_end = sym_ptr_ptr + bfd_get_symcount (abfd); add = 0; for (; sym_ptr_ptr < sym_end; sym_ptr_ptr++) { asymbol *sym; bfd_vma size; sym = *sym_ptr_ptr; if (!bfd_is_com_section (bfd_get_section (sym))) continue; /* Put the common symbol in the .bss section, and increase the size of the .bss section by the size of the common symbol (which is the old value of the symbol). */ sym->section = bss_sec; size = sym->value; sym->value = bss_sec->_raw_size + add; add += size; add = BFD_ALIGN (add, 1 << bss_sec->alignment_power); } if (add != 0) { if (nlm_no_uninitialized_data (abfd)) { /* We could handle this case, but so far it hasn't been necessary. */ abort (); } nlm_fixed_header (abfd)->uninitializedDataSize += add; bss_sec->_raw_size += add; } } return true; } /* Set the contents of a section. To do this we need to know where the section is going to be located in the output file. That means that the sizes of all the sections must be set, and all the variable size header information must be known. */ boolean nlm_set_section_contents (abfd, section, location, offset, count) bfd *abfd; asection *section; PTR location; file_ptr offset; bfd_size_type count; { if (abfd->output_has_begun == false && nlm_compute_section_file_positions (abfd) == false) return false; if (count == 0) return true; /* i386 NetWare has a very restricted set of relocs. In order for objcopy to work, the NLM i386 backend needs a chance to rework the section contents so that its set of relocs will work. If all the relocs are already acceptable, this will not do anything. */ if (section->reloc_count != 0) { boolean (*mangle_relocs_func) PARAMS ((bfd *, asection *, PTR, bfd_vma, bfd_size_type)); mangle_relocs_func = nlm_mangle_relocs_func (abfd); if (mangle_relocs_func != NULL) { if (!(*mangle_relocs_func) (abfd, section, location, (bfd_vma) offset, count)) return false; } } if (bfd_seek (abfd, (file_ptr) (section->filepos + offset), SEEK_SET) != 0 || bfd_write (location, 1, count, abfd) != count) return false; return true; } /* We need to sort a list of relocs associated with sections when we write out the external relocs. */ static int nlm_external_reloc_compare (p1, p2) const void *p1; const void *p2; { const struct reloc_and_sec *r1 = (const struct reloc_and_sec *) p1; const struct reloc_and_sec *r2 = (const struct reloc_and_sec *) p2; int cmp; cmp = strcmp ((*r1->rel->sym_ptr_ptr)->name, (*r2->rel->sym_ptr_ptr)->name); if (cmp != 0) return cmp; /* We sort by address within symbol to make the sort more stable and increase the chances that different hosts will generate bit for bit equivalent results. */ return (int) (r1->rel->address - r2->rel->address); } /* Write out an NLM file. We write out the information in this order: fixed header variable header auxiliary headers code sections data sections other sections (custom data, messages, help, shared NLM, RPC, module dependencies) relocation fixups external references (imports) public symbols (exports) debugging records This is similar to the order used by the NetWare tools; the difference is that NetWare puts the sections other than code, data and custom data at the end of the NLM. It is convenient for us to know where the sections are going to be before worrying about the size of the other information. By the time this function is called, all the section data should have been output using set_section_contents. Note that custom data, the message file, the help file, the shared NLM file, the RPC data, and the module dependencies are all considered to be sections; the caller is responsible for filling in the offset and length fields in the NLM headers. The relocation fixups and imports are both obtained from the list of relocs attached to each section. The exports and debugging records are obtained from the list of outsymbols. */ boolean nlm_write_object_contents (abfd) bfd *abfd; { asection *sec; boolean (*write_import_func) PARAMS ((bfd *, asection *, arelent *)); bfd_size_type external_reloc_count, internal_reloc_count, i, c; struct reloc_and_sec *external_relocs; asymbol **sym_ptr_ptr; file_ptr last; boolean (*write_prefix_func) PARAMS ((bfd *)); unsigned char *fixed_header = NULL; fixed_header = (unsigned char *) malloc (nlm_fixed_header_size (abfd)); if (fixed_header == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (abfd->output_has_begun == false && nlm_compute_section_file_positions (abfd) == false) goto error_return; /* Write out the variable length headers. */ if (bfd_seek (abfd, nlm_optional_prefix_size (abfd) + nlm_fixed_header_size (abfd), SEEK_SET) != 0) goto error_return; if (nlm_swap_variable_header_out (abfd) == false || nlm_swap_auxiliary_headers_out (abfd) == false) { bfd_set_error (bfd_error_system_call); goto error_return; } /* A weak check on whether the section file positions were reasonable. */ if (bfd_tell (abfd) > nlm_fixed_header (abfd)->codeImageOffset) { bfd_set_error (bfd_error_invalid_operation); goto error_return; } /* Advance to the relocs. */ if (bfd_seek (abfd, nlm_fixed_header (abfd)->relocationFixupOffset, SEEK_SET) != 0) goto error_return; /* The format of the relocation entries is dependent upon the particular target. We use an external routine to write the reloc out. */ write_import_func = nlm_write_import_func (abfd); /* Write out the internal relocation fixups. While we're looping over the relocs, we also count the external relocs, which is needed when they are written out below. */ internal_reloc_count = 0; external_reloc_count = 0; for (sec = abfd->sections; sec != (asection *) NULL; sec = sec->next) { arelent **rel_ptr_ptr, **rel_end; if (sec->reloc_count == 0) continue; /* We can only represent relocs within a code or data section. We ignore them for a debugging section. */ if ((bfd_get_section_flags (abfd, sec) & (SEC_CODE | SEC_DATA)) == 0) continue; /* We need to know how to write out imports */ if (write_import_func == NULL) { bfd_set_error (bfd_error_invalid_operation); goto error_return; } rel_ptr_ptr = sec->orelocation; rel_end = rel_ptr_ptr + sec->reloc_count; for (; rel_ptr_ptr < rel_end; rel_ptr_ptr++) { arelent *rel; asymbol *sym; rel = *rel_ptr_ptr; sym = *rel->sym_ptr_ptr; if (! bfd_is_und_section (bfd_get_section (sym))) { ++internal_reloc_count; if ((*write_import_func) (abfd, sec, rel) == false) goto error_return; } else ++external_reloc_count; } } nlm_fixed_header (abfd)->numberOfRelocationFixups = internal_reloc_count; /* Write out the imports (relocs against external symbols). These are output as a symbol name followed by all the relocs for that symbol, so we must first gather together all the relocs against external symbols and sort them. */ external_relocs = (struct reloc_and_sec *) bfd_alloc (abfd, (external_reloc_count * sizeof (struct reloc_and_sec))); if (external_relocs == (struct reloc_and_sec *) NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } i = 0; for (sec = abfd->sections; sec != (asection *) NULL; sec = sec->next) { arelent **rel_ptr_ptr, **rel_end; if (sec->reloc_count == 0) continue; rel_ptr_ptr = sec->orelocation; rel_end = rel_ptr_ptr + sec->reloc_count; for (; rel_ptr_ptr < rel_end; rel_ptr_ptr++) { arelent *rel; asymbol *sym; rel = *rel_ptr_ptr; sym = *rel->sym_ptr_ptr; if (! bfd_is_und_section (bfd_get_section (sym))) continue; external_relocs[i].rel = rel; external_relocs[i].sec = sec; ++i; } } BFD_ASSERT (i == external_reloc_count); /* Sort the external relocs by name. */ qsort ((PTR) external_relocs, (size_t) external_reloc_count, sizeof (struct reloc_and_sec), nlm_external_reloc_compare); /* Write out the external relocs. */ nlm_fixed_header (abfd)->externalReferencesOffset = bfd_tell (abfd); c = 0; i = 0; while (i < external_reloc_count) { arelent *rel; asymbol *sym; bfd_size_type j, cnt; ++c; rel = external_relocs[i].rel; sym = *rel->sym_ptr_ptr; cnt = 0; for (j = i; (j < external_reloc_count && *external_relocs[j].rel->sym_ptr_ptr == sym); j++) ++cnt; if ((*nlm_write_external_func (abfd)) (abfd, cnt, sym, &external_relocs[i]) == false) goto error_return; i += cnt; } nlm_fixed_header (abfd)->numberOfExternalReferences = c; /* Write out the public symbols (exports). */ sym_ptr_ptr = bfd_get_outsymbols (abfd); if (sym_ptr_ptr != (asymbol **) NULL) { bfd_vma (*get_public_offset_func) PARAMS ((bfd *, asymbol *)); boolean (*write_export_func) PARAMS ((bfd *, asymbol *, bfd_vma)); asymbol **sym_end; nlm_fixed_header (abfd)->publicsOffset = bfd_tell (abfd); get_public_offset_func = nlm_get_public_offset_func (abfd); write_export_func = nlm_write_export_func (abfd); c = 0; sym_end = sym_ptr_ptr + bfd_get_symcount (abfd); for (; sym_ptr_ptr < sym_end; sym_ptr_ptr++) { asymbol *sym; bfd_byte len; bfd_vma offset; bfd_byte temp[NLM_TARGET_LONG_SIZE]; sym = *sym_ptr_ptr; if ((sym->flags & (BSF_EXPORT | BSF_GLOBAL)) == 0 || bfd_is_und_section (bfd_get_section (sym))) continue; ++c; if (get_public_offset_func) { /* Most backends can use the code below, but unfortunately some use a different scheme. */ offset = (*get_public_offset_func) (abfd, sym); } else { offset = bfd_asymbol_value (sym); sec = sym->section; if (sec->flags & SEC_CODE) { offset -= nlm_get_text_low (abfd); offset |= NLM_HIBIT; } else if (sec->flags & (SEC_DATA | SEC_ALLOC)) { /* SEC_ALLOC is for the .bss section. */ offset -= nlm_get_data_low (abfd); } else { /* We can't handle an exported symbol that is not in the code or data segment. */ bfd_set_error (bfd_error_invalid_operation); goto error_return; } } if (write_export_func) { if ((*write_export_func) (abfd, sym, offset) == false) goto error_return; } else { len = strlen (sym->name); if ((bfd_write (&len, sizeof (bfd_byte), 1, abfd) != sizeof (bfd_byte)) || bfd_write (sym->name, len, 1, abfd) != len) goto error_return; put_word (abfd, offset, temp); if (bfd_write (temp, sizeof (temp), 1, abfd) != sizeof (temp)) goto error_return; } } nlm_fixed_header (abfd)->numberOfPublics = c; /* Write out the debugging records. The NLM conversion program wants to be able to inhibit this, so as a special hack if debugInfoOffset is set to -1 we don't write any debugging information. This can not be handled by fiddling with the symbol table, because exported symbols appear in both the exported symbol list and the debugging information. */ if (nlm_fixed_header (abfd)->debugInfoOffset == (file_ptr) - 1) { nlm_fixed_header (abfd)->debugInfoOffset = 0; nlm_fixed_header (abfd)->numberOfDebugRecords = 0; } else { nlm_fixed_header (abfd)->debugInfoOffset = bfd_tell (abfd); c = 0; sym_ptr_ptr = bfd_get_outsymbols (abfd); sym_end = sym_ptr_ptr + bfd_get_symcount (abfd); for (; sym_ptr_ptr < sym_end; sym_ptr_ptr++) { asymbol *sym; bfd_byte type, len; bfd_vma offset; bfd_byte temp[NLM_TARGET_LONG_SIZE]; sym = *sym_ptr_ptr; /* The NLM notion of a debugging symbol is actually what BFD calls a local or global symbol. What BFD calls a debugging symbol NLM does not understand at all. */ if ((sym->flags & (BSF_LOCAL | BSF_GLOBAL | BSF_EXPORT)) == 0 || (sym->flags & BSF_DEBUGGING) != 0 || bfd_is_und_section (bfd_get_section (sym))) continue; ++c; offset = bfd_asymbol_value (sym); sec = sym->section; if (sec->flags & SEC_CODE) { offset -= nlm_get_text_low (abfd); type = 1; } else if (sec->flags & (SEC_DATA | SEC_ALLOC)) { /* SEC_ALLOC is for the .bss section. */ offset -= nlm_get_data_low (abfd); type = 0; } else type = 2; /* The type is 0 for data, 1 for code, 2 for absolute. */ if (bfd_write (&type, sizeof (bfd_byte), 1, abfd) != sizeof (bfd_byte)) goto error_return; put_word (abfd, offset, temp); if (bfd_write (temp, sizeof (temp), 1, abfd) != sizeof (temp)) goto error_return; len = strlen (sym->name); if ((bfd_write (&len, sizeof (bfd_byte), 1, abfd) != sizeof (bfd_byte)) || bfd_write (sym->name, len, 1, abfd) != len) goto error_return; } nlm_fixed_header (abfd)->numberOfDebugRecords = c; } } /* NLMLINK fills in offset values even if there is no data, so we do the same. */ last = bfd_tell (abfd); if (nlm_fixed_header (abfd)->codeImageOffset == 0) nlm_fixed_header (abfd)->codeImageOffset = last; if (nlm_fixed_header (abfd)->dataImageOffset == 0) nlm_fixed_header (abfd)->dataImageOffset = last; if (nlm_fixed_header (abfd)->customDataOffset == 0) nlm_fixed_header (abfd)->customDataOffset = last; if (nlm_fixed_header (abfd)->moduleDependencyOffset == 0) nlm_fixed_header (abfd)->moduleDependencyOffset = last; if (nlm_fixed_header (abfd)->relocationFixupOffset == 0) nlm_fixed_header (abfd)->relocationFixupOffset = last; if (nlm_fixed_header (abfd)->externalReferencesOffset == 0) nlm_fixed_header (abfd)->externalReferencesOffset = last; if (nlm_fixed_header (abfd)->publicsOffset == 0) nlm_fixed_header (abfd)->publicsOffset = last; if (nlm_fixed_header (abfd)->debugInfoOffset == 0) nlm_fixed_header (abfd)->debugInfoOffset = last; /* At this point everything has been written out except the fixed header. */ memcpy (nlm_fixed_header (abfd)->signature, nlm_signature (abfd), NLM_SIGNATURE_SIZE); nlm_fixed_header (abfd)->version = NLM_HEADER_VERSION; nlm_fixed_header (abfd)->codeStartOffset = (bfd_get_start_address (abfd) - nlm_get_text_low (abfd)); /* We have no convenient way for the caller to pass in the exit procedure or the check unload procedure, so the caller must set the values in the header to the values of the symbols. */ nlm_fixed_header (abfd)->exitProcedureOffset -= nlm_get_text_low (abfd); if (nlm_fixed_header (abfd)->checkUnloadProcedureOffset != 0) nlm_fixed_header (abfd)->checkUnloadProcedureOffset -= nlm_get_text_low (abfd); if (bfd_seek (abfd, 0, SEEK_SET) != 0) goto error_return; write_prefix_func = nlm_write_prefix_func (abfd); if (write_prefix_func) { if ((*write_prefix_func) (abfd) == false) goto error_return; } BFD_ASSERT (bfd_tell (abfd) == nlm_optional_prefix_size (abfd)); nlm_swap_fixed_header_out (abfd, nlm_fixed_header (abfd), fixed_header); if (bfd_write (fixed_header, nlm_fixed_header_size (abfd), 1, abfd) != nlm_fixed_header_size (abfd)) goto error_return; if (fixed_header != NULL) free (fixed_header); return true; error_return: if (fixed_header != NULL) free (fixed_header); return false; } gdb-4.13/bfd/nlmswap.h 666 34562 1752 15133 5541350131 13142 0ustar fnfcygnus/* NLM (NetWare Loadable Module) swapping routines for BFD. Copyright (C) 1993 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support, using ELF support as the template. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Although this is a header file, it defines functions. It is included by NLM backends to define swapping functions that vary from one NLM to another. The backend code must arrange for Nlm_External_xxxx to be defined appropriately, and can then include this file to get the swapping routines. At the moment this is only needed for one structure, the fixed NLM file header. */ static void nlm_swap_fixed_header_in PARAMS ((bfd *, PTR, Nlm_Internal_Fixed_Header *)); static void nlm_swap_fixed_header_out PARAMS ((bfd *, Nlm_Internal_Fixed_Header *, PTR)); /* Translate an NLM fixed length file header in external format into an NLM file header in internal format. */ static void nlm_swap_fixed_header_in (abfd, realsrc, dst) bfd *abfd; PTR realsrc; Nlm_Internal_Fixed_Header *dst; { Nlm_External_Fixed_Header *src = (Nlm_External_Fixed_Header *) realsrc; memcpy (dst->signature, src->signature, NLM_SIGNATURE_SIZE); memcpy (dst->moduleName, src->moduleName, NLM_MODULE_NAME_SIZE); dst->version = bfd_h_get_32 (abfd, (bfd_byte *) src->version); dst->codeImageOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->codeImageOffset); dst->codeImageSize = bfd_h_get_32 (abfd, (bfd_byte *) src->codeImageSize); dst->dataImageOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->dataImageOffset); dst->dataImageSize = bfd_h_get_32 (abfd, (bfd_byte *) src->dataImageSize); dst->uninitializedDataSize = bfd_h_get_32 (abfd, (bfd_byte *) src->uninitializedDataSize); dst->customDataOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->customDataOffset); dst->customDataSize = bfd_h_get_32 (abfd, (bfd_byte *) src->customDataSize); dst->moduleDependencyOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->moduleDependencyOffset); dst->numberOfModuleDependencies = bfd_h_get_32 (abfd, (bfd_byte *) src->numberOfModuleDependencies); dst->relocationFixupOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->relocationFixupOffset); dst->numberOfRelocationFixups = bfd_h_get_32 (abfd, (bfd_byte *) src->numberOfRelocationFixups); dst->externalReferencesOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->externalReferencesOffset); dst->numberOfExternalReferences = bfd_h_get_32 (abfd, (bfd_byte *) src->numberOfExternalReferences); dst->publicsOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->publicsOffset); dst->numberOfPublics = bfd_h_get_32 (abfd, (bfd_byte *) src->numberOfPublics); dst->debugInfoOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->debugInfoOffset); dst->numberOfDebugRecords = bfd_h_get_32 (abfd, (bfd_byte *) src->numberOfDebugRecords); dst->codeStartOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->codeStartOffset); dst->exitProcedureOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->exitProcedureOffset); dst->checkUnloadProcedureOffset = bfd_h_get_32 (abfd, (bfd_byte *) src->checkUnloadProcedureOffset); dst->moduleType = bfd_h_get_32 (abfd, (bfd_byte *) src->moduleType); dst->flags = bfd_h_get_32 (abfd, (bfd_byte *) src->flags); } /* Translate an NLM fixed length file header in internal format into an NLM file header in external format. */ static void nlm_swap_fixed_header_out (abfd, src, realdst) bfd *abfd; Nlm_Internal_Fixed_Header *src; PTR realdst; { Nlm_External_Fixed_Header *dst = (Nlm_External_Fixed_Header *) realdst; memset (dst, 0, sizeof *dst); memcpy (dst->signature, src->signature, NLM_SIGNATURE_SIZE); memcpy (dst->moduleName, src->moduleName, NLM_MODULE_NAME_SIZE); bfd_h_put_32 (abfd, (bfd_vma) src->version, (bfd_byte *) dst->version); bfd_h_put_32 (abfd, (bfd_vma) src->codeImageOffset, (bfd_byte *) dst->codeImageOffset); bfd_h_put_32 (abfd, (bfd_vma) src->codeImageSize, (bfd_byte *) dst->codeImageSize); bfd_h_put_32 (abfd, (bfd_vma) src->dataImageOffset, (bfd_byte *) dst->dataImageOffset); bfd_h_put_32 (abfd, (bfd_vma) src->dataImageSize, (bfd_byte *) dst->dataImageSize); bfd_h_put_32 (abfd, (bfd_vma) src->uninitializedDataSize, (bfd_byte *) dst->uninitializedDataSize); bfd_h_put_32 (abfd, (bfd_vma) src->customDataOffset, (bfd_byte *) dst->customDataOffset); bfd_h_put_32 (abfd, (bfd_vma) src->customDataSize, (bfd_byte *) dst->customDataSize); bfd_h_put_32 (abfd, (bfd_vma) src->moduleDependencyOffset, (bfd_byte *) dst->moduleDependencyOffset); bfd_h_put_32 (abfd, (bfd_vma) src->numberOfModuleDependencies, (bfd_byte *) dst->numberOfModuleDependencies); bfd_h_put_32 (abfd, (bfd_vma) src->relocationFixupOffset, (bfd_byte *) dst->relocationFixupOffset); bfd_h_put_32 (abfd, (bfd_vma) src->numberOfRelocationFixups, (bfd_byte *) dst->numberOfRelocationFixups); bfd_h_put_32 (abfd, (bfd_vma) src->externalReferencesOffset, (bfd_byte *) dst->externalReferencesOffset); bfd_h_put_32 (abfd, (bfd_vma) src->numberOfExternalReferences, (bfd_byte *) dst->numberOfExternalReferences); bfd_h_put_32 (abfd, (bfd_vma) src->publicsOffset, (bfd_byte *) dst->publicsOffset); bfd_h_put_32 (abfd, (bfd_vma) src->numberOfPublics, (bfd_byte *) dst->numberOfPublics); bfd_h_put_32 (abfd, (bfd_vma) src->debugInfoOffset, (bfd_byte *) dst->debugInfoOffset); bfd_h_put_32 (abfd, (bfd_vma) src->numberOfDebugRecords, (bfd_byte *) dst->numberOfDebugRecords); bfd_h_put_32 (abfd, (bfd_vma) src->codeStartOffset, (bfd_byte *) dst->codeStartOffset); bfd_h_put_32 (abfd, (bfd_vma) src->exitProcedureOffset, (bfd_byte *) dst->exitProcedureOffset); bfd_h_put_32 (abfd, (bfd_vma) src->checkUnloadProcedureOffset, (bfd_byte *) dst->checkUnloadProcedureOffset); bfd_h_put_32 (abfd, (bfd_vma) src->moduleType, (bfd_byte *) dst->moduleType); bfd_h_put_32 (abfd, (bfd_vma) src->flags, (bfd_byte *) dst->flags); } gdb-4.13/bfd/oasys.c 666 34562 1752 113737 5601614640 12650 0ustar fnfcygnus/* BFD back-end for oasys objects. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Steve Chamberlain of Cygnus Support, . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define UNDERSCORE_HACK 1 #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "oasys.h" #include "liboasys.h" /* XXX - FIXME. offsetof belongs in the system-specific files in ../include/sys. */ /* Define offsetof for those systems which lack it */ #ifndef offsetof #define offsetof(type, identifier) (size_t) &(((type *) 0)->identifier) #endif static boolean oasys_read_record PARAMS ((bfd *, oasys_record_union_type *)); static boolean oasys_write_sections PARAMS ((bfd *)); static boolean oasys_write_record PARAMS ((bfd *, oasys_record_enum_type, oasys_record_union_type *, size_t)); static boolean oasys_write_syms PARAMS ((bfd *)); static boolean oasys_write_header PARAMS ((bfd *)); static boolean oasys_write_end PARAMS ((bfd *)); static boolean oasys_write_data PARAMS ((bfd *)); /* Read in all the section data and relocation stuff too */ PROTO (static boolean, oasys_slurp_section_data, (bfd * CONST abfd)); static boolean oasys_read_record (abfd, record) bfd *abfd; oasys_record_union_type *record; { if (bfd_read ((PTR) record, 1, sizeof (record->header), abfd) != sizeof (record->header)) return false; if ((size_t) record->header.length <= (size_t) sizeof (record->header)) return true; if (bfd_read ((PTR) (((char *) record) + sizeof (record->header)), 1, record->header.length - sizeof (record->header), abfd) != record->header.length - sizeof (record->header)) return false; return true; } static size_t oasys_string_length (record) oasys_record_union_type *record; { return record->header.length - ((char *) record->symbol.name - (char *) record); } /*****************************************************************************/ /* Slurp the symbol table by reading in all the records at the start file till we get to the first section record. We'll sort the symbolss into two lists, defined and undefined. The undefined symbols will be placed into the table according to their refno. We do this by placing all undefined symbols at the front of the table moving in, and the defined symbols at the end of the table moving back. */ static boolean oasys_slurp_symbol_table (abfd) bfd *CONST abfd; { oasys_record_union_type record; oasys_data_type *data = OASYS_DATA (abfd); boolean loop = true; asymbol *dest_defined; asymbol *dest; char *string_ptr; if (data->symbols != (asymbol *) NULL) { return true; } /* Buy enough memory for all the symbols and all the names */ data->symbols = (asymbol *) bfd_alloc (abfd, sizeof (asymbol) * abfd->symcount); #ifdef UNDERSCORE_HACK /* buy 1 more char for each symbol to keep the underscore in*/ data->strings = bfd_alloc (abfd, data->symbol_string_length + abfd->symcount); #else data->strings = bfd_alloc (abfd, data->symbol_string_length); #endif if (!data->symbols || !data->strings) { bfd_set_error (bfd_error_no_memory); return false; } dest_defined = data->symbols + abfd->symcount - 1; string_ptr = data->strings; if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) return false; while (loop) { if (! oasys_read_record (abfd, &record)) return false; switch (record.header.type) { case oasys_record_is_header_enum: break; case oasys_record_is_local_enum: case oasys_record_is_symbol_enum: { int flag = record.header.type == (int) oasys_record_is_local_enum ? (BSF_LOCAL) : (BSF_GLOBAL | BSF_EXPORT); size_t length = oasys_string_length (&record); switch (record.symbol.relb & RELOCATION_TYPE_BITS) { case RELOCATION_TYPE_ABS: dest = dest_defined--; dest->section = bfd_abs_section_ptr; dest->flags = 0; break; case RELOCATION_TYPE_REL: dest = dest_defined--; dest->section = OASYS_DATA (abfd)->sections[record.symbol.relb & RELOCATION_SECT_BITS]; if (record.header.type == (int) oasys_record_is_local_enum) { dest->flags = BSF_LOCAL; if (dest->section == (asection *) (~0)) { /* It seems that sometimes internal symbols are tied up, but still get output, even though there is no section */ dest->section = 0; } } else { dest->flags = flag; } break; case RELOCATION_TYPE_UND: dest = data->symbols + bfd_h_get_16 (abfd, record.symbol.refno); dest->section = bfd_und_section_ptr; break; case RELOCATION_TYPE_COM: dest = dest_defined--; dest->name = string_ptr; dest->the_bfd = abfd; dest->section = bfd_com_section_ptr; break; default: dest = dest_defined--; BFD_ASSERT (0); break; } dest->name = string_ptr; dest->the_bfd = abfd; dest->udata = (PTR) NULL; dest->value = bfd_h_get_32 (abfd, record.symbol.value); #ifdef UNDERSCORE_HACK if (record.symbol.name[0] != '_') { string_ptr[0] = '_'; string_ptr++; } #endif memcpy (string_ptr, record.symbol.name, length); string_ptr[length] = 0; string_ptr += length + 1; } break; default: loop = false; } } return true; } static long oasys_get_symtab_upper_bound (abfd) bfd *CONST abfd; { if (! oasys_slurp_symbol_table (abfd)) return -1; return (abfd->symcount + 1) * (sizeof (oasys_symbol_type *)); } /* */ extern const bfd_target oasys_vec; long oasys_get_symtab (abfd, location) bfd *abfd; asymbol **location; { asymbol *symbase; unsigned int counter; if (oasys_slurp_symbol_table (abfd) == false) { return -1; } symbase = OASYS_DATA (abfd)->symbols; for (counter = 0; counter < abfd->symcount; counter++) { *(location++) = symbase++; } *location = 0; return abfd->symcount; } /*********************************************************************** * archive stuff */ static const bfd_target * oasys_archive_p (abfd) bfd *abfd; { oasys_archive_header_type header; oasys_extarchive_header_type header_ext; unsigned int i; file_ptr filepos; if (bfd_seek (abfd, (file_ptr) 0, false) != 0 || (bfd_read ((PTR) & header_ext, 1, sizeof (header_ext), abfd) != sizeof (header_ext))) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return NULL; } header.version = bfd_h_get_32 (abfd, header_ext.version); header.mod_count = bfd_h_get_32 (abfd, header_ext.mod_count); header.mod_tbl_offset = bfd_h_get_32 (abfd, header_ext.mod_tbl_offset); header.sym_tbl_size = bfd_h_get_32 (abfd, header_ext.sym_tbl_size); header.sym_count = bfd_h_get_32 (abfd, header_ext.sym_count); header.sym_tbl_offset = bfd_h_get_32 (abfd, header_ext.sym_tbl_offset); header.xref_count = bfd_h_get_32 (abfd, header_ext.xref_count); header.xref_lst_offset = bfd_h_get_32 (abfd, header_ext.xref_lst_offset); /* There isn't a magic number in an Oasys archive, so the best we can do to verify reasnableness is to make sure that the values in the header are too weird */ if (header.version > 10000 || header.mod_count > 10000 || header.sym_count > 100000 || header.xref_count > 100000) return (const bfd_target *) NULL; /* That all worked, let's buy the space for the header and read in the headers. */ { oasys_ar_data_type *ar = (oasys_ar_data_type *) bfd_alloc (abfd, sizeof (oasys_ar_data_type)); oasys_module_info_type *module = (oasys_module_info_type *) bfd_alloc (abfd, sizeof (oasys_module_info_type) * header.mod_count); oasys_module_table_type record; if (!ar || !module) { bfd_set_error (bfd_error_no_memory); return NULL; } abfd->tdata.oasys_ar_data = ar; ar->module = module; ar->module_count = header.mod_count; filepos = header.mod_tbl_offset; for (i = 0; i < header.mod_count; i++) { if (bfd_seek (abfd, filepos, SEEK_SET) != 0) return NULL; /* There are two ways of specifying the archive header */ if (0) { oasys_extmodule_table_type_a_type record_ext; if (bfd_read ((PTR) & record_ext, 1, sizeof (record_ext), abfd) != sizeof (record_ext)) return NULL; record.mod_size = bfd_h_get_32 (abfd, record_ext.mod_size); record.file_offset = bfd_h_get_32 (abfd, record_ext.file_offset); record.dep_count = bfd_h_get_32 (abfd, record_ext.dep_count); record.depee_count = bfd_h_get_32 (abfd, record_ext.depee_count); record.sect_count = bfd_h_get_32 (abfd, record_ext.sect_count); module[i].name = bfd_alloc (abfd, 33); if (!module[i].name) { bfd_set_error (bfd_error_no_memory); return NULL; } memcpy (module[i].name, record_ext.mod_name, 33); filepos += sizeof (record_ext) + record.dep_count * 4 + record.depee_count * 4 + record.sect_count * 8 + 187; } else { oasys_extmodule_table_type_b_type record_ext; if (bfd_read ((PTR) & record_ext, 1, sizeof (record_ext), abfd) != sizeof (record_ext)) return NULL; record.mod_size = bfd_h_get_32 (abfd, record_ext.mod_size); record.file_offset = bfd_h_get_32 (abfd, record_ext.file_offset); record.dep_count = bfd_h_get_32 (abfd, record_ext.dep_count); record.depee_count = bfd_h_get_32 (abfd, record_ext.depee_count); record.sect_count = bfd_h_get_32 (abfd, record_ext.sect_count); record.module_name_size = bfd_h_get_32 (abfd, record_ext.mod_name_length); module[i].name = bfd_alloc (abfd, record.module_name_size + 1); if (!module[i].name) { bfd_set_error (bfd_error_no_memory); return NULL; } if (bfd_read ((PTR) module[i].name, 1, record.module_name_size, abfd) != record.module_name_size) return NULL; module[i].name[record.module_name_size] = 0; filepos += sizeof (record_ext) + record.dep_count * 4 + record.module_name_size + 1; } module[i].size = record.mod_size; module[i].pos = record.file_offset; module[i].abfd = 0; } } return abfd->xvec; } static boolean oasys_mkobject (abfd) bfd *abfd; { abfd->tdata.oasys_obj_data = (oasys_data_type *) bfd_alloc (abfd, sizeof (oasys_data_type)); return abfd->tdata.oasys_obj_data ? true : false; } #define MAX_SECS 16 static const bfd_target * oasys_object_p (abfd) bfd *abfd; { oasys_data_type *oasys; oasys_data_type *save = OASYS_DATA (abfd); boolean loop = true; boolean had_usefull = false; abfd->tdata.oasys_obj_data = 0; oasys_mkobject (abfd); oasys = OASYS_DATA (abfd); memset ((PTR) oasys->sections, 0xff, sizeof (oasys->sections)); /* Point to the start of the file */ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) goto fail; oasys->symbol_string_length = 0; /* Inspect the records, but only keep the section info - remember the size of the symbols */ oasys->first_data_record = 0; while (loop) { oasys_record_union_type record; if (! oasys_read_record (abfd, &record)) goto fail; if ((size_t) record.header.length < (size_t) sizeof (record.header)) goto fail; switch ((oasys_record_enum_type) (record.header.type)) { case oasys_record_is_header_enum: had_usefull = true; break; case oasys_record_is_symbol_enum: case oasys_record_is_local_enum: /* Count symbols and remember their size for a future malloc */ abfd->symcount++; oasys->symbol_string_length += 1 + oasys_string_length (&record); had_usefull = true; break; case oasys_record_is_section_enum: { asection *s; char *buffer; unsigned int section_number; if (record.section.header.length != sizeof (record.section)) { goto fail; } buffer = bfd_alloc (abfd, 3); if (!buffer) { bfd_set_error (bfd_error_no_memory); goto fail; } section_number = record.section.relb & RELOCATION_SECT_BITS; sprintf (buffer, "%u", section_number); s = bfd_make_section (abfd, buffer); oasys->sections[section_number] = s; switch (record.section.relb & RELOCATION_TYPE_BITS) { case RELOCATION_TYPE_ABS: case RELOCATION_TYPE_REL: break; case RELOCATION_TYPE_UND: case RELOCATION_TYPE_COM: BFD_FAIL (); } s->_raw_size = bfd_h_get_32 (abfd, record.section.value); s->vma = bfd_h_get_32 (abfd, record.section.vma); s->flags = 0; had_usefull = true; } break; case oasys_record_is_data_enum: oasys->first_data_record = bfd_tell (abfd) - record.header.length; case oasys_record_is_debug_enum: case oasys_record_is_module_enum: case oasys_record_is_named_section_enum: case oasys_record_is_end_enum: if (had_usefull == false) goto fail; loop = false; break; default: goto fail; } } oasys->symbols = (asymbol *) NULL; /* Oasys support several architectures, but I can't see a simple way to discover which one is in a particular file - we'll guess */ bfd_default_set_arch_mach (abfd, bfd_arch_m68k, 0); if (abfd->symcount != 0) { abfd->flags |= HAS_SYMS; } /* We don't know if a section has data until we've read it.. */ oasys_slurp_section_data (abfd); return abfd->xvec; fail: (void) bfd_release (abfd, oasys); abfd->tdata.oasys_obj_data = save; return (const bfd_target *) NULL; } static void oasys_get_symbol_info (ignore_abfd, symbol, ret) bfd *ignore_abfd; asymbol *symbol; symbol_info *ret; { bfd_symbol_info (symbol, ret); if (!symbol->section) ret->type = (symbol->flags & BSF_LOCAL) ? 'a' : 'A'; } static void oasys_print_symbol (ignore_abfd, afile, symbol, how) bfd *ignore_abfd; PTR afile; asymbol *symbol; bfd_print_symbol_type how; { FILE *file = (FILE *) afile; switch (how) { case bfd_print_symbol_name: case bfd_print_symbol_more: fprintf (file, "%s", symbol->name); break; case bfd_print_symbol_all: { CONST char *section_name = symbol->section == (asection *) NULL ? (CONST char *) "*abs" : symbol->section->name; bfd_print_symbol_vandf ((PTR) file, symbol); fprintf (file, " %-5s %s", section_name, symbol->name); } break; } } /* The howto table is build using the top two bits of a reloc byte to index into it. The bits are PCREL,WORD/LONG */ static reloc_howto_type howto_table[] = { HOWTO (0, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "abs16", true, 0x0000ffff, 0x0000ffff, false), HOWTO (0, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, "abs32", true, 0xffffffff, 0xffffffff, false), HOWTO (0, 0, 1, 16, true, 0, complain_overflow_signed, 0, "pcrel16", true, 0x0000ffff, 0x0000ffff, false), HOWTO (0, 0, 2, 32, true, 0, complain_overflow_signed, 0, "pcrel32", true, 0xffffffff, 0xffffffff, false) }; /* Read in all the section data and relocation stuff too */ static boolean oasys_slurp_section_data (abfd) bfd *CONST abfd; { oasys_record_union_type record; oasys_data_type *data = OASYS_DATA (abfd); boolean loop = true; oasys_per_section_type *per; asection *s; /* See if the data has been slurped already .. */ for (s = abfd->sections; s != (asection *) NULL; s = s->next) { per = oasys_per_section (s); if (per->initialized == true) return true; } if (data->first_data_record == 0) return true; if (bfd_seek (abfd, data->first_data_record, SEEK_SET) != 0) return false; while (loop) { if (! oasys_read_record (abfd, &record)) return false; switch (record.header.type) { case oasys_record_is_header_enum: break; case oasys_record_is_data_enum: { bfd_byte *src = record.data.data; bfd_byte *end_src = ((bfd_byte *) & record) + record.header.length; bfd_byte *dst_ptr; bfd_byte *dst_base_ptr; unsigned int relbit; unsigned int count; asection *section = data->sections[record.data.relb & RELOCATION_SECT_BITS]; bfd_vma dst_offset; per = oasys_per_section (section); if (per->initialized == false) { per->data = (bfd_byte *) bfd_zalloc (abfd, section->_raw_size); if (!per->data) { bfd_set_error (bfd_error_no_memory); return false; } per->reloc_tail_ptr = (oasys_reloc_type **) & (section->relocation); per->had_vma = false; per->initialized = true; section->reloc_count = 0; section->flags = SEC_ALLOC; } dst_offset = bfd_h_get_32 (abfd, record.data.addr); if (per->had_vma == false) { /* Take the first vma we see as the base */ section->vma = dst_offset; per->had_vma = true; } dst_offset -= section->vma; dst_base_ptr = oasys_per_section (section)->data; dst_ptr = oasys_per_section (section)->data + dst_offset; if (src < end_src) { section->flags |= SEC_LOAD | SEC_HAS_CONTENTS; } while (src < end_src) { unsigned char mod_byte = *src++; size_t gap = end_src - src; count = 8; if (mod_byte == 0 && gap >= 8) { dst_ptr[0] = src[0]; dst_ptr[1] = src[1]; dst_ptr[2] = src[2]; dst_ptr[3] = src[3]; dst_ptr[4] = src[4]; dst_ptr[5] = src[5]; dst_ptr[6] = src[6]; dst_ptr[7] = src[7]; dst_ptr += 8; src += 8; } else { for (relbit = 1; count-- != 0 && src < end_src; relbit <<= 1) { if (relbit & mod_byte) { unsigned char reloc = *src; /* This item needs to be relocated */ switch (reloc & RELOCATION_TYPE_BITS) { case RELOCATION_TYPE_ABS: break; case RELOCATION_TYPE_REL: { /* Relocate the item relative to the section */ oasys_reloc_type *r = (oasys_reloc_type *) bfd_alloc (abfd, sizeof (oasys_reloc_type)); if (!r) { bfd_set_error (bfd_error_no_memory); return false; } *(per->reloc_tail_ptr) = r; per->reloc_tail_ptr = &r->next; r->next = (oasys_reloc_type *) NULL; /* Reference to undefined symbol */ src++; /* There is no symbol */ r->symbol = 0; /* Work out the howto */ abort (); #if 0 r->relent.section = data->sections[reloc & RELOCATION_SECT_BITS]; r->relent.addend = - r->relent.section->vma; #endif r->relent.address = dst_ptr - dst_base_ptr; r->relent.howto = &howto_table[reloc >> 6]; r->relent.sym_ptr_ptr = (asymbol **) NULL; section->reloc_count++; /* Fake up the data to look like it's got the -ve pc in it, this makes it much easier to convert into other formats. This is done by hitting the addend. */ if (r->relent.howto->pc_relative == true) { r->relent.addend -= dst_ptr - dst_base_ptr; } } break; case RELOCATION_TYPE_UND: { oasys_reloc_type *r = (oasys_reloc_type *) bfd_alloc (abfd, sizeof (oasys_reloc_type)); if (!r) { bfd_set_error (bfd_error_no_memory); return false; } *(per->reloc_tail_ptr) = r; per->reloc_tail_ptr = &r->next; r->next = (oasys_reloc_type *) NULL; /* Reference to undefined symbol */ src++; /* Get symbol number */ r->symbol = (src[0] << 8) | src[1]; /* Work out the howto */ abort (); #if 0 r->relent.section = (asection *) NULL; #endif r->relent.addend = 0; r->relent.address = dst_ptr - dst_base_ptr; r->relent.howto = &howto_table[reloc >> 6]; r->relent.sym_ptr_ptr = (asymbol **) NULL; section->reloc_count++; src += 2; /* Fake up the data to look like it's got the -ve pc in it, this makes it much easier to convert into other formats. This is done by hitting the addend. */ if (r->relent.howto->pc_relative == true) { r->relent.addend -= dst_ptr - dst_base_ptr; } } break; case RELOCATION_TYPE_COM: BFD_FAIL (); } } *dst_ptr++ = *src++; } } } } break; case oasys_record_is_local_enum: case oasys_record_is_symbol_enum: case oasys_record_is_section_enum: break; default: loop = false; } } return true; } static boolean oasys_new_section_hook (abfd, newsect) bfd *abfd; asection *newsect; { newsect->used_by_bfd = (PTR) bfd_alloc (abfd, sizeof (oasys_per_section_type)); if (!newsect->used_by_bfd) { bfd_set_error (bfd_error_no_memory); return false; } oasys_per_section (newsect)->data = (bfd_byte *) NULL; oasys_per_section (newsect)->section = newsect; oasys_per_section (newsect)->offset = 0; oasys_per_section (newsect)->initialized = false; newsect->alignment_power = 1; /* Turn the section string into an index */ sscanf (newsect->name, "%u", &newsect->target_index); return true; } static long oasys_get_reloc_upper_bound (abfd, asect) bfd *abfd; sec_ptr asect; { if (! oasys_slurp_section_data (abfd)) return -1; return (asect->reloc_count + 1) * sizeof (arelent *); } static boolean oasys_get_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { oasys_per_section_type *p = (oasys_per_section_type *) section->used_by_bfd; oasys_slurp_section_data (abfd); if (p->initialized == false) { (void) memset (location, 0, (int) count); } else { (void) memcpy (location, (PTR) (p->data + offset), (int) count); } return true; } long oasys_canonicalize_reloc (ignore_abfd, section, relptr, symbols) bfd *ignore_abfd; sec_ptr section; arelent **relptr; asymbol **symbols; { unsigned int reloc_count = 0; oasys_reloc_type *src = (oasys_reloc_type *) (section->relocation); while (src != (oasys_reloc_type *) NULL) { abort (); #if 0 if (src->relent.section == (asection *) NULL) { src->relent.sym_ptr_ptr = symbols + src->symbol; } #endif *relptr++ = &src->relent; src = src->next; reloc_count++; } *relptr = (arelent *) NULL; return section->reloc_count = reloc_count; } /* Writing */ /* Calculate the checksum and write one record */ static boolean oasys_write_record (abfd, type, record, size) bfd *abfd; oasys_record_enum_type type; oasys_record_union_type *record; size_t size; { int checksum; size_t i; unsigned char *ptr; record->header.length = size; record->header.type = (int) type; record->header.check_sum = 0; record->header.fill = 0; ptr = (unsigned char *) &record->pad[0]; checksum = 0; for (i = 0; i < size; i++) { checksum += *ptr++; } record->header.check_sum = 0xff & (-checksum); if (bfd_write ((PTR) record, 1, size, abfd) != size) return false; return true; } /* Write out all the symbols */ static boolean oasys_write_syms (abfd) bfd *abfd; { unsigned int count; asymbol **generic = bfd_get_outsymbols (abfd); unsigned int index = 0; for (count = 0; count < bfd_get_symcount (abfd); count++) { oasys_symbol_record_type symbol; asymbol *CONST g = generic[count]; CONST char *src = g->name; char *dst = symbol.name; unsigned int l = 0; if (bfd_is_com_section (g->section)) { symbol.relb = RELOCATION_TYPE_COM; bfd_h_put_16 (abfd, index, symbol.refno); index++; } else if (bfd_is_abs_section (g->section)) { symbol.relb = RELOCATION_TYPE_ABS; bfd_h_put_16 (abfd, 0, symbol.refno); } else if (bfd_is_und_section (g->section)) { symbol.relb = RELOCATION_TYPE_UND; bfd_h_put_16 (abfd, index, symbol.refno); /* Overload the value field with the output index number */ index++; } else if (g->flags & BSF_DEBUGGING) { /* throw it away */ continue; } else { if (g->section == (asection *) NULL) { /* Sometime, the oasys tools give out a symbol with illegal bits in it, we'll output it in the same broken way */ symbol.relb = RELOCATION_TYPE_REL | 0; } else { symbol.relb = RELOCATION_TYPE_REL | g->section->output_section->target_index; } bfd_h_put_16 (abfd, 0, symbol.refno); } #ifdef UNDERSCORE_HACK if (src[l] == '_') dst[l++] = '.'; #endif while (src[l]) { dst[l] = src[l]; l++; } bfd_h_put_32 (abfd, g->value, symbol.value); if (g->flags & BSF_LOCAL) { if (! oasys_write_record (abfd, oasys_record_is_local_enum, (oasys_record_union_type *) & symbol, offsetof (oasys_symbol_record_type, name[0]) + l)) return false; } else { if (! oasys_write_record (abfd, oasys_record_is_symbol_enum, (oasys_record_union_type *) & symbol, offsetof (oasys_symbol_record_type, name[0]) + l)) return false; } g->value = index - 1; } return true; } /* Write a section header for each section */ static boolean oasys_write_sections (abfd) bfd *abfd; { asection *s; static oasys_section_record_type out; for (s = abfd->sections; s != (asection *) NULL; s = s->next) { if (!isdigit (s->name[0])) { bfd_set_error (bfd_error_nonrepresentable_section); return false; } out.relb = RELOCATION_TYPE_REL | s->target_index; bfd_h_put_32 (abfd, s->_cooked_size, out.value); bfd_h_put_32 (abfd, s->vma, out.vma); if (! oasys_write_record (abfd, oasys_record_is_section_enum, (oasys_record_union_type *) & out, sizeof (out))) return false; } return true; } static boolean oasys_write_header (abfd) bfd *abfd; { /* Create and write the header */ oasys_header_record_type r; size_t length = strlen (abfd->filename); if (length > (size_t) sizeof (r.module_name)) { length = sizeof (r.module_name); } (void) memcpy (r.module_name, abfd->filename, length); (void) memset (r.module_name + length, ' ', sizeof (r.module_name) - length); r.version_number = OASYS_VERSION_NUMBER; r.rev_number = OASYS_REV_NUMBER; if (! oasys_write_record (abfd, oasys_record_is_header_enum, (oasys_record_union_type *) & r, offsetof (oasys_header_record_type, description[0]))) return false; return true; } static boolean oasys_write_end (abfd) bfd *abfd; { oasys_end_record_type end; unsigned char null = 0; end.relb = RELOCATION_TYPE_ABS; bfd_h_put_32 (abfd, abfd->start_address, end.entry); bfd_h_put_16 (abfd, 0, end.fill); end.zero = 0; if (! oasys_write_record (abfd, oasys_record_is_end_enum, (oasys_record_union_type *) & end, sizeof (end))) return false; if (bfd_write ((PTR) & null, 1, 1, abfd) != 1) return false; return true; } static int comp (ap, bp) CONST PTR ap; CONST PTR bp; { arelent *a = *((arelent **) ap); arelent *b = *((arelent **) bp); return a->address - b->address; } /* Writing data.. */ static boolean oasys_write_data (abfd) bfd *abfd; { asection *s; for (s = abfd->sections; s != (asection *) NULL; s = s->next) { if (s->flags & SEC_LOAD) { bfd_byte *raw_data = oasys_per_section (s)->data; oasys_data_record_type processed_data; bfd_size_type current_byte_index = 0; unsigned int relocs_to_go = s->reloc_count; arelent **p = s->orelocation; if (s->reloc_count != 0) { /* Sort the reloc records so it's easy to insert the relocs into the data */ qsort (s->orelocation, s->reloc_count, sizeof (arelent **), comp); } current_byte_index = 0; processed_data.relb = s->target_index | RELOCATION_TYPE_REL; while (current_byte_index < s->_cooked_size) { /* Scan forwards by eight bytes or however much is left and see if there are any relocations going on */ bfd_byte *mod = &processed_data.data[0]; bfd_byte *dst = &processed_data.data[1]; unsigned int i = 0; *mod = 0; bfd_h_put_32 (abfd, s->vma + current_byte_index, processed_data.addr); /* Don't start a relocation unless you're sure you can finish it within the same data record. The worst case relocation is a 4-byte relocatable value which is split across two modification bytes (1 relocation byte + 2 symbol reference bytes + 2 data + 1 modification byte + 2 data = 8 bytes total). That's where the magic number 8 comes from. */ while (current_byte_index < s->_raw_size && dst <= &processed_data.data[sizeof (processed_data.data) - 8]) { if (relocs_to_go != 0) { arelent *r = *p; const reloc_howto_type *const how = r->howto; /* There is a relocation, is it for this byte ? */ if (r->address == current_byte_index) { unsigned char rel_byte; p++; relocs_to_go--; *mod |= (1 << i); if (how->pc_relative) { rel_byte = RELOCATION_PCREL_BIT; /* Also patch the raw data so that it doesn't have the -ve stuff any more */ if (how->size != 2) { bfd_put_16 (abfd, bfd_get_16 (abfd, raw_data) + current_byte_index, raw_data); } else { bfd_put_32 (abfd, bfd_get_32 (abfd, raw_data) + current_byte_index, raw_data); } } else { rel_byte = 0; } if (how->size == 2) { rel_byte |= RELOCATION_32BIT_BIT; } /* Is this a section relative relocation, or a symbol relative relocation ? */ abort (); #if 0 if (r->section != (asection *) NULL) { /* The relent has a section attached, so it must be section relative */ rel_byte |= RELOCATION_TYPE_REL; rel_byte |= r->section->output_section->target_index; *dst++ = rel_byte; } else #endif { asymbol *p = *(r->sym_ptr_ptr); /* If this symbol has a section attached, then it has already been resolved. Change from a symbol ref to a section ref */ if (p->section != (asection *) NULL) { rel_byte |= RELOCATION_TYPE_REL; rel_byte |= p->section->output_section->target_index; *dst++ = rel_byte; } else { rel_byte |= RELOCATION_TYPE_UND; *dst++ = rel_byte; /* Next two bytes are a symbol index - we can get this from the symbol value which has been zapped into the symbol index in the table when the symbol table was written */ *dst++ = p->value >> 8; *dst++ = p->value; } } #define ADVANCE { if (++i >= 8) { i = 0; mod = dst++; *mod = 0; } current_byte_index++; } /* relocations never occur from an unloadable section, so we can assume that raw_data is not NULL */ *dst++ = *raw_data++; ADVANCE * dst++ = *raw_data++; ADVANCE if (how->size == 2) { *dst++ = *raw_data++; ADVANCE * dst++ = *raw_data++; ADVANCE } continue; } } /* If this is coming from an unloadable section then copy zeros */ if (raw_data == NULL) { *dst++ = 0; } else { *dst++ = *raw_data++; } ADVANCE } /* Don't write a useless null modification byte */ if (dst == mod + 1) { --dst; } if (! oasys_write_record (abfd, oasys_record_is_data_enum, ((oasys_record_union_type *) & processed_data), dst - (bfd_byte *) & processed_data)) return false; } } } return true; } static boolean oasys_write_object_contents (abfd) bfd *abfd; { if (! oasys_write_header (abfd)) return false; if (! oasys_write_syms (abfd)) return false; if (! oasys_write_sections (abfd)) return false; if (! oasys_write_data (abfd)) return false; if (! oasys_write_end (abfd)) return false; return true; } /** exec and core file sections */ /* set section contents is complicated with OASYS since the format is * not a byte image, but a record stream. */ static boolean oasys_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { if (count != 0) { if (oasys_per_section (section)->data == (bfd_byte *) NULL) { oasys_per_section (section)->data = (bfd_byte *) (bfd_alloc (abfd, section->_cooked_size)); if (!oasys_per_section (section)->data) { bfd_set_error (bfd_error_no_memory); return false; } } (void) memcpy ((PTR) (oasys_per_section (section)->data + offset), location, count); } return true; } /* Native-level interface to symbols. */ /* We read the symbols into a buffer, which is discarded when this function exits. We read the strings into a buffer large enough to hold them all plus all the cached symbol entries. */ static asymbol * oasys_make_empty_symbol (abfd) bfd *abfd; { oasys_symbol_type *new = (oasys_symbol_type *) bfd_zalloc (abfd, sizeof (oasys_symbol_type)); if (!new) { bfd_set_error (bfd_error_no_memory); return NULL; } new->symbol.the_bfd = abfd; return &new->symbol; } /* User should have checked the file flags; perhaps we should return BFD_NO_MORE_SYMBOLS if there are none? */ static bfd * oasys_openr_next_archived_file (arch, prev) bfd *arch; bfd *prev; { oasys_ar_data_type *ar = OASYS_AR_DATA (arch); oasys_module_info_type *p; /* take the next one from the arch state, or reset */ if (prev == (bfd *) NULL) { /* Reset the index - the first two entries are bogus*/ ar->module_index = 0; } p = ar->module + ar->module_index; ar->module_index++; if (ar->module_index <= ar->module_count) { if (p->abfd == (bfd *) NULL) { p->abfd = _bfd_create_empty_archive_element_shell (arch); p->abfd->origin = p->pos; p->abfd->filename = p->name; /* Fixup a pointer to this element for the member */ p->abfd->arelt_data = (PTR) p; } return p->abfd; } else { bfd_set_error (bfd_error_no_more_archived_files); return (bfd *) NULL; } } static boolean oasys_find_nearest_line (abfd, section, symbols, offset, filename_ptr, functionname_ptr, line_ptr) bfd *abfd; asection *section; asymbol **symbols; bfd_vma offset; char **filename_ptr; char **functionname_ptr; unsigned int *line_ptr; { return false; } static int oasys_generic_stat_arch_elt (abfd, buf) bfd *abfd; struct stat *buf; { oasys_module_info_type *mod = (oasys_module_info_type *) abfd->arelt_data; if (mod == (oasys_module_info_type *) NULL) { bfd_set_error (bfd_error_invalid_operation); return -1; } else { buf->st_size = mod->size; buf->st_mode = 0666; return 0; } } static int oasys_sizeof_headers (abfd, exec) bfd *abfd; boolean exec; { return 0; } #define oasys_close_and_cleanup _bfd_generic_close_and_cleanup #define oasys_bfd_free_cached_info _bfd_generic_bfd_free_cached_info #define oasys_slurp_armap bfd_true #define oasys_slurp_extended_name_table bfd_true #define oasys_truncate_arname bfd_dont_truncate_arname #define oasys_write_armap \ ((boolean (*) \ PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int))) \ bfd_true) #define oasys_bfd_is_local_label bfd_generic_is_local_label #define oasys_get_lineno _bfd_nosymbols_get_lineno #define oasys_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol #define oasys_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup #define oasys_set_arch_mach bfd_default_set_arch_mach #define oasys_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define oasys_bfd_relax_section bfd_generic_relax_section #define oasys_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define oasys_bfd_link_add_symbols _bfd_generic_link_add_symbols #define oasys_bfd_final_link _bfd_generic_final_link /*SUPPRESS 460 */ const bfd_target oasys_vec = { "oasys", /* name */ bfd_target_oasys_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading underscore */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 1, /* minimum alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, oasys_object_p, /* bfd_check_format */ oasys_archive_p, _bfd_dummy_target, }, { /* bfd_set_format */ bfd_false, oasys_mkobject, _bfd_generic_mkarchive, bfd_false }, { /* bfd_write_contents */ bfd_false, oasys_write_object_contents, _bfd_write_archive_contents, bfd_false, }, BFD_JUMP_TABLE_GENERIC (oasys), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (oasys), BFD_JUMP_TABLE_SYMBOLS (oasys), BFD_JUMP_TABLE_RELOCS (oasys), BFD_JUMP_TABLE_WRITE (oasys), BFD_JUMP_TABLE_LINK (oasys), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 }; gdb-4.13/bfd/opncls.c 666 34562 1752 30416 5601410120 12743 0ustar fnfcygnus/* opncls.c -- open and close a BFD. Copyright (C) 1990 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "obstack.h" /* fdopen is a loser -- we should use stdio exclusively. Unfortunately if we do that we can't use fcntl. */ #define obstack_chunk_alloc malloc #define obstack_chunk_free free /* Return a new BFD. All BFD's are allocated through this routine. */ bfd * _bfd_new_bfd () { bfd *nbfd; nbfd = (bfd *)bfd_zmalloc (sizeof (bfd)); if (!nbfd) { bfd_set_error (bfd_error_no_memory); return 0; } bfd_check_init(); if (!obstack_begin(&nbfd->memory, 128)) { bfd_set_error (bfd_error_no_memory); return 0; } nbfd->arch_info = &bfd_default_arch_struct; nbfd->direction = no_direction; nbfd->iostream = NULL; nbfd->where = 0; nbfd->sections = (asection *)NULL; nbfd->format = bfd_unknown; nbfd->my_archive = (bfd *)NULL; nbfd->origin = 0; nbfd->opened_once = false; nbfd->output_has_begun = false; nbfd->section_count = 0; nbfd->usrdata = (PTR)NULL; nbfd->cacheable = false; nbfd->flags = NO_FLAGS; nbfd->mtime_set = false; return nbfd; } /* Allocate a new BFD as a member of archive OBFD. */ bfd * _bfd_new_bfd_contained_in (obfd) bfd *obfd; { bfd *nbfd; nbfd = _bfd_new_bfd(); nbfd->xvec = obfd->xvec; nbfd->my_archive = obfd; nbfd->direction = read_direction; nbfd->target_defaulted = obfd->target_defaulted; return nbfd; } /* SECTION Opening and closing BFDs */ /* FUNCTION bfd_openr SYNOPSIS bfd *bfd_openr(CONST char *filename, CONST char *target); DESCRIPTION Open the file @var{filename} (using <>) with the target @var{target}. Return a pointer to the created BFD. Calls <>, so @var{target} is interpreted as by that function. If <> is returned then an error has occured. Possible errors are <>, <> or <> error. */ bfd * bfd_openr (filename, target) CONST char *filename; CONST char *target; { bfd *nbfd; const bfd_target *target_vec; nbfd = _bfd_new_bfd(); if (nbfd == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } target_vec = bfd_find_target (target, nbfd); if (target_vec == NULL) { bfd_set_error (bfd_error_invalid_target); return NULL; } nbfd->filename = filename; nbfd->direction = read_direction; if (bfd_open_file (nbfd) == NULL) { bfd_set_error (bfd_error_system_call); /* File didn't exist, or some such */ bfd_release(nbfd,0); return NULL; } return nbfd; } /* Don't try to `optimize' this function: o - We lock using stack space so that interrupting the locking won't cause a storage leak. o - We open the file stream last, since we don't want to have to close it if anything goes wrong. Closing the stream means closing the file descriptor too, even though we didn't open it. */ /* FUNCTION bfd_fdopenr SYNOPSIS bfd *bfd_fdopenr(CONST char *filename, CONST char *target, int fd); DESCRIPTION <> is to <> much like <> is to <>. It opens a BFD on a file already described by the @var{fd} supplied. When the file is later <>d, the file descriptor will be closed. If the caller desires that this file descriptor be cached by BFD (opened as needed, closed as needed to free descriptors for other opens), with the supplied @var{fd} used as an initial file descriptor (but subject to closure at any time), call bfd_set_cacheable(bfd, 1) on the returned BFD. The default is to assume no cacheing; the file descriptor will remain open until <>, and will not be affected by BFD operations on other files. Possible errors are <>, <> and <>. */ bfd * bfd_fdopenr (filename, target, fd) CONST char *filename; CONST char *target; int fd; { bfd *nbfd; const bfd_target *target_vec; int fdflags; bfd_set_error (bfd_error_system_call); #ifdef NO_FCNTL fdflags = O_RDWR; /* Assume full access */ #else fdflags = fcntl (fd, F_GETFL, NULL); #endif if (fdflags == -1) return NULL; nbfd = _bfd_new_bfd(); if (nbfd == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } target_vec = bfd_find_target (target, nbfd); if (target_vec == NULL) { bfd_set_error (bfd_error_invalid_target); return NULL; } #if defined(VMS) || defined(__GO32__) nbfd->iostream = (char *)fopen(filename, FOPEN_RB); #else /* (O_ACCMODE) parens are to avoid Ultrix header file bug */ switch (fdflags & (O_ACCMODE)) { case O_RDONLY: nbfd->iostream = (char *) fdopen (fd, FOPEN_RB); break; case O_WRONLY: nbfd->iostream = (char *) fdopen (fd, FOPEN_RUB); break; case O_RDWR: nbfd->iostream = (char *) fdopen (fd, FOPEN_RUB); break; default: abort (); } #endif if (nbfd->iostream == NULL) { (void) obstack_free (&nbfd->memory, (PTR)0); return NULL; } /* OK, put everything where it belongs */ nbfd->filename = filename; /* As a special case we allow a FD open for read/write to be written through, although doing so requires that we end the previous clause with a preposition. */ /* (O_ACCMODE) parens are to avoid Ultrix header file bug */ switch (fdflags & (O_ACCMODE)) { case O_RDONLY: nbfd->direction = read_direction; break; case O_WRONLY: nbfd->direction = write_direction; break; case O_RDWR: nbfd->direction = both_direction; break; default: abort (); } if (! bfd_cache_init (nbfd)) return NULL; return nbfd; } /** bfd_openw -- open for writing. Returns a pointer to a freshly-allocated BFD on success, or NULL. See comment by bfd_fdopenr before you try to modify this function. */ /* FUNCTION bfd_openw SYNOPSIS bfd *bfd_openw(CONST char *filename, CONST char *target); DESCRIPTION Create a BFD, associated with file @var{filename}, using the file format @var{target}, and return a pointer to it. Possible errors are <>, <>, <>. */ bfd * bfd_openw (filename, target) CONST char *filename; CONST char *target; { bfd *nbfd; const bfd_target *target_vec; bfd_set_error (bfd_error_system_call); /* nbfd has to point to head of malloc'ed block so that bfd_close may reclaim it correctly. */ nbfd = _bfd_new_bfd(); if (nbfd == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } target_vec = bfd_find_target (target, nbfd); if (target_vec == NULL) return NULL; nbfd->filename = filename; nbfd->direction = write_direction; if (bfd_open_file (nbfd) == NULL) { bfd_set_error (bfd_error_system_call); /* File not writeable, etc */ (void) obstack_free (&nbfd->memory, (PTR)0); return NULL; } return nbfd; } /* FUNCTION bfd_close SYNOPSIS boolean bfd_close(bfd *abfd); DESCRIPTION Close a BFD. If the BFD was open for writing, then pending operations are completed and the file written out and closed. If the created file is executable, then <> is called to mark it as such. All memory attached to the BFD's obstacks is released. The file descriptor associated with the BFD is closed (even if it was passed in to BFD by <>). RETURNS <> is returned if all is ok, otherwise <>. */ boolean bfd_close (abfd) bfd *abfd; { boolean ret; if (!bfd_read_p(abfd)) if (BFD_SEND_FMT (abfd, _bfd_write_contents, (abfd)) != true) return false; if (BFD_SEND (abfd, _close_and_cleanup, (abfd)) != true) return false; ret = bfd_cache_close(abfd); /* If the file was open for writing and is now executable, make it so */ if (ret == true && abfd->direction == write_direction && abfd->flags & EXEC_P) { struct stat buf; stat(abfd->filename, &buf); #ifndef S_IXUSR #define S_IXUSR 0100 /* Execute by owner. */ #endif #ifndef S_IXGRP #define S_IXGRP 0010 /* Execute by group. */ #endif #ifndef S_IXOTH #define S_IXOTH 0001 /* Execute by others. */ #endif chmod(abfd->filename, 0777 & (buf.st_mode | S_IXUSR | S_IXGRP | S_IXOTH)); } (void) obstack_free (&abfd->memory, (PTR)0); (void) free(abfd); return ret; } /* FUNCTION bfd_close_all_done SYNOPSIS boolean bfd_close_all_done(bfd *); DESCRIPTION Close a BFD. Differs from <> since it does not complete any pending operations. This routine would be used if the application had just used BFD for swapping and didn't want to use any of the writing code. If the created file is executable, then <> is called to mark it as such. All memory attached to the BFD's obstacks is released. RETURNS <> is returned if all is ok, otherwise <>. */ boolean bfd_close_all_done (abfd) bfd *abfd; { boolean ret; ret = bfd_cache_close(abfd); /* If the file was open for writing and is now executable, make it so */ if (ret == true && abfd->direction == write_direction && abfd->flags & EXEC_P) { struct stat buf; stat(abfd->filename, &buf); #ifndef S_IXUSR #define S_IXUSR 0100 /* Execute by owner. */ #endif #ifndef S_IXGRP #define S_IXGRP 0010 /* Execute by group. */ #endif #ifndef S_IXOTH #define S_IXOTH 0001 /* Execute by others. */ #endif chmod(abfd->filename, 0x777 &(buf.st_mode | S_IXUSR | S_IXGRP | S_IXOTH)); } (void) obstack_free (&abfd->memory, (PTR)0); (void) free(abfd); return ret; } /* FUNCTION bfd_alloc_size SYNOPSIS bfd_size_type bfd_alloc_size(bfd *abfd); DESCRIPTION Return the number of bytes in the obstacks connected to @var{abfd}. */ bfd_size_type bfd_alloc_size (abfd) bfd *abfd; { struct _obstack_chunk *chunk = abfd->memory.chunk; size_t size = 0; while (chunk) { size += chunk->limit - &(chunk->contents[0]); chunk = chunk->prev; } return size; } /* FUNCTION bfd_create SYNOPSIS bfd *bfd_create(CONST char *filename, bfd *templ); DESCRIPTION Create a new BFD in the manner of <>, but without opening a file. The new BFD takes the target from the target used by @var{template}. The format is always set to <>. */ bfd * bfd_create (filename, templ) CONST char *filename; bfd *templ; { bfd *nbfd = _bfd_new_bfd(); if (nbfd == (bfd *)NULL) { bfd_set_error (bfd_error_no_memory); return (bfd *)NULL; } nbfd->filename = filename; if(templ) { nbfd->xvec = templ->xvec; } nbfd->direction = no_direction; bfd_set_format(nbfd, bfd_object); return nbfd; } /* INTERNAL_FUNCTION bfd_alloc_by_size_t SYNOPSIS PTR bfd_alloc_by_size_t(bfd *abfd, size_t wanted); DESCRIPTION Allocate a block of @var{wanted} bytes of memory in the obstack attatched to <> and return a pointer to it. */ PTR bfd_alloc_by_size_t (abfd, size) bfd *abfd; size_t size; { return obstack_alloc(&(abfd->memory), size); } void bfd_alloc_grow (abfd, ptr, size) bfd *abfd; PTR ptr; size_t size; { (void) obstack_grow(&(abfd->memory), ptr, size); } PTR bfd_alloc_finish (abfd) bfd *abfd; { return obstack_finish(&(abfd->memory)); } PTR bfd_alloc (abfd, size) bfd *abfd; size_t size; { return bfd_alloc_by_size_t(abfd, (size_t)size); } PTR bfd_zalloc (abfd, size) bfd *abfd; size_t size; { PTR res; res = bfd_alloc(abfd, size); if (res) memset(res, 0, (size_t)size); return res; } PTR bfd_realloc (abfd, old, size) bfd *abfd; PTR old; size_t size; { PTR res = bfd_alloc(abfd, size); if (res) memcpy(res, old, (size_t)size); return res; } gdb-4.13/bfd/osf-core.c 666 34562 1752 16211 5610565616 13204 0ustar fnfcygnus/* BFD back-end for OSF/1 core files. Copyright 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file can only be compiled on systems which use OSF/1 style core files. In the config/XXXXXX.mh file for such a system add HDEFINES=-DOSF_CORE HDEPFILES=osf-core.o */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include #include #include #include /* forward declarations */ static asection * make_bfd_asection PARAMS ((bfd *, CONST char *, flagword, bfd_size_type, bfd_vma, file_ptr)); static asymbol * osf_core_make_empty_symbol PARAMS ((bfd *)); static const bfd_target * osf_core_core_file_p PARAMS ((bfd *)); static char * osf_core_core_file_failing_command PARAMS ((bfd *)); static int osf_core_core_file_failing_signal PARAMS ((bfd *)); static boolean osf_core_core_file_matches_executable_p PARAMS ((bfd *, bfd *)); static void swap_abort PARAMS ((void)); /* These are stored in the bfd's tdata */ struct osf_core_struct { int sig; char cmd[MAXCOMLEN + 1]; }; #define core_hdr(bfd) ((bfd)->tdata.osf_core_data) #define core_signal(bfd) (core_hdr(bfd)->sig) #define core_command(bfd) (core_hdr(bfd)->cmd) static asection * make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos) bfd *abfd; CONST char *name; flagword flags; bfd_size_type _raw_size; bfd_vma vma; file_ptr filepos; { asection *asect; asect = bfd_make_section_anyway (abfd, name); if (!asect) return NULL; asect->flags = flags; asect->_raw_size = _raw_size; asect->vma = vma; asect->filepos = filepos; asect->alignment_power = 8; return asect; } static asymbol * osf_core_make_empty_symbol (abfd) bfd *abfd; { asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol)); if (new) new->the_bfd = abfd; return new; } static const bfd_target * osf_core_core_file_p (abfd) bfd *abfd; { int val; int i; char *secname; struct core_filehdr core_header; int dseccnt = 0; val = bfd_read ((PTR)&core_header, 1, sizeof core_header, abfd); if (val != sizeof core_header) return NULL; if (strncmp (core_header.magic, "Core", 4) != 0) return NULL; core_hdr (abfd) = (struct osf_core_struct *) bfd_zalloc (abfd, sizeof (struct osf_core_struct)); if (!core_hdr (abfd)) return NULL; strncpy (core_command (abfd), core_header.name, MAXCOMLEN + 1); core_signal (abfd) = core_header.signo; for (i = 0; i < core_header.nscns; i++) { struct core_scnhdr core_scnhdr; flagword flags; val = bfd_read ((PTR)&core_scnhdr, 1, sizeof core_scnhdr, abfd); if (val != sizeof core_scnhdr) break; /* Skip empty sections. */ if (core_scnhdr.size == 0 || core_scnhdr.scnptr == 0) continue; switch (core_scnhdr.scntype) { case SCNRGN: secname = ".data"; flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS; break; case SCNSTACK: secname = ".stack"; flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS; break; case SCNREGS: secname = ".reg"; flags = SEC_HAS_CONTENTS; break; default: fprintf (stderr, "Unhandled OSF/1 core file section type %d\n", core_scnhdr.scntype); continue; } if (!make_bfd_asection (abfd, secname, flags, (bfd_size_type) core_scnhdr.size, (bfd_vma) core_scnhdr.vaddr, (file_ptr) core_scnhdr.scnptr)) return NULL; } /* OK, we believe you. You're a core file (sure, sure). */ return abfd->xvec; } static char * osf_core_core_file_failing_command (abfd) bfd *abfd; { return core_command (abfd); } /* ARGSUSED */ static int osf_core_core_file_failing_signal (abfd) bfd *abfd; { return core_signal (abfd); } /* ARGSUSED */ static boolean osf_core_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd, *exec_bfd; { return true; /* FIXME, We have no way of telling at this point */ } #define osf_core_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound #define osf_core_get_symtab _bfd_nosymbols_get_symtab #define osf_core_print_symbol _bfd_nosymbols_print_symbol #define osf_core_get_symbol_info _bfd_nosymbols_get_symbol_info #define osf_core_bfd_is_local_label _bfd_nosymbols_bfd_is_local_label #define osf_core_get_lineno _bfd_nosymbols_get_lineno #define osf_core_find_nearest_line _bfd_nosymbols_find_nearest_line #define osf_core_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol /* If somebody calls any byte-swapping routines, shoot them. */ static void swap_abort() { abort(); /* This way doesn't require any declaration for ANSI to fuck up */ } #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort ) #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort ) #define NO_SIGNED_GET \ ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort ) const bfd_target osf_core_vec = { "osf-core", bfd_target_unknown_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* symbol prefix */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 3, /* minimum alignment power */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */ { /* bfd_check_format */ _bfd_dummy_target, /* unknown format */ _bfd_dummy_target, /* object file */ _bfd_dummy_target, /* archive */ osf_core_core_file_p /* a core file */ }, { /* bfd_set_format */ bfd_false, bfd_false, bfd_false, bfd_false }, { /* bfd_write_contents */ bfd_false, bfd_false, bfd_false, bfd_false }, BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (osf_core), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (osf_core), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (_bfd_generic), BFD_JUMP_TABLE_LINK (_bfd_nolink), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 /* backend_data */ }; gdb-4.13/bfd/pc532-mach.c 666 34562 1752 4741 5611327524 13211 0ustar fnfcygnus/* Written by Ian Dall * 19-Apr-94 * * Formerly part of aout-pc532-mach.c. Split out to allow more * flexibility with multiple formats. * */ /* This architecture has N_TXTOFF and N_TXTADDR defined as if * N_HEADER_IN_TEXT, but the a_text entry (text size) does not include the * space for the header. So we have N_HEADER_IN_TEXT defined to * 1 and specially define our own N_TXTSIZE */ #define N_HEADER_IN_TEXT(x) 1 #define N_TXTSIZE(x) ((x).a_text) #define TEXT_START_ADDR 0x10000 /* from old ld */ #define PAGE_SIZE 0x1000 /* from old ld, 032 & 532 are really 512/4k */ /* Use a_entry of 0 to distinguish object files from OMAGIC executables */ #define N_TXTADDR(x) \ (N_MAGIC(x) == OMAGIC ? \ ((x).a_entry < TEXT_START_ADDR? 0: TEXT_START_ADDR): \ (N_MAGIC(x) == NMAGIC? TEXT_START_ADDR: \ TEXT_START_ADDR + EXEC_BYTES_SIZE)) #define ARCH 32 #define SEGMENT_SIZE PAGE_SIZE #define N_SHARED_LIB(x) 0 #define SEGMENT_SIZE PAGE_SIZE #define DEFAULT_ARCH bfd_arch_ns32k #define MY(OP) CAT(pc532mach_,OP) #define TARGETNAME "a.out-pc532-mach" #include "bfd.h" #include "sysdep.h" #include "aout-ns32k.h" #include "libaout.h" #include "libbfd.h" #include "aout/aout64.h" /* We can`t use the MYNS macro here for cpp reasons too subtle * for me -- IWD */ #define MY_bfd_reloc_type_lookup ns32kaout_bfd_reloc_type_lookup /* libaout doesn't use NAME for these ... */ #define MY_get_section_contents aout_32_get_section_contents /* Forward declaration. Defined in aout-target.h */ static boolean MY(set_sizes)(); static CONST struct aout_backend_data MY(backend_data) = { 0, /* zmagic contiguous */ 1, /* text incl header */ 0, 0, /* text vma? */ MY(set_sizes), 1, /* exec header is not counted */ }; #define MY_backend_data &MY(backend_data) static boolean MY(write_object_contents) (abfd) bfd *abfd; { struct external_exec exec_bytes; struct internal_exec *execp = exec_hdr (abfd); #if CHOOSE_RELOC_SIZE CHOOSE_RELOC_SIZE(abfd); #else obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; #endif BFD_ASSERT(bfd_get_arch(abfd) == bfd_arch_ns32k); switch (bfd_get_mach(abfd)) { case 32032: N_SET_MACHTYPE (*execp, M_NS32032); break; case 32532: default: N_SET_MACHTYPE (*execp, M_NS32532); break; } N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags); WRITE_HEADERS(abfd, execp); return true; } #define MY_write_object_contents MY(write_object_contents) #include "aout-target.h" gdb-4.13/bfd/ptrace-core.c 666 34562 1752 17247 5616010623 13672 0ustar fnfcygnus/* BFD backend for core files which use the ptrace_user structure Copyright 1993, 1994 Free Software Foundation, Inc. The structure of this file is based on trad-core.c written by John Gilmore of Cygnus Support. Modified to work with the ptrace_user structure by Kevin A. Buettner. (Longterm it may be better to merge this file with trad-core.c) This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. To use this file on a particular host, configure the host with these parameters in the config/h-HOST file: HDEFINES=-DPTRACE_CORE HDEPFILES=ptrace-core.o */ #ifdef PTRACE_CORE #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include #include #include #include #include #include #include #include struct trad_core_struct { asection *data_section; asection *stack_section; asection *reg_section; struct ptrace_user u; } *rawptr; #define core_upage(bfd) (&((bfd)->tdata.trad_core_data->u)) #define core_datasec(bfd) ((bfd)->tdata.trad_core_data->data_section) #define core_stacksec(bfd) ((bfd)->tdata.trad_core_data->stack_section) #define core_regsec(bfd) ((bfd)->tdata.trad_core_data->reg_section) /* forward declarations */ const bfd_target *ptrace_unix_core_file_p PARAMS ((bfd *abfd)); char * ptrace_unix_core_file_failing_command PARAMS ((bfd *abfd)); int ptrace_unix_core_file_failing_signal PARAMS ((bfd *abfd)); boolean ptrace_unix_core_file_matches_executable_p PARAMS ((bfd *core_bfd, bfd *exec_bfd)); /* ARGSUSED */ const bfd_target * ptrace_unix_core_file_p (abfd) bfd *abfd; { int val; struct ptrace_user u; val = bfd_read ((void *)&u, 1, sizeof u, abfd); if (val != sizeof u || u.pt_magic != _BCS_PTRACE_MAGIC || u.pt_rev != _BCS_PTRACE_REV) { /* Too small to be a core file */ bfd_set_error (bfd_error_wrong_format); return 0; } /* OK, we believe you. You're a core file (sure, sure). */ /* Allocate both the upage and the struct core_data at once, so a single free() will free them both. */ rawptr = (struct trad_core_struct *) bfd_zalloc (abfd, sizeof (struct trad_core_struct)); if (rawptr == NULL) { bfd_set_error (bfd_error_no_memory); return 0; } abfd->tdata.trad_core_data = rawptr; rawptr->u = u; /*Copy the uarea into the tdata part of the bfd */ /* Create the sections. This is raunchy, but bfd_close wants to free them separately. */ core_stacksec(abfd) = (asection *) bfd_zmalloc (sizeof (asection)); if (core_stacksec (abfd) == NULL) { loser: bfd_set_error (bfd_error_no_memory); free ((void *)rawptr); return 0; } core_datasec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_datasec (abfd) == NULL) { loser1: free ((void *)core_stacksec (abfd)); goto loser; } core_regsec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_regsec (abfd) == NULL) { free ((void *)core_datasec (abfd)); goto loser1; } core_stacksec (abfd)->name = ".stack"; core_datasec (abfd)->name = ".data"; core_regsec (abfd)->name = ".reg"; /* FIXME: Need to worry about shared memory, library data, and library text. I don't think that any of these things are supported on the system on which I am developing this for though. */ core_stacksec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS; core_datasec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS; core_regsec (abfd)->flags = SEC_HAS_CONTENTS; core_datasec (abfd)->_raw_size = u.pt_dsize; core_stacksec (abfd)->_raw_size = u.pt_ssize; core_regsec (abfd)->_raw_size = sizeof(u); core_datasec (abfd)->vma = u.pt_o_data_start; core_stacksec (abfd)->vma = USRSTACK - u.pt_ssize; core_regsec (abfd)->vma = 0 - sizeof(u); /* see trad-core.c */ core_datasec (abfd)->filepos = (int) u.pt_dataptr; core_stacksec (abfd)->filepos = (int) (u.pt_dataptr + u.pt_dsize); core_regsec (abfd)->filepos = 0; /* Register segment is ptrace_user */ /* Align to word at least */ core_stacksec (abfd)->alignment_power = 2; core_datasec (abfd)->alignment_power = 2; core_regsec (abfd)->alignment_power = 2; abfd->sections = core_stacksec (abfd); core_stacksec (abfd)->next = core_datasec (abfd); core_datasec (abfd)->next = core_regsec (abfd); abfd->section_count = 3; return abfd->xvec; } char * ptrace_unix_core_file_failing_command (abfd) bfd *abfd; { char *com = abfd->tdata.trad_core_data->u.pt_comm; if (*com) return com; else return 0; } /* ARGSUSED */ int ptrace_unix_core_file_failing_signal (abfd) bfd *abfd; { return abfd->tdata.trad_core_data->u.pt_sigframe.sig_num; } /* ARGSUSED */ boolean ptrace_unix_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd, *exec_bfd; { /* FIXME: Use pt_timdat field of the ptrace_user structure to match the date of the executable */ return true; } /* If somebody calls any byte-swapping routines, shoot them. */ void swap_abort() { abort(); /* This way doesn't require any declaration for ANSI to fuck up */ } #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort ) #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort ) #define NO_SIGNED_GET \ ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort ) const bfd_target ptrace_core_vec = { "trad-core", bfd_target_unknown_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* symbol prefix */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 3, /* minimum alignment power */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */ { /* bfd_check_format */ _bfd_dummy_target, /* unknown format */ _bfd_dummy_target, /* object file */ _bfd_dummy_target, /* archive */ ptrace_unix_core_file_p /* a core file */ }, { /* bfd_set_format */ bfd_false, bfd_false, bfd_false, bfd_false }, { /* bfd_write_contents */ bfd_false, bfd_false, bfd_false, bfd_false }, BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (ptrace_unix), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (_bfd_generic), BFD_JUMP_TABLE_LINK (_bfd_nolink), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 /* backend_data */ }; #endif /* PTRACE_CORE */ gdb-4.13/bfd/reloc.c 666 34562 1752 141505 5622333672 12616 0ustar fnfcygnus/* BFD support for handling relocation entries. Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION Relocations BFD maintains relocations in much the same way it maintains symbols: they are left alone until required, then read in en-mass and translated into an internal form. A common routine <> acts upon the canonical form to do the fixup. Relocations are maintained on a per section basis, while symbols are maintained on a per BFD basis. All that a back end has to do to fit the BFD interface is to create a <> for each relocation in a particular section, and fill in the right bits of the structures. @menu @* typedef arelent:: @* howto manager:: @end menu */ #include "bfd.h" #include "sysdep.h" #include "bfdlink.h" #include "libbfd.h" /* DOCDD INODE typedef arelent, howto manager, Relocations, Relocations SUBSECTION typedef arelent This is the structure of a relocation entry: CODE_FRAGMENT . .typedef enum bfd_reloc_status .{ . {* No errors detected *} . bfd_reloc_ok, . . {* The relocation was performed, but there was an overflow. *} . bfd_reloc_overflow, . . {* The address to relocate was not within the section supplied. *} . bfd_reloc_outofrange, . . {* Used by special functions *} . bfd_reloc_continue, . . {* Unsupported relocation size requested. *} . bfd_reloc_notsupported, . . {* Unused *} . bfd_reloc_other, . . {* The symbol to relocate against was undefined. *} . bfd_reloc_undefined, . . {* The relocation was performed, but may not be ok - presently . generated only when linking i960 coff files with i960 b.out . symbols. If this type is returned, the error_message argument . to bfd_perform_relocation will be set. *} . bfd_reloc_dangerous . } . bfd_reloc_status_type; . . .typedef struct reloc_cache_entry .{ . {* A pointer into the canonical table of pointers *} . struct symbol_cache_entry **sym_ptr_ptr; . . {* offset in section *} . bfd_size_type address; . . {* addend for relocation value *} . bfd_vma addend; . . {* Pointer to how to perform the required relocation *} . const struct reloc_howto_struct *howto; . .} arelent; */ /* DESCRIPTION Here is a description of each of the fields within an <>: o <> The symbol table pointer points to a pointer to the symbol associated with the relocation request. It is the pointer into the table returned by the back end's <> action. @xref{Symbols}. The symbol is referenced through a pointer to a pointer so that tools like the linker can fix up all the symbols of the same name by modifying only one pointer. The relocation routine looks in the symbol and uses the base of the section the symbol is attached to and the value of the symbol as the initial relocation offset. If the symbol pointer is zero, then the section provided is looked up. o <
> The <
> field gives the offset in bytes from the base of the section data which owns the relocation record to the first byte of relocatable information. The actual data relocated will be relative to this point; for example, a relocation type which modifies the bottom two bytes of a four byte word would not touch the first byte pointed to in a big endian world. o <> The <> is a value provided by the back end to be added (!) to the relocation offset. Its interpretation is dependent upon the howto. For example, on the 68k the code: | char foo[]; | main() | { | return foo[0x12345678]; | } Could be compiled into: | linkw fp,#-4 | moveb @@#12345678,d0 | extbl d0 | unlk fp | rts This could create a reloc pointing to <>, but leave the offset in the data, something like: |RELOCATION RECORDS FOR [.text]: |offset type value |00000006 32 _foo | |00000000 4e56 fffc ; linkw fp,#-4 |00000004 1039 1234 5678 ; moveb @@#12345678,d0 |0000000a 49c0 ; extbl d0 |0000000c 4e5e ; unlk fp |0000000e 4e75 ; rts Using coff and an 88k, some instructions don't have enough space in them to represent the full address range, and pointers have to be loaded in two parts. So you'd get something like: | or.u r13,r0,hi16(_foo+0x12345678) | ld.b r2,r13,lo16(_foo+0x12345678) | jmp r1 This should create two relocs, both pointing to <<_foo>>, and with 0x12340000 in their addend field. The data would consist of: |RELOCATION RECORDS FOR [.text]: |offset type value |00000002 HVRT16 _foo+0x12340000 |00000006 LVRT16 _foo+0x12340000 | |00000000 5da05678 ; or.u r13,r0,0x5678 |00000004 1c4d5678 ; ld.b r2,r13,0x5678 |00000008 f400c001 ; jmp r1 The relocation routine digs out the value from the data, adds it to the addend to get the original offset, and then adds the value of <<_foo>>. Note that all 32 bits have to be kept around somewhere, to cope with carry from bit 15 to bit 16. One further example is the sparc and the a.out format. The sparc has a similar problem to the 88k, in that some instructions don't have room for an entire offset, but on the sparc the parts are created in odd sized lumps. The designers of the a.out format chose to not use the data within the section for storing part of the offset; all the offset is kept within the reloc. Anything in the data should be ignored. | save %sp,-112,%sp | sethi %hi(_foo+0x12345678),%g2 | ldsb [%g2+%lo(_foo+0x12345678)],%i0 | ret | restore Both relocs contain a pointer to <>, and the offsets contain junk. |RELOCATION RECORDS FOR [.text]: |offset type value |00000004 HI22 _foo+0x12345678 |00000008 LO10 _foo+0x12345678 | |00000000 9de3bf90 ; save %sp,-112,%sp |00000004 05000000 ; sethi %hi(_foo+0),%g2 |00000008 f048a000 ; ldsb [%g2+%lo(_foo+0)],%i0 |0000000c 81c7e008 ; ret |00000010 81e80000 ; restore o <> The <> field can be imagined as a relocation instruction. It is a pointer to a structure which contains information on what to do with all of the other information in the reloc record and data section. A back end would normally have a relocation instruction set and turn relocations into pointers to the correct structure on input - but it would be possible to create each howto field on demand. */ /* SUBSUBSECTION <> Indicates what sort of overflow checking should be done when performing a relocation. CODE_FRAGMENT . .enum complain_overflow .{ . {* Do not complain on overflow. *} . complain_overflow_dont, . . {* Complain if the bitfield overflows, whether it is considered . as signed or unsigned. *} . complain_overflow_bitfield, . . {* Complain if the value overflows when considered as signed . number. *} . complain_overflow_signed, . . {* Complain if the value overflows when considered as an . unsigned number. *} . complain_overflow_unsigned .}; */ /* SUBSUBSECTION <> The <> is a structure which contains all the information that libbfd needs to know to tie up a back end's data. CODE_FRAGMENT .struct symbol_cache_entry; {* Forward declaration *} . .typedef unsigned char bfd_byte; .typedef struct reloc_howto_struct reloc_howto_type; . .struct reloc_howto_struct .{ . {* The type field has mainly a documetary use - the back end can . do what it wants with it, though normally the back end's . external idea of what a reloc number is stored . in this field. For example, a PC relative word relocation . in a coff environment has the type 023 - because that's . what the outside world calls a R_PCRWORD reloc. *} . unsigned int type; . . {* The value the final relocation is shifted right by. This drops . unwanted data from the relocation. *} . unsigned int rightshift; . . {* The size of the item to be relocated. This is *not* a . power-of-two measure. To get the number of bytes operated . on by a type of relocation, use bfd_get_reloc_size. *} . int size; . . {* The number of bits in the item to be relocated. This is used . when doing overflow checking. *} . unsigned int bitsize; . . {* Notes that the relocation is relative to the location in the . data section of the addend. The relocation function will . subtract from the relocation value the address of the location . being relocated. *} . boolean pc_relative; . . {* The bit position of the reloc value in the destination. . The relocated value is left shifted by this amount. *} . unsigned int bitpos; . . {* What type of overflow error should be checked for when . relocating. *} . enum complain_overflow complain_on_overflow; . . {* If this field is non null, then the supplied function is . called rather than the normal function. This allows really . strange relocation methods to be accomodated (e.g., i960 callj . instructions). *} . bfd_reloc_status_type (*special_function) . PARAMS ((bfd *abfd, . arelent *reloc_entry, . struct symbol_cache_entry *symbol, . PTR data, . asection *input_section, . bfd *output_bfd, . char **error_message)); . . {* The textual name of the relocation type. *} . char *name; . . {* When performing a partial link, some formats must modify the . relocations rather than the data - this flag signals this.*} . boolean partial_inplace; . . {* The src_mask selects which parts of the read in data . are to be used in the relocation sum. E.g., if this was an 8 bit . bit of data which we read and relocated, this would be . 0x000000ff. When we have relocs which have an addend, such as . sun4 extended relocs, the value in the offset part of a . relocating field is garbage so we never use it. In this case . the mask would be 0x00000000. *} . bfd_vma src_mask; . . {* The dst_mask selects which parts of the instruction are replaced . into the instruction. In most cases src_mask == dst_mask, . except in the above special case, where dst_mask would be . 0x000000ff, and src_mask would be 0x00000000. *} . bfd_vma dst_mask; . . {* When some formats create PC relative instructions, they leave . the value of the pc of the place being relocated in the offset . slot of the instruction, so that a PC relative relocation can . be made just by adding in an ordinary offset (e.g., sun3 a.out). . Some formats leave the displacement part of an instruction . empty (e.g., m88k bcs); this flag signals the fact.*} . boolean pcrel_offset; . .}; */ /* FUNCTION The HOWTO Macro DESCRIPTION The HOWTO define is horrible and will go away. .#define HOWTO(C, R,S,B, P, BI, O, SF, NAME, INPLACE, MASKSRC, MASKDST, PC) \ . {(unsigned)C,R,S,B, P, BI, O,SF,NAME,INPLACE,MASKSRC,MASKDST,PC} DESCRIPTION And will be replaced with the totally magic way. But for the moment, we are compatible, so do it this way. .#define NEWHOWTO( FUNCTION, NAME,SIZE,REL,IN) HOWTO(0,0,SIZE,0,REL,0,complain_overflow_dont,FUNCTION, NAME,false,0,0,IN) . DESCRIPTION Helper routine to turn a symbol into a relocation value. .#define HOWTO_PREPARE(relocation, symbol) \ . { \ . if (symbol != (asymbol *)NULL) { \ . if (bfd_is_com_section (symbol->section)) { \ . relocation = 0; \ . } \ . else { \ . relocation = symbol->value; \ . } \ . } \ .} */ /* FUNCTION bfd_get_reloc_size SYNOPSIS int bfd_get_reloc_size (const reloc_howto_type *); DESCRIPTION For a reloc_howto_type that operates on a fixed number of bytes, this returns the number of bytes operated on. */ int bfd_get_reloc_size (howto) const reloc_howto_type *howto; { switch (howto->size) { case 0: return 1; case 1: return 2; case 2: return 4; case 3: return 0; case 4: return 8; case -2: return 4; default: abort (); } } /* TYPEDEF arelent_chain DESCRIPTION How relocs are tied together in an <>: .typedef struct relent_chain { . arelent relent; . struct relent_chain *next; .} arelent_chain; */ /* FUNCTION bfd_perform_relocation SYNOPSIS bfd_reloc_status_type bfd_perform_relocation (bfd *abfd, arelent *reloc_entry, PTR data, asection *input_section, bfd *output_bfd, char **error_message); DESCRIPTION If @var{output_bfd} is supplied to this function, the generated image will be relocatable; the relocations are copied to the output file after they have been changed to reflect the new state of the world. There are two ways of reflecting the results of partial linkage in an output file: by modifying the output data in place, and by modifying the relocation record. Some native formats (e.g., basic a.out and basic coff) have no way of specifying an addend in the relocation type, so the addend has to go in the output data. This is no big deal since in these formats the output data slot will always be big enough for the addend. Complex reloc types with addends were invented to solve just this problem. The @var{error_message} argument is set to an error message if this return @code{bfd_reloc_dangerous}. */ bfd_reloc_status_type bfd_perform_relocation (abfd, reloc_entry, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { bfd_vma relocation; bfd_reloc_status_type flag = bfd_reloc_ok; bfd_size_type addr = reloc_entry->address; bfd_vma output_base = 0; const reloc_howto_type *howto = reloc_entry->howto; asection *reloc_target_output_section; asymbol *symbol; symbol = *(reloc_entry->sym_ptr_ptr); if (bfd_is_abs_section (symbol->section) && output_bfd != (bfd *) NULL) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } /* If we are not producing relocateable output, return an error if the symbol is not defined. An undefined weak symbol is considered to have a value of zero (SVR4 ABI, p. 4-27). */ if (bfd_is_und_section (symbol->section) && (symbol->flags & BSF_WEAK) == 0 && output_bfd == (bfd *) NULL) flag = bfd_reloc_undefined; /* If there is a function supplied to handle this relocation type, call it. It'll return `bfd_reloc_continue' if further processing can be done. */ if (howto->special_function) { bfd_reloc_status_type cont; cont = howto->special_function (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message); if (cont != bfd_reloc_continue) return cont; } /* Is the address of the relocation really within the section? */ if (reloc_entry->address > input_section->_cooked_size) return bfd_reloc_outofrange; /* Work out which section the relocation is targetted at and the initial relocation command value. */ /* Get symbol value. (Common symbols are special.) */ if (bfd_is_com_section (symbol->section)) relocation = 0; else relocation = symbol->value; reloc_target_output_section = symbol->section->output_section; /* Convert input-section-relative symbol value to absolute. */ if (output_bfd && howto->partial_inplace == false) output_base = 0; else output_base = reloc_target_output_section->vma; relocation += output_base + symbol->section->output_offset; /* Add in supplied addend. */ relocation += reloc_entry->addend; /* Here the variable relocation holds the final address of the symbol we are relocating against, plus any addend. */ if (howto->pc_relative == true) { /* This is a PC relative relocation. We want to set RELOCATION to the distance between the address of the symbol and the location. RELOCATION is already the address of the symbol. We start by subtracting the address of the section containing the location. If pcrel_offset is set, we must further subtract the position of the location within the section. Some targets arrange for the addend to be the negative of the position of the location within the section; for example, i386-aout does this. For i386-aout, pcrel_offset is false. Some other targets do not include the position of the location; for example, m88kbcs, or ELF. For those targets, pcrel_offset is true. If we are producing relocateable output, then we must ensure that this reloc will be correctly computed when the final relocation is done. If pcrel_offset is false we want to wind up with the negative of the location within the section, which means we must adjust the existing addend by the change in the location within the section. If pcrel_offset is true we do not want to adjust the existing addend at all. FIXME: This seems logical to me, but for the case of producing relocateable output it is not what the code actually does. I don't want to change it, because it seems far too likely that something will break. */ relocation -= input_section->output_section->vma + input_section->output_offset; if (howto->pcrel_offset == true) relocation -= reloc_entry->address; } if (output_bfd != (bfd *) NULL) { if (howto->partial_inplace == false) { /* This is a partial relocation, and we want to apply the relocation to the reloc entry rather than the raw data. Modify the reloc inplace to reflect what we now know. */ reloc_entry->addend = relocation; reloc_entry->address += input_section->output_offset; return flag; } else { /* This is a partial relocation, but inplace, so modify the reloc record a bit. If we've relocated with a symbol with a section, change into a ref to the section belonging to the symbol. */ reloc_entry->address += input_section->output_offset; /* WTF?? */ if (abfd->xvec->flavour == bfd_target_coff_flavour && strcmp (abfd->xvec->name, "aixcoff-rs6000") != 0 && strcmp (abfd->xvec->name, "coff-Intel-little") != 0 && strcmp (abfd->xvec->name, "coff-Intel-big") != 0) { #if 1 /* For m68k-coff, the addend was being subtracted twice during relocation with -r. Removing the line below this comment fixes that problem; see PR 2953. However, Ian wrote the following, regarding removing the line below, which explains why it is still enabled: --djm If you put a patch like that into BFD you need to check all the COFF linkers. I am fairly certain that patch will break coff-i386 (e.g., SCO); see coff_i386_reloc in coff-i386.c where I worked around the problem in a different way. There may very well be a reason that the code works as it does. Hmmm. The first obvious point is that bfd_perform_relocation should not have any tests that depend upon the flavour. It's seem like entirely the wrong place for such a thing. The second obvious point is that the current code ignores the reloc addend when producing relocateable output for COFF. That's peculiar. In fact, I really have no idea what the point of the line you want to remove is. A typical COFF reloc subtracts the old value of the symbol and adds in the new value to the location in the object file (if it's a pc relative reloc it adds the difference between the symbol value and the location). When relocating we need to preserve that property. BFD handles this by setting the addend to the negative of the old value of the symbol. Unfortunately it handles common symbols in a non-standard way (it doesn't subtract the old value) but that's a different story (we can't change it without losing backward compatibility with old object files) (coff-i386 does subtract the old value, to be compatible with existing coff-i386 targets, like SCO). So everything works fine when not producing relocateable output. When we are producing relocateable output, logically we should do exactly what we do when not producing relocateable output. Therefore, your patch is correct. In fact, it should probably always just set reloc_entry->addend to 0 for all cases, since it is, in fact, going to add the value into the object file. This won't hurt the COFF code, which doesn't use the addend; I'm not sure what it will do to other formats (the thing to check for would be whether any formats both use the addend and set partial_inplace). When I wanted to make coff-i386 produce relocateable output, I ran into the problem that you are running into: I wanted to remove that line. Rather than risk it, I made the coff-i386 relocs use a special function; it's coff_i386_reloc in coff-i386.c. The function specifically adds the addend field into the object file, knowing that bfd_perform_relocation is not going to. If you remove that line, then coff-i386.c will wind up adding the addend field in twice. It's trivial to fix; it just needs to be done. The problem with removing the line is just that it may break some working code. With BFD it's hard to be sure of anything. The right way to deal with this is simply to build and test at least all the supported COFF targets. It should be straightforward if time and disk space consuming. For each target: 1) build the linker 2) generate some executable, and link it using -r (I would probably use paranoia.o and link against newlib/libc.a, which for all the supported targets would be available in /usr/cygnus/progressive/H-host/target/lib/libc.a). 3) make the change to reloc.c 4) rebuild the linker 5) repeat step 2 6) if the resulting object files are the same, you have at least made it no worse 7) if they are different you have to figure out which version is right */ relocation -= reloc_entry->addend; #endif reloc_entry->addend = 0; } else { reloc_entry->addend = relocation; } } } else { reloc_entry->addend = 0; } /* FIXME: This overflow checking is incomplete, because the value might have overflowed before we get here. For a correct check we need to compute the value in a size larger than bitsize, but we can't reasonably do that for a reloc the same size as a host machine word. FIXME: We should also do overflow checking on the result after adding in the value contained in the object file. */ if (howto->complain_on_overflow != complain_overflow_dont) { bfd_vma check; /* Get the value that will be used for the relocation, but starting at bit position zero. */ if (howto->rightshift > howto->bitpos) check = relocation >> (howto->rightshift - howto->bitpos); else check = relocation << (howto->bitpos - howto->rightshift); switch (howto->complain_on_overflow) { case complain_overflow_signed: { /* Assumes two's complement. */ bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1; bfd_signed_vma reloc_signed_min = ~reloc_signed_max; /* The above right shift is incorrect for a signed value. Fix it up by forcing on the upper bits. */ if (howto->rightshift > howto->bitpos && (bfd_signed_vma) relocation < 0) check |= ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> (howto->rightshift - howto->bitpos))); if ((bfd_signed_vma) check > reloc_signed_max || (bfd_signed_vma) check < reloc_signed_min) flag = bfd_reloc_overflow; } break; case complain_overflow_unsigned: { /* Assumes two's complement. This expression avoids overflow if howto->bitsize is the number of bits in bfd_vma. */ bfd_vma reloc_unsigned_max = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1; if ((bfd_vma) check > reloc_unsigned_max) flag = bfd_reloc_overflow; } break; case complain_overflow_bitfield: { /* Assumes two's complement. This expression avoids overflow if howto->bitsize is the number of bits in bfd_vma. */ bfd_vma reloc_bits = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1; if (((bfd_vma) check & ~reloc_bits) != 0 && ((bfd_vma) check & ~reloc_bits) != (-1 & ~reloc_bits)) { /* The above right shift is incorrect for a signed value. See if turning on the upper bits fixes the overflow. */ if (howto->rightshift > howto->bitpos && (bfd_signed_vma) relocation < 0) { check |= ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> (howto->rightshift - howto->bitpos))); if (((bfd_vma) check & ~reloc_bits) != (-1 & ~reloc_bits)) flag = bfd_reloc_overflow; } else flag = bfd_reloc_overflow; } } break; default: abort (); } } /* Either we are relocating all the way, or we don't want to apply the relocation to the reloc entry (probably because there isn't any room in the output format to describe addends to relocs) */ /* The cast to bfd_vma avoids a bug in the Alpha OSF/1 C compiler (OSF version 1.3, compiler version 3.11). It miscompiles the following program: struct str { unsigned int i0; } s = { 0 }; int main () { unsigned long x; x = 0x100000000; x <<= (unsigned long) s.i0; if (x == 0) printf ("failed\n"); else printf ("succeeded (%lx)\n", x); } */ relocation >>= (bfd_vma) howto->rightshift; /* Shift everything up to where it's going to be used */ relocation <<= (bfd_vma) howto->bitpos; /* Wait for the day when all have the mask in them */ /* What we do: i instruction to be left alone o offset within instruction r relocation offset to apply S src mask D dst mask N ~dst mask A part 1 B part 2 R result Do this: i i i i i o o o o o from bfd_get and S S S S S to get the size offset we want + r r r r r r r r r r to get the final value to place and D D D D D to chop to right size ----------------------- A A A A A And this: ... i i i i i o o o o o from bfd_get and N N N N N get instruction ----------------------- ... B B B B B And then: B B B B B or A A A A A ----------------------- R R R R R R R R R R put into bfd_put */ #define DOIT(x) \ x = ( (x & ~howto->dst_mask) | (((x & howto->src_mask) + relocation) & howto->dst_mask)) switch (howto->size) { case 0: { char x = bfd_get_8 (abfd, (char *) data + addr); DOIT (x); bfd_put_8 (abfd, x, (unsigned char *) data + addr); } break; case 1: if (relocation) { short x = bfd_get_16 (abfd, (bfd_byte *) data + addr); DOIT (x); bfd_put_16 (abfd, x, (unsigned char *) data + addr); } break; case 2: if (relocation) { long x = bfd_get_32 (abfd, (bfd_byte *) data + addr); DOIT (x); bfd_put_32 (abfd, x, (bfd_byte *) data + addr); } break; case -2: { long x = bfd_get_32 (abfd, (bfd_byte *) data + addr); relocation = -relocation; DOIT (x); bfd_put_32 (abfd, x, (bfd_byte *) data + addr); } break; case 3: /* Do nothing */ break; case 4: #ifdef BFD64 if (relocation) { bfd_vma x = bfd_get_64 (abfd, (bfd_byte *) data + addr); DOIT (x); bfd_put_64 (abfd, x, (bfd_byte *) data + addr); } #else abort (); #endif break; default: return bfd_reloc_other; } return flag; } /* This relocation routine is used by some of the backend linkers. They do not construct asymbol or arelent structures, so there is no reason for them to use bfd_perform_relocation. Also, bfd_perform_relocation is so hacked up it is easier to write a new function than to try to deal with it. This routine does a final relocation. It should not be used when generating relocateable output. FIXME: This routine ignores any special_function in the HOWTO, since the existing special_function values have been written for bfd_perform_relocation. HOWTO is the reloc howto information. INPUT_BFD is the BFD which the reloc applies to. INPUT_SECTION is the section which the reloc applies to. CONTENTS is the contents of the section. ADDRESS is the address of the reloc within INPUT_SECTION. VALUE is the value of the symbol the reloc refers to. ADDEND is the addend of the reloc. */ bfd_reloc_status_type _bfd_final_link_relocate (howto, input_bfd, input_section, contents, address, value, addend) const reloc_howto_type *howto; bfd *input_bfd; asection *input_section; bfd_byte *contents; bfd_vma address; bfd_vma value; bfd_vma addend; { bfd_vma relocation; /* Sanity check the address. */ if (address > input_section->_cooked_size) return bfd_reloc_outofrange; /* This function assumes that we are dealing with a basic relocation against a symbol. We want to compute the value of the symbol to relocate to. This is just VALUE, the value of the symbol, plus ADDEND, any addend associated with the reloc. */ relocation = value + addend; /* If the relocation is PC relative, we want to set RELOCATION to the distance between the symbol (currently in RELOCATION) and the location we are relocating. Some targets (e.g., i386-aout) arrange for the contents of the section to be the negative of the offset of the location within the section; for such targets pcrel_offset is false. Other targets (e.g., m88kbcs or ELF) simply leave the contents of the section as zero; for such targets pcrel_offset is true. If pcrel_offset is false we do not need to subtract out the offset of the location within the section (which is just ADDRESS). */ if (howto->pc_relative) { relocation -= (input_section->output_section->vma + input_section->output_offset); if (howto->pcrel_offset) relocation -= address; } return _bfd_relocate_contents (howto, input_bfd, relocation, contents + address); } /* Relocate a given location using a given value and howto. */ bfd_reloc_status_type _bfd_relocate_contents (howto, input_bfd, relocation, location) const reloc_howto_type *howto; bfd *input_bfd; bfd_vma relocation; bfd_byte *location; { int size; bfd_vma x; boolean overflow; /* If the size is negative, negate RELOCATION. This isn't very general. */ if (howto->size < 0) relocation = -relocation; /* Get the value we are going to relocate. */ size = bfd_get_reloc_size (howto); switch (size) { default: case 0: abort (); case 1: x = bfd_get_8 (input_bfd, location); break; case 2: x = bfd_get_16 (input_bfd, location); break; case 4: x = bfd_get_32 (input_bfd, location); break; case 8: #ifdef BFD64 x = bfd_get_64 (input_bfd, location); #else abort (); #endif break; } /* Check for overflow. FIXME: We may drop bits during the addition which we don't check for. We must either check at every single operation, which would be tedious, or we must do the computations in a type larger than bfd_vma, which would be inefficient. */ overflow = false; if (howto->complain_on_overflow != complain_overflow_dont) { bfd_vma check; bfd_signed_vma signed_check; bfd_vma add; bfd_signed_vma signed_add; if (howto->rightshift == 0) { check = relocation; signed_check = (bfd_signed_vma) relocation; } else { /* Drop unwanted bits from the value we are relocating to. */ check = relocation >> howto->rightshift; /* If this is a signed value, the rightshift just dropped leading 1 bits (assuming twos complement). */ if ((bfd_signed_vma) relocation >= 0) signed_check = check; else signed_check = (check | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->rightshift))); } /* Get the value from the object file. */ add = x & howto->src_mask; /* Get the value from the object file with an appropriate sign. The expression involving howto->src_mask isolates the upper bit of src_mask. If that bit is set in the value we are adding, it is negative, and we subtract out that number times two. If src_mask includes the highest possible bit, then we can not get the upper bit, but that does not matter since signed_add needs no adjustment to become negative in that case. */ signed_add = add; if ((add & (((~howto->src_mask) >> 1) & howto->src_mask)) != 0) signed_add -= (((~howto->src_mask) >> 1) & howto->src_mask) << 1; /* Add the value from the object file, shifted so that it is a straight number. */ if (howto->bitpos == 0) { check += add; signed_check += signed_add; } else { check += add >> howto->bitpos; /* For the signed case we use ADD, rather than SIGNED_ADD, to avoid warnings from SVR4 cc. This is OK since we explictly handle the sign bits. */ if (signed_add >= 0) signed_check += add >> howto->bitpos; else signed_check += ((add >> howto->bitpos) | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->bitpos))); } switch (howto->complain_on_overflow) { case complain_overflow_signed: { /* Assumes two's complement. */ bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1; bfd_signed_vma reloc_signed_min = ~reloc_signed_max; if (signed_check > reloc_signed_max || signed_check < reloc_signed_min) overflow = true; } break; case complain_overflow_unsigned: { /* Assumes two's complement. This expression avoids overflow if howto->bitsize is the number of bits in bfd_vma. */ bfd_vma reloc_unsigned_max = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1; if (check > reloc_unsigned_max) overflow = true; } break; case complain_overflow_bitfield: { /* Assumes two's complement. This expression avoids overflow if howto->bitsize is the number of bits in bfd_vma. */ bfd_vma reloc_bits = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1; if ((check & ~reloc_bits) != 0 && (((bfd_vma) signed_check & ~reloc_bits) != (-1 & ~reloc_bits))) overflow = true; } break; default: abort (); } } /* Put RELOCATION in the right bits. */ relocation >>= (bfd_vma) howto->rightshift; relocation <<= (bfd_vma) howto->bitpos; /* Add RELOCATION to the right bits of X. */ x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + relocation) & howto->dst_mask)); /* Put the relocated value back in the object file. */ switch (size) { default: case 0: abort (); case 1: bfd_put_8 (input_bfd, x, location); break; case 2: bfd_put_16 (input_bfd, x, location); break; case 4: bfd_put_32 (input_bfd, x, location); break; case 8: #ifdef BFD64 bfd_put_64 (input_bfd, x, location); #else abort (); #endif break; } return overflow ? bfd_reloc_overflow : bfd_reloc_ok; } /* DOCDD INODE howto manager, , typedef arelent, Relocations SECTION The howto manager When an application wants to create a relocation, but doesn't know what the target machine might call it, it can find out by using this bit of code. */ /* TYPEDEF bfd_reloc_code_type DESCRIPTION The insides of a reloc code. The idea is that, eventually, there will be one enumerator for every type of relocation we ever do. Pass one of these values to <>, and it'll return a howto pointer. This does mean that the application must determine the correct enumerator value; you can't get a howto pointer from a random set of attributes. CODE_FRAGMENT . .typedef enum bfd_reloc_code_real .{ . {* Basic absolute relocations *} . BFD_RELOC_64, . BFD_RELOC_32, . BFD_RELOC_26, . BFD_RELOC_16, . BFD_RELOC_14, . BFD_RELOC_8, . . {* PC-relative relocations *} . BFD_RELOC_64_PCREL, . BFD_RELOC_32_PCREL, . BFD_RELOC_24_PCREL, {* used by i960 *} . BFD_RELOC_16_PCREL, . BFD_RELOC_8_PCREL, . . {* Linkage-table relative *} . BFD_RELOC_32_BASEREL, . BFD_RELOC_16_BASEREL, . BFD_RELOC_8_BASEREL, . . {* The type of reloc used to build a contructor table - at the moment . probably a 32 bit wide abs address, but the cpu can choose. *} . BFD_RELOC_CTOR, . . {* 8 bits wide, but used to form an address like 0xffnn *} . BFD_RELOC_8_FFnn, . . {* 32-bit pc-relative, shifted right 2 bits (i.e., 30-bit . word displacement, e.g. for SPARC) *} . BFD_RELOC_32_PCREL_S2, . {* signed 16-bit pc-relative, shifted right 2 bits (e.g. for MIPS) *} . BFD_RELOC_16_PCREL_S2, . {* this is used on the Alpha *} . BFD_RELOC_23_PCREL_S2, . . {* High 22 bits of 32-bit value, placed into lower 22 bits of . target word; simple reloc. *} . BFD_RELOC_HI22, . {* Low 10 bits. *} . BFD_RELOC_LO10, . . {* For systems that allocate a Global Pointer register, these are . displacements off that register. These relocation types are . handled specially, because the value the register will have is . decided relatively late. *} . BFD_RELOC_GPREL16, . BFD_RELOC_GPREL32, . . {* Reloc types used for i960/b.out. *} . BFD_RELOC_I960_CALLJ, . . {* now for the sparc/elf codes *} . BFD_RELOC_NONE, {* actually used *} . BFD_RELOC_SPARC_WDISP22, . BFD_RELOC_SPARC22, . BFD_RELOC_SPARC13, . BFD_RELOC_SPARC_GOT10, . BFD_RELOC_SPARC_GOT13, . BFD_RELOC_SPARC_GOT22, . BFD_RELOC_SPARC_PC10, . BFD_RELOC_SPARC_PC22, . BFD_RELOC_SPARC_WPLT30, . BFD_RELOC_SPARC_COPY, . BFD_RELOC_SPARC_GLOB_DAT, . BFD_RELOC_SPARC_JMP_SLOT, . BFD_RELOC_SPARC_RELATIVE, . BFD_RELOC_SPARC_UA32, . . {* these are a.out specific? *} . BFD_RELOC_SPARC_BASE13, . BFD_RELOC_SPARC_BASE22, . . {* some relocations we're using for sparc v9 . -- subject to change *} . BFD_RELOC_SPARC_10, . BFD_RELOC_SPARC_11, .#define BFD_RELOC_SPARC_64 BFD_RELOC_64 . BFD_RELOC_SPARC_OLO10, . BFD_RELOC_SPARC_HH22, . BFD_RELOC_SPARC_HM10, . BFD_RELOC_SPARC_LM22, . BFD_RELOC_SPARC_PC_HH22, . BFD_RELOC_SPARC_PC_HM10, . BFD_RELOC_SPARC_PC_LM22, . BFD_RELOC_SPARC_WDISP16, . BFD_RELOC_SPARC_WDISP19, . BFD_RELOC_SPARC_GLOB_JMP, . BFD_RELOC_SPARC_LO7, . . {* Alpha ECOFF relocations. Some of these treat the symbol or "addend" . in some special way. *} . {* For GPDISP_HI16 ("gpdisp") relocations, the symbol is ignored when . writing; when reading, it will be the absolute section symbol. The . addend is the displacement in bytes of the "lda" instruction from . the "ldah" instruction (which is at the address of this reloc). *} . BFD_RELOC_ALPHA_GPDISP_HI16, . {* For GPDISP_LO16 ("ignore") relocations, the symbol is handled as . with GPDISP_HI16 relocs. The addend is ignored when writing the . relocations out, and is filled in with the file's GP value on . reading, for convenience. *} . BFD_RELOC_ALPHA_GPDISP_LO16, . . {* The Alpha LITERAL/LITUSE relocs are produced by a symbol reference; . the assembler turns it into a LDQ instruction to load the address of . the symbol, and then fills in a register in the real instruction. . . The LITERAL reloc, at the LDQ instruction, refers to the .lita . section symbol. The addend is ignored when writing, but is filled . in with the file's GP value on reading, for convenience, as with the . GPDISP_LO16 reloc. . . The LITUSE reloc, on the instruction using the loaded address, gives . information to the linker that it might be able to use to optimize . away some literal section references. The symbol is ignored (read . as the absolute section symbol), and the "addend" indicates the type . of instruction using the register: . 1 - "memory" fmt insn . 2 - byte-manipulation (byte offset reg) . 3 - jsr (target of branch) . . The GNU linker currently doesn't do any of this optimizing. *} . BFD_RELOC_ALPHA_LITERAL, . BFD_RELOC_ALPHA_LITUSE, . . {* The HINT relocation indicates a value that should be filled into the . "hint" field of a jmp/jsr/ret instruction, for possible branch- . prediction logic which may be provided on some processors. *} . BFD_RELOC_ALPHA_HINT, . . {* Bits 27..2 of the relocation address shifted right 2 bits; . simple reloc otherwise. *} . BFD_RELOC_MIPS_JMP, . . {* High 16 bits of 32-bit value; simple reloc. *} . BFD_RELOC_HI16, . {* High 16 bits of 32-bit value but the low 16 bits will be sign . extended and added to form the final result. If the low 16 . bits form a negative number, we need to add one to the high value . to compensate for the borrow when the low bits are added. *} . BFD_RELOC_HI16_S, . {* Low 16 bits. *} . BFD_RELOC_LO16, . {* Like BFD_RELOC_HI16_S, but PC relative. *} . BFD_RELOC_PCREL_HI16_S, . {* Like BFD_RELOC_LO16, but PC relative. *} . BFD_RELOC_PCREL_LO16, . . {* relocation relative to the global pointer. *} .#define BFD_RELOC_MIPS_GPREL BFD_RELOC_GPREL16 . . {* Relocation against a MIPS literal section. *} . BFD_RELOC_MIPS_LITERAL, . . {* MIPS ELF relocations. *} . BFD_RELOC_MIPS_GOT16, . BFD_RELOC_MIPS_CALL16, .#define BFD_RELOC_MIPS_GPREL32 BFD_RELOC_GPREL32 . . {* i386/elf relocations *} . BFD_RELOC_386_GOT32, . BFD_RELOC_386_PLT32, . BFD_RELOC_386_COPY, . BFD_RELOC_386_GLOB_DAT, . BFD_RELOC_386_JUMP_SLOT, . BFD_RELOC_386_RELATIVE, . BFD_RELOC_386_GOTOFF, . BFD_RELOC_386_GOTPC, . . {* ns32k relocations *} . BFD_RELOC_NS32K_IMM_8, . BFD_RELOC_NS32K_IMM_16, . BFD_RELOC_NS32K_IMM_32, . BFD_RELOC_NS32K_IMM_8_PCREL, . BFD_RELOC_NS32K_IMM_16_PCREL, . BFD_RELOC_NS32K_IMM_32_PCREL, . BFD_RELOC_NS32K_DISP_8, . BFD_RELOC_NS32K_DISP_16, . BFD_RELOC_NS32K_DISP_32, . BFD_RELOC_NS32K_DISP_8_PCREL, . BFD_RELOC_NS32K_DISP_16_PCREL, . BFD_RELOC_NS32K_DISP_32_PCREL, . . {* PowerPC/POWER (RS/6000) relocs. *} . {* 26 bit relative branch. Low two bits must be zero. High 24 . bits installed in bits 6 through 29 of instruction. *} . BFD_RELOC_PPC_B26, . {* 26 bit absolute branch, like BFD_RELOC_PPC_B26 but absolute. *} . BFD_RELOC_PPC_BA26, . {* 16 bit TOC relative reference. *} . BFD_RELOC_PPC_TOC16, . . {* this must be the highest numeric value *} . BFD_RELOC_UNUSED . } bfd_reloc_code_real_type; */ /* FUNCTION bfd_reloc_type_lookup SYNOPSIS const struct reloc_howto_struct * bfd_reloc_type_lookup (bfd *abfd, bfd_reloc_code_real_type code); DESCRIPTION Return a pointer to a howto structure which, when invoked, will perform the relocation @var{code} on data from the architecture noted. */ const struct reloc_howto_struct * bfd_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { return BFD_SEND (abfd, reloc_type_lookup, (abfd, code)); } static reloc_howto_type bfd_howto_32 = HOWTO (0, 00, 2, 32, false, 0, complain_overflow_bitfield, 0, "VRT32", false, 0xffffffff, 0xffffffff, true); /* INTERNAL_FUNCTION bfd_default_reloc_type_lookup SYNOPSIS const struct reloc_howto_struct *bfd_default_reloc_type_lookup (bfd *abfd, bfd_reloc_code_real_type code); DESCRIPTION Provides a default relocation lookup routine for any architecture. */ const struct reloc_howto_struct * bfd_default_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { switch (code) { case BFD_RELOC_CTOR: /* The type of reloc used in a ctor, which will be as wide as the address - so either a 64, 32, or 16 bitter. */ switch (bfd_get_arch_info (abfd)->bits_per_address) { case 64: BFD_FAIL (); case 32: return &bfd_howto_32; case 16: BFD_FAIL (); default: BFD_FAIL (); } default: BFD_FAIL (); } return (const struct reloc_howto_struct *) NULL; } /* INTERNAL_FUNCTION bfd_generic_relax_section SYNOPSIS boolean bfd_generic_relax_section (bfd *abfd, asection *section, struct bfd_link_info *, boolean *); DESCRIPTION Provides default handling for relaxing for back ends which don't do relaxing -- i.e., does nothing. */ /*ARGSUSED*/ boolean bfd_generic_relax_section (abfd, section, link_info, again) bfd *abfd; asection *section; struct bfd_link_info *link_info; boolean *again; { *again = false; return true; } /* INTERNAL_FUNCTION bfd_generic_get_relocated_section_contents SYNOPSIS bfd_byte * bfd_generic_get_relocated_section_contents (bfd *abfd, struct bfd_link_info *link_info, struct bfd_link_order *link_order, bfd_byte *data, boolean relocateable, asymbol **symbols); DESCRIPTION Provides default handling of relocation effort for back ends which can't be bothered to do it efficiently. */ bfd_byte * bfd_generic_get_relocated_section_contents (abfd, link_info, link_order, data, relocateable, symbols) bfd *abfd; struct bfd_link_info *link_info; struct bfd_link_order *link_order; bfd_byte *data; boolean relocateable; asymbol **symbols; { /* Get enough memory to hold the stuff */ bfd *input_bfd = link_order->u.indirect.section->owner; asection *input_section = link_order->u.indirect.section; long reloc_size = bfd_get_reloc_upper_bound (input_bfd, input_section); arelent **reloc_vector = NULL; long reloc_count; if (reloc_size < 0) goto error_return; reloc_vector = (arelent **) malloc (reloc_size); if (reloc_vector == NULL && reloc_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* read in the section */ if (!bfd_get_section_contents (input_bfd, input_section, (PTR) data, 0, input_section->_raw_size)) goto error_return; /* We're not relaxing the section, so just copy the size info */ input_section->_cooked_size = input_section->_raw_size; input_section->reloc_done = true; reloc_count = bfd_canonicalize_reloc (input_bfd, input_section, reloc_vector, symbols); if (reloc_count < 0) goto error_return; if (reloc_count > 0) { arelent **parent; for (parent = reloc_vector; *parent != (arelent *) NULL; parent++) { char *error_message = (char *) NULL; bfd_reloc_status_type r = bfd_perform_relocation (input_bfd, *parent, (PTR) data, input_section, relocateable ? abfd : (bfd *) NULL, &error_message); if (relocateable) { asection *os = input_section->output_section; /* A partial link, so keep the relocs */ os->orelocation[os->reloc_count] = *parent; os->reloc_count++; } if (r != bfd_reloc_ok) { switch (r) { case bfd_reloc_undefined: if (!((*link_info->callbacks->undefined_symbol) (link_info, bfd_asymbol_name (*(*parent)->sym_ptr_ptr), input_bfd, input_section, (*parent)->address))) goto error_return; break; case bfd_reloc_dangerous: BFD_ASSERT (error_message != (char *) NULL); if (!((*link_info->callbacks->reloc_dangerous) (link_info, error_message, input_bfd, input_section, (*parent)->address))) goto error_return; break; case bfd_reloc_overflow: if (!((*link_info->callbacks->reloc_overflow) (link_info, bfd_asymbol_name (*(*parent)->sym_ptr_ptr), (*parent)->howto->name, (*parent)->addend, input_bfd, input_section, (*parent)->address))) goto error_return; break; case bfd_reloc_outofrange: default: abort (); break; } } } } if (reloc_vector != NULL) free (reloc_vector); return data; error_return: if (reloc_vector != NULL) free (reloc_vector); return NULL; } gdb-4.13/bfd/reloc16.c 666 34562 1752 16405 5601614644 12743 0ustar fnfcygnus/* 8 and 16 bit COFF relocation functions, for BFD. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Most of this hacked by Steve Chamberlain, sac@cygnus.com */ /* These routines are used by coff-h8300 and coff-z8k to do relocation. */ #include "bfd.h" #include "sysdep.h" #include "obstack.h" #include "libbfd.h" #include "bfdlink.h" #include "genlink.h" #include "coff/internal.h" #include "libcoff.h" bfd_vma bfd_coff_reloc16_get_value (reloc, link_info, input_section) arelent *reloc; struct bfd_link_info *link_info; asection *input_section; { bfd_vma value; asymbol *symbol = *(reloc->sym_ptr_ptr); /* A symbol holds a pointer to a section, and an offset from the base of the section. To relocate, we find where the section will live in the output and add that in */ if (bfd_is_und_section (symbol->section)) { struct bfd_link_hash_entry *h; /* The symbol is undefined in this BFD. Look it up in the global linker hash table. FIXME: This should be changed when we convert this stuff to use a specific final_link function and change the interface to bfd_relax_section to not require the generic symbols. */ h = bfd_link_hash_lookup (link_info->hash, bfd_asymbol_name (symbol), false, false, true); if (h != (struct bfd_link_hash_entry *) NULL && h->type == bfd_link_hash_defined) value = (h->u.def.value + h->u.def.section->output_section->vma + h->u.def.section->output_offset); else if (h != (struct bfd_link_hash_entry *) NULL && h->type == bfd_link_hash_common) value = h->u.c.size; else { if (! ((*link_info->callbacks->undefined_symbol) (link_info, bfd_asymbol_name (symbol), input_section->owner, input_section, reloc->address))) abort (); value = 0; } } else { value = symbol->value + symbol->section->output_offset + symbol->section->output_section->vma; } /* Add the value contained in the relocation */ value += reloc->addend; return value; } void bfd_perform_slip(abfd, slip, input_section, value) bfd *abfd; unsigned int slip; asection *input_section; bfd_vma value; { asymbol **s; s = _bfd_generic_link_get_symbols (abfd); BFD_ASSERT (s != (asymbol **) NULL); /* Find all symbols past this point, and make them know what's happened */ while (*s) { asymbol *p = *s; if (p->section == input_section) { /* This was pointing into this section, so mangle it */ if (p->value > value) { p->value -= slip; if (p->udata != NULL) { struct generic_link_hash_entry *h; h = (struct generic_link_hash_entry *) p->udata; BFD_ASSERT (h->root.type == bfd_link_hash_defined); h->root.u.def.value -= slip; BFD_ASSERT (h->root.u.def.value == p->value); } } } s++; } } boolean bfd_coff_reloc16_relax_section (abfd, i, link_info, again) bfd *abfd; asection *i; struct bfd_link_info *link_info; boolean *again; { /* Get enough memory to hold the stuff */ bfd *input_bfd = i->owner; asection *input_section = i; int shrink = 0 ; long reloc_size = bfd_get_reloc_upper_bound (input_bfd, input_section); arelent **reloc_vector = NULL; long reloc_count; /* We only run this relaxation once. It might work to run it more often, but it hasn't been tested. */ *again = false; if (reloc_size < 0) return false; reloc_vector = (arelent **) malloc (reloc_size); if (!reloc_vector && reloc_size > 0) { bfd_set_error (bfd_error_no_memory); return false; } /* Get the relocs and think about them */ reloc_count = bfd_canonicalize_reloc (input_bfd, input_section, reloc_vector, _bfd_generic_link_get_symbols (input_bfd)); if (reloc_count < 0) { free (reloc_vector); return false; } if (reloc_count > 0) { arelent **parent; for (parent = reloc_vector; *parent; parent++) { shrink = bfd_coff_reloc16_estimate (abfd, input_section, *parent, shrink, link_info); } } input_section->_cooked_size -= shrink; free((char *)reloc_vector); return true; } bfd_byte * bfd_coff_reloc16_get_relocated_section_contents(in_abfd, link_info, link_order, data, relocateable, symbols) bfd *in_abfd; struct bfd_link_info *link_info; struct bfd_link_order *link_order; bfd_byte *data; boolean relocateable; asymbol **symbols; { /* Get enough memory to hold the stuff */ bfd *input_bfd = link_order->u.indirect.section->owner; asection *input_section = link_order->u.indirect.section; long reloc_size = bfd_get_reloc_upper_bound (input_bfd, input_section); arelent **reloc_vector; long reloc_count; if (reloc_size < 0) return NULL; /* If producing relocateable output, don't bother to relax. */ if (relocateable) return bfd_generic_get_relocated_section_contents (in_abfd, link_info, link_order, data, relocateable, symbols); /* read in the section */ if (! bfd_get_section_contents(input_bfd, input_section, data, 0, input_section->_raw_size)) return NULL; reloc_vector = (arelent **)malloc((size_t) reloc_size); if (!reloc_vector && reloc_size != 0) { bfd_set_error (bfd_error_no_memory); return NULL; } reloc_count = bfd_canonicalize_reloc (input_bfd, input_section, reloc_vector, symbols); if (reloc_count < 0) { free (reloc_vector); return NULL; } if (reloc_count > 0) { arelent **parent = reloc_vector; arelent *reloc ; unsigned int dst_address = 0; unsigned int src_address = 0; unsigned int run; unsigned int idx; /* Find how long a run we can do */ while (dst_address < link_order->size) { reloc = *parent; if (reloc) { /* Note that the relaxing didn't tie up the addresses in the relocation, so we use the original address to work out the run of non-relocated data */ run = reloc->address - src_address; parent++; } else { run = link_order->size - dst_address; } /* Copy the bytes */ for (idx = 0; idx < run; idx++) { data[dst_address++] = data[src_address++]; } /* Now do the relocation */ if (reloc) { bfd_coff_reloc16_extra_cases (in_abfd, link_info, link_order, reloc, data, &src_address, &dst_address); } } } free((char *)reloc_vector); return data; } gdb-4.13/bfd/rs6000-core.c 666 34562 1752 30551 5610565622 13347 0ustar fnfcygnus/* IBM RS/6000 "XCOFF" back-end for BFD. Copyright (C) 1990, 1991 Free Software Foundation, Inc. FIXME: Can someone provide a transliteration of this name into ASCII? Using the following chars caused a compiler warning on HIUX (so I replaced them with octal escapes), and isn't useful without an understanding of what character set it is. Written by Metin G. Ozisik, Mimi Ph\373\364ng-Th\345o V\365, and John Gilmore. Archive support from Damon A. Permezel. Contributed by IBM Corporation and Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This port currently only handles reading object files, except when compiled on an RS/6000 host. -- no archive support, no core files. In all cases, it does not support writing. FIXMEmgo comments are left from Metin Ozisik's original port. This is in a separate file from coff-rs6000.c, because it includes system include files that conflict with coff/rs6000.h. */ /* Internalcoff.h and coffcode.h modify themselves based on this flag. */ #define RS6000COFF_C 1 #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #ifdef HOST_AIX /* AOUTHDR is defined by the above. We need another defn of it, from the system include files. Punt the old one and get us a new name for the typedef in the system include files. */ #ifdef AOUTHDR #undef AOUTHDR #endif #define AOUTHDR second_AOUTHDR #undef SCNHDR /* ------------------------------------------------------------------------ */ /* Support for core file stuff.. */ /* ------------------------------------------------------------------------ */ #include #include #include /* Number of special purpose registers supported by gdb. This value should match `tm.h' in gdb directory. Clean this mess up and use the macros in sys/reg.h. FIXMEmgo. */ #define NUM_OF_SPEC_REGS 7 #define STACK_END_ADDR 0x2ff80000 #define core_hdr(bfd) (((Rs6kCorData*)(bfd->tdata.any))->hdr) #define core_datasec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->data_section) #define core_stacksec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->stack_section) #define core_regsec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->reg_section) #define core_reg2sec(bfd) (((Rs6kCorData*)(bfd->tdata.any))->reg2_section) /* These are stored in the bfd's tdata */ typedef struct { struct core *hdr; /* core file header */ asection *data_section, *stack_section, *reg_section, /* section for GPRs and special registers. */ *reg2_section; /* section for FPRs. */ /* This tells us where everything is mapped (shared libraries and so on). GDB needs it. */ asection *ldinfo_section; #define core_ldinfosec(bfd) (((Rs6kCorData *)(bfd->tdata.any))->ldinfo_section) } Rs6kCorData; /* Decide if a given bfd represents a `core' file or not. There really is no magic number or anything like, in rs6000coff. */ const bfd_target * rs6000coff_core_p (abfd) bfd *abfd; { int fd; struct core_dump coredata; struct stat statbuf; char *tmpptr; /* Use bfd_xxx routines, rather than O/S primitives to read coredata. FIXMEmgo */ fd = open (abfd->filename, O_RDONLY); if (fd < 0) { bfd_set_error (bfd_error_system_call); return NULL; } if (fstat (fd, &statbuf) < 0) { bfd_set_error (bfd_error_system_call); close (fd); return NULL; } if (read (fd, &coredata, sizeof (struct core_dump)) != sizeof (struct core_dump)) { bfd_set_error (bfd_error_wrong_format); close (fd); return NULL; } if (close (fd) < 0) { bfd_set_error (bfd_error_system_call); return NULL; } /* If the core file ulimit is too small, the system will first omit the data segment, then omit the stack, then decline to dump core altogether (as far as I know UBLOCK_VALID and LE_VALID are always set) (this is based on experimentation on AIX 3.2). Now, the thing is that GDB users will be surprised if segments just silently don't appear (well, maybe they would think to check "info files", I don't know), but we have no way of returning warnings (as opposed to errors). For the data segment, we have no choice but to keep going if it's not there, since the default behavior is not to dump it (regardless of the ulimit, it's based on SA_FULLDUMP). But for the stack segment, if it's not there, we refuse to have anything to do with this core file. The usefulness of a core dump without a stack segment is pretty limited anyway. */ if (!(coredata.c_flag & UBLOCK_VALID) || !(coredata.c_flag & LE_VALID)) { bfd_set_error (bfd_error_wrong_format); return NULL; } if ((coredata.c_flag & CORE_TRUNC) || !(coredata.c_flag & USTACK_VALID)) { bfd_set_error (bfd_error_file_truncated); return NULL; } if (((bfd_vma)coredata.c_stack + coredata.c_size + ((coredata.c_flag & FULL_CORE) ? coredata.c_u.u_dsize : 0)) != statbuf.st_size) { /* If the size is wrong, it means we're misinterpreting something. */ bfd_set_error (bfd_error_wrong_format); return NULL; } /* Sanity check on the c_tab field. */ if ((u_long) coredata.c_tab < sizeof coredata || (u_long) coredata.c_tab >= statbuf.st_size || (long) coredata.c_tab >= (long)coredata.c_stack) { bfd_set_error (bfd_error_wrong_format); return NULL; } /* maybe you should alloc space for the whole core chunk over here!! FIXMEmgo */ tmpptr = (char*)bfd_zalloc (abfd, sizeof (Rs6kCorData)); if (!tmpptr) { bfd_set_error (bfd_error_no_memory); return NULL; } set_tdata (abfd, tmpptr); /* .stack section. */ if ((core_stacksec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection))) == NULL) { bfd_set_error (bfd_error_no_memory); /* bfd_release (abfd, ???? ) */ return NULL; } core_stacksec (abfd)->name = ".stack"; core_stacksec (abfd)->flags = SEC_ALLOC + SEC_LOAD; core_stacksec (abfd)->_raw_size = coredata.c_size; core_stacksec (abfd)->vma = STACK_END_ADDR - coredata.c_size; core_stacksec (abfd)->filepos = (int)coredata.c_stack; /*???? */ /* .reg section for GPRs and special registers. */ if ((core_regsec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection))) == NULL) { bfd_set_error (bfd_error_no_memory); /* bfd_release (abfd, ???? ) */ return NULL; } core_regsec (abfd)->name = ".reg"; core_regsec (abfd)->flags = SEC_HAS_CONTENTS; core_regsec (abfd)->_raw_size = (32 + NUM_OF_SPEC_REGS) * 4; core_regsec (abfd)->vma = 0; /* not used?? */ core_regsec (abfd)->filepos = (char*)&coredata.c_u.u_save - (char*)&coredata; /* .reg2 section for FPRs (floating point registers). */ if ((core_reg2sec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection))) == NULL) { bfd_set_error (bfd_error_no_memory); /* bfd_release (abfd, ???? ) */ return NULL; } core_reg2sec (abfd)->name = ".reg2"; core_reg2sec (abfd)->flags = SEC_HAS_CONTENTS; core_reg2sec (abfd)->_raw_size = 8 * 32; /* 32 FPRs. */ core_reg2sec (abfd)->vma = 0; /* not used?? */ core_reg2sec (abfd)->filepos = (char*)&coredata.c_u.u_save.fpr[0] - (char*)&coredata; if ((core_ldinfosec (abfd) = (asection*) bfd_zalloc (abfd, sizeof (asection))) == NULL) { bfd_set_error (bfd_error_no_memory); /* bfd_release (abfd, ???? ) */ return NULL; } core_ldinfosec (abfd)->name = ".ldinfo"; core_ldinfosec (abfd)->flags = SEC_ALLOC + SEC_LOAD; /* To actually find out how long this section is in this particular core dump would require going down the whole list of struct ld_info's. See if we can just fake it. */ core_ldinfosec (abfd)->_raw_size = 0x7fffffff; /* Not relevant for ldinfo section. */ core_ldinfosec (abfd)->vma = 0; core_ldinfosec (abfd)->filepos = coredata.c_tab; /* set up section chain here. */ abfd->section_count = 4; abfd->sections = core_stacksec (abfd); core_stacksec (abfd)->next = core_regsec(abfd); core_regsec (abfd)->next = core_reg2sec (abfd); core_reg2sec (abfd)->next = core_ldinfosec (abfd); core_ldinfosec (abfd)->next = NULL; if (coredata.c_flag & FULL_CORE) { asection *sec = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (sec == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } sec->name = ".data"; sec->flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS; sec->_raw_size = coredata.c_u.u_dsize; sec->vma = CDATA_ADDR (coredata.c_u.u_dsize); sec->filepos = (int)coredata.c_stack + coredata.c_size; sec->next = abfd->sections; abfd->sections = sec; ++abfd->section_count; } return abfd->xvec; /* this is garbage for now. */ } /* return `true' if given core is from the given executable.. */ boolean rs6000coff_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd; bfd *exec_bfd; { FILE *fd; struct core_dump coredata; struct ld_info ldinfo; char pathname [1024]; char *str1, *str2; /* Use bfd_xxx routines, rather than O/S primitives, do error checking!! FIXMEmgo */ /* Actually should be able to use bfd_get_section_contents now that we have a .ldinfo section. */ fd = fopen (core_bfd->filename, FOPEN_RB); fread (&coredata, sizeof (struct core_dump), 1, fd); fseek (fd, (long)coredata.c_tab, 0); fread (&ldinfo, (char*)&ldinfo.ldinfo_filename[0] - (char*)&ldinfo.ldinfo_next, 1, fd); fscanf (fd, "%s", pathname); str1 = strrchr (pathname, '/'); str2 = strrchr (exec_bfd->filename, '/'); /* step over character '/' */ str1 = str1 ? str1+1 : &pathname[0]; str2 = str2 ? str2+1 : exec_bfd->filename; fclose (fd); return strcmp (str1, str2) == 0; } boolean rs6000coff_get_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; int count; { if (count == 0) return true; /* Reading a core file's sections will be slightly different. For the rest of them we can use bfd_generic_get_section_contents () I suppose. */ /* Make sure this routine works for any bfd and any section. FIXMEmgo. */ if (abfd->format == bfd_core && strcmp (section->name, ".reg") == 0) { struct mstsave mstatus; int regoffset = (char*)&mstatus.gpr[0] - (char*)&mstatus; /* Assert that the only way this code will be executed is reading the whole section. */ if (offset || count != (sizeof(mstatus.gpr) + (4 * NUM_OF_SPEC_REGS))) fprintf (stderr, "ERROR! in rs6000coff_get_section_contents()\n"); /* for `.reg' section, `filepos' is a pointer to the `mstsave' structure in the core file. */ /* read GPR's into the location. */ if ( bfd_seek(abfd, section->filepos + regoffset, SEEK_SET) == -1 || bfd_read(location, sizeof (mstatus.gpr), 1, abfd) != sizeof (mstatus.gpr)) return (false); /* on error */ /* increment location to the beginning of special registers in the section, reset register offset value to the beginning of first special register in mstsave structure, and read special registers. */ location = (PTR) ((char*)location + sizeof (mstatus.gpr)); regoffset = (char*)&mstatus.iar - (char*)&mstatus; if ( bfd_seek(abfd, section->filepos + regoffset, SEEK_SET) == -1 || bfd_read(location, 4 * NUM_OF_SPEC_REGS, 1, abfd) != 4 * NUM_OF_SPEC_REGS) return (false); /* on error */ /* increment location address, and read the special registers.. */ /* FIXMEmgo */ return (true); } /* else, use default bfd section content transfer. */ else return _bfd_generic_get_section_contents (abfd, section, location, offset, count); } #endif /* HOST_AIX */ gdb-4.13/bfd/section.c 666 34562 1752 67513 5610357753 13147 0ustar fnfcygnus/* Object file "section" support for the BFD library. Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION Sections The raw data contained within a BFD is maintained through the section abstraction. A single BFD may have any number of sections. It keeps hold of them by pointing to the first; each one points to the next in the list. Sections are supported in BFD in <>. @menu @* Section Input:: @* Section Output:: @* typedef asection:: @* section prototypes:: @end menu INODE Section Input, Section Output, Sections, Sections SUBSECTION Section input When a BFD is opened for reading, the section structures are created and attached to the BFD. Each section has a name which describes the section in the outside world---for example, <> would contain at least three sections, called <<.text>>, <<.data>> and <<.bss>>. Names need not be unique; for example a COFF file may have several sections named <<.data>>. Sometimes a BFD will contain more than the ``natural'' number of sections. A back end may attach other sections containing constructor data, or an application may add a section (using <>) to the sections attached to an already open BFD. For example, the linker creates an extra section <> for each input file's BFD to hold information about common storage. The raw data is not necessarily read in when the section descriptor is created. Some targets may leave the data in place until a <> call is made. Other back ends may read in all the data at once. For example, an S-record file has to be read once to determine the size of the data. An IEEE-695 file doesn't contain raw data in sections, but data and relocation expressions intermixed, so the data area has to be parsed to get out the data and relocations. INODE Section Output, typedef asection, Section Input, Sections SUBSECTION Section output To write a new object style BFD, the various sections to be written have to be created. They are attached to the BFD in the same way as input sections; data is written to the sections using <>. Any program that creates or combines sections (e.g., the assembler and linker) must use the <> fields <> and <> to indicate the file sections to which each section must be written. (If the section is being created from scratch, <> should probably point to the section itself and <> should probably be zero.) The data to be written comes from input sections attached (via <> pointers) to the output sections. The output section structure can be considered a filter for the input section: the output section determines the vma of the output data and the name, but the input section determines the offset into the output section of the data to be written. E.g., to create a section "O", starting at 0x100, 0x123 long, containing two subsections, "A" at offset 0x0 (i.e., at vma 0x100) and "B" at offset 0x20 (i.e., at vma 0x120) the <> structures would look like: | section name "A" | output_offset 0x00 | size 0x20 | output_section -----------> section name "O" | | vma 0x100 | section name "B" | size 0x123 | output_offset 0x20 | | size 0x103 | | output_section --------| SUBSECTION Link orders The data within a section is stored in a @dfn{link_order}. These are much like the fixups in <>. The link_order abstraction allows a section to grow and shrink within itself. A link_order knows how big it is, and which is the next link_order and where the raw data for it is; it also points to a list of relocations which apply to it. The link_order is used by the linker to perform relaxing on final code. The compiler creates code which is as big as necessary to make it work without relaxing, and the user can select whether to relax. Sometimes relaxing takes a lot of time. The linker runs around the relocations to see if any are attached to data which can be shrunk, if so it does it on a link_order by link_order basis. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" /* DOCDD INODE typedef asection, section prototypes, Section Output, Sections SUBSECTION typedef asection Here is the section structure: CODE_FRAGMENT . .typedef struct sec .{ . {* The name of the section; the name isn't a copy, the pointer is . the same as that passed to bfd_make_section. *} . . CONST char *name; . . {* Which section is it; 0..nth. *} . . int index; . . {* The next section in the list belonging to the BFD, or NULL. *} . . struct sec *next; . . {* The field flags contains attributes of the section. Some . flags are read in from the object file, and some are . synthesized from other information. *} . . flagword flags; . .#define SEC_NO_FLAGS 0x000 . . {* Tells the OS to allocate space for this section when loading. . This is clear for a section containing debug information . only. *} .#define SEC_ALLOC 0x001 . . {* Tells the OS to load the section from the file when loading. . This is clear for a .bss section. *} .#define SEC_LOAD 0x002 . . {* The section contains data still to be relocated, so there is . some relocation information too. *} .#define SEC_RELOC 0x004 . .#if 0 {* Obsolete ? *} .#define SEC_BALIGN 0x008 .#endif . . {* A signal to the OS that the section contains read only . data. *} .#define SEC_READONLY 0x010 . . {* The section contains code only. *} .#define SEC_CODE 0x020 . . {* The section contains data only. *} .#define SEC_DATA 0x040 . . {* The section will reside in ROM. *} .#define SEC_ROM 0x080 . . {* The section contains constructor information. This section . type is used by the linker to create lists of constructors and . destructors used by <>. When a back end sees a symbol . which should be used in a constructor list, it creates a new . section for the type of name (e.g., <<__CTOR_LIST__>>), attaches . the symbol to it, and builds a relocation. To build the lists . of constructors, all the linker has to do is catenate all the . sections called <<__CTOR_LIST__>> and relocate the data . contained within - exactly the operations it would peform on . standard data. *} .#define SEC_CONSTRUCTOR 0x100 . . {* The section is a constuctor, and should be placed at the . end of the text, data, or bss section(?). *} .#define SEC_CONSTRUCTOR_TEXT 0x1100 .#define SEC_CONSTRUCTOR_DATA 0x2100 .#define SEC_CONSTRUCTOR_BSS 0x3100 . . {* The section has contents - a data section could be . <> | <>; a debug section could be . <> *} .#define SEC_HAS_CONTENTS 0x200 . . {* An instruction to the linker to not output the section . even if it has information which would normally be written. *} .#define SEC_NEVER_LOAD 0x400 . . {* The section is a COFF shared library section. This flag is . only for the linker. If this type of section appears in . the input file, the linker must copy it to the output file . without changing the vma or size. FIXME: Although this . was originally intended to be general, it really is COFF . specific (and the flag was renamed to indicate this). It . might be cleaner to have some more general mechanism to . allow the back end to control what the linker does with . sections. *} .#define SEC_COFF_SHARED_LIBRARY 0x800 . . {* The section is a common section (symbols may be defined . multiple times, the value of a symbol is the amount of . space it requires, and the largest symbol value is the one . used). Most targets have exactly one of these (which we . translate to bfd_com_section_ptr), but ECOFF has two. *} .#define SEC_IS_COMMON 0x8000 . . {* The section contains only debugging information. For . example, this is set for ELF .debug and .stab sections. . strip tests this flag to see if a section can be . discarded. *} .#define SEC_DEBUGGING 0x10000 . . {* The contents of this section are held in memory pointed to . by the contents field. This is checked by . bfd_get_section_contents, and the data is retrieved from . memory if appropriate. *} .#define SEC_IN_MEMORY 0x20000 . . {* End of section flags. *} . . {* The virtual memory address of the section - where it will be . at run time. The symbols are relocated against this. The . user_set_vma flag is maintained by bfd; if it's not set, the . backend can assign addresses (for example, in <>, where . the default address for <<.data>> is dependent on the specific . target and various flags). *} . . bfd_vma vma; . boolean user_set_vma; . . {* The load address of the section - where it would be in a . rom image; really only used for writing section header . information. *} . . bfd_vma lma; . . {* The size of the section in bytes, as it will be output. . contains a value even if the section has no contents (e.g., the . size of <<.bss>>). This will be filled in after relocation *} . . bfd_size_type _cooked_size; . . {* The original size on disk of the section, in bytes. Normally this . value is the same as the size, but if some relaxing has . been done, then this value will be bigger. *} . . bfd_size_type _raw_size; . . {* If this section is going to be output, then this value is the . offset into the output section of the first byte in the input . section. E.g., if this was going to start at the 100th byte in . the output section, this value would be 100. *} . . bfd_vma output_offset; . . {* The output section through which to map on output. *} . . struct sec *output_section; . . {* The alignment requirement of the section, as an exponent of 2 - . e.g., 3 aligns to 2^3 (or 8). *} . . unsigned int alignment_power; . . {* If an input section, a pointer to a vector of relocation . records for the data in this section. *} . . struct reloc_cache_entry *relocation; . . {* If an output section, a pointer to a vector of pointers to . relocation records for the data in this section. *} . . struct reloc_cache_entry **orelocation; . . {* The number of relocation records in one of the above *} . . unsigned reloc_count; . . {* Information below is back end specific - and not always used . or updated. *} . . {* File position of section data *} . . file_ptr filepos; . . {* File position of relocation info *} . . file_ptr rel_filepos; . . {* File position of line data *} . . file_ptr line_filepos; . . {* Pointer to data for applications *} . . PTR userdata; . . {* If the SEC_IN_MEMORY flag is set, this points to the actual . contents. *} . unsigned char *contents; . . {* Attached line number information *} . . alent *lineno; . . {* Number of line number records *} . . unsigned int lineno_count; . . {* When a section is being output, this value changes as more . linenumbers are written out *} . . file_ptr moving_line_filepos; . . {* What the section number is in the target world *} . . int target_index; . . PTR used_by_bfd; . . {* If this is a constructor section then here is a list of the . relocations created to relocate items within it. *} . . struct relent_chain *constructor_chain; . . {* The BFD which owns the section. *} . . bfd *owner; . . boolean reloc_done; . {* A symbol which points at this section only *} . struct symbol_cache_entry *symbol; . struct symbol_cache_entry **symbol_ptr_ptr; . . struct bfd_link_order *link_order_head; . struct bfd_link_order *link_order_tail; .} asection ; . . {* These sections are global, and are managed by BFD. The application . and target back end are not permitted to change the values in . these sections. New code should use the section_ptr macros rather . than referring directly to the const sections. The const sections . may eventually vanish. *} .#define BFD_ABS_SECTION_NAME "*ABS*" .#define BFD_UND_SECTION_NAME "*UND*" .#define BFD_COM_SECTION_NAME "*COM*" .#define BFD_IND_SECTION_NAME "*IND*" . . {* the absolute section *} .extern const asection bfd_abs_section; .#define bfd_abs_section_ptr ((asection *) &bfd_abs_section) .#define bfd_is_abs_section(sec) ((sec) == bfd_abs_section_ptr) . {* Pointer to the undefined section *} .extern const asection bfd_und_section; .#define bfd_und_section_ptr ((asection *) &bfd_und_section) .#define bfd_is_und_section(sec) ((sec) == bfd_und_section_ptr) . {* Pointer to the common section *} .extern const asection bfd_com_section; .#define bfd_com_section_ptr ((asection *) &bfd_com_section) . {* Pointer to the indirect section *} .extern const asection bfd_ind_section; .#define bfd_ind_section_ptr ((asection *) &bfd_ind_section) .#define bfd_is_ind_section(sec) ((sec) == bfd_ind_section_ptr) . .extern const struct symbol_cache_entry * const bfd_abs_symbol; .extern const struct symbol_cache_entry * const bfd_com_symbol; .extern const struct symbol_cache_entry * const bfd_und_symbol; .extern const struct symbol_cache_entry * const bfd_ind_symbol; .#define bfd_get_section_size_before_reloc(section) \ . (section->reloc_done ? (abort(),1): (section)->_raw_size) .#define bfd_get_section_size_after_reloc(section) \ . ((section->reloc_done) ? (section)->_cooked_size: (abort(),1)) */ /* These symbols are global, not specific to any BFD. Therefore, anything that tries to change them is broken, and should be repaired. */ static const asymbol global_syms[] = { /* the_bfd, name, value, attr, section [, udata] */ {0, BFD_COM_SECTION_NAME, 0, BSF_SECTION_SYM, (asection *) &bfd_com_section}, {0, BFD_UND_SECTION_NAME, 0, BSF_SECTION_SYM, (asection *) &bfd_und_section}, {0, BFD_ABS_SECTION_NAME, 0, BSF_SECTION_SYM, (asection *) &bfd_abs_section}, {0, BFD_IND_SECTION_NAME, 0, BSF_SECTION_SYM, (asection *) &bfd_ind_section}, }; #define STD_SECTION(SEC, FLAGS, SYM, NAME, IDX) \ const asymbol * const SYM = (asymbol *) &global_syms[IDX]; \ const asection SEC = \ { NAME, 0, 0, FLAGS, 0, false, 0, 0, 0, 0, (asection *) &SEC, \ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (boolean) 0, \ (asymbol *) &global_syms[IDX], (asymbol **) &SYM, } STD_SECTION (bfd_com_section, SEC_IS_COMMON, bfd_com_symbol, BFD_COM_SECTION_NAME, 0); STD_SECTION (bfd_und_section, 0, bfd_und_symbol, BFD_UND_SECTION_NAME, 1); STD_SECTION (bfd_abs_section, 0, bfd_abs_symbol, BFD_ABS_SECTION_NAME, 2); STD_SECTION (bfd_ind_section, 0, bfd_ind_symbol, BFD_IND_SECTION_NAME, 3); #undef STD_SECTION /* DOCDD INODE section prototypes, , typedef asection, Sections SUBSECTION Section prototypes These are the functions exported by the section handling part of BFD. */ /* FUNCTION bfd_get_section_by_name SYNOPSIS asection *bfd_get_section_by_name(bfd *abfd, CONST char *name); DESCRIPTION Run through @var{abfd} and return the one of the <>s whose name matches @var{name}, otherwise <>. @xref{Sections}, for more information. This should only be used in special cases; the normal way to process all sections of a given name is to use <> and <> on the name (or better yet, base it on the section flags or something else) for each section. */ asection * bfd_get_section_by_name (abfd, name) bfd *abfd; CONST char *name; { asection *sect; for (sect = abfd->sections; sect != NULL; sect = sect->next) if (!strcmp (sect->name, name)) return sect; return NULL; } /* FUNCTION bfd_make_section_old_way SYNOPSIS asection *bfd_make_section_old_way(bfd *abfd, CONST char *name); DESCRIPTION Create a new empty section called @var{name} and attach it to the end of the chain of sections for the BFD @var{abfd}. An attempt to create a section with a name which is already in use returns its pointer without changing the section chain. It has the funny name since this is the way it used to be before it was rewritten.... Possible errors are: o <> - If output has already started for this BFD. o <> - If obstack alloc fails. */ asection * bfd_make_section_old_way (abfd, name) bfd *abfd; CONST char *name; { asection *sec = bfd_get_section_by_name (abfd, name); if (sec == (asection *) NULL) { sec = bfd_make_section (abfd, name); } return sec; } /* FUNCTION bfd_make_section_anyway SYNOPSIS asection *bfd_make_section_anyway(bfd *abfd, CONST char *name); DESCRIPTION Create a new empty section called @var{name} and attach it to the end of the chain of sections for @var{abfd}. Create a new section even if there is already a section with that name. Return <> and set <> on error; possible errors are: o <> - If output has already started for @var{abfd}. o <> - If obstack alloc fails. */ sec_ptr bfd_make_section_anyway (abfd, name) bfd *abfd; CONST char *name; { asection *newsect; asection **prev = &abfd->sections; asection *sect = abfd->sections; if (abfd->output_has_begun) { bfd_set_error (bfd_error_invalid_operation); return NULL; } while (sect) { prev = §->next; sect = sect->next; } newsect = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (newsect == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } newsect->name = name; newsect->index = abfd->section_count++; newsect->flags = SEC_NO_FLAGS; newsect->userdata = NULL; newsect->contents = NULL; newsect->next = (asection *) NULL; newsect->relocation = (arelent *) NULL; newsect->reloc_count = 0; newsect->line_filepos = 0; newsect->owner = abfd; /* Create a symbol whos only job is to point to this section. This is useful for things like relocs which are relative to the base of a section. */ newsect->symbol = bfd_make_empty_symbol (abfd); if (!newsect) return NULL; newsect->symbol->name = name; newsect->symbol->value = 0; newsect->symbol->section = newsect; newsect->symbol->flags = BSF_SECTION_SYM; newsect->symbol_ptr_ptr = &newsect->symbol; if (BFD_SEND (abfd, _new_section_hook, (abfd, newsect)) != true) { free (newsect); return NULL; } *prev = newsect; return newsect; } /* FUNCTION bfd_make_section SYNOPSIS asection *bfd_make_section(bfd *, CONST char *name); DESCRIPTION Like <>, but return <> (without calling bfd_set_error ()) without changing the section chain if there is already a section named @var{name}. If there is an error, return <> and set <>. */ asection * bfd_make_section (abfd, name) bfd *abfd; CONST char *name; { asection *sect = abfd->sections; if (strcmp (name, BFD_ABS_SECTION_NAME) == 0) { return bfd_abs_section_ptr; } if (strcmp (name, BFD_COM_SECTION_NAME) == 0) { return bfd_com_section_ptr; } if (strcmp (name, BFD_UND_SECTION_NAME) == 0) { return bfd_und_section_ptr; } if (strcmp (name, BFD_IND_SECTION_NAME) == 0) { return bfd_ind_section_ptr; } while (sect) { if (!strcmp (sect->name, name)) return NULL; sect = sect->next; } /* The name is not already used; go ahead and make a new section. */ return bfd_make_section_anyway (abfd, name); } /* FUNCTION bfd_set_section_flags SYNOPSIS boolean bfd_set_section_flags(bfd *abfd, asection *sec, flagword flags); DESCRIPTION Set the attributes of the section @var{sec} in the BFD @var{abfd} to the value @var{flags}. Return <> on success, <> on error. Possible error returns are: o <> - The section cannot have one or more of the attributes requested. For example, a .bss section in <> may not have the <> field set. */ /*ARGSUSED*/ boolean bfd_set_section_flags (abfd, section, flags) bfd *abfd; sec_ptr section; flagword flags; { #if 0 /* If you try to copy a text section from an input file (where it has the SEC_CODE flag set) to an output file, this loses big if the bfd_applicable_section_flags (abfd) doesn't have the SEC_CODE set - which it doesn't, at least not for a.out. FIXME */ if ((flags & bfd_applicable_section_flags (abfd)) != flags) { bfd_set_error (bfd_error_invalid_operation); return false; } #endif section->flags = flags; return true; } /* FUNCTION bfd_map_over_sections SYNOPSIS void bfd_map_over_sections(bfd *abfd, void (*func)(bfd *abfd, asection *sect, PTR obj), PTR obj); DESCRIPTION Call the provided function @var{func} for each section attached to the BFD @var{abfd}, passing @var{obj} as an argument. The function will be called as if by | func(abfd, the_section, obj); This is the prefered method for iterating over sections; an alternative would be to use a loop: | section *p; | for (p = abfd->sections; p != NULL; p = p->next) | func(abfd, p, ...) */ /*VARARGS2*/ void bfd_map_over_sections (abfd, operation, user_storage) bfd *abfd; void (*operation) PARAMS ((bfd * abfd, asection * sect, PTR obj)); PTR user_storage; { asection *sect; int i = 0; for (sect = abfd->sections; sect != NULL; i++, sect = sect->next) (*operation) (abfd, sect, user_storage); if (i != abfd->section_count) /* Debugging */ abort (); } /* FUNCTION bfd_set_section_size SYNOPSIS boolean bfd_set_section_size(bfd *abfd, asection *sec, bfd_size_type val); DESCRIPTION Set @var{sec} to the size @var{val}. If the operation is ok, then <> is returned, else <>. Possible error returns: o <> - Writing has started to the BFD, so setting the size is invalid. */ boolean bfd_set_section_size (abfd, ptr, val) bfd *abfd; sec_ptr ptr; bfd_size_type val; { /* Once you've started writing to any section you cannot create or change the size of any others. */ if (abfd->output_has_begun) { bfd_set_error (bfd_error_invalid_operation); return false; } ptr->_cooked_size = val; ptr->_raw_size = val; return true; } /* FUNCTION bfd_set_section_contents SYNOPSIS boolean bfd_set_section_contents (bfd *abfd, asection *section, PTR data, file_ptr offset, bfd_size_type count); DESCRIPTION Sets the contents of the section @var{section} in BFD @var{abfd} to the data starting in memory at @var{data}. The data is written to the output section starting at offset @var{offset} for @var{count} bytes. Normally <> is returned, else <>. Possible error returns are: o <> - The output section does not have the <> attribute, so nothing can be written to it. o and some more too This routine is front end to the back end function <<_bfd_set_section_contents>>. */ #define bfd_get_section_size_now(abfd,sec) \ (sec->reloc_done \ ? bfd_get_section_size_after_reloc (sec) \ : bfd_get_section_size_before_reloc (sec)) boolean bfd_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { bfd_size_type sz; if (!(bfd_get_section_flags (abfd, section) & SEC_HAS_CONTENTS)) { bfd_set_error (bfd_error_no_contents); return (false); } if (offset < 0) { bad_val: bfd_set_error (bfd_error_bad_value); return false; } sz = bfd_get_section_size_now (abfd, section); if (offset > sz || count > sz || offset + count > sz) goto bad_val; switch (abfd->direction) { case read_direction: case no_direction: bfd_set_error (bfd_error_invalid_operation); return false; case write_direction: break; case both_direction: /* File is opened for update. `output_has_begun' some time ago when the file was created. Do not recompute sections sizes or alignments in _bfd_set_section_content. */ abfd->output_has_begun = true; break; } if (BFD_SEND (abfd, _bfd_set_section_contents, (abfd, section, location, offset, count))) { abfd->output_has_begun = true; return true; } return false; } /* FUNCTION bfd_get_section_contents SYNOPSIS boolean bfd_get_section_contents (bfd *abfd, asection *section, PTR location, file_ptr offset, bfd_size_type count); DESCRIPTION Read data from @var{section} in BFD @var{abfd} into memory starting at @var{location}. The data is read at an offset of @var{offset} from the start of the input section, and is read for @var{count} bytes. If the contents of a constructor with the <> flag set are requested or if the section does not have the <> flag set, then the @var{location} is filled with zeroes. If no errors occur, <> is returned, else <>. */ boolean bfd_get_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { bfd_size_type sz; if (section->flags & SEC_CONSTRUCTOR) { memset (location, 0, (unsigned) count); return true; } if (offset < 0) { bad_val: bfd_set_error (bfd_error_bad_value); return false; } /* Even if reloc_done is true, this function reads unrelocated contents, so we want the raw size. */ sz = section->_raw_size; if (offset > sz || count > sz || offset + count > sz) goto bad_val; if (count == 0) /* Don't bother. */ return true; if ((section->flags & SEC_HAS_CONTENTS) == 0) { memset (location, 0, (unsigned) count); return true; } if ((section->flags & SEC_IN_MEMORY) != 0) { memcpy (location, section->contents + offset, count); return true; } return BFD_SEND (abfd, _bfd_get_section_contents, (abfd, section, location, offset, count)); } /* FUNCTION bfd_copy_private_section_data SYNOPSIS boolean bfd_copy_private_section_data(bfd *ibfd, asection *isec, bfd *obfd, asection *osec); DESCRIPTION Copy private section information from @var{isec} in the BFD @var{ibfd} to the section @var{osec} in the BFD @var{obfd}. Return <> on success, <> on error. Possible error returns are: o <> - Not enough memory exists to create private data for @var{osec}. .#define bfd_copy_private_section_data(ibfd, isection, obfd, osection) \ . BFD_SEND (ibfd, _bfd_copy_private_section_data, \ . (ibfd, isection, obfd, osection)) */ gdb-4.13/bfd/som.c 666 34562 1752 536477 5601614651 12324 0ustar fnfcygnus/* bfd back-end for HP PA-RISC SOM objects. Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #if defined (HOST_HPPAHPUX) || defined (HOST_HPPABSD) || defined (HOST_HPPAOSF) #include "libbfd.h" #include "som.h" #include #include #include #include #include #include #include /* Magic not defined in standard HP-UX header files until 8.0 */ #ifndef CPU_PA_RISC1_0 #define CPU_PA_RISC1_0 0x20B #endif /* CPU_PA_RISC1_0 */ #ifndef CPU_PA_RISC1_1 #define CPU_PA_RISC1_1 0x210 #endif /* CPU_PA_RISC1_1 */ #ifndef _PA_RISC1_0_ID #define _PA_RISC1_0_ID CPU_PA_RISC1_0 #endif /* _PA_RISC1_0_ID */ #ifndef _PA_RISC1_1_ID #define _PA_RISC1_1_ID CPU_PA_RISC1_1 #endif /* _PA_RISC1_1_ID */ #ifndef _PA_RISC_MAXID #define _PA_RISC_MAXID 0x2FF #endif /* _PA_RISC_MAXID */ #ifndef _PA_RISC_ID #define _PA_RISC_ID(__m_num) \ (((__m_num) == _PA_RISC1_0_ID) || \ ((__m_num) >= _PA_RISC1_1_ID && (__m_num) <= _PA_RISC_MAXID)) #endif /* _PA_RISC_ID */ /* HIUX in it's infinite stupidity changed the names for several "well known" constants. Work around such braindamage. Try the HPUX version first, then the HIUX version, and finally provide a default. */ #ifdef HPUX_AUX_ID #define EXEC_AUX_ID HPUX_AUX_ID #endif #if !defined (EXEC_AUX_ID) && defined (HIUX_AUX_ID) #define EXEC_AUX_ID HIUX_AUX_ID #endif #ifndef EXEC_AUX_ID #define EXEC_AUX_ID 0 #endif /* Size (in chars) of the temporary buffers used during fixup and string table writes. */ #define SOM_TMP_BUFSIZE 8192 /* Size of the hash table in archives. */ #define SOM_LST_HASH_SIZE 31 /* Max number of SOMs to be found in an archive. */ #define SOM_LST_MODULE_LIMIT 1024 /* Generic alignment macro. */ #define SOM_ALIGN(val, alignment) \ (((val) + (alignment) - 1) & ~((alignment) - 1)) /* SOM allows any one of the four previous relocations to be reused with a "R_PREV_FIXUP" relocation entry. Since R_PREV_FIXUP relocations are always a single byte, using a R_PREV_FIXUP instead of some multi-byte relocation makes object files smaller. Note one side effect of using a R_PREV_FIXUP is the relocation that is being repeated moves to the front of the queue. */ struct reloc_queue { unsigned char *reloc; unsigned int size; } reloc_queue[4]; /* This fully describes the symbol types which may be attached to an EXPORT or IMPORT directive. Only SOM uses this formation (ELF has no need for it). */ typedef enum { SYMBOL_TYPE_UNKNOWN, SYMBOL_TYPE_ABSOLUTE, SYMBOL_TYPE_CODE, SYMBOL_TYPE_DATA, SYMBOL_TYPE_ENTRY, SYMBOL_TYPE_MILLICODE, SYMBOL_TYPE_PLABEL, SYMBOL_TYPE_PRI_PROG, SYMBOL_TYPE_SEC_PROG, } pa_symbol_type; struct section_to_type { char *section; char type; }; /* Assorted symbol information that needs to be derived from the BFD symbol and/or the BFD backend private symbol data. */ struct som_misc_symbol_info { unsigned int symbol_type; unsigned int symbol_scope; unsigned int arg_reloc; unsigned int symbol_info; unsigned int symbol_value; }; /* Forward declarations */ static boolean som_mkobject PARAMS ((bfd *)); static const bfd_target * som_object_setup PARAMS ((bfd *, struct header *, struct som_exec_auxhdr *)); static boolean setup_sections PARAMS ((bfd *, struct header *)); static const bfd_target * som_object_p PARAMS ((bfd *)); static boolean som_write_object_contents PARAMS ((bfd *)); static boolean som_slurp_string_table PARAMS ((bfd *)); static unsigned int som_slurp_symbol_table PARAMS ((bfd *)); static long som_get_symtab_upper_bound PARAMS ((bfd *)); static long som_canonicalize_reloc PARAMS ((bfd *, sec_ptr, arelent **, asymbol **)); static long som_get_reloc_upper_bound PARAMS ((bfd *, sec_ptr)); static unsigned int som_set_reloc_info PARAMS ((unsigned char *, unsigned int, arelent *, asection *, asymbol **, boolean)); static boolean som_slurp_reloc_table PARAMS ((bfd *, asection *, asymbol **, boolean)); static long som_get_symtab PARAMS ((bfd *, asymbol **)); static asymbol * som_make_empty_symbol PARAMS ((bfd *)); static void som_print_symbol PARAMS ((bfd *, PTR, asymbol *, bfd_print_symbol_type)); static boolean som_new_section_hook PARAMS ((bfd *, asection *)); static boolean som_bfd_copy_private_section_data PARAMS ((bfd *, asection *, bfd *, asection *)); static boolean som_bfd_copy_private_bfd_data PARAMS ((bfd *, bfd *)); static boolean som_bfd_is_local_label PARAMS ((bfd *, asymbol *)); static boolean som_set_section_contents PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type)); static boolean som_get_section_contents PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type)); static boolean som_set_arch_mach PARAMS ((bfd *, enum bfd_architecture, unsigned long)); static boolean som_find_nearest_line PARAMS ((bfd *, asection *, asymbol **, bfd_vma, CONST char **, CONST char **, unsigned int *)); static void som_get_symbol_info PARAMS ((bfd *, asymbol *, symbol_info *)); static asection * bfd_section_from_som_symbol PARAMS ((bfd *, struct symbol_dictionary_record *)); static int log2 PARAMS ((unsigned int)); static bfd_reloc_status_type hppa_som_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); static void som_initialize_reloc_queue PARAMS ((struct reloc_queue *)); static void som_reloc_queue_insert PARAMS ((unsigned char *, unsigned int, struct reloc_queue *)); static void som_reloc_queue_fix PARAMS ((struct reloc_queue *, unsigned int)); static int som_reloc_queue_find PARAMS ((unsigned char *, unsigned int, struct reloc_queue *)); static unsigned char * try_prev_fixup PARAMS ((bfd *, int *, unsigned char *, unsigned int, struct reloc_queue *)); static unsigned char * som_reloc_skip PARAMS ((bfd *, unsigned int, unsigned char *, unsigned int *, struct reloc_queue *)); static unsigned char * som_reloc_addend PARAMS ((bfd *, int, unsigned char *, unsigned int *, struct reloc_queue *)); static unsigned char * som_reloc_call PARAMS ((bfd *, unsigned char *, unsigned int *, arelent *, int, struct reloc_queue *)); static unsigned long som_count_spaces PARAMS ((bfd *)); static unsigned long som_count_subspaces PARAMS ((bfd *)); static int compare_syms PARAMS ((const void *, const void *)); static unsigned long som_compute_checksum PARAMS ((bfd *)); static boolean som_prep_headers PARAMS ((bfd *)); static int som_sizeof_headers PARAMS ((bfd *, boolean)); static boolean som_write_headers PARAMS ((bfd *)); static boolean som_build_and_write_symbol_table PARAMS ((bfd *)); static void som_prep_for_fixups PARAMS ((bfd *, asymbol **, unsigned long)); static boolean som_write_fixups PARAMS ((bfd *, unsigned long, unsigned int *)); static boolean som_write_space_strings PARAMS ((bfd *, unsigned long, unsigned int *)); static boolean som_write_symbol_strings PARAMS ((bfd *, unsigned long, asymbol **, unsigned int, unsigned *)); static boolean som_begin_writing PARAMS ((bfd *)); static const reloc_howto_type * som_bfd_reloc_type_lookup PARAMS ((bfd *, bfd_reloc_code_real_type)); static char som_section_type PARAMS ((const char *)); static int som_decode_symclass PARAMS ((asymbol *)); static boolean som_bfd_count_ar_symbols PARAMS ((bfd *, struct lst_header *, symindex *)); static boolean som_bfd_fill_in_ar_symbols PARAMS ((bfd *, struct lst_header *, carsym **syms)); static boolean som_slurp_armap PARAMS ((bfd *)); static boolean som_write_armap PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int)); static void som_bfd_derive_misc_symbol_info PARAMS ((bfd *, asymbol *, struct som_misc_symbol_info *)); static boolean som_bfd_prep_for_ar_write PARAMS ((bfd *, unsigned int *, unsigned int *)); static unsigned int som_bfd_ar_symbol_hash PARAMS ((asymbol *)); static boolean som_bfd_ar_write_symbol_stuff PARAMS ((bfd *, unsigned int, unsigned int, struct lst_header)); static CONST char *normalize PARAMS ((CONST char *file)); static boolean som_is_space PARAMS ((asection *)); static boolean som_is_subspace PARAMS ((asection *)); static boolean som_is_container PARAMS ((asection *, asection *)); static boolean som_bfd_free_cached_info PARAMS ((bfd *)); /* Map SOM section names to POSIX/BSD single-character symbol types. This table includes all the standard subspaces as defined in the current "PRO ABI for PA-RISC Systems", $UNWIND$ which for some reason was left out, and sections specific to embedded stabs. */ static const struct section_to_type stt[] = { {"$TEXT$", 't'}, {"$SHLIB_INFO$", 't'}, {"$MILLICODE$", 't'}, {"$LIT$", 't'}, {"$CODE$", 't'}, {"$UNWIND_START$", 't'}, {"$UNWIND$", 't'}, {"$PRIVATE$", 'd'}, {"$PLT$", 'd'}, {"$SHLIB_DATA$", 'd'}, {"$DATA$", 'd'}, {"$SHORTDATA$", 'g'}, {"$DLT$", 'd'}, {"$GLOBAL$", 'g'}, {"$SHORTBSS$", 's'}, {"$BSS$", 'b'}, {"$GDB_STRINGS$", 'N'}, {"$GDB_SYMBOLS$", 'N'}, {0, 0} }; /* About the relocation formatting table... There are 256 entries in the table, one for each possible relocation opcode available in SOM. We index the table by the relocation opcode. The names and operations are those defined by a.out_800 (4). Right now this table is only used to count and perform minimal processing on relocation streams so that they can be internalized into BFD and symbolically printed by utilities. To make actual use of them would be much more difficult, BFD's concept of relocations is far too simple to handle SOM relocations. The basic assumption that a relocation can be completely processed independent of other relocations before an object file is written is invalid for SOM. The SOM relocations are meant to be processed as a stream, they specify copying of data from the input section to the output section while possibly modifying the data in some manner. They also can specify that a variable number of zeros or uninitialized data be inserted on in the output segment at the current offset. Some relocations specify that some previous relocation be re-applied at the current location in the input/output sections. And finally a number of relocations have effects on other sections (R_ENTRY, R_EXIT, R_UNWIND_AUX and a variety of others). There isn't even enough room in the BFD relocation data structure to store enough information to perform all the relocations. Each entry in the table has three fields. The first entry is an index into this "class" of relocations. This index can then be used as a variable within the relocation itself. The second field is a format string which actually controls processing of the relocation. It uses a simple postfix machine to do calculations based on variables/constants found in the string and the relocation stream. The third field specifys whether or not this relocation may use a constant (V) from the previous R_DATA_OVERRIDE rather than a constant stored in the instruction. Variables: L = input space byte count D = index into class of relocations M = output space byte count N = statement number (unused?) O = stack operation R = parameter relocation bits S = symbol index U = 64 bits of stack unwind and frame size info (we only keep 32 bits) V = a literal constant (usually used in the next relocation) P = a previous relocation Lower case letters (starting with 'b') refer to following bytes in the relocation stream. 'b' is the next 1 byte, c is the next 2 bytes, d is the next 3 bytes, etc... This is the variable part of the relocation entries that makes our life a living hell. numerical constants are also used in the format string. Note the constants are represented in decimal. '+', "*" and "=" represents the obvious postfix operators. '<' represents a left shift. Stack Operations: Parameter Relocation Bits: Unwind Entries: Previous Relocations: The index field represents which in the queue of 4 previous fixups should be re-applied. Literal Constants: These are generally used to represent addend parts of relocations when these constants are not stored in the fields of the instructions themselves. For example the instruction addil foo-$global$-0x1234 would use an override for "0x1234" rather than storing it into the addil itself. */ struct fixup_format { int D; char *format; }; static const struct fixup_format som_fixup_formats[256] = { /* R_NO_RELOCATION */ 0, "LD1+4*=", /* 0x00 */ 1, "LD1+4*=", /* 0x01 */ 2, "LD1+4*=", /* 0x02 */ 3, "LD1+4*=", /* 0x03 */ 4, "LD1+4*=", /* 0x04 */ 5, "LD1+4*=", /* 0x05 */ 6, "LD1+4*=", /* 0x06 */ 7, "LD1+4*=", /* 0x07 */ 8, "LD1+4*=", /* 0x08 */ 9, "LD1+4*=", /* 0x09 */ 10, "LD1+4*=", /* 0x0a */ 11, "LD1+4*=", /* 0x0b */ 12, "LD1+4*=", /* 0x0c */ 13, "LD1+4*=", /* 0x0d */ 14, "LD1+4*=", /* 0x0e */ 15, "LD1+4*=", /* 0x0f */ 16, "LD1+4*=", /* 0x10 */ 17, "LD1+4*=", /* 0x11 */ 18, "LD1+4*=", /* 0x12 */ 19, "LD1+4*=", /* 0x13 */ 20, "LD1+4*=", /* 0x14 */ 21, "LD1+4*=", /* 0x15 */ 22, "LD1+4*=", /* 0x16 */ 23, "LD1+4*=", /* 0x17 */ 0, "LD8= 0x1000000) { skip -= 0x1000000; bfd_put_8 (abfd, R_NO_RELOCATION + 31, p); bfd_put_8 (abfd, 0xff, p + 1); bfd_put_16 (abfd, 0xffff, p + 2); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 4, queue); while (skip >= 0x1000000) { skip -= 0x1000000; bfd_put_8 (abfd, R_PREV_FIXUP, p); p++; *subspace_reloc_sizep += 1; /* No need to adjust queue here since we are repeating the most recent fixup. */ } } /* The difference must be less than 0x1000000. Use one more R_NO_RELOCATION entry to get to the right difference. */ if ((skip & 3) == 0 && skip <= 0xc0000 && skip > 0) { /* Difference can be handled in a simple single-byte R_NO_RELOCATION entry. */ if (skip <= 0x60) { bfd_put_8 (abfd, R_NO_RELOCATION + (skip >> 2) - 1, p); *subspace_reloc_sizep += 1; p++; } /* Handle it with a two byte R_NO_RELOCATION entry. */ else if (skip <= 0x1000) { bfd_put_8 (abfd, R_NO_RELOCATION + 24 + (((skip >> 2) - 1) >> 8), p); bfd_put_8 (abfd, (skip >> 2) - 1, p + 1); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 2, queue); } /* Handle it with a three byte R_NO_RELOCATION entry. */ else { bfd_put_8 (abfd, R_NO_RELOCATION + 28 + (((skip >> 2) - 1) >> 16), p); bfd_put_16 (abfd, (skip >> 2) - 1, p + 1); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 3, queue); } } /* Ugh. Punt and use a 4 byte entry. */ else if (skip > 0) { bfd_put_8 (abfd, R_NO_RELOCATION + 31, p); bfd_put_8 (abfd, skip >> 16, p + 1); bfd_put_16 (abfd, skip, p + 2); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 4, queue); } return p; } /* Emit the proper R_DATA_OVERRIDE fixups to handle a nonzero addend from a BFD relocation. Update the size of the subspace relocation stream via SUBSPACE_RELOC_SIZE_P; also return the current pointer into the relocation stream. */ static unsigned char * som_reloc_addend (abfd, addend, p, subspace_reloc_sizep, queue) bfd *abfd; int addend; unsigned char *p; unsigned int *subspace_reloc_sizep; struct reloc_queue *queue; { if ((unsigned)(addend) + 0x80 < 0x100) { bfd_put_8 (abfd, R_DATA_OVERRIDE + 1, p); bfd_put_8 (abfd, addend, p + 1); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 2, queue); } else if ((unsigned) (addend) + 0x8000 < 0x10000) { bfd_put_8 (abfd, R_DATA_OVERRIDE + 2, p); bfd_put_16 (abfd, addend, p + 1); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 3, queue); } else if ((unsigned) (addend) + 0x800000 < 0x1000000) { bfd_put_8 (abfd, R_DATA_OVERRIDE + 3, p); bfd_put_8 (abfd, addend >> 16, p + 1); bfd_put_16 (abfd, addend, p + 2); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 4, queue); } else { bfd_put_8 (abfd, R_DATA_OVERRIDE + 4, p); bfd_put_32 (abfd, addend, p + 1); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 5, queue); } return p; } /* Handle a single function call relocation. */ static unsigned char * som_reloc_call (abfd, p, subspace_reloc_sizep, bfd_reloc, sym_num, queue) bfd *abfd; unsigned char *p; unsigned int *subspace_reloc_sizep; arelent *bfd_reloc; int sym_num; struct reloc_queue *queue; { int arg_bits = HPPA_R_ARG_RELOC (bfd_reloc->addend); int rtn_bits = arg_bits & 0x3; int type, done = 0; /* You'll never believe all this is necessary to handle relocations for function calls. Having to compute and pack the argument relocation bits is the real nightmare. If you're interested in how this works, just forget it. You really do not want to know about this braindamage. */ /* First see if this can be done with a "simple" relocation. Simple relocations have a symbol number < 0x100 and have simple encodings of argument relocations. */ if (sym_num < 0x100) { switch (arg_bits) { case 0: case 1: type = 0; break; case 1 << 8: case 1 << 8 | 1: type = 1; break; case 1 << 8 | 1 << 6: case 1 << 8 | 1 << 6 | 1: type = 2; break; case 1 << 8 | 1 << 6 | 1 << 4: case 1 << 8 | 1 << 6 | 1 << 4 | 1: type = 3; break; case 1 << 8 | 1 << 6 | 1 << 4 | 1 << 2: case 1 << 8 | 1 << 6 | 1 << 4 | 1 << 2 | 1: type = 4; break; default: /* Not one of the easy encodings. This will have to be handled by the more complex code below. */ type = -1; break; } if (type != -1) { /* Account for the return value too. */ if (rtn_bits) type += 5; /* Emit a 2 byte relocation. Then see if it can be handled with a relocation which is already in the relocation queue. */ bfd_put_8 (abfd, bfd_reloc->howto->type + type, p); bfd_put_8 (abfd, sym_num, p + 1); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 2, queue); done = 1; } } /* If this could not be handled with a simple relocation, then do a hard one. Hard relocations occur if the symbol number was too high or if the encoding of argument relocation bits is too complex. */ if (! done) { /* Don't ask about these magic sequences. I took them straight from gas-1.36 which took them from the a.out man page. */ type = rtn_bits; if ((arg_bits >> 6 & 0xf) == 0xe) type += 9 * 40; else type += (3 * (arg_bits >> 8 & 3) + (arg_bits >> 6 & 3)) * 40; if ((arg_bits >> 2 & 0xf) == 0xe) type += 9 * 4; else type += (3 * (arg_bits >> 4 & 3) + (arg_bits >> 2 & 3)) * 4; /* Output the first two bytes of the relocation. These describe the length of the relocation and encoding style. */ bfd_put_8 (abfd, bfd_reloc->howto->type + 10 + 2 * (sym_num >= 0x100) + (type >= 0x100), p); bfd_put_8 (abfd, type, p + 1); /* Now output the symbol index and see if this bizarre relocation just happened to be in the relocation queue. */ if (sym_num < 0x100) { bfd_put_8 (abfd, sym_num, p + 2); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 3, queue); } else { bfd_put_8 (abfd, sym_num >> 16, p + 2); bfd_put_16 (abfd, sym_num, p + 3); p = try_prev_fixup (abfd, subspace_reloc_sizep, p, 5, queue); } } return p; } /* Return the logarithm of X, base 2, considering X unsigned. Abort -1 if X is not a power or two or is zero. */ static int log2 (x) unsigned int x; { int log = 0; /* Test for 0 or a power of 2. */ if (x == 0 || x != (x & -x)) return -1; while ((x >>= 1) != 0) log++; return log; } static bfd_reloc_status_type hppa_som_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd, error_message) bfd *abfd; arelent *reloc_entry; asymbol *symbol_in; PTR data; asection *input_section; bfd *output_bfd; char **error_message; { if (output_bfd) { reloc_entry->address += input_section->output_offset; return bfd_reloc_ok; } return bfd_reloc_ok; } /* Given a generic HPPA relocation type, the instruction format, and a field selector, return one or more appropriate SOM relocations. */ int ** hppa_som_gen_reloc_type (abfd, base_type, format, field) bfd *abfd; int base_type; int format; enum hppa_reloc_field_selector_type_alt field; { int *final_type, **final_types; final_types = (int **) bfd_alloc_by_size_t (abfd, sizeof (int *) * 3); final_type = (int *) bfd_alloc_by_size_t (abfd, sizeof (int)); if (!final_types || !final_type) { bfd_set_error (bfd_error_no_memory); return NULL; } /* The field selector may require additional relocations to be generated. It's impossible to know at this moment if additional relocations will be needed, so we make them. The code to actually write the relocation/fixup stream is responsible for removing any redundant relocations. */ switch (field) { case e_fsel: case e_psel: case e_lpsel: case e_rpsel: final_types[0] = final_type; final_types[1] = NULL; final_types[2] = NULL; *final_type = base_type; break; case e_tsel: case e_ltsel: case e_rtsel: final_types[0] = (int *) bfd_alloc_by_size_t (abfd, sizeof (int)); if (!final_types[0]) { bfd_set_error (bfd_error_no_memory); return NULL; } if (field == e_tsel) *final_types[0] = R_FSEL; else if (field == e_ltsel) *final_types[0] = R_LSEL; else *final_types[0] = R_RSEL; final_types[1] = final_type; final_types[2] = NULL; *final_type = base_type; break; case e_lssel: case e_rssel: final_types[0] = (int *) bfd_alloc_by_size_t (abfd, sizeof (int)); if (!final_types[0]) { bfd_set_error (bfd_error_no_memory); return NULL; } *final_types[0] = R_S_MODE; final_types[1] = final_type; final_types[2] = NULL; *final_type = base_type; break; case e_lsel: case e_rsel: final_types[0] = (int *) bfd_alloc_by_size_t (abfd, sizeof (int)); if (!final_types[0]) { bfd_set_error (bfd_error_no_memory); return NULL; } *final_types[0] = R_N_MODE; final_types[1] = final_type; final_types[2] = NULL; *final_type = base_type; break; case e_ldsel: case e_rdsel: final_types[0] = (int *) bfd_alloc_by_size_t (abfd, sizeof (int)); if (!final_types[0]) { bfd_set_error (bfd_error_no_memory); return NULL; } *final_types[0] = R_D_MODE; final_types[1] = final_type; final_types[2] = NULL; *final_type = base_type; break; case e_lrsel: case e_rrsel: final_types[0] = (int *) bfd_alloc_by_size_t (abfd, sizeof (int)); if (!final_types[0]) { bfd_set_error (bfd_error_no_memory); return NULL; } *final_types[0] = R_R_MODE; final_types[1] = final_type; final_types[2] = NULL; *final_type = base_type; break; } switch (base_type) { case R_HPPA: /* PLABELs get their own relocation type. */ if (field == e_psel || field == e_lpsel || field == e_rpsel) { /* A PLABEL relocation that has a size of 32 bits must be a R_DATA_PLABEL. All others are R_CODE_PLABELs. */ if (format == 32) *final_type = R_DATA_PLABEL; else *final_type = R_CODE_PLABEL; } /* PIC stuff. */ else if (field == e_tsel || field == e_ltsel || field == e_rtsel) *final_type = R_DLT_REL; /* A relocation in the data space is always a full 32bits. */ else if (format == 32) *final_type = R_DATA_ONE_SYMBOL; break; case R_HPPA_GOTOFF: /* More PLABEL special cases. */ if (field == e_psel || field == e_lpsel || field == e_rpsel) *final_type = R_DATA_PLABEL; break; case R_HPPA_NONE: case R_HPPA_ABS_CALL: case R_HPPA_PCREL_CALL: /* Right now we can default all these. */ break; } return final_types; } /* Return the address of the correct entry in the PA SOM relocation howto table. */ /*ARGSUSED*/ static const reloc_howto_type * som_bfd_reloc_type_lookup (abfd, code) bfd *abfd; bfd_reloc_code_real_type code; { if ((int) code < (int) R_NO_RELOCATION + 255) { BFD_ASSERT ((int) som_hppa_howto_table[(int) code].type == (int) code); return &som_hppa_howto_table[(int) code]; } return (reloc_howto_type *) 0; } /* Perform some initialization for an object. Save results of this initialization in the BFD. */ static const bfd_target * som_object_setup (abfd, file_hdrp, aux_hdrp) bfd *abfd; struct header *file_hdrp; struct som_exec_auxhdr *aux_hdrp; { /* som_mkobject will set bfd_error if som_mkobject fails. */ if (som_mkobject (abfd) != true) return 0; /* Set BFD flags based on what information is available in the SOM. */ abfd->flags = NO_FLAGS; if (file_hdrp->symbol_total) abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS; switch (file_hdrp->a_magic) { case DEMAND_MAGIC: abfd->flags |= (D_PAGED | WP_TEXT | EXEC_P); break; case SHARE_MAGIC: abfd->flags |= (WP_TEXT | EXEC_P); break; case EXEC_MAGIC: abfd->flags |= (EXEC_P); break; case RELOC_MAGIC: abfd->flags |= HAS_RELOC; break; #ifdef SHL_MAGIC case SHL_MAGIC: #endif #ifdef DL_MAGIC case DL_MAGIC: #endif abfd->flags |= DYNAMIC; break; default: break; } bfd_get_start_address (abfd) = aux_hdrp->exec_entry; bfd_default_set_arch_mach (abfd, bfd_arch_hppa, 0); bfd_get_symcount (abfd) = file_hdrp->symbol_total; /* Initialize the saved symbol table and string table to NULL. Save important offsets and sizes from the SOM header into the BFD. */ obj_som_stringtab (abfd) = (char *) NULL; obj_som_symtab (abfd) = (som_symbol_type *) NULL; obj_som_stringtab_size (abfd) = file_hdrp->symbol_strings_size; obj_som_sym_filepos (abfd) = file_hdrp->symbol_location; obj_som_str_filepos (abfd) = file_hdrp->symbol_strings_location; obj_som_reloc_filepos (abfd) = file_hdrp->fixup_request_location; obj_som_exec_data (abfd) = (struct som_exec_data *) bfd_zalloc (abfd, sizeof (struct som_exec_data )); if (obj_som_exec_data (abfd) == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } obj_som_exec_data (abfd)->system_id = file_hdrp->system_id; obj_som_exec_data (abfd)->exec_flags = aux_hdrp->exec_flags; return abfd->xvec; } /* Convert all of the space and subspace info into BFD sections. Each space contains a number of subspaces, which in turn describe the mapping between regions of the exec file, and the address space that the program runs in. BFD sections which correspond to spaces will overlap the sections for the associated subspaces. */ static boolean setup_sections (abfd, file_hdr) bfd *abfd; struct header *file_hdr; { char *space_strings; int space_index; unsigned int total_subspaces = 0; /* First, read in space names */ space_strings = malloc (file_hdr->space_strings_size); if (!space_strings && file_hdr->space_strings_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (abfd, file_hdr->space_strings_location, SEEK_SET) < 0) goto error_return; if (bfd_read (space_strings, 1, file_hdr->space_strings_size, abfd) != file_hdr->space_strings_size) goto error_return; /* Loop over all of the space dictionaries, building up sections */ for (space_index = 0; space_index < file_hdr->space_total; space_index++) { struct space_dictionary_record space; struct subspace_dictionary_record subspace, save_subspace; int subspace_index; asection *space_asect; char *newname; /* Read the space dictionary element */ if (bfd_seek (abfd, file_hdr->space_location + space_index * sizeof space, SEEK_SET) < 0) goto error_return; if (bfd_read (&space, 1, sizeof space, abfd) != sizeof space) goto error_return; /* Setup the space name string */ space.name.n_name = space.name.n_strx + space_strings; /* Make a section out of it */ newname = bfd_alloc (abfd, strlen (space.name.n_name) + 1); if (!newname) goto error_return; strcpy (newname, space.name.n_name); space_asect = bfd_make_section_anyway (abfd, newname); if (!space_asect) goto error_return; if (space.is_loadable == 0) space_asect->flags |= SEC_DEBUGGING; /* Set up all the attributes for the space. */ if (bfd_som_set_section_attributes (space_asect, space.is_defined, space.is_private, space.sort_key, space.space_number) == false) goto error_return; /* Now, read in the first subspace for this space */ if (bfd_seek (abfd, file_hdr->subspace_location + space.subspace_index * sizeof subspace, SEEK_SET) < 0) goto error_return; if (bfd_read (&subspace, 1, sizeof subspace, abfd) != sizeof subspace) goto error_return; /* Seek back to the start of the subspaces for loop below */ if (bfd_seek (abfd, file_hdr->subspace_location + space.subspace_index * sizeof subspace, SEEK_SET) < 0) goto error_return; /* Setup the start address and file loc from the first subspace record */ space_asect->vma = subspace.subspace_start; space_asect->filepos = subspace.file_loc_init_value; space_asect->alignment_power = log2 (subspace.alignment); if (space_asect->alignment_power == -1) goto error_return; /* Initialize save_subspace so we can reliably determine if this loop placed any useful values into it. */ memset (&save_subspace, 0, sizeof (struct subspace_dictionary_record)); /* Loop over the rest of the subspaces, building up more sections */ for (subspace_index = 0; subspace_index < space.subspace_quantity; subspace_index++) { asection *subspace_asect; /* Read in the next subspace */ if (bfd_read (&subspace, 1, sizeof subspace, abfd) != sizeof subspace) goto error_return; /* Setup the subspace name string */ subspace.name.n_name = subspace.name.n_strx + space_strings; newname = bfd_alloc (abfd, strlen (subspace.name.n_name) + 1); if (!newname) goto error_return; strcpy (newname, subspace.name.n_name); /* Make a section out of this subspace */ subspace_asect = bfd_make_section_anyway (abfd, newname); if (!subspace_asect) goto error_return; /* Store private information about the section. */ if (bfd_som_set_subsection_attributes (subspace_asect, space_asect, subspace.access_control_bits, subspace.sort_key, subspace.quadrant) == false) goto error_return; /* Keep an easy mapping between subspaces and sections. */ subspace_asect->target_index = total_subspaces++; /* Set SEC_READONLY and SEC_CODE/SEC_DATA as specified by the access_control_bits in the subspace header. */ switch (subspace.access_control_bits >> 4) { /* Readonly data. */ case 0x0: subspace_asect->flags |= SEC_DATA | SEC_READONLY; break; /* Normal data. */ case 0x1: subspace_asect->flags |= SEC_DATA; break; /* Readonly code and the gateways. Gateways have other attributes which do not map into anything BFD knows about. */ case 0x2: case 0x4: case 0x5: case 0x6: case 0x7: subspace_asect->flags |= SEC_CODE | SEC_READONLY; break; /* dynamic (writable) code. */ case 0x3: subspace_asect->flags |= SEC_CODE; break; } if (subspace.dup_common || subspace.is_common) subspace_asect->flags |= SEC_IS_COMMON; else if (subspace.subspace_length > 0) subspace_asect->flags |= SEC_HAS_CONTENTS; if (subspace.is_loadable) subspace_asect->flags |= SEC_ALLOC | SEC_LOAD; else subspace_asect->flags |= SEC_DEBUGGING; if (subspace.code_only) subspace_asect->flags |= SEC_CODE; /* Both file_loc_init_value and initialization_length will be zero for a BSS like subspace. */ if (subspace.file_loc_init_value == 0 && subspace.initialization_length == 0) subspace_asect->flags &= ~(SEC_DATA | SEC_LOAD); /* This subspace has relocations. The fixup_request_quantity is a byte count for the number of entries in the relocation stream; it is not the actual number of relocations in the subspace. */ if (subspace.fixup_request_quantity != 0) { subspace_asect->flags |= SEC_RELOC; subspace_asect->rel_filepos = subspace.fixup_request_index; som_section_data (subspace_asect)->reloc_size = subspace.fixup_request_quantity; /* We can not determine this yet. When we read in the relocation table the correct value will be filled in. */ subspace_asect->reloc_count = -1; } /* Update save_subspace if appropriate. */ if (subspace.file_loc_init_value > save_subspace.file_loc_init_value) save_subspace = subspace; subspace_asect->vma = subspace.subspace_start; subspace_asect->_cooked_size = subspace.subspace_length; subspace_asect->_raw_size = subspace.subspace_length; subspace_asect->filepos = subspace.file_loc_init_value; subspace_asect->alignment_power = log2 (subspace.alignment); if (subspace_asect->alignment_power == -1) goto error_return; } /* Yow! there is no subspace within the space which actually has initialized information in it; this should never happen as far as I know. */ if (!save_subspace.file_loc_init_value) goto error_return; /* Setup the sizes for the space section based upon the info in the last subspace of the space. */ space_asect->_cooked_size = save_subspace.subspace_start - space_asect->vma + save_subspace.subspace_length; space_asect->_raw_size = save_subspace.file_loc_init_value - space_asect->filepos + save_subspace.initialization_length; } if (space_strings != NULL) free (space_strings); return true; error_return: if (space_strings != NULL) free (space_strings); return false; } /* Read in a SOM object and make it into a BFD. */ static const bfd_target * som_object_p (abfd) bfd *abfd; { struct header file_hdr; struct som_exec_auxhdr aux_hdr; if (bfd_read ((PTR) & file_hdr, 1, FILE_HDR_SIZE, abfd) != FILE_HDR_SIZE) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } if (!_PA_RISC_ID (file_hdr.system_id)) { bfd_set_error (bfd_error_wrong_format); return 0; } switch (file_hdr.a_magic) { case RELOC_MAGIC: case EXEC_MAGIC: case SHARE_MAGIC: case DEMAND_MAGIC: #ifdef DL_MAGIC case DL_MAGIC: #endif #ifdef SHL_MAGIC case SHL_MAGIC: #endif #ifdef EXECLIBMAGIC case EXECLIBMAGIC: #endif #ifdef SHARED_MAGIC_CNX case SHARED_MAGIC_CNX: #endif break; default: bfd_set_error (bfd_error_wrong_format); return 0; } if (file_hdr.version_id != VERSION_ID && file_hdr.version_id != NEW_VERSION_ID) { bfd_set_error (bfd_error_wrong_format); return 0; } /* If the aux_header_size field in the file header is zero, then this object is an incomplete executable (a .o file). Do not try to read a non-existant auxiliary header. */ memset (&aux_hdr, 0, sizeof (struct som_exec_auxhdr)); if (file_hdr.aux_header_size != 0) { if (bfd_read ((PTR) & aux_hdr, 1, AUX_HDR_SIZE, abfd) != AUX_HDR_SIZE) { if (bfd_get_error () != bfd_error_system_call) bfd_set_error (bfd_error_wrong_format); return 0; } } if (!setup_sections (abfd, &file_hdr)) { /* setup_sections does not bubble up a bfd error code. */ bfd_set_error (bfd_error_bad_value); return 0; } /* This appears to be a valid SOM object. Do some initialization. */ return som_object_setup (abfd, &file_hdr, &aux_hdr); } /* Create a SOM object. */ static boolean som_mkobject (abfd) bfd *abfd; { /* Allocate memory to hold backend information. */ abfd->tdata.som_data = (struct som_data_struct *) bfd_zalloc (abfd, sizeof (struct som_data_struct)); if (abfd->tdata.som_data == NULL) { bfd_set_error (bfd_error_no_memory); return false; } return true; } /* Initialize some information in the file header. This routine makes not attempt at doing the right thing for a full executable; it is only meant to handle relocatable objects. */ static boolean som_prep_headers (abfd) bfd *abfd; { struct header *file_hdr; asection *section; /* Make and attach a file header to the BFD. */ file_hdr = (struct header *) bfd_zalloc (abfd, sizeof (struct header)); if (file_hdr == NULL) { bfd_set_error (bfd_error_no_memory); return false; } obj_som_file_hdr (abfd) = file_hdr; if (abfd->flags & (EXEC_P | DYNAMIC)) { if (abfd->flags & D_PAGED) file_hdr->a_magic = DEMAND_MAGIC; else if (abfd->flags & WP_TEXT) file_hdr->a_magic = SHARE_MAGIC; #ifdef SHL_MAGIC else if (abfd->flags & DYNAMIC) file_hdr->a_magic = SHL_MAGIC; #endif else file_hdr->a_magic = EXEC_MAGIC; } else file_hdr->a_magic = RELOC_MAGIC; /* Only new format SOM is supported. */ file_hdr->version_id = NEW_VERSION_ID; /* These fields are optional, and embedding timestamps is not always a wise thing to do, it makes comparing objects during a multi-stage bootstrap difficult. */ file_hdr->file_time.secs = 0; file_hdr->file_time.nanosecs = 0; file_hdr->entry_space = 0; file_hdr->entry_subspace = 0; file_hdr->entry_offset = 0; file_hdr->presumed_dp = 0; /* Now iterate over the sections translating information from BFD sections to SOM spaces/subspaces. */ for (section = abfd->sections; section != NULL; section = section->next) { /* Ignore anything which has not been marked as a space or subspace. */ if (!som_is_space (section) && !som_is_subspace (section)) continue; if (som_is_space (section)) { /* Allocate space for the space dictionary. */ som_section_data (section)->space_dict = (struct space_dictionary_record *) bfd_zalloc (abfd, sizeof (struct space_dictionary_record)); if (som_section_data (section)->space_dict == NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* Set space attributes. Note most attributes of SOM spaces are set based on the subspaces it contains. */ som_section_data (section)->space_dict->loader_fix_index = -1; som_section_data (section)->space_dict->init_pointer_index = -1; /* Set more attributes that were stuffed away in private data. */ som_section_data (section)->space_dict->sort_key = som_section_data (section)->copy_data->sort_key; som_section_data (section)->space_dict->is_defined = som_section_data (section)->copy_data->is_defined; som_section_data (section)->space_dict->is_private = som_section_data (section)->copy_data->is_private; som_section_data (section)->space_dict->space_number = som_section_data (section)->copy_data->space_number; } else { /* Allocate space for the subspace dictionary. */ som_section_data (section)->subspace_dict = (struct subspace_dictionary_record *) bfd_zalloc (abfd, sizeof (struct subspace_dictionary_record)); if (som_section_data (section)->subspace_dict == NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* Set subspace attributes. Basic stuff is done here, additional attributes are filled in later as more information becomes available. */ if (section->flags & SEC_IS_COMMON) { som_section_data (section)->subspace_dict->dup_common = 1; som_section_data (section)->subspace_dict->is_common = 1; } if (section->flags & SEC_ALLOC) som_section_data (section)->subspace_dict->is_loadable = 1; if (section->flags & SEC_CODE) som_section_data (section)->subspace_dict->code_only = 1; som_section_data (section)->subspace_dict->subspace_start = section->vma; som_section_data (section)->subspace_dict->subspace_length = bfd_section_size (abfd, section); som_section_data (section)->subspace_dict->initialization_length = bfd_section_size (abfd, section); som_section_data (section)->subspace_dict->alignment = 1 << section->alignment_power; /* Set more attributes that were stuffed away in private data. */ som_section_data (section)->subspace_dict->sort_key = som_section_data (section)->copy_data->sort_key; som_section_data (section)->subspace_dict->access_control_bits = som_section_data (section)->copy_data->access_control_bits; som_section_data (section)->subspace_dict->quadrant = som_section_data (section)->copy_data->quadrant; } } return true; } /* Return true if the given section is a SOM space, false otherwise. */ static boolean som_is_space (section) asection *section; { /* If no copy data is available, then it's neither a space nor a subspace. */ if (som_section_data (section)->copy_data == NULL) return false; /* If the containing space isn't the same as the given section, then this isn't a space. */ if (som_section_data (section)->copy_data->container != section) return false; /* OK. Must be a space. */ return true; } /* Return true if the given section is a SOM subspace, false otherwise. */ static boolean som_is_subspace (section) asection *section; { /* If no copy data is available, then it's neither a space nor a subspace. */ if (som_section_data (section)->copy_data == NULL) return false; /* If the containing space is the same as the given section, then this isn't a subspace. */ if (som_section_data (section)->copy_data->container == section) return false; /* OK. Must be a subspace. */ return true; } /* Return true if the given space containins the given subspace. It is safe to assume space really is a space, and subspace really is a subspace. */ static boolean som_is_container (space, subspace) asection *space, *subspace; { return som_section_data (subspace)->copy_data->container == space; } /* Count and return the number of spaces attached to the given BFD. */ static unsigned long som_count_spaces (abfd) bfd *abfd; { int count = 0; asection *section; for (section = abfd->sections; section != NULL; section = section->next) count += som_is_space (section); return count; } /* Count the number of subspaces attached to the given BFD. */ static unsigned long som_count_subspaces (abfd) bfd *abfd; { int count = 0; asection *section; for (section = abfd->sections; section != NULL; section = section->next) count += som_is_subspace (section); return count; } /* Return -1, 0, 1 indicating the relative ordering of sym1 and sym2. We desire symbols to be ordered starting with the symbol with the highest relocation count down to the symbol with the lowest relocation count. Doing so compacts the relocation stream. */ static int compare_syms (arg1, arg2) const PTR arg1; const PTR arg2; { asymbol **sym1 = (asymbol **) arg1; asymbol **sym2 = (asymbol **) arg2; unsigned int count1, count2; /* Get relocation count for each symbol. Note that the count is stored in the udata pointer for section symbols! */ if ((*sym1)->flags & BSF_SECTION_SYM) count1 = (int)(*sym1)->udata; else count1 = som_symbol_data (*sym1)->reloc_count; if ((*sym2)->flags & BSF_SECTION_SYM) count2 = (int)(*sym2)->udata; else count2 = som_symbol_data (*sym2)->reloc_count; /* Return the appropriate value. */ if (count1 < count2) return 1; else if (count1 > count2) return -1; return 0; } /* Perform various work in preparation for emitting the fixup stream. */ static void som_prep_for_fixups (abfd, syms, num_syms) bfd *abfd; asymbol **syms; unsigned long num_syms; { int i; asection *section; /* Most SOM relocations involving a symbol have a length which is dependent on the index of the symbol. So symbols which are used often in relocations should have a small index. */ /* First initialize the counters for each symbol. */ for (i = 0; i < num_syms; i++) { /* Handle a section symbol; these have no pointers back to the SOM symbol info. So we just use the pointer field (udata) to hold the relocation count. */ if (som_symbol_data (syms[i]) == NULL || syms[i]->flags & BSF_SECTION_SYM) { syms[i]->flags |= BSF_SECTION_SYM; syms[i]->udata = (PTR) 0; } else som_symbol_data (syms[i])->reloc_count = 0; } /* Now that the counters are initialized, make a weighted count of how often a given symbol is used in a relocation. */ for (section = abfd->sections; section != NULL; section = section->next) { int i; /* Does this section have any relocations? */ if (section->reloc_count <= 0) continue; /* Walk through each relocation for this section. */ for (i = 1; i < section->reloc_count; i++) { arelent *reloc = section->orelocation[i]; int scale; /* A relocation against a symbol in the *ABS* section really does not have a symbol. Likewise if the symbol isn't associated with any section. */ if (reloc->sym_ptr_ptr == NULL || bfd_is_abs_section ((*reloc->sym_ptr_ptr)->section)) continue; /* Scaling to encourage symbols involved in R_DP_RELATIVE and R_CODE_ONE_SYMBOL relocations to come first. These two relocations have single byte versions if the symbol index is very small. */ if (reloc->howto->type == R_DP_RELATIVE || reloc->howto->type == R_CODE_ONE_SYMBOL) scale = 2; else scale = 1; /* Handle section symbols by ramming the count in the udata field. It will not be used and the count is very important for these symbols. */ if ((*reloc->sym_ptr_ptr)->flags & BSF_SECTION_SYM) { (*reloc->sym_ptr_ptr)->udata = (PTR) ((int) (*reloc->sym_ptr_ptr)->udata + scale); continue; } /* A normal symbol. Increment the count. */ som_symbol_data (*reloc->sym_ptr_ptr)->reloc_count += scale; } } /* Now sort the symbols. */ qsort (syms, num_syms, sizeof (asymbol *), compare_syms); /* Compute the symbol indexes, they will be needed by the relocation code. */ for (i = 0; i < num_syms; i++) { /* A section symbol. Again, there is no pointer to backend symbol information, so we reuse (abuse) the udata field again. */ if (syms[i]->flags & BSF_SECTION_SYM) syms[i]->udata = (PTR) i; else som_symbol_data (syms[i])->index = i; } } static boolean som_write_fixups (abfd, current_offset, total_reloc_sizep) bfd *abfd; unsigned long current_offset; unsigned int *total_reloc_sizep; { unsigned int i, j; /* Chunk of memory that we can use as buffer space, then throw away. */ unsigned char tmp_space[SOM_TMP_BUFSIZE]; unsigned char *p; unsigned int total_reloc_size = 0; unsigned int subspace_reloc_size = 0; unsigned int num_spaces = obj_som_file_hdr (abfd)->space_total; asection *section = abfd->sections; memset (tmp_space, 0, SOM_TMP_BUFSIZE); p = tmp_space; /* All the fixups for a particular subspace are emitted in a single stream. All the subspaces for a particular space are emitted as a single stream. So, to get all the locations correct one must iterate through all the spaces, for each space iterate through its subspaces and output a fixups stream. */ for (i = 0; i < num_spaces; i++) { asection *subsection; /* Find a space. */ while (!som_is_space (section)) section = section->next; /* Now iterate through each of its subspaces. */ for (subsection = abfd->sections; subsection != NULL; subsection = subsection->next) { int reloc_offset, current_rounding_mode; /* Find a subspace of this space. */ if (!som_is_subspace (subsection) || !som_is_container (section, subsection)) continue; /* If this subspace does not have real data, then we are finised with it. */ if ((subsection->flags & (SEC_LOAD | SEC_DEBUGGING)) == 0) { som_section_data (subsection)->subspace_dict->fixup_request_index = -1; continue; } /* This subspace has some relocations. Put the relocation stream index into the subspace record. */ som_section_data (subsection)->subspace_dict->fixup_request_index = total_reloc_size; /* To make life easier start over with a clean slate for each subspace. Seek to the start of the relocation stream for this subspace in preparation for writing out its fixup stream. */ if (bfd_seek (abfd, current_offset + total_reloc_size, SEEK_SET) < 0) return false; /* Buffer space has already been allocated. Just perform some initialization here. */ p = tmp_space; subspace_reloc_size = 0; reloc_offset = 0; som_initialize_reloc_queue (reloc_queue); current_rounding_mode = R_N_MODE; /* Translate each BFD relocation into one or more SOM relocations. */ for (j = 0; j < subsection->reloc_count; j++) { arelent *bfd_reloc = subsection->orelocation[j]; unsigned int skip; int sym_num; /* Get the symbol number. Remember it's stored in a special place for section symbols. */ if ((*bfd_reloc->sym_ptr_ptr)->flags & BSF_SECTION_SYM) sym_num = (int) (*bfd_reloc->sym_ptr_ptr)->udata; else sym_num = som_symbol_data (*bfd_reloc->sym_ptr_ptr)->index; /* If there is not enough room for the next couple relocations, then dump the current buffer contents now. Also reinitialize the relocation queue. No single BFD relocation could ever translate into more than 100 bytes of SOM relocations (20bytes is probably the upper limit, but leave lots of space for growth). */ if (p - tmp_space + 100 > SOM_TMP_BUFSIZE) { if (bfd_write ((PTR) tmp_space, p - tmp_space, 1, abfd) != p - tmp_space) return false; p = tmp_space; som_initialize_reloc_queue (reloc_queue); } /* Emit R_NO_RELOCATION fixups to map any bytes which were skipped. */ skip = bfd_reloc->address - reloc_offset; p = som_reloc_skip (abfd, skip, p, &subspace_reloc_size, reloc_queue); /* Update reloc_offset for the next iteration. Many relocations do not consume input bytes. They are markers, or set state necessary to perform some later relocation. */ switch (bfd_reloc->howto->type) { /* This only needs to handle relocations that may be made by hppa_som_gen_reloc. */ case R_ENTRY: case R_EXIT: case R_N_MODE: case R_S_MODE: case R_D_MODE: case R_R_MODE: case R_FSEL: case R_LSEL: case R_RSEL: reloc_offset = bfd_reloc->address; break; default: reloc_offset = bfd_reloc->address + 4; break; } /* Now the actual relocation we care about. */ switch (bfd_reloc->howto->type) { case R_PCREL_CALL: case R_ABS_CALL: p = som_reloc_call (abfd, p, &subspace_reloc_size, bfd_reloc, sym_num, reloc_queue); break; case R_CODE_ONE_SYMBOL: case R_DP_RELATIVE: /* Account for any addend. */ if (bfd_reloc->addend) p = som_reloc_addend (abfd, bfd_reloc->addend, p, &subspace_reloc_size, reloc_queue); if (sym_num < 0x20) { bfd_put_8 (abfd, bfd_reloc->howto->type + sym_num, p); subspace_reloc_size += 1; p += 1; } else if (sym_num < 0x100) { bfd_put_8 (abfd, bfd_reloc->howto->type + 32, p); bfd_put_8 (abfd, sym_num, p + 1); p = try_prev_fixup (abfd, &subspace_reloc_size, p, 2, reloc_queue); } else if (sym_num < 0x10000000) { bfd_put_8 (abfd, bfd_reloc->howto->type + 33, p); bfd_put_8 (abfd, sym_num >> 16, p + 1); bfd_put_16 (abfd, sym_num, p + 2); p = try_prev_fixup (abfd, &subspace_reloc_size, p, 4, reloc_queue); } else abort (); break; case R_DATA_ONE_SYMBOL: case R_DATA_PLABEL: case R_CODE_PLABEL: case R_DLT_REL: /* Account for any addend. */ if (bfd_reloc->addend) p = som_reloc_addend (abfd, bfd_reloc->addend, p, &subspace_reloc_size, reloc_queue); if (sym_num < 0x100) { bfd_put_8 (abfd, bfd_reloc->howto->type, p); bfd_put_8 (abfd, sym_num, p + 1); p = try_prev_fixup (abfd, &subspace_reloc_size, p, 2, reloc_queue); } else if (sym_num < 0x10000000) { bfd_put_8 (abfd, bfd_reloc->howto->type + 1, p); bfd_put_8 (abfd, sym_num >> 16, p + 1); bfd_put_16 (abfd, sym_num, p + 2); p = try_prev_fixup (abfd, &subspace_reloc_size, p, 4, reloc_queue); } else abort (); break; case R_ENTRY: { int *descp = (int *) som_symbol_data (*bfd_reloc->sym_ptr_ptr)->unwind; bfd_put_8 (abfd, R_ENTRY, p); bfd_put_32 (abfd, descp[0], p + 1); bfd_put_32 (abfd, descp[1], p + 5); p = try_prev_fixup (abfd, &subspace_reloc_size, p, 9, reloc_queue); break; } case R_EXIT: bfd_put_8 (abfd, R_EXIT, p); subspace_reloc_size += 1; p += 1; break; case R_N_MODE: case R_S_MODE: case R_D_MODE: case R_R_MODE: /* If this relocation requests the current rounding mode, then it is redundant. */ if (bfd_reloc->howto->type != current_rounding_mode) { bfd_put_8 (abfd, bfd_reloc->howto->type, p); subspace_reloc_size += 1; p += 1; current_rounding_mode = bfd_reloc->howto->type; } break; case R_FSEL: case R_LSEL: case R_RSEL: bfd_put_8 (abfd, bfd_reloc->howto->type, p); subspace_reloc_size += 1; p += 1; break; /* Put a "R_RESERVED" relocation in the stream if we hit something we do not understand. The linker will complain loudly if this ever happens. */ default: bfd_put_8 (abfd, 0xff, p); subspace_reloc_size += 1; p += 1; break; } } /* Last BFD relocation for a subspace has been processed. Map the rest of the subspace with R_NO_RELOCATION fixups. */ p = som_reloc_skip (abfd, bfd_section_size (abfd, subsection) - reloc_offset, p, &subspace_reloc_size, reloc_queue); /* Scribble out the relocations. */ if (bfd_write ((PTR) tmp_space, p - tmp_space, 1, abfd) != p - tmp_space) return false; p = tmp_space; total_reloc_size += subspace_reloc_size; som_section_data (subsection)->subspace_dict->fixup_request_quantity = subspace_reloc_size; } section = section->next; } *total_reloc_sizep = total_reloc_size; return true; } /* Write out the space/subspace string table. */ static boolean som_write_space_strings (abfd, current_offset, string_sizep) bfd *abfd; unsigned long current_offset; unsigned int *string_sizep; { /* Chunk of memory that we can use as buffer space, then throw away. */ unsigned char tmp_space[SOM_TMP_BUFSIZE]; unsigned char *p; unsigned int strings_size = 0; asection *section; memset (tmp_space, 0, SOM_TMP_BUFSIZE); p = tmp_space; /* Seek to the start of the space strings in preparation for writing them out. */ if (bfd_seek (abfd, current_offset, SEEK_SET) < 0) return false; /* Walk through all the spaces and subspaces (order is not important) building up and writing string table entries for their names. */ for (section = abfd->sections; section != NULL; section = section->next) { int length; /* Only work with space/subspaces; avoid any other sections which might have been made (.text for example). */ if (!som_is_space (section) && !som_is_subspace (section)) continue; /* Get the length of the space/subspace name. */ length = strlen (section->name); /* If there is not enough room for the next entry, then dump the current buffer contents now. Each entry will take 4 bytes to hold the string length + the string itself + null terminator. */ if (p - tmp_space + 5 + length > SOM_TMP_BUFSIZE) { if (bfd_write ((PTR) &tmp_space[0], p - tmp_space, 1, abfd) != p - tmp_space) return false; /* Reset to beginning of the buffer space. */ p = tmp_space; } /* First element in a string table entry is the length of the string. Alignment issues are already handled. */ bfd_put_32 (abfd, length, p); p += 4; strings_size += 4; /* Record the index in the space/subspace records. */ if (som_is_space (section)) som_section_data (section)->space_dict->name.n_strx = strings_size; else som_section_data (section)->subspace_dict->name.n_strx = strings_size; /* Next comes the string itself + a null terminator. */ strcpy (p, section->name); p += length + 1; strings_size += length + 1; /* Always align up to the next word boundary. */ while (strings_size % 4) { bfd_put_8 (abfd, 0, p); p++; strings_size++; } } /* Done with the space/subspace strings. Write out any information contained in a partial block. */ if (bfd_write ((PTR) &tmp_space[0], p - tmp_space, 1, abfd) != p - tmp_space) return false; *string_sizep = strings_size; return true; } /* Write out the symbol string table. */ static boolean som_write_symbol_strings (abfd, current_offset, syms, num_syms, string_sizep) bfd *abfd; unsigned long current_offset; asymbol **syms; unsigned int num_syms; unsigned int *string_sizep; { unsigned int i; /* Chunk of memory that we can use as buffer space, then throw away. */ unsigned char tmp_space[SOM_TMP_BUFSIZE]; unsigned char *p; unsigned int strings_size = 0; memset (tmp_space, 0, SOM_TMP_BUFSIZE); p = tmp_space; /* Seek to the start of the space strings in preparation for writing them out. */ if (bfd_seek (abfd, current_offset, SEEK_SET) < 0) return false; for (i = 0; i < num_syms; i++) { int length = strlen (syms[i]->name); /* If there is not enough room for the next entry, then dump the current buffer contents now. */ if (p - tmp_space + 5 + length > SOM_TMP_BUFSIZE) { if (bfd_write ((PTR) &tmp_space[0], p - tmp_space, 1, abfd) != p - tmp_space) return false; /* Reset to beginning of the buffer space. */ p = tmp_space; } /* First element in a string table entry is the length of the string. This must always be 4 byte aligned. This is also an appropriate time to fill in the string index field in the symbol table entry. */ bfd_put_32 (abfd, length, p); strings_size += 4; p += 4; /* Next comes the string itself + a null terminator. */ strcpy (p, syms[i]->name); /* ACK. FIXME. */ syms[i]->name = (char *)strings_size; p += length + 1; strings_size += length + 1; /* Always align up to the next word boundary. */ while (strings_size % 4) { bfd_put_8 (abfd, 0, p); strings_size++; p++; } } /* Scribble out any partial block. */ if (bfd_write ((PTR) &tmp_space[0], p - tmp_space, 1, abfd) != p - tmp_space) return false; *string_sizep = strings_size; return true; } /* Compute variable information to be placed in the SOM headers, space/subspace dictionaries, relocation streams, etc. Begin writing parts of the object file. */ static boolean som_begin_writing (abfd) bfd *abfd; { unsigned long current_offset = 0; int strings_size = 0; unsigned int total_reloc_size = 0; unsigned long num_spaces, num_subspaces, num_syms, i; asection *section; asymbol **syms = bfd_get_outsymbols (abfd); unsigned int total_subspaces = 0; struct som_exec_auxhdr exec_header; /* The file header will always be first in an object file, everything else can be in random locations. To keep things "simple" BFD will lay out the object file in the manner suggested by the PRO ABI for PA-RISC Systems. */ /* Before any output can really begin offsets for all the major portions of the object file must be computed. So, starting with the initial file header compute (and sometimes write) each portion of the object file. */ /* Make room for the file header, it's contents are not complete yet, so it can not be written at this time. */ current_offset += sizeof (struct header); /* Any auxiliary headers will follow the file header. Right now we support only the copyright and version headers. */ obj_som_file_hdr (abfd)->aux_header_location = current_offset; obj_som_file_hdr (abfd)->aux_header_size = 0; if (abfd->flags & (EXEC_P | DYNAMIC)) { /* Parts of the exec header will be filled in later, so delay writing the header itself. Fill in the defaults, and write it later. */ current_offset += sizeof (exec_header); obj_som_file_hdr (abfd)->aux_header_size += sizeof (exec_header); memset (&exec_header, 0, sizeof (exec_header)); exec_header.som_auxhdr.type = EXEC_AUX_ID; exec_header.som_auxhdr.length = 40; } if (obj_som_version_hdr (abfd) != NULL) { unsigned int len; if (bfd_seek (abfd, current_offset, SEEK_SET) < 0) return false; /* Write the aux_id structure and the string length. */ len = sizeof (struct aux_id) + sizeof (unsigned int); obj_som_file_hdr (abfd)->aux_header_size += len; current_offset += len; if (bfd_write ((PTR) obj_som_version_hdr (abfd), len, 1, abfd) != len) return false; /* Write the version string. */ len = obj_som_version_hdr (abfd)->header_id.length - sizeof (int); obj_som_file_hdr (abfd)->aux_header_size += len; current_offset += len; if (bfd_write ((PTR) obj_som_version_hdr (abfd)->user_string, len, 1, abfd) != len) return false; } if (obj_som_copyright_hdr (abfd) != NULL) { unsigned int len; if (bfd_seek (abfd, current_offset, SEEK_SET) < 0) return false; /* Write the aux_id structure and the string length. */ len = sizeof (struct aux_id) + sizeof (unsigned int); obj_som_file_hdr (abfd)->aux_header_size += len; current_offset += len; if (bfd_write ((PTR) obj_som_copyright_hdr (abfd), len, 1, abfd) != len) return false; /* Write the copyright string. */ len = obj_som_copyright_hdr (abfd)->header_id.length - sizeof (int); obj_som_file_hdr (abfd)->aux_header_size += len; current_offset += len; if (bfd_write ((PTR) obj_som_copyright_hdr (abfd)->copyright, len, 1, abfd) != len) return false; } /* Next comes the initialization pointers; we have no initialization pointers, so current offset does not change. */ obj_som_file_hdr (abfd)->init_array_location = current_offset; obj_som_file_hdr (abfd)->init_array_total = 0; /* Next are the space records. These are fixed length records. Count the number of spaces to determine how much room is needed in the object file for the space records. The names of the spaces are stored in a separate string table, and the index for each space into the string table is computed below. Therefore, it is not possible to write the space headers at this time. */ num_spaces = som_count_spaces (abfd); obj_som_file_hdr (abfd)->space_location = current_offset; obj_som_file_hdr (abfd)->space_total = num_spaces; current_offset += num_spaces * sizeof (struct space_dictionary_record); /* Next are the subspace records. These are fixed length records. Count the number of subspaes to determine how much room is needed in the object file for the subspace records. A variety if fields in the subspace record are still unknown at this time (index into string table, fixup stream location/size, etc). */ num_subspaces = som_count_subspaces (abfd); obj_som_file_hdr (abfd)->subspace_location = current_offset; obj_som_file_hdr (abfd)->subspace_total = num_subspaces; current_offset += num_subspaces * sizeof (struct subspace_dictionary_record); /* Next is the string table for the space/subspace names. We will build and write the string table on the fly. At the same time we will fill in the space/subspace name index fields. */ /* The string table needs to be aligned on a word boundary. */ if (current_offset % 4) current_offset += (4 - (current_offset % 4)); /* Mark the offset of the space/subspace string table in the file header. */ obj_som_file_hdr (abfd)->space_strings_location = current_offset; /* Scribble out the space strings. */ if (som_write_space_strings (abfd, current_offset, &strings_size) == false) return false; /* Record total string table size in the header and update the current offset. */ obj_som_file_hdr (abfd)->space_strings_size = strings_size; current_offset += strings_size; /* Next is the symbol table. These are fixed length records. Count the number of symbols to determine how much room is needed in the object file for the symbol table. The names of the symbols are stored in a separate string table, and the index for each symbol name into the string table is computed below. Therefore, it is not possible to write the symobl table at this time. */ num_syms = bfd_get_symcount (abfd); obj_som_file_hdr (abfd)->symbol_location = current_offset; obj_som_file_hdr (abfd)->symbol_total = num_syms; current_offset += num_syms * sizeof (struct symbol_dictionary_record); /* Do prep work before handling fixups. */ som_prep_for_fixups (abfd, syms, num_syms); /* Next comes the fixup stream which starts on a word boundary. */ if (current_offset % 4) current_offset += (4 - (current_offset % 4)); obj_som_file_hdr (abfd)->fixup_request_location = current_offset; /* Write the fixups and update fields in subspace headers which relate to the fixup stream. */ if (som_write_fixups (abfd, current_offset, &total_reloc_size) == false) return false; /* Record the total size of the fixup stream in the file header. */ obj_som_file_hdr (abfd)->fixup_request_total = total_reloc_size; current_offset += total_reloc_size; /* Next are the symbol strings. Align them to a word boundary. */ if (current_offset % 4) current_offset += (4 - (current_offset % 4)); obj_som_file_hdr (abfd)->symbol_strings_location = current_offset; /* Scribble out the symbol strings. */ if (som_write_symbol_strings (abfd, current_offset, syms, num_syms, &strings_size) == false) return false; /* Record total string table size in header and update the current offset. */ obj_som_file_hdr (abfd)->symbol_strings_size = strings_size; current_offset += strings_size; /* Next is the compiler records. We do not use these. */ obj_som_file_hdr (abfd)->compiler_location = current_offset; obj_som_file_hdr (abfd)->compiler_total = 0; /* Now compute the file positions for the loadable subspaces, taking care to make sure everything stays properly aligned. */ section = abfd->sections; for (i = 0; i < num_spaces; i++) { asection *subsection; int first_subspace; unsigned int subspace_offset = 0; /* Find a space. */ while (!som_is_space (section)) section = section->next; first_subspace = 1; /* Now look for all its subspaces. */ for (subsection = abfd->sections; subsection != NULL; subsection = subsection->next) { if (!som_is_subspace (subsection) || !som_is_container (section, subsection) || (subsection->flags & SEC_ALLOC) == 0) continue; /* If this is the first subspace in the space, and we are building an executable, then take care to make sure all the alignments are correct and update the exec header. */ if (first_subspace && (abfd->flags & (EXEC_P | DYNAMIC))) { /* Demand paged executables have each space aligned to a page boundary. Sharable executables (write-protected text) have just the private (aka data & bss) space aligned to a page boundary. Ugh. Not true for HPUX. The HPUX kernel requires the text to always be page aligned within the file regardless of the executable's type. */ if (abfd->flags & (D_PAGED | DYNAMIC) || (subsection->flags & SEC_CODE) || ((abfd->flags & WP_TEXT) && (subsection->flags & SEC_DATA))) current_offset = SOM_ALIGN (current_offset, PA_PAGESIZE); /* Update the exec header. */ if (subsection->flags & SEC_CODE && exec_header.exec_tfile == 0) { exec_header.exec_tmem = section->vma; exec_header.exec_tfile = current_offset; } if (subsection->flags & SEC_DATA && exec_header.exec_dfile == 0) { exec_header.exec_dmem = section->vma; exec_header.exec_dfile = current_offset; } /* Keep track of exactly where we are within a particular space. This is necessary as the braindamaged HPUX loader will create holes between subspaces *and* subspace alignments are *NOT* preserved. What a crock. */ subspace_offset = subsection->vma; /* Only do this for the first subspace within each space. */ first_subspace = 0; } else if (abfd->flags & (EXEC_P | DYNAMIC)) { /* The braindamaged HPUX loader may have created a hole between two subspaces. It is *not* sufficient to use the alignment specifications within the subspaces to account for these holes -- I've run into at least one case where the loader left one code subspace unaligned in a final executable. To combat this we keep a current offset within each space, and use the subspace vma fields to detect and preserve holes. What a crock! ps. This is not necessary for unloadable space/subspaces. */ current_offset += subsection->vma - subspace_offset; if (subsection->flags & SEC_CODE) exec_header.exec_tsize += subsection->vma - subspace_offset; else exec_header.exec_dsize += subsection->vma - subspace_offset; subspace_offset += subsection->vma - subspace_offset; } subsection->target_index = total_subspaces++; /* This is real data to be loaded from the file. */ if (subsection->flags & SEC_LOAD) { /* Update the size of the code & data. */ if (abfd->flags & (EXEC_P | DYNAMIC) && subsection->flags & SEC_CODE) exec_header.exec_tsize += subsection->_cooked_size; else if (abfd->flags & (EXEC_P | DYNAMIC) && subsection->flags & SEC_DATA) exec_header.exec_dsize += subsection->_cooked_size; som_section_data (subsection)->subspace_dict->file_loc_init_value = current_offset; subsection->filepos = current_offset; current_offset += bfd_section_size (abfd, subsection); subspace_offset += bfd_section_size (abfd, subsection); } /* Looks like uninitialized data. */ else { /* Update the size of the bss section. */ if (abfd->flags & (EXEC_P | DYNAMIC)) exec_header.exec_bsize += subsection->_cooked_size; som_section_data (subsection)->subspace_dict->file_loc_init_value = 0; som_section_data (subsection)->subspace_dict-> initialization_length = 0; } } /* Goto the next section. */ section = section->next; } /* Finally compute the file positions for unloadable subspaces. If building an executable, start the unloadable stuff on its own page. */ if (abfd->flags & (EXEC_P | DYNAMIC)) current_offset = SOM_ALIGN (current_offset, PA_PAGESIZE); obj_som_file_hdr (abfd)->unloadable_sp_location = current_offset; section = abfd->sections; for (i = 0; i < num_spaces; i++) { asection *subsection; /* Find a space. */ while (!som_is_space (section)) section = section->next; if (abfd->flags & (EXEC_P | DYNAMIC)) current_offset = SOM_ALIGN (current_offset, PA_PAGESIZE); /* Now look for all its subspaces. */ for (subsection = abfd->sections; subsection != NULL; subsection = subsection->next) { if (!som_is_subspace (subsection) || !som_is_container (section, subsection) || (subsection->flags & SEC_ALLOC) != 0) continue; subsection->target_index = total_subspaces; /* This is real data to be loaded from the file. */ if ((subsection->flags & SEC_LOAD) == 0) { som_section_data (subsection)->subspace_dict->file_loc_init_value = current_offset; subsection->filepos = current_offset; current_offset += bfd_section_size (abfd, subsection); } /* Looks like uninitialized data. */ else { som_section_data (subsection)->subspace_dict->file_loc_init_value = 0; som_section_data (subsection)->subspace_dict-> initialization_length = bfd_section_size (abfd, subsection); } } /* Goto the next section. */ section = section->next; } /* If building an executable, then make sure to seek to and write one byte at the end of the file to make sure any necessary zeros are filled in. Ugh. */ if (abfd->flags & (EXEC_P | DYNAMIC)) current_offset = SOM_ALIGN (current_offset, PA_PAGESIZE); if (bfd_seek (abfd, current_offset - 1, SEEK_SET) < 0) return false; if (bfd_write ((PTR) "", 1, 1, abfd) != 1) return false; obj_som_file_hdr (abfd)->unloadable_sp_size = current_offset - obj_som_file_hdr (abfd)->unloadable_sp_location; /* Loader fixups are not supported in any way shape or form. */ obj_som_file_hdr (abfd)->loader_fixup_location = 0; obj_som_file_hdr (abfd)->loader_fixup_total = 0; /* Done. Store the total size of the SOM. */ obj_som_file_hdr (abfd)->som_length = current_offset; /* Now write the exec header. */ if (abfd->flags & (EXEC_P | DYNAMIC)) { long tmp; exec_header.exec_entry = bfd_get_start_address (abfd); exec_header.exec_flags = obj_som_exec_data (abfd)->exec_flags; /* Oh joys. Ram some of the BSS data into the DATA section to be compatable with how the hp linker makes objects (saves memory space). */ tmp = exec_header.exec_dsize; tmp = SOM_ALIGN (tmp, PA_PAGESIZE); exec_header.exec_bsize -= (tmp - exec_header.exec_dsize); if (exec_header.exec_bsize < 0) exec_header.exec_bsize = 0; exec_header.exec_dsize = tmp; if (bfd_seek (abfd, obj_som_file_hdr (abfd)->aux_header_location, SEEK_SET) < 0) return false; if (bfd_write ((PTR) &exec_header, AUX_HDR_SIZE, 1, abfd) != AUX_HDR_SIZE) return false; } return true; } /* Finally, scribble out the various headers to the disk. */ static boolean som_write_headers (abfd) bfd *abfd; { int num_spaces = som_count_spaces (abfd); int i; int subspace_index = 0; file_ptr location; asection *section; /* Subspaces are written first so that we can set up information about them in their containing spaces as the subspace is written. */ /* Seek to the start of the subspace dictionary records. */ location = obj_som_file_hdr (abfd)->subspace_location; if (bfd_seek (abfd, location, SEEK_SET) < 0) return false; section = abfd->sections; /* Now for each loadable space write out records for its subspaces. */ for (i = 0; i < num_spaces; i++) { asection *subsection; /* Find a space. */ while (!som_is_space (section)) section = section->next; /* Now look for all its subspaces. */ for (subsection = abfd->sections; subsection != NULL; subsection = subsection->next) { /* Skip any section which does not correspond to a space or subspace. Or does not have SEC_ALLOC set (and therefore has no real bits on the disk). */ if (!som_is_subspace (subsection) || !som_is_container (section, subsection) || (subsection->flags & SEC_ALLOC) == 0) continue; /* If this is the first subspace for this space, then save the index of the subspace in its containing space. Also set "is_loadable" in the containing space. */ if (som_section_data (section)->space_dict->subspace_quantity == 0) { som_section_data (section)->space_dict->is_loadable = 1; som_section_data (section)->space_dict->subspace_index = subspace_index; } /* Increment the number of subspaces seen and the number of subspaces contained within the current space. */ subspace_index++; som_section_data (section)->space_dict->subspace_quantity++; /* Mark the index of the current space within the subspace's dictionary record. */ som_section_data (subsection)->subspace_dict->space_index = i; /* Dump the current subspace header. */ if (bfd_write ((PTR) som_section_data (subsection)->subspace_dict, sizeof (struct subspace_dictionary_record), 1, abfd) != sizeof (struct subspace_dictionary_record)) return false; } /* Goto the next section. */ section = section->next; } /* Now repeat the process for unloadable subspaces. */ section = abfd->sections; /* Now for each space write out records for its subspaces. */ for (i = 0; i < num_spaces; i++) { asection *subsection; /* Find a space. */ while (!som_is_space (section)) section = section->next; /* Now look for all its subspaces. */ for (subsection = abfd->sections; subsection != NULL; subsection = subsection->next) { /* Skip any section which does not correspond to a space or subspace, or which SEC_ALLOC set (and therefore handled in the loadable spaces/subspaces code above). */ if (!som_is_subspace (subsection) || !som_is_container (section, subsection) || (subsection->flags & SEC_ALLOC) != 0) continue; /* If this is the first subspace for this space, then save the index of the subspace in its containing space. Clear "is_loadable". */ if (som_section_data (section)->space_dict->subspace_quantity == 0) { som_section_data (section)->space_dict->is_loadable = 0; som_section_data (section)->space_dict->subspace_index = subspace_index; } /* Increment the number of subspaces seen and the number of subspaces contained within the current space. */ som_section_data (section)->space_dict->subspace_quantity++; subspace_index++; /* Mark the index of the current space within the subspace's dictionary record. */ som_section_data (subsection)->subspace_dict->space_index = i; /* Dump this subspace header. */ if (bfd_write ((PTR) som_section_data (subsection)->subspace_dict, sizeof (struct subspace_dictionary_record), 1, abfd) != sizeof (struct subspace_dictionary_record)) return false; } /* Goto the next section. */ section = section->next; } /* All the subspace dictiondary records are written, and all the fields are set up in the space dictionary records. Seek to the right location and start writing the space dictionary records. */ location = obj_som_file_hdr (abfd)->space_location; if (bfd_seek (abfd, location, SEEK_SET) < 0) return false; section = abfd->sections; for (i = 0; i < num_spaces; i++) { /* Find a space. */ while (!som_is_space (section)) section = section->next; /* Dump its header */ if (bfd_write ((PTR) som_section_data (section)->space_dict, sizeof (struct space_dictionary_record), 1, abfd) != sizeof (struct space_dictionary_record)) return false; /* Goto the next section. */ section = section->next; } /* FIXME. This should really be conditional based on whether or not PA1.1 instructions/registers have been used. Setting of the system_id has to happen very late now that copying of BFD private data happens *after* section contents are set. */ if (abfd->flags & (EXEC_P | DYNAMIC)) obj_som_file_hdr(abfd)->system_id = obj_som_exec_data (abfd)->system_id; else obj_som_file_hdr(abfd)->system_id = CPU_PA_RISC1_0; /* Compute the checksum for the file header just before writing the header to disk. */ obj_som_file_hdr (abfd)->checksum = som_compute_checksum (abfd); /* Only thing left to do is write out the file header. It is always at location zero. Seek there and write it. */ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) < 0) return false; if (bfd_write ((PTR) obj_som_file_hdr (abfd), sizeof (struct header), 1, abfd) != sizeof (struct header)) return false; return true; } /* Compute and return the checksum for a SOM file header. */ static unsigned long som_compute_checksum (abfd) bfd *abfd; { unsigned long checksum, count, i; unsigned long *buffer = (unsigned long *) obj_som_file_hdr (abfd); checksum = 0; count = sizeof (struct header) / sizeof (unsigned long); for (i = 0; i < count; i++) checksum ^= *(buffer + i); return checksum; } static void som_bfd_derive_misc_symbol_info (abfd, sym, info) bfd *abfd; asymbol *sym; struct som_misc_symbol_info *info; { /* Initialize. */ memset (info, 0, sizeof (struct som_misc_symbol_info)); /* The HP SOM linker requires detailed type information about all symbols (including undefined symbols!). Unfortunately, the type specified in an import/export statement does not always match what the linker wants. Severe braindamage. */ /* Section symbols will not have a SOM symbol type assigned to them yet. Assign all section symbols type ST_DATA. */ if (sym->flags & BSF_SECTION_SYM) info->symbol_type = ST_DATA; else { /* Common symbols must have scope SS_UNSAT and type ST_STORAGE or the linker will choke. */ if (bfd_is_com_section (sym->section)) { info->symbol_scope = SS_UNSAT; info->symbol_type = ST_STORAGE; } /* It is possible to have a symbol without an associated type. This happens if the user imported the symbol without a type and the symbol was never defined locally. If BSF_FUNCTION is set for this symbol, then assign it type ST_CODE (the HP linker requires undefined external functions to have type ST_CODE rather than ST_ENTRY). */ else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_UNKNOWN && bfd_is_und_section (sym->section) && sym->flags & BSF_FUNCTION) info->symbol_type = ST_CODE; /* Handle function symbols which were defined in this file. They should have type ST_ENTRY. Also retrieve the argument relocation bits from the SOM backend information. */ else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_ENTRY || (som_symbol_data (sym)->som_type == SYMBOL_TYPE_CODE && (sym->flags & BSF_FUNCTION)) || (som_symbol_data (sym)->som_type == SYMBOL_TYPE_UNKNOWN && (sym->flags & BSF_FUNCTION))) { info->symbol_type = ST_ENTRY; info->arg_reloc = som_symbol_data (sym)->tc_data.hppa_arg_reloc; } /* If the type is unknown at this point, it should be ST_DATA (functions were handled as special cases above). */ else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_UNKNOWN) info->symbol_type = ST_DATA; /* From now on it's a very simple mapping. */ else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_ABSOLUTE) info->symbol_type = ST_ABSOLUTE; else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_CODE) info->symbol_type = ST_CODE; else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_DATA) info->symbol_type = ST_DATA; else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_MILLICODE) info->symbol_type = ST_MILLICODE; else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_PLABEL) info->symbol_type = ST_PLABEL; else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_PRI_PROG) info->symbol_type = ST_PRI_PROG; else if (som_symbol_data (sym)->som_type == SYMBOL_TYPE_SEC_PROG) info->symbol_type = ST_SEC_PROG; } /* Now handle the symbol's scope. Exported data which is not in the common section has scope SS_UNIVERSAL. Note scope of common symbols was handled earlier! */ if (sym->flags & BSF_EXPORT && ! bfd_is_com_section (sym->section)) info->symbol_scope = SS_UNIVERSAL; /* Any undefined symbol at this point has a scope SS_UNSAT. */ else if (bfd_is_und_section (sym->section)) info->symbol_scope = SS_UNSAT; /* Anything else which is not in the common section has scope SS_LOCAL. */ else if (! bfd_is_com_section (sym->section)) info->symbol_scope = SS_LOCAL; /* Now set the symbol_info field. It has no real meaning for undefined or common symbols, but the HP linker will choke if it's not set to some "reasonable" value. We use zero as a reasonable value. */ if (bfd_is_com_section (sym->section) || bfd_is_und_section (sym->section) || bfd_is_abs_section (sym->section)) info->symbol_info = 0; /* For all other symbols, the symbol_info field contains the subspace index of the space this symbol is contained in. */ else info->symbol_info = sym->section->target_index; /* Set the symbol's value. */ info->symbol_value = sym->value + sym->section->vma; } /* Build and write, in one big chunk, the entire symbol table for this BFD. */ static boolean som_build_and_write_symbol_table (abfd) bfd *abfd; { unsigned int num_syms = bfd_get_symcount (abfd); file_ptr symtab_location = obj_som_file_hdr (abfd)->symbol_location; asymbol **bfd_syms = bfd_get_outsymbols (abfd); struct symbol_dictionary_record *som_symtab = NULL; int i, symtab_size; /* Compute total symbol table size and allocate a chunk of memory to hold the symbol table as we build it. */ symtab_size = num_syms * sizeof (struct symbol_dictionary_record); som_symtab = (struct symbol_dictionary_record *) malloc (symtab_size); if (som_symtab == NULL && symtab_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } memset (som_symtab, 0, symtab_size); /* Walk over each symbol. */ for (i = 0; i < num_syms; i++) { struct som_misc_symbol_info info; /* This is really an index into the symbol strings table. By the time we get here, the index has already been computed and stored into the name field in the BFD symbol. */ som_symtab[i].name.n_strx = (int) bfd_syms[i]->name; /* Derive SOM information from the BFD symbol. */ som_bfd_derive_misc_symbol_info (abfd, bfd_syms[i], &info); /* Now use it. */ som_symtab[i].symbol_type = info.symbol_type; som_symtab[i].symbol_scope = info.symbol_scope; som_symtab[i].arg_reloc = info.arg_reloc; som_symtab[i].symbol_info = info.symbol_info; som_symtab[i].symbol_value = info.symbol_value; } /* Everything is ready, seek to the right location and scribble out the symbol table. */ if (bfd_seek (abfd, symtab_location, SEEK_SET) != 0) return false; if (bfd_write ((PTR) som_symtab, symtab_size, 1, abfd) != symtab_size) goto error_return; if (som_symtab != NULL) free (som_symtab); return true; error_return: if (som_symtab != NULL) free (som_symtab); return false; } /* Write an object in SOM format. */ static boolean som_write_object_contents (abfd) bfd *abfd; { if (abfd->output_has_begun == false) { /* Set up fixed parts of the file, space, and subspace headers. Notify the world that output has begun. */ som_prep_headers (abfd); abfd->output_has_begun = true; /* Start writing the object file. This include all the string tables, fixup streams, and other portions of the object file. */ som_begin_writing (abfd); } /* Now that the symbol table information is complete, build and write the symbol table. */ if (som_build_and_write_symbol_table (abfd) == false) return false; return (som_write_headers (abfd)); } /* Read and save the string table associated with the given BFD. */ static boolean som_slurp_string_table (abfd) bfd *abfd; { char *stringtab; /* Use the saved version if its available. */ if (obj_som_stringtab (abfd) != NULL) return true; /* I don't think this can currently happen, and I'm not sure it should really be an error, but it's better than getting unpredictable results from the host's malloc when passed a size of zero. */ if (obj_som_stringtab_size (abfd) == 0) { bfd_set_error (bfd_error_no_symbols); return false; } /* Allocate and read in the string table. */ stringtab = malloc (obj_som_stringtab_size (abfd)); if (stringtab == NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_seek (abfd, obj_som_str_filepos (abfd), SEEK_SET) < 0) return false; if (bfd_read (stringtab, obj_som_stringtab_size (abfd), 1, abfd) != obj_som_stringtab_size (abfd)) return false; /* Save our results and return success. */ obj_som_stringtab (abfd) = stringtab; return true; } /* Return the amount of data (in bytes) required to hold the symbol table for this object. */ static long som_get_symtab_upper_bound (abfd) bfd *abfd; { if (!som_slurp_symbol_table (abfd)) return -1; return (bfd_get_symcount (abfd) + 1) * (sizeof (asymbol *)); } /* Convert from a SOM subspace index to a BFD section. */ static asection * bfd_section_from_som_symbol (abfd, symbol) bfd *abfd; struct symbol_dictionary_record *symbol; { asection *section; /* The meaning of the symbol_info field changes for functions within executables. So only use the quick symbol_info mapping for incomplete objects and non-function symbols in executables. */ if ((abfd->flags & (EXEC_P | DYNAMIC)) == 0 || (symbol->symbol_type != ST_ENTRY && symbol->symbol_type != ST_PRI_PROG && symbol->symbol_type != ST_SEC_PROG && symbol->symbol_type != ST_MILLICODE)) { unsigned int index = symbol->symbol_info; for (section = abfd->sections; section != NULL; section = section->next) if (section->target_index == index) return section; /* Should never happen. */ abort(); } else { unsigned int value = symbol->symbol_value; /* For executables we will have to use the symbol's address and find out what section would contain that address. Yuk. */ for (section = abfd->sections; section; section = section->next) { if (value >= section->vma && value <= section->vma + section->_cooked_size) return section; } /* Should never happen. */ abort (); } } /* Read and save the symbol table associated with the given BFD. */ static unsigned int som_slurp_symbol_table (abfd) bfd *abfd; { int symbol_count = bfd_get_symcount (abfd); int symsize = sizeof (struct symbol_dictionary_record); char *stringtab; struct symbol_dictionary_record *buf = NULL, *bufp, *endbufp; som_symbol_type *sym, *symbase; /* Return saved value if it exists. */ if (obj_som_symtab (abfd) != NULL) goto successful_return; /* Special case. This is *not* an error. */ if (symbol_count == 0) goto successful_return; if (!som_slurp_string_table (abfd)) goto error_return; stringtab = obj_som_stringtab (abfd); symbase = (som_symbol_type *) malloc (symbol_count * sizeof (som_symbol_type)); if (symbase == NULL) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* Read in the external SOM representation. */ buf = malloc (symbol_count * symsize); if (buf == NULL && symbol_count * symsize != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_seek (abfd, obj_som_sym_filepos (abfd), SEEK_SET) < 0) goto error_return; if (bfd_read (buf, symbol_count * symsize, 1, abfd) != symbol_count * symsize) goto error_return; /* Iterate over all the symbols and internalize them. */ endbufp = buf + symbol_count; for (bufp = buf, sym = symbase; bufp < endbufp; ++bufp) { /* I don't think we care about these. */ if (bufp->symbol_type == ST_SYM_EXT || bufp->symbol_type == ST_ARG_EXT) continue; /* Set some private data we care about. */ if (bufp->symbol_type == ST_NULL) som_symbol_data (sym)->som_type = SYMBOL_TYPE_UNKNOWN; else if (bufp->symbol_type == ST_ABSOLUTE) som_symbol_data (sym)->som_type = SYMBOL_TYPE_ABSOLUTE; else if (bufp->symbol_type == ST_DATA) som_symbol_data (sym)->som_type = SYMBOL_TYPE_DATA; else if (bufp->symbol_type == ST_CODE) som_symbol_data (sym)->som_type = SYMBOL_TYPE_CODE; else if (bufp->symbol_type == ST_PRI_PROG) som_symbol_data (sym)->som_type = SYMBOL_TYPE_PRI_PROG; else if (bufp->symbol_type == ST_SEC_PROG) som_symbol_data (sym)->som_type = SYMBOL_TYPE_SEC_PROG; else if (bufp->symbol_type == ST_ENTRY) som_symbol_data (sym)->som_type = SYMBOL_TYPE_ENTRY; else if (bufp->symbol_type == ST_MILLICODE) som_symbol_data (sym)->som_type = SYMBOL_TYPE_MILLICODE; else if (bufp->symbol_type == ST_PLABEL) som_symbol_data (sym)->som_type = SYMBOL_TYPE_PLABEL; else som_symbol_data (sym)->som_type = SYMBOL_TYPE_UNKNOWN; som_symbol_data (sym)->tc_data.hppa_arg_reloc = bufp->arg_reloc; /* Some reasonable defaults. */ sym->symbol.the_bfd = abfd; sym->symbol.name = bufp->name.n_strx + stringtab; sym->symbol.value = bufp->symbol_value; sym->symbol.section = 0; sym->symbol.flags = 0; switch (bufp->symbol_type) { case ST_ENTRY: case ST_PRI_PROG: case ST_SEC_PROG: case ST_MILLICODE: sym->symbol.flags |= BSF_FUNCTION; sym->symbol.value &= ~0x3; break; case ST_STUB: case ST_CODE: sym->symbol.value &= ~0x3; default: break; } /* Handle scoping and section information. */ switch (bufp->symbol_scope) { /* symbol_info field is undefined for SS_EXTERNAL and SS_UNSAT symbols, so the section associated with this symbol can't be known. */ case SS_EXTERNAL: if (bufp->symbol_type != ST_STORAGE) sym->symbol.section = bfd_und_section_ptr; else sym->symbol.section = bfd_com_section_ptr; sym->symbol.flags |= (BSF_EXPORT | BSF_GLOBAL); break; case SS_UNSAT: if (bufp->symbol_type != ST_STORAGE) sym->symbol.section = bfd_und_section_ptr; else sym->symbol.section = bfd_com_section_ptr; break; case SS_UNIVERSAL: sym->symbol.flags |= (BSF_EXPORT | BSF_GLOBAL); sym->symbol.section = bfd_section_from_som_symbol (abfd, bufp); sym->symbol.value -= sym->symbol.section->vma; break; #if 0 /* SS_GLOBAL and SS_LOCAL are two names for the same thing. Sound dumb? It is. */ case SS_GLOBAL: #endif case SS_LOCAL: sym->symbol.flags |= BSF_LOCAL; sym->symbol.section = bfd_section_from_som_symbol (abfd, bufp); sym->symbol.value -= sym->symbol.section->vma; break; } /* Mark section symbols and symbols used by the debugger. */ if (sym->symbol.name[0] == '$' && sym->symbol.name[strlen (sym->symbol.name) - 1] == '$') sym->symbol.flags |= BSF_SECTION_SYM; else if (!strncmp (sym->symbol.name, "L$0\002", 4)) { sym->symbol.flags |= BSF_SECTION_SYM; sym->symbol.name = sym->symbol.section->name; } else if (!strncmp (sym->symbol.name, "L$0\001", 4)) sym->symbol.flags |= BSF_DEBUGGING; /* Note increment at bottom of loop, since we skip some symbols we can not include it as part of the for statement. */ sym++; } /* Save our results and return success. */ obj_som_symtab (abfd) = symbase; successful_return: if (buf != NULL) free (buf); return (true); error_return: if (buf != NULL) free (buf); return false; } /* Canonicalize a SOM symbol table. Return the number of entries in the symbol table. */ static long som_get_symtab (abfd, location) bfd *abfd; asymbol **location; { int i; som_symbol_type *symbase; if (!som_slurp_symbol_table (abfd)) return -1; i = bfd_get_symcount (abfd); symbase = obj_som_symtab (abfd); for (; i > 0; i--, location++, symbase++) *location = &symbase->symbol; /* Final null pointer. */ *location = 0; return (bfd_get_symcount (abfd)); } /* Make a SOM symbol. There is nothing special to do here. */ static asymbol * som_make_empty_symbol (abfd) bfd *abfd; { som_symbol_type *new = (som_symbol_type *) bfd_zalloc (abfd, sizeof (som_symbol_type)); if (new == NULL) { bfd_set_error (bfd_error_no_memory); return 0; } new->symbol.the_bfd = abfd; return &new->symbol; } /* Print symbol information. */ static void som_print_symbol (ignore_abfd, afile, symbol, how) bfd *ignore_abfd; PTR afile; asymbol *symbol; bfd_print_symbol_type how; { FILE *file = (FILE *) afile; switch (how) { case bfd_print_symbol_name: fprintf (file, "%s", symbol->name); break; case bfd_print_symbol_more: fprintf (file, "som "); fprintf_vma (file, symbol->value); fprintf (file, " %lx", (long) symbol->flags); break; case bfd_print_symbol_all: { CONST char *section_name; section_name = symbol->section ? symbol->section->name : "(*none*)"; bfd_print_symbol_vandf ((PTR) file, symbol); fprintf (file, " %s\t%s", section_name, symbol->name); break; } } } static boolean som_bfd_is_local_label (abfd, sym) bfd *abfd; asymbol *sym; { return (sym->name[0] == 'L' && sym->name[1] == '$'); } /* Count or process variable-length SOM fixup records. To avoid code duplication we use this code both to compute the number of relocations requested by a stream, and to internalize the stream. When computing the number of relocations requested by a stream the variables rptr, section, and symbols have no meaning. Return the number of relocations requested by the fixup stream. When not just counting This needs at least two or three more passes to get it cleaned up. */ static unsigned int som_set_reloc_info (fixup, end, internal_relocs, section, symbols, just_count) unsigned char *fixup; unsigned int end; arelent *internal_relocs; asection *section; asymbol **symbols; boolean just_count; { unsigned int op, varname; unsigned char *end_fixups = &fixup[end]; const struct fixup_format *fp; char *cp; unsigned char *save_fixup; int variables[26], stack[20], c, v, count, prev_fixup, *sp; const int *subop; arelent *rptr= internal_relocs; unsigned int offset = just_count ? 0 : section->vma; #define var(c) variables[(c) - 'A'] #define push(v) (*sp++ = (v)) #define pop() (*--sp) #define emptystack() (sp == stack) som_initialize_reloc_queue (reloc_queue); memset (variables, 0, sizeof (variables)); memset (stack, 0, sizeof (stack)); count = 0; prev_fixup = 0; sp = stack; while (fixup < end_fixups) { /* Save pointer to the start of this fixup. We'll use it later to determine if it is necessary to put this fixup on the queue. */ save_fixup = fixup; /* Get the fixup code and its associated format. */ op = *fixup++; fp = &som_fixup_formats[op]; /* Handle a request for a previous fixup. */ if (*fp->format == 'P') { /* Get pointer to the beginning of the prev fixup, move the repeated fixup to the head of the queue. */ fixup = reloc_queue[fp->D].reloc; som_reloc_queue_fix (reloc_queue, fp->D); prev_fixup = 1; /* Get the fixup code and its associated format. */ op = *fixup++; fp = &som_fixup_formats[op]; } /* If this fixup will be passed to BFD, set some reasonable defaults. */ if (! just_count && som_hppa_howto_table[op].type != R_NO_RELOCATION && som_hppa_howto_table[op].type != R_DATA_OVERRIDE) { rptr->address = offset; rptr->howto = &som_hppa_howto_table[op]; rptr->addend = 0; rptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; } /* Set default input length to 0. Get the opcode class index into D. */ var ('L') = 0; var ('D') = fp->D; /* Get the opcode format. */ cp = fp->format; /* Process the format string. Parsing happens in two phases, parse RHS, then assign to LHS. Repeat until no more characters in the format string. */ while (*cp) { /* The variable this pass is going to compute a value for. */ varname = *cp++; /* Start processing RHS. Continue until a NULL or '=' is found. */ do { c = *cp++; /* If this is a variable, push it on the stack. */ if (isupper (c)) push (var (c)); /* If this is a lower case letter, then it represents additional data from the fixup stream to be pushed onto the stack. */ else if (islower (c)) { for (v = 0; c > 'a'; --c) v = (v << 8) | *fixup++; push (v); } /* A decimal constant. Push it on the stack. */ else if (isdigit (c)) { v = c - '0'; while (isdigit (*cp)) v = (v * 10) + (*cp++ - '0'); push (v); } else /* An operator. Pop two two values from the stack and use them as operands to the given operation. Push the result of the operation back on the stack. */ switch (c) { case '+': v = pop (); v += pop (); push (v); break; case '*': v = pop (); v *= pop (); push (v); break; case '<': v = pop (); v = pop () << v; push (v); break; default: abort (); } } while (*cp && *cp != '='); /* Move over the equal operator. */ cp++; /* Pop the RHS off the stack. */ c = pop (); /* Perform the assignment. */ var (varname) = c; /* Handle side effects. and special 'O' stack cases. */ switch (varname) { /* Consume some bytes from the input space. */ case 'L': offset += c; break; /* A symbol to use in the relocation. Make a note of this if we are not just counting. */ case 'S': if (! just_count) rptr->sym_ptr_ptr = &symbols[c]; break; /* Handle the linker expression stack. */ case 'O': switch (op) { case R_COMP1: subop = comp1_opcodes; break; case R_COMP2: subop = comp2_opcodes; break; case R_COMP3: subop = comp3_opcodes; break; default: abort (); } while (*subop <= (unsigned char) c) ++subop; --subop; break; default: break; } } /* If we used a previous fixup, clean up after it. */ if (prev_fixup) { fixup = save_fixup + 1; prev_fixup = 0; } /* Queue it. */ else if (fixup > save_fixup + 1) som_reloc_queue_insert (save_fixup, fixup - save_fixup, reloc_queue); /* We do not pass R_DATA_OVERRIDE or R_NO_RELOCATION fixups to BFD. */ if (som_hppa_howto_table[op].type != R_DATA_OVERRIDE && som_hppa_howto_table[op].type != R_NO_RELOCATION) { /* Done with a single reloction. Loop back to the top. */ if (! just_count) { rptr->addend = var ('V'); rptr++; } count++; /* Now that we've handled a "full" relocation, reset some state. */ memset (variables, 0, sizeof (variables)); memset (stack, 0, sizeof (stack)); } } return count; #undef var #undef push #undef pop #undef emptystack } /* Read in the relocs (aka fixups in SOM terms) for a section. som_get_reloc_upper_bound calls this routine with JUST_COUNT set to true to indicate it only needs a count of the number of actual relocations. */ static boolean som_slurp_reloc_table (abfd, section, symbols, just_count) bfd *abfd; asection *section; asymbol **symbols; boolean just_count; { char *external_relocs; unsigned int fixup_stream_size; arelent *internal_relocs; unsigned int num_relocs; fixup_stream_size = som_section_data (section)->reloc_size; /* If there were no relocations, then there is nothing to do. */ if (section->reloc_count == 0) return true; /* If reloc_count is -1, then the relocation stream has not been parsed. We must do so now to know how many relocations exist. */ if (section->reloc_count == -1) { external_relocs = (char *) malloc (fixup_stream_size); if (external_relocs == (char *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* Read in the external forms. */ if (bfd_seek (abfd, obj_som_reloc_filepos (abfd) + section->rel_filepos, SEEK_SET) != 0) return false; if (bfd_read (external_relocs, 1, fixup_stream_size, abfd) != fixup_stream_size) return false; /* Let callers know how many relocations found. also save the relocation stream as we will need it again. */ section->reloc_count = som_set_reloc_info (external_relocs, fixup_stream_size, NULL, NULL, NULL, true); som_section_data (section)->reloc_stream = external_relocs; } /* If the caller only wanted a count, then return now. */ if (just_count) return true; num_relocs = section->reloc_count; external_relocs = som_section_data (section)->reloc_stream; /* Return saved information about the relocations if it is available. */ if (section->relocation != (arelent *) NULL) return true; internal_relocs = (arelent *) malloc (num_relocs * sizeof (arelent)); if (internal_relocs == (arelent *) NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* Process and internalize the relocations. */ som_set_reloc_info (external_relocs, fixup_stream_size, internal_relocs, section, symbols, false); /* Save our results and return success. */ section->relocation = internal_relocs; return (true); } /* Return the number of bytes required to store the relocation information associated with the given section. */ static long som_get_reloc_upper_bound (abfd, asect) bfd *abfd; sec_ptr asect; { /* If section has relocations, then read in the relocation stream and parse it to determine how many relocations exist. */ if (asect->flags & SEC_RELOC) { if (! som_slurp_reloc_table (abfd, asect, NULL, true)) return false; return (asect->reloc_count + 1) * sizeof (arelent); } /* There are no relocations. */ return 0; } /* Convert relocations from SOM (external) form into BFD internal form. Return the number of relocations. */ static long som_canonicalize_reloc (abfd, section, relptr, symbols) bfd *abfd; sec_ptr section; arelent **relptr; asymbol **symbols; { arelent *tblptr; int count; if (som_slurp_reloc_table (abfd, section, symbols, false) == false) return -1; count = section->reloc_count; tblptr = section->relocation; while (count--) *relptr++ = tblptr++; *relptr = (arelent *) NULL; return section->reloc_count; } extern const bfd_target som_vec; /* A hook to set up object file dependent section information. */ static boolean som_new_section_hook (abfd, newsect) bfd *abfd; asection *newsect; { newsect->used_by_bfd = (PTR) bfd_zalloc (abfd, sizeof (struct som_section_data_struct)); if (!newsect->used_by_bfd) { bfd_set_error (bfd_error_no_memory); return false; } newsect->alignment_power = 3; /* We allow more than three sections internally */ return true; } /* Copy any private info we understand from the input section to the output section. */ static boolean som_bfd_copy_private_section_data (ibfd, isection, obfd, osection) bfd *ibfd; asection *isection; bfd *obfd; asection *osection; { /* One day we may try to grok other private data. */ if (ibfd->xvec->flavour != bfd_target_som_flavour || obfd->xvec->flavour != bfd_target_som_flavour || (!som_is_space (isection) && !som_is_subspace (isection))) return false; som_section_data (osection)->copy_data = (struct som_copyable_section_data_struct *) bfd_zalloc (obfd, sizeof (struct som_copyable_section_data_struct)); if (som_section_data (osection)->copy_data == NULL) { bfd_set_error (bfd_error_no_memory); return false; } memcpy (som_section_data (osection)->copy_data, som_section_data (isection)->copy_data, sizeof (struct som_copyable_section_data_struct)); /* Reparent if necessary. */ if (som_section_data (osection)->copy_data->container) som_section_data (osection)->copy_data->container = som_section_data (osection)->copy_data->container->output_section; return true; } /* Copy any private info we understand from the input bfd to the output bfd. */ static boolean som_bfd_copy_private_bfd_data (ibfd, obfd) bfd *ibfd, *obfd; { /* One day we may try to grok other private data. */ if (ibfd->xvec->flavour != bfd_target_som_flavour || obfd->xvec->flavour != bfd_target_som_flavour) return false; /* Allocate some memory to hold the data we need. */ obj_som_exec_data (obfd) = (struct som_exec_data *) bfd_zalloc (obfd, sizeof (struct som_exec_data)); if (obj_som_exec_data (obfd) == NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* Now copy the data. */ memcpy (obj_som_exec_data (obfd), obj_som_exec_data (ibfd), sizeof (struct som_exec_data)); return true; } /* Set backend info for sections which can not be described in the BFD data structures. */ boolean bfd_som_set_section_attributes (section, defined, private, sort_key, spnum) asection *section; int defined; int private; unsigned int sort_key; int spnum; { /* Allocate memory to hold the magic information. */ if (som_section_data (section)->copy_data == NULL) { som_section_data (section)->copy_data = (struct som_copyable_section_data_struct *) bfd_zalloc (section->owner, sizeof (struct som_copyable_section_data_struct)); if (som_section_data (section)->copy_data == NULL) { bfd_set_error (bfd_error_no_memory); return false; } } som_section_data (section)->copy_data->sort_key = sort_key; som_section_data (section)->copy_data->is_defined = defined; som_section_data (section)->copy_data->is_private = private; som_section_data (section)->copy_data->container = section; som_section_data (section)->copy_data->space_number = spnum; return true; } /* Set backend info for subsections which can not be described in the BFD data structures. */ boolean bfd_som_set_subsection_attributes (section, container, access, sort_key, quadrant) asection *section; asection *container; int access; unsigned int sort_key; int quadrant; { /* Allocate memory to hold the magic information. */ if (som_section_data (section)->copy_data == NULL) { som_section_data (section)->copy_data = (struct som_copyable_section_data_struct *) bfd_zalloc (section->owner, sizeof (struct som_copyable_section_data_struct)); if (som_section_data (section)->copy_data == NULL) { bfd_set_error (bfd_error_no_memory); return false; } } som_section_data (section)->copy_data->sort_key = sort_key; som_section_data (section)->copy_data->access_control_bits = access; som_section_data (section)->copy_data->quadrant = quadrant; som_section_data (section)->copy_data->container = container; return true; } /* Set the full SOM symbol type. SOM needs far more symbol information than any other object file format I'm aware of. It is mandatory to be able to know if a symbol is an entry point, millicode, data, code, absolute, storage request, or procedure label. If you get the symbol type wrong your program will not link. */ void bfd_som_set_symbol_type (symbol, type) asymbol *symbol; unsigned int type; { som_symbol_data (symbol)->som_type = type; } /* Attach 64bits of unwind information to a symbol (which hopefully is a function of some kind!). It would be better to keep this in the R_ENTRY relocation, but there is not enough space. */ void bfd_som_attach_unwind_info (symbol, unwind_desc) asymbol *symbol; char *unwind_desc; { som_symbol_data (symbol)->unwind = unwind_desc; } /* Attach an auxiliary header to the BFD backend so that it may be written into the object file. */ boolean bfd_som_attach_aux_hdr (abfd, type, string) bfd *abfd; int type; char *string; { if (type == VERSION_AUX_ID) { int len = strlen (string); int pad = 0; if (len % 4) pad = (4 - (len % 4)); obj_som_version_hdr (abfd) = (struct user_string_aux_hdr *) bfd_zalloc (abfd, sizeof (struct aux_id) + sizeof (unsigned int) + len + pad); if (!obj_som_version_hdr (abfd)) { bfd_set_error (bfd_error_no_memory); return false; } obj_som_version_hdr (abfd)->header_id.type = VERSION_AUX_ID; obj_som_version_hdr (abfd)->header_id.length = len + pad; obj_som_version_hdr (abfd)->header_id.length += sizeof (int); obj_som_version_hdr (abfd)->string_length = len; strncpy (obj_som_version_hdr (abfd)->user_string, string, len); } else if (type == COPYRIGHT_AUX_ID) { int len = strlen (string); int pad = 0; if (len % 4) pad = (4 - (len % 4)); obj_som_copyright_hdr (abfd) = (struct copyright_aux_hdr *) bfd_zalloc (abfd, sizeof (struct aux_id) + sizeof (unsigned int) + len + pad); if (!obj_som_copyright_hdr (abfd)) { bfd_set_error (bfd_error_no_memory); return false; } obj_som_copyright_hdr (abfd)->header_id.type = COPYRIGHT_AUX_ID; obj_som_copyright_hdr (abfd)->header_id.length = len + pad; obj_som_copyright_hdr (abfd)->header_id.length += sizeof (int); obj_som_copyright_hdr (abfd)->string_length = len; strcpy (obj_som_copyright_hdr (abfd)->copyright, string); } return true; } static boolean som_get_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { if (count == 0 || ((section->flags & (SEC_LOAD | SEC_DEBUGGING)) == 0)) return true; if ((bfd_size_type)(offset+count) > section->_raw_size || bfd_seek (abfd, (file_ptr)(section->filepos + offset), SEEK_SET) == -1 || bfd_read (location, (bfd_size_type)1, count, abfd) != count) return (false); /* on error */ return (true); } static boolean som_set_section_contents (abfd, section, location, offset, count) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type count; { if (abfd->output_has_begun == false) { /* Set up fixed parts of the file, space, and subspace headers. Notify the world that output has begun. */ som_prep_headers (abfd); abfd->output_has_begun = true; /* Start writing the object file. This include all the string tables, fixup streams, and other portions of the object file. */ som_begin_writing (abfd); } /* Only write subspaces which have "real" contents (eg. the contents are not generated at run time by the OS). */ if (!som_is_subspace (section) || ((section->flags & (SEC_LOAD | SEC_DEBUGGING)) == 0)) return true; /* Seek to the proper offset within the object file and write the data. */ offset += som_section_data (section)->subspace_dict->file_loc_init_value; if (bfd_seek (abfd, offset, SEEK_SET) == -1) return false; if (bfd_write ((PTR) location, 1, count, abfd) != count) return false; return true; } static boolean som_set_arch_mach (abfd, arch, machine) bfd *abfd; enum bfd_architecture arch; unsigned long machine; { /* Allow any architecture to be supported by the SOM backend */ return bfd_default_set_arch_mach (abfd, arch, machine); } static boolean som_find_nearest_line (abfd, section, symbols, offset, filename_ptr, functionname_ptr, line_ptr) bfd *abfd; asection *section; asymbol **symbols; bfd_vma offset; CONST char **filename_ptr; CONST char **functionname_ptr; unsigned int *line_ptr; { fprintf (stderr, "som_find_nearest_line unimplemented\n"); fflush (stderr); abort (); return (false); } static int som_sizeof_headers (abfd, reloc) bfd *abfd; boolean reloc; { fprintf (stderr, "som_sizeof_headers unimplemented\n"); fflush (stderr); abort (); return (0); } /* Return the single-character symbol type corresponding to SOM section S, or '?' for an unknown SOM section. */ static char som_section_type (s) const char *s; { const struct section_to_type *t; for (t = &stt[0]; t->section; t++) if (!strcmp (s, t->section)) return t->type; return '?'; } static int som_decode_symclass (symbol) asymbol *symbol; { char c; if (bfd_is_com_section (symbol->section)) return 'C'; if (bfd_is_und_section (symbol->section)) return 'U'; if (bfd_is_ind_section (symbol->section)) return 'I'; if (!(symbol->flags & (BSF_GLOBAL|BSF_LOCAL))) return '?'; if (bfd_is_abs_section (symbol->section)) c = 'a'; else if (symbol->section) c = som_section_type (symbol->section->name); else return '?'; if (symbol->flags & BSF_GLOBAL) c = toupper (c); return c; } /* Return information about SOM symbol SYMBOL in RET. */ static void som_get_symbol_info (ignore_abfd, symbol, ret) bfd *ignore_abfd; asymbol *symbol; symbol_info *ret; { ret->type = som_decode_symclass (symbol); if (ret->type != 'U') ret->value = symbol->value+symbol->section->vma; else ret->value = 0; ret->name = symbol->name; } /* Count the number of symbols in the archive symbol table. Necessary so that we can allocate space for all the carsyms at once. */ static boolean som_bfd_count_ar_symbols (abfd, lst_header, count) bfd *abfd; struct lst_header *lst_header; symindex *count; { unsigned int i; unsigned int *hash_table = NULL; file_ptr lst_filepos = bfd_tell (abfd) - sizeof (struct lst_header); hash_table = (unsigned int *) malloc (lst_header->hash_size * sizeof (unsigned int)); if (hash_table == NULL && lst_header->hash_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* Don't forget to initialize the counter! */ *count = 0; /* Read in the hash table. The has table is an array of 32bit file offsets which point to the hash chains. */ if (bfd_read ((PTR) hash_table, lst_header->hash_size, 4, abfd) != lst_header->hash_size * 4) goto error_return; /* Walk each chain counting the number of symbols found on that particular chain. */ for (i = 0; i < lst_header->hash_size; i++) { struct lst_symbol_record lst_symbol; /* An empty chain has zero as it's file offset. */ if (hash_table[i] == 0) continue; /* Seek to the first symbol in this hash chain. */ if (bfd_seek (abfd, lst_filepos + hash_table[i], SEEK_SET) < 0) goto error_return; /* Read in this symbol and update the counter. */ if (bfd_read ((PTR) & lst_symbol, 1, sizeof (lst_symbol), abfd) != sizeof (lst_symbol)) goto error_return; (*count)++; /* Now iterate through the rest of the symbols on this chain. */ while (lst_symbol.next_entry) { /* Seek to the next symbol. */ if (bfd_seek (abfd, lst_filepos + lst_symbol.next_entry, SEEK_SET) < 0) goto error_return; /* Read the symbol in and update the counter. */ if (bfd_read ((PTR) & lst_symbol, 1, sizeof (lst_symbol), abfd) != sizeof (lst_symbol)) goto error_return; (*count)++; } } if (hash_table != NULL) free (hash_table); return true; error_return: if (hash_table != NULL) free (hash_table); return false; } /* Fill in the canonical archive symbols (SYMS) from the archive described by ABFD and LST_HEADER. */ static boolean som_bfd_fill_in_ar_symbols (abfd, lst_header, syms) bfd *abfd; struct lst_header *lst_header; carsym **syms; { unsigned int i, len; carsym *set = syms[0]; unsigned int *hash_table = NULL; struct som_entry *som_dict = NULL; file_ptr lst_filepos = bfd_tell (abfd) - sizeof (struct lst_header); hash_table = (unsigned int *) malloc (lst_header->hash_size * sizeof (unsigned int)); if (hash_table == NULL && lst_header->hash_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } som_dict = (struct som_entry *) malloc (lst_header->module_count * sizeof (struct som_entry)); if (som_dict == NULL && lst_header->module_count != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* Read in the hash table. The has table is an array of 32bit file offsets which point to the hash chains. */ if (bfd_read ((PTR) hash_table, lst_header->hash_size, 4, abfd) != lst_header->hash_size * 4) goto error_return; /* Seek to and read in the SOM dictionary. We will need this to fill in the carsym's filepos field. */ if (bfd_seek (abfd, lst_filepos + lst_header->dir_loc, SEEK_SET) < 0) goto error_return; if (bfd_read ((PTR) som_dict, lst_header->module_count, sizeof (struct som_entry), abfd) != lst_header->module_count * sizeof (struct som_entry)) goto error_return; /* Walk each chain filling in the carsyms as we go along. */ for (i = 0; i < lst_header->hash_size; i++) { struct lst_symbol_record lst_symbol; /* An empty chain has zero as it's file offset. */ if (hash_table[i] == 0) continue; /* Seek to and read the first symbol on the chain. */ if (bfd_seek (abfd, lst_filepos + hash_table[i], SEEK_SET) < 0) goto error_return; if (bfd_read ((PTR) & lst_symbol, 1, sizeof (lst_symbol), abfd) != sizeof (lst_symbol)) goto error_return; /* Get the name of the symbol, first get the length which is stored as a 32bit integer just before the symbol. One might ask why we don't just read in the entire string table and index into it. Well, according to the SOM ABI the string index can point *anywhere* in the archive to save space, so just using the string table would not be safe. */ if (bfd_seek (abfd, lst_filepos + lst_header->string_loc + lst_symbol.name.n_strx - 4, SEEK_SET) < 0) goto error_return; if (bfd_read (&len, 1, 4, abfd) != 4) goto error_return; /* Allocate space for the name and null terminate it too. */ set->name = bfd_zalloc (abfd, len + 1); if (!set->name) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_read (set->name, 1, len, abfd) != len) goto error_return; set->name[len] = 0; /* Fill in the file offset. Note that the "location" field points to the SOM itself, not the ar_hdr in front of it. */ set->file_offset = som_dict[lst_symbol.som_index].location - sizeof (struct ar_hdr); /* Go to the next symbol. */ set++; /* Iterate through the rest of the chain. */ while (lst_symbol.next_entry) { /* Seek to the next symbol and read it in. */ if (bfd_seek (abfd, lst_filepos + lst_symbol.next_entry, SEEK_SET) <0) goto error_return; if (bfd_read ((PTR) & lst_symbol, 1, sizeof (lst_symbol), abfd) != sizeof (lst_symbol)) goto error_return; /* Seek to the name length & string and read them in. */ if (bfd_seek (abfd, lst_filepos + lst_header->string_loc + lst_symbol.name.n_strx - 4, SEEK_SET) < 0) goto error_return; if (bfd_read (&len, 1, 4, abfd) != 4) goto error_return; /* Allocate space for the name and null terminate it too. */ set->name = bfd_zalloc (abfd, len + 1); if (!set->name) { bfd_set_error (bfd_error_no_memory); goto error_return; } if (bfd_read (set->name, 1, len, abfd) != len) goto error_return; set->name[len] = 0; /* Fill in the file offset. Note that the "location" field points to the SOM itself, not the ar_hdr in front of it. */ set->file_offset = som_dict[lst_symbol.som_index].location - sizeof (struct ar_hdr); /* Go on to the next symbol. */ set++; } } /* If we haven't died by now, then we successfully read the entire archive symbol table. */ if (hash_table != NULL) free (hash_table); if (som_dict != NULL) free (som_dict); return true; error_return: if (hash_table != NULL) free (hash_table); if (som_dict != NULL) free (som_dict); return false; } /* Read in the LST from the archive. */ static boolean som_slurp_armap (abfd) bfd *abfd; { struct lst_header lst_header; struct ar_hdr ar_header; unsigned int parsed_size; struct artdata *ardata = bfd_ardata (abfd); char nextname[17]; int i = bfd_read ((PTR) nextname, 1, 16, abfd); /* Special cases. */ if (i == 0) return true; if (i != 16) return false; if (bfd_seek (abfd, (file_ptr) - 16, SEEK_CUR) < 0) return false; /* For archives without .o files there is no symbol table. */ if (strncmp (nextname, "/ ", 16)) { bfd_has_map (abfd) = false; return true; } /* Read in and sanity check the archive header. */ if (bfd_read ((PTR) &ar_header, 1, sizeof (struct ar_hdr), abfd) != sizeof (struct ar_hdr)) return false; if (strncmp (ar_header.ar_fmag, ARFMAG, 2)) { bfd_set_error (bfd_error_malformed_archive); return false; } /* How big is the archive symbol table entry? */ errno = 0; parsed_size = strtol (ar_header.ar_size, NULL, 10); if (errno != 0) { bfd_set_error (bfd_error_malformed_archive); return false; } /* Save off the file offset of the first real user data. */ ardata->first_file_filepos = bfd_tell (abfd) + parsed_size; /* Read in the library symbol table. We'll make heavy use of this in just a minute. */ if (bfd_read ((PTR) & lst_header, 1, sizeof (struct lst_header), abfd) != sizeof (struct lst_header)) return false; /* Sanity check. */ if (lst_header.a_magic != LIBMAGIC) { bfd_set_error (bfd_error_malformed_archive); return false; } /* Count the number of symbols in the library symbol table. */ if (som_bfd_count_ar_symbols (abfd, &lst_header, &ardata->symdef_count) == false) return false; /* Get back to the start of the library symbol table. */ if (bfd_seek (abfd, ardata->first_file_filepos - parsed_size + sizeof (struct lst_header), SEEK_SET) < 0) return false; /* Initializae the cache and allocate space for the library symbols. */ ardata->cache = 0; ardata->symdefs = (carsym *) bfd_alloc (abfd, (ardata->symdef_count * sizeof (carsym))); if (!ardata->symdefs) { bfd_set_error (bfd_error_no_memory); return false; } /* Now fill in the canonical archive symbols. */ if (som_bfd_fill_in_ar_symbols (abfd, &lst_header, &ardata->symdefs) == false) return false; /* Seek back to the "first" file in the archive. Note the "first" file may be the extended name table. */ if (bfd_seek (abfd, ardata->first_file_filepos, SEEK_SET) < 0) return false; /* Notify the generic archive code that we have a symbol map. */ bfd_has_map (abfd) = true; return true; } /* Begin preparing to write a SOM library symbol table. As part of the prep work we need to determine the number of symbols and the size of the associated string section. */ static boolean som_bfd_prep_for_ar_write (abfd, num_syms, stringsize) bfd *abfd; unsigned int *num_syms, *stringsize; { bfd *curr_bfd = abfd->archive_head; /* Some initialization. */ *num_syms = 0; *stringsize = 0; /* Iterate over each BFD within this archive. */ while (curr_bfd != NULL) { unsigned int curr_count, i; som_symbol_type *sym; /* Don't bother for non-SOM objects. */ if (curr_bfd->format != bfd_object || curr_bfd->xvec->flavour != bfd_target_som_flavour) { curr_bfd = curr_bfd->next; continue; } /* Make sure the symbol table has been read, then snag a pointer to it. It's a little slimey to grab the symbols via obj_som_symtab, but doing so avoids allocating lots of extra memory. */ if (som_slurp_symbol_table (curr_bfd) == false) return false; sym = obj_som_symtab (curr_bfd); curr_count = bfd_get_symcount (curr_bfd); /* Examine each symbol to determine if it belongs in the library symbol table. */ for (i = 0; i < curr_count; i++, sym++) { struct som_misc_symbol_info info; /* Derive SOM information from the BFD symbol. */ som_bfd_derive_misc_symbol_info (curr_bfd, &sym->symbol, &info); /* Should we include this symbol? */ if (info.symbol_type == ST_NULL || info.symbol_type == ST_SYM_EXT || info.symbol_type == ST_ARG_EXT) continue; /* Only global symbols and unsatisfied commons. */ if (info.symbol_scope != SS_UNIVERSAL && info.symbol_type != ST_STORAGE) continue; /* Do no include undefined symbols. */ if (bfd_is_und_section (sym->symbol.section)) continue; /* Bump the various counters, being careful to honor alignment considerations in the string table. */ (*num_syms)++; *stringsize = *stringsize + strlen (sym->symbol.name) + 5; while (*stringsize % 4) (*stringsize)++; } curr_bfd = curr_bfd->next; } return true; } /* Hash a symbol name based on the hashing algorithm presented in the SOM ABI. */ static unsigned int som_bfd_ar_symbol_hash (symbol) asymbol *symbol; { unsigned int len = strlen (symbol->name); /* Names with length 1 are special. */ if (len == 1) return 0x1000100 | (symbol->name[0] << 16) | symbol->name[0]; return ((len & 0x7f) << 24) | (symbol->name[1] << 16) | (symbol->name[len-2] << 8) | symbol->name[len-1]; } static CONST char * normalize (file) CONST char *file; { CONST char *filename = strrchr (file, '/'); if (filename != NULL) filename++; else filename = file; return filename; } /* Do the bulk of the work required to write the SOM library symbol table. */ static boolean som_bfd_ar_write_symbol_stuff (abfd, nsyms, string_size, lst) bfd *abfd; unsigned int nsyms, string_size; struct lst_header lst; { file_ptr lst_filepos; char *strings = NULL, *p; struct lst_symbol_record *lst_syms = NULL, *curr_lst_sym; bfd *curr_bfd; unsigned int *hash_table = NULL; struct som_entry *som_dict = NULL; struct lst_symbol_record **last_hash_entry = NULL; unsigned int curr_som_offset, som_index, extended_name_length = 0; unsigned int maxname = abfd->xvec->ar_max_namelen; hash_table = (unsigned int *) malloc (lst.hash_size * sizeof (unsigned int)); if (hash_table == NULL && lst.hash_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } som_dict = (struct som_entry *) malloc (lst.module_count * sizeof (struct som_entry)); if (som_dict == NULL && lst.module_count != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } last_hash_entry = ((struct lst_symbol_record **) malloc (lst.hash_size * sizeof (struct lst_symbol_record *))); if (last_hash_entry == NULL && lst.hash_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } /* Lots of fields are file positions relative to the start of the lst record. So save its location. */ lst_filepos = bfd_tell (abfd) - sizeof (struct lst_header); /* Some initialization. */ memset (hash_table, 0, 4 * lst.hash_size); memset (som_dict, 0, lst.module_count * sizeof (struct som_entry)); memset (last_hash_entry, 0, lst.hash_size * sizeof (struct lst_symbol_record *)); /* Symbols have som_index fields, so we have to keep track of the index of each SOM in the archive. The SOM dictionary has (among other things) the absolute file position for the SOM which a particular dictionary entry describes. We have to compute that information as we iterate through the SOMs/symbols. */ som_index = 0; curr_som_offset = 8 + 2 * sizeof (struct ar_hdr) + lst.file_end; /* Yow! We have to know the size of the extended name table too. */ for (curr_bfd = abfd->archive_head; curr_bfd != NULL; curr_bfd = curr_bfd->next) { CONST char *normal = normalize (curr_bfd->filename); unsigned int thislen; if (!normal) { bfd_set_error (bfd_error_no_memory); return false; } thislen = strlen (normal); if (thislen > maxname) extended_name_length += thislen + 1; } /* Make room for the archive header and the contents of the extended string table. */ if (extended_name_length) curr_som_offset += extended_name_length + sizeof (struct ar_hdr); /* Make sure we're properly aligned. */ curr_som_offset = (curr_som_offset + 0x1) & ~0x1; /* FIXME should be done with buffers just like everything else... */ lst_syms = malloc (nsyms * sizeof (struct lst_symbol_record)); if (lst_syms == NULL && nsyms != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } strings = malloc (string_size); if (strings == NULL && string_size != 0) { bfd_set_error (bfd_error_no_memory); goto error_return; } p = strings; curr_lst_sym = lst_syms; curr_bfd = abfd->archive_head; while (curr_bfd != NULL) { unsigned int curr_count, i; som_symbol_type *sym; /* Don't bother for non-SOM objects. */ if (curr_bfd->format != bfd_object || curr_bfd->xvec->flavour != bfd_target_som_flavour) { curr_bfd = curr_bfd->next; continue; } /* Make sure the symbol table has been read, then snag a pointer to it. It's a little slimey to grab the symbols via obj_som_symtab, but doing so avoids allocating lots of extra memory. */ if (som_slurp_symbol_table (curr_bfd) == false) goto error_return; sym = obj_som_symtab (curr_bfd); curr_count = bfd_get_symcount (curr_bfd); for (i = 0; i < curr_count; i++, sym++) { struct som_misc_symbol_info info; /* Derive SOM information from the BFD symbol. */ som_bfd_derive_misc_symbol_info (curr_bfd, &sym->symbol, &info); /* Should we include this symbol? */ if (info.symbol_type == ST_NULL || info.symbol_type == ST_SYM_EXT || info.symbol_type == ST_ARG_EXT) continue; /* Only global symbols and unsatisfied commons. */ if (info.symbol_scope != SS_UNIVERSAL && info.symbol_type != ST_STORAGE) continue; /* Do no include undefined symbols. */ if (bfd_is_und_section (sym->symbol.section)) continue; /* If this is the first symbol from this SOM, then update the SOM dictionary too. */ if (som_dict[som_index].location == 0) { som_dict[som_index].location = curr_som_offset; som_dict[som_index].length = arelt_size (curr_bfd); } /* Fill in the lst symbol record. */ curr_lst_sym->hidden = 0; curr_lst_sym->secondary_def = 0; curr_lst_sym->symbol_type = info.symbol_type; curr_lst_sym->symbol_scope = info.symbol_scope; curr_lst_sym->check_level = 0; curr_lst_sym->must_qualify = 0; curr_lst_sym->initially_frozen = 0; curr_lst_sym->memory_resident = 0; curr_lst_sym->is_common = bfd_is_com_section (sym->symbol.section); curr_lst_sym->dup_common = 0; curr_lst_sym->xleast = 0; curr_lst_sym->arg_reloc = info.arg_reloc; curr_lst_sym->name.n_strx = p - strings + 4; curr_lst_sym->qualifier_name.n_strx = 0; curr_lst_sym->symbol_info = info.symbol_info; curr_lst_sym->symbol_value = info.symbol_value; curr_lst_sym->symbol_descriptor = 0; curr_lst_sym->reserved = 0; curr_lst_sym->som_index = som_index; curr_lst_sym->symbol_key = som_bfd_ar_symbol_hash (&sym->symbol); curr_lst_sym->next_entry = 0; /* Insert into the hash table. */ if (hash_table[curr_lst_sym->symbol_key % lst.hash_size]) { struct lst_symbol_record *tmp; /* There is already something at the head of this hash chain, so tack this symbol onto the end of the chain. */ tmp = last_hash_entry[curr_lst_sym->symbol_key % lst.hash_size]; tmp->next_entry = (curr_lst_sym - lst_syms) * sizeof (struct lst_symbol_record) + lst.hash_size * 4 + lst.module_count * sizeof (struct som_entry) + sizeof (struct lst_header); } else { /* First entry in this hash chain. */ hash_table[curr_lst_sym->symbol_key % lst.hash_size] = (curr_lst_sym - lst_syms) * sizeof (struct lst_symbol_record) + lst.hash_size * 4 + lst.module_count * sizeof (struct som_entry) + sizeof (struct lst_header); } /* Keep track of the last symbol we added to this chain so we can easily update its next_entry pointer. */ last_hash_entry[curr_lst_sym->symbol_key % lst.hash_size] = curr_lst_sym; /* Update the string table. */ bfd_put_32 (abfd, strlen (sym->symbol.name), p); p += 4; strcpy (p, sym->symbol.name); p += strlen (sym->symbol.name) + 1; while ((int)p % 4) { bfd_put_8 (abfd, 0, p); p++; } /* Head to the next symbol. */ curr_lst_sym++; } /* Keep track of where each SOM will finally reside; then look at the next BFD. */ curr_som_offset += arelt_size (curr_bfd) + sizeof (struct ar_hdr); curr_bfd = curr_bfd->next; som_index++; } /* Now scribble out the hash table. */ if (bfd_write ((PTR) hash_table, lst.hash_size, 4, abfd) != lst.hash_size * 4) goto error_return; /* Then the SOM dictionary. */ if (bfd_write ((PTR) som_dict, lst.module_count, sizeof (struct som_entry), abfd) != lst.module_count * sizeof (struct som_entry)) goto error_return; /* The library symbols. */ if (bfd_write ((PTR) lst_syms, nsyms, sizeof (struct lst_symbol_record), abfd) != nsyms * sizeof (struct lst_symbol_record)) goto error_return; /* And finally the strings. */ if (bfd_write ((PTR) strings, string_size, 1, abfd) != string_size) goto error_return; if (hash_table != NULL) free (hash_table); if (som_dict != NULL) free (som_dict); if (last_hash_entry != NULL) free (last_hash_entry); if (lst_syms != NULL) free (lst_syms); if (strings != NULL) free (strings); return true; error_return: if (hash_table != NULL) free (hash_table); if (som_dict != NULL) free (som_dict); if (last_hash_entry != NULL) free (last_hash_entry); if (lst_syms != NULL) free (lst_syms); if (strings != NULL) free (strings); return false; } /* Write out the LST for the archive. You'll never believe this is really how armaps are handled in SOM... */ /*ARGSUSED*/ static boolean som_write_armap (abfd, elength, map, orl_count, stridx) bfd *abfd; unsigned int elength; struct orl *map; unsigned int orl_count; int stridx; { bfd *curr_bfd; struct stat statbuf; unsigned int i, lst_size, nsyms, stringsize; struct ar_hdr hdr; struct lst_header lst; int *p; /* We'll use this for the archive's date and mode later. */ if (stat (abfd->filename, &statbuf) != 0) { bfd_set_error (bfd_error_system_call); return false; } /* Fudge factor. */ bfd_ardata (abfd)->armap_timestamp = statbuf.st_mtime + 60; /* Account for the lst header first. */ lst_size = sizeof (struct lst_header); /* Start building the LST header. */ lst.system_id = CPU_PA_RISC1_0; lst.a_magic = LIBMAGIC; lst.version_id = VERSION_ID; lst.file_time.secs = 0; lst.file_time.nanosecs = 0; lst.hash_loc = lst_size; lst.hash_size = SOM_LST_HASH_SIZE; /* Hash table is a SOM_LST_HASH_SIZE 32bit offsets. */ lst_size += 4 * SOM_LST_HASH_SIZE; /* We need to count the number of SOMs in this archive. */ curr_bfd = abfd->archive_head; lst.module_count = 0; while (curr_bfd != NULL) { /* Only true SOM objects count. */ if (curr_bfd->format == bfd_object && curr_bfd->xvec->flavour == bfd_target_som_flavour) lst.module_count++; curr_bfd = curr_bfd->next; } lst.module_limit = lst.module_count; lst.dir_loc = lst_size; lst_size += sizeof (struct som_entry) * lst.module_count; /* We don't support import/export tables, auxiliary headers, or free lists yet. Make the linker work a little harder to make our life easier. */ lst.export_loc = 0; lst.export_count = 0; lst.import_loc = 0; lst.aux_loc = 0; lst.aux_size = 0; /* Count how many symbols we will have on the hash chains and the size of the associated string table. */ if (som_bfd_prep_for_ar_write (abfd, &nsyms, &stringsize) == false) return false; lst_size += sizeof (struct lst_symbol_record) * nsyms; /* For the string table. One day we might actually use this info to avoid small seeks/reads when reading archives. */ lst.string_loc = lst_size; lst.string_size = stringsize; lst_size += stringsize; /* SOM ABI says this must be zero. */ lst.free_list = 0; lst.file_end = lst_size; /* Compute the checksum. Must happen after the entire lst header has filled in. */ p = (int *)&lst; lst.checksum = 0; for (i = 0; i < sizeof (struct lst_header)/sizeof (int) - 1; i++) lst.checksum ^= *p++; sprintf (hdr.ar_name, "/ "); sprintf (hdr.ar_date, "%ld", bfd_ardata (abfd)->armap_timestamp); sprintf (hdr.ar_uid, "%ld", (long) getuid ()); sprintf (hdr.ar_gid, "%ld", (long) getgid ()); sprintf (hdr.ar_mode, "%-8o", (unsigned int) statbuf.st_mode); sprintf (hdr.ar_size, "%-10d", (int) lst_size); hdr.ar_fmag[0] = '`'; hdr.ar_fmag[1] = '\012'; /* Turn any nulls into spaces. */ for (i = 0; i < sizeof (struct ar_hdr); i++) if (((char *) (&hdr))[i] == '\0') (((char *) (&hdr))[i]) = ' '; /* Scribble out the ar header. */ if (bfd_write ((PTR) &hdr, 1, sizeof (struct ar_hdr), abfd) != sizeof (struct ar_hdr)) return false; /* Now scribble out the lst header. */ if (bfd_write ((PTR) &lst, 1, sizeof (struct lst_header), abfd) != sizeof (struct lst_header)) return false; /* Build and write the armap. */ if (som_bfd_ar_write_symbol_stuff (abfd, nsyms, stringsize, lst) == false) return false; /* Done. */ return true; } /* Free all information we have cached for this BFD. We can always read it again later if we need it. */ static boolean som_bfd_free_cached_info (abfd) bfd *abfd; { asection *o; if (bfd_get_format (abfd) != bfd_object) return true; #define FREE(x) if (x != NULL) { free (x); x = NULL; } /* Free the native string and symbol tables. */ FREE (obj_som_symtab (abfd)); FREE (obj_som_stringtab (abfd)); for (o = abfd->sections; o != (asection *) NULL; o = o->next) { /* Free the native relocations. */ o->reloc_count = -1; FREE (som_section_data (o)->reloc_stream); /* Free the generic relocations. */ FREE (o->relocation); } #undef FREE return true; } /* End of miscellaneous support functions. */ #define som_close_and_cleanup som_bfd_free_cached_info #define som_openr_next_archived_file bfd_generic_openr_next_archived_file #define som_generic_stat_arch_elt bfd_generic_stat_arch_elt #define som_truncate_arname bfd_bsd_truncate_arname #define som_slurp_extended_name_table _bfd_slurp_extended_name_table #define som_get_lineno _bfd_nosymbols_get_lineno #define som_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol #define som_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define som_bfd_relax_section bfd_generic_relax_section #define som_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define som_bfd_link_add_symbols _bfd_generic_link_add_symbols #define som_bfd_final_link _bfd_generic_final_link const bfd_target som_vec = { "som", /* name */ bfd_target_som_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED | DYNAMIC), (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ /* leading_symbol_char: is the first char of a user symbol predictable, and if so what is it */ 0, '/', /* ar_pad_char */ 14, /* ar_max_namelen */ 3, /* minimum alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ {_bfd_dummy_target, som_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target }, { bfd_false, som_mkobject, _bfd_generic_mkarchive, bfd_false }, { bfd_false, som_write_object_contents, _bfd_write_archive_contents, bfd_false, }, #undef som BFD_JUMP_TABLE_GENERIC (som), BFD_JUMP_TABLE_COPY (som), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (som), BFD_JUMP_TABLE_SYMBOLS (som), BFD_JUMP_TABLE_RELOCS (som), BFD_JUMP_TABLE_WRITE (som), BFD_JUMP_TABLE_LINK (som), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 }; #endif /* HOST_HPPAHPUX || HOST_HPPABSD || HOST_HPPAOSF */ gdb-4.13/bfd/som.h 666 34562 1752 17345 5607025665 12304 0ustar fnfcygnus/* HP PA-RISC SOM object file format: definitions internal to BFD. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef _SOM_H #define _SOM_H #include "../bfd/sysdep.h" #include "libhppa.h" #include #include #include #if defined(HOST_HPPABSD) || defined (HOST_HPPAOSF) /* BSD uses a completely different scheme for object file identification. so for now, define _PA_RISC_ID to accept any random value for a model number. */ #undef _PA_RISC_ID #define _PA_RISC_ID(__m_num) 1 #endif /* HOST_HPPABSD */ #define FILE_HDR_SIZE sizeof(struct header) #define AUX_HDR_SIZE sizeof(struct som_exec_auxhdr) typedef struct som_symbol { asymbol symbol; short desc; char other; unsigned char type; unsigned int som_type; /* Structured like the ELF tc_data union. Allows more code sharing in GAS this way. */ union { unsigned int hppa_arg_reloc; PTR any; } tc_data; /* Index of this symbol in the symbol table. Only used when building relocation streams for incomplete objects. */ int index; /* How many times this symbol is used in a relocation. By sorting the symbols from most used to least used we can significantly reduce the size of the relocation stream for incomplete objects. */ int reloc_count; /* The unwind descriptor bits associated with R_ENTRY relocations for functions (not enough room in a BFD reloc to store all the information, so we tack it onto the symbol associated with the function. */ char *unwind; } som_symbol_type; /* A structure containing all the magic information stored in a BFD's private data which needs to be copied during an objcopy/strip run. */ struct som_exec_data { /* Sort-of a magic number. BSD uses it to distinguish between native executables and hpux executables. */ short system_id; /* Magic exec flags. These control things like whether or not null pointer dereferencing is allowed and the like. */ long exec_flags; /* Add more stuff here as needed. Good examples of information we might want to pass would be presumed_dp, entry_* and maybe others from the file header. */ }; struct somdata { /* All the magic information about an executable which lives in the private BFD structure and needs to be copied from the input bfd to the output bfd during a objcopy/strip. */ struct som_exec_data *exec_data; /* These three fields are only used when writing files and are generated from scratch. They need not be copied for objcopy or strip to work. */ struct header *file_hdr; struct copyright_aux_hdr *copyright_aux_hdr; struct user_string_aux_hdr *version_aux_hdr; /* Pointers to a saved copy of the symbol and string tables. These need not be copied for objcopy or strip to work. */ som_symbol_type *symtab; char *stringtab; /* We remember these offsets so that after check_file_format, we have no dependencies on the particular format of the exec_hdr. These offsets need not be copied for objcopy or strip to work. */ file_ptr sym_filepos; file_ptr str_filepos; file_ptr reloc_filepos; unsigned stringtab_size; }; struct som_data_struct { struct somdata a; }; /* Substructure of som_section_data_struct used to hold information which can't be represented by the generic BFD section structure, but which must be copied during objcopy or strip. */ struct som_copyable_section_data_struct { /* Various fields in space and subspace headers that we need to pass around. */ unsigned int sort_key : 8; unsigned int access_control_bits : 7; unsigned int is_defined : 1; unsigned int is_private : 1; unsigned int quadrant : 2; /* For subspaces, this points to the section which represents the space in which the subspace is contained. For spaces it points back to the section for this space. */ asection *container; /* The user-specified space number. It is wrong to use this as an index since duplicates and holes are allowed. */ int space_number; /* Add more stuff here as needed. Good examples of information we might want to pass would be initialization pointers, and the many subspace flags we do not represent yet. */ }; /* Used to keep extra SOM specific information for a given section. reloc_size holds the size of the relocation stream, note this is very different from the number of relocations as SOM relocations are variable length. reloc_stream is the actual stream of relocation entries. */ struct som_section_data_struct { struct som_copyable_section_data_struct *copy_data; unsigned int reloc_size; char *reloc_stream; struct space_dictionary_record *space_dict; struct subspace_dictionary_record *subspace_dict; }; #define somdata(bfd) ((bfd)->tdata.som_data->a) #define obj_som_exec_data(bfd) (somdata(bfd).exec_data) #define obj_som_file_hdr(bfd) (somdata(bfd).file_hdr) #define obj_som_copyright_hdr(bfd) (somdata(bfd).copyright_aux_hdr) #define obj_som_version_hdr(bfd) (somdata(bfd).version_aux_hdr) #define obj_som_symtab(bfd) (somdata(bfd).symtab) #define obj_som_stringtab(bfd) (somdata(bfd).stringtab) #define obj_som_sym_filepos(bfd) (somdata(bfd).sym_filepos) #define obj_som_str_filepos(bfd) (somdata(bfd).str_filepos) #define obj_som_stringtab_size(bfd) (somdata(bfd).stringtab_size) #define obj_som_reloc_filepos(bfd) (somdata(bfd).reloc_filepos) #define som_section_data(sec) \ ((struct som_section_data_struct *)sec->used_by_bfd) #define som_symbol_data(symbol) ((som_symbol_type *) symbol) /* Defines groups of basic relocations. FIXME: These should be the only basic relocations created by GAS. The rest should be internal to the BFD backend. The idea is both SOM and ELF define these basic relocation types so they map into a SOM or ELF specific reloation as appropriate. This allows GAS to share much more code between the two object formats. */ #define R_HPPA_NONE R_NO_RELOCATION #define R_HPPA R_CODE_ONE_SYMBOL #define R_HPPA_PCREL_CALL R_PCREL_CALL #define R_HPPA_ABS_CALL R_ABS_CALL #define R_HPPA_GOTOFF R_DP_RELATIVE #define R_HPPA_ENTRY R_ENTRY #define R_HPPA_EXIT R_EXIT #define R_HPPA_COMPLEX R_COMP1 /* Exported functions, mostly for use by GAS. */ boolean bfd_som_set_section_attributes PARAMS ((asection *, int, int, unsigned int, int)); boolean bfd_som_set_subsection_attributes PARAMS ((asection *, asection *, int, unsigned int, int)); void bfd_som_set_symbol_type PARAMS ((asymbol *, unsigned int)); void bfd_som_attach_unwind_info PARAMS ((asymbol *, char *)); boolean bfd_som_attach_aux_hdr PARAMS ((bfd *, int, char *)); int ** hppa_som_gen_reloc_type PARAMS ((bfd *, int, int, enum hppa_reloc_field_selector_type_alt)); #endif /* _SOM_H */ gdb-4.13/bfd/sparclynx.c 666 34562 1752 15133 5610535332 13504 0ustar fnfcygnus/* BFD support for Sparc binaries under LynxOS. Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if 0 #define BYTES_IN_WORD 4 #define N_SHARED_LIB(x) 0 #define TEXT_START_ADDR 0 #define PAGE_SIZE 4096 #define SEGMENT_SIZE PAGE_SIZE #define DEFAULT_ARCH bfd_arch_sparc #endif #define MY(OP) CAT(sparclynx_aout_,OP) #define TARGETNAME "a.out-sparc-lynx" #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "aout/sun4.h" #include "libaout.h" /* BFD a.out internal data structures */ #include "aout/aout64.h" #include "aout/stab_gnu.h" #include "aout/ar.h" /* This is needed to reject a NewsOS file, e.g. in gdb/testsuite/gdb.t10/crossload.exp. I needed to add M_UNKNOWN to recognize a 68000 object, so this will probably no longer reject a NewsOS object. . */ #define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \ || (mtype) == M_68010 \ || (mtype) == M_68020 \ || (mtype) == M_SPARC) /* The file @code{aoutf1.h} contains the code for BFD's a.out back end. Control over the generated back end is given by these two preprocessor names: @table @code @item ARCH_SIZE This value should be either 32 or 64, depending upon the size of an int in the target format. It changes the sizes of the structs which perform the memory/disk mapping of structures. The 64 bit backend may only be used if the host compiler supports 64 ints (eg long long with gcc), by defining the name @code{BFD_HOST_64_BIT} in @code{bfd.h}. With this name defined, @emph{all} bfd operations are performed with 64bit arithmetic, not just those to a 64bit target. @item TARGETNAME The name put into the target vector. @item @end table */ /*SUPPRESS558*/ /*SUPPRESS529*/ void NAME(lynx,set_arch_mach) (abfd, machtype) bfd *abfd; int machtype; { /* Determine the architecture and machine type of the object file. */ enum bfd_architecture arch; long machine; switch (machtype) { case M_UNKNOWN: /* Some Sun3s make magic numbers without cpu types in them, so we'll default to the 68000. */ arch = bfd_arch_m68k; machine = 68000; break; case M_68010: case M_HP200: arch = bfd_arch_m68k; machine = 68010; break; case M_68020: case M_HP300: arch = bfd_arch_m68k; machine = 68020; break; case M_SPARC: arch = bfd_arch_sparc; machine = 0; break; case M_386: case M_386_DYNIX: arch = bfd_arch_i386; machine = 0; break; case M_29K: arch = bfd_arch_a29k; machine = 0; break; case M_HPUX: arch = bfd_arch_m68k; machine = 0; break; default: arch = bfd_arch_obscure; machine = 0; break; } bfd_set_arch_mach (abfd, arch, machine); } #define SET_ARCH_MACH(ABFD, EXEC) \ NAME(lynx,set_arch_mach)(ABFD, N_MACHTYPE (EXEC)); \ choose_reloc_size(ABFD); /* Determine the size of a relocation entry, based on the architecture */ static void choose_reloc_size (abfd) bfd *abfd; { switch (bfd_get_arch (abfd)) { case bfd_arch_sparc: case bfd_arch_a29k: obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE; break; default: obj_reloc_entry_size (abfd) = RELOC_STD_SIZE; break; } } /* Write an object file in LynxOS format. Section contents have already been written. We write the file header, symbols, and relocation. */ static boolean NAME(aout,sparclynx_write_object_contents) (abfd) bfd *abfd; { struct external_exec exec_bytes; struct internal_exec *execp = exec_hdr (abfd); /* Magic number, maestro, please! */ switch (bfd_get_arch (abfd)) { case bfd_arch_m68k: switch (bfd_get_mach (abfd)) { case 68010: N_SET_MACHTYPE (*execp, M_68010); break; default: case 68020: N_SET_MACHTYPE (*execp, M_68020); break; } break; case bfd_arch_sparc: N_SET_MACHTYPE (*execp, M_SPARC); break; case bfd_arch_i386: N_SET_MACHTYPE (*execp, M_386); break; case bfd_arch_a29k: N_SET_MACHTYPE (*execp, M_29K); break; default: N_SET_MACHTYPE (*execp, M_UNKNOWN); } choose_reloc_size (abfd); N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags); WRITE_HEADERS (abfd, execp); return true; } #define MY_set_sizes sparclynx_set_sizes static boolean sparclynx_set_sizes (abfd) bfd *abfd; { switch (bfd_get_arch (abfd)) { default: return false; case bfd_arch_sparc: adata (abfd).page_size = 0x2000; adata (abfd).segment_size = 0x2000; adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE; return true; case bfd_arch_m68k: adata (abfd).page_size = 0x2000; adata (abfd).segment_size = 0x20000; adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE; return true; } } static CONST struct aout_backend_data sparclynx_aout_backend = { 0, 1, 1, 0, sparclynx_set_sizes, 0, 0, /* add_dynamic_symbols */ 0, /* add_one_symbol */ 0, /* link_dynamic_object */ 0, /* write_dynamic_symbol */ 0, /* check_dynamic_reloc */ 0 /* finish_dynamic_link */ }; #define MY_bfd_debug_info_start bfd_void #define MY_bfd_debug_info_end bfd_void #define MY_bfd_debug_info_accumulate \ (void (*) PARAMS ((bfd *, struct sec *))) bfd_void #define MY_write_object_contents NAME(aout,sparclynx_write_object_contents) #define MY_backend_data &sparclynx_aout_backend #define TARGET_IS_BIG_ENDIAN_P #ifdef HOST_LYNX char *lynx_core_file_failing_command (); int lynx_core_file_failing_signal (); boolean lynx_core_file_matches_executable_p (); const bfd_target *lynx_core_file_p (); #define MY_core_file_failing_command lynx_core_file_failing_command #define MY_core_file_failing_signal lynx_core_file_failing_signal #define MY_core_file_matches_executable_p lynx_core_file_matches_executable_p #define MY_core_file_p lynx_core_file_p #endif /* HOST_LYNX */ #include "aout-target.h" gdb-4.13/bfd/srec.c 666 34562 1752 57563 5601614657 12442 0ustar fnfcygnus/* BFD back-end for s-record objects. Copyright 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Steve Chamberlain of Cygnus Support . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SUBSECTION S-Record handling DESCRIPTION Ordinary S-Records cannot hold anything but addresses and data, so that's all that we implement. The only interesting thing is that S-Records may come out of order and there is no header, so an initial scan is required to discover the minimum and maximum addresses used to create the vma and size of the only section we create. We arbitrarily call this section ".text". When bfd_get_section_contents is called the file is read again, and this time the data is placed into a bfd_alloc'd area. Any number of sections may be created for output, we save them up and output them when it's time to close the bfd. An s record looks like: EXAMPLE S
DESCRIPTION Where o length is the number of bytes following upto the checksum. Note that this is not the number of chars following, since it takes two chars to represent a byte. o type is one of: 0) header record 1) two byte address data record 2) three byte address data record 3) four byte address data record 7) four byte address termination record 8) three byte address termination record 9) two byte address termination record o address is the start address of the data following, or in the case of a termination record, the start address of the image o data is the data. o checksum is the sum of all the raw byte data in the record, from the length upwards, modulo 256 and subtracted from 255. SUBSECTION Symbol S-Record handling DESCRIPTION Some ICE equipment understands an addition to the standard S-Record format; symbols and their addresses can be sent before the data. The format of this is: ($$ (
)*) $$ so a short symbol table could look like: EXAMPLE $$ flash.x $$ flash.c _port6 $0 _delay $4 _start $14 _etext $8036 _edata $8036 _end $8036 $$ DESCRIPTION We allow symbols to be anywhere in the data stream - the module names are always ignored. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" static boolean srec_write_record PARAMS ((bfd *, int, bfd_vma, const unsigned char *, const unsigned char *)); static boolean srec_write_header PARAMS ((bfd *)); static boolean srec_write_symbols PARAMS ((bfd *)); /* Macros for converting between hex and binary. */ static CONST char digs[] = "0123456789ABCDEF"; /* Table that gets filled in with numbers corresponding to hex chars. */ static char hex_value[256]; #define NOT_HEX 20 #define NIBBLE(x) hex_value[(unsigned char)(x)] #define HEX(buffer) ((NIBBLE((buffer)[0])<<4) + NIBBLE((buffer)[1])) #define TOHEX(d, x, ch) \ d[1] = digs[(x) & 0xf]; \ d[0] = digs[((x)>>4)&0xf]; \ ch += ((x) & 0xff); #define ISHEX(x) (hex_value[(unsigned char)(x)] != NOT_HEX) /* Initialize by filling in the hex conversion array. */ static void srec_init () { unsigned int i; static boolean inited = false; if (inited == false) { inited = true; for (i = 0; i < sizeof (hex_value); i++) { hex_value[i] = NOT_HEX; } for (i = 0; i < 10; i++) { hex_value[i + '0'] = i; } for (i = 0; i < 6; i++) { hex_value[i + 'a'] = i + 10; hex_value[i + 'A'] = i + 10; } } } /* The maximum number of bytes on a line is FF */ #define MAXCHUNK 0xff /* The number of bytes we fit onto a line on output */ #define CHUNK 21 /* We cannot output our srecords as we see them, we have to glue them together, this is done in this structure : */ struct srec_data_list_struct { unsigned char *data; bfd_vma where; bfd_size_type size; struct srec_data_list_struct *next; }; typedef struct srec_data_list_struct srec_data_list_type; typedef struct srec_data_struct { srec_data_list_type *head; unsigned int type; int done_symbol_read; int count; asymbol *symbols; char *strings; int symbol_idx; int string_size; int string_idx; } tdata_type; static boolean srec_write_section PARAMS ((bfd *, tdata_type *, srec_data_list_type *)); static boolean srec_write_terminator PARAMS ((bfd *, tdata_type *)); /* called once per input S-Record, used to work out vma and size of data. */ static bfd_vma low, high; /*ARGSUSED*/ static void size_symbols (abfd, buf, len, val) bfd *abfd; char *buf; int len; int val; { abfd->symcount++; abfd->tdata.srec_data->string_size += len + 1; } static void fillup_symbols (abfd, buf, len, val) bfd *abfd; char *buf; int len; int val; { if (!abfd->tdata.srec_data->done_symbol_read) { asymbol *p; if (abfd->tdata.srec_data->symbols == 0) { abfd->tdata.srec_data->symbols = (asymbol *) bfd_alloc (abfd, abfd->symcount * sizeof (asymbol)); abfd->tdata.srec_data->strings = (char *) bfd_alloc (abfd, abfd->tdata.srec_data->string_size); if (!abfd->tdata.srec_data->symbols || !abfd->tdata.srec_data->strings) { bfd_set_error (bfd_error_no_memory); abort (); /* FIXME */ } abfd->tdata.srec_data->symbol_idx = 0; abfd->tdata.srec_data->string_idx = 0; } p = abfd->tdata.srec_data->symbols + abfd->tdata.srec_data->symbol_idx++; p->the_bfd = abfd; p->name = abfd->tdata.srec_data->strings + abfd->tdata.srec_data->string_idx; memcpy ((char *) (p->name), buf, len + 1); abfd->tdata.srec_data->string_idx += len + 1; p->value = val; p->flags = BSF_EXPORT | BSF_GLOBAL; p->section = bfd_abs_section_ptr; p->udata = 0; } } /*ARGSUSED*/ static void size_srec (abfd, section, address, raw, length) bfd *abfd; asection *section; bfd_vma address; bfd_byte *raw; unsigned int length; { if (address < low) low = address; if (address + length > high) high = address + length - 1; } /* called once per input S-Record, copies data from input into bfd_alloc'd area */ /*ARGSUSED*/ static void fillup (abfd, section, address, raw, length) bfd *abfd; asection *section; bfd_vma address; bfd_byte *raw; unsigned int length; { unsigned int i; bfd_byte *dst = (bfd_byte *) (section->used_by_bfd) + address - section->vma; /* length -1 because we don't read in the checksum */ for (i = 0; i < length - 1; i++) { *dst = HEX (raw); dst++; raw += 2; } } /* Pass over an S-Record file, calling one of the above functions on each record. */ static int white (x) char x; { return (x == ' ' || x == '\t' || x == '\n' || x == '\r'); } static int skipwhite (src, abfd) char *src; bfd *abfd; { int eof = 0; while (white (*src) && !eof) { eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1); } return eof; } static boolean srec_mkobject (abfd) bfd *abfd; { if (abfd->tdata.srec_data == 0) { tdata_type *tdata = (tdata_type *) bfd_alloc (abfd, sizeof (tdata_type)); if (!tdata) { bfd_set_error (bfd_error_no_memory); return false; } abfd->tdata.srec_data = tdata; tdata->type = 1; tdata->head = (srec_data_list_type *) NULL; } return true; } static void pass_over (abfd, func, symbolfunc, section) bfd *abfd; void (*func) (); void (*symbolfunc) (); asection *section; { unsigned int bytes_on_line; boolean eof = false; srec_mkobject (abfd); /* To the front of the file */ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) abort (); while (eof == false) { char buffer[MAXCHUNK]; char *src = buffer; char type; bfd_vma address = 0; /* Find first 'S' or $ */ eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1); switch (*src) { default: if (eof) return; break; case '$': /* Inside a symbol definition - just ignore the module name */ while (*src != '\n' && !eof) { eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1); } break; case ' ': /* spaces - maybe just before a symbol */ while (*src != '\n' && *src != '\r' && white (*src)) { eof = skipwhite (src, abfd); { int val = 0; int slen = 0; char symbol[MAXCHUNK]; /* get the symbol part */ while (!eof && !white (*src) && slen < MAXCHUNK) { symbol[slen++] = *src; eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1); } symbol[slen] = 0; eof = skipwhite (src, abfd); /* skip the $ for the hex value */ if (*src == '$') { eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1); } /* Scan off the hex number */ while (isxdigit (*src)) { val *= 16; if (isdigit (*src)) val += *src - '0'; else if (isupper (*src)) { val += *src - 'A' + 10; } else { val += *src - 'a' + 10; } eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1); } symbolfunc (abfd, symbol, slen, val); } } break; case 'S': src++; /* Fetch the type and the length */ if (bfd_read (src, 1, 3, abfd) != 3) abort (); /* FIXME */ type = *src++; if (!ISHEX (src[0]) || !ISHEX (src[1])) break; bytes_on_line = HEX (src); if (bytes_on_line > MAXCHUNK / 2) break; src += 2; if (bfd_read (src, 1, bytes_on_line * 2, abfd) != bytes_on_line * 2) abort (); /* FIXME */ switch (type) { case '0': case '5': /* Prologue - ignore */ break; case '3': address = HEX (src); src += 2; bytes_on_line--; case '2': address = HEX (src) | (address << 8); src += 2; bytes_on_line--; case '1': address = HEX (src) | (address << 8); src += 2; address = HEX (src) | (address << 8); src += 2; bytes_on_line -= 2; func (abfd, section, address, src, bytes_on_line); break; default: return; } } } } static const bfd_target * object_p (abfd) bfd *abfd; { asection *section; /* We create one section called .text for all the contents, and allocate enough room for the entire file. */ section = bfd_make_section (abfd, ".text"); section->_raw_size = 0; section->vma = 0xffffffff; low = 0xffffffff; high = 0; pass_over (abfd, size_srec, size_symbols, section); section->_raw_size = high - low; section->vma = low; section->flags = SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC; if (abfd->symcount) abfd->flags |= HAS_SYMS; return abfd->xvec; } static const bfd_target * srec_object_p (abfd) bfd *abfd; { char b[4]; srec_init (); if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0 || bfd_read (b, 1, 4, abfd) != 4) return NULL; if (b[0] != 'S' || !ISHEX (b[1]) || !ISHEX (b[2]) || !ISHEX (b[3])) return (const bfd_target *) NULL; /* We create one section called .text for all the contents, and allocate enough room for the entire file. */ return object_p (abfd); } static const bfd_target * symbolsrec_object_p (abfd) bfd *abfd; { char b[4]; srec_init (); if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0 || bfd_read (b, 1, 4, abfd) != 4) return NULL; if (b[0] != '$' || b[1] != '$') return (const bfd_target *) NULL; return object_p (abfd); } static boolean srec_get_section_contents (abfd, section, location, offset, count) bfd *abfd; asection *section; PTR location; file_ptr offset; bfd_size_type count; { if (section->used_by_bfd == (PTR) NULL) { section->used_by_bfd = (PTR) bfd_alloc (abfd, section->_raw_size); if (!section->used_by_bfd) { bfd_set_error (bfd_error_no_memory); return false; } pass_over (abfd, fillup, fillup_symbols, section); } memcpy ((PTR) location, (PTR) ((char *) (section->used_by_bfd) + offset), count); return true; } boolean srec_set_arch_mach (abfd, arch, machine) bfd *abfd; enum bfd_architecture arch; unsigned long machine; { return bfd_default_set_arch_mach (abfd, arch, machine); } /* we have to save up all the Srecords for a splurge before output, also remember */ static boolean srec_set_section_contents (abfd, section, location, offset, bytes_to_do) bfd *abfd; sec_ptr section; PTR location; file_ptr offset; bfd_size_type bytes_to_do; { tdata_type *tdata = abfd->tdata.srec_data; srec_data_list_type *entry = (srec_data_list_type *) bfd_alloc (abfd, sizeof (srec_data_list_type)); if (!entry) { bfd_set_error (bfd_error_no_memory); return false; } if ((section->flags & SEC_ALLOC) && (section->flags & SEC_LOAD)) { unsigned char *data = (unsigned char *) bfd_alloc (abfd, bytes_to_do); if (!data) { bfd_set_error (bfd_error_no_memory); return false; } memcpy ((PTR) data, location, bytes_to_do); if ((section->lma + offset + bytes_to_do) <= 0xffff) { } else if ((section->lma + offset + bytes_to_do) <= 0xffffff && tdata->type < 2) { tdata->type = 2; } else { tdata->type = 3; } entry->data = data; entry->where = section->lma + offset; entry->size = bytes_to_do; entry->next = tdata->head; tdata->head = entry; } return true; } /* Write a record of type, of the supplied number of bytes. The supplied bytes and length don't have a checksum. That's worked out here */ static boolean srec_write_record (abfd, type, address, data, end) bfd *abfd; int type; bfd_vma address; const unsigned char *data; const unsigned char *end; { char buffer[MAXCHUNK]; unsigned int check_sum = 0; CONST unsigned char *src = data; char *dst = buffer; char *length; *dst++ = 'S'; *dst++ = '0' + type; length = dst; dst += 2; /* leave room for dst*/ switch (type) { case 3: case 7: TOHEX (dst, (address >> 24), check_sum); dst += 2; case 8: case 2: TOHEX (dst, (address >> 16), check_sum); dst += 2; case 9: case 1: case 0: TOHEX (dst, (address >> 8), check_sum); dst += 2; TOHEX (dst, (address), check_sum); dst += 2; break; } for (src = data; src < end; src++) { TOHEX (dst, *src, check_sum); dst += 2; } /* Fill in the length */ TOHEX (length, (dst - length) / 2, check_sum); check_sum &= 0xff; check_sum = 255 - check_sum; TOHEX (dst, check_sum, check_sum); dst += 2; *dst++ = '\r'; *dst++ = '\n'; if (bfd_write ((PTR) buffer, 1, dst - buffer, abfd) != dst - buffer) return false; return true; } static boolean srec_write_header (abfd) bfd *abfd; { unsigned char buffer[MAXCHUNK]; unsigned char *dst = buffer; unsigned int i; /* I'll put an arbitary 40 char limit on header size */ for (i = 0; i < 40 && abfd->filename[i]; i++) { *dst++ = abfd->filename[i]; } return srec_write_record (abfd, 0, 0, buffer, dst); } static boolean srec_write_section (abfd, tdata, list) bfd *abfd; tdata_type *tdata; srec_data_list_type *list; { unsigned int bytes_written = 0; unsigned char *location = list->data; while (bytes_written < list->size) { bfd_vma address; unsigned int bytes_this_chunk = list->size - bytes_written; if (bytes_this_chunk > CHUNK) { bytes_this_chunk = CHUNK; } address = list->where + bytes_written; if (! srec_write_record (abfd, tdata->type, address, location, location + bytes_this_chunk)) return false; bytes_written += bytes_this_chunk; location += bytes_this_chunk; } return true; } static boolean srec_write_terminator (abfd, tdata) bfd *abfd; tdata_type *tdata; { unsigned char buffer[2]; return srec_write_record (abfd, 10 - tdata->type, abfd->start_address, buffer, buffer); } static boolean srec_write_symbols (abfd) bfd *abfd; { char buffer[MAXCHUNK]; /* Dump out the symbols of a bfd */ int i; int count = bfd_get_symcount (abfd); if (count) { size_t len; asymbol **table = bfd_get_outsymbols (abfd); sprintf (buffer, "$$ %s\r\n", abfd->filename); len = strlen (buffer); if (bfd_write (buffer, len, 1, abfd) != len) return false; for (i = 0; i < count; i++) { asymbol *s = table[i]; #if 0 int len = strlen (s->name); /* If this symbol has a .[ocs] in it, it's probably a file name and we'll output that as the module name */ if (len > 3 && s->name[len - 2] == '.') { int l; sprintf (buffer, "$$ %s\r\n", s->name); l = strlen (buffer); if (bfd_write (buffer, l, 1, abfd) != l) return false; } else #endif if (s->flags & (BSF_GLOBAL | BSF_LOCAL) && (s->flags & BSF_DEBUGGING) == 0 && s->name[0] != '.' && s->name[0] != 't') { /* Just dump out non debug symbols */ int l; char buf2[40], *p; sprintf_vma (buf2, s->value + s->section->output_section->lma + s->section->output_offset); p = buf2; while (p[0] == '0' && p[1] != 0) p++; sprintf (buffer, " %s $%s\r\n", s->name, p); l = strlen (buffer); if (bfd_write (buffer, l, 1, abfd) != l) return false; } } sprintf (buffer, "$$ \r\n"); len = strlen (buffer); if (bfd_write (buffer, len, 1, abfd) != len) return false; } return true; } static boolean internal_srec_write_object_contents (abfd, symbols) bfd *abfd; int symbols; { tdata_type *tdata = abfd->tdata.srec_data; srec_data_list_type *list; if (symbols) { if (! srec_write_symbols (abfd)) return false; } if (! srec_write_header (abfd)) return false; /* Now wander though all the sections provided and output them */ list = tdata->head; while (list != (srec_data_list_type *) NULL) { if (! srec_write_section (abfd, tdata, list)) return false; list = list->next; } return srec_write_terminator (abfd, tdata); } static boolean srec_write_object_contents (abfd) bfd *abfd; { return internal_srec_write_object_contents (abfd, 0); } static boolean symbolsrec_write_object_contents (abfd) bfd *abfd; { return internal_srec_write_object_contents (abfd, 1); } /*ARGSUSED*/ static int srec_sizeof_headers (abfd, exec) bfd *abfd; boolean exec; { return 0; } static asymbol * srec_make_empty_symbol (abfd) bfd *abfd; { asymbol *new = (asymbol *) bfd_zalloc (abfd, sizeof (asymbol)); if (new) new->the_bfd = abfd; return new; } static long srec_get_symtab_upper_bound (abfd) bfd *abfd; { /* Read in all the info */ if (! srec_get_section_contents (abfd, abfd->sections, 0, 0, 0)) return -1; return (bfd_get_symcount (abfd) + 1) * (sizeof (asymbol *)); } static long srec_get_symtab (abfd, alocation) bfd *abfd; asymbol **alocation; { int lim = abfd->symcount; int i; for (i = 0; i < lim; i++) { alocation[i] = abfd->tdata.srec_data->symbols + i; } alocation[i] = 0; return lim; } /*ARGSUSED*/ void srec_get_symbol_info (ignore_abfd, symbol, ret) bfd *ignore_abfd; asymbol *symbol; symbol_info *ret; { bfd_symbol_info (symbol, ret); } /*ARGSUSED*/ void srec_print_symbol (ignore_abfd, afile, symbol, how) bfd *ignore_abfd; PTR afile; asymbol *symbol; bfd_print_symbol_type how; { FILE *file = (FILE *) afile; switch (how) { case bfd_print_symbol_name: fprintf (file, "%s", symbol->name); break; default: bfd_print_symbol_vandf ((PTR) file, symbol); fprintf (file, " %-5s %s", symbol->section->name, symbol->name); } } #define srec_close_and_cleanup _bfd_generic_close_and_cleanup #define srec_bfd_free_cached_info _bfd_generic_bfd_free_cached_info #define srec_new_section_hook _bfd_generic_new_section_hook #define srec_bfd_is_local_label bfd_generic_is_local_label #define srec_get_lineno _bfd_nosymbols_get_lineno #define srec_find_nearest_line _bfd_nosymbols_find_nearest_line #define srec_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol #define srec_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define srec_bfd_relax_section bfd_generic_relax_section #define srec_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define srec_bfd_link_add_symbols _bfd_generic_link_add_symbols #define srec_bfd_final_link _bfd_generic_final_link const bfd_target srec_vec = { "srec", /* name */ bfd_target_srec_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading underscore */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 1, /* minimum alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ { _bfd_dummy_target, srec_object_p, /* bfd_check_format */ _bfd_dummy_target, _bfd_dummy_target, }, { bfd_false, srec_mkobject, _bfd_generic_mkarchive, bfd_false, }, { /* bfd_write_contents */ bfd_false, srec_write_object_contents, _bfd_write_archive_contents, bfd_false, }, BFD_JUMP_TABLE_GENERIC (srec), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (srec), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (srec), BFD_JUMP_TABLE_LINK (srec), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 }; const bfd_target symbolsrec_vec = { "symbolsrec", /* name */ bfd_target_srec_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading underscore */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 1, /* minimum alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ { _bfd_dummy_target, symbolsrec_object_p, /* bfd_check_format */ _bfd_dummy_target, _bfd_dummy_target, }, { bfd_false, srec_mkobject, _bfd_generic_mkarchive, bfd_false, }, { /* bfd_write_contents */ bfd_false, symbolsrec_write_object_contents, _bfd_write_archive_contents, bfd_false, }, BFD_JUMP_TABLE_GENERIC (srec), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (srec), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (srec), BFD_JUMP_TABLE_LINK (srec), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 }; gdb-4.13/bfd/stab-syms.c 666 34562 1752 4224 5541350170 13360 0ustar fnfcygnus/* Table of stab names for the BFD library. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #define ARCH_SIZE 32 /* Value doesn't matter. */ #include "libaout.h" #include "aout/aout64.h" /* Create a table of debugging stab-codes and corresponding names. */ #define __define_name(CODE, STRING) {(int)CODE, STRING}, #define __define_stab(NAME, CODE, STRING) __define_name(CODE, STRING) CONST struct { short code; char string[10]; } aout_stab_names[] = { #include "aout/stab.def" /* These are not really stab symbols, but it is convenient to have them here for the sake of nm. For completeness, we could also add N_TEXT etc, but those are never needed, since nm treats those specially. */ __define_name (N_SETA, "SETA")/* Absolute set element symbol */ __define_name (N_SETT, "SETT")/* Text set element symbol */ __define_name (N_SETD, "SETD")/* Data set element symbol */ __define_name (N_SETB, "SETB")/* Bss set element symbol */ __define_name (N_SETV, "SETV")/* Pointer to set vector in data area. */ __define_name (N_INDR, "INDR") __define_name (N_WARNING, "WARNING") }; #undef __define_stab #undef GNU_EXTRA_STABS CONST char * aout_stab_name (code) int code; { register int i = sizeof (aout_stab_names) / sizeof (aout_stab_names[0]); while (--i >= 0) if (aout_stab_names[i].code == code) return aout_stab_names[i].string; return 0; } gdb-4.13/bfd/sunos.c 666 34562 1752 174646 5610535333 12670 0ustar fnfcygnus/* BFD backend for SunOS binaries. Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define TARGETNAME "a.out-sunos-big" #define MY(OP) CAT(sunos_big_,OP) #include "bfd.h" #include "bfdlink.h" #include "libaout.h" /* Static routines defined in this file. */ static boolean sunos_read_dynamic_info PARAMS ((bfd *)); static long sunos_get_dynamic_symtab_upper_bound PARAMS ((bfd *)); static long sunos_canonicalize_dynamic_symtab PARAMS ((bfd *, asymbol **)); static long sunos_get_dynamic_reloc_upper_bound PARAMS ((bfd *)); static long sunos_canonicalize_dynamic_reloc PARAMS ((bfd *, arelent **, asymbol **)); static struct bfd_hash_entry *sunos_link_hash_newfunc PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *)); static struct bfd_link_hash_table *sunos_link_hash_table_create PARAMS ((bfd *)); static boolean sunos_add_dynamic_symbols PARAMS ((bfd *, struct bfd_link_info *)); static boolean sunos_add_one_symbol PARAMS ((struct bfd_link_info *, bfd *, const char *, flagword, asection *, bfd_vma, const char *, boolean, boolean, struct bfd_link_hash_entry **)); static boolean sunos_scan_relocs PARAMS ((struct bfd_link_info *, bfd *, asection *, bfd_size_type)); static boolean sunos_scan_std_relocs PARAMS ((struct bfd_link_info *, bfd *, asection *, const struct reloc_std_external *, bfd_size_type)); static boolean sunos_scan_ext_relocs PARAMS ((struct bfd_link_info *, bfd *, asection *, const struct reloc_ext_external *, bfd_size_type)); static boolean sunos_link_dynamic_object PARAMS ((struct bfd_link_info *, bfd *)); static boolean sunos_write_dynamic_symbol PARAMS ((bfd *, struct bfd_link_info *, struct aout_link_hash_entry *)); static boolean sunos_check_dynamic_reloc PARAMS ((struct bfd_link_info *, bfd *, asection *, struct aout_link_hash_entry *, PTR, boolean *)); static boolean sunos_finish_dynamic_link PARAMS ((bfd *, struct bfd_link_info *)); #define MY_get_dynamic_symtab_upper_bound sunos_get_dynamic_symtab_upper_bound #define MY_canonicalize_dynamic_symtab sunos_canonicalize_dynamic_symtab #define MY_get_dynamic_reloc_upper_bound sunos_get_dynamic_reloc_upper_bound #define MY_canonicalize_dynamic_reloc sunos_canonicalize_dynamic_reloc #define MY_bfd_link_hash_table_create sunos_link_hash_table_create #define MY_add_dynamic_symbols sunos_add_dynamic_symbols #define MY_add_one_symbol sunos_add_one_symbol #define MY_link_dynamic_object sunos_link_dynamic_object #define MY_write_dynamic_symbol sunos_write_dynamic_symbol #define MY_check_dynamic_reloc sunos_check_dynamic_reloc #define MY_finish_dynamic_link sunos_finish_dynamic_link /* Include the usual a.out support. */ #include "aoutf1.h" /* SunOS shared library support. We store a pointer to this structure in obj_aout_dynamic_info (abfd). */ struct sunos_dynamic_info { /* Whether we found any dynamic information. */ boolean valid; /* Dynamic information. */ struct internal_sun4_dynamic_link dyninfo; /* Number of dynamic symbols. */ long dynsym_count; /* Read in nlists for dynamic symbols. */ struct external_nlist *dynsym; /* asymbol structures for dynamic symbols. */ aout_symbol_type *canonical_dynsym; /* Read in dynamic string table. */ char *dynstr; /* Number of dynamic relocs. */ long dynrel_count; /* Read in dynamic relocs. This may be reloc_std_external or reloc_ext_external. */ PTR dynrel; /* arelent structures for dynamic relocs. */ arelent *canonical_dynrel; }; /* The hash table of dynamic symbols is composed of two word entries. See include/aout/sun4.h for details. */ #define HASH_ENTRY_SIZE (2 * BYTES_IN_WORD) /* Read in the basic dynamic information. This locates the __DYNAMIC structure and uses it to find the dynamic_link structure. It creates and saves a sunos_dynamic_info structure. If it can't find __DYNAMIC, it sets the valid field of the sunos_dynamic_info structure to false to avoid doing this work again. */ static boolean sunos_read_dynamic_info (abfd) bfd *abfd; { struct sunos_dynamic_info *info; asection *dynsec; file_ptr dynoff; struct external_sun4_dynamic dyninfo; unsigned long dynver; struct external_sun4_dynamic_link linkinfo; if (obj_aout_dynamic_info (abfd) != (PTR) NULL) return true; if ((abfd->flags & DYNAMIC) == 0) { bfd_set_error (bfd_error_invalid_operation); return false; } info = ((struct sunos_dynamic_info *) bfd_zalloc (abfd, sizeof (struct sunos_dynamic_info))); if (!info) { bfd_set_error (bfd_error_no_memory); return false; } info->valid = false; info->dynsym = NULL; info->dynstr = NULL; info->canonical_dynsym = NULL; info->dynrel = NULL; info->canonical_dynrel = NULL; obj_aout_dynamic_info (abfd) = (PTR) info; /* This code used to look for the __DYNAMIC symbol to locate the dynamic linking information. However this inhibits recovering the dynamic symbols from a stripped object file, so blindly assume that the dynamic linking information is located at the start of the data section. We could verify this assumption later by looking through the dynamic symbols for the __DYNAMIC symbol. */ if ((abfd->flags & DYNAMIC) == 0) return true; if (! bfd_get_section_contents (abfd, obj_datasec (abfd), (PTR) &dyninfo, (file_ptr) 0, sizeof dyninfo)) return true; dynver = GET_WORD (abfd, dyninfo.ld_version); if (dynver != 2 && dynver != 3) return true; dynoff = GET_WORD (abfd, dyninfo.ld); /* dynoff is a virtual address. It is probably always in the .data section, but this code should work even if it moves. */ if (dynoff < bfd_get_section_vma (abfd, obj_datasec (abfd))) dynsec = obj_textsec (abfd); else dynsec = obj_datasec (abfd); dynoff -= bfd_get_section_vma (abfd, dynsec); if (dynoff < 0 || dynoff > bfd_section_size (abfd, dynsec)) return true; /* This executable appears to be dynamically linked in a way that we can understand. */ if (! bfd_get_section_contents (abfd, dynsec, (PTR) &linkinfo, dynoff, (bfd_size_type) sizeof linkinfo)) return true; /* Swap in the dynamic link information. */ info->dyninfo.ld_loaded = GET_WORD (abfd, linkinfo.ld_loaded); info->dyninfo.ld_need = GET_WORD (abfd, linkinfo.ld_need); info->dyninfo.ld_rules = GET_WORD (abfd, linkinfo.ld_rules); info->dyninfo.ld_got = GET_WORD (abfd, linkinfo.ld_got); info->dyninfo.ld_plt = GET_WORD (abfd, linkinfo.ld_plt); info->dyninfo.ld_rel = GET_WORD (abfd, linkinfo.ld_rel); info->dyninfo.ld_hash = GET_WORD (abfd, linkinfo.ld_hash); info->dyninfo.ld_stab = GET_WORD (abfd, linkinfo.ld_stab); info->dyninfo.ld_stab_hash = GET_WORD (abfd, linkinfo.ld_stab_hash); info->dyninfo.ld_buckets = GET_WORD (abfd, linkinfo.ld_buckets); info->dyninfo.ld_symbols = GET_WORD (abfd, linkinfo.ld_symbols); info->dyninfo.ld_symb_size = GET_WORD (abfd, linkinfo.ld_symb_size); info->dyninfo.ld_text = GET_WORD (abfd, linkinfo.ld_text); info->dyninfo.ld_plt_sz = GET_WORD (abfd, linkinfo.ld_plt_sz); /* The only way to get the size of the symbol information appears to be to determine the distance between it and the string table. */ info->dynsym_count = ((info->dyninfo.ld_symbols - info->dyninfo.ld_stab) / EXTERNAL_NLIST_SIZE); BFD_ASSERT (info->dynsym_count * EXTERNAL_NLIST_SIZE == info->dyninfo.ld_symbols - info->dyninfo.ld_stab); /* Similarly, the relocs end at the hash table. */ info->dynrel_count = ((info->dyninfo.ld_hash - info->dyninfo.ld_rel) / obj_reloc_entry_size (abfd)); BFD_ASSERT (info->dynrel_count * obj_reloc_entry_size (abfd) == info->dyninfo.ld_hash - info->dyninfo.ld_rel); info->valid = true; return true; } /* Return the amount of memory required for the dynamic symbols. */ static long sunos_get_dynamic_symtab_upper_bound (abfd) bfd *abfd; { struct sunos_dynamic_info *info; if (! sunos_read_dynamic_info (abfd)) return -1; info = (struct sunos_dynamic_info *) obj_aout_dynamic_info (abfd); if (! info->valid) { bfd_set_error (bfd_error_no_symbols); return -1; } return (info->dynsym_count + 1) * sizeof (asymbol *); } /* Read in the dynamic symbols. */ static long sunos_canonicalize_dynamic_symtab (abfd, storage) bfd *abfd; asymbol **storage; { struct sunos_dynamic_info *info; long i; /* Get the general dynamic information. */ if (obj_aout_dynamic_info (abfd) == NULL) { if (! sunos_read_dynamic_info (abfd)) return -1; } info = (struct sunos_dynamic_info *) obj_aout_dynamic_info (abfd); if (! info->valid) { bfd_set_error (bfd_error_no_symbols); return -1; } /* Get the dynamic nlist structures. */ if (info->dynsym == (struct external_nlist *) NULL) { info->dynsym = ((struct external_nlist *) bfd_alloc (abfd, (info->dynsym_count * EXTERNAL_NLIST_SIZE))); if (info->dynsym == NULL && info->dynsym_count != 0) { bfd_set_error (bfd_error_no_memory); return -1; } if (bfd_seek (abfd, info->dyninfo.ld_stab, SEEK_SET) != 0 || (bfd_read ((PTR) info->dynsym, info->dynsym_count, EXTERNAL_NLIST_SIZE, abfd) != info->dynsym_count * EXTERNAL_NLIST_SIZE)) { if (info->dynsym != NULL) { bfd_release (abfd, info->dynsym); info->dynsym = NULL; } return -1; } } /* Get the dynamic strings. */ if (info->dynstr == (char *) NULL) { info->dynstr = (char *) bfd_alloc (abfd, info->dyninfo.ld_symb_size); if (info->dynstr == NULL && info->dyninfo.ld_symb_size != 0) { bfd_set_error (bfd_error_no_memory); return -1; } if (bfd_seek (abfd, info->dyninfo.ld_symbols, SEEK_SET) != 0 || (bfd_read ((PTR) info->dynstr, 1, info->dyninfo.ld_symb_size, abfd) != info->dyninfo.ld_symb_size)) { if (info->dynstr != NULL) { bfd_release (abfd, info->dynstr); info->dynstr = NULL; } return -1; } } #ifdef CHECK_DYNAMIC_HASH /* Check my understanding of the dynamic hash table by making sure that each symbol can be located in the hash table. */ { bfd_size_type table_size; bfd_byte *table; bfd_size_type i; if (info->dyninfo.ld_buckets > info->dynsym_count) abort (); table_size = info->dyninfo.ld_stab - info->dyninfo.ld_hash; table = (bfd_byte *) malloc (table_size); if (table == NULL && table_size != 0) abort (); if (bfd_seek (abfd, info->dyninfo.ld_hash, SEEK_SET) != 0 || bfd_read ((PTR) table, 1, table_size, abfd) != table_size) abort (); for (i = 0; i < info->dynsym_count; i++) { unsigned char *name; unsigned long hash; name = ((unsigned char *) info->dynstr + GET_WORD (abfd, info->dynsym[i].e_strx)); hash = 0; while (*name != '\0') hash = (hash << 1) + *name++; hash &= 0x7fffffff; hash %= info->dyninfo.ld_buckets; while (GET_WORD (abfd, table + hash * HASH_ENTRY_SIZE) != i) { hash = GET_WORD (abfd, table + hash * HASH_ENTRY_SIZE + BYTES_IN_WORD); if (hash == 0 || hash >= table_size / HASH_ENTRY_SIZE) abort (); } } free (table); } #endif /* CHECK_DYNAMIC_HASH */ /* Get the asymbol structures corresponding to the dynamic nlist structures. */ if (info->canonical_dynsym == (aout_symbol_type *) NULL) { info->canonical_dynsym = ((aout_symbol_type *) bfd_alloc (abfd, (info->dynsym_count * sizeof (aout_symbol_type)))); if (info->canonical_dynsym == NULL && info->dynsym_count != 0) { bfd_set_error (bfd_error_no_memory); return -1; } if (! aout_32_translate_symbol_table (abfd, info->canonical_dynsym, info->dynsym, info->dynsym_count, info->dynstr, info->dyninfo.ld_symb_size, true)) { if (info->canonical_dynsym != NULL) { bfd_release (abfd, info->canonical_dynsym); info->canonical_dynsym = NULL; } return -1; } } /* Return pointers to the dynamic asymbol structures. */ for (i = 0; i < info->dynsym_count; i++) *storage++ = (asymbol *) (info->canonical_dynsym + i); *storage = NULL; return info->dynsym_count; } /* Return the amount of memory required for the dynamic relocs. */ static long sunos_get_dynamic_reloc_upper_bound (abfd) bfd *abfd; { struct sunos_dynamic_info *info; if (! sunos_read_dynamic_info (abfd)) return -1; info = (struct sunos_dynamic_info *) obj_aout_dynamic_info (abfd); if (! info->valid) { bfd_set_error (bfd_error_no_symbols); return -1; } return (info->dynrel_count + 1) * sizeof (arelent *); } /* Read in the dynamic relocs. */ static long sunos_canonicalize_dynamic_reloc (abfd, storage, syms) bfd *abfd; arelent **storage; asymbol **syms; { struct sunos_dynamic_info *info; long i; /* Get the general dynamic information. */ if (obj_aout_dynamic_info (abfd) == (PTR) NULL) { if (! sunos_read_dynamic_info (abfd)) return -1; } info = (struct sunos_dynamic_info *) obj_aout_dynamic_info (abfd); if (! info->valid) { bfd_set_error (bfd_error_no_symbols); return -1; } /* Get the dynamic reloc information. */ if (info->dynrel == NULL) { info->dynrel = (PTR) bfd_alloc (abfd, (info->dynrel_count * obj_reloc_entry_size (abfd))); if (info->dynrel == NULL && info->dynrel_count != 0) { bfd_set_error (bfd_error_no_memory); return -1; } if (bfd_seek (abfd, info->dyninfo.ld_rel, SEEK_SET) != 0 || (bfd_read ((PTR) info->dynrel, info->dynrel_count, obj_reloc_entry_size (abfd), abfd) != info->dynrel_count * obj_reloc_entry_size (abfd))) { if (info->dynrel != NULL) { bfd_release (abfd, info->dynrel); info->dynrel = NULL; } return -1; } } /* Get the arelent structures corresponding to the dynamic reloc information. */ if (info->canonical_dynrel == (arelent *) NULL) { arelent *to; info->canonical_dynrel = ((arelent *) bfd_alloc (abfd, (info->dynrel_count * sizeof (arelent)))); if (info->canonical_dynrel == NULL && info->dynrel_count != 0) { bfd_set_error (bfd_error_no_memory); return -1; } to = info->canonical_dynrel; if (obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE) { register struct reloc_ext_external *p; struct reloc_ext_external *pend; p = (struct reloc_ext_external *) info->dynrel; pend = p + info->dynrel_count; for (; p < pend; p++, to++) NAME(aout,swap_ext_reloc_in) (abfd, p, to, syms); } else { register struct reloc_std_external *p; struct reloc_std_external *pend; p = (struct reloc_std_external *) info->dynrel; pend = p + info->dynrel_count; for (; p < pend; p++, to++) NAME(aout,swap_std_reloc_in) (abfd, p, to, syms); } } /* Return pointers to the dynamic arelent structures. */ for (i = 0; i < info->dynrel_count; i++) *storage++ = info->canonical_dynrel + i; *storage = NULL; return info->dynrel_count; } /* Code to handle linking of SunOS shared libraries. */ /* A SPARC procedure linkage table entry is 12 bytes. The first entry in the table is a jump which is filled in by the runtime linker. The remaining entries are branches back to the first entry, followed by an index into the relocation table encoded to look like a sethi of %g0. */ #define SPARC_PLT_ENTRY_SIZE (12) static bfd_byte sparc_plt_first_entry[SPARC_PLT_ENTRY_SIZE] = { /* sethi %hi(0),%g1; address filled in by runtime linker. */ 0x3, 0, 0, 0, /* jmp %g1; offset filled in by runtime linker. */ 0x81, 0xc0, 0x60, 0, /* nop */ 0x1, 0, 0, 0 }; /* save %sp, -96, %sp */ #define SPARC_PLT_ENTRY_WORD0 0x9de3bfa0 /* call; address filled in later. */ #define SPARC_PLT_ENTRY_WORD1 0x40000000 /* sethi; reloc index filled in later. */ #define SPARC_PLT_ENTRY_WORD2 0x01000000 /* An m68k procedure linkage table entry is 8 bytes. The first entry in the table is a jump which is filled in the by the runtime linker. The remaining entries are branches back to the first entry, followed by a two byte index into the relocation table. */ #define M68K_PLT_ENTRY_SIZE (8) static bfd_byte m68k_plt_first_entry[M68K_PLT_ENTRY_SIZE] = { /* jmps @# */ 0x4e, 0xf9, /* Filled in by runtime linker with a magic address. */ 0, 0, 0, 0, /* Not used? */ 0, 0 }; /* bsrl */ #define M68K_PLT_ENTRY_WORD0 (0x61ff) /* Remaining words filled in later. */ /* An entry in the SunOS linker hash table. */ struct sunos_link_hash_entry { struct aout_link_hash_entry root; /* If this is a dynamic symbol, this is its index into the dynamic symbol table. This is initialized to -1. As the linker looks at the input files, it changes this to -2 if it will be added to the dynamic symbol table. After all the input files have been seen, the linker will know whether to build a dynamic symbol table; if it does build one, this becomes the index into the table. */ long dynindx; /* If this is a dynamic symbol, this is the index of the name in the dynamic symbol string table. */ long dynstr_index; /* Some linker flags. */ unsigned char flags; /* Symbol is referenced by a regular object. */ #define SUNOS_REF_REGULAR 01 /* Symbol is defined by a regular object. */ #define SUNOS_DEF_REGULAR 02 /* Symbol is referenced by a dynamic object. */ #define SUNOS_REF_DYNAMIC 010 /* Symbol is defined by a dynamic object. */ #define SUNOS_DEF_DYNAMIC 020 }; /* The SunOS linker hash table. */ struct sunos_link_hash_table { struct aout_link_hash_table root; /* The first dynamic object found during the link. */ bfd *dynobj; /* The number of dynamic symbols. */ size_t dynsymcount; /* The number of buckets in the hash table. */ size_t bucketcount; }; /* Routine to create an entry in an SunOS link hash table. */ static struct bfd_hash_entry * sunos_link_hash_newfunc (entry, table, string) struct bfd_hash_entry *entry; struct bfd_hash_table *table; const char *string; { struct sunos_link_hash_entry *ret = (struct sunos_link_hash_entry *) entry; /* Allocate the structure if it has not already been allocated by a subclass. */ if (ret == (struct sunos_link_hash_entry *) NULL) ret = ((struct sunos_link_hash_entry *) bfd_hash_allocate (table, sizeof (struct sunos_link_hash_entry))); if (ret == (struct sunos_link_hash_entry *) NULL) { bfd_set_error (bfd_error_no_memory); return (struct bfd_hash_entry *) ret; } /* Call the allocation method of the superclass. */ ret = ((struct sunos_link_hash_entry *) NAME(aout,link_hash_newfunc) ((struct bfd_hash_entry *) ret, table, string)); if (ret != NULL) { /* Set local fields. */ ret->dynindx = -1; ret->dynstr_index = -1; ret->flags = 0; } return (struct bfd_hash_entry *) ret; } /* Create a SunOS link hash table. */ static struct bfd_link_hash_table * sunos_link_hash_table_create (abfd) bfd *abfd; { struct sunos_link_hash_table *ret; ret = ((struct sunos_link_hash_table *) malloc (sizeof (struct sunos_link_hash_table))); if (ret == (struct sunos_link_hash_table *) NULL) { bfd_set_error (bfd_error_no_memory); return (struct bfd_link_hash_table *) NULL; } if (! NAME(aout,link_hash_table_init) (&ret->root, abfd, sunos_link_hash_newfunc)) { free (ret); return (struct bfd_link_hash_table *) NULL; } ret->dynobj = NULL; ret->dynsymcount = 0; ret->bucketcount = 0; return &ret->root.root; } /* Look up an entry in an SunOS link hash table. */ #define sunos_link_hash_lookup(table, string, create, copy, follow) \ ((struct sunos_link_hash_entry *) \ aout_link_hash_lookup (&(table)->root, (string), (create), (copy),\ (follow))) /* Traverse a SunOS link hash table. */ #define sunos_link_hash_traverse(table, func, info) \ (aout_link_hash_traverse \ (&(table)->root, \ (boolean (*) PARAMS ((struct aout_link_hash_entry *, PTR))) (func), \ (info))) /* Get the SunOS link hash table from the info structure. This is just a cast. */ #define sunos_hash_table(p) ((struct sunos_link_hash_table *) ((p)->hash)) static boolean sunos_scan_dynamic_symbol PARAMS ((struct sunos_link_hash_entry *, PTR)); /* Add dynamic symbols during a link. This is called by the a.out backend linker when it encounters an object with the DYNAMIC flag set. */ static boolean sunos_add_dynamic_symbols (abfd, info) bfd *abfd; struct bfd_link_info *info; { asection *s; /* We do not want to include the sections in a dynamic object in the output file. We hack by simply clobbering the list of sections in the BFD. This could be handled more cleanly by, say, a new section flag; the existing SEC_NEVER_LOAD flag is not the one we want, because that one still implies that the section takes up space in the output file. */ abfd->sections = NULL; /* The native linker seems to just ignore dynamic objects when -r is used. */ if (info->relocateable) return true; /* There's no hope of using a dynamic object which does not exactly match the format of the output file. */ if (info->hash->creator != abfd->xvec) { bfd_set_error (bfd_error_invalid_operation); return false; } /* If this is the first dynamic object, create some new sections to hold dynamic linking information. We need to put these sections somewhere, and the first dynamic object is as good a place as any. The linker script will look for these special section names and put them in the right place in the output file. See include/aout/sun4.h for more details of the dynamic linking information. */ if (sunos_hash_table (info)->dynobj == NULL) { flagword flags; asection *sdyn; sunos_hash_table (info)->dynobj = abfd; flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY; /* The .dynamic section holds the basic dynamic information: the sun4_dynamic structure, the dynamic debugger information, and the sun4_dynamic_link structure. */ s = bfd_make_section (abfd, ".dynamic"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags) || ! bfd_set_section_alignment (abfd, s, 2)) return false; sdyn = s; /* The .need section holds the list of names of shared objets which must be included at runtime. The address of this section is put in the ld_need field. */ s = bfd_make_section (abfd, ".need"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; /* The .rules section holds the path to search for shared objects. The address of this section is put in the ld_rules field. */ s = bfd_make_section (abfd, ".rules"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; /* The .got section holds the global offset table. I don't really know how this works, actually. It seems to only be used for PIC code. The address minus four is put in the ld_got field. */ s = bfd_make_section (abfd, ".got"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags) || ! bfd_set_section_alignment (abfd, s, 2)) return false; s->_raw_size = BYTES_IN_WORD; /* The .plt section holds the procedure linkage table. The address is put in the ld_plt field. */ s = bfd_make_section (abfd, ".plt"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_CODE) || ! bfd_set_section_alignment (abfd, s, 2)) return false; /* The .dynrel section holds the dynamic relocs. The address is put in the ld_rel field. */ s = bfd_make_section (abfd, ".dynrel"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; /* The .hash section holds the dynamic hash table. The address is put in the ld_hash field. */ s = bfd_make_section (abfd, ".hash"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; /* The .dynsym section holds the dynamic symbols. The address is put in the ld_stab field. */ s = bfd_make_section (abfd, ".dynsym"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; /* The .dynstr section holds the dynamic symbol string table. The address is put in the ld_symbols field. */ s = bfd_make_section (abfd, ".dynstr"); if (s == NULL || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY) || ! bfd_set_section_alignment (abfd, s, 2)) return false; } return true; } /* Function to add a single symbol to the linker hash table. This is a wrapper around _bfd_generic_link_add_one_symbol which handles the tweaking needed for dynamic linking support. */ static boolean sunos_add_one_symbol (info, abfd, name, flags, section, value, string, copy, collect, hashp) struct bfd_link_info *info; bfd *abfd; const char *name; flagword flags; asection *section; bfd_vma value; const char *string; boolean copy; boolean collect; struct bfd_link_hash_entry **hashp; { struct sunos_link_hash_entry *h; int new_flag; h = sunos_link_hash_lookup (sunos_hash_table (info), name, true, copy, false); if (h == NULL) return false; if (hashp != NULL) *hashp = (struct bfd_link_hash_entry *) h; /* Treat a common symbol in a dynamic object as defined in the .bss section of the dynamic object. We don't want to allocate space for it in our process image. */ if ((abfd->flags & DYNAMIC) != 0 && bfd_is_com_section (section)) section = obj_bsssec (abfd); if (! bfd_is_und_section (section) && h->root.root.type != bfd_link_hash_new && h->root.root.type != bfd_link_hash_undefined) { /* We are defining the symbol, and it is already defined. This is a potential multiple definition error. */ if ((abfd->flags & DYNAMIC) != 0) { /* The definition we are adding is from a dynamic object. We do not want this new definition to override the existing definition, so we pretend it is just a reference. */ section = bfd_und_section_ptr; } else if ((h->root.root.type == bfd_link_hash_defined && (h->root.root.u.def.section->owner->flags & DYNAMIC) != 0) || (h->root.root.type == bfd_link_hash_common && ((h->root.root.u.c.section->owner->flags & DYNAMIC) != 0))) { /* The existing definition is from a dynamic object. We want to override it with the definition we just found. Clobber the existing definition. */ h->root.root.type = bfd_link_hash_new; } } /* Do the usual procedure for adding a symbol. */ if (! _bfd_generic_link_add_one_symbol (info, abfd, name, flags, section, value, string, copy, collect, hashp)) return false; /* Set a flag in the hash table entry indicating the type of reference or definition we just found. Keep a count of the number of dynamic symbols we find. A dynamic symbol is one which is referenced or defined by both a regular object and a shared object. */ if ((abfd->flags & DYNAMIC) == 0) { if (bfd_is_und_section (section)) new_flag = SUNOS_REF_REGULAR; else new_flag = SUNOS_DEF_REGULAR; } else { if (bfd_is_und_section (section)) new_flag = SUNOS_REF_DYNAMIC; else new_flag = SUNOS_DEF_DYNAMIC; } h->flags |= new_flag; if (h->dynindx == -1 && (h->flags & (SUNOS_DEF_REGULAR | SUNOS_REF_REGULAR)) != 0) { ++sunos_hash_table (info)->dynsymcount; h->dynindx = -2; } return true; } /* Record an assignment made to a symbol by a linker script. We need this in case some dynamic object refers to this symbol. */ boolean bfd_sunos_record_link_assignment (output_bfd, info, name) bfd *output_bfd; struct bfd_link_info *info; const char *name; { struct sunos_link_hash_entry *h; /* This is called after we have examined all the input objects. If the symbol does not exist, it merely means that no object refers to it, and we can just ignore it at this point. */ h = sunos_link_hash_lookup (sunos_hash_table (info), name, false, false, false); if (h == NULL) return true; h->flags |= SUNOS_DEF_REGULAR; if (h->dynindx == -1) { ++sunos_hash_table (info)->dynsymcount; h->dynindx = -2; } return true; } /* Set up the sizes and contents of the dynamic sections created in sunos_add_dynamic_symbols. This is called by the SunOS linker emulation before_allocation routine. We must set the sizes of the sections before the linker sets the addresses of the various sections. This unfortunately requires reading all the relocs so that we can work out which ones need to become dynamic relocs. If info->keep_memory is true, we keep the relocs in memory; otherwise, we discard them, and will read them again later. */ boolean bfd_sunos_size_dynamic_sections (output_bfd, info, sdynptr, sneedptr, srulesptr) bfd *output_bfd; struct bfd_link_info *info; asection **sdynptr; asection **sneedptr; asection **srulesptr; { bfd *dynobj; size_t dynsymcount; asection *s; size_t bucketcount; size_t hashalloc; size_t i; bfd *sub; *sdynptr = NULL; *sneedptr = NULL; *srulesptr = NULL; dynobj = sunos_hash_table (info)->dynobj; dynsymcount = sunos_hash_table (info)->dynsymcount; /* If there were no dynamic objects in the link, there is nothing to do here. */ if (dynobj == NULL) return true; /* The .dynamic section is always the same size. */ s = bfd_get_section_by_name (dynobj, ".dynamic"); BFD_ASSERT (s != NULL); s->_raw_size = (sizeof (struct external_sun4_dynamic) + EXTERNAL_SUN4_DYNAMIC_DEBUGGER_SIZE + sizeof (struct external_sun4_dynamic_link)); /* Set the size of the .dynsym and .hash sections. We counted the number of dynamic symbols as we read the input files. We will build the dynamic symbol table (.dynsym) and the hash table (.hash) when we build the final symbol table, because until then we do not know the correct value to give the symbols. We build the dynamic symbol string table (.dynstr) in a traversal of the symbol table using sunos_scan_dynamic_symbol. */ s = bfd_get_section_by_name (dynobj, ".dynsym"); BFD_ASSERT (s != NULL); s->_raw_size = dynsymcount * sizeof (struct external_nlist); s->contents = (bfd_byte *) bfd_alloc (output_bfd, s->_raw_size); if (s->contents == NULL && s->_raw_size != 0) { bfd_set_error (bfd_error_no_memory); return false; } /* The number of buckets is just the number of symbols divided by four. The compute the final size of the hash table, we must actually compute the hash table. Normally we need exactly as many entries in the hash table as there are dynamic symbols, but if some of the buckets are not used we will need additional entries. In the worse case, every symbol will hash to the same bucket, and we will need BUCKETCOUNT - 1 extra entries. */ if (dynsymcount >= 4) bucketcount = dynsymcount / 4; else if (dynsymcount > 0) bucketcount = dynsymcount; else bucketcount = 1; s = bfd_get_section_by_name (dynobj, ".hash"); BFD_ASSERT (s != NULL); hashalloc = (dynsymcount + bucketcount - 1) * HASH_ENTRY_SIZE; s->contents = (bfd_byte *) bfd_alloc (dynobj, hashalloc); if (s->contents == NULL && dynsymcount > 0) { bfd_set_error (bfd_error_no_memory); return false; } memset (s->contents, 0, hashalloc); for (i = 0; i < bucketcount; i++) PUT_WORD (output_bfd, (bfd_vma) -1, s->contents + i * HASH_ENTRY_SIZE); s->_raw_size = bucketcount * HASH_ENTRY_SIZE; sunos_hash_table (info)->bucketcount = bucketcount; /* Look through all the input BFD's and read their relocs. It would be better if we didn't have to do this, but there is no other way to determine the number of dynamic relocs we need, and, more importantly, there is no other way to know which symbols should get an entry in the procedure linkage table. */ for (sub = info->input_bfds; sub != NULL; sub = sub->link_next) { if ((sub->flags & DYNAMIC) == 0) { if (! sunos_scan_relocs (info, sub, obj_textsec (sub), exec_hdr (sub)->a_trsize) || ! sunos_scan_relocs (info, sub, obj_datasec (sub), exec_hdr (sub)->a_drsize)) return false; } } /* Scan all the symbols, place them in the dynamic symbol table, and build the dynamic hash table. We reuse dynsymcount as a counter for the number of symbols we have added so far. */ sunos_hash_table (info)->dynsymcount = 0; sunos_link_hash_traverse (sunos_hash_table (info), sunos_scan_dynamic_symbol, (PTR) info); BFD_ASSERT (sunos_hash_table (info)->dynsymcount == dynsymcount); /* The SunOS native linker seems to align the total size of the symbol strings to a multiple of 8. I don't know if this is important, but it can't hurt much. */ s = bfd_get_section_by_name (dynobj, ".dynstr"); BFD_ASSERT (s != NULL); if ((s->_raw_size & 7) != 0) { bfd_size_type add; bfd_byte *contents; add = 8 - (s->_raw_size & 7); contents = (bfd_byte *) realloc (s->contents, s->_raw_size + add); if (contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } memset (contents + s->_raw_size, 0, add); s->contents = contents; s->_raw_size += add; } /* Now that we have worked out the sizes of the procedure linkage table and the dynamic relocs, allocate storage for them. */ s = bfd_get_section_by_name (dynobj, ".plt"); BFD_ASSERT (s != NULL); if (s->_raw_size != 0) { s->contents = (bfd_byte *) bfd_alloc (dynobj, s->_raw_size); if (s->contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } /* Fill in the first entry in the table. */ switch (bfd_get_arch (dynobj)) { case bfd_arch_sparc: memcpy (s->contents, sparc_plt_first_entry, SPARC_PLT_ENTRY_SIZE); break; case bfd_arch_m68k: memcpy (s->contents, m68k_plt_first_entry, M68K_PLT_ENTRY_SIZE); break; default: abort (); } } s = bfd_get_section_by_name (dynobj, ".dynrel"); if (s->_raw_size != 0) { s->contents = (bfd_byte *) bfd_alloc (dynobj, s->_raw_size); if (s->contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } } /* We use the reloc_count field to keep track of how many of the relocs we have output so far. */ s->reloc_count = 0; /* Make space for the global offset table. */ s = bfd_get_section_by_name (dynobj, ".got"); s->contents = (bfd_byte *) bfd_alloc (dynobj, s->_raw_size); if (s->contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } *sdynptr = bfd_get_section_by_name (dynobj, ".dynamic"); *sneedptr = bfd_get_section_by_name (dynobj, ".need"); *srulesptr = bfd_get_section_by_name (dynobj, ".rules"); return true; } /* Scan the relocs for an input section. */ static boolean sunos_scan_relocs (info, abfd, sec, rel_size) struct bfd_link_info *info; bfd *abfd; asection *sec; bfd_size_type rel_size; { PTR relocs; PTR free_relocs = NULL; if (rel_size == 0) return true; if (! info->keep_memory) relocs = free_relocs = malloc (rel_size); else { aout_section_data (sec) = ((struct aout_section_data_struct *) bfd_alloc (abfd, sizeof (struct aout_section_data_struct))); if (aout_section_data (sec) == NULL) relocs = NULL; else relocs = aout_section_data (sec)->relocs = malloc (rel_size); } if (relocs == NULL) { bfd_set_error (bfd_error_no_memory); return false; } if (bfd_seek (abfd, sec->rel_filepos, SEEK_SET) != 0 || bfd_read (relocs, 1, rel_size, abfd) != rel_size) goto error_return; if (obj_reloc_entry_size (abfd) == RELOC_STD_SIZE) { if (! sunos_scan_std_relocs (info, abfd, sec, (struct reloc_std_external *) relocs, rel_size)) goto error_return; } else { if (! sunos_scan_ext_relocs (info, abfd, sec, (struct reloc_ext_external *) relocs, rel_size)) goto error_return; } if (free_relocs != NULL) free (free_relocs); return true; error_return: if (free_relocs != NULL) free (free_relocs); return false; } /* Scan the relocs for an input section using standard relocs. We need to figure out what to do for each reloc against a dynamic symbol. If the symbol is in the .text section, an entry is made in the procedure linkage table. Note that this will do the wrong thing if the symbol is actually data; I don't think the Sun 3 native linker handles this case correctly either. If the symbol is not in the .text section, we must preserve the reloc as a dynamic reloc. FIXME: We should also handle the PIC relocs here by building global offset table entries. */ static boolean sunos_scan_std_relocs (info, abfd, sec, relocs, rel_size) struct bfd_link_info *info; bfd *abfd; asection *sec; const struct reloc_std_external *relocs; bfd_size_type rel_size; { bfd *dynobj; asection *splt; asection *srel; struct sunos_link_hash_entry **sym_hashes; const struct reloc_std_external *rel, *relend; /* We only know how to handle m68k plt entries. */ if (bfd_get_arch (abfd) != bfd_arch_m68k) { bfd_set_error (bfd_error_invalid_target); return false; } dynobj = sunos_hash_table (info)->dynobj; splt = bfd_get_section_by_name (dynobj, ".plt"); srel = bfd_get_section_by_name (dynobj, ".dynrel"); BFD_ASSERT (splt != NULL && srel != NULL); sym_hashes = (struct sunos_link_hash_entry **) obj_aout_sym_hashes (abfd); relend = relocs + rel_size / RELOC_STD_SIZE; for (rel = relocs; rel < relend; rel++) { int r_index; struct sunos_link_hash_entry *h; /* We only want relocs against external symbols. */ if (abfd->xvec->header_byteorder_big_p) { if ((rel->r_type[0] & RELOC_STD_BITS_EXTERN_BIG) == 0) continue; } else { if ((rel->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE) == 0) continue; } /* Get the symbol index. */ if (abfd->xvec->header_byteorder_big_p) { r_index = ((rel->r_index[0] << 16) | (rel->r_index[1] << 8) | rel->r_index[2]); } else { r_index = ((rel->r_index[2] << 16) | (rel->r_index[1] << 8) | rel->r_index[0]); } /* Get the hash table entry. */ h = sym_hashes[r_index]; if (h == NULL) { /* This should not normally happen, but it will in any case be caught in the relocation phase. */ continue; } /* At this point common symbols have already been allocated, so we don't have to worry about them. We need to consider that we may have already seen this symbol and marked it undefined; if the symbols is really undefined, then SUNOS_DEF_DYNAMIC will be zero. */ if (h->root.root.type != bfd_link_hash_defined && h->root.root.type != bfd_link_hash_undefined) continue; if ((h->flags & SUNOS_DEF_DYNAMIC) == 0 || (h->flags & SUNOS_DEF_REGULAR) != 0) continue; BFD_ASSERT ((h->flags & SUNOS_REF_REGULAR) != 0); BFD_ASSERT (h->root.root.type == bfd_link_hash_defined ? (h->root.root.u.def.section->owner->flags & DYNAMIC) != 0 : (h->root.root.u.undef.abfd->flags & DYNAMIC) != 0); /* This reloc is against a symbol defined only by a dynamic object. */ if (h->root.root.type == bfd_link_hash_undefined) { /* Presumably this symbol was marked as being undefined by an earlier reloc. */ srel->_raw_size += RELOC_STD_SIZE; } else if ((h->root.root.u.def.section->flags & SEC_CODE) == 0) { bfd *sub; /* This reloc is not in the .text section. It must be copied into the dynamic relocs. We mark the symbol as being undefined. */ srel->_raw_size += RELOC_STD_SIZE; sub = h->root.root.u.def.section->owner; h->root.root.type = bfd_link_hash_undefined; h->root.root.u.undef.abfd = sub; } else { /* This symbol is in the .text section. We must give it an entry in the procedure linkage table, if we have not already done so. We change the definition of the symbol to the .plt section; this will cause relocs against it to be handled correctly. */ if (h->root.root.u.def.section != splt) { if (splt->_raw_size == 0) splt->_raw_size = M68K_PLT_ENTRY_SIZE; h->root.root.u.def.section = splt; h->root.root.u.def.value = splt->_raw_size; splt->_raw_size += M68K_PLT_ENTRY_SIZE; /* We will also need a dynamic reloc entry. */ srel->_raw_size += RELOC_STD_SIZE; } } } return true; } /* Scan the relocs for an input section using extended relocs. We need to figure out what to do for each reloc against a dynamic symbol. If the reloc is a WDISP30, and the symbol is in the .text section, an entry is made in the procedure linkage table. Otherwise, we must preserve the reloc as a dynamic reloc. FIXME: We should also handle the PIC relocs here by building global offset table entries. */ static boolean sunos_scan_ext_relocs (info, abfd, sec, relocs, rel_size) struct bfd_link_info *info; bfd *abfd; asection *sec; const struct reloc_ext_external *relocs; bfd_size_type rel_size; { bfd *dynobj; asection *splt; asection *srel; struct sunos_link_hash_entry **sym_hashes; const struct reloc_ext_external *rel, *relend; /* We only know how to handle SPARC plt entries. */ if (bfd_get_arch (abfd) != bfd_arch_sparc) { bfd_set_error (bfd_error_invalid_target); return false; } dynobj = sunos_hash_table (info)->dynobj; splt = bfd_get_section_by_name (dynobj, ".plt"); srel = bfd_get_section_by_name (dynobj, ".dynrel"); BFD_ASSERT (splt != NULL && srel != NULL); sym_hashes = (struct sunos_link_hash_entry **) obj_aout_sym_hashes (abfd); relend = relocs + rel_size / RELOC_EXT_SIZE; for (rel = relocs; rel < relend; rel++) { int r_index; int r_type; struct sunos_link_hash_entry *h; /* We only want relocs against external symbols. */ if (abfd->xvec->header_byteorder_big_p) { if ((rel->r_type[0] & RELOC_EXT_BITS_EXTERN_BIG) == 0) continue; } else { if ((rel->r_type[0] & RELOC_EXT_BITS_EXTERN_LITTLE) == 0) continue; } /* Get the symbol index and reloc type. */ if (abfd->xvec->header_byteorder_big_p) { r_index = ((rel->r_index[0] << 16) | (rel->r_index[1] << 8) | rel->r_index[2]); r_type = ((rel->r_type[0] & RELOC_EXT_BITS_TYPE_BIG) >> RELOC_EXT_BITS_TYPE_SH_BIG); } else { r_index = ((rel->r_index[2] << 16) | (rel->r_index[1] << 8) | rel->r_index[0]); r_type = ((rel->r_type[0] & RELOC_EXT_BITS_TYPE_LITTLE) >> RELOC_EXT_BITS_TYPE_SH_LITTLE); } /* Get the hash table entry. */ h = sym_hashes[r_index]; if (h == NULL) { /* This should not normally happen, but it will in any case be caught in the relocation phase. */ continue; } /* At this point common symbols have already been allocated, so we don't have to worry about them. We need to consider that we may have already seen this symbol and marked it undefined; if the symbols is really undefined, then SUNOS_DEF_DYNAMIC will be zero. */ if (h->root.root.type != bfd_link_hash_defined && h->root.root.type != bfd_link_hash_undefined) continue; if ((h->flags & SUNOS_DEF_DYNAMIC) == 0 || (h->flags & SUNOS_DEF_REGULAR) != 0) continue; BFD_ASSERT ((h->flags & SUNOS_REF_REGULAR) != 0); BFD_ASSERT (h->root.root.type == bfd_link_hash_defined ? (h->root.root.u.def.section->owner->flags & DYNAMIC) != 0 : (h->root.root.u.undef.abfd->flags & DYNAMIC) != 0); /* This reloc is against a symbol defined only by a dynamic object. */ if (h->root.root.type == bfd_link_hash_undefined) { /* Presumably this symbol was marked as being undefined by an earlier reloc. */ srel->_raw_size += RELOC_EXT_SIZE; } else if ((h->root.root.u.def.section->flags & SEC_CODE) == 0) { bfd *sub; /* This reloc is not in the .text section. It must be copied into the dynamic relocs. We mark the symbol as being undefined. */ srel->_raw_size += RELOC_EXT_SIZE; sub = h->root.root.u.def.section->owner; h->root.root.type = bfd_link_hash_undefined; h->root.root.u.undef.abfd = sub; } else { /* This symbol is in the .text section. We must give it an entry in the procedure linkage table, if we have not already done so. We change the definition of the symbol to the .plt section; this will cause relocs against it to be handled correctly. */ if (h->root.root.u.def.section != splt) { if (splt->_raw_size == 0) splt->_raw_size = SPARC_PLT_ENTRY_SIZE; h->root.root.u.def.section = splt; h->root.root.u.def.value = splt->_raw_size; splt->_raw_size += SPARC_PLT_ENTRY_SIZE; /* We will also need a dynamic reloc entry. */ srel->_raw_size += RELOC_EXT_SIZE; } } } return true; } /* Build the hash table of dynamic symbols, and to mark as written all symbols from dynamic objects which we do not plan to write out. */ static boolean sunos_scan_dynamic_symbol (h, data) struct sunos_link_hash_entry *h; PTR data; { struct bfd_link_info *info = (struct bfd_link_info *) data; /* Set the written flag for symbols we do not want to write out as part of the regular symbol table. This is all symbols which are not defined in a regular object file. For some reason symbols which are referenced by a regular object and defined by a dynamic object do not seem to show up in the regular symbol table. */ if ((h->flags & SUNOS_DEF_REGULAR) == 0) h->root.written = true; /* If this symbol is defined by a dynamic object and referenced by a regular object, see whether we gave it a reasonable value while scanning the relocs. */ if ((h->flags & SUNOS_DEF_REGULAR) == 0 && (h->flags & SUNOS_DEF_DYNAMIC) != 0 && (h->flags & SUNOS_REF_REGULAR) != 0) { if (h->root.root.type == bfd_link_hash_defined && ((h->root.root.u.def.section->owner->flags & DYNAMIC) != 0) && h->root.root.u.def.section->output_section == NULL) { bfd *sub; /* This symbol is currently defined in a dynamic section which is not being put into the output file. This implies that there is no reloc against the symbol. I'm not sure why this case would ever occur. In any case, we change the symbol to be undefined. */ sub = h->root.root.u.def.section->owner; h->root.root.type = bfd_link_hash_undefined; h->root.root.u.undef.abfd = sub; } } /* If this symbol is defined or referenced by a regular file, add it to the dynamic symbols. */ if ((h->flags & (SUNOS_DEF_REGULAR | SUNOS_REF_REGULAR)) != 0) { asection *s; size_t len; bfd_byte *contents; unsigned char *name; unsigned long hash; bfd *dynobj; BFD_ASSERT (h->dynindx == -2); h->dynindx = sunos_hash_table (info)->dynsymcount; ++sunos_hash_table (info)->dynsymcount; len = strlen (h->root.root.root.string); /* We don't bother to construct a BFD hash table for the strings which are the names of the dynamic symbols. Using a hash table for the regular symbols is beneficial, because the regular symbols includes the debugging symbols, which have long names and are often duplicated in several object files. There are no debugging symbols in the dynamic symbols. */ s = bfd_get_section_by_name (sunos_hash_table (info)->dynobj, ".dynstr"); BFD_ASSERT (s != NULL); if (s->contents == NULL) contents = (bfd_byte *) malloc (len + 1); else contents = (bfd_byte *) realloc (s->contents, s->_raw_size + len + 1); if (contents == NULL) { bfd_set_error (bfd_error_no_memory); return false; } s->contents = contents; h->dynstr_index = s->_raw_size; strcpy (contents + s->_raw_size, h->root.root.root.string); s->_raw_size += len + 1; /* Add it to the dynamic hash table. */ name = (unsigned char *) h->root.root.root.string; hash = 0; while (*name != '\0') hash = (hash << 1) + *name++; hash &= 0x7fffffff; hash %= sunos_hash_table (info)->bucketcount; dynobj = sunos_hash_table (info)->dynobj; s = bfd_get_section_by_name (dynobj, ".hash"); BFD_ASSERT (s != NULL); if (GET_SWORD (dynobj, s->contents + hash * HASH_ENTRY_SIZE) == -1) PUT_WORD (dynobj, h->dynindx, s->contents + hash * HASH_ENTRY_SIZE); else { bfd_vma next; next = GET_WORD (dynobj, (s->contents + hash * HASH_ENTRY_SIZE + BYTES_IN_WORD)); PUT_WORD (dynobj, s->_raw_size / HASH_ENTRY_SIZE, s->contents + hash * HASH_ENTRY_SIZE + BYTES_IN_WORD); PUT_WORD (dynobj, h->dynindx, s->contents + s->_raw_size); PUT_WORD (dynobj, next, s->contents + s->_raw_size + BYTES_IN_WORD); s->_raw_size += HASH_ENTRY_SIZE; } } return true; } /* Link a dynamic object. We actually don't have anything to do at this point. This entry point exists to prevent the regular linker code from doing anything with the object. */ /*ARGSUSED*/ static boolean sunos_link_dynamic_object (info, abfd) struct bfd_link_info *info; bfd *abfd; { return true; } /* Write out a dynamic symbol. This is called by the final traversal over the symbol table. */ static boolean sunos_write_dynamic_symbol (output_bfd, info, harg) bfd *output_bfd; struct bfd_link_info *info; struct aout_link_hash_entry *harg; { struct sunos_link_hash_entry *h = (struct sunos_link_hash_entry *) harg; boolean plt; int type; bfd_vma val; asection *s; struct external_nlist *outsym; if (h->dynindx < 0) return true; plt = false; switch (h->root.root.type) { default: case bfd_link_hash_new: abort (); /* Avoid variable not initialized warnings. */ return true; case bfd_link_hash_undefined: type = N_UNDF | N_EXT; val = 0; break; case bfd_link_hash_defined: { asection *sec; asection *output_section; sec = h->root.root.u.def.section; output_section = sec->output_section; BFD_ASSERT (bfd_is_abs_section (output_section) || output_section->owner == output_bfd); if (strcmp (sec->name, ".plt") == 0) { plt = true; type = N_UNDF | N_EXT; val = 0; } else { if (output_section == obj_textsec (output_bfd)) type = N_TEXT | N_EXT; else if (output_section == obj_datasec (output_bfd)) type = N_DATA | N_EXT; else if (output_section == obj_bsssec (output_bfd)) type = N_BSS | N_EXT; else type = N_ABS | N_EXT; val = (h->root.root.u.def.value + output_section->vma + sec->output_offset); } } break; case bfd_link_hash_common: type = N_UNDF | N_EXT; val = h->root.root.u.c.size; break; case bfd_link_hash_weak: type = N_WEAKU; val = 0; break; case bfd_link_hash_indirect: case bfd_link_hash_warning: /* FIXME: Ignore these for now. The circumstances under which they should be written out are not clear to me. */ return true; } s = bfd_get_section_by_name (sunos_hash_table (info)->dynobj, ".dynsym"); BFD_ASSERT (s != NULL); outsym = ((struct external_nlist *) (s->contents + h->dynindx * EXTERNAL_NLIST_SIZE)); bfd_h_put_8 (output_bfd, type, outsym->e_type); bfd_h_put_8 (output_bfd, 0, outsym->e_other); /* FIXME: The native linker doesn't use 0 for desc. It seems to use one less than the desc value in the shared library, although that seems unlikely. */ bfd_h_put_16 (output_bfd, 0, outsym->e_desc); PUT_WORD (output_bfd, h->dynstr_index, outsym->e_strx); PUT_WORD (output_bfd, val, outsym->e_value); /* If this symbol is in the procedure linkage table, fill in the table entry. */ if (plt) { bfd_byte *p; asection *s; bfd_vma r_address; p = h->root.root.u.def.section->contents + h->root.root.u.def.value; s = bfd_get_section_by_name (sunos_hash_table (info)->dynobj, ".dynrel"); BFD_ASSERT (s != NULL); r_address = (h->root.root.u.def.section->output_section->vma + h->root.root.u.def.section->output_offset + h->root.root.u.def.value); switch (bfd_get_arch (output_bfd)) { case bfd_arch_sparc: bfd_put_32 (output_bfd, SPARC_PLT_ENTRY_WORD0, p); bfd_put_32 (output_bfd, (SPARC_PLT_ENTRY_WORD1 + (((- (h->root.root.u.def.value + 4) >> 2) & 0x3fffffff))), p + 4); bfd_put_32 (output_bfd, SPARC_PLT_ENTRY_WORD2 + s->reloc_count, p + 8); break; case bfd_arch_m68k: bfd_put_16 (output_bfd, M68K_PLT_ENTRY_WORD0, p); bfd_put_32 (output_bfd, (- (h->root.root.u.def.value + 2)), p + 2); bfd_put_16 (output_bfd, s->reloc_count, p + 6); r_address += 2; break; default: abort (); } /* We also need to add a jump table reloc. */ p = s->contents + s->reloc_count * obj_reloc_entry_size (output_bfd); if (obj_reloc_entry_size (output_bfd) == RELOC_STD_SIZE) { struct reloc_std_external *srel; srel = (struct reloc_std_external *) p; PUT_WORD (output_bfd, r_address, srel->r_address); if (output_bfd->xvec->header_byteorder_big_p) { srel->r_index[0] = h->dynindx >> 16; srel->r_index[1] = h->dynindx >> 8; srel->r_index[2] = h->dynindx; srel->r_type[0] = (RELOC_STD_BITS_EXTERN_BIG | RELOC_STD_BITS_JMPTABLE_BIG); } else { srel->r_index[2] = h->dynindx >> 16; srel->r_index[1] = h->dynindx >> 8; srel->r_index[0] = h->dynindx; srel->r_type[0] = (RELOC_STD_BITS_EXTERN_LITTLE | RELOC_STD_BITS_JMPTABLE_LITTLE); } } else { struct reloc_ext_external *erel; erel = (struct reloc_ext_external *) p; PUT_WORD (output_bfd, r_address, erel->r_address); if (output_bfd->xvec->header_byteorder_big_p) { erel->r_index[0] = h->dynindx >> 16; erel->r_index[1] = h->dynindx >> 8; erel->r_index[2] = h->dynindx; erel->r_type[0] = (RELOC_EXT_BITS_EXTERN_BIG | (22 << RELOC_EXT_BITS_TYPE_SH_BIG)); } else { erel->r_index[2] = h->dynindx >> 16; erel->r_index[1] = h->dynindx >> 8; erel->r_index[0] = h->dynindx; erel->r_type[0] = (RELOC_EXT_BITS_EXTERN_LITTLE | (22 << RELOC_EXT_BITS_TYPE_SH_LITTLE)); } PUT_WORD (output_bfd, (bfd_vma) 0, erel->r_addend); } ++s->reloc_count; } return true; } /* This is called for each reloc against an external symbol. If this is a reloc which are are going to copy as a dynamic reloc, then copy it over, and tell the caller to not bother processing this reloc. */ /*ARGSUSED*/ static boolean sunos_check_dynamic_reloc (info, input_bfd, input_section, harg, reloc, skip) struct bfd_link_info *info; bfd *input_bfd; asection *input_section; struct aout_link_hash_entry *harg; PTR reloc; boolean *skip; { struct sunos_link_hash_entry *h = (struct sunos_link_hash_entry *) harg; bfd *dynobj; asection *srel; bfd_byte *p; *skip = false; dynobj = sunos_hash_table (info)->dynobj; if (dynobj == NULL || h->dynindx == -1 || h->root.root.type != bfd_link_hash_undefined || (h->flags & SUNOS_DEF_REGULAR) != 0 || (h->flags & SUNOS_DEF_DYNAMIC) == 0 || (h->root.root.u.undef.abfd->flags & DYNAMIC) == 0) return true; /* It looks this is a reloc we are supposed to copy. */ srel = bfd_get_section_by_name (dynobj, ".dynrel"); BFD_ASSERT (srel != NULL); p = srel->contents + srel->reloc_count * obj_reloc_entry_size (dynobj); /* Copy the reloc over. */ memcpy (p, reloc, obj_reloc_entry_size (dynobj)); /* Adjust the address and symbol index. */ if (obj_reloc_entry_size (dynobj) == RELOC_STD_SIZE) { struct reloc_std_external *srel; srel = (struct reloc_std_external *) p; PUT_WORD (dynobj, (GET_WORD (dynobj, srel->r_address) + input_section->output_section->vma + input_section->output_offset), srel->r_address); if (dynobj->xvec->header_byteorder_big_p) { srel->r_index[0] = h->dynindx >> 16; srel->r_index[1] = h->dynindx >> 8; srel->r_index[2] = h->dynindx; } else { srel->r_index[2] = h->dynindx >> 16; srel->r_index[1] = h->dynindx >> 8; srel->r_index[0] = h->dynindx; } } else { struct reloc_ext_external *erel; erel = (struct reloc_ext_external *) p; PUT_WORD (dynobj, (GET_WORD (dynobj, erel->r_address) + input_section->output_section->vma + input_section->output_offset), erel->r_address); if (dynobj->xvec->header_byteorder_big_p) { erel->r_index[0] = h->dynindx >> 16; erel->r_index[1] = h->dynindx >> 8; erel->r_index[2] = h->dynindx; } else { erel->r_index[2] = h->dynindx >> 16; erel->r_index[1] = h->dynindx >> 8; erel->r_index[0] = h->dynindx; } } ++srel->reloc_count; *skip = true; return true; } /* Finish up the dynamic linking information. */ static boolean sunos_finish_dynamic_link (abfd, info) bfd *abfd; struct bfd_link_info *info; { bfd *dynobj; asection *o; asection *s; asection *sdyn; struct external_sun4_dynamic esd; struct external_sun4_dynamic_link esdl; dynobj = sunos_hash_table (info)->dynobj; if (dynobj == NULL) return true; sdyn = bfd_get_section_by_name (dynobj, ".dynamic"); BFD_ASSERT (sdyn != NULL); /* Finish up the .need section. The linker emulation code filled it in, but with offsets from the start of the section instead of real addresses. Now that we know the section location, we can fill in the final values. */ s = bfd_get_section_by_name (dynobj, ".need"); BFD_ASSERT (s != NULL); if (s->_raw_size != 0) { file_ptr filepos; bfd_byte *p; filepos = s->output_section->filepos + s->output_offset; p = s->contents; while (1) { bfd_vma val; PUT_WORD (dynobj, GET_WORD (dynobj, p) + filepos, p); val = GET_WORD (dynobj, p + 12); if (val == 0) break; PUT_WORD (dynobj, val + filepos, p + 12); p += 16; } } /* The first entry in the .got section is the address of the dynamic information. */ s = bfd_get_section_by_name (dynobj, ".got"); BFD_ASSERT (s != NULL); PUT_WORD (dynobj, sdyn->output_section->vma + sdyn->output_offset, s->contents); for (o = dynobj->sections; o != NULL; o = o->next) { if ((o->flags & SEC_HAS_CONTENTS) != 0 && o->contents != NULL) { BFD_ASSERT (o->output_section != NULL && o->output_section->owner == abfd); if (! bfd_set_section_contents (abfd, o->output_section, o->contents, o->output_offset, o->_raw_size)) return false; } } /* Finish up the dynamic link information. */ PUT_WORD (dynobj, (bfd_vma) 3, esd.ld_version); PUT_WORD (dynobj, sdyn->output_section->vma + sdyn->output_offset + sizeof esd, esd.ldd); PUT_WORD (dynobj, (sdyn->output_section->vma + sdyn->output_offset + sizeof esd + EXTERNAL_SUN4_DYNAMIC_DEBUGGER_SIZE), esd.ld); if (! bfd_set_section_contents (abfd, sdyn->output_section, &esd, sdyn->output_offset, sizeof esd)) return false; PUT_WORD (dynobj, (bfd_vma) 0, esdl.ld_loaded); s = bfd_get_section_by_name (dynobj, ".need"); BFD_ASSERT (s != NULL); if (s->_raw_size == 0) PUT_WORD (dynobj, (bfd_vma) 0, esdl.ld_need); else PUT_WORD (dynobj, s->output_section->filepos + s->output_offset, esdl.ld_need); s = bfd_get_section_by_name (dynobj, ".rules"); BFD_ASSERT (s != NULL); if (s->_raw_size == 0) PUT_WORD (dynobj, (bfd_vma) 0, esdl.ld_rules); else PUT_WORD (dynobj, s->output_section->filepos + s->output_offset, esdl.ld_rules); s = bfd_get_section_by_name (dynobj, ".got"); BFD_ASSERT (s != NULL); PUT_WORD (dynobj, s->output_section->vma + s->output_offset, esdl.ld_got); s = bfd_get_section_by_name (dynobj, ".plt"); BFD_ASSERT (s != NULL); PUT_WORD (dynobj, s->output_section->vma + s->output_offset, esdl.ld_plt); PUT_WORD (dynobj, s->_raw_size, esdl.ld_plt_sz); s = bfd_get_section_by_name (dynobj, ".dynrel"); BFD_ASSERT (s != NULL); BFD_ASSERT (s->reloc_count * obj_reloc_entry_size (dynobj) == s->_raw_size); PUT_WORD (dynobj, s->output_section->filepos + s->output_offset, esdl.ld_rel); s = bfd_get_section_by_name (dynobj, ".hash"); BFD_ASSERT (s != NULL); PUT_WORD (dynobj, s->output_section->filepos + s->output_offset, esdl.ld_hash); s = bfd_get_section_by_name (dynobj, ".dynsym"); BFD_ASSERT (s != NULL); PUT_WORD (dynobj, s->output_section->filepos + s->output_offset, esdl.ld_stab); PUT_WORD (dynobj, (bfd_vma) 0, esdl.ld_stab_hash); PUT_WORD (dynobj, (bfd_vma) sunos_hash_table (info)->bucketcount, esdl.ld_buckets); s = bfd_get_section_by_name (dynobj, ".dynstr"); BFD_ASSERT (s != NULL); PUT_WORD (dynobj, s->output_section->filepos + s->output_offset, esdl.ld_symbols); PUT_WORD (dynobj, s->_raw_size, esdl.ld_symb_size); /* The size of the text area is the size of the .text section rounded up to a page boundary. FIXME: Should the page size be conditional on something? */ PUT_WORD (dynobj, BFD_ALIGN (obj_textsec (abfd)->_raw_size, 0x2000), esdl.ld_text); if (! bfd_set_section_contents (abfd, sdyn->output_section, &esdl, (sdyn->output_offset + sizeof esd + EXTERNAL_SUN4_DYNAMIC_DEBUGGER_SIZE), sizeof esdl)) return false; abfd->flags |= DYNAMIC; return true; } gdb-4.13/bfd/syms.c 666 34562 1752 35335 5601614666 12472 0ustar fnfcygnus/* Generic symbol-table support for the BFD library. Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SECTION Symbols BFD tries to maintain as much symbol information as it can when it moves information from file to file. BFD passes information to applications though the <> structure. When the application requests the symbol table, BFD reads the table in the native form and translates parts of it into the internal format. To maintain more than the information passed to applications, some targets keep some information ``behind the scenes'' in a structure only the particular back end knows about. For example, the coff back end keeps the original symbol table structure as well as the canonical structure when a BFD is read in. On output, the coff back end can reconstruct the output symbol table so that no information is lost, even information unique to coff which BFD doesn't know or understand. If a coff symbol table were read, but were written through an a.out back end, all the coff specific information would be lost. The symbol table of a BFD is not necessarily read in until a canonicalize request is made. Then the BFD back end fills in a table provided by the application with pointers to the canonical information. To output symbols, the application provides BFD with a table of pointers to pointers to <>s. This allows applications like the linker to output a symbol as it was read, since the ``behind the scenes'' information will be still available. @menu @* Reading Symbols:: @* Writing Symbols:: @* typedef asymbol:: @* symbol handling functions:: @end menu INODE Reading Symbols, Writing Symbols, Symbols, Symbols SUBSECTION Reading symbols There are two stages to reading a symbol table from a BFD: allocating storage, and the actual reading process. This is an excerpt from an application which reads the symbol table: | long storage_needed; | asymbol **symbol_table; | long number_of_symbols; | long i; | | storage_needed = bfd_get_symtab_upper_bound (abfd); | | if (storage_needed < 0) | FAIL | | if (storage_needed == 0) { | return ; | } | symbol_table = (asymbol **) xmalloc (storage_needed); | ... | number_of_symbols = | bfd_canonicalize_symtab (abfd, symbol_table); | | if (number_of_symbols < 0) | FAIL | | for (i = 0; i < number_of_symbols; i++) { | process_symbol (symbol_table[i]); | } All storage for the symbols themselves is in an obstack connected to the BFD; it is freed when the BFD is closed. INODE Writing Symbols, typedef asymbol, Reading Symbols, Symbols SUBSECTION Writing symbols Writing of a symbol table is automatic when a BFD open for writing is closed. The application attaches a vector of pointers to pointers to symbols to the BFD being written, and fills in the symbol count. The close and cleanup code reads through the table provided and performs all the necessary operations. The BFD output code must always be provided with an ``owned'' symbol: one which has come from another BFD, or one which has been created using <>. Here is an example showing the creation of a symbol table with only one element: | #include "bfd.h" | main() | { | bfd *abfd; | asymbol *ptrs[2]; | asymbol *new; | | abfd = bfd_openw("foo","a.out-sunos-big"); | bfd_set_format(abfd, bfd_object); | new = bfd_make_empty_symbol(abfd); | new->name = "dummy_symbol"; | new->section = bfd_make_section_old_way(abfd, ".text"); | new->flags = BSF_GLOBAL; | new->value = 0x12345; | | ptrs[0] = new; | ptrs[1] = (asymbol *)0; | | bfd_set_symtab(abfd, ptrs, 1); | bfd_close(abfd); | } | | ./makesym | nm foo | 00012345 A dummy_symbol Many formats cannot represent arbitary symbol information; for instance, the <> object format does not allow an arbitary number of sections. A symbol pointing to a section which is not one of <<.text>>, <<.data>> or <<.bss>> cannot be described. */ /* DOCDD INODE typedef asymbol, symbol handling functions, Writing Symbols, Symbols */ /* SUBSECTION typedef asymbol An <> has the form: */ /* CODE_FRAGMENT . .typedef struct symbol_cache_entry .{ . {* A pointer to the BFD which owns the symbol. This information . is necessary so that a back end can work out what additional . information (invisible to the application writer) is carried . with the symbol. . . This field is *almost* redundant, since you can use section->owner . instead, except that some symbols point to the global sections . bfd_{abs,com,und}_section. This could be fixed by making . these globals be per-bfd (or per-target-flavor). FIXME. *} . . struct _bfd *the_bfd; {* Use bfd_asymbol_bfd(sym) to access this field. *} . . {* The text of the symbol. The name is left alone, and not copied; the . application may not alter it. *} . CONST char *name; . . {* The value of the symbol. This really should be a union of a . numeric value with a pointer, since some flags indicate that . a pointer to another symbol is stored here. *} . symvalue value; . . {* Attributes of a symbol: *} . .#define BSF_NO_FLAGS 0x00 . . {* The symbol has local scope; <> in <>. The value . is the offset into the section of the data. *} .#define BSF_LOCAL 0x01 . . {* The symbol has global scope; initialized data in <>. The . value is the offset into the section of the data. *} .#define BSF_GLOBAL 0x02 . . {* The symbol has global scope and is exported. The value is . the offset into the section of the data. *} .#define BSF_EXPORT BSF_GLOBAL {* no real difference *} . . {* A normal C symbol would be one of: . <>, <>, <> or . <> *} . . {* The symbol is a debugging record. The value has an arbitary . meaning. *} .#define BSF_DEBUGGING 0x08 . . {* The symbol denotes a function entry point. Used in ELF, . perhaps others someday. *} .#define BSF_FUNCTION 0x10 . . {* Used by the linker. *} .#define BSF_KEEP 0x20 .#define BSF_KEEP_G 0x40 . . {* A weak global symbol, overridable without warnings by . a regular global symbol of the same name. *} .#define BSF_WEAK 0x80 . . {* This symbol was created to point to a section, e.g. ELF's . STT_SECTION symbols. *} .#define BSF_SECTION_SYM 0x100 . . {* The symbol used to be a common symbol, but now it is . allocated. *} .#define BSF_OLD_COMMON 0x200 . . {* The default value for common data. *} .#define BFD_FORT_COMM_DEFAULT_VALUE 0 . . {* In some files the type of a symbol sometimes alters its . location in an output file - ie in coff a <> symbol . which is also <> symbol appears where it was . declared and not at the end of a section. This bit is set . by the target BFD part to convey this information. *} . .#define BSF_NOT_AT_END 0x400 . . {* Signal that the symbol is the label of constructor section. *} .#define BSF_CONSTRUCTOR 0x800 . . {* Signal that the symbol is a warning symbol. If the symbol . is a warning symbol, then the value field (I know this is . tacky) will point to the asymbol which when referenced will . cause the warning. *} .#define BSF_WARNING 0x1000 . . {* Signal that the symbol is indirect. The value of the symbol . is a pointer to an undefined asymbol which contains the . name to use instead. *} .#define BSF_INDIRECT 0x2000 . . {* BSF_FILE marks symbols that contain a file name. This is used . for ELF STT_FILE symbols. *} .#define BSF_FILE 0x4000 . . {* Symbol is from dynamic linking information. *} .#define BSF_DYNAMIC 0x8000 . . flagword flags; . . {* A pointer to the section to which this symbol is . relative. This will always be non NULL, there are special . sections for undefined and absolute symbols *} . struct sec *section; . . {* Back end special data. This is being phased out in favour . of making this a union. *} . PTR udata; . .} asymbol; */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "aout/stab_gnu.h" /* DOCDD INODE symbol handling functions, , typedef asymbol, Symbols SUBSECTION Symbol handling functions */ /* FUNCTION bfd_get_symtab_upper_bound DESCRIPTION Return the number of bytes required to store a vector of pointers to <> for all the symbols in the BFD @var{abfd}, including a terminal NULL pointer. If there are no symbols in the BFD, then return 0. If an error occurs, return -1. .#define bfd_get_symtab_upper_bound(abfd) \ . BFD_SEND (abfd, _bfd_get_symtab_upper_bound, (abfd)) */ /* FUNCTION bfd_is_local_label SYNOPSIS boolean bfd_is_local_label(bfd *abfd, asymbol *sym); DESCRIPTION Return true if the given symbol @var{sym} in the BFD @var{abfd} is a compiler generated local label, else return false. .#define bfd_is_local_label(abfd, sym) \ . BFD_SEND (abfd, _bfd_is_local_label,(abfd, sym)) */ /* FUNCTION bfd_canonicalize_symtab DESCRIPTION Read the symbols from the BFD @var{abfd}, and fills in the vector @var{location} with pointers to the symbols and a trailing NULL. Return the actual number of symbol pointers, not including the NULL. .#define bfd_canonicalize_symtab(abfd, location) \ . BFD_SEND (abfd, _bfd_canonicalize_symtab,\ . (abfd, location)) */ /* FUNCTION bfd_set_symtab SYNOPSIS boolean bfd_set_symtab (bfd *abfd, asymbol **location, unsigned int count); DESCRIPTION Arrange that when the output BFD @var{abfd} is closed, the table @var{location} of @var{count} pointers to symbols will be written. */ boolean bfd_set_symtab (abfd, location, symcount) bfd *abfd; asymbol **location; unsigned int symcount; { if ((abfd->format != bfd_object) || (bfd_read_p (abfd))) { bfd_set_error (bfd_error_invalid_operation); return false; } bfd_get_outsymbols (abfd) = location; bfd_get_symcount (abfd) = symcount; return true; } /* FUNCTION bfd_print_symbol_vandf SYNOPSIS void bfd_print_symbol_vandf(PTR file, asymbol *symbol); DESCRIPTION Print the value and flags of the @var{symbol} supplied to the stream @var{file}. */ void bfd_print_symbol_vandf (arg, symbol) PTR arg; asymbol *symbol; { FILE *file = (FILE *) arg; flagword type = symbol->flags; if (symbol->section != (asection *) NULL) { fprintf_vma (file, symbol->value + symbol->section->vma); } else { fprintf_vma (file, symbol->value); } /* This presumes that a symbol can not be both BSF_DEBUGGING and BSF_DYNAMIC. */ fprintf (file, " %c%c%c%c%c%c%c", (type & BSF_LOCAL) ? 'l' : ' ', (type & BSF_GLOBAL) ? 'g' : ' ', (type & BSF_WEAK) ? 'w' : ' ', (type & BSF_CONSTRUCTOR) ? 'C' : ' ', (type & BSF_WARNING) ? 'W' : ' ', (type & BSF_INDIRECT) ? 'I' : ' ', (type & BSF_DEBUGGING) ? 'd' : (type & BSF_DYNAMIC) ? 'D' : ' '); } /* FUNCTION bfd_make_empty_symbol DESCRIPTION Create a new <> structure for the BFD @var{abfd} and return a pointer to it. This routine is necessary because each back end has private information surrounding the <>. Building your own <> and pointing to it will not create the private information, and will cause problems later on. .#define bfd_make_empty_symbol(abfd) \ . BFD_SEND (abfd, _bfd_make_empty_symbol, (abfd)) */ /* FUNCTION bfd_make_debug_symbol DESCRIPTION Create a new <> structure for the BFD @var{abfd}, to be used as a debugging symbol. Further details of its use have yet to be worked out. .#define bfd_make_debug_symbol(abfd,ptr,size) \ . BFD_SEND (abfd, _bfd_make_debug_symbol, (abfd, ptr, size)) */ struct section_to_type { CONST char *section; char type; }; /* Map section names to POSIX/BSD single-character symbol types. This table is probably incomplete. It is sorted for convenience of adding entries. Since it is so short, a linear search is used. */ static CONST struct section_to_type stt[] = { {"*DEBUG*", 'N'}, {".bss", 'b'}, {".data", 'd'}, {".sbss", 's'}, /* Small BSS (uninitialized data) */ {".scommon", 'c'}, /* Small common */ {".sdata", 'g'}, /* Small initialized data */ {".text", 't'}, {0, 0} }; /* Return the single-character symbol type corresponding to section S, or '?' for an unknown COFF section. */ static char coff_section_type (s) char *s; { CONST struct section_to_type *t; for (t = &stt[0]; t->section; t++) if (!strcmp (s, t->section)) return t->type; return '?'; } #ifndef islower #define islower(c) ((c) >= 'a' && (c) <= 'z') #endif #ifndef toupper #define toupper(c) (islower(c) ? ((c) & ~0x20) : (c)) #endif /* FUNCTION bfd_decode_symclass DESCRIPTION Return a character corresponding to the symbol class of @var{symbol}, or '?' for an unknown class. SYNOPSIS int bfd_decode_symclass(asymbol *symbol); */ int bfd_decode_symclass (symbol) asymbol *symbol; { char c; if (bfd_is_com_section (symbol->section)) return 'C'; if (bfd_is_und_section (symbol->section)) return 'U'; if (bfd_is_ind_section (symbol->section)) return 'I'; if (!(symbol->flags & (BSF_GLOBAL | BSF_LOCAL))) return '?'; if (bfd_is_abs_section (symbol->section)) c = 'a'; else if (symbol->section) c = coff_section_type (symbol->section->name); else return '?'; if (symbol->flags & BSF_GLOBAL) c = toupper (c); return c; /* We don't have to handle these cases just yet, but we will soon: N_SETV: 'v'; N_SETA: 'l'; N_SETT: 'x'; N_SETD: 'z'; N_SETB: 's'; N_INDR: 'i'; */ } /* FUNCTION bfd_symbol_info DESCRIPTION Fill in the basic info about symbol that nm needs. Additional info may be added by the back-ends after calling this function. SYNOPSIS void bfd_symbol_info(asymbol *symbol, symbol_info *ret); */ void bfd_symbol_info (symbol, ret) asymbol *symbol; symbol_info *ret; { ret->type = bfd_decode_symclass (symbol); if (ret->type != 'U') ret->value = symbol->value + symbol->section->vma; else ret->value = 0; ret->name = symbol->name; } void bfd_symbol_is_absolute () { abort (); } gdb-4.13/bfd/targets.c 666 34562 1752 62560 5611327557 13151 0ustar fnfcygnus/* Generic target-file-type support for the BFD library. Copyright 1990, 91, 92, 93, 1994 Free Software Foundation, Inc. Written by Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" /* SECTION Targets DESCRIPTION Each port of BFD to a different machine requries the creation of a target back end. All the back end provides to the root part of BFD is a structure containing pointers to functions which perform certain low level operations on files. BFD translates the applications's requests through a pointer into calls to the back end routines. When a file is opened with <>, its format and target are unknown. BFD uses various mechanisms to determine how to interpret the file. The operations performed are: o Create a BFD by calling the internal routine <<_bfd_new_bfd>>, then call <> with the target string supplied to <> and the new BFD pointer. o If a null target string was provided to <>, look up the environment variable <> and use that as the target string. o If the target string is still <>, or the target string is <>, then use the first item in the target vector as the target type, and set <> in the BFD to cause <> to loop through all the targets. @xref{bfd_target}. @xref{Formats}. o Otherwise, inspect the elements in the target vector one by one, until a match on target name is found. When found, use it. o Otherwise return the error <> to <>. o <> attempts to open the file using <>, and returns the BFD. Once the BFD has been opened and the target selected, the file format may be determined. This is done by calling <> on the BFD with a suggested format. If <> has been set, each possible target type is tried to see if it recognizes the specified format. <> returns <> when the caller guesses right. @menu @* bfd_target:: @end menu */ /* INODE bfd_target, , Targets, Targets DOCDD SUBSECTION bfd_target DESCRIPTION This structure contains everything that BFD knows about a target. It includes things like its byte order, name, and which routines to call to do various operations. Every BFD points to a target structure with its <> member. The macros below are used to dispatch to functions through the <> vector. They are used in a number of macros further down in @file{bfd.h}, and are also used when calling various routines by hand inside the BFD implementation. The @var{arglist} argument must be parenthesized; it contains all the arguments to the called function. They make the documentation (more) unpleasant to read, so if someone wants to fix this and not break the above, please do. .#define BFD_SEND(bfd, message, arglist) \ . ((*((bfd)->xvec->message)) arglist) . .#ifdef DEBUG_BFD_SEND .#undef BFD_SEND .#define BFD_SEND(bfd, message, arglist) \ . (((bfd) && (bfd)->xvec && (bfd)->xvec->message) ? \ . ((*((bfd)->xvec->message)) arglist) : \ . (bfd_assert (__FILE__,__LINE__), NULL)) .#endif For operations which index on the BFD format: .#define BFD_SEND_FMT(bfd, message, arglist) \ . (((bfd)->xvec->message[(int)((bfd)->format)]) arglist) . .#ifdef DEBUG_BFD_SEND .#undef BFD_SEND_FMT .#define BFD_SEND_FMT(bfd, message, arglist) \ . (((bfd) && (bfd)->xvec && (bfd)->xvec->message) ? \ . (((bfd)->xvec->message[(int)((bfd)->format)]) arglist) : \ . (bfd_assert (__FILE__,__LINE__), NULL)) .#endif This is the structure which defines the type of BFD this is. The <> member of the struct <> itself points here. Each module that implements access to a different target under BFD, defines one of these. FIXME, these names should be rationalised with the names of the entry points which call them. Too bad we can't have one macro to define them both! .enum bfd_flavour { . bfd_target_unknown_flavour, . bfd_target_aout_flavour, . bfd_target_coff_flavour, . bfd_target_ecoff_flavour, . bfd_target_elf_flavour, . bfd_target_ieee_flavour, . bfd_target_nlm_flavour, . bfd_target_oasys_flavour, . bfd_target_tekhex_flavour, . bfd_target_srec_flavour, . bfd_target_som_flavour, . bfd_target_os9k_flavour}; . .{* Forward declaration. *} .typedef struct bfd_link_info _bfd_link_info; . .typedef struct bfd_target .{ Identifies the kind of target, e.g., SunOS4, Ultrix, etc. . char *name; The "flavour" of a back end is a general indication about the contents of a file. . enum bfd_flavour flavour; The order of bytes within the data area of a file. . boolean byteorder_big_p; The order of bytes within the header parts of a file. . boolean header_byteorder_big_p; A mask of all the flags which an executable may have set - from the set <>, <>, ...<>. . flagword object_flags; A mask of all the flags which a section may have set - from the set <>, <>, ...<>. . flagword section_flags; The character normally found at the front of a symbol (if any), perhaps `_'. . char symbol_leading_char; The pad character for file names within an archive header. . char ar_pad_char; The maximum number of characters in an archive header. . unsigned short ar_max_namelen; The minimum alignment restriction for any section. . unsigned int align_power_min; Entries for byte swapping for data. These are different from the other entry points, since they don't take a BFD asthe first argument. Certain other handlers could do the same. . bfd_vma (*bfd_getx64) PARAMS ((const bfd_byte *)); . bfd_signed_vma (*bfd_getx_signed_64) PARAMS ((const bfd_byte *)); . void (*bfd_putx64) PARAMS ((bfd_vma, bfd_byte *)); . bfd_vma (*bfd_getx32) PARAMS ((const bfd_byte *)); . bfd_signed_vma (*bfd_getx_signed_32) PARAMS ((const bfd_byte *)); . void (*bfd_putx32) PARAMS ((bfd_vma, bfd_byte *)); . bfd_vma (*bfd_getx16) PARAMS ((const bfd_byte *)); . bfd_signed_vma (*bfd_getx_signed_16) PARAMS ((const bfd_byte *)); . void (*bfd_putx16) PARAMS ((bfd_vma, bfd_byte *)); Byte swapping for the headers . bfd_vma (*bfd_h_getx64) PARAMS ((const bfd_byte *)); . bfd_signed_vma (*bfd_h_getx_signed_64) PARAMS ((const bfd_byte *)); . void (*bfd_h_putx64) PARAMS ((bfd_vma, bfd_byte *)); . bfd_vma (*bfd_h_getx32) PARAMS ((const bfd_byte *)); . bfd_signed_vma (*bfd_h_getx_signed_32) PARAMS ((const bfd_byte *)); . void (*bfd_h_putx32) PARAMS ((bfd_vma, bfd_byte *)); . bfd_vma (*bfd_h_getx16) PARAMS ((const bfd_byte *)); . bfd_signed_vma (*bfd_h_getx_signed_16) PARAMS ((const bfd_byte *)); . void (*bfd_h_putx16) PARAMS ((bfd_vma, bfd_byte *)); Format dependent routines: these are vectors of entry points within the target vector structure, one for each format to check. Check the format of a file being read. Return a <> or zero. . const struct bfd_target *(*_bfd_check_format[bfd_type_end]) PARAMS ((bfd *)); Set the format of a file being written. . boolean (*_bfd_set_format[bfd_type_end]) PARAMS ((bfd *)); Write cached information into a file being written, at <>. . boolean (*_bfd_write_contents[bfd_type_end]) PARAMS ((bfd *)); The general target vector. . . {* Generic entry points. *} .#define BFD_JUMP_TABLE_GENERIC(NAME)\ .CAT(NAME,_close_and_cleanup),\ .CAT(NAME,_bfd_free_cached_info),\ .CAT(NAME,_new_section_hook),\ .CAT(NAME,_get_section_contents) . {* Called when the BFD is being closed to do any necessary cleanup. *} . boolean (*_close_and_cleanup) PARAMS ((bfd *)); . {* Ask the BFD to free all cached information. *} . boolean (*_bfd_free_cached_info) PARAMS ((bfd *)); . {* Called when a new section is created. *} . boolean (*_new_section_hook) PARAMS ((bfd *, sec_ptr)); . {* Read the contents of a section. *} . boolean (*_bfd_get_section_contents) PARAMS ((bfd *, sec_ptr, PTR, . file_ptr, bfd_size_type)); . . {* Entry points to copy private data. *} .#define BFD_JUMP_TABLE_COPY(NAME)\ .CAT(NAME,_bfd_copy_private_bfd_data),\ .CAT(NAME,_bfd_copy_private_section_data) . {* Called to copy BFD general private data from one object file . to another. *} . boolean (*_bfd_copy_private_bfd_data) PARAMS ((bfd *, bfd *)); . {* Called to copy BFD private section data from one object file . to another. *} . boolean (*_bfd_copy_private_section_data) PARAMS ((bfd *, sec_ptr, . bfd *, sec_ptr)); . . {* Core file entry points. *} .#define BFD_JUMP_TABLE_CORE(NAME)\ .CAT(NAME,_core_file_failing_command),\ .CAT(NAME,_core_file_failing_signal),\ .CAT(NAME,_core_file_matches_executable_p) . char * (*_core_file_failing_command) PARAMS ((bfd *)); . int (*_core_file_failing_signal) PARAMS ((bfd *)); . boolean (*_core_file_matches_executable_p) PARAMS ((bfd *, bfd *)); . . {* Archive entry points. *} .#define BFD_JUMP_TABLE_ARCHIVE(NAME)\ .CAT(NAME,_slurp_armap),\ .CAT(NAME,_slurp_extended_name_table),\ .CAT(NAME,_truncate_arname),\ .CAT(NAME,_write_armap),\ .CAT(NAME,_openr_next_archived_file),\ .CAT(NAME,_generic_stat_arch_elt) . boolean (*_bfd_slurp_armap) PARAMS ((bfd *)); . boolean (*_bfd_slurp_extended_name_table) PARAMS ((bfd *)); . void (*_bfd_truncate_arname) PARAMS ((bfd *, CONST char *, char *)); . boolean (*write_armap) PARAMS ((bfd *arch, . unsigned int elength, . struct orl *map, . unsigned int orl_count, . int stridx)); . bfd * (*openr_next_archived_file) PARAMS ((bfd *arch, bfd *prev)); . int (*_bfd_stat_arch_elt) PARAMS ((bfd *, struct stat *)); . . {* Entry points used for symbols. *} .#define BFD_JUMP_TABLE_SYMBOLS(NAME)\ .CAT(NAME,_get_symtab_upper_bound),\ .CAT(NAME,_get_symtab),\ .CAT(NAME,_make_empty_symbol),\ .CAT(NAME,_print_symbol),\ .CAT(NAME,_get_symbol_info),\ .CAT(NAME,_bfd_is_local_label),\ .CAT(NAME,_get_lineno),\ .CAT(NAME,_find_nearest_line),\ .CAT(NAME,_bfd_make_debug_symbol) . long (*_bfd_get_symtab_upper_bound) PARAMS ((bfd *)); . long (*_bfd_canonicalize_symtab) PARAMS ((bfd *, . struct symbol_cache_entry **)); . struct symbol_cache_entry * . (*_bfd_make_empty_symbol) PARAMS ((bfd *)); . void (*_bfd_print_symbol) PARAMS ((bfd *, PTR, . struct symbol_cache_entry *, . bfd_print_symbol_type)); .#define bfd_print_symbol(b,p,s,e) BFD_SEND(b, _bfd_print_symbol, (b,p,s,e)) . void (*_bfd_get_symbol_info) PARAMS ((bfd *, . struct symbol_cache_entry *, . symbol_info *)); .#define bfd_get_symbol_info(b,p,e) BFD_SEND(b, _bfd_get_symbol_info, (b,p,e)) . boolean (*_bfd_is_local_label) PARAMS ((bfd *, asymbol *)); . . alent * (*_get_lineno) PARAMS ((bfd *, struct symbol_cache_entry *)); . boolean (*_bfd_find_nearest_line) PARAMS ((bfd *abfd, . struct sec *section, struct symbol_cache_entry **symbols, . bfd_vma offset, CONST char **file, CONST char **func, . unsigned int *line)); . {* Back-door to allow format-aware applications to create debug symbols . while using BFD for everything else. Currently used by the assembler . when creating COFF files. *} . asymbol * (*_bfd_make_debug_symbol) PARAMS (( . bfd *abfd, . void *ptr, . unsigned long size)); . . {* Routines for relocs. *} .#define BFD_JUMP_TABLE_RELOCS(NAME)\ .CAT(NAME,_get_reloc_upper_bound),\ .CAT(NAME,_canonicalize_reloc),\ .CAT(NAME,_bfd_reloc_type_lookup) . long (*_get_reloc_upper_bound) PARAMS ((bfd *, sec_ptr)); . long (*_bfd_canonicalize_reloc) PARAMS ((bfd *, sec_ptr, arelent **, . struct symbol_cache_entry **)); . {* See documentation on reloc types. *} . CONST struct reloc_howto_struct * . (*reloc_type_lookup) PARAMS ((bfd *abfd, . bfd_reloc_code_real_type code)); . . {* Routines used when writing an object file. *} .#define BFD_JUMP_TABLE_WRITE(NAME)\ .CAT(NAME,_set_arch_mach),\ .CAT(NAME,_set_section_contents) . boolean (*_bfd_set_arch_mach) PARAMS ((bfd *, enum bfd_architecture, . unsigned long)); . boolean (*_bfd_set_section_contents) PARAMS ((bfd *, sec_ptr, PTR, . file_ptr, bfd_size_type)); . . {* Routines used by the linker. *} .#define BFD_JUMP_TABLE_LINK(NAME)\ .CAT(NAME,_sizeof_headers),\ .CAT(NAME,_bfd_get_relocated_section_contents),\ .CAT(NAME,_bfd_relax_section),\ .CAT(NAME,_bfd_link_hash_table_create),\ .CAT(NAME,_bfd_link_add_symbols),\ .CAT(NAME,_bfd_final_link) . int (*_bfd_sizeof_headers) PARAMS ((bfd *, boolean)); . bfd_byte * (*_bfd_get_relocated_section_contents) PARAMS ((bfd *, . struct bfd_link_info *, struct bfd_link_order *, . bfd_byte *data, boolean relocateable, . struct symbol_cache_entry **)); . . boolean (*_bfd_relax_section) PARAMS ((bfd *, struct sec *, . struct bfd_link_info *, boolean *again)); . . {* Create a hash table for the linker. Different backends store . different information in this table. *} . struct bfd_link_hash_table *(*_bfd_link_hash_table_create) PARAMS ((bfd *)); . . {* Add symbols from this object file into the hash table. *} . boolean (*_bfd_link_add_symbols) PARAMS ((bfd *, struct bfd_link_info *)); . . {* Do a link based on the link_order structures attached to each . section of the BFD. *} . boolean (*_bfd_final_link) PARAMS ((bfd *, struct bfd_link_info *)); . . {* Routines to handle dynamic symbols and relocs. *} .#define BFD_JUMP_TABLE_DYNAMIC(NAME)\ .CAT(NAME,_get_dynamic_symtab_upper_bound),\ .CAT(NAME,_canonicalize_dynamic_symtab),\ .CAT(NAME,_get_dynamic_reloc_upper_bound),\ .CAT(NAME,_canonicalize_dynamic_reloc) . {* Get the amount of memory required to hold the dynamic symbols. *} . long (*_bfd_get_dynamic_symtab_upper_bound) PARAMS ((bfd *)); . {* Read in the dynamic symbols. *} . long (*_bfd_canonicalize_dynamic_symtab) . PARAMS ((bfd *, struct symbol_cache_entry **)); . {* Get the amount of memory required to hold the dynamic relocs. *} . long (*_bfd_get_dynamic_reloc_upper_bound) PARAMS ((bfd *)); . {* Read in the dynamic relocs. *} . long (*_bfd_canonicalize_dynamic_reloc) . PARAMS ((bfd *, arelent **, struct symbol_cache_entry **)); . Data for use by back-end routines, which isn't generic enough to belong in this structure. . PTR backend_data; .} bfd_target; */ /* All known xvecs (even those that don't compile on all systems). Alphabetized for easy reference. They are listed a second time below, since we can't intermix extern's and initializers. */ extern const bfd_target a29kcoff_big_vec; extern const bfd_target a_out_adobe_vec; extern const bfd_target aout_mips_big_vec; extern const bfd_target aout_mips_little_vec; extern const bfd_target aout0_big_vec; extern const bfd_target apollocoff_vec; extern const bfd_target b_out_vec_big_host; extern const bfd_target b_out_vec_little_host; extern const bfd_target bfd_elf32_big_generic_vec; extern const bfd_target bfd_elf32_bigmips_vec; extern const bfd_target bfd_elf32_hppa_vec; extern const bfd_target bfd_elf32_i386_vec; extern const bfd_target bfd_elf32_i860_vec; extern const bfd_target bfd_elf32_little_generic_vec; extern const bfd_target bfd_elf32_littlemips_vec; extern const bfd_target bfd_elf32_m68k_vec; extern const bfd_target bfd_elf32_m88k_vec; extern const bfd_target bfd_elf32_powerpc_vec; extern const bfd_target bfd_elf32_sparc_vec; extern const bfd_target bfd_elf64_big_generic_vec; extern const bfd_target bfd_elf64_little_generic_vec; extern const bfd_target bfd_elf64_sparc_vec; extern const bfd_target demo_64_vec; extern const bfd_target ecoff_big_vec; extern const bfd_target ecoff_little_vec; extern const bfd_target ecoffalpha_little_vec; extern const bfd_target h8300coff_vec; extern const bfd_target h8500coff_vec; extern const bfd_target host_aout_vec; extern const bfd_target hp300bsd_vec; extern const bfd_target hp300hpux_vec; extern const bfd_target som_vec; extern const bfd_target i386aout_vec; extern const bfd_target i386bsd_vec; extern const bfd_target i386dynix_vec; extern const bfd_target i386os9k_vec; extern const bfd_target netbsd386_vec; extern const bfd_target i386coff_vec; extern const bfd_target go32coff_vec; extern const bfd_target i386linux_vec; extern const bfd_target i386lynx_aout_vec; extern const bfd_target i386lynx_coff_vec; extern const bfd_target i386mach3_vec; extern const bfd_target icoff_big_vec; extern const bfd_target icoff_little_vec; extern const bfd_target ieee_vec; extern const bfd_target m68kcoff_vec; extern const bfd_target m68kcoffun_vec; extern const bfd_target m68klynx_aout_vec; extern const bfd_target m68klynx_coff_vec; extern const bfd_target m88kbcs_vec; extern const bfd_target m88kmach3_vec; extern const bfd_target netbsd532_vec; extern const bfd_target newsos3_vec; extern const bfd_target nlm32_i386_vec; extern const bfd_target nlm32_sparc_vec; extern const bfd_target nlm32_alpha_vec; extern const bfd_target nlm32_powerpc_vec; extern const bfd_target oasys_vec; extern const bfd_target pc532mach_vec; extern const bfd_target rs6000coff_vec; extern const bfd_target shcoff_vec; extern const bfd_target sparclynx_aout_vec; extern const bfd_target sparclynx_coff_vec; extern const bfd_target sparccoff_vec; extern const bfd_target sunos_big_vec; extern const bfd_target tekhex_vec; extern const bfd_target we32kcoff_vec; extern const bfd_target z8kcoff_vec; /* srec is always included. */ extern const bfd_target srec_vec; extern const bfd_target symbolsrec_vec; /* All of the xvecs for core files. */ extern const bfd_target aix386_core_vec; extern const bfd_target cisco_core_vec; extern const bfd_target hpux_core_vec; extern const bfd_target hppabsd_core_vec; extern const bfd_target irix_core_vec; extern const bfd_target osf_core_vec; extern const bfd_target sco_core_vec; extern const bfd_target trad_core_vec; extern const bfd_target ptrace_core_vec; const bfd_target * const bfd_target_vector[] = { #ifdef SELECT_VECS SELECT_VECS, #else /* not SELECT_VECS */ #ifdef DEFAULT_VECTOR &DEFAULT_VECTOR, #endif /* This list is alphabetized to make it easy to compare with other vector lists -- the decls above and the case statement in configure.in. Vectors that don't compile on all systems, or aren't finished, should have an entry here with #if 0 around it, to show that it wasn't omitted by mistake. */ &a29kcoff_big_vec, &a_out_adobe_vec, #if 0 /* No one seems to use this. */ &aout_mips_big_vec, #endif &aout_mips_little_vec, &b_out_vec_big_host, &b_out_vec_little_host, /* This, and other vectors, may not be used in any *.mt configuration. But that does not mean they are unnecessary. If configured with --enable-targets=all, objdump or gdb should be able to examine the file even if we don't recognize the machine type. */ &bfd_elf32_big_generic_vec, &bfd_elf32_bigmips_vec, &bfd_elf32_hppa_vec, &bfd_elf32_i386_vec, &bfd_elf32_i860_vec, &bfd_elf32_little_generic_vec, &bfd_elf32_littlemips_vec, &bfd_elf32_m68k_vec, &bfd_elf32_m88k_vec, &bfd_elf32_sparc_vec, &bfd_elf32_powerpc_vec, #ifdef BFD64 /* No one seems to use this. */ &bfd_elf64_big_generic_vec, &bfd_elf64_little_generic_vec, #endif #if 0 &bfd_elf64_sparc_vec, #endif /* We don't include cisco_core_vec. Although it has a magic number, the magic number isn't at the beginning of the file, and thus might spuriously match other kinds of files. */ #ifdef BFD64 &demo_64_vec, /* Only compiled if host has long-long support */ #endif &ecoff_big_vec, &ecoff_little_vec, #if 0 &ecoffalpha_little_vec, #endif &h8300coff_vec, &h8500coff_vec, #if 0 /* Since a.out files lack decent magic numbers, no way to recognize which kind of a.out file it is. */ &host_aout_vec, #endif #if 0 /* Clashes with sunos_big_vec magic no. */ &hp300bsd_vec, #endif &hp300hpux_vec, #if defined (HOST_HPPAHPUX) || defined (HOST_HPPABSD) || defined (HOST_HPPAOSF) &som_vec, #endif &i386aout_vec, &i386bsd_vec, &i386coff_vec, &go32coff_vec, #if 0 /* Since a.out files lack decent magic numbers, no way to recognize which kind of a.out file it is. */ &i386linux_vec, #endif &i386lynx_aout_vec, &i386lynx_coff_vec, #if 0 /* No distinguishing features for Mach 3 executables. */ &i386mach3_vec, #endif &i386os9k_vec, &icoff_big_vec, &icoff_little_vec, &ieee_vec, &m68kcoff_vec, &m68kcoffun_vec, &m68klynx_aout_vec, &m68klynx_coff_vec, &m88kbcs_vec, &m88kmach3_vec, &newsos3_vec, &netbsd386_vec, &netbsd532_vec, &nlm32_i386_vec, &nlm32_sparc_vec, #ifdef BFD64 &nlm32_alpha_vec, #endif #if 0 /* We have no oasys tools anymore, so we can't test any of this anymore. If you want to test the stuff yourself, go ahead... steve@cygnus.com Worse, since there is no magic number for archives, there can be annoying target mis-matches. */ &oasys_vec, #endif &pc532machaout_vec, &rs6000coff_vec, &shcoff_vec, &sparclynx_aout_vec, &sparclynx_coff_vec, &sunos_big_vec, &aout0_big_vec, #if 0 &tekhex_vec, #endif &we32kcoff_vec, &z8kcoff_vec, #endif /* not SELECT_VECS */ /* Always support S-records, for convenience. */ &srec_vec, &symbolsrec_vec, /* Add any required traditional-core-file-handler. */ #ifdef AIX386_CORE &aix386_core_vec, #endif #ifdef HPUX_CORE &hpux_core_vec, #endif #ifdef HPPABSD_CORE &hppabsd_core_vec, #endif #ifdef IRIX_CORE &irix_core_vec, #endif #ifdef OSF_CORE &osf_core_vec, #endif #ifdef TRAD_CORE &trad_core_vec, #endif #ifdef PTRACE_CORE &ptrace_core_vec, #endif NULL /* end of list marker */ }; /* bfd_default_vector[0] contains either the address of the default vector, if there is one, or zero if there isn't. */ const bfd_target * const bfd_default_vector[] = { #ifdef DEFAULT_VECTOR &DEFAULT_VECTOR, #endif NULL }; /* When there is an ambiguous match, bfd_check_format_matches puts the names of the matching targets in an array. This variable is the maximum number of entries that the array could possibly need. */ const size_t _bfd_target_vector_entries = sizeof(bfd_target_vector)/sizeof(*bfd_target_vector); /* FUNCTION bfd_find_target SYNOPSIS const bfd_target *bfd_find_target(CONST char *target_name, bfd *abfd); DESCRIPTION Return a pointer to the transfer vector for the object target named @var{target_name}. If @var{target_name} is <>, choose the one in the environment variable <>; if that is null or not defined, then choose the first entry in the target list. Passing in the string "default" or setting the environment variable to "default" will cause the first entry in the target list to be returned, and "target_defaulted" will be set in the BFD. This causes <> to loop over all the targets to find the one that matches the file being read. */ const bfd_target * bfd_find_target (target_name, abfd) CONST char *target_name; bfd *abfd; { const bfd_target * const *target; extern char *getenv (); CONST char *targname = (target_name ? target_name : (CONST char *) getenv ("GNUTARGET")); /* This is safe; the vector cannot be null */ if (targname == NULL || !strcmp (targname, "default")) { abfd->target_defaulted = true; return abfd->xvec = bfd_target_vector[0]; } abfd->target_defaulted = false; for (target = &bfd_target_vector[0]; *target != NULL; target++) { if (!strcmp (targname, (*target)->name)) return abfd->xvec = *target; } bfd_set_error (bfd_error_invalid_target); return NULL; } /* FUNCTION bfd_target_list SYNOPSIS const char **bfd_target_list(void); DESCRIPTION Return a freshly malloced NULL-terminated vector of the names of all the valid BFD targets. Do not modify the names. */ const char ** bfd_target_list () { int vec_length= 0; #ifdef NATIVE_HPPAHPUX_COMPILER /* The native compiler on the HP9000/700 has a bug which causes it to loop endlessly when compiling this file. This avoids it. */ volatile #endif const bfd_target * const *target; CONST char **name_list, **name_ptr; for (target = &bfd_target_vector[0]; *target != NULL; target++) vec_length++; name_ptr = name_list = (CONST char **) bfd_zmalloc ((vec_length + 1) * sizeof (char **)); if (name_list == NULL) { bfd_set_error (bfd_error_no_memory); return NULL; } for (target = &bfd_target_vector[0]; *target != NULL; target++) *(name_ptr++) = (*target)->name; return name_list; } gdb-4.13/bfd/tekhex.c 666 34562 1752 57634 5601614670 12770 0ustar fnfcygnus/* BFD backend for Extended Tektronix Hex Format objects. Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. Written by Steve Chamberlain of Cygnus Support . This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* SUBSECTION Tektronix Hex Format handling DESCRIPTION Tek Hex records can hold symbols and data, but not relocations. Their main application is communication with devices like PROM programmers and ICE equipment. It seems that the sections are descibed as being really big, the example I have says that the text section is 0..ffffffff. BFD would barf with this, many apps would try to alloc 4GB to read in the file. Tex Hex may contain many sections, but the data which comes in has no tag saying which section it belongs to, so we create one section for each block of data, called "blknnnn" which we stick all the data into. TekHex may come out of order and there is no header, so an initial scan is required to discover the minimum and maximum addresses used to create the vma and size of the sections we create. We read in the data into pages of CHUNK_MASK+1 size and read them out from that whenever we need to. Any number of sections may be created for output, we save them up and output them when it's time to close the bfd. A TekHex record looks like: EXAMPLE % DESCRIPTION Where o length is the number of bytes in the record not including the % sign. o type is one of: 3) symbol record 6) data record 8) termination record The data can come out of order, and may be discontigous. This is a serial protocol, so big files are unlikely, so we keep a list of 8k chunks */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" typedef struct { bfd_vma low; bfd_vma high; } addr_range_type; typedef struct tekhex_symbol_struct { asymbol symbol; struct tekhex_symbol_struct *prev; } tekhex_symbol_type; static char digs[] = "0123456789ABCDEF"; static char sum_block[256]; /* Horrible ascii dependent macros for converting between hex and binary */ #define CHARS_IN_SET 256 static char hex_value[CHARS_IN_SET]; #define NOT_HEX 20 #define NIBBLE(x) hex_value[x] #define HEX(buffer) ((NIBBLE((buffer)[0])<<4) + NIBBLE((buffer)[1])) #define TOHEX(d,x) \ (d)[1] = digs[(x) & 0xf]; \ (d)[0] = digs[((x)>>4)&0xf]; #define ISHEX(x) (hex_value[x] != NOT_HEX) /* Here's an example %3A6C6480004E56FFFC4E717063B0AEFFFC6D0652AEFFFC60F24E5E4E75 %1B3709T_SEGMENT1108FFFFFFFF %2B3AB9T_SEGMENT7Dgcc_compiled$1087hello$c10 %373829T_SEGMENT80int$t1$r1$$214741080char$t2$r2$0$12710 %373769T_SEGMENT80long$int$t3$r1$$1080unsigned$int$t4$10 %373CA9T_SEGMENT80long$unsigned$in1080short$int$t6$r1$10 %373049T_SEGMENT80long$long$int$t71080short$unsigned$i10 %373A29T_SEGMENT80long$long$unsign1080signed$char$t10$10 %373D69T_SEGMENT80unsigned$char$t11080float$t12$r1$4$010 %373D19T_SEGMENT80double$t13$r1$8$1080long$double$t14$10 %2734D9T_SEGMENT8Bvoid$t15$151035_main10 %2F3CA9T_SEGMENT81$1081$1681$1E81$21487main$F110 %2832F9T_SEGMENT83i$18FFFFFFFC81$1481$214 %07 8 10 10 explanation: %3A6C6480004E56FFFC4E717063B0AEFFFC6D0652AEFFFC60F24E5E4E75 ^ ^^ ^ ^-data | || +------ 4 char integer 0x8000 | |+-------- checksum | +--------- type 6 (data record) +----------- length 3a chars <---------------------- 3a (58 chars) -------------------> %1B3709T_SEGMENT1108FFFFFFFF ^ ^^ ^- 8 character integer 0xffffffff | |+- 1 character integer 0 | +-- type 1 symbol (section definition) +------------ 9 char symbol T_SEGMENT %2B3AB9T_SEGMENT7Dgcc_compiled$1087hello$c10 %373829T_SEGMENT80int$t1$r1$$214741080char$t2$r2$0$12710 %373769T_SEGMENT80long$int$t3$r1$$1080unsigned$int$t4$10 %373CA9T_SEGMENT80long$unsigned$in1080short$int$t6$r1$10 %373049T_SEGMENT80long$long$int$t71080short$unsigned$i10 %373A29T_SEGMENT80long$long$unsign1080signed$char$t10$10 %373D69T_SEGMENT80unsigned$char$t11080float$t12$r1$4$010 %373D19T_SEGMENT80double$t13$r1$8$1080long$double$t14$10 %2734D9T_SEGMENT8Bvoid$t15$151035_main10 %2F3CA9T_SEGMENT81$1081$1681$1E81$21487main$F110 %2832F9T_SEGMENT83i$18FFFFFFFC81$1481$214 %0781010 Turns into sac@thepub$ ./objdump -dx -m m68k f f: file format tekhex -----x--- 9/55728 -134219416 Sep 29 15:13 1995 f architecture: UNKNOWN!, flags 0x00000010: HAS_SYMS start address 0x00000000 SECTION 0 [D00000000] : size 00020000 vma 00000000 align 2**0 ALLOC, LOAD SECTION 1 [D00008000] : size 00002001 vma 00008000 align 2**0 SECTION 2 [T_SEGMENT] : size ffffffff vma 00000000 align 2**0 SYMBOL TABLE: 00000000 g T_SEGMENT gcc_compiled$ 00000000 g T_SEGMENT hello$c 00000000 g T_SEGMENT int$t1$r1$$21474 00000000 g T_SEGMENT char$t2$r2$0$127 00000000 g T_SEGMENT long$int$t3$r1$$ 00000000 g T_SEGMENT unsigned$int$t4$ 00000000 g T_SEGMENT long$unsigned$in 00000000 g T_SEGMENT short$int$t6$r1$ 00000000 g T_SEGMENT long$long$int$t7 00000000 g T_SEGMENT short$unsigned$i 00000000 g T_SEGMENT long$long$unsign 00000000 g T_SEGMENT signed$char$t10$ 00000000 g T_SEGMENT unsigned$char$t1 00000000 g T_SEGMENT float$t12$r1$4$0 00000000 g T_SEGMENT double$t13$r1$8$ 00000000 g T_SEGMENT long$double$t14$ 00000000 g T_SEGMENT void$t15$15 00000000 g T_SEGMENT _main 00000000 g T_SEGMENT $ 00000000 g T_SEGMENT $ 00000000 g T_SEGMENT $ 00000010 g T_SEGMENT $ 00000000 g T_SEGMENT main$F1 fcffffff g T_SEGMENT i$1 00000000 g T_SEGMENT $ 00000010 g T_SEGMENT $ RELOCATION RECORDS FOR [D00000000]: (none) RELOCATION RECORDS FOR [D00008000]: (none) RELOCATION RECORDS FOR [T_SEGMENT]: (none) Disassembly of section D00000000: ... 00008000 ($+)7ff0 linkw fp,#-4 00008004 ($+)7ff4 nop 00008006 ($+)7ff6 movel #99,d0 00008008 ($+)7ff8 cmpl fp@(-4),d0 0000800c ($+)7ffc blts 00008014 ($+)8004 0000800e ($+)7ffe addql #1,fp@(-4) 00008012 ($+)8002 bras 00008006 ($+)7ff6 00008014 ($+)8004 unlk fp 00008016 ($+)8006 rts ... */ static void tekhex_init () { unsigned int i; static boolean inited = false; int val; if (inited == false) { inited = true; for (i = 0; i < CHARS_IN_SET; i++) { hex_value[i] = NOT_HEX; } for (i = 0; i < 10; i++) { hex_value[i + '0'] = i; } for (i = 0; i < 6; i++) { hex_value[i + 'a'] = i + 10; hex_value[i + 'A'] = i + 10; } val = 0; for (i = 0; i < 10; i++) { sum_block[i + '0'] = val++; } for (i = 'A'; i <= 'Z'; i++) { sum_block[i] = val++; } sum_block['$'] = val++; sum_block['%'] = val++; sum_block['.'] = val++; sum_block['_'] = val++; for (i = 'a'; i <= 'z'; i++) { sum_block[i] = val++; } } } /* The maximum number of bytes on a line is FF */ #define MAXCHUNK 0xff /* The number of bytes we fit onto a line on output */ #define CHUNK 21 /* We cannot output our tekhexords as we see them, we have to glue them together, this is done in this structure : */ struct tekhex_data_list_struct { unsigned char *data; bfd_vma where; bfd_size_type size; struct tekhex_data_list_struct *next; }; typedef struct tekhex_data_list_struct tekhex_data_list_type; #define CHUNK_MASK 0x1fff struct data_struct { char chunk_data[CHUNK_MASK + 1]; char chunk_init[CHUNK_MASK + 1]; bfd_vma vma; struct data_struct *next; }; typedef struct tekhex_data_struct { tekhex_data_list_type *head; unsigned int type; struct tekhex_symbol_struct *symbols; struct data_struct *data; } tdata_type; #define enda(x) (x->vma + x->size) static bfd_vma getvalue (srcp) char **srcp; { char *src = *srcp; bfd_vma value = 0; unsigned int len = hex_value[*src++]; if (len == 0) len = 16; while (len--) { value = value << 4 | hex_value[*src++]; } *srcp = src; return value; } static unsigned int getsym (dstp, srcp) char *dstp; char **srcp; { char *src = *srcp; unsigned int i; unsigned int len = hex_value[*src++]; if (len == 0) len = 16; for (i = 0; i < len; i++) dstp[i] = src[i]; dstp[i] = 0; *srcp = src + i; return len; } struct data_struct * find_chunk (abfd, vma) bfd *abfd; bfd_vma vma; { struct data_struct *d = abfd->tdata.tekhex_data->data; vma &= ~CHUNK_MASK; while (d && (d->vma) != vma) { d = d->next; } if (!d) { char *sname = bfd_alloc (abfd, 12); asection *s; /* No chunk for this address, so make one up */ d = (struct data_struct *) bfd_alloc (abfd, sizeof (struct data_struct)); if (!sname || !d) { bfd_set_error (bfd_error_no_memory); return NULL; } memset (d->chunk_init, 0, CHUNK_MASK + 1); memset (d->chunk_data, 0, CHUNK_MASK + 1); d->next = abfd->tdata.tekhex_data->data; d->vma = vma; abfd->tdata.tekhex_data->data = d; } return d; } static void insert_byte (abfd, value, addr) bfd *abfd; int value; bfd_vma addr; { /* Find the chunk that this byte needs and put it in */ struct data_struct *d = find_chunk (abfd, addr); d->chunk_data[addr & CHUNK_MASK] = value; d->chunk_init[addr & CHUNK_MASK] = 1; } /* The first pass is to find the names of all the sections, and see how big the data is */ static void first_phase (abfd, type, src) bfd *abfd; char type; char *src; { asection *section = bfd_abs_section_ptr; int len; char sym[17]; /* A symbol can only be 16chars long */ switch (type) { case '6': /* Data record - read it and store it */ { bfd_vma addr = getvalue (&src); while (*src) { insert_byte (abfd, HEX (src), addr); src += 2; addr++; } } return; case '3': /* Symbol record, read the segment */ len = getsym (sym, &src); section = bfd_get_section_by_name (abfd, sym); if (section == (asection *) NULL) { char *n = bfd_alloc (abfd, len + 1); if (!n) { bfd_set_error (bfd_error_no_memory); abort(); /* FIXME */ } memcpy (n, sym, len + 1); section = bfd_make_section (abfd, n); } while (*src) { switch (*src) { asection *s; case '1': /* section range */ src++; section->vma = getvalue (&src); section->_raw_size = getvalue (&src) - section->vma; section->flags = SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC; break; case '2': case '3': case '4': case '6': case '7': case '8': /* Symbols, add to section */ { tekhex_symbol_type *new = (tekhex_symbol_type *) bfd_alloc (abfd, sizeof (tekhex_symbol_type)); char type = (*src); if (!new) { bfd_set_error (bfd_error_no_memory); abort(); /* FIXME */ } new->symbol.the_bfd = abfd; src++; abfd->symcount++; abfd->flags |= HAS_SYMS; new->prev = abfd->tdata.tekhex_data->symbols; abfd->tdata.tekhex_data->symbols = new; len = getsym (sym, &src); new->symbol.name = bfd_alloc (abfd, len + 1); if (!new->symbol.name) { bfd_set_error (bfd_error_no_memory); abort(); /* FIXME */ } memcpy ((char *) (new->symbol.name), sym, len + 1); new->symbol.section = section; if (type <= '4') new->symbol.flags = (BSF_GLOBAL | BSF_EXPORT); else new->symbol.flags = BSF_LOCAL; new->symbol.value = getvalue (&src) - section->vma; } } } } } /* Pass over an tekhex, calling one of the above functions on each record. */ static void pass_over (abfd, func) bfd *abfd; void (*func) (); { unsigned int chars_on_line; boolean eof = false; /* To the front of the file */ if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) abort (); while (eof == false) { char buffer[MAXCHUNK]; char *src = buffer; char type; bfd_vma address = 0; /* Find first '%' */ eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1); while (*src != '%' && !eof) { eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1); } if (eof) break; src++; /* Fetch the type and the length and the checksum */ if (bfd_read (src, 1, 5, abfd) != 5) abort (); /* FIXME */ type = src[2]; if (!ISHEX (src[0]) || !ISHEX (src[1])) break; chars_on_line = HEX (src) - 5; /* Already read five char */ if (bfd_read (src, 1, chars_on_line, abfd) != chars_on_line) abort (); /* FIXME */ src[chars_on_line] = 0; /* put a null at the end */ func (abfd, type, src); } } long tekhex_get_symtab (abfd, table) bfd *abfd; asymbol **table; { tekhex_symbol_type *p = abfd->tdata.tekhex_data->symbols; unsigned int c = bfd_get_symcount (abfd); table[c] = 0; while (p) { table[--c] = &(p->symbol); p = p->prev; } return bfd_get_symcount (abfd); } long tekhex_get_symtab_upper_bound (abfd) bfd *abfd; { return (abfd->symcount + 1) * (sizeof (struct tekhex_asymbol_struct *)); } static boolean tekhex_mkobject (abfd) bfd *abfd; { tdata_type *tdata = (tdata_type *) bfd_alloc (abfd, sizeof (tdata_type)); if (!tdata) { bfd_set_error (bfd_error_no_memory); return false; } abfd->tdata.tekhex_data = tdata; tdata->type = 1; tdata->head = (tekhex_data_list_type *) NULL; tdata->symbols = (struct tekhex_symbol_struct *) NULL; tdata->data = (struct data_struct *) NULL; return true; } /* Return true if the file looks like it's in TekHex format. Just look for a percent sign and some hex digits */ static const bfd_target * tekhex_object_p (abfd) bfd *abfd; { char b[4]; asection *section; tekhex_init (); if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0 || bfd_read (b, 1, 4, abfd) != 4) return NULL; if (b[0] != '%' || !ISHEX (b[1]) || !ISHEX (b[2]) || !ISHEX (b[3])) return (const bfd_target *) NULL; tekhex_mkobject (abfd); pass_over (abfd, first_phase); return abfd->xvec; } static boolean move_section_contents (abfd, section, locationp, offset, count, get) bfd *abfd; asection *section; PTR locationp; file_ptr offset; bfd_size_type count; boolean get; { bfd_vma addr; char *location = (char *) locationp; bfd_vma prev_number = 1; /* Nothing can have this as a high bit*/ struct data_struct *d = (struct data_struct *) NULL; for (addr = section->vma; count != 0; count--, addr++) { bfd_vma chunk_number = addr & ~CHUNK_MASK; /* Get high bits of address */ bfd_vma low_bits = addr & CHUNK_MASK; if (chunk_number != prev_number) { /* Different chunk, so move pointer */ d = find_chunk (abfd, chunk_number); } if (get) { if (d->chunk_init[low_bits]) { *location = d->chunk_data[low_bits]; } else { *location = 0; } } else { d->chunk_data[low_bits] = *location; d->chunk_init[low_bits] = (*location != 0); } location++; } } static boolean tekhex_get_section_contents (abfd, section, locationp, offset, count) bfd *abfd; asection *section; PTR locationp; file_ptr offset; bfd_size_type count; { if (section->flags & (SEC_LOAD | SEC_ALLOC)) { move_section_contents (abfd, section, locationp, offset, count, true); return true; } else return false; } boolean tekhex_set_arch_mach (abfd, arch, machine) bfd *abfd; enum bfd_architecture arch; unsigned long machine; { return bfd_default_set_arch_mach (abfd, arch, machine); } /* we have to save up all the Tekhexords for a splurge before output, */ static boolean tekhex_set_section_contents (abfd, section, locationp, offset, bytes_to_do) bfd *abfd; sec_ptr section; PTR locationp; file_ptr offset; bfd_size_type bytes_to_do; { if (abfd->output_has_begun == false) { /* The first time around, allocate enough sections to hold all the chunks */ asection *s = abfd->sections; bfd_vma vma; for (s = abfd->sections; s; s = s->next) { if (s->flags & SEC_LOAD) { for (vma = s->vma & ~CHUNK_MASK; vma < s->vma + s->_raw_size; vma += CHUNK_MASK) find_chunk (abfd, vma); } } } if (section->flags & (SEC_LOAD | SEC_ALLOC)) { move_section_contents (abfd, section, locationp, offset, bytes_to_do, false); return true; } else return false; } static void writevalue (dst, value) char **dst; bfd_vma value; { char *p = *dst; int len; int shift; for (len = 8, shift = 28; shift; shift -= 4, len--) { if ((value >> shift) & 0xf) { *p++ = len + '0'; while (len) { *p++ = digs[(value >> shift) & 0xf]; shift -= 4; len--; } *dst = p; return; } } *p++ = '1'; *p++ = '0'; *dst = p; } static void writesym (dst, sym) char **dst; CONST char *sym; { char *p = *dst; int len = (sym ? strlen (sym) : 0); if (len >= 16) { *p++ = '0'; len = 16; } else { if (len == 0) { *p++ = '1'; sym = "$"; len = 1; } else { *p++ = digs[len]; } } while (len--) { *p++ = *sym++; } *dst = p; } static void out (abfd, type, start, end) bfd *abfd; char type; char *start; char *end; { int sum = 0; char *s; char front[6]; front[0] = '%'; TOHEX (front + 1, end - start + 5); front[3] = type; for (s = start; s < end; s++) { sum += sum_block[*s]; } sum += sum_block[front[1]]; /* length */ sum += sum_block[front[2]]; sum += sum_block[front[3]]; /* type */ TOHEX (front + 4, sum); if (bfd_write (front, 1, 6, abfd) != 6) abort (); end[0] = '\n'; if (bfd_write (start, 1, end - start + 1, abfd) != end - start + 1) abort (); } static boolean tekhex_write_object_contents (abfd) bfd *abfd; { int bytes_written; char buffer[100]; asymbol **p; tdata_type *tdata = abfd->tdata.tekhex_data; tekhex_data_list_type *list; asection *s; struct data_struct *d; bytes_written = 0; /* And the raw data */ for (d = abfd->tdata.tekhex_data->data; d != (struct data_struct *) NULL; d = d->next) { int low; CONST int span = 32; int addr; /* Write it in blocks of 32 bytes */ for (addr = 0; addr < CHUNK_MASK + 1; addr += span) { int need = 0; /* Check to see if necessary */ for (low = 0; !need && low < span; low++) { if (d->chunk_init[addr + low]) need = 1; } if (need) { char *dst = buffer; writevalue (&dst, addr + d->vma); for (low = 0; low < span; low++) { TOHEX (dst, d->chunk_data[addr + low]); dst += 2; } out (abfd, '6', buffer, dst); } } } /* write all the section headers for the sections */ for (s = abfd->sections; s != (asection *) NULL; s = s->next) { char *dst = buffer; writesym (&dst, s->name); *dst++ = '1'; writevalue (&dst, s->vma); writevalue (&dst, s->vma + s->_raw_size); out (abfd, '3', buffer, dst); } /* And the symbols */ for (p = abfd->outsymbols; *p; p++) { int section_code = bfd_decode_symclass (*p); if (section_code != '?') { /* do not include debug symbols */ asymbol *s = *p; char *dst = buffer; writesym (&dst, s->section->name); switch (section_code) { case 'A': *dst++ = '2'; break; case 'a': *dst++ = '6'; break; case 'D': case 'B': case 'O': *dst++ = '4'; break; case 'd': case 'b': case 'o': *dst++ = '8'; break; case 'T': *dst++ = '3'; break; case 't': *dst++ = '7'; break; case 'C': case 'U': bfd_set_error (bfd_error_wrong_format); return false; } writesym (&dst, s->name); writevalue (&dst, s->value + s->section->vma); out (abfd, '3', buffer, dst); } } /* And the terminator */ if (bfd_write ("%7081010\n", 1, 9, abfd) != 9) abort (); return true; } static int tekhex_sizeof_headers (abfd, exec) bfd *abfd; boolean exec; { return 0; } static asymbol * tekhex_make_empty_symbol (abfd) bfd *abfd; { tekhex_symbol_type *new = (tekhex_symbol_type *) bfd_zalloc (abfd, sizeof (struct tekhex_symbol_struct)); if (!new) { bfd_set_error (bfd_error_no_memory); return NULL; } new->symbol.the_bfd = abfd; new->prev = (struct tekhex_symbol_struct *) NULL; return &(new->symbol); } static void tekhex_get_symbol_info (ignore_abfd, symbol, ret) bfd *ignore_abfd; asymbol *symbol; symbol_info *ret; { bfd_symbol_info (symbol, ret); } static void tekhex_print_symbol (ignore_abfd, filep, symbol, how) bfd *ignore_abfd; PTR filep; asymbol *symbol; bfd_print_symbol_type how; { FILE *file = (FILE *) filep; switch (how) { case bfd_print_symbol_name: fprintf (file, "%s", symbol->name); break; case bfd_print_symbol_more: break; case bfd_print_symbol_all: { CONST char *section_name = symbol->section->name; bfd_print_symbol_vandf ((PTR) file, symbol); fprintf (file, " %-5s %s", section_name, symbol->name); } } } #define tekhex_close_and_cleanup _bfd_generic_close_and_cleanup #define tekhex_bfd_free_cached_info _bfd_generic_bfd_free_cached_info #define tekhex_new_section_hook _bfd_generic_new_section_hook #define tekhex_bfd_is_local_label bfd_generic_is_local_label #define tekhex_get_lineno _bfd_nosymbols_get_lineno #define tekhex_find_nearest_line _bfd_nosymbols_find_nearest_line #define tekhex_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol #define tekhex_bfd_get_relocated_section_contents \ bfd_generic_get_relocated_section_contents #define tekhex_bfd_relax_section bfd_generic_relax_section #define tekhex_bfd_link_hash_table_create _bfd_generic_link_hash_table_create #define tekhex_bfd_link_add_symbols _bfd_generic_link_add_symbols #define tekhex_bfd_final_link _bfd_generic_final_link const bfd_target tekhex_vec = { "tekhex", /* name */ bfd_target_tekhex_flavour, true, /* target byte order */ true, /* target headers byte order */ (EXEC_P | /* object flags */ HAS_SYMS | HAS_LINENO | HAS_DEBUG | HAS_RELOC | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* leading underscore */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 1, /* minimum alignment */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ bfd_getb64, bfd_getb_signed_64, bfd_putb64, bfd_getb32, bfd_getb_signed_32, bfd_putb32, bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ { _bfd_dummy_target, tekhex_object_p, /* bfd_check_format */ _bfd_dummy_target, _bfd_dummy_target, }, { bfd_false, tekhex_mkobject, _bfd_generic_mkarchive, bfd_false, }, { /* bfd_write_contents */ bfd_false, tekhex_write_object_contents, _bfd_write_archive_contents, bfd_false, }, BFD_JUMP_TABLE_GENERIC (tekhex), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (_bfd_nocore), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (tekhex), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (tekhex), BFD_JUMP_TABLE_LINK (tekhex), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 }; gdb-4.13/bfd/trad-core.c 666 34562 1752 24704 5610565623 13353 0ustar fnfcygnus/* BFD back end for traditional Unix core files (U-area and raw sections) Copyright 1988, 1989, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by John Gilmore of Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* To use this file on a particular host, configure the host with these parameters in the config/h-HOST file: HDEFINES=-DTRAD_CORE HDEPFILES=trad-core.o */ #include "bfd.h" #include "sysdep.h" #include "libbfd.h" #include "libaout.h" /* BFD a.out internal data structures */ #include #include #include #include #include #include /* After a.out.h */ #if 0 /* file.h is included by std-host.h. So we better not try to include it twice; on some systems (dpx2) it is not protected against multiple inclusion. I have checked that all the hosts which use this file include sys/file.h in the hosts file. */ #include #endif #include struct trad_core_struct { asection *data_section; asection *stack_section; asection *reg_section; struct user u; } *rawptr; #define core_upage(bfd) (&((bfd)->tdata.trad_core_data->u)) #define core_datasec(bfd) ((bfd)->tdata.trad_core_data->data_section) #define core_stacksec(bfd) ((bfd)->tdata.trad_core_data->stack_section) #define core_regsec(bfd) ((bfd)->tdata.trad_core_data->reg_section) /* forward declarations */ const bfd_target *trad_unix_core_file_p PARAMS ((bfd *abfd)); char * trad_unix_core_file_failing_command PARAMS ((bfd *abfd)); int trad_unix_core_file_failing_signal PARAMS ((bfd *abfd)); boolean trad_unix_core_file_matches_executable_p PARAMS ((bfd *core_bfd, bfd *exec_bfd)); /* Handle 4.2-style (and perhaps also sysV-style) core dump file. */ /* ARGSUSED */ const bfd_target * trad_unix_core_file_p (abfd) bfd *abfd; { int val; struct user u; #ifdef TRAD_CORE_USER_OFFSET /* If defined, this macro is the file position of the user struct. */ if (bfd_seek (abfd, TRAD_CORE_USER_OFFSET, SEEK_SET) != 0) return 0; #endif val = bfd_read ((void *)&u, 1, sizeof u, abfd); if (val != sizeof u) { /* Too small to be a core file */ bfd_set_error (bfd_error_wrong_format); return 0; } /* Sanity check perhaps??? */ if (u.u_dsize > 0x1000000) /* Remember, it's in pages... */ { bfd_set_error (bfd_error_wrong_format); return 0; } if (u.u_ssize > 0x1000000) { bfd_set_error (bfd_error_wrong_format); return 0; } /* Check that the size claimed is no greater than the file size. */ { FILE *stream = bfd_cache_lookup (abfd); struct stat statbuf; if (stream == NULL) return 0; if (fstat (fileno (stream), &statbuf) < 0) { bfd_set_error (bfd_error_system_call); return 0; } if (NBPG * (UPAGES + u.u_dsize #ifdef TRAD_CORE_DSIZE_INCLUDES_TSIZE - u.u_tsize #endif + u.u_ssize) > statbuf.st_size) { bfd_set_error (bfd_error_file_truncated); return 0; } #ifndef TRAD_CORE_ALLOW_ANY_EXTRA_SIZE if (NBPG * (UPAGES + u.u_dsize + u.u_ssize) #ifdef TRAD_CORE_EXTRA_SIZE_ALLOWED /* Some systems write the file too big. */ + TRAD_CORE_EXTRA_SIZE_ALLOWED #endif < statbuf.st_size) { /* The file is too big. Maybe it's not a core file or we otherwise have bad values for u_dsize and u_ssize). */ bfd_set_error (bfd_error_wrong_format); return 0; } #endif } /* OK, we believe you. You're a core file (sure, sure). */ /* Allocate both the upage and the struct core_data at once, so a single free() will free them both. */ rawptr = (struct trad_core_struct *) bfd_zmalloc (sizeof (struct trad_core_struct)); if (rawptr == NULL) { bfd_set_error (bfd_error_no_memory); return 0; } abfd->tdata.trad_core_data = rawptr; rawptr->u = u; /*Copy the uarea into the tdata part of the bfd */ /* Create the sections. This is raunchy, but bfd_close wants to free them separately. */ core_stacksec(abfd) = (asection *) bfd_zmalloc (sizeof (asection)); if (core_stacksec (abfd) == NULL) { loser: bfd_set_error (bfd_error_no_memory); free ((void *)rawptr); return 0; } core_datasec (abfd) = (asection *) bfd_zmalloc (sizeof (asection)); if (core_datasec (abfd) == NULL) { loser1: free ((void *)core_stacksec (abfd)); goto loser; } core_regsec (abfd) = (asection *) bfd_zmalloc (sizeof (asection)); if (core_regsec (abfd) == NULL) { free ((void *)core_datasec (abfd)); goto loser1; } core_stacksec (abfd)->name = ".stack"; core_datasec (abfd)->name = ".data"; core_regsec (abfd)->name = ".reg"; core_stacksec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS; core_datasec (abfd)->flags = SEC_ALLOC + SEC_LOAD + SEC_HAS_CONTENTS; core_regsec (abfd)->flags = SEC_HAS_CONTENTS; core_datasec (abfd)->_raw_size = NBPG * u.u_dsize #ifdef TRAD_CORE_DSIZE_INCLUDES_TSIZE - NBPG * u.u_tsize #endif ; core_stacksec (abfd)->_raw_size = NBPG * u.u_ssize; core_regsec (abfd)->_raw_size = NBPG * UPAGES; /* Larger than sizeof struct u */ /* What a hack... we'd like to steal it from the exec file, since the upage does not seem to provide it. FIXME. */ #ifdef HOST_DATA_START_ADDR core_datasec (abfd)->vma = HOST_DATA_START_ADDR; #else core_datasec (abfd)->vma = HOST_TEXT_START_ADDR + (NBPG * u.u_tsize); #endif #ifdef HOST_STACK_START_ADDR core_stacksec (abfd)->vma = HOST_STACK_START_ADDR; #else core_stacksec (abfd)->vma = HOST_STACK_END_ADDR - (NBPG * u.u_ssize); #endif /* This is tricky. As the "register section", we give them the entire upage and stack. u.u_ar0 points to where "register 0" is stored. There are two tricks with this, though. One is that the rest of the registers might be at positive or negative (or both) displacements from *u_ar0. The other is that u_ar0 is sometimes an absolute address in kernel memory, and on other systems it is an offset from the beginning of the `struct user'. As a practical matter, we don't know where the registers actually are, so we have to pass the whole area to GDB. We encode the value of u_ar0 by setting the .regs section up so that its virtual memory address 0 is at the place pointed to by u_ar0 (by setting the vma of the start of the section to -u_ar0). GDB uses this info to locate the regs, using minor trickery to get around the offset-or-absolute-addr problem. */ core_regsec (abfd)->vma = 0 - (int) u.u_ar0; core_datasec (abfd)->filepos = NBPG * UPAGES; core_stacksec (abfd)->filepos = (NBPG * UPAGES) + NBPG * u.u_dsize #ifdef TRAD_CORE_DSIZE_INCLUDES_TSIZE - NBPG * u.u_tsize #endif ; core_regsec (abfd)->filepos = 0; /* Register segment is the upage */ /* Align to word at least */ core_stacksec (abfd)->alignment_power = 2; core_datasec (abfd)->alignment_power = 2; core_regsec (abfd)->alignment_power = 2; abfd->sections = core_stacksec (abfd); core_stacksec (abfd)->next = core_datasec (abfd); core_datasec (abfd)->next = core_regsec (abfd); abfd->section_count = 3; return abfd->xvec; } char * trad_unix_core_file_failing_command (abfd) bfd *abfd; { #ifndef NO_CORE_COMMAND char *com = abfd->tdata.trad_core_data->u.u_comm; if (*com) return com; else #endif return 0; } /* ARGSUSED */ int trad_unix_core_file_failing_signal (ignore_abfd) bfd *ignore_abfd; { #ifdef TRAD_UNIX_CORE_FILE_FAILING_SIGNAL return TRAD_UNIX_CORE_FILE_FAILING_SIGNAL(ignore_abfd); #else return -1; /* FIXME, where is it? */ #endif } /* ARGSUSED */ boolean trad_unix_core_file_matches_executable_p (core_bfd, exec_bfd) bfd *core_bfd, *exec_bfd; { return true; /* FIXME, We have no way of telling at this point */ } /* If somebody calls any byte-swapping routines, shoot them. */ void swap_abort() { abort(); /* This way doesn't require any declaration for ANSI to fuck up */ } #define NO_GET ((bfd_vma (*) PARAMS (( const bfd_byte *))) swap_abort ) #define NO_PUT ((void (*) PARAMS ((bfd_vma, bfd_byte *))) swap_abort ) #define NO_SIGNED_GET \ ((bfd_signed_vma (*) PARAMS ((const bfd_byte *))) swap_abort ) const bfd_target trad_core_vec = { "trad-core", bfd_target_unknown_flavour, true, /* target byte order */ true, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ 0, /* symbol prefix */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ 3, /* minimum alignment power */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit data */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 64 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 32 bit hdrs */ NO_GET, NO_SIGNED_GET, NO_PUT, /* 16 bit hdrs */ { /* bfd_check_format */ _bfd_dummy_target, /* unknown format */ _bfd_dummy_target, /* object file */ _bfd_dummy_target, /* archive */ trad_unix_core_file_p /* a core file */ }, { /* bfd_set_format */ bfd_false, bfd_false, bfd_false, bfd_false }, { /* bfd_write_contents */ bfd_false, bfd_false, bfd_false, bfd_false }, BFD_JUMP_TABLE_GENERIC (_bfd_generic), BFD_JUMP_TABLE_COPY (_bfd_generic), BFD_JUMP_TABLE_CORE (trad_unix), BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), BFD_JUMP_TABLE_SYMBOLS (_bfd_nosymbols), BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), BFD_JUMP_TABLE_WRITE (_bfd_generic), BFD_JUMP_TABLE_LINK (_bfd_nolink), BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), (PTR) 0 /* backend_data */ }; gdb-4.13/bfd/hosts/ 777 34562 1752 0 5623250424 12352 5ustar fnfcygnusgdb-4.13/bfd/hosts/alphaosf.h 666 34562 1752 1511 5524070010 14365 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #include #include /* Make the basic types 64-bit quantities on the host. Also provide the support macros BFD needs. */ #define BFD_HOST_64_BIT long #define sprintf_vma(s,x) sprintf (s, "%016lx", x) /* BFD_HOST_64_BIT */ #define fprintf_vma(f,x) fprintf (f, "%016lx", x) /* BFD_HOST_64_BIT */ #define BYTES_IN_PRINTF_INT 4 /* These must have type unsigned long because they are used as arguments in printf functions. */ #define uint64_typeLOW(x) ((unsigned long) (((x) & 0xffffffff))) /* BFD_HOST_64_BIT */ #define uint64_typeHIGH(x) ((unsigned long) (((x) >> 32) & 0xffffffff)) /* BFD_HOST_64_BIT */ #include "fopen-same.h" gdb-4.13/bfd/hosts/apollo68.h 666 34562 1752 1016 5457073122 14250 0ustar fnfcygnus#include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #ifndef SEEK_SET #define SEEK_SET 0 #define SEEK_CUR 1 #endif #ifndef MAXPATHLEN #define MAXPATHLEN 1024 #endif /* MAXPATHLEN */ #ifndef DONTDECLARE_MALLOC extern PTR malloc PARAMS ((unsigned)); extern PTR realloc PARAMS ((PTR, unsigned)); extern void free PARAMS ((PTR)); #endif #include "fopen-same.h" gdb-4.13/bfd/hosts/apollov68.h 666 34562 1752 1517 5451673336 14453 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #ifndef MAXPATHLEN #define MAXPATHLEN 1024 #endif /* MAXPATHLEN */ #define POSIX_UTIME /* Some things that need to be defined in order to make code written for BSD Unix compile under System V Unix. */ #include #define bcmp(b1,b2,len) memcmp(b1,b2,len) #define bcopy(src,dst,len) memcpy(dst,src,len) #define bzero(s,n) memset(s,0,n) #include #ifndef DONTDECLARE_MALLOC extern PTR malloc PARAMS ((unsigned)); extern PTR realloc PARAMS ((PTR, unsigned)); extern void free PARAMS ((PTR)); #endif #include "fopen-same.h" gdb-4.13/bfd/hosts/decstation.h 666 34562 1752 1662 5451673337 14760 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 /* Hopefully this should include either machine/param.h (Ultrix) or machine/machparam.h (Mach), whichever is its name on this system. */ #include #include #define HOST_PAGE_SIZE NBPG /* #define HOST_SEGMENT_SIZE NBPG -- we use HOST_DATA_START_ADDR */ #define HOST_MACHINE_ARCH bfd_arch_mips /* #define HOST_MACHINE_MACHINE */ #define HOST_TEXT_START_ADDR USRTEXT #define HOST_DATA_START_ADDR USRDATA #define HOST_STACK_END_ADDR USRSTACK #define TRAD_UNIX_CORE_FILE_FAILING_SIGNAL(core_bfd) \ ((core_bfd)->tdata.trad_core_data->u.u_arg[0]) #include "fopen-same.h" /* other */ extern char *getenv(); gdb-4.13/bfd/hosts/delta68.h 666 34562 1752 570 5415051004 14024 0ustar fnfcygnus#include #define USE_UTIME /* Definitions used by trad-core.c. */ #define NBPG NBPC #define HOST_DATA_START_ADDR u.u_exdata.ux_datorg #define HOST_TEXT_START_ADDR u.u_exdata.ux_txtorg #define HOST_STACK_END_ADDR 0x40000000 #define UPAGES USIZE #define TRAD_UNIX_CORE_FILE_FAILING_SIGNAL(abfd)\ abfd->tdata.trad_core_data->u.u_abort #include "hosts/std-host.h" gdb-4.13/bfd/hosts/delta88.h 666 34562 1752 4003 5451673340 14056 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #include #define USE_UTIME #ifndef DONTDECLARE_MALLOC extern PTR malloc PARAMS ((unsigned)); extern PTR realloc PARAMS ((PTR, unsigned)); #endif extern int abort PARAMS ((void)); extern int free PARAMS ((PTR)); extern void bcopy PARAMS ((char*,char*,int)); extern void exit PARAMS ((int)); extern int strtol PARAMS ((char *, char **, int)); extern void bzero PARAMS ((char *, int)); #define NO_STDARG 1 extern int abort PARAMS ((void)); extern int close PARAMS ((int)); #if 0 /* Conflicts with system headers on SVR4. */ extern int fcntl PARAMS ((int des, int cmd, int e)); #endif extern int qsort PARAMS ((void *data,int els, int siz, int func())); #if 0 /* Conflicts with system headers on SVR4. */ extern int fseek PARAMS ((FILE*, int, int)); #endif extern int fclose PARAMS ((FILE*)); extern void bcopy PARAMS ((char*,char*,int)); extern int bcmp PARAMS ((char *, char *, int)); extern void bzero PARAMS ((char *, int)); extern void perror PARAMS ((CONST char *)); extern PTR memchr PARAMS ((const void *, int, unsigned )); #if 0 /* Conflicts with system headers on SVR4. */ extern unsigned short getuid PARAMS ((void)); extern unsigned short getgid PARAMS ((void)); #endif extern char * strchr(); extern char *getenv(); extern char *strrchr(); extern int chmod(); #if 0 /* Conflicts with system headers on SVR4. */ extern int fread(); #endif extern int fstat(); #if 0 /* Conflicts with system headers on SVR4. */ extern int fwrite(); #endif extern int sscanf(); extern int stat(); extern int strtol(); extern int fileno(); extern char *strrchr(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); #if 0 /* Conflicts with system headers on SVR4. */ extern int time(); #endif extern int utime(); extern int vfprintf(); extern long atol(); extern char *getenv(); extern int fputc(); extern int unlink(); #include "fopen-same.h" gdb-4.13/bfd/hosts/delta88v4.h 666 34562 1752 233 5441306560 14305 0ustar fnfcygnus/* Delta88 running SVR4. */ #include #define STDC_HEADERS #include "hosts/std-host.h" #define HAVE_PROCFS /* This host has /proc support */ gdb-4.13/bfd/hosts/dgux.h 666 34562 1752 1143 5451673342 13560 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #include #include #ifndef DONTDECLARE_MALLOC extern PTR malloc PARAMS ((unsigned)); extern PTR realloc PARAMS ((PTR, unsigned)); #endif extern int abort PARAMS ((void)); extern void free PARAMS ((PTR)); extern void bcopy PARAMS ((char*,char*,int)); extern void exit PARAMS ((int)); extern void bzero PARAMS ((char *, int)); extern int strtol(); #define NO_STDARG 1 #include "fopen-same.h" gdb-4.13/bfd/hosts/dose.h 666 34562 1752 477 5446277123 13535 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #include "fopen-bin.h" gdb-4.13/bfd/hosts/dpx2.h 666 34562 1752 545 5546324755 13461 0ustar fnfcygnus#include #define STDC_HEADERS #define POSIX_UTIME #include "hosts/std-host.h" /* Definitions that are needed for core files. Core section sizes for the DPX2 are in bytes. */ #include #define NBPG 1 #define UPAGES (USIZE * NBPP) #define HOST_DATA_START_ADDR (u.u_exdata.ux_datorg) #define HOST_STACK_END_ADDR (USERSTACK) gdb-4.13/bfd/hosts/go32.h 666 34562 1752 545 5446277124 13352 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #define NO_FCNTL #include "fopen-bin.h" gdb-4.13/bfd/hosts/harris.h 666 34562 1752 1222 5612046131 14064 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #include #ifndef DONTDECLARE_MALLOC extern PTR malloc PARAMS ((unsigned)); extern PTR realloc PARAMS ((PTR, unsigned)); #endif extern int abort PARAMS ((void)); extern int free PARAMS ((PTR)); extern void bcopy PARAMS ((char*,char*,int)); extern void exit PARAMS ((int)); extern void bzero PARAMS ((char *, int)); extern int strtol(); #include "fopen-same.h" #define POSIX_UTIME #ifndef _ES_MP #define HAVE_PROCFS /* Used for core file stuff only */ #endif gdb-4.13/bfd/hosts/hp300.h 666 34562 1752 1335 5532262452 13442 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #define HOST_HP300HPUX #define USE_UTIME /* Some things that need to be defined in order to make code written for BSD Unix compile under System V Unix. */ #include #define bcmp(b1,b2,len) memcmp(b1,b2,len) #define bcopy(src,dst,len) memcpy(dst,src,len) #define bzero(s,n) memset(s,0,n) #if 0 static int rename(from, to) { unlink(to); return(link(from, to)); } #endif #include "fopen-same.h" gdb-4.13/bfd/hosts/hp300bsd.h 666 34562 1752 1313 5504147012 14120 0ustar fnfcygnus#include #include #include #include #include #include #include #include void *malloc(); void *realloc(); void free(); #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #include #ifdef BSD4_4 #include #define NO_CORE_COMMAND #endif #define HOST_PAGE_SIZE NBPG #define HOST_SEGMENT_SIZE NBPG /* Data seg start addr rounds to NBPG */ #define HOST_MACHINE_ARCH bfd_arch_m68k /* #define HOST_MACHINE_MACHINE */ #define HOST_TEXT_START_ADDR 0 #define HOST_STACK_END_ADDR 0xfff00000 #define HOST_BIG_ENDIAN_P #include "fopen-same.h" gdb-4.13/bfd/hosts/hppabsd.h 666 34562 1752 1407 5446277131 14235 0ustar fnfcygnus#ifndef _HPPABSD_H #define _HPPABSD_H #include #include #include #include #include #include #include #include #include #include #include #define HOST_HPPABSD #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #include #define HOST_PAGE_SIZE NBPG #define HOST_SEGMENT_SIZE NBPG /* Data seg start addr rounds to NBPG */ #define HOST_MACHINE_ARCH bfd_arch_hppa /* #define HOST_MACHINE_MACHINE */ #define HOST_TEXT_START_ADDR UTEXTSEG #define HOST_DATA_START_ADDR UDATASEG #define HOST_STACK_END_ADDR KSTAKSEG #include "fopen-same.h" #endif /* _HPPABSD_H */ gdb-4.13/bfd/hosts/hppahpux.h 666 34562 1752 1164 5446277131 14451 0ustar fnfcygnus#ifndef _HPPAHPUX_H #define _HPPAHPUX_H #include #include #include #include #include #include #include #include #include #include #include #define HOST_HPPAHPUX void free(); #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #ifndef __STDC__ #define NATIVE_HPPAHPUX_COMPILER #endif #define USE_UTIME #if 0 static int rename(from, to) { unlink(to); return(link(from, to)); } #endif #include "fopen-same.h" #endif /* _HPPAHPUX_H */ gdb-4.13/bfd/hosts/hppaosf.h 666 34562 1752 1407 5525615770 14257 0ustar fnfcygnus#ifndef _HPPAOSF_H #define _HPPAOSF_H #include #include #include #include #include #include #include #include #include #include #include #define HOST_HPPAOSF #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #include #define HOST_PAGE_SIZE NBPG #define HOST_SEGMENT_SIZE NBPG /* Data seg start addr rounds to NBPG */ #define HOST_MACHINE_ARCH bfd_arch_hppa /* #define HOST_MACHINE_MACHINE */ #define HOST_TEXT_START_ADDR UTEXTSEG #define HOST_DATA_START_ADDR UDATASEG #define HOST_STACK_END_ADDR KSTAKSEG #include "fopen-same.h" #endif /* _HPPAOSF_H */ gdb-4.13/bfd/hosts/i386aix.h 666 34562 1752 1727 5555327761 14022 0ustar fnfcygnus/* i386 AIX 1.2.x host system */ /* From Minh Tran-Le . */ #include #include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #define POSIX_UTIME extern void abort PARAMS ((void)); extern int close PARAMS ((int)); extern void exit PARAMS ((int)); extern int fclose PARAMS ((FILE*)); extern void free PARAMS ((PTR)); extern int fseek PARAMS ((FILE*, long, int)); extern void perror PARAMS ((CONST char *)); extern char *getenv(); extern int chmod(); extern int fstat(); extern int stat(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); extern int utimes(); extern int vfprintf(); extern long atol(); extern int fputc(); extern int unlink(); #include "fopen-same.h" gdb-4.13/bfd/hosts/i386bsd.h 666 34562 1752 2311 5461255145 13767 0ustar fnfcygnus#ifndef hosts_i386bsd_H /* Intel 386 running any BSD Unix */ #include #include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #define HOST_PAGE_SIZE NBPG #define HOST_MACHINE_ARCH bfd_arch_i386 #define HOST_TEXT_START_ADDR USRTEXT /* Jolitz suggested defining HOST_STACK_END_ADDR to (u.u_kproc.kp_eproc.e_vm.vm_maxsaddr + MAXSSIZ), which should work on both BSDI and 386BSD, but that is believed not to work for BSD 4.4. */ #ifdef __bsdi__ /* This seems to be the right thing for BSDI. */ #define HOST_STACK_END_ADDR USRSTACK #define HOST_DATA_START_ADDR ((bfd_vma)u.u_kproc.kp_eproc.e_vm.vm_daddr) #else /* This seems to be the right thing for 386BSD release 0.1. */ #define HOST_STACK_END_ADDR (USRSTACK - MAXSSIZ) #endif #define TRAD_UNIX_CORE_FILE_FAILING_SIGNAL(core_bfd) \ ((core_bfd)->tdata.trad_core_data->u.u_sig) #define u_comm u_kproc.kp_proc.p_comm #include "fopen-same.h" #define hosts_i386bsd_H #endif gdb-4.13/bfd/hosts/i386linux.h 666 34562 1752 1172 5446277134 14367 0ustar fnfcygnus#include #include #include #define DONTDECLARE_MALLOC #include "hosts/i386v.h" /* Might be required by trad-core.c (not sure if it is). */ #include /* Linux writes the task structure at the end of the core file. Currently it is 2912 bytes. It is possible that this should be a pickier check, but we should probably not be too picky (the size of the task structure might vary, and if it's not the length we expect it to be, it doesn't affect our ability to process the core file). So allow 0-4096 extra bytes at the end. */ #define TRAD_CORE_EXTRA_SIZE_ALLOWED 4096 gdb-4.13/bfd/hosts/i386lynx.h 666 34562 1752 263 5472275076 14204 0ustar fnfcygnus/* Intel 386 running LynxOS */ #ifndef hosts_i386lynx_h #define hosts_i386lynx_h #include "hosts/lynx.h" #define HOST_MACHINE_ARCH bfd_arch_i386 #endif /* hosts_i386lynx_h */ gdb-4.13/bfd/hosts/i386v.h 666 34562 1752 1447 5451673346 13503 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #ifndef SEEK_SET #define SEEK_SET 0 #define SEEK_CUR 1 #endif #define USE_UTIME /* Some things that need to be defined in order to make code written for BSD Unix compile under System V Unix. */ /*#include */ #define bcmp(b1,b2,len) memcmp(b1,b2,len) #define bcopy(src,dst,len) memcpy(dst,src,len) #define bzero(s,n) memset(s,0,n) #include #ifndef DONTDECLARE_MALLOC extern PTR malloc PARAMS ((unsigned)); extern PTR realloc PARAMS ((PTR, unsigned)); extern void free PARAMS ((PTR)); #endif #include "fopen-same.h" gdb-4.13/bfd/hosts/i386mach3.h 666 34562 1752 1372 5511404662 14214 0ustar fnfcygnus#include "hosts/std-host.h" #include #include /* This is an ugly way to hack around the incorrect * definition of UPAGES in i386/machparam.h. * * The definition should specify the size reserved * for "struct user" in core files in PAGES, * but instead it gives it in 512-byte core-clicks * for i386 and i860. UPAGES is used only in trad-core.c. */ #if UPAGES == 16 #undef UPAGES #define UPAGES 2 #endif #if UPAGES != 2 FIXME!! UPAGES is neither 2 nor 16 #endif #define HAVE_STRERROR #define HOST_PAGE_SIZE 1 #define HOST_SEGMENT_SIZE NBPG #define HOST_MACHINE_ARCH bfd_arch_i386 #define HOST_TEXT_START_ADDR USRTEXT #define HOST_STACK_END_ADDR USRSTACK /* Not declared in errno.h on Mach3. */ extern int errno; gdb-4.13/bfd/hosts/i386osf1mk.h 666 34562 1752 427 5434276730 14410 0ustar fnfcygnus#include "hosts/std-host.h" #include #define HAVE_STRERROR #define HOST_PAGE_SIZE NBPG #define HOST_SEGMENT_SIZE NBPG #define HOST_MACHINE_ARCH bfd_arch_i386 #define HOST_TEXT_START_ADDR 0x10000 /* By inspection */ #define HOST_STACK_END_ADDR KERNBASE gdb-4.13/bfd/hosts/i386sco.h 666 34562 1752 1426 5470741653 14015 0ustar fnfcygnus#include "hosts/i386v.h" /* Core file stuff. At least some, perhaps all, of the following defines work on many more systems than just SCO. */ #define NBPG NBPC #define UPAGES USIZE #define HOST_DATA_START_ADDR u.u_exdata.ux_datorg #define HOST_STACK_START_ADDR u.u_sub #define TRAD_UNIX_CORE_FILE_FAILING_SIGNAL(abfd) \ ((core_upage(abfd)->u_sysabort != 0) \ ? core_upage(abfd)->u_sysabort \ : -1) /* According to the manpage, a version 2 SCO corefile can contain various additional sections (it is cleverly arranged so the u area, data, and stack are first where we can find them). So without writing lots of code to parse all their headers and stuff, we can't know whether a corefile is bigger than it should be. */ #define TRAD_CORE_ALLOW_ANY_EXTRA_SIZE 1 gdb-4.13/bfd/hosts/i386v4.h 666 34562 1752 2122 5533557657 13565 0ustar fnfcygnus/* SVR4 Unix host system */ #include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #define POSIX_UTIME #define HAVE_PROCFS /* This host has /proc support */ extern void abort PARAMS ((void)); extern int close PARAMS ((int)); extern void exit PARAMS ((int)); extern int fclose PARAMS ((FILE*)); extern void free PARAMS ((PTR)); extern int fseek PARAMS ((FILE*, long, int)); extern int getgid PARAMS (()); extern int getuid PARAMS (()); extern PTR malloc PARAMS ((unsigned)); extern void perror PARAMS ((CONST char *)); extern PTR realloc PARAMS ((PTR, unsigned)); extern char *getenv(); extern int chmod(); extern int fstat(); extern int stat(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); extern int utimes(); extern int vfprintf(); extern long atol(); extern int fputc(); extern int unlink(); #include "fopen-same.h" gdb-4.13/bfd/hosts/irix3.h 666 34562 1752 635 5451673350 13633 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #if 0 #include #include #endif #if !defined (O_ACCMODE) #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #if !defined (SEEK_SET) #define SEEK_SET 0 #define SEEK_CUR 1 #endif #include "fopen-same.h" gdb-4.13/bfd/hosts/irix4.h 666 34562 1752 661 5451673351 13634 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #define HOST_IRIX4 #if 0 #include #include #endif #if !defined (O_ACCMODE) #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #if !defined (SEEK_SET) #define SEEK_SET 0 #define SEEK_CUR 1 #endif #include "fopen-same.h" gdb-4.13/bfd/hosts/lynx.h 666 34562 1752 1505 5557310502 13576 0ustar fnfcygnus/* Architecture independant LynxOS host support for 2.2 */ #ifndef hosts_lynx_h #define hosts_lynx_h #include #include #include #include #include #include #include #include /* sys/kernel.h should define this, but doesn't always, sigh. */ #ifndef __LYNXOS #define __LYNXOS #endif #include #include #include #include #include #include #include #define HOST_PAGE_SIZE NBPG #define HOST_TEXT_START_ADDR USRTEXT #define HOST_LYNX #include "fopen-same.h" #define FPRINTF_ALREADY_DECLARED #undef I386 /* Lynx defines this for some reason */ /* Lynx has calloc, but no cfree, and gprof uses it. */ #define cfree free #endif /* hosts_lynx_h */ gdb-4.13/bfd/hosts/m68klynx.h 666 34562 1752 270 5472275102 14264 0ustar fnfcygnus/* Motorola 680x0 running LynxOS */ #ifndef hosts_m68klynx_H #define hosts_m68klynx_H #include "hosts/lynx.h" #define HOST_MACHINE_ARCH bfd_arch_m68k #endif /* hosts_m68klynx_H */ gdb-4.13/bfd/hosts/m68kv4.h 666 34562 1752 2306 5612045373 13646 0ustar fnfcygnus/* Amiga/Atari SVR4 Unix host system */ #include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #define POSIX_UTIME #define HAVE_PROCFS /* This host has /proc support */ extern void abort PARAMS ((void)); extern int close PARAMS ((int)); extern void exit PARAMS ((int)); extern int fclose PARAMS ((FILE*)); extern void free PARAMS ((PTR)); extern int fseek PARAMS ((FILE*, long, int)); extern int getgid PARAMS (()); extern int getuid PARAMS (()); extern PTR malloc PARAMS ((unsigned)); extern void perror PARAMS ((CONST char *)); extern int qsort PARAMS ((void *data, int els, int siz, int func())); extern PTR realloc PARAMS ((PTR, unsigned)); extern char *getenv(); extern int chmod(); extern int fstat(); extern int stat(); extern int strtol(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); extern int utimes(); extern int vfprintf(); extern long atol(); extern int fputc(); extern int unlink(); #include "fopen-same.h" gdb-4.13/bfd/hosts/m88kmach3.h 666 34562 1752 531 5606352660 14273 0ustar fnfcygnus#include "hosts/std-host.h" #include #include #ifndef MACH #define MACH #endif #undef UPAGES #define UPAGES 3 #define HAVE_STRERROR #define HOST_PAGE_SIZE NBPG #define HOST_SEGMENT_SIZE NBPG #define HOST_MACHINE_ARCH bfd_arch_m88k #define HOST_TEXT_START_ADDR USRTEXT #define HOST_STACK_END_ADDR USRSTACK gdb-4.13/bfd/hosts/miniframe.h 666 34562 1752 427 5374664332 14547 0ustar fnfcygnus#include "hosts/std-host.h" #define USE_UTIME #define NEED_MKDIR #define NEED_RMDIR #ifndef MAXPATHLEN #define MAXPATHLEN 1024 #endif /* MAXPATHLEN */ #define bcmp(b1,b2,len) memcmp(b1,b2,len) #define bcopy(src,dst,len) memcpy(dst,src,len) #define bzero(s,n) memset(s,0,n) gdb-4.13/bfd/hosts/mipsbsd.h 666 34562 1752 1305 5446277142 14254 0ustar fnfcygnus#include #include #include #undef NULL /* XXX */ #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #include #include #undef ALIGN #define HOST_PAGE_SIZE NBPG /* #define HOST_SEGMENT_SIZE NBPG -- we use HOST_DATA_START_ADDR */ #define HOST_MACHINE_ARCH bfd_arch_mips /* #define HOST_MACHINE_MACHINE */ #define HOST_TEXT_START_ADDR USRTEXT #define HOST_STACK_END_ADDR USRSTACK #define NO_CORE_COMMAND #include "fopen-same.h" gdb-4.13/bfd/hosts/mipsmach3.h 666 34562 1752 513 5606352663 14457 0ustar fnfcygnus#include "hosts/std-host.h" #include #include #include #define HOST_PAGE_SIZE NBPG /* #define HOST_SEGMENT_SIZE NBPG */ #define HOST_MACHINE_ARCH bfd_arch_mips #define HOST_TEXT_START_ADDR USRTEXT #define HOST_DATA_START_ADDR USRDATA #define HOST_STACK_END_ADDR USRSTACK gdb-4.13/bfd/hosts/ncr3000.h 666 34562 1752 2255 5451673353 13705 0ustar fnfcygnus/* SVR4 Unix host system */ #include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #define POSIX_UTIME #define HAVE_PROCFS /* This host has /proc support */ extern void abort PARAMS ((void)); extern int close PARAMS ((int)); extern void exit PARAMS ((int)); extern int fclose PARAMS ((FILE*)); extern void free PARAMS ((PTR)); extern int fseek PARAMS ((FILE*, long, int)); extern int getgid PARAMS (()); extern int getuid PARAMS (()); extern PTR malloc PARAMS ((unsigned)); extern void perror PARAMS ((CONST char *)); extern int qsort PARAMS ((void *data, int els, int siz, int func())); extern PTR realloc PARAMS ((PTR, unsigned)); extern char *getenv(); extern int chmod(); extern int fstat(); extern int stat(); extern int strtol(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); extern int utimes(); extern int vfprintf(); extern long atol(); extern int fputc(); extern int unlink(); #include "fopen-same.h" gdb-4.13/bfd/hosts/news-mips.h 666 34562 1752 455 5453417113 14512 0ustar fnfcygnus/* Sony News running NewsOS 3.2. */ #include #include #define HOST_PAGE_SIZE NBPG #define HOST_MACHINE_ARCH bfd_arch_mips #define HOST_TEXT_START_ADDR USRTEXT #define HOST_DATA_START_ADDR USRDATA #define HOST_STACK_END_ADDR USRSTACK #include "hosts/std-host.h" gdb-4.13/bfd/hosts/news.h 666 34562 1752 466 5407413050 13541 0ustar fnfcygnus/* Sony News running NewsOS 3.2. */ #include #define HOST_PAGE_SIZE NBPG #define HOST_SEGMENT_SIZE NBPG #define HOST_MACHINE_ARCH bfd_arch_m68k #define HOST_TEXT_START_ADDR 0 #define HOST_STACK_END_ADDR (KERNBASE - (UPAGES * NBPG)) #define HOST_BIG_ENDIAN_P #include "hosts/std-host.h" gdb-4.13/bfd/hosts/pc532mach.h 666 34562 1752 1503 5611327672 14276 0ustar fnfcygnus#include "hosts/std-host.h" #include #include #undef BYTE_SIZE /* Was in bits. We define it later in bytes */ /* This is an ugly way to hack around the incorrect * definition of UPAGES in ns532/machparam.h. * * The definition should specify the size reserved * for "struct user" in core files in PAGES, * but instead it gives it in 512-byte core-clicks * for ns532, i386 and i860. UPAGES is used only in trad-core.c. */ #if UPAGES == 16 #undef UPAGES #define UPAGES 2 #endif #if UPAGES != 2 #error UPAGES is neither 2 nor 16 #endif #define HAVE_STRERROR #define HOST_PAGE_SIZE 1 #define HOST_SEGMENT_SIZE NBPG #define HOST_MACHINE_ARCH bfd_arch_ns32k #define HOST_TEXT_START_ADDR USRTEXT #define HOST_STACK_END_ADDR USRSTACK /* Not declared in errno.h on Mach3. */ extern int errno; gdb-4.13/bfd/hosts/riscos.h 666 34562 1752 1033 5413603456 14106 0ustar fnfcygnus/* RISC/os 4.52C, and presumably other versions. */ #include "hosts/std-host.h" #include #include #define NBPG BSD43_NBPG #define UPAGES BSD43_UPAGES #define HOST_TEXT_START_ADDR BSD43_USRTEXT #define HOST_DATA_START_ADDR BSD43_USRDATA #define HOST_STACK_END_ADDR BSD43_USRSTACK /* This is just needed for a.out formats where the executable does not identify the architecture. I'm not sure whether RISC/os is such a case or not. */ #define HOST_MACHINE_ARCH bfd_arch_mips gdb-4.13/bfd/hosts/rs6000.h 666 34562 1752 777 5530022657 13532 0ustar fnfcygnus/* This file is *really* for an RS6000 running AIX... */ #include #include #include #include #include #include #include #include #include #include /* for malloc() */ /* Defining this variable turns on AIX core file and archive support. */ #define HOST_AIX #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #include "fopen-same.h" gdb-4.13/bfd/hosts/rs6000lynx.h 666 34562 1752 270 5530022661 14424 0ustar fnfcygnus/* RS6000 running LynxOS */ #ifndef hosts_rs6000lynx_h #define hosts_rs6000lynx_h #include "hosts/lynx.h" #define HOST_MACHINE_ARCH bfd_arch_rs6000 #endif /* hosts_rs6000lynx_h */ gdb-4.13/bfd/hosts/rtbsd.h 666 34562 1752 560 5451673353 13713 0ustar fnfcygnus#include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 extern char *malloc(); extern void free(); #include "fopen-same.h" gdb-4.13/bfd/hosts/solaris2.h 666 34562 1752 113 5620230225 14306 0ustar fnfcygnus/* Solaris-2 host system */ #include "hosts/sysv4.h" /* That's all... */ gdb-4.13/bfd/hosts/sparc-ll.h 666 34562 1752 5215 5524070012 14314 0ustar fnfcygnus/* Host definition file for Sun-4 running with gcc, using "long long" for addresses, to handle 64-bit target systems. */ #include #include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 /* Make the basic types 64-bit quantities on the host */ #define BFD_HOST_64_BIT long long extern int abort PARAMS ((void)); extern int close PARAMS ((int)); extern int fcntl PARAMS ((int des, int cmd, int e)); extern int fprintf PARAMS ((FILE *,char *,...)); extern int printf PARAMS ((char *,...)); extern int qsort PARAMS ((void *data, int els, int siz, int func())); extern void exit PARAMS ((int)); extern int fseek PARAMS ((FILE*, int, int)); extern int fclose PARAMS ((FILE*)); extern void bcopy PARAMS ((char*, char*, int)); extern int bcmp PARAMS ((char *, char *, int)); extern void bzero PARAMS ((char *, int)); extern PTR memset PARAMS ((PTR, int, unsigned int)); #ifndef DONTDECLARE_MALLOC extern PTR malloc PARAMS ((unsigned)); extern PTR realloc PARAMS ((PTR, unsigned)); #endif #ifndef __GNUC__ PTR memcpy PARAMS ((PTR, CONST PTR, unsigned int)); #else /* char * memcpy PARAMS ((char *, CONST char *, unsigned int)); */ #endif extern int getuid PARAMS (()); extern int getgid PARAMS (()); extern char * strchr(); extern void perror PARAMS ((CONST char *)); extern char *getenv(); extern char *memchr(); extern char *strrchr(); extern int chmod(); extern int fread(); extern int fstat(); extern int fwrite(); extern int sscanf(); extern int stat(); extern int strtol(); extern int free PARAMS ((PTR)); extern char *strrchr(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); extern int time(); extern int utimes(); extern int vfprintf(); extern long atol(); extern char *getenv(); extern int fputc(); extern int unlink(); #ifdef __GNUC__ typedef unsigned long long uint64e_type; #else typedef struct { unsigned long low, high; } uint64e_type; #endif #ifdef __GNUC__ typedef unsigned long long uint64_type; typedef long long int64_type; #else typedef struct { unsigned long low, high; } uint64_type; typedef struct { unsigned long low, high; } int64_type; #endif #define BYTES_IN_PRINTF_INT 4 #ifndef __GNUC__ #define uint64_typeLOW(x) (unsigned long)(((x).low)) #define uint64_typeHIGH(x) (unsigned long)(((x).high)) #else #define uint64_typeLOW(x) (unsigned long)(((x) & 0xffffffff)) #define uint64_typeHIGH(x) (unsigned long)(((x) >> 32) & 0xffffffff) #endif #include "fopen-same.h" gdb-4.13/bfd/hosts/sparc.h 666 34562 1752 451 5407413233 13672 0ustar fnfcygnus#ifndef hosts_sparc_H #define STDC_HEADERS #define FILE_OFFSET_IS_CHAR_INDEX #if defined(__STDC__) && __GNUC__ >= 2 #define abort __hide_abort #define exit __hide_exit #endif #include "hosts/std-host.h" #include #include #undef exit #undef abort #define hosts_sparc_H #endif gdb-4.13/bfd/hosts/sparclynx.h 666 34562 1752 263 5473756712 14625 0ustar fnfcygnus/* Sparc running LynxOS */ #ifndef hosts_sparclynx_h #define hosts_sparclynx_h #include "hosts/lynx.h" #define HOST_MACHINE_ARCH bfd_arch_sparc #endif /* hosts_sparclynx_h */ gdb-4.13/bfd/hosts/std-host.h 666 34562 1752 3633 5510631202 14345 0ustar fnfcygnus#ifndef hosts_std_host_H #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #ifndef SEEK_SET #define SEEK_SET 0 #endif #ifndef SEEK_CUR #define SEEK_CUR 1 #endif #ifdef STDC_HEADERS #include /*#include */ #else extern char *mktemp (); extern int fflush (); extern int write (); extern void abort (); extern int close (); extern void exit (); extern int fseek (); extern int fclose (); extern void bcopy (); extern int bcmp (); extern void bzero (); extern PTR memset (); /* These used to be declared to return void. As far as I know that is just wrong; are there any systems for which they actually don't return a value (EOF for error, something else for success). */ extern int puts (); extern int fputs (); extern int rmdir (); extern int getuid (); extern int getgid (); extern int rename (); extern void perror (); #ifndef DONTDECLARE_MALLOC extern PTR malloc (); extern PTR realloc (); #endif #ifndef __GNUC__ extern PTR memcpy (); #else /* char * memcpy (); */ #endif #ifdef __STDC__ extern void free (); #else extern int free(); #endif extern char * strchr(); extern char *getenv(); extern PTR memchr(); extern char *strrchr(); extern int chmod(); extern int fstat(); extern int stat(); extern char *strrchr(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); /*extern int time(); this causes error with time.h on mach3 */ extern int utimes(); extern int vfprintf(); extern long atol(); extern char *getenv(); extern int fputc(); extern int unlink(); #endif /* STDC_HEADERS */ #ifndef BYTES_IN_PRINTF_INT #define BYTES_IN_PRINTF_INT 4 #endif #include "fopen-same.h" #define hosts_std_host_H #endif #ifdef STDC_HEADERS #include #endif /* STDC_HEADERS */ gdb-4.13/bfd/hosts/stratus.h 666 34562 1752 2261 5451673357 14326 0ustar fnfcygnus/* Stratus FTX2 host system */ #include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #define POSIX_UTIME #define HAVE_PROCFS /* This host has /proc support */ extern void abort PARAMS ((void)); extern int close PARAMS ((int)); extern void exit PARAMS ((int)); extern int fclose PARAMS ((FILE*)); extern void free PARAMS ((PTR)); extern int fseek PARAMS ((FILE*, long, int)); extern int getgid PARAMS (()); extern int getuid PARAMS (()); extern PTR malloc PARAMS ((unsigned)); extern void perror PARAMS ((CONST char *)); extern int qsort PARAMS ((void *data, int els, int siz, int func())); extern PTR realloc PARAMS ((PTR, unsigned)); extern char *getenv(); extern int chmod(); extern int fstat(); extern int stat(); extern int strtol(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); extern int utimes(); extern int vfprintf(); extern long atol(); extern int fputc(); extern int unlink(); #include "fopen-same.h" gdb-4.13/bfd/hosts/sun3.h 666 34562 1752 1771 5573457643 13521 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 extern int close PARAMS ((int)); extern int fprintf PARAMS ((FILE *,CONST char *,...)); extern int fclose PARAMS ((FILE*)); extern void bcopy PARAMS ((char*,char*,int)); extern int bcmp PARAMS ((char *, char *, int)); extern void bzero PARAMS ((char *, int)); extern void perror PARAMS ((CONST char *)); extern char * strchr(); extern char *memchr(); extern char *strrchr(); extern int chmod(); extern int fstat(); extern int stat(); extern int strtol(); extern char *strrchr(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); extern int utimes(); extern int vfprintf(); extern long atol(); extern char *getenv(); extern int fputc(); extern int unlink(); #include "fopen-same.h" gdb-4.13/bfd/hosts/symmetry.h 666 34562 1752 1140 5546240301 14465 0ustar fnfcygnus/* Symmetry running either dynix 3.1 (bsd) or ptx (sysv). */ #include "hosts/std-host.h" #include #define NBPG 4096 #define UPAGES 1 #ifdef _SEQUENT_ /* ptx */ #define HOST_TEXT_START_ADDR 0 #define HOST_STACK_END_ADDR 0x3fffe000 #define TRAD_CORE_USER_OFFSET ((UPAGES * NBPG) - sizeof (struct user)) #else /* dynix */ #define HOST_TEXT_START_ADDR 0x1000 #define HOST_DATA_START_ADDR (NBPG * u.u_tsize) #define HOST_STACK_END_ADDR 0x3ffff000 #define TRAD_UNIX_CORE_FILE_FAILING_SIGNAL(core_bfd) \ ((core_bfd)->tdata.trad_core_data->u.u_arg[0]) #endif #define TRAD_CORE_DSIZE_INCLUDES_TSIZE gdb-4.13/bfd/hosts/sysv4.h 666 34562 1752 2542 5606637037 13710 0ustar fnfcygnus/* System V Release 4 Unix host system */ #include #include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #define POSIX_UTIME /* Note that we also use this for ptx4 (sequent). ptx4 does not really have procfs, but it has the relevant headers for BFD to read core files, so the proper thing to do for ptx4 is define HAVE_PROCFS in BFD but not GDB. */ #define HAVE_PROCFS /* This host has /proc support */ extern void abort PARAMS ((void)); extern int close PARAMS ((int)); extern void exit PARAMS ((int)); extern int fclose PARAMS ((FILE*)); extern void free PARAMS ((PTR)); extern int fseek PARAMS ((FILE*, long, int)); extern int getgid PARAMS (()); extern int getuid PARAMS (()); extern PTR malloc PARAMS ((unsigned)); extern void perror PARAMS ((CONST char *)); extern PTR realloc PARAMS ((PTR, unsigned)); extern char *getenv(); extern int chmod(); extern int fstat(); extern int stat(); extern char *ctime(); extern int _flsbuf(); extern int fclose(); extern int utimes(); extern int vfprintf(); extern long atol(); extern int fputc(); extern int unlink(); #include "fopen-same.h" gdb-4.13/bfd/hosts/tahoe.h 666 34562 1752 1137 5446277154 13721 0ustar fnfcygnus/* Tahoe running BSD (post-Reno) Unix. */ #include #include #include #include #include #include #include #include #include #include #define NO_CORE_COMMAND #undef ALIGN /* They use it, we use it too */ #include #undef ALIGN /* They use it, we use it too */ #define HOST_PAGE_SIZE NBPG #define HOST_MACHINE_ARCH bfd_arch_tahoe #define HOST_TEXT_START_ADDR 0 #define HOST_STACK_END_ADDR (KERNBASE - (UPAGES * NBPG)) #define HOST_BIG_ENDIAN_P #include "fopen-same.h" gdb-4.13/bfd/hosts/ultra3.h 666 34562 1752 532 5451673360 14004 0ustar fnfcygnus#include #include #include #include #include #include #include #include #define SEEK_SET 0 #define SEEK_CUR 1 #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif extern char *malloc(); extern void free(); #include "fopen-same.h" gdb-4.13/bfd/hosts/vaxbsd.h 666 34562 1752 1363 5522321365 14076 0ustar fnfcygnus#include "hosts/std-host.h" #define NO_CORE_COMMAND /* No command name in core file */ #if 0 #undef ALIGN /* They use it, we use it too */ /* Does not exist on BSD 4.3, it uses machine/machparam.h. Whatever it is, it's included by , which trad-core.c, the only place that uses this (I think), already includes. */ #include #endif #undef ALIGN /* They use it, we use it too */ /* Note that HOST_PAGE_SIZE -- the page size as far as executable files are concerned -- is not the same as NBPG, because of page clustering. */ #define HOST_PAGE_SIZE 1024 #define HOST_MACHINE_ARCH bfd_arch_vax #define HOST_TEXT_START_ADDR 0 #define HOST_STACK_END_ADDR (0x80000000 - (UPAGES * NBPG)) #undef HOST_BIG_ENDIAN_P gdb-4.13/bfd/hosts/vaxult.h 666 34562 1752 1053 5451673361 14135 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #include #include #define HOST_PAGE_SIZE (NBPG*CLSIZE) #define HOST_MACHINE_ARCH bfd_arch_vax #define HOST_TEXT_START_ADDR USRTEXT #define HOST_STACK_END_ADDR USRSTACK #undef HOST_BIG_ENDIAN_P #include "fopen-same.h" gdb-4.13/bfd/hosts/vaxult2.h 666 34562 1752 1567 5451673362 14232 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #define SEEK_SET 0 #define SEEK_CUR 1 #ifndef DONTDECLARE_MALLOC extern PTR malloc PARAMS ((unsigned)); extern PTR realloc PARAMS ((PTR, unsigned)); extern int free PARAMS ((PTR)); #endif extern int abort PARAMS ((void)); extern void bcopy PARAMS ((char*, char*, int)); extern void exit PARAMS ((int)); extern void bzero PARAMS ((char *, int)); extern int strtol(); #include #include #define HOST_PAGE_SIZE (NBPG*CLSIZE) #define HOST_MACHINE_ARCH bfd_arch_vax #define HOST_TEXT_START_ADDR USRTEXT #define HOST_STACK_END_ADDR USRSTACK #undef HOST_BIG_ENDIAN_P #include "fopen-same.h" gdb-4.13/bfd/hosts/we32k.h 666 34562 1752 1241 5451673362 13545 0ustar fnfcygnus#include #include #include #include #include #include #include #include #include #include #include #ifndef O_ACCMODE #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) #endif #ifndef DONTDECLARE_MALLOC extern PTR malloc PARAMS ((unsigned)); extern PTR realloc PARAMS ((PTR, unsigned)); #endif extern int abort PARAMS ((void)); extern int free PARAMS ((PTR)); extern void bcopy PARAMS ((char*, char*, int)); extern void exit PARAMS ((int)); extern void bzero PARAMS ((char *, int)); extern int strtol(); #define NO_STDARG 1 #include "fopen-same.h" gdb-4.13/glob/ 777 34562 1752 0 5623251730 11403 5ustar fnfcygnusgdb-4.13/glob/config/ 777 34562 1752 0 5623251063 12647 5ustar fnfcygnusgdb-4.13/glob/config/mh-aix 666 34562 1752 51 5112415511 13762 0ustar fnfcygnusH_CFLAGS=-D_POSIX_VERSION -DPOSIX_SOURCE gdb-4.13/glob/config/mh-apollo68v 666 34562 1752 173 5145606254 15074 0ustar fnfcygnusRANLIB=echo >/dev/null CC= cc -A ansi -A runtype,any -A systype,any -U__STDC__ -DNO_SYS_FILE USG = -DUSG INSTALL_PROG = cp gdb-4.13/glob/config/mh-sysv4 666 34562 1752 340 5124440423 14315 0ustar fnfcygnus# Define USG as -DUSG if you are using a System V operating system. # Define USGr4 also if you are on an SVR4 system. H_CFLAGS=-DUSG -DUSGr4 # The l flag generates a warning from the SVR4 archiver, remove it. AR_FLAGS = cq gdb-4.13/glob/ChangeLog 666 34562 1752 7053 5561774526 13260 0ustar fnfcygnusWed May 4 12:09:30 1994 Stan Shebs (shebs@andros.cygnus.com) * configure.in (rs6000-bull-bosx*): New configuration, RS/6000 variant. Mon Apr 25 16:06:29 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * Makefile.in (distclean): Remove sysdep.h. Sun Mar 13 09:18:07 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Add TAGS target. Fri Oct 22 08:02:52 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Add * to end of all OS names. Fri Jul 2 18:23:40 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Add {mostly,dist,real}clean targets. Wed Mar 24 02:07:53 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: add installcheck & dvi targets Wed Nov 11 21:12:58 1992 John Gilmore (gnu@cygnus.com) * configure.in: Reformat case for ease of reading. Add SunOS 3.* case, reported by Karl Berry, . Thu Oct 1 23:09:48 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: now use cpu-vendor-os triple instead of nested cases Tue Aug 18 15:02:54 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: changed CFLAGS to -g, added .c.o with old value of CFLAGS. Thu Jun 25 16:11:56 1992 Stu Grossman (grossman at cygnus.com) * configure.in: Make bsd based systems use sysdep-obsd.h. Fri Jun 19 15:50:39 1992 Stu Grossman (grossman at cygnus.com) * sysdep-obsd.h: #include to make this more Kosher. Tue Apr 21 12:38:28 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: change message from "doesn't work" to "doesn't make". Fri Apr 10 22:50:10 1992 Fred Fish (fnf@cygnus.com) * Makefile.in (MINUS_G): Add macro, default to -g. Thu Mar 19 14:02:06 1992 Fred Fish (fnf@cygnus.com) * tilde.c: Undefine alloca before attempting to redefine it. Fri Mar 6 21:59:54 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: added check target. Wed Feb 26 18:04:40 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in, configure.in: removed traces of namesubdir, -subdirs, $(subdir), $(unsubdir), some rcs triggers. Forced copyrights to '92, changed some from Cygnus to FSF. Fri Feb 21 15:34:20 1992 John Gilmore (gnu at cygnus.com) * tilde.c (tilde-expand): s/=/==/; oops. Fri Feb 21 14:41:43 1992 Steve Chamberlain (sac at rtl.cygnus.com) * tilde.c: added DOS patches from DJ Fri Feb 7 08:30:49 1992 John Gilmore (gnu at cygnus.com) * tilde.c (tilde_expand): Avoid calling xrealloc(NULL). Reported by mccanne@horse.ee.lbl.gov (Steven McCanne); my fix. Fri Dec 20 12:11:41 1991 Fred Fish (fnf at cygnus.com) * configure.in: Change svr4 references to sysv4. Tue Dec 10 04:07:14 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: infodir belongs in datadir. Fri Dec 6 23:37:23 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: added standards.text support and lot's of standard targets. Thu Dec 5 22:46:08 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: idestdir and ddestdir go away. Added copyrights and shift gpl to v2. Added ChangeLog if it didn't exist. docdir and mandir now keyed off datadir by default. Wed Dec 4 14:23:33 1991 Steve Chamberlain (sac at cygnus.com) * Makefile.in: added dummy install rule Fri Nov 22 09:20:12 1991 John Gilmore (gnu at cygnus.com) * configure.in, sysdep-*.h: Update to match ../readline. Thu Nov 21 12:54:08 1991 Stu Grossman (grossman at cygnus.com) * glob.c: Remove all refs to d_namlen (& D_NAMLEN) to make the code more portable. Update copyright. tilde.c: Fix configuration stuff. gdb-4.13/glob/Makefile.in 666 34562 1752 4470 5557021352 13536 0ustar fnfcygnus# # Makefile # Copyright (C) 1990, 1991, 1992 Free Software Foundation # # This file 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ # # Seriously hacked by K. Richard Pixley . # Makefile for glob source is in -*- text -*- mode. srcdir = . prefix = /usr/local exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include oldincludedir = docdir = $(datadir)/doc SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) AR = ar AR_FLAGS = lq BISON = bison MAKEINFO = makeinfo RANLIB = ranlib #### Host, target, and site specific Makefile fragments come in here. ### .c.o: $(CC) -c $(CFLAGS) $(H_CFLAGS) -I. $< CFLAGS = -g RM = rm -f #all: libglob.a all: @echo "Glob doesn't make yet, but readline uses a piece of its src" .PHONY: check installcheck check installcheck: install: info install-info clean-info dvi: libglob.a: glob.o tilde.o $(RM) -f $@ $(AR) $(AR_FLAGS) $@ glob.o tilde.o $(RANLIB) libglob.a glob.o: glob.c tilde.o: tilde.c install: TAGS: force etags $(srcdir)/*.c force: tilde-test: tilde.c $(CC) $(CFLAGS) -o tilde-test -DTEST tilde.c mostlyclean clean: $(RM) *.o *.a distclean realclean: clean rm -f Makefile config.status sysdep.h # with the gnu make, this is done automatically. Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status gdb-4.13/glob/configure.in 666 34562 1752 2035 5561774523 14007 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. srctrigger=glob.c srcname="glob library" configdirs="" # per-host: files=sysdep-norm.h links=sysdep.h case "${host}" in rs6000-ibm-aix) files=sysdep-aix.h; my_host=aix ;; rs6000-ibm-aix3.1) files=sysdep-aix.h; my_host=aix ;; *-*-aix*) my_host=aix ;; rs6000-bull-bosx*) files=sysdep-aix.h; my_host=aix ;; mips-sgi-irix*) files=sysdep-irix.h ;; m68k-sony-news*) files=sysdep-obsd.h ;; m68k-*-sunos3*) files=sysdep-obsd.h ;; *-*-mach*) files=sysdep-obsd.h ;; *-*-bsd*) files=sysdep-obsd.h ;; *-*-sysv4*) my_host=sysv4 ;; *-*-sco*) files=sysdep-sco.h ;; *-apollo-sysv*) files=sysdep-a68v.h; my_host=apollo68v ;; m88k-motorola-m88kbcs*) my_host=delta88 ;; esac host_makefile_frag=config/mh-${my_host} if [ ! -f ${host_makefile_frag} ] ; then host_makefile_frag= fi # per-target: gdb-4.13/glob/glob.c 666 34562 1752 34606 5114261074 12600 0ustar fnfcygnus/* File-name wildcard pattern matching for GNU. Copyright (C) 1985, 1988, 1989, 1991 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* To whomever it may concern: I have never seen the code which most Unix programs use to perform this function. I wrote this from scratch based on specifications for the pattern matching. --RMS. */ #if defined (SHELL) # include #endif #if defined (USG) && !defined (Xenix) # if !defined (USGr3) && ! defined (USGr4) # define USGr3 #endif /* USGr3 */ #endif /* USG && !Xenix */ #include #if defined (_POSIX_VERSION) || defined (USGr3) || defined (USGr4) || defined (DIRENT) # include # define direct dirent # define D_NAMLEN(d) strlen((d)->d_name) #else # define D_NAMLEN(d) ((d)->d_namlen) # if defined (Xenix) # include # else # if defined (USG) # include "ndir.h" # else # include # endif # endif #endif /* USGr3 || DIRENT. */ #if defined (_POSIX_SOURCE) /* Posix does not require that the d_ino field be present, and some systems do not provide it. */ #define REAL_DIR_ENTRY(dp) 1 #else #define REAL_DIR_ENTRY(dp) (dp->d_ino != 0) #endif /* _POSIX_SOURCE */ #if defined (NeXT) #include #else #if defined (USG) #if !defined (isc386) # include #endif #include #if defined (RISC6000) extern void bcopy (); #else /* RISC6000 */ #define bcopy(s, d, n) ((void) memcpy ((d), (s), (n))) #endif /* RISC6000 */ #define rindex strrchr #else /* !USG */ #include extern void bcopy (); #endif /* !USG */ #endif /* !NeXT */ /* If the opendir () on your system lets you open non-directory files, then we consider that not robust. Define OPENDIR_NOT_ROBUST in the SYSDEP_CFLAGS for your machines entry in machines.h. */ #if defined (OPENDIR_NOT_ROBUST) #if defined (SHELL) # include "posixstat.h" #else # include #endif /* SHELL */ #endif /* OPENDIR_NOT_ROBUST */ extern char *malloc (), *realloc (); extern void free (); #ifndef NULL #define NULL 0 #endif /* Global variable which controls whether or not * matches .*. Non-zero means don't match .*. */ int noglob_dot_filenames = 1; static int glob_match_after_star (); /* Return nonzero if PATTERN has any special globbing chars in it. */ int glob_pattern_p (pattern) char *pattern; { register char *p = pattern; register char c; int open = 0; while ((c = *p++) != '\0') switch (c) { case '?': case '*': return 1; case '[': /* Only accept an open brace if there is a close */ open++; /* brace to match it. Bracket expressions must be */ continue; /* complete, according to Posix.2 */ case ']': if (open) return 1; continue; case '\\': if (*p++ == '\0') return 0; } return 0; } /* Match the pattern PATTERN against the string TEXT; return 1 if it matches, 0 otherwise. A match means the entire string TEXT is used up in matching. In the pattern string, `*' matches any sequence of characters, `?' matches any character, [SET] matches any character in the specified set, [!SET] matches any character not in the specified set. A set is composed of characters or ranges; a range looks like character hyphen character (as in 0-9 or A-Z). [0-9a-zA-Z_] is the set of characters allowed in C identifiers. Any other character in the pattern must be matched exactly. To suppress the special syntactic significance of any of `[]*?!-\', and match the character exactly, precede it with a `\'. If DOT_SPECIAL is nonzero, `*' and `?' do not match `.' at the beginning of TEXT. */ int glob_match (pattern, text, dot_special) char *pattern, *text; int dot_special; { register char *p = pattern, *t = text; register char c; while ((c = *p++) != '\0') switch (c) { case '?': if (*t == '\0' || (dot_special && t == text && *t == '.')) return 0; else ++t; break; case '\\': if (*p++ != *t++) return 0; break; case '*': if (dot_special && t == text && *t == '.') return 0; return glob_match_after_star (p, t); case '[': { register char c1 = *t++; int invert; if (!c1) return (0); invert = ((*p == '!') || (*p == '^')); if (invert) p++; c = *p++; while (1) { register char cstart = c, cend = c; if (c == '\\') { cstart = *p++; cend = cstart; } if (c == '\0') return 0; c = *p++; if (c == '-' && *p != ']') { cend = *p++; if (cend == '\\') cend = *p++; if (cend == '\0') return 0; c = *p++; } if (c1 >= cstart && c1 <= cend) goto match; if (c == ']') break; } if (!invert) return 0; break; match: /* Skip the rest of the [...] construct that already matched. */ while (c != ']') { if (c == '\0') return 0; c = *p++; if (c == '\0') return 0; else if (c == '\\') ++p; } if (invert) return 0; break; } default: if (c != *t++) return 0; } return *t == '\0'; } /* Like glob_match, but match PATTERN against any final segment of TEXT. */ static int glob_match_after_star (pattern, text) char *pattern, *text; { register char *p = pattern, *t = text; register char c, c1; while ((c = *p++) == '?' || c == '*') if (c == '?' && *t++ == '\0') return 0; if (c == '\0') return 1; if (c == '\\') c1 = *p; else c1 = c; while (1) { if ((c == '[' || *t == c1) && glob_match (p - 1, t, 0)) return 1; if (*t++ == '\0') return 0; } } /* Return a vector of names of files in directory DIR whose names match glob pattern PAT. The names are not in any particular order. Wildcards at the beginning of PAT do not match an initial period. The vector is terminated by an element that is a null pointer. To free the space allocated, first free the vector's elements, then free the vector. Return 0 if cannot get enough memory to hold the pointer and the names. Return -1 if cannot access directory DIR. Look in errno for more information. */ char ** glob_vector (pat, dir) char *pat; char *dir; { struct globval { struct globval *next; char *name; }; DIR *d; register struct direct *dp; struct globval *lastlink; register struct globval *nextlink; register char *nextname; unsigned int count; int lose; register char **name_vector; register unsigned int i; #if defined (OPENDIR_NOT_ROBUST) struct stat finfo; if (stat (dir, &finfo) < 0) return ((char **)-1); if (!S_ISDIR (finfo.st_mode)) return ((char **)-1); #endif /* OPENDIR_NOT_ROBUST */ d = opendir (dir); if (d == NULL) return (char **) -1; lastlink = 0; count = 0; lose = 0; /* Scan the directory, finding all names that match. For each name that matches, allocate a struct globval on the stack and store the name in it. Chain those structs together; lastlink is the front of the chain. */ while (1) { #if defined (SHELL) /* Make globbing interruptible in the bash shell. */ extern int interrupt_state; if (interrupt_state) { closedir (d); lose = 1; goto lost; } #endif /* SHELL */ dp = readdir (d); if (dp == NULL) break; /* If this directory entry is not to be used, try again. */ if (!REAL_DIR_ENTRY (dp)) continue; /* If a dot must be explicity matched, check to see if they do. */ if (noglob_dot_filenames && dp->d_name[0] == '.' && pat[0] != '.') continue; if (glob_match (pat, dp->d_name, noglob_dot_filenames)) { nextlink = (struct globval *) alloca (sizeof (struct globval)); nextlink->next = lastlink; nextname = (char *) malloc (strlen(dp->d_name) + 1); if (nextname == NULL) { lose = 1; break; } lastlink = nextlink; nextlink->name = nextname; bcopy (dp->d_name, nextname, strlen(dp->d_name) + 1); ++count; } } (void) closedir (d); if (!lose) { name_vector = (char **) malloc ((count + 1) * sizeof (char *)); lose |= name_vector == NULL; } /* Have we run out of memory? */ lost: if (lose) { /* Here free the strings we have got. */ while (lastlink) { free (lastlink->name); lastlink = lastlink->next; } return NULL; } /* Copy the name pointers from the linked list into the vector. */ for (i = 0; i < count; ++i) { name_vector[i] = lastlink->name; lastlink = lastlink->next; } name_vector[count] = NULL; return name_vector; } /* Return a new array which is the concatenation of each string in ARRAY to DIR. */ static char ** glob_dir_to_array (dir, array) char *dir, **array; { register unsigned int i, l; int add_slash; char **result; l = strlen (dir); if (l == 0) return array; add_slash = dir[l - 1] != '/'; i = 0; while (array[i] != NULL) ++i; result = (char **) malloc ((i + 1) * sizeof (char *)); if (result == NULL) return NULL; for (i = 0; array[i] != NULL; i++) { result[i] = (char *) malloc (l + (add_slash ? 1 : 0) + strlen (array[i]) + 1); if (result[i] == NULL) return NULL; sprintf (result[i], "%s%s%s", dir, add_slash ? "/" : "", array[i]); } result[i] = NULL; /* Free the input array. */ for (i = 0; array[i] != NULL; i++) free (array[i]); free ((char *) array); return result; } /* Do globbing on PATHNAME. Return an array of pathnames that match, marking the end of the array with a null-pointer as an element. If no pathnames match, then the array is empty (first element is null). If there isn't enough memory, then return NULL. If a file system error occurs, return -1; `errno' has the error code. */ char ** glob_filename (pathname) char *pathname; { char **result; unsigned int result_size; char *directory_name, *filename; unsigned int directory_len; result = (char **) malloc (sizeof (char *)); result_size = 1; if (result == NULL) return NULL; result[0] = NULL; /* Find the filename. */ filename = rindex (pathname, '/'); if (filename == NULL) { filename = pathname; directory_name = ""; directory_len = 0; } else { directory_len = (filename - pathname) + 1; directory_name = (char *) alloca (directory_len + 1); bcopy (pathname, directory_name, directory_len); directory_name[directory_len] = '\0'; ++filename; } /* If directory_name contains globbing characters, then we have to expand the previous levels. Just recurse. */ if (glob_pattern_p (directory_name)) { char **directories; register unsigned int i; if (directory_name[directory_len - 1] == '/') directory_name[directory_len - 1] = '\0'; directories = glob_filename (directory_name); if (directories == NULL) goto memory_error; else if ((int) directories == -1) return (char **) -1; else if (*directories == NULL) { free ((char *) directories); return (char **) -1; } /* We have successfully globbed the preceding directory name. For each name in DIRECTORIES, call glob_vector on it and FILENAME. Concatenate the results together. */ for (i = 0; directories[i] != NULL; ++i) { char **temp_results = glob_vector (filename, directories[i]); /* Handle error cases. */ if (temp_results == NULL) goto memory_error; else if (temp_results == (char **)-1) /* This filename is probably not a directory. Ignore it. */ ; else { char **array = glob_dir_to_array (directories[i], temp_results); register unsigned int l; l = 0; while (array[l] != NULL) ++l; result = (char **)realloc (result, (result_size + l) * sizeof (char *)); if (result == NULL) goto memory_error; for (l = 0; array[l] != NULL; ++l) result[result_size++ - 1] = array[l]; result[result_size - 1] = NULL; /* Note that the elements of ARRAY are not freed. */ free ((char *) array); } } /* Free the directories. */ for (i = 0; directories[i]; i++) free (directories[i]); free ((char *) directories); return result; } /* If there is only a directory name, return it. */ if (*filename == '\0') { result = (char **) realloc ((char *) result, 2 * sizeof (char *)); if (result == NULL) return NULL; result[0] = (char *) malloc (directory_len + 1); if (result[0] == NULL) goto memory_error; bcopy (directory_name, result[0], directory_len + 1); result[1] = NULL; return result; } else { /* Otherwise, just return what glob_vector returns appended to the directory name. */ char **temp_results = glob_vector (filename, (directory_len == 0 ? "." : directory_name)); if (temp_results == NULL || temp_results == (char **)-1) return temp_results; return (glob_dir_to_array (directory_name, temp_results)); } /* We get to memory error if the program has run out of memory, or if this is the shell, and we have been interrupted. */ memory_error: if (result != NULL) { register unsigned int i; for (i = 0; result[i] != NULL; ++i) free (result[i]); free ((char *) result); } #if defined (SHELL) { extern int interrupt_state; if (interrupt_state) throw_to_top_level (); } #endif /* SHELL */ return NULL; } #ifdef TEST main (argc, argv) int argc; char **argv; { unsigned int i; for (i = 1; i < argc; ++i) { char **value = glob_filename (argv[i]); if (value == NULL) puts ("Out of memory."); else if ((int) value == -1) perror (argv[i]); else for (i = 0; value[i] != NULL; i++) puts (value[i]); } exit (0); } #endif /* TEST. */ gdb-4.13/glob/glob.texinfo 666 34562 1752 26 5112061232 13727 0ustar fnfcygnusNothing happens here. gdb-4.13/glob/sysdep-a68v.h 666 34562 1752 342 5145606201 13700 0ustar fnfcygnus/* System-dependent stuff, for Apollo 68k SysV-under-Domain/OS systems */ #include #ifdef __GNUC__ #define alloca __builtin_alloca #endif #include #include typedef struct dirent dirent; gdb-4.13/glob/sysdep-aix.h 666 34562 1752 215 5113236165 13677 0ustar fnfcygnus/* System-dependent stuff for AIX 3.1 on RS/6000 */ #pragma alloca #include #include typedef struct dirent dirent; gdb-4.13/glob/sysdep-irix.h 666 34562 1752 344 5113020755 14070 0ustar fnfcygnus/* System-dependent stuff, for SGI irix */ #ifdef __GNUC__ #define alloca __builtin_alloca #else extern char *alloca (); #endif #include #include #include typedef struct direct dirent; gdb-4.13/glob/sysdep-norm.h 666 34562 1752 743 5113236170 14073 0ustar fnfcygnus/* System-dependent stuff, for ``normal'' systems */ #ifdef __GNUC__ #define alloca __builtin_alloca #else #if defined (sparc) && defined (sun) #include #endif extern char *alloca (); #endif #include /* Needed by dirent.h */ #if defined (USG) && defined (TIOCGWINSZ) #include #if defined (USGr4) || defined (USGr3) #include #endif /* USGr4 */ #endif /* USG && TIOCGWINSZ */ #include typedef struct dirent dirent; gdb-4.13/glob/sysdep-obsd.h 666 34562 1752 365 5220462341 14047 0ustar fnfcygnus/* System-dependent stuff, for Sony NEwS, Mach, and other BSD-derived systems */ #ifdef __GNUC__ #define alloca __builtin_alloca #else extern char *alloca (); #endif #include #include typedef struct direct dirent; gdb-4.13/glob/sysdep-sco.h 666 34562 1752 363 5113236162 13703 0ustar fnfcygnus/* System-dependent stuff, for SCO systems */ #include #ifdef __GNUC__ #define alloca __builtin_alloca #endif #include #include #include #include typedef struct dirent dirent; gdb-4.13/glob/tilde.c 666 34562 1752 22057 5162207653 12761 0ustar fnfcygnus/* tilde.c -- Tilde expansion code (~/foo := $HOME/foo). */ /* Copyright (C) 1988,1989, 1991 Free Software Foundation, Inc. This file is part of GNU Readline, a library for reading lines of text with interactive input and history editing. Readline 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 2 of the License, or (at your option) any later version. Readline 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sysdep.h" #ifndef __MSDOS__ #include #endif #ifdef __GNUC__ #undef alloca #define alloca(x) __builtin_alloca(x) #endif #ifndef savestring #define savestring(x) (char *)strcpy (xmalloc (1 + strlen (x)), (x)) #endif typedef int Function (); #if !defined (NULL) # define NULL 0x0 #endif #if defined (TEST) static char *xmalloc (), *xrealloc (); #else extern char *xmalloc (), *xrealloc (); #endif /* TEST */ /* The default value of tilde_additional_prefixes. This is set to whitespace preceding a tilde so that simple programs which do not perform any word separation get desired behaviour. */ static char *default_prefixes[] = { " ~", "\t~", (char *)NULL }; /* The default value of tilde_additional_suffixes. This is set to whitespace or newline so that simple programs which do not perform any word separation get desired behaviour. */ static char *default_suffixes[] = { " ", "\n", (char *)NULL }; /* If non-null, this contains the address of a function to call if the standard meaning for expanding a tilde fails. The function is called with the text (sans tilde, as in "foo"), and returns a malloc()'ed string which is the expansion, or a NULL pointer if there is no expansion. */ Function *tilde_expansion_failure_hook = (Function *)NULL; /* When non-null, this is a NULL terminated array of strings which are duplicates for a tilde prefix. Bash uses this to expand `=~' and `:~'. */ char **tilde_additional_prefixes = default_prefixes; /* When non-null, this is a NULL terminated array of strings which match the end of a username, instead of just "/". Bash sets this to `:' and `=~'. */ char **tilde_additional_suffixes = default_suffixes; /* Find the start of a tilde expansion in STRING, and return the index of the tilde which starts the expansion. Place the length of the text which identified this tilde starter in LEN, excluding the tilde itself. */ static int tilde_find_prefix (string, len) char *string; int *len; { register int i, j, string_len; register char **prefixes = tilde_additional_prefixes; string_len = strlen (string); *len = 0; if (!*string || *string == '~') return (0); if (prefixes) { for (i = 0; i < string_len; i++) { for (j = 0; prefixes[j]; j++) { if (strncmp (string + i, prefixes[j], strlen (prefixes[j])) == 0) { *len = strlen (prefixes[j]) - 1; return (i + *len); } } } } return (string_len); } /* Find the end of a tilde expansion in STRING, and return the index of the character which ends the tilde definition. */ static int tilde_find_suffix (string) char *string; { register int i, j, string_len; register char **suffixes = tilde_additional_suffixes; string_len = strlen (string); for (i = 0; i < string_len; i++) { if (string[i] == '/' || !string[i]) break; for (j = 0; suffixes && suffixes[j]; j++) { if (strncmp (string + i, suffixes[j], strlen (suffixes[j])) == 0) return (i); } } return (i); } /* Return a new string which is the result of tilde expanding FILENAME. */ char * tilde_expand (filename) char *filename; { char *result, *tilde_expand_word (); int result_size, result_index; result_size = result_index = 0; result = (char *)NULL; /* Scan through FILENAME expanding tildes as we come to them. */ while (1) { register int start, end; char *tilde_word, *expansion; int len; /* Make START point to the tilde which starts the expansion. */ start = tilde_find_prefix (filename, &len); /* Copy the skipped text into the result. */ /* This test is always true the first time, since result_index is 0, result_size is 0, and start is >= 0. So we malloc here. */ if ((result_index + start + 1) > result_size) { result_size += (start + 20); if (result == NULL) result = (char *)xmalloc ( 1 + result_size); else result = (char *)xrealloc (result, 1 + result_size); } strncpy (result + result_index, filename, start); result_index += start; /* Advance FILENAME upto the starting tilde. */ filename += start; /* Make END be the index of one after the last character of the username. */ end = tilde_find_suffix (filename); /* If both START and END are zero, we are all done. */ if (!start && !end) break; /* Expand the entire tilde word, and copy it into RESULT. */ tilde_word = (char *)xmalloc (1 + end); strncpy (tilde_word, filename, end); tilde_word[end] = '\0'; filename += end; expansion = tilde_expand_word (tilde_word); free (tilde_word); len = strlen (expansion); if ((result_index + len + 1) > result_size) result = (char *)xrealloc (result, 1 + (result_size += (len + 20))); strcpy (result + result_index, expansion); result_index += len; free (expansion); } result[result_index] = '\0'; return (result); } /* Do the work of tilde expansion on FILENAME. FILENAME starts with a tilde. If there is no expansion, call tilde_expansion_failure_hook. */ char * tilde_expand_word (filename) char *filename; { char *dirname = filename ? savestring (filename) : (char *)NULL; if (dirname && *dirname == '~') { char *temp_name; if (!dirname[1] || dirname[1] == '/') { /* Prepend $HOME to the rest of the string. */ char *temp_home = (char *)getenv ("HOME"); temp_name = (char *)alloca (1 + strlen (&dirname[1]) + (temp_home? strlen (temp_home) : 0)); temp_name[0] = '\0'; if (temp_home) strcpy (temp_name, temp_home); strcat (temp_name, &dirname[1]); free (dirname); dirname = savestring (temp_name); } else { #ifndef __MSDOS__ struct passwd *getpwnam (), *user_entry; #endif char *username = (char *)alloca (257); int i, c; for (i = 1; c = dirname[i]; i++) { if (c == '/') break; else username[i - 1] = c; } username[i - 1] = '\0'; #ifndef __MSDOS__ if (!(user_entry = getpwnam (username))) { /* If the calling program has a special syntax for expanding tildes, and we couldn't find a standard expansion, then let them try. */ #endif if (tilde_expansion_failure_hook) { char *expansion; expansion = (char *)(*tilde_expansion_failure_hook) (username); if (expansion) { temp_name = (char *)alloca (1 + strlen (expansion) + strlen (&dirname[i])); strcpy (temp_name, expansion); strcat (temp_name, &dirname[i]); free (expansion); goto return_name; } } /* We shouldn't report errors. */ #ifndef __MSDOS__ } else { temp_name = (char *)alloca (1 + strlen (user_entry->pw_dir) + strlen (&dirname[i])); strcpy (temp_name, user_entry->pw_dir); strcat (temp_name, &dirname[i]); #endif return_name: free (dirname); dirname = savestring (temp_name); #ifndef __MSDOS__ } endpwent (); #endif } } return (dirname); } #if defined (TEST) #undef NULL #include main (argc, argv) int argc; char **argv; { char *result, line[512]; int done = 0; while (!done) { printf ("~expand: "); fflush (stdout); if (!gets (line)) strcpy (line, "done"); if ((strcmp (line, "done") == 0) || (strcmp (line, "quit") == 0) || (strcmp (line, "exit") == 0)) { done = 1; break; } result = tilde_expand (line); printf (" --> %s\n", result); free (result); } exit (0); } static void memory_error_and_abort (); static char * xmalloc (bytes) int bytes; { char *temp = (char *)malloc (bytes); if (!temp) memory_error_and_abort (); return (temp); } static char * xrealloc (pointer, bytes) char *pointer; int bytes; { char *temp; if (!pointer) temp = (char *)malloc (bytes); else temp = (char *)realloc (pointer, bytes); if (!temp) memory_error_and_abort (); return (temp); } static void memory_error_and_abort () { fprintf (stderr, "readline: Out of virtual memory!\n"); abort (); } /* * Local variables: * compile-command: "gcc -g -DTEST -o tilde tilde.c" * end: */ #endif /* TEST */ gdb-4.13/include/ 777 34562 1752 0 5623251072 12102 5ustar fnfcygnusgdb-4.13/include/aout/ 777 34562 1752 0 5623251076 13056 5ustar fnfcygnusgdb-4.13/include/aout/ChangeLog 666 34562 1752 11621 5600114315 14716 0ustar fnfcygnusThu Jun 16 14:22:55 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * aout64.h (BMAGIC): Define. Sat Jun 11 16:16:09 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) Add weak symbols as an extension to a.out. * aout64.h (N_WEAKU, N_WEAKA, N_WEAKT, N_WEAKD, N_WEAKB): Define. * stab.def: Update symbol value table. Thu Jun 2 17:13:38 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * sun4.h (EXTERNAL_SUN4_DYNAMIC_DEBUGGER_SIZE): Correct from 28 to 24. Fix up ld_got comment. Wed Mar 30 00:31:49 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * dynix3.h: Cleanup, adapt to current bfd version. Sat Feb 26 10:25:53 1994 Ian Lance Taylor (ian@cygnus.com) * aout64.h: Add casts to avoid warnings from SVR4 cc. Fri Feb 11 12:56:04 1994 Stan Shebs (shebs@andros.cygnus.com) * ar.h (ARMAG, ARMAGB, ARFMAG): Change '\n' to '\012', for greater portability. Fri Jan 21 00:59:06 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * sun4.h: Added information about SunOS shared libraries. Fri Jan 7 08:20:13 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * aout64.h (N_TXTADDR): Add comment regarding OMAGIC and NMAGIC. Sat Dec 25 14:55:41 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * aout64.h (N_DATOFF): Don't pad (revert change of 8 Jul 1993). Tue Nov 16 15:43:46 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * aout64.h: New macros ZMAGIC_DISK_BLOCK_SIZE and N_DISK_BLOCK_SIZE for Linux ZMAGIC. (N_TXTOFF, N_DATOFF): Use them. Thu Nov 4 00:33:48 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com) * aout64.h (RELOC_STD_BITS_RELATIVE_LITTLE): Fixed value to match sun3 system; used to overlap other fields. (RELOC_STD_BITS_JMPTABLE_LITTLE): Likewise. Wed Nov 3 13:48:27 1993 David J. Mackenzie (djm@thepub.cygnus.com) * aout64.h (RELOC_STD_BITS_BASEREL_LITTLE): Make it 0x10 (Ken's suggestion) to avoid conflict with RELOC_STD_BITS_EXTERN_LITTLE. Fri Oct 29 15:09:52 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * hp300hpux.h (N_SHARED_LIB): Define to be 0. Mon Sep 13 21:00:56 1993 John Gilmore (gnu@cygnus.com) * ar.h (ARMAP_TIME_OFFSET): Add and describe. Mon Aug 23 Sean Fagan (sef@cygnus.com) * aout64.h [ARCH_SIZE != 64]: Allow N_BADMAG to be overridden. Mon Aug 16 14:30:14 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stab_gnu.h: Include aout/stab.def not just stab.def. Sun Jul 18 21:41:47 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * dynix3.h: New, for symmetry running dynix. Thu Jul 8 12:52:22 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * aout64.h (N_BADMAG): Recognize QMAGIC. N_TXTOFF, N_TXTADDR, N_TXTSIZE: Special code for QMAGIC. N_DATOFF: Pad text size if we need to. Fri Jun 18 19:19:38 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * stab.def (N_ECOML): Fix comment. Mon May 31 09:21:30 1993 Jim Kingdon (kingdon@cygnus.com) * stab.def: Remove Solaris information on N_FUN stabstring grammar; I've transferred it to gdb/doc/stabs.texinfo, where it belongs. Mon May 10 05:48:43 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com) * hp300hpux.h: Patch from Glenn Engel for linker problem and compatibility fix: (OMAGIC, NMAGIC): New definitions. (SHAREMAGIC): Deleted. (HPUX_DOT_O_MAGIC): New macro. (_N_BADMAG): Adjusted. (N_HEADER_IN_TEXT, N_DATADDR): New macros. Thu Apr 29 12:07:37 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * hp300hpux.h: New file from Glenn Engel, glenne@lsid.hp.com. Tue Apr 27 05:51:04 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com) * aout64.h (struct external_exec, *MAGIC, N_BADMAG): Don't define if `external_exec' is already defined as a macro. (N_DATOFF, N_TRELOFF, N_DRELOFF, N_SYMOFF, N_STROFF): Don't define if already defined. (struct external_nlist, EXTERNAL_NLIST_SIZE): Don't define if `external_nlist' is already defined as a macro. Sat Aug 15 04:23:02 1992 John Gilmore (gnu@cygnus.com) * adobe.h: Add description of a.out.adobe format. Fri Jul 3 00:36:52 1992 John Gilmore (gnu at cygnus.com) * stab.def: Update more Solaris definitions. * stab_gnu.h: Add N_SO language types, and Solaris basic float types. Sun Jun 14 10:53:53 1992 John Gilmore (gnu at cygnus.com) * stab.def: Update descriptions of Solaris-2 stabs; add N_UNDF. Thu Jun 11 01:12:07 1992 John Gilmore (gnu at cygnus.com) * stab.def: Add N_OBJ and N_OPT from Solaris-2. Thu Jan 30 18:12:44 1992 John Gilmore (gnu at cygnus.com) * aout/aout64.h: N_TXTSIZE needs some more parentheses. I don't trust C precedence. Wed Dec 18 14:32:01 1991 Per Bothner (bothner at cygnus.com) * aout/aout64.h: Move common sunos-specific test to recognize shared libraries into new macro N_SHARED_LIB. Use it to simplify&reformat N_TXTADDR, N_TXTOFF, N_TXTSIZE. Sat Nov 30 20:34:52 1991 Steve Chamberlain (sac at rtl.cygnus.com) * ChangeLog, aout64.h, ar.h, encap.h, host.h, hp.h, ranlib.h, reloc.h, stab.def, stab_gnu.h, sun4.h: All moved from the devo/include directory Local Variables: version-control: never End: gdb-4.13/include/aout/adobe.h 666 34562 1752 24260 5243164502 14400 0ustar fnfcygnus/* `a.out.adobe' differences from standard a.out files */ #ifndef __A_OUT_ADOBE_H__ #define __A_OUT_ADOBE_H__ #define BYTES_IN_WORD 4 /* Struct external_exec is the same. */ /* This is the layout on disk of the 32-bit or 64-bit exec header. */ struct external_exec { bfd_byte e_info[4]; /* magic number and stuff */ bfd_byte e_text[BYTES_IN_WORD]; /* length of text section in bytes */ bfd_byte e_data[BYTES_IN_WORD]; /* length of data section in bytes */ bfd_byte e_bss[BYTES_IN_WORD]; /* length of bss area in bytes */ bfd_byte e_syms[BYTES_IN_WORD]; /* length of symbol table in bytes */ bfd_byte e_entry[BYTES_IN_WORD]; /* start address */ bfd_byte e_trsize[BYTES_IN_WORD]; /* length of text relocation info */ bfd_byte e_drsize[BYTES_IN_WORD]; /* length of data relocation info */ }; #define EXEC_BYTES_SIZE (4 + BYTES_IN_WORD * 7) /* Magic numbers for a.out files */ #undef ZMAGIC #define ZMAGIC 0xAD0BE /* Cute, eh? */ #undef OMAGIC #undef NMAGIC #define N_BADMAG(x) ((x).a_info != ZMAGIC) /* By default, segment size is constant. But some machines override this to be a function of the a.out header (e.g. machine type). */ #ifndef N_SEGSIZE #define N_SEGSIZE(x) SEGMENT_SIZE #endif #undef N_SEGSIZE /* FIXMEXXXX */ /* Segment information for the a.out.Adobe format is specified after the file header. It contains N segment descriptors, followed by one with a type of zero. The actual text of the segments starts at N_TXTOFF in the file, regardless of how many or how few segment headers there are. */ struct external_segdesc { unsigned char e_type[1]; unsigned char e_size[3]; unsigned char e_virtbase[4]; unsigned char e_filebase[4]; }; struct internal_segdesc { unsigned int a_type:8; /* Segment type N_TEXT, N_DATA, 0 */ unsigned int a_size:24; /* Segment size */ bfd_vma a_virtbase; /* Virtual address */ unsigned int a_filebase; /* Base address in object file */ }; #define N_TXTADDR(x) \ /* This is documented to be at 1024, but appears to really be at 2048. FIXME?! */ #define N_TXTOFF(x) 2048 #define N_TXTSIZE(x) ((x).a_text) #define N_DATADDR(x) #define N_BSSADDR(x) /* Offsets of the various portions of the file after the text segment. */ #define N_DATOFF(x) ( N_TXTOFF(x) + N_TXTSIZE(x) ) #define N_TRELOFF(x) ( N_DATOFF(x) + (x).a_data ) #define N_DRELOFF(x) ( N_TRELOFF(x) + (x).a_trsize ) #define N_SYMOFF(x) ( N_DRELOFF(x) + (x).a_drsize ) #define N_STROFF(x) ( N_SYMOFF(x) + (x).a_syms ) /* Symbols */ struct external_nlist { bfd_byte e_strx[BYTES_IN_WORD]; /* index into string table of name */ bfd_byte e_type[1]; /* type of symbol */ bfd_byte e_other[1]; /* misc info (usually empty) */ bfd_byte e_desc[2]; /* description field */ bfd_byte e_value[BYTES_IN_WORD]; /* value of symbol */ }; #define EXTERNAL_NLIST_SIZE (BYTES_IN_WORD+4+BYTES_IN_WORD) struct internal_nlist { unsigned long n_strx; /* index into string table of name */ unsigned char n_type; /* type of symbol */ unsigned char n_other; /* misc info (usually empty) */ unsigned short n_desc; /* description field */ bfd_vma n_value; /* value of symbol */ }; /* The n_type field is the symbol type, containing: */ #define N_UNDF 0 /* Undefined symbol */ #define N_ABS 2 /* Absolute symbol -- defined at particular addr */ #define N_TEXT 4 /* Text sym -- defined at offset in text seg */ #define N_DATA 6 /* Data sym -- defined at offset in data seg */ #define N_BSS 8 /* BSS sym -- defined at offset in zero'd seg */ #define N_COMM 0x12 /* Common symbol (visible after shared lib dynlink) */ #define N_FN 0x1f /* File name of .o file */ #define N_FN_SEQ 0x0C /* N_FN from Sequent compilers (sigh) */ /* Note: N_EXT can only be usefully OR-ed with N_UNDF, N_ABS, N_TEXT, N_DATA, or N_BSS. When the low-order bit of other types is set, (e.g. N_WARNING versus N_FN), they are two different types. */ #define N_EXT 1 /* External symbol (as opposed to local-to-this-file) */ #define N_TYPE 0x1e #define N_STAB 0xe0 /* If any of these bits are on, it's a debug symbol */ #define N_INDR 0x0a /* The following symbols refer to set elements. All the N_SET[ATDB] symbols with the same name form one set. Space is allocated for the set in the text section, and each set elements value is stored into one word of the space. The first word of the space is the length of the set (number of elements). The address of the set is made into an N_SETV symbol whose name is the same as the name of the set. This symbol acts like a N_DATA global symbol in that it can satisfy undefined external references. */ /* These appear as input to LD, in a .o file. */ #define N_SETA 0x14 /* Absolute set element symbol */ #define N_SETT 0x16 /* Text set element symbol */ #define N_SETD 0x18 /* Data set element symbol */ #define N_SETB 0x1A /* Bss set element symbol */ /* This is output from LD. */ #define N_SETV 0x1C /* Pointer to set vector in data area. */ /* Warning symbol. The text gives a warning message, the next symbol in the table will be undefined. When the symbol is referenced, the message is printed. */ #define N_WARNING 0x1e /* Relocations There are two types of relocation flavours for a.out systems, standard and extended. The standard form is used on systems where the instruction has room for all the bits of an offset to the operand, whilst the extended form is used when an address operand has to be split over n instructions. Eg, on the 68k, each move instruction can reference the target with a displacement of 16 or 32 bits. On the sparc, move instructions use an offset of 14 bits, so the offset is stored in the reloc field, and the data in the section is ignored. */ /* This structure describes a single relocation to be performed. The text-relocation section of the file is a vector of these structures, all of which apply to the text section. Likewise, the data-relocation section applies to the data section. */ struct reloc_std_external { bfd_byte r_address[BYTES_IN_WORD]; /* offset of of data to relocate */ bfd_byte r_index[3]; /* symbol table index of symbol */ bfd_byte r_type[1]; /* relocation type */ }; #define RELOC_STD_BITS_PCREL_BIG 0x80 #define RELOC_STD_BITS_PCREL_LITTLE 0x01 #define RELOC_STD_BITS_LENGTH_BIG 0x60 #define RELOC_STD_BITS_LENGTH_SH_BIG 5 /* To shift to units place */ #define RELOC_STD_BITS_LENGTH_LITTLE 0x06 #define RELOC_STD_BITS_LENGTH_SH_LITTLE 1 #define RELOC_STD_BITS_EXTERN_BIG 0x10 #define RELOC_STD_BITS_EXTERN_LITTLE 0x08 #define RELOC_STD_BITS_BASEREL_BIG 0x08 #define RELOC_STD_BITS_BASEREL_LITTLE 0x08 #define RELOC_STD_BITS_JMPTABLE_BIG 0x04 #define RELOC_STD_BITS_JMPTABLE_LITTLE 0x04 #define RELOC_STD_BITS_RELATIVE_BIG 0x02 #define RELOC_STD_BITS_RELATIVE_LITTLE 0x02 #define RELOC_STD_SIZE (BYTES_IN_WORD + 3 + 1) /* Bytes per relocation entry */ struct reloc_std_internal { bfd_vma r_address; /* Address (within segment) to be relocated. */ /* The meaning of r_symbolnum depends on r_extern. */ unsigned int r_symbolnum:24; /* Nonzero means value is a pc-relative offset and it should be relocated for changes in its own address as well as for changes in the symbol or section specified. */ unsigned int r_pcrel:1; /* Length (as exponent of 2) of the field to be relocated. Thus, a value of 2 indicates 1<<2 bytes. */ unsigned int r_length:2; /* 1 => relocate with value of symbol. r_symbolnum is the index of the symbol in files the symbol table. 0 => relocate with the address of a segment. r_symbolnum is N_TEXT, N_DATA, N_BSS or N_ABS (the N_EXT bit may be set also, but signifies nothing). */ unsigned int r_extern:1; /* The next three bits are for SunOS shared libraries, and seem to be undocumented. */ unsigned int r_baserel:1; /* Linkage table relative */ unsigned int r_jmptable:1; /* pc-relative to jump table */ unsigned int r_relative:1; /* "relative relocation" */ /* unused */ unsigned int r_pad:1; /* Padding -- set to zero */ }; /* EXTENDED RELOCS */ struct reloc_ext_external { bfd_byte r_address[BYTES_IN_WORD]; /* offset of of data to relocate */ bfd_byte r_index[3]; /* symbol table index of symbol */ bfd_byte r_type[1]; /* relocation type */ bfd_byte r_addend[BYTES_IN_WORD]; /* datum addend */ }; #define RELOC_EXT_BITS_EXTERN_BIG 0x80 #define RELOC_EXT_BITS_EXTERN_LITTLE 0x01 #define RELOC_EXT_BITS_TYPE_BIG 0x1F #define RELOC_EXT_BITS_TYPE_SH_BIG 0 #define RELOC_EXT_BITS_TYPE_LITTLE 0xF8 #define RELOC_EXT_BITS_TYPE_SH_LITTLE 3 /* Bytes per relocation entry */ #define RELOC_EXT_SIZE (BYTES_IN_WORD + 3 + 1 + BYTES_IN_WORD) enum reloc_type { /* simple relocations */ RELOC_8, /* data[0:7] = addend + sv */ RELOC_16, /* data[0:15] = addend + sv */ RELOC_32, /* data[0:31] = addend + sv */ /* pc-rel displacement */ RELOC_DISP8, /* data[0:7] = addend - pc + sv */ RELOC_DISP16, /* data[0:15] = addend - pc + sv */ RELOC_DISP32, /* data[0:31] = addend - pc + sv */ /* Special */ RELOC_WDISP30, /* data[0:29] = (addend + sv - pc)>>2 */ RELOC_WDISP22, /* data[0:21] = (addend + sv - pc)>>2 */ RELOC_HI22, /* data[0:21] = (addend + sv)>>10 */ RELOC_22, /* data[0:21] = (addend + sv) */ RELOC_13, /* data[0:12] = (addend + sv) */ RELOC_LO10, /* data[0:9] = (addend + sv) */ RELOC_SFA_BASE, RELOC_SFA_OFF13, /* P.I.C. (base-relative) */ RELOC_BASE10, /* Not sure - maybe we can do this the */ RELOC_BASE13, /* right way now */ RELOC_BASE22, /* for some sort of pc-rel P.I.C. (?) */ RELOC_PC10, RELOC_PC22, /* P.I.C. jump table */ RELOC_JMP_TBL, /* reputedly for shared libraries somehow */ RELOC_SEGOFF16, RELOC_GLOB_DAT, RELOC_JMP_SLOT, RELOC_RELATIVE, RELOC_11, RELOC_WDISP2_14, RELOC_WDISP19, RELOC_HHI22, /* data[0:21] = (addend + sv) >> 42 */ RELOC_HLO10, /* data[0:9] = (addend + sv) >> 32 */ /* 29K relocation types */ RELOC_JUMPTARG, RELOC_CONST, RELOC_CONSTH, NO_RELOC }; struct reloc_internal { bfd_vma r_address; /* offset of of data to relocate */ long r_index; /* symbol table index of symbol */ enum reloc_type r_type; /* relocation type */ bfd_vma r_addend; /* datum addend */ }; #endif /* __A_OUT_ADOBE_H__ */ gdb-4.13/include/aout/aout64.h 666 34562 1752 43627 5600166557 14471 0ustar fnfcygnus/* `a.out' object-file definitions, including extensions to 64-bit fields */ #ifndef __A_OUT_64_H__ #define __A_OUT_64_H__ /* This is the layout on disk of the 32-bit or 64-bit exec header. */ #ifndef external_exec struct external_exec { bfd_byte e_info[4]; /* magic number and stuff */ bfd_byte e_text[BYTES_IN_WORD]; /* length of text section in bytes */ bfd_byte e_data[BYTES_IN_WORD]; /* length of data section in bytes */ bfd_byte e_bss[BYTES_IN_WORD]; /* length of bss area in bytes */ bfd_byte e_syms[BYTES_IN_WORD]; /* length of symbol table in bytes */ bfd_byte e_entry[BYTES_IN_WORD]; /* start address */ bfd_byte e_trsize[BYTES_IN_WORD]; /* length of text relocation info */ bfd_byte e_drsize[BYTES_IN_WORD]; /* length of data relocation info */ }; #define EXEC_BYTES_SIZE (4 + BYTES_IN_WORD * 7) /* Magic numbers for a.out files */ #if ARCH_SIZE==64 #define OMAGIC 0x1001 /* Code indicating object file */ #define ZMAGIC 0x1002 /* Code indicating demand-paged executable. */ #define NMAGIC 0x1003 /* Code indicating pure executable. */ /* There is no 64-bit QMAGIC as far as I know. */ #define N_BADMAG(x) (N_MAGIC(x) != OMAGIC \ && N_MAGIC(x) != NMAGIC \ && N_MAGIC(x) != ZMAGIC) #else #define OMAGIC 0407 /* ...object file or impure executable. */ #define NMAGIC 0410 /* Code indicating pure executable. */ #define ZMAGIC 0413 /* Code indicating demand-paged executable. */ #define BMAGIC 0415 /* Used by a b.out object. */ /* This indicates a demand-paged executable with the header in the text. It is used by 386BSD (and variants) and Linux, at least. */ #define QMAGIC 0314 # ifndef N_BADMAG # define N_BADMAG(x) (N_MAGIC(x) != OMAGIC \ && N_MAGIC(x) != NMAGIC \ && N_MAGIC(x) != ZMAGIC \ && N_MAGIC(x) != QMAGIC) # endif /* N_BADMAG */ #endif #endif #ifdef QMAGIC #define N_IS_QMAGIC(x) (N_MAGIC (x) == QMAGIC) #else #define N_IS_QMAGIC(x) (0) #endif /* The difference between PAGE_SIZE and N_SEGSIZE is that PAGE_SIZE is the finest granularity at which you can page something, thus it controls the padding (if any) before the text segment of a ZMAGIC file. N_SEGSIZE is the resolution at which things can be marked as read-only versus read/write, so it controls the padding between the text segment and the data segment (in memory; on disk the padding between them is PAGE_SIZE). PAGE_SIZE and N_SEGSIZE are the same for most machines, but different for sun3. */ /* By default, segment size is constant. But some machines override this to be a function of the a.out header (e.g. machine type). */ #ifndef N_SEGSIZE #define N_SEGSIZE(x) SEGMENT_SIZE #endif /* Virtual memory address of the text section. This is getting very complicated. A good reason to discard a.out format for something that specifies these fields explicitly. But til then... * OMAGIC and NMAGIC files: (object files: text for "relocatable addr 0" right after the header) start at 0, offset is EXEC_BYTES_SIZE, size as stated. * The text address, offset, and size of ZMAGIC files depend on the entry point of the file: * entry point below TEXT_START_ADDR: (hack for SunOS shared libraries) start at 0, offset is 0, size as stated. * If N_HEADER_IN_TEXT(x) is true (which defaults to being the case when the entry point is EXEC_BYTES_SIZE or further into a page): no padding is needed; text can start after exec header. Sun considers the text segment of such files to include the exec header; for BFD's purposes, we don't, which makes more work for us. start at TEXT_START_ADDR + EXEC_BYTES_SIZE, offset is EXEC_BYTES_SIZE, size as stated minus EXEC_BYTES_SIZE. * If N_HEADER_IN_TEXT(x) is false (which defaults to being the case when the entry point is less than EXEC_BYTES_SIZE into a page (e.g. page aligned)): (padding is needed so that text can start at a page boundary) start at TEXT_START_ADDR, offset PAGE_SIZE, size as stated. Specific configurations may want to hardwire N_HEADER_IN_TEXT, for efficiency or to allow people to play games with the entry point. In that case, you would #define N_HEADER_IN_TEXT(x) as 1 for sunos, and as 0 for most other hosts (Sony News, Vax Ultrix, etc). (Do this in the appropriate bfd target file.) (The default is a heuristic that will break if people try changing the entry point, perhaps with the ld -e flag.) * QMAGIC is always like a ZMAGIC for which N_HEADER_IN_TEXT is true, and for which the starting address is PAGE_SIZE (or should this be SEGMENT_SIZE?) (TEXT_START_ADDR only applies to ZMAGIC, not to QMAGIC). */ /* This macro is only relevant for ZMAGIC files; QMAGIC always has the header in the text. */ #ifndef N_HEADER_IN_TEXT #define N_HEADER_IN_TEXT(x) (((x).a_entry & (PAGE_SIZE-1)) >= EXEC_BYTES_SIZE) #endif /* Sun shared libraries, not linux. This macro is only relevant for ZMAGIC files. */ #ifndef N_SHARED_LIB #define N_SHARED_LIB(x) ((x).a_entry < TEXT_START_ADDR) #endif /* Returning 0 not TEXT_START_ADDR for OMAGIC and NMAGIC is based on the assumption that we are dealing with a .o file, not an executable. This is necessary for OMAGIC (but means we don't work right on the output from ld -N); more questionable for NMAGIC. */ #ifndef N_TXTADDR #define N_TXTADDR(x) \ (/* The address of a QMAGIC file is always one page in, */ \ /* with the header in the text. */ \ N_IS_QMAGIC (x) ? PAGE_SIZE + EXEC_BYTES_SIZE : \ N_MAGIC(x) != ZMAGIC ? 0 : /* object file or NMAGIC */\ N_SHARED_LIB(x) ? 0 : \ N_HEADER_IN_TEXT(x) ? \ TEXT_START_ADDR + EXEC_BYTES_SIZE : /* no padding */\ TEXT_START_ADDR /* a page of padding */\ ) #endif /* If N_HEADER_IN_TEXT is not true for ZMAGIC, there is some padding to make the text segment start at a certain boundary. For most systems, this boundary is PAGE_SIZE. But for Linux, in the time-honored tradition of crazy ZMAGIC hacks, it is 1024 which is not what PAGE_SIZE needs to be for QMAGIC. */ #ifndef ZMAGIC_DISK_BLOCK_SIZE #define ZMAGIC_DISK_BLOCK_SIZE PAGE_SIZE #endif #define N_DISK_BLOCK_SIZE(x) \ (N_MAGIC(x) == ZMAGIC ? ZMAGIC_DISK_BLOCK_SIZE : PAGE_SIZE) /* Offset in an a.out of the start of the text section. */ #ifndef N_TXTOFF #define N_TXTOFF(x) \ (/* For {O,N,Q}MAGIC, no padding. */ \ N_MAGIC(x) != ZMAGIC ? EXEC_BYTES_SIZE : \ N_SHARED_LIB(x) ? 0 : \ N_HEADER_IN_TEXT(x) ? \ EXEC_BYTES_SIZE : /* no padding */\ ZMAGIC_DISK_BLOCK_SIZE /* a page of padding */\ ) #endif /* Size of the text section. It's always as stated, except that we offset it to `undo' the adjustment to N_TXTADDR and N_TXTOFF for ZMAGIC files that nominally include the exec header as part of the first page of text. (BFD doesn't consider the exec header to be part of the text segment.) */ #ifndef N_TXTSIZE #define N_TXTSIZE(x) \ (/* For QMAGIC, we don't consider the header part of the text section. */\ N_IS_QMAGIC (x) ? (x).a_text - EXEC_BYTES_SIZE : \ (N_MAGIC(x) != ZMAGIC || N_SHARED_LIB(x)) ? (x).a_text : \ N_HEADER_IN_TEXT(x) ? \ (x).a_text - EXEC_BYTES_SIZE: /* no padding */\ (x).a_text /* a page of padding */\ ) #endif /* The address of the data segment in virtual memory. It is the text segment address, plus text segment size, rounded up to a N_SEGSIZE boundary for pure or pageable files. */ #ifndef N_DATADDR #define N_DATADDR(x) \ (N_MAGIC(x)==OMAGIC? (N_TXTADDR(x)+N_TXTSIZE(x)) \ : (N_SEGSIZE(x) + ((N_TXTADDR(x)+N_TXTSIZE(x)-1) & ~(N_SEGSIZE(x)-1)))) #endif /* The address of the BSS segment -- immediately after the data segment. */ #define N_BSSADDR(x) (N_DATADDR(x) + (x).a_data) /* Offsets of the various portions of the file after the text segment. */ /* For {Q,Z}MAGIC, there is padding to make the data segment start on a page boundary. Most of the time the a_text field (and thus N_TXTSIZE) already contains this padding. It is possible that for BSDI and/or 386BSD it sometimes doesn't contain the padding, and perhaps we should be adding it here. But this seems kind of questionable and probably should be BSDI/386BSD-specific if we do do it. For NMAGIC (at least for hp300 BSD, probably others), there is padding in memory only, not on disk, so we must *not* ever pad here for NMAGIC. */ #ifndef N_DATOFF #define N_DATOFF(x) \ (N_TXTOFF(x) + N_TXTSIZE(x)) #endif #ifndef N_TRELOFF #define N_TRELOFF(x) ( N_DATOFF(x) + (x).a_data ) #endif #ifndef N_DRELOFF #define N_DRELOFF(x) ( N_TRELOFF(x) + (x).a_trsize ) #endif #ifndef N_SYMOFF #define N_SYMOFF(x) ( N_DRELOFF(x) + (x).a_drsize ) #endif #ifndef N_STROFF #define N_STROFF(x) ( N_SYMOFF(x) + (x).a_syms ) #endif /* Symbols */ #ifndef external_nlist struct external_nlist { bfd_byte e_strx[BYTES_IN_WORD]; /* index into string table of name */ bfd_byte e_type[1]; /* type of symbol */ bfd_byte e_other[1]; /* misc info (usually empty) */ bfd_byte e_desc[2]; /* description field */ bfd_byte e_value[BYTES_IN_WORD]; /* value of symbol */ }; #define EXTERNAL_NLIST_SIZE (BYTES_IN_WORD+4+BYTES_IN_WORD) #endif struct internal_nlist { unsigned long n_strx; /* index into string table of name */ unsigned char n_type; /* type of symbol */ unsigned char n_other; /* misc info (usually empty) */ unsigned short n_desc; /* description field */ bfd_vma n_value; /* value of symbol */ }; /* The n_type field is the symbol type, containing: */ #define N_UNDF 0 /* Undefined symbol */ #define N_ABS 2 /* Absolute symbol -- defined at particular addr */ #define N_TEXT 4 /* Text sym -- defined at offset in text seg */ #define N_DATA 6 /* Data sym -- defined at offset in data seg */ #define N_BSS 8 /* BSS sym -- defined at offset in zero'd seg */ #define N_COMM 0x12 /* Common symbol (visible after shared lib dynlink) */ #define N_FN 0x1f /* File name of .o file */ #define N_FN_SEQ 0x0C /* N_FN from Sequent compilers (sigh) */ /* Note: N_EXT can only be usefully OR-ed with N_UNDF, N_ABS, N_TEXT, N_DATA, or N_BSS. When the low-order bit of other types is set, (e.g. N_WARNING versus N_FN), they are two different types. */ #define N_EXT 1 /* External symbol (as opposed to local-to-this-file) */ #define N_TYPE 0x1e #define N_STAB 0xe0 /* If any of these bits are on, it's a debug symbol */ #define N_INDR 0x0a /* The following symbols refer to set elements. All the N_SET[ATDB] symbols with the same name form one set. Space is allocated for the set in the text section, and each set elements value is stored into one word of the space. The first word of the space is the length of the set (number of elements). The address of the set is made into an N_SETV symbol whose name is the same as the name of the set. This symbol acts like a N_DATA global symbol in that it can satisfy undefined external references. */ /* These appear as input to LD, in a .o file. */ #define N_SETA 0x14 /* Absolute set element symbol */ #define N_SETT 0x16 /* Text set element symbol */ #define N_SETD 0x18 /* Data set element symbol */ #define N_SETB 0x1A /* Bss set element symbol */ /* This is output from LD. */ #define N_SETV 0x1C /* Pointer to set vector in data area. */ /* Warning symbol. The text gives a warning message, the next symbol in the table will be undefined. When the symbol is referenced, the message is printed. */ #define N_WARNING 0x1e /* Weak symbols. These are a GNU extension to the a.out format. The semantics are those of ELF weak symbols. Weak symbols are always externally visible. The N_WEAK? values are squeezed into the available slots. The value of a N_WEAKU symbol is 0. The values of the other types are the definitions. */ #define N_WEAKU 0x0d /* Weak undefined symbol. */ #define N_WEAKA 0x0e /* Weak absolute symbol. */ #define N_WEAKT 0x0f /* Weak text symbol. */ #define N_WEAKD 0x10 /* Weak data symbol. */ #define N_WEAKB 0x11 /* Weak bss symbol. */ /* Relocations There are two types of relocation flavours for a.out systems, standard and extended. The standard form is used on systems where the instruction has room for all the bits of an offset to the operand, whilst the extended form is used when an address operand has to be split over n instructions. Eg, on the 68k, each move instruction can reference the target with a displacement of 16 or 32 bits. On the sparc, move instructions use an offset of 14 bits, so the offset is stored in the reloc field, and the data in the section is ignored. */ /* This structure describes a single relocation to be performed. The text-relocation section of the file is a vector of these structures, all of which apply to the text section. Likewise, the data-relocation section applies to the data section. */ struct reloc_std_external { bfd_byte r_address[BYTES_IN_WORD]; /* offset of of data to relocate */ bfd_byte r_index[3]; /* symbol table index of symbol */ bfd_byte r_type[1]; /* relocation type */ }; #define RELOC_STD_BITS_PCREL_BIG ((unsigned int) 0x80) #define RELOC_STD_BITS_PCREL_LITTLE ((unsigned int) 0x01) #define RELOC_STD_BITS_LENGTH_BIG ((unsigned int) 0x60) #define RELOC_STD_BITS_LENGTH_SH_BIG 5 #define RELOC_STD_BITS_LENGTH_LITTLE ((unsigned int) 0x06) #define RELOC_STD_BITS_LENGTH_SH_LITTLE 1 #define RELOC_STD_BITS_EXTERN_BIG ((unsigned int) 0x10) #define RELOC_STD_BITS_EXTERN_LITTLE ((unsigned int) 0x08) #define RELOC_STD_BITS_BASEREL_BIG ((unsigned int) 0x08) #define RELOC_STD_BITS_BASEREL_LITTLE ((unsigned int) 0x10) #define RELOC_STD_BITS_JMPTABLE_BIG ((unsigned int) 0x04) #define RELOC_STD_BITS_JMPTABLE_LITTLE ((unsigned int) 0x20) #define RELOC_STD_BITS_RELATIVE_BIG ((unsigned int) 0x02) #define RELOC_STD_BITS_RELATIVE_LITTLE ((unsigned int) 0x40) #define RELOC_STD_SIZE (BYTES_IN_WORD + 3 + 1) /* Bytes per relocation entry */ struct reloc_std_internal { bfd_vma r_address; /* Address (within segment) to be relocated. */ /* The meaning of r_symbolnum depends on r_extern. */ unsigned int r_symbolnum:24; /* Nonzero means value is a pc-relative offset and it should be relocated for changes in its own address as well as for changes in the symbol or section specified. */ unsigned int r_pcrel:1; /* Length (as exponent of 2) of the field to be relocated. Thus, a value of 2 indicates 1<<2 bytes. */ unsigned int r_length:2; /* 1 => relocate with value of symbol. r_symbolnum is the index of the symbol in files the symbol table. 0 => relocate with the address of a segment. r_symbolnum is N_TEXT, N_DATA, N_BSS or N_ABS (the N_EXT bit may be set also, but signifies nothing). */ unsigned int r_extern:1; /* The next three bits are for SunOS shared libraries, and seem to be undocumented. */ unsigned int r_baserel:1; /* Linkage table relative */ unsigned int r_jmptable:1; /* pc-relative to jump table */ unsigned int r_relative:1; /* "relative relocation" */ /* unused */ unsigned int r_pad:1; /* Padding -- set to zero */ }; /* EXTENDED RELOCS */ struct reloc_ext_external { bfd_byte r_address[BYTES_IN_WORD]; /* offset of of data to relocate */ bfd_byte r_index[3]; /* symbol table index of symbol */ bfd_byte r_type[1]; /* relocation type */ bfd_byte r_addend[BYTES_IN_WORD]; /* datum addend */ }; #define RELOC_EXT_BITS_EXTERN_BIG ((unsigned int) 0x80) #define RELOC_EXT_BITS_EXTERN_LITTLE ((unsigned int) 0x01) #define RELOC_EXT_BITS_TYPE_BIG ((unsigned int) 0x1F) #define RELOC_EXT_BITS_TYPE_SH_BIG 0 #define RELOC_EXT_BITS_TYPE_LITTLE ((unsigned int) 0xF8) #define RELOC_EXT_BITS_TYPE_SH_LITTLE 3 /* Bytes per relocation entry */ #define RELOC_EXT_SIZE (BYTES_IN_WORD + 3 + 1 + BYTES_IN_WORD) enum reloc_type { /* simple relocations */ RELOC_8, /* data[0:7] = addend + sv */ RELOC_16, /* data[0:15] = addend + sv */ RELOC_32, /* data[0:31] = addend + sv */ /* pc-rel displacement */ RELOC_DISP8, /* data[0:7] = addend - pc + sv */ RELOC_DISP16, /* data[0:15] = addend - pc + sv */ RELOC_DISP32, /* data[0:31] = addend - pc + sv */ /* Special */ RELOC_WDISP30, /* data[0:29] = (addend + sv - pc)>>2 */ RELOC_WDISP22, /* data[0:21] = (addend + sv - pc)>>2 */ RELOC_HI22, /* data[0:21] = (addend + sv)>>10 */ RELOC_22, /* data[0:21] = (addend + sv) */ RELOC_13, /* data[0:12] = (addend + sv) */ RELOC_LO10, /* data[0:9] = (addend + sv) */ RELOC_SFA_BASE, RELOC_SFA_OFF13, /* P.I.C. (base-relative) */ RELOC_BASE10, /* Not sure - maybe we can do this the */ RELOC_BASE13, /* right way now */ RELOC_BASE22, /* for some sort of pc-rel P.I.C. (?) */ RELOC_PC10, RELOC_PC22, /* P.I.C. jump table */ RELOC_JMP_TBL, /* reputedly for shared libraries somehow */ RELOC_SEGOFF16, RELOC_GLOB_DAT, RELOC_JMP_SLOT, RELOC_RELATIVE, RELOC_11, RELOC_WDISP2_14, RELOC_WDISP19, RELOC_HHI22, /* data[0:21] = (addend + sv) >> 42 */ RELOC_HLO10, /* data[0:9] = (addend + sv) >> 32 */ /* 29K relocation types */ RELOC_JUMPTARG, RELOC_CONST, RELOC_CONSTH, /* All the new ones I can think of, for sparc v9 */ RELOC_64, /* data[0:63] = addend + sv */ RELOC_DISP64, /* data[0:63] = addend - pc + sv */ RELOC_WDISP21, /* data[0:20] = (addend + sv - pc)>>2 */ RELOC_DISP21, /* data[0:20] = addend - pc + sv */ RELOC_DISP14, /* data[0:13] = addend - pc + sv */ /* Q . What are the other ones, Since this is a clean slate, can we throw away the ones we dont understand ? Should we sort the values ? What about using a microcode format like the 68k ? */ NO_RELOC }; struct reloc_internal { bfd_vma r_address; /* offset of of data to relocate */ long r_index; /* symbol table index of symbol */ enum reloc_type r_type; /* relocation type */ bfd_vma r_addend; /* datum addend */ }; /* Q. Should the length of the string table be 4 bytes or 8 bytes ? Q. What about archive indexes ? */ #endif /* __A_OUT_64_H__ */ gdb-4.13/include/aout/ar.h 666 34562 1752 2503 5526771416 13720 0ustar fnfcygnus/* archive file definition for GNU software */ /* So far this is correct for BSDish archives. Don't forget that files must begin on an even byte boundary. */ #ifndef __GNU_AR_H__ #define __GNU_AR_H__ /* Note that the usual '\n' in magic strings may translate to different characters, as allowed by ANSI. '\012' has a fixed value, and remains compatible with existing BSDish archives. */ #define ARMAG "!\012" /* For COFF and a.out archives */ #define ARMAGB "!\012" /* For b.out archives */ #define SARMAG 8 #define ARFMAG "`\012" /* The ar_date field of the armap (__.SYMDEF) member of an archive must be greater than the modified date of the entire file, or BSD-derived linkers complain. We originally write the ar_date with this offset from the real file's mod-time. After finishing the file, we rewrite ar_date if it's not still greater than the mod date. */ #define ARMAP_TIME_OFFSET 60 struct ar_hdr { char ar_name[16]; /* name of this member */ char ar_date[12]; /* file mtime */ char ar_uid[6]; /* owner uid; printed as decimal */ char ar_gid[6]; /* owner gid; printed as decimal */ char ar_mode[8]; /* file mode, printed as octal */ char ar_size[10]; /* file size, printed as decimal */ char ar_fmag[2]; /* should contain ARFMAG */ }; #endif /* __GNU_AR_H__ */ gdb-4.13/include/aout/dynix3.h 666 34562 1752 4205 5546241105 14522 0ustar fnfcygnus/* * a.out specifics for Sequent Symmetry running Dynix 3.x */ #ifndef A_OUT_DYNIX3_H #define A_OUT_DYNIX3_H #define external_exec dynix_external_exec /* struct exec for Dynix 3 * * a_gdtbl and a_bootstrap are only for standalone binaries. * Shared data fields are not supported by the kernel as of Dynix 3.1, * but are supported by Dynix compiler programs. */ struct dynix_external_exec { unsigned char e_info[4]; unsigned char e_text[4]; unsigned char e_data[4]; unsigned char e_bss[4]; unsigned char e_syms[4]; unsigned char e_entry[4]; unsigned char e_trsize[4]; unsigned char e_drsize[4]; unsigned char e_g_code[8], e_g_data[8], e_g_desc[8]; unsigned char e_shdata[4]; unsigned char e_shbss[4]; unsigned char e_shdrsize[4]; unsigned char e_bootstrap[44]; unsigned char e_reserved[12]; unsigned char e_version[4]; }; #define EXEC_BYTES_SIZE (128) /* * All executables under Dynix are demand paged with read-only text, * Thus no NMAGIC. * * ZMAGIC has a page of 0s at virtual 0, * XMAGIC has an invalid page at virtual 0 */ #define OMAGIC 0x12eb /* .o */ #define ZMAGIC 0x22eb /* zero @ 0, demand load */ #define XMAGIC 0x32eb /* invalid @ 0, demand load */ #define SMAGIC 0x42eb /* standalone, not supported here */ #define N_BADMAG(x) ((OMAGIC != N_MAGIC(x)) && \ (ZMAGIC != N_MAGIC(x)) && \ (XMAGIC != N_MAGIC(x)) && \ (SMAGIC != N_MAGIC(x))) #define N_ADDRADJ(x) ((ZMAGIC == N_MAGIC(x) || XMAGIC == N_MAGIC(x)) ? 0x1000 : 0) #define N_TXTOFF(x) (EXEC_BYTES_SIZE) #define N_DATOFF(x) (N_TXTOFF(x) + N_TXTSIZE(x)) #define N_SHDATOFF(x) (N_DATOFF(x) + (x).a_data) #define N_TRELOFF(x) (N_SHDATOFF(x) + (x).a_shdata) #define N_DRELOFF(x) (N_TRELOFF(x) + (x).a_trsize) #define N_SHDRELOFF(x) (N_DRELOFF(x) + (x).a_drsize) #define N_SYMOFF(x) (N_SHDRELOFF(x) + (x).a_shdrsize) #define N_STROFF(x) (N_SYMOFF(x) + (x).a_syms) #define N_TXTADDR(x) \ (((OMAGIC == N_MAGIC(x)) || (SMAGIC == N_MAGIC(x))) ? 0 \ : TEXT_START_ADDR + EXEC_BYTES_SIZE) #define N_TXTSIZE(x) \ (((OMAGIC == N_MAGIC(x)) || (SMAGIC == N_MAGIC(x))) ? ((x).a_text) \ : ((x).a_text - N_ADDRADJ(x) - EXEC_BYTES_SIZE)) #endif /* A_OUT_DYNIX3_H */ gdb-4.13/include/aout/encap.h 666 34562 1752 11162 5116044353 14411 0ustar fnfcygnus/* Yet Another Try at encapsulating bsd object files in coff. Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc. Written by Pace Willisson 12/9/88 This file is obsolete. It needs to be converted to just define a bunch of stuff that BFD can use to do coff-encapsulated files. --gnu@cygnus.com 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * We only use the coff headers to tell the kernel * how to exec the file. Therefore, the only fields that need to * be filled in are the scnptr and vaddr for the text and data * sections, and the vaddr for the bss. As far as coff is concerned, * there is no symbol table, relocation, or line numbers. * * A normal bsd header (struct exec) is placed after the coff headers, * and before the real text. I defined a the new fields 'a_machtype' * and a_flags. If a_machtype is M_386, and a_flags & A_ENCAP is * true, then the bsd header is preceeded by a coff header. Macros * like N_TXTOFF and N_TXTADDR use this field to find the bsd header. * * The only problem is to track down the bsd exec header. The * macros HEADER_OFFSET, etc do this. */ #define N_FLAGS_COFF_ENCAPSULATE 0x20 /* coff header precedes bsd header */ /* Describe the COFF header used for encapsulation. */ struct coffheader { /* filehdr */ unsigned short f_magic; unsigned short f_nscns; long f_timdat; long f_symptr; long f_nsyms; unsigned short f_opthdr; unsigned short f_flags; /* aouthdr */ short magic; short vstamp; long tsize; long dsize; long bsize; long entry; long text_start; long data_start; struct coffscn { char s_name[8]; long s_paddr; long s_vaddr; long s_size; long s_scnptr; long s_relptr; long s_lnnoptr; unsigned short s_nreloc; unsigned short s_nlnno; long s_flags; } scns[3]; }; /* Describe some of the parameters of the encapsulation, including how to find the encapsulated BSD header. */ /* FIXME, this is dumb. The same tools can't handle a.outs for different architectures, just because COFF_MAGIC is different; so you need a separate GNU nm for every architecture!!? Unfortunately, it needs to be this way, since the COFF_MAGIC value is determined by the kernel we're trying to fool here. */ #define COFF_MAGIC_I386 0514 /* I386MAGIC */ #define COFF_MAGIC_M68K 0520 /* MC68MAGIC */ #define COFF_MAGIC_A29K 0x17A /* Used by asm29k cross-tools */ #ifdef COFF_MAGIC short __header_offset_temp; #define HEADER_OFFSET(f) \ (__header_offset_temp = 0, \ fread ((char *)&__header_offset_temp, sizeof (short), 1, (f)), \ fseek ((f), -sizeof (short), 1), \ __header_offset_temp==COFF_MAGIC ? sizeof(struct coffheader) : 0) #else #define HEADER_OFFSET(f) 0 #endif #define HEADER_SEEK(f) (fseek ((f), HEADER_OFFSET((f)), 1)) /* Describe the characteristics of the BSD header that appears inside the encapsulation. */ /* Encapsulated coff files that are linked ZMAGIC have a text segment offset just past the header (and a matching TXTADDR), excluding the headers from the text segment proper but keeping the physical layout and the virtual memory layout page-aligned. Non-encapsulated a.out files that are linked ZMAGIC have a text segment that starts at 0 and an N_TXTADR similarly offset to 0. They too are page-aligned with each other, but they include the a.out header as part of the text. The _N_HDROFF gets sizeof struct exec added to it, so we have to compensate here. See . */ #undef _N_HDROFF #undef N_TXTADDR #undef N_DATADDR #define _N_HDROFF(x) ((N_FLAGS(x) & N_FLAGS_COFF_ENCAPSULATE) ? \ sizeof (struct coffheader) : 0) /* Address of text segment in memory after it is loaded. */ #define N_TXTADDR(x) \ ((N_FLAGS(x) & N_FLAGS_COFF_ENCAPSULATE) ? \ sizeof (struct coffheader) + sizeof (struct exec) : 0) #define SEGMENT_SIZE 0x400000 #define N_DATADDR(x) \ ((N_FLAGS(x) & N_FLAGS_COFF_ENCAPSULATE) ? \ (SEGMENT_SIZE + ((N_TXTADDR(x)+(x).a_text-1) & ~(SEGMENT_SIZE-1))) : \ (N_TXTADDR(x)+(x).a_text)) gdb-4.13/include/aout/host.h 666 34562 1752 1101 5116044354 14251 0ustar fnfcygnus/* Parameters about the a.out format, based on the host system on which the program is compiled. */ /* Address of data segment in memory after it is loaded. It is up to you to define SEGMENT_SIZE on machines not listed here. */ #ifndef SEGMENT_SIZE #if defined(hp300) || defined(pyr) #define SEGMENT_SIZE page_size #endif #ifdef sony #define SEGMENT_SIZE 0x1000 #endif /* Sony. */ #ifdef is68k #define SEGMENT_SIZE 0x20000 #endif #if defined(m68k) && defined(PORTAR) #define PAGE_SIZE 0x400 #define SEGMENT_SIZE PAGE_SIZE #endif #endif /*!defined(SEGMENT_SIZE)*/ gdb-4.13/include/aout/hp.h 666 34562 1752 5562 5116044356 13724 0ustar fnfcygnus/* Special version of for use under hp-ux. Copyright 1988, 1991 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* THIS FILE IS OBSOLETE. It needs to be revised as a variant "external" a.out format for use with BFD. */ /* The `exec' structure and overall layout must be close to HP's when we are running on an HP system, otherwise we will not be able to execute the resulting file. */ /* Allow this file to be included twice. */ #ifndef __GNU_EXEC_MACROS__ struct exec { unsigned short a_machtype; /* machine type */ unsigned short a_magic; /* magic number */ unsigned long a_spare1; unsigned long a_spare2; unsigned long a_text; /* length of text, in bytes */ unsigned long a_data; /* length of data, in bytes */ unsigned long a_bss; /* length of uninitialized data area for file, in bytes */ unsigned long a_trsize; /* length of relocation info for text, in bytes */ unsigned long a_drsize; /* length of relocation info for data, in bytes */ unsigned long a_spare3; /* HP = pascal interface size */ unsigned long a_spare4; /* HP = symbol table size */ unsigned long a_spare5; /* HP = debug name table size */ unsigned long a_entry; /* start address */ unsigned long a_spare6; /* HP = source line table size */ unsigned long a_spare7; /* HP = value table size */ unsigned long a_syms; /* length of symbol table data in file, in bytes */ unsigned long a_spare8; }; /* Tell a.out.gnu.h not to define `struct exec'. */ #define __STRUCT_EXEC_OVERRIDE__ #include "../a.out.gnu.h" #undef N_MAGIC #undef N_MACHTYPE #undef N_FLAGS #undef N_SET_INFO #undef N_SET_MAGIC #undef N_SET_MACHTYPE #undef N_SET_FLAGS #define N_MAGIC(exec) ((exec) . a_magic) #define N_MACHTYPE(exec) ((exec) . a_machtype) #define N_SET_MAGIC(exec, magic) (((exec) . a_magic) = (magic)) #define N_SET_MACHTYPE(exec, machtype) (((exec) . a_machtype) = (machtype)) #undef N_BADMAG #define N_BADMAG(x) ((_N_BADMAG (x)) || (_N_BADMACH (x))) #define _N_BADMACH(x) \ (((N_MACHTYPE (x)) != HP9000S200_ID) && \ ((N_MACHTYPE (x)) != HP98x6_ID)) #define HP98x6_ID 0x20A #define HP9000S200_ID 0x20C #undef _N_HDROFF #define _N_HDROFF(x) (SEGMENT_SIZE - (sizeof (struct exec))) #define SEGMENT_SIZE 0x1000 #endif /* __GNU_EXEC_MACROS__ */ gdb-4.13/include/aout/hp300hpux.h 666 34562 1752 10560 5464265247 15100 0ustar fnfcygnus/* Special version of for use under hp-ux. Copyright (C) 1988,1993 Free Software Foundation, Inc. */ struct hp300hpux_exec_bytes { unsigned char e_info[4]; /* a_machtype/a_magic */ unsigned char e_spare1[4]; unsigned char e_spare2[4]; unsigned char e_text[4]; /* length of text, in bytes */ unsigned char e_data[4]; /* length of data, in bytes */ unsigned char e_bss[4]; /* length of uninitialized data area , in bytes */ unsigned char e_trsize[4]; /* length of relocation info for text, in bytes*/ unsigned char e_drsize[4]; /* length of relocation info for data, in bytes*/ unsigned char e_passize[4];/* HP = pascal interface size */ unsigned char e_syms[4]; /* HP = symbol table size */ unsigned char e_spare5[4]; /* HP = debug name table size */ unsigned char e_entry[4]; /* start address */ unsigned char e_spare6[4]; /* HP = source line table size */ unsigned char e_supsize[4];/* HP = value table size */ unsigned char e_drelocs[4]; unsigned char e_extension[4]; /* file offset of extension */ }; #define EXEC_BYTES_SIZE 64 struct hp300hpux_nlist_bytes { unsigned char e_value[4]; unsigned char e_type[1]; unsigned char e_length[1]; /* length of ascii symbol name */ unsigned char e_almod[2]; /* alignment mod */ unsigned char e_shlib[2]; /* info about dynamic linking */ }; #define EXTERNAL_NLIST_SIZE 10 struct hp300hpux_reloc { unsigned char r_address[4];/* offset of of data to relocate */ unsigned char r_index[2]; /* symbol table index of symbol */ unsigned char r_type[1]; /* relocation type */ unsigned char r_length[1]; /* length of item to reloc */ }; struct hp300hpux_header_extension { unsigned char e_syms[4]; unsigned char unique_headers[12*4]; unsigned char e_header[2]; /* type of header */ unsigned char e_version[2]; /* version */ unsigned char e_size[4]; /* bytes following*/ unsigned char e_extension[4];/* file offset of next extension */ }; #define EXTERNAL_EXTENSION_HEADER_SIZE (16*4) /* hpux separates object files (0x106) and impure executables (0x107) */ /* but the bfd code does not distinguish between them. Since we want to*/ /* read hpux .o files, we add an special define and use it below in */ /* offset and address calculations. */ #define HPUX_DOT_O_MAGIC 0x106 #define OMAGIC 0x107 /* object file or impure executable. */ #define NMAGIC 0x108 /* Code indicating pure executable. */ #define ZMAGIC 0x10B /* demand-paged executable. */ #define N_HEADER_IN_TEXT(x) 0 #if 0 /* libaout.h only uses the lower 8 bits */ #define HP98x6_ID 0x20A #define HP9000S200_ID 0x20C #endif #define HP98x6_ID 0x0A #define HP9000S200_ID 0x0C #define N_BADMAG(x) ((_N_BADMAG (x)) || (_N_BADMACH (x))) #define N_DATADDR(x) \ ((N_MAGIC(x)==OMAGIC || N_MAGIC(x)==HPUX_DOT_O_MAGIC) ? \ (N_TXTADDR(x)+N_TXTSIZE(x)) \ : (N_SEGSIZE(x) + ((N_TXTADDR(x)+N_TXTSIZE(x)-1) & ~(N_SEGSIZE(x)-1)))) #define _N_BADMACH(x) \ (((N_MACHTYPE (x)) != HP9000S200_ID) && \ ((N_MACHTYPE (x)) != HP98x6_ID)) #define _N_BADMAG(x) (N_MAGIC(x) != HPUX_DOT_O_MAGIC \ && N_MAGIC(x) != OMAGIC \ && N_MAGIC(x) != NMAGIC \ && N_MAGIC(x) != ZMAGIC ) #undef _N_HDROFF #define _N_HDROFF(x) (SEGMENT_SIZE - (sizeof (struct exec))) #undef N_DATOFF #undef N_PASOFF #undef N_SYMOFF #undef N_SUPOFF #undef N_TRELOFF #undef N_DRELOFF #undef N_STROFF #define N_DATOFF(x) ( N_TXTOFF(x) + N_TXTSIZE(x) ) #define N_PASOFF(x) ( N_DATOFF(x) + (x).a_data) #define N_SYMOFF(x) ( N_PASOFF(x) /* + (x).a_passize*/ ) #define N_SUPOFF(x) ( N_SYMOFF(x) + (x).a_syms ) #define N_TRELOFF(x) ( N_SUPOFF(x) /* + 0 (x).a_supsize*/ ) #define N_DRELOFF(x) ( N_TRELOFF(x) + (x).a_trsize ) #define N_EXTHOFF(x) ( N_DRELOFF(x) /* + 0 (x).a_drsize */) #define N_STROFF(x) ( 0 /* no string table */ ) /* use these when the file has gnu symbol tables */ #define N_GNU_TRELOFF(x) (N_DATOFF(x) + (x).a_data) #define N_GNU_DRELOFF(x) (N_GNU_TRELOFF(x) + (x).a_trsize) #define N_GNU_SYMOFF(x) (N_GNU_DRELOFF(x) + (x).a_drsize) #define PAGE_SIZE 0x1000 #define SEGMENT_SIZE 0x1000 #define TEXT_START_ADDR 0 #undef N_SHARED_LIB #define N_SHARED_LIB(x) ( 0 /* no shared libraries */ ) gdb-4.13/include/aout/hppa.h 666 34562 1752 150 5220462051 14201 0ustar fnfcygnus#include "filehdr.h" #include "aouthdr.h" #include "scnhdr.h" #include "spacehdr.h" #include "syms.h" gdb-4.13/include/aout/ranlib.h 666 34562 1752 4637 5116062176 14566 0ustar fnfcygnus/* ranlib.h -- archive library index member definition for GNU. Copyright 1990-1991 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The Symdef member of an archive contains two things: a table that maps symbol-string offsets to file offsets, and a symbol-string table. All the symbol names are run together (each with trailing null) in the symbol-string table. There is a single longword bytecount on the front of each of these tables. Thus if we have two symbols, "foo" and "_bar", that are in archive members at offsets 200 and 900, it would look like this: 16 ; byte count of index table 0 ; offset of "foo" in string table 200 ; offset of foo-module in file 4 ; offset of "bar" in string table 900 ; offset of bar-module in file 9 ; byte count of string table "foo\0_bar\0" ; string table */ #define RANLIBMAG "__.SYMDEF" /* Archive file name containing index */ #define RANLIBSKEW 3 /* Creation time offset */ /* Format of __.SYMDEF: First, a longword containing the size of the 'symdef' data that follows. Second, zero or more 'symdef' structures. Third, a longword containing the length of symbol name strings. Fourth, zero or more symbol name strings (each followed by a null). */ struct symdef { union { unsigned long string_offset; /* In the file */ char *name; /* In memory, sometimes */ } s; /* this points to the front of the file header (AKA member header -- a struct ar_hdr), not to the front of the file or into the file). in other words it only tells you which file to read */ unsigned long file_offset; }; /* Compatability with BSD code */ #define ranlib symdef #define ran_un s #define ran_strx string_offset #define ran_name name #define ran_off file_offset gdb-4.13/include/aout/reloc.h 666 34562 1752 4263 5116044431 14410 0ustar fnfcygnus/* reloc.h -- Header file for relocation information. Copyright 1989-1991 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Relocation types for a.out files using reloc_info_extended (SPARC and AMD 29000). */ #ifndef _RELOC_H_READ_ #define _RELOC_H_READ_ 1 enum reloc_type { RELOC_8, RELOC_16, RELOC_32, /* simple relocations */ RELOC_DISP8, RELOC_DISP16, RELOC_DISP32, /* pc-rel displacement */ RELOC_WDISP30, RELOC_WDISP22, RELOC_HI22, RELOC_22, RELOC_13, RELOC_LO10, RELOC_SFA_BASE, RELOC_SFA_OFF13, RELOC_BASE10, RELOC_BASE13, RELOC_BASE22, /* P.I.C. (base-relative) */ RELOC_PC10, RELOC_PC22, /* for some sort of pc-rel P.I.C. (?) */ RELOC_JMP_TBL, /* P.I.C. jump table */ RELOC_SEGOFF16, /* reputedly for shared libraries somehow */ RELOC_GLOB_DAT, RELOC_JMP_SLOT, RELOC_RELATIVE, RELOC_11, RELOC_WDISP2_14, RELOC_WDISP19, RELOC_HHI22, RELOC_HLO10, /* 29K relocation types */ RELOC_JUMPTARG, RELOC_CONST, RELOC_CONSTH, RELOC_WDISP14, RELOC_WDISP21, NO_RELOC }; #define RELOC_TYPE_NAMES \ "8", "16", "32", "DISP8", \ "DISP16", "DISP32", "WDISP30", "WDISP22", \ "HI22", "22", "13", "LO10", \ "SFA_BASE", "SFAOFF13", "BASE10", "BASE13", \ "BASE22", "PC10", "PC22", "JMP_TBL", \ "SEGOFF16", "GLOB_DAT", "JMP_SLOT", "RELATIVE", \ "11", "WDISP2_14", "WDISP19", "HHI22", \ "HLO10", \ "JUMPTARG", "CONST", "CONSTH", "WDISP14", \ "WDISP21", \ "NO_RELOC" #endif /* _RELOC_H_READ_ */ /* end of reloc.h */ gdb-4.13/include/aout/stab.def 666 34562 1752 25062 5576420432 14575 0ustar fnfcygnus/* Table of DBX symbol codes for the GNU system. Copyright (C) 1988, 1991 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* New stab from Solaris 2. This uses an n_type of 0, which in a.out files overlaps the N_UNDF used for ordinary symbols. In ELF files, the debug information is in a different file section, so there is no conflict. This symbol's n_value gives the size of the string section associated with this file. The symbol's n_strx (relative to the just-updated string section start address) gives the name of the source file, e.g. "foo.c", without any path information. The symbol's n_desc gives the count of upcoming symbols associated with this file (not including this one). */ /* __define_stab (N_UNDF, 0x00, "UNDF") */ /* Global variable. Only the name is significant. To find the address, look in the corresponding external symbol. */ __define_stab (N_GSYM, 0x20, "GSYM") /* Function name for BSD Fortran. Only the name is significant. To find the address, look in the corresponding external symbol. */ __define_stab (N_FNAME, 0x22, "FNAME") /* Function name or text-segment variable for C. Value is its address. Desc is supposedly starting line number, but GCC doesn't set it and DBX seems not to miss it. */ __define_stab (N_FUN, 0x24, "FUN") /* Data-segment variable with internal linkage. Value is its address. "Static Sym". */ __define_stab (N_STSYM, 0x26, "STSYM") /* BSS-segment variable with internal linkage. Value is its address. */ __define_stab (N_LCSYM, 0x28, "LCSYM") /* Name of main routine. Only the name is significant. */ __define_stab (N_MAIN, 0x2a, "MAIN") /* Solaris2: Read-only data symbols. */ __define_stab (N_ROSYM, 0x2c, "ROSYM") /* Global symbol in Pascal. Supposedly the value is its line number; I'm skeptical. */ __define_stab (N_PC, 0x30, "PC") /* Number of symbols: 0, files,,funcs,lines according to Ultrix V4.0. */ __define_stab (N_NSYMS, 0x32, "NSYMS") /* "No DST map for sym: name, ,0,type,ignored" according to Ultrix V4.0. */ __define_stab (N_NOMAP, 0x34, "NOMAP") /* New stab from Solaris 2. Like N_SO, but for the object file. Two in a row provide the build directory and the relative path of the .o from it. Solaris2 uses this to avoid putting the stabs info into the linked executable; this stab goes into the ".stab.index" section, and the debugger reads the real stabs directly from the .o files instead. */ __define_stab (N_OBJ, 0x38, "OBJ") /* New stab from Solaris 2. Options for the debugger, related to the source language for this module. E.g. whether to use ANSI integral promotions or traditional integral promotions. */ __define_stab (N_OPT, 0x3c, "OPT") /* Register variable. Value is number of register. */ __define_stab (N_RSYM, 0x40, "RSYM") /* Modula-2 compilation unit. Can someone say what info it contains? */ __define_stab (N_M2C, 0x42, "M2C") /* Line number in text segment. Desc is the line number; value is corresponding address. On Solaris2, the line number is relative to the start of the current function. */ __define_stab (N_SLINE, 0x44, "SLINE") /* Similar, for data segment. */ __define_stab (N_DSLINE, 0x46, "DSLINE") /* Similar, for bss segment. */ __define_stab (N_BSLINE, 0x48, "BSLINE") /* Sun's source-code browser stabs. ?? Don't know what the fields are. Supposedly the field is "path to associated .cb file". THIS VALUE OVERLAPS WITH N_BSLINE! */ __define_stab (N_BROWS, 0x48, "BROWS") /* GNU Modula-2 definition module dependency. Value is the modification time of the definition file. Other is non-zero if it is imported with the GNU M2 keyword %INITIALIZE. Perhaps N_M2C can be used if there are enough empty fields? */ __define_stab(N_DEFD, 0x4a, "DEFD") /* New in Solaris2. Function start/body/end line numbers. */ __define_stab(N_FLINE, 0x4C, "FLINE") /* THE FOLLOWING TWO STAB VALUES CONFLICT. Happily, one is for Modula-2 and one is for C++. Still,... */ /* GNU C++ exception variable. Name is variable name. */ __define_stab (N_EHDECL, 0x50, "EHDECL") /* Modula2 info "for imc": name,,0,0,0 according to Ultrix V4.0. */ __define_stab (N_MOD2, 0x50, "MOD2") /* GNU C++ `catch' clause. Value is its address. Desc is nonzero if this entry is immediately followed by a CAUGHT stab saying what exception was caught. Multiple CAUGHT stabs means that multiple exceptions can be caught here. If Desc is 0, it means all exceptions are caught here. */ __define_stab (N_CATCH, 0x54, "CATCH") /* Structure or union element. Value is offset in the structure. */ __define_stab (N_SSYM, 0x60, "SSYM") /* Solaris2: Last stab emitted for module. */ __define_stab (N_ENDM, 0x62, "ENDM") /* Name of main source file. Value is starting text address of the compilation. If multiple N_SO's appear, the first to contain a trailing / is the compilation directory. The first to not contain a trailing / is the source file name, relative to the compilation directory. Others (perhaps resulting from cfront) are ignored. On Solaris2, value is undefined, but desc is a source-language code. */ __define_stab (N_SO, 0x64, "SO") /* Automatic variable in the stack. Value is offset from frame pointer. Also used for type descriptions. */ __define_stab (N_LSYM, 0x80, "LSYM") /* Beginning of an include file. Only Sun uses this. In an object file, only the name is significant. The Sun linker puts data into some of the other fields. */ __define_stab (N_BINCL, 0x82, "BINCL") /* Name of sub-source file (#include file). Value is starting text address of the compilation. */ __define_stab (N_SOL, 0x84, "SOL") /* Parameter variable. Value is offset from argument pointer. (On most machines the argument pointer is the same as the frame pointer. */ __define_stab (N_PSYM, 0xa0, "PSYM") /* End of an include file. No name. This and N_BINCL act as brackets around the file's output. In an object file, there is no significant data in this entry. The Sun linker puts data into some of the fields. */ __define_stab (N_EINCL, 0xa2, "EINCL") /* Alternate entry point. Value is its address. */ __define_stab (N_ENTRY, 0xa4, "ENTRY") /* Beginning of lexical block. The desc is the nesting level in lexical blocks. The value is the address of the start of the text for the block. The variables declared inside the block *precede* the N_LBRAC symbol. On Solaris2, the value is relative to the start of the current function. */ __define_stab (N_LBRAC, 0xc0, "LBRAC") /* Place holder for deleted include file. Replaces a N_BINCL and everything up to the corresponding N_EINCL. The Sun linker generates these when it finds multiple identical copies of the symbols from an include file. This appears only in output from the Sun linker. */ __define_stab (N_EXCL, 0xc2, "EXCL") /* Modula-2 scope information. Can someone say what info it contains? */ __define_stab (N_SCOPE, 0xc4, "SCOPE") /* End of a lexical block. Desc matches the N_LBRAC's desc. The value is the address of the end of the text for the block. On Solaris2, the value is relative to the start of the current function. */ __define_stab (N_RBRAC, 0xe0, "RBRAC") /* Begin named common block. Only the name is significant. */ __define_stab (N_BCOMM, 0xe2, "BCOMM") /* End named common block. Only the name is significant (and it should match the N_BCOMM). */ __define_stab (N_ECOMM, 0xe4, "ECOMM") /* Member of a common block; value is offset within the common block. This should occur within a BCOMM/ECOMM pair. */ __define_stab (N_ECOML, 0xe8, "ECOML") /* Solaris2: Pascal "with" statement: type,,0,0,offset */ __define_stab (N_WITH, 0xea, "WITH") /* These STAB's are used on Gould systems for Non-Base register symbols or something like that. FIXME. I have assigned the values at random since I don't have a Gould here. Fixups from Gould folk welcome... */ __define_stab (N_NBTEXT, 0xF0, "NBTEXT") __define_stab (N_NBDATA, 0xF2, "NBDATA") __define_stab (N_NBBSS, 0xF4, "NBBSS") __define_stab (N_NBSTS, 0xF6, "NBSTS") __define_stab (N_NBLCS, 0xF8, "NBLCS") /* Second symbol entry containing a length-value for the preceding entry. The value is the length. */ __define_stab (N_LENG, 0xfe, "LENG") /* The above information, in matrix format. STAB MATRIX _________________________________________________ | 00 - 1F are not dbx stab symbols | | In most cases, the low bit is the EXTernal bit| | 00 UNDEF | 02 ABS | 04 TEXT | 06 DATA | | 01 |EXT | 03 |EXT | 05 |EXT | 07 |EXT | | 08 BSS | 0A INDR | 0C FN_SEQ | 0E WEAKA | | 09 |EXT | 0B | 0D WEAKU | 0F WEAKT | | 10 WEAKD | 12 COMM | 14 SETA | 16 SETT | | 11 WEAKB | 13 | 15 | 17 | | 18 SETD | 1A SETB | 1C SETV | 1E WARNING| | 19 | 1B | 1D | 1F FN | |_______________________________________________| | Debug entries with bit 01 set are unused. | | 20 GSYM | 22 FNAME | 24 FUN | 26 STSYM | | 28 LCSYM | 2A MAIN | 2C ROSYM | 2E | | 30 PC | 32 NSYMS | 34 NOMAP | 36 | | 38 OBJ | 3A | 3C OPT | 3E | | 40 RSYM | 42 M2C | 44 SLINE | 46 DSLINE | | 48 BSLINE*| 4A DEFD | 4C FLINE | 4E | | 50 EHDECL*| 52 | 54 CATCH | 56 | | 58 | 5A | 5C | 5E | | 60 SSYM | 62 ENDM | 64 SO | 66 | | 68 | 6A | 6C | 6E | | 70 | 72 | 74 | 76 | | 78 | 7A | 7C | 7E | | 80 LSYM | 82 BINCL | 84 SOL | 86 | | 88 | 8A | 8C | 8E | | 90 | 92 | 94 | 96 | | 98 | 9A | 9C | 9E | | A0 PSYM | A2 EINCL | A4 ENTRY | A6 | | A8 | AA | AC | AE | | B0 | B2 | B4 | B6 | | B8 | BA | BC | BE | | C0 LBRAC | C2 EXCL | C4 SCOPE | C6 | | C8 | CA | CC | CE | | D0 | D2 | D4 | D6 | | D8 | DA | DC | DE | | E0 RBRAC | E2 BCOMM | E4 ECOMM | E6 | | E8 ECOML | EA WITH | EC | EE | | F0 | F2 | F4 | F6 | | F8 | FA | FC | FE LENG | +-----------------------------------------------+ * 50 EHDECL is also MOD2. * 48 BSLINE is also BROWS. */ gdb-4.13/include/aout/stab_gnu.h 666 34562 1752 1464 5433760232 15114 0ustar fnfcygnus#ifndef __GNU_STAB__ /* Indicate the GNU stab.h is in use. */ #define __GNU_STAB__ #define __define_stab(NAME, CODE, STRING) NAME=CODE, enum __stab_debug_code { #include "aout/stab.def" LAST_UNUSED_STAB_CODE }; #undef __define_stab /* Definitions of "desc" field for N_SO stabs in Solaris2. */ #define N_SO_AS 1 #define N_SO_C 2 #define N_SO_ANSI_C 3 #define N_SO_CC 4 /* C++ */ #define N_SO_FORTRAN 5 #define N_SO_PASCAL 6 /* Solaris2: Floating point type values in basic types. */ #define NF_NONE 0 #define NF_SINGLE 1 /* IEEE 32-bit */ #define NF_DOUBLE 2 /* IEEE 64-bit */ #define NF_COMPLEX 3 /* Fortran complex */ #define NF_COMPLEX16 4 /* Fortran double complex */ #define NF_COMPLEX32 5 /* Fortran complex*16 */ #define NF_LDOUBLE 6 /* Long double (whatever that is) */ #endif /* __GNU_STAB_ */ gdb-4.13/include/aout/sun4.h 666 34562 1752 21334 5573446264 14234 0ustar fnfcygnus/* SPARC-specific values for a.out files */ #define PAGE_SIZE 0x2000 /* 8K. aka NBPG in */ /* Note that some SPARCs have 4K pages, some 8K, some others. */ #define SEG_SIZE_SPARC PAGE_SIZE #define SEG_SIZE_SUN3 0x20000 /* Resolution of r/w protection hw */ #define TEXT_START_ADDR PAGE_SIZE /* Location 0 is not accessible */ #define N_HEADER_IN_TEXT(x) 1 /* Non-default definitions of the accessor macros... */ /* Segment size varies on Sun-3 versus Sun-4. */ #define N_SEGSIZE(x) (N_MACHTYPE(x) == M_SPARC? SEG_SIZE_SPARC: \ N_MACHTYPE(x) == M_68020? SEG_SIZE_SUN3: \ /* Guess? */ PAGE_SIZE) /* Virtual Address of text segment from the a.out file. For OMAGIC, (almost always "unlinked .o's" these days), should be zero. Sun added a kludge so that shared libraries linked ZMAGIC get an address of zero if a_entry (!!!) is lower than the otherwise expected text address. These kludges have gotta go! For linked files, should reflect reality if we know it. */ /* This differs from the version in aout64.h (which we override by defining it here) only for NMAGIC (we return TEXT_START_ADDR+EXEC_BYTES_SIZE; they return 0). */ #define N_TXTADDR(x) \ (N_MAGIC(x)==OMAGIC? 0 \ : (N_MAGIC(x) == ZMAGIC && (x).a_entry < TEXT_START_ADDR)? 0 \ : TEXT_START_ADDR+EXEC_BYTES_SIZE) /* When a file is linked against a shared library on SunOS 4, the dynamic bit in the exec header is set, and the first symbol in the symbol table is __DYNAMIC. Its value is the address of the following structure. */ struct external_sun4_dynamic { /* The version number of the structure. SunOS 4.1.x creates files with version number 3, which is what this structure is based on. According to gdb, version 2 is similar. I believe that version 2 used a different type of procedure linkage table, and there may have been other differences. */ bfd_byte ld_version[4]; /* The virtual address of a 28 byte structure used in debugging. The contents are filled in at run time by ld.so. */ bfd_byte ldd[4]; /* The virtual address of another structure with information about how to relocate the executable at run time. */ bfd_byte ld[4]; }; /* The size of the debugging structure pointed to by the debugger field of __DYNAMIC. */ #define EXTERNAL_SUN4_DYNAMIC_DEBUGGER_SIZE (24) /* The structure pointed to by the linker field of __DYNAMIC. As far as I can tell, most of the addresses in this structure are offsets within the file, but some are actually virtual addresses. */ struct internal_sun4_dynamic_link { /* Linked list of loaded objects. This is filled in at runtime by ld.so and probably by dlopen. */ long ld_loaded; /* The address of the list of names of shared objects which must be included at runtime. Each entry in the list is 16 bytes: the 4 byte address of the string naming the object (e.g., for -lc this is "c"); 4 bytes of flags--the high bit is whether to search for the object using the library path; the 2 byte major version number; the 2 byte minor version number; the 4 byte address of the next entry in the list (zero if this is the last entry). The version numbers seem to only be non-zero when doing library searching. */ long ld_need; /* The address of the path to search for the shared objects which must be included. This points to a string in PATH format which is generated from the -L arguments to the linker. According to the man page, ld.so implicitly adds ${LD_LIBRARY_PATH} to the beginning of this string and /lib:/usr/lib:/usr/local/lib to the end. The string is terminated by a null byte. This field is zero if there is no additional path. */ long ld_rules; /* The address of the global offset table. This appears to be a virtual address, not a file offset. The first entry in the global offset table seems to be the virtual address of the sun4_dynamic structure (the same value as the __DYNAMIC symbol). The global offset table is used for PIC code, but I'm not sure of the exact details. A dynamically linked file which does not itself contain PIC code has a four byte global offset table. */ long ld_got; /* The address of the procedure linkage table. This appears to be a virtual address, not a file offset. On a SPARC, the table is composed of 12 byte entries, each of which consists of three instructions. The first entry is sethi %hi(0),%g1 jmp %g1 nop These instructions are changed by ld.so into a jump directly into ld.so itself. Each subsequent entry is save %sp, -96, %sp call
The reloc_number is the number of the reloc to use to resolve this entry. The reloc will be a JMP_SLOT reloc against some symbol that is not defined in this object file but should be defined in a shared object (if it is not, ld.so will report a runtime error and exit). The constant 0x010000000 turns the reloc number into a sethi of %g0, which does nothing since %g0 is hardwired to zero. When one of these entries is executed, it winds up calling into ld.so. ld.so looks at the reloc number, available via the return address, to determine which entry this is. It then looks at the reloc and patches up the entry in the table into a sethi and jmp to the real address followed by a nop. This means that the reloc lookup only has to happen once, and it also means that the relocation only needs to be done if the function is actually called. The relocation is expensive because ld.so must look up the symbol by name. The size of the procedure linkage table is given by the ld_plt_sz field. */ long ld_plt; /* The address of the relocs. These are in the same format as ordinary relocs. Symbol index numbers refer to the symbols pointed to by ld_stab. I think the only way to determine the number of relocs is to assume that all the bytes from ld_rel to ld_hash contain reloc entries. */ long ld_rel; /* The address of a hash table of symbols. The hash table has roughly the same number of entries as there are dynamic symbols; I think the only way to get the exact size is to assume that every byte from ld_hash to ld_stab is devoted to the hash table. Each entry in the hash table is eight bytes. The first four bytes are a symbol index into the dynamic symbols. The second four bytes are the index of the next hash table entry in the bucket. The ld_buckets field gives the number of buckets, say B. The first B entries in the hash table each start a bucket which is chained through the second four bytes of each entry. A value of zero ends the chain. The hash function is simply h = 0; while (*string != '\0') h = (h << 1) + *string++; h &= 0x7fffffff; To look up a symbol, compute the hash value of the name. Take the modulos of hash value and the number of buckets. Start at that entry in the hash table. See if the symbol (from the first four bytes of the hash table entry) has the name you are looking for. If not, use the chain field (the second four bytes of the hash table entry) to move on to the next entry in this bucket. If the chain field is zero you have reached the end of the bucket, and the symbol is not in the hash table. */ long ld_hash; /* The address of the symbol table. This is a list of external_nlist structures. The string indices are relative to the ld_symbols field. I think the only way to determine the number of symbols is to assume that all the bytes between ld_stab and ld_symbols are external_nlist structures. */ long ld_stab; /* I don't know what this is for. It seems to always be zero. */ long ld_stab_hash; /* The number of buckets in the hash table. */ long ld_buckets; /* The address of the symbol string table. The first string in this string table need not be the empty string. */ long ld_symbols; /* The size in bytes of the symbol string table. */ long ld_symb_size; /* The size in bytes of the text segment. */ long ld_text; /* The size in bytes of the procedure linkage table. */ long ld_plt_sz; }; /* The external form of the structure. */ struct external_sun4_dynamic_link { bfd_byte ld_loaded[4]; bfd_byte ld_need[4]; bfd_byte ld_rules[4]; bfd_byte ld_got[4]; bfd_byte ld_plt[4]; bfd_byte ld_rel[4]; bfd_byte ld_hash[4]; bfd_byte ld_stab[4]; bfd_byte ld_stab_hash[4]; bfd_byte ld_buckets[4]; bfd_byte ld_symbols[4]; bfd_byte ld_symb_size[4]; bfd_byte ld_text[4]; bfd_byte ld_plt_sz[4]; }; gdb-4.13/include/COPYING 666 34562 1752 43076 5026202274 13244 0ustar fnfcygnus GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. gdb-4.13/include/ChangeLog 666 34562 1752 61452 5620266100 13757 0ustar fnfcygnusTue Aug 2 14:40:03 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * os9k.h: Remove u_int16, u_int32, and owner_id typedefs and expand their uses. Those names conflict with Mach headers. Sun Jul 10 00:26:39 1994 Ian Dall (dall@hfrd.dsto.gov.au) * dis-asm.h: Add print_insn_ns32k declaration. Mon Jun 20 17:13:29 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * bfdlink.h (bfd_link_hash_table): Make creator a const pointer. Sat Jun 18 16:09:32 1994 Stan Shebs (shebs@andros.cygnus.com) * demangle.h (cplus_demangle_opname): Declare. Thu Jun 16 15:19:03 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfdlink.h (struct bfd_link_info): Add new field shared. Mon Jun 6 14:39:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfdlink.h (struct bfd_link_hash_entry): Remove written field: not needed for all backends. Thu Apr 28 19:06:50 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * dis-asm.h (disassembler): Declare. Fri Apr 1 00:38:17 1994 Jim Wilson (wilson@mole.gnu.ai.mit.edu) * obstack.h: Delete use of IN_GCC to control whether stddef.h or gstddef.h is included. Tue Mar 22 13:06:02 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfdlink.h (enum bfd_link_order_type): Add bfd_data_link_order. (struct bfd_link_order): Add data field to union. Mon Mar 21 18:45:26 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfdlink.h (struct bfd_link_callbacks): Change bitsize argument to add_to_set to reloc. Remove bitsize argument from constructor. Comment that reloc_overflow, reloc_dangerous and unattached_reloc must handle NULL pointers for reloc location. (enum bfd_link_order_type): Add bfd_section_reloc_link_order and bfd_symbol_reloc_link_order. (struct bfd_link_order): Add reloc field to union. (struct bfd_link_order_reloc): Define. Mon Mar 14 12:27:50 1994 Ian Lance Taylor (ian@cygnus.com) * ieee-float.h: Removed; no longer used. Tue Mar 1 18:10:49 1994 Kung Hsu (kung@mexican.cygnus.com) * os9k.h: os9000 target specific header file, the header of the object file is used now. Sun Feb 27 21:52:26 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * floatformat.h: New file, intended to replace ieee-float.h. Sun Feb 20 17:15:42 1994 Ian Lance Taylor (ian@lisa.cygnus.com) * ansidecl.h (ANSI_PROTOTYPES): Define if using ANSI prototypes. Wed Feb 16 01:07:12 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * libiberty.h: Don't declare strsignal, to avoid conflicts with Solaris system header files. Sat Feb 12 22:11:32 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * libiberty.h (xexit): Use __volatile__ to avoid losing if compiling with gcc -traditional. Thu Feb 10 14:05:41 1994 Ian Lance Taylor (ian@cygnus.com) * libiberty.h: New file. Declares functions provided by libiberty. Tue Feb 8 05:19:52 1994 David J. Mackenzie (djm@thepub.cygnus.com) Handle obstack_chunk_alloc returning NULL. This allows obstacks to be used by libraries, without forcing them to call exit or longjmp. * obstack.h (struct obstack): Add alloc_failed flag. _obstack_begin, _obstack_begin_1): Declare to return int, not void. (obstack_finish): If alloc_failed, return NULL. (obstack_base, obstack_next_free, objstack_object_size): If alloc_failed, return 0. (obstack_grow, obstack_grow0, obstack_1grow, obstack_ptr_grow, obstack_int_grow, obstack_blank): If alloc_failed, do nothing that could corrupt the obstack. Mon Jan 24 15:06:05 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfdlink.h (struct bfd_link_callbacks): Add name, reloc_name and addend argments to reloc_overflow callback. Fri Jan 21 19:13:12 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * dis-asm.h (print_insn_big_powerpc, print_insn_little_powerpc, print_insn_rs6000): Declare. Thu Jan 6 14:15:55 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfdlink.h (struct bfd_link_callbacks): Add bitsize argument to add_to_set field. Add new callback named constructor. Thu Dec 30 10:44:06 1993 Ian Lance Taylor (ian@rtl.cygnus.com) * bfdlink.h: New file for new BFD linker backend routines. Mon Nov 29 10:43:57 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * dis-asm.h (enum dis_insn_tyupe): Remove non-ANSI trailing comma. Sat Oct 2 20:42:26 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * dis-asm.h: Move comment to right place. Mon Aug 9 19:03:35 1993 David J. Mackenzie (djm@thepub.cygnus.com) * obstack.h (obstack_chunkfun, obstack_freefun): Add defns from previous version. Are these Cygnus local changes? Fri Aug 6 17:05:47 1993 David J. Mackenzie (djm@thepub.cygnus.com) * getopt.h, obstack.h: Update to latest FSF version. Mon Aug 2 16:37:14 1993 Stu Grossman (grossman at cygnus.com) * coff/i386.h: Add Lynx magic number. Mon Aug 2 14:45:29 1993 John Gilmore (gnu@cygnus.com) * dis-asm.h: Move enum outside of struct defn to avoid warnings. Mon Aug 2 08:49:30 1993 Stu Grossman (grossman at cygnus.com) * wait.h (WEXITSTATUS, WSTOPSIG): Mask down to 8 bits. This is for systems that store stuff into the high 16 bits of a wait status. Fri Jul 30 18:38:02 1993 John Gilmore (gnu@cygnus.com) * dis-asm.h: Add new fields insn_info_valid, branch_delay_insns, data_size, insn_type, target, target2. These are used to return information from the instruction decoders back to the calling program. Add comments, make more readable. Mon Jul 19 22:14:14 1993 Fred Fish (fnf@deneb.cygnus.com) * nlm: New directory containing NLM/NetWare includes. Thu Jul 15 12:10:04 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * dis-asm.h (struct disassemble_info): New field application_data. Thu Jul 15 12:41:15 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * dis-asm.h: Added declaration of print_insn_m88k. Thu Jul 8 09:05:26 1993 Doug Evans (dje@canuck.cygnus.com) * opcode/h8300.h: Lots of little fixes for the h8/300h. Fri Jul 2 10:31:59 1993 Ian Lance Taylor (ian@cygnus.com) * ansidecl.h: Use ANSI macros if __mips and _SYSTYPE_SVR4 are defined, since RISC/OS cc handles ANSI declarations in SVR4 mode but does not define __STDC__. Sun Jun 20 18:27:52 1993 Ken Raeburn (raeburn@poseidon.cygnus.com) * dis-asm.h: Don't need to include ansidecl.h any more. Fri Jun 18 03:22:10 1993 John Gilmore (gnu@cygnus.com) * oasys.h: Eliminate "int8_type", "int16_type", "int32_type", and their variants. These changes are coordinated with corresponding changes in ../bfd/oasys.c. Wed Jun 16 10:43:08 1993 Fred Fish (fnf@cygnus.com) * bfd.h: Note that it has been removed. Tue Jun 8 12:16:03 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) Support for H8/300-H * dis-asm.h (print_insn_h8300, print_insn_h8300h): Declare it. * coff/h8300.h: New magic number. * coff/internal.h: New relocations. * opcode/h8300.h: Lots of new opcodes. Tue Jun 1 07:35:03 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com) * ansidecl.h (const): Don't define it if it's already defined. Thu May 27 18:19:51 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * dis-asm.h (print_insn_hppa): Declare it. * bfd.h: Moved to bfd directory. Small stub here includes it without requiring "-I../bfd". Thu Apr 29 12:06:13 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * bfd.h: Updated with BSF_FUNCTION. Mon Apr 26 18:15:50 1993 Steve Chamberlain (sac@thepub.cygnus.com) * bfd.h, dis-asm.h: Updated with Hitachi SH. Fri Apr 23 18:41:38 1993 Steve Chamberlain (sac@thepub.cygnus.com) * bfd.h: Updated with alpha changes. * dis-asm.h: Added alpha. Fri Apr 16 17:35:30 1993 Jim Kingdon (kingdon@cygnus.com) * bfd.h: Update for signed bfd_*get_*. Thu Apr 15 09:24:21 1993 Jim Kingdon (kingdon@cygnus.com) * bfd.h: Updated for file_truncated error. Thu Apr 8 10:53:47 1993 Ian Lance Taylor (ian@cygnus.com) * ansidecl.h: If no ANSI, define const to be empty. Thu Apr 1 09:00:10 1993 Jim Kingdon (kingdon@cygnus.com) * dis-asm.h: Declare a29k and i960 print_insn_*. * dis-asm.h: Add print_address_func and related stuff. * dis-asm.h (dis_asm_read_memory): Fix prototype. Wed Mar 31 17:40:16 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * dis-asm.h: Add print_insn_sparc. Wed Mar 31 17:51:42 1993 Ian Lance Taylor (ian@cygnus.com) * bfd.h: Updated for BFD_RELOC_MIPS_GPREL and bfd_[gs]et_gp_size prototypes. Wed Mar 31 16:35:12 1993 Stu Grossman (grossman@cygnus.com) * dis-asm.h: (disassemble_info): Fix typo in prototype of dis_asm_memory_error(). Tue Mar 30 19:09:23 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * dis-asm.h (disassembler_info): Add read_memory_func, memory_error_func, buffer, and length. ({GDB_,}INIT_DISASSEMBLE_INFO): Set them. print_insn_*: Remove second argument. Tue Mar 30 14:48:55 1993 Steve Chamberlain (sac@thepub.cygnus.com) * bfd.h: Update for lma field of section. Tue Mar 30 12:22:55 1993 Jim Kingdon (kingdon@cygnus.com) * ansidecl.h: Use ANSI versions on AIX regardless of __STDC__. Fri Mar 19 14:49:49 1993 Steve Chamberlain (sac@thepub.cygnus.com) * dis-asm.h: Add h8500. Thu Mar 18 13:49:09 1993 Per Bothner (bothner@rtl.cygnus.com) * ieee-float.h: Moved from ../gdb. * dis-asm.h: New file. Interface to dis-assembler. Thu Mar 11 10:52:57 1993 Fred Fish (fnf@cygnus.com) * demangle.h (DMGL_NO_OPTS): Add define (set to 0) to use in place of bare 0, for readability reasons. Tue Mar 2 17:50:11 1993 Fred Fish (fnf@cygnus.com) * demangle.h: Replace all references to cfront with ARM. Tue Feb 23 12:21:14 1993 Ian Lance Taylor (ian@cygnus.com) * bfd.h: Update for new elements in JUMP_TABLE. Tue Feb 16 00:51:30 1993 John Gilmore (gnu@cygnus.com) * bfd.h: Update for BFD_VERSION 2.1. Tue Jan 26 11:49:20 1993 Ian Lance Taylor (ian@cygnus.com) * bfd.h: Update for SEC_IS_COMMON flag. Tue Jan 19 12:25:12 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfd.h: Update for bfd_asymbol_value bug fix. Fri Jan 8 16:37:18 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * bfd.h: Update to include ECOFF tdata and target_flavour. Sun Dec 27 17:52:30 1992 Fred Fish (fnf@cygnus.com) * bfd.h: Add declaration for bfd_get_size(). Tue Dec 22 22:42:46 1992 Fred Fish (fnf@cygnus.com) * demangle.h: Protect file from multiple inclusions with #if !defined(DEMANGLE_H)...#define DEMANGLE_H...#endif. Mon Dec 21 21:25:50 1992 Stu Grossman (grossman at cygnus.com) * bfd.h: Update to get hppa_core_struct from bfd.c. Thu Dec 17 00:42:35 1992 John Gilmore (gnu@cygnus.com) * bfd.h: Update to get tekhex tdata name change from bfd. Mon Nov 9 23:55:42 1992 John Gilmore (gnu@cygnus.com) * ansidecl.h: Update comments to discourage use of EXFUN. Thu Nov 5 16:35:44 1992 Ian Lance Taylor (ian@cygnus.com) * bfd.h: Update to bring in SEC_SHARED_LIBRARY. Thu Nov 5 03:21:32 1992 John Gilmore (gnu@cygnus.com) * bfd.h: Update to match EXFUN, bfd_seclet_struct, and SDEF cleanups in bfd. Wed Nov 4 07:28:05 1992 Ken Raeburn (raeburn@cygnus.com) * bout.h (N_CALLNAME, N_BALNAME): Define as char-type values, so widening works consistently. Fri Oct 16 03:17:08 1992 John Gilmore (gnu@cygnus.com) * getopt.h: Update to Revised Standard FSF Version. Thu Oct 15 21:43:22 1992 K. Richard Pixley (rich@sendai.cygnus.com) * getopt.h (struct option): use the provided enum for has_arg. * demangle.h (AUTO_DEMANGLING, GNU_DEMANGLING, LUCID_DEMANGLING): ultrix compilers require enums to be enums and ints to be ints and casts where they meet. cast some enums into ints. Thu Oct 15 04:35:51 1992 John Gilmore (gnu@cygnus.com) * bfd.h: Update after comment changes. Thu Oct 8 09:03:02 1992 Steve Chamberlain (sac@thepub.cygnus.com) * bfd.h (bfd_get_symbol_leading_char): new macro for getting in xvec Thu Sep 3 09:10:50 1992 Stu Grossman (grossman at cygnus.com) * bfd.h (struct reloc_howto_struct): size needs to be signed if it's going to hold negative values. Sun Aug 30 17:50:27 1992 Per Bothner (bothner@rtl.cygnus.com) * demangle.h: New file, moved from ../gdb. Made independent of gdb. Allow demangling style option to be passed as a parameter to cplus_demangle(), but using the current_demangling_style global as the default. Sat Aug 29 10:07:55 1992 Fred Fish (fnf@cygnus.com) * obstack.h: Merge comment change from current FSF version. Thu Aug 27 12:59:29 1992 Brendan Kehoe (brendan@cygnus.com) * bfd.h: add we32k Tue Aug 25 15:07:47 1992 Steve Chamberlain (sac@thepub.cygnus.com) * bfd.h: new after Z8000 stuff Mon Aug 17 09:01:23 1992 Ken Raeburn (raeburn@cygnus.com) * bfd.h: Regenerated after page/segment size changes. Sat Aug 1 13:46:31 1992 Fred Fish (fnf@cygnus.com) * obstack.h: Merge changes from current FSF version. Mon Jul 20 21:06:23 1992 Fred Fish (fnf@cygnus.com) * obstack.h (area_id, flags): Remove, replace with extra_arg, use_extra_arg, and maybe_empty_object. * obstack.h (OBSTACK_MAYBE_EMPTY_OBJECT, OBSTACK_MMALLOC_LIKE): Remove, replaced by maybe_empty_object and use_extra_arg bitfields. * obstack.h (obstack_full_begin, _obstack_begin): Remove area_id and flags arguments. * obstack.h (obstack_alloc_arg): New macro to set extra_arg. Thu Jul 16 08:12:44 1992 Steve Chamberlain (sac@thepub.cygnus.com) * bfd.h: new after adding BFD_IS_RELAXABLE Sat Jul 4 03:22:23 1992 John Gilmore (gnu at cygnus.com) * bfd.h: Regen after adding BSF_FILE. Mon Jun 29 14:18:36 1992 Fred Fish (fnf at sunfish) * obstack.h: Convert bcopy() use to memcpy(), which is more portable, more standard, and can take advantage of gcc's builtin functions for increased performance. Thu Jun 25 04:46:08 1992 John Gilmore (gnu at cygnus.com) * ansidecl.h (PARAMS): Incorporate this macro from gdb's defs.h. It's a cleaner way to forward-declare function prototypes. Fri Jun 19 15:46:32 1992 Stu Grossman (grossman at cygnus.com) * bfd.h: HPPA merge. Tue Jun 16 21:30:56 1992 K. Richard Pixley (rich@cygnus.com) * getopt.h: gratuitous white space changes merged from other prep releases. Thu Jun 11 01:10:55 1992 John Gilmore (gnu at cygnus.com) * bfd.h: Regen'd from bfd.c after removing elf_core_tdata_struct. Mon May 18 17:29:03 1992 K. Richard Pixley (rich@cygnus.com) * getopt.h: merged changes from make-3.62.11. * getopt.h: merged changes from grep-1.6 (alpha). Fri May 8 14:53:32 1992 K. Richard Pixley (rich@cygnus.com) * getopt.h: merged changes from bison-1.18. Sat Mar 14 17:25:20 1992 Fred Fish (fnf@cygnus.com) * obstack.h: Add "area_id" and "flags" members to obstack structure. Add obstack_chunkfun() and obstack_freefun() to set functions explicitly. Convert maybe_empty_object to a bit in "flags". Thu Feb 27 22:01:02 1992 Per Bothner (bothner@cygnus.com) * wait.h (WIFSTOPPED): Add IBM rs6000-specific version. Fri Feb 21 20:49:20 1992 John Gilmore (gnu at cygnus.com) * obstack.h: Add obstack_full_begin. * bfd.h, obstack.h: Protolint. Thu Jan 30 01:18:42 1992 John Gilmore (gnu at cygnus.com) * bfd.h: Remove comma from enum declaration. Mon Jan 27 22:01:13 1992 Steve Chamberlain (sac at cygnus.com) * bfd.h : new target entr, bfd_relax_section Wed Dec 18 17:19:44 1991 Stu Grossman (grossman at cygnus.com) * bfd.h, ieee.h, opcode/m68k.h, opcode/sparc.h: ANSIfy enums. Thu Dec 12 20:59:56 1991 John Gilmore (gnu at cygnus.com) * fopen-same.h, fopen-bin.h: New files for configuring whether fopen distinguishes binary files or not. For use by host-dependent config files. Sat Nov 30 20:46:43 1991 Steve Chamberlain (sac at rtl.cygnus.com) * bfd.h: change the documentation format. * created coff, elf and opcode and aout directories. Moved: aout64.h ==> aout/aout64.h ar.h ==> aout/ar.h a.out.encap.h ==> aout/encap.h a.out.host.h ==> aout/host.h a.out.hp.h ==> aout/hp.h a.out.sun4.h ==> aout/sun4.h ranlib.h ==> aout/ranlib.h reloc.h ==> aout/reloc.h stab.def ==> aout/stab.def stab.gnu.h ==> aout/stab_gnu.h coff-a29k.h ==> coff/a29k.h coff-h8300.h ==> coff/h8300.h coff-i386.h ==> coff/i386.h coff-i960.h ==> coff/i960.h internalcoff.h ==> coff/internal.h coff-m68k.h ==> coff/m68k.h coff-m88k.h ==> coff/m88k.h coff-mips.h ==> coff/mips.h coff-rs6000.h ==> coff/rs6000.h elf-common.h ==> elf/common.h dwarf.h ==> elf/dwarf.h elf-external.h ==> elf/external.h elf-internal.h ==> elf/internal.h a29k-opcode.h ==> opcode/a29k.h arm-opcode.h ==> opcode/arm.h h8300-opcode.h ==> opcode/h8300.h i386-opcode.h ==> opcode/i386.h i860-opcode.h ==> opcode/i860.h i960-opcode.h ==> opcode/i960.h m68k-opcode.h ==> opcode/m68k.h m88k-opcode.h ==> opcode/m88k.h mips-opcode.h ==> opcode/mips.h np1-opcode.h ==> opcode/np1.h ns32k-opcode.h ==> opcode/ns32k.h pn-opcode.h ==> opcode/pn.h pyr-opcode.h ==> opcode/pyr.h sparc-opcode.h ==> opcode/sparc.h tahoe-opcode.h ==> opcode/tahoe.h vax-opcode.h ==> opcode/vax.h Wed Nov 27 10:38:31 1991 Steve Chamberlain (sac at rtl.cygnus.com) * internalcoff.h: (internal_scnhdr) took out #def dependency, now s_nreloc and s_nlnno are always long. (internal_reloc): allways has an offset field now. Fri Nov 22 08:12:58 1991 John Gilmore (gnu at cygnus.com) * coff-rs6000.h: Lint; use unsigned chars for external fields. * internalcoff.h: Lint; cast storage classes to signed char. Thu Nov 21 21:01:05 1991 Per Bothner (bothner at cygnus.com) * stab.def: Remove the GNU extended type codes (e.g. N_SETT). * aout64.h: The heuristic for distinguishing between sunos-style and bsd-style ZMAGIC files (wrt. where the text segment starts) is moved into (the default definition of) the macro N_HEADER_IN_TEXT. This definition is only used if no other definition is used - e.g. bfd/newsos3.c defines N_HEADER_IN_TEXT(x) to be always 0 (as before). Thu Nov 21 11:53:03 1991 John Gilmore (gnu at cygnus.com) * aout64.h (N_TXTADDR, N_TXTOFF, N_TXTSIZE): New definitions that should handle all uses. LOGICAL_ versions deleted. Eliminate N_HEADER_IN_TEXT, using a_entry to determine which kind of zmagic a.out file we are looking at. * coff-rs6000.h: Typo. Tue Nov 19 18:43:37 1991 Per Bothner (bothner at cygnus.com) (Note: This is a revised entry, as was aout64.h.) * aout64.h: Some cleanups of N_TXTADDR and N_TXTOFF: Will now work for both old- and new-style ZMAGIC files, depending on N_HEADER_IN_TEXT macro. Add LOGICAL_TXTADDR, LOICAL_TXTOFF and LOGICAL_TXTSIZE that don't count the exec header as part of the text segment, to be consistent with bfd. * a.out.sun4.h: Simplified/fixed for previous change. Mon Nov 18 00:02:06 1991 Fred Fish (fnf at cygnus.com) * dwarf.h: Update to DWARF draft 5 version from gcc2. Thu Nov 14 19:44:59 1991 Per Bothner (bothner at cygnus.com) * stab.def: Added defs for extended GNU symbol types, such as N_SETT. These are normally ifdef'd out (because of conflicts with a.out.gnu.h), but are used by bfb_stab_name(). Thu Nov 14 19:17:03 1991 Fred Fish (fnf at cygnus.com) * elf-common.h: Add defines to support ELF symbol table code. Mon Nov 11 19:01:06 1991 Fred Fish (fnf at cygnus.com) * elf-internal.h, elf-external.h, elf-common.h: Add support for note sections, which are used in ELF core files to hold copies of various /proc structures. Thu Nov 7 08:58:26 1991 Steve Chamberlain (sac at cygnus.com) * internalcoff.h: took out the M88 dependency in the lineno struct. * coff-m88k.h: defines GET_LINENO_LNNO and PUT_LINENO_LNNO to use 32bit linno entries. * a29k-opcode.h: fixed encoding of mtacc Sun Nov 3 11:54:22 1991 Per Bothner (bothner at cygnus.com) * bfd.h: Updated from ../bfd/bfd-in.h (q.v). Fri Nov 1 11:13:53 1991 John Gilmore (gnu at cygnus.com) * internalcoff.h: Add x_csect defines. Fri Oct 25 03:18:20 1991 John Gilmore (gnu at cygnus.com) * Rename COFF-related files in `coff-ARCH.h' form. coff-a29k.h, coff-i386.h, coff-i960.h, coff-m68k.h, coff-m88k.h, coff-mips.h, coff-rs6000.h to be exact. Thu Oct 24 22:11:11 1991 John Gilmore (gnu at cygnus.com) RS/6000 support, by Metin G. Ozisik, Mimi Phûông-Thåo Võ, and John Gilmore. * a.out.gnu.h: Update slightly. * bfd.h: Add new error code, fix doc, add bfd_arch_rs6000. * internalcoff.h: Add more F_ codes for filehdr. Add rs/6000-dependent fields to aouthdr. Add storage classes to syments. Add 6000-specific auxent. Add r_size in reloc. * rs6000coff.c: New file. Thu Oct 24 04:13:20 1991 Fred Fish (fnf at cygnus.com) * dwarf.h: New file for dwarf support. Copied from gcc2 distribution. Wed Oct 16 13:31:45 1991 John Gilmore (gnu at cygnus.com) * aout64.h: Remove PAGE_SIZE defines; they are target-dependent. Add N_FN_SEQ for N_FN symbol type used on Sequent machines. * stab.def: Include N_FN_SEQ in table. * bout.h: External formats of structures use unsigned chars. Fri Oct 11 12:40:43 1991 Steve Chamberlain (steve at cygnus.com) * bfd.h:upgrade from bfd.c * internalcoff.h: add n_name, n_zeroes and n_offset macros * amdcoff.h: Define OMAGIC and AOUTHDRSZ. Fri Oct 11 10:58:06 1991 Per Bothner (bothner at cygnus.com) * a.out.host.h: Change SEGMENT_SIZE to 0x1000 for Sony. * bfd.h (align_power): Add (actually move) comment. Tue Oct 8 15:29:32 1991 Per Bothner (bothner at cygnus.com) * sys/h-rtbsd.h: Define MISSING_VFPRINT (for binutils/bucomm.c). Sun Oct 6 19:24:39 1991 John Gilmore (gnu at cygnus.com) * aout64.h: Move struct internal_exec to ../bfd/libaout.h so it can be shared by all `a.out-family' code. Rename EXTERNAL_LIST_SIZE to EXTERNAL_NLIST_SIZE. Use basic types for nlist members, and make strx integral rather than pointer. More commentary on n_type values. * bout.h: Provide a struct external_exec rather than an internal_exec. * m68kcoff.h: Remove `tagentries' which snuck in from the i960 COFF port. Fri Oct 4 01:25:59 1991 John Gilmore (gnu at cygnus.com) * h8300-opcode.h: Remove `_enum' from the typedef for an enum. * bfd.h: Update to match bfd changes. * sys/h-i386mach.h, sysdep.h: Add 386 Mach host support. Tue Oct 1 04:58:42 1991 John Gilmore (gnu at cygnus.com) * bfd.h, elf-common.h, elf-external.h, elf-internal.h: Add preliminary ELF support, sufficient for GDB, from Fred Fish. * sysdep.h, sys/h-amix.h: Support Amiga SVR4. * sys/h-vaxult.h: Make it work. (David Taylor ) * a.out.vax.h: Remove unused and confusing file. Mon Sep 30 12:52:35 1991 Per Bothner (bothner at cygnus.com) * sysdep.h: Define NEWSOS3_SYS, and use it. Fri Sep 20 13:38:21 1991 John Gilmore (gnu at cygnus.com) * a.out.gnu.h (N_FN): Its value *really is* 0x1F. Fix it, and add comments warning about or-ing N_EXT with it and/or N_WARNING. * aout64.h (N_FN): Fix value, add comments about N_EXT. * stab.def (table at end): Update to show all the type values <0x20, including low order bits. Move N_FN to its rightful place. Tue Sep 17 17:41:37 1991 Stu Grossman (grossman at cygnus.com) * sys/h-irix3.h: sgi/irix support. Tue Sep 17 07:52:59 1991 John Gilmore (gnu at cygint.cygnus.com) * stab.def (N_DEFD): Add GNU Modula-2 debug stab, from Andrew Beers. Thu Sep 12 14:12:59 1991 John Gilmore (gnu at cygint.cygnus.com) * internalcoff.h (SYMNMLEN, FILNMLEN, DIMNUM): Define these for internalcoff, separately from the various external coff's. * amdcoff.h, bcs88kcoff.h, i386coff.h, intel-coff.h, m68kcoff.h, m88k-bcs.h: Prefix SYMNMLEN, FILNMLEN, and DIMNUM with E_'s for the external struct definitions. * ecoff.h: Remove these #define's, kludge no longer needed. * sys/h-ultra3.h: Add new Ultracomputer host. * sysdep.h: Add ULTRA3_SYM1_SYS and use it. Tue Sep 10 10:11:46 1991 John Gilmore (gnu at cygint.cygnus.com) * i386coff.h (LINESZ): Always 6, not based on sizeof(). (Fix from Peter Schauer .) Wed Sep 4 08:58:37 1991 John Gilmore (gnu at cygint.cygnus.com) * a.out.gnu.h, aout64.h: Add N_WARNING. Change N_FN to 0x0E, to match SunOS and BSD. Add N_COMM as 0x12 for SunOS shared lib support. * stab.def: Add N_COMM to table, fix overlap comment. Tue Sep 3 06:29:20 1991 John Gilmore (gnu at cygint.cygnus.com) Merge with latest FSF versions of these files. * stab.gnu.h: Add LAST_UNUSED_STAB_CODE. * stab.def: Update to GPL2. Move N_WARNING out, since not a debug symbol. Change comments, and reorder table to numeric order. Update final table comment. (N_DSLINE, N_BSLINE): Renumber from 0x66 and 0x68, to 0x46 and 0x48. * obstack.h: GPL2. Merge. Fri Aug 23 01:54:23 1991 John Gilmore (gnu at cygint.cygnus.com) * a.out.gnu.h, a.out.sun4.h: Make SEGMENT_SIZE able to depend on the particular a.out being examined. * a.out.sun4.h: Define segment sizes for Sun-3's and Sun-4's. * FIXME: a.out.gnu.h is almost obsolete. * FIXME: a.out.sun4.h should be renamed a.out.sun.h now. Wed Aug 21 20:32:13 1991 John Gilmore (gnu at cygint.cygnus.com) * Start a ChangeLog for the includes directory. * a.out.gnu.h (N_FN): Fix value -- was 15, should be 0x1E. * stab.def: Update allocation table in comments at end, to reflect reality as I know it. Local Variables: mode: indented-text left-margin: 8 fill-column: 74 version-control: never End: gdb-4.13/include/ansidecl.h 666 34562 1752 10406 5532006061 14131 0ustar fnfcygnus/* ANSI and traditional C compatability macros Copyright 1991, 1992 Free Software Foundation, Inc. This file is part of the GNU C Library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* ANSI and traditional C compatibility macros ANSI C is assumed if __STDC__ is #defined. Macro ANSI C definition Traditional C definition ----- ---- - ---------- ----------- - ---------- PTR `void *' `char *' LONG_DOUBLE `long double' `double' VOLATILE `volatile' `' SIGNED `signed' `' PTRCONST `void *const' `char *' ANSI_PROTOTYPES 1 not defined CONST is also defined, but is obsolete. Just use const. DEFUN (name, arglist, args) Defines function NAME. ARGLIST lists the arguments, separated by commas and enclosed in parentheses. ARGLIST becomes the argument list in traditional C. ARGS list the arguments with their types. It becomes a prototype in ANSI C, and the type declarations in traditional C. Arguments should be separated with `AND'. For functions with a variable number of arguments, the last thing listed should be `DOTS'. DEFUN_VOID (name) Defines a function NAME, which takes no arguments. obsolete -- EXFUN (name, (prototype)) -- obsolete. Replaced by PARAMS. Do not use; will disappear someday soon. Was used in external function declarations. In ANSI C it is `NAME PROTOTYPE' (so PROTOTYPE should be enclosed in parentheses). In traditional C it is `NAME()'. For a function that takes no arguments, PROTOTYPE should be `(void)'. PARAMS ((args)) We could use the EXFUN macro to handle prototype declarations, but the name is misleading and the result is ugly. So we just define a simple macro to handle the parameter lists, as in: static int foo PARAMS ((int, char)); This produces: `static int foo();' or `static int foo (int, char);' EXFUN would have done it like this: static int EXFUN (foo, (int, char)); but the function is not external...and it's hard to visually parse the function name out of the mess. EXFUN should be considered obsolete; new code should be written to use PARAMS. For example: extern int printf PARAMS ((CONST char *format DOTS)); int DEFUN(fprintf, (stream, format), FILE *stream AND CONST char *format DOTS) { ... } void DEFUN_VOID(abort) { ... } */ #ifndef _ANSIDECL_H #define _ANSIDECL_H 1 /* Every source file includes this file, so they will all get the switch for lint. */ /* LINTLIBRARY */ #if defined (__STDC__) || defined (_AIX) || (defined (__mips) && defined (_SYSTYPE_SVR4)) /* All known AIX compilers implement these things (but don't always define __STDC__). The RISC/OS MIPS compiler defines these things in SVR4 mode, but does not define __STDC__. */ #define PTR void * #define PTRCONST void *CONST #define LONG_DOUBLE long double #define AND , #define NOARGS void #define CONST const #define VOLATILE volatile #define SIGNED signed #define DOTS , ... #define EXFUN(name, proto) name proto #define DEFUN(name, arglist, args) name(args) #define DEFUN_VOID(name) name(void) #define PROTO(type, name, arglist) type name arglist #define PARAMS(paramlist) paramlist #define ANSI_PROTOTYPES 1 #else /* Not ANSI C. */ #define PTR char * #define PTRCONST PTR #define LONG_DOUBLE double #define AND ; #define NOARGS #define CONST #ifndef const /* some systems define it in header files for non-ansi mode */ #define const #endif #define VOLATILE #define SIGNED #define DOTS #define EXFUN(name, proto) name() #define DEFUN(name, arglist, args) name arglist args; #define DEFUN_VOID(name) name() #define PROTO(type, name, arglist) type name () #define PARAMS(paramlist) () #endif /* ANSI C. */ #endif /* ansidecl.h */ gdb-4.13/include/bfdlink.h 666 34562 1752 40032 5601403401 13752 0ustar fnfcygnus/* bfdlink.h -- header file for BFD link routines Copyright 1993 Free Software Foundation, Inc. Written by Steve Chamberlain and Ian Lance Taylor, Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef BFDLINK_H #define BFDLINK_H /* Which symbols to strip during a link. */ enum bfd_link_strip { strip_none, /* Don't strip any symbols. */ strip_debugger, /* Strip debugging symbols. */ strip_some, /* keep_hash is the list of symbols to keep. */ strip_all /* Strip all symbols. */ }; /* Which local symbols to discard during a link. This is irrelevant if strip_all is used. */ enum bfd_link_discard { discard_none, /* Don't discard any locals. */ discard_l, /* Discard locals with a certain prefix. */ discard_all /* Discard all locals. */ }; /* These are the possible types of an entry in the BFD link hash table. */ enum bfd_link_hash_type { bfd_link_hash_new, /* Symbol is new. */ bfd_link_hash_undefined, /* Symbol seen before, but undefined. */ bfd_link_hash_weak, /* Symbol is weak and undefined. */ bfd_link_hash_defined, /* Symbol is defined. */ bfd_link_hash_common, /* Symbol is common. */ bfd_link_hash_indirect, /* Symbol is an indirect link. */ bfd_link_hash_warning /* Like indirect, but warn if referenced. */ }; /* The linking routines use a hash table which uses this structure for its elements. */ struct bfd_link_hash_entry { /* Base hash table entry structure. */ struct bfd_hash_entry root; /* Type of this entry. */ enum bfd_link_hash_type type; /* Undefined and common symbols are kept in a linked list through this field. This field is not in the union because that would force us to remove entries from the list when we changed their type, which would force the list to be doubly linked, which would waste more memory. When an undefined or common symbol is created, it should be added to this list, the head of which is in the link hash table itself. As symbols are defined, they need not be removed from the list; anything which reads the list must doublecheck the symbol type. Weak symbols are not kept on this list. Defined symbols use this field as a reference marker. If the field is not NULL, or this structure is the tail of the undefined symbol list, the symbol has been referenced. If the symbol is undefined and becomes defined, this field will automatically be non-NULL since the symbol will have been on the undefined symbol list. */ struct bfd_link_hash_entry *next; /* A union of information depending upon the type. */ union { /* Nothing is kept for bfd_hash_new. */ /* bfd_link_hash_undefined, bfd_link_hash_weak. */ struct { bfd *abfd; /* BFD symbol was found in. */ } undef; /* bfd_link_hash_defined. */ struct { bfd_vma value; /* Symbol value. */ asection *section; /* Symbol section. */ } def; /* bfd_link_hash_indirect, bfd_link_hash_warning. */ struct { struct bfd_link_hash_entry *link; /* Real symbol. */ const char *warning; /* Warning (bfd_link_hash_warning only). */ } i; /* bfd_link_hash_common. */ struct { bfd_vma size; /* Common symbol size. */ asection *section; /* Symbol section. */ } c; } u; }; /* This is the link hash table. It is a derived class of bfd_hash_table. */ struct bfd_link_hash_table { /* The hash table itself. */ struct bfd_hash_table table; /* The back end which created this hash table. This indicates the type of the entries in the hash table, which is sometimes important information when linking object files of different types together. */ const bfd_target *creator; /* A linked list of undefined and common symbols, linked through the next field in the bfd_link_hash_entry structure. */ struct bfd_link_hash_entry *undefs; /* Entries are added to the tail of the undefs list. */ struct bfd_link_hash_entry *undefs_tail; }; /* Look up an entry in a link hash table. If FOLLOW is true, this follows bfd_link_hash_indirect and bfd_link_hash_warning links to the real symbol. */ extern struct bfd_link_hash_entry *bfd_link_hash_lookup PARAMS ((struct bfd_link_hash_table *, const char *, boolean create, boolean copy, boolean follow)); /* Traverse a link hash table. */ extern void bfd_link_hash_traverse PARAMS ((struct bfd_link_hash_table *, boolean (*) (struct bfd_link_hash_entry *, PTR), PTR)); /* Add an entry to the undefs list. */ extern void bfd_link_add_undef PARAMS ((struct bfd_link_hash_table *, struct bfd_link_hash_entry *)); /* This structure holds all the information needed to communicate between BFD and the linker when doing a link. */ struct bfd_link_info { /* Function callbacks. */ const struct bfd_link_callbacks *callbacks; /* true if BFD should generate a relocateable object file. */ boolean relocateable; /* true if BFD should generate a shared object. */ boolean shared; /* Which symbols to strip. */ enum bfd_link_strip strip; /* Which local symbols to discard. */ enum bfd_link_discard discard; /* The local symbol prefix to discard if using discard_l. */ unsigned int lprefix_len; const char *lprefix; /* true if symbols should be retained in memory, false if they should be freed and reread. */ boolean keep_memory; /* The list of input BFD's involved in the link. These are chained together via the link_next field. */ bfd *input_bfds; /* If a symbol should be created for each input BFD, this is section where those symbols should be placed. It must be a section in the output BFD. It may be NULL, in which case no such symbols will be created. This is to support CREATE_OBJECT_SYMBOLS in the linker command language. */ asection *create_object_symbols_section; /* Hash table handled by BFD. */ struct bfd_link_hash_table *hash; /* Hash table of symbols to keep. This is NULL unless strip is strip_some. */ struct bfd_hash_table *keep_hash; /* Hash table of symbols to report back via notice_callback. If this is NULL no symbols are reported back. */ struct bfd_hash_table *notice_hash; }; /* This structures holds a set of callback functions. These are called by the BFD linker routines. The first argument to each callback function is the bfd_link_info structure being used. Each function returns a boolean value. If the function returns false, then the BFD function which called it will return with a failure indication. */ struct bfd_link_callbacks { /* A function which is called when an object is added from an archive. ABFD is the archive element being added. NAME is the name of the symbol which caused the archive element to be pulled in. */ boolean (*add_archive_element) PARAMS ((struct bfd_link_info *, bfd *abfd, const char *name)); /* A function which is called when a symbol is found with multiple definitions. NAME is the symbol which is defined multiple times. OBFD is the old BFD, OSEC is the old section, OVAL is the old value, NBFD is the new BFD, NSEC is the new section, and NVAL is the new value. OBFD may be NULL. OSEC and NSEC may be bfd_com_section or bfd_ind_section. */ boolean (*multiple_definition) PARAMS ((struct bfd_link_info *, const char *name, bfd *obfd, asection *osec, bfd_vma oval, bfd *nbfd, asection *nsec, bfd_vma nval)); /* A function which is called when a common symbol is defined multiple times. NAME is the symbol appearing multiple times. OBFD is the BFD of the existing symbol. OTYPE is the type of the existing symbol, either bfd_link_hash_defined or bfd_link_hash_common. If OTYPE is bfd_link_hash_common, OSIZE is the size of the existing symbol. NBFD is the BFD of the new symbol. NTYPE is the type of the new symbol, either bfd_link_hash_defined or bfd_link_hash_common. If NTYPE is bfd_link_hash_common, NSIZE is the size of the new symbol. */ boolean (*multiple_common) PARAMS ((struct bfd_link_info *, const char *name, bfd *obfd, enum bfd_link_hash_type otype, bfd_vma osize, bfd *nbfd, enum bfd_link_hash_type ntype, bfd_vma nsize)); /* A function which is called to add a symbol to a set. ENTRY is the link hash table entry for the set itself (e.g., __CTOR_LIST__). RELOC is the relocation to use for an entry in the set when generating a relocateable file, and is also used to get the size of the entry when generating an executable file. ABFD, SEC and VALUE identify the value to add to the set. */ boolean (*add_to_set) PARAMS ((struct bfd_link_info *, struct bfd_link_hash_entry *entry, bfd_reloc_code_real_type reloc, bfd *abfd, asection *sec, bfd_vma value)); /* A function which is called when the name of a g++ constructor or destructor is found. This is only called by some object file formats. CONSTRUCTOR is true for a constructor, false for a destructor. This will use BFD_RELOC_CTOR when generating a relocateable file. NAME is the name of the symbol found. ABFD, SECTION and VALUE are the value of the symbol. */ boolean (*constructor) PARAMS ((struct bfd_link_info *, boolean constructor, const char *name, bfd *abfd, asection *sec, bfd_vma value)); /* A function which is called when there is a reference to a warning symbol. WARNING is the warning to be issued. */ boolean (*warning) PARAMS ((struct bfd_link_info *, const char *warning)); /* A function which is called when a relocation is attempted against an undefined symbol. NAME is the symbol which is undefined. ABFD, SECTION and ADDRESS identify the location from which the reference is made. */ boolean (*undefined_symbol) PARAMS ((struct bfd_link_info *, const char *name, bfd *abfd, asection *section, bfd_vma address)); /* A function which is called when a reloc overflow occurs. NAME is the name of the symbol or section the reloc is against, RELOC_NAME is the name of the relocation, and ADDEND is any addend that is used. ABFD, SECTION and ADDRESS identify the location at which the overflow occurs; if this is the result of a bfd_section_reloc_link_order or bfd_symbol_reloc_link_order, then ABFD will be NULL. */ boolean (*reloc_overflow) PARAMS ((struct bfd_link_info *, const char *name, const char *reloc_name, bfd_vma addend, bfd *abfd, asection *section, bfd_vma address)); /* A function which is called when a dangerous reloc is performed. The canonical example is an a29k IHCONST reloc which does not follow an IHIHALF reloc. MESSAGE is an appropriate message. ABFD, SECTION and ADDRESS identify the location at which the problem occurred; if this is the result of a bfd_section_reloc_link_order or bfd_symbol_reloc_link_order, then ABFD will be NULL. */ boolean (*reloc_dangerous) PARAMS ((struct bfd_link_info *, const char *message, bfd *abfd, asection *section, bfd_vma address)); /* A function which is called when a reloc is found to be attached to a symbol which is not being written out. NAME is the name of the symbol. ABFD, SECTION and ADDRESS identify the location of the reloc; if this is the result of a bfd_section_reloc_link_order or bfd_symbol_reloc_link_order, then ABFD will be NULL. */ boolean (*unattached_reloc) PARAMS ((struct bfd_link_info *, const char *name, bfd *abfd, asection *section, bfd_vma address)); /* A function which is called when a symbol in notice_hash is defined or referenced. NAME is the symbol. ABFD, SECTION and ADDRESS are the value of the symbol. If SECTION is bfd_und_section, this is a reference. */ boolean (*notice) PARAMS ((struct bfd_link_info *, const char *name, bfd *abfd, asection *section, bfd_vma address)); }; /* The linker builds link_order structures which tell the code how to include input data in the output file. */ /* These are the types of link_order structures. */ enum bfd_link_order_type { bfd_undefined_link_order, /* Undefined. */ bfd_indirect_link_order, /* Built from a section. */ bfd_fill_link_order, /* Fill with a 16 bit constant. */ bfd_data_link_order, /* Set to explicit data. */ bfd_section_reloc_link_order, /* Relocate against a section. */ bfd_symbol_reloc_link_order /* Relocate against a symbol. */ }; /* This is the link_order structure itself. These form a chain attached to the section whose contents they are describing. */ struct bfd_link_order { /* Next link_order in chain. */ struct bfd_link_order *next; /* Type of link_order. */ enum bfd_link_order_type type; /* Offset within output section. */ bfd_vma offset; /* Size within output section. */ bfd_size_type size; /* Type specific information. */ union { struct { /* Section to include. If this is used, then section->output_section must be the section the link_order is attached to, section->output_offset must equal the link_order offset field, and section->_raw_size must equal the link_order size field. Maybe these restrictions should be relaxed someday. */ asection *section; } indirect; struct { /* Value to fill with. */ unsigned int value; } fill; struct { /* Data to put into file. The size field gives the number of bytes which this field points to. */ bfd_byte *contents; } data; struct { /* Description of reloc to generate. Used for bfd_section_reloc_link_order and bfd_symbol_reloc_link_order. */ struct bfd_link_order_reloc *p; } reloc; } u; }; /* A linker order of type bfd_section_reloc_link_order or bfd_symbol_reloc_link_order means to create a reloc against a section or symbol, respectively. This is used to implement -Ur to generate relocs for the constructor tables. The bfd_link_order_reloc structure describes the reloc that BFD should create. It is similar to a arelent, but I didn't use arelent because the linker does not know anything about most symbols, and any asymbol structure it creates will be partially meaningless. This information could logically be in the bfd_link_order struct, but I didn't want to waste the space since these types of relocs are relatively rare. */ struct bfd_link_order_reloc { /* Reloc type. */ bfd_reloc_code_real_type reloc; union { /* For type bfd_section_reloc_link_order, this is the section the reloc should be against. This must be a section in the output BFD, not any of the input BFDs. */ asection *section; /* For type bfd_symbol_reloc_link_order, this is the name of the symbol the reloc should be against. */ const char *name; } u; /* Addend to use. The object file should contain zero. The BFD backend is responsible for filling in the contents of the object file correctly. For some object file formats (e.g., COFF) the addend must be stored into in the object file, and for some (e.g., SPARC a.out) it is kept in the reloc. */ bfd_vma addend; }; /* Allocate a new link_order for a section. */ extern struct bfd_link_order *bfd_new_link_order PARAMS ((bfd *, asection *)); #endif gdb-4.13/include/bout.h 666 34562 1752 15421 5275766270 13345 0ustar fnfcygnus/* * This file is a modified version of 'a.out.h'. It is to be used in all * GNU tools modified to support the i80960 (or tools that operate on * object files created by such tools). * * All i80960 development is done in a CROSS-DEVELOPMENT environment. I.e., * object code is generated on, and executed under the direction of a symbolic * debugger running on, a host system. We do not want to be subject to the * vagaries of which host it is or whether it supports COFF or a.out format, * or anything else. We DO want to: * * o always generate the same format object files, regardless of host. * * o have an 'a.out' header that we can modify for our own purposes * (the 80960 is typically an embedded processor and may require * enhanced linker support that the normal a.out.h header can't * accommodate). * * As for byte-ordering, the following rules apply: * * o Text and data that is actually downloaded to the target is always * in i80960 (little-endian) order. * * o All other numbers (in the header, symbols, relocation directives) * are in host byte-order: object files CANNOT be lifted from a * little-end host and used on a big-endian (or vice versa) without * modification. * ==> THIS IS NO LONGER TRUE USING BFD. WE CAN GENERATE ANY BYTE ORDER * FOR THE HEADER, AND READ ANY BYTE ORDER. PREFERENCE WOULD BE TO * USE LITTLE-ENDIAN BYTE ORDER THROUGHOUT, REGARDLESS OF HOST. <== * * o The downloader ('comm960') takes care to generate a pseudo-header * with correct (i80960) byte-ordering before shipping text and data * off to the NINDY monitor in the target systems. Symbols and * relocation info are never sent to the target. */ #define BMAGIC 0415 /* We don't accept the following (see N_BADMAG macro). * They're just here so GNU code will compile. */ #define OMAGIC 0407 /* old impure format */ #define NMAGIC 0410 /* read-only text */ #define ZMAGIC 0413 /* demand load format */ /* FILE HEADER * All 'lengths' are given as a number of bytes. * All 'alignments' are for relinkable files only; an alignment of * 'n' indicates the corresponding segment must begin at an * address that is a multiple of (2**n). */ struct external_exec { /* Standard stuff */ unsigned char e_info[4]; /* Identifies this as a b.out file */ unsigned char e_text[4]; /* Length of text */ unsigned char e_data[4]; /* Length of data */ unsigned char e_bss[4]; /* Length of uninitialized data area */ unsigned char e_syms[4]; /* Length of symbol table */ unsigned char e_entry[4]; /* Runtime start address */ unsigned char e_trsize[4]; /* Length of text relocation info */ unsigned char e_drsize[4]; /* Length of data relocation info */ /* Added for i960 */ unsigned char e_tload[4]; /* Text runtime load address */ unsigned char e_dload[4]; /* Data runtime load address */ unsigned char e_talign[1]; /* Alignment of text segment */ unsigned char e_dalign[1]; /* Alignment of data segment */ unsigned char e_balign[1]; /* Alignment of bss segment */ unsigned char e_relaxable[1]; /* Assembled with enough info to allow linker to relax */ }; #define EXEC_BYTES_SIZE (sizeof (struct external_exec)) /* These macros use the a_xxx field names, since they operate on the exec structure after it's been byte-swapped and realigned on the host machine. */ #define N_BADMAG(x) (((x).a_info)!=BMAGIC) #define N_TXTOFF(x) EXEC_BYTES_SIZE #define N_DATOFF(x) ( N_TXTOFF(x) + (x).a_text ) #define N_TROFF(x) ( N_DATOFF(x) + (x).a_data ) #define N_TRELOFF N_TROFF #define N_DROFF(x) ( N_TROFF(x) + (x).a_trsize ) #define N_DRELOFF N_DROFF #define N_SYMOFF(x) ( N_DROFF(x) + (x).a_drsize ) #define N_STROFF(x) ( N_SYMOFF(x) + (x).a_syms ) #define N_DATADDR(x) ( (x).a_dload ) /* Address of text segment in memory after it is loaded. */ #if !defined (N_TXTADDR) #define N_TXTADDR(x) 0 #endif /* A single entry in the symbol table */ struct nlist { union { char *n_name; struct nlist *n_next; long n_strx; /* Index into string table */ } n_un; unsigned char n_type; /* See below */ char n_other; /* Used in i80960 support -- see below */ short n_desc; unsigned long n_value; }; /* Legal values of n_type */ #define N_UNDF 0 /* Undefined symbol */ #define N_ABS 2 /* Absolute symbol */ #define N_TEXT 4 /* Text symbol */ #define N_DATA 6 /* Data symbol */ #define N_BSS 8 /* BSS symbol */ #define N_FN 31 /* Filename symbol */ #define N_EXT 1 /* External symbol (OR'd in with one of above) */ #define N_TYPE 036 /* Mask for all the type bits */ #define N_STAB 0340 /* Mask for all bits used for SDB entries */ /* MEANING OF 'n_other' * * If non-zero, the 'n_other' fields indicates either a leaf procedure or * a system procedure, as follows: * * 1 <= n_other <= 32 : * The symbol is the entry point to a system procedure. * 'n_value' is the address of the entry, as for any other * procedure. The system procedure number (which can be used in * a 'calls' instruction) is (n_other-1). These entries come from * '.sysproc' directives. * * n_other == N_CALLNAME * the symbol is the 'call' entry point to a leaf procedure. * The *next* symbol in the symbol table must be the corresponding * 'bal' entry point to the procedure (see following). These * entries come from '.leafproc' directives in which two different * symbols are specified (the first one is represented here). * * * n_other == N_BALNAME * the symbol is the 'bal' entry point to a leaf procedure. * These entries result from '.leafproc' directives in which only * one symbol is specified, or in which the same symbol is * specified twice. * * Note that an N_CALLNAME entry *must* have a corresponding N_BALNAME entry, * but not every N_BALNAME entry must have an N_CALLNAME entry. */ #define N_CALLNAME ((char)-1) #define N_BALNAME ((char)-2) #define IS_CALLNAME(x) (N_CALLNAME == (x)) #define IS_BALNAME(x) (N_BALNAME == (x)) #define IS_OTHER(x) ((x)>0 && (x) <=32) #define b_out_relocation_info relocation_info struct relocation_info { int r_address; /* File address of item to be relocated */ unsigned #define r_index r_symbolnum r_symbolnum:24,/* Index of symbol on which relocation is based, * if r_extern is set. Otherwise set to * either N_TEXT, N_DATA, or N_BSS to * indicate section on which relocation is * based. */ r_pcrel:1, /* 1 => relocate PC-relative; else absolute * On i960, pc-relative implies 24-bit * address, absolute implies 32-bit. */ r_length:2, /* Number of bytes to relocate: * 0 => 1 byte * 1 => 2 bytes -- used for 13 bit pcrel * 2 => 4 bytes */ r_extern:1, r_bsr:1, /* Something for the GNU NS32K assembler */ r_disp:1, /* Something for the GNU NS32K assembler */ r_callj:1, /* 1 if relocation target is an i960 'callj' */ r_relaxable:1; /* 1 if enough info is left to relax the data */ }; gdb-4.13/include/demangle.h 666 34562 1752 5455 5600677665 14137 0ustar fnfcygnus/* Defs for interface to demanglers. Copyright 1992 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 2, 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (DEMANGLE_H) #define DEMANGLE_H #include /* Options passed to cplus_demangle (in 2nd parameter). */ #define DMGL_NO_OPTS 0 /* For readability... */ #define DMGL_PARAMS (1 << 0) /* Include function args */ #define DMGL_ANSI (1 << 1) /* Include const, volatile, etc */ #define DMGL_AUTO (1 << 8) #define DMGL_GNU (1 << 9) #define DMGL_LUCID (1 << 10) #define DMGL_ARM (1 << 11) /* If none of these are set, use 'current_demangling_style' as the default. */ #define DMGL_STYLE_MASK (DMGL_AUTO|DMGL_GNU|DMGL_LUCID|DMGL_ARM) /* Enumeration of possible demangling styles. Lucid and ARM styles are still kept logically distinct, even though they now both behave identically. The resulting style is actual the union of both. I.E. either style recognizes both "__pt__" and "__rf__" for operator "->", even though the first is lucid style and the second is ARM style. (FIXME?) */ extern enum demangling_styles { unknown_demangling = 0, auto_demangling = DMGL_AUTO, gnu_demangling = DMGL_GNU, lucid_demangling = DMGL_LUCID, arm_demangling = DMGL_ARM } current_demangling_style; /* Define string names for the various demangling styles. */ #define AUTO_DEMANGLING_STYLE_STRING "auto" #define GNU_DEMANGLING_STYLE_STRING "gnu" #define LUCID_DEMANGLING_STYLE_STRING "lucid" #define ARM_DEMANGLING_STYLE_STRING "arm" /* Some macros to test what demangling style is active. */ #define CURRENT_DEMANGLING_STYLE current_demangling_style #define AUTO_DEMANGLING (((int) CURRENT_DEMANGLING_STYLE) & DMGL_AUTO) #define GNU_DEMANGLING (((int) CURRENT_DEMANGLING_STYLE) & DMGL_GNU) #define LUCID_DEMANGLING (((int) CURRENT_DEMANGLING_STYLE) & DMGL_LUCID) #define ARM_DEMANGLING (CURRENT_DEMANGLING_STYLE & DMGL_ARM) extern char * cplus_demangle PARAMS ((CONST char *mangled, int options)); extern int cplus_demangle_opname PARAMS ((char *opname, char *result, int options)); /* Note: This sets global state. FIXME if you care about multi-threading. */ extern void set_cplus_marker_for_demangling PARAMS ((int ch)); #endif /* DEMANGLE_H */ gdb-4.13/include/dis-asm.h 666 34562 1752 16206 5611062405 13712 0ustar fnfcygnus/* Interface between the opcode library and its callers. Written by Cygnus Support, 1993. The opcode library (libopcodes.a) provides instruction decoders for a large variety of instruction sets, callable with an identical interface, for making instruction-processing programs more independent of the instruction set being processed. */ #include #include "bfd.h" typedef int (*fprintf_ftype) PARAMS((FILE*, const char*, ...)); enum dis_insn_type { dis_noninsn, /* Not a valid instruction */ dis_nonbranch, /* Not a branch instruction */ dis_branch, /* Unconditional branch */ dis_condbranch, /* Conditional branch */ dis_jsr, /* Jump to subroutine */ dis_condjsr, /* Conditional jump to subroutine */ dis_dref, /* Data reference instruction */ dis_dref2 /* Two data references in instruction */ }; /* This struct is passed into the instruction decoding routine, and is passed back out into each callback. The various fields are used for conveying information from your main routine into your callbacks, for passing information into the instruction decoders (such as the addresses of the callback functions), or for passing information back from the instruction decoders to their callers. It must be initialized before it is first passed; this can be done by hand, or using one of the initialization macros below. */ typedef struct disassemble_info { fprintf_ftype fprintf_func; FILE *stream; PTR application_data; /* For use by the disassembler. */ int flags; PTR private_data; /* Function used to get bytes to disassemble. MEMADDR is the address of the stuff to be disassembled, MYADDR is the address to put the bytes in, and LENGTH is the number of bytes to read. INFO is a pointer to this struct. Returns an errno value or 0 for success. */ int (*read_memory_func) PARAMS ((bfd_vma memaddr, bfd_byte *myaddr, int length, struct disassemble_info *info)); /* Function which should be called if we get an error that we can't recover from. STATUS is the errno value from read_memory_func and MEMADDR is the address that we were trying to read. INFO is a pointer to this struct. */ void (*memory_error_func) PARAMS ((int status, bfd_vma memaddr, struct disassemble_info *info)); /* Function called to print ADDR. */ void (*print_address_func) PARAMS ((bfd_vma addr, struct disassemble_info *info)); /* These are for buffer_read_memory. */ bfd_byte *buffer; bfd_vma buffer_vma; int buffer_length; /* Results from instruction decoders. Not all decoders yet support this information. This info is set each time an instruction is decoded, and is only valid for the last such instruction. To determine whether this decoder supports this information, set insn_info_valid to 0, decode an instruction, then check it. */ char insn_info_valid; /* Branch info has been set. */ char branch_delay_insns; /* How many sequential insn's will run before a branch takes effect. (0 = normal) */ char data_size; /* Size of data reference in insn, in bytes */ enum dis_insn_type insn_type; /* Type of instruction */ bfd_vma target; /* Target address of branch or dref, if known; zero if unknown. */ bfd_vma target2; /* Second target address for dref2 */ } disassemble_info; /* Standard disassemblers. Disassemble one instruction at the given target address. Return number of bytes processed. */ typedef int (*disassembler_ftype) PARAMS((bfd_vma, disassemble_info *)); extern int print_insn_big_mips PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_little_mips PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_i386 PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_m68k PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_z8001 PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_z8002 PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_h8300 PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_h8300h PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_h8500 PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_alpha PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_sparc PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_big_a29k PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_little_a29k PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_i960 PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_sh PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_hppa PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_m88k PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_ns32k PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_big_powerpc PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_little_powerpc PARAMS ((bfd_vma, disassemble_info*)); extern int print_insn_rs6000 PARAMS ((bfd_vma, disassemble_info*)); /* Fetch the disassembler for a given BFD, if that support is available. */ extern disassembler_ftype disassembler PARAMS ((bfd *)); /* This block of definitions is for particular callers who read instructions into a buffer before calling the instruction decoder. */ /* Here is a function which callers may wish to use for read_memory_func. It gets bytes from a buffer. */ extern int buffer_read_memory PARAMS ((bfd_vma, bfd_byte *, int, struct disassemble_info *)); /* This function goes with buffer_read_memory. It prints a message using info->fprintf_func and info->stream. */ extern void perror_memory PARAMS ((int, bfd_vma, struct disassemble_info *)); /* Just print the address is hex. This is included for completeness even though both GDB and objdump provide their own (to print symbolic addresses). */ extern void generic_print_address PARAMS ((bfd_vma, struct disassemble_info *)); #define INIT_DISASSEMBLE_INFO(INFO, STREAM) \ (INFO).fprintf_func = (fprintf_ftype)fprintf, \ (INFO).stream = (STREAM), \ (INFO).buffer = NULL, \ (INFO).buffer_vma = 0, \ (INFO).buffer_length = 0, \ (INFO).read_memory_func = buffer_read_memory, \ (INFO).memory_error_func = perror_memory, \ (INFO).print_address_func = generic_print_address, \ (INFO).insn_info_valid = 0 /* This block of definitions is for calling the instruction decoders from GDB. */ /* GDB--Like target_read_memory, but slightly different parameters. */ extern int dis_asm_read_memory PARAMS ((bfd_vma memaddr, bfd_byte *myaddr, int len, disassemble_info *info)); /* GDB--Like memory_error with slightly different parameters. */ extern void dis_asm_memory_error PARAMS ((int status, bfd_vma memaddr, disassemble_info *info)); /* GDB--Like print_address with slightly different parameters. */ extern void dis_asm_print_address PARAMS ((bfd_vma addr, disassemble_info *info)); #define GDB_INIT_DISASSEMBLE_INFO(INFO, STREAM) \ (INFO).fprintf_func = (fprintf_ftype)fprintf_filtered, \ (INFO).stream = (STREAM), \ (INFO).read_memory_func = dis_asm_read_memory, \ (INFO).memory_error_func = dis_asm_memory_error, \ (INFO).print_address_func = dis_asm_print_address, \ (INFO).insn_info_valid = 0 gdb-4.13/include/floatformat.h 666 34562 1752 6076 5534305130 14656 0ustar fnfcygnus/* IEEE floating point support declarations, for GDB, the GNU Debugger. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (FLOATFORMAT_H) #define FLOATFORMAT_H 1 #include "ansidecl.h" /* A floatformat consists of a sign bit, an exponent and a mantissa. Once the bytes are concatenated according to the byteorder flag, then each of those fields is contiguous. We number the bits with 0 being the most significant (i.e. BITS_BIG_ENDIAN type numbering), and specify which bits each field contains with the *_start and *_len fields. */ enum floatformat_byteorders { floatformat_little, floatformat_big }; enum floatformat_intbit { floatformat_intbit_yes, floatformat_intbit_no }; struct floatformat { enum floatformat_byteorders byteorder; unsigned int totalsize; /* Total size of number in bits */ /* Sign bit is always one bit long. 1 means negative, 0 means positive. */ unsigned int sign_start; unsigned int exp_start; unsigned int exp_len; /* Amount added to "true" exponent. 0x3fff for many IEEE extendeds. */ unsigned int exp_bias; /* Exponent value which indicates NaN. This is the actual value stored in the float, not adjusted by the exp_bias. This usually consists of all one bits. */ unsigned int exp_nan; unsigned int man_start; unsigned int man_len; /* Is the integer bit explicit or implicit? */ enum floatformat_intbit intbit; }; /* floatformats for IEEE single and double, big and little endian. */ extern const struct floatformat floatformat_ieee_single_big; extern const struct floatformat floatformat_ieee_single_little; extern const struct floatformat floatformat_ieee_double_big; extern const struct floatformat floatformat_ieee_double_little; /* floatformats for various extendeds. */ extern const struct floatformat floatformat_i387_ext; extern const struct floatformat floatformat_m68881_ext; extern const struct floatformat floatformat_i960_ext; extern const struct floatformat floatformat_m88110_ext; /* Convert from FMT to a double. FROM is the address of the extended float. Store the double in *TO. */ extern void floatformat_to_double PARAMS ((const struct floatformat *, char *, double *)); /* The converse: convert the double *FROM to FMT and store where TO points. */ extern void floatformat_from_double PARAMS ((const struct floatformat *, double *, char *)); #endif /* defined (FLOATFORMAT_H) */ gdb-4.13/include/fopen-bin.h 666 34562 1752 1626 5122037221 14205 0ustar fnfcygnus/* Macros for the 'type' part of an fopen, freopen or fdopen. [Update] This version is for "binary" systems, where text and binary files are different. An example is Mess-Dose. Many Unix systems could also cope with a "b" in the string, indicating binary files, but some reject this (and thereby don't conform to ANSI C, but what else is new?). This file is designed for inclusion by host-dependent .h files. No user application should include it directly, since that would make the application unable to be configured for both "same" and "binary" variant systems. */ #define FOPEN_RB "rb" #define FOPEN_WB "wb" #define FOPEN_AB "ab" #define FOPEN_RUB "r+b" #define FOPEN_WUB "w+b" #define FOPEN_AUB "a+b" #define FOPEN_RT "r" #define FOPEN_WT "w" #define FOPEN_AT "a" #define FOPEN_RUT "r+" #define FOPEN_WUT "w+" #define FOPEN_AUT "a+" gdb-4.13/include/fopen-same.h 666 34562 1752 1602 5122037220 14353 0ustar fnfcygnus/* Macros for the 'type' part of an fopen, freopen or fdopen. [Update] This version is for "same" systems, where text and binary files are the same. An example is Unix. Many Unix systems could also add a "b" to the string, indicating binary files, but some reject this (and thereby don't conform to ANSI C, but what else is new?). This file is designed for inclusion by host-dependent .h files. No user application should include it directly, since that would make the application unable to be configured for both "same" and "binary" variant systems. */ #define FOPEN_RB "r" #define FOPEN_WB "w" #define FOPEN_AB "a" #define FOPEN_RUB "r+" #define FOPEN_WUB "w+" #define FOPEN_AUB "a+" #define FOPEN_RT "r" #define FOPEN_WT "w" #define FOPEN_AT "a" #define FOPEN_RUT "r+" #define FOPEN_WUT "w+" #define FOPEN_AUT "a+" gdb-4.13/include/gdbm.h 666 34562 1752 4640 5043417726 13256 0ustar fnfcygnus/* GNU DBM - DataBase Manager include file Copyright 1989, 1991 Free Software Foundation, Inc. Written by Philip A. Nelson. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* You may contact the author by: e-mail: phil@wwu.edu us-mail: Philip A. Nelson Computer Science Department Western Washington University Bellingham, WA 98226 phone: (206) 676-3035 *************************************************************************/ /* Parameters to gdbm_open for READERS, WRITERS, and WRITERS who can create the database. */ #define GDBM_READER 0 #define GDBM_WRITER 1 #define GDBM_WRCREAT 2 #define GDBM_NEWDB 3 /* Parameters to gdbm_store for simple insertion or replacement. */ #define GDBM_INSERT 0 #define GDBM_REPLACE 1 /* The data and key structure. This structure is defined for compatibility. */ typedef struct { char *dptr; int dsize; } datum; /* The file information header. This is good enough for most applications. */ typedef struct {int dummy[10];} *GDBM_FILE; /* These are the routines! */ extern GDBM_FILE gdbm_open (); extern void gdbm_close (); extern datum gdbm_fetch (); extern int gdbm_store (); extern int gdbm_delete (); extern datum gdbm_firstkey (); extern datum gdbm_nextkey (); extern int gdbm_reorganize (); /* gdbm sends back the following error codes in the variable gdbm_errno. */ typedef enum { NO_ERROR, MALLOC_ERROR, BLOCK_SIZE_ERROR, FILE_OPEN_ERROR, FILE_WRITE_ERROR, FILE_SEEK_ERROR, FILE_READ_ERROR, BAD_MAGIC_NUMBER, EMPTY_DATABASE, CANT_BE_READER, CANT_BE_WRITER, READER_CANT_RECOVER, READER_CANT_DELETE, READER_CANT_STORE, READER_CANT_REORGANIZE, UNKNOWN_UPDATE, ITEM_NOT_FOUND, REORGANIZE_FAILED, CANNOT_REPLACE} gdbm_error; gdb-4.13/include/getopt.h 666 34562 1752 10524 5430600621 13651 0ustar fnfcygnus/* Declarations for getopt. Copyright (C) 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2, 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this program; if not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef _GETOPT_H #define _GETOPT_H 1 #ifdef __cplusplus extern "C" { #endif /* For communication from `getopt' to the caller. When `getopt' finds an option that takes an argument, the argument value is returned here. Also, when `ordering' is RETURN_IN_ORDER, each non-option ARGV-element is returned here. */ extern char *optarg; /* Index in ARGV of the next element to be scanned. This is used for communication to and from the caller and for communication between successive calls to `getopt'. On entry to `getopt', zero means this is the first call; initialize. When `getopt' returns EOF, this is the index of the first of the non-option elements that the caller should itself scan. Otherwise, `optind' communicates from one call to the next how much of ARGV has been scanned so far. */ extern int optind; /* Callers store zero here to inhibit the error message `getopt' prints for unrecognized options. */ extern int opterr; /* Set to an option character which was unrecognized. */ extern int optopt; /* Describe the long-named options requested by the application. The LONG_OPTIONS argument to getopt_long or getopt_long_only is a vector of `struct option' terminated by an element containing a name which is zero. The field `has_arg' is: no_argument (or 0) if the option does not take an argument, required_argument (or 1) if the option requires an argument, optional_argument (or 2) if the option takes an optional argument. If the field `flag' is not NULL, it points to a variable that is set to the value given in the field `val' when the option is found, but left unchanged if the option is not found. To have a long-named option do something other than set an `int' to a compiled-in constant, such as set a value from `optarg', set the option's `flag' field to zero and its `val' field to a nonzero value (the equivalent single-letter option character, if there is one). For long options that have a zero `flag' field, `getopt' returns the contents of the `val' field. */ struct option { #if __STDC__ const char *name; #else char *name; #endif /* has_arg can't be an enum because some compilers complain about type mismatches in all the code that assumes it is an int. */ int has_arg; int *flag; int val; }; /* Names for the values of the `has_arg' field of `struct option'. */ #define no_argument 0 #define required_argument 1 #define optional_argument 2 #if __STDC__ #if defined(__GNU_LIBRARY__) /* Many other libraries have conflicting prototypes for getopt, with differences in the consts, in stdlib.h. To avoid compilation errors, only prototype getopt for the GNU C library. */ extern int getopt (int argc, char *const *argv, const char *shortopts); #else /* not __GNU_LIBRARY__ */ extern int getopt (); #endif /* not __GNU_LIBRARY__ */ extern int getopt_long (int argc, char *const *argv, const char *shortopts, const struct option *longopts, int *longind); extern int getopt_long_only (int argc, char *const *argv, const char *shortopts, const struct option *longopts, int *longind); /* Internal only. Users should not call this directly. */ extern int _getopt_internal (int argc, char *const *argv, const char *shortopts, const struct option *longopts, int *longind, int long_only); #else /* not __STDC__ */ extern int getopt (); extern int getopt_long (); extern int getopt_long_only (); extern int _getopt_internal (); #endif /* not __STDC__ */ #ifdef __cplusplus } #endif #endif /* _GETOPT_H */ gdb-4.13/include/ieee.h 666 34562 1752 10174 5123772007 13266 0ustar fnfcygnus/* IEEE Standard 695-1980 "Universal Format for Object Modules" header file Contributed by Cygnus Support. */ #define N_W_VARIABLES 8 #define Module_Beginning 0xe0 typedef struct ieee_module { char *processor; char *module_name; } ieee_module_begin_type; #define Address_Descriptor 0xec typedef struct ieee_address { bfd_vma number_of_bits_mau; bfd_vma number_of_maus_in_address; unsigned char byte_order; #define IEEE_LITTLE 0xcc #define IEEE_BIG 0xcd } ieee_address_descriptor_type; typedef union ieee_w_variable { file_ptr offset[N_W_VARIABLES]; struct { file_ptr extension_record; file_ptr environmental_record; file_ptr section_part; file_ptr external_part; file_ptr debug_information_part; file_ptr data_part; file_ptr trailer_part; file_ptr me_record; } r; } ieee_w_variable_type; typedef enum ieee_record { ieee_number_start_enum = 0x00, ieee_number_end_enum=0x7f, ieee_number_repeat_start_enum = 0x80, ieee_number_repeat_end_enum = 0x88, ieee_number_repeat_4_enum = 0x84, ieee_number_repeat_3_enum = 0x83, ieee_number_repeat_2_enum = 0x82, ieee_number_repeat_1_enum = 0x81, ieee_module_beginning_enum = 0xe0, ieee_module_end_enum = 0xe1, ieee_extension_length_1_enum = 0xde, ieee_extension_length_2_enum = 0xdf, ieee_section_type_enum = 0xe6, ieee_section_alignment_enum = 0xe7, ieee_external_symbol_enum = 0xe8, ieee_attribute_record_enum = 0xf1c9, ieee_comma = 0x90, ieee_external_reference_enum = 0xe9, ieee_set_current_section_enum = 0xe5, ieee_address_descriptor_enum = 0xec, ieee_load_constant_bytes_enum = 0xed, ieee_load_with_relocation_enum = 0xe4, ieee_variable_A_enum = 0xc1, ieee_variable_B_enum = 0xc2, ieee_variable_C_enum = 0xc3, ieee_variable_D_enum = 0xc4, ieee_variable_E_enum = 0xc5, ieee_variable_F_enum = 0xc6, ieee_variable_G_enum = 0xc7, ieee_variable_H_enum = 0xc8, ieee_variable_I_enum = 0xc9, ieee_variable_J_enum = 0xca, ieee_variable_K_enum = 0xcb, ieee_variable_L_enum = 0xcc, ieee_variable_M_enum = 0xcd, ieee_variable_N_enum = 0xce, ieee_variable_O_enum = 0xcf, ieee_variable_P_enum = 0xd0, ieee_variable_Q_enum = 0xd1, ieee_variable_R_enum = 0xd2, ieee_variable_S_enum = 0xd3, ieee_variable_T_enum = 0xd4, ieee_variable_U_enum = 0xd5, ieee_variable_V_enum = 0xd6, ieee_variable_W_enum = 0xd7, ieee_variable_X_enum = 0xd8, ieee_variable_Y_enum = 0xd9, ieee_variable_Z_enum = 0xda, ieee_function_plus_enum = 0xa5, ieee_function_minus_enum = 0xa6, ieee_function_signed_open_b_enum = 0xba, ieee_function_signed_close_b_enum = 0xbb, ieee_function_unsigned_open_b_enum = 0xbc, ieee_function_unsigned_close_b_enum = 0xbd, ieee_function_either_open_b_enum = 0xbe, ieee_function_either_close_b_enum = 0xbf, ieee_record_seperator_enum = 0xdb, ieee_e2_first_byte_enum = 0xe2, ieee_section_size_enum = 0xe2d3, ieee_physical_region_size_enum = 0xe2c1, ieee_region_base_address_enum = 0xe2c2, ieee_mau_size_enum = 0xe2c6, ieee_m_value_enum = 0xe2cd, ieee_section_base_address_enum = 0xe2cc, ieee_section_offset_enum = 0xe2d2, ieee_value_starting_address_enum = 0xe2c7, ieee_assign_value_to_variable_enum = 0xe2d7, ieee_set_current_pc_enum = 0xe2d0, ieee_value_record_enum = 0xe2c9, ieee_nn_record = 0xf0, ieee_weak_external_reference_enum= 0xf4, ieee_repeat_data_enum = 0xf7 } ieee_record_enum_type; typedef struct ieee_section { unsigned int section_index; unsigned int section_type; char *section_name; unsigned int parent_section_index; unsigned int sibling_section_index; unsigned int context_index; } ieee_section_type; #define IEEE_REFERENCE_BASE 11 #define IEEE_PUBLIC_BASE 32 #define IEEE_SECTION_NUMBER_BASE 1 gdb-4.13/include/libiberty.h 666 34562 1752 6013 5530334204 14314 0ustar fnfcygnus/* Function declarations for libiberty. Written by Cygnus Support, 1994. The libiberty library provides a number of functions which are missing on some operating systems. We do not declare those here, to avoid conflicts with the system header files on operating systems that do support those functions. In this file we only declare those functions which are specific to libiberty. */ #ifndef LIBIBERTY_H #define LIBIBERTY_H #include "ansidecl.h" /* Build an argument vector from a string. Allocates memory using malloc. Use freeargv to free the vector. */ extern char **buildargv PARAMS ((char *)); /* Free a vector returned by buildargv. */ extern void freeargv PARAMS ((char **)); /* Return the last component of a path name. */ extern char *basename PARAMS ((char *)); /* Concatenate an arbitrary number of strings, up to (char *) NULL. Allocates memory using xmalloc. */ extern char *concat PARAMS ((const char *, ...)); /* Check whether two file descriptors refer to the same file. */ extern int fdmatch PARAMS ((int fd1, int fd2)); /* Get the amount of time the process has run, in microseconds. */ extern long get_run_time PARAMS ((void)); /* Allocate memory filled with spaces. Allocates using malloc. */ extern const char *spaces PARAMS ((int count)); /* Return the maximum error number for which strerror will return a string. */ extern int errno_max PARAMS ((void)); /* Return the name of an errno value (e.g., strerrno (EINVAL) returns "EINVAL"). */ extern const char *strerrno PARAMS ((int)); /* Given the name of an errno value, return the value. */ extern int strtoerrno PARAMS ((const char *)); /* Return the maximum signal number for which strsignal will return a string. */ extern int signo_max PARAMS ((void)); /* Return the name of a signal number (e.g., strsigno (SIGHUP) returns "SIGHUP"). */ extern const char *strsigno PARAMS ((int)); /* Given the name of a signal, return its number. */ extern int strtosigno PARAMS ((const char *)); /* Register a function to be run by xexit. Returns 0 on success. */ extern int xatexit PARAMS ((void (*fn) (void))); /* Exit, calling all the functions registered with xatexit. */ #ifndef __GNUC__ extern void xexit PARAMS ((int status)); #else typedef void libiberty_voidfn PARAMS ((int status)); __volatile__ libiberty_voidfn xexit; #endif /* Set the program name used by xmalloc. */ extern void xmalloc_set_program_name PARAMS ((const char *)); /* Allocate memory without fail. If malloc fails, this will print a message to stderr (using the name set by xmalloc_set_program_name, if any) and then call xexit. FIXME: We do not declare the parameter type (size_t) in order to avoid conflicts with other declarations of xmalloc that exist in programs which use libiberty. */ extern PTR xmalloc (); /* Reallocate memory without fail. This works like xmalloc. FIXME: We do not declare the parameter types for the same reason as xmalloc. */ extern PTR xrealloc (); #endif /* ! defined (LIBIBERTY_H) */ gdb-4.13/include/oasys.h 666 34562 1752 7427 5410313711 13474 0ustar fnfcygnus/* Oasys object format header file for BFD. Contributed by Cygnus Support. */ #define OASYS_MAX_SEC_COUNT 16 /* **** */ typedef struct oasys_archive_header { unsigned int version; char create_date[12]; char revision_date[12]; unsigned int mod_count; file_ptr mod_tbl_offset; unsigned int sym_tbl_size; unsigned int sym_count; file_ptr sym_tbl_offset; unsigned int xref_count; file_ptr xref_lst_offset; } oasys_archive_header_type; typedef struct oasys_extarchive_header { bfd_byte version[4]; bfd_byte create_date[12]; bfd_byte revision_date[12]; bfd_byte mod_count[4]; bfd_byte mod_tbl_offset[4]; bfd_byte sym_tbl_size[4]; bfd_byte sym_count[4]; bfd_byte sym_tbl_offset[4]; bfd_byte xref_count[4]; bfd_byte xref_lst_offset[4]; } oasys_extarchive_header_type; typedef struct oasys_module_table { int mod_number; char mod_date[12]; unsigned int mod_size; unsigned int dep_count; unsigned int depee_count; file_ptr file_offset; unsigned int sect_count; char *module_name; unsigned int module_name_size; } oasys_module_table_type; typedef struct oasys_extmodule_table_a { bfd_byte mod_number[4]; bfd_byte mod_date[12]; bfd_byte mod_size[4]; bfd_byte dep_count[4]; bfd_byte depee_count[4]; bfd_byte sect_count[4]; bfd_byte file_offset[4]; bfd_byte mod_name[32]; } oasys_extmodule_table_type_a_type; typedef struct oasys_extmodule_table_b { bfd_byte mod_number[4]; bfd_byte mod_date[12]; bfd_byte mod_size[4]; bfd_byte dep_count[4]; bfd_byte depee_count[4]; bfd_byte sect_count[4]; bfd_byte file_offset[4]; bfd_byte mod_name_length[4]; } oasys_extmodule_table_type_b_type; typedef enum oasys_record { oasys_record_is_end_enum = 0, oasys_record_is_data_enum = 1, oasys_record_is_symbol_enum = 2, oasys_record_is_header_enum = 3, oasys_record_is_named_section_enum = 4, oasys_record_is_com_enum = 5, oasys_record_is_debug_enum = 6, oasys_record_is_section_enum = 7, oasys_record_is_debug_file_enum = 8, oasys_record_is_module_enum = 9, oasys_record_is_local_enum = 10 } oasys_record_enum_type; typedef struct oasys_record_header { unsigned char length; unsigned char check_sum; unsigned char type; unsigned char fill; } oasys_record_header_type; typedef struct oasys_data_record { oasys_record_header_type header; unsigned char relb; bfd_byte addr[4]; /* maximum total size of data record is 255 bytes */ bfd_byte data[246]; } oasys_data_record_type; typedef struct oasys_header_record { oasys_record_header_type header; unsigned char version_number; unsigned char rev_number; char module_name[26-6]; char description[64-26]; } oasys_header_record_type; #define OASYS_VERSION_NUMBER 0 #define OASYS_REV_NUMBER 0 typedef struct oasys_symbol_record { oasys_record_header_type header; unsigned char relb; bfd_byte value[4]; bfd_byte refno[2]; char name[64]; } oasys_symbol_record_type; #define RELOCATION_PCREL_BIT 0x80 #define RELOCATION_32BIT_BIT 0x40 #define RELOCATION_TYPE_BITS 0x30 #define RELOCATION_TYPE_ABS 0x00 #define RELOCATION_TYPE_REL 0x10 #define RELOCATION_TYPE_UND 0x20 #define RELOCATION_TYPE_COM 0x30 #define RELOCATION_SECT_BITS 0x0f typedef struct oasys_section_record { oasys_record_header_type header; unsigned char relb; bfd_byte value[4]; bfd_byte vma[4]; bfd_byte fill[3]; } oasys_section_record_type; typedef struct oasys_end_record { oasys_record_header_type header; unsigned char relb; bfd_byte entry[4]; bfd_byte fill[2]; bfd_byte zero; } oasys_end_record_type; typedef union oasys_record_union { oasys_record_header_type header; oasys_data_record_type data; oasys_section_record_type section; oasys_symbol_record_type symbol; oasys_header_record_type first; oasys_end_record_type end; bfd_byte pad[256]; } oasys_record_union_type; gdb-4.13/include/obstack.h 666 34562 1752 46111 5556103722 14007 0ustar fnfcygnus/* obstack.h - object stack macros Copyright (C) 1988, 89, 90, 91, 92, 93, 94 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2, 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this program; if not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Summary: All the apparent functions defined here are macros. The idea is that you would use these pre-tested macros to solve a very specific set of problems, and they would run fast. Caution: no side-effects in arguments please!! They may be evaluated MANY times!! These macros operate a stack of objects. Each object starts life small, and may grow to maturity. (Consider building a word syllable by syllable.) An object can move while it is growing. Once it has been "finished" it never changes address again. So the "top of the stack" is typically an immature growing object, while the rest of the stack is of mature, fixed size and fixed address objects. These routines grab large chunks of memory, using a function you supply, called `obstack_chunk_alloc'. On occasion, they free chunks, by calling `obstack_chunk_free'. You must define them and declare them before using any obstack macros. Each independent stack is represented by a `struct obstack'. Each of the obstack macros expects a pointer to such a structure as the first argument. One motivation for this package is the problem of growing char strings in symbol tables. Unless you are "fascist pig with a read-only mind" --Gosper's immortal quote from HAKMEM item 154, out of context--you would not like to put any arbitrary upper limit on the length of your symbols. In practice this often means you will build many short symbols and a few long symbols. At the time you are reading a symbol you don't know how long it is. One traditional method is to read a symbol into a buffer, realloc()ating the buffer every time you try to read a symbol that is longer than the buffer. This is beaut, but you still will want to copy the symbol from the buffer to a more permanent symbol-table entry say about half the time. With obstacks, you can work differently. Use one obstack for all symbol names. As you read a symbol, grow the name in the obstack gradually. When the name is complete, finalize it. Then, if the symbol exists already, free the newly read name. The way we do this is to take a large chunk, allocating memory from low addresses. When you want to build a symbol in the chunk you just add chars above the current "high water mark" in the chunk. When you have finished adding chars, because you got to the end of the symbol, you know how long the chars are, and you can create a new object. Mostly the chars will not burst over the highest address of the chunk, because you would typically expect a chunk to be (say) 100 times as long as an average object. In case that isn't clear, when we have enough chars to make up the object, THEY ARE ALREADY CONTIGUOUS IN THE CHUNK (guaranteed) so we just point to it where it lies. No moving of chars is needed and this is the second win: potentially long strings need never be explicitly shuffled. Once an object is formed, it does not change its address during its lifetime. When the chars burst over a chunk boundary, we allocate a larger chunk, and then copy the partly formed object from the end of the old chunk to the beginning of the new larger chunk. We then carry on accreting characters to the end of the object as we normally would. A special macro is provided to add a single char at a time to a growing object. This allows the use of register variables, which break the ordinary 'growth' macro. Summary: We allocate large chunks. We carve out one object at a time from the current chunk. Once carved, an object never moves. We are free to append data of any size to the currently growing object. Exactly one object is growing in an obstack at any one time. You can run one obstack per control block. You may have as many control blocks as you dare. Because of the way we do it, you can `unwind' an obstack back to a previous state. (You may remove objects much as you would with a stack.) */ /* Don't do the contents of this file more than once. */ #ifndef __OBSTACK_H__ #define __OBSTACK_H__ /* We use subtraction of (char *)0 instead of casting to int because on word-addressable machines a simple cast to int may ignore the byte-within-word field of the pointer. */ #ifndef __PTR_TO_INT #define __PTR_TO_INT(P) ((P) - (char *)0) #endif #ifndef __INT_TO_PTR #define __INT_TO_PTR(P) ((P) + (char *)0) #endif /* We need the type of the resulting object. In ANSI C it is ptrdiff_t but in traditional C it is usually long. If we are in ANSI C and don't already have ptrdiff_t get it. */ #if defined (__STDC__) && ! defined (offsetof) #if defined (__GNUC__) && defined (IN_GCC) /* On Next machine, the system's stddef.h screws up if included after we have defined just ptrdiff_t, so include all of stddef.h. Otherwise, define just ptrdiff_t, which is all we need. */ #ifndef __NeXT__ #define __need_ptrdiff_t #endif #endif #include #endif #ifdef __STDC__ #define PTR_INT_TYPE ptrdiff_t #else #define PTR_INT_TYPE long #endif struct _obstack_chunk /* Lives at front of each chunk. */ { char *limit; /* 1 past end of this chunk */ struct _obstack_chunk *prev; /* address of prior chunk or NULL */ char contents[4]; /* objects begin here */ }; struct obstack /* control current object in current chunk */ { long chunk_size; /* preferred size to allocate chunks in */ struct _obstack_chunk* chunk; /* address of current struct obstack_chunk */ char *object_base; /* address of object we are building */ char *next_free; /* where to add next char to current object */ char *chunk_limit; /* address of char after current chunk */ PTR_INT_TYPE temp; /* Temporary for some macros. */ int alignment_mask; /* Mask of alignment for each object. */ struct _obstack_chunk *(*chunkfun) (); /* User's fcn to allocate a chunk. */ void (*freefun) (); /* User's function to free a chunk. */ char *extra_arg; /* first arg for chunk alloc/dealloc funcs */ unsigned use_extra_arg:1; /* chunk alloc/dealloc funcs take extra arg */ unsigned maybe_empty_object:1;/* There is a possibility that the current chunk contains a zero-length object. This prevents freeing the chunk if we allocate a bigger chunk to replace it. */ unsigned alloc_failed:1; /* chunk alloc func returned 0 */ }; /* Declare the external functions we use; they are in obstack.c. */ #ifdef __STDC__ extern void _obstack_newchunk (struct obstack *, int); extern void _obstack_free (struct obstack *, void *); extern int _obstack_begin (struct obstack *, int, int, void *(*) (), void (*) ()); extern int _obstack_begin_1 (struct obstack *, int, int, void *(*) (), void (*) (), void *); #else extern void _obstack_newchunk (); extern void _obstack_free (); extern int _obstack_begin (); extern int _obstack_begin_1 (); #endif #ifdef __STDC__ /* Do the function-declarations after the structs but before defining the macros. */ void obstack_init (struct obstack *obstack); void * obstack_alloc (struct obstack *obstack, int size); void * obstack_copy (struct obstack *obstack, void *address, int size); void * obstack_copy0 (struct obstack *obstack, void *address, int size); void obstack_free (struct obstack *obstack, void *block); void obstack_blank (struct obstack *obstack, int size); void obstack_grow (struct obstack *obstack, void *data, int size); void obstack_grow0 (struct obstack *obstack, void *data, int size); void obstack_1grow (struct obstack *obstack, int data_char); void obstack_ptr_grow (struct obstack *obstack, void *data); void obstack_int_grow (struct obstack *obstack, int data); void * obstack_finish (struct obstack *obstack); int obstack_object_size (struct obstack *obstack); int obstack_room (struct obstack *obstack); void obstack_1grow_fast (struct obstack *obstack, int data_char); void obstack_ptr_grow_fast (struct obstack *obstack, void *data); void obstack_int_grow_fast (struct obstack *obstack, int data); void obstack_blank_fast (struct obstack *obstack, int size); void * obstack_base (struct obstack *obstack); void * obstack_next_free (struct obstack *obstack); int obstack_alignment_mask (struct obstack *obstack); int obstack_chunk_size (struct obstack *obstack); #endif /* __STDC__ */ /* Non-ANSI C cannot really support alternative functions for these macros, so we do not declare them. */ /* Pointer to beginning of object being allocated or to be allocated next. Note that this might not be the final address of the object because a new chunk might be needed to hold the final size. */ #define obstack_base(h) ((h)->alloc_failed ? 0 : (h)->object_base) /* Size for allocating ordinary chunks. */ #define obstack_chunk_size(h) ((h)->chunk_size) /* Pointer to next byte not yet allocated in current chunk. */ #define obstack_next_free(h) ((h)->alloc_failed ? 0 : (h)->next_free) /* Mask specifying low bits that should be clear in address of an object. */ #define obstack_alignment_mask(h) ((h)->alignment_mask) #define obstack_init(h) \ _obstack_begin ((h), 0, 0, \ (void *(*) ()) obstack_chunk_alloc, (void (*) ()) obstack_chunk_free) #define obstack_begin(h, size) \ _obstack_begin ((h), (size), 0, \ (void *(*) ()) obstack_chunk_alloc, (void (*) ()) obstack_chunk_free) #define obstack_specify_allocation(h, size, alignment, chunkfun, freefun) \ _obstack_begin ((h), (size), (alignment), \ (void *(*) ()) (chunkfun), (void (*) ()) (freefun)) #define obstack_specify_allocation_with_arg(h, size, alignment, chunkfun, freefun, arg) \ _obstack_begin_1 ((h), (size), (alignment), \ (void *(*) ()) (chunkfun), (void (*) ()) (freefun), (arg)) #define obstack_chunkfun(h, newchunkfun) \ ((h) -> chunkfun = (struct _obstack_chunk *(*)()) (newchunkfun)) #define obstack_freefun(h, newfreefun) \ ((h) -> freefun = (void (*)()) (newfreefun)) #define obstack_1grow_fast(h,achar) (*((h)->next_free)++ = achar) #define obstack_blank_fast(h,n) ((h)->next_free += (n)) #if defined (__GNUC__) && defined (__STDC__) #if __GNUC__ < 2 #define __extension__ #endif /* For GNU C, if not -traditional, we can define these macros to compute all args only once without using a global variable. Also, we can avoid using the `temp' slot, to make faster code. */ #define obstack_object_size(OBSTACK) \ __extension__ \ ({ struct obstack *__o = (OBSTACK); \ __o->alloc_failed ? 0 : \ (unsigned) (__o->next_free - __o->object_base); }) #define obstack_room(OBSTACK) \ __extension__ \ ({ struct obstack *__o = (OBSTACK); \ (unsigned) (__o->chunk_limit - __o->next_free); }) #define obstack_grow(OBSTACK,where,length) \ __extension__ \ ({ struct obstack *__o = (OBSTACK); \ int __len = (length); \ if (__o->next_free + __len > __o->chunk_limit) \ _obstack_newchunk (__o, __len); \ if (!__o->alloc_failed) \ { \ bcopy (where, __o->next_free, __len); \ __o->next_free += __len; \ } \ (void) 0; }) #define obstack_grow0(OBSTACK,where,length) \ __extension__ \ ({ struct obstack *__o = (OBSTACK); \ int __len = (length); \ if (__o->next_free + __len + 1 > __o->chunk_limit) \ _obstack_newchunk (__o, __len + 1); \ if (!__o->alloc_failed) \ { \ bcopy (where, __o->next_free, __len); \ __o->next_free += __len; \ *(__o->next_free)++ = 0; \ } \ (void) 0; }) #define obstack_1grow(OBSTACK,datum) \ __extension__ \ ({ struct obstack *__o = (OBSTACK); \ if (__o->next_free + 1 > __o->chunk_limit) \ _obstack_newchunk (__o, 1); \ if (!__o->alloc_failed) \ *(__o->next_free)++ = (datum); \ (void) 0; }) /* These assume that the obstack alignment is good enough for pointers or ints, and that the data added so far to the current object shares that much alignment. */ #define obstack_ptr_grow(OBSTACK,datum) \ __extension__ \ ({ struct obstack *__o = (OBSTACK); \ if (__o->next_free + sizeof (void *) > __o->chunk_limit) \ _obstack_newchunk (__o, sizeof (void *)); \ if (!__o->alloc_failed) \ *((void **)__o->next_free)++ = ((void *)datum); \ (void) 0; }) #define obstack_int_grow(OBSTACK,datum) \ __extension__ \ ({ struct obstack *__o = (OBSTACK); \ if (__o->next_free + sizeof (int) > __o->chunk_limit) \ _obstack_newchunk (__o, sizeof (int)); \ if (!__o->alloc_failed) \ *((int *)__o->next_free)++ = ((int)datum); \ (void) 0; }) #define obstack_ptr_grow_fast(h,aptr) (*((void **)(h)->next_free)++ = (void *)aptr) #define obstack_int_grow_fast(h,aint) (*((int *)(h)->next_free)++ = (int)aint) #define obstack_blank(OBSTACK,length) \ __extension__ \ ({ struct obstack *__o = (OBSTACK); \ int __len = (length); \ if (__o->chunk_limit - __o->next_free < __len) \ _obstack_newchunk (__o, __len); \ if (!__o->alloc_failed) \ __o->next_free += __len; \ (void) 0; }) #define obstack_alloc(OBSTACK,length) \ __extension__ \ ({ struct obstack *__h = (OBSTACK); \ obstack_blank (__h, (length)); \ obstack_finish (__h); }) #define obstack_copy(OBSTACK,where,length) \ __extension__ \ ({ struct obstack *__h = (OBSTACK); \ obstack_grow (__h, (where), (length)); \ obstack_finish (__h); }) #define obstack_copy0(OBSTACK,where,length) \ __extension__ \ ({ struct obstack *__h = (OBSTACK); \ obstack_grow0 (__h, (where), (length)); \ obstack_finish (__h); }) /* The local variable is named __o1 to avoid a name conflict when obstack_blank is called. */ #define obstack_finish(OBSTACK) \ __extension__ \ ({ struct obstack *__o1 = (OBSTACK); \ void *value; \ if (__o1->alloc_failed) \ value = 0; \ else \ { \ value = (void *) __o1->object_base; \ if (__o1->next_free == value) \ __o1->maybe_empty_object = 1; \ __o1->next_free \ = __INT_TO_PTR ((__PTR_TO_INT (__o1->next_free)+__o1->alignment_mask)\ & ~ (__o1->alignment_mask)); \ if (__o1->next_free - (char *)__o1->chunk \ > __o1->chunk_limit - (char *)__o1->chunk) \ __o1->next_free = __o1->chunk_limit; \ __o1->object_base = __o1->next_free; \ } \ value; }) #define obstack_free(OBSTACK, OBJ) \ __extension__ \ ({ struct obstack *__o = (OBSTACK); \ void *__obj = (OBJ); \ if (__obj > (void *)__o->chunk && __obj < (void *)__o->chunk_limit) \ __o->next_free = __o->object_base = __obj; \ else (obstack_free) (__o, __obj); }) #else /* not __GNUC__ or not __STDC__ */ #define obstack_object_size(h) \ (unsigned) ((h)->alloc_failed ? 0 : (h)->next_free - (h)->object_base) #define obstack_room(h) \ (unsigned) ((h)->chunk_limit - (h)->next_free) /* Note that the call to _obstack_newchunk is enclosed in (..., 0) so that we can avoid having void expressions in the arms of the conditional expression. Casting the third operand to void was tried before, but some compilers won't accept it. */ #define obstack_grow(h,where,length) \ ( (h)->temp = (length), \ (((h)->next_free + (h)->temp > (h)->chunk_limit) \ ? (_obstack_newchunk ((h), (h)->temp), 0) : 0), \ ((h)->alloc_failed ? 0 : \ (bcopy (where, (h)->next_free, (h)->temp), \ (h)->next_free += (h)->temp))) #define obstack_grow0(h,where,length) \ ( (h)->temp = (length), \ (((h)->next_free + (h)->temp + 1 > (h)->chunk_limit) \ ? (_obstack_newchunk ((h), (h)->temp + 1), 0) : 0), \ ((h)->alloc_failed ? 0 : \ (bcopy (where, (h)->next_free, (h)->temp), \ (h)->next_free += (h)->temp, \ *((h)->next_free)++ = 0))) #define obstack_1grow(h,datum) \ ( (((h)->next_free + 1 > (h)->chunk_limit) \ ? (_obstack_newchunk ((h), 1), 0) : 0), \ ((h)->alloc_failed ? 0 : \ (*((h)->next_free)++ = (datum)))) #define obstack_ptr_grow(h,datum) \ ( (((h)->next_free + sizeof (char *) > (h)->chunk_limit) \ ? (_obstack_newchunk ((h), sizeof (char *)), 0) : 0), \ ((h)->alloc_failed ? 0 : \ (*((char **)(((h)->next_free+=sizeof(char *))-sizeof(char *))) = ((char *)datum)))) #define obstack_int_grow(h,datum) \ ( (((h)->next_free + sizeof (int) > (h)->chunk_limit) \ ? (_obstack_newchunk ((h), sizeof (int)), 0) : 0), \ ((h)->alloc_failed ? 0 : \ (*((int *)(((h)->next_free+=sizeof(int))-sizeof(int))) = ((int)datum)))) #define obstack_ptr_grow_fast(h,aptr) (*((char **)(h)->next_free)++ = (char *)aptr) #define obstack_int_grow_fast(h,aint) (*((int *)(h)->next_free)++ = (int)aint) #define obstack_blank(h,length) \ ( (h)->temp = (length), \ (((h)->chunk_limit - (h)->next_free < (h)->temp) \ ? (_obstack_newchunk ((h), (h)->temp), 0) : 0), \ ((h)->alloc_failed ? 0 : \ ((h)->next_free += (h)->temp))) #define obstack_alloc(h,length) \ (obstack_blank ((h), (length)), obstack_finish ((h))) #define obstack_copy(h,where,length) \ (obstack_grow ((h), (where), (length)), obstack_finish ((h))) #define obstack_copy0(h,where,length) \ (obstack_grow0 ((h), (where), (length)), obstack_finish ((h))) #define obstack_finish(h) \ ( (h)->alloc_failed ? 0 : \ (((h)->next_free == (h)->object_base \ ? (((h)->maybe_empty_object = 1), 0) \ : 0), \ (h)->temp = __PTR_TO_INT ((h)->object_base), \ (h)->next_free \ = __INT_TO_PTR ((__PTR_TO_INT ((h)->next_free)+(h)->alignment_mask) \ & ~ ((h)->alignment_mask)), \ (((h)->next_free - (char *)(h)->chunk \ > (h)->chunk_limit - (char *)(h)->chunk) \ ? ((h)->next_free = (h)->chunk_limit) : 0), \ (h)->object_base = (h)->next_free, \ __INT_TO_PTR ((h)->temp))) #ifdef __STDC__ #define obstack_free(h,obj) \ ( (h)->temp = (char *)(obj) - (char *) (h)->chunk, \ (((h)->temp > 0 && (h)->temp < (h)->chunk_limit - (char *) (h)->chunk)\ ? (int) ((h)->next_free = (h)->object_base \ = (h)->temp + (char *) (h)->chunk) \ : (((obstack_free) ((h), (h)->temp + (char *) (h)->chunk), 0), 0))) #else #define obstack_free(h,obj) \ ( (h)->temp = (char *)(obj) - (char *) (h)->chunk, \ (((h)->temp > 0 && (h)->temp < (h)->chunk_limit - (char *) (h)->chunk)\ ? (int) ((h)->next_free = (h)->object_base \ = (h)->temp + (char *) (h)->chunk) \ : (_obstack_free ((h), (h)->temp + (char *) (h)->chunk), 0))) #endif #endif /* not __GNUC__ or not __STDC__ */ #endif /* not __OBSTACK_H__ */ gdb-4.13/include/os9k.h 666 34562 1752 11734 5620266105 13246 0ustar fnfcygnus#if !defined(_MODULE_H) #define _MODULE_H /* OS-9000 i386 module header definitions */ #define _MPF386 /* sizeof common header less parity field */ #define N_M_PARITY (sizeof(mh_com)-sizeof(unisgned short)) #define OLD_M_PARITY 46 #define M_PARITY N_M_PARITY #ifdef _MPF68K #define MODSYNC 0x4afd /* module header sync code for 680x0 processors */ #endif #ifdef _MPF386 #define MODSYNC 0x4afc /* module header sync code for 80386 processors */ #endif #define MODREV 1 /* module format revision 1 */ #define CRCCON 0x800fe3 /* crc polynomial constant */ /* Module access permission values */ #define MP_OWNER_READ 0x0001 #define MP_OWNER_WRITE 0x0002 #define MP_OWNER_EXEC 0x0004 #define MP_GROUP_READ 0x0010 #define MP_GROUP_WRITE 0x0020 #define MP_GROUP_EXEC 0x0040 #define MP_WORLD_READ 0x0100 #define MP_WORLD_WRITE 0x0200 #define MP_WORLD_EXEC 0x0400 #define MP_WORLD_ACCESS 0x0777 #define MP_OWNER_MASK 0x000f #define MP_GROUP_MASK 0x00f0 #define MP_WORLD_MASK 0x0f00 #define MP_SYSTM_MASK 0xf000 /* Module Type/Language values */ #define MT_ANY 0 #define MT_PROGRAM 0x0001 #define MT_SUBROUT 0x0002 #define MT_MULTI 0x0003 #define MT_DATA 0x0004 #define MT_TRAPLIB 0x000b #define MT_SYSTEM 0x000c #define MT_FILEMAN 0x000d #define MT_DEVDRVR 0x000e #define MT_DEVDESC 0x000f #define MT_MASK 0xff00 #define ML_ANY 0 #define ML_OBJECT 1 #define ML_ICODE 2 #define ML_PCODE 3 #define ML_CCODE 4 #define ML_CBLCODE 5 #define ML_FRTNCODE 6 #define ML_MASK 0x00ff #define mktypelang(type,lang) (((type)<<8)|(lang)) /* Module Attribute values */ #define MA_REENT 0x80 #define MA_GHOST 0x40 #define MA_SUPER 0x20 #define MA_MASK 0xff00 #define MR_MASK 0x00ff #define mkattrevs(attr, revs) (((attr)<<8)|(revs)) #define m_user m_owner.grp_usr.usr #define m_group m_owner.grp_usr.grp #define m_group_user m_owner.group_user /* macro definitions for accessing module header fields */ #define MODNAME(mod) ((u_char*)((u_char*)mod + ((Mh_com)mod)->m_name)) #if 0 /* Appears not to be used, and the u_int32 typedef is gone (because it conflicted with a Mach header. */ #define MODSIZE(mod) ((u_int32)((Mh_com)mod)->m_size) #endif /* 0 */ #define MHCOM_BYTES_SIZE 80 #define N_BADMAG(a) (((a).a_info) != MODSYNC) typedef struct mh_com { /* sync bytes ($4afc). */ unsigned char m_sync[2]; unsigned char m_sysrev[2]; /* system revision check value */ unsigned char m_size[4]; /* module size */ unsigned char m_owner[4]; /* group/user id */ unsigned char m_name[4]; /* offset to module name */ unsigned char m_access[2], /* access permissions */ m_tylan[2], /* type/lang */ m_attrev[2], /* rev/attr */ m_edit[2]; /* edition */ unsigned char m_needs[4], /* module hardware requirements flags. (reserved) */ m_usage[4], /* comment string offset */ m_symbol[4], /* symbol table offset */ m_exec[4], /* offset to execution entry point */ m_excpt[4], /* offset to exception entry point */ m_data[4], /* data storage requirement */ m_stack[4], /* stack size */ m_idata[4], /* offset to initialized data */ m_idref[4], /* offset to data reference lists */ m_init[4], /* initialization routine offset */ m_term[4]; /* termination routine offset */ unsigned char m_ident[2]; /* ident code for ident program */ char m_spare[8]; /* reserved bytes */ unsigned char m_parity[2]; /* header parity */ } mh_com,*Mh_com; /* Executable memory module */ typedef mh_com *Mh_exec,mh_exec; /* Data memory module */ typedef mh_com *Mh_data,mh_data; /* File manager memory module */ typedef mh_com *Mh_fman,mh_fman; /* device driver module */ typedef mh_com *Mh_drvr,mh_drvr; /* trap handler module */ typedef mh_com mh_trap, *Mh_trap; /* Device descriptor module */ typedef mh_com *Mh_dev,mh_dev; /* Configuration module */ typedef mh_com *Mh_config, mh_config; #if 0 #if !defined(_MODDIR_H) /* go get _os_fmod (and others) */ #include #endif error_code _os_crc(void *, u_int32, int *); error_code _os_datmod(char *, u_int32, u_int16 *, u_int16 *, u_int32, void **, mh_data **); error_code _os_get_moddir(void *, u_int32 *); error_code _os_initdata(mh_com *, void *); error_code _os_link(char **, mh_com **, void **, u_int16 *, u_int16 *); error_code _os_linkm(mh_com *, void **, u_int16 *, u_int16 *); error_code _os_load(char *, mh_com **, void **, u_int32, u_int16 *, u_int16 *, u_int32); error_code _os_mkmodule(char *, u_int32, u_int16 *, u_int16 *, u_int32, void **, mh_com **, u_int32); error_code _os_modaddr(void *, mh_com **); error_code _os_setcrc(mh_com *); error_code _os_slink(u_int32, char *, void **, void **, mh_com **); error_code _os_slinkm(u_int32, mh_com *, void **, void **); error_code _os_unlink(mh_com *); error_code _os_unload(char *, u_int32); error_code _os_tlink(u_int32, char *, void **, mh_trap **, void *, u_int32); error_code _os_tlinkm(u_int32, mh_com *, void **, void *, u_int32); error_code _os_iodel(mh_com *); error_code _os_vmodul(mh_com *, mh_com *, u_int32); #endif /* 0 */ #endif gdb-4.13/include/wait.h 666 34562 1752 2661 5427234331 13305 0ustar fnfcygnus/* Define how to access the int that the wait system call stores. This has been compatible in all Unix systems since time immemorial, but various well-meaning people have defined various different words for the same old bits in the same old int (sometimes claimed to be a struct). We just know it's an int and we use these macros to access the bits. */ /* The following macros are defined equivalently to their definitions in POSIX.1. We fail to define WNOHANG and WUNTRACED, which POSIX.1 defines, since our code does not use waitpid(). We also fail to declare wait() and waitpid(). */ #define WIFEXITED(w) (((w)&0377) == 0) #define WIFSIGNALED(w) (((w)&0377) != 0177 && ((w)&~0377) == 0) #ifdef IBM6000 /* Unfortunately, the above comment (about being compatible in all Unix systems) is not quite correct for AIX, sigh. And AIX 3.2 can generate status words like 0x57c (sigtrap received after load), and gdb would choke on it. */ #define WIFSTOPPED(w) ((w)&0x40) #else #define WIFSTOPPED(w) (((w)&0377) == 0177) #endif #define WEXITSTATUS(w) (((w) >> 8) & 0377) /* same as WRETCODE */ #define WTERMSIG(w) ((w) & 0177) #define WSTOPSIG WEXITSTATUS /* These are not defined in POSIX, but are used by our programs. */ #define WAITTYPE int #define WCOREDUMP(w) (((w)&0200) != 0) #define WSETEXIT(w,status) ((w) = (0 | ((status) << 8))) #define WSETSTOP(w,sig) ((w) = (0177 | ((sig) << 8))) gdb-4.13/include/coff/ 777 34562 1752 0 5623251104 13013 5ustar fnfcygnusgdb-4.13/include/coff/ChangeLog 666 34562 1752 33466 5606461131 14705 0ustar fnfcygnusWed Jul 6 00:48:57 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * alpha.h: Add definitions for alpha file header flags, encoding the object type of the file. Mon Jun 20 13:47:01 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * ecoff.h (ecoff_swap_tir_in): Remove declaration. (ecoff_swap_tir_out): Likewise. (ecoff_swap_rndx_in, ecoff_swap_rndx_out): Likewise. (struct ecoff_debug_swap): Add new fields: swap_tir_in, swap_rndx_in, swap_tir_out, swap_rndx_out, read_debug_info. Sun Jun 12 03:51:52 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * symconst.h: Pick up SGI define for stIndirect. Fri Apr 22 13:05:28 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (REGINFO): Don't define. (struct ecoff_reginfo): Don't define. * sh.h (SH_ARCH_MAGIC): Rename from SHMAGIC. SHMAGIC is used by several targets to mean a shared library. (SHBADMAG): Corresponding change. Thu Apr 14 13:00:53 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (RELOC_BITS3_TYPE_BIG): Changed from 0x1e to 0x3e. (RELOC_BITS3_TYPEHI_LITTLE): Define. (RELOC_BITS3_TYPEHI_SH_LITTLE): Define. (MIPS_R_PCREL16): Change value from 8 to 12 to match Irix 4. (MIPS_R_RELHI): Define. (MIPS_R_RELLO): Define. (MIPS_R_SWITCH): Change value from 9 to 22. Thu Apr 7 14:19:35 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (MIPS_R_SWITCH): Define. Thu Mar 31 19:28:33 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * internal.h (internal_aouthdr): Added comments for Apollo fields. Thu Mar 31 16:28:02 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (STYP_ECOFF_LIB): Define as used on Irix 4. Fri Mar 25 17:16:55 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (struct ecoff_debug_info): Add adjust field. (struct ecoff_value_adjust): Define. Tue Mar 22 13:22:47 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (MIPS_R_PCREL16): Define. Sat Feb 26 10:26:38 1994 Ian Lance Taylor (ian@cygnus.com) * ecoff.h: Add casts to avoid warnings from SVR4 cc. Mon Feb 21 09:48:46 1994 Ian Lance Taylor (ian@lisa.cygnus.com) * sym.h (struct runtime_pdr): Make field adr bfd_vma, not unsigned long. (SYMR): Make field value bfd_vma, not long. Fri Feb 4 23:35:53 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * rs6000.h (STYP_DEBUG): Define. Wed Feb 2 14:31:37 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * internal.h (union internal_auxent): Change x_csect.x_scnlen into a union of a long and a pointer to a symbol. XCOFF sometimes uses this field as a symbol index. Mon Jan 10 23:54:25 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (ecoff_debug_info): Remove fields line_end, external_dnr_end, external_pdr_end, external_sym_end, external_opt_end, external_aux_end, ss_end, external_fdr_end. Replace ifdbase with ifdmap. Wed Jan 5 17:05:36 1994 Ken Raeburn (raeburn@deneb.cygnus.com) * ecoff.h (STYP_EXTENDESC, STYP_COMMENT, STYP_XDATA, STYP_PDATA): Define. Wed Jan 5 16:58:24 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (NUM_RELOC_SECTIONS): Define. Tue Dec 21 09:24:56 1993 Ken Raeburn (raeburn@rtl.cygnus.com) * sparc.h (struct external_reloc): Rename field r_addend to r_offset. Sat Dec 11 16:12:32 1993 Steve Chamberlain (sac@thepub.cygnus.com) * internal.h (R_DISP7, R_SH_IMM16): New reloc types. Tue Nov 23 14:23:19 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (struct ecoff_debug_swap): Added *_end fields for all the symbolic information pointers. * sym.h: Named the EXTR structure ecoff_extr. Fri Nov 19 08:21:18 1993 Ken Raeburn (raeburn@rover.cygnus.com) * sparc.h (RELSZ): Use correct size. Wed Nov 17 17:18:16 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (struct ecoff_debug_info): Define. Tue Nov 2 17:56:57 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (struct ecoff_debug_swap): Define. Thu Oct 28 17:07:50 1993 Stan Shebs (shebs@rtl.cygnus.com) * i386.h (I386LYNXMAGIC): Rename to LYNXCOFFMAGIC. * m68k.h (LYNXCOFFMAGIC): Define. * sparc.h: New file. Tue Oct 19 15:34:50 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * alpha.h (external_aouthdr): Split four byte padding field into two byte bldrev field and two byte padding field. * ecoff.h (_LITA, _PDATA, _XDATA, STYP_LITA): Defined. Wed Oct 13 15:52:34 1993 Ken Raeburn (raeburn@cygnus.com) Sun Oct 10 17:27:10 1993 Troy Rollo (troy@cbme.unsw.edu.au) * coff/internal.h: Added o_sri, o_inlib and o_vid for Apollos as well as R_DIR16. * coff/apollo.h: New file Mon Oct 11 17:16:48 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (REGINFO, struct ecoff_reginfo): Define. Tue Oct 5 10:52:53 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * rs6000.h: Change non-ASCII characters in comment to octal escapes. Tue Sep 28 03:27:04 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * ecoff.h (_FINI, STYP_ECOFF_FINI): Add to support .fini section. Fri Sep 24 11:53:53 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (BADMAG): Recognize MIPS_MAGIC_LITTLE3 and MIPS_MAGIC_BIG3. * ecoff.h: Define MIPS_MAGIC_LITTLE3 and MIPS_MAGIC_BIG3. Thu Sep 23 21:07:14 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mips.h (BADMAG): Recognize MIPS_MAGIC_LITTLE2 and MIPS_MAGIC_BIG2. * ecoff.h: Define MIPS_MAGIC_LITTLE2 and MIPS_MAGIC_BIG2. Thu Sep 16 20:27:21 1993 Jim Kingdon (kingdon@cirdan.cygnus.com) * sym.h, symconst.h: Add comment stating these files are not part of GDB, GAS, etc. In 1991, when we asked rms whether we could include these files in GDB (although they are copyrighted by someone besides the FSF), he said it was OK if they were not considered part of GDB. Fri Sep 10 17:40:35 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (AUX_PUT_ANY): Cast val argument to bfd_vma. * alpha.c (external_aouthdr): Need four bytes of padding between vstamp and tsize. Tue Sep 7 14:20:43 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff.h (AUX_GET_ANY, AUX_PUT_ANY): Changed to reflect further change in bfd swapping routine names. Tue Sep 7 10:15:17 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * ecoff.h (AUX_GET_ANY): Change name of _do_getb32 to reflect bfd changes. Fri Aug 13 14:30:32 1993 Ian Lance Taylor (ian@cygnus.com) * ecoff.h (RELOC_SECTION_NONE): Define. Thu Aug 12 11:24:42 1993 Ian Lance Taylor (ian@cygnus.com) * alpha.h (struct external_reloc): Add r_symndx field. (RELSZ): Correct. (RELOC_BITS*): Correct. (ALPHA_R_*): Define. * ecoff.h (RELOC_SECTION_{XDATA,PDATA,FINI,LITA,ABS}): Define. (r_extern): Undefine. * internal.h (struct internal_reloc): Make r_vaddr bfd_vma rather than long. Add r_extern field. * alpha.h (PDR_BITS*): Define. * sym.h (PDR): Give correct names to new fields. * ecoff.h: Moved MIPS reloc definitions from here... * mips.h: to here. Tue Aug 3 11:17:53 1993 Ian Lance Taylor (ian@cygnus.com) * alpha.h: Corrected external symbolic debugging structures to match actual usage. * internal.h (internal_filehdr, internal_aouthdr, internal_scnhdr): Changed type of some fields to bfd_vma so they can hold 64 bits. * sym.h (HDRR, FDR, PDR, EXTR): Likewise. (PDR): Added new fields found on Alpha. * symconst.h (magicSym2): Define; new value found on Alpha. * ecoff.h: New file. * alpha.h, mips.h: Moved common information into ecoff.h. Moved external structure definitions in from ecoff-ext.h. * ecoff-ext.h: Removed; information now in alpha.h and mips.h. Sun Jul 18 21:43:59 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * i386.h: Recognize I386PTXMAGIC. Fri Jul 16 09:54:35 1993 Ian Lance Taylor (ian@cygnus.com) * mips.h (MIPS_AOUT_{OZ}MAGIC): Renamed from {OZ}MAGIC. Thu Jul 15 12:23:55 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * m88k.h (union external_auxent): Move x_fcn back inside x_fcnary. ({GET,PUT}_FCN_{LNNOPTR,ENDNDX}): Adjust accordingly. Sun Jul 11 18:00:18 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * m68k.h: Define MC68KBCSMAGIC. Thu Jun 10 11:46:28 1993 Ian Lance Taylor (ian@cygnus.com) * mips.h (_INIT, STYP_MIPS_INIT): Define (used on Irix4). (STYP_OTHER_LOAD): Define as STYP_MIPS_INIT. Wed Jun 9 15:09:09 1993 Ian Lance Taylor (ian@cygnus.com) * mips.h (OMAGIC): Define. Mon Apr 26 18:04:47 1993 Steve Chamberlain (sac@thepub.cygnus.com) * internal.h, sh.h: Support for SH. Sat Apr 24 21:34:59 1993 Jim Kingdon (kingdon@cygnus.com) * a29k.h: Define _LIT. Fri Apr 23 18:41:23 1993 Steve Chamberlain (sac@thepub.cygnus.com) * alpha.h: New file. Thu Apr 8 12:36:34 1993 Ian Lance Taylor (ian@cygnus.com) * internal.h (C_SHADOW, C_VERSION): Copied in from m88k.h. * m88k.h, i386.h, we32k.h: Don't define all the storage classes; they're already in internal.h. Wed Apr 7 11:51:24 1993 Jim Kingdon (kingdon@cygnus.com) * internal.h: Change n_sclass to unsigned char. Change C_EFCN to 0xff, change RS/6000 dbx symbols to no longer be signed. Fri Mar 19 14:52:56 1993 Steve Chamberlain (sac@thepub.cygnus.com) * internal.h: Add H8/500 reloc types. Wed Mar 17 09:46:03 1993 Ian Lance Taylor (ian@cygnus.com) * ecoff-ext.h (AUX_PUT_ANY): Don't use void values in branches of conditional expression. Thu Mar 4 14:12:06 1993 Ian Lance Taylor (ian@cygnus.com) * ecoff-ext.h (AUX_GET_*): Rewrote to use new macro AUX_GET_ANY. (AUX_PUT_*): New macros corresponding to the AUX_GET macros. (ecoff_swap_tir_out): Added prototype. * mips.h (N_BTMASK, N_TMASK, N_BTSHFT, N_TSHIFT): Define; these are needed to interpret gcc debugging output. Tue Feb 9 07:43:27 1993 Ian Lance Taylor (ian@cygnus.com) * we32k.h (BTYPE, ISPTR, ISFCN, ISARY, DECREF): Removed more definitions duplicated in internal.h. Wed Feb 3 09:18:24 1993 Ian Lance Taylor (ian@cygnus.com) * mips.h (RELOC_BITS3_TYPE_*): Correct for big endian machines. Mon Jan 25 11:35:51 1993 Ian Lance Taylor (ian@cygnus.com) * internal.h (internal_aouthdr): Added additional fields used only by MIPS ECOFF. Thu Jan 21 10:28:38 1993 Ian Lance Taylor (ian@cygnus.com) * mips.h (AOUTHDR): Added additional fields used by ECOFF. Tue Jan 19 12:21:19 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * i386.h, we32k.h (N_*, T_*, DT_*): Removed still more definitions duplicated in internal.h. * mips.h (RELOC_SECTION_*, ECOFF_R_*): Defined constants for ECOFF relocs. Fri Jan 15 18:17:00 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff-ext.h: Added prototypes for new ECOFF swapping functions. (opt_ext): New structure. * mips.h (ZMAGIC): Defined to be 0413. (_LIB): Defined to be ".lib" (external_reloc): MIPS ECOFF relocs are only 8 bytes. Added macros to aid in swapping. Fri Jan 8 16:19:26 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ecoff-ext.h: Added prototypes for ECOFF swapping functions. * internal.h (internal_scnhdr): Always provide s_align field, not just on i960. (internal_reloc): Always provide r_size field, not just on RS/6000. * mips.h (_RDATA, _SDATA, _SBSS, _LIT4, _LIT8, STYP_RDATA, STYP_SDATA, STYP_SBSS, STYP_LIT4, STYP_LIT8): Defined. (CODE_MASK, MIPS_IS_STAB, MIPS_MARK_STAB, MIPS_UNMARK_STAB, STABS_SYMBOL): Moved in from gdb/mipsread.c. Wed Jan 6 14:01:46 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * i386.h, we32k.h: removed STYP_* defines, since they duplicated those in internal.h. Tue Dec 29 15:40:07 1992 Ian Lance Taylor (ian@cygnus.com) * i386.h: define I386AIXMAGIC for Danbury AIX PS/2 compiler. Sat Dec 12 16:07:57 1992 Ian Lance Taylor (ian@cygnus.com) * i386.h: don't define BTYPE, ISPTR, ISFCN, ISARY, DECREF: they are defined in internal.h. Thu Nov 12 09:52:01 1992 Steve Chamberlain (sac@thepub.cygnus.com) * internal.h: (internal_reloc): r_offset is now a long. * z8k.h: slight comment enhancement Wed Sep 30 07:46:08 1992 Steve Chamberlain (sac@thepub.cygnus.com) * internal.h: changed z8k reloc types Fri Aug 28 10:16:31 1992 Brendan Kehoe (brendan@cygnus.com) * we32k.h: new file Thu Aug 27 13:00:01 1992 Brendan Kehoe (brendan@cygnus.com) * symconst.h: comment out cruft at the end of #endif Tue Aug 25 15:06:49 1992 Steve Chamberlain (sac@thepub.cygnus.com) * internal.h: added #define for STYP_LIT, removed from a29k and h8300. * z8k.h: added z8000 support Thu Jul 16 16:32:00 1992 Steve Chamberlain (sac@thepub.cygnus.com) * internal.h: added R_RELLONG_NEG reloc type Fri Jun 12 20:11:04 1992 John Gilmore (gnu at cygnus.com) * symconst.h: Fix unterminated comment. Wed Jun 10 07:57:49 1992 Steve Chamberlain (sac@thepub.cygnus.com) * i386.h: a.out magic numbers from mohring@informatik.tu-muenchen.de Mon Jun 8 20:13:33 1992 John Gilmore (gnu at cygnus.com) * ecoff-ext.h, mips.h: Use unsigned chars everywhere. (Suggested by Antti Miettinen.) Tue Apr 14 15:18:44 1992 John Gilmore (gnu at cygnus.com) * sym.h: Add comments. * symconst.h: Merge with Fred's changes. Tue Apr 14 14:30:05 1992 Fred Fish (fnf@cygnus.com) * symconst.h: Pick up SGI defines for stStruct, stUnion, stEnum, langCplusplus, and langCplusplusV2. Thu Apr 2 19:47:43 1992 John Gilmore (gnu at cygnus.com) * sym.h, symconst.h: MIPS has provided redistributable versions of these files. Thanks! * ecoff-ext.h: Add weakext bit to match new sym.h. Fri Mar 6 00:10:46 1992 John Gilmore (gnu at cygnus.com) * ecoff-ext.h: Add relative file descriptors. Thu Feb 27 11:53:04 1992 John Gilmore (gnu at cygnus.com) * ecoff-ext.h: New file for external (in-file) form of ecoff symbol structures. Thu Feb 6 11:33:32 1992 Steve Chamberlain (sac at rtl.cygnus.com) * h8300.h: made the external_lineno l_lnno field 4 bytes wide. andded GET/PUT_LINENO_LNNO macros Sat Nov 30 20:38:35 1991 Steve Chamberlain (sac at rtl.cygnus.com) * ChangeLog, a29k.h, h8300.h, i386.h, i960.h, internal.h, m68k.h, m88k.h, mips.h, rs6000.h: move from above coff-.h Local Variables: version-control: never End: gdb-4.13/include/coff/a29k.h 666 34562 1752 21005 5366413716 14045 0ustar fnfcygnus/* COFF spec for AMD 290*0 Contributed by David Wood @ New York University. */ #ifndef AMD # define AMD #endif /****************************************************************/ /* ** File Header and related definitions */ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; #define FILHDR struct external_filehdr #define FILHSZ sizeof (FILHDR) /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/ /* ** Magic numbers for Am29000 ** (AT&T will assign the "real" magic number) */ #define SIPFBOMAGIC 0572 /* Am29000 (Byte 0 is MSB) */ #define SIPRBOMAGIC 0573 /* Am29000 (Byte 0 is LSB) */ #define A29K_MAGIC_BIG SIPFBOMAGIC #define A29K_MAGIC_LITTLE SIPRBOMAGIC #define A29KBADMAG(x) (((x).f_magic!=A29K_MAGIC_BIG) && \ ((x).f_magic!=A29K_MAGIC_LITTLE)) #define OMAGIC A29K_MAGIC_BIG /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/ /* ** File header flags currently known to us. ** ** Am29000 will use the F_AR32WR and F_AR32W flags to indicate ** the byte ordering in the file. */ /*--------------------------------------------------------------*/ /* ** Optional (a.out) header */ typedef struct external_aouthdr { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; #define AOUTSZ (sizeof(AOUTHDR)) #define AOUTHDRSZ (sizeof(AOUTHDR)) /* aouthdr magic numbers */ #define NMAGIC 0410 /* separate i/d executable */ #define SHMAGIC 0406 /* NYU/Ultra3 shared data executable (writable text) */ #define _ETEXT "_etext" /*--------------------------------------------------------------*/ /* ** Section header and related definitions */ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof (SCNHDR) /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define _LIT ".lit" /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/ /* ** Section types - with additional section type for global ** registers which will be relocatable for the Am29000. ** ** In instances where it is necessary for a linker to produce an ** output file which contains text or data not based at virtual ** address 0, e.g. for a ROM, then the linker should accept ** address base information as command input and use PAD sections ** to skip over unused addresses. */ #define STYP_BSSREG 0x1200 /* Global register area (like STYP_INFO) */ #define STYP_ENVIR 0x2200 /* Environment (like STYP_INFO) */ #define STYP_ABS 0x4000 /* Absolute (allocated, not reloc, loaded) */ /*--------------------------------------------------------------*/ /* ** Relocation information declaration and related definitions */ struct external_reloc { char r_vaddr[4]; /* (virtual) address of reference */ char r_symndx[4]; /* index into symbol table */ char r_type[2]; /* relocation type */ }; #define RELOC struct external_reloc #define RELSZ 10 /* sizeof (RELOC) */ /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/ /* ** Relocation types for the Am29000 */ #define R_ABS 0 /* reference is absolute */ #define R_IREL 030 /* instruction relative (jmp/call) */ #define R_IABS 031 /* instruction absolute (jmp/call) */ #define R_ILOHALF 032 /* instruction low half (const) */ #define R_IHIHALF 033 /* instruction high half (consth) part 1 */ #define R_IHCONST 034 /* instruction high half (consth) part 2 */ /* constant offset of R_IHIHALF relocation */ #define R_BYTE 035 /* relocatable byte value */ #define R_HWORD 036 /* relocatable halfword value */ #define R_WORD 037 /* relocatable word value */ #define R_IGLBLRC 040 /* instruction global register RC */ #define R_IGLBLRA 041 /* instruction global register RA */ #define R_IGLBLRB 042 /* instruction global register RB */ /* NOTE: All the "I" forms refer to 29000 instruction formats. The linker is expected to know how the numeric information is split and/or aligned within the instruction word(s). R_BYTE works for instructions, too. If the parameter to a CONSTH instruction is a relocatable type, two relocation records are written. The first has an r_type of R_IHIHALF (33 octal) and a normal r_vaddr and r_symndx. The second relocation record has an r_type of R_IHCONST (34 octal), a normal r_vaddr (which is redundant), and an r_symndx containing the 32-bit constant offset to the relocation instead of the actual symbol table index. This second record is always written, even if the constant offset is zero. The constant fields of the instruction are set to zero. */ /*--------------------------------------------------------------*/ /* ** Line number entry declaration and related definitions */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[2]; /* line number */ }; #define LINENO struct external_lineno #define LINESZ 6 /* sizeof (LINENO) */ /*--------------------------------------------------------------*/ /* ** Symbol entry declaration and related definitions */ #define E_SYMNMLEN 8 /* Number of characters in a symbol name */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define SYMENT struct external_syment #define SYMESZ sizeof(SYMENT) /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/ /* ** Storage class definitions - new classes for global registers. */ #define C_GLBLREG 19 /* global register */ #define C_EXTREG 20 /* external global register */ #define C_DEFREG 21 /* ext. def. of global register */ /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/ /* ** Derived symbol mask/shifts. */ #define N_BTMASK (0xf) #define N_BTSHFT (4) #define N_TMASK (0x30) #define N_TSHIFT (2) /*--------------------------------------------------------------*/ /* ** Auxiliary symbol table entry declaration and related ** definitions. */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define AUXENT union external_auxent #define AUXESZ 18 gdb-4.13/include/coff/alpha.h 666 34562 1752 23204 5606461134 14361 0ustar fnfcygnus/* ECOFF support on Alpha machines. coff/ecoff.h must be included before this file. */ /********************** FILE HEADER **********************/ struct external_filehdr { unsigned char f_magic[2]; /* magic number */ unsigned char f_nscns[2]; /* number of sections */ unsigned char f_timdat[4]; /* time & date stamp */ unsigned char f_symptr[8]; /* file pointer to symtab */ unsigned char f_nsyms[4]; /* number of symtab entries */ unsigned char f_opthdr[2]; /* sizeof(optional hdr) */ unsigned char f_flags[2]; /* flags */ }; /* Magic numbers are defined in coff/ecoff.h. */ #define ALPHA_ECOFF_BADMAG(x) ((x).f_magic!=ALPHA_MAGIC) /* The object type is encoded in the f_flags. */ #define F_ALPHA_OBJECT_TYPE_MASK 0x3000 #define F_ALPHA_NO_SHARED 0x1000 #define F_ALPHA_SHARABLE 0x2000 #define F_ALPHA_CALL_SHARED 0x3000 #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct external_aouthdr { unsigned char magic[2]; /* type of file */ unsigned char vstamp[2]; /* version stamp */ unsigned char bldrev[2]; /* ?? */ unsigned char padding[2]; /* pad to quadword boundary */ unsigned char tsize[8]; /* text size in bytes */ unsigned char dsize[8]; /* initialized data " " */ unsigned char bsize[8]; /* uninitialized data " " */ unsigned char entry[8]; /* entry pt. */ unsigned char text_start[8]; /* base of text used for this file */ unsigned char data_start[8]; /* base of data used for this file */ unsigned char bss_start[8]; /* base of bss used for this file */ unsigned char gprmask[4]; /* bitmask of general registers used */ unsigned char fprmask[4]; /* bitmask of floating point registers used */ unsigned char gp_value[8]; /* value for gp register */ } AOUTHDR; /* compute size of a header */ #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { unsigned char s_name[8]; /* section name */ unsigned char s_paddr[8]; /* physical address, aliased s_nlib */ unsigned char s_vaddr[8]; /* virtual address */ unsigned char s_size[8]; /* section size */ unsigned char s_scnptr[8]; /* file ptr to raw data for section */ unsigned char s_relptr[8]; /* file ptr to relocation */ unsigned char s_lnnoptr[8]; /* file ptr to line numbers */ unsigned char s_nreloc[2]; /* number of relocation entries */ unsigned char s_nlnno[2]; /* number of line number entries*/ unsigned char s_flags[4]; /* flags */ }; #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { unsigned char r_vaddr[8]; unsigned char r_symndx[4]; unsigned char r_bits[4]; }; #define RELOC struct external_reloc #define RELSZ 16 /* Constants to unpack the r_bits field. The Alpha seems to always be little endian, so I haven't bothered to define big endian variants of these. */ #define RELOC_BITS0_TYPE_LITTLE 0xff #define RELOC_BITS0_TYPE_SH_LITTLE 0 #define RELOC_BITS1_EXTERN_LITTLE 0x01 #define RELOC_BITS1_OFFSET_LITTLE 0x7e #define RELOC_BITS1_OFFSET_SH_LITTLE 1 #define RELOC_BITS1_RESERVED_LITTLE 0x80 #define RELOC_BITS1_RESERVED_SH_LITTLE 7 #define RELOC_BITS2_RESERVED_LITTLE 0xff #define RELOC_BITS2_RESERVED_SH_LEFT_LITTLE 1 #define RELOC_BITS3_RESERVED_LITTLE 0x03 #define RELOC_BITS3_RESERVED_SH_LEFT_LITTLE 9 #define RELOC_BITS3_SIZE_LITTLE 0xfc #define RELOC_BITS3_SIZE_SH_LITTLE 2 /* The r_type field in a reloc is one of the following values. */ #define ALPHA_R_IGNORE 0 #define ALPHA_R_REFLONG 1 #define ALPHA_R_REFQUAD 2 #define ALPHA_R_GPREL32 3 #define ALPHA_R_LITERAL 4 #define ALPHA_R_LITUSE 5 #define ALPHA_R_GPDISP 6 #define ALPHA_R_BRADDR 7 #define ALPHA_R_HINT 8 #define ALPHA_R_SREL16 9 #define ALPHA_R_SREL32 10 #define ALPHA_R_SREL64 11 #define ALPHA_R_OP_PUSH 12 #define ALPHA_R_OP_STORE 13 #define ALPHA_R_OP_PSUB 14 #define ALPHA_R_OP_PRSHIFT 15 #define ALPHA_R_GPVALUE 16 #define DEFAULT_DATA_SECTION_ALIGNMENT 16 #define DEFAULT_BSS_SECTION_ALIGNMENT 16 #define DEFAULT_TEXT_SECTION_ALIGNMENT 16 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 16 /********************** SYMBOLIC INFORMATION **********************/ /* Written by John Gilmore. */ /* ECOFF uses COFF-like section structures, but its own symbol format. This file defines the symbol format in fields whose size and alignment will not vary on different host systems. */ /* File header as a set of bytes */ struct hdr_ext { unsigned char h_magic[2]; unsigned char h_vstamp[2]; unsigned char h_ilineMax[4]; unsigned char h_idnMax[4]; unsigned char h_ipdMax[4]; unsigned char h_isymMax[4]; unsigned char h_ioptMax[4]; unsigned char h_iauxMax[4]; unsigned char h_issMax[4]; unsigned char h_issExtMax[4]; unsigned char h_ifdMax[4]; unsigned char h_crfd[4]; unsigned char h_iextMax[4]; unsigned char h_cbLine[8]; unsigned char h_cbLineOffset[8]; unsigned char h_cbDnOffset[8]; unsigned char h_cbPdOffset[8]; unsigned char h_cbSymOffset[8]; unsigned char h_cbOptOffset[8]; unsigned char h_cbAuxOffset[8]; unsigned char h_cbSsOffset[8]; unsigned char h_cbSsExtOffset[8]; unsigned char h_cbFdOffset[8]; unsigned char h_cbRfdOffset[8]; unsigned char h_cbExtOffset[8]; }; /* File descriptor external record */ struct fdr_ext { unsigned char f_adr[8]; unsigned char f_cbLineOffset[8]; unsigned char f_cbLine[8]; unsigned char f_cbSs[8]; unsigned char f_rss[4]; unsigned char f_issBase[4]; unsigned char f_isymBase[4]; unsigned char f_csym[4]; unsigned char f_ilineBase[4]; unsigned char f_cline[4]; unsigned char f_ioptBase[4]; unsigned char f_copt[4]; unsigned char f_ipdFirst[4]; unsigned char f_cpd[4]; unsigned char f_iauxBase[4]; unsigned char f_caux[4]; unsigned char f_rfdBase[4]; unsigned char f_crfd[4]; unsigned char f_bits1[1]; unsigned char f_bits2[3]; unsigned char f_padding[4]; }; #define FDR_BITS1_LANG_BIG 0xF8 #define FDR_BITS1_LANG_SH_BIG 3 #define FDR_BITS1_LANG_LITTLE 0x1F #define FDR_BITS1_LANG_SH_LITTLE 0 #define FDR_BITS1_FMERGE_BIG 0x04 #define FDR_BITS1_FMERGE_LITTLE 0x20 #define FDR_BITS1_FREADIN_BIG 0x02 #define FDR_BITS1_FREADIN_LITTLE 0x40 #define FDR_BITS1_FBIGENDIAN_BIG 0x01 #define FDR_BITS1_FBIGENDIAN_LITTLE 0x80 #define FDR_BITS2_GLEVEL_BIG 0xC0 #define FDR_BITS2_GLEVEL_SH_BIG 6 #define FDR_BITS2_GLEVEL_LITTLE 0x03 #define FDR_BITS2_GLEVEL_SH_LITTLE 0 /* We ignore the `reserved' field in bits2. */ /* Procedure descriptor external record */ struct pdr_ext { unsigned char p_adr[8]; unsigned char p_cbLineOffset[8]; unsigned char p_isym[4]; unsigned char p_iline[4]; unsigned char p_regmask[4]; unsigned char p_regoffset[4]; unsigned char p_iopt[4]; unsigned char p_fregmask[4]; unsigned char p_fregoffset[4]; unsigned char p_frameoffset[4]; unsigned char p_lnLow[4]; unsigned char p_lnHigh[4]; unsigned char p_gp_prologue[1]; unsigned char p_bits1[1]; unsigned char p_bits2[1]; unsigned char p_localoff[1]; unsigned char p_framereg[2]; unsigned char p_pcreg[2]; }; #define PDR_BITS1_GP_USED_BIG 0x80 #define PDR_BITS1_REG_FRAME_BIG 0x40 #define PDR_BITS1_RESERVED_BIG 0x3f #define PDR_BITS1_RESERVED_SH_LEFT_BIG 8 #define PDR_BITS2_RESERVED_BIG 0xff #define PDR_BITS2_RESERVED_SH_BIG 0 #define PDR_BITS1_GP_USED_LITTLE 0x01 #define PDR_BITS1_REG_FRAME_LITTLE 0x02 #define PDR_BITS1_RESERVED_LITTLE 0xfc #define PDR_BITS1_RESERVED_SH_LITTLE 2 #define PDR_BITS2_RESERVED_LITTLE 0xff #define PDR_BITS2_RESERVED_SH_LEFT_LITTLE 6 /* Line numbers */ struct line_ext { unsigned char l_line[4]; }; /* Symbol external record */ struct sym_ext { unsigned char s_value[8]; unsigned char s_iss[4]; unsigned char s_bits1[1]; unsigned char s_bits2[1]; unsigned char s_bits3[1]; unsigned char s_bits4[1]; }; #define SYM_BITS1_ST_BIG 0xFC #define SYM_BITS1_ST_SH_BIG 2 #define SYM_BITS1_ST_LITTLE 0x3F #define SYM_BITS1_ST_SH_LITTLE 0 #define SYM_BITS1_SC_BIG 0x03 #define SYM_BITS1_SC_SH_LEFT_BIG 3 #define SYM_BITS1_SC_LITTLE 0xC0 #define SYM_BITS1_SC_SH_LITTLE 6 #define SYM_BITS2_SC_BIG 0xE0 #define SYM_BITS2_SC_SH_BIG 5 #define SYM_BITS2_SC_LITTLE 0x07 #define SYM_BITS2_SC_SH_LEFT_LITTLE 2 #define SYM_BITS2_RESERVED_BIG 0x10 #define SYM_BITS2_RESERVED_LITTLE 0x08 #define SYM_BITS2_INDEX_BIG 0x0F #define SYM_BITS2_INDEX_SH_LEFT_BIG 16 #define SYM_BITS2_INDEX_LITTLE 0xF0 #define SYM_BITS2_INDEX_SH_LITTLE 4 #define SYM_BITS3_INDEX_SH_LEFT_BIG 8 #define SYM_BITS3_INDEX_SH_LEFT_LITTLE 4 #define SYM_BITS4_INDEX_SH_LEFT_BIG 0 #define SYM_BITS4_INDEX_SH_LEFT_LITTLE 12 /* External symbol external record */ struct ext_ext { struct sym_ext es_asym; unsigned char es_bits1[1]; unsigned char es_bits2[3]; unsigned char es_ifd[4]; }; #define EXT_BITS1_JMPTBL_BIG 0x80 #define EXT_BITS1_JMPTBL_LITTLE 0x01 #define EXT_BITS1_COBOL_MAIN_BIG 0x40 #define EXT_BITS1_COBOL_MAIN_LITTLE 0x02 #define EXT_BITS1_WEAKEXT_BIG 0x20 #define EXT_BITS1_WEAKEXT_LITTLE 0x04 /* Dense numbers external record */ struct dnr_ext { unsigned char d_rfd[4]; unsigned char d_index[4]; }; /* Relative file descriptor */ struct rfd_ext { unsigned char rfd[4]; }; /* Optimizer symbol external record */ struct opt_ext { unsigned char o_bits1[1]; unsigned char o_bits2[1]; unsigned char o_bits3[1]; unsigned char o_bits4[1]; struct rndx_ext o_rndx; unsigned char o_offset[4]; }; #define OPT_BITS2_VALUE_SH_LEFT_BIG 16 #define OPT_BITS2_VALUE_SH_LEFT_LITTLE 0 #define OPT_BITS3_VALUE_SH_LEFT_BIG 8 #define OPT_BITS3_VALUE_SH_LEFT_LITTLE 8 #define OPT_BITS4_VALUE_SH_LEFT_BIG 0 #define OPT_BITS4_VALUE_SH_LEFT_LITTLE 16 gdb-4.13/include/coff/apollo.h 666 34562 1752 16614 5457103715 14573 0ustar fnfcygnus/*** coff information for Apollo M68K */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; /* Motorola 68000/68008/68010/68020 */ #define MC68MAGIC 0520 #define MC68KWRMAGIC 0520 /* writeable text segments */ #define MC68TVMAGIC 0521 #define MC68KROMAGIC 0521 /* readonly shareable text segments */ #define MC68KPGMAGIC 0522 /* demand paged text segments */ #define M68MAGIC 0210 #define M68TVMAGIC 0211 /* Apollo 68000-based machines have a different magic number. This comes * from /usr/include/apollo/filehdr.h */ #define APOLLOM68KMAGIC 0627 #define OMAGIC M68MAGIC #define M68KBADMAG(x) (((x).f_magic!=MC68MAGIC) && ((x).f_magic!=MC68KWRMAGIC) && ((x).f_magic!=MC68TVMAGIC) && \ ((x).f_magic!=MC68KROMAGIC) && ((x).f_magic!=MC68KPGMAGIC) && ((x).f_magic!=M68MAGIC) && ((x).f_magic!=M68TVMAGIC) && \ ((x).f_magic!=APOLLOM68KMAGIC) ) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ char o_sri[4]; /* Apollo specific - .sri data pointer */ char o_inlib[4]; /* Apollo specific - .inlib data pointer */ char vid[8]; /* Apollo specific - 64 bit version ID */ } AOUTHDR; #define APOLLO_COFF_VERSION_NUMBER 1 /* the value of the aouthdr magic */ #define AOUTHDRSZ (sizeof(AOUTHDR)) #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { /* Apollo allow for larger section names by allowing it to be in * the string table. */ char s_name[8]; char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; /* If s_zeores is all zeroes, s_offset gives the real location of the name * in the string table. */ #define s_zeroes section_name.s_name #define s_offset (section_name.s_name+4) /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define _TV ".tv" #define _INIT ".init" #define _FINI ".fini" #define _LINES ".lines" #define _BLOCKS ".blocks" #define _SRI ".sri" /* Static Resource Information (systype, et al.) */ #define _MIR ".mir" /* Module Information Records */ #define _APTV ".aptv" /* Apollo-style transfer vectors. */ #define _INLIB ".inlib" /* Shared Library information */ #define _RWDI ".rwdi" /* Read/write data initialization directives for compressed sections */ #define _UNWIND ".unwind" /* Stack unwind information */ #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[2]; /* line number */ }; #define LINENO struct external_lineno #define LINESZ sizeof(LINENO) /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define N_BTMASK (017) #define N_TMASK (060) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define SYMENT struct external_syment #define SYMESZ 18 #define AUXENT union external_auxent #define AUXESZ 18 /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_type[2]; #ifdef M68K_COFF_OFFSET char r_offset[4]; #endif }; #define RELOC struct external_reloc #define RELSZ sizeof(struct external_reloc) #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 /* Apollo specific STYP flags */ #define STYP_RELOCATED_NOT_LOADED 0x00010000 /* Section is relocated normally during linking, but need not be loaded during program execution */ #define STYP_DEBUG 0x00020000 /* debug section */ #define STYP_OVERLAY 0x00040000 /* Section is overlayed */ #define STYP_INSTRUCTION 0x00200000 /* Section contains executable code */ #define STYP_ZERO 0x00800000 /* Section is initialized to zero */ #define STYP_INSTALLED 0x02000000 /* Section should be installable in KGT */ #define STYP_LOOK_INSTALLED 0x04000000 /* Look for section in KGT */ #define STYP_SECALIGN1 0x08000000 /* Specially aligned section */ #define STYP_SECALIGN2 0x10000000 /* " " " */ #define STYP_COMPRESSED 0x20000000 /* No section data per se (s_scnptr = 0), but there are initialization directives for it in .rwdi section (used in conjunction with STYP_BSS) */ gdb-4.13/include/coff/ecoff.h 666 34562 1752 32420 5601357300 14350 0ustar fnfcygnus#ifndef ECOFF_H #define ECOFF_H /* Generic ECOFF support. This does not include symbol information, found in sym.h and symconst.h. */ /* Mips magic numbers used in filehdr. MIPS_MAGIC_LITTLE is used on little endian machines. MIPS_MAGIC_BIG is used on big endian machines. Where is MIPS_MAGIC_1 from? */ #define MIPS_MAGIC_1 0x0180 #define MIPS_MAGIC_LITTLE 0x0162 #define MIPS_MAGIC_BIG 0x0160 /* These are the magic numbers used for MIPS code compiled at ISA level 2. */ #define MIPS_MAGIC_LITTLE2 0x0166 #define MIPS_MAGIC_BIG2 0x0163 /* These are the magic numbers used for MIPS code compiled at ISA level 3. */ #define MIPS_MAGIC_LITTLE3 0x142 #define MIPS_MAGIC_BIG3 0x140 /* Alpha magic numbers used in filehdr. */ #define ALPHA_MAGIC 0x183 /* Magic numbers used in a.out header. */ #define ECOFF_AOUT_OMAGIC 0407 /* not demand paged (ld -N). */ #define ECOFF_AOUT_ZMAGIC 0413 /* demand load format, eg normal ld output */ /* Names of special sections. */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define _RDATA ".rdata" #define _SDATA ".sdata" #define _SBSS ".sbss" #define _LITA ".lita" #define _LIT4 ".lit4" #define _LIT8 ".lit8" #define _LIB ".lib" #define _INIT ".init" #define _FINI ".fini" #define _PDATA ".pdata" #define _XDATA ".xdata" /* ECOFF uses some additional section flags. */ #define STYP_RDATA 0x100 #define STYP_SDATA 0x200 #define STYP_SBSS 0x400 #define STYP_ECOFF_FINI 0x1000000 #define STYP_EXTENDESC 0x2000000 /* 0x02FFF000 bits => scn type, rest clr */ #define STYP_LITA 0x4000000 #define STYP_LIT8 0x8000000 #define STYP_LIT4 0x10000000 #define STYP_ECOFF_LIB 0x40000000 #define STYP_ECOFF_INIT 0x80000000 #define STYP_OTHER_LOAD (STYP_ECOFF_INIT | STYP_ECOFF_FINI) /* extended section types */ #define STYP_COMMENT 0x2100000 #define STYP_XDATA 0x2400000 #define STYP_PDATA 0x2800000 /* The linker needs a section to hold small common variables while linking. There is no convenient way to create it when the linker needs it, so we always create one for each BFD. We then avoid writing it out. */ #define SCOMMON ".scommon" /* If the extern bit in a reloc is 1, then r_symndx is an index into the external symbol table. If the extern bit is 0, then r_symndx indicates a section, and is one of the following values. */ #define RELOC_SECTION_NONE 0 #define RELOC_SECTION_TEXT 1 #define RELOC_SECTION_RDATA 2 #define RELOC_SECTION_DATA 3 #define RELOC_SECTION_SDATA 4 #define RELOC_SECTION_SBSS 5 #define RELOC_SECTION_BSS 6 #define RELOC_SECTION_INIT 7 #define RELOC_SECTION_LIT8 8 #define RELOC_SECTION_LIT4 9 #define RELOC_SECTION_XDATA 10 #define RELOC_SECTION_PDATA 11 #define RELOC_SECTION_FINI 12 #define RELOC_SECTION_LITA 13 #define RELOC_SECTION_ABS 14 #define NUM_RELOC_SECTIONS 15 /********************** STABS **********************/ /* gcc uses mips-tfile to output type information in special stabs entries. These must match the corresponding definition in gcc/config/mips.h. At some point, these should probably go into a shared include file, but currently gcc and gdb do not share any directories. */ #define CODE_MASK 0x8F300 #define ECOFF_IS_STAB(sym) (((sym)->index & 0xFFF00) == CODE_MASK) #define ECOFF_MARK_STAB(code) ((code)+CODE_MASK) #define ECOFF_UNMARK_STAB(code) ((code)-CODE_MASK) #define STABS_SYMBOL "@stabs" /********************** COFF **********************/ /* gcc also uses mips-tfile to output COFF debugging information. These are the values it uses when outputting the .type directive. These should also be in a shared include file. */ #define N_BTMASK (017) #define N_TMASK (060) #define N_BTSHFT (4) #define N_TSHIFT (2) /********************** AUX **********************/ /* The auxiliary type information is the same on all known ECOFF targets. I can't see any reason that it would ever change, so I am going to gamble and define the external structures here, in the target independent ECOFF header file. The internal forms are defined in coff/sym.h, which was originally donated by MIPS Computer Systems. */ /* Type information external record */ struct tir_ext { unsigned char t_bits1[1]; unsigned char t_tq45[1]; unsigned char t_tq01[1]; unsigned char t_tq23[1]; }; #define TIR_BITS1_FBITFIELD_BIG ((unsigned int) 0x80) #define TIR_BITS1_FBITFIELD_LITTLE ((unsigned int) 0x01) #define TIR_BITS1_CONTINUED_BIG ((unsigned int) 0x40) #define TIR_BITS1_CONTINUED_LITTLE ((unsigned int) 0x02) #define TIR_BITS1_BT_BIG ((unsigned int) 0x3F) #define TIR_BITS1_BT_SH_BIG 0 #define TIR_BITS1_BT_LITTLE ((unsigned int) 0xFC) #define TIR_BITS1_BT_SH_LITTLE 2 #define TIR_BITS_TQ4_BIG ((unsigned int) 0xF0) #define TIR_BITS_TQ4_SH_BIG 4 #define TIR_BITS_TQ5_BIG ((unsigned int) 0x0F) #define TIR_BITS_TQ5_SH_BIG 0 #define TIR_BITS_TQ4_LITTLE ((unsigned int) 0x0F) #define TIR_BITS_TQ4_SH_LITTLE 0 #define TIR_BITS_TQ5_LITTLE ((unsigned int) 0xF0) #define TIR_BITS_TQ5_SH_LITTLE 4 #define TIR_BITS_TQ0_BIG ((unsigned int) 0xF0) #define TIR_BITS_TQ0_SH_BIG 4 #define TIR_BITS_TQ1_BIG ((unsigned int) 0x0F) #define TIR_BITS_TQ1_SH_BIG 0 #define TIR_BITS_TQ0_LITTLE ((unsigned int) 0x0F) #define TIR_BITS_TQ0_SH_LITTLE 0 #define TIR_BITS_TQ1_LITTLE ((unsigned int) 0xF0) #define TIR_BITS_TQ1_SH_LITTLE 4 #define TIR_BITS_TQ2_BIG ((unsigned int) 0xF0) #define TIR_BITS_TQ2_SH_BIG 4 #define TIR_BITS_TQ3_BIG ((unsigned int) 0x0F) #define TIR_BITS_TQ3_SH_BIG 0 #define TIR_BITS_TQ2_LITTLE ((unsigned int) 0x0F) #define TIR_BITS_TQ2_SH_LITTLE 0 #define TIR_BITS_TQ3_LITTLE ((unsigned int) 0xF0) #define TIR_BITS_TQ3_SH_LITTLE 4 /* Relative symbol external record */ struct rndx_ext { unsigned char r_bits[4]; }; #define RNDX_BITS0_RFD_SH_LEFT_BIG 4 #define RNDX_BITS1_RFD_BIG ((unsigned int) 0xF0) #define RNDX_BITS1_RFD_SH_BIG 4 #define RNDX_BITS0_RFD_SH_LEFT_LITTLE 0 #define RNDX_BITS1_RFD_LITTLE ((unsigned int) 0x0F) #define RNDX_BITS1_RFD_SH_LEFT_LITTLE 8 #define RNDX_BITS1_INDEX_BIG ((unsigned int) 0x0F) #define RNDX_BITS1_INDEX_SH_LEFT_BIG 16 #define RNDX_BITS2_INDEX_SH_LEFT_BIG 8 #define RNDX_BITS3_INDEX_SH_LEFT_BIG 0 #define RNDX_BITS1_INDEX_LITTLE ((unsigned int) 0xF0) #define RNDX_BITS1_INDEX_SH_LITTLE 4 #define RNDX_BITS2_INDEX_SH_LEFT_LITTLE 4 #define RNDX_BITS3_INDEX_SH_LEFT_LITTLE 12 /* Auxiliary symbol information external record */ union aux_ext { struct tir_ext a_ti; struct rndx_ext a_rndx; unsigned char a_dnLow[4]; unsigned char a_dnHigh[4]; unsigned char a_isym[4]; unsigned char a_iss[4]; unsigned char a_width[4]; unsigned char a_count[4]; }; #define AUX_GET_ANY(bigend, ax, field) \ ((bigend) ? bfd_getb32 ((ax)->field) : bfd_getl32 ((ax)->field)) #define AUX_GET_DNLOW(bigend, ax) AUX_GET_ANY ((bigend), (ax), a_dnLow) #define AUX_GET_DNHIGH(bigend, ax) AUX_GET_ANY ((bigend), (ax), a_dnHigh) #define AUX_GET_ISYM(bigend, ax) AUX_GET_ANY ((bigend), (ax), a_isym) #define AUX_GET_ISS(bigend, ax) AUX_GET_ANY ((bigend), (ax), a_iss) #define AUX_GET_WIDTH(bigend, ax) AUX_GET_ANY ((bigend), (ax), a_width) #define AUX_GET_COUNT(bigend, ax) AUX_GET_ANY ((bigend), (ax), a_count) #define AUX_PUT_ANY(bigend, val, ax, field) \ ((bigend) \ ? (bfd_putb32 ((bfd_vma) (val), (ax)->field), 0) \ : (bfd_putl32 ((bfd_vma) (val), (ax)->field), 0)) #define AUX_PUT_DNLOW(bigend, val, ax) \ AUX_PUT_ANY ((bigend), (val), (ax), a_dnLow) #define AUX_PUT_DNHIGH(bigend, val, ax) \ AUX_PUT_ANY ((bigend), (val), (ax), a_dnHigh) #define AUX_PUT_ISYM(bigend, val, ax) \ AUX_PUT_ANY ((bigend), (val), (ax), a_isym) #define AUX_PUT_ISS(bigend, val, ax) \ AUX_PUT_ANY ((bigend), (val), (ax), a_iss) #define AUX_PUT_WIDTH(bigend, val, ax) \ AUX_PUT_ANY ((bigend), (val), (ax), a_width) #define AUX_PUT_COUNT(bigend, val, ax) \ AUX_PUT_ANY ((bigend), (val), (ax), a_count) /********************** SYMBOLS **********************/ /* For efficiency, gdb deals directly with the unswapped symbolic information (that way it only takes the time to swap information that it really needs to read). gdb originally retrieved the information directly from the BFD backend information, but that strategy, besides being sort of ugly, does not work for MIPS ELF, which also uses ECOFF debugging information. This structure holds pointers to the (mostly) unswapped symbolic information. */ struct ecoff_debug_info { /* The swapped ECOFF symbolic header. */ HDRR symbolic_header; /* Pointers to the unswapped symbolic information. Note that the pointers to external structures point to different sorts of information on different ECOFF targets. The ecoff_debug_swap structure provides the sizes of the structures and the functions needed to swap the information in and out. These pointers are all pointers to arrays, not single structures. They will be NULL if there are no instances of the relevant structure. These fields are also used by the assembler to output ECOFF debugging information. */ unsigned char *line; PTR external_dnr; /* struct dnr_ext */ PTR external_pdr; /* struct pdr_ext */ PTR external_sym; /* struct sym_ext */ PTR external_opt; /* struct opt_ext */ union aux_ext *external_aux; char *ss; char *ssext; PTR external_fdr; /* struct fdr_ext */ PTR external_rfd; /* struct rfd_ext */ PTR external_ext; /* struct ext_ext */ /* These fields are used when linking. They may disappear at some point. */ char *ssext_end; PTR external_ext_end; /* When linking, this field holds a mapping from the input FDR numbers to the output numbers, and is used when writing out the external symbols. It is NULL if no mapping is required. */ RFDT *ifdmap; /* The swapped FDR information. Currently this is never NULL, but code using this structure should probably double-check in case this changes in the future. This is a pointer to an array, not a single structure. */ FDR *fdr; /* When relaxing MIPS embedded PIC code, we may need to adjust symbol values when they are output. This is a linked list of structures indicating how values should be adjusted. There is no requirement that the entries be in any order, or that they not overlap. This field is normally NULL, in which case no adjustments need to be made. */ struct ecoff_value_adjust *adjust; }; /* This structure describes how to adjust symbol values when outputting MIPS embedded PIC code. These adjustments only apply to the internal symbols, as the external symbol values will come from the hash table and have already been adjusted. */ struct ecoff_value_adjust { /* Next entry on adjustment list. */ struct ecoff_value_adjust *next; /* Starting VMA of adjustment. This is the VMA in the ECOFF file, not the offset from the start of the section. Thus it should indicate a particular section. */ bfd_vma start; /* Ending VMA of adjustment. */ bfd_vma end; /* Adjustment. This should be added to the value of the symbol, or FDR. This is zero for the last entry in the array. */ long adjust; }; /********************** SWAPPING **********************/ /* The generic ECOFF code needs to be able to swap debugging information in and out in the specific format used by a particular ECOFF implementation. This structure provides the information needed to do this. */ struct ecoff_debug_swap { /* Symbol table magic number. */ int sym_magic; /* Alignment of debugging information. E.g., 4. */ bfd_size_type debug_align; /* Sizes of external symbolic information. */ bfd_size_type external_hdr_size; bfd_size_type external_dnr_size; bfd_size_type external_pdr_size; bfd_size_type external_sym_size; bfd_size_type external_opt_size; bfd_size_type external_fdr_size; bfd_size_type external_rfd_size; bfd_size_type external_ext_size; /* Functions to swap in external symbolic data. */ void (*swap_hdr_in) PARAMS ((bfd *, PTR, HDRR *)); void (*swap_dnr_in) PARAMS ((bfd *, PTR, DNR *)); void (*swap_pdr_in) PARAMS ((bfd *, PTR, PDR *)); void (*swap_sym_in) PARAMS ((bfd *, PTR, SYMR *)); void (*swap_opt_in) PARAMS ((bfd *, PTR, OPTR *)); void (*swap_fdr_in) PARAMS ((bfd *, PTR, FDR *)); void (*swap_rfd_in) PARAMS ((bfd *, PTR, RFDT *)); void (*swap_ext_in) PARAMS ((bfd *, PTR, EXTR *)); void (*swap_tir_in) PARAMS ((int, const struct tir_ext *, TIR *)); void (*swap_rndx_in) PARAMS ((int, const struct rndx_ext *, RNDXR *)); /* Functions to swap out external symbolic data. */ void (*swap_hdr_out) PARAMS ((bfd *, const HDRR *, PTR)); void (*swap_dnr_out) PARAMS ((bfd *, const DNR *, PTR)); void (*swap_pdr_out) PARAMS ((bfd *, const PDR *, PTR)); void (*swap_sym_out) PARAMS ((bfd *, const SYMR *, PTR)); void (*swap_opt_out) PARAMS ((bfd *, const OPTR *, PTR)); void (*swap_fdr_out) PARAMS ((bfd *, const FDR *, PTR)); void (*swap_rfd_out) PARAMS ((bfd *, const RFDT *, PTR)); void (*swap_ext_out) PARAMS ((bfd *, const EXTR *, PTR)); void (*swap_tir_out) PARAMS ((int, const TIR *, struct tir_ext *)); void (*swap_rndx_out) PARAMS ((int, const RNDXR *, struct rndx_ext *)); /* Function to read symbol data and set up pointers in ecoff_debug_info structure. The section argument is used for ELF, not straight ECOFF. */ boolean (*read_debug_info) PARAMS ((bfd *, asection *, struct ecoff_debug_info *)); }; #endif /* ! defined (ECOFF_H) */ gdb-4.13/include/coff/h8300.h 666 34562 1752 12161 5405163000 14022 0ustar fnfcygnus/*** coff information for Hitachi H8/300 and H8/300-H */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; #define H8300MAGIC 0x8300 #define H8300HMAGIC 0x8301 #define H8300BADMAG(x) (((x).f_magic!=H8300MAGIC)) #define H8300HBADMAG(x) (((x).f_magic!=H8300HMAGIC)) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; #define AOUTHDRSZ (sizeof(AOUTHDR)) #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[4]; /* line number */ }; #define GET_LINENO_LNNO(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) (ext->l_lnno)); #define PUT_LINENO_LNNO(abfd,val, ext) bfd_h_put_32(abfd,val, (bfd_byte *) (ext->l_lnno)); #define LINENO struct external_lineno #define LINESZ sizeof(LINENO) /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define N_BTMASK (017) #define N_TMASK (060) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define SYMENT struct external_syment #define SYMESZ 18 #define AUXENT union external_auxent #define AUXESZ 18 /********************** RELOCATION DIRECTIVES **********************/ /* The external reloc has an offset field, because some of the reloc types on the h8 don't have room in the instruction for the entire offset - eg the strange jump and high page addressing modes */ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_offset[4]; char r_type[2]; char r_stuff[2]; }; #define RELOC struct external_reloc #define RELSZ 16 #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/coff/h8500.h 666 34562 1752 12040 5434163021 14025 0ustar fnfcygnus/*** coff information for Hitachi H8/500 */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; #define H8500MAGIC 0x8500 #define H8500BADMAG(x) ((0xffff && ((x).f_magic)!=H8500MAGIC)) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; #define AOUTHDRSZ (sizeof(AOUTHDR)) #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[4]; /* line number */ }; #define GET_LINENO_LNNO(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) (ext->l_lnno)); #define PUT_LINENO_LNNO(abfd,val, ext) bfd_h_put_32(abfd,val, (bfd_byte *) (ext->l_lnno)); #define LINENO struct external_lineno #define LINESZ sizeof(LINENO) /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define N_BTMASK (017) #define N_TMASK (060) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define SYMENT struct external_syment #define SYMESZ 18 #define AUXENT union external_auxent #define AUXESZ 18 /********************** RELOCATION DIRECTIVES **********************/ /* The external reloc has an offset field, because some of the reloc types on the h8 don't have room in the instruction for the entire offset - eg the strange jump and high page addressing modes */ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_offset[4]; char r_type[2]; char r_stuff[2]; }; #define RELOC struct external_reloc #define RELSZ 16 #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/coff/i386.h 666 34562 1752 13002 5464065656 13773 0ustar fnfcygnus/*** coff information for Intel 386/486. */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; /* Bits for f_flags: * F_RELFLG relocation info stripped from file * F_EXEC file is executable (no unresolved external references) * F_LNNO line numbers stripped from file * F_LSYMS local symbols stripped from file * F_AR32WR file has byte ordering of an AR32WR machine (e.g. vax) */ #define F_RELFLG (0x0001) #define F_EXEC (0x0002) #define F_LNNO (0x0004) #define F_LSYMS (0x0008) #define I386MAGIC 0x14c #define I386PTXMAGIC 0x154 #define I386AIXMAGIC 0x175 /* This is Lynx's all-platform magic number for executables. */ #define LYNXCOFFMAGIC 0415 #define I386BADMAG(x) (((x).f_magic != I386MAGIC) \ && (x).f_magic != I386AIXMAGIC \ && (x).f_magic != I386PTXMAGIC \ && (x).f_magic != LYNXCOFFMAGIC) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; #define AOUTSZ (sizeof(AOUTHDR)) #define OMAGIC 0404 /* object files, eg as output */ #define ZMAGIC 0413 /* demand load format, eg normal ld output */ #define STMAGIC 0401 /* target shlib */ #define SHMAGIC 0443 /* host shlib */ /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define _COMMENT ".comment" #define _LIB ".lib" /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[2]; /* line number */ }; #define LINENO struct external_lineno #define LINESZ 6 /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define N_BTMASK (0xf) #define N_TMASK (0x30) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define SYMENT struct external_syment #define SYMESZ 18 #define AUXENT union external_auxent #define AUXESZ 18 # define _ETEXT "etext" /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_type[2]; }; #define RELOC struct external_reloc #define RELSZ 10 #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/coff/i960.h 666 34562 1752 15061 5116044025 13755 0ustar fnfcygnus/*** coff information for 80960. Origins: Intel corp, natch. */ /* NOTE: Tagentries (cf TAGBITS) are no longer used by the 960 */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; #define OMAGIC (0407) /* old impure format. data immediately follows text. both sections are rw. */ #define NMAGIC (0410) /* split i&d, read-only text */ /* * Intel 80960 (I960) processor flags. * F_I960TYPE == mask for processor type field. */ #define F_I960TYPE (0xf000) #define F_I960CORE (0x1000) #define F_I960KB (0x2000) #define F_I960SB (0x2000) #define F_I960MC (0x3000) #define F_I960XA (0x4000) #define F_I960CA (0x5000) #define F_I960KA (0x6000) #define F_I960SA (0x6000) /** i80960 Magic Numbers */ #define I960ROMAGIC (0x160) /* read-only text segments */ #define I960RWMAGIC (0x161) /* read-write text segments */ #define I960BADMAG(x) (((x).f_magic!=I960ROMAGIC) && ((x).f_magic!=I960RWMAGIC)) #define FILHDR struct external_filehdr #define FILHSZ 20 /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { unsigned long phys_addr; unsigned long bitarray; } TAGBITS; typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ char tagentries[4]; /* number of tag entries to follow */ } AOUTHDR; /* return a pointer to the tag bits array */ #define TAGPTR(aout) ((TAGBITS *) (&(aout.tagentries)+1)) /* compute size of a header */ /*#define AOUTSZ(aout) (sizeof(AOUTHDR)+(aout.tagentries*sizeof(TAGBITS)))*/ #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ char s_align[4]; /* section alignment */ }; #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[2]; /* line number */ char padding[2]; /* force alignment */ }; #define LINENO struct external_lineno #define LINESZ 8 /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_flags[2]; char e_type[4]; char e_sclass[1]; char e_numaux[1]; char pad2[2]; }; #define N_BTMASK (0x1f) #define N_TMASK (0x60) #define N_BTSHFT (5) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ /****************************************** * I960-specific *2nd* aux. entry formats ******************************************/ struct { /* This is a very old typo that keeps getting propagated. */ #define x_stdindx x_stindx char x_stindx[4]; /* sys. table entry */ } x_sc; /* system call entry */ struct { char x_balntry[4]; /* BAL entry point */ } x_bal; /* BAL-callable function */ struct { char x_timestamp[4]; /* time stamp */ char x_idstring[20]; /* producer identity string */ } x_ident; /* Producer ident info */ }; #define SYMENT struct external_syment #define SYMESZ sizeof(SYMENT) /* FIXME - calc by hand */ #define AUXENT union external_auxent #define AUXESZ sizeof(AUXENT) /* FIXME - calc by hand */ # define _ETEXT "_etext" /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_type[2]; char pad[2]; }; /* Relevent values for r_type and i960. Would someone please document them */ #define RELOC struct external_reloc #define RELSZ 12 #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 16 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/coff/internal.h 666 34562 1752 45122 5546665360 15125 0ustar fnfcygnus/* Internal format of COFF object file data structures, for GNU BFD. This file is part of BFD, the Binary File Descriptor library. */ /* First, make "signed char" work, even on old compilers. */ #ifndef signed #ifndef __STDC__ #define signed /**/ #endif #endif /********************** FILE HEADER **********************/ struct internal_filehdr { unsigned short f_magic; /* magic number */ unsigned short f_nscns; /* number of sections */ long f_timdat; /* time & date stamp */ bfd_vma f_symptr; /* file pointer to symtab */ long f_nsyms; /* number of symtab entries */ unsigned short f_opthdr; /* sizeof(optional hdr) */ unsigned short f_flags; /* flags */ }; /* Bits for f_flags: * F_RELFLG relocation info stripped from file * F_EXEC file is executable (no unresolved external references) * F_LNNO line numbers stripped from file * F_LSYMS local symbols stripped from file * F_AR16WR file is 16-bit little-endian * F_AR32WR file is 32-bit little-endian * F_AR32W file is 32-bit big-endian * F_DYNLOAD rs/6000 aix: dynamically loadable w/imports & exports * F_SHROBJ rs/6000 aix: file is a shared object */ #define F_RELFLG (0x0001) #define F_EXEC (0x0002) #define F_LNNO (0x0004) #define F_LSYMS (0x0008) #define F_AR16WR (0x0080) #define F_AR32WR (0x0100) #define F_AR32W (0x0200) #define F_DYNLOAD (0x1000) #define F_SHROBJ (0x2000) /********************** AOUT "OPTIONAL HEADER" **********************/ struct internal_aouthdr { short magic; /* type of file */ short vstamp; /* version stamp */ bfd_vma tsize; /* text size in bytes, padded to FW bdry*/ bfd_vma dsize; /* initialized data " " */ bfd_vma bsize; /* uninitialized data " " */ bfd_vma entry; /* entry pt. */ bfd_vma text_start; /* base of text used for this file */ bfd_vma data_start; /* base of data used for this file */ /* i960 stuff */ unsigned long tagentries; /* number of tag entries to follow */ /* RS/6000 stuff */ unsigned long o_toc; /* address of TOC */ short o_snentry; /* section number for entry point */ short o_sntext; /* section number for text */ short o_sndata; /* section number for data */ short o_sntoc; /* section number for toc */ short o_snloader; /* section number for loader section */ short o_snbss; /* section number for bss */ short o_algntext; /* max alignment for text */ short o_algndata; /* max alignment for data */ short o_modtype; /* Module type field, 1R,RE,RO */ unsigned long o_maxstack; /* max stack size allowed. */ /* ECOFF stuff */ bfd_vma bss_start; /* Base of bss section. */ bfd_vma gp_value; /* GP register value. */ unsigned long gprmask; /* General registers used. */ unsigned long cprmask[4]; /* Coprocessor registers used. */ unsigned long fprmask; /* Floating pointer registers used. */ /* Apollo stuff */ long o_inlib; /* inlib data */ long o_sri; /* Static Resource Information */ long vid[2]; /* Version id */ }; /********************** STORAGE CLASSES **********************/ /* This used to be defined as -1, but now n_sclass is unsigned. */ #define C_EFCN 0xff /* physical end of function */ #define C_NULL 0 #define C_AUTO 1 /* automatic variable */ #define C_EXT 2 /* external symbol */ #define C_STAT 3 /* static */ #define C_REG 4 /* register variable */ #define C_EXTDEF 5 /* external definition */ #define C_LABEL 6 /* label */ #define C_ULABEL 7 /* undefined label */ #define C_MOS 8 /* member of structure */ #define C_ARG 9 /* function argument */ #define C_STRTAG 10 /* structure tag */ #define C_MOU 11 /* member of union */ #define C_UNTAG 12 /* union tag */ #define C_TPDEF 13 /* type definition */ #define C_USTATIC 14 /* undefined static */ #define C_ENTAG 15 /* enumeration tag */ #define C_MOE 16 /* member of enumeration */ #define C_REGPARM 17 /* register parameter */ #define C_FIELD 18 /* bit field */ #define C_AUTOARG 19 /* auto argument */ #define C_LASTENT 20 /* dummy entry (end of block) */ #define C_BLOCK 100 /* ".bb" or ".eb" */ #define C_FCN 101 /* ".bf" or ".ef" */ #define C_EOS 102 /* end of structure */ #define C_FILE 103 /* file name */ #define C_LINE 104 /* line # reformatted as symbol table entry */ #define C_ALIAS 105 /* duplicate tag */ #define C_HIDDEN 106 /* ext symbol in dmert public lib */ /* New storage classes for 80960 */ /* C_LEAFPROC is obsolete. Use C_LEAFEXT or C_LEAFSTAT */ #define C_LEAFPROC 108 /* Leaf procedure, "call" via BAL */ #define C_SCALL 107 /* Procedure reachable via system call */ #define C_LEAFEXT 108 /* External leaf */ #define C_LEAFSTAT 113 /* Static leaf */ #define C_OPTVAR 109 /* Optimized variable */ #define C_DEFINE 110 /* Preprocessor #define */ #define C_PRAGMA 111 /* Advice to compiler or linker */ #define C_SEGMENT 112 /* 80960 segment name */ /* Storage classes for m88k */ #define C_SHADOW 107 /* shadow symbol */ #define C_VERSION 108 /* coff version symbol */ /* New storage classes for RS/6000 */ #define C_HIDEXT 107 /* Un-named external symbol */ #define C_BINCL 108 /* Marks beginning of include file */ #define C_EINCL 109 /* Marks ending of include file */ /* storage classes for stab symbols for RS/6000 */ #define C_GSYM (0x80) #define C_LSYM (0x81) #define C_PSYM (0x82) #define C_RSYM (0x83) #define C_RPSYM (0x84) #define C_STSYM (0x85) #define C_TCSYM (0x86) #define C_BCOMM (0x87) #define C_ECOML (0x88) #define C_ECOMM (0x89) #define C_DECL (0x8c) #define C_ENTRY (0x8d) #define C_FUN (0x8e) #define C_BSTAT (0x8f) #define C_ESTAT (0x90) /********************** SECTION HEADER **********************/ struct internal_scnhdr { char s_name[8]; /* section name */ bfd_vma s_paddr; /* physical address, aliased s_nlib */ bfd_vma s_vaddr; /* virtual address */ bfd_vma s_size; /* section size */ bfd_vma s_scnptr; /* file ptr to raw data for section */ bfd_vma s_relptr; /* file ptr to relocation */ bfd_vma s_lnnoptr; /* file ptr to line numbers */ unsigned long s_nreloc; /* number of relocation entries */ unsigned long s_nlnno; /* number of line number entries*/ long s_flags; /* flags */ long s_align; /* used on I960 */ }; /* * s_flags "type" */ #define STYP_REG (0x0000) /* "regular": allocated, relocated, loaded */ #define STYP_DSECT (0x0001) /* "dummy": relocated only*/ #define STYP_NOLOAD (0x0002) /* "noload": allocated, relocated, not loaded */ #define STYP_GROUP (0x0004) /* "grouped": formed of input sections */ #define STYP_PAD (0x0008) /* "padding": not allocated, not relocated, loaded */ #define STYP_COPY (0x0010) /* "copy": for decision function used by field update; not allocated, not relocated, loaded; reloc & lineno entries processed normally */ #define STYP_TEXT (0x0020) /* section contains text only */ #define S_SHRSEG (0x0020) /* In 3b Update files (output of ogen), sections which appear in SHARED segments of the Pfile will have the S_SHRSEG flag set by ogen, to inform dufr that updating 1 copy of the proc. will update all process invocations. */ #define STYP_DATA (0x0040) /* section contains data only */ #define STYP_BSS (0x0080) /* section contains bss only */ #define S_NEWFCN (0x0100) /* In a minimal file or an update file, a new function (as compared with a replaced function) */ #define STYP_INFO (0x0200) /* comment: not allocated not relocated, not loaded */ #define STYP_OVER (0x0400) /* overlay: relocated not allocated or loaded */ #define STYP_LIB (0x0800) /* for .lib: same as INFO */ #define STYP_MERGE (0x2000) /* merge section -- combines with text, data or bss sections only */ #define STYP_REVERSE_PAD (0x4000) /* section will be padded with no-op instructions wherever padding is necessary and there is a word of contiguous bytes beginning on a word boundary. */ #define STYP_LIT 0x8020 /* Literal data (like STYP_TEXT) */ /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct internal_lineno { union { long l_symndx; /* function name symbol index, iff l_lnno == 0*/ long l_paddr; /* (physical) address of line number */ } l_addr; unsigned long l_lnno; /* line number */ }; /********************** SYMBOLS **********************/ #define SYMNMLEN 8 /* # characters in a symbol name */ #define FILNMLEN 14 /* # characters in a file name */ #define DIMNUM 4 /* # array dimensions in auxiliary entry */ struct internal_syment { union { char _n_name[SYMNMLEN]; /* old COFF version */ struct { long _n_zeroes; /* new == 0 */ long _n_offset; /* offset into string table */ } _n_n; char *_n_nptr[2]; /* allows for overlaying */ } _n; long n_value; /* value of symbol */ short n_scnum; /* section number */ unsigned short n_flags; /* copy of flags from filhdr */ unsigned short n_type; /* type and derived type */ unsigned char n_sclass; /* storage class */ char n_numaux; /* number of aux. entries */ }; #define n_name _n._n_name #define n_zeroes _n._n_n._n_zeroes #define n_offset _n._n_n._n_offset /* Relocatable symbols have number of the section in which they are defined, or one of the following: */ #define N_UNDEF ((short)0) /* undefined symbol */ #define N_ABS ((short)-1) /* value of symbol is absolute */ #define N_DEBUG ((short)-2) /* debugging symbol -- value is meaningless */ #define N_TV ((short)-3) /* indicates symbol needs preload transfer vector */ #define P_TV ((short)-4) /* indicates symbol needs postload transfer vector*/ /* * Type of a symbol, in low N bits of the word */ #define T_NULL 0 #define T_VOID 1 /* function argument (only used by compiler) */ #define T_CHAR 2 /* character */ #define T_SHORT 3 /* short integer */ #define T_INT 4 /* integer */ #define T_LONG 5 /* long integer */ #define T_FLOAT 6 /* floating point */ #define T_DOUBLE 7 /* double word */ #define T_STRUCT 8 /* structure */ #define T_UNION 9 /* union */ #define T_ENUM 10 /* enumeration */ #define T_MOE 11 /* member of enumeration*/ #define T_UCHAR 12 /* unsigned character */ #define T_USHORT 13 /* unsigned short */ #define T_UINT 14 /* unsigned integer */ #define T_ULONG 15 /* unsigned long */ #define T_LNGDBL 16 /* long double */ /* * derived types, in n_type */ #define DT_NON (0) /* no derived type */ #define DT_PTR (1) /* pointer */ #define DT_FCN (2) /* function */ #define DT_ARY (3) /* array */ #define BTYPE(x) ((x) & N_BTMASK) #define ISPTR(x) (((x) & N_TMASK) == (DT_PTR << N_BTSHFT)) #define ISFCN(x) (((x) & N_TMASK) == (DT_FCN << N_BTSHFT)) #define ISARY(x) (((x) & N_TMASK) == (DT_ARY << N_BTSHFT)) #define ISTAG(x) ((x)==C_STRTAG||(x)==C_UNTAG||(x)==C_ENTAG) #define DECREF(x) ((((x)>>N_TSHIFT)&~N_BTMASK)|((x)&N_BTMASK)) union internal_auxent { struct { union { long l; /* str, un, or enum tag indx */ struct coff_ptr_struct *p; } x_tagndx; union { struct { unsigned short x_lnno; /* declaration line number */ unsigned short x_size; /* str/union/array size */ } x_lnsz; long x_fsize; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ long x_lnnoptr; /* ptr to fcn line # */ union { /* entry ndx past block end */ long l; struct coff_ptr_struct *p; } x_endndx; } x_fcn; struct { /* if ISARY, up to 4 dimen. */ unsigned short x_dimen[DIMNUM]; } x_ary; } x_fcnary; unsigned short x_tvndx; /* tv index */ } x_sym; union { char x_fname[FILNMLEN]; struct { long x_zeroes; long x_offset; } x_n; } x_file; struct { long x_scnlen; /* section length */ unsigned short x_nreloc; /* # relocation entries */ unsigned short x_nlinno; /* # line numbers */ } x_scn; struct { long x_tvfill; /* tv fill value */ unsigned short x_tvlen; /* length of .tv */ unsigned short x_tvran[2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ /****************************************** * RS/6000-specific auxent - last auxent for every external symbol ******************************************/ struct { union { /* csect length or enclosing csect */ long l; struct coff_ptr_struct *p; } x_scnlen; long x_parmhash; /* parm type hash index */ unsigned short x_snhash; /* sect num with parm hash */ unsigned char x_smtyp; /* symbol align and type */ /* 0-4 - Log 2 of alignment */ /* 5-7 - symbol type */ unsigned char x_smclas; /* storage mapping class */ long x_stab; /* dbx stab info index */ unsigned short x_snstab; /* sect num with dbx stab */ } x_csect; /* csect definition information */ /* x_smtyp values: */ #define SMTYP_ALIGN(x) ((x) >> 3) /* log2 of alignment */ #define SMTYP_SMTYP(x) ((x) & 0x7) /* symbol type */ /* Symbol type values: */ #define XTY_ER 0 /* External reference */ #define XTY_SD 1 /* Csect definition */ #define XTY_LD 2 /* Label definition */ #define XTY_CM 3 /* .BSS */ #define XTY_EM 4 /* Error message */ #define XTY_US 5 /* "Reserved for internal use" */ /* x_smclas values: */ #define XMC_PR 0 /* Read-only program code */ #define XMC_RO 1 /* Read-only constant */ #define XMC_DB 2 /* Read-only debug dictionary table */ #define XMC_TC 3 /* Read-write general TOC entry */ #define XMC_UA 4 /* Read-write unclassified */ #define XMC_RW 5 /* Read-write data */ #define XMC_GL 6 /* Read-only global linkage */ #define XMC_XO 7 /* Read-only extended operation (simulated insn) */ #define XMC_SV 8 /* Read-only supervisor call */ #define XMC_BS 9 /* Read-write BSS */ #define XMC_DS 10 /* Read-write descriptor csect */ #define XMC_UC 11 /* Read-write unnamed Fortran common */ #define XMC_TI 12 /* Read-only traceback index csect */ #define XMC_TB 13 /* Read-only traceback table csect */ /* 14 ??? */ #define XMC_TC0 15 /* Read-write TOC anchor for TOC addressability */ /****************************************** * I960-specific *2nd* aux. entry formats ******************************************/ struct { /* This is a very old typo that keeps getting propagated. */ #define x_stdindx x_stindx long x_stindx; /* sys. table entry */ } x_sc; /* system call entry */ struct { unsigned long x_balntry; /* BAL entry point */ } x_bal; /* BAL-callable function */ struct { unsigned long x_timestamp; /* time stamp */ char x_idstring[20]; /* producer identity string */ } x_ident; /* Producer ident info */ }; /********************** RELOCATION DIRECTIVES **********************/ struct internal_reloc { bfd_vma r_vaddr; /* Virtual address of reference */ long r_symndx; /* Index into symbol table */ unsigned short r_type; /* Relocation type */ unsigned char r_size; /* Used by RS/6000 and ECOFF */ unsigned char r_extern; /* Used by ECOFF */ unsigned long r_offset; /* Used by Alpha ECOFF, SPARC, others */ }; #define R_RELBYTE 017 #define R_RELWORD 020 #define R_PCRBYTE 022 #define R_PCRWORD 023 #define R_PCRLONG 024 #define R_DIR16 01 #define R_DIR32 06 #define R_PCLONG 020 #define R_RELBYTE 017 #define R_RELWORD 020 #define R_PCR16L 128 #define R_PCR26L 129 #define R_VRT16 130 #define R_HVRT16 131 #define R_LVRT16 132 #define R_VRT32 133 #define R_RELLONG (0x11) /* Direct 32-bit relocation */ #define R_IPRSHORT (0x18) #define R_IPRMED (0x19) /* 24-bit ip-relative relocation */ #define R_IPRLONG (0x1a) #define R_OPTCALL (0x1b) /* 32-bit optimizable call (leafproc/sysproc) */ #define R_OPTCALLX (0x1c) /* 64-bit optimizable call (leafproc/sysproc) */ #define R_GETSEG (0x1d) #define R_GETPA (0x1e) #define R_TAGWORD (0x1f) #define R_JUMPTARG 0x20 /* strange 29k 00xx00xx reloc */ #define R_MOVB1 0x41 /* Special h8 16bit or 8 bit reloc for mov.b */ #define R_MOVB2 0x42 /* Special h8 opcode for 8bit which could be 16 */ #define R_JMP1 0x43 /* Special h8 16bit jmp which could be pcrel */ #define R_JMP2 0x44 /* a branch which used to be a jmp */ #define R_RELLONG_NEG 0x45 #define R_JMPL1 0x46 /* Special h8 24bit jmp which could be pcrel */ #define R_JMPL_B8 0x47 /* a 8 bit pcrel which used to be a jmp */ #define R_MOVLB1 0x48 /* Special h8 24bit or 8 bit reloc for mov.b */ #define R_MOVLB2 0x49 /* Special h8 opcode for 8bit which could be 24 */ /* Z8k modes */ #define R_IMM16 0x01 /* 16 bit abs */ #define R_JR 0x02 /* jr 8 bit disp */ #define R_IMM4L 0x23 /* low nibble */ #define R_IMM8 0x22 /* 8 bit abs */ #define R_IMM32 R_RELLONG /* 32 bit abs */ #define R_CALL R_DA /* Absolute address which could be a callr */ #define R_JP R_DA /* Absolute address which could be a jp */ #define R_REL16 0x04 /* 16 bit PC rel */ #define R_CALLR 0x05 /* callr 12 bit disp */ #define R_SEG 0x10 /* set if in segmented mode */ #define R_IMM4H 0x24 /* high nibble */ #define R_DISP7 0x25 /* djnz displacement */ /* H8500 modes */ #define R_H8500_IMM8 1 /* 8 bit immediate */ #define R_H8500_IMM16 2 /* 16 bit immediate */ #define R_H8500_PCREL8 3 /* 8 bit pcrel */ #define R_H8500_PCREL16 4 /* 16 bit pcrel */ #define R_H8500_HIGH8 5 /* high 8 bits of 24 bit address */ #define R_H8500_LOW16 7 /* low 16 bits of 24 bit immediate */ #define R_H8500_IMM24 6 /* 24 bit immediate */ #define R_H8500_IMM32 8 /* 32 bit immediate */ #define R_H8500_HIGH16 9 /* high 16 bits of 32 bit immediate */ /* SH modes */ #define R_SH_PCREL8 3 /* 8 bit pcrel */ #define R_SH_PCREL16 4 /* 16 bit pcrel */ #define R_SH_HIGH8 5 /* high 8 bits of 24 bit address */ #define R_SH_LOW16 7 /* low 16 bits of 24 bit immediate */ #define R_SH_IMM24 6 /* 24 bit immediate */ #define R_SH_PCDISP8BY4 9 /* PC rel 8 bits *4 +ve */ #define R_SH_PCDISP8BY2 10 /* PC rel 8 bits *2 +ve */ #define R_SH_PCDISP8 11 /* 8 bit branch */ #define R_SH_PCDISP 12 /* 12 bit branch */ #define R_SH_IMM32 14 /* 32 bit immediate */ #define R_SH_IMM8 16 #define R_SH_IMM8BY2 17 #define R_SH_IMM8BY4 18 #define R_SH_IMM4 19 #define R_SH_IMM4BY2 20 #define R_SH_IMM4BY4 21 #define R_SH_PCRELIMM8BY2 22 #define R_SH_PCRELIMM8BY4 23 #define R_SH_IMM16 24 /* 16 bit immediate */ gdb-4.13/include/coff/m68k.h 666 34562 1752 12713 5464065660 14072 0ustar fnfcygnus/*** coff information for M68K */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; /* Motorola 68000/68008/68010/68020 */ #define MC68MAGIC 0520 #define MC68KWRMAGIC 0520 /* writeable text segments */ #define MC68TVMAGIC 0521 #define MC68KROMAGIC 0521 /* readonly shareable text segments */ #define MC68KPGMAGIC 0522 /* demand paged text segments */ #define M68MAGIC 0210 #define M68TVMAGIC 0211 /* this is the magic of the Bull dpx/2 */ #define MC68KBCSMAGIC 0526 /* This is Lynx's all-platform magic number for executables. */ #define LYNXCOFFMAGIC 0415 #define OMAGIC M68MAGIC /* This intentionally does not include MC68KBCSMAGIC; it only includes magic numbers which imply that names do not have underscores. */ #define M68KBADMAG(x) (((x).f_magic!=MC68MAGIC) && ((x).f_magic!=MC68KWRMAGIC) && ((x).f_magic!=MC68TVMAGIC) && \ ((x).f_magic!=MC68KROMAGIC) && ((x).f_magic!=MC68KPGMAGIC) && ((x).f_magic!=M68MAGIC) && ((x).f_magic!=M68TVMAGIC) && ((x).f_magic!=LYNXCOFFMAGIC) ) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[2]; /* line number */ }; #define LINENO struct external_lineno #define LINESZ sizeof(LINENO) /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define N_BTMASK (017) #define N_TMASK (060) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define SYMENT struct external_syment #define SYMESZ 18 #define AUXENT union external_auxent #define AUXESZ 18 /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_type[2]; #ifdef M68K_COFF_OFFSET char r_offset[4]; #endif }; #define RELOC struct external_reloc #define RELSZ sizeof(struct external_reloc) #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/coff/m88k.h 666 34562 1752 14610 5421352762 14065 0ustar fnfcygnus/*** coff information for 88k bcs */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; #define MC88MAGIC 0540 /* 88k BCS executable */ #define MC88DMAGIC 0541 /* DG/UX executable */ #define MC88OMAGIC 0555 /* Object file */ #define MC88BADMAG(x) (((x).f_magic!=MC88MAGIC) &&((x).f_magic!=MC88DMAGIC) && ((x).f_magic != MC88OMAGIC)) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ #define PAGEMAGIC3 0414 /* Split i&d, zero mapped */ #define PAGEMAGICBCS 0413 typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; /* compute size of a header */ #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[4]; /* number of relocation entries */ char s_nlnno[4]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno{ union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[4]; }; #define LINENO struct external_lineno #define LINESZ 8 /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; char pad2[2]; }; #define N_BTMASK 017 #define N_TMASK 060 #define N_BTSHFT 4 #define N_TSHIFT 2 /* Note that this isn't the same shape as other coffs */ union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ /* 4 */ union { char x_fsize[4]; /* size of function */ struct { char x_lnno[4]; /* declaration line number */ char x_size[4]; /* str/union/array size */ } x_lnsz; } x_misc; /* 12 */ union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; /* 20 */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[4]; /* # relocation entries */ char x_nlinno[4]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define GET_FCN_LNNOPTR(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *)ext->x_sym.x_fcnary.x_fcn.x_lnnoptr) #define GET_FCN_ENDNDX(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_endndx) #define PUT_FCN_LNNOPTR(abfd, in, ext) bfd_h_put_32(abfd, in, (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_lnnoptr) #define PUT_FCN_ENDNDX(abfd, in, ext) bfd_h_put_32(abfd, in, (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_endndx) #define GET_LNSZ_SIZE(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) ext->x_sym.x_misc.x_lnsz.x_size) #define GET_LNSZ_LNNO(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) ext->x_sym.x_misc.x_lnsz.x_lnno) #define PUT_LNSZ_LNNO(abfd, in, ext) bfd_h_put_32(abfd, in, (bfd_byte *) ext->x_sym.x_misc.x_lnsz.x_lnno) #define PUT_LNSZ_SIZE(abfd, in, ext) bfd_h_put_32(abfd, in, (bfd_byte *) ext->x_sym.x_misc.x_lnsz.x_size) #define GET_SCN_SCNLEN(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) ext->x_scn.x_scnlen) #define GET_SCN_NRELOC(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) ext->x_scn.x_nreloc) #define GET_SCN_NLINNO(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) ext->x_scn.x_nlinno) #define PUT_SCN_SCNLEN(abfd,in, ext) bfd_h_put_32(abfd, in, (bfd_byte *) ext->x_scn.x_scnlen) #define PUT_SCN_NRELOC(abfd,in, ext) bfd_h_put_32(abfd, in, (bfd_byte *)ext->x_scn.x_nreloc) #define PUT_SCN_NLINNO(abfd,in, ext) bfd_h_put_32(abfd,in, (bfd_byte *) ext->x_scn.x_nlinno) #define GET_LINENO_LNNO(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) (ext->l_lnno)) #define PUT_LINENO_LNNO(abfd,val, ext) bfd_h_put_32(abfd,val, (bfd_byte *) (ext->l_lnno)); #define SYMENT struct external_syment #define SYMESZ 20 #define AUXENT union external_auxent #define AUXESZ 20 /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_type[2]; char r_offset[2]; }; #define RELOC struct external_reloc #define RELSZ 12 #define DEFAULT_SECTION_ALIGNMENT 8 /* double word */ #define NO_TVNDX gdb-4.13/include/coff/mips.h 666 34562 1752 25173 5553273471 14261 0ustar fnfcygnus/* ECOFF support on MIPS machines. coff/ecoff.h must be included before this file. */ /********************** FILE HEADER **********************/ struct external_filehdr { unsigned char f_magic[2]; /* magic number */ unsigned char f_nscns[2]; /* number of sections */ unsigned char f_timdat[4]; /* time & date stamp */ unsigned char f_symptr[4]; /* file pointer to symtab */ unsigned char f_nsyms[4]; /* number of symtab entries */ unsigned char f_opthdr[2]; /* sizeof(optional hdr) */ unsigned char f_flags[2]; /* flags */ }; /* Magic numbers are defined in coff/ecoff.h. */ #define MIPS_ECOFF_BADMAG(x) (((x).f_magic!=MIPS_MAGIC_1) && \ ((x).f_magic!=MIPS_MAGIC_LITTLE) &&\ ((x).f_magic!=MIPS_MAGIC_BIG) && \ ((x).f_magic!=MIPS_MAGIC_LITTLE2) && \ ((x).f_magic!=MIPS_MAGIC_BIG2) && \ ((x).f_magic!=MIPS_MAGIC_LITTLE3) && \ ((x).f_magic!=MIPS_MAGIC_BIG3)) #define FILHDR struct external_filehdr #define FILHSZ 20 /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct external_aouthdr { unsigned char magic[2]; /* type of file */ unsigned char vstamp[2]; /* version stamp */ unsigned char tsize[4]; /* text size in bytes, padded to FW bdry*/ unsigned char dsize[4]; /* initialized data " " */ unsigned char bsize[4]; /* uninitialized data " " */ unsigned char entry[4]; /* entry pt. */ unsigned char text_start[4]; /* base of text used for this file */ unsigned char data_start[4]; /* base of data used for this file */ unsigned char bss_start[4]; /* base of bss used for this file */ unsigned char gprmask[4]; /* ?? */ unsigned char cprmask[4][4]; /* ?? */ unsigned char gp_value[4]; /* value for gp register */ } AOUTHDR; /* compute size of a header */ #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { unsigned char s_name[8]; /* section name */ unsigned char s_paddr[4]; /* physical address, aliased s_nlib */ unsigned char s_vaddr[4]; /* virtual address */ unsigned char s_size[4]; /* section size */ unsigned char s_scnptr[4]; /* file ptr to raw data for section */ unsigned char s_relptr[4]; /* file ptr to relocation */ unsigned char s_lnnoptr[4]; /* file ptr to line numbers */ unsigned char s_nreloc[2]; /* number of relocation entries */ unsigned char s_nlnno[2]; /* number of line number entries*/ unsigned char s_flags[4]; /* flags */ }; #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { unsigned char r_vaddr[4]; unsigned char r_bits[4]; }; #define RELOC struct external_reloc #define RELSZ 8 /* MIPS ECOFF uses a packed 8 byte format for relocs. These constants are used to unpack the r_bits field. */ #define RELOC_BITS0_SYMNDX_SH_LEFT_BIG 16 #define RELOC_BITS0_SYMNDX_SH_LEFT_LITTLE 0 #define RELOC_BITS1_SYMNDX_SH_LEFT_BIG 8 #define RELOC_BITS1_SYMNDX_SH_LEFT_LITTLE 8 #define RELOC_BITS2_SYMNDX_SH_LEFT_BIG 0 #define RELOC_BITS2_SYMNDX_SH_LEFT_LITTLE 16 /* Originally, ECOFF used four bits for the reloc type and had three reserved bits. Irix 4 added another bit for the reloc type, which was easy because it was big endian and one of the spare bits became the new most significant bit. To make this also work for little endian ECOFF, we need to wrap one of the reserved bits around to become the most significant bit of the reloc type. */ #define RELOC_BITS3_TYPE_BIG 0x3E #define RELOC_BITS3_TYPE_SH_BIG 1 #define RELOC_BITS3_TYPE_LITTLE 0x78 #define RELOC_BITS3_TYPE_SH_LITTLE 3 #define RELOC_BITS3_TYPEHI_LITTLE 0x04 #define RELOC_BITS3_TYPEHI_SH_LITTLE 2 #define RELOC_BITS3_EXTERN_BIG 0x01 #define RELOC_BITS3_EXTERN_LITTLE 0x80 /* The r_type field in a reloc is one of the following values. I don't know if any other values can appear. These seem to be all that occur in the Ultrix 4.2 libraries. */ #define MIPS_R_IGNORE 0 #define MIPS_R_REFHALF 1 #define MIPS_R_REFWORD 2 #define MIPS_R_JMPADDR 3 #define MIPS_R_REFHI 4 #define MIPS_R_REFLO 5 #define MIPS_R_GPREL 6 #define MIPS_R_LITERAL 7 /* These reloc types are a Cygnus extension used when generating position independent code for embedded systems. The numbers are taken from Irix 4, but at least for internal relocs Irix 5 does not give them the same meaning. For an internal reloc the symbol index of RELHI and RELLO is modified as described below for MIPS_R_SWITCH. */ #define MIPS_R_PCREL16 12 #define MIPS_R_RELHI 13 #define MIPS_R_RELLO 14 /* This reloc type is a Cygnus extension used when generating position independent code for embedded systems. It is used for an entry in a switch table, which looks like this: .switch $L3-$LS12 The object file will contain the correct difference, and does not require adjustment. However, when the linker is relaxing PC relative calls, it is possible for $L3 to move farther away. This reloc always appears in the .text section, and is always against the .text section. However, the symbol index is not RELOC_SECTION_TEXT. It is, instead, the distance between this switch table entry and $LS12. Thus, the original value of $L12 is vaddr - symndx and the original value of $L3 is vaddr - symndx + addend where addend is the value in the object file. Knowing this, the linker can know whether the addend in the object file must be adjusted. */ #define MIPS_R_SWITCH 22 /********************** STABS **********************/ #define MIPS_IS_STAB ECOFF_IS_STAB #define MIPS_MARK_STAB ECOFF_MARK_STAB #define MIPS_UNMARK_STAB ECOFF_UNMARK_STAB #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 16 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 /********************** SYMBOLIC INFORMATION **********************/ /* Written by John Gilmore. */ /* ECOFF uses COFF-like section structures, but its own symbol format. This file defines the symbol format in fields whose size and alignment will not vary on different host systems. */ /* File header as a set of bytes */ struct hdr_ext { unsigned char h_magic[2]; unsigned char h_vstamp[2]; unsigned char h_ilineMax[4]; unsigned char h_cbLine[4]; unsigned char h_cbLineOffset[4]; unsigned char h_idnMax[4]; unsigned char h_cbDnOffset[4]; unsigned char h_ipdMax[4]; unsigned char h_cbPdOffset[4]; unsigned char h_isymMax[4]; unsigned char h_cbSymOffset[4]; unsigned char h_ioptMax[4]; unsigned char h_cbOptOffset[4]; unsigned char h_iauxMax[4]; unsigned char h_cbAuxOffset[4]; unsigned char h_issMax[4]; unsigned char h_cbSsOffset[4]; unsigned char h_issExtMax[4]; unsigned char h_cbSsExtOffset[4]; unsigned char h_ifdMax[4]; unsigned char h_cbFdOffset[4]; unsigned char h_crfd[4]; unsigned char h_cbRfdOffset[4]; unsigned char h_iextMax[4]; unsigned char h_cbExtOffset[4]; }; /* File descriptor external record */ struct fdr_ext { unsigned char f_adr[4]; unsigned char f_rss[4]; unsigned char f_issBase[4]; unsigned char f_cbSs[4]; unsigned char f_isymBase[4]; unsigned char f_csym[4]; unsigned char f_ilineBase[4]; unsigned char f_cline[4]; unsigned char f_ioptBase[4]; unsigned char f_copt[4]; unsigned char f_ipdFirst[2]; unsigned char f_cpd[2]; unsigned char f_iauxBase[4]; unsigned char f_caux[4]; unsigned char f_rfdBase[4]; unsigned char f_crfd[4]; unsigned char f_bits1[1]; unsigned char f_bits2[3]; unsigned char f_cbLineOffset[4]; unsigned char f_cbLine[4]; }; #define FDR_BITS1_LANG_BIG 0xF8 #define FDR_BITS1_LANG_SH_BIG 3 #define FDR_BITS1_LANG_LITTLE 0x1F #define FDR_BITS1_LANG_SH_LITTLE 0 #define FDR_BITS1_FMERGE_BIG 0x04 #define FDR_BITS1_FMERGE_LITTLE 0x20 #define FDR_BITS1_FREADIN_BIG 0x02 #define FDR_BITS1_FREADIN_LITTLE 0x40 #define FDR_BITS1_FBIGENDIAN_BIG 0x01 #define FDR_BITS1_FBIGENDIAN_LITTLE 0x80 #define FDR_BITS2_GLEVEL_BIG 0xC0 #define FDR_BITS2_GLEVEL_SH_BIG 6 #define FDR_BITS2_GLEVEL_LITTLE 0x03 #define FDR_BITS2_GLEVEL_SH_LITTLE 0 /* We ignore the `reserved' field in bits2. */ /* Procedure descriptor external record */ struct pdr_ext { unsigned char p_adr[4]; unsigned char p_isym[4]; unsigned char p_iline[4]; unsigned char p_regmask[4]; unsigned char p_regoffset[4]; unsigned char p_iopt[4]; unsigned char p_fregmask[4]; unsigned char p_fregoffset[4]; unsigned char p_frameoffset[4]; unsigned char p_framereg[2]; unsigned char p_pcreg[2]; unsigned char p_lnLow[4]; unsigned char p_lnHigh[4]; unsigned char p_cbLineOffset[4]; }; /* Line numbers */ struct line_ext { unsigned char l_line[4]; }; /* Symbol external record */ struct sym_ext { unsigned char s_iss[4]; unsigned char s_value[4]; unsigned char s_bits1[1]; unsigned char s_bits2[1]; unsigned char s_bits3[1]; unsigned char s_bits4[1]; }; #define SYM_BITS1_ST_BIG 0xFC #define SYM_BITS1_ST_SH_BIG 2 #define SYM_BITS1_ST_LITTLE 0x3F #define SYM_BITS1_ST_SH_LITTLE 0 #define SYM_BITS1_SC_BIG 0x03 #define SYM_BITS1_SC_SH_LEFT_BIG 3 #define SYM_BITS1_SC_LITTLE 0xC0 #define SYM_BITS1_SC_SH_LITTLE 6 #define SYM_BITS2_SC_BIG 0xE0 #define SYM_BITS2_SC_SH_BIG 5 #define SYM_BITS2_SC_LITTLE 0x07 #define SYM_BITS2_SC_SH_LEFT_LITTLE 2 #define SYM_BITS2_RESERVED_BIG 0x10 #define SYM_BITS2_RESERVED_LITTLE 0x08 #define SYM_BITS2_INDEX_BIG 0x0F #define SYM_BITS2_INDEX_SH_LEFT_BIG 16 #define SYM_BITS2_INDEX_LITTLE 0xF0 #define SYM_BITS2_INDEX_SH_LITTLE 4 #define SYM_BITS3_INDEX_SH_LEFT_BIG 8 #define SYM_BITS3_INDEX_SH_LEFT_LITTLE 4 #define SYM_BITS4_INDEX_SH_LEFT_BIG 0 #define SYM_BITS4_INDEX_SH_LEFT_LITTLE 12 /* External symbol external record */ struct ext_ext { unsigned char es_bits1[1]; unsigned char es_bits2[1]; unsigned char es_ifd[2]; struct sym_ext es_asym; }; #define EXT_BITS1_JMPTBL_BIG 0x80 #define EXT_BITS1_JMPTBL_LITTLE 0x01 #define EXT_BITS1_COBOL_MAIN_BIG 0x40 #define EXT_BITS1_COBOL_MAIN_LITTLE 0x02 #define EXT_BITS1_WEAKEXT_BIG 0x20 #define EXT_BITS1_WEAKEXT_LITTLE 0x04 /* Dense numbers external record */ struct dnr_ext { unsigned char d_rfd[4]; unsigned char d_index[4]; }; /* Relative file descriptor */ struct rfd_ext { unsigned char rfd[4]; }; /* Optimizer symbol external record */ struct opt_ext { unsigned char o_bits1[1]; unsigned char o_bits2[1]; unsigned char o_bits3[1]; unsigned char o_bits4[1]; struct rndx_ext o_rndx; unsigned char o_offset[4]; }; #define OPT_BITS2_VALUE_SH_LEFT_BIG 16 #define OPT_BITS2_VALUE_SH_LEFT_LITTLE 0 #define OPT_BITS3_VALUE_SH_LEFT_BIG 8 #define OPT_BITS3_VALUE_SH_LEFT_LITTLE 8 #define OPT_BITS4_VALUE_SH_LEFT_BIG 0 #define OPT_BITS4_VALUE_SH_LEFT_LITTLE 16 gdb-4.13/include/coff/rs6000.h 666 34562 1752 14512 5524621111 14220 0ustar fnfcygnus/* IBM RS/6000 "XCOFF" file definitions for BFD. Copyright (C) 1990, 1991 Free Software Foundation, Inc. FIXME: Can someone provide a transliteration of this name into ASCII? Using the following chars caused a compiler warning on HIUX (so I replaced them with octal escapes), and isn't useful without an understanding of what character set it is. Written by Mimi Ph\373\364ng-Th\345o V\365 of IBM and John Gilmore of Cygnus Support. */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; /* IBM RS/6000 */ #define U802WRMAGIC 0730 /* writeable text segments **chh** */ #define U802ROMAGIC 0735 /* readonly sharable text segments */ #define U802TOCMAGIC 0737 /* readonly text segments and TOC */ #define BADMAG(x) \ ((x).f_magic != U802ROMAGIC && (x).f_magic != U802WRMAGIC && \ (x).f_magic != U802TOCMAGIC) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { unsigned char magic[2]; /* type of file */ unsigned char vstamp[2]; /* version stamp */ unsigned char tsize[4]; /* text size in bytes, padded to FW bdry */ unsigned char dsize[4]; /* initialized data " " */ unsigned char bsize[4]; /* uninitialized data " " */ unsigned char entry[4]; /* entry pt. */ unsigned char text_start[4]; /* base of text used for this file */ unsigned char data_start[4]; /* base of data used for this file */ unsigned char o_toc[4]; unsigned char o_snentry[2]; unsigned char o_sntext[2]; unsigned char o_sndata[2]; unsigned char o_sntoc[2]; unsigned char o_snloader[2]; unsigned char o_snbss[2]; unsigned char o_algntext[2]; unsigned char o_algndata[2]; unsigned char o_modtype[2]; unsigned char o_resv1[2]; unsigned char o_maxstack[4]; unsigned char o_resv2[16]; } AOUTHDR; #define AOUTSZ (sizeof(AOUTHDR)) #define RS6K_AOUTHDR_OMAGIC 0x0107 /* old: text & data writeable */ #define RS6K_AOUTHDR_NMAGIC 0x0108 /* new: text r/o, data r/w */ #define RS6K_AOUTHDR_ZMAGIC 0x010B /* paged: text r/o, both page-aligned */ /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /* XCOFF uses a special .debug section with type STYP_DEBUG. */ #define STYP_DEBUG 0x2000 /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[2]; /* line number */ }; #define LINENO struct external_lineno #define LINESZ sizeof(LINENO) /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define N_BTMASK (017) #define N_TMASK (060) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ struct { unsigned char x_scnlen[4]; unsigned char x_parmhash[4]; unsigned char x_snhash[2]; unsigned char x_smtyp[1]; unsigned char x_smclas[1]; unsigned char x_stab[4]; unsigned char x_snstab[2]; } x_csect; }; #define SYMENT struct external_syment #define SYMESZ 18 #define AUXENT union external_auxent #define AUXESZ 18 #define DBXMASK 0x80 /* for dbx storage mask */ #define SYMNAME_IN_DEBUG(symptr) ((symptr)->n_sclass & DBXMASK) /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_size[1]; char r_type[1]; }; #define RELOC struct external_reloc #define RELSZ 10 #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/coff/sh.h 666 34562 1752 12023 5556002022 13672 0ustar fnfcygnus/*** coff information for Hitachi SH */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; #define SH_ARCH_MAGIC 0x0500 #define SHBADMAG(x) (((x).f_magic!=SH_ARCH_MAGIC)) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; #define AOUTHDRSZ (sizeof(AOUTHDR)) #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[4]; /* line number */ }; #define GET_LINENO_LNNO(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) (ext->l_lnno)); #define PUT_LINENO_LNNO(abfd,val, ext) bfd_h_put_32(abfd,val, (bfd_byte *) (ext->l_lnno)); #define LINENO struct external_lineno #define LINESZ sizeof(LINENO) /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define N_BTMASK (017) #define N_TMASK (060) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define SYMENT struct external_syment #define SYMESZ 18 #define AUXENT union external_auxent #define AUXESZ 18 /********************** RELOCATION DIRECTIVES **********************/ /* The external reloc has an offset field, because some of the reloc types on the h8 don't have room in the instruction for the entire offset - eg the strange jump and high page addressing modes */ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_offset[4]; char r_type[2]; char r_stuff[2]; }; #define RELOC struct external_reloc #define RELSZ 16 #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/coff/sparc.h 666 34562 1752 13531 5505630632 14405 0ustar fnfcygnus/*** coff information for Sparc. */ /* This file is an amalgamation of several standard include files that define coff format, such as filehdr.h, aouthdr.h, and so forth. In addition, all datatypes have been translated into character arrays of (presumed) equivalent size. This is necessary so that this file can be used with different systems while still yielding the same results. */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; #define F_RELFLG (0x0001) /* relocation info stripped */ #define F_EXEC (0x0002) /* file is executable */ #define F_LNNO (0x0004) /* line numbers stripped */ #define F_LSYMS (0x0008) /* local symbols stripped */ #define SPARCMAGIC (0540) /* This is Lynx's all-platform magic number for executables. */ #define LYNXCOFFMAGIC (0415) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; #define AOUTSZ (sizeof(AOUTHDR)) #define OMAGIC 0404 /* object files, eg as output */ #define ZMAGIC 0413 /* demand load format, eg normal ld output */ #define STMAGIC 0401 /* target shlib */ #define SHMAGIC 0443 /* host shlib */ /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /* Names of "special" sections. */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define _TV ".tv" #define _INIT ".init" #define _FINI ".fini" #define _COMMENT ".comment" #define _LIB ".lib" /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. Line numbers are grouped on a per function basis; first entry in a function grouping will have l_lnno = 0 and in place of physical address will be the symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* fn name symbol index, iff l_lnno == 0 */ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[2]; /* line number */ }; #define LINENO struct external_lineno #define LINESZ (6) /********************** SYMBOLS **********************/ #define E_SYMNMLEN (8) /* # characters in a symbol name */ #define E_FILNMLEN (14) /* # characters in a file name */ #define E_DIMNUM (4) /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; #if 0 /* of doubtful value */ char e_nptr[2][4]; struct { char e_leading_zero[1]; char e_dbx_type[1]; char e_dbx_desc[2]; } e_dbx; #endif } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; char padding[2]; }; #define N_BTMASK (0xf) #define N_TMASK (0x30) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* .tv section info (in auxent of sym .tv)) */ char x_fill[20]; /* forces to 20-byte size */ }; #define SYMENT struct external_syment #define SYMESZ 20 #define AUXENT union external_auxent #define AUXESZ 20 #define _ETEXT "etext" /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_type[2]; char r_spare[2]; char r_offset[4]; }; #define RELOC struct external_reloc #define RELSZ sizeof (RELOC) #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/coff/sym.h 666 34562 1752 40272 5532172232 14104 0ustar fnfcygnus/* Declarations of internal format of MIPS ECOFF symbols. Originally contributed by MIPS Computer Systems and Third Eye Software. Changes contributed by Cygnus Support are in the public domain. This file is just aggregated with the files that make up the GNU release; it is not considered part of GAS, GDB, or other GNU programs. */ /* * |-----------------------------------------------------------| * | Copyright (c) 1992, 1991, 1990 MIPS Computer Systems, Inc.| * | MIPS Computer Systems, Inc. grants reproduction and use | * | rights to all parties, PROVIDED that this comment is | * | maintained in the copy. | * |-----------------------------------------------------------| */ #ifndef _SYM_H #define _SYM_H /* (C) Copyright 1984 by Third Eye Software, Inc. * * Third Eye Software, Inc. grants reproduction and use rights to * all parties, PROVIDED that this comment is maintained in the copy. * * Third Eye makes no claims about the applicability of this * symbol table to a particular use. */ /* * This file contains the definition of the Third Eye Symbol Table. * * Symbols are assumed to be in 'encounter order' - i.e. the order that * the things they represent were encountered by the compiler/assembler/loader. * EXCEPT for globals! These are assumed to be bunched together, * probably right after the last 'normal' symbol. Globals ARE sorted * in ascending order. * * ----------------------------------------------------------------------- * A brief word about Third Eye naming/use conventions: * * All arrays and index's are 0 based. * All "ifooMax" values are the highest legal value PLUS ONE. This makes * them good for allocating arrays, etc. All checks are "ifoo < ifooMax". * * "isym" Index into the SYMbol table. * "ipd" Index into the Procedure Descriptor array. * "ifd" Index into the File Descriptor array. * "iss" Index into String Space. * "cb" Count of Bytes. * "rgPd" array whose domain is "0..ipdMax-1" and RanGe is PDR. * "rgFd" array whose domain is "0..ifdMax-1" and RanGe is FDR. */ /* * Symbolic Header (HDR) structure. * As long as all the pointers are set correctly, * we don't care WHAT order the various sections come out in! * * A file produced solely for the use of CDB will probably NOT have * any instructions or data areas in it, as these are available * in the original. */ typedef struct { short magic; /* to verify validity of the table */ short vstamp; /* version stamp */ long ilineMax; /* number of line number entries */ bfd_vma cbLine; /* number of bytes for line number entries */ bfd_vma cbLineOffset; /* offset to start of line number entries*/ long idnMax; /* max index into dense number table */ bfd_vma cbDnOffset; /* offset to start dense number table */ long ipdMax; /* number of procedures */ bfd_vma cbPdOffset; /* offset to procedure descriptor table */ long isymMax; /* number of local symbols */ bfd_vma cbSymOffset; /* offset to start of local symbols*/ long ioptMax; /* max index into optimization symbol entries */ bfd_vma cbOptOffset; /* offset to optimization symbol entries */ long iauxMax; /* number of auxillary symbol entries */ bfd_vma cbAuxOffset; /* offset to start of auxillary symbol entries*/ long issMax; /* max index into local strings */ bfd_vma cbSsOffset; /* offset to start of local strings */ long issExtMax; /* max index into external strings */ bfd_vma cbSsExtOffset; /* offset to start of external strings */ long ifdMax; /* number of file descriptor entries */ bfd_vma cbFdOffset; /* offset to file descriptor table */ long crfd; /* number of relative file descriptor entries */ bfd_vma cbRfdOffset; /* offset to relative file descriptor table */ long iextMax; /* max index into external symbols */ bfd_vma cbExtOffset; /* offset to start of external symbol entries*/ /* If you add machine dependent fields, add them here */ } HDRR, *pHDRR; #define cbHDRR sizeof(HDRR) #define hdrNil ((pHDRR)0) /* * The FDR and PDR structures speed mapping of address <-> name. * They are sorted in ascending memory order and are kept in * memory by CDB at runtime. */ /* * File Descriptor * * There is one of these for EVERY FILE, whether compiled with * full debugging symbols or not. The name of a file should be * the path name given to the compiler. This allows the user * to simply specify the names of the directories where the COMPILES * were done, and we will be able to find their files. * A field whose comment starts with "R - " indicates that it will be * setup at runtime. */ typedef struct fdr { bfd_vma adr; /* memory address of beginning of file */ long rss; /* file name (of source, if known) */ long issBase; /* file's string space */ bfd_vma cbSs; /* number of bytes in the ss */ long isymBase; /* beginning of symbols */ long csym; /* count file's of symbols */ long ilineBase; /* file's line symbols */ long cline; /* count of file's line symbols */ long ioptBase; /* file's optimization entries */ long copt; /* count of file's optimization entries */ unsigned short ipdFirst;/* start of procedures for this file */ short cpd; /* count of procedures for this file */ long iauxBase; /* file's auxiliary entries */ long caux; /* count of file's auxiliary entries */ long rfdBase; /* index into the file indirect table */ long crfd; /* count file indirect entries */ unsigned lang: 5; /* language for this file */ unsigned fMerge : 1; /* whether this file can be merged */ unsigned fReadin : 1; /* true if it was read in (not just created) */ unsigned fBigendian : 1;/* if set, was compiled on big endian machine */ /* aux's will be in compile host's sex */ unsigned glevel : 2; /* level this file was compiled with */ unsigned reserved : 22; /* reserved for future use */ bfd_vma cbLineOffset; /* byte offset from header for this file ln's */ bfd_vma cbLine; /* size of lines for this file */ } FDR, *pFDR; #define cbFDR sizeof(FDR) #define fdNil ((pFDR)0) #define ifdNil -1 #define ifdTemp 0 #define ilnNil -1 /* * Procedure Descriptor * * There is one of these for EVERY TEXT LABEL. * If a procedure is in a file with full symbols, then isym * will point to the PROC symbols, else it will point to the * global symbol for the label. */ typedef struct pdr { bfd_vma adr; /* memory address of start of procedure */ long isym; /* start of local symbol entries */ long iline; /* start of line number entries*/ long regmask; /* save register mask */ long regoffset; /* save register offset */ long iopt; /* start of optimization symbol entries*/ long fregmask; /* save floating point register mask */ long fregoffset; /* save floating point register offset */ long frameoffset; /* frame size */ short framereg; /* frame pointer register */ short pcreg; /* offset or reg of return pc */ long lnLow; /* lowest line in the procedure */ long lnHigh; /* highest line in the procedure */ bfd_vma cbLineOffset; /* byte offset for this procedure from the fd base */ /* These fields are new for 64 bit ECOFF. */ unsigned gp_prologue : 8; /* byte size of GP prologue */ unsigned gp_used : 1; /* true if the procedure uses GP */ unsigned reg_frame : 1; /* true if register frame procedure */ unsigned reserved : 14; /* reserved: must be zero */ unsigned localoff : 8; /* offset of local variables from vfp */ } PDR, *pPDR; #define cbPDR sizeof(PDR) #define pdNil ((pPDR) 0) #define ipdNil -1 /* * The structure of the runtime procedure descriptor created by the loader * for use by the static exception system. */ typedef struct runtime_pdr { bfd_vma adr; /* memory address of start of procedure */ long regmask; /* save register mask */ long regoffset; /* save register offset */ long fregmask; /* save floating point register mask */ long fregoffset; /* save floating point register offset */ long frameoffset; /* frame size */ short framereg; /* frame pointer register */ short pcreg; /* offset or reg of return pc */ long irpss; /* index into the runtime string table */ long reserved; struct exception_info *exception_info;/* pointer to exception array */ } RPDR, *pRPDR; #define cbRPDR sizeof(RPDR) #define rpdNil ((pRPDR) 0) /* * Line Numbers * * Line Numbers are segregated from the normal symbols because they * are [1] smaller , [2] are of no interest to your * average loader, and [3] are never needed in the middle of normal * scanning and therefore slow things down. * * By definition, the first LINER for any given procedure will have * the first line of a procedure and represent the first address. */ typedef long LINER, *pLINER; #define lineNil ((pLINER)0) #define cbLINER sizeof(LINER) #define ilineNil -1 /* * The Symbol Structure (GFW, to those who Know!) */ typedef struct { long iss; /* index into String Space of name */ bfd_vma value; /* value of symbol */ unsigned st : 6; /* symbol type */ unsigned sc : 5; /* storage class - text, data, etc */ unsigned reserved : 1; /* reserved */ unsigned index : 20; /* index into sym/aux table */ } SYMR, *pSYMR; #define symNil ((pSYMR)0) #define cbSYMR sizeof(SYMR) #define isymNil -1 #define indexNil 0xfffff #define issNil -1 #define issNull 0 /* The following converts a memory resident string to an iss. * This hack is recognized in SbFIss, in sym.c of the debugger. */ #define IssFSb(sb) (0x80000000 | ((unsigned long)(sb))) /* E X T E R N A L S Y M B O L R E C O R D * * Same as the SYMR except it contains file context to determine where * the index is. */ typedef struct ecoff_extr { unsigned jmptbl:1; /* symbol is a jump table entry for shlibs */ unsigned cobol_main:1; /* symbol is a cobol main procedure */ unsigned weakext:1; /* symbol is weak external */ unsigned reserved:13; /* reserved for future use */ int ifd; /* where the iss and index fields point into */ SYMR asym; /* symbol for the external */ } EXTR, *pEXTR; #define extNil ((pEXTR)0) #define cbEXTR sizeof(EXTR) /* A U X I L L A R Y T Y P E I N F O R M A T I O N */ /* * Type Information Record */ typedef struct { unsigned fBitfield : 1; /* set if bit width is specified */ unsigned continued : 1; /* indicates additional TQ info in next AUX */ unsigned bt : 6; /* basic type */ unsigned tq4 : 4; unsigned tq5 : 4; /* ---- 16 bit boundary ---- */ unsigned tq0 : 4; unsigned tq1 : 4; /* 6 type qualifiers - tqPtr, etc. */ unsigned tq2 : 4; unsigned tq3 : 4; } TIR, *pTIR; #define cbTIR sizeof(TIR) #define tiNil ((pTIR)0) #define itqMax 6 /* * Relative symbol record * * If the rfd field is 4095, the index field indexes into the global symbol * table. */ typedef struct { unsigned rfd : 12; /* index into the file indirect table */ unsigned index : 20; /* index int sym/aux/iss tables */ } RNDXR, *pRNDXR; #define cbRNDXR sizeof(RNDXR) #define rndxNil ((pRNDXR)0) /* dense numbers or sometimes called block numbers are stored in this type, * a rfd of 0xffffffff is an index into the global table. */ typedef struct { unsigned long rfd; /* index into the file table */ unsigned long index; /* index int sym/aux/iss tables */ } DNR, *pDNR; #define cbDNR sizeof(DNR) #define dnNil ((pDNR)0) /* * Auxillary information occurs only if needed. * It ALWAYS occurs in this order when present. isymMac used by stProc only TIR type info TIR additional TQ info (if first TIR was not enough) rndx if (bt == btStruct,btUnion,btEnum,btSet,btRange, btTypedef): rsym.index == iaux for btSet or btRange else rsym.index == isym dimLow btRange, btSet dimMac btRange, btSet rndx0 As many as there are tq arrays dimLow0 dimHigh0 ... rndxMax-1 dimLowMax-1 dimHighMax-1 width in bits if (bit field), width in bits. */ #define cAuxMax (6 + (idimMax*3)) /* a union of all possible info in the AUX universe */ typedef union { TIR ti; /* type information record */ RNDXR rndx; /* relative index into symbol table */ long dnLow; /* low dimension */ long dnHigh; /* high dimension */ long isym; /* symbol table index (end of proc) */ long iss; /* index into string space (not used) */ long width; /* width for non-default sized struc fields */ long count; /* count of ranges for variant arm */ } AUXU, *pAUXU; #define cbAUXU sizeof(AUXU) #define auxNil ((pAUXU)0) #define iauxNil -1 /* * Optimization symbols * * Optimization symbols contain some overlap information with the normal * symbol table. In particular, the proc information * is somewhat redundant but necessary to easily find the other information * present. * * All of the offsets are relative to the beginning of the last otProc */ typedef struct { unsigned ot: 8; /* optimization type */ unsigned value: 24; /* address where we are moving it to */ RNDXR rndx; /* points to a symbol or opt entry */ unsigned long offset; /* relative offset this occured */ } OPTR, *pOPTR; #define optNil ((pOPTR) 0) #define cbOPTR sizeof(OPTR) #define ioptNil -1 /* * File Indirect * * When a symbol is referenced across files the following procedure is used: * 1) use the file index to get the File indirect entry. * 2) use the file indirect entry to get the File descriptor. * 3) add the sym index to the base of that file's sym table * */ typedef long RFDT, *pRFDT; #define cbRFDT sizeof(RFDT) #define rfdNil -1 /* * The file indirect table in the mips loader is known as an array of FITs. * This is done to keep the code in the loader readable in the area where * these tables are merged. Note this is only a name change. */ typedef long FIT, *pFIT; #define cbFIT sizeof(FIT) #define ifiNil -1 #define fiNil ((pFIT) 0) #ifdef _LANGUAGE_PASCAL #define ifdNil -1 #define ilnNil -1 #define ipdNil -1 #define ilineNil -1 #define isymNil -1 #define indexNil 16#fffff #define issNil -1 #define issNull 0 #define itqMax 6 #define iauxNil -1 #define ioptNil -1 #define rfdNil -1 #define ifiNil -1 #endif /* _LANGUAGE_PASCAL */ /* Dense numbers * * Rather than use file index, symbol index pairs to represent symbols * and globals, we use dense number so that they can be easily embeded * in intermediate code and the programs that process them can * use direct access tabls instead of hash table (which would be * necesary otherwise because of the sparse name space caused by * file index, symbol index pairs. Dense number are represented * by RNDXRs. */ /* * The following table defines the meaning of each SYM field as * a function of the "st". (scD/B == scData OR scBss) * * Note: the value "isymMac" is used by symbols that have the concept * of enclosing a block of related information. This value is the * isym of the first symbol AFTER the end associated with the primary * symbol. For example if a procedure was at isym==90 and had an * isymMac==155, the associated end would be at isym==154, and the * symbol at 155 would probably (although not necessarily) be the * symbol for the next procedure. This allows rapid skipping over * internal information of various sorts. "stEnd"s ALWAYS have the * isym of the primary symbol that started the block. * ST SC VALUE INDEX -------- ------ -------- ------ stFile scText address isymMac stLabel scText address --- stGlobal scD/B address iaux stStatic scD/B address iaux stParam scAbs offset iaux stLocal scAbs offset iaux stProc scText address iaux (isymMac is first AUX) stStaticProc scText address iaux (isymMac is first AUX) stMember scNil ordinal --- (if member of enum) (mipsread thinks the case below has a bit, not byte, offset.) stMember scNil byte offset iaux (if member of struct/union) stMember scBits bit offset iaux (bit field spec) stBlock scText address isymMac (text block) (the code seems to think that rather than scNil, we see scInfo for the two cases below.) stBlock scNil cb isymMac (struct/union member define) stBlock scNil cMembers isymMac (enum member define) (New types added by SGI to simplify things:) stStruct scInfo cb isymMac (struct type define) stUnion scInfo cb isymMac (union type define) stEnum scInfo cMembers isymMac (enum type define) stEnd scText address isymStart stEnd scNil ------- isymStart (struct/union/enum) stTypedef scNil ------- iaux stRegReloc sc??? value old register number stForward sc??? new address isym to original symbol stConstant scInfo value --- (scalar) stConstant scInfo iss --- (complex, e.g. string) * */ #endif gdb-4.13/include/coff/symconst.h 666 34562 1752 15043 5576564746 15200 0ustar fnfcygnus/* Declarations of constants for internal format of MIPS ECOFF symbols. Originally contributed by MIPS Computer Systems and Third Eye Software. Changes contributed by Cygnus Support are in the public domain. This file is just aggregated with the files that make up the GNU release; it is not considered part of GAS, GDB, or other GNU programs. */ /* * |-----------------------------------------------------------| * | Copyright (c) 1992, 1991, 1990 MIPS Computer Systems, Inc.| * | MIPS Computer Systems, Inc. grants reproduction and use | * | rights to all parties, PROVIDED that this comment is | * | maintained in the copy. | * |-----------------------------------------------------------| */ /* (C) Copyright 1984 by Third Eye Software, Inc. * * Third Eye Software, Inc. grants reproduction and use rights to * all parties, PROVIDED that this comment is maintained in the copy. * * Third Eye makes no claims about the applicability of this * symbol table to a particular use. */ /* glevels for field in FDR */ #define GLEVEL_0 2 #define GLEVEL_1 1 #define GLEVEL_2 0 /* for upward compat reasons. */ #define GLEVEL_3 3 /* magic number fo symheader */ #define magicSym 0x7009 /* The Alpha uses this value instead, for some reason. */ #define magicSym2 0x1992 /* Language codes */ #define langC 0 #define langPascal 1 #define langFortran 2 #define langAssembler 3 /* one Assembley inst might map to many mach */ #define langMachine 4 #define langNil 5 #define langAda 6 #define langPl1 7 #define langCobol 8 #define langStdc 9 /* FIXME: Collides with SGI langCplusplus */ #define langCplusplus 9 /* FIXME: Collides with langStdc */ #define langCplusplusV2 10 /* SGI addition */ #define langMax 11 /* maximun allowed 32 -- 5 bits */ /* The following are value definitions for the fields in the SYMR */ /* * Storage Classes */ #define scNil 0 #define scText 1 /* text symbol */ #define scData 2 /* initialized data symbol */ #define scBss 3 /* un-initialized data symbol */ #define scRegister 4 /* value of symbol is register number */ #define scAbs 5 /* value of symbol is absolute */ #define scUndefined 6 /* who knows? */ #define scCdbLocal 7 /* variable's value is IN se->va.?? */ #define scBits 8 /* this is a bit field */ #define scCdbSystem 9 /* variable's value is IN CDB's address space */ #define scDbx 9 /* overlap dbx internal use */ #define scRegImage 10 /* register value saved on stack */ #define scInfo 11 /* symbol contains debugger information */ #define scUserStruct 12 /* address in struct user for current process */ #define scSData 13 /* load time only small data */ #define scSBss 14 /* load time only small common */ #define scRData 15 /* load time only read only data */ #define scVar 16 /* Var parameter (fortran,pascal) */ #define scCommon 17 /* common variable */ #define scSCommon 18 /* small common */ #define scVarRegister 19 /* Var parameter in a register */ #define scVariant 20 /* Variant record */ #define scSUndefined 21 /* small undefined(external) data */ #define scInit 22 /* .init section symbol */ #define scBasedVar 23 /* Fortran or PL/1 ptr based var */ #define scXData 24 /* exception handling data */ #define scPData 25 /* Procedure section */ #define scFini 26 /* .fini section */ #define scMax 32 /* * Symbol Types */ #define stNil 0 /* Nuthin' special */ #define stGlobal 1 /* external symbol */ #define stStatic 2 /* static */ #define stParam 3 /* procedure argument */ #define stLocal 4 /* local variable */ #define stLabel 5 /* label */ #define stProc 6 /* " " Procedure */ #define stBlock 7 /* beginnning of block */ #define stEnd 8 /* end (of anything) */ #define stMember 9 /* member (of anything - struct/union/enum */ #define stTypedef 10 /* type definition */ #define stFile 11 /* file name */ #define stRegReloc 12 /* register relocation */ #define stForward 13 /* forwarding address */ #define stStaticProc 14 /* load time only static procs */ #define stConstant 15 /* const */ #define stStaParam 16 /* Fortran static parameters */ /* These new symbol types have been recently added to SGI machines. */ #define stStruct 26 /* Beginning of block defining a struct type */ #define stUnion 27 /* Beginning of block defining a union type */ #define stEnum 28 /* Beginning of block defining an enum type */ #define stIndirect 34 /* Indirect type specification */ /* Pseudo-symbols - internal to debugger */ #define stStr 60 /* string */ #define stNumber 61 /* pure number (ie. 4 NOR 2+2) */ #define stExpr 62 /* 2+2 vs. 4 */ #define stType 63 /* post-coersion SER */ #define stMax 64 /* definitions for fields in TIR */ /* type qualifiers for ti.tq0 -> ti.(itqMax-1) */ #define tqNil 0 /* bt is what you see */ #define tqPtr 1 /* pointer */ #define tqProc 2 /* procedure */ #define tqArray 3 /* duh */ #define tqFar 4 /* longer addressing - 8086/8 land */ #define tqVol 5 /* volatile */ #define tqConst 6 /* const */ #define tqMax 8 /* basic types as seen in ti.bt */ #define btNil 0 /* undefined (also, enum members) */ #define btAdr 1 /* address - integer same size as pointer */ #define btChar 2 /* character */ #define btUChar 3 /* unsigned character */ #define btShort 4 /* short */ #define btUShort 5 /* unsigned short */ #define btInt 6 /* int */ #define btUInt 7 /* unsigned int */ #define btLong 8 /* long */ #define btULong 9 /* unsigned long */ #define btFloat 10 /* float (real) */ #define btDouble 11 /* Double (real) */ #define btStruct 12 /* Structure (Record) */ #define btUnion 13 /* Union (variant) */ #define btEnum 14 /* Enumerated */ #define btTypedef 15 /* defined via a typedef, isymRef points */ #define btRange 16 /* subrange of int */ #define btSet 17 /* pascal sets */ #define btComplex 18 /* fortran complex */ #define btDComplex 19 /* fortran double complex */ #define btIndirect 20 /* forward or unnamed typedef */ #define btFixedDec 21 /* Fixed Decimal */ #define btFloatDec 22 /* Float Decimal */ #define btString 23 /* Varying Length Character String */ #define btBit 24 /* Aligned Bit String */ #define btPicture 25 /* Picture */ #define btVoid 26 /* void */ #define btLongLong 27 /* long long */ #define btULongLong 28 /* unsigned long long */ #define btMax 64 #if (_MFG == _MIPS) /* optimization type codes */ #define otNil 0 #define otReg 1 /* move var to reg */ #define otBlock 2 /* begin basic block */ #define otProc 3 /* procedure */ #define otInline 4 /* inline procedure */ #define otEnd 5 /* whatever you started */ #define otMax 6 /* KEEP UP TO DATE */ #endif /* (_MFG == _MIPS) */ gdb-4.13/include/coff/we32k.h 666 34562 1752 12574 5361077452 14243 0ustar fnfcygnus/*** coff information for we32k */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; /* Bits for f_flags: * F_RELFLG relocation info stripped from file * F_EXEC file is executable (no unresolved external references) * F_LNNO line numbers stripped from file * F_LSYMS local symbols stripped from file * F_AR32WR file has byte ordering of an AR32WR machine (e.g. vax) */ #define F_RELFLG (0x0001) #define F_EXEC (0x0002) #define F_LNNO (0x0004) #define F_LSYMS (0x0008) #define F_BM32B (0020000) #define F_BM32MAU (0040000) #define WE32KMAGIC 0x170 /* we32k sans transfer vector */ #define FBOMAGIC 0x170 /* we32k sans transfer vector */ #define MTVMAGIC 0x171 /* we32k with transfer vector */ #define RBOMAGIC 0x172 /* reserved */ #define WE32KBADMAG(x) (((x).f_magic != WE32KMAGIC) \ && ((x).f_magic != FBOMAGIC) \ && ((x).f_magic != RBOMAGIC) \ && ((x).f_magic != MTVMAGIC)) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define _TV ".tv" #define _INIT ".init" #define _FINI ".fini" /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[2]; /* line number */ }; #define LINENO struct external_lineno #define LINESZ sizeof(LINENO) /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define N_BTMASK (0xf) #define N_TMASK (0x30) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define SYMENT struct external_syment #define SYMESZ 18 #define AUXENT union external_auxent #define AUXESZ 18 # define _ETEXT "etext" /********************** RELOCATION DIRECTIVES **********************/ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_type[2]; }; #define RELOC struct external_reloc #define RELSZ sizeof(RELOC) #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/coff/z8k.h 666 34562 1752 12131 5300515020 13766 0ustar fnfcygnus/*** coff information for Zilog Z800N */ /********************** FILE HEADER **********************/ struct external_filehdr { char f_magic[2]; /* magic number */ char f_nscns[2]; /* number of sections */ char f_timdat[4]; /* time & date stamp */ char f_symptr[4]; /* file pointer to symtab */ char f_nsyms[4]; /* number of symtab entries */ char f_opthdr[2]; /* sizeof(optional hdr) */ char f_flags[2]; /* flags */ }; /* Type of cpu is stored in flags */ #define F_Z8001 0x1000 #define F_Z8002 0x2000 #define F_MACHMASK 0xf000 #define Z8KMAGIC 0x8000 #define Z8KBADMAG(x) (((x).f_magic!=Z8KMAGIC)) #define FILHDR struct external_filehdr #define FILHSZ sizeof(FILHDR) /********************** AOUT "OPTIONAL HEADER" **********************/ typedef struct { char magic[2]; /* type of file */ char vstamp[2]; /* version stamp */ char tsize[4]; /* text size in bytes, padded to FW bdry*/ char dsize[4]; /* initialized data " " */ char bsize[4]; /* uninitialized data " " */ char entry[4]; /* entry pt. */ char text_start[4]; /* base of text used for this file */ char data_start[4]; /* base of data used for this file */ } AOUTHDR; #define AOUTHDRSZ (sizeof(AOUTHDR)) #define AOUTSZ (sizeof(AOUTHDR)) /********************** SECTION HEADER **********************/ struct external_scnhdr { char s_name[8]; /* section name */ char s_paddr[4]; /* physical address, aliased s_nlib */ char s_vaddr[4]; /* virtual address */ char s_size[4]; /* section size */ char s_scnptr[4]; /* file ptr to raw data for section */ char s_relptr[4]; /* file ptr to relocation */ char s_lnnoptr[4]; /* file ptr to line numbers */ char s_nreloc[2]; /* number of relocation entries */ char s_nlnno[2]; /* number of line number entries*/ char s_flags[4]; /* flags */ }; /* * names of "special" sections */ #define _TEXT ".text" #define _DATA ".data" #define _BSS ".bss" #define SCNHDR struct external_scnhdr #define SCNHSZ sizeof(SCNHDR) /********************** LINE NUMBERS **********************/ /* 1 line number entry for every "breakpointable" source line in a section. * Line numbers are grouped on a per function basis; first entry in a function * grouping will have l_lnno = 0 and in place of physical address will be the * symbol table index of the function name. */ struct external_lineno { union { char l_symndx[4]; /* function name symbol index, iff l_lnno == 0*/ char l_paddr[4]; /* (physical) address of line number */ } l_addr; char l_lnno[4]; /* line number */ }; #define GET_LINENO_LNNO(abfd, ext) bfd_h_get_32(abfd, (bfd_byte *) (ext->l_lnno)); #define PUT_LINENO_LNNO(abfd,val, ext) bfd_h_put_32(abfd,val, (bfd_byte *) (ext->l_lnno)); #define LINENO struct external_lineno #define LINESZ sizeof(LINENO) /********************** SYMBOLS **********************/ #define E_SYMNMLEN 8 /* # characters in a symbol name */ #define E_FILNMLEN 14 /* # characters in a file name */ #define E_DIMNUM 4 /* # array dimensions in auxiliary entry */ struct external_syment { union { char e_name[E_SYMNMLEN]; struct { char e_zeroes[4]; char e_offset[4]; } e; } e; char e_value[4]; char e_scnum[2]; char e_type[2]; char e_sclass[1]; char e_numaux[1]; }; #define N_BTMASK (017) #define N_TMASK (060) #define N_BTSHFT (4) #define N_TSHIFT (2) union external_auxent { struct { char x_tagndx[4]; /* str, un, or enum tag indx */ union { struct { char x_lnno[2]; /* declaration line number */ char x_size[2]; /* str/union/array size */ } x_lnsz; char x_fsize[4]; /* size of function */ } x_misc; union { struct { /* if ISFCN, tag, or .bb */ char x_lnnoptr[4]; /* ptr to fcn line # */ char x_endndx[4]; /* entry ndx past block end */ } x_fcn; struct { /* if ISARY, up to 4 dimen. */ char x_dimen[E_DIMNUM][2]; } x_ary; } x_fcnary; char x_tvndx[2]; /* tv index */ } x_sym; union { char x_fname[E_FILNMLEN]; struct { char x_zeroes[4]; char x_offset[4]; } x_n; } x_file; struct { char x_scnlen[4]; /* section length */ char x_nreloc[2]; /* # relocation entries */ char x_nlinno[2]; /* # line numbers */ } x_scn; struct { char x_tvfill[4]; /* tv fill value */ char x_tvlen[2]; /* length of .tv */ char x_tvran[2][2]; /* tv range */ } x_tv; /* info about .tv section (in auxent of symbol .tv)) */ }; #define SYMENT struct external_syment #define SYMESZ 18 #define AUXENT union external_auxent #define AUXESZ 18 /********************** RELOCATION DIRECTIVES **********************/ /* The external reloc has an offset field, because some of the reloc types on the z8k don't have room in the instruction for the entire offset - eg with segments */ struct external_reloc { char r_vaddr[4]; char r_symndx[4]; char r_offset[4]; char r_type[2]; char r_stuff[2]; }; #define RELOC struct external_reloc #define RELSZ 16 #define DEFAULT_DATA_SECTION_ALIGNMENT 4 #define DEFAULT_BSS_SECTION_ALIGNMENT 4 #define DEFAULT_TEXT_SECTION_ALIGNMENT 4 /* For new sections we havn't heard of before */ #define DEFAULT_SECTION_ALIGNMENT 4 gdb-4.13/include/elf/ 777 34562 1752 0 5623251111 12642 5ustar fnfcygnusgdb-4.13/include/elf/ChangeLog 666 34562 1752 10115 5570460125 14522 0ustar fnfcygnusTue May 24 16:11:50 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (Elf32_External_gptab): Define. Mon May 16 13:22:04 1994 Jeff Law (law@snake.cs.utah.edu) * common.h (EM_HPPA): Delete. (EM_PARISC): Add. * hppa.h: New file. Mon May 9 13:27:03 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * common.h (SHN_LORESERVE): Rename from SHN_LORESERV. (ELF32_R_TYPE, ELF32_R_INFO): Don't rely on size of unsigned char. (ELF64_R_TYPE): Don't rely on size of unsigned long. Mon Apr 25 15:53:09 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * internal.h (Elf_Internal_Shdr): Use PTR, not void *. Fri Mar 11 00:34:59 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mips.h (SHN_MIPS_TEXT, SHN_MIPS_DATA): Define. Sat Mar 5 14:08:54 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * internal.h: Remove Elf32_*, Elf64_* typedefs. These names cause conflicts with system headers, e.g. link.h in gdb/solib.c. Combine 32- and 64-bit versions of *_Internal_Dyn. * common.h: Replace uses of Elf64_Word, Elf64_Xword typedefs by their expansion. * mips.h: Replace uses of Elf32_Word, Elf32_Sword, Elf32_Addr typedefs by their expansion. Add DT_MIPS_RLD_MAP definition. Fri Feb 18 10:39:54 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * common.h (EM_CYGNUS_POWERPC): Define. This may be temporary, depending upon how quickly I can find a real PowerPC ABI. Mon Feb 7 08:27:13 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * internal.h: Change HOST_64_BIT to BFD_HOST_64_BIT. Wed Feb 2 14:12:18 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * common.h: Add comments regarding value of EM_HPPA and how to pick an unofficial value. Wed Nov 17 17:14:26 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (SHT_MIPS_OPTIONS): Define. Mon Nov 8 17:57:00 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h: Added some more MIPS ABI macro definitions. Wed Nov 3 22:07:17 1993 Ken Raeburn (raeburn@rtl.cygnus.com) * common.h (EM_MIPS_RS4_BE): New macro. Tue Oct 12 07:28:18 1993 Ian Lance Taylor (ian@cygnus.com) * mips.h: New file. MIPS ABI specific information. Mon Jun 21 13:13:43 1993 Ken Raeburn (raeburn@poseidon.cygnus.com) * internal.h: Combined 32- and 64-bit versions of all structures except *_Internal_Dyn. This will simply the assembler interface, and some bfd code. Tue May 25 02:00:16 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * external.h, internal.h, common.h: Added 64-bit versions of some structures and macros. Renamed old versions to put "32" in the name. Some are unchanged. Thu Apr 29 12:12:20 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * common.h (EM_HPPA, NT_VERSION, STN_UNDEF, DT_*): New macros. * external.h (Elf_External_Dyn): New type. * internal.h (Elf_Intenral_Shdr): New field `size'. (Elf_Internal_Dyn): New type. Tue Apr 20 16:03:45 1993 Fred Fish (fnf@cygnus.com) * dwarf.h (LANG_CHILL): Change value to one randomly picked in the user defined range, to reduce probability of collisions. Sun Nov 15 09:34:02 1992 Fred Fish (fnf@cygnus.com) * dwarf.h (AT_src_coords): Whitespace change only. * dwarf.h (AT_body_begin, AT_body_end, LANG_MODULA2): Add from latest gcc. * dwarf.h (LANG_CHILL): Add as GNU extension. Sat Aug 1 13:46:53 1992 Fred Fish (fnf@cygnus.com) * dwarf.h: Replace with current version from gcc distribution. Fri Jun 19 19:05:09 1992 John Gilmore (gnu at cygnus.com) * internal.h: Add real struct tags to all the Type_Defs, so they can be used in prototypes where the Type_Defs are not known. Fri Apr 3 20:58:58 1992 Mark Eichin (eichin at cygnus.com) * common.h: added ELF_R_{SYM,TYPE,INFO} for handling relocation info added EM_MIPS, and corrected value of EM_860 based on System V ABI manual. * external.h: added Elf_External_{Rel,Rela}. * internal.h: added Elf_Internal_{Rel,Rela}. added rawdata to Elf_Internal_Shdr. Sat Nov 30 20:43:59 1991 Steve Chamberlain (sac at rtl.cygnus.com) * common.h, dwarf.h, external.h, internal.h, ChangeLog; moved from ../elf- Local Variables: version-control: never End: gdb-4.13/include/elf/common.h 666 34562 1752 20655 5600171335 14417 0ustar fnfcygnus/* ELF support for BFD. Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support, from information published in "UNIX System V Release 4, Programmers Guide: ANSI C and Programming Support Tools". This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is part of ELF support for BFD, and contains the portions that are common to both the internal and external representations. For example, ELFMAG0 is the byte 0x7F in both the internal (in-memory) and external (in-file) representations. */ /* Fields in e_ident[] */ #define EI_MAG0 0 /* File identification byte 0 index */ #define ELFMAG0 0x7F /* Magic number byte 0 */ #define EI_MAG1 1 /* File identification byte 1 index */ #define ELFMAG1 'E' /* Magic number byte 1 */ #define EI_MAG2 2 /* File identification byte 2 index */ #define ELFMAG2 'L' /* Magic number byte 2 */ #define EI_MAG3 3 /* File identification byte 3 index */ #define ELFMAG3 'F' /* Magic number byte 3 */ #define EI_CLASS 4 /* File class */ #define ELFCLASSNONE 0 /* Invalid class */ #define ELFCLASS32 1 /* 32-bit objects */ #define ELFCLASS64 2 /* 64-bit objects */ #define EI_DATA 5 /* Data encoding */ #define ELFDATANONE 0 /* Invalid data encoding */ #define ELFDATA2LSB 1 /* 2's complement, little endian */ #define ELFDATA2MSB 2 /* 2's complement, big endian */ #define EI_VERSION 6 /* File version */ #define EI_PAD 7 /* Start of padding bytes */ /* Values for e_type, which identifies the object file type */ #define ET_NONE 0 /* No file type */ #define ET_REL 1 /* Relocatable file */ #define ET_EXEC 2 /* Executable file */ #define ET_DYN 3 /* Shared object file */ #define ET_CORE 4 /* Core file */ #define ET_LOPROC 0xFF00 /* Processor-specific */ #define ET_HIPROC 0xFFFF /* Processor-specific */ /* Values for e_machine, which identifies the architecture */ #define EM_NONE 0 /* No machine */ #define EM_M32 1 /* AT&T WE 32100 */ #define EM_SPARC 2 /* SUN SPARC */ #define EM_386 3 /* Intel 80386 */ #define EM_68K 4 /* Motorola m68k family */ #define EM_88K 5 /* Motorola m88k family */ #define EM_860 7 /* Intel 80860 */ #define EM_MIPS 8 /* MIPS R3000 (officially, big-endian only) */ #define EM_MIPS_RS4_BE 10 /* MIPS R4000 big-endian */ #define EM_SPARC64 11 /* SPARC v9 (not official) 64-bit */ #define EM_PARISC 15 /* HPPA */ /* If it is necessary to assign new unofficial EM_* values, please pick large random numbers (0x8523, 0xa7f2, etc.) to minimize the chances of collision with official or non-GNU unofficial values. */ /* Cygnus PowerPC ELF backend. Written in the absence of an ABI. */ #define EM_CYGNUS_POWERPC 0x9025 /* Values for e_version */ #define EV_NONE 0 /* Invalid ELF version */ #define EV_CURRENT 1 /* Current version */ /* Values for program header, p_type field */ #define PT_NULL 0 /* Program header table entry unused */ #define PT_LOAD 1 /* Loadable program segment */ #define PT_DYNAMIC 2 /* Dynamic linking information */ #define PT_INTERP 3 /* Program interpreter */ #define PT_NOTE 4 /* Auxiliary information */ #define PT_SHLIB 5 /* Reserved, unspecified semantics */ #define PT_PHDR 6 /* Entry for header table itself */ #define PT_LOPROC 0x70000000 /* Processor-specific */ #define PT_HIPROC 0x7FFFFFFF /* Processor-specific */ /* Program segment permissions, in program header p_flags field */ #define PF_X (1 << 0) /* Segment is executable */ #define PF_W (1 << 1) /* Segment is writable */ #define PF_R (1 << 2) /* Segment is readable */ #define PF_MASKPROC 0xF0000000 /* Processor-specific reserved bits */ /* Values for section header, sh_type field */ #define SHT_NULL 0 /* Section header table entry unused */ #define SHT_PROGBITS 1 /* Program specific (private) data */ #define SHT_SYMTAB 2 /* Link editing symbol table */ #define SHT_STRTAB 3 /* A string table */ #define SHT_RELA 4 /* Relocation entries with addends */ #define SHT_HASH 5 /* A symbol hash table */ #define SHT_DYNAMIC 6 /* Information for dynamic linking */ #define SHT_NOTE 7 /* Information that marks file */ #define SHT_NOBITS 8 /* Section occupies no space in file */ #define SHT_REL 9 /* Relocation entries, no addends */ #define SHT_SHLIB 10 /* Reserved, unspecified semantics */ #define SHT_DYNSYM 11 /* Dynamic linking symbol table */ #define SHT_LOPROC 0x70000000 /* Processor-specific semantics, lo */ #define SHT_HIPROC 0x7FFFFFFF /* Processor-specific semantics, hi */ #define SHT_LOUSER 0x80000000 /* Application-specific semantics */ #define SHT_HIUSER 0x8FFFFFFF /* Application-specific semantics */ /* Values for section header, sh_flags field */ #define SHF_WRITE (1 << 0) /* Writable data during execution */ #define SHF_ALLOC (1 << 1) /* Occupies memory during execution */ #define SHF_EXECINSTR (1 << 2) /* Executable machine instructions */ #define SHF_MASKPROC 0xF0000000 /* Processor-specific semantics */ /* Values of note segment descriptor types for core files. */ #define NT_PRSTATUS 1 /* Contains copy of prstatus struct */ #define NT_FPREGSET 2 /* Contains copy of fpregset struct */ #define NT_PRPSINFO 3 /* Contains copy of prpsinfo struct */ /* Values of note segment descriptor types for object files. */ /* (Only for hppa right now. Should this be moved elsewhere?) */ #define NT_VERSION 1 /* Contains a version string. */ /* These three macros disassemble and assemble a symbol table st_info field, which contains the symbol binding and symbol type. The STB_ and STT_ defines identify the binding and type. */ #define ELF_ST_BIND(val) (((unsigned int)(val)) >> 4) #define ELF_ST_TYPE(val) ((val) & 0xF) #define ELF_ST_INFO(bind,type) (((bind) << 4) + ((type) & 0xF)) #define STN_UNDEF 0 /* undefined symbol index */ #define STB_LOCAL 0 /* Symbol not visible outside obj */ #define STB_GLOBAL 1 /* Symbol visible outside obj */ #define STB_WEAK 2 /* Like globals, lower precedence */ #define STB_LOPROC 13 /* Application-specific semantics */ #define STB_HIPROC 15 /* Application-specific semantics */ #define STT_NOTYPE 0 /* Symbol type is unspecified */ #define STT_OBJECT 1 /* Symbol is a data object */ #define STT_FUNC 2 /* Symbol is a code object */ #define STT_SECTION 3 /* Symbol associated with a section */ #define STT_FILE 4 /* Symbol gives a file name */ #define STT_LOPROC 13 /* Application-specific semantics */ #define STT_HIPROC 15 /* Application-specific semantics */ /* Special section indices, which may show up in st_shndx fields, among other places. */ #define SHN_UNDEF 0 /* Undefined section reference */ #define SHN_LORESERVE 0xFF00 /* Begin range of reserved indices */ #define SHN_LOPROC 0xFF00 /* Begin range of appl-specific */ #define SHN_HIPROC 0xFF1F /* End range of appl-specific */ #define SHN_ABS 0xFFF1 /* Associated symbol is absolute */ #define SHN_COMMON 0xFFF2 /* Associated symbol is in common */ #define SHN_HIRESERVE 0xFFFF /* End range of reserved indices */ /* relocation info handling macros */ #define ELF32_R_SYM(i) ((i) >> 8) #define ELF32_R_TYPE(i) ((i) & 0xff) #define ELF32_R_INFO(s,t) (((s) << 8) + ((t) & 0xff)) #define ELF64_R_SYM(i) ((i) >> 32) #define ELF64_R_TYPE(i) ((i) & 0xffffffff) #define ELF64_R_INFO(s,t) (((bfd_vma) (s) << 32) + (bfd_vma) (t)) /* Dynamic section tags */ #define DT_NULL 0 #define DT_NEEDED 1 #define DT_PLTRELSZ 2 #define DT_PLTGOT 3 #define DT_HASH 4 #define DT_STRTAB 5 #define DT_SYMTAB 6 #define DT_RELA 7 #define DT_RELASZ 8 #define DT_RELAENT 9 #define DT_STRSZ 10 #define DT_SYMENT 11 #define DT_INIT 12 #define DT_FINI 13 #define DT_SONAME 14 #define DT_RPATH 15 #define DT_SYMBOLIC 16 #define DT_REL 17 #define DT_RELSZ 18 #define DT_RELENT 19 #define DT_PLTREL 20 #define DT_DEBUG 21 #define DT_TEXTREL 22 #define DT_JMPREL 23 #define DT_LOPROC 0x70000000 #define DT_HIPROC 0x7fffffff gdb-4.13/include/elf/dwarf.h 666 34562 1752 23655 5365100715 14237 0ustar fnfcygnus/* Declarations and definitions of codes relating to the DWARF symbolic debugging information format. Written by Ron Guilmette (rfg@ncd.com) Copyright (C) 1992 Free Software Foundation, Inc. This file is part of GNU CC. GNU CC 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 2, or (at your option) any later version. GNU CC 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 GNU CC; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is derived from the DWARF specification (a public document) Revision 1.0.1 (April 8, 1992) developed by the UNIX International Programming Languages Special Interest Group (UI/PLSIG) and distributed by UNIX International. Copies of this specification are available from UNIX International, 20 Waterview Boulevard, Parsippany, NJ, 07054. */ /* Tag names and codes. */ enum dwarf_tag { TAG_padding = 0x0000, TAG_array_type = 0x0001, TAG_class_type = 0x0002, TAG_entry_point = 0x0003, TAG_enumeration_type = 0x0004, TAG_formal_parameter = 0x0005, TAG_global_subroutine = 0x0006, TAG_global_variable = 0x0007, /* 0x0008 -- reserved */ /* 0x0009 -- reserved */ TAG_label = 0x000a, TAG_lexical_block = 0x000b, TAG_local_variable = 0x000c, TAG_member = 0x000d, /* 0x000e -- reserved */ TAG_pointer_type = 0x000f, TAG_reference_type = 0x0010, TAG_compile_unit = 0x0011, TAG_string_type = 0x0012, TAG_structure_type = 0x0013, TAG_subroutine = 0x0014, TAG_subroutine_type = 0x0015, TAG_typedef = 0x0016, TAG_union_type = 0x0017, TAG_unspecified_parameters = 0x0018, TAG_variant = 0x0019, TAG_common_block = 0x001a, TAG_common_inclusion = 0x001b, TAG_inheritance = 0x001c, TAG_inlined_subroutine = 0x001d, TAG_module = 0x001e, TAG_ptr_to_member_type = 0x001f, TAG_set_type = 0x0020, TAG_subrange_type = 0x0021, TAG_with_stmt = 0x0022, /* GNU extensions */ TAG_format_label = 0x8000, /* for FORTRAN 77 and Fortran 90 */ TAG_namelist = 0x8001, /* For Fortran 90 */ TAG_function_template = 0x8002, /* for C++ */ TAG_class_template = 0x8003 /* for C++ */ }; #define TAG_lo_user 0x8000 /* implementation-defined range start */ #define TAG_hi_user 0xffff /* implementation-defined range end */ #define TAG_source_file TAG_compile_unit /* for backward compatibility */ /* Form names and codes. */ enum dwarf_form { FORM_ADDR = 0x1, FORM_REF = 0x2, FORM_BLOCK2 = 0x3, FORM_BLOCK4 = 0x4, FORM_DATA2 = 0x5, FORM_DATA4 = 0x6, FORM_DATA8 = 0x7, FORM_STRING = 0x8 }; /* Attribute names and codes. */ enum dwarf_attribute { AT_sibling = (0x0010|FORM_REF), AT_location = (0x0020|FORM_BLOCK2), AT_name = (0x0030|FORM_STRING), AT_fund_type = (0x0050|FORM_DATA2), AT_mod_fund_type = (0x0060|FORM_BLOCK2), AT_user_def_type = (0x0070|FORM_REF), AT_mod_u_d_type = (0x0080|FORM_BLOCK2), AT_ordering = (0x0090|FORM_DATA2), AT_subscr_data = (0x00a0|FORM_BLOCK2), AT_byte_size = (0x00b0|FORM_DATA4), AT_bit_offset = (0x00c0|FORM_DATA2), AT_bit_size = (0x00d0|FORM_DATA4), /* (0x00e0|FORM_xxxx) -- reserved */ AT_element_list = (0x00f0|FORM_BLOCK4), AT_stmt_list = (0x0100|FORM_DATA4), AT_low_pc = (0x0110|FORM_ADDR), AT_high_pc = (0x0120|FORM_ADDR), AT_language = (0x0130|FORM_DATA4), AT_member = (0x0140|FORM_REF), AT_discr = (0x0150|FORM_REF), AT_discr_value = (0x0160|FORM_BLOCK2), /* (0x0170|FORM_xxxx) -- reserved */ /* (0x0180|FORM_xxxx) -- reserved */ AT_string_length = (0x0190|FORM_BLOCK2), AT_common_reference = (0x01a0|FORM_REF), AT_comp_dir = (0x01b0|FORM_STRING), AT_const_value_string = (0x01c0|FORM_STRING), AT_const_value_data2 = (0x01c0|FORM_DATA2), AT_const_value_data4 = (0x01c0|FORM_DATA4), AT_const_value_data8 = (0x01c0|FORM_DATA8), AT_const_value_block2 = (0x01c0|FORM_BLOCK2), AT_const_value_block4 = (0x01c0|FORM_BLOCK4), AT_containing_type = (0x01d0|FORM_REF), AT_default_value_addr = (0x01e0|FORM_ADDR), AT_default_value_data2 = (0x01e0|FORM_DATA2), AT_default_value_data4 = (0x01e0|FORM_DATA4), AT_default_value_data8 = (0x01e0|FORM_DATA8), AT_default_value_string = (0x01e0|FORM_STRING), AT_friends = (0x01f0|FORM_BLOCK2), AT_inline = (0x0200|FORM_STRING), AT_is_optional = (0x0210|FORM_STRING), AT_lower_bound_ref = (0x0220|FORM_REF), AT_lower_bound_data2 = (0x0220|FORM_DATA2), AT_lower_bound_data4 = (0x0220|FORM_DATA4), AT_lower_bound_data8 = (0x0220|FORM_DATA8), AT_private = (0x0240|FORM_STRING), AT_producer = (0x0250|FORM_STRING), AT_program = (0x0230|FORM_STRING), AT_protected = (0x0260|FORM_STRING), AT_prototyped = (0x0270|FORM_STRING), AT_public = (0x0280|FORM_STRING), AT_pure_virtual = (0x0290|FORM_STRING), AT_return_addr = (0x02a0|FORM_BLOCK2), AT_abstract_origin = (0x02b0|FORM_REF), AT_start_scope = (0x02c0|FORM_DATA4), AT_stride_size = (0x02e0|FORM_DATA4), AT_upper_bound_ref = (0x02f0|FORM_REF), AT_upper_bound_data2 = (0x02f0|FORM_DATA2), AT_upper_bound_data4 = (0x02f0|FORM_DATA4), AT_upper_bound_data8 = (0x02f0|FORM_DATA8), AT_virtual = (0x0300|FORM_STRING), /* GNU extensions. */ AT_sf_names = (0x8000|FORM_DATA4), AT_src_info = (0x8010|FORM_DATA4), AT_mac_info = (0x8020|FORM_DATA4), AT_src_coords = (0x8030|FORM_DATA4), AT_body_begin = (0x8040|FORM_ADDR), AT_body_end = (0x8050|FORM_ADDR) }; #define AT_lo_user 0x8000 /* implementation-defined range start */ #define AT_hi_user 0xffff /* implementation-defined range end */ /* Location atom names and codes. */ enum dwarf_location_atom { OP_REG = 0x01, OP_BASEREG = 0x02, OP_ADDR = 0x03, OP_CONST = 0x04, OP_DEREF2 = 0x05, OP_DEREF4 = 0x06, OP_ADD = 0x07 }; #define OP_LO_USER 0x80 /* implementation-defined range start */ #define OP_HI_USER 0xff /* implementation-defined range end */ /* Fundamental type names and codes. */ enum dwarf_fundamental_type { FT_char = 0x0001, FT_signed_char = 0x0002, FT_unsigned_char = 0x0003, FT_short = 0x0004, FT_signed_short = 0x0005, FT_unsigned_short = 0x0006, FT_integer = 0x0007, FT_signed_integer = 0x0008, FT_unsigned_integer = 0x0009, FT_long = 0x000a, FT_signed_long = 0x000b, FT_unsigned_long = 0x000c, FT_pointer = 0x000d, /* an alias for (void *) */ FT_float = 0x000e, FT_dbl_prec_float = 0x000f, FT_ext_prec_float = 0x0010, /* breaks "classic" svr4 SDB */ FT_complex = 0x0011, /* breaks "classic" svr4 SDB */ FT_dbl_prec_complex = 0x0012, /* breaks "classic" svr4 SDB */ /* 0x0013 -- reserved */ FT_void = 0x0014, FT_boolean = 0x0015, /* breaks "classic" svr4 SDB */ FT_ext_prec_complex = 0x0016, /* breaks "classic" svr4 SDB */ FT_label = 0x0017, /* GNU extensions The low order byte must indicate the size (in bytes) for the type. All of these types will probably break "classic" svr4 SDB */ FT_long_long = 0x8008, FT_signed_long_long = 0x8108, FT_unsigned_long_long = 0x8208, FT_int8 = 0x9001, FT_signed_int8 = 0x9101, FT_unsigned_int8 = 0x9201, FT_int16 = 0x9302, FT_signed_int16 = 0x9402, FT_unsigned_int16 = 0x9502, FT_int32 = 0x9604, FT_signed_int32 = 0x9704, FT_unsigned_int32 = 0x9804, FT_int64 = 0x9908, FT_signed_int64 = 0x9a08, FT_unsigned_int64 = 0x9b08, FT_real32 = 0xa004, FT_real64 = 0xa108, FT_real96 = 0xa20c, FT_real128 = 0xa310 }; #define FT_lo_user 0x8000 /* implementation-defined range start */ #define FT_hi_user 0xffff /* implementation defined range end */ /* Type modifier names and codes. */ enum dwarf_type_modifier { MOD_pointer_to = 0x01, MOD_reference_to = 0x02, MOD_const = 0x03, MOD_volatile = 0x04 }; #define MOD_lo_user 0x80 /* implementation-defined range start */ #define MOD_hi_user 0xff /* implementation-defined range end */ /* Array ordering names and codes. */ enum dwarf_array_dim_ordering { ORD_row_major = 0, ORD_col_major = 1 }; /* Array subscript format names and codes. */ enum dwarf_subscr_data_formats { FMT_FT_C_C = 0x0, FMT_FT_C_X = 0x1, FMT_FT_X_C = 0x2, FMT_FT_X_X = 0x3, FMT_UT_C_C = 0x4, FMT_UT_C_X = 0x5, FMT_UT_X_C = 0x6, FMT_UT_X_X = 0x7, FMT_ET = 0x8 }; /* Derived from above for ease of use. */ #define FMT_CODE(_FUNDAMENTAL_TYPE_P, _UB_CONST_P, _LB_CONST_P) \ (((_FUNDAMENTAL_TYPE_P) ? 0 : 4) \ | ((_UB_CONST_P) ? 0 : 2) \ | ((_LB_CONST_P) ? 0 : 1)) /* Source language names and codes. */ enum dwarf_source_language { LANG_C89 = 0x00000001, LANG_C = 0x00000002, LANG_ADA83 = 0x00000003, LANG_C_PLUS_PLUS = 0x00000004, LANG_COBOL74 = 0x00000005, LANG_COBOL85 = 0x00000006, LANG_FORTRAN77 = 0x00000007, LANG_FORTRAN90 = 0x00000008, LANG_PASCAL83 = 0x00000009, LANG_MODULA2 = 0x0000000a, /* GNU extensions */ LANG_CHILL = 0x00009af3 /* random value for GNU Chill */ }; #define LANG_lo_user 0x00008000 /* implementation-defined range start */ #define LANG_hi_user 0x0000ffff /* implementation-defined range end */ /* Names and codes for GNU "macinfo" extension. */ enum dwarf_macinfo_record_type { MACINFO_start = 's', MACINFO_resume = 'r', MACINFO_define = 'd', MACINFO_undef = 'u' }; gdb-4.13/include/elf/external.h 666 34562 1752 17750 5411537773 14767 0ustar fnfcygnus/* ELF support for BFD. Copyright (C) 1991, 1992 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support, from information published in "UNIX System V Release 4, Programmers Guide: ANSI C and Programming Support Tools". This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is part of ELF support for BFD, and contains the portions that describe how ELF is represented externally by the BFD library. I.E. it describes the in-file representation of ELF. It requires the elf-common.h file which contains the portions that are common to both the internal and external representations. */ /* The 64-bit stuff is kind of random. Perhaps someone will publish a spec someday. */ /* ELF Header (32-bit implementations) */ typedef struct { unsigned char e_ident[16]; /* ELF "magic number" */ unsigned char e_type[2]; /* Identifies object file type */ unsigned char e_machine[2]; /* Specifies required architecture */ unsigned char e_version[4]; /* Identifies object file version */ unsigned char e_entry[4]; /* Entry point virtual address */ unsigned char e_phoff[4]; /* Program header table file offset */ unsigned char e_shoff[4]; /* Section header table file offset */ unsigned char e_flags[4]; /* Processor-specific flags */ unsigned char e_ehsize[2]; /* ELF header size in bytes */ unsigned char e_phentsize[2]; /* Program header table entry size */ unsigned char e_phnum[2]; /* Program header table entry count */ unsigned char e_shentsize[2]; /* Section header table entry size */ unsigned char e_shnum[2]; /* Section header table entry count */ unsigned char e_shstrndx[2]; /* Section header string table index */ } Elf32_External_Ehdr; typedef struct { unsigned char e_ident[16]; /* ELF "magic number" */ unsigned char e_type[2]; /* Identifies object file type */ unsigned char e_machine[2]; /* Specifies required architecture */ unsigned char e_version[4]; /* Identifies object file version */ unsigned char e_entry[8]; /* Entry point virtual address */ unsigned char e_phoff[8]; /* Program header table file offset */ unsigned char e_shoff[8]; /* Section header table file offset */ unsigned char e_flags[4]; /* Processor-specific flags */ unsigned char e_ehsize[2]; /* ELF header size in bytes */ unsigned char e_phentsize[2]; /* Program header table entry size */ unsigned char e_phnum[2]; /* Program header table entry count */ unsigned char e_shentsize[2]; /* Section header table entry size */ unsigned char e_shnum[2]; /* Section header table entry count */ unsigned char e_shstrndx[2]; /* Section header string table index */ } Elf64_External_Ehdr; /* Program header */ typedef struct { unsigned char p_type[4]; /* Identifies program segment type */ unsigned char p_offset[4]; /* Segment file offset */ unsigned char p_vaddr[4]; /* Segment virtual address */ unsigned char p_paddr[4]; /* Segment physical address */ unsigned char p_filesz[4]; /* Segment size in file */ unsigned char p_memsz[4]; /* Segment size in memory */ unsigned char p_flags[4]; /* Segment flags */ unsigned char p_align[4]; /* Segment alignment, file & memory */ } Elf32_External_Phdr; typedef struct { unsigned char p_type[4]; /* Identifies program segment type */ unsigned char p_flags[4]; /* Segment flags */ unsigned char p_offset[8]; /* Segment file offset */ unsigned char p_vaddr[8]; /* Segment virtual address */ unsigned char p_paddr[8]; /* Segment physical address */ unsigned char p_filesz[8]; /* Segment size in file */ unsigned char p_memsz[8]; /* Segment size in memory */ unsigned char p_align[8]; /* Segment alignment, file & memory */ } Elf64_External_Phdr; /* Section header */ typedef struct { unsigned char sh_name[4]; /* Section name, index in string tbl */ unsigned char sh_type[4]; /* Type of section */ unsigned char sh_flags[4]; /* Miscellaneous section attributes */ unsigned char sh_addr[4]; /* Section virtual addr at execution */ unsigned char sh_offset[4]; /* Section file offset */ unsigned char sh_size[4]; /* Size of section in bytes */ unsigned char sh_link[4]; /* Index of another section */ unsigned char sh_info[4]; /* Additional section information */ unsigned char sh_addralign[4]; /* Section alignment */ unsigned char sh_entsize[4]; /* Entry size if section holds table */ } Elf32_External_Shdr; typedef struct { unsigned char sh_name[4]; /* Section name, index in string tbl */ unsigned char sh_type[4]; /* Type of section */ unsigned char sh_flags[8]; /* Miscellaneous section attributes */ unsigned char sh_addr[8]; /* Section virtual addr at execution */ unsigned char sh_offset[8]; /* Section file offset */ unsigned char sh_size[8]; /* Size of section in bytes */ unsigned char sh_link[4]; /* Index of another section */ unsigned char sh_info[4]; /* Additional section information */ unsigned char sh_addralign[8]; /* Section alignment */ unsigned char sh_entsize[8]; /* Entry size if section holds table */ } Elf64_External_Shdr; /* Symbol table entry */ typedef struct { unsigned char st_name[4]; /* Symbol name, index in string tbl */ unsigned char st_value[4]; /* Value of the symbol */ unsigned char st_size[4]; /* Associated symbol size */ unsigned char st_info[1]; /* Type and binding attributes */ unsigned char st_other[1]; /* No defined meaning, 0 */ unsigned char st_shndx[2]; /* Associated section index */ } Elf32_External_Sym; typedef struct { unsigned char st_name[4]; /* Symbol name, index in string tbl */ unsigned char st_info[1]; /* Type and binding attributes */ unsigned char st_other[1]; /* No defined meaning, 0 */ unsigned char st_shndx[2]; /* Associated section index */ unsigned char st_value[8]; /* Value of the symbol */ unsigned char st_size[8]; /* Associated symbol size */ } Elf64_External_Sym; /* Note segments */ typedef struct { unsigned char namesz[4]; /* Size of entry's owner string */ unsigned char descsz[4]; /* Size of the note descriptor */ unsigned char type[4]; /* Interpretation of the descriptor */ char name[1]; /* Start of the name+desc data */ } Elf_External_Note; /* Relocation Entries */ typedef struct { unsigned char r_offset[4]; /* Location at which to apply the action */ unsigned char r_info[4]; /* index and type of relocation */ } Elf32_External_Rel; typedef struct { unsigned char r_offset[4]; /* Location at which to apply the action */ unsigned char r_info[4]; /* index and type of relocation */ unsigned char r_addend[4]; /* Constant addend used to compute value */ } Elf32_External_Rela; typedef struct { unsigned char r_offset[8]; /* Location at which to apply the action */ unsigned char r_info[8]; /* index and type of relocation */ } Elf64_External_Rel; typedef struct { unsigned char r_offset[8]; /* Location at which to apply the action */ unsigned char r_info[8]; /* index and type of relocation */ unsigned char r_addend[8]; /* Constant addend used to compute value */ } Elf64_External_Rela; /* dynamic section structure */ typedef struct { unsigned char d_tag[4]; /* entry tag value */ union { unsigned char d_val[4]; unsigned char d_ptr[4]; } d_un; } Elf32_External_Dyn; typedef struct { unsigned char d_tag[8]; /* entry tag value */ union { unsigned char d_val[8]; unsigned char d_ptr[8]; } d_un; } Elf64_External_Dyn; gdb-4.13/include/elf/hppa.h 666 34562 1752 5524 5565744107 14052 0ustar fnfcygnus/* HPPA ELF support for BFD. Copyright (C) 1993, 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file holds definitions specific to the HPPA ELF ABI. Note that most of this is not actually implemented by BFD. */ /* Processor specific flags for the ELF header e_flags field. */ /* Target processor IDs to be placed in the low 16 bits of the flags field. Note these names are shared with SOM, and therefore do not follow ELF naming conventions. */ /* PA 1.0 big endian. */ #define CPU_PA_RISC1_0 0x0000020b /* PA 1.1 big endian. */ #define CPU_PA_RISC1_1 0x00000210 /* PA 1.0 little endian (unsupported) is 0x0000028b. */ /* PA 1.1 little endian (unsupported) is 0x00000290. */ /* Trap null address dereferences. */ #define ELF_PARISC_TRAPNIL 0x00010000 /* .PARISC.archext section is present. */ #define EF_PARISC_EXT 0x00020000 /* Processor specific section types. */ /* Holds the global offset table, a table of pointers to external data. */ #define SHT_PARISC_GOT SHT_LOPROC+0 /* Nonloadable section containing information in architecture extensions used by the code. */ #define SHT_PARISC_ARCH SHT_LOPROC+1 /* Section in which $global$ is defined. */ #define SHT_PARISC_GLOBAL SHT_LOPROC+2 /* Section holding millicode routines (mul, div, rem, dyncall, etc. */ #define SHT_PARISC_MILLI SHT_LOPROC+3 /* Section holding unwind information for use by debuggers. */ #define SHT_PARISC_UNWIND SHT_LOPROC+4 /* Section holding the procedure linkage table. */ #define SHT_PARISC_PLT SHT_LOPROC+5 /* Short initialized and uninitialized data. */ #define SHT_PARISC_SDATA SHT_LOPROC+6 #define SHT_PARISC_SBSS SHT_LOPROC+7 /* Optional section holding argument location/relocation info. */ #define SHT_PARISC_SYMEXTN SHT_LOPROC+8 /* Option section for linker stubs. */ #define SHT_PARISC_STUBS SHT_LOPROC+9 /* Processor specific section flags. */ /* This section is near the global data pointer and thus allows short addressing modes to be used. */ #define SHF_PARISC_SHORT 0x20000000 /* Processor specific symbol types. */ /* Millicode function entry point. */ #define STT_PARISC_MILLICODE STT_LOPROC+0 gdb-4.13/include/elf/internal.h 666 34562 1752 15312 5557017721 14746 0ustar fnfcygnus/* ELF support for BFD. Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support, from information published in "UNIX System V Release 4, Programmers Guide: ANSI C and Programming Support Tools". This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is part of ELF support for BFD, and contains the portions that describe how ELF is represented internally in the BFD library. I.E. it describes the in-memory representation of ELF. It requires the elf-common.h file which contains the portions that are common to both the internal and external representations. */ /* NOTE that these structures are not kept in the same order as they appear in the object file. In some cases they've been reordered for more optimal packing under various circumstances. */ /* ELF Header */ #define EI_NIDENT 16 /* Size of e_ident[] */ typedef struct elf_internal_ehdr { unsigned char e_ident[EI_NIDENT]; /* ELF "magic number" */ bfd_vma e_entry; /* Entry point virtual address */ bfd_signed_vma e_phoff; /* Program header table file offset */ bfd_signed_vma e_shoff; /* Section header table file offset */ unsigned long e_version; /* Identifies object file version */ unsigned long e_flags; /* Processor-specific flags */ unsigned short e_type; /* Identifies object file type */ unsigned short e_machine; /* Specifies required architecture */ unsigned short e_ehsize; /* ELF header size in bytes */ unsigned short e_phentsize; /* Program header table entry size */ unsigned short e_phnum; /* Program header table entry count */ unsigned short e_shentsize; /* Section header table entry size */ unsigned short e_shnum; /* Section header table entry count */ unsigned short e_shstrndx; /* Section header string table index */ } Elf_Internal_Ehdr; #define elf32_internal_ehdr elf_internal_ehdr #define Elf32_Internal_Ehdr Elf_Internal_Ehdr #define elf64_internal_ehdr elf_internal_ehdr #define Elf64_Internal_Ehdr Elf_Internal_Ehdr /* Program header */ struct elf_internal_phdr { unsigned long p_type; /* Identifies program segment type */ unsigned long p_flags; /* Segment flags */ bfd_vma p_offset; /* Segment file offset */ bfd_vma p_vaddr; /* Segment virtual address */ bfd_vma p_paddr; /* Segment physical address */ bfd_vma p_filesz; /* Segment size in file */ bfd_vma p_memsz; /* Segment size in memory */ bfd_vma p_align; /* Segment alignment, file & memory */ }; typedef struct elf_internal_phdr Elf_Internal_Phdr; #define elf32_internal_phdr elf_internal_phdr #define Elf32_Internal_Phdr Elf_Internal_Phdr #define elf64_internal_phdr elf_internal_phdr #define Elf64_Internal_Phdr Elf_Internal_Phdr /* Section header */ typedef struct elf_internal_shdr { unsigned int sh_name; /* Section name, index in string tbl */ unsigned int sh_type; /* Type of section */ bfd_vma sh_flags; /* Miscellaneous section attributes */ bfd_vma sh_addr; /* Section virtual addr at execution */ bfd_size_type sh_size; /* Size of section in bytes */ bfd_size_type sh_entsize; /* Entry size if section holds table */ unsigned long sh_link; /* Index of another section */ unsigned long sh_info; /* Additional section information */ file_ptr sh_offset; /* Section file offset */ unsigned int sh_addralign; /* Section alignment */ /* The internal rep also has some cached info associated with it. */ PTR rawdata; /* null if unused... */ PTR contents; /* null if unused... */ bfd_vma size; /* size of contents (0 if unused) */ } Elf_Internal_Shdr; #define elf32_internal_shdr elf_internal_shdr #define Elf32_Internal_Shdr Elf_Internal_Shdr #define elf64_internal_shdr elf_internal_shdr #define Elf64_Internal_Shdr Elf_Internal_Shdr /* Symbol table entry */ struct elf_internal_sym { bfd_vma st_value; /* Value of the symbol */ bfd_vma st_size; /* Associated symbol size */ unsigned long st_name; /* Symbol name, index in string tbl */ unsigned char st_info; /* Type and binding attributes */ unsigned char st_other; /* No defined meaning, 0 */ unsigned short st_shndx; /* Associated section index */ }; typedef struct elf_internal_sym Elf_Internal_Sym; #define elf32_internal_sym elf_internal_sym #define elf64_internal_sym elf_internal_sym #define Elf32_Internal_Sym Elf_Internal_Sym #define Elf64_Internal_Sym Elf_Internal_Sym /* Note segments */ typedef struct elf_internal_note { unsigned long namesz; /* Size of entry's owner string */ unsigned long descsz; /* Size of the note descriptor */ unsigned long type; /* Interpretation of the descriptor */ char name[1]; /* Start of the name+desc data */ } Elf_Internal_Note; #define Elf32_Internal_Note Elf_Internal_Note #define elf32_internal_note elf_internal_note /* Relocation Entries */ typedef struct elf_internal_rel { bfd_vma r_offset; /* Location at which to apply the action */ /* This needs to support 64-bit values in elf64. */ bfd_vma r_info; /* index and type of relocation */ } Elf_Internal_Rel; #define elf32_internal_rel elf_internal_rel #define Elf32_Internal_Rel Elf_Internal_Rel #define elf64_internal_rel elf_internal_rel #define Elf64_Internal_Rel Elf_Internal_Rel typedef struct elf_internal_rela { bfd_vma r_offset; /* Location at which to apply the action */ bfd_vma r_info; /* Index and Type of relocation */ bfd_signed_vma r_addend; /* Constant addend used to compute value */ } Elf_Internal_Rela; #define elf32_internal_rela elf_internal_rela #define elf64_internal_rela elf_internal_rela #define Elf32_Internal_Rela Elf_Internal_Rela #define Elf64_Internal_Rela Elf_Internal_Rela /* dynamic section structure */ typedef struct elf_internal_dyn { /* This needs to support 64-bit values in elf64. */ bfd_vma d_tag; /* entry tag value */ union { /* This needs to support 64-bit values in elf64. */ bfd_vma d_val; bfd_vma d_ptr; } d_un; } Elf_Internal_Dyn; #define elf32_internal_dyn elf_internal_dyn #define elf64_internal_dyn elf_internal_dyn #define Elf32_Internal_Dyn Elf_Internal_Dyn #define Elf64_Internal_Dyn Elf_Internal_Dyn gdb-4.13/include/elf/mips.h 666 34562 1752 17722 5570460126 14105 0ustar fnfcygnus/* MIPS ELF support for BFD. Copyright (C) 1993, 1994 Free Software Foundation, Inc. By Ian Lance Taylor, Cygnus Support, , from information in the System V Application Binary Interface, MIPS Processor Supplement. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file holds definitions specific to the MIPS ELF ABI. Note that most of this is not actually implemented by BFD. */ /* Processor specific flags for the ELF header e_flags field. */ /* At least one .noreorder directive appears in the source. */ #define EF_MIPS_NOREORDER 0x00000001 /* File contains position independent code. */ #define EF_MIPS_PIC 0x00000002 /* Code in file uses the standard calling sequence for calling position independent code. */ #define EF_MIPS_CPIC 0x00000004 /* Four bit MIPS architecture field. */ #define EF_MIPS_ARCH 0xf0000000 /* -mips1 code. */ #define E_MIPS_ARCH_1 0x00000000 /* -mips2 code. */ #define E_MIPS_ARCH_2 0x10000000 /* -mips3 code. */ #define E_MIPS_ARCH_3 0x20000000 /* Processor specific section indices. These sections do not actually exist. Symbols with a st_shndx field corresponding to one of these values have a special meaning. */ /* Defined and allocated common symbol. Value is virtual address. If relocated, alignment must be preserved. */ #define SHN_MIPS_ACOMMON 0xff00 /* Defined and allocated text symbol. Value is virtual address. Occur in the dynamic symbol table of Alpha OSF/1 and Irix 5 executables. */ #define SHN_MIPS_TEXT 0xff01 /* Defined and allocated data symbol. Value is virtual address. Occur in the dynamic symbol table of Alpha OSF/1 and Irix 5 executables. */ #define SHN_MIPS_DATA 0xff02 /* Small common symbol. */ #define SHN_MIPS_SCOMMON 0xff03 /* Small undefined symbol. */ #define SHN_MIPS_SUNDEFINED 0xff04 /* Processor specific section types. */ /* Section contains the set of dynamic shared objects used when statically linking. */ #define SHT_MIPS_LIBLIST 0x70000000 /* Section contains list of symbols whose definitions conflict with symbols defined in shared objects. */ #define SHT_MIPS_CONFLICT 0x70000002 /* Section contains the global pointer table. */ #define SHT_MIPS_GPTAB 0x70000003 /* Section contains microcode information. The exact format is unspecified. */ #define SHT_MIPS_UCODE 0x70000004 /* Section contains some sort of debugging information. The exact format is unspecified. It's probably ECOFF symbols. */ #define SHT_MIPS_DEBUG 0x70000005 /* Section contains register usage information. */ #define SHT_MIPS_REGINFO 0x70000006 /* Section contains miscellaneous options (used on Irix). */ #define SHT_MIPS_OPTIONS 0x7000000d /* A section of type SHT_MIPS_LIBLIST contains an array of the following structure. The sh_link field is the section index of the string table. The sh_info field is the number of entries in the section. */ typedef struct { /* String table index for name of shared object. */ unsigned long l_name; /* Time stamp. */ unsigned long l_time_stamp; /* Checksum of symbol names and common sizes. */ unsigned long l_checksum; /* String table index for version. */ unsigned long l_version; /* Flags. */ unsigned long l_flags; } Elf32_Lib; /* The l_flags field of an Elf32_Lib structure may contain the following flags. */ /* Require an exact match at runtime. */ #define LL_EXACT_MATCH 0x00000001 /* Ignore version incompatibilities at runtime. */ #define LL_IGNORE_INT_VER 0x00000002 /* A section of type SHT_MIPS_CONFLICT is an array of indices into the .dynsym section. Each element has the following type. */ typedef unsigned long Elf32_Conflict; /* A section of type SHT_MIPS_GPTAB contains information about how much GP space would be required for different -G arguments. This information is only used so that the linker can provide informative suggestions as to the best -G value to use. The sh_info field is the index of the section for which this information applies. The contents of the section are an array of the following union. The first element uses the gt_header field. The remaining elements use the gt_entry field. */ typedef union { struct { /* -G value actually used for this object file. */ unsigned long gt_current_g_value; /* Unused. */ unsigned long gt_unused; } gt_header; struct { /* If this -G argument has been used... */ unsigned long gt_g_value; /* ...this many GP section bytes would be required. */ unsigned long gt_bytes; } gt_entry; } Elf32_gptab; /* The external version of Elf32_gptab. */ typedef union { struct { unsigned char gt_current_g_value[4]; unsigned char gt_unused[4]; } gt_header; struct { unsigned char gt_g_value[4]; unsigned char gt_bytes[4]; } gt_entry; } Elf32_External_gptab; /* A section of type SHT_MIPS_REGINFO contains the following structure. */ typedef struct { /* Mask of general purpose registers used. */ unsigned long ri_gprmask; /* Mask of co-processor registers used. */ unsigned long ri_cprmask[4]; /* GP register value for this object file. */ long ri_gp_value; } Elf32_RegInfo; /* The external version of the Elf_RegInfo structure. */ typedef struct { unsigned char ri_gprmask[4]; unsigned char ri_cprmask[4][4]; unsigned char ri_gp_value[4]; } Elf32_External_RegInfo; /* MIPS ELF .reginfo swapping routines. */ extern void bfd_mips_elf32_swap_reginfo_in PARAMS ((bfd *, const Elf32_External_RegInfo *, Elf32_RegInfo *)); extern void bfd_mips_elf32_swap_reginfo_out PARAMS ((bfd *, const Elf32_RegInfo *, Elf32_External_RegInfo *)); /* Processor specific section flags. */ /* This section must be in the global data area. */ #define SHF_MIPS_GPREL 0x10000000 /* Processor specific program header types. */ /* Register usage information. Identifies one .reginfo section. */ #define PT_MIPS_REGINFO 0x70000000 /* Processor specific dynamic array tags. */ /* 32 bit version number for runtime linker interface. */ #define DT_MIPS_RLD_VERSION 0x70000001 /* Time stamp. */ #define DT_MIPS_TIME_STAMP 0x70000002 /* Checksum of external strings and common sizes. */ #define DT_MIPS_ICHECKSUM 0x70000003 /* Index of version string in string table. */ #define DT_MIPS_IVERSION 0x70000004 /* 32 bits of flags. */ #define DT_MIPS_FLAGS 0x70000005 /* Base address of the segment. */ #define DT_MIPS_BASE_ADDRESS 0x70000006 /* Address of .conflict section. */ #define DT_MIPS_CONFLICT 0x70000008 /* Address of .liblist section. */ #define DT_MIPS_LIBLIST 0x70000009 /* Number of local global offset table entries. */ #define DT_MIPS_LOCAL_GOTNO 0x7000000a /* Number of entries in the .conflict section. */ #define DT_MIPS_CONFLICTNO 0x7000000b /* Number of entries in the .liblist section. */ #define DT_MIPS_LIBLISTNO 0x70000010 /* Number of entries in the .dynsym section. */ #define DT_MIPS_SYMTABNO 0x70000011 /* Index of first external dynamic symbol not referenced locally. */ #define DT_MIPS_UNREFEXTNO 0x70000012 /* Index of first dynamic symbol in global offset table. */ #define DT_MIPS_GOTSYM 0x70000013 /* Number of page table entries in global offset table. */ #define DT_MIPS_HIPAGENO 0x70000014 /* Address of run time loader map, used for debugging. */ #define DT_MIPS_RLD_MAP 0x70000016 gdb-4.13/include/nlm/ 777 34562 1752 0 5623251117 12670 5ustar fnfcygnusgdb-4.13/include/nlm/ChangeLog 666 34562 1752 5563 5562477620 14546 0ustar fnfcygnusFri May 6 13:31:04 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * external.h (nlmNAME(External_Custom_Header)): Add length, dataOffset, and dataStamp field. (nlmNAME(External_Cygnus_Ext_Header)): Remove. * internal.h (Nlm_Internal_Custom_Header): Add hdrLength, dataOffset, dataStamp and hdr fields. Fri Apr 22 11:12:39 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * external.h (struct nlmNAME(external_cygnus_ext_header)): Rename from nlmNAME(external_cygnus_section_header). Change stamp field to 8 bytes. Add bytes field. * internal.h (nlm_internal_cygnus_ext_header): Rename from nlm_internal_cygnus_section_header. Change stamp field to 8 bytes. Thu Apr 21 11:57:09 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * internal.h (struct nlm_internal_cygnus_section_header): Define. * external.h (struct nlmNAME(external_cygnus_section_header): Define. Wed Apr 20 14:27:43 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * internal.h (struct nlm_internal_custom_header): Remove debugRecOffset and debugRecLength fields. Add data field. * external.h (struct nlmNAME(external_custom_header)): Remove debugRecOffset and debugRecLength fields. Mon Feb 7 08:28:40 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * internal.h: Change HOST_64_BIT to BFD_HOST_64_BIT. Thu Dec 2 14:14:48 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * alpha-ext.h: New file describing formats of information in Alpha NetWare files. * common.h: Define some non-external Alpha information. Wed Nov 17 17:38:58 1993 Sean Eric Fagan (sef@cygnus.com) * external.h: Don't define external_fixed_header here. * i386-ext.h, sparc32-ext.h: New header files to define external_fixed_header for particular CPU's. Wed Oct 27 11:45:56 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * internal.h (Nlm_Internal_Extended_Header): Added fields sharedDebugRecordOffset and sharedDebugRecordCount. * external.h (NlmNAME(External_Extended_Header)): Likewise. * common.h (NLM_SIGNATURE): Do not define (it's different for each backend). Tue Aug 31 13:24:15 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * internal.h: Change length fields of type char to type unsigned char. Sat Jul 31 02:12:14 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * common.h (NLM_HIBIT, NLM_HEADER_VERSION): Define. Thu Jul 22 16:09:47 1993 Fred Fish (fnf@deneb.cygnus.com) * common.h (NLM_CAT*, NLM_ARCH_SIZE, NLM_TARGET_LONG_SIZE, NLM_TARGET_ADDRESS_SIZE, NLM_NAME, NlmNAME, nlmNAME): New macros. * external.h (TARGET_LONG_SIZE, TARGET_ADDRESS_SIZE): Remove macros, convert usages to NLM_ equivalents. * external.h: Use nlmNAME and NlmNAME macros to derive both 32 and 64 bit versions. Mon Jul 19 22:12:40 1993 Fred Fish (fnf@deneb.cygnus.com) * (common.h, external.h, internal.h): New files for NLM/NetWare support. Local Variables: version-control: never End: gdb-4.13/include/nlm/alpha-ext.h 666 34562 1752 11634 5477437167 15053 0ustar fnfcygnus/* Alpha NLM (NetWare Loadable Module) support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. By Ian Lance Taylor, Cygnus Support This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* An Alpha NLM starts with an instance of this structure. */ struct nlm32_alpha_external_prefix_header { /* Magic number. Must be NLM32_ALPHA_MAGIC. */ unsigned char magic[4]; /* Format descriptor. Current value is 2. */ unsigned char format[4]; /* Size of prefix header. */ unsigned char size[4]; /* Padding. */ unsigned char pad1[4]; /* More fields may be added later, supposedly. */ }; /* The external format of an Alpha NLM reloc. This is the same as an Alpha ECOFF reloc. */ struct nlm32_alpha_external_reloc { unsigned char r_vaddr[8]; unsigned char r_symndx[4]; unsigned char r_bits[4]; }; /* Constants to unpack the r_bits field of a reloc. */ #define RELOC_BITS0_TYPE_LITTLE 0xff #define RELOC_BITS0_TYPE_SH_LITTLE 0 #define RELOC_BITS1_EXTERN_LITTLE 0x01 #define RELOC_BITS1_OFFSET_LITTLE 0x7e #define RELOC_BITS1_OFFSET_SH_LITTLE 1 #define RELOC_BITS1_RESERVED_LITTLE 0x80 #define RELOC_BITS1_RESERVED_SH_LITTLE 7 #define RELOC_BITS2_RESERVED_LITTLE 0xff #define RELOC_BITS2_RESERVED_SH_LEFT_LITTLE 1 #define RELOC_BITS3_RESERVED_LITTLE 0x03 #define RELOC_BITS3_RESERVED_SH_LEFT_LITTLE 9 #define RELOC_BITS3_SIZE_LITTLE 0xfc #define RELOC_BITS3_SIZE_SH_LITTLE 2 /* The external format of the fixed header. */ typedef struct nlm32_alpha_external_fixed_header { /* The signature field identifies the file as an NLM. It must contain the signature string, which depends upon the NLM target. */ unsigned char signature[24]; /* The version of the header. At this time, the highest version number is 4. */ unsigned char version[4]; /* The name of the module, which must be a DOS name (1-8 characters followed by a period and a 1-3 character extension). The first byte is the byte length of the name and the last byte is a null terminator byte. This field is fixed length, and any unused bytes should be null bytes. The value is set by the OUTPUT keyword to NLMLINK. */ unsigned char moduleName[14]; /* Padding to make it come out correct. */ unsigned char pad1[2]; /* The byte offset of the code image from the start of the file. */ unsigned char codeImageOffset[4]; /* The size of the code image, in bytes. */ unsigned char codeImageSize[4]; /* The byte offset of the data image from the start of the file. */ unsigned char dataImageOffset[4]; /* The size of the data image, in bytes. */ unsigned char dataImageSize[4]; /* The size of the uninitialized data region that the loader is to be allocated at load time. Uninitialized data follows the initialized data in the NLM address space. */ unsigned char uninitializedDataSize[4]; /* The byte offset of the custom data from the start of the file. The custom data is set by the CUSTOM keyword to NLMLINK. It is possible for this to be EOF if there is no custom data. */ unsigned char customDataOffset[4]; /* The size of the custom data, in bytes. */ unsigned char customDataSize[4]; /* The byte offset of the module dependencies from the start of the file. The module dependencies are determined by the MODULE keyword in NLMLINK. */ unsigned char moduleDependencyOffset[4]; /* The number of module dependencies at the moduleDependencyOffset. */ unsigned char numberOfModuleDependencies[4]; /* The byte offset of the relocation fixup data from the start of the file */ unsigned char relocationFixupOffset[4]; unsigned char numberOfRelocationFixups[4]; unsigned char externalReferencesOffset[4]; unsigned char numberOfExternalReferences[4]; unsigned char publicsOffset[4]; unsigned char numberOfPublics[4]; /* The byte offset of the internal debug info from the start of the file. It is possible for this to be EOF if there is no debug info. */ unsigned char debugInfoOffset[4]; unsigned char numberOfDebugRecords[4]; unsigned char codeStartOffset[4]; unsigned char exitProcedureOffset[4]; unsigned char checkUnloadProcedureOffset[4]; unsigned char moduleType[4]; unsigned char flags[4]; } Nlm32_alpha_External_Fixed_Header; gdb-4.13/include/nlm/common.h 666 34562 1752 10420 5477437420 14440 0ustar fnfcygnus/* NLM (NetWare Loadable Module) support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is part of NLM support for BFD, and contains the portions that are common to both the internal and external representations. */ /* Semi-portable string concatenation in cpp. The NLM_CAT4 hack is to avoid a problem with some strict ANSI C preprocessors. The problem is, "32_" or "64_" are not a valid preprocessing tokens, and we don't want extra underscores (e.g., "nlm_32_"). The XNLM_CAT2 macro will cause the inner NLM_CAT macros to be evaluated first, producing still-valid pp-tokens. Then the final concatenation can be done. (Sigh.) */ #ifdef SABER # define NLM_CAT(a,b) a##b # define NLM_CAT3(a,b,c) a##b##c # define NLM_CAT4(a,b,c,d) a##b##c##d #else # ifdef __STDC__ # define NLM_CAT(a,b) a##b # define NLM_CAT3(a,b,c) a##b##c # define XNLM_CAT2(a,b) NLM_CAT(a,b) # define NLM_CAT4(a,b,c,d) XNLM_CAT2(NLM_CAT(a,b),NLM_CAT(c,d)) # else # define NLM_CAT(a,b) a/**/b # define NLM_CAT3(a,b,c) a/**/b/**/c # define NLM_CAT4(a,b,c,d) a/**/b/**/c/**/d # endif #endif /* If NLM_ARCH_SIZE is not defined, default to 32. NLM_ARCH_SIZE is optionally defined by the application. */ #ifndef NLM_ARCH_SIZE # define NLM_ARCH_SIZE 32 #endif #if NLM_ARCH_SIZE == 32 # define NLM_TARGET_LONG_SIZE 4 # define NLM_TARGET_ADDRESS_SIZE 4 # define NLM_NAME(x,y) NLM_CAT4(x,32,_,y) # define NLM_HIBIT (((bfd_vma) 1) << 31) #endif #if NLM_ARCH_SIZE == 64 # define NLM_TARGET_LONG_SIZE 8 # define NLM_TARGET_ADDRESS_SIZE 8 # define NLM_NAME(x,y) NLM_CAT4(x,64,_,y) # define NLM_HIBIT (((bfd_vma) 1) << 63) #endif #define NlmNAME(X) NLM_NAME(Nlm,X) #define nlmNAME(X) NLM_NAME(nlm,X) /* Give names to things that should not change. */ #define NLM_MAX_DESCRIPTION_LENGTH 127 #define NLM_MAX_SCREEN_NAME_LENGTH 71 #define NLM_MAX_THREAD_NAME_LENGTH 71 #define NLM_MAX_COPYRIGHT_MESSAGE_LENGTH 255 #define NLM_OTHER_DATA_LENGTH 400 /* FIXME */ #define NLM_OLD_THREAD_NAME_LENGTH 5 #define NLM_SIGNATURE_SIZE 24 #define NLM_HEADER_VERSION 4 #define NLM_MODULE_NAME_SIZE 14 #define NLM_DEFAULT_STACKSIZE (8 * 1024) /* Alpha information. This should probably be in a separate Alpha header file, but it can't go in alpha-ext.h because some of it is needed by nlmconv.c. */ /* Magic number in Alpha prefix header. */ #define NLM32_ALPHA_MAGIC (0x83561840) /* The r_type field in an Alpha reloc is one of the following values. */ #define ALPHA_R_IGNORE 0 #define ALPHA_R_REFLONG 1 #define ALPHA_R_REFQUAD 2 #define ALPHA_R_GPREL32 3 #define ALPHA_R_LITERAL 4 #define ALPHA_R_LITUSE 5 #define ALPHA_R_GPDISP 6 #define ALPHA_R_BRADDR 7 #define ALPHA_R_HINT 8 #define ALPHA_R_SREL16 9 #define ALPHA_R_SREL32 10 #define ALPHA_R_SREL64 11 #define ALPHA_R_OP_PUSH 12 #define ALPHA_R_OP_STORE 13 #define ALPHA_R_OP_PSUB 14 #define ALPHA_R_OP_PRSHIFT 15 #define ALPHA_R_GPVALUE 16 #define ALPHA_R_NW_RELOC 250 /* A local reloc, other than ALPHA_R_GPDISP or ALPHA_R_IGNORE, must be against one of these symbol indices. */ #define ALPHA_RELOC_SECTION_TEXT 1 #define ALPHA_RELOC_SECTION_DATA 3 /* An ALPHA_R_NW_RELOC has one of these values in the size field. If it is SETGP, the r_vaddr field holds the GP value to use. If it is LITA, the r_vaddr field holds the address of the .lita section and the r_symndx field holds the size of the .lita section. */ #define ALPHA_R_NW_RELOC_SETGP 1 #define ALPHA_R_NW_RELOC_LITA 2 gdb-4.13/include/nlm/external.h 666 34562 1752 12155 5562477621 15003 0ustar fnfcygnus/* NLM (NetWare Loadable Module) support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is part of NLM support for BFD, and contains the portions that describe how NLM is represented externally by the BFD library. I.E. it describes the in-file representation of NLM. It requires the nlm/common.h file which contains the portions that are common to both the internal and external representations. Note that an NLM header consists of three parts: (1) A fixed length header that has specific fields of known length, at specific offsets in the file. (2) A variable length header that has specific fields in a specific order, but some fields may be variable length. (3) A auxiliary header that has various optional fields in no specific order. There is no way to identify the end of the auxiliary headers except by finding a header without a recognized 'stamp'. The exact format of the fixed length header unfortunately varies from one NLM target to another, due to padding. Each target defines the correct external format in a separate header file. */ /* NLM Header */ /* The version header is one of the optional auxiliary headers and follows the fixed length and variable length NLM headers. */ typedef struct nlmNAME(external_version_header) { /* The header is recognized by "VeRsIoN#" in the stamp field. */ char stamp[8]; unsigned char majorVersion[NLM_TARGET_LONG_SIZE]; unsigned char minorVersion[NLM_TARGET_LONG_SIZE]; unsigned char revision[NLM_TARGET_LONG_SIZE]; unsigned char year[NLM_TARGET_LONG_SIZE]; unsigned char month[NLM_TARGET_LONG_SIZE]; unsigned char day[NLM_TARGET_LONG_SIZE]; } NlmNAME(External_Version_Header); typedef struct nlmNAME(external_copyright_header) { /* The header is recognized by "CoPyRiGhT=" in the stamp field. */ char stamp[10]; unsigned char copyrightMessageLength[1]; /* There is a variable length field here called 'copyrightMessage' that is the length specified by copyrightMessageLength. */ } NlmNAME(External_Copyright_Header); typedef struct nlmNAME(external_extended_header) { /* The header is recognized by "MeSsAgEs" in the stamp field. */ char stamp[8]; unsigned char languageID[NLM_TARGET_LONG_SIZE]; unsigned char messageFileOffset[NLM_TARGET_LONG_SIZE]; unsigned char messageFileLength[NLM_TARGET_LONG_SIZE]; unsigned char messageCount[NLM_TARGET_LONG_SIZE]; unsigned char helpFileOffset[NLM_TARGET_LONG_SIZE]; unsigned char helpFileLength[NLM_TARGET_LONG_SIZE]; unsigned char RPCDataOffset[NLM_TARGET_LONG_SIZE]; unsigned char RPCDataLength[NLM_TARGET_LONG_SIZE]; unsigned char sharedCodeOffset[NLM_TARGET_LONG_SIZE]; unsigned char sharedCodeLength[NLM_TARGET_LONG_SIZE]; unsigned char sharedDataOffset[NLM_TARGET_LONG_SIZE]; unsigned char sharedDataLength[NLM_TARGET_LONG_SIZE]; unsigned char sharedRelocationFixupOffset[NLM_TARGET_LONG_SIZE]; unsigned char sharedRelocationFixupCount[NLM_TARGET_LONG_SIZE]; unsigned char sharedExternalReferenceOffset[NLM_TARGET_LONG_SIZE]; unsigned char sharedExternalReferenceCount[NLM_TARGET_LONG_SIZE]; unsigned char sharedPublicsOffset[NLM_TARGET_LONG_SIZE]; unsigned char sharedPublicsCount[NLM_TARGET_LONG_SIZE]; unsigned char sharedDebugRecordOffset[NLM_TARGET_LONG_SIZE]; unsigned char sharedDebugRecordCount[NLM_TARGET_LONG_SIZE]; unsigned char sharedInitializationOffset[NLM_TARGET_ADDRESS_SIZE]; unsigned char SharedExitProcedureOffset[NLM_TARGET_ADDRESS_SIZE]; unsigned char productID[NLM_TARGET_LONG_SIZE]; unsigned char reserved0[NLM_TARGET_LONG_SIZE]; unsigned char reserved1[NLM_TARGET_LONG_SIZE]; unsigned char reserved2[NLM_TARGET_LONG_SIZE]; unsigned char reserved3[NLM_TARGET_LONG_SIZE]; unsigned char reserved4[NLM_TARGET_LONG_SIZE]; unsigned char reserved5[NLM_TARGET_LONG_SIZE]; } NlmNAME(External_Extended_Header); typedef struct nlmNAME(external_custom_header) { /* The header is recognized by "CuStHeAd" in the stamp field. */ char stamp[8]; /* Length of this header. */ unsigned char length[NLM_TARGET_LONG_SIZE]; /* Offset to data. */ unsigned char dataOffset[NLM_TARGET_LONG_SIZE]; /* Length of data. */ unsigned char dataLength[NLM_TARGET_LONG_SIZE]; /* Stamp for this customer header--we recognize "CyGnUsEx". */ char dataStamp[8]; } NlmNAME(External_Custom_Header); gdb-4.13/include/nlm/i386-ext.h 666 34562 1752 7127 5476746151 14434 0ustar fnfcygnus/* i386 NLM (NetWare Loadable Module) support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The external format of the fixed header. */ typedef struct nlm32_i386_external_fixed_header { /* The signature field identifies the file as an NLM. It must contain the signature string, which depends upon the NLM target. */ unsigned char signature[24]; /* The version of the header. At this time, the highest version number is 4. */ unsigned char version[4]; /* The name of the module, which must be a DOS name (1-8 characters followed by a period and a 1-3 character extension). The first byte is the byte length of the name and the last byte is a null terminator byte. This field is fixed length, and any unused bytes should be null bytes. The value is set by the OUTPUT keyword to NLMLINK. */ unsigned char moduleName[14]; /* The byte offset of the code image from the start of the file. */ unsigned char codeImageOffset[4]; /* The size of the code image, in bytes. */ unsigned char codeImageSize[4]; /* The byte offset of the data image from the start of the file. */ unsigned char dataImageOffset[4]; /* The size of the data image, in bytes. */ unsigned char dataImageSize[4]; /* The size of the uninitialized data region that the loader is to be allocated at load time. Uninitialized data follows the initialized data in the NLM address space. */ unsigned char uninitializedDataSize[4]; /* The byte offset of the custom data from the start of the file. The custom data is set by the CUSTOM keyword to NLMLINK. It is possible for this to be EOF if there is no custom data. */ unsigned char customDataOffset[4]; /* The size of the custom data, in bytes. */ unsigned char customDataSize[4]; /* The byte offset of the module dependencies from the start of the file. The module dependencies are determined by the MODULE keyword in NLMLINK. */ unsigned char moduleDependencyOffset[4]; /* The number of module dependencies at the moduleDependencyOffset. */ unsigned char numberOfModuleDependencies[4]; /* The byte offset of the relocation fixup data from the start of the file */ unsigned char relocationFixupOffset[4]; unsigned char numberOfRelocationFixups[4]; unsigned char externalReferencesOffset[4]; unsigned char numberOfExternalReferences[4]; unsigned char publicsOffset[4]; unsigned char numberOfPublics[4]; /* The byte offset of the internal debug info from the start of the file. It is possible for this to be EOF if there is no debug info. */ unsigned char debugInfoOffset[4]; unsigned char numberOfDebugRecords[4]; unsigned char codeStartOffset[4]; unsigned char exitProcedureOffset[4]; unsigned char checkUnloadProcedureOffset[4]; unsigned char moduleType[4]; unsigned char flags[4]; } Nlm32_i386_External_Fixed_Header; gdb-4.13/include/nlm/internal.h 666 34562 1752 25554 5562477622 15005 0ustar fnfcygnus/* NLM (NetWare Loadable Module) support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file is part of NLM support for BFD, and contains the portions that describe how NLM is represented internally in the BFD library. I.E. it describes the in-memory representation of NLM. It requires the nlm/common.h file which contains the portions that are common to both the internal and external representations. */ #if 0 /* Types used by various structures, functions, etc. */ typedef unsigned long Nlm32_Addr; /* Unsigned program address */ typedef unsigned long Nlm32_Off; /* Unsigned file offset */ typedef long Nlm32_Sword; /* Signed large integer */ typedef unsigned long Nlm32_Word; /* Unsigned large integer */ typedef unsigned short Nlm32_Half; /* Unsigned medium integer */ typedef unsigned char Nlm32_Char; /* Unsigned tiny integer */ #ifdef BFD_HOST_64_BIT typedef unsigned BFD_HOST_64_BIT Nlm64_Addr; typedef unsigned BFD_HOST_64_BIT Nlm64_Off; typedef BFD_HOST_64_BIT Nlm64_Sxword; typedef unsigned BFD_HOST_64_BIT Nlm64_Xword; #endif typedef long Nlm64_Sword; typedef unsigned long Nlm64_Word; typedef unsigned short Nlm64_Half; #endif /* 0 */ /* This structure contains the internal form of the portion of the NLM header that is fixed length. */ typedef struct nlm_internal_fixed_header { /* The signature field identifies the file as an NLM. It must contain the signature string, which depends upon the NLM target. */ char signature[NLM_SIGNATURE_SIZE]; /* The version of the header. At this time, the highest version number is 4. */ long version; /* The name of the module, which must be a DOS name (1-8 characters followed by a period and a 1-3 character extension. The first byte is the byte length of the name and the last byte is a null terminator byte. This field is fixed length, and any unused bytes should be null bytes. The value is set by the OUTPUT keyword to NLMLINK. */ char moduleName[NLM_MODULE_NAME_SIZE]; /* The byte offset of the code image from the start of the file. */ file_ptr codeImageOffset; /* The size of the code image, in bytes. */ bfd_size_type codeImageSize; /* The byte offset of the data image from the start of the file. */ file_ptr dataImageOffset; /* The size of the data image, in bytes. */ bfd_size_type dataImageSize; /* The size of the uninitialized data region that the loader is to be allocated at load time. Uninitialized data follows the initialized data in the NLM address space. */ bfd_size_type uninitializedDataSize; /* The byte offset of the custom data from the start of the file. The custom data is set by the CUSTOM keyword to NLMLINK. */ file_ptr customDataOffset; /* The size of the custom data, in bytes. */ bfd_size_type customDataSize; /* The byte offset of the module dependencies from the start of the file. The module dependencies are determined by the MODULE keyword in NLMLINK. */ file_ptr moduleDependencyOffset; /* The number of module dependencies at the moduleDependencyOffset. */ long numberOfModuleDependencies; /* The byte offset of the relocation fixup data from the start of the file */ file_ptr relocationFixupOffset; long numberOfRelocationFixups; file_ptr externalReferencesOffset; long numberOfExternalReferences; file_ptr publicsOffset; long numberOfPublics; file_ptr debugInfoOffset; long numberOfDebugRecords; file_ptr codeStartOffset; file_ptr exitProcedureOffset; file_ptr checkUnloadProcedureOffset; long moduleType; long flags; } Nlm_Internal_Fixed_Header; #define nlm32_internal_fixed_header nlm_internal_fixed_header #define Nlm32_Internal_Fixed_Header Nlm_Internal_Fixed_Header #define nlm64_internal_fixed_header nlm_internal_fixed_header #define Nlm64_Internal_Fixed_Header Nlm_Internal_Fixed_Header /* This structure contains the portions of the NLM header that are either variable in size in the external representation, or else are not at a fixed offset relative to the start of the NLM header due to preceding variable sized fields. Note that all the fields must exist in the external header, and in the order used here (the same order is used in the internal form for consistency, not out of necessity). */ typedef struct nlm_internal_variable_header { /* The descriptionLength field contains the length of the text in descriptionText, excluding the null terminator. The descriptionText field contains the NLM description obtained from the DESCRIPTION keyword in NLMLINK plus the null byte terminator. The descriptionText can be up to NLM_MAX_DESCRIPTION_LENGTH characters. */ unsigned char descriptionLength; char descriptionText[NLM_MAX_DESCRIPTION_LENGTH + 1]; /* The stackSize field contains the size of the stack in bytes, as specified by the STACK or STACKSIZE keyword in NLMLINK. If no size is specified, the default is NLM_DEFAULT_STACKSIZE. */ long stackSize; /* The reserved field is included only for completeness. It should contain zero. */ long reserved; /* This field is fixed length, should contain " LONG" (note leading space), and is unused. */ char oldThreadName[NLM_OLD_THREAD_NAME_LENGTH]; /* The screenNameLength field contains the length of the actual text stored in the screenName field, excluding the null byte terminator. The screenName field contains the screen name as specified by the SCREENNAME keyword in NLMLINK, and can be up to NLM_MAX_SCREEN_NAME_LENGTH characters. */ unsigned char screenNameLength; char screenName[NLM_MAX_SCREEN_NAME_LENGTH + 1]; /* The threadNameLength field contains the length of the actual text stored in the threadName field, excluding the null byte terminator. The threadName field contains the thread name as specified by the THREADNAME keyword in NLMLINK, and can be up to NLM_MAX_THREAD_NAME_LENGTH characters. */ unsigned char threadNameLength; char threadName[NLM_MAX_THREAD_NAME_LENGTH + 1]; } Nlm_Internal_Variable_Header; #define nlm32_internal_variable_header nlm_internal_variable_header #define Nlm32_Internal_Variable_Header Nlm_Internal_Variable_Header #define nlm64_internal_variable_header nlm_internal_variable_header #define Nlm64_Internal_Variable_Header Nlm_Internal_Variable_Header /* The version header is one of the optional auxiliary headers and follows the fixed length and variable length NLM headers. */ typedef struct nlm_internal_version_header { /* The header is recognized by "VeRsIoN#" in the stamp field. */ char stamp[8]; long majorVersion; long minorVersion; long revision; long year; long month; long day; } Nlm_Internal_Version_Header; #define nlm32_internal_version_header nlm_internal_version_header #define Nlm32_Internal_Version_Header Nlm_Internal_Version_Header #define nlm64_internal_version_header nlm_internal_version_header #define Nlm64_Internal_Version_Header Nlm_Internal_Version_Header typedef struct nlm_internal_copyright_header { /* The header is recognized by "CoPyRiGhT=" in the stamp field. */ char stamp[10]; unsigned char copyrightMessageLength; char copyrightMessage[NLM_MAX_COPYRIGHT_MESSAGE_LENGTH]; } Nlm_Internal_Copyright_Header; #define nlm32_internal_copyright_header nlm_internal_copyright_header #define Nlm32_Internal_Copyright_Header Nlm_Internal_Copyright_Header #define nlm64_internal_copyright_header nlm_internal_copyright_header #define Nlm64_Internal_Copyright_Header Nlm_Internal_Copyright_Header typedef struct nlm_internal_extended_header { /* The header is recognized by "MeSsAgEs" in the stamp field. */ char stamp[8]; long languageID; file_ptr messageFileOffset; bfd_size_type messageFileLength; long messageCount; file_ptr helpFileOffset; bfd_size_type helpFileLength; file_ptr RPCDataOffset; bfd_size_type RPCDataLength; file_ptr sharedCodeOffset; bfd_size_type sharedCodeLength; file_ptr sharedDataOffset; bfd_size_type sharedDataLength; file_ptr sharedRelocationFixupOffset; long sharedRelocationFixupCount; file_ptr sharedExternalReferenceOffset; long sharedExternalReferenceCount; file_ptr sharedPublicsOffset; long sharedPublicsCount; file_ptr sharedDebugRecordOffset; long sharedDebugRecordCount; bfd_vma SharedInitializationOffset; bfd_vma SharedExitProcedureOffset; long productID; long reserved0; long reserved1; long reserved2; long reserved3; long reserved4; long reserved5; } Nlm_Internal_Extended_Header; #define nlm32_internal_extended_header nlm_internal_extended_header #define Nlm32_Internal_Extended_Header Nlm_Internal_Extended_Header #define nlm64_internal_extended_header nlm_internal_extended_header #define Nlm64_Internal_Extended_Header Nlm_Internal_Extended_Header /* The format of a custom header as stored internally is different from the external format. This is how we store a custom header which we do not recognize. */ typedef struct nlm_internal_custom_header { /* The header is recognized by "CuStHeAd" in the stamp field. */ char stamp[8]; bfd_size_type hdrLength; file_ptr dataOffset; bfd_size_type dataLength; char dataStamp[8]; PTR hdr; } Nlm_Internal_Custom_Header; #define nlm32_internal_custom_header nlm_internal_custom_header #define Nlm32_Internal_Custom_Header Nlm_Internal_Custom_Header #define nlm64_internal_custom_header nlm_internal_custom_header #define Nlm64_Internal_Custom_Header Nlm_Internal_Custom_Header /* The internal Cygnus header is written out externally as a custom header. We don't try to replicate that structure here. */ typedef struct nlm_internal_cygnus_ext_header { /* The header is recognized by "CyGnUsEx" in the stamp field. */ char stamp[8]; /* File location of debugging information. */ file_ptr offset; /* Length of debugging information. */ bfd_size_type length; } Nlm_Internal_Cygnus_Ext_Header; #define nlm32_internal_cygnus_ext_header nlm_internal_cygnus_ext_header #define Nlm32_Internal_Cygnus_Ext_Header Nlm_Internal_Cygnus_Ext_Header #define nlm64_internal_cygnus_ext_header nlm_internal_cygnus_ext_header #define Nlm64_Internal_Cygnus_Ext_Header Nlm_Internal_Cygnus_Ext_Header gdb-4.13/include/nlm/ppc-ext.h 666 34562 1752 11575 5555272401 14535 0ustar fnfcygnus/* PowerPC NLM (NetWare Loadable Module) support for BFD. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef OLDFORMAT /* The format of a PowerPC NLM changed. These structures are only used in the old format. */ /* A PowerPC NLM starts with an instance of this structure. */ struct nlm32_powerpc_external_prefix_header { /* Signature. Must be "AppleNLM". */ char signature[8]; /* Version number. Current value is 1. */ unsigned char headerVersion[4]; /* ??. Should be set to 0. */ unsigned char origins[4]; /* File creation date in standard Unix time format (seconds since 1/1/70). */ unsigned char date[4]; }; #define NLM32_POWERPC_SIGNATURE "AppleNLM" #define NLM32_POWERPC_HEADER_VERSION 1 /* The external format of a PowerPC NLM reloc. This is the same as an XCOFF dynamic reloc. */ struct nlm32_powerpc_external_reloc { /* Address. */ unsigned char l_vaddr[4]; /* Symbol table index. This is 0 for .text and 1 for .data. 2 means .bss, but I don't know if it is used. In XCOFF, larger numbers are indices into the dynamic symbol table, but they are presumably not used in an NLM. */ unsigned char l_symndx[4]; /* Relocation type. */ unsigned char l_rtype[2]; /* Section number being relocated. */ unsigned char l_rsecnm[2]; }; #endif /* OLDFORMAT */ /* The external format of the fixed header. */ typedef struct nlm32_powerpc_external_fixed_header { /* The signature field identifies the file as an NLM. It must contain the signature string, which depends upon the NLM target. */ unsigned char signature[24]; /* The version of the header. At this time, the highest version number is 4. */ unsigned char version[4]; /* The name of the module, which must be a DOS name (1-8 characters followed by a period and a 1-3 character extension). The first byte is the byte length of the name and the last byte is a null terminator byte. This field is fixed length, and any unused bytes should be null bytes. The value is set by the OUTPUT keyword to NLMLINK. */ unsigned char moduleName[14]; /* Padding to make it come out correct. */ unsigned char pad1[2]; /* The byte offset of the code image from the start of the file. */ unsigned char codeImageOffset[4]; /* The size of the code image, in bytes. */ unsigned char codeImageSize[4]; /* The byte offset of the data image from the start of the file. */ unsigned char dataImageOffset[4]; /* The size of the data image, in bytes. */ unsigned char dataImageSize[4]; /* The size of the uninitialized data region that the loader is to be allocated at load time. Uninitialized data follows the initialized data in the NLM address space. */ unsigned char uninitializedDataSize[4]; /* The byte offset of the custom data from the start of the file. The custom data is set by the CUSTOM keyword to NLMLINK. It is possible for this to be EOF if there is no custom data. */ unsigned char customDataOffset[4]; /* The size of the custom data, in bytes. */ unsigned char customDataSize[4]; /* The byte offset of the module dependencies from the start of the file. The module dependencies are determined by the MODULE keyword in NLMLINK. */ unsigned char moduleDependencyOffset[4]; /* The number of module dependencies at the moduleDependencyOffset. */ unsigned char numberOfModuleDependencies[4]; /* The byte offset of the relocation fixup data from the start of the file */ unsigned char relocationFixupOffset[4]; unsigned char numberOfRelocationFixups[4]; unsigned char externalReferencesOffset[4]; unsigned char numberOfExternalReferences[4]; unsigned char publicsOffset[4]; unsigned char numberOfPublics[4]; /* The byte offset of the internal debug info from the start of the file. It is possible for this to be EOF if there is no debug info. */ unsigned char debugInfoOffset[4]; unsigned char numberOfDebugRecords[4]; unsigned char codeStartOffset[4]; unsigned char exitProcedureOffset[4]; unsigned char checkUnloadProcedureOffset[4]; unsigned char moduleType[4]; unsigned char flags[4]; } Nlm32_powerpc_External_Fixed_Header; gdb-4.13/include/nlm/sparc32-ext.h 666 34562 1752 7242 5476746152 15217 0ustar fnfcygnus/* SPARC NLM (NetWare Loadable Module) support for BFD. Copyright (C) 1993 Free Software Foundation, Inc. This file is part of BFD, the Binary File Descriptor library. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The external format of the fixed header. */ typedef struct nlm32_sparc_external_fixed_header { /* The signature field identifies the file as an NLM. It must contain the signature string, which depends upon the NLM target. */ unsigned char signature[24]; /* The version of the header. At this time, the highest version number is 4. */ unsigned char version[4]; /* The name of the module, which must be a DOS name (1-8 characters followed by a period and a 1-3 character extension). The first byte is the byte length of the name and the last byte is a null terminator byte. This field is fixed length, and any unused bytes should be null bytes. The value is set by the OUTPUT keyword to NLMLINK. */ unsigned char moduleName[14]; /* Padding to make it come out correct. */ unsigned char pad1[2]; /* The byte offset of the code image from the start of the file. */ unsigned char codeImageOffset[4]; /* The size of the code image, in bytes. */ unsigned char codeImageSize[4]; /* The byte offset of the data image from the start of the file. */ unsigned char dataImageOffset[4]; /* The size of the data image, in bytes. */ unsigned char dataImageSize[4]; /* The size of the uninitialized data region that the loader is to be allocated at load time. Uninitialized data follows the initialized data in the NLM address space. */ unsigned char uninitializedDataSize[4]; /* The byte offset of the custom data from the start of the file. The custom data is set by the CUSTOM keyword to NLMLINK. It is possible for this to be EOF if there is no custom data. */ unsigned char customDataOffset[4]; /* The size of the custom data, in bytes. */ unsigned char customDataSize[4]; /* The byte offset of the module dependencies from the start of the file. The module dependencies are determined by the MODULE keyword in NLMLINK. */ unsigned char moduleDependencyOffset[4]; /* The number of module dependencies at the moduleDependencyOffset. */ unsigned char numberOfModuleDependencies[4]; /* The byte offset of the relocation fixup data from the start of the file */ unsigned char relocationFixupOffset[4]; unsigned char numberOfRelocationFixups[4]; unsigned char externalReferencesOffset[4]; unsigned char numberOfExternalReferences[4]; unsigned char publicsOffset[4]; unsigned char numberOfPublics[4]; /* The byte offset of the internal debug info from the start of the file. It is possible for this to be EOF if there is no debug info. */ unsigned char debugInfoOffset[4]; unsigned char numberOfDebugRecords[4]; unsigned char codeStartOffset[4]; unsigned char exitProcedureOffset[4]; unsigned char checkUnloadProcedureOffset[4]; unsigned char moduleType[4]; unsigned char flags[4]; } Nlm32_sparc_External_Fixed_Header; gdb-4.13/include/opcode/ 777 34562 1752 0 5623251124 13351 5ustar fnfcygnusgdb-4.13/include/opcode/ChangeLog 666 34562 1752 45613 5611067420 15235 0ustar fnfcygnusWed Jul 13 18:43:47 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * ns32k.h (endop): Made pointer const too. Sun Jul 10 11:01:09 1994 Ian Dall (dall@hfrd.dsto.gov.au) * ns32k.h: Drop Q operand type as there is no correct use for it. Add I and Z operand types which allow better checking. Thu Jul 7 12:34:48 1994 Steve Chamberlain (sac@jonny.cygnus.com) * h8300.h (xor.l) :fix bit pattern. (L_2): New size of operand. (trapa): Use it. Fri Jun 10 16:38:11 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * m68k.h: Move "trap" before "tpcc" to change disassembly. Fri Jun 3 15:57:36 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * sparc.h: Include v9 definitions. Thu Jun 2 12:23:17 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * m68k.h (m68060): Defined. (m68040up, mfloat, mmmu): Include it. (struct m68k_opcode): Widen `arch' field. (m68k_opcodes): Updated for M68060. Removed comments that were instructions commented out by "JF" years ago. Thu Apr 28 18:31:14 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * m68k.h (struct m68k_opcode): Shorten `arch' field to 8 bits, and add a one-bit `flags' field. (F_ALIAS): New macro. Wed Apr 27 11:29:52 1994 Steve Chamberlain (sac@cygnus.com) * h8300.h (dec, inc): Get encoding right. Mon Apr 4 13:12:43 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc.h (struct powerpc_operand): Removed signedp field; just use a flag instead. (PPC_OPERAND_SIGNED): Define. (PPC_OPERAND_SIGNOPT): Define. Thu Mar 31 19:34:08 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * i386.h (IS_JUMP_ON_ECX_ZERO, "jcxz" pattern): Operand size prefix is 0x66, not 0x67. Patch from H.J. Lu (hlu@nynexst.com). Thu Mar 3 15:51:05 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * i386.h: Reverse last change. It'll be handled in gas instead. Thu Feb 24 15:29:05 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * i386.h (sar): Disabled the two-operand Imm1 form, since it was slower on the 486 and used the implicit shift count despite the explicit operand. The one-operand form is still available to get the shorter form with the implicit shift count. Thu Feb 17 12:27:52 1994 Torbjorn Granlund (tege@mexican.cygnus.com) * hppa.h: Fix typo in fstws arg string. Wed Feb 9 21:23:52 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc.h (struct powerpc_opcode): Make operands field unsigned. Mon Feb 7 19:14:58 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc.h (PPC_OPCODE_601): Define. Fri Feb 4 23:43:50 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa.h (addb): Use '@' for addb and addib pseudo ops. (so we can determine valid completers for both addb and addb[tf].) * hppa.h (xmpyu): No floating point format specifier for the xmpyu instruction. Fri Feb 4 23:36:52 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc.h (PPC_OPERAND_NEXT): Define. (PPC_OPERAND_NEGATIVE): Change value to make room for above. (struct powerpc_macro): Define. (powerpc_macros, powerpc_num_macros): Declare. Fri Jan 21 19:13:50 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc.h: New file. Header file for PowerPC opcode table. Mon Jan 17 00:14:23 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa.h: More minor template fixes for sfu and copr (to allow for easier disassembly). * hppa.h: Fix templates for all the sfu and copr instructions. Wed Dec 15 15:12:42 1993 Ken Raeburn (raeburn@cujo.cygnus.com) * i386.h (push): Permit Imm16 operand too. Sat Dec 11 16:14:06 1993 Steve Chamberlain (sac@thepub.cygnus.com) * h8300.h (andc): Exists in base arch. Wed Dec 1 12:15:32 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * From Hisashi MINAMINO * hppa.h: #undef NONE to avoid conflict with hiux include files. Sun Nov 21 22:06:57 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa.h: Add FP quadword store instructions. Wed Nov 17 17:13:16 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h: (M_J_A): Added. (M_LA): Removed. Mon Nov 8 12:12:47 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (OP_MASK_CACHE, OP_SH_CACHE): Define. From Ted Lemon . Sun Nov 7 00:30:11 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa.h: Immediate field in probei instructions is unsigned, not low-sign extended. Wed Nov 3 10:30:00 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * m88k.h (RRI10MASK): Change from 0xfc00ffe0 to 0xfc00fc00. Tue Nov 2 12:41:30 1993 Ken Raeburn (raeburn@rover.cygnus.com) * i386.h: Add "fxch" without operand. Mon Nov 1 18:13:03 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (M_JAL_1, M_JAL_2, M_JAL_A): Added. Sat Oct 2 22:26:11 1993 Jeffrey A Law (law@snake.cs.utah.edu) * hppa.h: Add gfw and gfr to the opcode table. Wed Sep 29 16:23:00 1993 K. Richard Pixley (rich@sendai.cygnus.com) * m88k.h: extended to handle m88110. Tue Sep 28 19:19:08 1993 Jeffrey A Law (law@snake.cs.utah.edu) * hppa.h (be, ble): Use operand type 'z' to denote absolute branch addresses. Tue Sep 14 14:04:35 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * i960.h (i960_opcodes): Properly bracket initializers. Mon Sep 13 12:50:52 1993 K. Richard Pixley (rich@sendai.cygnus.com) * m88k.h (BOFLAG): rewrite to avoid nested comment. Mon Sep 13 15:46:06 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * m68k.h (two): Protect second argument with parentheses. Fri Sep 10 16:29:47 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * i386.h (i386_optab): Added new instruction "rsm" (for i386sl). Deleted old in/out instructions in "#if 0" section. Thu Sep 9 17:42:19 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * i386.h (i386_optab): Properly bracket initializers. Wed Aug 25 13:50:56 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * hppa.h (pa_opcode): Use '|' for movb and movib insns. (From Jeff Law, law@cs.utah.edu). Mon Aug 23 16:55:03 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * i386.h (lcall): Accept Imm32 operand also. Mon Aug 23 12:43:11 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (M_ABSU): Removed (absolute value of unsigned number??). (M_DABS): Added. Thu Aug 19 15:08:37 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h (INSN_*): Changed values. Removed unused definitions. Added INSN_COND_BRANCH_LIKELY, INSN_ISA2 and INSN_ISA3. Split INSN_LOAD_DELAY into INSN_LOAD_MEMORY_DELAY and INSN_LOAD_COPROC_DELAY. Split INSN_COPROC_DELAY into INSN_COPROC_MOVE_DELAY and INSN_COPROC_MEMORY_DELAY. (M_*): Added new values for r6000 and r4000 macros. (ANY_DELAY): Removed. Wed Aug 18 15:37:48 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h: Added M_LI_S and M_LI_SS. Tue Aug 17 07:08:08 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * h8300.h: Get some rare mov.bs correct. Thu Aug 5 09:15:17 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * sparc.h: Don't define const ourself; rely on ansidecl.h having been included. Fri Jul 30 18:41:11 1993 John Gilmore (gnu@cygnus.com) * sparc.h (F_JSR, F_UNBR, F_CONDBR): Add new flags to mark jump instructions, for use in disassemblers. Thu Jul 22 07:25:27 1993 Ian Lance Taylor (ian@cygnus.com) * m88k.h: Make bitfields just unsigned, not unsigned long or unsigned short. Wed Jul 21 11:55:31 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * hppa.h: New argument type 'y'. Use in various float instructions. Mon Jul 19 17:17:03 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * hppa.h (break): First immediate field is unsigned. * hppa.h: Add rfir instruction. Sun Jul 18 16:28:08 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * mips.h: Split the actual table out into ../../opcodes/mips-opc.c. Fri Jul 16 09:59:29 1993 Ian Lance Taylor (ian@cygnus.com) * mips.h: Reworked the hazard information somewhat, and fixed some bugs in the instruction hazard descriptions. Thu Jul 15 12:42:01 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * m88k.h: Corrected a couple of opcodes. Tue Jul 6 15:17:35 1993 Ian Lance Taylor (ian@cygnus.com) * mips.h: Replaced with version from Ralph Campbell and OSF. The new version includes instruction hazard information, but is otherwise reasonably similar. Thu Jul 1 20:36:17 1993 Doug Evans (dje@canuck.cygnus.com) * h8300.h: Fix typo in UNOP3 (affected sh[al][lr].l). Fri Jun 11 18:38:44 1993 Ken Raeburn (raeburn@cygnus.com) Patches from Jeff Law, law@cs.utah.edu: * hppa.h: Clean up some of the OLD_TABLE, non-OLD_TABLE braindamage. Make the tables be the same for the following instructions: "bb", "addb[tf]", "addib[tf]", "add", "add[loc]", "addco", "sh[123]add", "sh[123]add[lo]", "sub", "sub[obt]", "sub[bt]o", "ds", "comclr", "addi", "addi[ot]", "addito", "subi", "subio", "comiclr", "fadd", "fsub", "fmpy", "fdiv", "fsqrt", "fabs", "frnd", "fcpy", "fcnvff", "fcnvxf", "fcnvfx", "fcnvfxt", "fcmp", and "ftest". * hppa.h: Make new and old tables the same for "break", "mtctl", "mfctl", "bb", "ssm", "rsm", "xmpyu", "fmpyadd", "fmpysub". Fix typo in last patch. Collapse several #ifdefs into a single #ifdef. * hppa.h: Delete remaining OLD_TABLE code. Bring some of the comments up-to-date. * hppa.h: Update "free list" of letters and update comments describing each letter's function. Fri Jun 4 15:41:37 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * h8300.h: checkpoint, includes H8/300-H opcodes. Thu Jun 3 15:42:59 1993 Stu Grossman (grossman@cygnus.com) * Patches from Jeffrey Law . * hppa.h: Rework single precision FP instructions so that they correctly disassemble code PA1.1 code. Thu May 27 19:21:22 1993 Bruce Bauman (boot@osf.org) * i386.h (i386_optab, mov pattern): Remove Mem16 restriction from mov to allow instructions like mov ss,xyz(ecx) to assemble. Tue May 25 00:39:40 1993 Ken Raeburn (raeburn@cygnus.com) * hppa.h: Use new version from Utah if OLD_TABLE isn't defined; gdb will define it for now. Mon May 24 15:20:06 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * sparc.h: Don't end enumerator list with comma. Fri May 14 15:15:50 1993 Ian Lance Taylor (ian@cygnus.com) * Based on patches from davidj@ICSI.Berkeley.EDU (David Johnson): * mips.h (OP_MASK_COPZ, OP_SH_COPZ): Define. ("bc2t"): Correct typo. ("[ls]wc[023]"): Use T rather than t. ("c[0123]"): Define general coprocessor instructions. Mon May 10 06:02:25 1993 Ken Raeburn (raeburn@kr-pc.cygnus.com) * m68k.h: Move split point for gcc compilation more towards middle. Fri Apr 9 13:26:16 1993 Jim Kingdon (kingdon@cygnus.com) * rs6k.h: Clean up instructions for primary opcode 19 (many were simply wrong, ics, rfi, & rfsvc were missing). Add "a" to opr_ext for "bb". Doc fix. Thu Mar 18 13:45:31 1993 Per Bothner (bothner@rtl.cygnus.com) * i386.h: 486 extensions from John Hassey (hassey@dg-rtp.dg.com). * mips.h: Add casts, to suppress warnings about shifting too much. * m68k.h: Document the placement code '9'. Thu Feb 18 02:03:14 1993 John Gilmore (gnu@cygnus.com) * m68k.h (BREAK_UP_BIG_DECL, AND_OTHER_PART): Add kludge which allows callers to break up the large initialized struct full of opcodes into two half-sized ones. This permits GCC to compile this module, since it takes exponential space for initializers. (numopcodes, endop): Revise to use AND_OTHER_PART in size calcs. Thu Feb 4 02:06:56 1993 John Gilmore (gnu@cygnus.com) * a29k.h: Remove RCS crud, update GPL to v2, update copyrights. * convex.h: Added, from GDB's convx-opcode.h. Added CONST to all initialized structs in it. Thu Jan 28 21:32:22 1993 John Gilmore (gnu@cygnus.com) Delta 88 changes inspired by Carl Greco, : * m88k.h (PMEM): Avoid previous definition from . (AND): Change to AND_ to avoid ansidecl.h `AND' conflict. Sat Jan 23 18:10:49 PST 1993 Ralph Campbell (ralphc@pyramid.com) * mips.h: document "i" and "j" operands correctly. Thu Jan 7 15:58:13 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips.h: Removed endianness dependency. Sun Jan 3 14:13:35 1993 Steve Chamberlain (sac@thepub.cygnus.com) * h8300.h: include info on number of cycles per instruction. Mon Dec 21 21:29:08 1992 Stu Grossman (grossman at cygnus.com) * hppa.h: Move handy aliases to the front. Fix masks for extract and deposit instructions. Sat Dec 12 16:09:48 1992 Ian Lance Taylor (ian@cygnus.com) * i386.h: accept shld and shrd both with and without the shift count argument, which is always %cl. Fri Nov 27 17:13:18 1992 Ken Raeburn (raeburn at cygnus.com) * i386.h (i386_optab_end, i386_regtab_end): Now const. (one_byte_segment_defaults, two_byte_segment_defaults, i386_prefixtab_end): Ditto. Mon Nov 23 10:47:25 1992 Ken Raeburn (raeburn@cygnus.com) * vax.h (bb*): Use "v" (bitfield type), not "a" (address operand) for operand 2; from John Carr, jfc@dsg.dec.com. Wed Nov 4 07:36:49 1992 Ken Raeburn (raeburn@cygnus.com) * m68k.h: Define FIXED_SIZE_BRANCH, so bsr and bra instructions always use 16-bit offsets. Makes calculated-size jump tables feasible. Fri Oct 16 22:52:43 1992 Ken Raeburn (raeburn@cygnus.com) * i386.h: Fix one-operand forms of in* and out* patterns. Tue Sep 22 14:08:14 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * m68k.h: Added CPU32 support. Tue Sep 22 00:38:41 1992 John Gilmore (gnu@cygnus.com) * mips.h (break): Disassemble the argument. Patch from jonathan@cs.stanford.edu (Jonathan Stone). Wed Sep 9 11:25:28 1992 Ian Lance Taylor (ian@cygnus.com) * m68k.h: merged Motorola and MIT syntax. Thu Sep 3 09:33:22 1992 Steve Chamberlain (sac@thepub.cygnus.com) * m68k.h (pmove): make the tests less strict, the 68k book is wrong. Tue Aug 25 23:25:19 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * m68k.h (m68ec030): Defined as alias for 68030. (m68k_opcodes): New type characters "3" for 68030 MMU regs and "t" for immediate 0-7 added. Set up some opcodes (ptest, bkpt) to use them. Tightened description of "fmovex" to distinguish it from some "pmove" encodings. Added "pmove" for 68030 MMU regs, cleaned up descriptions that claimed versions were available for chips not supporting them. Added "pmovefd". Mon Aug 24 12:04:51 1992 Steve Chamberlain (sac@thepub.cygnus.com) * m68k.h: fix where the . goes in divull Wed Aug 19 11:22:24 1992 Ian Lance Taylor (ian@cygnus.com) * m68k.h: the cas2 instruction is supposed to be written with indirection on the last two operands, which can be either data or address registers. Added a new operand type 'r' which accepts either register type. Added new cases for cas2l and cas2w which use them. Corrected masks for cas2 which failed to recognize use of address register. Fri Aug 14 14:20:38 1992 Per Bothner (bothner@cygnus.com) * m68k.h: Merged in patches (mostly m68040-specific) from Colin Smith . * m68k.h: Merged m68kmri.h and m68k.h (using the former as a base). Also cleaned up duplicates, re-ordered instructions for the sake of dis-assembling (so aliases come after standard names). * m68kmri.h: Now just defines some macros, and #includes m68k.h. Wed Aug 12 16:38:15 1992 Steve Chamberlain (sac@thepub.cygnus.com) * m68kmri.h: added various opcodes. Moved jbxx to bxxes. Filled in all missing .s Mon Aug 10 23:22:33 1992 Ken Raeburn (raeburn@cygnus.com) * sparc.h: Moved tables to BFD library. * i386.h (i386_optab): Add fildq, fistpq aliases used by gcc. Sun Jun 28 13:29:03 1992 Fred Fish (fnf@cygnus.com) * h8300.h: Finish filling in all the holes in the opcode table, so that the Lucid C compiler can digest this as well... Fri Jun 26 21:27:17 1992 John Gilmore (gnu at cygnus.com) * i386.h: Add setc, setnc, addr16, data16, repz, repnz aliases. Fix opcodes on various sizes of fild/fist instructions (16bit=no suffix, 32bit="l" suffix, 64bit="ll" suffix). Use tabs to indent for comments. Fixes suggested by Minh Tran-Le. Thu Jun 25 16:13:26 1992 Stu Grossman (grossman at cygnus.com) * h8300.h: Fill in all the holes in the opcode table so that the losing HPUX C compiler can digest this... Thu Jun 11 12:15:25 1992 John Gilmore (gnu at cygnus.com) * mips.h: Fix decoding of coprocessor instructions, somewhat. (Fix by Eric Anderson, 3jean@maas-neotek.arc.nasa.gov.) Thu May 28 11:17:44 1992 Jim Wilson (wilson@sphagnum.cygnus.com) * sparc.h: Add new architecture variant sparclite; add its scan and divscc opcodes. Define ARCHITECTURES_CONFLICT_P macro. Tue May 5 14:23:27 1992 Per Bothner (bothner@rtl.cygnus.com) * mips.h: Add some more opcode synonyms (from Frank Yellin, fy@lucid.com). Thu Apr 16 18:25:26 1992 Per Bothner (bothner@cygnus.com) * rs6k.h: New version from IBM (Metin). Thu Apr 9 00:31:19 1992 Per Bothner (bothner@rtl.cygnus.com) * rs6k.h: Fix incorrect extended opcode for instructions `fm' and `fd'. (From metin@ibmpa.awdpa.ibm.com (Metin G. Ozisik).) Tue Apr 7 13:38:47 1992 Stu Grossman (grossman at cygnus.com) * rs6k.h: Move from ../../gdb/rs6k-opcode.h. Fri Apr 3 11:30:20 1992 Fred Fish (fnf@cygnus.com) * m68k.h (one, two): Cast macro args to unsigned to suppress complaints from compiler and lint about integer overflow during shift. Sun Mar 29 12:22:08 1992 John Gilmore (gnu at cygnus.com) * sparc.h (OP): Avoid signed overflow when shifting to high order bit. Fri Mar 6 00:22:38 1992 John Gilmore (gnu at cygnus.com) * mips.h: Make bitfield layout depend on the HOST compiler, not on the TARGET system. Fri Feb 21 01:29:51 1992 K. Richard Pixley (rich@cygnus.com) * i386.h: added inb, inw, outb, outw opcodes, added att syntax for scmp, slod, smov, ssca, ssto. Curtesy Minh Tran-Le . Thu Jan 30 07:31:44 1992 Steve Chamberlain (sac at rtl.cygnus.com) * h8300.h: turned op_type enum into #define list Thu Jan 30 01:07:24 1992 John Gilmore (gnu at cygnus.com) * sparc.h: Remove "cypress" architecture. Remove "fitox" and similar instructions -- they've been renamed to "fitoq", etc. REALLY fix tsubcctv. Fix "fcmpeq" and "fcmpq" which had wrong number of arguments. * h8300.h: Remove extra ; which produces compiler warning. Tue Jan 28 22:59:22 1992 Stu Grossman (grossman at cygnus.com) * sparc.h: fix opcode for tsubcctv. Tue Jan 7 17:19:39 1992 K. Richard Pixley (rich at cygnus.com) * sparc.h: fba and cba are now aliases for fb and cb respectively. Fri Dec 27 10:55:50 1991 Per Bothner (bothner at cygnus.com) * sparc.h (nop): Made the 'lose' field be even tighter, so only a standard 'nop' is disassembled as a nop. Sun Dec 22 12:18:18 1991 Michael Tiemann (tiemann at cygnus.com) * sparc.h (nop): Add RD_GO to `lose' so that only %g0 in dest is disassembled as a nop. Tue Dec 10 00:22:20 1991 K. Richard Pixley (rich at rtl.cygnus.com) * sparc.h: fix a typo. Sat Nov 30 20:40:51 1991 Steve Chamberlain (sac at rtl.cygnus.com) * a29k.h, arm.h, h8300.h, i386.h, i860.h, i960.h , m68k.h, m88k.h, mips.h , np1.h, ns32k.h, pn.h, pyr.h, sparc.h, tahoe.h, vax.h, ChangeLog: renamed from ../-opcode.h Local Variables: version-control: never End: gdb-4.13/include/opcode/a29k.h 666 34562 1752 23600 5334165441 14376 0ustar fnfcygnus/* Table of opcodes for the AMD 29000 family. Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB and GAS. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ struct a29k_opcode { /* Name of the instruction. */ char *name; /* Opcode word */ unsigned long opcode; /* A string of characters which describe the operands. Valid characters are: , Itself. The character appears in the assembly code. a RA. The register number is in bits 8-15 of the instruction. b RB. The register number is in bits 0-7 of the instruction. c RC. The register number is in bits 16-23 of the instruction. i An immediate operand is in bits 0-7 of the instruction. x Bits 0-7 and 16-23 of the instruction are bits 0-7 and 8-15 (respectively) of the immediate operand. h Same as x but the instruction contains bits 16-31 of the immediate operand. X Same as x but bits 16-31 of the signed immediate operand are set to 1 (thus the operand is always negative). P,A Bits 0-7 and 16-23 of the instruction are bits 2-9 and 10-17 (respectively) of the immediate operand. P=PC-relative, sign-extended to 32 bits. A=Absolute, zero-extended to 32 bits. e CE bit (bit 23) for a load/store instruction. n Control field (bits 16-22) for a load/store instruction. v Immediate operand in bits 16-23 of the instruction. (used for trap numbers). s SA. Special-purpose register number in bits 8-15 of the instruction. u UI--bit 7 of the instruction. r RND--bits 4-6 of the instruction. d FD--bits 2-3 of the instruction. f FS--bits 0-1 of the instruction. Extensions for 29050: d FMT--bits 2-3 of the instruction (not really new). f ACN--bits 0-1 of the instruction (not really new). F FUNC--Special function in bits 18-21 of the instruction. C ACN--bits 16-17 specifying the accumlator register. */ char *args; }; #ifndef CONST #define CONST #endif /* CONST */ static CONST struct a29k_opcode a29k_opcodes[] = { { "add", 0x14000000, "c,a,b" }, { "add", 0x15000000, "c,a,i" }, { "addc", 0x1c000000, "c,a,b" }, { "addc", 0x1d000000, "c,a,i" }, { "addcs", 0x18000000, "c,a,b" }, { "addcs", 0x19000000, "c,a,i" }, { "addcu", 0x1a000000, "c,a,b" }, { "addcu", 0x1b000000, "c,a,i" }, { "adds", 0x10000000, "c,a,b" }, { "adds", 0x11000000, "c,a,i" }, { "addu", 0x12000000, "c,a,b" }, { "addu", 0x13000000, "c,a,i" }, { "and", 0x90000000, "c,a,b" }, { "and", 0x91000000, "c,a,i" }, { "andn", 0x9c000000, "c,a,b" }, { "andn", 0x9d000000, "c,a,i" }, { "aseq", 0x70000000, "v,a,b" }, { "aseq", 0x71000000, "v,a,i" }, { "asge", 0x5c000000, "v,a,b" }, { "asge", 0x5d000000, "v,a,i" }, { "asgeu", 0x5e000000, "v,a,b" }, { "asgeu", 0x5f000000, "v,a,i" }, { "asgt", 0x58000000, "v,a,b" }, { "asgt", 0x59000000, "v,a,i" }, { "asgtu", 0x5a000000, "v,a,b" }, { "asgtu", 0x5b000000, "v,a,i" }, { "asle", 0x54000000, "v,a,b" }, { "asle", 0x55000000, "v,a,i" }, { "asleu", 0x56000000, "v,a,b" }, { "asleu", 0x57000000, "v,a,i" }, { "aslt", 0x50000000, "v,a,b" }, { "aslt", 0x51000000, "v,a,i" }, { "asltu", 0x52000000, "v,a,b" }, { "asltu", 0x53000000, "v,a,i" }, { "asneq", 0x72000000, "v,a,b" }, { "asneq", 0x73000000, "v,a,i" }, { "call", 0xa8000000, "a,P" }, { "call", 0xa9000000, "a,A" }, { "calli", 0xc8000000, "a,b" }, { "class", 0xe6000000, "c,a,f" }, { "clz", 0x08000000, "c,b" }, { "clz", 0x09000000, "c,i" }, { "const", 0x03000000, "a,x" }, { "consth", 0x02000000, "a,h" }, { "consthz", 0x05000000, "a,h" }, { "constn", 0x01000000, "a,X" }, { "convert", 0xe4000000, "c,a,u,r,d,f" }, { "cpbyte", 0x2e000000, "c,a,b" }, { "cpbyte", 0x2f000000, "c,a,i" }, { "cpeq", 0x60000000, "c,a,b" }, { "cpeq", 0x61000000, "c,a,i" }, { "cpge", 0x4c000000, "c,a,b" }, { "cpge", 0x4d000000, "c,a,i" }, { "cpgeu", 0x4e000000, "c,a,b" }, { "cpgeu", 0x4f000000, "c,a,i" }, { "cpgt", 0x48000000, "c,a,b" }, { "cpgt", 0x49000000, "c,a,i" }, { "cpgtu", 0x4a000000, "c,a,b" }, { "cpgtu", 0x4b000000, "c,a,i" }, { "cple", 0x44000000, "c,a,b" }, { "cple", 0x45000000, "c,a,i" }, { "cpleu", 0x46000000, "c,a,b" }, { "cpleu", 0x47000000, "c,a,i" }, { "cplt", 0x40000000, "c,a,b" }, { "cplt", 0x41000000, "c,a,i" }, { "cpltu", 0x42000000, "c,a,b" }, { "cpltu", 0x43000000, "c,a,i" }, { "cpneq", 0x62000000, "c,a,b" }, { "cpneq", 0x63000000, "c,a,i" }, { "dadd", 0xf1000000, "c,a,b" }, { "ddiv", 0xf7000000, "c,a,b" }, { "deq", 0xeb000000, "c,a,b" }, { "dge", 0xef000000, "c,a,b" }, { "dgt", 0xed000000, "c,a,b" }, { "div", 0x6a000000, "c,a,b" }, { "div", 0x6b000000, "c,a,i" }, { "div0", 0x68000000, "c,b" }, { "div0", 0x69000000, "c,i" }, { "divide", 0xe1000000, "c,a,b" }, { "dividu", 0xe3000000, "c,a,b" }, { "divl", 0x6c000000, "c,a,b" }, { "divl", 0x6d000000, "c,a,i" }, { "divrem", 0x6e000000, "c,a,b" }, { "divrem", 0x6f000000, "c,a,i" }, { "dmac", 0xd9000000, "F,C,a,b" }, { "dmsm", 0xdb000000, "c,a,b" }, { "dmul", 0xf5000000, "c,a,b" }, { "dsub", 0xf3000000, "c,a,b" }, { "emulate", 0xd7000000, "v,a,b" }, { "exbyte", 0x0a000000, "c,a,b" }, { "exbyte", 0x0b000000, "c,a,i" }, { "exhw", 0x7c000000, "c,a,b" }, { "exhw", 0x7d000000, "c,a,i" }, { "exhws", 0x7e000000, "c,a" }, { "extract", 0x7a000000, "c,a,b" }, { "extract", 0x7b000000, "c,a,i" }, { "fadd", 0xf0000000, "c,a,b" }, { "fdiv", 0xf6000000, "c,a,b" }, { "fdmul", 0xf9000000, "c,a,b" }, { "feq", 0xea000000, "c,a,b" }, { "fge", 0xee000000, "c,a,b" }, { "fgt", 0xec000000, "c,a,b" }, { "fmac", 0xd8000000, "F,C,a,b" }, { "fmsm", 0xda000000, "c,a,b" }, { "fmul", 0xf4000000, "c,a,b" }, { "fsub", 0xf2000000, "c,a,b" }, { "halt", 0x89000000, "" }, { "inbyte", 0x0c000000, "c,a,b" }, { "inbyte", 0x0d000000, "c,a,i" }, { "inhw", 0x78000000, "c,a,b" }, { "inhw", 0x79000000, "c,a,i" }, { "inv", 0x9f000000, "" }, { "iret", 0x88000000, "" }, { "iretinv", 0x8c000000, "" }, { "jmp", 0xa0000000, "P" }, { "jmp", 0xa1000000, "A" }, { "jmpf", 0xa4000000, "a,P" }, { "jmpf", 0xa5000000, "a,A" }, { "jmpfdec", 0xb4000000, "a,P" }, { "jmpfdec", 0xb5000000, "a,A" }, { "jmpfi", 0xc4000000, "a,b" }, { "jmpi", 0xc0000000, "b" }, { "jmpt", 0xac000000, "a,P" }, { "jmpt", 0xad000000, "a,A" }, { "jmpti", 0xcc000000, "a,b" }, { "load", 0x16000000, "e,n,a,b" }, { "load", 0x17000000, "e,n,a,i" }, { "loadl", 0x06000000, "e,n,a,b" }, { "loadl", 0x07000000, "e,n,a,i" }, { "loadm", 0x36000000, "e,n,a,b" }, { "loadm", 0x37000000, "e,n,a,i" }, { "loadset", 0x26000000, "e,n,a,b" }, { "loadset", 0x27000000, "e,n,a,i" }, { "mfacc", 0xe9000100, "c,d,f" }, { "mfsr", 0xc6000000, "c,s" }, { "mftlb", 0xb6000000, "c,a" }, { "mtacc", 0xe8010000, "a,d,f" }, { "mtsr", 0xce000000, "s,b" }, { "mtsrim", 0x04000000, "s,x" }, { "mttlb", 0xbe000000, "a,b" }, { "mul", 0x64000000, "c,a,b" }, { "mul", 0x65000000, "c,a,i" }, { "mull", 0x66000000, "c,a,b" }, { "mull", 0x67000000, "c,a,i" }, { "multiplu", 0xe2000000, "c,a,b" }, { "multiply", 0xe0000000, "c,a,b" }, { "multm", 0xde000000, "c,a,b" }, { "multmu", 0xdf000000, "c,a,b" }, { "mulu", 0x74000000, "c,a,b" }, { "mulu", 0x75000000, "c,a,i" }, { "nand", 0x9a000000, "c,a,b" }, { "nand", 0x9b000000, "c,a,i" }, { "nop", 0x70400101, "" }, { "nor", 0x98000000, "c,a,b" }, { "nor", 0x99000000, "c,a,i" }, { "or", 0x92000000, "c,a,b" }, { "or", 0x93000000, "c,a,i" }, { "orn", 0xaa000000, "c,a,b" }, { "orn", 0xab000000, "c,a,i" }, /* The description of "setip" in Chapter 8 ("instruction set") of the user's manual claims that these are absolute register numbers. But section 7.2.1 explains that they are not. The latter is correct, so print these normally ("lr0", "lr5", etc.). */ { "setip", 0x9e000000, "c,a,b" }, { "sll", 0x80000000, "c,a,b" }, { "sll", 0x81000000, "c,a,i" }, { "sqrt", 0xe5000000, "c,a,f" }, { "sra", 0x86000000, "c,a,b" }, { "sra", 0x87000000, "c,a,i" }, { "srl", 0x82000000, "c,a,b" }, { "srl", 0x83000000, "c,a,i" }, { "store", 0x1e000000, "e,n,a,b" }, { "store", 0x1f000000, "e,n,a,i" }, { "storel", 0x0e000000, "e,n,a,b" }, { "storel", 0x0f000000, "e,n,a,i" }, { "storem", 0x3e000000, "e,n,a,b" }, { "storem", 0x3f000000, "e,n,a,i" }, { "sub", 0x24000000, "c,a,b" }, { "sub", 0x25000000, "c,a,i" }, { "subc", 0x2c000000, "c,a,b" }, { "subc", 0x2d000000, "c,a,i" }, { "subcs", 0x28000000, "c,a,b" }, { "subcs", 0x29000000, "c,a,i" }, { "subcu", 0x2a000000, "c,a,b" }, { "subcu", 0x2b000000, "c,a,i" }, { "subr", 0x34000000, "c,a,b" }, { "subr", 0x35000000, "c,a,i" }, { "subrc", 0x3c000000, "c,a,b" }, { "subrc", 0x3d000000, "c,a,i" }, { "subrcs", 0x38000000, "c,a,b" }, { "subrcs", 0x39000000, "c,a,i" }, { "subrcu", 0x3a000000, "c,a,b" }, { "subrcu", 0x3b000000, "c,a,i" }, { "subrs", 0x30000000, "c,a,b" }, { "subrs", 0x31000000, "c,a,i" }, { "subru", 0x32000000, "c,a,b" }, { "subru", 0x33000000, "c,a,i" }, { "subs", 0x20000000, "c,a,b" }, { "subs", 0x21000000, "c,a,i" }, { "subu", 0x22000000, "c,a,b" }, { "subu", 0x23000000, "c,a,i" }, { "xnor", 0x96000000, "c,a,b" }, { "xnor", 0x97000000, "c,a,i" }, { "xor", 0x94000000, "c,a,b" }, { "xor", 0x95000000, "c,a,i" }, { "", 0x0, "" } /* Dummy entry, not included in NUM_OPCODES. This lets code examine entry i+1 without checking if we've run off the end of the table. */ }; CONST unsigned int num_opcodes = (((sizeof a29k_opcodes) / (sizeof a29k_opcodes[0])) - 1); gdb-4.13/include/opcode/arm.h 666 34562 1752 26212 5116043535 14406 0ustar fnfcygnus/* ARM opcode list. Copyright (C) 1989, Free Software Foundation, Inc. This file is part of GDB and GAS. GDB and GAS are 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 1, or (at your option) any later version. GDB and GAS are 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 GDB or GAS; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* types of instruction (encoded in bits 26 and 27 of the instruction) */ #define TYPE_ARITHMETIC 0 #define TYPE_LDR_STR 1 #define TYPE_BLOCK_BRANCH 2 #define TYPE_SWI 3 /* bit 25 decides whether an instruction is a block move or a branch */ #define SUBTYPE_BLOCK 0 #define SUBTYPE_BRANCH 1 /* codes to distinguish the arithmetic instructions */ #define OPCODE_AND 0 #define OPCODE_EOR 1 #define OPCODE_SUB 2 #define OPCODE_RSB 3 #define OPCODE_ADD 4 #define OPCODE_ADC 5 #define OPCODE_SBC 6 #define OPCODE_RSC 7 #define OPCODE_TST 8 #define OPCODE_TEQ 9 #define OPCODE_CMP 10 #define OPCODE_CMN 11 #define OPCODE_ORR 12 #define OPCODE_MOV 13 #define OPCODE_BIC 14 #define OPCODE_MVN 15 /* condition codes */ #define COND_EQ 0 #define COND_NE 1 #define COND_CS 2 #define COND_CC 3 #define COND_MI 4 #define COND_PL 5 #define COND_VS 6 #define COND_VC 7 #define COND_HI 8 #define COND_LS 9 #define COND_GE 10 #define COND_LT 11 #define COND_GT 12 #define COND_LE 13 #define COND_AL 14 #define COND_NV 15 /* Describes the format of an ARM machine instruction */ struct generic_fmt { unsigned rest :25; /* the rest of the instruction */ unsigned subtype :1; /* used to decide between block and branch */ unsigned type :2; /* one of TYPE_* */ unsigned cond :4; /* one of COND_* defined above */ }; struct arith_fmt { unsigned operand2 :12; /* #nn or rn or rn shift #m or rn shift rm */ unsigned dest :4; /* place where the answer goes */ unsigned operand1 :4; /* first operand to instruction */ unsigned set :1; /* == 1 means set processor flags */ unsigned opcode :4; /* one of OPCODE_* defined above */ unsigned immed :1; /* operand2 is an immediate value */ unsigned type :2; /* == TYPE_ARITHMETIC */ unsigned cond :4; /* one of COND_* defined above */ }; struct ldr_str_fmt { unsigned offset :12; /* #nn or rn or rn shift #m */ unsigned reg :4; /* destination for LDR, source for STR */ unsigned base :4; /* base register */ unsigned is_load :1; /* == 1 for LDR */ unsigned writeback :1; /* == 1 means write back (base+offset) into base */ unsigned byte :1; /* == 1 means byte access else word */ unsigned up :1; /* == 1 means add offset else subtract it */ unsigned pre_index :1; /* == 1 means [a,b] form else [a],b form */ unsigned immed :1; /* == 0 means immediate offset */ unsigned type :2; /* == TYPE_LDR_STR */ unsigned cond :4; /* one of COND_* defined above */ }; struct block_fmt { unsigned mask :16; /* register mask */ unsigned base :4; /* register used as base of move */ unsigned is_load :1; /* == 1 for LDM */ unsigned writeback :1; /* == 1 means update base after move */ unsigned set :1; /* == 1 means set flags in pc if included in mask */ unsigned increment :1; /* == 1 means increment base register */ unsigned before :1; /* == 1 means inc/dec before each move */ unsigned is_block :1; /* == SUBTYPE_BLOCK */ unsigned type :2; /* == TYPE_BLOCK_BRANCH */ unsigned cond :4; /* one of COND_* defined above */ }; struct branch_fmt { unsigned dest :24; /* destination of the branch */ unsigned link :1; /* branch with link (function call) */ unsigned is_branch :1; /* == SUBTYPE_BRANCH */ unsigned type :2; /* == TYPE_BLOCK_BRANCH */ unsigned cond :4; /* one of COND_* defined above */ }; #define ROUND_N 0 #define ROUND_P 1 #define ROUND_M 2 #define ROUND_Z 3 #define FLOAT2_MVF 0 #define FLOAT2_MNF 1 #define FLOAT2_ABS 2 #define FLOAT2_RND 3 #define FLOAT2_SQT 4 #define FLOAT2_LOG 5 #define FLOAT2_LGN 6 #define FLOAT2_EXP 7 #define FLOAT2_SIN 8 #define FLOAT2_COS 9 #define FLOAT2_TAN 10 #define FLOAT2_ASN 11 #define FLOAT2_ACS 12 #define FLOAT2_ATN 13 #define FLOAT3_ADF 0 #define FLOAT3_MUF 1 #define FLOAT3_SUF 2 #define FLOAT3_RSF 3 #define FLOAT3_DVF 4 #define FLOAT3_RDF 5 #define FLOAT3_POW 6 #define FLOAT3_RPW 7 #define FLOAT3_RMF 8 #define FLOAT3_FML 9 #define FLOAT3_FDV 10 #define FLOAT3_FRD 11 #define FLOAT3_POL 12 struct float2_fmt { unsigned operand2 :3; /* second operand */ unsigned immed :1; /* == 1 if second operand is a constant */ unsigned pad1 :1; /* == 0 */ unsigned rounding :2; /* ROUND_* */ unsigned is_double :1; /* == 1 if precision is double (only if not extended) */ unsigned pad2 :4; /* == 1 */ unsigned dest :3; /* destination */ unsigned is_2_op :1; /* == 1 if 2 operand ins */ unsigned operand1 :3; /* first operand (only of is_2_op == 0) */ unsigned is_extended :1; /* == 1 if precision is extended */ unsigned opcode :4; /* FLOAT2_* or FLOAT3_* depending on is_2_op */ unsigned must_be_2 :2; /* == 2 */ unsigned type :2; /* == TYPE_SWI */ unsigned cond :4; /* COND_* */ }; struct swi_fmt { unsigned argument :24; /* argument to SWI (syscall number) */ unsigned must_be_3 :2; /* == 3 */ unsigned type :2; /* == TYPE_SWI */ unsigned cond :4; /* one of COND_* defined above */ }; union insn_fmt { struct generic_fmt generic; struct arith_fmt arith; struct ldr_str_fmt ldr_str; struct block_fmt block; struct branch_fmt branch; struct swi_fmt swi; unsigned long ins; }; struct opcode { unsigned long value, mask; /* recognise instruction if (op&mask)==value */ char *assembler; /* how to disassemble this instruction */ }; /* format of the assembler string : %% % %d print the bitfield in decimal %x print the bitfield in hex %r print as an ARM register %f print a floating point constant if >7 else an fp register %c print condition code (always bits 28-31) %P print floating point precision in arithmetic insn %Q print floating point precision in ldf/stf insn %R print floating point rounding mode %'c print specified char iff bit is one %`c print specified char iff bit is zero %?ab print a if bit is one else print b %p print 'p' iff bits 12-15 are 15 %o print operand2 (immediate or register + shift) %a print address for ldr/str instruction %b print branch destination %A print address for ldc/stc/ldf/stf instruction %m print register mask for ldm/stm instruction */ static struct opcode opcodes[] = { /* ARM instructions */ 0x00000090, 0x0fe000f0, "mul%20's %12-15r, %16-19r, %0-3r", 0x00200090, 0x0fe000f0, "mla%20's %12-15r, %16-19r, %0-3r, %8-11r", 0x00000000, 0x0de00000, "and%c%20's %12-15r, %16-19r, %o", 0x00200000, 0x0de00000, "eor%c%20's %12-15r, %16-19r, %o", 0x00400000, 0x0de00000, "sub%c%20's %12-15r, %16-19r, %o", 0x00600000, 0x0de00000, "rsb%c%20's %12-15r, %16-19r, %o", 0x00800000, 0x0de00000, "add%c%20's %12-15r, %16-19r, %o", 0x00a00000, 0x0de00000, "adc%c%20's %12-15r, %16-19r, %o", 0x00c00000, 0x0de00000, "sbc%c%20's %12-15r, %16-19r, %o", 0x00e00000, 0x0de00000, "rsc%c%20's %12-15r, %16-19r, %o", 0x01000000, 0x0de00000, "tst%c%p %16-19r, %o", 0x01200000, 0x0de00000, "teq%c%p %16-19r, %o", 0x01400000, 0x0de00000, "cmp%c%p %16-19r, %o", 0x01600000, 0x0de00000, "cmn%c%p %16-19r, %o", 0x01800000, 0x0de00000, "orr%c%20's %12-15r, %16-19r, %o", 0x01a00000, 0x0de00000, "mov%c%20's %12-15r, %o", 0x01c00000, 0x0de00000, "bic%c%20's %12-15r, %16-19r, %o", 0x01e00000, 0x0de00000, "mvn%c%20's %12-15r, %o", 0x04000000, 0x0c100000, "str%c%22'b %12-15r, %a", 0x04100000, 0x0c100000, "ldr%c%22'b %12-15r, %a", 0x08000000, 0x0e100000, "stm%c%23?id%24?ba %16-19r%22`!, %m", 0x08100000, 0x0e100000, "ldm%c%23?id%24?ba %16-19r%22`!, %m%22'^", 0x0a000000, 0x0e000000, "b%c%24'l %b", 0x0f000000, 0x0f000000, "swi%c %0-23x", /* Floating point coprocessor instructions */ 0x0e000100, 0x0ff08f10, "adf%c%P%R %12-14f, %16-18f, %0-3f", 0x0e100100, 0x0ff08f10, "muf%c%P%R %12-14f, %16-18f, %0-3f", 0x0e200100, 0x0ff08f10, "suf%c%P%R %12-14f, %16-18f, %0-3f", 0x0e300100, 0x0ff08f10, "rsf%c%P%R %12-14f, %16-18f, %0-3f", 0x0e400100, 0x0ff08f10, "dvf%c%P%R %12-14f, %16-18f, %0-3f", 0x0e500100, 0x0ff08f10, "rdf%c%P%R %12-14f, %16-18f, %0-3f", 0x0e600100, 0x0ff08f10, "pow%c%P%R %12-14f, %16-18f, %0-3f", 0x0e700100, 0x0ff08f10, "rpw%c%P%R %12-14f, %16-18f, %0-3f", 0x0e800100, 0x0ff08f10, "rmf%c%P%R %12-14f, %16-18f, %0-3f", 0x0e900100, 0x0ff08f10, "fml%c%P%R %12-14f, %16-18f, %0-3f", 0x0ea00100, 0x0ff08f10, "fdv%c%P%R %12-14f, %16-18f, %0-3f", 0x0eb00100, 0x0ff08f10, "frd%c%P%R %12-14f, %16-18f, %0-3f", 0x0ec00100, 0x0ff08f10, "pol%c%P%R %12-14f, %16-18f, %0-3f", 0x0e008100, 0x0ff08f10, "mvf%c%P%R %12-14f, %0-3f", 0x0e108100, 0x0ff08f10, "mnf%c%P%R %12-14f, %0-3f", 0x0e208100, 0x0ff08f10, "abs%c%P%R %12-14f, %0-3f", 0x0e308100, 0x0ff08f10, "rnd%c%P%R %12-14f, %0-3f", 0x0e408100, 0x0ff08f10, "sqt%c%P%R %12-14f, %0-3f", 0x0e508100, 0x0ff08f10, "log%c%P%R %12-14f, %0-3f", 0x0e608100, 0x0ff08f10, "lgn%c%P%R %12-14f, %0-3f", 0x0e708100, 0x0ff08f10, "exp%c%P%R %12-14f, %0-3f", 0x0e808100, 0x0ff08f10, "sin%c%P%R %12-14f, %0-3f", 0x0e908100, 0x0ff08f10, "cos%c%P%R %12-14f, %0-3f", 0x0ea08100, 0x0ff08f10, "tan%c%P%R %12-14f, %0-3f", 0x0eb08100, 0x0ff08f10, "asn%c%P%R %12-14f, %0-3f", 0x0ec08100, 0x0ff08f10, "acs%c%P%R %12-14f, %0-3f", 0x0ed08100, 0x0ff08f10, "atn%c%P%R %12-14f, %0-3f", 0x0e000110, 0x0ff00f1f, "flt%c%P%R %16-18f, %12-15r", 0x0e100110, 0x0fff0f98, "fix%c%R %12-15r, %0-2f", 0x0e200110, 0x0fff0fff, "wfs%c %12-15r", 0x0e300110, 0x0fff0fff, "rfs%c %12-15r", 0x0e400110, 0x0fff0fff, "wfc%c %12-15r", 0x0e500110, 0x0fff0fff, "rfc%c %12-15r", 0x0e90f110, 0x0ff8fff0, "cmf%c %16-18f, %0-3f", 0x0eb0f110, 0x0ff8fff0, "cnf%c %16-18f, %0-3f", 0x0ed0f110, 0x0ff8fff0, "cmfe%c %16-18f, %0-3f", 0x0ef0f110, 0x0ff8fff0, "cnfe%c %16-18f, %0-3f", 0x0c000100, 0x0e100f00, "stf%c%Q %12-14f, %A", 0x0c100100, 0x0e100f00, "ldf%c%Q %12-14f, %A", /* Generic coprocessor instructions */ 0x0e000000, 0x0f000010, "cdp%c %8-11d, %20-23d, cr%12-15d, cr%16-19d, cr%0-3d, {%5-7d}", 0x0e000010, 0x0f100010, "mrc%c %8-11d, %21-23d, %12-15r, cr%16-19d, cr%0-3d, {%5-7d}", 0x0e100010, 0x0f100010, "mcr%c %8-11d, %21-23d, %12-15r, cr%16-19d, cr%0-3d, {%5-7d}", 0x0c000000, 0x0e100000, "stc%c%22`l %8-11d, cr%12-15d, %A", 0x0c100000, 0x0e100000, "ldc%c%22`l %8-11d, cr%12-15d, %A", /* the rest */ 0x00000000, 0x00000000, "undefined instruction %0-31x", }; #define N_OPCODES (sizeof opcodes / sizeof opcodes[0]) gdb-4.13/include/opcode/convex.h 666 34562 1752 123544 5334165443 15164 0ustar fnfcygnus/* Information for instruction disassembly on the Convex. Copyright 1989, 1993 Free Software Foundation. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef CONST #define CONST #endif /* CONST */ #define xxx 0 #define rrr 1 #define rr 2 #define rxr 3 #define r 4 #define nops 5 #define nr 6 #define pcrel 7 #define lr 8 #define rxl 9 #define rlr 10 #define rrl 11 #define iml 12 #define imr 13 #define a1r 14 #define a1l 15 #define a2r 16 #define a2l 17 #define a3 18 #define a4 19 #define a5 20 #define V 1 #define S 2 #define VM 3 #define A 4 #define VL 5 #define VS 6 #define VLS 7 #define PSW 8 /* Prevent an error during "make depend". */ #if !defined (PC) #define PC 9 #endif #define ITR 10 #define VV 11 #define ITSR 12 #define TOC 13 #define CIR 14 #define TTR 15 #define VMU 16 #define VML 17 #define ICR 18 #define TCPU 19 #define CPUID 20 #define TID 21 CONST char *op[] = { "", "v0\0v1\0v2\0v3\0v4\0v5\0v6\0v7", "s0\0s1\0s2\0s3\0s4\0s5\0s6\0s7", "vm", "sp\0a1\0a2\0a3\0a4\0a5\0ap\0fp", "vl", "vs", "vls", "psw", "pc", "itr", "vv", "itsr", "toc", "cir", "ttr", "vmu", "vml", "icr", "tcpu", "cpuid", "tid", }; CONST struct formstr format0[] = { {0,0,rrr,V,S,S}, /* mov */ {0,0,rrr,S,S,V}, /* mov */ {1,1,rrr,V,V,V}, /* merg.t */ {2,1,rrr,V,V,V}, /* mask.t */ {1,2,rrr,V,S,V}, /* merg.f */ {2,2,rrr,V,S,V}, /* mask.f */ {1,1,rrr,V,S,V}, /* merg.t */ {2,1,rrr,V,S,V}, /* mask.t */ {3,3,rrr,V,V,V}, /* mul.s */ {3,4,rrr,V,V,V}, /* mul.d */ {4,3,rrr,V,V,V}, /* div.s */ {4,4,rrr,V,V,V}, /* div.d */ {3,3,rrr,V,S,V}, /* mul.s */ {3,4,rrr,V,S,V}, /* mul.d */ {4,3,rrr,V,S,V}, /* div.s */ {4,4,rrr,V,S,V}, /* div.d */ {5,0,rrr,V,V,V}, /* and */ {6,0,rrr,V,V,V}, /* or */ {7,0,rrr,V,V,V}, /* xor */ {8,0,rrr,V,V,V}, /* shf */ {5,0,rrr,V,S,V}, /* and */ {6,0,rrr,V,S,V}, /* or */ {7,0,rrr,V,S,V}, /* xor */ {8,0,rrr,V,S,V}, /* shf */ {9,3,rrr,V,V,V}, /* add.s */ {9,4,rrr,V,V,V}, /* add.d */ {10,3,rrr,V,V,V}, /* sub.s */ {10,4,rrr,V,V,V}, /* sub.d */ {9,3,rrr,V,S,V}, /* add.s */ {9,4,rrr,V,S,V}, /* add.d */ {10,3,rrr,V,S,V}, /* sub.s */ {10,4,rrr,V,S,V}, /* sub.d */ {9,5,rrr,V,V,V}, /* add.b */ {9,6,rrr,V,V,V}, /* add.h */ {9,7,rrr,V,V,V}, /* add.w */ {9,8,rrr,V,V,V}, /* add.l */ {9,5,rrr,V,S,V}, /* add.b */ {9,6,rrr,V,S,V}, /* add.h */ {9,7,rrr,V,S,V}, /* add.w */ {9,8,rrr,V,S,V}, /* add.l */ {10,5,rrr,V,V,V}, /* sub.b */ {10,6,rrr,V,V,V}, /* sub.h */ {10,7,rrr,V,V,V}, /* sub.w */ {10,8,rrr,V,V,V}, /* sub.l */ {10,5,rrr,V,S,V}, /* sub.b */ {10,6,rrr,V,S,V}, /* sub.h */ {10,7,rrr,V,S,V}, /* sub.w */ {10,8,rrr,V,S,V}, /* sub.l */ {3,5,rrr,V,V,V}, /* mul.b */ {3,6,rrr,V,V,V}, /* mul.h */ {3,7,rrr,V,V,V}, /* mul.w */ {3,8,rrr,V,V,V}, /* mul.l */ {3,5,rrr,V,S,V}, /* mul.b */ {3,6,rrr,V,S,V}, /* mul.h */ {3,7,rrr,V,S,V}, /* mul.w */ {3,8,rrr,V,S,V}, /* mul.l */ {4,5,rrr,V,V,V}, /* div.b */ {4,6,rrr,V,V,V}, /* div.h */ {4,7,rrr,V,V,V}, /* div.w */ {4,8,rrr,V,V,V}, /* div.l */ {4,5,rrr,V,S,V}, /* div.b */ {4,6,rrr,V,S,V}, /* div.h */ {4,7,rrr,V,S,V}, /* div.w */ {4,8,rrr,V,S,V}, /* div.l */ }; CONST struct formstr format1[] = { {11,0,xxx,0,0,0}, /* exit */ {12,0,a3,0,0,0}, /* jmp */ {13,2,a3,0,0,0}, /* jmpi.f */ {13,1,a3,0,0,0}, /* jmpi.t */ {14,2,a3,0,0,0}, /* jmpa.f */ {14,1,a3,0,0,0}, /* jmpa.t */ {15,2,a3,0,0,0}, /* jmps.f */ {15,1,a3,0,0,0}, /* jmps.t */ {16,0,a3,0,0,0}, /* tac */ {17,0,a1r,A,0,0}, /* ldea */ {18,8,a1l,VLS,0,0}, /* ld.l */ {18,9,a1l,VM,0,0}, /* ld.x */ {19,0,a3,0,0,0}, /* tas */ {20,0,a3,0,0,0}, /* pshea */ {21,8,a2l,VLS,0,0}, /* st.l */ {21,9,a2l,VM,0,0}, /* st.x */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {22,0,a3,0,0,0}, /* call */ {23,0,a3,0,0,0}, /* calls */ {24,0,a3,0,0,0}, /* callq */ {25,0,a1r,A,0,0}, /* pfork */ {26,5,a2r,S,0,0}, /* ste.b */ {26,6,a2r,S,0,0}, /* ste.h */ {26,7,a2r,S,0,0}, /* ste.w */ {26,8,a2r,S,0,0}, /* ste.l */ {18,5,a1r,A,0,0}, /* ld.b */ {18,6,a1r,A,0,0}, /* ld.h */ {18,7,a1r,A,0,0}, /* ld.w */ {27,7,a1r,A,0,0}, /* incr.w */ {21,5,a2r,A,0,0}, /* st.b */ {21,6,a2r,A,0,0}, /* st.h */ {21,7,a2r,A,0,0}, /* st.w */ {27,8,a1r,S,0,0}, /* incr.l */ {18,5,a1r,S,0,0}, /* ld.b */ {18,6,a1r,S,0,0}, /* ld.h */ {18,7,a1r,S,0,0}, /* ld.w */ {18,8,a1r,S,0,0}, /* ld.l */ {21,5,a2r,S,0,0}, /* st.b */ {21,6,a2r,S,0,0}, /* st.h */ {21,7,a2r,S,0,0}, /* st.w */ {21,8,a2r,S,0,0}, /* st.l */ {18,5,a1r,V,0,0}, /* ld.b */ {18,6,a1r,V,0,0}, /* ld.h */ {18,7,a1r,V,0,0}, /* ld.w */ {18,8,a1r,V,0,0}, /* ld.l */ {21,5,a2r,V,0,0}, /* st.b */ {21,6,a2r,V,0,0}, /* st.h */ {21,7,a2r,V,0,0}, /* st.w */ {21,8,a2r,V,0,0}, /* st.l */ }; CONST struct formstr format2[] = { {28,5,rr,A,A,0}, /* cvtw.b */ {28,6,rr,A,A,0}, /* cvtw.h */ {29,7,rr,A,A,0}, /* cvtb.w */ {30,7,rr,A,A,0}, /* cvth.w */ {28,5,rr,S,S,0}, /* cvtw.b */ {28,6,rr,S,S,0}, /* cvtw.h */ {29,7,rr,S,S,0}, /* cvtb.w */ {30,7,rr,S,S,0}, /* cvth.w */ {28,3,rr,S,S,0}, /* cvtw.s */ {31,7,rr,S,S,0}, /* cvts.w */ {32,3,rr,S,S,0}, /* cvtd.s */ {31,4,rr,S,S,0}, /* cvts.d */ {31,8,rr,S,S,0}, /* cvts.l */ {32,8,rr,S,S,0}, /* cvtd.l */ {33,3,rr,S,S,0}, /* cvtl.s */ {33,4,rr,S,S,0}, /* cvtl.d */ {34,0,rr,A,A,0}, /* ldpa */ {8,0,nr,A,0,0}, /* shf */ {18,6,nr,A,0,0}, /* ld.h */ {18,7,nr,A,0,0}, /* ld.w */ {33,7,rr,S,S,0}, /* cvtl.w */ {28,8,rr,S,S,0}, /* cvtw.l */ {35,1,rr,S,S,0}, /* plc.t */ {36,0,rr,S,S,0}, /* tzc */ {37,6,rr,A,A,0}, /* eq.h */ {37,7,rr,A,A,0}, /* eq.w */ {37,6,nr,A,0,0}, /* eq.h */ {37,7,nr,A,0,0}, /* eq.w */ {37,5,rr,S,S,0}, /* eq.b */ {37,6,rr,S,S,0}, /* eq.h */ {37,7,rr,S,S,0}, /* eq.w */ {37,8,rr,S,S,0}, /* eq.l */ {38,6,rr,A,A,0}, /* leu.h */ {38,7,rr,A,A,0}, /* leu.w */ {38,6,nr,A,0,0}, /* leu.h */ {38,7,nr,A,0,0}, /* leu.w */ {38,5,rr,S,S,0}, /* leu.b */ {38,6,rr,S,S,0}, /* leu.h */ {38,7,rr,S,S,0}, /* leu.w */ {38,8,rr,S,S,0}, /* leu.l */ {39,6,rr,A,A,0}, /* ltu.h */ {39,7,rr,A,A,0}, /* ltu.w */ {39,6,nr,A,0,0}, /* ltu.h */ {39,7,nr,A,0,0}, /* ltu.w */ {39,5,rr,S,S,0}, /* ltu.b */ {39,6,rr,S,S,0}, /* ltu.h */ {39,7,rr,S,S,0}, /* ltu.w */ {39,8,rr,S,S,0}, /* ltu.l */ {40,6,rr,A,A,0}, /* le.h */ {40,7,rr,A,A,0}, /* le.w */ {40,6,nr,A,0,0}, /* le.h */ {40,7,nr,A,0,0}, /* le.w */ {40,5,rr,S,S,0}, /* le.b */ {40,6,rr,S,S,0}, /* le.h */ {40,7,rr,S,S,0}, /* le.w */ {40,8,rr,S,S,0}, /* le.l */ {41,6,rr,A,A,0}, /* lt.h */ {41,7,rr,A,A,0}, /* lt.w */ {41,6,nr,A,0,0}, /* lt.h */ {41,7,nr,A,0,0}, /* lt.w */ {41,5,rr,S,S,0}, /* lt.b */ {41,6,rr,S,S,0}, /* lt.h */ {41,7,rr,S,S,0}, /* lt.w */ {41,8,rr,S,S,0}, /* lt.l */ {9,7,rr,S,A,0}, /* add.w */ {8,0,rr,A,A,0}, /* shf */ {0,0,rr,A,A,0}, /* mov */ {0,0,rr,S,A,0}, /* mov */ {0,7,rr,S,S,0}, /* mov.w */ {8,0,rr,S,S,0}, /* shf */ {0,0,rr,S,S,0}, /* mov */ {0,0,rr,A,S,0}, /* mov */ {5,0,rr,A,A,0}, /* and */ {6,0,rr,A,A,0}, /* or */ {7,0,rr,A,A,0}, /* xor */ {42,0,rr,A,A,0}, /* not */ {5,0,rr,S,S,0}, /* and */ {6,0,rr,S,S,0}, /* or */ {7,0,rr,S,S,0}, /* xor */ {42,0,rr,S,S,0}, /* not */ {40,3,rr,S,S,0}, /* le.s */ {40,4,rr,S,S,0}, /* le.d */ {41,3,rr,S,S,0}, /* lt.s */ {41,4,rr,S,S,0}, /* lt.d */ {9,3,rr,S,S,0}, /* add.s */ {9,4,rr,S,S,0}, /* add.d */ {10,3,rr,S,S,0}, /* sub.s */ {10,4,rr,S,S,0}, /* sub.d */ {37,3,rr,S,S,0}, /* eq.s */ {37,4,rr,S,S,0}, /* eq.d */ {43,6,rr,A,A,0}, /* neg.h */ {43,7,rr,A,A,0}, /* neg.w */ {3,3,rr,S,S,0}, /* mul.s */ {3,4,rr,S,S,0}, /* mul.d */ {4,3,rr,S,S,0}, /* div.s */ {4,4,rr,S,S,0}, /* div.d */ {9,6,rr,A,A,0}, /* add.h */ {9,7,rr,A,A,0}, /* add.w */ {9,6,nr,A,0,0}, /* add.h */ {9,7,nr,A,0,0}, /* add.w */ {9,5,rr,S,S,0}, /* add.b */ {9,6,rr,S,S,0}, /* add.h */ {9,7,rr,S,S,0}, /* add.w */ {9,8,rr,S,S,0}, /* add.l */ {10,6,rr,A,A,0}, /* sub.h */ {10,7,rr,A,A,0}, /* sub.w */ {10,6,nr,A,0,0}, /* sub.h */ {10,7,nr,A,0,0}, /* sub.w */ {10,5,rr,S,S,0}, /* sub.b */ {10,6,rr,S,S,0}, /* sub.h */ {10,7,rr,S,S,0}, /* sub.w */ {10,8,rr,S,S,0}, /* sub.l */ {3,6,rr,A,A,0}, /* mul.h */ {3,7,rr,A,A,0}, /* mul.w */ {3,6,nr,A,0,0}, /* mul.h */ {3,7,nr,A,0,0}, /* mul.w */ {3,5,rr,S,S,0}, /* mul.b */ {3,6,rr,S,S,0}, /* mul.h */ {3,7,rr,S,S,0}, /* mul.w */ {3,8,rr,S,S,0}, /* mul.l */ {4,6,rr,A,A,0}, /* div.h */ {4,7,rr,A,A,0}, /* div.w */ {4,6,nr,A,0,0}, /* div.h */ {4,7,nr,A,0,0}, /* div.w */ {4,5,rr,S,S,0}, /* div.b */ {4,6,rr,S,S,0}, /* div.h */ {4,7,rr,S,S,0}, /* div.w */ {4,8,rr,S,S,0}, /* div.l */ }; CONST struct formstr format3[] = { {32,3,rr,V,V,0}, /* cvtd.s */ {31,4,rr,V,V,0}, /* cvts.d */ {33,4,rr,V,V,0}, /* cvtl.d */ {32,8,rr,V,V,0}, /* cvtd.l */ {0,0,rrl,S,S,VM}, /* mov */ {0,0,rlr,S,VM,S}, /* mov */ {0,0,0,0,0,0}, {44,0,rr,S,S,0}, /* lop */ {36,0,rr,V,V,0}, /* tzc */ {44,0,rr,V,V,0}, /* lop */ {0,0,0,0,0,0}, {42,0,rr,V,V,0}, /* not */ {8,0,rr,S,V,0}, /* shf */ {35,1,rr,V,V,0}, /* plc.t */ {45,2,rr,V,V,0}, /* cprs.f */ {45,1,rr,V,V,0}, /* cprs.t */ {37,3,rr,V,V,0}, /* eq.s */ {37,4,rr,V,V,0}, /* eq.d */ {43,3,rr,V,V,0}, /* neg.s */ {43,4,rr,V,V,0}, /* neg.d */ {37,3,rr,S,V,0}, /* eq.s */ {37,4,rr,S,V,0}, /* eq.d */ {43,3,rr,S,S,0}, /* neg.s */ {43,4,rr,S,S,0}, /* neg.d */ {40,3,rr,V,V,0}, /* le.s */ {40,4,rr,V,V,0}, /* le.d */ {41,3,rr,V,V,0}, /* lt.s */ {41,4,rr,V,V,0}, /* lt.d */ {40,3,rr,S,V,0}, /* le.s */ {40,4,rr,S,V,0}, /* le.d */ {41,3,rr,S,V,0}, /* lt.s */ {41,4,rr,S,V,0}, /* lt.d */ {37,5,rr,V,V,0}, /* eq.b */ {37,6,rr,V,V,0}, /* eq.h */ {37,7,rr,V,V,0}, /* eq.w */ {37,8,rr,V,V,0}, /* eq.l */ {37,5,rr,S,V,0}, /* eq.b */ {37,6,rr,S,V,0}, /* eq.h */ {37,7,rr,S,V,0}, /* eq.w */ {37,8,rr,S,V,0}, /* eq.l */ {40,5,rr,V,V,0}, /* le.b */ {40,6,rr,V,V,0}, /* le.h */ {40,7,rr,V,V,0}, /* le.w */ {40,8,rr,V,V,0}, /* le.l */ {40,5,rr,S,V,0}, /* le.b */ {40,6,rr,S,V,0}, /* le.h */ {40,7,rr,S,V,0}, /* le.w */ {40,8,rr,S,V,0}, /* le.l */ {41,5,rr,V,V,0}, /* lt.b */ {41,6,rr,V,V,0}, /* lt.h */ {41,7,rr,V,V,0}, /* lt.w */ {41,8,rr,V,V,0}, /* lt.l */ {41,5,rr,S,V,0}, /* lt.b */ {41,6,rr,S,V,0}, /* lt.h */ {41,7,rr,S,V,0}, /* lt.w */ {41,8,rr,S,V,0}, /* lt.l */ {43,5,rr,V,V,0}, /* neg.b */ {43,6,rr,V,V,0}, /* neg.h */ {43,7,rr,V,V,0}, /* neg.w */ {43,8,rr,V,V,0}, /* neg.l */ {43,5,rr,S,S,0}, /* neg.b */ {43,6,rr,S,S,0}, /* neg.h */ {43,7,rr,S,S,0}, /* neg.w */ {43,8,rr,S,S,0}, /* neg.l */ }; CONST struct formstr format4[] = { {46,0,nops,0,0,0}, /* nop */ {47,0,pcrel,0,0,0}, /* br */ {48,2,pcrel,0,0,0}, /* bri.f */ {48,1,pcrel,0,0,0}, /* bri.t */ {49,2,pcrel,0,0,0}, /* bra.f */ {49,1,pcrel,0,0,0}, /* bra.t */ {50,2,pcrel,0,0,0}, /* brs.f */ {50,1,pcrel,0,0,0}, /* brs.t */ }; CONST struct formstr format5[] = { {51,5,rr,V,V,0}, /* ldvi.b */ {51,6,rr,V,V,0}, /* ldvi.h */ {51,7,rr,V,V,0}, /* ldvi.w */ {51,8,rr,V,V,0}, /* ldvi.l */ {28,3,rr,V,V,0}, /* cvtw.s */ {31,7,rr,V,V,0}, /* cvts.w */ {28,8,rr,V,V,0}, /* cvtw.l */ {33,7,rr,V,V,0}, /* cvtl.w */ {52,5,rxr,V,V,0}, /* stvi.b */ {52,6,rxr,V,V,0}, /* stvi.h */ {52,7,rxr,V,V,0}, /* stvi.w */ {52,8,rxr,V,V,0}, /* stvi.l */ {52,5,rxr,S,V,0}, /* stvi.b */ {52,6,rxr,S,V,0}, /* stvi.h */ {52,7,rxr,S,V,0}, /* stvi.w */ {52,8,rxr,S,V,0}, /* stvi.l */ }; CONST struct formstr format6[] = { {53,0,r,A,0,0}, /* ldsdr */ {54,0,r,A,0,0}, /* ldkdr */ {55,3,r,S,0,0}, /* ln.s */ {55,4,r,S,0,0}, /* ln.d */ {56,0,nops,0,0,0}, /* patu */ {57,0,r,A,0,0}, /* pate */ {58,0,nops,0,0,0}, /* pich */ {59,0,nops,0,0,0}, /* plch */ {0,0,lr,PSW,A,0}, /* mov */ {0,0,rxl,A,PSW,0}, /* mov */ {0,0,lr,PC,A,0}, /* mov */ {60,0,r,S,0,0}, /* idle */ {0,0,lr,ITR,S,0}, /* mov */ {0,0,rxl,S,ITR,0}, /* mov */ {0,0,0,0,0,0}, {0,0,rxl,S,ITSR,0}, /* mov */ {61,0,nops,0,0,0}, /* rtnq */ {62,0,nops,0,0,0}, /* cfork */ {63,0,nops,0,0,0}, /* rtn */ {64,0,nops,0,0,0}, /* wfork */ {65,0,nops,0,0,0}, /* join */ {66,0,nops,0,0,0}, /* rtnc */ {67,3,r,S,0,0}, /* exp.s */ {67,4,r,S,0,0}, /* exp.d */ {68,3,r,S,0,0}, /* sin.s */ {68,4,r,S,0,0}, /* sin.d */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {69,3,r,S,0,0}, /* cos.s */ {69,4,r,S,0,0}, /* cos.d */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {70,7,r,A,0,0}, /* psh.w */ {0,0,0,0,0,0}, {71,7,r,A,0,0}, /* pop.w */ {0,0,0,0,0,0}, {70,7,r,S,0,0}, /* psh.w */ {70,8,r,S,0,0}, /* psh.l */ {71,7,r,S,0,0}, /* pop.w */ {71,8,r,S,0,0}, /* pop.l */ {72,0,nops,0,0,0}, /* eni */ {73,0,nops,0,0,0}, /* dsi */ {74,0,nops,0,0,0}, /* bkpt */ {75,0,nops,0,0,0}, /* msync */ {76,0,r,S,0,0}, /* mski */ {77,0,r,S,0,0}, /* xmti */ {0,0,rxl,S,VV,0}, /* mov */ {78,0,nops,0,0,0}, /* tstvv */ {0,0,lr,VS,A,0}, /* mov */ {0,0,rxl,A,VS,0}, /* mov */ {0,0,lr,VL,A,0}, /* mov */ {0,0,rxl,A,VL,0}, /* mov */ {0,7,lr,VS,S,0}, /* mov.w */ {0,7,rxl,S,VS,0}, /* mov.w */ {0,7,lr,VL,S,0}, /* mov.w */ {0,7,rxl,S,VL,0}, /* mov.w */ {79,0,r,A,0,0}, /* diag */ {80,0,nops,0,0,0}, /* pbkpt */ {81,3,r,S,0,0}, /* sqrt.s */ {81,4,r,S,0,0}, /* sqrt.d */ {82,0,nops,0,0,0}, /* casr */ {0,0,0,0,0,0}, {83,3,r,S,0,0}, /* atan.s */ {83,4,r,S,0,0}, /* atan.d */ }; CONST struct formstr format7[] = { {84,5,r,V,0,0}, /* sum.b */ {84,6,r,V,0,0}, /* sum.h */ {84,7,r,V,0,0}, /* sum.w */ {84,8,r,V,0,0}, /* sum.l */ {85,0,r,V,0,0}, /* all */ {86,0,r,V,0,0}, /* any */ {87,0,r,V,0,0}, /* parity */ {0,0,0,0,0,0}, {88,5,r,V,0,0}, /* max.b */ {88,6,r,V,0,0}, /* max.h */ {88,7,r,V,0,0}, /* max.w */ {88,8,r,V,0,0}, /* max.l */ {89,5,r,V,0,0}, /* min.b */ {89,6,r,V,0,0}, /* min.h */ {89,7,r,V,0,0}, /* min.w */ {89,8,r,V,0,0}, /* min.l */ {84,3,r,V,0,0}, /* sum.s */ {84,4,r,V,0,0}, /* sum.d */ {90,3,r,V,0,0}, /* prod.s */ {90,4,r,V,0,0}, /* prod.d */ {88,3,r,V,0,0}, /* max.s */ {88,4,r,V,0,0}, /* max.d */ {89,3,r,V,0,0}, /* min.s */ {89,4,r,V,0,0}, /* min.d */ {90,5,r,V,0,0}, /* prod.b */ {90,6,r,V,0,0}, /* prod.h */ {90,7,r,V,0,0}, /* prod.w */ {90,8,r,V,0,0}, /* prod.l */ {35,2,lr,VM,S,0}, /* plc.f */ {35,1,lr,VM,S,0}, /* plc.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr formatx[] = { {0,0,0,0,0,0}, }; CONST struct formstr format1a[] = { {91,0,imr,A,0,0}, /* halt */ {92,0,a4,0,0,0}, /* sysc */ {18,6,imr,A,0,0}, /* ld.h */ {18,7,imr,A,0,0}, /* ld.w */ {5,0,imr,A,0,0}, /* and */ {6,0,imr,A,0,0}, /* or */ {7,0,imr,A,0,0}, /* xor */ {8,0,imr,A,0,0}, /* shf */ {9,6,imr,A,0,0}, /* add.h */ {9,7,imr,A,0,0}, /* add.w */ {10,6,imr,A,0,0}, /* sub.h */ {10,7,imr,A,0,0}, /* sub.w */ {3,6,imr,A,0,0}, /* mul.h */ {3,7,imr,A,0,0}, /* mul.w */ {4,6,imr,A,0,0}, /* div.h */ {4,7,imr,A,0,0}, /* div.w */ {18,7,iml,VL,0,0}, /* ld.w */ {18,7,iml,VS,0,0}, /* ld.w */ {0,0,0,0,0,0}, {8,7,imr,S,0,0}, /* shf.w */ {93,0,a5,0,0,0}, /* trap */ {0,0,0,0,0,0}, {37,6,imr,A,0,0}, /* eq.h */ {37,7,imr,A,0,0}, /* eq.w */ {38,6,imr,A,0,0}, /* leu.h */ {38,7,imr,A,0,0}, /* leu.w */ {39,6,imr,A,0,0}, /* ltu.h */ {39,7,imr,A,0,0}, /* ltu.w */ {40,6,imr,A,0,0}, /* le.h */ {40,7,imr,A,0,0}, /* le.w */ {41,6,imr,A,0,0}, /* lt.h */ {41,7,imr,A,0,0}, /* lt.w */ }; CONST struct formstr format1b[] = { {18,4,imr,S,0,0}, /* ld.d */ {18,10,imr,S,0,0}, /* ld.u */ {18,8,imr,S,0,0}, /* ld.l */ {18,7,imr,S,0,0}, /* ld.w */ {5,0,imr,S,0,0}, /* and */ {6,0,imr,S,0,0}, /* or */ {7,0,imr,S,0,0}, /* xor */ {8,0,imr,S,0,0}, /* shf */ {9,6,imr,S,0,0}, /* add.h */ {9,7,imr,S,0,0}, /* add.w */ {10,6,imr,S,0,0}, /* sub.h */ {10,7,imr,S,0,0}, /* sub.w */ {3,6,imr,S,0,0}, /* mul.h */ {3,7,imr,S,0,0}, /* mul.w */ {4,6,imr,S,0,0}, /* div.h */ {4,7,imr,S,0,0}, /* div.w */ {9,3,imr,S,0,0}, /* add.s */ {10,3,imr,S,0,0}, /* sub.s */ {3,3,imr,S,0,0}, /* mul.s */ {4,3,imr,S,0,0}, /* div.s */ {40,3,imr,S,0,0}, /* le.s */ {41,3,imr,S,0,0}, /* lt.s */ {37,6,imr,S,0,0}, /* eq.h */ {37,7,imr,S,0,0}, /* eq.w */ {38,6,imr,S,0,0}, /* leu.h */ {38,7,imr,S,0,0}, /* leu.w */ {39,6,imr,S,0,0}, /* ltu.h */ {39,7,imr,S,0,0}, /* ltu.w */ {40,6,imr,S,0,0}, /* le.h */ {40,7,imr,S,0,0}, /* le.w */ {41,6,imr,S,0,0}, /* lt.h */ {41,7,imr,S,0,0}, /* lt.w */ }; CONST struct formstr e0_format0[] = { {10,3,rrr,S,V,V}, /* sub.s */ {10,4,rrr,S,V,V}, /* sub.d */ {4,3,rrr,S,V,V}, /* div.s */ {4,4,rrr,S,V,V}, /* div.d */ {10,11,rrr,S,V,V}, /* sub.s.f */ {10,12,rrr,S,V,V}, /* sub.d.f */ {4,11,rrr,S,V,V}, /* div.s.f */ {4,12,rrr,S,V,V}, /* div.d.f */ {3,11,rrr,V,V,V}, /* mul.s.f */ {3,12,rrr,V,V,V}, /* mul.d.f */ {4,11,rrr,V,V,V}, /* div.s.f */ {4,12,rrr,V,V,V}, /* div.d.f */ {3,11,rrr,V,S,V}, /* mul.s.f */ {3,12,rrr,V,S,V}, /* mul.d.f */ {4,11,rrr,V,S,V}, /* div.s.f */ {4,12,rrr,V,S,V}, /* div.d.f */ {5,2,rrr,V,V,V}, /* and.f */ {6,2,rrr,V,V,V}, /* or.f */ {7,2,rrr,V,V,V}, /* xor.f */ {8,2,rrr,V,V,V}, /* shf.f */ {5,2,rrr,V,S,V}, /* and.f */ {6,2,rrr,V,S,V}, /* or.f */ {7,2,rrr,V,S,V}, /* xor.f */ {8,2,rrr,V,S,V}, /* shf.f */ {9,11,rrr,V,V,V}, /* add.s.f */ {9,12,rrr,V,V,V}, /* add.d.f */ {10,11,rrr,V,V,V}, /* sub.s.f */ {10,12,rrr,V,V,V}, /* sub.d.f */ {9,11,rrr,V,S,V}, /* add.s.f */ {9,12,rrr,V,S,V}, /* add.d.f */ {10,11,rrr,V,S,V}, /* sub.s.f */ {10,12,rrr,V,S,V}, /* sub.d.f */ {9,13,rrr,V,V,V}, /* add.b.f */ {9,14,rrr,V,V,V}, /* add.h.f */ {9,15,rrr,V,V,V}, /* add.w.f */ {9,16,rrr,V,V,V}, /* add.l.f */ {9,13,rrr,V,S,V}, /* add.b.f */ {9,14,rrr,V,S,V}, /* add.h.f */ {9,15,rrr,V,S,V}, /* add.w.f */ {9,16,rrr,V,S,V}, /* add.l.f */ {10,13,rrr,V,V,V}, /* sub.b.f */ {10,14,rrr,V,V,V}, /* sub.h.f */ {10,15,rrr,V,V,V}, /* sub.w.f */ {10,16,rrr,V,V,V}, /* sub.l.f */ {10,13,rrr,V,S,V}, /* sub.b.f */ {10,14,rrr,V,S,V}, /* sub.h.f */ {10,15,rrr,V,S,V}, /* sub.w.f */ {10,16,rrr,V,S,V}, /* sub.l.f */ {3,13,rrr,V,V,V}, /* mul.b.f */ {3,14,rrr,V,V,V}, /* mul.h.f */ {3,15,rrr,V,V,V}, /* mul.w.f */ {3,16,rrr,V,V,V}, /* mul.l.f */ {3,13,rrr,V,S,V}, /* mul.b.f */ {3,14,rrr,V,S,V}, /* mul.h.f */ {3,15,rrr,V,S,V}, /* mul.w.f */ {3,16,rrr,V,S,V}, /* mul.l.f */ {4,13,rrr,V,V,V}, /* div.b.f */ {4,14,rrr,V,V,V}, /* div.h.f */ {4,15,rrr,V,V,V}, /* div.w.f */ {4,16,rrr,V,V,V}, /* div.l.f */ {4,13,rrr,V,S,V}, /* div.b.f */ {4,14,rrr,V,S,V}, /* div.h.f */ {4,15,rrr,V,S,V}, /* div.w.f */ {4,16,rrr,V,S,V}, /* div.l.f */ }; CONST struct formstr e0_format1[] = { {0,0,0,0,0,0}, {94,0,a3,0,0,0}, /* tst */ {95,0,a3,0,0,0}, /* lck */ {96,0,a3,0,0,0}, /* ulk */ {17,0,a1r,S,0,0}, /* ldea */ {97,0,a1r,A,0,0}, /* spawn */ {98,0,a1r,A,0,0}, /* ldcmr */ {99,0,a2r,A,0,0}, /* stcmr */ {100,0,a1r,A,0,0}, /* popr */ {101,0,a2r,A,0,0}, /* pshr */ {102,7,a1r,A,0,0}, /* rcvr.w */ {103,7,a2r,A,0,0}, /* matm.w */ {104,7,a2r,A,0,0}, /* sndr.w */ {104,8,a2r,S,0,0}, /* sndr.l */ {102,8,a1r,S,0,0}, /* rcvr.l */ {103,8,a2r,S,0,0}, /* matm.l */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {105,7,a2r,A,0,0}, /* putr.w */ {105,8,a2r,S,0,0}, /* putr.l */ {106,7,a1r,A,0,0}, /* getr.w */ {106,8,a1r,S,0,0}, /* getr.l */ {26,13,a2r,S,0,0}, /* ste.b.f */ {26,14,a2r,S,0,0}, /* ste.h.f */ {26,15,a2r,S,0,0}, /* ste.w.f */ {26,16,a2r,S,0,0}, /* ste.l.f */ {107,7,a2r,A,0,0}, /* matr.w */ {108,7,a2r,A,0,0}, /* mat.w */ {109,7,a1r,A,0,0}, /* get.w */ {110,7,a1r,A,0,0}, /* rcv.w */ {0,0,0,0,0,0}, {111,7,a1r,A,0,0}, /* inc.w */ {112,7,a2r,A,0,0}, /* put.w */ {113,7,a2r,A,0,0}, /* snd.w */ {107,8,a2r,S,0,0}, /* matr.l */ {108,8,a2r,S,0,0}, /* mat.l */ {109,8,a1r,S,0,0}, /* get.l */ {110,8,a1r,S,0,0}, /* rcv.l */ {0,0,0,0,0,0}, {111,8,a1r,S,0,0}, /* inc.l */ {112,8,a2r,S,0,0}, /* put.l */ {113,8,a2r,S,0,0}, /* snd.l */ {18,13,a1r,V,0,0}, /* ld.b.f */ {18,14,a1r,V,0,0}, /* ld.h.f */ {18,15,a1r,V,0,0}, /* ld.w.f */ {18,16,a1r,V,0,0}, /* ld.l.f */ {21,13,a2r,V,0,0}, /* st.b.f */ {21,14,a2r,V,0,0}, /* st.h.f */ {21,15,a2r,V,0,0}, /* st.w.f */ {21,16,a2r,V,0,0}, /* st.l.f */ }; CONST struct formstr e0_format2[] = { {28,5,rr,V,V,0}, /* cvtw.b */ {28,6,rr,V,V,0}, /* cvtw.h */ {29,7,rr,V,V,0}, /* cvtb.w */ {30,7,rr,V,V,0}, /* cvth.w */ {28,13,rr,V,V,0}, /* cvtw.b.f */ {28,14,rr,V,V,0}, /* cvtw.h.f */ {29,15,rr,V,V,0}, /* cvtb.w.f */ {30,15,rr,V,V,0}, /* cvth.w.f */ {31,8,rr,V,V,0}, /* cvts.l */ {32,7,rr,V,V,0}, /* cvtd.w */ {33,3,rr,V,V,0}, /* cvtl.s */ {28,4,rr,V,V,0}, /* cvtw.d */ {31,16,rr,V,V,0}, /* cvts.l.f */ {32,15,rr,V,V,0}, /* cvtd.w.f */ {33,11,rr,V,V,0}, /* cvtl.s.f */ {28,12,rr,V,V,0}, /* cvtw.d.f */ {114,0,rr,S,S,0}, /* enal */ {8,7,rr,S,S,0}, /* shf.w */ {115,0,rr,S,S,0}, /* enag */ {0,0,0,0,0,0}, {28,4,rr,S,S,0}, /* cvtw.d */ {32,7,rr,S,S,0}, /* cvtd.w */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {116,3,rr,S,S,0}, /* frint.s */ {116,4,rr,S,S,0}, /* frint.d */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {116,3,rr,V,V,0}, /* frint.s */ {116,4,rr,V,V,0}, /* frint.d */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {116,11,rr,V,V,0}, /* frint.s.f */ {116,12,rr,V,V,0}, /* frint.d.f */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {81,3,rr,V,V,0}, /* sqrt.s */ {81,4,rr,V,V,0}, /* sqrt.d */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {81,11,rr,V,V,0}, /* sqrt.s.f */ {81,12,rr,V,V,0}, /* sqrt.d.f */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr e0_format3[] = { {32,11,rr,V,V,0}, /* cvtd.s.f */ {31,12,rr,V,V,0}, /* cvts.d.f */ {33,12,rr,V,V,0}, /* cvtl.d.f */ {32,16,rr,V,V,0}, /* cvtd.l.f */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {36,2,rr,V,V,0}, /* tzc.f */ {44,2,rr,V,V,0}, /* lop.f */ {117,2,rr,V,V,0}, /* xpnd.f */ {42,2,rr,V,V,0}, /* not.f */ {8,2,rr,S,V,0}, /* shf.f */ {35,17,rr,V,V,0}, /* plc.t.f */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {37,11,rr,V,V,0}, /* eq.s.f */ {37,12,rr,V,V,0}, /* eq.d.f */ {43,11,rr,V,V,0}, /* neg.s.f */ {43,12,rr,V,V,0}, /* neg.d.f */ {37,11,rr,S,V,0}, /* eq.s.f */ {37,12,rr,S,V,0}, /* eq.d.f */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {40,11,rr,V,V,0}, /* le.s.f */ {40,12,rr,V,V,0}, /* le.d.f */ {41,11,rr,V,V,0}, /* lt.s.f */ {41,12,rr,V,V,0}, /* lt.d.f */ {40,11,rr,S,V,0}, /* le.s.f */ {40,12,rr,S,V,0}, /* le.d.f */ {41,11,rr,S,V,0}, /* lt.s.f */ {41,12,rr,S,V,0}, /* lt.d.f */ {37,13,rr,V,V,0}, /* eq.b.f */ {37,14,rr,V,V,0}, /* eq.h.f */ {37,15,rr,V,V,0}, /* eq.w.f */ {37,16,rr,V,V,0}, /* eq.l.f */ {37,13,rr,S,V,0}, /* eq.b.f */ {37,14,rr,S,V,0}, /* eq.h.f */ {37,15,rr,S,V,0}, /* eq.w.f */ {37,16,rr,S,V,0}, /* eq.l.f */ {40,13,rr,V,V,0}, /* le.b.f */ {40,14,rr,V,V,0}, /* le.h.f */ {40,15,rr,V,V,0}, /* le.w.f */ {40,16,rr,V,V,0}, /* le.l.f */ {40,13,rr,S,V,0}, /* le.b.f */ {40,14,rr,S,V,0}, /* le.h.f */ {40,15,rr,S,V,0}, /* le.w.f */ {40,16,rr,S,V,0}, /* le.l.f */ {41,13,rr,V,V,0}, /* lt.b.f */ {41,14,rr,V,V,0}, /* lt.h.f */ {41,15,rr,V,V,0}, /* lt.w.f */ {41,16,rr,V,V,0}, /* lt.l.f */ {41,13,rr,S,V,0}, /* lt.b.f */ {41,14,rr,S,V,0}, /* lt.h.f */ {41,15,rr,S,V,0}, /* lt.w.f */ {41,16,rr,S,V,0}, /* lt.l.f */ {43,13,rr,V,V,0}, /* neg.b.f */ {43,14,rr,V,V,0}, /* neg.h.f */ {43,15,rr,V,V,0}, /* neg.w.f */ {43,16,rr,V,V,0}, /* neg.l.f */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr e0_format4[] = { {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr e0_format5[] = { {51,13,rr,V,V,0}, /* ldvi.b.f */ {51,14,rr,V,V,0}, /* ldvi.h.f */ {51,15,rr,V,V,0}, /* ldvi.w.f */ {51,16,rr,V,V,0}, /* ldvi.l.f */ {28,11,rr,V,V,0}, /* cvtw.s.f */ {31,15,rr,V,V,0}, /* cvts.w.f */ {28,16,rr,V,V,0}, /* cvtw.l.f */ {33,15,rr,V,V,0}, /* cvtl.w.f */ {52,13,rxr,V,V,0}, /* stvi.b.f */ {52,14,rxr,V,V,0}, /* stvi.h.f */ {52,15,rxr,V,V,0}, /* stvi.w.f */ {52,16,rxr,V,V,0}, /* stvi.l.f */ {52,13,rxr,S,V,0}, /* stvi.b.f */ {52,14,rxr,S,V,0}, /* stvi.h.f */ {52,15,rxr,S,V,0}, /* stvi.w.f */ {52,16,rxr,S,V,0}, /* stvi.l.f */ }; CONST struct formstr e0_format6[] = { {0,0,rxl,S,CIR,0}, /* mov */ {0,0,lr,CIR,S,0}, /* mov */ {0,0,lr,TOC,S,0}, /* mov */ {0,0,lr,CPUID,S,0}, /* mov */ {0,0,rxl,S,TTR,0}, /* mov */ {0,0,lr,TTR,S,0}, /* mov */ {118,0,nops,0,0,0}, /* ctrsl */ {119,0,nops,0,0,0}, /* ctrsg */ {0,0,rxl,S,VMU,0}, /* mov */ {0,0,lr,VMU,S,0}, /* mov */ {0,0,rxl,S,VML,0}, /* mov */ {0,0,lr,VML,S,0}, /* mov */ {0,0,rxl,S,ICR,0}, /* mov */ {0,0,lr,ICR,S,0}, /* mov */ {0,0,rxl,S,TCPU,0}, /* mov */ {0,0,lr,TCPU,S,0}, /* mov */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {120,0,nops,0,0,0}, /* stop */ {0,0,0,0,0,0}, {0,0,rxl,S,TID,0}, /* mov */ {0,0,lr,TID,S,0}, /* mov */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr e0_format7[] = { {84,13,r,V,0,0}, /* sum.b.f */ {84,14,r,V,0,0}, /* sum.h.f */ {84,15,r,V,0,0}, /* sum.w.f */ {84,16,r,V,0,0}, /* sum.l.f */ {85,2,r,V,0,0}, /* all.f */ {86,2,r,V,0,0}, /* any.f */ {87,2,r,V,0,0}, /* parity.f */ {0,0,0,0,0,0}, {88,13,r,V,0,0}, /* max.b.f */ {88,14,r,V,0,0}, /* max.h.f */ {88,15,r,V,0,0}, /* max.w.f */ {88,16,r,V,0,0}, /* max.l.f */ {89,13,r,V,0,0}, /* min.b.f */ {89,14,r,V,0,0}, /* min.h.f */ {89,15,r,V,0,0}, /* min.w.f */ {89,16,r,V,0,0}, /* min.l.f */ {84,11,r,V,0,0}, /* sum.s.f */ {84,12,r,V,0,0}, /* sum.d.f */ {90,11,r,V,0,0}, /* prod.s.f */ {90,12,r,V,0,0}, /* prod.d.f */ {88,11,r,V,0,0}, /* max.s.f */ {88,12,r,V,0,0}, /* max.d.f */ {89,11,r,V,0,0}, /* min.s.f */ {89,12,r,V,0,0}, /* min.d.f */ {90,13,r,V,0,0}, /* prod.b.f */ {90,14,r,V,0,0}, /* prod.h.f */ {90,15,r,V,0,0}, /* prod.w.f */ {90,16,r,V,0,0}, /* prod.l.f */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr e1_format0[] = { {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {10,18,rrr,S,V,V}, /* sub.s.t */ {10,19,rrr,S,V,V}, /* sub.d.t */ {4,18,rrr,S,V,V}, /* div.s.t */ {4,19,rrr,S,V,V}, /* div.d.t */ {3,18,rrr,V,V,V}, /* mul.s.t */ {3,19,rrr,V,V,V}, /* mul.d.t */ {4,18,rrr,V,V,V}, /* div.s.t */ {4,19,rrr,V,V,V}, /* div.d.t */ {3,18,rrr,V,S,V}, /* mul.s.t */ {3,19,rrr,V,S,V}, /* mul.d.t */ {4,18,rrr,V,S,V}, /* div.s.t */ {4,19,rrr,V,S,V}, /* div.d.t */ {5,1,rrr,V,V,V}, /* and.t */ {6,1,rrr,V,V,V}, /* or.t */ {7,1,rrr,V,V,V}, /* xor.t */ {8,1,rrr,V,V,V}, /* shf.t */ {5,1,rrr,V,S,V}, /* and.t */ {6,1,rrr,V,S,V}, /* or.t */ {7,1,rrr,V,S,V}, /* xor.t */ {8,1,rrr,V,S,V}, /* shf.t */ {9,18,rrr,V,V,V}, /* add.s.t */ {9,19,rrr,V,V,V}, /* add.d.t */ {10,18,rrr,V,V,V}, /* sub.s.t */ {10,19,rrr,V,V,V}, /* sub.d.t */ {9,18,rrr,V,S,V}, /* add.s.t */ {9,19,rrr,V,S,V}, /* add.d.t */ {10,18,rrr,V,S,V}, /* sub.s.t */ {10,19,rrr,V,S,V}, /* sub.d.t */ {9,20,rrr,V,V,V}, /* add.b.t */ {9,21,rrr,V,V,V}, /* add.h.t */ {9,22,rrr,V,V,V}, /* add.w.t */ {9,23,rrr,V,V,V}, /* add.l.t */ {9,20,rrr,V,S,V}, /* add.b.t */ {9,21,rrr,V,S,V}, /* add.h.t */ {9,22,rrr,V,S,V}, /* add.w.t */ {9,23,rrr,V,S,V}, /* add.l.t */ {10,20,rrr,V,V,V}, /* sub.b.t */ {10,21,rrr,V,V,V}, /* sub.h.t */ {10,22,rrr,V,V,V}, /* sub.w.t */ {10,23,rrr,V,V,V}, /* sub.l.t */ {10,20,rrr,V,S,V}, /* sub.b.t */ {10,21,rrr,V,S,V}, /* sub.h.t */ {10,22,rrr,V,S,V}, /* sub.w.t */ {10,23,rrr,V,S,V}, /* sub.l.t */ {3,20,rrr,V,V,V}, /* mul.b.t */ {3,21,rrr,V,V,V}, /* mul.h.t */ {3,22,rrr,V,V,V}, /* mul.w.t */ {3,23,rrr,V,V,V}, /* mul.l.t */ {3,20,rrr,V,S,V}, /* mul.b.t */ {3,21,rrr,V,S,V}, /* mul.h.t */ {3,22,rrr,V,S,V}, /* mul.w.t */ {3,23,rrr,V,S,V}, /* mul.l.t */ {4,20,rrr,V,V,V}, /* div.b.t */ {4,21,rrr,V,V,V}, /* div.h.t */ {4,22,rrr,V,V,V}, /* div.w.t */ {4,23,rrr,V,V,V}, /* div.l.t */ {4,20,rrr,V,S,V}, /* div.b.t */ {4,21,rrr,V,S,V}, /* div.h.t */ {4,22,rrr,V,S,V}, /* div.w.t */ {4,23,rrr,V,S,V}, /* div.l.t */ }; CONST struct formstr e1_format1[] = { {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {26,20,a2r,S,0,0}, /* ste.b.t */ {26,21,a2r,S,0,0}, /* ste.h.t */ {26,22,a2r,S,0,0}, /* ste.w.t */ {26,23,a2r,S,0,0}, /* ste.l.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {18,20,a1r,V,0,0}, /* ld.b.t */ {18,21,a1r,V,0,0}, /* ld.h.t */ {18,22,a1r,V,0,0}, /* ld.w.t */ {18,23,a1r,V,0,0}, /* ld.l.t */ {21,20,a2r,V,0,0}, /* st.b.t */ {21,21,a2r,V,0,0}, /* st.h.t */ {21,22,a2r,V,0,0}, /* st.w.t */ {21,23,a2r,V,0,0}, /* st.l.t */ }; CONST struct formstr e1_format2[] = { {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {28,20,rr,V,V,0}, /* cvtw.b.t */ {28,21,rr,V,V,0}, /* cvtw.h.t */ {29,22,rr,V,V,0}, /* cvtb.w.t */ {30,22,rr,V,V,0}, /* cvth.w.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {31,23,rr,V,V,0}, /* cvts.l.t */ {32,22,rr,V,V,0}, /* cvtd.w.t */ {33,18,rr,V,V,0}, /* cvtl.s.t */ {28,19,rr,V,V,0}, /* cvtw.d.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {116,18,rr,V,V,0}, /* frint.s.t */ {116,19,rr,V,V,0}, /* frint.d.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {81,18,rr,V,V,0}, /* sqrt.s.t */ {81,19,rr,V,V,0}, /* sqrt.d.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr e1_format3[] = { {32,18,rr,V,V,0}, /* cvtd.s.t */ {31,19,rr,V,V,0}, /* cvts.d.t */ {33,19,rr,V,V,0}, /* cvtl.d.t */ {32,23,rr,V,V,0}, /* cvtd.l.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {36,1,rr,V,V,0}, /* tzc.t */ {44,1,rr,V,V,0}, /* lop.t */ {117,1,rr,V,V,0}, /* xpnd.t */ {42,1,rr,V,V,0}, /* not.t */ {8,1,rr,S,V,0}, /* shf.t */ {35,24,rr,V,V,0}, /* plc.t.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {37,18,rr,V,V,0}, /* eq.s.t */ {37,19,rr,V,V,0}, /* eq.d.t */ {43,18,rr,V,V,0}, /* neg.s.t */ {43,19,rr,V,V,0}, /* neg.d.t */ {37,18,rr,S,V,0}, /* eq.s.t */ {37,19,rr,S,V,0}, /* eq.d.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {40,18,rr,V,V,0}, /* le.s.t */ {40,19,rr,V,V,0}, /* le.d.t */ {41,18,rr,V,V,0}, /* lt.s.t */ {41,19,rr,V,V,0}, /* lt.d.t */ {40,18,rr,S,V,0}, /* le.s.t */ {40,19,rr,S,V,0}, /* le.d.t */ {41,18,rr,S,V,0}, /* lt.s.t */ {41,19,rr,S,V,0}, /* lt.d.t */ {37,20,rr,V,V,0}, /* eq.b.t */ {37,21,rr,V,V,0}, /* eq.h.t */ {37,22,rr,V,V,0}, /* eq.w.t */ {37,23,rr,V,V,0}, /* eq.l.t */ {37,20,rr,S,V,0}, /* eq.b.t */ {37,21,rr,S,V,0}, /* eq.h.t */ {37,22,rr,S,V,0}, /* eq.w.t */ {37,23,rr,S,V,0}, /* eq.l.t */ {40,20,rr,V,V,0}, /* le.b.t */ {40,21,rr,V,V,0}, /* le.h.t */ {40,22,rr,V,V,0}, /* le.w.t */ {40,23,rr,V,V,0}, /* le.l.t */ {40,20,rr,S,V,0}, /* le.b.t */ {40,21,rr,S,V,0}, /* le.h.t */ {40,22,rr,S,V,0}, /* le.w.t */ {40,23,rr,S,V,0}, /* le.l.t */ {41,20,rr,V,V,0}, /* lt.b.t */ {41,21,rr,V,V,0}, /* lt.h.t */ {41,22,rr,V,V,0}, /* lt.w.t */ {41,23,rr,V,V,0}, /* lt.l.t */ {41,20,rr,S,V,0}, /* lt.b.t */ {41,21,rr,S,V,0}, /* lt.h.t */ {41,22,rr,S,V,0}, /* lt.w.t */ {41,23,rr,S,V,0}, /* lt.l.t */ {43,20,rr,V,V,0}, /* neg.b.t */ {43,21,rr,V,V,0}, /* neg.h.t */ {43,22,rr,V,V,0}, /* neg.w.t */ {43,23,rr,V,V,0}, /* neg.l.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr e1_format4[] = { {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr e1_format5[] = { {51,20,rr,V,V,0}, /* ldvi.b.t */ {51,21,rr,V,V,0}, /* ldvi.h.t */ {51,22,rr,V,V,0}, /* ldvi.w.t */ {51,23,rr,V,V,0}, /* ldvi.l.t */ {28,18,rr,V,V,0}, /* cvtw.s.t */ {31,22,rr,V,V,0}, /* cvts.w.t */ {28,23,rr,V,V,0}, /* cvtw.l.t */ {33,22,rr,V,V,0}, /* cvtl.w.t */ {52,20,rxr,V,V,0}, /* stvi.b.t */ {52,21,rxr,V,V,0}, /* stvi.h.t */ {52,22,rxr,V,V,0}, /* stvi.w.t */ {52,23,rxr,V,V,0}, /* stvi.l.t */ {52,20,rxr,S,V,0}, /* stvi.b.t */ {52,21,rxr,S,V,0}, /* stvi.h.t */ {52,22,rxr,S,V,0}, /* stvi.w.t */ {52,23,rxr,S,V,0}, /* stvi.l.t */ }; CONST struct formstr e1_format6[] = { {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; CONST struct formstr e1_format7[] = { {84,20,r,V,0,0}, /* sum.b.t */ {84,21,r,V,0,0}, /* sum.h.t */ {84,22,r,V,0,0}, /* sum.w.t */ {84,23,r,V,0,0}, /* sum.l.t */ {85,1,r,V,0,0}, /* all.t */ {86,1,r,V,0,0}, /* any.t */ {87,1,r,V,0,0}, /* parity.t */ {0,0,0,0,0,0}, {88,20,r,V,0,0}, /* max.b.t */ {88,21,r,V,0,0}, /* max.h.t */ {88,22,r,V,0,0}, /* max.w.t */ {88,23,r,V,0,0}, /* max.l.t */ {89,20,r,V,0,0}, /* min.b.t */ {89,21,r,V,0,0}, /* min.h.t */ {89,22,r,V,0,0}, /* min.w.t */ {89,23,r,V,0,0}, /* min.l.t */ {84,18,r,V,0,0}, /* sum.s.t */ {84,19,r,V,0,0}, /* sum.d.t */ {90,18,r,V,0,0}, /* prod.s.t */ {90,19,r,V,0,0}, /* prod.d.t */ {88,18,r,V,0,0}, /* max.s.t */ {88,19,r,V,0,0}, /* max.d.t */ {89,18,r,V,0,0}, /* min.s.t */ {89,19,r,V,0,0}, /* min.d.t */ {90,20,r,V,0,0}, /* prod.b.t */ {90,21,r,V,0,0}, /* prod.h.t */ {90,22,r,V,0,0}, /* prod.w.t */ {90,23,r,V,0,0}, /* prod.l.t */ {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, {0,0,0,0,0,0}, }; char *lop[] = { "mov", /* 0 */ "merg", /* 1 */ "mask", /* 2 */ "mul", /* 3 */ "div", /* 4 */ "and", /* 5 */ "or", /* 6 */ "xor", /* 7 */ "shf", /* 8 */ "add", /* 9 */ "sub", /* 10 */ "exit", /* 11 */ "jmp", /* 12 */ "jmpi", /* 13 */ "jmpa", /* 14 */ "jmps", /* 15 */ "tac", /* 16 */ "ldea", /* 17 */ "ld", /* 18 */ "tas", /* 19 */ "pshea", /* 20 */ "st", /* 21 */ "call", /* 22 */ "calls", /* 23 */ "callq", /* 24 */ "pfork", /* 25 */ "ste", /* 26 */ "incr", /* 27 */ "cvtw", /* 28 */ "cvtb", /* 29 */ "cvth", /* 30 */ "cvts", /* 31 */ "cvtd", /* 32 */ "cvtl", /* 33 */ "ldpa", /* 34 */ "plc", /* 35 */ "tzc", /* 36 */ "eq", /* 37 */ "leu", /* 38 */ "ltu", /* 39 */ "le", /* 40 */ "lt", /* 41 */ "not", /* 42 */ "neg", /* 43 */ "lop", /* 44 */ "cprs", /* 45 */ "nop", /* 46 */ "br", /* 47 */ "bri", /* 48 */ "bra", /* 49 */ "brs", /* 50 */ "ldvi", /* 51 */ "stvi", /* 52 */ "ldsdr", /* 53 */ "ldkdr", /* 54 */ "ln", /* 55 */ "patu", /* 56 */ "pate", /* 57 */ "pich", /* 58 */ "plch", /* 59 */ "idle", /* 60 */ "rtnq", /* 61 */ "cfork", /* 62 */ "rtn", /* 63 */ "wfork", /* 64 */ "join", /* 65 */ "rtnc", /* 66 */ "exp", /* 67 */ "sin", /* 68 */ "cos", /* 69 */ "psh", /* 70 */ "pop", /* 71 */ "eni", /* 72 */ "dsi", /* 73 */ "bkpt", /* 74 */ "msync", /* 75 */ "mski", /* 76 */ "xmti", /* 77 */ "tstvv", /* 78 */ "diag", /* 79 */ "pbkpt", /* 80 */ "sqrt", /* 81 */ "casr", /* 82 */ "atan", /* 83 */ "sum", /* 84 */ "all", /* 85 */ "any", /* 86 */ "parity", /* 87 */ "max", /* 88 */ "min", /* 89 */ "prod", /* 90 */ "halt", /* 91 */ "sysc", /* 92 */ "trap", /* 93 */ "tst", /* 94 */ "lck", /* 95 */ "ulk", /* 96 */ "spawn", /* 97 */ "ldcmr", /* 98 */ "stcmr", /* 99 */ "popr", /* 100 */ "pshr", /* 101 */ "rcvr", /* 102 */ "matm", /* 103 */ "sndr", /* 104 */ "putr", /* 105 */ "getr", /* 106 */ "matr", /* 107 */ "mat", /* 108 */ "get", /* 109 */ "rcv", /* 110 */ "inc", /* 111 */ "put", /* 112 */ "snd", /* 113 */ "enal", /* 114 */ "enag", /* 115 */ "frint", /* 116 */ "xpnd", /* 117 */ "ctrsl", /* 118 */ "ctrsg", /* 119 */ "stop", /* 120 */ }; char *rop[] = { "", /* 0 */ ".t", /* 1 */ ".f", /* 2 */ ".s", /* 3 */ ".d", /* 4 */ ".b", /* 5 */ ".h", /* 6 */ ".w", /* 7 */ ".l", /* 8 */ ".x", /* 9 */ ".u", /* 10 */ ".s.f", /* 11 */ ".d.f", /* 12 */ ".b.f", /* 13 */ ".h.f", /* 14 */ ".w.f", /* 15 */ ".l.f", /* 16 */ ".t.f", /* 17 */ ".s.t", /* 18 */ ".d.t", /* 19 */ ".b.t", /* 20 */ ".h.t", /* 21 */ ".w.t", /* 22 */ ".l.t", /* 23 */ ".t.t", /* 24 */ }; gdb-4.13/include/opcode/h8300.h 666 34562 1752 55162 5607054770 14407 0ustar fnfcygnus/* Opcode table for the H8-300 Copyright (C) 1991,1992 Free Software Foundation. Written by Steve Chamberlain, sac@cygnus.com. This file is part of GDB, the GNU Debugger and GAS, the GNU Assembler. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Instructions are stored as a sequence of nibbles. If the nibble has value 15 or less then the representation is complete. Otherwise, we record what it contains with several flags. */ typedef int op_type; #define Hex0 0 #define Hex1 1 #define Hex2 2 #define Hex3 3 #define Hex4 4 #define Hex5 5 #define Hex6 6 #define Hex7 7 #define Hex8 8 #define Hex9 9 #define HexA 10 #define HexB 11 #define HexC 12 #define HexD 13 #define HexE 14 #define HexF 15 #define START 0x20 #define SRC 0x40 #define DST 0x80 #define L_8 0x01 #define L_16 0x02 #define L_32 0x04 #define L_P 0x08 #define L_24 0x10 #define REG 0x100 #define IMM 0x1000 #define DISP 0x2000 #define IND 0x4000 #define INC 0x8000 #define DEC 0x10000 #define L_3 0x20000 #define KBIT 0x40000 #define DBIT 0x80000 #define DISPREG 0x100000 #define IGNORE 0x200000 #define E 0x400000 /* FIXME: end of nibble sequence? */ #define L_2 0x800000 #define CCR 0x4000000 #define ABS 0x8000000 #define B30 0x1000000 /* bit 3 must be low */ #define B31 0x2000000 /* bit 3 must be high */ #define ABSJMP 0x10000000 #define ABSMOV 0x20000000 #define PCREL 0x40000000 #define MEMIND 0x80000000 #define IMM3 IMM|L_3 #define IMM2 IMM|L_2 #define SIZE (L_2|L_3|L_8|L_16|L_32|L_P|L_24) #define MODE (REG|IMM|DISP|IND|INC|DEC|CCR|ABS|MEMIND) #define RD8 (DST|L_8|REG) #define RD16 (DST|L_16|REG) #define RD32 (DST|L_32|REG) #define RS8 (SRC|L_8|REG) #define RS16 (SRC|L_16|REG) #define RS32 (SRC|L_32|REG) #define RSP (SRC|L_P|REG) #define RDP (DST|L_P|REG) #define IMM8 (IMM|SRC|L_8) #define IMM16 (IMM|SRC|L_16) #define IMM32 (IMM|SRC|L_32) #define ABS8SRC (SRC|ABS|L_8) #define ABS8DST (DST|ABS|L_8) #define DISP8 (PCREL|L_8) #define DISP16 (PCREL|L_16) #define DISP8SRC (DISP|L_8|SRC) #define DISP16SRC (DISP|L_16|SRC) #define DISP8DST (DISP|L_8|DST) #define DISP16DST (DISP|L_16|DST) #define ABS16SRC (SRC|ABS|L_16) #define ABS16DST (DST|ABS|L_16) #define ABS24SRC (SRC|ABS|L_24) #define ABS24DST (DST|ABS|L_24) #define RDDEC (DST|DEC) #define RSINC (SRC|INC) #define RDIND (DST|IND) #define RSIND (SRC|IND) #if 1 #define OR8 RS8 /* ??? OR as in One Register? */ #define OR16 RS16 #define OR32 RS32 #else #define OR8 RD8 #define OR16 RD16 #define OR32 RD32 #endif struct code { op_type nib[30]; }; struct arg { op_type nib[3]; }; struct h8_opcode { int how; int inbase; int time; char *name; struct arg args; struct code data; int length; int noperands; int idx; int size; }; #ifdef DEFINE_TABLE #define BITOP(code, imm, name, op00, op01,op10,op11, op20,op21)\ { code, 1, 2, name, {imm,RD8,E}, {op00, op01, imm, RD8, E, 0, 0, 0, 0}, 0, 0, 0, 0},\ { code, 1, 6, name, {imm,RDIND,E}, {op10, op11, B30|RDIND, 0, op00,op01, imm, 0, E}, 0, 0, 0, 0},\ { code, 1, 6, name, {imm,ABS8DST,E},{op20, op21, ABS8DST, IGNORE, op00,op01, imm, 0,E}, 0, 0, 0, 0} #define EBITOP(code, imm, name, op00, op01,op10,op11, op20,op21)\ BITOP(code,imm, name, op00+1, op01, op10,op11, op20,op21),\ BITOP(code,RS8, name, op00, op01, op10,op11, op20,op21) #define WTWOP(code,name, op1, op2) \ { code, 1, 2, name, {RS16, RD16, E}, { op1, op2, RS16, RD16, E, 0, 0, 0, 0}, 0, 0, 0, 0} #define BRANCH(code, name, op) \ { code, 1, 4,name,{DISP8,E,0}, { 0x4, op, DISP8, IGNORE, E, 0, 0, 0, 0}, 0, 0, 0, 0}, \ { code, 0, 6,name,{DISP16,E,0}, { 0x5, 0x8, op, 0x0, DISP16, IGNORE, IGNORE, IGNORE, E,0}, 0, 0, 0, 0} #define SOP(code, x,name) \ {code, 1, x, name #define NEW_SOP(code, in,x,name) \ {code, in, x, name #define EOP ,0,0,0 } #define TWOOP(code, name, op1, op2,op3) \ { code,1, 2,name, {IMM8, RD8, E}, { op1, RD8, IMM8, IGNORE, E, 0, 0, 0, 0}, 0, 0, 0, 0},\ { code, 1, 2,name, {RS8, RD8, E}, { op2, op3, RS8, RD8, E, 0, 0, 0, 0}, 0, 0, 0, 0} #define UNOP(code,name, op1, op2) \ { code, 1, 2, name, {OR8, E, 0}, { op1, op2, 0, OR8, E, 0, 0, 0, 0}, 0, 0, 0, 0} #define UNOP3(code, name, op1, op2, op3) \ { O(code,SB), 1, 2, name, {OR8, E, 0}, {op1, op2, op3+0, OR8, E, 0, 0, 0, 0}, 0, 0, 0, 0}, \ { O(code,SW), 0, 2, name, {OR16, E, 0}, {op1, op2, op3+1, OR16, E, 0, 0, 0, 0}, 0, 0, 0, 0}, \ { O(code,SL), 0, 2, name, {OR32, E, 0}, {op1, op2, op3+3, OR32|B30, E, 0, 0, 0, 0}, 0, 0, 0, 0} #define IMM32LIST IMM32,IGNORE,IGNORE,IGNORE,IGNORE,IGNORE,IGNORE,IGNORE #define IMM24LIST IMM24,IGNORE,IGNORE,IGNORE,IGNORE,IGNORE #define IMM16LIST IMM16,IGNORE,IGNORE,IGNORE #define A16LIST L_16,IGNORE,IGNORE,IGNORE #define DISP24LIST DISP|L_24,IGNORE,IGNORE,IGNORE,IGNORE,IGNORE #define ABS24LIST ABS|L_24,IGNORE,IGNORE,IGNORE,IGNORE,IGNORE #define A24LIST L_24,IGNORE,IGNORE,IGNORE,IGNORE,IGNORE #define PREFIX32 0x0,0x1,0x0,0x0 #define PREFIXLDC 0x0,0x1,0x4,0x0 #define O(op, size) (op*4+size) #define O_RECOMPILE 0 #define O_ADD 1 #define O_ADDX 2 #define O_AND 3 #define O_BAND 4 #define O_BRA 5 #define O_BRN 6 #define O_BHI 7 #define O_BLS 8 #define O_BCC 9 #define O_BCS 10 #define O_BNE 11 #define O_BVC 12 #define O_BVS 13 #define O_BPL 14 #define O_BMI 15 #define O_BGE 16 #define O_BLT 17 #define O_BGT 18 #define O_BLE 19 #define O_ANDC 20 #define O_BEQ 21 #define O_BCLR 22 #define O_BIAND 23 #define O_BILD 24 #define O_BIOR 25 #define O_BIXOR 26 #define O_BIST 27 #define O_BLD 28 #define O_BNOT 29 #define O_BSET 30 #define O_BSR 31 #define O_BXOR 32 #define O_CMP 33 #define O_DAA 34 #define O_DAS 35 #define O_DEC 36 #define O_DIVU 37 #define O_DIVS 38 #define O_INC 39 #define O_LDC 40 #define O_MOV_TO_MEM 41 #define O_OR 42 #define O_ROTL 43 #define O_ROTR 44 #define O_ROTXL 45 #define O_ROTXR 46 #define O_BPT 47 #define O_SHAL 48 #define O_SHAR 49 #define O_SHLL 50 #define O_SHLR 51 #define O_SUB 52 #define O_SUBS 53 #define O_TRAPA 54 #define O_XOR 55 #define O_XORC 56 #define O_BOR 57 #define O_BST 58 #define O_BTST 59 #define O_EEPMOV 60 #define O_EXTS 61 #define O_EXTU 62 #define O_JMP 63 #define O_JSR 64 #define O_MULU 65 #define O_MULS 66 #define O_NOP 67 #define O_NOT 68 #define O_ORC 69 #define O_RTE 70 #define O_STC 71 #define O_SUBX 72 #define O_NEG 73 #define O_RTS 74 #define O_SLEEP 75 #define O_ILL 76 #define O_ADDS 77 #define O_SYSCALL 78 #define O_MOV_TO_REG 79 #define O_LAST 80 #define SB 0 #define SW 1 #define SL 2 /* FIXME: Lots of insns have "E, 0, 0, 0, 0" in the nibble code sequences. Methinks the zeroes aren't necessary. Once confirmed, nuke 'em. */ struct h8_opcode h8_opcodes[] = { TWOOP(O(O_ADD,SB),"add.b", 0x8, 0x0,0x8), NEW_SOP(O(O_ADD,SW),1,2,"add.w"),{RS16,RD16,E },{0x0,0x9,RS16,RD16,E} EOP, NEW_SOP(O(O_ADD,SW),0,4,"add.w"),{IMM16,RD16,E },{0x7,0x9,0x1,RD16,IMM16,IGNORE,IGNORE,IGNORE,E} EOP, NEW_SOP(O(O_ADD,SL),0,2,"add.l"),{RS32,RD32,E }, {0x0,0xA,B31|RS32,B30|RD32,E} EOP, NEW_SOP(O(O_ADD,SL),0,6,"add.l"),{IMM32,RD32,E },{0x7,0xA,0x1,B30|RD32,IMM32LIST,E} EOP, NEW_SOP(O(O_ADDS,SL),1,2,"adds"), {KBIT,RDP,E}, {0x0,0xB,KBIT,RDP,E,0,0,0,0} EOP, TWOOP(O(O_ADDX,SB),"addx",0x9,0x0,0xE), TWOOP(O(O_AND,SB), "and.b",0xE,0x1,0x6), NEW_SOP(O(O_AND,SW),0,2,"and.w"),{RS16,RD16,E },{0x6,0x6,RS16,RD16,E} EOP, NEW_SOP(O(O_AND,SW),0,4,"and.w"),{IMM16,RD16,E },{0x7,0x9,0x6,RD16,IMM16,IGNORE,IGNORE,IGNORE,E} EOP, NEW_SOP(O(O_AND,SL),0,6,"and.l"),{IMM32,RD32,E },{0x7,0xA,0x6,B30|RD32,IMM32LIST,E} EOP, NEW_SOP(O(O_AND,SL),0,2,"and.l") ,{RS32,RD32,E },{0x0,0x1,0xF,0x0,0x6,0x6,B30|RS32,B30|RD32,E} EOP, NEW_SOP(O(O_ANDC,SB),1,2,"andc"), {IMM8,CCR,E},{ 0x0,0x6,IMM8,IGNORE,E,0,0,0,0} EOP, BITOP(O(O_BAND,SB), IMM3,"band",0x7,0x6,0x7,0xC,0x7,0xE), BRANCH(O(O_BRA,SB),"bra",0x0), BRANCH(O(O_BRA,SB),"bt",0x0), BRANCH(O(O_BRN,SB),"brn",0x1), BRANCH(O(O_BRN,SB),"bf",0x1), BRANCH(O(O_BHI,SB),"bhi",0x2), BRANCH(O(O_BLS,SB),"bls",0x3), BRANCH(O(O_BCC,SB),"bcc",0x4), BRANCH(O(O_BCC,SB),"bhs",0x4), BRANCH(O(O_BCS,SB),"bcs",0x5), BRANCH(O(O_BCS,SB),"blo",0x5), BRANCH(O(O_BNE,SB),"bne",0x6), BRANCH(O(O_BEQ,SB),"beq",0x7), BRANCH(O(O_BVC,SB),"bvc",0x8), BRANCH(O(O_BVS,SB),"bvs",0x9), BRANCH(O(O_BPL,SB),"bpl",0xA), BRANCH(O(O_BMI,SB),"bmi",0xB), BRANCH(O(O_BGE,SB),"bge",0xC), BRANCH(O(O_BLT,SB),"blt",0xD), BRANCH(O(O_BGT,SB),"bgt",0xE), BRANCH(O(O_BLE,SB),"ble",0xF), EBITOP(O(O_BCLR,SB),IMM3, "bclr", 0x6,0x2,0x7,0xD,0x7,0xF), BITOP(O(O_BIAND,SB),IMM3|B31,"biand",0x7,0x6,0x7,0xC,0x7,0xE), BITOP(O(O_BILD,SB), IMM3|B31,"bild", 0x7,0x7,0x7,0xC,0x7,0xE), BITOP(O(O_BIOR,SB), IMM3|B31,"bior", 0x7,0x4,0x7,0xC,0x7,0xE), BITOP(O(O_BIST,SB), IMM3|B31,"bist", 0x6,0x7,0x7,0xD,0x7,0xF), BITOP(O(O_BIXOR,SB),IMM3|B31,"bixor",0x7,0x5,0x7,0xC,0x7,0xE), BITOP(O(O_BLD,SB), IMM3|B30,"bld", 0x7,0x7,0x7,0xC,0x7,0xE), EBITOP(O(O_BNOT,SB),IMM3|B30,"bnot", 0x6,0x1,0x7,0xD,0x7,0xF), BITOP(O(O_BOR,SB), IMM3|B30,"bor", 0x7,0x4,0x7,0xC,0x7,0xE), EBITOP(O(O_BSET,SB),IMM3|B30,"bset", 0x6,0x0,0x7,0xD,0x7,0xF), SOP(O(O_BSR,SB),6,"bsr"),{DISP8,E,0},{ 0x5,0x5,DISP8,IGNORE,E,0,0,0,0} EOP, SOP(O(O_BSR,SB),6,"bsr"),{DISP16,E,0},{ 0x5,0xC,0x0,0x0,DISP16,IGNORE,IGNORE,IGNORE,E,0,0,0,0} EOP, BITOP(O(O_BST,SB), IMM3|B30,"bst",0x6,0x7,0x7,0xD,0x7,0xF), EBITOP(O(O_BTST,SB), IMM3|B30,"btst",0x6,0x3,0x7,0xC,0x7,0xE), BITOP(O(O_BXOR,SB), IMM3|B30,"bxor",0x7,0x5,0x7,0xC,0x7,0xE), TWOOP(O(O_CMP,SB), "cmp.b",0xA,0x1,0xC), WTWOP(O(O_CMP,SW), "cmp.w",0x1,0xD), NEW_SOP(O(O_CMP,SW),1,2,"cmp.w"),{RS16,RD16,E },{0x1,0xD,RS16,RD16,E} EOP, NEW_SOP(O(O_CMP,SW),0,4,"cmp.w"),{IMM16,RD16,E },{0x7,0x9,0x2,RD16,IMM16,IGNORE,IGNORE,IGNORE,E} EOP, NEW_SOP(O(O_CMP,SL),0,6,"cmp.l"),{IMM32,RD32,E },{0x7,0xA,0x2,B30|RD32,IMM32LIST,E} EOP, NEW_SOP(O(O_CMP,SL),0,2,"cmp.l") ,{RS32,RD32,E },{0x1,0xF,B31|RS32,B30|RD32,E} EOP, UNOP(O(O_DAA,SB), "daa",0x0,0xF), UNOP(O(O_DAS,SB), "das",0x1,0xF), UNOP(O(O_DEC,SB), "dec.b",0x1,0xA), NEW_SOP(O(O_DEC, SW),0,2,"dec.w") ,{DBIT,RD16,E },{0x1,0xB,0x5|DBIT,RD16,E} EOP, NEW_SOP(O(O_DEC, SL),0,2,"dec.l") ,{DBIT,RD32,E },{0x1,0xB,0x7|DBIT,RD32|B30,E} EOP, NEW_SOP(O(O_DIVU,SB),1,6,"divxu.b"), {RS8,RD16,E}, {0x5,0x1,RS8,RD16,E,0,0,0,0}EOP, NEW_SOP(O(O_DIVU,SW),0,20,"divxu.w"),{RS16,RD32,E},{0x5,0x3,RS16,B30|RD32,E}EOP, NEW_SOP(O(O_DIVS,SB),0,20,"divxs.b") ,{RS8,RD16,E },{0x0,0x1,0xD,0x0,0x5,0x1,RS8,RD16,E} EOP, NEW_SOP(O(O_DIVS,SW),0,02,"divxs.w") ,{RS16,RD32,E },{0x0,0x1,0xD,0x0,0x5,0x3,RS16,B30|RD32,E} EOP, NEW_SOP(O(O_EEPMOV,SB),1,50,"eepmov"),{ E,0,0},{0x7,0xB,0x5,0xC,0x5,0x9,0x8,0xF,E}EOP, NEW_SOP(O(O_EEPMOV,SW),0,50,"eepmovw"),{E,0,0},{0x7,0xB,0xD,0x4,0x5,0x9,0x8,0xF,E} EOP, NEW_SOP(O(O_EXTS,SW),0,2,"exts.w"),{OR16,E,0},{0x1,0x7,0xD,OR16,E }EOP, NEW_SOP(O(O_EXTS,SL),0,2,"exts.l"),{OR32,E,0},{0x1,0x7,0xF,OR32|B30,E }EOP, NEW_SOP(O(O_EXTU,SW),0,2,"extu.w"),{OR16,E,0},{0x1,0x7,0x5,OR16,E }EOP, NEW_SOP(O(O_EXTU,SL),0,2,"extu.l"),{OR32,E,0},{0x1,0x7,0x7,OR32|B30,E }EOP, UNOP(O(O_INC,SB), "inc",0x0,0xA), NEW_SOP(O(O_INC,SW),0,2,"inc.w") ,{DBIT,RD16,E },{0x0,0xB,0x5|DBIT,RD16,E} EOP, NEW_SOP(O(O_INC,SL),0,2,"inc.l") ,{DBIT,RD32,E },{0x0,0xB,0x7|DBIT,RD32|B30,E} EOP, SOP(O(O_JMP,SB),4,"jmp"),{RSIND,E,0},{0x5,0x9,B30|RSIND,0x0,E,0,0,0,0}EOP, SOP(O(O_JMP,SB),6,"jmp"),{SRC|ABSJMP,E,0},{0x5,0xA,ABSJMP,IGNORE,IGNORE,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_JMP,SB),8,"jmp"),{SRC|MEMIND,E,0},{0x5,0xB,MEMIND,IGNORE,E,0,0,0,0}EOP, SOP(O(O_JSR,SB),6,"jsr"),{SRC|RSIND,E,0}, {0x5,0xD,B30|RSIND,0x0,E,0,0,0,0}EOP, SOP(O(O_JSR,SB),8,"jsr"),{SRC|ABSJMP,E,0},{0x5,0xE,ABSJMP,IGNORE,IGNORE,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_JSR,SB),8,"jsr"),{SRC|MEMIND,E,0},{0x5,0xF,MEMIND,IGNORE,E,0,0,0,0}EOP, NEW_SOP(O(O_LDC,SB),1,2,"ldc"),{IMM8,CCR,E}, { 0x0,0x7,IMM8,IGNORE,E,0,0,0,0}EOP, NEW_SOP(O(O_LDC,SB),1,2,"ldc"),{OR8,CCR,E}, { 0x0,0x3,0x0,OR8,E,0,0,0,0}EOP, NEW_SOP(O(O_LDC,SB),0,2,"ldc"),{ABS16SRC,CCR,E}, {PREFIXLDC,0x6,0xB,0x0,0x0,ABS16SRC,IGNORE,IGNORE,IGNORE,E}EOP, NEW_SOP(O(O_LDC,SB),0,2,"ldc"),{ABS24SRC,CCR,E}, {PREFIXLDC,0x6,0xB,0x2,0x0,0x0,0x0,SRC|ABS24LIST,E}EOP, NEW_SOP(O(O_LDC,SB),0,2,"ldc"),{DISP|SRC|L_16,CCR,E},{PREFIXLDC,0x6,0x9,B30|DISPREG,0,DISP|L_16,IGNORE,IGNORE,IGNORE,E}EOP, NEW_SOP(O(O_LDC,SB),0,2,"ldc"),{DISP|SRC|L_24,CCR,E},{PREFIXLDC,0x7,0x8,B30|DISPREG,0,0x6,0xB,0x2,0x0,0x0,0x0,SRC|DISP24LIST,E}EOP, NEW_SOP(O(O_LDC,SB),0,2,"ldc"),{RSINC,CCR,E}, {PREFIXLDC,0x6,0xD,B30|RSINC,0x0,E}EOP, NEW_SOP(O(O_LDC,SB),0,2,"ldc"),{RSIND,CCR,E}, {PREFIXLDC,0x6,0x9,B30|RDIND,0x0,E} EOP, SOP(O(O_MOV_TO_REG,SB),4,"mov.b"),{ABSMOV|ABS|SRC|L_16,RD8,E}, { 0x6,0xA,0x0,RD8,ABSMOV|SRC|A16LIST,E}EOP, SOP(O(O_MOV_TO_REG,SB),6,"mov.b"),{ABSMOV|ABS|SRC|L_24,RD8,E }, { 0x6,0xA,0x2,RD8,0x0,0x0,SRC|ABSMOV|A24LIST,E }EOP, SOP(O(O_MOV_TO_MEM,SB),4,"mov.b"),{RS8,ABSMOV|ABS|L_16|DST,E}, { 0x6,0xA,0x8,RS8,ABSMOV|DST|A16LIST,E}EOP, SOP(O(O_MOV_TO_MEM,SB),6,"mov.b"),{RS8,ABSMOV|ABS|DST|L_24,E }, { 0x6,0xA,0xA,RS8,0x0,0x0,DST|ABSMOV|A24LIST,E }EOP, SOP(O(O_MOV_TO_REG,SB),6,"mov.b"),{DISP|L_24|SRC,RD8,E}, { 0x7,0x8,B30|DISPREG,0x0,0x6,0xA,0x2,RD8,0x0,0x0,SRC|DISP24LIST,E}EOP, SOP(O(O_MOV_TO_MEM,SB),6,"mov.b"),{RS8,DISP|L_24|DST,E}, { 0x7,0x8,B30|DISPREG,0x0,0x6,0xA,0xA,RS8,0x0,0x0,DST|DISP24LIST,E}EOP, SOP(O(O_MOV_TO_REG,SB),2,"mov.b"),{RS8,RD8,E}, { 0x0,0xC,RS8,RD8,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_REG,SB),2,"mov.b"),{IMM8,RD8,E}, { 0xF,RD8,IMM8,IGNORE,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_REG,SB),4,"mov.b"),{RSIND,RD8,E}, { 0x6,0x8,B30|RSIND,RD8,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_REG,SB),6,"mov.b"),{DISP16SRC,RD8,E}, { 0x6,0xE,B30|DISPREG,RD8,DISP16SRC,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_MOV_TO_REG,SB),6,"mov.b"),{RSINC,RD8,E}, { 0x6,0xC,B30|RSINC,RD8,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_REG,SB),4,"mov.b"),{ABS8SRC,RD8,E}, { 0x2,RD8,ABS8SRC,IGNORE,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_MEM,SB),4,"mov.b"),{RS8,RDIND,E}, { 0x6,0x8,RDIND|B31,RS8,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_MEM,SB),6,"mov.b"),{RS8,DISP16DST,E}, { 0x6,0xE,DISPREG|B31,RS8,DISP16DST,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_MOV_TO_MEM,SB),6,"mov.b"),{RS8,RDDEC|B31,E}, { 0x6,0xC,RDDEC|B31,RS8,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_MEM,SB),4,"mov.b"),{RS8,ABS8DST,E}, { 0x3,RS8,ABS8DST,IGNORE,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_MEM,SW),6,"mov.w"),{RS16,RDIND,E}, { 0x6,0x9,RDIND|B31,RS16,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_REG,SW),6,"mov.w"),{DISP|L_24|SRC,RD16,E},{ 0x7,0x8,B30|DISPREG,0x0,0x6,0xB,0x2,RD16,0x0,0x0,SRC|DISP24LIST,E}EOP, SOP(O(O_MOV_TO_MEM,SW),6,"mov.w"),{RS16,DISP|L_24|DST,E},{ 0x7,0x8,B30|DISPREG,0x0,0x6,0xB,0xA,RS16,0x0,0x0,DST|DISP24LIST,E}EOP, SOP(O(O_MOV_TO_REG,SW),6,"mov.w"),{ABS|L_24|SRC,RD16,E },{ 0x6,0xB,0x2,RD16,0x0,0x0,SRC|ABS24LIST,E }EOP, SOP(O(O_MOV_TO_MEM,SW),6,"mov.w"),{RS16,ABS|L_24|DST,E },{ 0x6,0xB,0xA,RS16,0x0,0x0,DST|ABS24LIST,E }EOP, SOP(O(O_MOV_TO_REG,SW),2,"mov.w"),{RS16,RD16,E}, { 0x0,0xD,RS16, RD16,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_REG,SW),4,"mov.w"),{IMM16,RD16,E}, { 0x7,0x9,0x0,RD16,IMM16,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_MOV_TO_REG,SW),4,"mov.w"),{RSIND,RD16,E}, { 0x6,0x9,B30|RSIND,RD16,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_REG,SW),6,"mov.w"),{DISP16SRC,RD16,E}, { 0x6,0xF,B30|DISPREG,RD16,DISP16SRC,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_MOV_TO_REG,SW),6,"mov.w"),{RSINC,RD16,E}, { 0x6,0xD,B30|RSINC,RD16,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_REG,SW),6,"mov.w"),{ABS16SRC,RD16,E}, { 0x6,0xB,0x0,RD16,ABS16SRC,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_MOV_TO_MEM,SW),6,"mov.w"),{RS16,DISP16DST,E}, { 0x6,0xF,DISPREG|B31,RS16,DISP16DST,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_MOV_TO_MEM,SW),6,"mov.w"),{RS16,RDDEC,E}, { 0x6,0xD,RDDEC|B31,RS16,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_MEM,SW),6,"mov.w"),{RS16,ABS16DST,E}, { 0x6,0xB,0x8,RS16,ABS16DST,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_MOV_TO_REG,SL),4,"mov.l"),{IMM32,RD32,E}, { 0x7,0xA,0x0,B30|RD32,IMM32LIST,E}EOP, SOP(O(O_MOV_TO_REG,SL),2,"mov.l"),{RS32,RD32,E}, { 0x0,0xF,B31|RS32,B30|RD32,E,0,0,0,0}EOP, SOP(O(O_MOV_TO_REG,SL),4,"mov.l"),{RSIND,RD32,E}, { PREFIX32,0x6,0x9,RSIND|B30,B30|RD32,E,0,0,0,0 }EOP, SOP(O(O_MOV_TO_REG,SL),6,"mov.l"),{DISP16SRC,RD32,E}, { PREFIX32,0x6,0xF,DISPREG|B30,B30|RD32,DISP16SRC,IGNORE,IGNORE,IGNORE,E }EOP, SOP(O(O_MOV_TO_REG,SL),6,"mov.l"),{DISP|L_24|SRC,RD32,E},{ PREFIX32,0x7,0x8,B30|DISPREG,0x0,0x6,0xB,0x2,B30|RD32,0x0,0x0,SRC|DISP24LIST,E }EOP, SOP(O(O_MOV_TO_REG,SL),6,"mov.l"),{RSINC,RD32,E}, { PREFIX32,0x6,0xD,B30|RSINC,B30|RD32,E,0,0,0,0 }EOP, SOP(O(O_MOV_TO_REG,SL),6,"mov.l"),{ABS16SRC,RD32,E}, { PREFIX32,0x6,0xB,0x0,B30|RD32,ABS16SRC,IGNORE,IGNORE,IGNORE,E }EOP, SOP(O(O_MOV_TO_REG,SL),6,"mov.l"),{ABS24SRC,RD32,E }, { PREFIX32,0x6,0xB,0x2,B30|RD32,0x0,0x0,SRC|ABS24LIST,E }EOP, SOP(O(O_MOV_TO_MEM,SL),6,"mov.l"),{RS32,RDIND,E}, { PREFIX32,0x6,0x9,RDIND|B31,B30|RS32,E,0,0,0,0 }EOP, SOP(O(O_MOV_TO_MEM,SL),6,"mov.l"),{RS32,DISP16DST,E}, { PREFIX32,0x6,0xF,DISPREG|B31,B30|RS32,DISP16DST,IGNORE,IGNORE,IGNORE,E }EOP, SOP(O(O_MOV_TO_MEM,SL),6,"mov.l"),{RS32,DISP|L_24|DST,E},{ PREFIX32,0x7,0x8,B31|DISPREG,0x0,0x6,0xB,0xA,B30|RS32,0x0,0x0,DST|DISP24LIST,E }EOP, SOP(O(O_MOV_TO_MEM,SL),6,"mov.l"),{RS32,RDDEC,E}, { PREFIX32,0x6,0xD,RDDEC|B31,B30|RS32,E,0,0,0,0 }EOP, SOP(O(O_MOV_TO_MEM,SL),6,"mov.l"),{RS32,ABS16DST,E}, { PREFIX32,0x6,0xB,0x8,B30|RS32,ABS16DST,IGNORE,IGNORE,IGNORE,E }EOP, SOP(O(O_MOV_TO_MEM,SL),6,"mov.l"),{RS32,ABS24DST,E }, { PREFIX32,0x6,0xB,0xA,B30|RS32,0x0,0x0,DST|ABS24LIST,E }EOP, SOP(O(O_MOV_TO_REG,SB),10,"movfpe"),{ABS16SRC,RD8,E},{ 0x6,0xA,0x4,RD8,ABS16SRC,IGNORE,IGNORE,IGNORE,E}EOP, SOP(O(O_MOV_TO_MEM,SB),10,"movtpe"),{RS8,ABS16DST,E},{ 0x6,0xA,0xC,RS8,ABS16DST,IGNORE,IGNORE,IGNORE,E}EOP, NEW_SOP(O(O_MULU,SB),1,14,"mulxu.b"),{RS8,RD16,E}, { 0x5,0x0,RS8,RD16,E,0,0,0,0}EOP, NEW_SOP(O(O_MULU,SW),0,14,"mulxu.w"),{RS16,RD32,E},{ 0x5,0x2,RS16,B30|RD32,E,0,0,0,0}EOP, NEW_SOP(O(O_MULS,SB),0,20,"mulxs.b"),{RS8,RD16,E}, { 0x0,0x1,0xc,0x0,0x5,0x0,RS8,RD16,E}EOP, NEW_SOP(O(O_MULS,SW),0,20,"mulxs.w"),{RS16,RD32,E},{ 0x0,0x1,0xc,0x0,0x5,0x2,RS16,B30|RD32,E}EOP, /* ??? This can use UNOP3. */ NEW_SOP(O(O_NEG,SB),1,2,"neg.b"),{ OR8,E, 0},{ 0x1,0x7,0x8,OR8,E,0,0,0,0}EOP, NEW_SOP(O(O_NEG,SW),0,2,"neg.w"),{ OR16,E,0},{ 0x1,0x7,0x9,OR16,E}EOP, NEW_SOP(O(O_NEG,SL),0,2,"neg.l"),{ OR32,E,0},{ 0x1,0x7,0xB,B30|OR32,E}EOP, NEW_SOP(O(O_NOP,SB),1,2,"nop"),{E,0,0},{ 0x0,0x0,0x0,0x0,E,0,0,0,0}EOP, /* ??? This can use UNOP3. */ NEW_SOP(O(O_NOT,SB),1,2,"not.b"),{ OR8,E, 0},{ 0x1,0x7,0x0,OR8,E,0,0,0,0}EOP, NEW_SOP(O(O_NOT,SW),0,2,"not.w"),{ OR16,E,0},{ 0x1,0x7,0x1,OR16,E}EOP, NEW_SOP(O(O_NOT,SL),0,2,"not.l"),{ OR32,E,0},{ 0x1,0x7,0x3,B30|OR32,E}EOP, TWOOP(O(O_OR, SB),"or.b",0xC,0x1,0x4), NEW_SOP(O(O_OR,SW),0,4,"or.w"),{IMM16,RD16,E },{0x7,0x9,0x4,RD16,IMM16,IGNORE,IGNORE,IGNORE,E} EOP, NEW_SOP(O(O_OR,SW),0,2,"or.w"),{RS16,RD16,E },{0x6,0x4,RS16,RD16,E} EOP, NEW_SOP(O(O_OR,SL),0,6,"or.l"),{IMM32,RD32,E },{0x7,0xA,0x4,B30|RD32,IMM32LIST,E} EOP, NEW_SOP(O(O_OR,SL),0,2,"or.l"),{RS32,RD32,E },{0x0,0x1,0xF,0x0,0x6,0x4,B30|RS32,B30|RD32,E} EOP, NEW_SOP(O(O_ORC,SB),1,2,"orc"),{IMM8,CCR,E},{ 0x0,0x4,IMM8,IGNORE,E,0,0,0,0}EOP, NEW_SOP(O(O_MOV_TO_REG,SW),1,6,"pop.w"),{OR16,E,0},{ 0x6,0xD,0x7,OR16,E,0,0,0,0}EOP, NEW_SOP(O(O_MOV_TO_REG,SL),0,6,"pop.l"),{OR32,E,0},{ PREFIX32,0x6,0xD,0x7,OR32|B30,E,0,0,0,0}EOP, NEW_SOP(O(O_MOV_TO_MEM,SW),1,6,"push.w"),{OR16,E,0},{ 0x6,0xD,0xF,OR16,E,0,0,0,0}EOP, NEW_SOP(O(O_MOV_TO_MEM,SL),0,6,"push.l"),{OR32,E,0},{ PREFIX32,0x6,0xD,0xF,OR32|B30,E,0,0,0,0}EOP, UNOP3(O_ROTL, "rotl", 0x1,0x2,0x8), UNOP3(O_ROTR, "rotr", 0x1,0x3,0x8), UNOP3(O_ROTXL, "rotxl",0x1,0x2,0x0), UNOP3(O_ROTXR, "rotxr",0x1,0x3,0x0), SOP(O(O_BPT,SB), 10,"bpt"),{E,0,0},{ 0x7,0xA,0xF,0xF,E,0,0,0,0}EOP, SOP(O(O_RTE,SB), 10,"rte"),{E,0,0},{ 0x5,0x6,0x7,0x0,E,0,0,0,0}EOP, SOP(O(O_RTS,SB), 8,"rts"),{E,0,0},{ 0x5,0x4,0x7,0x0,E,0,0,0,0}EOP, UNOP3(O_SHAL, "shal",0x1,0x0,0x8), UNOP3(O_SHAR, "shar",0x1,0x1,0x8), UNOP3(O_SHLL, "shll",0x1,0x0,0x0), UNOP3(O_SHLR, "shlr",0x1,0x1,0x0), SOP(O(O_SLEEP,SB),2,"sleep"),{E,0,0},{ 0x0,0x1,0x8,0x0,E,0,0,0,0} EOP, NEW_SOP(O(O_STC,SB), 1,2,"stc"),{CCR,RD8,E},{ 0x0,0x2,0x0,RD8,E,0,0,0,0} EOP, NEW_SOP(O(O_STC,SB),0,2,"stc"),{CCR,RSIND,E}, {PREFIXLDC,0x6,0x9,B31|RDIND,0x0,E} EOP, NEW_SOP(O(O_STC,SB),0,2,"stc"),{CCR,DISP|DST|L_16,E},{PREFIXLDC,0x6,0x9,B31|DISPREG,0,DST|DISP|L_16,IGNORE,IGNORE,IGNORE,E}EOP, NEW_SOP(O(O_STC,SB),0,2,"stc"),{CCR,DISP|DST|L_24,E},{PREFIXLDC,0x7,0x8,B31|DISPREG,0,0x6,0xB,0x2,0x0,0x0,0x0,DST|DISP24LIST,E}EOP, NEW_SOP(O(O_STC,SB),0,2,"stc"),{CCR,RDDEC,E}, {PREFIXLDC,0x6,0xD,B31|RDDEC,0x0,E}EOP, NEW_SOP(O(O_STC,SB),0,2,"stc"),{CCR,ABS16SRC,E}, {PREFIXLDC,0x6,0xB,0x8,0x0,ABS16DST,IGNORE,IGNORE,IGNORE,E}EOP, NEW_SOP(O(O_STC,SB),0,2,"stc"),{CCR,ABS24SRC,E}, {PREFIXLDC,0x6,0xB,0xA,0x0,0x0,0x0,DST|ABS24LIST,E}EOP, SOP(O(O_SUB,SB),2,"sub.b"),{RS8,RD8,E},{ 0x1,0x8,RS8,RD8,E,0,0,0,0}EOP, NEW_SOP(O(O_SUB,SW),1,2,"sub.w"),{RS16,RD16,E }, {0x1,0x9,RS16,RD16,E} EOP, NEW_SOP(O(O_SUB,SW),0,4,"sub.w"),{IMM16,RD16,E }, {0x7,0x9,0x3,RD16,IMM16,IGNORE,IGNORE,IGNORE,E} EOP, NEW_SOP(O(O_SUB,SL),0,2,"sub.l") ,{RS32,RD32,E }, {0x1,0xA,B31|RS32,B30|RD32,E} EOP, NEW_SOP(O(O_SUB,SL),0,6,"sub.l"), {IMM32,RD32,E },{0x7,0xA,0x3,B30|RD32,IMM32LIST,E} EOP, SOP(O(O_SUBS,SL),2,"subs"),{KBIT,RDP,E},{ 0x1,0xB,KBIT,RDP,E,0,0,0,0}EOP, TWOOP(O(O_SUBX,SB),"subx",0xB,0x1,0xE), NEW_SOP(O(O_TRAPA,SB),0,2,"trapa"),{ IMM2,E}, {0x5,0x7,IMM2,IGNORE,E }EOP, TWOOP(O(O_XOR, SB),"xor",0xD,0x1,0x5), NEW_SOP(O(O_XOR,SW),0,4,"xor.w"),{IMM16,RD16,E },{0x7,0x9,0x5,RD16,IMM16,IGNORE,IGNORE,IGNORE,E} EOP, NEW_SOP(O(O_XOR,SW),0,2,"xor.w"),{RS16,RD16,E },{0x6,0x5,RS16,RD16,E} EOP, NEW_SOP(O(O_XOR,SL),0,6,"xor.l"),{IMM32,RD32,E },{0x7,0xA,0x5,B30|RD32,IMM32LIST,E} EOP, NEW_SOP(O(O_XOR,SL),0,2,"xor.l") ,{RS32,RD32,E },{0x0,0x1,0xF,0x0,0x6,0x5,B30|RS32,B30|RD32,E} EOP, SOP(O(O_XORC,SB),2,"xorc"),{IMM8,CCR,E},{ 0x0,0x5,IMM8,IGNORE,E,0,0,0,0}EOP, 0 }; #else extern struct h8_opcode h8_opcodes[] ; #endif gdb-4.13/include/opcode/hppa.h 666 34562 1752 52061 5530752011 14554 0ustar fnfcygnus/* Table of opcodes for the PA-RISC. Copyright (C) 1990, 1991, 1993 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). This file is part of GAS, the GNU Assembler, and GDB, the GNU disassembler. GAS/GDB 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 1, or (at your option) any later version. GAS/GDB 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 GAS or GDB; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(__STDC__) && !defined(const) #define const #endif /* * Structure of an opcode table entry. */ /* There are two kinds of delay slot nullification: normal which is * controled by the nullification bit, and conditional, which depends * on the direction of the branch and its success or failure. * * NONE is unfortunately #defined in the hiux system include files. * #undef it away. */ #undef NONE enum delay_type {NONE, NORMAL, CONDITIONAL}; struct pa_opcode { const char *name; unsigned long int match; /* Bits that must be set... */ unsigned long int mask; /* ... in these bits. */ char *args; /* Nonzero if this is a delayed branch instruction. */ /* What uses this field? Nothing in opcodes or gas that I saw. If nothing needs it, we could reduce this table by 20% (for most machines). KR */ char delayed; }; /* All hppa opcodes are 32 bits. The match component is a mask saying which bits must match a particular opcode in order for an instruction to be an instance of that opcode. The args component is a string containing one character for each operand of the instruction. Bit positions in this description follow HP usage of lsb = 31, "at" is lsb of field. In the args field, the following characters must match exactly: '+,() ' In the args field, the following characters are unused: ' "#$% *+- ./ 3 :; = ' ' B L [\] _' ' e gh lm qr { } ' Here are all the characters: ' !"#$%&'()*+-,./0123456789:;<=>?@' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_' 'abcdefghijklmnopqrstuvwxyz{|}~' Kinds of operands: x integer register field at 15. b integer register field at 10. t integer register field at 31. y floating point register field at 31 5 5 bit immediate at 15. s 2 bit space specifier at 17. S 3 bit space specifier at 18. c indexed load completer. C short load and store completer. Y Store Bytes Short completer < non-negated compare/subtract conditions. a compare/subtract conditions d non-negated add conditions & logical instruction conditions U unit instruction conditions > shift/extract/deposit conditions. ~ bvb,bb conditions V 5 bit immediate value at 31 i 11 bit immediate value at 31 j 14 bit immediate value at 31 k 21 bit immediate value at 31 n nullification for branch instructions N nullification for spop and copr instructions w 12 bit branch displacement W 17 bit branch displacement (PC relative) z 17 bit branch displacement (just a number, not an address) Also these: p 5 bit shift count at 26 (to support the SHD instruction) encoded as 31-p P 5 bit bit position at 26 T 5 bit field length at 31 (encoded as 32-T) A 13 bit immediate at 18 (to support the BREAK instruction) ^ like b, but describes a control register Z System Control Completer (to support LPA, LHA, etc.) D 26 bit immediate at 31 (to support the DIAG instruction) f 3 bit Special Function Unit identifier at 25 O 20 bit Special Function Unit operation split between 15 bits at 20 and 5 bits at 31 o 15 bit Special Function Unit operation at 20 2 22 bit Special Function Unit operation split between 17 bits at 20 and 5 bits at 31 1 15 bit Special Function Unit operation split between 10 bits at 20 and 5 bits at 31 0 10 bit Special Function Unit operation split between 5 bits at 20 and 5 bits at 31 u 3 bit coprocessor unit identifier at 25 F Source Floating Point Operand Format Completer encoded 2 bits at 20 I Source Floating Point Operand Format Completer encoded 1 bits at 20 (for 0xe format FP instructions) G Destination Floating Point Operand Format Completer encoded 2 bits at 18 M Floating-Point Compare Conditions (encoded as 5 bits at 31) ? non-negated/negated compare/subtract conditions. @ non-negated/negated add conditions. ! non-negated add conditions. s 2 bit space specifier at 17. b register field at 10. r 5 bit immediate value at 31 (for the break instruction) (very similar to V above, except the value is unsigned instead of low_sign_ext) R 5 bit immediate value at 15 (for the ssm, rsm, probei instructions) (same as r above, except the value is in a different location) Q 5 bit immediate value at 10 (a bit position specified in the bb instruction. It's the same as r above, except the value is in a different location) | shift/extract/deposit conditions when used in a conditional branch And these (PJH) for PA-89 F.P. registers and instructions: v a 't' operand type extended to handle L/R register halves. E a 'b' operand type extended to handle L/R register halves. X an 'x' operand type extended to handle L/R register halves. J a 'b' operand type further extended to handle extra 1.1 registers K a 'x' operand type further extended to handle extra 1.1 registers 4 a variation of the 'b' operand type for 'fmpyadd' and 'fmpysub' 6 a variation of the 'x' operand type for 'fmpyadd' and 'fmpysub' 7 a variation of the 't' operand type for 'fmpyadd' and 'fmpysub' 8 5 bit register field at 20 (used in 'fmpyadd' and 'fmpysub') 9 5 bit register field at 25 (used in 'fmpyadd' and 'fmpysub') H Floating Point Operand Format at 26 for 'fmpyadd' and 'fmpysub' (very similar to 'F') */ /* The order of the opcodes in this table is significant: * The assembler requires that all instances of the same mnemonic must be consecutive. If they aren't, the assembler will bomb at runtime. * The disassembler should not care about the order of the opcodes. */ static const struct pa_opcode pa_opcodes[] = { /* pseudo-instructions */ { "b", 0xe8000000, 0xffe0e000, "nW", NORMAL}, /* bl foo,r0 */ { "ldi", 0x34000000, 0xffe0c000, "j,x"}, /* ldo val(r0),r */ { "comib", 0x84000000, 0xfc000000, "?n5,b,w", CONDITIONAL}, /* comib{tf}*/ { "comb", 0x80000000, 0xfc000000, "?nx,b,w", CONDITIONAL}, /* comb{tf} */ { "addb", 0xa0000000, 0xfc000000, "@nx,b,w", CONDITIONAL}, /* addb{tf} */ { "addib", 0xa4000000, 0xfc000000, "@n5,b,w", CONDITIONAL}, /* addib{tf}*/ { "nop", 0x08000240, 0xffffffff, ""}, /* or 0,0,0 */ { "copy", 0x08000240, 0xffe0ffe0, "x,t"}, /* or r,0,t */ { "mtsar", 0x01601840, 0xffe0ffff, "x"}, /* mtctl r,cr11 */ /* Loads and Stores for integer registers. */ { "ldw", 0x48000000, 0xfc000000, "j(s,b),x"}, { "ldw", 0x48000000, 0xfc000000, "j(b),x"}, { "ldh", 0x44000000, 0xfc000000, "j(s,b),x"}, { "ldh", 0x44000000, 0xfc000000, "j(b),x"}, { "ldb", 0x40000000, 0xfc000000, "j(s,b),x"}, { "ldb", 0x40000000, 0xfc000000, "j(b),x"}, { "stw", 0x68000000, 0xfc000000, "x,j(s,b)"}, { "stw", 0x68000000, 0xfc000000, "x,j(b)"}, { "sth", 0x64000000, 0xfc000000, "x,j(s,b)"}, { "sth", 0x64000000, 0xfc000000, "x,j(b)"}, { "stb", 0x60000000, 0xfc000000, "x,j(s,b)"}, { "stb", 0x60000000, 0xfc000000, "x,j(b)"}, { "ldwm", 0x4c000000, 0xfc000000, "j(s,b),x"}, { "ldwm", 0x4c000000, 0xfc000000, "j(b),x"}, { "stwm", 0x6c000000, 0xfc000000, "x,j(s,b)"}, { "stwm", 0x6c000000, 0xfc000000, "x,j(b)"}, { "ldwx", 0x0c000080, 0xfc001fc0, "cx(s,b),t"}, { "ldwx", 0x0c000080, 0xfc001fc0, "cx(b),t"}, { "ldhx", 0x0c000040, 0xfc001fc0, "cx(s,b),t"}, { "ldhx", 0x0c000040, 0xfc001fc0, "cx(b),t"}, { "ldbx", 0x0c000000, 0xfc001fc0, "cx(s,b),t"}, { "ldbx", 0x0c000000, 0xfc001fc0, "cx(b),t"}, { "ldwax", 0x0c000180, 0xfc00dfc0, "cx(b),t"}, { "ldcwx", 0x0c0001c0, 0xfc001fc0, "cx(s,b),t"}, { "ldcwx", 0x0c0001c0, 0xfc001fc0, "cx(b),t"}, { "ldws", 0x0c001080, 0xfc001fc0, "C5(s,b),t"}, { "ldws", 0x0c001080, 0xfc001fc0, "C5(b),t"}, { "ldhs", 0x0c001040, 0xfc001fc0, "C5(s,b),t"}, { "ldhs", 0x0c001040, 0xfc001fc0, "C5(b),t"}, { "ldbs", 0x0c001000, 0xfc001fc0, "C5(s,b),t"}, { "ldbs", 0x0c001000, 0xfc001fc0, "C5(b),t"}, { "ldwas", 0x0c001180, 0xfc00dfc0, "C5(b),t"}, { "ldcws", 0x0c0011c0, 0xfc001fc0, "C5(s,b),t"}, { "ldcws", 0x0c0011c0, 0xfc001fc0, "C5(b),t"}, { "stws", 0x0c001280, 0xfc001fc0, "Cx,V(s,b)"}, { "stws", 0x0c001280, 0xfc001fc0, "Cx,V(b)"}, { "sths", 0x0c001240, 0xfc001fc0, "Cx,V(s,b)"}, { "sths", 0x0c001240, 0xfc001fc0, "Cx,V(b)"}, { "stbs", 0x0c001200, 0xfc001fc0, "Cx,V(s,b)"}, { "stbs", 0x0c001200, 0xfc001fc0, "Cx,V(b)"}, { "stwas", 0x0c001380, 0xfc00dfc0, "Cx,V(b)"}, { "stbys", 0x0c001300, 0xfc001fc0, "Yx,V(s,b)"}, { "stbys", 0x0c001300, 0xfc001fc0, "Yx,V(b)"}, /* Immediate instructions. */ { "ldo", 0x34000000, 0xfc00c000, "j(b),x"}, { "ldil", 0x20000000, 0xfc000000, "k,b"}, { "addil", 0x28000000, 0xfc000000, "k,b"}, /* Branching instructions. */ { "bl", 0xe8000000, 0xfc00e000, "nW,b", NORMAL}, { "gate", 0xe8002000, 0xfc00e000, "nW,b", NORMAL}, { "blr", 0xe8004000, 0xfc00e001, "nx,b", NORMAL}, { "bv", 0xe800c000, 0xfc00e001, "nx(b)", NORMAL}, { "bv", 0xe800c000, 0xfc00e001, "n(b)", NORMAL}, { "be", 0xe0000000, 0xfc000000, "nz(S,b)", NORMAL}, { "ble", 0xe4000000, 0xfc000000, "nz(S,b)", NORMAL}, { "movb", 0xc8000000, 0xfc000000, "|nx,b,w", CONDITIONAL}, { "movib", 0xcc000000, 0xfc000000, "|n5,b,w", CONDITIONAL}, { "combt", 0x80000000, 0xfc000000, "x,b,t", CONDITIONAL}, { "shd", 0xd0000800, 0xfc001c00, ">x,b,p,t", CONDITIONAL}, { "vextru", 0xd0001000, 0xfc001fe0, ">b,T,x", CONDITIONAL}, { "vextrs", 0xd0001400, 0xfc001fe0, ">b,T,x", CONDITIONAL}, { "extru", 0xd0001800, 0xfc001c00, ">b,P,T,x", CONDITIONAL}, { "extrs", 0xd0001c00, 0xfc001c00, ">b,P,T,x", CONDITIONAL}, { "zvdep", 0xd4000000, 0xfc001fe0, ">x,T,b", CONDITIONAL}, { "vdep", 0xd4000400, 0xfc001fe0, ">x,T,b", CONDITIONAL}, { "zdep", 0xd4000800, 0xfc001c00, ">x,p,T,b", CONDITIONAL}, { "dep", 0xd4000c00, 0xfc001c00, ">x,p,T,b", CONDITIONAL}, { "zvdepi", 0xd4001000, 0xfc001fe0, ">5,T,b", CONDITIONAL}, { "vdepi", 0xd4001400, 0xfc001fe0, ">5,T,b", CONDITIONAL}, { "zdepi", 0xd4001800, 0xfc001c00, ">5,p,T,b", CONDITIONAL}, { "depi", 0xd4001c00, 0xfc001c00, ">5,p,T,b", CONDITIONAL}, /* System Control Instructions */ { "break", 0x00000000, 0xfc001fe0, "r,A"}, { "rfi", 0x00000c00, 0xffffffff, ""}, { "rfir", 0x00000ca0, 0xffffffff, ""}, { "ssm", 0x00000d60, 0xffe0ffe0, "R,t"}, { "rsm", 0x00000e60, 0xffe0ffe0, "R,t"}, { "mtsm", 0x00001860, 0xffe0ffff, "x"}, { "ldsid", 0x000010a0, 0xfc1f3fe0, "(s,b),t"}, { "ldsid", 0x000010a0, 0xfc1f3fe0, "(b),t"}, { "mtsp", 0x00001820, 0xffe01fff, "x,S"}, { "mtctl", 0x00001840, 0xfc00ffff, "x,^"}, { "mfsp", 0x000004a0, 0xffff1fe0, "S,t"}, { "mfctl", 0x000008a0, 0xfc1fffe0, "^,t"}, { "sync", 0x00000400, 0xffffffff, ""}, { "prober", 0x04001180, 0xfc003fe0, "(s,b),x,t"}, { "prober", 0x04001180, 0xfc003fe0, "(b),x,t"}, { "proberi", 0x04003180, 0xfc003fe0, "(s,b),R,t"}, { "proberi", 0x04003180, 0xfc003fe0, "(b),R,t"}, { "probew", 0x040011c0, 0xfc003fe0, "(s,b),x,t"}, { "probew", 0x040011c0, 0xfc003fe0, "(b),x,t"}, { "probewi", 0x040031c0, 0xfc003fe0, "(s,b),R,t"}, { "probewi", 0x040031c0, 0xfc003fe0, "(b),R,t"}, { "lpa", 0x04001340, 0xfc003fc0, "Zx(s,b),t"}, { "lpa", 0x04001340, 0xfc003fc0, "Zx(b),t"}, { "lha", 0x04001300, 0xfc003fc0, "Zx(s,b),t"}, { "lha", 0x04001300, 0xfc003fc0, "Zx(b),t"}, { "pdtlb", 0x04001200, 0xfc003fdf, "Zx(s,b)"}, { "pdtlb", 0x04001200, 0xfc003fdf, "Zx(b)"}, { "pitlb", 0x04000200, 0xfc003fdf, "Zx(s,b)"}, { "pitlb", 0x04000200, 0xfc003fdf, "Zx(b)"}, { "pdtlbe", 0x04001240, 0xfc003fdf, "Zx(s,b)"}, { "pdtlbe", 0x04001240, 0xfc003fdf, "Zx(b)"}, { "pitlbe", 0x04000240, 0xfc003fdf, "Zx(s,b)"}, { "pitlbe", 0x04000240, 0xfc003fdf, "Zx(b)"}, { "idtlba", 0x04001040, 0xfc003fff, "x,(s,b)"}, { "idtlba", 0x04001040, 0xfc003fff, "x,(b)"}, { "iitlba", 0x04000040, 0xfc003fff, "x,(s,b)"}, { "iitlba", 0x04000040, 0xfc003fff, "x,(b)"}, { "idtlbp", 0x04001000, 0xfc003fff, "x,(s,b)"}, { "idtlbp", 0x04001000, 0xfc003fff, "x,(b)"}, { "iitlbp", 0x04000000, 0xfc003fff, "x,(s,b)"}, { "iitlbp", 0x04000000, 0xfc003fff, "x,(b)"}, { "pdc", 0x04001380, 0xfc003fdf, "Zx(s,b)"}, { "pdc", 0x04001380, 0xfc003fdf, "Zx(b)"}, { "fdc", 0x04001280, 0xfc003fdf, "Zx(s,b)"}, { "fdc", 0x04001280, 0xfc003fdf, "Zx(b)"}, { "fic", 0x04000280, 0xfc003fdf, "Zx(s,b)"}, { "fic", 0x04000280, 0xfc003fdf, "Zx(b)"}, { "fdce", 0x040012c0, 0xfc003fdf, "Zx(s,b)"}, { "fdce", 0x040012c0, 0xfc003fdf, "Zx(b)"}, { "fice", 0x040002c0, 0xfc003fdf, "Zx(s,b)"}, { "fice", 0x040002c0, 0xfc003fdf, "Zx(b)"}, { "diag", 0x14000000, 0xfc000000, "D"}, /* gfw and gfr are not in the HP PA 1.1 manual, but they are in either the Timex FPU or the Mustang ERS (not sure which) manual. */ { "gfw", 0x04001680, 0xfc003fdf, "Zx(s,b)"}, { "gfw", 0x04001680, 0xfc003fdf, "Zx(b)"}, { "gfr", 0x04001a80, 0xfc003fdf, "Zx(s,b)"}, { "gfr", 0x04001a80, 0xfc003fdf, "Zx(b)"}, /* Floating Point Coprocessor Instructions */ { "fldwx", 0x24000000, 0xfc001f80, "cx(s,b),v"}, { "fldwx", 0x24000000, 0xfc001f80, "cx(b),v"}, { "flddx", 0x2c000000, 0xfc001fc0, "cx(s,b),y"}, { "flddx", 0x2c000000, 0xfc001fc0, "cx(b),y"}, { "fstwx", 0x24000200, 0xfc001fc0, "cv,x(s,b)"}, { "fstwx", 0x24000200, 0xfc001fc0, "cv,x(b)"}, { "fstdx", 0x2c000200, 0xfc001fc0, "cy,x(s,b)"}, { "fstdx", 0x2c000200, 0xfc001fc0, "cy,x(b)"}, { "fstqx", 0x3c000200, 0xfc001fc0, "cy,x(s,b)"}, { "fstqx", 0x3c000200, 0xfc001fc0, "cy,x(b)"}, { "fldws", 0x24001000, 0xfc001f80, "C5(s,b),v"}, { "fldws", 0x24001000, 0xfc001f80, "C5(b),v"}, { "fldds", 0x2c001000, 0xfc001fc0, "C5(s,b),y"}, { "fldds", 0x2c001000, 0xfc001fc0, "C5(b),y"}, { "fstws", 0x24001200, 0xfc001f80, "Cv,5(s,b)"}, { "fstws", 0x24001200, 0xfc001f80, "Cv,5(b)"}, { "fstds", 0x2c001200, 0xfc001fc0, "Cy,5(s,b)"}, { "fstds", 0x2c001200, 0xfc001fc0, "Cy,5(b)"}, { "fstqs", 0x3c001200, 0xfc001fc0, "Cy,5(s,b)"}, { "fstqs", 0x3c001200, 0xfc001fc0, "Cy,5(b)"}, { "fadd", 0x30000600, 0xfc00e7e0, "FE,X,v"}, { "fadd", 0x38000600, 0xfc00e720, "IJ,K,v"}, { "fsub", 0x30002600, 0xfc00e7e0, "FE,X,v"}, { "fsub", 0x38002600, 0xfc00e720, "IJ,K,v"}, { "fmpy", 0x30004600, 0xfc00e7e0, "FE,X,v"}, { "fmpy", 0x38004600, 0xfc00e720, "IJ,K,v"}, { "fdiv", 0x30006600, 0xfc00e7e0, "FE,X,v"}, { "fdiv", 0x38006600, 0xfc00e720, "IJ,K,v"}, { "fsqrt", 0x30008000, 0xfc1fe7e0, "FE,v"}, { "fsqrt", 0x38008000, 0xfc1fe720, "FJ,v"}, { "fabs", 0x30006000, 0xfc1fe7e0, "FE,v"}, { "fabs", 0x38006000, 0xfc1fe720, "FJ,v"}, { "frem", 0x30008600, 0xfc00e7e0, "FE,X,v"}, { "frem", 0x38008600, 0xfc00e720, "FJ,K,v"}, { "frnd", 0x3000a000, 0xfc1fe7e0, "FE,v"}, { "frnd", 0x3800a000, 0xfc1fe720, "FJ,v"}, { "fcpy", 0x30004000, 0xfc1fe7e0, "FE,v"}, { "fcpy", 0x38004000, 0xfc1fe720, "FJ,v"}, { "fcnvff", 0x30000200, 0xfc1f87e0, "FGE,v"}, { "fcnvff", 0x38000200, 0xfc1f8720, "FGJ,v"}, { "fcnvxf", 0x30008200, 0xfc1f87e0, "FGE,v"}, { "fcnvxf", 0x38008200, 0xfc1f8720, "FGJ,v"}, { "fcnvfx", 0x30010200, 0xfc1f87e0, "FGE,v"}, { "fcnvfx", 0x38010200, 0xfc1f8720, "FGJ,v"}, { "fcnvfxt", 0x30018200, 0xfc1f87e0, "FGE,v"}, { "fcnvfxt", 0x38018200, 0xfc1f8720, "FGJ,v"}, { "fcmp", 0x30000400, 0xfc00e7e0, "FME,X"}, { "fcmp", 0x38000400, 0xfc00e720, "IMJ,K"}, { "xmpyu", 0x38004700, 0xfc00e720, "E,X,v"}, { "fmpyadd", 0x18000000, 0xfc000000, "H4,6,7,9,8"}, { "fmpysub", 0x98000000, 0xfc000000, "H4,6,7,9,8"}, { "ftest", 0x30002420, 0xffffffff, ""}, /* Assist Instructions */ { "spop0", 0x10000000, 0xfc000600, "f,ON", NORMAL}, { "spop1", 0x10000200, 0xfc000600, "f,oNt", NORMAL}, { "spop2", 0x10000400, 0xfc000600, "f,1Nb", NORMAL}, { "spop3", 0x10000600, 0xfc000600, "f,0Nx,b", NORMAL}, { "copr", 0x30000000, 0xfc000000, "u,2N", NORMAL}, { "cldwx", 0x24000000, 0xfc001e00, "ucx(s,b),t"}, { "cldwx", 0x24000000, 0xfc001e00, "ucx(b),t"}, { "clddx", 0x2c000000, 0xfc001e00, "ucx(s,b),t"}, { "clddx", 0x2c000000, 0xfc001e00, "ucx(b),t"}, { "cstwx", 0x24000200, 0xfc001e00, "uct,x(s,b)"}, { "cstwx", 0x24000200, 0xfc001e00, "uct,x(b)"}, { "cstdx", 0x2c000200, 0xfc001e00, "uct,x(s,b)"}, { "cstdx", 0x2c000200, 0xfc001e00, "uct,x(b)"}, { "cldws", 0x24001000, 0xfc001e00, "uC5(s,b),t"}, { "cldws", 0x24001000, 0xfc001e00, "uC5(b),t"}, { "cldds", 0x2c001000, 0xfc001e00, "uC5(s,b),t"}, { "cldds", 0x2c001000, 0xfc001e00, "uC5(b),t"}, { "cstws", 0x24001200, 0xfc001e00, "uCt,5(s,b)"}, { "cstws", 0x24001200, 0xfc001e00, "uCt,5(b)"}, { "cstds", 0x2c001200, 0xfc001e00, "uCt,5(s,b)"}, { "cstds", 0x2c001200, 0xfc001e00, "uCt,5(b)"}, }; #define NUMOPCODES ((sizeof pa_opcodes)/(sizeof pa_opcodes[0])) /* SKV 12/18/92. Added some denotations for various operands. */ #define PA_IMM11_AT_31 'i' #define PA_IMM14_AT_31 'j' #define PA_IMM21_AT_31 'k' #define PA_DISP12 'w' #define PA_DISP17 'W' #define N_HPPA_OPERAND_FORMATS 5 gdb-4.13/include/opcode/i386.h 666 34562 1752 102160 5546666124 14351 0ustar fnfcygnus/* i386-opcode.h -- Intel 80386 opcode table Copyright 1989, 1991, 1992 Free Software Foundation. This file is part of GAS, the GNU Assembler, and GDB, the GNU Debugger. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ static const template i386_optab[] = { #define _ None /* move instructions */ { "mov", 2, 0xa0, _, DW|NoModrm, { Disp32, Acc, 0 } }, { "mov", 2, 0x88, _, DW|Modrm, { Reg, Reg|Mem, 0 } }, { "mov", 2, 0xb0, _, ShortFormW, { Imm, Reg, 0 } }, { "mov", 2, 0xc6, _, W|Modrm, { Imm, Reg|Mem, 0 } }, { "mov", 2, 0x8c, _, D|Modrm, { SReg3|SReg2, Reg16|Mem, 0 } }, /* move to/from control debug registers */ { "mov", 2, 0x0f20, _, D|Modrm, { Control, Reg32, 0} }, { "mov", 2, 0x0f21, _, D|Modrm, { Debug, Reg32, 0} }, { "mov", 2, 0x0f24, _, D|Modrm, { Test, Reg32, 0} }, /* move with sign extend */ /* "movsbl" & "movsbw" must not be unified into "movsb" to avoid conflict with the "movs" string move instruction. Thus, {"movsb", 2, 0x0fbe, _, ReverseRegRegmem|Modrm, { Reg8|Mem, Reg16|Reg32, 0} }, is not kosher; we must seperate the two instructions. */ {"movsbl", 2, 0x0fbe, _, ReverseRegRegmem|Modrm, { Reg8|Mem, Reg32, 0} }, {"movsbw", 2, 0x660fbe, _, ReverseRegRegmem|Modrm, { Reg8|Mem, Reg16, 0} }, {"movswl", 2, 0x0fbf, _, ReverseRegRegmem|Modrm, { Reg16|Mem, Reg32, 0} }, /* move with zero extend */ {"movzb", 2, 0x0fb6, _, ReverseRegRegmem|Modrm, { Reg8|Mem, Reg16|Reg32, 0} }, {"movzwl", 2, 0x0fb7, _, ReverseRegRegmem|Modrm, { Reg16|Mem, Reg32, 0} }, /* push instructions */ {"push", 1, 0x50, _, ShortForm, { WordReg,0,0 } }, {"push", 1, 0xff, 0x6, Modrm, { WordReg|WordMem, 0, 0 } }, {"push", 1, 0x6a, _, NoModrm, { Imm8S, 0, 0} }, {"push", 1, 0x68, _, NoModrm, { Imm16|Imm32, 0, 0} }, {"push", 1, 0x06, _, Seg2ShortForm, { SReg2,0,0 } }, {"push", 1, 0x0fa0, _, Seg3ShortForm, { SReg3,0,0 } }, /* push all */ {"pusha", 0, 0x60, _, NoModrm, { 0, 0, 0 } }, /* pop instructions */ {"pop", 1, 0x58, _, ShortForm, { WordReg,0,0 } }, {"pop", 1, 0x8f, 0x0, Modrm, { WordReg|WordMem, 0, 0 } }, #define POP_SEG_SHORT 0x7 {"pop", 1, 0x07, _, Seg2ShortForm, { SReg2,0,0 } }, {"pop", 1, 0x0fa1, _, Seg3ShortForm, { SReg3,0,0 } }, /* pop all */ {"popa", 0, 0x61, _, NoModrm, { 0, 0, 0 } }, /* xchg exchange instructions xchg commutes: we allow both operand orders */ {"xchg", 2, 0x90, _, ShortForm, { WordReg, Acc, 0 } }, {"xchg", 2, 0x90, _, ShortForm, { Acc, WordReg, 0 } }, {"xchg", 2, 0x86, _, W|Modrm, { Reg, Reg|Mem, 0 } }, {"xchg", 2, 0x86, _, W|Modrm, { Reg|Mem, Reg, 0 } }, /* in/out from ports */ {"in", 2, 0xe4, _, W|NoModrm, { Imm8, Acc, 0 } }, {"in", 2, 0xec, _, W|NoModrm, { InOutPortReg, Acc, 0 } }, {"in", 1, 0xe4, _, W|NoModrm, { Imm8, 0, 0 } }, {"in", 1, 0xec, _, W|NoModrm, { InOutPortReg, 0, 0 } }, {"out", 2, 0xe6, _, W|NoModrm, { Acc, Imm8, 0 } }, {"out", 2, 0xee, _, W|NoModrm, { Acc, InOutPortReg, 0 } }, {"out", 1, 0xe6, _, W|NoModrm, { Imm8, 0, 0 } }, {"out", 1, 0xee, _, W|NoModrm, { InOutPortReg, 0, 0 } }, /* load effective address */ {"lea", 2, 0x8d, _, Modrm, { WordMem, WordReg, 0 } }, /* load segment registers from memory */ {"lds", 2, 0xc5, _, Modrm, { Mem, Reg32, 0} }, {"les", 2, 0xc4, _, Modrm, { Mem, Reg32, 0} }, {"lfs", 2, 0x0fb4, _, Modrm, { Mem, Reg32, 0} }, {"lgs", 2, 0x0fb5, _, Modrm, { Mem, Reg32, 0} }, {"lss", 2, 0x0fb2, _, Modrm, { Mem, Reg32, 0} }, /* flags register instructions */ {"clc", 0, 0xf8, _, NoModrm, { 0, 0, 0} }, {"cld", 0, 0xfc, _, NoModrm, { 0, 0, 0} }, {"cli", 0, 0xfa, _, NoModrm, { 0, 0, 0} }, {"clts", 0, 0x0f06, _, NoModrm, { 0, 0, 0} }, {"cmc", 0, 0xf5, _, NoModrm, { 0, 0, 0} }, {"lahf", 0, 0x9f, _, NoModrm, { 0, 0, 0} }, {"sahf", 0, 0x9e, _, NoModrm, { 0, 0, 0} }, {"pushf", 0, 0x9c, _, NoModrm, { 0, 0, 0} }, {"popf", 0, 0x9d, _, NoModrm, { 0, 0, 0} }, {"stc", 0, 0xf9, _, NoModrm, { 0, 0, 0} }, {"std", 0, 0xfd, _, NoModrm, { 0, 0, 0} }, {"sti", 0, 0xfb, _, NoModrm, { 0, 0, 0} }, {"add", 2, 0x0, _, DW|Modrm, { Reg, Reg|Mem, 0} }, {"add", 2, 0x83, 0, Modrm, { Imm8S, WordReg|WordMem, 0} }, {"add", 2, 0x4, _, W|NoModrm, { Imm, Acc, 0} }, {"add", 2, 0x80, 0, W|Modrm, { Imm, Reg|Mem, 0} }, {"inc", 1, 0x40, _, ShortForm, { WordReg, 0, 0} }, {"inc", 1, 0xfe, 0, W|Modrm, { Reg|Mem, 0, 0} }, {"sub", 2, 0x28, _, DW|Modrm, { Reg, Reg|Mem, 0} }, {"sub", 2, 0x83, 5, Modrm, { Imm8S, WordReg|WordMem, 0} }, {"sub", 2, 0x2c, _, W|NoModrm, { Imm, Acc, 0} }, {"sub", 2, 0x80, 5, W|Modrm, { Imm, Reg|Mem, 0} }, {"dec", 1, 0x48, _, ShortForm, { WordReg, 0, 0} }, {"dec", 1, 0xfe, 1, W|Modrm, { Reg|Mem, 0, 0} }, {"sbb", 2, 0x18, _, DW|Modrm, { Reg, Reg|Mem, 0} }, {"sbb", 2, 0x83, 3, Modrm, { Imm8S, WordReg|WordMem, 0} }, {"sbb", 2, 0x1c, _, W|NoModrm, { Imm, Acc, 0} }, {"sbb", 2, 0x80, 3, W|Modrm, { Imm, Reg|Mem, 0} }, {"cmp", 2, 0x38, _, DW|Modrm, { Reg, Reg|Mem, 0} }, {"cmp", 2, 0x83, 7, Modrm, { Imm8S, WordReg|WordMem, 0} }, {"cmp", 2, 0x3c, _, W|NoModrm, { Imm, Acc, 0} }, {"cmp", 2, 0x80, 7, W|Modrm, { Imm, Reg|Mem, 0} }, {"test", 2, 0x84, _, W|Modrm, { Reg|Mem, Reg, 0} }, {"test", 2, 0x84, _, W|Modrm, { Reg, Reg|Mem, 0} }, {"test", 2, 0xa8, _, W|NoModrm, { Imm, Acc, 0} }, {"test", 2, 0xf6, 0, W|Modrm, { Imm, Reg|Mem, 0} }, {"and", 2, 0x20, _, DW|Modrm, { Reg, Reg|Mem, 0} }, {"and", 2, 0x83, 4, Modrm, { Imm8S, WordReg|WordMem, 0} }, {"and", 2, 0x24, _, W|NoModrm, { Imm, Acc, 0} }, {"and", 2, 0x80, 4, W|Modrm, { Imm, Reg|Mem, 0} }, {"or", 2, 0x08, _, DW|Modrm, { Reg, Reg|Mem, 0} }, {"or", 2, 0x83, 1, Modrm, { Imm8S, WordReg|WordMem, 0} }, {"or", 2, 0x0c, _, W|NoModrm, { Imm, Acc, 0} }, {"or", 2, 0x80, 1, W|Modrm, { Imm, Reg|Mem, 0} }, {"xor", 2, 0x30, _, DW|Modrm, { Reg, Reg|Mem, 0} }, {"xor", 2, 0x83, 6, Modrm, { Imm8S, WordReg|WordMem, 0} }, {"xor", 2, 0x34, _, W|NoModrm, { Imm, Acc, 0} }, {"xor", 2, 0x80, 6, W|Modrm, { Imm, Reg|Mem, 0} }, {"adc", 2, 0x10, _, DW|Modrm, { Reg, Reg|Mem, 0} }, {"adc", 2, 0x83, 2, Modrm, { Imm8S, WordReg|WordMem, 0} }, {"adc", 2, 0x14, _, W|NoModrm, { Imm, Acc, 0} }, {"adc", 2, 0x80, 2, W|Modrm, { Imm, Reg|Mem, 0} }, {"neg", 1, 0xf6, 3, W|Modrm, { Reg|Mem, 0, 0} }, {"not", 1, 0xf6, 2, W|Modrm, { Reg|Mem, 0, 0} }, {"aaa", 0, 0x37, _, NoModrm, { 0, 0, 0} }, {"aas", 0, 0x3f, _, NoModrm, { 0, 0, 0} }, {"daa", 0, 0x27, _, NoModrm, { 0, 0, 0} }, {"das", 0, 0x2f, _, NoModrm, { 0, 0, 0} }, {"aad", 0, 0xd50a, _, NoModrm, { 0, 0, 0} }, {"aam", 0, 0xd40a, _, NoModrm, { 0, 0, 0} }, /* conversion insns */ /* conversion: intel naming */ {"cbw", 0, 0x6698, _, NoModrm, { 0, 0, 0} }, {"cwd", 0, 0x6699, _, NoModrm, { 0, 0, 0} }, {"cwde", 0, 0x98, _, NoModrm, { 0, 0, 0} }, {"cdq", 0, 0x99, _, NoModrm, { 0, 0, 0} }, /* att naming */ {"cbtw", 0, 0x6698, _, NoModrm, { 0, 0, 0} }, {"cwtl", 0, 0x98, _, NoModrm, { 0, 0, 0} }, {"cwtd", 0, 0x6699, _, NoModrm, { 0, 0, 0} }, {"cltd", 0, 0x99, _, NoModrm, { 0, 0, 0} }, /* Warning! the mul/imul (opcode 0xf6) must only have 1 operand! They are expanding 64-bit multiplies, and *cannot* be selected to accomplish 'imul %ebx, %eax' (opcode 0x0faf must be used in this case) These multiplies can only be selected with single operand forms. */ {"mul", 1, 0xf6, 4, W|Modrm, { Reg|Mem, 0, 0} }, {"imul", 1, 0xf6, 5, W|Modrm, { Reg|Mem, 0, 0} }, /* imulKludge here is needed to reverse the i.rm.reg & i.rm.regmem fields. These instructions are exceptions: 'imul $2, %eax, %ecx' would put '%eax' in the reg field and '%ecx' in the regmem field if we did not switch them. */ {"imul", 2, 0x0faf, _, Modrm|ReverseRegRegmem, { WordReg|Mem, WordReg, 0} }, {"imul", 3, 0x6b, _, Modrm|ReverseRegRegmem, { Imm8S, WordReg|Mem, WordReg} }, {"imul", 3, 0x69, _, Modrm|ReverseRegRegmem, { Imm16|Imm32, WordReg|Mem, WordReg} }, /* imul with 2 operands mimicks imul with 3 by puting register both in i.rm.reg & i.rm.regmem fields */ {"imul", 2, 0x6b, _, Modrm|imulKludge, { Imm8S, WordReg, 0} }, {"imul", 2, 0x69, _, Modrm|imulKludge, { Imm16|Imm32, WordReg, 0} }, {"div", 1, 0xf6, 6, W|Modrm, { Reg|Mem, 0, 0} }, {"div", 2, 0xf6, 6, W|Modrm, { Reg|Mem, Acc, 0} }, {"idiv", 1, 0xf6, 7, W|Modrm, { Reg|Mem, 0, 0} }, {"idiv", 2, 0xf6, 7, W|Modrm, { Reg|Mem, Acc, 0} }, {"rol", 2, 0xd0, 0, W|Modrm, { Imm1, Reg|Mem, 0} }, {"rol", 2, 0xc0, 0, W|Modrm, { Imm8, Reg|Mem, 0} }, {"rol", 2, 0xd2, 0, W|Modrm, { ShiftCount, Reg|Mem, 0} }, {"rol", 1, 0xd0, 0, W|Modrm, { Reg|Mem, 0, 0} }, {"ror", 2, 0xd0, 1, W|Modrm, { Imm1, Reg|Mem, 0} }, {"ror", 2, 0xc0, 1, W|Modrm, { Imm8, Reg|Mem, 0} }, {"ror", 2, 0xd2, 1, W|Modrm, { ShiftCount, Reg|Mem, 0} }, {"ror", 1, 0xd0, 1, W|Modrm, { Reg|Mem, 0, 0} }, {"rcl", 2, 0xd0, 2, W|Modrm, { Imm1, Reg|Mem, 0} }, {"rcl", 2, 0xc0, 2, W|Modrm, { Imm8, Reg|Mem, 0} }, {"rcl", 2, 0xd2, 2, W|Modrm, { ShiftCount, Reg|Mem, 0} }, {"rcl", 1, 0xd0, 2, W|Modrm, { Reg|Mem, 0, 0} }, {"rcr", 2, 0xd0, 3, W|Modrm, { Imm1, Reg|Mem, 0} }, {"rcr", 2, 0xc0, 3, W|Modrm, { Imm8, Reg|Mem, 0} }, {"rcr", 2, 0xd2, 3, W|Modrm, { ShiftCount, Reg|Mem, 0} }, {"rcr", 1, 0xd0, 3, W|Modrm, { Reg|Mem, 0, 0} }, {"sal", 2, 0xd0, 4, W|Modrm, { Imm1, Reg|Mem, 0} }, {"sal", 2, 0xc0, 4, W|Modrm, { Imm8, Reg|Mem, 0} }, {"sal", 2, 0xd2, 4, W|Modrm, { ShiftCount, Reg|Mem, 0} }, {"sal", 1, 0xd0, 4, W|Modrm, { Reg|Mem, 0, 0} }, {"shl", 2, 0xd0, 4, W|Modrm, { Imm1, Reg|Mem, 0} }, {"shl", 2, 0xc0, 4, W|Modrm, { Imm8, Reg|Mem, 0} }, {"shl", 2, 0xd2, 4, W|Modrm, { ShiftCount, Reg|Mem, 0} }, {"shl", 1, 0xd0, 4, W|Modrm, { Reg|Mem, 0, 0} }, {"shld", 3, 0x0fa4, _, Modrm, { Imm8, WordReg, WordReg|Mem} }, {"shld", 3, 0x0fa5, _, Modrm, { ShiftCount, WordReg, WordReg|Mem} }, {"shld", 2, 0x0fa5, _, Modrm, { WordReg, WordReg|Mem, 0} }, {"shr", 2, 0xd0, 5, W|Modrm, { Imm1, Reg|Mem, 0} }, {"shr", 2, 0xc0, 5, W|Modrm, { Imm8, Reg|Mem, 0} }, {"shr", 2, 0xd2, 5, W|Modrm, { ShiftCount, Reg|Mem, 0} }, {"shr", 1, 0xd0, 5, W|Modrm, { Reg|Mem, 0, 0} }, {"shrd", 3, 0x0fac, _, Modrm, { Imm8, WordReg, WordReg|Mem} }, {"shrd", 3, 0x0fad, _, Modrm, { ShiftCount, WordReg, WordReg|Mem} }, {"shrd", 2, 0x0fad, _, Modrm, { WordReg, WordReg|Mem, 0} }, {"sar", 2, 0xd0, 7, W|Modrm, { Imm1, Reg|Mem, 0} }, {"sar", 2, 0xc0, 7, W|Modrm, { Imm8, Reg|Mem, 0} }, {"sar", 2, 0xd2, 7, W|Modrm, { ShiftCount, Reg|Mem, 0} }, {"sar", 1, 0xd0, 7, W|Modrm, { Reg|Mem, 0, 0} }, /* control transfer instructions */ #define CALL_PC_RELATIVE 0xe8 {"call", 1, 0xe8, _, JumpDword, { Disp32, 0, 0} }, {"call", 1, 0xff, 2, Modrm, { Reg|Mem|JumpAbsolute, 0, 0} }, #define CALL_FAR_IMMEDIATE 0x9a {"lcall", 2, 0x9a, _, JumpInterSegment, { Imm16, Abs32|Imm32, 0} }, {"lcall", 1, 0xff, 3, Modrm, { Mem, 0, 0} }, #define JUMP_PC_RELATIVE 0xeb {"jmp", 1, 0xeb, _, Jump, { Disp, 0, 0} }, {"jmp", 1, 0xff, 4, Modrm, { Reg32|Mem|JumpAbsolute, 0, 0} }, #define JUMP_FAR_IMMEDIATE 0xea {"ljmp", 2, 0xea, _, JumpInterSegment, { Imm16, Imm32, 0} }, {"ljmp", 1, 0xff, 5, Modrm, { Mem, 0, 0} }, {"ret", 0, 0xc3, _, NoModrm, { 0, 0, 0} }, {"ret", 1, 0xc2, _, NoModrm, { Imm16, 0, 0} }, {"lret", 0, 0xcb, _, NoModrm, { 0, 0, 0} }, {"lret", 1, 0xca, _, NoModrm, { Imm16, 0, 0} }, {"enter", 2, 0xc8, _, NoModrm, { Imm16, Imm8, 0} }, {"leave", 0, 0xc9, _, NoModrm, { 0, 0, 0} }, /* conditional jumps */ {"jo", 1, 0x70, _, Jump, { Disp, 0, 0} }, {"jno", 1, 0x71, _, Jump, { Disp, 0, 0} }, {"jb", 1, 0x72, _, Jump, { Disp, 0, 0} }, {"jc", 1, 0x72, _, Jump, { Disp, 0, 0} }, {"jnae", 1, 0x72, _, Jump, { Disp, 0, 0} }, {"jnb", 1, 0x73, _, Jump, { Disp, 0, 0} }, {"jnc", 1, 0x73, _, Jump, { Disp, 0, 0} }, {"jae", 1, 0x73, _, Jump, { Disp, 0, 0} }, {"je", 1, 0x74, _, Jump, { Disp, 0, 0} }, {"jz", 1, 0x74, _, Jump, { Disp, 0, 0} }, {"jne", 1, 0x75, _, Jump, { Disp, 0, 0} }, {"jnz", 1, 0x75, _, Jump, { Disp, 0, 0} }, {"jbe", 1, 0x76, _, Jump, { Disp, 0, 0} }, {"jna", 1, 0x76, _, Jump, { Disp, 0, 0} }, {"jnbe", 1, 0x77, _, Jump, { Disp, 0, 0} }, {"ja", 1, 0x77, _, Jump, { Disp, 0, 0} }, {"js", 1, 0x78, _, Jump, { Disp, 0, 0} }, {"jns", 1, 0x79, _, Jump, { Disp, 0, 0} }, {"jp", 1, 0x7a, _, Jump, { Disp, 0, 0} }, {"jpe", 1, 0x7a, _, Jump, { Disp, 0, 0} }, {"jnp", 1, 0x7b, _, Jump, { Disp, 0, 0} }, {"jpo", 1, 0x7b, _, Jump, { Disp, 0, 0} }, {"jl", 1, 0x7c, _, Jump, { Disp, 0, 0} }, {"jnge", 1, 0x7c, _, Jump, { Disp, 0, 0} }, {"jnl", 1, 0x7d, _, Jump, { Disp, 0, 0} }, {"jge", 1, 0x7d, _, Jump, { Disp, 0, 0} }, {"jle", 1, 0x7e, _, Jump, { Disp, 0, 0} }, {"jng", 1, 0x7e, _, Jump, { Disp, 0, 0} }, {"jnle", 1, 0x7f, _, Jump, { Disp, 0, 0} }, {"jg", 1, 0x7f, _, Jump, { Disp, 0, 0} }, /* these turn into pseudo operations when disp is larger than 8 bits */ #define IS_JUMP_ON_CX_ZERO(o) \ (o == 0x66e3) #define IS_JUMP_ON_ECX_ZERO(o) \ (o == 0xe3) {"jcxz", 1, 0x66e3, _, JumpByte, { Disp, 0, 0} }, {"jecxz", 1, 0xe3, _, JumpByte, { Disp, 0, 0} }, #define IS_LOOP_ECX_TIMES(o) \ (o == 0xe2 || o == 0xe1 || o == 0xe0) {"loop", 1, 0xe2, _, JumpByte, { Disp, 0, 0} }, {"loopz", 1, 0xe1, _, JumpByte, { Disp, 0, 0} }, {"loope", 1, 0xe1, _, JumpByte, { Disp, 0, 0} }, {"loopnz", 1, 0xe0, _, JumpByte, { Disp, 0, 0} }, {"loopne", 1, 0xe0, _, JumpByte, { Disp, 0, 0} }, /* set byte on flag instructions */ {"seto", 1, 0x0f90, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setno", 1, 0x0f91, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setb", 1, 0x0f92, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setc", 1, 0x0f92, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setnae", 1, 0x0f92, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setnb", 1, 0x0f93, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setnc", 1, 0x0f93, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setae", 1, 0x0f93, 0, Modrm, { Reg8|Mem, 0, 0} }, {"sete", 1, 0x0f94, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setz", 1, 0x0f94, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setne", 1, 0x0f95, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setnz", 1, 0x0f95, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setbe", 1, 0x0f96, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setna", 1, 0x0f96, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setnbe", 1, 0x0f97, 0, Modrm, { Reg8|Mem, 0, 0} }, {"seta", 1, 0x0f97, 0, Modrm, { Reg8|Mem, 0, 0} }, {"sets", 1, 0x0f98, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setns", 1, 0x0f99, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setp", 1, 0x0f9a, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setpe", 1, 0x0f9a, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setnp", 1, 0x0f9b, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setpo", 1, 0x0f9b, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setl", 1, 0x0f9c, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setnge", 1, 0x0f9c, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setnl", 1, 0x0f9d, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setge", 1, 0x0f9d, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setle", 1, 0x0f9e, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setng", 1, 0x0f9e, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setnle", 1, 0x0f9f, 0, Modrm, { Reg8|Mem, 0, 0} }, {"setg", 1, 0x0f9f, 0, Modrm, { Reg8|Mem, 0, 0} }, #define IS_STRING_INSTRUCTION(o) \ ((o) == 0xa6 || (o) == 0x6c || (o) == 0x6e || (o) == 0x6e || \ (o) == 0xac || (o) == 0xa4 || (o) == 0xae || (o) == 0xaa || \ (o) == 0xd7) /* string manipulation */ {"cmps", 0, 0xa6, _, W|NoModrm, { 0, 0, 0} }, {"scmp", 0, 0xa6, _, W|NoModrm, { 0, 0, 0} }, {"ins", 0, 0x6c, _, W|NoModrm, { 0, 0, 0} }, {"outs", 0, 0x6e, _, W|NoModrm, { 0, 0, 0} }, {"lods", 0, 0xac, _, W|NoModrm, { 0, 0, 0} }, {"slod", 0, 0xac, _, W|NoModrm, { 0, 0, 0} }, {"movs", 0, 0xa4, _, W|NoModrm, { 0, 0, 0} }, {"smov", 0, 0xa4, _, W|NoModrm, { 0, 0, 0} }, {"scas", 0, 0xae, _, W|NoModrm, { 0, 0, 0} }, {"ssca", 0, 0xae, _, W|NoModrm, { 0, 0, 0} }, {"stos", 0, 0xaa, _, W|NoModrm, { 0, 0, 0} }, {"ssto", 0, 0xaa, _, W|NoModrm, { 0, 0, 0} }, {"xlat", 0, 0xd7, _, NoModrm, { 0, 0, 0} }, /* bit manipulation */ {"bsf", 2, 0x0fbc, _, Modrm|ReverseRegRegmem, { Reg|Mem, Reg, 0} }, {"bsr", 2, 0x0fbd, _, Modrm|ReverseRegRegmem, { Reg|Mem, Reg, 0} }, {"bt", 2, 0x0fa3, _, Modrm, { Reg, Reg|Mem, 0} }, {"bt", 2, 0x0fba, 4, Modrm, { Imm8, Reg|Mem, 0} }, {"btc", 2, 0x0fbb, _, Modrm, { Reg, Reg|Mem, 0} }, {"btc", 2, 0x0fba, 7, Modrm, { Imm8, Reg|Mem, 0} }, {"btr", 2, 0x0fb3, _, Modrm, { Reg, Reg|Mem, 0} }, {"btr", 2, 0x0fba, 6, Modrm, { Imm8, Reg|Mem, 0} }, {"bts", 2, 0x0fab, _, Modrm, { Reg, Reg|Mem, 0} }, {"bts", 2, 0x0fba, 5, Modrm, { Imm8, Reg|Mem, 0} }, /* interrupts & op. sys insns */ /* See gas/config/tc-i386.c for conversion of 'int $3' into the special int 3 insn. */ #define INT_OPCODE 0xcd #define INT3_OPCODE 0xcc {"int", 1, 0xcd, _, NoModrm, { Imm8, 0, 0} }, {"int3", 0, 0xcc, _, NoModrm, { 0, 0, 0} }, {"into", 0, 0xce, _, NoModrm, { 0, 0, 0} }, {"iret", 0, 0xcf, _, NoModrm, { 0, 0, 0} }, /* i386sl (and i486sl?) only */ {"rsm", 0, 0x0faa, _, NoModrm,{ 0, 0, 0} }, {"boundl", 2, 0x62, _, Modrm, { Reg32, Mem, 0} }, {"boundw", 2, 0x6662, _, Modrm, { Reg16, Mem, 0} }, {"hlt", 0, 0xf4, _, NoModrm, { 0, 0, 0} }, {"wait", 0, 0x9b, _, NoModrm, { 0, 0, 0} }, /* nop is actually 'xchgl %eax, %eax' */ {"nop", 0, 0x90, _, NoModrm, { 0, 0, 0} }, /* protection control */ {"arpl", 2, 0x63, _, Modrm, { Reg16, Reg16|Mem, 0} }, {"lar", 2, 0x0f02, _, Modrm|ReverseRegRegmem, { WordReg|Mem, WordReg, 0} }, {"lgdt", 1, 0x0f01, 2, Modrm, { Mem, 0, 0} }, {"lidt", 1, 0x0f01, 3, Modrm, { Mem, 0, 0} }, {"lldt", 1, 0x0f00, 2, Modrm, { WordReg|Mem, 0, 0} }, {"lmsw", 1, 0x0f01, 6, Modrm, { WordReg|Mem, 0, 0} }, {"lsl", 2, 0x0f03, _, Modrm|ReverseRegRegmem, { WordReg|Mem, WordReg, 0} }, {"ltr", 1, 0x0f00, 3, Modrm, { WordReg|Mem, 0, 0} }, {"sgdt", 1, 0x0f01, 0, Modrm, { Mem, 0, 0} }, {"sidt", 1, 0x0f01, 1, Modrm, { Mem, 0, 0} }, {"sldt", 1, 0x0f00, 0, Modrm, { WordReg|Mem, 0, 0} }, {"smsw", 1, 0x0f01, 4, Modrm, { WordReg|Mem, 0, 0} }, {"str", 1, 0x0f00, 1, Modrm, { Reg16|Mem, 0, 0} }, {"verr", 1, 0x0f00, 4, Modrm, { WordReg|Mem, 0, 0} }, {"verw", 1, 0x0f00, 5, Modrm, { WordReg|Mem, 0, 0} }, /* floating point instructions */ /* load */ {"fld", 1, 0xd9c0, _, ShortForm, { FloatReg, 0, 0} }, /* register */ {"flds", 1, 0xd9, 0, Modrm, { Mem, 0, 0} }, /* %st0 <-- mem float */ {"fldl", 1, 0xdd, 0, Modrm, { Mem, 0, 0} }, /* %st0 <-- mem double */ {"fldl", 1, 0xd9c0, _, ShortForm, { FloatReg, 0, 0} }, /* register */ {"fild", 1, 0xdf, 0, Modrm, { Mem, 0, 0} }, /* %st0 <-- mem word (16) */ {"fildl", 1, 0xdb, 0, Modrm, { Mem, 0, 0} }, /* %st0 <-- mem dword (32) */ {"fildq",1, 0xdf, 5, Modrm, { Mem, 0, 0} }, /* %st0 <-- mem qword (64) */ {"fildll",1, 0xdf, 5, Modrm, { Mem, 0, 0} }, /* %st0 <-- mem qword (64) */ {"fldt", 1, 0xdb, 5, Modrm, { Mem, 0, 0} }, /* %st0 <-- mem efloat */ {"fbld", 1, 0xdf, 4, Modrm, { Mem, 0, 0} }, /* %st0 <-- mem bcd */ /* store (no pop) */ {"fst", 1, 0xddd0, _, ShortForm, { FloatReg, 0, 0} }, /* register */ {"fsts", 1, 0xd9, 2, Modrm, { Mem, 0, 0} }, /* %st0 --> mem float */ {"fstl", 1, 0xdd, 2, Modrm, { Mem, 0, 0} }, /* %st0 --> mem double */ {"fstl", 1, 0xddd0, _, ShortForm, { FloatReg, 0, 0} }, /* register */ {"fist", 1, 0xdf, 2, Modrm, { Mem, 0, 0} }, /* %st0 --> mem word (16) */ {"fistl", 1, 0xdb, 2, Modrm, { Mem, 0, 0} }, /* %st0 --> mem dword (32) */ /* store (with pop) */ {"fstp", 1, 0xddd8, _, ShortForm, { FloatReg, 0, 0} }, /* register */ {"fstps", 1, 0xd9, 3, Modrm, { Mem, 0, 0} }, /* %st0 --> mem float */ {"fstpl", 1, 0xdd, 3, Modrm, { Mem, 0, 0} }, /* %st0 --> mem double */ {"fstpl", 1, 0xddd8, _, ShortForm, { FloatReg, 0, 0} }, /* register */ {"fistp", 1, 0xdf, 3, Modrm, { Mem, 0, 0} }, /* %st0 --> mem word (16) */ {"fistpl",1, 0xdb, 3, Modrm, { Mem, 0, 0} }, /* %st0 --> mem dword (32) */ {"fistpq",1, 0xdf, 7, Modrm, { Mem, 0, 0} }, /* %st0 --> mem qword (64) */ {"fistpll",1,0xdf, 7, Modrm, { Mem, 0, 0} }, /* %st0 --> mem qword (64) */ {"fstpt", 1, 0xdb, 7, Modrm, { Mem, 0, 0} }, /* %st0 --> mem efloat */ {"fbstp", 1, 0xdf, 6, Modrm, { Mem, 0, 0} }, /* %st0 --> mem bcd */ /* exchange %st with %st0 */ {"fxch", 1, 0xd9c8, _, ShortForm, { FloatReg, 0, 0} }, {"fxch", 0, 0xd9c9, _, NoModrm, { 0, 0, 0} }, /* alias for fxch %st, %st(1) */ /* comparison (without pop) */ {"fcom", 1, 0xd8d0, _, ShortForm, { FloatReg, 0, 0} }, {"fcoms", 1, 0xd8, 2, Modrm, { Mem, 0, 0} }, /* compare %st0, mem float */ {"ficoml", 1, 0xda, 2, Modrm, { Mem, 0, 0} }, /* compare %st0, mem word */ {"fcoml", 1, 0xdc, 2, Modrm, { Mem, 0, 0} }, /* compare %st0, mem double */ {"fcoml", 1, 0xd8d0, _, ShortForm, { FloatReg, 0, 0} }, {"ficoms", 1, 0xde, 2, Modrm, { Mem, 0, 0} }, /* compare %st0, mem dword */ /* comparison (with pop) */ {"fcomp", 1, 0xd8d8, _, ShortForm, { FloatReg, 0, 0} }, {"fcomps", 1, 0xd8, 3, Modrm, { Mem, 0, 0} }, /* compare %st0, mem float */ {"ficompl", 1, 0xda, 3, Modrm, { Mem, 0, 0} }, /* compare %st0, mem word */ {"fcompl", 1, 0xdc, 3, Modrm, { Mem, 0, 0} }, /* compare %st0, mem double */ {"fcompl", 1, 0xd8d8, _, ShortForm, { FloatReg, 0, 0} }, {"ficomps", 1, 0xde, 3, Modrm, { Mem, 0, 0} }, /* compare %st0, mem dword */ {"fcompp", 0, 0xded9, _, NoModrm, { 0, 0, 0} }, /* compare %st0, %st1 & pop 2 */ /* unordered comparison (with pop) */ {"fucom", 1, 0xdde0, _, ShortForm, { FloatReg, 0, 0} }, {"fucomp", 1, 0xdde8, _, ShortForm, { FloatReg, 0, 0} }, {"fucompp", 0, 0xdae9, _, NoModrm, { 0, 0, 0} }, /* ucompare %st0, %st1 & pop twice */ {"ftst", 0, 0xd9e4, _, NoModrm, { 0, 0, 0} }, /* test %st0 */ {"fxam", 0, 0xd9e5, _, NoModrm, { 0, 0, 0} }, /* examine %st0 */ /* load constants into %st0 */ {"fld1", 0, 0xd9e8, _, NoModrm, { 0, 0, 0} }, /* %st0 <-- 1.0 */ {"fldl2t", 0, 0xd9e9, _, NoModrm, { 0, 0, 0} }, /* %st0 <-- log2(10) */ {"fldl2e", 0, 0xd9ea, _, NoModrm, { 0, 0, 0} }, /* %st0 <-- log2(e) */ {"fldpi", 0, 0xd9eb, _, NoModrm, { 0, 0, 0} }, /* %st0 <-- pi */ {"fldlg2", 0, 0xd9ec, _, NoModrm, { 0, 0, 0} }, /* %st0 <-- log10(2) */ {"fldln2", 0, 0xd9ed, _, NoModrm, { 0, 0, 0} }, /* %st0 <-- ln(2) */ {"fldz", 0, 0xd9ee, _, NoModrm, { 0, 0, 0} }, /* %st0 <-- 0.0 */ /* arithmetic */ /* add */ {"fadd", 1, 0xd8c0, _, ShortForm, { FloatReg, 0, 0} }, {"fadd", 2, 0xd8c0, _, ShortForm|FloatD, { FloatReg, FloatAcc, 0} }, {"fadd", 0, 0xdcc1, _, NoModrm, { 0, 0, 0} }, /* alias for fadd %st, %st(1) */ {"faddp", 1, 0xdac0, _, ShortForm, { FloatReg, 0, 0} }, {"faddp", 2, 0xdac0, _, ShortForm|FloatD, { FloatReg, FloatAcc, 0} }, {"faddp", 0, 0xdec1, _, NoModrm, { 0, 0, 0} }, /* alias for faddp %st, %st(1) */ {"fadds", 1, 0xd8, 0, Modrm, { Mem, 0, 0} }, {"fiaddl", 1, 0xda, 0, Modrm, { Mem, 0, 0} }, {"faddl", 1, 0xdc, 0, Modrm, { Mem, 0, 0} }, {"fiadds", 1, 0xde, 0, Modrm, { Mem, 0, 0} }, /* sub */ /* Note: intel has decided that certain of these operations are reversed in assembler syntax. */ {"fsub", 1, 0xd8e0, _, ShortForm, { FloatReg, 0, 0} }, {"fsub", 2, 0xd8e0, _, ShortForm, { FloatReg, FloatAcc, 0} }, #ifdef NON_BROKEN_OPCODES {"fsub", 2, 0xdce8, _, ShortForm, { FloatAcc, FloatReg, 0} }, #else {"fsub", 2, 0xdce0, _, ShortForm, { FloatAcc, FloatReg, 0} }, #endif {"fsub", 0, 0xdce1, _, NoModrm, { 0, 0, 0} }, {"fsubp", 1, 0xdae0, _, ShortForm, { FloatReg, 0, 0} }, {"fsubp", 2, 0xdae0, _, ShortForm, { FloatReg, FloatAcc, 0} }, #ifdef NON_BROKEN_OPCODES {"fsubp", 2, 0xdee8, _, ShortForm, { FloatAcc, FloatReg, 0} }, #else {"fsubp", 2, 0xdee0, _, ShortForm, { FloatAcc, FloatReg, 0} }, #endif {"fsubp", 0, 0xdee1, _, NoModrm, { 0, 0, 0} }, {"fsubs", 1, 0xd8, 4, Modrm, { Mem, 0, 0} }, {"fisubl", 1, 0xda, 4, Modrm, { Mem, 0, 0} }, {"fsubl", 1, 0xdc, 4, Modrm, { Mem, 0, 0} }, {"fisubs", 1, 0xde, 4, Modrm, { Mem, 0, 0} }, /* sub reverse */ {"fsubr", 1, 0xd8e8, _, ShortForm, { FloatReg, 0, 0} }, {"fsubr", 2, 0xd8e8, _, ShortForm, { FloatReg, FloatAcc, 0} }, #ifdef NON_BROKEN_OPCODES {"fsubr", 2, 0xdce0, _, ShortForm, { FloatAcc, FloatReg, 0} }, #else {"fsubr", 2, 0xdce8, _, ShortForm, { FloatAcc, FloatReg, 0} }, #endif {"fsubr", 0, 0xdce9, _, NoModrm, { 0, 0, 0} }, {"fsubrp", 1, 0xdae8, _, ShortForm, { FloatReg, 0, 0} }, {"fsubrp", 2, 0xdae8, _, ShortForm, { FloatReg, FloatAcc, 0} }, #ifdef NON_BROKEN_OPCODES {"fsubrp", 2, 0xdee0, _, ShortForm, { FloatAcc, FloatReg, 0} }, #else {"fsubrp", 2, 0xdee8, _, ShortForm, { FloatAcc, FloatReg, 0} }, #endif {"fsubrp", 0, 0xdee9, _, NoModrm, { 0, 0, 0} }, {"fsubrs", 1, 0xd8, 5, Modrm, { Mem, 0, 0} }, {"fisubrl", 1, 0xda, 5, Modrm, { Mem, 0, 0} }, {"fsubrl", 1, 0xdc, 5, Modrm, { Mem, 0, 0} }, {"fisubrs", 1, 0xde, 5, Modrm, { Mem, 0, 0} }, /* mul */ {"fmul", 1, 0xd8c8, _, ShortForm, { FloatReg, 0, 0} }, {"fmul", 2, 0xd8c8, _, ShortForm|FloatD, { FloatReg, FloatAcc, 0} }, {"fmul", 0, 0xdcc9, _, NoModrm, { 0, 0, 0} }, {"fmulp", 1, 0xdac8, _, ShortForm, { FloatReg, 0, 0} }, {"fmulp", 2, 0xdac8, _, ShortForm|FloatD, { FloatReg, FloatAcc, 0} }, {"fmulp", 0, 0xdec9, _, NoModrm, { 0, 0, 0} }, {"fmuls", 1, 0xd8, 1, Modrm, { Mem, 0, 0} }, {"fimull", 1, 0xda, 1, Modrm, { Mem, 0, 0} }, {"fmull", 1, 0xdc, 1, Modrm, { Mem, 0, 0} }, {"fimuls", 1, 0xde, 1, Modrm, { Mem, 0, 0} }, /* div */ /* Note: intel has decided that certain of these operations are reversed in assembler syntax. */ {"fdiv", 1, 0xd8f0, _, ShortForm, { FloatReg, 0, 0} }, {"fdiv", 2, 0xd8f0, _, ShortForm, { FloatReg, FloatAcc, 0} }, #ifdef NON_BROKEN_OPCODES {"fdiv", 2, 0xdcf8, _, ShortForm, { FloatAcc, FloatReg, 0} }, #else {"fdiv", 2, 0xdcf0, _, ShortForm, { FloatAcc, FloatReg, 0} }, #endif {"fdiv", 0, 0xdcf1, _, NoModrm, { 0, 0, 0} }, {"fdivp", 1, 0xdaf0, _, ShortForm, { FloatReg, 0, 0} }, {"fdivp", 2, 0xdaf0, _, ShortForm, { FloatReg, FloatAcc, 0} }, #ifdef NON_BROKEN_OPCODES {"fdivp", 2, 0xdef8, _, ShortForm, { FloatAcc, FloatReg, 0} }, #else {"fdivp", 2, 0xdef0, _, ShortForm, { FloatAcc, FloatReg, 0} }, #endif {"fdivp", 0, 0xdef1, _, NoModrm, { 0, 0, 0} }, {"fdivs", 1, 0xd8, 6, Modrm, { Mem, 0, 0} }, {"fidivl", 1, 0xda, 6, Modrm, { Mem, 0, 0} }, {"fdivl", 1, 0xdc, 6, Modrm, { Mem, 0, 0} }, {"fidivs", 1, 0xde, 6, Modrm, { Mem, 0, 0} }, /* div reverse */ {"fdivr", 1, 0xd8f8, _, ShortForm, { FloatReg, 0, 0} }, {"fdivr", 2, 0xd8f8, _, ShortForm, { FloatReg, FloatAcc, 0} }, #ifdef NON_BROKEN_OPCODES {"fdivr", 2, 0xdcf0, _, ShortForm, { FloatAcc, FloatReg, 0} }, #else {"fdivr", 2, 0xdcf8, _, ShortForm, { FloatAcc, FloatReg, 0} }, #endif {"fdivr", 0, 0xdcf9, _, NoModrm, { 0, 0, 0} }, {"fdivrp", 1, 0xdaf8, _, ShortForm, { FloatReg, 0, 0} }, {"fdivrp", 2, 0xdaf8, _, ShortForm, { FloatReg, FloatAcc, 0} }, #ifdef NON_BROKEN_OPCODES {"fdivrp", 2, 0xdef0, _, ShortForm, { FloatAcc, FloatReg, 0} }, #else {"fdivrp", 2, 0xdef8, _, ShortForm, { FloatAcc, FloatReg, 0} }, #endif {"fdivrp", 0, 0xdef9, _, NoModrm, { 0, 0, 0} }, {"fdivrs", 1, 0xd8, 7, Modrm, { Mem, 0, 0} }, {"fidivrl", 1, 0xda, 7, Modrm, { Mem, 0, 0} }, {"fdivrl", 1, 0xdc, 7, Modrm, { Mem, 0, 0} }, {"fidivrs", 1, 0xde, 7, Modrm, { Mem, 0, 0} }, {"f2xm1", 0, 0xd9f0, _, NoModrm, { 0, 0, 0} }, {"fyl2x", 0, 0xd9f1, _, NoModrm, { 0, 0, 0} }, {"fptan", 0, 0xd9f2, _, NoModrm, { 0, 0, 0} }, {"fpatan", 0, 0xd9f3, _, NoModrm, { 0, 0, 0} }, {"fxtract", 0, 0xd9f4, _, NoModrm, { 0, 0, 0} }, {"fprem1", 0, 0xd9f5, _, NoModrm, { 0, 0, 0} }, {"fdecstp", 0, 0xd9f6, _, NoModrm, { 0, 0, 0} }, {"fincstp", 0, 0xd9f7, _, NoModrm, { 0, 0, 0} }, {"fprem", 0, 0xd9f8, _, NoModrm, { 0, 0, 0} }, {"fyl2xp1", 0, 0xd9f9, _, NoModrm, { 0, 0, 0} }, {"fsqrt", 0, 0xd9fa, _, NoModrm, { 0, 0, 0} }, {"fsincos", 0, 0xd9fb, _, NoModrm, { 0, 0, 0} }, {"frndint", 0, 0xd9fc, _, NoModrm, { 0, 0, 0} }, {"fscale", 0, 0xd9fd, _, NoModrm, { 0, 0, 0} }, {"fsin", 0, 0xd9fe, _, NoModrm, { 0, 0, 0} }, {"fcos", 0, 0xd9ff, _, NoModrm, { 0, 0, 0} }, {"fchs", 0, 0xd9e0, _, NoModrm, { 0, 0, 0} }, {"fabs", 0, 0xd9e1, _, NoModrm, { 0, 0, 0} }, /* processor control */ {"fninit", 0, 0xdbe3, _, NoModrm, { 0, 0, 0} }, {"finit", 0, 0xdbe3, _, NoModrm, { 0, 0, 0} }, {"fldcw", 1, 0xd9, 5, Modrm, { Mem, 0, 0} }, {"fnstcw", 1, 0xd9, 7, Modrm, { Mem, 0, 0} }, {"fstcw", 1, 0xd9, 7, Modrm, { Mem, 0, 0} }, {"fnstsw", 1, 0xdfe0, _, NoModrm, { Acc, 0, 0} }, {"fnstsw", 1, 0xdd, 7, Modrm, { Mem, 0, 0} }, {"fnstsw", 0, 0xdfe0, _, NoModrm, { 0, 0, 0} }, {"fstsw", 1, 0xdfe0, _, NoModrm, { Acc, 0, 0} }, {"fstsw", 1, 0xdd, 7, Modrm, { Mem, 0, 0} }, {"fstsw", 0, 0xdfe0, _, NoModrm, { 0, 0, 0} }, {"fnclex", 0, 0xdbe2, _, NoModrm, { 0, 0, 0} }, {"fclex", 0, 0xdbe2, _, NoModrm, { 0, 0, 0} }, /* We ignore the short format (287) versions of fstenv/fldenv & fsave/frstor instructions; i'm not sure how to add them or how they are different. My 386/387 book offers no details about this. */ {"fnstenv", 1, 0xd9, 6, Modrm, { Mem, 0, 0} }, {"fstenv", 1, 0xd9, 6, Modrm, { Mem, 0, 0} }, {"fldenv", 1, 0xd9, 4, Modrm, { Mem, 0, 0} }, {"fnsave", 1, 0xdd, 6, Modrm, { Mem, 0, 0} }, {"fsave", 1, 0xdd, 6, Modrm, { Mem, 0, 0} }, {"frstor", 1, 0xdd, 4, Modrm, { Mem, 0, 0} }, {"ffree", 1, 0xddc0, _, ShortForm, { FloatReg, 0, 0} }, {"fnop", 0, 0xd9d0, _, NoModrm, { 0, 0, 0} }, {"fwait", 0, 0x9b, _, NoModrm, { 0, 0, 0} }, /* opcode prefixes; we allow them as seperate insns too (see prefix table below) */ {"aword", 0, 0x67, _, NoModrm, { 0, 0, 0} }, {"addr16", 0, 0x67, _, NoModrm, { 0, 0, 0} }, {"word", 0, 0x66, _, NoModrm, { 0, 0, 0} }, {"data16", 0, 0x66, _, NoModrm, { 0, 0, 0} }, {"lock", 0, 0xf0, _, NoModrm, { 0, 0, 0} }, {"cs", 0, 0x2e, _, NoModrm, { 0, 0, 0} }, {"ds", 0, 0x3e, _, NoModrm, { 0, 0, 0} }, {"es", 0, 0x26, _, NoModrm, { 0, 0, 0} }, {"fs", 0, 0x64, _, NoModrm, { 0, 0, 0} }, {"gs", 0, 0x65, _, NoModrm, { 0, 0, 0} }, {"ss", 0, 0x36, _, NoModrm, { 0, 0, 0} }, {"rep", 0, 0xf3, _, NoModrm, { 0, 0, 0} }, {"repe", 0, 0xf3, _, NoModrm, { 0, 0, 0} }, {"repz", 0, 0xf3, _, NoModrm, { 0, 0, 0} }, {"repne", 0, 0xf2, _, NoModrm, { 0, 0, 0} }, {"repnz", 0, 0xf2, _, NoModrm, { 0, 0, 0} }, /* 486 extensions */ {"bswap", 1, 0x0fc8, _, ShortForm, { Reg32,0,0 } }, {"xadd", 2, 0x0fc0, _, DW|Modrm, { Reg, Reg|Mem, 0 } }, {"cmpxchg", 2, 0x0fb0, _, DW|Modrm, { Reg, Reg|Mem, 0 } }, {"invd", 0, 0x0f08, _, NoModrm, { 0, 0, 0} }, {"wbinvd", 0, 0x0f09, _, NoModrm, { 0, 0, 0} }, {"invlpg", 1, 0x0f01, 7, Modrm, { Mem, 0, 0} }, {"", 0, 0, 0, 0, { 0, 0, 0} } /* sentinel */ }; #undef _ static const template *const i386_optab_end = i386_optab + sizeof (i386_optab)/sizeof(i386_optab[0]); /* 386 register table */ static const reg_entry i386_regtab[] = { /* 8 bit regs */ {"al", Reg8|Acc, 0}, {"cl", Reg8|ShiftCount, 1}, {"dl", Reg8, 2}, {"bl", Reg8, 3}, {"ah", Reg8, 4}, {"ch", Reg8, 5}, {"dh", Reg8, 6}, {"bh", Reg8, 7}, /* 16 bit regs */ {"ax", Reg16|Acc, 0}, {"cx", Reg16, 1}, {"dx", Reg16|InOutPortReg, 2}, {"bx", Reg16, 3}, {"sp", Reg16, 4}, {"bp", Reg16, 5}, {"si", Reg16, 6}, {"di", Reg16, 7}, /* 32 bit regs */ {"eax", Reg32|Acc, 0}, {"ecx", Reg32, 1}, {"edx", Reg32, 2}, {"ebx", Reg32, 3}, {"esp", Reg32, 4}, {"ebp", Reg32, 5}, {"esi", Reg32, 6}, {"edi", Reg32, 7}, /* segment registers */ {"es", SReg2, 0}, {"cs", SReg2, 1}, {"ss", SReg2, 2}, {"ds", SReg2, 3}, {"fs", SReg3, 4}, {"gs", SReg3, 5}, /* control registers */ {"cr0", Control, 0}, {"cr2", Control, 2}, {"cr3", Control, 3}, /* debug registers */ {"db0", Debug, 0}, {"db1", Debug, 1}, {"db2", Debug, 2}, {"db3", Debug, 3}, {"db6", Debug, 6}, {"db7", Debug, 7}, /* test registers */ {"tr6", Test, 6}, {"tr7", Test, 7}, /* float registers */ {"st(0)", FloatReg|FloatAcc, 0}, {"st", FloatReg|FloatAcc, 0}, {"st(1)", FloatReg, 1}, {"st(2)", FloatReg, 2}, {"st(3)", FloatReg, 3}, {"st(4)", FloatReg, 4}, {"st(5)", FloatReg, 5}, {"st(6)", FloatReg, 6}, {"st(7)", FloatReg, 7} }; #define MAX_REG_NAME_SIZE 8 /* for parsing register names from input */ static const reg_entry *const i386_regtab_end = i386_regtab + sizeof(i386_regtab)/sizeof(i386_regtab[0]); /* segment stuff */ static const seg_entry cs = { "cs", 0x2e }; static const seg_entry ds = { "ds", 0x3e }; static const seg_entry ss = { "ss", 0x36 }; static const seg_entry es = { "es", 0x26 }; static const seg_entry fs = { "fs", 0x64 }; static const seg_entry gs = { "gs", 0x65 }; static const seg_entry null = { "", 0x0 }; /* This table is used to store the default segment register implied by all possible memory addressing modes. It is indexed by the mode & modrm entries of the modrm byte as follows: index = (mode<<3) | modrm; */ static const seg_entry *const one_byte_segment_defaults[] = { /* mode 0 */ &ds, &ds, &ds, &ds, &null, &ds, &ds, &ds, /* mode 1 */ &ds, &ds, &ds, &ds, &null, &ss, &ds, &ds, /* mode 2 */ &ds, &ds, &ds, &ds, &null, &ss, &ds, &ds, /* mode 3 --- not a memory reference; never referenced */ }; static const seg_entry *const two_byte_segment_defaults[] = { /* mode 0 */ &ds, &ds, &ds, &ds, &ss, &ds, &ds, &ds, /* mode 1 */ &ds, &ds, &ds, &ds, &ss, &ds, &ds, &ds, /* mode 2 */ &ds, &ds, &ds, &ds, &ss, &ds, &ds, &ds, /* mode 3 --- not a memory reference; never referenced */ }; static const prefix_entry i386_prefixtab[] = { { "addr16", 0x67 }, /* address size prefix ==> 16bit addressing * (How is this useful?) */ #define WORD_PREFIX_OPCODE 0x66 { "data16", 0x66 }, /* operand size prefix */ { "lock", 0xf0 }, /* bus lock prefix */ { "wait", 0x9b }, /* wait for coprocessor */ { "cs", 0x2e }, { "ds", 0x3e }, /* segment overrides ... */ { "es", 0x26 }, { "fs", 0x64 }, { "gs", 0x65 }, { "ss", 0x36 }, /* REPE & REPNE used to detect rep/repne with a non-string instruction */ #define REPNE 0xf2 #define REPE 0xf3 { "rep", 0xf3 }, /* repeat string instructions */ { "repe", 0xf3 }, { "repz", 0xf3 }, { "repne", 0xf2 }, { "repnz", 0xf2 } }; static const prefix_entry *const i386_prefixtab_end = i386_prefixtab + sizeof(i386_prefixtab)/sizeof(i386_prefixtab[0]); /* end of i386-opcode.h */ gdb-4.13/include/opcode/i860.h 666 34562 1752 65440 5116043542 14321 0ustar fnfcygnus/* Table of opcodes for the i860. Copyright (C) 1989 Free Software Foundation, Inc. This file is part of GAS, the GNU Assembler, and GDB, the GNU disassembler. GAS/GDB 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 1, or (at your option) any later version. GAS/GDB 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 GAS or GDB; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(__STDC__) && !defined(const) #define const #endif /* * Structure of an opcode table entry. */ struct i860_opcode { const char *name; unsigned long match; /* Bits that must be set. */ unsigned long lose; /* Bits that must not be set. */ const char *args; /* Nonzero if this is a possible expand-instruction. */ char expand; }; enum expand_type { E_MOV = 1, E_ADDR, E_U32, E_AND, E_S32, E_DELAY }; /* All i860 opcodes are 32 bits, except for the pseudoinstructions and the operations utilizing a 32-bit address expression, an unsigned 32-bit constant, or a signed 32-bit constant. These opcodes are expanded into a two-instruction sequence for any situation where the immediate operand does not fit in 32 bits. In the case of the add and subtract operations the expansion is to a three-instruction sequence (ex: orh, or, adds). In cases where the address is to be relocated, the instruction is expanded to handle the worse case, this could be optimized at the final link if the actual address were known. The pseudoinstructions are: mov, fmov, pmov, nop, and fnop. These instructions are implemented as a one or two instruction sequence of other operations. The match component is a mask saying which bits must match a particular opcode in order for an instruction to be an instance of that opcode. The args component is a string containing one character for each operand of the instruction. Kinds of operands: # Number used by optimizer. It is ignored. 1 src1 integer register. 2 src2 integer register. d dest register. c ctrlreg control register. i 16 bit immediate. I 16 bit immediate, aligned. 5 5 bit immediate. l lbroff 26 bit PC relative immediate. r sbroff 16 bit PC relative immediate. s split 16 bit immediate. S split 16 bit immediate, aligned. e src1 floating point register. f src2 floating point register. g dest floating point register. */ /* The order of the opcodes in this table is significant: * The assembler requires that all instances of the same mnemonic must be consecutive. If they aren't, the assembler will bomb at runtime. * The disassembler should not care about the order of the opcodes. */ static struct i860_opcode i860_opcodes[] = { /* REG-Format Instructions */ { "ld.c", 0x30000000, 0xcc000000, "c,d", 0 }, /* ld.c csrc2,idest */ { "ld.b", 0x00000000, 0xfc000000, "1(2),d", 0 }, /* ld.b isrc1(isrc2),idest */ { "ld.b", 0x04000000, 0xf8000000, "I(2),d", E_ADDR }, /* ld.b #const(isrc2),idest */ { "ld.s", 0x10000000, 0xec000001, "1(2),d", 0 }, /* ld.s isrc1(isrc2),idest */ { "ld.s", 0x14000001, 0xe8000000, "I(2),d", E_ADDR }, /* ld.s #const(isrc2),idest */ { "ld.l", 0x10000001, 0xec000000, "1(2),d", 0 }, /* ld.l isrc1(isrc2),idest */ { "ld.l", 0x14000001, 0xe8000000, "I(2),d", E_ADDR }, /* ld.l #const(isrc2),idest */ { "st.c", 0x38000000, 0xc4000000, "1,c", 0 }, /* st.c isrc1ni,csrc2 */ { "st.b", 0x0c000000, 0xf0000000, "1,S(2)", E_ADDR }, /* st.b isrc1ni,#const(isrc2) */ { "st.s", 0x1c000000, 0xe0000000, "1,S(2)", E_ADDR }, /* st.s isrc1ni,#const(isrc2) */ { "st.l", 0x1c000001, 0xe0000000, "1,S(2)", E_ADDR }, /* st.l isrc1ni,#const(isrc2) */ { "ixfr", 0x08000000, 0xf4000000, "1,g", 0 }, /* ixfr isrc1ni,fdest */ { "fld.l", 0x20000002, 0xdc000001, "1(2),g", 0 }, /* fld.l isrc1(isrc2),fdest */ { "fld.l", 0x24000002, 0xd8000001, "i(2),g", E_ADDR }, /* fld.l #const(isrc2),fdest */ { "fld.l", 0x20000003, 0xdc000000, "1(2)++,g", 0 }, /* fld.l isrc1(isrc2)++,fdest */ { "fld.l", 0x24000003, 0xd8000000, "i(2)++,g", E_ADDR }, /* fld.l #const(isrc2)++,fdest */ { "fld.d", 0x20000000, 0xdc000007, "1(2),g", 0 }, /* fld.d isrc1(isrc2),fdest */ { "fld.d", 0x24000000, 0xd8000007, "i(2),g", E_ADDR }, /* fld.d #const(isrc2),fdest */ { "fld.d", 0x20000001, 0xdc000006, "1(2)++,g", 0 }, /* fld.d isrc1(isrc2)++,fdest */ { "fld.d", 0x24000001, 0xd8000006, "i(2)++,g", E_ADDR }, /* fld.d #const(isrc2)++,fdest */ { "fld.q", 0x20000004, 0xdc000003, "1(2),g", 0 }, /* fld.q isrc1(isrc2),fdest */ { "fld.q", 0x24000004, 0xd8000003, "i(2),g", E_ADDR }, /* fld.q #const(isrc2),fdest */ { "fld.q", 0x20000005, 0xdc000002, "1(2)++,g", 0 }, /* fld.q isrc1(isrc2)++,fdest */ { "fld.q", 0x24000005, 0xd8000002, "i(2)++,g", E_ADDR }, /* fld.q #const(isrc2)++,fdest */ { "pfld.l", 0x60000000, 0x9c000003, "1(2),g", 0 }, /* pfld.l isrc1(isrc2),fdest */ { "pfld.l", 0x64000000, 0x98000003, "i(2),g", E_ADDR }, /* pfld.l #const(isrc2),fdest */ { "pfld.l", 0x60000001, 0x9c000002, "1(2)++,g", 0 }, /* pfld.l isrc1(isrc2)++,fdest */ { "pfld.l", 0x64000001, 0x98000002, "i(2)++,g", E_ADDR }, /* pfld.l #const(isrc2)++,fdest */ { "pfld.d", 0x60000000, 0x9c000007, "1(2),g", 0 }, /* pfld.d isrc1(isrc2),fdest */ { "pfld.d", 0x64000000, 0x98000007, "i(2),g", E_ADDR }, /* pfld.d #const(isrc2),fdest */ { "pfld.d", 0x60000001, 0x9c000006, "1(2)++,g", 0 }, /* pfld.d isrc1(isrc2)++,fdest */ { "pfld.d", 0x64000001, 0x98000006, "i(2)++,g", E_ADDR }, /* pfld.d #const(isrc2)++,fdest */ { "fst.l", 0x28000002, 0xd4000001, "g,1(2)", 0 }, /* fst.l fdest,isrc1(isrc2) */ { "fst.l", 0x2c000002, 0xd0000001, "g,i(2)", E_ADDR }, /* fst.l fdest,#const(isrc2) */ { "fst.l", 0x28000003, 0xd4000000, "g,1(2)++", 0 }, /* fst.l fdest,isrc1(isrc2)++ */ { "fst.l", 0x2c000003, 0xd0000000, "g,i(2)++", E_ADDR }, /* fst.l fdest,#const(isrc2)++ */ { "fst.d", 0x28000000, 0xd4000007, "g,1(2)", 0 }, /* fst.d fdest,isrc1(isrc2) */ { "fst.d", 0x2c000000, 0xd0000007, "g,i(2)", E_ADDR }, /* fst.d fdest,#const(isrc2) */ { "fst.d", 0x28000001, 0xd4000006, "g,1(2)++", 0 }, /* fst.d fdest,isrc1(isrc2)++ */ { "fst.d", 0x2c000001, 0xd0000006, "g,i(2)++", E_ADDR }, /* fst.d fdest,#const(isrc2)++ */ { "pst.d", 0x3c000000, 0xc0000007, "g,i(2)", E_ADDR }, /* pst.d fdest,#const(isrc2) */ { "pst.d", 0x3c000001, 0xc0000006, "g,i(2)++", E_ADDR }, /* pst.d fdest,#const(isrc2)++ */ { "addu", 0x80000000, 0x7c000000, "1,2,d", 0 }, /* addu isrc1,isrc2,idest */ { "addu", 0x84000000, 0x78000000, "i,2,d", E_S32 }, /* addu #const,isrc2,idest */ { "adds", 0x90000000, 0x6c000000, "1,2,d", 0 }, /* adds isrc1,isrc2,idest */ { "adds", 0x94000000, 0x68000000, "i,2,d", E_S32 }, /* adds #const,isrc2,idest */ { "subu", 0x88000000, 0x74000000, "1,2,d", 0 }, /* subu isrc1,isrc2,idest */ { "subu", 0x8c000000, 0x70000000, "i,2,d", E_S32 }, /* subu #const,isrc2,idest */ { "subs", 0x98000000, 0x64000000, "1,2,d", 0 }, /* subs isrc1,isrc2,idest */ { "subs", 0x9c000000, 0x60000000, "i,2,d", E_S32 }, /* subs #const,isrc2,idest */ { "shl", 0xa0000000, 0x5c000000, "1,2,d", 0 }, /* shl isrc1,isrc2,idest */ { "shl", 0xa4000000, 0x58000000, "i,2,d", 0 }, /* shl #const,isrc2,idest */ { "shr", 0xa8000000, 0x54000000, "1,2,d", 0 }, /* shr isrc1,isrc2,idest */ { "shr", 0xac000000, 0x50000000, "i,2,d", 0 }, /* shr #const,isrc2,idest */ { "shrd", 0xb0000000, 0x4c000000, "1,2,d", 0 }, /* shrd isrc1,isrc2,idest */ { "shra", 0xb8000000, 0x44000000, "1,2,d", 0 }, /* shra isrc1,isrc2,idest */ { "shra", 0xbc000000, 0x40000000, "i,2,d", 0 }, /* shra #const,isrc2,idest */ { "mov", 0xa0000000, 0x5c00f800, "2,d", 0 }, /* shl r0,isrc2,idest */ { "mov", 0x94000000, 0x69e00000, "i,d", E_MOV }, /* adds #const,r0,idest */ { "nop", 0xa0000000, 0x5ffff800, "", 0 }, /* shl r0,r0,r0 */ { "fnop", 0xb0000000, 0x4ffff800, "", 0 }, /* shrd r0,r0,r0 */ { "trap", 0x44000000, 0xb8000000, "1,2,d", 0 }, /* trap isrc1ni,isrc2,idest */ { "flush", 0x34000000, 0xc81f0001, "i(2)", E_ADDR }, /* flush #const(isrc2) */ { "flush", 0x34000001, 0xc81f0000, "i(2)++", E_ADDR }, /* flush #const(isrc2)++ */ { "and", 0xc0000000, 0x3c000000, "1,2,d", 0 }, /* and isrc1,isrc2,idest */ { "and", 0xc4000000, 0x38000000, "i,2,d", E_AND }, /* and #const,isrc2,idest */ { "andh", 0xc8000000, 0x34000000, "1,2,d", 0 }, /* andh isrc1,isrc2,idest */ { "andh", 0xcc000000, 0x30000000, "i,2,d", 0 }, /* andh #const,isrc2,idest */ { "andnot", 0xd0000000, 0x2c000000, "1,2,d", 0 }, /* andnot isrc1,isrc2,idest */ { "andnot", 0xd4000000, 0x28000000, "i,2,d", E_U32 }, /* andnot #const,isrc2,idest */ { "andnoth", 0xd8000000, 0x24000000, "1,2,d", 0 }, /* andnoth isrc1,isrc2,idest */ { "andnoth", 0xdc000000, 0x20000000, "i,2,d", 0 }, /* andnoth #const,isrc2,idest */ { "or", 0xe0000000, 0x1c000000, "1,2,d", 0 }, /* or isrc1,isrc2,idest */ { "or", 0xe4000000, 0x18000000, "i,2,d", E_U32 }, /* or #const,isrc2,idest */ { "orh", 0xe8000000, 0x14000000, "1,2,d", 0 }, /* orh isrc1,isrc2,idest */ { "orh", 0xec000000, 0x10000000, "i,2,d", 0 }, /* orh #const,isrc2,idest */ { "xor", 0xf0000000, 0x0c000000, "1,2,d", 0 }, /* xor isrc1,isrc2,idest */ { "xor", 0xf4000000, 0x08000000, "i,2,d", E_U32 }, /* xor #const,isrc2,idest */ { "xorh", 0xf8000000, 0x04000000, "1,2,d", 0 }, /* xorh isrc1,isrc2,idest */ { "xorh", 0xfc000000, 0x00000000, "i,2,d", 0 }, /* xorh #const,isrc2,idest */ { "bte", 0x58000000, 0xa4000000, "1,2,s", 0 }, /* bte isrc1s,isrc2,sbroff */ { "bte", 0x5c000000, 0xa0000000, "5,2,s", 0 }, /* bte #const5,isrc2,sbroff */ { "btne", 0x50000000, 0xac000000, "1,2,s", 0 }, /* btne isrc1s,isrc2,sbroff */ { "btne", 0x54000000, 0xa8000000, "5,2,s", 0 }, /* btne #const5,isrc2,sbroff */ { "bla", 0xb4000000, 0x48000000, "1,2,s", E_DELAY }, /* bla isrc1s,isrc2,sbroff */ { "bri", 0x40000000, 0xbc000000, "1", E_DELAY }, /* bri isrc1ni */ /* Core Escape Instruction Format */ { "lock", 0x4c000001, 0xb000001e, "", 0 }, /* lock set BL in dirbase */ { "calli", 0x4c000002, 0xb000001d, "1", E_DELAY }, /* calli isrc1ni */ { "intovr", 0x4c000004, 0xb000001b, "", 0 }, /* intovr trap on integer overflow */ { "unlock", 0x4c000007, 0xb0000018, "", 0 }, /* unlock clear BL in dirbase */ /* CTRL-Format Instructions */ { "br", 0x68000000, 0x94000000, "l", E_DELAY }, /* br lbroff */ { "call", 0x6c000000, 0x90000000, "l", E_DELAY }, /* call lbroff */ { "bc", 0x70000000, 0x8c000000, "l", 0 }, /* bc lbroff */ { "bc.t", 0x74000000, 0x88000000, "l", E_DELAY }, /* bc.t lbroff */ { "bnc", 0x78000000, 0x84000000, "l", 0 }, /* bnc lbroff */ { "bnc.t", 0x7c000000, 0x80000000, "l", E_DELAY }, /* bnc.t lbroff */ /* Floating Point Escape Instruction Format - pfam.p fsrc1,fsrc2,fdest */ { "r2p1.ss", 0x48000400, 0xb40003ff, "e,f,g", 0 }, { "r2p1.sd", 0x48000480, 0xb400037f, "e,f,g", 0 }, { "r2p1.dd", 0x48000580, 0xb400027f, "e,f,g", 0 }, { "r2pt.ss", 0x48000401, 0xb40003fe, "e,f,g", 0 }, { "r2pt.sd", 0x48000481, 0xb400037e, "e,f,g", 0 }, { "r2pt.dd", 0x48000581, 0xb400027e, "e,f,g", 0 }, { "r2ap1.ss", 0x48000402, 0xb40003fd, "e,f,g", 0 }, { "r2ap1.sd", 0x48000482, 0xb400037d, "e,f,g", 0 }, { "r2ap1.dd", 0x48000582, 0xb400027d, "e,f,g", 0 }, { "r2apt.ss", 0x48000403, 0xb40003fc, "e,f,g", 0 }, { "r2apt.sd", 0x48000483, 0xb400037c, "e,f,g", 0 }, { "r2apt.dd", 0x48000583, 0xb400027c, "e,f,g", 0 }, { "i2p1.ss", 0x48000404, 0xb40003fb, "e,f,g", 0 }, { "i2p1.sd", 0x48000484, 0xb400037b, "e,f,g", 0 }, { "i2p1.dd", 0x48000584, 0xb400027b, "e,f,g", 0 }, { "i2pt.ss", 0x48000405, 0xb40003fa, "e,f,g", 0 }, { "i2pt.sd", 0x48000485, 0xb400037a, "e,f,g", 0 }, { "i2pt.dd", 0x48000585, 0xb400027a, "e,f,g", 0 }, { "i2ap1.ss", 0x48000406, 0xb40003f9, "e,f,g", 0 }, { "i2ap1.sd", 0x48000486, 0xb4000379, "e,f,g", 0 }, { "i2ap1.dd", 0x48000586, 0xb4000279, "e,f,g", 0 }, { "i2apt.ss", 0x48000407, 0xb40003f8, "e,f,g", 0 }, { "i2apt.sd", 0x48000487, 0xb4000378, "e,f,g", 0 }, { "i2apt.dd", 0x48000587, 0xb4000278, "e,f,g", 0 }, { "rat1p2.ss", 0x48000408, 0xb40003f7, "e,f,g", 0 }, { "rat1p2.sd", 0x48000488, 0xb4000377, "e,f,g", 0 }, { "rat1p2.dd", 0x48000588, 0xb4000277, "e,f,g", 0 }, { "m12apm.ss", 0x48000409, 0xb40003f6, "e,f,g", 0 }, { "m12apm.sd", 0x48000489, 0xb4000376, "e,f,g", 0 }, { "m12apm.dd", 0x48000589, 0xb4000276, "e,f,g", 0 }, { "ra1p2.ss", 0x4800040a, 0xb40003f5, "e,f,g", 0 }, { "ra1p2.sd", 0x4800048a, 0xb4000375, "e,f,g", 0 }, { "ra1p2.dd", 0x4800058a, 0xb4000275, "e,f,g", 0 }, { "m12ttpa.ss", 0x4800040b, 0xb40003f4, "e,f,g", 0 }, { "m12ttpa.sd", 0x4800048b, 0xb4000374, "e,f,g", 0 }, { "m12ttpa.dd", 0x4800058b, 0xb4000274, "e,f,g", 0 }, { "iat1p2.ss", 0x4800040c, 0xb40003f3, "e,f,g", 0 }, { "iat1p2.sd", 0x4800048c, 0xb4000373, "e,f,g", 0 }, { "iat1p2.dd", 0x4800058c, 0xb4000273, "e,f,g", 0 }, { "m12tpm.ss", 0x4800040d, 0xb40003f2, "e,f,g", 0 }, { "m12tpm.sd", 0x4800048d, 0xb4000372, "e,f,g", 0 }, { "m12tpm.dd", 0x4800058d, 0xb4000272, "e,f,g", 0 }, { "ia1p2.ss", 0x4800040e, 0xb40003f1, "e,f,g", 0 }, { "ia1p2.sd", 0x4800048e, 0xb4000371, "e,f,g", 0 }, { "ia1p2.dd", 0x4800058e, 0xb4000271, "e,f,g", 0 }, { "m12tpa.ss", 0x4800040f, 0xb40003f0, "e,f,g", 0 }, { "m12tpa.sd", 0x4800048f, 0xb4000370, "e,f,g", 0 }, { "m12tpa.dd", 0x4800058f, 0xb4000270, "e,f,g", 0 }, /* Floating Point Escape Instruction Format - pfsm.p fsrc1,fsrc2,fdest */ { "r2s1.ss", 0x48000410, 0xb40003ef, "e,f,g", 0 }, { "r2s1.sd", 0x48000490, 0xb400036f, "e,f,g", 0 }, { "r2s1.dd", 0x48000590, 0xb400026f, "e,f,g", 0 }, { "r2st.ss", 0x48000411, 0xb40003ee, "e,f,g", 0 }, { "r2st.sd", 0x48000491, 0xb400036e, "e,f,g", 0 }, { "r2st.dd", 0x48000591, 0xb400026e, "e,f,g", 0 }, { "r2as1.ss", 0x48000412, 0xb40003ed, "e,f,g", 0 }, { "r2as1.sd", 0x48000492, 0xb400036d, "e,f,g", 0 }, { "r2as1.dd", 0x48000592, 0xb400026d, "e,f,g", 0 }, { "r2ast.ss", 0x48000413, 0xb40003ec, "e,f,g", 0 }, { "r2ast.sd", 0x48000493, 0xb400036c, "e,f,g", 0 }, { "r2ast.dd", 0x48000593, 0xb400026c, "e,f,g", 0 }, { "i2s1.ss", 0x48000414, 0xb40003eb, "e,f,g", 0 }, { "i2s1.sd", 0x48000494, 0xb400036b, "e,f,g", 0 }, { "i2s1.dd", 0x48000594, 0xb400026b, "e,f,g", 0 }, { "i2st.ss", 0x48000415, 0xb40003ea, "e,f,g", 0 }, { "i2st.sd", 0x48000495, 0xb400036a, "e,f,g", 0 }, { "i2st.dd", 0x48000595, 0xb400026a, "e,f,g", 0 }, { "i2as1.ss", 0x48000416, 0xb40003e9, "e,f,g", 0 }, { "i2as1.sd", 0x48000496, 0xb4000369, "e,f,g", 0 }, { "i2as1.dd", 0x48000596, 0xb4000269, "e,f,g", 0 }, { "i2ast.ss", 0x48000417, 0xb40003e8, "e,f,g", 0 }, { "i2ast.sd", 0x48000497, 0xb4000368, "e,f,g", 0 }, { "i2ast.dd", 0x48000597, 0xb4000268, "e,f,g", 0 }, { "rat1s2.ss", 0x48000418, 0xb40003e7, "e,f,g", 0 }, { "rat1s2.sd", 0x48000498, 0xb4000367, "e,f,g", 0 }, { "rat1s2.dd", 0x48000598, 0xb4000267, "e,f,g", 0 }, { "m12asm.ss", 0x48000419, 0xb40003e6, "e,f,g", 0 }, { "m12asm.sd", 0x48000499, 0xb4000366, "e,f,g", 0 }, { "m12asm.dd", 0x48000599, 0xb4000266, "e,f,g", 0 }, { "ra1s2.ss", 0x4800041a, 0xb40003e5, "e,f,g", 0 }, { "ra1s2.sd", 0x4800049a, 0xb4000365, "e,f,g", 0 }, { "ra1s2.dd", 0x4800059a, 0xb4000265, "e,f,g", 0 }, { "m12ttsa.ss", 0x4800041b, 0xb40003e4, "e,f,g", 0 }, { "m12ttsa.sd", 0x4800049b, 0xb4000364, "e,f,g", 0 }, { "m12ttsa.dd", 0x4800059b, 0xb4000264, "e,f,g", 0 }, { "iat1s2.ss", 0x4800041c, 0xb40003e3, "e,f,g", 0 }, { "iat1s2.sd", 0x4800049c, 0xb4000363, "e,f,g", 0 }, { "iat1s2.dd", 0x4800059c, 0xb4000263, "e,f,g", 0 }, { "m12tsm.ss", 0x4800041d, 0xb40003e2, "e,f,g", 0 }, { "m12tsm.sd", 0x4800049d, 0xb4000362, "e,f,g", 0 }, { "m12tsm.dd", 0x4800059d, 0xb4000262, "e,f,g", 0 }, { "ia1s2.ss", 0x4800041e, 0xb40003e1, "e,f,g", 0 }, { "ia1s2.sd", 0x4800049e, 0xb4000361, "e,f,g", 0 }, { "ia1s2.dd", 0x4800059e, 0xb4000261, "e,f,g", 0 }, { "m12tsa.ss", 0x4800041f, 0xb40003e0, "e,f,g", 0 }, { "m12tsa.sd", 0x4800049f, 0xb4000360, "e,f,g", 0 }, { "m12tsa.dd", 0x4800059f, 0xb4000260, "e,f,g", 0 }, /* Floating Point Escape Instruction Format - pfmam.p fsrc1,fsrc2,fdest */ { "mr2p1.ss", 0x48000000, 0xb40007ff, "e,f,g", 0 }, { "mr2p1.sd", 0x48000080, 0xb400077f, "e,f,g", 0 }, { "mr2p1.dd", 0x48000180, 0xb400067f, "e,f,g", 0 }, { "mr2pt.ss", 0x48000001, 0xb40007fe, "e,f,g", 0 }, { "mr2pt.sd", 0x48000081, 0xb400077e, "e,f,g", 0 }, { "mr2pt.dd", 0x48000181, 0xb400067e, "e,f,g", 0 }, { "mr2mp1.ss", 0x48000002, 0xb40007fd, "e,f,g", 0 }, { "mr2mp1.sd", 0x48000082, 0xb400077d, "e,f,g", 0 }, { "mr2mp1.dd", 0x48000182, 0xb400067d, "e,f,g", 0 }, { "mr2mpt.ss", 0x48000003, 0xb40007fc, "e,f,g", 0 }, { "mr2mpt.sd", 0x48000083, 0xb400077c, "e,f,g", 0 }, { "mr2mpt.dd", 0x48000183, 0xb400067c, "e,f,g", 0 }, { "mi2p1.ss", 0x48000004, 0xb40007fb, "e,f,g", 0 }, { "mi2p1.sd", 0x48000084, 0xb400077b, "e,f,g", 0 }, { "mi2p1.dd", 0x48000184, 0xb400067b, "e,f,g", 0 }, { "mi2pt.ss", 0x48000005, 0xb40007fa, "e,f,g", 0 }, { "mi2pt.sd", 0x48000085, 0xb400077a, "e,f,g", 0 }, { "mi2pt.dd", 0x48000185, 0xb400067a, "e,f,g", 0 }, { "mi2mp1.ss", 0x48000006, 0xb40007f9, "e,f,g", 0 }, { "mi2mp1.sd", 0x48000086, 0xb4000779, "e,f,g", 0 }, { "mi2mp1.dd", 0x48000186, 0xb4000679, "e,f,g", 0 }, { "mi2mpt.ss", 0x48000007, 0xb40007f8, "e,f,g", 0 }, { "mi2mpt.sd", 0x48000087, 0xb4000778, "e,f,g", 0 }, { "mi2mpt.dd", 0x48000187, 0xb4000678, "e,f,g", 0 }, { "mrmt1p2.ss", 0x48000008, 0xb40007f7, "e,f,g", 0 }, { "mrmt1p2.sd", 0x48000088, 0xb4000777, "e,f,g", 0 }, { "mrmt1p2.dd", 0x48000188, 0xb4000677, "e,f,g", 0 }, { "mm12mpm.ss", 0x48000009, 0xb40007f6, "e,f,g", 0 }, { "mm12mpm.sd", 0x48000089, 0xb4000776, "e,f,g", 0 }, { "mm12mpm.dd", 0x48000189, 0xb4000676, "e,f,g", 0 }, { "mrm1p2.ss", 0x4800000a, 0xb40007f5, "e,f,g", 0 }, { "mrm1p2.sd", 0x4800008a, 0xb4000775, "e,f,g", 0 }, { "mrm1p2.dd", 0x4800018a, 0xb4000675, "e,f,g", 0 }, { "mm12ttpm.ss",0x4800000b, 0xb40007f4, "e,f,g", 0 }, { "mm12ttpm.sd",0x4800008b, 0xb4000774, "e,f,g", 0 }, { "mm12ttpm.dd",0x4800018b, 0xb4000674, "e,f,g", 0 }, { "mimt1p2.ss", 0x4800000c, 0xb40007f3, "e,f,g", 0 }, { "mimt1p2.sd", 0x4800008c, 0xb4000773, "e,f,g", 0 }, { "mimt1p2.dd", 0x4800018c, 0xb4000673, "e,f,g", 0 }, { "mm12tpm.ss", 0x4800000d, 0xb40007f2, "e,f,g", 0 }, { "mm12tpm.sd", 0x4800008d, 0xb4000772, "e,f,g", 0 }, { "mm12tpm.dd", 0x4800018d, 0xb4000672, "e,f,g", 0 }, { "mim1p2.ss", 0x4800000e, 0xb40007f1, "e,f,g", 0 }, { "mim1p2.sd", 0x4800008e, 0xb4000771, "e,f,g", 0 }, { "mim1p2.dd", 0x4800018e, 0xb4000671, "e,f,g", 0 }, /* Floating Point Escape Instruction Format - pfmsm.p fsrc1,fsrc2,fdest */ { "mr2s1.ss", 0x48000010, 0xb40007ef, "e,f,g", 0 }, { "mr2s1.sd", 0x48000090, 0xb400076f, "e,f,g", 0 }, { "mr2s1.dd", 0x48000190, 0xb400066f, "e,f,g", 0 }, { "mr2st.ss", 0x48000011, 0xb40007ee, "e,f,g", 0 }, { "mr2st.sd", 0x48000091, 0xb400076e, "e,f,g", 0 }, { "mr2st.dd", 0x48000191, 0xb400066e, "e,f,g", 0 }, { "mr2ms1.ss", 0x48000012, 0xb40007ed, "e,f,g", 0 }, { "mr2ms1.sd", 0x48000092, 0xb400076d, "e,f,g", 0 }, { "mr2ms1.dd", 0x48000192, 0xb400066d, "e,f,g", 0 }, { "mr2mst.ss", 0x48000013, 0xb40007ec, "e,f,g", 0 }, { "mr2mst.sd", 0x48000093, 0xb400076c, "e,f,g", 0 }, { "mr2mst.dd", 0x48000193, 0xb400066c, "e,f,g", 0 }, { "mi2s1.ss", 0x48000014, 0xb40007eb, "e,f,g", 0 }, { "mi2s1.sd", 0x48000094, 0xb400076b, "e,f,g", 0 }, { "mi2s1.dd", 0x48000194, 0xb400066b, "e,f,g", 0 }, { "mi2st.ss", 0x48000015, 0xb40007ea, "e,f,g", 0 }, { "mi2st.sd", 0x48000095, 0xb400076a, "e,f,g", 0 }, { "mi2st.dd", 0x48000195, 0xb400066a, "e,f,g", 0 }, { "mi2ms1.ss", 0x48000016, 0xb40007e9, "e,f,g", 0 }, { "mi2ms1.sd", 0x48000096, 0xb4000769, "e,f,g", 0 }, { "mi2ms1.dd", 0x48000196, 0xb4000669, "e,f,g", 0 }, { "mi2mst.ss", 0x48000017, 0xb40007e8, "e,f,g", 0 }, { "mi2mst.sd", 0x48000097, 0xb4000768, "e,f,g", 0 }, { "mi2mst.dd", 0x48000197, 0xb4000668, "e,f,g", 0 }, { "mrmt1s2.ss", 0x48000018, 0xb40007e7, "e,f,g", 0 }, { "mrmt1s2.sd", 0x48000098, 0xb4000767, "e,f,g", 0 }, { "mrmt1s2.dd", 0x48000198, 0xb4000667, "e,f,g", 0 }, { "mm12msm.ss", 0x48000019, 0xb40007e6, "e,f,g", 0 }, { "mm12msm.sd", 0x48000099, 0xb4000766, "e,f,g", 0 }, { "mm12msm.dd", 0x48000199, 0xb4000666, "e,f,g", 0 }, { "mrm1s2.ss", 0x4800001a, 0xb40007e5, "e,f,g", 0 }, { "mrm1s2.sd", 0x4800009a, 0xb4000765, "e,f,g", 0 }, { "mrm1s2.dd", 0x4800019a, 0xb4000665, "e,f,g", 0 }, { "mm12ttsm.ss",0x4800001b, 0xb40007e4, "e,f,g", 0 }, { "mm12ttsm.sd",0x4800009b, 0xb4000764, "e,f,g", 0 }, { "mm12ttsm.dd",0x4800019b, 0xb4000664, "e,f,g", 0 }, { "mimt1s2.ss", 0x4800001c, 0xb40007e3, "e,f,g", 0 }, { "mimt1s2.sd", 0x4800009c, 0xb4000763, "e,f,g", 0 }, { "mimt1s2.dd", 0x4800019c, 0xb4000663, "e,f,g", 0 }, { "mm12tsm.ss", 0x4800001d, 0xb40007e2, "e,f,g", 0 }, { "mm12tsm.sd", 0x4800009d, 0xb4000762, "e,f,g", 0 }, { "mm12tsm.dd", 0x4800019d, 0xb4000662, "e,f,g", 0 }, { "mim1s2.ss", 0x4800001e, 0xb40007e1, "e,f,g", 0 }, { "mim1s2.sd", 0x4800009e, 0xb4000761, "e,f,g", 0 }, { "mim1s2.dd", 0x4800019e, 0xb4000661, "e,f,g", 0 }, { "fmul.ss", 0x48000020, 0xb40007df, "e,f,g", 0 }, /* fmul.p fsrc1,fsrc2,fdest */ { "fmul.sd", 0x480000a0, 0xb400075f, "e,f,g", 0 }, /* fmul.p fsrc1,fsrc2,fdest */ { "fmul.dd", 0x480001a0, 0xb400065f, "e,f,g", 0 }, /* fmul.p fsrc1,fsrc2,fdest */ { "pfmul.ss", 0x48000420, 0xb40003df, "e,f,g", 0 }, /* pfmul.p fsrc1,fsrc2,fdest */ { "pfmul.sd", 0x480004a0, 0xb400035f, "e,f,g", 0 }, /* pfmul.p fsrc1,fsrc2,fdest */ { "pfmul.dd", 0x480005a0, 0xb400025f, "e,f,g", 0 }, /* pfmul.p fsrc1,fsrc2,fdest */ { "pfmul3.dd", 0x480005a4, 0xb400025b, "e,f,g", 0 }, /* pfmul3.p fsrc1,fsrc2,fdest */ { "fmlow.dd", 0x480001a1, 0xb400065e, "e,f,g", 0 }, /* fmlow.dd fsrc1,fsrc2,fdest */ { "frcp.ss", 0x48000022, 0xb40007dd, "f,g", 0 }, /* frcp.p fsrc2,fdest */ { "frcp.sd", 0x480000a2, 0xb400075d, "f,g", 0 }, /* frcp.p fsrc2,fdest */ { "frcp.dd", 0x480001a2, 0xb400065d, "f,g", 0 }, /* frcp.p fsrc2,fdest */ { "frsqr.ss", 0x48000023, 0xb40007dc, "f,g", 0 }, /* frsqr.p fsrc2,fdest */ { "frsqr.sd", 0x480000a3, 0xb400075c, "f,g", 0 }, /* frsqr.p fsrc2,fdest */ { "frsqr.dd", 0x480001a3, 0xb400065c, "f,g", 0 }, /* frsqr.p fsrc2,fdest */ { "fadd.ss", 0x48000030, 0xb40007cf, "e,f,g", 0 }, /* fadd.p fsrc1,fsrc2,fdest */ { "fadd.sd", 0x480000b0, 0xb400074f, "e,f,g", 0 }, /* fadd.p fsrc1,fsrc2,fdest */ { "fadd.dd", 0x480001b0, 0xb400064f, "e,f,g", 0 }, /* fadd.p fsrc1,fsrc2,fdest */ { "pfadd.ss", 0x48000430, 0xb40003cf, "e,f,g", 0 }, /* pfadd.p fsrc1,fsrc2,fdest */ { "pfadd.sd", 0x480004b0, 0xb400034f, "e,f,g", 0 }, /* pfadd.p fsrc1,fsrc2,fdest */ { "pfadd.dd", 0x480005b0, 0xb400024f, "e,f,g", 0 }, /* pfadd.p fsrc1,fsrc2,fdest */ { "fsub.ss", 0x48000031, 0xb40007ce, "e,f,g", 0 }, /* fsub.p fsrc1,fsrc2,fdest */ { "fsub.sd", 0x480000b1, 0xb400074e, "e,f,g", 0 }, /* fsub.p fsrc1,fsrc2,fdest */ { "fsub.dd", 0x480001b1, 0xb400064e, "e,f,g", 0 }, /* fsub.p fsrc1,fsrc2,fdest */ { "pfsub.ss", 0x48000431, 0xb40003ce, "e,f,g", 0 }, /* pfsub.p fsrc1,fsrc2,fdest */ { "pfsub.sd", 0x480004b1, 0xb400034e, "e,f,g", 0 }, /* pfsub.p fsrc1,fsrc2,fdest */ { "pfsub.dd", 0x480005b1, 0xb400024e, "e,f,g", 0 }, /* pfsub.p fsrc1,fsrc2,fdest */ { "fix.ss", 0x48000032, 0xb40007cd, "e,g", 0 }, /* fix.p fsrc1,fdest */ { "fix.sd", 0x480000b2, 0xb400074d, "e,g", 0 }, /* fix.p fsrc1,fdest */ { "fix.dd", 0x480001b2, 0xb400064d, "e,g", 0 }, /* fix.p fsrc1,fdest */ { "pfix.ss", 0x48000432, 0xb40003cd, "e,g", 0 }, /* pfix.p fsrc1,fdest */ { "pfix.sd", 0x480004b2, 0xb400034d, "e,g", 0 }, /* pfix.p fsrc1,fdest */ { "pfix.dd", 0x480005b2, 0xb400024d, "e,g", 0 }, /* pfix.p fsrc1,fdest */ { "famov.ss", 0x48000033, 0xb40007cc, "e,g", 0 }, /* famov.p fsrc1,fdest */ { "famov.ds", 0x48000133, 0xb40006cc, "e,g", 0 }, /* famov.p fsrc1,fdest */ { "famov.sd", 0x480000b3, 0xb400074c, "e,g", 0 }, /* famov.p fsrc1,fdest */ { "famov.dd", 0x480001b3, 0xb400064c, "e,g", 0 }, /* famov.p fsrc1,fdest */ { "pfamov.ss", 0x48000433, 0xb40003cc, "e,g", 0 }, /* pfamov.p fsrc1,fdest */ { "pfamov.ds", 0x48000533, 0xb40002cc, "e,g", 0 }, /* pfamov.p fsrc1,fdest */ { "pfamov.sd", 0x480004b3, 0xb400034c, "e,g", 0 }, /* pfamov.p fsrc1,fdest */ { "pfamov.dd", 0x480005b3, 0xb400024c, "e,g", 0 }, /* pfamov.p fsrc1,fdest */ /* pfgt has R bit cleared; pfle has R bit set */ { "pfgt.ss", 0x48000434, 0xb40003cb, "e,f,g", 0 }, /* pfgt.p fsrc1,fsrc2,fdest */ { "pfgt.sd", 0x48000434, 0xb40003cb, "e,f,g", 0 }, /* pfgt.p fsrc1,fsrc2,fdest */ { "pfgt.dd", 0x48000534, 0xb40002cb, "e,f,g", 0 }, /* pfgt.p fsrc1,fsrc2,fdest */ /* pfgt has R bit cleared; pfle has R bit set */ { "pfle.ss", 0x480004b4, 0xb400034b, "e,f,g", 0 }, /* pfle.p fsrc1,fsrc2,fdest */ { "pfle.sd", 0x480004b4, 0xb400034b, "e,f,g", 0 }, /* pfle.p fsrc1,fsrc2,fdest */ { "pfle.dd", 0x480005b4, 0xb400024b, "e,f,g", 0 }, /* pfle.p fsrc1,fsrc2,fdest */ { "ftrunc.ss", 0x4800003a, 0xb40007c5, "e,g", 0 }, /* ftrunc.p fsrc1,fdest */ { "ftrunc.sd", 0x480000ba, 0xb4000745, "e,g", 0 }, /* ftrunc.p fsrc1,fdest */ { "ftrunc.dd", 0x480001ba, 0xb4000645, "e,g", 0 }, /* ftrunc.p fsrc1,fdest */ { "pftrunc.ss", 0x4800043a, 0xb40003c5, "e,g", 0 }, /* pftrunc.p fsrc1,fdest */ { "pftrunc.sd", 0x480004ba, 0xb4000345, "e,g", 0 }, /* pftrunc.p fsrc1,fdest */ { "pftrunc.dd", 0x480005ba, 0xb4000245, "e,g", 0 }, /* pftrunc.p fsrc1,fdest */ { "fxfr", 0x48000040, 0xb40007bf, "e,d", 0 }, /* fxfr fsrc1,idest */ { "fiadd.ss", 0x48000049, 0xb40007b6, "e,f,g", 0 }, /* fiadd.w fsrc1,fsrc2,fdest */ { "fiadd.dd", 0x480001c9, 0xb4000636, "e,f,g", 0 }, /* fiadd.w fsrc1,fsrc2,fdest */ { "pfiadd.ss", 0x48000449, 0xb40003b6, "e,f,g", 0 }, /* pfiadd.w fsrc1,fsrc2,fdest */ { "pfiadd.dd", 0x480005c9, 0xb4000236, "e,f,g", 0 }, /* pfiadd.w fsrc1,fsrc2,fdest */ { "fisub.ss", 0x4800004d, 0xb40007b2, "e,f,g", 0 }, /* fisub.w fsrc1,fsrc2,fdest */ { "fisub.dd", 0x480001cd, 0xb4000632, "e,f,g", 0 }, /* fisub.w fsrc1,fsrc2,fdest */ { "pfisub.ss", 0x4800044d, 0xb40003b2, "e,f,g", 0 }, /* pfisub.w fsrc1,fsrc2,fdest */ { "pfisub.dd", 0x480005cd, 0xb4000232, "e,f,g", 0 }, /* pfisub.w fsrc1,fsrc2,fdest */ { "fzchkl", 0x48000057, 0xb40007a8, "e,f,g", 0 }, /* fzchkl fsrc1,fsrc2,fdest */ { "pfzchkl", 0x48000457, 0xb40003a8, "e,f,g", 0 }, /* pfzchkl fsrc1,fsrc2,fdest */ { "fzchks", 0x4800005f, 0xb40007a0, "e,f,g", 0 }, /* fzchks fsrc1,fsrc2,fdest */ { "pfzchks", 0x4800045f, 0xb40003a0, "e,f,g", 0 }, /* pfzchks fsrc1,fsrc2,fdest */ { "faddp", 0x48000050, 0xb40007af, "e,f,g", 0 }, /* faddp fsrc1,fsrc2,fdest */ { "pfaddp", 0x48000450, 0xb40003af, "e,f,g", 0 }, /* pfaddp fsrc1,fsrc2,fdest */ { "faddz", 0x48000051, 0xb40007ae, "e,f,g", 0 }, /* faddz fsrc1,fsrc2,fdest */ { "pfaddz", 0x48000451, 0xb40003ae, "e,f,g", 0 }, /* pfaddz fsrc1,fsrc2,fdest */ { "form", 0x4800005a, 0xb40007a5, "e,g", 0 }, /* form fsrc1,fdest */ { "pform", 0x4800045a, 0xb40003a5, "e,g", 0 }, /* pform fsrc1,fdest */ /* Floating point pseudo-instructions */ { "fmov.ss", 0x48000049, 0xb7e007b6, "e,g", 0 }, /* fiadd.ss fsrc1,f0,fdest */ { "fmov.dd", 0x480001c9, 0xb7e00636, "e,g", 0 }, /* fiadd.dd fsrc1,f0,fdest */ { "fmov.sd", 0x480000b0, 0xb7e0074f, "e,g", 0 }, /* fadd.sd fsrc1,f0,fdest */ { "fmov.ds", 0x48000130, 0xb7e006cf, "e,g", 0 }, /* fadd.ds fsrc1,f0,fdest */ { "pfmov.ds", 0x48000530, 0xb73002cf, "e,g", 0 }, /* pfadd.ds fsrc1,f0,fdest */ { "pfmov.dd", 0x480005c9, 0xb7e00236, "e,g", 0 }, /* pfiadd.dd fsrc1,f0,fdest */ }; #define NUMOPCODES ((sizeof i860_opcodes)/(sizeof i860_opcodes[0])) gdb-4.13/include/opcode/i960.h 666 34562 1752 47733 5445404262 14334 0ustar fnfcygnus/* Basic 80960 instruction formats. * * The 'COJ' instructions are actually COBR instructions with the 'b' in * the mnemonic replaced by a 'j'; they are ALWAYS "de-optimized" if necessary: * if the displacement will not fit in 13 bits, the assembler will replace them * with the corresponding compare and branch instructions. * * All of the 'MEMn' instructions are the same format; the 'n' in the name * indicates the default index scale factor (the size of the datum operated on). * * The FBRA formats are not actually an instruction format. They are the * "convenience directives" for branching on floating-point comparisons, * each of which generates 2 instructions (a 'bno' and one other branch). * * The CALLJ format is not actually an instruction format. It indicates that * the instruction generated (a CTRL-format 'call') should have its relocation * specially flagged for link-time replacement with a 'bal' or 'calls' if * appropriate. */ #define CTRL 0 #define COBR 1 #define COJ 2 #define REG 3 #define MEM1 4 #define MEM2 5 #define MEM4 6 #define MEM8 7 #define MEM12 8 #define MEM16 9 #define FBRA 10 #define CALLJ 11 /* Masks for the mode bits in REG format instructions */ #define M1 0x0800 #define M2 0x1000 #define M3 0x2000 /* Generate the 12-bit opcode for a REG format instruction by placing the * high 8 bits in instruction bits 24-31, the low 4 bits in instruction bits * 7-10. */ #define REG_OPC(opc) ((opc & 0xff0) << 20) | ((opc & 0xf) << 7) /* Generate a template for a REG format instruction: place the opcode bits * in the appropriate fields and OR in mode bits for the operands that will not * be used. I.e., * set m1=1, if src1 will not be used * set m2=1, if src2 will not be used * set m3=1, if dst will not be used * * Setting the "unused" mode bits to 1 speeds up instruction execution(!). * The information is also useful to us because some 1-operand REG instructions * use the src1 field, others the dst field; and some 2-operand REG instructions * use src1/src2, others src1/dst. The set mode bits enable us to distinguish. */ #define R_0(opc) ( REG_OPC(opc) | M1 | M2 | M3 ) /* No operands */ #define R_1(opc) ( REG_OPC(opc) | M2 | M3 ) /* 1 operand: src1 */ #define R_1D(opc) ( REG_OPC(opc) | M1 | M2 ) /* 1 operand: dst */ #define R_2(opc) ( REG_OPC(opc) | M3 ) /* 2 ops: src1/src2 */ #define R_2D(opc) ( REG_OPC(opc) | M2 ) /* 2 ops: src1/dst */ #define R_3(opc) ( REG_OPC(opc) ) /* 3 operands */ /* DESCRIPTOR BYTES FOR REGISTER OPERANDS * * Interpret names as follows: * R: global or local register only * RS: global, local, or (if target allows) special-function register only * RL: global or local register, or integer literal * RSL: global, local, or (if target allows) special-function register; * or integer literal * F: global, local, or floating-point register * FL: global, local, or floating-point register; or literal (including * floating point) * * A number appended to a name indicates that registers must be aligned, * as follows: * 2: register number must be multiple of 2 * 4: register number must be multiple of 4 */ #define SFR 0x10 /* Mask for the "sfr-OK" bit */ #define LIT 0x08 /* Mask for the "literal-OK" bit */ #define FP 0x04 /* Mask for "floating-point-OK" bit */ /* This macro ors the bits together. Note that 'align' is a mask * for the low 0, 1, or 2 bits of the register number, as appropriate. */ #define OP(align,lit,fp,sfr) ( align | lit | fp | sfr ) #define R OP( 0, 0, 0, 0 ) #define RS OP( 0, 0, 0, SFR ) #define RL OP( 0, LIT, 0, 0 ) #define RSL OP( 0, LIT, 0, SFR ) #define F OP( 0, 0, FP, 0 ) #define FL OP( 0, LIT, FP, 0 ) #define R2 OP( 1, 0, 0, 0 ) #define RL2 OP( 1, LIT, 0, 0 ) #define F2 OP( 1, 0, FP, 0 ) #define FL2 OP( 1, LIT, FP, 0 ) #define R4 OP( 3, 0, 0, 0 ) #define RL4 OP( 3, LIT, 0, 0 ) #define F4 OP( 3, 0, FP, 0 ) #define FL4 OP( 3, LIT, FP, 0 ) #define M 0x7f /* Memory operand (MEMA & MEMB format instructions) */ /* Macros to extract info from the register operand descriptor byte 'od'. */ #define SFR_OK(od) (od & SFR) /* TRUE if sfr operand allowed */ #define LIT_OK(od) (od & LIT) /* TRUE if literal operand allowed */ #define FP_OK(od) (od & FP) /* TRUE if floating-point op allowed */ #define REG_ALIGN(od,n) ((od & 0x3 & n) == 0) /* TRUE if reg #n is properly aligned */ #define MEMOP(od) (od == M) /* TRUE if operand is a memory operand*/ /* Description of a single i80960 instruction */ struct i960_opcode { long opcode; /* 32 bits, constant fields filled in, rest zeroed */ char *name; /* Assembler mnemonic */ short iclass; /* Class: see #defines below */ char format; /* REG, COBR, CTRL, MEMn, COJ, FBRA, or CALLJ */ char num_ops; /* Number of operands */ char operand[3];/* Operand descriptors; same order as assembler instr */ }; /* Classes of 960 intructions: * - each instruction falls into one class. * - each target architecture supports one or more classes. * * EACH CONSTANT MUST CONTAIN 1 AND ONLY 1 SET BIT!: see targ_has_iclass(). */ #define I_BASE 0x01 /* 80960 base instruction set */ #define I_CX 0x02 /* 80960Cx instruction */ #define I_DEC 0x04 /* Decimal instruction */ #define I_FP 0x08 /* Floating point instruction */ #define I_KX 0x10 /* 80960Kx instruction */ #define I_MIL 0x20 /* Military instruction */ #define I_CASIM 0x40 /* CA simulator instruction */ /****************************************************************************** * * TABLE OF i960 INSTRUCTION DESCRIPTIONS * ******************************************************************************/ const struct i960_opcode i960_opcodes[] = { /* if a CTRL instruction has an operand, it's always a displacement */ /* callj default=='call' */ { 0x09000000, "callj", I_BASE, CALLJ, 1, { 0, 0, 0 } }, { 0x08000000, "b", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x09000000, "call", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x0a000000, "ret", I_BASE, CTRL, 0, { 0, 0, 0 } }, { 0x0b000000, "bal", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x10000000, "bno", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* bf same as bno */ { 0x10000000, "bf", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* bru same as bno */ { 0x10000000, "bru", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x11000000, "bg", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* brg same as bg */ { 0x11000000, "brg", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x12000000, "be", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* bre same as be */ { 0x12000000, "bre", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x13000000, "bge", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* brge same as bge */ { 0x13000000, "brge", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x14000000, "bl", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* brl same as bl */ { 0x14000000, "brl", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x15000000, "bne", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* brlg same as bne */ { 0x15000000, "brlg", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x16000000, "ble", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* brle same as ble */ { 0x16000000, "brle", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x17000000, "bo", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* bt same as bo */ { 0x17000000, "bt", I_BASE, CTRL, 1, { 0, 0, 0 } }, /* bro same as bo */ { 0x17000000, "bro", I_BASE, CTRL, 1, { 0, 0, 0 } }, { 0x18000000, "faultno", I_BASE, CTRL, 0, { 0, 0, 0 } }, /* faultf same as faultno */ { 0x18000000, "faultf", I_BASE, CTRL, 0, { 0, 0, 0 } }, { 0x19000000, "faultg", I_BASE, CTRL, 0, { 0, 0, 0 } }, { 0x1a000000, "faulte", I_BASE, CTRL, 0, { 0, 0, 0 } }, { 0x1b000000, "faultge", I_BASE, CTRL, 0, { 0, 0, 0 } }, { 0x1c000000, "faultl", I_BASE, CTRL, 0, { 0, 0, 0 } }, { 0x1d000000, "faultne", I_BASE, CTRL, 0, { 0, 0, 0 } }, { 0x1e000000, "faultle", I_BASE, CTRL, 0, { 0, 0, 0 } }, { 0x1f000000, "faulto", I_BASE, CTRL, 0, { 0, 0, 0 } }, /* faultt syn for faulto */ { 0x1f000000, "faultt", I_BASE, CTRL, 0, { 0, 0, 0 } }, { 0x01000000, "syscall", I_CASIM,CTRL, 0, { 0, 0, 0 } }, /* If a COBR (or COJ) has 3 operands, the last one is always a * displacement and does not appear explicitly in the table. */ { 0x20000000, "testno", I_BASE, COBR, 1, { R, 0, 0 } }, { 0x21000000, "testg", I_BASE, COBR, 1, { R, 0, 0 } }, { 0x22000000, "teste", I_BASE, COBR, 1, { R, 0, 0 } }, { 0x23000000, "testge", I_BASE, COBR, 1, { R, 0, 0 } }, { 0x24000000, "testl", I_BASE, COBR, 1, { R, 0, 0 } }, { 0x25000000, "testne", I_BASE, COBR, 1, { R, 0, 0 } }, { 0x26000000, "testle", I_BASE, COBR, 1, { R, 0, 0 } }, { 0x27000000, "testo", I_BASE, COBR, 1, { R, 0, 0 } }, { 0x30000000, "bbc", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x31000000, "cmpobg", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x32000000, "cmpobe", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x33000000, "cmpobge", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x34000000, "cmpobl", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x35000000, "cmpobne", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x36000000, "cmpoble", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x37000000, "bbs", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x38000000, "cmpibno", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x39000000, "cmpibg", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x3a000000, "cmpibe", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x3b000000, "cmpibge", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x3c000000, "cmpibl", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x3d000000, "cmpibne", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x3e000000, "cmpible", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x3f000000, "cmpibo", I_BASE, COBR, 3, { RL, RS, 0 } }, { 0x31000000, "cmpojg", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x32000000, "cmpoje", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x33000000, "cmpojge", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x34000000, "cmpojl", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x35000000, "cmpojne", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x36000000, "cmpojle", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x38000000, "cmpijno", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x39000000, "cmpijg", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x3a000000, "cmpije", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x3b000000, "cmpijge", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x3c000000, "cmpijl", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x3d000000, "cmpijne", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x3e000000, "cmpijle", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x3f000000, "cmpijo", I_BASE, COJ, 3, { RL, RS, 0 } }, { 0x80000000, "ldob", I_BASE, MEM1, 2, { M, R, 0 } }, { 0x82000000, "stob", I_BASE, MEM1, 2, { R, M, 0 } }, { 0x84000000, "bx", I_BASE, MEM1, 1, { M, 0, 0 } }, { 0x85000000, "balx", I_BASE, MEM1, 2, { M, R, 0 } }, { 0x86000000, "callx", I_BASE, MEM1, 1, { M, 0, 0 } }, { 0x88000000, "ldos", I_BASE, MEM2, 2, { M, R, 0 } }, { 0x8a000000, "stos", I_BASE, MEM2, 2, { R, M, 0 } }, { 0x8c000000, "lda", I_BASE, MEM1, 2, { M, R, 0 } }, { 0x90000000, "ld", I_BASE, MEM4, 2, { M, R, 0 } }, { 0x92000000, "st", I_BASE, MEM4, 2, { R, M, 0 } }, { 0x98000000, "ldl", I_BASE, MEM8, 2, { M, R2, 0 } }, { 0x9a000000, "stl", I_BASE, MEM8, 2, { R2, M, 0 } }, { 0xa0000000, "ldt", I_BASE, MEM12, 2, { M, R4, 0 } }, { 0xa2000000, "stt", I_BASE, MEM12, 2, { R4, M, 0 } }, { 0xb0000000, "ldq", I_BASE, MEM16, 2, { M, R4, 0 } }, { 0xb2000000, "stq", I_BASE, MEM16, 2, { R4, M, 0 } }, { 0xc0000000, "ldib", I_BASE, MEM1, 2, { M, R, 0 } }, { 0xc2000000, "stib", I_BASE, MEM1, 2, { R, M, 0 } }, { 0xc8000000, "ldis", I_BASE, MEM2, 2, { M, R, 0 } }, { 0xca000000, "stis", I_BASE, MEM2, 2, { R, M, 0 } }, { R_3(0x580), "notbit", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x581), "and", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x582), "andnot", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x583), "setbit", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x584), "notand", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x586), "xor", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x587), "or", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x588), "nor", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x589), "xnor", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_2D(0x58a), "not", I_BASE, REG, 2, { RSL,RS, 0 } }, { R_3(0x58b), "ornot", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x58c), "clrbit", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x58d), "notor", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x58e), "nand", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x58f), "alterbit", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x590), "addo", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x591), "addi", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x592), "subo", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x593), "subi", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x598), "shro", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x59a), "shrdi", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x59b), "shri", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x59c), "shlo", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x59d), "rotate", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x59e), "shli", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_2(0x5a0), "cmpo", I_BASE, REG, 2, { RSL,RSL, 0 } }, { R_2(0x5a1), "cmpi", I_BASE, REG, 2, { RSL,RSL, 0 } }, { R_2(0x5a2), "concmpo", I_BASE, REG, 2, { RSL,RSL, 0 } }, { R_2(0x5a3), "concmpi", I_BASE, REG, 2, { RSL,RSL, 0 } }, { R_3(0x5a4), "cmpinco", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x5a5), "cmpinci", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x5a6), "cmpdeco", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x5a7), "cmpdeci", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_2(0x5ac), "scanbyte", I_BASE, REG, 2, { RSL,RSL, 0 } }, { R_2(0x5ae), "chkbit", I_BASE, REG, 2, { RSL,RSL, 0 } }, { R_3(0x5b0), "addc", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x5b2), "subc", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_2D(0x5cc), "mov", I_BASE, REG, 2, { RSL,RS, 0 } }, { R_2D(0x5dc), "movl", I_BASE, REG, 2, { RL2,R2, 0 } }, { R_2D(0x5ec), "movt", I_BASE, REG, 2, { RL4,R4, 0 } }, { R_2D(0x5fc), "movq", I_BASE, REG, 2, { RL4,R4, 0 } }, { R_3(0x610), "atmod", I_BASE, REG, 3, { RS, RSL,R } }, { R_3(0x612), "atadd", I_BASE, REG, 3, { RS, RSL,RS } }, { R_2D(0x640), "spanbit", I_BASE, REG, 2, { RSL,RS, 0 } }, { R_2D(0x641), "scanbit", I_BASE, REG, 2, { RSL,RS, 0 } }, { R_3(0x645), "modac", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x650), "modify", I_BASE, REG, 3, { RSL,RSL,R } }, { R_3(0x651), "extract", I_BASE, REG, 3, { RSL,RSL,R } }, { R_3(0x654), "modtc", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x655), "modpc", I_BASE, REG, 3, { RSL,RSL,R } }, { R_1(0x660), "calls", I_BASE, REG, 1, { RSL, 0, 0 } }, { R_0(0x66b), "mark", I_BASE, REG, 0, { 0, 0, 0 } }, { R_0(0x66c), "fmark", I_BASE, REG, 0, { 0, 0, 0 } }, { R_0(0x66d), "flushreg", I_BASE, REG, 0, { 0, 0, 0 } }, { R_0(0x66f), "syncf", I_BASE, REG, 0, { 0, 0, 0 } }, { R_3(0x670), "emul", I_BASE, REG, 3, { RSL,RSL,R2 } }, { R_3(0x671), "ediv", I_BASE, REG, 3, { RSL,RL2,RS } }, { R_2D(0x672), "cvtadr", I_CASIM,REG, 2, { RL, R2, 0 } }, { R_3(0x701), "mulo", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x708), "remo", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x70b), "divo", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x741), "muli", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x748), "remi", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x749), "modi", I_BASE, REG, 3, { RSL,RSL,RS } }, { R_3(0x74b), "divi", I_BASE, REG, 3, { RSL,RSL,RS } }, /* Floating-point instructions */ { R_2D(0x674), "cvtir", I_FP, REG, 2, { RL, F, 0 } }, { R_2D(0x675), "cvtilr", I_FP, REG, 2, { RL, F, 0 } }, { R_3(0x676), "scalerl", I_FP, REG, 3, { RL, FL2,F2 } }, { R_3(0x677), "scaler", I_FP, REG, 3, { RL, FL, F } }, { R_3(0x680), "atanr", I_FP, REG, 3, { FL, FL, F } }, { R_3(0x681), "logepr", I_FP, REG, 3, { FL, FL, F } }, { R_3(0x682), "logr", I_FP, REG, 3, { FL, FL, F } }, { R_3(0x683), "remr", I_FP, REG, 3, { FL, FL, F } }, { R_2(0x684), "cmpor", I_FP, REG, 2, { FL, FL, 0 } }, { R_2(0x685), "cmpr", I_FP, REG, 2, { FL, FL, 0 } }, { R_2D(0x688), "sqrtr", I_FP, REG, 2, { FL, F, 0 } }, { R_2D(0x689), "expr", I_FP, REG, 2, { FL, F, 0 } }, { R_2D(0x68a), "logbnr", I_FP, REG, 2, { FL, F, 0 } }, { R_2D(0x68b), "roundr", I_FP, REG, 2, { FL, F, 0 } }, { R_2D(0x68c), "sinr", I_FP, REG, 2, { FL, F, 0 } }, { R_2D(0x68d), "cosr", I_FP, REG, 2, { FL, F, 0 } }, { R_2D(0x68e), "tanr", I_FP, REG, 2, { FL, F, 0 } }, { R_1(0x68f), "classr", I_FP, REG, 1, { FL, 0, 0 } }, { R_3(0x690), "atanrl", I_FP, REG, 3, { FL2,FL2,F2 } }, { R_3(0x691), "logeprl", I_FP, REG, 3, { FL2,FL2,F2 } }, { R_3(0x692), "logrl", I_FP, REG, 3, { FL2,FL2,F2 } }, { R_3(0x693), "remrl", I_FP, REG, 3, { FL2,FL2,F2 } }, { R_2(0x694), "cmporl", I_FP, REG, 2, { FL2,FL2, 0 } }, { R_2(0x695), "cmprl", I_FP, REG, 2, { FL2,FL2, 0 } }, { R_2D(0x698), "sqrtrl", I_FP, REG, 2, { FL2,F2, 0 } }, { R_2D(0x699), "exprl", I_FP, REG, 2, { FL2,F2, 0 } }, { R_2D(0x69a), "logbnrl", I_FP, REG, 2, { FL2,F2, 0 } }, { R_2D(0x69b), "roundrl", I_FP, REG, 2, { FL2,F2, 0 } }, { R_2D(0x69c), "sinrl", I_FP, REG, 2, { FL2,F2, 0 } }, { R_2D(0x69d), "cosrl", I_FP, REG, 2, { FL2,F2, 0 } }, { R_2D(0x69e), "tanrl", I_FP, REG, 2, { FL2,F2, 0 } }, { R_1(0x69f), "classrl", I_FP, REG, 1, { FL2, 0, 0 } }, { R_2D(0x6c0), "cvtri", I_FP, REG, 2, { FL, R, 0 } }, { R_2D(0x6c1), "cvtril", I_FP, REG, 2, { FL, R2, 0 } }, { R_2D(0x6c2), "cvtzri", I_FP, REG, 2, { FL, R, 0 } }, { R_2D(0x6c3), "cvtzril", I_FP, REG, 2, { FL, R2, 0 } }, { R_2D(0x6c9), "movr", I_FP, REG, 2, { FL, F, 0 } }, { R_2D(0x6d9), "movrl", I_FP, REG, 2, { FL2,F2, 0 } }, { R_2D(0x6e1), "movre", I_FP, REG, 2, { FL4,F4, 0 } }, { R_3(0x6e2), "cpysre", I_FP, REG, 3, { FL4,FL4,F4 } }, { R_3(0x6e3), "cpyrsre", I_FP, REG, 3, { FL4,FL4,F4 } }, { R_3(0x78b), "divr", I_FP, REG, 3, { FL, FL, F } }, { R_3(0x78c), "mulr", I_FP, REG, 3, { FL, FL, F } }, { R_3(0x78d), "subr", I_FP, REG, 3, { FL, FL, F } }, { R_3(0x78f), "addr", I_FP, REG, 3, { FL, FL, F } }, { R_3(0x79b), "divrl", I_FP, REG, 3, { FL2,FL2,F2 } }, { R_3(0x79c), "mulrl", I_FP, REG, 3, { FL2,FL2,F2 } }, { R_3(0x79d), "subrl", I_FP, REG, 3, { FL2,FL2,F2 } }, { R_3(0x79f), "addrl", I_FP, REG, 3, { FL2,FL2,F2 } }, /* These are the floating point branch instructions. Each actually * generates 2 branch instructions: the first a CTRL instruction with * the indicated opcode, and the second a 'bno'. */ { 0x12000000, "brue", I_FP, FBRA, 1, { 0, 0, 0 } }, { 0x11000000, "brug", I_FP, FBRA, 1, { 0, 0, 0 } }, { 0x13000000, "bruge", I_FP, FBRA, 1, { 0, 0, 0 } }, { 0x14000000, "brul", I_FP, FBRA, 1, { 0, 0, 0 } }, { 0x16000000, "brule", I_FP, FBRA, 1, { 0, 0, 0 } }, { 0x15000000, "brulg", I_FP, FBRA, 1, { 0, 0, 0 } }, /* Decimal instructions */ { R_3(0x642), "daddc", I_DEC, REG, 3, { RSL,RSL,RS } }, { R_3(0x643), "dsubc", I_DEC, REG, 3, { RSL,RSL,RS } }, { R_2D(0x644), "dmovt", I_DEC, REG, 2, { RSL,RS, 0 } }, /* KX extensions */ { R_2(0x600), "synmov", I_KX, REG, 2, { R, R, 0 } }, { R_2(0x601), "synmovl", I_KX, REG, 2, { R, R, 0 } }, { R_2(0x602), "synmovq", I_KX, REG, 2, { R, R, 0 } }, { R_2D(0x615), "synld", I_KX, REG, 2, { R, R, 0 } }, /* MC extensions */ { R_3(0x603), "cmpstr", I_MIL, REG, 3, { R, R, RL } }, { R_3(0x604), "movqstr", I_MIL, REG, 3, { R, R, RL } }, { R_3(0x605), "movstr", I_MIL, REG, 3, { R, R, RL } }, { R_2D(0x613), "inspacc", I_MIL, REG, 2, { R, R, 0 } }, { R_2D(0x614), "ldphy", I_MIL, REG, 2, { R, R, 0 } }, { R_3(0x617), "fill", I_MIL, REG, 3, { R, RL, RL } }, { R_2D(0x646), "condrec", I_MIL, REG, 2, { R, R, 0 } }, { R_2D(0x656), "receive", I_MIL, REG, 2, { R, R, 0 } }, { R_3(0x662), "send", I_MIL, REG, 3, { R, RL, R } }, { R_1(0x663), "sendserv", I_MIL, REG, 1, { R, 0, 0 } }, { R_1(0x664), "resumprcs", I_MIL, REG, 1, { R, 0, 0 } }, { R_1(0x665), "schedprcs", I_MIL, REG, 1, { R, 0, 0 } }, { R_0(0x666), "saveprcs", I_MIL, REG, 0, { 0, 0, 0 } }, { R_1(0x668), "condwait", I_MIL, REG, 1, { R, 0, 0 } }, { R_1(0x669), "wait", I_MIL, REG, 1, { R, 0, 0 } }, { R_1(0x66a), "signal", I_MIL, REG, 1, { R, 0, 0 } }, { R_1D(0x673), "ldtime", I_MIL, REG, 1, { R2, 0, 0 } }, /* CX extensions */ { R_3(0x5d8), "eshro", I_CX, REG, 3, { RSL,RSL,RS } }, { R_3(0x630), "sdma", I_CX, REG, 3, { RSL,RSL,RL } }, { R_3(0x631), "udma", I_CX, REG, 0, { 0, 0, 0 } }, { R_3(0x659), "sysctl", I_CX, REG, 3, { RSL,RSL,RL } }, /* END OF TABLE */ { 0, NULL, 0, 0, 0, { 0, 0, 0 } } }; /* end of i960-opcode.h */ gdb-4.13/include/opcode/m68k.h 666 34562 1752 411611 5576150112 14435 0ustar fnfcygnus/* Opcode table for m680[01234]0/m6888[12]/m68851. Copyright 1989, 1991, 1992, 1993, 1994 Free Software Foundation. This file is part of GDB, the GNU Debugger and GAS, the GNU Assembler. Both GDB and GAS are free software; you can redistribute and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. GDB and GAS are 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 GDB or GAS; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* GCC has trouble initializing such a large structure -- it's exponential or something in the size. So allow it to be broken in half. */ #ifndef BREAK_UP_BIG_DECL #define BREAK_UP_BIG_DECL /* nothing */ #define AND_OTHER_PART 0 #endif /* Syntax options: by default we recognize both MIT and Motorola syntax. This can be controlled with the macros MIT_SYNTAX_ONLY and MOTOROLA_SYNTAX_ONLY (but these probably don't work very well, since the original MOTOROLA_SYNTAX did not distinguish the syntaxes very completely). Other options are NO_DEFAULT_SIZES and FIXED_SIZE_BRANCH. Motorola syntax uses periods between the opcode and the size, whereas MIT syntax does not. The opcode table contains the names without the periods, and we remove the period from the name when looking it up. */ /* These are used as bit flags for arch below. */ /* Define this so that jump tables with calculable offsets are possible. This option forces "bsr" and "bra" to always use 16-bit offsets, even if smaller ones work work. Other pseudo-instructions are available for variable-sized offsets. */ #define FIXED_SIZE_BRANCH enum m68k_architecture { a,b }; /* If you add more machine types, be sure to expand the `arch' bitfield below enough to hold the new values. */ #define _m68k_undef 0 #define m68000 0x001 #define m68008 m68000 /* synonym for -m68000. otherwise unused. */ #define m68010 0x002 #define m68020 0x004 #define m68030 0x008 #define m68ec030 m68030 /* similar enough to -m68030 to ignore differences; gas will deal with the few differences. */ #define m68040 0x010 /* there is no 68050 */ #define m68060 0x020 #define m68881 0x040 #define m68882 m68881 /* synonym for -m68881. otherwise unused. */ #define m68851 0x080 #define cpu32 0x100 /* e.g., 68332 */ /* handy aliases */ #define m68040up (m68040 | m68060) #define m68030up (m68030 | m68040up) #define m68020up (m68020 | m68030up) #define m68010up (m68010 | cpu32 | m68020up) #define m68000up (m68000 | m68010up) #define mfloat (m68881 | m68882 | m68040 | m68060) #define mmmu (m68851 | m68030 | m68040 | m68060) /* Flags: If you add any, make sure the `flags' field in `m68k_opcode' below is wide enough to contain them. */ /* This opcode definition is an alias for another existing pattern; accept it in the assembler, but don't use it for printing. */ #define F_ALIAS 0x01 /* note that differences in addressing modes that aren't distinguished in the following table are handled explicitly by gas. */ struct m68k_opcode { char *name; unsigned long opcode; unsigned long match; char *args; unsigned int arch : 9; unsigned int flags : 1; }; /* We store four bytes of opcode for all opcodes because that is the most any of them need. The actual length of an instruction is always at least 2 bytes, and is as much longer as necessary to hold the operands it has. The match component is a mask saying which bits must match particular opcode in order for an instruction to be an instance of that opcode. The args component is a string containing two characters for each operand of the instruction. The first specifies the kind of operand; the second, the place it is stored. */ /* Kinds of operands: Characters used: AaBCcDdFfIJkLlMOPQRrSSsTtUVWXYZ3|*~%;@!&$?/#^+- ("S" is used twice?!? FIXME) D data register only. Stored as 3 bits. A address register only. Stored as 3 bits. a address register indirect only. Stored as 3 bits. R either kind of register. Stored as 4 bits. r either kind of register indirect only. Stored as 4 bits. At the moment, used only for cas2 instruction. F floating point coprocessor register only. Stored as 3 bits. O an offset (or width): immediate data 0-31 or data register. Stored as 6 bits in special format for BF... insns. + autoincrement only. Stored as 3 bits (number of the address register). - autodecrement only. Stored as 3 bits (number of the address register). Q quick immediate data. Stored as 3 bits. This matches an immediate operand only when value is in range 1 .. 8. M moveq immediate data. Stored as 8 bits. This matches an immediate operand only when value is in range -128..127 T trap vector immediate data. Stored as 4 bits. k K-factor for fmove.p instruction. Stored as a 7-bit constant or a three bit register offset, depending on the field type. # immediate data. Stored in special places (b, w or l) which say how many bits to store. ^ immediate data for floating point instructions. Special places are offset by 2 bytes from '#'... B pc-relative address, converted to an offset that is treated as immediate data. d displacement and register. Stores the register as 3 bits and stores the displacement in the entire second word. C the CCR. No need to store it; this is just for filtering validity. S the SR. No need to store, just as with CCR. U the USP. No need to store, just as with CCR. I Coprocessor ID. Not printed if 1. The Coprocessor ID is always extracted from the 'd' field of word one, which means that an extended coprocessor opcode can be skipped using the 'i' place, if needed. s System Control register for the floating point coprocessor. S List of system control registers for floating point coprocessor. J Misc register for movec instruction, stored in 'j' format. Possible values: 0x000 SFC Source Function Code reg [60, 40, 30, 20, 10] 0x001 DFC Data Function Code reg [60, 40, 30, 20, 10] 0x002 CACR Cache Control Register [60, 40, 30, 20] 0x003 TC MMU Translation Control [60, 40] 0x004 ITT0 Instruction Transparent Translation reg 0 [60, 40] 0x005 ITT1 Instruction Transparent Translation reg 1 [60, 40] 0x006 DTT0 Data Transparent Translation reg 0 [60, 40] 0x007 DTT1 Data Transparent Translation reg 1 [60, 40] 0x008 BUSCR Bus Control Register [60] 0x800 USP User Stack Pointer [60, 40, 30, 20, 10] 0x801 VBR Vector Base reg [60, 40, 30, 20, 10] 0x802 CAAR Cache Address Register [ 30, 20] 0x803 MSP Master Stack Pointer [ 40, 30, 20] 0x804 ISP Interrupt Stack Pointer [ 40, 30, 20] 0x805 MMUSR MMU Status reg [ 40] 0x806 URP User Root Pointer [60, 40] 0x807 SRP Supervisor Root Pointer [60, 40] 0x808 PCR Processor Configuration reg [60] L Register list of the type d0-d7/a0-a7 etc. (New! Improved! Can also hold fp0-fp7, as well!) The assembler tries to see if the registers match the insn by looking at where the insn wants them stored. l Register list like L, but with all the bits reversed. Used for going the other way. . . c cache identifier which may be "nc" for no cache, "ic" for instruction cache, "dc" for data cache, or "bc" for both caches. Used in cinv and cpush. Always stored in position "d". They are all stored as 6 bits using an address mode and a register number; they differ in which addressing modes they match. * all (modes 0-6,7.*) ~ alterable memory (modes 2-6,7.0,7.1)(not 0,1,7.~) % alterable (modes 0-6,7.0,7.1)(not 7.~) ; data (modes 0,2-6,7.*)(not 1) @ data, but not immediate (modes 0,2-6,7.? ? ?)(not 1,7.?) This may really be ;, the 68020 book says it is ! control (modes 2,5,6,7.*-)(not 0,1,3,4,7.4) & alterable control (modes 2,5,6,7.0,7.1)(not 0,1,7.? ? ?) $ alterable data (modes 0,2-6,7.0,7.1)(not 1,7.~) ? alterable control, or data register (modes 0,2,5,6,7.0,7.1)(not 1,3,4,7.~) / control, or data register (modes 0,2,5,6,7.0,7.1,7.2,7.3)(not 1,3,4,7.4) ` control, plus pre-dec, not simple indir. (modes 4,5,6,7.*-)(not 0,1,2,3,7.4) */ /* For the 68851: */ /* I didn't use much imagination in choosing the following codes, so many of them aren't very mnemonic. -rab P pmmu register Possible values: 000 TC Translation Control reg 100 CAL Current Access Level 101 VAL Validate Access Level 110 SCC Stack Change Control 111 AC Access Control 3 68030-only pmmu registers 010 TT0 Transparent Translation reg 0 (aka Access Control reg 0 -- AC0 -- on 68ec030) 011 TT1 Transparent Translation reg 1 (aka Access Control reg 1 -- AC1 -- on 68ec030) W wide pmmu registers Possible values: 001 DRP Dma Root Pointer 010 SRP Supervisor Root Pointer 011 CRP Cpu Root Pointer f function code register 0 SFC 1 DFC V VAL register only X BADx, BACx 100 BAD Breakpoint Acknowledge Data 101 BAC Breakpoint Acknowledge Control Y PSR Z PCSR | memory (modes 2-6, 7.*) t address test level (68030 only) Stored as 3 bits, range 0-7. Also used for breakpoint instruction now. */ /* Places to put an operand, for non-general operands: s source, low bits of first word. d dest, shifted 9 in first word 1 second word, shifted 12 2 second word, shifted 6 3 second word, shifted 0 4 third word, shifted 12 5 third word, shifted 6 6 third word, shifted 0 7 second word, shifted 7 8 second word, shifted 10 9 second word, shifted 5 D store in both place 1 and place 3; for divul and divsl. B first word, low byte, for branch displacements W second word (entire), for branch displacements L second and third words (entire), for branch displacements (also overloaded for move16) b second word, low byte w second word (entire) [variable word/long branch offset for dbra] l second and third word (entire) g variable branch offset for bra and similar instructions. The place to store depends on the magnitude of offset. t store in both place 7 and place 8; for floating point operations c branch offset for cpBcc operations. The place to store is word two if bit six of word one is zero, and words two and three if bit six of word one is one. i Increment by two, to skip over coprocessor extended operands. Only works with the 'I' format. k Dynamic K-factor field. Bits 6-4 of word 2, used as a register number. Also used for dynamic fmovem instruction. C floating point coprocessor constant - 7 bits. Also used for static K-factors... j Movec register #, stored in 12 low bits of second word. Places to put operand, for general operands: d destination, shifted 6 bits in first word b source, at low bit of first word, and immediate uses one byte w source, at low bit of first word, and immediate uses two bytes l source, at low bit of first word, and immediate uses four bytes s source, at low bit of first word. Used sometimes in contexts where immediate is not allowed anyway. f single precision float, low bit of 1st word, immediate uses 4 bytes F double precision float, low bit of 1st word, immediate uses 8 bytes x extended precision float, low bit of 1st word, immediate uses 12 bytes p packed float, low bit of 1st word, immediate uses 12 bytes */ #define one(x) ((unsigned int) (x) << 16) #define two(x, y) (((unsigned int) (x) << 16) + (y)) /* *** DANGER WILL ROBINSON *** The assembler requires that all instances of the same mnemonic must be consecutive. If they aren't, the assembler will bomb at runtime */ #ifdef DONT_DEFINE_TABLE extern struct m68k_opcode m68k_opcodes[]; #else struct m68k_opcode m68k_opcodes[] = { {"abcd", one(0140400), one(0170770), "DsDd", m68000up }, {"abcd", one(0140410), one(0170770), "-s-d", m68000up }, /* Add instructions */ {"addal", one(0150700), one(0170700), "*lAd", m68000up }, {"addaw", one(0150300), one(0170700), "*wAd", m68000up }, {"addib", one(0003000), one(0177700), "#b$b", m68000up }, {"addil", one(0003200), one(0177700), "#l$l", m68000up }, {"addiw", one(0003100), one(0177700), "#w$w", m68000up }, {"addqb", one(0050000), one(0170700), "Qd$b", m68000up }, #ifndef MIT_SYNTAX_ONLY {"addqb", one(0003000), one(0177700), "#b$b", m68000up }, /* FIXNIEL: addi instead of addq because to many frags */ #endif {"addql", one(0050200), one(0170700), "Qd%l", m68000up }, #ifndef MIT_SYNTAX_ONLY {"addql", one(0003200), one(0177700), "#l$l", m68000up }, /* FIXNIEL: addi instead of addq because to many frags */ #endif {"addqw", one(0050100), one(0170700), "Qd%w", m68000up }, #ifndef MIT_SYNTAX_ONLY {"addqw", one(0003100), one(0177700), "#w$w", m68000up }, /* FIXNIEL: addi instead of addq because to many frags */ #endif {"addb", one(0050000), one(0170700), "Qd$b", m68000up }, /* addq written as add */ {"addb", one(0003000), one(0177700), "#b$b", m68000up }, /* addi written as add */ {"addb", one(0150000), one(0170700), ";bDd", m68000up }, /* addb , Dd */ {"addb", one(0150400), one(0170700), "Dd~b", m68000up }, /* add.b Dd, */ {"addw", one(0150300), one(0170700), "*wAd", m68000up }, /* adda written as add */ {"addw", one(0050100), one(0170700), "Qd%w", m68000up }, /* addq written as add */ {"addw", one(0003100), one(0177700), "#w$w", m68000up }, /* addi written as add */ {"addw", one(0150100), one(0170700), "*wDd", m68000up }, /* addw , Dd */ {"addw", one(0150500), one(0170700), "Dd~w", m68000up }, /* addw Dd, */ {"addl", one(0050200), one(0170700), "Qd%l", m68000up }, /* addq written as add */ {"addl", one(0003200), one(0177700), "#l$l", m68000up }, /* addi written as add */ {"addl", one(0150700), one(0170700), "*lAd", m68000up }, /* adda written as add */ {"addl", one(0150200), one(0170700), "*lDd", m68000up }, /* addl , Dd */ {"addl", one(0150600), one(0170700), "Dd~l", m68000up }, /* addl Dd, */ #ifndef NO_DEFAULT_SIZES {"addi", one(0050200), one(0170700), "Qd%l", m68000up }, {"addi", one(0003200), one(0177700), "#l$l", m68000up }, /* addi written as add */ {"addq", one(0050100), one(0170700), "Qd%w", m68000up }, #endif {"addxb", one(0150400), one(0170770), "DsDd", m68000up }, {"addxb", one(0150410), one(0170770), "-s-d", m68000up }, {"addxl", one(0150600), one(0170770), "DsDd", m68000up }, {"addxl", one(0150610), one(0170770), "-s-d", m68000up }, {"addxw", one(0150500), one(0170770), "DsDd", m68000up }, {"addxw", one(0150510), one(0170770), "-s-d", m68000up }, {"andib", one(0001000), one(0177700), "#b$b", m68000up }, {"andib", one(0001074), one(0177777), "#bCb", m68000up }, /* andi to ccr */ {"andiw", one(0001100), one(0177700), "#w$w", m68000up }, {"andiw", one(0001174), one(0177777), "#wSw", m68000up }, /* andi to sr */ {"andil", one(0001200), one(0177700), "#l$l", m68000up }, {"andb", one(0001000), one(0177700), "#b$b", m68000up }, /* andi written as or */ {"andb", one(0001074), one(0177777), "#bCb", m68000up }, /* andi to ccr */ {"andb", one(0140000), one(0170700), ";bDd", m68000up }, /* memory to register */ {"andb", one(0140400), one(0170700), "Dd~b", m68000up }, /* register to memory */ {"andw", one(0001100), one(0177700), "#w$w", m68000up }, /* andi written as or */ {"andw", one(0001174), one(0177777), "#wSw", m68000up }, /* andi to sr */ {"andw", one(0140100), one(0170700), ";wDd", m68000up }, /* memory to register */ {"andw", one(0140500), one(0170700), "Dd~w", m68000up }, /* register to memory */ {"andl", one(0001200), one(0177700), "#l$l", m68000up }, /* andi written as or */ {"andl", one(0140200), one(0170700), ";lDd", m68000up }, /* memory to register */ {"andl", one(0140600), one(0170700), "Dd~l", m68000up }, /* register to memory */ #ifndef NO_DEFAULT_SIZES {"andi", one(0001200), one(0177700), "#l$l", m68000up }, {"andi", one(0001174), one(0177777), "#wSw", m68000up }, /* andi to sr */ {"andi", one(0001074), one(0177777), "#bCb", m68000up }, /* andi to ccr */ #endif {"aslb", one(0160400), one(0170770), "QdDs", m68000up }, {"aslb", one(0160440), one(0170770), "DdDs", m68000up }, {"asll", one(0160600), one(0170770), "QdDs", m68000up }, {"asll", one(0160640), one(0170770), "DdDs", m68000up }, {"aslw", one(0160500), one(0170770), "QdDs", m68000up }, {"aslw", one(0160540), one(0170770), "DdDs", m68000up }, {"aslw", one(0160700), one(0177700), "~s", m68000up }, /* Shift memory */ {"asrb", one(0160000), one(0170770), "QdDs", m68000up }, {"asrb", one(0160040), one(0170770), "DdDs", m68000up }, {"asrl", one(0160200), one(0170770), "QdDs", m68000up }, {"asrl", one(0160240), one(0170770), "DdDs", m68000up }, {"asrw", one(0160100), one(0170770), "QdDs", m68000up }, {"asrw", one(0160140), one(0170770), "DdDs", m68000up }, {"asrw", one(0160300), one(0177700), "~s", m68000up }, /* Shift memory */ #ifndef FIXED_SIZE_BRANCH #define BRANCH "Bg" #define BRANCH_MASK one(0xFF00) #else /* Fixed-size branches with 16-bit offsets */ #define BRANCH "BW" #define BRANCH_MASK one(0xFFFF) /* 8-bit displacement must be 0 */ #endif {"bhi", one(0061000), BRANCH_MASK, BRANCH, m68000up }, {"bls", one(0061400), BRANCH_MASK, BRANCH, m68000up }, {"bcc", one(0062000), BRANCH_MASK, BRANCH, m68000up }, #ifndef MOTOROLA_SYNTAX_ONLY {"jfnlt", one(0062000), BRANCH_MASK, BRANCH, m68000up }, /* apparently a sun alias */ #endif {"bcs", one(0062400), BRANCH_MASK, BRANCH, m68000up }, {"bne", one(0063000), BRANCH_MASK, BRANCH, m68000up }, {"beq", one(0063400), BRANCH_MASK, BRANCH, m68000up }, {"bvc", one(0064000), BRANCH_MASK, BRANCH, m68000up }, {"bvs", one(0064400), BRANCH_MASK, BRANCH, m68000up }, {"bpl", one(0065000), BRANCH_MASK, BRANCH, m68000up }, {"bmi", one(0065400), BRANCH_MASK, BRANCH, m68000up }, {"bge", one(0066000), BRANCH_MASK, BRANCH, m68000up }, {"blt", one(0066400), BRANCH_MASK, BRANCH, m68000up }, {"bgt", one(0067000), BRANCH_MASK, BRANCH, m68000up }, {"ble", one(0067400), BRANCH_MASK, BRANCH, m68000up }, #ifndef MOTOROLA_SYNTAX_ONLY {"jfngt", one(0067400), BRANCH_MASK, BRANCH, m68000up }, /* apparently a sun alias */ #endif #ifndef FIXED_SIZE_BRANCH {"bsr", one(0060400), one(0177400), "Bg", m68000up }, {"bsr", one(0047200), one(0177700), "!s", m68000up }, {"bra", one(0060000), one(0177400), "Bg", m68000up }, {"bra", one(0047300), one(0177700), "!s", m68000up }, #else {"bra", one(0060000), one(0177777), "BW", m68000up }, {"bsr", one(0060400), one(0177777), "BW", m68000up }, #endif /* Fixed-size branches with short (byte) offsets */ {"bhis", one(0061000), one(0177400), "BB", m68000up }, {"blss", one(0061400), one(0177400), "BB", m68000up }, {"bccs", one(0062000), one(0177400), "BB", m68000up }, {"bcss", one(0062400), one(0177400), "BB", m68000up }, {"bnes", one(0063000), one(0177400), "BB", m68000up }, {"beqs", one(0063400), one(0177400), "BB", m68000up }, {"jfeq", one(0063400), one(0177400), "BB", m68000up }, /* apparently a sun alias */ {"bvcs", one(0064000), one(0177400), "BB", m68000up }, {"bvss", one(0064400), one(0177400), "BB", m68000up }, {"bpls", one(0065000), one(0177400), "BB", m68000up }, {"bmis", one(0065400), one(0177400), "BB", m68000up }, {"bges", one(0066000), one(0177400), "BB", m68000up }, {"blts", one(0066400), one(0177400), "BB", m68000up }, {"bgts", one(0067000), one(0177400), "BB", m68000up }, {"bles", one(0067400), one(0177400), "BB", m68000up }, {"bras", one(0060000), one(0177400), "BB", m68000up }, {"bsrs", one(0060400), one(0177400), "BB", m68000up }, /* Fixed-size branches with long (32-bit) offsets */ {"bhil", one(0061377), one(0177777), "BL", m68020up | cpu32 }, {"blsl", one(0061777), one(0177777), "BL", m68020up | cpu32 }, {"bccl", one(0062377), one(0177777), "BL", m68020up | cpu32 }, {"bcsl", one(0062777), one(0177777), "BL", m68020up | cpu32 }, {"bnel", one(0063377), one(0177777), "BL", m68020up | cpu32 }, {"beql", one(0063777), one(0177777), "BL", m68020up | cpu32 }, {"bvcl", one(0064377), one(0177777), "BL", m68020up | cpu32 }, {"bvsl", one(0064777), one(0177777), "BL", m68020up | cpu32 }, {"bpll", one(0065377), one(0177777), "BL", m68020up | cpu32 }, {"bmil", one(0065777), one(0177777), "BL", m68020up | cpu32 }, {"bgel", one(0066377), one(0177777), "BL", m68020up | cpu32 }, {"bltl", one(0066777), one(0177777), "BL", m68020up | cpu32 }, {"bgtl", one(0067377), one(0177777), "BL", m68020up | cpu32 }, {"blel", one(0067777), one(0177777), "BL", m68020up | cpu32 }, {"bral", one(0060377), one(0177777), "BL", m68020up | cpu32 }, {"bsrl", one(0060777), one(0177777), "BL", m68020up | cpu32 }, /* We now return you to our regularly scheduled instruction set */ {"bchg", one(0000500), one(0170700), "Dd$s", m68000up }, {"bchg", one(0004100), one(0177700), "#b$s", m68000up }, {"bclr", one(0000600), one(0170700), "Dd$s", m68000up }, {"bclr", one(0004200), one(0177700), "#b$s", m68000up }, #ifndef MIT_SYNTAX_ONLY {"bchgb", one(0000500), one(0170700), "Dd$s", m68000up }, {"bchgb", one(0004100), one(0177700), "#b$s", m68000up }, {"bclrb", one(0000600), one(0170700), "Dd$s", m68000up }, {"bclrb", one(0004200), one(0177700), "#b$s", m68000up }, {"bchgl", one(0000500), one(0170700), "Dd$s", m68000up }, {"bchgl", one(0004100), one(0177700), "#b$s", m68000up }, {"bclrl", one(0000600), one(0170700), "Dd$s", m68000up }, {"bclrl", one(0004200), one(0177700), "#b$s", m68000up }, #endif {"bfchg", two(0165300, 0), two(0177700, 0170000), "?sO2O3", m68020up }, {"bfclr", two(0166300, 0), two(0177700, 0170000), "?sO2O3", m68020up }, {"bfexts", two(0165700, 0), two(0177700, 0100000), "/sO2O3D1", m68020up }, {"bfextu", two(0164700, 0), two(0177700, 0100000), "/sO2O3D1", m68020up }, {"bfffo", two(0166700, 0), two(0177700, 0100000), "/sO2O3D1", m68020up }, {"bfins", two(0167700, 0), two(0177700, 0100000), "D1?sO2O3", m68020up }, {"bfset", two(0167300, 0), two(0177700, 0170000), "?sO2O3", m68020up }, {"bftst", two(0164300, 0), two(0177700, 0170000), "/sO2O3", m68020up }, {"bkpt", one(0044110), one(0177770), "ts", m68020up | cpu32 }, {"bgnd", one(0045372), one(0177777), "", cpu32 }, {"bset", one(0000700), one(0170700), "Dd$s", m68000up }, {"bset", one(0004300), one(0177700), "#b$s", m68000up }, {"btst", one(0000400), one(0170700), "Dd@s", m68000up }, {"btst", one(0004000), one(0177700), "#b@s", m68000up }, #ifndef MIT_SYNTAX_ONLY {"bsetb", one(0000700), one(0170700), "Dd$s", m68000up }, {"bsetb", one(0004300), one(0177700), "#b$s", m68000up }, {"btstb", one(0000400), one(0170700), "Dd@s", m68000up }, {"btstb", one(0004000), one(0177700), "#b@s", m68000up }, {"bsetl", one(0000700), one(0170700), "Dd$s", m68000up }, {"bsetl", one(0004300), one(0177700), "#b$s", m68000up }, {"btstl", one(0000400), one(0170700), "Dd@s", m68000up }, {"btstl", one(0004000), one(0177700), "#b@s", m68000up }, #endif {"callm", one(0003300), one(0177700), "#b!s", m68020 }, {"cas2l", two(0007374, 0), two(0177777, 0007070), "D3D6D2D5r1r4", m68020up }, /* really a 3 word ins */ {"cas2l", two(0007374, 0), two(0177777, 0007070), "D3D6D2D5R1R4", m68020up }, /* ditto */ {"cas2w", two(0006374, 0), two(0177777, 0007070), "D3D6D2D5r1r4", m68020up }, /* ditto */ {"cas2w", two(0006374, 0), two(0177777, 0007070), "D3D6D2D5R1R4", m68020up }, /* ditto */ {"casb", two(0005300, 0), two(0177700, 0177070), "D3D2~s", m68020up }, {"casl", two(0007300, 0), two(0177700, 0177070), "D3D2~s", m68020up }, {"casw", two(0006300, 0), two(0177700, 0177070), "D3D2~s", m68020up }, #ifndef NO_DEFAULT_SIZES {"casw", two(0006300, 0), two(0177700, 0177070), "D3D2~s", m68020up }, {"cas", two(0006300, 0), two(0177700, 0177070), "D3D2~s", m68020up }, {"cas2", two(0006374, 0), two(0177777, 0007070), "D3D6D2D5r1r4", m68020up }, /* ditto */ {"cas2", two(0006374, 0), two(0177777, 0007070), "D3D6D2D5R1R4", m68020up }, /* ditto */ #endif {"chk2b", two(0000300, 0004000), two(0177700, 07777), "!sR1", m68020up | cpu32 }, {"chk2l", two(0002300, 0004000), two(0177700, 07777), "!sR1", m68020up | cpu32 }, {"chk2w", two(0001300, 0004000), two(0177700, 07777), "!sR1", m68020up | cpu32 }, #ifndef NO_DEFAULT_SIZES {"chk", one(0040600), one(0170700), ";wDd", m68000up }, {"chk", one(0040400), one(0170700), ";lDd", m68000up }, {"chk2", two(0001300, 0004000), two(0177700, 07777), "!sR1", m68020up | cpu32 }, #endif {"chkl", one(0040400), one(0170700), ";lDd", m68000up }, #ifndef MIT_SYNTAX_ONLY {"chkw", two(0001300, 0004000), two(0177700, 07777), "!sR1", m68020up | cpu32 }, #endif {"chkw", one(0040600), one(0170700), ";wDd", m68000up }, #define SCOPE_LINE (0x1 << 3) #define SCOPE_PAGE (0x2 << 3) #define SCOPE_ALL (0x3 << 3) {"cinva", one(0xf400|SCOPE_ALL), one(0xff38), "ce", m68040up }, {"cinvl", one(0xf400|SCOPE_LINE), one(0xff38), "ceas", m68040up }, {"cinvp", one(0xf400|SCOPE_PAGE), one(0xff38), "ceas", m68040up }, {"cpusha", one(0xf420|SCOPE_ALL), one(0xff38), "ce", m68040up }, {"cpushl", one(0xf420|SCOPE_LINE), one(0xff38), "ceas", m68040up }, {"cpushp", one(0xf420|SCOPE_PAGE), one(0xff38), "ceas", m68040up }, #undef SCOPE_LINE #undef SCOPE_PAGE #undef SCOPE_ALL {"clrb", one(0041000), one(0177700), "$s", m68000up }, {"clrl", one(0041200), one(0177700), "$s", m68000up }, {"clrw", one(0041100), one(0177700), "$s", m68000up }, {"cmp2b", two(0000300, 0), two(0177700, 07777), "!sR1", m68020up | cpu32 }, {"cmp2l", two(0002300, 0), two(0177700, 07777), "!sR1", m68020up | cpu32 }, {"cmp2w", two(0001300, 0), two(0177700, 07777), "!sR1", m68020up | cpu32 }, {"cmpal", one(0130700), one(0170700), "*lAd", m68000up }, {"cmpaw", one(0130300), one(0170700), "*wAd", m68000up }, {"cmpib", one(0006000), one(0177700), "#b;b", m68000up }, {"cmpil", one(0006200), one(0177700), "#l;l", m68000up }, {"cmpiw", one(0006100), one(0177700), "#w;w", m68000up }, {"cmpb", one(0006000), one(0177700), "#b;b", m68000up }, /* cmpi written as cmp */ {"cmpb", one(0130000), one(0170700), ";bDd", m68000up }, #ifndef MIT_SYNTAX_ONLY {"cmpb", one(0130410), one(0170770), "+s+d", m68000up }, /* cmpm written as cmp */ #endif {"cmpw", one(0006100), one(0177700), "#w;w", m68000up }, {"cmpw", one(0130100), one(0170700), "*wDd", m68000up }, {"cmpw", one(0130300), one(0170700), "*wAd", m68000up }, /* cmpa written as cmp */ #ifndef MIT_SYNTAX_ONLY {"cmpw", one(0130510), one(0170770), "+s+d", m68000up }, /* cmpm written as cmp */ #endif {"cmpl", one(0006200), one(0177700), "#l;l", m68000up }, {"cmpl", one(0130200), one(0170700), "*lDd", m68000up }, {"cmpl", one(0130700), one(0170700), "*lAd", m68000up }, #ifndef MIT_SYNTAX_ONLY {"cmpl", one(0130610), one(0170770), "+s+d", m68000up }, /* cmpm written as cmp */ #endif {"cmpmb", one(0130410), one(0170770), "+s+d", m68000up }, {"cmpml", one(0130610), one(0170770), "+s+d", m68000up }, {"cmpmw", one(0130510), one(0170770), "+s+d", m68000up }, #ifndef NO_DEFAULT_SIZES {"cmp", one(0006200), one(0177700), "#l;l", m68000up }, {"cmp", one(0130200), one(0170700), "*lDd", m68000up }, {"cmp", one(0130700), one(0170700), "*lAd", m68000up }, {"cmp", one(0130510), one(0170770), "+s+d", m68000up }, /* cmpm written as cmp */ {"cmpi", one(0006200), one(0177700), "#l;l", m68000up }, {"cmp2", two(0001300, 0), two(0177700, 07777), "!sR1", m68020up | cpu32 }, {"cmpm", one(0130510), one(0170770), "+s+d", m68000up }, #endif {"dbcc", one(0052310), one(0177770), "DsBw", m68000up }, {"dbcs", one(0052710), one(0177770), "DsBw", m68000up }, {"dbeq", one(0053710), one(0177770), "DsBw", m68000up }, {"dbf", one(0050710), one(0177770), "DsBw", m68000up }, {"dbge", one(0056310), one(0177770), "DsBw", m68000up }, {"dbgt", one(0057310), one(0177770), "DsBw", m68000up }, {"dbhi", one(0051310), one(0177770), "DsBw", m68000up }, {"dble", one(0057710), one(0177770), "DsBw", m68000up }, {"dbls", one(0051710), one(0177770), "DsBw", m68000up }, {"dblt", one(0056710), one(0177770), "DsBw", m68000up }, {"dbmi", one(0055710), one(0177770), "DsBw", m68000up }, {"dbne", one(0053310), one(0177770), "DsBw", m68000up }, {"dbpl", one(0055310), one(0177770), "DsBw", m68000up }, {"dbra", one(0050710), one(0177770), "DsBw", m68000up }, {"dbt", one(0050310), one(0177770), "DsBw", m68000up }, {"dbvc", one(0054310), one(0177770), "DsBw", m68000up }, {"dbvs", one(0054710), one(0177770), "DsBw", m68000up }, #ifndef MIT_SYNTAX_ONLY {"tdivsl", two(0046100, 0006000), two(0177700, 0107770), ";lD3D1", m68020up | cpu32 }, {"tdivsl", two(0046100, 0004000), two(0177700, 0107770), ";lDD", m68020up | cpu32 }, #endif {"divsl", two(0046100, 0006000), two(0177700, 0107770), ";lD3D1", m68020up | cpu32 }, {"divsl", two(0046100, 0004000), two(0177700, 0107770), ";lDD", m68020up | cpu32 }, {"divsll", two(0046100, 0004000), two(0177700, 0107770), ";lD3D1", m68020up | cpu32 }, {"divsw", one(0100700), one(0170700), ";wDd", m68000up }, {"divs", one(0100700), one(0170700), ";wDd", m68000up }, {"divul", two(0046100, 0002000), two(0177700, 0107770), ";lD3D1", m68020up | cpu32 }, {"divul", two(0046100, 0000000), two(0177700, 0107770), ";lDD", m68020up | cpu32 }, {"divull", two(0046100, 0000000), two(0177700, 0107770), ";lD3D1", m68020up | cpu32 }, {"divuw", one(0100300), one(0170700), ";wDd", m68000up }, {"divu", one(0100300), one(0170700), ";wDd", m68000up }, {"eorb", one(0005000), one(0177700), "#b$s", m68000up }, /* eori written as or */ {"eorb", one(0005074), one(0177777), "#bCs", m68000up }, /* eori to ccr */ {"eorb", one(0130400), one(0170700), "Dd$s", m68000up }, /* register to memory */ {"eorib", one(0005000), one(0177700), "#b$s", m68000up }, {"eorib", one(0005074), one(0177777), "#bCs", m68000up }, /* eori to ccr */ {"eoril", one(0005200), one(0177700), "#l$s", m68000up }, {"eoriw", one(0005100), one(0177700), "#w$s", m68000up }, {"eoriw", one(0005174), one(0177777), "#wSs", m68000up }, /* eori to sr */ {"eorl", one(0005200), one(0177700), "#l$s", m68000up }, {"eorl", one(0130600), one(0170700), "Dd$s", m68000up }, {"eorw", one(0005100), one(0177700), "#w$s", m68000up }, {"eorw", one(0005174), one(0177777), "#wSs", m68000up }, /* eori to sr */ {"eorw", one(0130500), one(0170700), "Dd$s", m68000up }, #ifndef NO_DEFAULT_SIZES {"eor", one(0005074), one(0177777), "#bCs", m68000up }, /* eorb to ccr */ {"eor", one(0005174), one(0177777), "#wSs", m68000up }, /* eori to sr */ {"eori", one(0005074), one(0177777), "#bCs", m68000up }, /* eori to ccr */ {"eori", one(0005174), one(0177777), "#wSs", m68000up }, /* eoriw to sr */ #endif {"exg", one(0140500), one(0170770), "DdDs", m68000up }, {"exg", one(0140510), one(0170770), "AdAs", m68000up }, {"exg", one(0140610), one(0170770), "DdAs", m68000up }, {"exg", one(0140610), one(0170770), "AsDd", m68000up }, {"extw", one(0044200), one(0177770), "Ds", m68000up }, {"extl", one(0044300), one(0177770), "Ds", m68000up }, {"extbl", one(0044700), one(0177770), "Ds", m68020up | cpu32 }, #ifndef MIT_SYNTAX_ONLY {"ext", one(0044200), one(0177770), "Ds", m68000up }, {"extwl", one(0044300), one(0177770), "Ds", m68000up }, {"extbw", one(0044200), one(0177770), "Ds", m68000up }, #endif /* float stuff starts here */ {"fabsb", two(0xF000, 0x5818), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fabsd", two(0xF000, 0x5418), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fabsl", two(0xF000, 0x4018), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fabsp", two(0xF000, 0x4C18), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fabss", two(0xF000, 0x4418), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fabsw", two(0xF000, 0x5018), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fabsx", two(0xF000, 0x0018), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fabsx", two(0xF000, 0x4818), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fabsx", two(0xF000, 0x0018), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fsabsb", two(0xF000, 0x5858), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fsabsd", two(0xF000, 0x5458), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fsabsl", two(0xF000, 0x4058), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fsabsp", two(0xF000, 0x4C58), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fsabss", two(0xF000, 0x4458), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fsabsw", two(0xF000, 0x5058), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fsabsx", two(0xF000, 0x0058), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fsabsx", two(0xF000, 0x4858), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fsabsx", two(0xF000, 0x0058), two(0xF1C0, 0xE07F), "IiFt", m68040up }, {"fdabsb", two(0xF000, 0x585c), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up}, {"fdabsd", two(0xF000, 0x545c), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up}, {"fdabsl", two(0xF000, 0x405c), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up}, {"fdabsp", two(0xF000, 0x4C5c), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up}, {"fdabss", two(0xF000, 0x445c), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up}, {"fdabsw", two(0xF000, 0x505c), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up}, {"fdabsx", two(0xF000, 0x005c), two(0xF1C0, 0xE07F), "IiF8F7", m68040up}, {"fdabsx", two(0xF000, 0x485c), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up}, {"fdabsx", two(0xF000, 0x005c), two(0xF1C0, 0xE07F), "IiFt", m68040up}, {"facosb", two(0xF000, 0x581C), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"facosd", two(0xF000, 0x541C), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"facosl", two(0xF000, 0x401C), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"facosp", two(0xF000, 0x4C1C), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"facoss", two(0xF000, 0x441C), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"facosw", two(0xF000, 0x501C), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"facosx", two(0xF000, 0x001C), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"facosx", two(0xF000, 0x481C), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"facosx", two(0xF000, 0x001C), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"faddb", two(0xF000, 0x5822), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"faddd", two(0xF000, 0x5422), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"faddl", two(0xF000, 0x4022), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"faddp", two(0xF000, 0x4C22), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fadds", two(0xF000, 0x4422), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"faddw", two(0xF000, 0x5022), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"faddx", two(0xF000, 0x0022), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"faddx", two(0xF000, 0x4822), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fsaddb", two(0xF000, 0x5862), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fsaddd", two(0xF000, 0x5462), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fsaddl", two(0xF000, 0x4062), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fsaddp", two(0xF000, 0x4C62), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fsadds", two(0xF000, 0x4462), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fsaddw", two(0xF000, 0x5062), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fsaddx", two(0xF000, 0x0062), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fsaddx", two(0xF000, 0x4862), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fdaddb", two(0xF000, 0x5866), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fdaddd", two(0xF000, 0x5466), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fdaddl", two(0xF000, 0x4066), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fdaddp", two(0xF000, 0x4C66), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fdadds", two(0xF000, 0x4466), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fdaddw", two(0xF000, 0x5066), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fdaddx", two(0xF000, 0x0066), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fdaddx", two(0xF000, 0x4866), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fasinb", two(0xF000, 0x580C), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fasind", two(0xF000, 0x540C), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fasinl", two(0xF000, 0x400C), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fasinp", two(0xF000, 0x4C0C), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fasins", two(0xF000, 0x440C), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fasinw", two(0xF000, 0x500C), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fasinx", two(0xF000, 0x000C), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fasinx", two(0xF000, 0x480C), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fasinx", two(0xF000, 0x000C), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fatanb", two(0xF000, 0x580A), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fatand", two(0xF000, 0x540A), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fatanl", two(0xF000, 0x400A), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fatanp", two(0xF000, 0x4C0A), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fatans", two(0xF000, 0x440A), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fatanw", two(0xF000, 0x500A), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fatanx", two(0xF000, 0x000A), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fatanx", two(0xF000, 0x480A), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fatanx", two(0xF000, 0x000A), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fatanhb", two(0xF000, 0x580D), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fatanhd", two(0xF000, 0x540D), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fatanhl", two(0xF000, 0x400D), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fatanhp", two(0xF000, 0x4C0D), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fatanhs", two(0xF000, 0x440D), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fatanhw", two(0xF000, 0x500D), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fatanhx", two(0xF000, 0x000D), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fatanhx", two(0xF000, 0x480D), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fatanhx", two(0xF000, 0x000D), two(0xF1C0, 0xE07F), "IiFt", mfloat }, /* Fixed-size Float branches */ {"fbeq", one(0xF081), one(0xF1BF), "IdBW", mfloat }, {"fbf", one(0xF080), one(0xF1BF), "IdBW", mfloat }, {"fbge", one(0xF093), one(0xF1BF), "IdBW", mfloat }, {"fbgl", one(0xF096), one(0xF1BF), "IdBW", mfloat }, {"fbgle", one(0xF097), one(0xF1BF), "IdBW", mfloat }, {"fbgt", one(0xF092), one(0xF1BF), "IdBW", mfloat }, {"fble", one(0xF095), one(0xF1BF), "IdBW", mfloat }, {"fblt", one(0xF094), one(0xF1BF), "IdBW", mfloat }, {"fbne", one(0xF08E), one(0xF1BF), "IdBW", mfloat }, #ifndef MOTOROLA_SYNTAX_ONLY {"fbneq", one(0xF08E), one(0xF1BF), "IdBW", mfloat }, #endif {"fbnge", one(0xF09C), one(0xF1BF), "IdBW", mfloat }, {"fbngl", one(0xF099), one(0xF1BF), "IdBW", mfloat }, {"fbngle", one(0xF098), one(0xF1BF), "IdBW", mfloat }, {"fbngt", one(0xF09D), one(0xF1BF), "IdBW", mfloat }, {"fbnle", one(0xF09A), one(0xF1BF), "IdBW", mfloat }, {"fbnlt", one(0xF09B), one(0xF1BF), "IdBW", mfloat }, {"fboge", one(0xF083), one(0xF1BF), "IdBW", mfloat }, {"fbogl", one(0xF086), one(0xF1BF), "IdBW", mfloat }, {"fbogt", one(0xF082), one(0xF1BF), "IdBW", mfloat }, {"fbole", one(0xF085), one(0xF1BF), "IdBW", mfloat }, {"fbolt", one(0xF084), one(0xF1BF), "IdBW", mfloat }, {"fbor", one(0xF087), one(0xF1BF), "IdBW", mfloat }, {"fbseq", one(0xF091), one(0xF1BF), "IdBW", mfloat }, {"fbsf", one(0xF090), one(0xF1BF), "IdBW", mfloat }, {"fbsne", one(0xF09E), one(0xF1BF), "IdBW", mfloat }, #ifndef MOTOROLA_SYNTAX_ONLY {"fbsneq", one(0xF09E), one(0xF1BF), "IdBW", mfloat }, #endif {"fbst", one(0xF09F), one(0xF1BF), "IdBW", mfloat }, {"fbt", one(0xF08F), one(0xF1BF), "IdBW", mfloat }, {"fbueq", one(0xF089), one(0xF1BF), "IdBW", mfloat }, {"fbuge", one(0xF08B), one(0xF1BF), "IdBW", mfloat }, {"fbugt", one(0xF08A), one(0xF1BF), "IdBW", mfloat }, {"fbule", one(0xF08D), one(0xF1BF), "IdBW", mfloat }, {"fbult", one(0xF08C), one(0xF1BF), "IdBW", mfloat }, {"fbun", one(0xF088), one(0xF1BF), "IdBW", mfloat }, /* Float branches -- long (32-bit) displacements */ {"fbeql", one(0xF081), one(0xF1BF), "IdBC", mfloat }, {"fbfl", one(0xF080), one(0xF1BF), "IdBC", mfloat }, {"fbgel", one(0xF093), one(0xF1BF), "IdBC", mfloat }, {"fbgll", one(0xF096), one(0xF1BF), "IdBC", mfloat }, {"fbglel", one(0xF097), one(0xF1BF), "IdBC", mfloat }, {"fbgtl", one(0xF092), one(0xF1BF), "IdBC", mfloat }, {"fblel", one(0xF095), one(0xF1BF), "IdBC", mfloat }, {"fbltl", one(0xF094), one(0xF1BF), "IdBC", mfloat }, {"fbnel", one(0xF08E), one(0xF1BF), "IdBC", mfloat }, {"fbngel", one(0xF09C), one(0xF1BF), "IdBC", mfloat }, {"fbngll", one(0xF099), one(0xF1BF), "IdBC", mfloat }, {"fbnglel", one(0xF098), one(0xF1BF), "IdBC", mfloat }, {"fbngtl", one(0xF09D), one(0xF1BF), "IdBC", mfloat }, {"fbnlel", one(0xF09A), one(0xF1BF), "IdBC", mfloat }, {"fbnltl", one(0xF09B), one(0xF1BF), "IdBC", mfloat }, {"fbogel", one(0xF083), one(0xF1BF), "IdBC", mfloat }, {"fbogll", one(0xF086), one(0xF1BF), "IdBC", mfloat }, {"fbogtl", one(0xF082), one(0xF1BF), "IdBC", mfloat }, {"fbolel", one(0xF085), one(0xF1BF), "IdBC", mfloat }, {"fboltl", one(0xF084), one(0xF1BF), "IdBC", mfloat }, {"fborl", one(0xF087), one(0xF1BF), "IdBC", mfloat }, {"fbseql", one(0xF091), one(0xF1BF), "IdBC", mfloat }, {"fbsfl", one(0xF090), one(0xF1BF), "IdBC", mfloat }, {"fbsnel", one(0xF09E), one(0xF1BF), "IdBC", mfloat }, {"fbstl", one(0xF09F), one(0xF1BF), "IdBC", mfloat }, {"fbtl", one(0xF08F), one(0xF1BF), "IdBC", mfloat }, {"fbueql", one(0xF089), one(0xF1BF), "IdBC", mfloat }, {"fbugel", one(0xF08B), one(0xF1BF), "IdBC", mfloat }, {"fbugtl", one(0xF08A), one(0xF1BF), "IdBC", mfloat }, {"fbulel", one(0xF08D), one(0xF1BF), "IdBC", mfloat }, {"fbultl", one(0xF08C), one(0xF1BF), "IdBC", mfloat }, {"fbunl", one(0xF088), one(0xF1BF), "IdBC", mfloat }, {"fcmpb", two(0xF000, 0x5838), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fcmpd", two(0xF000, 0x5438), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fcmpl", two(0xF000, 0x4038), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fcmpp", two(0xF000, 0x4C38), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fcmps", two(0xF000, 0x4438), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fcmpw", two(0xF000, 0x5038), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fcmpx", two(0xF000, 0x0038), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fcmpx", two(0xF000, 0x4838), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fcosb", two(0xF000, 0x581D), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fcosd", two(0xF000, 0x541D), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fcosl", two(0xF000, 0x401D), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fcosp", two(0xF000, 0x4C1D), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fcoss", two(0xF000, 0x441D), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fcosw", two(0xF000, 0x501D), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fcosx", two(0xF000, 0x001D), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fcosx", two(0xF000, 0x481D), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fcosx", two(0xF000, 0x001D), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fcoshb", two(0xF000, 0x5819), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fcoshd", two(0xF000, 0x5419), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fcoshl", two(0xF000, 0x4019), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fcoshp", two(0xF000, 0x4C19), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fcoshs", two(0xF000, 0x4419), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fcoshw", two(0xF000, 0x5019), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fcoshx", two(0xF000, 0x0019), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fcoshx", two(0xF000, 0x4819), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fcoshx", two(0xF000, 0x0019), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fdbeq", two(0xF048, 0x0001), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbf", two(0xF048, 0x0000), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbge", two(0xF048, 0x0013), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbgl", two(0xF048, 0x0016), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbgle", two(0xF048, 0x0017), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbgt", two(0xF048, 0x0012), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdble", two(0xF048, 0x0015), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdblt", two(0xF048, 0x0014), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbne", two(0xF048, 0x000E), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, #ifndef MOTOROLA_SYNTAX_ONLY {"fdbneq", two(0xF048, 0x000E), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, #endif {"fdbnge", two(0xF048, 0x001C), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbngl", two(0xF048, 0x0019), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbngle", two(0xF048, 0x0018), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbngt", two(0xF048, 0x001D), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbnle", two(0xF048, 0x001A), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbnlt", two(0xF048, 0x001B), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdboge", two(0xF048, 0x0003), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbogl", two(0xF048, 0x0006), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbogt", two(0xF048, 0x0002), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbole", two(0xF048, 0x0005), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbolt", two(0xF048, 0x0004), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbor", two(0xF048, 0x0007), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbseq", two(0xF048, 0x0011), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbsf", two(0xF048, 0x0010), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbsne", two(0xF048, 0x001E), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, #ifndef MOTOROLA_SYNTAX_ONLY {"fdbsneq", two(0xF048, 0x001E), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, #endif {"fdbst", two(0xF048, 0x001F), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbt", two(0xF048, 0x000F), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbueq", two(0xF048, 0x0009), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbuge", two(0xF048, 0x000B), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbugt", two(0xF048, 0x000A), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbule", two(0xF048, 0x000D), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbult", two(0xF048, 0x000C), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdbun", two(0xF048, 0x0008), two(0xF1F8, 0xFFFF), "IiDsBw", mfloat }, {"fdivb", two(0xF000, 0x5820), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fdivd", two(0xF000, 0x5420), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fdivl", two(0xF000, 0x4020), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fdivp", two(0xF000, 0x4C20), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fdivs", two(0xF000, 0x4420), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fdivw", two(0xF000, 0x5020), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fdivx", two(0xF000, 0x0020), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fdivx", two(0xF000, 0x4820), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fsdivb", two(0xF000, 0x5860), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fsdivd", two(0xF000, 0x5460), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fsdivl", two(0xF000, 0x4060), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fsdivp", two(0xF000, 0x4C60), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fsdivs", two(0xF000, 0x4460), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fsdivw", two(0xF000, 0x5060), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fsdivx", two(0xF000, 0x0060), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fsdivx", two(0xF000, 0x4860), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fddivb", two(0xF000, 0x5864), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fddivd", two(0xF000, 0x5464), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fddivl", two(0xF000, 0x4064), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fddivp", two(0xF000, 0x4C64), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fddivs", two(0xF000, 0x4464), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fddivw", two(0xF000, 0x5064), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fddivx", two(0xF000, 0x0064), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fddivx", two(0xF000, 0x4864), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fetoxb", two(0xF000, 0x5810), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fetoxd", two(0xF000, 0x5410), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fetoxl", two(0xF000, 0x4010), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fetoxp", two(0xF000, 0x4C10), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fetoxs", two(0xF000, 0x4410), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fetoxw", two(0xF000, 0x5010), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fetoxx", two(0xF000, 0x0010), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fetoxx", two(0xF000, 0x4810), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fetoxx", two(0xF000, 0x0010), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fetoxm1b", two(0xF000, 0x5808), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fetoxm1d", two(0xF000, 0x5408), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fetoxm1l", two(0xF000, 0x4008), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fetoxm1p", two(0xF000, 0x4C08), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fetoxm1s", two(0xF000, 0x4408), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fetoxm1w", two(0xF000, 0x5008), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fetoxm1x", two(0xF000, 0x0008), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fetoxm1x", two(0xF000, 0x4808), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fetoxm1x", two(0xF000, 0x0008), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fgetexpb", two(0xF000, 0x581E), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fgetexpd", two(0xF000, 0x541E), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fgetexpl", two(0xF000, 0x401E), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fgetexpp", two(0xF000, 0x4C1E), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fgetexps", two(0xF000, 0x441E), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fgetexpw", two(0xF000, 0x501E), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fgetexpx", two(0xF000, 0x001E), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fgetexpx", two(0xF000, 0x481E), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fgetexpx", two(0xF000, 0x001E), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fgetmanb", two(0xF000, 0x581F), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fgetmand", two(0xF000, 0x541F), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fgetmanl", two(0xF000, 0x401F), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fgetmanp", two(0xF000, 0x4C1F), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fgetmans", two(0xF000, 0x441F), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fgetmanw", two(0xF000, 0x501F), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fgetmanx", two(0xF000, 0x001F), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fgetmanx", two(0xF000, 0x481F), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fgetmanx", two(0xF000, 0x001F), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fintb", two(0xF000, 0x5801), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fintd", two(0xF000, 0x5401), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fintl", two(0xF000, 0x4001), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fintp", two(0xF000, 0x4C01), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fints", two(0xF000, 0x4401), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fintw", two(0xF000, 0x5001), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fintx", two(0xF000, 0x0001), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fintx", two(0xF000, 0x4801), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fintx", two(0xF000, 0x0001), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fintrzb", two(0xF000, 0x5803), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fintrzd", two(0xF000, 0x5403), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fintrzl", two(0xF000, 0x4003), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fintrzp", two(0xF000, 0x4C03), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fintrzs", two(0xF000, 0x4403), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fintrzw", two(0xF000, 0x5003), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fintrzx", two(0xF000, 0x0003), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fintrzx", two(0xF000, 0x4803), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fintrzx", two(0xF000, 0x0003), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"flog10b", two(0xF000, 0x5815), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"flog10d", two(0xF000, 0x5415), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"flog10l", two(0xF000, 0x4015), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"flog10p", two(0xF000, 0x4C15), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"flog10s", two(0xF000, 0x4415), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"flog10w", two(0xF000, 0x5015), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"flog10x", two(0xF000, 0x0015), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"flog10x", two(0xF000, 0x4815), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"flog10x", two(0xF000, 0x0015), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"flog2b", two(0xF000, 0x5816), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"flog2d", two(0xF000, 0x5416), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"flog2l", two(0xF000, 0x4016), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"flog2p", two(0xF000, 0x4C16), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"flog2s", two(0xF000, 0x4416), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"flog2w", two(0xF000, 0x5016), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"flog2x", two(0xF000, 0x0016), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"flog2x", two(0xF000, 0x4816), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"flog2x", two(0xF000, 0x0016), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"flognb", two(0xF000, 0x5814), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"flognd", two(0xF000, 0x5414), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"flognl", two(0xF000, 0x4014), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"flognp", two(0xF000, 0x4C14), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"flogns", two(0xF000, 0x4414), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"flognw", two(0xF000, 0x5014), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"flognx", two(0xF000, 0x0014), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"flognx", two(0xF000, 0x4814), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"flognx", two(0xF000, 0x0014), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"flognp1b", two(0xF000, 0x5806), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"flognp1d", two(0xF000, 0x5406), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"flognp1l", two(0xF000, 0x4006), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"flognp1p", two(0xF000, 0x4C06), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"flognp1s", two(0xF000, 0x4406), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"flognp1w", two(0xF000, 0x5006), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"flognp1x", two(0xF000, 0x0006), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"flognp1x", two(0xF000, 0x4806), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"flognp1x", two(0xF000, 0x0006), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fmodb", two(0xF000, 0x5821), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fmodd", two(0xF000, 0x5421), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fmodl", two(0xF000, 0x4021), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fmodp", two(0xF000, 0x4C21), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fmods", two(0xF000, 0x4421), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fmodw", two(0xF000, 0x5021), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fmodx", two(0xF000, 0x0021), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fmodx", two(0xF000, 0x4821), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fmoveb", two(0xF000, 0x5800), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, /* fmove from to fp */ {"fmoveb", two(0xF000, 0x7800), two(0xF1C0, 0xFC7F), "IiF7@b", mfloat }, /* fmove from fp to */ {"fmoved", two(0xF000, 0x5400), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, /* fmove from to fp */ {"fmoved", two(0xF000, 0x7400), two(0xF1C0, 0xFC7F), "IiF7@F", mfloat }, /* fmove from fp to */ {"fmovel", two(0xF000, 0x4000), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, /* fmove from to fp */ {"fmovel", two(0xF000, 0x6000), two(0xF1C0, 0xFC7F), "IiF7@l", mfloat }, /* fmove from fp to */ /* Warning: The addressing modes on these are probably not right: esp, Areg direct is only allowed for FPI */ /* fmove.l from/to system control registers: */ {"fmovel", two(0xF000, 0xA000), two(0xF1C0, 0xE3FF), "Iis8@s", mfloat }, {"fmovel", two(0xF000, 0x8000), two(0xF1C0, 0xE3FF), "Ii*ls8", mfloat }, /* {"fmovel", two(0xF000, 0xA000), two(0xF1C0, 0xE3FF), "Iis8@s", mfloat }, {"fmovel", two(0xF000, 0x8000), two(0xF2C0, 0xE3FF), "Ii*ss8", mfloat }, */ {"fmovep", two(0xF000, 0x4C00), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, /* fmove from to fp */ {"fmovep", two(0xF000, 0x6C00), two(0xF1C0, 0xFC00), "IiF7@pkC", mfloat }, /* fmove.p with k-factors: */ {"fmovep", two(0xF000, 0x7C00), two(0xF1C0, 0xFC0F), "IiF7@pDk", mfloat }, /* fmove.p with k-factors: */ {"fmoves", two(0xF000, 0x4400), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, /* fmove from to fp */ {"fmoves", two(0xF000, 0x6400), two(0xF1C0, 0xFC7F), "IiF7@f", mfloat }, /* fmove from fp to */ {"fmovew", two(0xF000, 0x5000), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, /* fmove from to fp */ {"fmovew", two(0xF000, 0x7000), two(0xF1C0, 0xFC7F), "IiF7@w", mfloat }, /* fmove from fp to */ {"fmovex", two(0xF000, 0x0000), two(0xF1FF, 0xE07F), "IiF8F7", mfloat }, /* fmove from fp () to fp */ {"fmovex", two(0xF000, 0x4800), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, /* fmove from mem () to fp */ {"fmovex", two(0xF000, 0x6800), two(0xF1C0, 0xFC7F), "IiF7@x", mfloat }, /* fmove from fp to */ {"fsmoveb", two(0xF000, 0x5840), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, /* fmove from to fp */ {"fsmoved", two(0xF000, 0x5440), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, /* fmove from to fp */ {"fsmovel", two(0xF000, 0x4040), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, /* fmove from to fp */ {"fsmoves", two(0xF000, 0x4440), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, /* fmove from to fp */ {"fsmovew", two(0xF000, 0x5040), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, /* fmove from to fp */ {"fsmovex", two(0xF000, 0x0040), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, /* fmove from to fp */ {"fsmovex", two(0xF000, 0x4840), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, /* fmove from to fp */ {"fsmovep", two(0xF000, 0x4C40), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, /* fmove from to fp */ {"fdmoveb", two(0xF000, 0x5844), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, /* fmove from to fp */ {"fdmoved", two(0xF000, 0x5444), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, /* fmove from to fp */ {"fdmovel", two(0xF000, 0x4044), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, /* fmove from to fp */ {"fdmoves", two(0xF000, 0x4444), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, /* fmove from to fp */ {"fdmovew", two(0xF000, 0x5044), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, /* fmove from to fp */ {"fdmovex", two(0xF000, 0x0044), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, /* fmove from to fp */ {"fdmovex", two(0xF000, 0x4844), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, /* fmove from to fp */ {"fdmovep", two(0xF000, 0x4C44), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, /* fmove from to fp */ {"fmovecrx", two(0xF000, 0x5C00), two(0xF1FF, 0xFC00), "Ii#CF7", mfloat }, /* fmovecr.x #ccc, FPn */ {"fmovecr", two(0xF000, 0x5C00), two(0xF1FF, 0xFC00), "Ii#CF7", mfloat }, /* Other fmovemx. */ {"fmovemx", two(0xF000, 0xF800), two(0xF1C0, 0xFF8F), "IiDk&s", mfloat }, /* reg to control, static and dynamic: */ {"fmovemx", two(0xF000, 0xD800), two(0xF1C0, 0xFF8F), "Ii&sDk", mfloat }, /* from control to reg, static and dynamic: */ {"fmovemx", two(0xF000, 0xF000), two(0xF1C0, 0xFF00), "Idl3&s", mfloat }, /* to control, static and dynamic: */ {"fmovemx", two(0xF000, 0xF000), two(0xF1C0, 0xFF00), "Id#3&s", mfloat }, /* to control, static and dynamic: */ {"fmovemx", two(0xF000, 0xD000), two(0xF1C0, 0xFF00), "Id&sl3", mfloat }, /* from control, static and dynamic: */ {"fmovemx", two(0xF000, 0xD000), two(0xF1C0, 0xFF00), "Id&s#3", mfloat }, /* from control, static and dynamic: */ {"fmovemx", two(0xF020, 0xE800), two(0xF1F8, 0xFF8F), "IiDk-s", mfloat }, /* reg to autodecrement, static and dynamic */ {"fmovemx", two(0xF020, 0xE000), two(0xF1F8, 0xFF00), "IdL3-s", mfloat }, /* to autodecrement, static and dynamic */ {"fmovemx", two(0xF020, 0xE000), two(0xF1F8, 0xFF00), "Id#3-s", mfloat }, /* to autodecrement, static and dynamic */ {"fmovemx", two(0xF018, 0xD800), two(0xF1F8, 0xFF8F), "Ii+sDk", mfloat }, /* from autoinc to reg, static and dynamic: */ {"fmovemx", two(0xF018, 0xD000), two(0xF1F8, 0xFF00), "Id+sl3", mfloat }, /* from autoincrement, static and dynamic: */ {"fmovemx", two(0xF018, 0xD000), two(0xF1F8, 0xFF00), "Id+s#3", mfloat }, /* from autoincrement, static and dynamic: */ {"fmoveml", two(0xF000, 0xA000), two(0xF1C0, 0xE3FF), "IiL8@s", mfloat }, {"fmoveml", two(0xF000, 0xA000), two(0xF1C0, 0xE3FF), "Ii#8@s", mfloat }, {"fmoveml", two(0xF000, 0xA000), two(0xF1C0, 0xE3FF), "Iis8@s", mfloat }, {"fmoveml", two(0xF000, 0x8000), two(0xF2C0, 0xE3FF), "Ii*sL8", mfloat }, {"fmoveml", two(0xF000, 0x8000), two(0xF1C0, 0xE3FF), "Ii*s#8", mfloat }, {"fmoveml", two(0xF000, 0x8000), two(0xF1C0, 0xE3FF), "Ii*ss8", mfloat }, /* fmovemx with register lists */ {"fmovem", two(0xF020, 0xE000), two(0xF1F8, 0xFF00), "IdL3-s", mfloat }, /* to autodec, static & dynamic */ {"fmovem", two(0xF000, 0xF000), two(0xF1C0, 0xFF00), "Idl3&s", mfloat }, /* to control, static and dynamic */ {"fmovem", two(0xF018, 0xD000), two(0xF1F8, 0xFF00), "Id+sl3", mfloat }, /* from autoinc, static & dynamic */ {"fmovem", two(0xF000, 0xD000), two(0xF1C0, 0xFF00), "Id&sl3", mfloat }, /* from control, static and dynamic */ /* Alternate mnemonics for GNU as and GNU CC */ {"fmovem", two(0xF020, 0xE000), two(0xF1F8, 0xFF00), "Id#3-s", mfloat }, /* to autodecrement, static and dynamic */ {"fmovem", two(0xF020, 0xE800), two(0xF1F8, 0xFF8F), "IiDk-s", mfloat }, /* to autodecrement, static and dynamic */ {"fmovem", two(0xF000, 0xF000), two(0xF1C0, 0xFF00), "Id#3&s", mfloat }, /* to control, static and dynamic: */ {"fmovem", two(0xF000, 0xF800), two(0xF1C0, 0xFF8F), "IiDk&s", mfloat }, /* to control, static and dynamic: */ {"fmovem", two(0xF018, 0xD000), two(0xF1F8, 0xFF00), "Id+s#3", mfloat }, /* from autoincrement, static and dynamic: */ {"fmovem", two(0xF018, 0xD800), two(0xF1F8, 0xFF8F), "Ii+sDk", mfloat }, /* from autoincrement, static and dynamic: */ {"fmovem", two(0xF000, 0xD000), two(0xF1C0, 0xFF00), "Id&s#3", mfloat }, /* from control, static and dynamic: */ {"fmovem", two(0xF000, 0xD800), two(0xF1C0, 0xFF8F), "Ii&sDk", mfloat }, /* from control, static and dynamic: */ /* fmoveml a FP-control register */ {"fmovem", two(0xF000, 0xA000), two(0xF1C0, 0xE3FF), "Iis8@s", mfloat }, {"fmovem", two(0xF000, 0x8000), two(0xF1C0, 0xE3FF), "Ii*ss8", mfloat }, /* fmoveml a FP-control reglist */ {"fmovem", two(0xF000, 0xA000), two(0xF1C0, 0xE3FF), "IiL8@s", mfloat }, {"fmovem", two(0xF000, 0x8000), two(0xF2C0, 0xE3FF), "Ii*sL8", mfloat }, #ifndef MIT_SYNTAX_ONLY {"fmovm", two(0xF020, 0xE000), two(0xF1F8, 0xFF00), "IdL3-s", mfloat }, /* to autodec, static & dynamic */ {"fmovm", two(0xF000, 0xF000), two(0xF1C0, 0xFF00), "Idl3&s", mfloat }, /* to control, static and dynamic */ {"fmovm", two(0xF018, 0xD000), two(0xF1F8, 0xFF00), "Id+sl3", mfloat }, /* from autoinc, static & dynamic */ {"fmovm", two(0xF000, 0xD000), two(0xF1C0, 0xFF00), "Id&sl3", mfloat }, /* from control, static and dynamic */ /* Alternate mnemonics for GNU as and GNU CC */ {"fmovm", two(0xF020, 0xE000), two(0xF1F8, 0xFF00), "Id#3-s", mfloat }, /* to autodecrement, static and dynamic */ {"fmovm", two(0xF020, 0xE800), two(0xF1F8, 0xFF8F), "IiDk-s", mfloat }, /* to autodecrement, static and dynamic */ {"fmovm", two(0xF000, 0xF000), two(0xF1C0, 0xFF00), "Id#3&s", mfloat }, /* to control, static and dynamic: */ {"fmovm", two(0xF000, 0xF800), two(0xF1C0, 0xFF8F), "IiDk&s", mfloat }, /* to control, static and dynamic: */ {"fmovm", two(0xF018, 0xD000), two(0xF1F8, 0xFF00), "Id+s#3", mfloat }, /* from autoincrement, static and dynamic: */ {"fmovm", two(0xF018, 0xD800), two(0xF1F8, 0xFF8F), "Ii+sDk", mfloat }, /* from autoincrement, static and dynamic: */ {"fmovm", two(0xF000, 0xD000), two(0xF1C0, 0xFF00), "Id&s#3", mfloat }, /* from control, static and dynamic: */ {"fmovm", two(0xF000, 0xD800), two(0xF1C0, 0xFF8F), "Ii&sDk", mfloat }, /* from control, static and dynamic: */ /* fmoveml a FP-control register */ {"fmovm", two(0xF000, 0xA000), two(0xF1C0, 0xE3FF), "Iis8@s", mfloat }, {"fmovm", two(0xF000, 0x8000), two(0xF1C0, 0xE3FF), "Ii*ss8", mfloat }, /* fmoveml a FP-control reglist */ {"fmovm", two(0xF000, 0xA000), two(0xF1C0, 0xE3FF), "IiL8@s", mfloat }, {"fmovm", two(0xF000, 0x8000), two(0xF2C0, 0xE3FF), "Ii*sL8", mfloat }, #endif {"fmulb", two(0xF000, 0x5823), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fmuld", two(0xF000, 0x5423), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fmull", two(0xF000, 0x4023), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fmulp", two(0xF000, 0x4C23), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fmuls", two(0xF000, 0x4423), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fmulw", two(0xF000, 0x5023), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fmulx", two(0xF000, 0x0023), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fmulx", two(0xF000, 0x4823), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fsmulb", two(0xF000, 0x5863), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fsmuld", two(0xF000, 0x5463), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fsmull", two(0xF000, 0x4063), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fsmulp", two(0xF000, 0x4C63), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fsmuls", two(0xF000, 0x4463), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fsmulw", two(0xF000, 0x5063), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fsmulx", two(0xF000, 0x0063), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fsmulx", two(0xF000, 0x4863), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fdmulb", two(0xF000, 0x5867), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fdmuld", two(0xF000, 0x5467), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fdmull", two(0xF000, 0x4067), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fdmulp", two(0xF000, 0x4C67), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fdmuls", two(0xF000, 0x4467), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fdmulw", two(0xF000, 0x5067), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fdmulx", two(0xF000, 0x0067), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fdmulx", two(0xF000, 0x4867), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fnegb", two(0xF000, 0x581A), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fnegd", two(0xF000, 0x541A), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fnegl", two(0xF000, 0x401A), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fnegp", two(0xF000, 0x4C1A), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fnegs", two(0xF000, 0x441A), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fnegw", two(0xF000, 0x501A), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fnegx", two(0xF000, 0x001A), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fnegx", two(0xF000, 0x481A), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fnegx", two(0xF000, 0x001A), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fsnegb", two(0xF000, 0x585A), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fsnegd", two(0xF000, 0x545A), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fsnegl", two(0xF000, 0x405A), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fsnegp", two(0xF000, 0x4C5A), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fsnegs", two(0xF000, 0x445A), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fsnegw", two(0xF000, 0x505A), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fsnegx", two(0xF000, 0x005A), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fsnegx", two(0xF000, 0x485A), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fsnegx", two(0xF000, 0x005A), two(0xF1C0, 0xE07F), "IiFt", m68040up }, {"fdnegb", two(0xF000, 0x585E), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fdnegd", two(0xF000, 0x545E), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fdnegl", two(0xF000, 0x405E), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fdnegp", two(0xF000, 0x4C5E), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fdnegs", two(0xF000, 0x445E), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fdnegw", two(0xF000, 0x505E), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fdnegx", two(0xF000, 0x005E), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fdnegx", two(0xF000, 0x485E), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fdnegx", two(0xF000, 0x005E), two(0xF1C0, 0xE07F), "IiFt", m68040up }, {"fnop", two(0xF280, 0x0000), two(0xFFFF, 0xFFFF), "Ii", mfloat }, {"fremb", two(0xF000, 0x5825), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fremd", two(0xF000, 0x5425), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"freml", two(0xF000, 0x4025), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fremp", two(0xF000, 0x4C25), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"frems", two(0xF000, 0x4425), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fremw", two(0xF000, 0x5025), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fremx", two(0xF000, 0x0025), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fremx", two(0xF000, 0x4825), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"frestore", one(0xF140), one(0xF1C0), "Id&s", mfloat }, {"frestore", one(0xF158), one(0xF1F8), "Id+s", mfloat }, {"fsave", one(0xF100), one(0xF1C0), "Id&s", mfloat }, {"fsave", one(0xF120), one(0xF1F8), "Id-s", mfloat }, {"fscaleb", two(0xF000, 0x5826), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fscaled", two(0xF000, 0x5426), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fscalel", two(0xF000, 0x4026), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fscalep", two(0xF000, 0x4C26), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fscales", two(0xF000, 0x4426), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fscalew", two(0xF000, 0x5026), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fscalex", two(0xF000, 0x0026), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fscalex", two(0xF000, 0x4826), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, /* $ is necessary to prevent the assembler from using PC-relative. If @ were used, "label: fseq label" could produce "ftrapeq", because "label" became "pc@label". */ {"fseq", two(0xF040, 0x0001), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsf", two(0xF040, 0x0000), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsge", two(0xF040, 0x0013), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsgl", two(0xF040, 0x0016), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsgle", two(0xF040, 0x0017), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsgt", two(0xF040, 0x0012), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsle", two(0xF040, 0x0015), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fslt", two(0xF040, 0x0014), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsne", two(0xF040, 0x000E), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, #ifndef MOTOROLA_SYNTAX_ONLY {"fsneq", two(0xF040, 0x000E), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, #endif {"fsnge", two(0xF040, 0x001C), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsngl", two(0xF040, 0x0019), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsngle", two(0xF040, 0x0018), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsngt", two(0xF040, 0x001D), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsnle", two(0xF040, 0x001A), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsnlt", two(0xF040, 0x001B), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsoge", two(0xF040, 0x0003), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsogl", two(0xF040, 0x0006), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsogt", two(0xF040, 0x0002), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsole", two(0xF040, 0x0005), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsolt", two(0xF040, 0x0004), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsor", two(0xF040, 0x0007), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsseq", two(0xF040, 0x0011), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fssf", two(0xF040, 0x0010), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fssne", two(0xF040, 0x001E), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, #ifndef MOTOROLA_SYNTAX_ONLY {"fssneq", two(0xF040, 0x001E), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, #endif {"fsst", two(0xF040, 0x001F), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fst", two(0xF040, 0x000F), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsueq", two(0xF040, 0x0009), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsuge", two(0xF040, 0x000B), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsugt", two(0xF040, 0x000A), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsule", two(0xF040, 0x000D), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsult", two(0xF040, 0x000C), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsun", two(0xF040, 0x0008), two(0xF1C0, 0xFFFF), "Ii$s", mfloat }, {"fsgldivb", two(0xF000, 0x5824), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fsgldivd", two(0xF000, 0x5424), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fsgldivl", two(0xF000, 0x4024), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fsgldivp", two(0xF000, 0x4C24), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fsgldivs", two(0xF000, 0x4424), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fsgldivw", two(0xF000, 0x5024), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fsgldivx", two(0xF000, 0x0024), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fsgldivx", two(0xF000, 0x4824), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fsgldivx", two(0xF000, 0x0024), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fsglmulb", two(0xF000, 0x5827), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fsglmuld", two(0xF000, 0x5427), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fsglmull", two(0xF000, 0x4027), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fsglmulp", two(0xF000, 0x4C27), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fsglmuls", two(0xF000, 0x4427), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fsglmulw", two(0xF000, 0x5027), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fsglmulx", two(0xF000, 0x0027), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fsglmulx", two(0xF000, 0x4827), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fsglmulx", two(0xF000, 0x0027), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fsinb", two(0xF000, 0x580E), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fsind", two(0xF000, 0x540E), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fsinl", two(0xF000, 0x400E), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fsinp", two(0xF000, 0x4C0E), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fsins", two(0xF000, 0x440E), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fsinw", two(0xF000, 0x500E), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fsinx", two(0xF000, 0x000E), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fsinx", two(0xF000, 0x480E), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fsinx", two(0xF000, 0x000E), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fsinhb", two(0xF000, 0x5802), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fsinhd", two(0xF000, 0x5402), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fsinhl", two(0xF000, 0x4002), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fsinhp", two(0xF000, 0x4C02), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fsinhs", two(0xF000, 0x4402), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fsinhw", two(0xF000, 0x5002), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fsinhx", two(0xF000, 0x0002), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fsinhx", two(0xF000, 0x4802), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fsinhx", two(0xF000, 0x0002), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fsincosb", two(0xF000, 0x5830), two(0xF1C0, 0xFC78), "Ii;bF3F7", mfloat }, {"fsincosd", two(0xF000, 0x5430), two(0xF1C0, 0xFC78), "Ii;FF3F7", mfloat }, {"fsincosl", two(0xF000, 0x4030), two(0xF1C0, 0xFC78), "Ii;lF3F7", mfloat }, /* GCC has trouble initializing such a large structure -- it's exponential or something in the size. So break it in half. */ BREAK_UP_BIG_DECL {"fsincosp", two(0xF000, 0x4C30), two(0xF1C0, 0xFC78), "Ii;pF3F7", mfloat }, {"fsincoss", two(0xF000, 0x4430), two(0xF1C0, 0xFC78), "Ii;fF3F7", mfloat }, {"fsincosw", two(0xF000, 0x5030), two(0xF1C0, 0xFC78), "Ii;wF3F7", mfloat }, {"fsincosx", two(0xF000, 0x0030), two(0xF1C0, 0xE078), "IiF8F3F7", mfloat }, {"fsincosx", two(0xF000, 0x4830), two(0xF1C0, 0xFC78), "Ii;xF3F7", mfloat }, {"fsqrtb", two(0xF000, 0x5804), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fsqrtd", two(0xF000, 0x5404), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fsqrtl", two(0xF000, 0x4004), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fsqrtp", two(0xF000, 0x4C04), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fsqrts", two(0xF000, 0x4404), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fsqrtw", two(0xF000, 0x5004), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fsqrtx", two(0xF000, 0x0004), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fsqrtx", two(0xF000, 0x4804), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fsqrtx", two(0xF000, 0x0004), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fssqrtb", two(0xF000, 0x5841), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fssqrtd", two(0xF000, 0x5441), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fssqrtl", two(0xF000, 0x4041), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fssqrtp", two(0xF000, 0x4C41), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fssqrts", two(0xF000, 0x4441), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fssqrtw", two(0xF000, 0x5041), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fssqrtx", two(0xF000, 0x0041), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fssqrtx", two(0xF000, 0x4841), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fssqrtx", two(0xF000, 0x0041), two(0xF1C0, 0xE07F), "IiFt", m68040up }, {"fdsqrtb", two(0xF000, 0x5845), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fdsqrtd", two(0xF000, 0x5445), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fdsqrtl", two(0xF000, 0x4045), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fdsqrtp", two(0xF000, 0x4C45), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fdsqrts", two(0xF000, 0x4445), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fdsqrtw", two(0xF000, 0x5045), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fdsqrtx", two(0xF000, 0x0045), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fdsqrtx", two(0xF000, 0x4845), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fdsqrtx", two(0xF000, 0x0045), two(0xF1C0, 0xE07F), "IiFt", m68040up }, {"fsubb", two(0xF000, 0x5828), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"fsubd", two(0xF000, 0x5428), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"fsubl", two(0xF000, 0x4028), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"fsubp", two(0xF000, 0x4C28), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"fsubs", two(0xF000, 0x4428), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"fsubw", two(0xF000, 0x5028), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"fsubx", two(0xF000, 0x0028), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"fsubx", two(0xF000, 0x4828), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"fsubx", two(0xF000, 0x0028), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"fssubb", two(0xF000, 0x5868), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fssubd", two(0xF000, 0x5468), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fssubl", two(0xF000, 0x4068), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fssubp", two(0xF000, 0x4C68), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fssubs", two(0xF000, 0x4468), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fssubw", two(0xF000, 0x5068), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fssubx", two(0xF000, 0x0068), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fssubx", two(0xF000, 0x4868), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fssubx", two(0xF000, 0x0068), two(0xF1C0, 0xE07F), "IiFt", m68040up }, {"fdsubb", two(0xF000, 0x586c), two(0xF1C0, 0xFC7F), "Ii;bF7", m68040up }, {"fdsubd", two(0xF000, 0x546c), two(0xF1C0, 0xFC7F), "Ii;FF7", m68040up }, {"fdsubl", two(0xF000, 0x406c), two(0xF1C0, 0xFC7F), "Ii;lF7", m68040up }, {"fdsubp", two(0xF000, 0x4C6c), two(0xF1C0, 0xFC7F), "Ii;pF7", m68040up }, {"fdsubs", two(0xF000, 0x446c), two(0xF1C0, 0xFC7F), "Ii;fF7", m68040up }, {"fdsubw", two(0xF000, 0x506c), two(0xF1C0, 0xFC7F), "Ii;wF7", m68040up }, {"fdsubx", two(0xF000, 0x006c), two(0xF1C0, 0xE07F), "IiF8F7", m68040up }, {"fdsubx", two(0xF000, 0x486c), two(0xF1C0, 0xFC7F), "Ii;xF7", m68040up }, {"fdsubx", two(0xF000, 0x006c), two(0xF1C0, 0xE07F), "IiFt", m68040up }, {"ftanb", two(0xF000, 0x580F), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"ftand", two(0xF000, 0x540F), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"ftanl", two(0xF000, 0x400F), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"ftanp", two(0xF000, 0x4C0F), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"ftans", two(0xF000, 0x440F), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"ftanw", two(0xF000, 0x500F), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"ftanx", two(0xF000, 0x000F), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"ftanx", two(0xF000, 0x480F), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"ftanx", two(0xF000, 0x000F), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"ftanhb", two(0xF000, 0x5809), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"ftanhd", two(0xF000, 0x5409), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"ftanhl", two(0xF000, 0x4009), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"ftanhp", two(0xF000, 0x4C09), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"ftanhs", two(0xF000, 0x4409), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"ftanhw", two(0xF000, 0x5009), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"ftanhx", two(0xF000, 0x0009), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"ftanhx", two(0xF000, 0x4809), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"ftanhx", two(0xF000, 0x0009), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"ftentoxb", two(0xF000, 0x5812), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"ftentoxd", two(0xF000, 0x5412), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"ftentoxl", two(0xF000, 0x4012), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"ftentoxp", two(0xF000, 0x4C12), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"ftentoxs", two(0xF000, 0x4412), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"ftentoxw", two(0xF000, 0x5012), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"ftentoxx", two(0xF000, 0x0012), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"ftentoxx", two(0xF000, 0x4812), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"ftentoxx", two(0xF000, 0x0012), two(0xF1C0, 0xE07F), "IiFt", mfloat }, {"ftrapeq", two(0xF07C, 0x0001), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapf", two(0xF07C, 0x0000), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapge", two(0xF07C, 0x0013), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapgl", two(0xF07C, 0x0016), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapgle", two(0xF07C, 0x0017), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapgt", two(0xF07C, 0x0012), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftraple", two(0xF07C, 0x0015), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftraplt", two(0xF07C, 0x0014), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapne", two(0xF07C, 0x000E), two(0xF1FF, 0xFFFF), "Ii", mfloat }, #ifndef MOTOROLA_SYNTAX {"ftrapneq", two(0xF07C, 0x000E), two(0xF1FF, 0xFFFF), "Ii", mfloat }, #endif {"ftrapnge", two(0xF07C, 0x001C), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapngl", two(0xF07C, 0x0019), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapngle", two(0xF07C, 0x0018), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapngt", two(0xF07C, 0x001D), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapnle", two(0xF07C, 0x001A), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapnlt", two(0xF07C, 0x001B), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapoge", two(0xF07C, 0x0003), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapogl", two(0xF07C, 0x0006), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapogt", two(0xF07C, 0x0002), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapole", two(0xF07C, 0x0005), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapolt", two(0xF07C, 0x0004), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapor", two(0xF07C, 0x0007), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapseq", two(0xF07C, 0x0011), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapsf", two(0xF07C, 0x0010), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapsne", two(0xF07C, 0x001E), two(0xF1FF, 0xFFFF), "Ii", mfloat }, #ifndef MOTOROLA_SYNTAX_ONLY {"ftrapsneq", two(0xF07C, 0x001E), two(0xF1FF, 0xFFFF), "Ii", mfloat }, #endif {"ftrapst", two(0xF07C, 0x001F), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapt", two(0xF07C, 0x000F), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapueq", two(0xF07C, 0x0009), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapuge", two(0xF07C, 0x000B), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapugt", two(0xF07C, 0x000A), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapule", two(0xF07C, 0x000D), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapult", two(0xF07C, 0x000C), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapun", two(0xF07C, 0x0008), two(0xF1FF, 0xFFFF), "Ii", mfloat }, {"ftrapeqw", two(0xF07A, 0x0001), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapfw", two(0xF07A, 0x0000), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapgew", two(0xF07A, 0x0013), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapglw", two(0xF07A, 0x0016), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapglew", two(0xF07A, 0x0017), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapgtw", two(0xF07A, 0x0012), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftraplew", two(0xF07A, 0x0015), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapltw", two(0xF07A, 0x0014), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapnew", two(0xF07A, 0x000E), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapngew", two(0xF07A, 0x001C), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapnglw", two(0xF07A, 0x0019), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapnglew", two(0xF07A, 0x0018), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapngtw", two(0xF07A, 0x001D), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapnlew", two(0xF07A, 0x001A), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapnltw", two(0xF07A, 0x001B), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapogew", two(0xF07A, 0x0003), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapoglw", two(0xF07A, 0x0006), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapogtw", two(0xF07A, 0x0002), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapolew", two(0xF07A, 0x0005), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapoltw", two(0xF07A, 0x0004), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftraporw", two(0xF07A, 0x0007), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapseqw", two(0xF07A, 0x0011), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapsfw", two(0xF07A, 0x0010), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapsnew", two(0xF07A, 0x001E), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapstw", two(0xF07A, 0x001F), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftraptw", two(0xF07A, 0x000F), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapueqw", two(0xF07A, 0x0009), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapugew", two(0xF07A, 0x000B), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapugtw", two(0xF07A, 0x000A), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapulew", two(0xF07A, 0x000D), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapultw", two(0xF07A, 0x000C), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapunw", two(0xF07A, 0x0008), two(0xF1FF, 0xFFFF), "Ii^w", mfloat }, {"ftrapeql", two(0xF07B, 0x0001), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapfl", two(0xF07B, 0x0000), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapgel", two(0xF07B, 0x0013), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapgll", two(0xF07B, 0x0016), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapglel", two(0xF07B, 0x0017), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapgtl", two(0xF07B, 0x0012), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftraplel", two(0xF07B, 0x0015), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapltl", two(0xF07B, 0x0014), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapnel", two(0xF07B, 0x000E), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapngel", two(0xF07B, 0x001C), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapngll", two(0xF07B, 0x0019), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapnglel", two(0xF07B, 0x0018), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapngtl", two(0xF07B, 0x001D), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapnlel", two(0xF07B, 0x001A), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapnltl", two(0xF07B, 0x001B), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapogel", two(0xF07B, 0x0003), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapogll", two(0xF07B, 0x0006), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapogtl", two(0xF07B, 0x0002), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapolel", two(0xF07B, 0x0005), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapoltl", two(0xF07B, 0x0004), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftraporl", two(0xF07B, 0x0007), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapseql", two(0xF07B, 0x0011), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapsfl", two(0xF07B, 0x0010), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapsnel", two(0xF07B, 0x001E), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapstl", two(0xF07B, 0x001F), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftraptl", two(0xF07B, 0x000F), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapueql", two(0xF07B, 0x0009), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapugel", two(0xF07B, 0x000B), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapugtl", two(0xF07B, 0x000A), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapulel", two(0xF07B, 0x000D), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapultl", two(0xF07B, 0x000C), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftrapunl", two(0xF07B, 0x0008), two(0xF1FF, 0xFFFF), "Ii^l", mfloat }, {"ftstb", two(0xF000, 0x583A), two(0xF1C0, 0xFC7F), "Ii;b", mfloat }, {"ftstd", two(0xF000, 0x543A), two(0xF1C0, 0xFC7F), "Ii;F", mfloat }, {"ftstl", two(0xF000, 0x403A), two(0xF1C0, 0xFC7F), "Ii;l", mfloat }, {"ftstp", two(0xF000, 0x4C3A), two(0xF1C0, 0xFC7F), "Ii;p", mfloat }, {"ftsts", two(0xF000, 0x443A), two(0xF1C0, 0xFC7F), "Ii;f", mfloat }, {"ftstw", two(0xF000, 0x503A), two(0xF1C0, 0xFC7F), "Ii;w", mfloat }, {"ftstx", two(0xF000, 0x003A), two(0xF1C0, 0xE07F), "IiF8", mfloat }, {"ftstx", two(0xF000, 0x483A), two(0xF1C0, 0xFC7F), "Ii;x", mfloat }, {"ftwotoxb", two(0xF000, 0x5811), two(0xF1C0, 0xFC7F), "Ii;bF7", mfloat }, {"ftwotoxd", two(0xF000, 0x5411), two(0xF1C0, 0xFC7F), "Ii;FF7", mfloat }, {"ftwotoxl", two(0xF000, 0x4011), two(0xF1C0, 0xFC7F), "Ii;lF7", mfloat }, {"ftwotoxp", two(0xF000, 0x4C11), two(0xF1C0, 0xFC7F), "Ii;pF7", mfloat }, {"ftwotoxs", two(0xF000, 0x4411), two(0xF1C0, 0xFC7F), "Ii;fF7", mfloat }, {"ftwotoxw", two(0xF000, 0x5011), two(0xF1C0, 0xFC7F), "Ii;wF7", mfloat }, {"ftwotoxx", two(0xF000, 0x0011), two(0xF1C0, 0xE07F), "IiF8F7", mfloat }, {"ftwotoxx", two(0xF000, 0x4811), two(0xF1C0, 0xFC7F), "Ii;xF7", mfloat }, {"ftwotoxx", two(0xF000, 0x0011), two(0xF1C0, 0xE07F), "IiFt", mfloat }, /* Variable-sized float branches */ {"fjeq", one(0xF081), one(0xF1FF), "IdBc", mfloat }, {"fjf", one(0xF080), one(0xF1FF), "IdBc", mfloat }, {"fjge", one(0xF093), one(0xF1FF), "IdBc", mfloat }, {"fjgl", one(0xF096), one(0xF1FF), "IdBc", mfloat }, {"fjgle", one(0xF097), one(0xF1FF), "IdBc", mfloat }, {"fjgt", one(0xF092), one(0xF1FF), "IdBc", mfloat }, {"fjle", one(0xF095), one(0xF1FF), "IdBc", mfloat }, {"fjlt", one(0xF094), one(0xF1FF), "IdBc", mfloat }, {"fjne", one(0xF08E), one(0xF1FF), "IdBc", mfloat }, #ifndef MOTOROLA_SYNTAX_ONLY {"fjneq", one(0xF08E), one(0xF1FF), "IdBc", mfloat }, #endif {"fjnge", one(0xF09C), one(0xF1FF), "IdBc", mfloat }, {"fjngl", one(0xF099), one(0xF1FF), "IdBc", mfloat }, {"fjngle", one(0xF098), one(0xF1FF), "IdBc", mfloat }, {"fjngt", one(0xF09D), one(0xF1FF), "IdBc", mfloat }, {"fjnle", one(0xF09A), one(0xF1FF), "IdBc", mfloat }, {"fjnlt", one(0xF09B), one(0xF1FF), "IdBc", mfloat }, {"fjoge", one(0xF083), one(0xF1FF), "IdBc", mfloat }, {"fjogl", one(0xF086), one(0xF1FF), "IdBc", mfloat }, {"fjogt", one(0xF082), one(0xF1FF), "IdBc", mfloat }, {"fjole", one(0xF085), one(0xF1FF), "IdBc", mfloat }, {"fjolt", one(0xF084), one(0xF1FF), "IdBc", mfloat }, {"fjor", one(0xF087), one(0xF1FF), "IdBc", mfloat }, {"fjseq", one(0xF091), one(0xF1FF), "IdBc", mfloat }, {"fjsf", one(0xF090), one(0xF1FF), "IdBc", mfloat }, {"fjsne", one(0xF09E), one(0xF1FF), "IdBc", mfloat }, #ifndef MOTOROLA_SYNTAX_ONLY {"fjsneq", one(0xF09E), one(0xF1FF), "IdBc", mfloat }, #endif {"fjst", one(0xF09F), one(0xF1FF), "IdBc", mfloat }, {"fjt", one(0xF08F), one(0xF1FF), "IdBc", mfloat }, {"fjueq", one(0xF089), one(0xF1FF), "IdBc", mfloat }, {"fjuge", one(0xF08B), one(0xF1FF), "IdBc", mfloat }, {"fjugt", one(0xF08A), one(0xF1FF), "IdBc", mfloat }, {"fjule", one(0xF08D), one(0xF1FF), "IdBc", mfloat }, {"fjult", one(0xF08C), one(0xF1FF), "IdBc", mfloat }, {"fjun", one(0xF088), one(0xF1FF), "IdBc", mfloat }, /* float stuff ends here */ {"illegal", one(0045374), one(0177777), "", m68000up }, #ifndef MIT_SYNTAX_ONLY {"jmps", one(0047300), one(0177700), "!s", m68000up }, {"jmpl", one(0047300), one(0177700), "!s", m68000up }, #endif {"jmp", one(0047300), one(0177700), "!s", m68000up }, {"jsr", one(0047200), one(0177700), "!s", m68000up }, {"lea", one(0040700), one(0170700), "!sAd", m68000up }, #ifndef MIT_SYNTAX_ONLY {"leal", one(0040700), one(0170700), "!sAd", m68000up }, /* allow lea as leal */ #endif {"lpstop", two(0174000, 0000700), two(0177777, 0177777), "", cpu32 | m68060 }, {"linkw", one(0047120), one(0177770), "As#w", m68000up }, {"linkl", one(0044010), one(0177770), "As#l", m68020up | cpu32 }, {"link", one(0047120), one(0177770), "As#w", m68000up }, {"link", one(0044010), one(0177770), "As#l", m68020up | cpu32 }, {"lslb", one(0160410), one(0170770), "QdDs", m68000up }, /* lsrb #Q, Ds */ {"lslb", one(0160450), one(0170770), "DdDs", m68000up }, /* lsrb Dd, Ds */ {"lslw", one(0160510), one(0170770), "QdDs", m68000up }, /* lsrb #Q, Ds */ {"lslw", one(0160550), one(0170770), "DdDs", m68000up }, /* lsrb Dd, Ds */ {"lslw", one(0161700), one(0177700), "~s", m68000up }, /* Shift memory */ {"lsll", one(0160610), one(0170770), "QdDs", m68000up }, /* lsrb #Q, Ds */ {"lsll", one(0160650), one(0170770), "DdDs", m68000up }, /* lsrb Dd, Ds */ {"lsrb", one(0160010), one(0170770), "QdDs", m68000up }, /* lsrb #Q, Ds */ {"lsrb", one(0160050), one(0170770), "DdDs", m68000up }, /* lsrb Dd, Ds */ {"lsrl", one(0160210), one(0170770), "QdDs", m68000up }, /* lsrb #Q, Ds */ {"lsrl", one(0160250), one(0170770), "DdDs", m68000up }, /* lsrb #Q, Ds */ {"lsrw", one(0160110), one(0170770), "QdDs", m68000up }, /* lsrb #Q, Ds */ {"lsrw", one(0160150), one(0170770), "DdDs", m68000up }, /* lsrb #Q, Ds */ {"lsrw", one(0161300), one(0177700), "~s", m68000up }, /* Shift memory */ {"moveal", one(0020100), one(0170700), "*lAd", m68000up }, {"moveaw", one(0030100), one(0170700), "*wAd", m68000up }, {"moveb", one(0010000), one(0170000), ";b$d", m68000up }, /* move */ {"movel", one(0070000), one(0170400), "MsDd", m68000up, F_ALIAS }, /* moveq written as move */ {"movel", one(0020000), one(0170000), "*l$d", m68000up }, {"movel", one(0020100), one(0170700), "*lAd", m68000up }, {"movel", one(0047140), one(0177770), "AsUd", m68000up }, /* move to USP */ {"movel", one(0047150), one(0177770), "UdAs", m68000up }, /* move from USP */ {"movec", one(0047173), one(0177777), "R1Jj", m68010up }, {"movec", one(0047173), one(0177777), "R1#j", m68010up }, {"movec", one(0047172), one(0177777), "JjR1", m68010up }, {"movec", one(0047172), one(0177777), "#jR1", m68010up }, /* JF added these next four for the assembler */ {"moveml", one(0044300), one(0177700), "Lw&s", m68000up }, /* movem reg to mem. */ {"moveml", one(0044340), one(0177770), "lw-s", m68000up }, /* movem reg to autodecrement. */ {"moveml", one(0046300), one(0177700), "!sLw", m68000up }, /* movem mem to reg. */ {"moveml", one(0046330), one(0177770), "+sLw", m68000up }, /* movem autoinc to reg. */ {"moveml", one(0044300), one(0177700), "#w&s", m68000up }, /* movem reg to mem. */ {"moveml", one(0044340), one(0177770), "#w-s", m68000up }, /* movem reg to autodecrement. */ {"moveml", one(0046300), one(0177700), "!s#w", m68000up }, /* movem mem to reg. */ {"moveml", one(0046330), one(0177770), "+s#w", m68000up }, /* movem autoinc to reg. */ /* JF added these next four for the assembler */ {"movemw", one(0044200), one(0177700), "Lw&s", m68000up }, /* movem reg to mem. */ {"movemw", one(0044240), one(0177770), "lw-s", m68000up }, /* movem reg to autodecrement. */ {"movemw", one(0046200), one(0177700), "!sLw", m68000up }, /* movem mem to reg. */ {"movemw", one(0046230), one(0177770), "+sLw", m68000up }, /* movem autoinc to reg. */ {"movemw", one(0044200), one(0177700), "#w&s", m68000up }, /* movem reg to mem. */ {"movemw", one(0044240), one(0177770), "#w-s", m68000up }, /* movem reg to autodecrement. */ {"movemw", one(0046200), one(0177700), "!s#w", m68000up }, /* movem mem to reg. */ {"movemw", one(0046230), one(0177770), "+s#w", m68000up }, /* movem autoinc to reg. */ #ifndef NO_DEFAULT_SIZES {"movem", one(0044200), one(0177700), "Lw&s", m68000up }, /* movem reg to mem. */ {"movem", one(0044240), one(0177770), "lw-s", m68000up }, /* movem reg to autodecrement. */ {"movem", one(0046200), one(0177700), "!sLw", m68000up }, /* movem mem to reg. */ {"movem", one(0046230), one(0177770), "+sLw", m68000up }, /* movem autoinc to reg. */ {"movem", one(0044200), one(0177700), "#w&s", m68000up }, /* movem reg to mem. */ {"movem", one(0044240), one(0177770), "#w-s", m68000up }, /* movem reg to autodecrement. */ {"movem", one(0046200), one(0177700), "!s#w", m68000up }, /* movem mem to reg. */ {"movem", one(0046230), one(0177770), "+s#w", m68000up }, /* movem autoinc to reg. */ #endif {"movepl", one(0000510), one(0170770), "dsDd", m68000up }, /* memory to register */ {"movepl", one(0000710), one(0170770), "Ddds", m68000up }, /* register to memory */ {"movepw", one(0000410), one(0170770), "dsDd", m68000up }, /* memory to register */ {"movepw", one(0000610), one(0170770), "Ddds", m68000up }, /* register to memory */ #ifndef NO_DEFAULT_SIZES {"movep", one(0000410), one(0170770), "dsDd", m68000up }, /* memory to register */ {"movep", one(0000610), one(0170770), "Ddds", m68000up }, /* register to memory */ #endif {"moveq", one(0070000), one(0170400), "MsDd", m68000up }, #ifndef MIT_SYNTAX_ONLY {"moveq", one(0020000), one(0170000), "*l$d", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ {"moveq", one(0020100), one(0170700), "*lAd", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ {"moveq", one(0047140), one(0177770), "AsUd", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ {"moveq", one(0047150), one(0177770), "UdAs", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ #endif {"movew", one(0030000), one(0170000), "*w$d", m68000up }, {"movew", one(0030100), one(0170700), "*wAd", m68000up }, /* movea, written as move */ {"movew", one(0040300), one(0177700), "Ss$s", m68000up }, /* Move from sr */ {"movew", one(0041300), one(0177700), "Cs$s", m68010up }, /* Move from ccr */ {"movew", one(0042300), one(0177700), ";wCd", m68000up }, /* move to ccr */ {"movew", one(0043300), one(0177700), ";wSd", m68000up }, /* move to sr */ {"movesb", two(0007000, 0), two(0177700, 07777), "~sR1", m68010up }, /* moves from memory */ {"movesb", two(0007000, 04000), two(0177700, 07777), "R1~s", m68010up }, /* moves to memory */ {"movesl", two(0007200, 0), two(0177700, 07777), "~sR1", m68010up }, /* moves from memory */ {"movesl", two(0007200, 04000), two(0177700, 07777), "R1~s", m68010up }, /* moves to memory */ {"movesw", two(0007100, 0), two(0177700, 07777), "~sR1", m68010up }, /* moves from memory */ {"movesw", two(0007100, 04000), two(0177700, 07777), "R1~s", m68010up }, /* moves to memory */ {"move16", two(0xf620, 0x8000), two(0xfff8, 0x8fff), "+s+1", m68040up }, {"move16", one(0xf600), one(0xfff8), "+s_L", m68040up }, {"move16", one(0xf608), one(0xfff8), "_L+s", m68040up }, {"move16", one(0xf610), one(0xfff8), "as_L", m68040up }, {"move16", one(0xf618), one(0xfff8), "_Las", m68040up }, {"mulsl", two(0046000, 004000), two(0177700, 0107770), ";lD1", m68020up | cpu32 }, {"mulsl", two(0046000, 006000), two(0177700, 0107770), ";lD3D1", m68020up | cpu32 }, {"mulsw", one(0140700), one(0170700), ";wDd", m68000up }, {"muls", one(0140700), one(0170700), ";wDd", m68000up }, {"mulul", two(0046000, 000000), two(0177700, 0107770), ";lD1", m68020up | cpu32 }, {"mulul", two(0046000, 002000), two(0177700, 0107770), ";lD3D1", m68020up | cpu32 }, {"muluw", one(0140300), one(0170700), ";wDd", m68000up }, {"mulu", one(0140300), one(0170700), ";wDd", m68000up }, {"nbcd", one(0044000), one(0177700), "$s", m68000up }, {"negb", one(0042000), one(0177700), "$s", m68000up }, {"negl", one(0042200), one(0177700), "$s", m68000up }, {"negw", one(0042100), one(0177700), "$s", m68000up }, #ifndef NO_DEFAULT_SIZES {"neg", one(0042200), one(0177700), "$s", m68000up }, #endif {"negxb", one(0040000), one(0177700), "$s", m68000up }, {"negxl", one(0040200), one(0177700), "$s", m68000up }, {"negxw", one(0040100), one(0177700), "$s", m68000up }, #ifndef NO_DEFAULT_SIZES {"negx", one(0040200), one(0177700), "$s", m68000up }, #endif {"nop", one(0047161), one(0177777), "", m68000up }, {"notb", one(0043000), one(0177700), "$s", m68000up }, {"notl", one(0043200), one(0177700), "$s", m68000up }, {"notw", one(0043100), one(0177700), "$s", m68000up }, #ifndef NO_DEFAULT_SIZES {"not", one(0043200), one(0177700), "$s", m68000up }, #endif {"orb", one(0000000), one(0177700), "#b$s", m68000up }, /* ori written as or */ {"orb", one(0000074), one(0177777), "#bCs", m68000up }, /* ori to ccr */ {"orb", one(0100000), one(0170700), ";bDd", m68000up }, /* memory to register */ {"orb", one(0100400), one(0170700), "Dd~s", m68000up }, /* register to memory */ {"orib", one(0000000), one(0177700), "#b$s", m68000up }, {"orib", one(0000074), one(0177777), "#bCs", m68000up }, /* ori to ccr */ {"oril", one(0000200), one(0177700), "#l$s", m68000up }, {"oriw", one(0000100), one(0177700), "#w$s", m68000up }, {"oriw", one(0000174), one(0177777), "#wSs", m68000up }, /* ori to sr */ {"orl", one(0000200), one(0177700), "#l$s", m68000up }, {"orl", one(0100200), one(0170700), ";lDd", m68000up }, /* memory to register */ {"orl", one(0100600), one(0170700), "Dd~s", m68000up }, /* register to memory */ {"orw", one(0000100), one(0177700), "#w$s", m68000up }, {"orw", one(0000174), one(0177777), "#wSs", m68000up }, /* ori to sr */ {"orw", one(0100100), one(0170700), ";wDd", m68000up }, /* memory to register */ {"orw", one(0100500), one(0170700), "Dd~s", m68000up }, /* register to memory */ #ifndef NO_DEFAULT_SIZES {"ori", one(0000174), one(0177777), "#wSs", m68000up }, /* ori to sr */ {"or", one(0000100), one(0177700), "#w$s", m68000up }, {"or", one(0000174), one(0177777), "#wSs", m68000up }, /* ori to sr */ {"or", one(0100100), one(0170700), ";wDd", m68000up }, /* memory to register */ {"or", one(0100500), one(0170700), "Dd~s", m68000up }, /* register to memory */ #endif {"pack", one(0100500), one(0170770), "DsDd#w", m68020up }, /* pack Ds, Dd, #w */ {"pack", one(0100510), one(0170770), "-s-d#w", m68020up }, /* pack -(As), -(Ad), #w */ #ifndef NO_68851 {"pbac", one(0xf0c7), one(0xffff), "Bc", m68851 }, {"pbacw", one(0xf087), one(0xffff), "Bc", m68851 }, {"pbas", one(0xf0c6), one(0xffff), "Bc", m68851 }, {"pbasw", one(0xf086), one(0xffff), "Bc", m68851 }, {"pbbc", one(0xf0c1), one(0xffff), "Bc", m68851 }, {"pbbcw", one(0xf081), one(0xffff), "Bc", m68851 }, {"pbbs", one(0xf0c0), one(0xffff), "Bc", m68851 }, {"pbbsw", one(0xf080), one(0xffff), "Bc", m68851 }, {"pbcc", one(0xf0cf), one(0xffff), "Bc", m68851 }, {"pbccw", one(0xf08f), one(0xffff), "Bc", m68851 }, {"pbcs", one(0xf0ce), one(0xffff), "Bc", m68851 }, {"pbcsw", one(0xf08e), one(0xffff), "Bc", m68851 }, {"pbgc", one(0xf0cd), one(0xffff), "Bc", m68851 }, {"pbgcw", one(0xf08d), one(0xffff), "Bc", m68851 }, {"pbgs", one(0xf0cc), one(0xffff), "Bc", m68851 }, {"pbgsw", one(0xf08c), one(0xffff), "Bc", m68851 }, {"pbic", one(0xf0cb), one(0xffff), "Bc", m68851 }, {"pbicw", one(0xf08b), one(0xffff), "Bc", m68851 }, {"pbis", one(0xf0ca), one(0xffff), "Bc", m68851 }, {"pbisw", one(0xf08a), one(0xffff), "Bc", m68851 }, {"pblc", one(0xf0c3), one(0xffff), "Bc", m68851 }, {"pblcw", one(0xf083), one(0xffff), "Bc", m68851 }, {"pbls", one(0xf0c2), one(0xffff), "Bc", m68851 }, {"pblsw", one(0xf082), one(0xffff), "Bc", m68851 }, {"pbsc", one(0xf0c5), one(0xffff), "Bc", m68851 }, {"pbscw", one(0xf085), one(0xffff), "Bc", m68851 }, {"pbss", one(0xf0c4), one(0xffff), "Bc", m68851 }, {"pbssw", one(0xf084), one(0xffff), "Bc", m68851 }, {"pbwc", one(0xf0c9), one(0xffff), "Bc", m68851 }, {"pbwcw", one(0xf089), one(0xffff), "Bc", m68851 }, {"pbws", one(0xf0c8), one(0xffff), "Bc", m68851 }, {"pbwsw", one(0xf088), one(0xffff), "Bc", m68851 }, {"pdbac", two(0xf048, 0x0007), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbas", two(0xf048, 0x0006), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbbc", two(0xf048, 0x0001), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbbs", two(0xf048, 0x0000), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbcc", two(0xf048, 0x000f), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbcs", two(0xf048, 0x000e), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbgc", two(0xf048, 0x000d), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbgs", two(0xf048, 0x000c), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbic", two(0xf048, 0x000b), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbis", two(0xf048, 0x000a), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdblc", two(0xf048, 0x0003), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbls", two(0xf048, 0x0002), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbsc", two(0xf048, 0x0005), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbss", two(0xf048, 0x0004), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbwc", two(0xf048, 0x0009), two(0xfff8, 0xffff), "DsBw", m68851 }, {"pdbws", two(0xf048, 0x0008), two(0xfff8, 0xffff), "DsBw", m68851 }, #endif /* NO_68851 */ {"pea", one(0044100), one(0177700), "!s", m68000up }, #ifndef NO_68851 {"pflusha", two(0xf000, 0x2400), two(0xffff, 0xffff), "", m68030 | m68851 }, {"pflusha", one(0xf518), one(0xfff8), "", m68040up }, {"pflush", two(0xf000, 0x3010), two(0xffc0, 0xfe10), "T3T9", m68030 | m68851 }, {"pflush", two(0xf000, 0x3810), two(0xffc0, 0xfe10), "T3T9&s", m68030 | m68851 }, {"pflush", two(0xf000, 0x3008), two(0xffc0, 0xfe18), "D3T9", m68030 | m68851 }, {"pflush", two(0xf000, 0x3808), two(0xffc0, 0xfe18), "D3T9&s", m68030 | m68851 }, {"pflush", two(0xf000, 0x3000), two(0xffc0, 0xfe1e), "f3T9", m68030 | m68851 }, {"pflush", two(0xf000, 0x3800), two(0xffc0, 0xfe1e), "f3T9&s", m68030 | m68851 }, /* For pflush, pflushn on '040: Documentation describes address-register-indirect mode, but old assembler accepted only address-register. Added a-r-i as new default, still accepting old form for now. [raeburn:19920908.1910EST] */ {"pflush", one(0xf508), one(0xfff8), "as", m68040up }, {"pflush", one(0xf508), one(0xfff8), "As", m68040up }, {"pflushan", one(0xf510), one(0xfff8), "", m68040up }, {"pflushn", one(0xf500), one(0xfff8), "as", m68040up }, {"pflushn", one(0xf500), one(0xfff8), "As", m68040up }, {"pflushr", two(0xf000, 0xa000), two(0xffc0, 0xffff), "|s", m68851 }, {"pflushs", two(0xf000, 0x3410), two(0xfff8, 0xfe10), "T3T9", m68851 }, {"pflushs", two(0xf000, 0x3c10), two(0xfff8, 0xfe10), "T3T9&s", m68851 }, {"pflushs", two(0xf000, 0x3408), two(0xfff8, 0xfe18), "D3T9", m68851 }, {"pflushs", two(0xf000, 0x3c08), two(0xfff8, 0xfe18), "D3T9&s", m68851 }, {"pflushs", two(0xf000, 0x3400), two(0xfff8, 0xfe1e), "f3T9", m68851 }, {"pflushs", two(0xf000, 0x3c00), two(0xfff8, 0xfe1e), "f3T9&s", m68851 }, {"ploadr", two(0xf000, 0x2210), two(0xffc0, 0xfff0), "T3&s", m68030 | m68851 }, {"ploadr", two(0xf000, 0x2208), two(0xffc0, 0xfff8), "D3&s", m68030 | m68851 }, {"ploadr", two(0xf000, 0x2200), two(0xffc0, 0xfffe), "f3&s", m68030 | m68851 }, {"ploadw", two(0xf000, 0x2010), two(0xffc0, 0xfff0), "T3&s", m68030 | m68851 }, {"ploadw", two(0xf000, 0x2008), two(0xffc0, 0xfff8), "D3&s", m68030 | m68851 }, {"ploadw", two(0xf000, 0x2000), two(0xffc0, 0xfffe), "f3&s", m68030 | m68851 }, {"plpar", one(0xf5c8), one(0xfff8), "as", m68060 }, {"plpaw", one(0xf588), one(0xfff8), "as", m68060 }, /* TC, CRP, DRP, SRP, CAL, VAL, SCC, AC */ {"pmove", two(0xf000, 0x4000), two(0xffc0, 0xe3ff), "*sP8", m68030 | m68851 }, {"pmove", two(0xf000, 0x4200), two(0xffc0, 0xe3ff), "P8%s", m68030 | m68851 }, {"pmove", two(0xf000, 0x4000), two(0xffc0, 0xe3ff), "|sW8", m68030 | m68851 }, {"pmove", two(0xf000, 0x4200), two(0xffc0, 0xe3ff), "W8~s", m68030 | m68851 }, /* BADx, BACx */ {"pmove", two(0xf000, 0x6200), two(0xffc0, 0xe3e3), "*sX3", m68851 }, {"pmove", two(0xf000, 0x6000), two(0xffc0, 0xe3e3), "X3%s", m68851 }, /* PSR/MMUSR(68030)/ACUSR(68ec030), PCSR */ /* {"pmove", two(0xf000, 0x6100), two(oxffc0, oxffff), "*sZ8", m68851 }, */ {"pmove", two(0xf000, 0x6000), two(0xffc0, 0xffff), "*sY8", m68030 | m68851 }, {"pmove", two(0xf000, 0x6200), two(0xffc0, 0xffff), "Y8%s", m68030 | m68851 }, {"pmove", two(0xf000, 0x6600), two(0xffc0, 0xffff), "Z8%s", m68851 }, /* TT0/AC0, TT1/AC1 */ {"pmove", two(0xf000, 0x0800), two(0xffc0, 0xfbff), "*s38", m68030 }, {"pmove", two(0xf000, 0x0a00), two(0xffc0, 0xfbff), "38%s", m68030 }, /* flush-disabled versions */ {"pmovefd", two(0xf000, 0x4300), two(0xffc0, 0xe3ff), "P8%s", m68030 }, {"pmovefd", two(0xf000, 0x4300), two(0xffc0, 0xe3ff), "W8~s", m68030 }, {"pmovefd", two(0xf000, 0x0900), two(0xffc0, 0xfbff), "*s38", m68030 }, {"pmovefd", two(0xf000, 0x0b00), two(0xffc0, 0xfbff), "38%s", m68030 }, {"prestore", one(0xf140), one(0xffc0), "&s", m68851 }, {"prestore", one(0xf158), one(0xfff8), "+s", m68851 }, #ifndef MOTOROLA_SYNTAX_ONLY /* The two identical psave instructions seems dubious. FIXME */ {"psave", one(0xf100), one(0xffc0), "&s", m68851 }, {"psave", one(0xf100), one(0xffc0), "+s", m68851 }, #endif {"psac", two(0xf040, 0x0007), two(0xffc0, 0xffff), "@s", m68851 }, {"psas", two(0xf040, 0x0006), two(0xffc0, 0xffff), "@s", m68851 }, {"psbc", two(0xf040, 0x0001), two(0xffc0, 0xffff), "@s", m68851 }, {"psbs", two(0xf040, 0x0000), two(0xffc0, 0xffff), "@s", m68851 }, {"pscc", two(0xf040, 0x000f), two(0xffc0, 0xffff), "@s", m68851 }, {"pscs", two(0xf040, 0x000e), two(0xffc0, 0xffff), "@s", m68851 }, {"psgc", two(0xf040, 0x000d), two(0xffc0, 0xffff), "@s", m68851 }, {"psgs", two(0xf040, 0x000c), two(0xffc0, 0xffff), "@s", m68851 }, {"psic", two(0xf040, 0x000b), two(0xffc0, 0xffff), "@s", m68851 }, {"psis", two(0xf040, 0x000a), two(0xffc0, 0xffff), "@s", m68851 }, {"pslc", two(0xf040, 0x0003), two(0xffc0, 0xffff), "@s", m68851 }, {"psls", two(0xf040, 0x0002), two(0xffc0, 0xffff), "@s", m68851 }, {"pssc", two(0xf040, 0x0005), two(0xffc0, 0xffff), "@s", m68851 }, {"psss", two(0xf040, 0x0004), two(0xffc0, 0xffff), "@s", m68851 }, {"pswc", two(0xf040, 0x0009), two(0xffc0, 0xffff), "@s", m68851 }, {"psws", two(0xf040, 0x0008), two(0xffc0, 0xffff), "@s", m68851 }, {"ptestr", two(0xf000, 0x8210), two(0xffc0, 0xe3f0), "T3&st8", m68030 | m68851 }, {"ptestr", two(0xf000, 0x8310), two(0xffc0, 0xe310), "T3&st8A9", m68030 | m68851 }, {"ptestr", two(0xf000, 0x8208), two(0xffc0, 0xe3f8), "D3&st8", m68030 | m68851 }, {"ptestr", two(0xf000, 0x8308), two(0xffc0, 0xe318), "D3&st8A9", m68030 | m68851 }, {"ptestr", two(0xf000, 0x8200), two(0xffc0, 0xe3fe), "f3&st8", m68030 | m68851 }, {"ptestr", two(0xf000, 0x8300), two(0xffc0, 0xe31e), "f3&st8A9", m68030 | m68851 }, {"ptestr", one(0xf568), one(0xfff8), "as", m68040 }, {"ptestw", two(0xf000, 0x8010), two(0xffc0, 0xe3f0), "T3&st8", m68030 | m68851 }, {"ptestw", two(0xf000, 0x8110), two(0xffc0, 0xe310), "T3&st8A9", m68030 | m68851 }, {"ptestw", two(0xf000, 0x8008), two(0xffc0, 0xe3f8), "D3&st8", m68030 | m68851 }, {"ptestw", two(0xf000, 0x8108), two(0xffc0, 0xe318), "D3&st8A9", m68030 | m68851 }, {"ptestw", two(0xf000, 0x8000), two(0xffc0, 0xe3fe), "f3&st8", m68030 | m68851 }, {"ptestw", two(0xf000, 0x8100), two(0xffc0, 0xe31e), "f3&st8A9", m68030 | m68851 }, {"ptestw", one(0xf548), one(0xfff8), "as", m68040 }, {"ptrapacw", two(0xf07a, 0x0007), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapacl", two(0xf07b, 0x0007), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapac", two(0xf07c, 0x0007), two(0xffff, 0xffff), "", m68851 }, {"ptrapasw", two(0xf07a, 0x0006), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapasl", two(0xf07b, 0x0006), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapas", two(0xf07c, 0x0006), two(0xffff, 0xffff), "", m68851 }, {"ptrapbcw", two(0xf07a, 0x0001), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapbcl", two(0xf07b, 0x0001), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapbc", two(0xf07c, 0x0001), two(0xffff, 0xffff), "", m68851 }, {"ptrapbsw", two(0xf07a, 0x0000), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapbsl", two(0xf07b, 0x0000), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapbs", two(0xf07c, 0x0000), two(0xffff, 0xffff), "", m68851 }, {"ptrapccw", two(0xf07a, 0x000f), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapccl", two(0xf07b, 0x000f), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapcc", two(0xf07c, 0x000f), two(0xffff, 0xffff), "", m68851 }, {"ptrapcsw", two(0xf07a, 0x000e), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapcsl", two(0xf07b, 0x000e), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapcs", two(0xf07c, 0x000e), two(0xffff, 0xffff), "", m68851 }, {"ptrapgcw", two(0xf07a, 0x000d), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapgcl", two(0xf07b, 0x000d), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapgc", two(0xf07c, 0x000d), two(0xffff, 0xffff), "", m68851 }, {"ptrapgsw", two(0xf07a, 0x000c), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapgsl", two(0xf07b, 0x000c), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapgs", two(0xf07c, 0x000c), two(0xffff, 0xffff), "", m68851 }, {"ptrapicw", two(0xf07a, 0x000b), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapicl", two(0xf07b, 0x000b), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapic", two(0xf07c, 0x000b), two(0xffff, 0xffff), "", m68851 }, {"ptrapisw", two(0xf07a, 0x000a), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapisl", two(0xf07b, 0x000a), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapis", two(0xf07c, 0x000a), two(0xffff, 0xffff), "", m68851 }, {"ptraplcw", two(0xf07a, 0x0003), two(0xffff, 0xffff), "#w", m68851 }, {"ptraplcl", two(0xf07b, 0x0003), two(0xffff, 0xffff), "#l", m68851 }, {"ptraplc", two(0xf07c, 0x0003), two(0xffff, 0xffff), "", m68851 }, {"ptraplsw", two(0xf07a, 0x0002), two(0xffff, 0xffff), "#w", m68851 }, {"ptraplsl", two(0xf07b, 0x0002), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapls", two(0xf07c, 0x0002), two(0xffff, 0xffff), "", m68851 }, {"ptrapscw", two(0xf07a, 0x0005), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapscl", two(0xf07b, 0x0005), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapsc", two(0xf07c, 0x0005), two(0xffff, 0xffff), "", m68851 }, {"ptrapssw", two(0xf07a, 0x0004), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapssl", two(0xf07b, 0x0004), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapss", two(0xf07c, 0x0004), two(0xffff, 0xffff), "", m68851 }, {"ptrapwcw", two(0xf07a, 0x0009), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapwcl", two(0xf07b, 0x0009), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapwc", two(0xf07c, 0x0009), two(0xffff, 0xffff), "", m68851 }, {"ptrapwsw", two(0xf07a, 0x0008), two(0xffff, 0xffff), "#w", m68851 }, {"ptrapwsl", two(0xf07b, 0x0008), two(0xffff, 0xffff), "#l", m68851 }, {"ptrapws", two(0xf07c, 0x0008), two(0xffff, 0xffff), "", m68851 }, {"pvalid", two(0xf000, 0x2800), two(0xffc0, 0xffff), "Vs&s", m68851 }, {"pvalid", two(0xf000, 0x2c00), two(0xffc0, 0xfff8), "A3&s", m68851 }, #endif /* NO_68851 */ {"reset", one(0047160), one(0177777), "", m68000up }, {"rolb", one(0160430), one(0170770), "QdDs", m68000up }, /* rorb #Q, Ds */ {"rolb", one(0160470), one(0170770), "DdDs", m68000up }, /* rorb Dd, Ds */ {"roll", one(0160630), one(0170770), "QdDs", m68000up }, /* rorb #Q, Ds */ {"roll", one(0160670), one(0170770), "DdDs", m68000up }, /* rorb Dd, Ds */ {"rolw", one(0160530), one(0170770), "QdDs", m68000up }, /* rorb #Q, Ds */ {"rolw", one(0160570), one(0170770), "DdDs", m68000up }, /* rorb Dd, Ds */ {"rolw", one(0163700), one(0177700), "~s", m68000up }, /* Rotate memory */ {"rorb", one(0160030), one(0170770), "QdDs", m68000up }, /* rorb #Q, Ds */ {"rorb", one(0160070), one(0170770), "DdDs", m68000up }, /* rorb Dd, Ds */ {"rorl", one(0160230), one(0170770), "QdDs", m68000up }, /* rorb #Q, Ds */ {"rorl", one(0160270), one(0170770), "DdDs", m68000up }, /* rorb Dd, Ds */ {"rorw", one(0160130), one(0170770), "QdDs", m68000up }, /* rorb #Q, Ds */ {"rorw", one(0160170), one(0170770), "DdDs", m68000up }, /* rorb Dd, Ds */ {"rorw", one(0163300), one(0177700), "~s", m68000up }, /* Rotate memory */ {"roxlb", one(0160420), one(0170770), "QdDs", m68000up }, /* roxrb #Q, Ds */ {"roxlb", one(0160460), one(0170770), "DdDs", m68000up }, /* roxrb Dd, Ds */ {"roxll", one(0160620), one(0170770), "QdDs", m68000up }, /* roxrb #Q, Ds */ {"roxll", one(0160660), one(0170770), "DdDs", m68000up }, /* roxrb Dd, Ds */ {"roxlw", one(0160520), one(0170770), "QdDs", m68000up }, /* roxrb #Q, Ds */ {"roxlw", one(0160560), one(0170770), "DdDs", m68000up }, /* roxrb Dd, Ds */ {"roxlw", one(0162700), one(0177700), "~s", m68000up }, /* Rotate memory */ {"roxrb", one(0160020), one(0170770), "QdDs", m68000up }, /* roxrb #Q, Ds */ {"roxrb", one(0160060), one(0170770), "DdDs", m68000up }, /* roxrb Dd, Ds */ {"roxrl", one(0160220), one(0170770), "QdDs", m68000up }, /* roxrb #Q, Ds */ {"roxrl", one(0160260), one(0170770), "DdDs", m68000up }, /* roxrb Dd, Ds */ {"roxrw", one(0160120), one(0170770), "QdDs", m68000up }, /* roxrb #Q, Ds */ {"roxrw", one(0160160), one(0170770), "DdDs", m68000up }, /* roxrb Dd, Ds */ {"roxrw", one(0162300), one(0177700), "~s", m68000up }, /* Rotate memory */ {"rtd", one(0047164), one(0177777), "#w", m68010up }, {"rte", one(0047163), one(0177777), "", m68000up }, {"rtm", one(0003300), one(0177760), "Rs", m68020 }, {"rtr", one(0047167), one(0177777), "", m68000up }, {"rts", one(0047165), one(0177777), "", m68000up }, {"sbcd", one(0100400), one(0170770), "DsDd", m68000up }, {"sbcd", one(0100410), one(0170770), "-s-d", m68000up }, {"scc", one(0052300), one(0177700), "$s", m68000up }, {"scs", one(0052700), one(0177700), "$s", m68000up }, {"seq", one(0053700), one(0177700), "$s", m68000up }, {"sf", one(0050700), one(0177700), "$s", m68000up }, {"sge", one(0056300), one(0177700), "$s", m68000up }, {"sfge", one(0056300), one(0177700), "$s", m68000up }, {"sgt", one(0057300), one(0177700), "$s", m68000up }, {"sfgt", one(0057300), one(0177700), "$s", m68000up }, {"shi", one(0051300), one(0177700), "$s", m68000up }, {"sle", one(0057700), one(0177700), "$s", m68000up }, {"sfle", one(0057700), one(0177700), "$s", m68000up }, {"sls", one(0051700), one(0177700), "$s", m68000up }, {"slt", one(0056700), one(0177700), "$s", m68000up }, {"sflt", one(0056700), one(0177700), "$s", m68000up }, {"smi", one(0055700), one(0177700), "$s", m68000up }, {"sne", one(0053300), one(0177700), "$s", m68000up }, {"sfneq", one(0053300), one(0177700), "$s", m68000up }, {"spl", one(0055300), one(0177700), "$s", m68000up }, {"st", one(0050300), one(0177700), "$s", m68000up }, {"svc", one(0054300), one(0177700), "$s", m68000up }, {"svs", one(0054700), one(0177700), "$s", m68000up }, {"stop", one(0047162), one(0177777), "#w", m68000up }, {"subal", one(0110700), one(0170700), "*lAd", m68000up }, {"subaw", one(0110300), one(0170700), "*wAd", m68000up }, {"subb", one(0050400), one(0170700), "Qd%s", m68000up }, /* subq written as sub */ {"subb", one(0002000), one(0177700), "#b$s", m68000up }, /* subi written as sub */ {"subb", one(0110000), one(0170700), ";bDd", m68000up }, /* subb ? ?, Dd */ {"subb", one(0110400), one(0170700), "Dd~s", m68000up }, /* subb Dd, ? ? */ {"subib", one(0002000), one(0177700), "#b$s", m68000up }, {"subil", one(0002200), one(0177700), "#l$s", m68000up }, {"subiw", one(0002100), one(0177700), "#w$s", m68000up }, {"subl", one(0050600), one(0170700), "Qd%s", m68000up }, {"subl", one(0002200), one(0177700), "#l$s", m68000up }, {"subl", one(0110700), one(0170700), "*lAd", m68000up }, {"subl", one(0110200), one(0170700), "*lDd", m68000up }, {"subl", one(0110600), one(0170700), "Dd~s", m68000up }, {"subqb", one(0050400), one(0170700), "Qd%s", m68000up }, #ifndef MIT_SYNTAX_ONLY {"subqb", one(0002000), one(0177700), "#b$s", m68000up }, /* FIXNIEL: sub instead of subq because too many frags */ #endif {"subql", one(0050600), one(0170700), "Qd%s", m68000up }, #ifndef MIT_SYNTAX_ONLY {"subql", one(0002200), one(0177700), "#l$s", m68000up }, /* FIXNIEL: sub instead of subq because too many frags */ #endif {"subqw", one(0050500), one(0170700), "Qd%s", m68000up }, #ifndef MIT_SYNTAX_ONLY {"subqw", one(0002100), one(0177700), "#w$s", m68000up }, /* FIXNIEL: sub instead of subq because too many frags */ #endif {"subw", one(0050500), one(0170700), "Qd%s", m68000up }, {"subw", one(0002100), one(0177700), "#w$s", m68000up }, {"subw", one(0110100), one(0170700), "*wDd", m68000up }, {"subw", one(0110300), one(0170700), "*wAd", m68000up }, /* suba written as sub */ {"subw", one(0110500), one(0170700), "Dd~s", m68000up }, #ifndef NO_DEFAULT_SIZES {"subi", one(0002200), one(0177700), "#l$s", m68000up }, {"suba", one(0110700), one(0170700), "*lAd", m68000up }, {"sub", one(0050500), one(0170700), "Qd%s", m68000up }, {"sub", one(0002100), one(0177700), "#w$s", m68000up }, {"sub", one(0110100), one(0170700), "*wDd", m68000up }, {"sub", one(0110300), one(0170700), "*wAd", m68000up }, /* suba written as sub */ {"sub", one(0110500), one(0170700), "Dd~s", m68000up }, #endif {"subxb", one(0110400), one(0170770), "DsDd", m68000up }, /* subxb Ds, Dd */ {"subxb", one(0110410), one(0170770), "-s-d", m68000up }, /* subxb -(As), -(Ad) */ {"subxl", one(0110600), one(0170770), "DsDd", m68000up }, {"subxl", one(0110610), one(0170770), "-s-d", m68000up }, {"subxw", one(0110500), one(0170770), "DsDd", m68000up }, {"subxw", one(0110510), one(0170770), "-s-d", m68000up }, #ifndef NO_DEFAULT_SIZES {"subx", one(0110500), one(0170770), "DsDd", m68000up }, {"subx", one(0110510), one(0170770), "-s-d", m68000up }, #endif {"swap", one(0044100), one(0177770), "Ds", m68000up }, #ifndef MIT_SYNTAX_ONLY {"swapw", one(0044100), one(0177770), "Ds", m68000up }, #endif {"tas", one(0045300), one(0177700), "$s", m68000up }, #define TBL1(name,signed,round,size) \ {name, two(0174000, (signed<<11)|(round<<10)|(size<<6)|0000400), two(0177700,0107777), "`sD1", cpu32 },\ {name, two(0174000, (signed<<11)|(round<<10)|(size<<6)), two(0177770,0107770), "DsD3D1", cpu32} #define TBL(name1, name2, name3, s, r) \ TBL1(name1, s, r, 0), TBL1(name2, s, r, 1), TBL1(name3, s, r, 2) TBL("tblsb", "tblsw", "tblsl", 1, 1), TBL("tblsnb", "tblsnw", "tblsnl", 1, 0), TBL("tblub", "tbluw", "tblul", 0, 1), TBL("tblunb", "tblunw", "tblunl", 0, 0), {"trap", one(0047100), one(0177760), "Ts", m68000up }, #ifndef MIT_SYNTAX_ONLY {"tpcc", one(0047100), one(0177760), "Ts", m68000up }, #endif #ifndef MIT_SYNTAX_ONLY {"tcc", one(0052374), one(0177777), "", m68020up | cpu32 }, #endif {"trapcc", one(0052374), one(0177777), "", m68020up | cpu32 }, {"trapcs", one(0052774), one(0177777), "", m68020up | cpu32 }, {"trapeq", one(0053774), one(0177777), "", m68020up | cpu32 }, {"trapf", one(0050774), one(0177777), "", m68020up | cpu32 }, {"trapge", one(0056374), one(0177777), "", m68020up | cpu32 }, {"trapgt", one(0057374), one(0177777), "", m68020up | cpu32 }, {"traphi", one(0051374), one(0177777), "", m68020up | cpu32 }, {"traple", one(0057774), one(0177777), "", m68020up | cpu32 }, {"trapls", one(0051774), one(0177777), "", m68020up | cpu32 }, {"traplt", one(0056774), one(0177777), "", m68020up | cpu32 }, {"trapmi", one(0055774), one(0177777), "", m68020up | cpu32 }, {"trapne", one(0053374), one(0177777), "", m68020up | cpu32 }, {"trappl", one(0055374), one(0177777), "", m68020up | cpu32 }, {"trapt", one(0050374), one(0177777), "", m68020up | cpu32 }, {"trapvc", one(0054374), one(0177777), "", m68020up | cpu32 }, {"trapvs", one(0054774), one(0177777), "", m68020up | cpu32 }, {"trapccw", one(0052372), one(0177777), "#w", m68020up | cpu32 }, {"trapcsw", one(0052772), one(0177777), "#w", m68020up | cpu32 }, {"trapeqw", one(0053772), one(0177777), "#w", m68020up | cpu32 }, {"trapfw", one(0050772), one(0177777), "#w", m68020up | cpu32 }, {"trapgew", one(0056372), one(0177777), "#w", m68020up | cpu32 }, {"trapgtw", one(0057372), one(0177777), "#w", m68020up | cpu32 }, {"traphiw", one(0051372), one(0177777), "#w", m68020up | cpu32 }, {"traplew", one(0057772), one(0177777), "#w", m68020up | cpu32 }, {"traplsw", one(0051772), one(0177777), "#w", m68020up | cpu32 }, {"trapltw", one(0056772), one(0177777), "#w", m68020up | cpu32 }, {"trapmiw", one(0055772), one(0177777), "#w", m68020up | cpu32 }, {"trapnew", one(0053372), one(0177777), "#w", m68020up | cpu32 }, {"trapplw", one(0055372), one(0177777), "#w", m68020up | cpu32 }, {"traptw", one(0050372), one(0177777), "#w", m68020up | cpu32 }, {"trapvcw", one(0054372), one(0177777), "#w", m68020up | cpu32 }, {"trapvsw", one(0054772), one(0177777), "#w", m68020up | cpu32 }, {"trapccl", one(0052373), one(0177777), "#l", m68020up | cpu32 }, {"trapcsl", one(0052773), one(0177777), "#l", m68020up | cpu32 }, {"trapeql", one(0053773), one(0177777), "#l", m68020up | cpu32 }, {"trapfl", one(0050773), one(0177777), "#l", m68020up | cpu32 }, {"trapgel", one(0056373), one(0177777), "#l", m68020up | cpu32 }, {"trapgtl", one(0057373), one(0177777), "#l", m68020up | cpu32 }, {"traphil", one(0051373), one(0177777), "#l", m68020up | cpu32 }, {"traplel", one(0057773), one(0177777), "#l", m68020up | cpu32 }, {"traplsl", one(0051773), one(0177777), "#l", m68020up | cpu32 }, {"trapltl", one(0056773), one(0177777), "#l", m68020up | cpu32 }, {"trapmil", one(0055773), one(0177777), "#l", m68020up | cpu32 }, {"trapnel", one(0053373), one(0177777), "#l", m68020up | cpu32 }, {"trappll", one(0055373), one(0177777), "#l", m68020up | cpu32 }, {"traptl", one(0050373), one(0177777), "#l", m68020up | cpu32 }, {"trapvcl", one(0054373), one(0177777), "#l", m68020up | cpu32 }, {"trapvsl", one(0054773), one(0177777), "#l", m68020up | cpu32 }, {"trapv", one(0047166), one(0177777), "", m68000up }, {"tstb", one(0045000), one(0177700), ";b", m68000up }, {"tstw", one(0045100), one(0177700), "*w", m68000up }, {"tstl", one(0045200), one(0177700), "*l", m68000up }, #ifndef NO_DEFAULT_SIZES {"tst", one(0045200), one(0177700), "*l", m68000up }, #endif {"unlk", one(0047130), one(0177770), "As", m68000up }, {"unpk", one(0100600), one(0170770), "DsDd#w", m68020up }, {"unpk", one(0100610), one(0170770), "-s-d#w", m68020up }, /* Variable-sized branches */ {"jbsr", one(0060400), one(0177400), "Bg", m68000up }, {"jbsr", one(0047200), one(0177700), "!s", m68000up }, {"jra", one(0060000), one(0177400), "Bg", m68000up }, {"jra", one(0047300), one(0177700), "!s", m68000up }, #ifndef MIT_SYNTAX_ONLY {"jbra", one(0060000), one(0177400), "Bg", m68000up }, {"jbra", one(0047300), one(0177700), "!s", m68000up }, #endif {"jhi", one(0061000), one(0177400), "Bg", m68000up }, {"jls", one(0061400), one(0177400), "Bg", m68000up }, {"jcc", one(0062000), one(0177400), "Bg", m68000up }, {"jcs", one(0062400), one(0177400), "Bg", m68000up }, {"jne", one(0063000), one(0177400), "Bg", m68000up }, {"jeq", one(0063400), one(0177400), "Bg", m68000up }, {"jvc", one(0064000), one(0177400), "Bg", m68000up }, {"jvs", one(0064400), one(0177400), "Bg", m68000up }, {"jpl", one(0065000), one(0177400), "Bg", m68000up }, {"jmi", one(0065400), one(0177400), "Bg", m68000up }, {"jge", one(0066000), one(0177400), "Bg", m68000up }, {"jlt", one(0066400), one(0177400), "Bg", m68000up }, {"jgt", one(0067000), one(0177400), "Bg", m68000up }, {"jle", one(0067400), one(0177400), "Bg", m68000up }, #ifndef MIT_SYNTAX_ONLY /* Aliases: jbCC is the same as jCC */ {"jbhi", one(0061000), one(0177400), "Bg", m68000up }, {"jbls", one(0061400), one(0177400), "Bg", m68000up }, {"jbcc", one(0062000), one(0177400), "Bg", m68000up }, {"jbcs", one(0062400), one(0177400), "Bg", m68000up }, {"jbne", one(0063000), one(0177400), "Bg", m68000up }, {"jbeq", one(0063400), one(0177400), "Bg", m68000up }, {"jbvc", one(0064000), one(0177400), "Bg", m68000up }, {"jbvs", one(0064400), one(0177400), "Bg", m68000up }, {"jbpl", one(0065000), one(0177400), "Bg", m68000up }, {"jbmi", one(0065400), one(0177400), "Bg", m68000up }, {"jbge", one(0066000), one(0177400), "Bg", m68000up }, {"jblt", one(0066400), one(0177400), "Bg", m68000up }, {"jbgt", one(0067000), one(0177400), "Bg", m68000up }, {"jble", one(0067400), one(0177400), "Bg", m68000up }, #endif /* MOTOROLA_SYNTAX */ /* aliases */ #ifndef MIT_SYNTAX_ONLY {"move", one(0030000), one(0170000), "*w$d", m68000up }, {"move", one(0030100), one(0170700), "*wAd", m68000up }, /* mova, written as mov */ {"move", one(0040300), one(0177700), "Ss$s", m68000up }, /* Move from sr */ {"move", one(0041300), one(0177700), "Cs$s", m68010up }, /* Move from ccr */ {"move", one(0042300), one(0177700), ";wCd", m68000up }, /* mov to ccr */ {"move", one(0043300), one(0177700), ";wSd", m68000up }, /* mov to sr */ {"move", one(0020000), one(0170000), "*l$d", m68000up }, {"move", one(0020100), one(0170700), "*lAd", m68000up }, {"move", one(0070000), one(0170400), "MsDd", m68000up }, /* movq written as mov */ {"move", one(0047140), one(0177770), "AsUd", m68000up }, /* mov to USP */ {"move", one(0047150), one(0177770), "UdAs", m68000up }, /* mov from USP */ #endif {"movql", one(0070000), one(0170400), "MsDd", m68000up }, #ifndef MIT_SYNTAX_ONLY {"movql", one(0020000), one(0170000), "*l$d", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ {"movql", one(0020100), one(0170700), "*lAd", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ {"movql", one(0047140), one(0177770), "AsUd", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ {"movql", one(0047150), one(0177770), "UdAs", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ #endif {"moveql", one(0070000), one(0170400), "MsDd", m68000up }, #ifndef MIT_SYNTAX_ONLY {"moveql", one(0020000), one(0170000), "*l$d", m68000up }, {"moveql", one(0020100), one(0170700), "*lAd", m68000up }, {"moveql", one(0047140), one(0177770), "AsUd", m68000up }, {"moveql", one(0047150), one(0177770), "UdAs", m68000up }, #endif {"moval", one(0020100), one(0170700), "*lAd", m68000up }, {"movaw", one(0030100), one(0170700), "*wAd", m68000up }, {"movb", one(0010000), one(0170000), ";b$d", m68000up }, /* mov */ {"movl", one(0070000), one(0170400), "MsDd", m68000up }, /* movq written as mov */ {"movl", one(0020000), one(0170000), "*l$d", m68000up }, {"movl", one(0020100), one(0170700), "*lAd", m68000up }, {"movl", one(0047140), one(0177770), "AsUd", m68000up }, /* mov to USP */ {"movl", one(0047150), one(0177770), "UdAs", m68000up }, /* mov from USP */ {"movc", one(0047173), one(0177777), "R1Jj", m68010up }, {"movc", one(0047173), one(0177777), "R1#j", m68010up }, {"movc", one(0047172), one(0177777), "JjR1", m68010up }, {"movc", one(0047172), one(0177777), "#jR1", m68010up }, {"movml", one(0044300), one(0177700), "#w&s", m68000up }, /* movm reg to mem. */ {"movml", one(0044340), one(0177770), "#w-s", m68000up }, /* movm reg to autodecrement. */ {"movml", one(0046300), one(0177700), "!s#w", m68000up }, /* movm mem to reg. */ {"movml", one(0046330), one(0177770), "+s#w", m68000up }, /* movm autoinc to reg. */ {"movml", one(0044300), one(0177700), "Lw&s", m68000up }, /* movm reg to mem. */ {"movml", one(0044340), one(0177770), "lw-s", m68000up }, /* movm reg to autodecrement. */ {"movml", one(0046300), one(0177700), "!sLw", m68000up }, /* movm mem to reg. */ {"movml", one(0046330), one(0177770), "+sLw", m68000up }, /* movm autoinc to reg. */ {"movmw", one(0044200), one(0177700), "#w&s", m68000up }, /* movm reg to mem. */ {"movmw", one(0044240), one(0177770), "#w-s", m68000up }, /* movm reg to autodecrement. */ {"movmw", one(0046200), one(0177700), "!s#w", m68000up }, /* movm mem to reg. */ {"movmw", one(0046230), one(0177770), "+s#w", m68000up }, /* movm autoinc to reg. */ {"movmw", one(0044200), one(0177700), "Lw&s", m68000up }, /* movm reg to mem. */ {"movmw", one(0044240), one(0177770), "lw-s", m68000up }, /* movm reg to autodecrement. */ {"movmw", one(0046200), one(0177700), "!sLw", m68000up }, /* movm mem to reg. */ {"movmw", one(0046230), one(0177770), "+sLw", m68000up }, /* movm autoinc to reg. */ {"movpl", one(0000510), one(0170770), "dsDd", m68000up }, /* memory to register */ {"movpl", one(0000710), one(0170770), "Ddds", m68000up }, /* register to memory */ {"movpw", one(0000410), one(0170770), "dsDd", m68000up }, /* memory to register */ {"movpw", one(0000610), one(0170770), "Ddds", m68000up }, /* register to memory */ {"movq", one(0070000), one(0170400), "MsDd", m68000up }, #ifndef MIT_SYNTAX_ONLY {"movq", one(0020000), one(0170000), "*l$d", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ {"movq", one(0020100), one(0170700), "*lAd", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ {"movq", one(0047140), one(0177770), "AsUd", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ {"movq", one(0047150), one(0177770), "UdAs", m68000up }, /* FIXNIEL: move instead of movw because too many frags */ #endif {"movw", one(0030000), one(0170000), "*w$d", m68000up }, {"movw", one(0030100), one(0170700), "*wAd", m68000up }, /* mova, written as mov */ {"movw", one(0040300), one(0177700), "Ss$s", m68000up }, /* Move from sr */ {"movw", one(0041300), one(0177700), "Cs$s", m68010up }, /* Move from ccr */ {"movw", one(0042300), one(0177700), ";wCd", m68000up }, /* mov to ccr */ {"movw", one(0043300), one(0177700), ";wSd", m68000up }, /* mov to sr */ {"movsb", two(0007000, 0), two(0177700, 07777), "~sR1", m68010up }, {"movsb", two(0007000, 04000), two(0177700, 07777), "R1~s", m68010up }, {"movsl", two(0007200, 0), two(0177700, 07777), "~sR1", m68010up }, {"movsl", two(0007200, 04000), two(0177700, 07777), "R1~s", m68010up }, {"movsw", two(0007100, 0), two(0177700, 07777), "~sR1", m68010up }, {"movsw", two(0007100, 04000), two(0177700, 07777), "R1~s", m68010up }, #ifndef MIT_SYNTAX_ONLY {"movecl", one(0047173), one(0177777), "R1Jj", m68010up }, {"movecl", one(0047173), one(0177777), "R1#j", m68010up }, {"movecl", one(0047172), one(0177777), "JjR1", m68010up }, {"movecl", one(0047172), one(0177777), "#jR1", m68010up }, #endif }; int numopcodes = (sizeof(m68k_opcodes) + AND_OTHER_PART)/sizeof(m68k_opcodes[0]); struct m68k_opcode *endop = m68k_opcodes + (sizeof(m68k_opcodes) + AND_OTHER_PART)/sizeof(m68k_opcodes[0]); #endif /* * Local Variables: * fill-column: 131 * End: */ /* end of m68k-opcode.h */ gdb-4.13/include/opcode/m68kmri.h 666 34562 1752 373 5243022150 15053 0ustar fnfcygnus#define MOTOROLA_SYNTAX /* Allow OP as an alias for OP.l (or OP.w or OP.b, depend on OP). */ #define ALLOW_DEFAULT_SIZES /* Customers want bhi and friends to be variable sized - stolen from jhi */ #define BRANCH_IS_VARIABLE_SIZED #include "m68k.h" gdb-4.13/include/opcode/m88k.h 666 34562 1752 174021 5465756561 14461 0ustar fnfcygnus/* Table of opcodes for the motorola 88k family. Copyright 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. This file is part of GDB and GAS. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Disassembler Instruction Table * * The first field of the table is the opcode field. If an opcode * is specified which has any non-opcode bits on, a system error * will occur when the system attempts the install it into the * instruction table. The second parameter is a pointer to the * instruction mnemonic. Each operand is specified by offset, width, * and type. The offset is the bit number of the least significant * bit of the operand with bit 0 being the least significant bit of * the instruction. The width is the number of bits used to specify * the operand. The type specifies the output format to be used for * the operand. The valid formats are: register, register indirect, * hex constant, and bit field specification. The last field is a * pointer to the next instruction in the linked list. These pointers * are initialized by init_disasm(). * * Structure Format * * struct INSTAB { * UPINT opcode; * char *mnemonic; * struct OPSPEC op1,op2,op3; * struct SIM_FLAGS flgs; * struct INSTAB *next; * } * * struct OPSPEC { * UPINT offset:5; * UPINT width:6; * UPINT type:5; * } * * Revision History * * Revision 1.0 11/08/85 Creation date * 1.1 02/05/86 Updated instruction mnemonic table MD * 1.2 06/16/86 Updated SIM_FLAGS for floating point * 1.3 09/20/86 Updated for new encoding * 05/11/89 R. Trawick adapted from Motorola disassembler */ #include /* * This file contains the structures and constants needed to build the M88000 * simulator. It is the main include file, containing all the * structures, macros and definitions except for the floating point * instruction set. */ /* * The following flag informs the Simulator as to what type of byte ordering * will be used. For instance, a BOFLAG = 1 indicates a DEC VAX and IBM type * of ordering shall be used. */ /* # define BOFLAG 1 */ /* BYTE ORDERING FLAG */ /* define the number of bits in the primary opcode field of the instruction, * the destination field, the source 1 and source 2 fields. */ # define OP 8 /* size of opcode field */ # define DEST 6 /* size of destination */ # define SOURCE1 6 /* size of source1 */ # define SOURCE2 6 /* size of source2 */ # define REGs 32 /* number of registers */ # define WORD long # define FLAG unsigned # define STATE short # define TRUE 1 # define FALSE 0 # define READ 0 # define WRITE 1 /* The next four equates define the priorities that the various classes * of instructions have regarding writing results back into registers and * signalling exceptions. */ /* PMEM is also defined in on Delta 88's. Sigh! */ #undef PMEM # define PINT 0 /* Integer Priority */ # define PFLT 1 /* Floating Point Priority */ # define PMEM 2 /* Memory Priority */ # define NA 3 /* Not Applicable, instruction doesnt write to regs */ # define HIPRI 3 /* highest of these priorities */ /* The instruction registers are an artificial mechanism to speed up * simulator execution. In the real processor, an instruction register * is 32 bits wide. In the simulator, the 32 bit instruction is kept in * a structure field called rawop, and the instruction is partially decoded, * and split into various fields and flags which make up the other fields * of the structure. * The partial decode is done when the instructions are initially loaded * into simulator memory. The simulator code memory is not an array of * 32 bit words, but is an array of instruction register structures. * Yes this wastes memory, but it executes much quicker. */ struct IR_FIELDS { unsigned op:OP, dest: DEST, src1: SOURCE1, src2: SOURCE2; int ltncy, extime, wb_pri; /* writeback priority */ unsigned imm_flags:2,/* immediate size */ rs1_used:1, /* register source 1 used */ rs2_used:1, /* register source 2 used */ rsd_used:1, /* register source/dest. used */ c_flag:1, /* complement */ u_flag:1, /* upper half word */ n_flag:1, /* execute next */ wb_flag:1, /* uses writeback slot */ dest_64:1, /* dest size */ s1_64:1, /* source 1 size */ s2_64:1, /* source 2 size */ scale_flag:1, /* scaled register */ brk_flg:1; }; struct mem_segs { struct mem_wrd *seg; /* pointer (returned by calloc) to segment */ unsigned long baseaddr; /* base load address from file headers */ unsigned long endaddr; /* Ending address of segment */ int flags; /* segment control flags (none defined 12/5/86) */ }; #define MAXSEGS (10) /* max number of segment allowed */ #define MEMSEGSIZE (sizeof(struct mem_segs))/* size of mem_segs structure */ #define BRK_RD (0x01) /* break on memory read */ #define BRK_WR (0x02) /* break on memory write */ #define BRK_EXEC (0x04) /* break on execution */ #define BRK_CNT (0x08) /* break on terminal count */ struct mem_wrd { struct IR_FIELDS opcode; /* simulator instruction break down */ union { unsigned long l; /* memory element break down */ unsigned short s[2]; unsigned char c[4]; } mem; }; #define MEMWRDSIZE (sizeof(struct mem_wrd)) /* size of each 32 bit memory model */ /* External declarations */ extern struct mem_segs memory[]; extern struct PROCESSOR m78000; struct PROCESSOR { unsigned WORD ip, /* execute instruction pointer */ vbr, /* vector base register */ psr; /* processor status register */ WORD S1bus, /* source 1 */ S2bus, /* source 2 */ Dbus, /* destination */ DAbus, /* data address bus */ ALU, Regs[REGs], /* data registers */ time_left[REGs], /* max clocks before reg is available */ wb_pri[REGs], /* writeback priority of reg */ SFU0_regs[REGs], /* integer unit control regs */ SFU1_regs[REGs], /* floating point control regs */ Scoreboard[REGs], Vbr; unsigned WORD scoreboard, Psw, Tpsw; FLAG jump_pending:1; /* waiting for a jump instr. */ }; # define i26bit 1 /* size of immediate field */ # define i16bit 2 # define i10bit 3 /* Definitions for fields in psr */ # define mode 31 # define rbo 30 # define ser 29 # define carry 28 # define sf7m 11 # define sf6m 10 # define sf5m 9 # define sf4m 8 # define sf3m 7 # define sf2m 6 # define sf1m 5 # define mam 4 # define inm 3 # define exm 2 # define trm 1 # define ovfm 0 #define MODEMASK (1<<(mode-1)) # define SILENT 0 /* simulate without output to crt */ # define VERBOSE 1 /* simulate in verbose mode */ # define PR_INSTR 2 /* only print instructions */ # define RESET 16 /* reset phase */ # define PHASE1 0 /* data path phases */ # define PHASE2 1 /* the 1 clock operations */ # define ADDU 1 # define ADDC 2 # define ADDUC 3 # define ADD 4 # define SUBU ADD+1 # define SUBB ADD+2 # define SUBUB ADD+3 # define SUB ADD+4 # define AND_ ADD+5 # define OR ADD+6 # define XOR ADD+7 # define CMP ADD+8 /* the LOADS */ # define LDAB CMP+1 # define LDAH CMP+2 # define LDA CMP+3 # define LDAD CMP+4 # define LDB LDAD+1 # define LDH LDAD+2 # define LD LDAD+3 # define LDD LDAD+4 # define LDBU LDAD+5 # define LDHU LDAD+6 /* the STORES */ # define STB LDHU+1 # define STH LDHU+2 # define ST LDHU+3 # define STD LDHU+4 /* the exchange */ # define XMEMBU LDHU+5 # define XMEM LDHU+6 /* the branches */ # define JSR STD+1 # define BSR STD+2 # define BR STD+3 # define JMP STD+4 # define BB1 STD+5 # define BB0 STD+6 # define RTN STD+7 # define BCND STD+8 /* the TRAPS */ # define TB1 BCND+1 # define TB0 BCND+2 # define TCND BCND+3 # define RTE BCND+4 # define TBND BCND+5 /* the MISC instructions */ # define MUL TBND + 1 # define DIV MUL +2 # define DIVU MUL +3 # define MASK MUL +4 # define FF0 MUL +5 # define FF1 MUL +6 # define CLR MUL +7 # define SET MUL +8 # define EXT MUL +9 # define EXTU MUL +10 # define MAK MUL +11 # define ROT MUL +12 /* control register manipulations */ # define LDCR ROT +1 # define STCR ROT +2 # define XCR ROT +3 # define FLDCR ROT +4 # define FSTCR ROT +5 # define FXCR ROT +6 # define NOP XCR +1 /* floating point instructions */ # define FADD NOP +1 # define FSUB NOP +2 # define FMUL NOP +3 # define FDIV NOP +4 # define FSQRT NOP +5 # define FCMP NOP +6 # define FIP NOP +7 # define FLT NOP +8 # define INT NOP +9 # define NINT NOP +10 # define TRNC NOP +11 # define FLDC NOP +12 # define FSTC NOP +13 # define FXC NOP +14 # define UEXT(src,off,wid) ((((unsigned int)(src))>>(off)) & ((1<<(wid)) - 1)) # define SEXT(src,off,wid) (((((int)(src))<<(32-((off)+(wid)))) >>(32-(wid))) ) # define MAKE(src,off,wid) \ ((((unsigned int)(src)) & ((1<<(wid)) - 1)) << (off)) # define opword(n) (unsigned long) (memaddr->mem.l) /* Constants and Masks */ #define SFU0 0x80000000 #define SFU1 0x84000000 #define SFU7 0x9c000000 #define RRI10 0xf0000000 #define RRR 0xf4000000 #define SFUMASK 0xfc00ffe0 #define RRRMASK 0xfc00ffe0 #define RRI10MASK 0xfc00fc00 #define DEFMASK 0xfc000000 #define CTRL 0x0000f000 #define CTRLMASK 0xfc00f800 /* Operands types */ enum operand_type { HEX = 1, REG = 2, CONT = 3, IND = 3, BF = 4, REGSC = 5 /* scaled register */, CRREG = 6 /* control register */, FCRREG = 7 /* floating point control register */, PCREL = 8, CONDMASK = 9, XREG = 10, /* extended register */ DEC = 11, /* decimal */ }; /* Hashing Specification */ #define HASHVAL 79 /* Type definitions */ typedef unsigned int UINT; /* Structure templates */ #if never typedef struct { unsigned int offset:5; unsigned int width:6; unsigned int type:5; } OPSPEC; #endif typedef struct { unsigned int offset; unsigned int width; enum operand_type type; } OPSPEC; struct SIM_FLAGS { int ltncy, /* latency (max number of clocks needed to execute) */ extime, /* execution time (min number of clocks needed to execute) */ wb_pri; /* writeback slot priority */ unsigned op:OP, /* simulator version of opcode */ imm_flags:2, /* 10,16 or 26 bit immediate flags */ rs1_used:1, /* register source 1 used */ rs2_used:1, /* register source 2 used */ rsd_used:1, /* register source/dest used */ c_flag:1, /* complement */ u_flag:1, /* upper half word */ n_flag:1, /* execute next */ wb_flag:1, /* uses writeback slot */ dest_64:1, /* double precision dest */ s1_64:1, /* double precision source 1 */ s2_64:1, /* double precision source 2 */ scale_flag:1; /* register is scaled */ }; typedef struct INSTRUCTAB { unsigned int opcode; char *mnemonic; OPSPEC op1,op2,op3; struct SIM_FLAGS flgs; struct INSTRUCTAB *next; } INSTAB; #define NO_OPERAND {0,0,0} /* Opcode Mnemonic Op 1 Spec Op 2 Spec Op 3 Spec Simflags Next */ static INSTAB instructions[] = { {0xf400c800,"jsr ",{0,5,REG} ,NO_OPERAND ,NO_OPERAND , {2,2,NA,JSR , 0,0,1,0,0,0,0,1,0,0,0,0}, NULL }, {0xf400cc00,"jsr.n ",{0,5,REG} ,NO_OPERAND ,NO_OPERAND , {1,1,NA,JSR , 0,0,1,0,0,0,1,1,0,0,0,0}, NULL }, {0xf400c000,"jmp ",{0,5,REG} ,NO_OPERAND ,NO_OPERAND , {2,2,NA,JMP , 0,0,1,0,0,0,0,1,0,0,0,0}, NULL }, {0xf400c400,"jmp.n ",{0,5,REG} ,NO_OPERAND ,NO_OPERAND , {1,1,NA,JMP , 0,0,1,0,0,0,1,1,0,0,0,0}, NULL }, {0xc8000000,"bsr ",{0,26,PCREL},NO_OPERAND ,NO_OPERAND , {2,2,NA,BSR , i26bit,0,0,0,0,0,0,1,0,0,0,0}, NULL }, {0xcc000000,"bsr.n ",{0,26,PCREL},NO_OPERAND ,NO_OPERAND , {1,1,NA,BSR , i26bit,0,0,0,0,0,1,1,0,0,0,0}, NULL }, {0xc0000000,"br ",{0,26,PCREL},NO_OPERAND ,NO_OPERAND , {2,2,NA,BR , i26bit,0,0,0,0,0,0,1,0,0,0,0}, NULL }, {0xc4000000,"br.n ",{0,26,PCREL},NO_OPERAND ,NO_OPERAND , {1,1,NA,BR , i26bit,0,0,0,0,0,1,1,0,0,0,0}, NULL }, {0xd0000000,"bb0 ",{21,5,HEX} ,{16,5,REG} ,{0,16,PCREL},{2,2,NA,BB0, i16bit,0,1,0,0,0,0,1,0,0,0,0}, NULL }, {0xd4000000,"bb0.n ",{21,5,HEX} ,{16,5,REG} ,{0,16,PCREL},{1,1,NA,BB0, i16bit,0,1,0,0,0,1,1,0,0,0,0}, NULL }, {0xd8000000,"bb1 ",{21,5,HEX},{16,5,REG} ,{0,16,PCREL},{2,2,NA,BB1, i16bit,0,1,0,0,0,0,1,0,0,0,0}, NULL }, {0xdc000000,"bb1.n ",{21,5,HEX},{16,5,REG} ,{0,16,PCREL},{1,1,NA,BB1, i16bit,0,1,0,0,0,1,1,0,0,0,0}, NULL }, {0xf000d000,"tb0 ",{21,5,HEX} ,{16,5,REG} ,{0,10,HEX}, {2,2,NA,TB0 , i10bit,0,1,0,0,0,0,1,0,0,0,0}, NULL }, {0xf000d800,"tb1 ",{21,5,HEX} ,{16,5,REG} ,{0,10,HEX}, {2,2,NA,TB1 , i10bit,0,1,0,0,0,0,1,0,0,0,0}, NULL }, {0xe8000000,"bcnd ",{21,5,CONDMASK},{16,5,REG},{0,16,PCREL},{2,2,NA,BCND, i16bit,0,1,0,0,0,0,1,0,0,0,0}, NULL }, {0xec000000,"bcnd.n ",{21,5,CONDMASK},{16,5,REG},{0,16,PCREL},{1,1,NA,BCND, i16bit,0,1,0,0,0,1,1,0,0,0,0}, NULL }, {0xf000e800,"tcnd ",{21,5,CONDMASK},{16,5,REG},{0,10,HEX}, {2,2,NA,TCND, i10bit,0,1,0,0,0,0,1,0,0,0,0}, NULL }, {0xf8000000,"tbnd ",{16,5,REG} ,{0,16,HEX} ,NO_OPERAND , {2,2,NA,TBND, i10bit,1,0,0,0,0,0,1,0,0,0,0}, NULL }, {0xf400f800,"tbnd ",{16,5,REG} ,{0,5,REG} ,NO_OPERAND , {2,2,NA,TBND, 0,1,1,0,0,0,0,1,0,0,0,0}, NULL }, {0xf400fc00,"rte ",NO_OPERAND ,NO_OPERAND ,NO_OPERAND , {2,2,NA,RTE , 0,0,0,0,0,0,0,1,0,0,0,0}, NULL }, {0x1c000000,"ld.b ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {3,1,PMEM,LDB ,i16bit,1,0,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4001c00,"ld.b ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,LDB , 0,1,1,1,0,0,0,1,0,0,0,0}, NULL }, {0x0c000000,"ld.bu ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {3,1,PMEM,LDBU, i16bit,1,0,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4000c00,"ld.bu ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,LDBU ,0,1,1,1,0,0,0,1,0,0,0,0}, NULL }, {0x18000000,"ld.h ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {3,1,PMEM,LDH ,i16bit,1,0,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4001800,"ld.h ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,LDH ,0,1,1,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4001a00,"ld.h ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{3,1,PMEM,LDH ,0,1,1,1,0,0,0,1,0,0,0,1}, NULL }, {0x08000000,"ld.hu ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {3,1,PMEM,LDHU, i16bit,1,0,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4000800,"ld.hu ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,LDHU ,0,1,1,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4000a00,"ld.hu ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{3,1,PMEM,LDHU ,0,1,1,1,0,0,0,1,0,0,0,1}, NULL }, {0x14000000,"ld ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {3,1,PMEM,LD ,i16bit,1,0,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4001400,"ld ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,LD ,0,1,1,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4001600,"ld ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{3,1,PMEM,LD ,0,1,1,1,0,0,0,1,0,0,0,1}, NULL }, {0x10000000,"ld.d ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {3,1,PMEM,LDD ,i16bit,1,0,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4001000,"ld.d ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,LDD ,0,1,1,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4001200,"ld.d ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{3,1,PMEM,LDD ,0,1,1,1,0,0,0,1,0,0,0,1}, NULL }, {0xf4001500,"ld.usr ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,LD ,0,1,1,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4001700,"ld.usr ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{3,1,PMEM,LD ,0,1,1,1,0,0,0,1,0,0,0,1}, NULL }, {0x2c000000,"st.b ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,NA,STB ,i16bit,1,0,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4002c00,"st.b ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,NA,STB ,0,1,1,1,0,0,0,1,0,0,0,0}, NULL }, {0x28000000,"st.h ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,NA,STH ,i16bit,1,0,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4002800,"st.h ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,NA,STH ,0,1,1,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4002a00,"st.h ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{1,1,NA,STH ,0,1,1,1,0,0,0,1,0,0,0,1}, NULL }, {0x24000000,"st ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,NA,ST ,i16bit,1,0,1,0,0,0,1,0,0,0,0}, NULL }, {0xf4002400,"st ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,NA,ST ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0xf4002600,"st ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{1,1,NA,ST ,0,1,1,1,0,0,0,1,0,0,0,1} ,NULL }, {0x20000000,"st.d ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,NA,STD ,i16bit,0,1,0,0,0,0,1,0,0,0,0} ,NULL }, {0xf4002000,"st.d ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,NA,STD ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0xf4002200,"st.d ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{1,1,NA,STD ,0,1,1,1,0,0,0,1,0,0,0,1} ,NULL }, {0xf4002500,"st.usr ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,NA,ST ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0xf4002700,"st.usr ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{1,1,NA,ST ,0,1,1,1,0,0,0,1,0,0,0,1} ,NULL }, /* m88100 only: {0x00000000,"xmem.bu ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {3,1,PMEM,XMEMBU ,i16bit,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, */ {0xf4000000,"xmem.bu ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,XMEM ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, /* m88100 only: {0x04000000,"xmem ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {3,1,PMEM,XMEM ,i16bit,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, */ {0xf4000400,"xmem ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,XMEM ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0xf4000600,"xmem ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{3,1,PMEM,XMEM ,0,1,1,1,0,0,0,1,0,0,0,1} ,NULL }, {0xf4000500,"xmem.usr ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {3,1,PMEM,XMEM ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0xf4000700,"xmem.usr ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{3,1,PMEM,XMEM ,0,1,1,1,0,0,0,1,0,0,0,1} ,NULL }, /* m88100 only: {0xf4003e00,"lda.b ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{1,1,PINT,LDAH, 0,1,1,1,0,0,0,0,0,0,0,1} ,NULL }, */ {0xf4003e00,"lda.x ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{1,1,PINT,LDAH, 0,1,1,1,0,0,0,0,0,0,0,1} ,NULL }, {0xf4003a00,"lda.h ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{1,1,PINT,LDAH, 0,1,1,1,0,0,0,0,0,0,0,1} ,NULL }, {0xf4003600,"lda ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{1,1,PINT,LDA , 0,1,1,1,0,0,0,0,0,0,0,1} ,NULL }, {0xf4003200,"lda.d ",{21,5,REG} ,{16,5,REG} ,{0,5,REGSC},{1,1,PINT,LDAD, 0,1,1,1,0,0,0,0,0,0,0,1} ,NULL }, {0x80004000,"ldcr ",{21,5,REG} ,{5,6,CRREG} ,NO_OPERAND ,{1,1,PINT,LDCR, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0x80008000,"stcr ",{16,5,REG} ,{5,6,CRREG} ,NO_OPERAND ,{1,1,PINT,STCR, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0x8000c000,"xcr ",{21,5,REG} ,{16,5,REG} ,{5,6,CRREG},{1,1,PINT,XCR, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006000,"addu ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,ADDU, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006200,"addu.ci ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,ADDU, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006100,"addu.co ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,ADDU, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006300,"addu.cio ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,ADDU, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006400,"subu ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,SUBU, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006600,"subu.ci ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,SUBU, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006500,"subu.co ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,SUBU, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006700,"subu.cio ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,SUBU, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006800,"divu ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {32,32,PINT,DIVU, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4006900,"divu.d ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,}, NULL }, {0xf4006e00,"muls ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,}, NULL }, {0xf4006c00,"mulu ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,4,PINT,MUL, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007000,"add ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,ADD , 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007200,"add.ci ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,ADD , 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007100,"add.co ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,ADD , 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007300,"add.cio ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,ADD , 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007400,"sub ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,SUB , 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007600,"sub.ci ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,SUB , 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007500,"sub.co ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,SUB , 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007700,"sub.cio ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,SUB , 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007800,"divs ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {32,32,PINT,DIV , 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4007c00,"cmp ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,CMP, 0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0x60000000,"addu ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,ADDU, i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x64000000,"subu ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,SUBU, i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x68000000,"divu ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {32,32,PINT,DIVU, i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x6c000000,"mulu ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {4,1,PINT,MUL, i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x70000000,"add ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,ADD, i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x74000000,"sub ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,SUB, i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x78000000,"divs ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {32,32,PINT,DIV, i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x7c000000,"cmp ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,CMP, i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4004000,"and ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,AND_ ,0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4004400,"and.c ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,AND_ ,0,1,1,1,1,0,0,0,0,0,0,0} ,NULL }, {0xf4005800,"or ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,OR ,0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4005c00,"or.c ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,OR ,0,1,1,1,1,0,0,0,0,0,0,0} ,NULL }, {0xf4005000,"xor ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,XOR ,0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4005400,"xor.c ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,XOR ,0,1,1,1,1,0,0,0,0,0,0,0} ,NULL }, {0x40000000,"and ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,AND_ ,i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x44000000,"and.u ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,AND_ ,i16bit,1,0,1,0,1,0,0,0,0,0,0} ,NULL }, {0x58000000,"or ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,OR ,i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x5c000000,"or.u ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,OR ,i16bit,1,0,1,0,1,0,0,0,0,0,0} ,NULL }, {0x50000000,"xor ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,XOR ,i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x54000000,"xor.u ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,XOR ,i16bit,1,0,1,0,1,0,0,0,0,0,0} ,NULL }, {0x48000000,"mask ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,MASK ,i16bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0x4c000000,"mask.u ",{21,5,REG} ,{16,5,REG} ,{0,16,HEX}, {1,1,PINT,MASK ,i16bit,1,0,1,0,1,0,0,0,0,0,0} ,NULL }, {0xf400ec00,"ff0 ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {1,1,PINT,FF0 ,0,0,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf400e800,"ff1 ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {1,1,PINT,FF1 ,0,0,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf0008000,"clr ",{21,5,REG} ,{16,5,REG} ,{0,10,BF} , {1,1,PINT,CLR ,i10bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf0008800,"set ",{21,5,REG} ,{16,5,REG} ,{0,10,BF} , {1,1,PINT,SET ,i10bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf0009000,"ext ",{21,5,REG} ,{16,5,REG} ,{0,10,BF} , {1,1,PINT,EXT ,i10bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf0009800,"extu ",{21,5,REG} ,{16,5,REG} ,{0,10,BF} , {1,1,PINT,EXTU ,i10bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf000a000,"mak ",{21,5,REG} ,{16,5,REG} ,{0,10,BF} , {1,1,PINT,MAK ,i10bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf000a800,"rot ",{21,5,REG} ,{16,5,REG} ,{0,10,BF} , {1,1,PINT,ROT ,i10bit,1,0,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4008000,"clr ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,CLR ,0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4008800,"set ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,SET ,0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4009000,"ext ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,EXT ,0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf4009800,"extu ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,EXTU ,0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf400a000,"mak ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,MAK ,0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0xf400a800,"rot ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {1,1,PINT,ROT ,0,1,1,1,0,0,0,0,0,0,0,0} ,NULL }, {0x84002800,"fadd.sss ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {5,1,PFLT,FADD ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84002880,"fadd.ssd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FADD ,0,1,1,1,0,0,0,1,0,0,1,0} ,NULL }, {0x84002a00,"fadd.sds ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FADD ,0,1,1,1,0,0,0,1,0,1,0,0} ,NULL }, {0x84002a80,"fadd.sdd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FADD ,0,1,1,1,0,0,0,1,0,1,1,0} ,NULL }, {0x84002820,"fadd.dss ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FADD ,0,1,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x840028a0,"fadd.dsd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FADD ,0,1,1,1,0,0,0,1,1,0,1,0} ,NULL }, {0x84002a20,"fadd.dds ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FADD ,0,1,1,1,0,0,0,1,1,1,0,0} ,NULL }, {0x84002aa0,"fadd.ddd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FADD ,0,1,1,1,0,0,0,1,1,1,1,0} ,NULL }, {0x84003000,"fsub.sss ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {5,1,PFLT,FSUB ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84003080,"fsub.ssd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FSUB ,0,1,1,1,0,0,0,1,0,0,1,0} ,NULL }, {0x84003200,"fsub.sds ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FSUB ,0,1,1,1,0,0,0,1,0,1,0,0} ,NULL }, {0x84003280,"fsub.sdd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FSUB ,0,1,1,1,0,0,0,1,0,1,1,0} ,NULL }, {0x84003020,"fsub.dss ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FSUB ,0,1,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x840030a0,"fsub.dsd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FSUB ,0,1,1,1,0,0,0,1,1,0,1,0} ,NULL }, {0x84003220,"fsub.dds ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FSUB ,0,1,1,1,0,0,0,1,1,1,0,0} ,NULL }, {0x840032a0,"fsub.ddd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,2,PFLT,FSUB ,0,1,1,1,0,0,0,1,1,1,1,0} ,NULL }, {0x84000000,"fmul.sss ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,1,PFLT,FMUL ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84000080,"fmul.ssd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {9,2,PFLT,FMUL ,0,1,1,1,0,0,0,1,0,0,1,0} ,NULL }, {0x84000200,"fmul.sds ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {9,2,PFLT,FMUL ,0,1,1,1,0,0,0,1,0,1,0,0} ,NULL }, {0x84000280,"fmul.sdd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {9,2,PFLT,FMUL ,0,1,1,1,0,0,0,1,0,1,1,0} ,NULL }, {0x84000020,"fmul.dss ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {9,2,PFLT,FMUL ,0,1,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x840000a0,"fmul.dsd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {9,2,PFLT,FMUL ,0,1,1,1,0,0,0,1,1,0,1,0} ,NULL }, {0x84000220,"fmul.dds ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {9,2,PFLT,FMUL ,0,1,1,1,0,0,0,1,1,1,0,0} ,NULL }, {0x840002a0,"fmul.ddd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {9,2,PFLT,FMUL ,0,1,1,1,0,0,0,1,1,1,1,0} ,NULL }, {0x84007000,"fdiv.sss ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {30,30,PFLT,FDIV ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84007080,"fdiv.ssd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {60,60,PFLT,FDIV ,0,1,1,1,0,0,0,1,0,0,1,0} ,NULL }, {0x84007200,"fdiv.sds ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {60,60,PFLT,FDIV ,0,1,1,1,0,0,0,1,0,1,0,0} ,NULL }, {0x84007280,"fdiv.sdd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {60,60,PFLT,FDIV ,0,1,1,1,0,0,0,1,0,1,1,0} ,NULL }, {0x84007020,"fdiv.dss ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {60,60,PFLT,FDIV ,0,1,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x840070a0,"fdiv.dsd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {60,60,PFLT,FDIV ,0,1,1,1,0,0,0,1,1,0,1,0} ,NULL }, {0x84007220,"fdiv.dds ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {60,60,PFLT,FDIV ,0,1,1,1,0,0,0,1,1,1,0,0} ,NULL }, {0x840072a0,"fdiv.ddd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {60,60,PFLT,FDIV ,0,1,1,1,0,0,0,1,1,1,1,0} ,NULL }, {0x84007800,"fsqrt.ss ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {5,1,PFLT,FLT ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84007820,"fsqrt.sd ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {5,1,PFLT,FLT ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84007880,"fsqrt.ds ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {5,1,PFLT,FLT ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x840078a0,"fsqrt.dd ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {6,1,PFLT,FLT ,0,0,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x84003800,"fcmp.ss ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {5,1,PFLT,FCMP ,0,1,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84003880,"fcmp.sd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,1,PFLT,FCMP ,0,1,1,1,0,0,0,1,0,1,0,0} ,NULL }, {0x84003a00,"fcmp.ds ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,1,PFLT,FCMP ,0,1,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x84003a80,"fcmp.dd ",{21,5,REG} ,{16,5,REG} ,{0,5,REG} , {6,1,PFLT,FCMP ,0,1,1,1,0,0,0,1,1,1,0,0} ,NULL }, {0x84002000,"flt.s ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {5,1,PFLT,FLT ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84002020,"flt.d ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {6,1,PFLT,FLT ,0,0,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x84004800,"int.s ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {5,1,PFLT,INT ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84004880,"int.d ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {6,1,PFLT,INT ,0,0,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x84005000,"nint.s ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {5,1,PFLT,INT ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84005080,"nint.d ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {6,1,PFLT,INT ,0,0,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x84005800,"trnc.s ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {5,1,PFLT,TRNC ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x84005880,"trnc.d ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND , {6,1,PFLT,TRNC ,0,0,1,1,0,0,0,1,1,0,0,0} ,NULL }, {0x80004800,"fldcr ",{21,5,REG} ,{5,6,FCRREG} ,NO_OPERAND , {1,1,PFLT,FLDC ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x80008800,"fstcr ",{16,5,REG} ,{5,6,FCRREG} ,NO_OPERAND , {1,1,PFLT,FSTC ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, {0x8000c800,"fxcr ",{21,5,REG} ,{16,5,REG} ,{5,6,FCRREG} , {1,1,PFLT,FXC ,0,0,1,1,0,0,0,1,0,0,0,0} ,NULL }, /* The following are new for the 88110. */ {0x8400aaa0,"fadd.ddd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400aa80,"fadd.dds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400aac0,"fadd.ddx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400aa20,"fadd.dsd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400aa00,"fadd.dss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400aa40,"fadd.dsx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ab20,"fadd.dxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ab00,"fadd.dxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ab40,"fadd.dxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400a8a0,"fadd.sdd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400a880,"fadd.sds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400a8c0,"fadd.sdx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400a820,"fadd.ssd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400a800,"fadd.sss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400a840,"fadd.ssx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400a920,"fadd.sxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400a900,"fadd.sxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400a940,"fadd.sxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400aca0,"fadd.xdd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ac80,"fadd.xds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400acc0,"fadd.xdx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ac20,"fadd.xsd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ac00,"fadd.xss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ac40,"fadd.xsx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ad20,"fadd.xxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ad00,"fadd.xxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ad40,"fadd.xxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ba80,"fcmp.sdd ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ba00,"fcmp.sds ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400bb00,"fcmp.sdx ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b880,"fcmp.ssd ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b800,"fcmp.sss ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b900,"fcmp.ssx ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400bc80,"fcmp.sxd ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400bc00,"fcmp.sxs ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400bd00,"fcmp.sxx ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400baa0,"fcmpu.sdd ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400ba20,"fcmpu.sds ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400bb20,"fcmpu.sdx ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b8a0,"fcmpu.ssd ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b820,"fcmpu.sss ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b920,"fcmpu.ssx ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400bca0,"fcmpu.sxd ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400bc20,"fcmpu.sxs ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400bd20,"fcmpu.sxx ",{21,5,REG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84000820,"fcvt.sd ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84000880,"fcvt.ds ",{21,5,REG} ,{0,5,REG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008880,"fcvt.ds ",{21,5,XREG} ,{0,5,XREG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x840088c0,"fcvt.dx ",{21,5,XREG} ,{0,5,XREG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008820,"fcvt.sd ",{21,5,XREG} ,{0,5,XREG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008840,"fcvt.sx ",{21,5,XREG} ,{0,5,XREG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008920,"fcvt.xd ",{21,5,XREG} ,{0,5,XREG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008900,"fcvt.xs ",{21,5,XREG} ,{0,5,XREG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f2a0,"fdiv.ddd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f280,"fdiv.dds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f2c0,"fdiv.ddx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f220,"fdiv.dsd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f200,"fdiv.dss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f240,"fdiv.dsx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f320,"fdiv.dxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f300,"fdiv.dxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f340,"fdiv.dxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f0a0,"fdiv.sdd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f080,"fdiv.sds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f0c0,"fdiv.sdx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f020,"fdiv.ssd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f000,"fdiv.sss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f040,"fdiv.ssx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f120,"fdiv.sxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f100,"fdiv.sxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f140,"fdiv.sxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f4a0,"fdiv.xdd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f480,"fdiv.xds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f4c0,"fdiv.xdx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f420,"fdiv.xsd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f400,"fdiv.xss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f440,"fdiv.xsx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f520,"fdiv.xxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f500,"fdiv.xxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f540,"fdiv.xxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84002220,"flt.ds ",{21,5,XREG} ,{0,5,REG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84002200,"flt.ss ",{21,5,XREG} ,{0,5,REG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84002240,"flt.xs ",{21,5,XREG} ,{0,5,REG} ,NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x840082a0,"fmul.ddd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008280,"fmul.dds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x840082c0,"fmul.ddx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008220,"fmul.dsd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008200,"fmul.dss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008240,"fmul.dsx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008320,"fmul.dxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008300,"fmul.dxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008340,"fmul.dxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x840080a0,"fmul.sdd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008080,"fmul.sds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x840080c0,"fmul.sdx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008020,"fmul.ssd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008000,"fmul.sss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008040,"fmul.ssx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008120,"fmul.sxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008100,"fmul.sxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008140,"fmul.sxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x840084a0,"fmul.xdd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008480,"fmul.xds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x840084c0,"fmul.xdx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008420,"fmul.xsd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008400,"fmul.xss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008440,"fmul.xsx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008520,"fmul.xxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008500,"fmul.xxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84008540,"fmul.xxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f8a0,"fsqrt.dd ",{21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f880,"fsqrt.ds ",{21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f8c0,"fsqrt.dx ",{21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f820,"fsqrt.sd ",{21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f800,"fsqrt.ss ",{21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f840,"fsqrt.sx ",{21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f920,"fsqrt.xd ",{21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f900,"fsqrt.xs ",{21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400f940,"fsqrt.xx ",{21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b2a0,"fsub.ddd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b280,"fsub.dds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b2c0,"fsub.ddx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b220,"fsub.dsd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b200,"fsub.dss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b240,"fsub.dsx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b320,"fsub.dxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b300,"fsub.dxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b340,"fsub.dxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b0a0,"fsub.sdd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b080,"fsub.sds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b0c0,"fsub.sdx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b020,"fsub.ssd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b000,"fsub.sss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b040,"fsub.ssx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b120,"fsub.sxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b100,"fsub.sxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b140,"fsub.sxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b4a0,"fsub.xdd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b480,"fsub.xds ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b4c0,"fsub.xdx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b420,"fsub.xsd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b400,"fsub.xss ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b440,"fsub.xsx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b520,"fsub.xxd ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b500,"fsub.xxs ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400b540,"fsub.xxx ",{21,5,XREG} ,{16,5,XREG} ,{0,5,XREG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400fc00,"illop", {0,2,DEC}, NO_OPERAND, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400c800,"int.ss ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400c880,"int.sd ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400c900,"int.sx ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x04000000,"ld ", {21,5,XREG}, {16,5,REG}, {0,16,HEX}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x00000000,"ld.d ", {21,5,XREG}, {16,5,REG}, {0,16,HEX}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x3c000000,"ld.x ", {21,5,XREG}, {16,5,REG}, {0,16,HEX}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001400,"ld ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001000,"ld.d ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001800,"ld.x ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001500,"ld.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001100,"ld.d.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001900,"ld.x.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001600,"ld ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001200,"ld.d ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001a00,"ld.x ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001700,"ld.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001300,"ld.d.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0001b00,"ld.x.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400c000,"mov.s ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400c080,"mov.d ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84004200,"mov.s ", {21,5,XREG}, {0,5,REG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x84004280,"mov.d ", {21,5,XREG}, {0,5,REG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400c300,"mov ", {21,5,XREG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4006d00,"mulu.d ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400d080,"nint.sd ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400d000,"nint.ss ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400d100,"nint.sx ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88002020,"padd.b ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88002040,"padd.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88002060,"padd ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880021e0,"padds.s ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880021a0,"padds.s.b ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880021c0,"padds.s.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880020e0,"padds.u ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880020a0,"padds.u.b ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880020c0,"padds.u.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88002160,"padds.us ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88002120,"padds.us.b ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88002140,"padds.us.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88003860,"pcmp ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88000000,"pmul ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88006260,"ppack.16 ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88006240,"ppack.16.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88006460,"ppack.32 ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88006420,"ppack.32.b ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88006440,"ppack.32.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88006160,"ppack.8 ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88007200,"prot ", {21,5,REG}, {16,5,REG}, {5,6,HEX}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88007800,"prot ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88003020,"psub.b ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88003040,"psub.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88003060,"psub ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880031e0,"psubs.s ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880031a0,"psubs.s.b ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880031c0,"psubs.s.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880030e0,"psubs.u ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880030a0,"psubs.u.b ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x880030c0,"psubs.u.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88003160,"psubs.us ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88003120,"psubs.us.b ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88003140,"psubs.us.h ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88006800,"punpk.n ", {21,5,REG}, {16,5,REG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x88006820,"punpk.b ", {21,5,REG}, {16,5,REG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x34000000,"st ", {21,5,XREG}, {16,5,REG}, {0,16,HEX}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x30000000,"st.d ", {21,5,XREG}, {16,5,REG}, {0,16,HEX}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x38000000,"st.x ", {21,5,XREG}, {16,5,REG}, {0,16,HEX}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002c80,"st.b.wt ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002880,"st.h.wt ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002480,"st.wt ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002080,"st.d.wt ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002d80,"st.b.usr.wt ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002980,"st.h.usr.wt ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002580,"st.usr.wt ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002180,"st.d.usr.wt ", {21,5,REG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002400,"st ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002000,"st.d ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002100,"st.d.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002180,"st.d.usr.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002080,"st.d.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002500,"st.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002580,"st.usr.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002480,"st.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002800,"st.x ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002900,"st.x.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002980,"st.x.usr.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002880,"st.x.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REG}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002f80,"st.b.usr.wt ", {21,5,REG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002e80,"st.b.wt ", {21,5,REG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002380,"st.d.usr.wt ", {21,5,REG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002280,"st.d.wt ", {21,5,REG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002b80,"st.h.usr.wt ", {21,5,REG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002a80,"st.h.wt ", {21,5,REG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002780,"st.usr.wt ", {21,5,REG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf4002680,"st.wt ", {21,5,REG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002600,"st ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002200,"st.d ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002300,"st.d.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002380,"st.d.usr.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002280,"st.d.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002700,"st.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002780,"st.usr.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002680,"st.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002a00,"st.x ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002b00,"st.x.usr ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002b80,"st.x.usr.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0xf0002a80,"st.x.wt ", {21,5,XREG}, {16,5,REG}, {0,5,REGSC}, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400d880,"trnc.sd ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400d800,"trnc.ss ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, {0x8400d900,"trnc.sx ", {21,5,REG}, {0,5,XREG}, NO_OPERAND, {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, NULL }, }; /* * Local Variables: * fill-column: 131 * End: */ gdb-4.13/include/opcode/mips.h 666 34562 1752 30643 5472522024 14602 0ustar fnfcygnus/* mips.h. Mips opcode list for GDB, the GNU debugger. Copyright 1993 Free Software Foundation, Inc. Contributed by Ralph Campbell and OSF Commented and modified by Ian Lance Taylor, Cygnus Support This file is part of GDB, GAS, and the GNU binutils. GDB, GAS, and the GNU binutils are free software; you can redistribute them and/or modify them under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. GDB, GAS, and the GNU binutils are distributed in the hope that they 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 file; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* These are bit masks and shift counts to use to access the various fields of an instruction. To retrieve the X field of an instruction, use the expression (i >> OP_SH_X) & OP_MASK_X To set the same field (to j), use i = (i &~ (OP_MASK_X << OP_SH_X)) | (j << OP_SH_X) Make sure you use fields that are appropriate for the instruction, of course. The 'i' format uses OP, RS, RT and IMMEDIATE. The 'j' format uses OP and TARGET. The 'r' format uses OP, RS, RT, RD, SHAMT and FUNCT. The 'b' format uses OP, RS, RT and DELTA. The floating point 'i' format uses OP, RS, RT and IMMEDIATE. The floating point 'r' format uses OP, FMT, FT, FS, FD and FUNCT. A breakpoint instruction uses OP, CODE and SPEC (10 bits of the breakpoint instruction are not defined; Kane says the breakpoint code field in BREAK is 20 bits; yet MIPS assemblers and debuggers only use ten bits). The syscall instruction uses SYSCALL. The general coprocessor instructions use COPZ. */ #define OP_MASK_OP 0x3f #define OP_SH_OP 26 #define OP_MASK_RS 0x1f #define OP_SH_RS 21 #define OP_MASK_FMT 0x1f #define OP_SH_FMT 21 #define OP_MASK_CODE 0x3ff #define OP_SH_CODE 16 #define OP_MASK_RT 0x1f #define OP_SH_RT 16 #define OP_MASK_FT 0x1f #define OP_SH_FT 16 #define OP_MASK_CACHE 0x1f #define OP_SH_CACHE 16 #define OP_MASK_RD 0x1f #define OP_SH_RD 11 #define OP_MASK_FS 0x1f #define OP_SH_FS 11 #define OP_MASK_SYSCALL 0xfffff #define OP_SH_SYSCALL 6 #define OP_MASK_SHAMT 0x1f #define OP_SH_SHAMT 6 #define OP_MASK_FD 0x1f #define OP_SH_FD 6 #define OP_MASK_TARGET 0x3ffffff #define OP_SH_TARGET 0 #define OP_MASK_COPZ 0x1ffffff #define OP_SH_COPZ 0 #define OP_MASK_IMMEDIATE 0xffff #define OP_SH_IMMEDIATE 0 #define OP_MASK_DELTA 0xffff #define OP_SH_DELTA 0 #define OP_MASK_FUNCT 0x3f #define OP_SH_FUNCT 0 #define OP_MASK_SPEC 0x3f #define OP_SH_SPEC 0 /* This structure holds information for a particular instruction. */ struct mips_opcode { /* The name of the instruction. */ const char *name; /* A string describing the arguments for this instruction. */ const char *args; /* The basic opcode for the instruction. When assembling, this opcode is modified by the arguments to produce the actual opcode that is used. If pinfo is INSN_MACRO, then this is instead the ISA level of the macro (0 or 1 is always supported, 2 is ISA 2, etc.). */ unsigned long match; /* If pinfo is not INSN_MACRO, then this is a bit mask for the relevant portions of the opcode when disassembling. If the actual opcode anded with the match field equals the opcode field, then we have found the correct instruction. If pinfo is INSN_MACRO, then this field is the macro identifier. */ unsigned long mask; /* For a macro, this is INSN_MACRO. Otherwise, it is a collection of bits describing the instruction, notably any relevant hazard information. */ unsigned long pinfo; }; /* These are the characters which may appears in the args field of an instruction. They appear in the order in which the fields appear when the instruction is used. Commas and parentheses in the args string are ignored when assembling, and written into the output when disassembling. Each of these characters corresponds to a mask field defined above. "<" 5 bit shift amount (OP_*_SHAMT) ">" shift amount between 32 and 63, stored after subtracting 32 (OP_*_SHAMT) "a" 26 bit target address (OP_*_TARGET) "b" 5 bit base register (OP_*_RS) "c" 10 bit breakpoint code (OP_*_CODE) "d" 5 bit destination register specifier (OP_*_RD) "i" 16 bit unsigned immediate (OP_*_IMMEDIATE) "j" 16 bit signed immediate (OP_*_DELTA) "k" 5 bit cache opcode in target register position (OP_*_CACHE) "o" 16 bit signed offset (OP_*_DELTA) "p" 16 bit PC relative branch target address (OP_*_DELTA) "r" 5 bit same register used as both source and target (OP_*_RS) "s" 5 bit source register specifier (OP_*_RS) "t" 5 bit target register (OP_*_RT) "u" 16 bit upper 16 bits of address (OP_*_IMMEDIATE) "v" 5 bit same register used as both source and destination (OP_*_RS) "w" 5 bit same register used as both target and destination (OP_*_RT) "C" 25 bit coprocessor function code (OP_*_COPZ) "B" 20 bit syscall function code (OP_*_SYSCALL) "x" accept and ignore register name "z" must be zero register Floating point instructions: "D" 5 bit destination register (OP_*_FD) "S" 5 bit fs source 1 register (OP_*_FS) "T" 5 bit ft source 2 register (OP_*_FT) "V" 5 bit same register used as floating source and destination (OP_*_FS) "W" 5 bit same register used as floating target and destination (OP_*_FT) Coprocessor instructions: "E" 5 bit target register (OP_*_RT) "G" 5 bit destination register (OP_*_RD) Macro instructions: "A" General 32 bit expression "I" 32 bit immediate "F" 64 bit floating point constant in .rdata "L" 64 bit floating point constant in .lit8 "f" 32 bit floating point constant "l" 32 bit floating point constant in .lit4 */ /* These are the bits which may be set in the pinfo field of an instructions, if it is not equal to INSN_MACRO. */ /* Modifies the general purpose register in OP_*_RD. */ #define INSN_WRITE_GPR_D 0x00000001 /* Modifies the general purpose register in OP_*_RT. */ #define INSN_WRITE_GPR_T 0x00000002 /* Modifies general purpose register 31. */ #define INSN_WRITE_GPR_31 0x00000004 /* Modifies the floating point register in OP_*_FD. */ #define INSN_WRITE_FPR_D 0x00000008 /* Modifies the floating point register in OP_*_FS. */ #define INSN_WRITE_FPR_S 0x00000010 /* Modifies the floating point register in OP_*_FT. */ #define INSN_WRITE_FPR_T 0x00000020 /* Reads the general purpose register in OP_*_RS. */ #define INSN_READ_GPR_S 0x00000040 /* Reads the general purpose register in OP_*_RT. */ #define INSN_READ_GPR_T 0x00000080 /* Reads the floating point register in OP_*_FS. */ #define INSN_READ_FPR_S 0x00000100 /* Reads the floating point register in OP_*_FT. */ #define INSN_READ_FPR_T 0x00000200 /* Modifies coprocessor condition code. */ #define INSN_WRITE_COND_CODE 0x00000400 /* Reads coprocessor condition code. */ #define INSN_READ_COND_CODE 0x00000800 /* TLB operation. */ #define INSN_TLB 0x00001000 /* RFE (return from exception) instruction. */ #define INSN_RFE 0x00002000 /* Reads coprocessor register other than floating point register. */ #define INSN_COP 0x00004000 /* Instruction loads value from memory, requiring delay. */ #define INSN_LOAD_MEMORY_DELAY 0x00008000 /* Instruction loads value from coprocessor, requiring delay. */ #define INSN_LOAD_COPROC_DELAY 0x00010000 /* Instruction has unconditional branch delay slot. */ #define INSN_UNCOND_BRANCH_DELAY 0x00020000 /* Instruction has conditional branch delay slot. */ #define INSN_COND_BRANCH_DELAY 0x00040000 /* Conditional branch likely: if branch not taken, insn nullified. */ #define INSN_COND_BRANCH_LIKELY 0x00080000 /* Moves to coprocessor register, requiring delay. */ #define INSN_COPROC_MOVE_DELAY 0x00100000 /* Loads coprocessor register from memory, requiring delay. */ #define INSN_COPROC_MEMORY_DELAY 0x00200000 /* Reads the HI register. */ #define INSN_READ_HI 0x00400000 /* Reads the LO register. */ #define INSN_READ_LO 0x00800000 /* Modifies the HI register. */ #define INSN_WRITE_HI 0x01000000 /* Modifies the LO register. */ #define INSN_WRITE_LO 0x02000000 /* Takes a trap (easier to keep out of delay slot). */ #define INSN_TRAP 0x04000000 /* MIPS ISA 2 instruction (R6000 or R4000). */ #define INSN_ISA2 0x10000000 /* MIPS ISA 3 instruction (R4000). */ #define INSN_ISA3 0x20000000 /* Instruction is actually a macro. It should be ignored by the disassembler, and requires special treatment by the assembler. */ #define INSN_MACRO 0xffffffff /* This is a list of macro expanded instructions. * * _I appended means immediate * _A appended means address * _AB appended means address with base register * _D appended means 64 bit floating point constant * _S appended means 32 bit floating point constant */ enum { M_ABS, M_ADD_I, M_ADDU_I, M_AND_I, M_BEQ_I, M_BEQL_I, M_BGE, M_BGEL, M_BGE_I, M_BGEL_I, M_BGEU, M_BGEUL, M_BGEU_I, M_BGEUL_I, M_BGT, M_BGTL, M_BGT_I, M_BGTL_I, M_BGTU, M_BGTUL, M_BGTU_I, M_BGTUL_I, M_BLE, M_BLEL, M_BLE_I, M_BLEL_I, M_BLEU, M_BLEUL, M_BLEU_I, M_BLEUL_I, M_BLT, M_BLTL, M_BLT_I, M_BLTL_I, M_BLTU, M_BLTUL, M_BLTU_I, M_BLTUL_I, M_BNE_I, M_BNEL_I, M_DABS, M_DADD_I, M_DADDU_I, M_DDIV_3, M_DDIV_3I, M_DDIVU_3, M_DDIVU_3I, M_DIV_3, M_DIV_3I, M_DIVU_3, M_DIVU_3I, M_DMUL, M_DMUL_I, M_DMULO, M_DMULO_I, M_DMULOU, M_DMULOU_I, M_DREM_3, M_DREM_3I, M_DREMU_3, M_DREMU_3I, M_DSUB_I, M_DSUBU_I, M_J_A, M_JAL_1, M_JAL_2, M_JAL_A, M_L_DOB, M_L_DAB, M_LA_AB, M_LB_A, M_LB_AB, M_LBU_A, M_LBU_AB, M_LD_A, M_LD_OB, M_LD_AB, M_LDC1_AB, M_LDC2_AB, M_LDC3_AB, M_LDL_AB, M_LDR_AB, M_LH_A, M_LH_AB, M_LHU_A, M_LHU_AB, M_LI, M_LI_D, M_LI_DD, M_LI_S, M_LI_SS, M_LL_AB, M_LLD_AB, M_LS_A, M_LW_A, M_LW_AB, M_LWC0_A, M_LWC0_AB, M_LWC1_A, M_LWC1_AB, M_LWC2_A, M_LWC2_AB, M_LWC3_A, M_LWC3_AB, M_LWL_A, M_LWL_AB, M_LWR_A, M_LWR_AB, M_LWU_AB, M_MUL, M_MUL_I, M_MULO, M_MULO_I, M_MULOU, M_MULOU_I, M_NOR_I, M_OR_I, M_REM_3, M_REM_3I, M_REMU_3, M_REMU_3I, M_ROL, M_ROL_I, M_ROR, M_ROR_I, M_S_DA, M_S_DOB, M_S_DAB, M_S_S, M_SC_AB, M_SCD_AB, M_SD_A, M_SD_OB, M_SD_AB, M_SDC1_AB, M_SDC2_AB, M_SDC3_AB, M_SDL_AB, M_SDR_AB, M_SEQ, M_SEQ_I, M_SGE, M_SGE_I, M_SGEU, M_SGEU_I, M_SGT, M_SGT_I, M_SGTU, M_SGTU_I, M_SLE, M_SLE_I, M_SLEU, M_SLEU_I, M_SLT_I, M_SLTU_I, M_SNE, M_SNE_I, M_SB_A, M_SB_AB, M_SH_A, M_SH_AB, M_SW_A, M_SW_AB, M_SWC0_A, M_SWC0_AB, M_SWC1_A, M_SWC1_AB, M_SWC2_A, M_SWC2_AB, M_SWC3_A, M_SWC3_AB, M_SWL_A, M_SWL_AB, M_SWR_A, M_SWR_AB, M_SUB_I, M_SUBU_I, M_TEQ_I, M_TGE_I, M_TGEU_I, M_TLT_I, M_TLTU_I, M_TNE_I, M_TRUNCWD, M_TRUNCWS, M_ULH, M_ULH_A, M_ULHU, M_ULHU_A, M_ULW, M_ULW_A, M_USH, M_USH_A, M_USW, M_USW_A, M_XOR_I }; /* The order of overloaded instructions matters. Label arguments and register arguments look the same. Instructions that can have either for arguments must apear in the correct order in this table for the assembler to pick the right one. In other words, entries with immediate operands must apear after the same instruction with registers. Many instructions are short hand for other instructions (i.e., The jal instruction is short for jalr ). */ extern const struct mips_opcode mips_opcodes[]; extern const int bfd_mips_num_opcodes; #define NUMOPCODES bfd_mips_num_opcodes gdb-4.13/include/opcode/np1.h 666 34562 1752 43370 5116043555 14333 0ustar fnfcygnus/* Print GOULD NPL instructions for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. GDB 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 1, or (at your option) any later version. GDB 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 GDB; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ struct gld_opcode { char *name; unsigned long opcode; unsigned long mask; char *args; int length; }; /* We store four bytes of opcode for all opcodes because that is the most any of them need. The actual length of an instruction is always at least 2 bytes, and at most four. The length of the instruction is based on the opcode. The mask component is a mask saying which bits must match particular opcode in order for an instruction to be an instance of that opcode. The args component is a string containing characters that are used to format the arguments to the instruction. */ /* Kinds of operands: r Register in first field R Register in second field b Base register in first field B Base register in second field v Vector register in first field V Vector register in first field A Optional address register (base register) X Optional index register I Immediate data (16bits signed) O Offset field (16bits signed) h Offset field (15bits signed) d Offset field (14bits signed) S Shift count field any other characters are printed as is... */ /* The assembler requires that this array be sorted as follows: all instances of the same mnemonic must be consecutive. All instances of the same mnemonic with the same number of operands must be consecutive. */ struct gld_opcode gld_opcodes[] = { { "lb", 0xb4080000, 0xfc080000, "r,xOA,X", 4 }, { "lnb", 0xb8080000, 0xfc080000, "r,xOA,X", 4 }, { "lbs", 0xec080000, 0xfc080000, "r,xOA,X", 4 }, { "lh", 0xb4000001, 0xfc080001, "r,xOA,X", 4 }, { "lnh", 0xb8000001, 0xfc080001, "r,xOA,X", 4 }, { "lw", 0xb4000000, 0xfc080000, "r,xOA,X", 4 }, { "lnw", 0xb8000000, 0xfc080000, "r,xOA,X", 4 }, { "ld", 0xb4000002, 0xfc080002, "r,xOA,X", 4 }, { "lnd", 0xb8000002, 0xfc080002, "r,xOA,X", 4 }, { "li", 0xf8000000, 0xfc7f0000, "r,I", 4 }, { "lpa", 0x50080000, 0xfc080000, "r,xOA,X", 4 }, { "la", 0x50000000, 0xfc080000, "r,xOA,X", 4 }, { "labr", 0x58080000, 0xfc080000, "b,xOA,X", 4 }, { "lbp", 0x90080000, 0xfc080000, "r,xOA,X", 4 }, { "lhp", 0x90000001, 0xfc080001, "r,xOA,X", 4 }, { "lwp", 0x90000000, 0xfc080000, "r,xOA,X", 4 }, { "ldp", 0x90000002, 0xfc080002, "r,xOA,X", 4 }, { "suabr", 0x58000000, 0xfc080000, "b,xOA,X", 4 }, { "lf", 0xbc000000, 0xfc080000, "r,xOA,X", 4 }, { "lfbr", 0xbc080000, 0xfc080000, "b,xOA,X", 4 }, { "lwbr", 0x5c000000, 0xfc080000, "b,xOA,X", 4 }, { "stb", 0xd4080000, 0xfc080000, "r,xOA,X", 4 }, { "sth", 0xd4000001, 0xfc080001, "r,xOA,X", 4 }, { "stw", 0xd4000000, 0xfc080000, "r,xOA,X", 4 }, { "std", 0xd4000002, 0xfc080002, "r,xOA,X", 4 }, { "stf", 0xdc000000, 0xfc080000, "r,xOA,X", 4 }, { "stfbr", 0xdc080000, 0xfc080000, "b,xOA,X", 4 }, { "stwbr", 0x54000000, 0xfc080000, "b,xOA,X", 4 }, { "zmb", 0xd8080000, 0xfc080000, "r,xOA,X", 4 }, { "zmh", 0xd8000001, 0xfc080001, "r,xOA,X", 4 }, { "zmw", 0xd8000000, 0xfc080000, "r,xOA,X", 4 }, { "zmd", 0xd8000002, 0xfc080002, "r,xOA,X", 4 }, { "stbp", 0x94080000, 0xfc080000, "r,xOA,X", 4 }, { "sthp", 0x94000001, 0xfc080001, "r,xOA,X", 4 }, { "stwp", 0x94000000, 0xfc080000, "r,xOA,X", 4 }, { "stdp", 0x94000002, 0xfc080002, "r,xOA,X", 4 }, { "lil", 0xf80b0000, 0xfc7f0000, "r,D", 4 }, { "lwsl1", 0xec000000, 0xfc080000, "r,xOA,X", 4 }, { "lwsl2", 0xfc000000, 0xfc080000, "r,xOA,X", 4 }, { "lwsl3", 0xfc080000, 0xfc080000, "r,xOA,X", 4 }, { "lvb", 0xb0080000, 0xfc080000, "v,xOA,X", 4 }, { "lvh", 0xb0000001, 0xfc080001, "v,xOA,X", 4 }, { "lvw", 0xb0000000, 0xfc080000, "v,xOA,X", 4 }, { "lvd", 0xb0000002, 0xfc080002, "v,xOA,X", 4 }, { "liv", 0x3c040000, 0xfc0f0000, "v,R", 2 }, { "livf", 0x3c080000, 0xfc0f0000, "v,R", 2 }, { "stvb", 0xd0080000, 0xfc080000, "v,xOA,X", 4 }, { "stvh", 0xd0000001, 0xfc080001, "v,xOA,X", 4 }, { "stvw", 0xd0000000, 0xfc080000, "v,xOA,X", 4 }, { "stvd", 0xd0000002, 0xfc080002, "v,xOA,X", 4 }, { "trr", 0x2c000000, 0xfc0f0000, "r,R", 2 }, { "trn", 0x2c040000, 0xfc0f0000, "r,R", 2 }, { "trnd", 0x2c0c0000, 0xfc0f0000, "r,R", 2 }, { "trabs", 0x2c010000, 0xfc0f0000, "r,R", 2 }, { "trabsd", 0x2c090000, 0xfc0f0000, "r,R", 2 }, { "trc", 0x2c030000, 0xfc0f0000, "r,R", 2 }, { "xcr", 0x28040000, 0xfc0f0000, "r,R", 2 }, { "cxcr", 0x2c060000, 0xfc0f0000, "r,R", 2 }, { "cxcrd", 0x2c0e0000, 0xfc0f0000, "r,R", 2 }, { "tbrr", 0x2c020000, 0xfc0f0000, "r,B", 2 }, { "trbr", 0x28030000, 0xfc0f0000, "b,R", 2 }, { "xcbr", 0x28020000, 0xfc0f0000, "b,B", 2 }, { "tbrbr", 0x28010000, 0xfc0f0000, "b,B", 2 }, { "trvv", 0x28050000, 0xfc0f0000, "v,V", 2 }, { "trvvn", 0x2c050000, 0xfc0f0000, "v,V", 2 }, { "trvvnd", 0x2c0d0000, 0xfc0f0000, "v,V", 2 }, { "trvab", 0x2c070000, 0xfc0f0000, "v,V", 2 }, { "trvabd", 0x2c0f0000, 0xfc0f0000, "v,V", 2 }, { "cmpv", 0x14060000, 0xfc0f0000, "v,V", 2 }, { "expv", 0x14070000, 0xfc0f0000, "v,V", 2 }, { "mrvvlt", 0x10030000, 0xfc0f0000, "v,V", 2 }, { "mrvvle", 0x10040000, 0xfc0f0000, "v,V", 2 }, { "mrvvgt", 0x14030000, 0xfc0f0000, "v,V", 2 }, { "mrvvge", 0x14040000, 0xfc0f0000, "v,V", 2 }, { "mrvveq", 0x10050000, 0xfc0f0000, "v,V", 2 }, { "mrvvne", 0x10050000, 0xfc0f0000, "v,V", 2 }, { "mrvrlt", 0x100d0000, 0xfc0f0000, "v,R", 2 }, { "mrvrle", 0x100e0000, 0xfc0f0000, "v,R", 2 }, { "mrvrgt", 0x140d0000, 0xfc0f0000, "v,R", 2 }, { "mrvrge", 0x140e0000, 0xfc0f0000, "v,R", 2 }, { "mrvreq", 0x100f0000, 0xfc0f0000, "v,R", 2 }, { "mrvrne", 0x140f0000, 0xfc0f0000, "v,R", 2 }, { "trvr", 0x140b0000, 0xfc0f0000, "r,V", 2 }, { "trrv", 0x140c0000, 0xfc0f0000, "v,R", 2 }, { "bu", 0x40000000, 0xff880000, "xOA,X", 4 }, { "bns", 0x70080000, 0xff880000, "xOA,X", 4 }, { "bnco", 0x70880000, 0xff880000, "xOA,X", 4 }, { "bge", 0x71080000, 0xff880000, "xOA,X", 4 }, { "bne", 0x71880000, 0xff880000, "xOA,X", 4 }, { "bunge", 0x72080000, 0xff880000, "xOA,X", 4 }, { "bunle", 0x72880000, 0xff880000, "xOA,X", 4 }, { "bgt", 0x73080000, 0xff880000, "xOA,X", 4 }, { "bnany", 0x73880000, 0xff880000, "xOA,X", 4 }, { "bs" , 0x70000000, 0xff880000, "xOA,X", 4 }, { "bco", 0x70800000, 0xff880000, "xOA,X", 4 }, { "blt", 0x71000000, 0xff880000, "xOA,X", 4 }, { "beq", 0x71800000, 0xff880000, "xOA,X", 4 }, { "buge", 0x72000000, 0xff880000, "xOA,X", 4 }, { "bult", 0x72800000, 0xff880000, "xOA,X", 4 }, { "ble", 0x73000000, 0xff880000, "xOA,X", 4 }, { "bany", 0x73800000, 0xff880000, "xOA,X", 4 }, { "brlnk", 0x44000000, 0xfc080000, "r,xOA,X", 4 }, { "bib", 0x48000000, 0xfc080000, "r,xOA,X", 4 }, { "bih", 0x48080000, 0xfc080000, "r,xOA,X", 4 }, { "biw", 0x4c000000, 0xfc080000, "r,xOA,X", 4 }, { "bid", 0x4c080000, 0xfc080000, "r,xOA,X", 4 }, { "bivb", 0x60000000, 0xfc080000, "r,xOA,X", 4 }, { "bivh", 0x60080000, 0xfc080000, "r,xOA,X", 4 }, { "bivw", 0x64000000, 0xfc080000, "r,xOA,X", 4 }, { "bivd", 0x64080000, 0xfc080000, "r,xOA,X", 4 }, { "bvsb", 0x68000000, 0xfc080000, "r,xOA,X", 4 }, { "bvsh", 0x68080000, 0xfc080000, "r,xOA,X", 4 }, { "bvsw", 0x6c000000, 0xfc080000, "r,xOA,X", 4 }, { "bvsd", 0x6c080000, 0xfc080000, "r,xOA,X", 4 }, { "camb", 0x80080000, 0xfc080000, "r,xOA,X", 4 }, { "camh", 0x80000001, 0xfc080001, "r,xOA,X", 4 }, { "camw", 0x80000000, 0xfc080000, "r,xOA,X", 4 }, { "camd", 0x80000002, 0xfc080002, "r,xOA,X", 4 }, { "car", 0x10000000, 0xfc0f0000, "r,R", 2 }, { "card", 0x14000000, 0xfc0f0000, "r,R", 2 }, { "ci", 0xf8050000, 0xfc7f0000, "r,I", 4 }, { "chkbnd", 0x5c080000, 0xfc080000, "r,xOA,X", 4 }, { "cavv", 0x10010000, 0xfc0f0000, "v,V", 2 }, { "cavr", 0x10020000, 0xfc0f0000, "v,R", 2 }, { "cavvd", 0x10090000, 0xfc0f0000, "v,V", 2 }, { "cavrd", 0x100b0000, 0xfc0f0000, "v,R", 2 }, { "anmb", 0x84080000, 0xfc080000, "r,xOA,X", 4 }, { "anmh", 0x84000001, 0xfc080001, "r,xOA,X", 4 }, { "anmw", 0x84000000, 0xfc080000, "r,xOA,X", 4 }, { "anmd", 0x84000002, 0xfc080002, "r,xOA,X", 4 }, { "anr", 0x04000000, 0xfc0f0000, "r,R", 2 }, { "ani", 0xf8080000, 0xfc7f0000, "r,I", 4 }, { "ormb", 0xb8080000, 0xfc080000, "r,xOA,X", 4 }, { "ormh", 0xb8000001, 0xfc080001, "r,xOA,X", 4 }, { "ormw", 0xb8000000, 0xfc080000, "r,xOA,X", 4 }, { "ormd", 0xb8000002, 0xfc080002, "r,xOA,X", 4 }, { "orr", 0x08000000, 0xfc0f0000, "r,R", 2 }, { "oi", 0xf8090000, 0xfc7f0000, "r,I", 4 }, { "eomb", 0x8c080000, 0xfc080000, "r,xOA,X", 4 }, { "eomh", 0x8c000001, 0xfc080001, "r,xOA,X", 4 }, { "eomw", 0x8c000000, 0xfc080000, "r,xOA,X", 4 }, { "eomd", 0x8c000002, 0xfc080002, "r,xOA,X", 4 }, { "eor", 0x0c000000, 0xfc0f0000, "r,R", 2 }, { "eoi", 0xf80a0000, 0xfc7f0000, "r,I", 4 }, { "anvv", 0x04010000, 0xfc0f0000, "v,V", 2 }, { "anvr", 0x04020000, 0xfc0f0000, "v,R", 2 }, { "orvv", 0x08010000, 0xfc0f0000, "v,V", 2 }, { "orvr", 0x08020000, 0xfc0f0000, "v,R", 2 }, { "eovv", 0x0c010000, 0xfc0f0000, "v,V", 2 }, { "eovr", 0x0c020000, 0xfc0f0000, "v,R", 2 }, { "sacz", 0x100c0000, 0xfc0f0000, "r,R", 2 }, { "sla", 0x1c400000, 0xfc600000, "r,S", 2 }, { "sll", 0x1c600000, 0xfc600000, "r,S", 2 }, { "slc", 0x24400000, 0xfc600000, "r,S", 2 }, { "slad", 0x20400000, 0xfc600000, "r,S", 2 }, { "slld", 0x20600000, 0xfc600000, "r,S", 2 }, { "sra", 0x1c000000, 0xfc600000, "r,S", 2 }, { "srl", 0x1c200000, 0xfc600000, "r,S", 2 }, { "src", 0x24000000, 0xfc600000, "r,S", 2 }, { "srad", 0x20000000, 0xfc600000, "r,S", 2 }, { "srld", 0x20200000, 0xfc600000, "r,S", 2 }, { "sda", 0x3c030000, 0xfc0f0000, "r,R", 2 }, { "sdl", 0x3c020000, 0xfc0f0000, "r,R", 2 }, { "sdc", 0x3c010000, 0xfc0f0000, "r,R", 2 }, { "sdad", 0x3c0b0000, 0xfc0f0000, "r,R", 2 }, { "sdld", 0x3c0a0000, 0xfc0f0000, "r,R", 2 }, { "svda", 0x3c070000, 0xfc0f0000, "v,R", 2 }, { "svdl", 0x3c060000, 0xfc0f0000, "v,R", 2 }, { "svdc", 0x3c050000, 0xfc0f0000, "v,R", 2 }, { "svdad", 0x3c0e0000, 0xfc0f0000, "v,R", 2 }, { "svdld", 0x3c0d0000, 0xfc0f0000, "v,R", 2 }, { "sbm", 0xac080000, 0xfc080000, "f,xOA,X", 4 }, { "zbm", 0xac000000, 0xfc080000, "f,xOA,X", 4 }, { "tbm", 0xa8080000, 0xfc080000, "f,xOA,X", 4 }, { "incmb", 0xa0000000, 0xfc080000, "xOA,X", 4 }, { "incmh", 0xa0080000, 0xfc080000, "xOA,X", 4 }, { "incmw", 0xa4000000, 0xfc080000, "xOA,X", 4 }, { "incmd", 0xa4080000, 0xfc080000, "xOA,X", 4 }, { "sbmd", 0x7c080000, 0xfc080000, "r,xOA,X", 4 }, { "zbmd", 0x7c000000, 0xfc080000, "r,xOA,X", 4 }, { "tbmd", 0x78080000, 0xfc080000, "r,xOA,X", 4 }, { "ssm", 0x9c080000, 0xfc080000, "f,xOA,X", 4 }, { "zsm", 0x9c000000, 0xfc080000, "f,xOA,X", 4 }, { "tsm", 0x98080000, 0xfc080000, "f,xOA,X", 4 }, { "admb", 0xc8080000, 0xfc080000, "r,xOA,X", 4 }, { "admh", 0xc8000001, 0xfc080001, "r,xOA,X", 4 }, { "admw", 0xc8000000, 0xfc080000, "r,xOA,X", 4 }, { "admd", 0xc8000002, 0xfc080002, "r,xOA,X", 4 }, { "adr", 0x38000000, 0xfc0f0000, "r,R", 2 }, { "armb", 0xe8080000, 0xfc080000, "r,xOA,X", 4 }, { "armh", 0xe8000001, 0xfc080001, "r,xOA,X", 4 }, { "armw", 0xe8000000, 0xfc080000, "r,xOA,X", 4 }, { "armd", 0xe8000002, 0xfc080002, "r,xOA,X", 4 }, { "adi", 0xf8010000, 0xfc0f0000, "r,I", 4 }, { "sumb", 0xcc080000, 0xfc080000, "r,xOA,X", 4 }, { "sumh", 0xcc000001, 0xfc080001, "r,xOA,X", 4 }, { "sumw", 0xcc000000, 0xfc080000, "r,xOA,X", 4 }, { "sumd", 0xcc000002, 0xfc080002, "r,xOA,X", 4 }, { "sur", 0x3c000000, 0xfc0f0000, "r,R", 2 }, { "sui", 0xf8020000, 0xfc0f0000, "r,I", 4 }, { "mpmb", 0xc0080000, 0xfc080000, "r,xOA,X", 4 }, { "mpmh", 0xc0000001, 0xfc080001, "r,xOA,X", 4 }, { "mpmw", 0xc0000000, 0xfc080000, "r,xOA,X", 4 }, { "mpr", 0x38020000, 0xfc0f0000, "r,R", 2 }, { "mprd", 0x3c0f0000, 0xfc0f0000, "r,R", 2 }, { "mpi", 0xf8030000, 0xfc0f0000, "r,I", 4 }, { "dvmb", 0xc4080000, 0xfc080000, "r,xOA,X", 4 }, { "dvmh", 0xc4000001, 0xfc080001, "r,xOA,X", 4 }, { "dvmw", 0xc4000000, 0xfc080000, "r,xOA,X", 4 }, { "dvr", 0x380a0000, 0xfc0f0000, "r,R", 2 }, { "dvi", 0xf8040000, 0xfc0f0000, "r,I", 4 }, { "exs", 0x38080000, 0xfc0f0000, "r,R", 2 }, { "advv", 0x30000000, 0xfc0f0000, "v,V", 2 }, { "advvd", 0x30080000, 0xfc0f0000, "v,V", 2 }, { "adrv", 0x34000000, 0xfc0f0000, "v,R", 2 }, { "adrvd", 0x34080000, 0xfc0f0000, "v,R", 2 }, { "suvv", 0x30010000, 0xfc0f0000, "v,V", 2 }, { "suvvd", 0x30090000, 0xfc0f0000, "v,V", 2 }, { "surv", 0x34010000, 0xfc0f0000, "v,R", 2 }, { "survd", 0x34090000, 0xfc0f0000, "v,R", 2 }, { "mpvv", 0x30020000, 0xfc0f0000, "v,V", 2 }, { "mprv", 0x34020000, 0xfc0f0000, "v,R", 2 }, { "adfw", 0xe0080000, 0xfc080000, "r,xOA,X", 4 }, { "adfd", 0xe0080002, 0xfc080002, "r,xOA,X", 4 }, { "adrfw", 0x38010000, 0xfc0f0000, "r,R", 2 }, { "adrfd", 0x38090000, 0xfc0f0000, "r,R", 2 }, { "surfw", 0xe0000000, 0xfc080000, "r,xOA,X", 4 }, { "surfd", 0xe0000002, 0xfc080002, "r,xOA,X", 4 }, { "surfw", 0x38030000, 0xfc0f0000, "r,R", 2 }, { "surfd", 0x380b0000, 0xfc0f0000, "r,R", 2 }, { "mpfw", 0xe4080000, 0xfc080000, "r,xOA,X", 4 }, { "mpfd", 0xe4080002, 0xfc080002, "r,xOA,X", 4 }, { "mprfw", 0x38060000, 0xfc0f0000, "r,R", 2 }, { "mprfd", 0x380e0000, 0xfc0f0000, "r,R", 2 }, { "rfw", 0xe4000000, 0xfc080000, "r,xOA,X", 4 }, { "rfd", 0xe4000002, 0xfc080002, "r,xOA,X", 4 }, { "rrfw", 0x0c0e0000, 0xfc0f0000, "r", 2 }, { "rrfd", 0x0c0f0000, 0xfc0f0000, "r", 2 }, { "advvfw", 0x30040000, 0xfc0f0000, "v,V", 2 }, { "advvfd", 0x300c0000, 0xfc0f0000, "v,V", 2 }, { "adrvfw", 0x34040000, 0xfc0f0000, "v,R", 2 }, { "adrvfd", 0x340c0000, 0xfc0f0000, "v,R", 2 }, { "suvvfw", 0x30050000, 0xfc0f0000, "v,V", 2 }, { "suvvfd", 0x300d0000, 0xfc0f0000, "v,V", 2 }, { "survfw", 0x34050000, 0xfc0f0000, "v,R", 2 }, { "survfd", 0x340d0000, 0xfc0f0000, "v,R", 2 }, { "mpvvfw", 0x30060000, 0xfc0f0000, "v,V", 2 }, { "mpvvfd", 0x300e0000, 0xfc0f0000, "v,V", 2 }, { "mprvfw", 0x34060000, 0xfc0f0000, "v,R", 2 }, { "mprvfd", 0x340e0000, 0xfc0f0000, "v,R", 2 }, { "rvfw", 0x30070000, 0xfc0f0000, "v", 2 }, { "rvfd", 0x300f0000, 0xfc0f0000, "v", 2 }, { "fltw", 0x38070000, 0xfc0f0000, "r,R", 2 }, { "fltd", 0x380f0000, 0xfc0f0000, "r,R", 2 }, { "fixw", 0x38050000, 0xfc0f0000, "r,R", 2 }, { "fixd", 0x380d0000, 0xfc0f0000, "r,R", 2 }, { "cfpds", 0x3c090000, 0xfc0f0000, "r,R", 2 }, { "fltvw", 0x080d0000, 0xfc0f0000, "v,V", 2 }, { "fltvd", 0x080f0000, 0xfc0f0000, "v,V", 2 }, { "fixvw", 0x080c0000, 0xfc0f0000, "v,V", 2 }, { "fixvd", 0x080e0000, 0xfc0f0000, "v,V", 2 }, { "cfpvds", 0x0c0d0000, 0xfc0f0000, "v,V", 2 }, { "orvrn", 0x000a0000, 0xfc0f0000, "r,V", 2 }, { "andvrn", 0x00080000, 0xfc0f0000, "r,V", 2 }, { "frsteq", 0x04090000, 0xfc0f0000, "r,V", 2 }, { "sigma", 0x0c080000, 0xfc0f0000, "r,V", 2 }, { "sigmad", 0x0c0a0000, 0xfc0f0000, "r,V", 2 }, { "sigmf", 0x08080000, 0xfc0f0000, "r,V", 2 }, { "sigmfd", 0x080a0000, 0xfc0f0000, "r,V", 2 }, { "prodf", 0x04080000, 0xfc0f0000, "r,V", 2 }, { "prodfd", 0x040a0000, 0xfc0f0000, "r,V", 2 }, { "maxv", 0x10080000, 0xfc0f0000, "r,V", 2 }, { "maxvd", 0x100a0000, 0xfc0f0000, "r,V", 2 }, { "minv", 0x14080000, 0xfc0f0000, "r,V", 2 }, { "minvd", 0x140a0000, 0xfc0f0000, "r,V", 2 }, { "lpsd", 0xf0000000, 0xfc080000, "xOA,X", 4 }, { "ldc", 0xf0080000, 0xfc080000, "xOA,X", 4 }, { "spm", 0x040c0000, 0xfc0f0000, "r", 2 }, { "rpm", 0x040d0000, 0xfc0f0000, "r", 2 }, { "tritr", 0x00070000, 0xfc0f0000, "r", 2 }, { "trrit", 0x00060000, 0xfc0f0000, "r", 2 }, { "rpswt", 0x04080000, 0xfc0f0000, "r", 2 }, { "exr", 0xf8070000, 0xfc0f0000, "", 4 }, { "halt", 0x00000000, 0xfc0f0000, "", 2 }, { "wait", 0x00010000, 0xfc0f0000, "", 2 }, { "nop", 0x00020000, 0xfc0f0000, "", 2 }, { "eiae", 0x00030000, 0xfc0f0000, "", 2 }, { "efae", 0x000d0000, 0xfc0f0000, "", 2 }, { "diae", 0x000e0000, 0xfc0f0000, "", 2 }, { "dfae", 0x000f0000, 0xfc0f0000, "", 2 }, { "spvc", 0xf8060000, 0xfc0f0000, "r,T,N", 4 }, { "rdsts", 0x00090000, 0xfc0f0000, "r", 2 }, { "setcpu", 0x000c0000, 0xfc0f0000, "r", 2 }, { "cmc", 0x000b0000, 0xfc0f0000, "r", 2 }, { "trrcu", 0x00040000, 0xfc0f0000, "r", 2 }, { "attnio", 0x00050000, 0xfc0f0000, "", 2 }, { "fudit", 0x28080000, 0xfc0f0000, "", 2 }, { "break", 0x28090000, 0xfc0f0000, "", 2 }, { "frzss", 0x280a0000, 0xfc0f0000, "", 2 }, { "ripi", 0x04040000, 0xfc0f0000, "r,R", 2 }, { "xcp", 0x04050000, 0xfc0f0000, "r", 2 }, { "block", 0x04060000, 0xfc0f0000, "", 2 }, { "unblock", 0x04070000, 0xfc0f0000, "", 2 }, { "trsc", 0x08060000, 0xfc0f0000, "r,R", 2 }, { "tscr", 0x08070000, 0xfc0f0000, "r,R", 2 }, { "fq", 0x04080000, 0xfc0f0000, "r", 2 }, { "flupte", 0x2c080000, 0xfc0f0000, "r", 2 }, { "rviu", 0x040f0000, 0xfc0f0000, "", 2 }, { "ldel", 0x280c0000, 0xfc0f0000, "r,R", 2 }, { "ldu", 0x280d0000, 0xfc0f0000, "r,R", 2 }, { "stdecc", 0x280b0000, 0xfc0f0000, "r,R", 2 }, { "trpc", 0x08040000, 0xfc0f0000, "r", 2 }, { "tpcr", 0x08050000, 0xfc0f0000, "r", 2 }, { "ghalt", 0x0c050000, 0xfc0f0000, "r", 2 }, { "grun", 0x0c040000, 0xfc0f0000, "", 2 }, { "tmpr", 0x2c0a0000, 0xfc0f0000, "r,R", 2 }, { "trmp", 0x2c0b0000, 0xfc0f0000, "r,R", 2 }, { "trrve", 0x28060000, 0xfc0f0000, "r", 2 }, { "trver", 0x28070000, 0xfc0f0000, "r", 2 }, { "trvlr", 0x280f0000, 0xfc0f0000, "r", 2 }, { "linkfl", 0x18000000, 0xfc0f0000, "r,R", 2 }, { "linkbl", 0x18020000, 0xfc0f0000, "r,R", 2 }, { "linkfp", 0x18010000, 0xfc0f0000, "r,R", 2 }, { "linkbp", 0x18030000, 0xfc0f0000, "r,R", 2 }, { "linkpl", 0x18040000, 0xfc0f0000, "r,R", 2 }, { "ulinkl", 0x18080000, 0xfc0f0000, "r,R", 2 }, { "ulinkp", 0x18090000, 0xfc0f0000, "r,R", 2 }, { "ulinktl", 0x180a0000, 0xfc0f0000, "r,R", 2 }, { "ulinktp", 0x180b0000, 0xfc0f0000, "r,R", 2 }, }; int numopcodes = sizeof(gld_opcodes) / sizeof(gld_opcodes[0]); struct gld_opcode *endop = gld_opcodes + sizeof(gld_opcodes) / sizeof(gld_opcodes[0]); gdb-4.13/include/opcode/ns32k.h 666 34562 1752 62617 5611067421 14600 0ustar fnfcygnus/* ns32k-opcode.h -- Opcode table for National Semi 32k processor Copyright (C) 1987 Free Software Foundation, Inc. This file is part of GAS, the GNU Assembler. GAS 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 1, or (at your option) any later version. GAS 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 GAS; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef SEQUENT_COMPATABILITY #define DEF_MODEC 20 #define DEF_MODEL 21 #endif #ifndef DEF_MODEC #define DEF_MODEC 20 #endif #ifndef DEF_MODEL #define DEF_MODEL 20 #endif /* After deciding the instruction entry (via hash.c) the instruction parser will try to match the operands after the instruction to the required set given in the entry operandfield. Every operand will result in a change in the opcode or the addition of data to the opcode. The operands in the source instruction are checked for inconsistent semantics. F : 32 bit float general form L : 64 bit float " B : byte " W : word " D : double-word " A : double-word gen-address-form ie no regs, no immediate I : integer writeable gen int except immediate (A + reg) Z : floating writeable gen float except immediate (Z + freg) d : displacement b : displacement - pc relative addressing acb p : displacement - pc relative addressing br bcond bsr cxp q : quick i : immediate (8 bits) This is not a standard ns32k operandtype, it is used to build instructions like svc arg1,arg2 Svc is the instruction SuperVisorCall and is sometimes used to call OS-routines from usermode. Some args might be handy! r : register number (3 bits) O : setcfg instruction optionslist C : cinv instruction optionslist S : stringinstruction optionslist U : registerlist save,enter u : registerlist restore,exit M : mmu register P : cpu register g : 3:rd operand of inss or exts instruction G : 4:th operand of inss or exts instruction Those operands are encoded in the same byte. This byte is placed last in the instruction. f : operand of sfsr H : sequent-hack for bsr (Warning) column 1 instructions 2 number of bits in opcode. 3 number of bits in opcode explicitly determined by the instruction type. 4 opcodeseed, the number we build our opcode from. 5 operandtypes, used by operandparser. 6 size in bytes of immediate */ struct ns32k_opcode { char *name; unsigned char opcode_id_size; /* not used by the assembler */ unsigned char opcode_size; unsigned long opcode_seed; char *operands; unsigned char im_size; /* not used by dissassembler */ char *default_args; /* default to those args when none given */ char default_modec; /* default to this addr-mode when ambigous ie when the argument of a general addr-mode is a plain constant */ char default_model; /* is a plain label */ }; #ifdef comment /* This section was from the gdb version of this file. */ #ifndef ns32k_opcodeT #define ns32k_opcodeT int #endif /* no ns32k_opcodeT */ struct not_wot /* ns32k opcode table: wot to do with this */ /* particular opcode */ { int obits; /* number of opcode bits */ int ibits; /* number of instruction bits */ ns32k_opcodeT code; /* op-code (may be > 8 bits!) */ char *args; /* how to compile said opcode */ }; struct not /* ns32k opcode text */ { char * name; /* opcode name: lowercase string [key] */ struct not_wot detail; /* rest of opcode table [datum] */ }; /* Instructions look like this: basic instruction--1, 2, or 3 bytes index byte for operand A, if operand A is indexed--1 byte index byte for operand B, if operand B is indexed--1 byte addressing extension for operand A addressing extension for operand B implied operands Operand A is the operand listed first in the following opcode table. Operand B is the operand listed second in the following opcode table. All instructions have at most 2 general operands, so this is enough. The implied operands are associated with operands other than A and B. Each operand has a digit and a letter. The digit gives the position in the assembly language. The letter, one of the following, tells us what kind of operand it is. */ /* F : 32 bit float * L : 64 bit float * B : byte * W : word * D : double-word * I : integer not immediate * Z : floating not immediate * d : displacement * q : quick * i : immediate (8 bits) * r : register number (3 bits) * p : displacement - pc relative addressing */ #endif /* comment */ static const struct ns32k_opcode ns32k_opcodes[]= { { "absf", 14,24, 0x35be, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "absl", 14,24, 0x34be, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, { "absb", 14,24, 0x304e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "absw", 14,24, 0x314e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "absd", 14,24, 0x334e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "acbb", 7,16, 0x4c, "2I1q3p", 1, "", DEF_MODEC,DEF_MODEL }, { "acbw", 7,16, 0x4d, "2I1q3p", 2, "", DEF_MODEC,DEF_MODEL }, { "acbd", 7,16, 0x4f, "2I1q3p", 4, "", DEF_MODEC,DEF_MODEL }, { "addf", 14,24, 0x01be, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "addl", 14,24, 0x00be, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, { "addb", 6,16, 0x00, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "addw", 6,16, 0x01, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "addd", 6,16, 0x03, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "addcb", 6,16, 0x10, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "addcw", 6,16, 0x11, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "addcd", 6,16, 0x13, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "addpb", 14,24, 0x3c4e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "addpw", 14,24, 0x3d4e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "addpd", 14,24, 0x3f4e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "addqb", 7,16, 0x0c, "2I1q", 1, "", DEF_MODEC,DEF_MODEL }, { "addqw", 7,16, 0x0d, "2I1q", 2, "", DEF_MODEC,DEF_MODEL }, { "addqd", 7,16, 0x0f, "2I1q", 4, "", DEF_MODEC,DEF_MODEL }, { "addr", 6,16, 0x27, "1A2I", 4, "", 21,21 }, { "adjspb", 11,16, 0x057c, "1B", 1, "", DEF_MODEC,DEF_MODEL }, { "adjspw", 11,16, 0x057d, "1W", 2, "", DEF_MODEC,DEF_MODEL }, { "adjspd", 11,16, 0x057f, "1D", 4, "", DEF_MODEC,DEF_MODEL }, { "andb", 6,16, 0x28, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "andw", 6,16, 0x29, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "andd", 6,16, 0x2b, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "ashb", 14,24, 0x044e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "ashw", 14,24, 0x054e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "ashd", 14,24, 0x074e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "beq", 8,8, 0x0a, "1p", 0, "", 21,21 }, { "bne", 8,8, 0x1a, "1p", 0, "", 21,21 }, { "bcs", 8,8, 0x2a, "1p", 0, "", 21,21 }, { "bcc", 8,8, 0x3a, "1p", 0, "", 21,21 }, { "bhi", 8,8, 0x4a, "1p", 0, "", 21,21 }, { "bls", 8,8, 0x5a, "1p", 0, "", 21,21 }, { "bgt", 8,8, 0x6a, "1p", 0, "", 21,21 }, { "ble", 8,8, 0x7a, "1p", 0, "", 21,21 }, { "bfs", 8,8, 0x8a, "1p", 0, "", 21,21 }, { "bfc", 8,8, 0x9a, "1p", 0, "", 21,21 }, { "blo", 8,8, 0xaa, "1p", 0, "", 21,21 }, { "bhs", 8,8, 0xba, "1p", 0, "", 21,21 }, { "blt", 8,8, 0xca, "1p", 0, "", 21,21 }, { "bge", 8,8, 0xda, "1p", 0, "", 21,21 }, { "but", 8,8, 0xea, "1p", 0, "", 21,21 }, { "buf", 8,8, 0xfa, "1p", 0, "", 21,21 }, { "bicb", 6,16, 0x08, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "bicw", 6,16, 0x09, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "bicd", 6,16, 0x0b, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "bicpsrb", 11,16, 0x17c, "1B", 1, "", DEF_MODEC,DEF_MODEL }, { "bicpsrw", 11,16, 0x17d, "1W", 2, "", DEF_MODEC,DEF_MODEL }, { "bispsrb", 11,16, 0x37c, "1B", 1, "", DEF_MODEC,DEF_MODEL }, { "bispsrw", 11,16, 0x37d, "1W", 2, "", DEF_MODEC,DEF_MODEL }, { "bpt", 8,8, 0xf2, "", 0, "", DEF_MODEC,DEF_MODEL }, { "br", 8,8, 0xea, "1p", 0, "", 21,21 }, #ifdef SEQUENT_COMPATABILITY { "bsr", 8,8, 0x02, "1H", 0, "", 21,21 }, #else { "bsr", 8,8, 0x02, "1p", 0, "", 21,21 }, #endif { "caseb", 11,16, 0x77c, "1B", 1, "", DEF_MODEC,DEF_MODEL }, { "casew", 11,16, 0x77d, "1W", 2, "", DEF_MODEC,DEF_MODEL }, { "cased", 11,16, 0x77f, "1D", 4, "", DEF_MODEC,DEF_MODEL }, { "cbitb", 14,24, 0x084e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "cbitw", 14,24, 0x094e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "cbitd", 14,24, 0x0b4e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "cbitib", 14,24, 0x0c4e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "cbitiw", 14,24, 0x0d4e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "cbitid", 14,24, 0x0f4e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "checkb", 11,24, 0x0ee, "2A3B1r", 1, "", DEF_MODEC,DEF_MODEL }, { "checkw", 11,24, 0x1ee, "2A3W1r", 2, "", DEF_MODEC,DEF_MODEL }, { "checkd", 11,24, 0x3ee, "2A3D1r", 4, "", DEF_MODEC,DEF_MODEL }, { "cinv", 14,24, 0x271e, "2D1C", 4, "", DEF_MODEC,DEF_MODEL }, { "cmpf", 14,24, 0x09be, "1F2F", 4, "", DEF_MODEC,DEF_MODEL }, { "cmpl", 14,24, 0x08be, "1L2L", 8, "", DEF_MODEC,DEF_MODEL }, { "cmpb", 6,16, 0x04, "1B2B", 1, "", DEF_MODEC,DEF_MODEL }, { "cmpw", 6,16, 0x05, "1W2W", 2, "", DEF_MODEC,DEF_MODEL }, { "cmpd", 6,16, 0x07, "1D2D", 4, "", DEF_MODEC,DEF_MODEL }, { "cmpmb", 14,24, 0x04ce, "1A2A3b", 1, "", DEF_MODEC,DEF_MODEL }, { "cmpmw", 14,24, 0x05ce, "1A2A3b", 2, "", DEF_MODEC,DEF_MODEL }, { "cmpmd", 14,24, 0x07ce, "1A2A3b", 4, "", DEF_MODEC,DEF_MODEL }, { "cmpqb", 7,16, 0x1c, "2B1q", 1, "", DEF_MODEC,DEF_MODEL }, { "cmpqw", 7,16, 0x1d, "2W1q", 2, "", DEF_MODEC,DEF_MODEL }, { "cmpqd", 7,16, 0x1f, "2D1q", 4, "", DEF_MODEC,DEF_MODEL }, { "cmpsb", 16,24, 0x040e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "cmpsw", 16,24, 0x050e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "cmpsd", 16,24, 0x070e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "cmpst", 16,24, 0x840e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "comb", 14,24, 0x344e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "comw", 14,24, 0x354e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "comd", 14,24, 0x374e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "cvtp", 11,24, 0x036e, "2A3D1r", 4, "", DEF_MODEC,DEF_MODEL }, { "cxp", 8,8, 0x22, "1p", 0, "", 21,21 }, { "cxpd", 11,16, 0x07f, "1A", 4, "", DEF_MODEC,DEF_MODEL }, { "deib", 14,24, 0x2cce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "deiw", 14,24, 0x2dce, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "deid", 14,24, 0x2fce, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "dia", 8,8, 0xc2, "", 1, "", DEF_MODEC,DEF_MODEL }, { "divf", 14,24, 0x21be, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "divl", 14,24, 0x20be, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, { "divb", 14,24, 0x3cce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "divw", 14,24, 0x3dce, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "divd", 14,24, 0x3fce, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "enter", 8,8, 0x82, "1U2d", 0, "", DEF_MODEC,DEF_MODEL }, { "exit", 8,8, 0x92, "1u", 0, "", DEF_MODEC,DEF_MODEL }, { "extb", 11,24, 0x02e, "2I3B1r4d", 1, "", DEF_MODEC,DEF_MODEL }, { "extw", 11,24, 0x12e, "2I3W1r4d", 2, "", DEF_MODEC,DEF_MODEL }, { "extd", 11,24, 0x32e, "2I3D1r4d", 4, "", DEF_MODEC,DEF_MODEL }, { "extsb", 14,24, 0x0cce, "1I2I4G3g", 1, "", DEF_MODEC,DEF_MODEL }, { "extsw", 14,24, 0x0dce, "1I2I4G3g", 2, "", DEF_MODEC,DEF_MODEL }, { "extsd", 14,24, 0x0fce, "1I2I4G3g", 4, "", DEF_MODEC,DEF_MODEL }, { "ffsb", 14,24, 0x046e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "ffsw", 14,24, 0x056e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "ffsd", 14,24, 0x076e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "flag", 8,8, 0xd2, "", 0, "", DEF_MODEC,DEF_MODEL }, { "floorfb", 14,24, 0x3c3e, "1F2I", 4, "", DEF_MODEC,DEF_MODEL }, { "floorfw", 14,24, 0x3d3e, "1F2I", 4, "", DEF_MODEC,DEF_MODEL }, { "floorfd", 14,24, 0x3f3e, "1F2I", 4, "", DEF_MODEC,DEF_MODEL }, { "floorlb", 14,24, 0x383e, "1L2I", 8, "", DEF_MODEC,DEF_MODEL }, { "floorlw", 14,24, 0x393e, "1L2I", 8, "", DEF_MODEC,DEF_MODEL }, { "floorld", 14,24, 0x3b3e, "1L2I", 8, "", DEF_MODEC,DEF_MODEL }, { "ibitb", 14,24, 0x384e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "ibitw", 14,24, 0x394e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "ibitd", 14,24, 0x3b4e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "indexb", 11,24, 0x42e, "2B3B1r", 1, "", DEF_MODEC,DEF_MODEL }, { "indexw", 11,24, 0x52e, "2W3W1r", 2, "", DEF_MODEC,DEF_MODEL }, { "indexd", 11,24, 0x72e, "2D3D1r", 4, "", DEF_MODEC,DEF_MODEL }, { "insb", 11,24, 0x0ae, "2B3I1r4d", 1, "", DEF_MODEC,DEF_MODEL }, { "insw", 11,24, 0x1ae, "2W3I1r4d", 2, "", DEF_MODEC,DEF_MODEL }, { "insd", 11,24, 0x3ae, "2D3I1r4d", 4, "", DEF_MODEC,DEF_MODEL }, { "inssb", 14,24, 0x08ce, "1B2I4G3g", 1, "", DEF_MODEC,DEF_MODEL }, { "inssw", 14,24, 0x09ce, "1W2I4G3g", 2, "", DEF_MODEC,DEF_MODEL }, { "inssd", 14,24, 0x0bce, "1D2I4G3g", 4, "", DEF_MODEC,DEF_MODEL }, { "jsr", 11,16, 0x67f, "1A", 4, "", 21,21 }, { "jump", 11,16, 0x27f, "1A", 4, "", 21,21 }, { "lfsr", 19,24, 0x00f3e,"1D", 4, "", DEF_MODEC,DEF_MODEL }, { "lmr", 15,24, 0x0b1e, "2D1M", 4, "", DEF_MODEC,DEF_MODEL }, { "lprb", 7,16, 0x6c, "2B1P", 1, "", DEF_MODEC,DEF_MODEL }, { "lprw", 7,16, 0x6d, "2W1P", 2, "", DEF_MODEC,DEF_MODEL }, { "lprd", 7,16, 0x6f, "2D1P", 4, "", DEF_MODEC,DEF_MODEL }, { "lshb", 14,24, 0x144e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "lshw", 14,24, 0x154e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "lshd", 14,24, 0x174e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "meib", 14,24, 0x24ce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "meiw", 14,24, 0x25ce, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "meid", 14,24, 0x27ce, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "modb", 14,24, 0x38ce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "modw", 14,24, 0x39ce, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "modd", 14,24, 0x3bce, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "movf", 14,24, 0x05be, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "movl", 14,24, 0x04be, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, { "movb", 6,16, 0x14, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "movw", 6,16, 0x15, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "movd", 6,16, 0x17, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "movbf", 14,24, 0x043e, "1B2Z", 1, "", DEF_MODEC,DEF_MODEL }, { "movwf", 14,24, 0x053e, "1W2Z", 2, "", DEF_MODEC,DEF_MODEL }, { "movdf", 14,24, 0x073e, "1D2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "movbl", 14,24, 0x003e, "1B2Z", 1, "", DEF_MODEC,DEF_MODEL }, { "movwl", 14,24, 0x013e, "1W2Z", 2, "", DEF_MODEC,DEF_MODEL }, { "movdl", 14,24, 0x033e, "1D2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "movfl", 14,24, 0x1b3e, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "movlf", 14,24, 0x163e, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, { "movmb", 14,24, 0x00ce, "1A2A3b", 1, "", DEF_MODEC,DEF_MODEL }, { "movmw", 14,24, 0x01ce, "1A2A3b", 2, "", DEF_MODEC,DEF_MODEL }, { "movmd", 14,24, 0x03ce, "1A2A3b", 4, "", DEF_MODEC,DEF_MODEL }, { "movqb", 7,16, 0x5c, "2I1q", 1, "", DEF_MODEC,DEF_MODEL }, { "movqw", 7,16, 0x5d, "2I1q", 2, "", DEF_MODEC,DEF_MODEL }, { "movqd", 7,16, 0x5f, "2I1q", 4, "", DEF_MODEC,DEF_MODEL }, { "movsb", 16,24, 0x000e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "movsw", 16,24, 0x010e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "movsd", 16,24, 0x030e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "movst", 16,24, 0x800e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "movsub", 14,24, 0x0cae, "1A2A", 1, "", DEF_MODEC,DEF_MODEL }, { "movsuw", 14,24, 0x0dae, "1A2A", 2, "", DEF_MODEC,DEF_MODEL }, { "movsud", 14,24, 0x0fae, "1A2A", 4, "", DEF_MODEC,DEF_MODEL }, { "movusb", 14,24, 0x1cae, "1A2A", 1, "", DEF_MODEC,DEF_MODEL }, { "movusw", 14,24, 0x1dae, "1A2A", 2, "", DEF_MODEC,DEF_MODEL }, { "movusd", 14,24, 0x1fae, "1A2A", 4, "", DEF_MODEC,DEF_MODEL }, { "movxbd", 14,24, 0x1cce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "movxwd", 14,24, 0x1dce, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "movxbw", 14,24, 0x10ce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "movzbd", 14,24, 0x18ce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "movzwd", 14,24, 0x19ce, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "movzbw", 14,24, 0x14ce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "mulf", 14,24, 0x31be, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "mull", 14,24, 0x30be, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, { "mulb", 14,24, 0x20ce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "mulw", 14,24, 0x21ce, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "muld", 14,24, 0x23ce, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "negf", 14,24, 0x15be, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "negl", 14,24, 0x14be, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, { "negb", 14,24, 0x204e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "negw", 14,24, 0x214e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "negd", 14,24, 0x234e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "nop", 8,8, 0xa2, "", 0, "", DEF_MODEC,DEF_MODEL }, { "notb", 14,24, 0x244e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "notw", 14,24, 0x254e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "notd", 14,24, 0x274e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "orb", 6,16, 0x18, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "orw", 6,16, 0x19, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "ord", 6,16, 0x1b, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "quob", 14,24, 0x30ce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "quow", 14,24, 0x31ce, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "quod", 14,24, 0x33ce, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "rdval", 19,24, 0x0031e,"1A", 4, "", DEF_MODEC,DEF_MODEL }, { "remb", 14,24, 0x34ce, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "remw", 14,24, 0x35ce, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "remd", 14,24, 0x37ce, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "restore", 8,8, 0x72, "1u", 0, "", DEF_MODEC,DEF_MODEL }, { "ret", 8,8, 0x12, "1d", 0, "", DEF_MODEC,DEF_MODEL }, { "reti", 8,8, 0x52, "", 0, "", DEF_MODEC,DEF_MODEL }, { "rett", 8,8, 0x42, "1d", 0, "", DEF_MODEC,DEF_MODEL }, { "rotb", 14,24, 0x004e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "rotw", 14,24, 0x014e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "rotd", 14,24, 0x034e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "roundfb", 14,24, 0x243e, "1F2I", 4, "", DEF_MODEC,DEF_MODEL }, { "roundfw", 14,24, 0x253e, "1F2I", 4, "", DEF_MODEC,DEF_MODEL }, { "roundfd", 14,24, 0x273e, "1F2I", 4, "", DEF_MODEC,DEF_MODEL }, { "roundlb", 14,24, 0x203e, "1L2I", 8, "", DEF_MODEC,DEF_MODEL }, { "roundlw", 14,24, 0x213e, "1L2I", 8, "", DEF_MODEC,DEF_MODEL }, { "roundld", 14,24, 0x233e, "1L2I", 8, "", DEF_MODEC,DEF_MODEL }, { "rxp", 8,8, 0x32, "1d", 0, "", DEF_MODEC,DEF_MODEL }, { "seqb", 11,16, 0x3c, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "seqw", 11,16, 0x3d, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "seqd", 11,16, 0x3f, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sneb", 11,16, 0xbc, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "snew", 11,16, 0xbd, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sned", 11,16, 0xbf, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "scsb", 11,16, 0x13c, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "scsw", 11,16, 0x13d, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "scsd", 11,16, 0x13f, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sccb", 11,16, 0x1bc, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "sccw", 11,16, 0x1bd, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sccd", 11,16, 0x1bf, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "shib", 11,16, 0x23c, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "shiw", 11,16, 0x23d, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "shid", 11,16, 0x23f, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "slsb", 11,16, 0x2bc, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "slsw", 11,16, 0x2bd, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "slsd", 11,16, 0x2bf, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sgtb", 11,16, 0x33c, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "sgtw", 11,16, 0x33d, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sgtd", 11,16, 0x33f, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sleb", 11,16, 0x3bc, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "slew", 11,16, 0x3bd, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sled", 11,16, 0x3bf, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sfsb", 11,16, 0x43c, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "sfsw", 11,16, 0x43d, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sfsd", 11,16, 0x43f, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sfcb", 11,16, 0x4bc, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "sfcw", 11,16, 0x4bd, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sfcd", 11,16, 0x4bf, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "slob", 11,16, 0x53c, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "slow", 11,16, 0x53d, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "slod", 11,16, 0x53f, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "shsb", 11,16, 0x5bc, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "shsw", 11,16, 0x5bd, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "shsd", 11,16, 0x5bf, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sltb", 11,16, 0x63c, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "sltw", 11,16, 0x63d, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sltd", 11,16, 0x63f, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sgeb", 11,16, 0x6bc, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "sgew", 11,16, 0x6bd, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sged", 11,16, 0x6bf, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sutb", 11,16, 0x73c, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "sutw", 11,16, 0x73d, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sutd", 11,16, 0x73f, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "sufb", 11,16, 0x7bc, "1B", 0, "", DEF_MODEC,DEF_MODEL }, { "sufw", 11,16, 0x7bd, "1W", 0, "", DEF_MODEC,DEF_MODEL }, { "sufd", 11,16, 0x7bf, "1D", 0, "", DEF_MODEC,DEF_MODEL }, { "save", 8,8, 0x62, "1U", 0, "", DEF_MODEC,DEF_MODEL }, { "sbitb", 14,24, 0x184e, "1B2A", 1, "", DEF_MODEC,DEF_MODEL }, { "sbitw", 14,24, 0x194e, "1W2A", 2, "", DEF_MODEC,DEF_MODEL }, { "sbitd", 14,24, 0x1b4e, "1D2A", 4, "", DEF_MODEC,DEF_MODEL }, { "sbitib", 14,24, 0x1c4e, "1B2A", 1, "", DEF_MODEC,DEF_MODEL }, { "sbitiw", 14,24, 0x1d4e, "1W2A", 2, "", DEF_MODEC,DEF_MODEL }, { "sbitid", 14,24, 0x1f4e, "1D2A", 4, "", DEF_MODEC,DEF_MODEL }, { "setcfg", 15,24, 0x0b0e, "1O", 0, "", DEF_MODEC,DEF_MODEL }, { "sfsr", 14,24, 0x373e, "1f", 0, "", DEF_MODEC,DEF_MODEL }, { "skpsb", 16,24, 0x0c0e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "skpsw", 16,24, 0x0d0e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "skpsd", 16,24, 0x0f0e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "skpst", 16,24, 0x8c0e, "1S", 0, "[]", DEF_MODEC,DEF_MODEL }, { "smr", 15,24, 0x0f1e, "2I1M", 4, "", DEF_MODEC,DEF_MODEL }, { "sprb", 7,16, 0x2c, "2I1P", 1, "", DEF_MODEC,DEF_MODEL }, { "sprw", 7,16, 0x2d, "2I1P", 2, "", DEF_MODEC,DEF_MODEL }, { "sprd", 7,16, 0x2f, "2I1P", 4, "", DEF_MODEC,DEF_MODEL }, { "subf", 14,24, 0x11be, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "subl", 14,24, 0x10be, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, { "subb", 6,16, 0x20, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "subw", 6,16, 0x21, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "subd", 6,16, 0x23, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "subcb", 6,16, 0x30, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "subcw", 6,16, 0x31, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "subcd", 6,16, 0x33, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "subpb", 14,24, 0x2c4e, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "subpw", 14,24, 0x2d4e, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "subpd", 14,24, 0x2f4e, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, #ifdef NS32K_SVC_IMMED_OPERANDS { "svc", 8,8, 0xe2, "2i1i", 1, "", DEF_MODEC,DEF_MODEL }, /* not really, but some unix uses it */ #else { "svc", 8,8, 0xe2, "", 0, "", DEF_MODEC,DEF_MODEL }, #endif { "tbitb", 6,16, 0x34, "1B2A", 1, "", DEF_MODEC,DEF_MODEL }, { "tbitw", 6,16, 0x35, "1W2A", 2, "", DEF_MODEC,DEF_MODEL }, { "tbitd", 6,16, 0x37, "1D2A", 4, "", DEF_MODEC,DEF_MODEL }, { "truncfb", 14,24, 0x2c3e, "1F2I", 4, "", DEF_MODEC,DEF_MODEL }, { "truncfw", 14,24, 0x2d3e, "1F2I", 4, "", DEF_MODEC,DEF_MODEL }, { "truncfd", 14,24, 0x2f3e, "1F2I", 4, "", DEF_MODEC,DEF_MODEL }, { "trunclb", 14,24, 0x283e, "1L2I", 8, "", DEF_MODEC,DEF_MODEL }, { "trunclw", 14,24, 0x293e, "1L2I", 8, "", DEF_MODEC,DEF_MODEL }, { "truncld", 14,24, 0x2b3e, "1L2I", 8, "", DEF_MODEC,DEF_MODEL }, { "wait", 8,8, 0xb2, "", 0, "", DEF_MODEC,DEF_MODEL }, { "wrval", 19,24, 0x0071e,"1A", 0, "", DEF_MODEC,DEF_MODEL }, { "xorb", 6,16, 0x38, "1B2I", 1, "", DEF_MODEC,DEF_MODEL }, { "xorw", 6,16, 0x39, "1W2I", 2, "", DEF_MODEC,DEF_MODEL }, { "xord", 6,16, 0x3b, "1D2I", 4, "", DEF_MODEC,DEF_MODEL }, { "dotf", 14,24, 0x0dfe, "1F2F", 4, "", DEF_MODEC,DEF_MODEL }, { "dotl", 14,24, 0x0cfe, "1L2L", 8, "", DEF_MODEC,DEF_MODEL }, { "logbf", 14,24, 0x15fe, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "logbl", 14,24, 0x14fe, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, { "polyf", 14,24, 0x09fe, "1F2F", 4, "", DEF_MODEC,DEF_MODEL }, { "polyl", 14,24, 0x08fe, "1L2L", 8, "", DEF_MODEC,DEF_MODEL }, { "scalbf", 14,24, 0x11fe, "1F2Z", 4, "", DEF_MODEC,DEF_MODEL }, { "scalbl", 14,24, 0x10fe, "1L2Z", 8, "", DEF_MODEC,DEF_MODEL }, }; static const int numopcodes=sizeof(ns32k_opcodes)/sizeof(ns32k_opcodes[0]); static const struct ns32k_opcode *const endop = ns32k_opcodes+sizeof(ns32k_opcodes)/sizeof(ns32k_opcodes[0]); #define MAX_ARGS 4 #define ARG_LEN 50 gdb-4.13/include/opcode/pn.h 666 34562 1752 30155 5116043561 14244 0ustar fnfcygnus/* Print GOULD PN (PowerNode) instructions for GDB, the GNU debugger. Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc. This file is part of GDB. GDB 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 1, or (at your option) any later version. GDB 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 GDB; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ struct gld_opcode { char *name; unsigned long opcode; unsigned long mask; char *args; int length; }; /* We store four bytes of opcode for all opcodes because that is the most any of them need. The actual length of an instruction is always at least 2 bytes, and at most four. The length of the instruction is based on the opcode. The mask component is a mask saying which bits must match particular opcode in order for an instruction to be an instance of that opcode. The args component is a string containing characters that are used to format the arguments to the instruction. */ /* Kinds of operands: r Register in first field R Register in second field b Base register in first field B Base register in second field v Vector register in first field V Vector register in first field A Optional address register (base register) X Optional index register I Immediate data (16bits signed) O Offset field (16bits signed) h Offset field (15bits signed) d Offset field (14bits signed) S Shift count field any other characters are printed as is... */ /* The assembler requires that this array be sorted as follows: all instances of the same mnemonic must be consecutive. All instances of the same mnemonic with the same number of operands must be consecutive. */ struct gld_opcode gld_opcodes[] = { { "abm", 0xa0080000, 0xfc080000, "f,xOA,X", 4 }, { "abr", 0x18080000, 0xfc0c0000, "r,f", 2 }, { "aci", 0xfc770000, 0xfc7f8000, "r,I", 4 }, { "adfd", 0xe0080002, 0xfc080002, "r,xOA,X", 4 }, { "adfw", 0xe0080000, 0xfc080000, "r,xOA,X", 4 }, { "adi", 0xc8010000, 0xfc7f0000, "r,I", 4 }, { "admb", 0xb8080000, 0xfc080000, "r,xOA,X", 4 }, { "admd", 0xb8000002, 0xfc080002, "r,xOA,X", 4 }, { "admh", 0xb8000001, 0xfc080001, "r,xOA,X", 4 }, { "admw", 0xb8000000, 0xfc080000, "r,xOA,X", 4 }, { "adr", 0x38000000, 0xfc0f0000, "r,R", 2 }, { "adrfd", 0x38090000, 0xfc0f0000, "r,R", 2 }, { "adrfw", 0x38010000, 0xfc0f0000, "r,R", 2 }, { "adrm", 0x38080000, 0xfc0f0000, "r,R", 2 }, { "ai", 0xfc030000, 0xfc07ffff, "I", 4 }, { "anmb", 0x84080000, 0xfc080000, "r,xOA,X", 4 }, { "anmd", 0x84000002, 0xfc080002, "r,xOA,X", 4 }, { "anmh", 0x84000001, 0xfc080001, "r,xOA,X", 4 }, { "anmw", 0x84000000, 0xfc080000, "r,xOA,X", 4 }, { "anr", 0x04000000, 0xfc0f0000, "r,R", 2 }, { "armb", 0xe8080000, 0xfc080000, "r,xOA,X", 4 }, { "armd", 0xe8000002, 0xfc080002, "r,xOA,X", 4 }, { "armh", 0xe8000001, 0xfc080001, "r,xOA,X", 4 }, { "armw", 0xe8000000, 0xfc080000, "r,xOA,X", 4 }, { "bcf", 0xf0000000, 0xfc080000, "I,xOA,X", 4 }, { "bct", 0xec000000, 0xfc080000, "I,xOA,X", 4 }, { "bei", 0x00060000, 0xffff0000, "", 2 }, { "bft", 0xf0000000, 0xff880000, "xOA,X", 4 }, { "bib", 0xf4000000, 0xfc780000, "r,xOA", 4 }, { "bid", 0xf4600000, 0xfc780000, "r,xOA", 4 }, { "bih", 0xf4200000, 0xfc780000, "r,xOA", 4 }, { "biw", 0xf4400000, 0xfc780000, "r,xOA", 4 }, { "bl", 0xf8800000, 0xff880000, "xOA,X", 4 }, { "bsub", 0x5c080000, 0xff8f0000, "", 2 }, { "bsubm", 0x28080000, 0xfc080000, "", 4 }, { "bu", 0xec000000, 0xff880000, "xOA,X", 4 }, { "call", 0x28080000, 0xfc0f0000, "", 2 }, { "callm", 0x5c080000, 0xff880000, "", 4 }, { "camb", 0x90080000, 0xfc080000, "r,xOA,X", 4 }, { "camd", 0x90000002, 0xfc080002, "r,xOA,X", 4 }, { "camh", 0x90000001, 0xfc080001, "r,xOA,X", 4 }, { "camw", 0x90000000, 0xfc080000, "r.xOA,X", 4 }, { "car", 0x10000000, 0xfc0f0000, "r,R", 2 }, { "cd", 0xfc060000, 0xfc070000, "r,f", 4 }, { "cea", 0x000f0000, 0xffff0000, "", 2 }, { "ci", 0xc8050000, 0xfc7f0000, "r,I", 4 }, { "cmc", 0x040a0000, 0xfc7f0000, "r", 2 }, { "cmmb", 0x94080000, 0xfc080000, "r,xOA,X", 4 }, { "cmmd", 0x94000002, 0xfc080002, "r,xOA,X", 4 }, { "cmmh", 0x94000001, 0xfc080001, "r,xOA,X", 4 }, { "cmmw", 0x94000000, 0xfc080000, "r,xOA,X", 4 }, { "cmr", 0x14000000, 0xfc0f0000, "r,R", 2 }, { "daci", 0xfc7f0000, 0xfc7f8000, "r,I", 4 }, { "dae", 0x000e0000, 0xffff0000, "", 2 }, { "dai", 0xfc040000, 0xfc07ffff, "I", 4 }, { "dci", 0xfc6f0000, 0xfc7f8000, "r,I", 4 }, { "di", 0xfc010000, 0xfc07ffff, "I", 4 }, { "dvfd", 0xe4000002, 0xfc080002, "r,xOA,X", 4 }, { "dvfw", 0xe4000000, 0xfc080000, "r,xOA,X", 4 }, { "dvi", 0xc8040000, 0xfc7f0000, "r,I", 4 }, { "dvmb", 0xc4080000, 0xfc080000, "r,xOA,X", 4 }, { "dvmh", 0xc4000001, 0xfc080001, "r,xOA,X", 4 }, { "dvmw", 0xc4000000, 0xfc080000, "r,xOA,X", 4 }, { "dvr", 0x380a0000, 0xfc0f0000, "r,R", 2 }, { "dvrfd", 0x380c0000, 0xfc0f0000, "r,R", 4 }, { "dvrfw", 0x38040000, 0xfc0f0000, "r,xOA,X", 4 }, { "eae", 0x00080000, 0xffff0000, "", 2 }, { "eci", 0xfc670000, 0xfc7f8080, "r,I", 4 }, { "ecwcs", 0xfc4f0000, 0xfc7f8000, "", 4 }, { "ei", 0xfc000000, 0xfc07ffff, "I", 4 }, { "eomb", 0x8c080000, 0xfc080000, "r,xOA,X", 4 }, { "eomd", 0x8c000002, 0xfc080002, "r,xOA,X", 4 }, { "eomh", 0x8c000001, 0xfc080001, "r,xOA,X", 4 }, { "eomw", 0x8c000000, 0xfc080000, "r,xOA,X", 4 }, { "eor", 0x0c000000, 0xfc0f0000, "r,R", 2 }, { "eorm", 0x0c080000, 0xfc0f0000, "r,R", 2 }, { "es", 0x00040000, 0xfc7f0000, "r", 2 }, { "exm", 0xa8000000, 0xff880000, "xOA,X", 4 }, { "exr", 0xc8070000, 0xfc7f0000, "r", 2 }, { "exrr", 0xc8070002, 0xfc7f0002, "r", 2 }, { "fixd", 0x380d0000, 0xfc0f0000, "r,R", 2 }, { "fixw", 0x38050000, 0xfc0f0000, "r,R", 2 }, { "fltd", 0x380f0000, 0xfc0f0000, "r,R", 2 }, { "fltw", 0x38070000, 0xfc0f0000, "r,R", 2 }, { "grio", 0xfc3f0000, 0xfc7f8000, "r,I", 4 }, { "halt", 0x00000000, 0xffff0000, "", 2 }, { "hio", 0xfc370000, 0xfc7f8000, "r,I", 4 }, { "jwcs", 0xfa080000, 0xff880000, "xOA,X", 4 }, { "la", 0x50000000, 0xfc000000, "r,xOA,X", 4 }, { "labr", 0x58080000, 0xfc080000, "b,xOA,X", 4 }, { "lb", 0xac080000, 0xfc080000, "r,xOA,X", 4 }, { "lcs", 0x00030000, 0xfc7f0000, "r", 2 }, { "ld", 0xac000002, 0xfc080002, "r,xOA,X", 4 }, { "lear", 0x80000000, 0xfc080000, "r,xOA,X", 4 }, { "lf", 0xcc000000, 0xfc080000, "r,xOA,X", 4 }, { "lfbr", 0xcc080000, 0xfc080000, "b,xOA,X", 4 }, { "lh", 0xac000001, 0xfc080001, "r,xOA,X", 4 }, { "li", 0xc8000000, 0xfc7f0000, "r,I", 4 }, { "lmap", 0x2c070000, 0xfc7f0000, "r", 2 }, { "lmb", 0xb0080000, 0xfc080000, "r,xOA,X", 4 }, { "lmd", 0xb0000002, 0xfc080002, "r,xOA,X", 4 }, { "lmh", 0xb0000001, 0xfc080001, "r,xOA,X", 4 }, { "lmw", 0xb0000000, 0xfc080000, "r,xOA,X", 4 }, { "lnb", 0xb4080000, 0xfc080000, "r,xOA,X", 4 }, { "lnd", 0xb4000002, 0xfc080002, "r,xOA,X", 4 }, { "lnh", 0xb4000001, 0xfc080001, "r,xOA,X", 4 }, { "lnw", 0xb4000000, 0xfc080000, "r,xOA,X", 4 }, { "lpsd", 0xf9800000, 0xff880000, "r,xOA,X", 4 }, { "lpsdcm", 0xfa800000, 0xff880000, "r,xOA,X", 4 }, { "lw", 0xac000000, 0xfc080000, "r,xOA,X", 4 }, { "lwbr", 0x5c000000, 0xfc080000, "b,xOA,X", 4 }, { "mpfd", 0xe4080002, 0xfc080002, "r,xOA,X", 4 }, { "mpfw", 0xe4080000, 0xfc080000, "r,xOA,X", 4 }, { "mpi", 0xc8030000, 0xfc7f0000, "r,I", 4 }, { "mpmb", 0xc0080000, 0xfc080000, "r,xOA,X", 4 }, { "mpmh", 0xc0000001, 0xfc080001, "r,xOA,X", 4 }, { "mpmw", 0xc0000000, 0xfc080000, "r,xOA,X", 4 }, { "mpr", 0x38020000, 0xfc0f0000, "r,R", 2 }, { "mprfd", 0x380e0000, 0xfc0f0000, "r,R", 2 }, { "mprfw", 0x38060000, 0xfc0f0000, "r,R", 2 }, { "nop", 0x00020000, 0xffff0000, "", 2 }, { "ormb", 0x88080000, 0xfc080000, "r,xOA,X", 4 }, { "ormd", 0x88000002, 0xfc080002, "r,xOA,X", 4 }, { "ormh", 0x88000001, 0xfc080001, "r,xOA,X", 4 }, { "ormw", 0x88000000, 0xfc080000, "r,xOA,X", 4 }, { "orr", 0x08000000, 0xfc0f0000, "r,R", 2 }, { "orrm", 0x08080000, 0xfc0f0000, "r,R", 2 }, { "rdsts", 0x00090000, 0xfc7f0000, "r", 2 }, { "return", 0x280e0000, 0xfc7f0000, "", 2 }, { "ri", 0xfc020000, 0xfc07ffff, "I", 4 }, { "rnd", 0x00050000, 0xfc7f0000, "r", 2 }, { "rpswt", 0x040b0000, 0xfc7f0000, "r", 2 }, { "rschnl", 0xfc2f0000, 0xfc7f8000, "r,I", 4 }, { "rsctl", 0xfc470000, 0xfc7f8000, "r,I", 4 }, { "rwcs", 0x000b0000, 0xfc0f0000, "r,R", 2 }, { "sacz", 0x10080000, 0xfc0f0000, "r,R", 2 }, { "sbm", 0x98080000, 0xfc080000, "f,xOA,X", 4 }, { "sbr", 0x18000000, 0xfc0c0000, "r,f", 4 }, { "sea", 0x000d0000, 0xffff0000, "", 2 }, { "setcpu", 0x2c090000, 0xfc7f0000, "r", 2 }, { "sio", 0xfc170000, 0xfc7f8000, "r,I", 4 }, { "sipu", 0x000a0000, 0xffff0000, "", 2 }, { "sla", 0x1c400000, 0xfc600000, "r,S", 2 }, { "slad", 0x20400000, 0xfc600000, "r,S", 2 }, { "slc", 0x24400000, 0xfc600000, "r,S", 2 }, { "sll", 0x1c600000, 0xfc600000, "r,S", 2 }, { "slld", 0x20600000, 0xfc600000, "r,S", 2 }, { "smc", 0x04070000, 0xfc070000, "", 2 }, { "sra", 0x1c000000, 0xfc600000, "r,S", 2 }, { "srad", 0x20000000, 0xfc600000, "r,S", 2 }, { "src", 0x24000000, 0xfc600000, "r,S", 2 }, { "srl", 0x1c200000, 0xfc600000, "r,S", 2 }, { "srld", 0x20200000, 0xfc600000, "r,S", 2 }, { "stb", 0xd4080000, 0xfc080000, "r,xOA,X", 4 }, { "std", 0xd4000002, 0xfc080002, "r,xOA,X", 4 }, { "stf", 0xdc000000, 0xfc080000, "r,xOA,X", 4 }, { "stfbr", 0x54000000, 0xfc080000, "b,xOA,X", 4 }, { "sth", 0xd4000001, 0xfc080001, "r,xOA,X", 4 }, { "stmb", 0xd8080000, 0xfc080000, "r,xOA,X", 4 }, { "stmd", 0xd8000002, 0xfc080002, "r,xOA,X", 4 }, { "stmh", 0xd8000001, 0xfc080001, "r,xOA,X", 4 }, { "stmw", 0xd8000000, 0xfc080000, "r,xOA,X", 4 }, { "stpio", 0xfc270000, 0xfc7f8000, "r,I", 4 }, { "stw", 0xd4000000, 0xfc080000, "r,xOA,X", 4 }, { "stwbr", 0x54000000, 0xfc080000, "b,xOA,X", 4 }, { "suabr", 0x58000000, 0xfc080000, "b,xOA,X", 4 }, { "sufd", 0xe0000002, 0xfc080002, "r,xOA,X", 4 }, { "sufw", 0xe0000000, 0xfc080000, "r,xOA,X", 4 }, { "sui", 0xc8020000, 0xfc7f0000, "r,I", 4 }, { "sumb", 0xbc080000, 0xfc080000, "r,xOA,X", 4 }, { "sumd", 0xbc000002, 0xfc080002, "r,xOA,X", 4 }, { "sumh", 0xbc000001, 0xfc080001, "r,xOA,X", 4 }, { "sumw", 0xbc000000, 0xfc080000, "r,xOA,X", 4 }, { "sur", 0x3c000000, 0xfc0f0000, "r,R", 2 }, { "surfd", 0x380b0000, 0xfc0f0000, "r,xOA,X", 4 }, { "surfw", 0x38030000, 0xfc0f0000, "r,R", 2 }, { "surm", 0x3c080000, 0xfc0f0000, "r,R", 2 }, { "svc", 0xc8060000, 0xffff0000, "", 4 }, { "tbm", 0xa4080000, 0xfc080000, "f,xOA,X", 4 }, { "tbr", 0x180c0000, 0xfc0c0000, "r,f", 2 }, { "tbrr", 0x2c020000, 0xfc0f0000, "r,B", 2 }, { "tccr", 0x28040000, 0xfc7f0000, "", 2 }, { "td", 0xfc050000, 0xfc070000, "r,f", 4 }, { "tio", 0xfc1f0000, 0xfc7f8000, "r,I", 4 }, { "tmapr", 0x2c0a0000, 0xfc0f0000, "r,R", 2 }, { "tpcbr", 0x280c0000, 0xfc7f0000, "r", 2 }, { "trbr", 0x2c010000, 0xfc0f0000, "b,R", 2 }, { "trc", 0x2c030000, 0xfc0f0000, "r,R", 2 }, { "trcc", 0x28050000, 0xfc7f0000, "", 2 }, { "trcm", 0x2c0b0000, 0xfc0f0000, "r,R", 2 }, { "trn", 0x2c040000, 0xfc0f0000, "r,R", 2 }, { "trnm", 0x2c0c0000, 0xfc0f0000, "r,R", 2 }, { "trr", 0x2c000000, 0xfc0f0000, "r,R", 2 }, { "trrm", 0x2c080000, 0xfc0f0000, "r,R", 2 }, { "trsc", 0x2c0e0000, 0xfc0f0000, "r,R", 2 }, { "trsw", 0x28000000, 0xfc7f0000, "r", 2 }, { "tscr", 0x2c0f0000, 0xfc0f0000, "r,R", 2 }, { "uei", 0x00070000, 0xffff0000, "", 2 }, { "wait", 0x00010000, 0xffff0000, "", 2 }, { "wcwcs", 0xfc5f0000, 0xfc7f8000, "", 4 }, { "wwcs", 0x000c0000, 0xfc0f0000, "r,R", 2 }, { "xcbr", 0x28020000, 0xfc0f0000, "b,B", 2 }, { "xcr", 0x2c050000, 0xfc0f0000, "r,R", 2 }, { "xcrm", 0x2c0d0000, 0xfc0f0000, "r,R", 2 }, { "zbm", 0x9c080000, 0xfc080000, "f,xOA,X", 4 }, { "zbr", 0x18040000, 0xfc0c0000, "r,f", 2 }, { "zmb", 0xf8080000, 0xfc080000, "r,xOA,X", 4 }, { "zmd", 0xf8000002, 0xfc080002, "r,xOA,X", 4 }, { "zmh", 0xf8000001, 0xfc080001, "r,xOA,X", 4 }, { "zmw", 0xf8000000, 0xfc080000, "r,xOA,X", 4 }, { "zr", 0x0c000000, 0xfc0f0000, "r", 2 }, }; int numopcodes = sizeof(gld_opcodes) / sizeof(gld_opcodes[0]); struct gld_opcode *endop = gld_opcodes + sizeof(gld_opcodes) / sizeof(gld_opcodes[0]); gdb-4.13/include/opcode/ppc.h 666 34562 1752 22137 5550045604 14414 0ustar fnfcygnus/* ppc.h -- Header file for PowerPC opcode table Copyright 1994 Free Software Foundation, Inc. Written by Ian Lance Taylor, Cygnus Support This file is part of GDB, GAS, and the GNU binutils. GDB, GAS, and the GNU binutils are free software; you can redistribute them and/or modify them under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. GDB, GAS, and the GNU binutils are distributed in the hope that they 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 file; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef PPC_H #define PPC_H /* The opcode table is an array of struct powerpc_opcode. */ struct powerpc_opcode { /* The opcode name. */ const char *name; /* The opcode itself. Those bits which will be filled in with operands are zeroes. */ unsigned long opcode; /* The opcode mask. This is used by the disassembler. This is a mask containing ones indicating those bits which must match the opcode field, and zeroes indicating those bits which need not match (and are presumably filled in by operands). */ unsigned long mask; /* One bit flags for the opcode. These are used to indicate which specific processors support the instructions. The defined values are listed below. */ unsigned long flags; /* An array of operand codes. Each code is an index into the operand table. They appear in the order which the operands must appear in assembly code, and are terminated by a zero. */ unsigned char operands[8]; }; /* The table itself is sorted by major opcode number, and is otherwise in the order in which the disassembler should consider instructions. */ extern const struct powerpc_opcode powerpc_opcodes[]; extern const int powerpc_num_opcodes; /* Values defined for the flags field of a struct powerpc_opcode. */ /* Opcode is defined for the PowerPC architecture. */ #define PPC_OPCODE_PPC (01) /* Opcode is defined for the POWER (RS/6000) architecture. */ #define PPC_OPCODE_POWER (02) /* Opcode is defined for the POWER2 (Rios 2) architecture. */ #define PPC_OPCODE_POWER2 (04) /* Opcode is only defined on 32 bit architectures. */ #define PPC_OPCODE_32 (010) /* Opcode is only defined on 64 bit architectures. */ #define PPC_OPCODE_64 (020) /* Opcode is supported by the Motorola PowerPC 601 processor. The 601 is assumed to support all PowerPC (PPC_OPCODE_PPC) instructions, but it also supports many additional POWER instructions. */ #define PPC_OPCODE_601 (040) /* A macro to extract the major opcode from an instruction. */ #define PPC_OP(i) (((i) >> 26) & 0x3f) /* The operands table is an array of struct powerpc_operand. */ struct powerpc_operand { /* The number of bits in the operand. */ int bits; /* How far the operand is left shifted in the instruction. */ int shift; /* Insertion function. This is used by the assembler. To insert an operand value into an instruction, check this field. If it is NULL, execute i |= (op & ((1 << o->bits) - 1)) << o->shift; (i is the instruction which we are filling in, o is a pointer to this structure, and op is the opcode value; this assumes twos complement arithmetic). If this field is not NULL, then simply call it with the instruction and the operand value. It will return the new value of the instruction. If the ERRMSG argument is not NULL, then if the operand value is illegal, *ERRMSG will be set to a warning string (the operand will be inserted in any case). If the operand value is legal, *ERRMSG will be unchanged (most operands can accept any value). */ unsigned long (*insert) PARAMS ((unsigned long instruction, long op, const char **errmsg)); /* Extraction function. This is used by the disassembler. To extract this operand type from an instruction, check this field. If it is NULL, compute op = ((i) >> o->shift) & ((1 << o->bits) - 1); if ((o->flags & PPC_OPERAND_SIGNED) != 0 && (op & (1 << (o->bits - 1))) != 0) op -= 1 << o->bits; (i is the instruction, o is a pointer to this structure, and op is the result; this assumes twos complement arithmetic). If this field is not NULL, then simply call it with the instruction value. It will return the value of the operand. If the INVALID argument is not NULL, *INVALID will be set to non-zero if this operand type can not actually be extracted from this operand (i.e., the instruction does not match). If the operand is valid, *INVALID will not be changed. */ long (*extract) PARAMS ((unsigned long instruction, int *invalid)); /* One bit syntax flags. */ unsigned long flags; }; /* Elements in the table are retrieved by indexing with values from the operands field of the powerpc_opcodes table. */ extern const struct powerpc_operand powerpc_operands[]; /* Values defined for the flags field of a struct powerpc_operand. */ /* This operand takes signed values. */ #define PPC_OPERAND_SIGNED (01) /* This operand takes signed values, but also accepts a full positive range of values when running in 32 bit mode. That is, if bits is 16, it takes any value from -0x8000 to 0xffff. In 64 bit mode, this flag is ignored. */ #define PPC_OPERAND_SIGNOPT (02) /* This operand does not actually exist in the assembler input. This is used to support extended mnemonics such as mr, for which two operands fields are identical. The assembler should call the insert function with any op value. The disassembler should call the extract function, ignore the return value, and check the value placed in the valid argument. */ #define PPC_OPERAND_FAKE (04) /* The next operand should be wrapped in parentheses rather than separated from this one by a comma. This is used for the load and store instructions which want their operands to look like reg,displacement(reg) */ #define PPC_OPERAND_PARENS (010) /* This operand may use the symbolic names for the CR fields, which are lt 0 gt 1 eq 2 so 3 un 3 cr0 0 cr1 1 cr2 2 cr3 3 cr4 4 cr5 5 cr6 6 cr7 7 These may be combined arithmetically, as in cr2*4+gt. These are only supported on the PowerPC, not the POWER. */ #define PPC_OPERAND_CR (020) /* This operand names a register. The disassembler uses this to print register names with a leading 'r'. */ #define PPC_OPERAND_GPR (040) /* This operand names a floating point register. The disassembler prints these with a leading 'f'. */ #define PPC_OPERAND_FPR (0100) /* This operand is a relative branch displacement. The disassembler prints these symbolically if possible. */ #define PPC_OPERAND_RELATIVE (0200) /* This operand is an absolute branch address. The disassembler prints these symbolically if possible. */ #define PPC_OPERAND_ABSOLUTE (0400) /* This operand is optional, and is zero if omitted. This is used for the optional BF and L fields in the comparison instructions. The assembler must count the number of operands remaining on the line, and the number of operands remaining for the opcode, and decide whether this operand is present or not. The disassembler should print this operand out only if it is not zero. */ #define PPC_OPERAND_OPTIONAL (01000) /* This flag is only used with PPC_OPERAND_OPTIONAL. If this operand is omitted, then for the next operand use this operand value plus 1, ignoring the next operand field for the opcode. This wretched hack is needed because the Power rotate instructions can take either 4 or 5 operands. The disassembler should print this operand out regardless of the PPC_OPERAND_OPTIONAL field. */ #define PPC_OPERAND_NEXT (02000) /* This operand should be regarded as a negative number for the purposes of overflow checking (i.e., the normal most negative number is disallowed and one more than the normal most positive number is allowed). This flag will only be set for a signed operand. */ #define PPC_OPERAND_NEGATIVE (04000) /* The POWER and PowerPC assemblers use a few macros. We keep them with the operands table for simplicity. The macro table is an array of struct powerpc_macro. */ struct powerpc_macro { /* The macro name. */ const char *name; /* The number of operands the macro takes. */ unsigned int operands; /* One bit flags for the opcode. These are used to indicate which specific processors support the instructions. The values are the same as those for the struct powerpc_opcode flags field. */ unsigned long flags; /* A format string to turn the macro into a normal instruction. Each %N in the string is replaced with operand number N (zero based). */ const char *format; }; extern const struct powerpc_macro powerpc_macros[]; extern const int powerpc_num_macros; #endif /* PPC_H */ gdb-4.13/include/opcode/pyr.h 666 34562 1752 25746 5116043563 14455 0ustar fnfcygnus/* pyramid.opcode.h -- gdb initial attempt. */ /* pyramid opcode table: wot to do with this particular opcode */ struct pyr_datum { char nargs; char * args; /* how to compile said opcode */ unsigned long mask; /* Bit vector: which operand modes are valid for this opcode */ unsigned char code; /* op-code (always 6(?) bits */ }; typedef struct pyr_insn_format { unsigned int mode :4; unsigned int operator :8; unsigned int index_scale :2; unsigned int index_reg :6; unsigned int operand_1 :6; unsigned int operand_2:6; } pyr_insn_format; /* We store four bytes of opcode for all opcodes. Pyramid is sufficiently RISCy that: - insns are always an integral number of words; - the length of any insn can be told from the first word of the insn. (ie, if there are zero, one, or two words of immediate operand/offset). The args component is a string containing two characters for each operand of the instruction. The first specifies the kind of operand; the second, the place it is stored. */ /* Kinds of operands: mask assembler syntax description 0x0001: movw Rn,Rn register to register 0x0002: movw K,Rn quick immediate to register 0x0004: movw I,Rn long immediate to register 0x0008: movw (Rn),Rn register indirect to register movw (Rn)[x],Rn register indirect to register 0x0010: movw I(Rn),Rn offset register indirect to register movw I(Rn)[x],Rn offset register indirect, indexed, to register 0x0020: movw Rn,(Rn) register to register indirect 0x0040: movw K,(Rn) quick immediate to register indirect 0x0080: movw I,(Rn) long immediate to register indirect 0x0100: movw (Rn),(Rn) register indirect to-register indirect 0x0100: movw (Rn),(Rn) register indirect to-register indirect 0x0200: movw I(Rn),(Rn) register indirect+offset to register indirect 0x0200: movw I(Rn),(Rn) register indirect+offset to register indirect 0x0400: movw Rn,I(Rn) register to register indirect+offset 0x0800: movw K,I(Rn) quick immediate to register indirect+offset 0x1000: movw I,I(Rn) long immediate to register indirect+offset 0x1000: movw (Rn),I(Rn) register indirect to-register indirect+offset 0x1000: movw I(Rn),I(Rn) register indirect+offset to register indirect +offset 0x0000: (irregular) ??? Each insn has a four-bit field encoding the type(s) of its operands. */ /* Some common combinations */ /* the first 5,(0x1|0x2|0x4|0x8|0x10) ie (1|2|4|8|16), ie ( 32 -1)*/ #define GEN_TO_REG (31) #define UNKNOWN ((unsigned long)-1) #define ANY (GEN_TO_REG | (GEN_TO_REG << 5) | (GEN_TO_REG << 15)) #define CONVERT (1|8|0x10|0x20|0x200) #define K_TO_REG (2) #define I_TO_REG (4) #define NOTK_TO_REG (GEN_TO_REG & ~K_TO_REG) #define NOTI_TO_REG (GEN_TO_REG & ~I_TO_REG) /* The assembler requires that this array be sorted as follows: all instances of the same mnemonic must be consecutive. All instances of the same mnemonic with the same number of operands must be consecutive. */ struct pyr_opcode /* pyr opcode text */ { char * name; /* opcode name: lowercase string [key] */ struct pyr_datum datum; /* rest of opcode table [datum] */ }; #define pyr_how args #define pyr_nargs nargs #define pyr_mask mask #define pyr_name name struct pyr_opcode pyr_opcodes[] = { {"movb", { 2, "", UNKNOWN, 0x11}, }, {"movh", { 2, "", UNKNOWN, 0x12} }, {"movw", { 2, "", ANY, 0x10} }, {"movl", { 2, "", ANY, 0x13} }, {"mnegw", { 2, "", (0x1|0x8|0x10), 0x14} }, {"mnegf", { 2, "", 0x1, 0x15} }, {"mnegd", { 2, "", 0x1, 0x16} }, {"mcomw", { 2, "", (0x1|0x8|0x10), 0x17} }, {"mabsw", { 2, "", (0x1|0x8|0x10), 0x18} }, {"mabsf", { 2, "", 0x1, 0x19} }, {"mabsd", { 2, "", 0x1, 0x1a} }, {"mtstw", { 2, "", (0x1|0x8|0x10), 0x1c} }, {"mtstf", { 2, "", 0x1, 0x1d} }, {"mtstd", { 2, "", 0x1, 0x1e} }, {"mova", { 2, "", 0x8|0x10, 0x1f} }, {"movzbw", { 2, "", (0x1|0x8|0x10), 0x20} }, {"movzhw", { 2, "", (0x1|0x8|0x10), 0x21} }, /* 2 insns out of order here */ {"movbl", { 2, "", 1, 0x4f} }, {"filbl", { 2, "", 1, 0x4e} }, {"cvtbw", { 2, "", CONVERT, 0x22} }, {"cvthw", { 2, "", CONVERT, 0x23} }, {"cvtwb", { 2, "", CONVERT, 0x24} }, {"cvtwh", { 2, "", CONVERT, 0x25} }, {"cvtwf", { 2, "", CONVERT, 0x26} }, {"cvtwd", { 2, "", CONVERT, 0x27} }, {"cvtfw", { 2, "", CONVERT, 0x28} }, {"cvtfd", { 2, "", CONVERT, 0x29} }, {"cvtdw", { 2, "", CONVERT, 0x2a} }, {"cvtdf", { 2, "", CONVERT, 0x2b} }, {"addw", { 2, "", GEN_TO_REG, 0x40} }, {"addwc", { 2, "", GEN_TO_REG, 0x41} }, {"subw", { 2, "", GEN_TO_REG, 0x42} }, {"subwb", { 2, "", GEN_TO_REG, 0x43} }, {"rsubw", { 2, "", GEN_TO_REG, 0x44} }, {"mulw", { 2, "", GEN_TO_REG, 0x45} }, {"emul", { 2, "", GEN_TO_REG, 0x47} }, {"umulw", { 2, "", GEN_TO_REG, 0x46} }, {"divw", { 2, "", GEN_TO_REG, 0x48} }, {"ediv", { 2, "", GEN_TO_REG, 0x4a} }, {"rdivw", { 2, "", GEN_TO_REG, 0x4b} }, {"udivw", { 2, "", GEN_TO_REG, 0x49} }, {"modw", { 2, "", GEN_TO_REG, 0x4c} }, {"umodw", { 2, "", GEN_TO_REG, 0x4d} }, {"addf", { 2, "", 1, 0x50} }, {"addd", { 2, "", 1, 0x51} }, {"subf", { 2, "", 1, 0x52} }, {"subd", { 2, "", 1, 0x53} }, {"mulf", { 2, "", 1, 0x56} }, {"muld", { 2, "", 1, 0x57} }, {"divf", { 2, "", 1, 0x58} }, {"divd", { 2, "", 1, 0x59} }, {"cmpb", { 2, "", UNKNOWN, 0x61} }, {"cmph", { 2, "", UNKNOWN, 0x62} }, {"cmpw", { 2, "", UNKNOWN, 0x60} }, {"ucmpb", { 2, "", UNKNOWN, 0x66} }, /* WHY no "ucmph"??? */ {"ucmpw", { 2, "", UNKNOWN, 0x65} }, {"xchw", { 2, "", UNKNOWN, 0x0f} }, {"andw", { 2, "", GEN_TO_REG, 0x30} }, {"orw", { 2, "", GEN_TO_REG, 0x31} }, {"xorw", { 2, "", GEN_TO_REG, 0x32} }, {"bicw", { 2, "", GEN_TO_REG, 0x33} }, {"lshlw", { 2, "", GEN_TO_REG, 0x38} }, {"ashlw", { 2, "", GEN_TO_REG, 0x3a} }, {"ashll", { 2, "", GEN_TO_REG, 0x3c} }, {"ashrw", { 2, "", GEN_TO_REG, 0x3b} }, {"ashrl", { 2, "", GEN_TO_REG, 0x3d} }, {"rotlw", { 2, "", GEN_TO_REG, 0x3e} }, {"rotrw", { 2, "", GEN_TO_REG, 0x3f} }, /* push and pop insns are "going away next release". */ {"pushw", { 2, "", GEN_TO_REG, 0x0c} }, {"popw", { 2, "", (0x1|0x8|0x10), 0x0d} }, {"pusha", { 2, "", (0x8|0x10), 0x0e} }, {"bitsw", { 2, "", UNKNOWN, 0x35} }, {"bitcw", { 2, "", UNKNOWN, 0x36} }, /* some kind of ibra/dbra insns??*/ {"icmpw", { 2, "", UNKNOWN, 0x67} }, {"dcmpw", { 2, "", (1|4|0x20|0x80|0x400|0x1000), 0x69} },/*FIXME*/ {"acmpw", { 2, "", 1, 0x6b} }, /* Call is written as a 1-op insn, but is always (dis)assembled as a 2-op insn with a 2nd op of tr14. The assembler will have to grok this. */ {"call", { 2, "", GEN_TO_REG, 0x04} }, {"call", { 1, "", GEN_TO_REG, 0x04} }, {"callk", { 1, "", UNKNOWN, 0x06} },/* system call?*/ /* Ret is usually written as a 0-op insn, but gets disassembled as a 1-op insn. The operand is always tr15. */ {"ret", { 0, "", UNKNOWN, 0x09} }, {"ret", { 1, "", UNKNOWN, 0x09} }, {"adsf", { 2, "", (1|2|4), 0x08} }, {"retd", { 2, "", UNKNOWN, 0x0a} }, {"btc", { 2, "", UNKNOWN, 0x01} }, {"bfc", { 2, "", UNKNOWN, 0x02} }, /* Careful: halt is 0x00000000. Jump must have some other (mode?)bit set?? */ {"jump", { 1, "", UNKNOWN, 0x00} }, {"btp", { 2, "", UNKNOWN, 0xf00} }, /* read control-stack pointer is another 1-or-2 operand insn. */ {"rcsp", { 2, "", UNKNOWN, 0x01f} }, {"rcsp", { 1, "", UNKNOWN, 0x01f} } }; /* end: pyramid.opcode.h */ /* One day I will have to take the time to find out what operands are valid for these insns, and guess at what they mean. I can't imagine what the "I???" insns (iglob, etc) do. the arithmetic-sounding insns ending in "p" sound awfully like BCD arithmetic insns: dshlp -> Decimal SHift Left Packed dshrp -> Decimal SHift Right Packed and cvtlp would be convert long to packed. I have no idea how the operands are interpreted; but having them be a long register with (address, length) of an in-memory packed BCD operand would not be surprising. They are unlikely to be a packed bcd string: 64 bits of long give is only 15 digits+sign, which isn't enough for COBOL. */ #if 0 {"wcsp", { 2, "", UNKNOWN, 0x00} }, /*write csp?*/ /* The OSx Operating System Porting Guide claims SSL does things with tr12 (a register reserved to it) to do with static block-structure references. SSL=Set Static Link? It's "Going away next release". */ {"ssl", { 2, "", UNKNOWN, 0x00} }, {"ccmps", { 2, "", UNKNOWN, 0x00} }, {"lcd", { 2, "", UNKNOWN, 0x00} }, {"uemul", { 2, "", UNKNOWN, 0x00} }, /*unsigned emul*/ {"srf", { 2, "", UNKNOWN, 0x00} }, /*Gidget time???*/ {"mnegp", { 2, "", UNKNOWN, 0x00} }, /move-neg phys?*/ {"ldp", { 2, "", UNKNOWN, 0x00} }, /*load phys?*/ {"ldti", { 2, "", UNKNOWN, 0x00} }, {"ldb", { 2, "", UNKNOWN, 0x00} }, {"stp", { 2, "", UNKNOWN, 0x00} }, {"stti", { 2, "", UNKNOWN, 0x00} }, {"stb", { 2, "", UNKNOWN, 0x00} }, {"stu", { 2, "", UNKNOWN, 0x00} }, {"addp", { 2, "", UNKNOWN, 0x00} }, {"subp", { 2, "", UNKNOWN, 0x00} }, {"mulp", { 2, "", UNKNOWN, 0x00} }, {"divp", { 2, "", UNKNOWN, 0x00} }, {"dshlp", { 2, "", UNKNOWN, 0x00} }, /* dec shl packed? */ {"dshrp", { 2, "", UNKNOWN, 0x00} }, /* dec shr packed? */ {"movs", { 2, "", UNKNOWN, 0x00} }, /*move (string?)?*/ {"cmpp", { 2, "", UNKNOWN, 0x00} }, /* cmp phys?*/ {"cmps", { 2, "", UNKNOWN, 0x00} }, /* cmp (string?)?*/ {"cvtlp", { 2, "", UNKNOWN, 0x00} }, /* cvt long to p??*/ {"cvtpl", { 2, "", UNKNOWN, 0x00} }, /* cvt p to l??*/ {"dintr", { 2, "", UNKNOWN, 0x00} }, /* ?? intr ?*/ {"rphysw", { 2, "", UNKNOWN, 0x00} }, /* read phys word?*/ {"wphysw", { 2, "", UNKNOWN, 0x00} }, /* write phys word?*/ {"cmovs", { 2, "", UNKNOWN, 0x00} }, {"rsubw", { 2, "", UNKNOWN, 0x00} }, {"bicpsw", { 2, "", UNKNOWN, 0x00} }, /* clr bit in psw? */ {"bispsw", { 2, "", UNKNOWN, 0x00} }, /* set bit in psw? */ {"eio", { 2, "", UNKNOWN, 0x00} }, /* ?? ?io ? */ {"callp", { 2, "", UNKNOWN, 0x00} }, /* call phys?*/ {"callr", { 2, "", UNKNOWN, 0x00} }, {"lpcxt", { 2, "", UNKNOWN, 0x00} }, /*load proc context*/ {"rei", { 2, "", UNKNOWN, 0x00} }, /*ret from intrpt*/ {"rport", { 2, "", UNKNOWN, 0x00} }, /*read-port?*/ {"rtod", { 2, "", UNKNOWN, 0x00} }, /*read-time-of-day?*/ {"ssi", { 2, "", UNKNOWN, 0x00} }, {"vtpa", { 2, "", UNKNOWN, 0x00} }, /*virt-to-phys-addr?*/ {"wicl", { 2, "", UNKNOWN, 0x00} }, /* write icl ? */ {"wport", { 2, "", UNKNOWN, 0x00} }, /*write-port?*/ {"wtod", { 2, "", UNKNOWN, 0x00} }, /*write-time-of-day?*/ {"flic", { 2, "", UNKNOWN, 0x00} }, {"iglob", { 2, "", UNKNOWN, 0x00} }, /* I global? */ {"iphys", { 2, "", UNKNOWN, 0x00} }, /* I physical? */ {"ipid", { 2, "", UNKNOWN, 0x00} }, /* I pid? */ {"ivect", { 2, "", UNKNOWN, 0x00} }, /* I vector? */ {"lamst", { 2, "", UNKNOWN, 0x00} }, {"tio", { 2, "", UNKNOWN, 0x00} }, #endif gdb-4.13/include/opcode/rs6k.h 666 34562 1752 22020 5361360764 14515 0ustar fnfcygnus/* IBM RS/6000 instruction set definitions, for GNU software. */ /* These are all possible instruction formats as used in IBM Assembler Language Reference, Appendix A. */ typedef enum { A=0, B, D, I, M, SC, X, XL, XO, XFL, XFX } InsnFmt; /* Extended opcode masks. Used for extracting extended opcode values from instructions. Each instruction's format decides which mask applies. They *should* retain the same order as the above formats. */ static int eopMask[] = { 0x1f, 0, 0, 0, 0, 0, 0x3ff, 0x3ff, 0x1ff, 0x3ff, 0x3ff }; /* All the things you need to know about an opcode. */ typedef struct rs6000_insn { char *operator; /* opcode name */ char *opr_ext; /* opcode name extension */ InsnFmt format; /* opcode format */ char p_opcode; /* primary opcode */ int e_opcode; /* extended opcode */ char oprnd_format[6]; /* operand format */ } OPCODE; /* operand format specifiers */ #define TO 1 #define RA 2 #define SI 3 #define RT 4 #define UI 5 #define BF 6 #define BFA 7 #define BT 8 #define BA 9 #define BB 10 #define BO 11 #define BI 12 #define RB 13 #define RS 14 #define SH 15 #define MB 16 #define ME 17 #define SPR 18 #define DIS 19 #define FXM 21 #define FRT 22 #define NB 23 #define FRS 24 #define FRA 25 #define FRB 26 #define FRC 27 #define FLM 28 #define I 29 #define LI 30 #define A2 31 #define TA14 32 /* 14 bit representation of target address */ #define TA24 33 /* 24 bit representation of target address */ #define FL1 34 #define FL2 35 #define LEV 36 /* RS/6000 INSTRUCTION SET (sorted on primary and extended opcode) oprtr primary ext. operator ext format opcode opcode operand format ------- ------- ------ ------- ------ --------------- */ struct rs6000_insn rs6k_ops [] = { {"ti", 0, D, 3, -1, {TO,RA,SI,0} }, {"muli", 0, D, 7, -1, {RT,RA,SI,0} }, {"sfi", 0, D, 8, -1, {RT,RA,SI,0} }, {"dozi", 0, D, 9, -1, {RT,RA,SI,0} }, {"cmpli", 0, D, 10, -1, {BF,RA,UI,0} }, {"cmpi", 0, D, 11, -1, {BF,RA,SI,0} }, {"ai", 0, D, 12, -1, {RT,RA,SI,0} }, {"ai.", 0, D, 13, -1, {RT,RA,SI,0} }, {"lil", 0, D, 14, -1, {RT,SI,0} }, /* same as `cal' */ {"cal", 0, D, 14, -1, {RT,DIS,RA,0} }, {"liu", 0, D, 15, -1, {RT, UI,0} }, /* same as `cau' */ {"cau", 0, D, 15, -1, {RT,RA,UI,0} }, /* "1" indicates an exception--"bb" is only usable for some values of BO, so the disassembler first matches this instruction and then changes it to "bc" if that is the case. */ {"bb", "1tfla", B, 16, -1, {LI,A2,0} }, {"bc", "la", B, 16, -1, {BO,BI,TA14,0} }, {"svc", "la", SC, 17, -1, {LEV,FL1,FL2,0} }, {"b", "la", I, 18, -1, {TA24,0} }, {"mcrf", 0, XL, 19, 0, {BF,BFA,0} }, {"bcr", "l", XL, 19, 16, {BO,BI,0} }, {"crnor", 0, XL, 19, 33, {BT,BA,BB,0} }, {"rfi", 0, X, 19, 50, {0} }, {"rfsvc", 0, X, 19, 82, {0} }, {"crandc", 0, XL, 19, 129, {BT,BA,BB,0} }, {"ics", 0, X, 19, 150, {0} }, {"crxor", 0, XL, 19, 193, {BT,BA,BB,0} }, {"crnand", 0, XL, 19, 225, {BT,BA,BB,0} }, {"crand", 0, XL, 19, 257, {BT,BA,BB,0} }, {"creqv", 0, XL, 19, 289, {BT,BA,BB,0} }, {"crorc", 0, XL, 19, 417, {BT,BA,BB,0} }, {"cror", 0, XL, 19, 449, {BT,BA,BB,0} }, {"bcc", "l", XL, 19, 528, {BO,BI,0} }, {"rlimi", ".", M, 20, -1, {RA,RS,SH,MB,ME,0} /*??*/}, {"rlinm", ".", M, 21, -1, {RA,RS,SH,MB,ME,0} /*??*/}, {"rlmi", ".", M, 22, -1, {RA,RS,RB,MB,ME,0} /*??*/}, {"rlnm", ".", M, 23, -1, {RA,RS,RB,MB,ME,0} /*??*/}, {"oril", 0, D, 24, -1, {RA,RS,UI,0} }, {"oriu", 0, D, 25, -1, {RA,RS,UI,0} }, {"xoril", 0, D, 26, -1, {RA,RS,UI,0} }, {"xoriu", 0, D, 27, -1, {RA,RS,UI,0} }, {"andil.", 0, D, 28, -1, {RA,RS,UI,0} }, {"andiu.", 0, D, 29, -1, {RA,RS,UI,0} }, {"cmp", 0, X, 31, 0, {BF,RA,RB,0} }, {"t", 0, X, 31, 4, {TO,RA,RB,0} }, {"sf", "o.", XO, 31, 8, {RT,RA,RB,0} }, {"a", "o.", XO, 31, 10, {RT,RA,RB,0} }, {"mfcr", 0, X, 31, 19, {RT,0} }, {"lx", 0, X, 31, 23, {RT,RA,RB,0} }, {"sl", ".", X, 31, 24, {RA,RS,RB,0} }, {"cntlz", ".", XO, 31, 26, {RA,RS,0} }, {"and", ".", X, 31, 28, {RA,RS,RB,0} }, {"maskg", ".", X, 31, 29, {RA,RS,RB,0} }, {"cmpl", 0, X, 31, 32, {BF,RA,RB,0} }, {"sfe", "o.", XO, 31, 136, {RT,RA,RB,0} }, {"lux", 0, X, 31, 55, {RT,RA,RB,0} }, {"andc", ".", X, 31, 60, {RA,RS,RB,0} }, {"mfmsr", 0, X, 31, 83, {RT,0} }, {"lbzx", 0, X, 31, 87, {RT,RA,RB,0} }, {"neg", "o.", XO, 31, 104, {RT,RA,0} }, {"mul", "o.", XO, 31, 107, {RT,RA,RB,0} }, {"lbzux", 0, X, 31, 119, {RT,RA,RB,0} }, {"nor", ".", X, 31, 124, {RA,RS,RB,0} }, {"ae", "o.", XO, 31, 138, {RT,RA,RB,0} }, {"mtcrf", 0, XFX, 31, 144, {FXM,RS,0} }, {"stx", 0, X, 31, 151, {RS,RA,RB,0} }, {"slq", ".", X, 31, 152, {RA,RS,RB,0} }, {"sle", ".", X, 31, 153, {RA,RS,RB,0} }, {"stux", 0, X, 31, 183, {RS,RA,RB,0} }, {"sliq", ".", X, 31, 184, {RA,RS,SH,0} }, {"sfze", "o.", XO, 31, 200, {RT,RA,0} }, {"aze", "o.", XO, 31, 202, {RT,RA,0} }, {"stbx", 0, X, 31, 215, {RS,RA,RB,0} }, {"sllq", ".", X, 31, 216, {RA,RS,RB,0} }, {"sleq", ".", X, 31, 217, {RA,RS,RB,0} }, {"sfme", "o.", XO, 31, 232, {RT,RA,0} }, {"ame", "o.", XO, 31, 234, {RT,RA,0} }, {"muls", "o.", XO, 31, 235, {RT,RA,RB,0} }, {"stbux", 0, X, 31, 247, {RS,RA,RB,0} }, {"slliq", ".", X, 31, 248, {RA,RS,SH,0} }, {"doz", "o.", X, 31, 264, {RT,RA,RB,0} }, {"cax", "o.", XO, 31, 266, {RT,RA,RB,0} }, {"lscbx", ".", X, 31, 277, {RT,RA,RB,0} }, {"lhzx", 0, X, 31, 279, {RT,RA,RB,0} }, {"eqv", ".", X, 31, 284, {RA,RS,RB,0} }, {"lhzux", 0, X, 31, 311, {RT,RA,RB,0} }, {"xor", ".", X, 31, 316, {RA,RS,RB,0} }, {"div", "o.", XO, 31, 331, {RT,RA,RB,0} }, {"mfspr", 0, X, 31, 339, {RT,SPR,0} }, {"lhax", 0, X, 31, 343, {RT,RA,RB,0} }, {"abs", "o.", XO, 31, 360, {RT,RA,0} }, {"divs", "o.", XO, 31, 363, {RT,RA,RB,0} }, {"lhaux", 0, X, 31, 375, {RT,RA,RB,0} }, {"sthx", 0, X, 31, 407, {RS,RA,RB,0} }, {"orc", ".", X, 31, 412, {RA,RS,RB,0} }, {"sthux", 0, X, 31, 439, {RS,RA,RB,0} }, {"or", ".", X, 31, 444, {RA,RS,RB,0} }, {"mtspr", 0, X, 31, 467, {SPR,RS,0} }, {"nand", ".", X, 31, 476, {RA,RS,RB,0} }, {"nabs", "o.", XO, 31, 488, {RT,RA,0} }, {"mcrxr", 0, X, 31, 512, {BF,0} }, {"lsx", 0, X, 31, 533, {RT,RA,RB,0} }, {"lbrx", 0, X, 31, 534, {RT,RA,RB,0} }, {"lfsx", 0, X, 31, 535, {FRT,RA,RB,0} }, {"sr", ".", X, 31, 536, {RA,RS,RB,0} }, {"rrib", ".", X, 31, 537, {RA,RS,RB,0} }, {"maskir", ".", X, 31, 541, {RA,RS,RB,0} }, {"lfsux", 0, X, 31, 567, {FRT,RA,RB,0} }, {"lsi", 0, X, 31, 597, {RT,RA,NB,0} }, {"lfdx", 0, X, 31, 599, {FRT,RA,RB,0} }, {"lfdux", 0, X, 31, 631, {FRT,RA,RB,0} }, {"stsx", 0, X, 31, 661, {RS,RA,RB,0} }, {"stbrx", 0, X, 31, 662, {RS,RA,RB,0} }, {"stfsx", 0, X, 31, 663, {FRS,RA,RB,0} }, {"srq", ".", X, 31, 664, {RA,RS,RB,0} }, {"sre", ".", X, 31, 665, {RA,RS,RB,0} }, {"stfsux", 0, X, 31, 695, {FRS,RA,RB,0} }, {"sriq", ".", X, 31, 696, {RA,RS,SH,0} }, {"stsi", 0, X, 31, 725, {RS,RA,NB,0} }, {"stfdx", 0, X, 31, 727, {FRS,RA,RB,0} }, {"srlq", ".", X, 31, 728, {RA,RS,RB,0} }, {"sreq", ".", X, 31, 729, {RA,RS,RB,0} }, {"stfdux", 0, X, 31, 759, {FRS,RA,RB,0} }, {"srliq", ".", X, 31, 760, {RA,RS,SH,0} }, {"lhbrx", 0, X, 31, 790, {RT,RA,RB,0} }, {"sra", ".", X, 31, 792, {RA,RS,RB,0} }, {"srai", ".", X, 31, 824, {RA,RS,SH,0} }, {"sthbrx", 0, X, 31, 918, {RS,RA,RB,0} }, {"sraq", ".", X, 31, 920, {RA,RS,RB,0} }, {"srea", ".", X, 31, 921, {RA,RS,RB,0} }, {"exts", ".", X, 31, 922, {RA,RS,0} }, {"sraiq", ".", X, 31, 952, {RA,RS,SH,0} }, {"l", 0, D, 32, -1, {RT,DIS,RA,0} }, {"lu", 0, D, 33, -1, {RT,DIS,RA,0} }, {"lbz", 0, D, 34, -1, {RT,DIS,RA,0} }, {"lbzu", 0, D, 35, -1, {RT,DIS,RA,0} }, {"st", 0, D, 36, -1, {RS,DIS,RA,0} }, {"stu", 0, D, 37, -1, {RS,DIS,RA,0} }, {"stb", 0, D, 38, -1, {RS,DIS,RA,0} }, {"stbu", 0, D, 39, -1, {RS,DIS,RA,0} }, {"lhz", 0, D, 40, -1, {RT,DIS,RA,0} }, {"lhzu", 0, D, 41, -1, {RT,DIS,RA,0} }, {"lha", 0, D, 42, -1, {RT,DIS,RA,0} }, {"lhau", 0, D, 43, -1, {RT,DIS,RA,0} }, {"sth", 0, D, 44, -1, {RS,DIS,RA,0} }, {"sthu", 0, D, 45, -1, {RS,DIS,RA,0} }, {"lm", 0, D, 46, -1, {RT,DIS,RA,0} }, {"stm", 0, D, 47, -1, {RS,DIS,RA,0} }, {"lfs", 0, D, 48, -1, {FRT,DIS,RA,0} }, {"lfsu", 0, D, 49, -1, {FRT,DIS,RA,0} }, {"lfd", 0, D, 50, -1, {FRT,DIS,RA,0} }, {"lfdu", 0, D, 51, -1, {FRT,DIS,RA,0} }, {"stfs", 0, D, 52, -1, {FRS,DIS,RA,0} }, {"stfsu", 0, D, 53, -1, {FRS,DIS,RA,0} }, {"stfd", 0, D, 54, -1, {FRS,DIS,RA,0} }, {"stfdu", 0, D, 55, -1, {FRS,DIS,RA,0} }, {"fcmpu", 0, X, 63, 0, {BF,FRA,FRB,0} }, {"frsp", ".", X, 63, 12, {FRT,FRB,0} }, {"fd", ".", A, 63, 18, {FRT,FRA,FRB,0} }, {"fs", ".", A, 63, 20, {FRT,FRA,FRB,0} }, {"fa", ".", A, 63, 21, {FRT,FRA,FRB,0} }, {"fm", ".", A, 63, 25, {FRT,FRA,FRC,0} }, {"fms", ".", A, 63, 28, {FRT,FRA,FRC,FRB,0} }, {"fma", ".", A, 63, 29, {FRT,FRA,FRC,FRB,0} }, {"fnms", ".", A, 63, 30, {FRT,FRA,FRC,FRB,0} }, {"fnma", ".", A, 63, 31, {FRT,FRA,FRC,FRB,0} }, {"fcmpo", 0, X, 63, 32, {BF,FRA,FRB,0} }, {"mtfsb1", ".", X, 63, 38, {BT,0} }, {"fneg", ".", X, 63, 40, {FRT,FRB,0} }, {"mcrfs", 0, X, 63, 64, {BF,BFA,0} }, {"mtfsb0", ".", X, 63, 70, {BT,0} }, {"fmr", ".", X, 63, 72, {FRT,FRB,0} }, {"mtfsfi", ".", X, 63, 134, {BF,I,0} }, {"fnabs", ".", X, 63, 136, {FRT,FRB,0} }, {"fabs", ".", X, 63, 264, {FRT,FRB,0} }, {"mffs", ".", X, 63, 583, {FRT,0} }, {"mtfsf", ".", XFL, 63, 711, {FLM,FRB,0} }, }; #define NOPCODES (sizeof (rs6k_ops) / sizeof (struct rs6000_insn)) gdb-4.13/include/opcode/sparc.h 666 34562 1752 13436 5573705723 14756 0ustar fnfcygnus/* Definitions for opcode table for the sparc. Copyright 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of GAS, the GNU Assembler, GDB, the GNU debugger, and the GNU Binutils. GAS/GDB 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 2, or (at your option) any later version. GAS/GDB 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 GAS or GDB; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The SPARC opcode table (and other related data) is defined in the opcodes library in sparc-opc.c. If you change anything here, make sure you fix up that file, and vice versa. */ /* FIXME-someday: perhaps the ,a's and such should be embedded in the instruction's name rather than the args. This would make gas faster, pinsn slower, but would mess up some macros a bit. xoxorich. */ #define sparc_architecture bfd_sparc_architecture #define architecture_pname bfd_sparc_architecture_pname #define sparc_opcode bfd_sparc_opcode #define sparc_opcodes bfd_sparc_opcodes /* * Structure of an opcode table entry. * This enumerator must parallel the architecture_pname array * in bfd/opc-sparc.c. */ enum sparc_architecture { v6 = 0, v7, v8, sparclite, v9 }; extern const char *architecture_pname[]; /* Sparclite and v9 are both supersets of v8; we can't bump between them. */ #define ARCHITECTURES_CONFLICT_P(ARCH1, ARCH2) ((ARCH1) == sparclite && (ARCH2) == v9) struct sparc_opcode { const char *name; unsigned long match; /* Bits that must be set. */ unsigned long lose; /* Bits that must not be set. */ const char *args; /* This was called "delayed" in versions before the flags. */ char flags; enum sparc_architecture architecture; }; #define F_DELAYED 1 /* Delayed branch */ #define F_ALIAS 2 /* Alias for a "real" instruction */ #define F_UNBR 4 /* Unconditional branch */ #define F_CONDBR 8 /* Conditional branch */ #define F_JSR 16 /* Subroutine call */ /* FIXME: Add F_ANACHRONISTIC flag for v9. */ /* FIXME: Add F_OBSOLETE flag for v9, for instructions that no longer exist? */ /* All sparc opcodes are 32 bits, except for the `set' instruction (really a macro), which is 64 bits. It is handled as a special case. The match component is a mask saying which bits must match a particular opcode in order for an instruction to be an instance of that opcode. The args component is a string containing one character for each operand of the instruction. Kinds of operands: # Number used by optimizer. It is ignored. 1 rs1 register. 2 rs2 register. d rd register. e frs1 floating point register. v frs1 floating point register (double/even). V frs1 floating point register (quad/multiple of 4). f frs2 floating point register. B frs2 floating point register (double/even). R frs2 floating point register (quad/multiple of 4). g frsd floating point register. H frsd floating point register (double/even). J frsd floating point register (quad/multiple of 4). b crs1 coprocessor register c crs2 coprocessor register D crsd coprocessor register m alternate space register (asr) in rd M alternate space register (asr) in rs1 h 22 high bits. K MEMBAR mask (7 bits). (v9) j 10 bit Immediate. (v9) I 11 bit Immediate. (v9) i 13 bit Immediate. n 22 bit immediate. k 2+14 bit PC relative immediate. (v9) G 19 bit PC relative immediate. (v9) l 22 bit PC relative immediate. L 30 bit PC relative immediate. a Annul. The annul bit is set. A Alternate address space. Stored as 8 bits. C Coprocessor state register. F floating point state register. p Processor state register. N Branch predict clear ",pn" (v9) T Branch predict set ",pt" (v9) z %icc. (v9) Z %xcc. (v9) q Floating point queue. r Single register that is both rs1 and rsd. Q Coprocessor queue. S Special case. t Trap base register. w Window invalid mask register. y Y register. E %ccr. (v9) s %fprs. (v9) P %pc. (v9) W %tick. (v9) o %asi. (v9) 6 %fcc0. (v9) 7 %fcc1. (v9) 8 %fcc2. (v9) 9 %fcc3. (v9) ! Privileged Register in rd (v9) ? Privileged Register in rs1 (v9) * Prefetch function constant. (v9) The following chars are unused: (note: ,[] are used as punctuation) [uxOUXY3450] */ #define OP2(x) (((x)&0x7) << 22) /* op2 field of format2 insns */ #define OP3(x) (((x)&0x3f) << 19) /* op3 field of format3 insns */ #define OP(x) ((unsigned)((x)&0x3) << 30) /* op field of all insns */ #define OPF(x) (((x)&0x1ff) << 5) /* opf field of float insns */ #define OPF_LOW5(x) OPF((x)&0x1f) /* v9 */ #define F3F(x, y, z) (OP(x) | OP3(y) | OPF(z)) /* format3 float insns */ #define F3I(x) (((x)&0x1) << 13) /* immediate field of format 3 insns */ #define F2(x, y) (OP(x) | OP2(y)) /* format 2 insns */ #define F3(x, y, z) (OP(x) | OP3(y) | F3I(z)) /* format3 insns */ #define F1(x) (OP(x)) #define DISP30(x) ((x)&0x3fffffff) #define ASI(x) (((x)&0xff) << 5) /* asi field of format3 insns */ #define RS2(x) ((x)&0x1f) /* rs2 field */ #define SIMM13(x) ((x)&0x1fff) /* simm13 field */ #define RD(x) (((x)&0x1f) << 25) /* destination register field */ #define RS1(x) (((x)&0x1f) << 14) /* rs1 field */ #define ASI_RS2(x) (SIMM13(x)) #define ANNUL (1<<29) #define BPRED (1<<19) /* v9 */ #define IMMED F3I(1) #define RD_G0 RD(~0) #define RS1_G0 RS1(~0) #define RS2_G0 RS2(~0) extern struct sparc_opcode sparc_opcodes[]; extern const int bfd_sparc_num_opcodes; #define NUMOPCODES bfd_sparc_num_opcodes /* * Local Variables: * fill-column: 131 * comment-column: 0 * End: */ /* end of sparc.h */ gdb-4.13/include/opcode/tahoe.h 666 34562 1752 17445 5116043571 14737 0ustar fnfcygnus/* * Ported by the State University of New York at Buffalo by the Distributed * Computer Systems Lab, Department of Computer Science, 1991. */ #ifndef tahoe_opcodeT #define tahoe_opcodeT int #endif /* no tahoe_opcodeT */ struct vot_wot /* tahoe opcode table: wot to do with this */ /* particular opcode */ { char * args; /* how to compile said opcode */ tahoe_opcodeT code; /* op-code (may be > 8 bits!) */ }; struct vot /* tahoe opcode text */ { char * name; /* opcode name: lowercase string [key] */ struct vot_wot detail; /* rest of opcode table [datum] */ }; #define vot_how args #define vot_code code #define vot_detail detail #define vot_name name static struct vot votstrs[] = { { "halt", {"", 0x00 } }, { "sinf", {"", 0x05 } }, { "ldf", {"rl", 0x06 } }, { "ldd", {"rq", 0x07 } }, { "addb2", {"rbmb", 0x08 } }, { "movb", {"rbwb", 0x09 } }, { "addw2", {"rwmw", 0x0a } }, { "movw", {"rwww", 0x0b } }, { "addl2", {"rlml", 0x0c } }, { "movl", {"rlwl", 0x0d } }, { "bbs", {"rlvlbw", 0x0e } }, { "nop", {"", 0x10 } }, { "brb", {"bb", 0x11 } }, { "brw", {"bw", 0x13 } }, { "cosf", {"", 0x15 } }, { "lnf", {"rl", 0x16 } }, { "lnd", {"rq", 0x17 } }, { "addb3", {"rbrbwb", 0x18 } }, { "cmpb", {"rbwb", 0x19 } }, { "addw3", {"rwrwww", 0x1a } }, { "cmpw", {"rwww", 0x1b } }, { "addl3", {"rlrlwl", 0x1c } }, { "cmpl", {"rlwl", 0x1d } }, { "bbc", {"rlvlbw", 0x1e } }, { "rei", {"", 0x20 } }, { "bneq", {"bb", 0x21 } }, { "bnequ", {"bb", 0x21 } }, { "cvtwl", {"rwwl", 0x23 } }, { "stf", {"wl", 0x26 } }, { "std", {"wq", 0x27 } }, { "subb2", {"rbmb", 0x28 } }, { "mcomb", {"rbwb", 0x29 } }, { "subw2", {"rwmw", 0x2a } }, { "mcomw", {"rwww", 0x2b } }, { "subl2", {"rlml", 0x2c } }, { "mcoml", {"rlwl", 0x2d } }, { "emul", {"rlrlrlwq", 0x2e } }, { "aoblss", {"rlmlbw", 0x2f } }, { "bpt", {"", 0x30 } }, { "beql", {"bb", 0x31 } }, { "beqlu", {"bb", 0x31 } }, { "cvtwb", {"rwwb", 0x33 } }, { "logf", {"", 0x35 } }, { "cmpf", {"rl", 0x36 } }, { "cmpd", {"rq", 0x37 } }, { "subb3", {"rbrbwb", 0x38 } }, { "bitb", {"rbrb", 0x39 } }, { "subw3", {"rwrwww", 0x3a } }, { "bitw", {"rwrw", 0x3b } }, { "subl3", {"rlrlwl", 0x3c } }, { "bitl", {"rlrl", 0x3d } }, { "ediv", {"rlrqwlwl", 0x3e } }, { "aobleq", {"rlmlbw", 0x3f } }, { "ret", {"", 0x40 } }, { "bgtr", {"bb", 0x41 } }, { "sqrtf", {"", 0x45 } }, { "cmpf2", {"rl", 0x46 } }, { "cmpd2", {"rqrq", 0x47 } }, { "shll", {"rbrlwl", 0x48 } }, { "clrb", {"wb", 0x49 } }, { "shlq", {"rbrqwq", 0x4a } }, { "clrw", {"ww", 0x4b } }, { "mull2", {"rlml", 0x4c } }, { "clrl", {"wl", 0x4d } }, { "shal", {"rbrlwl", 0x4e } }, { "bleq", {"bb", 0x51 } }, { "expf", {"", 0x55 } }, { "tstf", {"", 0x56 } }, { "tstd", {"", 0x57 } }, { "shrl", {"rbrlwl", 0x58 } }, { "tstb", {"rb", 0x59 } }, { "shrq", {"rbrqwq", 0x5a } }, { "tstw", {"rw", 0x5b } }, { "mull3", {"rlrlwl", 0x5c } }, { "tstl", {"rl", 0x5d } }, { "shar", {"rbrlwl", 0x5e } }, { "bbssi", {"rlmlbw", 0x5f } }, { "ldpctx", {"", 0x60 } }, { "pushd", {"", 0x67 } }, { "incb", {"mb", 0x69 } }, { "incw", {"mw", 0x6b } }, { "divl2", {"rlml", 0x6c } }, { "incl", {"ml", 0x6d } }, { "cvtlb", {"rlwb", 0x6f } }, { "svpctx", {"", 0x70 } }, { "jmp", {"ab", 0x71 } }, { "cvlf", {"rl", 0x76 } }, { "cvld", {"rl", 0x77 } }, { "decb", {"mb", 0x79 } }, { "decw", {"mw", 0x7b } }, { "divl3", {"rlrlwl", 0x7c } }, { "decl", {"ml", 0x7d } }, { "cvtlw", {"rlww", 0x7f } }, { "bgeq", {"bb", 0x81 } }, { "movs2", {"abab", 0x82 } }, { "cvfl", {"wl", 0x86 } }, { "cvdl", {"wl", 0x87 } }, { "orb2", {"rbmb", 0x88 } }, { "cvtbl", {"rbwl", 0x89 } }, { "orw2", {"rwmw", 0x8a } }, { "bispsw", {"rw", 0x8b } }, { "orl2", {"rlml", 0x8c } }, { "adwc", {"rlml", 0x8d } }, { "adda", {"rlml", 0x8e } }, { "blss", {"bb", 0x91 } }, { "cmps2", {"abab", 0x92 } }, { "ldfd", {"rl", 0x97 } }, { "orb3", {"rbrbwb", 0x98 } }, { "cvtbw", {"rbww", 0x99 } }, { "orw3", {"rwrwww", 0x9a } }, { "bicpsw", {"rw", 0x9b } }, { "orl3", {"rlrlwl", 0x9c } }, { "sbwc", {"rlml", 0x9d } }, { "suba", {"rlml", 0x9e } }, { "bgtru", {"bb", 0xa1 } }, { "cvdf", {"", 0xa6 } }, { "andb2", {"rbmb", 0xa8 } }, { "movzbl", {"rbwl", 0xa9 } }, { "andw2", {"rwmw", 0xaa } }, { "loadr", {"rwal", 0xab } }, { "andl2", {"rlml", 0xac } }, { "mtpr", {"rlrl", 0xad } }, { "ffs", {"rlwl", 0xae } }, { "blequ", {"bb", 0xb1 } }, { "negf", {"", 0xb6 } }, { "negd", {"", 0xb7 } }, { "andb3", {"rbrbwb", 0xb8 } }, { "movzbw", {"rbww", 0xb9 } }, { "andw3", {"rwrwww", 0xba } }, { "storer", {"rwal", 0xbb } }, { "andl3", {"rlrlwl", 0xbc } }, { "mfpr", {"rlwl", 0xbd } }, { "ffc", {"rlwl", 0xbe } }, { "calls", {"rbab", 0xbf } }, { "prober", {"rbabrl", 0xc0 } }, { "bvc", {"bb", 0xc1 } }, { "movs3", {"ababrw", 0xc2 } }, { "movzwl", {"rwwl", 0xc3 } }, { "addf", {"rl", 0xc6 } }, { "addd", {"rq", 0xc7 } }, { "xorb2", {"rbmb", 0xc8 } }, { "movob", {"rbwb", 0xc9 } }, { "xorw2", {"rwmw", 0xca } }, { "movow", {"rwww", 0xcb } }, { "xorl2", {"rlml", 0xcc } }, { "movpsl", {"wl", 0xcd } }, { "kcall", {"rw", 0xcf } }, { "probew", {"rbabrl", 0xd0 } }, { "bvs", {"bb", 0xd1 } }, { "cmps3", {"ababrw", 0xd2 } }, { "subf", {"rq", 0xd6 } }, { "subd", {"rq", 0xd7 } }, { "xorb3", {"rbrbwb", 0xd8 } }, { "pushb", {"rb", 0xd9 } }, { "xorw3", {"rwrwww", 0xda } }, { "pushw", {"rw", 0xdb } }, { "xorl3", {"rlrlwl", 0xdc } }, { "pushl", {"rl", 0xdd } }, { "insque", {"abab", 0xe0 } }, { "bcs", {"bb", 0xe1 } }, { "bgequ", {"bb", 0xe1 } }, { "mulf", {"rq", 0xe6 } }, { "muld", {"rq", 0xe7 } }, { "mnegb", {"rbwb", 0xe8 } }, { "movab", {"abwl", 0xe9 } }, { "mnegw", {"rwww", 0xea } }, { "movaw", {"awwl", 0xeb } }, { "mnegl", {"rlwl", 0xec } }, { "moval", {"alwl", 0xed } }, { "remque", {"ab", 0xf0 } }, { "bcc", {"bb", 0xf1 } }, { "blssu", {"bb", 0xf1 } }, { "divf", {"rq", 0xf6 } }, { "divd", {"rq", 0xf7 } }, { "movblk", {"alalrw", 0xf8 } }, { "pushab", {"ab", 0xf9 } }, { "pushaw", {"aw", 0xfb } }, { "casel", {"rlrlrl", 0xfc } }, { "pushal", {"al", 0xfd } }, { "callf", {"rbab", 0xfe } }, { "" , "" } /* empty is end sentinel */ }; gdb-4.13/include/opcode/vax.h 666 34562 1752 32305 5304224126 14421 0ustar fnfcygnus/* Vax opcde list. Copyright (C) 1989, Free Software Foundation, Inc. This file is part of GDB and GAS. GDB and GAS are 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 1, or (at your option) any later version. GDB and GAS are 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 GDB or GAS; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef vax_opcodeT #define vax_opcodeT int #endif /* no vax_opcodeT */ struct vot_wot /* vax opcode table: wot to do with this */ /* particular opcode */ { char * args; /* how to compile said opcode */ vax_opcodeT code; /* op-code (may be > 8 bits!) */ }; struct vot /* vax opcode text */ { char * name; /* opcode name: lowercase string [key] */ struct vot_wot detail; /* rest of opcode table [datum] */ }; #define vot_how args #define vot_code code #define vot_detail detail #define vot_name name static const struct vot votstrs[] = { { "halt", {"", 0x00 } }, { "nop", {"", 0x01 } }, { "rei", {"", 0x02 } }, { "bpt", {"", 0x03 } }, { "ret", {"", 0x04 } }, { "rsb", {"", 0x05 } }, { "ldpctx", {"", 0x06 } }, { "svpctx", {"", 0x07 } }, { "cvtps", {"rwabrwab", 0x08 } }, { "cvtsp", {"rwabrwab", 0x09 } }, { "index", {"rlrlrlrlrlwl", 0x0a } }, { "crc", {"abrlrwab", 0x0b } }, { "prober", {"rbrwab", 0x0c } }, { "probew", {"rbrwab", 0x0d } }, { "insque", {"abab", 0x0e } }, { "remque", {"abwl", 0x0f } }, { "bsbb", {"bb", 0x10 } }, { "brb", {"bb", 0x11 } }, { "bneq", {"bb", 0x12 } }, { "bnequ", {"bb", 0x12 } }, { "beql", {"bb", 0x13 } }, { "beqlu", {"bb", 0x13 } }, { "bgtr", {"bb", 0x14 } }, { "bleq", {"bb", 0x15 } }, { "jsb", {"ab", 0x16 } }, { "jmp", {"ab", 0x17 } }, { "bgeq", {"bb", 0x18 } }, { "blss", {"bb", 0x19 } }, { "bgtru", {"bb", 0x1a } }, { "blequ", {"bb", 0x1b } }, { "bvc", {"bb", 0x1c } }, { "bvs", {"bb", 0x1d } }, { "bcc", {"bb", 0x1e } }, { "bgequ", {"bb", 0x1e } }, { "blssu", {"bb", 0x1f } }, { "bcs", {"bb", 0x1f } }, { "addp4", {"rwabrwab", 0x20 } }, { "addp6", {"rwabrwabrwab", 0x21 } }, { "subp4", {"rwabrwab", 0x22 } }, { "subp6", {"rwabrwabrwab", 0x23 } }, { "cvtpt", {"rwababrwab", 0x24 } }, { "mulp", {"rwabrwabrwab", 0x25 } }, { "cvttp", {"rwababrwab", 0x26 } }, { "divp", {"rwabrwabrwab", 0x27 } }, { "movc3", {"rwabab", 0x28 } }, { "cmpc3", {"rwabab", 0x29 } }, { "scanc", {"rwababrb", 0x2a } }, { "spanc", {"rwababrb", 0x2b } }, { "movc5", {"rwabrbrwab", 0x2c } }, { "cmpc5", {"rwabrbrwab", 0x2d } }, { "movtc", {"rwabrbabrwab", 0x2e } }, { "movtuc", {"rwabrbabrwab", 0x2f } }, { "bsbw", {"bw", 0x30 } }, { "brw", {"bw", 0x31 } }, { "cvtwl", {"rwwl", 0x32 } }, { "cvtwb", {"rwwb", 0x33 } }, { "movp", {"rwabab", 0x34 } }, { "cmpp3", {"rwabab", 0x35 } }, { "cvtpl", {"rwabwl", 0x36 } }, { "cmpp4", {"rwabrwab", 0x37 } }, { "editpc", {"rwababab", 0x38 } }, { "matchc", {"rwabrwab", 0x39 } }, { "locc", {"rbrwab", 0x3a } }, { "skpc", {"rbrwab", 0x3b } }, { "movzwl", {"rwwl", 0x3c } }, { "acbw", {"rwrwmwbw", 0x3d } }, { "movaw", {"awwl", 0x3e } }, { "pushaw", {"aw", 0x3f } }, { "addf2", {"rfmf", 0x40 } }, { "addf3", {"rfrfwf", 0x41 } }, { "subf2", {"rfmf", 0x42 } }, { "subf3", {"rfrfwf", 0x43 } }, { "mulf2", {"rfmf", 0x44 } }, { "mulf3", {"rfrfwf", 0x45 } }, { "divf2", {"rfmf", 0x46 } }, { "divf3", {"rfrfwf", 0x47 } }, { "cvtfb", {"rfwb", 0x48 } }, { "cvtfw", {"rfww", 0x49 } }, { "cvtfl", {"rfwl", 0x4a } }, { "cvtrfl", {"rfwl", 0x4b } }, { "cvtbf", {"rbwf", 0x4c } }, { "cvtwf", {"rwwf", 0x4d } }, { "cvtlf", {"rlwf", 0x4e } }, { "acbf", {"rfrfmfbw", 0x4f } }, { "movf", {"rfwf", 0x50 } }, { "cmpf", {"rfrf", 0x51 } }, { "mnegf", {"rfwf", 0x52 } }, { "tstf", {"rf", 0x53 } }, { "emodf", {"rfrbrfwlwf", 0x54 } }, { "polyf", {"rfrwab", 0x55 } }, { "cvtfd", {"rfwd", 0x56 } }, /* opcode 57 is not defined yet */ { "adawi", {"rwmw", 0x58 } }, /* opcode 59 is not defined yet */ /* opcode 5a is not defined yet */ /* opcode 5b is not defined yet */ { "insqhi", {"abaq", 0x5c } }, { "insqti", {"abaq", 0x5d } }, { "remqhi", {"aqwl", 0x5e } }, { "remqti", {"aqwl", 0x5f } }, { "addd2", {"rdmd", 0x60 } }, { "addd3", {"rdrdwd", 0x61 } }, { "subd2", {"rdmd", 0x62 } }, { "subd3", {"rdrdwd", 0x63 } }, { "muld2", {"rdmd", 0x64 } }, { "muld3", {"rdrdwd", 0x65 } }, { "divd2", {"rdmd", 0x66 } }, { "divd3", {"rdrdwd", 0x67 } }, { "cvtdb", {"rdwb", 0x68 } }, { "cvtdw", {"rdww", 0x69 } }, { "cvtdl", {"rdwl", 0x6a } }, { "cvtrdl", {"rdwl", 0x6b } }, { "cvtbd", {"rbwd", 0x6c } }, { "cvtwd", {"rwwd", 0x6d } }, { "cvtld", {"rlwd", 0x6e } }, { "acbd", {"rdrdmdbw", 0x6f } }, { "movd", {"rdwd", 0x70 } }, { "cmpd", {"rdrd", 0x71 } }, { "mnegd", {"rdwd", 0x72 } }, { "tstd", {"rd", 0x73 } }, { "emodd", {"rdrbrdwlwd", 0x74 } }, { "polyd", {"rdrwab", 0x75 } }, { "cvtdf", {"rdwf", 0x76 } }, /* opcode 77 is not defined yet */ { "ashl", {"rbrlwl", 0x78 } }, { "ashq", {"rbrqwq", 0x79 } }, { "emul", {"rlrlrlwq", 0x7a } }, { "ediv", {"rlrqwlwl", 0x7b } }, { "clrd", {"wd", 0x7c } }, { "clrg", {"wg", 0x7c } }, { "clrq", {"wd", 0x7c } }, { "movq", {"rqwq", 0x7d } }, { "movaq", {"aqwl", 0x7e } }, { "movad", {"adwl", 0x7e } }, { "pushaq", {"aq", 0x7f } }, { "pushad", {"ad", 0x7f } }, { "addb2", {"rbmb", 0x80 } }, { "addb3", {"rbrbwb", 0x81 } }, { "subb2", {"rbmb", 0x82 } }, { "subb3", {"rbrbwb", 0x83 } }, { "mulb2", {"rbmb", 0x84 } }, { "mulb3", {"rbrbwb", 0x85 } }, { "divb2", {"rbmb", 0x86 } }, { "divb3", {"rbrbwb", 0x87 } }, { "bisb2", {"rbmb", 0x88 } }, { "bisb3", {"rbrbwb", 0x89 } }, { "bicb2", {"rbmb", 0x8a } }, { "bicb3", {"rbrbwb", 0x8b } }, { "xorb2", {"rbmb", 0x8c } }, { "xorb3", {"rbrbwb", 0x8d } }, { "mnegb", {"rbwb", 0x8e } }, { "caseb", {"rbrbrb", 0x8f } }, { "movb", {"rbwb", 0x90 } }, { "cmpb", {"rbrb", 0x91 } }, { "mcomb", {"rbwb", 0x92 } }, { "bitb", {"rbrb", 0x93 } }, { "clrb", {"wb", 0x94 } }, { "tstb", {"rb", 0x95 } }, { "incb", {"mb", 0x96 } }, { "decb", {"mb", 0x97 } }, { "cvtbl", {"rbwl", 0x98 } }, { "cvtbw", {"rbww", 0x99 } }, { "movzbl", {"rbwl", 0x9a } }, { "movzbw", {"rbww", 0x9b } }, { "rotl", {"rbrlwl", 0x9c } }, { "acbb", {"rbrbmbbw", 0x9d } }, { "movab", {"abwl", 0x9e } }, { "pushab", {"ab", 0x9f } }, { "addw2", {"rwmw", 0xa0 } }, { "addw3", {"rwrwww", 0xa1 } }, { "subw2", {"rwmw", 0xa2 } }, { "subw3", {"rwrwww", 0xa3 } }, { "mulw2", {"rwmw", 0xa4 } }, { "mulw3", {"rwrwww", 0xa5 } }, { "divw2", {"rwmw", 0xa6 } }, { "divw3", {"rwrwww", 0xa7 } }, { "bisw2", {"rwmw", 0xa8 } }, { "bisw3", {"rwrwww", 0xa9 } }, { "bicw2", {"rwmw", 0xaa } }, { "bicw3", {"rwrwww", 0xab } }, { "xorw2", {"rwmw", 0xac } }, { "xorw3", {"rwrwww", 0xad } }, { "mnegw", {"rwww", 0xae } }, { "casew", {"rwrwrw", 0xaf } }, { "movw", {"rwww", 0xb0 } }, { "cmpw", {"rwrw", 0xb1 } }, { "mcomw", {"rwww", 0xb2 } }, { "bitw", {"rwrw", 0xb3 } }, { "clrw", {"ww", 0xb4 } }, { "tstw", {"rw", 0xb5 } }, { "incw", {"mw", 0xb6 } }, { "decw", {"mw", 0xb7 } }, { "bispsw", {"rw", 0xb8 } }, { "bicpsw", {"rw", 0xb9 } }, { "popr", {"rw", 0xba } }, { "pushr", {"rw", 0xbb } }, { "chmk", {"rw", 0xbc } }, { "chme", {"rw", 0xbd } }, { "chms", {"rw", 0xbe } }, { "chmu", {"rw", 0xbf } }, { "addl2", {"rlml", 0xc0 } }, { "addl3", {"rlrlwl", 0xc1 } }, { "subl2", {"rlml", 0xc2 } }, { "subl3", {"rlrlwl", 0xc3 } }, { "mull2", {"rlml", 0xc4 } }, { "mull3", {"rlrlwl", 0xc5 } }, { "divl2", {"rlml", 0xc6 } }, { "divl3", {"rlrlwl", 0xc7 } }, { "bisl2", {"rlml", 0xc8 } }, { "bisl3", {"rlrlwl", 0xc9 } }, { "bicl2", {"rlml", 0xca } }, { "bicl3", {"rlrlwl", 0xcb } }, { "xorl2", {"rlml", 0xcc } }, { "xorl3", {"rlrlwl", 0xcd } }, { "mnegl", {"rlwl", 0xce } }, { "casel", {"rlrlrl", 0xcf } }, { "movl", {"rlwl", 0xd0 } }, { "cmpl", {"rlrl", 0xd1 } }, { "mcoml", {"rlwl", 0xd2 } }, { "bitl", {"rlrl", 0xd3 } }, { "clrf", {"wf", 0xd4 } }, { "clrl", {"wl", 0xd4 } }, { "tstl", {"rl", 0xd5 } }, { "incl", {"ml", 0xd6 } }, { "decl", {"ml", 0xd7 } }, { "adwc", {"rlml", 0xd8 } }, { "sbwc", {"rlml", 0xd9 } }, { "mtpr", {"rlrl", 0xda } }, { "mfpr", {"rlwl", 0xdb } }, { "movpsl", {"wl", 0xdc } }, { "pushl", {"rl", 0xdd } }, { "moval", {"alwl", 0xde } }, { "movaf", {"afwl", 0xde } }, { "pushal", {"al", 0xdf } }, { "pushaf", {"af", 0xdf } }, { "bbs", {"rlvbbb", 0xe0 } }, { "bbc", {"rlvbbb", 0xe1 } }, { "bbss", {"rlvbbb", 0xe2 } }, { "bbcs", {"rlvbbb", 0xe3 } }, { "bbsc", {"rlvbbb", 0xe4 } }, { "bbcc", {"rlvbbb", 0xe5 } }, { "bbssi", {"rlvbbb", 0xe6 } }, { "bbcci", {"rlvbbb", 0xe7 } }, { "blbs", {"rlbb", 0xe8 } }, { "blbc", {"rlbb", 0xe9 } }, { "ffs", {"rlrbvbwl", 0xea } }, { "ffc", {"rlrbvbwl", 0xeb } }, { "cmpv", {"rlrbvbrl", 0xec } }, { "cmpzv", {"rlrbvbrl", 0xed } }, { "extv", {"rlrbvbwl", 0xee } }, { "extzv", {"rlrbvbwl", 0xef } }, { "insv", {"rlrlrbvb", 0xf0 } }, { "acbl", {"rlrlmlbw", 0xf1 } }, { "aoblss", {"rlmlbb", 0xf2 } }, { "aobleq", {"rlmlbb", 0xf3 } }, { "sobgeq", {"mlbb", 0xf4 } }, { "sobgtr", {"mlbb", 0xf5 } }, { "cvtlb", {"rlwb", 0xf6 } }, { "cvtlw", {"rlww", 0xf7 } }, { "ashp", {"rbrwabrbrwab", 0xf8 } }, { "cvtlp", {"rlrwab", 0xf9 } }, { "callg", {"abab", 0xfa } }, { "calls", {"rlab", 0xfb } }, { "xfc", {"", 0xfc } }, /* undefined opcodes here */ { "cvtdh", {"rdwh", 0x32fd } }, { "cvtgf", {"rgwh", 0x33fd } }, { "addg2", {"rgmg", 0x40fd } }, { "addg3", {"rgrgwg", 0x41fd } }, { "subg2", {"rgmg", 0x42fd } }, { "subg3", {"rgrgwg", 0x43fd } }, { "mulg2", {"rgmg", 0x44fd } }, { "mulg3", {"rgrgwg", 0x45fd } }, { "divg2", {"rgmg", 0x46fd } }, { "divg3", {"rgrgwg", 0x47fd } }, { "cvtgb", {"rgwb", 0x48fd } }, { "cvtgw", {"rgww", 0x49fd } }, { "cvtgl", {"rgwl", 0x4afd } }, { "cvtrgl", {"rgwl", 0x4bfd } }, { "cvtbg", {"rbwg", 0x4cfd } }, { "cvtwg", {"rwwg", 0x4dfd } }, { "cvtlg", {"rlwg", 0x4efd } }, { "acbg", {"rgrgmgbw", 0x4ffd } }, { "movg", {"rgwg", 0x50fd } }, { "cmpg", {"rgrg", 0x51fd } }, { "mnegg", {"rgwg", 0x52fd } }, { "tstg", {"rg", 0x53fd } }, { "emodg", {"rgrwrgwlwg", 0x54fd } }, { "polyg", {"rgrwab", 0x55fd } }, { "cvtgh", {"rgwh", 0x56fd } }, /* undefined opcodes here */ { "addh2", {"rhmh", 0x60fd } }, { "addh3", {"rhrhwh", 0x61fd } }, { "subh2", {"rhmh", 0x62fd } }, { "subh3", {"rhrhwh", 0x63fd } }, { "mulh2", {"rhmh", 0x64fd } }, { "mulh3", {"rhrhwh", 0x65fd } }, { "divh2", {"rhmh", 0x66fd } }, { "divh3", {"rhrhwh", 0x67fd } }, { "cvthb", {"rhwb", 0x68fd } }, { "cvthw", {"rhww", 0x69fd } }, { "cvthl", {"rhwl", 0x6afd } }, { "cvtrhl", {"rhwl", 0x6bfd } }, { "cvtbh", {"rbwh", 0x6cfd } }, { "cvtwh", {"rwwh", 0x6dfd } }, { "cvtlh", {"rlwh", 0x6efd } }, { "acbh", {"rhrhmhbw", 0x6ffd } }, { "movh", {"rhwh", 0x70fd } }, { "cmph", {"rhrh", 0x71fd } }, { "mnegh", {"rhwh", 0x72fd } }, { "tsth", {"rh", 0x73fd } }, { "emodh", {"rhrwrhwlwh", 0x74fd } }, { "polyh", {"rhrwab", 0x75fd } }, { "cvthg", {"rhwg", 0x76fd } }, /* undefined opcodes here */ { "clrh", {"wh", 0x7cfd } }, { "clro", {"wo", 0x7cfd } }, { "movo", {"rowo", 0x7dfd } }, { "movah", {"ahwl", 0x7efd } }, { "movao", {"aowl", 0x7efd } }, { "pushah", {"ah", 0x7ffd } }, { "pushao", {"ao", 0x7ffd } }, /* undefined opcodes here */ { "cvtfh", {"rfwh", 0x98fd } }, { "cvtfg", {"rfwg", 0x99fd } }, /* undefined opcodes here */ { "cvthf", {"rhwf", 0xf6fd } }, { "cvthd", {"rhwd", 0xf7fd } }, /* undefined opcodes here */ { "bugl", {"rl", 0xfdff } }, { "bugw", {"rw", 0xfeff } }, /* undefined opcodes here */ { "" , "" } /* empty is end sentinel */ }; /* votstrs */ /* end: vax.opcode.h */ gdb-4.13/libiberty/ 777 34562 1752 0 5623251715 12450 5ustar fnfcygnusgdb-4.13/libiberty/config/ 777 34562 1752 0 5623251141 13706 5ustar fnfcygnusgdb-4.13/libiberty/config/mh-a68bsd 666 34562 1752 106 5172647645 15400 0ustar fnfcygnusRANLIB=ranlib CC= cc -A ansi -A runtype,any -A systype,any -U__STDC__ gdb-4.13/libiberty/config/mh-aix 666 34562 1752 672 5307327333 15067 0ustar fnfcygnusHDEFINES = -D__IEEE_BIG_ENDIAN RANLIB=true INSTALL=cp # Most releases of AIX 3.1 include an incorrect internal version of copysign # in libc.a for use by some libc public functions including modf. The public # version of copysign in libm.a is usable. For the sake of libg++ (which # uses modf), we add copysign here. Supposedly, this problem is fixed in AIX # 3.1.8 and above, including all releases of AIX 3.2. EXTRA_OFILES = copysign.o gdb-4.13/libiberty/config/mh-apollo68 666 34562 1752 104 5307327335 15742 0ustar fnfcygnusRANLIB=true CC= cc -A ansi -A runtype,any -A systype,any -U__STDC__ gdb-4.13/libiberty/config/mh-cxux7 666 34562 1752 111 5612036271 15345 0ustar fnfcygnusHDEFINES = -DHAVE_SYSCONF -DHARRIS_FLOAT_FORMAT RANLIB=true INSTALL = cp gdb-4.13/libiberty/config/mh-go32 666 34562 1752 157 5563026234 15056 0ustar fnfcygnusHDEFINES=-DHAVE_GETRUSAGE CC=i386-go32-gcc -O2 -fno-omit-frame-pointer AR=i386-go32-ar RANLIB=i386-go32-ranlib gdb-4.13/libiberty/config/mh-hpbsd 666 34562 1752 43 5422606644 15361 0ustar fnfcygnus# HPPA hosts using BSD RANLIB=true gdb-4.13/libiberty/config/mh-hpux 666 34562 1752 30 5367611650 15242 0ustar fnfcygnusEXTRA_OFILES = alloca.o gdb-4.13/libiberty/config/mh-irix4 666 34562 1752 101 5257446703 15337 0ustar fnfcygnusCC = cc -cckr RANLIB = true INSTALL = cp EXTRA_OFILES = alloca.o gdb-4.13/libiberty/config/mh-lynxos 666 34562 1752 40 5422607144 15606 0ustar fnfcygnusHDEFINES = -DLOSING_SYS_SIGLIST gdb-4.13/libiberty/config/mh-ncr3000 666 34562 1752 1345 5307327336 15414 0ustar fnfcygnus# Host configuration file for an NCR 3000 (i486/SVR4) system. # The NCR 3000 ships with a MetaWare compiler installed as /bin/cc. # This compiler not only emits obnoxious copyright messages every time # you run it, but it chokes and dies on a whole bunch of GNU source # files. Default to using the AT&T compiler installed in /usr/ccs/ATT/cc. # Unfortunately though, the AT&T compiler sometimes generates code that # the assembler barfs on if -g is used, so disable it by default as well. CC = /usr/ccs/ATT/cc CFLAGS = RANLIB = true # The /usr/ucb/install program is incompatible (complains about unknown # group staff). Use good old cp... INSTALL = cp # The l flag generates a warning from the SVR4 archiver, remove it. AR_FLAGS = cq gdb-4.13/libiberty/config/mh-sysv 666 34562 1752 14 5307327340 15256 0ustar fnfcygnusRANLIB=true gdb-4.13/libiberty/config/mh-sysv4 666 34562 1752 63 5307327342 15350 0ustar fnfcygnusHDEFINES = -DHAVE_SYSCONF RANLIB=true INSTALL = cp gdb-4.13/libiberty/config/mt-sunos4 666 34562 1752 70 5562561273 15533 0ustar fnfcygnusXTRAFLAGS = -I../sun4includes LOADLIBES = -L../sun4libs gdb-4.13/libiberty/COPYING.LIB 666 34562 1752 61261 5340116531 14206 0ustar fnfcygnus GNU LIBRARY GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. [This is the first released version of the library GPL. It is numbered 2 because it goes with version 2 of the ordinary GPL.] Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public Licenses are intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This license, the Library General Public License, applies to some specially designated Free Software Foundation software, and to any other libraries whose authors decide to use it. You can use it for your libraries, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the library, or if you modify it. For example, if you distribute copies of the library, whether gratis or for a fee, you must give the recipients all the rights that we gave you. You must make sure that they, too, receive or can get the source code. If you link a program with the library, you must provide complete object files to the recipients so that they can relink them with the library, after making changes to the library and recompiling it. And you must show them these terms so they know their rights. Our method of protecting your rights has two steps: (1) copyright the library, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the library. Also, for each distributor's protection, we want to make certain that everyone understands that there is no warranty for this free library. If the library is modified by someone else and passed on, we want its recipients to know that what they have is not the original version, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that companies distributing free software will individually obtain patent licenses, thus in effect transforming the program into proprietary software. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. Most GNU software, including some libraries, is covered by the ordinary GNU General Public License, which was designed for utility programs. This license, the GNU Library General Public License, applies to certain designated libraries. This license is quite different from the ordinary one; be sure to read it in full, and don't assume that anything in it is the same as in the ordinary license. The reason we have a separate public license for some libraries is that they blur the distinction we usually make between modifying or adding to a program and simply using it. Linking a program with a library, without changing the library, is in some sense simply using the library, and is analogous to running a utility program or application program. However, in a textual and legal sense, the linked executable is a combined work, a derivative of the original library, and the ordinary General Public License treats it as such. Because of this blurred distinction, using the ordinary General Public License for libraries did not effectively promote software sharing, because most developers did not use the libraries. We concluded that weaker conditions might promote sharing better. However, unrestricted linking of non-free programs would deprive the users of those programs of all benefit from the free status of the libraries themselves. This Library General Public License is intended to permit developers of non-free programs to use free libraries, while preserving your freedom as a user of such programs to change the free libraries that are incorporated in them. (We have not seen how to achieve this as regards changes in header files, but we have achieved it as regards changes in the actual functions of the Library.) The hope is that this will lead to faster development of free libraries. The precise terms and conditions for copying, distribution and modification follow. Pay close attention to the difference between a "work based on the library" and a "work that uses the library". The former contains code derived from the library, while the latter only works together with the library. Note that it is possible for a library to be covered by the ordinary General Public License rather than by this special one. GNU LIBRARY GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any software library which contains a notice placed by the copyright holder or other authorized party saying it may be distributed under the terms of this Library General Public License (also called "this License"). Each licensee is addressed as "you". A "library" means a collection of software functions and/or data prepared so as to be conveniently linked with application programs (which use some of those functions and data) to form executables. The "Library", below, refers to any such software library or work which has been distributed under these terms. A "work based on the Library" means either the Library or any derivative work under copyright law: that is to say, a work containing the Library or a portion of it, either verbatim or with modifications and/or translated straightforwardly into another language. (Hereinafter, translation is included without limitation in the term "modification".) "Source code" for a work means the preferred form of the work for making modifications to it. For a library, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the library. Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running a program using the Library is not restricted, and output from such a program is covered only if its contents constitute a work based on the Library (independent of the use of the Library in a tool for writing it). Whether that is true depends on what the Library does and what the program that uses the Library does. 1. You may copy and distribute verbatim copies of the Library's complete source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and distribute a copy of this License along with the Library. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Library or any portion of it, thus forming a work based on the Library, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) The modified work must itself be a software library. b) You must cause the files modified to carry prominent notices stating that you changed the files and the date of any change. c) You must cause the whole of the work to be licensed at no charge to all third parties under the terms of this License. d) If a facility in the modified Library refers to a function or a table of data to be supplied by an application program that uses the facility, other than as an argument passed when the facility is invoked, then you must make a good faith effort to ensure that, in the event an application does not supply such function or table, the facility still operates, and performs whatever part of its purpose remains meaningful. (For example, a function in a library to compute square roots has a purpose that is entirely well-defined independent of the application. Therefore, Subsection 2d requires that any application-supplied function or table used by this function must be optional: if the application does not supply it, the square root function must still compute square roots.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Library, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Library, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Library. In addition, mere aggregation of another work not based on the Library with the Library (or with a work based on the Library) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may opt to apply the terms of the ordinary GNU General Public License instead of this License to a given copy of the Library. To do this, you must alter all the notices that refer to this License, so that they refer to the ordinary GNU General Public License, version 2, instead of to this License. (If a newer version than version 2 of the ordinary GNU General Public License has appeared, then you can specify that version instead if you wish.) Do not make any other change in these notices. Once this change is made in a given copy, it is irreversible for that copy, so the ordinary GNU General Public License applies to all subsequent copies and derivative works made from that copy. This option is useful when you wish to copy part of the code of the Library into a program that is not a library. 4. You may copy and distribute the Library (or a portion or derivative of it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange. If distribution of object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place satisfies the requirement to distribute the source code, even though third parties are not compelled to copy the source along with the object code. 5. A program that contains no derivative of any portion of the Library, but is designed to work with the Library by being compiled or linked with it, is called a "work that uses the Library". Such a work, in isolation, is not a derivative work of the Library, and therefore falls outside the scope of this License. However, linking a "work that uses the Library" with the Library creates an executable that is a derivative of the Library (because it contains portions of the Library), rather than a "work that uses the library". The executable is therefore covered by this License. Section 6 states terms for distribution of such executables. When a "work that uses the Library" uses material from a header file that is part of the Library, the object code for the work may be a derivative work of the Library even though the source code is not. Whether this is true is especially significant if the work can be linked without the Library, or if the work is itself a library. The threshold for this to be true is not precisely defined by law. If such an object file uses only numerical parameters, data structure layouts and accessors, and small macros and small inline functions (ten lines or less in length), then the use of the object file is unrestricted, regardless of whether it is legally a derivative work. (Executables containing this object code plus portions of the Library will still fall under Section 6.) Otherwise, if the work is a derivative of the Library, you may distribute the object code for the work under the terms of Section 6. Any executables containing that work also fall under Section 6, whether or not they are linked directly with the Library itself. 6. As an exception to the Sections above, you may also compile or link a "work that uses the Library" with the Library to produce a work containing portions of the Library, and distribute that work under terms of your choice, provided that the terms permit modification of the work for the customer's own use and reverse engineering for debugging such modifications. You must give prominent notice with each copy of the work that the Library is used in it and that the Library and its use are covered by this License. You must supply a copy of this License. If the work during execution displays copyright notices, you must include the copyright notice for the Library among them, as well as a reference directing the user to the copy of this License. Also, you must do one of these things: a) Accompany the work with the complete corresponding machine-readable source code for the Library including whatever changes were used in the work (which must be distributed under Sections 1 and 2 above); and, if the work is an executable linked with the Library, with the complete machine-readable "work that uses the Library", as object code and/or source code, so that the user can modify the Library and then relink to produce a modified executable containing the modified Library. (It is understood that the user who changes the contents of definitions files in the Library will not necessarily be able to recompile the application to use the modified definitions.) b) Accompany the work with a written offer, valid for at least three years, to give the same user the materials specified in Subsection 6a, above, for a charge no more than the cost of performing this distribution. c) If distribution of the work is made by offering access to copy from a designated place, offer equivalent access to copy the above specified materials from the same place. d) Verify that the user has already received a copy of these materials or that you have already sent this user a copy. For an executable, the required form of the "work that uses the Library" must include any data and utility programs needed for reproducing the executable from it. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. It may happen that this requirement contradicts the license restrictions of other proprietary libraries that do not normally accompany the operating system. Such a contradiction means you cannot use both them and the Library together in an executable that you distribute. 7. You may place library facilities that are a work based on the Library side-by-side in a single library together with other library facilities not covered by this License, and distribute such a combined library, provided that the separate distribution of the work based on the Library and of the other library facilities is otherwise permitted, and provided that you do these two things: a) Accompany the combined library with a copy of the same work based on the Library, uncombined with any other library facilities. This must be distributed under the terms of the Sections above. b) Give prominent notice with the combined library of the fact that part of it is a work based on the Library, and explaining where to find the accompanying uncombined form of the same work. 8. You may not copy, modify, sublicense, link with, or distribute the Library except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense, link with, or distribute the Library is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 9. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Library or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Library (or any work based on the Library), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Library or works based on it. 10. Each time you redistribute the Library (or any work based on the Library), the recipient automatically receives a license from the original licensor to copy, distribute, link with or modify the Library subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 11. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Library at all. For example, if a patent license would not permit royalty-free redistribution of the Library by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Library. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply, and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 12. If the distribution and/or use of the Library is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Library under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 13. The Free Software Foundation may publish revised and/or new versions of the Library General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Library specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Library does not specify a license version number, you may choose any version ever published by the Free Software Foundation. 14. If you wish to incorporate parts of the Library into other free programs whose distribution conditions are incompatible with these, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Libraries If you develop a new library, and you want it to be of the greatest possible use to the public, we recommend making it free software that everyone can redistribute and change. You can do so by permitting redistribution under these terms (or, alternatively, under the terms of the ordinary General Public License). To apply these terms, attach the following notices to the library. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the library, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the library `Frob' (a library for tweaking knobs) written by James Random Hacker. , 1 April 1990 Ty Coon, President of Vice That's all there is to it! gdb-4.13/libiberty/ChangeLog 666 34562 1752 130127 5612036266 14346 0ustar fnfcygnusSat Jul 16 12:56:32 1994 Stan Shebs (shebs@andros.cygnus.com) * config.table (*-*-cxux7*): Recognize. * floatformat.c (floatformat_m88110_ext) [HARRIS_FLOAT_FORMAT]: Harris-specific float format. * config/mh-cxux7: New file. Wed Jun 29 00:26:17 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * cplus-dem.c (demangle_template): Make sure that the result of consume_count doesn't index beyond the end of the string. Mon Jun 20 23:54:37 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * cplus-dem.c (gnu_special): Handle vtable mangling of gcc-2.4.5 and earlier. Improve test for new vtable mangling. Change output back to `virtual table'. Mon Jun 20 11:37:30 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * obstack.c: Always compile this code, even if using the GNU library. Avoids problems with relatively recent binary incompatibility. Thu Jun 16 17:54:01 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * cplus-dem.c: Include libiberty.h. (xmalloc, xrealloc, free): Don't declare. (strstr): Don't declare parameters. (xmalloc, xrealloc): Don't define. (long_options): Add no-strip-underscores. (main): Call xmalloc_set_program_name. Pass n in short options to getopt_long. Handle option 'n' to not strip underscores. (usage): Mention -n and --no-strip-underscores. Sun Jun 12 01:37:09 1994 Jason Merrill (jason@deneb.cygnus.com) * cplus-dem.c (demangle_template): Separate consecutive >'s with a space. (gnu_special): Demangle template and qualified names in a vtable name. Fri May 27 12:27:52 1994 Ken Raeburn (raeburn@cujo.cygnus.com) From gas-2.3 and binutils-2.4 net releases: Wed May 11 22:32:00 1994 DJ Delorie (dj@ctron.com) * makefile.dos: [new] Makefile for dos/go32 * configure.bat: update for latest files * msdos.c: remove some functions now in libc.a Fri May 20 18:53:32 1994 Per Bothner (bothner@kalessin.cygnus.com) * cplus-dem.c (gnu_special): Recognize thunks, as well as the new naming style for vtables (when -fvtable-thunks). Wed May 18 13:34:06 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * Makefile.in (XTRAFLAGS): Don't define. (.c.o, dummy.o): Don't use XTRAFLAGS. ($(RULE1)): Don't pass XTRAFLAGS down in recursive call. Fri May 13 16:02:12 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * vasprintf.c: New file. * Makefile.in, functions.def: Add it. Fri May 13 16:20:28 1994 Jason Merrill (jason@deneb.cygnus.com) * cplus-dem.c (demangle_fund_type): Grok bool. Fri May 6 14:44:21 1994 Steve Chamberlain (sac@cygnus.com) * config.table: Add go32 * config/mh-go32: New template. Fri May 6 11:01:59 1994 D. V. Henkel-Wallace (gumby@rtl.cygnus.com) * config.table, config/mt-sunos4: config for when sun4 is cross target. Mon Apr 11 00:54:33 1994 Richard Stallman (rms@mole.gnu.ai.mit.edu) * getopt.c [not __GNU_LIBRARY__] [__GCC__] [not __STDC__]: Declare strlen to return int. Don't include stddef.h. Fri Apr 1 00:38:17 1994 Jim Wilson (wilson@mole.gnu.ai.mit.edu) * getopt.c: Delete use of IN_GCC to control whether stddef.h or gstddef.h is included. Thu Apr 14 14:00:56 1994 Kung Hsu (kung@mexican.cygnus.com) * cplus-dem.c (demangle_signature): Fix a bug in template function type numbering. Wed Apr 13 17:23:03 1994 Kung Hsu (kung@mexican.cygnus.com) * cplus-dem.c (demangle_signature): Fix template function with arm style argument type number, Tn. Wed Apr 13 17:11:15 1994 Jason Merrill (jason@deneb.cygnus.com) * cplus-dem.c (optable): Add new[] and delete[]. Fri Apr 8 11:21:42 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * argv.c (buildargv): Don't produce empty argument just because there is trailing whitespace. Wed Apr 6 11:42:14 1994 Kung Hsu (kung@mexican.cygnus.com) * cplus-dem.c (demangle_template): fix 'Q' qualified name bug. Handle 'p' same as 'P'. * cplus-dem.c (do_type): Handle 'p' same as 'P'. Sat Mar 26 12:00:13 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * floatformat.c (get_field, put_field): Fix off by one error in little endian case. Thu Mar 24 10:40:19 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * floatformat.c (floatformat_from_double): Pass unsigned char *, not char *, to put_field. Fri Mar 18 12:34:33 1994 Per Bothner (bothner@kalessin.cygnus.com) * memmove.c: Re-wrote; placed in public domain. Wed Mar 16 10:33:07 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * cplus-dem.c (demangle_prefix): If ARM demangling, don't treat __Q* as a constructor. Mon Mar 14 12:26:02 1994 Ian Lance Taylor (ian@cygnus.com) * ieee-float.c: Removed; no longer used. * Makefile.in: Changed accordingly. Mon Mar 7 12:28:17 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * floatformat.c (get_field): Removed unused local variable i. (put_field): Removed unused local variable i. Sun Feb 27 21:50:11 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * floatformat.c: New file, intended to replace ieee-float.c. * Makefile.in: Change accordingly. Thu Feb 24 11:51:12 1994 David J. Mackenzie (djm@rtl.cygnus.com) * getopt.c: Remove #ifdef GETOPT_COMPAT and #if 0 code. (_getopt_initialize): New function, broken out of _getopt_internal. (_getopt_internal): If long_only and the ARGV-element has the form "-f", where f is a valid short option, don't consider it an abbreviated form of a long option that starts with f. Otherwise there would be no way to give the -f short option. Thu Feb 10 14:44:16 1994 Richard Stallman (rms@mole.gnu.ai.mit.edu) * getopt.c [not __GNU_LIBRARY__] [__GNUC__] [not IN_GCC]: Test just __STDC__, not emacs. Wed Feb 9 00:14:00 1994 Richard Stallman (rms@mole.gnu.ai.mit.edu) * getopt.c [not __GNU_LIBRARY__] [__GNUC__] [not IN_GCC] [emacs] [not __STDC__]: Don't include stddef.h. Don't declare strlen. Fri Dec 24 19:43:00 1993 Noah Friedman (friedman@nutrimat.gnu.ai.mit.edu) * getopt.c (_NO_PROTO): Define before config.h is included. Mon Sep 20 15:59:03 1993 Roland McGrath (roland@churchy.gnu.ai.mit.edu) * getopt.c, getopt1.c [emacs || CONFIG_BROKETS]: Include only under these, else "config.h". Thu Aug 12 18:16:49 1993 Roland McGrath (roland@churchy.gnu.ai.mit.edu) * getopt.c, getopt1.c [HAVE_CONFIG_H]: Include instead of "config.h". Sun Feb 20 17:17:01 1994 Ian Lance Taylor (ian@lisa.cygnus.com) * concat.c: Check ANSI_PROTOTYPES rather than __STDC__ to decide whether to use prototypes or not. * strerror.c (const): Never undefine; let ansidecl.h handle it. * strsignal.c (const): Likewise. Thu Feb 17 13:27:35 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * xatexit.c (_xexit_cleanup): Declare as extern; don't initialize. Merging common and initialized variables need not be supported by ANSI C compilers. (xatexit): Initialize _xexit_cleanup if not already set. * xexit.c: Comment fix. Wed Feb 16 01:15:36 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * xmalloc.c: Don't declare xexit; it's declared in libiberty.h. (xrealloc): If oldmem is NULL, allocate with malloc, rather than assuming that realloc works correctly. Tue Feb 15 09:26:16 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * concat.c, ieee-float.c: Replace inclusion of with explicit function declarations, as recommended by Ian Taylor. Sat Feb 12 10:31:11 1994 David J. Mackenzie (djm@rtl.cygnus.com) * xmalloc.c (xmalloc, xrealloc): Use PTR and size_t throughout. (malloc, realloc): Declare. Thu Feb 10 17:08:19 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * argv.c, basename.c: Include ansidecl.h and libiberty.h. * concat.c, fdmatch.c, getruntime.c, spaces.c: Likewise. * strerror.c, strsignal.c, xatexit.c, xexit.c: Likewise. * xmalloc.c: Likewise. * concat.c: Don't declare xmalloc. If __STDC__, use macros, not macros. * spaces.c (spaces): Make return type const. Don't crash if malloc returns NULL. * strerror.c (struct error_info): Make name and msg fields const. (error_names): Make const. (strerrno): Make const. (strtoerrno): Make argument const. * strsignal.c (struct signal_info): Make name and msg fields const. (signal_names, sys_siglist): Make const. (strsignal, strsigno): Make const. (strtosigno): Make argument const. * xatexit.c: Declare parameter types. * xmalloc.c (name): Make const. (xmalloc_set_program_name): Make argument const. * Makefile.in (INCDIR): Define. (.c.o): Use $(INCDIR). (dummy.o): Likewise. (argv.o, basename.o): New targets; depend on libiberty.h. (concat.o, fdmatch.o, getruntime.o, spaces.o): Likewise. (strerror.o, strsignal.o, xatexit.o, xexit.o): Likewise. (xmalloc.o): Likewise. (cplus-dem.o): New target; depend on demangle.h. (getopt.o, getopt1.o): New targets; depend on getopt.h. (ieee-float.o): New target; depend on ieee-float.h. (obstack.o): New target; depend on obstack.h. Tue Feb 8 05:29:08 1994 David J. Mackenzie (djm@thepub.cygnus.com) Handle obstack_chunk_alloc returning NULL. This allows obstacks to be used by libraries, without forcing them to call exit or longjmp. * obstack.c (_obstack_begin, _obstack_begin_1, _obstack_newchunk): If CALL_CHUNKFUN returns NULL, set alloc_failed, else clear it. (_obstack_begin, _obstack_begin_1): Return 1 if successful, 0 if not. Tue Feb 8 00:32:28 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * concat.c, ieee-float.c: Include . Sun Feb 6 21:28:46 1994 David J. Mackenzie (djm@thepub.cygnus.com) * xmalloc.c (xmalloc_set_program_name): New function. (xmalloc, xrealloc): Include the name in the error message, if set. * Replace atexit.c with xatexit.c. * Makefile.in (CFILES), functions.def: Change references. Sat Feb 5 14:02:32 1994 Stan Shebs (shebs@andros.cygnus.com) * getruntime.c (get_run_time): Use getrusage or times if HAVE_GETRUSAGE or HAVE_TIMES are defined. Fri Feb 4 15:49:38 1994 David J. Mackenzie (djm@thepub.cygnus.com) * atexit.c: New file. * Makefile.in (CFILES), functions.def: Add it. * xexit.c: New file. * Makefile.in (CFILES, REQUIRED_OFILES): Add it. * xmalloc.c (xmalloc, xrealloc): Call xexit instead of exit. Change request for 0 bytes into request for 1 byte. Wed Feb 2 11:36:49 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * xmalloc.c (xmalloc, xrealloc): Print size using %lu, and cast to unsigned long, to avoid warnings. Fri Jan 28 17:49:06 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * dummy.c: Don't include time.h ever; always define clock_t as "unsigned long". Until gcc/fixincludes ensures that clock_t exists, __STDC__ isn't a sufficient test. And if clock() doesn't exist, clock_t probably doesn't either. Mon Jan 24 11:52:31 1994 Stan Shebs (shebs@andros.cygnus.com) * clock.c, getruntime.c: New files. * Makefile.in: Add to file lists. * functions.def (clock): Add to list. * dummy.c (time.h): Add if __STDC__. (clock_t): #define as "unsigned long" if not __STDC__. Tue Jan 11 11:27:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * strtod.c: Declare atof. From edler@jan.ultra.nyu.edu (Jan Edler). Tue Dec 28 14:17:30 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * Makefile.in (errors): Use CFLAGS as well as LDFLAGS when linking. Fri Dec 17 12:26:07 1993 Kung Hsu (kung@cirdan.cygnus.com) * cplus-dem.c (demangle_arm_pt): New function. Common code for ARM template demangling. * cplus-dem.c (demangle_class_name): Use demangle_arm_pt. * cplus-dem.c (demangle_prefix): Likewise. Tue Nov 30 15:47:48 1993 Jason Merrill (jason@deneb.cygnus.com) * cplus-dem.c (cplus_demangle_opname): Add CONST to please gcc. Sat Nov 27 11:05:50 1993 Fred Fish (fnf@cygnus.com) Merge changes from tom@basil.icce.rug.nl (Tom R.Hageman) * strerror.c, strsignal.c: As a small space optimization, don't include messages when they aren't actually used. Merge changes from takefive.co.at!joe (Josef Leherbauer) * cplus-dem.c (demangle_prefix, demangle_function_name, cplus_demangle_opname): Fixes for systems where cplus_marker is something other than '$'. Fri Nov 26 13:51:11 1993 Per Bothner (bothner@kalessin.cygnus.com) * waitpid.c: Simple-minded approcimation to waitpid using vanilla wait. * functions.def, Makefile.in: Update accordingly, Thu Nov 18 18:01:15 1993 Kung Hsu (kung@cirdan.cygnus.com) * cplus-dem.c(demangle_template): fix bug template instantiation with value of user defined type. Wed Nov 17 18:30:21 1993 Kung Hsu (kung@cirdan.cygnus.com) * cplus-dem.c(cplus_demangle_opname): add the subject new function to support unified search of operator in class. Wed Nov 10 09:47:22 1993 Jim Kingdon (kingdon@lioth.cygnus.com) gcc -Wall lint: * strtoul.c (strtoul): use "(digit = *s) != '\0'" not just "digit = *s" as condition in while loop. Tue Nov 9 15:52:22 1993 Mark Eichin (eichin@cygnus.com) * Makefile.in: pass SHELL to recursive make Thu Nov 4 12:09:26 1993 Per Bothner (bothner@kalessin.cygnus.com) * vfprintf.c, vprintf.c, vsprintf.c: Make format arg be (const char*), for ANSI (and gcc w/fixproto) consistency. Thu Nov 4 08:29:04 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config.table: Make *-*-hiux* use mh-hpux. Fri Oct 22 07:53:15 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config.table: Add * to end of all OS names. Tue Oct 19 17:12:01 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * Makefile.in (lneeded-list): ensure that object file names are not duplicated, as multiple instances of the same object file in a library causes problems on some machines Mon Oct 18 21:59:28 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * strcasecmp.c, strncasecmp.c: Change u_char to unsigned char. Fri Oct 15 22:17:11 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * strncasecmp.c: new file, implements strncasecmp * strcasecmp.c: new file, implement strcasecmp * Makefile.in (CFILES): list these two new source files * functions.def: add strcasecmp and strncasecmp entries Fri Oct 15 14:53:05 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * strtoul.c (strtoul), strtol.c (strtol): Handle overflow according to ANSI C. Thu Oct 14 16:34:19 1993 Kung Hsu (kung@cirdan.cygnus.com) * cplus-dem.c: add support of ARM global constructor/destructor, and 'G' for passing record or union in parameter. Wed Oct 13 13:36:19 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Fix comment to clarify that stuff in REQUIRED_OFILES should not be in functions.def. Wed Oct 13 13:13:38 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * functions.def: Removed xmalloc. Stuff in REQUIRED_OFILES should not be in functions.def. Mon Oct 4 18:26:39 1993 Kung Hsu (kung@cirdan.cygnus.com) * cplus-dem.c: change globl constructor/destructor to proper name Tue Sep 28 18:11:07 1993 Kung Hsu (kung@cirdan.cygnus.com) * cplus-dem.c: fix bug in constructor/destructor Tue Sep 28 16:20:49 1993 Kung Hsu (kung@cirdan.cygnus.com) * cplus-dem.c: support both old and new _vt$... vtbl mangled names Fri Sep 24 19:07:16 1993 Jason Merrill (jason@deneb.cygnus.com) * cplus-dem.c: Fix demangle_template prototype Fri Sep 24 17:32:55 1993 Kung Hsu (kung@cirdan.cygnus.com) * cplus-dem.c: fix template demangling * cplus-dem.c: fix const type demangling * cplus-dem.c: fix constructor/destructor, virtual table, qualifier, global constructor/destructor demangling Wed Sep 1 23:13:11 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * strsignal.c, strerror.c: Use fully-bracketed initializer to keep gcc -Wall happy. Fri Aug 27 10:30:09 1993 Jason Merrill (jason@deneb.cygnus.com) * cplus-dem.c (do_type): Add CONSTS to make gcc happy with last patch. Fri Aug 27 11:24:54 1993 Jim Kingdon (kingdon@lioth.cygnus.com) Patch from Paul Flinders: * cplus-dem.c (do_type): Deal with arrays. Tue Aug 24 14:23:50 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * cplus-dem.c (demangle_qualified: Deal with GNU format for more than 9 classes. Wed Aug 18 19:50:29 1993 Jason Merrill (jason@deneb.cygnus.com) * Makefile.in (dummy.o): Redirect to /dev/null to avoid "variable not initialized" warnings under HP/UX Sun Aug 15 20:42:40 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * strerror.c: Move include of stdio.h after sys_errlist #define. Also remove NULL definition (stdio.h always defines NULL, so it never did anything but clutter up the code). Sat Aug 14 14:21:49 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * Makefile.in, functions.def: handle xmalloc.c * xmalloc.c: provide xmalloc and xrealloc functions Thu Aug 12 17:38:57 1993 David J. Mackenzie (djm@thepub.cygnus.com) * cplus-dem.c: Fix a comment. Sat Aug 7 13:56:35 1993 David J. Mackenzie (djm@thepub.cygnus.com) * getopt1.c: Declare const the way getopt.c does. Fri Aug 6 17:03:13 1993 David J. Mackenzie (djm@thepub.cygnus.com) * obstack.c, alloca.c: Update from FSF. * getopt.c, getopt1.c: Update to current FSF version, which doesn't use alloca. Tue Jul 27 14:03:57 1993 Brendan Kehoe (brendan@lisa.cygnus.com) * Makefile.in (demangle): Add the target with a message saying where demangle went. Mon Jul 26 15:49:54 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Remove obsolete `demangle' target. Thu Jul 22 08:31:01 1993 Fred Fish (fnf@deneb.cygnus.com) * cplus-dem.c (arm_special): Apply patch from arg@lucid.com to avoid infinite loop on vtbl symbols with disambiguating "junk" tacked on the end. Mon Jul 19 14:10:37 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * strsignal.c: work around some systems losing definitions of sys_siglist * config/mh-lynxos: this system has a losing definition of sys_siglist * config.table: use mh-lynxos for *-*-lynxos Mon Jul 19 17:08:52 1993 Ken Raeburn (raeburn@rtl.cygnus.com) * config.table: Add support for HPPA BSD hosts. * config/mh-hpbsd: New file. Mon Jul 12 18:00:40 1993 K. Richard Pixley (rich@cygnus.com) * Makefile.in (TAGS): make work when srcdir != objdir. Sun Jun 27 15:35:31 1993 David J. Mackenzie (djm@thepub.cygnus.com) * cplus-dem.c (main): Add long options, including --help and --version. (usage): New function from code in main. Tue Jun 22 11:37:38 1993 Per Bothner (bothner@deneb.cygnus.com) * config.table: New shell scipt, sourced by both ./configure,in and ../xiberty/configure.in, to avoid maintainance lossages. * configure.in and ../xiberty/configure.in: Use config.table. * configure.in: Don't use mh-aix for AIX 3.2, only for 3.1. * configure.in: Map *-*-irix* (except irix4) to mh-sysv. * ../xiberty/configure.in: Update from ./configure.in. Tue Jun 15 17:05:31 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: remove parentdir support Wed May 26 12:59:09 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * cplus-dem.c (xrealloc): Match definition with prototype. Tue May 25 14:27:51 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * cplus-dem.c (demangle_prefix): Demangle cfront local variables as an extension to ARM demangling. Fri May 21 09:53:57 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * ieee-float.c: Don't require pointers to double to be aligned. Tue May 18 17:12:10 1993 Fred Fish (fnf@cygnus.com) (merge changes from dlong@cse.ucsc.edu) * cplus-dem.c (consume_count): Simplify. * cplus-dem.c (arm_pt, demangle_class_name): New functions. * cplus-dem.c (various): Calls to arm_pt, demangle_class_name. * cplus-dem.c (xmalloc, xrealloc, strstr): Make extern decls into full prototypes. * cplus-dem.c (free): Add prototype. * cplus-dem.c (optable): Fully bracketize initializer. Fri May 14 17:13:05 1993 Per Bothner (bothner@cygnus.com) * cplus-dem.c: Whether initial underscores are stripped depends on the external variable prepends_underscore (which is generated by the binutils Makefile). Fri May 14 07:32:20 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * cplus-dem.c (mop_up, arm_special): Remove some unused variables. Tue May 4 20:31:59 1993 Fred Fish (fnf@cygnus.com) * cplus-dem.c (consume_count): Return zero if arg does not start with digit, and don't consume any input. Tue May 4 08:10:28 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in (demangle): Use ${srcdir} not $^. * strtod.c: New file, needed at least for BSD 4.3. Sun May 2 11:30:42 1993 Fred Fish (fnf@cygnus.com) * strsignal.c (sys_siglist): For ANSI compilations, type is "const char *const". Also remove conditionalization on __STDC__ since const is defined away for non-ANSI. Wed Apr 28 19:29:55 1993 Ken Raeburn (raeburn@deneb.cygnus.com) * configure.in: Recognize *-*-hpux. * config/mh-hpux: New file. Tue Apr 27 15:22:19 1993 Per Bothner (bothner@cygnus.com) * tmpnam.c: Added ANSI tmpnam() function. * functions.def, Makefile.in: Update accordingly. Tue Apr 27 13:38:38 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * cplus-dem.c (demangle_function_name): Get the demangling of stop__1A right. Fri Apr 16 23:48:24 1993 Jim Kingdon (kingdon at calvin) * cplus-dem.c: Declare strstr return type. Fri Mar 26 12:01:26 1993 Jim Kingdon (kingdon@cygnus.com) * strsignal.c: Add some AIX signals. Thu Mar 25 15:17:23 1993 Ian Lance Taylor (ian@cygnus.com) * Makefile.in (MAKEOVERRIDES): Define to be empty. Wed Mar 24 01:59:25 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: add installcheck & dvi targets Thu Mar 18 14:05:44 1993 Per Bothner (bothner@rtl.cygnus.com) * ieee-float.c: New file, moved from ../gdb (since it is needed by ../opcode/m68k-dis.c). Tue Mar 2 17:47:31 1993 Fred Fish (fnf@cygnus.com) * cplus-dem.c: Replace all references to cfront with ARM. Fri Feb 26 00:17:07 1993 Per Bothner (bothner@rtl.cygnus.com) * cplus-dem.c: Fix main program (when compiled with -DMAIN) to be more useful as a filter. Sat Feb 20 21:41:39 1993 Brendan Kehoe (brendan@lisa.cygnus.com) * Makefile.in (install_to_libdir, install_to_tooldir): Go into the destination directory before running $(RANLIB), in case that program tries to create a file in the current directory as part of its work. Thu Feb 18 23:00:19 1993 John Gilmore (gnu@cygnus.com) * strsignal.c (sys_siglist): Remove yet another *%^&%&$# "const" because BSD 4.4 lacks one. Isn't this fun? Thu Feb 18 11:24:25 1993 Fred Fish (fnf@cygnus.com) * cplus-dem.c (demangle_signature): Set func_done after demangling a template. * cplus-dem.c (demangle_template): Fix several small bugs in demangling GNU style templates. * cplus-dem.c (demangle_prefix): Fix for templates in GNU style constructors. * cplus-dem.c (gnu_special): Fix for templates in GNU style static data members. Tue Feb 16 17:28:35 1993 Fred Fish (fnf@cygnus.com) * cplus-dem.c (demangle_signature): Modify to include type modifiers like static and const in remembered types. Thu Feb 11 22:20:47 1993 Fred Fish (fnf@cygnus.com) * cplus-dem.c (demangled_qualified): Add new parameter that tells whether to prepend or append the qualifiers. * cplus-dem.c (string_prepends): Used now, remove #if 0. * cplus-dem.c (demangle_signature): Call demangle_qualified with prepending. * cplus_dem.c (gnu_special): Recognize static data members that use qualified names. * cplus-dem.c (demangle_qualified): Accumulate qualifiers in a temporary buffer and the prepend or append them to the result, as specified by the new "append" flag. * cplus-dem.c (do_type): Call demangled_qualified with appending. Mon Dec 28 10:47:19 1992 Ken Raeburn (raeburn@cygnus.com) * strsignal.c (signal_table): Now const. (init_signal_tables): Variable eip now points to const. * strerror.c (error_table): Now const. (init_error_tables): Variable eip now points to const. Tue Dec 15 15:36:50 1992 Per Bothner (bothner@cygnus.com) * memchr.c (memchr): New (ANSI standard) function. * Makefile.in, functions.def: Added memchr. * Makefile.in (AR_FLAGS): Use rc instad of non-standard cq. Wed Dec 2 22:49:10 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * getopt.c: remove use of USG around , which never meant anything anyway * config/mh-{aix,apollo68,ncr3000,sysv,sysv4}: removed definitions of USG and USGr4 Thu Nov 19 03:09:33 1992 Brendan Kehoe (brendan@lisa.cygnus.com) * cplus-dem.c (demangle_fund_type): Recognize `w', a wide character; it's now a type according to the ANSI X3J16 working paper; output "wchar_t" for it. (demangle_template): Accept `w' as an integral type. (xmalloc, xrealloc): Use `char *', not `PTR'. Cast calls to their counterparts malloc and realloc to `char *'. (main): Exit with a 0 status. * Makefile.in (demangle): Don't expect the user to define DEMANGLE, instead force to be cplus-dem.c. Look in $(srcdir)/../include for demangle.h. Pass it any HDEFINES or XTRAFLAGS. Wed Nov 18 18:56:20 1992 John Gilmore (gnu@cygnus.com) * Makefile.in (AR_FLAGS): Avoid verbosity. * config/mh-sysv4: Remove AR_FLAGS override, use INSTALL=cp, replace USGr4 with HAVE_SYSCONF. * config/mh-solaris: Remove; mh-sysv4 works now. * getpagesize.c: Replace USGr4 with HAVE_SYSCONF. * configure.in: Simplify host matching table, remove separate solaris config file. Sun Nov 15 09:35:16 1992 Fred Fish (fnf@cygnus.com) * configure.in (i[34]86-*-solaris2*): Add, use mh-sysv4. Tue Nov 3 21:27:03 1992 Brendan Kehoe (brendan@cygnus.com) * cplus-dem.c (xmalloc, xrealloc): Add decls. (remember_type): Don't cast xmalloc. (string_need): Likewise; don't cast xrealloc either. Fri Oct 23 08:52:01 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in, functions.defs, rename.c: added simple implementation of rename, since some binutils programs use it. Thu Oct 15 15:18:22 1992 Per Bothner (bothner@cygnus.com) * strsignal.c: Add appropriate 'const' to sys_siglist extern declaration (if __STDC__). (Needed for Linux.) * strsignal.c (strsignal): Add cast to remove const-ness. Fri Oct 9 03:22:55 1992 John Gilmore (gnu@cygnus.com) * Makefile.in (needed.awk, needed2.awk): Remove erroneous \'s before "'s, diagnosed by BSD 4.4 awk. Thu Oct 8 15:25:12 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: create config.h and needed-list through $(CONFIG_H) and $(NEEDED_LIST), to give some hooks for xiberty. Thu Oct 1 23:31:42 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: use cpu-vendor-triple instead of nested cases Wed Sep 30 11:26:59 1992 Per Bothner (bothner@rtl.cygnus.com) * Makefile.in, argv.c, basename.c, bcmp.c, bcopy.c, bzero.c, concat.c, cplus-dem.c, fdmatch.c, getcwd.c, getopt.c, getopt1.c, getpagesize.c, insque.c, memcmp.c, memcpy.c, memmove.c, memset.c, obstack.c, sigsetmask.c, spaces.c, strchr.c, strerror.c, strrchr.c, strsignal.c, strstr.c, vfork.c, vsprintf.c: Convert from using GPL to LGPL. Sat Sep 26 04:01:30 1992 John Gilmore (gnu@cygnus.com) * Makefile.in (errors): Leave dummy.o and dummy around so that we can see how the needed list was generated (it's sometimes wrong). (mostlyclean): Remove them. Mon Sep 21 14:50:42 1992 Ian Lance Taylor (ian@cygnus.com) * getcwd.c: supply a default if MAXPATHLEN is not defined. * config/mh-irix4: set EXTRA_OFILES to alloca.o, from WRS. Wed Sep 9 12:41:48 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: Use XTRAFLAGS when compiling, so that xiberty works when cross-compiling. Thu Sep 3 13:29:39 1992 K. Richard Pixley (rich@sendai.cygnus.com) * cplus-dem.c: (demangle_prefix): reduction in strength of strstr as a time optimization. * cplus-dem.c (cplus_demangle): remove strpbrk test. Appears to be more expensive than simply demangling. * cplus-dem.c (cplus_match): new function. Tue Sep 1 15:24:04 1992 Per Bothner (bothner@rtl.cygnus.com) * cplus-dem.c: #include , to define NULL. Define current_demangling_style. Sun Aug 30 17:58:19 1992 Per Bothner (bothner@rtl.cygnus.com) * cplus-dem.c: New file, moved from ../gdb. * cplus-dem.c (set_cplus_marker_for_demangling): New exported function, to avoid compiling in target-dependency for CPLUS_MARKER. * cplus-dem.c (cplus_demangle): Allow demangling style option to be passed as a parameter, but using the global variable current_demangling_style as a default. * Makefile.in: Update for cplus-dem.c Sat Aug 29 10:44:09 1992 Fred Fish (fnf@cygnus.com) * obstack.c: Merge in comment changes from FSF version. Now matches the FSF version exactly. Fri Aug 28 18:39:08 1992 John Gilmore (gnu@cygnus.com) * obstack.c (CALL_FREEFUN): Can't use ?: with void values (at least on losing DECstations!); use if-then-else instead. Wed Aug 19 14:40:34 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: always create installation directories. Mon Aug 10 17:33:40 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: clean up definition of CFILES, more comments Sat Aug 8 23:10:59 1992 Fred Fish (fnf@cygnus.com) * getopt.c (my_index): Make first arg const to match strchr, which it sometimes is remapped to. Sat Aug 1 13:48:50 1992 Fred Fish (fnf@cygnus.com) * obstack.c (DEFAULT_ALIGNMENT): Update to match FSF version. * obstack.c (_obstack_begin): Initialize use_extra_arg. * obstack.c (_obstack_begin_1): New, from FSF version. Mon Jul 20 21:07:58 1992 Fred Fish (fnf@cygnus.com) * obstack.c (CALL_CHECKFUN, CALL_FREEFUN): Use use_extra_arg and extra_arg. * obstack.c (_obstack_begin): Remove area_id and flags arguments (previously added for mmalloc support, interface has changed). Also convert flags usage to use use_extra_arg and maybe_empty_object. Fri Jul 10 00:41:53 1992 Fred Fish (fnf@cygnus.com) * argv.c: Move expandargv inline and eliminate static variables. Rewrite to always allocate in powers of two. Fix to return an argv with a single null string arg if passed a null string. Fri Jul 3 20:27:29 1992 Fred Fish (fnf@cygnus.com) * random.c, sigsetmask.c, strerror.c, strsignal.c: Remove "(void)" casts from function calls where the return value is ignored, in accordance with GNU coding standards. Mon Jun 29 10:54:19 1992 Fred Fish (fnf at cygnus.com) * bcopy.c, strerror.c, strsignal.c: Lint. Thu Jun 25 09:18:41 1992 K. Richard Pixley (rich@rtl.cygnus.com) * getopt.c: merge changes from make. Thu Jun 25 04:43:22 1992 John Gilmore (gnu at cygnus.com) * alloca.c: Incorporate fixes from gdb/alloca.c. FIXME: Eventually move gdb's alloca configuration files here, and remove gdb/alloca.c and its Makefile.in support. Tue Jun 23 21:56:30 1992 Fred Fish (fnf@cygnus.com) * dummy.c: Define NOTHING to /*nothing*/, change return type of main to int and return zero. * functions.def: Supply NOTHING as the fourth arg to macros that don't have an explicit arg, to satisfy picky preprocessors. Wed Jun 17 18:13:58 1992 Per Bothner (bothner@rtl.cygnus.com) * Makefile.in: Clean up *clean rules, as per standards.texi. Tue Jun 16 16:11:59 1992 K. Richard Pixley (rich@rtl.cygnus.com) * getopt.c, getopt1.c: merged largely gratuitous, mostly whitespace diffs from other prep distributions. Mon Jun 15 12:25:46 1992 Fred Fish (fnf@cygnus.com) * config/mh-ncr3000 (INSTALL): Don't use /usr/ucb/install, it is broken on ncr 3000's. Mon Jun 15 01:03:26 1992 John Gilmore (gnu at cygnus.com) * sigsetmask.c: Rewrite. Old one was very confused about its arguments and result. New one can't do much, but at least knows what it can't do, and it's good enough for GDB's use. Sun Jun 14 15:17:40 1992 Stu Grossman (grossman at cygnus.com) * functions.def: Use proper prototype for strtoul. Fri Jun 12 19:22:40 1992 John Gilmore (gnu at cygnus.com) * Makefile.in: Add random.c. * config/mh-*: Use "true" rather than "echo >/dev/null" for ranlib. * configure.in: update solaris2 config. Wed Jun 10 16:31:29 1992 Fred Fish (fnf@cygnus.com) * random.c: Add for random() and srandom(). * functions.def: Add random Tue Jun 9 17:27:18 1992 Fred Fish (fnf@cygnus.com) * config/{mh-ncr3000, mh-sysv4}: Add definition for INSTALL using /usr/ucb/install. Mon Jun 1 13:20:17 1992 Per Bothner (bothner@rtl.cygnus.com) * strerror.c: Kludge to guard against a conflict with possible declaration of sys_errlist in errno.h. Sun May 31 15:07:47 1992 Mark Eichin (eichin at cygnus.com) * configure.in, config/mh-solaris: add solaris2 config support. Fri May 29 17:23:23 1992 Per Bothner (bothner@rtl.cygnus.com) * sigsetmask.c: #ifdef out sigsetmask if SIG_SETMASK is not defined (should be defined in signal.h, says Posix.). Mon May 18 17:35:04 1992 K. Richard Pixley (rich@cygnus.com) * getopt.c: merged changes from make-3.62.11. Fri May 8 14:53:07 1992 K. Richard Pixley (rich@cygnus.com) * getopt.c: merged changes from bison-1.18. Tue May 5 11:51:40 1992 Per Bothner (bothner@rtl.cygnus.com) * Makefile.in: Don't have $(EXTRA_OFILES) depend on config.h, since that introduces a circular dependency. ($(EXTRA_OFILES) are used to build config.h.) * strtoul.c: Fixes to handle non-decimal bases better. Wed Apr 22 09:27:51 1992 Fred Fish (fnf@cygnus.com) * config/mh-ncr3000: Replace MINUS_G with CFLAGS. * Makefile.dos: Finish MINUS_G eradication. * Makefile.in (CFILES): Add strsignal.c. * Makefile.in (REQUIRED_OFILES): Add strerror.o strsignal.o * Makefile.in (needed-list): Split creation of errors file to separate make target. * Makefile.in (config.h, needed2.awk, errors): New targets. * Makefile.in (clean): Split to multiple lines, add needed2.awk and config.h. * dummy.c (DEFFUNC, DEFVAR): Add defines and undefs. * functions.def (strerror): Remove from optional list. * functions.def (sys_nerr, sys_errlist, sys_siglist): DEFVAR's * functions.def (strerror, psignal): DEFFUNC's * strerror.c: Rewrite from scratch to use sys_errlist only if available, add errno_max(), add strerrno(), add strtoerrno(), add test driver. * strsignal.c: New file, signal equivalent to strerror.c. Uses sys_siglist if available, defines signo_max(), strsignal(), strsigno(), strtosigno(), psignal(), and test driver. Mon Apr 20 20:49:32 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: do not print recursion line. * Makefile.in: allow CFLAGS to be passed in from command line. Removed MINUS_G. Default CFLAGS to -g. Mon Apr 20 12:57:46 1992 Per Bothner (bothner@rtl.cygnus.com) * config/mh-aix: New. EXTRA_OFILES lists copysign.o, so libg++ users don't have to be inconvenienced by a libc.a bug (libc.a needs copysign, but doesn't define it!). * configure.in: Use config/mh-aix. * strtoul.c: Handle '-' as required by ANSI. Clean up radix handling. * strstr.c: Fix buggy algorithm. * Makefile.in: Change so that ${EXTRA_OFILES} is appended to needed-list (which is used by libg++). Fri Apr 10 22:51:41 1992 Fred Fish (fnf@cygnus.com) * configure.in: Recognize new ncr3000 config. * config/mh-ncr3000: New config file. Wed Apr 1 23:31:43 1992 John Gilmore (gnu at cygnus.com) * argv.c, dummy.c: Lint. Tue Mar 31 18:46:44 1992 Fred Fish (fnf@cygnus.com) * config/mh-sysv4: New config file. * configure.in (host_makefile_frag): Set to config/mh-sysv4 for host_os == sysv4. * getpagesize.c: For SVR4, use sysconf(_SC_PAGESIZE) to get pagesize. Sun Mar 29 12:26:42 1992 John Gilmore (gnu at cygnus.com) * getopt.c: Lint. Fri Mar 27 08:32:55 1992 Fred Fish (fnf@cygnus.com) * functions.def (alloca): Fix return type and args to avoid type clash with gcc's builtin alloca. Tue Mar 24 23:33:42 1992 K. Richard Pixley (rich@cygnus.com) * configure.in, config/mh-irix4: irix4 support. * Makefile.in, functions.def, alloca.c: added alloca. Tue Mar 24 17:34:46 1992 Stu Grossman (grossman at cygnus.com) * obstack.c (CALL_FREEFUN): Make it compile on DECstations. Thu Mar 19 13:57:42 1992 Fred Fish (fnf@cygnus.com) * argv.c: Fix various external function definitions to be correct in an ANSI compilation environment. Sat Mar 14 17:28:17 1992 Fred Fish (fnf@cygnus.com) * obstack.c: Changes to support calling mmalloc functions, which take an additional argument over malloc functions. Fri Mar 6 22:01:10 1992 K. Richard Pixley (rich@cygnus.com) * added check target. Thu Feb 27 22:19:39 1992 Per Bothner (bothner@cygnus.com) * argv.c: #include alloca-conf.h (needed by AIX). Wed Feb 26 18:04:40 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in, configure.in: removed traces of namesubdir, -subdirs, $(subdir), $(unsubdir), some rcs triggers. Forced copyrights to '92, changed some from Cygnus to FSF. Sat Feb 22 01:09:21 1992 Stu Grossman (grossman at cygnus.com) * argv.c: Check in Fred's version which fixes problems with alloca(). Fri Feb 7 21:46:08 1992 Stu Grossman (grossman at cygnus.com) * makefile.dos: Remove NUL to keep patch from failing. Thu Jan 30 22:48:41 1992 Stu Grossman (grossman at cygnus.com) * getopt.c (_getopt_internal): Fix usage of enum has_arg. Mon Jan 20 18:53:23 1992 Stu Grossman (grossman at cygnus.com) * getopt.c, getopt1.c, ../include/getopt.h: Get latest versions. Sat Jan 18 16:53:01 1992 Fred Fish (fnf at cygnus.com) * argv.c: New file to build and destroy standard argument vectors from a command string. * Makefile.in: Add argv.c and argv.o to appropriate macros. Fri Dec 20 12:12:57 1991 Fred Fish (fnf at cygnus.com) * configure.in: Change svr4 references to sysv4. * rindex.c: Declare return type of externally used function strrchr(). Thu Dec 19 18:35:03 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Remove "***" in normal output, since Make produces this on errors, and it's convenient to search for. Tue Dec 17 23:21:30 1991 Per Bothner (bothner at cygnus.com) * memcmp.c, memcpy.c, memmove.c, memset.c, strchr.c, strrchr.c: New ANSI functions. The old non-ANSI functions (such as bcopy) should be avoided. * bcopy.c: Fix to correctly handle overlapping regions. * index.c, rindex.c: Re-write in terms of strchr() and strrchr(). * functions.def: Add the new functions. * functions.def: Add 4th parameter to DEF macro, an ansidecl.h-style prototype. * dummy.c: Use expanded DEF macro to create a dummy function call, with correct parameter types. (This avoids some complaints from gcc about predefined builtins.) Move the functionality of config/mh-default into Makefile.in. This avoid duplication, and simplifies things slightly. * Makefile.in: Tweak so we don't need config/mh-default. * README: Update. * configure.in: No longer need config/mh-default. * config/mh-default: Deleted. * config/mh-sysv: Remove lines copied from old mh-default. Tue Dec 17 05:46:46 1991 John Gilmore (gnu at cygnus.com) * fdmatch.c (fdmatch): Don't compare st_rdev, which is for 'mknod' device numbers. Mon Dec 16 12:25:34 1991 Fred Fish (fnf at cygnus.com) * fdmatch.c, Makefile.in: Add new function that takes two open file descriptors and returns nonzero if they refer to the same file, zero otherwise. (used in gdb) Wed Dec 11 17:40:39 1991 Steve Chamberlain (sac at rtl.cygnus.com) From DJ: * msdos.c: stub functions for dos. * makefile.dos, configdj.bat: new. * getopt.c: Don't include alloca-conf.h in a GO32 world. Tue Dec 10 04:14:49 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: infodir belongs in datadir. Fri Dec 6 23:26:45 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: remove spaces following hyphens because bsd make can't cope. added standards.text support. install using INSTALL_DATA. * configure.in: remove commontargets as it is no longer a recognized hook. Thu Dec 5 22:46:46 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: idestdir and ddestdir go away. Added copyrights and shift gpl to v2. Added ChangeLog if it didn't exist. docdir and mandir now keyed off datadir by default. Fri Nov 22 19:15:29 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: find-needed.awk does not fit in 14 chars. * Makefile.in: Suppress error checking when compiling the test program, because Ultrix make/sh aborts there due to a bug. Fri Nov 22 12:23:17 1991 Per Bothner (bothner at cygnus.com) * Makefile.in: Re-did how EXTRA_OFILES is used to be more useful. * README: Explained how the auto-configuration works, and how to add new files and/or configurations. Fri Nov 22 09:45:23 1991 John Gilmore (gnu at cygnus.com) * strtoul.c: Avoid defining ULONG_MAX if already defined; cast a const char * to char * for pedants. * getopt.c: Only define "const" after local include files get to, and only if they haven't defined it. Thu Nov 21 16:58:53 1991 John Gilmore (gnu at cygnus.com) * getcwd.c (remove getwd.c): GNU code should call getcwd(). We emulate it with getwd() if available. This avoids callers having to find a MAXPATHLEN or PATH_MAX value from somewhere. * Makefile.in, functions.def: getwd->getcwd. * configure.in: Use generic case for every system. * config/mh-{delta88,mach,rs6000,svr4}: Remove. * config/mh-sysv: Use default handling, just add -DUSG. Thu Nov 14 10:58:05 1991 Per Bothner (bothner at cygnus.com) * Makefile.in, config/mh-default: Re-do make magic so that for the default ("automatic") mode we only compile the files we actually need. Do this using a recursive make: The top-level generates the list of needed files (loosely, the ones missing in libc), and then passes that list to the recursive make. * config/mh-mach: Remove obsolete STRERROR-{C,O} macros. Tue Nov 12 19:10:57 1991 John Gilmore (gnu at cygnus.com) RS/6000 host support (grumble). * configure.in: Build alloca-conf.h file from alloca-norm.h (everything else) or alloca-botch.h (rs/6000). * Makefile.in: Include . on the include path. * getopt.c: Use alloca-conf.h. * alloca-norm.h: How to declare alloca on reasonable machines. * alloca-botch.h: How to declare alloca on braindead machines. Tue Nov 12 09:21:48 1991 Fred Fish (fnf at cygnus.com) * concat.c : New file, like concat() in gdb but can take a variable number of arguments rather than fixed at 3 args. For now, client applications must supply an xmalloc(), which is a front end function to malloc() that deals with out-of-memory conditions. * Makefile.in: Add concat.c and concat.o to appropriate macros. Sat Nov 9 13:29:59 1991 Fred Fish (fnf at cygnus.com) * config/mh-svr4: Add sigsetmask to list of required functions. Sun Nov 3 11:57:56 1991 Per Bothner (bothner at cygnus.com) * vsprintf.c: New file. * functions.def, Makefile.in: Add vsprintf. Sun Oct 27 16:31:22 1991 John Gilmore (gnu at cygnus.com) * configure.in, config/mh-rs6000: Add rs/6000 host support. * Makefile.in: Compile with debug info. Fri Oct 25 17:01:12 1991 Per Bothner (bothner at cygnus.com) * Makefile.in, configure.in, and new files: dummy.c, functions.def, config/mf-default: Added a default configuration mode, which includes into libiberty.a functions that are "missing" in libc. * strdup.c, vprintf.c, vfprintf.c: New files. Thu Oct 24 02:29:26 1991 Fred Fish (fnf at cygnus.com) * config/hmake-svr4: New file. * config/hmake-sysv: Add HOST_CFILES and HOST_OFILES. * basename.c, bcmp.c, bcopy.c, bzero.c, getpagesize.c getwd.c, index.c, insque.c, rindex.c, spaces.c, strstr.c, vfork.c: New files containing either portable C versions or emulations using native library calls. * strerror.c: Add copyright, internal documentation, etc. * strtol.c: Replace hardwired hex constants with some more portable macros. Remove illegal (according to gcc) cast. * strtoul.c: Replace hardwired hex constant with more portable macro. * Makefile.in: Move TARGETLIB and CFLAGS where makefile fragments can override them. Add new source and object file names to CFILES and OFILES respectively. * configure.in: Add support for SVR4 makefile fragments. Tue Oct 22 19:00:23 1991 Steve Chamberlain (steve at cygnus.com) * Makefile.in: Move RANLIB, AR and AR_FLAGS to where they can be over-ridden by config/hmake-* * configure.in: added m88kcvs to sysv list Fri Oct 4 01:29:08 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Most hosts need strerror, but one or two don't, and they override these definitions in the host-dependent makefile fragment. * config/hmake-mach: The odd man out on strerror -- it's supplied. * strerror.c: New file. * strtol.c, strtoul.c: Add strtol to libiberty, since Mach lacks it and bfd uses it. * configure.in, Makefile.in, config/hmake-mach: Only configure strtol & strotoul in on Mach. Tue Sep 3 06:36:23 1991 John Gilmore (gnu at cygint.cygnus.com) * obstack.c: Merge with latest FSF version. Local Variables: version-control: never End: gdb-4.13/libiberty/Makefile.in 666 34562 1752 17722 5566451247 14636 0ustar fnfcygnus# # Makefile # Copyright (C) 1990, 1991, 1992 Free Software Foundation # # This file is part of the libiberty library. # Libiberty is free software; you can redistribute it and/or # modify it under the terms of the GNU Library General Public # License as published by the Free Software Foundation; either # version 2 of the License, or (at your option) any later version. # # Libiberty 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 # Library General Public License for more details. # # You should have received a copy of the GNU Library General Public # License along with libiberty; see the file COPYING.LIB. If # not, write to the Free Software Foundation, Inc., 675 Mass Ave, # Cambridge, MA 02139, USA. # # This file was written, and is maintained by K. Richard Pixley # . # # Makefile for libiberty directory # srcdir = . prefix = /usr/local exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include oldincludedir = docdir = $(datadir)/doc SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) AR = ar AR_FLAGS = rc CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib MAKEOVERRIDES = TARGETLIB = libiberty.a CONFIG_H = lconfig.h NEEDED_LIST = lneeded-list # HOST_OFILES contains the list of objects that should be in the # library (in addition to the REQUIRED_OFILES and EXTRA_OFILES). # A configuration may override this with a fixed list a object files # names (hard to maintain), or some other way to generate a list. HOST_OFILES=`cat needed-list` # Extra targets that the top-level target depends on. # Specifically, what needs to be made before HOST_OFILES can be used. # Can be empty if HOST_OFILES is just a list of file names. DO_ALSO = needed-list # A configuration can specify extra .o files that should be included, # even if they are in libc. (Perhaps the libc version is buggy.) EXTRA_OFILES = all: $(TARGETLIB) .PHONY: check installcheck check installcheck: #### Host, target, and site specific Makefile fragments come in here. ### INCDIR=$(srcdir)/../include .c.o: $(CC) -c $(CFLAGS) -I. -I$(INCDIR) $(HDEFINES) $< # The default target just invokes make recursively. # However, the automatic configuration (in config/mh_default). # first causes it to figure out the objects missing in libc. info install-info clean-info dvi: # NOTE: If you add new files to the library, add them to this list # (alphabetical), and add them to REQUIRED_OFILES or 'functions.def'. CFILES = alloca.c argv.c basename.c bcmp.c bcopy.c bzero.c \ clock.c concat.c cplus-dem.c fdmatch.c \ getcwd.c getopt.c getopt1.c getpagesize.c getruntime.c \ floatformat.c index.c insque.c \ memchr.c memcmp.c memcpy.c memmove.c memset.c \ obstack.c random.c rename.c rindex.c sigsetmask.c spaces.c \ strcasecmp.c strncasecmp.c \ strchr.c strdup.c strerror.c strrchr.c strsignal.c \ strstr.c strtod.c strtol.c strtoul.c tmpnam.c \ vasprintf.c vfork.c vfprintf.c vprintf.c vsprintf.c waitpid.c \ xatexit.c xexit.c xmalloc.c # These are always included in the library. REQUIRED_OFILES = argv.o basename.o concat.o cplus-dem.o fdmatch.o \ getopt.o getopt1.o getruntime.o \ floatformat.o obstack.o spaces.o strerror.o strsignal.o \ xatexit.o xexit.o xmalloc.o # Do we want/need any config overrides? # STAGESTUFF = $(TARGETLIB) *.o INSTALL_DEST = libdir install: install_to_$(INSTALL_DEST) install_to_libdir: all $(INSTALL_DATA) $(TARGETLIB) $(libdir)/$(TARGETLIB).n ( cd $(libdir) ; $(RANLIB) $(libdir)/$(TARGETLIB).n ) mv -f $(libdir)/$(TARGETLIB).n $(libdir)/$(TARGETLIB) install_to_tooldir: all $(INSTALL_DATA) $(TARGETLIB) $(tooldir)/lib/$(TARGETLIB).n ( cd $(tooldir) ; $(RANLIB) $(tooldir)/lib/$(TARGETLIB).n ) mv -f $(tooldir)/lib/$(TARGETLIB).n $(tooldir)/lib/$(TARGETLIB) # The default configuration adds to libiberty all those functions that are # missing in libc. More precisely, it includes whatever $(CC) fails to find. # Then a sed+awk combination translates the ld error messages into # a list of .o files. needed-list: $(NEEDED_LIST) cp $(NEEDED_LIST) needed-list lneeded-list: $(EXTRA_OFILES) needed.awk errors rm -f lneeded-list f=""; \ for i in `awk -f needed.awk >lneeded-list # Generate an awk script that looks for functions in functions.def needed.awk: $(srcdir)/functions.def Makefile echo "# !Automatically generated from $(srcdir)/functions.def"\ "- DO NOT EDIT!" >needed.awk grep '^DEF(' < $(srcdir)/functions.def \ | sed -e '/DEF/s|DEF.\([^,]*\).*|/\1/ { printf "\1.o " }|' \ >>needed.awk config.h: $(CONFIG_H) cp $(CONFIG_H) config.h lconfig.h: needed2.awk errors echo "/* !Automatically generated from $(srcdir)/functions.def"\ "- DO NOT EDIT! */" >lconfig.h awk -f needed2.awk >lconfig.h # Generate an awk script that looks for variables in functions.def needed2.awk: $(srcdir)/functions.def Makefile echo "# !Automatically generated from $(srcdir)/functions.def"\ "- DO NOT EDIT!" >needed2.awk grep '^DEFVAR(' < $(srcdir)/functions.def \ | sed -e '/DEFVAR/s|DEFVAR.\([^,]*\).*|/\1/ { printf "#ifndef NEED_\1\\n#define NEED_\1\\n#endif\\n" }|' \ >>needed2.awk grep '^DEFFUNC(' < $(srcdir)/functions.def \ | sed -e '/DEFFUNC/s|DEFFUNC.\([^,]*\).*|/\1/ { printf "#ifndef NEED_\1\\n#define NEED_\1\\n#endif\\n" }|' \ >>needed2.awk dummy.o: $(srcdir)/dummy.c $(srcdir)/functions.def $(CC) -c $(CFLAGS) -I. -I$(INCDIR) $(HDEFINES) $(srcdir)/dummy.c 2>/dev/null errors: dummy.o $(EXTRA_OFILES) -($(CC) -o dummy $(CFLAGS) $(LDFLAGS) dummy.o $(EXTRA_OFILES) $(LOADLIBES)) >errors 2>&1 || true $(HOST_OFILES) $(REQUIRED_OFILES) : config.h RULE1 = $(TARGETLIB) $(RULE1): $(REQUIRED_OFILES) $(DO_ALSO) .always. @$(MAKE) RULE1=not-used RULE2=$(TARGETLIB) \ HOST_OFILES="$(HOST_OFILES)" \ "CC=$(CC)" "CFLAGS=$(CFLAGS)" \ "AR=$(AR)" "AR_FLAGS=$(AR_FLAGS)" "RANLIB=$(RANLIB)" \ "SHELL=$(SHELL)" # Rule invoked by recursive make in $(RULE1). RULE2 = not-used $(RULE2): $(REQUIRED_OFILES) $(HOST_OFILES) rm -rf $(TARGETLIB) $(AR) $(AR_FLAGS) $(TARGETLIB) \ $(REQUIRED_OFILES) $(HOST_OFILES) $(RANLIB) $(TARGETLIB) .always.: # Do nothing. .PHONEY: all etags tags ls clean stage1 stage2 .always. etags tags: TAGS TAGS: $(CFILES) $(HFILES) etags `for i in $(HFILES) $(CFILES); do echo $(srcdir)/$$i ; done` # The standalone demangler (c++filt) has been moved to binutils. demangle: @echo "The standalone demangler, now named c++filt, is now" @echo "a part of binutils." @false ls: @echo Makefile $(HFILES) $(CFILES) # Need to deal with profiled libraries, too. mostlyclean: rm -f *.o core errs \#* *.E a.out rm -f needed.awk needed2.awk errors dummy needed-list config.h rm -f $(CONFIG_H) $(NEEDED_LIST) clean: mostlyclean rm -f *.a distclean: clean rm -f *~ Makefile config.status alloca-conf.h TAGS realclean: distclean force: Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status argv.o: $(INCDIR)/libiberty.h basename.o: $(INCDIR)/libiberty.h concat.o: $(INCDIR)/libiberty.h cplus-dem.o: $(INCDIR)/demangle.h fdmatch.o: $(INCDIR)/libiberty.h getopt.o: $(INCDIR)/getopt.h getopt1.o: $(INCDIR)/getopt.h getruntime.o: $(INCDIR)/libiberty.h floatformat.o: $(INCDIR)/floatformat.h obstack.o: $(INCDIR)/obstack.h spaces.o: $(INCDIR)/libiberty.h strerror.o: $(INCDIR)/libiberty.h strsignal.o: $(INCDIR)/libiberty.h xatexit.o: $(INCDIR)/libiberty.h xexit.o: $(INCDIR)/libiberty.h xmalloc.o: $(INCDIR)/libiberty.h gdb-4.13/libiberty/README 666 34562 1752 12430 5123601376 13425 0ustar fnfcygnusThis directory contains the -liberty library of free software. It is a collection of subroutines used by various GNU programs. Current members include: getopt -- get options from command line obstack -- stacks of arbitrarily-sized objects strerror -- error message strings corresponding to errno strtol -- string-to-long conversion strtoul -- string-to-unsigned-long conversion We expect many of the GNU subroutines that are floating around to eventually arrive here. To build the library, do: ./configure HOSTTYPE make Please report bugs and fixes to "bug-gnu-utils@prep.ai.mit.edu". Thank you. ADDING A NEW FILE ================= There are two sets of files: Those that are "required" will be included in the library for all configurations, while those that are "optional" will be included in the library only if "needed." To add a new required file, edit Makefile to add the source file name to CFILES and the object file to REQUIRED_OFILES. Adding a new optional file is more fragile. As a general rule, an optional file will be included in the library if it provides functionality missing in the "standard" C library. For most hosts, the Makefile automatically figures out which functionality is missing by compiling and linking a dummy test program, and examining the error messages. So to get this to work, you should do the following: 1) Select one function defined in the file you're adding. For example, the getcwd function. 2) Add that function to the list in the file functions.def. 3) The name of the new file must be the same as the function you've chosen with the .c suffix added. E.g. getcwd() must be defined in getcwd.c. (The file can define other functions as well.) 4) In Makefile.in, add the name of the source file (e.g. getcwd.c) to CFILES. The file you've added (e.g. getcwd.c) should compile and work on all hosts where it is needed (e.g. not found when linking the dummy.c program). It does not have to work or even compile on hosts where it is not needed. HOW THE AUTOMATIC CONFIGURATION WORKS ===================================== The libiberty.a target (in RULE1) depends on $(DO_ALSO). For normal configurations, DO_ALSO=needed-list. So needed-list is first made. The needed-list rule compiles dummy.c. Because dummy.c includes functions.def, the resulting object file will contain a call to each of the optional functions (for simplicity assume each optional file defines a single function). This object file will be linked against the standard libraries (as defined by using $(CC) and various flags). Any function missing will causes the linker to emit an error message. We assume the name of the missing function(s) are in the error message(s). The awk script find-needed.awk has been generated from functions.def. It is used to search the linker output messages for words that match the functions listed in functions.def. The list of functions found is written on a single line to the file needed-list. After needed-list has been generated, the libiberty.a target (in RULE1) just calls 'make' recursively. It passes the contents of needed-list using the definition (expanded) HOST_OFILES="`cat needed-list`". It also tells the inferior 'make' to use RULE2. The inferior 'make' is very conventional: The main rule is $(RULE2) (which is libiberty.a). It depends on a list of object files: $(REQUIRED_OFILES) $(HOST_OFILES) (and $(EXTRA_OFILES), which is usually empty). The superior 'make' passes in $(HOST_OFILES); the others are fixed in the Makefile. ADDING A NEW CONFIGURATION ========================== On most hosts you should be able to use the scheme for automatically figuring out which files are needed. In that case, you probably don't need a special Makefile stub for that configuration. If the fully automatic scheme doesn't work, you may be able to get by with defining EXTRA_OFILES in your Makefile stub. This is a list of object file names that should be treated as required for this configuration - they will be included in libiberty.a, regardless of whatever might be in the C library. Moreover, when the dummy.c program is linked, it will be linked with $(EXTRA_OFILES). Therefore, if a function in functions.def is defined by one of the EXTRA_OFILES, it will not be listed as "needed". Thus if your hal9000 host needs a special implementation of getcwd, you can just create hal9000-getcwd.c, and define: EXTRA_OFILES=hal9000-getcwd.o Or if you want to use the libiberty version of strstr(), even though there is a version in the C library (it might be buggy or slow), just define: EXTRA_OFILES=strstr.o You can create a "manual" host configuration FOO with a file config/mh-FOO. In it, the HOST_OFILES macro should explicitly list that subset of the optional files that should be in the library. You should also set: DO_ALSO = This overrides all of the magic needed to automatically determine which files are "needed." However, keeping that list up to date is another matter... HOW THE MANUAL CONFIGURATION WORKS ================================== This also uses a recursive make, but the superior make does not do anything interesting - it just calls the inferior make with HOST_OFILES defined as $(HOST_OFILES), which is the list you created in your configuration. You probably don't want to depend on manual configuration, because keeping the HOST_OFILES list up-to-date will be a pain. gdb-4.13/libiberty/alloca-botch.h 666 34562 1752 274 5110114147 15200 0ustar fnfcygnus/* RS/6000 AIX botched alloca and requires a pragma, which ordinary compilers throw up about, so we have to put it in a specially-configured file. Like this one. */ #pragma alloca gdb-4.13/libiberty/alloca-norm.h 666 34562 1752 331 5110114146 15045 0ustar fnfcygnus/* "Normal" configuration for alloca. */ #ifdef __GNUC__ #define alloca __builtin_alloca #else /* not __GNUC__ */ #ifdef sparc #include #else char *alloca (); #endif /* sparc */ #endif /* not __GNUC__ */ gdb-4.13/libiberty/alloca.c 666 34562 1752 32724 5430573405 14156 0ustar fnfcygnus/* alloca.c -- allocate automatically reclaimed memory (Mostly) portable public-domain implementation -- D A Gwyn This implementation of the PWB library alloca function, which is used to allocate space off the run-time stack so that it is automatically reclaimed upon procedure exit, was inspired by discussions with J. Q. Johnson of Cornell. J.Otto Tennant contributed the Cray support. There are some preprocessor constants that can be defined when compiling for your specific system, for improved efficiency; however, the defaults should be okay. The general concept of this implementation is to keep track of all alloca-allocated blocks, and reclaim any that are found to be deeper in the stack than the current invocation. This heuristic does not reclaim storage as soon as it becomes invalid, but it will do so eventually. As a special case, alloca(0) reclaims storage without allocating any. It is a good idea to use alloca(0) in your main control loop, etc. to force garbage collection. */ #ifdef HAVE_CONFIG_H #include "config.h" #endif /* If compiling with GCC, this file's not needed. */ #ifndef alloca #ifdef emacs #ifdef static /* actually, only want this if static is defined as "" -- this is for usg, in which emacs must undefine static in order to make unexec workable */ #ifndef STACK_DIRECTION you lose -- must know STACK_DIRECTION at compile-time #endif /* STACK_DIRECTION undefined */ #endif /* static */ #endif /* emacs */ /* If your stack is a linked list of frames, you have to provide an "address metric" ADDRESS_FUNCTION macro. */ #if defined (CRAY) && defined (CRAY_STACKSEG_END) long i00afunc (); #define ADDRESS_FUNCTION(arg) (char *) i00afunc (&(arg)) #else #define ADDRESS_FUNCTION(arg) &(arg) #endif #if __STDC__ typedef void *pointer; #else typedef char *pointer; #endif #define NULL 0 /* Different portions of Emacs need to call different versions of malloc. The Emacs executable needs alloca to call xmalloc, because ordinary malloc isn't protected from input signals. On the other hand, the utilities in lib-src need alloca to call malloc; some of them are very simple, and don't have an xmalloc routine. Non-Emacs programs expect this to call use xmalloc. Callers below should use malloc. */ #ifndef emacs #define malloc xmalloc extern pointer xmalloc (); #endif /* Define STACK_DIRECTION if you know the direction of stack growth for your system; otherwise it will be automatically deduced at run-time. STACK_DIRECTION > 0 => grows toward higher addresses STACK_DIRECTION < 0 => grows toward lower addresses STACK_DIRECTION = 0 => direction of growth unknown */ #ifndef STACK_DIRECTION #define STACK_DIRECTION 0 /* Direction unknown. */ #endif #if STACK_DIRECTION != 0 #define STACK_DIR STACK_DIRECTION /* Known at compile-time. */ #else /* STACK_DIRECTION == 0; need run-time code. */ static int stack_dir; /* 1 or -1 once known. */ #define STACK_DIR stack_dir static void find_stack_direction () { static char *addr = NULL; /* Address of first `dummy', once known. */ auto char dummy; /* To get stack address. */ if (addr == NULL) { /* Initial entry. */ addr = ADDRESS_FUNCTION (dummy); find_stack_direction (); /* Recurse once. */ } else { /* Second entry. */ if (ADDRESS_FUNCTION (dummy) > addr) stack_dir = 1; /* Stack grew upward. */ else stack_dir = -1; /* Stack grew downward. */ } } #endif /* STACK_DIRECTION == 0 */ /* An "alloca header" is used to: (a) chain together all alloca'ed blocks; (b) keep track of stack depth. It is very important that sizeof(header) agree with malloc alignment chunk size. The following default should work okay. */ #ifndef ALIGN_SIZE #define ALIGN_SIZE sizeof(double) #endif typedef union hdr { char align[ALIGN_SIZE]; /* To force sizeof(header). */ struct { union hdr *next; /* For chaining headers. */ char *deep; /* For stack depth measure. */ } h; } header; static header *last_alloca_header = NULL; /* -> last alloca header. */ /* Return a pointer to at least SIZE bytes of storage, which will be automatically reclaimed upon exit from the procedure that called alloca. Originally, this space was supposed to be taken from the current stack frame of the caller, but that method cannot be made to work for some implementations of C, for example under Gould's UTX/32. */ pointer alloca (size) unsigned size; { auto char probe; /* Probes stack depth: */ register char *depth = ADDRESS_FUNCTION (probe); #if STACK_DIRECTION == 0 if (STACK_DIR == 0) /* Unknown growth direction. */ find_stack_direction (); #endif /* Reclaim garbage, defined as all alloca'd storage that was allocated from deeper in the stack than currently. */ { register header *hp; /* Traverses linked list. */ for (hp = last_alloca_header; hp != NULL;) if ((STACK_DIR > 0 && hp->h.deep > depth) || (STACK_DIR < 0 && hp->h.deep < depth)) { register header *np = hp->h.next; free ((pointer) hp); /* Collect garbage. */ hp = np; /* -> next header. */ } else break; /* Rest are not deeper. */ last_alloca_header = hp; /* -> last valid storage. */ } if (size == 0) return NULL; /* No allocation required. */ /* Allocate combined header + user data storage. */ { register pointer new = malloc (sizeof (header) + size); /* Address of header. */ ((header *) new)->h.next = last_alloca_header; ((header *) new)->h.deep = depth; last_alloca_header = (header *) new; /* User storage begins just after header. */ return (pointer) ((char *) new + sizeof (header)); } } #if defined (CRAY) && defined (CRAY_STACKSEG_END) #ifdef DEBUG_I00AFUNC #include #endif #ifndef CRAY_STACK #define CRAY_STACK #ifndef CRAY2 /* Stack structures for CRAY-1, CRAY X-MP, and CRAY Y-MP */ struct stack_control_header { long shgrow:32; /* Number of times stack has grown. */ long shaseg:32; /* Size of increments to stack. */ long shhwm:32; /* High water mark of stack. */ long shsize:32; /* Current size of stack (all segments). */ }; /* The stack segment linkage control information occurs at the high-address end of a stack segment. (The stack grows from low addresses to high addresses.) The initial part of the stack segment linkage control information is 0200 (octal) words. This provides for register storage for the routine which overflows the stack. */ struct stack_segment_linkage { long ss[0200]; /* 0200 overflow words. */ long sssize:32; /* Number of words in this segment. */ long ssbase:32; /* Offset to stack base. */ long:32; long sspseg:32; /* Offset to linkage control of previous segment of stack. */ long:32; long sstcpt:32; /* Pointer to task common address block. */ long sscsnm; /* Private control structure number for microtasking. */ long ssusr1; /* Reserved for user. */ long ssusr2; /* Reserved for user. */ long sstpid; /* Process ID for pid based multi-tasking. */ long ssgvup; /* Pointer to multitasking thread giveup. */ long sscray[7]; /* Reserved for Cray Research. */ long ssa0; long ssa1; long ssa2; long ssa3; long ssa4; long ssa5; long ssa6; long ssa7; long sss0; long sss1; long sss2; long sss3; long sss4; long sss5; long sss6; long sss7; }; #else /* CRAY2 */ /* The following structure defines the vector of words returned by the STKSTAT library routine. */ struct stk_stat { long now; /* Current total stack size. */ long maxc; /* Amount of contiguous space which would be required to satisfy the maximum stack demand to date. */ long high_water; /* Stack high-water mark. */ long overflows; /* Number of stack overflow ($STKOFEN) calls. */ long hits; /* Number of internal buffer hits. */ long extends; /* Number of block extensions. */ long stko_mallocs; /* Block allocations by $STKOFEN. */ long underflows; /* Number of stack underflow calls ($STKRETN). */ long stko_free; /* Number of deallocations by $STKRETN. */ long stkm_free; /* Number of deallocations by $STKMRET. */ long segments; /* Current number of stack segments. */ long maxs; /* Maximum number of stack segments so far. */ long pad_size; /* Stack pad size. */ long current_address; /* Current stack segment address. */ long current_size; /* Current stack segment size. This number is actually corrupted by STKSTAT to include the fifteen word trailer area. */ long initial_address; /* Address of initial segment. */ long initial_size; /* Size of initial segment. */ }; /* The following structure describes the data structure which trails any stack segment. I think that the description in 'asdef' is out of date. I only describe the parts that I am sure about. */ struct stk_trailer { long this_address; /* Address of this block. */ long this_size; /* Size of this block (does not include this trailer). */ long unknown2; long unknown3; long link; /* Address of trailer block of previous segment. */ long unknown5; long unknown6; long unknown7; long unknown8; long unknown9; long unknown10; long unknown11; long unknown12; long unknown13; long unknown14; }; #endif /* CRAY2 */ #endif /* not CRAY_STACK */ #ifdef CRAY2 /* Determine a "stack measure" for an arbitrary ADDRESS. I doubt that "lint" will like this much. */ static long i00afunc (long *address) { struct stk_stat status; struct stk_trailer *trailer; long *block, size; long result = 0; /* We want to iterate through all of the segments. The first step is to get the stack status structure. We could do this more quickly and more directly, perhaps, by referencing the $LM00 common block, but I know that this works. */ STKSTAT (&status); /* Set up the iteration. */ trailer = (struct stk_trailer *) (status.current_address + status.current_size - 15); /* There must be at least one stack segment. Therefore it is a fatal error if "trailer" is null. */ if (trailer == 0) abort (); /* Discard segments that do not contain our argument address. */ while (trailer != 0) { block = (long *) trailer->this_address; size = trailer->this_size; if (block == 0 || size == 0) abort (); trailer = (struct stk_trailer *) trailer->link; if ((block <= address) && (address < (block + size))) break; } /* Set the result to the offset in this segment and add the sizes of all predecessor segments. */ result = address - block; if (trailer == 0) { return result; } do { if (trailer->this_size <= 0) abort (); result += trailer->this_size; trailer = (struct stk_trailer *) trailer->link; } while (trailer != 0); /* We are done. Note that if you present a bogus address (one not in any segment), you will get a different number back, formed from subtracting the address of the first block. This is probably not what you want. */ return (result); } #else /* not CRAY2 */ /* Stack address function for a CRAY-1, CRAY X-MP, or CRAY Y-MP. Determine the number of the cell within the stack, given the address of the cell. The purpose of this routine is to linearize, in some sense, stack addresses for alloca. */ static long i00afunc (long address) { long stkl = 0; long size, pseg, this_segment, stack; long result = 0; struct stack_segment_linkage *ssptr; /* Register B67 contains the address of the end of the current stack segment. If you (as a subprogram) store your registers on the stack and find that you are past the contents of B67, you have overflowed the segment. B67 also points to the stack segment linkage control area, which is what we are really interested in. */ stkl = CRAY_STACKSEG_END (); ssptr = (struct stack_segment_linkage *) stkl; /* If one subtracts 'size' from the end of the segment, one has the address of the first word of the segment. If this is not the first segment, 'pseg' will be nonzero. */ pseg = ssptr->sspseg; size = ssptr->sssize; this_segment = stkl - size; /* It is possible that calling this routine itself caused a stack overflow. Discard stack segments which do not contain the target address. */ while (!(this_segment <= address && address <= stkl)) { #ifdef DEBUG_I00AFUNC fprintf (stderr, "%011o %011o %011o\n", this_segment, address, stkl); #endif if (pseg == 0) break; stkl = stkl - pseg; ssptr = (struct stack_segment_linkage *) stkl; size = ssptr->sssize; pseg = ssptr->sspseg; this_segment = stkl - size; } result = address - this_segment; /* If you subtract pseg from the current end of the stack, you get the address of the previous stack segment's end. This seems a little convoluted to me, but I'll bet you save a cycle somewhere. */ while (pseg != 0) { #ifdef DEBUG_I00AFUNC fprintf (stderr, "%011o %011o\n", pseg, size); #endif stkl = stkl - pseg; ssptr = (struct stack_segment_linkage *) stkl; size = ssptr->sssize; pseg = ssptr->sspseg; result += size; } return (result); } #endif /* not CRAY2 */ #endif /* CRAY */ #endif /* no alloca */ gdb-4.13/libiberty/argv.c 666 34562 1752 16633 5551332732 13663 0ustar fnfcygnus/* Create and destroy argument vectors (argv's) Copyright (C) 1992 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Create and destroy argument vectors. An argument vector is simply an array of string pointers, terminated by a NULL pointer. */ /* AIX requires this to be the first thing in the file. */ #ifdef __GNUC__ #define alloca __builtin_alloca #else /* not __GNUC__ */ #ifdef sparc #include extern char *__builtin_alloca(); /* Stupid include file doesn't declare it */ #else #ifdef _AIX #pragma alloca #else char *alloca (); #endif #endif /* sparc */ #endif /* not __GNUC__ */ #define isspace(ch) ((ch) == ' ' || (ch) == '\t') #include "alloca-conf.h" #include "ansidecl.h" #include "libiberty.h" /* Routines imported from standard C runtime libraries. */ #ifdef __STDC__ #include extern void *memcpy (void *s1, const void *s2, size_t n); /* 4.11.2.1 */ extern size_t strlen (const char *s); /* 4.11.6.3 */ extern void *malloc (size_t size); /* 4.10.3.3 */ extern void *realloc (void *ptr, size_t size); /* 4.10.3.4 */ extern void free (void *ptr); /* 4.10.3.2 */ extern char *strdup (const char *s); /* Non-ANSI */ #else /* !__STDC__ */ extern char *memcpy (); /* Copy memory region */ extern int strlen (); /* Count length of string */ extern char *malloc (); /* Standard memory allocater */ extern char *realloc (); /* Standard memory reallocator */ extern void free (); /* Free malloc'd memory */ extern char *strdup (); /* Duplicate a string */ #endif /* __STDC__ */ #ifndef NULL #define NULL 0 #endif #ifndef EOS #define EOS '\0' #endif #define INITIAL_MAXARGC 8 /* Number of args + NULL in initial argv */ /* NAME freeargv -- free an argument vector SYNOPSIS void freeargv (vector) char **vector; DESCRIPTION Free an argument vector that was built using buildargv. Simply scans through the vector, freeing the memory for each argument until the terminating NULL is found, and then frees the vector itself. RETURNS No value. */ void freeargv (vector) char **vector; { register char **scan; if (vector != NULL) { for (scan = vector; *scan != NULL; scan++) { free (*scan); } free (vector); } } /* NAME buildargv -- build an argument vector from a string SYNOPSIS char **buildargv (sp) char *sp; DESCRIPTION Given a pointer to a string, parse the string extracting fields separated by whitespace and optionally enclosed within either single or double quotes (which are stripped off), and build a vector of pointers to copies of the string for each field. The input string remains unchanged. All of the memory for the pointer array and copies of the string is obtained from malloc. All of the memory can be returned to the system with the single function call freeargv, which takes the returned result of buildargv, as it's argument. The memory for the argv array is dynamically expanded as necessary. RETURNS Returns a pointer to the argument vector if successful. Returns NULL if the input string pointer is NULL or if there is insufficient memory to complete building the argument vector. NOTES In order to provide a working buffer for extracting arguments into, with appropriate stripping of quotes and translation of backslash sequences, we allocate a working buffer at least as long as the input string. This ensures that we always have enough space in which to work, since the extracted arg is never larger than the input string. If the input is a null string (as opposed to a NULL pointer), then buildarg returns an argv that has one arg, a null string. Argv is always kept terminated with a NULL arg pointer, so it can be passed to freeargv at any time, or returned, as appropriate. */ char **buildargv (input) char *input; { char *arg; char *copybuf; int squote = 0; int dquote = 0; int bsquote = 0; int argc = 0; int maxargc = 0; char **argv = NULL; char **nargv; if (input != NULL) { copybuf = alloca (strlen (input) + 1); /* Is a do{}while to always execute the loop once. Always return an argv, even for null strings. See NOTES above, test case below. */ do { /* Pick off argv[argc] */ while (isspace (*input)) { input++; } if ((maxargc == 0) || (argc >= (maxargc - 1))) { /* argv needs initialization, or expansion */ if (argv == NULL) { maxargc = INITIAL_MAXARGC; nargv = (char **) malloc (maxargc * sizeof (char *)); } else { maxargc *= 2; nargv = (char **) realloc (argv, maxargc * sizeof (char *)); } if (nargv == NULL) { if (argv != NULL) { freeargv (argv); argv = NULL; } break; } argv = nargv; argv[argc] = NULL; } /* Begin scanning arg */ arg = copybuf; while (*input != EOS) { if (isspace (*input) && !squote && !dquote && !bsquote) { break; } else { if (bsquote) { bsquote = 0; *arg++ = *input; } else if (*input == '\\') { bsquote = 1; } else if (squote) { if (*input == '\'') { squote = 0; } else { *arg++ = *input; } } else if (dquote) { if (*input == '"') { dquote = 0; } else { *arg++ = *input; } } else { if (*input == '\'') { squote = 1; } else if (*input == '"') { dquote = 1; } else { *arg++ = *input; } } input++; } } *arg = EOS; argv[argc] = strdup (copybuf); if (argv[argc] == NULL) { freeargv (argv); argv = NULL; break; } argc++; argv[argc] = NULL; while (isspace (*input)) { input++; } } while (*input != EOS); } return (argv); } #ifdef MAIN /* Simple little test driver. */ static char *tests[] = { "a simple command line", "arg 'foo' is single quoted", "arg \"bar\" is double quoted", "arg \"foo bar\" has embedded whitespace", "arg 'Jack said \\'hi\\'' has single quotes", "arg 'Jack said \\\"hi\\\"' has double quotes", "a b c d e f g h i j k l m n o p q r s t u v w x y z 1 2 3 4 5 6 7 8 9", /* This should be expanded into only one argument. */ "trailing-whitespace ", "", NULL }; main () { char **argv; char **test; char **targs; for (test = tests; *test != NULL; test++) { printf ("buildargv(\"%s\")\n", *test); if ((argv = buildargv (*test)) == NULL) { printf ("failed!\n\n"); } else { for (targs = argv; *targs != NULL; targs++) { printf ("\t\"%s\"\n", *targs); } printf ("\n"); } freeargv (argv); } } #endif /* MAIN */ gdb-4.13/libiberty/basename.c 666 34562 1752 2605 5526531736 14460 0ustar fnfcygnus/* Return the basename of a pathname. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME basename -- return pointer to last component of a pathname SYNOPSIS char *basename (char *name) DESCRIPTION Given a pointer to a string containing a typical pathname (/usr/src/cmd/ls/ls.c for example), returns a pointer to the last component of the pathname ("ls.c" in this case). BUGS Presumes a UNIX style path with UNIX style separators. */ #include "ansidecl.h" #include "libiberty.h" char * basename (name) char *name; { char *base = name; while (*name) { if (*name++ == '/') { base = name; } } return (base); } gdb-4.13/libiberty/bcmp.c 666 34562 1752 3037 5262376345 13626 0ustar fnfcygnus/* Emulate bcmp using memcmp Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME bcmp -- compare two memory regions SYNOPSIS int bcmp (char *from, char *to, int count) DESCRIPTION Compare two memory regions and return zero if they are identical, non-zero otherwise. If count is zero, return zero. NOTES No guarantee is made about the non-zero returned value. In particular, the results may be signficantly different than strcmp(), where the return value is guaranteed to be less than, equal to, or greater than zero, according to lexicographical sorting of the compared regions. BUGS */ int bcmp (from, to, count) char *from, *to; int count; { int rtnval = 0; while (count-- > 0) { if (*from++ != *to++) { rtnval = 1; break; } } return (rtnval); } gdb-4.13/libiberty/bcopy.c 666 34562 1752 2762 5262376347 14027 0ustar fnfcygnus/* bcopy -- copy memory regions of arbitary length Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME bcopy -- copy memory regions of arbitrary length SYNOPSIS void bcopy (char *in, char *out, int length) DESCRIPTION Copy LENGTH bytes from memory region pointed to by IN to memory region pointed to by OUT. BUGS Significant speed improvements can be made in some cases by implementing copies of multiple bytes simultaneously, or unrolling the copy loop. */ void bcopy (src, dest, len) register char *src, *dest; int len; { if (dest < src) while (len--) *dest++ = *src++; else { char *lasts = src + (len-1); char *lastd = dest + (len-1); while (len--) *(char *)lastd-- = *(char *)lasts--; } } gdb-4.13/libiberty/bzero.c 666 34562 1752 2406 5262376353 14024 0ustar fnfcygnus/* Portable version of bzero for systems without it. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME bzero -- zero the contents of a specified memory region SYNOPSIS void bzero (char *to, int count) DESCRIPTION Zero COUNT bytes of memory pointed to by TO. BUGS Significant speed enhancements may be made in some environments by zeroing more than a single byte at a time, or by unrolling the loop. */ void bzero (to, count) char *to; int count; { while (count-- > 0) { *to++ = 0; } } gdb-4.13/libiberty/clock.c 666 34562 1752 3361 5521040653 13764 0ustar fnfcygnus/* ANSI-compatible clock function. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef HAVE_GETRUSAGE #include #include #endif #ifdef HAVE_TIMES #include #include #endif /* FIXME: should be able to declare as clock_t. */ long clock () { #ifdef HAVE_GETRUSAGE struct rusage rusage; getrusage (0, &rusage); return (rusage.ru_utime.tv_sec * 1000000 + rusage.ru_utime.tv_usec + rusage.ru_stime.tv_sec * 1000000 + rusage.ru_stime.tv_usec); #else #ifdef HAVE_TIMES struct tms tms; times (&tms); return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ); #else #ifdef VMS struct { int proc_user_time; int proc_system_time; int child_user_time; int child_system_time; } vms_times; times (&vms_times); return (vms_times.proc_user_time + vms_times.proc_system_time) * 10000; #else /* A fallback, if nothing else available. */ return 0; #endif /* VMS */ #endif /* HAVE_TIMES */ #endif /* HAVE_GETRUSAGE */ } gdb-4.13/libiberty/concat.c 666 34562 1752 7414 5532006475 14151 0ustar fnfcygnus/* Concatenate variable number of strings. Copyright (C) 1991, 1994 Free Software Foundation, Inc. Written by Fred Fish @ Cygnus Support This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME concat -- concatenate a variable number of strings SYNOPSIS #include char *concat (s1, s2, s3, ..., NULL) DESCRIPTION Concatenate a variable number of strings and return the result in freshly malloc'd memory. Returns NULL if insufficient memory is available. The argument list is terminated by the first NULL pointer encountered. Pointers to empty strings are ignored. NOTES This function uses xmalloc() which is expected to be a front end function to malloc() that deals with low memory situations. In typical use, if malloc() returns NULL then xmalloc() diverts to an error handler routine which never returns, and thus xmalloc will never return a NULL pointer. If the client application wishes to deal with low memory situations itself, it should supply an xmalloc that just directly invokes malloc and blindly returns whatever malloc returns. */ #include "ansidecl.h" #include "libiberty.h" #ifdef ANSI_PROTOTYPES #include #else #include #endif #ifdef __STDC__ #include extern size_t strlen (const char *s); #else extern int strlen (); #endif #define NULLP (char *)0 /* VARARGS */ #ifdef ANSI_PROTOTYPES char * concat (const char *first, ...) #else char * concat (va_alist) va_dcl #endif { register int length; register char *newstr; register char *end; register const char *arg; va_list args; #ifndef ANSI_PROTOTYPES const char *first; #endif /* First compute the size of the result and get sufficient memory. */ #ifdef ANSI_PROTOTYPES va_start (args, first); #else va_start (args); first = va_arg (args, const char *); #endif if (first == NULLP) length = 0; else { length = strlen (first); while ((arg = va_arg (args, const char *)) != NULLP) { length += strlen (arg); } } newstr = (char *) xmalloc (length + 1); va_end (args); /* Now copy the individual pieces to the result string. */ if (newstr != NULLP) { #ifdef ANSI_PROTOTYPES va_start (args, first); #else va_start (args); first = va_arg (args, const char *); #endif end = newstr; if (first != NULLP) { arg = first; while (*arg) { *end++ = *arg++; } while ((arg = va_arg (args, const char *)) != NULLP) { while (*arg) { *end++ = *arg++; } } } *end = '\000'; va_end (args); } return (newstr); } #ifdef MAIN /* Simple little test driver. */ #include int main () { printf ("\"\" = \"%s\"\n", concat (NULLP)); printf ("\"a\" = \"%s\"\n", concat ("a", NULLP)); printf ("\"ab\" = \"%s\"\n", concat ("a", "b", NULLP)); printf ("\"abc\" = \"%s\"\n", concat ("a", "b", "c", NULLP)); printf ("\"abcd\" = \"%s\"\n", concat ("ab", "cd", NULLP)); printf ("\"abcde\" = \"%s\"\n", concat ("ab", "c", "de", NULLP)); printf ("\"abcdef\" = \"%s\"\n", concat ("", "a", "", "bcd", "ef", NULLP)); return 0; } #endif gdb-4.13/libiberty/config.table 666 34562 1752 1746 5612036262 15012 0ustar fnfcygnus# This file is used by both libiberty/configure.in and xiberty/configure.in. case "${xhost-${host}}" in rs6000-ibm-aix3.1 | rs6000-ibm-aix) frag=mh-aix files=${xsrcdir}alloca-botch.h ;; rs6000-ibm-aix*) files=${xsrcdir}alloca-botch.h ;; m68k-apollo-bsd*) frag=mh-a68bsd ;; m68k-apollo-sysv*) frag=mh-apollo68 ;; i[34]86-ncr-sysv4*) frag=mh-ncr3000 ;; *-*-cxux7*) frag=mh-cxux7 ;; *-*-lynxos*) frag=mh-lynxos ;; *-*-dgux*) frag=mh-sysv ;; hppa*-hp-bsd*) frag=mh-hpbsd ;; *-*-hpux*) frag=mh-hpux ;; *-*-hiux*) frag=mh-hpux ;; *-*-irix4*) frag=mh-irix4 ;; *-*-irix*) frag=mh-sysv ;; *-*-m88kbcs*) frag=mh-sysv ;; *-*-solaris2*) frag=mh-sysv4 ;; *-*-sysv4*) frag=mh-sysv4 ;; *-*-sysv*) frag=mh-sysv ;; *-*-go32) frag=mh-go32 ;; esac # xiberty sets xhost. Try to handle funky case of solaris 2 -> sun 4. case "${target}" in sparc-sun-sunos4.1.3) if [ "${host}" != "${target}" ] ; then frag=mt-sunos4 fi ;; esac gdb-4.13/libiberty/configure.bat 666 34562 1752 513 5571423223 15155 0ustar fnfcygnus@echo off if "%1" == "h8/300" goto h8300 echo Configuring libiberty for go32 copy Makefile.dos Makefile echo #define NEED_sys_siglist 1 >> config.h echo #define NEED_psignal 1 >> config.h update alloca-normal.h alloca-conf.h goto exit :h8300 echo Configuring libiberty for H8/300 copy Makefile.dos Makefile :exit gdb-4.13/libiberty/configure.in 666 34562 1752 644 5412144710 15015 0ustar fnfcygnus# This file is a shell script fragment that supplies the information # necessary for a configure script to process the program in # this directory. For more information, look at ../configure. configdirs= srctrigger=getopt1.c srcname="-liberty library" # per-host: files="alloca-norm.h" links="alloca-conf.h" . ${srcdir}/config.table if test -n "${frag}" ; then host_makefile_frag=config/${frag} fi # per-target: gdb-4.13/libiberty/copysign.c 666 34562 1752 4672 5174630051 14533 0ustar fnfcygnus#include #ifdef __IEEE_BIG_ENDIAN typedef union { double value; struct { unsigned int sign : 1; unsigned int exponent: 11; unsigned int fraction0:4; unsigned int fraction1:16; unsigned int fraction2:16; unsigned int fraction3:16; } number; struct { unsigned int sign : 1; unsigned int exponent: 11; unsigned int quiet:1; unsigned int function0:3; unsigned int function1:16; unsigned int function2:16; unsigned int function3:16; } nan; struct { unsigned long msw; unsigned long lsw; } parts; long aslong[2]; } __ieee_double_shape_type; #endif #ifdef __IEEE_LITTLE_ENDIAN typedef union { double value; struct { #ifdef __SMALL_BITFIELDS unsigned int fraction3:16; unsigned int fraction2:16; unsigned int fraction1:16; unsigned int fraction0: 4; #else unsigned int fraction1:32; unsigned int fraction0:20; #endif unsigned int exponent :11; unsigned int sign : 1; } number; struct { #ifdef __SMALL_BITFIELDS unsigned int function3:16; unsigned int function2:16; unsigned int function1:16; unsigned int function0:3; #else unsigned int function1:32; unsigned int function0:19; #endif unsigned int quiet:1; unsigned int exponent: 11; unsigned int sign : 1; } nan; struct { unsigned long lsw; unsigned long msw; } parts; long aslong[2]; } __ieee_double_shape_type; #endif #ifdef __IEEE_BIG_ENDIAN typedef union { float value; struct { unsigned int sign : 1; unsigned int exponent: 8; unsigned int fraction0: 7; unsigned int fraction1: 16; } number; struct { unsigned int sign:1; unsigned int exponent:8; unsigned int quiet:1; unsigned int function0:6; unsigned int function1:16; } nan; long p1; } __ieee_float_shape_type; #endif #ifdef __IEEE_LITTLE_ENDIAN typedef union { float value; struct { unsigned int fraction0: 7; unsigned int fraction1: 16; unsigned int exponent: 8; unsigned int sign : 1; } number; struct { unsigned int function1:16; unsigned int function0:6; unsigned int quiet:1; unsigned int exponent:8; unsigned int sign:1; } nan; long p1; } __ieee_float_shape_type; #endif double DEFUN(copysign, (x, y), double x AND double y) { __ieee_double_shape_type a,b; b.value = y; a.value = x; a.number.sign =b.number.sign; return a.value; } gdb-4.13/libiberty/cplus-dem.c 666 34562 1752 201337 5604221176 14630 0ustar fnfcygnus/* Demangler for GNU C++ Copyright 1989, 1991 Free Software Foundation, Inc. Written by James Clark (jjc@jclark.uucp) Rewritten by Fred Fish (fnf@cygnus.com) for ARM and Lucid demangling This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This file exports two functions; cplus_mangle_opname and cplus_demangle. This file imports xmalloc and xrealloc, which are like malloc and realloc except that they generate a fatal error if there is no available memory. */ #include #undef CURRENT_DEMANGLING_STYLE #define CURRENT_DEMANGLING_STYLE work->options #include #include #include #include "libiberty.h" extern char *strstr (); /* In order to allow a single demangler executable to demangle strings using various common values of CPLUS_MARKER, as well as any specific one set at compile time, we maintain a string containing all the commonly used ones, and check to see if the marker we are looking for is in that string. CPLUS_MARKER is usually '$' on systems where the assembler can deal with that. Where the assembler can't, it's usually '.' (but on many systems '.' is used for other things). We put the current defined CPLUS_MARKER first (which defaults to '$'), followed by the next most common value, followed by an explicit '$' in case the value of CPLUS_MARKER is not '$'. We could avoid this if we could just get g++ to tell us what the actual cplus marker character is as part of the debug information, perhaps by ensuring that it is the character that terminates the gcc_compiled marker symbol (FIXME). */ #if !defined (CPLUS_MARKER) #define CPLUS_MARKER '$' #endif enum demangling_styles current_demangling_style = gnu_demangling; static char cplus_markers[] = { CPLUS_MARKER, '.', '$', '\0' }; void set_cplus_marker_for_demangling (ch) int ch; { cplus_markers[0] = ch; } /* Stuff that is shared between sub-routines. * Using a shared structure allows cplus_demangle to be reentrant. */ struct work_stuff { int options; char **typevec; int ntypes; int typevec_size; int constructor; int destructor; int static_type; /* A static member function */ int const_type; /* A const member function */ }; #define PRINT_ANSI_QUALIFIERS (work -> options & DMGL_ANSI) #define PRINT_ARG_TYPES (work -> options & DMGL_PARAMS) static CONST struct optable { CONST char *in; CONST char *out; int flags; } optable[] = { {"nw", " new", DMGL_ANSI}, /* new (1.92, ansi) */ {"dl", " delete", DMGL_ANSI}, /* new (1.92, ansi) */ {"new", " new", 0}, /* old (1.91, and 1.x) */ {"delete", " delete", 0}, /* old (1.91, and 1.x) */ {"vn", " new []", DMGL_ANSI}, /* GNU, pending ansi */ {"vd", " delete []", DMGL_ANSI}, /* GNU, pending ansi */ {"as", "=", DMGL_ANSI}, /* ansi */ {"ne", "!=", DMGL_ANSI}, /* old, ansi */ {"eq", "==", DMGL_ANSI}, /* old, ansi */ {"ge", ">=", DMGL_ANSI}, /* old, ansi */ {"gt", ">", DMGL_ANSI}, /* old, ansi */ {"le", "<=", DMGL_ANSI}, /* old, ansi */ {"lt", "<", DMGL_ANSI}, /* old, ansi */ {"plus", "+", 0}, /* old */ {"pl", "+", DMGL_ANSI}, /* ansi */ {"apl", "+=", DMGL_ANSI}, /* ansi */ {"minus", "-", 0}, /* old */ {"mi", "-", DMGL_ANSI}, /* ansi */ {"ami", "-=", DMGL_ANSI}, /* ansi */ {"mult", "*", 0}, /* old */ {"ml", "*", DMGL_ANSI}, /* ansi */ {"amu", "*=", DMGL_ANSI}, /* ansi (ARM/Lucid) */ {"aml", "*=", DMGL_ANSI}, /* ansi (GNU/g++) */ {"convert", "+", 0}, /* old (unary +) */ {"negate", "-", 0}, /* old (unary -) */ {"trunc_mod", "%", 0}, /* old */ {"md", "%", DMGL_ANSI}, /* ansi */ {"amd", "%=", DMGL_ANSI}, /* ansi */ {"trunc_div", "/", 0}, /* old */ {"dv", "/", DMGL_ANSI}, /* ansi */ {"adv", "/=", DMGL_ANSI}, /* ansi */ {"truth_andif", "&&", 0}, /* old */ {"aa", "&&", DMGL_ANSI}, /* ansi */ {"truth_orif", "||", 0}, /* old */ {"oo", "||", DMGL_ANSI}, /* ansi */ {"truth_not", "!", 0}, /* old */ {"nt", "!", DMGL_ANSI}, /* ansi */ {"postincrement","++", 0}, /* old */ {"pp", "++", DMGL_ANSI}, /* ansi */ {"postdecrement","--", 0}, /* old */ {"mm", "--", DMGL_ANSI}, /* ansi */ {"bit_ior", "|", 0}, /* old */ {"or", "|", DMGL_ANSI}, /* ansi */ {"aor", "|=", DMGL_ANSI}, /* ansi */ {"bit_xor", "^", 0}, /* old */ {"er", "^", DMGL_ANSI}, /* ansi */ {"aer", "^=", DMGL_ANSI}, /* ansi */ {"bit_and", "&", 0}, /* old */ {"ad", "&", DMGL_ANSI}, /* ansi */ {"aad", "&=", DMGL_ANSI}, /* ansi */ {"bit_not", "~", 0}, /* old */ {"co", "~", DMGL_ANSI}, /* ansi */ {"call", "()", 0}, /* old */ {"cl", "()", DMGL_ANSI}, /* ansi */ {"alshift", "<<", 0}, /* old */ {"ls", "<<", DMGL_ANSI}, /* ansi */ {"als", "<<=", DMGL_ANSI}, /* ansi */ {"arshift", ">>", 0}, /* old */ {"rs", ">>", DMGL_ANSI}, /* ansi */ {"ars", ">>=", DMGL_ANSI}, /* ansi */ {"component", "->", 0}, /* old */ {"pt", "->", DMGL_ANSI}, /* ansi; Lucid C++ form */ {"rf", "->", DMGL_ANSI}, /* ansi; ARM/GNU form */ {"indirect", "*", 0}, /* old */ {"method_call", "->()", 0}, /* old */ {"addr", "&", 0}, /* old (unary &) */ {"array", "[]", 0}, /* old */ {"vc", "[]", DMGL_ANSI}, /* ansi */ {"compound", ", ", 0}, /* old */ {"cm", ", ", DMGL_ANSI}, /* ansi */ {"cond", "?:", 0}, /* old */ {"cn", "?:", DMGL_ANSI}, /* psuedo-ansi */ {"max", ">?", 0}, /* old */ {"mx", ">?", DMGL_ANSI}, /* psuedo-ansi */ {"min", "*", DMGL_ANSI} /* ansi */ }; typedef struct string /* Beware: these aren't required to be */ { /* '\0' terminated. */ char *b; /* pointer to start of string */ char *p; /* pointer after last character */ char *e; /* pointer after end of allocated space */ } string; #define STRING_EMPTY(str) ((str) -> b == (str) -> p) #define PREPEND_BLANK(str) {if (!STRING_EMPTY(str)) \ string_prepend(str, " ");} #define APPEND_BLANK(str) {if (!STRING_EMPTY(str)) \ string_append(str, " ");} #define ARM_VTABLE_STRING "__vtbl__" /* Lucid/ARM virtual table prefix */ #define ARM_VTABLE_STRLEN 8 /* strlen (ARM_VTABLE_STRING) */ /* Prototypes for local functions */ static char * mop_up PARAMS ((struct work_stuff *, string *, int)); #if 0 static int demangle_method_args PARAMS ((struct work_stuff *work, CONST char **, string *)); #endif static int demangle_template PARAMS ((struct work_stuff *work, CONST char **, string *, string *)); static int demangle_qualified PARAMS ((struct work_stuff *, CONST char **, string *, int, int)); static int demangle_class PARAMS ((struct work_stuff *, CONST char **, string *)); static int demangle_fund_type PARAMS ((struct work_stuff *, CONST char **, string *)); static int demangle_signature PARAMS ((struct work_stuff *, CONST char **, string *)); static int demangle_prefix PARAMS ((struct work_stuff *, CONST char **, string *)); static int gnu_special PARAMS ((struct work_stuff *, CONST char **, string *)); static int arm_special PARAMS ((struct work_stuff *, CONST char **, string *)); static void string_need PARAMS ((string *, int)); static void string_delete PARAMS ((string *)); static void string_init PARAMS ((string *)); static void string_clear PARAMS ((string *)); #if 0 static int string_empty PARAMS ((string *)); #endif static void string_append PARAMS ((string *, CONST char *)); static void string_appends PARAMS ((string *, string *)); static void string_appendn PARAMS ((string *, CONST char *, int)); static void string_prepend PARAMS ((string *, CONST char *)); static void string_prependn PARAMS ((string *, CONST char *, int)); static int get_count PARAMS ((CONST char **, int *)); static int consume_count PARAMS ((CONST char **)); static int demangle_args PARAMS ((struct work_stuff *, CONST char **, string *)); static int do_type PARAMS ((struct work_stuff *, CONST char **, string *)); static int do_arg PARAMS ((struct work_stuff *, CONST char **, string *)); static void demangle_function_name PARAMS ((struct work_stuff *, CONST char **, string *, CONST char *)); static void remember_type PARAMS ((struct work_stuff *, CONST char *, int)); static void forget_types PARAMS ((struct work_stuff *)); static void string_prepends PARAMS ((string *, string *)); /* Translate count to integer, consuming tokens in the process. Conversion terminates on the first non-digit character. Trying to consume something that isn't a count results in no consumption of input and a return of 0. */ static int consume_count (type) CONST char **type; { int count = 0; while (isdigit (**type)) { count *= 10; count += **type - '0'; (*type)++; } return (count); } int cplus_demangle_opname (opname, result, options) char *opname; char *result; int options; { int len, i, len1, ret; string type; struct work_stuff work[1]; CONST char *tem; len = strlen(opname); result[0] = '\0'; ret = 0; work->options = options; if (opname[0] == '_' && opname[1] == '_' && opname[2] == 'o' && opname[3] == 'p') { /* ANSI. */ /* type conversion operator. */ tem = opname + 4; if (do_type (work, &tem, &type)) { strcat (result, "operator "); strncat (result, type.b, type.p - type.b); string_delete (&type); ret = 1; } } else if (opname[0] == '_' && opname[1] == '_' && opname[2] >= 'a' && opname[2] <= 'z' && opname[3] >= 'a' && opname[3] <= 'z') { if (opname[4] == '\0') { /* Operator. */ for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++) { if (strlen (optable[i].in) == 2 && memcmp (optable[i].in, opname + 2, 2) == 0) { strcat (result, "operator"); strcat (result, optable[i].out); ret = 1; break; } } } else { if (opname[2] == 'a' && opname[5] == '\0') { /* Assignment. */ for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++) { if (strlen (optable[i].in) == 3 && memcmp (optable[i].in, opname + 2, 3) == 0) { strcat (result, "operator"); strcat (result, optable[i].out); ret = 1; break; } } } } } else if (len >= 3 && opname[0] == 'o' && opname[1] == 'p' && strchr (cplus_markers, opname[2]) != NULL) { /* see if it's an assignment expression */ if (len >= 10 /* op$assign_ */ && memcmp (opname + 3, "assign_", 7) == 0) { for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++) { len1 = len - 10; if (strlen (optable[i].in) == len1 && memcmp (optable[i].in, opname + 10, len1) == 0) { strcat (result, "operator"); strcat (result, optable[i].out); strcat (result, "="); ret = 1; break; } } } else { for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++) { len1 = len - 3; if (strlen (optable[i].in) == len1 && memcmp (optable[i].in, opname + 3, len1) == 0) { strcat (result, "operator"); strcat (result, optable[i].out); ret = 1; break; } } } } else if (len >= 5 && memcmp (opname, "type", 4) == 0 && strchr (cplus_markers, opname[4]) != NULL) { /* type conversion operator */ tem = opname + 5; if (do_type (work, &tem, &type)) { strcat (result, "operator "); strncat (result, type.b, type.p - type.b); string_delete (&type); ret = 1; } } return ret; } /* Takes operator name as e.g. "++" and returns mangled operator name (e.g. "postincrement_expr"), or NULL if not found. If OPTIONS & DMGL_ANSI == 1, return the ANSI name; if OPTIONS & DMGL_ANSI == 0, return the old GNU name. */ char * cplus_mangle_opname (opname, options) char *opname; int options; { int i; int len; len = strlen (opname); for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++) { if (strlen (optable[i].out) == len && (options & DMGL_ANSI) == (optable[i].flags & DMGL_ANSI) && memcmp (optable[i].out, opname, len) == 0) return ((char *)optable[i].in); } return (0); } /* check to see whether MANGLED can match TEXT in the first TEXT_LEN characters. */ int cplus_match (mangled, text, text_len) CONST char *mangled; char *text; int text_len; { if (strncmp (mangled, text, text_len) != 0) { return(0); /* cannot match either */ } else { return(1); /* matches mangled, may match demangled */ } } /* char *cplus_demangle (const char *mangled, int options) If MANGLED is a mangled function name produced by GNU C++, then a pointer to a malloced string giving a C++ representation of the name will be returned; otherwise NULL will be returned. It is the caller's responsibility to free the string which is returned. The OPTIONS arg may contain one or more of the following bits: DMGL_ANSI ANSI qualifiers such as `const' and `void' are included. DMGL_PARAMS Function parameters are included. For example, cplus_demangle ("foo__1Ai", DMGL_PARAMS) => "A::foo(int)" cplus_demangle ("foo__1Ai", DMGL_PARAMS | DMGL_ANSI) => "A::foo(int)" cplus_demangle ("foo__1Ai", 0) => "A::foo" cplus_demangle ("foo__1Afe", DMGL_PARAMS) => "A::foo(float,...)" cplus_demangle ("foo__1Afe", DMGL_PARAMS | DMGL_ANSI)=> "A::foo(float,...)" cplus_demangle ("foo__1Afe", 0) => "A::foo" Note that any leading underscores, or other such characters prepended by the compilation system, are presumed to have already been stripped from MANGLED. */ char * cplus_demangle (mangled, options) CONST char *mangled; int options; { string decl; int success = 0; struct work_stuff work[1]; char *demangled = NULL; if ((mangled != NULL) && (*mangled != '\0')) { memset ((char *) work, 0, sizeof (work)); work -> options = options; if ((work->options & DMGL_STYLE_MASK) == 0) work->options |= (int)current_demangling_style & DMGL_STYLE_MASK; string_init (&decl); /* First check to see if gnu style demangling is active and if the string to be demangled contains a CPLUS_MARKER. If so, attempt to recognize one of the gnu special forms rather than looking for a standard prefix. In particular, don't worry about whether there is a "__" string in the mangled string. Consider "_$_5__foo" for example. */ if ((AUTO_DEMANGLING || GNU_DEMANGLING)) { success = gnu_special (work, &mangled, &decl); } if (!success) { success = demangle_prefix (work, &mangled, &decl); } if (success && (*mangled != '\0')) { success = demangle_signature (work, &mangled, &decl); } if (work->constructor == 2) { string_prepend(&decl, "global constructors keyed to "); work->constructor = 0; } else if (work->destructor == 2) { string_prepend(&decl, "global destructors keyed to "); work->destructor = 0; } demangled = mop_up (work, &decl, success); } return (demangled); } static char * mop_up (work, declp, success) struct work_stuff *work; string *declp; int success; { char *demangled = NULL; /* Discard the remembered types, if any. */ forget_types (work); if (work -> typevec != NULL) { free ((char *) work -> typevec); } /* If demangling was successful, ensure that the demangled string is null terminated and return it. Otherwise, free the demangling decl. */ if (!success) { string_delete (declp); } else { string_appendn (declp, "", 1); demangled = declp -> b; } return (demangled); } /* LOCAL FUNCTION demangle_signature -- demangle the signature part of a mangled name SYNOPSIS static int demangle_signature (struct work_stuff *work, const char **mangled, string *declp); DESCRIPTION Consume and demangle the signature portion of the mangled name. DECLP is the string where demangled output is being built. At entry it contains the demangled root name from the mangled name prefix. I.E. either a demangled operator name or the root function name. In some special cases, it may contain nothing. *MANGLED points to the current unconsumed location in the mangled name. As tokens are consumed and demangling is performed, the pointer is updated to continuously point at the next token to be consumed. Demangling GNU style mangled names is nasty because there is no explicit token that marks the start of the outermost function argument list. */ static int demangle_signature (work, mangled, declp) struct work_stuff *work; CONST char **mangled; string *declp; { int success = 1; int func_done = 0; int expect_func = 0; CONST char *oldmangled = NULL; string trawname; string tname; while (success && (**mangled != '\0')) { switch (**mangled) { case 'Q': oldmangled = *mangled; success = demangle_qualified (work, mangled, declp, 1, 0); if (success) { remember_type (work, oldmangled, *mangled - oldmangled); } if (AUTO_DEMANGLING || GNU_DEMANGLING) { expect_func = 1; } oldmangled = NULL; break; case 'S': /* Static member function */ if (oldmangled == NULL) { oldmangled = *mangled; } (*mangled)++; work -> static_type = 1; break; case 'C': /* a const member function */ if (oldmangled == NULL) { oldmangled = *mangled; } (*mangled)++; work -> const_type = 1; break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (oldmangled == NULL) { oldmangled = *mangled; } success = demangle_class (work, mangled, declp); if (success) { remember_type (work, oldmangled, *mangled - oldmangled); } if (AUTO_DEMANGLING || GNU_DEMANGLING) { expect_func = 1; } oldmangled = NULL; break; case 'F': /* Function */ /* ARM style demangling includes a specific 'F' character after the class name. For GNU style, it is just implied. So we can safely just consume any 'F' at this point and be compatible with either style. */ oldmangled = NULL; func_done = 1; (*mangled)++; /* For lucid/ARM style we have to forget any types we might have remembered up to this point, since they were not argument types. GNU style considers all types seen as available for back references. See comment in demangle_args() */ if (LUCID_DEMANGLING || ARM_DEMANGLING) { forget_types (work); } success = demangle_args (work, mangled, declp); break; case 't': /* G++ Template */ string_init(&trawname); string_init(&tname); if (oldmangled == NULL) { oldmangled = *mangled; } success = demangle_template (work, mangled, &tname, &trawname); if (success) { remember_type (work, oldmangled, *mangled - oldmangled); } string_append(&tname, "::"); string_prepends(declp, &tname); if (work -> destructor & 1) { string_prepend (&trawname, "~"); string_appends (declp, &trawname); work->destructor -= 1; } if ((work->constructor & 1) || (work->destructor & 1)) { string_appends (declp, &trawname); work->constructor -= 1; } string_delete(&trawname); string_delete(&tname); oldmangled = NULL; expect_func = 1; break; case '_': /* At the outermost level, we cannot have a return type specified, so if we run into another '_' at this point we are dealing with a mangled name that is either bogus, or has been mangled by some algorithm we don't know how to deal with. So just reject the entire demangling. */ success = 0; break; default: if (AUTO_DEMANGLING || GNU_DEMANGLING) { /* Assume we have stumbled onto the first outermost function argument token, and start processing args. */ func_done = 1; success = demangle_args (work, mangled, declp); } else { /* Non-GNU demanglers use a specific token to mark the start of the outermost function argument tokens. Typically 'F', for ARM-demangling, for example. So if we find something we are not prepared for, it must be an error. */ success = 0; } break; } /* if (AUTO_DEMANGLING || GNU_DEMANGLING) */ { if (success && expect_func) { func_done = 1; success = demangle_args (work, mangled, declp); } } } if (success && !func_done) { if (AUTO_DEMANGLING || GNU_DEMANGLING) { /* With GNU style demangling, bar__3foo is 'foo::bar(void)', and bar__3fooi is 'foo::bar(int)'. We get here when we find the first case, and need to ensure that the '(void)' gets added to the current declp. Note that with ARM, the first case represents the name of a static data member 'foo::bar', which is in the current declp, so we leave it alone. */ success = demangle_args (work, mangled, declp); } } if (success && work -> static_type && PRINT_ARG_TYPES) { string_append (declp, " static"); } if (success && work -> const_type && PRINT_ARG_TYPES) { string_append (declp, " const"); } return (success); } #if 0 static int demangle_method_args (work, mangled, declp) struct work_stuff *work; CONST char **mangled; string *declp; { int success = 0; if (work -> static_type) { string_append (declp, *mangled + 1); *mangled += strlen (*mangled); success = 1; } else { success = demangle_args (work, mangled, declp); } return (success); } #endif static int demangle_template (work, mangled, tname, trawname) struct work_stuff *work; CONST char **mangled; string *tname; string *trawname; { int i; int is_pointer; int is_real; int is_integral; int r; int need_comma = 0; int success = 0; int done; CONST char *old_p; CONST char *start; int symbol_len; string temp; (*mangled)++; start = *mangled; /* get template name */ if ((r = consume_count (mangled)) == 0 || strlen (*mangled) < r) { return (0); } if (trawname) string_appendn (trawname, *mangled, r); string_appendn (tname, *mangled, r); *mangled += r; string_append (tname, "<"); /* get size of template parameter list */ if (!get_count (mangled, &r)) { return (0); } for (i = 0; i < r; i++) { if (need_comma) { string_append (tname, ", "); } /* Z for type parameters */ if (**mangled == 'Z') { (*mangled)++; /* temp is initialized in do_type */ success = do_type (work, mangled, &temp); if (success) { string_appends (tname, &temp); } string_delete(&temp); if (!success) { break; } } else { /* otherwise, value parameter */ old_p = *mangled; is_pointer = 0; is_real = 0; is_integral = 0; done = 0; /* temp is initialized in do_type */ success = do_type (work, mangled, &temp); if (success) { string_appends (tname, &temp); } string_delete(&temp); if (!success) { break; } string_append (tname, "="); while (*old_p && !done) { switch (*old_p) { case 'P': case 'p': case 'R': done = is_pointer = 1; break; case 'C': /* const */ case 'S': /* explicitly signed [char] */ case 'U': /* unsigned */ case 'V': /* volatile */ case 'F': /* function */ case 'M': /* member function */ case 'O': /* ??? */ old_p++; continue; case 'Q': /* qualified name */ done = is_integral = 1; break; case 'T': /* remembered type */ abort (); break; case 'v': /* void */ abort (); break; case 'x': /* long long */ case 'l': /* long */ case 'i': /* int */ case 's': /* short */ case 'c': /* char */ case 'w': /* wchar_t */ done = is_integral = 1; break; case 'r': /* long double */ case 'd': /* double */ case 'f': /* float */ done = is_real = 1; break; default: /* it's probably user defined type, let's assume it's integeral, it seems hard to figure out what it really is */ done = is_integral = 1; } } if (is_integral) { if (**mangled == 'm') { string_appendn (tname, "-", 1); (*mangled)++; } while (isdigit (**mangled)) { string_appendn (tname, *mangled, 1); (*mangled)++; } } else if (is_real) { if (**mangled == 'm') { string_appendn (tname, "-", 1); (*mangled)++; } while (isdigit (**mangled)) { string_appendn (tname, *mangled, 1); (*mangled)++; } if (**mangled == '.') /* fraction */ { string_appendn (tname, ".", 1); (*mangled)++; while (isdigit (**mangled)) { string_appendn (tname, *mangled, 1); (*mangled)++; } } if (**mangled == 'e') /* exponent */ { string_appendn (tname, "e", 1); (*mangled)++; while (isdigit (**mangled)) { string_appendn (tname, *mangled, 1); (*mangled)++; } } } else if (is_pointer) { if (!get_count (mangled, &symbol_len)) { success = 0; break; } string_appendn (tname, *mangled, symbol_len); *mangled += symbol_len; } } need_comma = 1; } if (tname->p[-1] == '>') string_append (tname, " "); string_append (tname, ">"); /* if (work -> static_type) { string_append (declp, *mangled + 1); *mangled += strlen (*mangled); success = 1; } else { success = demangle_args (work, mangled, declp); } } */ return (success); } static int arm_pt (work, mangled, n, anchor, args) struct work_stuff *work; CONST char *mangled; int n; CONST char **anchor, **args; { /* ARM template? */ if (ARM_DEMANGLING && (*anchor = strstr(mangled, "__pt__"))) { int len; *args = *anchor + 6; len = consume_count (args); if (*args + len == mangled + n && **args == '_') { ++*args; return 1; } } return 0; } static void demangle_arm_pt (work, mangled, n, declp) struct work_stuff *work; CONST char **mangled; int n; string *declp; { CONST char *p; CONST char *args; CONST char *e = *mangled + n; /* ARM template? */ if (arm_pt (work, *mangled, n, &p, &args)) { string arg; string_init (&arg); string_appendn (declp, *mangled, p - *mangled); string_append (declp, "<"); /* should do error checking here */ while (args < e) { string_clear (&arg); do_type (work, &args, &arg); string_appends (declp, &arg); string_append (declp, ","); } string_delete (&arg); --declp->p; string_append (declp, ">"); } else { string_appendn (declp, *mangled, n); } *mangled += n; } static int demangle_class_name (work, mangled, declp) struct work_stuff *work; CONST char **mangled; string *declp; { int n; int success = 0; n = consume_count (mangled); if (strlen (*mangled) >= n) { demangle_arm_pt (work, mangled, n, declp); success = 1; } return (success); } /* LOCAL FUNCTION demangle_class -- demangle a mangled class sequence SYNOPSIS static int demangle_class (struct work_stuff *work, const char **mangled, strint *declp) DESCRIPTION DECLP points to the buffer into which demangling is being done. *MANGLED points to the current token to be demangled. On input, it points to a mangled class (I.E. "3foo", "13verylongclass", etc.) On exit, it points to the next token after the mangled class on success, or the first unconsumed token on failure. If the CONSTRUCTOR or DESTRUCTOR flags are set in WORK, then we are demangling a constructor or destructor. In this case we prepend "class::class" or "class::~class" to DECLP. Otherwise, we prepend "class::" to the current DECLP. Reset the constructor/destructor flags once they have been "consumed". This allows demangle_class to be called later during the same demangling, to do normal class demangling. Returns 1 if demangling is successful, 0 otherwise. */ static int demangle_class (work, mangled, declp) struct work_stuff *work; CONST char **mangled; string *declp; { int success = 0; string class_name; string_init (&class_name); if (demangle_class_name (work, mangled, &class_name)) { if ((work->constructor & 1) || (work->destructor & 1)) { string_prepends (declp, &class_name); if (work -> destructor & 1) { string_prepend (declp, "~"); work -> destructor -= 1; } else { work -> constructor -= 1; } } string_prepend (declp, "::"); string_prepends (declp, &class_name); success = 1; } string_delete (&class_name); return (success); } /* LOCAL FUNCTION demangle_prefix -- consume the mangled name prefix and find signature SYNOPSIS static int demangle_prefix (struct work_stuff *work, const char **mangled, string *declp); DESCRIPTION Consume and demangle the prefix of the mangled name. DECLP points to the string buffer into which demangled output is placed. On entry, the buffer is empty. On exit it contains the root function name, the demangled operator name, or in some special cases either nothing or the completely demangled result. MANGLED points to the current pointer into the mangled name. As each token of the mangled name is consumed, it is updated. Upon entry the current mangled name pointer points to the first character of the mangled name. Upon exit, it should point to the first character of the signature if demangling was successful, or to the first unconsumed character if demangling of the prefix was unsuccessful. Returns 1 on success, 0 otherwise. */ static int demangle_prefix (work, mangled, declp) struct work_stuff *work; CONST char **mangled; string *declp; { int success = 1; CONST char *scan; int i; if (strlen(*mangled) >= 11 && strncmp(*mangled, "_GLOBAL_", 8) == 0) { char *marker = strchr (cplus_markers, (*mangled)[8]); if (marker != NULL && *marker == (*mangled)[10]) { if ((*mangled)[9] == 'D') { /* it's a GNU global destructor to be executed at program exit */ (*mangled) += 11; work->destructor = 2; } else if ((*mangled)[9] == 'I') { /* it's a GNU global constructor to be executed at program init */ (*mangled) += 11; work->constructor = 2; } } } else if (ARM_DEMANGLING && strncmp(*mangled, "__std__", 7) == 0) { /* it's a ARM global destructor to be executed at program exit */ (*mangled) += 7; work->destructor = 2; } else if (ARM_DEMANGLING && strncmp(*mangled, "__sti__", 7) == 0) { /* it's a ARM global constructor to be executed at program initial */ (*mangled) += 7; work->constructor = 2; } /* This block of code is a reduction in strength time optimization of: scan = strstr (*mangled, "__"); */ { scan = *mangled; do { scan = strchr (scan, '_'); } while (scan != NULL && *++scan != '_'); if (scan != NULL) --scan; } if (scan != NULL) { /* We found a sequence of two or more '_', ensure that we start at the last pair in the sequence. */ i = strspn (scan, "_"); if (i > 2) { scan += (i - 2); } } if (scan == NULL) { success = 0; } else if (work -> static_type) { if (!isdigit (scan[0]) && (scan[0] != 't')) { success = 0; } } else if ((scan == *mangled) && (isdigit (scan[2]) || (scan[2] == 'Q') || (scan[2] == 't'))) { /* The ARM says nothing about the mangling of local variables. But cfront mangles local variables by prepending __ to them. As an extension to ARM demangling we handle this case. */ if ((LUCID_DEMANGLING || ARM_DEMANGLING) && isdigit (scan[2])) { *mangled = scan + 2; consume_count (mangled); string_append (declp, *mangled); *mangled += strlen (*mangled); success = 1; } else { /* A GNU style constructor starts with __[0-9Qt]. But cfront uses names like __Q2_3foo3bar for nested type names. So don't accept this style of constructor for cfront demangling. */ if (!(LUCID_DEMANGLING || ARM_DEMANGLING)) work -> constructor += 1; *mangled = scan + 2; } } else if ((scan == *mangled) && !isdigit (scan[2]) && (scan[2] != 't')) { /* Mangled name starts with "__". Skip over any leading '_' characters, then find the next "__" that separates the prefix from the signature. */ if (!(ARM_DEMANGLING || LUCID_DEMANGLING) || (arm_special (work, mangled, declp) == 0)) { while (*scan == '_') { scan++; } if ((scan = strstr (scan, "__")) == NULL || (*(scan + 2) == '\0')) { /* No separator (I.E. "__not_mangled"), or empty signature (I.E. "__not_mangled_either__") */ success = 0; } else { demangle_function_name (work, mangled, declp, scan); } } } else if (ARM_DEMANGLING && scan[2] == 'p' && scan[3] == 't') { /* Cfront-style parameterized type. Handled later as a signature. */ success = 1; /* ARM template? */ demangle_arm_pt (work, mangled, strlen (*mangled), declp); } else if (*(scan + 2) != '\0') { /* Mangled name does not start with "__" but does have one somewhere in there with non empty stuff after it. Looks like a global function name. */ demangle_function_name (work, mangled, declp, scan); } else { /* Doesn't look like a mangled name */ success = 0; } if (!success && (work->constructor == 2 || work->destructor == 2)) { string_append (declp, *mangled); *mangled += strlen (*mangled); success = 1; } return (success); } /* LOCAL FUNCTION gnu_special -- special handling of gnu mangled strings SYNOPSIS static int gnu_special (struct work_stuff *work, const char **mangled, string *declp); DESCRIPTION Process some special GNU style mangling forms that don't fit the normal pattern. For example: _$_3foo (destructor for class foo) _vt$foo (foo virtual table) _vt$foo$bar (foo::bar virtual table) __vt_foo (foo virtual table, new style with thunks) _3foo$varname (static data member) _Q22rs2tu$vw (static data member) __t6vector1Zii (constructor with template) __thunk_4__$_7ostream (virtual function thunk) */ static int gnu_special (work, mangled, declp) struct work_stuff *work; CONST char **mangled; string *declp; { int n; int success = 1; CONST char *p; if ((*mangled)[0] == '_' && strchr (cplus_markers, (*mangled)[1]) != NULL && (*mangled)[2] == '_') { /* Found a GNU style destructor, get past "__" */ (*mangled) += 3; work -> destructor += 1; } else if ((*mangled)[0] == '_' && (((*mangled)[1] == '_' && (*mangled)[2] == 'v' && (*mangled)[3] == 't' && (*mangled)[4] == '_') || ((*mangled)[1] == 'v' && (*mangled)[2] == 't' && strchr (cplus_markers, (*mangled)[3]) != NULL))) { /* Found a GNU style virtual table, get past "_vt" and create the decl. Note that we consume the entire mangled input string, which means that demangle_signature has no work to do. */ if ((*mangled)[2] == 'v') (*mangled) += 5; /* New style, with thunks: "__vt_" */ else (*mangled) += 4; /* Old style, no thunks: "_vt" */ while (**mangled != '\0') { p = strpbrk (*mangled, cplus_markers); switch (**mangled) { case 'Q': success = demangle_qualified (work, mangled, declp, 0, 1); break; case 't': success = demangle_template (work, mangled, declp, 0); break; default: if (isdigit(*mangled[0])) { n = consume_count(mangled); } else { n = strcspn (*mangled, cplus_markers); } string_appendn (declp, *mangled, n); (*mangled) += n; } if (success && ((p == NULL) || (p == *mangled))) { if (p != NULL) { string_append (declp, "::"); (*mangled)++; } } else { success = 0; break; } } if (success) string_append (declp, " virtual table"); } else if ((*mangled)[0] == '_' && (strchr("0123456789Qt", (*mangled)[1]) != NULL) && (p = strpbrk (*mangled, cplus_markers)) != NULL) { /* static data member, "_3foo$varname" for example */ (*mangled)++; switch (**mangled) { case 'Q': success = demangle_qualified (work, mangled, declp, 0, 1); break; case 't': success = demangle_template (work, mangled, declp, 0); break; default: n = consume_count (mangled); string_appendn (declp, *mangled, n); (*mangled) += n; } if (success && (p == *mangled)) { /* Consumed everything up to the cplus_marker, append the variable name. */ (*mangled)++; string_append (declp, "::"); n = strlen (*mangled); string_appendn (declp, *mangled, n); (*mangled) += n; } else { success = 0; } } else if (strncmp (*mangled, "__thunk_", 8) == 0) { int delta = ((*mangled) += 8, consume_count (mangled)); char *method = cplus_demangle (++*mangled, work->options); if (method) { char buf[50]; sprintf (buf, "virtual function thunk (delta:%d) for ", -delta); string_append (declp, buf); string_append (declp, method); free (method); n = strlen (*mangled); (*mangled) += n; } else { success = 0; } } else { success = 0; } return (success); } /* LOCAL FUNCTION arm_special -- special handling of ARM/lucid mangled strings SYNOPSIS static int arm_special (struct work_stuff *work, const char **mangled, string *declp); DESCRIPTION Process some special ARM style mangling forms that don't fit the normal pattern. For example: __vtbl__3foo (foo virtual table) __vtbl__3foo__3bar (bar::foo virtual table) */ static int arm_special (work, mangled, declp) struct work_stuff *work; CONST char **mangled; string *declp; { int n; int success = 1; CONST char *scan; if (strncmp (*mangled, ARM_VTABLE_STRING, ARM_VTABLE_STRLEN) == 0) { /* Found a ARM style virtual table, get past ARM_VTABLE_STRING and create the decl. Note that we consume the entire mangled input string, which means that demangle_signature has no work to do. */ scan = *mangled + ARM_VTABLE_STRLEN; while (*scan != '\0') /* first check it can be demangled */ { n = consume_count (&scan); if (n==0) { return (0); /* no good */ } scan += n; if (scan[0] == '_' && scan[1] == '_') { scan += 2; } } (*mangled) += ARM_VTABLE_STRLEN; while (**mangled != '\0') { n = consume_count (mangled); string_prependn (declp, *mangled, n); (*mangled) += n; if ((*mangled)[0] == '_' && (*mangled)[1] == '_') { string_prepend (declp, "::"); (*mangled) += 2; } } string_append (declp, " virtual table"); } else { success = 0; } return (success); } /* LOCAL FUNCTION demangle_qualified -- demangle 'Q' qualified name strings SYNOPSIS static int demangle_qualified (struct work_stuff *, const char *mangled, string *result, int isfuncname, int append); DESCRIPTION Demangle a qualified name, such as "Q25Outer5Inner" which is the mangled form of "Outer::Inner". The demangled output is prepended or appended to the result string according to the state of the append flag. If isfuncname is nonzero, then the qualified name we are building is going to be used as a member function name, so if it is a constructor or destructor function, append an appropriate constructor or destructor name. I.E. for the above example, the result for use as a constructor is "Outer::Inner::Inner" and the result for use as a destructor is "Outer::Inner::~Inner". BUGS Numeric conversion is ASCII dependent (FIXME). */ static int demangle_qualified (work, mangled, result, isfuncname, append) struct work_stuff *work; CONST char **mangled; string *result; int isfuncname; int append; { int qualifiers; int namelength; int success = 1; CONST char *p; char num[2]; string temp; string_init (&temp); switch ((*mangled)[1]) { case '_': /* GNU mangled name with more than 9 classes. The count is preceded by an underscore (to distinguish it from the <= 9 case) and followed by an underscore. */ p = *mangled + 2; qualifiers = atoi (p); if (!isdigit (*p) || *p == '0') success = 0; /* Skip the digits. */ while (isdigit (*p)) ++p; if (*p != '_') success = 0; *mangled = p + 1; break; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': /* The count is in a single digit. */ num[0] = (*mangled)[1]; num[1] = '\0'; qualifiers = atoi (num); /* If there is an underscore after the digit, skip it. This is said to be for ARM-qualified names, but the ARM makes no mention of such an underscore. Perhaps cfront uses one. */ if ((*mangled)[2] == '_') { (*mangled)++; } (*mangled) += 2; break; case '0': default: success = 0; } if (!success) return success; /* Pick off the names and collect them in the temp buffer in the order in which they are found, separated by '::'. */ while (qualifiers-- > 0) { if (*mangled[0] == 't') { success = demangle_template(work, mangled, &temp, 0); if (!success) break; } else { namelength = consume_count (mangled); if (strlen (*mangled) < namelength) { /* Simple sanity check failed */ success = 0; break; } string_appendn (&temp, *mangled, namelength); *mangled += namelength; } if (qualifiers > 0) { string_appendn (&temp, "::", 2); } } /* If we are using the result as a function name, we need to append the appropriate '::' separated constructor or destructor name. We do this here because this is the most convenient place, where we already have a pointer to the name and the length of the name. */ if (isfuncname && (work->constructor & 1 || work->destructor & 1)) { string_appendn (&temp, "::", 2); if (work -> destructor & 1) { string_append (&temp, "~"); } string_appendn (&temp, (*mangled) - namelength, namelength); } /* Now either prepend the temp buffer to the result, or append it, depending upon the state of the append flag. */ if (append) { string_appends (result, &temp); } else { if (!STRING_EMPTY (result)) { string_appendn (&temp, "::", 2); } string_prepends (result, &temp); } string_delete (&temp); return (success); } /* LOCAL FUNCTION get_count -- convert an ascii count to integer, consuming tokens SYNOPSIS static int get_count (const char **type, int *count) DESCRIPTION Return 0 if no conversion is performed, 1 if a string is converted. */ static int get_count (type, count) CONST char **type; int *count; { CONST char *p; int n; if (!isdigit (**type)) { return (0); } else { *count = **type - '0'; (*type)++; if (isdigit (**type)) { p = *type; n = *count; do { n *= 10; n += *p - '0'; p++; } while (isdigit (*p)); if (*p == '_') { *type = p + 1; *count = n; } } } return (1); } /* result will be initialised here; it will be freed on failure */ static int do_type (work, mangled, result) struct work_stuff *work; CONST char **mangled; string *result; { int n; int done; int success; string decl; CONST char *remembered_type; int constp; int volatilep; string_init (&decl); string_init (result); done = 0; success = 1; while (success && !done) { int member; switch (**mangled) { /* A pointer type */ case 'P': case 'p': (*mangled)++; string_prepend (&decl, "*"); break; /* A reference type */ case 'R': (*mangled)++; string_prepend (&decl, "&"); break; /* An array */ case 'A': { CONST char *p = ++(*mangled); string_prepend (&decl, "("); string_append (&decl, ")["); /* Copy anything up until the next underscore (the size of the array). */ while (**mangled && **mangled != '_') ++(*mangled); if (**mangled == '_') { string_appendn (&decl, p, *mangled - p); string_append (&decl, "]"); *mangled += 1; } else success = 0; break; } /* A back reference to a previously seen type */ case 'T': (*mangled)++; if (!get_count (mangled, &n) || n >= work -> ntypes) { success = 0; } else { remembered_type = work -> typevec[n]; mangled = &remembered_type; } break; /* A function */ case 'F': (*mangled)++; if (!STRING_EMPTY (&decl) && decl.b[0] == '*') { string_prepend (&decl, "("); string_append (&decl, ")"); } /* After picking off the function args, we expect to either find the function return type (preceded by an '_') or the end of the string. */ if (!demangle_args (work, mangled, &decl) || (**mangled != '_' && **mangled != '\0')) { success = 0; } if (success && (**mangled == '_')) { (*mangled)++; } break; case 'M': case 'O': { constp = 0; volatilep = 0; member = **mangled == 'M'; (*mangled)++; if (!isdigit (**mangled)) { success = 0; break; } n = consume_count (mangled); if (strlen (*mangled) < n) { success = 0; break; } string_append (&decl, ")"); string_prepend (&decl, "::"); string_prependn (&decl, *mangled, n); string_prepend (&decl, "("); *mangled += n; if (member) { if (**mangled == 'C') { (*mangled)++; constp = 1; } if (**mangled == 'V') { (*mangled)++; volatilep = 1; } if (*(*mangled)++ != 'F') { success = 0; break; } } if ((member && !demangle_args (work, mangled, &decl)) || **mangled != '_') { success = 0; break; } (*mangled)++; if (! PRINT_ANSI_QUALIFIERS) { break; } if (constp) { APPEND_BLANK (&decl); string_append (&decl, "const"); } if (volatilep) { APPEND_BLANK (&decl); string_append (&decl, "volatile"); } break; } case 'G': (*mangled)++; break; case 'C': (*mangled)++; /* if ((*mangled)[1] == 'P') { */ if (PRINT_ANSI_QUALIFIERS) { if (!STRING_EMPTY (&decl)) { string_prepend (&decl, " "); } string_prepend (&decl, "const"); } break; /* } */ /* fall through */ default: done = 1; break; } } switch (**mangled) { /* A qualified name, such as "Outer::Inner". */ case 'Q': success = demangle_qualified (work, mangled, result, 0, 1); break; default: success = demangle_fund_type (work, mangled, result); break; } if (success) { if (!STRING_EMPTY (&decl)) { string_append (result, " "); string_appends (result, &decl); } } else { string_delete (result); } string_delete (&decl); return (success); } /* Given a pointer to a type string that represents a fundamental type argument (int, long, unsigned int, etc) in TYPE, a pointer to the string in which the demangled output is being built in RESULT, and the WORK structure, decode the types and add them to the result. For example: "Ci" => "const int" "Sl" => "signed long" "CUs" => "const unsigned short" */ static int demangle_fund_type (work, mangled, result) struct work_stuff *work; CONST char **mangled; string *result; { int done = 0; int success = 1; /* First pick off any type qualifiers. There can be more than one. */ while (!done) { switch (**mangled) { case 'C': (*mangled)++; if (PRINT_ANSI_QUALIFIERS) { APPEND_BLANK (result); string_append (result, "const"); } break; case 'U': (*mangled)++; APPEND_BLANK (result); string_append (result, "unsigned"); break; case 'S': /* signed char only */ (*mangled)++; APPEND_BLANK (result); string_append (result, "signed"); break; case 'V': (*mangled)++; if (PRINT_ANSI_QUALIFIERS) { APPEND_BLANK (result); string_append (result, "volatile"); } break; default: done = 1; break; } } /* Now pick off the fundamental type. There can be only one. */ switch (**mangled) { case '\0': case '_': break; case 'v': (*mangled)++; APPEND_BLANK (result); string_append (result, "void"); break; case 'x': (*mangled)++; APPEND_BLANK (result); string_append (result, "long long"); break; case 'l': (*mangled)++; APPEND_BLANK (result); string_append (result, "long"); break; case 'i': (*mangled)++; APPEND_BLANK (result); string_append (result, "int"); break; case 's': (*mangled)++; APPEND_BLANK (result); string_append (result, "short"); break; case 'b': (*mangled)++; APPEND_BLANK (result); string_append (result, "bool"); break; case 'c': (*mangled)++; APPEND_BLANK (result); string_append (result, "char"); break; case 'w': (*mangled)++; APPEND_BLANK (result); string_append (result, "wchar_t"); break; case 'r': (*mangled)++; APPEND_BLANK (result); string_append (result, "long double"); break; case 'd': (*mangled)++; APPEND_BLANK (result); string_append (result, "double"); break; case 'f': (*mangled)++; APPEND_BLANK (result); string_append (result, "float"); break; case 'G': (*mangled)++; if (!isdigit (**mangled)) { success = 0; break; } /* fall through */ /* An explicit type, such as "6mytype" or "7integer" */ case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': APPEND_BLANK (result); if (!demangle_class_name (work, mangled, result)) { --result->p; success = 0; } break; case 't': success = demangle_template(work,mangled, result, 0); break; default: success = 0; break; } return (success); } /* `result' will be initialized in do_type; it will be freed on failure */ static int do_arg (work, mangled, result) struct work_stuff *work; CONST char **mangled; string *result; { CONST char *start = *mangled; if (!do_type (work, mangled, result)) { return (0); } else { remember_type (work, start, *mangled - start); return (1); } } static void remember_type (work, start, len) struct work_stuff *work; CONST char *start; int len; { char *tem; if (work -> ntypes >= work -> typevec_size) { if (work -> typevec_size == 0) { work -> typevec_size = 3; work -> typevec = (char **) xmalloc (sizeof (char *) * work -> typevec_size); } else { work -> typevec_size *= 2; work -> typevec = (char **) xrealloc ((char *)work -> typevec, sizeof (char *) * work -> typevec_size); } } tem = xmalloc (len + 1); memcpy (tem, start, len); tem[len] = '\0'; work -> typevec[work -> ntypes++] = tem; } /* Forget the remembered types, but not the type vector itself. */ static void forget_types (work) struct work_stuff *work; { int i; while (work -> ntypes > 0) { i = --(work -> ntypes); if (work -> typevec[i] != NULL) { free (work -> typevec[i]); work -> typevec[i] = NULL; } } } /* Process the argument list part of the signature, after any class spec has been consumed, as well as the first 'F' character (if any). For example: "__als__3fooRT0" => process "RT0" "complexfunc5__FPFPc_PFl_i" => process "PFPc_PFl_i" DECLP must be already initialised, usually non-empty. It won't be freed on failure. Note that g++ differs significantly from ARM and lucid style mangling with regards to references to previously seen types. For example, given the source fragment: class foo { public: foo::foo (int, foo &ia, int, foo &ib, int, foo &ic); }; foo::foo (int, foo &ia, int, foo &ib, int, foo &ic) { ia = ib = ic; } void foo (int, foo &ia, int, foo &ib, int, foo &ic) { ia = ib = ic; } g++ produces the names: __3fooiRT0iT2iT2 foo__FiR3fooiT1iT1 while lcc (and presumably other ARM style compilers as well) produces: foo__FiR3fooT1T2T1T2 __ct__3fooFiR3fooT1T2T1T2 Note that g++ bases it's type numbers starting at zero and counts all previously seen types, while lucid/ARM bases it's type numbers starting at one and only considers types after it has seen the 'F' character indicating the start of the function args. For lucid/ARM style, we account for this difference by discarding any previously seen types when we see the 'F' character, and subtracting one from the type number reference. */ static int demangle_args (work, mangled, declp) struct work_stuff *work; CONST char **mangled; string *declp; { string arg; int need_comma = 0; int r; int t; CONST char *tem; char temptype; if (PRINT_ARG_TYPES) { string_append (declp, "("); if (**mangled == '\0') { string_append (declp, "void"); } } while (**mangled != '_' && **mangled != '\0' && **mangled != 'e') { if ((**mangled == 'N') || (**mangled == 'T')) { temptype = *(*mangled)++; if (temptype == 'N') { if (!get_count (mangled, &r)) { return (0); } } else { r = 1; } if (!get_count (mangled, &t)) { return (0); } if (LUCID_DEMANGLING || ARM_DEMANGLING) { t--; } /* Validate the type index. Protect against illegal indices from malformed type strings. */ if ((t < 0) || (t >= work -> ntypes)) { return (0); } while (--r >= 0) { tem = work -> typevec[t]; if (need_comma && PRINT_ARG_TYPES) { string_append (declp, ", "); } if (!do_arg (work, &tem, &arg)) { return (0); } if (PRINT_ARG_TYPES) { string_appends (declp, &arg); } string_delete (&arg); need_comma = 1; } } else { if (need_comma & PRINT_ARG_TYPES) { string_append (declp, ", "); } if (!do_arg (work, mangled, &arg)) { return (0); } if (PRINT_ARG_TYPES) { string_appends (declp, &arg); } string_delete (&arg); need_comma = 1; } } if (**mangled == 'e') { (*mangled)++; if (PRINT_ARG_TYPES) { if (need_comma) { string_append (declp, ","); } string_append (declp, "..."); } } if (PRINT_ARG_TYPES) { string_append (declp, ")"); } return (1); } static void demangle_function_name (work, mangled, declp, scan) struct work_stuff *work; CONST char **mangled; string *declp; CONST char *scan; { int i; int len; string type; CONST char *tem; string_appendn (declp, (*mangled), scan - (*mangled)); string_need (declp, 1); *(declp -> p) = '\0'; /* Consume the function name, including the "__" separating the name from the signature. We are guaranteed that SCAN points to the separator. */ (*mangled) = scan + 2; if (LUCID_DEMANGLING || ARM_DEMANGLING) { /* See if we have an ARM style constructor or destructor operator. If so, then just record it, clear the decl, and return. We can't build the actual constructor/destructor decl until later, when we recover the class name from the signature. */ if (strcmp (declp -> b, "__ct") == 0) { work -> constructor += 1; string_clear (declp); return; } else if (strcmp (declp -> b, "__dt") == 0) { work -> destructor += 1; string_clear (declp); return; } } if (declp->p - declp->b >= 3 && declp->b[0] == 'o' && declp->b[1] == 'p' && strchr (cplus_markers, declp->b[2]) != NULL) { /* see if it's an assignment expression */ if (declp->p - declp->b >= 10 /* op$assign_ */ && memcmp (declp->b + 3, "assign_", 7) == 0) { for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++) { len = declp->p - declp->b - 10; if (strlen (optable[i].in) == len && memcmp (optable[i].in, declp->b + 10, len) == 0) { string_clear (declp); string_append (declp, "operator"); string_append (declp, optable[i].out); string_append (declp, "="); break; } } } else { for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++) { int len = declp->p - declp->b - 3; if (strlen (optable[i].in) == len && memcmp (optable[i].in, declp->b + 3, len) == 0) { string_clear (declp); string_append (declp, "operator"); string_append (declp, optable[i].out); break; } } } } else if (declp->p - declp->b >= 5 && memcmp (declp->b, "type", 4) == 0 && strchr (cplus_markers, declp->b[4]) != NULL) { /* type conversion operator */ tem = declp->b + 5; if (do_type (work, &tem, &type)) { string_clear (declp); string_append (declp, "operator "); string_appends (declp, &type); string_delete (&type); } } else if (declp->b[0] == '_' && declp->b[1] == '_' && declp->b[2] == 'o' && declp->b[3] == 'p') { /* ANSI. */ /* type conversion operator. */ tem = declp->b + 4; if (do_type (work, &tem, &type)) { string_clear (declp); string_append (declp, "operator "); string_appends (declp, &type); string_delete (&type); } } else if (declp->b[0] == '_' && declp->b[1] == '_' && declp->b[2] >= 'a' && declp->b[2] <= 'z' && declp->b[3] >= 'a' && declp->b[3] <= 'z') { if (declp->b[4] == '\0') { /* Operator. */ for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++) { if (strlen (optable[i].in) == 2 && memcmp (optable[i].in, declp->b + 2, 2) == 0) { string_clear (declp); string_append (declp, "operator"); string_append (declp, optable[i].out); break; } } } else { if (declp->b[2] == 'a' && declp->b[5] == '\0') { /* Assignment. */ for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++) { if (strlen (optable[i].in) == 3 && memcmp (optable[i].in, declp->b + 2, 3) == 0) { string_clear (declp); string_append (declp, "operator"); string_append (declp, optable[i].out); break; } } } } } } /* a mini string-handling package */ static void string_need (s, n) string *s; int n; { int tem; if (s->b == NULL) { if (n < 32) { n = 32; } s->p = s->b = xmalloc (n); s->e = s->b + n; } else if (s->e - s->p < n) { tem = s->p - s->b; n += tem; n *= 2; s->b = xrealloc (s->b, n); s->p = s->b + tem; s->e = s->b + n; } } static void string_delete (s) string *s; { if (s->b != NULL) { free (s->b); s->b = s->e = s->p = NULL; } } static void string_init (s) string *s; { s->b = s->p = s->e = NULL; } static void string_clear (s) string *s; { s->p = s->b; } #if 0 static int string_empty (s) string *s; { return (s->b == s->p); } #endif static void string_append (p, s) string *p; CONST char *s; { int n; if (s == NULL || *s == '\0') return; n = strlen (s); string_need (p, n); memcpy (p->p, s, n); p->p += n; } static void string_appends (p, s) string *p, *s; { int n; if (s->b != s->p) { n = s->p - s->b; string_need (p, n); memcpy (p->p, s->b, n); p->p += n; } } static void string_appendn (p, s, n) string *p; CONST char *s; int n; { if (n != 0) { string_need (p, n); memcpy (p->p, s, n); p->p += n; } } static void string_prepend (p, s) string *p; CONST char *s; { if (s != NULL && *s != '\0') { string_prependn (p, s, strlen (s)); } } static void string_prepends (p, s) string *p, *s; { if (s->b != s->p) { string_prependn (p, s->b, s->p - s->b); } } static void string_prependn (p, s, n) string *p; CONST char *s; int n; { char *q; if (n != 0) { string_need (p, n); for (q = p->p - 1; q >= p->b; q--) { q[n] = q[0]; } memcpy (p->b, s, n); p->p += n; } } /* To generate a standalone demangler program for testing purposes, just compile and link this file with -DMAIN and libiberty.a. When run, it demangles each command line arg, or each stdin string, and prints the result on stdout. */ #ifdef MAIN static void demangle_it (mangled_name) char *mangled_name; { char *result; result = cplus_demangle (mangled_name, DMGL_PARAMS | DMGL_ANSI); if (result == NULL) { printf ("%s\n", mangled_name); } else { printf ("%s\n", result); free (result); } } #include "getopt.h" static char *program_name; extern char *program_version; static void usage (stream, status) FILE *stream; int status; { fprintf (stream, "\ Usage: %s [-_] [-n] [-s {gnu,lucid,arm}] [--strip-underscores]\n\ [--no-strip-underscores] [--format={gnu,lucid,arm}]\n\ [--help] [--version] [arg...]\n", program_name); exit (status); } #define MBUF_SIZE 512 char mbuffer[MBUF_SIZE]; /* Defined in the automatically-generated ../binutils/underscore.c. */ extern int prepends_underscore; int strip_underscore = 0; static struct option long_options[] = { {"strip-underscores", no_argument, 0, '_'}, {"format", required_argument, 0, 's'}, {"help", no_argument, 0, 'h'}, {"no-strip-underscores", no_argument, 0, 'n'}, {"version", no_argument, 0, 'v'}, {0, no_argument, 0, 0} }; int main (argc, argv) int argc; char **argv; { char *result; int c; program_name = argv[0]; xmalloc_set_program_name (program_name); strip_underscore = prepends_underscore; while ((c = getopt_long (argc, argv, "_ns:", long_options, (int *) 0)) != EOF) { switch (c) { case '?': usage (stderr, 1); break; case 'h': usage (stdout, 0); case 'n': strip_underscore = 0; break; case 'v': printf ("GNU %s version %s\n", program_name, program_version); exit (0); case '_': strip_underscore = 1; break; case 's': if (strcmp (optarg, "gnu") == 0) { current_demangling_style = gnu_demangling; } else if (strcmp (optarg, "lucid") == 0) { current_demangling_style = lucid_demangling; } else if (strcmp (optarg, "arm") == 0) { current_demangling_style = arm_demangling; } else { fprintf (stderr, "%s: unknown demangling style `%s'\n", program_name, optarg); exit (1); } break; } } if (optind < argc) { for ( ; optind < argc; optind++) { demangle_it (argv[optind]); } } else { for (;;) { int i = 0; c = getchar (); /* Try to read a label. */ while (c != EOF && (isalnum(c) || c == '_' || c == '$' || c == '.')) { if (i >= MBUF_SIZE-1) break; mbuffer[i++] = c; c = getchar (); } if (i > 0) { int skip_first = strip_underscore && i > 1 && mbuffer[0] == '_'; mbuffer[i] = 0; result = cplus_demangle (mbuffer+skip_first, DMGL_PARAMS | DMGL_ANSI); if (result) { fputs (result, stdout); free (result); } else fputs (mbuffer + skip_first, stdout); } if (c == EOF) break; putchar (c); } } exit (0); } #endif /* main */ gdb-4.13/libiberty/dummy.c 666 34562 1752 2624 5522313357 14032 0ustar fnfcygnus#include #ifdef __STDC__ #include #define clock_t unsigned long #define DEF(NAME, RETURN_TYPE, ARGLIST, ARGS) extern RETURN_TYPE NAME (ARGS); #define DEFFUNC(NAME, RETURN_TYPE, ARGLIST, ARGS) extern RETURN_TYPE NAME (ARGS); #else #define void int #define size_t unsigned long #define clock_t unsigned long #define DEF(NAME, RETURN_TYPE, ARGLIST, ARGS) extern RETURN_TYPE NAME (); #define DEFFUNC(NAME, RETURN_TYPE, ARGLIST, ARGS) extern RETURN_TYPE NAME (); #endif #define DEFVAR(NAME,DECL,USE) extern DECL; #define NOTHING /*nothing*/ #include "functions.def" /* Always use our: getopt.o getopt1.o obstack.o spaces.o */ int main (argc, argv) int argc; char **argv; { /* Create a dummy function call for each DEF-defined function. */ #undef DEF #undef DEFVAR #undef DEFFUNC #undef AND #define AND = 0; /* ARGS expands into a set of declaration. NAME ARG_LIST expands info a function call that uses those variables as actual parameters. If the function has been DEF'ed correctly, we can pass the right number and types of parameters, which is nice. (E.g. gcc may otherwise complain about the wrong number of parameters to certain builtins.) */ #define DEF(NAME, RETURN_TYPE, ARG_LIST, ARGS) { ARGS; NAME ARG_LIST; } #define DEFVAR(NAME, DECL, USE) { USE; } #define DEFFUNC(NAME, RETURN_TYPE, ARG_LIST, ARGS) { ARGS; NAME ARG_LIST; } #include "functions.def" return (0); } gdb-4.13/libiberty/fdmatch.c 666 34562 1752 4046 5526531742 14311 0ustar fnfcygnus/* Compare two open file descriptors to see if they refer to the same file. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME fdmatch -- see if two file descriptors refer to same file SYNOPSIS int fdmatch (int fd1, int fd2) DESCRIPTION Check to see if two open file descriptors refer to the same file. This is useful, for example, when we have an open file descriptor for an unnamed file, and the name of a file that we believe to correspond to that fd. This can happen when we are exec'd with an already open file (stdout for example) or from the SVR4 /proc calls that return open file descriptors for mapped address spaces. All we have to do is open the file by name and check the two file descriptors for a match, which is done by comparing major&minor device numbers and inode numbers. BUGS (FIXME: does this work for networks?) It works for NFS, which assigns a device number to each mount. */ #include "ansidecl.h" #include "libiberty.h" #include #include int fdmatch (fd1, fd2) int fd1; int fd2; { struct stat sbuf1; struct stat sbuf2; if ((fstat (fd1, &sbuf1) == 0) && (fstat (fd2, &sbuf2) == 0) && (sbuf1.st_dev == sbuf2.st_dev) && (sbuf1.st_ino == sbuf2.st_ino)) { return (1); } else { return (0); } } gdb-4.13/libiberty/floatformat.c 666 34562 1752 26122 5612036263 15232 0ustar fnfcygnus/* IEEE floating point support routines, for GDB, the GNU Debugger. Copyright (C) 1991, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "floatformat.h" #include /* ldexp */ #ifdef __STDC__ #include extern void *memcpy (void *s1, const void *s2, size_t n); extern void *memset (void *s, int c, size_t n); #else extern char *memcpy (); extern char *memset (); #endif /* The odds that CHAR_BIT will be anything but 8 are low enough that I'm not going to bother with trying to muck around with whether it is defined in a system header, what we do if not, etc. */ #define FLOATFORMAT_CHAR_BIT 8 /* floatformats for IEEE single and double, big and little endian. */ const struct floatformat floatformat_ieee_single_big = { floatformat_big, 32, 0, 1, 8, 127, 255, 9, 23, floatformat_intbit_no }; const struct floatformat floatformat_ieee_single_little = { floatformat_little, 32, 0, 1, 8, 127, 255, 9, 23, floatformat_intbit_no }; const struct floatformat floatformat_ieee_double_big = { floatformat_big, 64, 0, 1, 11, 1023, 2047, 12, 52, floatformat_intbit_no }; const struct floatformat floatformat_ieee_double_little = { floatformat_little, 64, 0, 1, 11, 1023, 2047, 12, 52, floatformat_intbit_no }; const struct floatformat floatformat_i387_ext = { floatformat_little, 80, 0, 1, 15, 0x3fff, 0x7fff, 16, 64, floatformat_intbit_yes }; const struct floatformat floatformat_m68881_ext = { /* Note that the bits from 16 to 31 are unused. */ floatformat_big, 96, 0, 1, 15, 0x3fff, 0x7fff, 32, 64, floatformat_intbit_yes }; const struct floatformat floatformat_i960_ext = { /* Note that the bits from 0 to 15 are unused. */ floatformat_little, 96, 16, 17, 15, 0x3fff, 0x7fff, 32, 64, floatformat_intbit_yes }; const struct floatformat floatformat_m88110_ext = { #ifdef HARRIS_FLOAT_FORMAT /* Harris uses raw format 128 bytes long, but the number is just an ieee double, and the last 64 bits are wasted. */ floatformat_big,128, 0, 1, 11, 0x3ff, 0x7ff, 12, 52, floatformat_intbit_no #else floatformat_big, 80, 0, 1, 15, 0x3fff, 0x7fff, 16, 64, floatformat_intbit_yes #endif /* HARRIS_FLOAT_FORMAT */ }; static unsigned long get_field PARAMS ((unsigned char *, enum floatformat_byteorders, unsigned int, unsigned int, unsigned int)); /* Extract a field which starts at START and is LEN bytes long. DATA and TOTAL_LEN are the thing we are extracting it from, in byteorder ORDER. */ static unsigned long get_field (data, order, total_len, start, len) unsigned char *data; enum floatformat_byteorders order; unsigned int total_len; unsigned int start; unsigned int len; { unsigned long result; unsigned int cur_byte; int cur_bitshift; /* Start at the least significant part of the field. */ cur_byte = (start + len) / FLOATFORMAT_CHAR_BIT; if (order == floatformat_little) cur_byte = (total_len / FLOATFORMAT_CHAR_BIT) - cur_byte - 1; cur_bitshift = ((start + len) % FLOATFORMAT_CHAR_BIT) - FLOATFORMAT_CHAR_BIT; result = *(data + cur_byte) >> (-cur_bitshift); cur_bitshift += FLOATFORMAT_CHAR_BIT; if (order == floatformat_little) ++cur_byte; else --cur_byte; /* Move towards the most significant part of the field. */ while (cur_bitshift < len) { if (len - cur_bitshift < FLOATFORMAT_CHAR_BIT) /* This is the last byte; zero out the bits which are not part of this field. */ result |= (*(data + cur_byte) & ((1 << (len - cur_bitshift)) - 1)) << cur_bitshift; else result |= *(data + cur_byte) << cur_bitshift; cur_bitshift += FLOATFORMAT_CHAR_BIT; if (order == floatformat_little) ++cur_byte; else --cur_byte; } return result; } /* Convert from FMT to a double. FROM is the address of the extended float. Store the double in *TO. */ void floatformat_to_double (fmt, from, to) const struct floatformat *fmt; char *from; double *to; { unsigned char *ufrom = (unsigned char *)from; double dto; long exponent; unsigned long mant; unsigned int mant_bits, mant_off; int mant_bits_left; exponent = get_field (ufrom, fmt->byteorder, fmt->totalsize, fmt->exp_start, fmt->exp_len); /* Note that if exponent indicates a NaN, we can't really do anything useful (not knowing if the host has NaN's, or how to build one). So it will end up as an infinity or something close; that is OK. */ mant_bits_left = fmt->man_len; mant_off = fmt->man_start; dto = 0.0; exponent -= fmt->exp_bias; /* Build the result algebraically. Might go infinite, underflow, etc; who cares. */ while (mant_bits_left > 0) { int exp_bits; exp_bits = mant_bits_left < 32 ? mant_bits_left : 32; if (mant_bits_left == fmt->man_len && exp_bits == 32 && fmt->intbit == floatformat_intbit_no) { /* If there is no integer bit, we need to get only 31 bits so we have room for an integer bit that we create. */ mant_bits = 31; } else mant_bits = exp_bits; mant = get_field (ufrom, fmt->byteorder, fmt->totalsize, mant_off, mant_bits); if (mant_bits_left == fmt->man_len) mant |= 0x80000000; dto += ldexp ((double)mant, exponent - (exp_bits - 1)); exponent -= exp_bits; mant_off += mant_bits; mant_bits_left -= mant_bits; } /* Negate it if negative. */ if (get_field (ufrom, fmt->byteorder, fmt->totalsize, fmt->sign_start, 1)) dto = -dto; memcpy (to, &dto, sizeof (dto)); } static void put_field PARAMS ((unsigned char *, enum floatformat_byteorders, unsigned int, unsigned int, unsigned int, unsigned long)); /* Set a field which starts at START and is LEN bytes long. DATA and TOTAL_LEN are the thing we are extracting it from, in byteorder ORDER. */ static void put_field (data, order, total_len, start, len, stuff_to_put) unsigned char *data; enum floatformat_byteorders order; unsigned int total_len; unsigned int start; unsigned int len; unsigned long stuff_to_put; { unsigned int cur_byte; int cur_bitshift; /* Start at the least significant part of the field. */ cur_byte = (start + len) / FLOATFORMAT_CHAR_BIT; if (order == floatformat_little) cur_byte = (total_len / FLOATFORMAT_CHAR_BIT) - cur_byte - 1; cur_bitshift = ((start + len) % FLOATFORMAT_CHAR_BIT) - FLOATFORMAT_CHAR_BIT; *(data + cur_byte) &= ~(((1 << ((start + len) % FLOATFORMAT_CHAR_BIT)) - 1) << (-cur_bitshift)); *(data + cur_byte) |= (stuff_to_put & ((1 << FLOATFORMAT_CHAR_BIT) - 1)) << (-cur_bitshift); cur_bitshift += FLOATFORMAT_CHAR_BIT; if (order == floatformat_little) ++cur_byte; else --cur_byte; /* Move towards the most significant part of the field. */ while (cur_bitshift < len) { if (len - cur_bitshift < FLOATFORMAT_CHAR_BIT) { /* This is the last byte. */ *(data + cur_byte) &= ~((1 << (len - cur_bitshift)) - 1); *(data + cur_byte) |= (stuff_to_put >> cur_bitshift); } else *(data + cur_byte) = ((stuff_to_put >> cur_bitshift) & ((1 << FLOATFORMAT_CHAR_BIT) - 1)); cur_bitshift += FLOATFORMAT_CHAR_BIT; if (order == floatformat_little) ++cur_byte; else --cur_byte; } } /* The converse: convert the double *FROM to an extended float and store where TO points. Neither FROM nor TO have any alignment restrictions. */ void floatformat_from_double (fmt, from, to) CONST struct floatformat *fmt; double *from; char *to; { double dfrom; int exponent; double mant; unsigned int mant_bits, mant_off; int mant_bits_left; unsigned char *uto = (unsigned char *)to; memcpy (&dfrom, from, sizeof (dfrom)); memset (uto, 0, fmt->totalsize / FLOATFORMAT_CHAR_BIT); if (dfrom == 0) return; /* Result is zero */ if (dfrom != dfrom) { /* From is NaN */ put_field (uto, fmt->byteorder, fmt->totalsize, fmt->exp_start, fmt->exp_len, fmt->exp_nan); /* Be sure it's not infinity, but NaN value is irrel */ put_field (uto, fmt->byteorder, fmt->totalsize, fmt->man_start, 32, 1); return; } /* If negative, set the sign bit. */ if (dfrom < 0) { put_field (uto, fmt->byteorder, fmt->totalsize, fmt->sign_start, 1, 1); dfrom = -dfrom; } /* How to tell an infinity from an ordinary number? FIXME-someday */ mant = frexp (dfrom, &exponent); put_field (uto, fmt->byteorder, fmt->totalsize, fmt->exp_start, fmt->exp_len, exponent + fmt->exp_bias - 1); mant_bits_left = fmt->man_len; mant_off = fmt->man_start; while (mant_bits_left > 0) { unsigned long mant_long; mant_bits = mant_bits_left < 32 ? mant_bits_left : 32; mant *= 4294967296.0; mant_long = (unsigned long)mant; mant -= mant_long; /* If the integer bit is implicit, then we need to discard it. If we are discarding a zero, we should be (but are not) creating a denormalized number which means adjusting the exponent (I think). */ if (mant_bits_left == fmt->man_len && fmt->intbit == floatformat_intbit_no) { mant_long &= 0x7fffffff; mant_bits -= 1; } else if (mant_bits < 32) { /* The bits we want are in the most significant MANT_BITS bits of mant_long. Move them to the least significant. */ mant_long >>= 32 - mant_bits; } put_field (uto, fmt->byteorder, fmt->totalsize, mant_off, mant_bits, mant_long); mant_off += mant_bits; mant_bits_left -= mant_bits; } } #ifdef IEEE_DEBUG /* This is to be run on a host which uses IEEE floating point. */ void ieee_test (n) double n; { double result; char exten[16]; floatformat_to_double (&floatformat_ieee_double_big, &n, &result); if (n != result) printf ("Differ(to): %.20g -> %.20g\n", n, result); floatformat_from_double (&floatformat_ieee_double_big, &n, &result); if (n != result) printf ("Differ(from): %.20g -> %.20g\n", n, result); floatformat_from_double (&floatformat_m68881_ext, &n, exten); floatformat_to_double (&floatformat_m68881_ext, exten, &result); if (n != result) printf ("Differ(to+from): %.20g -> %.20g\n", n, result); #if IEEE_DEBUG > 1 /* This is to be run on a host which uses 68881 format. */ { long double ex = *(long double *)exten; if (ex != n) printf ("Differ(from vs. extended): %.20g\n", n); } #endif } int main () { ieee_test (0.5); ieee_test (256.0); ieee_test (0.12345); ieee_test (234235.78907234); ieee_test (-512.0); ieee_test (-0.004321); return 0; } #endif gdb-4.13/libiberty/functions.def 666 34562 1752 5520 5565020423 15215 0ustar fnfcygnus/* * List of function definitions that may *optionally* be included * in libiberty.a. The function names must match the filenames, * e.g. bzero() is defined in bzero.c. (While each file can contain * extra functions, do not list them.) * * In the default libiberty configuration, these object files * (e.g bzero.o) are included if and only if cc fails to find * the corresponding function in libc. */ DEF(bcmp, int, (s1, s2, length), char *s1 AND char *s2 AND int length ) DEF(bcopy, void, (s1, s2, length), char *s1 AND char *s2 AND int length ) DEF(bzero, void, (s, length), char *s AND int length) DEF(clock, clock_t, (), NOTHING) DEF(getopt, int, (argc, argv, optstring), int argc AND char **argv AND CONST char *optstring) DEF(getpagesize, int , (), NOTHING) DEF(getcwd, char*, (buf, len), char *buf AND int len) DEF(index, char*, (s, c), char *s AND int c) DEF(insque, void, (), NOTHING) DEF(memchr, PTR, (s, c, length), CONST PTR s AND int c AND size_t length) DEF(memcmp, int, (s1, s2, length), CONST PTR s1 AND CONST PTR s2 AND size_t length) DEF(memcpy, PTR, (s1, s2, length), PTR s1 AND CONST PTR s2 AND size_t length) DEF(memmove, PTR, (s1, s2, length), PTR s1 AND CONST PTR s2 AND size_t length) DEF(memset, PTR, (s, val, length), PTR s AND int val AND size_t length ) DEF(random, long int, (), NOTHING) DEF(rename, int, (f, t), char *f AND char *t) DEF(rindex, char*, (s, c), char *s AND int c) DEF(strcasecmp, int, (s1, s2), char *s1 AND char *s2) DEF(strncasecmp, int, (s1, s2, n), char *s1 AND char *s2 AND int n) DEF(strchr, char*, (s, c), CONST char *s AND int c) DEF(strdup, char*, (s1), char * s1) DEF(strrchr, char*, (s, c), CONST char *s AND int c) DEF(strstr, char*, (), NOTHING) DEF(strtod, double, (), NOTHING) DEF(strtol, long, (), NOTHING) DEF(strtoul, unsigned long, (), NOTHING) DEF(tmpnam, char *, (s), char * s) DEF(vfork, int, (), NOTHING) DEF(vasprintf, int, (), NOTHING) DEF(vfprintf, int, (), NOTHING) DEF(vprintf, int, (), NOTHING) DEF(vsprintf, int, (), NOTHING) DEF(sigsetmask, int, (), NOTHING) DEF(alloca, PTR, (size), size_t size) DEF(waitpid, int, (pid, statp, opts), int pid AND int* statp AND int opts ) /* List of global variables that we want to look for in the host environment, and to generate an entry NEED_ in config.h if they are not found. The first arg is the variable name, the second arg is how to declare the variable, and the third is how to use it. */ DEFVAR(sys_nerr, int sys_nerr, sys_nerr = 0) DEFVAR(sys_errlist, char *sys_errlist[], sys_errlist[0] = 0) DEFVAR(sys_siglist, char *sys_siglist[], sys_siglist[0] = 0) /* List of global functions that we want to look for in the host environment, and to generate an entry NEED_ in config.h if they are not found. */ DEFFUNC(strerror, char*, (), NOTHING) DEFFUNC(psignal, void, (signo, message), unsigned signo AND char *message) gdb-4.13/libiberty/getcwd.c 666 34562 1752 3251 5262376366 14163 0ustar fnfcygnus/* Emulate getcwd using getwd. Copyright 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME getcwd -- get absolute pathname for current working directory SYNOPSIS char *getcwd (char pathname[len], len) DESCRIPTION Copy the absolute pathname for the current working directory into the supplied buffer and return a pointer to the buffer. If the current directory's path doesn't fit in LEN characters, the result is NULL and errno is set. BUGS Emulated via the getwd() call, which is reasonable for most systems that do not have getcwd(). */ #include #include extern char *getwd (); extern int errno; #ifndef MAXPATHLEN #define MAXPATHLEN 1024 #endif char * getcwd (buf, len) char *buf; int len; { char ourbuf[MAXPATHLEN]; char *result; result = getwd (ourbuf); if (result) { if (strlen (ourbuf) >= len) { errno = ERANGE; return 0; } strcpy (buf, ourbuf); } return buf; } gdb-4.13/libiberty/getopt.c 666 34562 1752 52451 5556103760 14226 0ustar fnfcygnus/* Getopt for GNU. NOTE: getopt is now part of the C library, so if you don't know what "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu before changing it! Copyright (C) 1987, 88, 89, 90, 91, 92, 93, 94 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2, 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this program; if not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This tells Alpha OSF/1 not to define a getopt prototype in . Ditto for AIX 3.2 and . */ #ifndef _NO_PROTO #define _NO_PROTO #endif #ifdef HAVE_CONFIG_H #if defined (emacs) || defined (CONFIG_BROKETS) /* We use instead of "config.h" so that a compilation using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h (which it would do because it found this file in $srcdir). */ #include #else #include "config.h" #endif #endif #ifndef __STDC__ /* This is a separate conditional since some stdc systems reject `defined (const)'. */ #ifndef const #define const #endif #endif #include /* Comment out all this code if we are using the GNU C Library, and are not actually compiling the library itself. This code is part of the GNU C Library, but also included in many other GNU distributions. Compiling and linking in this code is a waste when using the GNU C library (especially if it is a shared library). Rather than having every GNU program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ #if defined (_LIBC) || !defined (__GNU_LIBRARY__) /* This needs to come after some library #include to get __GNU_LIBRARY__ defined. */ #ifdef __GNU_LIBRARY__ /* Don't include stdlib.h for non-GNU C libraries because some of them contain conflicting prototypes for getopt. */ #include #endif /* GNU C library. */ /* This version of `getopt' appears to the caller like standard Unix `getopt' but it behaves differently for the user, since it allows the user to intersperse the options with the other arguments. As `getopt' works, it permutes the elements of ARGV so that, when it is done, all the options precede everything else. Thus all application programs are extended to handle flexible argument order. Setting the environment variable POSIXLY_CORRECT disables permutation. Then the behavior is completely standard. GNU application programs can use a third alternative mode in which they can distinguish the relative order of options and other arguments. */ #include "getopt.h" /* For communication from `getopt' to the caller. When `getopt' finds an option that takes an argument, the argument value is returned here. Also, when `ordering' is RETURN_IN_ORDER, each non-option ARGV-element is returned here. */ char *optarg = NULL; /* Index in ARGV of the next element to be scanned. This is used for communication to and from the caller and for communication between successive calls to `getopt'. On entry to `getopt', zero means this is the first call; initialize. When `getopt' returns EOF, this is the index of the first of the non-option elements that the caller should itself scan. Otherwise, `optind' communicates from one call to the next how much of ARGV has been scanned so far. */ /* XXX 1003.2 says this must be 1 before any call. */ int optind = 0; /* The next char to be scanned in the option-element in which the last option character we returned was found. This allows us to pick up the scan where we left off. If this is zero, or a null string, it means resume the scan by advancing to the next ARGV-element. */ static char *nextchar; /* Callers store zero here to inhibit the error message for unrecognized options. */ int opterr = 1; /* Set to an option character which was unrecognized. This must be initialized on some systems to avoid linking in the system's own getopt implementation. */ int optopt = '?'; /* Describe how to deal with options that follow non-option ARGV-elements. If the caller did not specify anything, the default is REQUIRE_ORDER if the environment variable POSIXLY_CORRECT is defined, PERMUTE otherwise. REQUIRE_ORDER means don't recognize them as options; stop option processing when the first non-option is seen. This is what Unix does. This mode of operation is selected by either setting the environment variable POSIXLY_CORRECT, or using `+' as the first character of the list of option characters. PERMUTE is the default. We permute the contents of ARGV as we scan, so that eventually all the non-options are at the end. This allows options to be given in any order, even with programs that were not written to expect this. RETURN_IN_ORDER is an option available to programs that were written to expect options and other ARGV-elements in any order and that care about the ordering of the two. We describe each non-option ARGV-element as if it were the argument of an option with character code 1. Using `-' as the first character of the list of option characters selects this mode of operation. The special argument `--' forces an end of option-scanning regardless of the value of `ordering'. In the case of RETURN_IN_ORDER, only `--' can cause `getopt' to return EOF with `optind' != ARGC. */ static enum { REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER } ordering; #ifdef __GNU_LIBRARY__ /* We want to avoid inclusion of string.h with non-GNU libraries because there are many ways it can cause trouble. On some systems, it contains special magic macros that don't work in GCC. */ #include #define my_index strchr #else /* Avoid depending on library functions or files whose names are inconsistent. */ char *getenv (); static char * my_index (str, chr) const char *str; int chr; { while (*str) { if (*str == chr) return (char *) str; str++; } return 0; } /* If using GCC, we can safely declare strlen this way. If not using GCC, it is ok not to declare it. */ #ifdef __GNUC__ /* Note that Motorola Delta 68k R3V7 comes with GCC but not stddef.h. That was relevant to code that was here before. */ #ifndef __STDC__ /* gcc with -traditional declares the built-in strlen to return int, and has done so at least since version 2.4.5. -- rms. */ extern int strlen (const char *); #endif /* not __STDC__ */ #endif /* __GNUC__ */ #endif /* not __GNU_LIBRARY__ */ /* Handle permutation of arguments. */ /* Describe the part of ARGV that contains non-options that have been skipped. `first_nonopt' is the index in ARGV of the first of them; `last_nonopt' is the index after the last of them. */ static int first_nonopt; static int last_nonopt; /* Exchange two adjacent subsequences of ARGV. One subsequence is elements [first_nonopt,last_nonopt) which contains all the non-options that have been skipped so far. The other is elements [last_nonopt,optind), which contains all the options processed since those non-options were skipped. `first_nonopt' and `last_nonopt' are relocated so that they describe the new indices of the non-options in ARGV after they are moved. */ static void exchange (argv) char **argv; { int bottom = first_nonopt; int middle = last_nonopt; int top = optind; char *tem; /* Exchange the shorter segment with the far end of the longer segment. That puts the shorter segment into the right place. It leaves the longer segment in the right place overall, but it consists of two parts that need to be swapped next. */ while (top > middle && middle > bottom) { if (top - middle > middle - bottom) { /* Bottom segment is the short one. */ int len = middle - bottom; register int i; /* Swap it with the top part of the top segment. */ for (i = 0; i < len; i++) { tem = argv[bottom + i]; argv[bottom + i] = argv[top - (middle - bottom) + i]; argv[top - (middle - bottom) + i] = tem; } /* Exclude the moved bottom segment from further swapping. */ top -= len; } else { /* Top segment is the short one. */ int len = top - middle; register int i; /* Swap it with the bottom part of the bottom segment. */ for (i = 0; i < len; i++) { tem = argv[bottom + i]; argv[bottom + i] = argv[middle + i]; argv[middle + i] = tem; } /* Exclude the moved top segment from further swapping. */ bottom += len; } } /* Update records for the slots the non-options now occupy. */ first_nonopt += (optind - last_nonopt); last_nonopt = optind; } /* Initialize the internal data when the first call is made. */ static const char * _getopt_initialize (optstring) const char *optstring; { /* Start processing options with ARGV-element 1 (since ARGV-element 0 is the program name); the sequence of previously skipped non-option ARGV-elements is empty. */ first_nonopt = last_nonopt = optind = 1; nextchar = NULL; /* Determine how to handle the ordering of options and nonoptions. */ if (optstring[0] == '-') { ordering = RETURN_IN_ORDER; ++optstring; } else if (optstring[0] == '+') { ordering = REQUIRE_ORDER; ++optstring; } else if (getenv ("POSIXLY_CORRECT") != NULL) ordering = REQUIRE_ORDER; else ordering = PERMUTE; return optstring; } /* Scan elements of ARGV (whose length is ARGC) for option characters given in OPTSTRING. If an element of ARGV starts with '-', and is not exactly "-" or "--", then it is an option element. The characters of this element (aside from the initial '-') are option characters. If `getopt' is called repeatedly, it returns successively each of the option characters from each of the option elements. If `getopt' finds another option character, it returns that character, updating `optind' and `nextchar' so that the next call to `getopt' can resume the scan with the following option character or ARGV-element. If there are no more option characters, `getopt' returns `EOF'. Then `optind' is the index in ARGV of the first ARGV-element that is not an option. (The ARGV-elements have been permuted so that those that are not options now come last.) OPTSTRING is a string containing the legitimate option characters. If an option character is seen that is not listed in OPTSTRING, return '?' after printing an error message. If you set `opterr' to zero, the error message is suppressed but we still return '?'. If a char in OPTSTRING is followed by a colon, that means it wants an arg, so the following text in the same ARGV-element, or the text of the following ARGV-element, is returned in `optarg'. Two colons mean an option that wants an optional arg; if there is text in the current ARGV-element, it is returned in `optarg', otherwise `optarg' is set to zero. If OPTSTRING starts with `-' or `+', it requests different methods of handling the non-option ARGV-elements. See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above. Long-named options begin with `--' instead of `-'. Their names may be abbreviated as long as the abbreviation is unique or is an exact match for some defined option. If they have an argument, it follows the option name in the same ARGV-element, separated from the option name by a `=', or else the in next ARGV-element. When `getopt' finds a long-named option, it returns 0 if that option's `flag' field is nonzero, the value of the option's `val' field if the `flag' field is zero. The elements of ARGV aren't really const, because we permute them. But we pretend they're const in the prototype to be compatible with other systems. LONGOPTS is a vector of `struct option' terminated by an element containing a name which is zero. LONGIND returns the index in LONGOPT of the long-named option found. It is only valid when a long-named option has been found by the most recent call. If LONG_ONLY is nonzero, '-' as well as '--' can introduce long-named options. */ int _getopt_internal (argc, argv, optstring, longopts, longind, long_only) int argc; char *const *argv; const char *optstring; const struct option *longopts; int *longind; int long_only; { optarg = NULL; if (optind == 0) optstring = _getopt_initialize (optstring); if (nextchar == NULL || *nextchar == '\0') { /* Advance to the next ARGV-element. */ if (ordering == PERMUTE) { /* If we have just processed some options following some non-options, exchange them so that the options come first. */ if (first_nonopt != last_nonopt && last_nonopt != optind) exchange ((char **) argv); else if (last_nonopt != optind) first_nonopt = optind; /* Skip any additional non-options and extend the range of non-options previously skipped. */ while (optind < argc && (argv[optind][0] != '-' || argv[optind][1] == '\0')) optind++; last_nonopt = optind; } /* The special ARGV-element `--' means premature end of options. Skip it like a null option, then exchange with previous non-options as if it were an option, then skip everything else like a non-option. */ if (optind != argc && !strcmp (argv[optind], "--")) { optind++; if (first_nonopt != last_nonopt && last_nonopt != optind) exchange ((char **) argv); else if (first_nonopt == last_nonopt) first_nonopt = optind; last_nonopt = argc; optind = argc; } /* If we have done all the ARGV-elements, stop the scan and back over any non-options that we skipped and permuted. */ if (optind == argc) { /* Set the next-arg-index to point at the non-options that we previously skipped, so the caller will digest them. */ if (first_nonopt != last_nonopt) optind = first_nonopt; return EOF; } /* If we have come to a non-option and did not permute it, either stop the scan or describe it to the caller and pass it by. */ if ((argv[optind][0] != '-' || argv[optind][1] == '\0')) { if (ordering == REQUIRE_ORDER) return EOF; optarg = argv[optind++]; return 1; } /* We have found another option-ARGV-element. Skip the initial punctuation. */ nextchar = (argv[optind] + 1 + (longopts != NULL && argv[optind][1] == '-')); } /* Decode the current option-ARGV-element. */ /* Check whether the ARGV-element is a long option. If long_only and the ARGV-element has the form "-f", where f is a valid short option, don't consider it an abbreviated form of a long option that starts with f. Otherwise there would be no way to give the -f short option. On the other hand, if there's a long option "fubar" and the ARGV-element is "-fu", do consider that an abbreviation of the long option, just like "--fu", and not "-f" with arg "u". This distinction seems to be the most useful approach. */ if (longopts != NULL && (argv[optind][1] == '-' || (long_only && (argv[optind][2] || !my_index (optstring, argv[optind][1]))))) { char *nameend; const struct option *p; const struct option *pfound = NULL; int exact = 0; int ambig = 0; int indfound; int option_index; for (nameend = nextchar; *nameend && *nameend != '='; nameend++) /* Do nothing. */ ; /* Test all long options for either exact match or abbreviated matches. */ for (p = longopts, option_index = 0; p->name; p++, option_index++) if (!strncmp (p->name, nextchar, nameend - nextchar)) { if (nameend - nextchar == strlen (p->name)) { /* Exact match found. */ pfound = p; indfound = option_index; exact = 1; break; } else if (pfound == NULL) { /* First nonexact match found. */ pfound = p; indfound = option_index; } else /* Second or later nonexact match found. */ ambig = 1; } if (ambig && !exact) { if (opterr) fprintf (stderr, "%s: option `%s' is ambiguous\n", argv[0], argv[optind]); nextchar += strlen (nextchar); optind++; return '?'; } if (pfound != NULL) { option_index = indfound; optind++; if (*nameend) { /* Don't test has_arg with >, because some C compilers don't allow it to be used on enums. */ if (pfound->has_arg) optarg = nameend + 1; else { if (opterr) { if (argv[optind - 1][1] == '-') /* --option */ fprintf (stderr, "%s: option `--%s' doesn't allow an argument\n", argv[0], pfound->name); else /* +option or -option */ fprintf (stderr, "%s: option `%c%s' doesn't allow an argument\n", argv[0], argv[optind - 1][0], pfound->name); } nextchar += strlen (nextchar); return '?'; } } else if (pfound->has_arg == 1) { if (optind < argc) optarg = argv[optind++]; else { if (opterr) fprintf (stderr, "%s: option `%s' requires an argument\n", argv[0], argv[optind - 1]); nextchar += strlen (nextchar); return optstring[0] == ':' ? ':' : '?'; } } nextchar += strlen (nextchar); if (longind != NULL) *longind = option_index; if (pfound->flag) { *(pfound->flag) = pfound->val; return 0; } return pfound->val; } /* Can't find it as a long option. If this is not getopt_long_only, or the option starts with '--' or is not a valid short option, then it's an error. Otherwise interpret it as a short option. */ if (!long_only || argv[optind][1] == '-' || my_index (optstring, *nextchar) == NULL) { if (opterr) { if (argv[optind][1] == '-') /* --option */ fprintf (stderr, "%s: unrecognized option `--%s'\n", argv[0], nextchar); else /* +option or -option */ fprintf (stderr, "%s: unrecognized option `%c%s'\n", argv[0], argv[optind][0], nextchar); } nextchar = (char *) ""; optind++; return '?'; } } /* Look at and handle the next short option-character. */ { char c = *nextchar++; char *temp = my_index (optstring, c); /* Increment `optind' when we start to process its last character. */ if (*nextchar == '\0') ++optind; if (temp == NULL || c == ':') { if (opterr) { /* 1003.2 specifies the format of this message. */ fprintf (stderr, "%s: illegal option -- %c\n", argv[0], c); } optopt = c; return '?'; } if (temp[1] == ':') { if (temp[2] == ':') { /* This is an option that accepts an argument optionally. */ if (*nextchar != '\0') { optarg = nextchar; optind++; } else optarg = NULL; nextchar = NULL; } else { /* This is an option that requires an argument. */ if (*nextchar != '\0') { optarg = nextchar; /* If we end this ARGV-element by taking the rest as an arg, we must advance to the next element now. */ optind++; } else if (optind == argc) { if (opterr) { /* 1003.2 specifies the format of this message. */ fprintf (stderr, "%s: option requires an argument -- %c\n", argv[0], c); } optopt = c; if (optstring[0] == ':') c = ':'; else c = '?'; } else /* We already incremented `optind' once; increment it again when taking next ARGV-elt as argument. */ optarg = argv[optind++]; nextchar = NULL; } } return c; } } int getopt (argc, argv, optstring) int argc; char *const *argv; const char *optstring; { return _getopt_internal (argc, argv, optstring, (const struct option *) 0, (int *) 0, 0); } #endif /* _LIBC or not __GNU_LIBRARY__. */ #ifdef TEST /* Compile with -DTEST to make an executable for use in testing the above definition of `getopt'. */ int main (argc, argv) int argc; char **argv; { int c; int digit_optind = 0; while (1) { int this_option_optind = optind ? optind : 1; c = getopt (argc, argv, "abc:d:0123456789"); if (c == EOF) break; switch (c) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (digit_optind != 0 && digit_optind != this_option_optind) printf ("digits occur in two different argv-elements.\n"); digit_optind = this_option_optind; printf ("option %c\n", c); break; case 'a': printf ("option a\n"); break; case 'b': printf ("option b\n"); break; case 'c': printf ("option c with value `%s'\n", optarg); break; case '?': break; default: printf ("?? getopt returned character code 0%o ??\n", c); } } if (optind < argc) { printf ("non-option ARGV-elements: "); while (optind < argc) printf ("%s ", argv[optind++]); printf ("\n"); } exit (0); } #endif /* TEST */ gdb-4.13/libiberty/getopt1.c 666 34562 1752 10670 5533203565 14303 0ustar fnfcygnus/* getopt_long and getopt_long_only entry points for GNU getopt. Copyright (C) 1987, 88, 89, 90, 91, 92, 1993 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2, 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this program; if not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef HAVE_CONFIG_H #if defined (emacs) || defined (CONFIG_BROKETS) /* We use instead of "config.h" so that a compilation using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h (which it would do because it found this file in $srcdir). */ #include #else #include "config.h" #endif #endif #include "getopt.h" #ifndef __STDC__ /* This is a separate conditional since some stdc systems reject `defined (const)'. */ #ifndef const #define const #endif #endif #include /* Comment out all this code if we are using the GNU C Library, and are not actually compiling the library itself. This code is part of the GNU C Library, but also included in many other GNU distributions. Compiling and linking in this code is a waste when using the GNU C library (especially if it is a shared library). Rather than having every GNU program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ #if defined (_LIBC) || !defined (__GNU_LIBRARY__) /* This needs to come after some library #include to get __GNU_LIBRARY__ defined. */ #ifdef __GNU_LIBRARY__ #include #else char *getenv (); #endif #ifndef NULL #define NULL 0 #endif int getopt_long (argc, argv, options, long_options, opt_index) int argc; char *const *argv; const char *options; const struct option *long_options; int *opt_index; { return _getopt_internal (argc, argv, options, long_options, opt_index, 0); } /* Like getopt_long, but '-' as well as '--' can indicate a long option. If an option that starts with '-' (not '--') doesn't match a long option, but does match a short option, it is parsed as a short option instead. */ int getopt_long_only (argc, argv, options, long_options, opt_index) int argc; char *const *argv; const char *options; const struct option *long_options; int *opt_index; { return _getopt_internal (argc, argv, options, long_options, opt_index, 1); } #endif /* _LIBC or not __GNU_LIBRARY__. */ #ifdef TEST #include int main (argc, argv) int argc; char **argv; { int c; int digit_optind = 0; while (1) { int this_option_optind = optind ? optind : 1; int option_index = 0; static struct option long_options[] = { {"add", 1, 0, 0}, {"append", 0, 0, 0}, {"delete", 1, 0, 0}, {"verbose", 0, 0, 0}, {"create", 0, 0, 0}, {"file", 1, 0, 0}, {0, 0, 0, 0} }; c = getopt_long (argc, argv, "abc:d:0123456789", long_options, &option_index); if (c == EOF) break; switch (c) { case 0: printf ("option %s", long_options[option_index].name); if (optarg) printf (" with arg %s", optarg); printf ("\n"); break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (digit_optind != 0 && digit_optind != this_option_optind) printf ("digits occur in two different argv-elements.\n"); digit_optind = this_option_optind; printf ("option %c\n", c); break; case 'a': printf ("option a\n"); break; case 'b': printf ("option b\n"); break; case 'c': printf ("option c with value `%s'\n", optarg); break; case 'd': printf ("option d with value `%s'\n", optarg); break; case '?': break; default: printf ("?? getopt returned character code 0%o ??\n", c); } } if (optind < argc) { printf ("non-option ARGV-elements: "); while (optind < argc) printf ("%s ", argv[optind++]); printf ("\n"); } exit (0); } #endif /* TEST */ gdb-4.13/libiberty/getpagesize.c 666 34562 1752 4161 5302601504 15172 0ustar fnfcygnus/* Emulation of getpagesize() for systems that need it. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME getpagesize -- return the number of bytes in page of memory SYNOPSIS int getpagesize (void) DESCRIPTION Returns the number of bytes in a page of memory. This is the granularity of many of the system memory management routines. No guarantee is made as to whether or not it is the same as the basic memory management hardware page size. BUGS Is intended as a reasonable replacement for systems where this is not provided as a system call. The value of 4096 may or may not be correct for the systems where it is returned as the default value. */ #include #include #ifdef HAVE_SYSCONF #include #define GNU_OUR_PAGESIZE sysconf(_SC_PAGESIZE) #else #ifdef PAGESIZE #define GNU_OUR_PAGESIZE PAGESIZE #else /* no PAGESIZE */ #ifdef EXEC_PAGESIZE #define GNU_OUR_PAGESIZE EXEC_PAGESIZE #else /* no EXEC_PAGESIZE */ #ifdef NBPG #define GNU_OUR_PAGESIZE (NBPG * CLSIZE) #ifndef CLSIZE #define CLSIZE 1 #endif /* CLSIZE */ #else /* no NBPG */ #ifdef NBPC #define GNU_OUR_PAGESIZE NBPC #else /* no NBPC */ #define GNU_OUR_PAGESIZE 4096 /* Just punt and use reasonable value */ #endif /* NBPC */ #endif /* NBPG */ #endif /* EXEC_PAGESIZE */ #endif /* PAGESIZE */ #endif /* HAVE_SYSCONF */ int getpagesize () { return (GNU_OUR_PAGESIZE); } gdb-4.13/libiberty/getruntime.c 666 34562 1752 4276 5526531745 15076 0ustar fnfcygnus/* Return time used so far, in microseconds. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "ansidecl.h" #include "libiberty.h" /* There are several ways to get elapsed execution time; unfortunately no single way is available for all host systems, nor are there reliable ways to find out which way is correct for a given host. */ #include /* These should go away when libiberty uses autoconf. */ #if defined(__sun__) && !defined(__svr4__) #define HAVE_GETRUSAGE #endif #ifdef HAVE_SYSCONF #define HAVE_TIMES #endif #ifdef HAVE_GETRUSAGE #include #include #endif #ifdef HAVE_TIMES #include #include #endif /* This is a fallback; if wrong, it will likely make obviously wrong results. */ #ifndef CLOCKS_PER_SEC #define CLOCKS_PER_SEC 1 #endif long get_run_time () { #ifdef HAVE_GETRUSAGE struct rusage rusage; getrusage (0, &rusage); return (rusage.ru_utime.tv_sec * 1000000 + rusage.ru_utime.tv_usec + rusage.ru_stime.tv_sec * 1000000 + rusage.ru_stime.tv_usec); #else /* ! HAVE_GETRUSAGE */ #ifdef HAVE_TIMES struct tms tms; times (&tms); return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ); #else /* ! HAVE_TIMES */ /* Fall back on clock and hope it's correctly implemented. */ #if CLOCKS_PER_SEC <= 1000000 return clock () * (1000000 / CLOCKS_PER_SEC); #else return clock () / CLOCKS_PER_SEC; #endif #endif /* HAVE_TIMES */ #endif /* HAVE_GETRUSAGE */ } gdb-4.13/libiberty/index.c 666 34562 1752 217 5123601404 13750 0ustar fnfcygnus/* Stub implementation of (obsolete) index(). */ extern char * strchr(); char * index (s, c) char *s; int c; { return strchr (s, c); } gdb-4.13/libiberty/insque.c 666 34562 1752 3247 5262376400 14204 0ustar fnfcygnus/* insque(3C) routines Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME insque, remque -- insert, remove an element from a queue SYNOPSIS struct qelem { struct qelem *q_forw; struct qelem *q_back; char q_data[]; }; void insque (struct qelem *elem, struct qelem *pred) void remque (struct qelem *elem) DESCRIPTION Routines to manipulate queues built from doubly linked lists. The insque routine inserts ELEM in the queue immediately after PRED. The remque routine removes ELEM from its containing queue. BUGS */ struct qelem { struct qelem *q_forw; struct qelem *q_back; }; void insque (elem, pred) struct qelem *elem; struct qelem *pred; { elem -> q_forw = pred -> q_forw; pred -> q_forw -> q_back = elem; elem -> q_back = pred; pred -> q_forw = elem; } void remque (elem) struct qelem *elem; { elem -> q_forw -> q_back = elem -> q_back; elem -> q_back -> q_forw = elem -> q_forw; } gdb-4.13/libiberty/makefile.dos 666 34562 1752 546 5571423224 14777 0ustar fnfcygnusCFLAGS=-O2 OBJS = \ argv.o \ basename.o \ concat.o \ cplus-dem.o \ fdmatch.o \ floatformat.o \ getopt.o \ getopt1.o \ getruntime.o \ msdos.o \ obstack.o \ spaces.o \ strerror.o \ strsignal.o \ xatexit.o \ xexit.o \ xmalloc.o \ $E .c.o: gcc -I../include $(CFLAGS) -c $< libiberty.a : $(OBJS) -rm libiberty.a ar rvs libiberty.a $(OBJS) gdb-4.13/libiberty/memchr.c 666 34562 1752 2241 5313466262 14147 0ustar fnfcygnus/* FUNCTION <>---find character in memory INDEX memchr ANSI_SYNOPSIS #include void *memchr(const void *<[src]>, int <[c]>, size_t <[length]>); TRAD_SYNOPSIS #include void *memchr(<[src]>, <[c]>, <[length]>) void *<[src]>; void *<[c]>; size_t <[length]>; DESCRIPTION This function searches memory starting at <<*<[src]>>> for the character <[c]>. The search only ends with the first occurrence of <[c]>, or after <[length]> characters; in particular, <> does not terminate the search. RETURNS If the character <[c]> is found within <[length]> characters of <<*<[src]>>>, a pointer to the character is returned. If <[c]> is not found, then <> is returned. PORTABILITY <> requires no supporting OS subroutines. QUICKREF memchr ansi pure */ #include #ifdef __STDC__ #include #else #define size_t unsigned long #endif PTR memchr (src_void, c, length) register CONST PTR src_void; int c; size_t length; { CONST unsigned char *src = (CONST unsigned char *)src_void; while (--length >= 0) { if (*src == c) return (PTR)src; src++; } return NULL; } gdb-4.13/libiberty/memcmp.c 666 34562 1752 3014 5262376402 14150 0ustar fnfcygnus/* memcmp -- compare two memory regions. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME memcmp -- compare two memory regions SYNOPSIS int memcmp (const void *from, const void *to, size_t count) DESCRIPTION Compare two memory regions and return less than, equal to, or greater than zero, according to lexicographical ordering of the compared regions. */ #include #ifdef __STDC__ #include #else #define size_t unsigned long #endif int DEFUN(memcmp, (str1, str2, count), PTRCONST str1 AND PTRCONST str2 AND size_t count) { register unsigned char *s1 = (unsigned char*)str1; register unsigned char *s2 = (unsigned char*)str2; while (count-- > 0) { if (*s1++ != *s2++) return s1[-1] < s2[-1] ? -1 : 1; } return 0; } gdb-4.13/libiberty/memcpy.c 666 34562 1752 2400 5262376403 14163 0ustar fnfcygnus/* memcpy Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME memcpy -- copy memory regions of arbitary length SYNOPSIS void* memcpy (void *out, const void *in, size_t n); DESCRIPTION Copy LENGTH bytes from memory region pointed to by IN to memory region pointed to by OUT. */ #include #ifdef __STDC__ #include #else #define size_t unsigned long #endif PTR DEFUN(memcpy, (out, in, length), PTR out AND CONST PTR in AND size_t length) { bcopy(in, out, length); return out; } gdb-4.13/libiberty/memmove.c 666 34562 1752 516 5542411036 14315 0ustar fnfcygnus/* Wrapper to implement ANSI C's memmove using BSD's bcopy. */ /* This function is in the public domain. --Per Bothner. */ #include #ifdef __STDC__ #include #else #define size_t unsigned long #endif PTR memmove (s1, s2, n) PTR s1; CONST PTR s2; size_t n; { bcopy (s2, s1, n); return s1; } gdb-4.13/libiberty/memset.c 666 34562 1752 2144 5262376406 14173 0ustar fnfcygnus/* memset Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #ifdef __STDC__ #include #else #define size_t unsigned long #endif PTR DEFUN(memset, (dest, val, len), PTR dest AND register int val AND register size_t len) { register unsigned char *ptr = (unsigned char*)dest; while (len-- > 0) *ptr++ = val; return dest; } gdb-4.13/libiberty/msdos.c 666 34562 1752 261 5571423225 13777 0ustar fnfcygnuschar msg[] = "No vfork available - aborting\n"; vfork() { write(1, msg, sizeof(msg)); } sigsetmask() { /* no signals support in go32 (yet) */ } waitpid() { return -1; } gdb-4.13/libiberty/obstack.c 666 34562 1752 35263 5601334103 14340 0ustar fnfcygnus/* obstack.c - subroutines used implicitly by object stack macros Copyright (C) 1988, 89, 90, 91, 92, 93, 94 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2, 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this program; if not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "obstack.h" /* This is just to get __GNU_LIBRARY__ defined. */ #include /* Comment out all this code if we are using the GNU C Library, and are not actually compiling the library itself. This code is part of the GNU C Library, but also included in many other GNU distributions. Compiling and linking in this code is a waste when using the GNU C library (especially if it is a shared library). Rather than having every GNU program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ /* CYGNUS LOCAL. No, don't comment the code out. We will be using ../include/obstack.h, which was changed relatively recently in a way that is not binary compatible. Until we feel confident that nobody is using the old obstack.c code, force the use of this code. This issue will arise anytime a change is made which is not binary compatible. #if defined (_LIBC) || !defined (__GNU_LIBRARY__) */ #if 1 #ifdef __STDC__ #define POINTER void * #else #define POINTER char * #endif /* Determine default alignment. */ struct fooalign {char x; double d;}; #define DEFAULT_ALIGNMENT \ ((PTR_INT_TYPE) ((char *)&((struct fooalign *) 0)->d - (char *)0)) /* If malloc were really smart, it would round addresses to DEFAULT_ALIGNMENT. But in fact it might be less smart and round addresses to as much as DEFAULT_ROUNDING. So we prepare for it to do that. */ union fooround {long x; double d;}; #define DEFAULT_ROUNDING (sizeof (union fooround)) /* When we copy a long block of data, this is the unit to do it with. On some machines, copying successive ints does not work; in such a case, redefine COPYING_UNIT to `long' (if that works) or `char' as a last resort. */ #ifndef COPYING_UNIT #define COPYING_UNIT int #endif /* The non-GNU-C macros copy the obstack into this global variable to avoid multiple evaluation. */ struct obstack *_obstack; /* Define a macro that either calls functions with the traditional malloc/free calling interface, or calls functions with the mmalloc/mfree interface (that adds an extra first argument), based on the state of use_extra_arg. For free, do not use ?:, since some compilers, like the MIPS compilers, do not allow (expr) ? void : void. */ #define CALL_CHUNKFUN(h, size) \ (((h) -> use_extra_arg) \ ? (*(h)->chunkfun) ((h)->extra_arg, (size)) \ : (*(h)->chunkfun) ((size))) #define CALL_FREEFUN(h, old_chunk) \ do { \ if ((h) -> use_extra_arg) \ (*(h)->freefun) ((h)->extra_arg, (old_chunk)); \ else \ (*(h)->freefun) ((old_chunk)); \ } while (0) /* Initialize an obstack H for use. Specify chunk size SIZE (0 means default). Objects start on multiples of ALIGNMENT (0 means use default). CHUNKFUN is the function to use to allocate chunks, and FREEFUN the function to free them. Return nonzero if successful, zero if out of memory. To recover from an out of memory error, free up some memory, then call this again. */ int _obstack_begin (h, size, alignment, chunkfun, freefun) struct obstack *h; int size; int alignment; POINTER (*chunkfun) (); void (*freefun) (); { register struct _obstack_chunk* chunk; /* points to new chunk */ if (alignment == 0) alignment = DEFAULT_ALIGNMENT; if (size == 0) /* Default size is what GNU malloc can fit in a 4096-byte block. */ { /* 12 is sizeof (mhead) and 4 is EXTRA from GNU malloc. Use the values for range checking, because if range checking is off, the extra bytes won't be missed terribly, but if range checking is on and we used a larger request, a whole extra 4096 bytes would be allocated. These number are irrelevant to the new GNU malloc. I suspect it is less sensitive to the size of the request. */ int extra = ((((12 + DEFAULT_ROUNDING - 1) & ~(DEFAULT_ROUNDING - 1)) + 4 + DEFAULT_ROUNDING - 1) & ~(DEFAULT_ROUNDING - 1)); size = 4096 - extra; } h->chunkfun = (struct _obstack_chunk * (*)()) chunkfun; h->freefun = freefun; h->chunk_size = size; h->alignment_mask = alignment - 1; h->use_extra_arg = 0; chunk = h->chunk = CALL_CHUNKFUN (h, h -> chunk_size); if (!chunk) { h->alloc_failed = 1; return 0; } h->alloc_failed = 0; h->next_free = h->object_base = chunk->contents; h->chunk_limit = chunk->limit = (char *) chunk + h->chunk_size; chunk->prev = 0; /* The initial chunk now contains no empty object. */ h->maybe_empty_object = 0; return 1; } int _obstack_begin_1 (h, size, alignment, chunkfun, freefun, arg) struct obstack *h; int size; int alignment; POINTER (*chunkfun) (); void (*freefun) (); POINTER arg; { register struct _obstack_chunk* chunk; /* points to new chunk */ if (alignment == 0) alignment = DEFAULT_ALIGNMENT; if (size == 0) /* Default size is what GNU malloc can fit in a 4096-byte block. */ { /* 12 is sizeof (mhead) and 4 is EXTRA from GNU malloc. Use the values for range checking, because if range checking is off, the extra bytes won't be missed terribly, but if range checking is on and we used a larger request, a whole extra 4096 bytes would be allocated. These number are irrelevant to the new GNU malloc. I suspect it is less sensitive to the size of the request. */ int extra = ((((12 + DEFAULT_ROUNDING - 1) & ~(DEFAULT_ROUNDING - 1)) + 4 + DEFAULT_ROUNDING - 1) & ~(DEFAULT_ROUNDING - 1)); size = 4096 - extra; } h->chunkfun = (struct _obstack_chunk * (*)()) chunkfun; h->freefun = freefun; h->chunk_size = size; h->alignment_mask = alignment - 1; h->extra_arg = arg; h->use_extra_arg = 1; chunk = h->chunk = CALL_CHUNKFUN (h, h -> chunk_size); if (!chunk) { h->alloc_failed = 1; return 0; } h->alloc_failed = 0; h->next_free = h->object_base = chunk->contents; h->chunk_limit = chunk->limit = (char *) chunk + h->chunk_size; chunk->prev = 0; /* The initial chunk now contains no empty object. */ h->maybe_empty_object = 0; return 1; } /* Allocate a new current chunk for the obstack *H on the assumption that LENGTH bytes need to be added to the current object, or a new object of length LENGTH allocated. Copies any partial object from the end of the old chunk to the beginning of the new one. */ void _obstack_newchunk (h, length) struct obstack *h; int length; { register struct _obstack_chunk* old_chunk = h->chunk; register struct _obstack_chunk* new_chunk; register long new_size; register int obj_size = h->next_free - h->object_base; register int i; int already; /* Compute size for new chunk. */ new_size = (obj_size + length) + (obj_size >> 3) + 100; if (new_size < h->chunk_size) new_size = h->chunk_size; /* Allocate and initialize the new chunk. */ new_chunk = CALL_CHUNKFUN (h, new_size); if (!new_chunk) { h->alloc_failed = 1; return; } h->alloc_failed = 0; h->chunk = new_chunk; new_chunk->prev = old_chunk; new_chunk->limit = h->chunk_limit = (char *) new_chunk + new_size; /* Move the existing object to the new chunk. Word at a time is fast and is safe if the object is sufficiently aligned. */ if (h->alignment_mask + 1 >= DEFAULT_ALIGNMENT) { for (i = obj_size / sizeof (COPYING_UNIT) - 1; i >= 0; i--) ((COPYING_UNIT *)new_chunk->contents)[i] = ((COPYING_UNIT *)h->object_base)[i]; /* We used to copy the odd few remaining bytes as one extra COPYING_UNIT, but that can cross a page boundary on a machine which does not do strict alignment for COPYING_UNITS. */ already = obj_size / sizeof (COPYING_UNIT) * sizeof (COPYING_UNIT); } else already = 0; /* Copy remaining bytes one by one. */ for (i = already; i < obj_size; i++) new_chunk->contents[i] = h->object_base[i]; /* If the object just copied was the only data in OLD_CHUNK, free that chunk and remove it from the chain. But not if that chunk might contain an empty object. */ if (h->object_base == old_chunk->contents && ! h->maybe_empty_object) { new_chunk->prev = old_chunk->prev; CALL_FREEFUN (h, old_chunk); } h->object_base = new_chunk->contents; h->next_free = h->object_base + obj_size; /* The new chunk certainly contains no empty object yet. */ h->maybe_empty_object = 0; } /* Return nonzero if object OBJ has been allocated from obstack H. This is here for debugging. If you use it in a program, you are probably losing. */ #ifdef __STDC__ /* Suppress -Wmissing-prototypes warning. We don't want to declare this in obstack.h because it is just for debugging. */ int _obstack_allocated_p (struct obstack *h, POINTER obj); #endif int _obstack_allocated_p (h, obj) struct obstack *h; POINTER obj; { register struct _obstack_chunk* lp; /* below addr of any objects in this chunk */ register struct _obstack_chunk* plp; /* point to previous chunk if any */ lp = (h)->chunk; /* We use >= rather than > since the object cannot be exactly at the beginning of the chunk but might be an empty object exactly at the end of an adjacent chunk. */ while (lp != 0 && ((POINTER)lp >= obj || (POINTER)(lp)->limit < obj)) { plp = lp->prev; lp = plp; } return lp != 0; } /* Free objects in obstack H, including OBJ and everything allocate more recently than OBJ. If OBJ is zero, free everything in H. */ #undef obstack_free /* This function has two names with identical definitions. This is the first one, called from non-ANSI code. */ void _obstack_free (h, obj) struct obstack *h; POINTER obj; { register struct _obstack_chunk* lp; /* below addr of any objects in this chunk */ register struct _obstack_chunk* plp; /* point to previous chunk if any */ lp = h->chunk; /* We use >= because there cannot be an object at the beginning of a chunk. But there can be an empty object at that address at the end of another chunk. */ while (lp != 0 && ((POINTER)lp >= obj || (POINTER)(lp)->limit < obj)) { plp = lp->prev; CALL_FREEFUN (h, lp); lp = plp; /* If we switch chunks, we can't tell whether the new current chunk contains an empty object, so assume that it may. */ h->maybe_empty_object = 1; } if (lp) { h->object_base = h->next_free = (char *)(obj); h->chunk_limit = lp->limit; h->chunk = lp; } else if (obj != 0) /* obj is not in any of the chunks! */ abort (); } /* This function is used from ANSI code. */ void obstack_free (h, obj) struct obstack *h; POINTER obj; { register struct _obstack_chunk* lp; /* below addr of any objects in this chunk */ register struct _obstack_chunk* plp; /* point to previous chunk if any */ lp = h->chunk; /* We use >= because there cannot be an object at the beginning of a chunk. But there can be an empty object at that address at the end of another chunk. */ while (lp != 0 && ((POINTER)lp >= obj || (POINTER)(lp)->limit < obj)) { plp = lp->prev; CALL_FREEFUN (h, lp); lp = plp; /* If we switch chunks, we can't tell whether the new current chunk contains an empty object, so assume that it may. */ h->maybe_empty_object = 1; } if (lp) { h->object_base = h->next_free = (char *)(obj); h->chunk_limit = lp->limit; h->chunk = lp; } else if (obj != 0) /* obj is not in any of the chunks! */ abort (); } #if 0 /* These are now turned off because the applications do not use it and it uses bcopy via obstack_grow, which causes trouble on sysV. */ /* Now define the functional versions of the obstack macros. Define them to simply use the corresponding macros to do the job. */ #ifdef __STDC__ /* These function definitions do not work with non-ANSI preprocessors; they won't pass through the macro names in parentheses. */ /* The function names appear in parentheses in order to prevent the macro-definitions of the names from being expanded there. */ POINTER (obstack_base) (obstack) struct obstack *obstack; { return obstack_base (obstack); } POINTER (obstack_next_free) (obstack) struct obstack *obstack; { return obstack_next_free (obstack); } int (obstack_object_size) (obstack) struct obstack *obstack; { return obstack_object_size (obstack); } int (obstack_room) (obstack) struct obstack *obstack; { return obstack_room (obstack); } void (obstack_grow) (obstack, pointer, length) struct obstack *obstack; POINTER pointer; int length; { obstack_grow (obstack, pointer, length); } void (obstack_grow0) (obstack, pointer, length) struct obstack *obstack; POINTER pointer; int length; { obstack_grow0 (obstack, pointer, length); } void (obstack_1grow) (obstack, character) struct obstack *obstack; int character; { obstack_1grow (obstack, character); } void (obstack_blank) (obstack, length) struct obstack *obstack; int length; { obstack_blank (obstack, length); } void (obstack_1grow_fast) (obstack, character) struct obstack *obstack; int character; { obstack_1grow_fast (obstack, character); } void (obstack_blank_fast) (obstack, length) struct obstack *obstack; int length; { obstack_blank_fast (obstack, length); } POINTER (obstack_finish) (obstack) struct obstack *obstack; { return obstack_finish (obstack); } POINTER (obstack_alloc) (obstack, length) struct obstack *obstack; int length; { return obstack_alloc (obstack, length); } POINTER (obstack_copy) (obstack, pointer, length) struct obstack *obstack; POINTER pointer; int length; { return obstack_copy (obstack, pointer, length); } POINTER (obstack_copy0) (obstack, pointer, length) struct obstack *obstack; POINTER pointer; int length; { return obstack_copy0 (obstack, pointer, length); } #endif /* __STDC__ */ #endif /* 0 */ #endif /* _LIBC or not __GNU_LIBRARY__. */ gdb-4.13/libiberty/random.c 666 34562 1752 31000 5225215323 14157 0ustar fnfcygnus/* * Copyright (c) 1983 Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms are permitted * provided that the above copyright notice and this paragraph are * duplicated in all such forms and that any documentation, * advertising materials, and other materials related to such * distribution and use acknowledge that the software was developed * by the University of California, Berkeley. The name of the * University may not be used to endorse or promote products derived * from this software without specific prior written permission. * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. */ /* * This is derived from the Berkeley source: * @(#)random.c 5.5 (Berkeley) 7/6/88 * It was reworked for the GNU C Library by Roland McGrath. */ #include #if 0 #include #include #include #include #else #define ULONG_MAX ((unsigned long)(~0L)) /* 0xFFFFFFFF for 32-bits */ #define LONG_MAX ((long)(ULONG_MAX >> 1)) /* 0x7FFFFFFF for 32-bits*/ #ifdef __STDC__ # define PTR void * # define NULL (void *) 0 #else # define PTR char * # define NULL 0 #endif #endif long int random (); /* An improved random number generation package. In addition to the standard rand()/srand() like interface, this package also has a special state info interface. The initstate() routine is called with a seed, an array of bytes, and a count of how many bytes are being passed in; this array is then initialized to contain information for random number generation with that much state information. Good sizes for the amount of state information are 32, 64, 128, and 256 bytes. The state can be switched by calling the setstate() function with the same array as was initiallized with initstate(). By default, the package runs with 128 bytes of state information and generates far better random numbers than a linear congruential generator. If the amount of state information is less than 32 bytes, a simple linear congruential R.N.G. is used. Internally, the state information is treated as an array of longs; the zeroeth element of the array is the type of R.N.G. being used (small integer); the remainder of the array is the state information for the R.N.G. Thus, 32 bytes of state information will give 7 longs worth of state information, which will allow a degree seven polynomial. (Note: The zeroeth word of state information also has some other information stored in it; see setstate for details). The random number generation technique is a linear feedback shift register approach, employing trinomials (since there are fewer terms to sum up that way). In this approach, the least significant bit of all the numbers in the state table will act as a linear feedback shift register, and will have period 2^deg - 1 (where deg is the degree of the polynomial being used, assuming that the polynomial is irreducible and primitive). The higher order bits will have longer periods, since their values are also influenced by pseudo-random carries out of the lower bits. The total period of the generator is approximately deg*(2**deg - 1); thus doubling the amount of state information has a vast influence on the period of the generator. Note: The deg*(2**deg - 1) is an approximation only good for large deg, when the period of the shift register is the dominant factor. With deg equal to seven, the period is actually much longer than the 7*(2**7 - 1) predicted by this formula. */ /* For each of the currently supported random number generators, we have a break value on the amount of state information (you need at least thi bytes of state info to support this random number generator), a degree for the polynomial (actually a trinomial) that the R.N.G. is based on, and separation between the two lower order coefficients of the trinomial. */ /* Linear congruential. */ #define TYPE_0 0 #define BREAK_0 8 #define DEG_0 0 #define SEP_0 0 /* x**7 + x**3 + 1. */ #define TYPE_1 1 #define BREAK_1 32 #define DEG_1 7 #define SEP_1 3 /* x**15 + x + 1. */ #define TYPE_2 2 #define BREAK_2 64 #define DEG_2 15 #define SEP_2 1 /* x**31 + x**3 + 1. */ #define TYPE_3 3 #define BREAK_3 128 #define DEG_3 31 #define SEP_3 3 /* x**63 + x + 1. */ #define TYPE_4 4 #define BREAK_4 256 #define DEG_4 63 #define SEP_4 1 /* Array versions of the above information to make code run faster. Relies on fact that TYPE_i == i. */ #define MAX_TYPES 5 /* Max number of types above. */ static int degrees[MAX_TYPES] = { DEG_0, DEG_1, DEG_2, DEG_3, DEG_4 }; static int seps[MAX_TYPES] = { SEP_0, SEP_1, SEP_2, SEP_3, SEP_4 }; /* Initially, everything is set up as if from: initstate(1, randtbl, 128); Note that this initialization takes advantage of the fact that srandom advances the front and rear pointers 10*rand_deg times, and hence the rear pointer which starts at 0 will also end up at zero; thus the zeroeth element of the state information, which contains info about the current position of the rear pointer is just (MAX_TYPES * (rptr - state)) + TYPE_3 == TYPE_3. */ static long int randtbl[DEG_3 + 1] = { TYPE_3, 0x9a319039, 0x32d9c024, 0x9b663182, 0x5da1f342, 0xde3b81e0, 0xdf0a6fb5, 0xf103bc02, 0x48f340fb, 0x7449e56b, 0xbeb1dbb0, 0xab5c5918, 0x946554fd, 0x8c2e680f, 0xeb3d799f, 0xb11ee0b7, 0x2d436b86, 0xda672e2a, 0x1588ca88, 0xe369735d, 0x904f35f7, 0xd7158fd6, 0x6fa6f051, 0x616e6b96, 0xac94efdc, 0x36413f93, 0xc622c298, 0xf5a42ab8, 0x8a88d77b, 0xf5ad9d0e, 0x8999220b, 0x27fb47b9 }; /* FPTR and RPTR are two pointers into the state info, a front and a rear pointer. These two pointers are always rand_sep places aparts, as they cycle through the state information. (Yes, this does mean we could get away with just one pointer, but the code for random is more efficient this way). The pointers are left positioned as they would be from the call: initstate(1, randtbl, 128); (The position of the rear pointer, rptr, is really 0 (as explained above in the initialization of randtbl) because the state table pointer is set to point to randtbl[1] (as explained below).) */ static long int *fptr = &randtbl[SEP_3 + 1]; static long int *rptr = &randtbl[1]; /* The following things are the pointer to the state information table, the type of the current generator, the degree of the current polynomial being used, and the separation between the two pointers. Note that for efficiency of random, we remember the first location of the state information, not the zeroeth. Hence it is valid to access state[-1], which is used to store the type of the R.N.G. Also, we remember the last location, since this is more efficient than indexing every time to find the address of the last element to see if the front and rear pointers have wrapped. */ static long int *state = &randtbl[1]; static int rand_type = TYPE_3; static int rand_deg = DEG_3; static int rand_sep = SEP_3; static long int *end_ptr = &randtbl[sizeof(randtbl) / sizeof(randtbl[0])]; /* Initialize the random number generator based on the given seed. If the type is the trivial no-state-information type, just remember the seed. Otherwise, initializes state[] based on the given "seed" via a linear congruential generator. Then, the pointers are set to known locations that are exactly rand_sep places apart. Lastly, it cycles the state information a given number of times to get rid of any initial dependencies introduced by the L.C.R.N.G. Note that the initialization of randtbl[] for default usage relies on values produced by this routine. */ void srandom (x) unsigned int x; { state[0] = x; if (rand_type != TYPE_0) { register long int i; for (i = 1; i < rand_deg; ++i) state[i] = (1103515145 * state[i - 1]) + 12345; fptr = &state[rand_sep]; rptr = &state[0]; for (i = 0; i < 10 * rand_deg; ++i) random(); } } /* Initialize the state information in the given array of N bytes for future random number generation. Based on the number of bytes we are given, and the break values for the different R.N.G.'s, we choose the best (largest) one we can and set things up for it. srandom is then called to initialize the state information. Note that on return from srandom, we set state[-1] to be the type multiplexed with the current value of the rear pointer; this is so successive calls to initstate won't lose this information and will be able to restart with setstate. Note: The first thing we do is save the current state, if any, just like setstate so that it doesn't matter when initstate is called. Returns a pointer to the old state. */ PTR initstate (seed, arg_state, n) unsigned int seed; PTR arg_state; unsigned long n; { PTR ostate = (PTR) &state[-1]; if (rand_type == TYPE_0) state[-1] = rand_type; else state[-1] = (MAX_TYPES * (rptr - state)) + rand_type; if (n < BREAK_1) { if (n < BREAK_0) { errno = EINVAL; return NULL; } rand_type = TYPE_0; rand_deg = DEG_0; rand_sep = SEP_0; } else if (n < BREAK_2) { rand_type = TYPE_1; rand_deg = DEG_1; rand_sep = SEP_1; } else if (n < BREAK_3) { rand_type = TYPE_2; rand_deg = DEG_2; rand_sep = SEP_2; } else if (n < BREAK_4) { rand_type = TYPE_3; rand_deg = DEG_3; rand_sep = SEP_3; } else { rand_type = TYPE_4; rand_deg = DEG_4; rand_sep = SEP_4; } state = &((long int *) arg_state)[1]; /* First location. */ /* Must set END_PTR before srandom. */ end_ptr = &state[rand_deg]; srandom(seed); if (rand_type == TYPE_0) state[-1] = rand_type; else state[-1] = (MAX_TYPES * (rptr - state)) + rand_type; return ostate; } /* Restore the state from the given state array. Note: It is important that we also remember the locations of the pointers in the current state information, and restore the locations of the pointers from the old state information. This is done by multiplexing the pointer location into the zeroeth word of the state information. Note that due to the order in which things are done, it is OK to call setstate with the same state as the current state Returns a pointer to the old state information. */ PTR setstate (arg_state) PTR arg_state; { register long int *new_state = (long int *) arg_state; register int type = new_state[0] % MAX_TYPES; register int rear = new_state[0] / MAX_TYPES; PTR ostate = (PTR) &state[-1]; if (rand_type == TYPE_0) state[-1] = rand_type; else state[-1] = (MAX_TYPES * (rptr - state)) + rand_type; switch (type) { case TYPE_0: case TYPE_1: case TYPE_2: case TYPE_3: case TYPE_4: rand_type = type; rand_deg = degrees[type]; rand_sep = seps[type]; break; default: /* State info munged. */ errno = EINVAL; return NULL; } state = &new_state[1]; if (rand_type != TYPE_0) { rptr = &state[rear]; fptr = &state[(rear + rand_sep) % rand_deg]; } /* Set end_ptr too. */ end_ptr = &state[rand_deg]; return ostate; } /* If we are using the trivial TYPE_0 R.N.G., just do the old linear congruential bit. Otherwise, we do our fancy trinomial stuff, which is the same in all ther other cases due to all the global variables that have been set up. The basic operation is to add the number at the rear pointer into the one at the front pointer. Then both pointers are advanced to the next location cyclically in the table. The value returned is the sum generated, reduced to 31 bits by throwing away the "least random" low bit. Note: The code takes advantage of the fact that both the front and rear pointers can't wrap on the same call by not testing the rear pointer if the front one has wrapped. Returns a 31-bit random number. */ long int random () { if (rand_type == TYPE_0) { state[0] = ((state[0] * 1103515245) + 12345) & LONG_MAX; return state[0]; } else { long int i; *fptr += *rptr; /* Chucking least random bit. */ i = (*fptr >> 1) & LONG_MAX; ++fptr; if (fptr >= end_ptr) { fptr = state; ++rptr; } else { ++rptr; if (rptr >= end_ptr) rptr = state; } return i; } } gdb-4.13/libiberty/rename.c 666 34562 1752 2126 5272020256 14136 0ustar fnfcygnus/* rename -- rename a file Copyright (C) 1992 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Rename a file. */ #include int rename (zfrom, zto) char *zfrom; char *zto; { if (link (zfrom, zto) < 0) { if (errno != EEXIST) return -1; if (unlink (zto) < 0 || link (zfrom, zto) < 0) return -1; } return unlink (zfrom); } gdb-4.13/libiberty/rindex.c 666 34562 1752 223 5124447551 14143 0ustar fnfcygnus/* Stub implementation of (obsolete) rindex(). */ extern char *strrchr (); char * rindex (s, c) char *s; int c; { return strrchr (s, c); } gdb-4.13/libiberty/sigsetmask.c 666 34562 1752 2607 5262376412 15054 0ustar fnfcygnus/* Version of sigsetmask.c Copyright 1991, 1992 Free Software Foundation, Inc. Written by Steve Chamberlain (sac@cygnus.com). Contributed by Cygnus Support. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Set the current signal mask to the set provided, and return the previous value */ #define _POSIX_SOURCE #include #include #ifdef SIG_SETMASK int DEFUN(sigsetmask,(set), int set) { sigset_t new; sigset_t old; sigemptyset (&new); if (set != 0) { abort(); /* FIXME, we don't know how to translate old mask to new */ } sigprocmask(SIG_SETMASK, &new, &old); return 1; /* FIXME, we always return 1 as old value. */ } #endif gdb-4.13/libiberty/vfork.c 666 34562 1752 1624 5262376430 14027 0ustar fnfcygnus/* Emulate vfork using just plain fork, for systems without a real vfork. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ int vfork () { return (fork ()); } gdb-4.13/libiberty/spaces.c 666 34562 1752 3163 5526531746 14164 0ustar fnfcygnus/* Allocate memory region filled with spaces. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME spaces -- return a pointer to a buffer full of spaces SYNOPSIS char *spaces (int count) DESCRIPTION Returns a pointer to a memory region filled with the specified number of spaces and null terminated. The returned pointer is valid until at least the next call. BUGS */ #include "ansidecl.h" #include "libiberty.h" const char * spaces (count) int count; { register char *t; static char *buf; static int maxsize; extern char *malloc (); extern void free (); if (count > maxsize) { if (buf) { free (buf); } buf = malloc (count + 1); if (buf == (char *) 0) return 0; for (t = buf + count ; t != buf ; ) { *--t = ' '; } maxsize = count; buf[count] = '\0'; } return (const char *) (buf + maxsize - count); } gdb-4.13/libiberty/strcasecmp.c 666 34562 1752 6312 5460655406 15046 0ustar fnfcygnus/* * Copyright (c) 1987 Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms are permitted * provided that this notice is preserved and that due credit is given * to the University of California at Berkeley. The name of the University * may not be used to endorse or promote products derived from this * software without specific written prior permission. This software * is provided ``as is'' without express or implied warranty. */ #if defined(LIBC_SCCS) && !defined(lint) static char sccsid[] = "@(#)strcasecmp.c 5.5 (Berkeley) 11/24/87"; #endif /* LIBC_SCCS and not lint */ #include #include /* * This array is designed for mapping upper and lower case letter * together for a case independent comparison. The mappings are p * based upon ascii character sequences. */ static unsigned char charmap[] = { '\000', '\001', '\002', '\003', '\004', '\005', '\006', '\007', '\010', '\011', '\012', '\013', '\014', '\015', '\016', '\017', '\020', '\021', '\022', '\023', '\024', '\025', '\026', '\027', '\030', '\031', '\032', '\033', '\034', '\035', '\036', '\037', '\040', '\041', '\042', '\043', '\044', '\045', '\046', '\047', '\050', '\051', '\052', '\053', '\054', '\055', '\056', '\057', '\060', '\061', '\062', '\063', '\064', '\065', '\066', '\067', '\070', '\071', '\072', '\073', '\074', '\075', '\076', '\077', '\100', '\141', '\142', '\143', '\144', '\145', '\146', '\147', '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157', '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167', '\170', '\171', '\172', '\133', '\134', '\135', '\136', '\137', '\140', '\141', '\142', '\143', '\144', '\145', '\146', '\147', '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157', '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167', '\170', '\171', '\172', '\173', '\174', '\175', '\176', '\177', '\200', '\201', '\202', '\203', '\204', '\205', '\206', '\207', '\210', '\211', '\212', '\213', '\214', '\215', '\216', '\217', '\220', '\221', '\222', '\223', '\224', '\225', '\226', '\227', '\230', '\231', '\232', '\233', '\234', '\235', '\236', '\237', '\240', '\241', '\242', '\243', '\244', '\245', '\246', '\247', '\250', '\251', '\252', '\253', '\254', '\255', '\256', '\257', '\260', '\261', '\262', '\263', '\264', '\265', '\266', '\267', '\270', '\271', '\272', '\273', '\274', '\275', '\276', '\277', '\300', '\341', '\342', '\343', '\344', '\345', '\346', '\347', '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357', '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367', '\370', '\371', '\372', '\333', '\334', '\335', '\336', '\337', '\340', '\341', '\342', '\343', '\344', '\345', '\346', '\347', '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357', '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367', '\370', '\371', '\372', '\373', '\374', '\375', '\376', '\377', }; int strcasecmp(s1, s2) char *s1, *s2; { register unsigned char u1, u2; for (;;) { u1 = (unsigned char) *s1++; u2 = (unsigned char) *s2++; if (charmap[u1] != charmap[u2]) { return charmap[u1] - charmap[u2]; } if (u1 == '\0') { return 0; } } } gdb-4.13/libiberty/strchr.c 666 34562 1752 2477 5262376416 14220 0ustar fnfcygnus/* Portable version of strchr() Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME strchr -- return pointer to first occurance of a character SYNOPSIS char *strchr (const char *s, int c) DESCRIPTION Returns a pointer to the first occurance of character C in string S, or a NULL pointer if no occurance is found. BUGS Behavior when character is the null character is implementation dependent. */ #include char * strchr (s, c) register CONST char *s; int c; { do { if (*s == c) { return (s); } } while (*s++); return (0); } gdb-4.13/libiberty/strdup.c 666 34562 1752 254 5102141677 14173 0ustar fnfcygnuschar * strdup(s) char *s; { char *result = (char*)malloc(strlen(s) + 1); if (result == (char*)0) return (char*)0; strcpy(result, s); return result; } gdb-4.13/libiberty/strerror.c 666 34562 1752 51732 5532006501 14574 0ustar fnfcygnus/* Extended support for using errno values. Copyright (C) 1992 Free Software Foundation, Inc. Written by Fred Fish. fnf@cygnus.com This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "ansidecl.h" #include "libiberty.h" #include "config.h" #ifndef NEED_sys_errlist /* Note that errno.h (not sure what OS) or stdio.h (BSD 4.4, at least) might declare sys_errlist in a way that the compiler might consider incompatible with our later declaration, perhaps by using const attributes. So we hide the declaration in errno.h (if any) using a macro. */ #define sys_errlist sys_errlist__ #endif #include #include #ifndef NEED_sys_errlist #undef sys_errlist #endif /* Routines imported from standard C runtime libraries. */ #ifdef __STDC__ #include extern void *malloc (size_t size); /* 4.10.3.3 */ extern void *memset (void *s, int c, size_t n); /* 4.11.6.1 */ #else /* !__STDC__ */ extern char *malloc (); /* Standard memory allocater */ extern char *memset (); #endif /* __STDC__ */ #ifndef MAX # define MAX(a,b) ((a) > (b) ? (a) : (b)) #endif /* Translation table for errno values. See intro(2) in most UNIX systems Programmers Reference Manuals. Note that this table is generally only accessed when it is used at runtime to initialize errno name and message tables that are indexed by errno value. Not all of these errnos will exist on all systems. This table is the only thing that should have to be updated as new error numbers are introduced. It's sort of ugly, but at least its portable. */ struct error_info { int value; /* The numeric value from */ const char *name; /* The equivalent symbolic value */ #ifdef NEED_sys_errlist const char *msg; /* Short message about this value */ #endif }; #ifdef NEED_sys_errlist # define ENTRY(value, name, msg) {value, name, msg} #else # define ENTRY(value, name, msg) {value, name} #endif static const struct error_info error_table[] = { #if defined (EPERM) ENTRY(EPERM, "EPERM", "Not owner"), #endif #if defined (ENOENT) ENTRY(ENOENT, "ENOENT", "No such file or directory"), #endif #if defined (ESRCH) ENTRY(ESRCH, "ESRCH", "No such process"), #endif #if defined (EINTR) ENTRY(EINTR, "EINTR", "Interrupted system call"), #endif #if defined (EIO) ENTRY(EIO, "EIO", "I/O error"), #endif #if defined (ENXIO) ENTRY(ENXIO, "ENXIO", "No such device or address"), #endif #if defined (E2BIG) ENTRY(E2BIG, "E2BIG", "Arg list too long"), #endif #if defined (ENOEXEC) ENTRY(ENOEXEC, "ENOEXEC", "Exec format error"), #endif #if defined (EBADF) ENTRY(EBADF, "EBADF", "Bad file number"), #endif #if defined (ECHILD) ENTRY(ECHILD, "ECHILD", "No child processes"), #endif #if defined (EWOULDBLOCK) /* Put before EAGAIN, sometimes aliased */ ENTRY(EWOULDBLOCK, "EWOULDBLOCK", "Operation would block"), #endif #if defined (EAGAIN) ENTRY(EAGAIN, "EAGAIN", "No more processes"), #endif #if defined (ENOMEM) ENTRY(ENOMEM, "ENOMEM", "Not enough space"), #endif #if defined (EACCES) ENTRY(EACCES, "EACCES", "Permission denied"), #endif #if defined (EFAULT) ENTRY(EFAULT, "EFAULT", "Bad address"), #endif #if defined (ENOTBLK) ENTRY(ENOTBLK, "ENOTBLK", "Block device required"), #endif #if defined (EBUSY) ENTRY(EBUSY, "EBUSY", "Device busy"), #endif #if defined (EEXIST) ENTRY(EEXIST, "EEXIST", "File exists"), #endif #if defined (EXDEV) ENTRY(EXDEV, "EXDEV", "Cross-device link"), #endif #if defined (ENODEV) ENTRY(ENODEV, "ENODEV", "No such device"), #endif #if defined (ENOTDIR) ENTRY(ENOTDIR, "ENOTDIR", "Not a directory"), #endif #if defined (EISDIR) ENTRY(EISDIR, "EISDIR", "Is a directory"), #endif #if defined (EINVAL) ENTRY(EINVAL, "EINVAL", "Invalid argument"), #endif #if defined (ENFILE) ENTRY(ENFILE, "ENFILE", "File table overflow"), #endif #if defined (EMFILE) ENTRY(EMFILE, "EMFILE", "Too many open files"), #endif #if defined (ENOTTY) ENTRY(ENOTTY, "ENOTTY", "Not a typewriter"), #endif #if defined (ETXTBSY) ENTRY(ETXTBSY, "ETXTBSY", "Text file busy"), #endif #if defined (EFBIG) ENTRY(EFBIG, "EFBIG", "File too large"), #endif #if defined (ENOSPC) ENTRY(ENOSPC, "ENOSPC", "No space left on device"), #endif #if defined (ESPIPE) ENTRY(ESPIPE, "ESPIPE", "Illegal seek"), #endif #if defined (EROFS) ENTRY(EROFS, "EROFS", "Read-only file system"), #endif #if defined (EMLINK) ENTRY(EMLINK, "EMLINK", "Too many links"), #endif #if defined (EPIPE) ENTRY(EPIPE, "EPIPE", "Broken pipe"), #endif #if defined (EDOM) ENTRY(EDOM, "EDOM", "Math argument out of domain of func"), #endif #if defined (ERANGE) ENTRY(ERANGE, "ERANGE", "Math result not representable"), #endif #if defined (ENOMSG) ENTRY(ENOMSG, "ENOMSG", "No message of desired type"), #endif #if defined (EIDRM) ENTRY(EIDRM, "EIDRM", "Identifier removed"), #endif #if defined (ECHRNG) ENTRY(ECHRNG, "ECHRNG", "Channel number out of range"), #endif #if defined (EL2NSYNC) ENTRY(EL2NSYNC, "EL2NSYNC", "Level 2 not synchronized"), #endif #if defined (EL3HLT) ENTRY(EL3HLT, "EL3HLT", "Level 3 halted"), #endif #if defined (EL3RST) ENTRY(EL3RST, "EL3RST", "Level 3 reset"), #endif #if defined (ELNRNG) ENTRY(ELNRNG, "ELNRNG", "Link number out of range"), #endif #if defined (EUNATCH) ENTRY(EUNATCH, "EUNATCH", "Protocol driver not attached"), #endif #if defined (ENOCSI) ENTRY(ENOCSI, "ENOCSI", "No CSI structure available"), #endif #if defined (EL2HLT) ENTRY(EL2HLT, "EL2HLT", "Level 2 halted"), #endif #if defined (EDEADLK) ENTRY(EDEADLK, "EDEADLK", "Deadlock condition"), #endif #if defined (ENOLCK) ENTRY(ENOLCK, "ENOLCK", "No record locks available"), #endif #if defined (EBADE) ENTRY(EBADE, "EBADE", "Invalid exchange"), #endif #if defined (EBADR) ENTRY(EBADR, "EBADR", "Invalid request descriptor"), #endif #if defined (EXFULL) ENTRY(EXFULL, "EXFULL", "Exchange full"), #endif #if defined (ENOANO) ENTRY(ENOANO, "ENOANO", "No anode"), #endif #if defined (EBADRQC) ENTRY(EBADRQC, "EBADRQC", "Invalid request code"), #endif #if defined (EBADSLT) ENTRY(EBADSLT, "EBADSLT", "Invalid slot"), #endif #if defined (EDEADLOCK) ENTRY(EDEADLOCK, "EDEADLOCK", "File locking deadlock error"), #endif #if defined (EBFONT) ENTRY(EBFONT, "EBFONT", "Bad font file format"), #endif #if defined (ENOSTR) ENTRY(ENOSTR, "ENOSTR", "Device not a stream"), #endif #if defined (ENODATA) ENTRY(ENODATA, "ENODATA", "No data available"), #endif #if defined (ETIME) ENTRY(ETIME, "ETIME", "Timer expired"), #endif #if defined (ENOSR) ENTRY(ENOSR, "ENOSR", "Out of streams resources"), #endif #if defined (ENONET) ENTRY(ENONET, "ENONET", "Machine is not on the network"), #endif #if defined (ENOPKG) ENTRY(ENOPKG, "ENOPKG", "Package not installed"), #endif #if defined (EREMOTE) ENTRY(EREMOTE, "EREMOTE", "Object is remote"), #endif #if defined (ENOLINK) ENTRY(ENOLINK, "ENOLINK", "Link has been severed"), #endif #if defined (EADV) ENTRY(EADV, "EADV", "Advertise error"), #endif #if defined (ESRMNT) ENTRY(ESRMNT, "ESRMNT", "Srmount error"), #endif #if defined (ECOMM) ENTRY(ECOMM, "ECOMM", "Communication error on send"), #endif #if defined (EPROTO) ENTRY(EPROTO, "EPROTO", "Protocol error"), #endif #if defined (EMULTIHOP) ENTRY(EMULTIHOP, "EMULTIHOP", "Multihop attempted"), #endif #if defined (EDOTDOT) ENTRY(EDOTDOT, "EDOTDOT", "RFS specific error"), #endif #if defined (EBADMSG) ENTRY(EBADMSG, "EBADMSG", "Not a data message"), #endif #if defined (ENAMETOOLONG) ENTRY(ENAMETOOLONG, "ENAMETOOLONG", "File name too long"), #endif #if defined (EOVERFLOW) ENTRY(EOVERFLOW, "EOVERFLOW", "Value too large for defined data type"), #endif #if defined (ENOTUNIQ) ENTRY(ENOTUNIQ, "ENOTUNIQ", "Name not unique on network"), #endif #if defined (EBADFD) ENTRY(EBADFD, "EBADFD", "File descriptor in bad state"), #endif #if defined (EREMCHG) ENTRY(EREMCHG, "EREMCHG", "Remote address changed"), #endif #if defined (ELIBACC) ENTRY(ELIBACC, "ELIBACC", "Can not access a needed shared library"), #endif #if defined (ELIBBAD) ENTRY(ELIBBAD, "ELIBBAD", "Accessing a corrupted shared library"), #endif #if defined (ELIBSCN) ENTRY(ELIBSCN, "ELIBSCN", ".lib section in a.out corrupted"), #endif #if defined (ELIBMAX) ENTRY(ELIBMAX, "ELIBMAX", "Attempting to link in too many shared libraries"), #endif #if defined (ELIBEXEC) ENTRY(ELIBEXEC, "ELIBEXEC", "Cannot exec a shared library directly"), #endif #if defined (EILSEQ) ENTRY(EILSEQ, "EILSEQ", "Illegal byte sequence"), #endif #if defined (ENOSYS) ENTRY(ENOSYS, "ENOSYS", "Operation not applicable"), #endif #if defined (ELOOP) ENTRY(ELOOP, "ELOOP", "Too many symbolic links encountered"), #endif #if defined (ERESTART) ENTRY(ERESTART, "ERESTART", "Interrupted system call should be restarted"), #endif #if defined (ESTRPIPE) ENTRY(ESTRPIPE, "ESTRPIPE", "Streams pipe error"), #endif #if defined (ENOTEMPTY) ENTRY(ENOTEMPTY, "ENOTEMPTY", "Directory not empty"), #endif #if defined (EUSERS) ENTRY(EUSERS, "EUSERS", "Too many users"), #endif #if defined (ENOTSOCK) ENTRY(ENOTSOCK, "ENOTSOCK", "Socket operation on non-socket"), #endif #if defined (EDESTADDRREQ) ENTRY(EDESTADDRREQ, "EDESTADDRREQ", "Destination address required"), #endif #if defined (EMSGSIZE) ENTRY(EMSGSIZE, "EMSGSIZE", "Message too long"), #endif #if defined (EPROTOTYPE) ENTRY(EPROTOTYPE, "EPROTOTYPE", "Protocol wrong type for socket"), #endif #if defined (ENOPROTOOPT) ENTRY(ENOPROTOOPT, "ENOPROTOOPT", "Protocol not available"), #endif #if defined (EPROTONOSUPPORT) ENTRY(EPROTONOSUPPORT, "EPROTONOSUPPORT", "Protocol not supported"), #endif #if defined (ESOCKTNOSUPPORT) ENTRY(ESOCKTNOSUPPORT, "ESOCKTNOSUPPORT", "Socket type not supported"), #endif #if defined (EOPNOTSUPP) ENTRY(EOPNOTSUPP, "EOPNOTSUPP", "Operation not supported on transport endpoint"), #endif #if defined (EPFNOSUPPORT) ENTRY(EPFNOSUPPORT, "EPFNOSUPPORT", "Protocol family not supported"), #endif #if defined (EAFNOSUPPORT) ENTRY(EAFNOSUPPORT, "EAFNOSUPPORT", "Address family not supported by protocol"), #endif #if defined (EADDRINUSE) ENTRY(EADDRINUSE, "EADDRINUSE", "Address already in use"), #endif #if defined (EADDRNOTAVAIL) ENTRY(EADDRNOTAVAIL, "EADDRNOTAVAIL","Cannot assign requested address"), #endif #if defined (ENETDOWN) ENTRY(ENETDOWN, "ENETDOWN", "Network is down"), #endif #if defined (ENETUNREACH) ENTRY(ENETUNREACH, "ENETUNREACH", "Network is unreachable"), #endif #if defined (ENETRESET) ENTRY(ENETRESET, "ENETRESET", "Network dropped connection because of reset"), #endif #if defined (ECONNABORTED) ENTRY(ECONNABORTED, "ECONNABORTED", "Software caused connection abort"), #endif #if defined (ECONNRESET) ENTRY(ECONNRESET, "ECONNRESET", "Connection reset by peer"), #endif #if defined (ENOBUFS) ENTRY(ENOBUFS, "ENOBUFS", "No buffer space available"), #endif #if defined (EISCONN) ENTRY(EISCONN, "EISCONN", "Transport endpoint is already connected"), #endif #if defined (ENOTCONN) ENTRY(ENOTCONN, "ENOTCONN", "Transport endpoint is not connected"), #endif #if defined (ESHUTDOWN) ENTRY(ESHUTDOWN, "ESHUTDOWN", "Cannot send after transport endpoint shutdown"), #endif #if defined (ETOOMANYREFS) ENTRY(ETOOMANYREFS, "ETOOMANYREFS", "Too many references: cannot splice"), #endif #if defined (ETIMEDOUT) ENTRY(ETIMEDOUT, "ETIMEDOUT", "Connection timed out"), #endif #if defined (ECONNREFUSED) ENTRY(ECONNREFUSED, "ECONNREFUSED", "Connection refused"), #endif #if defined (EHOSTDOWN) ENTRY(EHOSTDOWN, "EHOSTDOWN", "Host is down"), #endif #if defined (EHOSTUNREACH) ENTRY(EHOSTUNREACH, "EHOSTUNREACH", "No route to host"), #endif #if defined (EALREADY) ENTRY(EALREADY, "EALREADY", "Operation already in progress"), #endif #if defined (EINPROGRESS) ENTRY(EINPROGRESS, "EINPROGRESS", "Operation now in progress"), #endif #if defined (ESTALE) ENTRY(ESTALE, "ESTALE", "Stale NFS file handle"), #endif #if defined (EUCLEAN) ENTRY(EUCLEAN, "EUCLEAN", "Structure needs cleaning"), #endif #if defined (ENOTNAM) ENTRY(ENOTNAM, "ENOTNAM", "Not a XENIX named type file"), #endif #if defined (ENAVAIL) ENTRY(ENAVAIL, "ENAVAIL", "No XENIX semaphores available"), #endif #if defined (EISNAM) ENTRY(EISNAM, "EISNAM", "Is a named type file"), #endif #if defined (EREMOTEIO) ENTRY(EREMOTEIO, "EREMOTEIO", "Remote I/O error"), #endif ENTRY(0, NULL, NULL) }; /* Translation table allocated and initialized at runtime. Indexed by the errno value to find the equivalent symbolic value. */ static const char **error_names; static int num_error_names = 0; /* Translation table allocated and initialized at runtime, if it does not already exist in the host environment. Indexed by the errno value to find the descriptive string. We don't export it for use in other modules because even though it has the same name, it differs from other implementations in that it is dynamically initialized rather than statically initialized. */ #ifdef NEED_sys_errlist static int sys_nerr; static const char **sys_errlist; #else extern int sys_nerr; extern char *sys_errlist[]; #endif /* NAME init_error_tables -- initialize the name and message tables SYNOPSIS static void init_error_tables (); DESCRIPTION Using the error_table, which is initialized at compile time, generate the error_names and the sys_errlist (if needed) tables, which are indexed at runtime by a specific errno value. BUGS The initialization of the tables may fail under low memory conditions, in which case we don't do anything particularly useful, but we don't bomb either. Who knows, it might succeed at a later point if we free some memory in the meantime. In any case, the other routines know how to deal with lack of a table after trying to initialize it. This may or may not be considered to be a bug, that we don't specifically warn about this particular failure mode. */ static void init_error_tables () { const struct error_info *eip; int nbytes; /* If we haven't already scanned the error_table once to find the maximum errno value, then go find it now. */ if (num_error_names == 0) { for (eip = error_table; eip -> name != NULL; eip++) { if (eip -> value >= num_error_names) { num_error_names = eip -> value + 1; } } } /* Now attempt to allocate the error_names table, zero it out, and then initialize it from the statically initialized error_table. */ if (error_names == NULL) { nbytes = num_error_names * sizeof (char *); if ((error_names = (const char **) malloc (nbytes)) != NULL) { memset (error_names, 0, nbytes); for (eip = error_table; eip -> name != NULL; eip++) { error_names[eip -> value] = eip -> name; } } } #ifdef NEED_sys_errlist /* Now attempt to allocate the sys_errlist table, zero it out, and then initialize it from the statically initialized error_table. */ if (sys_errlist == NULL) { nbytes = num_error_names * sizeof (char *); if ((sys_errlist = (const char **) malloc (nbytes)) != NULL) { memset (sys_errlist, 0, nbytes); sys_nerr = num_error_names; for (eip = error_table; eip -> name != NULL; eip++) { sys_errlist[eip -> value] = eip -> msg; } } } #endif } /* NAME errno_max -- return the max errno value SYNOPSIS int errno_max (); DESCRIPTION Returns the maximum errno value for which a corresponding symbolic name or message is available. Note that in the case where we use the sys_errlist supplied by the system, it is possible for there to be more symbolic names than messages, or vice versa. In fact, the manual page for perror(3C) explicitly warns that one should check the size of the table (sys_nerr) before indexing it, since new error codes may be added to the system before they are added to the table. Thus sys_nerr might be smaller than value implied by the largest errno value defined in . We return the maximum value that can be used to obtain a meaningful symbolic name or message. */ int errno_max () { int maxsize; if (error_names == NULL) { init_error_tables (); } maxsize = MAX (sys_nerr, num_error_names); return (maxsize - 1); } #ifdef NEED_strerror /* NAME strerror -- map an error number to an error message string SYNOPSIS char *strerror (int errnoval) DESCRIPTION Maps an errno number to an error message string, the contents of which are implementation defined. On systems which have the external variables sys_nerr and sys_errlist, these strings will be the same as the ones used by perror(). If the supplied error number is within the valid range of indices for the sys_errlist, but no message is available for the particular error number, then returns the string "Error NUM", where NUM is the error number. If the supplied error number is not a valid index into sys_errlist, returns NULL. The returned string is only guaranteed to be valid only until the next call to strerror. */ char * strerror (errnoval) int errnoval; { char *msg; static char buf[32]; #ifdef NEED_sys_errlist if (error_names == NULL) { init_error_tables (); } #endif if ((errnoval < 0) || (errnoval >= sys_nerr)) { /* Out of range, just return NULL */ msg = NULL; } else if ((sys_errlist == NULL) || (sys_errlist[errnoval] == NULL)) { /* In range, but no sys_errlist or no entry at this index. */ sprintf (buf, "Error %d", errnoval); msg = buf; } else { /* In range, and a valid message. Just return the message. */ msg = (char *) sys_errlist[errnoval]; } return (msg); } #endif /* NEED_strerror */ /* NAME strerrno -- map an error number to a symbolic name string SYNOPSIS const char *strerrno (int errnoval) DESCRIPTION Given an error number returned from a system call (typically returned in errno), returns a pointer to a string containing the symbolic name of that error number, as found in . If the supplied error number is within the valid range of indices for symbolic names, but no name is available for the particular error number, then returns the string "Error NUM", where NUM is the error number. If the supplied error number is not within the range of valid indices, then returns NULL. BUGS The contents of the location pointed to are only guaranteed to be valid until the next call to strerrno. */ const char * strerrno (errnoval) int errnoval; { const char *name; static char buf[32]; if (error_names == NULL) { init_error_tables (); } if ((errnoval < 0) || (errnoval >= num_error_names)) { /* Out of range, just return NULL */ name = NULL; } else if ((error_names == NULL) || (error_names[errnoval] == NULL)) { /* In range, but no error_names or no entry at this index. */ sprintf (buf, "Error %d", errnoval); name = (const char *) buf; } else { /* In range, and a valid name. Just return the name. */ name = error_names[errnoval]; } return (name); } /* NAME strtoerrno -- map a symbolic errno name to a numeric value SYNOPSIS int strtoerrno (char *name) DESCRIPTION Given the symbolic name of a error number, map it to an errno value. If no translation is found, returns 0. */ int strtoerrno (name) const char *name; { int errnoval = 0; if (name != NULL) { if (error_names == NULL) { init_error_tables (); } for (errnoval = 0; errnoval < num_error_names; errnoval++) { if ((error_names[errnoval] != NULL) && (strcmp (name, error_names[errnoval]) == 0)) { break; } } if (errnoval == num_error_names) { errnoval = 0; } } return (errnoval); } /* A simple little main that does nothing but print all the errno translations if MAIN is defined and this file is compiled and linked. */ #ifdef MAIN #include int main () { int errn; int errnmax; const char *name; char *msg; char *strerror (); errnmax = errno_max (); printf ("%d entries in names table.\n", num_error_names); printf ("%d entries in messages table.\n", sys_nerr); printf ("%d is max useful index.\n", errnmax); /* Keep printing values until we get to the end of *both* tables, not *either* table. Note that knowing the maximum useful index does *not* relieve us of the responsibility of testing the return pointer for NULL. */ for (errn = 0; errn <= errnmax; errn++) { name = strerrno (errn); name = (name == NULL) ? "" : name; msg = strerror (errn); msg = (msg == NULL) ? "" : msg; printf ("%-4d%-18s%s\n", errn, name, msg); } return 0; } #endif gdb-4.13/libiberty/strncasecmp.c 666 34562 1752 6363 5460655406 15232 0ustar fnfcygnus/* * Copyright (c) 1987 Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms are permitted * provided that this notice is preserved and that due credit is given * to the University of California at Berkeley. The name of the University * may not be used to endorse or promote products derived from this * software without specific written prior permission. This software * is provided ``as is'' without express or implied warranty. */ #if defined(LIBC_SCCS) && !defined(lint) static char sccsid[] = "@(#)strcasecmp.c 5.5 (Berkeley) 11/24/87"; #endif /* LIBC_SCCS and not lint */ #include #include /* * This array is designed for mapping upper and lower case letter * together for a case independent comparison. The mappings are * based upon ascii character sequences. */ static unsigned char charmap[] = { '\000', '\001', '\002', '\003', '\004', '\005', '\006', '\007', '\010', '\011', '\012', '\013', '\014', '\015', '\016', '\017', '\020', '\021', '\022', '\023', '\024', '\025', '\026', '\027', '\030', '\031', '\032', '\033', '\034', '\035', '\036', '\037', '\040', '\041', '\042', '\043', '\044', '\045', '\046', '\047', '\050', '\051', '\052', '\053', '\054', '\055', '\056', '\057', '\060', '\061', '\062', '\063', '\064', '\065', '\066', '\067', '\070', '\071', '\072', '\073', '\074', '\075', '\076', '\077', '\100', '\141', '\142', '\143', '\144', '\145', '\146', '\147', '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157', '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167', '\170', '\171', '\172', '\133', '\134', '\135', '\136', '\137', '\140', '\141', '\142', '\143', '\144', '\145', '\146', '\147', '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157', '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167', '\170', '\171', '\172', '\173', '\174', '\175', '\176', '\177', '\200', '\201', '\202', '\203', '\204', '\205', '\206', '\207', '\210', '\211', '\212', '\213', '\214', '\215', '\216', '\217', '\220', '\221', '\222', '\223', '\224', '\225', '\226', '\227', '\230', '\231', '\232', '\233', '\234', '\235', '\236', '\237', '\240', '\241', '\242', '\243', '\244', '\245', '\246', '\247', '\250', '\251', '\252', '\253', '\254', '\255', '\256', '\257', '\260', '\261', '\262', '\263', '\264', '\265', '\266', '\267', '\270', '\271', '\272', '\273', '\274', '\275', '\276', '\277', '\300', '\341', '\342', '\343', '\344', '\345', '\346', '\347', '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357', '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367', '\370', '\371', '\372', '\333', '\334', '\335', '\336', '\337', '\340', '\341', '\342', '\343', '\344', '\345', '\346', '\347', '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357', '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367', '\370', '\371', '\372', '\373', '\374', '\375', '\376', '\377', }; int strncasecmp(s1, s2, n) char *s1, *s2; register int n; { register unsigned char u1, u2; for (; n != 0; --n) { u1 = (unsigned char) *s1++; u2 = (unsigned char) *s2++; if (charmap[u1] != charmap[u2]) { return charmap[u1] - charmap[u2]; } if (u1 == '\0') { return 0; } } return 0; } gdb-4.13/libiberty/strrchr.c 666 34562 1752 2520 5262376421 14363 0ustar fnfcygnus/* Portable version of strrchr(). Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME strrchr -- return pointer to last occurance of a character SYNOPSIS char *strrchr (const char *s, int c) DESCRIPTION Returns a pointer to the last occurance of character C in string S, or a NULL pointer if no occurance is found. BUGS Behavior when character is the null character is implementation dependent. */ #include char * strrchr (s, c) register CONST char *s; int c; { char *rtnval = 0; do { if (*s == c) rtnval = s; } while (*s++); return (rtnval); } gdb-4.13/libiberty/strsignal.c 666 34562 1752 36106 5532006505 14722 0ustar fnfcygnus/* Extended support for using signal values. Copyright (C) 1992 Free Software Foundation, Inc. Written by Fred Fish. fnf@cygnus.com This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "ansidecl.h" #include "libiberty.h" #include "config.h" #ifdef LOSING_SYS_SIGLIST #define sys_siglist no_such_symbol #endif #include #include /* Routines imported from standard C runtime libraries. */ #ifdef __STDC__ #include extern void *malloc (size_t size); /* 4.10.3.3 */ extern void *memset (void *s, int c, size_t n); /* 4.11.6.1 */ #else /* !__STDC__ */ extern char *malloc (); /* Standard memory allocater */ extern char *memset (); #endif /* __STDC__ */ #ifdef LOSING_SYS_SIGLIST #undef sys_siglist #endif #ifndef NULL # ifdef __STDC__ # define NULL (void *) 0 # else # define NULL 0 # endif #endif #ifndef MAX # define MAX(a,b) ((a) > (b) ? (a) : (b)) #endif /* Translation table for signal values. Note that this table is generally only accessed when it is used at runtime to initialize signal name and message tables that are indexed by signal value. Not all of these signals will exist on all systems. This table is the only thing that should have to be updated as new signal numbers are introduced. It's sort of ugly, but at least its portable. */ struct signal_info { int value; /* The numeric value from */ const char *name; /* The equivalent symbolic value */ #ifdef NEED_sys_siglist const char *msg; /* Short message about this value */ #endif }; #ifdef NEED_sys_siglist # define ENTRY(value, name, msg) {value, name, msg} #else # define ENTRY(value, name, msg) {value, name} #endif static const struct signal_info signal_table[] = { #if defined (SIGHUP) ENTRY(SIGHUP, "SIGHUP", "Hangup"), #endif #if defined (SIGINT) ENTRY(SIGINT, "SIGINT", "Interrupt"), #endif #if defined (SIGQUIT) ENTRY(SIGQUIT, "SIGQUIT", "Quit"), #endif #if defined (SIGILL) ENTRY(SIGILL, "SIGILL", "Illegal instruction"), #endif #if defined (SIGTRAP) ENTRY(SIGTRAP, "SIGTRAP", "Trace/breakpoint trap"), #endif /* Put SIGIOT before SIGABRT, so that if SIGIOT==SIGABRT then SIGABRT overrides SIGIOT. SIGABRT is in ANSI and POSIX.1, and SIGIOT isn't. */ #if defined (SIGIOT) ENTRY(SIGIOT, "SIGIOT", "IOT trap"), #endif #if defined (SIGABRT) ENTRY(SIGABRT, "SIGABRT", "Aborted"), #endif #if defined (SIGEMT) ENTRY(SIGEMT, "SIGEMT", "Emulation trap"), #endif #if defined (SIGFPE) ENTRY(SIGFPE, "SIGFPE", "Arithmetic exception"), #endif #if defined (SIGKILL) ENTRY(SIGKILL, "SIGKILL", "Killed"), #endif #if defined (SIGBUS) ENTRY(SIGBUS, "SIGBUS", "Bus error"), #endif #if defined (SIGSEGV) ENTRY(SIGSEGV, "SIGSEGV", "Segmentation fault"), #endif #if defined (SIGSYS) ENTRY(SIGSYS, "SIGSYS", "Bad system call"), #endif #if defined (SIGPIPE) ENTRY(SIGPIPE, "SIGPIPE", "Broken pipe"), #endif #if defined (SIGALRM) ENTRY(SIGALRM, "SIGALRM", "Alarm clock"), #endif #if defined (SIGTERM) ENTRY(SIGTERM, "SIGTERM", "Terminated"), #endif #if defined (SIGUSR1) ENTRY(SIGUSR1, "SIGUSR1", "User defined signal 1"), #endif #if defined (SIGUSR2) ENTRY(SIGUSR2, "SIGUSR2", "User defined signal 2"), #endif /* Put SIGCLD before SIGCHLD, so that if SIGCLD==SIGCHLD then SIGCHLD overrides SIGCLD. SIGCHLD is in POXIX.1 */ #if defined (SIGCLD) ENTRY(SIGCLD, "SIGCLD", "Child status changed"), #endif #if defined (SIGCHLD) ENTRY(SIGCHLD, "SIGCHLD", "Child status changed"), #endif #if defined (SIGPWR) ENTRY(SIGPWR, "SIGPWR", "Power fail/restart"), #endif #if defined (SIGWINCH) ENTRY(SIGWINCH, "SIGWINCH", "Window size changed"), #endif #if defined (SIGURG) ENTRY(SIGURG, "SIGURG", "Urgent I/O condition"), #endif #if defined (SIGIO) /* "I/O pending" has also been suggested, but is misleading since the signal only happens when the process has asked for it, not everytime I/O is pending. */ ENTRY(SIGIO, "SIGIO", "I/O possible"), #endif #if defined (SIGPOLL) ENTRY(SIGPOLL, "SIGPOLL", "Pollable event occurred"), #endif #if defined (SIGSTOP) ENTRY(SIGSTOP, "SIGSTOP", "Stopped (signal)"), #endif #if defined (SIGTSTP) ENTRY(SIGTSTP, "SIGTSTP", "Stopped (user)"), #endif #if defined (SIGCONT) ENTRY(SIGCONT, "SIGCONT", "Continued"), #endif #if defined (SIGTTIN) ENTRY(SIGTTIN, "SIGTTIN", "Stopped (tty input)"), #endif #if defined (SIGTTOU) ENTRY(SIGTTOU, "SIGTTOU", "Stopped (tty output)"), #endif #if defined (SIGVTALRM) ENTRY(SIGVTALRM, "SIGVTALRM", "Virtual timer expired"), #endif #if defined (SIGPROF) ENTRY(SIGPROF, "SIGPROF", "Profiling timer expired"), #endif #if defined (SIGXCPU) ENTRY(SIGXCPU, "SIGXCPU", "CPU time limit exceeded"), #endif #if defined (SIGXFSZ) ENTRY(SIGXFSZ, "SIGXFSZ", "File size limit exceeded"), #endif #if defined (SIGWIND) ENTRY(SIGWIND, "SIGWIND", "SIGWIND"), #endif #if defined (SIGPHONE) ENTRY(SIGPHONE, "SIGPHONE", "SIGPHONE"), #endif #if defined (SIGLOST) ENTRY(SIGLOST, "SIGLOST", "Resource lost"), #endif #if defined (SIGWAITING) ENTRY(SIGWAITING, "SIGWAITING", "Process's LWPs are blocked"), #endif #if defined (SIGLWP) ENTRY(SIGLWP, "SIGLWP", "Signal LWP"), #endif #if defined (SIGDANGER) ENTRY(SIGDANGER, "SIGDANGER", "Swap space dangerously low"), #endif #if defined (SIGGRANT) ENTRY(SIGGRANT, "SIGGRANT", "Monitor mode granted"), #endif #if defined (SIGRETRACT) ENTRY(SIGRETRACT, "SIGRETRACT", "Need to relinguish monitor mode"), #endif #if defined (SIGMSG) ENTRY(SIGMSG, "SIGMSG", "Monitor mode data available"), #endif #if defined (SIGSOUND) ENTRY(SIGSOUND, "SIGSOUND", "Sound completed"), #endif #if defined (SIGSAK) ENTRY(SIGSAK, "SIGSAK", "Secure attention"), #endif ENTRY(0, NULL, NULL) }; /* Translation table allocated and initialized at runtime. Indexed by the signal value to find the equivalent symbolic value. */ static const char **signal_names; static int num_signal_names = 0; /* Translation table allocated and initialized at runtime, if it does not already exist in the host environment. Indexed by the signal value to find the descriptive string. We don't export it for use in other modules because even though it has the same name, it differs from other implementations in that it is dynamically initialized rather than statically initialized. */ #ifdef NEED_sys_siglist static int sys_nsig; static const char **sys_siglist; #else static int sys_nsig = NSIG; extern const char * const sys_siglist[]; #endif /* NAME init_signal_tables -- initialize the name and message tables SYNOPSIS static void init_signal_tables (); DESCRIPTION Using the signal_table, which is initialized at compile time, generate the signal_names and the sys_siglist (if needed) tables, which are indexed at runtime by a specific signal value. BUGS The initialization of the tables may fail under low memory conditions, in which case we don't do anything particularly useful, but we don't bomb either. Who knows, it might succeed at a later point if we free some memory in the meantime. In any case, the other routines know how to deal with lack of a table after trying to initialize it. This may or may not be considered to be a bug, that we don't specifically warn about this particular failure mode. */ static void init_signal_tables () { const struct signal_info *eip; int nbytes; /* If we haven't already scanned the signal_table once to find the maximum signal value, then go find it now. */ if (num_signal_names == 0) { for (eip = signal_table; eip -> name != NULL; eip++) { if (eip -> value >= num_signal_names) { num_signal_names = eip -> value + 1; } } } /* Now attempt to allocate the signal_names table, zero it out, and then initialize it from the statically initialized signal_table. */ if (signal_names == NULL) { nbytes = num_signal_names * sizeof (char *); if ((signal_names = (const char **) malloc (nbytes)) != NULL) { memset (signal_names, 0, nbytes); for (eip = signal_table; eip -> name != NULL; eip++) { signal_names[eip -> value] = eip -> name; } } } #ifdef NEED_sys_siglist /* Now attempt to allocate the sys_siglist table, zero it out, and then initialize it from the statically initialized signal_table. */ if (sys_siglist == NULL) { nbytes = num_signal_names * sizeof (char *); if ((sys_siglist = (const char **) malloc (nbytes)) != NULL) { memset (sys_siglist, 0, nbytes); sys_nsig = num_signal_names; for (eip = signal_table; eip -> name != NULL; eip++) { sys_siglist[eip -> value] = eip -> msg; } } } #endif } /* NAME signo_max -- return the max signo value SYNOPSIS int signo_max (); DESCRIPTION Returns the maximum signo value for which a corresponding symbolic name or message is available. Note that in the case where we use the sys_siglist supplied by the system, it is possible for there to be more symbolic names than messages, or vice versa. In fact, the manual page for psignal(3b) explicitly warns that one should check the size of the table (NSIG) before indexing it, since new signal codes may be added to the system before they are added to the table. Thus NSIG might be smaller than value implied by the largest signo value defined in . We return the maximum value that can be used to obtain a meaningful symbolic name or message. */ int signo_max () { int maxsize; if (signal_names == NULL) { init_signal_tables (); } maxsize = MAX (sys_nsig, num_signal_names); return (maxsize - 1); } /* NAME strsignal -- map a signal number to a signal message string SYNOPSIS const char *strsignal (int signo) DESCRIPTION Maps an signal number to an signal message string, the contents of which are implementation defined. On systems which have the external variable sys_siglist, these strings will be the same as the ones used by psignal(). If the supplied signal number is within the valid range of indices for the sys_siglist, but no message is available for the particular signal number, then returns the string "Signal NUM", where NUM is the signal number. If the supplied signal number is not a valid index into sys_siglist, returns NULL. The returned string is only guaranteed to be valid only until the next call to strsignal. */ const char * strsignal (signo) int signo; { const char *msg; static char buf[32]; #ifdef NEED_sys_siglist if (signal_names == NULL) { init_signal_tables (); } #endif if ((signo < 0) || (signo >= sys_nsig)) { /* Out of range, just return NULL */ msg = NULL; } else if ((sys_siglist == NULL) || (sys_siglist[signo] == NULL)) { /* In range, but no sys_siglist or no entry at this index. */ sprintf (buf, "Signal %d", signo); msg = (const char *) buf; } else { /* In range, and a valid message. Just return the message. */ msg = (const char *) sys_siglist[signo]; } return (msg); } /* NAME strsigno -- map an signal number to a symbolic name string SYNOPSIS const char *strsigno (int signo) DESCRIPTION Given an signal number, returns a pointer to a string containing the symbolic name of that signal number, as found in . If the supplied signal number is within the valid range of indices for symbolic names, but no name is available for the particular signal number, then returns the string "Signal NUM", where NUM is the signal number. If the supplied signal number is not within the range of valid indices, then returns NULL. BUGS The contents of the location pointed to are only guaranteed to be valid until the next call to strsigno. */ const char * strsigno (signo) int signo; { const char *name; static char buf[32]; if (signal_names == NULL) { init_signal_tables (); } if ((signo < 0) || (signo >= num_signal_names)) { /* Out of range, just return NULL */ name = NULL; } else if ((signal_names == NULL) || (signal_names[signo] == NULL)) { /* In range, but no signal_names or no entry at this index. */ sprintf (buf, "Signal %d", signo); name = (const char *) buf; } else { /* In range, and a valid name. Just return the name. */ name = signal_names[signo]; } return (name); } /* NAME strtosigno -- map a symbolic signal name to a numeric value SYNOPSIS int strtosigno (char *name) DESCRIPTION Given the symbolic name of a signal, map it to a signal number. If no translation is found, returns 0. */ int strtosigno (name) const char *name; { int signo = 0; if (name != NULL) { if (signal_names == NULL) { init_signal_tables (); } for (signo = 0; signo < num_signal_names; signo++) { if ((signal_names[signo] != NULL) && (strcmp (name, signal_names[signo]) == 0)) { break; } } if (signo == num_signal_names) { signo = 0; } } return (signo); } /* NAME psignal -- print message about signal to stderr SYNOPSIS void psignal (unsigned signo, char *message); DESCRIPTION Print to the standard error the message, followed by a colon, followed by the description of the signal specified by signo, followed by a newline. */ #ifdef NEED_psignal void psignal (signo, message) unsigned signo; char *message; { if (signal_names == NULL) { init_signal_tables (); } if ((signo <= 0) || (signo >= sys_nsig)) { fprintf (stderr, "%s: unknown signal\n", message); } else { fprintf (stderr, "%s: %s\n", message, sys_siglist[signo]); } } #endif /* NEED_psignal */ /* A simple little main that does nothing but print all the signal translations if MAIN is defined and this file is compiled and linked. */ #ifdef MAIN #include int main () { int signo; int maxsigno; const char *name; const char *msg; maxsigno = signo_max (); printf ("%d entries in names table.\n", num_signal_names); printf ("%d entries in messages table.\n", sys_nsig); printf ("%d is max useful index.\n", maxsigno); /* Keep printing values until we get to the end of *both* tables, not *either* table. Note that knowing the maximum useful index does *not* relieve us of the responsibility of testing the return pointer for NULL. */ for (signo = 0; signo <= maxsigno; signo++) { name = strsigno (signo); name = (name == NULL) ? "" : name; msg = strsignal (signo); msg = (msg == NULL) ? "" : msg; printf ("%-4d%-18s%s\n", signo, name, msg); } return 0; } #endif gdb-4.13/libiberty/strstr.c 666 34562 1752 3265 5262376426 14251 0ustar fnfcygnus/* Simple implementation of strstr for systems without it. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* NAME strstr -- locate first occurance of a substring SYNOPSIS #include char *strstr (char *s1, char *s2) DESCRIPTION Locates the first occurance in the string pointed to by S1 of the string pointed to by S2. Returns a pointer to the substring found, or a NULL pointer if not found. If S2 points to a string with zero length, the function returns S1. BUGS */ /* FIXME: The above description is ANSI compiliant. This routine has not been validated to comply with it. -fnf */ char * strstr (s1, s2) char *s1, *s2; { register char *p = s1; extern char *strchr (); extern int strncmp (); #if __GNUC__==2 extern __SIZE_TYPE__ strlen (); #endif register int len = strlen (s2); for (; (p = strchr (p, *s2)) != 0; p++) { if (strncmp (p, s2, len) == 0) { return (p); } } return (0); } gdb-4.13/libiberty/strtod.c 666 34562 1752 5105 5514551751 14216 0ustar fnfcygnus/* Implementation of strtod for systems with atof. Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include extern double atof (); /* Disclaimer: this is currently just used by CHILL in GDB and therefore has not been tested well. It may have been tested for nothing except that it compiles. */ double strtod (str, ptr) char *str; char **ptr; { char *p; if (ptr == (char **)0) return atof (str); p = str; while (isspace (*p)) ++p; if (*p == '+' || *p == '-') ++p; /* INF or INFINITY. */ if ((p[0] == 'i' || p[0] == 'I') && (p[1] == 'n' || p[1] == 'N') && (p[2] == 'f' || p[2] == 'F')) { if ((p[3] == 'i' || p[3] == 'I') && (p[4] == 'n' || p[4] == 'N') && (p[5] == 'i' || p[5] == 'I') && (p[6] == 't' || p[6] == 'T') && (p[7] == 'y' || p[7] == 'Y')) { *ptr = p + 7; return atof (str); } else { *ptr = p + 3; return atof (str); } } /* NAN or NAN(foo). */ if ((p[0] == 'n' || p[0] == 'N') && (p[1] == 'a' || p[1] == 'A') && (p[2] == 'n' || p[2] == 'N')) { p += 3; if (*p == '(') { ++p; while (*p != '\0' && *p != ')') ++p; if (*p == ')') ++p; } *ptr = p; return atof (str); } /* digits, with 0 or 1 periods in it. */ if (isdigit (*p) || *p == '.') { int got_dot = 0; while (isdigit (*p) || (!got_dot && *p == '.')) { if (*p == '.') got_dot = 1; ++p; } /* Exponent. */ if (*p == 'e' || *p == 'E') { int i; i = 1; if (p[i] == '+' || p[i] == '-') ++i; if (isdigit (p[i])) { while (isdigit (p[i])) ++i; *ptr = p + i; return atof (str); } } *ptr = p; return atof (str); } /* Didn't find any digits. Doesn't look like a number. */ *ptr = str; return 0.0; } gdb-4.13/libiberty/strtol.c 666 34562 1752 2355 5457572763 14246 0ustar fnfcygnus/* * strtol : convert a string to long. * * Andy Wilson, 2-Oct-89. */ #include #include #include #include "ansidecl.h" /* FIXME: It'd be nice to configure around these, but the include files are too painful. These macros should at least be more portable than hardwired hex constants. */ #define ULONG_MAX ((unsigned long)(~0L)) /* 0xFFFFFFFF */ #define LONG_MAX ((long)(ULONG_MAX >> 1)) /* 0x7FFFFFFF */ #define LONG_MIN ((long)(~LONG_MAX)) /* 0x80000000 */ extern int errno; long strtol(s, ptr, base) CONST char *s; char **ptr; int base; { extern unsigned long strtoul(); int minus=0; unsigned long tmp; CONST char *start=s, *eptr; if (s==NULL) { errno = ERANGE; if (!ptr) *ptr = (char *)start; return 0L; } while (isspace(*s)) s++; if (*s == '-') { s++; minus = 1; } else if (*s == '+') s++; /* * let strtoul do the hard work. */ tmp = strtoul(s, &eptr, base); if (ptr != NULL) *ptr = (char *)((eptr==s) ? (char *)start : eptr); if (tmp > (minus ? - (unsigned long) LONG_MIN : (unsigned long) LONG_MAX)) { errno = ERANGE; return (minus ? LONG_MIN : LONG_MAX); } return (minus ? (long) -tmp : (long) tmp); } gdb-4.13/libiberty/strtoul.c 666 34562 1752 3641 5470207765 14422 0ustar fnfcygnus/* * strtol : convert a string to long. * * Andy Wilson, 2-Oct-89. */ #include #include #include #include "ansidecl.h" #ifndef ULONG_MAX #define ULONG_MAX ((unsigned long)(~0L)) /* 0xFFFFFFFF */ #endif extern int errno; unsigned long strtoul(s, ptr, base) CONST char *s; char **ptr; int base; { unsigned long total = 0; unsigned digit; CONST char *start=s; int did_conversion=0; int overflow = 0; int negate = 0; unsigned long maxdiv, maxrem; if (s==NULL) { errno = ERANGE; if (!ptr) *ptr = (char *)start; return 0L; } while (isspace(*s)) s++; if (*s == '+') s++; else if (*s == '-') s++, negate = 1; if (base==0 || base==16) /* the 'base==16' is for handling 0x */ { int tmp; /* * try to infer base from the string */ if (*s != '0') tmp = 10; /* doesn't start with 0 - assume decimal */ else if (s[1] == 'X' || s[1] == 'x') tmp = 16, s += 2; /* starts with 0x or 0X - hence hex */ else tmp = 8; /* starts with 0 - hence octal */ if (base==0) base = (int)tmp; } maxdiv = ULONG_MAX / base; maxrem = ULONG_MAX % base; while ((digit = *s) != '\0') { if (digit >= '0' && digit < ('0'+base)) digit -= '0'; else if (base > 10) { if (digit >= 'a' && digit < ('a'+(base-10))) digit = digit - 'a' + 10; else if (digit >= 'A' && digit < ('A'+(base-10))) digit = digit - 'A' + 10; else break; } else break; did_conversion = 1; if (total > maxdiv || (total == maxdiv && digit > maxrem)) overflow = 1; total = (total * base) + digit; s++; } if (overflow) { errno = ERANGE; if (ptr != NULL) *ptr = (char *)s; return (ULONG_MAX); } if (ptr != NULL) *ptr = (char *) ((did_conversion) ? (char *)s : (char *)start); return negate ? -total : total; } gdb-4.13/libiberty/tmpnam.c 666 34562 1752 1153 5367353503 14173 0ustar fnfcygnus#include #ifndef L_tmpnam #define L_tmpname 100 #endif #ifndef P_tmpdir #define P_tmpdir "/usr/tmp" #endif static char tmpnam_buffer[L_tmpnam]; static int tmpnam_counter; extern int getpid (); char * tmpnam (s) char *s; { int pid = getpid (); if (s == NULL) s = tmpnam_buffer; /* Generate the filename and make sure that there isn't one called it already. */ while (1) { FILE *f; sprintf (s, "%s/%s%x.%x", P_tmpdir, "t", pid, tmpnam_counter); f = fopen (s, "r"); if (f == NULL) break; tmpnam_counter++; fclose (f); } return s; } gdb-4.13/libiberty/vasprintf.c 666 34562 1752 6200 5565043113 14702 0ustar fnfcygnus/* Like vsprintf but provides a pointer to malloc'd storage, which must be freed by the caller. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #ifdef TEST int global_total_width; #endif unsigned long strtoul (); char *malloc (); int vasprintf (result, format, args) char **result; char *format; va_list args; { char *p = format; /* Add one to make sure that it is never zero, which might cause malloc to return NULL. */ int total_width = strlen (format) + 1; va_list ap = args; while (*p != '\0') { if (*p++ == '%') { while (strchr ("-+ #0", *p)) ++p; if (*p == '*') { ++p; total_width += abs (va_arg (ap, int)); } else total_width += strtoul (p, &p, 10); if (*p == '.') { ++p; if (*p == '*') { ++p; total_width += abs (va_arg (ap, int)); } else total_width += strtoul (p, &p, 10); } while (strchr ("hlL", *p)) ++p; /* Should be big enough for any format specifier except %s. */ total_width += 30; switch (*p) { case 'd': case 'i': case 'o': case 'u': case 'x': case 'X': case 'c': va_arg (ap, int); break; case 'f': case 'e': case 'E': case 'g': case 'G': va_arg (ap, double); break; case 's': total_width += strlen (va_arg (ap, char *)); break; case 'p': case 'n': va_arg (ap, char *); break; } } } #ifdef TEST global_total_width = total_width; #endif *result = malloc (total_width); if (*result != NULL) return vsprintf (*result, format, args); else return 0; } #ifdef TEST void checkit (va_alist) va_dcl { va_list args; char *format; char *result; va_start (args); format = va_arg (args, char *); vasprintf (&result, format, args); if (strlen (result) < global_total_width) printf ("PASS: "); else printf ("FAIL: "); printf ("%d %s\n", global_total_width, result); } int main () { checkit ("%d", 0x12345678); checkit ("%200d", 5); checkit ("%.300d", 6); checkit ("%100.150d", 7); checkit ("%s", "jjjjjjjjjiiiiiiiiiiiiiiioooooooooooooooooppppppppppppaa\n\ 777777777777777777333333333333366666666666622222222222777777777777733333"); checkit ("%f%s%d%s", 1.0, "foo", 77, "asdjffffffffffffffiiiiiiiiiiixxxxx"); } #endif /* TEST */ gdb-4.13/libiberty/vfprintf.c 666 34562 1752 324 5466260777 14526 0ustar fnfcygnus#include #include #include #undef vfprintf int vfprintf (file, format, ap) FILE *file; const char *format; va_list ap; { return _doprnt (format, ap, file); } gdb-4.13/libiberty/vprintf.c 666 34562 1752 274 5466261003 14343 0ustar fnfcygnus#include #include #include #undef vprintf int vprintf (format, ap) const char *format; va_list ap; { return vfprintf (stdout, format, ap); } gdb-4.13/libiberty/vsprintf.c 666 34562 1752 2771 5466261005 14554 0ustar fnfcygnus/* Simple implementation of vsprintf for systems without it. Highly system-dependent, but should work on most "traditional" implementations of stdio; newer ones should already have vsprintf. Written by Per Bothner of Cygnus Support. Based on libg++'s "form" (written by Doug Lea; dl@rocky.oswego.edu). Copyright (C) 1991 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include #undef vsprintf int vsprintf (buf, format, ap) char *buf; const char *format; va_list ap; { FILE b; int ret; #ifdef VMS b->_flag = _IOWRT|_IOSTRG; b->_ptr = buf; b->_cnt = 12000; #else b._flag = _IOWRT|_IOSTRG; b._ptr = buf; b._cnt = 12000; #endif ret = _doprnt(format, ap, &b); putc('\0', &b); return ret; } gdb-4.13/libiberty/waitpid.c 666 34562 1752 262 5475475475 14335 0ustar fnfcygnusint waitpid (pid, stat_loc, options) int pid, *stat_loc, options; { for (;;) { int wpid = wait(stat_loc); if (wpid == pid || wpid == -1) return wpid; } } gdb-4.13/libiberty/xatexit.c 666 34562 1752 3100 5530733716 14357 0ustar fnfcygnus/* * Copyright (c) 1990 Regents of the University of California. * All rights reserved. * * %sccs.include.redist.c% */ /* Adapted from newlib/libc/stdlib/{,at}exit.[ch]. If you use xatexit, you must call xexit instead of exit. */ #include "ansidecl.h" #include "libiberty.h" #include static void xatexit_cleanup PARAMS ((void)); /* Pointer to function run by xexit. */ extern void (*_xexit_cleanup) (); #define XATEXIT_SIZE 32 struct xatexit { struct xatexit *next; /* next in list */ int ind; /* next index in this table */ void (*fns[XATEXIT_SIZE]) PARAMS ((void)); /* the table itself */ }; /* Allocate one struct statically to guarantee that we can register at least a few handlers. */ static struct xatexit xatexit_first; /* Points to head of LIFO stack. */ static struct xatexit *xatexit_head = &xatexit_first; /* Register function FN to be run by xexit. Return 0 if successful, -1 if not. */ int xatexit (fn) void (*fn) PARAMS ((void)); { register struct xatexit *p; /* Tell xexit to call xatexit_cleanup. */ if (!_xexit_cleanup) _xexit_cleanup = xatexit_cleanup; p = xatexit_head; if (p->ind >= XATEXIT_SIZE) { if ((p = (struct xatexit *) malloc (sizeof *p)) == NULL) return -1; p->ind = 0; p->next = xatexit_head; xatexit_head = p; } p->fns[p->ind++] = fn; return 0; } /* Call any cleanup functions. */ static void xatexit_cleanup () { register struct xatexit *p; register int n; for (p = xatexit_head; p; p = p->next) for (n = p->ind; --n >= 0;) (*p->fns[n]) (); } gdb-4.13/libiberty/xexit.c 666 34562 1752 2221 5530733717 14036 0ustar fnfcygnus/* xexit.c -- Run any exit handlers, then exit. Copyright (C) 1994 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "ansidecl.h" #include "libiberty.h" #include /* This variable is set by xatexit if it is called. This way, xmalloc doesn't drag xatexit into the link. */ void (*_xexit_cleanup) (); void xexit (code) int code; { if (_xexit_cleanup != NULL) (*_xexit_cleanup) (); exit (code); } gdb-4.13/libiberty/xmalloc.c 666 34562 1752 3701 5530335226 14331 0ustar fnfcygnus/* memory allocation routines with error checking. Copyright 1989, 90, 91, 92, 93, 94 Free Software Foundation, Inc. This file is part of the libiberty library. Libiberty is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Libiberty 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with libiberty; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "ansidecl.h" #include "libiberty.h" #include #ifdef __STDC__ #include #else #define size_t unsigned long #endif /* For systems with larger pointers than ints, these must be declared. */ PTR malloc PARAMS ((size_t)); PTR realloc PARAMS ((PTR, size_t)); /* The program name if set. */ static const char *name = ""; void xmalloc_set_program_name (s) const char *s; { name = s; } PTR xmalloc (size) size_t size; { PTR newmem; if (size == 0) size = 1; newmem = malloc (size); if (!newmem) { fprintf (stderr, "\n%s%sCan not allocate %lu bytes\n", name, *name ? ": " : "", (unsigned long) size); xexit (1); } return (newmem); } PTR xrealloc (oldmem, size) PTR oldmem; size_t size; { PTR newmem; if (size == 0) size = 1; if (!oldmem) newmem = malloc (size); else newmem = realloc (oldmem, size); if (!newmem) { fprintf (stderr, "\n%s%sCan not reallocate %lu bytes\n", name, *name ? ": " : "", (unsigned long) size); xexit (1); } return (newmem); } gdb-4.13/mmalloc/ 777 34562 1752 0 5623251713 12105 5ustar fnfcygnusgdb-4.13/mmalloc/config/ 777 34562 1752 0 5623251155 13352 5ustar fnfcygnusgdb-4.13/mmalloc/config/mh-go32 666 34562 1752 125 5562521641 14511 0ustar fnfcygnusCC=i386-go32-gcc -O2 -fno-omit-frame-pointer AR=i386-go32-ar RANLIB=i386-go32-ranlib gdb-4.13/mmalloc/config/mh-irix4 666 34562 1752 51 5164027324 14751 0ustar fnfcygnusRANLIB = echo INSTALL = cp CC = cc -cckr gdb-4.13/mmalloc/config/mh-ncr3000 666 34562 1752 1271 5217166662 15054 0ustar fnfcygnus# The NCR 3000 ships with a MetaWare compiler installed as /bin/cc. # This compiler not only emits obnoxious copyright messages every time # you run it, but it chokes and dies on a whole bunch of GNU source # files. Default to using the AT&T compiler installed in /usr/ccs/ATT/cc. # Unfortunately though, the AT&T compiler sometimes generates code that # the assembler barfs on if -g is used, so disable it by default as well. CC = /usr/ccs/ATT/cc CFLAGS = # SVR4 has mmap(), so compile according. HDEFINES = -DHAVE_MMAP # SVR4 does not have or need ranlib. RANLIB = true # The /usr/ucb/install program is incompatible (complains about unknown # group staff). Use good old cp... INSTALL = cp gdb-4.13/mmalloc/config/mh-sunos4 666 34562 1752 106 5160535271 15167 0ustar fnfcygnus# SUN OS 4.X has mmap(), so compile according. HDEFINES = -DHAVE_MMAP gdb-4.13/mmalloc/config/mh-sysv4 666 34562 1752 301 5215262202 15011 0ustar fnfcygnus# SVR4 has mmap(), so compile according. HDEFINES = -DHAVE_MMAP # SVR4 does not have or need ranlib. RANLIB=echo >/dev/null # Use BSD compatible install program INSTALL = /usr/ucb/install -c gdb-4.13/mmalloc/COPYING.LIB 666 34562 1752 61261 5472325042 13652 0ustar fnfcygnus GNU LIBRARY GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. [This is the first released version of the library GPL. It is numbered 2 because it goes with version 2 of the ordinary GPL.] Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public Licenses are intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This license, the Library General Public License, applies to some specially designated Free Software Foundation software, and to any other libraries whose authors decide to use it. You can use it for your libraries, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the library, or if you modify it. For example, if you distribute copies of the library, whether gratis or for a fee, you must give the recipients all the rights that we gave you. You must make sure that they, too, receive or can get the source code. If you link a program with the library, you must provide complete object files to the recipients so that they can relink them with the library, after making changes to the library and recompiling it. And you must show them these terms so they know their rights. Our method of protecting your rights has two steps: (1) copyright the library, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the library. Also, for each distributor's protection, we want to make certain that everyone understands that there is no warranty for this free library. If the library is modified by someone else and passed on, we want its recipients to know that what they have is not the original version, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that companies distributing free software will individually obtain patent licenses, thus in effect transforming the program into proprietary software. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. Most GNU software, including some libraries, is covered by the ordinary GNU General Public License, which was designed for utility programs. This license, the GNU Library General Public License, applies to certain designated libraries. This license is quite different from the ordinary one; be sure to read it in full, and don't assume that anything in it is the same as in the ordinary license. The reason we have a separate public license for some libraries is that they blur the distinction we usually make between modifying or adding to a program and simply using it. Linking a program with a library, without changing the library, is in some sense simply using the library, and is analogous to running a utility program or application program. However, in a textual and legal sense, the linked executable is a combined work, a derivative of the original library, and the ordinary General Public License treats it as such. Because of this blurred distinction, using the ordinary General Public License for libraries did not effectively promote software sharing, because most developers did not use the libraries. We concluded that weaker conditions might promote sharing better. However, unrestricted linking of non-free programs would deprive the users of those programs of all benefit from the free status of the libraries themselves. This Library General Public License is intended to permit developers of non-free programs to use free libraries, while preserving your freedom as a user of such programs to change the free libraries that are incorporated in them. (We have not seen how to achieve this as regards changes in header files, but we have achieved it as regards changes in the actual functions of the Library.) The hope is that this will lead to faster development of free libraries. The precise terms and conditions for copying, distribution and modification follow. Pay close attention to the difference between a "work based on the library" and a "work that uses the library". The former contains code derived from the library, while the latter only works together with the library. Note that it is possible for a library to be covered by the ordinary General Public License rather than by this special one. GNU LIBRARY GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any software library which contains a notice placed by the copyright holder or other authorized party saying it may be distributed under the terms of this Library General Public License (also called "this License"). Each licensee is addressed as "you". A "library" means a collection of software functions and/or data prepared so as to be conveniently linked with application programs (which use some of those functions and data) to form executables. The "Library", below, refers to any such software library or work which has been distributed under these terms. A "work based on the Library" means either the Library or any derivative work under copyright law: that is to say, a work containing the Library or a portion of it, either verbatim or with modifications and/or translated straightforwardly into another language. (Hereinafter, translation is included without limitation in the term "modification".) "Source code" for a work means the preferred form of the work for making modifications to it. For a library, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the library. Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running a program using the Library is not restricted, and output from such a program is covered only if its contents constitute a work based on the Library (independent of the use of the Library in a tool for writing it). Whether that is true depends on what the Library does and what the program that uses the Library does. 1. You may copy and distribute verbatim copies of the Library's complete source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and distribute a copy of this License along with the Library. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Library or any portion of it, thus forming a work based on the Library, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) The modified work must itself be a software library. b) You must cause the files modified to carry prominent notices stating that you changed the files and the date of any change. c) You must cause the whole of the work to be licensed at no charge to all third parties under the terms of this License. d) If a facility in the modified Library refers to a function or a table of data to be supplied by an application program that uses the facility, other than as an argument passed when the facility is invoked, then you must make a good faith effort to ensure that, in the event an application does not supply such function or table, the facility still operates, and performs whatever part of its purpose remains meaningful. (For example, a function in a library to compute square roots has a purpose that is entirely well-defined independent of the application. Therefore, Subsection 2d requires that any application-supplied function or table used by this function must be optional: if the application does not supply it, the square root function must still compute square roots.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Library, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Library, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Library. In addition, mere aggregation of another work not based on the Library with the Library (or with a work based on the Library) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may opt to apply the terms of the ordinary GNU General Public License instead of this License to a given copy of the Library. To do this, you must alter all the notices that refer to this License, so that they refer to the ordinary GNU General Public License, version 2, instead of to this License. (If a newer version than version 2 of the ordinary GNU General Public License has appeared, then you can specify that version instead if you wish.) Do not make any other change in these notices. Once this change is made in a given copy, it is irreversible for that copy, so the ordinary GNU General Public License applies to all subsequent copies and derivative works made from that copy. This option is useful when you wish to copy part of the code of the Library into a program that is not a library. 4. You may copy and distribute the Library (or a portion or derivative of it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange. If distribution of object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place satisfies the requirement to distribute the source code, even though third parties are not compelled to copy the source along with the object code. 5. A program that contains no derivative of any portion of the Library, but is designed to work with the Library by being compiled or linked with it, is called a "work that uses the Library". Such a work, in isolation, is not a derivative work of the Library, and therefore falls outside the scope of this License. However, linking a "work that uses the Library" with the Library creates an executable that is a derivative of the Library (because it contains portions of the Library), rather than a "work that uses the library". The executable is therefore covered by this License. Section 6 states terms for distribution of such executables. When a "work that uses the Library" uses material from a header file that is part of the Library, the object code for the work may be a derivative work of the Library even though the source code is not. Whether this is true is especially significant if the work can be linked without the Library, or if the work is itself a library. The threshold for this to be true is not precisely defined by law. If such an object file uses only numerical parameters, data structure layouts and accessors, and small macros and small inline functions (ten lines or less in length), then the use of the object file is unrestricted, regardless of whether it is legally a derivative work. (Executables containing this object code plus portions of the Library will still fall under Section 6.) Otherwise, if the work is a derivative of the Library, you may distribute the object code for the work under the terms of Section 6. Any executables containing that work also fall under Section 6, whether or not they are linked directly with the Library itself. 6. As an exception to the Sections above, you may also compile or link a "work that uses the Library" with the Library to produce a work containing portions of the Library, and distribute that work under terms of your choice, provided that the terms permit modification of the work for the customer's own use and reverse engineering for debugging such modifications. You must give prominent notice with each copy of the work that the Library is used in it and that the Library and its use are covered by this License. You must supply a copy of this License. If the work during execution displays copyright notices, you must include the copyright notice for the Library among them, as well as a reference directing the user to the copy of this License. Also, you must do one of these things: a) Accompany the work with the complete corresponding machine-readable source code for the Library including whatever changes were used in the work (which must be distributed under Sections 1 and 2 above); and, if the work is an executable linked with the Library, with the complete machine-readable "work that uses the Library", as object code and/or source code, so that the user can modify the Library and then relink to produce a modified executable containing the modified Library. (It is understood that the user who changes the contents of definitions files in the Library will not necessarily be able to recompile the application to use the modified definitions.) b) Accompany the work with a written offer, valid for at least three years, to give the same user the materials specified in Subsection 6a, above, for a charge no more than the cost of performing this distribution. c) If distribution of the work is made by offering access to copy from a designated place, offer equivalent access to copy the above specified materials from the same place. d) Verify that the user has already received a copy of these materials or that you have already sent this user a copy. For an executable, the required form of the "work that uses the Library" must include any data and utility programs needed for reproducing the executable from it. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. It may happen that this requirement contradicts the license restrictions of other proprietary libraries that do not normally accompany the operating system. Such a contradiction means you cannot use both them and the Library together in an executable that you distribute. 7. You may place library facilities that are a work based on the Library side-by-side in a single library together with other library facilities not covered by this License, and distribute such a combined library, provided that the separate distribution of the work based on the Library and of the other library facilities is otherwise permitted, and provided that you do these two things: a) Accompany the combined library with a copy of the same work based on the Library, uncombined with any other library facilities. This must be distributed under the terms of the Sections above. b) Give prominent notice with the combined library of the fact that part of it is a work based on the Library, and explaining where to find the accompanying uncombined form of the same work. 8. You may not copy, modify, sublicense, link with, or distribute the Library except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense, link with, or distribute the Library is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 9. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Library or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Library (or any work based on the Library), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Library or works based on it. 10. Each time you redistribute the Library (or any work based on the Library), the recipient automatically receives a license from the original licensor to copy, distribute, link with or modify the Library subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 11. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Library at all. For example, if a patent license would not permit royalty-free redistribution of the Library by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Library. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply, and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 12. If the distribution and/or use of the Library is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Library under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 13. The Free Software Foundation may publish revised and/or new versions of the Library General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Library specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Library does not specify a license version number, you may choose any version ever published by the Free Software Foundation. 14. If you wish to incorporate parts of the Library into other free programs whose distribution conditions are incompatible with these, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Libraries If you develop a new library, and you want it to be of the greatest possible use to the public, we recommend making it free software that everyone can redistribute and change. You can do so by permitting redistribution under these terms (or, alternatively, under the terms of the ordinary General Public License). To apply these terms, attach the following notices to the library. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the library, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the library `Frob' (a library for tweaking knobs) written by James Random Hacker. , 1 April 1990 Ty Coon, President of Vice That's all there is to it! gdb-4.13/mmalloc/ChangeLog 666 34562 1752 14523 5562521632 13766 0ustar fnfcygnusFri May 6 13:04:25 1994 Steve Chamberlain (sac@cygnus.com) * config/go32.mh: New file * configure.in (host==go32): Use new fragment. Tue Feb 8 00:32:28 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mmtrace.c (tr_freehook, tr_mallochook, tr_reallochook): Cast addresses put out via fprintf to unsigned long and use %lx. Tue Nov 16 20:33:17 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * COPYING.LIB: New file (standard version 2 LGPL, as already cited by the source files). Fri Nov 5 11:47:33 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in (info dvi install-info): Actually make the manual. Mon Nov 1 14:20:25 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * mmalloc.texi: Fix typo ("for for" -> "for"). Fri Jul 16 15:27:08 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * test1.c: New file which tests for bug fixed below. * Makefile.in (check): Put in commands to run it (but commented out because it won't work for Canadian cross). * mmalloc.c (mmalloc): When extending a free block at the end of the heap, check whether which block is at the end changed. * Makefile.in (TAGS): make work when srcdir != objdir. Thu Jul 15 07:56:47 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * attach.c, detach.c: Include before . Wed Jun 30 11:00:53 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Add mostlyclean and realclean targets. Wed Mar 24 01:58:12 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: add dvi and installcheck targets Fri Mar 12 18:35:43 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: recognize *-*-solaris2* instead of *-*-solaris* (a number of people want to call SunOS 4.1.2 "solaris1.0" and get it right) Mon Feb 22 18:08:53 1993 John Gilmore (gnu@cygnus.com) * Makefile.in (distclean): Add. Tue Feb 16 08:09:15 1993 Fred Fish (fnf@cygnus.com) * Makefile.in, attach.c, detach.c, keys.c, mmap-sup.c, mmtrace.c, sbrk-sup.c: Use GNU Library General Public License, like other files. Wed Nov 18 19:18:59 1992 John Gilmore (gnu@cygnus.com) * configure.in: Regularize list of host configs. Fri Oct 30 00:59:46 1992 John Gilmore (gnu@cygnus.com) * mmalloc.texi: Add missing doubled @. Bugfix by Paul Eggert. Fri Oct 23 01:50:52 1992 Stu Grossman (grossman at cygnus.com) * configure.in: Handle solaris same as sysv4. Thu Oct 1 23:34:20 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: use cpu-vendor-os triple instead of nested cases Sun Aug 23 11:09:46 1992 Fred Fish (fnf@cygnus.com) * sbrk-sup.c (__mmalloc_brk_init): Ensure base of sbrk'd region is aligned. Bug reported by Andrew Heybey (ath@lcs.mit.edu). Wed Aug 19 14:49:23 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: always create installation directories. Mon Jul 20 21:15:44 1992 Fred Fish (fnf@cygnus.com) * mrealloc.c: Minor code format style changes for consistency. Fri Jul 3 20:25:30 1992 Fred Fish (fnf@cygnus.com) * attach.c, detach.c, mcalloc.c, mmalloc.c, mmtrace.c, mrealloc.c, sbrk-sup.c: Remove "(void)" casts from function calls where the return value is ignored, in accordance with GNU coding standards. Tue Jun 30 16:44:41 1992 Fred Fish (fnf@cygnus.com) * mmalloc.h (struct mdesc): Add FIXME comments to point out the need to save some data on a per-process basis for mapped regions that are shared. * attach.c (reuse): Update the morecore field for reused mapped regions to be correct for the current process. Mon Jun 29 10:45:25 1992 Fred Fish (fnf at cygnus.com) * mmtrace.c: Lint. Mon Jun 15 12:20:16 1992 Fred Fish (fnf@cygnus.com) * mmalloc.h (struct mdesc): Change member "errno" to "saved_errno" to avoid possible conflict with ANSI C environments, where it is allowed to be a macro. * config/mh-ncr3000 (INSTALL): Don't use /usr/ucb/install, it is broken on ncr 3000's. * config/mh-ncr3000 (RANLIB): Use RANLIB=true. Fri Jun 12 21:34:21 1992 John Gilmore (gnu at cygnus.com) * mmap-sup.c: Avoid ANSI C "empty translation unit" idiocy. Tue Jun 9 17:29:04 1992 Fred Fish (fnf@cygnus.com) * config/{mh-ncr3000, mh-sysv4}: Add definition for INSTALL using /usr/ucb/install. Thu Apr 30 22:36:31 1992 Fred Fish (fnf@cygnus.com) * sbrk-sup.c (sbrk_morecore): Fix sbrk() error return test. Mon Apr 20 21:03:30 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: rework CFLAGS so that they can be passed from the command line. remove MINUS_G. Default CFLAGS to -g. Thu Apr 16 20:00:21 1992 Fred Fish (fnf@cygnus.com) * TODO: New file. * attach.c, mcalloc.c, mfree.c, mmalloc.c, mmalloc.h, mmap-sup.c, mmcheck.c, mtrace.c, mrealloc.c, mvalloc.c, sbrk-sup.c: Lint. Fri Apr 10 22:59:17 1992 Fred Fish (fnf@cygnus.com) * configure.in: Recognize new ncr3000 config. * config/mh-ncr3000: New config file. * Makefile.in (MINUS_G): Add macro and default to -g. Wed Apr 8 09:34:53 1992 Fred Fish (fnf@cygnus.com) * mmalloc.c: Minor fix to comment. * mmalloc.texi: Update to match actual implementation * mmalloc.h (morecore): Change prototype's 2nd arg to int. Tue Apr 7 22:16:09 1992 Fred Fish (fnf@cygnus.com) * mmalloc.h (size_t, CHAR_BIT): Only redefine if not already defined. Mon Apr 6 20:49:33 1992 Fred Fish (fnf@cygnus.com) * mmalloc.h: Remove include of . This also gets rid of the ugly kludge installed on 1-Apr-92. Mon Apr 6 16:33:37 1992 Stu Grossman (grossman at cygnus.com) * detach.c (mmalloc_detach): Arg should be PTR, not void *. Fixes complaints from non __STDC__ systems. Wed Apr 1 11:47:02 1992 Fred Fish (fnf@cygnus.com) * mcalloc.c, mfree.c, mmalloc.c, mrealloc.c: Minor comment change. * mmalloc.h: Add ugly kludge to band-aid over problems with bogus vendor files. Sun Mar 29 12:41:31 1992 John Gilmore (gnu at cygnus.com) * attach.c, mmalloc.c, mmcheck.c: Lint. Thu Mar 26 17:06:04 1992 Fred Fish (fnf@cygnus.com) * attach.c (reuse): Explicitly discard return value of mmcheck. * mmcheck.c (mmcheck): Document requirements for installing corruption checking hooks and set up to enforce restrictions. Tue Mar 24 23:41:10 1992 K. Richard Pixley (rich@cygnus.com) * config/mh-irix4: new file. * Makefile.in: added standard targets, fixed install directories. Sat Mar 14 17:34:59 1992 Fred Fish (fnf@cygnus.com) * Initial release, incorporated into gdb. gdb-4.13/mmalloc/Makefile.in 666 34562 1752 10546 5466513227 14266 0ustar fnfcygnus# Copyright (C) 1992 Free Software Foundation, Inc. # This file is part of the GNU C Library. # The GNU C Library is free software; you can redistribute it and/or # modify it under the terms of the GNU Library General Public License as # published by the Free Software Foundation; either version 2 of the # License, or (at your option) any later version. # The GNU C Library 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 # Library General Public License for more details. # You should have received a copy of the GNU Library General Public # License along with the GNU C Library; see the file COPYING.LIB. If # not, write to the Free Software Foundation, Inc., 675 Mass Ave, # Cambridge, MA 02139, USA. # # Makefile for mmalloc directory # # Directory containing source files. Don't clean up the spacing, # this exact string is matched for by the "configure" script. srcdir = . prefix = /usr/local exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include docdir = $(datadir)/doc SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) AR = ar AR_FLAGS = qv CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib RM = rm # where to find makeinfo MAKEINFO=makeinfo SET_TEXINPUTS = TEXINPUTS=${TEXIDIR}:.:$(srcdir):$(READLINE_DIR):$$TEXINPUTS # The TeX formatter TEX = tex TARGETLIB = libmmalloc.a CFILES = mcalloc.c mfree.c mmalloc.c mmcheck.c mmemalign.c mmstats.c \ mmtrace.c mrealloc.c mvalloc.c mmap-sup.c attach.c detach.c \ keys.c sbrk-sup.c HFILES = mmalloc.h OFILES = mcalloc.o mfree.o mmalloc.o mmcheck.o mmemalign.o mmstats.o \ mmtrace.o mrealloc.o mvalloc.o mmap-sup.o attach.o detach.o \ keys.o sbrk-sup.o #### Host, target, and site specific Makefile fragments come in here. ### .c.o: $(CC) -c $(CFLAGS) -I. -I$(srcdir)/../include $(HDEFINES) $< # Do we want/need any config overrides? # STAGESTUFF = $(TARGETLIB) *.o all: $(TARGETLIB) info: mmalloc.info dvi: mmalloc.dvi clean-info: installcheck: mmalloc.info: mmalloc.texi $(MAKEINFO) -I $(srcdir) -o ./mmalloc.info mmalloc.texi # This file doesn't need texindex currently. mmalloc.dvi: mmalloc.texi $(SET_TEXINPUTS) $(TEX) mmalloc.texi rm -f mmalloc.?? mmalloc.??s mmalloc.log mmalloc.aux mmalloc.toc install-info: info $(INSTALL_DATA) mmalloc.info $(infodir)/$$i check: test1.c # $(CC) -g $(srcdir)/test1.c libmmalloc.a # This loses for Canadian cross (building mmalloc with a cross-compiler). # There is probably some dejagnu-ish solution (such as what we are doing # for gdb, perhaps). # ./a.out install: all $(INSTALL_DATA) $(TARGETLIB) $(libdir)/$(TARGETLIB).n $(RANLIB) $(libdir)/$(TARGETLIB).n mv -f $(libdir)/$(TARGETLIB).n $(libdir)/$(TARGETLIB) $(TARGETLIB): $(OFILES) $(RM) -rf $@ $(AR) $(AR_FLAGS) $@ $(OFILES) $(RANLIB) $@ $(OFILES) : $(HFILES) .always.: # Do nothing. .PHONEY: all etags tags ls clean stage1 stage2 .always. stage1: force -mkdir stage1 -mv -f $(STAGESTUFF) stage1 stage2: force -mkdir stage2 -mv -f $(STAGESTUFF) stage2 stage3: force -mkdir stage3 -mv -f $(STAGESTUFF) stage3 stage4: force -mkdir stage4 -mv -f $(STAGESTUFF) stage4 against=stage2 comparison: force for i in *.o ; do cmp $$i $(against)/$$i || exit 1 ; done de-stage1: force -(cd stage1 ; mv -f * ..) -rmdir stage1 de-stage2: force -(cd stage2 ; mv -f * ..) -rmdir stage2 de-stage3: force -(cd stage3 ; mv -f * ..) -rmdir stage3 de-stage4: force -(cd stage4 ; mv -f * ..) -rmdir stage4 etags tags: TAGS TAGS: $(CFILES) etags `for i in $(HFILES) $(CFILES); do echo $(srcdir)/$$i ; done` ls: @echo Makefile $(HFILES) $(CFILES) # Need to deal with profiled libraries, too. mostlyclean clean: rm -f *.a *.o core errs *~ \#* TAGS *.E a.out errors distclean realclean: clean rm -f config.status rm -f Makefile depend force: Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) \ $(target_makefile_frag) $(SHELL) ./config.status gdb-4.13/mmalloc/TODO 666 34562 1752 1646 5224171336 12663 0ustar fnfcygnusThings that still need attention: * Make implementation changes necessary to allow multiple processes to use the mmalloc managed region simultaneously. This requires, at the minimum, some sort of cooperative locking that ensures that only one process at a time is changing any of the mmalloc managed data structures (its ok for the mmalloc managed data regions to be changed at any time since we don't care about their contents). * In order to support multiple processes using the mmalloc managed region, the malloc descriptor needs to be broken into two parts, one part which is specific to the given process and is maintained separately on a per process basis, and another part which is common to all processes. As an example, the file descriptor is specific to a given process, as are the morecore and abortfunc pointers. However magic[], the version number, the flags field, etc are common to all processes. gdb-4.13/mmalloc/attach.c 666 34562 1752 15713 5421252453 13622 0ustar fnfcygnus/* Initialization for access to a mmap'd malloc managed region. Copyright 1992 Free Software Foundation, Inc. Contributed by Fred Fish at Cygnus Support. fnf@cygnus.com This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include /* After sys/types.h, at least for dpx/2. */ #include #include #include "mmalloc.h" #ifndef SEEK_SET #define SEEK_SET 0 #endif #if defined(HAVE_MMAP) /* Forward declarations/prototypes for local functions */ static struct mdesc *reuse PARAMS ((int)); /* Initialize access to a mmalloc managed region. If FD is a valid file descriptor for an open file then data for the mmalloc managed region is mapped to that file, otherwise "/dev/zero" is used and the data will not exist in any filesystem object. If the open file corresponding to FD is from a previous use of mmalloc and passes some basic sanity checks to ensure that it is compatible with the current mmalloc package, then it's data is mapped in and is immediately accessible at the same addresses in the current process as the process that created the file. If BASEADDR is not NULL, the mapping is established starting at the specified address in the process address space. If BASEADDR is NULL, the mmalloc package chooses a suitable address at which to start the mapped region, which will be the value of the previous mapping if opening an existing file which was previously built by mmalloc, or for new files will be a value chosen by mmap. Specifying BASEADDR provides more control over where the regions start and how big they can be before bumping into existing mapped regions or future mapped regions. On success, returns a "malloc descriptor" which is used in subsequent calls to other mmalloc package functions. It is explicitly "void *" ("char *" for systems that don't fully support void) so that users of the package don't have to worry about the actual implementation details. On failure returns NULL. */ PTR mmalloc_attach (fd, baseaddr) int fd; PTR baseaddr; { struct mdesc mtemp; struct mdesc *mdp; PTR mbase; struct stat sbuf; /* First check to see if FD is a valid file descriptor, and if so, see if the file has any current contents (size > 0). If it does, then attempt to reuse the file. If we can't reuse the file, either because it isn't a valid mmalloc produced file, was produced by an obsolete version, or any other reason, then we fail to attach to this file. */ if (fd >= 0) { if (fstat (fd, &sbuf) < 0) { return (NULL); } else if (sbuf.st_size > 0) { return ((PTR) reuse (fd)); } } /* We start off with the malloc descriptor allocated on the stack, until we build it up enough to call _mmalloc_mmap_morecore() to allocate the first page of the region and copy it there. Ensure that it is zero'd and then initialize the fields that we know values for. */ mdp = &mtemp; memset ((char *) mdp, 0, sizeof (mtemp)); strncpy (mdp -> magic, MMALLOC_MAGIC, MMALLOC_MAGIC_SIZE); mdp -> headersize = sizeof (mtemp); mdp -> version = MMALLOC_VERSION; mdp -> morecore = __mmalloc_mmap_morecore; mdp -> fd = fd; mdp -> base = mdp -> breakval = mdp -> top = baseaddr; /* If we have not been passed a valid open file descriptor for the file to map to, then open /dev/zero and use that to map to. */ if (mdp -> fd < 0) { if ((mdp -> fd = open ("/dev/zero", O_RDWR)) < 0) { return (NULL); } else { mdp -> flags |= MMALLOC_DEVZERO; } } /* Now try to map in the first page, copy the malloc descriptor structure there, and arrange to return a pointer to this new copy. If the mapping fails, then close the file descriptor if it was opened by us, and arrange to return a NULL. */ if ((mbase = mdp -> morecore (mdp, sizeof (mtemp))) != NULL) { memcpy (mbase, mdp, sizeof (mtemp)); mdp = (struct mdesc *) mbase; } else { if (mdp -> flags & MMALLOC_DEVZERO) { close (mdp -> fd); } mdp = NULL; } return ((PTR) mdp); } /* Given an valid file descriptor on an open file, test to see if that file is a valid mmalloc produced file, and if so, attempt to remap it into the current process at the same address to which it was previously mapped. Note that we have to update the file descriptor number in the malloc- descriptor read from the file to match the current valid one, before trying to map the file in, and again after a successful mapping and after we've switched over to using the mapped in malloc descriptor rather than the temporary one on the stack. Once we've switched over to using the mapped in malloc descriptor, we have to update the pointer to the morecore function, since it almost certainly will be at a different address if the process reusing the mapped region is from a different executable. Also note that if the heap being remapped previously used the mmcheck() routines, we need to update the hooks since their target functions will have certainly moved if the executable has changed in any way. We do this by calling mmcheck() internally. Returns a pointer to the malloc descriptor if successful, or NULL if unsuccessful for some reason. */ static struct mdesc * reuse (fd) int fd; { struct mdesc mtemp; struct mdesc *mdp = NULL; if ((lseek (fd, 0L, SEEK_SET) == 0) && (read (fd, (char *) &mtemp, sizeof (mtemp)) == sizeof (mtemp)) && (mtemp.headersize == sizeof (mtemp)) && (strcmp (mtemp.magic, MMALLOC_MAGIC) == 0) && (mtemp.version <= MMALLOC_VERSION)) { mtemp.fd = fd; if (__mmalloc_remap_core (&mtemp) == mtemp.base) { mdp = (struct mdesc *) mtemp.base; mdp -> fd = fd; mdp -> morecore = __mmalloc_mmap_morecore; if (mdp -> mfree_hook != NULL) { mmcheck ((PTR) mdp, (void (*) PARAMS ((void))) NULL); } } } return (mdp); } #else /* !defined (HAVE_MMAP) */ /* For systems without mmap, the library still supplies an entry point to link to, but trying to initialize access to an mmap'd managed region always fails. */ /* ARGSUSED */ PTR mmalloc_attach (fd, baseaddr) int fd; PTR baseaddr; { return (NULL); } #endif /* defined (HAVE_MMAP) */ gdb-4.13/mmalloc/configure.in 666 34562 1752 1243 5562521634 14502 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. srctrigger=mmalloc.c srcname="mmalloc library" configdirs="" # per-host: case "${host}" in i[34]86-ncr-sysv4*) host_makefile_frag=config/mh-ncr3000 ;; *-*-irix4*) host_makefile_frag=config/mh-irix4 ;; *-*-solaris2*) host_makefile_frag=config/mh-sysv4 ;; *-*-sunos4*) host_makefile_frag=config/mh-sunos4 ;; *-*-sysv4*) host_makefile_frag=config/mh-sysv4 ;; *-*-go32*) host_makefile_frag=config/mh-go32 ;; esac # per-target: gdb-4.13/mmalloc/detach.c 666 34562 1752 4265 5421252454 13567 0ustar fnfcygnus/* Finish access to a mmap'd malloc managed region. Copyright 1992 Free Software Foundation, Inc. Contributed by Fred Fish at Cygnus Support. fnf@cygnus.com This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include /* After sys/types.h, at least for dpx/2. */ #include "mmalloc.h" /* Terminate access to a mmalloc managed region by unmapping all memory pages associated with the region, and closing the file descriptor if it is one that we opened. Returns NULL on success. Returns the malloc descriptor on failure, which can subsequently be used for further action, such as obtaining more information about the nature of the failure by examining the preserved errno value. Note that the malloc descriptor that we are using is currently located in region we are about to unmap, so we first make a local copy of it on the stack and use the copy. */ PTR mmalloc_detach (md) PTR md; { struct mdesc mtemp; if (md != NULL) { mtemp = *(struct mdesc *) md; /* Now unmap all the pages associated with this region by asking for a negative increment equal to the current size of the region. */ if ((mtemp.morecore (&mtemp, mtemp.base - mtemp.top)) == NULL) { /* Update the original malloc descriptor with any changes */ *(struct mdesc *) md = mtemp; } else { if (mtemp.flags & MMALLOC_DEVZERO) { close (mtemp.fd); } md = NULL; } } return (md); } gdb-4.13/mmalloc/keys.c 666 34562 1752 4100 5340211242 13264 0ustar fnfcygnus/* Access for application keys in mmap'd malloc managed region. Copyright 1992 Free Software Foundation, Inc. Contributed by Fred Fish at Cygnus Support. fnf@cygnus.com This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This module provides access to some keys that the application can use to provide persistent access to locations in the mapped memory section. The intent is that these keys are to be used sparingly as sort of persistent global variables which the application can use to reinitialize access to data in the mapped region. For the moment, these keys are simply stored in the malloc descriptor itself, in an array of fixed length. This should be fixed so that there can be an unlimited number of keys, possibly using a multilevel access scheme of some sort. */ #include "mmalloc.h" int mmalloc_setkey (md, keynum, key) PTR md; int keynum; PTR key; { struct mdesc *mdp = (struct mdesc *) md; int result = 0; if ((mdp != NULL) && (keynum >= 0) && (keynum < MMALLOC_KEYS)) { mdp -> keys [keynum] = key; result++; } return (result); } PTR mmalloc_getkey (md, keynum) PTR md; int keynum; { struct mdesc *mdp = (struct mdesc *) md; PTR keyval = NULL; if ((mdp != NULL) && (keynum >= 0) && (keynum < MMALLOC_KEYS)) { keyval = mdp -> keys [keynum]; } return (keyval); } gdb-4.13/mmalloc/mcalloc.c 666 34562 1752 3262 5225215176 13747 0ustar fnfcygnus/* Copyright (C) 1991, 1992 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include /* Prototypes for memcpy, memmove, memset, etc */ #include "mmalloc.h" /* Allocate an array of NMEMB elements each SIZE bytes long. The entire array is initialized to zeros. */ PTR mcalloc (md, nmemb, size) PTR md; register size_t nmemb; register size_t size; { register PTR result; if ((result = mmalloc (md, nmemb * size)) != NULL) { memset (result, 0, nmemb * size); } return (result); } /* When using this package, provide a version of malloc/realloc/free built on top of it, so that if we use the default sbrk() region we will not collide with another malloc package trying to do the same thing, if the application contains any "hidden" calls to malloc/realloc/free (such as inside a system library). */ PTR calloc (nmemb, size) size_t nmemb; size_t size; { return (mcalloc ((PTR) NULL, nmemb, size)); } gdb-4.13/mmalloc/mfree.c 666 34562 1752 16341 5173437631 13461 0ustar fnfcygnus/* Free a block of memory allocated by `mmalloc'. Copyright 1990, 1991, 1992 Free Software Foundation Written May 1989 by Mike Haertel. Heavily modified Mar 1992 by Fred Fish. (fnf@cygnus.com) The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. The author may be reached (Email) at the address mike@ai.mit.edu, or (US mail) as Mike Haertel c/o Free Software Foundation. */ #include "mmalloc.h" /* Return memory to the heap. Like `mfree' but don't call a mfree_hook if there is one. */ void __mmalloc_free (mdp, ptr) struct mdesc *mdp; PTR ptr; { int type; size_t block, blocks; register size_t i; struct list *prev, *next; block = BLOCK (ptr); type = mdp -> heapinfo[block].busy.type; switch (type) { case 0: /* Get as many statistics as early as we can. */ mdp -> heapstats.chunks_used--; mdp -> heapstats.bytes_used -= mdp -> heapinfo[block].busy.info.size * BLOCKSIZE; mdp -> heapstats.bytes_free += mdp -> heapinfo[block].busy.info.size * BLOCKSIZE; /* Find the free cluster previous to this one in the free list. Start searching at the last block referenced; this may benefit programs with locality of allocation. */ i = mdp -> heapindex; if (i > block) { while (i > block) { i = mdp -> heapinfo[i].free.prev; } } else { do { i = mdp -> heapinfo[i].free.next; } while ((i != 0) && (i < block)); i = mdp -> heapinfo[i].free.prev; } /* Determine how to link this block into the free list. */ if (block == i + mdp -> heapinfo[i].free.size) { /* Coalesce this block with its predecessor. */ mdp -> heapinfo[i].free.size += mdp -> heapinfo[block].busy.info.size; block = i; } else { /* Really link this block back into the free list. */ mdp -> heapinfo[block].free.size = mdp -> heapinfo[block].busy.info.size; mdp -> heapinfo[block].free.next = mdp -> heapinfo[i].free.next; mdp -> heapinfo[block].free.prev = i; mdp -> heapinfo[i].free.next = block; mdp -> heapinfo[mdp -> heapinfo[block].free.next].free.prev = block; mdp -> heapstats.chunks_free++; } /* Now that the block is linked in, see if we can coalesce it with its successor (by deleting its successor from the list and adding in its size). */ if (block + mdp -> heapinfo[block].free.size == mdp -> heapinfo[block].free.next) { mdp -> heapinfo[block].free.size += mdp -> heapinfo[mdp -> heapinfo[block].free.next].free.size; mdp -> heapinfo[block].free.next = mdp -> heapinfo[mdp -> heapinfo[block].free.next].free.next; mdp -> heapinfo[mdp -> heapinfo[block].free.next].free.prev = block; mdp -> heapstats.chunks_free--; } /* Now see if we can return stuff to the system. */ blocks = mdp -> heapinfo[block].free.size; if (blocks >= FINAL_FREE_BLOCKS && block + blocks == mdp -> heaplimit && mdp -> morecore (mdp, 0) == ADDRESS (block + blocks)) { register size_t bytes = blocks * BLOCKSIZE; mdp -> heaplimit -= blocks; mdp -> morecore (mdp, -bytes); mdp -> heapinfo[mdp -> heapinfo[block].free.prev].free.next = mdp -> heapinfo[block].free.next; mdp -> heapinfo[mdp -> heapinfo[block].free.next].free.prev = mdp -> heapinfo[block].free.prev; block = mdp -> heapinfo[block].free.prev; mdp -> heapstats.chunks_free--; mdp -> heapstats.bytes_free -= bytes; } /* Set the next search to begin at this block. */ mdp -> heapindex = block; break; default: /* Do some of the statistics. */ mdp -> heapstats.chunks_used--; mdp -> heapstats.bytes_used -= 1 << type; mdp -> heapstats.chunks_free++; mdp -> heapstats.bytes_free += 1 << type; /* Get the address of the first free fragment in this block. */ prev = (struct list *) ((char *) ADDRESS(block) + (mdp -> heapinfo[block].busy.info.frag.first << type)); if (mdp -> heapinfo[block].busy.info.frag.nfree == (BLOCKSIZE >> type) - 1) { /* If all fragments of this block are free, remove them from the fragment list and free the whole block. */ next = prev; for (i = 1; i < (size_t) (BLOCKSIZE >> type); ++i) { next = next -> next; } prev -> prev -> next = next; if (next != NULL) { next -> prev = prev -> prev; } mdp -> heapinfo[block].busy.type = 0; mdp -> heapinfo[block].busy.info.size = 1; /* Keep the statistics accurate. */ mdp -> heapstats.chunks_used++; mdp -> heapstats.bytes_used += BLOCKSIZE; mdp -> heapstats.chunks_free -= BLOCKSIZE >> type; mdp -> heapstats.bytes_free -= BLOCKSIZE; mfree ((PTR) mdp, (PTR) ADDRESS(block)); } else if (mdp -> heapinfo[block].busy.info.frag.nfree != 0) { /* If some fragments of this block are free, link this fragment into the fragment list after the first free fragment of this block. */ next = (struct list *) ptr; next -> next = prev -> next; next -> prev = prev; prev -> next = next; if (next -> next != NULL) { next -> next -> prev = next; } ++mdp -> heapinfo[block].busy.info.frag.nfree; } else { /* No fragments of this block are free, so link this fragment into the fragment list and announce that it is the first free fragment of this block. */ prev = (struct list *) ptr; mdp -> heapinfo[block].busy.info.frag.nfree = 1; mdp -> heapinfo[block].busy.info.frag.first = RESIDUAL (ptr, BLOCKSIZE) >> type; prev -> next = mdp -> fraghead[type].next; prev -> prev = &mdp -> fraghead[type]; prev -> prev -> next = prev; if (prev -> next != NULL) { prev -> next -> prev = prev; } } break; } } /* Return memory to the heap. */ void mfree (md, ptr) PTR md; PTR ptr; { struct mdesc *mdp; register struct alignlist *l; if (ptr != NULL) { mdp = MD_TO_MDP (md); for (l = mdp -> aligned_blocks; l != NULL; l = l -> next) { if (l -> aligned == ptr) { l -> aligned = NULL; /* Mark the slot in the list as free. */ ptr = l -> exact; break; } } if (mdp -> mfree_hook != NULL) { (*mdp -> mfree_hook) (md, ptr); } else { __mmalloc_free (mdp, ptr); } } } /* When using this package, provide a version of malloc/realloc/free built on top of it, so that if we use the default sbrk() region we will not collide with another malloc package trying to do the same thing, if the application contains any "hidden" calls to malloc/realloc/free (such as inside a system library). */ void free (ptr) PTR ptr; { mfree ((PTR) NULL, ptr); } gdb-4.13/mmalloc/mmalloc.c 666 34562 1752 23232 5421650560 13776 0ustar fnfcygnus/* Memory allocator `malloc'. Copyright 1990, 1991, 1992 Free Software Foundation Written May 1989 by Mike Haertel. Heavily modified Mar 1992 by Fred Fish for mmap'd version. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. The author may be reached (Email) at the address mike@ai.mit.edu, or (US mail) as Mike Haertel c/o Free Software Foundation. */ #include /* Prototypes for memcpy, memmove, memset, etc */ #include "mmalloc.h" /* Prototypes for local functions */ static int initialize PARAMS ((struct mdesc *)); static PTR morecore PARAMS ((struct mdesc *, size_t)); static PTR align PARAMS ((struct mdesc *, size_t)); /* Aligned allocation. */ static PTR align (mdp, size) struct mdesc *mdp; size_t size; { PTR result; unsigned long int adj; result = mdp -> morecore (mdp, size); adj = RESIDUAL (result, BLOCKSIZE); if (adj != 0) { adj = BLOCKSIZE - adj; mdp -> morecore (mdp, adj); result = (char *) result + adj; } return (result); } /* Set everything up and remember that we have. */ static int initialize (mdp) struct mdesc *mdp; { mdp -> heapsize = HEAP / BLOCKSIZE; mdp -> heapinfo = (malloc_info *) align (mdp, mdp -> heapsize * sizeof (malloc_info)); if (mdp -> heapinfo == NULL) { return (0); } memset ((PTR)mdp -> heapinfo, 0, mdp -> heapsize * sizeof (malloc_info)); mdp -> heapinfo[0].free.size = 0; mdp -> heapinfo[0].free.next = mdp -> heapinfo[0].free.prev = 0; mdp -> heapindex = 0; mdp -> heapbase = (char *) mdp -> heapinfo; mdp -> flags |= MMALLOC_INITIALIZED; return (1); } /* Get neatly aligned memory, initializing or growing the heap info table as necessary. */ static PTR morecore (mdp, size) struct mdesc *mdp; size_t size; { PTR result; malloc_info *newinfo, *oldinfo; size_t newsize; result = align (mdp, size); if (result == NULL) { return (NULL); } /* Check if we need to grow the info table. */ if ((size_t) BLOCK ((char *) result + size) > mdp -> heapsize) { newsize = mdp -> heapsize; while ((size_t) BLOCK ((char *) result + size) > newsize) { newsize *= 2; } newinfo = (malloc_info *) align (mdp, newsize * sizeof (malloc_info)); if (newinfo == NULL) { mdp -> morecore (mdp, -size); return (NULL); } memset ((PTR) newinfo, 0, newsize * sizeof (malloc_info)); memcpy ((PTR) newinfo, (PTR) mdp -> heapinfo, mdp -> heapsize * sizeof (malloc_info)); oldinfo = mdp -> heapinfo; newinfo[BLOCK (oldinfo)].busy.type = 0; newinfo[BLOCK (oldinfo)].busy.info.size = BLOCKIFY (mdp -> heapsize * sizeof (malloc_info)); mdp -> heapinfo = newinfo; __mmalloc_free (mdp, (PTR)oldinfo); mdp -> heapsize = newsize; } mdp -> heaplimit = BLOCK ((char *) result + size); return (result); } /* Allocate memory from the heap. */ PTR mmalloc (md, size) PTR md; size_t size; { struct mdesc *mdp; PTR result; size_t block, blocks, lastblocks, start; register size_t i; struct list *next; register size_t log; if (size == 0) { return (NULL); } mdp = MD_TO_MDP (md); if (mdp -> mmalloc_hook != NULL) { return ((*mdp -> mmalloc_hook) (md, size)); } if (!(mdp -> flags & MMALLOC_INITIALIZED)) { if (!initialize (mdp)) { return (NULL); } } if (size < sizeof (struct list)) { size = sizeof (struct list); } /* Determine the allocation policy based on the request size. */ if (size <= BLOCKSIZE / 2) { /* Small allocation to receive a fragment of a block. Determine the logarithm to base two of the fragment size. */ log = 1; --size; while ((size /= 2) != 0) { ++log; } /* Look in the fragment lists for a free fragment of the desired size. */ next = mdp -> fraghead[log].next; if (next != NULL) { /* There are free fragments of this size. Pop a fragment out of the fragment list and return it. Update the block's nfree and first counters. */ result = (PTR) next; next -> prev -> next = next -> next; if (next -> next != NULL) { next -> next -> prev = next -> prev; } block = BLOCK (result); if (--mdp -> heapinfo[block].busy.info.frag.nfree != 0) { mdp -> heapinfo[block].busy.info.frag.first = RESIDUAL (next -> next, BLOCKSIZE) >> log; } /* Update the statistics. */ mdp -> heapstats.chunks_used++; mdp -> heapstats.bytes_used += 1 << log; mdp -> heapstats.chunks_free--; mdp -> heapstats.bytes_free -= 1 << log; } else { /* No free fragments of the desired size, so get a new block and break it into fragments, returning the first. */ result = mmalloc (md, BLOCKSIZE); if (result == NULL) { return (NULL); } /* Link all fragments but the first into the free list. */ for (i = 1; i < (size_t) (BLOCKSIZE >> log); ++i) { next = (struct list *) ((char *) result + (i << log)); next -> next = mdp -> fraghead[log].next; next -> prev = &mdp -> fraghead[log]; next -> prev -> next = next; if (next -> next != NULL) { next -> next -> prev = next; } } /* Initialize the nfree and first counters for this block. */ block = BLOCK (result); mdp -> heapinfo[block].busy.type = log; mdp -> heapinfo[block].busy.info.frag.nfree = i - 1; mdp -> heapinfo[block].busy.info.frag.first = i - 1; mdp -> heapstats.chunks_free += (BLOCKSIZE >> log) - 1; mdp -> heapstats.bytes_free += BLOCKSIZE - (1 << log); mdp -> heapstats.bytes_used -= BLOCKSIZE - (1 << log); } } else { /* Large allocation to receive one or more blocks. Search the free list in a circle starting at the last place visited. If we loop completely around without finding a large enough space we will have to get more memory from the system. */ blocks = BLOCKIFY(size); start = block = MALLOC_SEARCH_START; while (mdp -> heapinfo[block].free.size < blocks) { block = mdp -> heapinfo[block].free.next; if (block == start) { /* Need to get more from the system. Check to see if the new core will be contiguous with the final free block; if so we don't need to get as much. */ block = mdp -> heapinfo[0].free.prev; lastblocks = mdp -> heapinfo[block].free.size; if (mdp -> heaplimit != 0 && block + lastblocks == mdp -> heaplimit && mdp -> morecore (mdp, 0) == ADDRESS(block + lastblocks) && (morecore (mdp, (blocks - lastblocks) * BLOCKSIZE)) != NULL) { /* Which block we are extending (the `final free block' referred to above) might have changed, if it got combined with a freed info table. */ block = mdp -> heapinfo[0].free.prev; mdp -> heapinfo[block].free.size += (blocks - lastblocks); mdp -> heapstats.bytes_free += (blocks - lastblocks) * BLOCKSIZE; continue; } result = morecore(mdp, blocks * BLOCKSIZE); if (result == NULL) { return (NULL); } block = BLOCK (result); mdp -> heapinfo[block].busy.type = 0; mdp -> heapinfo[block].busy.info.size = blocks; mdp -> heapstats.chunks_used++; mdp -> heapstats.bytes_used += blocks * BLOCKSIZE; return (result); } } /* At this point we have found a suitable free list entry. Figure out how to remove what we need from the list. */ result = ADDRESS(block); if (mdp -> heapinfo[block].free.size > blocks) { /* The block we found has a bit left over, so relink the tail end back into the free list. */ mdp -> heapinfo[block + blocks].free.size = mdp -> heapinfo[block].free.size - blocks; mdp -> heapinfo[block + blocks].free.next = mdp -> heapinfo[block].free.next; mdp -> heapinfo[block + blocks].free.prev = mdp -> heapinfo[block].free.prev; mdp -> heapinfo[mdp -> heapinfo[block].free.prev].free.next = mdp -> heapinfo[mdp -> heapinfo[block].free.next].free.prev = mdp -> heapindex = block + blocks; } else { /* The block exactly matches our requirements, so just remove it from the list. */ mdp -> heapinfo[mdp -> heapinfo[block].free.next].free.prev = mdp -> heapinfo[block].free.prev; mdp -> heapinfo[mdp -> heapinfo[block].free.prev].free.next = mdp -> heapindex = mdp -> heapinfo[block].free.next; mdp -> heapstats.chunks_free--; } mdp -> heapinfo[block].busy.type = 0; mdp -> heapinfo[block].busy.info.size = blocks; mdp -> heapstats.chunks_used++; mdp -> heapstats.bytes_used += blocks * BLOCKSIZE; mdp -> heapstats.bytes_free -= blocks * BLOCKSIZE; } return (result); } /* When using this package, provide a version of malloc/realloc/free built on top of it, so that if we use the default sbrk() region we will not collide with another malloc package trying to do the same thing, if the application contains any "hidden" calls to malloc/realloc/free (such as inside a system library). */ PTR malloc (size) size_t size; { return (mmalloc ((PTR) NULL, size)); } gdb-4.13/mmalloc/mmalloc.h 666 34562 1752 27672 5224171047 14016 0ustar fnfcygnus/* Declarations for `mmalloc' and friends. Copyright 1990, 1991, 1992 Free Software Foundation Written May 1989 by Mike Haertel. Heavily modified Mar 1992 by Fred Fish. (fnf@cygnus.com) The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. The author may be reached (Email) at the address mike@ai.mit.edu, or (US mail) as Mike Haertel c/o Free Software Foundation. */ #ifndef __MMALLOC_H #define __MMALLOC_H 1 #ifdef __STDC__ # include # define PTR void * # define CONST const # define PARAMS(paramlist) paramlist # include # ifndef NULL # define NULL (void *) 0 # endif #else # define PTR char * # define CONST /* nothing */ # define PARAMS(paramlist) () # ifndef size_t # define size_t unsigned int # endif # ifndef CHAR_BIT # define CHAR_BIT 8 # endif # ifndef NULL # define NULL 0 # endif #endif #ifndef MIN # define MIN(A, B) ((A) < (B) ? (A) : (B)) #endif #define MMALLOC_MAGIC "mmalloc" /* Mapped file magic number */ #define MMALLOC_MAGIC_SIZE 8 /* Size of magic number buf */ #define MMALLOC_VERSION 1 /* Current mmalloc version */ #define MMALLOC_KEYS 16 /* Keys for application use */ /* The allocator divides the heap into blocks of fixed size; large requests receive one or more whole blocks, and small requests receive a fragment of a block. Fragment sizes are powers of two, and all fragments of a block are the same size. When all the fragments in a block have been freed, the block itself is freed. */ #define INT_BIT (CHAR_BIT * sizeof(int)) #define BLOCKLOG (INT_BIT > 16 ? 12 : 9) #define BLOCKSIZE ((unsigned int) 1 << BLOCKLOG) #define BLOCKIFY(SIZE) (((SIZE) + BLOCKSIZE - 1) / BLOCKSIZE) /* The difference between two pointers is a signed int. On machines where the data addresses have the high bit set, we need to ensure that the difference becomes an unsigned int when we are using the address as an integral value. In addition, when using with the '%' operator, the sign of the result is machine dependent for negative values, so force it to be treated as an unsigned int. */ #define ADDR2UINT(addr) ((unsigned int) ((char *) (addr) - (char *) NULL)) #define RESIDUAL(addr,bsize) ((unsigned int) (ADDR2UINT (addr) % (bsize))) /* Determine the amount of memory spanned by the initial heap table (not an absolute limit). */ #define HEAP (INT_BIT > 16 ? 4194304 : 65536) /* Number of contiguous free blocks allowed to build up at the end of memory before they will be returned to the system. */ #define FINAL_FREE_BLOCKS 8 /* Where to start searching the free list when looking for new memory. The two possible values are 0 and heapindex. Starting at 0 seems to reduce total memory usage, while starting at heapindex seems to run faster. */ #define MALLOC_SEARCH_START mdp -> heapindex /* Address to block number and vice versa. */ #define BLOCK(A) (((char *) (A) - mdp -> heapbase) / BLOCKSIZE + 1) #define ADDRESS(B) ((PTR) (((B) - 1) * BLOCKSIZE + mdp -> heapbase)) /* Data structure giving per-block information. */ typedef union { /* Heap information for a busy block. */ struct { /* Zero for a large block, or positive giving the logarithm to the base two of the fragment size. */ int type; union { struct { size_t nfree; /* Free fragments in a fragmented block. */ size_t first; /* First free fragment of the block. */ } frag; /* Size (in blocks) of a large cluster. */ size_t size; } info; } busy; /* Heap information for a free block (that may be the first of a free cluster). */ struct { size_t size; /* Size (in blocks) of a free cluster. */ size_t next; /* Index of next free cluster. */ size_t prev; /* Index of previous free cluster. */ } free; } malloc_info; /* List of blocks allocated with `mmemalign' (or `mvalloc'). */ struct alignlist { struct alignlist *next; PTR aligned; /* The address that mmemaligned returned. */ PTR exact; /* The address that malloc returned. */ }; /* Doubly linked lists of free fragments. */ struct list { struct list *next; struct list *prev; }; /* Statistics available to the user. FIXME: By design, the internals of the malloc package are no longer exported to the user via an include file, so access to this data needs to be via some other mechanism, such as mmstat_ where the return value is the the user is interested in. */ struct mstats { size_t bytes_total; /* Total size of the heap. */ size_t chunks_used; /* Chunks allocated by the user. */ size_t bytes_used; /* Byte total of user-allocated chunks. */ size_t chunks_free; /* Chunks in the free list. */ size_t bytes_free; /* Byte total of chunks in the free list. */ }; /* Internal structure that defines the format of the malloc-descriptor. This gets written to the base address of the region that mmalloc is managing, and thus also becomes the file header for the mapped file, if such a file exists. */ struct mdesc { /* The "magic number" for an mmalloc file. */ char magic[MMALLOC_MAGIC_SIZE]; /* The size in bytes of this structure, used as a sanity check when reusing a previously created mapped file. */ unsigned int headersize; /* The version number of the mmalloc package that created this file. */ unsigned char version; /* Some flag bits to keep track of various internal things. */ unsigned int flags; /* If a system call made by the mmalloc package fails, the errno is preserved for future examination. */ int saved_errno; /* Pointer to the function that is used to get more core, or return core to the system, for requests using this malloc descriptor. For memory mapped regions, this is the mmap() based routine. There may also be a single malloc descriptor that points to an sbrk() based routine for systems without mmap() or for applications that call the mmalloc() package with a NULL malloc descriptor. FIXME: For mapped regions shared by more than one process, this needs to be maintained on a per-process basis. */ PTR (*morecore) PARAMS ((struct mdesc *, int)); /* Pointer to the function that causes an abort when the memory checking features are activated. By default this is set to abort(), but can be set to another function by the application using mmalloc(). FIXME: For mapped regions shared by more than one process, this needs to be maintained on a per-process basis. */ void (*abortfunc) PARAMS ((void)); /* Debugging hook for free. FIXME: For mapped regions shared by more than one process, this needs to be maintained on a per-process basis. */ void (*mfree_hook) PARAMS ((PTR, PTR)); /* Debugging hook for `malloc'. FIXME: For mapped regions shared by more than one process, this needs to be maintained on a per-process basis. */ PTR (*mmalloc_hook) PARAMS ((PTR, size_t)); /* Debugging hook for realloc. FIXME: For mapped regions shared by more than one process, this needs to be maintained on a per-process basis. */ PTR (*mrealloc_hook) PARAMS ((PTR, PTR, size_t)); /* Number of info entries. */ size_t heapsize; /* Pointer to first block of the heap (base of the first block). */ char *heapbase; /* Current search index for the heap table. */ /* Search index in the info table. */ size_t heapindex; /* Limit of valid info table indices. */ size_t heaplimit; /* Block information table. Allocated with malign/__mmalloc_free (not mmalloc/mfree). */ /* Table indexed by block number giving per-block information. */ malloc_info *heapinfo; /* Instrumentation. */ struct mstats heapstats; /* Free list headers for each fragment size. */ /* Free lists for each fragment size. */ struct list fraghead[BLOCKLOG]; /* List of blocks allocated by memalign. */ struct alignlist *aligned_blocks; /* The base address of the memory region for this malloc heap. This is the location where the bookkeeping data for mmap and for malloc begins. */ char *base; /* The current location in the memory region for this malloc heap which represents the end of memory in use. */ char *breakval; /* The end of the current memory region for this malloc heap. This is the first location past the end of mapped memory. */ char *top; /* Open file descriptor for the file to which this malloc heap is mapped. This will always be a valid file descriptor, since /dev/zero is used by default if no open file is supplied by the client. Also note that it may change each time the region is mapped and unmapped. */ int fd; /* An array of keys to data within the mapped region, for use by the application. */ PTR keys[MMALLOC_KEYS]; }; /* Bits to look at in the malloc descriptor flags word */ #define MMALLOC_DEVZERO (1 << 0) /* Have mapped to /dev/zero */ #define MMALLOC_INITIALIZED (1 << 1) /* Initialized mmalloc */ #define MMALLOC_MMCHECK_USED (1 << 2) /* mmcheck() called already */ /* Allocate SIZE bytes of memory. */ extern PTR mmalloc PARAMS ((PTR, size_t)); /* Re-allocate the previously allocated block in PTR, making the new block SIZE bytes long. */ extern PTR mrealloc PARAMS ((PTR, PTR, size_t)); /* Allocate NMEMB elements of SIZE bytes each, all initialized to 0. */ extern PTR mcalloc PARAMS ((PTR, size_t, size_t)); /* Free a block allocated by `mmalloc', `mrealloc' or `mcalloc'. */ extern void mfree PARAMS ((PTR, PTR)); /* Allocate SIZE bytes allocated to ALIGNMENT bytes. */ extern PTR mmemalign PARAMS ((PTR, size_t, size_t)); /* Allocate SIZE bytes on a page boundary. */ extern PTR mvalloc PARAMS ((PTR, size_t)); /* Activate a standard collection of debugging hooks. */ extern int mmcheck PARAMS ((PTR, void (*) (void))); /* Pick up the current statistics. (see FIXME elsewhere) */ extern struct mstats mmstats PARAMS ((PTR)); /* Internal version of `mfree' used in `morecore'. */ extern void __mmalloc_free PARAMS ((struct mdesc *, PTR)); /* Hooks for debugging versions. */ extern void (*__mfree_hook) PARAMS ((PTR, PTR)); extern PTR (*__mmalloc_hook) PARAMS ((PTR, size_t)); extern PTR (*__mrealloc_hook) PARAMS ((PTR, PTR, size_t)); /* A default malloc descriptor for the single sbrk() managed region. */ extern struct mdesc *__mmalloc_default_mdp; /* Initialize the first use of the default malloc descriptor, which uses an sbrk() region. */ extern struct mdesc *__mmalloc_sbrk_init PARAMS ((void)); /* Grow or shrink a contiguous mapped region using mmap(). Works much like sbrk() */ #if defined(HAVE_MMAP) extern PTR __mmalloc_mmap_morecore PARAMS ((struct mdesc *, int)); #endif /* Remap a mmalloc region that was previously mapped. */ extern PTR __mmalloc_remap_core PARAMS ((struct mdesc *)); /* Macro to convert from a user supplied malloc descriptor to pointer to the internal malloc descriptor. If the user supplied descriptor is NULL, then use the default internal version, initializing it if necessary. Otherwise just cast the user supplied version (which is void *) to the proper type (struct mdesc *). */ #define MD_TO_MDP(md) \ ((md) == NULL \ ? (__mmalloc_default_mdp == NULL \ ? __mmalloc_sbrk_init () \ : __mmalloc_default_mdp) \ : (struct mdesc *) (md)) #endif /* __MMALLOC_H */ gdb-4.13/mmalloc/mmalloc.texi 666 34562 1752 23023 5465270577 14541 0ustar fnfcygnus\input texinfo @c -*- Texinfo -*- @setfilename mmalloc.info @ifinfo @format START-INFO-DIR-ENTRY * Mmalloc: (mmalloc). The GNU mapped-malloc package. END-INFO-DIR-ENTRY @end format This file documents the GNU mmalloc (mapped-malloc) package, written by fnf@@cygnus.com, based on GNU malloc written by mike@@ai.mit.edu. Copyright (C) 1992 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through Tex and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end ifinfo @iftex @c @finalout @setchapternewpage odd @settitle MMALLOC, the GNU memory-mapped malloc package @titlepage @title mmalloc @subtitle The GNU memory-mapped malloc package @author Fred Fish @author Cygnus Support @author Mike Haertel @author Free Software Foundation @page @tex \def\$#1${{#1}} % Kluge: collect RCS revision info without $...$ \xdef\manvers{\$Revision: 1.4 $} % For use in headers, footers too {\parskip=0pt \hfill Cygnus Support\par \hfill fnf\@cygnus.com\par \hfill {\it MMALLOC, the GNU memory-mapped malloc package}, \manvers\par \hfill \TeX{}info \texinfoversion\par } @end tex @vskip 0pt plus 1filll Copyright @copyright{} 1992 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end titlepage @end iftex @ifinfo @node Top, Overview, (dir), (dir) @top mmalloc This file documents the GNU memory-mapped malloc package mmalloc. @menu * Overview:: Overall Description * Implementation:: Implementation --- The Detailed Node Listing --- Implementation * Compatibility:: Backwards Compatibility * Functions:: Function Descriptions @end menu @end ifinfo @node Overview, Implementation, Top, Top @chapter Overall Description This is a heavily modified version of GNU @code{malloc}. It uses @code{mmap} as the basic mechanism for obtaining memory from the system, rather than @code{sbrk}. This gives it several advantages over the more traditional malloc: @itemize @bullet @item Several different heaps can be used, each of them growing or shinking under control of @code{mmap}, with the @code{mmalloc} functions using a specific heap on a call by call basis. @item By using @code{mmap}, it is easy to create heaps which are intended to be persistent and exist as a filesystem object after the creating process has gone away. @item Because multiple heaps can be managed, data used for a specific purpose can be allocated into its own heap, making it easier to allow applications to ``dump'' and ``restore'' initialized malloc-managed memory regions. For example, the ``unexec'' hack popularized by GNU Emacs could potentially go away. @end itemize @node Implementation, , Overview, Top @chapter Implementation The @code{mmalloc} functions contain no internal static state. All @code{mmalloc} internal data is allocated in the mapped in region, along with the user data that it manages. This allows it to manage multiple such regions and to ``pick up where it left off'' when such regions are later dynamically mapped back in. In some sense, malloc has been ``purified'' to contain no internal state information and generalized to use multiple memory regions rather than a single region managed by @code{sbrk}. However the new routines now need an extra parameter which informs @code{mmalloc} which memory region it is dealing with (along with other information). This parameter is called the @dfn{malloc descriptor}. The functions initially provided by @code{mmalloc} are: @example void *mmalloc_attach (int fd, void *baseaddr); void *mmalloc_detach (void *md); int mmalloc_errno (void *md); int mmalloc_setkey (void *md, int keynum, void *key); void *mmalloc_getkey (void *md, int keynum); void *mmalloc (void *md, size_t size); void *mrealloc (void *md, void *ptr, size_t size); void *mvalloc (void *md, size_t size); void mfree (void *md, void *ptr); @end example @menu * Compatibility:: Backwards Compatibility * Functions:: Function Descriptions @end menu @node Compatibility, Functions, Implementation, Implementation @section Backwards Compatibility To allow a single malloc package to be used in a given application, provision is made for the traditional @code{malloc}, @code{realloc}, and @code{free} functions to be implemented as special cases of the @code{mmalloc} functions. In particular, if any of the functions that expect malloc descriptors are called with a @code{NULL} pointer rather than a valid malloc descriptor, then they default to using an @code{sbrk} managed region. The @code{mmalloc} package provides compatible @code{malloc}, @code{realloc}, and @code{free} functions using this mechanism internally. Applications can avoid this extra interface layer by simply including the following defines: @example #define malloc(size) mmalloc ((void *)0, (size)) #define realloc(ptr,size) mrealloc ((void *)0, (ptr), (size)); #define free(ptr) mfree ((void *)0, (ptr)) @end example @noindent or replace the existing @code{malloc}, @code{realloc}, and @code{free} calls with the above patterns if using @code{#define} causes problems. @node Functions, , Compatibility, Implementation @section Function Descriptions These are the details on the functions that make up the @code{mmalloc} package. @table @code @item void *mmalloc_attach (int @var{fd}, void *@var{baseaddr}); Initialize access to a @code{mmalloc} managed region. If @var{fd} is a valid file descriptor for an open file, then data for the @code{mmalloc} managed region is mapped to that file. Otherwise @file{/dev/zero} is used and the data will not exist in any filesystem object. If the open file corresponding to @var{fd} is from a previous use of @code{mmalloc} and passes some basic sanity checks to ensure that it is compatible with the current @code{mmalloc} package, then its data is mapped in and is immediately accessible at the same addresses in the current process as the process that created the file. If @var{baseaddr} is not @code{NULL}, the mapping is established starting at the specified address in the process address space. If @var{baseaddr} is @code{NULL}, the @code{mmalloc} package chooses a suitable address at which to start the mapped region, which will be the value of the previous mapping if opening an existing file which was previously built by @code{mmalloc}, or for new files will be a value chosen by @code{mmap}. Specifying @var{baseaddr} provides more control over where the regions start and how big they can be before bumping into existing mapped regions or future mapped regions. On success, returns a malloc descriptor which is used in subsequent calls to other @code{mmalloc} package functions. It is explicitly @samp{void *} (@samp{char *} for systems that don't fully support @code{void}) so that users of the package don't have to worry about the actual implementation details. On failure returns @code{NULL}. @item void *mmalloc_detach (void *@var{md}); Terminate access to a @code{mmalloc} managed region identified by the descriptor @var{md}, by closing the base file and unmapping all memory pages associated with the region. Returns @code{NULL} on success. Returns the malloc descriptor on failure, which can subsequently be used for further action (such as obtaining more information about the nature of the failure). @item void *mmalloc (void *@var{md}, size_t @var{size}); Given an @code{mmalloc} descriptor @var{md}, allocate additional memory of @var{size} bytes in the associated mapped region. @item *mrealloc (void *@var{md}, void *@var{ptr}, size_t @var{size}); Given an @code{mmalloc} descriptor @var{md} and a pointer to memory previously allocated by @code{mmalloc} in @var{ptr}, reallocate the memory to be @var{size} bytes long, possibly moving the existing contents of memory if necessary. @item void *mvalloc (void *@var{md}, size_t @var{size}); Like @code{mmalloc} but the resulting memory is aligned on a page boundary. @item void mfree (void *@var{md}, void *@var{ptr}); Given an @code{mmalloc} descriptor @var{md} and a pointer to memory previously allocated by @code{mmalloc} in @var{ptr}, free the previously allocated memory. @item int mmalloc_errno (void *@var{md}); Given a @code{mmalloc} descriptor, if the last @code{mmalloc} operation failed for some reason due to a system call failure, then returns the associated @code{errno}. Returns 0 otherwise. (This function is not yet implemented). @end table @bye gdb-4.13/mmalloc/mmap-sup.c 666 34562 1752 10552 5340211244 14102 0ustar fnfcygnus/* Support for an sbrk-like function that uses mmap. Copyright 1992 Free Software Foundation, Inc. Contributed by Fred Fish at Cygnus Support. fnf@cygnus.com This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_MMAP) #include #include #include #ifndef SEEK_SET #define SEEK_SET 0 #endif #include "mmalloc.h" extern int munmap PARAMS ((caddr_t, size_t)); /* Not in any header file */ /* Cache the pagesize for the current host machine. Note that if the host does not readily provide a getpagesize() function, we need to emulate it elsewhere, not clutter up this file with lots of kluges to try to figure it out. */ static size_t pagesize; extern int getpagesize PARAMS ((void)); #define PAGE_ALIGN(addr) (caddr_t) (((long)(addr) + pagesize - 1) & \ ~(pagesize - 1)) /* Get core for the memory region specified by MDP, using SIZE as the amount to either add to or subtract from the existing region. Works like sbrk(), but using mmap(). */ PTR __mmalloc_mmap_morecore (mdp, size) struct mdesc *mdp; int size; { PTR result = NULL; off_t foffset; /* File offset at which new mapping will start */ size_t mapbytes; /* Number of bytes to map */ caddr_t moveto; /* Address where we wish to move "break value" to */ caddr_t mapto; /* Address we actually mapped to */ char buf = 0; /* Single byte to write to extend mapped file */ if (pagesize == 0) { pagesize = getpagesize (); } if (size == 0) { /* Just return the current "break" value. */ result = mdp -> breakval; } else if (size < 0) { /* We are deallocating memory. If the amount requested would cause us to try to deallocate back past the base of the mmap'd region then do nothing, and return NULL. Otherwise, deallocate the memory and return the old break value. */ if (mdp -> breakval + size >= mdp -> base) { result = (PTR) mdp -> breakval; mdp -> breakval += size; moveto = PAGE_ALIGN (mdp -> breakval); munmap (moveto, (size_t) (mdp -> top - moveto)); mdp -> top = moveto; } } else { /* We are allocating memory. Make sure we have an open file descriptor and then go on to get the memory. */ if (mdp -> fd < 0) { result = NULL; } else if (mdp -> breakval + size > mdp -> top) { /* The request would move us past the end of the currently mapped memory, so map in enough more memory to satisfy the request. This means we also have to grow the mapped-to file by an appropriate amount, since mmap cannot be used to extend a file. */ moveto = PAGE_ALIGN (mdp -> breakval + size); mapbytes = moveto - mdp -> top; foffset = mdp -> top - mdp -> base; /* FIXME: Test results of lseek() and write() */ lseek (mdp -> fd, foffset + mapbytes - 1, SEEK_SET); write (mdp -> fd, &buf, 1); mapto = mmap (mdp -> top, mapbytes, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_FIXED, mdp -> fd, foffset); if (mapto == mdp -> top) { mdp -> top = moveto; result = (PTR) mdp -> breakval; mdp -> breakval += size; } } else { result = (PTR) mdp -> breakval; mdp -> breakval += size; } } return (result); } PTR __mmalloc_remap_core (mdp) struct mdesc *mdp; { caddr_t base; /* FIXME: Quick hack, needs error checking and other attention. */ base = mmap (mdp -> base, mdp -> top - mdp -> base, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_FIXED, mdp -> fd, 0); return ((PTR) base); } #else /* defined(HAVE_MMAP) */ /* Prevent "empty translation unit" warnings from the idiots at X3J11. */ static char ansi_c_idiots = 69; #endif /* defined(HAVE_MMAP) */ gdb-4.13/mmalloc/mmcheck.c 666 34562 1752 13562 5173437635 14000 0ustar fnfcygnus/* Standard debugging hooks for `mmalloc'. Copyright 1990, 1991, 1992 Free Software Foundation Written May 1989 by Mike Haertel. Heavily modified Mar 1992 by Fred Fish (fnf@cygnus.com) The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. The author may be reached (Email) at the address mike@ai.mit.edu, or (US mail) as Mike Haertel c/o Free Software Foundation. */ #include "mmalloc.h" /* Default function to call when something awful happens. The application can specify an alternate function to be called instead (and probably will want to). */ extern void abort PARAMS ((void)); /* Arbitrary magical numbers. */ #define MAGICWORD (unsigned int) 0xfedabeeb /* Active chunk */ #define MAGICWORDFREE (unsigned int) 0xdeadbeef /* Inactive chunk */ #define MAGICBYTE ((char) 0xd7) /* Each memory allocation is bounded by a header structure and a trailer byte. I.E. The pointer returned to the user points to the first byte in the user's allocation area. The magic word can be tested to detect buffer underruns and the magic byte can be tested to detect overruns. */ struct hdr { size_t size; /* Exact size requested by user. */ unsigned long int magic; /* Magic number to check header integrity. */ }; /* Check the magicword and magicbyte, and if either is corrupted then call the emergency abort function specified for the heap in use. */ static void checkhdr (mdp, hdr) struct mdesc *mdp; CONST struct hdr *hdr; { if (hdr -> magic != MAGICWORD || ((char *) &hdr[1])[hdr -> size] != MAGICBYTE) { (*mdp -> abortfunc)(); } } static void mfree_check (md, ptr) PTR md; PTR ptr; { struct hdr *hdr = ((struct hdr *) ptr) - 1; struct mdesc *mdp; mdp = MD_TO_MDP (md); checkhdr (mdp, hdr); hdr -> magic = MAGICWORDFREE; mdp -> mfree_hook = NULL; mfree (md, (PTR)hdr); mdp -> mfree_hook = mfree_check; } static PTR mmalloc_check (md, size) PTR md; size_t size; { struct hdr *hdr; struct mdesc *mdp; size_t nbytes; mdp = MD_TO_MDP (md); mdp -> mmalloc_hook = NULL; nbytes = sizeof (struct hdr) + size + 1; hdr = (struct hdr *) mmalloc (md, nbytes); mdp -> mmalloc_hook = mmalloc_check; if (hdr != NULL) { hdr -> size = size; hdr -> magic = MAGICWORD; hdr++; *((char *) hdr + size) = MAGICBYTE; } return ((PTR) hdr); } static PTR mrealloc_check (md, ptr, size) PTR md; PTR ptr; size_t size; { struct hdr *hdr = ((struct hdr *) ptr) - 1; struct mdesc *mdp; size_t nbytes; mdp = MD_TO_MDP (md); checkhdr (mdp, hdr); mdp -> mfree_hook = NULL; mdp -> mmalloc_hook = NULL; mdp -> mrealloc_hook = NULL; nbytes = sizeof (struct hdr) + size + 1; hdr = (struct hdr *) mrealloc (md, (PTR) hdr, nbytes); mdp -> mfree_hook = mfree_check; mdp -> mmalloc_hook = mmalloc_check; mdp -> mrealloc_hook = mrealloc_check; if (hdr != NULL) { hdr -> size = size; hdr++; *((char *) hdr + size) = MAGICBYTE; } return ((PTR) hdr); } /* Turn on default checking for mmalloc/mrealloc/mfree, for the heap specified by MD. If FUNC is non-NULL, it is a pointer to the function to call to abort whenever memory corruption is detected. By default, this is the standard library function abort(). Note that we disallow installation of initial checking hooks if mmalloc has been called at any time for this particular heap, since if any region that is allocated prior to installation of the hooks is subsequently reallocated or freed after installation of the hooks, it is guaranteed to trigger a memory corruption error. We do this by checking the state of the MMALLOC_INITIALIZED flag. However, we can call this function at any time after the initial call, to update the function pointers to the checking routines and to the user defined corruption handler routine, as long as these function pointers have been previously extablished by the initial call. Note that we do this automatically when remapping an previously used heap, to ensure that the hooks get updated to the correct values, although the corruption handler pointer gets set back to the default. The application can then call mmcheck to use a different corruption handler if desired. Returns non-zero if checking is successfully enabled, zero otherwise. */ int mmcheck (md, func) PTR md; void (*func) PARAMS ((void)); { struct mdesc *mdp; int rtnval; mdp = MD_TO_MDP (md); /* We can safely set or update the abort function at any time, regardless of whether or not we successfully do anything else. */ mdp -> abortfunc = (func != NULL ? func : abort); /* If we haven't yet called mmalloc the first time for this heap, or if we have hooks that were previously installed, then allow the hooks to be initialized or updated. */ if (1 /* FIXME: Always allow installation for now. */ || !(mdp -> flags & MMALLOC_INITIALIZED) || (mdp -> mfree_hook != NULL)) { mdp -> mfree_hook = mfree_check; mdp -> mmalloc_hook = mmalloc_check; mdp -> mrealloc_hook = mrealloc_check; mdp -> flags |= MMALLOC_MMCHECK_USED; rtnval = 1; } else { rtnval = 0; } return (rtnval); } gdb-4.13/mmalloc/mmemalign.c 666 34562 1752 3325 5160531532 14276 0ustar fnfcygnus/* Copyright (C) 1991, 1992 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "mmalloc.h" PTR mmemalign (md, alignment, size) PTR md; size_t alignment; size_t size; { PTR result; unsigned long int adj; struct alignlist *l; struct mdesc *mdp; size = ((size + alignment - 1) / alignment) * alignment; if ((result = mmalloc (md, size)) != NULL) { adj = RESIDUAL (result, alignment); if (adj != 0) { mdp = MD_TO_MDP (md); for (l = mdp -> aligned_blocks; l != NULL; l = l -> next) { if (l -> aligned == NULL) { /* This slot is free. Use it. */ break; } } if (l == NULL) { l = (struct alignlist *) mmalloc (md, sizeof (struct alignlist)); if (l == NULL) { mfree (md, result); return (NULL); } } l -> exact = result; result = l -> aligned = (char *) result + alignment - adj; l -> next = mdp -> aligned_blocks; mdp -> aligned_blocks = l; } } return (result); } gdb-4.13/mmalloc/mmstats.c 666 34562 1752 3211 5160531533 14013 0ustar fnfcygnus/* Access the statistics maintained by `mmalloc'. Copyright 1990, 1991, 1992 Free Software Foundation Written May 1989 by Mike Haertel. Modified Mar 1992 by Fred Fish. (fnf@cygnus.com) The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. The author may be reached (Email) at the address mike@ai.mit.edu, or (US mail) as Mike Haertel c/o Free Software Foundation. */ #include "mmalloc.h" /* FIXME: See the comment in mmalloc.h where struct mstats is defined. None of the internal mmalloc structures should be externally visible outside the library. */ struct mstats mmstats (md) PTR md; { struct mstats result; struct mdesc *mdp; mdp = MD_TO_MDP (md); result.bytes_total = (char *) mdp -> morecore (mdp, 0) - mdp -> heapbase; result.chunks_used = mdp -> heapstats.chunks_used; result.bytes_used = mdp -> heapstats.bytes_used; result.chunks_free = mdp -> heapstats.chunks_free; result.bytes_free = mdp -> heapstats.bytes_free; return (result); } gdb-4.13/mmalloc/mmtrace.awk 666 34562 1752 1534 5160531535 14323 0ustar fnfcygnus# # Awk program to analyze mtrace.c output. # $1 == "+" { if (allocated[$2] != "") print "+", $2, "Alloc", NR, "duplicate:", allocated[$2]; else allocated[$2] = $3; } $1 == "-" { if (allocated[$2] != "") { allocated[$2] = ""; if (allocated[$2] != "") print "DELETE FAILED", $2, allocated[$2]; } else print "-", $2, "Free", NR, "was never alloc'd"; } $1 == "<" { if (allocated[$2] != "") allocated[$2] = ""; else print "-", $2, "Realloc", NR, "was never alloc'd"; } $1 == ">" { if (allocated[$2] != "") print "+", $2, "Realloc", NR, "duplicate:", allocated[$2]; else allocated[$2] = $3; } # Ignore "= Start" $1 == "=" { } # Ignore failed realloc attempts for now $1 == "!" { } END { for (x in allocated) if (allocated[x] != "") print "+", x, allocated[x]; } gdb-4.13/mmalloc/mmtrace.c 666 34562 1752 10460 5525653642 14012 0ustar fnfcygnus/* More debugging hooks for `mmalloc'. Copyright 1991, 1992, 1994 Free Software Foundation Written April 2, 1991 by John Gilmore of Cygnus Support Based on mcheck.c by Mike Haertel. Modified Mar 1992 by Fred Fish. (fnf@cygnus.com) This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "mmalloc.h" #ifndef __GNU_LIBRARY__ extern char *getenv (); #endif static FILE *mallstream; #if 0 /* FIXME: Disabled for now. */ static char mallenv[] = "MALLOC_TRACE"; static char mallbuf[BUFSIZ]; /* Buffer for the output. */ #endif /* Address to breakpoint on accesses to... */ static PTR mallwatch; /* Old hook values. */ static void (*old_mfree_hook) PARAMS ((PTR, PTR)); static PTR (*old_mmalloc_hook) PARAMS ((PTR, size_t)); static PTR (*old_mrealloc_hook) PARAMS ((PTR, PTR, size_t)); /* This function is called when the block being alloc'd, realloc'd, or freed has an address matching the variable "mallwatch". In a debugger, set "mallwatch" to the address of interest, then put a breakpoint on tr_break. */ static void tr_break () { } static void tr_freehook (md, ptr) PTR md; PTR ptr; { struct mdesc *mdp; mdp = MD_TO_MDP (md); /* Be sure to print it first. */ fprintf (mallstream, "- %08lx\n", (unsigned long) ptr); if (ptr == mallwatch) tr_break (); mdp -> mfree_hook = old_mfree_hook; mfree (md, ptr); mdp -> mfree_hook = tr_freehook; } static PTR tr_mallochook (md, size) PTR md; size_t size; { PTR hdr; struct mdesc *mdp; mdp = MD_TO_MDP (md); mdp -> mmalloc_hook = old_mmalloc_hook; hdr = (PTR) mmalloc (md, size); mdp -> mmalloc_hook = tr_mallochook; /* We could be printing a NULL here; that's OK. */ fprintf (mallstream, "+ %08lx %x\n", (unsigned long) hdr, size); if (hdr == mallwatch) tr_break (); return (hdr); } static PTR tr_reallochook (md, ptr, size) PTR md; PTR ptr; size_t size; { PTR hdr; struct mdesc *mdp; mdp = MD_TO_MDP (md); if (ptr == mallwatch) tr_break (); mdp -> mfree_hook = old_mfree_hook; mdp -> mmalloc_hook = old_mmalloc_hook; mdp -> mrealloc_hook = old_mrealloc_hook; hdr = (PTR) mrealloc (md, ptr, size); mdp -> mfree_hook = tr_freehook; mdp -> mmalloc_hook = tr_mallochook; mdp -> mrealloc_hook = tr_reallochook; if (hdr == NULL) /* Failed realloc. */ fprintf (mallstream, "! %08lx %x\n", (unsigned long) ptr, size); else fprintf (mallstream, "< %08lx\n> %08lx %x\n", (unsigned long) ptr, (unsigned long) hdr, size); if (hdr == mallwatch) tr_break (); return hdr; } /* We enable tracing if either the environment variable MALLOC_TRACE is set, or if the variable mallwatch has been patched to an address that the debugging user wants us to stop on. When patching mallwatch, don't forget to set a breakpoint on tr_break! */ int mmtrace () { #if 0 /* FIXME! This is disabled for now until we figure out how to maintain a stack of hooks per heap, since we might have other hooks (such as set by mmcheck) active also. */ char *mallfile; mallfile = getenv (mallenv); if (mallfile != NULL || mallwatch != NULL) { mallstream = fopen (mallfile != NULL ? mallfile : "/dev/null", "w"); if (mallstream != NULL) { /* Be sure it doesn't mmalloc its buffer! */ setbuf (mallstream, mallbuf); fprintf (mallstream, "= Start\n"); old_mfree_hook = mdp -> mfree_hook; mdp -> mfree_hook = tr_freehook; old_mmalloc_hook = mdp -> mmalloc_hook; mdp -> mmalloc_hook = tr_mallochook; old_mrealloc_hook = mdp -> mrealloc_hook; mdp -> mrealloc_hook = tr_reallochook; } } #endif /* 0 */ return (1); } gdb-4.13/mmalloc/mrealloc.c 666 34562 1752 10723 5232707627 14160 0ustar fnfcygnus/* Change the size of a block allocated by `mmalloc'. Copyright 1990, 1991 Free Software Foundation Written May 1989 by Mike Haertel. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. The author may be reached (Email) at the address mike@ai.mit.edu, or (US mail) as Mike Haertel c/o Free Software Foundation. */ #include /* Prototypes for memcpy, memmove, memset, etc */ #include "mmalloc.h" /* Resize the given region to the new size, returning a pointer to the (possibly moved) region. This is optimized for speed; some benchmarks seem to indicate that greater compactness is achieved by unconditionally allocating and copying to a new region. This module has incestuous knowledge of the internals of both mfree and mmalloc. */ PTR mrealloc (md, ptr, size) PTR md; PTR ptr; size_t size; { struct mdesc *mdp; PTR result; int type; size_t block, blocks, oldlimit; if (size == 0) { mfree (md, ptr); return (mmalloc (md, 0)); } else if (ptr == NULL) { return (mmalloc (md, size)); } mdp = MD_TO_MDP (md); if (mdp -> mrealloc_hook != NULL) { return ((*mdp -> mrealloc_hook) (md, ptr, size)); } block = BLOCK (ptr); type = mdp -> heapinfo[block].busy.type; switch (type) { case 0: /* Maybe reallocate a large block to a small fragment. */ if (size <= BLOCKSIZE / 2) { result = mmalloc (md, size); if (result != NULL) { memcpy (result, ptr, size); mfree (md, ptr); return (result); } } /* The new size is a large allocation as well; see if we can hold it in place. */ blocks = BLOCKIFY (size); if (blocks < mdp -> heapinfo[block].busy.info.size) { /* The new size is smaller; return excess memory to the free list. */ mdp -> heapinfo[block + blocks].busy.type = 0; mdp -> heapinfo[block + blocks].busy.info.size = mdp -> heapinfo[block].busy.info.size - blocks; mdp -> heapinfo[block].busy.info.size = blocks; mfree (md, ADDRESS (block + blocks)); result = ptr; } else if (blocks == mdp -> heapinfo[block].busy.info.size) { /* No size change necessary. */ result = ptr; } else { /* Won't fit, so allocate a new region that will. Free the old region first in case there is sufficient adjacent free space to grow without moving. */ blocks = mdp -> heapinfo[block].busy.info.size; /* Prevent free from actually returning memory to the system. */ oldlimit = mdp -> heaplimit; mdp -> heaplimit = 0; mfree (md, ptr); mdp -> heaplimit = oldlimit; result = mmalloc (md, size); if (result == NULL) { mmalloc (md, blocks * BLOCKSIZE); return (NULL); } if (ptr != result) { memmove (result, ptr, blocks * BLOCKSIZE); } } break; default: /* Old size is a fragment; type is logarithm to base two of the fragment size. */ if (size > (size_t) (1 << (type - 1)) && size <= (size_t) (1 << type)) { /* The new size is the same kind of fragment. */ result = ptr; } else { /* The new size is different; allocate a new space, and copy the lesser of the new size and the old. */ result = mmalloc (md, size); if (result == NULL) { return (NULL); } memcpy (result, ptr, MIN (size, (size_t) 1 << type)); mfree (md, ptr); } break; } return (result); } /* When using this package, provide a version of malloc/realloc/free built on top of it, so that if we use the default sbrk() region we will not collide with another malloc package trying to do the same thing, if the application contains any "hidden" calls to malloc/realloc/free (such as inside a system library). */ PTR realloc (ptr, size) PTR ptr; size_t size; { return (mrealloc ((PTR) NULL, ptr, size)); } gdb-4.13/mmalloc/mvalloc.c 666 34562 1752 2443 5173437640 13776 0ustar fnfcygnus/* Allocate memory on a page boundary. Copyright (C) 1991 Free Software Foundation, Inc. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "mmalloc.h" /* Cache the pagesize for the current host machine. Note that if the host does not readily provide a getpagesize() function, we need to emulate it elsewhere, not clutter up this file with lots of kluges to try to figure it out. */ static size_t pagesize; extern int getpagesize PARAMS ((void)); PTR mvalloc (md, size) PTR md; size_t size; { if (pagesize == 0) { pagesize = getpagesize (); } return (mmemalign (md, pagesize, size)); } gdb-4.13/mmalloc/sbrk-sup.c 666 34562 1752 6322 5340211250 14066 0ustar fnfcygnus/* Support for sbrk() regions. Copyright 1992 Free Software Foundation, Inc. Contributed by Fred Fish at Cygnus Support. fnf@cygnus.com This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include /* Prototypes for memcpy, memmove, memset, etc */ #include "mmalloc.h" extern PTR sbrk (); /* The mmalloc() package can use a single implicit malloc descriptor for mmalloc/mrealloc/mfree operations which do not supply an explicit descriptor. For these operations, sbrk() is used to obtain more core from the system, or return core. This allows mmalloc() to provide backwards compatibility with the non-mmap'd version. */ struct mdesc *__mmalloc_default_mdp; /* Use sbrk() to get more core. */ static PTR sbrk_morecore (mdp, size) struct mdesc *mdp; int size; { PTR result; if ((result = sbrk (size)) == (PTR) -1) { result = NULL; } else { mdp -> breakval += size; mdp -> top += size; } return (result); } /* Initialize the default malloc descriptor if this is the first time a request has been made to use the default sbrk'd region. Since no alignment guarantees are made about the initial value returned by sbrk, test the initial value and (if necessary) sbrk enough additional memory to start off with alignment to BLOCKSIZE. We actually only need it aligned to an alignment suitable for any object, so this is overkill. But at most it wastes just part of one BLOCKSIZE chunk of memory and minimizes portability problems by avoiding us having to figure out what the actual minimal alignment is. The rest of the malloc code avoids this as well, by always aligning to the minimum of the requested size rounded up to a power of two, or to BLOCKSIZE. Note that we are going to use some memory starting at this initial sbrk address for the sbrk region malloc descriptor, which is a struct, so the base address must be suitably aligned. */ struct mdesc * __mmalloc_sbrk_init () { PTR base; unsigned int adj; base = sbrk (0); adj = RESIDUAL (base, BLOCKSIZE); if (adj != 0) { sbrk (BLOCKSIZE - adj); base = sbrk (0); } __mmalloc_default_mdp = (struct mdesc *) sbrk (sizeof (struct mdesc)); memset ((char *) __mmalloc_default_mdp, 0, sizeof (struct mdesc)); __mmalloc_default_mdp -> morecore = sbrk_morecore; __mmalloc_default_mdp -> base = base; __mmalloc_default_mdp -> breakval = __mmalloc_default_mdp -> top = sbrk (0); __mmalloc_default_mdp -> fd = -1; return (__mmalloc_default_mdp); } gdb-4.13/opcodes/ 777 34562 1752 0 5623251716 12120 5ustar fnfcygnusgdb-4.13/opcodes/ChangeLog 666 34562 1752 71557 5620524663 14012 0ustar fnfcygnusFri Aug 5 14:00:05 1994 Stan Shebs (shebs@andros.cygnus.com) * Makefile.in (ns32k-dis.o): Add dependency. * ns32k-dis.c (print_insn_arg): Declare initialized local as string, not as array of chars. Wed Jul 13 18:01:58 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * ns32k-dis.c: Deleted all code in "#ifdef GDB". (invalid_float): Enabled general version, doesn't require running on ns32k host. Changed to take char* argument, and test for explicitly specified sizes, instead of using sizeof() on host CPU types. (INVALID_FLOAT): Cast first argument. (opt_u, opt_U, opt_O, opt_C, opt_S, list_P532, list_M532, list_P032, list_M032): Now const. (optlist, list_search): Made appropriate arguments now point to const. (print_insn_arg): Changed static array of one-character-string pointers into a static const array of characters; fixed sprintf statement accordingly. Sun Jul 10 00:27:47 1994 Ian Dall (dall@hfrd.dsto.gov.au) * opcodes/ns32k-dis.c: Semi-new file. Had apparently been dropped from distribution. A ns32k-dis.c from a previous distribution has been brought up to date and supports the new interface. * disaaemble.c: define ARCH_ns32k and add case bfd_arch_ns32k. * configure.in: add bfd_ns32k_arch target support. * Makefile.in: add ns32k-dis.o to ALL_MACHINES. Add ns32k-dis.c to CFILES. Add dependencies for ns32k-dis.o. Wed Jun 29 22:10:37 1994 Steve Chamberlain (sac@cygnus.com) * h8300-dis.c (bfd_h8_disassemble): Get 16bit branch disassembly right. Tue Jun 28 13:22:06 1994 Stan Shebs (shebs@andros.cygnus.com) * h8300-dis.c, mips-dis.c: Don't use true and false. Thu Jun 23 12:53:19 1994 David J. Mackenzie (djm@rtl.cygnus.com) * configure.in: Change --with-targets to --enable-targets. Wed Jun 22 13:38:32 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) * mips-dis.c (_print_insn_mips): Build a static hash table mapping opcodes to the first instruction with that opcode, to speed disassembly of large files. From ralphc@pyramid.com (Ralph Campbell). Tue Jun 7 12:49:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * Makefile.in (mostlyclean): Fix typo (was mostyclean). Wed May 11 22:32:00 1994 DJ Delorie (dj@ctron.com) * configure.bat: update to latest makefile.in Sat May 7 17:13:21 1994 Steve Chamberlain (sac@cygnus.com) * a29k-dis.c (print_insn): Print 'x' type operand in hex. * h8300-dis.c (bfd_h8_disassemble): Print 16bit rels correctly. * sh-dis.c (print_insn_sh): Don't recur endlessly if delay slot insn is in a delay slot. * z8k-opc.h: (resflg): Fix patterns. * h8500-opc.h Fix CR insn patterns. Fri May 6 14:34:46 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc-opc.c (powerpc_opcodes): Put PowerPC versions of "cmp" and "cmpl" before POWER versions, so that gas -many uses them. Thu Apr 28 18:32:36 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * disassemble.c: New file. * Makefile.in (OFILES): Add disassemble.o. (disassemble.o): Provide dependencies; compile with $(ARCHDEFS). * configure.in: Define ARCHDEFS in Makefile. Code taken from binutils/configure.in. * m68k-dis.c (print_insn_m68k): If F_ALIAS flag is set, skip the opcode being examined. Thu Apr 21 17:08:40 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc-opc.c (powerpc_operands): Added RAL, RAM and RAS. (insert_ral, insert_ram, insert_ras): New functions. (powerpc_opcodes): Use RAL for load with update, RAM for lmw, and RAS for store with update. Sat Apr 16 23:41:44 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc-opc.c (powerpc_opcodes): Correct fcir. From David Edelsohn (edelsohn@npac.syr.edu). Wed Apr 6 17:11:45 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c (mips_opcodes): Correct operands of "nor" with an immediate argument. Mon Apr 4 16:30:46 1994 Doug Evans (dje@canuck.cygnus.com) * sparc-opc.c (sparc_opcodes): Fix "rd %fprs,%l0". Mon Apr 4 13:22:00 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc-opc.c (powerpc_operands): The signedp field has been removed, so don't initialize it. Set the PPC_OPERAND_SIGNED flag instead. Add new operand SISIGNOPT. (powerpc_opcodes): For lis, liu, addis, and cau use SISIGNOPT. Based on patch from David Edelsohn (edelsohn@npac.syr.edu). * ppc-dis.c (print_insn_powerpc): Check PPC_OPERAND_SIGNED rather than signedp field. Wed Mar 30 00:31:49 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * i386-dis.c (struct private): Renamed to dis_private. `private' is a reserved word for dynix cc. Mon Mar 28 13:00:15 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * configure.in: Change error message to refer to bfd/config.bfd rather than bfd/configure.in. Mon Mar 28 12:28:30 1994 David Edelsohn (edelsohn@npac.syr.edu) * ppc-opc.c: Define POWER2 as short alias flag. (powerpc_opcodes): Add POWER/2 opcodes lfq*, stfq*, fcir[z], and fsqrt. Wed Mar 23 12:23:05 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * i960-dis.c (print_insn_i960): Don't read a second word for opcodes 0, 1, 2 and 3. Wed Mar 16 15:37:58 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * configure.in: Don't build m68881-ext.o for bfd_m68k_arch. Mon Mar 14 14:53:50 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * m68881-ext.c: Removed; no longer used. * Makefile.in: Changed accordingly. * m68k-dis.c (ext_format_68881): Don't declare. (print_insn_m68k): If an instruction uses place 'i', it uses at least four fixed bytes. (print_insn_arg): Don't bump p by 2 for case 'I', place 'i'. For extended float, convert to double using floatformat_to_double, not ieee_extended_to_double, and fetch the data before converting it. Tue Mar 8 18:12:25 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: It's sqrt.s, not sqrt.w. From davidj@ICSI.Berkeley.EDU (David Johnson). Tue Feb 8 16:55:27 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc-opc.c (powerpc_opcodes): The POWER uses bdn[l][a] where the PowerPC uses bdnz[l][a]. Tue Feb 8 00:32:28 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * dis-buf.c, i386-dis.c: Include sysdep.h. Mon Feb 7 19:22:23 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * configure.in (bfd_powerpc_arch): Use ppc-dis.o and ppc-opc.o. * ppc-opc.c (powerpc_opcodes): Mark POWER instructions supported by Motorola PowerPC 601 with PPC_OPCODE_601. * ppc-dis.c (print_insn_big_powerpc, print_insn_little_powerpc): Disassemble Motorola PowerPC 601 instructions as well as normal PowerPC instructions. Sun Feb 6 07:45:17 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * i960-dis.c (reg, mem): Just use a static array instead of calling xmalloc. Sat Feb 5 00:04:02 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa-dis.c (print_insn_hppa): For '?' and '@' only adjust the condition name index if this is for a negated condition. * hppa-dis.c (print_insn_hppa): No space before 'H' operand. Floating point format for 'H' operand is backwards from normal case (0 == double, 1 == single). For '4', '6', '7', '9', and '8' operands (fmpyadd and fmpysub), handle bizarre register translation correctly for single precision format. * hppa-dis.c (print_insn_hppa): Do not emit a space after 'F' or 'I' operands if the next format specifier is 'M' (fcmp condition completer). Feb 4 23:38:03 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc-opc.c (powerpc_operands): New operand type MBE to handle a single number giving a bitmask for the MB and ME fields of an M form instruction. Change NB to accept 32, and turn it into 0; also turn 0 into 32 when disassembling. Seperated SH from NB. (insert_mbe, extract_mbe): New functions. (insert_nb, extract_nb): New functions. (SC_MASK): Mask out SA and LK bits. (powerpc_opcodes): Change "cal" to use RT, D, RA rather than RT, RA, SI. Change "liu" and "cau" to use UI rather than SI. Mark "bctr" and "bctrl" as accepted by POWER. Change "rlwimi", "rlimi", "rlwimi.", "rlimi.", "rlwinm", "rlinm", "rlwinm.", "rlinm.", "rlmi", "rlmi.", "rlwnm", "rlnm", "rlwnm.", "rlnm." to use MBE rather than MB. Add "mfmq" and "mtmq" POWER instructions. (powerpc_macros): Define table of macro definitions. (powerpc_num_macros): Define. * ppc-dis.c (print_insn_powerpc): Don't skip optional operands if PPC_OPERAND_NEXT is set. Sat Jan 22 23:10:07 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * i960-dis.c (print_insn_i960): Make buffer bfd_byte instead of char. Retrieve contents using bfd_getl32 instead of shifting. Fri Jan 21 19:01:39 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * ppc-opc.c: New file. Opcode table for PowerPC, including opcodes for POWER (RS/6000). * ppc-dis.c: New file. PowerPC and Power (RS/6000) disassembler. * Makefile.in (ALL_MACHINES): Add ppc-dis.o and ppc-opc.o. (CFILES): Add ppc-dis.c. (ppc-dis.o, ppc-opc.o): New targets. * configure.in: Build ppc-dis.o and ppc-opc.o for bfd_rs6000_arch. Mon Jan 17 20:05:49 1994 Jeffrey A. Law (law@snake.cs.utah.edu) * hppa-dis.c (print_insn_hppa): Handle 'N' in assembler template. No space before 'u', 'f', or 'N'. Sun Jan 16 14:20:16 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * i386-dis.c (print_insn_i386): Add FIXME comment regarding reading farther than we should. * i386-dis.c (dis386): Use Yb and Yv for scasb and scasS. Thu Jan 6 12:38:05 1994 David J. Mackenzie (djm@thepub.cygnus.com) * sparc-dis.c m68k-dis.c alpha-dis.c a29k-dis.c: Fix comments. Wed Jan 5 11:56:21 1994 David J. Mackenzie (djm@thepub.cygnus.com) * i960-dis.c (print_insn_i960): Only read word2 if the instruction needs it, to prevent reading past the end of a section. Wed Nov 17 17:20:12 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.h: Use macro for j instruction, to support SVR4 PIC. Removed t,A case for la; always use t,A(b) case. Mon Nov 8 12:37:36 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) From Ted Lemen * mips-dis.c (print_insn_arg): Handle 'k'. * mips-opc.c: Make cache use k, not t. Sun Nov 7 23:52:34 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * alpha-opc.h, alpha-dis.c (print_insn_alpha): Add FLOAT_MEMORY_FORMAT_CODE, FLOAT_BRANCH_FORMAT_CODE, correct FLOAT_FORMAT_CODE to put out floating point register names. Mon Nov 1 18:17:51 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: Use macros for jal variants, to support SVR4 PIC. Thu Oct 28 17:42:23 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * a29k-dis.c (print_insn): Use 0x%08x, not 0x%8x. Wed Oct 27 11:48:01 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c (dsll, dsra, dsrl): Added '>' cases for shift counts larger than 32. Moved dsxx32 variants first for disassembler. Mon Oct 25 11:33:14 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * z8kgen.c, z8k-opc.h: Add full lda information. Tue Oct 19 12:39:25 1993 Jeffrey A Law (law@cs.utah.edu) * hppa-dis.c (print_insn_hppa): Do not emit a space after movb instructions. Any necessary space will be emitted by the code to handle nullification completers. Wed Oct 13 16:19:07 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: Moved l.d down so that it disassembles as ldc1. Fri Oct 8 02:34:21 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * alpha-opc.h: Add ldl_l, fix typo for ldq_u. * alpha-dis.c (print_insn_alpha): Add code for PAL_FORMAT_CODE. Tue Oct 5 17:47:53 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: Correct lwu opcode value (book had it wrong). Thu Sep 30 11:26:18 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * z8k-dis.c (FETCH_DATA): get just the right amount of data. (unpack_instr): Cope with ARG_IMM4M1 type instructions. Wed Sep 29 16:24:49 1993 K. Richard Pixley (rich@sendai.cygnus.com) * m88k-dis.c (m88kdis): comment change. Remove space after printing mnemonic. (printop): handle new arg types DEC and XREG for m88110. Tue Sep 28 19:20:16 1993 Jeffrey A Law (law@snake.cs.utah.edu) * hppa-dis.c (print_insn_hppa): Handle 'z' operand type for absolute branch addresses. Delete special "ble" and "be" code in 'W' operand code. Fri Sep 24 14:08:33 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: Set hazard information correctly for branch likely instructions. Fri Sep 17 04:41:17 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * alpha-dis.c (print_insn_alpha), alpha-opc.h: Fix bugs, use info->fprintf_func for printing and info->print_address_func for address output. Wed Sep 15 12:12:07 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: Set INSN_TRAP for tXX instructions. Thu Sep 9 10:11:27 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: From davidj@ICSI.Berkeley.EDU (David Johnson): Corrected second case of "b" for disassembler. Tue Sep 7 14:25:15 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-dis.c, m88k-dis.c: Don't include libbfd.h. Changed calls to BFD swapping routines to correspond to BFD name changes. Thu Sep 2 10:35:25 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: Change div machine instruction to be z,s,t rather than s,t. Change div macro to be d,v,t rather than d,s,t. Likewise for divu, ddiv, ddivu. Added z,s,t case for drem, dremu, rem and remu which generates only the corresponding div instruction. This is for compatibility with the MIPS assembler, which only generates the simple machine instruction when an explicit destination of $0 is used. * mips-dis.c (print_insn_arg): Handle 'z' (always register zero). Thu Aug 26 17:41:44 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: From davidj@ICSI.Berkeley.EDU (David Johnson): Set WR_31 hazard for bal, bgezal, bltzal. Thu Aug 26 17:20:02 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * hppa-dis.c (print_insn_hppa): Use print function from within the disassemble_info, not fprintf_filtered. Wed Aug 25 13:51:40 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * hppa-dis.c (print_insn_hppa): Handle '|' like '>'. (From Jeff Law, law@cs.utah.edu.) Mon Aug 23 12:44:05 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c ("absu"): Removed. ("dabs"): Added. Fri Aug 20 10:52:52 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: Added r6000 and r4000 instructions and macros. Changed hazard information to distinguish between memory load delays and coprocessor load delays. Wed Aug 18 15:39:23 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: li.d uses "T,L", not "S,F". Added li.s. Tue Aug 17 09:44:42 1993 David J. Mackenzie (djm@thepub.cygnus.com) * configure.in: Don't pass cpu to config.bfd. Tue Aug 17 12:23:52 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * m88k-dis.c (m88kdis): Make class unsigned. Thu Aug 12 15:08:18 1993 Ian Lance Taylor (ian@cygnus.com) * alpha-dis.c (print_insn_alpha): One branch format case was missing the instruction name. Wed Aug 11 19:29:39 1993 David J. Mackenzie (djm@thepub.cygnus.com) * Makefile.in (ALL_MACHINES): Renamed from DIS_LIBS. Add the arch-specific auxiliary files. (OFILES): Remove the arch-specific auxiliary files and use BFD_MACHINES instead of DIS_LIBS. * configure.in: Set BFD_MACHINES based on --with-targets option. Thu Aug 12 12:04:53 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: Added lwc1 E,A(b) to go with lwc1 T,A(b). Similarly for swc1. Sun Aug 8 15:09:30 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * sparc-opc.c: Change CONST to const to deal with gcc -Dconst=__const -traditional. Fri Aug 6 10:58:55 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-opc.c: From davidj@ICSI.Berkeley.EDU (David Johnson): Took coprocessor instructions out of #if 0, and made them use new argument type "C". Thu Aug 5 17:11:06 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * sparc-dis.c: Include ansidecl.h before opcodes/sparc.h. Fri Jul 30 18:48:15 1993 John Gilmore (gnu@cygnus.com) * sparc-opc.c: Add F_JSR, F_UNBR, or F_CONDBR flags to each branch instruction, for use by the disassembler. * sparc-dis.c (SEX): Add sign extension macro. Replace many hand-coded sign extensions that depended on 32-bit host ints. FIXME, we still depend on big-endian host bitfield ordering. (sparc_print_insn): Set the insn_info_valid field, and the other fields that describe the instruction being printed. Tue Jul 27 17:04:58 1993 Jim Wilson (wilson@sphagnum.cygnus.com) * sparc-opc.c (call): Accept all 6 addressing modes valid for `jmp' instead of just one of them. Wed Jul 21 11:43:32 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * hppa-dis.c: Move floating registers from reg_names to fp_reg_names. (fput_fp_reg_r): Renamed from fput_reg_r. (fput_fp_reg): New function. (print_insn_hppa): Use fput_fp_reg{,_r} where appropriate. * hppa-dis.c (print_insn_hppa, cases 'a', 'd'): Print space afterwards. * hppa-dis.c (print_insn_hppa, case 'd'): Use GET_COND not GET_FIELD. Mon Jul 19 13:52:21 1993 Jim Kingdon (kingdon@deneb.cygnus.com) * hppa-dis.c (print_insn_hppa): Use extract_5r_store for 'r'. * hppa-dis.c (print_insn_hppa, case '>'): If next character is 'n', don't output a space. * hppa-dis.c (float_format_names): 10 is undefined, and 11 is quad. Sun Jul 18 16:30:02 1993 Jim Kingdon (kingdon@rtl.cygnus.com) * mips-opc.c: New file, containing opcode table from ../include/opcode/mips.h. * Makefile.in: Add it. Thu Jul 15 12:37:05 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * m88k-dis.c: New file, moved in from gdb and changed to use the new dis-asm.h disassembler interface. * Makefile.in (DIS_LIBS): Added m88k-dis.o. (m88k-dis.o): New target. Tue Jul 13 10:04:16 1993 Ian Lance Taylor (ian@cygnus.com) * mips-dis.c (print_insn_arg, _print_insn_mips): Made pointer to argument string const char * to correspond to opcode/mips.h. Tue Jul 6 15:18:37 1993 Ian Lance Taylor (ian@cygnus.com) * mips-dis.c: Updated to account for name changes in new version of opcode/mips.h. * Makefile.in: Added header file dependencies. Sat Jul 3 23:47:56 1993 Doug Evans (dje@canuck.cygnus.com) * h8300-dis.c (bfd_h8_disassemble): Correct fetching of instruction. Thu Jul 1 12:23:38 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * m68k-dis.c (NEXTWORD, NEXTLONG): Use ((x) ^ 0x8000) - 0x8000 to sign extend, rather than shifts. Sun Jun 20 20:56:56 1993 Ken Raeburn (raeburn@poseidon.cygnus.com) * Makefile.in: Undo 15 June change. Fri Jun 18 14:15:15 1993 Per Bothner (bothner@deneb.cygnus.com) * m68k-dis.c (print_insn_arg): Change return value to byte count or error code. * m68k-dis.c: Re-write to detect invalid operands before printing anything, so we can handle this the same way we handle invalid opcodes. Thu Jun 17 15:01:36 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * sh-dis.c, sh-opc.h: Understand some more opcodes. Wed Jun 16 13:48:05 1993 Ian Lance Taylor (ian@cygnus.com) * hppa-dis.c: Include and sysdep.h before other header files. Tue Jun 15 21:45:26 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * sparc-dis.c: Don't declare qsort, since sysdep.h might. * configure.in: Do make sysdep.h link. * Makefile.in: Search ../include. Don't search ../bfd. Tue Jun 15 13:36:10 1993 Stu Grossman (grossman@cygnus.com) Changes from Jeff Law, law@cs.utah.edu: * hppa-dis.c: Fix typo. 'a' and 'd' were reversed. Do not print a space before the completers specified by 'a' and 'd'. Fri Jun 11 18:40:21 1993 Ken Raeburn (raeburn@cygnus.com) * mips-dis.c: No longer need to bomb out if HOST_64_BIT is defined, since gdb has been fixed. Changes from Jeff Law, law@cs.utah.edu: * hppa-dis.c (print_insn_hppa): Last argument to fput_reg, fput_reg_r, fput_creg, fput_const, and fputs_filtered should be a *disassemble_info, not a *FILE. * hppa-dis.c: Support 'd', '!', and 'a'. * hppa-dis.c: Support 's' to extract a 2 bit space register. * hppa-dis.c: Delete cases which are no longer needed. Fri Jun 11 07:53:48 1993 Jim Kingdon (kingdon@cygnus.com) * m68k-dis.c (print_insn_{m68k,arg}): Add MMU codes. Tue Jun 8 12:25:01 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * h8300-dis.c: New file, removed from bfd/cpu-h8300.c, with H8/300-H opcodes. Mon Jun 7 12:58:49 1993 Per Bothner (bothner@rtl.cygnus.com) * Makefile.in (CSEARCH): Add -I../bfd for sysdep.h and bfd.h. * configure.in: No longer need to configure to get sysdep.h. Thu Jun 3 15:56:49 1993 Stu Grossman (grossman@cygnus.com) * Patches from Jeffrey Law . * hppa-dis.c: Support 'I', 'J', and 'K' in output templates for 1.1 FP computational instructions. Tue May 25 13:05:48 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * h8500-dis.c (print_insn_h8500): Address argument is type bfd_vma. * z8k-dis.c (print_insn_z8k, print_insn_z8001, print_insn_z8002): Ditto. * h8500-opc.h (addr_class_type): No comma at end of enumerator. * sh-opc.h (sh_nibble_type, sh_arg_type): Ditto. * sparc-dis.c (compare_opcodes): Move static declaration to top-level. Fri May 21 14:17:37 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * sparc-dis.c (print_insn_sparc): Implement 'n' argument for unimp instruction, remove unimp hack from 'l' argument. Wed May 19 15:35:54 1993 Stu Grossman (grossman@cygnus.com) * z8k-dis.c (fetch_data): Use unsigned char to make ancient gcc's happy. Fri May 14 15:22:46 1993 Ian Lance Taylor (ian@cygnus.com) * Based on patches from davidj@ICSI.Berkeley.EDU (David Johnson): * mips-dis.c (print_insn_arg): Handle 'C' for general coprocessor instructions. Fri May 14 00:09:14 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * hppa-dis.c: Include dis-asm.h before sysdep.h. Changed some arrays of string pointers to 2-d arrays of chars, to save space. Thu May 6 20:51:17 1993 Fred Fish (fnf@cygnus.com) * a29k-dis.c, alpha-dis.c, i960-dis.c, sparc-dis.c, z8k-dis.c: Cast second arg to read_memory_func to "bfd_byte *", as necessary. Tue May 4 20:31:10 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * hppa-dis.c: New file from Utah, adapted to new disassembler calling interface. * Makefile.in: Include it. Mon Apr 26 18:17:42 1993 Steve Chamberlain (sac@thepub.cygnus.com) * sh-dis.c, sh-opc.h: New files. Fri Apr 23 18:51:22 1993 Steve Chamberlain (sac@thepub.cygnus.com) * alpha-dis.c, alpha-opc.h: New files. Tue Apr 6 12:54:08 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * mips-dis.c: Sign extend 'j' and 'b' arguments, delta is a signed value. Mon Apr 5 17:37:37 1993 John Gilmore (gnu@cygnus.com) * sparc-dis.c: Make "ta" the default trap instruction, "t" the alias. Fri Apr 2 07:24:27 1993 Ian Lance Taylor (ian@cygnus.com) * a29k-dis.c, sparc-dis.c, sparc-opc.c: Use CONST rather than const. Thu Apr 1 11:20:43 1993 Jim Kingdon (kingdon@cygnus.com) * sparc-dis.c: Use fprintf_func a few places where I forgot, and double percent signs a few places. * a29k-dis.c, i960-dis.c: New, merged from gdb and binutils. * i386-dis.c, m68k-dis.c, mips-dis.c, sparc-dis.c: Use info->print_address_func not print_address. * dis-buf.c (generic_print_address): New function. Wed Mar 31 10:07:04 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Add sparc-dis.c. sparc-dis.c: New file, merges binutils and gdb versions as follows: From GDB: Add `add' instruction to the set that get checked for a preceding `sethi' in order to print an absolute address. * (print_insn): Disassembly prefers real instructions. (is_delayed_branch): Speed up. * sparc-opcode.h: Add ALIAS bit to aliases. Fix up opcode tables. Still missing some float ops, and needs testing. * sparc-pinsn.c (print_insn): Eliminate 'set' test, subsumed by F_ALIAS. Use printf, not fprintf, when not passing a file pointer... (compare_opcodes): Check that identical instructions have identical opcodes, complain otherwise. From binutils: * New 'm' arg. * Include reg_names. From neither: Use dis-asm.h/read_memory_func interface. Wed Mar 31 20:49:06 1993 K. Richard Pixley (rich@rtl.cygnus.com) * h8500-dis.c, i386-dis.c, m68k-dis.c, z8k-dis.c (fetch_data): deliberately return non-zero to setjmp from longjmp. Otherwise this code fails to compile. Wed Mar 31 17:04:31 1993 Stu Grossman (grossman@cygnus.com) * m68k-dis.c: Fix prototype for fetch_arg(). Wed Mar 31 10:07:04 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * dis-buf.c: New file, for new read_memory_func interface. Makefile.in (OFILES): Include it. m68k-dis.c, i386-dis.c, h8500-dis.c, mips-dis.c, z8k-dis.c: Use new read_memory_func interface. Mon Mar 29 14:02:17 1993 Steve Chamberlain (sac@thepub.cygnus.com) * h8500-dis.c (print_insn_h8500): Get sign of fp offsets right. * h8500-opc.h: Fix couple of opcodes. Wed Mar 24 02:03:36 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: add dvi & installcheck targets Mon Mar 22 18:55:04 1993 John Gilmore (gnu@cygnus.com) * Makefile.in: Update for h8500-dis.c. Fri Mar 19 14:27:17 1993 Steve Chamberlain (sac@thepub.cygnus.com) * h8500-dis.c, h8500-opc.h: New files Thu Mar 18 14:12:37 1993 Per Bothner (bothner@rtl.cygnus.com) * mips-dis.c, z8k-dis.c: Converted to use interface defined in ../include/dis-asm.h. * m68k-dis.c: New file (merge of ../binutils/m68k-pinsn.c and ../gdb/m68k-pinsn.c). * i386-dis.c: New file (merge of ../binutils/i386-pinsn.c and ../gdb/i386-pinsn.c). * m68881-ext.c: New file. Moved definition of ext_format ext_format_68881 from ../gdb/m68k-tdep.c. * Makefile.in: Adjust for new files. * i386-dis.c: Patches from John Hassey (hassey@dg-rtp.dg.com). * m68k-dis.c: Recognize '9' placement code, so (say) pflush can be dis-assembled. Wed Feb 17 09:19:47 1993 Ken Raeburn (raeburn@cambridge.cygnus.com) * mips-dis.c (print_insn_arg): Now returns void. Mon Jan 11 16:09:16 1993 Fred Fish (fnf@cygnus.com) * mips-dis.c (ansidecl.h): Include for benefit of sysdep.h files that use the macros. Thu Jan 7 13:15:17 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * mips-dis.c: New file, from gdb/mips-pinsn.c. * Makefile.in (DIS_LIBS): Added mips-dis.o. (CFILES): Added mips-dis.c. Thu Jan 7 07:36:33 1993 Steve Chamberlain (sac@thepub.cygnus.com) * z8k-dis.c (print_insn_z8001, print_insn_z8002): new routines * z8kgen.c, z8k-opc.h: fix sizes of some shifts. Tue Dec 22 15:42:44 1992 Per Bothner (bothner@rtl.cygnus.com) * Makefile.in: Improve *clean rules. * configure.in: Allow a default host. Tue Nov 17 19:53:54 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: also use -I$(srcdir)/../bfd, since some sysdep files include other sysdep files Thu Nov 12 16:10:37 1992 Steve Chamberlain (sac@thepub.cygnus.com) * z8k-dis.c z8k-opc.h z8kgen.c: checkpoint Fri Oct 9 04:56:05 1992 John Gilmore (gnu@cygnus.com) * configure.in: For host support, use ../bfd/configure.host so it stays in sync with the ../bfd/hosts database. Thu Oct 1 23:38:54 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: use cpu-vendor-os triple instead of nested cases Wed Sep 30 16:09:20 1992 Michael Werner (mtw@cygnus.com) * z8k-dis.c (unparse_instr): fix bug where opcode returned was *always* the wrong one. Wed Sep 30 07:42:17 1992 Steve Chamberlain (sac@thepub.cygnus.com) * z8kgen.c: added copyright info Tue Sep 29 12:20:21 1992 Steve Chamberlain (sac@thepub.cygnus.com) * z8k-dis.c (unparse_instr): prettier tabs * z8kgen.c -> z8k-opc.h: bug fixes in tables Fri Sep 25 12:50:32 1992 Stu Grossman (grossman at cygnus.com) * configure.in: Add ncr* configuration. * z8k-dis.c (struct instr_data_s): Make instr_asmsrc char to make picayune ANSI compilers happy. Sep 20 08:50:55 1992 Fred Fish (fnf@cygnus.com) * configure.in (i386): Make i386 and i486 synonymous for now. * configure.in (i[34]86-*-sysv4): Add my_host definition. Fri Sep 18 17:01:23 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * Makefile.in (install): Fix typo. Fri Sep 18 02:04:24 1992 John Gilmore (gnu@cygnus.com) * Makefile.in (make): Remove obsolete crud. (sparc-opc.o): Avoid Sun Make VPATH bug. Tue Sep 8 17:29:27 1992 K. Richard Pixley (rich@sendai.cygnus.com) * Makefile.in: since there are no SUBDIRS, remove rule and references of subdir_do. Tue Sep 8 17:02:58 1992 Ken Raeburn (raeburn@cambridge.cygnus.com) * Makefile.in (install): Get the library name right here too. Don't install bfd.h, since it's unrelated to this library. No subdirs to recurse into, either. (CFILES): The source file has a .c suffix, not .o. * sparc-opc.c: New file, moved from BFD. * Makefile.in (OFILES): Build it. Thu Sep 3 16:59:20 1992 Michael Werner (mtw@cygnus.com) * z8k-dis.c: fixed forward refferences of some declarations. Mon Aug 31 16:09:45 1992 Michael Werner (mtw@cygnus.com) * Makefile.in: get the name of the library right Mon Aug 31 13:47:35 1992 Steve Chamberlain (sac@thepub.cygnus.com) * z8k-dis.c: knows how to disassemble z8k stuff * z8k-opc.h: new file full of z8000 opcodes Local Variables: version-control: never End: gdb-4.13/opcodes/Makefile.in 666 34562 1752 12732 5620524656 14275 0ustar fnfcygnus# Makefile template for Configure for the opcodes library. # Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. # Written by Cygnus Support. # # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. srcdir = . prefix = /usr/local exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include oldincludedir = docdir = $(srcdir)/doc SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) AR = ar AR_FLAGS = qc CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib INCDIR = $(srcdir)/../include BFDDIR = $(srcdir)/../bfd CSEARCH = -I. -I$(srcdir) -I../bfd -I$(INCDIR) -I$(BFDDIR) DEP = mkdep TARGETLIB = libopcodes.a # To circumvent a Sun make VPATH bug, each file listed here # should also have a foo.o: foo.c line further along in this file. ALL_MACHINES = a29k-dis.o alpha-dis.o h8300-dis.o h8500-dis.o \ hppa-dis.o i386-dis.o i960-dis.o m68k-dis.o \ m88k-dis.o mips-dis.o mips-opc.o sh-dis.o sparc-dis.o \ sparc-opc.o z8k-dis.o ns32k-dis.o ppc-dis.o ppc-opc.o # BFD_MACHINES is set by configure.in. OFILES = $(BFD_MACHINES) dis-buf.o disassemble.o #### host and target dependent Makefile fragments come in here. ### FLAGS_TO_PASS = \ "against=$(against)" \ "AR=$(AR)" \ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CFLAGS=$(CFLAGS)" \ "RANLIB=$(RANLIB)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "BISON=$(BISON)" .c.o: $(CC) -c $(CFLAGS) $(HDEFINES) $(TDEFINES) $(CSEARCH) $(CSWITCHES) $< # C source files that correspond to .o's. CFILES = i386-dis.c z8k-dis.c m68k-dis.c mips-dis.c ns32k-dis.c ppc-dis.c STAGESTUFF = $(TARGETLIB) $(OFILES) all: $(TARGETLIB) .NOEXPORT: installcheck check: info: clean-info: install-info: dvi: # HDEPFILES comes from the host config; TDEPFILES from the target config. $(TARGETLIB): $(OFILES) rm -f $(TARGETLIB) $(AR) $(AR_FLAGS) $(TARGETLIB) $(OFILES) $(RANLIB) $(TARGETLIB) disassemble.o: disassemble.c $(INCDIR)/dis-asm.h $(CC) -c $(CFLAGS) $(ARCHDEFS) $(HDEFINES) $(TDEFINES) $(CSEARCH) $(CSWITCHES) $< a29k-dis.o: a29k-dis.c $(INCDIR)/dis-asm.h $(INCDIR)/opcode/a29k.h dis-buf.o: dis-buf.c $(INCDIR)/dis-asm.h h8500-dis.o: h8500-dis.c h8500-opc.h $(INCDIR)/dis-asm.h h8300-dis.o: h8300-dis.c $(INCDIR)/dis-asm.h $(INCDIR)/opcode/h8300.h i386-dis.o: i386-dis.c $(INCDIR)/dis-asm.h i960-dis.o: i960-dis.c $(INCDIR)/dis-asm.h m68k-dis.o: m68k-dis.c $(INCDIR)/dis-asm.h $(INCDIR)/floatformat.h \ $(INCDIR)/opcode/m68k.h mips-dis.o: mips-dis.c $(INCDIR)/dis-asm.h $(INCDIR)/opcode/mips.h mips-opc.o: mips-opc.c $(INCDIR)/opcode/mips.h ppc-dis.o: ppc-dis.c $(INCDIR)/dis-asm.h $(INCDIR)/opcode/ppc.h ppc-opc.o: ppc-opc.c $(INCDIR)/opcode/ppc.h sparc-dis.o: sparc-dis.c $(INCDIR)/dis-asm.h $(INCDIR)/opcode/sparc.h sparc-opc.o: sparc-opc.c $(INCDIR)/opcode/sparc.h z8k-dis.o: z8k-dis.c z8k-opc.h $(INCDIR)/dis-asm.h ns32k-dis.o: ns32k-dis.c $(INCDIR)/dis-asm.h $(INCDIR)/opcode/ns32k.h sh-dis.o: sh-dis.c sh-opc.h $(INCDIR)/dis-asm.h alpha-dis.o: alpha-dis.c alpha-opc.h $(INCDIR)/dis-asm.h hppa-dis.o: hppa-dis.c $(INCDIR)/dis-asm.h $(INCDIR)/opcode/hppa.h m88k-dis.o: m88k-dis.c $(INCDIR)/dis-asm.h $(INCDIR)/opcode/m88k.h tags etags: TAGS TAGS: force etags $(INCDIR)/*.h $(srcdir)/*.h $(srcdir)/*.c MOSTLYCLEAN = *.o core *.E *.p *.ip mostlyclean: rm -rf $(MOSTLYCLEAN) clean: rm -f *.a $(MOSTLYCLEAN) distclean: clean rm -rf Makefile config.status sysdep.h TAGS clobber realclean: distclean # Mark everything as depending on config.status, since the timestamp on # sysdep.h might actually move backwards if we reconfig and relink it # to a different hosts/h-xxx.h file. This will force a recompile anyway. RECONFIG = config.status # This target should be invoked before building a new release. # 'VERSION' file must be present and contain a string of the form "x.y" # roll: @V=`cat VERSION` ; \ MAJ=`sed 's/\..*//' VERSION` ; \ MIN=`sed 's/.*\.//' VERSION` ; \ V=$$MAJ.`expr $$MIN + 1` ; \ rm -f VERSION ; \ echo $$V >VERSION ; \ echo Version $$V # Dummy target to force execution of dependent targets. # force: install: $(INSTALL_DATA) $(TARGETLIB) $(libdir)/libopcodes.a $(RANLIB) $(libdir)/libopcodes.a Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status dep: $(CFILES) mkdep $(CFLAGS) $? # What appears below is generated by a hacked mkdep using gcc -MM. # DO NOT DELETE THIS LINE -- mkdep uses it. # DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. # IF YOU PUT ANYTHING HERE IT WILL GO AWAY gdb-4.13/opcodes/a29k-dis.c 666 34562 1752 22075 5563027772 13723 0ustar fnfcygnus/* Instruction printing code for the AMD 29000 Copyright (C) 1990 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Jim Kingdon. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "dis-asm.h" #include "opcode/a29k.h" /* Print a symbolic representation of a general-purpose register number NUM on STREAM. NUM is a number as found in the instruction, not as found in debugging symbols; it must be in the range 0-255. */ static void print_general (num, info) int num; struct disassemble_info *info; { if (num < 128) (*info->fprintf_func) (info->stream, "gr%d", num); else (*info->fprintf_func) (info->stream, "lr%d", num - 128); } /* Like print_general but a special-purpose register. The mnemonics used by the AMD assembler are not quite the same as the ones in the User's Manual. We use the ones that the assembler uses. */ static void print_special (num, info) int num; struct disassemble_info *info; { /* Register names of registers 0-SPEC0_NUM-1. */ static char *spec0_names[] = { "vab", "ops", "cps", "cfg", "cha", "chd", "chc", "rbp", "tmc", "tmr", "pc0", "pc1", "pc2", "mmu", "lru" }; #define SPEC0_NUM ((sizeof spec0_names) / (sizeof spec0_names[0])) /* Register names of registers 128-128+SPEC128_NUM-1. */ static char *spec128_names[] = { "ipc", "ipa", "ipb", "q", "alu", "bp", "fc", "cr" }; #define SPEC128_NUM ((sizeof spec128_names) / (sizeof spec128_names[0])) /* Register names of registers 160-160+SPEC160_NUM-1. */ static char *spec160_names[] = { "fpe", "inte", "fps", "sr163", "exop" }; #define SPEC160_NUM ((sizeof spec160_names) / (sizeof spec160_names[0])) if (num < SPEC0_NUM) (*info->fprintf_func) (info->stream, spec0_names[num]); else if (num >= 128 && num < 128 + SPEC128_NUM) (*info->fprintf_func) (info->stream, spec128_names[num-128]); else if (num >= 160 && num < 160 + SPEC160_NUM) (*info->fprintf_func) (info->stream, spec160_names[num-160]); else (*info->fprintf_func) (info->stream, "sr%d", num); } /* Is an instruction with OPCODE a delayed branch? */ static int is_delayed_branch (opcode) int opcode; { return (opcode == 0xa8 || opcode == 0xa9 || opcode == 0xa0 || opcode == 0xa1 || opcode == 0xa4 || opcode == 0xa5 || opcode == 0xb4 || opcode == 0xb5 || opcode == 0xc4 || opcode == 0xc0 || opcode == 0xac || opcode == 0xad || opcode == 0xcc); } /* Now find the four bytes of INSN and put them in *INSN{0,8,16,24}. */ static void find_bytes_big (insn, insn0, insn8, insn16, insn24) char *insn; unsigned char *insn0; unsigned char *insn8; unsigned char *insn16; unsigned char *insn24; { *insn24 = insn[0]; *insn16 = insn[1]; *insn8 = insn[2]; *insn0 = insn[3]; } static void find_bytes_little (insn, insn0, insn8, insn16, insn24) char *insn; unsigned char *insn0; unsigned char *insn8; unsigned char *insn16; unsigned char *insn24; { *insn24 = insn[3]; *insn16 = insn[2]; *insn8 = insn[1]; *insn0 = insn[0]; } typedef (*find_byte_func_type) PARAMS ((char *, unsigned char *, unsigned char *, unsigned char *, unsigned char *)); /* Print one instruction from MEMADDR on INFO->STREAM. Return the size of the instruction (always 4 on a29k). */ static int print_insn (memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { /* The raw instruction. */ char insn[4]; /* The four bytes of the instruction. */ unsigned char insn24, insn16, insn8, insn0; find_byte_func_type find_byte_func = (find_byte_func_type)info->private_data; struct a29k_opcode CONST * opcode; { int status = (*info->read_memory_func) (memaddr, (bfd_byte *) &insn[0], 4, info); if (status != 0) { (*info->memory_error_func) (status, memaddr, info); return -1; } } (*find_byte_func) (insn, &insn0, &insn8, &insn16, &insn24); /* Handle the nop (aseq 0x40,gr1,gr1) specially */ if ((insn24==0x70) && (insn16==0x40) && (insn8==0x01) && (insn0==0x01)) { (*info->fprintf_func) (info->stream,"nop"); return 4; } /* The opcode is always in insn24. */ for (opcode = &a29k_opcodes[0]; opcode < &a29k_opcodes[num_opcodes]; ++opcode) { if ((insn24<<24) == opcode->opcode) { char *s; (*info->fprintf_func) (info->stream, "%s ", opcode->name); for (s = opcode->args; *s != '\0'; ++s) { switch (*s) { case 'a': print_general (insn8, info); break; case 'b': print_general (insn0, info); break; case 'c': print_general (insn16, info); break; case 'i': (*info->fprintf_func) (info->stream, "%d", insn0); break; case 'x': (*info->fprintf_func) (info->stream, "0x%x", (insn16 << 8) + insn0); break; case 'h': /* This used to be %x for binutils. */ (*info->fprintf_func) (info->stream, "0x%x", (insn16 << 24) + (insn0 << 16)); break; case 'X': (*info->fprintf_func) (info->stream, "%d", ((insn16 << 8) + insn0) | 0xffff0000); break; case 'P': /* This output looks just like absolute addressing, but maybe that's OK (it's what the GDB m68k and EBMON a29k disassemblers do). */ /* All the shifting is to sign-extend it. p*/ (*info->print_address_func) (memaddr + (((int)((insn16 << 10) + (insn0 << 2)) << 14) >> 14), info); break; case 'A': (*info->print_address_func) ((insn16 << 10) + (insn0 << 2), info); break; case 'e': (*info->fprintf_func) (info->stream, "%d", insn16 >> 7); break; case 'n': (*info->fprintf_func) (info->stream, "0x%x", insn16 & 0x7f); break; case 'v': (*info->fprintf_func) (info->stream, "0x%x", insn16); break; case 's': print_special (insn8, info); break; case 'u': (*info->fprintf_func) (info->stream, "%d", insn0 >> 7); break; case 'r': (*info->fprintf_func) (info->stream, "%d", (insn0 >> 4) & 7); break; case 'd': (*info->fprintf_func) (info->stream, "%d", (insn0 >> 2) & 3); break; case 'f': (*info->fprintf_func) (info->stream, "%d", insn0 & 3); break; case 'F': (*info->fprintf_func) (info->stream, "%d", (insn16 >> 2) & 15); break; case 'C': (*info->fprintf_func) (info->stream, "%d", insn16 & 3); break; default: (*info->fprintf_func) (info->stream, "%c", *s); } } /* Now we look for a const,consth pair of instructions, in which case we try to print the symbolic address. */ if (insn24 == 2) /* consth */ { int errcode; char prev_insn[4]; unsigned char prev_insn0, prev_insn8, prev_insn16, prev_insn24; errcode = (*info->read_memory_func) (memaddr - 4, (bfd_byte *) &prev_insn[0], 4, info); if (errcode == 0) { /* If it is a delayed branch, we need to look at the instruction before the delayed brach to handle things like const _foo call _printf consth _foo */ (*find_byte_func) (prev_insn, &prev_insn0, &prev_insn8, &prev_insn16, &prev_insn24); if (is_delayed_branch (prev_insn24)) { errcode = (*info->read_memory_func) (memaddr - 8, (bfd_byte *) &prev_insn[0], 4, info); (*find_byte_func) (prev_insn, &prev_insn0, &prev_insn8, &prev_insn16, &prev_insn24); } } /* If there was a problem reading memory, then assume the previous instruction was not const. */ if (errcode == 0) { /* Is it const to the same register? */ if (prev_insn24 == 3 && prev_insn8 == insn8) { (*info->fprintf_func) (info->stream, "\t; "); (*info->print_address_func) (((insn16 << 24) + (insn0 << 16) + (prev_insn16 << 8) + (prev_insn0)), info); } } } return 4; } } /* This used to be %8x for binutils. */ (*info->fprintf_func) (info->stream, ".word 0x%08x", (insn24 << 24) + (insn16 << 16) + (insn8 << 8) + insn0); return 4; } /* Disassemble an big-endian a29k instruction. */ int print_insn_big_a29k (memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { info->private_data = (PTR) find_bytes_big; return print_insn (memaddr, info); } /* Disassemble a little-endian a29k instruction. */ int print_insn_little_a29k (memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { info->private_data = (PTR) find_bytes_little; return print_insn (memaddr, info); } gdb-4.13/opcodes/alpha-dis.c 666 34562 1752 10752 5513073227 14230 0ustar fnfcygnus/* Instruction printing code for the Alpha Copyright (C) 1993 Free Software Foundation, Inc. Contributed by Cygnus Support. Written by Steve Chamberlain (sac@cygnus.com) This file is part of libopcodes. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "dis-asm.h" #define DEFINE_TABLE #include "alpha-opc.h" /* Print one instruction from PC on INFO->STREAM. Return the size of the instruction (always 4 on alpha). */ int print_insn_alpha(pc, info) bfd_vma pc; struct disassemble_info *info; { alpha_insn *insn; unsigned char b[4]; void *stream = info->stream; fprintf_ftype func = info->fprintf_func; int given; int status ; int found = 0; status = (*info->read_memory_func) (pc, (bfd_byte *) &b[0], 4, info); if (status != 0) { (*info->memory_error_func) (status, pc, info); return -1; } given = (b[0]) | (b[1] << 8) | (b[2] << 16) | (b[3] << 24); func (stream, "%08x %2x\t", given, (given>>26) & 0x3f); for (insn = alpha_insn_set; insn->name && !found; insn++) { switch (insn->type) { case MEMORY_FORMAT_CODE: if ((insn->i & MEMORY_FORMAT_MASK) ==(given & MEMORY_FORMAT_MASK)) { func (stream, "%s\t%s, %d(%s)", insn->name, alpha_regs[RA(given)], OPCODE (given) == 9 ? DISP(given) * 65536 : DISP(given), alpha_regs[RB(given)]); found = 1; } break; case BRANCH_FORMAT_CODE: if ((insn->i & BRANCH_FORMAT_MASK) == (given & BRANCH_FORMAT_MASK)) { func (stream, "%s\t%s, ", insn->name, alpha_regs[RA(given)]); (*info->print_address_func) (BDISP(given) * 4 + pc + 4, info); found = 1; } break; case MEMORY_BRANCH_FORMAT_CODE: if ((insn->i & MEMORY_BRANCH_FORMAT_MASK) == (given & MEMORY_BRANCH_FORMAT_MASK) ) { if (given & (1<<15)) { func (stream, "%s\t%s, (%s), %d", insn->name, alpha_regs[RA(given)], alpha_regs[RB(given)], JUMP_HINT(given)); } else { /* The displacement is a hint only, do not put out a symbolic address. */ func (stream, "%s\t%s, (%s), 0x%lx", insn->name, alpha_regs[RA(given)], alpha_regs[RB(given)], JDISP(given) * 4 + pc + 4); } found = 1; } break; case OPERATE_FORMAT_CODE: if ((insn->i & OPERATE_FORMAT_MASK) == (given & OPERATE_FORMAT_MASK)) { if (OP_OPTYPE(insn->i) == OP_OPTYPE(given)) { if (OP_IS_CONSTANT(given)) { func (stream, "%s\t%s, 0x%x, %s", insn->name, alpha_regs[RA(given)], LITERAL(given), alpha_regs[RC(given)]); } else { func (stream, "%s\t%s, %s, %s", insn->name, alpha_regs[RA(given)], alpha_regs[RB(given)], alpha_regs[RC(given)]); } found = 1; } } break; case FLOAT_FORMAT_CODE: if ((insn->i & OPERATE_FORMAT_MASK) == (given & OPERATE_FORMAT_MASK)) { func (stream, "%s\tf%d, f%d, f%d", insn->name, RA(given), RB(given), RC(given)); found = 1; } break; case PAL_FORMAT_CODE: if (insn->i == given) { func (stream, "call_pal %s", insn->name); found = 1; } break; case FLOAT_MEMORY_FORMAT_CODE: if ((insn->i & MEMORY_FORMAT_MASK) ==(given & MEMORY_FORMAT_MASK)) { func (stream, "%s\tf%d, %d(%s)", insn->name, RA(given), OPCODE (given) == 9 ? DISP(given) * 65536 : DISP(given), alpha_regs[RB(given)]); found = 1; } break; case FLOAT_BRANCH_FORMAT_CODE: if ((insn->i & BRANCH_FORMAT_MASK) == (given & BRANCH_FORMAT_MASK)) { func (stream, "%s\tf%d, ", insn->name, RA(given)); (*info->print_address_func) (BDISP(given) * 4 + pc + 4, info); found = 1; } break; } } return 4; } gdb-4.13/opcodes/alpha-opc.h 666 34562 1752 41506 5467375411 14250 0ustar fnfcygnus/* Opcode table for the Alpha. Copyright 1993 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 2, 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Contributed by sac@cygnus.com */ /* Alpha opcode format */ #define RA(x) (((x)>>21)& 0x1f) #define RB(x) (((x)>>16)& 0x1f) #define RC(x) (((x)>>0) & 0x1f) #define DISP(x) ((((x) & 0xffff) ^ 0x8000)-0x8000) #define BDISP(x) ((((x) & 0x1fffff) ^ 0x100000)-0x100000) #define OPCODE(x) (((x) >>26)&0x3f) #define JUMP_OPTYPE(x) (((x)>>14) & 0xf) #define JUMP_HINT(x) ((x) & 0x3fff) #define JDISP(x) ((((x) & 0x3fff) ^ 0x2000)-0x2000) #define OP_OPTYPE(x) (((x)>>5)&0x7f) #define OP_IS_CONSTANT(x) ((x) & (1<<12)) #define LITERAL(x) (((x)>>13) & 0xff) /* Shapes Memory instruction format oooo ooaa aaab bbbb dddd dddd dddd dddd Memory with function oooo ooaa aaab bbbb ffff ffff ffff ffff Memory branch oooo ooaa aaab bbbb BBff ffff ffff ffff Branch oooo ooaa aaad dddd dddd dddd dddd dddd Operate reg oooo ooaa aaab bbbb ***F ffff fffc cccc Operate cont oooo ooaa aaal llll lll1 ffff fffc cccc FP reg oooo ooaa aaab bbbb 000f ffff fffc cccc Pal oooo oodd dddd dddd dddd dddd dddd dddd */ #define MEMORY_FORMAT_MASK 0xfc000000 #define MEMORY_BRANCH_FORMAT_MASK 0xfc00c000 #define BRANCH_FORMAT_MASK 0xfc000000 #define OPERATE_FORMAT_MASK 0xfc000fe0 #define FLOAT_FORMAT_MASK 0xfc000fe0 typedef struct { unsigned i; char *name; int type; } alpha_insn; #ifdef DEFINE_TABLE char *alpha_regs[32] = { "v0", "t0", "t1", "t2", "t3", "t4", "t5", "t6", "t7", "s0", "s1", "s2", "s3", "s4", "s5", "fp", "a0", "a1", "a2", "a3", "a4", "a5", "t8", "t9", "t10", "t11", "ra", "t12", "at", "gp", "sp", "zero" }; #define MEMORY_FORMAT_CODE 1 #define MEMORY_FORMAT(op, name) \ { op << 26, name, MEMORY_FORMAT_CODE } #define MEMORY_BRANCH_FORMAT_CODE 2 #define MEMORY_BRANCH_FORMAT(op, func, name) \ { (op<<26)+(func<<14),name, MEMORY_BRANCH_FORMAT_CODE } #define MEMORY_FUNCTION_FORMAT_CODE 3 #define MEMORY_FORMAT_FUNCTION(op, func, name) \ { (op<<26)+(func), name, MEMORY_FUNCTION_FORMAT_CODE } #define BRANCH_FORMAT_CODE 4 #define BRANCH_FORMAT(op, name) \ { (op<<26), name , BRANCH_FORMAT_CODE } #define OPERATE_FORMAT_CODE 5 #define OPERATE_FORMAT(op, extra,name) \ {(op<<26)+(extra<<5),name , OPERATE_FORMAT_CODE} #define FLOAT_FORMAT_CODE 6 #define FLOAT_FORMAT(op, extra,name) \ {(op<<26)+(extra<<5),name , FLOAT_FORMAT_CODE } #define PAL_FORMAT_CODE 7 #define PAL_FORMAT(op, extra, name) \ {(op<<26)+(extra),name, PAL_FORMAT_CODE} #define FLOAT_MEMORY_FORMAT_CODE 8 #define FLOAT_MEMORY_FORMAT(op, name) \ { op << 26, name, FLOAT_MEMORY_FORMAT_CODE } #define FLOAT_BRANCH_FORMAT_CODE 9 #define FLOAT_BRANCH_FORMAT(op, name) \ { (op<<26), name , FLOAT_BRANCH_FORMAT_CODE } alpha_insn alpha_insn_set[] = { /* Memory format instruction opcodes */ MEMORY_FORMAT(0x08,"lda"), FLOAT_MEMORY_FORMAT(0x21,"ldg"), MEMORY_FORMAT(0x29,"ldq"), FLOAT_MEMORY_FORMAT(0x22,"lds"), FLOAT_MEMORY_FORMAT(0x25,"stg"), MEMORY_FORMAT(0x2d,"stq"), FLOAT_MEMORY_FORMAT(0x26,"sts"), MEMORY_FORMAT(0x09,"ldah"), MEMORY_FORMAT(0x28,"ldl"), MEMORY_FORMAT(0x2b,"ldq_l"), FLOAT_MEMORY_FORMAT(0x23,"ldt"), MEMORY_FORMAT(0x2c,"stl"), MEMORY_FORMAT(0x2f,"stq_c"), FLOAT_MEMORY_FORMAT(0x27,"stt"), FLOAT_MEMORY_FORMAT(0x20,"ldf"), MEMORY_FORMAT(0x2a,"ldl_l"), MEMORY_FORMAT(0x0b,"ldq_u"), FLOAT_MEMORY_FORMAT(0x24,"stf"), MEMORY_FORMAT(0x2e,"stl_c"), MEMORY_FORMAT(0x0f,"stq_u"), /* Memory format instructions with a function code */ MEMORY_FORMAT_FUNCTION(0x18, 0x8000,"fetch"), MEMORY_FORMAT_FUNCTION(0x18, 0xe000,"rc"), MEMORY_FORMAT_FUNCTION(0x18, 0x0000,"trapb"), MEMORY_FORMAT_FUNCTION(0x18, 0xa000,"fetch_m"), MEMORY_FORMAT_FUNCTION(0x18, 0xc000,"rpcc"), MEMORY_FORMAT_FUNCTION(0x18, 0x4000,"mb"), MEMORY_FORMAT_FUNCTION(0x18, 0xf000,"rs"), MEMORY_BRANCH_FORMAT(0x1a, 0x0, "jmp"), MEMORY_BRANCH_FORMAT(0x1a, 0x2, "ret"), MEMORY_BRANCH_FORMAT(0x1a, 0x1, "jsr"), MEMORY_BRANCH_FORMAT(0x1a, 0x3, "jsr_coroutine"), BRANCH_FORMAT(0x30,"br"), FLOAT_BRANCH_FORMAT(0x33,"fble"), FLOAT_BRANCH_FORMAT(0x36,"fbge"), BRANCH_FORMAT(0x39,"beq"), BRANCH_FORMAT(0x3c,"blbs"), BRANCH_FORMAT(0x3f,"bgt"), FLOAT_BRANCH_FORMAT(0x31,"fbeq"), BRANCH_FORMAT(0x34,"bsr"), FLOAT_BRANCH_FORMAT(0x37,"fbgt"), BRANCH_FORMAT(0x3a,"blt"), BRANCH_FORMAT(0x3d,"bne"), FLOAT_BRANCH_FORMAT(0x32,"fblt"), FLOAT_BRANCH_FORMAT(0x35,"fbne"), BRANCH_FORMAT(0x38,"blbc"), BRANCH_FORMAT(0x3b,"ble"), BRANCH_FORMAT(0x3e,"bge"), OPERATE_FORMAT(0x10,0x00,"addl"), OPERATE_FORMAT(0x10,0x02,"s4addl"), OPERATE_FORMAT(0x10,0x09,"subl"), OPERATE_FORMAT(0x10,0x0b,"s4subl"), OPERATE_FORMAT(0x10,0x0f,"cmpbge"), OPERATE_FORMAT(0x10,0x12,"s8addl"), OPERATE_FORMAT(0x10,0x1b,"s8subl"), OPERATE_FORMAT(0x10,0x1d,"cmpult"), OPERATE_FORMAT(0x10,0x20,"addq"), OPERATE_FORMAT(0x10,0x22,"s4addq"), OPERATE_FORMAT(0x10,0x29,"subq"), OPERATE_FORMAT(0x10,0x2b,"s4subq"), OPERATE_FORMAT(0x10,0x2d,"cmpeq"), OPERATE_FORMAT(0x10,0x32,"s8addq"), OPERATE_FORMAT(0x10,0x3b,"s8subq"), OPERATE_FORMAT(0x10,0x3d,"cmpule"), OPERATE_FORMAT(0x10,0x40,"addlv"), OPERATE_FORMAT(0x10,0x49,"sublv"), OPERATE_FORMAT(0x10,0x4d,"cmplt"), OPERATE_FORMAT(0x10,0x60,"addqv"), OPERATE_FORMAT(0x10,0x69,"subqv"), OPERATE_FORMAT(0x10,0x6d,"cmple"), OPERATE_FORMAT(0x11,0x00,"and"), OPERATE_FORMAT(0x11,0x08,"bic"), OPERATE_FORMAT(0x11,0x14,"cmovlbs"), OPERATE_FORMAT(0x11,0x16,"cmovlbc"), OPERATE_FORMAT(0x11,0x20,"bis"), OPERATE_FORMAT(0x11,0x24,"cmoveq"), OPERATE_FORMAT(0x11,0x26,"cmovne"), OPERATE_FORMAT(0x11,0x28,"ornot"), OPERATE_FORMAT(0x11,0x40,"xor"), OPERATE_FORMAT(0x11,0x44,"cmovlt"), OPERATE_FORMAT(0x11,0x46,"cmovge"), OPERATE_FORMAT(0x11,0x48,"eqv"), OPERATE_FORMAT(0x11,0x64,"cmovle"), OPERATE_FORMAT(0x11,0x66,"cmovgt"), OPERATE_FORMAT(0x12,0x02,"mskbl"), OPERATE_FORMAT(0x12,0x06,"extbl"), OPERATE_FORMAT(0x12,0x0b,"insbl"), OPERATE_FORMAT(0x12,0x12,"mskwl"), OPERATE_FORMAT(0x12,0x16,"extwl"), OPERATE_FORMAT(0x12,0x1b,"inswl"), OPERATE_FORMAT(0x12,0x22,"mskll"), OPERATE_FORMAT(0x12,0x26,"extll"), OPERATE_FORMAT(0x12,0x2b,"insll"), OPERATE_FORMAT(0x12,0x30,"zap"), OPERATE_FORMAT(0x12,0x31,"zapnot"), OPERATE_FORMAT(0x12,0x32,"mskql"), OPERATE_FORMAT(0x12,0x34,"srl"), OPERATE_FORMAT(0x12,0x36,"extql"), OPERATE_FORMAT(0x12,0x39,"sll"), OPERATE_FORMAT(0x12,0x3b,"insql"), OPERATE_FORMAT(0x12,0x3c,"sra"), OPERATE_FORMAT(0x12,0x52,"mskwh"), OPERATE_FORMAT(0x12,0x57,"inswh"), OPERATE_FORMAT(0x12,0x5a,"extwh"), OPERATE_FORMAT(0x12,0x62,"msklh"), OPERATE_FORMAT(0x12,0x67,"inslh"), OPERATE_FORMAT(0x12,0x6a,"extlh"), OPERATE_FORMAT(0x12,0x72,"mskqh"), OPERATE_FORMAT(0x12,0x77,"insqh"), OPERATE_FORMAT(0x12,0x7a,"extqh"), OPERATE_FORMAT(0x13,0x00,"mull"), OPERATE_FORMAT(0x13,0x20,"mulq"), OPERATE_FORMAT(0x13,0x30,"umulh"), OPERATE_FORMAT(0x13,0x40,"mullv"), OPERATE_FORMAT(0x13,0x60,"mulqv"), FLOAT_FORMAT(0x17,0x20,"cpys"), FLOAT_FORMAT(0x17,0x21,"cpysn"), FLOAT_FORMAT(0x17,0x22,"cpyse"), FLOAT_FORMAT(0x17,0x24,"mt_fpcr"), FLOAT_FORMAT(0x17,0x25,"mf_fpcr"), FLOAT_FORMAT(0x17,0x2a,"fcmoveq"), FLOAT_FORMAT(0x17,0x2b,"fcmovne"), FLOAT_FORMAT(0x17,0x2c,"fcmovlt"), FLOAT_FORMAT(0x17,0x2d,"fcmovge"), FLOAT_FORMAT(0x17,0x2e,"fcmovle"), FLOAT_FORMAT(0x17,0x2f,"fcmovgt"), FLOAT_FORMAT(0x17,0x10,"cvtlq"), FLOAT_FORMAT(0x17,0x30,"cvtql"), FLOAT_FORMAT(0x17,0x130,"cvtql/v"), FLOAT_FORMAT(0x17,0x530,"cvtql/sv"), FLOAT_FORMAT(0x16,0x080,"adds"), FLOAT_FORMAT(0x16,0x000,"adds/c"), FLOAT_FORMAT(0x16,0x040,"adds/m"), FLOAT_FORMAT(0x16,0x0c0,"adds/d"), FLOAT_FORMAT(0x16,0x180,"adds/u"), FLOAT_FORMAT(0x16,0x100,"adds/uc"), FLOAT_FORMAT(0x16,0x140,"adds/um"), FLOAT_FORMAT(0x16,0x1c0,"adds/ud"), FLOAT_FORMAT(0x16,0x580,"adds/su"), FLOAT_FORMAT(0x16,0x500,"adds/suc"), FLOAT_FORMAT(0x16,0x540,"adds/sum"), FLOAT_FORMAT(0x16,0x5c0,"adds/sud"), FLOAT_FORMAT(0x16,0x780,"adds/sui"), FLOAT_FORMAT(0x16,0x700,"adds/suic"), FLOAT_FORMAT(0x16,0x740,"adds/suim"), FLOAT_FORMAT(0x16,0x7c0,"adds/suid"), FLOAT_FORMAT(0x16,0x0a0,"addt"), FLOAT_FORMAT(0x16,0x020,"addt/c"), FLOAT_FORMAT(0x16,0x060,"addt/m"), FLOAT_FORMAT(0x16,0x0e0,"addt/d"), FLOAT_FORMAT(0x16,0x1a0,"addt/u"), FLOAT_FORMAT(0x16,0x120,"addt/uc"), FLOAT_FORMAT(0x16,0x160,"addt/um"), FLOAT_FORMAT(0x16,0x1e0,"addt/ud"), FLOAT_FORMAT(0x16,0x5a0,"addt/su"), FLOAT_FORMAT(0x16,0x520,"addt/suc"), FLOAT_FORMAT(0x16,0x560,"addt/sum"), FLOAT_FORMAT(0x16,0x5e0,"addt/sud"), FLOAT_FORMAT(0x16,0x7a0,"addt/sui"), FLOAT_FORMAT(0x16,0x720,"addt/suic"), FLOAT_FORMAT(0x16,0x760,"addt/suim"), FLOAT_FORMAT(0x16,0x7e0,"addt/suid"), FLOAT_FORMAT(0x16,0x0a5,"cmpteq"), FLOAT_FORMAT(0x16,0x025,"cmpteq/c"), FLOAT_FORMAT(0x16,0x065,"cmpteq/m"), FLOAT_FORMAT(0x16,0x0e5,"cmpteq/d"), FLOAT_FORMAT(0x16,0x1a5,"cmpteq/u"), FLOAT_FORMAT(0x16,0x125,"cmpteq/uc"), FLOAT_FORMAT(0x16,0x165,"cmpteq/um"), FLOAT_FORMAT(0x16,0x1e5,"cmpteq/ud"), FLOAT_FORMAT(0x16,0x5a5,"cmpteq/su"), FLOAT_FORMAT(0x16,0x525,"cmpteq/suc"), FLOAT_FORMAT(0x16,0x565,"cmpteq/sum"), FLOAT_FORMAT(0x16,0x5e5,"cmpteq/sud"), FLOAT_FORMAT(0x16,0x7a5,"cmpteq/sui"), FLOAT_FORMAT(0x16,0x725,"cmpteq/suic"), FLOAT_FORMAT(0x16,0x765,"cmpteq/suim"), FLOAT_FORMAT(0x16,0x7e5,"cmpteq/suid"), FLOAT_FORMAT(0x16,0x0a6,"cmptlt"), FLOAT_FORMAT(0x16,0x026,"cmptlt/c"), FLOAT_FORMAT(0x16,0x066,"cmptlt/m"), FLOAT_FORMAT(0x16,0x0e6,"cmptlt/d"), FLOAT_FORMAT(0x16,0x1a6,"cmptlt/u"), FLOAT_FORMAT(0x16,0x126,"cmptlt/uc"), FLOAT_FORMAT(0x16,0x166,"cmptlt/um"), FLOAT_FORMAT(0x16,0x1e6,"cmptlt/ud"), FLOAT_FORMAT(0x16,0x5a6,"cmptlt/su"), FLOAT_FORMAT(0x16,0x526,"cmptlt/suc"), FLOAT_FORMAT(0x16,0x566,"cmptlt/sum"), FLOAT_FORMAT(0x16,0x5e6,"cmptlt/sud"), FLOAT_FORMAT(0x16,0x7a6,"cmptlt/sui"), FLOAT_FORMAT(0x16,0x726,"cmptlt/suic"), FLOAT_FORMAT(0x16,0x766,"cmptlt/suim"), FLOAT_FORMAT(0x16,0x7e6,"cmptlt/suid"), FLOAT_FORMAT(0x16,0x0a7,"cmptle"), FLOAT_FORMAT(0x16,0x027,"cmptle/c"), FLOAT_FORMAT(0x16,0x067,"cmptle/m"), FLOAT_FORMAT(0x16,0x0e7,"cmptle/d"), FLOAT_FORMAT(0x16,0x1a7,"cmptle/u"), FLOAT_FORMAT(0x16,0x127,"cmptle/uc"), FLOAT_FORMAT(0x16,0x167,"cmptle/um"), FLOAT_FORMAT(0x16,0x1e7,"cmptle/ud"), FLOAT_FORMAT(0x16,0x5a7,"cmptle/su"), FLOAT_FORMAT(0x16,0x527,"cmptle/suc"), FLOAT_FORMAT(0x16,0x567,"cmptle/sum"), FLOAT_FORMAT(0x16,0x5e7,"cmptle/sud"), FLOAT_FORMAT(0x16,0x7a7,"cmptle/sui"), FLOAT_FORMAT(0x16,0x727,"cmptle/suic"), FLOAT_FORMAT(0x16,0x767,"cmptle/suim"), FLOAT_FORMAT(0x16,0x7e7,"cmptle/suid"), FLOAT_FORMAT(0x16,0x0a4,"cmptun"), FLOAT_FORMAT(0x16,0x024,"cmptun/c"), FLOAT_FORMAT(0x16,0x064,"cmptun/m"), FLOAT_FORMAT(0x16,0x0e4,"cmptun/d"), FLOAT_FORMAT(0x16,0x1a4,"cmptun/u"), FLOAT_FORMAT(0x16,0x124,"cmptun/uc"), FLOAT_FORMAT(0x16,0x164,"cmptun/um"), FLOAT_FORMAT(0x16,0x1e4,"cmptun/ud"), FLOAT_FORMAT(0x16,0x5a4,"cmptun/su"), FLOAT_FORMAT(0x16,0x524,"cmptun/suc"), FLOAT_FORMAT(0x16,0x564,"cmptun/sum"), FLOAT_FORMAT(0x16,0x5e4,"cmptun/sud"), FLOAT_FORMAT(0x16,0x7a4,"cmptun/sui"), FLOAT_FORMAT(0x16,0x724,"cmptun/suic"), FLOAT_FORMAT(0x16,0x764,"cmptun/suim"), FLOAT_FORMAT(0x16,0x7e4,"cmptun/suid"), FLOAT_FORMAT(0x16,0x0bc,"cvtqs"), FLOAT_FORMAT(0x16,0x03c,"cvtqs/c"), FLOAT_FORMAT(0x16,0x07c,"cvtqs/m"), FLOAT_FORMAT(0x16,0x0fc,"cvtqs/d"), FLOAT_FORMAT(0x16,0x1bc,"cvtqs/u"), FLOAT_FORMAT(0x16,0x13c,"cvtqs/uc"), FLOAT_FORMAT(0x16,0x17c,"cvtqs/um"), FLOAT_FORMAT(0x16,0x1fc,"cvtqs/ud"), FLOAT_FORMAT(0x16,0x5bc,"cvtqs/su"), FLOAT_FORMAT(0x16,0x53c,"cvtqs/suc"), FLOAT_FORMAT(0x16,0x57c,"cvtqs/sum"), FLOAT_FORMAT(0x16,0x5fc,"cvtqs/sud"), FLOAT_FORMAT(0x16,0x7bc,"cvtqs/sui"), FLOAT_FORMAT(0x16,0x73c,"cvtqs/suic"), FLOAT_FORMAT(0x16,0x77c,"cvtqs/suim"), FLOAT_FORMAT(0x16,0x7fc,"cvtqs/suid"), FLOAT_FORMAT(0x16,0x0be,"cvtqt"), FLOAT_FORMAT(0x16,0x03e,"cvtqt/c"), FLOAT_FORMAT(0x16,0x07e,"cvtqt/m"), FLOAT_FORMAT(0x16,0x0fe,"cvtqt/d"), FLOAT_FORMAT(0x16,0x1be,"cvtqt/u"), FLOAT_FORMAT(0x16,0x13e,"cvtqt/uc"), FLOAT_FORMAT(0x16,0x17e,"cvtqt/um"), FLOAT_FORMAT(0x16,0x1fe,"cvtqt/ud"), FLOAT_FORMAT(0x16,0x5be,"cvtqt/su"), FLOAT_FORMAT(0x16,0x53e,"cvtqt/suc"), FLOAT_FORMAT(0x16,0x57e,"cvtqt/sum"), FLOAT_FORMAT(0x16,0x5fe,"cvtqt/sud"), FLOAT_FORMAT(0x16,0x7be,"cvtqt/sui"), FLOAT_FORMAT(0x16,0x73e,"cvtqt/suic"), FLOAT_FORMAT(0x16,0x77e,"cvtqt/suim"), FLOAT_FORMAT(0x16,0x7fe,"cvtqt/suid"), FLOAT_FORMAT(0x16,0x0ac,"cvtts"), FLOAT_FORMAT(0x16,0x02c,"cvtts/c"), FLOAT_FORMAT(0x16,0x06c,"cvtts/m"), FLOAT_FORMAT(0x16,0x0ec,"cvtts/d"), FLOAT_FORMAT(0x16,0x1ac,"cvtts/u"), FLOAT_FORMAT(0x16,0x12c,"cvtts/uc"), FLOAT_FORMAT(0x16,0x16c,"cvtts/um"), FLOAT_FORMAT(0x16,0x1ec,"cvtts/ud"), FLOAT_FORMAT(0x16,0x5ac,"cvtts/su"), FLOAT_FORMAT(0x16,0x52c,"cvtts/suc"), FLOAT_FORMAT(0x16,0x56c,"cvtts/sum"), FLOAT_FORMAT(0x16,0x5ec,"cvtts/sud"), FLOAT_FORMAT(0x16,0x7ac,"cvtts/sui"), FLOAT_FORMAT(0x16,0x72c,"cvtts/suic"), FLOAT_FORMAT(0x16,0x76c,"cvtts/suim"), FLOAT_FORMAT(0x16,0x7ec,"cvtts/suid"), FLOAT_FORMAT(0x16,0x083,"divs"), FLOAT_FORMAT(0x16,0x003,"divs/c"), FLOAT_FORMAT(0x16,0x043,"divs/m"), FLOAT_FORMAT(0x16,0x0c3,"divs/d"), FLOAT_FORMAT(0x16,0x183,"divs/u"), FLOAT_FORMAT(0x16,0x103,"divs/uc"), FLOAT_FORMAT(0x16,0x143,"divs/um"), FLOAT_FORMAT(0x16,0x1c3,"divs/ud"), FLOAT_FORMAT(0x16,0x583,"divs/su"), FLOAT_FORMAT(0x16,0x503,"divs/suc"), FLOAT_FORMAT(0x16,0x543,"divs/sum"), FLOAT_FORMAT(0x16,0x5c3,"divs/sud"), FLOAT_FORMAT(0x16,0x783,"divs/sui"), FLOAT_FORMAT(0x16,0x703,"divs/suic"), FLOAT_FORMAT(0x16,0x743,"divs/suim"), FLOAT_FORMAT(0x16,0x7c3,"divs/suid"), FLOAT_FORMAT(0x16,0x0a3,"divt"), FLOAT_FORMAT(0x16,0x023,"divt/c"), FLOAT_FORMAT(0x16,0x063,"divt/m"), FLOAT_FORMAT(0x16,0x0e3,"divt/d"), FLOAT_FORMAT(0x16,0x1a3,"divt/u"), FLOAT_FORMAT(0x16,0x123,"divt/uc"), FLOAT_FORMAT(0x16,0x163,"divt/um"), FLOAT_FORMAT(0x16,0x1e3,"divt/ud"), FLOAT_FORMAT(0x16,0x5a3,"divt/su"), FLOAT_FORMAT(0x16,0x523,"divt/suc"), FLOAT_FORMAT(0x16,0x563,"divt/sum"), FLOAT_FORMAT(0x16,0x5e3,"divt/sud"), FLOAT_FORMAT(0x16,0x7a3,"divt/sui"), FLOAT_FORMAT(0x16,0x723,"divt/suic"), FLOAT_FORMAT(0x16,0x763,"divt/suim"), FLOAT_FORMAT(0x16,0x7e3,"divt/suid"), FLOAT_FORMAT(0x16,0x082,"muls"), FLOAT_FORMAT(0x16,0x002,"muls/c"), FLOAT_FORMAT(0x16,0x042,"muls/m"), FLOAT_FORMAT(0x16,0x0c2,"muls/d"), FLOAT_FORMAT(0x16,0x182,"muls/u"), FLOAT_FORMAT(0x16,0x102,"muls/uc"), FLOAT_FORMAT(0x16,0x142,"muls/um"), FLOAT_FORMAT(0x16,0x1c2,"muls/ud"), FLOAT_FORMAT(0x16,0x582,"muls/su"), FLOAT_FORMAT(0x16,0x502,"muls/suc"), FLOAT_FORMAT(0x16,0x542,"muls/sum"), FLOAT_FORMAT(0x16,0x5c2,"muls/sud"), FLOAT_FORMAT(0x16,0x782,"muls/sui"), FLOAT_FORMAT(0x16,0x702,"muls/suic"), FLOAT_FORMAT(0x16,0x742,"muls/suim"), FLOAT_FORMAT(0x16,0x7c2,"muls/suid"), FLOAT_FORMAT(0x16,0x0a2,"mult"), FLOAT_FORMAT(0x16,0x022,"mult/c"), FLOAT_FORMAT(0x16,0x062,"mult/m"), FLOAT_FORMAT(0x16,0x0e2,"mult/d"), FLOAT_FORMAT(0x16,0x1a2,"mult/u"), FLOAT_FORMAT(0x16,0x122,"mult/uc"), FLOAT_FORMAT(0x16,0x162,"mult/um"), FLOAT_FORMAT(0x16,0x1e2,"mult/ud"), FLOAT_FORMAT(0x16,0x5a2,"mult/su"), FLOAT_FORMAT(0x16,0x522,"mult/suc"), FLOAT_FORMAT(0x16,0x562,"mult/sum"), FLOAT_FORMAT(0x16,0x5e2,"mult/sud"), FLOAT_FORMAT(0x16,0x7a2,"mult/sui"), FLOAT_FORMAT(0x16,0x722,"mult/suic"), FLOAT_FORMAT(0x16,0x762,"mult/suim"), FLOAT_FORMAT(0x16,0x7e2,"mult/suid"), FLOAT_FORMAT(0x16,0x081,"subs"), FLOAT_FORMAT(0x16,0x001,"subs/c"), FLOAT_FORMAT(0x16,0x041,"subs/m"), FLOAT_FORMAT(0x16,0x0c1,"subs/d"), FLOAT_FORMAT(0x16,0x181,"subs/u"), FLOAT_FORMAT(0x16,0x101,"subs/uc"), FLOAT_FORMAT(0x16,0x141,"subs/um"), FLOAT_FORMAT(0x16,0x1c1,"subs/ud"), FLOAT_FORMAT(0x16,0x581,"subs/su"), FLOAT_FORMAT(0x16,0x501,"subs/suc"), FLOAT_FORMAT(0x16,0x541,"subs/sum"), FLOAT_FORMAT(0x16,0x5c1,"subs/sud"), FLOAT_FORMAT(0x16,0x781,"subs/sui"), FLOAT_FORMAT(0x16,0x701,"subs/suic"), FLOAT_FORMAT(0x16,0x741,"subs/suim"), FLOAT_FORMAT(0x16,0x7c1,"subs/suid"), FLOAT_FORMAT(0x16,0x0a1,"subt"), FLOAT_FORMAT(0x16,0x021,"subt/c"), FLOAT_FORMAT(0x16,0x061,"subt/m"), FLOAT_FORMAT(0x16,0x0e1,"subt/d"), FLOAT_FORMAT(0x16,0x1a1,"subt/u"), FLOAT_FORMAT(0x16,0x121,"subt/uc"), FLOAT_FORMAT(0x16,0x161,"subt/um"), FLOAT_FORMAT(0x16,0x1e1,"subt/ud"), FLOAT_FORMAT(0x16,0x5a1,"subt/su"), FLOAT_FORMAT(0x16,0x521,"subt/suc"), FLOAT_FORMAT(0x16,0x561,"subt/sum"), FLOAT_FORMAT(0x16,0x5e1,"subt/sud"), FLOAT_FORMAT(0x16,0x7a1,"subt/sui"), FLOAT_FORMAT(0x16,0x721,"subt/suic"), FLOAT_FORMAT(0x16,0x761,"subt/suim"), FLOAT_FORMAT(0x16,0x7e1,"subt/suid"), PAL_FORMAT(0x00, 0x0080,"bpt"), PAL_FORMAT(0x00, 0x00aa,"gentrap"), PAL_FORMAT(0x00, 0x009f,"wrunique"), PAL_FORMAT(0x00, 0x0081,"bugchk"), PAL_FORMAT(0x00, 0x0086,"imb"), PAL_FORMAT(0x00, 0x0083,"callsys"), PAL_FORMAT(0x00, 0x009e,"rdunique"), 0 }; #endif gdb-4.13/opcodes/configure.bat 666 34562 1752 1105 5571423237 14647 0ustar fnfcygnus@echo off echo Configuring opcodes for go32 rem This batch file assumes a unix-type "sed" program echo # Makefile generated by "configure.bat"> Makefile if exist config.sed del config.sed echo "/\.o[ ]*:/ s/config.status// ">> config.sed echo "s/CC = cc/CC = gcc/ ">> config.sed echo "/^###$/ i\ ">> config.sed echo "BFD_MACHINES=i386-dis.o ">> config.sed echo "s/^[ ]*rm/ -rm/ ">> config.sed sed -e "s/^\"//" -e "s/\"$//" -e "s/[ ]*$//" config.sed > config2.sed sed -f config2.sed Makefile.in >> Makefile del config.sed del config2.sed gdb-4.13/opcodes/configure.in 666 34562 1752 7347 5611062476 14524 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. srctrigger=z8k-dis.c srcname="opcodes" # per-host: . ${srcdir}/../bfd/configure.host # Set up to make a link between the host's include file and "sysdep.h". files="../bfd/hosts/${my_host}.h" links="sysdep.h" if [ ! -f ${srcdir}/${files} ] ; then files=../bfd/hosts/std-host.h echo "[${srcname} has no specific support for host ${host} -- using std-host]" fi host_makefile_frag= if [ -f ${srcdir}/../bfd/config/${my_host}.mh ] ; then host_makefile_frag=../bfd/config/${my_host}.mh fi # per-target: # Canonicalize the secondary target names. if [ -n "$enable_targets" ]; then for targ in `echo $enable_targets | sed 's/,/ /g'` do result=`$configsub $targ 2>/dev/null` if [ -n "$result" ]; then canon_targets="$canon_targets $result" else # Allow targets that config.sub doesn't recognize, like "all". canon_targets="$canon_targets $targ" fi done fi all_targets=false for targ in $target $canon_targets do bfd_target=`$srcdir/../bfd/config.bfd $targ` if [ "x$bfd_target" = "xall" ]; then all_targets=true else if [ ! -f ${srcdir}/../bfd/config/${bfd_target}.mt ] ; then echo '***' No file ${srcdir}/../bfd/config/${bfd_target}.mt 1>&2 echo '***' opcodes does not support target ${bfd_target} 1>&2 echo '***' Look in bfd/config.bfd for supported targets 1>&2 exit 1 fi if [ "x$targ" = "x$target" ]; then target_makefile_frag=${srcdir}/../bfd/config/${bfd_target}.mt else target_extra_frags="$target_extra_frags ${srcdir}/../bfd/config/${bfd_target}.mt" fi fi done # We don't do any links based on the target system, just makefile config. # post-target: rm -f Makefile.tmp Makefile.2 mv Makefile Makefile.tmp if [ x${all_targets} = xfalse ]; then allfrags="$target_makefile_frag $target_extra_frags" # The architectures in all the configured targets. SELECT_ARCHITECTURES=`sed -n ' s/SELECT_ARCHITECTURES[ ]*=[ ]*//p ' $allfrags` # Target architecture .o files. ta= for arch in $SELECT_ARCHITECTURES do ad=`echo $arch | sed -e s/bfd_//g -e s/_arch//g` archdefs="$archdefs -DARCH_$ad" case "$arch" in bfd_a29k_arch) ta="$ta a29k-dis.o" ;; bfd_alpha_arch) ta="$ta alpha-dis.o" ;; bfd_h8300_arch) ta="$ta h8300-dis.o" ;; bfd_h8500_arch) ta="$ta h8500-dis.o" ;; bfd_hppa_arch) ta="$ta hppa-dis.o" ;; bfd_i386_arch) ta="$ta i386-dis.o" ;; bfd_i960_arch) ta="$ta i960-dis.o" ;; bfd_m68k_arch) ta="$ta m68k-dis.o" ;; bfd_m88k_arch) ta="$ta m88k-dis.o" ;; bfd_mips_arch) ta="$ta mips-dis.o mips-opc.o" ;; bfd_ns32k_arch) ta="$ta ns32k-dis.o" ;; bfd_powerpc_arch) ta="$ta ppc-dis.o ppc-opc.o" ;; bfd_rs6000_arch) ta="$ta ppc-dis.o ppc-opc.o" ;; bfd_sh_arch) ta="$ta sh-dis.o" ;; bfd_sparc_arch) ta="$ta sparc-dis.o sparc-opc.o" ;; bfd_vax_arch) ;; bfd_we32k_arch) ;; bfd_z8k_arch) ta="$ta z8k-dis.o" ;; "") ;; *) echo "*** unknown target architecture $arch" 1>&2; exit 1 ;; esac done # Weed out duplicate .o files. f="" for i in $ta ; do case " $f " in *" $i "*) ;; *) f="$f $i" ;; esac done ta="$f" # And duplicate -D flags. f="" for i in $archdefs ; do case " $f " in *" $i "*) ;; *) f="$f $i" ;; esac done archdefs="$f" echo "ARCHDEFS = $archdefs" >> Makefile.2 echo "BFD_MACHINES = $ta" >> Makefile.2 else # all_targets is true echo 'ARCHDEFS = -DARCH_all' >> Makefile.2 echo 'BFD_MACHINES = $(ALL_MACHINES)' >> Makefile.2 fi # all_targets is true cat Makefile.tmp >> Makefile.2 rm -f Makefile.tmp mv Makefile.2 Makefile gdb-4.13/opcodes/dis-buf.c 666 34562 1752 4414 5525760636 13707 0ustar fnfcygnus/* Disassemble from a buffer, for GNU. Copyright (C) 1993, 1994 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "dis-asm.h" #include "sysdep.h" #include /* Get LENGTH bytes from info's buffer, at target address memaddr. Transfer them to myaddr. */ int buffer_read_memory (memaddr, myaddr, length, info) bfd_vma memaddr; bfd_byte *myaddr; int length; struct disassemble_info *info; { if (memaddr < info->buffer_vma || memaddr + length > info->buffer_vma + info->buffer_length) /* Out of bounds. Use EIO because GDB uses it. */ return EIO; memcpy (myaddr, info->buffer + (memaddr - info->buffer_vma), length); return 0; } /* Print an error message. We can assume that this is in response to an error return from buffer_read_memory. */ void perror_memory (status, memaddr, info) int status; bfd_vma memaddr; struct disassemble_info *info; { if (status != EIO) /* Can't happen. */ (*info->fprintf_func) (info->stream, "Unknown error %d\n", status); else /* Actually, address between memaddr and memaddr + len was out of bounds. */ (*info->fprintf_func) (info->stream, "Address 0x%x is out of bounds.\n", memaddr); } /* This could be in a separate file, to save miniscule amounts of space in statically linked executables. */ /* Just print the address is hex. This is included for completeness even though both GDB and objdump provide their own (to print symbolic addresses). */ void generic_print_address (addr, info) bfd_vma addr; struct disassemble_info *info; { (*info->fprintf_func) (info->stream, "0x%x", addr); } gdb-4.13/opcodes/disassemble.c 666 34562 1752 6642 5611062477 14650 0ustar fnfcygnus/* Select disassembly routine for specified architecture. Copyright 1994 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "ansidecl.h" #include "dis-asm.h" #ifdef ARCH_all #define ARCH_a29k #define ARCH_alpha #define ARCH_h8300 #define ARCH_h8500 #define ARCH_hppa #define ARCH_i386 #define ARCH_i960 #define ARCH_m68k #define ARCH_m88k #define ARCH_mips #define ARCH_ns32k #define ARCH_powerpc #define ARCH_rs6000 #define ARCH_sh #define ARCH_sparc #define ARCH_z8k #endif disassembler_ftype disassembler (abfd) bfd *abfd; { enum bfd_architecture a = bfd_get_arch (abfd); disassembler_ftype disassemble; switch (a) { /* If you add a case to this table, also add it to the ARCH_all definition right above this function. */ #ifdef ARCH_a29k case bfd_arch_a29k: /* As far as I know we only handle big-endian 29k objects. */ disassemble = print_insn_big_a29k; break; #endif #ifdef ARCH_alpha case bfd_arch_alpha: disassemble = print_insn_alpha; break; #endif #ifdef ARCH_h8300 case bfd_arch_h8300: if (bfd_get_mach(abfd) == bfd_mach_h8300h) disassemble = print_insn_h8300h; else disassemble = print_insn_h8300; break; #endif #ifdef ARCH_h8500 case bfd_arch_h8500: disassemble = print_insn_h8500; break; #endif #ifdef ARCH_hppa case bfd_arch_hppa: disassemble = print_insn_hppa; break; #endif #ifdef ARCH_i386 case bfd_arch_i386: disassemble = print_insn_i386; break; #endif #ifdef ARCH_i960 case bfd_arch_i960: disassemble = print_insn_i960; break; #endif #ifdef ARCH_m68k case bfd_arch_m68k: disassemble = print_insn_m68k; break; #endif #ifdef ARCH_m88k case bfd_arch_m88k: disassemble = print_insn_m88k; break; #endif #ifdef ARCH_ns32k case bfd_arch_ns32k: disassemble = print_insn_ns32k; break; #endif #ifdef ARCH_mips case bfd_arch_mips: if (abfd->xvec->byteorder_big_p) disassemble = print_insn_big_mips; else disassemble = print_insn_little_mips; break; #endif #ifdef ARCH_powerpc case bfd_arch_powerpc: if (abfd->xvec->byteorder_big_p) disassemble = print_insn_big_powerpc; else disassemble = print_insn_little_powerpc; break; #endif #ifdef ARCH_rs6000 case bfd_arch_rs6000: disassemble = print_insn_rs6000; break; #endif #ifdef ARCH_sh case bfd_arch_sh: disassemble = print_insn_sh; break; #endif #ifdef ARCH_sparc case bfd_arch_sparc: disassemble = print_insn_sparc; break; #endif #ifdef ARCH_z8k case bfd_arch_z8k: if (bfd_get_mach(abfd) == bfd_mach_z8001) disassemble = print_insn_z8001; else disassemble = print_insn_z8002; break; #endif default: return 0; } return disassemble; } gdb-4.13/opcodes/h8300-dis.c 666 34562 1752 17105 5604452407 13706 0ustar fnfcygnus/* Disassemble h8300 instructions. Copyright (C) 1993 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define DEFINE_TABLE #define h8_opcodes h8ops #include "opcode/h8300.h" #include "dis-asm.h" /* Run through the opcodes and sort them into order to make them easy to disassemble */ static void bfd_h8_disassemble_init () { unsigned int i; struct h8_opcode *p; for (p = h8_opcodes; p->name; p++) { int n1 = 0; int n2 = 0; if ((int) p->data.nib[0] < 16) { n1 = (int) p->data.nib[0]; } else n1 = 0; if ((int) p->data.nib[1] < 16) { n2 = (int) p->data.nib[1]; } else n2 = 0; /* Just make sure there are an even number of nibbles in it, and that the count is the same s the length */ for (i = 0; p->data.nib[i] != E; i++) /*EMPTY*/ ; if (i & 1) abort (); p->length = i / 2; } } unsigned int bfd_h8_disassemble (addr, info, hmode) bfd_vma addr; disassemble_info *info; int hmode; { /* Find the first entry in the table for this opcode */ static CONST char *regnames[] = { "r0h", "r1h", "r2h", "r3h", "r4h", "r5h", "r6h", "r7h", "r0l", "r1l", "r2l", "r3l", "r4l", "r5l", "r6l", "r7l"}; static CONST char *wregnames[] = { "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "e0", "e1", "e2", "e3", "e4", "e5", "e6", "e7" }; static CONST char *lregnames[] = { "er0", "er1", "er2", "er3", "er4", "er5", "er6", "er7", "er0", "er1", "er2", "er3", "er4", "er5", "er6", "er7" } ; int rs = 0; int rd = 0; int rdisp = 0; int abs = 0; int plen = 0; static boolean init = 0; struct h8_opcode *q = h8_opcodes; char CONST **pregnames = hmode ? lregnames : wregnames; int status; int l; unsigned char data[20]; void *stream = info->stream; fprintf_ftype fprintf = info->fprintf_func; if (!init) { bfd_h8_disassemble_init (); init = 1; } status = info->read_memory_func(addr, data, 2, info); if (status != 0) { info->memory_error_func(status, addr, info); return -1; } for (l = 2; status == 0 && l < 10; l+=2) { status = info->read_memory_func(addr+l, data+l, 2, info); } /* Find the exact opcode/arg combo */ while (q->name) { op_type *nib; unsigned int len = 0; nib = q->data.nib; while (1) { op_type looking_for = *nib; int thisnib = data[len >> 1]; thisnib = (len & 1) ? (thisnib & 0xf) : ((thisnib >> 4) & 0xf); if (looking_for < 16 && looking_for >=0) { if (looking_for != thisnib) goto fail; } else { if ((int) looking_for & (int) B31) { if (! (((int) thisnib & 0x8) != 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B31); } if ((int) looking_for & (int) B30) { if (!(((int) thisnib & 0x8) == 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B30); } if (looking_for & DBIT) { if ((looking_for & 5) != (thisnib &5)) goto fail; abs = (thisnib & 0x8) ? 2 : 1; } else if (looking_for & (REG | IND|INC|DEC)) { if (looking_for & SRC) { rs = thisnib; } else { rd = thisnib; } } else if (looking_for & L_16) { abs = (data[len >> 1]) * 256 + data[(len + 2) >> 1]; plen = 16; } else if(looking_for & ABSJMP) { abs = (data[1] << 16) | (data[2] << 8) | (data[3]); } else if(looking_for & MEMIND) { abs = data[1]; } else if (looking_for & L_32) { int i = len >> 1; abs = (data[i] << 24) | (data[i + 1] << 16) | (data[i + 2] << 8) | (data[i+ 3]); plen =32; } else if (looking_for & L_24) { int i = len >> 1; abs = (data[i] << 16) | (data[i + 1] << 8)| (data[i+ 2]); plen =24; } else if (looking_for & IGNORE) { } else if (looking_for & DISPREG) { rdisp = thisnib; } else if (looking_for & KBIT) { switch (thisnib) { case 9: abs = 4; break; case 8: abs = 2; break; case 0: abs = 1; break; } } else if (looking_for & L_8) { plen = 8; abs = data[len >> 1]; } else if (looking_for & L_3) { plen = 3; abs = thisnib; } else if (looking_for == E) { { int i; for (i = 0; i < q->length; i++) { fprintf (stream, "%02x ", data[i]); } for (; i < 6; i++) { fprintf (stream, " "); } } fprintf (stream, "%s\t", q->name); /* Fill in the args */ { op_type *args = q->args.nib; int hadone = 0; while (*args != E) { int x = *args; if (hadone) fprintf (stream, ","); if (x & (IMM|KBIT|DBIT)) { fprintf (stream, "#0x%x", (unsigned) abs); } else if (x & REG) { int rn = (x & DST) ? rd : rs; switch (x & SIZE) { case L_8: fprintf (stream, "%s", regnames[rn]); break; case L_16: fprintf (stream, "%s", wregnames[rn]); break; case L_P: case L_32: fprintf (stream, "%s", lregnames[rn]); break; } } else if (x & INC) { fprintf (stream, "@%s+", pregnames[rs]); } else if (x & DEC) { fprintf (stream, "@-%s", pregnames[rd]); } else if (x & IND) { int rn = (x & DST) ? rd : rs; fprintf (stream, "@%s", pregnames[rn]); } else if (x & (ABS|ABSJMP|ABSMOV)) { fprintf (stream, "@0x%x:%d", (unsigned) abs, plen); } else if (x & MEMIND) { fprintf (stream, "@@%d (%x)", abs, abs); } else if (x & PCREL) { if (x & L_16) { abs +=2; fprintf (stream, ".%s%d (%x)", (short) abs > 0 ? "+" : "", (short) abs, addr + (short) abs + 2); } else { fprintf (stream, ".%s%d (%x)", (char) abs > 0 ? "+" : "", (char) abs, addr + (char) abs + 2); } } else if (x & DISP) { fprintf (stream, "@(0x%x:%d,%s)", abs,plen, pregnames[rdisp]); } else if (x & CCR) { fprintf (stream, "ccr"); } else fprintf (stream, "Hmmmm %x", x); hadone = 1; args++; } } return q->length; } else { fprintf (stream, "Dont understand %x \n", looking_for); } } len++; nib++; } fail: q++; } /* Fell of the end */ fprintf (stream, "%02x %02x .word\tH'%x,H'%x", data[0], data[1], data[0], data[1]); return 2; } int print_insn_h8300 (addr, info) bfd_vma addr; disassemble_info *info; { return bfd_h8_disassemble (addr, info , 0); } int print_insn_h8300h (addr, info) bfd_vma addr; disassemble_info *info; { return bfd_h8_disassemble (addr, info , 1); } gdb-4.13/opcodes/h8500-dis.c 666 34562 1752 17142 5563027775 13723 0ustar fnfcygnus/* Disassemble h8500 instructions. Copyright (C) 1993 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #define DISASSEMBLER_TABLE #define DEFINE_TABLE #include "h8500-opc.h" #include "dis-asm.h" /* Maximum length of an instruction. */ #define MAXLEN 8 #include struct private { /* Points to first byte not fetched. */ bfd_byte *max_fetched; bfd_byte the_buffer[MAXLEN]; bfd_vma insn_start; jmp_buf bailout; }; /* Make sure that bytes from INFO->PRIVATE_DATA->BUFFER (inclusive) to ADDR (exclusive) are valid. Returns 1 for success, longjmps on error. */ #define FETCH_DATA(info, addr) \ ((addr) <= ((struct private *)(info->private_data))->max_fetched \ ? 1 : fetch_data ((info), (addr))) static int fetch_data (info, addr) struct disassemble_info *info; bfd_byte *addr; { int status; struct private *priv = (struct private *) info->private_data; bfd_vma start = priv->insn_start + (priv->max_fetched - priv->the_buffer); status = (*info->read_memory_func) (start, priv->max_fetched, addr - priv->max_fetched, info); if (status != 0) { (*info->memory_error_func) (status, start, info); longjmp (priv->bailout, 1); } else priv->max_fetched = addr; return 1; } static char *crname[] = {"sr", "ccr", "*", "br", "ep", "dp", "*", "tp"}; int print_insn_h8500 (addr, info) bfd_vma addr; disassemble_info *info; { h8500_opcode_info *opcode; void *stream = info->stream; fprintf_ftype func = info->fprintf_func; struct private priv; bfd_byte *buffer = priv.the_buffer; info->private_data = (PTR) & priv; priv.max_fetched = priv.the_buffer; priv.insn_start = addr; if (setjmp (priv.bailout) != 0) /* Error return. */ return -1; if (0) { static int one; if (!one ) { one = 1; for (opcode = h8500_table; opcode->name; opcode++) { if ((opcode->bytes[0].contents & 0x8) == 0) printf("%s\n", opcode->name); } } } /* Run down the table to find the one which matches */ for (opcode = h8500_table; opcode->name; opcode++) { int byte; int rn; int rd; int rs; int disp; int abs; int imm; int pcrel; int qim; int i; int cr; for (byte = 0; byte < opcode->length; byte++) { FETCH_DATA (info, buffer + byte + 1); if ((buffer[byte] & opcode->bytes[byte].mask) != (opcode->bytes[byte].contents)) { goto next; } else { /* extract any info parts */ switch (opcode->bytes[byte].insert) { case 0: case FP: break; default: func (stream, "can't cope with insert %d\n", opcode->bytes[byte].insert); break; case RN: rn = buffer[byte] & 0x7; break; case RS: rs = buffer[byte] & 0x7; break; case CRB: cr = buffer[byte] & 0x7; if (cr == 0) goto next; break; case CRW: cr = buffer[byte] & 0x7; if (cr != 0) goto next; break; case DISP16: FETCH_DATA (info, buffer + byte + 2); disp = (buffer[byte] << 8) | (buffer[byte + 1]); break; case FPIND_D8: case DISP8: disp = ((char) (buffer[byte])); break; case RD: case RDIND: rd = buffer[byte] & 0x7; break; case ABS24: FETCH_DATA (info, buffer + byte + 3); abs = (buffer[byte] << 16) | (buffer[byte + 1] << 8) | (buffer[byte + 2]); break; case ABS16: FETCH_DATA (info, buffer + byte + 2); abs = (buffer[byte] << 8) | (buffer[byte + 1]); break; case ABS8: abs = (buffer[byte]); break; case IMM16: FETCH_DATA (info, buffer + byte + 2); imm = (buffer[byte] << 8) | (buffer[byte + 1]); break; case IMM4: imm = (buffer[byte]) & 0xf; break; case IMM8: case RLIST: imm = (buffer[byte]); break; case PCREL16: FETCH_DATA (info, buffer + byte + 2); pcrel = (buffer[byte] << 8) | (buffer[byte + 1]); break; case PCREL8: pcrel = (buffer[byte]); break; case QIM: switch (buffer[byte] & 0x7) { case 0: qim = 1; break; case 1: qim = 2; break; case 4: qim = -1; break; case 5: qim = -2; break; } break; } } } /* We get here when all the masks have passed so we can output the operands*/ FETCH_DATA (info, buffer + opcode->length); for (i = 0; i < opcode->length; i++) { (func) (stream, "%02x ", buffer[i]); } for (; i < 6; i++) { (func) (stream, " "); } (func) (stream, "%s\t", opcode->name); for (i = 0; i < opcode->nargs; i++) { if (i) (func) (stream, ","); switch (opcode->arg_type[i]) { case FP: func (stream, "fp"); break; case RNIND_D16: func (stream, "@(0x%x:16,r%d)", disp, rn); break; case RNIND_D8: func (stream, "@(0x%x:8 (%d),r%d)", disp & 0xff, disp, rn); break; case RDIND_D16: func (stream, "@(0x%x:16,r%d)", disp, rd); break; case RDIND_D8: func (stream, "@(0x%x:8 (%d), r%d)", disp & 0xff, disp, rd); break; case FPIND_D8: func (stream, "@(0x%x:8 (%d), fp)", disp & 0xff, disp, rn); break; case CRB: case CRW: func (stream, "%s", crname[cr]); break; case RN: func (stream, "r%d", rn); break; case RD: func (stream, "r%d", rd); break; case RS: func (stream, "r%d", rs); break; case RNDEC: func (stream, "@-r%d", rn); break; case RNINC: func (stream, "@r%d+", rn); break; case RNIND: func (stream, "@r%d", rn); break; case RDIND: func (stream, "@r%d", rd); break; case SPINC: func (stream, "@sp+"); break; case SPDEC: func (stream, "@-sp"); break; case ABS24: func (stream, "@0x%0x:24", abs); break; case ABS16: func (stream, "@0x%0x:16", abs & 0xffff); break; case ABS8: func (stream, "@0x%0x:8", abs & 0xff); break; case IMM16: func (stream, "#0x%0x:16", imm & 0xffff); break; case RLIST: { int i; int nc = 0; func (stream, "("); for (i = 0; i < 8; i++) { if (imm & (1 << i)) { func (stream, "r%d", i); if (nc) func (stream, ","); nc = 1; } } func (stream, ")"); } break; case IMM8: func (stream, "#0x%0x:8", imm & 0xff); break; case PCREL16: func (stream, "0x%0x:16", (pcrel + addr + opcode->length) & 0xffff); break; case PCREL8: func (stream, "#0x%0x:8", ((char) pcrel + addr + opcode->length) & 0xffff); break; case QIM: func (stream, "#%d:q", qim); break; case IMM4: func (stream, "#%d:4", imm); break; } } return opcode->length; next:; } /* Couldn't understand anything */ func (stream, "%02x\t\t*unknown*", buffer[0]); return 1; } gdb-4.13/opcodes/h8500-opc.h 666 34562 1752 1051344 5563030001 13745 0ustar fnfcygnustypedef enum { GR0,GR1,GR2,GR3,GR4,GR5,GR6,GR7, GPR0, GPR1, GPR2, GPR3, GPR4, GPR5, GPR6, GPR7, GCCR, GPC, GSEGC, GSEGD, GSEGE, GSEGT,GLAST } gdbreg_type; #define O_XORC 1 #define O_XOR 2 #define O_XCH 3 #define O_UNLK 4 #define O_TST 5 #define O_TRAPA 6 #define O_TRAP_VS 7 #define O_TAS 8 #define O_SWAP 9 #define O_SUBX 10 #define O_SUBS 11 #define O_SUB 12 #define O_STM 13 #define O_STC 14 #define O_SLEEP 15 #define O_SHLR 16 #define O_SHLL 17 #define O_SHAR 18 #define O_SHAL 19 #define O_SCB_NE 20 #define O_SCB_F 21 #define O_SCB_EQ 22 #define O_RTS 23 #define O_RTD 24 #define O_ROTXR 25 #define O_ROTXL 26 #define O_ROTR 27 #define O_ROTL 28 #define O_PRTS 29 #define O_PRTD 30 #define O_PJSR 31 #define O_PJMP 32 #define O_ORC 33 #define O_OR 34 #define O_NOT 35 #define O_NOP 36 #define O_NEG 37 #define O_MULXU 38 #define O_MOVTPE 39 #define O_MOVFPE 40 #define O_MOV 41 #define O_LINK 42 #define O_LDM 43 #define O_LDC 44 #define O_JSR 45 #define O_JMP 46 #define O_EXTU 47 #define O_EXTS 48 #define O_DSUB 49 #define O_DIVXU 50 #define O_DADD 51 #define O_CMP 52 #define O_CLR 53 #define O_BVS 54 #define O_BVC 55 #define O_BTST 56 #define O_BT 57 #define O_BSR 58 #define O_BSET 59 #define O_BRN 60 #define O_BRA 61 #define O_BPT 62 #define O_BPL 63 #define O_BNOT 64 #define O_BNE 65 #define O_BMI 66 #define O_BLT 67 #define O_BLS 68 #define O_BLO 69 #define O_BLE 70 #define O_BHS 71 #define O_BHI 72 #define O_BGT 73 #define O_BGE 74 #define O_BF 75 #define O_BEQ 76 #define O_BCS 77 #define O_BCLR 78 #define O_BCC 79 #define O_ANDC 80 #define O_AND 81 #define O_ADDX 82 #define O_ADDS 83 #define O_ADD 84 #define O_BYTE 128 #define O_WORD 0x000 #define O_UNSZ 0x000 #define FPIND_D8 10 #define RDIND_D16 11 #define RDIND_D8 12 #define SPDEC 13 #define RDIND 14 #define RN 15 #define RNIND_D8 16 #define RNIND_D16 17 #define RNDEC 18 #define RNINC 19 #define RNIND 20 #define SPINC 21 #define ABS16 22 #define ABS24 23 #define PCREL16 24 #define PCREL8 25 #define ABS8 26 #define CRB 27 #define CR 28 #define CRW 29 #define DISP16 30 #define DISP8 31 #define FP 32 #define IMM16 33 #define IMM4 34 #define IMM8 35 #define RLIST 36 #define QIM 37 #define RD 38 #define RS 39 #define SP 40 typedef enum { AC_BAD, AC_EI, AC_RI, AC_D, AC_,AC_ERR, AC_X,AC_B, AC_EE,AC_RR,AC_IE, AC_RE,AC_E, AC_I, AC_ER,AC_IRR, AC_IR, AC_RER, AC_ERE,AC_EIE } addr_class_type; typedef struct { short int idx; char flags,src1,src2,dst; unsigned char flavor; char *name; int nargs; int arg_type[2]; int length; struct { unsigned char contents;unsigned char mask; char insert; } bytes[6]; } h8500_opcode_info; h8500_opcode_info h8500_table[] #ifdef ASSEMBLER_TABLE #ifdef DEFINE_TABLE ={ /* {101,'m','I','!','E',O_MOV|O_WORD,"mov.w",2,{IMM16,ABS16},6, {{0x1d,0xff, }, {0x00,0x00,ABS16 }, {0x00,0x00, }, {0x07,0xff, }, {0x00,0x00,IMM16 },{0x00,0x00, }}},*/ {1,'s','E','C','C',O_XORC|O_WORD,"xorc.w",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x68,0xf8,CRW }}}, {2,'s','E','C','C',O_XORC|O_BYTE,"xorc.b",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x68,0xf8,CRB }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x60,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x60,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x60,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x60,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x60,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x60,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {5,'m','E','D','D',O_XOR|O_UNSZ,"xor",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x60,0xf8,RD }}}, {5,'m','E','D','D',O_XOR|O_UNSZ,"xor",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x60,0xf8,RD }}}, {5,'m','E','D','D',O_XOR|O_UNSZ,"xor",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x60,0xf8,RD }}}, {5,'m','E','D','D',O_XOR|O_UNSZ,"xor",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x60,0xf8,RD }}}, {5,'m','E','D','D',O_XOR|O_UNSZ,"xor",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x60,0xf8,RD }}}, {5,'m','E','D','D',O_XOR|O_UNSZ,"xor",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x60,0xf8,RD }}}, {5,'m','E','D','D',O_XOR|O_UNSZ,"xor",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {5,'m','E','D','D',O_XOR|O_UNSZ,"xor",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {5,'m','E','D','D',O_XOR|O_UNSZ,"xor",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {6,'-','X','!','!',O_XCH|O_WORD,"xch.w",2,{RS,RD},2, {{0xa8,0xf8,RS },{0x90,0xf8,RD }}}, {7,'-','X','!','!',O_XCH|O_UNSZ,"xch",2,{RS,RD},2, {{0xa8,0xf8,RS },{0x90,0xf8,RD }}}, {8,'-','B','!','!',O_UNLK|O_UNSZ,"unlk",1,{FP,0},1, {{0x0f,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x16,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x16,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x16,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x16,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x16,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x16,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x16,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x16,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x16,0xff, }}}, {11,'a','E','!','!',O_TST|O_UNSZ,"tst",1,{RN,0},2, {{0xa8,0xf8,RN },{0x16,0xff, }}}, {11,'a','E','!','!',O_TST|O_UNSZ,"tst",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x16,0xff, }}}, {11,'a','E','!','!',O_TST|O_UNSZ,"tst",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x16,0xff, }}}, {11,'a','E','!','!',O_TST|O_UNSZ,"tst",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x16,0xff, }}}, {11,'a','E','!','!',O_TST|O_UNSZ,"tst",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x16,0xff, }}}, {11,'a','E','!','!',O_TST|O_UNSZ,"tst",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x16,0xff, }}}, {11,'a','E','!','!',O_TST|O_UNSZ,"tst",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x16,0xff, }}}, {11,'a','E','!','!',O_TST|O_UNSZ,"tst",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x16,0xff, }}}, {11,'a','E','!','!',O_TST|O_UNSZ,"tst",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x16,0xff, }}}, {12,'-','I','!','!',O_TRAPA|O_UNSZ,"trapa",1,{IMM4,0},2, {{0x08,0xff, },{0x10,0xf0,IMM4 }}}, {13,'-','B','!','!',O_TRAP_VS|O_UNSZ,"trap/vs",0,{0,0},1, {{0x09,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x17,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x17,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x17,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x17,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x17,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x17,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x17,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x17,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x17,0xff, }}}, {15,'s','E','!','E',O_TAS|O_UNSZ,"tas",1,{RN,0},2, {{0xa0,0xf8,RN },{0x17,0xff, }}}, {15,'s','E','!','E',O_TAS|O_UNSZ,"tas",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x17,0xff, }}}, {15,'s','E','!','E',O_TAS|O_UNSZ,"tas",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x17,0xff, }}}, {15,'s','E','!','E',O_TAS|O_UNSZ,"tas",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x17,0xff, }}}, {15,'s','E','!','E',O_TAS|O_UNSZ,"tas",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x17,0xff, }}}, {15,'s','E','!','E',O_TAS|O_UNSZ,"tas",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x17,0xff, }}}, {15,'s','E','!','E',O_TAS|O_UNSZ,"tas",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x17,0xff, }}}, {15,'s','E','!','E',O_TAS|O_UNSZ,"tas",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x17,0xff, }}}, {15,'s','E','!','E',O_TAS|O_UNSZ,"tas",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x17,0xff, }}}, {16,'m','D','!','D',O_SWAP|O_BYTE,"swap.b",1,{RD,0},2, {{0xa0,0xf8,RD },{0x10,0xff, }}}, {17,'m','D','!','D',O_SWAP|O_UNSZ,"swap",1,{RD,0},2, {{0xa0,0xf8,RD },{0x10,0xff, }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xb0,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xb0,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xb0,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xb0,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xb0,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xb0,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {20,'a','E','D','D',O_SUBX|O_UNSZ,"subx",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xb0,0xf8,RD }}}, {20,'a','E','D','D',O_SUBX|O_UNSZ,"subx",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xb0,0xf8,RD }}}, {20,'a','E','D','D',O_SUBX|O_UNSZ,"subx",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xb0,0xf8,RD }}}, {20,'a','E','D','D',O_SUBX|O_UNSZ,"subx",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xb0,0xf8,RD }}}, {20,'a','E','D','D',O_SUBX|O_UNSZ,"subx",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xb0,0xf8,RD }}}, {20,'a','E','D','D',O_SUBX|O_UNSZ,"subx",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xb0,0xf8,RD }}}, {20,'a','E','D','D',O_SUBX|O_UNSZ,"subx",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {20,'a','E','D','D',O_SUBX|O_UNSZ,"subx",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {20,'a','E','D','D',O_SUBX|O_UNSZ,"subx",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x38,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x38,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x38,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x38,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x38,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x38,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {23,'-','E','D','D',O_SUBS|O_UNSZ,"subs",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x38,0xf8,RD }}}, {23,'-','E','D','D',O_SUBS|O_UNSZ,"subs",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x38,0xf8,RD }}}, {23,'-','E','D','D',O_SUBS|O_UNSZ,"subs",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x38,0xf8,RD }}}, {23,'-','E','D','D',O_SUBS|O_UNSZ,"subs",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x38,0xf8,RD }}}, {23,'-','E','D','D',O_SUBS|O_UNSZ,"subs",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x38,0xf8,RD }}}, {23,'-','E','D','D',O_SUBS|O_UNSZ,"subs",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x38,0xf8,RD }}}, {23,'-','E','D','D',O_SUBS|O_UNSZ,"subs",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {23,'-','E','D','D',O_SUBS|O_UNSZ,"subs",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {23,'-','E','D','D',O_SUBS|O_UNSZ,"subs",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x30,0xf8,RD }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x30,0xf8,RD }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x30,0xf8,RD }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x30,0xf8,RD }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x30,0xf8,RD }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x30,0xf8,RD }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x30,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x30,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x30,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x30,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x30,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x30,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x30,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {26,'a','E','D','D',O_SUB|O_UNSZ,"sub",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x30,0xf8,RD }}}, {26,'a','E','D','D',O_SUB|O_UNSZ,"sub",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x30,0xf8,RD }}}, {26,'a','E','D','D',O_SUB|O_UNSZ,"sub",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x30,0xf8,RD }}}, {26,'a','E','D','D',O_SUB|O_UNSZ,"sub",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x30,0xf8,RD }}}, {26,'a','E','D','D',O_SUB|O_UNSZ,"sub",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x30,0xf8,RD }}}, {26,'a','E','D','D',O_SUB|O_UNSZ,"sub",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x30,0xf8,RD }}}, {26,'a','E','D','D',O_SUB|O_UNSZ,"sub",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {26,'a','E','D','D',O_SUB|O_UNSZ,"sub",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {26,'a','E','D','D',O_SUB|O_UNSZ,"sub",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {27,'-','I','!','E',O_STM|O_UNSZ,"stm",2,{RLIST,SPDEC},2, {{0x12,0xff, },{0x00,0x00,RLIST }}}, {28,'s','C','!','E',O_STC|O_WORD,"stc.w",2,{CRW,RN},2, {{0xa8,0xf8,RN },{0x98,0xf8,CRW }}}, {28,'s','C','!','E',O_STC|O_WORD,"stc.w",2,{CRW,RNDEC},2, {{0xb8,0xf8,RN },{0x98,0xf8,CRW }}}, {28,'s','C','!','E',O_STC|O_WORD,"stc.w",2,{CRW,RNINC},2, {{0xc8,0xf8,RN },{0x98,0xf8,CRW }}}, {28,'s','C','!','E',O_STC|O_WORD,"stc.w",2,{CRW,RNIND},2, {{0xd8,0xf8,RN },{0x98,0xf8,CRW }}}, {28,'s','C','!','E',O_STC|O_WORD,"stc.w",2,{CRW,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x98,0xf8,CRW }}}, {28,'s','C','!','E',O_STC|O_WORD,"stc.w",2,{CRW,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x98,0xf8,CRW }}}, {28,'s','C','!','E',O_STC|O_WORD,"stc.w",2,{CRW,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x98,0xf8,CRW }}}, {28,'s','C','!','E',O_STC|O_WORD,"stc.w",2,{CRW,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x98,0xf8,CRW }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RN},2, {{0xa0,0xf8,RN },{0x98,0xf8,CRB }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNDEC},2, {{0xb0,0xf8,RN },{0x98,0xf8,CRB }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNINC},2, {{0xc0,0xf8,RN },{0x98,0xf8,CRB }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNIND},2, {{0xd0,0xf8,RN },{0x98,0xf8,CRB }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x98,0xf8,CRB }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x98,0xf8,CRB }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x98,0xf8,CRB }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x98,0xf8,CRB }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRW,RN},2, {{0xa8,0xf8,RN },{0x98,0xf8,CRW }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRB,RN},2, {{0xa0,0xf8,RN },{0x98,0xf8,CRB }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRB,RNDEC},2, {{0xb0,0xf8,RN },{0x98,0xf8,CRB }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRW,RNIND},2, {{0xd8,0xf8,RN },{0x98,0xf8,CRW }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRW,RNINC},2, {{0xc8,0xf8,RN },{0x98,0xf8,CRW }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRW,RNDEC},2, {{0xb8,0xf8,RN },{0x98,0xf8,CRW }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRB,RNIND},2, {{0xd0,0xf8,RN },{0x98,0xf8,CRB }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRB,RNINC},2, {{0xc0,0xf8,RN },{0x98,0xf8,CRB }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRW,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x98,0xf8,CRW }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRB,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x98,0xf8,CRB }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRB,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x98,0xf8,CRB }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRW,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x98,0xf8,CRW }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRW,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x98,0xf8,CRW }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRW,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x98,0xf8,CRW }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRB,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x98,0xf8,CRB }}}, {30,'s','C','!','E',O_STC|O_UNSZ,"stc",2,{CRB,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x98,0xf8,CRB }}}, {31,'-','!','!','!',O_SLEEP|O_UNSZ,"sleep",0,{0,0},1, {{0x1a,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1b,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1b,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1b,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1b,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1b,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1b,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1b,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1b,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1b,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1b,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1b,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1b,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1b,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1b,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1b,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1b,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1b,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1b,0xff, }}}, {34,'h','E','!','E',O_SHLR|O_UNSZ,"shlr",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1b,0xff, }}}, {34,'h','E','!','E',O_SHLR|O_UNSZ,"shlr",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1b,0xff, }}}, {34,'h','E','!','E',O_SHLR|O_UNSZ,"shlr",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1b,0xff, }}}, {34,'h','E','!','E',O_SHLR|O_UNSZ,"shlr",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1b,0xff, }}}, {34,'h','E','!','E',O_SHLR|O_UNSZ,"shlr",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1b,0xff, }}}, {34,'h','E','!','E',O_SHLR|O_UNSZ,"shlr",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1b,0xff, }}}, {34,'h','E','!','E',O_SHLR|O_UNSZ,"shlr",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1b,0xff, }}}, {34,'h','E','!','E',O_SHLR|O_UNSZ,"shlr",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1b,0xff, }}}, {34,'h','E','!','E',O_SHLR|O_UNSZ,"shlr",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1b,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1a,0xff, }}}, {37,'h','E','!','E',O_SHLL|O_UNSZ,"shll",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1a,0xff, }}}, {37,'h','E','!','E',O_SHLL|O_UNSZ,"shll",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1a,0xff, }}}, {37,'h','E','!','E',O_SHLL|O_UNSZ,"shll",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1a,0xff, }}}, {37,'h','E','!','E',O_SHLL|O_UNSZ,"shll",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1a,0xff, }}}, {37,'h','E','!','E',O_SHLL|O_UNSZ,"shll",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1a,0xff, }}}, {37,'h','E','!','E',O_SHLL|O_UNSZ,"shll",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1a,0xff, }}}, {37,'h','E','!','E',O_SHLL|O_UNSZ,"shll",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1a,0xff, }}}, {37,'h','E','!','E',O_SHLL|O_UNSZ,"shll",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1a,0xff, }}}, {37,'h','E','!','E',O_SHLL|O_UNSZ,"shll",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1a,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x19,0xff, }}}, {40,'h','E','!','E',O_SHAR|O_UNSZ,"shar",1,{RN,0},2, {{0xa8,0xf8,RN },{0x19,0xff, }}}, {40,'h','E','!','E',O_SHAR|O_UNSZ,"shar",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x19,0xff, }}}, {40,'h','E','!','E',O_SHAR|O_UNSZ,"shar",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x19,0xff, }}}, {40,'h','E','!','E',O_SHAR|O_UNSZ,"shar",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x19,0xff, }}}, {40,'h','E','!','E',O_SHAR|O_UNSZ,"shar",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x19,0xff, }}}, {40,'h','E','!','E',O_SHAR|O_UNSZ,"shar",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x19,0xff, }}}, {40,'h','E','!','E',O_SHAR|O_UNSZ,"shar",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x19,0xff, }}}, {40,'h','E','!','E',O_SHAR|O_UNSZ,"shar",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x19,0xff, }}}, {40,'h','E','!','E',O_SHAR|O_UNSZ,"shar",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x19,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x18,0xff, }}}, {43,'h','E','!','E',O_SHAL|O_UNSZ,"shal",1,{RN,0},2, {{0xa8,0xf8,RN },{0x18,0xff, }}}, {43,'h','E','!','E',O_SHAL|O_UNSZ,"shal",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x18,0xff, }}}, {43,'h','E','!','E',O_SHAL|O_UNSZ,"shal",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x18,0xff, }}}, {43,'h','E','!','E',O_SHAL|O_UNSZ,"shal",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x18,0xff, }}}, {43,'h','E','!','E',O_SHAL|O_UNSZ,"shal",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x18,0xff, }}}, {43,'h','E','!','E',O_SHAL|O_UNSZ,"shal",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x18,0xff, }}}, {43,'h','E','!','E',O_SHAL|O_UNSZ,"shal",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x18,0xff, }}}, {43,'h','E','!','E',O_SHAL|O_UNSZ,"shal",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x18,0xff, }}}, {43,'h','E','!','E',O_SHAL|O_UNSZ,"shal",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x18,0xff, }}}, {44,'-','B','S','S',O_SCB_NE|O_UNSZ,"scb/ne",2,{RS,PCREL8},3, {{0x06,0xff, },{0xb8,0xf8,RS },{0x00,0x00,PCREL8 }}}, {45,'-','B','S','S',O_SCB_F|O_UNSZ,"scb/f",2,{RS,PCREL8},3, {{0x01,0xff, },{0xb8,0xf8,RS },{0x00,0x00,PCREL8 }}}, {46,'-','B','S','S',O_SCB_EQ|O_UNSZ,"scb/eq",2,{RS,PCREL8},3, {{0x07,0xff, },{0xb8,0xf8,RS },{0x00,0x00,PCREL8 }}}, {47,'-','B','!','!',O_RTS|O_UNSZ,"rts",0,{0,0},1, {{0x19,0xff, }}}, {48,'-','B','!','!',O_RTD|O_UNSZ,"rtd",1,{IMM8,0},2, {{0x14,0xff, },{0x00,0x00,IMM8 }}}, {48,'-','B','!','!',O_RTD|O_UNSZ,"rtd",1,{IMM16,0},3, {{0x14,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1f,0xff, }}}, {51,'h','E','!','E',O_ROTXR|O_UNSZ,"rotxr",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1f,0xff, }}}, {51,'h','E','!','E',O_ROTXR|O_UNSZ,"rotxr",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1f,0xff, }}}, {51,'h','E','!','E',O_ROTXR|O_UNSZ,"rotxr",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1f,0xff, }}}, {51,'h','E','!','E',O_ROTXR|O_UNSZ,"rotxr",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1f,0xff, }}}, {51,'h','E','!','E',O_ROTXR|O_UNSZ,"rotxr",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1f,0xff, }}}, {51,'h','E','!','E',O_ROTXR|O_UNSZ,"rotxr",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1f,0xff, }}}, {51,'h','E','!','E',O_ROTXR|O_UNSZ,"rotxr",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1f,0xff, }}}, {51,'h','E','!','E',O_ROTXR|O_UNSZ,"rotxr",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1f,0xff, }}}, {51,'h','E','!','E',O_ROTXR|O_UNSZ,"rotxr",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1f,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1e,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1e,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1e,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1e,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1e,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1e,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1e,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1e,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1e,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1e,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1e,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1e,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1e,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1e,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1e,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1e,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1e,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1e,0xff, }}}, {54,'h','E','!','E',O_ROTXL|O_UNSZ,"rotxl",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1e,0xff, }}}, {54,'h','E','!','E',O_ROTXL|O_UNSZ,"rotxl",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1e,0xff, }}}, {54,'h','E','!','E',O_ROTXL|O_UNSZ,"rotxl",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1e,0xff, }}}, {54,'h','E','!','E',O_ROTXL|O_UNSZ,"rotxl",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1e,0xff, }}}, {54,'h','E','!','E',O_ROTXL|O_UNSZ,"rotxl",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1e,0xff, }}}, {54,'h','E','!','E',O_ROTXL|O_UNSZ,"rotxl",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1e,0xff, }}}, {54,'h','E','!','E',O_ROTXL|O_UNSZ,"rotxl",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1e,0xff, }}}, {54,'h','E','!','E',O_ROTXL|O_UNSZ,"rotxl",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1e,0xff, }}}, {54,'h','E','!','E',O_ROTXL|O_UNSZ,"rotxl",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1e,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1d,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1d,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1d,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1d,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1d,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1d,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1d,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1d,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1d,0xff, }}}, {57,'h','E','!','E',O_ROTR|O_UNSZ,"rotr",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1d,0xff, }}}, {57,'h','E','!','E',O_ROTR|O_UNSZ,"rotr",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1d,0xff, }}}, {57,'h','E','!','E',O_ROTR|O_UNSZ,"rotr",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1d,0xff, }}}, {57,'h','E','!','E',O_ROTR|O_UNSZ,"rotr",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1d,0xff, }}}, {57,'h','E','!','E',O_ROTR|O_UNSZ,"rotr",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1d,0xff, }}}, {57,'h','E','!','E',O_ROTR|O_UNSZ,"rotr",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1d,0xff, }}}, {57,'h','E','!','E',O_ROTR|O_UNSZ,"rotr",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1d,0xff, }}}, {57,'h','E','!','E',O_ROTR|O_UNSZ,"rotr",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1d,0xff, }}}, {57,'h','E','!','E',O_ROTR|O_UNSZ,"rotr",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1d,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1c,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1c,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1c,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1c,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1c,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1c,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1c,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1c,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1c,0xff, }}}, {60,'h','E','!','E',O_ROTL|O_UNSZ,"rotl",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1c,0xff, }}}, {60,'h','E','!','E',O_ROTL|O_UNSZ,"rotl",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1c,0xff, }}}, {60,'h','E','!','E',O_ROTL|O_UNSZ,"rotl",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1c,0xff, }}}, {60,'h','E','!','E',O_ROTL|O_UNSZ,"rotl",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1c,0xff, }}}, {60,'h','E','!','E',O_ROTL|O_UNSZ,"rotl",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1c,0xff, }}}, {60,'h','E','!','E',O_ROTL|O_UNSZ,"rotl",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1c,0xff, }}}, {60,'h','E','!','E',O_ROTL|O_UNSZ,"rotl",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1c,0xff, }}}, {60,'h','E','!','E',O_ROTL|O_UNSZ,"rotl",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1c,0xff, }}}, {60,'h','E','!','E',O_ROTL|O_UNSZ,"rotl",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1c,0xff, }}}, {61,'-','B','!','!',O_PRTS|O_UNSZ,"prts",0,{0,0},2, {{0x11,0xff, },{0x19,0xff, }}}, {62,'-','B','!','!',O_PRTD|O_UNSZ,"prtd",1,{IMM8,0},3, {{0x11,0xff, },{0x14,0xff, },{0x00,0x00,IMM8 }}}, {62,'-','B','!','!',O_PRTD|O_UNSZ,"prtd",1,{IMM16,0},4, {{0x11,0xff, },{0x1c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {63,'-','J','!','!',O_PJSR|O_UNSZ,"pjsr",1,{RDIND,0},2, {{0x11,0xff, },{0xc8,0xf8,RDIND }}}, {63,'-','J','!','!',O_PJSR|O_UNSZ,"pjsr",1,{ABS24,0},4, {{0x03,0xff, },{0x00,0x00,ABS24 },{0x00,0x00, },{0x00,0x00, }}}, {64,'-','J','!','!',O_PJMP|O_UNSZ,"pjmp",1,{RDIND,0},2, {{0x11,0xff, },{0xc0,0xf8,RDIND }}}, {64,'-','J','!','!',O_PJMP|O_UNSZ,"pjmp",1,{ABS24,0},4, {{0x13,0xff, },{0x00,0x00,ABS24 },{0x00,0x00, },{0x00,0x00, }}}, {65,'s','I','C','C',O_ORC|O_WORD,"orc.w",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x48,0xf8,CRW }}}, {66,'s','I','C','C',O_ORC|O_BYTE,"orc.b",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x48,0xf8,CRB }}}, {67,'s','I','C','C',O_ORC|O_UNSZ,"orc",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x48,0xf8,CRB }}}, {67,'s','I','C','C',O_ORC|O_UNSZ,"orc",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x48,0xf8,CRW }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x40,0xf8,RD }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x40,0xf8,RD }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x40,0xf8,RD }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x40,0xf8,RD }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x40,0xf8,RD }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x40,0xf8,RD }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x40,0xf8,RD }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x40,0xf8,RD }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x40,0xf8,RD }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x40,0xf8,RD }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x40,0xf8,RD }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x40,0xf8,RD }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x40,0xf8,RD }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {70,'m','E','D','D',O_OR|O_UNSZ,"or",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x40,0xf8,RD }}}, {70,'m','E','D','D',O_OR|O_UNSZ,"or",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x40,0xf8,RD }}}, {70,'m','E','D','D',O_OR|O_UNSZ,"or",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x40,0xf8,RD }}}, {70,'m','E','D','D',O_OR|O_UNSZ,"or",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x40,0xf8,RD }}}, {70,'m','E','D','D',O_OR|O_UNSZ,"or",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x40,0xf8,RD }}}, {70,'m','E','D','D',O_OR|O_UNSZ,"or",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x40,0xf8,RD }}}, {70,'m','E','D','D',O_OR|O_UNSZ,"or",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {70,'m','E','D','D',O_OR|O_UNSZ,"or",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {70,'m','E','D','D',O_OR|O_UNSZ,"or",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x15,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x15,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x15,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x15,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x15,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x15,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x15,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x15,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x15,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x15,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x15,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x15,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x15,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x15,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x15,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x15,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x15,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x15,0xff, }}}, {73,'m','E','!','E',O_NOT|O_UNSZ,"not",1,{RN,0},2, {{0xa8,0xf8,RN },{0x15,0xff, }}}, {73,'m','E','!','E',O_NOT|O_UNSZ,"not",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x15,0xff, }}}, {73,'m','E','!','E',O_NOT|O_UNSZ,"not",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x15,0xff, }}}, {73,'m','E','!','E',O_NOT|O_UNSZ,"not",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x15,0xff, }}}, {73,'m','E','!','E',O_NOT|O_UNSZ,"not",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x15,0xff, }}}, {73,'m','E','!','E',O_NOT|O_UNSZ,"not",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x15,0xff, }}}, {73,'m','E','!','E',O_NOT|O_UNSZ,"not",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x15,0xff, }}}, {73,'m','E','!','E',O_NOT|O_UNSZ,"not",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x15,0xff, }}}, {73,'m','E','!','E',O_NOT|O_UNSZ,"not",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x15,0xff, }}}, {74,'-','!','!','!',O_NOP|O_UNSZ,"nop",0,{0,0},1, {{0x00,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x14,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x14,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x14,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x14,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x14,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x14,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x14,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x14,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x14,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x14,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x14,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x14,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x14,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x14,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x14,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x14,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x14,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x14,0xff, }}}, {77,'a','E','!','E',O_NEG|O_UNSZ,"neg",1,{RN,0},2, {{0xa8,0xf8,RN },{0x14,0xff, }}}, {77,'a','E','!','E',O_NEG|O_UNSZ,"neg",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x14,0xff, }}}, {77,'a','E','!','E',O_NEG|O_UNSZ,"neg",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x14,0xff, }}}, {77,'a','E','!','E',O_NEG|O_UNSZ,"neg",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x14,0xff, }}}, {77,'a','E','!','E',O_NEG|O_UNSZ,"neg",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x14,0xff, }}}, {77,'a','E','!','E',O_NEG|O_UNSZ,"neg",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x14,0xff, }}}, {77,'a','E','!','E',O_NEG|O_UNSZ,"neg",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x14,0xff, }}}, {77,'a','E','!','E',O_NEG|O_UNSZ,"neg",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x14,0xff, }}}, {77,'a','E','!','E',O_NEG|O_UNSZ,"neg",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x14,0xff, }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {80,'p','E','D','D',O_MULXU|O_UNSZ,"mulxu",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xa8,0xf8,RD }}}, {80,'p','E','D','D',O_MULXU|O_UNSZ,"mulxu",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xa8,0xf8,RD }}}, {80,'p','E','D','D',O_MULXU|O_UNSZ,"mulxu",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xa8,0xf8,RD }}}, {80,'p','E','D','D',O_MULXU|O_UNSZ,"mulxu",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xa8,0xf8,RD }}}, {80,'p','E','D','D',O_MULXU|O_UNSZ,"mulxu",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xa8,0xf8,RD }}}, {80,'p','E','D','D',O_MULXU|O_UNSZ,"mulxu",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xa8,0xf8,RD }}}, {80,'p','E','D','D',O_MULXU|O_UNSZ,"mulxu",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {80,'p','E','D','D',O_MULXU|O_UNSZ,"mulxu",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {80,'p','E','D','D',O_MULXU|O_UNSZ,"mulxu",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RN},3, {{0xa0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNDEC},3, {{0xb0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNINC},3, {{0xc0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNIND},3, {{0xd0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,ABS8},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x00,0xff, },{0x90,0xf8,RS }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNIND_D8},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x00,0xff, },{0x90,0xf8,RS }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,ABS16},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x00,0xff, },{0x90,0xf8,RS }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNIND_D16},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x00,0xff, },{0x90,0xf8,RS }}}, {82,'-','S','!','E',O_MOVTPE|O_UNSZ,"movtpe",2,{RS,RN},3, {{0xa0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {82,'-','S','!','E',O_MOVTPE|O_UNSZ,"movtpe",2,{RS,RNDEC},3, {{0xb0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {82,'-','S','!','E',O_MOVTPE|O_UNSZ,"movtpe",2,{RS,RNIND},3, {{0xd0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {82,'-','S','!','E',O_MOVTPE|O_UNSZ,"movtpe",2,{RS,RNINC},3, {{0xc0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {82,'-','S','!','E',O_MOVTPE|O_UNSZ,"movtpe",2,{RS,ABS8},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x00,0xff, },{0x90,0xf8,RS }}}, {82,'-','S','!','E',O_MOVTPE|O_UNSZ,"movtpe",2,{RS,RNIND_D8},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x00,0xff, },{0x90,0xf8,RS }}}, {82,'-','S','!','E',O_MOVTPE|O_UNSZ,"movtpe",2,{RS,ABS16},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x00,0xff, },{0x90,0xf8,RS }}}, {82,'-','S','!','E',O_MOVTPE|O_UNSZ,"movtpe",2,{RS,RNIND_D16},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x00,0xff, },{0x90,0xf8,RS }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RN,RD},3, {{0xa0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNINC,RD},3, {{0xc0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNIND,RD},3, {{0xd0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNDEC,RD},3, {{0xb0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{IMM8,RD},4, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{ABS8,RD},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNIND_D8,RD},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{ABS16,RD},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNIND_D16,RD},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x00,0xff, },{0x80,0xf8,RD }}}, {84,'-','E','!','D',O_MOVFPE|O_UNSZ,"movfpe",2,{RN,RD},3, {{0xa0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {84,'-','E','!','D',O_MOVFPE|O_UNSZ,"movfpe",2,{RNINC,RD},3, {{0xc0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {84,'-','E','!','D',O_MOVFPE|O_UNSZ,"movfpe",2,{RNIND,RD},3, {{0xd0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {84,'-','E','!','D',O_MOVFPE|O_UNSZ,"movfpe",2,{RNDEC,RD},3, {{0xb0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {84,'-','E','!','D',O_MOVFPE|O_UNSZ,"movfpe",2,{IMM8,RD},4, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x00,0xff, },{0x80,0xf8,RD }}}, {84,'-','E','!','D',O_MOVFPE|O_UNSZ,"movfpe",2,{ABS8,RD},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x00,0xff, },{0x80,0xf8,RD }}}, {84,'-','E','!','D',O_MOVFPE|O_UNSZ,"movfpe",2,{RNIND_D8,RD},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x00,0xff, },{0x80,0xf8,RD }}}, {84,'-','E','!','D',O_MOVFPE|O_UNSZ,"movfpe",2,{ABS16,RD},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x00,0xff, },{0x80,0xf8,RD }}}, {84,'-','E','!','D',O_MOVFPE|O_UNSZ,"movfpe",2,{RNIND_D16,RD},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x00,0xff, },{0x80,0xf8,RD }}}, {85,'m','S','!','E',O_MOV|O_WORD,"mov:s.w",2,{RS,ABS8},2, {{0x78,0xf8,RS },{0x00,0x00,ABS8 }}}, {86,'m','S','!','E',O_MOV|O_BYTE,"mov:s.b",2,{RS,ABS8},2, {{0x70,0xf8,RS },{0x00,0x00,ABS8 }}}, {87,'m','S','!','E',O_MOV|O_UNSZ,"mov:s",2,{RS,ABS8},2, {{0x78,0xf8,RS },{0x00,0x00,ABS8 }}}, {88,'m','E','!','D',O_MOV|O_WORD,"mov:l.w",2,{ABS8,RD},2, {{0x68,0xf8,RD },{0x00,0x00,ABS8 }}}, {89,'m','E','!','D',O_MOV|O_BYTE,"mov:l.b",2,{ABS8,RD},2, {{0x60,0xf8,RD },{0x00,0x00,ABS8 }}}, {90,'m','E','!','D',O_MOV|O_UNSZ,"mov:l",2,{ABS8,RD},2, {{0x68,0xf8,RD },{0x00,0x00,ABS8 }}}, {91,'m','I','!','D',O_MOV|O_WORD,"mov:i.w",2,{IMM16,RD},3, {{0x58,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {92,'m','I','!','D',O_MOV|O_UNSZ,"mov:i", 2,{IMM16,RD},3, {{0x58,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x90,0xf8,RS }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x80,0xf8,RD }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x90,0xf8,RS }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x90,0xf8,RS }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x80,0xf8,RD }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x80,0xf8,RD }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x80,0xf8,RD }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x90,0xf8,RS }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x90,0xf8,RS }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x80,0xf8,RD }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x80,0xf8,RD }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNIND_D8},5,{{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNIND_D16},6,{{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x90,0xf8,RS }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x80,0xf8,RD }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x90,0xf8,RS }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x80,0xf8,RD }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x90,0xf8,RS }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x80,0xf8,RD }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x80,0xf8,RD }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x90,0xf8,RS }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x90,0xf8,RS }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x80,0xf8,RD }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x80,0xf8,RD }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNIND},3, {{0xd0,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNINC},3, {{0xc0,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNDEC},3, {{0xb0,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x80,0xf8,RD }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,ABS8},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNIND_D8},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNIND_D16},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,ABS16},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {95,'m','S','!','E',O_MOV|O_UNSZ,"mov:g",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x90,0xf8,RS }}}, {95,'m','E','!','D',O_MOV|O_UNSZ,"mov:g",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x80,0xf8,RD }}}, {95,'m','S','!','E',O_MOV|O_UNSZ,"mov:g",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x90,0xf8,RS }}}, {95,'m','E','!','D',O_MOV|O_UNSZ,"mov:g",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x80,0xf8,RD }}}, {95,'m','S','!','E',O_MOV|O_UNSZ,"mov:g",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x90,0xf8,RS }}}, {95,'m','E','!','D',O_MOV|O_UNSZ,"mov:g",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x80,0xf8,RD }}}, {95,'m','E','!','D',O_MOV|O_UNSZ,"mov:g",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x80,0xf8,RD }}}, {95,'m','S','!','E',O_MOV|O_UNSZ,"mov:g",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x90,0xf8,RS }}}, {95,'m','S','!','E',O_MOV|O_UNSZ,"mov:g",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x90,0xf8,RS }}}, {95,'m','E','!','D',O_MOV|O_UNSZ,"mov:g",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x80,0xf8,RD }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM8,RNIND},3, {{0xd8,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {95,'m','E','!','D',O_MOV|O_UNSZ,"mov:g",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x80,0xf8,RD }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM8,RNDEC},3, {{0xb8,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM8,RNINC},3, {{0xc8,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM8,RNIND_D8},4, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM8,ABS8},4, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {95,'m','S','!','E',O_MOV|O_UNSZ,"mov:g",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {95,'m','E','!','D',O_MOV|O_UNSZ,"mov:g",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {95,'m','S','!','E',O_MOV|O_UNSZ,"mov:g",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {95,'m','E','!','D',O_MOV|O_UNSZ,"mov:g",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {95,'m','E','!','D',O_MOV|O_UNSZ,"mov:g",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM16,RNIND_D8},5, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM8,ABS16},5, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM8,RNIND_D16},5, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {95,'m','I','!','E',O_MOV|O_UNSZ,"mov:g",2,{IMM16,RNIND_D16},6, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {96,'m','S','!','E',O_MOV|O_WORD,"mov:f.w",2,{RS,FPIND_D8},2, {{0x98,0xf8,RS },{0x00,0x00,FPIND_D8 }}}, {96,'m','E','!','D',O_MOV|O_WORD,"mov:f.w",2,{FPIND_D8,RD},2, {{0x88,0xf8,RD },{0x00,0x00,FPIND_D8 }}}, {97,'m','S','!','E',O_MOV|O_BYTE,"mov:f.b",2,{RS,FPIND_D8},2, {{0x90,0xf8,RS },{0x00,0x00,FPIND_D8 }}}, {97,'m','E','!','D',O_MOV|O_BYTE,"mov:f.b",2,{FPIND_D8,RD},2, {{0x80,0xf8,RD },{0x00,0x00,FPIND_D8 }}}, {98,'m','S','!','E',O_MOV|O_UNSZ,"mov:f",2,{RS,FPIND_D8},2, {{0x98,0xf8,RS },{0x00,0x00,FPIND_D8 }}}, {98,'m','E','!','D',O_MOV|O_UNSZ,"mov:f",2,{FPIND_D8,RD},2, {{0x88,0xf8,RD },{0x00,0x00,FPIND_D8 }}}, {99,'m','I','!','D',O_MOV|O_BYTE,"mov:e.b",2,{IMM8,RD},2, {{0x50,0xf8,RD },{0x00,0x00,IMM8 }}}, {100,'m','I','!','D',O_MOV|O_UNSZ,"mov:e",2,{IMM8,RD},2, {{0x50,0xf8,RD },{0x00,0x00,IMM8 }}}, {101,'m','S','!','E',O_MOV|O_WORD,"mov.w",2,{RS,FPIND_D8},2, {{0x98,0xf8,RS },{0x00,0x00,FPIND_D8 }}}, {101,'m','S','!','E',O_MOV|O_WORD,"mov.w",2,{RS,ABS8},2, {{0x78,0xf8,RS },{0x00,0x00,ABS8 }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{ABS8,RD},2, {{0x68,0xf8,RD },{0x00,0x00,ABS8 }}}, {101,'m','S','!','E',O_MOV|O_WORD,"mov.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x90,0xf8,RS }}}, {101,'m','S','!','E',O_MOV|O_WORD,"mov.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x90,0xf8,RS }}}, {101,'m','S','!','E',O_MOV|O_WORD,"mov.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x90,0xf8,RS }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x80,0xf8,RD }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{FPIND_D8,RD},2, {{0x88,0xf8,RD },{0x00,0x00,FPIND_D8 }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x80,0xf8,RD }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x80,0xf8,RD }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x80,0xf8,RD }}}, {101,'m','S','!','E',O_MOV|O_WORD,"mov.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x90,0xf8,RS }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x80,0xf8,RD }}}, {101,'m','S','!','E',O_MOV|O_WORD,"mov.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x90,0xf8,RS }}}, {101,'m','I','!','D',O_MOV|O_WORD,"mov.w",2,{IMM16,RD},3, {{0x58,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x80,0xf8,RD }}}, {101,'m','I','!','E',O_MOV|O_WORD,"mov.w",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {101,'m','I','!','E',O_MOV|O_WORD,"mov.w",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {101,'m','I','!','E',O_MOV|O_WORD,"mov.w",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {101,'m','S','!','E',O_MOV|O_WORD,"mov.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {101,'m','S','!','E',O_MOV|O_WORD,"mov.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {101,'m','E','!','D',O_MOV|O_WORD,"mov.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {101,'m','I','!','E',O_MOV|O_WORD,"mov.w",2,{IMM16,RNIND_D8},5, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {101,'m','I','!','E',O_MOV|O_WORD,"mov.w",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {101,'m','I','!','E',O_MOV|O_WORD,"mov.w",2,{IMM16,RNIND_D16},6, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {101,'m','I','!','E',O_MOV|O_WORD,"mov.w",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{FPIND_D8,RD},2, {{0x80,0xf8,RD },{0x00,0x00,FPIND_D8 }}}, {102,'m','S','!','E',O_MOV|O_BYTE,"mov.b",2,{RS,ABS8},2, {{0x70,0xf8,RS },{0x00,0x00,ABS8 }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x80,0xf8,RD }}}, {102,'m','S','!','E',O_MOV|O_BYTE,"mov.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x90,0xf8,RS }}}, {102,'m','S','!','E',O_MOV|O_BYTE,"mov.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x90,0xf8,RS }}}, {102,'m','S','!','E',O_MOV|O_BYTE,"mov.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x90,0xf8,RS }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x80,0xf8,RD }}}, {102,'m','S','!','E',O_MOV|O_BYTE,"mov.b",2,{RS,FPIND_D8},2, {{0x90,0xf8,RS },{0x00,0x00,FPIND_D8 }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x80,0xf8,RD }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x80,0xf8,RD }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{ABS8,RD},2, {{0x60,0xf8,RD },{0x00,0x00,ABS8 }}}, {102,'m','I','!','D',O_MOV|O_BYTE,"mov.b",2,{IMM8,RD},2, {{0x50,0xf8,RD },{0x00,0x00,IMM8 }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x80,0xf8,RD }}}, {102,'m','S','!','E',O_MOV|O_BYTE,"mov.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x90,0xf8,RS }}}, {102,'m','I','!','E',O_MOV|O_BYTE,"mov.b",2,{IMM8,RNIND},3, {{0xd0,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {102,'m','I','!','E',O_MOV|O_BYTE,"mov.b",2,{IMM8,RNINC},3, {{0xc0,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {102,'m','I','!','E',O_MOV|O_BYTE,"mov.b",2,{IMM8,RNDEC},3, {{0xb0,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x80,0xf8,RD }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x80,0xf8,RD }}}, {102,'m','S','!','E',O_MOV|O_BYTE,"mov.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x90,0xf8,RS }}}, {102,'m','I','!','E',O_MOV|O_BYTE,"mov.b",2,{IMM8,RNIND_D8},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {102,'m','I','!','E',O_MOV|O_BYTE,"mov.b",2,{IMM8,ABS8},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {102,'m','S','!','E',O_MOV|O_BYTE,"mov.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {102,'m','S','!','E',O_MOV|O_BYTE,"mov.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {102,'m','E','!','D',O_MOV|O_BYTE,"mov.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {102,'m','I','!','E',O_MOV|O_BYTE,"mov.b",2,{IMM8,ABS16},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {102,'m','I','!','E',O_MOV|O_BYTE,"mov.b",2,{IMM8,RNIND_D16},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{ABS8,RD},2, {{0x68,0xf8,RD },{0x00,0x00,ABS8 }}}, {103,'m','S','!','E',O_MOV|O_UNSZ,"mov",2,{RS,ABS8},2, {{0x78,0xf8,RS },{0x00,0x00,ABS8 }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x80,0xf8,RD }}}, {103,'m','S','!','E',O_MOV|O_UNSZ,"mov",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x90,0xf8,RS }}}, {103,'m','S','!','E',O_MOV|O_UNSZ,"mov",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x90,0xf8,RS }}}, {103,'m','S','!','E',O_MOV|O_UNSZ,"mov",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x90,0xf8,RS }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x80,0xf8,RD }}}, {103,'m','S','!','E',O_MOV|O_UNSZ,"mov",2,{RS,FPIND_D8},2, {{0x98,0xf8,RS },{0x00,0x00,FPIND_D8 }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x80,0xf8,RD }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{FPIND_D8,RD},2, {{0x88,0xf8,RD },{0x00,0x00,FPIND_D8 }}}, /*{103,'m','I','!','D',O_MOV|O_UNSZ,"mov",2,{IMM8,RD},2, {{0x58,0xf8,RD },{0x00,0x00,IMM8 }}},*/ {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x80,0xf8,RD }}}, {103,'m','S','!','E',O_MOV|O_UNSZ,"mov",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x90,0xf8,RS }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM8,RNIND},3, {{0xd8,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM8,RNINC},3, {{0xc8,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM8,RNDEC},3, {{0xb8,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x80,0xf8,RD }}}, {103,'m','S','!','E',O_MOV|O_UNSZ,"mov",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x90,0xf8,RS }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x80,0xf8,RD }}}, {103,'m','I','!','D',O_MOV|O_UNSZ,"mov",2,{IMM16,RD},3, {{0x58,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM8,ABS8},4, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {103,'m','S','!','E',O_MOV|O_UNSZ,"mov",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {103,'m','S','!','E',O_MOV|O_UNSZ,"mov",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM8,RNIND_D8},4, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {103,'m','E','!','D',O_MOV|O_UNSZ,"mov",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM16,RNIND_D8},5, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM8,ABS16},5, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM8,RNIND_D16},5, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {103,'m','I','!','E',O_MOV|O_UNSZ,"mov",2,{IMM16,RNIND_D16},6, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {104,'-','S','I','!',O_LINK|O_UNSZ,"link",2,{FP,IMM8},2, {{0x17,0xff, },{0x00,0x00,IMM8 }}}, {104,'-','S','I','!',O_LINK|O_UNSZ,"link",2,{FP,IMM16},3, {{0x1f,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {105,'-','E','!','C',O_LDM|O_UNSZ,"ldm",2,{SPINC,RLIST},2, {{0x02,0xff, },{0x00,0x00,RLIST }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{RN,CRW},2, {{0xa8,0xf8,RN },{0x88,0xf8,CRW }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{RNIND,CRW},2, {{0xd8,0xf8,RN },{0x88,0xf8,CRW }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{RNINC,CRW},2, {{0xc8,0xf8,RN },{0x88,0xf8,CRW }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{RNDEC,CRW},2, {{0xb8,0xf8,RN },{0x88,0xf8,CRW }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{ABS8,CRW},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x88,0xf8,CRW }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{RNIND_D8,CRW},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x88,0xf8,CRW }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x88,0xf8,CRW }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{ABS16,CRW},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x88,0xf8,CRW }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{RNIND_D16,CRW},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x88,0xf8,CRW }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RN,CRB},2, {{0xa0,0xf8,RN },{0x88,0xf8,CRB }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNDEC,CRB},2, {{0xb0,0xf8,RN },{0x88,0xf8,CRB }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNINC,CRB},2, {{0xc0,0xf8,RN },{0x88,0xf8,CRB }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNIND,CRB},2, {{0xd0,0xf8,RN },{0x88,0xf8,CRB }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x88,0xf8,CRB }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{ABS8,CRB},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x88,0xf8,CRB }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNIND_D8,CRB},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x88,0xf8,CRB }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{ABS16,CRB},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x88,0xf8,CRB }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNIND_D16,CRB},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x88,0xf8,CRB }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RN,CRW},2, {{0xa8,0xf8,RN },{0x88,0xf8,CRW }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RN,CRB},2, {{0xa0,0xf8,RN },{0x88,0xf8,CRB }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNINC,CRW},2, {{0xc8,0xf8,RN },{0x88,0xf8,CRW }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNIND,CRB},2, {{0xd0,0xf8,RN },{0x88,0xf8,CRB }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNDEC,CRW},2, {{0xb8,0xf8,RN },{0x88,0xf8,CRW }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNIND,CRW},2, {{0xd8,0xf8,RN },{0x88,0xf8,CRW }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNDEC,CRB},2, {{0xb0,0xf8,RN },{0x88,0xf8,CRB }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNINC,CRB},2, {{0xc0,0xf8,RN },{0x88,0xf8,CRB }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{ABS8,CRW},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x88,0xf8,CRW }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{ABS8,CRB},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x88,0xf8,CRB }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x88,0xf8,CRB }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNIND_D8,CRW},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x88,0xf8,CRW }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNIND_D8,CRB},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x88,0xf8,CRB }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{ABS16,CRB},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x88,0xf8,CRB }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{ABS16,CRW},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x88,0xf8,CRW }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x88,0xf8,CRW }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNIND_D16,CRW},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x88,0xf8,CRW }}}, {108,'s','E','!','C',O_LDC|O_UNSZ,"ldc",2,{RNIND_D16,CRB},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x88,0xf8,CRB }}}, {109,'-','B','!','!',O_JSR|O_UNSZ,"jsr",1,{RDIND,0},2, {{0x11,0xff, },{0xd8,0xf8,RD }}}, {109,'-','B','!','!',O_JSR|O_UNSZ,"jsr",1,{ABS16,0},3, {{0x18,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, }}}, {109,'-','B','!','!',O_JSR|O_UNSZ,"jsr",1,{RDIND_D8,0},3, {{0x11,0xff, },{0xe8,0xf8,RDIND_D8 },{0x00,0x00, }}}, {109,'-','B','!','!',O_JSR|O_UNSZ,"jsr",1,{RDIND_D16,0},4, {{0x11,0xff, },{0xf8,0xf8,RDIND_D16 },{0x00,0x00, },{0x00,0x00, }}}, {110,'-','B','!','!',O_JMP|O_UNSZ,"jmp",1,{RDIND,0},2, {{0x11,0xff, },{0xd0,0xf8,RD }}}, {110,'-','B','!','!',O_JMP|O_UNSZ,"jmp",1,{ABS16,0},3, {{0x10,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, }}}, {110,'-','B','!','!',O_JMP|O_UNSZ,"jmp",1,{RDIND_D8,0},3, {{0x11,0xff, },{0xe0,0xf8,RDIND_D8 },{0x00,0x00, }}}, {110,'-','B','!','!',O_JMP|O_UNSZ,"jmp",1,{RDIND_D16,0},4, {{0x11,0xff, },{0xf0,0xf8,RDIND_D16 },{0x00,0x00, },{0x00,0x00, }}}, {111,'s','D','!','D',O_EXTU|O_BYTE,"extu.b",1,{RD,0},2, {{0xa0,0xf8,RD },{0x12,0xff, }}}, {112,'s','D','!','D',O_EXTU|O_UNSZ,"extu",1,{RD,0},2, {{0xa0,0xf8,RD },{0x12,0xff, }}}, {113,'s','D','!','D',O_EXTS|O_BYTE,"exts.b",1,{RD,0},2, {{0xa0,0xf8,RD },{0x11,0xff, }}}, {114,'s','D','!','D',O_EXTS|O_UNSZ,"exts",1,{RD,0},2, {{0xa0,0xf8,RD },{0x11,0xff, }}}, {115,'s','D','!','!',O_DSUB|O_UNSZ,"dsub",2,{RS,RD},3, {{0xa0,0xf8,RS },{0x00,0xff, },{0xb0,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {118,'s','E','D','D',O_DIVXU|O_UNSZ,"divxu",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xb8,0xf8,RD }}}, {118,'s','E','D','D',O_DIVXU|O_UNSZ,"divxu",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xb8,0xf8,RD }}}, {118,'s','E','D','D',O_DIVXU|O_UNSZ,"divxu",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xb8,0xf8,RD }}}, {118,'s','E','D','D',O_DIVXU|O_UNSZ,"divxu",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xb8,0xf8,RD }}}, {118,'s','E','D','D',O_DIVXU|O_UNSZ,"divxu",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xb8,0xf8,RD }}}, {118,'s','E','D','D',O_DIVXU|O_UNSZ,"divxu",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xb8,0xf8,RD }}}, {118,'s','E','D','D',O_DIVXU|O_UNSZ,"divxu",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {118,'s','E','D','D',O_DIVXU|O_UNSZ,"divxu",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {118,'s','E','D','D',O_DIVXU|O_UNSZ,"divxu",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {119,'s','D','!','!',O_DADD|O_UNSZ,"dadd",2,{RS,RD},3, {{0xa0,0xf8,RS },{0x00,0xff, },{0xa0,0xf8,RD }}}, {120,'a','D','I','!',O_CMP|O_WORD,"cmp:i.w",2,{IMM16,RD},3, {{0x48,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {121,'a','D','I','!',O_CMP|O_UNSZ,"cmp:i",2,{IMM16,RD},3, {{0x48,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x70,0xf8,RD }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x70,0xf8,RD }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x70,0xf8,RD }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x70,0xf8,RD }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x70,0xf8,RD }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x70,0xf8,RD }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RN},4, {{0xa8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNIND_D8},5,{{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNIND_D16},6, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RN},3, {{0xa0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNIND},3, {{0xd0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNINC},3, {{0xc0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNDEC},3, {{0xb0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNIND_D8},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,ABS8},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,ABS16},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNIND_D16},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {124,'a','D','E','!',O_CMP|O_UNSZ,"cmp:g",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x70,0xf8,RD }}}, {124,'a','D','E','!',O_CMP|O_UNSZ,"cmp:g",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x70,0xf8,RD }}}, {124,'a','D','E','!',O_CMP|O_UNSZ,"cmp:g",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x70,0xf8,RD }}}, {124,'a','D','E','!',O_CMP|O_UNSZ,"cmp:g",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x70,0xf8,RD }}}, {124,'a','D','E','!',O_CMP|O_UNSZ,"cmp:g",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x70,0xf8,RD }}}, {124,'a','D','E','!',O_CMP|O_UNSZ,"cmp:g",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x70,0xf8,RD }}}, {124,'a','E','I','!',O_CMP|O_UNSZ,"cmp:g",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {124,'a','E','I','!',O_CMP|O_UNSZ,"cmp:g",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {124,'a','E','I','!',O_CMP|O_UNSZ,"cmp:g",2,{IMM16,RN},4, {{0xa8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {124,'a','E','I','!',O_CMP|O_UNSZ,"cmp:g",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {124,'a','D','E','!',O_CMP|O_UNSZ,"cmp:g",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {124,'a','D','E','!',O_CMP|O_UNSZ,"cmp:g",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {124,'a','D','E','!',O_CMP|O_UNSZ,"cmp:g",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {124,'a','E','I','!',O_CMP|O_UNSZ,"cmp:g",2,{IMM16,RNIND_D8},5, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {124,'a','E','I','!',O_CMP|O_UNSZ,"cmp:g",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {124,'a','E','I','!',O_CMP|O_UNSZ,"cmp:g",2,{IMM16,RNIND_D16},6,{{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {124,'a','E','I','!',O_CMP|O_UNSZ,"cmp:g",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {125,'a','D','I','!',O_CMP|O_BYTE,"cmp:e.b",2,{IMM8,RD},2, {{0x40,0xf8,RD },{0x00,0x00,IMM8 }}}, {126,'a','D','I','!',O_CMP|O_UNSZ,"cmp:e",2,{IMM8,RD},2, {{0x48,0xf8,RD },{0x00,0x00,IMM8 }}}, {127,'a','D','E','!',O_CMP|O_WORD,"cmp.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x70,0xf8,RD }}}, {127,'a','D','E','!',O_CMP|O_WORD,"cmp.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x70,0xf8,RD }}}, {127,'a','D','E','!',O_CMP|O_WORD,"cmp.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x70,0xf8,RD }}}, {127,'a','D','E','!',O_CMP|O_WORD,"cmp.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x70,0xf8,RD }}}, {127,'a','D','I','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,RD},3, {{0x48,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {127,'a','D','E','!',O_CMP|O_WORD,"cmp.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x70,0xf8,RD }}}, {127,'a','D','E','!',O_CMP|O_WORD,"cmp.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x70,0xf8,RD }}}, {127,'a','E','I','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {127,'a','E','I','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {127,'a','E','I','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {127,'a','D','E','!',O_CMP|O_WORD,"cmp.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {127,'a','D','E','!',O_CMP|O_WORD,"cmp.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {127,'a','D','E','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {127,'a','E','I','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,RN},4, {{0xa8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {127,'a','E','I','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,RNIND_D8},5, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {127,'a','E','I','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {127,'a','E','I','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,RNIND_D16},6,{{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {127,'a','E','I','!',O_CMP|O_WORD,"cmp.w",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {128,'a','D','E','!',O_CMP|O_BYTE,"cmp.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x70,0xf8,RD }}}, {128,'a','D','E','!',O_CMP|O_BYTE,"cmp.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x70,0xf8,RD }}}, {128,'a','D','E','!',O_CMP|O_BYTE,"cmp.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x70,0xf8,RD }}}, {128,'a','D','I','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,RD},2, {{0x40,0xf8,RD },{0x00,0x00,IMM8 }}}, {128,'a','D','E','!',O_CMP|O_BYTE,"cmp.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x70,0xf8,RD }}}, {128,'a','E','I','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,RN},3, {{0xa0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {128,'a','E','I','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,RNIND},3, {{0xd0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {128,'a','E','I','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,RNINC},3, {{0xc0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {128,'a','E','I','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,RNDEC},3, {{0xb0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {128,'a','D','E','!',O_CMP|O_BYTE,"cmp.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x70,0xf8,RD }}}, {128,'a','D','E','!',O_CMP|O_BYTE,"cmp.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x70,0xf8,RD }}}, {128,'a','D','E','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x70,0xf8,RD }}}, {128,'a','E','I','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,ABS8},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {128,'a','D','E','!',O_CMP|O_BYTE,"cmp.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {128,'a','E','I','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,RNIND_D8},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {128,'a','D','E','!',O_CMP|O_BYTE,"cmp.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {128,'a','E','I','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,ABS16},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {128,'a','E','I','!',O_CMP|O_BYTE,"cmp.b",2,{IMM8,RNIND_D16},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {129,'a','D','E','!',O_CMP|O_UNSZ,"cmp",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x70,0xf8,RD }}}, {129,'a','D','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM8,RD},2, {{0x48,0xf8,RD },{0x00,0x00,IMM8 }}}, {129,'a','D','E','!',O_CMP|O_UNSZ,"cmp",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x70,0xf8,RD }}}, {129,'a','D','E','!',O_CMP|O_UNSZ,"cmp",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x70,0xf8,RD }}}, {129,'a','D','E','!',O_CMP|O_UNSZ,"cmp",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x70,0xf8,RD }}}, {129,'a','D','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,RD},3, {{0x48,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {129,'a','D','E','!',O_CMP|O_UNSZ,"cmp",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x70,0xf8,RD }}}, {129,'a','D','E','!',O_CMP|O_UNSZ,"cmp",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x70,0xf8,RD }}}, {129,'a','E','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,RN},4, {{0xa8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {129,'a','E','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {129,'a','E','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {129,'a','D','E','!',O_CMP|O_UNSZ,"cmp",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {129,'a','E','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {129,'a','D','E','!',O_CMP|O_UNSZ,"cmp",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {129,'a','D','E','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {129,'a','E','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {129,'a','E','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,RNIND_D8},5, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {129,'a','E','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {129,'a','E','I','!',O_CMP|O_UNSZ,"cmp",2,{IMM16,RNIND_D16},6, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x13,0xff, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x13,0xff, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x13,0xff, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x13,0xff, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x13,0xff, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x13,0xff, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x13,0xff, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x13,0xff, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x13,0xff, }}}, {132,'c','!','!','E',O_CLR|O_UNSZ,"clr",1,{RN,0},2, {{0xa8,0xf8,RN },{0x13,0xff, }}}, {132,'c','!','!','E',O_CLR|O_UNSZ,"clr",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x13,0xff, }}}, {132,'c','!','!','E',O_CLR|O_UNSZ,"clr",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x13,0xff, }}}, {132,'c','!','!','E',O_CLR|O_UNSZ,"clr",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x13,0xff, }}}, {132,'c','!','!','E',O_CLR|O_UNSZ,"clr",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x13,0xff, }}}, {132,'c','!','!','E',O_CLR|O_UNSZ,"clr",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x13,0xff, }}}, {132,'c','!','!','E',O_CLR|O_UNSZ,"clr",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x13,0xff, }}}, {132,'c','!','!','E',O_CLR|O_UNSZ,"clr",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x13,0xff, }}}, {132,'c','!','!','E',O_CLR|O_UNSZ,"clr",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x13,0xff, }}}, {133,'-','B','!','!',O_BVS|O_WORD,"bvs.w",1,{PCREL16,0},3, {{0x39,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {134,'-','B','!','!',O_BVS|O_BYTE,"bvs.b",1,{PCREL8,0},2, {{0x29,0xff, },{0x00,0x00,PCREL8 }}}, {135,'-','B','!','!',O_BVS|O_UNSZ,"bvs",1,{PCREL8,0},2, {{0x29,0xff, },{0x00,0x00,PCREL8 }}}, {135,'-','B','!','!',O_BVS|O_UNSZ,"bvs",1,{PCREL16,0},3, {{0x39,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {136,'-','B','!','!',O_BVC|O_WORD,"bvc.w",1,{PCREL16,0},3, {{0x38,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {137,'-','B','!','!',O_BVC|O_BYTE,"bvc.b",1,{PCREL8,0},2, {{0x28,0xff, },{0x00,0x00,PCREL8 }}}, {138,'-','B','!','!',O_BVC|O_UNSZ,"bvc",1,{PCREL8,0},2, {{0x28,0xff, },{0x00,0x00,PCREL8 }}}, {138,'-','B','!','!',O_BVC|O_UNSZ,"bvc",1,{PCREL16,0},3, {{0x38,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x78,0xf8,RS }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x78,0xf8,RS }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x78,0xf8,RS }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x78,0xf8,RS }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x78,0xf8,RS }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x78,0xf8,RS }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RN},2, {{0xa0,0xf8,RN },{0x78,0xf8,RS }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNDEC},2, {{0xb0,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RN},2, {{0xa0,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x78,0xf8,RS }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x78,0xf8,RS }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x78,0xf8,RS }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNIND},2, {{0xd0,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNINC},2, {{0xc0,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x78,0xf8,RS }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xf0,0xf0,IMM4 }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x78,0xf8,RS }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {141,'b','E','S','E',O_BTST|O_UNSZ,"btst",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x78,0xf8,RS }}}, {141,'b','E','I','E',O_BTST|O_UNSZ,"btst",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {141,'b','E','I','E',O_BTST|O_UNSZ,"btst",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {141,'b','E','S','E',O_BTST|O_UNSZ,"btst",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x78,0xf8,RS }}}, {141,'b','E','S','E',O_BTST|O_UNSZ,"btst",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x78,0xf8,RS }}}, {141,'b','E','S','E',O_BTST|O_UNSZ,"btst",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x78,0xf8,RS }}}, {141,'b','E','I','E',O_BTST|O_UNSZ,"btst",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {141,'b','E','I','E',O_BTST|O_UNSZ,"btst",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {141,'b','E','S','E',O_BTST|O_UNSZ,"btst",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x78,0xf8,RS }}}, {141,'b','E','I','E',O_BTST|O_UNSZ,"btst",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xf0,0xf0,IMM4 }}}, {141,'b','E','S','E',O_BTST|O_UNSZ,"btst",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x78,0xf8,RS }}}, {141,'b','E','I','E',O_BTST|O_UNSZ,"btst",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xf0,0xf0,IMM4 }}}, {141,'b','E','I','E',O_BTST|O_UNSZ,"btst",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {141,'b','E','S','E',O_BTST|O_UNSZ,"btst",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {141,'b','E','S','E',O_BTST|O_UNSZ,"btst",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {141,'b','E','I','E',O_BTST|O_UNSZ,"btst",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {142,'-','B','!','!',O_BT|O_WORD,"bt.w",1,{PCREL16,0},3, {{0x30,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {143,'-','B','!','!',O_BT|O_BYTE,"bt.b",1,{PCREL8,0},2, {{0x20,0xff, },{0x00,0x00,PCREL8 }}}, {144,'-','B','!','!',O_BT|O_UNSZ,"bt",1,{PCREL8,0},2, {{0x20,0xff, },{0x00,0x00,PCREL8 }}}, {144,'-','B','!','!',O_BT|O_UNSZ,"bt",1,{PCREL16,0},3, {{0x30,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {145,'-','B','!','!',O_BSR|O_WORD,"bsr.w",1,{PCREL16,0},3, {{0x1e,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {146,'-','B','!','!',O_BSR|O_BYTE,"bsr.b",1,{PCREL8,0},2, {{0x0e,0xff, },{0x00,0x00,PCREL8 }}}, {147,'-','B','!','!',O_BSR|O_UNSZ,"bsr",1,{PCREL8,0},2, {{0x0e,0xff, },{0x00,0x00,PCREL8 }}}, {147,'-','B','!','!',O_BSR|O_UNSZ,"bsr",1,{PCREL16,0},3, {{0x1e,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x48,0xf8,RS }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x48,0xf8,RS }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RN},2, {{0xa0,0xf8,RN },{0x48,0xf8,RS }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNINC},2, {{0xc0,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RN},2, {{0xa0,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x48,0xf8,RS }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x48,0xf8,RS }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x48,0xf8,RS }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNDEC},2, {{0xb0,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNIND},2, {{0xd0,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xc0,0xf0,IMM4 }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x48,0xf8,RS }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x48,0xf8,RS }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {150,'b','E','S','E',O_BSET|O_UNSZ,"bset",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x48,0xf8,RS }}}, {150,'b','E','I','E',O_BSET|O_UNSZ,"bset",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {150,'b','E','I','E',O_BSET|O_UNSZ,"bset",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {150,'b','E','S','E',O_BSET|O_UNSZ,"bset",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x48,0xf8,RS }}}, {150,'b','E','S','E',O_BSET|O_UNSZ,"bset",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x48,0xf8,RS }}}, {150,'b','E','S','E',O_BSET|O_UNSZ,"bset",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x48,0xf8,RS }}}, {150,'b','E','I','E',O_BSET|O_UNSZ,"bset",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {150,'b','E','I','E',O_BSET|O_UNSZ,"bset",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {150,'b','E','S','E',O_BSET|O_UNSZ,"bset",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x48,0xf8,RS }}}, {150,'b','E','I','E',O_BSET|O_UNSZ,"bset",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xc0,0xf0,IMM4 }}}, {150,'b','E','S','E',O_BSET|O_UNSZ,"bset",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x48,0xf8,RS }}}, {150,'b','E','I','E',O_BSET|O_UNSZ,"bset",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xc0,0xf0,IMM4 }}}, {150,'b','E','I','E',O_BSET|O_UNSZ,"bset",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {150,'b','E','S','E',O_BSET|O_UNSZ,"bset",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {150,'b','E','S','E',O_BSET|O_UNSZ,"bset",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {150,'b','E','I','E',O_BSET|O_UNSZ,"bset",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {151,'-','B','!','!',O_BRN|O_WORD,"brn.w",1,{PCREL16,0},3, {{0x31,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {152,'-','B','!','!',O_BRN|O_BYTE,"brn.b",1,{PCREL8,0},2, {{0x21,0xff, },{0x00,0x00,PCREL8 }}}, {153,'-','B','!','!',O_BRN|O_UNSZ,"brn",1,{PCREL8,0},2, {{0x21,0xff, },{0x00,0x00,PCREL8 }}}, {153,'-','B','!','!',O_BRN|O_UNSZ,"brn",1,{PCREL16,0},3, {{0x31,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {154,'-','B','!','!',O_BRA|O_WORD,"bra.w",1,{PCREL16,0},3, {{0x30,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {155,'-','B','!','!',O_BRA|O_BYTE,"bra.b",1,{PCREL8,0},2, {{0x20,0xff, },{0x00,0x00,PCREL8 }}}, {156,'-','B','!','!',O_BRA|O_UNSZ,"bra",1,{PCREL8,0},2, {{0x20,0xff, },{0x00,0x00,PCREL8 }}}, {156,'-','B','!','!',O_BRA|O_UNSZ,"bra",1,{PCREL16,0},3, {{0x30,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {157,'-','!','!','!',O_BPT|O_UNSZ,"bpt",0,{0,0},1, {{0x0b,0xff, }}}, {158,'-','B','!','!',O_BPL|O_WORD,"bpl.w",1,{PCREL16,0},3, {{0x3a,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {159,'-','B','!','!',O_BPL|O_BYTE,"bpl.b",1,{PCREL8,0},2, {{0x2a,0xff, },{0x00,0x00,PCREL8 }}}, {160,'-','B','!','!',O_BPL|O_UNSZ,"bpl",1,{PCREL8,0},2, {{0x2a,0xff, },{0x00,0x00,PCREL8 }}}, {160,'-','B','!','!',O_BPL|O_UNSZ,"bpl",1,{PCREL16,0},3, {{0x3a,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x68,0xf8,RS }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x68,0xf8,RS }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x68,0xf8,RS }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x68,0xf8,RS }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xe0,0xf0,IMM4 }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x68,0xf8,RS }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xe0,0xf0,IMM4 }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x68,0xf8,RS }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RN},2, {{0xa0,0xf8,RN },{0x68,0xf8,RS }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNIND},2, {{0xd0,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RN},2, {{0xa0,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x68,0xf8,RS }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x68,0xf8,RS }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x68,0xf8,RS }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNDEC},2, {{0xb0,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNINC},2, {{0xc0,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xe0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xe0,0xf0,IMM4 }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x68,0xf8,RS }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x68,0xf8,RS }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {163,'b','E','S','E',O_BNOT|O_UNSZ,"bnot",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x68,0xf8,RS }}}, {163,'b','E','S','E',O_BNOT|O_UNSZ,"bnot",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x68,0xf8,RS }}}, {163,'b','E','I','E',O_BNOT|O_UNSZ,"bnot",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {163,'b','E','I','E',O_BNOT|O_UNSZ,"bnot",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {163,'b','E','S','E',O_BNOT|O_UNSZ,"bnot",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x68,0xf8,RS }}}, {163,'b','E','S','E',O_BNOT|O_UNSZ,"bnot",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x68,0xf8,RS }}}, {163,'b','E','I','E',O_BNOT|O_UNSZ,"bnot",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {163,'b','E','I','E',O_BNOT|O_UNSZ,"bnot",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {163,'b','E','S','E',O_BNOT|O_UNSZ,"bnot",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x68,0xf8,RS }}}, {163,'b','E','I','E',O_BNOT|O_UNSZ,"bnot",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xe0,0xf0,IMM4 }}}, {163,'b','E','S','E',O_BNOT|O_UNSZ,"bnot",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x68,0xf8,RS }}}, {163,'b','E','I','E',O_BNOT|O_UNSZ,"bnot",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xe0,0xf0,IMM4 }}}, {163,'b','E','S','E',O_BNOT|O_UNSZ,"bnot",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {163,'b','E','I','E',O_BNOT|O_UNSZ,"bnot",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {163,'b','E','S','E',O_BNOT|O_UNSZ,"bnot",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {163,'b','E','I','E',O_BNOT|O_UNSZ,"bnot",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {164,'-','B','!','!',O_BNE|O_WORD,"bne.w",1,{PCREL16,0},3, {{0x36,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {165,'-','B','!','!',O_BNE|O_BYTE,"bne.b",1,{PCREL8,0},2, {{0x26,0xff, },{0x00,0x00,PCREL8 }}}, {166,'-','B','!','!',O_BNE|O_UNSZ,"bne",1,{PCREL8,0},2, {{0x26,0xff, },{0x00,0x00,PCREL8 }}}, {166,'-','B','!','!',O_BNE|O_UNSZ,"bne",1,{PCREL16,0},3, {{0x36,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {167,'-','B','!','!',O_BMI|O_WORD,"bmi.w",1,{PCREL16,0},3, {{0x3b,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {168,'-','B','!','!',O_BMI|O_BYTE,"bmi.b",1,{PCREL8,0},2, {{0x2b,0xff, },{0x00,0x00,PCREL8 }}}, {169,'-','B','!','!',O_BMI|O_UNSZ,"bmi",1,{PCREL8,0},2, {{0x2b,0xff, },{0x00,0x00,PCREL8 }}}, {169,'-','B','!','!',O_BMI|O_UNSZ,"bmi",1,{PCREL16,0},3, {{0x3b,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {170,'-','B','!','!',O_BLT|O_WORD,"blt.w",1,{PCREL16,0},3, {{0x3d,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {171,'-','B','!','!',O_BLT|O_BYTE,"blt.b",1,{PCREL8,0},2, {{0x2d,0xff, },{0x00,0x00,PCREL8 }}}, {172,'-','B','!','!',O_BLT|O_UNSZ,"blt",1,{PCREL8,0},2, {{0x2d,0xff, },{0x00,0x00,PCREL8 }}}, {172,'-','B','!','!',O_BLT|O_UNSZ,"blt",1,{PCREL16,0},3, {{0x3d,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {173,'-','B','!','!',O_BLS|O_WORD,"bls.w",1,{PCREL16,0},3, {{0x33,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {174,'-','B','!','!',O_BLS|O_BYTE,"bls.b",1,{PCREL8,0},2, {{0x23,0xff, },{0x00,0x00,PCREL8 }}}, {175,'-','B','!','!',O_BLS|O_UNSZ,"bls",1,{PCREL8,0},2, {{0x23,0xff, },{0x00,0x00,PCREL8 }}}, {175,'-','B','!','!',O_BLS|O_UNSZ,"bls",1,{PCREL16,0},3, {{0x33,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {176,'-','B','!','!',O_BLO|O_WORD,"blo.w",1,{PCREL16,0},3, {{0x35,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {177,'-','B','!','!',O_BLO|O_BYTE,"blo.b",1,{PCREL8,0},2, {{0x25,0xff, },{0x00,0x00,PCREL8 }}}, {178,'-','B','!','!',O_BLO|O_UNSZ,"blo",1,{PCREL8,0},2, {{0x25,0xff, },{0x00,0x00,PCREL8 }}}, {178,'-','B','!','!',O_BLO|O_UNSZ,"blo",1,{PCREL16,0},3, {{0x35,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {179,'-','B','!','!',O_BLE|O_WORD,"ble.w",1,{PCREL16,0},3, {{0x3f,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {180,'-','B','!','!',O_BLE|O_BYTE,"ble.b",1,{PCREL8,0},2, {{0x2f,0xff, },{0x00,0x00,PCREL8 }}}, {181,'-','B','!','!',O_BLE|O_UNSZ,"ble",1,{PCREL8,0},2, {{0x2f,0xff, },{0x00,0x00,PCREL8 }}}, {181,'-','B','!','!',O_BLE|O_UNSZ,"ble",1,{PCREL16,0},3, {{0x3f,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {182,'-','B','!','!',O_BHS|O_WORD,"bhs.w",1,{PCREL16,0},3, {{0x34,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {183,'-','B','!','!',O_BHS|O_BYTE,"bhs.b",1,{PCREL8,0},2, {{0x24,0xff, },{0x00,0x00,PCREL8 }}}, {184,'-','B','!','!',O_BHS|O_UNSZ,"bhs",1,{PCREL8,0},2, {{0x24,0xff, },{0x00,0x00,PCREL8 }}}, {184,'-','B','!','!',O_BHS|O_UNSZ,"bhs",1,{PCREL16,0},3, {{0x34,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {185,'-','B','!','!',O_BHI|O_WORD,"bhi.w",1,{PCREL16,0},3, {{0x32,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {186,'-','B','!','!',O_BHI|O_BYTE,"bhi.b",1,{PCREL8,0},2, {{0x22,0xff, },{0x00,0x00,PCREL8 }}}, {187,'-','B','!','!',O_BHI|O_UNSZ,"bhi",1,{PCREL8,0},2, {{0x22,0xff, },{0x00,0x00,PCREL8 }}}, {187,'-','B','!','!',O_BHI|O_UNSZ,"bhi",1,{PCREL16,0},3, {{0x32,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {188,'-','B','!','!',O_BGT|O_WORD,"bgt.w",1,{PCREL16,0},3, {{0x3e,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {189,'-','B','!','!',O_BGT|O_BYTE,"bgt.b",1,{PCREL8,0},2, {{0x2e,0xff, },{0x00,0x00,PCREL8 }}}, {190,'-','B','!','!',O_BGT|O_UNSZ,"bgt",1,{PCREL8,0},2, {{0x2e,0xff, },{0x00,0x00,PCREL8 }}}, {190,'-','B','!','!',O_BGT|O_UNSZ,"bgt",1,{PCREL16,0},3, {{0x3e,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {191,'-','B','!','!',O_BGE|O_WORD,"bge.w",1,{PCREL16,0},3, {{0x3c,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {192,'-','B','!','!',O_BGE|O_BYTE,"bge.b",1,{PCREL8,0},2, {{0x2c,0xff, },{0x00,0x00,PCREL8 }}}, {193,'-','B','!','!',O_BGE|O_UNSZ,"bge",1,{PCREL8,0},2, {{0x2c,0xff, },{0x00,0x00,PCREL8 }}}, {193,'-','B','!','!',O_BGE|O_UNSZ,"bge",1,{PCREL16,0},3, {{0x3c,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {194,'-','B','!','!',O_BF|O_WORD,"bf.w",1,{PCREL16,0},3, {{0x31,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {195,'-','B','!','!',O_BF|O_BYTE,"bf.b",1,{PCREL8,0},2, {{0x21,0xff, },{0x00,0x00,PCREL8 }}}, {196,'-','B','!','!',O_BF|O_UNSZ,"bf",1,{PCREL8,0},2, {{0x21,0xff, },{0x00,0x00,PCREL8 }}}, {196,'-','B','!','!',O_BF|O_UNSZ,"bf",1,{PCREL16,0},3, {{0x31,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {197,'-','B','!','!',O_BEQ|O_WORD,"beq.w",1,{PCREL16,0},3, {{0x37,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {198,'-','B','!','!',O_BEQ|O_BYTE,"beq.b",1,{PCREL8,0},2, {{0x27,0xff, },{0x00,0x00,PCREL8 }}}, {199,'-','B','!','!',O_BEQ|O_UNSZ,"beq",1,{PCREL8,0},2, {{0x27,0xff, },{0x00,0x00,PCREL8 }}}, {199,'-','B','!','!',O_BEQ|O_UNSZ,"beq",1,{PCREL16,0},3, {{0x37,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {200,'-','B','!','!',O_BCS|O_WORD,"bcs.w",1,{PCREL16,0},3, {{0x35,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {201,'-','B','!','!',O_BCS|O_BYTE,"bcs.b",1,{PCREL8,0},2, {{0x25,0xff, },{0x00,0x00,PCREL8 }}}, {202,'-','B','!','!',O_BCS|O_UNSZ,"bcs",1,{PCREL8,0},2, {{0x25,0xff, },{0x00,0x00,PCREL8 }}}, {202,'-','B','!','!',O_BCS|O_UNSZ,"bcs",1,{PCREL16,0},3, {{0x35,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x58,0xf8,RS }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x58,0xf8,RS }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x58,0xf8,RS }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x58,0xf8,RS }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x58,0xf8,RS }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x58,0xf8,RS }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xd0,0xf0,IMM4 }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xd0,0xf0,IMM4 }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RN},2, {{0xa0,0xf8,RN },{0x58,0xf8,RS }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RN},2, {{0xa0,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNIND},2, {{0xd0,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x58,0xf8,RS }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x58,0xf8,RS }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x58,0xf8,RS }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNINC},2, {{0xc0,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNDEC},2, {{0xb0,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x58,0xf8,RS }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xd0,0xf0,IMM4 }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x58,0xf8,RS }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xd0,0xf0,IMM4 }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {205,'b','E','S','E',O_BCLR|O_UNSZ,"bclr",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x58,0xf8,RS }}}, {205,'b','E','I','E',O_BCLR|O_UNSZ,"bclr",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {205,'b','E','I','E',O_BCLR|O_UNSZ,"bclr",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {205,'b','E','S','E',O_BCLR|O_UNSZ,"bclr",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x58,0xf8,RS }}}, {205,'b','E','S','E',O_BCLR|O_UNSZ,"bclr",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x58,0xf8,RS }}}, {205,'b','E','S','E',O_BCLR|O_UNSZ,"bclr",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x58,0xf8,RS }}}, {205,'b','E','I','E',O_BCLR|O_UNSZ,"bclr",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {205,'b','E','I','E',O_BCLR|O_UNSZ,"bclr",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {205,'b','E','S','E',O_BCLR|O_UNSZ,"bclr",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x58,0xf8,RS }}}, {205,'b','E','I','E',O_BCLR|O_UNSZ,"bclr",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xd0,0xf0,IMM4 }}}, {205,'b','E','S','E',O_BCLR|O_UNSZ,"bclr",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x58,0xf8,RS }}}, {205,'b','E','I','E',O_BCLR|O_UNSZ,"bclr",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xd0,0xf0,IMM4 }}}, {205,'b','E','I','E',O_BCLR|O_UNSZ,"bclr",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {205,'b','E','S','E',O_BCLR|O_UNSZ,"bclr",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {205,'b','E','S','E',O_BCLR|O_UNSZ,"bclr",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {205,'b','E','I','E',O_BCLR|O_UNSZ,"bclr",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {206,'-','B','!','!',O_BCC|O_WORD,"bcc.w",1,{PCREL16,0},3, {{0x34,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {207,'-','B','!','!',O_BCC|O_BYTE,"bcc.b",1,{PCREL8,0},2, {{0x24,0xff, },{0x00,0x00,PCREL8 }}}, {208,'-','B','!','!',O_BCC|O_UNSZ,"bcc",1,{PCREL8,0},2, {{0x24,0xff, },{0x00,0x00,PCREL8 }}}, {208,'-','B','!','!',O_BCC|O_UNSZ,"bcc",1,{PCREL16,0},3, {{0x34,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {209,'s','I','S','S',O_ANDC|O_WORD,"andc.w",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x58,0xf8,CRW }}}, {210,'s','I','S','S',O_ANDC|O_BYTE,"andc.b",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x58,0xf8,CRB }}}, {211,'s','I','S','S',O_ANDC|O_UNSZ,"andc",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x58,0xf8,CRB }}}, {211,'s','I','S','S',O_ANDC|O_UNSZ,"andc",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x58,0xf8,CRW }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x50,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x50,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x50,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x50,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x50,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x50,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x50,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x50,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x50,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x50,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x50,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x50,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x50,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {214,'m','E','D','D',O_AND|O_UNSZ,"and",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x50,0xf8,RD }}}, {214,'m','E','D','D',O_AND|O_UNSZ,"and",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x50,0xf8,RD }}}, {214,'m','E','D','D',O_AND|O_UNSZ,"and",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x50,0xf8,RD }}}, {214,'m','E','D','D',O_AND|O_UNSZ,"and",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x50,0xf8,RD }}}, {214,'m','E','D','D',O_AND|O_UNSZ,"and",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x50,0xf8,RD }}}, {214,'m','E','D','D',O_AND|O_UNSZ,"and",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x50,0xf8,RD }}}, {214,'m','E','D','D',O_AND|O_UNSZ,"and",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {214,'m','E','D','D',O_AND|O_UNSZ,"and",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {214,'m','E','D','D',O_AND|O_UNSZ,"and",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xa0,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xa0,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xa0,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xa0,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xa0,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xa0,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0xa0,0xf8,RD }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0xa0,0xf8,RD }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0xa0,0xf8,RD }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0xa0,0xf8,RD }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0xa0,0xf8,RD }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xa0,0xf8,RD }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xa0,0xf8,RD }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {217,'a','E','D','D',O_ADDX|O_UNSZ,"addx",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xa0,0xf8,RD }}}, {217,'a','E','D','D',O_ADDX|O_UNSZ,"addx",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xa0,0xf8,RD }}}, {217,'a','E','D','D',O_ADDX|O_UNSZ,"addx",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xa0,0xf8,RD }}}, {217,'a','E','D','D',O_ADDX|O_UNSZ,"addx",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xa0,0xf8,RD }}}, {217,'a','E','D','D',O_ADDX|O_UNSZ,"addx",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xa0,0xf8,RD }}}, {217,'a','E','D','D',O_ADDX|O_UNSZ,"addx",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xa0,0xf8,RD }}}, {217,'a','E','D','D',O_ADDX|O_UNSZ,"addx",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {217,'a','E','D','D',O_ADDX|O_UNSZ,"addx",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {217,'a','E','D','D',O_ADDX|O_UNSZ,"addx",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x28,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x28,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x28,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x28,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x28,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x28,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x28,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x28,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x28,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x28,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x28,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x28,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x28,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {220,'-','E','D','D',O_ADDS|O_UNSZ,"adds",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x28,0xf8,RD }}}, {220,'-','E','D','D',O_ADDS|O_UNSZ,"adds",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x28,0xf8,RD }}}, {220,'-','E','D','D',O_ADDS|O_UNSZ,"adds",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x28,0xf8,RD }}}, {220,'-','E','D','D',O_ADDS|O_UNSZ,"adds",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x28,0xf8,RD }}}, {220,'-','E','D','D',O_ADDS|O_UNSZ,"adds",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x28,0xf8,RD }}}, {220,'-','E','D','D',O_ADDS|O_UNSZ,"adds",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x28,0xf8,RD }}}, {220,'-','E','D','D',O_ADDS|O_UNSZ,"adds",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {220,'-','E','D','D',O_ADDS|O_UNSZ,"adds",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {220,'-','E','D','D',O_ADDS|O_UNSZ,"adds",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RN},2, {{0xa8,0xf8,RN },{0x08,0xf8,QIM }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNINC},2, {{0xc8,0xf8,RN },{0x08,0xf8,QIM }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNDEC},2, {{0xb8,0xf8,RN },{0x08,0xf8,QIM }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNIND},2, {{0xd8,0xf8,RN },{0x08,0xf8,QIM }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x08,0xf8,QIM }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x08,0xf8,QIM }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RN},2, {{0xa0,0xf8,RN },{0x08,0xf8,QIM }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNINC},2, {{0xc0,0xf8,RN },{0x08,0xf8,QIM }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNDEC},2, {{0xb0,0xf8,RN },{0x08,0xf8,QIM }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNIND},2, {{0xd0,0xf8,RN },{0x08,0xf8,QIM }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x08,0xf8,QIM }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x08,0xf8,QIM }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {223,'a','I','E','E',O_ADD|O_UNSZ,"add:q",2,{QIM,RN},2, {{0xa8,0xf8,RN },{0x08,0xf8,QIM }}}, {223,'a','I','E','E',O_ADD|O_UNSZ,"add:q",2,{QIM,RNDEC},2, {{0xb8,0xf8,RN },{0x08,0xf8,QIM }}}, {223,'a','I','E','E',O_ADD|O_UNSZ,"add:q",2,{QIM,RNINC},2, {{0xc8,0xf8,RN },{0x08,0xf8,QIM }}}, {223,'a','I','E','E',O_ADD|O_UNSZ,"add:q",2,{QIM,RNIND},2, {{0xd8,0xf8,RN },{0x08,0xf8,QIM }}}, {223,'a','I','E','E',O_ADD|O_UNSZ,"add:q",2,{QIM,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x08,0xf8,QIM }}}, {223,'a','I','E','E',O_ADD|O_UNSZ,"add:q",2,{QIM,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x08,0xf8,QIM }}}, {223,'a','I','E','E',O_ADD|O_UNSZ,"add:q",2,{QIM,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {223,'a','I','E','E',O_ADD|O_UNSZ,"add:q",2,{QIM,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x20,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x20,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x20,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x20,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x20,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x20,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x20,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x20,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x20,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x20,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x20,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x20,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x20,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {226,'a','E','D','D',O_ADD|O_UNSZ,"add:g",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x20,0xf8,RD }}}, {226,'a','E','D','D',O_ADD|O_UNSZ,"add:g",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x20,0xf8,RD }}}, {226,'a','E','D','D',O_ADD|O_UNSZ,"add:g",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x20,0xf8,RD }}}, {226,'a','E','D','D',O_ADD|O_UNSZ,"add:g",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x20,0xf8,RD }}}, {226,'a','E','D','D',O_ADD|O_UNSZ,"add:g",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x20,0xf8,RD }}}, {226,'a','E','D','D',O_ADD|O_UNSZ,"add:g",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x20,0xf8,RD }}}, {226,'a','E','D','D',O_ADD|O_UNSZ,"add:g",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {226,'a','E','D','D',O_ADD|O_UNSZ,"add:g",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {226,'a','E','D','D',O_ADD|O_UNSZ,"add:g",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {227,'a','E','D','D',O_ADD|O_WORD,"add.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x20,0xf8,RD }}}, {227,'a','I','E','E',O_ADD|O_WORD,"add.w",2,{QIM,RN},2, {{0xa8,0xf8,RN },{0x08,0xf8,QIM }}}, {227,'a','I','E','E',O_ADD|O_WORD,"add.w",2,{QIM,RNIND},2, {{0xd8,0xf8,RN },{0x08,0xf8,QIM }}}, {227,'a','E','D','D',O_ADD|O_WORD,"add.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x20,0xf8,RD }}}, {227,'a','I','E','E',O_ADD|O_WORD,"add.w",2,{QIM,RNDEC},2, {{0xb8,0xf8,RN },{0x08,0xf8,QIM }}}, {227,'a','I','E','E',O_ADD|O_WORD,"add.w",2,{QIM,RNINC},2, {{0xc8,0xf8,RN },{0x08,0xf8,QIM }}}, {227,'a','E','D','D',O_ADD|O_WORD,"add.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x20,0xf8,RD }}}, {227,'a','E','D','D',O_ADD|O_WORD,"add.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x20,0xf8,RD }}}, {227,'a','I','E','E',O_ADD|O_WORD,"add.w",2,{QIM,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x08,0xf8,QIM }}}, {227,'a','I','E','E',O_ADD|O_WORD,"add.w",2,{QIM,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x08,0xf8,QIM }}}, {227,'a','E','D','D',O_ADD|O_WORD,"add.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x20,0xf8,RD }}}, {227,'a','E','D','D',O_ADD|O_WORD,"add.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x20,0xf8,RD }}}, {227,'a','E','D','D',O_ADD|O_WORD,"add.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {227,'a','I','E','E',O_ADD|O_WORD,"add.w",2,{QIM,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {227,'a','E','D','D',O_ADD|O_WORD,"add.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {227,'a','I','E','E',O_ADD|O_WORD,"add.w",2,{QIM,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {227,'a','E','D','D',O_ADD|O_WORD,"add.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {228,'a','E','D','D',O_ADD|O_BYTE,"add.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x20,0xf8,RD }}}, {228,'a','I','E','E',O_ADD|O_BYTE,"add.b",2,{QIM,RN},2, {{0xa0,0xf8,RN },{0x08,0xf8,QIM }}}, {228,'a','I','E','E',O_ADD|O_BYTE,"add.b",2,{QIM,RNINC},2, {{0xc0,0xf8,RN },{0x08,0xf8,QIM }}}, {228,'a','E','D','D',O_ADD|O_BYTE,"add.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x20,0xf8,RD }}}, {228,'a','I','E','E',O_ADD|O_BYTE,"add.b",2,{QIM,RNIND},2, {{0xd0,0xf8,RN },{0x08,0xf8,QIM }}}, {228,'a','E','D','D',O_ADD|O_BYTE,"add.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x20,0xf8,RD }}}, {228,'a','I','E','E',O_ADD|O_BYTE,"add.b",2,{QIM,RNDEC},2, {{0xb0,0xf8,RN },{0x08,0xf8,QIM }}}, {228,'a','E','D','D',O_ADD|O_BYTE,"add.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x20,0xf8,RD }}}, {228,'a','I','E','E',O_ADD|O_BYTE,"add.b",2,{QIM,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x08,0xf8,QIM }}}, {228,'a','E','D','D',O_ADD|O_BYTE,"add.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x20,0xf8,RD }}}, {228,'a','I','E','E',O_ADD|O_BYTE,"add.b",2,{QIM,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x08,0xf8,QIM }}}, {228,'a','E','D','D',O_ADD|O_BYTE,"add.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x20,0xf8,RD }}}, {228,'a','E','D','D',O_ADD|O_BYTE,"add.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x20,0xf8,RD }}}, {228,'a','I','E','E',O_ADD|O_BYTE,"add.b",2,{QIM,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {228,'a','I','E','E',O_ADD|O_BYTE,"add.b",2,{QIM,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {228,'a','E','D','D',O_ADD|O_BYTE,"add.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {228,'a','E','D','D',O_ADD|O_BYTE,"add.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {229,'a','E','D','D',O_ADD|O_UNSZ,"add",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x20,0xf8,RD }}}, {229,'a','I','E','E',O_ADD|O_UNSZ,"add",2,{QIM,RN},2, {{0xa8,0xf8,RN },{0x08,0xf8,QIM }}}, {229,'a','I','E','E',O_ADD|O_UNSZ,"add",2,{QIM,RNDEC},2, {{0xb8,0xf8,RN },{0x08,0xf8,QIM }}}, {229,'a','E','D','D',O_ADD|O_UNSZ,"add",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x20,0xf8,RD }}}, {229,'a','I','E','E',O_ADD|O_UNSZ,"add",2,{QIM,RNIND},2, {{0xd8,0xf8,RN },{0x08,0xf8,QIM }}}, {229,'a','I','E','E',O_ADD|O_UNSZ,"add",2,{QIM,RNINC},2, {{0xc8,0xf8,RN },{0x08,0xf8,QIM }}}, {229,'a','E','D','D',O_ADD|O_UNSZ,"add",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x20,0xf8,RD }}}, {229,'a','E','D','D',O_ADD|O_UNSZ,"add",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x20,0xf8,RD }}}, {229,'a','I','E','E',O_ADD|O_UNSZ,"add",2,{QIM,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x08,0xf8,QIM }}}, {229,'a','I','E','E',O_ADD|O_UNSZ,"add",2,{QIM,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x08,0xf8,QIM }}}, {229,'a','E','D','D',O_ADD|O_UNSZ,"add",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x20,0xf8,RD }}}, {229,'a','E','D','D',O_ADD|O_UNSZ,"add",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x20,0xf8,RD }}}, {229,'a','E','D','D',O_ADD|O_UNSZ,"add",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {229,'a','I','E','E',O_ADD|O_UNSZ,"add",2,{QIM,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {229,'a','E','D','D',O_ADD|O_UNSZ,"add",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {229,'a','I','E','E',O_ADD|O_UNSZ,"add",2,{QIM,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {229,'a','E','D','D',O_ADD|O_UNSZ,"add",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x20,0xf8,RD }}}, 0,0,0} #endif ; #endif #ifdef DISASSEMBLER_TABLE #ifdef DEFINE_TABLE ={ {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x60,0xf8,RD }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RN},2, {{0xa0,0xf8,RN },{0x98,0xf8,CRB }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x60,0xf8,RD }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNDEC},2, {{0xb0,0xf8,RN },{0x98,0xf8,CRB }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x60,0xf8,RD }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNINC},2, {{0xc0,0xf8,RN },{0x98,0xf8,CRB }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x60,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x60,0xf8,RD }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNIND},2, {{0xd0,0xf8,RN },{0x98,0xf8,CRB }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x60,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x30,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x60,0xf8,RD }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x98,0xf8,CRB }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x60,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x98,0xf8,CRB }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x30,0xf8,RD }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x16,0xff, }}}, {6,'-','X','!','!',O_XCH|O_WORD,"xch.w",2,{RS,RD},2, {{0xa8,0xf8,RS },{0x90,0xf8,RD }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x16,0xff, }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x30,0xf8,RD }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x16,0xff, }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x30,0xf8,RD }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x16,0xff, }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x30,0xf8,RD }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x16,0xff, }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x16,0xff, }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x30,0xf8,RD }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x16,0xff, }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x30,0xf8,RD }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x16,0xff, }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x30,0xf8,RD }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x16,0xff, }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x16,0xff, }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {16,'m','D','!','D',O_SWAP|O_WORD,"swap.b",1,{RD,0},2, {{0xa0,0xf8,RD },{0x10,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x17,0xff, }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x30,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xb0,0xf8,RD }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x17,0xff, }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xb0,0xf8,RD }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x17,0xff, }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x30,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x38,0xf8,RD }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x17,0xff, }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xb0,0xf8,RD }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x17,0xff, }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x17,0xff, }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x38,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0xb0,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x38,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0xb0,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x38,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x38,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0xb0,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x38,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0xb0,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xb0,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x38,0xf8,RD }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x38,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xb0,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x16,0xff, }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x30,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x38,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x60,0xf8,RD }}}, {2,'s','E','C','C',O_XORC|O_BYTE,"xorc.b",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x68,0xf8,CRB }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0xb0,0xf8,RD }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x16,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x17,0xff, }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x30,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x38,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x60,0xf8,RD }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x98,0xf8,CRB }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xb0,0xf8,RD }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x16,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x17,0xff, }}}, {12,'-','I','!','!',O_TRAPA|O_UNSZ,"trapa",1,{IMM4,0},2, {{0x08,0xff, },{0x10,0xf0,IMM4 }}}, {13,'-','B','!','!',O_TRAP_VS|O_UNSZ,"trap/vs",0,{0,0},1, {{0x09,0xff, }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {1,'s','E','C','C',O_XORC|O_WORD,"xorc.w",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x68,0xf8,CRW }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x16,0xff, }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x30,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x38,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x60,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xb0,0xf8,RD }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x16,0xff, }}}, {8,'-','B','!','!',O_UNLK|O_UNSZ,"unlk",1,{FP,0},1, {{0x0f,0xff, }}}, {25,'a','E','D','D',O_SUB|O_BYTE,"sub.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {22,'-','E','D','D',O_SUBS|O_BYTE,"subs.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {4,'m','E','D','D',O_XOR|O_BYTE,"xor.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {29,'s','C','!','E',O_STC|O_BYTE,"stc.b",2,{CRB,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x98,0xf8,CRB }}}, {27,'-','I','!','E',O_STM|O_UNSZ,"stm",2,{RLIST,SPDEC},2, {{0x12,0xff, },{0x00,0x00,RLIST }}}, {19,'a','E','D','D',O_SUBX|O_BYTE,"subx.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {10,'a','E','!','!',O_TST|O_BYTE,"tst.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x16,0xff, }}}, {14,'s','E','!','E',O_TAS|O_BYTE,"tas.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x17,0xff, }}}, {24,'a','E','D','D',O_SUB|O_WORD,"sub.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x30,0xf8,RD }}}, {21,'-','E','D','D',O_SUBS|O_WORD,"subs.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x38,0xf8,RD }}}, {3,'m','E','D','D',O_XOR|O_WORD,"xor.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x60,0xf8,RD }}}, {18,'a','E','D','D',O_SUBX|O_WORD,"subx.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb0,0xf8,RD }}}, {9,'a','E','!','!',O_TST|O_WORD,"tst.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x16,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x19,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1b,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x19,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1b,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x19,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1b,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1a,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1b,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x19,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1a,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1b,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x19,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1a,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1b,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1a,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1b,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1a,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1b,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1a,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1b,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1a,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1b,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1a,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1a,0xff, }}}, {36,'h','E','!','E',O_SHLL|O_BYTE,"shll.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1a,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1b,0xff, }}}, {35,'h','E','!','E',O_SHLL|O_WORD,"shll.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1a,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1b,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x19,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1b,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x19,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x19,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1b,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x19,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x19,0xff, }}}, {33,'h','E','!','E',O_SHLR|O_BYTE,"shlr.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1b,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x19,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1b,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x19,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1b,0xff, }}}, {39,'h','E','!','E',O_SHAR|O_BYTE,"shar.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x19,0xff, }}}, {31,'-','!','!','!',O_SLEEP|O_UNSZ,"sleep",0,{0,0},1, {{0x1a,0xff, }}}, {38,'h','E','!','E',O_SHAR|O_WORD,"shar.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x19,0xff, }}}, {32,'h','E','!','E',O_SHLR|O_WORD,"shlr.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1b,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x18,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1e,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x18,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x18,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x18,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1e,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x18,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1e,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x18,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1e,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x18,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1e,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x18,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1f,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1e,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1f,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1e,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1f,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1e,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1f,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1e,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1f,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1e,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1f,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1e,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1f,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1e,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1f,0xff, }}}, {45,'-','B','S','S',O_SCB_F|O_UNSZ,"scb/f",2,{RS,PCREL8},3, {{0x01,0xff, },{0xb8,0xf8,RS },{0x00,0x00,PCREL8 }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1e,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1f,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1f,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1f,0xff, }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x18,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1e,0xff, }}}, {44,'-','B','S','S',O_SCB_NE|O_UNSZ,"scb/ne",2,{RS,PCREL8},3, {{0x06,0xff, },{0xb8,0xf8,RS },{0x00,0x00,PCREL8 }}}, {46,'-','B','S','S',O_SCB_EQ|O_UNSZ,"scb/eq",2,{RS,PCREL8},3, {{0x07,0xff, },{0xb8,0xf8,RS },{0x00,0x00,PCREL8 }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x18,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1e,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x18,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1e,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1f,0xff, }}}, {48,'-','B','!','!',O_RTD|O_UNSZ,"rtd",1,{IMM16,0},3, {{0x14,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {48,'-','B','!','!',O_RTD|O_UNSZ,"rtd",1,{IMM8,0},2, {{0x14,0xff, },{0x00,0x00,IMM8 }}}, {42,'h','E','!','E',O_SHAL|O_BYTE,"shal.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x18,0xff, }}}, {53,'h','E','!','E',O_ROTXL|O_BYTE,"rotxl.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1e,0xff, }}}, {50,'h','E','!','E',O_ROTXR|O_BYTE,"rotxr.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1f,0xff, }}}, {47,'-','B','!','!',O_RTS|O_UNSZ,"rts",0,{0,0},1, {{0x19,0xff, }}}, {41,'h','E','!','E',O_SHAL|O_WORD,"shal.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x18,0xff, }}}, {52,'h','E','!','E',O_ROTXL|O_WORD,"rotxl.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1e,0xff, }}}, {49,'h','E','!','E',O_ROTXR|O_WORD,"rotxr.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1f,0xff, }}}, {99,'m','I','!','D',O_MOV|O_BYTE,"mov:e.b",2,{IMM8,RD},2, {{0x50,0xf8,RD },{0x00,0x00,IMM8 }}}, {97,'m','E','!','D',O_MOV|O_BYTE,"mov:f.b",2,{FPIND_D8,RD},2, {{0x80,0xf8,RD },{0x00,0x00,FPIND_D8 }}}, {96,'m','E','!','D',O_MOV|O_WORD,"mov:f.w",2,{FPIND_D8,RD},2, {{0x88,0xf8,RD },{0x00,0x00,FPIND_D8 }}}, {97,'m','S','!','E',O_MOV|O_BYTE,"mov:f.b",2,{RS,FPIND_D8},2, {{0x90,0xf8,RS },{0x00,0x00,FPIND_D8 }}}, {96,'m','S','!','E',O_MOV|O_WORD,"mov:f.w",2,{RS,FPIND_D8},2, {{0x98,0xf8,RS },{0x00,0x00,FPIND_D8 }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x80,0xf8,RD }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1d,0xff, }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x90,0xf8,RS }}}, {91,'m','I','!','D',O_MOV|O_WORD,"mov:i.w",2,{IMM16,RD},3, {{0x58,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {89,'m','E','!','D',O_MOV|O_BYTE,"mov:l.b",2,{ABS8,RD},2, {{0x60,0xf8,RD },{0x00,0x00,ABS8 }}}, {88,'m','E','!','D',O_MOV|O_WORD,"mov:l.w",2,{ABS8,RD},2, {{0x68,0xf8,RD },{0x00,0x00,ABS8 }}}, {86,'m','S','!','E',O_MOV|O_BYTE,"mov:s.b",2,{RS,ABS8},2, {{0x70,0xf8,RS },{0x00,0x00,ABS8 }}}, {85,'m','S','!','E',O_MOV|O_WORD,"mov:s.w",2,{RS,ABS8},2, {{0x78,0xf8,RS },{0x00,0x00,ABS8 }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RN,RD},3, {{0xa0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1d,0xff, }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x80,0xf8,RD }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNDEC,RD},3, {{0xb0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0xa8,0xf8,RD }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RN},3, {{0xa0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x1c,0xff, }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x40,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0xa8,0xf8,RD }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x14,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x15,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x1c,0xff, }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x40,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xa8,0xf8,RD }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x14,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x15,0xff, }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x40,0xf8,RD }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNDEC},3, {{0xb0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1c,0xff, }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x14,0xff, }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x40,0xf8,RD }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1c,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x14,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x15,0xff, }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x40,0xf8,RD }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x15,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1d,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x14,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x15,0xff, }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x40,0xf8,RD }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x14,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x15,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1d,0xff, }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x40,0xf8,RD }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x14,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x15,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1c,0xff, }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x40,0xf8,RD }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x14,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x15,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1d,0xff, }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x40,0xf8,RD }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x14,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x15,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1c,0xff, }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x40,0xf8,RD }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x14,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x15,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1d,0xff, }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x14,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x15,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1c,0xff, }}}, {63,'-','J','!','!',O_PJSR|O_UNSZ,"pjsr",1,{ABS24,0},4, {{0x03,0xff, },{0x00,0x00,ABS24 },{0x00,0x00, },{0x00,0x00, }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x40,0xf8,RD }}}, {66,'s','I','C','C',O_ORC|O_BYTE,"orc.b",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x48,0xf8,CRB }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x14,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1c,0xff, }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x40,0xf8,RD }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x14,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x15,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1c,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x15,0xff, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x14,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x15,0xff, }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNIND_D16},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {74,'-','!','!','!',O_NOP|O_UNSZ,"nop",0,{0,0},1, {{0x00,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1c,0xff, }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {65,'s','I','C','C',O_ORC|O_WORD,"orc.w",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x48,0xf8,CRW }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x14,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x15,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1c,0xff, }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x40,0xf8,RD }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x14,0xff, }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x15,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1d,0xff, }}}, {64,'-','J','!','!',O_PJMP|O_UNSZ,"pjmp",1,{RDIND,0},2, {{0x11,0xff, },{0xc0,0xf8,RDIND }}}, {63,'-','J','!','!',O_PJSR|O_UNSZ,"pjsr",1,{RDIND,0},2, {{0x11,0xff, },{0xc8,0xf8,RDIND }}}, {62,'-','B','!','!',O_PRTD|O_UNSZ,"prtd",1,{IMM8,0},3, {{0x11,0xff, },{0x14,0xff, },{0x00,0x00,IMM8 }}}, {61,'-','B','!','!',O_PRTS|O_UNSZ,"prts",0,{0,0},2, {{0x11,0xff, },{0x19,0xff, }}}, {62,'-','B','!','!',O_PRTD|O_UNSZ,"prtd",1,{IMM16,0},4, {{0x11,0xff, },{0x1c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {64,'-','J','!','!',O_PJMP|O_UNSZ,"pjmp",1,{ABS24,0},4, {{0x13,0xff, },{0x00,0x00,ABS24 },{0x00,0x00, },{0x00,0x00, }}}, {69,'m','E','D','D',O_OR|O_BYTE,"or.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xa8,0xf8,RD }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x1c,0xff, }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xa8,0xf8,RD }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x1c,0xff, }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0xa8,0xf8,RD }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xa8,0xf8,RD }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x1c,0xff, }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {79,'p','E','D','D',O_MULXU|O_BYTE,"mulxu.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNINC},3, {{0xc0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x1c,0xff, }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNIND},3, {{0xd0,0xf8,RN },{0x00,0xff, },{0x90,0xf8,RS }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x1c,0xff, }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNIND_D8},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x00,0xff, },{0x90,0xf8,RS }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,RNIND_D16},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x00,0xff, },{0x90,0xf8,RS }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,ABS8},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x00,0xff, },{0x90,0xf8,RS }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNIND,RD},3, {{0xd0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNINC,RD},3, {{0xc0,0xf8,RN },{0x00,0xff, },{0x80,0xf8,RD }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1d,0xff, }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNIND_D8,RD},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x00,0xff, },{0x80,0xf8,RD }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNIND_D8},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{RNIND_D16,RD},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{IMM8,RD},4, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x00,0xff, },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{ABS8,RD},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x00,0xff, },{0x80,0xf8,RD }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x1d,0xff, }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x80,0xf8,RD }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x80,0xf8,RD }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x1d,0xff, }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x90,0xf8,RS }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x90,0xf8,RS }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x80,0xf8,RD }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x90,0xf8,RS }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x80,0xf8,RD }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x90,0xf8,RS }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x1d,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x1d,0xff, }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x90,0xf8,RS }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNDEC},3, {{0xb0,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM8,RNDEC},4, {{0xb8,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 },{0x00,0x00, }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x80,0xf8,RD }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x90,0xf8,RS }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNINC},3, {{0xc0,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM8,RNINC},4, {{0xc8,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 },{0x00,0x00, }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x80,0xf8,RD }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x90,0xf8,RS }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RNIND},3, {{0xd0,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM8,RNIND},4, {{0xd8,0xf8,RN },{0x06,0xff, },{0x00,0x00,IMM8 },{0x00,0x00, }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x80,0xf8,RD }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x90,0xf8,RS }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNIND_D8},5, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM8,RNIND_D8},5, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x06,0xff, },{0x00,0x00,IMM8 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RNIND_D16},6, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM8,RNIND_D16},6, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 },{0x00,0x00, }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x1d,0xff, }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x80,0xf8,RD }}}, {94,'m','E','!','D',O_MOV|O_BYTE,"mov:g.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x80,0xf8,RD }}}, {94,'m','S','!','E',O_MOV|O_BYTE,"mov:g.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x90,0xf8,RS }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,ABS8},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM8,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x06,0xff, },{0x00,0x00,IMM8 },{0x00,0x00, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x1d,0xff, }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x80,0xf8,RD }}}, {83,'-','E','!','D',O_MOVFPE|O_BYTE,"movfpe.b",2,{ABS16,RD},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x00,0xff, },{0x80,0xf8,RD }}}, {81,'-','S','!','E',O_MOVTPE|O_BYTE,"movtpe.b",2,{RS,ABS16},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x00,0xff, },{0x90,0xf8,RS }}}, {94,'m','I','!','E',O_MOV|O_BYTE,"mov:g.b",2,{IMM8,ABS16},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x07,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {93,'m','I','!','E',O_MOV|O_WORD,"mov:g.w",2,{IMM8,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x06,0xff, },{0x00,0x00,IMM8 },{0x00,0x00, }}}, {76,'a','E','!','E',O_NEG|O_BYTE,"neg.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x14,0xff, }}}, {56,'h','E','!','E',O_ROTR|O_BYTE,"rotr.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1d,0xff, }}}, {93,'m','E','!','D',O_MOV|O_WORD,"mov:g.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x80,0xf8,RD }}}, {93,'m','S','!','E',O_MOV|O_WORD,"mov:g.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x90,0xf8,RS }}}, {78,'p','E','D','D',O_MULXU|O_WORD,"mulxu.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa8,0xf8,RD }}}, {75,'a','E','!','E',O_NEG|O_WORD,"neg.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x14,0xff, }}}, {55,'h','E','!','E',O_ROTR|O_WORD,"rotr.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1d,0xff, }}}, {72,'m','E','!','E',O_NOT|O_BYTE,"not.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x15,0xff, }}}, {68,'m','E','D','D',O_OR|O_WORD,"or.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x40,0xf8,RD }}}, {71,'m','E','!','E',O_NOT|O_WORD,"not.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x15,0xff, }}}, {58,'h','E','!','E',O_ROTL|O_WORD,"rotl.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1c,0xff, }}}, {59,'h','E','!','E',O_ROTL|O_BYTE,"rotl.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x1c,0xff, }}}, {125,'a','D','I','!',O_CMP|O_BYTE,"cmp:e.b",2,{IMM8,RD},2, {{0x40,0xf8,RD },{0x00,0x00,IMM8 }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RN},3, {{0xa0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x70,0xf8,RD }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RN},4, {{0xa8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RN,CRB},2, {{0xa0,0xf8,RN },{0x88,0xf8,CRB }}}, {120,'a','D','I','!',O_CMP|O_WORD,"cmp:i.w",2,{IMM16,RD},3, {{0x48,0xf8,RD },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0xb8,0xf8,RD }}}, {119,'s','D','!','!',O_DADD|O_UNSZ,"dadd",2,{RS,RD},3, {{0xa0,0xf8,RS },{0x00,0xff, },{0xa0,0xf8,RD }}}, {115,'s','D','!','!',O_DSUB|O_UNSZ,"dsub",2,{RS,RD},3, {{0xa0,0xf8,RS },{0x00,0xff, },{0xb0,0xf8,RD }}}, {113,'s','D','!','D',O_EXTS|O_BYTE,"exts.b",1,{RD,0},2, {{0xa0,0xf8,RD },{0x11,0xff, }}}, {111,'s','D','!','D',O_EXTU|O_BYTE,"extu.b",1,{RD,0},2, {{0xa0,0xf8,RD },{0x12,0xff, }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xb8,0xf8,RD }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNIND_D8,CRB},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x88,0xf8,CRB }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNIND_D16,CRB},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x88,0xf8,CRB }}}, {110,'-','B','!','!',O_JMP|O_UNSZ,"jmp",1,{ABS16,0},3, {{0x10,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, }}}, {110,'-','B','!','!',O_JMP|O_UNSZ,"jmp",1,{RDIND,0},2, {{0x11,0xff, },{0xd0,0xf8,RD }}}, {109,'-','B','!','!',O_JSR|O_UNSZ,"jsr",1,{RDIND,0},2, {{0x11,0xff, },{0xd8,0xf8,RD }}}, {110,'-','B','!','!',O_JMP|O_UNSZ,"jmp",1,{RDIND_D8,0},3, {{0x11,0xff, },{0xe0,0xf8,RDIND_D8 },{0x00,0x00, }}}, {109,'-','B','!','!',O_JSR|O_UNSZ,"jsr",1,{RDIND_D8,0},3, {{0x11,0xff, },{0xe8,0xf8,RDIND_D8 },{0x00,0x00, }}}, {110,'-','B','!','!',O_JMP|O_UNSZ,"jmp",1,{RDIND_D16,0},4, {{0x11,0xff, },{0xf0,0xf8,RDIND_D16 },{0x00,0x00, },{0x00,0x00, }}}, {109,'-','B','!','!',O_JSR|O_UNSZ,"jsr",1,{RDIND_D16,0},4, {{0x11,0xff, },{0xf8,0xf8,RDIND_D16 },{0x00,0x00, },{0x00,0x00, }}}, {109,'-','B','!','!',O_JSR|O_UNSZ,"jsr",1,{ABS16,0},3, {{0x18,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{ABS16,CRB},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x88,0xf8,CRB }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xb8,0xf8,RD }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNINC,CRB},2, {{0xc0,0xf8,RN },{0x88,0xf8,CRB }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xb8,0xf8,RD }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNIND,CRB},2, {{0xd0,0xf8,RN },{0x88,0xf8,CRB }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x88,0xf8,CRB }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {117,'s','E','D','D',O_DIVXU|O_BYTE,"divxu.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xb8,0xf8,RD }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{ABS8,CRB},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x88,0xf8,CRB }}}, {116,'s','E','D','D',O_DIVXU|O_WORD,"divxu.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xb8,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x70,0xf8,RD }}}, {107,'s','E','!','C',O_LDC|O_BYTE,"ldc.b",2,{RNDEC,CRB},2, {{0xb0,0xf8,RN },{0x88,0xf8,CRB }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNDEC},3, {{0xb0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNDEC},4, {{0xb8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNINC},3, {{0xc0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNINC},4, {{0xc8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNIND},3, {{0xd0,0xf8,RN },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNIND},4, {{0xd8,0xf8,RN },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNIND_D8},4, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNIND_D8},5, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RNIND_D16},5, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RNIND_D16},6, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {105,'-','E','!','C',O_LDM|O_UNSZ,"ldm",2,{SPINC,RLIST},2, {{0x02,0xff, },{0x00,0x00,RLIST }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,ABS8},4, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,ABS8},5, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {106,'s','E','!','C',O_LDC|O_WORD,"ldc.w",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x88,0xf8,CRW }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x70,0xf8,RD }}}, {123,'a','D','E','!',O_CMP|O_BYTE,"cmp:g.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {123,'a','E','I','!',O_CMP|O_BYTE,"cmp:g.b",2,{IMM8,ABS16},5, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x04,0xff, },{0x00,0x00,IMM8 }}}, {122,'a','E','I','!',O_CMP|O_WORD,"cmp:g.w",2,{IMM16,ABS16},6, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x05,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {122,'a','D','E','!',O_CMP|O_WORD,"cmp:g.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x70,0xf8,RD }}}, {104,'-','S','I','!',O_LINK|O_UNSZ,"link",2,{FP,IMM16},3, {{0x1f,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, }}}, {104,'-','S','I','!',O_LINK|O_UNSZ,"link",2,{FP,IMM8},2, {{0x17,0xff, },{0x00,0x00,IMM8 }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RN},2, {{0xa0,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RN},2, {{0xa0,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RN},2, {{0xa0,0xf8,RN },{0x48,0xf8,RS }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RN},2, {{0xa0,0xf8,RN },{0x78,0xf8,RS }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RN,0},2, {{0xa0,0xf8,RN },{0x13,0xff, }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNDEC,0},2, {{0xb0,0xf8,RN },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNINC,0},2, {{0xc0,0xf8,RN },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNIND,0},2, {{0xd0,0xf8,RN },{0x13,0xff, }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x78,0xf8,RS }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNIND_D8,0},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x13,0xff, }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{RNIND_D16,0},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x13,0xff, }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNIND_D16,0},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{IMM8,0},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x13,0xff, }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{ABS8,0},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x13,0xff, }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x78,0xf8,RS }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x78,0xf8,RS }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNDEC},2, {{0xb0,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x78,0xf8,RS }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x78,0xf8,RS }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNDEC,0},2, {{0xb8,0xf8,RN },{0x13,0xff, }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNINC},2, {{0xc0,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x78,0xf8,RS }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x78,0xf8,RS }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNIND},2, {{0xd0,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x78,0xf8,RS }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xf0,0xf0,IMM4 }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x78,0xf8,RS }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x78,0xf8,RS }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNIND_D8,0},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x13,0xff, }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{IMM16,0},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x13,0xff, }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x78,0xf8,RS }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{ABS8,0},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x13,0xff, }}}, {140,'b','E','I','E',O_BTST|O_BYTE,"btst.b",2,{IMM4,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {140,'b','E','S','E',O_BTST|O_BYTE,"btst.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {131,'c','!','!','E',O_CLR|O_BYTE,"clr.b",1,{ABS16,0},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x13,0xff, }}}, {139,'b','E','I','E',O_BTST|O_WORD,"btst.w",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xf0,0xf0,IMM4 }}}, {139,'b','E','S','E',O_BTST|O_WORD,"btst.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x78,0xf8,RS }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{ABS16,0},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x13,0xff, }}}, {137,'-','B','!','!',O_BVC|O_BYTE,"bvc.b",1,{PCREL8,0},2, {{0x28,0xff, },{0x00,0x00,PCREL8 }}}, {134,'-','B','!','!',O_BVS|O_BYTE,"bvs.b",1,{PCREL8,0},2, {{0x29,0xff, },{0x00,0x00,PCREL8 }}}, {136,'-','B','!','!',O_BVC|O_WORD,"bvc.w",1,{PCREL16,0},3, {{0x38,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {133,'-','B','!','!',O_BVS|O_WORD,"bvs.w",1,{PCREL16,0},3, {{0x39,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNDEC},2, {{0xb0,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x48,0xf8,RS }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x48,0xf8,RS }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RN,0},2, {{0xa8,0xf8,RN },{0x13,0xff, }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x48,0xf8,RS }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNINC},2, {{0xc0,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x48,0xf8,RS }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNINC,0},2, {{0xc8,0xf8,RN },{0x13,0xff, }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNIND},2, {{0xd0,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x48,0xf8,RS }}}, {130,'c','!','!','E',O_CLR|O_WORD,"clr.w",1,{RNIND,0},2, {{0xd8,0xf8,RN },{0x13,0xff, }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x48,0xf8,RS }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x48,0xf8,RS }}}, {146,'-','B','!','!',O_BSR|O_BYTE,"bsr.b",1,{PCREL8,0},2, {{0x0e,0xff, },{0x00,0x00,PCREL8 }}}, {149,'b','E','I','E',O_BSET|O_BYTE,"bset.b",2,{IMM4,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {149,'b','E','S','E',O_BSET|O_BYTE,"bset.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {148,'b','E','I','E',O_BSET|O_WORD,"bset.w",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xc0,0xf0,IMM4 }}}, {148,'b','E','S','E',O_BSET|O_WORD,"bset.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x48,0xf8,RS }}}, {145,'-','B','!','!',O_BSR|O_WORD,"bsr.w",1,{PCREL16,0},3, {{0x1e,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RN},2, {{0xa0,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RN},2, {{0xa0,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RN},2, {{0xa0,0xf8,RN },{0x08,0xf8,QIM }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x28,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x20,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0x50,0xf8,RD }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RN},2, {{0xa0,0xf8,RN },{0x58,0xf8,RS }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RN},2, {{0xa0,0xf8,RN },{0x68,0xf8,RS }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RN,RD},2, {{0xa0,0xf8,RN },{0xa0,0xf8,RD }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RN},2, {{0xa8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RN},2, {{0xa8,0xf8,RN },{0x08,0xf8,QIM }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x20,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x28,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0x50,0xf8,RD }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x58,0xf8,RS }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RN},2, {{0xa8,0xf8,RN },{0x68,0xf8,RS }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RN,RD},2, {{0xa8,0xf8,RN },{0xa0,0xf8,RD }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNDEC},2, {{0xb0,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNDEC},2, {{0xb0,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNDEC},2, {{0xb0,0xf8,RN },{0x08,0xf8,QIM }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x20,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x28,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0x50,0xf8,RD }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x58,0xf8,RS }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNDEC},2, {{0xb0,0xf8,RN },{0x68,0xf8,RS }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNDEC,RD},2, {{0xb0,0xf8,RN },{0xa0,0xf8,RD }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNDEC},2, {{0xb8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNDEC},2, {{0xb8,0xf8,RN },{0x08,0xf8,QIM }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x20,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x28,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0x50,0xf8,RD }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x58,0xf8,RS }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNDEC},2, {{0xb8,0xf8,RN },{0x68,0xf8,RS }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNDEC,RD},2, {{0xb8,0xf8,RN },{0xa0,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x20,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x50,0xf8,RD }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNINC},2, {{0xc0,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNINC},2, {{0xc0,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0x28,0xf8,RD }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x58,0xf8,RS }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNINC},2, {{0xc0,0xf8,RN },{0x08,0xf8,QIM }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNINC},2, {{0xc0,0xf8,RN },{0x68,0xf8,RS }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNINC,RD},2, {{0xc0,0xf8,RN },{0xa0,0xf8,RD }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNINC},2, {{0xc8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0xa0,0xf8,RD }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x68,0xf8,RS }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNIND},2, {{0xd0,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNIND},2, {{0xd0,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x20,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x28,0xf8,RD }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNINC},2, {{0xc8,0xf8,RN },{0x58,0xf8,RS }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNINC,RD},2, {{0xc8,0xf8,RN },{0x50,0xf8,RD }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNINC},2, {{0xc8,0xf8,RN },{0x08,0xf8,QIM }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNIND},2, {{0xd0,0xf8,RN },{0x08,0xf8,QIM }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x20,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x28,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0x50,0xf8,RD }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x58,0xf8,RS }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNIND},2, {{0xd0,0xf8,RN },{0x68,0xf8,RS }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNIND,RD},2, {{0xd0,0xf8,RN },{0xa0,0xf8,RD }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xd0,0xf0,IMM4 }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNIND},2, {{0xd8,0xf8,RN },{0xe0,0xf0,IMM4 }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNIND},2, {{0xd8,0xf8,RN },{0x08,0xf8,QIM }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x20,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x28,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0x50,0xf8,RD }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x58,0xf8,RS }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNIND},2, {{0xd8,0xf8,RN },{0x68,0xf8,RS }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNIND,RD},2, {{0xd8,0xf8,RN },{0xa0,0xf8,RD }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xd0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xe0,0xf0,IMM4 }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x08,0xf8,QIM }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x20,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x28,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x50,0xf8,RD }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x58,0xf8,RS }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNIND_D8},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0x68,0xf8,RS }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNIND_D8,RD},3, {{0xe0,0xf8,RN },{0x00,0x00,DISP8 },{0xa0,0xf8,RD }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xd0,0xf0,IMM4 }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xe0,0xf0,IMM4 }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x08,0xf8,QIM }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x20,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x28,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x50,0xf8,RD }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x58,0xf8,RS }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNIND_D8},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0x68,0xf8,RS }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNIND_D8,RD},3, {{0xe8,0xf8,RN },{0x00,0x00,DISP8 },{0xa0,0xf8,RD }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{RNIND_D16,RD},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,RNIND_D16},4, {{0xf0,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,RNIND_D16},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{RNIND_D16,RD},4, {{0xf8,0xf8,RN },{0x00,0x00,DISP16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x20,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x28,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x50,0xf8,RD }}}, {210,'s','I','S','S',O_ANDC|O_BYTE,"andc.b",2,{IMM8,CRB},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0x58,0xf8,CRB }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{IMM8,RD},3, {{0x04,0xff, },{0x00,0x00,IMM8 },{0xa0,0xf8,RD }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xd0,0xf0,IMM4 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xe0,0xf0,IMM4 }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x08,0xf8,QIM }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x20,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x28,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x50,0xf8,RD }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x58,0xf8,RS }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,ABS8},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0x68,0xf8,RS }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{ABS8,RD},3, {{0x05,0xff, },{0x00,0x00,ABS8 },{0xa0,0xf8,RD }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {209,'s','I','S','S',O_ANDC|O_WORD,"andc.w",2,{IMM16,CRW},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0x58,0xf8,CRW }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{IMM16,RD},4, {{0x0c,0xff, },{0x00,0x00,IMM16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xe0,0xf0,IMM4 }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x08,0xf8,QIM }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x20,0xf8,RD }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x28,0xf8,RD }}}, {157,'-','!','!','!',O_BPT|O_UNSZ,"bpt",0,{0,0},1, {{0x0b,0xff, }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xd0,0xf0,IMM4 }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x50,0xf8,RD }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x58,0xf8,RS }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,ABS8},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0x68,0xf8,RS }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{ABS8,RD},3, {{0x0d,0xff, },{0x00,0x00,ABS8 },{0xa0,0xf8,RD }}}, {204,'b','E','I','E',O_BCLR|O_BYTE,"bclr.b",2,{IMM4,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {225,'a','E','D','D',O_ADD|O_BYTE,"add:g.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {219,'-','E','D','D',O_ADDS|O_BYTE,"adds.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {213,'m','E','D','D',O_AND|O_BYTE,"and.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {204,'b','E','S','E',O_BCLR|O_BYTE,"bclr.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {216,'a','E','D','D',O_ADDX|O_BYTE,"addx.b",2,{ABS16,RD},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {203,'b','E','I','E',O_BCLR|O_WORD,"bclr.w",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xd0,0xf0,IMM4 }}}, {218,'-','E','D','D',O_ADDS|O_WORD,"adds.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x28,0xf8,RD }}}, {212,'m','E','D','D',O_AND|O_WORD,"and.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x50,0xf8,RD }}}, {203,'b','E','S','E',O_BCLR|O_WORD,"bclr.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x58,0xf8,RS }}}, {215,'a','E','D','D',O_ADDX|O_WORD,"addx.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xa0,0xf8,RD }}}, {155,'-','B','!','!',O_BRA|O_BYTE,"bra.b",1,{PCREL8,0},2, {{0x20,0xff, },{0x00,0x00,PCREL8 }}}, {162,'b','E','I','E',O_BNOT|O_BYTE,"bnot.b",2,{IMM4,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {222,'a','I','E','E',O_ADD|O_BYTE,"add:q.b",2,{QIM,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {162,'b','E','S','E',O_BNOT|O_BYTE,"bnot.b",2,{RS,ABS16},4, {{0x15,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {161,'b','E','I','E',O_BNOT|O_WORD,"bnot.w",2,{IMM4,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0xe0,0xf0,IMM4 }}}, {221,'a','I','E','E',O_ADD|O_WORD,"add:q.w",2,{QIM,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x08,0xf8,QIM }}}, {224,'a','E','D','D',O_ADD|O_WORD,"add:g.w",2,{ABS16,RD},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x20,0xf8,RD }}}, {161,'b','E','S','E',O_BNOT|O_WORD,"bnot.w",2,{RS,ABS16},4, {{0x1d,0xff, },{0x00,0x00,ABS16 },{0x00,0x00, },{0x68,0xf8,RS }}}, {152,'-','B','!','!',O_BRN|O_BYTE,"brn.b",1,{PCREL8,0},2, {{0x21,0xff, },{0x00,0x00,PCREL8 }}}, {186,'-','B','!','!',O_BHI|O_BYTE,"bhi.b",1,{PCREL8,0},2, {{0x22,0xff, },{0x00,0x00,PCREL8 }}}, {174,'-','B','!','!',O_BLS|O_BYTE,"bls.b",1,{PCREL8,0},2, {{0x23,0xff, },{0x00,0x00,PCREL8 }}}, {207,'-','B','!','!',O_BCC|O_BYTE,"bcc.b",1,{PCREL8,0},2, {{0x24,0xff, },{0x00,0x00,PCREL8 }}}, {201,'-','B','!','!',O_BCS|O_BYTE,"bcs.b",1,{PCREL8,0},2, {{0x25,0xff, },{0x00,0x00,PCREL8 }}}, {165,'-','B','!','!',O_BNE|O_BYTE,"bne.b",1,{PCREL8,0},2, {{0x26,0xff, },{0x00,0x00,PCREL8 }}}, {198,'-','B','!','!',O_BEQ|O_BYTE,"beq.b",1,{PCREL8,0},2, {{0x27,0xff, },{0x00,0x00,PCREL8 }}}, {159,'-','B','!','!',O_BPL|O_BYTE,"bpl.b",1,{PCREL8,0},2, {{0x2a,0xff, },{0x00,0x00,PCREL8 }}}, {168,'-','B','!','!',O_BMI|O_BYTE,"bmi.b",1,{PCREL8,0},2, {{0x2b,0xff, },{0x00,0x00,PCREL8 }}}, {192,'-','B','!','!',O_BGE|O_BYTE,"bge.b",1,{PCREL8,0},2, {{0x2c,0xff, },{0x00,0x00,PCREL8 }}}, {171,'-','B','!','!',O_BLT|O_BYTE,"blt.b",1,{PCREL8,0},2, {{0x2d,0xff, },{0x00,0x00,PCREL8 }}}, {189,'-','B','!','!',O_BGT|O_BYTE,"bgt.b",1,{PCREL8,0},2, {{0x2e,0xff, },{0x00,0x00,PCREL8 }}}, {180,'-','B','!','!',O_BLE|O_BYTE,"ble.b",1,{PCREL8,0},2, {{0x2f,0xff, },{0x00,0x00,PCREL8 }}}, {154,'-','B','!','!',O_BRA|O_WORD,"bra.w",1,{PCREL16,0},3, {{0x30,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {151,'-','B','!','!',O_BRN|O_WORD,"brn.w",1,{PCREL16,0},3, {{0x31,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {185,'-','B','!','!',O_BHI|O_WORD,"bhi.w",1,{PCREL16,0},3, {{0x32,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {173,'-','B','!','!',O_BLS|O_WORD,"bls.w",1,{PCREL16,0},3, {{0x33,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {206,'-','B','!','!',O_BCC|O_WORD,"bcc.w",1,{PCREL16,0},3, {{0x34,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {200,'-','B','!','!',O_BCS|O_WORD,"bcs.w",1,{PCREL16,0},3, {{0x35,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {164,'-','B','!','!',O_BNE|O_WORD,"bne.w",1,{PCREL16,0},3, {{0x36,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {197,'-','B','!','!',O_BEQ|O_WORD,"beq.w",1,{PCREL16,0},3, {{0x37,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {158,'-','B','!','!',O_BPL|O_WORD,"bpl.w",1,{PCREL16,0},3, {{0x3a,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {167,'-','B','!','!',O_BMI|O_WORD,"bmi.w",1,{PCREL16,0},3, {{0x3b,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {191,'-','B','!','!',O_BGE|O_WORD,"bge.w",1,{PCREL16,0},3, {{0x3c,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {170,'-','B','!','!',O_BLT|O_WORD,"blt.w",1,{PCREL16,0},3, {{0x3d,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {188,'-','B','!','!',O_BGT|O_WORD,"bgt.w",1,{PCREL16,0},3, {{0x3e,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, {179,'-','B','!','!',O_BLE|O_WORD,"ble.w",1,{PCREL16,0},3, {{0x3f,0xff, },{0x00,0x00,PCREL16 },{0x00,0x00, }}}, /* RN,RD 'm','E','D','D' CRB,RN 's','C','!','E' RN,RD 'm','E','D','D' RNDEC,RD 'm','E','D','D' CRB,RNDEC 's','C','!','E' RNDEC,RD 'm','E','D','D' RNINC,RD 'm','E','D','D' CRB,RNINC 's','C','!','E' RNINC,RD 'm','E','D','D' RNIND,RD 'm','E','D','D' CRB,RNIND 's','C','!','E' RNIND,RD 'm','E','D','D' RNIND_D8,RD 'a','E','D','D' RNIND_D8,RD 'm','E','D','D' CRB,RNIND_D8 's','C','!','E' RNIND_D8,RD 'm','E','D','D' RNIND_D16,RD 'a','E','D','D' RNIND_D16,RD 'm','E','D','D' CRB,RNIND_D16 's','C','!','E' RNIND_D16,RD 'm','E','D','D' RN,RD 'm','E','D','D' RNDEC,RD 'm','E','D','D' RNIND,RD 'm','E','D','D' RNINC,RD 'm','E','D','D' RNIND_D8,RD 'm','E','D','D' ABS8,RD 'm','E','D','D' IMM16,RD 'm','E','D','D' ABS16,RD 'm','E','D','D' RNIND_D16,RD 'm','E','D','D' RN,RD 'a','E','D','D' RS,RD '-','X','!','!' RN,0 'a','E','!','!' RS,RD '-','X','!','!' RN,0 'a','E','!','!' RNDEC,RD 'a','E','D','D' RNDEC,0 'a','E','!','!' RNDEC,RD 'a','E','D','D' RNDEC,0 'a','E','!','!' RNINC,RD 'a','E','D','D' RNINC,0 'a','E','!','!' RNINC,0 'a','E','!','!' RNIND,RD 'a','E','D','D' RNIND,0 'a','E','!','!' RNIND,RD 'a','E','D','D' RNIND,0 'a','E','!','!' RNIND_D8,0 'a','E','!','!' RNIND_D8,RD 'a','E','D','D' RNIND_D8,0 'a','E','!','!' RNIND_D16,0 'a','E','!','!' RNIND_D16,RD 'a','E','D','D' RN,0 'a','E','!','!' RNIND,0 'a','E','!','!' RNDEC,0 'a','E','!','!' RNINC,0 'a','E','!','!' ABS8,0 'a','E','!','!' RNIND_D8,0 'a','E','!','!' RD,0 'm','D','!','D' ABS16,0 'a','E','!','!' RNIND_D16,0 'a','E','!','!' RN,0 's','E','!','E' RN,RD 'a','E','D','D' RN,RD 'a','E','D','D' RNDEC,0 's','E','!','E' RNDEC,RD 'a','E','D','D' RNINC,0 's','E','!','E' RNINC,RD 'a','E','D','D' RNIND,RD '-','E','D','D' RNIND,0 's','E','!','E' RNIND,RD 'a','E','D','D' RNIND_D8,0 's','E','!','E' RN,0 's','E','!','E' RNIND,0 's','E','!','E' RNINC,0 's','E','!','E' RNDEC,0 's','E','!','E' IMM8,0 's','E','!','E' ABS8,0 's','E','!','E' RNIND_D8,0 's','E','!','E' ABS16,0 's','E','!','E' RNIND_D16,0 's','E','!','E' RNIND_D8,RD '-','E','D','D' RD,0 'm','D','!','D' RNIND_D16,RD '-','E','D','D' RNIND_D16,0 's','E','!','E' IMM16,0 'a','E','!','!' RN,RD '-','E','D','D' RN,RD 'a','E','D','D' RN,RD '-','E','D','D' RNDEC,RD '-','E','D','D' RNDEC,RD 'a','E','D','D' RNDEC,RD '-','E','D','D' RNINC,RD '-','E','D','D' RNINC,RD 'a','E','D','D' RNINC,RD '-','E','D','D' RNINC,RD 'a','E','D','D' RNIND,RD 'a','E','D','D' RNIND_D8,RD 'a','E','D','D' RNIND_D8,RD '-','E','D','D' RNIND_D16,RD 'a','E','D','D' RNIND_D16,RD '-','E','D','D' RN,RD 'a','E','D','D' RNDEC,RD 'a','E','D','D' RNINC,RD 'a','E','D','D' RNIND,RD 'a','E','D','D' ABS8,RD 'a','E','D','D' RNIND_D8,RD 'a','E','D','D' IMM16,RD 'a','E','D','D' ABS16,RD 'a','E','D','D' RNIND_D16,RD 'a','E','D','D' RNIND,RD '-','E','D','D' RNIND_D8,RD 'a','E','D','D' RNIND_D16,RD 'a','E','D','D' RNIND_D16,0 'a','E','!','!' IMM8,RD 'a','E','D','D' IMM8,RD '-','E','D','D' IMM8,RD 'm','E','D','D' IMM8,CRB 's','E','C','C' IMM8,RD 'a','E','D','D' IMM8,0 'a','E','!','!' IMM8,0 's','E','!','E' ABS8,RD 'a','E','D','D' ABS8,RD '-','E','D','D' ABS8,RD 'm','E','D','D' CRB,ABS8 's','C','!','E' ABS8,RD 'a','E','D','D' ABS8,0 'a','E','!','!' ABS8,0 's','E','!','E' RN,RD '-','E','D','D' RNDEC,RD '-','E','D','D' RNIND,RD '-','E','D','D' RNINC,RD '-','E','D','D' ABS8,RD '-','E','D','D' RNIND_D8,RD '-','E','D','D' ABS16,RD '-','E','D','D' IMM16,RD '-','E','D','D' RNIND_D16,RD '-','E','D','D' IMM4,0 '-','I','!','!' 0,0 '-','B','!','!' IMM16,RD 'a','E','D','D' IMM16,RD '-','E','D','D' IMM16,RD 'm','E','D','D' IMM16,CRW 's','E','C','C' IMM16,RD 'a','E','D','D' IMM16,0 'a','E','!','!' ABS8,RD 'a','E','D','D' ABS8,RD '-','E','D','D' ABS8,RD 'm','E','D','D' ABS8,RD 'a','E','D','D' ABS8,0 'a','E','!','!' FP,0 '-','B','!','!' ABS16,RD 'a','E','D','D' ABS16,RD '-','E','D','D' ABS16,RD 'm','E','D','D' CRB,ABS16 's','C','!','E' RN,RD 'a','E','D','D' RNIND,RD 'a','E','D','D' RNINC,RD 'a','E','D','D' RNDEC,RD 'a','E','D','D' ABS8,RD 'a','E','D','D' RNIND_D8,RD 'a','E','D','D' IMM16,RD 'a','E','D','D' ABS16,RD 'a','E','D','D' RNIND_D16,RD 'a','E','D','D' RLIST,SPDEC '-','I','!','E' CRW,RN 's','C','!','E' CRW,RNDEC 's','C','!','E' CRW,RNINC 's','C','!','E' CRW,RNIND 's','C','!','E' CRW,ABS8 's','C','!','E' CRW,RNIND_D8 's','C','!','E' CRW,ABS16 's','C','!','E' CRW,RNIND_D16 's','C','!','E' ABS16,RD 'a','E','D','D' ABS16,0 'a','E','!','!' ABS16,0 's','E','!','E' ABS16,RD 'a','E','D','D' ABS16,RD '-','E','D','D' ABS16,RD 'm','E','D','D' ABS16,RD 'a','E','D','D' ABS16,0 'a','E','!','!' CRW,RN 's','C','!','E' RNIND,0 'h','E','!','E' CRB,RNDEC 's','C','!','E' CRW,RNIND 's','C','!','E' CRW,RNINC 's','C','!','E' CRW,RNDEC 's','C','!','E' CRB,RNIND 's','C','!','E' CRB,RNINC 's','C','!','E' CRW,RNIND_D8 's','C','!','E' CRB,ABS8 's','C','!','E' CRB,RNIND_D8 's','C','!','E' CRW,ABS8 's','C','!','E' CRW,RNIND_D16 's','C','!','E' RNIND,0 'h','E','!','E' CRB,ABS16 's','C','!','E' CRB,RNIND_D16 's','C','!','E' RN,0 'h','E','!','E' RNINC,0 'h','E','!','E' CRW,ABS16 's','C','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNINC,0 'h','E','!','E' CRB,RN 's','C','!','E' RN,0 'h','E','!','E' RN,0 'h','E','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNIND,0 'h','E','!','E' RN,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNINC,0 'h','E','!','E' ABS8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' ABS16,0 'h','E','!','E' IMM16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' IMM8,0 'h','E','!','E' IMM8,0 'h','E','!','E' ABS8,0 'h','E','!','E' IMM16,0 'h','E','!','E' ABS8,0 'h','E','!','E' ABS16,0 'h','E','!','E' ABS16,0 'h','E','!','E' ABS16,0 'h','E','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNINC,0 'h','E','!','E' ABS8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' IMM16,0 'h','E','!','E' ABS16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' IMM8,0 'h','E','!','E' ABS8,0 'h','E','!','E' ABS8,0 'h','E','!','E' IMM16,0 'h','E','!','E' IMM16,0 'h','E','!','E' ABS8,0 'h','E','!','E' ABS8,0 'h','E','!','E' ABS16,0 'h','E','!','E' 0,0 '-','!','!','!' ABS16,0 'h','E','!','E' ABS16,0 'h','E','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNINC,0 'h','E','!','E' ABS8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' IMM16,0 'h','E','!','E' ABS16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RN,0 'h','E','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' IMM8,0 'h','E','!','E' RN,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNDEC,0 'h','E','!','E' ABS8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' ABS16,0 'h','E','!','E' IMM16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNINC,0 'h','E','!','E' RN,0 'h','E','!','E' RN,0 'h','E','!','E' RN,0 'h','E','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RS,PCREL8 '-','B','S','S' IMM8,0 'h','E','!','E' IMM8,0 'h','E','!','E' ABS8,0 'h','E','!','E' IMM16,0 'h','E','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNIND,0 'h','E','!','E' ABS8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' IMM16,0 'h','E','!','E' ABS16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' ABS8,0 'h','E','!','E' ABS8,0 'h','E','!','E' RS,PCREL8 '-','B','S','S' RS,PCREL8 '-','B','S','S' IMM16,0 'h','E','!','E' IMM16,0 'h','E','!','E' ABS8,0 'h','E','!','E' ABS8,0 'h','E','!','E' ABS8,0 'h','E','!','E' IMM16,0 '-','B','!','!' IMM8,0 '-','B','!','!' ABS16,0 'h','E','!','E' ABS16,0 'h','E','!','E' ABS16,0 'h','E','!','E' 0,0 '-','B','!','!' ABS16,0 'h','E','!','E' ABS16,0 'h','E','!','E' ABS16,0 'h','E','!','E' RN,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNDEC,0 'h','E','!','E' ABS8,0 'h','E','!','E' IMM8,RD 'm','I','!','D' ABS16,0 'h','E','!','E' IMM16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' FPIND_D8,RD 'm','E','!','D' FPIND_D8,RD 'm','E','!','D' RS,FPIND_D8 'm','S','!','E' RS,FPIND_D8 'm','S','!','E' RN,RD 'm','E','!','D' RN,0 'h','E','!','E' RS,RNDEC 'm','S','!','E' RNIND_D8,0 'h','E','!','E' IMM16,RD 'm','I','!','D' ABS8,RD 'm','E','!','D' ABS8,RD 'm','E','!','D' RS,ABS8 'm','S','!','E' RS,ABS8 'm','S','!','E' RN,RD '-','E','!','D' RN,0 'h','E','!','E' RN,RD 'm','E','!','D' RNDEC,RD 'm','E','!','D' RNDEC,RD '-','E','!','D' RN,0 'h','E','!','E' RNDEC,RD 'p','E','D','D' RNIND,0 'h','E','!','E' RNINC,0 'h','E','!','E' ABS8,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' ABS16,0 'h','E','!','E' IMM16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RS,RN '-','S','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RN,RD 'm','E','D','D' RN,RD 'p','E','D','D' RN,0 'a','E','!','E' RN,0 'm','E','!','E' RN,0 'h','E','!','E' RN,RD 'm','E','D','D' RN,RD 'p','E','D','D' RN,0 'a','E','!','E' RN,0 'm','E','!','E' RNDEC,RD 'm','E','D','D' RS,RNDEC '-','S','!','E' RNDEC,0 'h','E','!','E' RNDEC,0 'a','E','!','E' RNINC,RD 'm','E','D','D' RNINC,0 'h','E','!','E' RN,0 'h','E','!','E' RNDEC,0 'h','E','!','E' RNIND,0 'h','E','!','E' RNINC,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' ABS8,0 'h','E','!','E' IMM16,0 'h','E','!','E' ABS16,0 'h','E','!','E' RNIND_D16,0 'h','E','!','E' RNDEC,0 'a','E','!','E' RNDEC,0 'm','E','!','E' RNDEC,RD 'm','E','D','D' RNDEC,0 'm','E','!','E' RNDEC,0 'h','E','!','E' RNINC,0 'a','E','!','E' RNINC,0 'm','E','!','E' RNINC,RD 'm','E','D','D' RNINC,0 'a','E','!','E' IMM8,CRB 's','I','C','C' IMM16,CRW 's','I','C','C' RNINC,0 'm','E','!','E' RNINC,0 'h','E','!','E' RNIND,RD 'm','E','D','D' RNIND,0 'a','E','!','E' RNIND,0 'm','E','!','E' RNIND,0 'h','E','!','E' RNIND,RD 'm','E','D','D' RNIND,0 'a','E','!','E' RNIND,0 'm','E','!','E' RNIND,0 'h','E','!','E' RNIND_D8,RD 'm','E','D','D' RNIND_D8,0 'a','E','!','E' RNIND_D8,0 'm','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D8,RD 'm','E','D','D' RNIND_D8,0 'a','E','!','E' RNIND_D8,0 'm','E','!','E' RNIND_D8,0 'h','E','!','E' RNIND_D16,RD 'm','E','D','D' RNIND,RD 'm','E','D','D' RNDEC,RD 'm','E','D','D' RNINC,RD 'm','E','D','D' ABS8,RD 'm','E','D','D' RNIND_D8,RD 'm','E','D','D' ABS16,RD 'm','E','D','D' IMM16,RD 'm','E','D','D' RNIND_D16,RD 'm','E','D','D' RNIND_D16,RD 'm','E','D','D' RNIND_D16,0 'a','E','!','E' RNIND_D16,0 'm','E','!','E' RNIND_D16,0 'h','E','!','E' ABS24,0 '-','J','!','!' IMM8,RD 'm','E','D','D' IMM8,CRB 's','I','C','C' IMM8,0 'a','E','!','E' IMM8,0 'h','E','!','E' ABS8,RD 'm','E','D','D' RN,RD 'm','E','D','D' RNIND_D16,RD 'm','E','!','D' RNIND_D16,0 'a','E','!','E' RNIND_D16,0 'm','E','!','E' RNIND_D16,0 'h','E','!','E' IMM8,0 'm','E','!','E' ABS8,0 'a','E','!','E' ABS8,0 'm','E','!','E' RN,0 'm','E','!','E' RNIND,0 'm','E','!','E' RNDEC,0 'm','E','!','E' RNINC,0 'm','E','!','E' ABS8,0 'm','E','!','E' RNIND_D8,0 'm','E','!','E' ABS16,0 'm','E','!','E' IMM16,0 'm','E','!','E' RNIND_D16,0 'm','E','!','E' IMM8,RNIND_D16 'm','I','!','E' 0,0 '-','!','!','!' ABS8,0 'h','E','!','E' IMM16,RD 'm','E','D','D' IMM16,CRW 's','I','C','C' IMM16,0 'a','E','!','E' IMM16,0 'm','E','!','E' IMM16,0 'h','E','!','E' ABS8,RD 'm','E','D','D' ABS8,0 'a','E','!','E' ABS8,0 'm','E','!','E' ABS8,0 'h','E','!','E' RDIND,0 '-','J','!','!' RDIND,0 '-','J','!','!' IMM8,0 '-','B','!','!' 0,0 '-','B','!','!' IMM16,0 '-','B','!','!' ABS24,0 '-','J','!','!' ABS16,RD 'm','E','D','D' RN,0 'a','E','!','E' RNDEC,0 'a','E','!','E' RNINC,0 'a','E','!','E' RNIND,0 'a','E','!','E' ABS8,0 'a','E','!','E' RNIND_D8,0 'a','E','!','E' ABS16,0 'a','E','!','E' IMM16,0 'a','E','!','E' RNIND_D16,0 'a','E','!','E' RNDEC,RD 'p','E','D','D' RNDEC,0 'h','E','!','E' RNINC,RD 'p','E','D','D' RNINC,RD 'p','E','D','D' RNIND,RD 'p','E','D','D' RNIND,RD 'p','E','D','D' RNIND_D8,RD 'p','E','D','D' RNIND_D8,RD 'p','E','D','D' RNIND_D8,0 'h','E','!','E' RNIND_D16,RD 'p','E','D','D' RNIND_D16,RD 'p','E','D','D' IMM8,RD 'p','E','D','D' ABS8,RD 'p','E','D','D' IMM16,RD 'p','E','D','D' ABS8,RD 'p','E','D','D' ABS8,0 'h','E','!','E' RS,ABS16 'm','S','!','E' ABS16,RD 'p','E','D','D' RN,RD 'p','E','D','D' RNIND,RD 'p','E','D','D' RNDEC,RD 'p','E','D','D' RNINC,RD 'p','E','D','D' RNIND_D8,RD 'p','E','D','D' ABS8,RD 'p','E','D','D' IMM16,RD 'p','E','D','D' ABS16,RD 'p','E','D','D' RNIND_D16,RD 'p','E','D','D' RS,RNINC '-','S','!','E' RNINC,0 'h','E','!','E' RS,RNIND '-','S','!','E' RNIND,0 'h','E','!','E' RS,RNIND_D8 '-','S','!','E' RS,RNIND_D16 'm','S','!','E' RS,RNIND_D16 '-','S','!','E' RS,ABS8 '-','S','!','E' RS,RN '-','S','!','E' RS,RNDEC '-','S','!','E' RS,RNIND '-','S','!','E' RS,RNINC '-','S','!','E' RS,ABS8 '-','S','!','E' RNIND,RD '-','E','!','D' RS,ABS16 '-','S','!','E' RS,RNIND_D16 '-','S','!','E' RNINC,RD '-','E','!','D' RNIND_D16,0 'h','E','!','E' ABS16,RD 'm','E','!','D' RS,RNIND_D8 '-','S','!','E' RNIND_D8,RD '-','E','!','D' IMM8,RNIND_D8 'm','I','!','E' RNIND_D16,RD '-','E','!','D' IMM8,RD '-','E','!','D' ABS8,RD '-','E','!','D' RN,RD '-','E','!','D' RNINC,0 'h','E','!','E' RNIND,RD '-','E','!','D' RNDEC,RD '-','E','!','D' IMM8,RD '-','E','!','D' ABS8,RD '-','E','!','D' RNIND_D8,RD '-','E','!','D' ABS16,RD '-','E','!','D' RNIND_D16,RD '-','E','!','D' RNIND,0 'h','E','!','E' RNIND_D8,0 'h','E','!','E' RS,ABS8 'm','S','!','E' RNDEC,RD 'm','E','!','D' RNINC,RD 'm','E','!','D' ABS8,RD 'm','E','!','D' RNDEC,0 'h','E','!','E' IMM16,RD 'm','I','!','D' RS,RNDEC 'm','S','!','E' RS,RNINC 'm','S','!','E' RNIND,RD 'm','E','!','D' RS,RNIND 'm','S','!','E' RNIND_D8,RD 'm','E','!','D' RS,RNIND_D8 'm','S','!','E' IMM8,0 'h','E','!','E' ABS8,0 'h','E','!','E' RS,ABS8 'm','S','!','E' RNINC,RD '-','E','!','D' IMM8,RNDEC 'm','I','!','E' IMM16,RNDEC 'm','I','!','E' RNINC,RD 'm','E','!','D' RS,RNINC 'm','S','!','E' IMM8,RNINC 'm','I','!','E' IMM16,RNINC 'm','I','!','E' RNIND,RD 'm','E','!','D' RS,RNIND 'm','S','!','E' IMM8,RNIND 'm','I','!','E' IMM16,RNIND 'm','I','!','E' RNIND_D8,RD 'm','E','!','D' RS,RNIND_D8 'm','S','!','E' IMM16,RNIND_D8 'm','I','!','E' IMM16,RNIND_D16 'm','I','!','E' RNIND_D16,RD 'm','E','!','D' RS,RNIND_D16 'm','S','!','E' RNIND_D16,0 'h','E','!','E' IMM8,RD 'm','E','!','D' ABS8,RD 'm','E','!','D' RS,ABS8 'm','S','!','E' IMM8,ABS8 'm','I','!','E' IMM16,ABS8 'm','I','!','E' IMM16,RD 'm','E','!','D' IMM16,0 'h','E','!','E' ABS8,RD 'm','E','!','D' ABS16,RD '-','E','!','D' RS,ABS16 '-','S','!','E' IMM8,ABS16 'm','I','!','E' IMM16,ABS16 'm','I','!','E' ABS16,0 'a','E','!','E' ABS16,0 'h','E','!','E' ABS16,RD 'm','E','!','D' RS,ABS16 'm','S','!','E' ABS16,RD 'p','E','D','D' ABS16,0 'a','E','!','E' ABS16,0 'h','E','!','E' RS,RNINC 'm','S','!','E' RN,RD 'm','E','!','D' RS,RNIND 'm','S','!','E' RNIND,RD 'm','E','!','D' RS,RNDEC 'm','S','!','E' RNINC,RD 'm','E','!','D' RNDEC,RD 'm','E','!','D' RS,RNIND_D8 'm','S','!','E' RS,ABS8 'm','S','!','E' RNIND_D8,RD 'm','E','!','D' IMM8,RNIND 'm','I','!','E' ABS8,RD 'm','E','!','D' IMM8,RNDEC 'm','I','!','E' IMM8,RNINC 'm','I','!','E' IMM8,RNIND_D8 'm','I','!','E' IMM8,ABS8 'm','I','!','E' RS,RNIND_D16 'm','S','!','E' IMM16,RD 'm','E','!','D' IMM16,RNIND 'm','I','!','E' IMM16,RNINC 'm','I','!','E' IMM16,RNDEC 'm','I','!','E' RS,ABS16 'm','S','!','E' RNIND_D16,RD 'm','E','!','D' ABS16,RD 'm','E','!','D' IMM16,RNIND_D8 'm','I','!','E' IMM8,ABS16 'm','I','!','E' IMM16,ABS8 'm','I','!','E' IMM8,RNIND_D16 'm','I','!','E' IMM16,ABS16 'm','I','!','E' IMM16,RNIND_D16 'm','I','!','E' ABS16,0 'm','E','!','E' ABS16,RD 'm','E','D','D' ABS16,0 'm','E','!','E' ABS16,0 'h','E','!','E' RS,FPIND_D8 'm','S','!','E' FPIND_D8,RD 'm','E','!','D' ABS16,0 'h','E','!','E' IMM8,RD 'm','I','!','D' RS,FPIND_D8 'm','S','!','E' RS,ABS8 'm','S','!','E' ABS8,RD 'm','E','!','D' RS,RNIND 'm','S','!','E' RS,RNINC 'm','S','!','E' RS,RNDEC 'm','S','!','E' RNIND,RD 'm','E','!','D' FPIND_D8,RD 'm','E','!','D' RNINC,RD 'm','E','!','D' RN,RD 'm','E','!','D' RNDEC,RD 'm','E','!','D' RS,ABS8 'm','S','!','E' RNIND_D8,RD 'm','E','!','D' RS,RNIND_D8 'm','S','!','E' IMM16,RD 'm','I','!','D' ABS8,RD 'm','E','!','D' IMM16,RNINC 'm','I','!','E' IMM16,RNDEC 'm','I','!','E' IMM16,RNIND 'm','I','!','E' RS,RNIND_D16 'm','S','!','E' RS,ABS16 'm','S','!','E' ABS16,RD 'm','E','!','D' IMM16,RD 'm','E','!','D' RNIND_D16,RD 'm','E','!','D' IMM16,RNIND_D8 'm','I','!','E' IMM16,ABS8 'm','I','!','E' IMM16,RNIND_D16 'm','I','!','E' IMM16,ABS16 'm','I','!','E' FPIND_D8,RD 'm','E','!','D' RS,ABS8 'm','S','!','E' RNINC,RD 'm','E','!','D' RS,RNIND 'm','S','!','E' RS,RNINC 'm','S','!','E' RS,RNDEC 'm','S','!','E' RNDEC,RD 'm','E','!','D' RS,FPIND_D8 'm','S','!','E' RNIND,RD 'm','E','!','D' RN,RD 'm','E','!','D' ABS8,RD 'm','E','!','D' IMM8,RD 'm','I','!','D' IMM8,RD 'm','E','!','D' RS,ABS8 'm','S','!','E' IMM8,RNIND 'm','I','!','E' IMM8,RNINC 'm','I','!','E' IMM8,RNDEC 'm','I','!','E' RNIND_D8,RD 'm','E','!','D' ABS8,RD 'm','E','!','D' RS,RNIND_D8 'm','S','!','E' IMM8,RNIND_D8 'm','I','!','E' ABS16,RD 'm','E','!','D' IMM8,ABS8 'm','I','!','E' RS,ABS16 'm','S','!','E' RS,RNIND_D16 'm','S','!','E' RNIND_D16,RD 'm','E','!','D' IMM8,ABS16 'm','I','!','E' IMM8,RNIND_D16 'm','I','!','E' ABS8,RD 'm','E','!','D' RS,ABS8 'm','S','!','E' RNIND,RD 'm','E','!','D' RS,RNIND 'm','S','!','E' RS,RNINC 'm','S','!','E' RS,RNDEC 'm','S','!','E' RN,RD 'm','E','!','D' RS,FPIND_D8 'm','S','!','E' RNINC,RD 'm','E','!','D' FPIND_D8,RD 'm','E','!','D' IMM8,RD 'm','I','!','D' RNDEC,RD 'm','E','!','D' RS,RNIND_D8 'm','S','!','E' IMM8,RNIND 'm','I','!','E' IMM8,RNINC 'm','I','!','E' IMM8,RNDEC 'm','I','!','E' RNIND_D8,RD 'm','E','!','D' RS,ABS8 'm','S','!','E' ABS8,RD 'm','E','!','D' IMM16,RD 'm','I','!','D' IMM8,ABS8 'm','I','!','E' RS,RNIND_D16 'm','S','!','E' IMM16,RNIND 'm','I','!','E' IMM16,RNINC 'm','I','!','E' IMM16,RNDEC 'm','I','!','E' RS,ABS16 'm','S','!','E' IMM16,RD 'm','E','!','D' IMM8,RNIND_D8 'm','I','!','E' RNIND_D16,RD 'm','E','!','D' ABS16,RD 'm','E','!','D' IMM16,RNIND_D8 'm','I','!','E' IMM8,ABS16 'm','I','!','E' IMM16,ABS8 'm','I','!','E' IMM8,RNIND_D16 'm','I','!','E' IMM16,ABS16 'm','I','!','E' IMM16,RNIND_D16 'm','I','!','E' IMM8,RD 'a','D','I','!' RN,RD 'a','D','E','!' IMM8,RN 'a','E','I','!' RN,CRW 's','E','!','C' RNIND,CRW 's','E','!','C' RNINC,CRW 's','E','!','C' RNDEC,CRW 's','E','!','C' RN,RD 'a','D','E','!' RNIND_D8,CRW 's','E','!','C' IMM16,RN 'a','E','I','!' ABS16,CRW 's','E','!','C' RNIND_D16,CRW 's','E','!','C' RN,CRB 's','E','!','C' ABS8,CRW 's','E','!','C' IMM16,RD 'a','D','I','!' RN,RD 's','E','D','D' RS,RD 's','D','!','!' RS,RD 's','D','!','!' RD,0 's','D','!','D' RD,0 's','D','!','D' RN,RD 's','E','D','D' RNIND_D8,CRB 's','E','!','C' RN,CRB 's','E','!','C' RNINC,CRW 's','E','!','C' RNIND,CRB 's','E','!','C' RNDEC,CRW 's','E','!','C' RNIND,CRW 's','E','!','C' RNDEC,CRB 's','E','!','C' RNINC,CRB 's','E','!','C' ABS8,CRW 's','E','!','C' ABS8,CRB 's','E','!','C' IMM8,CRB 's','E','!','C' RNIND_D8,CRW 's','E','!','C' RNIND_D8,CRB 's','E','!','C' ABS16,CRB 's','E','!','C' ABS16,CRW 's','E','!','C' IMM16,CRW 's','E','!','C' RNIND_D16,CRW 's','E','!','C' RNIND_D16,CRB 's','E','!','C' RNIND_D16,CRB 's','E','!','C' ABS16,0 '-','B','!','!' RDIND,0 '-','B','!','!' RDIND,0 '-','B','!','!' RDIND_D8,0 '-','B','!','!' RDIND_D8,0 '-','B','!','!' RDIND_D16,0 '-','B','!','!' RDIND_D16,0 '-','B','!','!' ABS16,0 '-','B','!','!' RD,0 's','D','!','D' ABS16,CRB 's','E','!','C' RD,0 's','D','!','D' RN,CRW 's','E','!','C' RNDEC,RD 's','E','D','D' RNDEC,RD 's','E','D','D' RNINC,CRB 's','E','!','C' RNINC,RD 's','E','D','D' RNINC,RD 's','E','D','D' RNIND,CRB 's','E','!','C' RNIND,RD 's','E','D','D' RNIND,RD 's','E','D','D' RNIND_D8,RD 's','E','D','D' RNIND_D8,RD 's','E','D','D' RNIND_D16,RD 's','E','D','D' RNIND_D16,RD 's','E','D','D' IMM8,CRB 's','E','!','C' IMM8,RD 's','E','D','D' ABS8,RD 's','E','D','D' IMM16,RD 's','E','D','D' ABS16,RD 's','E','D','D' ABS16,RD 's','E','D','D' RN,RD 's','E','D','D' RNINC,RD 's','E','D','D' RNDEC,RD 's','E','D','D' RNIND,RD 's','E','D','D' ABS8,RD 's','E','D','D' RNIND_D8,RD 's','E','D','D' IMM16,RD 's','E','D','D' ABS16,RD 's','E','D','D' RNIND_D16,RD 's','E','D','D' ABS8,CRB 's','E','!','C' ABS8,RD 's','E','D','D' IMM16,RD 'a','D','I','!' RNDEC,RD 'a','D','E','!' RNDEC,CRB 's','E','!','C' IMM8,RNDEC 'a','E','I','!' IMM16,RNDEC 'a','E','I','!' RNDEC,RD 'a','D','E','!' RNINC,RD 'a','D','E','!' IMM8,RNINC 'a','E','I','!' IMM16,RNINC 'a','E','I','!' RNINC,RD 'a','D','E','!' RNIND,RD 'a','D','E','!' IMM8,RNIND 'a','E','I','!' IMM16,RNIND 'a','E','I','!' RNIND,RD 'a','D','E','!' RNIND_D8,RD 'a','D','E','!' IMM8,RNIND_D8 'a','E','I','!' IMM16,RNIND_D8 'a','E','I','!' RNIND_D8,RD 'a','D','E','!' RNIND_D16,RD 'a','D','E','!' IMM8,RNIND_D16 'a','E','I','!' IMM16,RNIND_D16 'a','E','I','!' RNIND_D16,RD 'a','D','E','!' SPINC,RLIST '-','E','!','C' IMM8,RD 'a','D','E','!' ABS8,RD 'a','D','E','!' IMM8,ABS8 'a','E','I','!' IMM16,ABS8 'a','E','I','!' IMM16,RD 'a','D','E','!' IMM16,CRW 's','E','!','C' ABS8,RD 'a','D','E','!' ABS16,RD 'a','D','E','!' IMM8,ABS16 'a','E','I','!' IMM16,ABS16 'a','E','I','!' ABS16,RD 'a','D','E','!' FP,IMM16 '-','S','I','!' RN,RD 'a','D','E','!' RNIND,RD 'a','D','E','!' RNINC,RD 'a','D','E','!' RNDEC,RD 'a','D','E','!' RNIND_D8,RD 'a','D','E','!' ABS8,RD 'a','D','E','!' IMM16,RNINC 'a','E','I','!' IMM16,RNIND 'a','E','I','!' IMM16,RN 'a','E','I','!' IMM16,RNDEC 'a','E','I','!' IMM16,RD 'a','D','E','!' ABS16,RD 'a','D','E','!' RNIND_D16,RD 'a','D','E','!' IMM16,RNIND_D8 'a','E','I','!' IMM16,ABS8 'a','E','I','!' IMM16,RNIND_D16 'a','E','I','!' IMM16,ABS16 'a','E','I','!' FP,IMM8 '-','S','I','!' IMM8,RD 'a','D','I','!' RN,RD 'a','D','E','!' RNDEC,RD 'a','D','E','!' RNINC,RD 'a','D','E','!' RNIND,RD 'a','D','E','!' IMM16,RD 'a','D','I','!' RNIND_D8,RD 'a','D','E','!' ABS8,RD 'a','D','E','!' IMM16,RNINC 'a','E','I','!' IMM16,RNDEC 'a','E','I','!' IMM16,RNIND 'a','E','I','!' RNIND_D16,RD 'a','D','E','!' ABS16,RD 'a','D','E','!' IMM16,RD 'a','D','E','!' IMM16,RN 'a','E','I','!' IMM16,RNIND_D8 'a','E','I','!' IMM16,ABS8 'a','E','I','!' IMM16,RNIND_D16 'a','E','I','!' IMM16,ABS16 'a','E','I','!' RN,RD 'a','D','E','!' RNDEC,RD 'a','D','E','!' RNINC,RD 'a','D','E','!' IMM8,RD 'a','D','I','!' RNIND,RD 'a','D','E','!' IMM8,RN 'a','E','I','!' IMM8,RNIND 'a','E','I','!' IMM8,RNINC 'a','E','I','!' IMM8,RNDEC 'a','E','I','!' ABS8,RD 'a','D','E','!' RNIND_D8,RD 'a','D','E','!' IMM8,RD 'a','D','E','!' IMM8,ABS8 'a','E','I','!' ABS16,RD 'a','D','E','!' IMM8,RNIND_D8 'a','E','I','!' RNIND_D16,RD 'a','D','E','!' IMM8,ABS16 'a','E','I','!' IMM8,RNIND_D16 'a','E','I','!' RN,RD 'a','D','E','!' IMM8,RD 'a','D','I','!' RNINC,RD 'a','D','E','!' RNIND,RD 'a','D','E','!' RNDEC,RD 'a','D','E','!' IMM16,RD 'a','D','I','!' RNIND_D8,RD 'a','D','E','!' ABS8,RD 'a','D','E','!' IMM16,RN 'a','E','I','!' IMM16,RNDEC 'a','E','I','!' IMM16,RNIND 'a','E','I','!' RNIND_D16,RD 'a','D','E','!' IMM16,RNINC 'a','E','I','!' ABS16,RD 'a','D','E','!' IMM16,RD 'a','D','E','!' IMM16,ABS8 'a','E','I','!' IMM16,RNIND_D8 'a','E','I','!' IMM16,ABS16 'a','E','I','!' IMM16,RNIND_D16 'a','E','I','!' IMM4,RN 'b','E','I','E' IMM4,RN 'b','E','I','E' RS,RN 'b','E','S','E' RS,RN 'b','E','S','E' RN,0 'c','!','!','E' IMM4,RN 'b','E','I','E' IMM4,RN 'b','E','I','E' RNDEC,0 'c','!','!','E' RNINC,0 'c','!','!','E' RNIND,0 'c','!','!','E' RS,RNIND 'b','E','S','E' RNIND_D8,0 'c','!','!','E' IMM4,RNIND_D16 'b','E','I','E' RS,RNIND_D16 'b','E','S','E' RNIND_D16,0 'c','!','!','E' RNIND_D16,0 'c','!','!','E' IMM8,0 'c','!','!','E' ABS8,0 'c','!','!','E' RN,0 'c','!','!','E' RNIND,0 'c','!','!','E' RNINC,0 'c','!','!','E' RNDEC,0 'c','!','!','E' ABS8,0 'c','!','!','E' RNIND_D8,0 'c','!','!','E' IMM16,0 'c','!','!','E' ABS16,0 'c','!','!','E' RNIND_D16,0 'c','!','!','E' IMM4,ABS8 'b','E','I','E' RS,ABS8 'b','E','S','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RS,RN 'b','E','S','E' IMM4,RNDEC 'b','E','I','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RS,RNDEC 'b','E','S','E' IMM4,RNDEC 'b','E','I','E' RS,RNDEC 'b','E','S','E' RNDEC,0 'c','!','!','E' IMM4,RNINC 'b','E','I','E' RS,RNINC 'b','E','S','E' IMM4,RNINC 'b','E','I','E' RS,RNINC 'b','E','S','E' IMM4,RNIND 'b','E','I','E' RS,RNIND 'b','E','S','E' IMM4,RNIND 'b','E','I','E' IMM4,RNIND_D8 'b','E','I','E' RS,RNIND_D8 'b','E','S','E' IMM4,RNIND_D8 'b','E','I','E' RS,RNIND_D8 'b','E','S','E' RNIND_D8,0 'c','!','!','E' IMM4,RNIND_D16 'b','E','I','E' RS,RNIND_D16 'b','E','S','E' IMM16,0 'c','!','!','E' IMM4,ABS8 'b','E','I','E' RS,ABS8 'b','E','S','E' ABS8,0 'c','!','!','E' IMM4,ABS16 'b','E','I','E' RS,ABS16 'b','E','S','E' ABS16,0 'c','!','!','E' IMM4,ABS16 'b','E','I','E' RS,ABS16 'b','E','S','E' ABS16,0 'c','!','!','E' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RS,RN 'b','E','S','E' IMM4,RNDEC 'b','E','I','E' IMM4,RNIND 'b','E','I','E' RS,RNIND 'b','E','S','E' RS,RNINC 'b','E','S','E' RS,RNDEC 'b','E','S','E' IMM4,RN 'b','E','I','E' IMM4,RNINC 'b','E','I','E' RS,RNIND_D8 'b','E','S','E' IMM4,ABS8 'b','E','I','E' RS,ABS8 'b','E','S','E' IMM4,RNIND_D8 'b','E','I','E' IMM4,ABS16 'b','E','I','E' RS,RNIND_D16 'b','E','S','E' RS,ABS16 'b','E','S','E' IMM4,RNDEC 'b','E','I','E' PCREL16,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' IMM4,RNIND_D16 'b','E','I','E' RS,RNDEC 'b','E','S','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RS,RN 'b','E','S','E' RN,0 'c','!','!','E' IMM4,RNDEC 'b','E','I','E' RS,RNDEC 'b','E','S','E' IMM4,RNINC 'b','E','I','E' RS,RNINC 'b','E','S','E' IMM4,RNINC 'b','E','I','E' RS,RNINC 'b','E','S','E' RNINC,0 'c','!','!','E' IMM4,RNIND 'b','E','I','E' RS,RNIND 'b','E','S','E' IMM4,RNIND 'b','E','I','E' RS,RNIND 'b','E','S','E' RNIND,0 'c','!','!','E' IMM4,RNIND_D8 'b','E','I','E' RS,RNIND_D8 'b','E','S','E' IMM4,RNIND_D8 'b','E','I','E' RS,RNIND_D8 'b','E','S','E' IMM4,RNIND_D16 'b','E','I','E' RS,RNIND_D16 'b','E','S','E' IMM4,RNIND_D16 'b','E','I','E' RS,RNIND_D16 'b','E','S','E' IMM4,ABS8 'b','E','I','E' RS,ABS8 'b','E','S','E' IMM4,ABS8 'b','E','I','E' RS,ABS8 'b','E','S','E' PCREL8,0 '-','B','!','!' IMM4,ABS16 'b','E','I','E' RS,ABS16 'b','E','S','E' IMM4,ABS16 'b','E','I','E' RS,ABS16 'b','E','S','E' PCREL16,0 '-','B','!','!' RS,RN 'b','E','S','E' IMM4,RN 'b','E','I','E' IMM4,RNIND 'b','E','I','E' RS,RNIND 'b','E','S','E' RS,RNINC 'b','E','S','E' RS,RNDEC 'b','E','S','E' IMM4,RNINC 'b','E','I','E' IMM4,RNDEC 'b','E','I','E' RS,RNIND_D8 'b','E','S','E' IMM4,RNIND_D8 'b','E','I','E' RS,ABS8 'b','E','S','E' IMM4,ABS8 'b','E','I','E' IMM4,ABS16 'b','E','I','E' RS,RNIND_D16 'b','E','S','E' RS,ABS16 'b','E','S','E' IMM4,RNIND_D16 'b','E','I','E' IMM4,RN 'b','E','I','E' IMM4,RN 'b','E','I','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' QIM,RN 'a','I','E','E' RN,RD '-','E','D','D' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RN,RD 'a','E','D','D' RN,RD 'm','E','D','D' RS,RN 'b','E','S','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RS,RN 'b','E','S','E' RN,RD 'a','E','D','D' IMM4,RN 'b','E','I','E' IMM4,RN 'b','E','I','E' QIM,RN 'a','I','E','E' RN,RD 'a','E','D','D' RN,RD '-','E','D','D' RN,RD 'm','E','D','D' RS,RN 'b','E','S','E' RS,RN 'b','E','S','E' RN,RD 'a','E','D','D' IMM4,RNDEC 'b','E','I','E' IMM4,RNDEC 'b','E','I','E' QIM,RNDEC 'a','I','E','E' RNDEC,RD 'a','E','D','D' RNDEC,RD '-','E','D','D' RNDEC,RD 'm','E','D','D' RS,RNDEC 'b','E','S','E' RS,RNDEC 'b','E','S','E' RNDEC,RD 'a','E','D','D' IMM4,RNDEC 'b','E','I','E' IMM4,RNDEC 'b','E','I','E' QIM,RNDEC 'a','I','E','E' RNDEC,RD 'a','E','D','D' RNDEC,RD '-','E','D','D' RNDEC,RD 'm','E','D','D' RS,RNDEC 'b','E','S','E' RS,RNDEC 'b','E','S','E' RNDEC,RD 'a','E','D','D' RNINC,RD 'a','E','D','D' RNINC,RD 'm','E','D','D' IMM4,RNINC 'b','E','I','E' RS,RN 'b','E','S','E' RS,RNIND 'b','E','S','E' IMM4,RNIND 'b','E','I','E' IMM4,RN 'b','E','I','E' RS,RNINC 'b','E','S','E' RS,RNDEC 'b','E','S','E' IMM4,RNDEC 'b','E','I','E' IMM4,RNINC 'b','E','I','E' RS,ABS8 'b','E','S','E' IMM4,ABS8 'b','E','I','E' RS,RNIND_D8 'b','E','S','E' IMM4,RNIND_D8 'b','E','I','E' RS,RNIND_D16 'b','E','S','E' IMM4,ABS16 'b','E','I','E' RS,ABS16 'b','E','S','E' IMM4,RNIND_D16 'b','E','I','E' IMM4,RNINC 'b','E','I','E' IMM4,RNINC 'b','E','I','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RNINC,RD '-','E','D','D' RS,RNINC 'b','E','S','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' QIM,RNINC 'a','I','E','E' RS,RNINC 'b','E','S','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RNINC,RD 'a','E','D','D' IMM4,RNINC 'b','E','I','E' RNINC,RD 'a','E','D','D' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RS,RNINC 'b','E','S','E' IMM4,RNIND 'b','E','I','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' IMM4,RNIND 'b','E','I','E' PCREL8,0 '-','B','!','!' RNINC,RD 'a','E','D','D' PCREL16,0 '-','B','!','!' RNINC,RD '-','E','D','D' RS,RNINC 'b','E','S','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RNINC,RD 'm','E','D','D' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' QIM,RNINC 'a','I','E','E' QIM,RNIND 'a','I','E','E' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RNIND,RD 'a','E','D','D' RNIND,RD '-','E','D','D' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RNIND,RD 'm','E','D','D' RS,RNIND 'b','E','S','E' RS,RNIND 'b','E','S','E' RNIND,RD 'a','E','D','D' IMM4,RNIND 'b','E','I','E' IMM4,RNIND 'b','E','I','E' QIM,RNIND 'a','I','E','E' RNIND,RD 'a','E','D','D' RNIND,RD '-','E','D','D' RNIND,RD 'm','E','D','D' RS,RNIND 'b','E','S','E' RS,RNIND 'b','E','S','E' RNIND,RD 'a','E','D','D' IMM4,RNIND_D8 'b','E','I','E' IMM4,RNIND_D8 'b','E','I','E' QIM,RNIND_D8 'a','I','E','E' RNIND_D8,RD 'a','E','D','D' RNIND_D8,RD '-','E','D','D' RNIND_D8,RD 'm','E','D','D' RS,RNIND_D8 'b','E','S','E' RS,RNIND_D8 'b','E','S','E' RNIND_D8,RD 'a','E','D','D' IMM4,RNIND_D8 'b','E','I','E' IMM4,RNIND_D8 'b','E','I','E' QIM,RNIND_D8 'a','I','E','E' RNIND_D8,RD 'a','E','D','D' RNIND_D8,RD '-','E','D','D' RNIND_D8,RD 'm','E','D','D' RS,RNIND_D8 'b','E','S','E' IMM4,RNIND_D16 'b','E','I','E' QIM,RNIND_D16 'a','I','E','E' RS,RNIND_D16 'b','E','S','E' RS,RN 'b','E','S','E' IMM4,RNDEC 'b','E','I','E' IMM4,RNINC 'b','E','I','E' RS,RNIND 'b','E','S','E' RS,RNINC 'b','E','S','E' RS,RNDEC 'b','E','S','E' IMM4,RNIND 'b','E','I','E' IMM4,RN 'b','E','I','E' RS,RNIND_D8 'b','E','S','E' IMM4,ABS8 'b','E','I','E' RS,ABS8 'b','E','S','E' IMM4,RNIND_D8 'b','E','I','E' IMM4,ABS16 'b','E','I','E' RS,RNIND_D16 'b','E','S','E' RS,ABS16 'b','E','S','E' IMM4,RNIND_D16 'b','E','I','E' RS,RNIND_D8 'b','E','S','E' RNIND_D16,RD 'a','E','D','D' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RNIND_D16,RD 'a','E','D','D' RNIND_D16,RD 'a','E','D','D' IMM8,CRB 's','I','S','S' IMM16,CRW 's','I','S','S' RNIND_D8,RD 'a','E','D','D' IMM4,RNIND_D16 'b','E','I','E' RNIND_D16,RD '-','E','D','D' RNIND_D16,RD 'm','E','D','D' RS,RNIND_D16 'b','E','S','E' IMM4,RNIND_D16 'b','E','I','E' IMM4,RNIND_D16 'b','E','I','E' QIM,RNIND_D16 'a','I','E','E' RNIND_D16,RD '-','E','D','D' RNIND_D16,RD 'm','E','D','D' RS,RNIND_D16 'b','E','S','E' RS,RNIND_D16 'b','E','S','E' RNIND_D16,RD 'a','E','D','D' IMM8,RD 'a','E','D','D' IMM8,RD '-','E','D','D' IMM8,RD 'm','E','D','D' IMM8,CRB 's','I','S','S' IMM8,RD 'a','E','D','D' RN,RD 'm','E','D','D' RNDEC,RD 'm','E','D','D' RNINC,RD 'm','E','D','D' RNIND,RD 'm','E','D','D' ABS8,RD 'm','E','D','D' RNIND_D8,RD 'm','E','D','D' IMM16,RD 'm','E','D','D' ABS16,RD 'm','E','D','D' RNIND_D16,RD 'm','E','D','D' IMM4,ABS8 'b','E','I','E' IMM4,ABS8 'b','E','I','E' QIM,ABS8 'a','I','E','E' ABS8,RD 'a','E','D','D' ABS8,RD '-','E','D','D' ABS8,RD 'm','E','D','D' RS,ABS8 'b','E','S','E' RS,ABS8 'b','E','S','E' ABS8,RD 'a','E','D','D' IMM16,RD 'a','E','D','D' IMM16,RD '-','E','D','D' IMM16,RD 'm','E','D','D' IMM16,CRW 's','I','S','S' IMM16,RD 'a','E','D','D' IMM4,ABS8 'b','E','I','E' QIM,ABS8 'a','I','E','E' ABS8,RD 'a','E','D','D' ABS8,RD '-','E','D','D' RN,RD 'a','E','D','D' RNINC,RD 'a','E','D','D' RNIND,RD 'a','E','D','D' RNDEC,RD 'a','E','D','D' ABS8,RD 'a','E','D','D' RNIND_D8,RD 'a','E','D','D' ABS16,RD 'a','E','D','D' IMM16,RD 'a','E','D','D' RNIND_D16,RD 'a','E','D','D' 0,0 '-','!','!','!' IMM4,ABS8 'b','E','I','E' ABS8,RD 'm','E','D','D' RS,ABS8 'b','E','S','E' RS,ABS8 'b','E','S','E' ABS8,RD 'a','E','D','D' IMM4,ABS16 'b','E','I','E' ABS16,RD 'a','E','D','D' ABS16,RD '-','E','D','D' ABS16,RD 'm','E','D','D' RS,ABS16 'b','E','S','E' ABS16,RD 'a','E','D','D' IMM4,ABS16 'b','E','I','E' ABS16,RD '-','E','D','D' ABS16,RD 'm','E','D','D' RS,ABS16 'b','E','S','E' ABS16,RD 'a','E','D','D' PCREL8,0 '-','B','!','!' RN,RD '-','E','D','D' RNIND,RD '-','E','D','D' RNINC,RD '-','E','D','D' RNDEC,RD '-','E','D','D' ABS8,RD '-','E','D','D' RNIND_D8,RD '-','E','D','D' ABS16,RD '-','E','D','D' IMM16,RD '-','E','D','D' RNIND_D16,RD '-','E','D','D' IMM4,ABS16 'b','E','I','E' QIM,ABS16 'a','I','E','E' RS,ABS16 'b','E','S','E' IMM4,ABS16 'b','E','I','E' QIM,ABS16 'a','I','E','E' ABS16,RD 'a','E','D','D' RS,ABS16 'b','E','S','E' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' QIM,RN 'a','I','E','E' QIM,RNDEC 'a','I','E','E' QIM,RNINC 'a','I','E','E' QIM,RNIND 'a','I','E','E' QIM,ABS8 'a','I','E','E' QIM,RNIND_D8 'a','I','E','E' QIM,ABS16 'a','I','E','E' QIM,RNIND_D16 'a','I','E','E' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL8,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' PCREL16,0 '-','B','!','!' RN,RD 'a','E','D','D' RNDEC,RD 'a','E','D','D' RNINC,RD 'a','E','D','D' RNIND,RD 'a','E','D','D' ABS8,RD 'a','E','D','D' RNIND_D8,RD 'a','E','D','D' ABS16,RD 'a','E','D','D' IMM16,RD 'a','E','D','D' RNIND_D16,RD 'a','E','D','D' RN,RD 'a','E','D','D' QIM,RN 'a','I','E','E' QIM,RNIND 'a','I','E','E' RNDEC,RD 'a','E','D','D' QIM,RNDEC 'a','I','E','E' QIM,RNINC 'a','I','E','E' RNIND,RD 'a','E','D','D' RNINC,RD 'a','E','D','D' QIM,ABS8 'a','I','E','E' QIM,RNIND_D8 'a','I','E','E' ABS8,RD 'a','E','D','D' RNIND_D8,RD 'a','E','D','D' ABS16,RD 'a','E','D','D' QIM,RNIND_D16 'a','I','E','E' IMM16,RD 'a','E','D','D' QIM,ABS16 'a','I','E','E' RNIND_D16,RD 'a','E','D','D' RN,RD 'a','E','D','D' QIM,RN 'a','I','E','E' QIM,RNINC 'a','I','E','E' RNDEC,RD 'a','E','D','D' QIM,RNIND 'a','I','E','E' RNINC,RD 'a','E','D','D' QIM,RNDEC 'a','I','E','E' RNIND,RD 'a','E','D','D' QIM,RNIND_D8 'a','I','E','E' IMM8,RD 'a','E','D','D' QIM,ABS8 'a','I','E','E' ABS8,RD 'a','E','D','D' RNIND_D8,RD 'a','E','D','D' QIM,RNIND_D16 'a','I','E','E' QIM,ABS16 'a','I','E','E' ABS16,RD 'a','E','D','D' RNIND_D16,RD 'a','E','D','D' RN,RD 'a','E','D','D' QIM,RN 'a','I','E','E' QIM,RNDEC 'a','I','E','E' RNDEC,RD 'a','E','D','D' QIM,RNIND 'a','I','E','E' QIM,RNINC 'a','I','E','E' RNINC,RD 'a','E','D','D' RNIND,RD 'a','E','D','D' QIM,ABS8 'a','I','E','E' QIM,RNIND_D8 'a','I','E','E' RNIND_D8,RD 'a','E','D','D' ABS8,RD 'a','E','D','D' ABS16,RD 'a','E','D','D' QIM,RNIND_D16 'a','I','E','E' IMM16,RD 'a','E','D','D' QIM,ABS16 'a','I','E','E' RNIND_D16,RD 'a','E','D','D' */ 0,0,0} #endif ; #endif gdb-4.13/opcodes/hppa-dis.c 666 34562 1752 44155 5524770112 14076 0ustar fnfcygnus/* Disassembler for the PA-RISC. Somewhat derived from sparc-pinsn.c. Copyright 1989, 1990, 1992, 1993 Free Software Foundation, Inc. Contributed by the Center for Software Science at the University of Utah (pa-gdb-bugs@cs.utah.edu). 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "sysdep.h" #include "dis-asm.h" #include "opcode/hppa.h" /* Integer register names, indexed by the numbers which appear in the opcodes. */ static const char *const reg_names[] = {"flags", "r1", "rp", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", "r16", "r17", "r18", "r19", "r20", "r21", "r22", "arg3", "arg2", "arg1", "arg0", "dp", "ret0", "ret1", "sp", "r31"}; /* Floating point register names, indexed by the numbers which appear in the opcodes. */ static const char *const fp_reg_names[] = {"fpsr", "fpe2", "fpe4", "fpe6", "fr4", "fr5", "fr6", "fr7", "fr8", "fr9", "fr10", "fr11", "fr12", "fr13", "fr14", "fr15", "fr16", "fr17", "fr18", "fr19", "fr20", "fr21", "fr22", "fr23", "fr24", "fr25", "fr26", "fr27", "fr28", "fr29", "fr30", "fr31"}; typedef unsigned int CORE_ADDR; /* Get at various relevent fields of an instruction word. */ #define MASK_5 0x1f #define MASK_11 0x7ff #define MASK_14 0x3fff #define MASK_21 0x1fffff /* This macro gets bit fields using HP's numbering (MSB = 0) */ #define GET_FIELD(X, FROM, TO) \ ((X) >> (31 - (TO)) & ((1 << ((TO) - (FROM) + 1)) - 1)) /* Some of these have been converted to 2-d arrays because they consume less storage this way. If the maintenance becomes a problem, convert them back to const 1-d pointer arrays. */ static const char control_reg[][6] = { "rctr", "cr1", "cr2", "cr3", "cr4", "cr5", "cr6", "cr7", "pidr1", "pidr2", "ccr", "sar", "pidr3", "pidr4", "iva", "eiem", "itmr", "pcsq", "pcoq", "iir", "isr", "ior", "ipsw", "eirr", "tr0", "tr1", "tr2", "tr3", "tr4", "tr5", "tr6", "tr7" }; static const char compare_cond_names[][5] = { "", ",=", ",<", ",<=", ",<<", ",<<=", ",sv", ",od", ",tr", ",<>", ",>=", ",>", ",>>=", ",>>", ",nsv", ",ev" }; static const char add_cond_names[][5] = { "", ",=", ",<", ",<=", ",nuv", ",znv", ",sv", ",od", ",tr", ",<>", ",>=", ",>", ",uv", ",vnz", ",nsv", ",ev" }; static const char *const logical_cond_names[] = { "", ",=", ",<", ",<=", 0, 0, 0, ",od", ",tr", ",<>", ",>=", ",>", 0, 0, 0, ",ev"}; static const char *const unit_cond_names[] = { "", 0, ",sbz", ",shz", ",sdc", 0, ",sbc", ",shc", ",tr", 0, ",nbz", ",nhz", ",ndc", 0, ",nbc", ",nhc" }; static const char shift_cond_names[][4] = { "", ",=", ",<", ",od", ",tr", ",<>", ",>=", ",ev" }; static const char index_compl_names[][4] = {"", ",m", ",s", ",sm"}; static const char short_ldst_compl_names[][4] = {"", ",ma", "", ",mb"}; static const char *const short_bytes_compl_names[] = { "", ",b,m", ",e", ",e,m" }; static const char *const float_format_names[] = {",sgl", ",dbl", "", ",quad"}; static const char float_comp_names[][8] = { ",false?", ",false", ",?", ",!<=>", ",=", ",=t", ",?=", ",!<>", ",!?>=", ",<", ",?<", ",!>=", ",!?>", ",<=", ",?<=", ",!>", ",!?<=", ",>", ",?>", ",!<=", ",!?<", ",>=", ",?>=", ",!<", ",!?=", ",<>", ",!=", ",!=t", ",!?", ",<=>", ",true?", ",true" }; /* For a bunch of different instructions form an index into a completer name table. */ #define GET_COMPL(insn) (GET_FIELD (insn, 26, 26) | \ GET_FIELD (insn, 18, 18) << 1) #define GET_COND(insn) (GET_FIELD ((insn), 16, 18) + \ (GET_FIELD ((insn), 19, 19) ? 8 : 0)) /* Utility function to print registers. Put these first, so gcc's function inlining can do its stuff. */ #define fputs_filtered(STR,F) (*info->fprintf_func) (info->stream, "%s", STR) static void fput_reg (reg, info) unsigned reg; disassemble_info *info; { (*info->fprintf_func) (info->stream, reg ? reg_names[reg] : "r0"); } static void fput_fp_reg (reg, info) unsigned reg; disassemble_info *info; { (*info->fprintf_func) (info->stream, reg ? fp_reg_names[reg] : "fr0"); } static void fput_fp_reg_r (reg, info) unsigned reg; disassemble_info *info; { /* Special case floating point exception registers. */ if (reg < 4) (*info->fprintf_func) (info->stream, "fpe%d", reg * 2 + 1); else (*info->fprintf_func) (info->stream, "%sR", reg ? fp_reg_names[reg] : "fr0"); } static void fput_creg (reg, info) unsigned reg; disassemble_info *info; { (*info->fprintf_func) (info->stream, control_reg[reg]); } /* print constants with sign */ static void fput_const (num, info) unsigned num; disassemble_info *info; { if ((int)num < 0) (*info->fprintf_func) (info->stream, "-%x", -(int)num); else (*info->fprintf_func) (info->stream, "%x", num); } /* Routines to extract various sized constants out of hppa instructions. */ /* This assumes that no garbage lies outside of the lower bits of value. */ static int sign_extend (val, bits) unsigned val, bits; { return (int)(val >> (bits - 1) ? (-1 << bits) | val : val); } /* For many immediate values the sign bit is the low bit! */ static int low_sign_extend (val, bits) unsigned val, bits; { return (int)((val & 0x1 ? (-1 << (bits - 1)) : 0) | val >> 1); } /* extract the immediate field from a ld{bhw}s instruction */ #if 0 /* not used */ static unsigned get_field (val, from, to) unsigned val, from, to; { val = val >> (31 - to); return val & ((1 << (32 - from)) - 1); } static unsigned set_field (val, from, to, new_val) unsigned *val, from, to, new_val; { unsigned mask = ~((1 << (to - from + 1)) << (31 - from)); return *val = (*val & mask) | (new_val << (31 - from)); } #endif /* extract a 3-bit space register number from a be, ble, mtsp or mfsp */ static int extract_3 (word) unsigned word; { return GET_FIELD (word, 18, 18) << 2 | GET_FIELD (word, 16, 17); } static int extract_5_load (word) unsigned word; { return low_sign_extend (word >> 16 & MASK_5, 5); } /* extract the immediate field from a st{bhw}s instruction */ static int extract_5_store (word) unsigned word; { return low_sign_extend (word & MASK_5, 5); } /* extract the immediate field from a break instruction */ static unsigned extract_5r_store (word) unsigned word; { return (word & MASK_5); } /* extract the immediate field from a {sr}sm instruction */ static unsigned extract_5R_store (word) unsigned word; { return (word >> 16 & MASK_5); } /* extract the immediate field from a bb instruction */ static unsigned extract_5Q_store (word) unsigned word; { return (word >> 21 & MASK_5); } /* extract an 11 bit immediate field */ static int extract_11 (word) unsigned word; { return low_sign_extend (word & MASK_11, 11); } /* extract a 14 bit immediate field */ static int extract_14 (word) unsigned word; { return low_sign_extend (word & MASK_14, 14); } #if 0 /* deposit a 14 bit constant in a word */ static unsigned deposit_14 (opnd, word) int opnd; unsigned word; { unsigned sign = (opnd < 0 ? 1 : 0); return word | ((unsigned)opnd << 1 & MASK_14) | sign; } #endif /* extract a 21 bit constant */ static int extract_21 (word) unsigned word; { int val; word &= MASK_21; word <<= 11; val = GET_FIELD (word, 20, 20); val <<= 11; val |= GET_FIELD (word, 9, 19); val <<= 2; val |= GET_FIELD (word, 5, 6); val <<= 5; val |= GET_FIELD (word, 0, 4); val <<= 2; val |= GET_FIELD (word, 7, 8); return sign_extend (val, 21) << 11; } #if 0 /* deposit a 21 bit constant in a word. Although 21 bit constants are usually the top 21 bits of a 32 bit constant, we assume that only the low 21 bits of opnd are relevant */ static unsigned deposit_21 (opnd, word) unsigned opnd, word; { unsigned val = 0; val |= GET_FIELD (opnd, 11 + 14, 11 + 18); val <<= 2; val |= GET_FIELD (opnd, 11 + 12, 11 + 13); val <<= 2; val |= GET_FIELD (opnd, 11 + 19, 11 + 20); val <<= 11; val |= GET_FIELD (opnd, 11 + 1, 11 + 11); val <<= 1; val |= GET_FIELD (opnd, 11 + 0, 11 + 0); return word | val; } #endif /* extract a 12 bit constant from branch instructions */ static int extract_12 (word) unsigned word; { return sign_extend (GET_FIELD (word, 19, 28) | GET_FIELD (word, 29, 29) << 10 | (word & 0x1) << 11, 12) << 2; } /* extract a 17 bit constant from branch instructions, returning the 19 bit signed value. */ static int extract_17 (word) unsigned word; { return sign_extend (GET_FIELD (word, 19, 28) | GET_FIELD (word, 29, 29) << 10 | GET_FIELD (word, 11, 15) << 11 | (word & 0x1) << 16, 17) << 2; } /* Print one instruction. */ int print_insn_hppa (memaddr, info) bfd_vma memaddr; disassemble_info *info; { unsigned int insn, i, op; { int status = (*info->read_memory_func) (memaddr, (bfd_byte*) &insn, sizeof (insn), info); if (status != 0) { (*info->memory_error_func) (status, memaddr, info); return -1; } } for (i = 0; i < NUMOPCODES; ++i) { const struct pa_opcode *opcode = &pa_opcodes[i]; if ((insn & opcode->mask) == opcode->match) { register const char *s; (*info->fprintf_func) (info->stream, "%s", opcode->name); if (!strchr ("cfCY~nHNZFIMadu|", opcode->args[0])) (*info->fprintf_func) (info->stream, " "); for (s = opcode->args; *s != '\0'; ++s) { switch (*s) { case 'x': fput_reg (GET_FIELD (insn, 11, 15), info); break; case 'X': if (GET_FIELD (insn, 25, 25)) fput_fp_reg_r (GET_FIELD (insn, 11, 15), info); else fput_fp_reg (GET_FIELD (insn, 11, 15), info); break; case 'b': fput_reg (GET_FIELD (insn, 6, 10), info); break; case '^': fput_creg (GET_FIELD (insn, 6, 10), info); break; case 'E': if (GET_FIELD (insn, 25, 25)) fput_fp_reg_r (GET_FIELD (insn, 6, 10), info); else fput_fp_reg (GET_FIELD (insn, 6, 10), info); break; case 't': fput_reg (GET_FIELD (insn, 27, 31), info); break; case 'v': if (GET_FIELD (insn, 25, 25)) fput_fp_reg_r (GET_FIELD (insn, 27, 31), info); else fput_fp_reg (GET_FIELD (insn, 27, 31), info); break; case 'y': fput_fp_reg (GET_FIELD (insn, 27, 31), info); break; case '4': { int reg = GET_FIELD (insn, 6, 10); reg |= (GET_FIELD (insn, 26, 26) << 4); fput_fp_reg (reg, info); break; } case '6': { int reg = GET_FIELD (insn, 11, 15); reg |= (GET_FIELD (insn, 26, 26) << 4); fput_fp_reg (reg, info); break; } case '7': { int reg = GET_FIELD (insn, 27, 31); reg |= (GET_FIELD (insn, 26, 26) << 4); fput_fp_reg (reg, info); break; } case '8': { int reg = GET_FIELD (insn, 16, 20); reg |= (GET_FIELD (insn, 26, 26) << 4); fput_fp_reg (reg, info); break; } case '9': { int reg = GET_FIELD (insn, 21, 25); reg |= (GET_FIELD (insn, 26, 26) << 4); fput_fp_reg (reg, info); break; } case '5': fput_const (extract_5_load (insn), info); break; case 's': (*info->fprintf_func) (info->stream, "sr%d", GET_FIELD (insn, 16, 17)); break; case 'S': (*info->fprintf_func) (info->stream, "sr%d", extract_3 (insn)); break; case 'c': (*info->fprintf_func) (info->stream, "%s ", index_compl_names[GET_COMPL (insn)]); break; case 'C': (*info->fprintf_func) (info->stream, "%s ", short_ldst_compl_names[GET_COMPL (insn)]); break; case 'Y': (*info->fprintf_func) (info->stream, "%s ", short_bytes_compl_names[GET_COMPL (insn)]); break; /* these four conditions are for the set of instructions which distinguish true/false conditions by opcode rather than by the 'f' bit (sigh): comb, comib, addb, addib */ case '<': fputs_filtered (compare_cond_names[GET_FIELD (insn, 16, 18)], info); break; case '?': fputs_filtered (compare_cond_names[GET_FIELD (insn, 16, 18) + GET_FIELD (insn, 4, 4) * 8], info); break; case '@': fputs_filtered (add_cond_names[GET_FIELD (insn, 16, 18) + GET_FIELD (insn, 4, 4) * 8], info); break; case 'a': (*info->fprintf_func) (info->stream, "%s ", compare_cond_names[GET_COND (insn)]); break; case 'd': (*info->fprintf_func) (info->stream, "%s ", add_cond_names[GET_COND (insn)]); break; case '!': (*info->fprintf_func) (info->stream, "%s", add_cond_names[GET_FIELD (insn, 16, 18)]); break; case '&': (*info->fprintf_func) (info->stream, "%s ", logical_cond_names[GET_COND (insn)]); break; case 'U': (*info->fprintf_func) (info->stream, "%s ", unit_cond_names[GET_COND (insn)]); break; case '|': case '>': case '~': (*info->fprintf_func) (info->stream, "%s", shift_cond_names[GET_FIELD (insn, 16, 18)]); /* If the next character in args is 'n', it will handle putting out the space. */ if (s[1] != 'n') (*info->fprintf_func) (info->stream, " "); break; case 'V': fput_const (extract_5_store (insn), info); break; case 'r': fput_const (extract_5r_store (insn), info); break; case 'R': fput_const (extract_5R_store (insn), info); break; case 'Q': fput_const (extract_5Q_store (insn), info); break; case 'i': fput_const (extract_11 (insn), info); break; case 'j': fput_const (extract_14 (insn), info); break; case 'k': fput_const (extract_21 (insn), info); break; case 'n': if (insn & 0x2) (*info->fprintf_func) (info->stream, ",n "); else (*info->fprintf_func) (info->stream, " "); break; case 'N': if ((insn & 0x20) && s[1]) (*info->fprintf_func) (info->stream, ",n "); else if (insn & 0x20) (*info->fprintf_func) (info->stream, ",n"); else if (s[1]) (*info->fprintf_func) (info->stream, " "); break; case 'w': (*info->print_address_func) (memaddr + 8 + extract_12 (insn), info); break; case 'W': /* 17 bit PC-relative branch. */ (*info->print_address_func) ((memaddr + 8 + extract_17 (insn)), info); break; case 'z': /* 17 bit displacement. This is an offset from a register so it gets disasssembled as just a number, not any sort of address. */ fput_const (extract_17 (insn), info); break; case 'p': (*info->fprintf_func) (info->stream, "%d", 31 - GET_FIELD (insn, 22, 26)); break; case 'P': (*info->fprintf_func) (info->stream, "%d", GET_FIELD (insn, 22, 26)); break; case 'T': (*info->fprintf_func) (info->stream, "%d", 32 - GET_FIELD (insn, 27, 31)); break; case 'A': fput_const (GET_FIELD (insn, 6, 18), info); break; case 'Z': if (GET_FIELD (insn, 26, 26)) (*info->fprintf_func) (info->stream, ",m "); else (*info->fprintf_func) (info->stream, " "); break; case 'D': fput_const (GET_FIELD (insn, 6, 31), info); break; case 'f': (*info->fprintf_func) (info->stream, ",%d", GET_FIELD (insn, 23, 25)); break; case 'O': fput_const ((GET_FIELD (insn, 6,20) << 5 | GET_FIELD (insn, 27, 31)), info); break; case 'o': fput_const (GET_FIELD (insn, 6, 20), info); break; case '2': fput_const ((GET_FIELD (insn, 6, 22) << 5 | GET_FIELD (insn, 27, 31)), info); break; case '1': fput_const ((GET_FIELD (insn, 11, 20) << 5 | GET_FIELD (insn, 27, 31)), info); break; case '0': fput_const ((GET_FIELD (insn, 16, 20) << 5 | GET_FIELD (insn, 27, 31)), info); break; case 'u': (*info->fprintf_func) (info->stream, ",%d", GET_FIELD (insn, 23, 25)); break; case 'F': /* if no destination completer and not before a completer for fcmp, need a space here */ if (GET_FIELD (insn, 21, 22) == 1 || s[1] == 'M') fputs_filtered (float_format_names[GET_FIELD (insn, 19, 20)], info); else (*info->fprintf_func) (info->stream, "%s ", float_format_names[GET_FIELD (insn, 19, 20)]); break; case 'G': (*info->fprintf_func) (info->stream, "%s ", float_format_names[GET_FIELD (insn, 17, 18)]); break; case 'H': if (GET_FIELD (insn, 26, 26) == 1) (*info->fprintf_func) (info->stream, "%s ", float_format_names[0]); else (*info->fprintf_func) (info->stream, "%s ", float_format_names[1]); break; case 'I': /* if no destination completer and not before a completer for fcmp, need a space here */ if (GET_FIELD (insn, 21, 22) == 1 || s[1] == 'M') fputs_filtered (float_format_names[GET_FIELD (insn, 20, 20)], info); else (*info->fprintf_func) (info->stream, "%s ", float_format_names[GET_FIELD (insn, 20, 20)]); break; case 'J': if (GET_FIELD (insn, 24, 24)) fput_fp_reg_r (GET_FIELD (insn, 6, 10), info); else fput_fp_reg (GET_FIELD (insn, 6, 10), info); break; case 'K': if (GET_FIELD (insn, 19, 19)) fput_fp_reg_r (GET_FIELD (insn, 11, 15), info); else fput_fp_reg (GET_FIELD (insn, 11, 15), info); break; case 'M': (*info->fprintf_func) (info->stream, "%s ", float_comp_names[GET_FIELD (insn, 27, 31)]); break; default: (*info->fprintf_func) (info->stream, "%c", *s); break; } } return sizeof(insn); } } (*info->fprintf_func) (info->stream, "#%8x", insn); return sizeof(insn); } gdb-4.13/opcodes/i386-dis.c 666 34562 1752 112272 5546241701 13654 0ustar fnfcygnus/* Print i386 instructions for GDB, the GNU debugger. Copyright (C) 1988, 1989, 1991, 1993, 1994 Free Software Foundation, Inc. This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * 80386 instruction printer by Pace Willisson (pace@prep.ai.mit.edu) * July 1988 * modified by John Hassey (hassey@dg-rtp.dg.com) */ /* * The main tables describing the instructions is essentially a copy * of the "Opcode Map" chapter (Appendix A) of the Intel 80386 * Programmers Manual. Usually, there is a capital letter, followed * by a small letter. The capital letter tell the addressing mode, * and the small letter tells about the operand size. Refer to * the Intel manual for details. */ #include "dis-asm.h" #include "sysdep.h" #define MAXLEN 20 #include struct dis_private { /* Points to first byte not fetched. */ bfd_byte *max_fetched; bfd_byte the_buffer[MAXLEN]; bfd_vma insn_start; jmp_buf bailout; }; /* Make sure that bytes from INFO->PRIVATE_DATA->BUFFER (inclusive) to ADDR (exclusive) are valid. Returns 1 for success, longjmps on error. */ #define FETCH_DATA(info, addr) \ ((addr) <= ((struct dis_private *)(info->private_data))->max_fetched \ ? 1 : fetch_data ((info), (addr))) static int fetch_data (info, addr) struct disassemble_info *info; bfd_byte *addr; { int status; struct dis_private *priv = (struct dis_private *)info->private_data; bfd_vma start = priv->insn_start + (priv->max_fetched - priv->the_buffer); status = (*info->read_memory_func) (start, priv->max_fetched, addr - priv->max_fetched, info); if (status != 0) { (*info->memory_error_func) (status, start, info); longjmp (priv->bailout, 1); } else priv->max_fetched = addr; return 1; } #define Eb OP_E, b_mode #define indirEb OP_indirE, b_mode #define Gb OP_G, b_mode #define Ev OP_E, v_mode #define indirEv OP_indirE, v_mode #define Ew OP_E, w_mode #define Ma OP_E, v_mode #define M OP_E, 0 #define Mp OP_E, 0 /* ? */ #define Gv OP_G, v_mode #define Gw OP_G, w_mode #define Rw OP_rm, w_mode #define Rd OP_rm, d_mode #define Ib OP_I, b_mode #define sIb OP_sI, b_mode /* sign extened byte */ #define Iv OP_I, v_mode #define Iw OP_I, w_mode #define Jb OP_J, b_mode #define Jv OP_J, v_mode #define ONE OP_ONE, 0 #define Cd OP_C, d_mode #define Dd OP_D, d_mode #define Td OP_T, d_mode #define eAX OP_REG, eAX_reg #define eBX OP_REG, eBX_reg #define eCX OP_REG, eCX_reg #define eDX OP_REG, eDX_reg #define eSP OP_REG, eSP_reg #define eBP OP_REG, eBP_reg #define eSI OP_REG, eSI_reg #define eDI OP_REG, eDI_reg #define AL OP_REG, al_reg #define CL OP_REG, cl_reg #define DL OP_REG, dl_reg #define BL OP_REG, bl_reg #define AH OP_REG, ah_reg #define CH OP_REG, ch_reg #define DH OP_REG, dh_reg #define BH OP_REG, bh_reg #define AX OP_REG, ax_reg #define DX OP_REG, dx_reg #define indirDX OP_REG, indir_dx_reg #define Sw OP_SEG, w_mode #define Ap OP_DIR, lptr #define Av OP_DIR, v_mode #define Ob OP_OFF, b_mode #define Ov OP_OFF, v_mode #define Xb OP_DSSI, b_mode #define Xv OP_DSSI, v_mode #define Yb OP_ESDI, b_mode #define Yv OP_ESDI, v_mode #define es OP_REG, es_reg #define ss OP_REG, ss_reg #define cs OP_REG, cs_reg #define ds OP_REG, ds_reg #define fs OP_REG, fs_reg #define gs OP_REG, gs_reg int OP_E(), OP_indirE(), OP_G(), OP_I(), OP_sI(), OP_REG(); int OP_J(), OP_SEG(); int OP_DIR(), OP_OFF(), OP_DSSI(), OP_ESDI(), OP_ONE(), OP_C(); int OP_D(), OP_T(), OP_rm(); static void dofloat (), putop (), append_prefix (), set_op (); static int get16 (), get32 (); #define b_mode 1 #define v_mode 2 #define w_mode 3 #define d_mode 4 #define es_reg 100 #define cs_reg 101 #define ss_reg 102 #define ds_reg 103 #define fs_reg 104 #define gs_reg 105 #define eAX_reg 107 #define eCX_reg 108 #define eDX_reg 109 #define eBX_reg 110 #define eSP_reg 111 #define eBP_reg 112 #define eSI_reg 113 #define eDI_reg 114 #define lptr 115 #define al_reg 116 #define cl_reg 117 #define dl_reg 118 #define bl_reg 119 #define ah_reg 120 #define ch_reg 121 #define dh_reg 122 #define bh_reg 123 #define ax_reg 124 #define cx_reg 125 #define dx_reg 126 #define bx_reg 127 #define sp_reg 128 #define bp_reg 129 #define si_reg 130 #define di_reg 131 #define indir_dx_reg 150 #define GRP1b NULL, NULL, 0 #define GRP1S NULL, NULL, 1 #define GRP1Ss NULL, NULL, 2 #define GRP2b NULL, NULL, 3 #define GRP2S NULL, NULL, 4 #define GRP2b_one NULL, NULL, 5 #define GRP2S_one NULL, NULL, 6 #define GRP2b_cl NULL, NULL, 7 #define GRP2S_cl NULL, NULL, 8 #define GRP3b NULL, NULL, 9 #define GRP3S NULL, NULL, 10 #define GRP4 NULL, NULL, 11 #define GRP5 NULL, NULL, 12 #define GRP6 NULL, NULL, 13 #define GRP7 NULL, NULL, 14 #define GRP8 NULL, NULL, 15 #define FLOATCODE 50 #define FLOAT NULL, NULL, FLOATCODE struct dis386 { char *name; int (*op1)(); int bytemode1; int (*op2)(); int bytemode2; int (*op3)(); int bytemode3; }; struct dis386 dis386[] = { /* 00 */ { "addb", Eb, Gb }, { "addS", Ev, Gv }, { "addb", Gb, Eb }, { "addS", Gv, Ev }, { "addb", AL, Ib }, { "addS", eAX, Iv }, { "pushl", es }, { "popl", es }, /* 08 */ { "orb", Eb, Gb }, { "orS", Ev, Gv }, { "orb", Gb, Eb }, { "orS", Gv, Ev }, { "orb", AL, Ib }, { "orS", eAX, Iv }, { "pushl", cs }, { "(bad)" }, /* 0x0f extended opcode escape */ /* 10 */ { "adcb", Eb, Gb }, { "adcS", Ev, Gv }, { "adcb", Gb, Eb }, { "adcS", Gv, Ev }, { "adcb", AL, Ib }, { "adcS", eAX, Iv }, { "pushl", ss }, { "popl", ss }, /* 18 */ { "sbbb", Eb, Gb }, { "sbbS", Ev, Gv }, { "sbbb", Gb, Eb }, { "sbbS", Gv, Ev }, { "sbbb", AL, Ib }, { "sbbS", eAX, Iv }, { "pushl", ds }, { "popl", ds }, /* 20 */ { "andb", Eb, Gb }, { "andS", Ev, Gv }, { "andb", Gb, Eb }, { "andS", Gv, Ev }, { "andb", AL, Ib }, { "andS", eAX, Iv }, { "(bad)" }, /* SEG ES prefix */ { "daa" }, /* 28 */ { "subb", Eb, Gb }, { "subS", Ev, Gv }, { "subb", Gb, Eb }, { "subS", Gv, Ev }, { "subb", AL, Ib }, { "subS", eAX, Iv }, { "(bad)" }, /* SEG CS prefix */ { "das" }, /* 30 */ { "xorb", Eb, Gb }, { "xorS", Ev, Gv }, { "xorb", Gb, Eb }, { "xorS", Gv, Ev }, { "xorb", AL, Ib }, { "xorS", eAX, Iv }, { "(bad)" }, /* SEG SS prefix */ { "aaa" }, /* 38 */ { "cmpb", Eb, Gb }, { "cmpS", Ev, Gv }, { "cmpb", Gb, Eb }, { "cmpS", Gv, Ev }, { "cmpb", AL, Ib }, { "cmpS", eAX, Iv }, { "(bad)" }, /* SEG DS prefix */ { "aas" }, /* 40 */ { "incS", eAX }, { "incS", eCX }, { "incS", eDX }, { "incS", eBX }, { "incS", eSP }, { "incS", eBP }, { "incS", eSI }, { "incS", eDI }, /* 48 */ { "decS", eAX }, { "decS", eCX }, { "decS", eDX }, { "decS", eBX }, { "decS", eSP }, { "decS", eBP }, { "decS", eSI }, { "decS", eDI }, /* 50 */ { "pushS", eAX }, { "pushS", eCX }, { "pushS", eDX }, { "pushS", eBX }, { "pushS", eSP }, { "pushS", eBP }, { "pushS", eSI }, { "pushS", eDI }, /* 58 */ { "popS", eAX }, { "popS", eCX }, { "popS", eDX }, { "popS", eBX }, { "popS", eSP }, { "popS", eBP }, { "popS", eSI }, { "popS", eDI }, /* 60 */ { "pusha" }, { "popa" }, { "boundS", Gv, Ma }, { "arpl", Ew, Gw }, { "(bad)" }, /* seg fs */ { "(bad)" }, /* seg gs */ { "(bad)" }, /* op size prefix */ { "(bad)" }, /* adr size prefix */ /* 68 */ { "pushS", Iv }, /* 386 book wrong */ { "imulS", Gv, Ev, Iv }, { "pushl", sIb }, /* push of byte really pushes 4 bytes */ { "imulS", Gv, Ev, Ib }, { "insb", Yb, indirDX }, { "insS", Yv, indirDX }, { "outsb", indirDX, Xb }, { "outsS", indirDX, Xv }, /* 70 */ { "jo", Jb }, { "jno", Jb }, { "jb", Jb }, { "jae", Jb }, { "je", Jb }, { "jne", Jb }, { "jbe", Jb }, { "ja", Jb }, /* 78 */ { "js", Jb }, { "jns", Jb }, { "jp", Jb }, { "jnp", Jb }, { "jl", Jb }, { "jnl", Jb }, { "jle", Jb }, { "jg", Jb }, /* 80 */ { GRP1b }, { GRP1S }, { "(bad)" }, { GRP1Ss }, { "testb", Eb, Gb }, { "testS", Ev, Gv }, { "xchgb", Eb, Gb }, { "xchgS", Ev, Gv }, /* 88 */ { "movb", Eb, Gb }, { "movS", Ev, Gv }, { "movb", Gb, Eb }, { "movS", Gv, Ev }, { "movw", Ew, Sw }, { "leaS", Gv, M }, { "movw", Sw, Ew }, { "popS", Ev }, /* 90 */ { "nop" }, { "xchgS", eCX, eAX }, { "xchgS", eDX, eAX }, { "xchgS", eBX, eAX }, { "xchgS", eSP, eAX }, { "xchgS", eBP, eAX }, { "xchgS", eSI, eAX }, { "xchgS", eDI, eAX }, /* 98 */ { "cwtl" }, { "cltd" }, { "lcall", Ap }, { "(bad)" }, /* fwait */ { "pushf" }, { "popf" }, { "sahf" }, { "lahf" }, /* a0 */ { "movb", AL, Ob }, { "movS", eAX, Ov }, { "movb", Ob, AL }, { "movS", Ov, eAX }, { "movsb", Yb, Xb }, { "movsS", Yv, Xv }, { "cmpsb", Yb, Xb }, { "cmpsS", Yv, Xv }, /* a8 */ { "testb", AL, Ib }, { "testS", eAX, Iv }, { "stosb", Yb, AL }, { "stosS", Yv, eAX }, { "lodsb", AL, Xb }, { "lodsS", eAX, Xv }, { "scasb", AL, Yb }, { "scasS", eAX, Yv }, /* b0 */ { "movb", AL, Ib }, { "movb", CL, Ib }, { "movb", DL, Ib }, { "movb", BL, Ib }, { "movb", AH, Ib }, { "movb", CH, Ib }, { "movb", DH, Ib }, { "movb", BH, Ib }, /* b8 */ { "movS", eAX, Iv }, { "movS", eCX, Iv }, { "movS", eDX, Iv }, { "movS", eBX, Iv }, { "movS", eSP, Iv }, { "movS", eBP, Iv }, { "movS", eSI, Iv }, { "movS", eDI, Iv }, /* c0 */ { GRP2b }, { GRP2S }, { "ret", Iw }, { "ret" }, { "lesS", Gv, Mp }, { "ldsS", Gv, Mp }, { "movb", Eb, Ib }, { "movS", Ev, Iv }, /* c8 */ { "enter", Iw, Ib }, { "leave" }, { "lret", Iw }, { "lret" }, { "int3" }, { "int", Ib }, { "into" }, { "iret" }, /* d0 */ { GRP2b_one }, { GRP2S_one }, { GRP2b_cl }, { GRP2S_cl }, { "aam", Ib }, { "aad", Ib }, { "(bad)" }, { "xlat" }, /* d8 */ { FLOAT }, { FLOAT }, { FLOAT }, { FLOAT }, { FLOAT }, { FLOAT }, { FLOAT }, { FLOAT }, /* e0 */ { "loopne", Jb }, { "loope", Jb }, { "loop", Jb }, { "jCcxz", Jb }, { "inb", AL, Ib }, { "inS", eAX, Ib }, { "outb", Ib, AL }, { "outS", Ib, eAX }, /* e8 */ { "call", Av }, { "jmp", Jv }, { "ljmp", Ap }, { "jmp", Jb }, { "inb", AL, indirDX }, { "inS", eAX, indirDX }, { "outb", indirDX, AL }, { "outS", indirDX, eAX }, /* f0 */ { "(bad)" }, /* lock prefix */ { "(bad)" }, { "(bad)" }, /* repne */ { "(bad)" }, /* repz */ { "hlt" }, { "cmc" }, { GRP3b }, { GRP3S }, /* f8 */ { "clc" }, { "stc" }, { "cli" }, { "sti" }, { "cld" }, { "std" }, { GRP4 }, { GRP5 }, }; struct dis386 dis386_twobyte[] = { /* 00 */ { GRP6 }, { GRP7 }, { "larS", Gv, Ew }, { "lslS", Gv, Ew }, { "(bad)" }, { "(bad)" }, { "clts" }, { "(bad)" }, /* 08 */ { "invd" }, { "wbinvd" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 10 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 18 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 20 */ /* these are all backward in appendix A of the intel book */ { "movl", Rd, Cd }, { "movl", Rd, Dd }, { "movl", Cd, Rd }, { "movl", Dd, Rd }, { "movl", Rd, Td }, { "(bad)" }, { "movl", Td, Rd }, { "(bad)" }, /* 28 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 30 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 38 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 40 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 48 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 50 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 58 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 60 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 68 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 70 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 78 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* 80 */ { "jo", Jv }, { "jno", Jv }, { "jb", Jv }, { "jae", Jv }, { "je", Jv }, { "jne", Jv }, { "jbe", Jv }, { "ja", Jv }, /* 88 */ { "js", Jv }, { "jns", Jv }, { "jp", Jv }, { "jnp", Jv }, { "jl", Jv }, { "jge", Jv }, { "jle", Jv }, { "jg", Jv }, /* 90 */ { "seto", Eb }, { "setno", Eb }, { "setb", Eb }, { "setae", Eb }, { "sete", Eb }, { "setne", Eb }, { "setbe", Eb }, { "seta", Eb }, /* 98 */ { "sets", Eb }, { "setns", Eb }, { "setp", Eb }, { "setnp", Eb }, { "setl", Eb }, { "setge", Eb }, { "setle", Eb }, { "setg", Eb }, /* a0 */ { "pushl", fs }, { "popl", fs }, { "(bad)" }, { "btS", Ev, Gv }, { "shldS", Ev, Gv, Ib }, { "shldS", Ev, Gv, CL }, { "(bad)" }, { "(bad)" }, /* a8 */ { "pushl", gs }, { "popl", gs }, { "(bad)" }, { "btsS", Ev, Gv }, { "shrdS", Ev, Gv, Ib }, { "shrdS", Ev, Gv, CL }, { "(bad)" }, { "imulS", Gv, Ev }, /* b0 */ { "cmpxchgb", Eb, Gb }, { "cmpxchgS", Ev, Gv }, { "lssS", Gv, Mp }, /* 386 lists only Mp */ { "btrS", Ev, Gv }, { "lfsS", Gv, Mp }, /* 386 lists only Mp */ { "lgsS", Gv, Mp }, /* 386 lists only Mp */ { "movzbS", Gv, Eb }, { "movzwS", Gv, Ew }, /* b8 */ { "(bad)" }, { "(bad)" }, { GRP8 }, { "btcS", Ev, Gv }, { "bsfS", Gv, Ev }, { "bsrS", Gv, Ev }, { "movsbS", Gv, Eb }, { "movswS", Gv, Ew }, /* c0 */ { "xaddb", Eb, Gb }, { "xaddS", Ev, Gv }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* c8 */ { "bswap", eAX }, { "bswap", eCX }, { "bswap", eDX }, { "bswap", eBX }, { "bswap", eSP }, { "bswap", eBP }, { "bswap", eSI }, { "bswap", eDI }, /* d0 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* d8 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* e0 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* e8 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* f0 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, /* f8 */ { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, }; static char obuf[100]; static char *obufp; static char scratchbuf[100]; static unsigned char *start_codep; static unsigned char *codep; static disassemble_info *the_info; static int mod; static int rm; static int reg; static void oappend (); static char *names32[]={ "%eax","%ecx","%edx","%ebx", "%esp","%ebp","%esi","%edi", }; static char *names16[] = { "%ax","%cx","%dx","%bx","%sp","%bp","%si","%di", }; static char *names8[] = { "%al","%cl","%dl","%bl","%ah","%ch","%dh","%bh", }; static char *names_seg[] = { "%es","%cs","%ss","%ds","%fs","%gs","%?","%?", }; struct dis386 grps[][8] = { /* GRP1b */ { { "addb", Eb, Ib }, { "orb", Eb, Ib }, { "adcb", Eb, Ib }, { "sbbb", Eb, Ib }, { "andb", Eb, Ib }, { "subb", Eb, Ib }, { "xorb", Eb, Ib }, { "cmpb", Eb, Ib } }, /* GRP1S */ { { "addS", Ev, Iv }, { "orS", Ev, Iv }, { "adcS", Ev, Iv }, { "sbbS", Ev, Iv }, { "andS", Ev, Iv }, { "subS", Ev, Iv }, { "xorS", Ev, Iv }, { "cmpS", Ev, Iv } }, /* GRP1Ss */ { { "addS", Ev, sIb }, { "orS", Ev, sIb }, { "adcS", Ev, sIb }, { "sbbS", Ev, sIb }, { "andS", Ev, sIb }, { "subS", Ev, sIb }, { "xorS", Ev, sIb }, { "cmpS", Ev, sIb } }, /* GRP2b */ { { "rolb", Eb, Ib }, { "rorb", Eb, Ib }, { "rclb", Eb, Ib }, { "rcrb", Eb, Ib }, { "shlb", Eb, Ib }, { "shrb", Eb, Ib }, { "(bad)" }, { "sarb", Eb, Ib }, }, /* GRP2S */ { { "rolS", Ev, Ib }, { "rorS", Ev, Ib }, { "rclS", Ev, Ib }, { "rcrS", Ev, Ib }, { "shlS", Ev, Ib }, { "shrS", Ev, Ib }, { "(bad)" }, { "sarS", Ev, Ib }, }, /* GRP2b_one */ { { "rolb", Eb }, { "rorb", Eb }, { "rclb", Eb }, { "rcrb", Eb }, { "shlb", Eb }, { "shrb", Eb }, { "(bad)" }, { "sarb", Eb }, }, /* GRP2S_one */ { { "rolS", Ev }, { "rorS", Ev }, { "rclS", Ev }, { "rcrS", Ev }, { "shlS", Ev }, { "shrS", Ev }, { "(bad)" }, { "sarS", Ev }, }, /* GRP2b_cl */ { { "rolb", Eb, CL }, { "rorb", Eb, CL }, { "rclb", Eb, CL }, { "rcrb", Eb, CL }, { "shlb", Eb, CL }, { "shrb", Eb, CL }, { "(bad)" }, { "sarb", Eb, CL }, }, /* GRP2S_cl */ { { "rolS", Ev, CL }, { "rorS", Ev, CL }, { "rclS", Ev, CL }, { "rcrS", Ev, CL }, { "shlS", Ev, CL }, { "shrS", Ev, CL }, { "(bad)" }, { "sarS", Ev, CL } }, /* GRP3b */ { { "testb", Eb, Ib }, { "(bad)", Eb }, { "notb", Eb }, { "negb", Eb }, { "mulb", AL, Eb }, { "imulb", AL, Eb }, { "divb", AL, Eb }, { "idivb", AL, Eb } }, /* GRP3S */ { { "testS", Ev, Iv }, { "(bad)" }, { "notS", Ev }, { "negS", Ev }, { "mulS", eAX, Ev }, { "imulS", eAX, Ev }, { "divS", eAX, Ev }, { "idivS", eAX, Ev }, }, /* GRP4 */ { { "incb", Eb }, { "decb", Eb }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, }, /* GRP5 */ { { "incS", Ev }, { "decS", Ev }, { "call", indirEv }, { "lcall", indirEv }, { "jmp", indirEv }, { "ljmp", indirEv }, { "pushS", Ev }, { "(bad)" }, }, /* GRP6 */ { { "sldt", Ew }, { "str", Ew }, { "lldt", Ew }, { "ltr", Ew }, { "verr", Ew }, { "verw", Ew }, { "(bad)" }, { "(bad)" } }, /* GRP7 */ { { "sgdt", Ew }, { "sidt", Ew }, { "lgdt", Ew }, { "lidt", Ew }, { "smsw", Ew }, { "(bad)" }, { "lmsw", Ew }, { "invlpg", Ew }, }, /* GRP8 */ { { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "btS", Ev, Ib }, { "btsS", Ev, Ib }, { "btrS", Ev, Ib }, { "btcS", Ev, Ib }, } }; #define PREFIX_REPZ 1 #define PREFIX_REPNZ 2 #define PREFIX_LOCK 4 #define PREFIX_CS 8 #define PREFIX_SS 0x10 #define PREFIX_DS 0x20 #define PREFIX_ES 0x40 #define PREFIX_FS 0x80 #define PREFIX_GS 0x100 #define PREFIX_DATA 0x200 #define PREFIX_ADR 0x400 #define PREFIX_FWAIT 0x800 static int prefixes; static void ckprefix () { prefixes = 0; while (1) { FETCH_DATA (the_info, codep + 1); switch (*codep) { case 0xf3: prefixes |= PREFIX_REPZ; break; case 0xf2: prefixes |= PREFIX_REPNZ; break; case 0xf0: prefixes |= PREFIX_LOCK; break; case 0x2e: prefixes |= PREFIX_CS; break; case 0x36: prefixes |= PREFIX_SS; break; case 0x3e: prefixes |= PREFIX_DS; break; case 0x26: prefixes |= PREFIX_ES; break; case 0x64: prefixes |= PREFIX_FS; break; case 0x65: prefixes |= PREFIX_GS; break; case 0x66: prefixes |= PREFIX_DATA; break; case 0x67: prefixes |= PREFIX_ADR; break; case 0x9b: prefixes |= PREFIX_FWAIT; break; default: return; } codep++; } } static int dflag; static int aflag; static char op1out[100], op2out[100], op3out[100]; static int op_address[3], op_ad, op_index[3]; static int start_pc; /* * On the 386's of 1988, the maximum length of an instruction is 15 bytes. * (see topic "Redundant prefixes" in the "Differences from 8086" * section of the "Virtual 8086 Mode" chapter.) * 'pc' should be the address of this instruction, it will * be used to print the target address if this is a relative jump or call * The function returns the length of this instruction in bytes. */ int print_insn_i386 (pc, info) bfd_vma pc; disassemble_info *info; { struct dis386 *dp; int i; int enter_instruction; char *first, *second, *third; int needcomma; struct dis_private priv; bfd_byte *inbuf = priv.the_buffer; info->private_data = (PTR) &priv; priv.max_fetched = priv.the_buffer; priv.insn_start = pc; if (setjmp (priv.bailout) != 0) /* Error return. */ return -1; obuf[0] = 0; op1out[0] = 0; op2out[0] = 0; op3out[0] = 0; op_index[0] = op_index[1] = op_index[2] = -1; the_info = info; start_pc = pc; start_codep = inbuf; codep = inbuf; ckprefix (); FETCH_DATA (info, codep + 1); if (*codep == 0xc8) enter_instruction = 1; else enter_instruction = 0; obufp = obuf; if (prefixes & PREFIX_REPZ) oappend ("repz "); if (prefixes & PREFIX_REPNZ) oappend ("repnz "); if (prefixes & PREFIX_LOCK) oappend ("lock "); if ((prefixes & PREFIX_FWAIT) && ((*codep < 0xd8) || (*codep > 0xdf))) { /* fwait not followed by floating point instruction */ (*info->fprintf_func) (info->stream, "fwait"); return (1); } /* these would be initialized to 0 if disassembling for 8086 or 286 */ dflag = 1; aflag = 1; if (prefixes & PREFIX_DATA) dflag ^= 1; if (prefixes & PREFIX_ADR) { aflag ^= 1; oappend ("addr16 "); } if (*codep == 0x0f) { FETCH_DATA (info, codep + 2); dp = &dis386_twobyte[*++codep]; } else dp = &dis386[*codep]; codep++; /* Fetch the mod/reg/rm byte. FIXME: We should be only fetching this if we need it. As it is, this code loses if there is a one-byte instruction (without a mod/reg/rm byte) at the end of the address space. */ FETCH_DATA (info, codep + 1); mod = (*codep >> 6) & 3; reg = (*codep >> 3) & 7; rm = *codep & 7; if (dp->name == NULL && dp->bytemode1 == FLOATCODE) { dofloat (); } else { if (dp->name == NULL) dp = &grps[dp->bytemode1][reg]; putop (dp->name); obufp = op1out; op_ad = 2; if (dp->op1) (*dp->op1)(dp->bytemode1); obufp = op2out; op_ad = 1; if (dp->op2) (*dp->op2)(dp->bytemode2); obufp = op3out; op_ad = 0; if (dp->op3) (*dp->op3)(dp->bytemode3); } obufp = obuf + strlen (obuf); for (i = strlen (obuf); i < 6; i++) oappend (" "); oappend (" "); (*info->fprintf_func) (info->stream, "%s", obuf); /* enter instruction is printed with operands in the * same order as the intel book; everything else * is printed in reverse order */ if (enter_instruction) { first = op1out; second = op2out; third = op3out; op_ad = op_index[0]; op_index[0] = op_index[2]; op_index[2] = op_ad; } else { first = op3out; second = op2out; third = op1out; } needcomma = 0; if (*first) { if (op_index[0] != -1) (*info->print_address_func) (op_address[op_index[0]], info); else (*info->fprintf_func) (info->stream, "%s", first); needcomma = 1; } if (*second) { if (needcomma) (*info->fprintf_func) (info->stream, ","); if (op_index[1] != -1) (*info->print_address_func) (op_address[op_index[1]], info); else (*info->fprintf_func) (info->stream, "%s", second); needcomma = 1; } if (*third) { if (needcomma) (*info->fprintf_func) (info->stream, ","); if (op_index[2] != -1) (*info->print_address_func) (op_address[op_index[2]], info); else (*info->fprintf_func) (info->stream, "%s", third); } return (codep - inbuf); } char *float_mem[] = { /* d8 */ "fadds", "fmuls", "fcoms", "fcomps", "fsubs", "fsubrs", "fdivs", "fdivrs", /* d9 */ "flds", "(bad)", "fsts", "fstps", "fldenv", "fldcw", "fNstenv", "fNstcw", /* da */ "fiaddl", "fimull", "ficoml", "ficompl", "fisubl", "fisubrl", "fidivl", "fidivrl", /* db */ "fildl", "(bad)", "fistl", "fistpl", "(bad)", "fldt", "(bad)", "fstpt", /* dc */ "faddl", "fmull", "fcoml", "fcompl", "fsubl", "fsubrl", "fdivl", "fdivrl", /* dd */ "fldl", "(bad)", "fstl", "fstpl", "frstor", "(bad)", "fNsave", "fNstsw", /* de */ "fiadd", "fimul", "ficom", "ficomp", "fisub", "fisubr", "fidiv", "fidivr", /* df */ "fild", "(bad)", "fist", "fistp", "fbld", "fildll", "fbstp", "fistpll", }; #define ST OP_ST, 0 #define STi OP_STi, 0 int OP_ST(), OP_STi(); #define FGRPd9_2 NULL, NULL, 0 #define FGRPd9_4 NULL, NULL, 1 #define FGRPd9_5 NULL, NULL, 2 #define FGRPd9_6 NULL, NULL, 3 #define FGRPd9_7 NULL, NULL, 4 #define FGRPda_5 NULL, NULL, 5 #define FGRPdb_4 NULL, NULL, 6 #define FGRPde_3 NULL, NULL, 7 #define FGRPdf_4 NULL, NULL, 8 struct dis386 float_reg[][8] = { /* d8 */ { { "fadd", ST, STi }, { "fmul", ST, STi }, { "fcom", STi }, { "fcomp", STi }, { "fsub", ST, STi }, { "fsubr", ST, STi }, { "fdiv", ST, STi }, { "fdivr", ST, STi }, }, /* d9 */ { { "fld", STi }, { "fxch", STi }, { FGRPd9_2 }, { "(bad)" }, { FGRPd9_4 }, { FGRPd9_5 }, { FGRPd9_6 }, { FGRPd9_7 }, }, /* da */ { { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { FGRPda_5 }, { "(bad)" }, { "(bad)" }, }, /* db */ { { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { FGRPdb_4 }, { "(bad)" }, { "(bad)" }, { "(bad)" }, }, /* dc */ { { "fadd", STi, ST }, { "fmul", STi, ST }, { "(bad)" }, { "(bad)" }, { "fsub", STi, ST }, { "fsubr", STi, ST }, { "fdiv", STi, ST }, { "fdivr", STi, ST }, }, /* dd */ { { "ffree", STi }, { "(bad)" }, { "fst", STi }, { "fstp", STi }, { "fucom", STi }, { "fucomp", STi }, { "(bad)" }, { "(bad)" }, }, /* de */ { { "faddp", STi, ST }, { "fmulp", STi, ST }, { "(bad)" }, { FGRPde_3 }, { "fsubp", STi, ST }, { "fsubrp", STi, ST }, { "fdivp", STi, ST }, { "fdivrp", STi, ST }, }, /* df */ { { "(bad)" }, { "(bad)" }, { "(bad)" }, { "(bad)" }, { FGRPdf_4 }, { "(bad)" }, { "(bad)" }, { "(bad)" }, }, }; char *fgrps[][8] = { /* d9_2 0 */ { "fnop","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)", }, /* d9_4 1 */ { "fchs","fabs","(bad)","(bad)","ftst","fxam","(bad)","(bad)", }, /* d9_5 2 */ { "fld1","fldl2t","fldl2e","fldpi","fldlg2","fldln2","fldz","(bad)", }, /* d9_6 3 */ { "f2xm1","fyl2x","fptan","fpatan","fxtract","fprem1","fdecstp","fincstp", }, /* d9_7 4 */ { "fprem","fyl2xp1","fsqrt","fsincos","frndint","fscale","fsin","fcos", }, /* da_5 5 */ { "(bad)","fucompp","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)", }, /* db_4 6 */ { "feni(287 only)","fdisi(287 only)","fNclex","fNinit", "fNsetpm(287 only)","(bad)","(bad)","(bad)", }, /* de_3 7 */ { "(bad)","fcompp","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)", }, /* df_4 8 */ { "fNstsw","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)", }, }; static void dofloat () { struct dis386 *dp; unsigned char floatop; floatop = codep[-1]; if (mod != 3) { putop (float_mem[(floatop - 0xd8) * 8 + reg]); obufp = op1out; OP_E (v_mode); return; } codep++; dp = &float_reg[floatop - 0xd8][reg]; if (dp->name == NULL) { putop (fgrps[dp->bytemode1][rm]); /* instruction fnstsw is only one with strange arg */ if (floatop == 0xdf && FETCH_DATA (the_info, codep + 1) && *codep == 0xe0) strcpy (op1out, "%eax"); } else { putop (dp->name); obufp = op1out; if (dp->op1) (*dp->op1)(dp->bytemode1); obufp = op2out; if (dp->op2) (*dp->op2)(dp->bytemode2); } } /* ARGSUSED */ int OP_ST (ignore) int ignore; { oappend ("%st"); return (0); } /* ARGSUSED */ int OP_STi (ignore) int ignore; { sprintf (scratchbuf, "%%st(%d)", rm); oappend (scratchbuf); return (0); } /* capital letters in template are macros */ static void putop (template) char *template; { char *p; for (p = template; *p; p++) { switch (*p) { default: *obufp++ = *p; break; case 'C': /* For jcxz/jecxz */ if (aflag == 0) *obufp++ = 'e'; break; case 'N': if ((prefixes & PREFIX_FWAIT) == 0) *obufp++ = 'n'; break; case 'S': /* operand size flag */ if (dflag) *obufp++ = 'l'; else *obufp++ = 'w'; break; } } *obufp = 0; } static void oappend (s) char *s; { strcpy (obufp, s); obufp += strlen (s); *obufp = 0; } static void append_prefix () { if (prefixes & PREFIX_CS) oappend ("%cs:"); if (prefixes & PREFIX_DS) oappend ("%ds:"); if (prefixes & PREFIX_SS) oappend ("%ss:"); if (prefixes & PREFIX_ES) oappend ("%es:"); if (prefixes & PREFIX_FS) oappend ("%fs:"); if (prefixes & PREFIX_GS) oappend ("%gs:"); } int OP_indirE (bytemode) int bytemode; { oappend ("*"); OP_E (bytemode); return (0); } int OP_E (bytemode) int bytemode; { int disp; int havesib; int base; int index; int scale; int havebase; /* skip mod/rm byte */ codep++; havesib = 0; havebase = 0; disp = 0; if (mod == 3) { switch (bytemode) { case b_mode: oappend (names8[rm]); break; case w_mode: oappend (names16[rm]); break; case v_mode: if (dflag) oappend (names32[rm]); else oappend (names16[rm]); break; default: oappend (""); break; } return (0); } append_prefix (); if (rm == 4) { havesib = 1; havebase = 1; FETCH_DATA (the_info, codep + 1); scale = (*codep >> 6) & 3; index = (*codep >> 3) & 7; base = *codep & 7; codep++; } switch (mod) { case 0: switch (rm) { case 4: /* implies havesib and havebase */ if (base == 5) { havebase = 0; disp = get32 (); } break; case 5: disp = get32 (); break; default: havebase = 1; base = rm; break; } break; case 1: FETCH_DATA (the_info, codep + 1); disp = *(char *)codep++; if (rm != 4) { havebase = 1; base = rm; } break; case 2: disp = get32 (); if (rm != 4) { havebase = 1; base = rm; } break; } if (mod != 0 || rm == 5 || (havesib && base == 5)) { sprintf (scratchbuf, "0x%x", disp); oappend (scratchbuf); } if (havebase || havesib) { oappend ("("); if (havebase) oappend (names32[base]); if (havesib) { if (index != 4) { sprintf (scratchbuf, ",%s", names32[index]); oappend (scratchbuf); } sprintf (scratchbuf, ",%d", 1 << scale); oappend (scratchbuf); } oappend (")"); } return (0); } int OP_G (bytemode) int bytemode; { switch (bytemode) { case b_mode: oappend (names8[reg]); break; case w_mode: oappend (names16[reg]); break; case d_mode: oappend (names32[reg]); break; case v_mode: if (dflag) oappend (names32[reg]); else oappend (names16[reg]); break; default: oappend (""); break; } return (0); } static int get32 () { int x = 0; FETCH_DATA (the_info, codep + 4); x = *codep++ & 0xff; x |= (*codep++ & 0xff) << 8; x |= (*codep++ & 0xff) << 16; x |= (*codep++ & 0xff) << 24; return (x); } static int get16 () { int x = 0; FETCH_DATA (the_info, codep + 2); x = *codep++ & 0xff; x |= (*codep++ & 0xff) << 8; return (x); } static void set_op (op) int op; { op_index[op_ad] = op_ad; op_address[op_ad] = op; } int OP_REG (code) int code; { char *s; switch (code) { case indir_dx_reg: s = "(%dx)"; break; case ax_reg: case cx_reg: case dx_reg: case bx_reg: case sp_reg: case bp_reg: case si_reg: case di_reg: s = names16[code - ax_reg]; break; case es_reg: case ss_reg: case cs_reg: case ds_reg: case fs_reg: case gs_reg: s = names_seg[code - es_reg]; break; case al_reg: case ah_reg: case cl_reg: case ch_reg: case dl_reg: case dh_reg: case bl_reg: case bh_reg: s = names8[code - al_reg]; break; case eAX_reg: case eCX_reg: case eDX_reg: case eBX_reg: case eSP_reg: case eBP_reg: case eSI_reg: case eDI_reg: if (dflag) s = names32[code - eAX_reg]; else s = names16[code - eAX_reg]; break; default: s = ""; break; } oappend (s); return (0); } int OP_I (bytemode) int bytemode; { int op; switch (bytemode) { case b_mode: FETCH_DATA (the_info, codep + 1); op = *codep++ & 0xff; break; case v_mode: if (dflag) op = get32 (); else op = get16 (); break; case w_mode: op = get16 (); break; default: oappend (""); return (0); } sprintf (scratchbuf, "$0x%x", op); oappend (scratchbuf); return (0); } int OP_sI (bytemode) int bytemode; { int op; switch (bytemode) { case b_mode: FETCH_DATA (the_info, codep + 1); op = *(char *)codep++; break; case v_mode: if (dflag) op = get32 (); else op = (short)get16(); break; case w_mode: op = (short)get16 (); break; default: oappend (""); return (0); } sprintf (scratchbuf, "$0x%x", op); oappend (scratchbuf); return (0); } int OP_J (bytemode) int bytemode; { int disp; int mask = -1; switch (bytemode) { case b_mode: FETCH_DATA (the_info, codep + 1); disp = *(char *)codep++; break; case v_mode: if (dflag) disp = get32 (); else { disp = (short)get16 (); /* for some reason, a data16 prefix on a jump instruction means that the pc is masked to 16 bits after the displacement is added! */ mask = 0xffff; } break; default: oappend (""); return (0); } disp = (start_pc + codep - start_codep + disp) & mask; set_op (disp); sprintf (scratchbuf, "0x%x", disp); oappend (scratchbuf); return (0); } /* ARGSUSED */ int OP_SEG (dummy) int dummy; { static char *sreg[] = { "%es","%cs","%ss","%ds","%fs","%gs","%?","%?", }; oappend (sreg[reg]); return (0); } int OP_DIR (size) int size; { int seg, offset; switch (size) { case lptr: if (aflag) { offset = get32 (); seg = get16 (); } else { offset = get16 (); seg = get16 (); } sprintf (scratchbuf, "0x%x,0x%x", seg, offset); oappend (scratchbuf); break; case v_mode: if (aflag) offset = get32 (); else offset = (short)get16 (); offset = start_pc + codep - start_codep + offset; set_op (offset); sprintf (scratchbuf, "0x%x", offset); oappend (scratchbuf); break; default: oappend (""); break; } return (0); } /* ARGSUSED */ int OP_OFF (bytemode) int bytemode; { int off; if (aflag) off = get32 (); else off = get16 (); sprintf (scratchbuf, "0x%x", off); oappend (scratchbuf); return (0); } /* ARGSUSED */ int OP_ESDI (dummy) int dummy; { oappend ("%es:("); oappend (aflag ? "%edi" : "%di"); oappend (")"); return (0); } /* ARGSUSED */ int OP_DSSI (dummy) int dummy; { oappend ("%ds:("); oappend (aflag ? "%esi" : "%si"); oappend (")"); return (0); } /* ARGSUSED */ int OP_ONE (dummy) int dummy; { oappend ("1"); return (0); } /* ARGSUSED */ int OP_C (dummy) int dummy; { codep++; /* skip mod/rm */ sprintf (scratchbuf, "%%cr%d", reg); oappend (scratchbuf); return (0); } /* ARGSUSED */ int OP_D (dummy) int dummy; { codep++; /* skip mod/rm */ sprintf (scratchbuf, "%%db%d", reg); oappend (scratchbuf); return (0); } /* ARGSUSED */ int OP_T (dummy) int dummy; { codep++; /* skip mod/rm */ sprintf (scratchbuf, "%%tr%d", reg); oappend (scratchbuf); return (0); } int OP_rm (bytemode) int bytemode; { switch (bytemode) { case d_mode: oappend (names32[rm]); break; case w_mode: oappend (names16[rm]); break; } return (0); } gdb-4.13/opcodes/i960-dis.c 666 34562 1752 47564 5544075543 13654 0ustar fnfcygnus/* Disassemble i80960 instructions. Copyright (C) 1990, 1991 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 2, 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; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "dis-asm.h" static char *reg_names[] = { /* 0 */ "pfp", "sp", "rip", "r3", "r4", "r5", "r6", "r7", /* 8 */ "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", /* 16 */ "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", /* 24 */ "g8", "g9", "g10", "g11", "g12", "g13", "g14", "fp", /* 32 */ "pc", "ac", "ip", "tc", "fp0", "fp1", "fp2", "fp3" }; static FILE *stream; /* Output goes here */ static struct disassemble_info *info; static void print_addr(); static void ctrl(); static void cobr(); static void reg(); static int mem(); static void ea(); static void dstop(); static void regop(); static void invalid(); static int pinsn(); static void put_abs(); /* Print the i960 instruction at address 'memaddr' in debugged memory, on INFO->STREAM. Returns length of the instruction, in bytes. */ int print_insn_i960 (memaddr, info_arg) bfd_vma memaddr; struct disassemble_info *info_arg; { unsigned int word1, word2 = 0xdeadbeef; bfd_byte buffer[8]; int status; info = info_arg; stream = info->stream; /* Read word1. Only read word2 if the instruction needs it, to prevent reading past the end of a section. */ status = (*info->read_memory_func) (memaddr, (bfd_byte *) buffer, 4, info); if (status != 0) { (*info->memory_error_func) (status, memaddr, info); return -1; } word1 = bfd_getl32 (buffer); /* Divide instruction set into classes based on high 4 bits of opcode. */ switch ( (word1 >> 28) & 0xf ) { default: break; case 0x8: case 0x9: case 0xa: case 0xb: case 0xc: /* Read word2. */ status = (*info->read_memory_func) (memaddr + 4, (bfd_byte *) (buffer + 4), 4, info); if (status != 0) { (*info->memory_error_func) (status, memaddr, info); return -1; } word2 = bfd_getl32 (buffer + 4); break; } return pinsn( memaddr, word1, word2 ); } #define IN_GDB /***************************************************************************** * All code below this point should be identical with that of * the disassembler in gdmp960. A noble sentiment, but at least in cosmetic ways (info->fprintf_func), it just ain't so. -kingdon, 31 Mar 93 *****************************************************************************/ struct tabent { char *name; char numops; }; static int pinsn( memaddr, word1, word2 ) unsigned long memaddr; unsigned long word1, word2; { int instr_len; instr_len = 4; put_abs( word1, word2 ); /* Divide instruction set into classes based on high 4 bits of opcode*/ switch ( (word1 >> 28) & 0xf ){ case 0x0: case 0x1: ctrl( memaddr, word1, word2 ); break; case 0x2: case 0x3: cobr( memaddr, word1, word2 ); break; case 0x5: case 0x6: case 0x7: reg( word1 ); break; case 0x8: case 0x9: case 0xa: case 0xb: case 0xc: instr_len = mem( memaddr, word1, word2, 0 ); break; default: /* invalid instruction, print as data word */ invalid( word1 ); break; } return instr_len; } /****************************************/ /* CTRL format */ /****************************************/ static void ctrl( memaddr, word1, word2 ) unsigned long memaddr; unsigned long word1, word2; { int i; static struct tabent ctrl_tab[] = { NULL, 0, /* 0x00 */ NULL, 0, /* 0x01 */ NULL, 0, /* 0x02 */ NULL, 0, /* 0x03 */ NULL, 0, /* 0x04 */ NULL, 0, /* 0x05 */ NULL, 0, /* 0x06 */ NULL, 0, /* 0x07 */ "b", 1, /* 0x08 */ "call", 1, /* 0x09 */ "ret", 0, /* 0x0a */ "bal", 1, /* 0x0b */ NULL, 0, /* 0x0c */ NULL, 0, /* 0x0d */ NULL, 0, /* 0x0e */ NULL, 0, /* 0x0f */ "bno", 1, /* 0x10 */ "bg", 1, /* 0x11 */ "be", 1, /* 0x12 */ "bge", 1, /* 0x13 */ "bl", 1, /* 0x14 */ "bne", 1, /* 0x15 */ "ble", 1, /* 0x16 */ "bo", 1, /* 0x17 */ "faultno", 0, /* 0x18 */ "faultg", 0, /* 0x19 */ "faulte", 0, /* 0x1a */ "faultge", 0, /* 0x1b */ "faultl", 0, /* 0x1c */ "faultne", 0, /* 0x1d */ "faultle", 0, /* 0x1e */ "faulto", 0, /* 0x1f */ }; i = (word1 >> 24) & 0xff; if ( (ctrl_tab[i].name == NULL) || ((word1 & 1) != 0) ){ invalid( word1 ); return; } (*info->fprintf_func) ( stream, ctrl_tab[i].name ); if ( word1 & 2 ){ /* Predicts branch not taken */ (*info->fprintf_func) ( stream, ".f" ); } if ( ctrl_tab[i].numops == 1 ){ /* EXTRACT DISPLACEMENT AND CONVERT TO ADDRESS */ word1 &= 0x00ffffff; if ( word1 & 0x00800000 ){ /* Sign bit is set */ word1 |= (-1 & ~0xffffff); /* Sign extend */ } (*info->fprintf_func)( stream, "\t" ); print_addr( word1 + memaddr ); } } /****************************************/ /* COBR format */ /****************************************/ static void cobr( memaddr, word1, word2 ) unsigned long memaddr; unsigned long word1, word2; { int src1; int src2; int i; static struct tabent cobr_tab[] = { "testno", 1, /* 0x20 */ "testg", 1, /* 0x21 */ "teste", 1, /* 0x22 */ "testge", 1, /* 0x23 */ "testl", 1, /* 0x24 */ "testne", 1, /* 0x25 */ "testle", 1, /* 0x26 */ "testo", 1, /* 0x27 */ NULL, 0, /* 0x28 */ NULL, 0, /* 0x29 */ NULL, 0, /* 0x2a */ NULL, 0, /* 0x2b */ NULL, 0, /* 0x2c */ NULL, 0, /* 0x2d */ NULL, 0, /* 0x2e */ NULL, 0, /* 0x2f */ "bbc", 3, /* 0x30 */ "cmpobg", 3, /* 0x31 */ "cmpobe", 3, /* 0x32 */ "cmpobge", 3, /* 0x33 */ "cmpobl", 3, /* 0x34 */ "cmpobne", 3, /* 0x35 */ "cmpoble", 3, /* 0x36 */ "bbs", 3, /* 0x37 */ "cmpibno", 3, /* 0x38 */ "cmpibg", 3, /* 0x39 */ "cmpibe", 3, /* 0x3a */ "cmpibge", 3, /* 0x3b */ "cmpibl", 3, /* 0x3c */ "cmpibne", 3, /* 0x3d */ "cmpible", 3, /* 0x3e */ "cmpibo", 3, /* 0x3f */ }; i = ((word1 >> 24) & 0xff) - 0x20; if ( cobr_tab[i].name == NULL ){ invalid( word1 ); return; } (*info->fprintf_func) ( stream, cobr_tab[i].name ); if ( word1 & 2 ){ /* Predicts branch not taken */ (*info->fprintf_func) ( stream, ".f" ); } (*info->fprintf_func)( stream, "\t" ); src1 = (word1 >> 19) & 0x1f; src2 = (word1 >> 14) & 0x1f; if ( word1 & 0x02000 ){ /* M1 is 1 */ (*info->fprintf_func)( stream, "%d", src1 ); } else { /* M1 is 0 */ (*info->fprintf_func)( stream, reg_names[src1] ); } if ( cobr_tab[i].numops > 1 ){ if ( word1 & 1 ){ /* S2 is 1 */ (*info->fprintf_func)( stream, ",sf%d,", src2 ); } else { /* S1 is 0 */ (*info->fprintf_func)( stream, ",%s,", reg_names[src2] ); } /* Extract displacement and convert to address */ word1 &= 0x00001ffc; if ( word1 & 0x00001000 ){ /* Negative displacement */ word1 |= (-1 & ~0x1fff); /* Sign extend */ } print_addr( memaddr + word1 ); } } /****************************************/ /* MEM format */ /****************************************/ static int /* returns instruction length: 4 or 8 */ mem( memaddr, word1, word2, noprint ) unsigned long memaddr; unsigned long word1, word2; int noprint; /* If TRUE, return instruction length, but * don't output any text. */ { int i, j; int len; int mode; int offset; char *reg1, *reg2, *reg3; /* This lookup table is too sparse to make it worth typing in, but not so large as to make a sparse array necessary. We create the table at runtime. */ /* * NOTE: In this table, the meaning of 'numops' is: * 1: single operand * 2: 2 operands, load instruction * -2: 2 operands, store instruction */ static struct tabent *mem_tab = NULL; /* Opcodes of 0x8X, 9X, aX, bX, and cX must be in the table. */ #define MEM_MIN 0x80 #define MEM_MAX 0xcf #define MEM_SIZ ( * sizeof(struct tabent)) static struct { int opcode; char *name; char numops; } mem_init[] = { 0x80, "ldob", 2, 0x82, "stob", -2, 0x84, "bx", 1, 0x85, "balx", 2, 0x86, "callx", 1, 0x88, "ldos", 2, 0x8a, "stos", -2, 0x8c, "lda", 2, 0x90, "ld", 2, 0x92, "st", -2, 0x98, "ldl", 2, 0x9a, "stl", -2, 0xa0, "ldt", 2, 0xa2, "stt", -2, 0xb0, "ldq", 2, 0xb2, "stq", -2, 0xc0, "ldib", 2, 0xc2, "stib", -2, 0xc8, "ldis", 2, 0xca, "stis", -2, 0, NULL, 0 }; static struct tabent mem_tab_buf[MEM_MAX - MEM_MIN + 1]; if ( mem_tab == NULL ){ mem_tab = mem_tab_buf; for ( i = 0; mem_init[i].opcode != 0; i++ ){ j = mem_init[i].opcode - MEM_MIN; mem_tab[j].name = mem_init[i].name; mem_tab[j].numops = mem_init[i].numops; } } i = ((word1 >> 24) & 0xff) - MEM_MIN; mode = (word1 >> 10) & 0xf; if ( (mem_tab[i].name != NULL) /* Valid instruction */ && ((mode == 5) || (mode >=12)) ){ /* With 32-bit displacement */ len = 8; } else { len = 4; } if ( noprint ){ return len; } if ( (mem_tab[i].name == NULL) || (mode == 6) ){ invalid( word1 ); return len; } (*info->fprintf_func)( stream, "%s\t", mem_tab[i].name ); reg1 = reg_names[ (word1 >> 19) & 0x1f ]; /* MEMB only */ reg2 = reg_names[ (word1 >> 14) & 0x1f ]; reg3 = reg_names[ word1 & 0x1f ]; /* MEMB only */ offset = word1 & 0xfff; /* MEMA only */ switch ( mem_tab[i].numops ){ case 2: /* LOAD INSTRUCTION */ if ( mode & 4 ){ /* MEMB FORMAT */ ea( memaddr, mode, reg2, reg3, word1, word2 ); (*info->fprintf_func)( stream, ",%s", reg1 ); } else { /* MEMA FORMAT */ (*info->fprintf_func)( stream, "0x%x", (unsigned) offset ); if (mode & 8) { (*info->fprintf_func)( stream, "(%s)", reg2 ); } (*info->fprintf_func)( stream, ",%s", reg1 ); } break; case -2: /* STORE INSTRUCTION */ if ( mode & 4 ){ /* MEMB FORMAT */ (*info->fprintf_func)( stream, "%s,", reg1 ); ea( memaddr, mode, reg2, reg3, word1, word2 ); } else { /* MEMA FORMAT */ (*info->fprintf_func)( stream, "%s,0x%x", reg1, (unsigned) offset ); if (mode & 8) { (*info->fprintf_func)( stream, "(%s)", reg2 ); } } break; case 1: /* BX/CALLX INSTRUCTION */ if ( mode & 4 ){ /* MEMB FORMAT */ ea( memaddr, mode, reg2, reg3, word1, word2 ); } else { /* MEMA FORMAT */ (*info->fprintf_func)( stream, "0x%x", (unsigned) offset ); if (mode & 8) { (*info->fprintf_func)( stream, "(%s)", reg2 ); } } break; } return len; } /****************************************/ /* REG format */ /****************************************/ static void reg( word1 ) unsigned long word1; { int i, j; int opcode; int fp; int m1, m2, m3; int s1, s2; int src, src2, dst; char *mnemp; /* This lookup table is too sparse to make it worth typing in, but not so large as to make a sparse array necessary. We create the table at runtime. */ /* * NOTE: In this table, the meaning of 'numops' is: * 1: single operand, which is NOT a destination. * -1: single operand, which IS a destination. * 2: 2 operands, the 2nd of which is NOT a destination. * -2: 2 operands, the 2nd of which IS a destination. * 3: 3 operands * * If an opcode mnemonic begins with "F", it is a floating-point * opcode (the "F" is not printed). */ static struct tabent *reg_tab = NULL; static struct { int opcode; char *name; char numops; } reg_init[] = { #define REG_MIN 0x580 0x580, "notbit", 3, 0x581, "and", 3, 0x582, "andnot", 3, 0x583, "setbit", 3, 0x584, "notand", 3, 0x586, "xor", 3, 0x587, "or", 3, 0x588, "nor", 3, 0x589, "xnor", 3, 0x58a, "not", -2, 0x58b, "ornot", 3, 0x58c, "clrbit", 3, 0x58d, "notor", 3, 0x58e, "nand", 3, 0x58f, "alterbit", 3, 0x590, "addo", 3, 0x591, "addi", 3, 0x592, "subo", 3, 0x593, "subi", 3, 0x598, "shro", 3, 0x59a, "shrdi", 3, 0x59b, "shri", 3, 0x59c, "shlo", 3, 0x59d, "rotate", 3, 0x59e, "shli", 3, 0x5a0, "cmpo", 2, 0x5a1, "cmpi", 2, 0x5a2, "concmpo", 2, 0x5a3, "concmpi", 2, 0x5a4, "cmpinco", 3, 0x5a5, "cmpinci", 3, 0x5a6, "cmpdeco", 3, 0x5a7, "cmpdeci", 3, 0x5ac, "scanbyte", 2, 0x5ae, "chkbit", 2, 0x5b0, "addc", 3, 0x5b2, "subc", 3, 0x5cc, "mov", -2, 0x5d8, "eshro", 3, 0x5dc, "movl", -2, 0x5ec, "movt", -2, 0x5fc, "movq", -2, 0x600, "synmov", 2, 0x601, "synmovl", 2, 0x602, "synmovq", 2, 0x603, "cmpstr", 3, 0x604, "movqstr", 3, 0x605, "movstr", 3, 0x610, "atmod", 3, 0x612, "atadd", 3, 0x613, "inspacc", -2, 0x614, "ldphy", -2, 0x615, "synld", -2, 0x617, "fill", 3, 0x630, "sdma", 3, 0x631, "udma", 0, 0x640, "spanbit", -2, 0x641, "scanbit", -2, 0x642, "daddc", 3, 0x643, "dsubc", 3, 0x644, "dmovt", -2, 0x645, "modac", 3, 0x646, "condrec", -2, 0x650, "modify", 3, 0x651, "extract", 3, 0x654, "modtc", 3, 0x655, "modpc", 3, 0x656, "receive", -2, 0x659, "sysctl", 3, 0x660, "calls", 1, 0x662, "send", 3, 0x663, "sendserv", 1, 0x664, "resumprcs", 1, 0x665, "schedprcs", 1, 0x666, "saveprcs", 0, 0x668, "condwait", 1, 0x669, "wait", 1, 0x66a, "signal", 1, 0x66b, "mark", 0, 0x66c, "fmark", 0, 0x66d, "flushreg", 0, 0x66f, "syncf", 0, 0x670, "emul", 3, 0x671, "ediv", 3, 0x673, "ldtime", -1, 0x674, "Fcvtir", -2, 0x675, "Fcvtilr", -2, 0x676, "Fscalerl", 3, 0x677, "Fscaler", 3, 0x680, "Fatanr", 3, 0x681, "Flogepr", 3, 0x682, "Flogr", 3, 0x683, "Fremr", 3, 0x684, "Fcmpor", 2, 0x685, "Fcmpr", 2, 0x688, "Fsqrtr", -2, 0x689, "Fexpr", -2, 0x68a, "Flogbnr", -2, 0x68b, "Froundr", -2, 0x68c, "Fsinr", -2, 0x68d, "Fcosr", -2, 0x68e, "Ftanr", -2, 0x68f, "Fclassr", 1, 0x690, "Fatanrl", 3, 0x691, "Flogeprl", 3, 0x692, "Flogrl", 3, 0x693, "Fremrl", 3, 0x694, "Fcmporl", 2, 0x695, "Fcmprl", 2, 0x698, "Fsqrtrl", -2, 0x699, "Fexprl", -2, 0x69a, "Flogbnrl", -2, 0x69b, "Froundrl", -2, 0x69c, "Fsinrl", -2, 0x69d, "Fcosrl", -2, 0x69e, "Ftanrl", -2, 0x69f, "Fclassrl", 1, 0x6c0, "Fcvtri", -2, 0x6c1, "Fcvtril", -2, 0x6c2, "Fcvtzri", -2, 0x6c3, "Fcvtzril", -2, 0x6c9, "Fmovr", -2, 0x6d9, "Fmovrl", -2, 0x6e1, "Fmovre", -2, 0x6e2, "Fcpysre", 3, 0x6e3, "Fcpyrsre", 3, 0x701, "mulo", 3, 0x708, "remo", 3, 0x70b, "divo", 3, 0x741, "muli", 3, 0x748, "remi", 3, 0x749, "modi", 3, 0x74b, "divi", 3, 0x78b, "Fdivr", 3, 0x78c, "Fmulr", 3, 0x78d, "Fsubr", 3, 0x78f, "Faddr", 3, 0x79b, "Fdivrl", 3, 0x79c, "Fmulrl", 3, 0x79d, "Fsubrl", 3, 0x79f, "Faddrl", 3, #define REG_MAX 0x79f 0, NULL, 0 }; static struct tabent reg_tab_buf[REG_MAX - REG_MIN + 1]; if ( reg_tab == NULL ){ reg_tab = reg_tab_buf; for ( i = 0; reg_init[i].opcode != 0; i++ ){ j = reg_init[i].opcode - REG_MIN; reg_tab[j].name = reg_init[i].name; reg_tab[j].numops = reg_init[i].numops; } } opcode = ((word1 >> 20) & 0xff0) | ((word1 >> 7) & 0xf); i = opcode - REG_MIN; if ( (opcodeREG_MAX) || (reg_tab[i].name==NULL) ){ invalid( word1 ); return; } mnemp = reg_tab[i].name; if ( *mnemp == 'F' ){ fp = 1; mnemp++; } else { fp = 0; } (*info->fprintf_func)( stream, mnemp ); s1 = (word1 >> 5) & 1; s2 = (word1 >> 6) & 1; m1 = (word1 >> 11) & 1; m2 = (word1 >> 12) & 1; m3 = (word1 >> 13) & 1; src = word1 & 0x1f; src2 = (word1 >> 14) & 0x1f; dst = (word1 >> 19) & 0x1f; if ( reg_tab[i].numops != 0 ){ (*info->fprintf_func)( stream, "\t" ); switch ( reg_tab[i].numops ){ case 1: regop( m1, s1, src, fp ); break; case -1: dstop( m3, dst, fp ); break; case 2: regop( m1, s1, src, fp ); (*info->fprintf_func)( stream, "," ); regop( m2, s2, src2, fp ); break; case -2: regop( m1, s1, src, fp ); (*info->fprintf_func)( stream, "," ); dstop( m3, dst, fp ); break; case 3: regop( m1, s1, src, fp ); (*info->fprintf_func)( stream, "," ); regop( m2, s2, src2, fp ); (*info->fprintf_func)( stream, "," ); dstop( m3, dst, fp ); break; } } } /* * Print out effective address for memb instructions. */ static void ea( memaddr, mode, reg2, reg3, word1, word2 ) unsigned long memaddr; int mode; char *reg2, *reg3; int word1; unsigned int word2; { int scale; static int scale_tab[] = { 1, 2, 4, 8, 16 }; scale = (word1 >> 7) & 0x07; if ( (scale > 4) || ((word1 >> 5) & 0x03 != 0) ){ invalid( word1 ); return; } scale = scale_tab[scale]; switch (mode) { case 4: /* (reg) */ (*info->fprintf_func)( stream, "(%s)", reg2 ); break; case 5: /* displ+8(ip) */ print_addr( word2+8+memaddr ); break; case 7: /* (reg)[index*scale] */ if (scale == 1) { (*info->fprintf_func)( stream, "(%s)[%s]", reg2, reg3 ); } else { (*info->fprintf_func)( stream, "(%s)[%s*%d]",reg2,reg3,scale); } break; case 12: /* displacement */ print_addr( word2 ); break; case 13: /* displ(reg) */ print_addr( word2 ); (*info->fprintf_func)( stream, "(%s)", reg2 ); break; case 14: /* displ[index*scale] */ print_addr( word2 ); if (scale == 1) { (*info->fprintf_func)( stream, "[%s]", reg3 ); } else { (*info->fprintf_func)( stream, "[%s*%d]", reg3, scale ); } break; case 15: /* displ(reg)[index*scale] */ print_addr( word2 ); if (scale == 1) { (*info->fprintf_func)( stream, "(%s)[%s]", reg2, reg3 ); } else { (*info->fprintf_func)( stream, "(%s)[%s*%d]",reg2,reg3,scale ); } break; default: invalid( word1 ); return; } } /************************************************/ /* Register Instruction Operand */ /************************************************/ static void regop( mode, spec, reg, fp ) int mode, spec, reg, fp; { if ( fp ){ /* FLOATING POINT INSTRUCTION */ if ( mode == 1 ){ /* FP operand */ switch ( reg ){ case 0: (*info->fprintf_func)( stream, "fp0" ); break; case 1: (*info->fprintf_func)( stream, "fp1" ); break; case 2: (*info->fprintf_func)( stream, "fp2" ); break; case 3: (*info->fprintf_func)( stream, "fp3" ); break; case 16: (*info->fprintf_func)( stream, "0f0.0" ); break; case 22: (*info->fprintf_func)( stream, "0f1.0" ); break; default: (*info->fprintf_func)( stream, "?" ); break; } } else { /* Non-FP register */ (*info->fprintf_func)( stream, reg_names[reg] ); } } else { /* NOT FLOATING POINT */ if ( mode == 1 ){ /* Literal */ (*info->fprintf_func)( stream, "%d", reg ); } else { /* Register */ if ( spec == 0 ){ (*info->fprintf_func)( stream, reg_names[reg] ); } else { (*info->fprintf_func)( stream, "sf%d", reg ); } } } } /************************************************/ /* Register Instruction Destination Operand */ /************************************************/ static void dstop( mode, reg, fp ) int mode, reg, fp; { /* 'dst' operand can't be a literal. On non-FP instructions, register * mode is assumed and "m3" acts as if were "s3"; on FP-instructions, * sf registers are not allowed so m3 acts normally. */ if ( fp ){ regop( mode, 0, reg, fp ); } else { regop( 0, mode, reg, fp ); } } static void invalid( word1 ) int word1; { (*info->fprintf_func)( stream, ".word\t0x%08x", (unsigned) word1 ); } static void print_addr(a) int a; { (*info->print_address_func) ((bfd_vma) a, info); } static void put_abs( word1, word2 ) unsigned long word1, word2; { #ifdef IN_GDB return; #else int len; switch ( (word1 >> 28) & 0xf ){ case 0x8: case 0x9: case 0xa: case 0xb: case 0xc: /* MEM format instruction */ len = mem( 0, word1, word2, 1 ); break; default: len = 4; break; } if ( len == 8 ){ (*info->fprintf_func)( stream, "%08x %08x\t", word1, word2 ); } else { (*info->fprintf_func)( stream, "%08x \t", word1 ); } ; #endif } gdb-4.13/opcodes/m68k-dis.c 666 34562 1752 64330 5560037673 13740 0ustar fnfcygnus/* Print Motorola 68k instructions. Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. This file 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "dis-asm.h" #include "floatformat.h" /* Opcode/m68k.h is a massive table. As a kludge, break it up into two pieces. This makes nonportable C -- FIXME -- it assumes that two data items declared near each other will be contiguous in memory. This kludge can be removed, FIXME, when GCC is fixed to not be a hog about initializers. */ #ifdef __GNUC__ #define BREAK_UP_BIG_DECL }; \ struct m68k_opcode m68k_opcodes_2[] = { #define AND_OTHER_PART sizeof (m68k_opcodes_2) #endif #include "opcode/m68k.h" /* Local function prototypes */ static int fetch_arg PARAMS ((unsigned char *, int, int, disassemble_info *)); static void print_base PARAMS ((int, int, disassemble_info*)); static unsigned char * print_indexed PARAMS ((int, unsigned char *, bfd_vma, disassemble_info *)); static int print_insn_arg PARAMS ((char *, unsigned char *, unsigned char *, bfd_vma, disassemble_info *)); CONST char * CONST fpcr_names[] = { "", "fpiar", "fpsr", "fpiar/fpsr", "fpcr", "fpiar/fpcr", "fpsr/fpcr", "fpiar/fpsr/fpcr"}; static char *reg_names[] = { "d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7", "a0", "a1", "a2", "a3", "a4", "a5", "fp", "sp", "ps", "pc"}; /* Sign-extend an (unsigned char). */ #if __STDC__ == 1 #define COERCE_SIGNED_CHAR(ch) ((signed char)(ch)) #else #define COERCE_SIGNED_CHAR(ch) ((int)(((ch) ^ 0x80) & 0xFF) - 128) #endif /* Get a 1 byte signed integer. */ #define NEXTBYTE(p) (p += 2, FETCH_DATA (info, p), COERCE_SIGNED_CHAR(p[-1])) /* Get a 2 byte signed integer. */ #define COERCE16(x) ((int) (((x) ^ 0x8000) - 0x8000)) #define NEXTWORD(p) \ (p += 2, FETCH_DATA (info, p), \ COERCE16 ((p[-2] << 8) + p[-1])) /* Get a 4 byte signed integer. */ #define COERCE32(x) ((int) (((x) ^ 0x80000000) - 0x80000000)) #define NEXTLONG(p) \ (p += 4, FETCH_DATA (info, p), \ (COERCE32 ((((((p[-4] << 8) + p[-3]) << 8) + p[-2]) << 8) + p[-1]))) /* NEXTSINGLE and NEXTDOUBLE handle alignment problems, but not * byte-swapping or other float format differences. FIXME! */ union number { double d; float f; char c[10]; }; #define NEXTSINGLE(val, p) \ { int i; union number u;\ FETCH_DATA (info, p + sizeof (float));\ for (i = 0; i < sizeof(float); i++) u.c[i] = *p++; \ val = u.f; } #define NEXTDOUBLE(val, p) \ { int i; union number u;\ FETCH_DATA (info, p + sizeof (double));\ for (i = 0; i < sizeof(double); i++) u.c[i] = *p++; \ val = u.d; } /* Need a function to convert from extended to double precision... */ #define NEXTEXTEND(p) \ (p += 12, FETCH_DATA (info, p), 0.0) /* Need a function to convert from packed to double precision. Actually, it's easier to print a packed number than a double anyway, so maybe there should be a special case to handle this... */ #define NEXTPACKED(p) \ (p += 12, FETCH_DATA (info, p), 0.0) /* Maximum length of an instruction. */ #define MAXLEN 22 #include struct private { /* Points to first byte not fetched. */ bfd_byte *max_fetched; bfd_byte the_buffer[MAXLEN]; bfd_vma insn_start; jmp_buf bailout; }; /* Make sure that bytes from INFO->PRIVATE_DATA->BUFFER (inclusive) to ADDR (exclusive) are valid. Returns 1 for success, longjmps on error. */ #define FETCH_DATA(info, addr) \ ((addr) <= ((struct private *)(info->private_data))->max_fetched \ ? 1 : fetch_data ((info), (addr))) static int fetch_data (info, addr) struct disassemble_info *info; bfd_byte *addr; { int status; struct private *priv = (struct private *)info->private_data; bfd_vma start = priv->insn_start + (priv->max_fetched - priv->the_buffer); status = (*info->read_memory_func) (start, priv->max_fetched, addr - priv->max_fetched, info); if (status != 0) { (*info->memory_error_func) (status, start, info); longjmp (priv->bailout, 1); } else priv->max_fetched = addr; return 1; } /* This function is used to print to the bit-bucket. */ static int #ifdef __STDC__ dummy_printer (FILE * file, const char * format, ...) #else dummy_printer (file) FILE *file; #endif { return 0; } void dummy_print_address (vma, info) bfd_vma vma; struct disassemble_info *info; { } /* Print the m68k instruction at address MEMADDR in debugged memory, on INFO->STREAM. Returns length of the instruction, in bytes. */ int print_insn_m68k (memaddr, info) bfd_vma memaddr; disassemble_info *info; { register int i; register unsigned char *p; unsigned char *save_p; register char *d; register unsigned long bestmask; int best; struct private priv; bfd_byte *buffer = priv.the_buffer; fprintf_ftype save_printer = info->fprintf_func; void (*save_print_address) PARAMS((bfd_vma, struct disassemble_info*)) = info->print_address_func; info->private_data = (PTR) &priv; priv.max_fetched = priv.the_buffer; priv.insn_start = memaddr; if (setjmp (priv.bailout) != 0) /* Error return. */ return -1; bestmask = 0; best = -1; FETCH_DATA (info, buffer + 2); for (i = 0; i < numopcodes; i++) { register unsigned long opcode = m68k_opcodes[i].opcode; register unsigned long match = m68k_opcodes[i].match; if (m68k_opcodes[i].flags & F_ALIAS) continue; if (((0xff & buffer[0] & (match >> 24)) == (0xff & (opcode >> 24))) && ((0xff & buffer[1] & (match >> 16)) == (0xff & (opcode >> 16))) /* Only fetch the next two bytes if we need to. */ && (((0xffff & match) == 0) || (FETCH_DATA (info, buffer + 4) && ((0xff & buffer[2] & (match >> 8)) == (0xff & (opcode >> 8))) && ((0xff & buffer[3] & match) == (0xff & opcode))) )) { /* Don't use for printout the variants of divul and divsl that have the same register number in two places. The more general variants will match instead. */ for (d = m68k_opcodes[i].args; *d; d += 2) if (d[1] == 'D') break; /* Don't use for printout the variants of most floating point coprocessor instructions which use the same register number in two places, as above. */ if (*d == 0) for (d = m68k_opcodes[i].args; *d; d += 2) if (d[1] == 't') break; if (*d == 0 && match > bestmask) { best = i; bestmask = match; } } } if (best < 0) goto invalid; /* Point at first word of argument data, and at descriptor for first argument. */ p = buffer + 2; /* Figure out how long the fixed-size portion of the instruction is. The only place this is stored in the opcode table is in the arguments--look for arguments which specify fields in the 2nd or 3rd words of the instruction. */ for (d = m68k_opcodes[best].args; *d; d += 2) { /* I don't think it is necessary to be checking d[0] here; I suspect all this could be moved to the case statement below. */ if (d[0] == '#') { if (d[1] == 'l' && p - buffer < 6) p = buffer + 6; else if (p - buffer < 4 && d[1] != 'C' && d[1] != '8' ) p = buffer + 4; } if ((d[0] == 'L' || d[0] == 'l') && d[1] == 'w' && p - buffer < 4) p = buffer + 4; switch (d[1]) { case '1': case '2': case '3': case '7': case '8': case '9': case 'i': if (p - buffer < 4) p = buffer + 4; break; case '4': case '5': case '6': if (p - buffer < 6) p = buffer + 6; break; default: break; } } /* pflusha is an exception; it takes no arguments but is two words long. */ if (buffer[0] == 0xf0 && buffer[1] == 0 && buffer[2] == 0x24 && buffer[3] == 0) p = buffer + 4; FETCH_DATA (info, p); d = m68k_opcodes[best].args; /* We can the operands twice. The first time we don't print anything, but look for errors. */ save_p = p; info->print_address_func = dummy_print_address; info->fprintf_func = (fprintf_ftype)dummy_printer; for ( ; *d; d += 2) { int eaten = print_insn_arg (d, buffer, p, memaddr + p - buffer, info); if (eaten >= 0) p += eaten; else if (eaten == -1) goto invalid; else { (*info->fprintf_func)(info->stream, "\n", m68k_opcodes[best].name, m68k_opcodes[best].args); goto invalid; } } p = save_p; info->fprintf_func = save_printer; info->print_address_func = save_print_address; d = m68k_opcodes[best].args; (*info->fprintf_func) (info->stream, "%s", m68k_opcodes[best].name); if (*d) (*info->fprintf_func) (info->stream, " "); while (*d) { p += print_insn_arg (d, buffer, p, memaddr + p - buffer, info); d += 2; if (*d && *(d - 2) != 'I' && *d != 'k') (*info->fprintf_func) (info->stream, ","); } return p - buffer; invalid: /* Handle undefined instructions. */ info->fprintf_func = save_printer; info->print_address_func = save_print_address; (*info->fprintf_func) (info->stream, "0%o", (buffer[0] << 8) + buffer[1]); return 2; } /* Returns number of bytes "eaten" by the operand, or return -1 if an invalid operand was found, or -2 if an opcode tabe error was found. */ static int print_insn_arg (d, buffer, p0, addr, info) char *d; unsigned char *buffer; unsigned char *p0; bfd_vma addr; /* PC for this arg to be relative to */ disassemble_info *info; { register int val = 0; register int place = d[1]; register unsigned char *p = p0; int regno; register CONST char *regname; register unsigned char *p1; double flval; int flt_p; switch (*d) { case 'c': /* cache identifier */ { static char *cacheFieldName[] = { "NOP", "dc", "ic", "bc" }; val = fetch_arg (buffer, place, 2, info); (*info->fprintf_func) (info->stream, cacheFieldName[val]); break; } case 'a': /* address register indirect only. Cf. case '+'. */ { (*info->fprintf_func) (info->stream, "%s@", reg_names [fetch_arg (buffer, place, 3, info) + 8]); break; } case '_': /* 32-bit absolute address for move16. */ { val = NEXTLONG (p); (*info->fprintf_func) (info->stream, "@#"); (*info->print_address_func) (val, info); break; } case 'C': (*info->fprintf_func) (info->stream, "ccr"); break; case 'S': (*info->fprintf_func) (info->stream, "sr"); break; case 'U': (*info->fprintf_func) (info->stream, "usp"); break; case 'J': { static struct { char *name; int value; } names[] = {{"sfc", 0x000}, {"dfc", 0x001}, {"cacr", 0x002}, {"tc", 0x003}, {"itt0",0x004}, {"itt1", 0x005}, {"dtt0",0x006}, {"dtt1",0x007}, {"usp", 0x800}, {"vbr", 0x801}, {"caar", 0x802}, {"msp", 0x803}, {"isp", 0x804}, /* Should we be calling this psr like we do in case 'Y'? */ {"mmusr",0x805}, {"urp", 0x806}, {"srp", 0x807}}; val = fetch_arg (buffer, place, 12, info); for (regno = sizeof names / sizeof names[0] - 1; regno >= 0; regno--) if (names[regno].value == val) { (*info->fprintf_func) (info->stream, names[regno].name); break; } if (regno < 0) (*info->fprintf_func) (info->stream, "%d", val); } break; case 'Q': val = fetch_arg (buffer, place, 3, info); /* 0 means 8, except for the bkpt instruction... */ if (val == 0 && d[1] != 's') val = 8; (*info->fprintf_func) (info->stream, "#%d", val); break; case 'M': val = fetch_arg (buffer, place, 8, info); if (val & 0x80) val = val - 0x100; (*info->fprintf_func) (info->stream, "#%d", val); break; case 'T': val = fetch_arg (buffer, place, 4, info); (*info->fprintf_func) (info->stream, "#%d", val); break; case 'D': (*info->fprintf_func) (info->stream, "%s", reg_names[fetch_arg (buffer, place, 3, info)]); break; case 'A': (*info->fprintf_func) (info->stream, "%s", reg_names[fetch_arg (buffer, place, 3, info) + 010]); break; case 'R': (*info->fprintf_func) (info->stream, "%s", reg_names[fetch_arg (buffer, place, 4, info)]); break; case 'r': (*info->fprintf_func) (info->stream, "%s@", reg_names[fetch_arg (buffer, place, 4, info)]); break; case 'F': (*info->fprintf_func) (info->stream, "fp%d", fetch_arg (buffer, place, 3, info)); break; case 'O': val = fetch_arg (buffer, place, 6, info); if (val & 0x20) (*info->fprintf_func) (info->stream, "%s", reg_names [val & 7]); else (*info->fprintf_func) (info->stream, "%d", val); break; case '+': (*info->fprintf_func) (info->stream, "%s@+", reg_names[fetch_arg (buffer, place, 3, info) + 8]); break; case '-': (*info->fprintf_func) (info->stream, "%s@-", reg_names[fetch_arg (buffer, place, 3, info) + 8]); break; case 'k': if (place == 'k') (*info->fprintf_func) (info->stream, "{%s}", reg_names[fetch_arg (buffer, place, 3, info)]); else if (place == 'C') { val = fetch_arg (buffer, place, 7, info); if ( val > 63 ) /* This is a signed constant. */ val -= 128; (*info->fprintf_func) (info->stream, "{#%d}", val); } else return -2; break; case '#': case '^': p1 = buffer + (*d == '#' ? 2 : 4); if (place == 's') val = fetch_arg (buffer, place, 4, info); else if (place == 'C') val = fetch_arg (buffer, place, 7, info); else if (place == '8') val = fetch_arg (buffer, place, 3, info); else if (place == '3') val = fetch_arg (buffer, place, 8, info); else if (place == 'b') val = NEXTBYTE (p1); else if (place == 'w') val = NEXTWORD (p1); else if (place == 'l') val = NEXTLONG (p1); else return -2; (*info->fprintf_func) (info->stream, "#%d", val); break; case 'B': if (place == 'b') val = NEXTBYTE (p); else if (place == 'B') val = COERCE_SIGNED_CHAR(buffer[1]); else if (place == 'w' || place == 'W') val = NEXTWORD (p); else if (place == 'l' || place == 'L') val = NEXTLONG (p); else if (place == 'g') { val = NEXTBYTE (buffer); if (val == 0) val = NEXTWORD (p); else if (val == -1) val = NEXTLONG (p); } else if (place == 'c') { if (buffer[1] & 0x40) /* If bit six is one, long offset */ val = NEXTLONG (p); else val = NEXTWORD (p); } else return -2; (*info->print_address_func) (addr + val, info); break; case 'd': val = NEXTWORD (p); (*info->fprintf_func) (info->stream, "%s@(%d)", reg_names[fetch_arg (buffer, place, 3, info)], val); break; case 's': (*info->fprintf_func) (info->stream, "%s", fpcr_names[fetch_arg (buffer, place, 3, info)]); break; case 'I': /* Get coprocessor ID... */ val = fetch_arg (buffer, 'd', 3, info); if (val != 1) /* Unusual coprocessor ID? */ (*info->fprintf_func) (info->stream, "(cpid=%d) ", val); break; case '*': case '~': case '%': case ';': case '@': case '!': case '$': case '?': case '/': case '&': case '`': case '|': if (place == 'd') { val = fetch_arg (buffer, 'x', 6, info); val = ((val & 7) << 3) + ((val >> 3) & 7); } else val = fetch_arg (buffer, 's', 6, info); /* Get register number assuming address register. */ regno = (val & 7) + 8; regname = reg_names[regno]; switch (val >> 3) { case 0: (*info->fprintf_func) (info->stream, "%s", reg_names[val]); break; case 1: (*info->fprintf_func) (info->stream, "%s", regname); break; case 2: (*info->fprintf_func) (info->stream, "%s@", regname); break; case 3: (*info->fprintf_func) (info->stream, "%s@+", regname); break; case 4: (*info->fprintf_func) (info->stream, "%s@-", regname); break; case 5: val = NEXTWORD (p); (*info->fprintf_func) (info->stream, "%s@(%d)", regname, val); break; case 6: p = print_indexed (regno, p, addr, info); break; case 7: switch (val & 7) { case 0: val = NEXTWORD (p); (*info->fprintf_func) (info->stream, "@#"); (*info->print_address_func) (val, info); break; case 1: val = NEXTLONG (p); (*info->fprintf_func) (info->stream, "@#"); (*info->print_address_func) (val, info); break; case 2: val = NEXTWORD (p); (*info->print_address_func) (addr + val, info); break; case 3: p = print_indexed (-1, p, addr, info); break; case 4: flt_p = 1; /* Assume it's a float... */ switch( place ) { case 'b': val = NEXTBYTE (p); flt_p = 0; break; case 'w': val = NEXTWORD (p); flt_p = 0; break; case 'l': val = NEXTLONG (p); flt_p = 0; break; case 'f': NEXTSINGLE(flval, p); break; case 'F': NEXTDOUBLE(flval, p); break; case 'x': FETCH_DATA (info, p + 12); floatformat_to_double (&floatformat_m68881_ext, (char *) p, &flval); p += 12; break; case 'p': flval = NEXTPACKED(p); break; default: return -1; } if ( flt_p ) /* Print a float? */ (*info->fprintf_func) (info->stream, "#%g", flval); else (*info->fprintf_func) (info->stream, "#%d", val); break; default: return -1; } } break; case 'L': case 'l': if (place == 'w') { char doneany; p1 = buffer + 2; val = NEXTWORD (p1); /* Move the pointer ahead if this point is farther ahead than the last. */ p = p1 > p ? p1 : p; if (val == 0) { (*info->fprintf_func) (info->stream, "#0"); break; } if (*d == 'l') { register int newval = 0; for (regno = 0; regno < 16; ++regno) if (val & (0x8000 >> regno)) newval |= 1 << regno; val = newval; } val &= 0xffff; doneany = 0; for (regno = 0; regno < 16; ++regno) if (val & (1 << regno)) { int first_regno; if (doneany) (*info->fprintf_func) (info->stream, "/"); doneany = 1; (*info->fprintf_func) (info->stream, "%s", reg_names[regno]); first_regno = regno; while (val & (1 << (regno + 1))) ++regno; if (regno > first_regno) (*info->fprintf_func) (info->stream, "-%s", reg_names[regno]); } } else if (place == '3') { /* `fmovem' insn. */ char doneany; val = fetch_arg (buffer, place, 8, info); if (val == 0) { (*info->fprintf_func) (info->stream, "#0"); break; } if (*d == 'l') { register int newval = 0; for (regno = 0; regno < 8; ++regno) if (val & (0x80 >> regno)) newval |= 1 << regno; val = newval; } val &= 0xff; doneany = 0; for (regno = 0; regno < 8; ++regno) if (val & (1 << regno)) { int first_regno; if (doneany) (*info->fprintf_func) (info->stream, "/"); doneany = 1; (*info->fprintf_func) (info->stream, "fp%d", regno); first_regno = regno; while (val & (1 << (regno + 1))) ++regno; if (regno > first_regno) (*info->fprintf_func) (info->stream, "-fp%d", regno); } } else return -2; break; case 'X': place = '8'; case 'Y': case 'Z': case 'W': case '3': case 'P': { int val = fetch_arg (buffer, place, 5, info); char *name = 0; switch (val) { case 2: name = "tt0"; break; case 3: name = "tt1"; break; case 0x10: name = "tc"; break; case 0x11: name = "drp"; break; case 0x12: name = "srp"; break; case 0x13: name = "crp"; break; case 0x14: name = "cal"; break; case 0x15: name = "val"; break; case 0x16: name = "scc"; break; case 0x17: name = "ac"; break; case 0x18: name = "psr"; break; case 0x19: name = "pcsr"; break; case 0x1c: case 0x1d: { int break_reg = ((buffer[3] >> 2) & 7); (*info->fprintf_func) (info->stream, val == 0x1c ? "bad%d" : "bac%d", break_reg); } break; default: (*info->fprintf_func) (info->stream, "", val); } if (name) (*info->fprintf_func) (info->stream, name); } break; case 'f': { int fc = fetch_arg (buffer, place, 5, info); if (fc == 1) (*info->fprintf_func) (info->stream, "dfc"); else if (fc == 0) (*info->fprintf_func) (info->stream, "sfc"); else (*info->fprintf_func) (info->stream, "", fc); } break; case 'V': (*info->fprintf_func) (info->stream, "val"); break; case 't': { int level = fetch_arg (buffer, place, 3, info); (*info->fprintf_func) (info->stream, "%d", level); } break; default: return -2; } return p - p0; } /* Fetch BITS bits from a position in the instruction specified by CODE. CODE is a "place to put an argument", or 'x' for a destination that is a general address (mode and register). BUFFER contains the instruction. */ static int fetch_arg (buffer, code, bits, info) unsigned char *buffer; int code; int bits; disassemble_info *info; { register int val = 0; switch (code) { case 's': val = buffer[1]; break; case 'd': /* Destination, for register or quick. */ val = (buffer[0] << 8) + buffer[1]; val >>= 9; break; case 'x': /* Destination, for general arg */ val = (buffer[0] << 8) + buffer[1]; val >>= 6; break; case 'k': FETCH_DATA (info, buffer + 3); val = (buffer[3] >> 4); break; case 'C': FETCH_DATA (info, buffer + 3); val = buffer[3]; break; case '1': FETCH_DATA (info, buffer + 3); val = (buffer[2] << 8) + buffer[3]; val >>= 12; break; case '2': FETCH_DATA (info, buffer + 3); val = (buffer[2] << 8) + buffer[3]; val >>= 6; break; case '3': case 'j': FETCH_DATA (info, buffer + 3); val = (buffer[2] << 8) + buffer[3]; break; case '4': FETCH_DATA (info, buffer + 5); val = (buffer[4] << 8) + buffer[5]; val >>= 12; break; case '5': FETCH_DATA (info, buffer + 5); val = (buffer[4] << 8) + buffer[5]; val >>= 6; break; case '6': FETCH_DATA (info, buffer + 5); val = (buffer[4] << 8) + buffer[5]; break; case '7': FETCH_DATA (info, buffer + 3); val = (buffer[2] << 8) + buffer[3]; val >>= 7; break; case '8': FETCH_DATA (info, buffer + 3); val = (buffer[2] << 8) + buffer[3]; val >>= 10; break; case '9': FETCH_DATA (info, buffer + 3); val = (buffer[2] << 8) + buffer[3]; val >>= 5; break; case 'e': val = (buffer[1] >> 6); break; default: abort (); } switch (bits) { case 2: return val & 3; case 3: return val & 7; case 4: return val & 017; case 5: return val & 037; case 6: return val & 077; case 7: return val & 0177; case 8: return val & 0377; case 12: return val & 07777; default: abort (); } } /* Print an indexed argument. The base register is BASEREG (-1 for pc). P points to extension word, in buffer. ADDR is the nominal core address of that extension word. */ static unsigned char * print_indexed (basereg, p, addr, info) int basereg; unsigned char *p; bfd_vma addr; disassemble_info *info; { register int word; static char *scales[] = {"", "*2", "*4", "*8"}; register int base_disp; register int outer_disp; char buf[40]; word = NEXTWORD (p); /* Generate the text for the index register. Where this will be output is not yet determined. */ sprintf (buf, "[%s.%c%s]", reg_names[(word >> 12) & 0xf], (word & 0x800) ? 'l' : 'w', scales[(word >> 9) & 3]); /* Handle the 68000 style of indexing. */ if ((word & 0x100) == 0) { print_base (basereg, ((word & 0x80) ? word | 0xff00 : word & 0xff) + ((basereg == -1) ? addr : 0), info); (*info->fprintf_func) (info->stream, "%s", buf); return p; } /* Handle the generalized kind. */ /* First, compute the displacement to add to the base register. */ if (word & 0200) basereg = -2; if (word & 0100) buf[0] = 0; base_disp = 0; switch ((word >> 4) & 3) { case 2: base_disp = NEXTWORD (p); break; case 3: base_disp = NEXTLONG (p); } if (basereg == -1) base_disp += addr; /* Handle single-level case (not indirect) */ if ((word & 7) == 0) { print_base (basereg, base_disp, info); (*info->fprintf_func) (info->stream, "%s", buf); return p; } /* Two level. Compute displacement to add after indirection. */ outer_disp = 0; switch (word & 3) { case 2: outer_disp = NEXTWORD (p); break; case 3: outer_disp = NEXTLONG (p); } (*info->fprintf_func) (info->stream, "%d(", outer_disp); print_base (basereg, base_disp, info); /* If postindexed, print the closeparen before the index. */ if (word & 4) (*info->fprintf_func) (info->stream, ")%s", buf); /* If preindexed, print the closeparen after the index. */ else (*info->fprintf_func) (info->stream, "%s)", buf); return p; } /* Print a base register REGNO and displacement DISP, on INFO->STREAM. REGNO = -1 for pc, -2 for none (suppressed). */ static void print_base (regno, disp, info) int regno; int disp; disassemble_info *info; { if (regno == -2) (*info->fprintf_func) (info->stream, "%d", disp); else if (regno == -1) (*info->fprintf_func) (info->stream, "0x%x", (unsigned) disp); else (*info->fprintf_func) (info->stream, "%d(%s)", disp, reg_names[regno]); } gdb-4.13/opcodes/m88k-dis.c 666 34562 1752 21153 5452414665 13736 0ustar fnfcygnus/* Print instructions for the Motorola 88000, for GDB and GNU Binutils. Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993 Free Software Foundation, Inc. Contributed by Data General Corporation, November 1989. Partially derived from an earlier printcmd.c. This file is part of GDB and the GNU Binutils. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "dis-asm.h" #include "opcode/m88k.h" INSTAB *hashtable[HASHVAL] = {0}; static int m88kdis PARAMS ((bfd_vma, unsigned long, struct disassemble_info *)); static void printop PARAMS ((struct disassemble_info *, OPSPEC *, unsigned long, bfd_vma, int)); static void init_disasm PARAMS ((void)); static void install PARAMS ((INSTAB *instptr)); /* * Disassemble an M88000 Instruction * * * This module decodes the instruction at memaddr. * * Revision History * * Revision 1.0 11/08/85 Creation date by Motorola * 05/11/89 R. Trawick adapted to GDB interface. * 07/12/93 Ian Lance Taylor updated to * binutils interface. */ int print_insn_m88k (memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { bfd_byte buffer[4]; int status; /* Instruction addresses may have low two bits set. Clear them. */ memaddr &=~ (bfd_vma) 3; status = (*info->read_memory_func) (memaddr, buffer, 4, info); if (status != 0) { (*info->memory_error_func) (status, memaddr, info); return -1; } return m88kdis (memaddr, bfd_getb32 (buffer), info); } /* * disassemble the instruction in 'instruction'. * 'pc' should be the address of this instruction, it will * be used to print the target address if this is a relative jump or call * the disassembled instruction is written to 'info'. * The function returns the length of this instruction in bytes. */ static int m88kdis (pc, instruction, info) bfd_vma pc; unsigned long instruction; struct disassemble_info *info; { static int ihashtab_initialized = 0; unsigned int opcode; INSTAB *entry_ptr; int opmask; unsigned int class; if (! ihashtab_initialized) init_disasm (); /* create the appropriate mask to isolate the opcode */ opmask = DEFMASK; class = instruction & DEFMASK; if ((class >= SFU0) && (class <= SFU7)) { if (instruction < SFU1) opmask = CTRLMASK; else opmask = SFUMASK; } else if (class == RRR) opmask = RRRMASK; else if (class == RRI10) opmask = RRI10MASK; /* isolate the opcode */ opcode = instruction & opmask; /* search the hash table with the isolated opcode */ for (entry_ptr = hashtable[opcode % HASHVAL]; (entry_ptr != NULL) && (entry_ptr->opcode != opcode); entry_ptr = entry_ptr->next) ; if (entry_ptr == NULL) (*info->fprintf_func) (info->stream, "word\t%08x", instruction); else { (*info->fprintf_func) (info->stream, "%s", entry_ptr->mnemonic); printop (info, &(entry_ptr->op1), instruction, pc, 1); printop (info, &(entry_ptr->op2), instruction, pc, 0); printop (info, &(entry_ptr->op3), instruction, pc, 0); } return 4; } /* * Decode an Operand of an Instruction * * Functional Description * * This module formats and writes an operand of an instruction to info * based on the operand specification. When the first flag is set this * is the first operand of an instruction. Undefined operand types * cause a message. * * Parameters * disassemble_info where the operand may be printed * OPSPEC *opptr Pointer to an operand specification * UINT inst Instruction from which operand is extracted * UINT pc PC of instruction; used for pc-relative disp. * int first Flag which if nonzero indicates the first * operand of an instruction * * Output * * The operand specified is extracted from the instruction and is * written to buf in the format specified. The operand is preceded * by a comma if it is not the first operand of an instruction and it * is not a register indirect form. Registers are preceded by 'r' and * hex values by '0x'. * * Revision History * * Revision 1.0 11/08/85 Creation date */ static void printop (info, opptr, inst, pc, first) struct disassemble_info *info; OPSPEC *opptr; unsigned long inst; bfd_vma pc; int first; { int extracted_field; char *cond_mask_sym; if (opptr->width == 0) return; if (! first) { switch (opptr->type) { case REGSC: case CONT: break; default: (*info->fprintf_func) (info->stream, ","); break; } } switch (opptr->type) { case CRREG: (*info->fprintf_func) (info->stream, "cr%d", UEXT (inst, opptr->offset, opptr->width)); break; case FCRREG: (*info->fprintf_func) (info->stream, "fcr%d", UEXT (inst, opptr->offset, opptr->width)); break; case REGSC: (*info->fprintf_func) (info->stream, "[r%d]", UEXT (inst, opptr->offset, opptr->width)); break; case REG: (*info->fprintf_func) (info->stream, "r%d", UEXT (inst, opptr->offset, opptr->width)); break; case XREG: (*info->fprintf_func) (info->stream, "x%d", UEXT (inst, opptr->offset, opptr->width)); break; case HEX: extracted_field = UEXT (inst, opptr->offset, opptr->width); if (extracted_field == 0) (*info->fprintf_func) (info->stream, "0"); else (*info->fprintf_func) (info->stream, "0x%02x", extracted_field); break; case DEC: extracted_field = UEXT (inst, opptr->offset, opptr->width); (*info->fprintf_func) (info->stream, "%d", extracted_field); break; case CONDMASK: extracted_field = UEXT (inst, opptr->offset, opptr->width); switch (extracted_field & 0x0f) { case 0x1: cond_mask_sym = "gt0"; break; case 0x2: cond_mask_sym = "eq0"; break; case 0x3: cond_mask_sym = "ge0"; break; case 0xc: cond_mask_sym = "lt0"; break; case 0xd: cond_mask_sym = "ne0"; break; case 0xe: cond_mask_sym = "le0"; break; default: cond_mask_sym = NULL; break; } if (cond_mask_sym != NULL) (*info->fprintf_func) (info->stream, "%s", cond_mask_sym); else (*info->fprintf_func) (info->stream, "%x", extracted_field); break; case PCREL: (*info->print_address_func) (pc + (4 * (SEXT (inst, opptr->offset, opptr->width))), info); break; case CONT: (*info->fprintf_func) (info->stream, "%d,r%d", UEXT (inst, opptr->offset, 5), UEXT (inst, (opptr->offset) + 5, 5)); break; case BF: (*info->fprintf_func) (info->stream, "%d<%d>", UEXT (inst, (opptr->offset) + 5, 5), UEXT (inst, opptr->offset, 5)); break; default: (*info->fprintf_func) (info->stream, "# ", inst); } } /* * Initialize the Disassembler Instruction Table * * Initialize the hash table and instruction table for the disassembler. * This should be called once before the first call to disasm(). * * Parameters * * Output * * If the debug option is selected, certain statistics about the hashing * distribution are written to stdout. * * Revision History * * Revision 1.0 11/08/85 Creation date */ static void init_disasm () { int i, size; for (i = 0; i < HASHVAL; i++) hashtable[i] = NULL; size = sizeof (instructions) / sizeof (INSTAB); for (i = 0; i < size; i++) install (&instructions[i]); } /* * Insert an instruction into the disassembler table by hashing the * opcode and inserting it into the linked list for that hash value. * * Parameters * * INSTAB *instptr Pointer to the entry in the instruction table * to be installed * * Revision 1.0 11/08/85 Creation date * 05/11/89 R. TRAWICK ADAPTED FROM MOTOROLA */ static void install (instptr) INSTAB *instptr; { unsigned int i; i = (instptr->opcode) % HASHVAL; instptr->next = hashtable[i]; hashtable[i] = instptr; } gdb-4.13/opcodes/mips-dis.c 666 34562 1752 15635 5604103624 14114 0ustar fnfcygnus/* Print mips instructions for GDB, the GNU debugger, or for objdump. Copyright 1989, 1991, 1992 Free Software Foundation, Inc. Contributed by Nobuyuki Hikichi(hikichi@sra.co.jp). This file is part of GDB. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "sysdep.h" #include "dis-asm.h" #include "opcode/mips.h" /* Mips instructions are never longer than this many bytes. */ #define MAXLEN 4 /* FIXME: This should be shared with gdb somehow. */ #define REGISTER_NAMES \ { "zero", "at", "v0", "v1", "a0", "a1", "a2", "a3", \ "t0", "t1", "t2", "t3", "t4", "t5", "t6", "t7", \ "s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7", \ "t8", "t9", "k0", "k1", "gp", "sp", "s8", "ra", \ "sr", "lo", "hi", "bad", "cause","pc", \ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \ "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", \ "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",\ "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31",\ "fsr", "fir", "fp", "inx", "rand", "tlblo","ctxt", "tlbhi",\ "epc", "prid"\ } static CONST char * CONST reg_names[] = REGISTER_NAMES; /* subroutine */ static void print_insn_arg (d, l, pc, info) const char *d; register unsigned long int l; bfd_vma pc; struct disassemble_info *info; { int delta; switch (*d) { case ',': case '(': case ')': (*info->fprintf_func) (info->stream, "%c", *d); break; case 's': case 'b': case 'r': case 'v': (*info->fprintf_func) (info->stream, "$%s", reg_names[(l >> OP_SH_RS) & OP_MASK_RS]); break; case 't': case 'w': (*info->fprintf_func) (info->stream, "$%s", reg_names[(l >> OP_SH_RT) & OP_MASK_RT]); break; case 'i': case 'u': (*info->fprintf_func) (info->stream, "%d", (l >> OP_SH_IMMEDIATE) & OP_MASK_IMMEDIATE); break; case 'j': /* same as i, but sign-extended */ case 'o': delta = (l >> OP_SH_DELTA) & OP_MASK_DELTA; if (delta & 0x8000) delta |= ~0xffff; (*info->fprintf_func) (info->stream, "%d", delta); break; case 'k': (*info->fprintf_func) (info->stream, "0x%x", (unsigned int) ((l >> OP_SH_CACHE) & OP_MASK_CACHE)); break; case 'a': (*info->print_address_func) (((pc & 0xF0000000) | (((l >> OP_SH_TARGET) & OP_MASK_TARGET) << 2)), info); break; case 'p': /* sign extend the displacement */ delta = (l >> OP_SH_DELTA) & OP_MASK_DELTA; if (delta & 0x8000) delta |= ~0xffff; (*info->print_address_func) ((delta << 2) + pc + 4, info); break; case 'd': (*info->fprintf_func) (info->stream, "$%s", reg_names[(l >> OP_SH_RD) & OP_MASK_RD]); break; case 'z': (*info->fprintf_func) (info->stream, "$%s", reg_names[0]); break; case '<': (*info->fprintf_func) (info->stream, "0x%x", (l >> OP_SH_SHAMT) & OP_MASK_SHAMT); break; case 'c': (*info->fprintf_func) (info->stream, "0x%x", (l >> OP_SH_CODE) & OP_MASK_CODE); break; case 'C': (*info->fprintf_func) (info->stream, "0x%x", (l >> OP_SH_COPZ) & OP_MASK_COPZ); break; case 'B': (*info->fprintf_func) (info->stream, "0x%x", (l >> OP_SH_SYSCALL) & OP_MASK_SYSCALL); break; case 'S': case 'V': (*info->fprintf_func) (info->stream, "$f%d", (l >> OP_SH_FS) & OP_MASK_FS); break; case 'T': case 'W': (*info->fprintf_func) (info->stream, "$f%d", (l >> OP_SH_FT) & OP_MASK_FT); break; case 'D': (*info->fprintf_func) (info->stream, "$f%d", (l >> OP_SH_FD) & OP_MASK_FD); break; case 'E': (*info->fprintf_func) (info->stream, "$%d", (l >> OP_SH_RT) & OP_MASK_RT); break; case 'G': (*info->fprintf_func) (info->stream, "$%d", (l >> OP_SH_RD) & OP_MASK_RD); break; default: (*info->fprintf_func) (info->stream, "# internal error, undefined modifier(%c)", *d); break; } } /* Print the mips instruction at address MEMADDR in debugged memory, on using INFO. Returns length of the instruction, in bytes, which is always 4. BIGENDIAN must be 1 if this is big-endian code, 0 if this is little-endian code. */ int _print_insn_mips (memaddr, word, info) bfd_vma memaddr; struct disassemble_info *info; unsigned long int word; { register const struct mips_opcode *op; static boolean init = 0; static const struct mips_opcode *mips_hash[OP_MASK_OP + 1]; /* Build a hash table to shorten the search time. */ if (! init) { int i; for (i = 0; i <= OP_MASK_OP; i++) { for (op = mips_opcodes; op < &mips_opcodes[NUMOPCODES]; op++) { if (op->pinfo == INSN_MACRO) continue; if ((i << OP_SH_OP) == (op->match & (OP_MASK_OP << OP_SH_OP))) { mips_hash[i] = op; break; } } } init = 1; } op = mips_hash[(word >> OP_SH_OP) & OP_MASK_OP]; if (op != NULL) { for (; op < &mips_opcodes[NUMOPCODES]; op++) { if (op->pinfo != INSN_MACRO && (word & op->mask) == op->match) { register const char *d; (*info->fprintf_func) (info->stream, "%s", op->name); d = op->args; if (d != NULL) { (*info->fprintf_func) (info->stream, " "); for (; *d != '\0'; d++) print_insn_arg (d, word, memaddr, info); } return 4; } } } /* Handle undefined instructions. */ (*info->fprintf_func) (info->stream, "0x%x", word); return 4; } int print_insn_big_mips (memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { bfd_byte buffer[4]; int status = (*info->read_memory_func) (memaddr, buffer, 4, info); if (status == 0) return _print_insn_mips (memaddr, bfd_getb32 (buffer), info); else { (*info->memory_error_func) (status, memaddr, info); return -1; } } int print_insn_little_mips (memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { bfd_byte buffer[4]; int status = (*info->read_memory_func) (memaddr, buffer, 4, info); if (status == 0) return _print_insn_mips (memaddr, bfd_getl32 (buffer), info); else { (*info->memory_error_func) (status, memaddr, info); return -1; } } gdb-4.13/opcodes/mips-opc.c 666 34562 1752 100624 5550622711 14132 0ustar fnfcygnus/* mips.h. Mips opcode list for GDB, the GNU debugger. Copyright 1993 Free Software Foundation, Inc. Contributed by Ralph Campbell and OSF Commented and modified by Ian Lance Taylor, Cygnus Support This file is part of GDB, GAS, and the GNU binutils. GDB, GAS, and the GNU binutils are free software; you can redistribute them and/or modify them under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. GDB, GAS, and the GNU binutils are distributed in the hope that they 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 file; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "ansidecl.h" #include "opcode/mips.h" /* Short hand so the lines aren't too long. */ #define LDD INSN_LOAD_MEMORY_DELAY #define LCD INSN_LOAD_COPROC_DELAY #define UBD INSN_UNCOND_BRANCH_DELAY #define CBD INSN_COND_BRANCH_DELAY #define COD INSN_COPROC_MOVE_DELAY #define CLD INSN_COPROC_MEMORY_DELAY #define CBL INSN_COND_BRANCH_LIKELY #define TRAP INSN_TRAP #define WR_d INSN_WRITE_GPR_D #define WR_t INSN_WRITE_GPR_T #define WR_31 INSN_WRITE_GPR_31 #define WR_D INSN_WRITE_FPR_D #define WR_T INSN_WRITE_FPR_T #define WR_S INSN_WRITE_FPR_S #define RD_s INSN_READ_GPR_S #define RD_b INSN_READ_GPR_S #define RD_t INSN_READ_GPR_T #define RD_S INSN_READ_FPR_S #define RD_T INSN_READ_FPR_T #define WR_CC INSN_WRITE_COND_CODE #define RD_CC INSN_READ_COND_CODE #define RD_C0 INSN_COP #define RD_C1 INSN_COP #define RD_C2 INSN_COP #define RD_C3 INSN_COP #define WR_C0 INSN_COP #define WR_C1 INSN_COP #define WR_C2 INSN_COP #define WR_C3 INSN_COP #define WR_HI INSN_WRITE_HI #define WR_LO INSN_WRITE_LO #define RD_HI INSN_READ_HI #define RD_LO INSN_READ_LO #define I2 INSN_ISA2 #define I3 INSN_ISA3 /* The order of overloaded instructions matters. Label arguments and register arguments look the same. Instructions that can have either for arguments must apear in the correct order in this table for the assembler to pick the right one. In other words, entries with immediate operands must apear after the same instruction with registers. Many instructions are short hand for other instructions (i.e., The jal instruction is short for jalr ). */ const struct mips_opcode mips_opcodes[] = { /* These instructions appear first so that the disassembler will find them first. The assemblers uses a hash table based on the instruction name anyhow. */ {"nop", "", 0x00000000, 0xffffffff, 0 }, {"li", "t,j", 0x24000000, 0xffe00000, WR_t }, /* addiu */ {"li", "t,i", 0x34000000, 0xffe00000, WR_t }, /* ori */ {"li", "t,I", 0, (int) M_LI, INSN_MACRO }, {"move", "d,s", 0x00000021, 0xfc1f07ff, WR_d|RD_s }, /* addu */ {"b", "p", 0x10000000, 0xffff0000, UBD }, /* beq 0,0 */ {"b", "p", 0x04010000, 0xffff0000, UBD }, /* bgez 0 */ {"bal", "p", 0x04110000, 0xffff0000, UBD|WR_31 }, /* bgezal 0 */ {"abs", "d,v", 0, (int) M_ABS, INSN_MACRO }, {"abs.s", "D,V", 0x46000005, 0xffff003f, WR_D|RD_S }, {"abs.d", "D,V", 0x46200005, 0xffff003f, WR_D|RD_S }, {"add", "d,v,t", 0x00000020, 0xfc0007ff, WR_d|RD_s|RD_t }, {"add", "t,r,I", 0, (int) M_ADD_I, INSN_MACRO }, {"add.s", "D,V,T", 0x46000000, 0xffe0003f, WR_D|RD_S|RD_T }, {"add.d", "D,V,T", 0x46200000, 0xffe0003f, WR_D|RD_S|RD_T }, {"addi", "t,r,j", 0x20000000, 0xfc000000, WR_t|RD_s }, {"addiu", "t,r,j", 0x24000000, 0xfc000000, WR_t|RD_s }, {"addu", "d,v,t", 0x00000021, 0xfc0007ff, WR_d|RD_s|RD_t }, {"addu", "t,r,I", 0, (int) M_ADDU_I, INSN_MACRO }, {"and", "d,v,t", 0x00000024, 0xfc0007ff, WR_d|RD_s|RD_t }, {"and", "t,r,I", 0, (int) M_AND_I, INSN_MACRO }, {"andi", "t,r,i", 0x30000000, 0xfc000000, WR_t|RD_s }, /* b is at the top of the table. */ /* bal is at the top of the table. */ {"bc0f", "p", 0x41000000, 0xffff0000, CBD|RD_CC }, {"bc0fl", "p", 0x41020000, 0xffff0000, CBL|RD_CC|I2 }, {"bc1f", "p", 0x45000000, 0xffff0000, CBD|RD_CC }, {"bc1fl", "p", 0x45020000, 0xffff0000, CBL|RD_CC|I2 }, {"bc2f", "p", 0x49000000, 0xffff0000, CBD|RD_CC }, {"bc2fl", "p", 0x49020000, 0xffff0000, CBL|RD_CC|I2 }, {"bc3f", "p", 0x4d000000, 0xffff0000, CBD|RD_CC }, {"bc3fl", "p", 0x4d020000, 0xffff0000, CBL|RD_CC|I2 }, {"bc0t", "p", 0x41010000, 0xffff0000, CBD|RD_CC }, {"bc0tl", "p", 0x41030000, 0xffff0000, CBL|RD_CC|I2 }, {"bc1t", "p", 0x45010000, 0xffff0000, CBD|RD_CC }, {"bc1tl", "p", 0x45030000, 0xffff0000, CBL|RD_CC|I2 }, {"bc2t", "p", 0x49010000, 0xffff0000, CBD|RD_CC }, {"bc2tl", "p", 0x49030000, 0xffff0000, CBL|RD_CC|I2 }, {"bc3t", "p", 0x4d010000, 0xffff0000, CBD|RD_CC }, {"bc3tl", "p", 0x4d030000, 0xffff0000, CBL|RD_CC|I2 }, {"beqz", "s,p", 0x10000000, 0xfc1f0000, CBD|RD_s }, {"beqzl", "s,p", 0x50000000, 0xfc1f0000, CBL|RD_s|I2 }, {"beq", "s,t,p", 0x10000000, 0xfc000000, CBD|RD_s|RD_t }, {"beq", "s,I,p", 0, (int) M_BEQ_I, INSN_MACRO }, {"beql", "s,t,p", 0x50000000, 0xfc000000, CBL|RD_s|RD_t|I2}, {"beql", "s,I,p", 2, (int) M_BEQL_I, INSN_MACRO }, {"bge", "s,t,p", 0, (int) M_BGE, INSN_MACRO }, {"bge", "s,I,p", 0, (int) M_BGE_I, INSN_MACRO }, {"bgel", "s,t,p", 2, (int) M_BGEL, INSN_MACRO }, {"bgel", "s,I,p", 2, (int) M_BGEL_I, INSN_MACRO }, {"bgeu", "s,t,p", 0, (int) M_BGEU, INSN_MACRO }, {"bgeu", "s,I,p", 0, (int) M_BGEU_I, INSN_MACRO }, {"bgeul", "s,t,p", 2, (int) M_BGEUL, INSN_MACRO }, {"bgeul", "s,I,p", 2, (int) M_BGEUL_I, INSN_MACRO }, {"bgez", "s,p", 0x04010000, 0xfc1f0000, CBD|RD_s }, {"bgezl", "s,p", 0x04030000, 0xfc1f0000, CBL|RD_s|I2 }, {"bgezal", "s,p", 0x04110000, 0xfc1f0000, CBD|RD_s|WR_31 }, {"bgezall", "s,p", 0x04130000, 0xfc1f0000, CBL|RD_s|I2 }, {"bgt", "s,t,p", 0, (int) M_BGT, INSN_MACRO }, {"bgt", "s,I,p", 0, (int) M_BGT_I, INSN_MACRO }, {"bgtl", "s,t,p", 2, (int) M_BGTL, INSN_MACRO }, {"bgtl", "s,I,p", 2, (int) M_BGTL_I, INSN_MACRO }, {"bgtu", "s,t,p", 0, (int) M_BGTU, INSN_MACRO }, {"bgtu", "s,I,p", 0, (int) M_BGTU_I, INSN_MACRO }, {"bgtul", "s,t,p", 2, (int) M_BGTUL, INSN_MACRO }, {"bgtul", "s,I,p", 2, (int) M_BGTUL_I, INSN_MACRO }, {"bgtz", "s,p", 0x1c000000, 0xfc1f0000, CBD|RD_s }, {"bgtzl", "s,p", 0x5c000000, 0xfc1f0000, CBL|RD_s|I2 }, {"ble", "s,t,p", 0, (int) M_BLE, INSN_MACRO }, {"ble", "s,I,p", 0, (int) M_BLE_I, INSN_MACRO }, {"blel", "s,t,p", 2, (int) M_BLEL, INSN_MACRO }, {"blel", "s,I,p", 2, (int) M_BLEL_I, INSN_MACRO }, {"bleu", "s,t,p", 0, (int) M_BLEU, INSN_MACRO }, {"bleu", "s,I,p", 0, (int) M_BLEU_I, INSN_MACRO }, {"bleul", "s,t,p", 2, (int) M_BLEUL, INSN_MACRO }, {"bleul", "s,I,p", 2, (int) M_BLEUL_I, INSN_MACRO }, {"blez", "s,p", 0x18000000, 0xfc1f0000, CBD|RD_s }, {"blezl", "s,p", 0x58000000, 0xfc1f0000, CBL|RD_s|I2 }, {"blt", "s,t,p", 0, (int) M_BLT, INSN_MACRO }, {"blt", "s,I,p", 0, (int) M_BLT_I, INSN_MACRO }, {"bltl", "s,t,p", 2, (int) M_BLTL, INSN_MACRO }, {"bltl", "s,I,p", 2, (int) M_BLTL_I, INSN_MACRO }, {"bltu", "s,t,p", 0, (int) M_BLTU, INSN_MACRO }, {"bltu", "s,I,p", 0, (int) M_BLTU_I, INSN_MACRO }, {"bltul", "s,t,p", 2, (int) M_BLTUL, INSN_MACRO }, {"bltul", "s,I,p", 2, (int) M_BLTUL_I, INSN_MACRO }, {"bltz", "s,p", 0x04000000, 0xfc1f0000, CBD|RD_s }, {"bltzl", "s,p", 0x04020000, 0xfc1f0000, CBL|RD_s|I2 }, {"bltzal", "s,p", 0x04100000, 0xfc1f0000, CBD|RD_s|WR_31 }, {"bltzall", "s,p", 0x04120000, 0xfc1f0000, CBL|RD_s|I2 }, {"bnez", "s,p", 0x14000000, 0xfc1f0000, CBD|RD_s }, {"bnezl", "s,p", 0x54000000, 0xfc1f0000, CBL|RD_s|I2 }, {"bne", "s,t,p", 0x14000000, 0xfc000000, CBD|RD_s|RD_t }, {"bne", "s,I,p", 0, (int) M_BNE_I, INSN_MACRO }, {"bnel", "s,t,p", 0x54000000, 0xfc000000, CBL|RD_s|RD_t|I2}, {"bnel", "s,I,p", 2, (int) M_BNEL_I, INSN_MACRO }, {"break", "", 0x0000000d, 0xffffffff, TRAP }, {"break", "c", 0x0000000d, 0xfc00003f, TRAP }, {"c.f.d", "S,T", 0x46200030, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.f.s", "S,T", 0x46000030, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.un.d", "S,T", 0x46200031, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.un.s", "S,T", 0x46000031, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.eq.d", "S,T", 0x46200032, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.eq.s", "S,T", 0x46000032, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ueq.d", "S,T", 0x46200033, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ueq.s", "S,T", 0x46000033, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.olt.d", "S,T", 0x46200034, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.olt.s", "S,T", 0x46000034, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ult.d", "S,T", 0x46200035, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ult.s", "S,T", 0x46000035, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ole.d", "S,T", 0x46200036, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ole.s", "S,T", 0x46000036, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ule.d", "S,T", 0x46200037, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ule.s", "S,T", 0x46000037, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.sf.d", "S,T", 0x46200038, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.sf.s", "S,T", 0x46000038, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ngle.d","S,T", 0x46200039, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ngle.s","S,T", 0x46000039, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.seq.d", "S,T", 0x4620003a, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.seq.s", "S,T", 0x4600003a, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ngl.d", "S,T", 0x4620003b, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ngl.s", "S,T", 0x4600003b, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.lt.d", "S,T", 0x4620003c, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.lt.s", "S,T", 0x4600003c, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.nge.d", "S,T", 0x4620003d, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.nge.s", "S,T", 0x4600003d, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.le.d", "S,T", 0x4620003e, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.le.s", "S,T", 0x4600003e, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ngt.d", "S,T", 0x4620003f, 0xffe007ff, RD_S|RD_T|WR_CC }, {"c.ngt.s", "S,T", 0x4600003f, 0xffe007ff, RD_S|RD_T|WR_CC }, {"cache", "k,o(b)", 0xbc000000, 0xfc000000, RD_b|I3 }, {"ceil.l.d", "D,S", 0x4620000a, 0xffff003f, WR_D|RD_S|I3 }, {"ceil.l.s", "D,S", 0x4600000a, 0xffff003f, WR_D|RD_S|I3 }, {"ceil.w.d", "D,S", 0x4620000e, 0xffff003f, WR_D|RD_S|I2 }, {"ceil.w.s", "D,S", 0x4600000e, 0xffff003f, WR_D|RD_S|I2 }, {"cfc0", "t,G", 0x40400000, 0xffe007ff, LCD|WR_t|RD_C0 }, {"cfc1", "t,G", 0x44400000, 0xffe007ff, LCD|WR_t|RD_C1 }, {"cfc1", "t,S", 0x44400000, 0xffe007ff, LCD|WR_t|RD_C1 }, {"cfc2", "t,G", 0x48400000, 0xffe007ff, LCD|WR_t|RD_C2 }, {"cfc3", "t,G", 0x4c400000, 0xffe007ff, LCD|WR_t|RD_C3 }, {"ctc0", "t,G", 0x40c00000, 0xffe007ff, COD|RD_t|WR_CC }, {"ctc1", "t,G", 0x44c00000, 0xffe007ff, COD|RD_t|WR_CC }, {"ctc1", "t,S", 0x44c00000, 0xffe007ff, COD|RD_t|WR_CC }, {"ctc2", "t,G", 0x48c00000, 0xffe007ff, COD|RD_t|WR_CC }, {"ctc3", "t,G", 0x4cc00000, 0xffe007ff, COD|RD_t|WR_CC }, {"cvt.d.l", "D,S", 0x46a00021, 0xffff003f, WR_D|RD_S|I3 }, {"cvt.d.s", "D,S", 0x46000021, 0xffff003f, WR_D|RD_S }, {"cvt.d.w", "D,S", 0x46800021, 0xffff003f, WR_D|RD_S }, {"cvt.l.d", "D,S", 0x46200025, 0xffff003f, WR_D|RD_S|I3 }, {"cvt.l.s", "D,S", 0x46000025, 0xffff003f, WR_D|RD_S|I3 }, {"cvt.s.l", "D,S", 0x46a00020, 0xffff003f, WR_D|RD_S|I3 }, {"cvt.s.d", "D,S", 0x46200020, 0xffff003f, WR_D|RD_S }, {"cvt.s.w", "D,S", 0x46800020, 0xffff003f, WR_D|RD_S }, {"cvt.w.d", "D,S", 0x46200024, 0xffff003f, WR_D|RD_S }, {"cvt.w.s", "D,S", 0x46000024, 0xffff003f, WR_D|RD_S }, {"dabs", "d,v", 0, (int) M_DABS, INSN_MACRO }, {"dadd", "d,v,t", 0x0000002c, 0xfc0007ff, WR_d|RD_s|RD_t|I3}, {"dadd", "t,r,I", 3, (int) M_DADD_I, INSN_MACRO }, {"daddi", "t,r,j", 0x60000000, 0xfc000000, WR_t|RD_s|I3 }, {"daddiu", "t,r,j", 0x64000000, 0xfc000000, WR_t|RD_s|I3 }, {"daddu", "d,v,t", 0x0000002d, 0xfc0007ff, WR_d|RD_s|RD_t|I3}, {"daddu", "t,r,I", 3, (int) M_DADDU_I, INSN_MACRO }, /* For ddiv, see the comments about div. */ {"ddiv", "z,s,t", 0x0000001e, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO|I3 }, {"ddiv", "d,v,t", 3, (int) M_DDIV_3, INSN_MACRO }, {"ddiv", "d,v,I", 3, (int) M_DDIV_3I, INSN_MACRO }, /* For ddivu, see the comments about div. */ {"ddivu", "z,s,t", 0x0000001f, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO|I3 }, {"ddivu", "d,v,t", 3, (int) M_DDIVU_3, INSN_MACRO }, {"ddivu", "d,v,I", 3, (int) M_DDIVU_3I, INSN_MACRO }, /* The MIPS assembler treats the div opcode with two operands as though the first operand appeared twice (the first operand is both a source and a destination). To get the div machine instruction, you must use an explicit destination of $0. */ {"div", "z,s,t", 0x0000001a, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO }, {"div", "d,v,t", 0, (int) M_DIV_3, INSN_MACRO }, {"div", "d,v,I", 0, (int) M_DIV_3I, INSN_MACRO }, {"div.d", "D,V,T", 0x46200003, 0xffe0003f, WR_D|RD_S|RD_T }, {"div.s", "D,V,T", 0x46000003, 0xffe0003f, WR_D|RD_S|RD_T }, /* For divu, see the comments about div. */ {"divu", "z,s,t", 0x0000001b, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO }, {"divu", "d,v,t", 0, (int) M_DIVU_3, INSN_MACRO }, {"divu", "d,v,I", 0, (int) M_DIVU_3I, INSN_MACRO }, {"dmfc0", "t,G", 0x40200000, 0xffe007ff, LCD|WR_t|RD_C0|I3 }, {"dmtc0", "t,G", 0x40a00000, 0xffe007ff, COD|RD_t|WR_C0|WR_CC|I3 }, {"dmfc1", "t,S", 0x44200000, 0xffe007ff, LCD|WR_t|RD_S|I3 }, {"dmtc1", "t,S", 0x44a00000, 0xffe007ff, COD|RD_t|WR_S|I3 }, {"dmul", "d,v,t", 3, (int) M_DMUL, INSN_MACRO }, {"dmul", "d,v,I", 3, (int) M_DMUL_I, INSN_MACRO }, {"dmulo", "d,v,t", 3, (int) M_DMULO, INSN_MACRO }, {"dmulo", "d,v,I", 3, (int) M_DMULO_I, INSN_MACRO }, {"dmulou", "d,v,t", 3, (int) M_DMULOU, INSN_MACRO }, {"dmulou", "d,v,I", 3, (int) M_DMULOU_I, INSN_MACRO }, {"dmult", "s,t", 0x0000001c, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO|I3 }, {"dmultu", "s,t", 0x0000001d, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO|I3 }, {"dneg", "d,w", 0x0000002e, 0xffe007ff, WR_d|RD_t|I3 }, /* dsub 0 */ {"dnegu", "d,w", 0x0000002f, 0xffe007ff, WR_d|RD_t|I3 }, /* dsubu 0*/ {"drem", "z,s,t", 0x0000001e, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO|I3 }, {"drem", "d,v,t", 3, (int) M_DREM_3, INSN_MACRO }, {"drem", "d,v,I", 3, (int) M_DREM_3I, INSN_MACRO }, {"dremu", "z,s,t", 0x0000001f, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO|I3 }, {"dremu", "d,v,t", 3, (int) M_DREMU_3, INSN_MACRO }, {"dremu", "d,v,I", 3, (int) M_DREMU_3I, INSN_MACRO }, {"dsllv", "d,t,s", 0x00000014, 0xfc0007ff, WR_d|RD_t|RD_s|I3}, {"dsll32", "d,w,<", 0x0000003c, 0xffe0003f, WR_d|RD_t|I3 }, {"dsll", "d,w,s", 0x00000014, 0xfc0007ff, WR_d|RD_t|RD_s|I3}, /* dsllv */ {"dsll", "d,w,>", 0x0000003c, 0xffe0003f, WR_d|RD_t|I3 }, /* dsll32 */ {"dsll", "d,w,<", 0x00000038, 0xffe0003f, WR_d|RD_t|I3 }, {"dsrav", "d,t,s", 0x00000017, 0xfc0007ff, WR_d|RD_t|RD_s|I3}, {"dsra32", "d,w,<", 0x0000003f, 0xffe0003f, WR_d|RD_t|I3 }, {"dsra", "d,w,s", 0x00000017, 0xfc0007ff, WR_d|RD_t|RD_s|I3}, /* dsrav */ {"dsra", "d,w,>", 0x0000003f, 0xffe0003f, WR_d|RD_t|I3 }, /* dsra32 */ {"dsra", "d,w,<", 0x0000003b, 0xffe0003f, WR_d|RD_t|I3 }, {"dsrlv", "d,t,s", 0x00000016, 0xfc0007ff, WR_d|RD_t|RD_s|I3}, {"dsrl32", "d,w,<", 0x0000003e, 0xffe0003f, WR_d|RD_t|I3 }, {"dsrl", "d,w,s", 0x00000016, 0xfc0007ff, WR_d|RD_t|RD_s|I3}, /* dsrlv */ {"dsrl", "d,w,>", 0x0000003e, 0xffe0003f, WR_d|RD_t|I3 }, /* dsrl32 */ {"dsrl", "d,w,<", 0x0000003a, 0xffe0003f, WR_d|RD_t|I3 }, {"dsub", "d,v,t", 0x0000002e, 0xfc0007ff, WR_d|RD_s|RD_t|I3}, {"dsub", "d,v,I", 3, (int) M_DSUB_I, INSN_MACRO }, {"dsubu", "d,v,t", 0x0000002f, 0xfc0007ff, WR_d|RD_s|RD_t|I3}, {"dsubu", "d,v,I", 3, (int) M_DSUBU_I, INSN_MACRO }, {"eret", "", 0x42000018, 0xffffffff, I3 }, {"floor.l.d", "D,S", 0x4620000b, 0xffff003f, WR_D|RD_S|I3 }, {"floor.l.s", "D,S", 0x4600000b, 0xffff003f, WR_D|RD_S|I3 }, {"floor.w.d", "D,S", 0x4620000f, 0xffff003f, WR_D|RD_S|I2 }, {"floor.w.s", "D,S", 0x4600000f, 0xffff003f, WR_D|RD_S|I2 }, {"jr", "s", 0x00000008, 0xfc1fffff, UBD|RD_s }, {"j", "s", 0x00000008, 0xfc1fffff, UBD|RD_s }, /* jr */ /* SVR4 PIC code requires special handling for j, so it must be a macro. */ {"j", "a", 0, (int) M_J_A, INSN_MACRO }, /* This form of j is used by the disassembler and internally by the assembler, but will never match user input (because the line above will match first). */ {"j", "a", 0x08000000, 0xfc000000, UBD }, {"jalr", "s", 0x0000f809, 0xfc1fffff, UBD|RD_s|WR_d }, {"jalr", "d,s", 0x00000009, 0xfc1f07ff, UBD|RD_s|WR_d }, /* SVR4 PIC code requires special handling for jal, so it must be a macro. */ {"jal", "d,s", 0, (int) M_JAL_2, INSN_MACRO }, {"jal", "s", 0, (int) M_JAL_1, INSN_MACRO }, {"jal", "a", 0, (int) M_JAL_A, INSN_MACRO }, /* This form of jal is used by the disassembler and internally by the assembler, but will never match user input (because the line above will match first). */ {"jal", "a", 0x0c000000, 0xfc000000, UBD|WR_31 }, {"la", "t,A(b)", 0, (int) M_LA_AB, INSN_MACRO }, {"lb", "t,o(b)", 0x80000000, 0xfc000000, LDD|RD_b|WR_t }, {"lb", "t,A(b)", 0, (int) M_LB_AB, INSN_MACRO }, {"lbu", "t,o(b)", 0x90000000, 0xfc000000, LDD|RD_b|WR_t }, {"lbu", "t,A(b)", 0, (int) M_LBU_AB, INSN_MACRO }, {"ld", "t,o(b)", 0xdc000000, 0xfc000000, WR_t|RD_b|I3 }, {"ld", "t,o(b)", 0, (int) M_LD_OB, INSN_MACRO }, {"ld", "t,A(b)", 0, (int) M_LD_AB, INSN_MACRO }, {"ldc1", "T,o(b)", 0xd4000000, 0xfc000000, CLD|RD_b|WR_T|I2}, {"ldc1", "E,o(b)", 0xd4000000, 0xfc000000, CLD|RD_b|WR_T|I2}, {"ldc1", "T,A(b)", 2, (int) M_LDC1_AB, INSN_MACRO }, {"ldc1", "E,A(b)", 2, (int) M_LDC1_AB, INSN_MACRO }, {"l.d", "T,o(b)", 0xd4000000, 0xfc000000, CLD|RD_b|WR_T|I2}, /* ldc1 */ {"l.d", "T,o(b)", 0, (int) M_L_DOB, INSN_MACRO }, {"l.d", "T,A(b)", 0, (int) M_L_DAB, INSN_MACRO }, {"ldc2", "E,o(b)", 0xd8000000, 0xfc000000, CLD|RD_b|WR_CC|I2}, {"ldc2", "E,A(b)", 2, (int) M_LDC2_AB, INSN_MACRO }, {"ldc3", "E,o(b)", 0xdc000000, 0xfc000000, CLD|RD_b|WR_CC|I2}, {"ldc3", "E,A(b)", 2, (int) M_LDC3_AB, INSN_MACRO }, {"ldl", "t,o(b)", 0x68000000, 0xfc000000, LDD|WR_t|RD_b|I3}, {"ldl", "t,A(b)", 3, (int) M_LDL_AB, INSN_MACRO }, {"ldr", "t,o(b)", 0x6c000000, 0xfc000000, LDD|WR_t|RD_b|I3}, {"ldr", "t,A(b)", 3, (int) M_LDR_AB, INSN_MACRO }, {"lh", "t,o(b)", 0x84000000, 0xfc000000, LDD|RD_b|WR_t }, {"lh", "t,A(b)", 0, (int) M_LH_AB, INSN_MACRO }, {"lhu", "t,o(b)", 0x94000000, 0xfc000000, LDD|RD_b|WR_t }, {"lhu", "t,A(b)", 0, (int) M_LHU_AB, INSN_MACRO }, /* li is at the start of the table. */ {"li.d", "t,F", 0, (int) M_LI_D, INSN_MACRO }, {"li.d", "T,L", 0, (int) M_LI_DD, INSN_MACRO }, {"li.s", "t,f", 0, (int) M_LI_S, INSN_MACRO }, {"li.s", "T,l", 0, (int) M_LI_SS, INSN_MACRO }, {"ll", "t,o(b)", 0xc0000000, 0xfc000000, LDD|RD_b|WR_t|I2}, {"ll", "t,A(b)", 2, (int) M_LL_AB, INSN_MACRO }, {"lld", "t,o(b)", 0xd0000000, 0xfc000000, LDD|RD_b|WR_t|I3}, {"lld", "t,A(b)", 3, (int) M_LLD_AB, INSN_MACRO }, {"lui", "t,u", 0x3c000000, 0xffe00000, WR_t }, {"lw", "t,o(b)", 0x8c000000, 0xfc000000, LDD|RD_b|WR_t }, {"lw", "t,A(b)", 0, (int) M_LW_AB, INSN_MACRO }, {"lwc0", "E,o(b)", 0xc0000000, 0xfc000000, CLD|RD_b|WR_CC }, {"lwc0", "E,A(b)", 0, (int) M_LWC0_AB, INSN_MACRO }, {"lwc1", "T,o(b)", 0xc4000000, 0xfc000000, CLD|RD_b|WR_T }, {"lwc1", "E,o(b)", 0xc4000000, 0xfc000000, CLD|RD_b|WR_T }, {"lwc1", "T,A(b)", 0, (int) M_LWC1_AB, INSN_MACRO }, {"lwc1", "E,A(b)", 0, (int) M_LWC1_AB, INSN_MACRO }, {"l.s", "T,o(b)", 0xc4000000, 0xfc000000, CLD|RD_b|WR_T }, /* lwc1 */ {"l.s", "T,A(b)", 0, (int) M_LWC1_AB, INSN_MACRO }, {"lwc2", "E,o(b)", 0xc8000000, 0xfc000000, CLD|RD_b|WR_CC }, {"lwc2", "E,A(b)", 0, (int) M_LWC2_AB, INSN_MACRO }, {"lwc3", "E,o(b)", 0xcc000000, 0xfc000000, CLD|RD_b|WR_CC }, {"lwc3", "E,A(b)", 0, (int) M_LWC3_AB, INSN_MACRO }, {"lwl", "t,o(b)", 0x88000000, 0xfc000000, LDD|RD_b|WR_t }, {"lwl", "t,A(b)", 0, (int) M_LWL_AB, INSN_MACRO }, {"lcache", "t,o(b)", 0x88000000, 0xfc000000, LDD|RD_b|WR_t|I2}, /* same */ {"lcache", "t,A(b)", 2, (int) M_LWL_AB, INSN_MACRO }, /* as lwl */ {"lwr", "t,o(b)", 0x98000000, 0xfc000000, LDD|RD_b|WR_t }, {"lwr", "t,A(b)", 0, (int) M_LWR_AB, INSN_MACRO }, {"flush", "t,o(b)", 0x98000000, 0xfc000000, LDD|RD_b|WR_t|I2}, /* same */ {"flush", "t,A(b)", 2, (int) M_LWR_AB, INSN_MACRO }, /* as lwr */ {"lwu", "t,o(b)", 0x9c000000, 0xfc000000, LDD|RD_b|WR_t|I3}, {"lwu", "t,A(b)", 3, (int) M_LWU_AB, INSN_MACRO }, {"mfc0", "t,G", 0x40000000, 0xffe007ff, LCD|WR_t|RD_C0 }, {"mfc1", "t,S", 0x44000000, 0xffe007ff, LCD|WR_t|RD_S }, {"mfc1", "t,G", 0x44000000, 0xffe007ff, LCD|WR_t|RD_S }, {"mfc2", "t,G", 0x48000000, 0xffe007ff, LCD|WR_t|RD_C2 }, {"mfc3", "t,G", 0x4c000000, 0xffe007ff, LCD|WR_t|RD_C3 }, {"mfhi", "d", 0x00000010, 0xffff07ff, WR_d|RD_HI }, {"mflo", "d", 0x00000012, 0xffff07ff, WR_d|RD_LO }, {"mov.d", "D,S", 0x46200006, 0xffff003f, WR_D|RD_S }, {"mov.s", "D,S", 0x46000006, 0xffff003f, WR_D|RD_S }, /* move is at the top of the table. */ {"mtc0", "t,G", 0x40800000, 0xffe007ff, COD|RD_t|WR_C0|WR_CC }, {"mtc1", "t,S", 0x44800000, 0xffe007ff, COD|RD_t|WR_S }, {"mtc1", "t,G", 0x44800000, 0xffe007ff, COD|RD_t|WR_S }, {"mtc2", "t,G", 0x48800000, 0xffe007ff, COD|RD_t|WR_C2|WR_CC }, {"mtc3", "t,G", 0x4c800000, 0xffe007ff, COD|RD_t|WR_C3|WR_CC }, {"mthi", "s", 0x00000011, 0xfc1fffff, RD_s|WR_HI }, {"mtlo", "s", 0x00000013, 0xfc1fffff, RD_s|WR_LO }, {"mul.d", "D,V,T", 0x46200002, 0xffe0003f, WR_D|RD_S|RD_T }, {"mul.s", "D,V,T", 0x46000002, 0xffe0003f, WR_D|RD_S|RD_T }, {"mul", "d,v,t", 0, (int) M_MUL, INSN_MACRO }, {"mul", "d,v,I", 0, (int) M_MUL_I, INSN_MACRO }, {"mulo", "d,v,t", 0, (int) M_MULO, INSN_MACRO }, {"mulo", "d,v,I", 0, (int) M_MULO_I, INSN_MACRO }, {"mulou", "d,v,t", 0, (int) M_MULOU, INSN_MACRO }, {"mulou", "d,v,I", 0, (int) M_MULOU_I, INSN_MACRO }, {"mult", "s,t", 0x00000018, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO }, {"multu", "s,t", 0x00000019, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO }, {"neg", "d,w", 0x00000022, 0xffe007ff, WR_d|RD_t }, /* sub 0 */ {"negu", "d,w", 0x00000023, 0xffe007ff, WR_d|RD_t }, /* subu 0 */ {"neg.d", "D,V", 0x46200007, 0xffff003f, WR_D|RD_S }, {"neg.s", "D,V", 0x46000007, 0xffff003f, WR_D|RD_S }, /* nop is at the start of the table. */ {"nor", "d,v,t", 0x00000027, 0xfc0007ff, WR_d|RD_s|RD_t }, {"nor", "t,r,I", 0, (int) M_NOR_I, INSN_MACRO }, {"not", "d,v", 0x00000027, 0xfc0007ff, WR_d|RD_s|RD_t }, /* nor d,s,zero */ {"or", "d,v,t", 0x00000025, 0xfc0007ff, WR_d|RD_s|RD_t }, {"or", "t,r,I", 0, (int) M_OR_I, INSN_MACRO }, {"ori", "t,r,i", 0x34000000, 0xfc000000, WR_t|RD_s }, {"rem", "z,s,t", 0x0000001a, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO }, {"rem", "d,v,t", 0, (int) M_REM_3, INSN_MACRO }, {"rem", "d,v,I", 0, (int) M_REM_3I, INSN_MACRO }, {"remu", "z,s,t", 0x0000001b, 0xfc00ffff, RD_s|RD_t|WR_HI|WR_LO }, {"remu", "d,v,t", 0, (int) M_REMU_3, INSN_MACRO }, {"remu", "d,v,I", 0, (int) M_REMU_3I, INSN_MACRO }, {"rfe", "", 0x42000010, 0xffffffff, INSN_RFE }, {"rol", "d,v,t", 0, (int) M_ROL, INSN_MACRO }, {"rol", "d,v,I", 0, (int) M_ROL_I, INSN_MACRO }, {"ror", "d,v,t", 0, (int) M_ROR, INSN_MACRO }, {"ror", "d,v,I", 0, (int) M_ROR_I, INSN_MACRO }, {"round.l.d", "D,S", 0x46200008, 0xffff003f, WR_D|RD_S|I3 }, {"round.l.s", "D,S", 0x46000008, 0xffff003f, WR_D|RD_S|I3 }, {"round.w.d", "D,S", 0x4620000c, 0xffff003f, WR_D|RD_S|I2 }, {"round.w.s", "D,S", 0x4600000c, 0xffff003f, WR_D|RD_S|I2 }, {"sb", "t,o(b)", 0xa0000000, 0xfc000000, RD_t|RD_b }, {"sb", "t,A(b)", 0, (int) M_SB_AB, INSN_MACRO }, {"sc", "t,o(b)", 0xe0000000, 0xfc000000, RD_t|RD_b|I2 }, {"sc", "t,A(b)", 2, (int) M_SC_AB, INSN_MACRO }, {"scd", "t,o(b)", 0xf0000000, 0xfc000000, RD_t|RD_b|I3 }, {"scd", "t,A(b)", 3, (int) M_SCD_AB, INSN_MACRO }, {"sd", "t,o(b)", 0xfc000000, 0xfc000000, RD_t|RD_b|I3 }, {"sd", "t,o(b)", 0, (int) M_SD_OB, INSN_MACRO }, {"sd", "t,A(b)", 0, (int) M_SD_AB, INSN_MACRO }, {"sdc1", "T,o(b)", 0xf4000000, 0xfc000000, RD_T|RD_b|I2 }, {"sdc1", "E,o(b)", 0xf4000000, 0xfc000000, RD_T|RD_b|I2 }, {"sdc1", "T,A(b)", 2, (int) M_SDC1_AB, INSN_MACRO }, {"sdc1", "E,A(b)", 2, (int) M_SDC1_AB, INSN_MACRO }, {"sdc2", "E,o(b)", 0xf8000000, 0xfc000000, RD_C2|RD_b|I2 }, {"sdc2", "E,A(b)", 2, (int) M_SDC2_AB, INSN_MACRO }, {"sdc3", "E,o(b)", 0xfc000000, 0xfc000000, RD_C3|RD_b|I2 }, {"sdc3", "E,A(b)", 2, (int) M_SDC3_AB, INSN_MACRO }, {"s.d", "T,o(b)", 0xf4000000, 0xfc000000, RD_T|RD_b|I2 }, {"s.d", "T,o(b)", 0, (int) M_S_DOB, INSN_MACRO }, {"s.d", "T,A(b)", 0, (int) M_S_DAB, INSN_MACRO }, {"sdl", "t,o(b)", 0xb0000000, 0xfc000000, RD_t|RD_b|I3 }, {"sdl", "t,A(b)", 3, (int) M_SDL_AB, INSN_MACRO }, {"sdr", "t,o(b)", 0xb4000000, 0xfc000000, RD_t|RD_b|I3 }, {"sdr", "t,A(b)", 3, (int) M_SDR_AB, INSN_MACRO }, {"seq", "d,v,t", 0, (int) M_SEQ, INSN_MACRO }, {"seq", "d,v,I", 0, (int) M_SEQ_I, INSN_MACRO }, {"sge", "d,v,t", 0, (int) M_SGE, INSN_MACRO }, {"sge", "d,v,I", 0, (int) M_SGE_I, INSN_MACRO }, {"sgeu", "d,v,t", 0, (int) M_SGEU, INSN_MACRO }, {"sgeu", "d,v,I", 0, (int) M_SGEU_I, INSN_MACRO }, {"sgt", "d,v,t", 0, (int) M_SGT, INSN_MACRO }, {"sgt", "d,v,I", 0, (int) M_SGT_I, INSN_MACRO }, {"sgtu", "d,v,t", 0, (int) M_SGTU, INSN_MACRO }, {"sgtu", "d,v,I", 0, (int) M_SGTU_I, INSN_MACRO }, {"sh", "t,o(b)", 0xa4000000, 0xfc000000, RD_t|RD_b }, {"sh", "t,A(b)", 0, (int) M_SH_AB, INSN_MACRO }, {"sle", "d,v,t", 0, (int) M_SLE, INSN_MACRO }, {"sle", "d,v,I", 0, (int) M_SLE_I, INSN_MACRO }, {"sleu", "d,v,t", 0, (int) M_SLEU, INSN_MACRO }, {"sleu", "d,v,I", 0, (int) M_SLEU_I, INSN_MACRO }, {"sllv", "d,t,s", 0x00000004, 0xfc0007ff, WR_d|RD_t|RD_s }, {"sll", "d,w,s", 0x00000004, 0xfc0007ff, WR_d|RD_t|RD_s }, /* sllv */ {"sll", "d,w,<", 0x00000000, 0xffe0003f, WR_d|RD_t }, {"slt", "d,v,t", 0x0000002a, 0xfc0007ff, WR_d|RD_s|RD_t }, {"slt", "d,v,I", 0, (int) M_SLT_I, INSN_MACRO }, {"slti", "t,r,j", 0x28000000, 0xfc000000, WR_t|RD_s }, {"sltiu", "t,r,j", 0x2c000000, 0xfc000000, WR_t|RD_s }, {"sltu", "d,v,t", 0x0000002b, 0xfc0007ff, WR_d|RD_s|RD_t }, {"sltu", "d,v,I", 0, (int) M_SLTU_I, INSN_MACRO }, {"sne", "d,v,t", 0, (int) M_SNE, INSN_MACRO }, {"sne", "d,v,I", 0, (int) M_SNE_I, INSN_MACRO }, {"sqrt.d", "D,S", 0x46200004, 0xffff003f, WR_D|RD_S|I2 }, {"sqrt.s", "D,S", 0x46000004, 0xffff003f, WR_D|RD_S|I2 }, {"srav", "d,t,s", 0x00000007, 0xfc0007ff, WR_d|RD_t|RD_s }, {"sra", "d,w,s", 0x00000007, 0xfc0007ff, WR_d|RD_t|RD_s }, /* srav */ {"sra", "d,w,<", 0x00000003, 0xffe0003f, WR_d|RD_t }, {"srlv", "d,t,s", 0x00000006, 0xfc0007ff, WR_d|RD_t|RD_s }, {"srl", "d,w,s", 0x00000006, 0xfc0007ff, WR_d|RD_t|RD_s }, /* srlv */ {"srl", "d,w,<", 0x00000002, 0xffe0003f, WR_d|RD_t }, {"sub", "d,v,t", 0x00000022, 0xfc0007ff, WR_d|RD_s|RD_t }, {"sub", "d,v,I", 0, (int) M_SUB_I, INSN_MACRO }, {"sub.d", "D,V,T", 0x46200001, 0xffe0003f, WR_D|RD_S|RD_T }, {"sub.s", "D,V,T", 0x46000001, 0xffe0003f, WR_D|RD_S|RD_T }, {"subu", "d,v,t", 0x00000023, 0xfc0007ff, WR_d|RD_s|RD_t }, {"subu", "d,v,I", 0, (int) M_SUBU_I, INSN_MACRO }, {"sw", "t,o(b)", 0xac000000, 0xfc000000, RD_t|RD_b }, {"sw", "t,A(b)", 0, (int) M_SW_AB, INSN_MACRO }, {"swc0", "E,o(b)", 0xe0000000, 0xfc000000, RD_C0|RD_b }, {"swc0", "E,A(b)", 0, (int) M_SWC0_AB, INSN_MACRO }, {"swc1", "T,o(b)", 0xe4000000, 0xfc000000, RD_T|RD_b }, {"swc1", "E,o(b)", 0xe4000000, 0xfc000000, RD_T|RD_b }, {"swc1", "T,A(b)", 0, (int) M_SWC1_AB, INSN_MACRO }, {"swc1", "E,A(b)", 0, (int) M_SWC1_AB, INSN_MACRO }, {"s.s", "T,o(b)", 0xe4000000, 0xfc000000, RD_T|RD_b }, /* swc1 */ {"s.s", "T,A(b)", 0, (int) M_SWC1_AB, INSN_MACRO }, {"swc2", "E,o(b)", 0xe8000000, 0xfc000000, RD_C2|RD_b }, {"swc2", "E,A(b)", 0, (int) M_SWC2_AB, INSN_MACRO }, {"swc3", "E,o(b)", 0xec000000, 0xfc000000, RD_C3|RD_b }, {"swc3", "E,A(b)", 0, (int) M_SWC3_AB, INSN_MACRO }, {"swl", "t,o(b)", 0xa8000000, 0xfc000000, RD_t|RD_b }, {"swl", "t,A(b)", 0, (int) M_SWL_AB, INSN_MACRO }, {"scache", "t,o(b)", 0xa8000000, 0xfc000000, RD_t|RD_b|I2 }, /* same */ {"scache", "t,A(b)", 2, (int) M_SWL_AB, INSN_MACRO }, /* as swl */ {"swr", "t,o(b)", 0xb8000000, 0xfc000000, RD_t|RD_b }, {"swr", "t,A(b)", 0, (int) M_SWR_AB, INSN_MACRO }, {"invalidate", "t,o(b)",0xb8000000, 0xfc000000, RD_t|RD_b|I2 }, /* same */ {"invalidate", "t,A(b)",2, (int) M_SWR_AB, INSN_MACRO }, /* as swr */ {"sync", "", 0x0000000f, 0xffffffff, I2 }, {"syscall", "", 0x0000000c, 0xffffffff, TRAP }, {"syscall", "B", 0x0000000c, 0xfc00003f, TRAP }, {"teqi", "s,j", 0x040c0000, 0xfc1f0000, RD_s|I2|TRAP }, {"teq", "s,t", 0x00000034, 0xfc00003f, RD_s|RD_t|I2|TRAP }, {"teq", "s,j", 0x040c0000, 0xfc1f0000, RD_s|I2|TRAP }, /* teqi */ {"teq", "s,I", 2, (int) M_TEQ_I, INSN_MACRO }, {"tgei", "s,j", 0x04080000, 0xfc1f0000, RD_s|I2|TRAP }, {"tge", "s,t", 0x00000030, 0xfc00003f, RD_s|RD_t|I2|TRAP }, {"tge", "s,j", 0x04080000, 0xfc1f0000, RD_s|I2|TRAP }, /* tgei */ {"tge", "s,I", 2, (int) M_TGE_I, INSN_MACRO }, {"tgeiu", "s,j", 0x04090000, 0xfc1f0000, RD_s|I2|TRAP }, {"tgeu", "s,t", 0x00000031, 0xfc00003f, RD_s|RD_t|I2|TRAP }, {"tgeu", "s,j", 0x04090000, 0xfc1f0000, RD_s|I2|TRAP }, /* tgeiu */ {"tgeu", "s,I", 2, (int) M_TGEU_I, INSN_MACRO }, {"tlbp", "", 0x42000008, 0xffffffff, INSN_TLB }, {"tlbr", "", 0x42000001, 0xffffffff, INSN_TLB }, {"tlbwi", "", 0x42000002, 0xffffffff, INSN_TLB }, {"tlbwr", "", 0x42000006, 0xffffffff, INSN_TLB }, {"tlti", "s,j", 0x040a0000, 0xfc1f0000, RD_s|I2|TRAP }, {"tlt", "s,t", 0x00000032, 0xfc00003f, RD_s|RD_t|I2|TRAP }, {"tlt", "s,j", 0x040a0000, 0xfc1f0000, RD_s|I2|TRAP }, /* tlti */ {"tlt", "s,I", 2, (int) M_TLT_I, INSN_MACRO }, {"tltiu", "s,j", 0x040b0000, 0xfc1f0000, RD_s|I2|TRAP }, {"tltu", "s,t", 0x00000033, 0xfc00003f, RD_s|RD_t|I2|TRAP }, {"tltu", "s,j", 0x040b0000, 0xfc1f0000, RD_s|I2|TRAP }, /* tltiu */ {"tltu", "s,I", 2, (int) M_TLTU_I, INSN_MACRO }, {"tnei", "s,j", 0x040e0000, 0xfc1f0000, RD_s|I2|TRAP }, {"tne", "s,t", 0x00000036, 0xfc00003f, RD_s|RD_t|I2|TRAP }, {"tne", "s,j", 0x040e0000, 0xfc1f0000, RD_s|I2|TRAP }, /* tnei */ {"tne", "s,I", 2, (int) M_TNE_I, INSN_MACRO }, {"trunc.l.d", "D,S", 0x46200009, 0xffff003f, WR_D|RD_S|I3 }, {"trunc.l.s", "D,S", 0x46000009, 0xffff003f, WR_D|RD_S|I3 }, {"trunc.w.d", "D,S", 0x4620000d, 0xffff003f, WR_D|RD_S|I2 }, {"trunc.w.d", "D,S,x", 0x4620000d, 0xffff003f, WR_D|RD_S|I2 }, {"trunc.w.d", "D,S,t", 0, (int) M_TRUNCWD, INSN_MACRO }, {"trunc.w.s", "D,S", 0x4600000d, 0xffff003f, WR_D|RD_S|I2 }, {"trunc.w.s", "D,S,x", 0x4600000d, 0xffff003f, WR_D|RD_S|I2 }, {"trunc.w.s", "D,S,t", 0, (int) M_TRUNCWS, INSN_MACRO }, {"ulh", "t,o(b)", 0, (int) M_ULH, INSN_MACRO }, {"ulh", "t,A", 0, (int) M_ULH_A, INSN_MACRO }, {"ulhu", "t,o(b)", 0, (int) M_ULHU, INSN_MACRO }, {"ulhu", "t,A", 0, (int) M_ULHU_A, INSN_MACRO }, {"ulw", "t,o(b)", 0, (int) M_ULW, INSN_MACRO }, {"ulw", "t,A", 0, (int) M_ULW_A, INSN_MACRO }, {"ush", "t,o(b)", 0, (int) M_USH, INSN_MACRO }, {"ush", "t,A", 0, (int) M_USH_A, INSN_MACRO }, {"usw", "t,o(b)", 0, (int) M_USW, INSN_MACRO }, {"usw", "t,A", 0, (int) M_USW_A, INSN_MACRO }, {"xor", "d,v,t", 0x00000026, 0xfc0007ff, WR_d|RD_s|RD_t }, {"xor", "t,r,I", 0, (int) M_XOR_I, INSN_MACRO }, {"xori", "t,r,i", 0x38000000, 0xfc000000, WR_t|RD_s }, /* No hazard protection on coprocessor instructions--they shouldn't change the state of the processor and if they do it's up to the user to put in nops as necessary. These are at the end so that the disasembler recognizes more specific versions first. */ {"c0", "C", 0x42000000, 0xfe000000, 0 }, {"c1", "C", 0x46000000, 0xfe000000, 0 }, {"c2", "C", 0x4a000000, 0xfe000000, 0 }, {"c3", "C", 0x4e000000, 0xfe000000, 0 }, }; const int bfd_mips_num_opcodes = ((sizeof mips_opcodes) / (sizeof (mips_opcodes[0]))); gdb-4.13/opcodes/ppc-dis.c 666 34562 1752 15541 5550047422 13725 0ustar fnfcygnus/* ppc-dis.c -- Disassemble PowerPC instructions Copyright 1994 Free Software Foundation, Inc. Written by Ian Lance Taylor, Cygnus Support This file is part of GDB, GAS, and the GNU binutils. GDB, GAS, and the GNU binutils are free software; you can redistribute them and/or modify them under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GDB, GAS, and the GNU binutils are distributed in the hope that they 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 file; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "ansidecl.h" #include "sysdep.h" #include "dis-asm.h" #include "opcode/ppc.h" /* This file provides several disassembler functions, all of which use the disassembler interface defined in dis-asm.h. Several functions are provided because this file handles disassembly for the PowerPC in both big and little endian mode and also for the POWER (RS/6000) chip. */ static int print_insn_powerpc PARAMS ((bfd_vma, struct disassemble_info *, int bigendian, int dialect)); /* Print a big endian PowerPC instruction. For convenience, also disassemble instructions supported by the Motorola PowerPC 601. */ int print_insn_big_powerpc (memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { return print_insn_powerpc (memaddr, info, 1, PPC_OPCODE_PPC | PPC_OPCODE_601); } /* Print a little endian PowerPC instruction. For convenience, also disassemble instructions supported by the Motorola PowerPC 601. */ int print_insn_little_powerpc (memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { return print_insn_powerpc (memaddr, info, 0, PPC_OPCODE_PPC | PPC_OPCODE_601); } /* Print a POWER (RS/6000) instruction. */ int print_insn_rs6000 (memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { return print_insn_powerpc (memaddr, info, 1, PPC_OPCODE_POWER); } /* Print a PowerPC or POWER instruction. */ static int print_insn_powerpc (memaddr, info, bigendian, dialect) bfd_vma memaddr; struct disassemble_info *info; int bigendian; int dialect; { bfd_byte buffer[4]; int status; unsigned long insn; const struct powerpc_opcode *opcode; const struct powerpc_opcode *opcode_end; unsigned long op; status = (*info->read_memory_func) (memaddr, buffer, 4, info); if (status != 0) { (*info->memory_error_func) (status, memaddr, info); return -1; } if (bigendian) insn = bfd_getb32 (buffer); else insn = bfd_getl32 (buffer); /* Get the major opcode of the instruction. */ op = PPC_OP (insn); /* Find the first match in the opcode table. We could speed this up a bit by doing a binary search on the major opcode. */ opcode_end = powerpc_opcodes + powerpc_num_opcodes; for (opcode = powerpc_opcodes; opcode < opcode_end; opcode++) { unsigned long table_op; const unsigned char *opindex; const struct powerpc_operand *operand; int invalid; int need_comma; int need_paren; table_op = PPC_OP (opcode->opcode); if (op < table_op) break; if (op > table_op) continue; if ((insn & opcode->mask) != opcode->opcode || (opcode->flags & dialect) == 0) continue; /* Make two passes over the operands. First see if any of them have extraction functions, and, if they do, make sure the instruction is valid. */ invalid = 0; for (opindex = opcode->operands; *opindex != 0; opindex++) { operand = powerpc_operands + *opindex; if (operand->extract) (*operand->extract) (insn, &invalid); } if (invalid) continue; /* The instruction is valid. */ (*info->fprintf_func) (info->stream, "%s", opcode->name); if (opcode->operands[0] != 0) (*info->fprintf_func) (info->stream, "\t"); /* Now extract and print the operands. */ need_comma = 0; need_paren = 0; for (opindex = opcode->operands; *opindex != 0; opindex++) { long value; operand = powerpc_operands + *opindex; /* Operands that are marked FAKE are simply ignored. We already made sure that the extract function considered the instruction to be valid. */ if ((operand->flags & PPC_OPERAND_FAKE) != 0) continue; /* Extract the value from the instruction. */ if (operand->extract) value = (*operand->extract) (insn, (int *) NULL); else { value = (insn >> operand->shift) & ((1 << operand->bits) - 1); if ((operand->flags & PPC_OPERAND_SIGNED) != 0 && (value & (1 << (operand->bits - 1))) != 0) value -= 1 << operand->bits; } /* If the operand is optional, and the value is zero, don't print anything. */ if ((operand->flags & PPC_OPERAND_OPTIONAL) != 0 && (operand->flags & PPC_OPERAND_NEXT) == 0 && value == 0) continue; if (need_comma) { (*info->fprintf_func) (info->stream, ","); need_comma = 0; } /* Print the operand as directed by the flags. */ if ((operand->flags & PPC_OPERAND_GPR) != 0) (*info->fprintf_func) (info->stream, "r%ld", value); else if ((operand->flags & PPC_OPERAND_FPR) != 0) (*info->fprintf_func) (info->stream, "f%ld", value); else if ((operand->flags & PPC_OPERAND_RELATIVE) != 0) (*info->print_address_func) (memaddr + value, info); else if ((operand->flags & PPC_OPERAND_ABSOLUTE) != 0) (*info->print_address_func) ((bfd_vma) value & 0xffffffff, info); else if ((operand->flags & PPC_OPERAND_CR) == 0 || (dialect & PPC_OPCODE_PPC) == 0) (*info->fprintf_func) (info->stream, "%ld", value); else { if (operand->bits == 3) (*info->fprintf_func) (info->stream, "cr%d", value); else { static const char *cbnames[4] = { "lt", "gt", "eq", "so" }; int cr; int cc; cr = value >> 2; if (cr != 0) (*info->fprintf_func) (info->stream, "4*cr%d", cr); cc = value & 3; if (cc != 0) { if (cr != 0) (*info->fprintf_func) (info->stream, "+"); (*info->fprintf_func) (info->stream, "%s", cbnames[cc]); } } } if (need_paren) { (*info->fprintf_func) (info->stream, ")"); need_paren = 0; } if ((operand->flags & PPC_OPERAND_PARENS) == 0) need_comma = 1; else { (*info->fprintf_func) (info->stream, "("); need_paren = 1; } } /* We have found and printed an instruction; return. */ return 4; } /* We could not find a match. */ (*info->fprintf_func) (info->stream, "0x%lx", insn); return 4; } gdb-4.13/opcodes/ppc-opc.c 666 34562 1752 336601 5562507025 13755 0ustar fnfcygnus/* ppc-opc.c -- PowerPC opcode list Copyright 1994 Free Software Foundation, Inc. Written by Ian Lance Taylor, Cygnus Support This file is part of GDB, GAS, and the GNU binutils. GDB, GAS, and the GNU binutils are free software; you can redistribute them and/or modify them under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GDB, GAS, and the GNU binutils are distributed in the hope that they 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 file; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "ansidecl.h" #include "opcode/ppc.h" /* This file holds the PowerPC opcode table. The opcode table includes almost all of the extended instruction mnemonics. This permits the disassembler to use them, and simplifies the assembler logic, at the cost of increasing the table size. The table is strictly constant data, so the compiler should be able to put it in the .text section. This file also holds the operand table. All knowledge about inserting operands into instructions and vice-versa is kept in this file. */ /* Local insertion and extraction functions. */ static unsigned long insert_bat PARAMS ((unsigned long, long, const char **)); static long extract_bat PARAMS ((unsigned long, int *)); static unsigned long insert_bba PARAMS ((unsigned long, long, const char **)); static long extract_bba PARAMS ((unsigned long, int *)); static unsigned long insert_bd PARAMS ((unsigned long, long, const char **)); static long extract_bd PARAMS ((unsigned long, int *)); static unsigned long insert_bdm PARAMS ((unsigned long, long, const char **)); static long extract_bdm PARAMS ((unsigned long, int *)); static unsigned long insert_bdp PARAMS ((unsigned long, long, const char **)); static long extract_bdp PARAMS ((unsigned long, int *)); static unsigned long insert_bo PARAMS ((unsigned long, long, const char **)); static long extract_bo PARAMS ((unsigned long, int *)); static unsigned long insert_boe PARAMS ((unsigned long, long, const char **)); static long extract_boe PARAMS ((unsigned long, int *)); static unsigned long insert_cr PARAMS ((unsigned long, long, const char **)); static long extract_cr PARAMS ((unsigned long, int *)); static unsigned long insert_ds PARAMS ((unsigned long, long, const char **)); static long extract_ds PARAMS ((unsigned long, int *)); static unsigned long insert_li PARAMS ((unsigned long, long, const char **)); static long extract_li PARAMS ((unsigned long, int *)); static unsigned long insert_mbe PARAMS ((unsigned long, long, const char **)); static long extract_mbe PARAMS ((unsigned long, int *)); static unsigned long insert_mb6 PARAMS ((unsigned long, long, const char **)); static long extract_mb6 PARAMS ((unsigned long, int *)); static unsigned long insert_nb PARAMS ((unsigned long, long, const char **)); static long extract_nb PARAMS ((unsigned long, int *)); static unsigned long insert_nsi PARAMS ((unsigned long, long, const char **)); static long extract_nsi PARAMS ((unsigned long, int *)); static unsigned long insert_ral PARAMS ((unsigned long, long, const char **)); static unsigned long insert_ram PARAMS ((unsigned long, long, const char **)); static unsigned long insert_ras PARAMS ((unsigned long, long, const char **)); static unsigned long insert_rbs PARAMS ((unsigned long, long, const char **)); static long extract_rbs PARAMS ((unsigned long, int *)); static unsigned long insert_sh6 PARAMS ((unsigned long, long, const char **)); static long extract_sh6 PARAMS ((unsigned long, int *)); static unsigned long insert_spr PARAMS ((unsigned long, long, const char **)); static long extract_spr PARAMS ((unsigned long, int *)); /* The operands table. The fields are bits, shift, signed, insert, extract, flags. */ const struct powerpc_operand powerpc_operands[] = { /* The zero index is used to indicate the end of the list of operands. */ #define UNUSED (0) { 0, 0, 0, 0, 0 }, /* The BA field in an XL form instruction. */ #define BA (UNUSED + 1) #define BA_MASK (0x1f << 16) { 5, 16, 0, 0, PPC_OPERAND_CR }, /* The BA field in an XL form instruction when it must be the same as the BT field in the same instruction. */ #define BAT (BA + 1) { 5, 16, insert_bat, extract_bat, PPC_OPERAND_FAKE }, /* The BB field in an XL form instruction. */ #define BB (BAT + 1) #define BB_MASK (0x1f << 11) { 5, 11, 0, 0, PPC_OPERAND_CR }, /* The BB field in an XL form instruction when it must be the same as the BA field in the same instruction. */ #define BBA (BB + 1) { 5, 11, insert_bba, extract_bba, PPC_OPERAND_FAKE }, /* The BD field in a B form instruction. The lower two bits are forced to zero. */ #define BD (BBA + 1) { 16, 0, insert_bd, extract_bd, PPC_OPERAND_RELATIVE | PPC_OPERAND_SIGNED }, /* The BD field in a B form instruction when absolute addressing is used. */ #define BDA (BD + 1) { 16, 0, insert_bd, extract_bd, PPC_OPERAND_ABSOLUTE | PPC_OPERAND_SIGNED }, /* The BD field in a B form instruction when the - modifier is used. This sets the y bit of the BO field appropriately. */ #define BDM (BDA + 1) { 16, 0, insert_bdm, extract_bdm, PPC_OPERAND_RELATIVE | PPC_OPERAND_SIGNED }, /* The BD field in a B form instruction when the - modifier is used and absolute address is used. */ #define BDMA (BDM + 1) { 16, 0, insert_bdm, extract_bdm, PPC_OPERAND_ABSOLUTE | PPC_OPERAND_SIGNED }, /* The BD field in a B form instruction when the + modifier is used. This sets the y bit of the BO field appropriately. */ #define BDP (BDMA + 1) { 16, 0, insert_bdp, extract_bdp, PPC_OPERAND_RELATIVE | PPC_OPERAND_SIGNED }, /* The BD field in a B form instruction when the + modifier is used and absolute addressing is used. */ #define BDPA (BDP + 1) { 16, 0, insert_bdp, extract_bdp, PPC_OPERAND_ABSOLUTE | PPC_OPERAND_SIGNED }, /* The BF field in an X or XL form instruction. */ #define BF (BDPA + 1) { 3, 23, 0, 0, PPC_OPERAND_CR }, /* An optional BF field. This is used for comparison instructions, in which an omitted BF field is taken as zero. */ #define OBF (BF + 1) { 3, 23, 0, 0, PPC_OPERAND_CR | PPC_OPERAND_OPTIONAL }, /* The BFA field in an X or XL form instruction. */ #define BFA (OBF + 1) { 3, 18, 0, 0, PPC_OPERAND_CR }, /* The BI field in a B form or XL form instruction. */ #define BI (BFA + 1) #define BI_MASK (0x1f << 16) { 5, 16, 0, 0, PPC_OPERAND_CR }, /* The BO field in a B form instruction. Certain values are illegal. */ #define BO (BI + 1) #define BO_MASK (0x1f << 21) { 5, 21, insert_bo, extract_bo, 0 }, /* The BO field in a B form instruction when the + or - modifier is used. This is like the BO field, but it must be even. */ #define BOE (BO + 1) { 5, 21, insert_boe, extract_boe, 0 }, /* The BT field in an X or XL form instruction. */ #define BT (BOE + 1) { 5, 21, 0, 0, PPC_OPERAND_CR }, /* The condition register number portion of the BI field in a B form or XL form instruction. This is used for the extended conditional branch mnemonics, which set the lower two bits of the BI field. This field is optional. */ #define CR (BT + 1) { 5, 16, insert_cr, extract_cr, PPC_OPERAND_CR | PPC_OPERAND_OPTIONAL }, /* The D field in a D form instruction. This is a displacement off a register, and implies that the next operand is a register in parentheses. */ #define D (CR + 1) { 16, 0, 0, 0, PPC_OPERAND_PARENS | PPC_OPERAND_SIGNED }, /* The DS field in a DS form instruction. This is like D, but the lower two bits are forced to zero. */ #define DS (D + 1) { 16, 0, insert_ds, extract_ds, PPC_OPERAND_PARENS | PPC_OPERAND_SIGNED }, /* The FL1 field in a POWER SC form instruction. */ #define FL1 (DS + 1) { 4, 12, 0, 0, 0 }, /* The FL2 field in a POWER SC form instruction. */ #define FL2 (FL1 + 1) { 3, 2, 0, 0, 0 }, /* The FLM field in an XFL form instruction. */ #define FLM (FL2 + 1) { 8, 17, 0, 0, 0 }, /* The FRA field in an X or A form instruction. */ #define FRA (FLM + 1) #define FRA_MASK (0x1f << 16) { 5, 16, 0, 0, PPC_OPERAND_FPR }, /* The FRB field in an X or A form instruction. */ #define FRB (FRA + 1) #define FRB_MASK (0x1f << 11) { 5, 11, 0, 0, PPC_OPERAND_FPR }, /* The FRC field in an A form instruction. */ #define FRC (FRB + 1) #define FRC_MASK (0x1f << 6) { 5, 6, 0, 0, PPC_OPERAND_FPR }, /* The FRS field in an X form instruction or the FRT field in a D, X or A form instruction. */ #define FRS (FRC + 1) #define FRT (FRS) { 5, 21, 0, 0, PPC_OPERAND_FPR }, /* The FXM field in an XFX instruction. */ #define FXM (FRS + 1) { 8, 12, 0, 0, 0 }, /* The L field in a D or X form instruction. */ #define L (FXM + 1) { 1, 21, 0, 0, PPC_OPERAND_OPTIONAL }, /* The LEV field in a POWER SC form instruction. */ #define LEV (L + 1) { 7, 5, 0, 0, 0 }, /* The LI field in an I form instruction. The lower two bits are forced to zero. */ #define LI (LEV + 1) { 26, 0, insert_li, extract_li, PPC_OPERAND_RELATIVE | PPC_OPERAND_SIGNED }, /* The LI field in an I form instruction when used as an absolute address. */ #define LIA (LI + 1) { 26, 0, insert_li, extract_li, PPC_OPERAND_ABSOLUTE | PPC_OPERAND_SIGNED }, /* The MB field in an M form instruction. */ #define MB (LIA + 1) #define MB_MASK (0x1f << 6) { 5, 6, 0, 0, 0 }, /* The ME field in an M form instruction. */ #define ME (MB + 1) #define ME_MASK (0x1f << 1) { 5, 1, 0, 0, 0 }, /* The MB and ME fields in an M form instruction expressed a single operand which is a bitmask indicating which bits to select. This is a two operand form using PPC_OPERAND_NEXT. See the description in opcode/ppc.h for what this means. */ #define MBE (ME + 1) { 5, 6, 0, 0, PPC_OPERAND_OPTIONAL | PPC_OPERAND_NEXT }, { 32, 0, insert_mbe, extract_mbe, 0 }, /* The MB or ME field in an MD or MDS form instruction. The high bit is wrapped to the low end. */ #define MB6 (MBE + 2) #define ME6 (MB6) #define MB6_MASK (0x3f << 5) { 6, 5, insert_mb6, extract_mb6, 0 }, /* The NB field in an X form instruction. The value 32 is stored as 0. */ #define NB (MB6 + 1) { 6, 11, insert_nb, extract_nb, 0 }, /* The NSI field in a D form instruction. This is the same as the SI field, only negated. */ #define NSI (NB + 1) { 16, 0, insert_nsi, extract_nsi, PPC_OPERAND_NEGATIVE | PPC_OPERAND_SIGNED }, /* The RA field in an D, DS, X, XO, M, or MDS form instruction. */ #define RA (NSI + 1) #define RA_MASK (0x1f << 16) { 5, 16, 0, 0, PPC_OPERAND_GPR }, /* The RA field in a D or X form instruction which is an updating load, which means that the RA field may not be zero and may not equal the RT field. */ #define RAL (RA + 1) { 5, 16, insert_ral, 0, PPC_OPERAND_GPR }, /* The RA field in an lmw instruction, which has special value restrictions. */ #define RAM (RAL + 1) { 5, 16, insert_ram, 0, PPC_OPERAND_GPR }, /* The RA field in a D or X form instruction which is an updating store or an updating floating point load, which means that the RA field may not be zero. */ #define RAS (RAM + 1) { 5, 16, insert_ras, 0, PPC_OPERAND_GPR }, /* The RB field in an X, XO, M, or MDS form instruction. */ #define RB (RAS + 1) #define RB_MASK (0x1f << 11) { 5, 11, 0, 0, PPC_OPERAND_GPR }, /* The RB field in an X form instruction when it must be the same as the RS field in the instruction. This is used for extended mnemonics like mr. */ #define RBS (RB + 1) { 5, 1, insert_rbs, extract_rbs, PPC_OPERAND_FAKE }, /* The RS field in a D, DS, X, XFX, XS, M, MD or MDS form instruction or the RT field in a D, DS, X, XFX or XO form instruction. */ #define RS (RBS + 1) #define RT (RS) #define RT_MASK (0x1f << 21) { 5, 21, 0, 0, PPC_OPERAND_GPR }, /* The SH field in an X or M form instruction. */ #define SH (RS + 1) #define SH_MASK (0x1f << 11) { 5, 11, 0, 0, 0 }, /* The SH field in an MD form instruction. This is split. */ #define SH6 (SH + 1) #define SH6_MASK ((0x1f << 11) | (1 << 1)) { 6, 1, insert_sh6, extract_sh6, 0 }, /* The SI field in a D form instruction. */ #define SI (SH6 + 1) { 16, 0, 0, 0, PPC_OPERAND_SIGNED }, /* The SI field in a D form instruction when we accept a wide range of positive values. */ #define SISIGNOPT (SI + 1) { 16, 0, 0, 0, PPC_OPERAND_SIGNED | PPC_OPERAND_SIGNOPT }, /* The SPR or TBR field in an XFX form instruction. This is flipped--the lower 5 bits are stored in the upper 5 and vice- versa. */ #define SPR (SISIGNOPT + 1) #define TBR (SPR) #define SPR_MASK (0x3ff << 11) { 10, 11, insert_spr, extract_spr, 0 }, /* The SR field in an X form instruction. */ #define SR (SPR + 1) { 4, 16, 0, 0, 0 }, /* The SV field in a POWER SC form instruction. */ #define SV (SR + 1) { 14, 2, 0, 0, 0 }, /* The TO field in a D or X form instruction. */ #define TO (SV + 1) #define TO_MASK (0x1f << 21) { 5, 21, 0, 0, 0 }, /* The U field in an X form instruction. */ #define U (TO + 1) { 4, 12, 0, 0, 0 }, /* The UI field in a D form instruction. */ #define UI (U + 1) { 16, 0, 0, 0, 0 }, }; /* The functions used to insert and extract complicated operands. */ /* The BA field in an XL form instruction when it must be the same as the BT field in the same instruction. This operand is marked FAKE. The insertion function just copies the BT field into the BA field, and the extraction function just checks that the fields are the same. */ /*ARGSUSED*/ static unsigned long insert_bat (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | (((insn >> 21) & 0x1f) << 16); } static long extract_bat (insn, invalid) unsigned long insn; int *invalid; { if (invalid != (int *) NULL && ((insn >> 21) & 0x1f) != ((insn >> 16) & 0x1f)) *invalid = 1; return 0; } /* The BB field in an XL form instruction when it must be the same as the BA field in the same instruction. This operand is marked FAKE. The insertion function just copies the BA field into the BB field, and the extraction function just checks that the fields are the same. */ /*ARGSUSED*/ static unsigned long insert_bba (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | (((insn >> 16) & 0x1f) << 11); } static long extract_bba (insn, invalid) unsigned long insn; int *invalid; { if (invalid != (int *) NULL && ((insn >> 16) & 0x1f) != ((insn >> 11) & 0x1f)) *invalid = 1; return 0; } /* The BD field in a B form instruction. The lower two bits are forced to zero. */ /*ARGSUSED*/ static unsigned long insert_bd (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | (value & 0xfffc); } /*ARGSUSED*/ static long extract_bd (insn, invalid) unsigned long insn; int *invalid; { if ((insn & 0x8000) != 0) return (insn & 0xfffc) - 0x10000; else return insn & 0xfffc; } /* The BD field in a B form instruction when the - modifier is used. This modifier means that the branch is not expected to be taken. We must set the y bit of the BO field to 1 if the offset is negative. When extracting, we require that the y bit be 1 and that the offset be positive, since if the y bit is 0 we just want to print the normal form of the instruction. */ /*ARGSUSED*/ static unsigned long insert_bdm (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { if ((value & 0x8000) != 0) insn |= 1 << 21; return insn | (value & 0xfffc); } static long extract_bdm (insn, invalid) unsigned long insn; int *invalid; { if (invalid != (int *) NULL && ((insn & (1 << 21)) == 0 || (insn & (1 << 15) == 0))) *invalid = 1; if ((insn & 0x8000) != 0) return (insn & 0xfffc) - 0x10000; else return insn & 0xfffc; } /* The BD field in a B form instruction when the + modifier is used. This is like BDM, above, except that the branch is expected to be taken. */ /*ARGSUSED*/ static unsigned long insert_bdp (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { if ((value & 0x8000) == 0) insn |= 1 << 21; return insn | (value & 0xfffc); } static long extract_bdp (insn, invalid) unsigned long insn; int *invalid; { if (invalid != (int *) NULL && ((insn & (1 << 21)) == 0 || (insn & (1 << 15)) != 0)) *invalid = 1; if ((insn & 0x8000) != 0) return (insn & 0xfffc) - 0x10000; else return insn & 0xfffc; } /* Check for legal values of a BO field. */ static int valid_bo (value) long value; { /* Certain encodings have bits that are required to be zero. These are (z must be zero, y may be anything): 001zy 011zy 1z00y 1z01y 1z1zz */ switch (value & 0x14) { default: case 0: return 1; case 0x4: return (value & 0x2) == 0; case 0x10: return (value & 0x8) == 0; case 0x14: return value == 0x14; } } /* The BO field in a B form instruction. Warn about attempts to set the field to an illegal value. */ static unsigned long insert_bo (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { if (errmsg != (const char **) NULL && ! valid_bo (value)) *errmsg = "invalid conditional option"; return insn | ((value & 0x1f) << 21); } static long extract_bo (insn, invalid) unsigned long insn; int *invalid; { long value; value = (insn >> 21) & 0x1f; if (invalid != (int *) NULL && ! valid_bo (value)) *invalid = 1; return value; } /* The BO field in a B form instruction when the + or - modifier is used. This is like the BO field, but it must be even. When extracting it, we force it to be even. */ static unsigned long insert_boe (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { if (errmsg != (const char **) NULL) { if (! valid_bo (value)) *errmsg = "invalid conditional option"; else if ((value & 1) != 0) *errmsg = "attempt to set y bit when using + or - modifier"; } return insn | ((value & 0x1f) << 21); } static long extract_boe (insn, invalid) unsigned long insn; int *invalid; { long value; value = (insn >> 21) & 0x1f; if (invalid != (int *) NULL && ! valid_bo (value)) *invalid = 1; return value & 0x1e; } /* The condition register number portion of the BI field in a B form or XL form instruction. This is used for the extended conditional branch mnemonics, which set the lower two bits of the BI field. It is the BI field with the lower two bits ignored. */ /*ARGSUSED*/ static unsigned long insert_cr (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | ((value & 0x1c) << 16); } /*ARGSUSED*/ static long extract_cr (insn, invalid) unsigned long insn; int *invalid; { return (insn >> 16) & 0x1c; } /* The DS field in a DS form instruction. This is like D, but the lower two bits are forced to zero. */ /*ARGSUSED*/ static unsigned long insert_ds (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | (value & 0xfffc); } /*ARGSUSED*/ static long extract_ds (insn, invalid) unsigned long insn; int *invalid; { if ((insn & 0x8000) != 0) return (insn & 0xfffc) - 0x10000; else return insn & 0xfffc; } /* The LI field in an I form instruction. The lower two bits are forced to zero. */ /*ARGSUSED*/ static unsigned long insert_li (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | (value & 0x3fffffc); } /*ARGSUSED*/ static long extract_li (insn, invalid) unsigned long insn; int *invalid; { if ((insn & 0x2000000) != 0) return (insn & 0x3fffffc) - 0x4000000; else return insn & 0x3fffffc; } /* The MB and ME fields in an M form instruction expressed as a single operand which is itself a bitmask. The extraction function always marks it as invalid, since we never want to recognize an instruction which uses a field of this type. */ static unsigned long insert_mbe (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { unsigned long uval; int mb, me; uval = value; if (uval == 0) { if (errmsg != (const char **) NULL) *errmsg = "illegal bitmask"; return insn; } me = 31; while ((uval & 1) == 0) { uval >>= 1; --me; } mb = me; uval >>= 1; while ((uval & 1) != 0) { uval >>= 1; --mb; } if (uval != 0) { if (errmsg != (const char **) NULL) *errmsg = "illegal bitmask"; } return insn | (mb << 6) | (me << 1); } static long extract_mbe (insn, invalid) unsigned long insn; int *invalid; { long ret; int mb, me; int i; if (invalid != (int *) NULL) *invalid = 1; ret = 0; mb = (insn >> 6) & 0x1f; me = (insn >> 1) & 0x1f; for (i = mb; i < me; i++) ret |= 1 << (31 - i); return ret; } /* The MB or ME field in an MD or MDS form instruction. The high bit is wrapped to the low end. */ /*ARGSUSED*/ static unsigned long insert_mb6 (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | ((value & 0x1f) << 6) | (value & 0x20); } /*ARGSUSED*/ static long extract_mb6 (insn, invalid) unsigned long insn; int *invalid; { return ((insn >> 6) & 0x1f) | (insn & 0x20); } /* The NB field in an X form instruction. The value 32 is stored as 0. */ static unsigned long insert_nb (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { if (value < 0 || value > 32) *errmsg = "value out of range"; if (value == 32) value = 0; return insn | ((value & 0x1f) << 11); } /*ARGSUSED*/ static long extract_nb (insn, invalid) unsigned long insn; int *invalid; { long ret; ret = (insn >> 11) & 0x1f; if (ret == 0) ret = 32; return ret; } /* The NSI field in a D form instruction. This is the same as the SI field, only negated. The extraction function always marks it as invalid, since we never want to recognize an instruction which uses a field of this type. */ /*ARGSUSED*/ static unsigned long insert_nsi (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | ((- value) & 0xffff); } static long extract_nsi (insn, invalid) unsigned long insn; int *invalid; { if (invalid != (int *) NULL) *invalid = 1; if ((insn & 0x8000) != 0) return - ((insn & 0xffff) - 0x10000); else return - (insn & 0xffff); } /* The RA field in a D or X form instruction which is an updating load, which means that the RA field may not be zero and may not equal the RT field. */ static unsigned long insert_ral (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { if (value == 0 || value == ((insn >> 21) & 0x1f)) *errmsg = "invalid register operand when updating"; return insn | ((value & 0x1f) << 16); } /* The RA field in an lmw instruction, which has special value restrictions. */ static unsigned long insert_ram (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { if (value >= ((insn >> 21) & 0x1f)) *errmsg = "index register in load range"; return insn | ((value & 0x1f) << 16); } /* The RA field in a D or X form instruction which is an updating store or an updating floating point load, which means that the RA field may not be zero. */ static unsigned long insert_ras (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { if (value == 0) *errmsg = "invalid register operand when updating"; return insn | ((value & 0x1f) << 16); } /* The RB field in an X form instruction when it must be the same as the RS field in the instruction. This is used for extended mnemonics like mr. This operand is marked FAKE. The insertion function just copies the BT field into the BA field, and the extraction function just checks that the fields are the same. */ /*ARGSUSED*/ static unsigned long insert_rbs (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | (((insn >> 21) & 0x1f) << 11); } static long extract_rbs (insn, invalid) unsigned long insn; int *invalid; { if (invalid != (int *) NULL && ((insn >> 21) & 0x1f) != ((insn >> 11) & 0x1f)) *invalid = 1; return 0; } /* The SH field in an MD form instruction. This is split. */ /*ARGSUSED*/ static unsigned long insert_sh6 (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | ((value & 0x1f) << 11) | ((value & 0x20) >> 4); } /*ARGSUSED*/ static long extract_sh6 (insn, invalid) unsigned long insn; int *invalid; { return ((insn >> 11) & 0x1f) | ((insn << 4) & 0x20); } /* The SPR or TBR field in an XFX form instruction. This is flipped--the lower 5 bits are stored in the upper 5 and vice- versa. */ static unsigned long insert_spr (insn, value, errmsg) unsigned long insn; long value; const char **errmsg; { return insn | ((value & 0x1f) << 16) | ((value & 0x3e0) << 6); } static long extract_spr (insn, invalid) unsigned long insn; int *invalid; { return ((insn >> 16) & 0x1f) | ((insn >> 6) & 0x3e0); } /* Macros used to form opcodes. */ /* The main opcode. */ #define OP(x) (((x) & 0x3f) << 26) #define OP_MASK OP (0x3f) /* The main opcode combined with a trap code in the TO field of a D form instruction. Used for extended mnemonics for the trap instructions. */ #define OPTO(x,to) (OP (x) | (((to) & 0x1f) << 21)) #define OPTO_MASK (OP_MASK | TO_MASK) /* The main opcode combined with a comparison size bit in the L field of a D form or X form instruction. Used for extended mnemonics for the comparison instructions. */ #define OPL(x,l) (OP (x) | (((l) & 1) << 21)) #define OPL_MASK OPL (0x3f,1) /* An A form instruction. */ #define A(op, xop, rc) (OP (op) | (((xop) & 0x1f) << 1) | ((rc) & 1)) #define A_MASK A (0x3f, 0x1f, 1) /* An A_MASK with the FRB field fixed. */ #define AFRB_MASK (A_MASK | FRB_MASK) /* An A_MASK with the FRC field fixed. */ #define AFRC_MASK (A_MASK | FRC_MASK) /* An A_MASK with the FRA and FRC fields fixed. */ #define AFRAFRC_MASK (A_MASK | FRA_MASK | FRC_MASK) /* A B form instruction. */ #define B(op, aa, lk) (OP (op) | (((aa) & 1) << 1) | ((lk) & 1)) #define B_MASK B (0x3f, 1, 1) /* A B form instruction setting the BO field. */ #define BBO(op, bo, aa, lk) (B ((op), (aa), (lk)) | (((bo) & 0x1f) << 21)) #define BBO_MASK BBO (0x3f, 0x1f, 1, 1) /* A BBO_MASK with the y bit of the BO field removed. This permits matching a conditional branch regardless of the setting of the y bit. */ #define Y_MASK (1 << 21) #define BBOY_MASK (BBO_MASK &~ Y_MASK) /* A B form instruction setting the BO field and the condition bits of the BI field. */ #define BBOCB(op, bo, cb, aa, lk) \ (BBO ((op), (bo), (aa), (lk)) | (((cb) & 0x3) << 16)) #define BBOCB_MASK BBOCB (0x3f, 0x1f, 0x3, 1, 1) /* A BBOCB_MASK with the y bit of the BO field removed. */ #define BBOYCB_MASK (BBOCB_MASK &~ Y_MASK) /* A BBOYCB_MASK in which the BI field is fixed. */ #define BBOYBI_MASK (BBOYCB_MASK | BI_MASK) /* The main opcode mask with the RA field clear. */ #define DRA_MASK (OP_MASK | RA_MASK) /* A DS form instruction. */ #define DSO(op, xop) (OP (op) | ((xop) & 0x3)) #define DS_MASK DSO (0x3f, 3) /* An M form instruction. */ #define M(op, rc) (OP (op) | ((rc) & 1)) #define M_MASK M (0x3f, 1) /* An M form instruction with the ME field specified. */ #define MME(op, me, rc) (M ((op), (rc)) | (((me) & 0x1f) << 1)) /* An M_MASK with the MB and ME fields fixed. */ #define MMBME_MASK (M_MASK | MB_MASK | ME_MASK) /* An M_MASK with the SH and ME fields fixed. */ #define MSHME_MASK (M_MASK | SH_MASK | ME_MASK) /* An MD form instruction. */ #define MD(op, xop, rc) (OP (op) | (((xop) & 0x7) << 2) | ((rc) & 1)) #define MD_MASK MD (0x3f, 0x7, 1) /* An MD_MASK with the MB field fixed. */ #define MDMB_MASK (MD_MASK | MB6_MASK) /* An MD_MASK with the SH field fixed. */ #define MDSH_MASK (MD_MASK | SH6_MASK) /* An MDS form instruction. */ #define MDS(op, xop, rc) (OP (op) | (((xop) & 0xf) << 1) | ((rc) & 1)) #define MDS_MASK MDS (0x3f, 0xf, 1) /* An MDS_MASK with the MB field fixed. */ #define MDSMB_MASK (MDS_MASK | MB6_MASK) /* An SC form instruction. */ #define SC(op, sa, lk) (OP (op) | (((sa) & 1) << 1) | ((lk) & 1)) #define SC_MASK (OP_MASK | (0x3ff << 16) | (1 << 1) | 1) /* An X form instruction. */ #define X(op, xop) (OP (op) | (((xop) & 0x3ff) << 1)) /* An X form instruction with the RC bit specified. */ #define XRC(op, xop, rc) (X ((op), (xop)) | ((rc) & 1)) /* The mask for an X form instruction. */ #define X_MASK XRC (0x3f, 0x3ff, 1) /* An X_MASK with the RA field fixed. */ #define XRA_MASK (X_MASK | RA_MASK) /* An X_MASK with the RB field fixed. */ #define XRB_MASK (X_MASK | RB_MASK) /* An X_MASK with the RT field fixed. */ #define XRT_MASK (X_MASK | RT_MASK) /* An X_MASK with the RA and RB fields fixed. */ #define XRARB_MASK (X_MASK | RA_MASK | RB_MASK) /* An X_MASK with the RT and RA fields fixed. */ #define XRTRA_MASK (X_MASK | RT_MASK | RA_MASK) /* An X form comparison instruction. */ #define XCMPL(op, xop, l) (X ((op), (xop)) | (((l) & 1) << 21)) /* The mask for an X form comparison instruction. */ #define XCMP_MASK (X_MASK | (1 << 22)) /* The mask for an X form comparison instruction with the L field fixed. */ #define XCMPL_MASK (XCMP_MASK | (1 << 21)) /* An X form trap instruction with the TO field specified. */ #define XTO(op, xop, to) (X ((op), (xop)) | (((to) & 0x1f) << 21)) #define XTO_MASK (X_MASK | TO_MASK) /* An XFL form instruction. */ #define XFL(op, xop, rc) (OP (op) | (((xop) & 0x3ff) << 1) | ((rc) & 1)) #define XFL_MASK (XFL (0x3f, 0x3ff, 1) | (1 << 25) | (1 << 16)) /* An XL form instruction with the LK field set to 0. */ #define XL(op, xop) (OP (op) | (((xop) & 0x3ff) << 1)) /* An XL form instruction which uses the LK field. */ #define XLLK(op, xop, lk) (XL ((op), (xop)) | ((lk) & 1)) /* The mask for an XL form instruction. */ #define XL_MASK XLLK (0x3f, 0x3ff, 1) /* An XL form instruction which explicitly sets the BO field. */ #define XLO(op, bo, xop, lk) \ (XLLK ((op), (xop), (lk)) | (((bo) & 0x1f) << 21)) #define XLO_MASK (XL_MASK | BO_MASK) /* An XL form instruction which explicitly sets the y bit of the BO field. */ #define XLYLK(op, xop, y, lk) (XLLK ((op), (xop), (lk)) | (((y) & 1) << 21)) #define XLYLK_MASK (XL_MASK | Y_MASK) /* An XL form instruction which sets the BO field and the condition bits of the BI field. */ #define XLOCB(op, bo, cb, xop, lk) \ (XLO ((op), (bo), (xop), (lk)) | (((cb) & 3) << 16)) #define XLOCB_MASK XLOCB (0x3f, 0x1f, 0x3, 0x3ff, 1) /* An XL_MASK or XLYLK_MASK or XLOCB_MASK with the BB field fixed. */ #define XLBB_MASK (XL_MASK | BB_MASK) #define XLYBB_MASK (XLYLK_MASK | BB_MASK) #define XLBOCBBB_MASK (XLOCB_MASK | BB_MASK) /* An XL_MASK with the BO and BB fields fixed. */ #define XLBOBB_MASK (XL_MASK | BO_MASK | BB_MASK) /* An XL_MASK with the BO, BI and BB fields fixed. */ #define XLBOBIBB_MASK (XL_MASK | BO_MASK | BI_MASK | BB_MASK) /* An XO form instruction. */ #define XO(op, xop, oe, rc) \ (OP (op) | (((xop) & 0x1ff) << 1) | (((oe) & 1) << 10) | ((rc) & 1)) #define XO_MASK XO (0x3f, 0x1ff, 1, 1) /* An XO_MASK with the RB field fixed. */ #define XORB_MASK (XO_MASK | RB_MASK) /* An XS form instruction. */ #define XS(op, xop, rc) (OP (op) | (((xop) & 0x1ff) << 2) | ((rc) & 1)) #define XS_MASK XS (0x3f, 0x1ff, 1) /* An XFX form instruction with the SPR field filled in. */ #define XSPR(op, xop, spr) \ (X ((op), (xop)) | (((spr) & 0x1f) << 16) | (((spr) & 0x3e0) << 6)) #define XSPR_MASK (X_MASK | SPR_MASK) /* The BO encodings used in extended conditional branch mnemonics. */ #define BODNZF (0x0) #define BODNZFP (0x1) #define BODZF (0x2) #define BODZFP (0x3) #define BOF (0x4) #define BOFP (0x5) #define BODNZT (0x8) #define BODNZTP (0x9) #define BODZT (0xa) #define BODZTP (0xb) #define BOT (0xc) #define BOTP (0xd) #define BODNZ (0x10) #define BODNZP (0x11) #define BODZ (0x12) #define BODZP (0x13) #define BOU (0x14) /* The BI condition bit encodings used in extended conditional branch mnemonics. */ #define CBLT (0) #define CBGT (1) #define CBEQ (2) #define CBSO (3) /* The TO encodings used in extended trap mnemonics. */ #define TOLGT (0x1) #define TOLLT (0x2) #define TOEQ (0x4) #define TOLGE (0x5) #define TOLNL (0x5) #define TOLLE (0x6) #define TOLNG (0x6) #define TOGT (0x8) #define TOGE (0xc) #define TONL (0xc) #define TOLT (0x10) #define TOLE (0x14) #define TONG (0x14) #define TONE (0x18) #define TOU (0x1f) /* Smaller names for the flags so each entry in the opcodes table will fit on a single line. */ #define PPC PPC_OPCODE_PPC #define POWER PPC_OPCODE_POWER #define POWER2 PPC_OPCODE_POWER2 #define B32 PPC_OPCODE_32 #define B64 PPC_OPCODE_64 #define M601 PPC_OPCODE_601 /* The opcode table. The format of the opcode table is: NAME OPCODE MASK FLAGS { OPERANDS } NAME is the name of the instruction. OPCODE is the instruction opcode. MASK is the opcode mask; this is used to tell the disassembler which bits in the actual opcode must match OPCODE. FLAGS are flags indicated what processors support the instruction. OPERANDS is the list of operands. The disassembler reads the table in order and prints the first instruction which matches, so this table is sorted to put more specific instructions before more general instructions. It is also sorted by major opcode. */ const struct powerpc_opcode powerpc_opcodes[] = { { "tdlgti", OPTO(2,TOLGT), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdllti", OPTO(2,TOLLT), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdeqi", OPTO(2,TOEQ), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdlgei", OPTO(2,TOLGE), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdlnli", OPTO(2,TOLNL), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdllei", OPTO(2,TOLLE), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdlngi", OPTO(2,TOLNG), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdgti", OPTO(2,TOGT), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdgei", OPTO(2,TOGE), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdnli", OPTO(2,TONL), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdlti", OPTO(2,TOLT), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdlei", OPTO(2,TOLE), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdngi", OPTO(2,TONG), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdnei", OPTO(2,TONE), OPTO_MASK, PPC|B64, { RA, SI } }, { "tdi", OP(2), OP_MASK, PPC|B64, { TO, RA, SI } }, { "twlgti", OPTO(3,TOLGT), OPTO_MASK, PPC, { RA, SI } }, { "tlgti", OPTO(3,TOLGT), OPTO_MASK, POWER, { RA, SI } }, { "twllti", OPTO(3,TOLLT), OPTO_MASK, PPC, { RA, SI } }, { "tllti", OPTO(3,TOLLT), OPTO_MASK, POWER, { RA, SI } }, { "tweqi", OPTO(3,TOEQ), OPTO_MASK, PPC, { RA, SI } }, { "teqi", OPTO(3,TOEQ), OPTO_MASK, POWER, { RA, SI } }, { "twlgei", OPTO(3,TOLGE), OPTO_MASK, PPC, { RA, SI } }, { "tlgei", OPTO(3,TOLGE), OPTO_MASK, POWER, { RA, SI } }, { "twlnli", OPTO(3,TOLNL), OPTO_MASK, PPC, { RA, SI } }, { "tlnli", OPTO(3,TOLNL), OPTO_MASK, POWER, { RA, SI } }, { "twllei", OPTO(3,TOLLE), OPTO_MASK, PPC, { RA, SI } }, { "tllei", OPTO(3,TOLLE), OPTO_MASK, POWER, { RA, SI } }, { "twlngi", OPTO(3,TOLNG), OPTO_MASK, PPC, { RA, SI } }, { "tlngi", OPTO(3,TOLNG), OPTO_MASK, POWER, { RA, SI } }, { "twgti", OPTO(3,TOGT), OPTO_MASK, PPC, { RA, SI } }, { "tgti", OPTO(3,TOGT), OPTO_MASK, POWER, { RA, SI } }, { "twgei", OPTO(3,TOGE), OPTO_MASK, PPC, { RA, SI } }, { "tgei", OPTO(3,TOGE), OPTO_MASK, POWER, { RA, SI } }, { "twnli", OPTO(3,TONL), OPTO_MASK, PPC, { RA, SI } }, { "tnli", OPTO(3,TONL), OPTO_MASK, POWER, { RA, SI } }, { "twlti", OPTO(3,TOLT), OPTO_MASK, PPC, { RA, SI } }, { "tlti", OPTO(3,TOLT), OPTO_MASK, POWER, { RA, SI } }, { "twlei", OPTO(3,TOLE), OPTO_MASK, PPC, { RA, SI } }, { "tlei", OPTO(3,TOLE), OPTO_MASK, POWER, { RA, SI } }, { "twngi", OPTO(3,TONG), OPTO_MASK, PPC, { RA, SI } }, { "tngi", OPTO(3,TONG), OPTO_MASK, POWER, { RA, SI } }, { "twnei", OPTO(3,TONE), OPTO_MASK, PPC, { RA, SI } }, { "tnei", OPTO(3,TONE), OPTO_MASK, POWER, { RA, SI } }, { "twi", OP(3), OP_MASK, PPC, { TO, RA, SI } }, { "ti", OP(3), OP_MASK, POWER, { TO, RA, SI } }, { "mulli", OP(7), OP_MASK, PPC, { RT, RA, SI } }, { "muli", OP(7), OP_MASK, POWER, { RT, RA, SI } }, { "subfic", OP(8), OP_MASK, PPC, { RT, RA, SI } }, { "sfi", OP(8), OP_MASK, POWER, { RT, RA, SI } }, { "dozi", OP(9), OP_MASK, POWER|M601, { RT, RA, SI } }, { "cmplwi", OPL(10,0), OPL_MASK, PPC, { OBF, RA, UI } }, { "cmpldi", OPL(10,1), OPL_MASK, PPC|B64, { OBF, RA, UI } }, { "cmpli", OP(10), OP_MASK, PPC, { BF, L, RA, UI } }, { "cmpli", OP(10), OP_MASK, POWER, { BF, RA, UI } }, { "cmpwi", OPL(11,0), OPL_MASK, PPC, { OBF, RA, SI } }, { "cmpdi", OPL(11,1), OPL_MASK, PPC|B64, { OBF, RA, SI } }, { "cmpi", OP(11), OP_MASK, PPC, { BF, L, RA, SI } }, { "cmpi", OP(11), OP_MASK, POWER, { BF, RA, SI } }, { "addic", OP(12), OP_MASK, PPC, { RT, RA, SI } }, { "ai", OP(12), OP_MASK, POWER, { RT, RA, SI } }, { "subic", OP(12), OP_MASK, PPC, { RT, RA, NSI } }, { "addic.", OP(13), OP_MASK, PPC, { RT, RA, SI } }, { "ai.", OP(13), OP_MASK, POWER, { RT, RA, SI } }, { "subic.", OP(13), OP_MASK, PPC, { RT, RA, NSI } }, { "li", OP(14), DRA_MASK, PPC, { RT, SI } }, { "lil", OP(14), DRA_MASK, POWER, { RT, SI } }, { "addi", OP(14), OP_MASK, PPC, { RT, RA, SI } }, { "cal", OP(14), OP_MASK, POWER, { RT, D, RA } }, { "subi", OP(14), OP_MASK, PPC, { RT, RA, NSI } }, { "la", OP(14), OP_MASK, PPC, { RT, D, RA } }, { "lis", OP(15), DRA_MASK, PPC, { RT, SISIGNOPT } }, { "liu", OP(15), DRA_MASK, POWER, { RT, SISIGNOPT } }, { "addis", OP(15), OP_MASK, PPC, { RT,RA,SISIGNOPT } }, { "cau", OP(15), OP_MASK, POWER, { RT,RA,SISIGNOPT } }, { "subis", OP(15), OP_MASK, PPC, { RT, RA, NSI } }, { "bdnz-", BBO(16,BODNZ,0,0), BBOYBI_MASK, PPC, { BDM } }, { "bdnz+", BBO(16,BODNZ,0,0), BBOYBI_MASK, PPC, { BDP } }, { "bdnz", BBO(16,BODNZ,0,0), BBOYBI_MASK, PPC, { BD } }, { "bdn", BBO(16,BODNZ,0,0), BBOYBI_MASK, POWER, { BD } }, { "bdnzl-", BBO(16,BODNZ,0,1), BBOYBI_MASK, PPC, { BDM } }, { "bdnzl+", BBO(16,BODNZ,0,1), BBOYBI_MASK, PPC, { BDP } }, { "bdnzl", BBO(16,BODNZ,0,1), BBOYBI_MASK, PPC, { BD } }, { "bdnl", BBO(16,BODNZ,0,1), BBOYBI_MASK, POWER, { BD } }, { "bdnza-", BBO(16,BODNZ,1,0), BBOYBI_MASK, PPC, { BDMA } }, { "bdnza+", BBO(16,BODNZ,1,0), BBOYBI_MASK, PPC, { BDPA } }, { "bdnza", BBO(16,BODNZ,1,0), BBOYBI_MASK, PPC, { BDA } }, { "bdna", BBO(16,BODNZ,1,0), BBOYBI_MASK, POWER, { BDA } }, { "bdnzla-", BBO(16,BODNZ,1,1), BBOYBI_MASK, PPC, { BDMA } }, { "bdnzla+", BBO(16,BODNZ,1,1), BBOYBI_MASK, PPC, { BDPA } }, { "bdnzla", BBO(16,BODNZ,1,1), BBOYBI_MASK, PPC, { BDA } }, { "bdnla", BBO(16,BODNZ,1,1), BBOYBI_MASK, POWER, { BDA } }, { "bdz-", BBO(16,BODZ,0,0), BBOYBI_MASK, PPC, { BDM } }, { "bdz+", BBO(16,BODZ,0,0), BBOYBI_MASK, PPC, { BDP } }, { "bdz", BBO(16,BODZ,0,0), BBOYBI_MASK, PPC|POWER, { BD } }, { "bdzl-", BBO(16,BODZ,0,1), BBOYBI_MASK, PPC, { BDM } }, { "bdzl+", BBO(16,BODZ,0,1), BBOYBI_MASK, PPC, { BDP } }, { "bdzl", BBO(16,BODZ,0,1), BBOYBI_MASK, PPC|POWER, { BD } }, { "bdza-", BBO(16,BODZ,1,0), BBOYBI_MASK, PPC, { BDMA } }, { "bdza+", BBO(16,BODZ,1,0), BBOYBI_MASK, PPC, { BDPA } }, { "bdza", BBO(16,BODZ,1,0), BBOYBI_MASK, PPC|POWER, { BDA } }, { "bdzla-", BBO(16,BODZ,1,1), BBOYBI_MASK, PPC, { BDMA } }, { "bdzla+", BBO(16,BODZ,1,1), BBOYBI_MASK, PPC, { BDPA } }, { "bdzla", BBO(16,BODZ,1,1), BBOYBI_MASK, PPC|POWER, { BDA } }, { "blt-", BBOCB(16,BOT,CBLT,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "blt+", BBOCB(16,BOT,CBLT,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "blt", BBOCB(16,BOT,CBLT,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bltl-", BBOCB(16,BOT,CBLT,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bltl+", BBOCB(16,BOT,CBLT,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bltl", BBOCB(16,BOT,CBLT,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "blta-", BBOCB(16,BOT,CBLT,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "blta+", BBOCB(16,BOT,CBLT,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "blta", BBOCB(16,BOT,CBLT,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bltla-", BBOCB(16,BOT,CBLT,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bltla+", BBOCB(16,BOT,CBLT,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bltla", BBOCB(16,BOT,CBLT,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bgt-", BBOCB(16,BOT,CBGT,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "bgt+", BBOCB(16,BOT,CBGT,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "bgt", BBOCB(16,BOT,CBGT,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bgtl-", BBOCB(16,BOT,CBGT,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bgtl+", BBOCB(16,BOT,CBGT,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bgtl", BBOCB(16,BOT,CBGT,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bgta-", BBOCB(16,BOT,CBGT,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bgta+", BBOCB(16,BOT,CBGT,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bgta", BBOCB(16,BOT,CBGT,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bgtla-", BBOCB(16,BOT,CBGT,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bgtla+", BBOCB(16,BOT,CBGT,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bgtla", BBOCB(16,BOT,CBGT,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "beq-", BBOCB(16,BOT,CBEQ,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "beq+", BBOCB(16,BOT,CBEQ,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "beq", BBOCB(16,BOT,CBEQ,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "beql-", BBOCB(16,BOT,CBEQ,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "beql+", BBOCB(16,BOT,CBEQ,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "beql", BBOCB(16,BOT,CBEQ,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "beqa-", BBOCB(16,BOT,CBEQ,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "beqa+", BBOCB(16,BOT,CBEQ,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "beqa", BBOCB(16,BOT,CBEQ,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "beqla-", BBOCB(16,BOT,CBEQ,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "beqla+", BBOCB(16,BOT,CBEQ,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "beqla", BBOCB(16,BOT,CBEQ,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bso-", BBOCB(16,BOT,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "bso+", BBOCB(16,BOT,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "bso", BBOCB(16,BOT,CBSO,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bsol-", BBOCB(16,BOT,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bsol+", BBOCB(16,BOT,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bsol", BBOCB(16,BOT,CBSO,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bsoa-", BBOCB(16,BOT,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bsoa+", BBOCB(16,BOT,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bsoa", BBOCB(16,BOT,CBSO,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bsola-", BBOCB(16,BOT,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bsola+", BBOCB(16,BOT,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bsola", BBOCB(16,BOT,CBSO,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bun-", BBOCB(16,BOT,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "bun+", BBOCB(16,BOT,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "bun", BBOCB(16,BOT,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BD } }, { "bunl-", BBOCB(16,BOT,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bunl+", BBOCB(16,BOT,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bunl", BBOCB(16,BOT,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BD } }, { "buna-", BBOCB(16,BOT,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "buna+", BBOCB(16,BOT,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "buna", BBOCB(16,BOT,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDA } }, { "bunla-", BBOCB(16,BOT,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bunla+", BBOCB(16,BOT,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bunla", BBOCB(16,BOT,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDA } }, { "bge-", BBOCB(16,BOF,CBLT,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "bge+", BBOCB(16,BOF,CBLT,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "bge", BBOCB(16,BOF,CBLT,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bgel-", BBOCB(16,BOF,CBLT,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bgel+", BBOCB(16,BOF,CBLT,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bgel", BBOCB(16,BOF,CBLT,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bgea-", BBOCB(16,BOF,CBLT,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bgea+", BBOCB(16,BOF,CBLT,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bgea", BBOCB(16,BOF,CBLT,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bgela-", BBOCB(16,BOF,CBLT,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bgela+", BBOCB(16,BOF,CBLT,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bgela", BBOCB(16,BOF,CBLT,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bnl-", BBOCB(16,BOF,CBLT,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "bnl+", BBOCB(16,BOF,CBLT,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "bnl", BBOCB(16,BOF,CBLT,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bnll-", BBOCB(16,BOF,CBLT,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bnll+", BBOCB(16,BOF,CBLT,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bnll", BBOCB(16,BOF,CBLT,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bnla-", BBOCB(16,BOF,CBLT,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bnla+", BBOCB(16,BOF,CBLT,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bnla", BBOCB(16,BOF,CBLT,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bnlla-", BBOCB(16,BOF,CBLT,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bnlla+", BBOCB(16,BOF,CBLT,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bnlla", BBOCB(16,BOF,CBLT,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "ble-", BBOCB(16,BOF,CBGT,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "ble+", BBOCB(16,BOF,CBGT,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "ble", BBOCB(16,BOF,CBGT,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "blel-", BBOCB(16,BOF,CBGT,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "blel+", BBOCB(16,BOF,CBGT,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "blel", BBOCB(16,BOF,CBGT,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "blea-", BBOCB(16,BOF,CBGT,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "blea+", BBOCB(16,BOF,CBGT,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "blea", BBOCB(16,BOF,CBGT,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "blela-", BBOCB(16,BOF,CBGT,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "blela+", BBOCB(16,BOF,CBGT,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "blela", BBOCB(16,BOF,CBGT,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bng-", BBOCB(16,BOF,CBGT,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "bng+", BBOCB(16,BOF,CBGT,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "bng", BBOCB(16,BOF,CBGT,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bngl-", BBOCB(16,BOF,CBGT,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bngl+", BBOCB(16,BOF,CBGT,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bngl", BBOCB(16,BOF,CBGT,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bnga-", BBOCB(16,BOF,CBGT,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bnga+", BBOCB(16,BOF,CBGT,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bnga", BBOCB(16,BOF,CBGT,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bngla-", BBOCB(16,BOF,CBGT,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bngla+", BBOCB(16,BOF,CBGT,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bngla", BBOCB(16,BOF,CBGT,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bne-", BBOCB(16,BOF,CBEQ,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "bne+", BBOCB(16,BOF,CBEQ,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "bne", BBOCB(16,BOF,CBEQ,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bnel-", BBOCB(16,BOF,CBEQ,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bnel+", BBOCB(16,BOF,CBEQ,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bnel", BBOCB(16,BOF,CBEQ,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bnea-", BBOCB(16,BOF,CBEQ,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bnea+", BBOCB(16,BOF,CBEQ,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bnea", BBOCB(16,BOF,CBEQ,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bnela-", BBOCB(16,BOF,CBEQ,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bnela+", BBOCB(16,BOF,CBEQ,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bnela", BBOCB(16,BOF,CBEQ,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bns-", BBOCB(16,BOF,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "bns+", BBOCB(16,BOF,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "bns", BBOCB(16,BOF,CBSO,0,0), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bnsl-", BBOCB(16,BOF,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bnsl+", BBOCB(16,BOF,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bnsl", BBOCB(16,BOF,CBSO,0,1), BBOYCB_MASK, PPC|POWER, { CR, BD } }, { "bnsa-", BBOCB(16,BOF,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bnsa+", BBOCB(16,BOF,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bnsa", BBOCB(16,BOF,CBSO,1,0), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bnsla-", BBOCB(16,BOF,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bnsla+", BBOCB(16,BOF,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bnsla", BBOCB(16,BOF,CBSO,1,1), BBOYCB_MASK, PPC|POWER, { CR, BDA } }, { "bnu-", BBOCB(16,BOF,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BDM } }, { "bnu+", BBOCB(16,BOF,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BDP } }, { "bnu", BBOCB(16,BOF,CBSO,0,0), BBOYCB_MASK, PPC, { CR, BD } }, { "bnul-", BBOCB(16,BOF,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BDM } }, { "bnul+", BBOCB(16,BOF,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BDP } }, { "bnul", BBOCB(16,BOF,CBSO,0,1), BBOYCB_MASK, PPC, { CR, BD } }, { "bnua-", BBOCB(16,BOF,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bnua+", BBOCB(16,BOF,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bnua", BBOCB(16,BOF,CBSO,1,0), BBOYCB_MASK, PPC, { CR, BDA } }, { "bnula-", BBOCB(16,BOF,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDMA } }, { "bnula+", BBOCB(16,BOF,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDPA } }, { "bnula", BBOCB(16,BOF,CBSO,1,1), BBOYCB_MASK, PPC, { CR, BDA } }, { "bdnzt-", BBO(16,BODNZT,0,0), BBOY_MASK, PPC, { BI, BDM } }, { "bdnzt+", BBO(16,BODNZT,0,0), BBOY_MASK, PPC, { BI, BDP } }, { "bdnzt", BBO(16,BODNZT,0,0), BBOY_MASK, PPC, { BI, BD } }, { "bdnztl-", BBO(16,BODNZT,0,1), BBOY_MASK, PPC, { BI, BDM } }, { "bdnztl+", BBO(16,BODNZT,0,1), BBOY_MASK, PPC, { BI, BDP } }, { "bdnztl", BBO(16,BODNZT,0,1), BBOY_MASK, PPC, { BI, BD } }, { "bdnzta-", BBO(16,BODNZT,1,0), BBOY_MASK, PPC, { BI, BDMA } }, { "bdnzta+", BBO(16,BODNZT,1,0), BBOY_MASK, PPC, { BI, BDPA } }, { "bdnzta", BBO(16,BODNZT,1,0), BBOY_MASK, PPC, { BI, BDA } }, { "bdnztla-",BBO(16,BODNZT,1,1), BBOY_MASK, PPC, { BI, BDMA } }, { "bdnztla+",BBO(16,BODNZT,1,1), BBOY_MASK, PPC, { BI, BDPA } }, { "bdnztla", BBO(16,BODNZT,1,1), BBOY_MASK, PPC, { BI, BDA } }, { "bdnzf-", BBO(16,BODNZF,0,0), BBOY_MASK, PPC, { BI, BDM } }, { "bdnzf+", BBO(16,BODNZF,0,0), BBOY_MASK, PPC, { BI, BDP } }, { "bdnzf", BBO(16,BODNZF,0,0), BBOY_MASK, PPC, { BI, BD } }, { "bdnzfl-", BBO(16,BODNZF,0,1), BBOY_MASK, PPC, { BI, BDM } }, { "bdnzfl+", BBO(16,BODNZF,0,1), BBOY_MASK, PPC, { BI, BDP } }, { "bdnzfl", BBO(16,BODNZF,0,1), BBOY_MASK, PPC, { BI, BD } }, { "bdnzfa-", BBO(16,BODNZF,1,0), BBOY_MASK, PPC, { BI, BDMA } }, { "bdnzfa+", BBO(16,BODNZF,1,0), BBOY_MASK, PPC, { BI, BDPA } }, { "bdnzfa", BBO(16,BODNZF,1,0), BBOY_MASK, PPC, { BI, BDA } }, { "bdnzfla-",BBO(16,BODNZF,1,1), BBOY_MASK, PPC, { BI, BDMA } }, { "bdnzfla+",BBO(16,BODNZF,1,1), BBOY_MASK, PPC, { BI, BDPA } }, { "bdnzfla", BBO(16,BODNZF,1,1), BBOY_MASK, PPC, { BI, BDA } }, { "bt-", BBO(16,BOT,0,0), BBOY_MASK, PPC, { BI, BDM } }, { "bt+", BBO(16,BOT,0,0), BBOY_MASK, PPC, { BI, BDP } }, { "bt", BBO(16,BOT,0,0), BBOY_MASK, PPC, { BI, BD } }, { "bbt", BBO(16,BOT,0,0), BBOY_MASK, POWER, { BI, BD } }, { "btl-", BBO(16,BOT,0,1), BBOY_MASK, PPC, { BI, BDM } }, { "btl+", BBO(16,BOT,0,1), BBOY_MASK, PPC, { BI, BDP } }, { "btl", BBO(16,BOT,0,1), BBOY_MASK, PPC, { BI, BD } }, { "bbtl", BBO(16,BOT,0,1), BBOY_MASK, POWER, { BI, BD } }, { "bta-", BBO(16,BOT,1,0), BBOY_MASK, PPC, { BI, BDMA } }, { "bta+", BBO(16,BOT,1,0), BBOY_MASK, PPC, { BI, BDPA } }, { "bta", BBO(16,BOT,1,0), BBOY_MASK, PPC, { BI, BDA } }, { "bbta", BBO(16,BOT,1,0), BBOY_MASK, POWER, { BI, BDA } }, { "btla-", BBO(16,BOT,1,1), BBOY_MASK, PPC, { BI, BDMA } }, { "btla+", BBO(16,BOT,1,1), BBOY_MASK, PPC, { BI, BDPA } }, { "btla", BBO(16,BOT,1,1), BBOY_MASK, PPC, { BI, BDA } }, { "bbtla", BBO(16,BOT,1,1), BBOY_MASK, POWER, { BI, BDA } }, { "bf-", BBO(16,BOF,0,0), BBOY_MASK, PPC, { BI, BDM } }, { "bf+", BBO(16,BOF,0,0), BBOY_MASK, PPC, { BI, BDP } }, { "bf", BBO(16,BOF,0,0), BBOY_MASK, PPC, { BI, BD } }, { "bbf", BBO(16,BOF,0,0), BBOY_MASK, POWER, { BI, BD } }, { "bfl-", BBO(16,BOF,0,1), BBOY_MASK, PPC, { BI, BDM } }, { "bfl+", BBO(16,BOF,0,1), BBOY_MASK, PPC, { BI, BDP } }, { "bfl", BBO(16,BOF,0,1), BBOY_MASK, PPC, { BI, BD } }, { "bbfl", BBO(16,BOF,0,1), BBOY_MASK, POWER, { BI, BD } }, { "bfa-", BBO(16,BOF,1,0), BBOY_MASK, PPC, { BI, BDMA } }, { "bfa+", BBO(16,BOF,1,0), BBOY_MASK, PPC, { BI, BDPA } }, { "bfa", BBO(16,BOF,1,0), BBOY_MASK, PPC, { BI, BDA } }, { "bbfa", BBO(16,BOF,1,0), BBOY_MASK, POWER, { BI, BDA } }, { "bfla-", BBO(16,BOF,1,1), BBOY_MASK, PPC, { BI, BDMA } }, { "bfla+", BBO(16,BOF,1,1), BBOY_MASK, PPC, { BI, BDPA } }, { "bfla", BBO(16,BOF,1,1), BBOY_MASK, PPC, { BI, BDA } }, { "bbfla", BBO(16,BOF,1,1), BBOY_MASK, POWER, { BI, BDA } }, { "bdzt-", BBO(16,BODZT,0,0), BBOY_MASK, PPC, { BI, BDM } }, { "bdzt+", BBO(16,BODZT,0,0), BBOY_MASK, PPC, { BI, BDP } }, { "bdzt", BBO(16,BODZT,0,0), BBOY_MASK, PPC, { BI, BD } }, { "bdztl-", BBO(16,BODZT,0,1), BBOY_MASK, PPC, { BI, BDM } }, { "bdztl+", BBO(16,BODZT,0,1), BBOY_MASK, PPC, { BI, BDP } }, { "bdztl", BBO(16,BODZT,0,1), BBOY_MASK, PPC, { BI, BD } }, { "bdzta-", BBO(16,BODZT,1,0), BBOY_MASK, PPC, { BI, BDMA } }, { "bdzta+", BBO(16,BODZT,1,0), BBOY_MASK, PPC, { BI, BDPA } }, { "bdzta", BBO(16,BODZT,1,0), BBOY_MASK, PPC, { BI, BDA } }, { "bdztla-", BBO(16,BODZT,1,1), BBOY_MASK, PPC, { BI, BDMA } }, { "bdztla+", BBO(16,BODZT,1,1), BBOY_MASK, PPC, { BI, BDPA } }, { "bdztla", BBO(16,BODZT,1,1), BBOY_MASK, PPC, { BI, BDA } }, { "bdzf-", BBO(16,BODZF,0,0), BBOY_MASK, PPC, { BI, BDM } }, { "bdzf+", BBO(16,BODZF,0,0), BBOY_MASK, PPC, { BI, BDP } }, { "bdzf", BBO(16,BODZF,0,0), BBOY_MASK, PPC, { BI, BD } }, { "bdzfl-", BBO(16,BODZF,0,1), BBOY_MASK, PPC, { BI, BDM } }, { "bdzfl+", BBO(16,BODZF,0,1), BBOY_MASK, PPC, { BI, BDP } }, { "bdzfl", BBO(16,BODZF,0,1), BBOY_MASK, PPC, { BI, BD } }, { "bdzfa-", BBO(16,BODZF,1,0), BBOY_MASK, PPC, { BI, BDMA } }, { "bdzfa+", BBO(16,BODZF,1,0), BBOY_MASK, PPC, { BI, BDPA } }, { "bdzfa", BBO(16,BODZF,1,0), BBOY_MASK, PPC, { BI, BDA } }, { "bdzfla-", BBO(16,BODZF,1,1), BBOY_MASK, PPC, { BI, BDMA } }, { "bdzfla+", BBO(16,BODZF,1,1), BBOY_MASK, PPC, { BI, BDPA } }, { "bdzfla", BBO(16,BODZF,1,1), BBOY_MASK, PPC, { BI, BDA } }, { "bc-", B(16,0,0), B_MASK, PPC, { BOE, BI, BDM } }, { "bc+", B(16,0,0), B_MASK, PPC, { BOE, BI, BDP } }, { "bc", B(16,0,0), B_MASK, PPC|POWER, { BO, BI, BD } }, { "bcl-", B(16,0,1), B_MASK, PPC, { BOE, BI, BDM } }, { "bcl+", B(16,0,1), B_MASK, PPC, { BOE, BI, BDP } }, { "bcl", B(16,0,1), B_MASK, PPC|POWER, { BO, BI, BD } }, { "bca-", B(16,1,0), B_MASK, PPC, { BOE, BI, BDMA } }, { "bca+", B(16,1,0), B_MASK, PPC, { BOE, BI, BDPA } }, { "bca", B(16,1,0), B_MASK, PPC|POWER, { BO, BI, BDA } }, { "bcla-", B(16,1,1), B_MASK, PPC, { BOE, BI, BDMA } }, { "bcla+", B(16,1,1), B_MASK, PPC, { BOE, BI, BDPA } }, { "bcla", B(16,1,1), B_MASK, PPC|POWER, { BO, BI, BDA } }, { "sc", SC(17,1,0), 0xffffffff, PPC, { 0 } }, { "svc", SC(17,0,0), SC_MASK, POWER, { LEV, FL1, FL2 } }, { "svcl", SC(17,0,1), SC_MASK, POWER, { LEV, FL1, FL2 } }, { "svca", SC(17,1,0), SC_MASK, POWER, { SV } }, { "svcla", SC(17,1,1), SC_MASK, POWER, { SV } }, { "b", B(18,0,0), B_MASK, PPC|POWER, { LI } }, { "bl", B(18,0,1), B_MASK, PPC|POWER, { LI } }, { "ba", B(18,1,0), B_MASK, PPC|POWER, { LIA } }, { "bla", B(18,1,1), B_MASK, PPC|POWER, { LIA } }, { "mcrf", XL(19,0), XLBB_MASK|(3<<21)|(3<<16), PPC|POWER, { BF, BFA } }, { "blr", XLO(19,BOU,16,0), XLBOBIBB_MASK, PPC, { 0 } }, { "br", XLO(19,BOU,16,0), XLBOBIBB_MASK, POWER, { 0 } }, { "blrl", XLO(19,BOU,16,1), XLBOBIBB_MASK, PPC, { 0 } }, { "brl", XLO(19,BOU,16,1), XLBOBIBB_MASK, POWER, { 0 } }, { "bdnzlr", XLO(19,BODNZ,16,0), XLBOBIBB_MASK, PPC, { 0 } }, { "bdnzlr-", XLO(19,BODNZ,16,0), XLBOBIBB_MASK, PPC, { 0 } }, { "bdnzlr+", XLO(19,BODNZP,16,0), XLBOBIBB_MASK, PPC, { 0 } }, { "bdnzlrl", XLO(19,BODNZ,16,1), XLBOBIBB_MASK, PPC, { 0 } }, { "bdnzlrl-",XLO(19,BODNZ,16,1), XLBOBIBB_MASK, PPC, { 0 } }, { "bdnzlrl+",XLO(19,BODNZP,16,1), XLBOBIBB_MASK, PPC, { 0 } }, { "bdzlr", XLO(19,BODZ,16,0), XLBOBIBB_MASK, PPC, { 0 } }, { "bdzlr-", XLO(19,BODZ,16,0), XLBOBIBB_MASK, PPC, { 0 } }, { "bdzlr+", XLO(19,BODZP,16,0), XLBOBIBB_MASK, PPC, { 0 } }, { "bdzlrl", XLO(19,BODZ,16,1), XLBOBIBB_MASK, PPC, { 0 } }, { "bdzlrl-", XLO(19,BODZ,16,1), XLBOBIBB_MASK, PPC, { 0 } }, { "bdzlrl+", XLO(19,BODZP,16,1), XLBOBIBB_MASK, PPC, { 0 } }, { "bltlr", XLOCB(19,BOT,CBLT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bltlr-", XLOCB(19,BOT,CBLT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bltlr+", XLOCB(19,BOTP,CBLT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bltr", XLOCB(19,BOT,CBLT,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "bltlrl", XLOCB(19,BOT,CBLT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bltlrl-", XLOCB(19,BOT,CBLT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bltlrl+", XLOCB(19,BOTP,CBLT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bltrl", XLOCB(19,BOT,CBLT,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "bgtlr", XLOCB(19,BOT,CBGT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgtlr-", XLOCB(19,BOT,CBGT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgtlr+", XLOCB(19,BOTP,CBGT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgtr", XLOCB(19,BOT,CBGT,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "bgtlrl", XLOCB(19,BOT,CBGT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgtlrl-", XLOCB(19,BOT,CBGT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgtlrl+", XLOCB(19,BOTP,CBGT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgtrl", XLOCB(19,BOT,CBGT,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "beqlr", XLOCB(19,BOT,CBEQ,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "beqlr-", XLOCB(19,BOT,CBEQ,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "beqlr+", XLOCB(19,BOTP,CBEQ,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "beqr", XLOCB(19,BOT,CBEQ,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "beqlrl", XLOCB(19,BOT,CBEQ,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "beqlrl-", XLOCB(19,BOT,CBEQ,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "beqlrl+", XLOCB(19,BOTP,CBEQ,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "beqrl", XLOCB(19,BOT,CBEQ,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "bsolr", XLOCB(19,BOT,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bsolr-", XLOCB(19,BOT,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bsolr+", XLOCB(19,BOTP,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bsor", XLOCB(19,BOT,CBSO,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "bsolrl", XLOCB(19,BOT,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bsolrl-", XLOCB(19,BOT,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bsolrl+", XLOCB(19,BOTP,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bsorl", XLOCB(19,BOT,CBSO,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "bunlr", XLOCB(19,BOT,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bunlr-", XLOCB(19,BOT,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bunlr+", XLOCB(19,BOTP,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bunlrl", XLOCB(19,BOT,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bunlrl-", XLOCB(19,BOT,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bunlrl+", XLOCB(19,BOTP,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgelr", XLOCB(19,BOF,CBLT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgelr-", XLOCB(19,BOF,CBLT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgelr+", XLOCB(19,BOFP,CBLT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bger", XLOCB(19,BOF,CBLT,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "bgelrl", XLOCB(19,BOF,CBLT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgelrl-", XLOCB(19,BOF,CBLT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgelrl+", XLOCB(19,BOFP,CBLT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgerl", XLOCB(19,BOF,CBLT,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "bnllr", XLOCB(19,BOF,CBLT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnllr-", XLOCB(19,BOF,CBLT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnllr+", XLOCB(19,BOFP,CBLT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnlr", XLOCB(19,BOF,CBLT,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "bnllrl", XLOCB(19,BOF,CBLT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnllrl-", XLOCB(19,BOF,CBLT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnllrl+", XLOCB(19,BOFP,CBLT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnlrl", XLOCB(19,BOF,CBLT,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "blelr", XLOCB(19,BOF,CBGT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "blelr-", XLOCB(19,BOF,CBGT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "blelr+", XLOCB(19,BOFP,CBGT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bler", XLOCB(19,BOF,CBGT,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "blelrl", XLOCB(19,BOF,CBGT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "blelrl-", XLOCB(19,BOF,CBGT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "blelrl+", XLOCB(19,BOFP,CBGT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "blerl", XLOCB(19,BOF,CBGT,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "bnglr", XLOCB(19,BOF,CBGT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnglr-", XLOCB(19,BOF,CBGT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnglr+", XLOCB(19,BOFP,CBGT,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bngr", XLOCB(19,BOF,CBGT,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "bnglrl", XLOCB(19,BOF,CBGT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnglrl-", XLOCB(19,BOF,CBGT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnglrl+", XLOCB(19,BOFP,CBGT,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bngrl", XLOCB(19,BOF,CBGT,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "bnelr", XLOCB(19,BOF,CBEQ,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnelr-", XLOCB(19,BOF,CBEQ,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnelr+", XLOCB(19,BOFP,CBEQ,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bner", XLOCB(19,BOF,CBEQ,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "bnelrl", XLOCB(19,BOF,CBEQ,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnelrl-", XLOCB(19,BOF,CBEQ,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnelrl+", XLOCB(19,BOFP,CBEQ,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnerl", XLOCB(19,BOF,CBEQ,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "bnslr", XLOCB(19,BOF,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnslr-", XLOCB(19,BOF,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnslr+", XLOCB(19,BOFP,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnsr", XLOCB(19,BOF,CBSO,16,0), XLBOCBBB_MASK, POWER, { CR } }, { "bnslrl", XLOCB(19,BOF,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnslrl-", XLOCB(19,BOF,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnslrl+", XLOCB(19,BOFP,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnsrl", XLOCB(19,BOF,CBSO,16,1), XLBOCBBB_MASK, POWER, { CR } }, { "bnulr", XLOCB(19,BOF,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnulr-", XLOCB(19,BOF,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnulr+", XLOCB(19,BOFP,CBSO,16,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnulrl", XLOCB(19,BOF,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnulrl-", XLOCB(19,BOF,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnulrl+", XLOCB(19,BOFP,CBSO,16,1), XLBOCBBB_MASK, PPC, { CR } }, { "btlr", XLO(19,BOT,16,0), XLBOBB_MASK, PPC, { BI } }, { "btlr-", XLO(19,BOT,16,0), XLBOBB_MASK, PPC, { BI } }, { "btlr+", XLO(19,BOTP,16,0), XLBOBB_MASK, PPC, { BI } }, { "bbtr", XLO(19,BOT,16,0), XLBOBB_MASK, POWER, { BI } }, { "btlrl", XLO(19,BOT,16,1), XLBOBB_MASK, PPC, { BI } }, { "btlrl-", XLO(19,BOT,16,1), XLBOBB_MASK, PPC, { BI } }, { "btlrl+", XLO(19,BOTP,16,1), XLBOBB_MASK, PPC, { BI } }, { "bbtrl", XLO(19,BOT,16,1), XLBOBB_MASK, POWER, { BI } }, { "bflr", XLO(19,BOF,16,0), XLBOBB_MASK, PPC, { BI } }, { "bflr-", XLO(19,BOF,16,0), XLBOBB_MASK, PPC, { BI } }, { "bflr+", XLO(19,BOFP,16,0), XLBOBB_MASK, PPC, { BI } }, { "bbfr", XLO(19,BOF,16,0), XLBOBB_MASK, POWER, { BI } }, { "bflrl", XLO(19,BOF,16,1), XLBOBB_MASK, PPC, { BI } }, { "bflrl-", XLO(19,BOF,16,1), XLBOBB_MASK, PPC, { BI } }, { "bflrl+", XLO(19,BOFP,16,1), XLBOBB_MASK, PPC, { BI } }, { "bbfrl", XLO(19,BOF,16,1), XLBOBB_MASK, POWER, { BI } }, { "bdnztlr", XLO(19,BODNZT,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdnztlr-",XLO(19,BODNZT,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdnztlr+",XLO(19,BODNZTP,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdnztlrl",XLO(19,BODNZT,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdnztlrl-",XLO(19,BODNZT,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdnztlrl+",XLO(19,BODNZTP,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdnzflr", XLO(19,BODNZF,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdnzflr-",XLO(19,BODNZF,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdnzflr+",XLO(19,BODNZFP,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdnzflrl",XLO(19,BODNZF,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdnzflrl-",XLO(19,BODNZF,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdnzflrl+",XLO(19,BODNZFP,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdztlr", XLO(19,BODZT,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdztlr-", XLO(19,BODZT,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdztlr+", XLO(19,BODZTP,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdztlrl", XLO(19,BODZT,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdztlrl-",XLO(19,BODZT,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdztlrl+",XLO(19,BODZTP,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdzflr", XLO(19,BODZF,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdzflr-", XLO(19,BODZF,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdzflr+", XLO(19,BODZFP,16,0), XLBOBB_MASK, PPC, { BI } }, { "bdzflrl", XLO(19,BODZF,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdzflrl-",XLO(19,BODZF,16,1), XLBOBB_MASK, PPC, { BI } }, { "bdzflrl+",XLO(19,BODZFP,16,1), XLBOBB_MASK, PPC, { BI } }, { "bclr", XLLK(19,16,0), XLYBB_MASK, PPC, { BO, BI } }, { "bclrl", XLLK(19,16,1), XLYBB_MASK, PPC, { BO, BI } }, { "bclr+", XLYLK(19,16,1,0), XLYBB_MASK, PPC, { BOE, BI } }, { "bclrl+", XLYLK(19,16,1,1), XLYBB_MASK, PPC, { BOE, BI } }, { "bclr-", XLYLK(19,16,0,0), XLYBB_MASK, PPC, { BOE, BI } }, { "bclrl-", XLYLK(19,16,0,1), XLYBB_MASK, PPC, { BOE, BI } }, { "bcr", XLLK(19,16,0), XLBB_MASK, POWER, { BO, BI } }, { "bcrl", XLLK(19,16,1), XLBB_MASK, POWER, { BO, BI } }, { "crnot", XL(19,33), XL_MASK, PPC, { BT, BA, BBA } }, { "crnor", XL(19,33), XL_MASK, PPC|POWER, { BT, BA, BB } }, { "rfi", XL(19,50), 0xffffffff, PPC|POWER, { 0 } }, { "rfsvc", XL(19,82), 0xffffffff, POWER, { 0 } }, { "crandc", XL(19,129), XL_MASK, PPC|POWER, { BT, BA, BB } }, { "isync", XL(19,150), 0xffffffff, PPC, { 0 } }, { "ics", XL(19,150), 0xffffffff, POWER, { 0 } }, { "crclr", XL(19,193), XL_MASK, PPC, { BT, BAT, BBA } }, { "crxor", XL(19,193), XL_MASK, PPC|POWER, { BT, BA, BB } }, { "crnand", XL(19,225), XL_MASK, PPC|POWER, { BT, BA, BB } }, { "crand", XL(19,257), XL_MASK, PPC|POWER, { BT, BA, BB } }, { "crset", XL(19,289), XL_MASK, PPC, { BT, BAT, BBA } }, { "creqv", XL(19,289), XL_MASK, PPC|POWER, { BT, BA, BB } }, { "crorc", XL(19,417), XL_MASK, PPC|POWER, { BT, BA, BB } }, { "crmove", XL(19,449), XL_MASK, PPC, { BT, BA, BBA } }, { "cror", XL(19,449), XL_MASK, PPC|POWER, { BT, BA, BB } }, { "bctr", XLO(19,BOU,528,0), XLBOBIBB_MASK, PPC|POWER, { 0 } }, { "bctrl", XLO(19,BOU,528,1), XLBOBIBB_MASK, PPC|POWER, { 0 } }, { "bltctr", XLOCB(19,BOT,CBLT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bltctr-", XLOCB(19,BOT,CBLT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bltctr+", XLOCB(19,BOTP,CBLT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bltctrl", XLOCB(19,BOT,CBLT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bltctrl-",XLOCB(19,BOT,CBLT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bltctrl+",XLOCB(19,BOTP,CBLT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgtctr", XLOCB(19,BOT,CBGT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgtctr-", XLOCB(19,BOT,CBGT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgtctr+", XLOCB(19,BOTP,CBGT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgtctrl", XLOCB(19,BOT,CBGT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgtctrl-",XLOCB(19,BOT,CBGT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgtctrl+",XLOCB(19,BOTP,CBGT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "beqctr", XLOCB(19,BOT,CBEQ,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "beqctr-", XLOCB(19,BOT,CBEQ,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "beqctr+", XLOCB(19,BOTP,CBEQ,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "beqctrl", XLOCB(19,BOT,CBEQ,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "beqctrl-",XLOCB(19,BOT,CBEQ,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "beqctrl+",XLOCB(19,BOTP,CBEQ,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bsoctr", XLOCB(19,BOT,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bsoctr-", XLOCB(19,BOT,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bsoctr+", XLOCB(19,BOTP,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bsoctrl", XLOCB(19,BOT,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bsoctrl-",XLOCB(19,BOT,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bsoctrl+",XLOCB(19,BOTP,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bunctr", XLOCB(19,BOT,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bunctr-", XLOCB(19,BOT,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bunctr+", XLOCB(19,BOTP,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bunctrl", XLOCB(19,BOT,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bunctrl-",XLOCB(19,BOT,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bunctrl+",XLOCB(19,BOTP,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgectr", XLOCB(19,BOF,CBLT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgectr-", XLOCB(19,BOF,CBLT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgectr+", XLOCB(19,BOFP,CBLT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bgectrl", XLOCB(19,BOF,CBLT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgectrl-",XLOCB(19,BOF,CBLT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bgectrl+",XLOCB(19,BOFP,CBLT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnlctr", XLOCB(19,BOF,CBLT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnlctr-", XLOCB(19,BOF,CBLT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnlctr+", XLOCB(19,BOFP,CBLT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnlctrl", XLOCB(19,BOF,CBLT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnlctrl-",XLOCB(19,BOF,CBLT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnlctrl+",XLOCB(19,BOFP,CBLT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "blectr", XLOCB(19,BOF,CBGT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "blectr-", XLOCB(19,BOF,CBGT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "blectr+", XLOCB(19,BOFP,CBGT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "blectrl", XLOCB(19,BOF,CBGT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "blectrl-",XLOCB(19,BOF,CBGT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "blectrl+",XLOCB(19,BOFP,CBGT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bngctr", XLOCB(19,BOF,CBGT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bngctr-", XLOCB(19,BOF,CBGT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bngctr+", XLOCB(19,BOFP,CBGT,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bngctrl", XLOCB(19,BOF,CBGT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bngctrl-",XLOCB(19,BOF,CBGT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bngctrl+",XLOCB(19,BOFP,CBGT,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnectr", XLOCB(19,BOF,CBEQ,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnectr-", XLOCB(19,BOF,CBEQ,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnectr+", XLOCB(19,BOFP,CBEQ,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnectrl", XLOCB(19,BOF,CBEQ,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnectrl-",XLOCB(19,BOF,CBEQ,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnectrl+",XLOCB(19,BOFP,CBEQ,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnsctr", XLOCB(19,BOF,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnsctr-", XLOCB(19,BOF,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnsctr+", XLOCB(19,BOFP,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnsctrl", XLOCB(19,BOF,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnsctrl-",XLOCB(19,BOF,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnsctrl+",XLOCB(19,BOFP,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnuctr", XLOCB(19,BOF,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnuctr-", XLOCB(19,BOF,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnuctr+", XLOCB(19,BOFP,CBSO,528,0), XLBOCBBB_MASK, PPC, { CR } }, { "bnuctrl", XLOCB(19,BOF,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnuctrl-",XLOCB(19,BOF,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "bnuctrl+",XLOCB(19,BOFP,CBSO,528,1), XLBOCBBB_MASK, PPC, { CR } }, { "btctr", XLO(19,BOT,528,0), XLBOBB_MASK, PPC, { BI } }, { "btctr-", XLO(19,BOT,528,0), XLBOBB_MASK, PPC, { BI } }, { "btctr+", XLO(19,BOTP,528,0), XLBOBB_MASK, PPC, { BI } }, { "btctrl", XLO(19,BOT,528,1), XLBOBB_MASK, PPC, { BI } }, { "btctrl-", XLO(19,BOT,528,1), XLBOBB_MASK, PPC, { BI } }, { "btctrl+", XLO(19,BOTP,528,1), XLBOBB_MASK, PPC, { BI } }, { "bfctr", XLO(19,BOF,528,0), XLBOBB_MASK, PPC, { BI } }, { "bfctr-", XLO(19,BOF,528,0), XLBOBB_MASK, PPC, { BI } }, { "bfctr+", XLO(19,BOFP,528,0), XLBOBB_MASK, PPC, { BI } }, { "bfctrl", XLO(19,BOF,528,1), XLBOBB_MASK, PPC, { BI } }, { "bfctrl-", XLO(19,BOF,528,1), XLBOBB_MASK, PPC, { BI } }, { "bfctrl+", XLO(19,BOFP,528,1), XLBOBB_MASK, PPC, { BI } }, { "bcctr", XLLK(19,528,0), XLYBB_MASK, PPC, { BO, BI } }, { "bcctr-", XLYLK(19,528,0,0), XLYBB_MASK, PPC, { BOE, BI } }, { "bcctr+", XLYLK(19,528,1,0), XLYBB_MASK, PPC, { BOE, BI } }, { "bcctrl", XLLK(19,528,1), XLYBB_MASK, PPC, { BO, BI } }, { "bcctrl-", XLYLK(19,528,0,1), XLYBB_MASK, PPC, { BOE, BI } }, { "bcctrl+", XLYLK(19,528,1,1), XLYBB_MASK, PPC, { BOE, BI } }, { "bcc", XLLK(19,528,0), XLBB_MASK, POWER, { BO, BI } }, { "bccl", XLLK(19,528,1), XLBB_MASK, POWER, { BO, BI } }, { "rlwimi", M(20,0), M_MASK, PPC, { RA,RS,SH,MBE,ME } }, { "rlimi", M(20,0), M_MASK, POWER, { RA,RS,SH,MBE,ME } }, { "rlwimi.", M(20,1), M_MASK, PPC, { RA,RS,SH,MBE,ME } }, { "rlimi.", M(20,1), M_MASK, POWER, { RA,RS,SH,MBE,ME } }, { "rotlwi", MME(21,31,0), MMBME_MASK, PPC, { RA, RS, SH } }, { "clrlwi", MME(21,31,0), MSHME_MASK, PPC, { RA, RS, MB } }, { "rlwinm", M(21,0), M_MASK, PPC, { RA,RS,SH,MBE,ME } }, { "rlinm", M(21,0), M_MASK, POWER, { RA,RS,SH,MBE,ME } }, { "rotlwi.", MME(21,31,1), MMBME_MASK, PPC, { RA,RS,SH } }, { "clrlwi.", MME(21,31,1), MSHME_MASK, PPC, { RA, RS, MB } }, { "rlwinm.", M(21,1), M_MASK, PPC, { RA,RS,SH,MBE,ME } }, { "rlinm.", M(21,1), M_MASK, POWER, { RA,RS,SH,MBE,ME } }, { "rlmi", M(22,0), M_MASK, POWER|M601, { RA,RS,RB,MBE,ME } }, { "rlmi.", M(22,1), M_MASK, POWER|M601, { RA,RS,RB,MBE,ME } }, { "rotlw", MME(23,31,0), MMBME_MASK, PPC, { RA, RS, RB } }, { "rlwnm", M(23,0), M_MASK, PPC, { RA,RS,RB,MBE,ME } }, { "rlnm", M(23,0), M_MASK, POWER, { RA,RS,RB,MBE,ME } }, { "rotlw.", MME(23,31,1), MMBME_MASK, PPC, { RA, RS, RB } }, { "rlwnm.", M(23,1), M_MASK, PPC, { RA,RS,RB,MBE,ME } }, { "rlnm.", M(23,1), M_MASK, POWER, { RA,RS,RB,MBE,ME } }, { "nop", OP(24), 0xffffffff, PPC, { 0 } }, { "ori", OP(24), OP_MASK, PPC, { RA, RS, UI } }, { "oril", OP(24), OP_MASK, POWER, { RA, RS, UI } }, { "oris", OP(25), OP_MASK, PPC, { RA, RS, UI } }, { "oriu", OP(25), OP_MASK, POWER, { RA, RS, UI } }, { "xori", OP(26), OP_MASK, PPC, { RA, RS, UI } }, { "xoril", OP(26), OP_MASK, POWER, { RA, RS, UI } }, { "xoris", OP(27), OP_MASK, PPC, { RA, RS, UI } }, { "xoriu", OP(27), OP_MASK, POWER, { RA, RS, UI } }, { "andi.", OP(28), OP_MASK, PPC, { RA, RS, UI } }, { "andil.", OP(28), OP_MASK, POWER, { RA, RS, UI } }, { "andis.", OP(29), OP_MASK, PPC, { RA, RS, UI } }, { "andiu.", OP(29), OP_MASK, POWER, { RA, RS, UI } }, { "rotldi", MD(30,0,0), MDMB_MASK, PPC|B64, { RA, RS, SH6 } }, { "clrldi", MD(30,0,0), MDSH_MASK, PPC|B64, { RA, RS, MB6 } }, { "rldicl", MD(30,0,0), MD_MASK, PPC|B64, { RA, RS, SH6, MB6 } }, { "rotldi.", MD(30,0,1), MDMB_MASK, PPC|B64, { RA, RS, SH6 } }, { "clrldi.", MD(30,0,1), MDSH_MASK, PPC|B64, { RA, RS, MB6 } }, { "rldicl.", MD(30,0,1), MD_MASK, PPC|B64, { RA, RS, SH6, MB6 } }, { "rldicr", MD(30,1,0), MD_MASK, PPC|B64, { RA, RS, SH6, ME6 } }, { "rldicr.", MD(30,1,1), MD_MASK, PPC|B64, { RA, RS, SH6, ME6 } }, { "rldic", MD(30,2,0), MD_MASK, PPC|B64, { RA, RS, SH6, MB6 } }, { "rldic.", MD(30,2,1), MD_MASK, PPC|B64, { RA, RS, SH6, MB6 } }, { "rldimi", MD(30,3,0), MD_MASK, PPC|B64, { RA, RS, SH6, MB6 } }, { "rldimi.", MD(30,3,1), MD_MASK, PPC|B64, { RA, RS, SH6, MB6 } }, { "rotld", MDS(30,8,0), MDSMB_MASK, PPC|B64, { RA, RS, RB } }, { "rldcl", MDS(30,8,0), MDS_MASK, PPC|B64, { RA, RS, RB, MB6 } }, { "rotld.", MDS(30,8,1), MDSMB_MASK, PPC|B64, { RA, RS, RB } }, { "rldcl.", MDS(30,8,1), MDS_MASK, PPC|B64, { RA, RS, RB, MB6 } }, { "rldcr", MDS(30,9,0), MDS_MASK, PPC|B64, { RA, RS, RB, ME6 } }, { "rldcr.", MDS(30,9,1), MDS_MASK, PPC|B64, { RA, RS, RB, ME6 } }, { "cmpw", XCMPL(31,0,0), XCMPL_MASK, PPC, { OBF, RA, RB } }, { "cmpd", XCMPL(31,0,1), XCMPL_MASK, PPC|B64, { OBF, RA, RB } }, { "cmp", X(31,0), XCMP_MASK, PPC, { BF, L, RA, RB } }, { "cmp", X(31,0), XCMPL_MASK, POWER, { BF, RA, RB } }, { "twlgt", XTO(31,4,TOLGT), XTO_MASK, PPC, { RA, RB } }, { "tlgt", XTO(31,4,TOLGT), XTO_MASK, POWER, { RA, RB } }, { "twllt", XTO(31,4,TOLLT), XTO_MASK, PPC, { RA, RB } }, { "tllt", XTO(31,4,TOLLT), XTO_MASK, POWER, { RA, RB } }, { "tweq", XTO(31,4,TOEQ), XTO_MASK, PPC, { RA, RB } }, { "teq", XTO(31,4,TOEQ), XTO_MASK, POWER, { RA, RB } }, { "twlge", XTO(31,4,TOLGE), XTO_MASK, PPC, { RA, RB } }, { "tlge", XTO(31,4,TOLGE), XTO_MASK, POWER, { RA, RB } }, { "twlnl", XTO(31,4,TOLNL), XTO_MASK, PPC, { RA, RB } }, { "tlnl", XTO(31,4,TOLNL), XTO_MASK, POWER, { RA, RB } }, { "twlle", XTO(31,4,TOLLE), XTO_MASK, PPC, { RA, RB } }, { "tlle", XTO(31,4,TOLLE), XTO_MASK, POWER, { RA, RB } }, { "twlng", XTO(31,4,TOLNG), XTO_MASK, PPC, { RA, RB } }, { "tlng", XTO(31,4,TOLNG), XTO_MASK, POWER, { RA, RB } }, { "twgt", XTO(31,4,TOGT), XTO_MASK, PPC, { RA, RB } }, { "tgt", XTO(31,4,TOGT), XTO_MASK, POWER, { RA, RB } }, { "twge", XTO(31,4,TOGE), XTO_MASK, PPC, { RA, RB } }, { "tge", XTO(31,4,TOGE), XTO_MASK, POWER, { RA, RB } }, { "twnl", XTO(31,4,TONL), XTO_MASK, PPC, { RA, RB } }, { "tnl", XTO(31,4,TONL), XTO_MASK, POWER, { RA, RB } }, { "twlt", XTO(31,4,TOLT), XTO_MASK, PPC, { RA, RB } }, { "tlt", XTO(31,4,TOLT), XTO_MASK, POWER, { RA, RB } }, { "twle", XTO(31,4,TOLE), XTO_MASK, PPC, { RA, RB } }, { "tle", XTO(31,4,TOLE), XTO_MASK, POWER, { RA, RB } }, { "twng", XTO(31,4,TONG), XTO_MASK, PPC, { RA, RB } }, { "tng", XTO(31,4,TONG), XTO_MASK, POWER, { RA, RB } }, { "twne", XTO(31,4,TONE), XTO_MASK, PPC, { RA, RB } }, { "tne", XTO(31,4,TONE), XTO_MASK, POWER, { RA, RB } }, { "trap", XTO(31,4,TOU), 0xffffffff, PPC, { 0 } }, { "tw", X(31,4), X_MASK, PPC, { TO, RA, RB } }, { "t", X(31,4), X_MASK, POWER, { TO, RA, RB } }, { "subfc", XO(31,8,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "sf", XO(31,8,0,0), XO_MASK, POWER, { RT, RA, RB } }, { "subc", XO(31,8,0,0), XO_MASK, PPC, { RT, RB, RA } }, { "subfc.", XO(31,8,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "sf.", XO(31,8,0,1), XO_MASK, POWER, { RT, RA, RB } }, { "subc.", XO(31,8,0,1), XO_MASK, PPC, { RT, RB, RA } }, { "subfco", XO(31,8,1,0), XO_MASK, PPC, { RT, RA, RB } }, { "sfo", XO(31,8,1,0), XO_MASK, POWER, { RT, RA, RB } }, { "subco", XO(31,8,1,0), XO_MASK, PPC, { RT, RB, RA } }, { "subfco.", XO(31,8,1,1), XO_MASK, PPC, { RT, RA, RB } }, { "sfo.", XO(31,8,1,1), XO_MASK, POWER, { RT, RA, RB } }, { "subco.", XO(31,8,1,1), XO_MASK, PPC, { RT, RB, RA } }, { "mulhdu", XO(31,9,0,0), XO_MASK, PPC|B64, { RT, RA, RB } }, { "mulhdu.", XO(31,9,0,1), XO_MASK, PPC|B64, { RT, RA, RB } }, { "addc", XO(31,10,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "a", XO(31,10,0,0), XO_MASK, POWER, { RT, RA, RB } }, { "addc.", XO(31,10,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "a.", XO(31,10,0,1), XO_MASK, POWER, { RT, RA, RB } }, { "addco", XO(31,10,1,0), XO_MASK, PPC, { RT, RA, RB } }, { "ao", XO(31,10,1,0), XO_MASK, POWER, { RT, RA, RB } }, { "addco.", XO(31,10,1,1), XO_MASK, PPC, { RT, RA, RB } }, { "ao.", XO(31,10,1,1), XO_MASK, POWER, { RT, RA, RB } }, { "mulhwu", XO(31,11,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "mulhwu.", XO(31,11,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "mfcr", X(31,19), XRARB_MASK, POWER|PPC, { RT } }, { "lwarx", X(31,20), X_MASK, PPC, { RT, RA, RB } }, { "ldx", X(31,21), X_MASK, PPC|B64, { RT, RA, RB } }, { "lwzx", X(31,23), X_MASK, PPC, { RT, RA, RB } }, { "lx", X(31,23), X_MASK, POWER, { RT, RA, RB } }, { "slw", XRC(31,24,0), X_MASK, PPC, { RA, RS, RB } }, { "sl", XRC(31,24,0), X_MASK, POWER, { RA, RS, RB } }, { "slw.", XRC(31,24,1), X_MASK, PPC, { RA, RS, RB } }, { "sl.", XRC(31,24,1), X_MASK, POWER, { RA, RS, RB } }, { "cntlzw", XRC(31,26,0), XRB_MASK, PPC, { RA, RS } }, { "cntlz", XRC(31,26,0), XRB_MASK, POWER, { RA, RS } }, { "cntlzw.", XRC(31,26,1), XRB_MASK, PPC, { RA, RS } }, { "cntlz.", XRC(31,26,1), XRB_MASK, POWER, { RA, RS } }, { "sld", XRC(31,27,0), X_MASK, PPC|B64, { RA, RS, RB } }, { "sld.", XRC(31,27,1), X_MASK, PPC|B64, { RA, RS, RB } }, { "and", XRC(31,28,0), X_MASK, PPC|POWER, { RA, RS, RB } }, { "and.", XRC(31,28,1), X_MASK, PPC|POWER, { RA, RS, RB } }, { "maskg", XRC(31,29,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "maskg.", XRC(31,29,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "cmplw", XCMPL(31,32,0), XCMPL_MASK, PPC, { OBF, RA, RB } }, { "cmpld", XCMPL(31,32,1), XCMPL_MASK, PPC|B64, { OBF, RA, RB } }, { "cmpl", X(31,32), XCMP_MASK, PPC, { BF, L, RA, RB } }, { "cmpl", X(31,32), XCMPL_MASK, POWER, { BF, RA, RB } }, { "subf", XO(31,40,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "sub", XO(31,40,0,0), XO_MASK, PPC, { RT, RB, RA } }, { "subf.", XO(31,40,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "sub.", XO(31,40,0,1), XO_MASK, PPC, { RT, RB, RA } }, { "subfo", XO(31,40,1,0), XO_MASK, PPC, { RT, RA, RB } }, { "subo", XO(31,40,1,0), XO_MASK, PPC, { RT, RB, RA } }, { "subfo.", XO(31,40,1,1), XO_MASK, PPC, { RT, RA, RB } }, { "subo.", XO(31,40,1,1), XO_MASK, PPC, { RT, RB, RA } }, { "ldux", X(31,53), X_MASK, PPC|B64, { RT, RAL, RB } }, { "dcbst", X(31,54), XRT_MASK, PPC, { RA, RB } }, { "lwzux", X(31,55), X_MASK, PPC, { RT, RAL, RB } }, { "lux", X(31,55), X_MASK, POWER, { RT, RA, RB } }, { "cntlzd", XRC(31,58,0), XRB_MASK, PPC|B64, { RA, RS } }, { "cntlzd.", XRC(31,58,1), XRB_MASK, PPC|B64, { RA, RS } }, { "andc", XRC(31,60,0), X_MASK, PPC|POWER, { RA, RS, RB } }, { "andc.", XRC(31,60,1), X_MASK, PPC|POWER, { RA, RS, RB } }, { "tdlgt", XTO(31,68,TOLGT), XTO_MASK, PPC|B64, { RA, RB } }, { "tdllt", XTO(31,68,TOLLT), XTO_MASK, PPC|B64, { RA, RB } }, { "tdeq", XTO(31,68,TOEQ), XTO_MASK, PPC|B64, { RA, RB } }, { "tdlge", XTO(31,68,TOLGE), XTO_MASK, PPC|B64, { RA, RB } }, { "tdlnl", XTO(31,68,TOLNL), XTO_MASK, PPC|B64, { RA, RB } }, { "tdlle", XTO(31,68,TOLLE), XTO_MASK, PPC|B64, { RA, RB } }, { "tdlng", XTO(31,68,TOLNG), XTO_MASK, PPC|B64, { RA, RB } }, { "tdgt", XTO(31,68,TOGT), XTO_MASK, PPC|B64, { RA, RB } }, { "tdge", XTO(31,68,TOGE), XTO_MASK, PPC|B64, { RA, RB } }, { "tdnl", XTO(31,68,TONL), XTO_MASK, PPC|B64, { RA, RB } }, { "tdlt", XTO(31,68,TOLT), XTO_MASK, PPC|B64, { RA, RB } }, { "tdle", XTO(31,68,TOLE), XTO_MASK, PPC|B64, { RA, RB } }, { "tdng", XTO(31,68,TONG), XTO_MASK, PPC|B64, { RA, RB } }, { "tdne", XTO(31,68,TONE), XTO_MASK, PPC|B64, { RA, RB } }, { "td", X(31,68), X_MASK, PPC|B64, { TO, RA, RB } }, { "mulhd", XO(31,73,0,0), XO_MASK, PPC|B64, { RT, RA, RB } }, { "mulhd.", XO(31,73,0,1), XO_MASK, PPC|B64, { RT, RA, RB } }, { "mulhw", XO(31,75,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "mulhw.", XO(31,75,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "mfmsr", X(31,83), XRARB_MASK, PPC|POWER, { RT } }, { "ldarx", X(31,84), X_MASK, PPC|B64, { RT, RA, RB } }, { "dcbf", X(31,86), XRT_MASK, PPC, { RA, RB } }, { "lbzx", X(31,87), X_MASK, PPC|POWER, { RT, RA, RB } }, { "neg", XO(31,104,0,0), XORB_MASK, PPC|POWER, { RT, RA } }, { "neg.", XO(31,104,0,1), XORB_MASK, PPC|POWER, { RT, RA } }, { "nego", XO(31,104,1,0), XORB_MASK, PPC|POWER, { RT, RA } }, { "nego.", XO(31,104,1,1), XORB_MASK, PPC|POWER, { RT, RA } }, { "mul", XO(31,107,0,0), XO_MASK, POWER|M601, { RT, RA, RB } }, { "mul.", XO(31,107,0,1), XO_MASK, POWER|M601, { RT, RA, RB } }, { "mulo", XO(31,107,1,0), XO_MASK, POWER|M601, { RT, RA, RB } }, { "mulo.", XO(31,107,1,1), XO_MASK, POWER|M601, { RT, RA, RB } }, { "clf", X(31,118), XRB_MASK, POWER, { RT, RA } }, { "lbzux", X(31,119), X_MASK, PPC|POWER, { RT, RAL, RB } }, { "not", XRC(31,124,0), X_MASK, PPC|POWER, { RA, RS, RBS } }, { "nor", XRC(31,124,0), X_MASK, PPC|POWER, { RA, RS, RB } }, { "not.", XRC(31,124,1), X_MASK, PPC|POWER, { RA, RS, RBS } }, { "nor.", XRC(31,124,1), X_MASK, PPC|POWER, { RA, RS, RB } }, { "subfe", XO(31,136,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "sfe", XO(31,136,0,0), XO_MASK, POWER, { RT, RA, RB } }, { "subfe.", XO(31,136,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "sfe.", XO(31,136,0,1), XO_MASK, POWER, { RT, RA, RB } }, { "subfeo", XO(31,136,1,0), XO_MASK, PPC, { RT, RA, RB } }, { "sfeo", XO(31,136,1,0), XO_MASK, POWER, { RT, RA, RB } }, { "subfeo.", XO(31,136,1,1), XO_MASK, PPC, { RT, RA, RB } }, { "sfeo.", XO(31,136,1,1), XO_MASK, POWER, { RT, RA, RB } }, { "adde", XO(31,138,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "ae", XO(31,138,0,0), XO_MASK, POWER, { RT, RA, RB } }, { "adde.", XO(31,138,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "ae.", XO(31,138,0,1), XO_MASK, POWER, { RT, RA, RB } }, { "addeo", XO(31,138,1,0), XO_MASK, PPC, { RT, RA, RB } }, { "aeo", XO(31,138,1,0), XO_MASK, POWER, { RT, RA, RB } }, { "addeo.", XO(31,138,1,1), XO_MASK, PPC, { RT, RA, RB } }, { "aeo.", XO(31,138,1,1), XO_MASK, POWER, { RT, RA, RB } }, { "mtcrf", X(31,144), X_MASK|(1<<20)|(1<<11), PPC|POWER, { FXM, RS } }, { "mtmsr", X(31,146), XRARB_MASK, PPC|POWER, { RS } }, { "stdx", X(31,149), X_MASK, PPC|B64, { RS, RA, RB } }, { "stwcx.", XRC(31,150,1), X_MASK, PPC, { RS, RA, RB } }, { "stwx", X(31,151), X_MASK, PPC, { RS, RA, RB } }, { "stx", X(31,151), X_MASK, POWER, { RS, RA, RB } }, { "slq", XRC(31,152,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "slq.", XRC(31,152,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "sle", XRC(31,153,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "sle.", XRC(31,153,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "stdux", X(31,181), X_MASK, PPC|B64, { RS, RAS, RB } }, { "stwux", X(31,183), X_MASK, PPC, { RS, RAS, RB } }, { "stux", X(31,183), X_MASK, POWER, { RS, RA, RB } }, { "sliq", XRC(31,184,0), X_MASK, POWER|M601, { RA, RS, SH } }, { "sliq.", XRC(31,184,1), X_MASK, POWER|M601, { RA, RS, SH } }, { "subfze", XO(31,200,0,0), XORB_MASK, PPC, { RT, RA } }, { "sfze", XO(31,200,0,0), XORB_MASK, POWER, { RT, RA } }, { "subfze.", XO(31,200,0,1), XORB_MASK, PPC, { RT, RA } }, { "sfze.", XO(31,200,0,1), XORB_MASK, POWER, { RT, RA } }, { "subfzeo", XO(31,200,1,0), XORB_MASK, PPC, { RT, RA } }, { "sfzeo", XO(31,200,1,0), XORB_MASK, POWER, { RT, RA } }, { "subfzeo.",XO(31,200,1,1), XORB_MASK, PPC, { RT, RA } }, { "sfzeo.", XO(31,200,1,1), XORB_MASK, POWER, { RT, RA } }, { "addze", XO(31,202,0,0), XORB_MASK, PPC, { RT, RA } }, { "aze", XO(31,202,0,0), XORB_MASK, POWER, { RT, RA } }, { "addze.", XO(31,202,0,1), XORB_MASK, PPC, { RT, RA } }, { "aze.", XO(31,202,0,1), XORB_MASK, POWER, { RT, RA } }, { "addzeo", XO(31,202,1,0), XORB_MASK, PPC, { RT, RA } }, { "azeo", XO(31,202,1,0), XORB_MASK, POWER, { RT, RA } }, { "addzeo.", XO(31,202,1,1), XORB_MASK, PPC, { RT, RA } }, { "azeo.", XO(31,202,1,1), XORB_MASK, POWER, { RT, RA } }, { "mtsr", X(31,210), XRB_MASK|(1<<20), PPC|POWER|B32, { SR, RS } }, { "stdcx.", XRC(31,214,1), X_MASK, PPC|B64, { RS, RA, RB } }, { "stbx", X(31,215), X_MASK, PPC|POWER, { RS, RA, RB } }, { "sllq", XRC(31,216,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "sllq.", XRC(31,216,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "sleq", XRC(31,217,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "sleq.", XRC(31,217,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "subfme", XO(31,232,0,0), XORB_MASK, PPC, { RT, RA } }, { "sfme", XO(31,232,0,0), XORB_MASK, POWER, { RT, RA } }, { "subfme.", XO(31,232,0,1), XORB_MASK, PPC, { RT, RA } }, { "sfme.", XO(31,232,0,1), XORB_MASK, POWER, { RT, RA } }, { "subfmeo", XO(31,232,1,0), XORB_MASK, PPC, { RT, RA } }, { "sfmeo", XO(31,232,1,0), XORB_MASK, POWER, { RT, RA } }, { "subfmeo.",XO(31,232,1,1), XORB_MASK, PPC, { RT, RA } }, { "sfmeo.", XO(31,232,1,1), XORB_MASK, POWER, { RT, RA } }, { "mulld", XO(31,233,0,0), XO_MASK, PPC|B64, { RT, RA, RB } }, { "mulld.", XO(31,233,0,1), XO_MASK, PPC|B64, { RT, RA, RB } }, { "mulldo", XO(31,233,1,0), XO_MASK, PPC|B64, { RT, RA, RB } }, { "mulldo.", XO(31,233,1,1), XO_MASK, PPC|B64, { RT, RA, RB } }, { "addme", XO(31,234,0,0), XORB_MASK, PPC, { RT, RA } }, { "ame", XO(31,234,0,0), XORB_MASK, POWER, { RT, RA } }, { "addme.", XO(31,234,0,1), XORB_MASK, PPC, { RT, RA } }, { "ame.", XO(31,234,0,1), XORB_MASK, POWER, { RT, RA } }, { "addmeo", XO(31,234,1,0), XORB_MASK, PPC, { RT, RA } }, { "ameo", XO(31,234,1,0), XORB_MASK, POWER, { RT, RA } }, { "addmeo.", XO(31,234,1,1), XORB_MASK, PPC, { RT, RA } }, { "ameo.", XO(31,234,1,1), XORB_MASK, POWER, { RT, RA } }, { "mullw", XO(31,235,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "muls", XO(31,235,0,0), XO_MASK, POWER, { RT, RA, RB } }, { "mullw.", XO(31,235,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "muls.", XO(31,235,0,1), XO_MASK, POWER, { RT, RA, RB } }, { "mullwo", XO(31,235,1,0), XO_MASK, PPC, { RT, RA, RB } }, { "mulso", XO(31,235,1,0), XO_MASK, POWER, { RT, RA, RB } }, { "mullwo.", XO(31,235,1,1), XO_MASK, PPC, { RT, RA, RB } }, { "mulso.", XO(31,235,1,1), XO_MASK, POWER, { RT, RA, RB } }, { "mtsrin", X(31,242), XRA_MASK, PPC|B32, { RS, RB } }, { "mtsri", X(31,242), XRA_MASK, POWER|B32, { RS, RB } }, { "dcbtst", X(31,246), XRT_MASK, PPC, { RA, RB } }, { "stbux", X(31,247), X_MASK, PPC|POWER, { RS, RAS, RB } }, { "slliq", XRC(31,248,0), X_MASK, POWER|M601, { RA, RS, SH } }, { "slliq.", XRC(31,248,1), X_MASK, POWER|M601, { RA, RS, SH } }, { "doz", XO(31,264,0,0), XO_MASK, POWER|M601, { RT, RA, RB } }, { "doz.", XO(31,264,0,1), XO_MASK, POWER|M601, { RT, RA, RB } }, { "dozo", XO(31,264,1,0), XO_MASK, POWER|M601, { RT, RA, RB } }, { "dozo.", XO(31,264,1,1), XO_MASK, POWER|M601, { RT, RA, RB } }, { "add", XO(31,266,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "cax", XO(31,266,0,0), XO_MASK, POWER, { RT, RA, RB } }, { "add.", XO(31,266,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "cax.", XO(31,266,0,1), XO_MASK, POWER, { RT, RA, RB } }, { "addo", XO(31,266,1,0), XO_MASK, PPC, { RT, RA, RB } }, { "caxo", XO(31,266,1,0), XO_MASK, POWER, { RT, RA, RB } }, { "addo.", XO(31,266,1,1), XO_MASK, PPC, { RT, RA, RB } }, { "caxo.", XO(31,266,1,1), XO_MASK, POWER, { RT, RA, RB } }, { "lscbx", XRC(31,277,0), X_MASK, POWER|M601, { RT, RA, RB } }, { "lscbx.", XRC(31,277,1), X_MASK, POWER|M601, { RT, RA, RB } }, { "dcbt", X(31,278), XRT_MASK, PPC, { RA, RB } }, { "lhzx", X(31,279), X_MASK, PPC|POWER, { RT, RA, RB } }, { "eqv", XRC(31,284,0), X_MASK, PPC|POWER, { RA, RS, RB } }, { "eqv.", XRC(31,284,1), X_MASK, PPC|POWER, { RA, RS, RB } }, { "tlbie", X(31,306), XRTRA_MASK, PPC, { RB } }, { "tlbi", X(31,306), XRTRA_MASK, POWER, { RB } }, { "eciwx", X(31,310), X_MASK, PPC, { RT, RA, RB } }, { "lhzux", X(31,311), X_MASK, PPC|POWER, { RT, RAL, RB } }, { "xor", XRC(31,316,0), X_MASK, PPC|POWER, { RA, RS, RB } }, { "xor.", XRC(31,316,1), X_MASK, PPC|POWER, { RA, RS, RB } }, { "div", XO(31,331,0,0), XO_MASK, POWER|M601, { RT, RA, RB } }, { "div.", XO(31,331,0,1), XO_MASK, POWER|M601, { RT, RA, RB } }, { "divo", XO(31,331,1,0), XO_MASK, POWER|M601, { RT, RA, RB } }, { "divo.", XO(31,331,1,1), XO_MASK, POWER|M601, { RT, RA, RB } }, { "mfmq", XSPR(31,339,0), XSPR_MASK, POWER|M601, { RT } }, { "mfxer", XSPR(31,339,1), XSPR_MASK, PPC|POWER, { RT } }, { "mflr", XSPR(31,339,8), XSPR_MASK, PPC|POWER, { RT } }, { "mfctr", XSPR(31,339,9), XSPR_MASK, PPC|POWER, { RT } }, { "mfspr", X(31,339), X_MASK, PPC|POWER, { RT, SPR } }, { "lwax", X(31,341), X_MASK, PPC|B64, { RT, RA, RB } }, { "lhax", X(31,343), X_MASK, PPC|POWER, { RT, RA, RB } }, { "abs", XO(31,360,0,0), XORB_MASK, POWER|M601, { RT, RA } }, { "abs.", XO(31,360,0,1), XORB_MASK, POWER|M601, { RT, RA } }, { "abso", XO(31,360,1,0), XORB_MASK, POWER|M601, { RT, RA } }, { "abso.", XO(31,360,1,1), XORB_MASK, POWER|M601, { RT, RA } }, { "divs", XO(31,363,0,0), XO_MASK, POWER|M601, { RT, RA, RB } }, { "divs.", XO(31,363,0,1), XO_MASK, POWER|M601, { RT, RA, RB } }, { "divso", XO(31,363,1,0), XO_MASK, POWER|M601, { RT, RA, RB } }, { "divso.", XO(31,363,1,1), XO_MASK, POWER|M601, { RT, RA, RB } }, { "tlbia", X(31,370), 0xffffffff, PPC, { 0 } }, { "mftb", X(31,371), X_MASK, PPC, { RT, TBR } }, { "lwaux", X(31,373), X_MASK, PPC|B64, { RT, RAL, RB } }, { "lhaux", X(31,375), X_MASK, PPC|POWER, { RT, RAL, RB } }, { "sthx", X(31,407), X_MASK, PPC|POWER, { RS, RA, RB } }, { "lfqx", X(31,791), X_MASK, POWER2, { FRT, RA, RB } }, { "lfqux", X(31,823), X_MASK, POWER2, { FRT, RA, RB } }, { "stfqx", X(31,919), X_MASK, POWER2, { FRS, RA, RB } }, { "stfqux", X(31,951), X_MASK, POWER2, { FRS, RA, RB } }, { "orc", XRC(31,412,0), X_MASK, PPC|POWER, { RA, RS, RB } }, { "orc.", XRC(31,412,1), X_MASK, PPC|POWER, { RA, RS, RB } }, { "sradi", XS(31,413,0), XS_MASK, PPC|B64, { RA, RS, SH6 } }, { "sradi.", XS(31,413,1), XS_MASK, PPC|B64, { RA, RS, SH6 } }, { "slbie", X(31,434), XRTRA_MASK, PPC|B64, { RB } }, { "ecowx", X(31,438), X_MASK, PPC, { RT, RA, RB } }, { "sthux", X(31,439), X_MASK, PPC|POWER, { RS, RAS, RB } }, { "mr", XRC(31,444,0), X_MASK, PPC|POWER, { RA, RS, RBS } }, { "or", XRC(31,444,0), X_MASK, PPC|POWER, { RA, RS, RB } }, { "mr.", XRC(31,444,1), X_MASK, PPC|POWER, { RA, RS, RBS } }, { "or.", XRC(31,444,1), X_MASK, PPC|POWER, { RA, RS, RB } }, { "divdu", XO(31,457,0,0), XO_MASK, PPC|B64, { RT, RA, RB } }, { "divdu.", XO(31,457,0,1), XO_MASK, PPC|B64, { RT, RA, RB } }, { "divduo", XO(31,457,1,0), XO_MASK, PPC|B64, { RT, RA, RB } }, { "divduo.", XO(31,457,1,1), XO_MASK, PPC|B64, { RT, RA, RB } }, { "divwu", XO(31,459,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "divwu.", XO(31,459,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "divwuo", XO(31,459,1,0), XO_MASK, PPC, { RT, RA, RB } }, { "divwuo.", XO(31,459,1,1), XO_MASK, PPC, { RT, RA, RB } }, { "mtmq", XSPR(31,467,0), XSPR_MASK, POWER|M601, { RS } }, { "mtxer", XSPR(31,467,1), XSPR_MASK, PPC|POWER, { RS } }, { "mtlr", XSPR(31,467,8), XSPR_MASK, PPC|POWER, { RS } }, { "mtctr", XSPR(31,467,9), XSPR_MASK, PPC|POWER, { RS } }, { "mtspr", X(31,467), X_MASK, PPC|POWER, { SPR, RS } }, { "dcbi", X(31,470), XRT_MASK, PPC, { RA, RB } }, { "nand", XRC(31,476,0), X_MASK, PPC|POWER, { RA, RS, RB } }, { "nand.", XRC(31,476,1), X_MASK, PPC|POWER, { RA, RS, RB } }, { "nabs", XO(31,488,0,0), XORB_MASK, POWER|M601, { RT, RA } }, { "nabs.", XO(31,488,0,1), XORB_MASK, POWER|M601, { RT, RA } }, { "nabso", XO(31,488,1,0), XORB_MASK, POWER|M601, { RT, RA } }, { "nabso.", XO(31,488,1,1), XORB_MASK, POWER|M601, { RT, RA } }, { "divd", XO(31,489,0,0), XO_MASK, PPC|B64, { RT, RA, RB } }, { "divd.", XO(31,489,0,1), XO_MASK, PPC|B64, { RT, RA, RB } }, { "divdo", XO(31,489,1,0), XO_MASK, PPC|B64, { RT, RA, RB } }, { "divdo.", XO(31,489,1,1), XO_MASK, PPC|B64, { RT, RA, RB } }, { "divw", XO(31,491,0,0), XO_MASK, PPC, { RT, RA, RB } }, { "divw.", XO(31,491,0,1), XO_MASK, PPC, { RT, RA, RB } }, { "divwo", XO(31,491,1,0), XO_MASK, PPC, { RT, RA, RB } }, { "divwo.", XO(31,491,1,1), XO_MASK, PPC, { RT, RA, RB } }, { "slbia", X(31,498), 0xffffffff, PPC|B64, { 0 } }, { "cli", X(31,502), XRB_MASK, POWER, { RT, RA } }, { "mcrxr", X(31,512), XRARB_MASK|(3<<21), PPC|POWER, { BF } }, { "clcs", X(31,531), XRB_MASK, POWER|M601, { RT, RA } }, { "lswx", X(31,533), X_MASK, PPC, { RT, RA, RB } }, { "lsx", X(31,533), X_MASK, POWER, { RT, RA, RB } }, { "lwbrx", X(31,534), X_MASK, PPC, { RT, RA, RB } }, { "lbrx", X(31,534), X_MASK, POWER, { RT, RA, RB } }, { "lfsx", X(31,535), X_MASK, PPC|POWER, { FRT, RA, RB } }, { "srw", XRC(31,536,0), X_MASK, PPC, { RA, RS, RB } }, { "sr", XRC(31,536,0), X_MASK, POWER, { RA, RS, RB } }, { "srw.", XRC(31,536,1), X_MASK, PPC, { RA, RS, RB } }, { "sr.", XRC(31,536,1), X_MASK, POWER, { RA, RS, RB } }, { "rrib", XRC(31,537,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "rrib.", XRC(31,537,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "srd", XRC(31,539,0), X_MASK, PPC|B64, { RA, RS, RB } }, { "srd.", XRC(31,539,1), X_MASK, PPC|B64, { RA, RS, RB } }, { "maskir", XRC(31,541,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "maskir.", XRC(31,541,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "tlbsync", X(31,566), 0xffffffff, PPC, { 0 } }, { "lfsux", X(31,567), X_MASK, PPC|POWER, { FRT, RAS, RB } }, { "mfsr", X(31,595), XRB_MASK|(1<<20), PPC|POWER|B32, { RT, SR } }, { "lswi", X(31,597), X_MASK, PPC, { RT, RA, NB } }, { "lsi", X(31,597), X_MASK, POWER, { RT, RA, NB } }, { "sync", X(31,598), 0xffffffff, PPC, { 0 } }, { "dcs", X(31,598), 0xffffffff, POWER, { 0 } }, { "lfdx", X(31,599), X_MASK, PPC|POWER, { FRT, RA, RB } }, { "mfsri", X(31,627), X_MASK, POWER, { RT, RA, RB } }, { "dclst", X(31,630), XRB_MASK, POWER, { RS, RA } }, { "lfdux", X(31,631), X_MASK, PPC|POWER, { FRT, RAS, RB } }, { "mfsrin", X(31,659), XRA_MASK, PPC|B32, { RT, RB } }, { "stswx", X(31,661), X_MASK, PPC, { RS, RA, RB } }, { "stsx", X(31,661), X_MASK, POWER, { RS, RA, RB } }, { "stwbrx", X(31,662), X_MASK, PPC, { RS, RA, RB } }, { "stbrx", X(31,662), X_MASK, POWER, { RS, RA, RB } }, { "stfsx", X(31,663), X_MASK, PPC|POWER, { FRS, RA, RB } }, { "srq", XRC(31,664,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "srq.", XRC(31,664,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "sre", XRC(31,665,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "sre.", XRC(31,665,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "stfsux", X(31,695), X_MASK, PPC|POWER, { FRS, RAS, RB } }, { "sriq", XRC(31,696,0), X_MASK, POWER|M601, { RA, RS, SH } }, { "sriq.", XRC(31,696,1), X_MASK, POWER|M601, { RA, RS, SH } }, { "stswi", X(31,725), X_MASK, PPC, { RS, RA, NB } }, { "stsi", X(31,725), X_MASK, POWER, { RS, RA, NB } }, { "stfdx", X(31,727), X_MASK, PPC|POWER, { FRS, RA, RB } }, { "srlq", XRC(31,728,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "srlq.", XRC(31,728,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "sreq", XRC(31,729,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "sreq.", XRC(31,729,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "stfdux", X(31,759), X_MASK, PPC|POWER, { FRS, RAS, RB } }, { "srliq", XRC(31,760,0), X_MASK, POWER|M601, { RA, RS, SH } }, { "srliq.", XRC(31,760,1), X_MASK, POWER|M601, { RA, RS, SH } }, { "lhbrx", X(31,790), X_MASK, PPC|POWER, { RT, RA, RB } }, { "sraw", XRC(31,792,0), X_MASK, PPC, { RA, RS, RB } }, { "sra", XRC(31,792,0), X_MASK, POWER, { RA, RS, RB } }, { "sraw.", XRC(31,792,1), X_MASK, PPC, { RA, RS, RB } }, { "sra.", XRC(31,792,1), X_MASK, POWER, { RA, RS, RB } }, { "srad", XRC(31,794,0), X_MASK, PPC|B64, { RA, RS, RB } }, { "srad.", XRC(31,794,1), X_MASK, PPC|B64, { RA, RS, RB } }, { "rac", X(31,818), X_MASK, POWER, { RT, RA, RB } }, { "srawi", XRC(31,824,0), X_MASK, PPC, { RA, RS, SH } }, { "srai", XRC(31,824,0), X_MASK, POWER, { RA, RS, SH } }, { "srawi.", XRC(31,824,1), X_MASK, PPC, { RA, RS, SH } }, { "srai.", XRC(31,824,1), X_MASK, POWER, { RA, RS, SH } }, { "eieio", X(31,854), 0xffffffff, PPC, { 0 } }, { "sthbrx", X(31,918), X_MASK, PPC|POWER, { RS, RA, RB } }, { "sraq", XRC(31,920,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "sraq.", XRC(31,920,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "srea", XRC(31,921,0), X_MASK, POWER|M601, { RA, RS, RB } }, { "srea.", XRC(31,921,1), X_MASK, POWER|M601, { RA, RS, RB } }, { "extsh", XRC(31,922,0), XRB_MASK, PPC, { RA, RS } }, { "exts", XRC(31,922,0), XRB_MASK, POWER, { RA, RS } }, { "extsh.", XRC(31,922,1), XRB_MASK, PPC, { RA, RS } }, { "exts.", XRC(31,922,1), XRB_MASK, POWER, { RA, RS } }, { "sraiq", XRC(31,952,0), X_MASK, POWER|M601, { RA, RS, SH } }, { "sraiq.", XRC(31,952,1), X_MASK, POWER|M601, { RA, RS, SH } }, { "extsb", XRC(31,954,0), XRB_MASK, PPC, { RA, RS} }, { "extsb.", XRC(31,954,1), XRB_MASK, PPC, { RA, RS} }, { "icbi", X(31,982), XRT_MASK, PPC, { RA, RB } }, { "stfiwx", X(31,983), X_MASK, PPC, { FRS, RA, RB } }, { "extsw", XRC(31,986,0), XRB_MASK, PPC, { RA, RS } }, { "extsw.", XRC(31,986,1), XRB_MASK, PPC, { RA, RS } }, { "dcbz", X(31,1014), XRT_MASK, PPC, { RA, RB } }, { "dclz", X(31,1014), XRT_MASK, PPC, { RA, RB } }, { "lwz", OP(32), OP_MASK, PPC, { RT, D, RA } }, { "l", OP(32), OP_MASK, POWER, { RT, D, RA } }, { "lwzu", OP(33), OP_MASK, PPC, { RT, D, RAL } }, { "lu", OP(33), OP_MASK, POWER, { RT, D, RA } }, { "lbz", OP(34), OP_MASK, PPC|POWER, { RT, D, RA } }, { "lbzu", OP(35), OP_MASK, PPC|POWER, { RT, D, RAL } }, { "stw", OP(36), OP_MASK, PPC, { RS, D, RA } }, { "st", OP(36), OP_MASK, POWER, { RS, D, RA } }, { "stwu", OP(37), OP_MASK, PPC, { RS, D, RAS } }, { "stu", OP(37), OP_MASK, POWER, { RS, D, RA } }, { "stb", OP(38), OP_MASK, PPC|POWER, { RS, D, RA } }, { "stbu", OP(39), OP_MASK, PPC|POWER, { RS, D, RAS } }, { "lhz", OP(40), OP_MASK, PPC|POWER, { RT, D, RA } }, { "lhzu", OP(41), OP_MASK, PPC|POWER, { RT, D, RAL } }, { "lha", OP(42), OP_MASK, PPC|POWER, { RT, D, RA } }, { "lhau", OP(43), OP_MASK, PPC|POWER, { RT, D, RAL } }, { "sth", OP(44), OP_MASK, PPC|POWER, { RS, D, RA } }, { "sthu", OP(45), OP_MASK, PPC|POWER, { RS, D, RAS } }, { "lmw", OP(46), OP_MASK, PPC, { RT, D, RAM } }, { "lm", OP(46), OP_MASK, POWER, { RT, D, RA } }, { "stmw", OP(47), OP_MASK, PPC, { RS, D, RA } }, { "stm", OP(47), OP_MASK, POWER, { RS, D, RA } }, { "lfs", OP(48), OP_MASK, PPC|POWER, { FRT, D, RA } }, { "lfsu", OP(49), OP_MASK, PPC|POWER, { FRT, D, RAS } }, { "lfd", OP(50), OP_MASK, PPC|POWER, { FRT, D, RA } }, { "lfdu", OP(51), OP_MASK, PPC|POWER, { FRT, D, RAS } }, { "stfs", OP(52), OP_MASK, PPC|POWER, { FRS, D, RA } }, { "stfsu", OP(53), OP_MASK, PPC|POWER, { FRS, D, RAS } }, { "stfd", OP(54), OP_MASK, PPC|POWER, { FRS, D, RA } }, { "stfdu", OP(55), OP_MASK, PPC|POWER, { FRS, D, RAS } }, { "lfq", OP(56), OP_MASK, POWER2, { FRT, D, RA } }, { "lfqu", OP(57), OP_MASK, POWER2, { FRT, D, RA } }, { "ld", DSO(58,0), DS_MASK, PPC|B64, { RT, DS, RA } }, { "ldu", DSO(58,1), DS_MASK, PPC|B64, { RT, DS, RAL } }, { "lwa", DSO(58,2), DS_MASK, PPC|B64, { RT, DS, RA } }, { "fdivs", A(59,18,0), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fdivs.", A(59,18,1), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fsubs", A(59,20,0), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fsubs.", A(59,20,1), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fadds", A(59,21,0), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fadds.", A(59,21,1), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fsqrts", A(59,22,0), AFRAFRC_MASK, PPC, { FRT, FRB } }, { "fsqrts.", A(59,22,1), AFRAFRC_MASK, PPC, { FRT, FRB } }, { "fres", A(59,24,0), AFRAFRC_MASK, PPC, { FRT, FRB } }, { "fres.", A(59,24,1), AFRAFRC_MASK, PPC, { FRT, FRB } }, { "fmuls", A(59,25,0), AFRB_MASK, PPC, { FRT, FRA, FRC } }, { "fmuls.", A(59,25,1), AFRB_MASK, PPC, { FRT, FRA, FRC } }, { "fmsubs", A(59,28,0), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fmsubs.", A(59,28,1), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fmadds", A(59,29,0), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fmadds.", A(59,29,1), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fnmsubs", A(59,30,0), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fnmsubs.",A(59,30,1), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fnmadds", A(59,31,0), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fnmadds.",A(59,31,1), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "stfq", OP(60), OP_MASK, POWER2, { FRS, D, RA } }, { "stfqu", OP(61), OP_MASK, POWER2, { FRS, D, RA } }, { "std", DSO(62,0), DS_MASK, PPC|B64, { RS, DS, RA } }, { "stdu", DSO(62,1), DS_MASK, PPC|B64, { RS, DS, RAS } }, { "fcmpu", X(63,0), X_MASK|(3<<21), PPC|POWER, { BF, FRA, FRB } }, { "frsp", XRC(63,12,0), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "frsp.", XRC(63,12,1), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "fctiw", XRC(63,14,0), XRA_MASK, PPC, { FRT, FRB } }, { "fcir", XRC(63,14,0), XRA_MASK, POWER2, { FRT, FRB } }, { "fctiw.", XRC(63,14,1), XRA_MASK, PPC, { FRT, FRB } }, { "fcir.", XRC(63,14,1), XRA_MASK, POWER2, { FRT, FRB } }, { "fctiwz", XRC(63,15,0), XRA_MASK, PPC, { FRT, FRB } }, { "fcirz", XRC(63,15,0), XRA_MASK, POWER2, { FRT, FRB } }, { "fctiwz.", XRC(63,15,1), XRA_MASK, PPC, { FRT, FRB } }, { "fcirz.", XRC(63,15,1), XRA_MASK, POWER2, { FRT, FRB } }, { "fdiv", A(63,18,0), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fd", A(63,18,0), AFRC_MASK, POWER, { FRT, FRA, FRB } }, { "fdiv.", A(63,18,1), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fd.", A(63,18,1), AFRC_MASK, POWER, { FRT, FRA, FRB } }, { "fsub", A(63,20,0), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fs", A(63,20,0), AFRC_MASK, POWER, { FRT, FRA, FRB } }, { "fsub.", A(63,20,1), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fs.", A(63,20,1), AFRC_MASK, POWER, { FRT, FRA, FRB } }, { "fadd", A(63,21,0), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fa", A(63,21,0), AFRC_MASK, POWER, { FRT, FRA, FRB } }, { "fadd.", A(63,21,1), AFRC_MASK, PPC, { FRT, FRA, FRB } }, { "fa.", A(63,21,1), AFRC_MASK, POWER, { FRT, FRA, FRB } }, { "fsqrt", A(63,22,0), AFRAFRC_MASK, PPC|POWER2, { FRT, FRB } }, { "fsqrt.", A(63,22,1), AFRAFRC_MASK, PPC|POWER2, { FRT, FRB } }, { "fsel", A(63,23,0), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fsel.", A(63,23,1), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fmul", A(63,25,0), AFRB_MASK, PPC, { FRT, FRA, FRC } }, { "fm", A(63,25,0), AFRB_MASK, POWER, { FRT, FRA, FRC } }, { "fmul.", A(63,25,1), AFRB_MASK, PPC, { FRT, FRA, FRC } }, { "fm.", A(63,25,1), AFRB_MASK, POWER, { FRT, FRA, FRC } }, { "frsqrte", A(63,26,0), AFRAFRC_MASK, PPC, { FRT, FRB } }, { "frsqrte.",A(63,26,1), AFRAFRC_MASK, PPC, { FRT, FRB } }, { "fmsub", A(63,28,0), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fms", A(63,28,0), A_MASK, POWER, { FRT,FRA,FRC,FRB } }, { "fmsub.", A(63,28,1), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fms.", A(63,28,1), A_MASK, POWER, { FRT,FRA,FRC,FRB } }, { "fmadd", A(63,29,0), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fma", A(63,29,0), A_MASK, POWER, { FRT,FRA,FRC,FRB } }, { "fmadd.", A(63,29,1), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fma.", A(63,29,1), A_MASK, POWER, { FRT,FRA,FRC,FRB } }, { "fnmsub", A(63,30,0), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fnms", A(63,30,0), A_MASK, POWER, { FRT,FRA,FRC,FRB } }, { "fnmsub.", A(63,30,1), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fnms.", A(63,30,1), A_MASK, POWER, { FRT,FRA,FRC,FRB } }, { "fnmadd", A(63,31,0), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fnma", A(63,31,0), A_MASK, POWER, { FRT,FRA,FRC,FRB } }, { "fnmadd.", A(63,31,1), A_MASK, PPC, { FRT,FRA,FRC,FRB } }, { "fnma.", A(63,31,1), A_MASK, POWER, { FRT,FRA,FRC,FRB } }, { "fcmpo", X(63,30), X_MASK|(3<<21), PPC|POWER, { BF, FRA, FRB } }, { "mtfsb1", XRC(63,38,0), XRARB_MASK, PPC|POWER, { BT } }, { "mtfsb1.", XRC(63,38,1), XRARB_MASK, PPC|POWER, { BT } }, { "fneg", XRC(63,40,0), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "fneg.", XRC(63,40,1), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "mcrfs", X(63,64), XRB_MASK|(3<<21)|(3<<16), PPC|POWER, { BF, BFA } }, { "mtfsb0", XRC(63,70,0), XRARB_MASK, PPC|POWER, { BT } }, { "mtfsb0.", XRC(63,70,1), XRARB_MASK, PPC|POWER, { BT } }, { "fmr", XRC(63,72,0), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "fmr.", XRC(63,72,1), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "mtfsfi", XRC(63,134,0), XRA_MASK|(3<<21)|(1<<11), PPC|POWER, { BF, U } }, { "mtfsfi.", XRC(63,134,1), XRA_MASK|(3<<21)|(1<<11), PPC|POWER, { BF, U } }, { "fnabs", XRC(63,136,0), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "fnabs.", XRC(63,136,1), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "fabs", XRC(63,264,0), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "fabs.", XRC(63,264,1), XRA_MASK, PPC|POWER, { FRT, FRB } }, { "mffs", XRC(63,583,0), XRARB_MASK, PPC|POWER, { FRT } }, { "mffs.", XRC(63,583,1), XRARB_MASK, PPC|POWER, { FRT } }, { "mtfsf", XFL(63,711,0), XFL_MASK, PPC|POWER, { FLM, FRB } }, { "mtfsf.", XFL(63,711,1), XFL_MASK, PPC|POWER, { FLM, FRB } }, { "fctid", XRC(63,814,0), XRA_MASK, PPC|B64, { FRT, FRB } }, { "fctid.", XRC(63,814,1), XRA_MASK, PPC|B64, { FRT, FRB } }, { "fctidz", XRC(63,815,0), XRA_MASK, PPC|B64, { FRT, FRB } }, { "fctidz.", XRC(63,815,1), XRA_MASK, PPC|B64, { FRT, FRB } }, { "fcfid", XRC(63,846,0), XRA_MASK, PPC|B64, { FRT, FRB } }, { "fcfid.", XRC(63,846,1), XRA_MASK, PPC|B64, { FRT, FRB } }, }; const int powerpc_num_opcodes = sizeof (powerpc_opcodes) / sizeof (powerpc_opcodes[0]); /* The macro table. This is only used by the assembler. */ const struct powerpc_macro powerpc_macros[] = { { "extldi", 4, PPC|B64, "rldicr %0,%1,%3,(%2)-1" }, { "extldi.", 4, PPC|B64, "rldicr. %0,%1,%3,(%2)-1" }, { "extrdi", 4, PPC|B64, "rldicl %0,%1,(%2)+(%3),64-(%2)" }, { "extrdi.", 4, PPC|B64, "rldicl. %0,%1,(%2)+(%3),64-(%2)" }, { "insrdi", 4, PPC|B64, "rldimi %0,%1,64-((%2)+(%3)),%3" }, { "insrdi.", 4, PPC|B64, "rldimi. %0,%1,64-((%2)+(%3)),%3" }, { "rotrdi", 3, PPC|B64, "rldicl %0,%1,64-(%2),0" }, { "rotrdi.", 3, PPC|B64, "rldicl. %0,%1,64-(%2),0" }, { "sldi", 3, PPC|B64, "rldicr %0,%1,%2,63-(%2)" }, { "sldi.", 3, PPC|B64, "rldicr. %0,%1,%2,63-(%2)" }, { "srdi", 3, PPC|B64, "rldicl %0,%1,64-(%2),%2" }, { "srdi.", 3, PPC|B64, "rldicl. %0,%1,64-(%2),%2" }, { "clrrdi", 3, PPC|B64, "rldicr %0,%1,0,63-(%2)" }, { "clrrdi.", 3, PPC|B64, "rldicr. %0,%1,0,63-(%2)" }, { "clrlsldi",4, PPC|B64, "rldic %0,%1,%3,(%2)-(%3)" }, { "clrlsldi.",4, PPC|B64, "rldic. %0,%1,%3,(%2)-(%3)" }, { "extlwi", 4, PPC, "rlwinm %0,%1,%3,0,(%2)-1" }, { "extlwi.", 4, PPC, "rlwinm. %0,%1,%3,0,(%2)-1" }, { "extrwi", 4, PPC, "rlwinm %0,%1,(%2)+(%3),32-(%2),31" }, { "extrwi.", 4, PPC, "rlwinm. %0,%1,(%2)+(%3),32-(%2),31" }, { "inslwi", 4, PPC, "rlwimi %0,%1,32-(%3),%3,(%2)+(%3)-1" }, { "inslwi.", 4, PPC, "rlwimi. %0,%1,32-(%3),%3,(%2)+(%3)-1" }, { "insrwi", 4, PPC, "rlwimi %0,%1,32-((%2)+(%3)),%3,(%2)+(%3)-1" }, { "insrwi.", 4, PPC, "rlwimi. %0,%1,32-((%2)+(%3)),%3,(%2)+(%3)-1"}, { "rotrwi", 3, PPC, "rlwinm %0,%1,32-(%2),0,31" }, { "rotrwi.", 3, PPC, "rlwinm. %0,%1,32-(%2),0,31" }, { "slwi", 3, PPC, "rlwinm %0,%1,%2,0,31-(%2)" }, { "sli", 3, POWER, "rlinm %0,%1,%2,0,31-(%2)" }, { "slwi.", 3, PPC, "rlwinm. %0,%1,%2,0,31-(%2)" }, { "sli.", 3, POWER, "rlinm. %0,%1,%2,0,31-(%2)" }, { "srwi", 3, PPC, "rlwinm %0,%1,32-(%2),%2,31" }, { "sri", 3, POWER, "rlinm %0,%1,32-(%2),%2,31" }, { "srwi.", 3, PPC, "rlwinm. %0,%1,32-(%2),%2,31" }, { "sri.", 3, POWER, "rlinm. %0,%1,32-(%2),%2,31" }, { "clrrwi", 3, PPC, "rlwinm %0,%1,0,0,31-(%2)" }, { "clrrwi.", 3, PPC, "rlwinm. %0,%1,0,0,31-(%2)" }, { "clrlslwi",4, PPC, "rlwinm %0,%1,%3,(%2)-(%3),31-(%3)" }, { "clrlslwi.",4, PPC, "rlwinm. %0,%1,%3,(%2)-(%3),31-(%3)" }, }; const int powerpc_num_macros = sizeof (powerpc_macros) / sizeof (powerpc_macros[0]); gdb-4.13/opcodes/sh-dis.c 666 34562 1752 12301 5563030006 13536 0ustar fnfcygnus/* Disassemble h8500 instructions. Copyright (C) 1993 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #define STATIC_TABLE #define DEFINE_TABLE #include "sh-opc.h" #include "dis-asm.h" int print_insn_sh(memaddr, info) bfd_vma memaddr; struct disassemble_info *info; { fprintf_ftype fprintf = info->fprintf_func; void *stream = info->stream; unsigned char insn[2]; unsigned char nibs[4]; int status; int relmask = ~0; sh_opcode_info *op; int dslot = 0; status = info->read_memory_func(memaddr, insn, 2, info); if (status != 0) { info->memory_error_func(status, memaddr, info); return -1; } nibs[0] = (insn[0] >> 4) & 0xf; nibs[1] = insn[0] & 0xf; nibs[2] = (insn[1] >> 4) & 0xf; nibs[3] = insn[1] & 0xf; for (op = sh_table; op->name; op++) { int n; int imm; int rn; int rm; for (n = 0; n < 4; n++) { int i = op->nibbles[n]; if (i < 16) { if (nibs[n] == i) continue; goto fail; } switch (i) { case BRANCH_8: imm = (nibs[2] << 4) | (nibs[3]); if (imm & 0x80) imm |= ~0xff; imm = ((char)imm) * 2 + 4 ; goto ok; case BRANCH_12: imm = ((nibs[1]) << 8) | (nibs[2] << 4) | (nibs[3]); if (imm & 0x800) imm |= ~0xfff; imm = imm * 2 + 4; goto ok; case IMM_4: imm = nibs[3]; goto ok; case IMM_4BY2: imm = nibs[3] <<1; goto ok; case IMM_4BY4: imm = nibs[3] <<2; goto ok; case IMM_8: imm = (nibs[2] << 4) | nibs[3]; goto ok; case PCRELIMM_8BY2: imm = ((nibs[2] << 4) | nibs[3]) <<1; relmask = ~1; goto ok; case PCRELIMM_8BY4: imm = ((nibs[2] << 4) | nibs[3]) <<2; relmask = ~3; goto ok; case IMM_8BY2: imm = ((nibs[2] << 4) | nibs[3]) <<1; goto ok; case IMM_8BY4: imm = ((nibs[2] << 4) | nibs[3]) <<2; goto ok; case DISP_8: imm = (nibs[2] << 4) | (nibs[3]); goto ok; case DISP_4: imm = nibs[3]; goto ok; case REG_N: rn = nibs[n]; break; case REG_M: rm = nibs[n]; break; default: abort(); } } ok: fprintf(stream,"%s\t", op->name); for (n = 0; n < 2 && op->arg[n] != A_END; n++) { if (n && op->arg[1] != A_END) fprintf(stream,","); switch (op->arg[n]) { case A_IMM: fprintf(stream,"#%d", (char)(imm)); break; case A_R0: fprintf(stream,"r0"); break; case A_REG_N: fprintf(stream,"r%d", rn); break; case A_INC_N: fprintf(stream,"@r%d+", rn); break; case A_DEC_N: fprintf(stream,"@-r%d", rn); break; case A_IND_N: fprintf(stream,"@r%d", rn); break; case A_DISP_REG_N: fprintf(stream,"@(%d,r%d)",imm, rn); break; case A_REG_M: fprintf(stream,"r%d", rm); break; case A_INC_M: fprintf(stream,"@r%d+", rm); break; case A_DEC_M: fprintf(stream,"@-r%d", rm); break; case A_IND_M: fprintf(stream,"@r%d", rm); break; case A_DISP_REG_M: fprintf(stream,"@(%d,r%d)",imm, rm); break; case A_DISP_PC: fprintf(stream,"0x%0x", imm+ 4+(memaddr&relmask)); break; case A_IND_R0_REG_N: fprintf(stream,"@(r0,r%d)", rn); break; case A_IND_R0_REG_M: fprintf(stream,"@(r0,r%d)", rm); break; case A_DISP_GBR: fprintf(stream,"@(%d,gbr)",imm); break; case A_R0_GBR: fprintf(stream,"@(r0,gbr)"); break; case A_BDISP12: case A_BDISP8: fprintf(stream,"0x%x", imm + memaddr); break; case A_SR: fprintf(stream,"sr"); break; case A_GBR: fprintf(stream,"gbr"); break; case A_VBR: fprintf(stream,"vbr"); break; case A_MACH: fprintf(stream,"mach"); break; case A_MACL: fprintf(stream,"macl"); break; case A_PR: fprintf(stream,"pr"); break; default: abort(); } } if (!info->flags && op->name[0] == 'j' || (op->name[0] == 'b' && (op->name[1] == 'r' || op->name[1] == 's')) || (op->name[0] == 'r' && op->name[1] == 't') || (op->name[0] == 'b' && op->name[2] == '.')) { info->flags = 1; fprintf(stream,"\t(slot "); print_insn_sh(memaddr +2, info); info->flags = 0; fprintf(stream,")"); return 4; } return 2; fail: ; } fprintf(stream,".word 0x%02x%02x", insn[0], insn[1]); return 2; } gdb-4.13/opcodes/sh-opc.h 666 34562 1752 33721 5430041424 13555 0ustar fnfcygnustypedef enum { HEX_0, HEX_1, HEX_2, HEX_3, HEX_4, HEX_5, HEX_6, HEX_7, HEX_8, HEX_9, HEX_A, HEX_B, HEX_C, HEX_D, HEX_E, HEX_F, REG_N, REG_M, BRANCH_12, BRANCH_8, DISP_8, DISP_4, IMM_4, IMM_4BY2, IMM_4BY4, PCRELIMM_8BY2, PCRELIMM_8BY4, IMM_8, IMM_8BY2, IMM_8BY4, } sh_nibble_type; typedef enum { A_END, A_BDISP12, A_BDISP8, A_DEC_M, A_DEC_N, A_DISP_GBR, A_DISP_PC, A_DISP_REG_M, A_DISP_REG_N, A_GBR, A_IMM, A_INC_M, A_INC_N, A_IND_M, A_IND_N, A_IND_R0_REG_M, A_IND_R0_REG_N, A_MACH, A_MACL, A_PR, A_R0, A_R0_GBR, A_REG_M, A_REG_N, A_SR, A_VBR, } sh_arg_type; typedef struct { char *name; sh_arg_type arg[3]; sh_nibble_type nibbles[4]; } sh_opcode_info; #ifdef DEFINE_TABLE sh_opcode_info sh_table[]={ /* 0111nnnni8*1.... add #, */{"add",{A_IMM,A_REG_N},{HEX_7,REG_N,IMM_8}}, /* 0011nnnnmmmm1100 add , */{"add",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_C}}, /* 0011nnnnmmmm1110 addc ,*/{"addc",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_E}}, /* 0011nnnnmmmm1111 addv ,*/{"addv",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_F}}, /* 11001001i8*1.... and #,R0 */{"and",{A_IMM,A_R0},{HEX_C,HEX_9,IMM_8}}, /* 0010nnnnmmmm1001 and , */{"and",{ A_REG_M,A_REG_N},{HEX_2,REG_N,REG_M,HEX_9}}, /* 11001101i8*1.... and.b #,@(R0,GBR)*/{"and.b",{A_IMM,A_R0_GBR},{HEX_C,HEX_D,IMM_8}}, /* 1010i12......... bra */{"bra",{A_BDISP12},{HEX_A,BRANCH_12}}, /* 1011i12......... bsr */{"bsr",{A_BDISP12},{HEX_B,BRANCH_12}}, /* 10001001i8p1.... bt */{"bt",{A_BDISP8},{HEX_8,HEX_9,BRANCH_8}}, /* 10001011i8p1.... bf */{"bf",{A_BDISP8},{HEX_8,HEX_B,BRANCH_8}}, /* 10001101i8p1.... bt.s */{"bt.s",{A_BDISP8},{HEX_8,HEX_D,BRANCH_8}}, /* 10001111i8p1.... bf.s */{"bf.s",{A_BDISP8},{HEX_8,HEX_F,BRANCH_8}}, /* 0000000000101000 clrmac */{"clrmac",{0},{HEX_0,HEX_0,HEX_2,HEX_8}}, /* 0000000000001000 clrt */{"clrt",{0},{HEX_0,HEX_0,HEX_0,HEX_8}}, /* 10001000i8*1.... cmp/eq #,R0 */{"cmp/eq",{A_IMM,A_R0},{HEX_8,HEX_8,IMM_8}}, /* 0011nnnnmmmm0000 cmp/eq ,*/{"cmp/eq",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_0}}, /* 0011nnnnmmmm0011 cmp/ge ,*/{"cmp/ge",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_3}}, /* 0011nnnnmmmm0111 cmp/gt ,*/{"cmp/gt",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_7}}, /* 0011nnnnmmmm0110 cmp/hi ,*/{"cmp/hi",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_6}}, /* 0011nnnnmmmm0010 cmp/hs ,*/{"cmp/hs",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_2}}, /* 0100nnnn00010101 cmp/pl */{"cmp/pl",{A_REG_N},{HEX_4,REG_N,HEX_1,HEX_5}}, /* 0100nnnn00010001 cmp/pz */{"cmp/pz",{A_REG_N},{HEX_4,REG_N,HEX_1,HEX_1}}, /* 0010nnnnmmmm1100 cmp/str ,*/{"cmp/str",{ A_REG_M,A_REG_N},{HEX_2,REG_N,REG_M,HEX_C}}, /* 0010nnnnmmmm0111 div0s ,*/{"div0s",{ A_REG_M,A_REG_N},{HEX_2,REG_N,REG_M,HEX_7}}, /* 0000000000011001 div0u */{"div0u",{0},{HEX_0,HEX_0,HEX_1,HEX_9}}, /* 0011nnnnmmmm0100 div1 ,*/{"div1",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_4}}, /* 0110nnnnmmmm1110 exts.b ,*/{"exts.b",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_E}}, /* 0110nnnnmmmm1111 exts.w ,*/{"exts.w",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_F}}, /* 0110nnnnmmmm1100 extu.b ,*/{"extu.b",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_C}}, /* 0110nnnnmmmm1101 extu.w ,*/{"extu.w",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_D}}, /* 0100nnnn00101011 jmp @ */{"jmp",{A_IND_N},{HEX_4,REG_N,HEX_2,HEX_B}}, /* 0100nnnn00001011 jsr @ */{"jsr",{A_IND_N},{HEX_4,REG_N,HEX_0,HEX_B}}, /* 0100nnnn00011110 ldc ,GBR */{"ldc",{A_REG_N,A_GBR},{HEX_4,REG_N,HEX_1,HEX_E}}, /* 0100nnnn00001110 ldc ,SR */{"ldc",{A_REG_N,A_SR},{HEX_4,REG_N,HEX_0,HEX_E}}, /* 0100nnnn00101110 ldc ,VBR */{"ldc",{A_REG_N,A_VBR},{HEX_4,REG_N,HEX_2,HEX_E}}, /* 0100nnnn00010111 ldc.l @+,GBR */{"ldc.l",{A_INC_N,A_GBR},{HEX_4,REG_N,HEX_1,HEX_7}}, /* 0100nnnn00000111 ldc.l @+,SR */{"ldc.l",{A_INC_N,A_SR},{HEX_4,REG_N,HEX_0,HEX_7}}, /* 0100nnnn00100111 ldc.l @+,VBR */{"ldc.l",{A_INC_N,A_VBR},{HEX_4,REG_N,HEX_2,HEX_7}}, /* 0100nnnn00001010 lds ,MACH */{"lds",{A_REG_N,A_MACH},{HEX_4,REG_N,HEX_0,HEX_A}}, /* 0100nnnn00011010 lds ,MACL */{"lds",{A_REG_N,A_MACL},{HEX_4,REG_N,HEX_1,HEX_A}}, /* 0100nnnn00101010 lds ,PR */{"lds",{A_REG_N,A_PR},{HEX_4,REG_N,HEX_2,HEX_A}}, /* 0100nnnn00000110 lds.l @+,MACH*/{"lds.l",{A_INC_N,A_MACH},{HEX_4,REG_N,HEX_0,HEX_6}}, /* 0100nnnn00010110 lds.l @+,MACL*/{"lds.l",{A_INC_N,A_MACL},{HEX_4,REG_N,HEX_1,HEX_6}}, /* 0100nnnn00100110 lds.l @+,PR */{"lds.l",{A_INC_N,A_PR},{HEX_4,REG_N,HEX_2,HEX_6}}, /* 0100nnnnmmmm1111 mac.w @+,@+*/{"mac.w",{A_INC_M,A_INC_N},{HEX_4,REG_N,REG_M,HEX_F}}, /* 1110nnnni8*1.... mov #, */{"mov",{A_IMM,A_REG_N},{HEX_E,REG_N,IMM_8}}, /* 0110nnnnmmmm0011 mov , */{"mov",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_3}}, /* 0000nnnnmmmm0100 mov.b ,@(R0,)*/{"mov.b",{ A_REG_M,A_IND_R0_REG_N},{HEX_0,REG_N,REG_M,HEX_4}}, /* 0010nnnnmmmm0100 mov.b ,@-*/{"mov.b",{ A_REG_M,A_DEC_N},{HEX_2,REG_N,REG_M,HEX_4}}, /* 0010nnnnmmmm0000 mov.b ,@*/{"mov.b",{ A_REG_M,A_IND_N},{HEX_2,REG_N,REG_M,HEX_0}}, /* 10000100mmmmi4*1 mov.b @(,),R0*/{"mov.b",{A_DISP_REG_M,A_R0},{HEX_8,HEX_4,REG_M,IMM_4}}, /* 11000100i8*1.... mov.b @(,GBR),R0*/{"mov.b",{A_DISP_GBR,A_R0},{HEX_C,HEX_4,IMM_8}}, /* 0000nnnnmmmm1100 mov.b @(R0,),*/{"mov.b",{A_IND_R0_REG_M,A_REG_N},{HEX_0,REG_N,REG_M,HEX_C}}, /* 0110nnnnmmmm0100 mov.b @+,*/{"mov.b",{A_INC_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_4}}, /* 0110nnnnmmmm0000 mov.b @,*/{"mov.b",{A_IND_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_0}}, /* 10000000mmmmi4*1 mov.b R0,@(,)*/{"mov.b",{A_R0,A_DISP_REG_M},{HEX_8,HEX_0,REG_M,IMM_4}}, /* 11000000i8*1.... mov.b R0,@(,GBR)*/{"mov.b",{A_R0,A_DISP_GBR},{HEX_C,HEX_0,IMM_8}}, /* 0001nnnnmmmmi4*4 mov.l ,@(,)*/{"mov.l",{ A_REG_M,A_DISP_REG_N},{HEX_1,REG_N,REG_M,IMM_4BY4}}, /* 0000nnnnmmmm0110 mov.l ,@(R0,)*/{"mov.l",{ A_REG_M,A_IND_R0_REG_N},{HEX_0,REG_N,REG_M,HEX_6}}, /* 0010nnnnmmmm0110 mov.l ,@-*/{"mov.l",{ A_REG_M,A_DEC_N},{HEX_2,REG_N,REG_M,HEX_6}}, /* 0010nnnnmmmm0010 mov.l ,@*/{"mov.l",{ A_REG_M,A_IND_N},{HEX_2,REG_N,REG_M,HEX_2}}, /* 0101nnnnmmmmi4*4 mov.l @(,),*/{"mov.l",{A_DISP_REG_M,A_REG_N},{HEX_5,REG_N,REG_M,IMM_4BY4}}, /* 11000110i4*4 mov.l @(,GBR),R0*/{"mov.l",{A_DISP_GBR,A_R0},{HEX_C,HEX_6,IMM_4BY4}}, /* 1101nnnni8p4.... mov.l @(,PC),*/{"mov.l",{A_DISP_PC,A_REG_N},{HEX_D,REG_N,PCRELIMM_8BY4}}, /* 0000nnnnmmmm1110 mov.l @(R0,),*/{"mov.l",{A_IND_R0_REG_M,A_REG_N},{HEX_0,REG_N,REG_M,HEX_E}}, /* 0110nnnnmmmm0110 mov.l @+,*/{"mov.l",{A_INC_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_6}}, /* 0110nnnnmmmm0010 mov.l @,*/{"mov.l",{A_IND_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_2}}, /* 11000010i8*4.... mov.l R0,@(,GBR)*/{"mov.l",{A_R0,A_DISP_GBR},{HEX_C,HEX_2,IMM_8BY4}}, /* 0000nnnnmmmm0101 mov.w ,@(R0,)*/{"mov.w",{ A_REG_M,A_IND_R0_REG_N},{HEX_0,REG_N,REG_M,HEX_5}}, /* 0010nnnnmmmm0101 mov.w ,@-*/{"mov.w",{ A_REG_M,A_DEC_N},{HEX_2,REG_N,REG_M,HEX_5}}, /* 0010nnnnmmmm0001 mov.w ,@*/{"mov.w",{ A_REG_M,A_IND_N},{HEX_2,REG_N,REG_M,HEX_1}}, /* 10000101mmmmi4*2 mov.w @(,),R0*/{"mov.w",{A_DISP_REG_M,A_R0},{HEX_8,HEX_5,REG_M,IMM_4BY2}}, /* 11000101i8*2.... mov.w @(,GBR),R0*/{"mov.w",{A_DISP_GBR,A_R0},{HEX_C,HEX_5,IMM_8BY2}}, /* 1001nnnni8p2.... mov.w @(,PC),*/{"mov.w",{A_DISP_PC,A_REG_N},{HEX_9,REG_N,PCRELIMM_8BY2}}, /* 0000nnnnmmmm1101 mov.w @(R0,),*/{"mov.w",{A_IND_R0_REG_M,A_REG_N},{HEX_0,REG_N,REG_M,HEX_D}}, /* 0110nnnnmmmm0101 mov.w @+,*/{"mov.w",{A_INC_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_5}}, /* 0110nnnnmmmm0001 mov.w @,*/{"mov.w",{A_IND_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_1}}, /* 10000001mmmmi4*2 mov.w R0,@(,)*/{"mov.w",{A_R0,A_DISP_REG_M},{HEX_8,HEX_1,REG_M,IMM_4BY2}}, /* 11000001i8*2.... mov.w R0,@(,GBR)*/{"mov.w",{A_R0,A_DISP_GBR},{HEX_C,HEX_1,IMM_8BY2}}, /* 11000111i8p4.... mova @(,PC),R0*/{"mova",{A_DISP_PC,A_R0},{HEX_C,HEX_7,PCRELIMM_8BY4}}, /* 0000nnnn00101001 movt */{"movt",{A_REG_N},{HEX_0,REG_N,HEX_2,HEX_9}}, /* 0010nnnnmmmm1111 muls ,*/{"muls",{ A_REG_M,A_REG_N},{HEX_2,REG_N,REG_M,HEX_F}}, /* 0000nnnnmmmm0111 mul.l ,*/{"mul.l",{ A_REG_M,A_REG_N},{HEX_0,REG_N,REG_M,HEX_7}}, /* 0010nnnnmmmm1110 mulu ,*/{"mulu",{ A_REG_M,A_REG_N},{HEX_2,REG_N,REG_M,HEX_E}}, /* 0110nnnnmmmm1011 neg , */{"neg",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_B}}, /* 0110nnnnmmmm1010 negc ,*/{"negc",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_A}}, /* 0000000000001001 nop */{"nop",{0},{HEX_0,HEX_0,HEX_0,HEX_9}}, /* 0110nnnnmmmm0111 not , */{"not",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_7}}, /* 11001011i8*1.... or #,R0 */{"or",{A_IMM,A_R0},{HEX_C,HEX_B,IMM_8}}, /* 0010nnnnmmmm1011 or , */{"or",{ A_REG_M,A_REG_N},{HEX_2,REG_N,REG_M,HEX_B}}, /* 11001111i8*1.... or.b #,@(R0,GBR)*/{"or.b",{A_IMM,A_R0_GBR},{HEX_C,HEX_F,IMM_8}}, /* 0100nnnn00100100 rotcl */{"rotcl",{A_REG_N},{HEX_4,REG_N,HEX_2,HEX_4}}, /* 0100nnnn00100101 rotcr */{"rotcr",{A_REG_N},{HEX_4,REG_N,HEX_2,HEX_5}}, /* 0100nnnn00000100 rotl */{"rotl",{A_REG_N},{HEX_4,REG_N,HEX_0,HEX_4}}, /* 0100nnnn00000101 rotr */{"rotr",{A_REG_N},{HEX_4,REG_N,HEX_0,HEX_5}}, /* 0000000000101011 rte */{"rte",{0},{HEX_0,HEX_0,HEX_2,HEX_B}}, /* 0000000000001011 rts */{"rts",{0},{HEX_0,HEX_0,HEX_0,HEX_B}}, /* 0000000000011000 sett */{"sett",{0},{HEX_0,HEX_0,HEX_1,HEX_8}}, /* 0100nnnn00100000 shal */{"shal",{A_REG_N},{HEX_4,REG_N,HEX_2,HEX_0}}, /* 0100nnnn00100001 shar */{"shar",{A_REG_N},{HEX_4,REG_N,HEX_2,HEX_1}}, /* 0100nnnn00000000 shll */{"shll",{A_REG_N},{HEX_4,REG_N,HEX_0,HEX_0}}, /* 0100nnnn00101000 shll16 */{"shll16",{A_REG_N},{HEX_4,REG_N,HEX_2,HEX_8}}, /* 0100nnnn00001000 shll2 */{"shll2",{A_REG_N},{HEX_4,REG_N,HEX_0,HEX_8}}, /* 0100nnnn00011000 shll8 */{"shll8",{A_REG_N},{HEX_4,REG_N,HEX_1,HEX_8}}, /* 0100nnnn00000001 shlr */{"shlr",{A_REG_N},{HEX_4,REG_N,HEX_0,HEX_1}}, /* 0100nnnn00101001 shlr16 */{"shlr16",{A_REG_N},{HEX_4,REG_N,HEX_2,HEX_9}}, /* 0100nnnn00001001 shlr2 */{"shlr2",{A_REG_N},{HEX_4,REG_N,HEX_0,HEX_9}}, /* 0100nnnn00011001 shlr8 */{"shlr8",{A_REG_N},{HEX_4,REG_N,HEX_1,HEX_9}}, /* 0000000000011011 sleep */{"sleep",{0},{HEX_0,HEX_0,HEX_1,HEX_B}}, /* 0000nnnn00010010 stc GBR, */{"stc",{A_GBR,A_REG_N},{HEX_0,REG_N,HEX_1,HEX_2}}, /* 0000nnnn00000010 stc SR, */{"stc",{A_SR,A_REG_N},{HEX_0,REG_N,HEX_0,HEX_2}}, /* 0000nnnn00100010 stc VBR, */{"stc",{A_VBR,A_REG_N},{HEX_0,REG_N,HEX_2,HEX_2}}, /* 0100nnnn00010011 stc.l GBR,@- */{"stc.l",{A_GBR,A_DEC_N},{HEX_4,REG_N,HEX_1,HEX_3}}, /* 0100nnnn00000011 stc.l SR,@- */{"stc.l",{A_SR,A_DEC_N},{HEX_4,REG_N,HEX_0,HEX_3}}, /* 0100nnnn00100011 stc.l VBR,@- */{"stc.l",{A_VBR,A_DEC_N},{HEX_4,REG_N,HEX_2,HEX_3}}, /* 0000nnnn00001010 sts MACH, */{"sts",{A_MACH,A_REG_N},{HEX_0,REG_N,HEX_0,HEX_A}}, /* 0000nnnn00011010 sts MACL, */{"sts",{A_MACL,A_REG_N},{HEX_0,REG_N,HEX_1,HEX_A}}, /* 0000nnnn00101010 sts PR, */{"sts",{A_PR,A_REG_N},{HEX_0,REG_N,HEX_2,HEX_A}}, /* 0100nnnn00000010 sts.l MACH,@-*/{"sts.l",{A_MACH,A_DEC_N},{HEX_4,REG_N,HEX_0,HEX_2}}, /* 0100nnnn00010010 sts.l MACL,@-*/{"sts.l",{A_MACL,A_DEC_N},{HEX_4,REG_N,HEX_1,HEX_2}}, /* 0100nnnn00100010 sts.l PR,@- */{"sts.l",{A_PR,A_DEC_N},{HEX_4,REG_N,HEX_2,HEX_2}}, /* 0011nnnnmmmm1000 sub , */{"sub",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_8}}, /* 0011nnnnmmmm1010 subc ,*/{"subc",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_A}}, /* 0011nnnnmmmm1011 subv ,*/{"subv",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_B}}, /* 0110nnnnmmmm1000 swap.b ,*/{"swap.b",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_8}}, /* 0110nnnnmmmm1001 swap.w ,*/{"swap.w",{ A_REG_M,A_REG_N},{HEX_6,REG_N,REG_M,HEX_9}}, /* 0100nnnn00011011 tas.b @ */{"tas.b",{A_IND_N},{HEX_4,REG_N,HEX_1,HEX_B}}, /* 11000011i8*1.... trapa # */{"trapa",{A_IMM},{HEX_C,HEX_3,IMM_8}}, /* 11001000i8*1.... tst #,R0 */{"tst",{A_IMM,A_R0},{HEX_C,HEX_8,IMM_8}}, /* 0010nnnnmmmm1000 tst , */{"tst",{ A_REG_M,A_REG_N},{HEX_2,REG_N,REG_M,HEX_8}}, /* 11001100i8*1.... tst.b #,@(R0,GBR)*/{"tst.b",{A_IMM,A_R0_GBR},{HEX_C,HEX_C,IMM_8}}, /* 11001010i8*1.... xor #,R0 */{"xor",{A_IMM,A_R0},{HEX_C,HEX_A,IMM_8}}, /* 0010nnnnmmmm1010 xor , */{"xor",{ A_REG_M,A_REG_N},{HEX_2,REG_N,REG_M,HEX_A}}, /* 11001110i8*1.... xor.b #,@(R0,GBR)*/{"xor.b",{A_IMM,A_R0_GBR},{HEX_C,HEX_E,IMM_8}}, /* 0010nnnnmmmm1101 xtrct ,*/{"xtrct",{ A_REG_M,A_REG_N},{HEX_2,REG_N,REG_M,HEX_D}}, /* 0000nnnnmmmm0111 mul.l ,*/{"mul.l",{ A_REG_M,A_REG_N},{HEX_0,REG_N,REG_M,HEX_7}}, /* 0100nnnn00010000 dt */{"dt",{A_REG_N},{HEX_4,REG_N,HEX_1,HEX_0}}, /* 0011nnnnmmmm1101 dmuls.l ,*/{"dmuls.l",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_D}}, /* 0011nnnnmmmm0101 dmulu.l ,*/{"dmulu.l",{ A_REG_M,A_REG_N},{HEX_3,REG_N,REG_M,HEX_5}}, /* 0000nnnnmmmm1111 mac.l @+,@+*/{"mac.l",{A_INC_M,A_INC_N},{HEX_0,REG_N,REG_M,HEX_F}}, 0}; #endif gdb-4.13/opcodes/sparc-dis.c 666 34562 1752 42640 5513073214 14250 0ustar fnfcygnus/* Print SPARC instructions. Copyright 1989, 1991, 1992, 1993 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "ansidecl.h" #include "opcode/sparc.h" #include "dis-asm.h" #include /* Sign-extend a value which is N bits long. */ #define SEX(value, bits) \ ((((int)(value)) << ((8 * sizeof (int)) - bits)) \ >> ((8 * sizeof (int)) - bits) ) static char *reg_names[] = { "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7", "o0", "o1", "o2", "o3", "o4", "o5", "sp", "o7", "l0", "l1", "l2", "l3", "l4", "l5", "l6", "l7", "i0", "i1", "i2", "i3", "i4", "i5", "fp", "i7", "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15", "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23", "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31", #ifndef NO_V9 "f32", "f33", "f34", "f35", "f36", "f37", "f38", "f39", "f40", "f41", "f42", "f43", "f44", "f45", "f46", "f47", "f48", "f49", "f50", "f51", "f52", "f53", "f54", "f55", "f56", "f57", "f58", "f59", "f60", "f61", "f62", "f63", /* psr, wim, tbr, fpsr, cpsr are v8 only. */ #endif "y", "psr", "wim", "tbr", "pc", "npc", "fpsr", "cpsr" }; #define freg_names (®_names[4 * 8]) #ifndef NO_V9 /* These are ordered according to there register number in rdpr and wrpr insns. */ static char *v9_priv_reg_names[] = { "tpc", "tnpc", "tstate", "tt", "tick", "tba", "pstate", "tl", "pil", "cwp", "cansave", "canrestore", "cleanwin", "otherwin", "wstate", "fq" /* "ver" - special cased */ }; #endif /* FIXME--need to deal with byte order (probably using masking and shifting rather than bitfields is easiest). */ union sparc_insn { unsigned long int code; struct { unsigned int anop:2; #define op ldst.anop unsigned int anrd:5; #define rd ldst.anrd unsigned int op3:6; unsigned int anrs1:5; #define rs1 ldst.anrs1 unsigned int i:1; unsigned int anasi:8; #define asi ldst.anasi unsigned int anrs2:5; #define rs2 ldst.anrs2 #define shcnt rs2 } ldst; struct { unsigned int anop:2, anrd:5, op3:6, anrs1:5, i:1; unsigned int IMM13:13; #define imm13 IMM13.IMM13 } IMM13; struct { unsigned int anop:2; unsigned int a:1; unsigned int cond:4; unsigned int op2:3; unsigned int DISP22:22; #define disp22 branch.DISP22 #define imm22 disp22 } branch; #ifndef NO_V9 struct { unsigned int anop:2; unsigned int a:1; unsigned int z:1; unsigned int rcond:3; unsigned int op2:3; unsigned int DISP16HI:2; unsigned int p:1; unsigned int _rs1:5; unsigned int DISP16LO:14; #define disp16(x) (((x).branch16.DISP16HI << 14) | (x).branch16.DISP16LO) } branch16; #endif /* NO_V9 */ struct { unsigned int anop:2; unsigned int adisp30:30; #define disp30 call.adisp30 } call; }; /* Nonzero if INSN is the opcode for a delayed branch. */ static int is_delayed_branch (insn) union sparc_insn insn; { unsigned int i; for (i = 0; i < NUMOPCODES; ++i) { CONST struct sparc_opcode *opcode = &sparc_opcodes[i]; if ((opcode->match & insn.code) == opcode->match && (opcode->lose & insn.code) == 0) return (opcode->flags & F_DELAYED); } return 0; } static int opcodes_sorted = 0; /* extern void qsort (); */ static int compare_opcodes (); /* Print one instruction from MEMADDR on INFO->STREAM. We suffix the instruction with a comment that gives the absolute address involved, as well as its symbolic form, if the instruction is preceded by a findable `sethi' and it either adds an immediate displacement to that register, or it is an `add' or `or' instruction on that register. */ int print_insn_sparc (memaddr, info) bfd_vma memaddr; disassemble_info *info; { FILE *stream = info->stream; union sparc_insn insn; register unsigned int i; if (!opcodes_sorted) { qsort ((char *) sparc_opcodes, NUMOPCODES, sizeof (sparc_opcodes[0]), compare_opcodes); opcodes_sorted = 1; } { int status = (*info->read_memory_func) (memaddr, (bfd_byte *) &insn, sizeof (insn), info); if (status != 0) { (*info->memory_error_func) (status, memaddr, info); return -1; } } info->insn_info_valid = 1; /* We do return this info */ info->insn_type = dis_nonbranch; /* Assume non branch insn */ info->branch_delay_insns = 0; /* Assume no delay */ info->target = 0; /* Assume no target known */ for (i = 0; i < NUMOPCODES; ++i) { CONST struct sparc_opcode *opcode = &sparc_opcodes[i]; if ((opcode->match & insn.code) == opcode->match && (opcode->lose & insn.code) == 0) { /* Nonzero means that we have found an instruction which has the effect of adding or or'ing the imm13 field to rs1. */ int imm_added_to_rs1 = 0; /* Nonzero means that we have found a plus sign in the args field of the opcode table. */ int found_plus = 0; /* Nonzero means we have an annulled branch. */ int is_annulled = 0; /* Do we have an `add' or `or' instruction where rs1 is the same as rsd, and which has the i bit set? */ if ((opcode->match == 0x80102000 || opcode->match == 0x80002000) /* (or) (add) */ && insn.rs1 == insn.rd) imm_added_to_rs1 = 1; if (insn.rs1 != insn.rd && strchr (opcode->args, 'r') != 0) /* Can't do simple format if source and dest are different. */ continue; (*info->fprintf_func) (stream, opcode->name); { register CONST char *s; if (opcode->args[0] != ',') (*info->fprintf_func) (stream, " "); for (s = opcode->args; *s != '\0'; ++s) { while (*s == ',') { (*info->fprintf_func) (stream, ","); ++s; switch (*s) { case 'a': (*info->fprintf_func) (stream, "a"); is_annulled = 1; ++s; continue; #ifndef NO_V9 case 'N': (*info->fprintf_func) (stream, "pn"); ++s; continue; case 'T': (*info->fprintf_func) (stream, "pt"); ++s; continue; #endif /* NO_V9 */ default: break; } /* switch on arg */ } /* while there are comma started args */ (*info->fprintf_func) (stream, " "); switch (*s) { case '+': found_plus = 1; /* note fall-through */ default: (*info->fprintf_func) (stream, "%c", *s); break; case '#': (*info->fprintf_func) (stream, "0"); break; #define reg(n) (*info->fprintf_func) (stream, "%%%s", reg_names[n]) case '1': case 'r': reg (insn.rs1); break; case '2': reg (insn.rs2); break; case 'd': reg (insn.rd); break; #undef reg #define freg(n) (*info->fprintf_func) (stream, "%%%s", freg_names[n]) #define fregx(n) (*info->fprintf_func) (stream, "%%%s", freg_names[((n) & ~1) | (((n) & 1) << 5)]) case 'e': freg (insn.rs1); break; case 'v': /* double/even */ case 'V': /* quad/multiple of 4 */ fregx (insn.rs1); break; case 'f': freg (insn.rs2); break; case 'B': /* double/even */ case 'R': /* quad/multiple of 4 */ fregx (insn.rs2); break; case 'g': freg (insn.rd); break; case 'H': /* double/even */ case 'J': /* quad/multiple of 4 */ fregx (insn.rd); break; #undef freg #undef fregx #define creg(n) (*info->fprintf_func) (stream, "%%c%u", (unsigned int) (n)) case 'b': creg (insn.rs1); break; case 'c': creg (insn.rs2); break; case 'D': creg (insn.rd); break; #undef creg case 'h': (*info->fprintf_func) (stream, "%%hi(%#x)", 0xFFFFFFFF & (int) insn.imm22 << 10); break; case 'i': { /* We cannot trust the compiler to sign-extend when extracting the bitfield, hence the shifts. */ int imm = SEX (insn.imm13, 13); /* Check to see whether we have a 1+i, and take note of that fact. Note: because of the way we sort the table, we will be matching 1+i rather than i+1, so it is OK to assume that i is after +, not before it. */ if (found_plus) imm_added_to_rs1 = 1; if (imm <= 9) (*info->fprintf_func) (stream, "%d", imm); else (*info->fprintf_func) (stream, "%#x", imm); } break; #ifndef NO_V9 case 'I': /* 11 bit immediate. */ case 'j': /* 10 bit immediate. */ { /* We cannot trust the compiler to sign-extend when extracting the bitfield, hence the shifts. */ int imm; if (*s == 'I') imm = SEX (insn.imm13, 11); else imm = SEX (insn.imm13, 10); /* Check to see whether we have a 1+i, and take note of that fact. Note: because of the way we sort the table, we will be matching 1+i rather than i+1, so it is OK to assume that i is after +, not before it. */ if (found_plus) imm_added_to_rs1 = 1; if (imm <= 9) (info->fprintf_func) (stream, "%d", imm); else (info->fprintf_func) (stream, "%#x", (unsigned) imm); } break; case 'k': info->target = memaddr + (SEX (disp16 (insn), 16)) * 4; (*info->print_address_func) (info->target, info); break; case 'G': info->target = memaddr + (SEX (insn.disp22, 19)) * 4; (*info->print_address_func) (info->target, info); break; case '6': case '7': case '8': case '9': (*info->fprintf_func) (stream, "%%fcc%c", *s - '6' + '0'); break; case 'z': (*info->fprintf_func) (stream, "%%icc"); break; case 'Z': (*info->fprintf_func) (stream, "%%xcc"); break; case 'E': (*info->fprintf_func) (stream, "%%ccr"); break; case 's': (*info->fprintf_func) (stream, "%%fprs"); break; case 'o': (*info->fprintf_func) (stream, "%%asi"); break; case 'W': (*info->fprintf_func) (stream, "%%tick"); break; case 'P': (*info->fprintf_func) (stream, "%%pc"); break; case '?': if (insn.rs1 == 31) (*info->fprintf_func) (stream, "%%ver"); else if ((unsigned) insn.rs1 < 16) (*info->fprintf_func) (stream, "%%%s", v9_priv_reg_names[insn.rs1]); else (*info->fprintf_func) (stream, "%%reserved"); break; case '!': if ((unsigned) insn.rd < 15) (*info->fprintf_func) (stream, "%%%s", v9_priv_reg_names[insn.rd]); else (*info->fprintf_func) (stream, "%%reserved"); break; break; #endif /* NO_V9 */ case 'M': (*info->fprintf_func) (stream, "%%asr%d", insn.rs1); break; case 'm': (*info->fprintf_func) (stream, "%%asr%d", insn.rd); break; case 'L': info->target = memaddr + insn.disp30 * 4; (*info->print_address_func) (info->target, info); break; case 'n': (*info->fprintf_func) (stream, "%#x", (SEX (insn.disp22, 22))); break; case 'l': info->target = memaddr + (SEX (insn.disp22, 22)) * 4; (*info->print_address_func) (info->target, info); break; case 'A': (*info->fprintf_func) (stream, "(%d)", (int) insn.asi); break; case 'C': (*info->fprintf_func) (stream, "%%csr"); break; case 'F': (*info->fprintf_func) (stream, "%%fsr"); break; case 'p': (*info->fprintf_func) (stream, "%%psr"); break; case 'q': (*info->fprintf_func) (stream, "%%fq"); break; case 'Q': (*info->fprintf_func) (stream, "%%cq"); break; case 't': (*info->fprintf_func) (stream, "%%tbr"); break; case 'w': (*info->fprintf_func) (stream, "%%wim"); break; case 'y': (*info->fprintf_func) (stream, "%%y"); break; } } } /* If we are adding or or'ing something to rs1, then check to see whether the previous instruction was a sethi to the same register as in the sethi. If so, attempt to print the result of the add or or (in this context add and or do the same thing) and its symbolic value. */ if (imm_added_to_rs1) { union sparc_insn prev_insn; int errcode; errcode = (*info->read_memory_func) (memaddr - 4, (bfd_byte *)&prev_insn, sizeof (prev_insn), info); if (errcode == 0) { /* If it is a delayed branch, we need to look at the instruction before the delayed branch. This handles sequences such as sethi %o1, %hi(_foo), %o1 call _printf or %o1, %lo(_foo), %o1 */ if (is_delayed_branch (prev_insn)) errcode = (*info->read_memory_func) (memaddr - 8, (bfd_byte *)&prev_insn, sizeof (prev_insn), info); } /* If there was a problem reading memory, then assume the previous instruction was not sethi. */ if (errcode == 0) { /* Is it sethi to the same register? */ if ((prev_insn.code & 0xc1c00000) == 0x01000000 && prev_insn.rd == insn.rs1) { (*info->fprintf_func) (stream, "\t! "); info->target = (0xFFFFFFFF & (int) prev_insn.imm22 << 10) | SEX (insn.imm13, 13); (*info->print_address_func) (info->target, info); info->insn_type = dis_dref; info->data_size = 4; /* FIXME!!! */ } } } if (opcode->flags & (F_UNBR|F_CONDBR|F_JSR)) { /* FIXME -- check is_annulled flag */ if (opcode->flags & F_UNBR) info->insn_type = dis_branch; if (opcode->flags & F_CONDBR) info->insn_type = dis_condbranch; if (opcode->flags & F_JSR) info->insn_type = dis_jsr; if (opcode->flags & F_DELAYED) info->branch_delay_insns = 1; } return sizeof (insn); } } info->insn_type = dis_noninsn; /* Mark as non-valid instruction */ (*info->fprintf_func) (stream, "%#8x", insn.code); return sizeof (insn); } /* Compare opcodes A and B. */ static int compare_opcodes (a, b) char *a, *b; { struct sparc_opcode *op0 = (struct sparc_opcode *) a; struct sparc_opcode *op1 = (struct sparc_opcode *) b; unsigned long int match0 = op0->match, match1 = op1->match; unsigned long int lose0 = op0->lose, lose1 = op1->lose; register unsigned int i; /* If a bit is set in both match and lose, there is something wrong with the opcode table. */ if (match0 & lose0) { fprintf (stderr, "Internal error: bad sparc-opcode.h: \"%s\", %#.8lx, %#.8lx\n", op0->name, match0, lose0); op0->lose &= ~op0->match; lose0 = op0->lose; } if (match1 & lose1) { fprintf (stderr, "Internal error: bad sparc-opcode.h: \"%s\", %#.8lx, %#.8lx\n", op1->name, match1, lose1); op1->lose &= ~op1->match; lose1 = op1->lose; } /* Because the bits that are variable in one opcode are constant in another, it is important to order the opcodes in the right order. */ for (i = 0; i < 32; ++i) { unsigned long int x = 1 << i; int x0 = (match0 & x) != 0; int x1 = (match1 & x) != 0; if (x0 != x1) return x1 - x0; } for (i = 0; i < 32; ++i) { unsigned long int x = 1 << i; int x0 = (lose0 & x) != 0; int x1 = (lose1 & x) != 0; if (x0 != x1) return x1 - x0; } /* They are functionally equal. So as long as the opcode table is valid, we can put whichever one first we want, on aesthetic grounds. */ /* Our first aesthetic ground is that aliases defer to real insns. */ { int alias_diff = (op0->flags & F_ALIAS) - (op1->flags & F_ALIAS); if (alias_diff != 0) /* Put the one that isn't an alias first. */ return alias_diff; } /* Except for aliases, two "identical" instructions had better have the same opcode. This is a sanity check on the table. */ i = strcmp (op0->name, op1->name); if (i) if (op0->flags & F_ALIAS) /* If they're both aliases, be arbitrary. */ return i; else fprintf (stderr, "Internal error: bad sparc-opcode.h: \"%s\" == \"%s\"\n", op0->name, op1->name); /* Fewer arguments are preferred. */ { int length_diff = strlen (op0->args) - strlen (op1->args); if (length_diff != 0) /* Put the one with fewer arguments first. */ return length_diff; } /* Put 1+i before i+1. */ { char *p0 = (char *) strchr(op0->args, '+'); char *p1 = (char *) strchr(op1->args, '+'); if (p0 && p1) { /* There is a plus in both operands. Note that a plus sign cannot be the first character in args, so the following [-1]'s are valid. */ if (p0[-1] == 'i' && p1[1] == 'i') /* op0 is i+1 and op1 is 1+i, so op1 goes first. */ return 1; if (p0[1] == 'i' && p1[-1] == 'i') /* op0 is 1+i and op1 is i+1, so op0 goes first. */ return -1; } } /* They are, as far as we can tell, identical. Since qsort may have rearranged the table partially, there is no way to tell which one was first in the opcode table as written, so just say there are equal. */ return 0; } gdb-4.13/opcodes/sparc-opc.c 666 34562 1752 253621 5577717242 14315 0ustar fnfcygnus/* Table of opcodes for the sparc. Copyright 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of the BFD library. BFD 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 2, or (at your option) any later version. BFD 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 software; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* FIXME-someday: perhaps the ,a's and such should be embedded in the instruction's name rather than the args. This would make gas faster, pinsn slower, but would mess up some macros a bit. xoxorich. */ /* v9 FIXME: Doesn't accept `iprefetch', `setX', `signx', `cleartop', `cas', `casx', `clrx', `clruw' synthetic instructions for v9. */ #include #include "ansidecl.h" #include "opcode/sparc.h" const char *architecture_pname[] = { "v6", "v7", "v8", "sparclite", "v9", NULL, }; /* v9: This file is correct for SPARC Version 9 Draft 1.2.4. */ /* Branch condition field. */ #define COND(x) (((x)&0xf)<<25) /* v9: Move (MOVcc and FMOVcc) condition field. */ #define MCOND(x,i_or_f) ((((i_or_f)&1)<<18)|(((x)>>11)&(0xf<<14))) /* v9 */ /* v9: Move register (MOVRcc and FMOVRcc) condition field. */ #define RCOND(x) (((x)&0x7)<<10) /* v9 */ #define CONDA (COND(0x8)) #define CONDCC (COND(0xd)) #define CONDCS (COND(0x5)) #define CONDE (COND(0x1)) #define CONDG (COND(0xa)) #define CONDGE (COND(0xb)) #define CONDGU (COND(0xc)) #define CONDL (COND(0x3)) #define CONDLE (COND(0x2)) #define CONDLEU (COND(0x4)) #define CONDN (COND(0x0)) #define CONDNE (COND(0x9)) #define CONDNEG (COND(0x6)) #define CONDPOS (COND(0xe)) #define CONDVC (COND(0xf)) #define CONDVS (COND(0x7)) #define CONDNZ CONDNE #define CONDZ CONDE #define CONDGEU CONDCC #define CONDLU CONDCS #define FCONDA (COND(0x8)) #define FCONDE (COND(0x9)) #define FCONDG (COND(0x6)) #define FCONDGE (COND(0xb)) #define FCONDL (COND(0x4)) #define FCONDLE (COND(0xd)) #define FCONDLG (COND(0x2)) #define FCONDN (COND(0x0)) #define FCONDNE (COND(0x1)) #define FCONDO (COND(0xf)) #define FCONDU (COND(0x7)) #define FCONDUE (COND(0xa)) #define FCONDUG (COND(0x5)) #define FCONDUGE (COND(0xc)) #define FCONDUL (COND(0x3)) #define FCONDULE (COND(0xe)) #define FCONDNZ FCONDNE #define FCONDZ FCONDE #define ICC (0) /* v9 */ #define XCC (1<<12) /* v9 */ #define FCC(x) (((x)&0x3)<<11) /* v9 */ #define FBFCC(x) (((x)&0x3)<<20) /* v9 */ /* The order of the opcodes in the table is significant: * The assembler requires that all instances of the same mnemonic must be consecutive. If they aren't, the assembler will bomb at runtime. * The disassembler should not care about the order of the opcodes. */ struct sparc_opcode sparc_opcodes[] = { { "ld", F3(3, 0x00, 0), F3(~3, ~0x00, ~0), "[1+2],d", 0, v6 }, { "ld", F3(3, 0x00, 0), F3(~3, ~0x00, ~0)|RS2_G0, "[1],d", 0, v6 }, /* ld [rs1+%g0],d */ { "ld", F3(3, 0x00, 1), F3(~3, ~0x00, ~1), "[1+i],d", 0, v6 }, { "ld", F3(3, 0x00, 1), F3(~3, ~0x00, ~1), "[i+1],d", 0, v6 }, { "ld", F3(3, 0x00, 1), F3(~3, ~0x00, ~1)|RS1_G0, "[i],d", 0, v6 }, { "ld", F3(3, 0x00, 1), F3(~3, ~0x00, ~1)|SIMM13(~0), "[1],d", 0, v6 }, /* ld [rs1+0],d */ { "ld", F3(3, 0x20, 0), F3(~3, ~0x20, ~0), "[1+2],g", 0, v6 }, { "ld", F3(3, 0x20, 0), F3(~3, ~0x20, ~0)|RS2_G0, "[1],g", 0, v6 }, /* ld [rs1+%g0],d */ { "ld", F3(3, 0x20, 1), F3(~3, ~0x20, ~1), "[1+i],g", 0, v6 }, { "ld", F3(3, 0x20, 1), F3(~3, ~0x20, ~1), "[i+1],g", 0, v6 }, { "ld", F3(3, 0x20, 1), F3(~3, ~0x20, ~1)|RS1_G0, "[i],g", 0, v6 }, { "ld", F3(3, 0x20, 1), F3(~3, ~0x20, ~1)|SIMM13(~0), "[1],g", 0, v6 }, /* ld [rs1+0],d */ { "ld", F3(3, 0x21, 0), F3(~3, ~0x21, ~0)|RD(~0), "[1+2],F", 0, v6 }, { "ld", F3(3, 0x21, 0), F3(~3, ~0x21, ~0)|RS2_G0|RD(~0),"[1],F", 0, v6 }, /* ld [rs1+%g0],d */ { "ld", F3(3, 0x21, 1), F3(~3, ~0x21, ~1)|RD(~0), "[1+i],F", 0, v6 }, { "ld", F3(3, 0x21, 1), F3(~3, ~0x21, ~1)|RD(~0), "[i+1],F", 0, v6 }, { "ld", F3(3, 0x21, 1), F3(~3, ~0x21, ~1)|RS1_G0|RD(~0),"[i],F", 0, v6 }, { "ld", F3(3, 0x21, 1), F3(~3, ~0x21, ~1)|SIMM13(~0)|RD(~0),"[1],F", 0, v6 }, /* ld [rs1+0],d */ /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "ld", F3(3, 0x30, 0), F3(~3, ~0x30, ~0), "[1+2],D", F_ALIAS, v6 }, { "ld", F3(3, 0x30, 0), F3(~3, ~0x30, ~0)|RS2_G0, "[1],D", F_ALIAS, v6 }, /* ld [rs1+%g0],d */ { "ld", F3(3, 0x30, 1), F3(~3, ~0x30, ~1), "[1+i],D", F_ALIAS, v6 }, { "ld", F3(3, 0x30, 1), F3(~3, ~0x30, ~1), "[i+1],D", F_ALIAS, v6 }, { "ld", F3(3, 0x30, 1), F3(~3, ~0x30, ~1)|RS1_G0, "[i],D", F_ALIAS, v6 }, { "ld", F3(3, 0x30, 1), F3(~3, ~0x30, ~1)|SIMM13(~0), "[1],D", F_ALIAS, v6 }, /* ld [rs1+0],d */ { "ld", F3(3, 0x31, 0), F3(~3, ~0x31, ~0), "[1+2],C", 0, v6 }, { "ld", F3(3, 0x31, 0), F3(~3, ~0x31, ~0)|RS2_G0, "[1],C", 0, v6 }, /* ld [rs1+%g0],d */ { "ld", F3(3, 0x31, 1), F3(~3, ~0x31, ~1), "[1+i],C", 0, v6 }, { "ld", F3(3, 0x31, 1), F3(~3, ~0x31, ~1), "[i+1],C", 0, v6 }, { "ld", F3(3, 0x31, 1), F3(~3, ~0x31, ~1)|RS1_G0, "[i],C", 0, v6 }, { "ld", F3(3, 0x31, 1), F3(~3, ~0x31, ~1)|SIMM13(~0), "[1],C", 0, v6 }, /* ld [rs1+0],d */ /* The v9 LDUW is the same as the old 'ld' opcode, it is not the same as the 'ld' pseudo-op in v9. */ { "lduw", F3(3, 0x00, 0), F3(~3, ~0x00, ~0), "[1+2],d", F_ALIAS, v9 }, { "lduw", F3(3, 0x00, 0), F3(~3, ~0x00, ~0)|RS2_G0, "[1],d", F_ALIAS, v9 }, /* ld [rs1+%g0],d */ { "lduw", F3(3, 0x00, 1), F3(~3, ~0x00, ~1), "[1+i],d", F_ALIAS, v9 }, { "lduw", F3(3, 0x00, 1), F3(~3, ~0x00, ~1), "[i+1],d", F_ALIAS, v9 }, { "lduw", F3(3, 0x00, 1), F3(~3, ~0x00, ~1)|RS1_G0, "[i],d", F_ALIAS, v9 }, { "lduw", F3(3, 0x00, 1), F3(~3, ~0x00, ~1)|SIMM13(~0), "[1],d", F_ALIAS, v9 }, /* ld [rs1+0],d */ { "ldd", F3(3, 0x03, 0), F3(~3, ~0x03, ~0)|ASI(~0), "[1+2],d", 0, v6 }, { "ldd", F3(3, 0x03, 0), F3(~3, ~0x03, ~0)|ASI_RS2(~0), "[1],d", 0, v6 }, /* ldd [rs1+%g0],d */ { "ldd", F3(3, 0x03, 1), F3(~3, ~0x03, ~1), "[1+i],d", 0, v6 }, { "ldd", F3(3, 0x03, 1), F3(~3, ~0x03, ~1), "[i+1],d", 0, v6 }, { "ldd", F3(3, 0x03, 1), F3(~3, ~0x03, ~1)|RS1_G0, "[i],d", 0, v6 }, { "ldd", F3(3, 0x03, 1), F3(~3, ~0x03, ~1)|SIMM13(~0), "[1],d", 0, v6 }, /* ldd [rs1+0],d */ { "ldd", F3(3, 0x23, 0), F3(~3, ~0x23, ~0)|ASI(~0), "[1+2],H", 0, v6 }, { "ldd", F3(3, 0x23, 0), F3(~3, ~0x23, ~0)|ASI_RS2(~0), "[1],H", 0, v6 }, /* ldd [rs1+%g0],d */ { "ldd", F3(3, 0x23, 1), F3(~3, ~0x23, ~1), "[1+i],H", 0, v6 }, { "ldd", F3(3, 0x23, 1), F3(~3, ~0x23, ~1), "[i+1],H", 0, v6 }, { "ldd", F3(3, 0x23, 1), F3(~3, ~0x23, ~1)|RS1_G0, "[i],H", 0, v6 }, { "ldd", F3(3, 0x23, 1), F3(~3, ~0x23, ~1)|SIMM13(~0), "[1],H", 0, v6 }, /* ldd [rs1+0],d */ /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "ldd", F3(3, 0x33, 0), F3(~3, ~0x33, ~0)|ASI(~0), "[1+2],D", F_ALIAS, v6 }, { "ldd", F3(3, 0x33, 0), F3(~3, ~0x33, ~0)|ASI_RS2(~0), "[1],D", F_ALIAS, v6 }, /* ldd [rs1+%g0],d */ { "ldd", F3(3, 0x33, 1), F3(~3, ~0x33, ~1), "[1+i],D", F_ALIAS, v6 }, { "ldd", F3(3, 0x33, 1), F3(~3, ~0x33, ~1), "[i+1],D", F_ALIAS, v6 }, { "ldd", F3(3, 0x33, 1), F3(~3, ~0x33, ~1)|RS1_G0, "[i],D", F_ALIAS, v6 }, { "ldd", F3(3, 0x33, 1), F3(~3, ~0x33, ~1)|SIMM13(~0), "[1],D", F_ALIAS, v6 }, /* ldd [rs1+0],d */ { "ldq", F3(3, 0x22, 0), F3(~3, ~0x22, ~0)|ASI(~0), "[1+2],J", 0, v9 }, { "ldq", F3(3, 0x22, 0), F3(~3, ~0x22, ~0)|ASI_RS2(~0), "[1],J", 0, v9 }, /* ldd [rs1+%g0],d */ { "ldq", F3(3, 0x22, 1), F3(~3, ~0x22, ~1), "[1+i],J", 0, v9 }, { "ldq", F3(3, 0x22, 1), F3(~3, ~0x22, ~1), "[i+1],J", 0, v9 }, { "ldq", F3(3, 0x22, 1), F3(~3, ~0x22, ~1)|RS1_G0, "[i],J", 0, v9 }, { "ldq", F3(3, 0x22, 1), F3(~3, ~0x22, ~1)|SIMM13(~0), "[1],J", 0, v9 }, /* ldd [rs1+0],d */ { "ldsb", F3(3, 0x09, 0), F3(~3, ~0x09, ~0)|ASI(~0), "[1+2],d", 0, v6 }, { "ldsb", F3(3, 0x09, 0), F3(~3, ~0x09, ~0)|ASI_RS2(~0), "[1],d", 0, v6 }, /* ldsb [rs1+%g0],d */ { "ldsb", F3(3, 0x09, 1), F3(~3, ~0x09, ~1), "[1+i],d", 0, v6 }, { "ldsb", F3(3, 0x09, 1), F3(~3, ~0x09, ~1), "[i+1],d", 0, v6 }, { "ldsb", F3(3, 0x09, 1), F3(~3, ~0x09, ~1)|RS1_G0, "[i],d", 0, v6 }, { "ldsb", F3(3, 0x09, 1), F3(~3, ~0x09, ~1)|SIMM13(~0), "[1],d", 0, v6 }, /* ldsb [rs1+0],d */ { "ldsh", F3(3, 0x0a, 0), F3(~3, ~0x0a, ~0)|ASI_RS2(~0), "[1],d", 0, v6 }, /* ldsh [rs1+%g0],d */ { "ldsh", F3(3, 0x0a, 0), F3(~3, ~0x0a, ~0)|ASI(~0), "[1+2],d", 0, v6 }, { "ldsh", F3(3, 0x0a, 1), F3(~3, ~0x0a, ~1), "[1+i],d", 0, v6 }, { "ldsh", F3(3, 0x0a, 1), F3(~3, ~0x0a, ~1), "[i+1],d", 0, v6 }, { "ldsh", F3(3, 0x0a, 1), F3(~3, ~0x0a, ~1)|RS1_G0, "[i],d", 0, v6 }, { "ldsh", F3(3, 0x0a, 1), F3(~3, ~0x0a, ~1)|SIMM13(~0), "[1],d", 0, v6 }, /* ldsh [rs1+0],d */ { "ldstub", F3(3, 0x0d, 0), F3(~3, ~0x0d, ~0)|ASI(~0), "[1+2],d", 0, v6 }, { "ldstub", F3(3, 0x0d, 0), F3(~3, ~0x0d, ~0)|ASI_RS2(~0), "[1],d", 0, v6 }, /* ldstub [rs1+%g0],d */ { "ldstub", F3(3, 0x0d, 1), F3(~3, ~0x0d, ~1), "[1+i],d", 0, v6 }, { "ldstub", F3(3, 0x0d, 1), F3(~3, ~0x0d, ~1), "[i+1],d", 0, v6 }, { "ldstub", F3(3, 0x0d, 1), F3(~3, ~0x0d, ~1)|RS1_G0, "[i],d", 0, v6 }, { "ldstub", F3(3, 0x0d, 1), F3(~3, ~0x0d, ~1)|SIMM13(~0), "[1],d", 0, v6 }, /* ldstub [rs1+0],d */ { "ldsw", F3(3, 0x08, 0), F3(~3, ~0x08, ~0)|ASI(~0), "[1+2],d", 0, v9 }, { "ldsw", F3(3, 0x08, 0), F3(~3, ~0x08, ~0)|ASI_RS2(~0), "[1],d", 0, v9 }, /* ldsw [rs1+%g0],d */ { "ldsw", F3(3, 0x08, 1), F3(~3, ~0x08, ~1), "[1+i],d", 0, v9 }, { "ldsw", F3(3, 0x08, 1), F3(~3, ~0x08, ~1), "[i+1],d", 0, v9 }, { "ldsw", F3(3, 0x08, 1), F3(~3, ~0x08, ~1)|RS1_G0, "[i],d", 0, v9 }, { "ldsw", F3(3, 0x08, 1), F3(~3, ~0x08, ~1)|SIMM13(~0), "[1],d", 0, v9 }, /* ldsw [rs1+0],d */ { "ldub", F3(3, 0x01, 0), F3(~3, ~0x01, ~0)|ASI(~0), "[1+2],d", 0, v6 }, { "ldub", F3(3, 0x01, 0), F3(~3, ~0x01, ~0)|ASI_RS2(~0), "[1],d", 0, v6 }, /* ldub [rs1+%g0],d */ { "ldub", F3(3, 0x01, 1), F3(~3, ~0x01, ~1), "[1+i],d", 0, v6 }, { "ldub", F3(3, 0x01, 1), F3(~3, ~0x01, ~1), "[i+1],d", 0, v6 }, { "ldub", F3(3, 0x01, 1), F3(~3, ~0x01, ~1)|RS1_G0, "[i],d", 0, v6 }, { "ldub", F3(3, 0x01, 1), F3(~3, ~0x01, ~1)|SIMM13(~0), "[1],d", 0, v6 }, /* ldub [rs1+0],d */ { "lduh", F3(3, 0x02, 0), F3(~3, ~0x02, ~0)|ASI(~0), "[1+2],d", 0, v6 }, { "lduh", F3(3, 0x02, 0), F3(~3, ~0x02, ~0)|ASI_RS2(~0), "[1],d", 0, v6 }, /* lduh [rs1+%g0],d */ { "lduh", F3(3, 0x02, 1), F3(~3, ~0x02, ~1), "[1+i],d", 0, v6 }, { "lduh", F3(3, 0x02, 1), F3(~3, ~0x02, ~1), "[i+1],d", 0, v6 }, { "lduh", F3(3, 0x02, 1), F3(~3, ~0x02, ~1)|RS1_G0, "[i],d", 0, v6 }, { "lduh", F3(3, 0x02, 1), F3(~3, ~0x02, ~1)|SIMM13(~0), "[1],d", 0, v6 }, /* lduh [rs1+0],d */ { "ldx", F3(3, 0x0b, 0), F3(~3, ~0x0b, ~0)|ASI(~0), "[1+2],d", 0, v9 }, { "ldx", F3(3, 0x0b, 0), F3(~3, ~0x0b, ~0)|ASI_RS2(~0), "[1],d", 0, v9 }, /* ldx [rs1+%g0],d */ { "ldx", F3(3, 0x0b, 1), F3(~3, ~0x0b, ~1), "[1+i],d", 0, v9 }, { "ldx", F3(3, 0x0b, 1), F3(~3, ~0x0b, ~1), "[i+1],d", 0, v9 }, { "ldx", F3(3, 0x0b, 1), F3(~3, ~0x0b, ~1)|RS1_G0, "[i],d", 0, v9 }, { "ldx", F3(3, 0x0b, 1), F3(~3, ~0x0b, ~1)|SIMM13(~0), "[1],d", 0, v9 }, /* ldx [rs1+0],d */ { "ldx", F3(3, 0x21, 0)|RD(1), F3(~3, ~0x21, ~0)|RD(~1), "[1+2],F", 0, v9 }, { "ldx", F3(3, 0x21, 0)|RD(1), F3(~3, ~0x21, ~0)|RS2_G0|RD(~1), "[1],F", 0, v9 }, /* ld [rs1+%g0],d */ { "ldx", F3(3, 0x21, 1)|RD(1), F3(~3, ~0x21, ~1)|RD(~1), "[1+i],F", 0, v9 }, { "ldx", F3(3, 0x21, 1)|RD(1), F3(~3, ~0x21, ~1)|RD(~1), "[i+1],F", 0, v9 }, { "ldx", F3(3, 0x21, 1)|RD(1), F3(~3, ~0x21, ~1)|RS1_G0|RD(~1), "[i],F", 0, v9 }, { "ldx", F3(3, 0x21, 1)|RD(1), F3(~3, ~0x21, ~1)|SIMM13(~0)|RD(~1),"[1],F", 0, v9 }, /* ld [rs1+0],d */ { "lda", F3(3, 0x10, 0), F3(~3, ~0x10, ~0), "[1+2]A,d", 0, v6 }, { "lda", F3(3, 0x10, 0), F3(~3, ~0x10, ~0)|RS2_G0, "[1]A,d", 0, v6 }, /* lda [rs1+%g0],d */ { "lda", F3(3, 0x10, 1), F3(~3, ~0x10, ~1), "[1+i]o,d", 0, v9 }, { "lda", F3(3, 0x10, 1), F3(~3, ~0x10, ~1), "[i+1]o,d", 0, v9 }, { "lda", F3(3, 0x10, 1), F3(~3, ~0x10, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "lda", F3(3, 0x10, 1), F3(~3, ~0x10, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* ld [rs1+0],d */ { "lda", F3(3, 0x30, 0), F3(~3, ~0x30, ~0), "[1+2]A,g", 0, v9 }, { "lda", F3(3, 0x30, 0), F3(~3, ~0x30, ~0)|RS2_G0, "[1]A,g", 0, v9 }, /* lda [rs1+%g0],d */ { "lda", F3(3, 0x30, 1), F3(~3, ~0x30, ~1), "[1+i]o,g", 0, v9 }, { "lda", F3(3, 0x30, 1), F3(~3, ~0x30, ~1), "[i+1]o,g", 0, v9 }, { "lda", F3(3, 0x30, 1), F3(~3, ~0x30, ~1)|RS1_G0, "[i]o,g", 0, v9 }, { "lda", F3(3, 0x30, 1), F3(~3, ~0x30, ~1)|SIMM13(~0), "[1]o,g", 0, v9 }, /* ld [rs1+0],d */ { "ldda", F3(3, 0x13, 0), F3(~3, ~0x13, ~0), "[1+2]A,d", 0, v6 }, { "ldda", F3(3, 0x13, 0), F3(~3, ~0x13, ~0)|RS2_G0, "[1]A,d", 0, v6 }, /* ldda [rs1+%g0],d */ { "ldda", F3(3, 0x13, 1), F3(~3, ~0x13, ~1), "[1+i]o,d", 0, v9 }, { "ldda", F3(3, 0x13, 1), F3(~3, ~0x13, ~1), "[i+1]o,d", 0, v9 }, { "ldda", F3(3, 0x13, 1), F3(~3, ~0x13, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "ldda", F3(3, 0x13, 1), F3(~3, ~0x13, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* ld [rs1+0],d */ { "ldda", F3(3, 0x33, 0), F3(~3, ~0x33, ~0), "[1+2]A,H", 0, v9 }, { "ldda", F3(3, 0x33, 0), F3(~3, ~0x33, ~0)|RS2_G0, "[1]A,H", 0, v9 }, /* ldda [rs1+%g0],d */ { "ldda", F3(3, 0x33, 1), F3(~3, ~0x33, ~1), "[1+i]o,H", 0, v9 }, { "ldda", F3(3, 0x33, 1), F3(~3, ~0x33, ~1), "[i+1]o,H", 0, v9 }, { "ldda", F3(3, 0x33, 1), F3(~3, ~0x33, ~1)|RS1_G0, "[i]o,H", 0, v9 }, { "ldda", F3(3, 0x33, 1), F3(~3, ~0x33, ~1)|SIMM13(~0), "[1]o,H", 0, v9 }, /* ld [rs1+0],d */ { "ldqa", F3(3, 0x32, 0), F3(~3, ~0x32, ~0), "[1+2]A,J", 0, v9 }, { "ldqa", F3(3, 0x32, 0), F3(~3, ~0x32, ~0)|RS2_G0, "[1]A,J", 0, v9 }, /* ldd [rs1+%g0],d */ { "ldqa", F3(3, 0x32, 1), F3(~3, ~0x32, ~1), "[1+i]o,J", 0, v9 }, { "ldqa", F3(3, 0x32, 1), F3(~3, ~0x32, ~1), "[i+1]o,J", 0, v9 }, { "ldqa", F3(3, 0x32, 1), F3(~3, ~0x32, ~1)|RS1_G0, "[i]o,J", 0, v9 }, { "ldqa", F3(3, 0x32, 1), F3(~3, ~0x32, ~1)|SIMM13(~0), "[1]o,J", 0, v9 }, /* ldd [rs1+0],d */ { "ldsba", F3(3, 0x19, 0), F3(~3, ~0x19, ~0), "[1+2]A,d", 0, v6 }, { "ldsba", F3(3, 0x19, 0), F3(~3, ~0x19, ~0)|RS2_G0, "[1]A,d", 0, v6 }, /* ldsba [rs1+%g0],d */ { "ldsba", F3(3, 0x19, 1), F3(~3, ~0x19, ~1), "[1+i]o,d", 0, v9 }, { "ldsba", F3(3, 0x19, 1), F3(~3, ~0x19, ~1), "[i+1]o,d", 0, v9 }, { "ldsba", F3(3, 0x19, 1), F3(~3, ~0x19, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "ldsba", F3(3, 0x19, 1), F3(~3, ~0x19, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* ld [rs1+0],d */ { "ldsha", F3(3, 0x1a, 0), F3(~3, ~0x1a, ~0), "[1+2]A,d", 0, v6 }, { "ldsha", F3(3, 0x1a, 0), F3(~3, ~0x1a, ~0)|RS2_G0, "[1]A,d", 0, v6 }, /* ldsha [rs1+%g0],d */ { "ldsha", F3(3, 0x1a, 1), F3(~3, ~0x1a, ~1), "[1+i]o,d", 0, v9 }, { "ldsha", F3(3, 0x1a, 1), F3(~3, ~0x1a, ~1), "[i+1]o,d", 0, v9 }, { "ldsha", F3(3, 0x1a, 1), F3(~3, ~0x1a, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "ldsha", F3(3, 0x1a, 1), F3(~3, ~0x1a, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* ld [rs1+0],d */ { "ldstuba", F3(3, 0x1d, 0), F3(~3, ~0x1d, ~0), "[1+2]A,d", 0, v6 }, { "ldstuba", F3(3, 0x1d, 0), F3(~3, ~0x1d, ~0)|RS2_G0, "[1]A,d", 0, v6 }, /* ldstuba [rs1+%g0],d */ { "ldstuba", F3(3, 0x1d, 1), F3(~3, ~0x1d, ~1), "[1+i]o,d", 0, v9 }, { "ldstuba", F3(3, 0x1d, 1), F3(~3, ~0x1d, ~1), "[i+1]o,d", 0, v9 }, { "ldstuba", F3(3, 0x1d, 1), F3(~3, ~0x1d, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "ldstuba", F3(3, 0x1d, 1), F3(~3, ~0x1d, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* ld [rs1+0],d */ { "ldswa", F3(3, 0x18, 0), F3(~3, ~0x18, ~0), "[1+2]A,d", 0, v9 }, { "ldswa", F3(3, 0x18, 0), F3(~3, ~0x18, ~0)|RS2_G0, "[1]A,d", 0, v9 }, /* lda [rs1+%g0],d */ { "ldswa", F3(3, 0x18, 1), F3(~3, ~0x18, ~1), "[1+i]o,d", 0, v9 }, { "ldswa", F3(3, 0x18, 1), F3(~3, ~0x18, ~1), "[i+1]o,d", 0, v9 }, { "ldswa", F3(3, 0x18, 1), F3(~3, ~0x18, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "ldswa", F3(3, 0x18, 1), F3(~3, ~0x18, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* ld [rs1+0],d */ { "lduba", F3(3, 0x11, 0), F3(~3, ~0x11, ~0), "[1+2]A,d", 0, v6 }, { "lduba", F3(3, 0x11, 0), F3(~3, ~0x11, ~0)|RS2_G0, "[1]A,d", 0, v6 }, /* lduba [rs1+%g0],d */ { "lduba", F3(3, 0x11, 1), F3(~3, ~0x11, ~1), "[1+i]o,d", 0, v9 }, { "lduba", F3(3, 0x11, 1), F3(~3, ~0x11, ~1), "[i+1]o,d", 0, v9 }, { "lduba", F3(3, 0x11, 1), F3(~3, ~0x11, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "lduba", F3(3, 0x11, 1), F3(~3, ~0x11, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* ld [rs1+0],d */ { "lduha", F3(3, 0x12, 0), F3(~3, ~0x12, ~0), "[1+2]A,d", 0, v6 }, { "lduha", F3(3, 0x12, 0), F3(~3, ~0x12, ~0)|RS2_G0, "[1]A,d", 0, v6 }, /* lduha [rs1+%g0],d */ { "lduha", F3(3, 0x12, 1), F3(~3, ~0x12, ~1), "[1+i]o,d", 0, v9 }, { "lduha", F3(3, 0x12, 1), F3(~3, ~0x12, ~1), "[i+1]o,d", 0, v9 }, { "lduha", F3(3, 0x12, 1), F3(~3, ~0x12, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "lduha", F3(3, 0x12, 1), F3(~3, ~0x12, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* ld [rs1+0],d */ { "lduwa", F3(3, 0x10, 0), F3(~3, ~0x10, ~0), "[1+2]A,d", F_ALIAS, v9 }, /* lduwa === lda */ { "lduwa", F3(3, 0x10, 0), F3(~3, ~0x10, ~0)|RS2_G0, "[1]A,d", F_ALIAS, v9 }, /* lda [rs1+%g0],d */ { "lduwa", F3(3, 0x10, 1), F3(~3, ~0x10, ~1), "[1+i]o,d", F_ALIAS, v9 }, { "lduwa", F3(3, 0x10, 1), F3(~3, ~0x10, ~1), "[i+1]o,d", F_ALIAS, v9 }, { "lduwa", F3(3, 0x10, 1), F3(~3, ~0x10, ~1)|RS1_G0, "[i]o,d", F_ALIAS, v9 }, { "lduwa", F3(3, 0x10, 1), F3(~3, ~0x10, ~1)|SIMM13(~0), "[1]o,d", F_ALIAS, v9 }, /* ld [rs1+0],d */ { "ldxa", F3(3, 0x1b, 0), F3(~3, ~0x1b, ~0), "[1+2]A,d", 0, v9 }, /* lduwa === lda */ { "ldxa", F3(3, 0x1b, 0), F3(~3, ~0x1b, ~0)|RS2_G0, "[1]A,d", 0, v9 }, /* lda [rs1+%g0],d */ { "ldxa", F3(3, 0x1b, 1), F3(~3, ~0x1b, ~1), "[1+i]o,d", 0, v9 }, { "ldxa", F3(3, 0x1b, 1), F3(~3, ~0x1b, ~1), "[i+1]o,d", 0, v9 }, { "ldxa", F3(3, 0x1b, 1), F3(~3, ~0x1b, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "ldxa", F3(3, 0x1b, 1), F3(~3, ~0x1b, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* ld [rs1+0],d */ { "st", F3(3, 0x04, 0), F3(~3, ~0x04, ~0)|ASI(~0), "d,[1+2]", 0, v6 }, { "st", F3(3, 0x04, 0), F3(~3, ~0x04, ~0)|ASI_RS2(~0), "d,[1]", 0, v6 }, /* st d,[rs1+%g0] */ { "st", F3(3, 0x04, 1), F3(~3, ~0x04, ~1), "d,[1+i]", 0, v6 }, { "st", F3(3, 0x04, 1), F3(~3, ~0x04, ~1), "d,[i+1]", 0, v6 }, { "st", F3(3, 0x04, 1), F3(~3, ~0x04, ~1)|RS1_G0, "d,[i]", 0, v6 }, { "st", F3(3, 0x04, 1), F3(~3, ~0x04, ~1)|SIMM13(~0), "d,[1]", 0, v6 }, /* st d,[rs1+0] */ { "st", F3(3, 0x24, 0), F3(~3, ~0x24, ~0)|ASI(~0), "g,[1+2]", 0, v6 }, { "st", F3(3, 0x24, 0), F3(~3, ~0x24, ~0)|ASI_RS2(~0), "g,[1]", 0, v6 }, /* st d[rs1+%g0] */ { "st", F3(3, 0x24, 1), F3(~3, ~0x24, ~1), "g,[1+i]", 0, v6 }, { "st", F3(3, 0x24, 1), F3(~3, ~0x24, ~1), "g,[i+1]", 0, v6 }, { "st", F3(3, 0x24, 1), F3(~3, ~0x24, ~1)|RS1_G0, "g,[i]", 0, v6 }, { "st", F3(3, 0x24, 1), F3(~3, ~0x24, ~1)|SIMM13(~0), "g,[1]", 0, v6 }, /* st d,[rs1+0] */ /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "st", F3(3, 0x34, 0), F3(~3, ~0x34, ~0)|ASI(~0), "D,[1+2]", F_ALIAS, v6 }, { "st", F3(3, 0x34, 0), F3(~3, ~0x34, ~0)|ASI_RS2(~0), "D,[1]", F_ALIAS, v6 }, /* st d,[rs1+%g0] */ { "st", F3(3, 0x34, 1), F3(~3, ~0x34, ~1), "D,[1+i]", F_ALIAS, v6 }, { "st", F3(3, 0x34, 1), F3(~3, ~0x34, ~1), "D,[i+1]", F_ALIAS, v6 }, { "st", F3(3, 0x34, 1), F3(~3, ~0x34, ~1)|RS1_G0, "D,[i]", F_ALIAS, v6 }, { "st", F3(3, 0x34, 1), F3(~3, ~0x34, ~1)|SIMM13(~0), "D,[1]", F_ALIAS, v6 }, /* st d,[rs1+0] */ { "st", F3(3, 0x35, 0), F3(~3, ~0x35, ~0)|ASI(~0), "C,[1+2]", 0, v6 }, { "st", F3(3, 0x35, 0), F3(~3, ~0x35, ~0)|ASI_RS2(~0), "C,[1]", 0, v6 }, /* st d,[rs1+%g0] */ { "st", F3(3, 0x35, 1), F3(~3, ~0x35, ~1), "C,[1+i]", 0, v6 }, { "st", F3(3, 0x35, 1), F3(~3, ~0x35, ~1), "C,[i+1]", 0, v6 }, { "st", F3(3, 0x35, 1), F3(~3, ~0x35, ~1)|RS1_G0, "C,[i]", 0, v6 }, { "st", F3(3, 0x35, 1), F3(~3, ~0x35, ~1)|SIMM13(~0), "C,[1]", 0, v6 }, /* st d,[rs1+0] */ { "st", F3(3, 0x25, 0), F3(~3, ~0x25, ~0)|RD_G0|ASI(~0), "F,[1+2]", 0, v6 }, { "st", F3(3, 0x25, 0), F3(~3, ~0x25, ~0)|RD_G0|ASI_RS2(~0), "F,[1]", 0, v6 }, /* st d,[rs1+%g0] */ { "st", F3(3, 0x25, 1), F3(~3, ~0x25, ~1)|RD_G0, "F,[1+i]", 0, v6 }, { "st", F3(3, 0x25, 1), F3(~3, ~0x25, ~1)|RD_G0, "F,[i+1]", 0, v6 }, { "st", F3(3, 0x25, 1), F3(~3, ~0x25, ~1)|RD_G0|RS1_G0, "F,[i]", 0, v6 }, { "st", F3(3, 0x25, 1), F3(~3, ~0x25, ~1)|RD_G0|SIMM13(~0), "F,[1]", 0, v6 }, /* st d,[rs1+0] */ { "stw", F3(3, 0x04, 0), F3(~3, ~0x04, ~0)|ASI(~0), "d,[1+2]", F_ALIAS, v9 }, { "stw", F3(3, 0x04, 0), F3(~3, ~0x04, ~0)|ASI_RS2(~0), "d,[1]", F_ALIAS, v9 }, /* st d,[rs1+%g0] */ { "stw", F3(3, 0x04, 1), F3(~3, ~0x04, ~1), "d,[1+i]", F_ALIAS, v9 }, { "stw", F3(3, 0x04, 1), F3(~3, ~0x04, ~1), "d,[i+1]", F_ALIAS, v9 }, { "stw", F3(3, 0x04, 1), F3(~3, ~0x04, ~1)|RS1_G0, "d,[i]", F_ALIAS, v9 }, { "stw", F3(3, 0x04, 1), F3(~3, ~0x04, ~1)|SIMM13(~0), "d,[1]", F_ALIAS, v9 }, /* st d,[rs1+0] */ { "sta", F3(3, 0x14, 0), F3(~3, ~0x14, ~0), "d,[1+2]A", 0, v6 }, { "sta", F3(3, 0x14, 0), F3(~3, ~0x14, ~0)|RS2(~0), "d,[1]A", 0, v6 }, /* sta d,[rs1+%g0] */ { "sta", F3(3, 0x14, 1), F3(~3, ~0x14, ~1), "d,[1+i]o", 0, v9 }, { "sta", F3(3, 0x14, 1), F3(~3, ~0x14, ~1), "d,[i+1]o", 0, v9 }, { "sta", F3(3, 0x14, 1), F3(~3, ~0x14, ~1)|RS1_G0, "d,[i]o", 0, v9 }, { "sta", F3(3, 0x14, 1), F3(~3, ~0x14, ~1)|SIMM13(~0), "d,[1]o", 0, v9 }, /* st d,[rs1+0] */ { "sta", F3(3, 0x34, 0), F3(~3, ~0x34, ~0), "g,[1+2]A", 0, v9 }, { "sta", F3(3, 0x34, 0), F3(~3, ~0x34, ~0)|RS2(~0), "g,[1]A", 0, v9 }, /* sta d,[rs1+%g0] */ { "sta", F3(3, 0x34, 1), F3(~3, ~0x34, ~1), "g,[1+i]o", 0, v9 }, { "sta", F3(3, 0x34, 1), F3(~3, ~0x34, ~1), "g,[i+1]o", 0, v9 }, { "sta", F3(3, 0x34, 1), F3(~3, ~0x34, ~1)|RS1_G0, "g,[i]o", 0, v9 }, { "sta", F3(3, 0x34, 1), F3(~3, ~0x34, ~1)|SIMM13(~0), "g,[1]o", 0, v9 }, /* st d,[rs1+0] */ { "stwa", F3(3, 0x14, 0), F3(~3, ~0x14, ~0), "d,[1+2]A", F_ALIAS, v9 }, { "stwa", F3(3, 0x14, 0), F3(~3, ~0x14, ~0)|RS2(~0), "d,[1]A", F_ALIAS, v9 }, /* sta d,[rs1+%g0] */ { "stwa", F3(3, 0x14, 1), F3(~3, ~0x14, ~1), "d,[1+i]o", F_ALIAS, v9 }, { "stwa", F3(3, 0x14, 1), F3(~3, ~0x14, ~1), "d,[i+1]o", F_ALIAS, v9 }, { "stwa", F3(3, 0x14, 1), F3(~3, ~0x14, ~1)|RS1_G0, "d,[i]o", F_ALIAS, v9 }, { "stwa", F3(3, 0x14, 1), F3(~3, ~0x14, ~1)|SIMM13(~0), "d,[1]o", F_ALIAS, v9 }, /* st d,[rs1+0] */ { "stb", F3(3, 0x05, 0), F3(~3, ~0x05, ~0)|ASI(~0), "d,[1+2]", 0, v6 }, { "stb", F3(3, 0x05, 0), F3(~3, ~0x05, ~0)|ASI_RS2(~0), "d,[1]", 0, v6 }, /* stb d,[rs1+%g0] */ { "stb", F3(3, 0x05, 1), F3(~3, ~0x05, ~1), "d,[1+i]", 0, v6 }, { "stb", F3(3, 0x05, 1), F3(~3, ~0x05, ~1), "d,[i+1]", 0, v6 }, { "stb", F3(3, 0x05, 1), F3(~3, ~0x05, ~1)|RS1_G0, "d,[i]", 0, v6 }, { "stb", F3(3, 0x05, 1), F3(~3, ~0x05, ~1)|SIMM13(~0), "d,[1]", 0, v6 }, /* stb d,[rs1+0] */ { "stba", F3(3, 0x15, 0), F3(~3, ~0x15, ~0), "d,[1+2]A", 0, v6 }, { "stba", F3(3, 0x15, 0), F3(~3, ~0x15, ~0)|RS2(~0), "d,[1]A", 0, v6 }, /* stba d,[rs1+%g0] */ { "stba", F3(3, 0x15, 1), F3(~3, ~0x15, ~1), "d,[1+i]o", 0, v9 }, { "stba", F3(3, 0x15, 1), F3(~3, ~0x15, ~1), "d,[i+1]o", 0, v9 }, { "stba", F3(3, 0x15, 1), F3(~3, ~0x15, ~1)|RS1_G0, "d,[i]o", 0, v9 }, { "stba", F3(3, 0x15, 1), F3(~3, ~0x15, ~1)|SIMM13(~0), "d,[1]o", 0, v9 }, /* stb d,[rs1+0] */ { "std", F3(3, 0x07, 0), F3(~3, ~0x07, ~0)|ASI(~0), "d,[1+2]", 0, v6 }, { "std", F3(3, 0x07, 0), F3(~3, ~0x07, ~0)|ASI_RS2(~0), "d,[1]", 0, v6 }, /* std d,[rs1+%g0] */ { "std", F3(3, 0x07, 1), F3(~3, ~0x07, ~1), "d,[1+i]", 0, v6 }, { "std", F3(3, 0x07, 1), F3(~3, ~0x07, ~1), "d,[i+1]", 0, v6 }, { "std", F3(3, 0x07, 1), F3(~3, ~0x07, ~1)|RS1_G0, "d,[i]", 0, v6 }, { "std", F3(3, 0x07, 1), F3(~3, ~0x07, ~1)|SIMM13(~0), "d,[1]", 0, v6 }, /* std d,[rs1+0] */ /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "std", F3(3, 0x26, 0), F3(~3, ~0x26, ~0)|ASI(~0), "q,[1+2]", F_ALIAS, v6 }, { "std", F3(3, 0x26, 0), F3(~3, ~0x26, ~0)|ASI_RS2(~0), "q,[1]", F_ALIAS, v6 }, /* std d,[rs1+%g0] */ { "std", F3(3, 0x26, 1), F3(~3, ~0x26, ~1), "q,[1+i]", F_ALIAS, v6 }, { "std", F3(3, 0x26, 1), F3(~3, ~0x26, ~1), "q,[i+1]", F_ALIAS, v6 }, { "std", F3(3, 0x26, 1), F3(~3, ~0x26, ~1)|RS1_G0, "q,[i]", F_ALIAS, v6 }, { "std", F3(3, 0x26, 1), F3(~3, ~0x26, ~1)|SIMM13(~0), "q,[1]", F_ALIAS, v6 }, /* std d,[rs1+0] */ { "std", F3(3, 0x27, 0), F3(~3, ~0x27, ~0)|ASI(~0), "H,[1+2]", 0, v6 }, { "std", F3(3, 0x27, 0), F3(~3, ~0x27, ~0)|ASI_RS2(~0), "H,[1]", 0, v6 }, /* std d,[rs1+%g0] */ { "std", F3(3, 0x27, 1), F3(~3, ~0x27, ~1), "H,[1+i]", 0, v6 }, { "std", F3(3, 0x27, 1), F3(~3, ~0x27, ~1), "H,[i+1]", 0, v6 }, { "std", F3(3, 0x27, 1), F3(~3, ~0x27, ~1)|RS1_G0, "H,[i]", 0, v6 }, { "std", F3(3, 0x27, 1), F3(~3, ~0x27, ~1)|SIMM13(~0), "H,[1]", 0, v6 }, /* std d,[rs1+0] */ /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "std", F3(3, 0x36, 0), F3(~3, ~0x36, ~0)|ASI(~0), "Q,[1+2]", F_ALIAS, v6 }, { "std", F3(3, 0x36, 0), F3(~3, ~0x36, ~0)|ASI_RS2(~0), "Q,[1]", F_ALIAS, v6 }, /* std d,[rs1+%g0] */ { "std", F3(3, 0x36, 1), F3(~3, ~0x36, ~1), "Q,[1+i]", F_ALIAS, v6 }, { "std", F3(3, 0x36, 1), F3(~3, ~0x36, ~1), "Q,[i+1]", F_ALIAS, v6 }, { "std", F3(3, 0x36, 1), F3(~3, ~0x36, ~1)|RS1_G0, "Q,[i]", F_ALIAS, v6 }, { "std", F3(3, 0x36, 1), F3(~3, ~0x36, ~1)|SIMM13(~0), "Q,[1]", F_ALIAS, v6 }, /* std d,[rs1+0] */ /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "std", F3(3, 0x37, 0), F3(~3, ~0x37, ~0)|ASI(~0), "D,[1+2]", F_ALIAS, v6 }, { "std", F3(3, 0x37, 0), F3(~3, ~0x37, ~0)|ASI_RS2(~0), "D,[1]", F_ALIAS, v6 }, /* std d,[rs1+%g0] */ { "std", F3(3, 0x37, 1), F3(~3, ~0x37, ~1), "D,[1+i]", F_ALIAS, v6 }, { "std", F3(3, 0x37, 1), F3(~3, ~0x37, ~1), "D,[i+1]", F_ALIAS, v6 }, { "std", F3(3, 0x37, 1), F3(~3, ~0x37, ~1)|RS1_G0, "D,[i]", F_ALIAS, v6 }, { "std", F3(3, 0x37, 1), F3(~3, ~0x37, ~1)|SIMM13(~0), "D,[1]", F_ALIAS, v6 }, /* std d,[rs1+0] */ { "stda", F3(3, 0x17, 0), F3(~3, ~0x17, ~0), "d,[1+2]A", 0, v6 }, { "stda", F3(3, 0x17, 0), F3(~3, ~0x17, ~0)|RS2(~0), "d,[1]A", 0, v6 }, /* stda d,[rs1+%g0] */ { "stda", F3(3, 0x17, 1), F3(~3, ~0x17, ~1), "d,[1+i]o", 0, v9 }, { "stda", F3(3, 0x17, 1), F3(~3, ~0x17, ~1), "d,[i+1]o", 0, v9 }, { "stda", F3(3, 0x17, 1), F3(~3, ~0x17, ~1)|RS1_G0, "d,[i]o", 0, v9 }, { "stda", F3(3, 0x17, 1), F3(~3, ~0x17, ~1)|SIMM13(~0), "d,[1]o", 0, v9 }, /* std d,[rs1+0] */ { "stda", F3(3, 0x37, 0), F3(~3, ~0x37, ~0), "H,[1+2]A", 0, v9 }, { "stda", F3(3, 0x37, 0), F3(~3, ~0x37, ~0)|RS2(~0), "H,[1]A", 0, v9 }, /* stda d,[rs1+%g0] */ { "stda", F3(3, 0x37, 1), F3(~3, ~0x37, ~1), "H,[1+i]o", 0, v9 }, { "stda", F3(3, 0x37, 1), F3(~3, ~0x37, ~1), "H,[i+1]o", 0, v9 }, { "stda", F3(3, 0x37, 1), F3(~3, ~0x37, ~1)|RS1_G0, "H,[i]o", 0, v9 }, { "stda", F3(3, 0x37, 1), F3(~3, ~0x37, ~1)|SIMM13(~0), "H,[1]o", 0, v9 }, /* std d,[rs1+0] */ { "sth", F3(3, 0x06, 0), F3(~3, ~0x06, ~0)|ASI(~0), "d,[1+2]", 0, v6 }, { "sth", F3(3, 0x06, 0), F3(~3, ~0x06, ~0)|ASI_RS2(~0), "d,[1]", 0, v6 }, /* sth d,[rs1+%g0] */ { "sth", F3(3, 0x06, 1), F3(~3, ~0x06, ~1), "d,[1+i]", 0, v6 }, { "sth", F3(3, 0x06, 1), F3(~3, ~0x06, ~1), "d,[i+1]", 0, v6 }, { "sth", F3(3, 0x06, 1), F3(~3, ~0x06, ~1)|RS1_G0, "d,[i]", 0, v6 }, { "sth", F3(3, 0x06, 1), F3(~3, ~0x06, ~1)|SIMM13(~0), "d,[1]", 0, v6 }, /* sth d,[+] */ { "stha", F3(3, 0x16, 0), F3(~3, ~0x16, ~0), "d,[1+2]A", 0, v6 }, { "stha", F3(3, 0x16, 0), F3(~3, ~0x16, ~0)|RS2(~0), "d,[1]A", 0, v6 }, /* stha ,[+%] */ { "stha", F3(3, 0x16, 1), F3(~3, ~0x16, ~1), "d,[1+i]o", 0, v9 }, { "stha", F3(3, 0x16, 1), F3(~3, ~0x16, ~1), "d,[i+1]o", 0, v9 }, { "stha", F3(3, 0x16, 1), F3(~3, ~0x16, ~1)|RS1_G0, "d,[i]o", 0, v9 }, { "stha", F3(3, 0x16, 1), F3(~3, ~0x16, ~1)|SIMM13(~0), "d,[1]o", 0, v9 }, /* sth d,[+] */ { "stx", F3(3, 0x0e, 0), F3(~3, ~0x0e, ~0)|ASI(~0), "d,[1+2]", 0, v9 }, { "stx", F3(3, 0x0e, 0), F3(~3, ~0x0e, ~0)|ASI_RS2(~0), "d,[1]", 0, v9 }, /* stx d,[rs1+%g0] */ { "stx", F3(3, 0x0e, 1), F3(~3, ~0x0e, ~1), "d,[1+i]", 0, v9 }, { "stx", F3(3, 0x0e, 1), F3(~3, ~0x0e, ~1), "d,[i+1]", 0, v9 }, { "stx", F3(3, 0x0e, 1), F3(~3, ~0x0e, ~1)|RS1_G0, "d,[i]", 0, v9 }, { "stx", F3(3, 0x0e, 1), F3(~3, ~0x0e, ~1)|SIMM13(~0), "d,[1]", 0, v9 }, /* stx d,[rs1+0] */ { "stx", F3(3, 0x25, 0)|RD(1), F3(~3, ~0x25, ~0)|ASI(~0)|RD(~1), "F,[1+2]", 0, v9 }, { "stx", F3(3, 0x25, 0)|RD(1), F3(~3, ~0x25, ~0)|ASI_RS2(~0)|RD(~1),"F,[1]", 0, v9 }, /* st d,[rs1+%g0] */ { "stx", F3(3, 0x25, 1)|RD(1), F3(~3, ~0x25, ~1)|RD(~1), "F,[1+i]", 0, v9 }, { "stx", F3(3, 0x25, 1)|RD(1), F3(~3, ~0x25, ~1)|RD(~1), "F,[i+1]", 0, v9 }, { "stx", F3(3, 0x25, 1)|RD(1), F3(~3, ~0x25, ~1)|RS1_G0|RD(~1), "F,[i]", 0, v9 }, { "stx", F3(3, 0x25, 1)|RD(1), F3(~3, ~0x25, ~1)|SIMM13(~0)|RD(~1),"F,[1]", 0, v9 }, /* st d,[rs1+0] */ { "stxa", F3(3, 0x1e, 0), F3(~3, ~0x1e, ~0), "d,[1+2]A", 0, v9 }, { "stxa", F3(3, 0x1e, 0), F3(~3, ~0x1e, ~0)|RS2(~0), "d,[1]A", 0, v9 }, /* stha d,[rs1+%g0] */ { "stxa", F3(3, 0x1e, 1), F3(~3, ~0x1e, ~1), "d,[1+i]o", 0, v9 }, { "stxa", F3(3, 0x1e, 1), F3(~3, ~0x1e, ~1), "d,[i+1]o", 0, v9 }, { "stxa", F3(3, 0x1e, 1), F3(~3, ~0x1e, ~1)|RS1_G0, "d,[i]o", 0, v9 }, { "stxa", F3(3, 0x1e, 1), F3(~3, ~0x1e, ~1)|SIMM13(~0), "d,[1]o", 0, v9 }, /* stx d,[rs1+0] */ { "stq", F3(3, 0x26, 0), F3(~3, ~0x26, ~0)|ASI(~0), "J,[1+2]", 0, v9 }, { "stq", F3(3, 0x26, 0), F3(~3, ~0x26, ~0)|ASI_RS2(~0), "J,[1]", 0, v9 }, /* st d[rs1+%g0] */ { "stq", F3(3, 0x26, 1), F3(~3, ~0x26, ~1), "J,[1+i]", 0, v9 }, { "stq", F3(3, 0x26, 1), F3(~3, ~0x26, ~1), "J,[i+1]", 0, v9 }, { "stq", F3(3, 0x26, 1), F3(~3, ~0x26, ~1)|RS1_G0, "J,[i]", 0, v9 }, { "stq", F3(3, 0x26, 1), F3(~3, ~0x26, ~1)|SIMM13(~0), "J,[1]", 0, v9 }, /* st d,[rs1+0] */ { "stqa", F3(3, 0x36, 0), F3(~3, ~0x36, ~0)|ASI(~0), "J,[1+2]A", 0, v9 }, { "stqa", F3(3, 0x36, 0), F3(~3, ~0x36, ~0)|ASI_RS2(~0), "J,[1]A", 0, v9 }, /* st d[rs1+%g0] */ { "stqa", F3(3, 0x36, 1), F3(~3, ~0x36, ~1), "J,[1+i]o", 0, v9 }, { "stqa", F3(3, 0x36, 1), F3(~3, ~0x36, ~1), "J,[i+1]o", 0, v9 }, { "stqa", F3(3, 0x36, 1), F3(~3, ~0x36, ~1)|RS1_G0, "J,[i]o", 0, v9 }, { "stqa", F3(3, 0x36, 1), F3(~3, ~0x36, ~1)|SIMM13(~0), "J,[1]o", 0, v9 }, /* st d,[rs1+0] */ { "swap", F3(3, 0x0f, 0), F3(~3, ~0x0f, ~0)|ASI(~0), "[1+2],d", 0, v7 }, { "swap", F3(3, 0x0f, 0), F3(~3, ~0x0f, ~0)|ASI_RS2(~0), "[1],d", 0, v7 }, /* swap [rs1+%g0],d */ { "swap", F3(3, 0x0f, 1), F3(~3, ~0x0f, ~1), "[1+i],d", 0, v7 }, { "swap", F3(3, 0x0f, 1), F3(~3, ~0x0f, ~1), "[i+1],d", 0, v7 }, { "swap", F3(3, 0x0f, 1), F3(~3, ~0x0f, ~1)|RS1_G0, "[i],d", 0, v7 }, { "swap", F3(3, 0x0f, 1), F3(~3, ~0x0f, ~1)|SIMM13(~0), "[1],d", 0, v7 }, /* swap [rs1+0],d */ { "swapa", F3(3, 0x1f, 0), F3(~3, ~0x1f, ~0), "[1+2]A,d", 0, v7 }, { "swapa", F3(3, 0x1f, 0), F3(~3, ~0x1f, ~0)|RS2(~0), "[1]A,d", 0, v7 }, /* swapa [rs1+%g0],d */ { "swapa", F3(3, 0x1f, 1), F3(~3, ~0x1f, ~1), "[1+i]o,d", 0, v9 }, { "swapa", F3(3, 0x1f, 1), F3(~3, ~0x1f, ~1), "[i+1]o,d", 0, v9 }, { "swapa", F3(3, 0x1f, 1), F3(~3, ~0x1f, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "swapa", F3(3, 0x1f, 1), F3(~3, ~0x1f, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* swap [rs1+0],d */ { "restore", F3(2, 0x3d, 0), F3(~2, ~0x3d, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "restore", F3(2, 0x3d, 0), F3(~2, ~0x3d, ~0)|RD_G0|RS1_G0|ASI_RS2(~0), "", 0, v6 }, /* restore %g0,%g0,%g0 */ { "restore", F3(2, 0x3d, 1), F3(~2, ~0x3d, ~1), "1,i,d", 0, v6 }, { "restore", F3(2, 0x3d, 1), F3(~2, ~0x3d, ~1)|RD_G0|RS1_G0|SIMM13(~0), "", 0, v6 }, /* restore %g0,0,%g0 */ { "rett", F3(2, 0x39, 0), F3(~2, ~0x39, ~0)|RD_G0|ASI(~0), "1+2", F_UNBR|F_DELAYED, v6 }, /* rett rs1+rs2 */ { "rett", F3(2, 0x39, 0), F3(~2, ~0x39, ~0)|RD_G0|ASI_RS2(~0), "1", F_UNBR|F_DELAYED, v6 }, /* rett rs1,%g0 */ { "rett", F3(2, 0x39, 1), F3(~2, ~0x39, ~1)|RD_G0, "1+i", F_UNBR|F_DELAYED, v6 }, /* rett rs1+X */ { "rett", F3(2, 0x39, 1), F3(~2, ~0x39, ~1)|RD_G0, "i+1", F_UNBR|F_DELAYED, v6 }, /* rett X+rs1 */ { "rett", F3(2, 0x39, 1), F3(~2, ~0x39, ~1)|RD_G0|RS1_G0,"i", F_UNBR|F_DELAYED, v6 }, /* rett X+rs1 */ { "rett", F3(2, 0x39, 1), F3(~2, ~0x39, ~1)|RD_G0|RS1_G0, "i", F_UNBR|F_DELAYED, v6 }, /* rett X */ { "rett", F3(2, 0x39, 1), F3(~2, ~0x39, ~1)|RD_G0|SIMM13(~0), "1", F_UNBR|F_DELAYED, v6 }, /* rett rs1+0 */ { "save", F3(2, 0x3c, 0), F3(~2, ~0x3c, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "save", F3(2, 0x3c, 1), F3(~2, ~0x3c, ~1), "1,i,d", 0, v6 }, { "save", 0x81e00000, ~0x81e00000, "", F_ALIAS, v6 }, { "ret", F3(2, 0x38, 1)|RS1(0x1f)|SIMM13(8), F3(~2, ~0x38, ~1)|SIMM13(~8), "", F_UNBR|F_DELAYED, v6 }, /* jmpl %i7+8,%g0 */ { "retl", F3(2, 0x38, 1)|RS1(0x0f)|SIMM13(8), F3(~2, ~0x38, ~1)|RS1(~0x0f)|SIMM13(~8), "", F_UNBR|F_DELAYED, v6 }, /* jmpl %o7+8,%g0 */ { "jmpl", F3(2, 0x38, 0), F3(~2, ~0x38, ~0)|ASI(~0), "1+2,d", F_JSR|F_DELAYED, v6 }, { "jmpl", F3(2, 0x38, 0), F3(~2, ~0x38, ~0)|ASI_RS2(~0), "1,d", F_JSR|F_DELAYED, v6 }, /* jmpl rs1+%g0,d */ { "jmpl", F3(2, 0x38, 1), F3(~2, ~0x38, ~1)|SIMM13(~0), "1,d", F_JSR|F_DELAYED, v6 }, /* jmpl rs1+0,d */ { "jmpl", F3(2, 0x38, 1), F3(~2, ~0x38, ~1)|RS1_G0, "i,d", F_JSR|F_DELAYED, v6 }, /* jmpl %g0+i,d */ { "jmpl", F3(2, 0x38, 1), F3(~2, ~0x38, ~1), "1+i,d", F_JSR|F_DELAYED, v6 }, { "jmpl", F3(2, 0x38, 1), F3(~2, ~0x38, ~1), "i+1,d", F_JSR|F_DELAYED, v6 }, { "done", F3(2, 0x3e, 0)|RD(0), F3(~2, ~0x3e, ~0)|RD(~0)|RS1_G0|SIMM13(~0), "", 0, v9 }, { "retry", F3(2, 0x3e, 0)|RD(1), F3(~2, ~0x3e, ~0)|RD(~1)|RS1_G0|SIMM13(~0), "", 0, v9 }, { "saved", F3(2, 0x31, 0)|RD(0), F3(~2, ~0x31, ~0)|RD(~0)|RS1_G0|SIMM13(~0), "", 0, v9 }, { "restored", F3(2, 0x31, 0)|RD(1), F3(~2, ~0x31, ~0)|RD(~1)|RS1_G0|SIMM13(~0), "", 0, v9 }, { "sir", F3(2, 0x30, 1)|RD(0xf), F3(~2, ~0x30, ~1)|RD(~0xf)|RS1_G0, "i", 0, v9 }, { "flush", F3(2, 0x3b, 0), F3(~2, ~0x3b, ~0)|ASI(~0), "1+2", 0, v8 }, { "flush", F3(2, 0x3b, 0), F3(~2, ~0x3b, ~0)|ASI_RS2(~0), "1", 0, v8 }, /* flush rs1+%g0 */ { "flush", F3(2, 0x3b, 1), F3(~2, ~0x3b, ~1)|SIMM13(~0), "1", 0, v8 }, /* flush rs1+0 */ { "flush", F3(2, 0x3b, 1), F3(~2, ~0x3b, ~1)|RS1_G0, "i", 0, v8 }, /* flush %g0+i */ { "flush", F3(2, 0x3b, 1), F3(~2, ~0x3b, ~1), "1+i", 0, v8 }, { "flush", F3(2, 0x3b, 1), F3(~2, ~0x3b, ~1), "i+1", 0, v8 }, /* IFLUSH was renamed to FLUSH in v8. */ { "iflush", F3(2, 0x3b, 0), F3(~2, ~0x3b, ~0)|ASI(~0), "1+2", F_ALIAS, v6 }, { "iflush", F3(2, 0x3b, 0), F3(~2, ~0x3b, ~0)|ASI_RS2(~0), "1", F_ALIAS, v6 }, /* flush rs1+%g0 */ { "iflush", F3(2, 0x3b, 1), F3(~2, ~0x3b, ~1)|SIMM13(~0), "1", F_ALIAS, v6 }, /* flush rs1+0 */ { "iflush", F3(2, 0x3b, 1), F3(~2, ~0x3b, ~1)|RS1_G0, "i", F_ALIAS, v6 }, { "iflush", F3(2, 0x3b, 1), F3(~2, ~0x3b, ~1), "1+i", F_ALIAS, v6 }, { "iflush", F3(2, 0x3b, 1), F3(~2, ~0x3b, ~1), "i+1", F_ALIAS, v6 }, { "return", F3(2, 0x39, 0), F3(~2, ~0x39, ~0)|ASI(~0), "1+2", 0, v9 }, { "return", F3(2, 0x39, 0), F3(~2, ~0x39, ~0)|ASI_RS2(~0), "1", 0, v9 }, /* return rs1+%g0 */ { "return", F3(2, 0x39, 1), F3(~2, ~0x39, ~1)|SIMM13(~0), "1", 0, v9 }, /* return rs1+0 */ { "return", F3(2, 0x39, 1), F3(~2, ~0x39, ~1)|RS1_G0, "i", 0, v9 }, /* return %g0+i */ { "return", F3(2, 0x39, 1), F3(~2, ~0x39, ~1), "1+i", 0, v9 }, { "return", F3(2, 0x39, 1), F3(~2, ~0x39, ~1), "i+1", 0, v9 }, { "flushw", F3(2, 0x2b, 0), F3(~2, ~0x2b, ~0)|RD_G0|RS1_G0|ASI_RS2(~0), "", 0, v9 }, { "membar", F3(2, 0x28, 1)|RS1(0xf), F3(~2, ~0x28, ~1)|RD_G0|RS1(~0xf)|SIMM13(~0), "K", 0, v9 }, { "stbar", F3(2, 0x28, 0)|RS1(0xf), F3(~2, ~0x28, ~0)|RD_G0|RS1(~0xf)|SIMM13(~0), "", 0, v8 }, { "prefetch", F3(3, 0x2d, 0), F3(~3, ~0x2d, ~0), "[1+2],*", 0, v9 }, { "prefetch", F3(3, 0x2d, 0), F3(~3, ~0x2d, ~0)|RS2_G0, "[1],*", 0, v9 }, /* prefetch [rs1+%g0],prefetch_fcn */ { "prefetch", F3(3, 0x2d, 1), F3(~3, ~0x2d, ~1), "[1+i],*", 0, v9 }, { "prefetch", F3(3, 0x2d, 1), F3(~3, ~0x2d, ~1), "[i+1],*", 0, v9 }, { "prefetch", F3(3, 0x2d, 1), F3(~3, ~0x2d, ~1)|RS1_G0, "[i],*", 0, v9 }, { "prefetch", F3(3, 0x2d, 1), F3(~3, ~0x2d, ~1)|SIMM13(~0), "[1],*", 0, v9 }, /* prefetch [rs1+0],prefetch_fcn */ { "prefetcha", F3(3, 0x3d, 0), F3(~3, ~0x3d, ~0), "[1+2]A,*", 0, v9 }, { "prefetcha", F3(3, 0x3d, 0), F3(~3, ~0x3d, ~0)|RS2_G0, "[1]A,*", 0, v9 }, /* prefetcha [rs1+%g0],prefetch_fcn */ { "prefetcha", F3(3, 0x3d, 1), F3(~3, ~0x3d, ~1), "[1+i]o,d", 0, v9 }, { "prefetcha", F3(3, 0x3d, 1), F3(~3, ~0x3d, ~1), "[i+1]o,d", 0, v9 }, { "prefetcha", F3(3, 0x3d, 1), F3(~3, ~0x3d, ~1)|RS1_G0, "[i]o,d", 0, v9 }, { "prefetcha", F3(3, 0x3d, 1), F3(~3, ~0x3d, ~1)|SIMM13(~0), "[1]o,d", 0, v9 }, /* prefetcha [rs1+0],d */ /* The 1<<12 is a long story. It is necessary. For more info, please contact rich@cygnus.com */ { "sll", F3(2, 0x25, 0), F3(~2, ~0x25, ~0)|(1<<12)|ASI(~0), "1,2,d", 0, v6 }, { "sll", F3(2, 0x25, 1), F3(~2, ~0x25, ~1)|(1<<12), "1,i,d", 0, v6 }, { "sra", F3(2, 0x27, 0), F3(~2, ~0x27, ~0)|(1<<12)|ASI(~0), "1,2,d", 0, v6 }, { "sra", F3(2, 0x27, 1), F3(~2, ~0x27, ~1)|(1<<12), "1,i,d", 0, v6 }, { "srl", F3(2, 0x26, 0), F3(~2, ~0x26, ~0)|(1<<12)|ASI(~0), "1,2,d", 0, v6 }, { "srl", F3(2, 0x26, 1), F3(~2, ~0x26, ~1)|(1<<12), "1,i,d", 0, v6 }, { "sllx", F3(2, 0x25, 0)|(1<<12), F3(~2, ~0x25, ~0)|(ASI(~0)^(1<<12)), "1,2,d", 0, v9 }, { "sllx", F3(2, 0x25, 1)|(1<<12), F3(~2, ~0x25, ~1), "1,i,d", 0, v9 }, { "srax", F3(2, 0x27, 0)|(1<<12), F3(~2, ~0x27, ~0)|(ASI(~0)^(1<<12)), "1,2,d", 0, v9 }, { "srax", F3(2, 0x27, 1)|(1<<12), F3(~2, ~0x27, ~1), "1,i,d", 0, v9 }, { "srlx", F3(2, 0x26, 0)|(1<<12), F3(~2, ~0x26, ~0)|(ASI(~0)^(1<<12)), "1,2,d", 0, v9 }, { "srlx", F3(2, 0x26, 1)|(1<<12), F3(~2, ~0x26, ~1), "1,i,d", 0, v9 }, { "mulscc", F3(2, 0x24, 0), F3(~2, ~0x24, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "mulscc", F3(2, 0x24, 1), F3(~2, ~0x24, ~1), "1,i,d", 0, v6 }, { "divscc", F3(2, 0x1d, 0), F3(~2, ~0x1d, ~0)|ASI(~0), "1,2,d", 0, sparclite }, { "divscc", F3(2, 0x1d, 1), F3(~2, ~0x1d, ~1), "1,i,d", 0, sparclite }, { "scan", F3(2, 0x2c, 0), F3(~2, ~0x2c, ~0)|ASI(~0), "1,2,d", 0, sparclite }, { "scan", F3(2, 0x2c, 1), F3(~2, ~0x2c, ~1), "1,i,d", 0, sparclite }, { "popc", F3(2, 0x2e, 0), F3(~2, ~0x2e, ~0)|RS2_G0|ASI(~0),"2,d", 0, v9 }, { "popc", F3(2, 0x2e, 1), F3(~2, ~0x2e, ~1)|RS2_G0, "i,d", 0, v9 }, { "clr", F3(2, 0x02, 0), F3(~2, ~0x02, ~0)|RD_G0|RS1_G0|ASI_RS2(~0), "d", F_ALIAS, v6 }, /* or %g0,%g0,d */ { "clr", F3(2, 0x02, 1), F3(~2, ~0x02, ~1)|RS1_G0|SIMM13(~0), "d", F_ALIAS, v6 }, /* or %g0,0,d */ { "clr", F3(3, 0x04, 0), F3(~3, ~0x04, ~0)|RD_G0|ASI(~0), "[1+2]", F_ALIAS, v6 }, { "clr", F3(3, 0x04, 0), F3(~3, ~0x04, ~0)|RD_G0|ASI_RS2(~0), "[1]", F_ALIAS, v6 }, /* st %g0,[rs1+%g0] */ { "clr", F3(3, 0x04, 1), F3(~3, ~0x04, ~1)|RD_G0, "[1+i]", F_ALIAS, v6 }, { "clr", F3(3, 0x04, 1), F3(~3, ~0x04, ~1)|RD_G0, "[i+1]", F_ALIAS, v6 }, { "clr", F3(3, 0x04, 1), F3(~3, ~0x04, ~1)|RD_G0|RS1_G0, "[i]", F_ALIAS, v6 }, { "clr", F3(3, 0x04, 1), F3(~3, ~0x04, ~1)|RD_G0|SIMM13(~0), "[1]", F_ALIAS, v6 }, /* st %g0,[rs1+0] */ { "clrb", F3(3, 0x05, 0), F3(~3, ~0x05, ~0)|RD_G0|ASI(~0), "[1+2]", F_ALIAS, v6 }, { "clrb", F3(3, 0x05, 0), F3(~3, ~0x05, ~0)|RD_G0|ASI_RS2(~0), "[1]", F_ALIAS, v6 }, /* stb %g0,[rs1+%g0] */ { "clrb", F3(3, 0x05, 1), F3(~3, ~0x05, ~1)|RD_G0, "[1+i]", F_ALIAS, v6 }, { "clrb", F3(3, 0x05, 1), F3(~3, ~0x05, ~1)|RD_G0, "[i+1]", F_ALIAS, v6 }, { "clrb", F3(3, 0x05, 1), F3(~3, ~0x05, ~1)|RD_G0|RS1_G0, "[i]", F_ALIAS, v6 }, { "clrb", F3(3, 0x05, 1), F3(~3, ~0x05, ~1)|RD_G0|SIMM13(~0), "[1]", F_ALIAS, v6 }, /* clrb [rs1+0],d */ { "clrh", F3(3, 0x06, 0), F3(~3, ~0x06, ~0)|RD_G0|ASI(~0), "[1+2]", F_ALIAS, v6 }, { "clrh", F3(3, 0x06, 0), F3(~3, ~0x06, ~0)|RD_G0|ASI_RS2(~0), "[1]", F_ALIAS, v6 }, /* sth %g0,[rs1+%g0] */ { "clrh", F3(3, 0x06, 1), F3(~3, ~0x06, ~1)|RD_G0, "[1+i]", F_ALIAS, v6 }, { "clrh", F3(3, 0x06, 1), F3(~3, ~0x06, ~1)|RD_G0, "[i+1]", F_ALIAS, v6 }, { "clrh", F3(3, 0x06, 1), F3(~3, ~0x06, ~1)|RD_G0|RS1_G0, "[i]", F_ALIAS, v6 }, { "clrh", F3(3, 0x06, 1), F3(~3, ~0x06, ~1)|RD_G0|SIMM13(~0), "[1]", F_ALIAS, v6 }, /* clrb [rs1+0],d */ { "orcc", F3(2, 0x12, 0), F3(~2, ~0x12, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "orcc", F3(2, 0x12, 1), F3(~2, ~0x12, ~1), "1,i,d", 0, v6 }, { "orcc", F3(2, 0x12, 1), F3(~2, ~0x12, ~1), "i,1,d", 0, v6 }, /* This is not a commutative instruction. */ { "orncc", F3(2, 0x16, 0), F3(~2, ~0x16, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "orncc", F3(2, 0x16, 1), F3(~2, ~0x16, ~1), "1,i,d", 0, v6 }, /* This is not a commutative instruction. */ { "orn", F3(2, 0x06, 0), F3(~2, ~0x06, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "orn", F3(2, 0x06, 1), F3(~2, ~0x06, ~1), "1,i,d", 0, v6 }, { "tst", F3(2, 0x12, 0), F3(~2, ~0x12, ~0)|RD_G0|ASI_RS2(~0), "1", 0, v6 }, /* orcc rs1, %g0, %g0 */ { "tst", F3(2, 0x12, 0), F3(~2, ~0x12, ~0)|RD_G0|RS1_G0|ASI(~0), "2", 0, v6 }, /* orcc %g0, rs2, %g0 */ { "tst", F3(2, 0x12, 1), F3(~2, ~0x12, ~1)|RD_G0|SIMM13(~0), "1", 0, v6 }, /* orcc rs1, 0, %g0 */ /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "wr", F3(2, 0x30, 0), F3(~2, ~0x30, ~0)|ASI(~0), "1,2,m", 0, v8 }, /* wr r,r,%asrX */ { "wr", F3(2, 0x30, 0), F3(~2, ~0x30, ~0)|RD_G0|ASI(~0), "1,2,y", 0, v6 }, /* wr r,r,%y */ { "wr", F3(2, 0x30, 1), F3(~2, ~0x30, ~1), "1,i,m", 0, v8 }, /* wr r,i,%asrX */ { "wr", F3(2, 0x30, 1), F3(~2, ~0x30, ~1)|RD_G0, "1,i,y", 0, v6 }, /* wr r,i,%y */ { "wr", F3(2, 0x31, 0), F3(~2, ~0x31, ~0)|RD_G0|ASI(~0), "1,2,p", F_ALIAS, v6 }, /* wr r,r,%psr */ { "wr", F3(2, 0x31, 1), F3(~2, ~0x31, ~1)|RD_G0, "1,i,p", F_ALIAS, v6 }, /* wr r,i,%psr */ { "wr", F3(2, 0x32, 0), F3(~2, ~0x32, ~0)|RD_G0|ASI(~0), "1,2,w", F_ALIAS, v6 }, /* wr r,r,%wim */ { "wr", F3(2, 0x32, 1), F3(~2, ~0x32, ~1)|RD_G0, "1,i,w", F_ALIAS, v6 }, /* wr r,i,%wim */ { "wr", F3(2, 0x33, 0), F3(~2, ~0x33, ~0)|RD_G0|ASI(~0), "1,2,t", F_ALIAS, v6 }, /* wr r,r,%tbr */ { "wr", F3(2, 0x33, 1), F3(~2, ~0x33, ~1)|RD_G0, "1,i,t", F_ALIAS, v6 }, /* wr r,i,%tbr */ { "wr", F3(2, 0x30, 0)|RD(0), F3(~2, ~0x30, ~0)|RD(~0)|ASI(~0), "1,2,y", 0, v9 }, /* wr r,r,%y */ { "wr", F3(2, 0x30, 1)|RD(0), F3(~2, ~0x30, ~1)|RD(~0), "1,i,y", 0, v9 }, /* wr r,i,%y */ { "wr", F3(2, 0x30, 0)|RD(2), F3(~2, ~0x30, ~0)|RD(~2)|ASI(~0), "1,2,E", 0, v9 }, /* wr r,r,%ccr */ { "wr", F3(2, 0x30, 1)|RD(2), F3(~2, ~0x30, ~1)|RD(~2), "1,i,E", 0, v9 }, /* wr r,i,%ccr */ { "wr", F3(2, 0x30, 0)|RD(3), F3(~2, ~0x30, ~0)|RD(~3)|ASI(~0), "1,2,o", 0, v9 }, /* wr r,r,%asi */ { "wr", F3(2, 0x30, 1)|RD(3), F3(~2, ~0x30, ~1)|RD(~3), "1,i,o", 0, v9 }, /* wr r,i,%asi */ { "wr", F3(2, 0x30, 0)|RD(6), F3(~2, ~0x30, ~0)|RD(~6)|ASI(~0), "1,2,s", 0, v9 }, /* wr r,i,%fprs */ { "wr", F3(2, 0x30, 1)|RD(6), F3(~2, ~0x30, ~1)|RD(~6), "1,i,s", 0, v9 }, /* wr r,i,%fprs */ /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "rd", F3(2, 0x28, 0), F3(~2, ~0x28, ~0)|SIMM13(~0), "M,d", 0, v8 }, /* rd %asrX,r */ { "rd", F3(2, 0x28, 0), F3(~2, ~0x28, ~0)|RS1_G0|SIMM13(~0), "y,d", 0, v6 }, /* rd %y,r */ { "rd", F3(2, 0x29, 0), F3(~2, ~0x29, ~0)|RS1_G0|SIMM13(~0), "p,d", F_ALIAS, v6 }, /* rd %psr,r */ { "rd", F3(2, 0x2a, 0), F3(~2, ~0x2a, ~0)|RS1_G0|SIMM13(~0), "w,d", F_ALIAS, v6 }, /* rd %wim,r */ { "rd", F3(2, 0x2b, 0), F3(~2, ~0x2b, ~0)|RS1_G0|SIMM13(~0), "t,d", F_ALIAS, v6 }, /* rd %tbr,r */ { "rd", F3(2, 0x28, 0)|RS1(2), F3(~2, ~0x28, ~0)|RS1(~2)|SIMM13(~0), "E,d", 0, v9 }, /* rd %ccr,r */ { "rd", F3(2, 0x28, 0)|RS1(3), F3(~2, ~0x28, ~0)|RS1(~3)|SIMM13(~0), "o,d", 0, v9 }, /* rd %asi,r */ { "rd", F3(2, 0x28, 0)|RS1(4), F3(~2, ~0x28, ~0)|RS1(~4)|SIMM13(~0), "W,d", 0, v9 }, /* rd %tick,r */ { "rd", F3(2, 0x28, 0)|RS1(5), F3(~2, ~0x28, ~0)|RS1(~5)|SIMM13(~0), "P,d", 0, v9 }, /* rd %pc,r */ { "rd", F3(2, 0x28, 0)|RS1(6), F3(~2, ~0x28, ~0)|RS1(~6)|SIMM13(~0), "s,d", 0, v9 }, /* rd %fprs,r */ { "rdpr", F3(2, 0x2a, 0), F3(~2, ~0x2a, ~0)|SIMM13(~0), "?,d", 0, v9 }, /* rdpr %priv,r */ { "wrpr", F3(2, 0x32, 0), F3(~2, ~0x32, ~0), "1,2,!", 0, v9 }, /* wrpr r1,r2,%priv */ { "wrpr", F3(2, 0x32, 0), F3(~2, ~0x32, ~0)|SIMM13(~0), "1,!", 0, v9 }, /* wrpr r1,%priv */ { "wrpr", F3(2, 0x32, 1), F3(~2, ~0x32, ~1), "1,i,!", 0, v9 }, /* wrpr r1,i,%priv */ { "wrpr", F3(2, 0x32, 1), F3(~2, ~0x32, ~1), "i,1,!", F_ALIAS, v9 }, /* wrpr i,r1,%priv */ { "wrpr", F3(2, 0x32, 1), F3(~2, ~0x32, ~1)|RS1(~0), "i,!", 0, v9 }, /* wrpr i,%priv */ { "mov", F3(2, 0x30, 0), F3(~2, ~0x30, ~0)|ASI(~0), "1,2,m", F_ALIAS, v8 }, /* wr r,r,%asrX */ { "mov", F3(2, 0x30, 0), F3(~2, ~0x30, ~0)|RD_G0|ASI(~0), "1,2,y", F_ALIAS, v6 }, /* wr r,r,%y */ { "mov", F3(2, 0x30, 1), F3(~2, ~0x30, ~1), "1,i,m", F_ALIAS, v8 }, /* wr r,i,%asrX */ { "mov", F3(2, 0x30, 1), F3(~2, ~0x30, ~1)|RD_G0, "1,i,y", F_ALIAS, v6 }, /* wr r,i,%y */ { "mov", F3(2, 0x31, 0), F3(~2, ~0x31, ~0)|RD_G0|ASI(~0), "1,2,p", F_ALIAS, v6 }, /* wr r,r,%psr */ { "mov", F3(2, 0x31, 1), F3(~2, ~0x31, ~1)|RD_G0, "1,i,p", F_ALIAS, v6 }, /* wr r,i,%psr */ { "mov", F3(2, 0x32, 0), F3(~2, ~0x32, ~0)|RD_G0|ASI(~0), "1,2,w", F_ALIAS, v6 }, /* wr r,r,%wim */ { "mov", F3(2, 0x32, 1), F3(~2, ~0x32, ~1)|RD_G0, "1,i,w", F_ALIAS, v6 }, /* wr r,i,%wim */ { "mov", F3(2, 0x33, 0), F3(~2, ~0x33, ~0)|RD_G0|ASI(~0), "1,2,t", F_ALIAS, v6 }, /* wr r,r,%tbr */ { "mov", F3(2, 0x33, 1), F3(~2, ~0x33, ~1)|RD_G0, "1,i,t", F_ALIAS, v6 }, /* wr r,i,%tbr */ /* v9: FIXME: On disassembly, rd %wim,r still gets preferred to rdpr %tpc,r. v9: This is because the former is stricter in which bits can be set and v9: compare_opcodes() will prefer it, even though F_ALIAS is set. v9: Methinks we will need some sort of F_NOTFORV9 flag. */ { "mov", F3(2, 0x28, 0), F3(~2, ~0x28, ~0)|SIMM13(~0), "M,d", F_ALIAS, v8 }, /* rd %asr1,r */ { "mov", F3(2, 0x28, 0), F3(~2, ~0x28, ~0)|RS1_G0|SIMM13(~0), "y,d", F_ALIAS, v6 }, /* rd %y,r */ { "mov", F3(2, 0x29, 0), F3(~2, ~0x29, ~0)|RS1_G0|SIMM13(~0), "p,d", F_ALIAS, v6 }, /* rd %psr,r */ { "mov", F3(2, 0x2a, 0), F3(~2, ~0x2a, ~0)|RS1_G0|SIMM13(~0), "w,d", F_ALIAS, v6 }, /* rd %wim,r */ { "mov", F3(2, 0x2b, 0), F3(~2, ~0x2b, ~0)|RS1_G0|SIMM13(~0), "t,d", F_ALIAS, v6 }, /* rd %tbr,r */ { "mov", F3(2, 0x30, 0), F3(~2, ~0x30, ~0)|ASI_RS2(~0), "1,y", F_ALIAS, v6 }, /* wr rs1,%g0,%y */ { "mov", F3(2, 0x30, 1), F3(~2, ~0x30, ~1), "i,y", F_ALIAS, v6 }, { "mov", F3(2, 0x30, 1), F3(~2, ~0x30, ~1)|SIMM13(~0), "1,y", F_ALIAS, v6 }, /* wr rs1,0,%y */ { "mov", F3(2, 0x31, 0), F3(~2, ~0x31, ~0)|ASI_RS2(~0), "1,p", F_ALIAS, v6 }, /* wr rs1,%g0,%psr */ { "mov", F3(2, 0x31, 1), F3(~2, ~0x31, ~1), "i,p", F_ALIAS, v6 }, { "mov", F3(2, 0x31, 1), F3(~2, ~0x31, ~1)|SIMM13(~0), "1,p", F_ALIAS, v6 }, /* wr rs1,0,%psr */ { "mov", F3(2, 0x32, 0), F3(~2, ~0x32, ~0)|ASI_RS2(~0), "1,w", F_ALIAS, v6 }, /* wr rs1,%g0,%wim */ { "mov", F3(2, 0x32, 1), F3(~2, ~0x32, ~1), "i,w", F_ALIAS, v6 }, { "mov", F3(2, 0x32, 1), F3(~2, ~0x32, ~1)|SIMM13(~0), "1,w", F_ALIAS, v6 }, /* wr rs1,0,%wim */ { "mov", F3(2, 0x33, 0), F3(~2, ~0x33, ~0)|ASI_RS2(~0), "1,t", F_ALIAS, v6 }, /* wr rs1,%g0,%tbr */ { "mov", F3(2, 0x33, 1), F3(~2, ~0x33, ~1), "i,t", F_ALIAS, v6 }, { "mov", F3(2, 0x33, 1), F3(~2, ~0x33, ~1)|SIMM13(~0), "1,t", F_ALIAS, v6 }, /* wr rs1,0,%tbr */ { "mov", F3(2, 0x02, 0), F3(~2, ~0x02, ~0)|RS1_G0|ASI(~0), "2,d", 0, v6 }, /* or %g0,rs2,d */ { "mov", F3(2, 0x02, 1), F3(~2, ~0x02, ~1)|RS1_G0, "i,d", 0, v6 }, /* or %g0,i,d */ { "mov", F3(2, 0x02, 0), F3(~2, ~0x02, ~0)|ASI_RS2(~0), "1,d", 0, v6 }, /* or rs1,%g0,d */ { "mov", F3(2, 0x02, 1), F3(~2, ~0x02, ~1)|SIMM13(~0), "1,d", 0, v6 }, /* or rs1,0,d */ { "or", F3(2, 0x02, 0), F3(~2, ~0x02, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "or", F3(2, 0x02, 1), F3(~2, ~0x02, ~1), "1,i,d", 0, v6 }, { "or", F3(2, 0x02, 1), F3(~2, ~0x02, ~1), "i,1,d", 0, v6 }, { "bset", F3(2, 0x02, 0), F3(~2, ~0x02, ~0)|ASI(~0), "2,r", F_ALIAS, v6 }, /* or rd,rs2,rd */ { "bset", F3(2, 0x02, 1), F3(~2, ~0x02, ~1), "i,r", F_ALIAS, v6 }, /* or rd,i,rd */ /* This is not a commutative instruction. */ { "andn", F3(2, 0x05, 0), F3(~2, ~0x05, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "andn", F3(2, 0x05, 1), F3(~2, ~0x05, ~1), "1,i,d", 0, v6 }, /* This is not a commutative instruction. */ { "andncc", F3(2, 0x15, 0), F3(~2, ~0x15, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "andncc", F3(2, 0x15, 1), F3(~2, ~0x15, ~1), "1,i,d", 0, v6 }, { "bclr", F3(2, 0x05, 0), F3(~2, ~0x05, ~0)|ASI(~0), "2,r", F_ALIAS, v6 }, /* andn rd,rs2,rd */ { "bclr", F3(2, 0x05, 1), F3(~2, ~0x05, ~1), "i,r", F_ALIAS, v6 }, /* andn rd,i,rd */ { "cmp", F3(2, 0x14, 0), F3(~2, ~0x14, ~0)|RD_G0|ASI(~0), "1,2", 0, v6 }, /* subcc rs1,rs2,%g0 */ { "cmp", F3(2, 0x14, 1), F3(~2, ~0x14, ~1)|RD_G0, "1,i", 0, v6 }, /* subcc rs1,i,%g0 */ { "sub", F3(2, 0x04, 0), F3(~2, ~0x04, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "sub", F3(2, 0x04, 1), F3(~2, ~0x04, ~1), "1,i,d", 0, v6 }, { "subcc", F3(2, 0x14, 0), F3(~2, ~0x14, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "subcc", F3(2, 0x14, 1), F3(~2, ~0x14, ~1), "1,i,d", 0, v6 }, /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "subx", F3(2, 0x0c, 0), F3(~2, ~0x0c, ~0)|ASI(~0), "1,2,d", F_ALIAS, v6 }, { "subx", F3(2, 0x0c, 1), F3(~2, ~0x0c, ~1), "1,i,d", F_ALIAS, v6 }, { "subc", F3(2, 0x0c, 0), F3(~2, ~0x0c, ~0)|ASI(~0), "1,2,d", 0, v9 }, { "subc", F3(2, 0x0c, 1), F3(~2, ~0x0c, ~1), "1,i,d", 0, v9 }, /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "subxcc", F3(2, 0x1c, 0), F3(~2, ~0x1c, ~0)|ASI(~0), "1,2,d", F_ALIAS, v6 }, { "subxcc", F3(2, 0x1c, 1), F3(~2, ~0x1c, ~1), "1,i,d", F_ALIAS, v6 }, { "subccc", F3(2, 0x1c, 0), F3(~2, ~0x1c, ~0)|ASI(~0), "1,2,d", 0, v9 }, { "subccc", F3(2, 0x1c, 1), F3(~2, ~0x1c, ~1), "1,i,d", 0, v9 }, { "and", F3(2, 0x01, 0), F3(~2, ~0x01, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "and", F3(2, 0x01, 1), F3(~2, ~0x01, ~1), "1,i,d", 0, v6 }, { "and", F3(2, 0x01, 1), F3(~2, ~0x01, ~1), "i,1,d", 0, v6 }, { "andcc", F3(2, 0x11, 0), F3(~2, ~0x11, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "andcc", F3(2, 0x11, 1), F3(~2, ~0x11, ~1), "1,i,d", 0, v6 }, { "andcc", F3(2, 0x11, 1), F3(~2, ~0x11, ~1), "i,1,d", 0, v6 }, { "dec", F3(2, 0x04, 1)|SIMM13(0x1), F3(~2, ~0x04, ~1)|SIMM13(~0x0001), "r", F_ALIAS, v6 }, /* sub rd,1,rd */ { "dec", F3(2, 0x04, 1), F3(~2, ~0x04, ~1), "i,r", F_ALIAS, v8 }, /* sub rd,imm,rd */ { "deccc", F3(2, 0x14, 1)|SIMM13(0x1), F3(~2, ~0x14, ~1)|SIMM13(~0x0001), "r", F_ALIAS, v6 }, /* subcc rd,1,rd */ { "deccc", F3(2, 0x14, 1), F3(~2, ~0x14, ~1), "i,r", F_ALIAS, v8 }, /* subcc rd,imm,rd */ { "inc", F3(2, 0x00, 1)|SIMM13(0x1), F3(~2, ~0x00, ~1)|SIMM13(~0x0001), "r", F_ALIAS, v6 }, /* add rd,1,rd */ { "inc", F3(2, 0x00, 1), F3(~2, ~0x00, ~1), "i,r", F_ALIAS, v8 }, /* add rd,imm,rd */ { "inccc", F3(2, 0x10, 1)|SIMM13(0x1), F3(~2, ~0x10, ~1)|SIMM13(~0x0001), "r", F_ALIAS, v6 }, /* addcc rd,1,rd */ { "inccc", F3(2, 0x10, 1), F3(~2, ~0x10, ~1), "i,r", F_ALIAS, v8 }, /* addcc rd,imm,rd */ { "btst", F3(2, 0x11, 0), F3(~2, ~0x11, ~0)|RD_G0|ASI(~0), "1,2", F_ALIAS, v6 }, /* andcc rs1,rs2,%g0 */ { "btst", F3(2, 0x11, 1), F3(~2, ~0x11, ~1)|RD_G0, "i,1", F_ALIAS, v6 }, /* andcc rs1,i,%g0 */ { "neg", F3(2, 0x04, 0), F3(~2, ~0x04, ~0)|RS1_G0|ASI(~0), "2,d", F_ALIAS, v6 }, /* sub %g0,rs2,rd */ { "neg", F3(2, 0x04, 0), F3(~2, ~0x04, ~0)|RS1_G0|ASI(~0), "r", F_ALIAS, v6 }, /* sub %g0,rd,rd */ { "add", F3(2, 0x00, 0), F3(~2, ~0x00, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "add", F3(2, 0x00, 1), F3(~2, ~0x00, ~1), "1,i,d", 0, v6 }, { "add", F3(2, 0x00, 1), F3(~2, ~0x00, ~1), "i,1,d", 0, v6 }, { "addcc", F3(2, 0x10, 0), F3(~2, ~0x10, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "addcc", F3(2, 0x10, 1), F3(~2, ~0x10, ~1), "1,i,d", 0, v6 }, { "addcc", F3(2, 0x10, 1), F3(~2, ~0x10, ~1), "i,1,d", 0, v6 }, /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "addx", F3(2, 0x08, 0), F3(~2, ~0x08, ~0)|ASI(~0), "1,2,d", F_ALIAS, v6 }, { "addx", F3(2, 0x08, 1), F3(~2, ~0x08, ~1), "1,i,d", F_ALIAS, v6 }, { "addx", F3(2, 0x08, 1), F3(~2, ~0x08, ~1), "i,1,d", F_ALIAS, v6 }, { "addc", F3(2, 0x08, 0), F3(~2, ~0x08, ~0)|ASI(~0), "1,2,d", 0, v9 }, { "addc", F3(2, 0x08, 1), F3(~2, ~0x08, ~1), "1,i,d", 0, v9 }, { "addc", F3(2, 0x08, 1), F3(~2, ~0x08, ~1), "i,1,d", 0, v9 }, /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "addxcc", F3(2, 0x18, 0), F3(~2, ~0x18, ~0)|ASI(~0), "1,2,d", F_ALIAS, v6 }, { "addxcc", F3(2, 0x18, 1), F3(~2, ~0x18, ~1), "1,i,d", F_ALIAS, v6 }, { "addxcc", F3(2, 0x18, 1), F3(~2, ~0x18, ~1), "i,1,d", F_ALIAS, v6 }, { "addccc", F3(2, 0x18, 0), F3(~2, ~0x18, ~0)|ASI(~0), "1,2,d", 0, v9 }, { "addccc", F3(2, 0x18, 1), F3(~2, ~0x18, ~1), "1,i,d", 0, v9 }, { "addccc", F3(2, 0x18, 1), F3(~2, ~0x18, ~1), "i,1,d", 0, v9 }, { "smul", F3(2, 0x0b, 0), F3(~2, ~0x0b, ~0)|ASI(~0), "1,2,d", 0, v8 }, { "smul", F3(2, 0x0b, 1), F3(~2, ~0x0b, ~1), "1,i,d", 0, v8 }, { "smul", F3(2, 0x0b, 1), F3(~2, ~0x0b, ~1), "i,1,d", 0, v8 }, { "smulcc", F3(2, 0x1b, 0), F3(~2, ~0x1b, ~0)|ASI(~0), "1,2,d", 0, v8 }, { "smulcc", F3(2, 0x1b, 1), F3(~2, ~0x1b, ~1), "1,i,d", 0, v8 }, { "smulcc", F3(2, 0x1b, 1), F3(~2, ~0x1b, ~1), "i,1,d", 0, v8 }, { "umul", F3(2, 0x0a, 0), F3(~2, ~0x0a, ~0)|ASI(~0), "1,2,d", 0, v8 }, { "umul", F3(2, 0x0a, 1), F3(~2, ~0x0a, ~1), "1,i,d", 0, v8 }, { "umul", F3(2, 0x0a, 1), F3(~2, ~0x0a, ~1), "i,1,d", 0, v8 }, { "umulcc", F3(2, 0x1a, 0), F3(~2, ~0x1a, ~0)|ASI(~0), "1,2,d", 0, v8 }, { "umulcc", F3(2, 0x1a, 1), F3(~2, ~0x1a, ~1), "1,i,d", 0, v8 }, { "umulcc", F3(2, 0x1a, 1), F3(~2, ~0x1a, ~1), "i,1,d", 0, v8 }, { "sdiv", F3(2, 0x0f, 0), F3(~2, ~0x0f, ~0)|ASI(~0), "1,2,d", 0, v8 }, { "sdiv", F3(2, 0x0f, 1), F3(~2, ~0x0f, ~1), "1,i,d", 0, v8 }, { "sdiv", F3(2, 0x0f, 1), F3(~2, ~0x0f, ~1), "i,1,d", 0, v8 }, { "sdivcc", F3(2, 0x1f, 0), F3(~2, ~0x1f, ~0)|ASI(~0), "1,2,d", 0, v8 }, { "sdivcc", F3(2, 0x1f, 1), F3(~2, ~0x1f, ~1), "1,i,d", 0, v8 }, { "sdivcc", F3(2, 0x1f, 1), F3(~2, ~0x1f, ~1), "i,1,d", 0, v8 }, { "udiv", F3(2, 0x0e, 0), F3(~2, ~0x0e, ~0)|ASI(~0), "1,2,d", 0, v8 }, { "udiv", F3(2, 0x0e, 1), F3(~2, ~0x0e, ~1), "1,i,d", 0, v8 }, { "udiv", F3(2, 0x0e, 1), F3(~2, ~0x0e, ~1), "i,1,d", 0, v8 }, { "udivcc", F3(2, 0x1e, 0), F3(~2, ~0x1e, ~0)|ASI(~0), "1,2,d", 0, v8 }, { "udivcc", F3(2, 0x1e, 1), F3(~2, ~0x1e, ~1), "1,i,d", 0, v8 }, { "udivcc", F3(2, 0x1e, 1), F3(~2, ~0x1e, ~1), "i,1,d", 0, v8 }, { "mulx", F3(2, 0x09, 0), F3(~2, ~0x09, ~0)|ASI(~0), "1,2,d", 0, v9 }, { "mulx", F3(2, 0x09, 1), F3(~2, ~0x09, ~1), "1,i,d", 0, v9 }, { "sdivx", F3(2, 0x2d, 0), F3(~2, ~0x2d, ~0)|ASI(~0), "1,2,d", 0, v9 }, { "sdivx", F3(2, 0x2d, 1), F3(~2, ~0x2d, ~1), "1,i,d", 0, v9 }, { "udivx", F3(2, 0x0d, 0), F3(~2, ~0x0d, ~0)|ASI(~0), "1,2,d", 0, v9 }, { "udivx", F3(2, 0x0d, 1), F3(~2, ~0x0d, ~1), "1,i,d", 0, v9 }, { "call", F1(0x1), F1(~0x1), "L", F_JSR|F_DELAYED, v6 }, { "call", F1(0x1), F1(~0x1), "L,#", F_JSR|F_DELAYED, v6 }, { "call", F3(2, 0x38, 0)|RD(0xf), F3(~2, ~0x38, ~0)|RD(~0xf)|ASI(~0), "1+2", F_JSR|F_DELAYED, v6 }, /* jmpl rs1+rs2,%o7 */ { "call", F3(2, 0x38, 0)|RD(0xf), F3(~2, ~0x38, ~0)|RD(~0xf)|ASI(~0), "1+2,#", F_JSR|F_DELAYED, v6 }, { "call", F3(2, 0x38, 0)|RD(0xf), F3(~2, ~0x38, ~0)|RD(~0xf)|ASI_RS2(~0), "1", F_JSR|F_DELAYED, v6 }, /* jmpl rs1+%g0,%o7 */ { "call", F3(2, 0x38, 0)|RD(0xf), F3(~2, ~0x38, ~0)|RD(~0xf)|ASI_RS2(~0), "1,#", F_JSR|F_DELAYED, v6 }, { "call", F3(2, 0x38, 1)|RD(0xf), F3(~2, ~0x38, ~1)|RD(~0xf), "1+i", F_JSR|F_DELAYED, v6 }, /* jmpl rs1+i,%o7 */ { "call", F3(2, 0x38, 1)|RD(0xf), F3(~2, ~0x38, ~1)|RD(~0xf), "1+i,#", F_JSR|F_DELAYED, v6 }, { "call", F3(2, 0x38, 1)|RD(0xf), F3(~2, ~0x38, ~1)|RD(~0xf), "i+1", F_JSR|F_DELAYED, v6 }, /* jmpl i+rs1,%o7 */ { "call", F3(2, 0x38, 1)|RD(0xf), F3(~2, ~0x38, ~1)|RD(~0xf), "i+1,#", F_JSR|F_DELAYED, v6 }, { "call", F3(2, 0x38, 1)|RD(0xf), F3(~2, ~0x38, ~1)|RD(~0xf)|RS1_G0, "i", F_JSR|F_DELAYED, v6 }, /* jmpl %g0+i,%o7 */ { "call", F3(2, 0x38, 1)|RD(0xf), F3(~2, ~0x38, ~1)|RD(~0xf)|RS1_G0, "i,#", F_JSR|F_DELAYED, v6 }, { "call", F3(2, 0x38, 1)|RD(0xf), F3(~2, ~0x38, ~1)|RD(~0xf)|SIMM13(~0), "1", F_JSR|F_DELAYED, v6 }, /* jmpl rs1+0,%o7 */ { "call", F3(2, 0x38, 1)|RD(0xf), F3(~2, ~0x38, ~1)|RD(~0xf)|SIMM13(~0), "1,#", F_JSR|F_DELAYED, v6 }, /* Conditional instructions. Because this part of the table was such a mess earlier, I have macrofied it so that all the branches and traps are generated from a single-line description of each condition value. John Gilmore. */ /* Define branches -- one annulled, one without, etc. */ #define br(opcode, mask, lose, flags) \ { opcode, (mask)|ANNUL, (lose), ",a l", (flags), v6 }, \ { opcode, (mask) , (lose)|ANNUL, "l", (flags), v6 } #define brx(opcode, mask, lose, flags) /* v9 */ \ { opcode, (mask)|(2<<20)|BPRED, ANNUL|(lose), "Z,G", (flags), v9 }, \ { opcode, (mask)|(2<<20)|BPRED, ANNUL|(lose), ",T Z,G", (flags), v9 }, \ { opcode, (mask)|(2<<20)|BPRED|ANNUL, (lose), ",a Z,G", (flags), v9 }, \ { opcode, (mask)|(2<<20)|BPRED|ANNUL, (lose), ",a,T Z,G", (flags), v9 }, \ { opcode, (mask)|(2<<20), ANNUL|BPRED|(lose), ",N Z,G", (flags), v9 }, \ { opcode, (mask)|(2<<20)|ANNUL, BPRED|(lose), ",a,N Z,G", (flags), v9 }, \ { opcode, (mask)|BPRED, ANNUL|(lose)|(2<<20), "z,G", (flags), v9 }, \ { opcode, (mask)|BPRED, ANNUL|(lose)|(2<<20), ",T z,G", (flags), v9 }, \ { opcode, (mask)|BPRED|ANNUL, (lose)|(2<<20), ",a z,G", (flags), v9 }, \ { opcode, (mask)|BPRED|ANNUL, (lose)|(2<<20), ",a,T z,G", (flags), v9 }, \ { opcode, (mask), ANNUL|BPRED|(lose)|(2<<20), ",N z,G", (flags), v9 }, \ { opcode, (mask)|ANNUL, BPRED|(lose)|(2<<20), ",a,N z,G", (flags), v9 } /* Define four traps: reg+reg, reg + immediate, immediate alone, reg alone. */ #define tr(opcode, mask, lose, flags) \ { opcode, (mask)|(2<<11)|IMMED, (lose)|RS1_G0, "Z,i", (flags), v9 }, /* %g0 + imm */ \ { opcode, (mask)|(2<<11)|IMMED, (lose), "Z,1+i", (flags), v9 }, /* rs1 + imm */ \ { opcode, (mask)|(2<<11), IMMED|(lose), "Z,1+2", (flags), v9 }, /* rs1 + rs2 */ \ { opcode, (mask)|(2<<11), IMMED|(lose)|RS2_G0, "Z,1", (flags), v9 }, /* rs1 + %g0 */ \ { opcode, (mask)|IMMED, (lose)|RS1_G0, "z,i", (flags)|F_ALIAS, v9 }, /* %g0 + imm */ \ { opcode, (mask)|IMMED, (lose), "z,1+i", (flags)|F_ALIAS, v9 }, /* rs1 + imm */ \ { opcode, (mask), IMMED|(lose), "z,1+2", (flags)|F_ALIAS, v9 }, /* rs1 + rs2 */ \ { opcode, (mask), IMMED|(lose)|RS2_G0, "z,1", (flags)|F_ALIAS, v9 }, /* rs1 + %g0 */ \ { opcode, (mask)|IMMED, (lose)|RS1_G0, "i", (flags), v6 }, /* %g0 + imm */ \ { opcode, (mask)|IMMED, (lose), "1+i", (flags), v6 }, /* rs1 + imm */ \ { opcode, (mask), IMMED|(lose), "1+2", (flags), v6 }, /* rs1 + rs2 */ \ { opcode, (mask), IMMED|(lose)|RS2_G0, "1", (flags), v6 } /* rs1 + %g0 */ /* v9: We must put `brx' before `br', to ensure that we never match something v9: against an expression unless it is an expression. Otherwise, we end v9: up with undefined symbol tables entries, because they get added, but v9: are not deleted if the pattern fails to match. */ /* Define both branches and traps based on condition mask */ #define cond(bop, top, mask, flags) \ brx(bop, F2(0, 1)|(mask), F2(~0, ~1)|((~mask)&COND(~0)), F_DELAYED|(flags)), /* v9 */ \ br(bop, F2(0, 2)|(mask), F2(~0, ~2)|((~mask)&COND(~0)), F_DELAYED|(flags)), \ tr(top, F3(2, 0x3a, 0)|(mask), F3(~2, ~0x3a, 0)|((~mask)&COND(~0)), ((flags) & ~(F_UNBR|F_CONDBR))) /* Define all the conditions, all the branches, all the traps. */ /* Standard branch, trap mnemonics */ cond ("b", "ta", CONDA, F_UNBR), /* Alternative form (just for assembly, not for disassembly) */ cond ("ba", "t", CONDA, F_UNBR|F_ALIAS), cond ("bcc", "tcc", CONDCC, F_CONDBR), cond ("bcs", "tcs", CONDCS, F_CONDBR), cond ("be", "te", CONDE, F_CONDBR), cond ("bg", "tg", CONDG, F_CONDBR), cond ("bgt", "tgt", CONDG, F_CONDBR|F_ALIAS), cond ("bge", "tge", CONDGE, F_CONDBR), cond ("bgeu", "tgeu", CONDGEU, F_CONDBR|F_ALIAS), /* for cc */ cond ("bgu", "tgu", CONDGU, F_CONDBR), cond ("bl", "tl", CONDL, F_CONDBR), cond ("blt", "tlt", CONDL, F_CONDBR|F_ALIAS), cond ("ble", "tle", CONDLE, F_CONDBR), cond ("bleu", "tleu", CONDLEU, F_CONDBR), cond ("blu", "tlu", CONDLU, F_CONDBR|F_ALIAS), /* for cs */ cond ("bn", "tn", CONDN, F_CONDBR), cond ("bne", "tne", CONDNE, F_CONDBR), cond ("bneg", "tneg", CONDNEG, F_CONDBR), cond ("bnz", "tnz", CONDNZ, F_CONDBR|F_ALIAS), /* for ne */ cond ("bpos", "tpos", CONDPOS, F_CONDBR), cond ("bvc", "tvc", CONDVC, F_CONDBR), cond ("bvs", "tvs", CONDVS, F_CONDBR), cond ("bz", "tz", CONDZ, F_CONDBR|F_ALIAS), /* for e */ #undef cond #undef br #undef brr /* v9 */ #undef tr #define brr(opcode, mask, lose, flags) /* v9 */ \ { opcode, (mask)|BPRED, ANNUL|(lose), "1,k", F_DELAYED|(flags), v9 }, \ { opcode, (mask)|BPRED, ANNUL|(lose), ",T 1,k", F_DELAYED|(flags), v9 }, \ { opcode, (mask)|BPRED|ANNUL, (lose), ",a 1,k", F_DELAYED|(flags), v9 }, \ { opcode, (mask)|BPRED|ANNUL, (lose), ",a,T 1,k", F_DELAYED|(flags), v9 }, \ { opcode, (mask), ANNUL|BPRED|(lose), ",N 1,k", F_DELAYED|(flags), v9 }, \ { opcode, (mask)|ANNUL, BPRED|(lose), ",a,N 1,k", F_DELAYED|(flags), v9 } #define condr(bop, mask, flags) /* v9 */ \ brr(bop, F2(0, 3)|COND(mask), F2(~0, ~3)|COND(~(mask)), (flags)) /* v9 */ /* v9 */ condr("brnz", 0x5, F_CONDBR), /* v9 */ condr("brz", 0x1, F_CONDBR), /* v9 */ condr("brgez", 0x7, F_CONDBR), /* v9 */ condr("brlz", 0x3, F_CONDBR), /* v9 */ condr("brlez", 0x2, F_CONDBR), /* v9 */ condr("brgz", 0x6, F_CONDBR), #undef condr /* v9 */ #undef brr /* v9 */ #define movr(opcode, mask, flags) /* v9 */ \ { opcode, F3(2, 0x2f, 0)|RCOND(mask), F3(~2, ~0x2f, ~0)|RCOND(~(mask)), "1,2,d", (flags), v9 }, \ { opcode, F3(2, 0x2f, 1)|RCOND(mask), F3(~2, ~0x2f, ~1)|RCOND(~(mask)), "1,j,d", (flags), v9 } #define fmrrs(opcode, mask, lose, flags) /* v9 */ \ { opcode, (mask), (lose), "1,f,g", (flags), v9 } #define fmrrd(opcode, mask, lose, flags) /* v9 */ \ { opcode, (mask), (lose), "1,B,H", (flags), v9 } #define fmrrq(opcode, mask, lose, flags) /* v9 */ \ { opcode, (mask), (lose), "1,R,J", (flags), v9 } #define fmovrs(mop, mask, flags) /* v9 */ \ fmrrs(mop, F3(2, 0x35, 0)|OPF_LOW5(5)|RCOND(mask), F3(~2, ~0x35, 0)|OPF_LOW5(~5)|RCOND(~(mask)), (flags)) /* v9 */ #define fmovrd(mop, mask, flags) /* v9 */ \ fmrrd(mop, F3(2, 0x35, 0)|OPF_LOW5(6)|RCOND(mask), F3(~2, ~0x35, 0)|OPF_LOW5(~6)|RCOND(~(mask)), (flags)) /* v9 */ #define fmovrq(mop, mask, flags) /* v9 */ \ fmrrq(mop, F3(2, 0x35, 0)|OPF_LOW5(7)|RCOND(mask), F3(~2, ~0x35, 0)|OPF_LOW5(~7)|RCOND(~(mask)), (flags)) /* v9 */ /* v9 */ movr("movrne", 0x5, 0), /* v9 */ movr("movre", 0x1, 0), /* v9 */ movr("movrgez", 0x7, 0), /* v9 */ movr("movrlz", 0x3, 0), /* v9 */ movr("movrlez", 0x2, 0), /* v9 */ movr("movrgz", 0x6, 0), /* v9 */ movr("movrnz", 0x5, F_ALIAS), /* v9 */ movr("movrz", 0x1, F_ALIAS), /* v9 */ fmovrs("fmovrsne", 0x5, 0), /* v9 */ fmovrs("fmovrse", 0x1, 0), /* v9 */ fmovrs("fmovrsgez", 0x7, 0), /* v9 */ fmovrs("fmovrslz", 0x3, 0), /* v9 */ fmovrs("fmovrslez", 0x2, 0), /* v9 */ fmovrs("fmovrsgz", 0x6, 0), /* v9 */ fmovrs("fmovrsnz", 0x5, F_ALIAS), /* v9 */ fmovrs("fmovrsz", 0x1, F_ALIAS), /* v9 */ fmovrd("fmovrdne", 0x5, 0), /* v9 */ fmovrd("fmovrde", 0x1, 0), /* v9 */ fmovrd("fmovrdgez", 0x7, 0), /* v9 */ fmovrd("fmovrdlz", 0x3, 0), /* v9 */ fmovrd("fmovrdlez", 0x2, 0), /* v9 */ fmovrd("fmovrdgz", 0x6, 0), /* v9 */ fmovrd("fmovrdnz", 0x5, F_ALIAS), /* v9 */ fmovrd("fmovrdz", 0x1, F_ALIAS), /* v9 */ fmovrq("fmovrqne", 0x5, 0), /* v9 */ fmovrq("fmovrqe", 0x1, 0), /* v9 */ fmovrq("fmovrqgez", 0x7, 0), /* v9 */ fmovrq("fmovrqlz", 0x3, 0), /* v9 */ fmovrq("fmovrqlez", 0x2, 0), /* v9 */ fmovrq("fmovrqgz", 0x6, 0), /* v9 */ fmovrq("fmovrqnz", 0x5, F_ALIAS), /* v9 */ fmovrq("fmovrqz", 0x1, F_ALIAS), #undef movr /* v9 */ #undef fmovr /* v9 */ #undef fmrr /* v9 */ #define movicc(opcode, cond, flags) /* v9 */ \ { opcode, F3(2, 0x2c, 0)|MCOND(cond,1)|ICC, F3(~2, ~0x2c, ~0)|MCOND(~cond,~1)|XCC|(1<<11), "z,2,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 1)|MCOND(cond,1)|ICC, F3(~2, ~0x2c, ~1)|MCOND(~cond,~1)|XCC|(1<<11), "z,I,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 0)|MCOND(cond,1)|XCC, F3(~2, ~0x2c, ~0)|MCOND(~cond,~1)|(1<<11), "Z,2,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 1)|MCOND(cond,1)|XCC, F3(~2, ~0x2c, ~1)|MCOND(~cond,~1)|(1<<11), "Z,I,d", flags, v9 } #define movfcc(opcode, fcond, flags) /* v9 */ \ { opcode, F3(2, 0x2c, 0)|FCC(0)|MCOND(fcond,0), MCOND(~fcond,~0)|FCC(~0)|F3(~2, ~0x2c, ~0), "6,2,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 1)|FCC(0)|MCOND(fcond,0), MCOND(~fcond,~0)|FCC(~0)|F3(~2, ~0x2c, ~1), "6,I,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 0)|FCC(1)|MCOND(fcond,0), MCOND(~fcond,~0)|FCC(~1)|F3(~2, ~0x2c, ~0), "7,2,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 1)|FCC(1)|MCOND(fcond,0), MCOND(~fcond,~0)|FCC(~1)|F3(~2, ~0x2c, ~1), "7,I,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 0)|FCC(2)|MCOND(fcond,0), MCOND(~fcond,~0)|FCC(~2)|F3(~2, ~0x2c, ~0), "8,2,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 1)|FCC(2)|MCOND(fcond,0), MCOND(~fcond,~0)|FCC(~2)|F3(~2, ~0x2c, ~1), "8,I,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 0)|FCC(3)|MCOND(fcond,0), MCOND(~fcond,~0)|FCC(~3)|F3(~2, ~0x2c, ~0), "9,2,d", flags, v9 }, \ { opcode, F3(2, 0x2c, 1)|FCC(3)|MCOND(fcond,0), MCOND(~fcond,~0)|FCC(~3)|F3(~2, ~0x2c, ~1), "9,I,d", flags, v9 } #define movcc(opcode, cond, fcond, flags) /* v9 */ \ movfcc (opcode, fcond, flags), /* v9 */ \ movicc (opcode, cond, flags) /* v9 */ /* v9 */ movcc ("mova", CONDA, FCONDA, 0), /* v9 */ movicc ("movcc", CONDCC, 0), /* v9 */ movicc ("movgeu", CONDGEU, F_ALIAS), /* v9 */ movicc ("movcs", CONDCS, 0), /* v9 */ movicc ("movlu", CONDLU, F_ALIAS), /* v9 */ movcc ("move", CONDE, FCONDE, 0), /* v9 */ movcc ("movg", CONDG, FCONDG, 0), /* v9 */ movcc ("movge", CONDGE, FCONDGE, 0), /* v9 */ movicc ("movgu", CONDGU, 0), /* v9 */ movcc ("movl", CONDL, FCONDL, 0), /* v9 */ movcc ("movle", CONDLE, FCONDLE, 0), /* v9 */ movicc ("movleu", CONDLEU, 0), /* v9 */ movfcc ("movlg", FCONDLG, 0), /* v9 */ movcc ("movn", CONDN, FCONDN, 0), /* v9 */ movcc ("movne", CONDNE, FCONDNE, 0), /* v9 */ movicc ("movneg", CONDNEG, 0), /* v9 */ movcc ("movnz", CONDNZ, FCONDNZ, F_ALIAS), /* v9 */ movfcc ("movo", FCONDO, 0), /* v9 */ movicc ("movpos", CONDPOS, 0), /* v9 */ movfcc ("movu", FCONDU, 0), /* v9 */ movfcc ("movue", FCONDUE, 0), /* v9 */ movfcc ("movug", FCONDUG, 0), /* v9 */ movfcc ("movuge", FCONDUGE, 0), /* v9 */ movfcc ("movul", FCONDUL, 0), /* v9 */ movfcc ("movule", FCONDULE, 0), /* v9 */ movicc ("movvc", CONDVC, 0), /* v9 */ movicc ("movvs", CONDVS, 0), /* v9 */ movcc ("movz", CONDZ, FCONDZ, F_ALIAS), #undef movicc /* v9 */ #undef movfcc /* v9 */ #undef movcc /* v9 */ #define FM_SF 1 /* v9 - values for fpsize */ #define FM_DF 2 /* v9 */ #define FM_QF 3 /* v9 */ #define fmovicc(opcode, fpsize, cond, flags) /* v9 */ \ { opcode, F3F(2, 0x35, 0x100+fpsize)|MCOND(cond,0), F3F(~2, ~0x35, ~(0x100+fpsize))|MCOND(~cond,~0), "z,f,g", flags, v9 }, \ { opcode, F3F(2, 0x35, 0x180+fpsize)|MCOND(cond,0), F3F(~2, ~0x35, ~(0x180+fpsize))|MCOND(~cond,~0), "Z,f,g", flags, v9 } #define fmovfcc(opcode, fpsize, fcond, flags) /* v9 */ \ { opcode, F3F(2, 0x35, 0x000+fpsize)|MCOND(fcond,0), F3F(~2, ~0x35, ~(0x000+fpsize))|MCOND(~fcond,~0), "6,f,g", flags, v9 }, \ { opcode, F3F(2, 0x35, 0x040+fpsize)|MCOND(fcond,0), F3F(~2, ~0x35, ~(0x040+fpsize))|MCOND(~fcond,~0), "7,f,g", flags, v9 }, \ { opcode, F3F(2, 0x35, 0x080+fpsize)|MCOND(fcond,0), F3F(~2, ~0x35, ~(0x080+fpsize))|MCOND(~fcond,~0), "8,f,g", flags, v9 }, \ { opcode, F3F(2, 0x35, 0x0c0+fpsize)|MCOND(fcond,0), F3F(~2, ~0x35, ~(0x0c0+fpsize))|MCOND(~fcond,~0), "9,f,g", flags, v9 } /* FIXME: use fmovicc/fmovfcc? */ /* v9 */ #define fmovcc(opcode, fpsize, cond, fcond, flags) /* v9 */ \ { opcode, F3F(2, 0x35, 0x100+fpsize)|MCOND(cond,0), F3F(~2, ~0x35, ~(0x100+fpsize))|MCOND(~cond,~0), "z,f,g", flags, v9 }, \ { opcode, F3F(2, 0x35, 0x000+fpsize)|MCOND(fcond,0), F3F(~2, ~0x35, ~(0x000+fpsize))|MCOND(~fcond,~0), "6,f,g", flags, v9 }, \ { opcode, F3F(2, 0x35, 0x180+fpsize)|MCOND(cond,0), F3F(~2, ~0x35, ~(0x180+fpsize))|MCOND(~cond,~0), "Z,f,g", flags, v9 }, \ { opcode, F3F(2, 0x35, 0x040+fpsize)|MCOND(fcond,0), F3F(~2, ~0x35, ~(0x040+fpsize))|MCOND(~fcond,~0), "7,f,g", flags, v9 }, \ { opcode, F3F(2, 0x35, 0x080+fpsize)|MCOND(fcond,0), F3F(~2, ~0x35, ~(0x080+fpsize))|MCOND(~fcond,~0), "8,f,g", flags, v9 }, \ { opcode, F3F(2, 0x35, 0x0c0+fpsize)|MCOND(fcond,0), F3F(~2, ~0x35, ~(0x0c0+fpsize))|MCOND(~fcond,~0), "9,f,g", flags, v9 } /* v9 */ fmovcc ("fmovda", FM_DF, CONDA, FCONDA, 0), /* v9 */ fmovcc ("fmovqa", FM_QF, CONDA, FCONDA, 0), /* v9 */ fmovcc ("fmovsa", FM_SF, CONDA, FCONDA, 0), /* v9 */ fmovicc ("fmovdcc", FM_DF, CONDCC, 0), /* v9 */ fmovicc ("fmovqcc", FM_QF, CONDCC, 0), /* v9 */ fmovicc ("fmovscc", FM_SF, CONDCC, 0), /* v9 */ fmovicc ("fmovdcs", FM_DF, CONDCS, 0), /* v9 */ fmovicc ("fmovqcs", FM_QF, CONDCS, 0), /* v9 */ fmovicc ("fmovscs", FM_SF, CONDCS, 0), /* v9 */ fmovcc ("fmovde", FM_DF, CONDE, FCONDE, 0), /* v9 */ fmovcc ("fmovqe", FM_QF, CONDE, FCONDE, 0), /* v9 */ fmovcc ("fmovse", FM_SF, CONDE, FCONDE, 0), /* v9 */ fmovcc ("fmovdg", FM_DF, CONDG, FCONDG, 0), /* v9 */ fmovcc ("fmovqg", FM_QF, CONDG, FCONDG, 0), /* v9 */ fmovcc ("fmovsg", FM_SF, CONDG, FCONDG, 0), /* v9 */ fmovcc ("fmovdge", FM_DF, CONDGE, FCONDGE, 0), /* v9 */ fmovcc ("fmovqge", FM_QF, CONDGE, FCONDGE, 0), /* v9 */ fmovcc ("fmovsge", FM_SF, CONDGE, FCONDGE, 0), /* v9 */ fmovicc ("fmovdgeu", FM_DF, CONDGEU, F_ALIAS), /* v9 */ fmovicc ("fmovqgeu", FM_QF, CONDGEU, F_ALIAS), /* v9 */ fmovicc ("fmovsgeu", FM_SF, CONDGEU, F_ALIAS), /* v9 */ fmovicc ("fmovdgu", FM_DF, CONDGU, 0), /* v9 */ fmovicc ("fmovqgu", FM_QF, CONDGU, 0), /* v9 */ fmovicc ("fmovsgu", FM_SF, CONDGU, 0), /* v9 */ fmovcc ("fmovdl", FM_DF, CONDL, FCONDL, 0), /* v9 */ fmovcc ("fmovql", FM_QF, CONDL, FCONDL, 0), /* v9 */ fmovcc ("fmovsl", FM_SF, CONDL, FCONDL, 0), /* v9 */ fmovcc ("fmovdle", FM_DF, CONDLE, FCONDLE, 0), /* v9 */ fmovcc ("fmovqle", FM_QF, CONDLE, FCONDLE, 0), /* v9 */ fmovcc ("fmovsle", FM_SF, CONDLE, FCONDLE, 0), /* v9 */ fmovicc ("fmovdleu", FM_DF, CONDLEU, 0), /* v9 */ fmovicc ("fmovqleu", FM_QF, CONDLEU, 0), /* v9 */ fmovicc ("fmovsleu", FM_SF, CONDLEU, 0), /* v9 */ fmovfcc ("fmovdlg", FM_DF, FCONDLG, 0), /* v9 */ fmovfcc ("fmovqlg", FM_QF, FCONDLG, 0), /* v9 */ fmovfcc ("fmovslg", FM_SF, FCONDLG, 0), /* v9 */ fmovicc ("fmovdlu", FM_DF, CONDLU, F_ALIAS), /* v9 */ fmovicc ("fmovqlu", FM_QF, CONDLU, F_ALIAS), /* v9 */ fmovicc ("fmovslu", FM_SF, CONDLU, F_ALIAS), /* v9 */ fmovcc ("fmovdn", FM_DF, CONDN, FCONDN, 0), /* v9 */ fmovcc ("fmovqn", FM_QF, CONDN, FCONDN, 0), /* v9 */ fmovcc ("fmovsn", FM_SF, CONDN, FCONDN, 0), /* v9 */ fmovcc ("fmovdne", FM_DF, CONDNE, FCONDNE, 0), /* v9 */ fmovcc ("fmovqne", FM_QF, CONDNE, FCONDNE, 0), /* v9 */ fmovcc ("fmovsne", FM_SF, CONDNE, FCONDNE, 0), /* v9 */ fmovicc ("fmovdneg", FM_DF, CONDNEG, 0), /* v9 */ fmovicc ("fmovqneg", FM_QF, CONDNEG, 0), /* v9 */ fmovicc ("fmovsneg", FM_SF, CONDNEG, 0), /* v9 */ fmovcc ("fmovdnz", FM_DF, CONDNZ, FCONDNZ, F_ALIAS), /* v9 */ fmovcc ("fmovqnz", FM_QF, CONDNZ, FCONDNZ, F_ALIAS), /* v9 */ fmovcc ("fmovsnz", FM_SF, CONDNZ, FCONDNZ, F_ALIAS), /* v9 */ fmovfcc ("fmovdo", FM_DF, FCONDO, 0), /* v9 */ fmovfcc ("fmovqo", FM_QF, FCONDO, 0), /* v9 */ fmovfcc ("fmovso", FM_SF, FCONDO, 0), /* v9 */ fmovicc ("fmovdpos", FM_DF, CONDPOS, 0), /* v9 */ fmovicc ("fmovqpos", FM_QF, CONDPOS, 0), /* v9 */ fmovicc ("fmovspos", FM_SF, CONDPOS, 0), /* v9 */ fmovfcc ("fmovdu", FM_DF, FCONDU, 0), /* v9 */ fmovfcc ("fmovqu", FM_QF, FCONDU, 0), /* v9 */ fmovfcc ("fmovsu", FM_SF, FCONDU, 0), /* v9 */ fmovfcc ("fmovdue", FM_DF, FCONDUE, 0), /* v9 */ fmovfcc ("fmovque", FM_QF, FCONDUE, 0), /* v9 */ fmovfcc ("fmovsue", FM_SF, FCONDUE, 0), /* v9 */ fmovfcc ("fmovdug", FM_DF, FCONDUG, 0), /* v9 */ fmovfcc ("fmovqug", FM_QF, FCONDUG, 0), /* v9 */ fmovfcc ("fmovsug", FM_SF, FCONDUG, 0), /* v9 */ fmovfcc ("fmovduge", FM_DF, FCONDUGE, 0), /* v9 */ fmovfcc ("fmovquge", FM_QF, FCONDUGE, 0), /* v9 */ fmovfcc ("fmovsuge", FM_SF, FCONDUGE, 0), /* v9 */ fmovfcc ("fmovdul", FM_DF, FCONDUL, 0), /* v9 */ fmovfcc ("fmovqul", FM_QF, FCONDUL, 0), /* v9 */ fmovfcc ("fmovsul", FM_SF, FCONDUL, 0), /* v9 */ fmovfcc ("fmovdule", FM_DF, FCONDULE, 0), /* v9 */ fmovfcc ("fmovqule", FM_QF, FCONDULE, 0), /* v9 */ fmovfcc ("fmovsule", FM_SF, FCONDULE, 0), /* v9 */ fmovicc ("fmovdvc", FM_DF, CONDVC, 0), /* v9 */ fmovicc ("fmovqvc", FM_QF, CONDVC, 0), /* v9 */ fmovicc ("fmovsvc", FM_SF, CONDVC, 0), /* v9 */ fmovicc ("fmovdvs", FM_DF, CONDVS, 0), /* v9 */ fmovicc ("fmovqvs", FM_QF, CONDVS, 0), /* v9 */ fmovicc ("fmovsvs", FM_SF, CONDVS, 0), /* v9 */ fmovcc ("fmovdz", FM_DF, CONDZ, FCONDZ, F_ALIAS), /* v9 */ fmovcc ("fmovqz", FM_QF, CONDZ, FCONDZ, F_ALIAS), /* v9 */ fmovcc ("fmovsz", FM_SF, CONDZ, FCONDZ, F_ALIAS), #undef fmovicc /* v9 */ #undef fmovfcc /* v9 */ #undef fmovcc /* v9 */ #undef FM_DF /* v9 */ #undef FM_QF /* v9 */ #undef FM_SF /* v9 */ #define brfc(opcode, mask, lose, flags) \ { opcode, (mask), ANNUL|(lose), "l", flags|F_DELAYED, v6 }, \ { opcode, (mask)|ANNUL, (lose), ",a l", flags|F_DELAYED, v6 } #define brfcx(opcode, mask, lose, flags) /* v9 */ \ { opcode, FBFCC(0)|(mask)|BPRED, ANNUL|FBFCC(~0)|(lose), "6,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(0)|(mask)|BPRED, ANNUL|FBFCC(~0)|(lose), ",T 6,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(0)|(mask)|BPRED|ANNUL, FBFCC(~0)|(lose), ",a 6,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(0)|(mask)|BPRED|ANNUL, FBFCC(~0)|(lose), ",a,T 6,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(0)|(mask), ANNUL|BPRED|FBFCC(~0)|(lose), ",N 6,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(0)|(mask)|ANNUL, BPRED|FBFCC(~0)|(lose), ",a,N 6,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(1)|(mask)|BPRED, ANNUL|FBFCC(~1)|(lose), "7,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(1)|(mask)|BPRED, ANNUL|FBFCC(~1)|(lose), ",T 7,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(1)|(mask)|BPRED|ANNUL, FBFCC(~1)|(lose), ",a 7,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(1)|(mask)|BPRED|ANNUL, FBFCC(~1)|(lose), ",a,T 7,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(1)|(mask), ANNUL|BPRED|FBFCC(~1)|(lose), ",N 7,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(1)|(mask)|ANNUL, BPRED|FBFCC(~1)|(lose), ",a,N 7,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(2)|(mask)|BPRED, ANNUL|FBFCC(~2)|(lose), "8,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(2)|(mask)|BPRED, ANNUL|FBFCC(~2)|(lose), ",T 8,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(2)|(mask)|BPRED|ANNUL, FBFCC(~2)|(lose), ",a 8,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(2)|(mask)|BPRED|ANNUL, FBFCC(~2)|(lose), ",a,T 8,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(2)|(mask), ANNUL|BPRED|FBFCC(~2)|(lose), ",N 8,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(2)|(mask)|ANNUL, BPRED|FBFCC(~2)|(lose), ",a,N 8,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(3)|(mask)|BPRED, ANNUL|FBFCC(~3)|(lose), "9,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(3)|(mask)|BPRED, ANNUL|FBFCC(~3)|(lose), ",T 9,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(3)|(mask)|BPRED|ANNUL, FBFCC(~3)|(lose), ",a 9,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(3)|(mask)|BPRED|ANNUL, FBFCC(~3)|(lose), ",a,T 9,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(3)|(mask), ANNUL|BPRED|FBFCC(~3)|(lose), ",N 9,G", flags|F_DELAYED, v9 }, \ { opcode, FBFCC(3)|(mask)|ANNUL, BPRED|FBFCC(~3)|(lose), ",a,N 9,G", flags|F_DELAYED, v9 } /* v9: We must put `brfcx' before `brfc', to ensure that we never match v9: something against an expression unless it is an expression. Otherwise, v9: we end up with undefined symbol tables entries, because they get added, v9: but are not deleted if the pattern fails to match. */ #define condfc(fop, cop, mask, flags) \ brfcx(fop, F2(0, 5)|COND(mask), F2(~0, ~5)|COND(~(mask)), flags), /* v9 */ \ brfc(fop, F2(0, 6)|COND(mask), F2(~0, ~6)|COND(~(mask)), flags), \ brfc(cop, F2(0, 7)|COND(mask), F2(~0, ~7)|COND(~(mask)), flags) #define condf(fop, mask, flags) \ brfcx(fop, F2(0, 5)|COND(mask), F2(~0, ~5)|COND(~(mask)), flags), /* v9 */ \ brfc(fop, F2(0, 6)|COND(mask), F2(~0, ~6)|COND(~(mask)), flags) condfc("fb", "cb", 0x8, 0), condfc("fba", "cba", 0x8, F_ALIAS), condfc("fbe", "cb0", 0x9, 0), condf("fbz", 0x9, F_ALIAS), condfc("fbg", "cb2", 0x6, 0), condfc("fbge", "cb02", 0xb, 0), condfc("fbl", "cb1", 0x4, 0), condfc("fble", "cb01", 0xd, 0), condfc("fblg", "cb12", 0x2, 0), condfc("fbn", "cbn", 0x0, 0), condfc("fbne", "cb123", 0x1, 0), condf("fbnz", 0x1, F_ALIAS), condfc("fbo", "cb012", 0xf, 0), condfc("fbu", "cb3", 0x7, 0), condfc("fbue", "cb03", 0xa, 0), condfc("fbug", "cb23", 0x5, 0), condfc("fbuge", "cb023", 0xc, 0), condfc("fbul", "cb13", 0x3, 0), condfc("fbule", "cb013", 0xe, 0), #undef condfc #undef brfc #undef brfcx /* v9 */ { "jmp", F3(2, 0x38, 0), F3(~2, ~0x38, ~0)|RD_G0|ASI(~0), "1+2", F_UNBR|F_DELAYED, v6 }, /* jmpl rs1+rs2,%g0 */ { "jmp", F3(2, 0x38, 0), F3(~2, ~0x38, ~0)|RD_G0|ASI_RS2(~0), "1", F_UNBR|F_DELAYED, v6 }, /* jmpl rs1+%g0,%g0 */ { "jmp", F3(2, 0x38, 1), F3(~2, ~0x38, ~1)|RD_G0, "1+i", F_UNBR|F_DELAYED, v6 }, /* jmpl rs1+i,%g0 */ { "jmp", F3(2, 0x38, 1), F3(~2, ~0x38, ~1)|RD_G0, "i+1", F_UNBR|F_DELAYED, v6 }, /* jmpl i+rs1,%g0 */ { "jmp", F3(2, 0x38, 1), F3(~2, ~0x38, ~1)|RD_G0|RS1_G0, "i", F_UNBR|F_DELAYED, v6 }, /* jmpl %g0+i,%g0 */ { "jmp", F3(2, 0x38, 1), F3(~2, ~0x38, ~1)|RD_G0|SIMM13(~0), "1", F_UNBR|F_DELAYED, v6 }, /* jmpl rs1+0,%g0 */ { "nop", F2(0, 4), 0xfeffffff, "", 0, v6 }, /* sethi 0, %g0 */ { "set", F2(0x0, 0x4), F2(~0x0, ~0x4), "Sh,d", F_ALIAS, v6 }, { "sethi", F2(0x0, 0x4), F2(~0x0, ~0x4), "h,d", 0, v6 }, { "taddcc", F3(2, 0x20, 0), F3(~2, ~0x20, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "taddcc", F3(2, 0x20, 1), F3(~2, ~0x20, ~1), "1,i,d", 0, v6 }, { "taddcc", F3(2, 0x20, 1), F3(~2, ~0x20, ~1), "i,1,d", 0, v6 }, { "taddcctv", F3(2, 0x22, 0), F3(~2, ~0x22, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "taddcctv", F3(2, 0x22, 1), F3(~2, ~0x22, ~1), "1,i,d", 0, v6 }, { "taddcctv", F3(2, 0x22, 1), F3(~2, ~0x22, ~1), "i,1,d", 0, v6 }, { "tsubcc", F3(2, 0x21, 0), F3(~2, ~0x21, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "tsubcc", F3(2, 0x21, 1), F3(~2, ~0x21, ~1), "1,i,d", 0, v6 }, { "tsubcctv", F3(2, 0x23, 0), F3(~2, ~0x23, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "tsubcctv", F3(2, 0x23, 1), F3(~2, ~0x23, ~1), "1,i,d", 0, v6 }, /* FIXME This is marked F_ALIAS, so that it won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "unimp", F2(0x0, 0x0), 0xffc00000, "n", F_ALIAS, v6 }, { "illtrap", F2(0, 0), F2(~0, ~0)|RD_G0, "n", 0, v9 }, /* This *is* a commutative instruction. */ { "xnor", F3(2, 0x07, 0), F3(~2, ~0x07, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "xnor", F3(2, 0x07, 1), F3(~2, ~0x07, ~1), "1,i,d", 0, v6 }, { "xnor", F3(2, 0x07, 1), F3(~2, ~0x07, ~1), "i,1,d", 0, v6 }, /* This *is* a commutative instruction. */ { "xnorcc", F3(2, 0x17, 0), F3(~2, ~0x17, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "xnorcc", F3(2, 0x17, 1), F3(~2, ~0x17, ~1), "1,i,d", 0, v6 }, { "xnorcc", F3(2, 0x17, 1), F3(~2, ~0x17, ~1), "i,1,d", 0, v6 }, { "xor", F3(2, 0x03, 0), F3(~2, ~0x03, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "xor", F3(2, 0x03, 1), F3(~2, ~0x03, ~1), "1,i,d", 0, v6 }, { "xor", F3(2, 0x03, 1), F3(~2, ~0x03, ~1), "i,1,d", 0, v6 }, { "xorcc", F3(2, 0x13, 0), F3(~2, ~0x13, ~0)|ASI(~0), "1,2,d", 0, v6 }, { "xorcc", F3(2, 0x13, 1), F3(~2, ~0x13, ~1), "1,i,d", 0, v6 }, { "xorcc", F3(2, 0x13, 1), F3(~2, ~0x13, ~1), "i,1,d", 0, v6 }, { "not", F3(2, 0x07, 0), F3(~2, ~0x07, ~0)|ASI(~0), "1,d", F_ALIAS, v6 }, /* xnor rs1,%0,rd */ { "not", F3(2, 0x07, 0), F3(~2, ~0x07, ~0)|ASI(~0), "r", F_ALIAS, v6 }, /* xnor rd,%0,rd */ { "btog", F3(2, 0x03, 0), F3(~2, ~0x03, ~0)|ASI(~0), "2,r", F_ALIAS, v6 }, /* xor rd,rs2,rd */ { "btog", F3(2, 0x03, 1), F3(~2, ~0x03, ~1), "i,r", F_ALIAS, v6 }, /* xor rd,i,rd */ /* FPop1 and FPop2 are not instructions. Don't accept them. */ { "fdtoi", F3F(2, 0x34, 0x0d2), F3F(~2, ~0x34, ~0x0d2)|RS1_G0, "B,g", 0, v6 }, { "fstoi", F3F(2, 0x34, 0x0d1), F3F(~2, ~0x34, ~0x0d1)|RS1_G0, "f,g", 0, v6 }, { "fqtoi", F3F(2, 0x34, 0x0d3), F3F(~2, ~0x34, ~0x0d3)|RS1_G0, "R,g", 0, v8 }, { "fdtox", F3F(2, 0x34, 0x082), F3F(~2, ~0x34, ~0x082)|RS1_G0, "B,g", 0, v9 }, { "fstox", F3F(2, 0x34, 0x081), F3F(~2, ~0x34, ~0x081)|RS1_G0, "f,g", 0, v9 }, { "fqtox", F3F(2, 0x34, 0x083), F3F(~2, ~0x34, ~0x083)|RS1_G0, "R,g", 0, v9 }, { "fitod", F3F(2, 0x34, 0x0c8), F3F(~2, ~0x34, ~0x0c8)|RS1_G0, "f,H", 0, v6 }, { "fitos", F3F(2, 0x34, 0x0c4), F3F(~2, ~0x34, ~0x0c4)|RS1_G0, "f,g", 0, v6 }, { "fitoq", F3F(2, 0x34, 0x0cc), F3F(~2, ~0x34, ~0x0cc)|RS1_G0, "f,J", 0, v8 }, { "fxtod", F3F(2, 0x34, 0x088), F3F(~2, ~0x34, ~0x088)|RS1_G0, "f,H", 0, v9 }, { "fxtos", F3F(2, 0x34, 0x084), F3F(~2, ~0x34, ~0x084)|RS1_G0, "f,g", 0, v9 }, { "fxtoq", F3F(2, 0x34, 0x08c), F3F(~2, ~0x34, ~0x08c)|RS1_G0, "f,J", 0, v9 }, { "fdtoq", F3F(2, 0x34, 0x0ce), F3F(~2, ~0x34, ~0x0ce)|RS1_G0, "B,J", 0, v8 }, { "fdtos", F3F(2, 0x34, 0x0c6), F3F(~2, ~0x34, ~0x0c6)|RS1_G0, "B,g", 0, v6 }, { "fqtod", F3F(2, 0x34, 0x0cb), F3F(~2, ~0x34, ~0x0cb)|RS1_G0, "R,H", 0, v8 }, { "fqtos", F3F(2, 0x34, 0x0c7), F3F(~2, ~0x34, ~0x0c7)|RS1_G0, "R,g", 0, v8 }, { "fstod", F3F(2, 0x34, 0x0c9), F3F(~2, ~0x34, ~0x0c9)|RS1_G0, "f,H", 0, v6 }, { "fstoq", F3F(2, 0x34, 0x0cd), F3F(~2, ~0x34, ~0x0cd)|RS1_G0, "f,J", 0, v8 }, { "fdivd", F3F(2, 0x34, 0x04e), F3F(~2, ~0x34, ~0x04e), "v,B,H", 0, v6 }, { "fdivq", F3F(2, 0x34, 0x04f), F3F(~2, ~0x34, ~0x04f), "V,R,J", 0, v8 }, { "fdivs", F3F(2, 0x34, 0x04d), F3F(~2, ~0x34, ~0x04d), "e,f,g", 0, v6 }, { "fmuld", F3F(2, 0x34, 0x04a), F3F(~2, ~0x34, ~0x04a), "v,B,H", 0, v6 }, { "fmulq", F3F(2, 0x34, 0x04b), F3F(~2, ~0x34, ~0x04b), "V,R,J", 0, v8 }, { "fmuls", F3F(2, 0x34, 0x049), F3F(~2, ~0x34, ~0x049), "e,f,g", 0, v6 }, { "fdmulq", F3F(2, 0x34, 0x06e), F3F(~2, ~0x34, ~0x06e), "v,B,J", 0, v8 }, { "fsmuld", F3F(2, 0x34, 0x069), F3F(~2, ~0x34, ~0x069), "e,f,H", 0, v8 }, { "fsqrtd", F3F(2, 0x34, 0x02a), F3F(~2, ~0x34, ~0x02a)|RS1_G0, "B,H", 0, v7 }, { "fsqrtq", F3F(2, 0x34, 0x02b), F3F(~2, ~0x34, ~0x02b)|RS1_G0, "R,J", 0, v8 }, { "fsqrts", F3F(2, 0x34, 0x029), F3F(~2, ~0x34, ~0x029)|RS1_G0, "f,g", 0, v7 }, { "fabsd", F3F(2, 0x34, 0x00a), F3F(~2, ~0x34, ~0x00a)|RS1_G0, "B,H", 0, v9 }, { "fabsq", F3F(2, 0x34, 0x00b), F3F(~2, ~0x34, ~0x00b)|RS1_G0, "R,J", 0, v9 }, { "fabss", F3F(2, 0x34, 0x009), F3F(~2, ~0x34, ~0x009)|RS1_G0, "f,g", 0, v6 }, { "fmovd", F3F(2, 0x34, 0x002), F3F(~2, ~0x34, ~0x002)|RS1_G0, "B,H", 0, v9 }, { "fmovq", F3F(2, 0x34, 0x003), F3F(~2, ~0x34, ~0x003)|RS1_G0, "R,J", 0, v9 }, { "fmovs", F3F(2, 0x34, 0x001), F3F(~2, ~0x34, ~0x001)|RS1_G0, "f,g", 0, v6 }, { "fnegd", F3F(2, 0x34, 0x006), F3F(~2, ~0x34, ~0x006)|RS1_G0, "B,H", 0, v9 }, { "fnegq", F3F(2, 0x34, 0x007), F3F(~2, ~0x34, ~0x007)|RS1_G0, "R,J", 0, v9 }, { "fnegs", F3F(2, 0x34, 0x005), F3F(~2, ~0x34, ~0x005)|RS1_G0, "f,g", 0, v6 }, { "faddd", F3F(2, 0x34, 0x042), F3F(~2, ~0x34, ~0x042), "v,B,H", 0, v6 }, { "faddq", F3F(2, 0x34, 0x043), F3F(~2, ~0x34, ~0x043), "V,R,J", 0, v8 }, { "fadds", F3F(2, 0x34, 0x041), F3F(~2, ~0x34, ~0x041), "e,f,g", 0, v6 }, { "fsubd", F3F(2, 0x34, 0x046), F3F(~2, ~0x34, ~0x046), "v,B,H", 0, v6 }, { "fsubq", F3F(2, 0x34, 0x047), F3F(~2, ~0x34, ~0x047), "V,R,J", 0, v8 }, { "fsubs", F3F(2, 0x34, 0x045), F3F(~2, ~0x34, ~0x045), "e,f,g", 0, v6 }, #define CMPFCC(x) (((x)&0x3)<<25) { "fcmpd", F3F(2, 0x35, 0x052), F3F(~2, ~0x35, ~0x052)|RD_G0, "v,B", 0, v6 }, { "fcmpd", CMPFCC(0)|F3F(2, 0x35, 0x052), CMPFCC(~0)|F3F(~2, ~0x35, ~0x052), "6,v,B", 0, v9 }, { "fcmpd", CMPFCC(1)|F3F(2, 0x35, 0x052), CMPFCC(~1)|F3F(~2, ~0x35, ~0x052), "7,v,B", 0, v9 }, { "fcmpd", CMPFCC(2)|F3F(2, 0x35, 0x052), CMPFCC(~2)|F3F(~2, ~0x35, ~0x052), "8,v,B", 0, v9 }, { "fcmpd", CMPFCC(3)|F3F(2, 0x35, 0x052), CMPFCC(~3)|F3F(~2, ~0x35, ~0x052), "9,v,B", 0, v9 }, { "fcmped", F3F(2, 0x35, 0x056), F3F(~2, ~0x35, ~0x056)|RD_G0, "v,B", 0, v6 }, { "fcmped", CMPFCC(0)|F3F(2, 0x35, 0x056), CMPFCC(~0)|F3F(~2, ~0x35, ~0x056), "6,v,B", 0, v9 }, { "fcmped", CMPFCC(1)|F3F(2, 0x35, 0x056), CMPFCC(~1)|F3F(~2, ~0x35, ~0x056), "7,v,B", 0, v9 }, { "fcmped", CMPFCC(2)|F3F(2, 0x35, 0x056), CMPFCC(~2)|F3F(~2, ~0x35, ~0x056), "8,v,B", 0, v9 }, { "fcmped", CMPFCC(3)|F3F(2, 0x35, 0x056), CMPFCC(~3)|F3F(~2, ~0x35, ~0x056), "9,v,B", 0, v9 }, { "fcmpq", F3F(2, 0x34, 0x053), F3F(~2, ~0x34, ~0x053)|RD_G0, "V,R", 0, v8 }, { "fcmpq", CMPFCC(0)|F3F(2, 0x35, 0x053), CMPFCC(~0)|F3F(~2, ~0x35, ~0x053), "6,V,R", 0, v9 }, { "fcmpq", CMPFCC(1)|F3F(2, 0x35, 0x053), CMPFCC(~1)|F3F(~2, ~0x35, ~0x053), "7,V,R", 0, v9 }, { "fcmpq", CMPFCC(2)|F3F(2, 0x35, 0x053), CMPFCC(~2)|F3F(~2, ~0x35, ~0x053), "8,V,R", 0, v9 }, { "fcmpq", CMPFCC(3)|F3F(2, 0x35, 0x053), CMPFCC(~3)|F3F(~2, ~0x35, ~0x053), "9,V,R", 0, v9 }, { "fcmpeq", F3F(2, 0x34, 0x057), F3F(~2, ~0x34, ~0x057)|RD_G0, "V,R", 0, v8 }, { "fcmpeq", CMPFCC(0)|F3F(2, 0x35, 0x057), CMPFCC(~0)|F3F(~2, ~0x35, ~0x057), "6,V,R", 0, v9 }, { "fcmpeq", CMPFCC(1)|F3F(2, 0x35, 0x057), CMPFCC(~1)|F3F(~2, ~0x35, ~0x057), "7,V,R", 0, v9 }, { "fcmpeq", CMPFCC(2)|F3F(2, 0x35, 0x057), CMPFCC(~2)|F3F(~2, ~0x35, ~0x057), "8,V,R", 0, v9 }, { "fcmpeq", CMPFCC(3)|F3F(2, 0x35, 0x057), CMPFCC(~3)|F3F(~2, ~0x35, ~0x057), "9,V,R", 0, v9 }, { "fcmps", F3F(2, 0x35, 0x051), F3F(~2, ~0x35, ~0x051)|RD_G0, "e,f", 0, v6 }, { "fcmps", CMPFCC(0)|F3F(2, 0x35, 0x051), CMPFCC(~0)|F3F(~2, ~0x35, ~0x051), "6,e,f", 0, v9 }, { "fcmps", CMPFCC(1)|F3F(2, 0x35, 0x051), CMPFCC(~1)|F3F(~2, ~0x35, ~0x051), "7,e,f", 0, v9 }, { "fcmps", CMPFCC(2)|F3F(2, 0x35, 0x051), CMPFCC(~2)|F3F(~2, ~0x35, ~0x051), "8,e,f", 0, v9 }, { "fcmps", CMPFCC(3)|F3F(2, 0x35, 0x051), CMPFCC(~3)|F3F(~2, ~0x35, ~0x051), "9,e,f", 0, v9 }, { "fcmpes", F3F(2, 0x35, 0x055), F3F(~2, ~0x35, ~0x055)|RD_G0, "e,f", 0, v6 }, { "fcmpes", CMPFCC(0)|F3F(2, 0x35, 0x055), CMPFCC(~0)|F3F(~2, ~0x35, ~0x055), "6,e,f", 0, v9 }, { "fcmpes", CMPFCC(1)|F3F(2, 0x35, 0x055), CMPFCC(~1)|F3F(~2, ~0x35, ~0x055), "7,e,f", 0, v9 }, { "fcmpes", CMPFCC(2)|F3F(2, 0x35, 0x055), CMPFCC(~2)|F3F(~2, ~0x35, ~0x055), "8,e,f", 0, v9 }, { "fcmpes", CMPFCC(3)|F3F(2, 0x35, 0x055), CMPFCC(~3)|F3F(~2, ~0x35, ~0x055), "9,e,f", 0, v9 }, /* FIXME These are marked F_ALIAS, so that they won't conflict with new v9 insns when v9 is present. Otherwise, the F_ALIAS flag is ignored. */ { "cpop1", F3(2, 0x36, 0), F3(~2, ~0x36, ~1), "[1+2],d", F_ALIAS, v6 }, { "cpop2", F3(2, 0x37, 0), F3(~2, ~0x37, ~1), "[1+2],d", F_ALIAS, v6 }, { "impdep1", F3(2, 0x36, 0), F3(~2, ~0x36, ~0)|ASI(~0), "1,2,d", 0, v9 }, { "impdep1", F3(2, 0x36, 1), F3(~2, ~0x36, ~1), "1,i,d", 0, v9 }, { "impdep2", F3(2, 0x37, 0), F3(~2, ~0x37, ~0)|ASI(~0), "1,2,d", 0, v9 }, { "impdep2", F3(2, 0x37, 1), F3(~2, ~0x37, ~1), "1,i,d", 0, v9 }, { "casa", F3(3, 0x3c, 0), F3(~3, ~0x3c, ~0), "[1]A,2,d", 0, v9 }, { "casa", F3(3, 0x3c, 1), F3(~3, ~0x3c, ~1), "[1]o,2,d", 0, v9 }, { "casxa", F3(3, 0x3e, 0), F3(~3, ~0x3e, ~0), "[1]A,2,d", 0, v9 }, { "casxa", F3(3, 0x3e, 1), F3(~3, ~0x3e, ~1), "[1]o,2,d", 0, v9 }, }; const int bfd_sparc_num_opcodes = ((sizeof sparc_opcodes)/(sizeof sparc_opcodes[0])); gdb-4.13/opcodes/z8k-dis.c 666 34562 1752 32444 5452622462 13664 0ustar fnfcygnus/* This file is part of GNU Binutils. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "sysdep.h" #include "dis-asm.h" #define DEFINE_TABLE #include "z8k-opc.h" #include typedef struct { /* These are all indexed by nibble number (i.e only every other entry of bytes is used, and every 4th entry of words). */ unsigned char nibbles[24]; unsigned char bytes[24]; unsigned short words[24]; /* Nibble number of first word not yet fetched. */ int max_fetched; bfd_vma insn_start; jmp_buf bailout; long tabl_index; char instr_asmsrc[80]; unsigned long arg_reg[0x0f]; unsigned long immediate; unsigned long displacement; unsigned long address; unsigned long cond_code; unsigned long ctrl_code; unsigned long flags; unsigned long interrupts; } instr_data_s; /* Make sure that bytes from INFO->PRIVATE_DATA->BUFFER (inclusive) to ADDR (exclusive) are valid. Returns 1 for success, longjmps on error. */ #define FETCH_DATA(info, nibble) \ ((nibble) < ((instr_data_s *)(info->private_data))->max_fetched \ ? 1 : fetch_data ((info), (nibble))) static int fetch_data (info, nibble) struct disassemble_info *info; int nibble; { unsigned char mybuf[20]; int status; instr_data_s *priv = (instr_data_s *)info->private_data; bfd_vma start; if ((nibble % 4) != 0) abort (); status = (*info->read_memory_func) (priv->insn_start, (bfd_byte *) mybuf, nibble / 2, info); if (status != 0) { (*info->memory_error_func) (status, priv->insn_start, info); longjmp (priv->bailout, 1); } { int i; unsigned char *p = mybuf ; for (i = 0; i < nibble;) { priv->words[i] = (p[0] << 8) | p[1]; priv->bytes[i] = *p; priv->nibbles[i++] = *p >> 4; priv->nibbles[i++] = *p &0xf; ++p; priv->bytes[i] = *p; priv->nibbles[i++] = *p >> 4; priv->nibbles[i++] = *p & 0xf; ++p; } } priv->max_fetched = nibble; return 1; } static char *codes[16] = { "f", "lt", "le", "ule", "ov/pe", "mi", "eq", "c/ult", "t", "ge", "gt", "ugt", "nov/po", "pl", "ne", "nc/uge" }; int z8k_lookup_instr PARAMS ((unsigned char*, disassemble_info *)); static void output_instr PARAMS ((instr_data_s *, unsigned long, disassemble_info *)); static void unpack_instr PARAMS ((instr_data_s *, int, disassemble_info *)); static void unparse_instr PARAMS ((instr_data_s *)); static int print_insn_z8k (addr, info, is_segmented) bfd_vma addr; disassemble_info *info; int is_segmented; { instr_data_s instr_data; info->private_data = (PTR) &instr_data; instr_data.max_fetched = 0; instr_data.insn_start = addr; if (setjmp (instr_data.bailout) != 0) /* Error return. */ return -1; instr_data.tabl_index = z8k_lookup_instr (instr_data.nibbles, info); if (instr_data.tabl_index > 0) { unpack_instr (&instr_data, is_segmented, info); unparse_instr (&instr_data); output_instr (&instr_data, addr, info); return z8k_table[instr_data.tabl_index].length; } else { FETCH_DATA (info, 4); (*info->fprintf_func) (info->stream, ".word %02x%02x", instr_data.bytes[0], instr_data.bytes[2]); return 2; } } print_insn_z8001 (addr, info) bfd_vma addr; disassemble_info *info; { return print_insn_z8k (addr, info, 1); } print_insn_z8002 (addr, info) bfd_vma addr; disassemble_info *info; { return print_insn_z8k (addr, info, 0); } int z8k_lookup_instr (nibbles, info) unsigned char *nibbles; disassemble_info *info; { int nibl_index, tabl_index; int nibl_matched; unsigned short instr_nibl; unsigned short tabl_datum, datum_class, datum_value; nibl_matched = 0; tabl_index = 0; while (!nibl_matched && z8k_table[tabl_index].name) { nibl_matched = 1; for (nibl_index = 0; nibl_index < z8k_table[tabl_index].length * 2 && nibl_matched; nibl_index++) { if ((nibl_index % 4) == 0) /* Fetch one word at a time. */ FETCH_DATA (info, nibl_index + 4); instr_nibl = nibbles[nibl_index]; tabl_datum = z8k_table[tabl_index].byte_info[nibl_index]; datum_class = tabl_datum & CLASS_MASK; datum_value = ~CLASS_MASK & tabl_datum; switch (datum_class) { case CLASS_BIT: if (datum_value != instr_nibl) nibl_matched = 0; break; case CLASS_00II: if (!((~instr_nibl) & 0x4)) nibl_matched = 0; break; case CLASS_01II: if (!(instr_nibl & 0x4)) nibl_matched = 0; break; case CLASS_0CCC: if (!((~instr_nibl) & 0x8)) nibl_matched = 0; break; case CLASS_1CCC: if (!(instr_nibl & 0x8)) nibl_matched = 0; break; case CLASS_0DISP7: if (!((~instr_nibl) & 0x8)) nibl_matched = 0; nibl_index += 1; break; case CLASS_1DISP7: if (!(instr_nibl & 0x8)) nibl_matched = 0; nibl_index += 1; break; case CLASS_REGN0: if (instr_nibl == 0) nibl_matched = 0; break; case CLASS_BIT_1OR2: if ((instr_nibl | 0x2) != (datum_value | 0x2)) nibl_matched = 0; break; default: break; } } if (nibl_matched) { return tabl_index; } tabl_index++; } return -1; } static void output_instr (instr_data, addr, info) instr_data_s *instr_data; unsigned long addr; disassemble_info *info; { int loop, loop_limit; char tmp_str[20]; char out_str[100]; strcpy (out_str, "\t"); loop_limit = z8k_table[instr_data->tabl_index].length * 2; FETCH_DATA (info, loop_limit); for (loop = 0; loop < loop_limit; loop++) { sprintf (tmp_str, "%x", instr_data->nibbles[loop]); strcat (out_str, tmp_str); } while (loop++ < 8) { strcat (out_str, " "); } strcat (out_str, instr_data->instr_asmsrc); (*info->fprintf_func) (info->stream, "%s", out_str); } static void unpack_instr (instr_data, is_segmented, info) instr_data_s *instr_data; int is_segmented; disassemble_info *info; { int nibl_count, loop; unsigned short instr_nibl, instr_byte, instr_word; long instr_long; unsigned short tabl_datum, datum_class, datum_value; nibl_count = 0; loop = 0; while (z8k_table[instr_data->tabl_index].byte_info[loop] != 0) { FETCH_DATA (info, nibl_count + 4 - (nibl_count % 4)); instr_nibl = instr_data->nibbles[nibl_count]; instr_byte = instr_data->bytes[nibl_count]; instr_word = instr_data->words[nibl_count]; tabl_datum = z8k_table[instr_data->tabl_index].byte_info[loop]; datum_class = tabl_datum & CLASS_MASK; datum_value = tabl_datum & ~CLASS_MASK; switch (datum_class) { case CLASS_X: instr_data->address = instr_nibl; break; case CLASS_BA: instr_data->displacement = instr_nibl; break; case CLASS_BX: instr_data->arg_reg[datum_value] = instr_nibl; break; case CLASS_DISP: switch (datum_value) { case ARG_DISP16: instr_data->displacement = instr_word; nibl_count += 3; break; case ARG_DISP12: instr_data->displacement = instr_word & 0x0fff; nibl_count += 2; break; default: break; } break; case CLASS_IMM: switch (datum_value) { case ARG_IMM4: instr_data->immediate = instr_nibl; break; case ARG_NIM8: instr_data->immediate = (-instr_byte); nibl_count += 1; break; case ARG_IMM8: instr_data->immediate = instr_byte; nibl_count += 1; break; case ARG_IMM16: instr_data->immediate = instr_word; nibl_count += 3; break; case ARG_IMM32: FETCH_DATA (info, nibl_count + 8); instr_long = (instr_data->words[nibl_count] << 16) | (instr_data->words[nibl_count + 4]); instr_data->immediate = instr_long; nibl_count += 7; break; case ARG_IMMN: instr_data->immediate = instr_nibl - 1; break; case ARG_IMM4M1: instr_data->immediate = instr_nibl + 1; break; case ARG_IMM_1: instr_data->immediate = 1; break; case ARG_IMM_2: instr_data->immediate = 2; break; case ARG_IMM2: instr_data->immediate = instr_nibl & 0x3; break; default: break; } break; case CLASS_CC: instr_data->cond_code = instr_nibl; break; case CLASS_CTRL: instr_data->ctrl_code = instr_nibl; break; case CLASS_DA: case CLASS_ADDRESS: if (is_segmented) { if (instr_nibl & 0x8) { FETCH_DATA (info, nibl_count + 8); instr_long = (instr_data->words[nibl_count] << 16) | (instr_data->words[nibl_count + 4]); instr_data->address = ((instr_word & 0x7f00) << 8) + (instr_long & 0xffff); nibl_count += 7; } else { instr_data->address = ((instr_word & 0x7f00) << 8) + (instr_word & 0x00ff); nibl_count += 3; } } else { instr_data->address = instr_word; nibl_count += 3; } break; case CLASS_0CCC: instr_data->cond_code = instr_nibl & 0x7; break; case CLASS_1CCC: instr_data->cond_code = instr_nibl & 0x7; break; case CLASS_0DISP7: instr_data->displacement = instr_byte & 0x7f; nibl_count += 1; break; case CLASS_1DISP7: instr_data->displacement = instr_byte & 0x7f; nibl_count += 1; break; case CLASS_01II: instr_data->interrupts = instr_nibl & 0x3; break; case CLASS_00II: instr_data->interrupts = instr_nibl & 0x3; break; case CLASS_BIT: /* do nothing */ break; case CLASS_IR: instr_data->arg_reg[datum_value] = instr_nibl; break; case CLASS_FLAGS: instr_data->flags = instr_nibl; break; case CLASS_REG: instr_data->arg_reg[datum_value] = instr_nibl; break; case CLASS_REG_BYTE: instr_data->arg_reg[datum_value] = instr_nibl; break; case CLASS_REG_WORD: instr_data->arg_reg[datum_value] = instr_nibl; break; case CLASS_REG_QUAD: instr_data->arg_reg[datum_value] = instr_nibl; break; case CLASS_REG_LONG: instr_data->arg_reg[datum_value] = instr_nibl; break; case CLASS_REGN0: instr_data->arg_reg[datum_value] = instr_nibl; break; default: break; } loop += 1; nibl_count += 1; } } static void unparse_instr (instr_data) instr_data_s *instr_data; { unsigned short tabl_datum, datum_class, datum_value; int loop, loop_limit; char out_str[80], tmp_str[25]; sprintf (out_str, "\t%s\t", z8k_table[instr_data->tabl_index].name); loop_limit = z8k_table[instr_data->tabl_index].noperands; for (loop = 0; loop < loop_limit; loop++) { if (loop) strcat (out_str, ","); tabl_datum = z8k_table[instr_data->tabl_index].arg_info[loop]; datum_class = tabl_datum & CLASS_MASK; datum_value = tabl_datum & ~CLASS_MASK; switch (datum_class) { case CLASS_X: sprintf (tmp_str, "0x%0x(R%d)", instr_data->address, instr_data->arg_reg[datum_value]); strcat (out_str, tmp_str); break; case CLASS_BA: sprintf (tmp_str, "r%d(#%x)", instr_data->arg_reg[datum_value], instr_data->immediate); strcat (out_str, tmp_str); break; case CLASS_BX: sprintf (tmp_str, "r%d(R%d)", instr_data->arg_reg[datum_value], instr_data->arg_reg[ARG_RX]); strcat (out_str, tmp_str); break; case CLASS_DISP: sprintf (tmp_str, "#0x%0x", instr_data->displacement); strcat (out_str, tmp_str); break; case CLASS_IMM: sprintf (tmp_str, "#0x%0x", instr_data->immediate); strcat (out_str, tmp_str); break; case CLASS_CC: sprintf (tmp_str, "%s", codes[instr_data->cond_code]); strcat (out_str, tmp_str); break; case CLASS_CTRL: sprintf (tmp_str, "0x%0x", instr_data->ctrl_code); strcat (out_str, tmp_str); break; case CLASS_DA: case CLASS_ADDRESS: sprintf (tmp_str, "#0x%0x", instr_data->address); strcat (out_str, tmp_str); break; case CLASS_IR: sprintf (tmp_str, "@R%d", instr_data->arg_reg[datum_value]); strcat (out_str, tmp_str); break; case CLASS_FLAGS: sprintf (tmp_str, "0x%0x", instr_data->flags); strcat (out_str, tmp_str); break; case CLASS_REG_BYTE: if (instr_data->arg_reg[datum_value] >= 0x8) { sprintf (tmp_str, "rl%d", instr_data->arg_reg[datum_value] - 0x8); } else { sprintf (tmp_str, "rh%d", instr_data->arg_reg[datum_value]); } strcat (out_str, tmp_str); break; case CLASS_REG_WORD: sprintf (tmp_str, "r%d", instr_data->arg_reg[datum_value]); strcat (out_str, tmp_str); break; case CLASS_REG_QUAD: sprintf (tmp_str, "rq%d", instr_data->arg_reg[datum_value]); strcat (out_str, tmp_str); break; case CLASS_REG_LONG: sprintf (tmp_str, "rr%d", instr_data->arg_reg[datum_value]); strcat (out_str, tmp_str); break; default: break; } } strcpy (instr_data->instr_asmsrc, out_str); } gdb-4.13/opcodes/z8k-opc.h 666 34562 1752 354435 5563030012 13705 0ustar fnfcygnus /* THIS FILE IS AUTOMAGICALLY GENERATED, DON'T EDIT IT */ #define ARG_MASK 0x0f #define ARG_SRC 0x01 #define ARG_DST 0x02 #define ARG_RS 0x01 #define ARG_RD 0x02 #define ARG_RA 0x03 #define ARG_RB 0x04 #define ARG_RR 0x05 #define ARG_RX 0x06 #define ARG_IMM4 0x01 #define ARG_IMM8 0x02 #define ARG_IMM16 0x03 #define ARG_IMM32 0x04 #define ARG_IMMN 0x05 #define ARG_IMMNMINUS1 0x05 #define ARG_IMM_1 0x06 #define ARG_IMM_2 0x07 #define ARG_DISP16 0x08 #define ARG_NIM8 0x09 #define ARG_IMM2 0x0a #define ARG_IMM1OR2 0x0b #define ARG_DISP12 0x0b #define ARG_DISP8 0x0c #define ARG_IMM4M1 0x0d #define CLASS_MASK 0x1fff0 #define CLASS_X 0x10 #define CLASS_BA 0x20 #define CLASS_DA 0x30 #define CLASS_BX 0x40 #define CLASS_DISP 0x50 #define CLASS_IMM 0x60 #define CLASS_CC 0x70 #define CLASS_CTRL 0x80 #define CLASS_ADDRESS 0xd0 #define CLASS_0CCC 0xe0 #define CLASS_1CCC 0xf0 #define CLASS_0DISP7 0x100 #define CLASS_1DISP7 0x200 #define CLASS_01II 0x300 #define CLASS_00II 0x400 #define CLASS_BIT 0x500 #define CLASS_FLAGS 0x600 #define CLASS_IR 0x700 #define CLASS_DISP8 0x800 #define CLASS_BIT_1OR2 0x900 #define CLASS_REG 0x7000 #define CLASS_REG_BYTE 0x2000 #define CLASS_REG_WORD 0x3000 #define CLASS_REG_QUAD 0x4000 #define CLASS_REG_LONG 0x5000 #define CLASS_REGN0 0x8000 #define CLASS_PR 0x10000 #define OPC_adc 0 #define OPC_adcb 1 #define OPC_add 2 #define OPC_addb 3 #define OPC_addl 4 #define OPC_and 5 #define OPC_andb 6 #define OPC_bit 7 #define OPC_bitb 8 #define OPC_call 9 #define OPC_calr 10 #define OPC_clr 11 #define OPC_clrb 12 #define OPC_com 13 #define OPC_comb 14 #define OPC_comflg 15 #define OPC_cp 16 #define OPC_cpb 17 #define OPC_cpd 18 #define OPC_cpdb 19 #define OPC_cpdr 20 #define OPC_cpdrb 21 #define OPC_cpi 22 #define OPC_cpib 23 #define OPC_cpir 24 #define OPC_cpirb 25 #define OPC_cpl 26 #define OPC_cpsd 27 #define OPC_cpsdb 28 #define OPC_cpsdr 29 #define OPC_cpsdrb 30 #define OPC_cpsi 31 #define OPC_cpsib 32 #define OPC_cpsir 33 #define OPC_cpsirb 34 #define OPC_dab 35 #define OPC_dbjnz 36 #define OPC_dec 37 #define OPC_decb 38 #define OPC_di 39 #define OPC_div 40 #define OPC_divl 41 #define OPC_djnz 42 #define OPC_ei 43 #define OPC_ex 44 #define OPC_exb 45 #define OPC_exts 46 #define OPC_extsb 47 #define OPC_extsl 48 #define OPC_halt 49 #define OPC_in 50 #define OPC_inb 51 #define OPC_inc 52 #define OPC_incb 53 #define OPC_ind 54 #define OPC_indb 55 #define OPC_inib 56 #define OPC_inibr 57 #define OPC_iret 58 #define OPC_jp 59 #define OPC_jr 60 #define OPC_ld 61 #define OPC_lda 62 #define OPC_ldar 63 #define OPC_ldb 64 #define OPC_ldctl 65 #define OPC_ldir 66 #define OPC_ldirb 67 #define OPC_ldk 68 #define OPC_ldl 69 #define OPC_ldm 70 #define OPC_ldps 71 #define OPC_ldr 72 #define OPC_ldrb 73 #define OPC_ldrl 74 #define OPC_mbit 75 #define OPC_mreq 76 #define OPC_mres 77 #define OPC_mset 78 #define OPC_mult 79 #define OPC_multl 80 #define OPC_neg 81 #define OPC_negb 82 #define OPC_nop 83 #define OPC_or 84 #define OPC_orb 85 #define OPC_out 86 #define OPC_outb 87 #define OPC_outd 88 #define OPC_outdb 89 #define OPC_outib 90 #define OPC_outibr 91 #define OPC_pop 92 #define OPC_popl 93 #define OPC_push 94 #define OPC_pushl 95 #define OPC_res 96 #define OPC_resb 97 #define OPC_resflg 98 #define OPC_ret 99 #define OPC_rl 100 #define OPC_rlb 101 #define OPC_rlc 102 #define OPC_rlcb 103 #define OPC_rldb 104 #define OPC_rr 105 #define OPC_rrb 106 #define OPC_rrc 107 #define OPC_rrcb 108 #define OPC_rrdb 109 #define OPC_sbc 110 #define OPC_sbcb 111 #define OPC_sda 112 #define OPC_sdab 113 #define OPC_sdal 114 #define OPC_sdl 115 #define OPC_sdlb 116 #define OPC_sdll 117 #define OPC_set 118 #define OPC_setb 119 #define OPC_setflg 120 #define OPC_sinb 121 #define OPC_sind 122 #define OPC_sindb 123 #define OPC_sinib 124 #define OPC_sinibr 125 #define OPC_sla 126 #define OPC_slab 127 #define OPC_slal 128 #define OPC_sll 129 #define OPC_sllb 130 #define OPC_slll 131 #define OPC_sout 132 #define OPC_soutb 133 #define OPC_soutd 134 #define OPC_soutdb 135 #define OPC_soutib 136 #define OPC_soutibr 137 #define OPC_sra 138 #define OPC_srab 139 #define OPC_sral 140 #define OPC_srl 141 #define OPC_srlb 142 #define OPC_srll 143 #define OPC_sub 144 #define OPC_subb 145 #define OPC_subl 146 #define OPC_tcc 147 #define OPC_tccb 148 #define OPC_test 149 #define OPC_testb 150 #define OPC_testl 151 #define OPC_trdb 152 #define OPC_trdrb 153 #define OPC_trib 154 #define OPC_trirb 155 #define OPC_trtdrb 156 #define OPC_trtib 157 #define OPC_trtirb 158 #define OPC_trtdb 159 #define OPC_tset 160 #define OPC_tsetb 161 #define OPC_xor 162 #define OPC_xorb 163 #define OPC_ldd 164 #define OPC_lddb 165 #define OPC_lddr 166 #define OPC_lddrb 167 #define OPC_ldi 168 #define OPC_ldib 169 #define OPC_sc 170 #define OPC_bpt 171 #define OPC_ext0e 172 #define OPC_ext0f 172 #define OPC_ext8e 172 #define OPC_ext8f 172 #define OPC_rsvd36 172 #define OPC_rsvd38 172 #define OPC_rsvd78 172 #define OPC_rsvd7e 172 #define OPC_rsvd9d 172 #define OPC_rsvd9f 172 #define OPC_rsvdb9 172 #define OPC_rsvdbf 172 #define OPC_outi 173 typedef struct { #ifdef NICENAMES char *nicename; int type; int cycles; int flags; #endif char *name; unsigned char opcode; void (*func)(); unsigned int arg_info[4]; unsigned int byte_info[10]; int noperands; int length; int idx; } opcode_entry_type; #ifdef DEFINE_TABLE opcode_entry_type z8k_table[] = { /* 1011 0101 ssss dddd *** adc rd,rs */ { #ifdef NICENAMES "adc rd,rs",16,5, 0x3c, #endif "adc",OPC_adc,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+5,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,0}, /* 1011 0100 ssss dddd *** adcb rbd,rbs */ { #ifdef NICENAMES "adcb rbd,rbs",8,5, 0x3f, #endif "adcb",OPC_adcb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+4,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,1}, /* 0000 0001 ssN0 dddd *** add rd,@rs */ { #ifdef NICENAMES "add rd,@rs",16,7, 0x3c, #endif "add",OPC_add,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+1,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,2}, /* 0100 0001 0000 dddd address_src *** add rd,address_src */ { #ifdef NICENAMES "add rd,address_src",16,9, 0x3c, #endif "add",OPC_add,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,3}, /* 0100 0001 ssN0 dddd address_src *** add rd,address_src(rs) */ { #ifdef NICENAMES "add rd,address_src(rs)",16,10, 0x3c, #endif "add",OPC_add,0,{CLASS_REG_WORD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+1,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,4}, /* 0000 0001 0000 dddd imm16 *** add rd,imm16 */ { #ifdef NICENAMES "add rd,imm16",16,7, 0x3c, #endif "add",OPC_add,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+0,CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,5}, /* 1000 0001 ssss dddd *** add rd,rs */ { #ifdef NICENAMES "add rd,rs",16,4, 0x3c, #endif "add",OPC_add,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+1,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,6}, /* 0000 0000 ssN0 dddd *** addb rbd,@rs */ { #ifdef NICENAMES "addb rbd,@rs",8,7, 0x3f, #endif "addb",OPC_addb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+0,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,7}, /* 0100 0000 0000 dddd address_src *** addb rbd,address_src */ { #ifdef NICENAMES "addb rbd,address_src",8,9, 0x3f, #endif "addb",OPC_addb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,8}, /* 0100 0000 ssN0 dddd address_src *** addb rbd,address_src(rs) */ { #ifdef NICENAMES "addb rbd,address_src(rs)",8,10, 0x3f, #endif "addb",OPC_addb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+0,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,9}, /* 0000 0000 0000 dddd imm8 imm8 *** addb rbd,imm8 */ { #ifdef NICENAMES "addb rbd,imm8",8,7, 0x3f, #endif "addb",OPC_addb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,0,},2,4,10}, /* 1000 0000 ssss dddd *** addb rbd,rbs */ { #ifdef NICENAMES "addb rbd,rbs",8,4, 0x3f, #endif "addb",OPC_addb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,11}, /* 0001 0110 ssN0 dddd *** addl rrd,@rs */ { #ifdef NICENAMES "addl rrd,@rs",32,14, 0x3c, #endif "addl",OPC_addl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+6,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,12}, /* 0101 0110 0000 dddd address_src *** addl rrd,address_src */ { #ifdef NICENAMES "addl rrd,address_src",32,15, 0x3c, #endif "addl",OPC_addl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+6,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,13}, /* 0101 0110 ssN0 dddd address_src *** addl rrd,address_src(rs) */ { #ifdef NICENAMES "addl rrd,address_src(rs)",32,16, 0x3c, #endif "addl",OPC_addl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+6,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,14}, /* 0001 0110 0000 dddd imm32 *** addl rrd,imm32 */ { #ifdef NICENAMES "addl rrd,imm32",32,14, 0x3c, #endif "addl",OPC_addl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM32),}, {CLASS_BIT+1,CLASS_BIT+6,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM32),0,0,0,0,},2,6,15}, /* 1001 0110 ssss dddd *** addl rrd,rrs */ { #ifdef NICENAMES "addl rrd,rrs",32,8, 0x3c, #endif "addl",OPC_addl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+6,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,16}, /* 0000 0111 ssN0 dddd *** and rd,@rs */ { #ifdef NICENAMES "and rd,@rs",16,7, 0x18, #endif "and",OPC_and,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+7,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,17}, /* 0100 0111 0000 dddd address_src *** and rd,address_src */ { #ifdef NICENAMES "and rd,address_src",16,9, 0x18, #endif "and",OPC_and,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+7,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,18}, /* 0100 0111 ssN0 dddd address_src *** and rd,address_src(rs) */ { #ifdef NICENAMES "and rd,address_src(rs)",16,10, 0x18, #endif "and",OPC_and,0,{CLASS_REG_WORD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+7,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,19}, /* 0000 0111 0000 dddd imm16 *** and rd,imm16 */ { #ifdef NICENAMES "and rd,imm16",16,7, 0x18, #endif "and",OPC_and,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+0,CLASS_BIT+7,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,20}, /* 1000 0111 ssss dddd *** and rd,rs */ { #ifdef NICENAMES "and rd,rs",16,4, 0x18, #endif "and",OPC_and,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+7,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,21}, /* 0000 0110 ssN0 dddd *** andb rbd,@rs */ { #ifdef NICENAMES "andb rbd,@rs",8,7, 0x1c, #endif "andb",OPC_andb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+6,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,22}, /* 0100 0110 0000 dddd address_src *** andb rbd,address_src */ { #ifdef NICENAMES "andb rbd,address_src",8,9, 0x1c, #endif "andb",OPC_andb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+6,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,23}, /* 0100 0110 ssN0 dddd address_src *** andb rbd,address_src(rs) */ { #ifdef NICENAMES "andb rbd,address_src(rs)",8,10, 0x1c, #endif "andb",OPC_andb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+6,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,24}, /* 0000 0110 0000 dddd imm8 imm8 *** andb rbd,imm8 */ { #ifdef NICENAMES "andb rbd,imm8",8,7, 0x1c, #endif "andb",OPC_andb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+6,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,0,},2,4,25}, /* 1000 0110 ssss dddd *** andb rbd,rbs */ { #ifdef NICENAMES "andb rbd,rbs",8,4, 0x1c, #endif "andb",OPC_andb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+6,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,26}, /* 0010 0111 ddN0 imm4 *** bit @rd,imm4 */ { #ifdef NICENAMES "bit @rd,imm4",16,8, 0x10, #endif "bit",OPC_bit,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+2,CLASS_BIT+7,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,27}, /* 0110 0111 ddN0 imm4 address_dst *** bit address_dst(rd),imm4 */ { #ifdef NICENAMES "bit address_dst(rd),imm4",16,11, 0x10, #endif "bit",OPC_bit,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+7,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,28}, /* 0110 0111 0000 imm4 address_dst *** bit address_dst,imm4 */ { #ifdef NICENAMES "bit address_dst,imm4",16,10, 0x10, #endif "bit",OPC_bit,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+7,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,29}, /* 1010 0111 dddd imm4 *** bit rd,imm4 */ { #ifdef NICENAMES "bit rd,imm4",16,4, 0x10, #endif "bit",OPC_bit,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+0xa,CLASS_BIT+7,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,30}, /* 0010 0111 0000 ssss 0000 dddd 0000 0000 *** bit rd,rs */ { #ifdef NICENAMES "bit rd,rs",16,10, 0x10, #endif "bit",OPC_bit,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+7,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,31}, /* 0010 0110 ddN0 imm4 *** bitb @rd,imm4 */ { #ifdef NICENAMES "bitb @rd,imm4",8,8, 0x10, #endif "bitb",OPC_bitb,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+2,CLASS_BIT+6,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,32}, /* 0110 0110 ddN0 imm4 address_dst *** bitb address_dst(rd),imm4 */ { #ifdef NICENAMES "bitb address_dst(rd),imm4",8,11, 0x10, #endif "bitb",OPC_bitb,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+6,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,33}, /* 0110 0110 0000 imm4 address_dst *** bitb address_dst,imm4 */ { #ifdef NICENAMES "bitb address_dst,imm4",8,10, 0x10, #endif "bitb",OPC_bitb,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+6,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,34}, /* 1010 0110 dddd imm4 *** bitb rbd,imm4 */ { #ifdef NICENAMES "bitb rbd,imm4",8,4, 0x10, #endif "bitb",OPC_bitb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+0xa,CLASS_BIT+6,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,35}, /* 0010 0110 0000 ssss 0000 dddd 0000 0000 *** bitb rbd,rs */ { #ifdef NICENAMES "bitb rbd,rs",8,10, 0x10, #endif "bitb",OPC_bitb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+6,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,36}, /* 0011 0110 0000 0000 *** bpt */ { #ifdef NICENAMES "bpt",8,2, 0x00, #endif "bpt",OPC_bpt,0,{0}, {CLASS_BIT+3,CLASS_BIT+6,CLASS_BIT+0,CLASS_BIT+0,0,0,0,0,0,},0,2,37}, /* 0001 1111 ddN0 0000 *** call @rd */ { #ifdef NICENAMES "call @rd",32,10, 0x00, #endif "call",OPC_call,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+1,CLASS_BIT+0xf,CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,0,0,0,0,},1,2,38}, /* 0101 1111 0000 0000 address_dst *** call address_dst */ { #ifdef NICENAMES "call address_dst",32,12, 0x00, #endif "call",OPC_call,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+5,CLASS_BIT+0xf,CLASS_BIT+0,CLASS_BIT+0,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,39}, /* 0101 1111 ddN0 0000 address_dst *** call address_dst(rd) */ { #ifdef NICENAMES "call address_dst(rd)",32,13, 0x00, #endif "call",OPC_call,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+5,CLASS_BIT+0xf,CLASS_REGN0+(ARG_RD),CLASS_BIT+0,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,40}, /* 1101 disp12 *** calr disp12 */ { #ifdef NICENAMES "calr disp12",16,10, 0x00, #endif "calr",OPC_calr,0,{CLASS_DISP,}, {CLASS_BIT+0xd,CLASS_DISP+(ARG_DISP12),0,0,0,0,0,0,0,},1,2,41}, /* 0000 1101 ddN0 1000 *** clr @rd */ { #ifdef NICENAMES "clr @rd",16,8, 0x00, #endif "clr",OPC_clr,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,0,0,0,0,},1,2,42}, /* 0100 1101 0000 1000 address_dst *** clr address_dst */ { #ifdef NICENAMES "clr address_dst",16,11, 0x00, #endif "clr",OPC_clr,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_BIT+8,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,43}, /* 0100 1101 ddN0 1000 address_dst *** clr address_dst(rd) */ { #ifdef NICENAMES "clr address_dst(rd)",16,12, 0x00, #endif "clr",OPC_clr,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+8,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,44}, /* 1000 1101 dddd 1000 *** clr rd */ { #ifdef NICENAMES "clr rd",16,7, 0x00, #endif "clr",OPC_clr,0,{CLASS_REG_WORD+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xd,CLASS_REG+(ARG_RD),CLASS_BIT+8,0,0,0,0,0,},1,2,45}, /* 0000 1100 ddN0 1000 *** clrb @rd */ { #ifdef NICENAMES "clrb @rd",8,8, 0x00, #endif "clrb",OPC_clrb,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,0,0,0,0,},1,2,46}, /* 0100 1100 0000 1000 address_dst *** clrb address_dst */ { #ifdef NICENAMES "clrb address_dst",8,11, 0x00, #endif "clrb",OPC_clrb,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+8,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,47}, /* 0100 1100 ddN0 1000 address_dst *** clrb address_dst(rd) */ { #ifdef NICENAMES "clrb address_dst(rd)",8,12, 0x00, #endif "clrb",OPC_clrb,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+8,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,48}, /* 1000 1100 dddd 1000 *** clrb rbd */ { #ifdef NICENAMES "clrb rbd",8,7, 0x00, #endif "clrb",OPC_clrb,0,{CLASS_REG_BYTE+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xc,CLASS_REG+(ARG_RD),CLASS_BIT+8,0,0,0,0,0,},1,2,49}, /* 0000 1101 ddN0 0000 *** com @rd */ { #ifdef NICENAMES "com @rd",16,12, 0x18, #endif "com",OPC_com,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,0,0,0,0,},1,2,50}, /* 0100 1101 0000 0000 address_dst *** com address_dst */ { #ifdef NICENAMES "com address_dst",16,15, 0x18, #endif "com",OPC_com,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_BIT+0,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,51}, /* 0100 1101 ddN0 0000 address_dst *** com address_dst(rd) */ { #ifdef NICENAMES "com address_dst(rd)",16,16, 0x18, #endif "com",OPC_com,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+0,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,52}, /* 1000 1101 dddd 0000 *** com rd */ { #ifdef NICENAMES "com rd",16,7, 0x18, #endif "com",OPC_com,0,{CLASS_REG_WORD+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xd,CLASS_REG+(ARG_RD),CLASS_BIT+0,0,0,0,0,0,},1,2,53}, /* 0000 1100 ddN0 0000 *** comb @rd */ { #ifdef NICENAMES "comb @rd",8,12, 0x1c, #endif "comb",OPC_comb,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,0,0,0,0,},1,2,54}, /* 0100 1100 0000 0000 address_dst *** comb address_dst */ { #ifdef NICENAMES "comb address_dst",8,15, 0x1c, #endif "comb",OPC_comb,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+0,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,55}, /* 0100 1100 ddN0 0000 address_dst *** comb address_dst(rd) */ { #ifdef NICENAMES "comb address_dst(rd)",8,16, 0x1c, #endif "comb",OPC_comb,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+0,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,56}, /* 1000 1100 dddd 0000 *** comb rbd */ { #ifdef NICENAMES "comb rbd",8,7, 0x1c, #endif "comb",OPC_comb,0,{CLASS_REG_BYTE+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xc,CLASS_REG+(ARG_RD),CLASS_BIT+0,0,0,0,0,0,},1,2,57}, /* 1000 1101 flags 0101 *** comflg flags */ { #ifdef NICENAMES "comflg flags",16,7, 0x3c, #endif "comflg",OPC_comflg,0,{CLASS_FLAGS,}, {CLASS_BIT+8,CLASS_BIT+0xd,CLASS_FLAGS,CLASS_BIT+5,0,0,0,0,0,},1,2,58}, /* 0000 1101 ddN0 0001 imm16 *** cp @rd,imm16 */ { #ifdef NICENAMES "cp @rd,imm16",16,11, 0x3c, #endif "cp",OPC_cp,0,{CLASS_IR+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+0,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+1,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,59}, /* 0100 1101 ddN0 0001 address_dst imm16 *** cp address_dst(rd),imm16 */ { #ifdef NICENAMES "cp address_dst(rd),imm16",16,15, 0x3c, #endif "cp",OPC_cp,0,{CLASS_X+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+1,CLASS_ADDRESS+(ARG_DST),CLASS_IMM+(ARG_IMM16),0,0,0,},2,6,60}, /* 0100 1101 0000 0001 address_dst imm16 *** cp address_dst,imm16 */ { #ifdef NICENAMES "cp address_dst,imm16",16,14, 0x3c, #endif "cp",OPC_cp,0,{CLASS_DA+(ARG_DST),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_BIT+1,CLASS_ADDRESS+(ARG_DST),CLASS_IMM+(ARG_IMM16),0,0,0,},2,6,61}, /* 0000 1011 ssN0 dddd *** cp rd,@rs */ { #ifdef NICENAMES "cp rd,@rs",16,7, 0x3c, #endif "cp",OPC_cp,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,62}, /* 0100 1011 0000 dddd address_src *** cp rd,address_src */ { #ifdef NICENAMES "cp rd,address_src",16,9, 0x3c, #endif "cp",OPC_cp,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+0xb,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,63}, /* 0100 1011 ssN0 dddd address_src *** cp rd,address_src(rs) */ { #ifdef NICENAMES "cp rd,address_src(rs)",16,10, 0x3c, #endif "cp",OPC_cp,0,{CLASS_REG_WORD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,64}, /* 0000 1011 0000 dddd imm16 *** cp rd,imm16 */ { #ifdef NICENAMES "cp rd,imm16",16,7, 0x3c, #endif "cp",OPC_cp,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+0,CLASS_BIT+0xb,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,65}, /* 1000 1011 ssss dddd *** cp rd,rs */ { #ifdef NICENAMES "cp rd,rs",16,4, 0x3c, #endif "cp",OPC_cp,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+0xb,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,66}, /* 0000 1100 ddN0 0001 imm8 imm8 *** cpb @rd,imm8 */ { #ifdef NICENAMES "cpb @rd,imm8",8,11, 0x3c, #endif "cpb",OPC_cpb,0,{CLASS_IR+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+1,CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,0,},2,4,67}, /* 0100 1100 ddN0 0001 address_dst imm8 imm8 *** cpb address_dst(rd),imm8 */ { #ifdef NICENAMES "cpb address_dst(rd),imm8",8,15, 0x3c, #endif "cpb",OPC_cpb,0,{CLASS_X+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+1,CLASS_ADDRESS+(ARG_DST),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,},2,6,68}, /* 0100 1100 0000 0001 address_dst imm8 imm8 *** cpb address_dst,imm8 */ { #ifdef NICENAMES "cpb address_dst,imm8",8,14, 0x3c, #endif "cpb",OPC_cpb,0,{CLASS_DA+(ARG_DST),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+1,CLASS_ADDRESS+(ARG_DST),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,},2,6,69}, /* 0000 1010 ssN0 dddd *** cpb rbd,@rs */ { #ifdef NICENAMES "cpb rbd,@rs",8,7, 0x3c, #endif "cpb",OPC_cpb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,70}, /* 0100 1010 0000 dddd address_src *** cpb rbd,address_src */ { #ifdef NICENAMES "cpb rbd,address_src",8,9, 0x3c, #endif "cpb",OPC_cpb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,71}, /* 0100 1010 ssN0 dddd address_src *** cpb rbd,address_src(rs) */ { #ifdef NICENAMES "cpb rbd,address_src(rs)",8,10, 0x3c, #endif "cpb",OPC_cpb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,72}, /* 0000 1010 0000 dddd imm8 imm8 *** cpb rbd,imm8 */ { #ifdef NICENAMES "cpb rbd,imm8",8,7, 0x3c, #endif "cpb",OPC_cpb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,0,},2,4,73}, /* 1000 1010 ssss dddd *** cpb rbd,rbs */ { #ifdef NICENAMES "cpb rbd,rbs",8,4, 0x3c, #endif "cpb",OPC_cpb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+0xa,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,74}, /* 1011 1011 ssN0 1000 0000 rrrr dddd cccc *** cpd rd,@rs,rr,cc */ { #ifdef NICENAMES "cpd rd,@rs,rr,cc",16,11, 0x3c, #endif "cpd",OPC_cpd,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REG+(ARG_RD),CLASS_CC,0,},4,4,75}, /* 1011 1010 ssN0 1000 0000 rrrr dddd cccc *** cpdb rbd,@rs,rr,cc */ { #ifdef NICENAMES "cpdb rbd,@rs,rr,cc",8,11, 0x3c, #endif "cpdb",OPC_cpdb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REG+(ARG_RD),CLASS_CC,0,},4,4,76}, /* 1011 1011 ssN0 1100 0000 rrrr dddd cccc *** cpdr rd,@rs,rr,cc */ { #ifdef NICENAMES "cpdr rd,@rs,rr,cc",16,11, 0x3c, #endif "cpdr",OPC_cpdr,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xc,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REG+(ARG_RD),CLASS_CC,0,},4,4,77}, /* 1011 1010 ssN0 1100 0000 rrrr dddd cccc *** cpdrb rbd,@rs,rr,cc */ { #ifdef NICENAMES "cpdrb rbd,@rs,rr,cc",8,11, 0x3c, #endif "cpdrb",OPC_cpdrb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xc,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REG+(ARG_RD),CLASS_CC,0,},4,4,78}, /* 1011 1011 ssN0 0000 0000 rrrr dddd cccc *** cpi rd,@rs,rr,cc */ { #ifdef NICENAMES "cpi rd,@rs,rr,cc",16,11, 0x3c, #endif "cpi",OPC_cpi,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REG+(ARG_RD),CLASS_CC,0,},4,4,79}, /* 1011 1010 ssN0 0000 0000 rrrr dddd cccc *** cpib rbd,@rs,rr,cc */ { #ifdef NICENAMES "cpib rbd,@rs,rr,cc",8,11, 0x3c, #endif "cpib",OPC_cpib,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REG+(ARG_RD),CLASS_CC,0,},4,4,80}, /* 1011 1011 ssN0 0100 0000 rrrr dddd cccc *** cpir rd,@rs,rr,cc */ { #ifdef NICENAMES "cpir rd,@rs,rr,cc",16,11, 0x3c, #endif "cpir",OPC_cpir,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+4,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REG+(ARG_RD),CLASS_CC,0,},4,4,81}, /* 1011 1010 ssN0 0100 0000 rrrr dddd cccc *** cpirb rbd,@rs,rr,cc */ { #ifdef NICENAMES "cpirb rbd,@rs,rr,cc",8,11, 0x3c, #endif "cpirb",OPC_cpirb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+4,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REG+(ARG_RD),CLASS_CC,0,},4,4,82}, /* 0001 0000 ssN0 dddd *** cpl rrd,@rs */ { #ifdef NICENAMES "cpl rrd,@rs",32,14, 0x3c, #endif "cpl",OPC_cpl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+0,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,83}, /* 0101 0000 0000 dddd address_src *** cpl rrd,address_src */ { #ifdef NICENAMES "cpl rrd,address_src",32,15, 0x3c, #endif "cpl",OPC_cpl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,84}, /* 0101 0000 ssN0 dddd address_src *** cpl rrd,address_src(rs) */ { #ifdef NICENAMES "cpl rrd,address_src(rs)",32,16, 0x3c, #endif "cpl",OPC_cpl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+0,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,85}, /* 0001 0000 0000 dddd imm32 *** cpl rrd,imm32 */ { #ifdef NICENAMES "cpl rrd,imm32",32,14, 0x3c, #endif "cpl",OPC_cpl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM32),}, {CLASS_BIT+1,CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM32),0,0,0,0,},2,6,86}, /* 1001 0000 ssss dddd *** cpl rrd,rrs */ { #ifdef NICENAMES "cpl rrd,rrs",32,8, 0x3c, #endif "cpl",OPC_cpl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,87}, /* 1011 1011 ssN0 1010 0000 rrrr ddN0 cccc *** cpsd @rd,@rs,rr,cc */ { #ifdef NICENAMES "cpsd @rd,@rs,rr,cc",16,11, 0x3c, #endif "cpsd",OPC_cpsd,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_CC,0,},4,4,88}, /* 1011 1010 ssN0 1010 0000 rrrr ddN0 cccc *** cpsdb @rd,@rs,rr,cc */ { #ifdef NICENAMES "cpsdb @rd,@rs,rr,cc",8,11, 0x3c, #endif "cpsdb",OPC_cpsdb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_CC,0,},4,4,89}, /* 1011 1011 ssN0 1110 0000 rrrr ddN0 cccc *** cpsdr @rd,@rs,rr,cc */ { #ifdef NICENAMES "cpsdr @rd,@rs,rr,cc",16,11, 0x3c, #endif "cpsdr",OPC_cpsdr,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xe,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_CC,0,},4,4,90}, /* 1011 1010 ssN0 1110 0000 rrrr ddN0 cccc *** cpsdrb @rd,@rs,rr,cc */ { #ifdef NICENAMES "cpsdrb @rd,@rs,rr,cc",8,11, 0x3c, #endif "cpsdrb",OPC_cpsdrb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xe,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_CC,0,},4,4,91}, /* 1011 1011 ssN0 0010 0000 rrrr ddN0 cccc *** cpsi @rd,@rs,rr,cc */ { #ifdef NICENAMES "cpsi @rd,@rs,rr,cc",16,11, 0x3c, #endif "cpsi",OPC_cpsi,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_CC,0,},4,4,92}, /* 1011 1010 ssN0 0010 0000 rrrr ddN0 cccc *** cpsib @rd,@rs,rr,cc */ { #ifdef NICENAMES "cpsib @rd,@rs,rr,cc",8,11, 0x3c, #endif "cpsib",OPC_cpsib,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_CC,0,},4,4,93}, /* 1011 1011 ssN0 0110 0000 rrrr ddN0 cccc *** cpsir @rd,@rs,rr,cc */ { #ifdef NICENAMES "cpsir @rd,@rs,rr,cc",16,11, 0x3c, #endif "cpsir",OPC_cpsir,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+6,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_CC,0,},4,4,94}, /* 1011 1010 ssN0 0110 0000 rrrr ddN0 cccc *** cpsirb @rd,@rs,rr,cc */ { #ifdef NICENAMES "cpsirb @rd,@rs,rr,cc",8,11, 0x3c, #endif "cpsirb",OPC_cpsirb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),CLASS_CC,}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+6,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_CC,0,},4,4,95}, /* 1011 0000 dddd 0000 *** dab rbd */ { #ifdef NICENAMES "dab rbd",8,5, 0x38, #endif "dab",OPC_dab,0,{CLASS_REG_BYTE+(ARG_RD),}, {CLASS_BIT+0xb,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,0,0,0,0,0,},1,2,96}, /* 1111 dddd 0disp7 *** dbjnz rbd,disp7 */ { #ifdef NICENAMES "dbjnz rbd,disp7",16,11, 0x00, #endif "dbjnz",OPC_dbjnz,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DISP,}, {CLASS_BIT+0xf,CLASS_REG+(ARG_RD),CLASS_0DISP7,0,0,0,0,0,0,},2,2,97}, /* 0010 1011 ddN0 imm4m1 *** dec @rd,imm4m1 */ { #ifdef NICENAMES "dec @rd,imm4m1",16,11, 0x1c, #endif "dec",OPC_dec,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+2,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),0,0,0,0,0,},2,2,98}, /* 0110 1011 ddN0 imm4m1 address_dst *** dec address_dst(rd),imm4m1 */ { #ifdef NICENAMES "dec address_dst(rd),imm4m1",16,14, 0x1c, #endif "dec",OPC_dec,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+6,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,99}, /* 0110 1011 0000 imm4m1 address_dst *** dec address_dst,imm4m1 */ { #ifdef NICENAMES "dec address_dst,imm4m1",16,13, 0x1c, #endif "dec",OPC_dec,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+6,CLASS_BIT+0xb,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4M1),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,100}, /* 1010 1011 dddd imm4m1 *** dec rd,imm4m1 */ { #ifdef NICENAMES "dec rd,imm4m1",16,4, 0x1c, #endif "dec",OPC_dec,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+0xa,CLASS_BIT+0xb,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),0,0,0,0,0,},2,2,101}, /* 0010 1010 ddN0 imm4m1 *** decb @rd,imm4m1 */ { #ifdef NICENAMES "decb @rd,imm4m1",8,11, 0x1c, #endif "decb",OPC_decb,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+2,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),0,0,0,0,0,},2,2,102}, /* 0110 1010 ddN0 imm4m1 address_dst *** decb address_dst(rd),imm4m1 */ { #ifdef NICENAMES "decb address_dst(rd),imm4m1",8,14, 0x1c, #endif "decb",OPC_decb,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+6,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,103}, /* 0110 1010 0000 imm4m1 address_dst *** decb address_dst,imm4m1 */ { #ifdef NICENAMES "decb address_dst,imm4m1",8,13, 0x1c, #endif "decb",OPC_decb,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+6,CLASS_BIT+0xa,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4M1),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,104}, /* 1010 1010 dddd imm4m1 *** decb rbd,imm4m1 */ { #ifdef NICENAMES "decb rbd,imm4m1",8,4, 0x1c, #endif "decb",OPC_decb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+0xa,CLASS_BIT+0xa,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),0,0,0,0,0,},2,2,105}, /* 0111 1100 0000 00ii *** di i2 */ { #ifdef NICENAMES "di i2",16,7, 0x00, #endif "di",OPC_di,0,{CLASS_IMM+(ARG_IMM2),}, {CLASS_BIT+7,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_00II,0,0,0,0,0,},1,2,106}, /* 0001 1011 ssN0 dddd *** div rrd,@rs */ { #ifdef NICENAMES "div rrd,@rs",16,107, 0x3c, #endif "div",OPC_div,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,107}, /* 0101 1011 0000 dddd address_src *** div rrd,address_src */ { #ifdef NICENAMES "div rrd,address_src",16,107, 0x3c, #endif "div",OPC_div,0,{CLASS_REG_LONG+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+0xb,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,108}, /* 0101 1011 ssN0 dddd address_src *** div rrd,address_src(rs) */ { #ifdef NICENAMES "div rrd,address_src(rs)",16,107, 0x3c, #endif "div",OPC_div,0,{CLASS_REG_LONG+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,109}, /* 0001 1011 0000 dddd imm16 *** div rrd,imm16 */ { #ifdef NICENAMES "div rrd,imm16",16,107, 0x3c, #endif "div",OPC_div,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+1,CLASS_BIT+0xb,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,110}, /* 1001 1011 ssss dddd *** div rrd,rs */ { #ifdef NICENAMES "div rrd,rs",16,107, 0x3c, #endif "div",OPC_div,0,{CLASS_REG_LONG+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+0xb,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,111}, /* 0001 1010 ssN0 dddd *** divl rqd,@rs */ { #ifdef NICENAMES "divl rqd,@rs",32,744, 0x3c, #endif "divl",OPC_divl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,112}, /* 0101 1010 0000 dddd address_src *** divl rqd,address_src */ { #ifdef NICENAMES "divl rqd,address_src",32,745, 0x3c, #endif "divl",OPC_divl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,113}, /* 0101 1010 ssN0 dddd address_src *** divl rqd,address_src(rs) */ { #ifdef NICENAMES "divl rqd,address_src(rs)",32,746, 0x3c, #endif "divl",OPC_divl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,114}, /* 0001 1010 0000 dddd imm32 *** divl rqd,imm32 */ { #ifdef NICENAMES "divl rqd,imm32",32,744, 0x3c, #endif "divl",OPC_divl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_IMM+(ARG_IMM32),}, {CLASS_BIT+1,CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM32),0,0,0,0,},2,6,115}, /* 1001 1010 ssss dddd *** divl rqd,rrs */ { #ifdef NICENAMES "divl rqd,rrs",32,744, 0x3c, #endif "divl",OPC_divl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+0xa,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,116}, /* 1111 dddd 1disp7 *** djnz rd,disp7 */ { #ifdef NICENAMES "djnz rd,disp7",16,11, 0x00, #endif "djnz",OPC_djnz,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DISP,}, {CLASS_BIT+0xf,CLASS_REG+(ARG_RD),CLASS_1DISP7,0,0,0,0,0,0,},2,2,117}, /* 0111 1100 0000 01ii *** ei i2 */ { #ifdef NICENAMES "ei i2",16,7, 0x00, #endif "ei",OPC_ei,0,{CLASS_IMM+(ARG_IMM2),}, {CLASS_BIT+7,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_01II,0,0,0,0,0,},1,2,118}, /* 0010 1101 ssN0 dddd *** ex rd,@rs */ { #ifdef NICENAMES "ex rd,@rs",16,12, 0x00, #endif "ex",OPC_ex,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,119}, /* 0110 1101 0000 dddd address_src *** ex rd,address_src */ { #ifdef NICENAMES "ex rd,address_src",16,15, 0x00, #endif "ex",OPC_ex,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+6,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,120}, /* 0110 1101 ssN0 dddd address_src *** ex rd,address_src(rs) */ { #ifdef NICENAMES "ex rd,address_src(rs)",16,16, 0x00, #endif "ex",OPC_ex,0,{CLASS_REG_WORD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+6,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,121}, /* 1010 1101 ssss dddd *** ex rd,rs */ { #ifdef NICENAMES "ex rd,rs",16,6, 0x00, #endif "ex",OPC_ex,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xa,CLASS_BIT+0xd,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,122}, /* 0010 1100 ssN0 dddd *** exb rbd,@rs */ { #ifdef NICENAMES "exb rbd,@rs",8,12, 0x00, #endif "exb",OPC_exb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,123}, /* 0110 1100 0000 dddd address_src *** exb rbd,address_src */ { #ifdef NICENAMES "exb rbd,address_src",8,15, 0x00, #endif "exb",OPC_exb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+6,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,124}, /* 0110 1100 ssN0 dddd address_src *** exb rbd,address_src(rs) */ { #ifdef NICENAMES "exb rbd,address_src(rs)",8,16, 0x00, #endif "exb",OPC_exb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+6,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,125}, /* 1010 1100 ssss dddd *** exb rbd,rbs */ { #ifdef NICENAMES "exb rbd,rbs",8,6, 0x00, #endif "exb",OPC_exb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+0xa,CLASS_BIT+0xc,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,126}, /* 0000 1110 imm8 *** ext0e imm8 */ { #ifdef NICENAMES "ext0e imm8",8,10, 0x00, #endif "ext0e",OPC_ext0e,0,{CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+0xe,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},1,2,127}, /* 0000 1111 imm8 *** ext0f imm8 */ { #ifdef NICENAMES "ext0f imm8",8,10, 0x00, #endif "ext0f",OPC_ext0f,0,{CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+0xf,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},1,2,128}, /* 1000 1110 imm8 *** ext8e imm8 */ { #ifdef NICENAMES "ext8e imm8",8,10, 0x00, #endif "ext8e",OPC_ext8e,0,{CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+8,CLASS_BIT+0xe,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},1,2,129}, /* 1000 1111 imm8 *** ext8f imm8 */ { #ifdef NICENAMES "ext8f imm8",8,10, 0x00, #endif "ext8f",OPC_ext8f,0,{CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+8,CLASS_BIT+0xf,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},1,2,130}, /* 1011 0001 dddd 1010 *** exts rrd */ { #ifdef NICENAMES "exts rrd",16,11, 0x00, #endif "exts",OPC_exts,0,{CLASS_REG_LONG+(ARG_RD),}, {CLASS_BIT+0xb,CLASS_BIT+1,CLASS_REG+(ARG_RD),CLASS_BIT+0xa,0,0,0,0,0,},1,2,131}, /* 1011 0001 dddd 0000 *** extsb rd */ { #ifdef NICENAMES "extsb rd",8,11, 0x00, #endif "extsb",OPC_extsb,0,{CLASS_REG_WORD+(ARG_RD),}, {CLASS_BIT+0xb,CLASS_BIT+1,CLASS_REG+(ARG_RD),CLASS_BIT+0,0,0,0,0,0,},1,2,132}, /* 1011 0001 dddd 0111 *** extsl rqd */ { #ifdef NICENAMES "extsl rqd",32,11, 0x00, #endif "extsl",OPC_extsl,0,{CLASS_REG_QUAD+(ARG_RD),}, {CLASS_BIT+0xb,CLASS_BIT+1,CLASS_REG+(ARG_RD),CLASS_BIT+7,0,0,0,0,0,},1,2,133}, /* 0111 1010 0000 0000 *** halt */ { #ifdef NICENAMES "halt",16,8, 0x00, #endif "halt",OPC_halt,0,{0}, {CLASS_BIT+7,CLASS_BIT+0xa,CLASS_BIT+0,CLASS_BIT+0,0,0,0,0,0,},0,2,134}, /* 0011 1101 ssN0 dddd *** in rd,@rs */ { #ifdef NICENAMES "in rd,@rs",16,10, 0x00, #endif "in",OPC_in,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,135}, /* 0011 1101 dddd 0100 imm16 *** in rd,imm16 */ { #ifdef NICENAMES "in rd,imm16",16,12, 0x00, #endif "in",OPC_in,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+3,CLASS_BIT+0xd,CLASS_REG+(ARG_RD),CLASS_BIT+4,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,136}, /* 0011 1100 ssN0 dddd *** inb rbd,@rs */ { #ifdef NICENAMES "inb rbd,@rs",8,12, 0x00, #endif "inb",OPC_inb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,137}, /* 0011 1010 dddd 0100 imm16 *** inb rbd,imm16 */ { #ifdef NICENAMES "inb rbd,imm16",8,10, 0x00, #endif "inb",OPC_inb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REG+(ARG_RD),CLASS_BIT+4,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,138}, /* 0010 1001 ddN0 imm4m1 *** inc @rd,imm4m1 */ { #ifdef NICENAMES "inc @rd,imm4m1",16,11, 0x1c, #endif "inc",OPC_inc,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+2,CLASS_BIT+9,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),0,0,0,0,0,},2,2,139}, /* 0110 1001 ddN0 imm4m1 address_dst *** inc address_dst(rd),imm4m1 */ { #ifdef NICENAMES "inc address_dst(rd),imm4m1",16,14, 0x1c, #endif "inc",OPC_inc,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+6,CLASS_BIT+9,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,140}, /* 0110 1001 0000 imm4m1 address_dst *** inc address_dst,imm4m1 */ { #ifdef NICENAMES "inc address_dst,imm4m1",16,13, 0x1c, #endif "inc",OPC_inc,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+6,CLASS_BIT+9,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4M1),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,141}, /* 1010 1001 dddd imm4m1 *** inc rd,imm4m1 */ { #ifdef NICENAMES "inc rd,imm4m1",16,4, 0x1c, #endif "inc",OPC_inc,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+0xa,CLASS_BIT+9,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),0,0,0,0,0,},2,2,142}, /* 0010 1000 ddN0 imm4m1 *** incb @rd,imm4m1 */ { #ifdef NICENAMES "incb @rd,imm4m1",8,11, 0x1c, #endif "incb",OPC_incb,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+2,CLASS_BIT+8,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),0,0,0,0,0,},2,2,143}, /* 0110 1000 ddN0 imm4m1 address_dst *** incb address_dst(rd),imm4m1 */ { #ifdef NICENAMES "incb address_dst(rd),imm4m1",8,14, 0x1c, #endif "incb",OPC_incb,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+6,CLASS_BIT+8,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,144}, /* 0110 1000 0000 imm4m1 address_dst *** incb address_dst,imm4m1 */ { #ifdef NICENAMES "incb address_dst,imm4m1",8,13, 0x1c, #endif "incb",OPC_incb,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+6,CLASS_BIT+8,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4M1),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,145}, /* 1010 1000 dddd imm4m1 *** incb rbd,imm4m1 */ { #ifdef NICENAMES "incb rbd,imm4m1",8,4, 0x1c, #endif "incb",OPC_incb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM +(ARG_IMM4M1),}, {CLASS_BIT+0xa,CLASS_BIT+8,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4M1),0,0,0,0,0,},2,2,146}, /* 0011 1011 ssN0 1000 0000 aaaa ddN0 1000 *** ind @rd,@rs,ra */ { #ifdef NICENAMES "ind @rd,@rs,ra",16,21, 0x04, #endif "ind",OPC_ind,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,147}, /* 0011 1010 ssN0 1000 0000 aaaa ddN0 1000 *** indb @rd,@rs,rba */ { #ifdef NICENAMES "indb @rd,@rs,rba",8,21, 0x04, #endif "indb",OPC_indb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_BYTE+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,148}, /* 0011 1010 ssN0 0000 0000 aaaa ddN0 1000 *** inib @rd,@rs,ra */ { #ifdef NICENAMES "inib @rd,@rs,ra",8,21, 0x04, #endif "inib",OPC_inib,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,149}, /* 0011 1010 ssN0 0000 0000 aaaa ddN0 0000 *** inibr @rd,@rs,ra */ { #ifdef NICENAMES "inibr @rd,@rs,ra",16,21, 0x04, #endif "inibr",OPC_inibr,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,},3,4,150}, /* 0111 1011 0000 0000 *** iret */ { #ifdef NICENAMES "iret",16,13, 0x3f, #endif "iret",OPC_iret,0,{0}, {CLASS_BIT+7,CLASS_BIT+0xb,CLASS_BIT+0,CLASS_BIT+0,0,0,0,0,0,},0,2,151}, /* 0001 1110 ddN0 cccc *** jp cc,@rd */ { #ifdef NICENAMES "jp cc,@rd",16,10, 0x00, #endif "jp",OPC_jp,0,{CLASS_CC,CLASS_IR+(ARG_RD),}, {CLASS_BIT+1,CLASS_BIT+0xe,CLASS_REGN0+(ARG_RD),CLASS_CC,0,0,0,0,0,},2,2,152}, /* 0101 1110 0000 cccc address_dst *** jp cc,address_dst */ { #ifdef NICENAMES "jp cc,address_dst",16,7, 0x00, #endif "jp",OPC_jp,0,{CLASS_CC,CLASS_DA+(ARG_DST),}, {CLASS_BIT+5,CLASS_BIT+0xe,CLASS_BIT+0,CLASS_CC,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,153}, /* 0101 1110 ddN0 cccc address_dst *** jp cc,address_dst(rd) */ { #ifdef NICENAMES "jp cc,address_dst(rd)",16,8, 0x00, #endif "jp",OPC_jp,0,{CLASS_CC,CLASS_X+(ARG_RD),}, {CLASS_BIT+5,CLASS_BIT+0xe,CLASS_REGN0+(ARG_RD),CLASS_CC,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,154}, /* 1110 cccc disp8 *** jr cc,disp8 */ { #ifdef NICENAMES "jr cc,disp8",16,6, 0x00, #endif "jr",OPC_jr,0,{CLASS_CC,CLASS_DISP,}, {CLASS_BIT+0xe,CLASS_CC,CLASS_DISP8,0,0,0,0,0,0,},2,2,155}, /* 0000 1101 ddN0 0101 imm16 *** ld @rd,imm16 */ { #ifdef NICENAMES "ld @rd,imm16",16,7, 0x00, #endif "ld",OPC_ld,0,{CLASS_IR+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+0,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+5,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,156}, /* 0010 1111 ddN0 ssss *** ld @rd,rs */ { #ifdef NICENAMES "ld @rd,rs",16,8, 0x00, #endif "ld",OPC_ld,0,{CLASS_IR+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+0xf,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),0,0,0,0,0,},2,2,157}, /* 0100 1101 ddN0 0101 address_dst imm16 *** ld address_dst(rd),imm16 */ { #ifdef NICENAMES "ld address_dst(rd),imm16",16,15, 0x00, #endif "ld",OPC_ld,0,{CLASS_X+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+5,CLASS_ADDRESS+(ARG_DST),CLASS_IMM+(ARG_IMM16),0,0,0,},2,6,158}, /* 0110 1111 ddN0 ssss address_dst *** ld address_dst(rd),rs */ { #ifdef NICENAMES "ld address_dst(rd),rs",16,12, 0x00, #endif "ld",OPC_ld,0,{CLASS_X+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+6,CLASS_BIT+0xf,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,159}, /* 0100 1101 0000 0101 address_dst imm16 *** ld address_dst,imm16 */ { #ifdef NICENAMES "ld address_dst,imm16",16,14, 0x00, #endif "ld",OPC_ld,0,{CLASS_DA+(ARG_DST),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_BIT+5,CLASS_ADDRESS+(ARG_DST),CLASS_IMM+(ARG_IMM16),0,0,0,},2,6,160}, /* 0110 1111 0000 ssss address_dst *** ld address_dst,rs */ { #ifdef NICENAMES "ld address_dst,rs",16,11, 0x00, #endif "ld",OPC_ld,0,{CLASS_DA+(ARG_DST),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+6,CLASS_BIT+0xf,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,161}, /* 0011 0011 ddN0 ssss imm16 *** ld rd(imm16),rs */ { #ifdef NICENAMES "ld rd(imm16),rs",16,14, 0x00, #endif "ld",OPC_ld,0,{CLASS_BA+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+3,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,162}, /* 0111 0011 ddN0 ssss 0000 xxxx 0000 0000 *** ld rd(rx),rs */ { #ifdef NICENAMES "ld rd(rx),rs",16,14, 0x00, #endif "ld",OPC_ld,0,{CLASS_BX+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+3,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_REG+(ARG_RX),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,163}, /* 0010 0001 ssN0 dddd *** ld rd,@rs */ { #ifdef NICENAMES "ld rd,@rs",16,7, 0x00, #endif "ld",OPC_ld,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+1,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,164}, /* 0110 0001 0000 dddd address_src *** ld rd,address_src */ { #ifdef NICENAMES "ld rd,address_src",16,9, 0x00, #endif "ld",OPC_ld,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+6,CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,165}, /* 0110 0001 ssN0 dddd address_src *** ld rd,address_src(rs) */ { #ifdef NICENAMES "ld rd,address_src(rs)",16,10, 0x00, #endif "ld",OPC_ld,0,{CLASS_REG_WORD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+6,CLASS_BIT+1,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,166}, /* 0010 0001 0000 dddd imm16 *** ld rd,imm16 */ { #ifdef NICENAMES "ld rd,imm16",16,7, 0x00, #endif "ld",OPC_ld,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+2,CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,167}, /* 1010 0001 ssss dddd *** ld rd,rs */ { #ifdef NICENAMES "ld rd,rs",16,3, 0x00, #endif "ld",OPC_ld,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xa,CLASS_BIT+1,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,168}, /* 0011 0001 ssN0 dddd imm16 *** ld rd,rs(imm16) */ { #ifdef NICENAMES "ld rd,rs(imm16)",16,14, 0x00, #endif "ld",OPC_ld,0,{CLASS_REG_WORD+(ARG_RD),CLASS_BA+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+1,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,169}, /* 0111 0001 ssN0 dddd 0000 xxxx 0000 0000 *** ld rd,rs(rx) */ { #ifdef NICENAMES "ld rd,rs(rx)",16,14, 0x00, #endif "ld",OPC_ld,0,{CLASS_REG_WORD+(ARG_RD),CLASS_BX+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+1,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_REG+(ARG_RX),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,170}, /* 0111 0110 0000 dddd address_src *** lda prd,address_src */ { #ifdef NICENAMES "lda prd,address_src",16,12, 0x00, #endif "lda",OPC_lda,0,{CLASS_PR+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+7,CLASS_BIT+6,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,171}, /* 0111 0110 ssN0 dddd address_src *** lda prd,address_src(rs) */ { #ifdef NICENAMES "lda prd,address_src(rs)",16,13, 0x00, #endif "lda",OPC_lda,0,{CLASS_PR+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+6,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,172}, /* 0011 0100 ssN0 dddd imm16 *** lda prd,rs(imm16) */ { #ifdef NICENAMES "lda prd,rs(imm16)",16,15, 0x00, #endif "lda",OPC_lda,0,{CLASS_PR+(ARG_RD),CLASS_BA+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+4,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,173}, /* 0111 0100 ssN0 dddd 0000 xxxx 0000 0000 *** lda prd,rs(rx) */ { #ifdef NICENAMES "lda prd,rs(rx)",16,15, 0x00, #endif "lda",OPC_lda,0,{CLASS_PR+(ARG_RD),CLASS_BX+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+4,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_REG+(ARG_RX),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,174}, /* 0011 0100 0000 dddd disp16 *** ldar prd,disp16 */ { #ifdef NICENAMES "ldar prd,disp16",16,15, 0x00, #endif "ldar",OPC_ldar,0,{CLASS_PR+(ARG_RD),CLASS_DISP,}, {CLASS_BIT+3,CLASS_BIT+4,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_DISP+(ARG_DISP16),0,0,0,0,},2,4,175}, /* 0000 1100 ddN0 0101 imm8 imm8 *** ldb @rd,imm8 */ { #ifdef NICENAMES "ldb @rd,imm8",8,7, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_IR+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+5,CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,0,},2,4,176}, /* 0010 1110 ddN0 ssss *** ldb @rd,rbs */ { #ifdef NICENAMES "ldb @rd,rbs",8,8, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_IR+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+0xe,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),0,0,0,0,0,},2,2,177}, /* 0100 1100 ddN0 0101 address_dst imm8 imm8 *** ldb address_dst(rd),imm8 */ { #ifdef NICENAMES "ldb address_dst(rd),imm8",8,15, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_X+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+5,CLASS_ADDRESS+(ARG_DST),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,},2,6,178}, /* 0110 1110 ddN0 ssss address_dst *** ldb address_dst(rd),rbs */ { #ifdef NICENAMES "ldb address_dst(rd),rbs",8,12, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_X+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+6,CLASS_BIT+0xe,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,179}, /* 0100 1100 0000 0101 address_dst imm8 imm8 *** ldb address_dst,imm8 */ { #ifdef NICENAMES "ldb address_dst,imm8",8,14, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_DA+(ARG_DST),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+5,CLASS_ADDRESS+(ARG_DST),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,},2,6,180}, /* 0110 1110 0000 ssss address_dst *** ldb address_dst,rbs */ { #ifdef NICENAMES "ldb address_dst,rbs",8,11, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_DA+(ARG_DST),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+6,CLASS_BIT+0xe,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,181}, /* 0010 0000 ssN0 dddd *** ldb rbd,@rs */ { #ifdef NICENAMES "ldb rbd,@rs",8,7, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+0,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,182}, /* 0110 0000 0000 dddd address_src *** ldb rbd,address_src */ { #ifdef NICENAMES "ldb rbd,address_src",8,9, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+6,CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,183}, /* 0110 0000 ssN0 dddd address_src *** ldb rbd,address_src(rs) */ { #ifdef NICENAMES "ldb rbd,address_src(rs)",8,10, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+6,CLASS_BIT+0,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,184}, /* 1100 dddd imm8 *** ldb rbd,imm8 */ { #ifdef NICENAMES "ldb rbd,imm8",8,5, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xc,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},2,2,185}, /* 1010 0000 ssss dddd *** ldb rbd,rbs */ { #ifdef NICENAMES "ldb rbd,rbs",8,3, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,186}, /* 0011 0000 ssN0 dddd imm16 *** ldb rbd,rs(imm16) */ { #ifdef NICENAMES "ldb rbd,rs(imm16)",8,14, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_BA+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+0,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,187}, /* 0111 0000 ssN0 dddd 0000 xxxx 0000 0000 *** ldb rbd,rs(rx) */ { #ifdef NICENAMES "ldb rbd,rs(rx)",8,14, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_BX+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+0,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_REG+(ARG_RX),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,188}, /* 0011 0010 ddN0 ssss imm16 *** ldb rd(imm16),rbs */ { #ifdef NICENAMES "ldb rd(imm16),rbs",8,14, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_BA+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+2,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,189}, /* 0111 0010 ddN0 ssss 0000 xxxx 0000 0000 *** ldb rd(rx),rbs */ { #ifdef NICENAMES "ldb rd(rx),rbs",8,14, 0x00, #endif "ldb",OPC_ldb,0,{CLASS_BX+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+2,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_REG+(ARG_RX),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,190}, /* 0111 1101 ssss 1ccc *** ldctl ctrl,rs */ { #ifdef NICENAMES "ldctl ctrl,rs",32,7, 0x00, #endif "ldctl",OPC_ldctl,0,{CLASS_CTRL,CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+0xd,CLASS_REG+(ARG_RS),CLASS_1CCC,0,0,0,0,0,},2,2,191}, /* 0111 1101 dddd 0ccc *** ldctl rd,ctrl */ { #ifdef NICENAMES "ldctl rd,ctrl",32,7, 0x00, #endif "ldctl",OPC_ldctl,0,{CLASS_REG_WORD+(ARG_RD),CLASS_CTRL,}, {CLASS_BIT+7,CLASS_BIT+0xd,CLASS_REG+(ARG_RD),CLASS_0CCC,0,0,0,0,0,},2,2,192}, /* 1011 1011 ssN0 1001 0000 rrrr ddN0 1000 *** ldd @rd,@rs,rr */ { #ifdef NICENAMES "ldd @rd,@rs,rr",16,11, 0x04, #endif "ldd",OPC_ldd,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,193}, /* 1011 1010 ssN0 1001 0000 rrrr ddN0 1000 *** lddb @rd,@rs,rr */ { #ifdef NICENAMES "lddb @rd,@rs,rr",8,11, 0x04, #endif "lddb",OPC_lddb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,194}, /* 1011 1011 ssN0 1001 0000 rrrr ddN0 0000 *** lddr @rd,@rs,rr */ { #ifdef NICENAMES "lddr @rd,@rs,rr",16,11, 0x04, #endif "lddr",OPC_lddr,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,},3,4,195}, /* 1011 1010 ssN0 1001 0000 rrrr ddN0 0000 *** lddrb @rd,@rs,rr */ { #ifdef NICENAMES "lddrb @rd,@rs,rr",8,11, 0x04, #endif "lddrb",OPC_lddrb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,},3,4,196}, /* 1011 1011 ssN0 0001 0000 rrrr ddN0 1000 *** ldi @rd,@rs,rr */ { #ifdef NICENAMES "ldi @rd,@rs,rr",16,11, 0x04, #endif "ldi",OPC_ldi,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,197}, /* 1011 1010 ssN0 0001 0000 rrrr ddN0 1000 *** ldib @rd,@rs,rr */ { #ifdef NICENAMES "ldib @rd,@rs,rr",8,11, 0x04, #endif "ldib",OPC_ldib,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,198}, /* 1011 1011 ssN0 0001 0000 rrrr ddN0 0000 *** ldir @rd,@rs,rr */ { #ifdef NICENAMES "ldir @rd,@rs,rr",16,11, 0x04, #endif "ldir",OPC_ldir,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,},3,4,199}, /* 1011 1010 ssN0 0001 0000 rrrr ddN0 0000 *** ldirb @rd,@rs,rr */ { #ifdef NICENAMES "ldirb @rd,@rs,rr",8,11, 0x04, #endif "ldirb",OPC_ldirb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,},3,4,200}, /* 1011 1101 dddd imm4 *** ldk rd,imm4 */ { #ifdef NICENAMES "ldk rd,imm4",16,5, 0x00, #endif "ldk",OPC_ldk,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+0xb,CLASS_BIT+0xd,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,201}, /* 0001 1101 ddN0 ssss *** ldl @rd,rrs */ { #ifdef NICENAMES "ldl @rd,rrs",32,11, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_IR+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),0,0,0,0,0,},2,2,202}, /* 0101 1101 ddN0 ssss address_dst *** ldl address_dst(rd),rrs */ { #ifdef NICENAMES "ldl address_dst(rd),rrs",32,14, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_X+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,203}, /* 0101 1101 0000 ssss address_dst *** ldl address_dst,rrs */ { #ifdef NICENAMES "ldl address_dst,rrs",32,15, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_DA+(ARG_DST),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,204}, /* 0011 0111 ddN0 ssss imm16 *** ldl rd(imm16),rrs */ { #ifdef NICENAMES "ldl rd(imm16),rrs",32,17, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_BA+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+7,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,205}, /* 0111 0111 ddN0 ssss 0000 xxxx 0000 0000 *** ldl rd(rx),rrs */ { #ifdef NICENAMES "ldl rd(rx),rrs",32,17, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_BX+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+7,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_REG+(ARG_RX),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,206}, /* 0001 0100 ssN0 dddd *** ldl rrd,@rs */ { #ifdef NICENAMES "ldl rrd,@rs",32,11, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+4,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,207}, /* 0101 0100 0000 dddd address_src *** ldl rrd,address_src */ { #ifdef NICENAMES "ldl rrd,address_src",32,12, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+4,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,208}, /* 0101 0100 ssN0 dddd address_src *** ldl rrd,address_src(rs) */ { #ifdef NICENAMES "ldl rrd,address_src(rs)",32,13, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+4,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,209}, /* 0001 0100 0000 dddd imm32 *** ldl rrd,imm32 */ { #ifdef NICENAMES "ldl rrd,imm32",32,11, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM32),}, {CLASS_BIT+1,CLASS_BIT+4,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM32),0,0,0,0,},2,6,210}, /* 1001 0100 ssss dddd *** ldl rrd,rrs */ { #ifdef NICENAMES "ldl rrd,rrs",32,5, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+4,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,211}, /* 0011 0101 ssN0 dddd imm16 *** ldl rrd,rs(imm16) */ { #ifdef NICENAMES "ldl rrd,rs(imm16)",32,17, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_BA+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+5,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,212}, /* 0111 0101 ssN0 dddd 0000 xxxx 0000 0000 *** ldl rrd,rs(rx) */ { #ifdef NICENAMES "ldl rrd,rs(rx)",32,17, 0x00, #endif "ldl",OPC_ldl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_BX+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+5,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_REG+(ARG_RX),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,213}, /* 0001 1100 ddN0 1001 0000 ssss 0000 nminus1 *** ldm @rd,rs,n */ { #ifdef NICENAMES "ldm @rd,rs,n",16,11, 0x00, #endif "ldm",OPC_ldm,0,{CLASS_IR+(ARG_RD),CLASS_REG_WORD+(ARG_RS),CLASS_IMM + (ARG_IMMN),}, {CLASS_BIT+1,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_IMM+(ARG_IMMNMINUS1),0,},3,4,214}, /* 0101 1100 ddN0 1001 0000 ssss 0000 nminus1 address_dst *** ldm address_dst(rd),rs,n */ { #ifdef NICENAMES "ldm address_dst(rd),rs,n",16,15, 0x00, #endif "ldm",OPC_ldm,0,{CLASS_X+(ARG_RD),CLASS_REG_WORD+(ARG_RS),CLASS_IMM + (ARG_IMMN),}, {CLASS_BIT+5,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_IMM+(ARG_IMMNMINUS1),CLASS_ADDRESS+(ARG_DST),},3,6,215}, /* 0101 1100 0000 1001 0000 ssss 0000 nminus1 address_dst *** ldm address_dst,rs,n */ { #ifdef NICENAMES "ldm address_dst,rs,n",16,14, 0x00, #endif "ldm",OPC_ldm,0,{CLASS_DA+(ARG_DST),CLASS_REG_WORD+(ARG_RS),CLASS_IMM + (ARG_IMMN),}, {CLASS_BIT+5,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_IMM+(ARG_IMMNMINUS1),CLASS_ADDRESS+(ARG_DST),},3,6,216}, /* 0001 1100 ssN0 0001 0000 dddd 0000 nminus1 *** ldm rd,@rs,n */ { #ifdef NICENAMES "ldm rd,@rs,n",16,11, 0x00, #endif "ldm",OPC_ldm,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_IMM + (ARG_IMMN),}, {CLASS_BIT+1,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RS),CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_IMM+(ARG_IMMNMINUS1),0,},3,4,217}, /* 0101 1100 ssN0 0001 0000 dddd 0000 nminus1 address_src *** ldm rd,address_src(rs),n */ { #ifdef NICENAMES "ldm rd,address_src(rs),n",16,15, 0x00, #endif "ldm",OPC_ldm,0,{CLASS_REG_WORD+(ARG_RD),CLASS_X+(ARG_RS),CLASS_IMM + (ARG_IMMN),}, {CLASS_BIT+5,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RS),CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_IMM+(ARG_IMMNMINUS1),CLASS_ADDRESS+(ARG_SRC),},3,6,218}, /* 0101 1100 0000 0001 0000 dddd 0000 nminus1 address_src *** ldm rd,address_src,n */ { #ifdef NICENAMES "ldm rd,address_src,n",16,14, 0x00, #endif "ldm",OPC_ldm,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DA+(ARG_SRC),CLASS_IMM + (ARG_IMMN),}, {CLASS_BIT+5,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_IMM+(ARG_IMMNMINUS1),CLASS_ADDRESS+(ARG_SRC),},3,6,219}, /* 0011 1001 ssN0 0000 *** ldps @rs */ { #ifdef NICENAMES "ldps @rs",16,12, 0x3f, #endif "ldps",OPC_ldps,0,{CLASS_IR+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+9,CLASS_REGN0+(ARG_RS),CLASS_BIT+0,0,0,0,0,0,},1,2,220}, /* 0111 1001 0000 0000 address_src *** ldps address_src */ { #ifdef NICENAMES "ldps address_src",16,16, 0x3f, #endif "ldps",OPC_ldps,0,{CLASS_DA+(ARG_SRC),}, {CLASS_BIT+7,CLASS_BIT+9,CLASS_BIT+0,CLASS_BIT+0,CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},1,4,221}, /* 0111 1001 ssN0 0000 address_src *** ldps address_src(rs) */ { #ifdef NICENAMES "ldps address_src(rs)",16,17, 0x3f, #endif "ldps",OPC_ldps,0,{CLASS_X+(ARG_RS),}, {CLASS_BIT+7,CLASS_BIT+9,CLASS_REGN0+(ARG_RS),CLASS_BIT+0,CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},1,4,222}, /* 0011 0011 0000 ssss disp16 *** ldr disp16,rs */ { #ifdef NICENAMES "ldr disp16,rs",16,14, 0x00, #endif "ldr",OPC_ldr,0,{CLASS_DISP,CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+3,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_DISP+(ARG_DISP16),0,0,0,0,},2,4,223}, /* 0011 0001 0000 dddd disp16 *** ldr rd,disp16 */ { #ifdef NICENAMES "ldr rd,disp16",16,14, 0x00, #endif "ldr",OPC_ldr,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DISP,}, {CLASS_BIT+3,CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_DISP+(ARG_DISP16),0,0,0,0,},2,4,224}, /* 0011 0010 0000 ssss disp16 *** ldrb disp16,rbs */ { #ifdef NICENAMES "ldrb disp16,rbs",8,14, 0x00, #endif "ldrb",OPC_ldrb,0,{CLASS_DISP,CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_DISP+(ARG_DISP16),0,0,0,0,},2,4,225}, /* 0011 0000 0000 dddd disp16 *** ldrb rbd,disp16 */ { #ifdef NICENAMES "ldrb rbd,disp16",8,14, 0x00, #endif "ldrb",OPC_ldrb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DISP,}, {CLASS_BIT+3,CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_DISP+(ARG_DISP16),0,0,0,0,},2,4,226}, /* 0011 0111 0000 ssss disp16 *** ldrl disp16,rrs */ { #ifdef NICENAMES "ldrl disp16,rrs",32,17, 0x00, #endif "ldrl",OPC_ldrl,0,{CLASS_DISP,CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+7,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_DISP+(ARG_DISP16),0,0,0,0,},2,4,227}, /* 0011 0101 0000 dddd disp16 *** ldrl rrd,disp16 */ { #ifdef NICENAMES "ldrl rrd,disp16",32,17, 0x00, #endif "ldrl",OPC_ldrl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_DISP,}, {CLASS_BIT+3,CLASS_BIT+5,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_DISP+(ARG_DISP16),0,0,0,0,},2,4,228}, /* 0111 1011 0000 1010 *** mbit */ { #ifdef NICENAMES "mbit",16,7, 0x38, #endif "mbit",OPC_mbit,0,{0}, {CLASS_BIT+7,CLASS_BIT+0xb,CLASS_BIT+0,CLASS_BIT+0xa,0,0,0,0,0,},0,2,229}, /* 0111 1011 dddd 1101 *** mreq rd */ { #ifdef NICENAMES "mreq rd",16,12, 0x18, #endif "mreq",OPC_mreq,0,{CLASS_REG_WORD+(ARG_RD),}, {CLASS_BIT+7,CLASS_BIT+0xb,CLASS_REG+(ARG_RD),CLASS_BIT+0xd,0,0,0,0,0,},1,2,230}, /* 0111 1011 0000 1001 *** mres */ { #ifdef NICENAMES "mres",16,5, 0x00, #endif "mres",OPC_mres,0,{0}, {CLASS_BIT+7,CLASS_BIT+0xb,CLASS_BIT+0,CLASS_BIT+9,0,0,0,0,0,},0,2,231}, /* 0111 1011 0000 1000 *** mset */ { #ifdef NICENAMES "mset",16,5, 0x00, #endif "mset",OPC_mset,0,{0}, {CLASS_BIT+7,CLASS_BIT+0xb,CLASS_BIT+0,CLASS_BIT+8,0,0,0,0,0,},0,2,232}, /* 0001 1001 ssN0 dddd *** mult rrd,@rs */ { #ifdef NICENAMES "mult rrd,@rs",16,70, 0x3c, #endif "mult",OPC_mult,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+9,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,233}, /* 0101 1001 0000 dddd address_src *** mult rrd,address_src */ { #ifdef NICENAMES "mult rrd,address_src",16,70, 0x3c, #endif "mult",OPC_mult,0,{CLASS_REG_LONG+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,234}, /* 0101 1001 ssN0 dddd address_src *** mult rrd,address_src(rs) */ { #ifdef NICENAMES "mult rrd,address_src(rs)",16,70, 0x3c, #endif "mult",OPC_mult,0,{CLASS_REG_LONG+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+9,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,235}, /* 0001 1001 0000 dddd imm16 *** mult rrd,imm16 */ { #ifdef NICENAMES "mult rrd,imm16",16,70, 0x3c, #endif "mult",OPC_mult,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+1,CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,236}, /* 1001 1001 ssss dddd *** mult rrd,rs */ { #ifdef NICENAMES "mult rrd,rs",16,70, 0x3c, #endif "mult",OPC_mult,0,{CLASS_REG_LONG+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+9,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,237}, /* 0001 1000 ssN0 dddd *** multl rqd,@rs */ { #ifdef NICENAMES "multl rqd,@rs",32,282, 0x3c, #endif "multl",OPC_multl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+8,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,238}, /* 0101 1000 0000 dddd address_src *** multl rqd,address_src */ { #ifdef NICENAMES "multl rqd,address_src",32,282, 0x3c, #endif "multl",OPC_multl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,239}, /* 0101 1000 ssN0 dddd address_src *** multl rqd,address_src(rs) */ { #ifdef NICENAMES "multl rqd,address_src(rs)",32,282, 0x3c, #endif "multl",OPC_multl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+8,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,240}, /* 0001 1000 0000 dddd imm32 *** multl rqd,imm32 */ { #ifdef NICENAMES "multl rqd,imm32",32,282, 0x3c, #endif "multl",OPC_multl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_IMM+(ARG_IMM32),}, {CLASS_BIT+1,CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM32),0,0,0,0,},2,6,241}, /* 1001 1000 ssss dddd *** multl rqd,rrs */ { #ifdef NICENAMES "multl rqd,rrs",32,282, 0x3c, #endif "multl",OPC_multl,0,{CLASS_REG_QUAD+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+8,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,242}, /* 0000 1101 ddN0 0010 *** neg @rd */ { #ifdef NICENAMES "neg @rd",16,12, 0x3c, #endif "neg",OPC_neg,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+2,0,0,0,0,0,},1,2,243}, /* 0100 1101 0000 0010 address_dst *** neg address_dst */ { #ifdef NICENAMES "neg address_dst",16,15, 0x3c, #endif "neg",OPC_neg,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_BIT+2,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,244}, /* 0100 1101 ddN0 0010 address_dst *** neg address_dst(rd) */ { #ifdef NICENAMES "neg address_dst(rd)",16,16, 0x3c, #endif "neg",OPC_neg,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+2,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,245}, /* 1000 1101 dddd 0010 *** neg rd */ { #ifdef NICENAMES "neg rd",16,7, 0x3c, #endif "neg",OPC_neg,0,{CLASS_REG_WORD+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xd,CLASS_REG+(ARG_RD),CLASS_BIT+2,0,0,0,0,0,},1,2,246}, /* 0000 1100 ddN0 0010 *** negb @rd */ { #ifdef NICENAMES "negb @rd",8,12, 0x3c, #endif "negb",OPC_negb,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+2,0,0,0,0,0,},1,2,247}, /* 0100 1100 0000 0010 address_dst *** negb address_dst */ { #ifdef NICENAMES "negb address_dst",8,15, 0x3c, #endif "negb",OPC_negb,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+2,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,248}, /* 0100 1100 ddN0 0010 address_dst *** negb address_dst(rd) */ { #ifdef NICENAMES "negb address_dst(rd)",8,16, 0x3c, #endif "negb",OPC_negb,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+2,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,249}, /* 1000 1100 dddd 0010 *** negb rbd */ { #ifdef NICENAMES "negb rbd",8,7, 0x3c, #endif "negb",OPC_negb,0,{CLASS_REG_BYTE+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xc,CLASS_REG+(ARG_RD),CLASS_BIT+2,0,0,0,0,0,},1,2,250}, /* 1000 1101 0000 0111 *** nop */ { #ifdef NICENAMES "nop",16,7, 0x00, #endif "nop",OPC_nop,0,{0}, {CLASS_BIT+8,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_BIT+7,0,0,0,0,0,},0,2,251}, /* 0000 0101 ssN0 dddd *** or rd,@rs */ { #ifdef NICENAMES "or rd,@rs",16,7, 0x38, #endif "or",OPC_or,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+5,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,252}, /* 0100 0101 0000 dddd address_src *** or rd,address_src */ { #ifdef NICENAMES "or rd,address_src",16,9, 0x38, #endif "or",OPC_or,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+5,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,253}, /* 0100 0101 ssN0 dddd address_src *** or rd,address_src(rs) */ { #ifdef NICENAMES "or rd,address_src(rs)",16,10, 0x38, #endif "or",OPC_or,0,{CLASS_REG_WORD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+5,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,254}, /* 0000 0101 0000 dddd imm16 *** or rd,imm16 */ { #ifdef NICENAMES "or rd,imm16",16,7, 0x38, #endif "or",OPC_or,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+0,CLASS_BIT+5,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,255}, /* 1000 0101 ssss dddd *** or rd,rs */ { #ifdef NICENAMES "or rd,rs",16,4, 0x38, #endif "or",OPC_or,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+5,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,256}, /* 0000 0100 ssN0 dddd *** orb rbd,@rs */ { #ifdef NICENAMES "orb rbd,@rs",8,7, 0x3c, #endif "orb",OPC_orb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+4,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,257}, /* 0100 0100 0000 dddd address_src *** orb rbd,address_src */ { #ifdef NICENAMES "orb rbd,address_src",8,9, 0x3c, #endif "orb",OPC_orb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+4,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,258}, /* 0100 0100 ssN0 dddd address_src *** orb rbd,address_src(rs) */ { #ifdef NICENAMES "orb rbd,address_src(rs)",8,10, 0x3c, #endif "orb",OPC_orb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+4,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,259}, /* 0000 0100 0000 dddd imm8 imm8 *** orb rbd,imm8 */ { #ifdef NICENAMES "orb rbd,imm8",8,7, 0x3c, #endif "orb",OPC_orb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+4,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,0,},2,4,260}, /* 1000 0100 ssss dddd *** orb rbd,rbs */ { #ifdef NICENAMES "orb rbd,rbs",8,4, 0x3c, #endif "orb",OPC_orb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+4,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,261}, /* 0011 1111 ddN0 ssss *** out @rd,rs */ { #ifdef NICENAMES "out @rd,rs",16,0, 0x04, #endif "out",OPC_out,0,{CLASS_IR+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+0xf,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),0,0,0,0,0,},2,2,262}, /* 0011 1011 ssss 0110 imm16 *** out imm16,rs */ { #ifdef NICENAMES "out imm16,rs",16,0, 0x04, #endif "out",OPC_out,0,{CLASS_IMM+(ARG_IMM16),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+0xb,CLASS_REG+(ARG_RS),CLASS_BIT+6,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,263}, /* 0011 1110 ddN0 ssss *** outb @rd,rbs */ { #ifdef NICENAMES "outb @rd,rbs",8,0, 0x04, #endif "outb",OPC_outb,0,{CLASS_IR+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+0xe,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),0,0,0,0,0,},2,2,264}, /* 0011 1010 ssss 0110 imm16 *** outb imm16,rbs */ { #ifdef NICENAMES "outb imm16,rbs",8,0, 0x04, #endif "outb",OPC_outb,0,{CLASS_IMM+(ARG_IMM16),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REG+(ARG_RS),CLASS_BIT+6,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,265}, /* 0011 1011 ssN0 1010 0000 aaaa ddN0 1000 *** outd @rd,@rs,ra */ { #ifdef NICENAMES "outd @rd,@rs,ra",16,0, 0x04, #endif "outd",OPC_outd,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,266}, /* 0011 1010 ssN0 1010 0000 aaaa ddN0 1000 *** outdb @rd,@rs,rba */ { #ifdef NICENAMES "outdb @rd,@rs,rba",16,0, 0x04, #endif "outdb",OPC_outdb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_BYTE+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,267}, /* 0011 1011 ssN0 0010 0000 aaaa ddN0 1000 *** outi @rd,@rs,ra */ { #ifdef NICENAMES "outi @rd,@rs,ra",16,0, 0x04, #endif "outi",OPC_outi,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,268}, /* 0011 1010 ssN0 0010 0000 aaaa ddN0 1000 *** outib @rd,@rs,ra */ { #ifdef NICENAMES "outib @rd,@rs,ra",16,0, 0x04, #endif "outib",OPC_outib,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,269}, /* 0011 1010 ssN0 0010 0000 aaaa ddN0 0000 *** outibr @rd,@rs,ra */ { #ifdef NICENAMES "outibr @rd,@rs,ra",16,0, 0x04, #endif "outibr",OPC_outibr,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,},3,4,270}, /* 0001 0111 ssN0 ddN0 *** pop @rd,@rs */ { #ifdef NICENAMES "pop @rd,@rs",16,12, 0x00, #endif "pop",OPC_pop,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+7,CLASS_REGN0+(ARG_RS),CLASS_REGN0+(ARG_RD),0,0,0,0,0,},2,2,271}, /* 0101 0111 ssN0 ddN0 address_dst *** pop address_dst(rd),@rs */ { #ifdef NICENAMES "pop address_dst(rd),@rs",16,16, 0x00, #endif "pop",OPC_pop,0,{CLASS_X+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+7,CLASS_REGN0+(ARG_RS),CLASS_REGN0+(ARG_RD),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,272}, /* 0101 0111 ssN0 0000 address_dst *** pop address_dst,@rs */ { #ifdef NICENAMES "pop address_dst,@rs",16,16, 0x00, #endif "pop",OPC_pop,0,{CLASS_DA+(ARG_DST),CLASS_IR+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+7,CLASS_REGN0+(ARG_RS),CLASS_BIT+0,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,273}, /* 1001 0111 ssN0 dddd *** pop rd,@rs */ { #ifdef NICENAMES "pop rd,@rs",16,8, 0x00, #endif "pop",OPC_pop,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+7,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,274}, /* 0001 0101 ssN0 ddN0 *** popl @rd,@rs */ { #ifdef NICENAMES "popl @rd,@rs",32,19, 0x00, #endif "popl",OPC_popl,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+5,CLASS_REGN0+(ARG_RS),CLASS_REGN0+(ARG_RD),0,0,0,0,0,},2,2,275}, /* 0101 0101 ssN0 ddN0 address_dst *** popl address_dst(rd),@rs */ { #ifdef NICENAMES "popl address_dst(rd),@rs",32,23, 0x00, #endif "popl",OPC_popl,0,{CLASS_X+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+5,CLASS_REGN0+(ARG_RS),CLASS_REGN0+(ARG_RD),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,276}, /* 0101 0101 ssN0 0000 address_dst *** popl address_dst,@rs */ { #ifdef NICENAMES "popl address_dst,@rs",32,23, 0x00, #endif "popl",OPC_popl,0,{CLASS_DA+(ARG_DST),CLASS_IR+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+5,CLASS_REGN0+(ARG_RS),CLASS_BIT+0,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,277}, /* 1001 0101 ssN0 dddd *** popl rrd,@rs */ { #ifdef NICENAMES "popl rrd,@rs",32,12, 0x00, #endif "popl",OPC_popl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+5,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,278}, /* 0001 0011 ddN0 ssN0 *** push @rd,@rs */ { #ifdef NICENAMES "push @rd,@rs",16,13, 0x00, #endif "push",OPC_push,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+3,CLASS_REGN0+(ARG_RD),CLASS_REGN0+(ARG_RS),0,0,0,0,0,},2,2,279}, /* 0101 0011 ddN0 0000 address_src *** push @rd,address_src */ { #ifdef NICENAMES "push @rd,address_src",16,14, 0x00, #endif "push",OPC_push,0,{CLASS_IR+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+3,CLASS_REGN0+(ARG_RD),CLASS_BIT+0,CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,280}, /* 0101 0011 ddN0 ssN0 address_src *** push @rd,address_src(rs) */ { #ifdef NICENAMES "push @rd,address_src(rs)",16,14, 0x00, #endif "push",OPC_push,0,{CLASS_IR+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+3,CLASS_REGN0+(ARG_RD),CLASS_REGN0+(ARG_RS),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,281}, /* 0000 1101 ddN0 1001 imm16 *** push @rd,imm16 */ { #ifdef NICENAMES "push @rd,imm16",16,12, 0x00, #endif "push",OPC_push,0,{CLASS_IR+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+0,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+9,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,282}, /* 1001 0011 ddN0 ssss *** push @rd,rs */ { #ifdef NICENAMES "push @rd,rs",16,9, 0x00, #endif "push",OPC_push,0,{CLASS_IR+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+3,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),0,0,0,0,0,},2,2,283}, /* 0001 0001 ddN0 ssN0 *** pushl @rd,@rs */ { #ifdef NICENAMES "pushl @rd,@rs",32,20, 0x00, #endif "pushl",OPC_pushl,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+1,CLASS_REGN0+(ARG_RD),CLASS_REGN0+(ARG_RS),0,0,0,0,0,},2,2,284}, /* 0101 0001 ddN0 0000 address_src *** pushl @rd,address_src */ { #ifdef NICENAMES "pushl @rd,address_src",32,21, 0x00, #endif "pushl",OPC_pushl,0,{CLASS_IR+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+1,CLASS_REGN0+(ARG_RD),CLASS_BIT+0,CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,285}, /* 0101 0001 ddN0 ssN0 address_src *** pushl @rd,address_src(rs) */ { #ifdef NICENAMES "pushl @rd,address_src(rs)",32,21, 0x00, #endif "pushl",OPC_pushl,0,{CLASS_IR+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+1,CLASS_REGN0+(ARG_RD),CLASS_REGN0+(ARG_RS),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,286}, /* 1001 0001 ddN0 ssss *** pushl @rd,rrs */ { #ifdef NICENAMES "pushl @rd,rrs",32,12, 0x00, #endif "pushl",OPC_pushl,0,{CLASS_IR+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+1,CLASS_REGN0+(ARG_RD),CLASS_REG+(ARG_RS),0,0,0,0,0,},2,2,287}, /* 0010 0011 ddN0 imm4 *** res @rd,imm4 */ { #ifdef NICENAMES "res @rd,imm4",16,11, 0x00, #endif "res",OPC_res,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+2,CLASS_BIT+3,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,288}, /* 0110 0011 ddN0 imm4 address_dst *** res address_dst(rd),imm4 */ { #ifdef NICENAMES "res address_dst(rd),imm4",16,14, 0x00, #endif "res",OPC_res,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+3,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,289}, /* 0110 0011 0000 imm4 address_dst *** res address_dst,imm4 */ { #ifdef NICENAMES "res address_dst,imm4",16,13, 0x00, #endif "res",OPC_res,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+3,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,290}, /* 1010 0011 dddd imm4 *** res rd,imm4 */ { #ifdef NICENAMES "res rd,imm4",16,4, 0x00, #endif "res",OPC_res,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+0xa,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,291}, /* 0010 0011 0000 ssss 0000 dddd 0000 0000 *** res rd,rs */ { #ifdef NICENAMES "res rd,rs",16,10, 0x00, #endif "res",OPC_res,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+3,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,292}, /* 0010 0010 ddN0 imm4 *** resb @rd,imm4 */ { #ifdef NICENAMES "resb @rd,imm4",8,11, 0x00, #endif "resb",OPC_resb,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+2,CLASS_BIT+2,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,293}, /* 0110 0010 ddN0 imm4 address_dst *** resb address_dst(rd),imm4 */ { #ifdef NICENAMES "resb address_dst(rd),imm4",8,14, 0x00, #endif "resb",OPC_resb,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+2,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,294}, /* 0110 0010 0000 imm4 address_dst *** resb address_dst,imm4 */ { #ifdef NICENAMES "resb address_dst,imm4",8,13, 0x00, #endif "resb",OPC_resb,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+2,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,295}, /* 1010 0010 dddd imm4 *** resb rbd,imm4 */ { #ifdef NICENAMES "resb rbd,imm4",8,4, 0x00, #endif "resb",OPC_resb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+0xa,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,296}, /* 0010 0010 0000 ssss 0000 dddd 0000 0000 *** resb rbd,rs */ { #ifdef NICENAMES "resb rbd,rs",8,10, 0x00, #endif "resb",OPC_resb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,297}, /* 1000 1101 flags 0011 *** resflg flags */ { #ifdef NICENAMES "resflg flags",16,7, 0x3c, #endif "resflg",OPC_resflg,0,{CLASS_FLAGS,}, {CLASS_BIT+8,CLASS_BIT+0xd,CLASS_FLAGS,CLASS_BIT+3,0,0,0,0,0,},1,2,298}, /* 1001 1110 0000 cccc *** ret cc */ { #ifdef NICENAMES "ret cc",16,10, 0x00, #endif "ret",OPC_ret,0,{CLASS_CC,}, {CLASS_BIT+9,CLASS_BIT+0xe,CLASS_BIT+0,CLASS_CC,0,0,0,0,0,},1,2,299}, /* 1011 0011 dddd 00I0 *** rl rd,imm1or2 */ { #ifdef NICENAMES "rl rd,imm1or2",16,6, 0x3c, #endif "rl",OPC_rl,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM1OR2),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT_1OR2+0,0,0,0,0,0,},2,2,300}, /* 1011 0010 dddd 00I0 *** rlb rbd,imm1or2 */ { #ifdef NICENAMES "rlb rbd,imm1or2",8,6, 0x3c, #endif "rlb",OPC_rlb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM1OR2),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT_1OR2+0,0,0,0,0,0,},2,2,301}, /* 1011 0011 dddd 10I0 *** rlc rd,imm1or2 */ { #ifdef NICENAMES "rlc rd,imm1or2",16,6, 0x3c, #endif "rlc",OPC_rlc,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM1OR2),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT_1OR2+8,0,0,0,0,0,},2,2,302}, /* 1011 0010 dddd 10I0 *** rlcb rbd,imm1or2 */ { #ifdef NICENAMES "rlcb rbd,imm1or2",8,9, 0x10, #endif "rlcb",OPC_rlcb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM1OR2),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT_1OR2+8,0,0,0,0,0,},2,2,303}, /* 1011 1110 aaaa bbbb *** rldb rbb,rba */ { #ifdef NICENAMES "rldb rbb,rba",8,9, 0x10, #endif "rldb",OPC_rldb,0,{CLASS_REG_BYTE+(ARG_RB),CLASS_REG_BYTE+(ARG_RA),}, {CLASS_BIT+0xb,CLASS_BIT+0xe,CLASS_REG+(ARG_RA),CLASS_REG+(ARG_RB),0,0,0,0,0,},2,2,304}, /* 1011 0011 dddd 01I0 *** rr rd,imm1or2 */ { #ifdef NICENAMES "rr rd,imm1or2",16,6, 0x3c, #endif "rr",OPC_rr,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM1OR2),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT_1OR2+4,0,0,0,0,0,},2,2,305}, /* 1011 0010 dddd 01I0 *** rrb rbd,imm1or2 */ { #ifdef NICENAMES "rrb rbd,imm1or2",8,6, 0x3c, #endif "rrb",OPC_rrb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM1OR2),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT_1OR2+4,0,0,0,0,0,},2,2,306}, /* 1011 0011 dddd 11I0 *** rrc rd,imm1or2 */ { #ifdef NICENAMES "rrc rd,imm1or2",16,6, 0x3c, #endif "rrc",OPC_rrc,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM1OR2),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT_1OR2+0xc,0,0,0,0,0,},2,2,307}, /* 1011 0010 dddd 11I0 *** rrcb rbd,imm1or2 */ { #ifdef NICENAMES "rrcb rbd,imm1or2",8,9, 0x10, #endif "rrcb",OPC_rrcb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM1OR2),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT_1OR2+0xc,0,0,0,0,0,},2,2,308}, /* 1011 1100 aaaa bbbb *** rrdb rbb,rba */ { #ifdef NICENAMES "rrdb rbb,rba",8,9, 0x10, #endif "rrdb",OPC_rrdb,0,{CLASS_REG_BYTE+(ARG_RB),CLASS_REG_BYTE+(ARG_RA),}, {CLASS_BIT+0xb,CLASS_BIT+0xc,CLASS_REG+(ARG_RA),CLASS_REG+(ARG_RB),0,0,0,0,0,},2,2,309}, /* 0011 0110 imm8 *** rsvd36 */ { #ifdef NICENAMES "rsvd36",8,10, 0x00, #endif "rsvd36",OPC_rsvd36,0,{0}, {CLASS_BIT+3,CLASS_BIT+6,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},0,2,310}, /* 0011 1000 imm8 *** rsvd38 */ { #ifdef NICENAMES "rsvd38",8,10, 0x00, #endif "rsvd38",OPC_rsvd38,0,{0}, {CLASS_BIT+3,CLASS_BIT+8,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},0,2,311}, /* 0111 1000 imm8 *** rsvd78 */ { #ifdef NICENAMES "rsvd78",8,10, 0x00, #endif "rsvd78",OPC_rsvd78,0,{0}, {CLASS_BIT+7,CLASS_BIT+8,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},0,2,312}, /* 0111 1110 imm8 *** rsvd7e */ { #ifdef NICENAMES "rsvd7e",8,10, 0x00, #endif "rsvd7e",OPC_rsvd7e,0,{0}, {CLASS_BIT+7,CLASS_BIT+0xe,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},0,2,313}, /* 1001 1101 imm8 *** rsvd9d */ { #ifdef NICENAMES "rsvd9d",8,10, 0x00, #endif "rsvd9d",OPC_rsvd9d,0,{0}, {CLASS_BIT+9,CLASS_BIT+0xd,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},0,2,314}, /* 1001 1111 imm8 *** rsvd9f */ { #ifdef NICENAMES "rsvd9f",8,10, 0x00, #endif "rsvd9f",OPC_rsvd9f,0,{0}, {CLASS_BIT+9,CLASS_BIT+0xf,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},0,2,315}, /* 1011 1001 imm8 *** rsvdb9 */ { #ifdef NICENAMES "rsvdb9",8,10, 0x00, #endif "rsvdb9",OPC_rsvdb9,0,{0}, {CLASS_BIT+0xb,CLASS_BIT+9,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},0,2,316}, /* 1011 1111 imm8 *** rsvdbf */ { #ifdef NICENAMES "rsvdbf",8,10, 0x00, #endif "rsvdbf",OPC_rsvdbf,0,{0}, {CLASS_BIT+0xb,CLASS_BIT+0xf,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},0,2,317}, /* 1011 0111 ssss dddd *** sbc rd,rs */ { #ifdef NICENAMES "sbc rd,rs",16,5, 0x3c, #endif "sbc",OPC_sbc,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+7,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,318}, /* 1011 0110 ssss dddd *** sbcb rbd,rbs */ { #ifdef NICENAMES "sbcb rbd,rbs",8,5, 0x3f, #endif "sbcb",OPC_sbcb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+6,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,319}, /* 0111 1111 imm8 *** sc imm8 */ { #ifdef NICENAMES "sc imm8",8,33, 0x3f, #endif "sc",OPC_sc,0,{CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+7,CLASS_BIT+0xf,CLASS_IMM+(ARG_IMM8),0,0,0,0,0,0,},1,2,320}, /* 1011 0011 dddd 1011 0000 ssss 0000 0000 *** sda rd,rs */ { #ifdef NICENAMES "sda rd,rs",16,15, 0x3c, #endif "sda",OPC_sda,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+0xb,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,321}, /* 1011 0010 dddd 1011 0000 ssss 0000 0000 *** sdab rbd,rs */ { #ifdef NICENAMES "sdab rbd,rs",8,15, 0x3c, #endif "sdab",OPC_sdab,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT+0xb,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,322}, /* 1011 0011 dddd 1111 0000 ssss 0000 0000 *** sdal rrd,rs */ { #ifdef NICENAMES "sdal rrd,rs",32,15, 0x3c, #endif "sdal",OPC_sdal,0,{CLASS_REG_LONG+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+0xf,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,323}, /* 1011 0011 dddd 0011 0000 ssss 0000 0000 *** sdl rd,rs */ { #ifdef NICENAMES "sdl rd,rs",16,15, 0x38, #endif "sdl",OPC_sdl,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+3,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,324}, /* 1011 0010 dddd 0011 0000 ssss 0000 0000 *** sdlb rbd,rs */ { #ifdef NICENAMES "sdlb rbd,rs",8,15, 0x38, #endif "sdlb",OPC_sdlb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT+3,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,325}, /* 1011 0011 dddd 0111 0000 ssss 0000 0000 *** sdll rrd,rs */ { #ifdef NICENAMES "sdll rrd,rs",32,15, 0x38, #endif "sdll",OPC_sdll,0,{CLASS_REG_LONG+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+7,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,326}, /* 0010 0101 ddN0 imm4 *** set @rd,imm4 */ { #ifdef NICENAMES "set @rd,imm4",16,11, 0x00, #endif "set",OPC_set,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+2,CLASS_BIT+5,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,327}, /* 0110 0101 ddN0 imm4 address_dst *** set address_dst(rd),imm4 */ { #ifdef NICENAMES "set address_dst(rd),imm4",16,14, 0x00, #endif "set",OPC_set,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+5,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,328}, /* 0110 0101 0000 imm4 address_dst *** set address_dst,imm4 */ { #ifdef NICENAMES "set address_dst,imm4",16,13, 0x00, #endif "set",OPC_set,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+5,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,329}, /* 1010 0101 dddd imm4 *** set rd,imm4 */ { #ifdef NICENAMES "set rd,imm4",16,4, 0x00, #endif "set",OPC_set,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+0xa,CLASS_BIT+5,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,330}, /* 0010 0101 0000 ssss 0000 dddd 0000 0000 *** set rd,rs */ { #ifdef NICENAMES "set rd,rs",16,10, 0x00, #endif "set",OPC_set,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+5,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,331}, /* 0010 0100 ddN0 imm4 *** setb @rd,imm4 */ { #ifdef NICENAMES "setb @rd,imm4",8,11, 0x00, #endif "setb",OPC_setb,0,{CLASS_IR+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+2,CLASS_BIT+4,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,332}, /* 0110 0100 ddN0 imm4 address_dst *** setb address_dst(rd),imm4 */ { #ifdef NICENAMES "setb address_dst(rd),imm4",8,14, 0x00, #endif "setb",OPC_setb,0,{CLASS_X+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+4,CLASS_REGN0+(ARG_RD),CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,333}, /* 0110 0100 0000 imm4 address_dst *** setb address_dst,imm4 */ { #ifdef NICENAMES "setb address_dst,imm4",8,13, 0x00, #endif "setb",OPC_setb,0,{CLASS_DA+(ARG_DST),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+6,CLASS_BIT+4,CLASS_BIT+0,CLASS_IMM+(ARG_IMM4),CLASS_ADDRESS+(ARG_DST),0,0,0,0,},2,4,334}, /* 1010 0100 dddd imm4 *** setb rbd,imm4 */ { #ifdef NICENAMES "setb rbd,imm4",8,4, 0x00, #endif "setb",OPC_setb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM +(ARG_IMM4),}, {CLASS_BIT+0xa,CLASS_BIT+4,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM4),0,0,0,0,0,},2,2,335}, /* 0010 0100 0000 ssss 0000 dddd 0000 0000 *** setb rbd,rs */ { #ifdef NICENAMES "setb rbd,rs",8,10, 0x00, #endif "setb",OPC_setb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+2,CLASS_BIT+4,CLASS_BIT+0,CLASS_REG+(ARG_RS),CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_BIT+0,CLASS_BIT+0,0,},2,4,336}, /* 1000 1101 flags 0001 *** setflg flags */ { #ifdef NICENAMES "setflg flags",16,7, 0x3c, #endif "setflg",OPC_setflg,0,{CLASS_FLAGS,}, {CLASS_BIT+8,CLASS_BIT+0xd,CLASS_FLAGS,CLASS_BIT+1,0,0,0,0,0,},1,2,337}, /* 0011 1010 dddd 0101 imm16 *** sinb rbd,imm16 */ { #ifdef NICENAMES "sinb rbd,imm16",8,0, 0x00, #endif "sinb",OPC_sinb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REG+(ARG_RD),CLASS_BIT+5,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,338}, /* 0011 1011 dddd 0101 imm16 *** sinb rd,imm16 */ { #ifdef NICENAMES "sinb rd,imm16",8,0, 0x00, #endif "sinb",OPC_sinb,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+3,CLASS_BIT+0xb,CLASS_REG+(ARG_RD),CLASS_BIT+5,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,339}, /* 0011 1011 ssN0 1000 0001 aaaa ddN0 1000 *** sind @rd,@rs,ra */ { #ifdef NICENAMES "sind @rd,@rs,ra",16,0, 0x00, #endif "sind",OPC_sind,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+8,CLASS_BIT+1,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,340}, /* 0011 1010 ssN0 1000 0001 aaaa ddN0 1000 *** sindb @rd,@rs,rba */ { #ifdef NICENAMES "sindb @rd,@rs,rba",8,0, 0x00, #endif "sindb",OPC_sindb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_BYTE+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+8,CLASS_BIT+1,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,341}, /* 0011 1010 ssN0 0001 0000 aaaa ddN0 1000 *** sinib @rd,@rs,ra */ { #ifdef NICENAMES "sinib @rd,@rs,ra",8,0, 0x00, #endif "sinib",OPC_sinib,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,342}, /* 0011 1010 ssN0 0001 0000 aaaa ddN0 0000 *** sinibr @rd,@rs,ra */ { #ifdef NICENAMES "sinibr @rd,@rs,ra",16,0, 0x00, #endif "sinibr",OPC_sinibr,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+1,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,},3,4,343}, /* 1011 0011 dddd 1001 0000 0000 imm8 *** sla rd,imm8 */ { #ifdef NICENAMES "sla rd,imm8",16,13, 0x3c, #endif "sla",OPC_sla,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+9,CLASS_BIT+0,CLASS_BIT+0,CLASS_IMM+(ARG_IMM8),0,0,},2,4,344}, /* 1011 0010 dddd 1001 0000 0000 imm8 *** slab rbd,imm8 */ { #ifdef NICENAMES "slab rbd,imm8",8,13, 0x3c, #endif "slab",OPC_slab,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT+9,CLASS_BIT+0,CLASS_BIT+0,CLASS_IMM+(ARG_IMM8),0,0,},2,4,345}, /* 1011 0011 dddd 1101 0000 0000 imm8 *** slal rrd,imm8 */ { #ifdef NICENAMES "slal rrd,imm8",32,13, 0x3c, #endif "slal",OPC_slal,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+0xd,CLASS_BIT+0,CLASS_BIT+0,CLASS_IMM+(ARG_IMM8),0,0,},2,4,346}, /* 1011 0011 dddd 0001 0000 0000 imm8 *** sll rd,imm8 */ { #ifdef NICENAMES "sll rd,imm8",16,13, 0x38, #endif "sll",OPC_sll,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+1,CLASS_BIT+0,CLASS_BIT+0,CLASS_IMM+(ARG_IMM8),0,0,},2,4,347}, /* 1011 0010 dddd 0001 0000 0000 imm8 *** sllb rbd,imm8 */ { #ifdef NICENAMES "sllb rbd,imm8",8,13, 0x38, #endif "sllb",OPC_sllb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT+1,CLASS_BIT+0,CLASS_BIT+0,CLASS_IMM+(ARG_IMM8),0,0,},2,4,348}, /* 1011 0011 dddd 0101 0000 0000 imm8 *** slll rrd,imm8 */ { #ifdef NICENAMES "slll rrd,imm8",32,13, 0x38, #endif "slll",OPC_slll,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+5,CLASS_BIT+0,CLASS_BIT+0,CLASS_IMM+(ARG_IMM8),0,0,},2,4,349}, /* 0011 1011 ssss 0111 imm16 *** sout imm16,rs */ { #ifdef NICENAMES "sout imm16,rs",16,0, 0x00, #endif "sout",OPC_sout,0,{CLASS_IMM+(ARG_IMM16),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+0xb,CLASS_REG+(ARG_RS),CLASS_BIT+7,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,350}, /* 0011 1010 ssss 0111 imm16 *** soutb imm16,rbs */ { #ifdef NICENAMES "soutb imm16,rbs",8,0, 0x00, #endif "soutb",OPC_soutb,0,{CLASS_IMM+(ARG_IMM16),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REG+(ARG_RS),CLASS_BIT+7,CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,351}, /* 0011 1011 ssN0 1011 0000 aaaa ddN0 1000 *** soutd @rd,@rs,ra */ { #ifdef NICENAMES "soutd @rd,@rs,ra",16,0, 0x00, #endif "soutd",OPC_soutd,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xb,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xb,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,352}, /* 0011 1010 ssN0 1011 0000 aaaa ddN0 1000 *** soutdb @rd,@rs,rba */ { #ifdef NICENAMES "soutdb @rd,@rs,rba",8,0, 0x00, #endif "soutdb",OPC_soutdb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_BYTE+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+0xb,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,353}, /* 0011 1010 ssN0 0011 0000 aaaa ddN0 1000 *** soutib @rd,@rs,ra */ { #ifdef NICENAMES "soutib @rd,@rs,ra",8,0, 0x00, #endif "soutib",OPC_soutib,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+3,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,},3,4,354}, /* 0011 1010 ssN0 0011 0000 aaaa ddN0 0000 *** soutibr @rd,@rs,ra */ { #ifdef NICENAMES "soutibr @rd,@rs,ra",16,0, 0x00, #endif "soutibr",OPC_soutibr,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_WORD+(ARG_RA),}, {CLASS_BIT+3,CLASS_BIT+0xa,CLASS_REGN0+(ARG_RS),CLASS_BIT+3,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RD),CLASS_BIT+0,0,},3,4,355}, /* 1011 0011 dddd 1001 1111 1111 nim8 *** sra rd,imm8 */ { #ifdef NICENAMES "sra rd,imm8",16,13, 0x3c, #endif "sra",OPC_sra,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+9,CLASS_BIT+0xf,CLASS_BIT+0xf,CLASS_IMM+(ARG_NIM8),0,0,},2,4,356}, /* 1011 0010 dddd 1001 0000 0000 nim8 *** srab rbd,imm8 */ { #ifdef NICENAMES "srab rbd,imm8",8,13, 0x3c, #endif "srab",OPC_srab,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT+9,CLASS_BIT+0,CLASS_BIT+0,CLASS_IMM+(ARG_NIM8),0,0,},2,4,357}, /* 1011 0011 dddd 1101 1111 1111 nim8 *** sral rrd,imm8 */ { #ifdef NICENAMES "sral rrd,imm8",32,13, 0x3c, #endif "sral",OPC_sral,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+0xd,CLASS_BIT+0xf,CLASS_BIT+0xf,CLASS_IMM+(ARG_NIM8),0,0,},2,4,358}, /* 1011 0011 dddd 0001 1111 1111 nim8 *** srl rd,imm8 */ { #ifdef NICENAMES "srl rd,imm8",16,13, 0x3c, #endif "srl",OPC_srl,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+1,CLASS_BIT+0xf,CLASS_BIT+0xf,CLASS_IMM+(ARG_NIM8),0,0,},2,4,359}, /* 1011 0010 dddd 0001 0000 0000 nim8 *** srlb rbd,imm8 */ { #ifdef NICENAMES "srlb rbd,imm8",8,13, 0x3c, #endif "srlb",OPC_srlb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+2,CLASS_REG+(ARG_RD),CLASS_BIT+1,CLASS_BIT+0,CLASS_BIT+0,CLASS_IMM+(ARG_NIM8),0,0,},2,4,360}, /* 1011 0011 dddd 0101 1111 1111 nim8 *** srll rrd,imm8 */ { #ifdef NICENAMES "srll rrd,imm8",32,13, 0x3c, #endif "srll",OPC_srll,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0xb,CLASS_BIT+3,CLASS_REG+(ARG_RD),CLASS_BIT+5,CLASS_BIT+0xf,CLASS_BIT+0xf,CLASS_IMM+(ARG_NIM8),0,0,},2,4,361}, /* 0000 0011 ssN0 dddd *** sub rd,@rs */ { #ifdef NICENAMES "sub rd,@rs",16,7, 0x3c, #endif "sub",OPC_sub,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+3,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,362}, /* 0100 0011 0000 dddd address_src *** sub rd,address_src */ { #ifdef NICENAMES "sub rd,address_src",16,9, 0x3c, #endif "sub",OPC_sub,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+3,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,363}, /* 0100 0011 ssN0 dddd address_src *** sub rd,address_src(rs) */ { #ifdef NICENAMES "sub rd,address_src(rs)",16,10, 0x3c, #endif "sub",OPC_sub,0,{CLASS_REG_WORD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+3,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,364}, /* 0000 0011 0000 dddd imm16 *** sub rd,imm16 */ { #ifdef NICENAMES "sub rd,imm16",16,7, 0x3c, #endif "sub",OPC_sub,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+0,CLASS_BIT+3,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,365}, /* 1000 0011 ssss dddd *** sub rd,rs */ { #ifdef NICENAMES "sub rd,rs",16,4, 0x3c, #endif "sub",OPC_sub,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+3,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,366}, /* 0000 0010 ssN0 dddd *** subb rbd,@rs */ { #ifdef NICENAMES "subb rbd,@rs",8,7, 0x3f, #endif "subb",OPC_subb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+2,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,367}, /* 0100 0010 0000 dddd address_src *** subb rbd,address_src */ { #ifdef NICENAMES "subb rbd,address_src",8,9, 0x3f, #endif "subb",OPC_subb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,368}, /* 0100 0010 ssN0 dddd address_src *** subb rbd,address_src(rs) */ { #ifdef NICENAMES "subb rbd,address_src(rs)",8,10, 0x3f, #endif "subb",OPC_subb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+2,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,369}, /* 0000 0010 0000 dddd imm8 imm8 *** subb rbd,imm8 */ { #ifdef NICENAMES "subb rbd,imm8",8,7, 0x3f, #endif "subb",OPC_subb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,0,},2,4,370}, /* 1000 0010 ssss dddd *** subb rbd,rbs */ { #ifdef NICENAMES "subb rbd,rbs",8,4, 0x3f, #endif "subb",OPC_subb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+2,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,371}, /* 0001 0010 ssN0 dddd *** subl rrd,@rs */ { #ifdef NICENAMES "subl rrd,@rs",32,14, 0x3c, #endif "subl",OPC_subl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+1,CLASS_BIT+2,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,372}, /* 0101 0010 0000 dddd address_src *** subl rrd,address_src */ { #ifdef NICENAMES "subl rrd,address_src",32,15, 0x3c, #endif "subl",OPC_subl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+5,CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,373}, /* 0101 0010 ssN0 dddd address_src *** subl rrd,address_src(rs) */ { #ifdef NICENAMES "subl rrd,address_src(rs)",32,16, 0x3c, #endif "subl",OPC_subl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+5,CLASS_BIT+2,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,374}, /* 0001 0010 0000 dddd imm32 *** subl rrd,imm32 */ { #ifdef NICENAMES "subl rrd,imm32",32,14, 0x3c, #endif "subl",OPC_subl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_IMM+(ARG_IMM32),}, {CLASS_BIT+1,CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM32),0,0,0,0,},2,6,375}, /* 1001 0010 ssss dddd *** subl rrd,rrs */ { #ifdef NICENAMES "subl rrd,rrs",32,8, 0x3c, #endif "subl",OPC_subl,0,{CLASS_REG_LONG+(ARG_RD),CLASS_REG_LONG+(ARG_RS),}, {CLASS_BIT+9,CLASS_BIT+2,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,376}, /* 1010 1111 dddd cccc *** tcc cc,rd */ { #ifdef NICENAMES "tcc cc,rd",16,5, 0x00, #endif "tcc",OPC_tcc,0,{CLASS_CC,CLASS_REG_WORD+(ARG_RD),}, {CLASS_BIT+0xa,CLASS_BIT+0xf,CLASS_REG+(ARG_RD),CLASS_CC,0,0,0,0,0,},2,2,377}, /* 1010 1110 dddd cccc *** tccb cc,rbd */ { #ifdef NICENAMES "tccb cc,rbd",8,5, 0x00, #endif "tccb",OPC_tccb,0,{CLASS_CC,CLASS_REG_BYTE+(ARG_RD),}, {CLASS_BIT+0xa,CLASS_BIT+0xe,CLASS_REG+(ARG_RD),CLASS_CC,0,0,0,0,0,},2,2,378}, /* 0000 1101 ddN0 0100 *** test @rd */ { #ifdef NICENAMES "test @rd",16,8, 0x18, #endif "test",OPC_test,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+4,0,0,0,0,0,},1,2,379}, /* 0100 1101 0000 0100 address_dst *** test address_dst */ { #ifdef NICENAMES "test address_dst",16,11, 0x00, #endif "test",OPC_test,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_BIT+4,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,380}, /* 0100 1101 ddN0 0100 address_dst *** test address_dst(rd) */ { #ifdef NICENAMES "test address_dst(rd)",16,12, 0x00, #endif "test",OPC_test,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+4,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,381}, /* 1000 1101 dddd 0100 *** test rd */ { #ifdef NICENAMES "test rd",16,7, 0x00, #endif "test",OPC_test,0,{CLASS_REG_WORD+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xd,CLASS_REG+(ARG_RD),CLASS_BIT+4,0,0,0,0,0,},1,2,382}, /* 0000 1100 ddN0 0100 *** testb @rd */ { #ifdef NICENAMES "testb @rd",8,8, 0x1c, #endif "testb",OPC_testb,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+4,0,0,0,0,0,},1,2,383}, /* 0100 1100 0000 0100 address_dst *** testb address_dst */ { #ifdef NICENAMES "testb address_dst",8,11, 0x1c, #endif "testb",OPC_testb,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+4,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,384}, /* 0100 1100 ddN0 0100 address_dst *** testb address_dst(rd) */ { #ifdef NICENAMES "testb address_dst(rd)",8,12, 0x1c, #endif "testb",OPC_testb,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+4,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,385}, /* 1000 1100 dddd 0100 *** testb rbd */ { #ifdef NICENAMES "testb rbd",8,7, 0x1c, #endif "testb",OPC_testb,0,{CLASS_REG_BYTE+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xc,CLASS_REG+(ARG_RD),CLASS_BIT+4,0,0,0,0,0,},1,2,386}, /* 0001 1100 ddN0 1000 *** testl @rd */ { #ifdef NICENAMES "testl @rd",32,13, 0x18, #endif "testl",OPC_testl,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+1,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+8,0,0,0,0,0,},1,2,387}, /* 0101 1100 0000 1000 address_dst *** testl address_dst */ { #ifdef NICENAMES "testl address_dst",32,16, 0x18, #endif "testl",OPC_testl,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+5,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+8,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,388}, /* 0101 1100 ddN0 1000 address_dst *** testl address_dst(rd) */ { #ifdef NICENAMES "testl address_dst(rd)",32,17, 0x18, #endif "testl",OPC_testl,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+5,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+8,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,389}, /* 1001 1100 dddd 1000 *** testl rrd */ { #ifdef NICENAMES "testl rrd",32,13, 0x18, #endif "testl",OPC_testl,0,{CLASS_REG_LONG+(ARG_RD),}, {CLASS_BIT+9,CLASS_BIT+0xc,CLASS_REG+(ARG_RD),CLASS_BIT+8,0,0,0,0,0,},1,2,390}, /* 1011 1000 ddN0 1000 0000 aaaa ssN0 0000 *** trdb @rd,@rs,rba */ { #ifdef NICENAMES "trdb @rd,@rs,rba",8,25, 0x1c, #endif "trdb",OPC_trdb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_BYTE+(ARG_RA),}, {CLASS_BIT+0xb,CLASS_BIT+8,CLASS_REGN0+(ARG_RD),CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RS),CLASS_BIT+0,0,},3,4,391}, /* 1011 1000 ddN0 1100 0000 aaaa ssN0 0000 *** trdrb @rd,@rs,rba */ { #ifdef NICENAMES "trdrb @rd,@rs,rba",8,25, 0x1c, #endif "trdrb",OPC_trdrb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_BYTE+(ARG_RA),}, {CLASS_BIT+0xb,CLASS_BIT+8,CLASS_REGN0+(ARG_RD),CLASS_BIT+0xc,CLASS_BIT+0,CLASS_REG+(ARG_RA),CLASS_REGN0+(ARG_RS),CLASS_BIT+0,0,},3,4,392}, /* 1011 1000 ddN0 0000 0000 rrrr ssN0 0000 *** trib @rd,@rs,rbr */ { #ifdef NICENAMES "trib @rd,@rs,rbr",8,25, 0x1c, #endif "trib",OPC_trib,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_BYTE+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+8,CLASS_REGN0+(ARG_RD),CLASS_BIT+0,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RS),CLASS_BIT+0,0,},3,4,393}, /* 1011 1000 ddN0 0100 0000 rrrr ssN0 0000 *** trirb @rd,@rs,rbr */ { #ifdef NICENAMES "trirb @rd,@rs,rbr",8,25, 0x1c, #endif "trirb",OPC_trirb,0,{CLASS_IR+(ARG_RD),CLASS_IR+(ARG_RS),CLASS_REG_BYTE+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+8,CLASS_REGN0+(ARG_RD),CLASS_BIT+4,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RS),CLASS_BIT+0,0,},3,4,394}, /* 1011 1000 aaN0 1010 0000 rrrr bbN0 0000 *** trtdb @ra,@rb,rbr */ { #ifdef NICENAMES "trtdb @ra,@rb,rbr",8,25, 0x1c, #endif "trtdb",OPC_trtdb,0,{CLASS_IR+(ARG_RA),CLASS_IR+(ARG_RB),CLASS_REG_BYTE+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+8,CLASS_REGN0+(ARG_RA),CLASS_BIT+0xa,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RB),CLASS_BIT+0,0,},3,4,395}, /* 1011 1000 aaN0 1110 0000 rrrr bbN0 1110 *** trtdrb @ra,@rb,rbr */ { #ifdef NICENAMES "trtdrb @ra,@rb,rbr",8,25, 0x1c, #endif "trtdrb",OPC_trtdrb,0,{CLASS_IR+(ARG_RA),CLASS_IR+(ARG_RB),CLASS_REG_BYTE+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+8,CLASS_REGN0+(ARG_RA),CLASS_BIT+0xe,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RB),CLASS_BIT+0xe,0,},3,4,396}, /* 1011 1000 aaN0 0010 0000 rrrr bbN0 0000 *** trtib @ra,@rb,rbr */ { #ifdef NICENAMES "trtib @ra,@rb,rbr",8,25, 0x1c, #endif "trtib",OPC_trtib,0,{CLASS_IR+(ARG_RA),CLASS_IR+(ARG_RB),CLASS_REG_BYTE+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+8,CLASS_REGN0+(ARG_RA),CLASS_BIT+2,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RB),CLASS_BIT+0,0,},3,4,397}, /* 1011 1000 aaN0 0110 0000 rrrr bbN0 1110 *** trtirb @ra,@rb,rbr */ { #ifdef NICENAMES "trtirb @ra,@rb,rbr",8,25, 0x1c, #endif "trtirb",OPC_trtirb,0,{CLASS_IR+(ARG_RA),CLASS_IR+(ARG_RB),CLASS_REG_BYTE+(ARG_RR),}, {CLASS_BIT+0xb,CLASS_BIT+8,CLASS_REGN0+(ARG_RA),CLASS_BIT+6,CLASS_BIT+0,CLASS_REG+(ARG_RR),CLASS_REGN0+(ARG_RB),CLASS_BIT+0xe,0,},3,4,398}, /* 0000 1101 ddN0 0110 *** tset @rd */ { #ifdef NICENAMES "tset @rd",16,11, 0x08, #endif "tset",OPC_tset,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+6,0,0,0,0,0,},1,2,399}, /* 0100 1101 0000 0110 address_dst *** tset address_dst */ { #ifdef NICENAMES "tset address_dst",16,14, 0x08, #endif "tset",OPC_tset,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_BIT+0,CLASS_BIT+6,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,400}, /* 0100 1101 ddN0 0110 address_dst *** tset address_dst(rd) */ { #ifdef NICENAMES "tset address_dst(rd)",16,15, 0x08, #endif "tset",OPC_tset,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xd,CLASS_REGN0+(ARG_RD),CLASS_BIT+6,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,401}, /* 1000 1101 dddd 0110 *** tset rd */ { #ifdef NICENAMES "tset rd",16,7, 0x08, #endif "tset",OPC_tset,0,{CLASS_REG_WORD+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xd,CLASS_REG+(ARG_RD),CLASS_BIT+6,0,0,0,0,0,},1,2,402}, /* 0000 1100 ddN0 0110 *** tsetb @rd */ { #ifdef NICENAMES "tsetb @rd",8,11, 0x08, #endif "tsetb",OPC_tsetb,0,{CLASS_IR+(ARG_RD),}, {CLASS_BIT+0,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+6,0,0,0,0,0,},1,2,403}, /* 0100 1100 0000 0110 address_dst *** tsetb address_dst */ { #ifdef NICENAMES "tsetb address_dst",8,14, 0x08, #endif "tsetb",OPC_tsetb,0,{CLASS_DA+(ARG_DST),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_BIT+0,CLASS_BIT+6,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,404}, /* 0100 1100 ddN0 0110 address_dst *** tsetb address_dst(rd) */ { #ifdef NICENAMES "tsetb address_dst(rd)",8,15, 0x08, #endif "tsetb",OPC_tsetb,0,{CLASS_X+(ARG_RD),}, {CLASS_BIT+4,CLASS_BIT+0xc,CLASS_REGN0+(ARG_RD),CLASS_BIT+6,CLASS_ADDRESS+(ARG_DST),0,0,0,0,},1,4,405}, /* 1000 1100 dddd 0110 *** tsetb rbd */ { #ifdef NICENAMES "tsetb rbd",8,7, 0x08, #endif "tsetb",OPC_tsetb,0,{CLASS_REG_BYTE+(ARG_RD),}, {CLASS_BIT+8,CLASS_BIT+0xc,CLASS_REG+(ARG_RD),CLASS_BIT+6,0,0,0,0,0,},1,2,406}, /* 0000 1001 ssN0 dddd *** xor rd,@rs */ { #ifdef NICENAMES "xor rd,@rs",16,7, 0x18, #endif "xor",OPC_xor,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+9,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,407}, /* 0100 1001 0000 dddd address_src *** xor rd,address_src */ { #ifdef NICENAMES "xor rd,address_src",16,9, 0x18, #endif "xor",OPC_xor,0,{CLASS_REG_WORD+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,408}, /* 0100 1001 ssN0 dddd address_src *** xor rd,address_src(rs) */ { #ifdef NICENAMES "xor rd,address_src(rs)",16,10, 0x18, #endif "xor",OPC_xor,0,{CLASS_REG_WORD+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+9,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,409}, /* 0000 1001 0000 dddd imm16 *** xor rd,imm16 */ { #ifdef NICENAMES "xor rd,imm16",16,7, 0x18, #endif "xor",OPC_xor,0,{CLASS_REG_WORD+(ARG_RD),CLASS_IMM+(ARG_IMM16),}, {CLASS_BIT+0,CLASS_BIT+9,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM16),0,0,0,0,},2,4,410}, /* 1000 1001 ssss dddd *** xor rd,rs */ { #ifdef NICENAMES "xor rd,rs",16,4, 0x18, #endif "xor",OPC_xor,0,{CLASS_REG_WORD+(ARG_RD),CLASS_REG_WORD+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+9,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,411}, /* 0000 1000 ssN0 dddd *** xorb rbd,@rs */ { #ifdef NICENAMES "xorb rbd,@rs",8,7, 0x1c, #endif "xorb",OPC_xorb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IR+(ARG_RS),}, {CLASS_BIT+0,CLASS_BIT+8,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,412}, /* 0100 1000 0000 dddd address_src *** xorb rbd,address_src */ { #ifdef NICENAMES "xorb rbd,address_src",8,9, 0x1c, #endif "xorb",OPC_xorb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_DA+(ARG_SRC),}, {CLASS_BIT+4,CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,413}, /* 0100 1000 ssN0 dddd address_src *** xorb rbd,address_src(rs) */ { #ifdef NICENAMES "xorb rbd,address_src(rs)",8,10, 0x1c, #endif "xorb",OPC_xorb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_X+(ARG_RS),}, {CLASS_BIT+4,CLASS_BIT+8,CLASS_REGN0+(ARG_RS),CLASS_REG+(ARG_RD),CLASS_ADDRESS+(ARG_SRC),0,0,0,0,},2,4,414}, /* 0000 1000 0000 dddd imm8 imm8 *** xorb rbd,imm8 */ { #ifdef NICENAMES "xorb rbd,imm8",8,7, 0x1c, #endif "xorb",OPC_xorb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_IMM+(ARG_IMM8),}, {CLASS_BIT+0,CLASS_BIT+8,CLASS_BIT+0,CLASS_REG+(ARG_RD),CLASS_IMM+(ARG_IMM8),CLASS_IMM+(ARG_IMM8),0,0,0,},2,4,415}, /* 1000 1000 ssss dddd *** xorb rbd,rbs */ { #ifdef NICENAMES "xorb rbd,rbs",8,4, 0x1c, #endif "xorb",OPC_xorb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+8,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,416}, /* 1000 1000 ssss dddd *** xorb rbd,rbs */ { #ifdef NICENAMES "xorb rbd,rbs",8,4, 0x01, #endif "xorb",OPC_xorb,0,{CLASS_REG_BYTE+(ARG_RD),CLASS_REG_BYTE+(ARG_RS),}, {CLASS_BIT+8,CLASS_BIT+8,CLASS_REG+(ARG_RS),CLASS_REG+(ARG_RD),0,0,0,0,0,},2,2,417}, 0,0}; #endif gdb-4.13/opcodes/z8kgen.c 666 34562 1752 142045 5463016037 13615 0ustar fnfcygnus/* This file is part of GNU Binutils. 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This program generates z8k-opc.h */ #include #include "sysdep.h" #define BYTE_INFO_LEN 10 struct op { char *flags; int cycles; char type; char *bits; char *name; char *flavor; }; #define iswhite(x) ((x) == ' ' || (x) == '\t') struct op opt[] = { "------", 10, 8, "0000 1110 imm8", "ext0e imm8", 0, "------", 10, 8, "0000 1111 imm8", "ext0f imm8", 0, "------", 10, 8, "1000 1110 imm8", "ext8e imm8", 0, "------", 10, 8, "1000 1111 imm8", "ext8f imm8", 0, "------", 10, 8, "0011 0110 imm8", "rsvd36", 0, "------", 10, 8, "0011 1000 imm8", "rsvd38", 0, "------", 10, 8, "0111 1000 imm8", "rsvd78", 0, "------", 10, 8, "0111 1110 imm8", "rsvd7e", 0, "------", 10, 8, "1001 1101 imm8", "rsvd9d", 0, "------", 10, 8, "1001 1111 imm8", "rsvd9f", 0, "------", 10, 8, "1011 1001 imm8", "rsvdb9", 0, "------", 10, 8, "1011 1111 imm8", "rsvdbf", 0, "---V--", 11, 16, "1011 1011 ssN0 1001 0000 rrrr ddN0 1000", "ldd @rs,@rd,rr", 0, "---V--", 11, 16, "1011 1011 ssN0 1001 0000 rrrr ddN0 0000", "lddr @rs,@rd,rr", 0, "---V--", 11, 8, "1011 1011 ssN0 1001 0000 rrrr ddN0 0000", "lddrb @rs,@rd,rr", 0, "---V--", 11, 16, "1011 1011 ssN0 0001 0000 rrrr ddN0 0000", "ldir @rd,@rs,rr", 0, "CZSV--", 11, 16, "1011 1011 ssN0 0000 0000 rrrr dddd cccc", "cpi rd,@rs,rr,cc", 0, "CZSV--", 11, 16, "1011 1011 ssN0 0100 0000 rrrr dddd cccc", "cpir rd,@rs,rr,cc", 0, "CZSV--", 11, 16, "1011 1011 ssN0 1100 0000 rrrr dddd cccc", "cpdr rd,@rs,rr,cc", 0, "---V--", 11, 16, "1011 1011 ssN0 0001 0000 rrrr ddN0 1000", "ldi @rd,@rs,rr", 0, "CZSV--", 11, 16, "1011 1011 ssN0 1000 0000 rrrr dddd cccc", "cpd rd,@rs,rr,cc", 0, "---V--", 11, 8, "1011 1010 ssN0 0001 0000 rrrr ddN0 0000", "ldirb @rd,@rs,rr", 0, "---V--", 11, 8, "1011 1010 ssN0 1001 0000 rrrr ddN0 1000", "lddb @rs,@rd,rr", 0, "---V--", 11, 8, "1011 1010 ssN0 0001 0000 rrrr ddN0 1000", "ldib @rd,@rs,rr", 0, "CZSV--", 11, 8, "1011 1010 ssN0 1000 0000 rrrr dddd cccc", "cpdb rbd,@rs,rr,cc", 0, "CZSV--", 11, 8, "1011 1010 ssN0 1100 0000 rrrr dddd cccc", "cpdrb rbd,@rs,rr,cc", 0, "CZSV--", 11, 8, "1011 1010 ssN0 0000 0000 rrrr dddd cccc", "cpib rbd,@rs,rr,cc", 0, "CZSV--", 11, 8, "1011 1010 ssN0 0100 0000 rrrr dddd cccc", "cpirb rbd,@rs,rr,cc", 0, "CZSV--", 11, 16, "1011 1011 ssN0 1010 0000 rrrr ddN0 cccc", "cpsd @rd,@rs,rr,cc", 0, "CZSV--", 11, 8, "1011 1010 ssN0 1010 0000 rrrr ddN0 cccc", "cpsdb @rd,@rs,rr,cc", 0, "CZSV--", 11, 16, "1011 1011 ssN0 1110 0000 rrrr ddN0 cccc", "cpsdr @rd,@rs,rr,cc", 0, "CZSV--", 11, 8, "1011 1010 ssN0 1110 0000 rrrr ddN0 cccc", "cpsdrb @rd,@rs,rr,cc", 0, "CZSV--", 11, 16, "1011 1011 ssN0 0010 0000 rrrr ddN0 cccc", "cpsi @rd,@rs,rr,cc", 0, "CZSV--", 11, 8, "1011 1010 ssN0 0010 0000 rrrr ddN0 cccc", "cpsib @rd,@rs,rr,cc", 0, "CZSV--", 11, 16, "1011 1011 ssN0 0110 0000 rrrr ddN0 cccc", "cpsir @rd,@rs,rr,cc", 0, "CZSV--", 11, 8, "1011 1010 ssN0 0110 0000 rrrr ddN0 cccc", "cpsirb @rd,@rs,rr,cc", 0, "------", 2, 8, "0011 0110 0000 0000", "bpt", 0, "CZSV--", 5, 16, "1011 0101 ssss dddd", "adc rd,rs", 0, "CZSVDH", 5, 8, "1011 0100 ssss dddd", "adcb rbd,rbs", 0, "CZSV--", 7, 16, "0000 0001 ssN0 dddd", "add rd,@rs", 0, "CZSV--", 9, 16, "0100 0001 0000 dddd address_src", "add rd,address_src", 0, "CZSV--", 10, 16, "0100 0001 ssN0 dddd address_src", "add rd,address_src(rs)", 0, "CZSV--", 7, 16, "0000 0001 0000 dddd imm16", "add rd,imm16", 0, "CZSV--", 4, 16, "1000 0001 ssss dddd", "add rd,rs", 0, "CZSVDH", 7, 8, "0000 0000 ssN0 dddd", "addb rbd,@rs", 0, "CZSVDH", 9, 8, "0100 0000 0000 dddd address_src", "addb rbd,address_src", 0, "CZSVDH", 10, 8, "0100 0000 ssN0 dddd address_src", "addb rbd,address_src(rs)", 0, "CZSVDH", 7, 8, "0000 0000 0000 dddd imm8 imm8", "addb rbd,imm8", 0, "CZSVDH", 4, 8, "1000 0000 ssss dddd", "addb rbd,rbs", 0, "CZSV--", 14, 32, "0001 0110 ssN0 dddd", "addl rrd,@rs", 0, "CZSV--", 15, 32, "0101 0110 0000 dddd address_src", "addl rrd,address_src", 0, "CZSV--", 16, 32, "0101 0110 ssN0 dddd address_src", "addl rrd,address_src(rs)", 0, "CZSV--", 14, 32, "0001 0110 0000 dddd imm32", "addl rrd,imm32", 0, "CZSV--", 8, 32, "1001 0110 ssss dddd", "addl rrd,rrs", 0, "-ZS---", 7, 16, "0000 0111 ssN0 dddd", "and rd,@rs", 0, "-ZS---", 9, 16, "0100 0111 0000 dddd address_src", "and rd,address_src", 0, "-ZS---", 10, 16, "0100 0111 ssN0 dddd address_src", "and rd,address_src(rs)", 0, "-ZS---", 7, 16, "0000 0111 0000 dddd imm16", "and rd,imm16", 0, "-ZS---", 4, 16, "1000 0111 ssss dddd", "and rd,rs", 0, "-ZSP--", 7, 8, "0000 0110 ssN0 dddd", "andb rbd,@rs", 0, "-ZSP--", 9, 8, "0100 0110 0000 dddd address_src", "andb rbd,address_src", 0, "-ZSP--", 10, 8, "0100 0110 ssN0 dddd address_src", "andb rbd,address_src(rs)", 0, "-ZSP--", 7, 8, "0000 0110 0000 dddd imm8 imm8", "andb rbd,imm8", 0, "-ZSP--", 4, 8, "1000 0110 ssss dddd", "andb rbd,rbs", 0, "-Z----", 8, 16, "0010 0111 ddN0 imm4", "bit @rd,imm4", 0, "-Z----", 11, 16, "0110 0111 ddN0 imm4 address_dst", "bit address_dst(rd),imm4", 0, "-Z----", 10, 16, "0110 0111 0000 imm4 address_dst", "bit address_dst,imm4", 0, "-Z----", 4, 16, "1010 0111 dddd imm4", "bit rd,imm4", 0, "-Z----", 10, 16, "0010 0111 0000 ssss 0000 dddd 0000 0000", "bit rd,rs", 0, "-Z----", 8, 8, "0010 0110 ddN0 imm4", "bitb @rd,imm4", 0, "-Z----", 11, 8, "0110 0110 ddN0 imm4 address_dst", "bitb address_dst(rd),imm4", 0, "-Z----", 10, 8, "0110 0110 0000 imm4 address_dst", "bitb address_dst,imm4", 0, "-Z----", 4, 8, "1010 0110 dddd imm4", "bitb rbd,imm4", 0, "-Z----", 10, 8, "0010 0110 0000 ssss 0000 dddd 0000 0000", "bitb rbd,rs", 0, "------", 10, 32, "0001 1111 ddN0 0000", "call @rd", 0, "------", 12, 32, "0101 1111 0000 0000 address_dst", "call address_dst", 0, "------", 13, 32, "0101 1111 ddN0 0000 address_dst", "call address_dst(rd)", 0, "------", 10, 16, "1101 disp12", "calr disp12", 0, "------", 8, 16, "0000 1101 ddN0 1000", "clr @rd", 0, "------", 11, 16, "0100 1101 0000 1000 address_dst", "clr address_dst", 0, "------", 12, 16, "0100 1101 ddN0 1000 address_dst", "clr address_dst(rd)", 0, "------", 7, 16, "1000 1101 dddd 1000", "clr rd", 0, "------", 8, 8, "0000 1100 ddN0 1000", "clrb @rd", 0, "------", 11, 8, "0100 1100 0000 1000 address_dst", "clrb address_dst", 0, "------", 12, 8, "0100 1100 ddN0 1000 address_dst", "clrb address_dst(rd)", 0, "------", 7, 8, "1000 1100 dddd 1000", "clrb rbd", 0, "-ZS---", 12, 16, "0000 1101 ddN0 0000", "com @rd", 0, "-ZS---", 15, 16, "0100 1101 0000 0000 address_dst", "com address_dst", 0, "-ZS---", 16, 16, "0100 1101 ddN0 0000 address_dst", "com address_dst(rd)", 0, "-ZS---", 7, 16, "1000 1101 dddd 0000", "com rd", 0, "-ZSP--", 12, 8, "0000 1100 ddN0 0000", "comb @rd", 0, "-ZSP--", 15, 8, "0100 1100 0000 0000 address_dst", "comb address_dst", 0, "-ZSP--", 16, 8, "0100 1100 ddN0 0000 address_dst", "comb address_dst(rd)", 0, "-ZSP--", 7, 8, "1000 1100 dddd 0000", "comb rbd", 0, "CZSP--", 7, 16, "1000 1101 imm4 0101", "comflg flags", 0, "CZSV--", 11, 16, "0000 1101 ddN0 0001 imm16", "cp @rd,imm16", 0, "CZSV--", 15, 16, "0100 1101 ddN0 0001 address_dst imm16", "cp address_dst(rd),imm16", 0, "CZSV--", 14, 16, "0100 1101 0000 0001 address_dst imm16", "cp address_dst,imm16", 0, "CZSV--", 7, 16, "0000 1011 ssN0 dddd", "cp rd,@rs", 0, "CZSV--", 9, 16, "0100 1011 0000 dddd address_src", "cp rd,address_src", 0, "CZSV--", 10, 16, "0100 1011 ssN0 dddd address_src", "cp rd,address_src(rs)", 0, "CZSV--", 7, 16, "0000 1011 0000 dddd imm16", "cp rd,imm16", 0, "CZSV--", 4, 16, "1000 1011 ssss dddd", "cp rd,rs", 0, "CZSV--", 11, 8, "0000 1100 ddN0 0001 imm8 imm8", "cpb @rd,imm8", 0, "CZSV--", 15, 8, "0100 1100 ddN0 0001 address_dst imm8 imm8", "cpb address_dst(rd),imm8", 0, "CZSV--", 14, 8, "0100 1100 0000 0001 address_dst imm8 imm8", "cpb address_dst,imm8", 0, "CZSV--", 7, 8, "0000 1010 ssN0 dddd", "cpb rbd,@rs", 0, "CZSV--", 9, 8, "0100 1010 0000 dddd address_src", "cpb rbd,address_src", 0, "CZSV--", 10, 8, "0100 1010 ssN0 dddd address_src", "cpb rbd,address_src(rs)", 0, "CZSV--", 7, 8, "0000 1010 0000 dddd imm8 imm8", "cpb rbd,imm8", 0, "CZSV--", 4, 8, "1000 1010 ssss dddd", "cpb rbd,rbs", 0, "CZSV--", 14, 32, "0001 0000 ssN0 dddd", "cpl rrd,@rs", 0, "CZSV--", 15, 32, "0101 0000 0000 dddd address_src", "cpl rrd,address_src", 0, "CZSV--", 16, 32, "0101 0000 ssN0 dddd address_src", "cpl rrd,address_src(rs)", 0, "CZSV--", 14, 32, "0001 0000 0000 dddd imm32", "cpl rrd,imm32", 0, "CZSV--", 8, 32, "1001 0000 ssss dddd", "cpl rrd,rrs", 0, "CZS---", 5, 8, "1011 0000 dddd 0000", "dab rbd", 0, "------", 11, 16, "1111 dddd 1disp7", "dbjnz rbd,disp7", 0, "-ZSV--", 11, 16, "0010 1011 ddN0 imm4m1", "dec @rd,imm4m1", 0, "-ZSV--", 14, 16, "0110 1011 ddN0 imm4m1 address_dst", "dec address_dst(rd),imm4m1", 0, "-ZSV--", 13, 16, "0110 1011 0000 imm4m1 address_dst", "dec address_dst,imm4m1", 0, "-ZSV--", 4, 16, "1010 1011 dddd imm4m1", "dec rd,imm4m1", 0, "-ZSV--", 11, 8, "0010 1010 ddN0 imm4m1", "decb @rd,imm4m1", 0, "-ZSV--", 14, 8, "0110 1010 ddN0 imm4m1 address_dst", "decb address_dst(rd),imm4m1", 0, "-ZSV--", 13, 8, "0110 1010 0000 imm4m1 address_dst", "decb address_dst,imm4m1", 0, "-ZSV--", 4, 8, "1010 1010 dddd imm4m1", "decb rbd,imm4m1", 0, "------", 7, 16, "0111 1100 0000 00ii", "di i2", 0, "CZSV--", 107, 16, "0001 1011 ssN0 dddd", "div rrd,@rs", 0, "CZSV--", 107, 16, "0101 1011 0000 dddd address_src", "div rrd,address_src", 0, "CZSV--", 107, 16, "0101 1011 ssN0 dddd address_src", "div rrd,address_src(rs)", 0, "CZSV--", 107, 16, "0001 1011 0000 dddd imm16", "div rrd,imm16", 0, "CZSV--", 107, 16, "1001 1011 ssss dddd", "div rrd,rs", 0, "CZSV--", 744, 32, "0001 1010 ssN0 dddd", "divl rqd,@rs", 0, "CZSV--", 745, 32, "0101 1010 0000 dddd address_src", "divl rqd,address_src", 0, "CZSV--", 746, 32, "0101 1010 ssN0 dddd address_src", "divl rqd,address_src(rs)", 0, "CZSV--", 744, 32, "0001 1010 0000 dddd imm32", "divl rqd,imm32", 0, "CZSV--", 744, 32, "1001 1010 ssss dddd", "divl rqd,rrs", 0, "------", 11, 16, "1111 dddd 0disp7", "djnz rd,disp7", 0, "------", 7, 16, "0111 1100 0000 01ii", "ei i2", 0, "------", 6, 16, "1010 1101 ssss dddd", "ex rd,rs", 0, "------", 12, 16, "0010 1101 ssN0 dddd", "ex rd,@rs", 0, "------", 15, 16, "0110 1101 0000 dddd address_src", "ex rd,address_src", 0, "------", 16, 16, "0110 1101 ssN0 dddd address_src", "ex rd,address_src(rs)", 0, "------", 12, 8, "0010 1100 ssN0 dddd", "exb rbd,@rs", 0, "------", 15, 8, "0110 1100 0000 dddd address_src", "exb rbd,address_src", 0, "------", 16, 8, "0110 1100 ssN0 dddd address_src", "exb rbd,address_src(rs)", 0, "------", 6, 8, "1010 1100 ssss dddd", "exb rbd,rbs", 0, "------", 11, 16, "1011 0001 dddd 1010", "exts rrd", 0, "------", 11, 8, "1011 0001 dddd 0000", "extsb rd", 0, "------", 11, 32, "1011 0001 dddd 0111", "extsl rqd", 0, "------", 8, 16, "0111 1010 0000 0000", "halt", 0, "------", 10, 16, "0011 1101 ssN0 dddd", "in rd,@rs", 0, "------", 12, 16, "0011 1101 dddd 0100 imm16", "in rd,imm16", 0, "------", 12, 8, "0011 1100 ssN0 dddd", "inb rbd,@rs", 0, "------", 10, 8, "0011 1100 dddd 0100 imm16", "inb rbd,imm16", 0, "-ZSV--", 11, 16, "0010 1001 ddN0 imm4m1", "inc @rd,imm4m1", 0, "-ZSV--", 14, 16, "0110 1001 ddN0 imm4m1 address_dst", "inc address_dst(rd),imm4m1", 0, "-ZSV--", 13, 16, "0110 1001 0000 imm4m1 address_dst", "inc address_dst,imm4m1", 0, "-ZSV--", 4, 16, "1010 1001 dddd imm4m1", "inc rd,imm4m1", 0, "-ZSV--", 11, 8, "0010 1000 ddN0 imm4m1", "incb @rd,imm4m1", 0, "-ZSV--", 14, 8, "0110 1000 ddN0 imm4m1 address_dst", "incb address_dst(rd),imm4m1", 0, "-ZSV--", 13, 8, "0110 1000 0000 imm4m1 address_dst", "incb address_dst,imm4m1", 0, "-ZSV--", 4, 8, "1010 1000 dddd imm4m1", "incb rbd,imm4m1", 0, "---V--", 21, 16, "0011 1011 ssN0 1000 0000 aaaa ddN0 1000", "ind @rd,@rs,ra", 0, "---V--", 21, 8, "0011 1010 ssN0 1000 0000 aaaa ddN0 1000", "indb @rd,@rs,rba", 0, "---V--", 21, 8, "0011 1100 ssN0 0000 0000 aaaa ddN0 1000", "inib @rd,@rs,ra", 0, "---V--", 21, 16, "0011 1100 ssN0 0000 0000 aaaa ddN0 0000", "inibr @rd,@rs,ra", 0, "CZSVDH", 13, 16, "0111 1011 0000 0000", "iret", 0, "------", 10, 16, "0001 1110 ddN0 cccc", "jp cc,@rd", 0, "------", 7, 16, "0101 1110 0000 cccc address_dst", "jp cc,address_dst", 0, "------", 8, 16, "0101 1110 ddN0 cccc address_dst", "jp cc,address_dst(rd)", 0, "------", 6, 16, "1110 cccc disp8", "jr cc,disp8", 0, "------", 7, 16, "0000 1101 ddN0 0101 imm16", "ld @rd,imm16", 0, "------", 8, 16, "0010 1111 ddN0 ssss", "ld @rd,rs", 0, "------", 15, 16, "0100 1101 ddN0 0101 address_dst imm16", "ld address_dst(rd),imm16", 0, "------", 12, 16, "0110 1111 ddN0 ssss address_dst", "ld address_dst(rd),rs", 0, "------", 14, 16, "0100 1101 0000 0101 address_dst imm16", "ld address_dst,imm16", 0, "------", 11, 16, "0110 1111 0000 ssss address_dst", "ld address_dst,rs", 0, "------", 14, 16, "0011 0011 ddN0 ssss imm16", "ld rd(imm16),rs", 0, "------", 14, 16, "0111 0011 ddN0 ssss 0000 xxxx 0000 0000", "ld rd(rx),rs", 0, "------", 7, 16, "0010 0001 ssN0 dddd", "ld rd,@rs", 0, "------", 9, 16, "0110 0001 0000 dddd address_src", "ld rd,address_src", 0, "------", 10, 16, "0110 0001 ssN0 dddd address_src", "ld rd,address_src(rs)", 0, "------", 7, 16, "0010 0001 0000 dddd imm16", "ld rd,imm16", 0, "------", 3, 16, "1010 0001 ssss dddd", "ld rd,rs", 0, "------", 14, 16, "0011 0001 ssN0 dddd imm16", "ld rd,rs(imm16)", 0, "------", 14, 16, "0111 0001 ssN0 dddd 0000 xxxx 0000 0000", "ld rd,rs(rx)", 0, "------", 7, 8, "0000 1100 ddN0 0101 imm8 imm8", "ldb @rd,imm8", 0, "------", 8, 8, "0010 1110 ddN0 ssss", "ldb @rd,rbs", 0, "------", 15, 8, "0100 1100 ddN0 0101 address_dst imm8 imm8", "ldb address_dst(rd),imm8", 0, "------", 12, 8, "0100 1110 ddN0 ssN0 address_dst", "ldb address_dst(rd),rbs", 0, "------", 14, 8, "0100 1100 0000 0101 address_dst imm8 imm8", "ldb address_dst,imm8", 0, "------", 11, 8, "0110 1110 0000 ssss address_dst", "ldb address_dst,rbs", 0, "------", 14, 8, "0011 0010 ddN0 ssss imm16", "ldb rd(imm16),rbs", 0, "------", 14, 8, "0111 0010 ddN0 ssss 0000 xxxx 0000 0000", "ldb rd(rx),rbs", 0, "------", 7, 8, "0010 0000 ssN0 dddd", "ldb rbd,@rs", 0, "------", 9, 8, "0110 0000 0000 dddd address_src", "ldb rbd,address_src", 0, "------", 10, 8, "0110 0000 ssN0 dddd address_src", "ldb rbd,address_src(rs)", 0, "------", 5, 8, "1100 dddd imm8", "ldb rbd,imm8", 0, "------", 3, 8, "1010 0000 ssss dddd", "ldb rbd,rbs", 0, "------", 14, 8, "0011 0000 ssN0 dddd imm16", "ldb rbd,rs(imm16)", 0, "------", 14, 8, "0111 0000 ssN0 dddd 0000 xxxx 0000 0000", "ldb rbd,rs(rx)", 0, "------", 11, 32, "0001 1101 ddN0 ssss", "ldl @rd,rrs", 0, "------", 14, 32, "0101 1101 ddN0 ssss address_dst", "ldl address_dst(rd),rrs", 0, "------", 15, 32, "0101 1101 0000 ssss address_dst", "ldl address_dst,rrs", 0, "------", 17, 32, "0011 0111 ddN0 ssss imm16", "ldl rd(imm16),rrs", 0, "------", 17, 32, "0111 0111 ddN0 ssss 0000 xxxx 0000 0000", "ldl rd(rx),rrs", 0, "------", 11, 32, "0001 0100 ssN0 dddd", "ldl rrd,@rs", 0, "------", 12, 32, "0101 0100 0000 dddd address_src", "ldl rrd,address_src", 0, "------", 13, 32, "0101 0100 ssN0 dddd address_src", "ldl rrd,address_src(rs)", 0, "------", 11, 32, "0001 0100 0000 dddd imm32", "ldl rrd,imm32", 0, "------", 5, 32, "1001 0100 ssss dddd", "ldl rrd,rrs", 0, "------", 17, 32, "0011 0101 ssN0 dddd imm16", "ldl rrd,rs(imm16)", 0, "------", 17, 32, "0111 0101 ssN0 dddd 0000 xxxx 0000 0000", "ldl rrd,rs(rx)", 0, "------", 12, 16, "0111 0110 0000 dddd address_src", "lda prd,address_src", 0, "------", 13, 16, "0111 0110 ssN0 dddd address_src", "lda prd,address_src(rs)", 0, "------", 15, 16, "0011 0100 ssN0 dddd imm16", "lda prd,rs(imm16)", 0, "------", 15, 16, "0111 0100 ssN0 dddd 0000 xxxx 0000 0000", "lda prd,rs(rx)", 0, "------", 15, 16, "0011 0100 0000 dddd disp16", "ldar prd,disp16", 0, "------", 7, 32, "0111 1101 ssss 1ccc", "ldctl ctrl,rs", 0, "------", 7, 32, "0111 1101 dddd 0ccc", "ldctl rd,ctrl", 0, "------", 5, 16, "1011 1101 dddd imm4", "ldk rd,imm4", 0, "------", 11, 16, "0001 1100 ddN0 1001 0000 ssss 0000 nminus1", "ldm @rd,rs,n", 0, "------", 15, 16, "0101 1100 ddN0 1001 0000 ssN0 0000 nminus1 address_dst", "ldm address_dst(rd),rs,n", 0, "------", 14, 16, "0101 1100 0000 1001 0000 ssss 0000 nminus1 address_dst", "ldm address_dst,rs,n", 0, "------", 11, 16, "0001 1100 ssN0 0001 0000 dddd 0000 nminus1", "ldm rd,@rs,n", 0, "------", 15, 16, "0101 1100 ssN0 0001 0000 dddd 0000 nminus1 address_src", "ldm rd,address_src(rs),n", 0, "------", 14, 16, "0101 1100 0000 0001 0000 dddd 0000 nminus1 address_src", "ldm rd,address_src,n", 0, "CZSVDH", 12, 16, "0011 1001 ssN0 0000", "ldps @rs", 0, "CZSVDH", 16, 16, "0111 1001 0000 0000 address_src", "ldps address_src", 0, "CZSVDH", 17, 16, "0111 1001 ssN0 0000 address_src", "ldps address_src(rs)", 0, "------", 14, 16, "0011 0011 0000 ssss disp16", "ldr disp16,rs", 0, "------", 14, 16, "0011 0001 0000 dddd disp16", "ldr rd,disp16", 0, "------", 14, 8, "0011 0010 0000 ssss disp16", "ldrb disp16,rbs", 0, "------", 14, 8, "0011 0000 0000 dddd disp16", "ldrb rbd,disp16", 0, "------", 17, 32, "0011 0111 0000 ssss disp16", "ldrl disp16,rrs", 0, "------", 17, 32, "0011 0101 0000 dddd disp16", "ldrl rrd,disp16", 0, "CZS---", 7, 16, "0111 1011 0000 1010", "mbit", 0, "-ZS---", 12, 16, "0111 1011 dddd 1101", "mreq rd", 0, "------", 5, 16, "0111 1011 0000 1001", "mres", 0, "------", 5, 16, "0111 1011 0000 1000", "mset", 0, "CZSV--", 70, 16, "0001 1001 ssN0 dddd", "mult rrd,@rs", 0, "CZSV--", 70, 16, "0101 1001 0000 dddd address_src", "mult rrd,address_src", 0, "CZSV--", 70, 16, "0101 1001 ssN0 dddd address_src", "mult rrd,address_src(rs)", 0, "CZSV--", 70, 16, "0001 1001 0000 dddd imm16", "mult rrd,imm16", 0, "CZSV--", 70, 16, "1001 1001 ssss dddd", "mult rrd,rs", 0, "CZSV--", 282, 32, "0001 1000 ssN0 dddd", "multl rqd,@rs", 0, "CZSV--", 282, 32, "0101 1000 0000 dddd address_src", "multl rqd,address_src", 0, "CZSV--", 282, 32, "0101 1000 ssN0 dddd address_src", "multl rqd,address_src(rs)", 0, "CZSV--", 282, 32, "0001 1000 0000 dddd imm32", "multl rqd,imm32", 0, "CZSV--", 282, 32, "1001 1000 ssss dddd", "multl rqd,rrs", 0, "CZSV--", 12, 16, "0000 1101 ddN0 0010", "neg @rd", 0, "CZSV--", 15, 16, "0100 1101 0000 0010 address_dst", "neg address_dst", 0, "CZSV--", 16, 16, "0100 1101 ddN0 0010 address_dst", "neg address_dst(rd)", 0, "CZSV--", 7, 16, "1000 1101 dddd 0010", "neg rd", 0, "CZSV--", 12, 8, "0000 1100 ddN0 0010", "negb @rd", 0, "CZSV--", 15, 8, "0100 1100 0000 0010 address_dst", "negb address_dst", 0, "CZSV--", 16, 8, "0100 1100 ddN0 0010 address_dst", "negb address_dst(rd)", 0, "CZSV--", 7, 8, "1000 1100 dddd 0010", "negb rbd", 0, "------", 7, 16, "1000 1101 0000 0111", "nop", 0, "CZS---", 7, 16, "0000 0101 ssN0 dddd", "or rd,@rs", 0, "CZS---", 9, 16, "0100 0101 0000 dddd address_src", "or rd,address_src", 0, "CZS---", 10, 16, "0100 0101 ssN0 dddd address_src", "or rd,address_src(rs)", 0, "CZS---", 7, 16, "0000 0101 0000 dddd imm16", "or rd,imm16", 0, "CZS---", 4, 16, "1000 0101 ssss dddd", "or rd,rs", 0, "CZSP--", 7, 8, "0000 0100 ssN0 dddd", "orb rbd,@rs", 0, "CZSP--", 9, 8, "0100 0100 0000 dddd address_src", "orb rbd,address_src", 0, "CZSP--", 10, 8, "0100 0100 ssN0 dddd address_src", "orb rbd,address_src(rs)", 0, "CZSP--", 7, 8, "0000 0100 0000 dddd imm8 imm8", "orb rbd,imm8", 0, "CZSP--", 4, 8, "1000 0100 ssss dddd", "orb rbd,rbs", 0, "---V--", 0, 16, "0011 1111 ddN0 ssss", "out @rd,rs", 0, "---V--", 0, 16, "0011 1011 ssss 0110 imm16", "out imm16,rs", 0, "---V--", 0, 8, "0011 1110 ddN0 ssss", "outb @rd,rbs", 0, "---V--", 0, 8, "0011 1010 ssss 0110 imm16", "outb imm16,rbs", 0, "---V--", 0, 16, "0011 1011 ssN0 1010 0000 aaaa ddN0 1000", "outd @rd,@rs,ra", 0, "---V--", 0, 8, "0011 1010 ssN0 1010 0000 aaaa ddN0 1000", "outdb @rd,@rs,rba", 0, "---V--", 0, 8, "0011 1100 ssN0 0010 0000 aaaa ddN0 1000", "outib @rd,@rs,ra", 0, "---V--", 0, 16, "0011 1100 ssN0 0010 0000 aaaa ddN0 0000", "outibr @rd,@rs,ra", 0, "------", 12, 16, "0001 0111 ssN0 ddN0", "pop @rd,@rs", 0, "------", 16, 16, "0101 0111 ssN0 ddN0 address_dst", "pop address_dst(rd),@rs", 0, "------", 16, 16, "0101 0111 ssN0 0000 address_dst", "pop address_dst,@rs", 0, "------", 8, 16, "1001 0111 ssN0 dddd", "pop rd,@rs", 0, "------", 19, 32, "0001 0101 ssN0 ddN0", "popl @rd,@rs", 0, "------", 23, 32, "0101 0101 ssN0 ddN0 address_dst", "popl address_dst(rd),@rs", 0, "------", 23, 32, "0101 0101 ssN0 0000 address_dst", "popl address_dst,@rs", 0, "------", 12, 32, "1001 0101 ssN0 dddd", "popl rrd,@rs", 0, "------", 13, 16, "0001 0011 ddN0 ssN0", "push @rd,@rs", 0, "------", 14, 16, "0101 0011 ddN0 0000 address_src", "push @rd,address_src", 0, "------", 14, 16, "0101 0011 ddN0 ssN0 address_src", "push @rd,address_src(rs)", 0, "------", 12, 16, "0000 1101 ddN0 1001 imm16", "push @rd,imm16", 0, "------", 9, 16, "1001 0011 ddN0 ssss", "push @rd,rs", 0, "------", 20, 32, "0001 0001 ddN0 ssN0", "pushl @rd,@rs", 0, "------", 21, 32, "0101 0001 ddN0 ssN0 address_src", "pushl @rd,address_src(rs)", 0, "------", 21, 32, "0101 0001 ddN0 0000 address_src", "pushl @rd,address_src", 0, "------", 12, 32, "1001 0001 ddN0 ssss", "pushl @rd,rrs", 0, "------", 11, 16, "0010 0011 ddN0 imm4", "res @rd,imm4", 0, "------", 14, 16, "0110 0011 ddN0 imm4 address_dst", "res address_dst(rd),imm4", 0, "------", 13, 16, "0110 0011 0000 imm4 address_dst", "res address_dst,imm4", 0, "------", 4, 16, "1010 0011 dddd imm4", "res rd,imm4", 0, "------", 10, 16, "0010 0011 0000 ssss 0000 dddd 0000 0000", "res rd,rs", 0, "------", 11, 8, "0010 0010 ddN0 imm4", "resb @rd,imm4", 0, "------", 14, 8, "0110 0010 ddN0 imm4 address_dst", "resb address_dst(rd),imm4", 0, "------", 13, 8, "0110 0010 0000 imm4 address_dst", "resb address_dst,imm4", 0, "------", 4, 8, "1010 0010 dddd imm4", "resb rbd,imm4", 0, "------", 10, 8, "0010 0010 0000 ssss 0000 dddd 0000 0000", "resb rbd,rs", 0, "CZSV--", 7, 16, "1000 1101 imm4 0011", "resflg imm4", 0, "------", 10, 16, "1001 1110 0000 cccc", "ret cc", 0, "CZSV--", 6, 16, "1011 0011 dddd 00I0", "rl rd,imm1or2", 0, "CZSV--", 6, 8, "1011 0010 dddd 00I0", "rlb rbd,imm1or2", 0, "CZSV--", 6, 16, "1011 0011 dddd 10I0", "rlc rd,imm1or2", 0, "-Z----", 9, 8, "1011 0010 dddd 10I0", "rlcb rbd,imm1or2", 0, "-Z----", 9, 8, "1011 1110 aaaa bbbb", "rldb rbb,rba", 0, "CZSV--", 6, 16, "1011 0011 dddd 01I0", "rr rd,imm1or2", 0, "CZSV--", 6, 8, "1011 0010 dddd 01I0", "rrb rbd,imm1or2", 0, "CZSV--", 6, 16, "1011 0011 dddd 11I0", "rrc rd,imm1or2", 0, "-Z----", 9, 8, "1011 0010 dddd 11I0", "rrcb rbd,imm1or2", 0, "-Z----", 9, 8, "1011 1100 aaaa bbbb", "rrdb rbb,rba", 0, "CZSV--", 5, 16, "1011 0111 ssss dddd", "sbc rd,rs", 0, "CZSVDH", 5, 8, "1011 0110 ssss dddd", "sbcb rbd,rbs", 0, "CZSVDH", 33, 8, "0111 1111 imm8", "sc imm8", 0, "CZSV--", 15, 16, "1011 0011 dddd 1011 0000 ssss 0000 0000", "sda rd,rs", 0, "CZSV--", 15, 8, "1011 0010 dddd 1011 0000 ssss 0000 0000", "sdab rbd,rs", 0, "CZSV--", 15, 32, "1011 0011 dddd 1111 0000 ssss 0000 0000", "sdal rrd,rs", 0, "CZS---", 15, 16, "1011 0011 dddd 0011 0000 ssss 0000 0000", "sdl rd,rs", 0, "CZS---", 15, 8, "1011 0010 dddd 0011 0000 ssss 0000 0000", "sdlb rbd,rs", 0, "CZS---", 15, 32, "1011 0011 dddd 0111 0000 ssss 0000 0000", "sdll rrd,rs", 0, "------", 11, 16, "0010 0101 ddN0 imm4", "set @rd,imm4", 0, "------", 14, 16, "0110 0101 ddN0 imm4 address_dst", "set address_dst(rd),imm4", 0, "------", 13, 16, "0110 0101 0000 imm4 address_dst", "set address_dst,imm4", 0, "------", 4, 16, "1010 0101 dddd imm4", "set rd,imm4", 0, "------", 10, 16, "0010 0101 0000 ssss 0000 dddd 0000 0000", "set rd,rs", 0, "------", 11, 8, "0010 0100 ddN0 imm4", "setb @rd,imm4", 0, "------", 14, 8, "0110 0100 ddN0 imm4 address_dst", "setb address_dst(rd),imm4", 0, "------", 13, 8, "0110 0100 0000 imm4 address_dst", "setb address_dst,imm4", 0, "------", 4, 8, "1010 0100 dddd imm4", "setb rbd,imm4", 0, "------", 10, 8, "0010 0100 0000 ssss 0000 dddd 0000 0000", "setb rbd,rs", 0, "CZSV--", 7, 16, "1000 1101 imm4 0001", "setflg imm4", 0, "------", 0, 8, "0011 1100 dddd 0101 imm16", "sinb rbd,imm16", 0, "------", 0, 8, "0011 1101 dddd 0101 imm16", "sinb rd,imm16", 0, "------", 0, 16, "0011 1011 ssN0 1000 0001 aaaa ddN0 1000", "sind @rd,@rs,ra", 0, "------", 0, 8, "0011 1010 ssN0 1000 0001 aaaa ddN0 1000", "sindb @rd,@rs,rba", 0, "------", 0, 8, "0011 1100 ssN0 0001 0000 aaaa ddN0 1000", "sinib @rd,@rs,ra", 0, "------", 0, 16, "0011 1100 ssN0 0001 0000 aaaa ddN0 0000", "sinibr @rd,@rs,ra", 0, "CZSV--", 13, 16, "1011 0011 dddd 1001 0000 0000 imm8", "sla rd,imm8", 0, "CZSV--", 13, 8, "1011 0010 dddd 1001 0000 0000 imm8", "slab rbd,imm8", 0, "CZSV--", 13, 32, "1011 0011 dddd 1101 0000 0000 imm8", "slal rrd,imm8", 0, "CZS---", 13, 16, "1011 0011 dddd 0001 0000 0000 imm8", "sll rd,imm8", 0, "CZS---", 13, 8, "1011 0010 dddd 0001 0000 0000 imm8", "sllb rbd,imm8", 0, "CZS---", 13, 32, "1011 0011 dddd 0101 0000 0000 imm8", "slll rrd,imm8", 0, "------", 0, 16, "0011 1011 ssss 0111 imm16", "sout imm16,rs", 0, "------", 0, 8, "0011 1010 ssss 0111 imm16", "soutb imm16,rbs", 0, "------", 0, 16, "0011 1011 ssN0 1011 0000 aaaa ddN0 1000", "soutd @rd,@rs,ra", 0, "------", 0, 8, "0011 1010 ssN0 1011 0000 aaaa ddN0 1000", "soutdb @rd,@rs,rba", 0, "------", 0, 8, "0011 1100 ssN0 0011 0000 aaaa ddN0 1000", "soutib @rd,@rs,ra", 0, "------", 0, 16, "0011 1100 ssN0 0011 0000 aaaa ddN0 0000", "soutibr @rd,@rs,ra", 0, "CZSV--", 13, 16, "1011 0011 dddd 1001 1111 1111 nim8", "sra rd,imm8", 0, "CZSV--", 13, 8, "1011 0010 dddd 1001 1111 1111 nim8", "srab rbd,imm8", 0, "CZSV--", 13, 32, "1011 0011 dddd 1101 1111 1111 nim8", "sral rrd,imm8", 0, "CZSV--", 13, 16, "1011 0011 dddd 0001 1111 1111 nim8", "srl rd,imm8", 0, "CZSV--", 13, 8, "1011 0010 dddd 0001 1111 1111 nim8", "srlb rbd,imm8", 0, "CZSV--", 13, 32, "1011 0011 dddd 0101 1111 1111 nim8", "srll rrd,imm8", 0, "CZSV--", 7, 16, "0000 0011 ssN0 dddd", "sub rd,@rs", 0, "CZSV--", 9, 16, "0100 0011 0000 dddd address_src", "sub rd,address_src", 0, "CZSV--", 10, 16, "0100 0011 ssN0 dddd address_src", "sub rd,address_src(rs)", 0, "CZSV--", 7, 16, "0000 0010 0000 dddd imm16", "sub rd,imm16", 0, "CZSV--", 4, 16, "1000 0011 ssss dddd", "sub rd,rs", 0, "CZSVDH", 7, 8, "0000 0010 ssN0 dddd", "subb rbd,@rs", 0, "CZSVDH", 9, 8, "0100 0010 0000 dddd address_src", "subb rbd,address_src", 0, "CZSVDH", 10, 8, "0100 0010 ssN0 dddd address_src", "subb rbd,address_src(rs)", 0, "CZSVDH", 7, 8, "0000 0010 0000 dddd imm8 imm8", "subb rbd,imm8", 0, "CZSVDH", 4, 8, "1000 0010 ssss dddd", "subb rbd,rbs", 0, "CZSV--", 14, 32, "0001 0010 ssN0 dddd", "subl rrd,@rs", 0, "CZSV--", 15, 32, "0101 0010 0000 dddd address_src", "subl rrd,address_src", 0, "CZSV--", 16, 32, "0101 0010 ssN0 dddd address_src", "subl rrd,address_src(rs)", 0, "CZSV--", 14, 32, "0001 0010 0000 dddd imm32", "subl rrd,imm32", 0, "CZSV--", 8, 32, "1001 0010 ssss dddd", "subl rrd,rrs", 0, "------", 5, 16, "1010 1111 dddd cccc", "tcc cc,rd", 0, "------", 5, 8, "1010 1110 dddd cccc", "tccb cc,rbd", 0, "-ZS---", 8, 16, "0000 1101 ddN0 0100", "test @rd", 0, "------", 11, 16, "0100 1101 0000 0100 address_dst", "test address_dst", 0, "------", 12, 16, "0100 1101 ddN0 0100 address_dst", "test address_dst(rd)", 0, "------", 7, 16, "1000 1101 dddd 0100", "test rd", 0, "-ZSP--", 8, 8, "0000 1100 ddN0 0100", "testb @rd", 0, "-ZSP--", 11, 8, "0100 1100 0000 0100 address_dst", "testb address_dst", 0, "-ZSP--", 12, 8, "0100 1100 ddN0 0100 address_dst", "testb address_dst(rd)", 0, "-ZSP--", 7, 8, "1000 1100 dddd 0100", "testb rbd", 0, "-ZS---", 13, 32, "0001 1100 ddN0 1000", "testl @rd", 0, "-ZS---", 16, 32, "0101 1100 0000 1000 address_dst", "testl address_dst", 0, "-ZS---", 17, 32, "0101 1100 ddN0 1000 address_dst", "testl address_dst(rd)", 0, "-ZS---", 13, 32, "1001 1100 dddd 1000", "testl rrd", 0, "-ZSV--", 25, 8, "1011 1000 ddN0 1000 0000 aaaa ssN0 0000", "trdb @rd,@rs,rba", 0, "-ZSV--", 25, 8, "1011 1000 ddN0 1100 0000 aaaa ssN0 0000", "trdrb @rd,@rs,rba", 0, "-ZSV--", 25, 8, "1011 1000 ddN0 0000 0000 rrrr ssN0 0000", "trib @rd,@rs,rbr", 0, "-ZSV--", 25, 8, "1011 1000 ddN0 0100 0000 rrrr ssN0 0000", "trirb @rd,@rs,rbr", 0, "-ZSV--", 25, 8, "1011 1000 aaN0 1110 0000 rrrr bbN0 1110", "trtdrb @ra,@rb,rbr", 0, "-ZSV--", 25, 8, "1011 1000 aaN0 0010 0000 rrrr bbN0 0000", "trtib @ra,@rb,rr", 0, "-ZSV--", 25, 8, "1011 1000 aaN0 0110 0000 rrrr bbN0 1110", "trtirb @ra,@rb,rbr", 0, "-ZSV--", 25, 8, "1011 1000 aaN0 1010 0000 rrrr bbN0 0000", "trtrb @ra,@rb,rbr", 0, "--S---", 11, 16, "0000 1101 ddN0 0110", "tset @rd", 0, "--S---", 14, 16, "0100 1101 0000 0110 address_dst", "tset address_dst", 0, "--S---", 15, 16, "0100 1101 ddN0 0110 address_dst", "tset address_dst(rd)", 0, "--S---", 7, 16, "1000 1101 dddd 0110", "tset rd", 0, "--S---", 11, 8, "0000 1100 ddN0 0110", "tsetb @rd", 0, "--S---", 14, 8, "0100 1100 0000 0110 address_dst", "tsetb address_dst", 0, "--S---", 15, 8, "0100 1100 ddN0 0110 address_dst", "tsetb address_dst(rd)", 0, "--S---", 7, 8, "1000 1100 dddd 0110", "tsetb rbd", 0, "-ZS---", 7, 16, "0000 1001 ssN0 dddd", "xor rd,@rs", 0, "-ZS---", 9, 16, "0100 1001 0000 dddd address_src", "xor rd,address_src", 0, "-ZS---", 10, 16, "0100 1001 ssN0 dddd address_src", "xor rd,address_src(rs)", 0, "-ZS---", 7, 16, "0000 1001 0000 dddd imm16", "xor rd,imm16", 0, "-ZS---", 4, 16, "1000 1001 ssss dddd", "xor rd,rs", 0, "-ZSP--", 7, 8, "0000 1000 ssN0 dddd", "xorb rbd,@rs", 0, "-ZSP--", 9, 8, "0100 1000 0000 dddd address_src", "xorb rbd,address_src", 0, "-ZSP--", 10, 8, "0100 1000 ssN0 dddd address_src", "xorb rbd,address_src(rs)", 0, "-ZSP--", 7, 8, "0000 1000 0000 dddd imm8 imm8", "xorb rbd,imm8", 0, "-ZSP--", 4, 8, "1000 1000 ssss dddd", "xorb rbd,rbs", 0, "*", 4, 8, "1000 1000 ssss dddd", "xorb rbd,rbs", 0, "*", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; int count () { struct op *p = opt; int r = 0; while (p->name) { r++; p++; } return r; } static int func (a, b) struct op *a; struct op *b; { return strcmp ((a)->name, (b)->name); } /* opcode literal 0000 nnnn insert nnn into stream operand 0001 nnnn insert operand reg nnn into stream */ struct tok_struct { char *match; char *token; int length; }; struct tok_struct args[] = { {"address_src(rs)", "CLASS_X+(ARG_RS)",}, {"address_dst(rd)", "CLASS_X+(ARG_RD)",}, {"rs(imm16)", "CLASS_BA+(ARG_RS)",}, {"rd(imm16)", "CLASS_BA+(ARG_RD)",}, {"prd", "CLASS_PR+(ARG_RD)",}, {"address_src", "CLASS_DA+(ARG_SRC)",}, {"address_dst", "CLASS_DA+(ARG_DST)",}, {"rd(rx)", "CLASS_BX+(ARG_RD)",}, {"rs(rx)", "CLASS_BX+(ARG_RS)",}, {"disp16", "CLASS_DISP",}, {"disp12", "CLASS_DISP",}, {"disp7", "CLASS_DISP",}, {"disp8", "CLASS_DISP",}, {"flags", "CLASS_FLAGS",}, {"imm16", "CLASS_IMM+(ARG_IMM16)",}, {"imm1or2", "CLASS_IMM+(ARG_IMM1OR2)",}, {"imm32", "CLASS_IMM+(ARG_IMM32)",}, {"imm4m1", "CLASS_IMM +(ARG_IMM4M1)",}, {"imm4", "CLASS_IMM +(ARG_IMM4)",}, {"n", "CLASS_IMM + (ARG_IMMN)",}, {"ctrl", "CLASS_CTRL",}, {"rba", "CLASS_REG_BYTE+(ARG_RA)",}, {"rbb", "CLASS_REG_BYTE+(ARG_RB)",}, {"rbd", "CLASS_REG_BYTE+(ARG_RD)",}, {"rbs", "CLASS_REG_BYTE+(ARG_RS)",}, {"rbr", "CLASS_REG_BYTE+(ARG_RR)",}, {"rrd", "CLASS_REG_LONG+(ARG_RD)",}, {"rrs", "CLASS_REG_LONG+(ARG_RS)",}, {"rqd", "CLASS_REG_QUAD+(ARG_RD)",}, {"rd", "CLASS_REG_WORD+(ARG_RD)",}, {"rs", "CLASS_REG_WORD+(ARG_RS)",}, {"@rd", "CLASS_IR+(ARG_RD)",}, {"@ra", "CLASS_IR+(ARG_RA)",}, {"@rb", "CLASS_IR+(ARG_RB)",}, {"@rs", "CLASS_IR+(ARG_RS)",}, {"imm8", "CLASS_IMM+(ARG_IMM8)",}, {"i2", "CLASS_IMM+(ARG_IMM2)",}, {"cc", "CLASS_CC",}, {"rr", "CLASS_REG_WORD+(ARG_RR)",}, {"ra", "CLASS_REG_WORD+(ARG_RA)",}, {"rs", "CLASS_REG_WORD+(ARG_RS)",}, {"1", "CLASS_IMM+(ARG_IMM_1)",}, {"2", "CLASS_IMM+(ARG_IMM_2)",}, 0, 0 }; struct tok_struct toks[] = { "0000", "CLASS_BIT+0", 1, "0001", "CLASS_BIT+1", 1, "0010", "CLASS_BIT+2", 1, "0011", "CLASS_BIT+3", 1, "0100", "CLASS_BIT+4", 1, "0101", "CLASS_BIT+5", 1, "0110", "CLASS_BIT+6", 1, "0111", "CLASS_BIT+7", 1, "1000", "CLASS_BIT+8", 1, "1001", "CLASS_BIT+9", 1, "1010", "CLASS_BIT+0xa", 1, "1011", "CLASS_BIT+0xb", 1, "1100", "CLASS_BIT+0xc", 1, "1101", "CLASS_BIT+0xd", 1, "1110", "CLASS_BIT+0xe", 1, "1111", "CLASS_BIT+0xf", 1, "00I0", "CLASS_BIT_1OR2+0", 1, "00I0", "CLASS_BIT_1OR2+1", 1, "00I0", "CLASS_BIT_1OR2+2", 1, "00I0", "CLASS_BIT_1OR2+3", 1, "01I0", "CLASS_BIT_1OR2+4", 1, "01I0", "CLASS_BIT_1OR2+5", 1, "01I0", "CLASS_BIT_1OR2+6", 1, "01I0", "CLASS_BIT_1OR2+7", 1, "10I0", "CLASS_BIT_1OR2+8", 1, "10I0", "CLASS_BIT_1OR2+9", 1, "10I0", "CLASS_BIT_1OR2+0xa", 1, "10I0", "CLASS_BIT_1OR2+0xb", 1, "11I0", "CLASS_BIT_1OR2+0xc", 1, "11I0", "CLASS_BIT_1OR2+0xd", 1, "11I0", "CLASS_BIT_1OR2+0xe", 1, "11I0", "CLASS_BIT_1OR2+0xf", 1, "ssss", "CLASS_REG+(ARG_RS)", 1, "dddd", "CLASS_REG+(ARG_RD)", 1, "aaaa", "CLASS_REG+(ARG_RA)", 1, "bbbb", "CLASS_REG+(ARG_RB)", 1, "rrrr", "CLASS_REG+(ARG_RR)", 1, "ssN0", "CLASS_REGN0+(ARG_RS)", 1, "ddN0", "CLASS_REGN0+(ARG_RD)", 1, "aaN0", "CLASS_REGN0+(ARG_RA)", 1, "bbN0", "CLASS_REGN0+(ARG_RB)", 1, "rrN0", "CLASS_REGN0+(ARG_RR)", 1, "cccc", "CLASS_CC", 1, "nnnn", "CLASS_IMM+(ARG_IMMN)", 1, "xxxx", "CLASS_REG+(ARG_RX)", 1, "xxN0", "CLASS_REGN0+(ARG_RX)", 1, "nminus1", "CLASS_IMM+(ARG_IMMNMINUS1)", 1, "disp16", "CLASS_DISP+(ARG_DISP16)", 4, "disp12", "CLASS_DISP+(ARG_DISP12)", 3, "flags", "CLASS_FLAGS", 1, "address_dst", "CLASS_ADDRESS+(ARG_DST)", 4, "address_src", "CLASS_ADDRESS+(ARG_SRC)", 4, "imm4m1", "CLASS_IMM+(ARG_IMM4M1)", 1, "imm4", "CLASS_IMM+(ARG_IMM4)", 1, "imm8", "CLASS_IMM+(ARG_IMM8)", 2, "imm16", "CLASS_IMM+(ARG_IMM16)", 4, "imm32", "CLASS_IMM+(ARG_IMM32)", 8, "nim8", "CLASS_IMM+(ARG_NIM8)", 2, "0ccc", "CLASS_0CCC", 1, "1ccc", "CLASS_1CCC", 1, "disp8", "CLASS_DISP8", 2, "0disp7", "CLASS_0DISP7", 2, "1disp7", "CLASS_1DISP7", 2, "01ii", "CLASS_01II", 1, "00ii", "CLASS_00II", 1, 0, 0 }; char * translate (table, x, length) struct tok_struct *table; char *x; int *length; { int found; found = 0; while (table->match) { int l = strlen (table->match); if (strncmp (table->match, x, l) == 0) { /* Got a hit */ printf ("%s", table->token); *length += table->length; return x + l; } table++; } fprintf (stderr, "Can't find %s\n", x); printf ("**** Can't find %s\n", x); while (*x) x++; return x; } void chewbits (bits, length) char *bits; int *length; { int n = 0; *length = 0; printf ("{"); while (*bits) { while (*bits == ' ') { bits++; } bits = translate (toks, bits, length); n++; printf (","); } while (n < BYTE_INFO_LEN - 1) { printf ("0,"); n++; } printf ("}"); } static int chewname (name) char *name; { char *n; int nargs = 0; n = name; printf ("\""); while (*n && !iswhite (*n)) { printf ("%c", *n); n++; } printf ("\","); /* Scan the operands and make entires for them -remember indirect things */ n = name; printf ("OPC_"); while (*n && !iswhite (*n)) { printf ("%c", *n); n++; } printf (",0,{"); while (*n) { int d; while (*n == ',' || iswhite (*n)) n++; nargs++; n = translate (args, n, &d); printf (","); } if (nargs == 0) { printf ("0"); } printf ("},"); return nargs; } static void sub (x, c) char *x; char c; { while (*x) { if (x[0] == c && x[1] == c && x[2] == c && x[3] == c) { x[2] = 'N'; x[3] = '0'; } x++; } } #if 0 #define D(x) ((x) == '1' || (x) =='0') #define M(y) (strncmp(y,x,4)==0) printmangled (x) char *x; { return; while (*x) { if (D (x[0]) && D (x[1]) && D (x[2]) && D (x[3])) { printf ("XXXX"); } else if (M ("ssss")) { printf ("ssss"); } else if (M ("dddd")) { printf ("dddd"); } else printf ("____"); x += 4; if (x[0] == ' ') { printf ("_"); x++; } } } #endif /*#define WORK_TYPE*/ void print_type (n) struct op *n; { #ifdef WORK_TYPE while (*s && !iswhite (*s)) { l = *s; s++; } switch (l) { case 'l': printf ("32,"); break; case 'b': printf ("8,"); break; default: printf ("16,"); break; } #else printf ("%2d,", n->type); #endif } void internal () { int c = count (); struct op *new = malloc (sizeof (struct op) * c); struct op *p = opt; memcpy (new, p, c * sizeof (struct op)); /* sort all names in table alphabetically */ qsort (new, c, sizeof (struct op), func); p = new; while (p->flags[0] != '*') { /* If there are any @rs, sub the ssss into a ssn0, (rs), (ssn0) */ int loop = 1; printf ("\"%s\",%2d, ", p->flags, p->cycles); while (loop) { char *s = p->name; loop = 0; while (*s) { if (s[0] == '@') { char c; /* skip the r and sub the string */ s++; c = s[1]; sub (p->bits, c); } if (s[0] == '(' && s[3] == ')') { sub (p->bits, s[2]); } if (s[0] == '(') { sub (p->bits, s[-1]); } s++; } } print_type (p); printf ("\"%s\",\"%s\",0,\n", p->bits, p->name); p++; } } static void gas () { int c = count (); struct op *p = opt; int idx = 0; char *oldname = ""; struct op *new = malloc (sizeof (struct op) * c); memcpy (new, p, c * sizeof (struct op)); /* sort all names in table alphabetically */ qsort (new, c, sizeof (struct op), func); printf (" /* THIS FILE IS AUTOMAGICALLY GENERATED, DON'T EDIT IT */\n"); printf ("#define ARG_MASK 0x0f\n"); printf ("#define ARG_SRC 0x01\n"); printf ("#define ARG_DST 0x02\n"); printf ("#define ARG_RS 0x01\n"); printf ("#define ARG_RD 0x02\n"); printf ("#define ARG_RA 0x03\n"); printf ("#define ARG_RB 0x04\n"); printf ("#define ARG_RR 0x05\n"); printf ("#define ARG_RX 0x06\n"); printf ("#define ARG_IMM4 0x01\n"); printf ("#define ARG_IMM8 0x02\n"); printf ("#define ARG_IMM16 0x03\n"); printf ("#define ARG_IMM32 0x04\n"); printf ("#define ARG_IMMN 0x05\n"); printf ("#define ARG_IMMNMINUS1 0x05\n"); printf ("#define ARG_IMM_1 0x06\n"); printf ("#define ARG_IMM_2 0x07\n"); printf ("#define ARG_DISP16 0x08\n"); printf ("#define ARG_NIM8 0x09\n"); printf ("#define ARG_IMM2 0x0a\n"); printf ("#define ARG_IMM1OR2 0x0b\n"); printf ("#define ARG_DISP12 0x0b\n"); printf ("#define ARG_DISP8 0x0c\n"); printf ("#define ARG_IMM4M1 0x0d\n"); printf ("#define CLASS_MASK 0x1fff0\n"); printf ("#define CLASS_X 0x10\n"); printf ("#define CLASS_BA 0x20\n"); printf ("#define CLASS_DA 0x30\n"); printf ("#define CLASS_BX 0x40\n"); printf ("#define CLASS_DISP 0x50\n"); printf ("#define CLASS_IMM 0x60\n"); printf ("#define CLASS_CC 0x70\n"); printf ("#define CLASS_CTRL 0x80\n"); printf ("#define CLASS_ADDRESS 0xd0\n"); printf ("#define CLASS_0CCC 0xe0\n"); printf ("#define CLASS_1CCC 0xf0\n"); printf ("#define CLASS_0DISP7 0x100\n"); printf ("#define CLASS_1DISP7 0x200\n"); printf ("#define CLASS_01II 0x300\n"); printf ("#define CLASS_00II 0x400\n"); printf ("#define CLASS_BIT 0x500\n"); printf ("#define CLASS_FLAGS 0x600\n"); printf ("#define CLASS_IR 0x700\n"); printf ("#define CLASS_DISP8 0x800\n"); printf ("#define CLASS_BIT_1OR2 0x900\n"); printf ("#define CLASS_REG 0x7000\n"); printf ("#define CLASS_REG_BYTE 0x2000\n"); printf ("#define CLASS_REG_WORD 0x3000\n"); printf ("#define CLASS_REG_QUAD 0x4000\n"); printf ("#define CLASS_REG_LONG 0x5000\n"); printf ("#define CLASS_REGN0 0x8000\n"); printf ("#define CLASS_PR 0x10000\n"); printf ("#define OPC_adc 0\n"); printf ("#define OPC_adcb 1\n"); printf ("#define OPC_add 2\n"); printf ("#define OPC_addb 3\n"); printf ("#define OPC_addl 4\n"); printf ("#define OPC_and 5\n"); printf ("#define OPC_andb 6\n"); printf ("#define OPC_bit 7\n"); printf ("#define OPC_bitb 8\n"); printf ("#define OPC_call 9\n"); printf ("#define OPC_calr 10\n"); printf ("#define OPC_clr 11\n"); printf ("#define OPC_clrb 12\n"); printf ("#define OPC_com 13\n"); printf ("#define OPC_comb 14\n"); printf ("#define OPC_comflg 15\n"); printf ("#define OPC_cp 16\n"); printf ("#define OPC_cpb 17\n"); printf ("#define OPC_cpd 18\n"); printf ("#define OPC_cpdb 19\n"); printf ("#define OPC_cpdr 20\n"); printf ("#define OPC_cpdrb 21\n"); printf ("#define OPC_cpi 22\n"); printf ("#define OPC_cpib 23\n"); printf ("#define OPC_cpir 24\n"); printf ("#define OPC_cpirb 25\n"); printf ("#define OPC_cpl 26\n"); printf ("#define OPC_cpsd 27\n"); printf ("#define OPC_cpsdb 28\n"); printf ("#define OPC_cpsdr 29\n"); printf ("#define OPC_cpsdrb 30\n"); printf ("#define OPC_cpsi 31\n"); printf ("#define OPC_cpsib 32\n"); printf ("#define OPC_cpsir 33\n"); printf ("#define OPC_cpsirb 34\n"); printf ("#define OPC_dab 35\n"); printf ("#define OPC_dbjnz 36\n"); printf ("#define OPC_dec 37\n"); printf ("#define OPC_decb 38\n"); printf ("#define OPC_di 39\n"); printf ("#define OPC_div 40\n"); printf ("#define OPC_divl 41\n"); printf ("#define OPC_djnz 42\n"); printf ("#define OPC_ei 43\n"); printf ("#define OPC_ex 44\n"); printf ("#define OPC_exb 45\n"); printf ("#define OPC_exts 46\n"); printf ("#define OPC_extsb 47\n"); printf ("#define OPC_extsl 48\n"); printf ("#define OPC_halt 49\n"); printf ("#define OPC_in 50\n"); printf ("#define OPC_inb 51\n"); printf ("#define OPC_inc 52\n"); printf ("#define OPC_incb 53\n"); printf ("#define OPC_ind 54\n"); printf ("#define OPC_indb 55\n"); printf ("#define OPC_inib 56\n"); printf ("#define OPC_inibr 57\n"); printf ("#define OPC_iret 58\n"); printf ("#define OPC_jp 59\n"); printf ("#define OPC_jr 60\n"); printf ("#define OPC_ld 61\n"); printf ("#define OPC_lda 62\n"); printf ("#define OPC_ldar 63\n"); printf ("#define OPC_ldb 64\n"); printf ("#define OPC_ldctl 65\n"); printf ("#define OPC_ldir 66\n"); printf ("#define OPC_ldirb 67\n"); printf ("#define OPC_ldk 68\n"); printf ("#define OPC_ldl 69\n"); printf ("#define OPC_ldm 70\n"); printf ("#define OPC_ldps 71\n"); printf ("#define OPC_ldr 72\n"); printf ("#define OPC_ldrb 73\n"); printf ("#define OPC_ldrl 74\n"); printf ("#define OPC_mbit 75\n"); printf ("#define OPC_mreq 76\n"); printf ("#define OPC_mres 77\n"); printf ("#define OPC_mset 78\n"); printf ("#define OPC_mult 79\n"); printf ("#define OPC_multl 80\n"); printf ("#define OPC_neg 81\n"); printf ("#define OPC_negb 82\n"); printf ("#define OPC_nop 83\n"); printf ("#define OPC_or 84\n"); printf ("#define OPC_orb 85\n"); printf ("#define OPC_out 86\n"); printf ("#define OPC_outb 87\n"); printf ("#define OPC_outd 88\n"); printf ("#define OPC_outdb 89\n"); printf ("#define OPC_outib 90\n"); printf ("#define OPC_outibr 91\n"); printf ("#define OPC_pop 92\n"); printf ("#define OPC_popl 93\n"); printf ("#define OPC_push 94\n"); printf ("#define OPC_pushl 95\n"); printf ("#define OPC_res 96\n"); printf ("#define OPC_resb 97\n"); printf ("#define OPC_resflg 98\n"); printf ("#define OPC_ret 99\n"); printf ("#define OPC_rl 100\n"); printf ("#define OPC_rlb 101\n"); printf ("#define OPC_rlc 102\n"); printf ("#define OPC_rlcb 103\n"); printf ("#define OPC_rldb 104\n"); printf ("#define OPC_rr 105\n"); printf ("#define OPC_rrb 106\n"); printf ("#define OPC_rrc 107\n"); printf ("#define OPC_rrcb 108\n"); printf ("#define OPC_rrdb 109\n"); printf ("#define OPC_sbc 110\n"); printf ("#define OPC_sbcb 111\n"); printf ("#define OPC_sda 112\n"); printf ("#define OPC_sdab 113\n"); printf ("#define OPC_sdal 114\n"); printf ("#define OPC_sdl 115\n"); printf ("#define OPC_sdlb 116\n"); printf ("#define OPC_sdll 117\n"); printf ("#define OPC_set 118\n"); printf ("#define OPC_setb 119\n"); printf ("#define OPC_setflg 120\n"); printf ("#define OPC_sinb 121\n"); printf ("#define OPC_sind 122\n"); printf ("#define OPC_sindb 123\n"); printf ("#define OPC_sinib 124\n"); printf ("#define OPC_sinibr 125\n"); printf ("#define OPC_sla 126\n"); printf ("#define OPC_slab 127\n"); printf ("#define OPC_slal 128\n"); printf ("#define OPC_sll 129\n"); printf ("#define OPC_sllb 130\n"); printf ("#define OPC_slll 131\n"); printf ("#define OPC_sout 132\n"); printf ("#define OPC_soutb 133\n"); printf ("#define OPC_soutd 134\n"); printf ("#define OPC_soutdb 135\n"); printf ("#define OPC_soutib 136\n"); printf ("#define OPC_soutibr 137\n"); printf ("#define OPC_sra 138\n"); printf ("#define OPC_srab 139\n"); printf ("#define OPC_sral 140\n"); printf ("#define OPC_srl 141\n"); printf ("#define OPC_srlb 142\n"); printf ("#define OPC_srll 143\n"); printf ("#define OPC_sub 144\n"); printf ("#define OPC_subb 145\n"); printf ("#define OPC_subl 146\n"); printf ("#define OPC_tcc 147\n"); printf ("#define OPC_tccb 148\n"); printf ("#define OPC_test 149\n"); printf ("#define OPC_testb 150\n"); printf ("#define OPC_testl 151\n"); printf ("#define OPC_trdb 152\n"); printf ("#define OPC_trdrb 153\n"); printf ("#define OPC_trib 154\n"); printf ("#define OPC_trirb 155\n"); printf ("#define OPC_trtdrb 156\n"); printf ("#define OPC_trtib 157\n"); printf ("#define OPC_trtirb 158\n"); printf ("#define OPC_trtrb 159\n"); printf ("#define OPC_tset 160\n"); printf ("#define OPC_tsetb 161\n"); printf ("#define OPC_xor 162\n"); printf ("#define OPC_xorb 163\n"); printf ("#define OPC_ldd 164 \n"); printf ("#define OPC_lddb 165 \n"); printf ("#define OPC_lddr 166 \n"); printf ("#define OPC_lddrb 167 \n"); printf ("#define OPC_ldi 168 \n"); printf ("#define OPC_ldib 169 \n"); printf ("#define OPC_sc 170\n"); printf ("#define OPC_bpt 171\n"); printf ("#define OPC_ext0e 172\n"); printf ("#define OPC_ext0f 172\n"); printf ("#define OPC_ext8e 172\n"); printf ("#define OPC_ext8f 172\n"); printf ("#define OPC_rsvd36 172\n"); printf ("#define OPC_rsvd38 172\n"); printf ("#define OPC_rsvd78 172\n"); printf ("#define OPC_rsvd7e 172\n"); printf ("#define OPC_rsvd9d 172\n"); printf ("#define OPC_rsvd9f 172\n"); printf ("#define OPC_rsvdb9 172\n"); printf ("#define OPC_rsvdbf 172\n"); #if 0 for (i = 0; toks[i].token; i++) printf ("#define %s\t0x%x\n", toks[i].token, i * 16); #endif printf ("typedef struct {\n"); printf ("#ifdef NICENAMES\n"); printf ("char *nicename;\n"); printf ("int type;\n"); printf ("int cycles;\n"); printf ("int flags;\n"); printf ("#endif\n"); printf ("char *name;\n"); printf ("unsigned char opcode;\n"); printf ("void (*func)();\n"); printf ("unsigned int arg_info[4];\n"); printf ("unsigned int byte_info[%d];\n", BYTE_INFO_LEN); printf ("int noperands;\n"); printf ("int length;\n"); printf ("int idx;\n"); printf ("} opcode_entry_type;\n"); printf ("#ifdef DEFINE_TABLE\n"); printf ("opcode_entry_type z8k_table[] = {\n"); while (new->flags && new->flags[0]) { int nargs; int length; printf ("\n\n/* %s *** %s */\n", new->bits, new->name); printf ("{\n"); printf ("#ifdef NICENAMES\n"); printf ("\"%s\",%d,%d,\n", new->name, new->type, new->cycles); { int answer = 0; char *p = new->flags; while (*p) { answer <<= 1; if (*p != '-') answer |= 1; p++; } printf ("0x%02x,\n", answer); } printf ("#endif\n"); nargs = chewname (new->name); printf ("\n\t"); chewbits (new->bits, &length); length /= 2; if (length & 1) abort(); printf (",%d,%d,%d", nargs, length, idx); idx++; oldname = new->name; printf ("},\n"); new++; } printf ("0,0};\n"); printf ("#endif\n"); } int main (ac, av) int ac; char **av; { struct op *p = opt; if (ac == 2 && strcmp (av[1], "-t") == 0) { internal (); } else if (ac == 2 && strcmp (av[1], "-h") == 0) { while (p->name) { printf ("%-25s\t%s\n", p->name, p->bits); p++; } } else if (ac == 2 && strcmp (av[1], "-a") == 0) { gas (); } else if (ac == 2 && strcmp (av[1], "-d") == 0) { /*dis();*/ } else { printf ("Usage: %s -t\n", av[0]); printf ("-t : generate new z8.c internal table\n"); printf ("-a : generate new table for gas\n"); printf ("-d : generate new table for disassemble\n"); printf ("-h : generate new table for humans\n"); } return 0; } gdb-4.13/readline/ 777 34562 1752 0 5623251727 12251 5ustar fnfcygnusgdb-4.13/readline/config/ 777 34562 1752 0 5623251176 13514 5ustar fnfcygnusgdb-4.13/readline/config/mh-apollo68v 666 34562 1752 160 5220435620 15717 0ustar fnfcygnusRANLIB=true CC= cc -A ansi -A runtype,any -A systype,any -U__STDC__ -DNO_SYS_FILE USG = -DUSG INSTALL_PROG = cp gdb-4.13/readline/config/mh-go32 666 34562 1752 125 5562525476 14662 0ustar fnfcygnusCC=i386-go32-gcc -O2 -fno-omit-frame-pointer AR=i386-go32-ar RANLIB=i386-go32-ranlib gdb-4.13/readline/config/mh-isc 666 34562 1752 157 5377252726 14672 0ustar fnfcygnus# Interactive System V release 3.2 RANLIB = true INSTALL = cp USG = -DUSG -D_POSIX_SOURCE=1 -D_POSIX_VERSION=1 gdb-4.13/readline/config/mh-ncr3000 666 34562 1752 1460 5217167606 15212 0ustar fnfcygnus# The NCR 3000 ships with a MetaWare compiler installed as /bin/cc. # This compiler not only emits obnoxious copyright messages every time # you run it, but it chokes and dies on a whole bunch of GNU source # files. Default to using the AT&T compiler installed in /usr/ccs/ATT/cc. # Unfortunately though, the AT&T compiler sometimes generates code that # the assembler barfs on if -g is used, so disable it by default as well. CC = /usr/ccs/ATT/cc CFLAGS = # Define USG as -DUSG if you are using a System V operating system. # Define USGr4 also if you are on an SVR4 system. USG = -DUSG -DUSGr4 RANLIB = true # The /usr/ucb/install program is incompatible (complains about unknown # group staff). Use good old cp... INSTALL = cp # The l flag generates a warning from the SVR4 archiver, remove it. AR_FLAGS = cq gdb-4.13/readline/config/mh-posix 666 34562 1752 155 5222012531 15225 0ustar fnfcygnus# Define USG as -DUSG if you are using a System V operating system. USG = -D_POSIX_VERSION INSTALL_PROG = cp gdb-4.13/readline/config/mh-sco 666 34562 1752 202 5220435621 14647 0ustar fnfcygnus# Define USG as -DUSG if you are using a System V operating system. USG = -DUSG -D_POSIX_SOURCE=1 RANLIB = true INSTALL_PROG = cp gdb-4.13/readline/config/mh-sco4 666 34562 1752 160 5313441332 14735 0ustar fnfcygnus# Define USG as -DUSG if you are using a System V operating system. USG = -DUSG RANLIB = true INSTALL_PROG = cp gdb-4.13/readline/config/mh-sysv 666 34562 1752 327 5364570334 15111 0ustar fnfcygnus# Define USG as -DUSG if you are using a System V operating system. # No version of System V release 3 has TIOCGWINSZ, but release 3.2 # defines it anyway. USG = -DUSG -DTIOCGWINSZ_BROKEN RANLIB = true INSTALL = cp gdb-4.13/readline/config/mh-sysv4 666 34562 1752 416 5220435624 15165 0ustar fnfcygnus# Define USG as -DUSG if you are using a System V operating system. # Define USGr4 also if you are on an SVR4 system. USG = -DUSG -DUSGr4 RANLIB = true INSTALL_PROG = /usr/ucb/install -c # The l flag generates a warning from the SVR4 archiver, remove it. AR_FLAGS = cq gdb-4.13/readline/COPYING 666 34562 1752 43076 5113032311 13372 0ustar fnfcygnus GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. gdb-4.13/readline/ChangeLog 666 34562 1752 56113 5612042017 14115 0ustar fnfcygnusSat Jul 16 13:26:31 1994 Stan Shebs (shebs@andros.cygnus.com) * configure.in (m88*-harris-cxux7*): Recognize. * sysdep-cxux7.h: New file. Fri Jul 8 13:18:33 1994 Steve Chamberlain (sac@jonny.cygnus.com) * rttty.c (control_meta_key_on): Remove superfluous testing of __GO32__. Thu Jun 30 15:21:54 1994 Steve Chamberlain (sac@jonny.cygnus.com) * rltty.c (control_meta_key_on): Don't compile if __GO32__ is defined. (rltty_set_default_bindings): Likewise. * display.c (insert_some_chars, delete_chars): row_start should be a short. * parens.c (rl_insert_close): No FD_SET if using __GO32__. * readline.c (rl_gather_tyi): Strip off spurious high bits. Sun Jun 12 03:51:52 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * history.c: Swap inclusion of rldefs.h and chardefs.h to avoid CTRL macro redefinition. Mon May 9 18:29:42 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com) * readline.c (readline_default_bindings): Don't compile if __GO32__ is defined. (_rl_set_screen_size): Likewise. * rltty.c (rltty_set_default_bindings): Likewise. (control_meta_key): Likewise. * display.c: If __GO32__ is defined, include . * parens.c: If __GO32__ is defined, undefine FD_SET. * signals.c: Include SIGWINCH handling in the set of things which is not done if HANDLE_SIGNALS is not set. Fri May 6 13:38:39 1994 Steve Chamberlain (sac@cygnus.com) * config/mh-go32: New fragment. * configure.in (host==go32): Use go32 fragment. Wed May 4 14:36:53 1994 Stu Grossman (grossman@cygnus.com) * chardefs.h, rldefs.h: Move decls of string funcs from chardefs.h to rldefs.h so that they don't pollute apps that include readline.h. * history.c: include rldefs.h to get decls of string funcs. Wed May 4 12:15:11 1994 Stan Shebs (shebs@andros.cygnus.com) * configure.in (rs6000-bull-bosx*): New configuration, RS/6000 variant. Wed Apr 20 10:43:52 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Use mh-posix for sunos4.1*. Wed Apr 13 21:28:44 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * rltty.c (set_tty_settings): Don't set readline_echoing_p. (rl_deprep_terminal) [NEW_TTY_DRIVER]: Set readline_echoing_p. Sun Mar 13 09:13:12 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Add TAGS target. Wed Mar 9 18:01:31 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * isearch.c, search.c: Include sysdep.h. Thu Mar 3 17:40:03 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * configure.in: For ISC, use mh-sysv, not mh-isc. Thu Feb 24 04:13:53 1994 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * Merge in changes from bash-1.13.5. Merge changes from glob/tilde.c into tilde.c and use it. Add system function declarations where necessary. Check for __GO32__, not _GO32_ consistently. * Makefile.in: Update dependencies. * rltty.c: Include to match include file setup in readline.c for rldefs.h. Otherwise we get inconsistent TTY_DRIVER definitions in readline.c and rltty.c. * bind.c, complete.c: Do not include , it is already included via sysdep.h, which causes problems if has no multiple inclusion protection. * readline.c (_rl_set_screen_size): Reestablish test for TIOCGWINSZ_BROKEN. * rldefs.h: Define S_ISREG if necessary. Fri Feb 18 08:56:35 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Add search.o rule for Sun make. Wed Feb 16 16:35:49 1994 Per Bothner (bothner@kalessin.cygnus.com) * rltty.c: #if out some code if __GO32__. Tue Feb 15 14:07:08 1994 Per Bothner (bothner@kalessin.cygnus.com) * readline.c (_rl_output_character_function), display.c: Return int, not void, to conform with the expected arg of tputs. * readline.c (init_terminal_io): tgetflag only takes 1 arg. * readline.c (_rl_savestring): New function. * chardefs.h: To avoid conflicts and/or warnings, define savestring as a macro wrapper for _rl_savestring. * display.c (extern term_xn): It's an int flag, not a string. * charsdefs.h, rldefs.h: Remove HAVE_STRING_H-related junk. Sat Feb 5 08:32:30 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Remove obsolete rules for history.info and readline.info. Thu Jan 27 17:04:01 1994 Jim Kingdon (kingdon@deneb.cygnus.com) * chardefs.h: Only declare strrchr if it is not #define'd. Tue Jan 25 11:30:06 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * rldefs.h: Accept __hpux as well as hpux for HP compiler in ANSI mode. Fri Jan 21 17:31:26 1994 Jim Kingdon (kingdon@lisa.cygnus.com) * chardefs.h, tilde.c: Just declare strrchr rather than trying to include a system header. Fri Jan 21 14:40:43 1994 Fred Fish (fnf@cygnus.com) * Makefile.in (distclean, realclean): Expand local-distclean inline after doing recursion. You can't recurse after removing Makefile. Make them depend on local-clean. * Makefile.in (local-distclean): Remove now superfluous target. Mon Jan 17 12:42:07 1994 Ken Raeburn (raeburn@cujo.cygnus.com) * readline.c (doing_an_undo): Delete second declaration, since it confuses the alpha-osf1 native compiler. Sun Jan 16 12:33:11 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * complete.c, bind.c: Include . * complete.c: Define X_OK if not defined by a system header. * chardefs.h: Don't declare xmalloc. * keymaps.h: Include "chardefs.h" not . * Makefile.in (clean mostlyclean distclean realclean): Recurse into subdirectories as well as doing this directory. Add clean-dvi target. Sat Jan 15 19:36:12 1994 Per Bothner (bothner@kalessin.cygnus.com) * readline.c, display.c: Patches to allow use of all 80 columns on most terminals (those with am and xn). Merge in changes from bash-1.13. The most obvious one is that the file readline.c has been split into multiple files. * bind.c, complete.c, dispay.c, isearch.c, parens.c, rldefs.h, rltty.c, search.c signals.c, tilde.c, tilde.h, xmalloc.c: New files. Sat Dec 11 16:29:17 1993 Steve Chamberlain (sac@thepub.cygnus.com) * readline.c (rl_getc): If GO32, trim high bit from getkey, otherwise fancy PC keys cause grief. Fri Nov 5 11:49:47 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Add doc to configdirs. * Makefile.in (info dvi install-info clean-info): Recurse into doc. Fri Oct 22 07:55:08 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Add * to end of all OS names. Tue Oct 5 12:33:51 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * readline.c: Add stuff for HIUX to place where we detect termio vs. sgtty (ugh, but I don't see a simple better way). Wed Sep 29 11:02:58 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * readline.c (parser_if): Free tname when done with it (change imported from from bash 1.12 readline). Tue Sep 7 17:15:37 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in (m88k-*-sysvr4*): Comment out previous change. Fri Jul 2 11:05:34 1993 Ian Lance Taylor (ian@cygnus.com) * configure.in (*-*-riscos*): New entry; use mh-sysv. Wed Jun 23 13:00:12 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * configure.in: Add comment. Mon Jun 14 14:28:55 1993 Jim Kingdon (kingdon@eric) * configure.in (m88k-*-sysvr4*): Use sysdep-norm.h. Sun Jun 13 13:04:09 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in ({real,dist}clean): Remove sysdep.h. Thu Jun 10 11:22:41 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in: Add mostlyclean, distclean, and realclean targets. Fri May 21 17:09:28 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * config/mh-isc: New file. * configure.in: Use it. Sat Apr 17 00:40:12 1993 Jim Kingdon (kingdon at calvin) * readline.c, history.c: Don't include sys/types.h; sysdep.h does. * config/mh-sysv: Define TIOCGWINSZ_BROKEN. readline.c: Check it. Wed Mar 24 02:06:15 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: add installcheck & dvi targets Fri Mar 12 18:36:53 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: recognize *-*-solaris2* instead of *-*-solaris* (a number of people want to call SunOS 4.1.2 "solaris1.0" and get it right) Tue Mar 2 21:25:36 1993 Fred Fish (fnf@cygnus.com) * sysdep-sysv4.h: New file for SVR4. * configure.in (*-*-sysv4*): Use sysdep-sysv4.h. * configure.in (*-*-ultrix2): Add triplet from Michael Rendell (michael@mercury.cs.mun.ca) Tue Dec 15 12:38:16 1992 Ian Lance Taylor (ian@cygnus.com) * configure.in (i[34]86-*-sco3.2v4*): use mh-sco4. * config/mh-sco4: New file, like mh-sco but without defining _POSIX_SOURCE. Wed Nov 11 21:20:14 1992 John Gilmore (gnu@cygnus.com) * configure.in: Reformat to one-case-per-line. Handle SunOS 3.5, as per Karl Berry, . Wed Nov 4 15:32:31 1992 Stu Grossman (grossman at cygnus.com) * sysdep-norm.h: Remove some crud, install dire warning. Thu Oct 22 01:08:13 1992 Stu Grossman (grossman at cygnus.com) * configure.in: Make SCO work again... Mon Oct 12 15:04:07 1992 Ian Lance Taylor (ian@cygnus.com) * readline.c (init_terminal_io): if tgetent returns 0, the terminal type is unknown. Thu Oct 1 23:44:14 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: use cpu-vendor-os triple instead of nested cases Wed Sep 30 12:58:57 1992 Stu Grossman (grossman at cygnus.com) * readline.c (rl_complete_internal): Cast alloca to (char *) to avoid warning. Fri Sep 25 12:45:05 1992 Stu Grossman (grossman at cygnus.com) * readline.c (clear_to_eol, rl_generic_bind): Make static. (rl_digit_loop): Add arg to call to rl_message(). * vi_mode.c (rl_vi_first_print): Add arg to call to rl_back_to_indent(). Wed Aug 19 14:59:07 1992 Ian Lance Taylor (ian@cygnus.com) * Makefile.in: always create installation directories, use full file name for install target. Wed Aug 12 15:50:57 1992 John Gilmore (gnu@cygnus.com) * readline.c (last_readline_init_file): Fix typo made by Steve Chamberlain/DJ Delorie. Proper control file name is ~/.inputrc, not ~/inputrc. Thu Jun 25 16:15:27 1992 Stu Grossman (grossman at cygnus.com) * configure.in: Make bsd based systems use sysdep-obsd.h. Tue Jun 23 23:22:53 1992 Per Bothner (bothner@cygnus.com) * config/mh-posix: New file, for Posix-compliant systems. * configure.in: Use mh-posix for Linux (free Unix clone). Tue Jun 23 21:59:20 1992 Fred Fish (fnf@cygnus.com) * sysdep-norm.h (alloca): Protect against previous definition as a macro with arguments. Fri Jun 19 15:48:54 1992 Stu Grossman (grossman at cygnus.com) * sysdep-obsd.h: #include to make this more Kosher. Fri Jun 19 12:53:28 1992 John Gilmore (gnu at cygnus.com) * config/mh-apollo68v, mh-sco, mh-sysv, mh-sysv4}: RANLIB=true. Mon Jun 15 13:50:34 1992 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * configure.in: use mh-sysv4 on solaris2 Mon Jun 15 12:28:24 1992 Fred Fish (fnf@cygnus.com) * config/mh-ncr3000 (INSTALL): Don't use /usr/ucb/install, it is broken on ncr 3000's. * config/mh-ncr3000 (RANLIB): Use RANLIB=true. Mon Jun 15 01:35:55 1992 John Gilmore (gnu at cygnus.com) * readline.c: Make new SIGNALS_* macros to parameterize the ugly changes in signal blocking. Use them throughout, reducing #ifdef HAVE_POSIX_SIGNALS and HAVE_BSD_SIGNALS clutter significantly. Make all such places use POSIX if available, to avoid losing with poor `sigsetmask' emulation from libiberty. Sun Jun 14 15:19:51 1992 Stu Grossman (grossman at cygnus.com) * readline.c (insert_some_chars): Return void. Thu Jun 11 01:27:45 1992 John Gilmore (gnu at cygnus.com) * readline.c: #undef PC, which Solaris2 defines in sys/types.h, clobbering the termcap global variable PC. Tue Jun 9 17:30:23 1992 Fred Fish (fnf@cygnus.com) * config/{mh-ncr3000, mh-sysv4}: Change INSTALL to use /usr/ucb/install. Mon Jun 8 23:10:07 1992 Fred Fish (fnf@cygnus.com) * readline.h (rl_completer_quote_characters): Add declaration. * readline.c (rl_completer_quote_characters): Add global var. * readline.c (strpbrk): Add prototype and function. * readline.c (rl_complete_internal): Add code to handle expansion of quoted strings. Mon May 11 12:39:30 1992 John Gilmore (gnu at cygnus.com) * readline.c: Can't initialize FILE *'s with stdin and stdout, because they might not be constant. Patch from Tom Quinn, trq@dinoysos.thphys.ox.ac.uk. Tue Apr 28 21:52:34 1992 John Gilmore (gnu at cygnus.com) * readline.h: Declare rl_event_hook (which already existed). Suggested by Christoph Tietz . Wed Apr 22 18:08:01 1992 K. Richard Pixley (rich@rtl.cygnus.com) * configure.in: remove subdirs declaration. The obsolete semantic for subdirs has been usurped by per's new meaning. Tue Apr 21 11:54:23 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: rework CFLAGS so that they can be set on the command line to make. Remove MINUS_G. Default CFLAGS to -g. Fri Apr 10 23:02:27 1992 Fred Fish (fnf@cygnus.com) * configure.in: Recognize new ncr3000 config. * config/mh-ncr3000: New NCR 3000 config file. Wed Mar 25 10:46:30 1992 John Gilmore (gnu at cygnus.com) * history.c (stifle_history): Negative arg treated as zero. Tue Mar 24 23:46:20 1992 K. Richard Pixley (rich@cygnus.com) * config/mh-sysv: INSTALL_PROG -> INSTALL. Mon Feb 10 01:41:35 1992 Brian Fox (bfox at gnuwest.fsf.org) * history.c (history_do_write) Build a buffer of all of the lines to write and write them in one fell swoop (lower overhead than calling write () for each line). Suggested by Peter Ho. * vi_mode.c (rl_vi_subst) Don't forget to end the undo group. Sat Mar 7 00:15:36 1992 K. Richard Pixley (rich@rtl.cygnus.com) * Makefile.in: remove FIXME's on info and install-info targets. Fri Mar 6 22:02:04 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in: added check target. Wed Feb 26 18:04:40 1992 K. Richard Pixley (rich@cygnus.com) * Makefile.in, configure.in: removed traces of namesubdir, -subdirs, $(subdir), $(unsubdir), some rcs triggers. Forced copyrights to '92, changed some from Cygnus to FSF. Fri Feb 21 14:37:32 1992 Steve Chamberlain (sac at rtl.cygnus.com) * readline.c, examples/fileman.c: patches from DJ to support DOS Thu Feb 20 23:23:16 1992 Stu Grossman (grossman at cygnus.com) * readline.c (rl_read_init_file): Make sure that null filename is not passed to open() or else we end up opening the directory, and read a bunch of garbage into keymap[]. Mon Feb 17 17:15:09 1992 Fred Fish (fnf at cygnus.com) * readline.c (readline_default_bindings): Only make use of VLNEXT when both VLNEXT and TERMIOS_TTY_DRIVER is defined. On SVR4 includes , so VLNEXT is always defined. * sysdep-norm.h (_POSIX_VERSION): Define this for all SVR4 systems so that gets used, instead of . Fri Dec 20 12:04:31 1991 Fred Fish (fnf at cygnus.com) * configure.in: Change svr4 references to sysv4. Tue Dec 10 04:07:20 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: infodir belongs in datadir. Fri Dec 6 23:23:14 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: remove spaces following hyphens, bsd make can't cope. added clean-info. added standards.text support. Don't know how to make info anymore. * configure.in: commontargets is no longer a recognized hook, so remove it. new subdir called doc. Thu Dec 5 22:46:10 1991 K. Richard Pixley (rich at rtl.cygnus.com) * Makefile.in: idestdir and ddestdir go away. Added copyrights and shift gpl to v2. Added ChangeLog if it didn't exist. docdir and mandir now keyed off datadir by default. Fri Nov 22 09:02:32 1991 John Gilmore (gnu at cygnus.com) * sysdep-obsd.h: Rename from sysdep-newsos.h. * configure.in: Use sysdep-obsd for Mach as well as NEWs. * sysdep-norm.h, sysdep-aix.h: Add , which POSIX requires to make work. Improve Sun alloca decl. Thu Nov 21 18:48:08 1991 John Gilmore (gnu at cygnus.com) * Makefile.in: Clean up ../glob/tilde.c -> tilde.o path. Clean up makefile a bit in general. Thu Nov 21 14:40:29 1991 Stu Grossman (grossman at cygnus.com) * configure.in, config/mh-svr4: Make SVR4 work. * readline.c: Move config stuff to sysdep.h, use typedef dirent consistently, remove refs to d_namlen (& D_NAMLEN) to improve portability. Also, update copyright notice. readline.h: remove config stuff that I added erroneously in the first place. * emacs_keymap.c, funmap.c, history.c, keymaps.c, vi_keymap.c, vi_mode.c: move config stuff to sysdep.h, update copyright notices. Tue Nov 19 15:02:13 1991 Stu Grossman (grossman at cygnus.com) * history.c: #include "sysdep.h". Tue Nov 19 10:49:17 1991 Fred Fish (fnf at cygnus.com) * Makefile.in, config/hm-sysv, config/hm-sco: Change SYSV to USG to match current usage. * readline.c: Add USGr4 to list of defined things to check for to use style directory access. * config/hm-svr4: New file for System V Release 4 (USGr4). Mon Nov 18 23:59:52 1991 Stu Grossman (grossman at cygnus.com) * readline.c (filename_completion_function): use struct dirent instead of struct direct. Fri Nov 1 07:02:13 1991 Brian Fox (bfox at gnuwest.fsf.org) * readline.c (rl_translate_keyseq) Make C-? translate to RUBOUT unconditionally. Mon Oct 28 11:34:52 1991 Brian Fox (bfox at gnuwest.fsf.org) * readline.c; Use Posix directory routines and macros. * funmap.c; Add entry for call-last-kbd-macro. * readline.c (rl_prep_term); Use system EOF character on POSIX systems also. Thu Oct 3 16:19:53 1991 Brian Fox (bfox at gnuwest.fsf.org) * readline.c; Make a distinction between having a TERMIOS tty driver, and having POSIX signal handling. You might one without the other. New defines used HAVE_POSIX_SIGNALS, and TERMIOS_TTY_DRIVER. Tue Jul 30 22:37:26 1991 Brian Fox (bfox at gnuwest.fsf.org) * readline.c: rl_getc () If a call to read () returns without an error, but with zero characters, the file is empty, so return EOF. Thu Jul 11 20:58:38 1991 Brian Fox (bfox at gnuwest.fsf.org) * readline.c: (rl_get_next_history, rl_get_previous_history) Reallocate the buffer space if the line being moved to is longer the the current space allocated. Amazing that no one has found this bug until now. Sun Jul 7 02:37:05 1991 Brian Fox (bfox at gnuwest.fsf.org) * readline.c:(rl_parse_and_bind) Allow leading whitespace. Make sure TERMIO and TERMIOS systems treat CR and NL disctinctly. Tue Jun 25 04:09:27 1991 Brian Fox (bfox at gnuwest.fsf.org) * readline.c: Rework parsing conditionals to pay attention to the prior states of the conditional stack. This makes $if statements work correctly. Mon Jun 24 20:45:59 1991 Brian Fox (bfox at gnuwest.fsf.org) * readline.c: support for displaying key binding information includes the functions rl_list_funmap_names (), invoking_keyseqs_in_map (), rl_invoking_keyseqs (), rl_dump_functions (), and rl_function_dumper (). funmap.c: support for same includes rl_funmap_names (). readline.c, funmap.c: no longer define STATIC_MALLOC. However, update both version of xrealloc () to handle a null pointer. Thu Apr 25 12:03:49 1991 Brian Fox (bfox at gnuwest.fsf.org) * vi_mode.c (rl_vi_fword, fWord, etc. All functions use the macro `isident()'. Fixed movement bug which prevents continious movement through the text. Fri Jul 27 16:47:01 1990 Brian Fox (bfox at gnuwest.fsf.org) * readline.c (parser_if) Allow "$if term=foo" construct. Wed May 23 16:10:33 1990 Brian Fox (bfox at gnuwest.fsf.org) * readline.c (rl_dispatch) Correctly remember the last command executed. Fixed typo in username_completion_function (). Mon Apr 9 19:55:48 1990 Brian Fox (bfox at gnuwest.fsf.org) * readline.c: username_completion_function (); For text passed in with a leading `~', remember that this could be a filename (after it is completed). Thu Apr 5 13:44:24 1990 Brian Fox (bfox at gnuwest.fsf.org) * readline.c: rl_search_history (): Correctly handle case of an unfound search string, but a graceful exit (as with ESC). * readline.c: rl_restart_output (); The Apollo passes the address of the file descriptor to TIOCSTART, not the descriptor itself. Tue Mar 20 05:38:55 1990 Brian Fox (bfox at gnuwest.fsf.org) * readline.c: rl_complete (); second call in a row causes possible completions to be listed. * readline.c: rl_redisplay (), added prompt_this_line variable which is the first character character following \n in prompt. Sun Mar 11 04:32:03 1990 Brian Fox (bfox at gnuwest.fsf.org) * Signals are now supposedly handled inside of SYSV compilation. Wed Jan 17 19:24:09 1990 Brian Fox (bfox at sbphy.ucsb.edu) * history.c: history_expand (); fixed overwriting memory error, added needed argument to call to get_history_event (). Thu Jan 11 10:54:04 1990 Brian Fox (bfox at sbphy.ucsb.edu) * readline.c: added mark_modified_lines to control the display of an asterisk on modified history lines. Also added a user variable called mark-modified-lines to the `set' command. Thu Jan 4 10:38:05 1990 Brian Fox (bfox at sbphy.ucsb.edu) * readline.c: start_insert (). Only use IC if we don't have an im capability. Fri Sep 8 09:00:45 1989 Brian Fox (bfox at aurel) * readline.c: rl_prep_terminal (). Only turn on 8th bit as meta-bit iff the terminal is not using parity. Sun Sep 3 08:57:40 1989 Brian Fox (bfox at aurel) * readline.c: start_insert (). Uses multiple insertion call in cases where that makes sense. rl_insert (). Read type-ahead buffer for additional keys that are bound to rl_insert, and insert them all at once. Make insertion of single keys given with an argument much more efficient. Tue Aug 8 18:13:57 1989 Brian Fox (bfox at aurel) * readline.c: Changed handling of EOF. readline () returns (char *)EOF or consed string. The EOF character is read from the tty, or if the tty doesn't have one, defaults to C-d. * readline.c: Added support for event driven programs. rl_event_hook is the address of a function you want called while Readline is waiting for input. * readline.c: Cleanup time. Functions without type declarations do not use return with a value. * history.c: history_expand () has new variable which is the characters to ignore immediately following history_expansion_char. Sun Jul 16 08:14:00 1989 Brian Fox (bfox at aurel) * rl_prep_terminal () BSD version turns off C-s, C-q, C-y, C-v. * readline.c -- rl_prep_terminal () SYSV version hacks readline_echoing_p. BSD version turns on passing of the 8th bit for the duration of reading the line. Tue Jul 11 06:25:01 1989 Brian Fox (bfox at aurel) * readline.c: new variable rl_tilde_expander. If non-null, this contains the address of a function to call if the standard meaning for expanding a tilde fails. The function is called with the text sans tilde (as in "foo"), and returns a malloc()'ed string which is the expansion, or a NULL pointer if there is no expansion. * readline.h - new file chardefs.h Separates things that only readline.c needs from the standard header file publishing interesting things about readline. * readline.c: readline_default_bindings () now looks at terminal chararacters and binds those as well. Wed Jun 28 20:20:51 1989 Brian Fox (bfox at aurel) * Made readline and history into independent libraries. gdb-4.13/readline/Makefile.in 666 34562 1752 15721 5553707521 14424 0ustar fnfcygnus# # Makefile # Copyright (C) 1990, 1991, 1992 Free Software Foundation # # This file 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ # # # Makefile for readline and history libraries. # srcdir = . prefix = /usr/local exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include docdir = $(datadir)/doc SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) AR = ar AR_FLAGS = qv CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib # Define TYPES as -DVOID_SIGHANDLER if your operating system uses # a return type of "void" for signal handlers. TYPES = -DVOID_SIGHANDLER # HP-UX compilation requires the BSD library. #LOCAL_LIBS = -lBSD # Xenix compilation requires -ldir -lx #LOCAL_LIBS = -ldir -lx # Comment out "-DVI_MODE" if you don't think that anyone will ever desire # the vi line editing mode and features. READLINE_DEFINES = $(TYPES) -DVI_MODE DEBUG_FLAGS = $(MINUS_G) LDFLAGS = $(DEBUG_FLAGS) # A good alternative is gcc -traditional. #CC = gcc -traditional RM = rm CP = cp LOCAL_INCLUDES = -I$(srcdir)/../ # The name of the main library target. LIBRARY_NAME = libreadline.a # The C code source files for this library. CSOURCES = readline.c funmap.c keymaps.c vi_mode.c parens.c search.c \ rltty.c complete.c bind.c isearch.c display.c signals.c \ emacs_keymap.c vi_keymap.c history.c tilde.c xmalloc.c # The header files for this library. HSOURCES = readline.h rldefs.h chardefs.h keymaps.h history.h \ posixstat.h tilde.h OBJECTS = readline.o vi_mode.o funmap.o keymaps.o parens.o search.o \ rltty.o complete.o bind.o isearch.o display.o signals.o \ history.o tilde.o xmalloc.o SOURCES = $(CSOURCES) $(HSOURCES) DOCUMENTATION = readline.texi inc-read.texi \ history.texi inc-hist.texi SUPPORT = COPYING Makefile $(DOCUMENTATION) ChangeLog THINGS_TO_TAR = $(SOURCES) $(SUPPORT) FLAGS_TO_PASS = \ "prefix=$(prefix)" \ "exec_prefix=$(exec_prefix)" \ "against=$(against)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "INSTALL_DATA=$(INSTALL_DATA)" SUBDIRS = doc #### Host, target, and site specific Makefile fragments come in here. ### .c.o: $(CC) -c $(CFLAGS) $(H_CFLAGS) $(DEBUG_FLAGS) $(USG) -I. $(LOCAL_INCLUDES) $(CPPFLAGS) $(READLINE_DEFINES) $< STAGESTUFF = *.o all: libreadline.a check: installcheck: info dvi install-info clean-info clean-dvi: force @$(MAKE) $(FLAGS_TO_PASS) DO=$@ "DODIRS=$(SUBDIRS)" subdir_do TAGS: force etags $(srcdir)/*.h $(srcdir)/*.c subdir_do: force @for i in $(DODIRS); do \ if [ -f ./$$i/Makefile ] ; then \ if (cd ./$$i; \ $(MAKE) $(FLAGS_TO_PASS) $(DO)) ; then true ; \ else exit 1 ; fi ; \ else true ; fi ; \ done libreadline.a: $(OBJECTS) $(RM) -f libreadline.a $(AR) $(AR_FLAGS) libreadline.a $(OBJECTS) $(RANLIB) libreadline.a bind.o: bind.c sysdep.h rldefs.h readline.h keymaps.h chardefs.h history.h complete.o: complete.c sysdep.h rldefs.h readline.h keymaps.h chardefs.h display.o: display.c rldefs.h readline.h keymaps.h chardefs.h history.h funmap.o: funmap.c sysdep.h readline.h keymaps.h chardefs.h history.o: history.c sysdep.h history.h chardefs.h isearch.o: isearch.c readline.h keymaps.h chardefs.h history.h keymaps.o: keymaps.c sysdep.h readline.h keymaps.h chardefs.h emacs_keymap.c vi_keymap.c parens.o: parens.c readline.h keymaps.h chardefs.h readline.o: readline.c sysdep.h rldefs.h readline.h keymaps.h chardefs.h history.h rltty.o: rltty.c rldefs.h readline.h keymaps.h chardefs.h search.o: search.c readline.h keymaps.h chardefs.h history.h signals.o: signals.c rldefs.h readline.h keymaps.h chardefs.h history.h tilde.o: tilde.c sysdep.h tilde.h chardefs.h vi_mode.o: vi_mode.c rldefs.h readline.h keymaps.h chardefs.h history.h xmalloc.o: xmalloc.c libtest: libreadline.a libtest.c $(CC) -o libtest $(CFLAGS) $(H_CFLAGS) $(DEBUG_FLAGS) $(USG) -I. $(LOCAL_INCLUDES) $(CPPFLAGS) $(READLINE_DEFINES) -L. libtest.c -lreadline -ltermcap readline: readline.c history.o keymaps.o funmap.o readline.h chardefs.h vi_mode.o $(CC) $(CFLAGS) $(CPPFLAGS) $(READLINE_DEFINES) \ $(LOCAL_INCLUDES) -DTEST -o readline readline.c funmap.o \ keymaps.o history.o vi_mode.o -L. -ltermcap readline.tar: $(THINGS_TO_TAR) tar -cf readline.tar $(THINGS_TO_TAR) readline.tar.Z: readline.tar compress -f readline.tar install: $(INSTALL_DATA) libreadline.a $(libdir)/libreadline.a $(RANLIB) $(libdir)/libreadline.a $(INSTALL_DATA) $(srcdir)/readline.h $(includedir)/readline/readline.h $(INSTALL_DATA) $(srcdir)/keymaps.h $(includedir)/readline/keymaps.h $(INSTALL_DATA) $(srcdir)/chardefs.h $(includedir)/readline/chardefs.h includes: $(INSTALL_FILE) $(srcdir)/readline.h $(includedir)/readline/readline.h $(INSTALL_FILE) $(srcdir)/keymaps.h $(includedir)/readline/keymaps.h $(INSTALL_FILE) $(srcdir)/chardefs.h $(includedir)/readline/chardefs.h local-clean: rm -f $(STAGESTUFF) *.a *.log *.cp *.tp *.vr *.fn rm -f *.aux *.pg *.toc mostlyclean: local-clean @$(MAKE) $(FLAGS_TO_PASS) DO=$@ "DODIRS=$(SUBDIRS)" subdir_do clean: local-clean @$(MAKE) $(FLAGS_TO_PASS) DO=$@ "DODIRS=$(SUBDIRS)" subdir_do distclean: local-clean @$(MAKE) $(FLAGS_TO_PASS) DO=$@ "DODIRS=$(SUBDIRS)" subdir_do rm -f Makefile config.status sysdep.h realclean: local-clean @$(MAKE) $(FLAGS_TO_PASS) DO=$@ "DODIRS=$(SUBDIRS)" subdir_do rm -f Makefile config.status sysdep.h $(DESTDIR)/libreadline.a: libreadline.a # Copy the object files from a particular stage into a subdirectory. stage1: force -mkdir stage1 -mv $(STAGESTUFF) stage1 stage2: force -mkdir stage2 -mv $(STAGESTUFF) stage2 stage3: force -mkdir stage3 -mv $(STAGESTUFF) stage3 against=stage2 comparison: force for i in $(STAGESTUFF) ; do cmp $$i $(against)/$$i ; done de-stage1: force -(cd stage1 ; mv -f * ..) -rmdir stage1 de-stage2: force -(cd stage2 ; mv -f * ..) -rmdir stage2 de-stage3: force -(cd stage3 ; mv -f * ..) -rmdir stage3 force: # with the gnu make, this is done automatically. Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status gdb-4.13/readline/bind.c 666 34562 1752 102570 5533115465 13454 0ustar fnfcygnus/* bind.c -- key binding and startup file support for the readline library. */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sysdep.h" #include #include #ifndef NO_SYS_FILE #include #endif #include /* Not all systems declare ERRNO in errno.h... and some systems #define it! */ #if !defined (errno) extern int errno; #endif /* !errno */ /* Included by on some systems, but not SCO, so include it here. */ #include /* System-specific feature definitions and include files. */ #include "rldefs.h" /* Some standard library routines. */ #include "readline.h" #include "history.h" #if !defined (strchr) && !defined (__STDC__) extern char *strchr (), *strrchr (); #endif /* !strchr && !__STDC__ */ extern char *tilde_expand (); extern int _rl_horizontal_scroll_mode; extern int _rl_mark_modified_lines; extern int _rl_prefer_visible_bell; extern int _rl_meta_flag; extern int rl_blink_matching_paren; extern int _rl_convert_meta_chars_to_ascii; #if defined (VISIBLE_STATS) extern int rl_visible_stats; #endif /* VISIBLE_STATS */ extern int rl_complete_with_tilde_expansion; extern int rl_completion_query_items; extern int rl_explicit_arg; extern int rl_editing_mode; extern unsigned short _rl_parsing_conditionalized_out; extern Keymap _rl_keymap; extern char *possible_control_prefixes[], *possible_meta_prefixes[]; extern char **rl_funmap_names (); static int glean_key_from_name (); static int stricmp (), strnicmp (); #if defined (STATIC_MALLOC) static char *xmalloc (), *xrealloc (); #else extern char *xmalloc (), *xrealloc (); #endif /* STATIC_MALLOC */ /* **************************************************************** */ /* */ /* Binding keys */ /* */ /* **************************************************************** */ /* rl_add_defun (char *name, Function *function, int key) Add NAME to the list of named functions. Make FUNCTION be the function that gets called. If KEY is not -1, then bind it. */ rl_add_defun (name, function, key) char *name; Function *function; int key; { if (key != -1) rl_bind_key (key, function); rl_add_funmap_entry (name, function); } /* Bind KEY to FUNCTION. Returns non-zero if KEY is out of range. */ int rl_bind_key (key, function) int key; Function *function; { if (key < 0) return (key); if (META_CHAR (key) && _rl_convert_meta_chars_to_ascii) { if (_rl_keymap[ESC].type == ISKMAP) { #if defined (CRAY) Keymap escmap = (Keymap)((int)_rl_keymap[ESC].function); #else Keymap escmap = (Keymap)_rl_keymap[ESC].function; #endif key = UNMETA (key); escmap[key].type = ISFUNC; escmap[key].function = function; return (0); } return (key); } _rl_keymap[key].type = ISFUNC; _rl_keymap[key].function = function; return (0); } /* Bind KEY to FUNCTION in MAP. Returns non-zero in case of invalid KEY. */ int rl_bind_key_in_map (key, function, map) int key; Function *function; Keymap map; { int result; Keymap oldmap = _rl_keymap; _rl_keymap = map; result = rl_bind_key (key, function); _rl_keymap = oldmap; return (result); } /* Make KEY do nothing in the currently selected keymap. Returns non-zero in case of error. */ int rl_unbind_key (key) int key; { return (rl_bind_key (key, (Function *)NULL)); } /* Make KEY do nothing in MAP. Returns non-zero in case of error. */ int rl_unbind_key_in_map (key, map) int key; Keymap map; { return (rl_bind_key_in_map (key, (Function *)NULL, map)); } /* Bind the key sequence represented by the string KEYSEQ to FUNCTION. This makes new keymaps as necessary. The initial place to do bindings is in MAP. */ rl_set_key (keyseq, function, map) char *keyseq; Function *function; Keymap map; { rl_generic_bind (ISFUNC, keyseq, function, map); } /* Bind the key sequence represented by the string KEYSEQ to the string of characters MACRO. This makes new keymaps as necessary. The initial place to do bindings is in MAP. */ rl_macro_bind (keyseq, macro, map) char *keyseq, *macro; Keymap map; { char *macro_keys; int macro_keys_len; macro_keys = (char *)xmalloc ((2 * strlen (macro)) + 1); if (rl_translate_keyseq (macro, macro_keys, ¯o_keys_len)) { free (macro_keys); return -1; } rl_generic_bind (ISMACR, keyseq, macro_keys, map); return 0; } /* Bind the key sequence represented by the string KEYSEQ to the arbitrary pointer DATA. TYPE says what kind of data is pointed to by DATA, right now this can be a function (ISFUNC), a macro (ISMACR), or a keymap (ISKMAP). This makes new keymaps as necessary. The initial place to do bindings is in MAP. */ rl_generic_bind (type, keyseq, data, map) int type; char *keyseq, *data; Keymap map; { char *keys; int keys_len; register int i; /* If no keys to bind to, exit right away. */ if (!keyseq || !*keyseq) { if (type == ISMACR) free (data); return -1; } keys = xmalloc (1 + (2 * strlen (keyseq))); /* Translate the ASCII representation of KEYSEQ into an array of characters. Stuff the characters into KEYS, and the length of KEYS into KEYS_LEN. */ if (rl_translate_keyseq (keyseq, keys, &keys_len)) { free (keys); return -1; } /* Bind keys, making new keymaps as necessary. */ for (i = 0; i < keys_len; i++) { int ic = (int) ((unsigned char)keys[i]); if (_rl_convert_meta_chars_to_ascii && META_CHAR (ic)) { ic = UNMETA (ic); if (map[ESC].type == ISKMAP) map = (Keymap) map[ESC].function; } if ((i + 1) < keys_len) { if (map[ic].type != ISKMAP) { if (map[ic].type == ISMACR) free ((char *)map[ic].function); map[ic].type = ISKMAP; map[ic].function = (Function *)rl_make_bare_keymap (); } map = (Keymap)map[ic].function; } else { if (map[ic].type == ISMACR) free ((char *)map[ic].function); map[ic].function = (Function *)data; map[ic].type = type; } } free (keys); return 0; } /* Translate the ASCII representation of SEQ, stuffing the values into ARRAY, an array of characters. LEN gets the final length of ARRAY. Return non-zero if there was an error parsing SEQ. */ rl_translate_keyseq (seq, array, len) char *seq, *array; int *len; { register int i, c, l = 0; for (i = 0; c = seq[i]; i++) { if (c == '\\') { c = seq[++i]; if (!c) break; if (((c == 'C' || c == 'M') && seq[i + 1] == '-') || (c == 'e')) { /* Handle special case of backwards define. */ if (strncmp (&seq[i], "C-\\M-", 5) == 0) { array[l++] = ESC; i += 5; array[l++] = CTRL (to_upper (seq[i])); if (!seq[i]) i--; continue; } switch (c) { case 'M': i++; array[l++] = ESC; break; case 'C': i += 2; /* Special hack for C-?... */ if (seq[i] == '?') array[l++] = RUBOUT; else array[l++] = CTRL (to_upper (seq[i])); break; case 'e': array[l++] = ESC; } continue; } } array[l++] = c; } *len = l; array[l] = '\0'; return (0); } /* Return a pointer to the function that STRING represents. If STRING doesn't have a matching function, then a NULL pointer is returned. */ Function * rl_named_function (string) char *string; { register int i; rl_initialize_funmap (); for (i = 0; funmap[i]; i++) if (stricmp (funmap[i]->name, string) == 0) return (funmap[i]->function); return ((Function *)NULL); } /* Return the function (or macro) definition which would be invoked via KEYSEQ if executed in MAP. If MAP is NULL, then the current keymap is used. TYPE, if non-NULL, is a pointer to an int which will receive the type of the object pointed to. One of ISFUNC (function), ISKMAP (keymap), or ISMACR (macro). */ Function * rl_function_of_keyseq (keyseq, map, type) char *keyseq; Keymap map; int *type; { register int i; if (!map) map = _rl_keymap; for (i = 0; keyseq && keyseq[i]; i++) { int ic = keyseq[i]; if (META_CHAR (ic) && _rl_convert_meta_chars_to_ascii) { if (map[ESC].type != ISKMAP) { if (type) *type = map[ESC].type; return (map[ESC].function); } else { map = (Keymap)map[ESC].function; ic = UNMETA (ic); } } if (map[ic].type == ISKMAP) { /* If this is the last key in the key sequence, return the map. */ if (!keyseq[i + 1]) { if (type) *type = ISKMAP; return (map[ic].function); } else map = (Keymap)map[ic].function; } else { if (type) *type = map[ic].type; return (map[ic].function); } } } /* The last key bindings file read. */ static char *last_readline_init_file = (char *)NULL; /* Re-read the current keybindings file. */ rl_re_read_init_file (count, ignore) int count, ignore; { return (rl_read_init_file ((char *)NULL)); } /* The final, last-ditch effort file name for an init file. */ #ifdef __MSDOS__ /* Don't know what to do, but this is a guess */ #define DEFAULT_INPUTRC "/INPUTRC"; #else #define DEFAULT_INPUTRC "~/.inputrc" #endif /* Do key bindings from a file. If FILENAME is NULL it defaults to `~/.inputrc'. If the file existed and could be opened and read, 0 is returned, otherwise errno is returned. */ int rl_read_init_file (filename) char *filename; { register int i; char *buffer, *openname, *line, *end; struct stat finfo; int file; /* Default the filename. */ if (!filename) { if (last_readline_init_file) filename = last_readline_init_file; else filename = DEFAULT_INPUTRC; } openname = tilde_expand (filename); if (!openname || *openname == '\000') return ENOENT; if ((stat (openname, &finfo) < 0) || (file = open (openname, O_RDONLY, 0666)) < 0) { free (openname); return (errno); } else free (openname); if (last_readline_init_file) free (last_readline_init_file); last_readline_init_file = savestring (filename); /* Read the file into BUFFER. */ buffer = (char *)xmalloc ((int)finfo.st_size + 1); i = read (file, buffer, finfo.st_size); close (file); if (i != finfo.st_size) return (errno); /* Loop over the lines in the file. Lines that start with `#' are comments; all other lines are commands for readline initialization. */ line = buffer; end = buffer + finfo.st_size; while (line < end) { /* Find the end of this line. */ for (i = 0; line + i != end && line[i] != '\n'; i++); /* Mark end of line. */ line[i] = '\0'; /* If the line is not a comment, then parse it. */ if (*line && *line != '#') rl_parse_and_bind (line); /* Move to the next line. */ line += i + 1; } free (buffer); return (0); } /* **************************************************************** */ /* */ /* Parser Directives */ /* */ /* **************************************************************** */ /* Conditionals. */ /* Calling programs set this to have their argv[0]. */ char *rl_readline_name = "other"; /* Stack of previous values of parsing_conditionalized_out. */ static unsigned char *if_stack = (unsigned char *)NULL; static int if_stack_depth = 0; static int if_stack_size = 0; /* Push _rl_parsing_conditionalized_out, and set parser state based on ARGS. */ static int parser_if (args) char *args; { register int i; /* Push parser state. */ if (if_stack_depth + 1 >= if_stack_size) { if (!if_stack) if_stack = (unsigned char *)xmalloc (if_stack_size = 20); else if_stack = (unsigned char *)xrealloc (if_stack, if_stack_size += 20); } if_stack[if_stack_depth++] = _rl_parsing_conditionalized_out; /* If parsing is turned off, then nothing can turn it back on except for finding the matching endif. In that case, return right now. */ if (_rl_parsing_conditionalized_out) return 0; /* Isolate first argument. */ for (i = 0; args[i] && !whitespace (args[i]); i++); if (args[i]) args[i++] = '\0'; /* Handle "if term=foo" and "if mode=emacs" constructs. If this isn't term=foo, or mode=emacs, then check to see if the first word in ARGS is the same as the value stored in rl_readline_name. */ if (rl_terminal_name && strnicmp (args, "term=", 5) == 0) { char *tem, *tname; /* Terminals like "aaa-60" are equivalent to "aaa". */ tname = savestring (rl_terminal_name); tem = strrchr (tname, '-'); if (tem) *tem = '\0'; /* Test the `long' and `short' forms of the terminal name so that if someone has a `sun-cmd' and does not want to have bindings that will be executed if the terminal is a `sun', they can put `$if term=sun-cmd' into their .inputrc. */ if ((stricmp (args + 5, tname) == 0) || (stricmp (args + 5, rl_terminal_name) == 0)) _rl_parsing_conditionalized_out = 0; else _rl_parsing_conditionalized_out = 1; free (tname); } #if defined (VI_MODE) else if (strnicmp (args, "mode=", 5) == 0) { int mode; if (stricmp (args + 5, "emacs") == 0) mode = emacs_mode; else if (stricmp (args + 5, "vi") == 0) mode = vi_mode; else mode = no_mode; if (mode == rl_editing_mode) _rl_parsing_conditionalized_out = 0; else _rl_parsing_conditionalized_out = 1; } #endif /* VI_MODE */ /* Check to see if the first word in ARGS is the same as the value stored in rl_readline_name. */ else if (stricmp (args, rl_readline_name) == 0) _rl_parsing_conditionalized_out = 0; else _rl_parsing_conditionalized_out = 1; return 0; } /* Invert the current parser state if there is anything on the stack. */ static int parser_else (args) char *args; { register int i; if (!if_stack_depth) { /* Error message? */ return 0; } /* Check the previous (n - 1) levels of the stack to make sure that we haven't previously turned off parsing. */ for (i = 0; i < if_stack_depth - 1; i++) if (if_stack[i] == 1) return 0; /* Invert the state of parsing if at top level. */ _rl_parsing_conditionalized_out = !_rl_parsing_conditionalized_out; return 0; } /* Terminate a conditional, popping the value of _rl_parsing_conditionalized_out from the stack. */ static int parser_endif (args) char *args; { if (if_stack_depth) _rl_parsing_conditionalized_out = if_stack[--if_stack_depth]; else { /* *** What, no error message? *** */ } return 0; } /* Associate textual names with actual functions. */ static struct { char *name; Function *function; } parser_directives [] = { { "if", parser_if }, { "endif", parser_endif }, { "else", parser_else }, { (char *)0x0, (Function *)0x0 } }; /* Handle a parser directive. STATEMENT is the line of the directive without any leading `$'. */ static int handle_parser_directive (statement) char *statement; { register int i; char *directive, *args; /* Isolate the actual directive. */ /* Skip whitespace. */ for (i = 0; whitespace (statement[i]); i++); directive = &statement[i]; for (; statement[i] && !whitespace (statement[i]); i++); if (statement[i]) statement[i++] = '\0'; for (; statement[i] && whitespace (statement[i]); i++); args = &statement[i]; /* Lookup the command, and act on it. */ for (i = 0; parser_directives[i].name; i++) if (stricmp (directive, parser_directives[i].name) == 0) { (*parser_directives[i].function) (args); return (0); } /* *** Should an error message be output? */ return (1); } /* Ugly but working hack for binding prefix meta. */ #define PREFIX_META_HACK static int substring_member_of_array (); /* Read the binding command from STRING and perform it. A key binding command looks like: Keyname: function-name\0, a variable binding command looks like: set variable value. A new-style keybinding looks like "\C-x\C-x": exchange-point-and-mark. */ rl_parse_and_bind (string) char *string; { char *funname, *kname; register int c, i; int key, equivalency; while (string && whitespace (*string)) string++; if (!string || !*string || *string == '#') return 0; /* If this is a parser directive, act on it. */ if (*string == '$') { handle_parser_directive (&string[1]); return 0; } /* If we aren't supposed to be parsing right now, then we're done. */ if (_rl_parsing_conditionalized_out) return 0; i = 0; /* If this keyname is a complex key expression surrounded by quotes, advance to after the matching close quote. This code allows the backslash to quote characters in the key expression. */ if (*string == '"') { int passc = 0; for (i = 1; c = string[i]; i++) { if (passc) { passc = 0; continue; } if (c == '\\') { passc++; continue; } if (c == '"') break; } } /* Advance to the colon (:) or whitespace which separates the two objects. */ for (; (c = string[i]) && c != ':' && c != ' ' && c != '\t'; i++ ); equivalency = (c == ':' && string[i + 1] == '='); /* Mark the end of the command (or keyname). */ if (string[i]) string[i++] = '\0'; /* If doing assignment, skip the '=' sign as well. */ if (equivalency) string[i++] = '\0'; /* If this is a command to set a variable, then do that. */ if (stricmp (string, "set") == 0) { char *var = string + i; char *value; /* Make VAR point to start of variable name. */ while (*var && whitespace (*var)) var++; /* Make value point to start of value string. */ value = var; while (*value && !whitespace (*value)) value++; if (*value) *value++ = '\0'; while (*value && whitespace (*value)) value++; rl_variable_bind (var, value); return 0; } /* Skip any whitespace between keyname and funname. */ for (; string[i] && whitespace (string[i]); i++); funname = &string[i]; /* Now isolate funname. For straight function names just look for whitespace, since that will signify the end of the string. But this could be a macro definition. In that case, the string is quoted, so skip to the matching delimiter. We allow the backslash to quote the delimiter characters in the macro body. */ /* This code exists to allow whitespace in macro expansions, which would otherwise be gobbled up by the next `for' loop.*/ /* XXX - it may be desirable to allow backslash quoting only if " is the quoted string delimiter, like the shell. */ if (*funname == '\'' || *funname == '"') { int delimiter = string[i++]; int passc = 0; for (; c = string[i]; i++) { if (passc) { passc = 0; continue; } if (c == '\\') { passc = 1; continue; } if (c == delimiter) break; } if (c) i++; } /* Advance to the end of the string. */ for (; string[i] && !whitespace (string[i]); i++); /* No extra whitespace at the end of the string. */ string[i] = '\0'; /* Handle equivalency bindings here. Make the left-hand side be exactly whatever the right-hand evaluates to, including keymaps. */ if (equivalency) { return 0; } /* If this is a new-style key-binding, then do the binding with rl_set_key (). Otherwise, let the older code deal with it. */ if (*string == '"') { char *seq = xmalloc (1 + strlen (string)); register int j, k = 0; int passc = 0; for (j = 1; string[j]; j++) { /* Allow backslash to quote characters, but leave them in place. This allows a string to end with a backslash quoting another backslash, or with a backslash quoting a double quote. The backslashes are left in place for rl_translate_keyseq (). */ if (passc || (string[j] == '\\')) { seq[k++] = string[j]; passc = !passc; continue; } if (string[j] == '"') break; seq[k++] = string[j]; } seq[k] = '\0'; /* Binding macro? */ if (*funname == '\'' || *funname == '"') { j = strlen (funname); /* Remove the delimiting quotes from each end of FUNNAME. */ if (j && funname[j - 1] == *funname) funname[j - 1] = '\0'; rl_macro_bind (seq, &funname[1], _rl_keymap); } else rl_set_key (seq, rl_named_function (funname), _rl_keymap); free (seq); return 0; } /* Get the actual character we want to deal with. */ kname = strrchr (string, '-'); if (!kname) kname = string; else kname++; key = glean_key_from_name (kname); /* Add in control and meta bits. */ if (substring_member_of_array (string, possible_control_prefixes)) key = CTRL (to_upper (key)); if (substring_member_of_array (string, possible_meta_prefixes)) key = META (key); /* Temporary. Handle old-style keyname with macro-binding. */ if (*funname == '\'' || *funname == '"') { char seq[2]; int fl = strlen (funname); seq[0] = key; seq[1] = '\0'; if (fl && funname[fl - 1] == *funname) funname[fl - 1] = '\0'; rl_macro_bind (seq, &funname[1], _rl_keymap); } #if defined (PREFIX_META_HACK) /* Ugly, but working hack to keep prefix-meta around. */ else if (stricmp (funname, "prefix-meta") == 0) { char seq[2]; seq[0] = key; seq[1] = '\0'; rl_generic_bind (ISKMAP, seq, (char *)emacs_meta_keymap, _rl_keymap); } #endif /* PREFIX_META_HACK */ else rl_bind_key (key, rl_named_function (funname)); return 0; } /* Simple structure for boolean readline variables (i.e., those that can have one of two values; either "On" or 1 for truth, or "Off" or 0 for false. */ static struct { char *name; int *value; } boolean_varlist [] = { { "horizontal-scroll-mode", &_rl_horizontal_scroll_mode }, { "mark-modified-lines", &_rl_mark_modified_lines }, { "prefer-visible-bell", &_rl_prefer_visible_bell }, { "meta-flag", &_rl_meta_flag }, { "blink-matching-paren", &rl_blink_matching_paren }, { "convert-meta", &_rl_convert_meta_chars_to_ascii }, #if defined (VISIBLE_STATS) { "visible-stats", &rl_visible_stats }, #endif /* VISIBLE_STATS */ { "expand-tilde", &rl_complete_with_tilde_expansion }, { (char *)NULL, (int *)NULL } }; rl_variable_bind (name, value) char *name, *value; { register int i; /* Check for simple variables first. */ for (i = 0; boolean_varlist[i].name; i++) { if (stricmp (name, boolean_varlist[i].name) == 0) { /* A variable is TRUE if the "value" is "on", "1" or "". */ if ((!*value) || (stricmp (value, "On") == 0) || (value[0] == '1' && value[1] == '\0')) *boolean_varlist[i].value = 1; else *boolean_varlist[i].value = 0; return 0; } } /* Not a boolean variable, so check for specials. */ /* Editing mode change? */ if (stricmp (name, "editing-mode") == 0) { if (strnicmp (value, "vi", 2) == 0) { #if defined (VI_MODE) _rl_keymap = vi_insertion_keymap; rl_editing_mode = vi_mode; #else #if defined (NOTDEF) /* What state is the terminal in? I'll tell you: non-determinate! That means we cannot do any output. */ ding (); #endif /* NOTDEF */ #endif /* VI_MODE */ } else if (strnicmp (value, "emacs", 5) == 0) { _rl_keymap = emacs_standard_keymap; rl_editing_mode = emacs_mode; } } /* Comment string change? */ else if (stricmp (name, "comment-begin") == 0) { #if defined (VI_MODE) extern char *rl_vi_comment_begin; if (*value) { if (rl_vi_comment_begin) free (rl_vi_comment_begin); rl_vi_comment_begin = savestring (value); } #endif /* VI_MODE */ } else if (stricmp (name, "completion-query-items") == 0) { int nval = 100; if (*value) { nval = atoi (value); if (nval < 0) nval = 0; } rl_completion_query_items = nval; } return 0; } /* Return the character which matches NAME. For example, `Space' returns ' '. */ typedef struct { char *name; int value; } assoc_list; static assoc_list name_key_alist[] = { { "DEL", 0x7f }, { "ESC", '\033' }, { "Escape", '\033' }, { "LFD", '\n' }, { "Newline", '\n' }, { "RET", '\r' }, { "Return", '\r' }, { "Rubout", 0x7f }, { "SPC", ' ' }, { "Space", ' ' }, { "Tab", 0x09 }, { (char *)0x0, 0 } }; static int glean_key_from_name (name) char *name; { register int i; for (i = 0; name_key_alist[i].name; i++) if (stricmp (name, name_key_alist[i].name) == 0) return (name_key_alist[i].value); return (*(unsigned char *)name); /* XXX was return (*name) */ } /* Auxiliary functions to manage keymaps. */ static struct { char *name; Keymap map; } keymap_names[] = { { "emacs", emacs_standard_keymap }, { "emacs-standard", emacs_standard_keymap }, { "emacs-meta", emacs_meta_keymap }, { "emacs-ctlx", emacs_ctlx_keymap }, #if defined (VI_MODE) { "vi", vi_movement_keymap }, { "vi-move", vi_movement_keymap }, { "vi-command", vi_movement_keymap }, { "vi-insert", vi_insertion_keymap }, #endif /* VI_MODE */ { (char *)0x0, (Keymap)0x0 } }; Keymap rl_get_keymap_by_name (name) char *name; { register int i; for (i = 0; keymap_names[i].name; i++) if (strcmp (name, keymap_names[i].name) == 0) return (keymap_names[i].map); return ((Keymap) NULL); } void rl_set_keymap (map) Keymap map; { if (map) _rl_keymap = map; } Keymap rl_get_keymap () { return (_rl_keymap); } void rl_set_keymap_from_edit_mode () { if (rl_editing_mode == emacs_mode) _rl_keymap = emacs_standard_keymap; #if defined (VI_MODE) else if (rl_editing_mode == vi_mode) _rl_keymap = vi_insertion_keymap; #endif /* VI_MODE */ } /* **************************************************************** */ /* */ /* Key Binding and Function Information */ /* */ /* **************************************************************** */ /* Each of the following functions produces information about the state of keybindings and functions known to Readline. The info is always printed to rl_outstream, and in such a way that it can be read back in (i.e., passed to rl_parse_and_bind (). */ /* Print the names of functions known to Readline. */ void rl_list_funmap_names (ignore) int ignore; { register int i; char **funmap_names; funmap_names = rl_funmap_names (); if (!funmap_names) return; for (i = 0; funmap_names[i]; i++) fprintf (rl_outstream, "%s\n", funmap_names[i]); free (funmap_names); } /* Return a NULL terminated array of strings which represent the key sequences that are used to invoke FUNCTION in MAP. */ static char ** invoking_keyseqs_in_map (function, map) Function *function; Keymap map; { register int key; char **result; int result_index, result_size; result = (char **)NULL; result_index = result_size = 0; for (key = 0; key < 128; key++) { switch (map[key].type) { case ISMACR: /* Macros match, if, and only if, the pointers are identical. Thus, they are treated exactly like functions in here. */ case ISFUNC: /* If the function in the keymap is the one we are looking for, then add the current KEY to the list of invoking keys. */ if (map[key].function == function) { char *keyname = (char *)xmalloc (5); if (CTRL_P (key)) sprintf (keyname, "\\C-%c", to_lower (UNCTRL (key))); else if (key == RUBOUT) sprintf (keyname, "\\C-?"); else if (key == '\\' || key == '"') { keyname[0] = '\\'; keyname[1] = (char) key; keyname[2] = '\0'; } else { keyname[0] = (char) key; keyname[1] = '\0'; } if (result_index + 2 > result_size) result = (char **) xrealloc (result, (result_size += 10) * sizeof (char *)); result[result_index++] = keyname; result[result_index] = (char *)NULL; } break; case ISKMAP: { char **seqs = (char **)NULL; /* Find the list of keyseqs in this map which have FUNCTION as their target. Add the key sequences found to RESULT. */ if (map[key].function) seqs = #if defined (CRAY) invoking_keyseqs_in_map (function, (Keymap)((int)map[key].function)); #else invoking_keyseqs_in_map (function, (Keymap)map[key].function); #endif if (seqs) { register int i; for (i = 0; seqs[i]; i++) { char *keyname = (char *)xmalloc (6 + strlen (seqs[i])); if (key == ESC) sprintf (keyname, "\\e"); else if (CTRL_P (key)) sprintf (keyname, "\\C-%c", to_lower (UNCTRL (key))); else if (key == RUBOUT) sprintf (keyname, "\\C-?"); else if (key == '\\' || key == '"') { keyname[0] = '\\'; keyname[1] = (char) key; keyname[2] = '\0'; } else { keyname[0] = (char) key; keyname[1] = '\0'; } strcat (keyname, seqs[i]); free (seqs[i]); if (result_index + 2 > result_size) result = (char **) xrealloc (result, (result_size += 10) * sizeof (char *)); result[result_index++] = keyname; result[result_index] = (char *)NULL; } free (seqs); } } break; } } return (result); } /* Return a NULL terminated array of strings which represent the key sequences that can be used to invoke FUNCTION using the current keymap. */ char ** rl_invoking_keyseqs (function) Function *function; { return (invoking_keyseqs_in_map (function, _rl_keymap)); } /* Print all of the current functions and their bindings to rl_outstream. If an explicit argument is given, then print the output in such a way that it can be read back in. */ int rl_dump_functions (count) int count; { void rl_function_dumper (); rl_function_dumper (rl_explicit_arg); rl_on_new_line (); return (0); } /* Print all of the functions and their bindings to rl_outstream. If PRINT_READABLY is non-zero, then print the output in such a way that it can be read back in. */ void rl_function_dumper (print_readably) int print_readably; { register int i; char **names; char *name; names = rl_funmap_names (); fprintf (rl_outstream, "\n"); for (i = 0; name = names[i]; i++) { Function *function; char **invokers; function = rl_named_function (name); invokers = invoking_keyseqs_in_map (function, _rl_keymap); if (print_readably) { if (!invokers) fprintf (rl_outstream, "# %s (not bound)\n", name); else { register int j; for (j = 0; invokers[j]; j++) { fprintf (rl_outstream, "\"%s\": %s\n", invokers[j], name); free (invokers[j]); } free (invokers); } } else { if (!invokers) fprintf (rl_outstream, "%s is not bound to any keys\n", name); else { register int j; fprintf (rl_outstream, "%s can be found on ", name); for (j = 0; invokers[j] && j < 5; j++) { fprintf (rl_outstream, "\"%s\"%s", invokers[j], invokers[j + 1] ? ", " : ".\n"); } if (j == 5 && invokers[j]) fprintf (rl_outstream, "...\n"); for (j = 0; invokers[j]; j++) free (invokers[j]); free (invokers); } } } } /* **************************************************************** */ /* */ /* String Utility Functions */ /* */ /* **************************************************************** */ static char *strindex (); /* Return non-zero if any members of ARRAY are a substring in STRING. */ static int substring_member_of_array (string, array) char *string, **array; { while (*array) { if (strindex (string, *array)) return (1); array++; } return (0); } /* Whoops, Unix doesn't have strnicmp. */ /* Compare at most COUNT characters from string1 to string2. Case doesn't matter. */ static int strnicmp (string1, string2, count) char *string1, *string2; int count; { register char ch1, ch2; while (count) { ch1 = *string1++; ch2 = *string2++; if (to_upper(ch1) == to_upper(ch2)) count--; else break; } return (count); } /* strcmp (), but caseless. */ static int stricmp (string1, string2) char *string1, *string2; { register char ch1, ch2; while (*string1 && *string2) { ch1 = *string1++; ch2 = *string2++; if (to_upper(ch1) != to_upper(ch2)) return (1); } return (*string1 | *string2); } /* Determine if s2 occurs in s1. If so, return a pointer to the match in s1. The compare is case insensitive. */ static char * strindex (s1, s2) register char *s1, *s2; { register int i, l = strlen (s2); register int len = strlen (s1); for (i = 0; (len - i) >= l; i++) if (strnicmp (&s1[i], s2, l) == 0) return (s1 + i); return ((char *)NULL); } gdb-4.13/readline/chardefs.h 666 34562 1752 3466 5562013261 14261 0ustar fnfcygnus/* chardefs.h -- Character definitions for readline. */ #ifndef _CHARDEFS_ #define _CHARDEFS_ #include #ifndef savestring #define savestring(X) _rl_savestring(X) extern char * _rl_savestring (); #endif #ifndef whitespace #define whitespace(c) (((c) == ' ') || ((c) == '\t')) #endif #ifdef CTRL #undef CTRL #endif /* Some character stuff. */ #define control_character_threshold 0x020 /* Smaller than this is control. */ #define meta_character_threshold 0x07f /* Larger than this is Meta. */ #define control_character_bit 0x40 /* 0x000000, must be off. */ #define meta_character_bit 0x080 /* x0000000, must be on. */ #define largest_char 255 /* Largest character value. */ #define META_CHAR(c) ((c) > meta_character_threshold && (c) <= largest_char) #define CTRL(c) ((c) & (~control_character_bit)) #define META(c) ((c) | meta_character_bit) #define UNMETA(c) ((c) & (~meta_character_bit)) #define UNCTRL(c) to_upper(((c)|control_character_bit)) #define lowercase_p(c) (((c) > ('a' - 1) && (c) < ('z' + 1))) #define uppercase_p(c) (((c) > ('A' - 1) && (c) < ('Z' + 1))) #define pure_alphabetic(c) (lowercase_p(c) || uppercase_p(c)) #ifndef to_upper #define to_upper(c) (lowercase_p(c) ? ((c) - 32) : (c)) #define to_lower(c) (uppercase_p(c) ? ((c) + 32) : (c)) #endif #define CTRL_P(c) ((c) < control_character_threshold) #define META_P(c) ((c) > meta_character_threshold) #ifndef NEWLINE #define NEWLINE '\n' #endif #ifndef RETURN #define RETURN CTRL('M') #endif #ifndef RUBOUT #define RUBOUT 0x07f #endif #ifndef TAB #define TAB '\t' #endif #ifdef ABORT_CHAR #undef ABORT_CHAR #endif #define ABORT_CHAR CTRL('G') #ifdef PAGE #undef PAGE #endif #define PAGE CTRL('L') #ifdef SPACE #undef SPACE #endif #define SPACE 0x020 #ifdef ESC #undef ESC #endif #define ESC CTRL('[') #endif /* _CHARDEFS_ */ gdb-4.13/readline/complete.c 666 34562 1752 103636 5533115473 14353 0ustar fnfcygnus/* complete.c -- filename completion for readline. */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sysdep.h" #include #include #if !defined (NO_SYS_FILE) # include #endif /* !NO_SYS_FILE */ #include /* Not all systems declare ERRNO in errno.h... and some systems #define it! */ #if !defined (errno) extern int errno; #endif /* !errno */ /* These next are for filename completion. Perhaps this belongs in a different place. */ #ifndef __MSDOS__ #include #endif /* __MSDOS__ */ #if defined (USG) && !defined (isc386) && !defined (sgi) extern struct passwd *getpwuid (), *getpwent (); #endif #if defined (isc386) && !defined (__STDC__) && defined (_POSIX_SOURCE) extern struct passwd *getpwent (); #endif /* Included by on some systems, but not SCO, so include it here. */ #include /* System-specific feature definitions and include files. */ #include "rldefs.h" /* Some standard library routines. */ #include "readline.h" /* Possible values for do_replace in rl_complete_internal. */ #define NO_MATCH 0 #define SINGLE_MATCH 1 #define MULT_MATCH 2 #if !defined (strchr) && !defined (__STDC__) extern char *strchr (), *strrchr (); #endif /* !strchr && !__STDC__ */ extern char *tilde_expand (); extern char *rl_copy_text (); extern Function *rl_last_func; extern int rl_editing_mode; extern int screenwidth; /* Forward declarations for functions defined and used in this file. */ char *filename_completion_function (); char **completion_matches (); static int compare_strings (); static char *rl_strpbrk (); #if defined (STATIC_MALLOC) static char *xmalloc (), *xrealloc (); #else extern char *xmalloc (), *xrealloc (); #endif /* STATIC_MALLOC */ /* If non-zero, then this is the address of a function to call when completing on a directory name. The function is called with the address of a string (the current directory name) as an arg. */ Function *rl_symbolic_link_hook = (Function *)NULL; /* Non-zero means readline completion functions perform tilde expansion. */ int rl_complete_with_tilde_expansion = 0; #define VISIBLE_STATS #if defined (VISIBLE_STATS) # if !defined (X_OK) # define X_OK 1 # endif static int stat_char (); /* Non-zero means add an additional character to each filename displayed during listing completion iff rl_filename_completion_desired which helps to indicate the type of file being listed. */ int rl_visible_stats = 0; #endif /* VISIBLE_STATS */ /* **************************************************************** */ /* */ /* Completion matching, from readline's point of view. */ /* */ /* **************************************************************** */ /* Pointer to the generator function for completion_matches (). NULL means to use filename_entry_function (), the default filename completer. */ Function *rl_completion_entry_function = (Function *)NULL; /* Pointer to alternative function to create matches. Function is called with TEXT, START, and END. START and END are indices in RL_LINE_BUFFER saying what the boundaries of TEXT are. If this function exists and returns NULL then call the value of rl_completion_entry_function to try to match, otherwise use the array of strings returned. */ CPPFunction *rl_attempted_completion_function = (CPPFunction *)NULL; /* Local variable states what happened during the last completion attempt. */ static int completion_changed_buffer = 0; /* Complete the word at or before point. You have supplied the function that does the initial simple matching selection algorithm (see completion_matches ()). The default is to do filename completion. */ rl_complete (ignore, invoking_key) int ignore, invoking_key; { if (rl_last_func == rl_complete && !completion_changed_buffer) rl_complete_internal ('?'); else rl_complete_internal (TAB); } /* List the possible completions. See description of rl_complete (). */ rl_possible_completions (ignore, invoking_key) int ignore, invoking_key; { rl_complete_internal ('?'); } rl_insert_completions (ignore, invoking_key) int ignore, invoking_key; { rl_complete_internal ('*'); } /* The user must press "y" or "n". Non-zero return means "y" pressed. */ get_y_or_n () { int c; for (;;) { c = rl_read_key (); if (c == 'y' || c == 'Y') return (1); if (c == 'n' || c == 'N') return (0); if (c == ABORT_CHAR) rl_abort (); ding (); } } /* Up to this many items will be displayed in response to a possible-completions call. After that, we ask the user if she is sure she wants to see them all. */ int rl_completion_query_items = 100; /* The basic list of characters that signal a break between words for the completer routine. The contents of this variable is what breaks words in the shell, i.e. " \t\n\"\\'`@$><=" */ char *rl_basic_word_break_characters = " \t\n\"\\'`@$><=;|&{("; /* The list of characters that signal a break between words for rl_complete_internal. The default list is the contents of rl_basic_word_break_characters. */ char *rl_completer_word_break_characters = (char *)NULL; /* List of characters which can be used to quote a substring of the line. Completion occurs on the entire substring, and within the substring rl_completer_word_break_characters are treated as any other character, unless they also appear within this list. */ char *rl_completer_quote_characters = (char *)NULL; /* List of characters that are word break characters, but should be left in TEXT when it is passed to the completion function. The shell uses this to help determine what kind of completing to do. */ char *rl_special_prefixes = (char *)NULL; /* If non-zero, then disallow duplicates in the matches. */ int rl_ignore_completion_duplicates = 1; /* Non-zero means that the results of the matches are to be treated as filenames. This is ALWAYS zero on entry, and can only be changed within a completion entry finder function. */ int rl_filename_completion_desired = 0; /* This function, if defined, is called by the completer when real filename completion is done, after all the matching names have been generated. It is passed a (char**) known as matches in the code below. It consists of a NULL-terminated array of pointers to potential matching strings. The 1st element (matches[0]) is the maximal substring that is common to all matches. This function can re-arrange the list of matches as required, but all elements of the array must be free()'d if they are deleted. The main intent of this function is to implement FIGNORE a la SunOS csh. */ Function *rl_ignore_some_completions_function = (Function *)NULL; #if defined (SHELL) /* A function to strip quotes that are not protected by backquotes. It allows single quotes to appear within double quotes, and vice versa. It should be smarter. It's fairly shell-specific, hence the SHELL definition wrapper. */ static char * _delete_quotes (text) char *text; { char *ret, *p, *r; int l, quoted; l = strlen (text); ret = xmalloc (l + 1); for (quoted = 0, p = text, r = ret; p && *p; p++) { /* Allow backslash-quoted characters to pass through unscathed. */ if (*p == '\\') continue; /* Close quote. */ if (quoted && *p == quoted) { quoted = 0; continue; } /* Open quote. */ if (quoted == 0 && (*p == '\'' || *p == '"')) { quoted = *p; continue; } *r++ = *p; } *r = '\0'; return ret; } #endif /* SHELL */ /* Complete the word at or before point. WHAT_TO_DO says what to do with the completion. `?' means list the possible completions. TAB means do standard completion. `*' means insert all of the possible completions. */ rl_complete_internal (what_to_do) int what_to_do; { char **matches; Function *our_func; int start, scan, end, delimiter = 0, pass_next; char *text, *saved_line_buffer; char *replacement; char quote_char = '\0'; #if defined (SHELL) int found_quote = 0; #endif if (rl_line_buffer) saved_line_buffer = savestring (rl_line_buffer); else saved_line_buffer = (char *)NULL; if (rl_completion_entry_function) our_func = rl_completion_entry_function; else our_func = (Function *)filename_completion_function; /* Only the completion entry function can change this. */ rl_filename_completion_desired = 0; /* We now look backwards for the start of a filename/variable word. */ end = rl_point; if (rl_point) { if (rl_completer_quote_characters) { /* We have a list of characters which can be used in pairs to quote substrings for the completer. Try to find the start of an unclosed quoted substring. */ /* FOUND_QUOTE is set so we know what kind of quotes we found. */ for (scan = pass_next = 0; scan < end; scan++) { if (pass_next) { pass_next = 0; continue; } if (rl_line_buffer[scan] == '\\') { pass_next = 1; continue; } if (quote_char != '\0') { /* Ignore everything until the matching close quote char. */ if (rl_line_buffer[scan] == quote_char) { /* Found matching close. Abandon this substring. */ quote_char = '\0'; rl_point = end; } } else if (strchr (rl_completer_quote_characters, rl_line_buffer[scan])) { /* Found start of a quoted substring. */ quote_char = rl_line_buffer[scan]; rl_point = scan + 1; #if defined (SHELL) if (quote_char == '\'') found_quote |= 1; else if (quote_char == '"') found_quote |= 2; #endif } } } if (rl_point == end) { int quoted = 0; /* We didn't find an unclosed quoted substring up which to do completion, so use the word break characters to find the substring on which to complete. */ while (--rl_point) { #if defined (SHELL) /* Don't let word break characters in quoted substrings break words for the completer. */ if (found_quote) { if (strchr (rl_completer_quote_characters, rl_line_buffer[rl_point])) { quoted = !quoted; continue; } if (quoted) continue; } #endif /* SHELL */ if (strchr (rl_completer_word_break_characters, rl_line_buffer[rl_point])) break; } } /* If we are at a word break, then advance past it. */ if (strchr (rl_completer_word_break_characters, rl_line_buffer[rl_point])) { /* If the character that caused the word break was a quoting character, then remember it as the delimiter. */ if (strchr ("\"'", rl_line_buffer[rl_point]) && (end - rl_point) > 1) delimiter = rl_line_buffer[rl_point]; /* If the character isn't needed to determine something special about what kind of completion to perform, then advance past it. */ if (!rl_special_prefixes || !strchr (rl_special_prefixes, rl_line_buffer[rl_point])) rl_point++; } } /* At this point, we know we have an open quote if quote_char != '\0'. */ start = rl_point; rl_point = end; text = rl_copy_text (start, end); /* If the user wants to TRY to complete, but then wants to give up and use the default completion function, they set the variable rl_attempted_completion_function. */ if (rl_attempted_completion_function) { matches = (*rl_attempted_completion_function) (text, start, end); if (matches) { /* XXX - This is questionable code. - XXX */ if (matches == (char **)-1) matches = (char **)NULL; our_func = (Function *)NULL; goto after_usual_completion; } } #if defined (SHELL) /* Beware -- we're stripping the quotes here. Do this only if we know we are doing filename completion. */ if (found_quote && our_func == (Function *)filename_completion_function) { /* delete single and double quotes */ replacement = _delete_quotes (text); free (text); text = replacement; replacement = (char *)0; } #endif /* SHELL */ matches = completion_matches (text, our_func); after_usual_completion: free (text); if (!matches) ding (); else { register int i; /* It seems to me that in all the cases we handle we would like to ignore duplicate possiblilities. Scan for the text to insert being identical to the other completions. */ if (rl_ignore_completion_duplicates) { char *lowest_common; int j, newlen = 0; char dead_slot; /* Sort the items. */ /* It is safe to sort this array, because the lowest common denominator found in matches[0] will remain in place. */ for (i = 0; matches[i]; i++); qsort (matches, i, sizeof (char *), compare_strings); /* Remember the lowest common denominator for it may be unique. */ lowest_common = savestring (matches[0]); for (i = 0; matches[i + 1]; i++) { if (strcmp (matches[i], matches[i + 1]) == 0) { free (matches[i]); matches[i] = (char *)&dead_slot; } else newlen++; } /* We have marked all the dead slots with (char *)&dead_slot. Copy all the non-dead entries into a new array. */ { char **temp_array = (char **)xmalloc ((3 + newlen) * sizeof (char *)); for (i = 1, j = 1; matches[i]; i++) { if (matches[i] != (char *)&dead_slot) temp_array[j++] = matches[i]; } temp_array[j] = (char *)NULL; if (matches[0] != (char *)&dead_slot) free (matches[0]); free (matches); matches = temp_array; } /* Place the lowest common denominator back in [0]. */ matches[0] = lowest_common; /* If there is one string left, and it is identical to the lowest common denominator, then the LCD is the string to insert. */ if (j == 2 && strcmp (matches[0], matches[1]) == 0) { free (matches[1]); matches[1] = (char *)NULL; } } switch (what_to_do) { case TAB: /* If we are matching filenames, then here is our chance to do clever processing by re-examining the list. Call the ignore function with the array as a parameter. It can munge the array, deleting matches as it desires. */ if (rl_ignore_some_completions_function && our_func == (Function *)filename_completion_function) (void)(*rl_ignore_some_completions_function)(matches); /* If we are doing completion on quoted substrings, and any matches contain any of the completer_word_break_characters, then auto- matically prepend the substring with a quote character (just pick the first one from the list of such) if it does not already begin with a quote string. FIXME: Need to remove any such automatically inserted quote character when it no longer is necessary, such as if we change the string we are completing on and the new set of matches don't require a quoted substring. */ replacement = matches[0]; if (matches[0] && rl_completer_quote_characters && !quote_char && rl_filename_completion_desired) { int do_replace; do_replace = NO_MATCH; /* If there is a single match, see if we need to quote it. This also checks whether the common prefix of several matches needs to be quoted. If the common prefix should not be checked, add !matches[1] to the if clause. */ if (rl_strpbrk (matches[0], rl_completer_word_break_characters)) do_replace = matches[1] ? MULT_MATCH : SINGLE_MATCH; if (do_replace != NO_MATCH) { #if defined (SHELL) /* XXX - experimental */ /* Quote the replacement, since we found an embedded word break character in a potential match. */ char *rtext, *mtext; int rlen; extern char *double_quote (); /* in builtins/common.c */ /* If DO_REPLACE == MULT_MATCH, it means that there is more than one match. In this case, we do not add the closing quote or attempt to perform tilde expansion. If DO_REPLACE == SINGLE_MATCH, we try to perform tilde expansion, because double quotes inhibit tilde expansion by the shell. */ mtext = matches[0]; if (mtext[0] == '~' && do_replace == SINGLE_MATCH) mtext = tilde_expand (matches[0]); rtext = double_quote (mtext); if (mtext != matches[0]) free (mtext); rlen = strlen (rtext); replacement = (char *)alloca (rlen + 1); strcpy (replacement, rtext); if (do_replace == MULT_MATCH) replacement[rlen - 1] = '\0'; free (rtext); #else /* !SHELL */ /* Found an embedded word break character in a potential match, so we need to prepend a quote character if we are replacing the completion string. */ replacement = (char *)alloca (strlen (matches[0]) + 2); quote_char = *rl_completer_quote_characters; *replacement = quote_char; strcpy (replacement + 1, matches[0]); #endif /* SHELL */ } } if (replacement) { rl_delete_text (start, rl_point); rl_point = start; rl_insert_text (replacement); } /* If there are more matches, ring the bell to indicate. If this was the only match, and we are hacking files, check the file to see if it was a directory. If so, add a '/' to the name. If not, and we are at the end of the line, then add a space. */ if (matches[1]) { if (rl_editing_mode != vi_mode) ding (); /* There are other matches remaining. */ } else { char temp_string[4]; int temp_string_index = 0; if (quote_char) temp_string[temp_string_index++] = quote_char; temp_string[temp_string_index++] = delimiter ? delimiter : ' '; temp_string[temp_string_index++] = '\0'; if (rl_filename_completion_desired) { struct stat finfo; char *filename = tilde_expand (matches[0]); if ((stat (filename, &finfo) == 0) && S_ISDIR (finfo.st_mode)) { if (rl_line_buffer[rl_point] != '/') rl_insert_text ("/"); } else { if (rl_point == rl_end) rl_insert_text (temp_string); } free (filename); } else { if (rl_point == rl_end) rl_insert_text (temp_string); } } break; case '*': { int i = 1; rl_delete_text (start, rl_point); rl_point = start; rl_begin_undo_group (); if (matches[1]) { while (matches[i]) { rl_insert_text (matches[i++]); rl_insert_text (" "); } } else { rl_insert_text (matches[0]); rl_insert_text (" "); } rl_end_undo_group (); } break; case '?': { int len, count, limit, max = 0; int j, k, l; /* Handle simple case first. What if there is only one answer? */ if (!matches[1]) { char *temp = (char *)NULL; if (rl_filename_completion_desired) temp = strrchr (matches[0], '/'); if (!temp) temp = matches[0]; else temp++; crlf (); fprintf (rl_outstream, "%s", temp); #if defined (VISIBLE_STATS) if (rl_filename_completion_desired && rl_visible_stats) { int extension_char; extension_char = stat_char (matches[0]); if (extension_char) putc (extension_char, rl_outstream); } #endif /* VISIBLE_STATS */ crlf (); goto restart; } /* There is more than one answer. Find out how many there are, and find out what the maximum printed length of a single entry is. */ for (i = 1; matches[i]; i++) { char *temp; int name_length; /* If we are hacking filenames, then only count the characters after the last slash in the pathname. */ if (rl_filename_completion_desired) temp = strrchr (matches[i], '/'); else temp = (char *)NULL; if (!temp) temp = matches[i]; else temp++; name_length = strlen (temp); if (name_length > max) max = name_length; } len = i - 1; /* If there are many items, then ask the user if she really wants to see them all. */ if (len >= rl_completion_query_items) { crlf (); fprintf (rl_outstream, "There are %d possibilities. Do you really", len); crlf (); fprintf (rl_outstream, "wish to see them all? (y or n)"); fflush (rl_outstream); if (!get_y_or_n ()) { crlf (); goto restart; } } /* How many items of MAX length can we fit in the screen window? */ max += 2; limit = screenwidth / max; if (limit != 1 && (limit * max == screenwidth)) limit--; /* Avoid a possible floating exception. If max > screenwidth, limit will be 0 and a divide-by-zero fault will result. */ if (limit == 0) limit = 1; /* How many iterations of the printing loop? */ count = (len + (limit - 1)) / limit; /* Watch out for special case. If LEN is less than LIMIT, then just do the inner printing loop. */ if (len < limit) count = 1; /* Sort the items if they are not already sorted. */ if (!rl_ignore_completion_duplicates) qsort (matches, len, sizeof (char *), compare_strings); /* Print the sorted items, up-and-down alphabetically, like ls might. */ crlf (); for (i = 1; i < count + 1; i++) { for (j = 0, l = i; j < limit; j++) { if (l > len || !matches[l]) { break; } else { char *temp = (char *)NULL; int printed_length; if (rl_filename_completion_desired) temp = strrchr (matches[l], '/'); if (!temp) temp = matches[l]; else temp++; printed_length = strlen (temp); fprintf (rl_outstream, "%s", temp); #if defined (VISIBLE_STATS) if (rl_filename_completion_desired && rl_visible_stats) { int extension_char; extension_char = stat_char (matches[l]); if (extension_char) { putc (extension_char, rl_outstream); printed_length++; } } #endif /* VISIBLE_STATS */ if (j + 1 < limit) { for (k = 0; k < max - printed_length; k++) putc (' ', rl_outstream); } } l += count; } crlf (); } restart: rl_on_new_line (); } break; default: fprintf (stderr, "\r\nreadline: bad value for what_to_do in rl_complete\n"); abort (); } for (i = 0; matches[i]; i++) free (matches[i]); free (matches); } /* Check to see if the line has changed through all of this manipulation. */ if (saved_line_buffer) { if (strcmp (rl_line_buffer, saved_line_buffer) != 0) completion_changed_buffer = 1; else completion_changed_buffer = 0; free (saved_line_buffer); } } #if defined (VISIBLE_STATS) /* Return the character which best describes FILENAME. `@' for symbolic links `/' for directories `*' for executables `=' for sockets */ static int stat_char (filename) char *filename; { struct stat finfo; int character = 0; if (stat (filename, &finfo) == -1) return (character); if (S_ISDIR (finfo.st_mode)) character = '/'; #if defined (S_ISLNK) else if (S_ISLNK (finfo.st_mode)) character = '@'; #endif /* S_ISLNK */ #if defined (S_ISSOCK) else if (S_ISSOCK (finfo.st_mode)) character = '='; #endif /* S_ISSOCK */ else if (S_ISREG (finfo.st_mode)) { if (access (filename, X_OK) == 0) character = '*'; } return (character); } #endif /* VISIBLE_STATS */ /* Stupid comparison routine for qsort () ing strings. */ static int compare_strings (s1, s2) char **s1, **s2; { return (strcmp (*s1, *s2)); } /* A completion function for usernames. TEXT contains a partial username preceded by a random character (usually `~'). */ char * username_completion_function (text, state) int state; char *text; { #if defined (__GO32__) return (char *)NULL; #else /* !__GO32__ */ static char *username = (char *)NULL; static struct passwd *entry; static int namelen, first_char, first_char_loc; if (!state) { if (username) free (username); first_char = *text; if (first_char == '~') first_char_loc = 1; else first_char_loc = 0; username = savestring (&text[first_char_loc]); namelen = strlen (username); setpwent (); } while (entry = getpwent ()) { if (strncmp (username, entry->pw_name, namelen) == 0) break; } if (!entry) { endpwent (); return ((char *)NULL); } else { char *value = (char *)xmalloc (2 + strlen (entry->pw_name)); *value = *text; strcpy (value + first_char_loc, entry->pw_name); if (first_char == '~') rl_filename_completion_desired = 1; return (value); } #endif /* !__GO32__ */ } /* **************************************************************** */ /* */ /* Completion */ /* */ /* **************************************************************** */ /* Non-zero means that case is not significant in completion. */ int completion_case_fold = 0; /* Return an array of (char *) which is a list of completions for TEXT. If there are no completions, return a NULL pointer. The first entry in the returned array is the substitution for TEXT. The remaining entries are the possible completions. The array is terminated with a NULL pointer. ENTRY_FUNCTION is a function of two args, and returns a (char *). The first argument is TEXT. The second is a state argument; it should be zero on the first call, and non-zero on subsequent calls. It returns a NULL pointer to the caller when there are no more matches. */ char ** completion_matches (text, entry_function) char *text; CPFunction *entry_function; { /* Number of slots in match_list. */ int match_list_size; /* The list of matches. */ char **match_list = (char **)xmalloc (((match_list_size = 10) + 1) * sizeof (char *)); /* Number of matches actually found. */ int matches = 0; /* Temporary string binder. */ char *string; match_list[1] = (char *)NULL; while (string = (*entry_function) (text, matches)) { if (matches + 1 == match_list_size) match_list = (char **)xrealloc (match_list, ((match_list_size += 10) + 1) * sizeof (char *)); match_list[++matches] = string; match_list[matches + 1] = (char *)NULL; } /* If there were any matches, then look through them finding out the lowest common denominator. That then becomes match_list[0]. */ if (matches) { register int i = 1; int low = 100000; /* Count of max-matched characters. */ /* If only one match, just use that. */ if (matches == 1) { match_list[0] = match_list[1]; match_list[1] = (char *)NULL; } else { /* Otherwise, compare each member of the list with the next, finding out where they stop matching. */ while (i < matches) { register int c1, c2, si; if (completion_case_fold) { for (si = 0; (c1 = to_lower(match_list[i][si])) && (c2 = to_lower(match_list[i + 1][si])); si++) if (c1 != c2) break; } else { for (si = 0; (c1 = match_list[i][si]) && (c2 = match_list[i + 1][si]); si++) if (c1 != c2) break; } if (low > si) low = si; i++; } match_list[0] = (char *)xmalloc (low + 1); strncpy (match_list[0], match_list[1], low); match_list[0][low] = '\0'; } } else /* There were no matches. */ { free (match_list); match_list = (char **)NULL; } return (match_list); } /* Okay, now we write the entry_function for filename completion. In the general case. Note that completion in the shell is a little different because of all the pathnames that must be followed when looking up the completion for a command. */ char * filename_completion_function (text, state) int state; char *text; { static DIR *directory; static char *filename = (char *)NULL; static char *dirname = (char *)NULL; static char *users_dirname = (char *)NULL; static int filename_len; dirent *entry = (dirent *)NULL; /* If we don't have any state, then do some initialization. */ if (!state) { char *temp; if (dirname) free (dirname); if (filename) free (filename); if (users_dirname) free (users_dirname); filename = savestring (text); if (!*text) text = "."; dirname = savestring (text); temp = strrchr (dirname, '/'); if (temp) { strcpy (filename, ++temp); *temp = '\0'; } else strcpy (dirname, "."); /* We aren't done yet. We also support the "~user" syntax. */ /* Save the version of the directory that the user typed. */ users_dirname = savestring (dirname); { char *temp_dirname; temp_dirname = tilde_expand (dirname); free (dirname); dirname = temp_dirname; if (rl_symbolic_link_hook) (*rl_symbolic_link_hook) (&dirname); } directory = opendir (dirname); filename_len = strlen (filename); rl_filename_completion_desired = 1; } /* At this point we should entertain the possibility of hacking wildcarded filenames, like /usr/man/man/te. If the directory name contains globbing characters, then build an array of directories, and then map over that list while completing. */ /* *** UNIMPLEMENTED *** */ /* Now that we have some state, we can read the directory. */ while (directory && (entry = readdir (directory))) { /* Special case for no filename. All entries except "." and ".." match. */ if (!filename_len) { if ((strcmp (entry->d_name, ".") != 0) && (strcmp (entry->d_name, "..") != 0)) break; } else { /* Otherwise, if these match upto the length of filename, then it is a match. */ if (((int)D_NAMLEN (entry)) >= filename_len && (entry->d_name[0] == filename[0]) && (strncmp (filename, entry->d_name, filename_len) == 0)) { break; } } } if (!entry) { if (directory) { closedir (directory); directory = (DIR *)NULL; } if (dirname) { free (dirname); dirname = (char *)NULL; } if (filename) { free (filename); filename = (char *)NULL; } if (users_dirname) { free (users_dirname); users_dirname = (char *)NULL; } return (char *)NULL; } else { char *temp; if (dirname && (strcmp (dirname, ".") != 0)) { if (rl_complete_with_tilde_expansion && *users_dirname == '~') { int dirlen = strlen (dirname); temp = (char *)xmalloc (2 + dirlen + D_NAMLEN (entry)); strcpy (temp, dirname); /* Canonicalization cuts off any final slash present. We need to add it back. */ if (dirname[dirlen - 1] != '/') { temp[dirlen] = '/'; temp[dirlen + 1] = '\0'; } } else { temp = (char *) xmalloc (1 + strlen (users_dirname) + D_NAMLEN (entry)); strcpy (temp, users_dirname); } strcat (temp, entry->d_name); } else { temp = (savestring (entry->d_name)); } return (temp); } } /* A function for simple tilde expansion. */ int rl_tilde_expand (ignore, key) int ignore, key; { register int start, end; char *homedir; end = rl_point; start = end - 1; if (rl_point == rl_end && rl_line_buffer[rl_point] == '~') { homedir = tilde_expand ("~"); goto insert; } else if (rl_line_buffer[start] != '~') { for (; !whitespace (rl_line_buffer[start]) && start >= 0; start--); start++; } end = start; do { end++; } while (!whitespace (rl_line_buffer[end]) && end < rl_end); if (whitespace (rl_line_buffer[end]) || end >= rl_end) end--; /* If the first character of the current word is a tilde, perform tilde expansion and insert the result. If not a tilde, do nothing. */ if (rl_line_buffer[start] == '~') { char *temp; int len; len = end - start + 1; temp = (char *)alloca (len + 1); strncpy (temp, rl_line_buffer + start, len); temp[len] = '\0'; homedir = tilde_expand (temp); insert: rl_begin_undo_group (); rl_delete_text (start, end + 1); rl_point = start; rl_insert_text (homedir); rl_end_undo_group (); } return (0); } /* Find the first occurrence in STRING1 of any character from STRING2. Return a pointer to the character in STRING1. */ static char * rl_strpbrk (string1, string2) char *string1, *string2; { register char *scan; for (; *string1; string1++) { for (scan = string2; *scan; scan++) { if (*string1 == *scan) { return (string1); } } } return ((char *)NULL); } #if defined (STATIC_MALLOC) /* **************************************************************** */ /* */ /* xmalloc and xrealloc () */ /* */ /* **************************************************************** */ static void memory_error_and_abort (); static char * xmalloc (bytes) int bytes; { char *temp = (char *)malloc (bytes); if (!temp) memory_error_and_abort (); return (temp); } static char * xrealloc (pointer, bytes) char *pointer; int bytes; { char *temp; if (!pointer) temp = (char *)malloc (bytes); else temp = (char *)realloc (pointer, bytes); if (!temp) memory_error_and_abort (); return (temp); } static void memory_error_and_abort () { fprintf (stderr, "readline: Out of virtual memory!\n"); abort (); } #endif /* STATIC_MALLOC */ gdb-4.13/readline/configure.bat 666 34562 1752 577 5151312731 14760 0ustar fnfcygnus@echo off if "%1" == "go32" goto h8300 if "%1" == "h8/300" goto h8300 echo Specify one of [ go32 h8/300 ] on command line goto exit :go32 echo Configuring readline for go32 copy Makefile.dos Makefile copy sysdep-norm.h sysdep.h goto exit :h8300 echo Configuring readline for H8/300 copy Makefile.dos Makefile copy sysdep-norm.h sysdep.h :exit cd examples call configure %1 cd .. gdb-4.13/readline/configure.in 666 34562 1752 4504 5612042013 14625 0ustar fnfcygnus# This file is a shell script fragment that supplies the information # necessary to tailor a template configure script into the configure # script appropriate for this directory. For more information, check # any existing configure script. configdirs=doc srctrigger=readline.c srcname="the readline library" # per-host: files=sysdep-norm.h links=sysdep.h case "${host}" in *-*-irix*) host_makefile_frag=config/mh-sysv; files=sysdep-irix.h;; i[34]86-ncr-sysv4*) host_makefile_frag=config/mh-ncr3000 ;; # Using sysdep-norm.h is harmful because termio.h defines VWERASE even though # c_cc is too small for it (VWERASE is for termios). # The problem with _POSIX_SOURCE is said not to be a problem after all. # m88k-*-sysv4*) host_makefile_frag=config/mh-sysv ; # defining POSIX_SOURCE causes stack_t to be undefined # even though it's used in # files=sysdep-norm.h ;; m88*-harris-cxux7*) host_makefile_frag=config/mh-sysv4 ; files=sysdep-cxux7.h ;; *-*-sysv4*) host_makefile_frag=config/mh-sysv4 ; files=sysdep-sysv4.h ;; *-*-solaris2*) host_makefile_frag=config/mh-sysv4 ;; i[34]86-*-sco3.2v4*) host_makefile_frag=config/mh-sco4; files=sysdep-sco.h ;; i[34]86-*-sco*) host_makefile_frag=config/mh-sco; files=sysdep-sco.h ;; # Don't use this; ISC 4.0 only supports POSIX features if you link with # -lcposix. No thanks. # i[34]86-*-isc*) host_makefile_frag=config/mh-isc ;; i[34]86-*-isc*) host_makefile_frag=config/mh-sysv ;; *-*-go32) host_makefile_frag=config/mh-go32 ;; m68k-apollo-sysv*) host_makefile_frag=config/mh-apollo68v ;; *-*-sysv*) host_makefile_frag=config/mh-sysv ;; *-*-m88kbcs*) host_makefile_frag=config/mh-sysv ;; i[34]86-*-linux*) host_makefile_frag=config/mh-posix ;; rs6000-ibm-aix*) host_makefile_frag=config/mh-sysv; files=sysdep-aix.h ;; rs6000-bull-bosx*) host_makefile_frag=config/mh-sysv; files=sysdep-aix.h ;; *-ibm-aix*) host_makefile_frag=config/mh-sysv ;; m68k-sony-news*) files=sysdep-obsd.h ;; *-*-bsd*) files=sysdep-obsd.h ;; *-*-mach*) files=sysdep-obsd.h ;; *-*-sunos3*) files=sysdep-obsd.h ;; # Using termios on SunOS is necessary to save and restore cs7 versus cs8. *-*-sunos4.1*) host_makefile_frag=config/mh-posix ;; *-*-ultrix2*) files=sysdep-obsd.h ;; *-*-riscos*) host_makefile_frag=config/mh-sysv ;; esac # per-target: gdb-4.13/readline/display.c 666 34562 1752 52520 5604643705 14166 0ustar fnfcygnus/* display.c -- readline redisplay facility. */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include /* System-specific feature definitions and include files. */ #include "rldefs.h" /* Some standard library routines. */ #include "readline.h" #include "history.h" #if defined (__GO32__) # include #endif /* __GO32__ */ #if !defined (strchr) && !defined (__STDC__) extern char *strchr (), *strrchr (); #endif /* !strchr && !__STDC__ */ /* Global and pseudo-global variables and functions imported from readline.c. */ extern char *rl_prompt; extern int readline_echoing_p; extern char *term_clreol, *term_im, *term_ic, *term_ei, *term_DC; /* Termcap variables. */ extern char *term_up, *term_dc, *term_cr, *term_IC; extern int screenheight, screenwidth, terminal_can_insert, term_xn; extern void _rl_output_some_chars (); extern int _rl_output_character_function (); extern int _rl_convert_meta_chars_to_ascii; extern int _rl_horizontal_scroll_mode; extern int _rl_mark_modified_lines; extern int _rl_prefer_visible_bell; /* Pseudo-global functions (local to the readline library) exported by this file. */ void _rl_move_cursor_relative (), _rl_output_some_chars (); void _rl_move_vert (); static void update_line (), clear_to_eol (); static void delete_chars (), insert_some_chars (); extern char *xmalloc (), *xrealloc (); /* **************************************************************** */ /* */ /* Display stuff */ /* */ /* **************************************************************** */ /* This is the stuff that is hard for me. I never seem to write good display routines in C. Let's see how I do this time. */ /* (PWP) Well... Good for a simple line updater, but totally ignores the problems of input lines longer than the screen width. update_line and the code that calls it makes a multiple line, automatically wrapping line update. Carefull attention needs to be paid to the vertical position variables. */ /* Keep two buffers; one which reflects the current contents of the screen, and the other to draw what we think the new contents should be. Then compare the buffers, and make whatever changes to the screen itself that we should. Finally, make the buffer that we just drew into be the one which reflects the current contents of the screen, and place the cursor where it belongs. Commands that want to can fix the display themselves, and then let this function know that the display has been fixed by setting the RL_DISPLAY_FIXED variable. This is good for efficiency. */ /* Global variables declared here. */ /* What YOU turn on when you have handled all redisplay yourself. */ int rl_display_fixed = 0; /* The stuff that gets printed out before the actual text of the line. This is usually pointing to rl_prompt. */ char *rl_display_prompt = (char *)NULL; /* Pseudo-global variables declared here. */ /* The visible cursor position. If you print some text, adjust this. */ int _rl_last_c_pos = 0; int _rl_last_v_pos = 0; /* Number of lines currently on screen minus 1. */ int _rl_vis_botlin = 0; /* Variables used only in this file. */ /* The last left edge of text that was displayed. This is used when doing horizontal scrolling. It shifts in thirds of a screenwidth. */ static int last_lmargin = 0; /* The line display buffers. One is the line currently displayed on the screen. The other is the line about to be displayed. */ static char *visible_line = (char *)NULL; static char *invisible_line = (char *)NULL; /* A buffer for `modeline' messages. */ static char msg_buf[128]; /* Non-zero forces the redisplay even if we thought it was unnecessary. */ static int forced_display = 0; /* Default and initial buffer size. Can grow. */ static int line_size = 1024; /* Basic redisplay algorithm. */ void rl_redisplay () { register int in, out, c, linenum; register char *line = invisible_line; char *prompt_this_line; int c_pos = 0; int inv_botlin = 0; /* Number of lines in newly drawn buffer. */ if (!readline_echoing_p) return; if (!rl_display_prompt) rl_display_prompt = ""; if (!invisible_line) { visible_line = (char *)xmalloc (line_size); invisible_line = (char *)xmalloc (line_size); line = invisible_line; for (in = 0; in < line_size; in++) { visible_line[in] = 0; invisible_line[in] = 1; } rl_on_new_line (); } /* Draw the line into the buffer. */ c_pos = -1; /* Mark the line as modified or not. We only do this for history lines. */ out = 0; if (_rl_mark_modified_lines && current_history () && rl_undo_list) { line[out++] = '*'; line[out] = '\0'; } /* If someone thought that the redisplay was handled, but the currently visible line has a different modification state than the one about to become visible, then correct the caller's misconception. */ if (visible_line[0] != invisible_line[0]) rl_display_fixed = 0; prompt_this_line = strrchr (rl_display_prompt, '\n'); if (!prompt_this_line) prompt_this_line = rl_display_prompt; else { prompt_this_line++; if (forced_display) _rl_output_some_chars (rl_display_prompt, prompt_this_line - rl_display_prompt); } strncpy (line + out, prompt_this_line, strlen (prompt_this_line)); out += strlen (prompt_this_line); line[out] = '\0'; for (in = 0; in < rl_end; in++) { c = (unsigned char)rl_line_buffer[in]; if (out + 8 >= line_size) /* XXX - 8 for \t */ { line_size *= 2; visible_line = (char *)xrealloc (visible_line, line_size); invisible_line = (char *)xrealloc (invisible_line, line_size); line = invisible_line; } if (in == rl_point) c_pos = out; if (META_CHAR (c)) { if (_rl_convert_meta_chars_to_ascii) { sprintf (line + out, "\\%o", c); out += 4; } else line[out++] = c; } #define DISPLAY_TABS #if defined (DISPLAY_TABS) else if (c == '\t') { register int newout = (out | (int)7) + 1; while (out < newout) line[out++] = ' '; } #endif else if (c < ' ') { line[out++] = '^'; line[out++] = UNCTRL (c); /* XXX was c ^ 0x40 */ } else if (c == 127) { line[out++] = '^'; line[out++] = '?'; } else line[out++] = c; } line[out] = '\0'; if (c_pos < 0) c_pos = out; /* PWP: now is when things get a bit hairy. The visible and invisible line buffers are really multiple lines, which would wrap every screenwidth characters. Go through each in turn, finding the changed region and updating it. The line order is top to bottom. */ /* If we can move the cursor up and down, then use multiple lines, otherwise, let long lines display in a single terminal line, and horizontally scroll it. */ if (!_rl_horizontal_scroll_mode && term_up && *term_up) { int total_screen_chars = (screenwidth * screenheight); if (!rl_display_fixed || forced_display) { forced_display = 0; /* If we have more than a screenful of material to display, then only display a screenful. We should display the last screen, not the first. I'll fix this in a minute. */ if (out >= total_screen_chars) out = total_screen_chars - 1; /* Number of screen lines to display. */ inv_botlin = out / screenwidth; /* For each line in the buffer, do the updating display. */ for (linenum = 0; linenum <= inv_botlin; linenum++) update_line (linenum > _rl_vis_botlin ? "" : &visible_line[linenum * screenwidth], &invisible_line[linenum * screenwidth], linenum); /* We may have deleted some lines. If so, clear the left over blank ones at the bottom out. */ if (_rl_vis_botlin > inv_botlin) { char *tt; for (; linenum <= _rl_vis_botlin; linenum++) { tt = &visible_line[linenum * screenwidth]; _rl_move_vert (linenum); _rl_move_cursor_relative (0, tt); clear_to_eol ((linenum == _rl_vis_botlin) ? strlen (tt) : screenwidth); } } _rl_vis_botlin = inv_botlin; /* Move the cursor where it should be. */ _rl_move_vert (c_pos / screenwidth); _rl_move_cursor_relative (c_pos % screenwidth, &invisible_line[(c_pos / screenwidth) * screenwidth]); } } else /* Do horizontal scrolling. */ { int lmargin; /* Always at top line. */ _rl_last_v_pos = 0; /* If the display position of the cursor would be off the edge of the screen, start the display of this line at an offset that leaves the cursor on the screen. */ if (c_pos - last_lmargin > screenwidth - 2) lmargin = (c_pos / (screenwidth / 3) - 2) * (screenwidth / 3); else if (c_pos - last_lmargin < 1) lmargin = ((c_pos - 1) / (screenwidth / 3)) * (screenwidth / 3); else lmargin = last_lmargin; /* If the first character on the screen isn't the first character in the display line, indicate this with a special character. */ if (lmargin > 0) line[lmargin] = '<'; if (lmargin + screenwidth < out) line[lmargin + screenwidth - 1] = '>'; if (!rl_display_fixed || forced_display || lmargin != last_lmargin) { forced_display = 0; update_line (&visible_line[last_lmargin], &invisible_line[lmargin], 0); _rl_move_cursor_relative (c_pos - lmargin, &invisible_line[lmargin]); last_lmargin = lmargin; } } fflush (rl_outstream); /* Swap visible and non-visible lines. */ { char *temp = visible_line; visible_line = invisible_line; invisible_line = temp; rl_display_fixed = 0; } } /* PWP: update_line() is based on finding the middle difference of each line on the screen; vis: /old first difference /beginning of line | /old last same /old EOL v v v v old: eddie> Oh, my little gruntle-buggy is to me, as lurgid as new: eddie> Oh, my little buggy says to me, as lurgid as ^ ^ ^ ^ \beginning of line | \new last same \new end of line \new first difference All are character pointers for the sake of speed. Special cases for no differences, as well as for end of line additions must be handeled. Could be made even smarter, but this works well enough */ static void update_line (old, new, current_line) register char *old, *new; int current_line; { register char *ofd, *ols, *oe, *nfd, *nls, *ne; int lendiff, wsatend; if (_rl_last_c_pos == screenwidth && term_xn && new[0]) { putc (new[0], rl_outstream); _rl_last_c_pos = 1; _rl_last_v_pos++; if (old[0]) old[0] = new[0]; } /* Find first difference. */ for (ofd = old, nfd = new; (ofd - old < screenwidth) && *ofd && (*ofd == *nfd); ofd++, nfd++) ; /* Move to the end of the screen line. */ for (oe = ofd; ((oe - old) < screenwidth) && *oe; oe++); for (ne = nfd; ((ne - new) < screenwidth) && *ne; ne++); /* If no difference, continue to next line. */ if (ofd == oe && nfd == ne) return; wsatend = 1; /* flag for trailing whitespace */ ols = oe - 1; /* find last same */ nls = ne - 1; while ((ols > ofd) && (nls > nfd) && (*ols == *nls)) { if (*ols != ' ') wsatend = 0; ols--; nls--; } if (wsatend) { ols = oe; nls = ne; } else if (*ols != *nls) { if (*ols) /* don't step past the NUL */ ols++; if (*nls) nls++; } _rl_move_vert (current_line); _rl_move_cursor_relative (ofd - old, old); /* if (len (new) > len (old)) */ lendiff = (nls - nfd) - (ols - ofd); /* Insert (diff (len (old), len (new)) ch. */ if (lendiff > 0) { if (terminal_can_insert) { /* Sometimes it is cheaper to print the characters rather than use the terminal's capabilities. */ if ((2 * (ne - nfd)) < lendiff && !term_IC) { _rl_output_some_chars (nfd, (ne - nfd)); _rl_last_c_pos += (ne - nfd); } else { if (*ols) { insert_some_chars (nfd, lendiff); _rl_last_c_pos += lendiff; } else { /* At the end of a line the characters do not have to be "inserted". They can just be placed on the screen. */ _rl_output_some_chars (nfd, lendiff); _rl_last_c_pos += lendiff; } /* Copy (new) chars to screen from first diff to last match. */ if (((nls - nfd) - lendiff) > 0) { _rl_output_some_chars (&nfd[lendiff], ((nls - nfd) - lendiff)); _rl_last_c_pos += ((nls - nfd) - lendiff); } } } else { /* cannot insert chars, write to EOL */ _rl_output_some_chars (nfd, (ne - nfd)); _rl_last_c_pos += (ne - nfd); } } else /* Delete characters from line. */ { /* If possible and inexpensive to use terminal deletion, then do so. */ if (term_dc && (2 * (ne - nfd)) >= (-lendiff)) { if (lendiff) delete_chars (-lendiff); /* delete (diff) characters */ /* Copy (new) chars to screen from first diff to last match */ if ((nls - nfd) > 0) { _rl_output_some_chars (nfd, (nls - nfd)); _rl_last_c_pos += (nls - nfd); } } /* Otherwise, print over the existing material. */ else { _rl_output_some_chars (nfd, (ne - nfd)); _rl_last_c_pos += (ne - nfd); clear_to_eol ((oe - old) - (ne - new)); } } } /* Tell the update routines that we have moved onto a new (empty) line. */ rl_on_new_line () { if (visible_line) visible_line[0] = '\0'; _rl_last_c_pos = _rl_last_v_pos = 0; _rl_vis_botlin = last_lmargin = 0; } /* Actually update the display, period. */ rl_forced_update_display () { if (visible_line) { register char *temp = visible_line; while (*temp) *temp++ = '\0'; } rl_on_new_line (); forced_display++; rl_redisplay (); } /* Move the cursor from _rl_last_c_pos to NEW, which are buffer indices. DATA is the contents of the screen line of interest; i.e., where the movement is being done. */ void _rl_move_cursor_relative (new, data) int new; char *data; { register int i; /* It may be faster to output a CR, and then move forwards instead of moving backwards. */ if (new + 1 < _rl_last_c_pos - new) { #ifdef __MSDOS__ putc('\r', rl_outstream); #else tputs (term_cr, 1, _rl_output_character_function); #endif _rl_last_c_pos = 0; } if (_rl_last_c_pos == new) return; if (_rl_last_c_pos < new) { /* Move the cursor forward. We do it by printing the command to move the cursor forward if there is one, else print that portion of the output buffer again. Which is cheaper? */ /* The above comment is left here for posterity. It is faster to print one character (non-control) than to print a control sequence telling the terminal to move forward one character. That kind of control is for people who don't know what the data is underneath the cursor. */ #if defined (HACK_TERMCAP_MOTION) extern char *term_forward_char; if (term_forward_char) for (i = _rl_last_c_pos; i < new; i++) tputs (term_forward_char, 1, _rl_output_character_function); else for (i = _rl_last_c_pos; i < new; i++) putc (data[i], rl_outstream); #else for (i = _rl_last_c_pos; i < new; i++) putc (data[i], rl_outstream); #endif /* HACK_TERMCAP_MOTION */ } else backspace (_rl_last_c_pos - new); _rl_last_c_pos = new; } /* PWP: move the cursor up or down. */ void _rl_move_vert (to) int to; { register int delta, i; if (_rl_last_v_pos == to || to > screenheight) return; #if defined (__GO32__) { int row, col; ScreenGetCursor (&row, &col); ScreenSetCursor ((row + to - _rl_last_v_pos), col); } #else /* !__GO32__ */ if ((delta = to - _rl_last_v_pos) > 0) { for (i = 0; i < delta; i++) putc ('\n', rl_outstream); tputs (term_cr, 1, _rl_output_character_function); _rl_last_c_pos = 0; } else { /* delta < 0 */ if (term_up && *term_up) for (i = 0; i < -delta; i++) tputs (term_up, 1, _rl_output_character_function); } #endif /* !__GO32__ */ _rl_last_v_pos = to; /* Now TO is here */ } /* Physically print C on rl_outstream. This is for functions which know how to optimize the display. */ rl_show_char (c) int c; { if (META_CHAR (c) && _rl_convert_meta_chars_to_ascii) { fprintf (rl_outstream, "M-"); c = UNMETA (c); } #if defined (DISPLAY_TABS) if (c < 32 && c != '\t') #else if (c < 32) #endif /* !DISPLAY_TABS */ { c += 64; } putc (c, rl_outstream); fflush (rl_outstream); } int rl_character_len (c, pos) register int c, pos; { if (META_CHAR (c)) return (_rl_convert_meta_chars_to_ascii ? 4 : 1); if (c == '\t') { #if defined (DISPLAY_TABS) return (((pos | (int)7) + 1) - pos); #else return (2); #endif /* !DISPLAY_TABS */ } if (isprint (c)) return (1); else return (2); } /* How to print things in the "echo-area". The prompt is treated as a mini-modeline. */ #if defined (HAVE_VARARGS_H) rl_message (va_alist) va_dcl { char *format; va_list args; va_start (args); format = va_arg (args, char *); vsprintf (msg_buf, format, args); va_end (args); rl_display_prompt = msg_buf; rl_redisplay (); } #else /* !HAVE_VARARGS_H */ rl_message (format, arg1, arg2) char *format; { sprintf (msg_buf, format, arg1, arg2); rl_display_prompt = msg_buf; rl_redisplay (); } #endif /* !HAVE_VARARGS_H */ /* How to clear things from the "echo-area". */ rl_clear_message () { rl_display_prompt = rl_prompt; rl_redisplay (); } rl_reset_line_state () { rl_on_new_line (); rl_display_prompt = rl_prompt ? rl_prompt : ""; forced_display = 1; } /* Quick redisplay hack when erasing characters at the end of the line. */ void _rl_erase_at_end_of_line (l) int l; { register int i; backspace (l); for (i = 0; i < l; i++) putc (' ', rl_outstream); backspace (l); for (i = 0; i < l; i++) visible_line[--_rl_last_c_pos] = '\0'; rl_display_fixed++; } /* Clear to the end of the line. COUNT is the minimum number of character spaces to clear, */ static void clear_to_eol (count) int count; { #if !defined (__GO32__) if (term_clreol) { tputs (term_clreol, 1, _rl_output_character_function); } else #endif /* !__GO32__ */ { register int i; /* Do one more character space. */ count++; for (i = 0; i < count; i++) putc (' ', rl_outstream); backspace (count); } } /* Insert COUNT characters from STRING to the output stream. */ static void insert_some_chars (string, count) char *string; int count; { #if defined (__GO32__) int row, col, width; short *row_start; ScreenGetCursor (&row, &col); width = ScreenCols (); row_start = ScreenPrimary + (row * width); memcpy (row_start + col + count, row_start + col, width - col - count); /* Place the text on the screen. */ _rl_output_some_chars (string, count); #else /* !__GO32__ */ /* If IC is defined, then we do not have to "enter" insert mode. */ if (term_IC) { char *tgoto (), *buffer; buffer = tgoto (term_IC, 0, count); tputs (buffer, 1, _rl_output_character_function); _rl_output_some_chars (string, count); } else { register int i; /* If we have to turn on insert-mode, then do so. */ if (term_im && *term_im) tputs (term_im, 1, _rl_output_character_function); /* If there is a special command for inserting characters, then use that first to open up the space. */ if (term_ic && *term_ic) { for (i = count; i--; ) tputs (term_ic, 1, _rl_output_character_function); } /* Print the text. */ _rl_output_some_chars (string, count); /* If there is a string to turn off insert mode, we had best use it now. */ if (term_ei && *term_ei) tputs (term_ei, 1, _rl_output_character_function); } #endif /* !__GO32__ */ } /* Delete COUNT characters from the display line. */ static void delete_chars (count) int count; { #if defined (__GO32__) int row, col, width; short *row_start; ScreenGetCursor (&row, &col); width = ScreenCols (); row_start = ScreenPrimary + (row * width); memcpy (row_start + col, row_start + col + count, width - col - count); memset (row_start + width - count, 0, count * 2); #else /* !__GO32__ */ if (count > screenwidth) return; if (term_DC && *term_DC) { char *tgoto (), *buffer; buffer = tgoto (term_DC, count, count); tputs (buffer, count, _rl_output_character_function); } else { if (term_dc && *term_dc) while (count--) tputs (term_dc, 1, _rl_output_character_function); } #endif /* !__GO32__ */ } gdb-4.13/readline/emacs_keymap.c 666 34562 1752 102371 5516133355 15174 0ustar fnfcygnus/* emacs_keymap.c -- the keymap for emacs_mode in readline (). */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (BUFSIZ) #include #endif /* !BUFSIZ */ #include "readline.h" /* An array of function pointers, one for each possible key. If the type byte is ISKMAP, then the pointer is the address of a keymap. */ KEYMAP_ENTRY_ARRAY emacs_standard_keymap = { /* Control keys. */ { ISFUNC, (Function *)0x0 }, /* Control-@ */ { ISFUNC, rl_beg_of_line }, /* Control-a */ { ISFUNC, rl_backward }, /* Control-b */ { ISFUNC, (Function *)0x0 }, /* Control-c */ { ISFUNC, rl_delete }, /* Control-d */ { ISFUNC, rl_end_of_line }, /* Control-e */ { ISFUNC, rl_forward }, /* Control-f */ { ISFUNC, rl_abort }, /* Control-g */ { ISFUNC, rl_rubout }, /* Control-h */ { ISFUNC, rl_complete }, /* Control-i */ { ISFUNC, rl_newline }, /* Control-j */ { ISFUNC, rl_kill_line }, /* Control-k */ { ISFUNC, rl_clear_screen }, /* Control-l */ { ISFUNC, rl_newline }, /* Control-m */ { ISFUNC, rl_get_next_history }, /* Control-n */ { ISFUNC, (Function *)0x0 }, /* Control-o */ { ISFUNC, rl_get_previous_history }, /* Control-p */ { ISFUNC, rl_quoted_insert }, /* Control-q */ { ISFUNC, rl_reverse_search_history }, /* Control-r */ { ISFUNC, rl_forward_search_history }, /* Control-s */ { ISFUNC, rl_transpose_chars }, /* Control-t */ { ISFUNC, rl_unix_line_discard }, /* Control-u */ { ISFUNC, rl_quoted_insert }, /* Control-v */ { ISFUNC, rl_unix_word_rubout }, /* Control-w */ { ISKMAP, (Function *)emacs_ctlx_keymap }, /* Control-x */ { ISFUNC, rl_yank }, /* Control-y */ { ISFUNC, (Function *)0x0 }, /* Control-z */ { ISKMAP, (Function *)emacs_meta_keymap }, /* Control-[ */ { ISFUNC, (Function *)0x0 }, /* Control-\ */ { ISFUNC, (Function *)0x0 }, /* Control-] */ { ISFUNC, (Function *)0x0 }, /* Control-^ */ { ISFUNC, rl_undo_command }, /* Control-_ */ /* The start of printing characters. */ { ISFUNC, rl_insert }, /* SPACE */ { ISFUNC, rl_insert }, /* ! */ { ISFUNC, rl_insert }, /* " */ { ISFUNC, rl_insert }, /* # */ { ISFUNC, rl_insert }, /* $ */ { ISFUNC, rl_insert }, /* % */ { ISFUNC, rl_insert }, /* & */ { ISFUNC, rl_insert }, /* ' */ { ISFUNC, rl_insert }, /* ( */ #if defined (PAREN_MATCHING) { ISFUNC, rl_insert_close }, /* ) */ #else { ISFUNC, rl_insert }, /* ) */ #endif /* !PAREN_MATCHING */ { ISFUNC, rl_insert }, /* * */ { ISFUNC, rl_insert }, /* + */ { ISFUNC, rl_insert }, /* , */ { ISFUNC, rl_insert }, /* - */ { ISFUNC, rl_insert }, /* . */ { ISFUNC, rl_insert }, /* / */ /* Regular digits. */ { ISFUNC, rl_insert }, /* 0 */ { ISFUNC, rl_insert }, /* 1 */ { ISFUNC, rl_insert }, /* 2 */ { ISFUNC, rl_insert }, /* 3 */ { ISFUNC, rl_insert }, /* 4 */ { ISFUNC, rl_insert }, /* 5 */ { ISFUNC, rl_insert }, /* 6 */ { ISFUNC, rl_insert }, /* 7 */ { ISFUNC, rl_insert }, /* 8 */ { ISFUNC, rl_insert }, /* 9 */ /* A little more punctuation. */ { ISFUNC, rl_insert }, /* : */ { ISFUNC, rl_insert }, /* ; */ { ISFUNC, rl_insert }, /* < */ { ISFUNC, rl_insert }, /* = */ { ISFUNC, rl_insert }, /* > */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* @ */ /* Uppercase alphabet. */ { ISFUNC, rl_insert }, /* A */ { ISFUNC, rl_insert }, /* B */ { ISFUNC, rl_insert }, /* C */ { ISFUNC, rl_insert }, /* D */ { ISFUNC, rl_insert }, /* E */ { ISFUNC, rl_insert }, /* F */ { ISFUNC, rl_insert }, /* G */ { ISFUNC, rl_insert }, /* H */ { ISFUNC, rl_insert }, /* I */ { ISFUNC, rl_insert }, /* J */ { ISFUNC, rl_insert }, /* K */ { ISFUNC, rl_insert }, /* L */ { ISFUNC, rl_insert }, /* M */ { ISFUNC, rl_insert }, /* N */ { ISFUNC, rl_insert }, /* O */ { ISFUNC, rl_insert }, /* P */ { ISFUNC, rl_insert }, /* Q */ { ISFUNC, rl_insert }, /* R */ { ISFUNC, rl_insert }, /* S */ { ISFUNC, rl_insert }, /* T */ { ISFUNC, rl_insert }, /* U */ { ISFUNC, rl_insert }, /* V */ { ISFUNC, rl_insert }, /* W */ { ISFUNC, rl_insert }, /* X */ { ISFUNC, rl_insert }, /* Y */ { ISFUNC, rl_insert }, /* Z */ /* Some more punctuation. */ { ISFUNC, rl_insert }, /* [ */ { ISFUNC, rl_insert }, /* \ */ #if defined (PAREN_MATCHING) { ISFUNC, rl_insert_close }, /* ] */ #else { ISFUNC, rl_insert }, /* ] */ #endif /* !PAREN_MATCHING */ { ISFUNC, rl_insert }, /* ^ */ { ISFUNC, rl_insert }, /* _ */ { ISFUNC, rl_insert }, /* ` */ /* Lowercase alphabet. */ { ISFUNC, rl_insert }, /* a */ { ISFUNC, rl_insert }, /* b */ { ISFUNC, rl_insert }, /* c */ { ISFUNC, rl_insert }, /* d */ { ISFUNC, rl_insert }, /* e */ { ISFUNC, rl_insert }, /* f */ { ISFUNC, rl_insert }, /* g */ { ISFUNC, rl_insert }, /* h */ { ISFUNC, rl_insert }, /* i */ { ISFUNC, rl_insert }, /* j */ { ISFUNC, rl_insert }, /* k */ { ISFUNC, rl_insert }, /* l */ { ISFUNC, rl_insert }, /* m */ { ISFUNC, rl_insert }, /* n */ { ISFUNC, rl_insert }, /* o */ { ISFUNC, rl_insert }, /* p */ { ISFUNC, rl_insert }, /* q */ { ISFUNC, rl_insert }, /* r */ { ISFUNC, rl_insert }, /* s */ { ISFUNC, rl_insert }, /* t */ { ISFUNC, rl_insert }, /* u */ { ISFUNC, rl_insert }, /* v */ { ISFUNC, rl_insert }, /* w */ { ISFUNC, rl_insert }, /* x */ { ISFUNC, rl_insert }, /* y */ { ISFUNC, rl_insert }, /* z */ /* Final punctuation. */ { ISFUNC, rl_insert }, /* { */ { ISFUNC, rl_insert }, /* | */ #if defined (PAREN_MATCHING) { ISFUNC, rl_insert_close }, /* } */ #else { ISFUNC, rl_insert }, /* } */ #endif /* !PAREN_MATCHING */ { ISFUNC, rl_insert }, /* ~ */ { ISFUNC, rl_rubout }, /* RUBOUT */ #if KEYMAP_SIZE > 128 /* Pure 8-bit characters (128 - 159). These might be used in some character sets. */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ /* ISO Latin-1 characters (160 - 255) */ { ISFUNC, rl_insert }, /* No-break space */ { ISFUNC, rl_insert }, /* Inverted exclamation mark */ { ISFUNC, rl_insert }, /* Cent sign */ { ISFUNC, rl_insert }, /* Pound sign */ { ISFUNC, rl_insert }, /* Currency sign */ { ISFUNC, rl_insert }, /* Yen sign */ { ISFUNC, rl_insert }, /* Broken bar */ { ISFUNC, rl_insert }, /* Section sign */ { ISFUNC, rl_insert }, /* Diaeresis */ { ISFUNC, rl_insert }, /* Copyright sign */ { ISFUNC, rl_insert }, /* Feminine ordinal indicator */ { ISFUNC, rl_insert }, /* Left pointing double angle quotation mark */ { ISFUNC, rl_insert }, /* Not sign */ { ISFUNC, rl_insert }, /* Soft hyphen */ { ISFUNC, rl_insert }, /* Registered sign */ { ISFUNC, rl_insert }, /* Macron */ { ISFUNC, rl_insert }, /* Degree sign */ { ISFUNC, rl_insert }, /* Plus-minus sign */ { ISFUNC, rl_insert }, /* Superscript two */ { ISFUNC, rl_insert }, /* Superscript three */ { ISFUNC, rl_insert }, /* Acute accent */ { ISFUNC, rl_insert }, /* Micro sign */ { ISFUNC, rl_insert }, /* Pilcrow sign */ { ISFUNC, rl_insert }, /* Middle dot */ { ISFUNC, rl_insert }, /* Cedilla */ { ISFUNC, rl_insert }, /* Superscript one */ { ISFUNC, rl_insert }, /* Masculine ordinal indicator */ { ISFUNC, rl_insert }, /* Right pointing double angle quotation mark */ { ISFUNC, rl_insert }, /* Vulgar fraction one quarter */ { ISFUNC, rl_insert }, /* Vulgar fraction one half */ { ISFUNC, rl_insert }, /* Vulgar fraction three quarters */ { ISFUNC, rl_insert }, /* Inverted questionk mark */ { ISFUNC, rl_insert }, /* Latin capital letter a with grave */ { ISFUNC, rl_insert }, /* Latin capital letter a with acute */ { ISFUNC, rl_insert }, /* Latin capital letter a with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter a with tilde */ { ISFUNC, rl_insert }, /* Latin capital letter a with diaeresis */ { ISFUNC, rl_insert }, /* Latin capital letter a with ring above */ { ISFUNC, rl_insert }, /* Latin capital letter ae */ { ISFUNC, rl_insert }, /* Latin capital letter c with cedilla */ { ISFUNC, rl_insert }, /* Latin capital letter e with grave */ { ISFUNC, rl_insert }, /* Latin capital letter e with acute */ { ISFUNC, rl_insert }, /* Latin capital letter e with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter e with diaeresis */ { ISFUNC, rl_insert }, /* Latin capital letter i with grave */ { ISFUNC, rl_insert }, /* Latin capital letter i with acute */ { ISFUNC, rl_insert }, /* Latin capital letter i with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter i with diaeresis */ { ISFUNC, rl_insert }, /* Latin capital letter eth (Icelandic) */ { ISFUNC, rl_insert }, /* Latin capital letter n with tilde */ { ISFUNC, rl_insert }, /* Latin capital letter o with grave */ { ISFUNC, rl_insert }, /* Latin capital letter o with acute */ { ISFUNC, rl_insert }, /* Latin capital letter o with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter o with tilde */ { ISFUNC, rl_insert }, /* Latin capital letter o with diaeresis */ { ISFUNC, rl_insert }, /* Multiplication sign */ { ISFUNC, rl_insert }, /* Latin capital letter o with stroke */ { ISFUNC, rl_insert }, /* Latin capital letter u with grave */ { ISFUNC, rl_insert }, /* Latin capital letter u with acute */ { ISFUNC, rl_insert }, /* Latin capital letter u with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter u with diaeresis */ { ISFUNC, rl_insert }, /* Latin capital letter Y with acute */ { ISFUNC, rl_insert }, /* Latin capital letter thorn (Icelandic) */ { ISFUNC, rl_insert }, /* Latin small letter sharp s (German) */ { ISFUNC, rl_insert }, /* Latin small letter a with grave */ { ISFUNC, rl_insert }, /* Latin small letter a with acute */ { ISFUNC, rl_insert }, /* Latin small letter a with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter a with tilde */ { ISFUNC, rl_insert }, /* Latin small letter a with diaeresis */ { ISFUNC, rl_insert }, /* Latin small letter a with ring above */ { ISFUNC, rl_insert }, /* Latin small letter ae */ { ISFUNC, rl_insert }, /* Latin small letter c with cedilla */ { ISFUNC, rl_insert }, /* Latin small letter e with grave */ { ISFUNC, rl_insert }, /* Latin small letter e with acute */ { ISFUNC, rl_insert }, /* Latin small letter e with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter e with diaeresis */ { ISFUNC, rl_insert }, /* Latin small letter i with grave */ { ISFUNC, rl_insert }, /* Latin small letter i with acute */ { ISFUNC, rl_insert }, /* Latin small letter i with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter i with diaeresis */ { ISFUNC, rl_insert }, /* Latin small letter eth (Icelandic) */ { ISFUNC, rl_insert }, /* Latin small letter n with tilde */ { ISFUNC, rl_insert }, /* Latin small letter o with grave */ { ISFUNC, rl_insert }, /* Latin small letter o with acute */ { ISFUNC, rl_insert }, /* Latin small letter o with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter o with tilde */ { ISFUNC, rl_insert }, /* Latin small letter o with diaeresis */ { ISFUNC, rl_insert }, /* Division sign */ { ISFUNC, rl_insert }, /* Latin small letter o with stroke */ { ISFUNC, rl_insert }, /* Latin small letter u with grave */ { ISFUNC, rl_insert }, /* Latin small letter u with acute */ { ISFUNC, rl_insert }, /* Latin small letter u with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter u with diaeresis */ { ISFUNC, rl_insert }, /* Latin small letter y with acute */ { ISFUNC, rl_insert }, /* Latin small letter thorn (Icelandic) */ { ISFUNC, rl_insert } /* Latin small letter y with diaeresis */ #endif /* MEYMAP_SIZE > 128 */ }; KEYMAP_ENTRY_ARRAY emacs_meta_keymap = { /* Meta keys. Just like above, but the high bit is set. */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-@ */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-a */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-b */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-c */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-d */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-e */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-f */ { ISFUNC, rl_abort }, /* Meta-Control-g */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-h */ { ISFUNC, rl_tab_insert }, /* Meta-Control-i */ { ISFUNC, rl_vi_editing_mode }, /* Meta-Control-j */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-k */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-l */ { ISFUNC, rl_vi_editing_mode }, /* Meta-Control-m */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-n */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-o */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-p */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-q */ { ISFUNC, rl_revert_line }, /* Meta-Control-r */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-s */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-t */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-u */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-v */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-w */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-x */ { ISFUNC, rl_yank_nth_arg }, /* Meta-Control-y */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-z */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-[ */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-\ */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-] */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-^ */ { ISFUNC, (Function *)0x0 }, /* Meta-Control-_ */ /* The start of printing characters. */ { ISFUNC, (Function *)0x0 }, /* Meta-SPACE */ { ISFUNC, (Function *)0x0 }, /* Meta-! */ { ISFUNC, (Function *)0x0 }, /* Meta-" */ { ISFUNC, (Function *)0x0 }, /* Meta-# */ { ISFUNC, (Function *)0x0 }, /* Meta-$ */ { ISFUNC, (Function *)0x0 }, /* Meta-% */ { ISFUNC, rl_tilde_expand }, /* Meta-& */ { ISFUNC, (Function *)0x0 }, /* Meta-' */ { ISFUNC, (Function *)0x0 }, /* Meta-( */ { ISFUNC, (Function *)0x0 }, /* Meta-) */ { ISFUNC, (Function *)0x0 }, /* Meta-* */ { ISFUNC, (Function *)0x0 }, /* Meta-+ */ { ISFUNC, (Function *)0x0 }, /* Meta-, */ { ISFUNC, rl_digit_argument }, /* Meta-- */ { ISFUNC, (Function *)0x0 }, /* Meta-. */ { ISFUNC, (Function *)0x0 }, /* Meta-/ */ /* Regular digits. */ { ISFUNC, rl_digit_argument }, /* Meta-0 */ { ISFUNC, rl_digit_argument }, /* Meta-1 */ { ISFUNC, rl_digit_argument }, /* Meta-2 */ { ISFUNC, rl_digit_argument }, /* Meta-3 */ { ISFUNC, rl_digit_argument }, /* Meta-4 */ { ISFUNC, rl_digit_argument }, /* Meta-5 */ { ISFUNC, rl_digit_argument }, /* Meta-6 */ { ISFUNC, rl_digit_argument }, /* Meta-7 */ { ISFUNC, rl_digit_argument }, /* Meta-8 */ { ISFUNC, rl_digit_argument }, /* Meta-9 */ /* A little more punctuation. */ { ISFUNC, (Function *)0x0 }, /* Meta-: */ { ISFUNC, (Function *)0x0 }, /* Meta-; */ { ISFUNC, rl_beginning_of_history }, /* Meta-< */ { ISFUNC, (Function *)0x0 }, /* Meta-= */ { ISFUNC, rl_end_of_history }, /* Meta-> */ { ISFUNC, rl_possible_completions }, /* Meta-? */ { ISFUNC, (Function *)0x0 }, /* Meta-@ */ /* Uppercase alphabet. */ { ISFUNC, rl_do_lowercase_version }, /* Meta-A */ { ISFUNC, rl_do_lowercase_version }, /* Meta-B */ { ISFUNC, rl_do_lowercase_version }, /* Meta-C */ { ISFUNC, rl_do_lowercase_version }, /* Meta-D */ { ISFUNC, rl_do_lowercase_version }, /* Meta-E */ { ISFUNC, rl_do_lowercase_version }, /* Meta-F */ { ISFUNC, rl_do_lowercase_version }, /* Meta-G */ { ISFUNC, rl_do_lowercase_version }, /* Meta-H */ { ISFUNC, rl_do_lowercase_version }, /* Meta-I */ { ISFUNC, rl_do_lowercase_version }, /* Meta-J */ { ISFUNC, rl_do_lowercase_version }, /* Meta-K */ { ISFUNC, rl_do_lowercase_version }, /* Meta-L */ { ISFUNC, rl_do_lowercase_version }, /* Meta-M */ { ISFUNC, rl_do_lowercase_version }, /* Meta-N */ { ISFUNC, rl_do_lowercase_version }, /* Meta-O */ { ISFUNC, rl_do_lowercase_version }, /* Meta-P */ { ISFUNC, rl_do_lowercase_version }, /* Meta-Q */ { ISFUNC, rl_do_lowercase_version }, /* Meta-R */ { ISFUNC, rl_do_lowercase_version }, /* Meta-S */ { ISFUNC, rl_do_lowercase_version }, /* Meta-T */ { ISFUNC, rl_do_lowercase_version }, /* Meta-U */ { ISFUNC, rl_do_lowercase_version }, /* Meta-V */ { ISFUNC, rl_do_lowercase_version }, /* Meta-W */ { ISFUNC, rl_do_lowercase_version }, /* Meta-X */ { ISFUNC, rl_do_lowercase_version }, /* Meta-Y */ { ISFUNC, rl_do_lowercase_version }, /* Meta-Z */ /* Some more punctuation. */ { ISFUNC, rl_arrow_keys }, /* Meta-[ */ { ISFUNC, rl_delete_horizontal_space }, /* Meta-\ */ { ISFUNC, (Function *)0x0 }, /* Meta-] */ { ISFUNC, (Function *)0x0 }, /* Meta-^ */ { ISFUNC, (Function *)0x0 }, /* Meta-_ */ { ISFUNC, (Function *)0x0 }, /* Meta-` */ /* Lowercase alphabet. */ { ISFUNC, (Function *)0x0 }, /* Meta-a */ { ISFUNC, rl_backward_word }, /* Meta-b */ { ISFUNC, rl_capitalize_word }, /* Meta-c */ { ISFUNC, rl_kill_word }, /* Meta-d */ { ISFUNC, (Function *)0x0 }, /* Meta-e */ { ISFUNC, rl_forward_word }, /* Meta-f */ { ISFUNC, (Function *)0x0 }, /* Meta-g */ { ISFUNC, (Function *)0x0 }, /* Meta-h */ { ISFUNC, (Function *)0x0 }, /* Meta-i */ { ISFUNC, (Function *)0x0 }, /* Meta-j */ { ISFUNC, (Function *)0x0 }, /* Meta-k */ { ISFUNC, rl_downcase_word }, /* Meta-l */ { ISFUNC, (Function *)0x0 }, /* Meta-m */ { ISFUNC, rl_noninc_forward_search }, /* Meta-n */ { ISFUNC, rl_arrow_keys }, /* Meta-o */ { ISFUNC, rl_noninc_reverse_search }, /* Meta-p */ { ISFUNC, (Function *)0x0 }, /* Meta-q */ { ISFUNC, rl_revert_line }, /* Meta-r */ { ISFUNC, (Function *)0x0 }, /* Meta-s */ { ISFUNC, rl_transpose_words }, /* Meta-t */ { ISFUNC, rl_upcase_word }, /* Meta-u */ { ISFUNC, (Function *)0x0 }, /* Meta-v */ { ISFUNC, (Function *)0x0 }, /* Meta-w */ { ISFUNC, (Function *)0x0 }, /* Meta-x */ { ISFUNC, rl_yank_pop }, /* Meta-y */ { ISFUNC, (Function *)0x0 }, /* Meta-z */ /* Final punctuation. */ { ISFUNC, (Function *)0x0 }, /* Meta-{ */ { ISFUNC, (Function *)0x0 }, /* Meta-| */ { ISFUNC, (Function *)0x0 }, /* Meta-} */ { ISFUNC, (Function *)0x0 }, /* Meta-~ */ { ISFUNC, rl_backward_kill_word }, /* Meta-rubout */ #if KEYMAP_SIZE > 128 /* Undefined keys. */ { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 } #endif /* KEYMAP_SIZE > 128 */ }; KEYMAP_ENTRY_ARRAY emacs_ctlx_keymap = { /* Control keys. */ { ISFUNC, (Function *)0x0 }, /* Control-@ */ { ISFUNC, (Function *)0x0 }, /* Control-a */ { ISFUNC, (Function *)0x0 }, /* Control-b */ { ISFUNC, (Function *)0x0 }, /* Control-c */ { ISFUNC, (Function *)0x0 }, /* Control-d */ { ISFUNC, (Function *)0x0 }, /* Control-e */ { ISFUNC, (Function *)0x0 }, /* Control-f */ { ISFUNC, rl_abort }, /* Control-g */ { ISFUNC, (Function *)0x0 }, /* Control-h */ { ISFUNC, (Function *)0x0 }, /* Control-i */ { ISFUNC, (Function *)0x0 }, /* Control-j */ { ISFUNC, (Function *)0x0 }, /* Control-k */ { ISFUNC, (Function *)0x0 }, /* Control-l */ { ISFUNC, (Function *)0x0 }, /* Control-m */ { ISFUNC, (Function *)0x0 }, /* Control-n */ { ISFUNC, (Function *)0x0 }, /* Control-o */ { ISFUNC, (Function *)0x0 }, /* Control-p */ { ISFUNC, (Function *)0x0 }, /* Control-q */ { ISFUNC, rl_re_read_init_file }, /* Control-r */ { ISFUNC, (Function *)0x0 }, /* Control-s */ { ISFUNC, (Function *)0x0 }, /* Control-t */ { ISFUNC, rl_undo_command }, /* Control-u */ { ISFUNC, (Function *)0x0 }, /* Control-v */ { ISFUNC, (Function *)0x0 }, /* Control-w */ { ISFUNC, (Function *)0x0 }, /* Control-x */ { ISFUNC, (Function *)0x0 }, /* Control-y */ { ISFUNC, (Function *)0x0 }, /* Control-z */ { ISFUNC, (Function *)0x0 }, /* Control-[ */ { ISFUNC, (Function *)0x0 }, /* Control-\ */ { ISFUNC, (Function *)0x0 }, /* Control-] */ { ISFUNC, (Function *)0x0 }, /* Control-^ */ { ISFUNC, (Function *)0x0 }, /* Control-_ */ /* The start of printing characters. */ { ISFUNC, (Function *)0x0 }, /* SPACE */ { ISFUNC, (Function *)0x0 }, /* ! */ { ISFUNC, (Function *)0x0 }, /* " */ { ISFUNC, (Function *)0x0 }, /* # */ { ISFUNC, (Function *)0x0 }, /* $ */ { ISFUNC, (Function *)0x0 }, /* % */ { ISFUNC, (Function *)0x0 }, /* & */ { ISFUNC, (Function *)0x0 }, /* ' */ { ISFUNC, rl_start_kbd_macro }, /* ( */ { ISFUNC, rl_end_kbd_macro }, /* ) */ { ISFUNC, (Function *)0x0 }, /* * */ { ISFUNC, (Function *)0x0 }, /* + */ { ISFUNC, (Function *)0x0 }, /* , */ { ISFUNC, (Function *)0x0 }, /* - */ { ISFUNC, (Function *)0x0 }, /* . */ { ISFUNC, (Function *)0x0 }, /* / */ /* Regular digits. */ { ISFUNC, (Function *)0x0 }, /* 0 */ { ISFUNC, (Function *)0x0 }, /* 1 */ { ISFUNC, (Function *)0x0 }, /* 2 */ { ISFUNC, (Function *)0x0 }, /* 3 */ { ISFUNC, (Function *)0x0 }, /* 4 */ { ISFUNC, (Function *)0x0 }, /* 5 */ { ISFUNC, (Function *)0x0 }, /* 6 */ { ISFUNC, (Function *)0x0 }, /* 7 */ { ISFUNC, (Function *)0x0 }, /* 8 */ { ISFUNC, (Function *)0x0 }, /* 9 */ /* A little more punctuation. */ { ISFUNC, (Function *)0x0 }, /* : */ { ISFUNC, (Function *)0x0 }, /* ; */ { ISFUNC, (Function *)0x0 }, /* < */ { ISFUNC, (Function *)0x0 }, /* = */ { ISFUNC, (Function *)0x0 }, /* > */ { ISFUNC, (Function *)0x0 }, /* ? */ { ISFUNC, (Function *)0x0 }, /* @ */ /* Uppercase alphabet. */ { ISFUNC, rl_do_lowercase_version }, /* A */ { ISFUNC, rl_do_lowercase_version }, /* B */ { ISFUNC, rl_do_lowercase_version }, /* C */ { ISFUNC, rl_do_lowercase_version }, /* D */ { ISFUNC, rl_do_lowercase_version }, /* E */ { ISFUNC, rl_do_lowercase_version }, /* F */ { ISFUNC, rl_do_lowercase_version }, /* G */ { ISFUNC, rl_do_lowercase_version }, /* H */ { ISFUNC, rl_do_lowercase_version }, /* I */ { ISFUNC, rl_do_lowercase_version }, /* J */ { ISFUNC, rl_do_lowercase_version }, /* K */ { ISFUNC, rl_do_lowercase_version }, /* L */ { ISFUNC, rl_do_lowercase_version }, /* M */ { ISFUNC, rl_do_lowercase_version }, /* N */ { ISFUNC, rl_do_lowercase_version }, /* O */ { ISFUNC, rl_do_lowercase_version }, /* P */ { ISFUNC, rl_do_lowercase_version }, /* Q */ { ISFUNC, rl_do_lowercase_version }, /* R */ { ISFUNC, rl_do_lowercase_version }, /* S */ { ISFUNC, rl_do_lowercase_version }, /* T */ { ISFUNC, rl_do_lowercase_version }, /* U */ { ISFUNC, rl_do_lowercase_version }, /* V */ { ISFUNC, rl_do_lowercase_version }, /* W */ { ISFUNC, rl_do_lowercase_version }, /* X */ { ISFUNC, rl_do_lowercase_version }, /* Y */ { ISFUNC, rl_do_lowercase_version }, /* Z */ /* Some more punctuation. */ { ISFUNC, (Function *)0x0 }, /* [ */ { ISFUNC, (Function *)0x0 }, /* \ */ { ISFUNC, (Function *)0x0 }, /* ] */ { ISFUNC, (Function *)0x0 }, /* ^ */ { ISFUNC, (Function *)0x0 }, /* _ */ { ISFUNC, (Function *)0x0 }, /* ` */ /* Lowercase alphabet. */ { ISFUNC, (Function *)0x0 }, /* a */ { ISFUNC, (Function *)0x0 }, /* b */ { ISFUNC, (Function *)0x0 }, /* c */ { ISFUNC, (Function *)0x0 }, /* d */ { ISFUNC, rl_call_last_kbd_macro }, /* e */ { ISFUNC, (Function *)0x0 }, /* f */ { ISFUNC, (Function *)0x0 }, /* g */ { ISFUNC, (Function *)0x0 }, /* h */ { ISFUNC, (Function *)0x0 }, /* i */ { ISFUNC, (Function *)0x0 }, /* j */ { ISFUNC, (Function *)0x0 }, /* k */ { ISFUNC, (Function *)0x0 }, /* l */ { ISFUNC, (Function *)0x0 }, /* m */ { ISFUNC, (Function *)0x0 }, /* n */ { ISFUNC, (Function *)0x0 }, /* o */ { ISFUNC, (Function *)0x0 }, /* p */ { ISFUNC, (Function *)0x0 }, /* q */ { ISFUNC, (Function *)0x0 }, /* r */ { ISFUNC, (Function *)0x0 }, /* s */ { ISFUNC, (Function *)0x0 }, /* t */ { ISFUNC, (Function *)0x0 }, /* u */ { ISFUNC, (Function *)0x0 }, /* v */ { ISFUNC, (Function *)0x0 }, /* w */ { ISFUNC, (Function *)0x0 }, /* x */ { ISFUNC, (Function *)0x0 }, /* y */ { ISFUNC, (Function *)0x0 }, /* z */ /* Final punctuation. */ { ISFUNC, (Function *)0x0 }, /* { */ { ISFUNC, (Function *)0x0 }, /* | */ { ISFUNC, (Function *)0x0 }, /* } */ { ISFUNC, (Function *)0x0 }, /* ~ */ { ISFUNC, rl_backward_kill_line }, /* RUBOUT */ #if KEYMAP_SIZE > 128 /* Undefined keys. */ { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 } #endif /* KEYMAP_SIZE > 128 */ }; gdb-4.13/readline/funmap.c 666 34562 1752 20211 5533115500 13763 0ustar fnfcygnus/* funmap.c -- attach names to functions. */ /* Copyright (C) 1988, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* #define STATIC_MALLOC */ #if !defined (STATIC_MALLOC) extern char *xmalloc (), *xrealloc (); #else static char *xmalloc (), *xrealloc (); #endif /* STATIC_MALLOC */ #include "sysdep.h" #include #include "readline.h" FUNMAP **funmap = (FUNMAP **)NULL; static int funmap_size = 0; static int funmap_entry = 0; /* After initializing the function map, this is the index of the first program specific function. */ int funmap_program_specific_entry_start; static FUNMAP default_funmap[] = { { "abort", rl_abort }, { "accept-line", rl_newline }, { "arrow-key-prefix", rl_arrow_keys }, { "backward-char", rl_backward }, { "backward-delete-char", rl_rubout }, { "backward-kill-line", rl_backward_kill_line }, { "backward-kill-word", rl_backward_kill_word }, { "backward-word", rl_backward_word }, { "beginning-of-history", rl_beginning_of_history }, { "beginning-of-line", rl_beg_of_line }, { "call-last-kbd-macro", rl_call_last_kbd_macro }, { "capitalize-word", rl_capitalize_word }, { "clear-screen", rl_clear_screen }, { "complete", rl_complete }, { "delete-char", rl_delete }, { "delete-horizontal-space", rl_delete_horizontal_space }, { "digit-argument", rl_digit_argument }, { "do-lowercase-version", rl_do_lowercase_version }, { "downcase-word", rl_downcase_word }, { "dump-functions", rl_dump_functions }, { "end-kbd-macro", rl_end_kbd_macro }, { "end-of-history", rl_end_of_history }, { "end-of-line", rl_end_of_line }, { "forward-char", rl_forward }, { "forward-search-history", rl_forward_search_history }, { "forward-word", rl_forward_word }, { "insert-completions", rl_insert_completions }, { "kill-line", rl_kill_line }, { "kill-word", rl_kill_word }, { "next-history", rl_get_next_history }, { "non-incremental-forward-search-history", rl_noninc_forward_search }, { "non-incremental-reverse-search-history", rl_noninc_reverse_search }, { "possible-completions", rl_possible_completions }, { "previous-history", rl_get_previous_history }, { "quoted-insert", rl_quoted_insert }, { "re-read-init-file", rl_re_read_init_file }, { "redraw-current-line", rl_refresh_line}, { "reverse-search-history", rl_reverse_search_history }, { "revert-line", rl_revert_line }, { "self-insert", rl_insert }, { "start-kbd-macro", rl_start_kbd_macro }, { "tab-insert", rl_tab_insert }, { "transpose-chars", rl_transpose_chars }, { "transpose-words", rl_transpose_words }, { "undo", rl_undo_command }, { "universal-argument", rl_universal_argument }, { "unix-line-discard", rl_unix_line_discard }, { "unix-word-rubout", rl_unix_word_rubout }, { "upcase-word", rl_upcase_word }, { "yank", rl_yank }, { "yank-nth-arg", rl_yank_nth_arg }, { "yank-pop", rl_yank_pop }, #if defined (VI_MODE) { "vi-append-eol", rl_vi_append_eol }, { "vi-append-mode", rl_vi_append_mode }, { "vi-arg-digit", rl_vi_arg_digit }, { "vi-bWord", rl_vi_bWord }, { "vi-bracktype", rl_vi_bracktype }, { "vi-bword", rl_vi_bword }, { "vi-change-case", rl_vi_change_case }, { "vi-change-char", rl_vi_change_char }, { "vi-change-to", rl_vi_change_to }, { "vi-char-search", rl_vi_char_search }, { "vi-column", rl_vi_column }, { "vi-comment", rl_vi_comment }, { "vi-complete", rl_vi_complete }, { "vi-delete", rl_vi_delete }, { "vi-delete-to", rl_vi_delete_to }, { "vi-eWord", rl_vi_eWord }, { "vi-editing-mode", rl_vi_editing_mode }, { "vi-end-word", rl_vi_end_word }, { "vi-eof-maybe", rl_vi_eof_maybe }, { "vi-eword", rl_vi_eword }, { "vi-fWord", rl_vi_fWord }, { "vi-first-print", rl_vi_first_print }, { "vi-fword", rl_vi_fword }, { "vi-insert-beg", rl_vi_insert_beg }, { "vi-insertion-mode", rl_vi_insertion_mode }, { "vi-match", rl_vi_match }, { "vi-movement-mode", rl_vi_movement_mode }, { "vi-next-word", rl_vi_next_word }, { "vi-overstrike", rl_vi_overstrike }, { "vi-overstrike-delete", rl_vi_overstrike_delete }, { "vi-prev-word", rl_vi_prev_word }, { "vi-put", rl_vi_put }, { "vi-replace", rl_vi_replace }, { "vi-search", rl_vi_search }, { "vi-search-again", rl_vi_search_again }, { "vi-subst", rl_vi_subst }, { "vi-yank-arg", rl_vi_yank_arg }, { "vi-yank-to", rl_vi_yank_to }, #endif /* VI_MODE */ {(char *)NULL, (Function *)NULL } }; rl_add_funmap_entry (name, function) char *name; Function *function; { if (funmap_entry + 2 >= funmap_size) if (!funmap) funmap = (FUNMAP **)xmalloc ((funmap_size = 80) * sizeof (FUNMAP *)); else funmap = (FUNMAP **)xrealloc (funmap, (funmap_size += 80) * sizeof (FUNMAP *)); funmap[funmap_entry] = (FUNMAP *)xmalloc (sizeof (FUNMAP)); funmap[funmap_entry]->name = name; funmap[funmap_entry]->function = function; funmap[++funmap_entry] = (FUNMAP *)NULL; } static int funmap_initialized = 0; /* Make the funmap contain all of the default entries. */ void rl_initialize_funmap () { register int i; if (funmap_initialized) return; for (i = 0; default_funmap[i].name; i++) rl_add_funmap_entry (default_funmap[i].name, default_funmap[i].function); funmap_initialized = 1; funmap_program_specific_entry_start = i; } /* Stupid comparison routine for qsort () ing strings. */ static int qsort_string_compare (s1, s2) register char **s1, **s2; { int r; r = **s1 - **s2; if (r == 0) r = strcmp (*s1, *s2); return r; } /* Produce a NULL terminated array of known function names. The array is sorted. The array itself is allocated, but not the strings inside. You should free () the array when you done, but not the pointrs. */ char ** rl_funmap_names () { char **result = (char **)NULL; int result_size, result_index; result_size = result_index = 0; /* Make sure that the function map has been initialized. */ rl_initialize_funmap (); for (result_index = 0; funmap[result_index]; result_index++) { if (result_index + 2 > result_size) { if (!result) result = (char **)xmalloc ((result_size = 20) * sizeof (char *)); else result = (char **) xrealloc (result, (result_size += 20) * sizeof (char *)); } result[result_index] = funmap[result_index]->name; result[result_index + 1] = (char *)NULL; } qsort (result, result_index, sizeof (char *), qsort_string_compare); return (result); } /* Things that mean `Control'. */ char *possible_control_prefixes[] = { "Control-", "C-", "CTRL-", (char *)NULL }; char *possible_meta_prefixes[] = { "Meta", "M-", (char *)NULL }; #if defined (STATIC_MALLOC) /* **************************************************************** */ /* */ /* xmalloc and xrealloc () */ /* */ /* **************************************************************** */ static void memory_error_and_abort (); static char * xmalloc (bytes) int bytes; { char *temp = (char *)malloc (bytes); if (!temp) memory_error_and_abort (); return (temp); } static char * xrealloc (pointer, bytes) char *pointer; int bytes; { char *temp; if (!pointer) temp = (char *)malloc (bytes); else temp = (char *)realloc (pointer, bytes); if (!temp) memory_error_and_abort (); return (temp); } static void memory_error_and_abort () { fprintf (stderr, "history: Out of virtual memory!\n"); abort (); } #endif /* STATIC_MALLOC */ gdb-4.13/readline/history.c 666 34562 1752 124727 5576564565 14271 0ustar fnfcygnus/* History.c -- standalone history library */ /* Copyright (C) 1989, 1992 Free Software Foundation, Inc. This file contains the GNU History Library (the Library), a set of routines for managing the text of previously typed lines. The Library 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 1, or (at your option) any later version. The Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The goal is to make the implementation transparent, so that you don't have to know what data types are used, just what functions you can call. I think I have done that. */ /* Remove these declarations when we have a complete libgnu.a. */ #if !defined (STATIC_MALLOC) extern char *xmalloc (), *xrealloc (); #else static char *xmalloc (), *xrealloc (); #endif #include "sysdep.h" #include #include /* Not all systems declare ERRNO in errno.h... and some systems #define it! */ #if !defined (errno) extern int errno; #endif /* !errno */ extern char *getenv(); #ifndef NO_SYS_FILE #include #endif #include #include #include "history.h" #include "rldefs.h" #include "chardefs.h" #ifndef whitespace #define whitespace(c) (((c) == ' ') || ((c) == '\t')) #endif #ifndef digit #define digit(c) ((c) >= '0' && (c) <= '9') #endif #ifndef member #define member(c, s) ((c) ? ((char *)strchr ((s), (c)) != (char *)NULL) : 0) #endif static char error_pointer; static char *get_history_word_specifier (); /* **************************************************************** */ /* */ /* History Functions */ /* */ /* **************************************************************** */ /* An array of HIST_ENTRY. This is where we store the history. */ static HIST_ENTRY **the_history = (HIST_ENTRY **)NULL; /* Non-zero means that we have enforced a limit on the amount of history that we save. */ int history_stifled = 0; /* If HISTORY_STIFLED is non-zero, then this is the maximum number of entries to remember. */ int max_input_history; /* The current location of the interactive history pointer. Just makes life easier for outside callers. */ static int history_offset = 0; /* The number of strings currently stored in the input_history list. */ int history_length = 0; /* The current number of slots allocated to the input_history. */ static int history_size = 0; /* The number of slots to increase the_history by. */ #define DEFAULT_HISTORY_GROW_SIZE 50 /* The character that represents the start of a history expansion request. This is usually `!'. */ char history_expansion_char = '!'; /* The character that invokes word substitution if found at the start of a line. This is usually `^'. */ char history_subst_char = '^'; /* During tokenization, if this character is seen as the first character of a word, then it, and all subsequent characters upto a newline are ignored. For a Bourne shell, this should be '#'. Bash special cases the interactive comment character to not be a comment delimiter. */ char history_comment_char = '\0'; /* The list of characters which inhibit the expansion of text if found immediately following history_expansion_char. */ char *history_no_expand_chars = " \t\n\r="; /* The logical `base' of the history array. It defaults to 1. */ int history_base = 1; /* Return the current HISTORY_STATE of the history. */ HISTORY_STATE * history_get_history_state () { HISTORY_STATE *state; state = (HISTORY_STATE *)xmalloc (sizeof (HISTORY_STATE)); state->entries = the_history; state->offset = history_offset; state->length = history_length; state->size = history_size; return (state); } /* Set the state of the current history array to STATE. */ void history_set_history_state (state) HISTORY_STATE *state; { the_history = state->entries; history_offset = state->offset; history_length = state->length; history_size = state->size; } /* Begin a session in which the history functions might be used. This initializes interactive variables. */ void using_history () { history_offset = history_length; } /* Return the number of bytes that the primary history entries are using. This just adds up the lengths of the_history->lines. */ int history_total_bytes () { register int i, result; result = 0; for (i = 0; the_history && the_history[i]; i++) result += strlen (the_history[i]->line); return (result); } /* Place STRING at the end of the history list. The data field is set to NULL. */ void add_history (string) char *string; { HIST_ENTRY *temp; if (history_stifled && (history_length == max_input_history)) { register int i; /* If the history is stifled, and history_length is zero, and it equals max_input_history, we don't save items. */ if (!history_length) return; /* If there is something in the slot, then remove it. */ if (the_history[0]) { free (the_history[0]->line); free (the_history[0]); } for (i = 0; i < history_length; i++) the_history[i] = the_history[i + 1]; history_base++; } else { if (!history_size) { the_history = (HIST_ENTRY **) xmalloc ((history_size = DEFAULT_HISTORY_GROW_SIZE) * sizeof (HIST_ENTRY *)); history_length = 1; } else { if (history_length == (history_size - 1)) { the_history = (HIST_ENTRY **) xrealloc (the_history, ((history_size += DEFAULT_HISTORY_GROW_SIZE) * sizeof (HIST_ENTRY *))); } history_length++; } } temp = (HIST_ENTRY *)xmalloc (sizeof (HIST_ENTRY)); temp->line = savestring (string); temp->data = (char *)NULL; the_history[history_length] = (HIST_ENTRY *)NULL; the_history[history_length - 1] = temp; } /* Make the history entry at WHICH have LINE and DATA. This returns the old entry so you can dispose of the data. In the case of an invalid WHICH, a NULL pointer is returned. */ HIST_ENTRY * replace_history_entry (which, line, data) int which; char *line; char *data; { HIST_ENTRY *temp = (HIST_ENTRY *)xmalloc (sizeof (HIST_ENTRY)); HIST_ENTRY *old_value; if (which >= history_length) return ((HIST_ENTRY *)NULL); old_value = the_history[which]; temp->line = savestring (line); temp->data = data; the_history[which] = temp; return (old_value); } /* Returns the magic number which says what history element we are looking at now. In this implementation, it returns history_offset. */ int where_history () { return (history_offset); } /* Search the history for STRING, starting at history_offset. If DIRECTION < 0, then the search is through previous entries, else through subsequent. If ANCHORED is non-zero, the string must appear at the beginning of a history line, otherwise, the string may appear anywhere in the line. If the string is found, then current_history () is the history entry, and the value of this function is the offset in the line of that history entry that the string was found in. Otherwise, nothing is changed, and a -1 is returned. */ #define ANCHORED_SEARCH 1 #define NON_ANCHORED_SEARCH 0 static int history_search_internal (string, direction, anchored) char *string; int direction, anchored; { register int i = history_offset; register int reverse = (direction < 0); register char *line; register int index; int string_len = strlen (string); /* Take care of trivial cases first. */ if (!history_length || ((i == history_length) && !reverse)) return (-1); if (reverse && (i == history_length)) i--; while (1) { /* Search each line in the history list for STRING. */ /* At limit for direction? */ if ((reverse && i < 0) || (!reverse && i == history_length)) return (-1); line = the_history[i]->line; index = strlen (line); /* If STRING is longer than line, no match. */ if (string_len > index) goto next_line; /* Handle anchored searches first. */ if (anchored == ANCHORED_SEARCH) { if (strncmp (string, line, string_len) == 0) { history_offset = i; return (0); } goto next_line; } /* Do substring search. */ if (reverse) { index -= string_len; while (index >= 0) { if (strncmp (string, line + index, string_len) == 0) { history_offset = i; return (index); } index--; } } else { register int limit = index - string_len + 1; index = 0; while (index < limit) { if (strncmp (string, line + index, string_len) == 0) { history_offset = i; return (index); } index++; } } next_line: if (reverse) i--; else i++; } } /* Do a non-anchored search for STRING through the history in DIRECTION. */ int history_search (string, direction) char *string; int direction; { return (history_search_internal (string, direction, NON_ANCHORED_SEARCH)); } /* Do an anchored search for string through the history in DIRECTION. */ int history_search_prefix (string, direction) char *string; int direction; { return (history_search_internal (string, direction, ANCHORED_SEARCH)); } /* Remove history element WHICH from the history. The removed element is returned to you so you can free the line, data, and containing structure. */ HIST_ENTRY * remove_history (which) int which; { HIST_ENTRY *return_value; if (which >= history_length || !history_length) return_value = (HIST_ENTRY *)NULL; else { register int i; return_value = the_history[which]; for (i = which; i < history_length; i++) the_history[i] = the_history[i + 1]; history_length--; } return (return_value); } /* Stifle the history list, remembering only MAX number of lines. */ void stifle_history (max) int max; { if (max < 0) max = 0; if (history_length > max) { register int i, j; /* This loses because we cannot free the data. */ for (i = 0; i < (history_length - max); i++) { free (the_history[i]->line); free (the_history[i]); } history_base = i; for (j = 0, i = history_length - max; j < max; i++, j++) the_history[j] = the_history[i]; the_history[j] = (HIST_ENTRY *)NULL; history_length = j; } history_stifled = 1; max_input_history = max; } /* Stop stifling the history. This returns the previous amount the history was stifled by. The value is positive if the history was stifled, negative if it wasn't. */ int unstifle_history () { int result = max_input_history; if (history_stifled) { result = -result; history_stifled = 0; } return (result); } /* Return the string that should be used in the place of this filename. This only matters when you don't specify the filename to read_history (), or write_history (). */ static char * history_filename (filename) char *filename; { char *return_val = filename ? savestring (filename) : (char *)NULL; if (!return_val) { char *home; home = getenv ("HOME"); if (!home) home = "."; return_val = (char *)xmalloc (2 + strlen (home) + strlen (".history")); sprintf (return_val, "%s/.history", home); } return (return_val); } /* Add the contents of FILENAME to the history list, a line at a time. If FILENAME is NULL, then read from ~/.history. Returns 0 if successful, or errno if not. */ int read_history (filename) char *filename; { return (read_history_range (filename, 0, -1)); } /* Read a range of lines from FILENAME, adding them to the history list. Start reading at the FROM'th line and end at the TO'th. If FROM is zero, start at the beginning. If TO is less than FROM, read until the end of the file. If FILENAME is NULL, then read from ~/.history. Returns 0 if successful, or errno if not. */ int read_history_range (filename, from, to) char *filename; int from, to; { register int line_start, line_end; char *input, *buffer = (char *)NULL; int file, current_line; struct stat finfo; input = history_filename (filename); file = open (input, O_RDONLY, 0666); if ((file < 0) || (stat (input, &finfo) == -1)) goto error_and_exit; buffer = (char *)xmalloc ((int)finfo.st_size + 1); if (read (file, buffer, finfo.st_size) != finfo.st_size) error_and_exit: { if (file >= 0) close (file); if (input) free (input); if (buffer) free (buffer); return (errno); } close (file); /* Set TO to larger than end of file if negative. */ if (to < 0) to = finfo.st_size; /* Start at beginning of file, work to end. */ line_start = line_end = current_line = 0; /* Skip lines until we are at FROM. */ while (line_start < finfo.st_size && current_line < from) { for (line_end = line_start; line_end < finfo.st_size; line_end++) if (buffer[line_end] == '\n') { current_line++; line_start = line_end + 1; if (current_line == from) break; } } /* If there are lines left to gobble, then gobble them now. */ for (line_end = line_start; line_end < finfo.st_size; line_end++) if (buffer[line_end] == '\n') { buffer[line_end] = '\0'; if (buffer[line_start]) add_history (buffer + line_start); current_line++; if (current_line >= to) break; line_start = line_end + 1; } if (input) free (input); if (buffer) free (buffer); return (0); } /* Truncate the history file FNAME, leaving only LINES trailing lines. If FNAME is NULL, then use ~/.history. */ int history_truncate_file (fname, lines) char *fname; register int lines; { register int i; int file, chars_read; char *buffer = (char *)NULL, *filename; struct stat finfo; filename = history_filename (fname); if (stat (filename, &finfo) == -1) goto truncate_exit; file = open (filename, O_RDONLY, 0666); if (file == -1) goto truncate_exit; buffer = (char *)xmalloc ((int)finfo.st_size + 1); chars_read = read (file, buffer, finfo.st_size); close (file); if (chars_read <= 0) goto truncate_exit; /* Count backwards from the end of buffer until we have passed LINES lines. */ for (i = chars_read - 1; lines && i; i--) { if (buffer[i] == '\n') lines--; } /* If there are fewer lines in the file than we want to truncate to, then we are all done. */ if (!i) goto truncate_exit; /* Otherwise, write from the start of this line until the end of the buffer. */ for (--i; i; i--) if (buffer[i] == '\n') { i++; break; } file = open (filename, O_WRONLY | O_TRUNC | O_CREAT, 0666); if (file == -1) goto truncate_exit; write (file, buffer + i, finfo.st_size - i); close (file); truncate_exit: if (buffer) free (buffer); free (filename); return 0; } #define HISTORY_APPEND 0 #define HISTORY_OVERWRITE 1 /* Workhorse function for writing history. Writes NELEMENT entries from the history list to FILENAME. OVERWRITE is non-zero if you wish to replace FILENAME with the entries. */ static int history_do_write (filename, nelements, overwrite) char *filename; int nelements, overwrite; { register int i; char *output = history_filename (filename); int file, mode; if (overwrite) mode = O_WRONLY | O_CREAT | O_TRUNC; else mode = O_WRONLY | O_APPEND; if ((file = open (output, mode, 0666)) == -1) { if (output) free (output); return (errno); } if (nelements > history_length) nelements = history_length; /* Build a buffer of all the lines to write, and write them in one syscall. Suggested by Peter Ho (peter@robosts.oxford.ac.uk). */ { register int j = 0; int buffer_size = 0; char *buffer; /* Calculate the total number of bytes to write. */ for (i = history_length - nelements; i < history_length; i++) buffer_size += 1 + strlen (the_history[i]->line); /* Allocate the buffer, and fill it. */ buffer = (char *)xmalloc (buffer_size); for (i = history_length - nelements; i < history_length; i++) { strcpy (buffer + j, the_history[i]->line); j += strlen (the_history[i]->line); buffer[j++] = '\n'; } write (file, buffer, buffer_size); free (buffer); } close (file); if (output) free (output); return (0); } /* Append NELEMENT entries to FILENAME. The entries appended are from the end of the list minus NELEMENTs up to the end of the list. */ int append_history (nelements, filename) int nelements; char *filename; { return (history_do_write (filename, nelements, HISTORY_APPEND)); } /* Overwrite FILENAME with the current history. If FILENAME is NULL, then write the history list to ~/.history. Values returned are as in read_history ().*/ int write_history (filename) char *filename; { return (history_do_write (filename, history_length, HISTORY_OVERWRITE)); } /* Return the history entry at the current position, as determined by history_offset. If there is no entry there, return a NULL pointer. */ HIST_ENTRY * current_history () { if ((history_offset == history_length) || !the_history) return ((HIST_ENTRY *)NULL); else return (the_history[history_offset]); } /* Back up history_offset to the previous history entry, and return a pointer to that entry. If there is no previous entry then return a NULL pointer. */ HIST_ENTRY * previous_history () { if (!history_offset) return ((HIST_ENTRY *)NULL); else return (the_history[--history_offset]); } /* Move history_offset forward to the next history entry, and return a pointer to that entry. If there is no next entry then return a NULL pointer. */ HIST_ENTRY * next_history () { if (history_offset == history_length) return ((HIST_ENTRY *)NULL); else return (the_history[++history_offset]); } /* Return the current history array. The caller has to be carefull, since this is the actual array of data, and could be bashed or made corrupt easily. The array is terminated with a NULL pointer. */ HIST_ENTRY ** history_list () { return (the_history); } /* Return the history entry which is logically at OFFSET in the history array. OFFSET is relative to history_base. */ HIST_ENTRY * history_get (offset) int offset; { int local_index = offset - history_base; if (local_index >= history_length || local_index < 0 || !the_history) return ((HIST_ENTRY *)NULL); return (the_history[local_index]); } /* Search for STRING in the history list. DIR is < 0 for searching backwards. POS is an absolute index into the history list at which point to begin searching. */ int history_search_pos (string, dir, pos) char *string; int dir, pos; { int ret, old = where_history (); history_set_pos (pos); if (history_search (string, dir) == -1) { history_set_pos (old); return (-1); } ret = where_history (); history_set_pos (old); return ret; } /* Make the current history item be the one at POS, an absolute index. Returns zero if POS is out of range, else non-zero. */ int history_set_pos (pos) int pos; { if (pos > history_length || pos < 0 || !the_history) return (0); history_offset = pos; return (1); } /* **************************************************************** */ /* */ /* History Expansion */ /* */ /* **************************************************************** */ /* Hairy history expansion on text, not tokens. This is of general use, and thus belongs in this library. */ /* The last string searched for in a !?string? search. */ static char *search_string = (char *)NULL; /* Return the event specified at TEXT + OFFSET modifying OFFSET to point to after the event specifier. Just a pointer to the history line is returned; NULL is returned in the event of a bad specifier. You pass STRING with *INDEX equal to the history_expansion_char that begins this specification. DELIMITING_QUOTE is a character that is allowed to end the string specification for what to search for in addition to the normal characters `:', ` ', `\t', `\n', and sometimes `?'. So you might call this function like: line = get_history_event ("!echo:p", &index, 0); */ char * get_history_event (string, caller_index, delimiting_quote) char *string; int *caller_index; int delimiting_quote; { register int i = *caller_index; int which, sign = 1; HIST_ENTRY *entry; /* The event can be specified in a number of ways. !! the previous command !n command line N !-n current command-line minus N !str the most recent command starting with STR !?str[?] the most recent command containing STR All values N are determined via HISTORY_BASE. */ if (string[i] != history_expansion_char) return ((char *)NULL); /* Move on to the specification. */ i++; /* Handle !! case. */ if (string[i] == history_expansion_char) { i++; which = history_base + (history_length - 1); *caller_index = i; goto get_which; } /* Hack case of numeric line specification. */ if (string[i] == '-') { sign = -1; i++; } if (digit (string[i])) { int start = i; /* Get the extent of the digits. */ for (; digit (string[i]); i++); /* Get the digit value. */ sscanf (string + start, "%d", &which); *caller_index = i; if (sign < 0) which = (history_length + history_base) - which; get_which: if (entry = history_get (which)) return (entry->line); return ((char *)NULL); } /* This must be something to search for. If the spec begins with a '?', then the string may be anywhere on the line. Otherwise, the string must be found at the start of a line. */ { int local_index; char *temp; int substring_okay = 0; if (string[i] == '?') { substring_okay++; i++; } for (local_index = i; string[i]; i++) if (whitespace (string[i]) || string[i] == '\n' || string[i] == ':' || (substring_okay && string[i] == '?') || #if defined (SHELL) member (string[i], ";&()|<>") || #endif /* SHELL */ string[i] == delimiting_quote) break; temp = (char *)alloca (1 + (i - local_index)); strncpy (temp, &string[local_index], (i - local_index)); temp[i - local_index] = '\0'; if (string[i] == '?') i++; *caller_index = i; search_again: local_index = history_search_internal (temp, -1, substring_okay ? NON_ANCHORED_SEARCH : ANCHORED_SEARCH); if (local_index < 0) search_lost: { history_offset = history_length; return ((char *)NULL); } if (local_index == 0 || substring_okay) { entry = current_history (); history_offset = history_length; /* If this was a substring search, then remember the string that we matched for word substitution. */ if (substring_okay) { if (search_string) free (search_string); search_string = savestring (temp); } return (entry->line); } if (history_offset) history_offset--; else goto search_lost; goto search_again; } } #if defined (SHELL) /* Function for extracting single-quoted strings. Used for inhibiting history expansion within single quotes. */ /* Extract the contents of STRING as if it is enclosed in single quotes. SINDEX, when passed in, is the offset of the character immediately following the opening single quote; on exit, SINDEX is left pointing to the closing single quote. */ static void rl_string_extract_single_quoted (string, sindex) char *string; int *sindex; { register int i = *sindex; while (string[i] && string[i] != '\'') i++; *sindex = i; } #endif /* SHELL */ /* Expand the string STRING, placing the result into OUTPUT, a pointer to a string. Returns: 0) If no expansions took place (or, if the only change in the text was the de-slashifying of the history expansion character) 1) If expansions did take place -1) If there was an error in expansion. If an error ocurred in expansion, then OUTPUT contains a descriptive error message. */ int history_expand (string, output) char *string; char **output; { register int j, l = strlen (string); int i, word_spec_error = 0; int cc, modified = 0; char *word_spec, *event; int starting_index, only_printing = 0, substitute_globally = 0; /* The output string, and its length. */ int len = 0; char *result = (char *)NULL; /* Used in add_string; */ char *temp, tt[2], tbl[3]; /* Prepare the buffer for printing error messages. */ result = (char *)xmalloc (len = 256); result[0] = tt[1] = tbl[2] = '\0'; tbl[0] = '\\'; tbl[1] = history_expansion_char; /* Grovel the string. Only backslash can quote the history escape character. We also handle arg specifiers. */ /* Before we grovel forever, see if the history_expansion_char appears anywhere within the text. */ /* The quick substitution character is a history expansion all right. That is to say, "^this^that^" is equivalent to "!!:s^this^that^", and in fact, that is the substitution that we do. */ if (string[0] == history_subst_char) { char *format_string = (char *)alloca (10 + strlen (string)); sprintf (format_string, "%c%c:s%s", history_expansion_char, history_expansion_char, string); string = format_string; l += 4; goto grovel; } /* If not quick substitution, still maybe have to do expansion. */ /* `!' followed by one of the characters in history_no_expand_chars is NOT an expansion. */ for (i = 0; string[i]; i++) { if (string[i] == history_expansion_char) { if (!string[i + 1] || member (string[i + 1], history_no_expand_chars)) continue; #if defined (SHELL) /* The shell uses ! as a pattern negation character in globbing [...] expressions, so let those pass without expansion. */ else if (i > 0 && (string[i - 1] == '[') && member (']', string + i)) continue; #endif /* SHELL */ else goto grovel; } #if defined (SHELL) else if (string[i] == '\'') { /* If this is bash, single quotes inhibit history expansion. */ i++; rl_string_extract_single_quoted (string, &i); } else if (string[i] == '\\') { /* If this is bash, allow backslashes to quote single quotes and the history expansion character. */ if (string[i + 1] == '\'' || (string[i + 1] == history_expansion_char)) i++; } #endif /* SHELL */ } free (result); *output = savestring (string); return (0); grovel: for (i = j = 0; i < l; i++) { int passc = 0; int tchar = string[i]; if (tchar == history_expansion_char) tchar = -3; if (passc) { passc = 0; goto add_char; } switch (tchar) { case '\\': if (string[i + 1] == history_expansion_char) { i++; temp = tbl; goto do_add; } else { passc++; goto add_char; } #if defined (SHELL) case '\'': { /* If this is bash, single quotes inhibit history expansion. */ int quote = i, slen; ++i; rl_string_extract_single_quoted (string, &i); slen = i - quote + 2; temp = (char *)alloca (slen); strncpy (temp, string + quote, slen); temp[slen - 1] = '\0'; goto do_add; } #endif /* SHELL */ /* case history_expansion_char: */ case -3: starting_index = i + 1; cc = string[i + 1]; /* If the history_expansion_char is followed by one of the characters in history_no_expand_chars, then it is not a candidate for expansion of any kind. */ if (member (cc, history_no_expand_chars)) goto add_char; /* There is something that is listed as a `word specifier' in csh documentation which means `the expanded text to this point'. That is not a word specifier, it is an event specifier. */ if (cc == '#') goto hack_pound_sign; /* If it is followed by something that starts a word specifier, then !! is implied as the event specifier. */ if (member (cc, ":$*%^")) { char fake_s[3]; int fake_i = 0; i++; fake_s[0] = fake_s[1] = history_expansion_char; fake_s[2] = '\0'; event = get_history_event (fake_s, &fake_i, 0); } else { int quoted_search_delimiter = 0; /* If the character before this `!' is a double or single quote, then this expansion takes place inside of the quoted string. If we have to search for some text ("!foo"), allow the delimiter to end the search string. */ if (i && (string[i - 1] == '\'' || string[i - 1] == '"')) quoted_search_delimiter = string[i - 1]; event = get_history_event (string, &i, quoted_search_delimiter); } if (!event) event_not_found: { int ll = 1 + (i - starting_index); temp = (char *)alloca (1 + ll); strncpy (temp, string + starting_index, ll); temp[ll - 1] = 0; sprintf (result, "%s: %s.", temp, word_spec_error ? "Bad word specifier" : "Event not found"); *output = result; return (-1); } /* If a word specifier is found, then do what that requires. */ starting_index = i; word_spec = get_history_word_specifier (string, event, &i); /* There is no such thing as a `malformed word specifier'. However, it is possible for a specifier that has no match. In that case, we complain. */ if (word_spec == (char *)&error_pointer) { word_spec_error++; goto event_not_found; } /* If no word specifier, than the thing of interest was the event. */ if (!word_spec) temp = event; else { temp = (char *)alloca (1 + strlen (word_spec)); strcpy (temp, word_spec); free (word_spec); } /* Perhaps there are other modifiers involved. Do what they say. */ hack_specials: if (string[i] == ':') { char *tstr; switch (string[i + 1]) { /* :p means make this the last executed line. So we return an error state after adding this line to the history. */ case 'p': only_printing++; goto next_special; /* :t discards all but the last part of the pathname. */ case 't': tstr = strrchr (temp, '/'); if (tstr) temp = ++tstr; goto next_special; /* :h discards the last part of a pathname. */ case 'h': tstr = strrchr (temp, '/'); if (tstr) *tstr = '\0'; goto next_special; /* :r discards the suffix. */ case 'r': tstr = strrchr (temp, '.'); if (tstr) *tstr = '\0'; goto next_special; /* :e discards everything but the suffix. */ case 'e': tstr = strrchr (temp, '.'); if (tstr) temp = tstr; goto next_special; /* :s/this/that substitutes `this' for `that'. */ /* :gs/this/that substitutes `this' for `that' globally. */ case 'g': #ifdef NOTYET /* :g/this/that is equivalent to :gs/this/that */ substitute_globally = 1; if (string[i + 2] == 's') i++; #else if (string[i + 2] == 's') { i++; substitute_globally = 1; goto substitute; } #endif else case 's': substitute: { char *this, *that, *new_event; int delimiter = 0; int si, l_this, l_that, l_temp = strlen (temp); if (i + 2 < (int)strlen (string)) delimiter = string[i + 2]; if (!delimiter) break; i += 3; /* Get THIS. */ for (si = i; string[si] && string[si] != delimiter; si++); l_this = (si - i); this = (char *)alloca (1 + l_this); strncpy (this, string + i, l_this); this[l_this] = '\0'; i = si; if (string[si]) i++; /* Get THAT. */ for (si = i; string[si] && string[si] != delimiter; si++); l_that = (si - i); that = (char *)alloca (1 + l_that); strncpy (that, string + i, l_that); that[l_that] = '\0'; i = si; if (string[si]) i++; /* Ignore impossible cases. */ if (l_this > l_temp) goto cant_substitute; /* Find the first occurrence of THIS in TEMP. */ si = 0; for (; (si + l_this) <= l_temp; si++) if (strncmp (temp + si, this, l_this) == 0) { new_event = (char *)alloca (1 + (l_that - l_this) + l_temp); strncpy (new_event, temp, si); strncpy (new_event + si, that, l_that); strncpy (new_event + si + l_that, temp + si + l_this, l_temp - (si + l_this)); new_event[(l_that - l_this) + l_temp] = '\0'; temp = new_event; if (substitute_globally) { si += l_that; l_temp = strlen (temp); substitute_globally++; continue; } goto hack_specials; } cant_substitute: if (substitute_globally > 1) { substitute_globally = 0; goto hack_specials; } goto event_not_found; } /* :# is the line so far. Note that we have to alloca () it since RESULT could be realloc ()'ed below in add_string. */ case '#': hack_pound_sign: if (result) { temp = (char *)alloca (1 + strlen (result)); strcpy (temp, result); } else temp = ""; next_special: i += 2; goto hack_specials; } } /* Believe it or not, we have to back the pointer up by one. */ --i; goto add_string; /* A regular character. Just add it to the output string. */ default: add_char: tt[0] = string[i]; temp = tt; goto do_add; add_string: modified++; do_add: j += strlen (temp); while (j > (len - 1)) result = (char *)xrealloc (result, (len += 256)); strcpy (result + (j - strlen (temp)), temp); } } *output = result; if (only_printing) { add_history (result); return (-1); } return (modified != 0); } /* Return a consed string which is the word specified in SPEC, and found in FROM. NULL is returned if there is no spec. The address of ERROR_POINTER is returned if the word specified cannot be found. CALLER_INDEX is the offset in SPEC to start looking; it is updated to point to just after the last character parsed. */ static char * get_history_word_specifier (spec, from, caller_index) char *spec, *from; int *caller_index; { register int i = *caller_index; int first, last; int expecting_word_spec = 0; char *history_arg_extract (); /* The range of words to return doesn't exist yet. */ first = last = 0; /* If we found a colon, then this *must* be a word specification. If it isn't, then it is an error. */ if (spec[i] == ':') i++, expecting_word_spec++; /* Handle special cases first. */ /* `%' is the word last searched for. */ if (spec[i] == '%') { *caller_index = i + 1; if (search_string) return (savestring (search_string)); else return (savestring ("")); } /* `*' matches all of the arguments, but not the command. */ if (spec[i] == '*') { char *star_result; *caller_index = i + 1; star_result = history_arg_extract (1, '$', from); if (!star_result) star_result = savestring (""); return (star_result); } /* `$' is last arg. */ if (spec[i] == '$') { *caller_index = i + 1; return (history_arg_extract ('$', '$', from)); } /* Try to get FIRST and LAST figured out. */ if (spec[i] == '-' || spec[i] == '^') { first = 1; goto get_last; } if (digit (spec[i]) && expecting_word_spec) { sscanf (spec + i, "%d", &first); for (; digit (spec[i]); i++); } else return ((char *)NULL); get_last: if (spec[i] == '^') { i++; last = 1; goto get_args; } if (spec[i] != '-') { last = first; goto get_args; } i++; if (digit (spec[i])) { sscanf (spec + i, "%d", &last); for (; digit (spec[i]); i++); } else if (spec[i] == '$') { i++; last = '$'; } get_args: { char *result = (char *)NULL; *caller_index = i; if (last >= first) result = history_arg_extract (first, last, from); if (result) return (result); else return ((char *)&error_pointer); } } /* Extract the args specified, starting at FIRST, and ending at LAST. The args are taken from STRING. If either FIRST or LAST is < 0, then make that arg count from the right (subtract from the number of tokens, so that FIRST = -1 means the next to last token on the line). */ char * history_arg_extract (first, last, string) int first, last; char *string; { register int i, len; char *result = (char *)NULL; int size = 0, offset = 0; char **history_tokenize (), **list; if (!(list = history_tokenize (string))) return ((char *)NULL); for (len = 0; list[len]; len++); if (last < 0) last = len + last - 1; if (first < 0) first = len + first - 1; if (last == '$') last = len - 1; if (first == '$') first = len - 1; last++; if (first > len || last > len || first < 0 || last < 0) result = ((char *)NULL); else { for (i = first; i < last; i++) { int l = strlen (list[i]); if (!result) result = (char *)xmalloc ((size = (2 + l))); else result = (char *)xrealloc (result, (size += (2 + l))); strcpy (result + offset, list[i]); offset += l; if (i + 1 < last) { strcpy (result + offset, " "); offset++; } } } for (i = 0; i < len; i++) free (list[i]); free (list); return (result); } #define slashify_in_quotes "\\`\"$" /* Return an array of tokens, much as the shell might. The tokens are parsed out of STRING. */ char ** history_tokenize (string) char *string; { char **result = (char **)NULL; register int i, start, result_index, size; int len; i = result_index = size = 0; /* Get a token, and stuff it into RESULT. The tokens are split exactly where the shell would split them. */ get_token: /* Skip leading whitespace. */ for (; string[i] && whitespace(string[i]); i++); start = i; if (!string[i] || string[i] == history_comment_char) return (result); if (member (string[i], "()\n")) { i++; goto got_token; } if (member (string[i], "<>;&|$")) { int peek = string[i + 1]; if (peek == string[i] && peek != '$') { if (peek == '<' && string[i + 2] == '-') i++; i += 2; goto got_token; } else { if ((peek == '&' && (string[i] == '>' || string[i] == '<')) || ((peek == '>') && (string[i] == '&')) || ((peek == '(') && (string[i] == '$'))) { i += 2; goto got_token; } } if (string[i] != '$') { i++; goto got_token; } } /* Get word from string + i; */ { int delimiter = 0; if (member (string[i], "\"'`")) delimiter = string[i++]; for (;string[i]; i++) { if (string[i] == '\\') { if (string[i + 1] == '\n') { i++; continue; } else { if (delimiter != '\'') if ((delimiter != '"') || (member (string[i], slashify_in_quotes))) { i++; continue; } } } if (delimiter && string[i] == delimiter) { delimiter = 0; continue; } if (!delimiter && (member (string[i], " \t\n;&()|<>"))) goto got_token; if (!delimiter && member (string[i], "\"'`")) { delimiter = string[i]; continue; } } got_token: len = i - start; if (result_index + 2 >= size) { if (!size) result = (char **)xmalloc ((size = 10) * (sizeof (char *))); else result = (char **)xrealloc (result, ((size += 10) * (sizeof (char *)))); } result[result_index] = (char *)xmalloc (1 + len); strncpy (result[result_index], string + start, len); result[result_index][len] = '\0'; result_index++; result[result_index] = (char *)NULL; } if (string[i]) goto get_token; return (result); } #if defined (STATIC_MALLOC) /* **************************************************************** */ /* */ /* xmalloc and xrealloc () */ /* */ /* **************************************************************** */ static void memory_error_and_abort (); static char * xmalloc (bytes) int bytes; { char *temp = (char *)malloc (bytes); if (!temp) memory_error_and_abort (); return (temp); } static char * xrealloc (pointer, bytes) char *pointer; int bytes; { char *temp; if (!pointer) temp = (char *)xmalloc (bytes); else temp = (char *)realloc (pointer, bytes); if (!temp) memory_error_and_abort (); return (temp); } static void memory_error_and_abort () { fprintf (stderr, "history: Out of virtual memory!\n"); abort (); } #endif /* STATIC_MALLOC */ /* **************************************************************** */ /* */ /* Test Code */ /* */ /* **************************************************************** */ #ifdef TEST main () { char line[1024], *t; int done = 0; line[0] = 0; while (!done) { fprintf (stdout, "history%% "); t = gets (line); if (!t) strcpy (line, "quit"); if (line[0]) { char *expansion; int result; using_history (); result = history_expand (line, &expansion); strcpy (line, expansion); free (expansion); if (result) fprintf (stderr, "%s\n", line); if (result < 0) continue; add_history (line); } if (strcmp (line, "quit") == 0) done = 1; if (strcmp (line, "save") == 0) write_history (0); if (strcmp (line, "read") == 0) read_history (0); if (strcmp (line, "list") == 0) { register HIST_ENTRY **the_list = history_list (); register int i; if (the_list) for (i = 0; the_list[i]; i++) fprintf (stdout, "%d: %s\n", i + history_base, the_list[i]->line); } if (strncmp (line, "delete", strlen ("delete")) == 0) { int which; if ((sscanf (line + strlen ("delete"), "%d", &which)) == 1) { HIST_ENTRY *entry = remove_history (which); if (!entry) fprintf (stderr, "No such entry %d\n", which); else { free (entry->line); free (entry); } } else { fprintf (stderr, "non-numeric arg given to `delete'\n"); } } } } #endif /* TEST */ /* * Local variables: * compile-command: "gcc -g -DTEST -o history history.c" * end: */ gdb-4.13/readline/history.h 666 34562 1752 12450 5516133363 14221 0ustar fnfcygnus/* History.h -- the names of functions that you can call in history. */ /* The structure used to store a history entry. */ typedef struct { char *line; char *data; } HIST_ENTRY; /* A structure used to pass the current state of the history stuff around. */ typedef struct _hist_entry { HIST_ENTRY **entries; /* Pointer to the entries themselves. */ int offset; /* The location pointer within this array. */ int length; /* Number of elements within this array. */ int size; /* Number of slots allocated to this array. */ } HISTORY_STATE; /* For convenience only. You set this when interpreting history commands. It is the logical offset of the first history element. */ extern int history_base; /* Begin a session in which the history functions might be used. This just initializes the interactive variables. */ extern void using_history (); /* Return the current HISTORY_STATE of the history. */ extern HISTORY_STATE *history_get_history_state (); /* Set the state of the current history array to STATE. */ extern void history_set_history_state (); /* Place STRING at the end of the history list. The associated data field (if any) is set to NULL. */ extern void add_history (); /* Returns the number which says what history element we are now looking at. */ extern int where_history (); /* Set the position in the history list to POS. */ int history_set_pos (); /* Search for STRING in the history list, starting at POS, an absolute index into the list. DIR, if negative, says to search backwards from POS, else forwards. Returns the absolute index of the history element where STRING was found, or -1 otherwise. */ extern int history_search_pos (); /* A reasonably useless function, only here for completeness. WHICH is the magic number that tells us which element to delete. The elements are numbered from 0. */ extern HIST_ENTRY *remove_history (); /* Stifle the history list, remembering only MAX number of entries. */ extern void stifle_history (); /* Stop stifling the history. This returns the previous amount the history was stifled by. The value is positive if the history was stifled, negative if it wasn't. */ extern int unstifle_history (); /* Add the contents of FILENAME to the history list, a line at a time. If FILENAME is NULL, then read from ~/.history. Returns 0 if successful, or errno if not. */ extern int read_history (); /* Read a range of lines from FILENAME, adding them to the history list. Start reading at the FROM'th line and end at the TO'th. If FROM is zero, start at the beginning. If TO is less than FROM, read until the end of the file. If FILENAME is NULL, then read from ~/.history. Returns 0 if successful, or errno if not. */ extern int read_history_range (); /* Append the current history to FILENAME. If FILENAME is NULL, then append the history list to ~/.history. Values returned are as in read_history (). */ extern int write_history (); /* Append NELEMENT entries to FILENAME. The entries appended are from the end of the list minus NELEMENTs up to the end of the list. */ int append_history (); /* Make the history entry at WHICH have LINE and DATA. This returns the old entry so you can dispose of the data. In the case of an invalid WHICH, a NULL pointer is returned. */ extern HIST_ENTRY *replace_history_entry (); /* Return the history entry at the current position, as determined by history_offset. If there is no entry there, return a NULL pointer. */ HIST_ENTRY *current_history (); /* Back up history_offset to the previous history entry, and return a pointer to that entry. If there is no previous entry, return a NULL pointer. */ extern HIST_ENTRY *previous_history (); /* Move history_offset forward to the next item in the input_history, and return the a pointer to that entry. If there is no next entry, return a NULL pointer. */ extern HIST_ENTRY *next_history (); /* Return a NULL terminated array of HIST_ENTRY which is the current input history. Element 0 of this list is the beginning of time. If there is no history, return NULL. */ extern HIST_ENTRY **history_list (); /* Search the history for STRING, starting at history_offset. If DIRECTION < 0, then the search is through previous entries, else through subsequent. If the string is found, then current_history () is the history entry, and the value of this function is the offset in the line of that history entry that the string was found in. Otherwise, nothing is changed, and a -1 is returned. */ extern int history_search (); /* Expand the string STRING, placing the result into OUTPUT, a pointer to a string. Returns: 0) If no expansions took place (or, if the only change in the text was the de-slashifying of the history expansion character) 1) If expansions did take place -1) If there was an error in expansion. If an error ocurred in expansion, then OUTPUT contains a descriptive error message. */ extern int history_expand (); /* Extract a string segment consisting of the FIRST through LAST arguments present in STRING. Arguments are broken up as in the shell. */ extern char *history_arg_extract (); /* Return the number of bytes that the primary history entries are using. This just adds up the lengths of the_history->lines. */ extern int history_total_bytes (); gdb-4.13/readline/isearch.c 666 34562 1752 22176 5537502542 14141 0ustar fnfcygnus/* **************************************************************** */ /* */ /* I-Search and Searching */ /* */ /* **************************************************************** */ /* Copyright (C) 1987,1989 Free Software Foundation, Inc. This file contains the Readline Library (the Library), a set of routines for providing Emacs style line input to programs that ask for it. The Library 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 1, or (at your option) any later version. The Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* For alloca on AIX. CYGNUS LOCAL. */ #include "sysdep.h" #include #if defined (__GNUC__) # define alloca __builtin_alloca #else # if defined (sparc) || defined (HAVE_ALLOCA_H) # include # endif #endif #include "readline.h" #include "history.h" extern Keymap _rl_keymap; extern HIST_ENTRY *saved_line_for_history; extern int rl_line_buffer_len; extern int rl_point, rl_end; extern char *rl_prompt, *rl_line_buffer; /* Remove these declarations when we have a complete libgnu.a. */ extern char *xmalloc (), *xrealloc (); static void rl_search_history (); /* Search backwards through the history looking for a string which is typed interactively. Start with the current line. */ rl_reverse_search_history (sign, key) int sign; int key; { rl_search_history (-sign, key); } /* Search forwards through the history looking for a string which is typed interactively. Start with the current line. */ rl_forward_search_history (sign, key) int sign; int key; { rl_search_history (sign, key); } /* Display the current state of the search in the echo-area. SEARCH_STRING contains the string that is being searched for, DIRECTION is zero for forward, or 1 for reverse, WHERE is the history list number of the current line. If it is -1, then this line is the starting one. */ static void rl_display_search (search_string, reverse_p, where) char *search_string; int reverse_p, where; { char *message = (char *)NULL; message = (char *)xmalloc (1 + (search_string ? strlen (search_string) : 0) + 30); *message = '\0'; #if defined (NOTDEF) if (where != -1) sprintf (message, "[%d]", where + history_base); #endif /* NOTDEF */ strcat (message, "("); if (reverse_p) strcat (message, "reverse-"); strcat (message, "i-search)`"); if (search_string) strcat (message, search_string); strcat (message, "': "); rl_message ("%s", message, 0); free (message); rl_redisplay (); } /* Search through the history looking for an interactively typed string. This is analogous to i-search. We start the search in the current line. DIRECTION is which direction to search; >= 0 means forward, < 0 means backwards. */ static void rl_search_history (direction, invoking_key) int direction; int invoking_key; { /* The string that the user types in to search for. */ char *search_string; /* The current length of SEARCH_STRING. */ int search_string_index; /* The amount of space that SEARCH_STRING has allocated to it. */ int search_string_size; /* The list of lines to search through. */ char **lines; /* The length of LINES. */ int hlen; /* Where we get LINES from. */ HIST_ENTRY **hlist = history_list (); register int i = 0; int orig_point = rl_point; int orig_line = where_history (); int last_found_line = orig_line; int c, done = 0; /* The line currently being searched. */ char *sline; /* Offset in that line. */ int index; /* Non-zero if we are doing a reverse search. */ int reverse = (direction < 0); /* Create an arrary of pointers to the lines that we want to search. */ maybe_replace_line (); if (hlist) for (i = 0; hlist[i]; i++); /* Allocate space for this many lines, +1 for the current input line, and remember those lines. */ lines = (char **)alloca ((1 + (hlen = i)) * sizeof (char *)); for (i = 0; i < hlen; i++) lines[i] = hlist[i]->line; if (saved_line_for_history) lines[i] = saved_line_for_history->line; else /* So I have to type it in this way instead. */ { char *alloced_line; /* Keep that MIPS alloca () happy. */ alloced_line = (char *)alloca (1 + strlen (rl_line_buffer)); lines[i] = alloced_line; strcpy (lines[i], &rl_line_buffer[0]); } hlen++; /* The line where we start the search. */ i = orig_line; /* Initialize search parameters. */ search_string = (char *)xmalloc (search_string_size = 128); *search_string = '\0'; search_string_index = 0; /* Normalize DIRECTION into 1 or -1. */ if (direction >= 0) direction = 1; else direction = -1; rl_display_search (search_string, reverse, -1); sline = rl_line_buffer; index = rl_point; while (!done) { c = rl_read_key (); /* Hack C to Do What I Mean. */ { Function *f = (Function *)NULL; if (_rl_keymap[c].type == ISFUNC) { f = _rl_keymap[c].function; if (f == rl_reverse_search_history) c = reverse ? -1 : -2; else if (f == rl_forward_search_history) c = !reverse ? -1 : -2; } } switch (c) { case ESC: done = 1; continue; /* case invoking_key: */ case -1: goto search_again; /* switch directions */ case -2: direction = -direction; reverse = (direction < 0); goto do_search; case CTRL ('G'): strcpy (rl_line_buffer, lines[orig_line]); rl_point = orig_point; rl_end = strlen (rl_line_buffer); rl_clear_message (); return; default: if (c < 32 || c > 126) { rl_execute_next (c); done = 1; continue; } else { if (search_string_index + 2 >= search_string_size) search_string = (char *)xrealloc (search_string, (search_string_size += 128)); search_string[search_string_index++] = c; search_string[search_string_index] = '\0'; goto do_search; search_again: if (!search_string_index) continue; else { if (reverse) --index; else if (index != strlen (sline)) ++index; else ding (); } do_search: while (1) { if (reverse) { while (index >= 0) if (strncmp (search_string, sline + index, search_string_index) == 0) goto string_found; else index--; } else { register int limit = (strlen (sline) - search_string_index) + 1; while (index < limit) { if (strncmp (search_string, sline + index, search_string_index) == 0) goto string_found; index++; } } next_line: i += direction; /* At limit for direction? */ if ((reverse && i < 0) || (!reverse && i == hlen)) goto search_failed; sline = lines[i]; if (reverse) index = strlen (sline); else index = 0; /* If the search string is longer than the current line, no match. */ if (search_string_index > (int)strlen (sline)) goto next_line; /* Start actually searching. */ if (reverse) index -= search_string_index; } search_failed: /* We cannot find the search string. Ding the bell. */ ding (); i = last_found_line; break; string_found: /* We have found the search string. Just display it. But don't actually move there in the history list until the user accepts the location. */ { int line_len; line_len = strlen (lines[i]); if (line_len >= rl_line_buffer_len) rl_extend_line_buffer (line_len); strcpy (rl_line_buffer, lines[i]); rl_point = index; rl_end = line_len; last_found_line = i; rl_display_search (search_string, reverse, (i == orig_line) ? -1 : i); } } } } /* The searching is over. The user may have found the string that she was looking for, or else she may have exited a failing search. If INDEX is -1, then that shows that the string searched for was not found. We use this to determine where to place rl_point. */ { int now = last_found_line; /* First put back the original state. */ strcpy (rl_line_buffer, lines[orig_line]); /* Free the search string. */ free (search_string); if (now < orig_line) rl_get_previous_history (orig_line - now); else rl_get_next_history (now - orig_line); /* If the index of the "matched" string is less than zero, then the final search string was never matched, so put point somewhere reasonable. */ if (index < 0) index = strlen (rl_line_buffer); rl_point = index; rl_clear_message (); } } gdb-4.13/readline/keymaps.c 666 34562 1752 10574 5533115506 14167 0ustar fnfcygnus/* keymaps.c -- Functions and keymaps for the GNU Readline library. */ /* Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc. This file is part of GNU Readline, a library for reading lines of text with interactive input and history editing. Readline 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 2 of the License, or (at your option) any later version. Readline 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sysdep.h" #include #include "readline.h" #include "keymaps.h" #include "emacs_keymap.c" #ifdef VI_MODE #include "vi_keymap.c" #endif /* Remove these declarations when we have a complete libgnu.a. */ /* #define STATIC_MALLOC */ #if !defined (STATIC_MALLOC) extern char *xmalloc (), *xrealloc (); #else static char *xmalloc (), *xrealloc (); #endif /* STATIC_MALLOC */ /* **************************************************************** */ /* */ /* Functions for manipulating Keymaps. */ /* */ /* **************************************************************** */ /* Return a new, empty keymap. Free it with free() when you are done. */ Keymap rl_make_bare_keymap () { register int i; Keymap keymap = (Keymap)xmalloc (KEYMAP_SIZE * sizeof (KEYMAP_ENTRY)); for (i = 0; i < KEYMAP_SIZE; i++) { keymap[i].type = ISFUNC; keymap[i].function = (Function *)NULL; } for (i = 'A'; i < ('Z' + 1); i++) { keymap[i].type = ISFUNC; keymap[i].function = rl_do_lowercase_version; } return (keymap); } /* Return a new keymap which is a copy of MAP. */ Keymap rl_copy_keymap (map) Keymap map; { register int i; Keymap temp = rl_make_bare_keymap (); for (i = 0; i < KEYMAP_SIZE; i++) { temp[i].type = map[i].type; temp[i].function = map[i].function; } return (temp); } /* Return a new keymap with the printing characters bound to rl_insert, the uppercase Meta characters bound to run their lowercase equivalents, and the Meta digits bound to produce numeric arguments. */ Keymap rl_make_keymap () { extern int rl_insert (), rl_rubout (); register int i; Keymap newmap; newmap = rl_make_bare_keymap (); /* All ASCII printing characters are self-inserting. */ for (i = ' '; i < 126; i++) newmap[i].function = rl_insert; newmap[TAB].function = rl_insert; newmap[RUBOUT].function = rl_rubout; newmap[CTRL('H')].function = rl_rubout; #if KEYMAP_SIZE > 128 /* Printing characters in some 8-bit character sets. */ for (i = 128; i < 160; i++) newmap[i].function = rl_insert; /* ISO Latin-1 printing characters should self-insert. */ for (i = 160; i < 256; i++) newmap[i].function = rl_insert; #endif /* KEYMAP_SIZE > 128 */ return (newmap); } /* Free the storage associated with MAP. */ rl_discard_keymap (map) Keymap (map); { int i; if (!map) return; for (i = 0; i < KEYMAP_SIZE; i++) { switch (map[i].type) { case ISFUNC: break; case ISKMAP: rl_discard_keymap ((Keymap)map[i].function); break; case ISMACR: free ((char *)map[i].function); break; } } } #if defined (STATIC_MALLOC) /* **************************************************************** */ /* */ /* xmalloc and xrealloc () */ /* */ /* **************************************************************** */ static void memory_error_and_abort (); static char * xmalloc (bytes) int bytes; { char *temp = (char *)malloc (bytes); if (!temp) memory_error_and_abort (); return (temp); } static char * xrealloc (pointer, bytes) char *pointer; int bytes; { char *temp; if (!pointer) temp = (char *)malloc (bytes); else temp = (char *)realloc (pointer, bytes); if (!temp) memory_error_and_abort (); return (temp); } static void memory_error_and_abort () { fprintf (stderr, "readline: Out of virtual memory!\n"); abort (); } #endif /* STATIC_MALLOC */ gdb-4.13/readline/keymaps.h 666 34562 1752 6200 5533115510 14136 0ustar fnfcygnus/* keymaps.h -- Manipulation of readline keymaps. */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef _KEYMAPS_H_ #define _KEYMAPS_H_ /* CYGNUS LOCAL--bash 1.13 uses which would require GDB to add YET ANOTHER -I directive. No thanks. */ #include "chardefs.h" #if !defined (__FUNCTION_DEF) # define __FUNCTION_DEF typedef int Function (); typedef void VFunction (); typedef char *CPFunction (); typedef char **CPPFunction (); #endif /* A keymap contains one entry for each key in the ASCII set. Each entry consists of a type and a pointer. POINTER is the address of a function to run, or the address of a keymap to indirect through. TYPE says which kind of thing POINTER is. */ typedef struct _keymap_entry { char type; Function *function; } KEYMAP_ENTRY; /* This must be large enough to hold bindings for all of the characters in a desired character set (e.g, 128 for ASCII, 256 for ISO Latin-x, and so on). */ #define KEYMAP_SIZE 256 /* I wanted to make the above structure contain a union of: union { Function *function; struct _keymap_entry *keymap; } value; but this made it impossible for me to create a static array. Maybe I need C lessons. */ typedef KEYMAP_ENTRY KEYMAP_ENTRY_ARRAY[KEYMAP_SIZE]; typedef KEYMAP_ENTRY *Keymap; /* The values that TYPE can have in a keymap entry. */ #define ISFUNC 0 #define ISKMAP 1 #define ISMACR 2 extern KEYMAP_ENTRY_ARRAY emacs_standard_keymap, emacs_meta_keymap, emacs_ctlx_keymap; extern KEYMAP_ENTRY_ARRAY vi_insertion_keymap, vi_movement_keymap; /* Return a new, empty keymap. Free it with free() when you are done. */ Keymap rl_make_bare_keymap (); /* Return a new keymap which is a copy of MAP. */ Keymap rl_copy_keymap (); /* Return a new keymap with the printing characters bound to rl_insert, the lowercase Meta characters bound to run their equivalents, and the Meta digits bound to produce numeric arguments. */ Keymap rl_make_keymap (); /* Return the keymap corresponding to a given name. Names look like `emacs' or `emacs-meta' or `vi-insert'. */ Keymap rl_get_keymap_by_name (); /* Return the current keymap. */ Keymap rl_get_keymap (); /* Set the current keymap to MAP. */ void rl_set_keymap (); #endif /* _KEYMAPS_H_ */ gdb-4.13/readline/parens.c 666 34562 1752 6257 5604643710 13773 0ustar fnfcygnus/* parens.c -- Implemenation of matching parenthesis feature. */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #ifdef __GO32__ #undef FD_SET #endif #if defined (FD_SET) #include #endif #include "readline.h" /* Non-zero means try to blink the matching open parenthesis when the close parenthesis is inserted. */ #if defined (FD_SET) int rl_blink_matching_paren = 1; #else /* !FD_SET */ int rl_blink_matching_paren = 0; #endif /* !FD_SET */ static int find_matching_open (); rl_insert_close (count, invoking_key) int count, invoking_key; { extern int rl_explicit_arg; if (rl_explicit_arg || !rl_blink_matching_paren) rl_insert (count, invoking_key); else { #if defined (FD_SET) && !defined(__GO32__) int orig_point, match_point, ready; struct timeval timer; fd_set readfds; rl_insert (1, invoking_key); rl_redisplay (); match_point = find_matching_open (rl_line_buffer, rl_point - 2, invoking_key); /* Emacs might message or ring the bell here, but I don't. */ if (match_point < 0) return; FD_ZERO (&readfds); FD_SET (fileno (rl_instream), &readfds); timer.tv_sec = 1; timer.tv_usec = 500; orig_point = rl_point; rl_point = match_point; rl_redisplay (); ready = select (1, &readfds, (fd_set *)NULL, (fd_set *)NULL, &timer); rl_point = orig_point; #else /* !FD_SET */ rl_insert (count, invoking_key); #endif /* !FD_SET */ } } static int find_matching_open (string, from, closer) char *string; int from, closer; { register int i; int opener, level, delimiter; switch (closer) { case ']': opener = '['; break; case '}': opener = '{'; break; case ')': opener = '('; break; default: return (-1); } level = 1; /* The closer passed in counts as 1. */ delimiter = 0; /* Delimited state unknown. */ for (i = from; i > -1; i--) { if (delimiter && (string[i] == delimiter)) delimiter = 0; else if ((string[i] == '\'') || (string[i] == '"')) delimiter = rl_line_buffer[i]; else if (!delimiter && (string[i] == closer)) level++; else if (!delimiter && (string[i] == opener)) level--; if (!level) break; } return (i); } gdb-4.13/readline/readline.c 666 34562 1752 221626 5604643721 14327 0ustar fnfcygnus/* readline.c -- a general facility for reading lines of input with emacs style editing and completion. */ /* Copyright 1987, 1989, 1991, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sysdep.h" #include #include #ifndef NO_SYS_FILE #include #endif #include /* This is needed to include support for TIOCGWINSZ and window resizing. */ #if defined (OSF1) || defined (BSD386) || defined (_386BSD) || defined (AIX) # include #endif /* OSF1 */ #if defined (HAVE_UNISTD_H) # include #endif #include /* Not all systems declare ERRNO in errno.h... and some systems #define it! */ #if !defined (errno) extern int errno; #endif /* !errno */ extern char * getenv (); #include #include /* System-specific feature definitions and include files. */ #include "rldefs.h" /* Some standard library routines. */ #include "readline.h" #include "history.h" /* NOTE: Functions and variables prefixed with `_rl_' are pseudo-global: they are global so they can be shared between files in the readline library, but are not intended to be visible to readline callers. */ /* Functions imported from other files in the library. */ extern char *tgetstr (); extern void rl_prep_terminal (), rl_deprep_terminal (); extern void rl_vi_set_last (); extern Function *rl_function_of_keyseq (); extern char *tilde_expand (); /* External redisplay functions and variables from display.c */ extern void rl_redisplay (); extern void _rl_move_vert (); extern void _rl_erase_at_end_of_line (); extern void _rl_move_cursor_relative (); extern int _rl_vis_botlin; extern int _rl_last_c_pos; extern int rl_display_fixed; /* Variables imported from complete.c. */ extern char *rl_completer_word_break_characters; extern char *rl_basic_word_break_characters; extern Function *rl_symbolic_link_hook; extern int rl_completion_query_items; extern int rl_complete_with_tilde_expansion; /* Forward declarations used in this file. */ void rl_dispatch (); void free_history_entry (); int _rl_output_character_function (); #if !defined (__GO32__) void _rl_set_screen_size (); #endif /* !__GO32__ */ void free_undo_list (), rl_add_undo (); #if !defined (__GO32__) static void readline_default_bindings (); #endif /* !__GO32__ */ #if defined (__GO32__) # include # undef HANDLE_SIGNALS #endif /* __GO32__ */ #if defined (STATIC_MALLOC) static char *xmalloc (), *xrealloc (); #else extern char *xmalloc (), *xrealloc (); #endif /* STATIC_MALLOC */ /* **************************************************************** */ /* */ /* Line editing input utility */ /* */ /* **************************************************************** */ static char *LibraryVersion = "2.0 (Cygnus)"; /* A pointer to the keymap that is currently in use. By default, it is the standard emacs keymap. */ Keymap _rl_keymap = emacs_standard_keymap; /* The current style of editing. */ int rl_editing_mode = emacs_mode; /* Non-zero if the previous command was a kill command. */ static int last_command_was_kill = 0; /* The current value of the numeric argument specified by the user. */ int rl_numeric_arg = 1; /* Non-zero if an argument was typed. */ int rl_explicit_arg = 0; /* Temporary value used while generating the argument. */ int rl_arg_sign = 1; /* Non-zero means we have been called at least once before. */ static int rl_initialized = 0; /* If non-zero, this program is running in an EMACS buffer. */ static char *running_in_emacs = (char *)NULL; /* The current offset in the current input line. */ int rl_point; /* Mark in the current input line. */ int rl_mark; /* Length of the current input line. */ int rl_end; /* Make this non-zero to return the current input_line. */ int rl_done; /* The last function executed by readline. */ Function *rl_last_func = (Function *)NULL; /* Top level environment for readline_internal (). */ static jmp_buf readline_top_level; /* The streams we interact with. */ static FILE *in_stream, *out_stream; /* The names of the streams that we do input and output to. */ FILE *rl_instream = (FILE *)NULL; FILE *rl_outstream = (FILE *)NULL; /* Non-zero means echo characters as they are read. */ int readline_echoing_p = 1; /* Current prompt. */ char *rl_prompt; /* The number of characters read in order to type this complete command. */ int rl_key_sequence_length = 0; /* If non-zero, then this is the address of a function to call just before readline_internal () prints the first prompt. */ Function *rl_startup_hook = (Function *)NULL; /* What we use internally. You should always refer to RL_LINE_BUFFER. */ static char *the_line; /* The character that can generate an EOF. Really read from the terminal driver... just defaulted here. */ int _rl_eof_char = CTRL ('D'); /* Non-zero makes this the next keystroke to read. */ int rl_pending_input = 0; /* Pointer to a useful terminal name. */ char *rl_terminal_name = (char *)NULL; /* Non-zero means to always use horizontal scrolling in line display. */ int _rl_horizontal_scroll_mode = 0; /* Non-zero means to display an asterisk at the starts of history lines which have been modified. */ int _rl_mark_modified_lines = 0; /* Non-zero means to use a visible bell if one is available rather than simply ringing the terminal bell. */ int _rl_prefer_visible_bell = 0; /* Line buffer and maintenence. */ char *rl_line_buffer = (char *)NULL; int rl_line_buffer_len = 0; #define DEFAULT_BUFFER_SIZE 256 /* **************************************************************** */ /* */ /* `Forward' declarations */ /* */ /* **************************************************************** */ /* Non-zero means do not parse any lines other than comments and parser directives. */ unsigned char _rl_parsing_conditionalized_out = 0; /* Non-zero means to save keys that we dispatch on in a kbd macro. */ static int defining_kbd_macro = 0; /* Non-zero means to convert characters with the meta bit set to escape-prefixed characters so we can indirect through emacs_meta_keymap or vi_escape_keymap. */ int _rl_convert_meta_chars_to_ascii = 1; /* Non-zero tells rl_delete_text and rl_insert_text to not add to the undo list. */ static int doing_an_undo = 0; /* **************************************************************** */ /* */ /* Top Level Functions */ /* */ /* **************************************************************** */ /* Non-zero means treat 0200 bit in terminal input as Meta bit. */ int _rl_meta_flag = 0; /* Forward declaration */ /* Read a line of input. Prompt with PROMPT. A NULL PROMPT means none. A return value of NULL means that EOF was encountered. */ char * readline (prompt) char *prompt; { char *readline_internal (); char *value; rl_prompt = prompt; /* If we are at EOF return a NULL string. */ if (rl_pending_input == EOF) { rl_pending_input = 0; return ((char *)NULL); } rl_initialize (); rl_prep_terminal (_rl_meta_flag); #if defined (HANDLE_SIGNALS) rl_set_signals (); #endif value = readline_internal (); rl_deprep_terminal (); #if defined (HANDLE_SIGNALS) rl_clear_signals (); #endif return (value); } /* Read a line of input from the global rl_instream, doing output on the global rl_outstream. If rl_prompt is non-null, then that is our prompt. */ char * readline_internal () { int lastc, c, eof_found; in_stream = rl_instream; out_stream = rl_outstream; lastc = -1; eof_found = 0; if (rl_startup_hook) (*rl_startup_hook) (); if (!readline_echoing_p) { if (rl_prompt) { fprintf (out_stream, "%s", rl_prompt); fflush (out_stream); } } else { rl_on_new_line (); rl_redisplay (); #if defined (VI_MODE) if (rl_editing_mode == vi_mode) rl_vi_insertion_mode (); #endif /* VI_MODE */ } while (!rl_done) { int lk = last_command_was_kill; int code; code = setjmp (readline_top_level); if (code) rl_redisplay (); if (!rl_pending_input) { /* Then initialize the argument and number of keys read. */ rl_init_argument (); rl_key_sequence_length = 0; } c = rl_read_key (); /* EOF typed to a non-blank line is a . */ if (c == EOF && rl_end) c = NEWLINE; /* The character _rl_eof_char typed to blank line, and not as the previous character is interpreted as EOF. */ if (((c == _rl_eof_char && lastc != c) || c == EOF) && !rl_end) { eof_found = 1; break; } lastc = c; rl_dispatch (c, _rl_keymap); /* If there was no change in last_command_was_kill, then no kill has taken place. Note that if input is pending we are reading a prefix command, so nothing has changed yet. */ if (!rl_pending_input) { if (lk == last_command_was_kill) last_command_was_kill = 0; } #if defined (VI_MODE) /* In vi mode, when you exit insert mode, the cursor moves back over the previous character. We explicitly check for that here. */ if (rl_editing_mode == vi_mode && _rl_keymap == vi_movement_keymap) rl_vi_check (); #endif /* VI_MODE */ if (!rl_done) rl_redisplay (); } /* Restore the original of this history line, iff the line that we are editing was originally in the history, AND the line has changed. */ { HIST_ENTRY *entry = current_history (); if (entry && rl_undo_list) { char *temp = savestring (the_line); rl_revert_line (); entry = replace_history_entry (where_history (), the_line, (HIST_ENTRY *)NULL); free_history_entry (entry); strcpy (the_line, temp); free (temp); } } /* At any rate, it is highly likely that this line has an undo list. Get rid of it now. */ if (rl_undo_list) free_undo_list (); if (eof_found) return (char *)NULL; else return (savestring (the_line)); } /* **************************************************************** */ /* */ /* Character Input Buffering */ /* */ /* **************************************************************** */ static int pop_index = 0, push_index = 0, ibuffer_len = 511; static unsigned char ibuffer[512]; /* Non-null means it is a pointer to a function to run while waiting for character input. */ Function *rl_event_hook = (Function *)NULL; #define any_typein (push_index != pop_index) /* Add KEY to the buffer of characters to be read. */ rl_stuff_char (key) int key; { if (key == EOF) { key = NEWLINE; rl_pending_input = EOF; } ibuffer[push_index++] = key; if (push_index >= ibuffer_len) push_index = 0; } /* Return the amount of space available in the buffer for stuffing characters. */ int ibuffer_space () { if (pop_index > push_index) return (pop_index - push_index); else return (ibuffer_len - (push_index - pop_index)); } /* Get a key from the buffer of characters to be read. Return the key in KEY. Result is KEY if there was a key, or 0 if there wasn't. */ int rl_get_char (key) int *key; { if (push_index == pop_index) return (0); *key = ibuffer[pop_index++]; if (pop_index >= ibuffer_len) pop_index = 0; return (1); } /* Stuff KEY into the *front* of the input buffer. Returns non-zero if successful, zero if there is no space left in the buffer. */ int rl_unget_char (key) int key; { if (ibuffer_space ()) { pop_index--; if (pop_index < 0) pop_index = ibuffer_len - 1; ibuffer[pop_index] = key; return (1); } return (0); } /* If a character is available to be read, then read it and stuff it into IBUFFER. Otherwise, just return. */ void rl_gather_tyi () { #if defined (__GO32__) char input; if (isatty (0)) { int i = rl_getc (); if (i != EOF) rl_stuff_char (i); } else if (kbhit () && ibuffer_space ()) rl_stuff_char (getkey () & 0x7f); #else /* !__GO32__ */ int tty = fileno (in_stream); register int tem, result = -1; int chars_avail; char input; #if defined (FIONREAD) result = ioctl (tty, FIONREAD, &chars_avail); #endif #if defined (O_NDELAY) if (result == -1) { int flags; flags = fcntl (tty, F_GETFL, 0); fcntl (tty, F_SETFL, (flags | O_NDELAY)); chars_avail = read (tty, &input, 1); fcntl (tty, F_SETFL, flags); if (chars_avail == -1 && errno == EAGAIN) return; } #endif /* O_NDELAY */ /* If there's nothing available, don't waste time trying to read something. */ if (chars_avail == 0) return; tem = ibuffer_space (); if (chars_avail > tem) chars_avail = tem; /* One cannot read all of the available input. I can only read a single character at a time, or else programs which require input can be thwarted. If the buffer is larger than one character, I lose. Damn! */ if (tem < ibuffer_len) chars_avail = 0; if (result != -1) { while (chars_avail--) rl_stuff_char (rl_getc (in_stream)); } else { if (chars_avail) rl_stuff_char (input); } #endif /* !__GO32__ */ } static int next_macro_key (); /* Read a key, including pending input. */ int rl_read_key () { int c; rl_key_sequence_length++; if (rl_pending_input) { c = rl_pending_input; rl_pending_input = 0; } else { /* If input is coming from a macro, then use that. */ if (c = next_macro_key ()) return (c); /* If the user has an event function, then call it periodically. */ if (rl_event_hook) { while (rl_event_hook && !rl_get_char (&c)) { (*rl_event_hook) (); rl_gather_tyi (); } } else { if (!rl_get_char (&c)) c = rl_getc (in_stream); } } return (c); } /* Found later in this file. */ static void add_macro_char (), with_macro_input (); /* Do the command associated with KEY in MAP. If the associated command is really a keymap, then read another key, and dispatch into that map. */ void rl_dispatch (key, map) register int key; Keymap map; { #if defined (VI_MODE) extern int _rl_vi_last_command, _rl_vi_last_repeat, _rl_vi_last_arg_sign; #endif if (defining_kbd_macro) add_macro_char (key); if (META_CHAR (key) && _rl_convert_meta_chars_to_ascii) { if (map[ESC].type == ISKMAP) { #if defined (CRAY) map = (Keymap)((int)map[ESC].function); #else map = (Keymap)map[ESC].function; #endif key = UNMETA (key); rl_key_sequence_length += 2; rl_dispatch (key, map); } else ding (); return; } switch (map[key].type) { case ISFUNC: { Function *func = map[key].function; if (func != (Function *)NULL) { /* Special case rl_do_lowercase_version (). */ if (func == rl_do_lowercase_version) { rl_dispatch (to_lower (key), map); return; } (*map[key].function)(rl_numeric_arg * rl_arg_sign, key); /* If we have input pending, then the last command was a prefix command. Don't change the state of rl_last_func. Otherwise, remember the last command executed in this variable. */ if (!rl_pending_input) rl_last_func = map[key].function; } else { rl_abort (); return; } } break; case ISKMAP: if (map[key].function != (Function *)NULL) { int newkey; rl_key_sequence_length++; newkey = rl_read_key (); #if defined (CRAY) /* If you cast map[key].function to type (Keymap) on a Cray, the compiler takes the value of may[key].function and divides it by 4 to convert between pointer types (pointers to functions and pointers to structs are different sizes). This is not what is wanted. */ rl_dispatch (newkey, (Keymap)((int)map[key].function)); #else rl_dispatch (newkey, (Keymap)map[key].function); #endif /* !CRAY */ } else { rl_abort (); return; } break; case ISMACR: if (map[key].function != (Function *)NULL) { char *macro; macro = savestring ((char *)map[key].function); with_macro_input (macro); return; } break; } #if defined (VI_MODE) if (rl_editing_mode == vi_mode && _rl_keymap == vi_movement_keymap && rl_vi_textmod_command (key)) { _rl_vi_last_command = key; _rl_vi_last_repeat = rl_numeric_arg; _rl_vi_last_arg_sign = rl_arg_sign; } #endif } /* **************************************************************** */ /* */ /* Hacking Keyboard Macros */ /* */ /* **************************************************************** */ /* The currently executing macro string. If this is non-zero, then it is a malloc ()'ed string where input is coming from. */ static char *executing_macro = (char *)NULL; /* The offset in the above string to the next character to be read. */ static int executing_macro_index = 0; /* The current macro string being built. Characters get stuffed in here by add_macro_char (). */ static char *current_macro = (char *)NULL; /* The size of the buffer allocated to current_macro. */ static int current_macro_size = 0; /* The index at which characters are being added to current_macro. */ static int current_macro_index = 0; /* A structure used to save nested macro strings. It is a linked list of string/index for each saved macro. */ struct saved_macro { struct saved_macro *next; char *string; int index; }; /* The list of saved macros. */ struct saved_macro *macro_list = (struct saved_macro *)NULL; /* Forward declarations of static functions. Thank you C. */ static void push_executing_macro (), pop_executing_macro (); /* This one has to be declared earlier in the file. */ /* static void add_macro_char (); */ /* Set up to read subsequent input from STRING. STRING is free ()'ed when we are done with it. */ static void with_macro_input (string) char *string; { push_executing_macro (); executing_macro = string; executing_macro_index = 0; } /* Return the next character available from a macro, or 0 if there are no macro characters. */ static int next_macro_key () { if (!executing_macro) return (0); if (!executing_macro[executing_macro_index]) { pop_executing_macro (); return (next_macro_key ()); } return (executing_macro[executing_macro_index++]); } /* Save the currently executing macro on a stack of saved macros. */ static void push_executing_macro () { struct saved_macro *saver; saver = (struct saved_macro *)xmalloc (sizeof (struct saved_macro)); saver->next = macro_list; saver->index = executing_macro_index; saver->string = executing_macro; macro_list = saver; } /* Discard the current macro, replacing it with the one on the top of the stack of saved macros. */ static void pop_executing_macro () { if (executing_macro) free (executing_macro); executing_macro = (char *)NULL; executing_macro_index = 0; if (macro_list) { struct saved_macro *disposer = macro_list; executing_macro = macro_list->string; executing_macro_index = macro_list->index; macro_list = macro_list->next; free (disposer); } } /* Add a character to the macro being built. */ static void add_macro_char (c) int c; { if (current_macro_index + 1 >= current_macro_size) { if (!current_macro) current_macro = (char *)xmalloc (current_macro_size = 25); else current_macro = (char *)xrealloc (current_macro, current_macro_size += 25); } current_macro[current_macro_index++] = c; current_macro[current_macro_index] = '\0'; } /* Begin defining a keyboard macro. Keystrokes are recorded as they are executed. End the definition with rl_end_kbd_macro (). If a numeric argument was explicitly typed, then append this definition to the end of the existing macro, and start by re-executing the existing macro. */ rl_start_kbd_macro (ignore1, ignore2) int ignore1, ignore2; { if (defining_kbd_macro) rl_abort (); if (rl_explicit_arg) { if (current_macro) with_macro_input (savestring (current_macro)); } else current_macro_index = 0; defining_kbd_macro = 1; } /* Stop defining a keyboard macro. A numeric argument says to execute the macro right now, that many times, counting the definition as the first time. */ rl_end_kbd_macro (count, ignore) int count, ignore; { if (!defining_kbd_macro) rl_abort (); current_macro_index -= (rl_key_sequence_length - 1); current_macro[current_macro_index] = '\0'; defining_kbd_macro = 0; rl_call_last_kbd_macro (--count, 0); } /* Execute the most recently defined keyboard macro. COUNT says how many times to execute it. */ rl_call_last_kbd_macro (count, ignore) int count, ignore; { if (!current_macro) rl_abort (); if (defining_kbd_macro) { ding (); /* no recursive macros */ current_macro[--current_macro_index] = '\0'; /* erase this char */ return 0; } while (count--) with_macro_input (savestring (current_macro)); } void _rl_kill_kbd_macro () { if (current_macro) { free (current_macro); current_macro = (char *) NULL; } current_macro_size = current_macro_index = 0; if (executing_macro) { free (executing_macro); executing_macro = (char *) NULL; } executing_macro_index = 0; defining_kbd_macro = 0; } /* **************************************************************** */ /* */ /* Initializations */ /* */ /* **************************************************************** */ /* Initliaze readline (and terminal if not already). */ rl_initialize () { /* If we have never been called before, initialize the terminal and data structures. */ if (!rl_initialized) { readline_initialize_everything (); rl_initialized++; } /* Initalize the current line information. */ rl_point = rl_end = 0; the_line = rl_line_buffer; the_line[0] = 0; /* We aren't done yet. We haven't even gotten started yet! */ rl_done = 0; /* Tell the history routines what is going on. */ start_using_history (); /* Make the display buffer match the state of the line. */ rl_reset_line_state (); /* No such function typed yet. */ rl_last_func = (Function *)NULL; /* Parsing of key-bindings begins in an enabled state. */ _rl_parsing_conditionalized_out = 0; } /* Initialize the entire state of the world. */ readline_initialize_everything () { /* Find out if we are running in Emacs. */ running_in_emacs = getenv ("EMACS"); /* Set up input and output if they are not already set up. */ if (!rl_instream) rl_instream = stdin; if (!rl_outstream) rl_outstream = stdout; /* Bind in_stream and out_stream immediately. These values may change, but they may also be used before readline_internal () is called. */ in_stream = rl_instream; out_stream = rl_outstream; /* Allocate data structures. */ if (!rl_line_buffer) rl_line_buffer = (char *)xmalloc (rl_line_buffer_len = DEFAULT_BUFFER_SIZE); /* Initialize the terminal interface. */ init_terminal_io ((char *)NULL); #if !defined (__GO32__) /* Bind tty characters to readline functions. */ readline_default_bindings (); #endif /* !__GO32__ */ /* Initialize the function names. */ rl_initialize_funmap (); /* Read in the init file. */ rl_read_init_file ((char *)NULL); /* If the completion parser's default word break characters haven't been set yet, then do so now. */ { if (rl_completer_word_break_characters == (char *)NULL) rl_completer_word_break_characters = rl_basic_word_break_characters; } } /* If this system allows us to look at the values of the regular input editing characters, then bind them to their readline equivalents, iff the characters are not bound to keymaps. */ #if !defined (__GO32__) static void readline_default_bindings () { rltty_set_default_bindings (_rl_keymap); } #endif /* !__GO32__ */ /* **************************************************************** */ /* */ /* Numeric Arguments */ /* */ /* **************************************************************** */ /* Handle C-u style numeric args, as well as M--, and M-digits. */ /* Add the current digit to the argument in progress. */ rl_digit_argument (ignore, key) int ignore, key; { rl_pending_input = key; rl_digit_loop (); } /* What to do when you abort reading an argument. */ rl_discard_argument () { ding (); rl_clear_message (); rl_init_argument (); } /* Create a default argument. */ rl_init_argument () { rl_numeric_arg = rl_arg_sign = 1; rl_explicit_arg = 0; } /* C-u, universal argument. Multiply the current argument by 4. Read a key. If the key has nothing to do with arguments, then dispatch on it. If the key is the abort character then abort. */ rl_universal_argument () { rl_numeric_arg *= 4; rl_digit_loop (); } rl_digit_loop () { int key, c; while (1) { rl_message ("(arg: %d) ", rl_arg_sign * rl_numeric_arg); key = c = rl_read_key (); if (_rl_keymap[c].type == ISFUNC && _rl_keymap[c].function == rl_universal_argument) { rl_numeric_arg *= 4; continue; } c = UNMETA (c); if (numeric (c)) { if (rl_explicit_arg) rl_numeric_arg = (rl_numeric_arg * 10) + (c - '0'); else rl_numeric_arg = (c - '0'); rl_explicit_arg = 1; } else { if (c == '-' && !rl_explicit_arg) { rl_numeric_arg = 1; rl_arg_sign = -1; } else { rl_clear_message (); rl_dispatch (key, _rl_keymap); return; } } } } /* **************************************************************** */ /* */ /* Terminal and Termcap */ /* */ /* **************************************************************** */ static char *term_buffer = (char *)NULL; static char *term_string_buffer = (char *)NULL; /* Non-zero means this terminal can't really do anything. */ int dumb_term = 0; /* On Solaris2, sys/types.h #includes sys/reg.h, which #defines PC. Unfortunately, PC is a global variable used by the termcap library. */ #undef PC #if !defined (__linux__) char PC; char *BC, *UP; #endif /* __linux__ */ /* Some strings to control terminal actions. These are output by tputs (). */ char *term_goto, *term_clreol, *term_cr, *term_clrpag, *term_backspace; int screenwidth, screenheight; /* Non-zero if we determine that the terminal can do character insertion. */ int terminal_can_insert = 0; /* How to insert characters. */ char *term_im, *term_ei, *term_ic, *term_ip, *term_IC; /* How to delete characters. */ char *term_dc, *term_DC; #if defined (HACK_TERMCAP_MOTION) char *term_forward_char; #endif /* HACK_TERMCAP_MOTION */ /* How to go up a line. */ char *term_up; /* True if we have funny auto-line-wrap ("am" and "xn"). */ int term_xn; /* A visible bell, if the terminal can be made to flash the screen. */ char *visible_bell; /* Non-zero means that this terminal has a meta key. */ int term_has_meta; /* The string to write to turn on the meta key, if this term has one. */ char *term_mm; /* The string to write to turn off the meta key, if this term has one. */ char *term_mo; /* The key sequences output by the arrow keys, if this terminal has any. */ char *term_ku, *term_kd, *term_kr, *term_kl; /* Re-initialize the terminal considering that the TERM/TERMCAP variable has changed. */ rl_reset_terminal (terminal_name) char *terminal_name; { init_terminal_io (terminal_name); } /* Set readline's idea of the screen size. TTY is a file descriptor open to the terminal. If IGNORE_ENV is true, we do not pay attention to the values of $LINES and $COLUMNS. The tests for TERM_STRING_BUFFER being non-null serve to check whether or not we have initialized termcap. */ #if !defined (__GO32__) void _rl_set_screen_size (tty, ignore_env) int tty, ignore_env; { #ifndef __GO32__ #if defined (TIOCGWINSZ) && !defined (TIOCGWINSZ_BROKEN) struct winsize window_size; #endif /* TIOCGWINSZ */ #if defined (TIOCGWINSZ) && !defined (TIOCGWINSZ_BROKEN) if (ioctl (tty, TIOCGWINSZ, &window_size) == 0) { screenwidth = (int) window_size.ws_col; screenheight = (int) window_size.ws_row; } #endif /* TIOCGWINSZ */ /* Environment variable COLUMNS overrides setting of "co" if IGNORE_ENV is unset. */ if (screenwidth <= 0) { char *sw; if (!ignore_env && (sw = getenv ("COLUMNS"))) screenwidth = atoi (sw); if (screenwidth <= 0 && term_string_buffer) screenwidth = tgetnum ("co"); } /* Environment variable LINES overrides setting of "li" if IGNORE_ENV is unset. */ if (screenheight <= 0) { char *sh; if (!ignore_env && (sh = getenv ("LINES"))) screenheight = atoi (sh); if (screenheight <= 0 && term_string_buffer) screenheight = tgetnum ("li"); } /* If all else fails, default to 80x24 terminal. */ if (screenwidth <= 0) screenwidth = 80; if (screenheight <= 0) screenheight = 24; #if defined (SHELL) /* If we're being compiled as part of bash, set the environment variables $LINES and $COLUMNS to new values. */ set_lines_and_columns (screenheight, screenwidth); #endif /* If we don't have xn (most modern terminals do), don't use the last column. */ if (!term_xn) screenwidth--; #endif } #endif /* !__GO32__ */ init_terminal_io (terminal_name) char *terminal_name; { #if defined (__GO32__) screenwidth = ScreenCols (); screenheight = ScreenRows (); term_cr = "\r"; term_im = term_ei = term_ic = term_IC = (char *)NULL; term_up = term_dc = term_DC = visible_bell = (char *)NULL; /* Does the __GO32__ have a meta key? I don't know. */ term_has_meta = 0; term_mm = term_mo = (char *)NULL; /* It probably has arrow keys, but I don't know what they are. */ term_ku = term_kd = term_kr = term_kl = (char *)NULL; #if defined (HACK_TERMCAP_MOTION) term_forward_char = (char *)NULL; #endif /* HACK_TERMCAP_MOTION */ terminal_can_insert = term_xn = 0; return; #else /* !__GO32__ */ char *term, *buffer; int tty; term = terminal_name ? terminal_name : getenv ("TERM"); if (!term_string_buffer) term_string_buffer = (char *)xmalloc (2048); if (!term_buffer) term_buffer = (char *)xmalloc (2048); buffer = term_string_buffer; term_clrpag = term_cr = term_clreol = (char *)NULL; if (!term) term = "dumb"; if (tgetent (term_buffer, term) <= 0) { dumb_term = 1; screenwidth = 79; screenheight = 24; term_cr = "\r"; term_im = term_ei = term_ic = term_IC = (char *)NULL; term_up = term_dc = term_DC = visible_bell = (char *)NULL; term_ku = term_kd = term_kl = term_kr = (char *)NULL; #if defined (HACK_TERMCAP_MOTION) term_forward_char = (char *)NULL; #endif terminal_can_insert = term_xn = 0; return; } BC = tgetstr ("pc", &buffer); PC = buffer ? *buffer : 0; term_backspace = tgetstr ("le", &buffer); term_cr = tgetstr ("cr", &buffer); term_clreol = tgetstr ("ce", &buffer); term_clrpag = tgetstr ("cl", &buffer); if (!term_cr) term_cr = "\r"; #if defined (HACK_TERMCAP_MOTION) term_forward_char = tgetstr ("nd", &buffer); #endif /* HACK_TERMCAP_MOTION */ if (rl_instream) tty = fileno (rl_instream); else tty = 0; screenwidth = screenheight = 0; term_xn = tgetflag ("am") && tgetflag ("xn"); _rl_set_screen_size (tty, 0); term_im = tgetstr ("im", &buffer); term_ei = tgetstr ("ei", &buffer); term_IC = tgetstr ("IC", &buffer); term_ic = tgetstr ("ic", &buffer); /* "An application program can assume that the terminal can do character insertion if *any one of* the capabilities `IC', `im', `ic' or `ip' is provided." But we can't do anything if only `ip' is provided, so... */ terminal_can_insert = (term_IC || term_im || term_ic); term_up = tgetstr ("up", &buffer); term_dc = tgetstr ("dc", &buffer); term_DC = tgetstr ("DC", &buffer); visible_bell = tgetstr ("vb", &buffer); /* Check to see if this terminal has a meta key. */ term_has_meta = (tgetflag ("km") || tgetflag ("MT")); if (term_has_meta) { term_mm = tgetstr ("mm", &buffer); term_mo = tgetstr ("mo", &buffer); } else { term_mm = (char *)NULL; term_mo = (char *)NULL; } /* Attempt to find and bind the arrow keys. Do not override already bound keys in an overzealous attempt, however. */ term_ku = tgetstr ("ku", &buffer); term_kd = tgetstr ("kd", &buffer); term_kr = tgetstr ("kr", &buffer); term_kl = tgetstr ("kl", &buffer); if (term_ku) { Function *func; func = rl_function_of_keyseq (term_ku, _rl_keymap, (int *)NULL); if (!func || func == rl_do_lowercase_version) rl_set_key (term_ku, rl_get_previous_history, _rl_keymap); } if (term_kd) { Function *func; func = rl_function_of_keyseq (term_kd, _rl_keymap, (int *)NULL); if (!func || func == rl_do_lowercase_version) rl_set_key (term_kd, rl_get_next_history, _rl_keymap); } if (term_kr) { Function *func; func = rl_function_of_keyseq (term_kr, _rl_keymap, (int *)NULL); if (!func || func == rl_do_lowercase_version) rl_set_key (term_kr, rl_forward, _rl_keymap); } if (term_kl) { Function *func; func = rl_function_of_keyseq (term_kl, _rl_keymap, (int *)NULL); if (!func || func == rl_do_lowercase_version) rl_set_key (term_kl, rl_backward, _rl_keymap); } #endif /* !__GO32__ */ return 0; } /* A function for the use of tputs () */ int _rl_output_character_function (c) int c; { return putc (c, out_stream); } /* Write COUNT characters from STRING to the output stream. */ void _rl_output_some_chars (string, count) char *string; int count; { fwrite (string, 1, count, out_stream); } /* Move the cursor back. */ backspace (count) int count; { register int i; #if !defined (__GO32__) if (term_backspace) for (i = 0; i < count; i++) tputs (term_backspace, 1, _rl_output_character_function); else #endif /* !__GO32__ */ for (i = 0; i < count; i++) putc ('\b', out_stream); } /* Move to the start of the next line. */ crlf () { #if defined (NEW_TTY_DRIVER) tputs (term_cr, 1, _rl_output_character_function); #endif /* NEW_TTY_DRIVER */ putc ('\n', out_stream); } /* **************************************************************** */ /* */ /* Utility Functions */ /* */ /* **************************************************************** */ /* Return 0 if C is not a member of the class of characters that belong in words, or 1 if it is. */ int allow_pathname_alphabetic_chars = 0; char *pathname_alphabetic_chars = "/-_=~.#$"; int alphabetic (c) int c; { if (pure_alphabetic (c) || (numeric (c))) return (1); if (allow_pathname_alphabetic_chars) return (strchr (pathname_alphabetic_chars, c) != NULL); else return (0); } /* Return non-zero if C is a numeric character. */ int numeric (c) int c; { return (c >= '0' && c <= '9'); } /* Ring the terminal bell. */ int ding () { if (readline_echoing_p) { #if !defined (__GO32__) if (_rl_prefer_visible_bell && visible_bell) tputs (visible_bell, 1, _rl_output_character_function); else #endif /* !__GO32__ */ { fprintf (stderr, "\007"); fflush (stderr); } } return (-1); } /* How to abort things. */ rl_abort () { ding (); rl_clear_message (); rl_init_argument (); rl_pending_input = 0; defining_kbd_macro = 0; while (executing_macro) pop_executing_macro (); rl_last_func = (Function *)NULL; longjmp (readline_top_level, 1); } /* Return a copy of the string between FROM and TO. FROM is inclusive, TO is not. */ char * rl_copy_text (from, to) int from, to; { register int length; char *copy; /* Fix it if the caller is confused. */ if (from > to) { int t = from; from = to; to = t; } length = to - from; copy = (char *)xmalloc (1 + length); strncpy (copy, the_line + from, length); copy[length] = '\0'; return (copy); } /* Increase the size of RL_LINE_BUFFER until it has enough space to hold LEN characters. */ void rl_extend_line_buffer (len) int len; { while (len >= rl_line_buffer_len) rl_line_buffer = (char *)xrealloc (rl_line_buffer, rl_line_buffer_len += DEFAULT_BUFFER_SIZE); the_line = rl_line_buffer; } /* **************************************************************** */ /* */ /* Insert and Delete */ /* */ /* **************************************************************** */ /* Insert a string of text into the line at point. This is the only way that you should do insertion. rl_insert () calls this function. */ rl_insert_text (string) char *string; { register int i, l = strlen (string); if (rl_end + l >= rl_line_buffer_len) rl_extend_line_buffer (rl_end + l); for (i = rl_end; i >= rl_point; i--) the_line[i + l] = the_line[i]; strncpy (the_line + rl_point, string, l); /* Remember how to undo this if we aren't undoing something. */ if (!doing_an_undo) { /* If possible and desirable, concatenate the undos. */ if ((strlen (string) == 1) && rl_undo_list && (rl_undo_list->what == UNDO_INSERT) && (rl_undo_list->end == rl_point) && (rl_undo_list->end - rl_undo_list->start < 20)) rl_undo_list->end++; else rl_add_undo (UNDO_INSERT, rl_point, rl_point + l, (char *)NULL); } rl_point += l; rl_end += l; the_line[rl_end] = '\0'; } /* Delete the string between FROM and TO. FROM is inclusive, TO is not. */ rl_delete_text (from, to) int from, to; { register char *text; /* Fix it if the caller is confused. */ if (from > to) { int t = from; from = to; to = t; } text = rl_copy_text (from, to); strncpy (the_line + from, the_line + to, rl_end - to); /* Remember how to undo this delete. */ if (!doing_an_undo) rl_add_undo (UNDO_DELETE, from, to, text); else free (text); rl_end -= (to - from); the_line[rl_end] = '\0'; } /* **************************************************************** */ /* */ /* Readline character functions */ /* */ /* **************************************************************** */ /* This is not a gap editor, just a stupid line input routine. No hair is involved in writing any of the functions, and none should be. */ /* Note that: rl_end is the place in the string that we would place '\0'; i.e., it is always safe to place '\0' there. rl_point is the place in the string where the cursor is. Sometimes this is the same as rl_end. Any command that is called interactively receives two arguments. The first is a count: the numeric arg pased to this command. The second is the key which invoked this command. */ /* **************************************************************** */ /* */ /* Movement Commands */ /* */ /* **************************************************************** */ /* Note that if you `optimize' the display for these functions, you cannot use said functions in other functions which do not do optimizing display. I.e., you will have to update the data base for rl_redisplay, and you might as well let rl_redisplay do that job. */ /* Move forward COUNT characters. */ rl_forward (count) int count; { if (count < 0) rl_backward (-count); else while (count) { #if defined (VI_MODE) if (rl_point >= (rl_end - (rl_editing_mode == vi_mode))) #else if (rl_point == rl_end) #endif /* VI_MODE */ { ding (); return 0; } else rl_point++; --count; } return 0; } /* Move backward COUNT characters. */ rl_backward (count) int count; { if (count < 0) rl_forward (-count); else while (count) { if (!rl_point) { ding (); return 0; } else --rl_point; --count; } return 0; } /* Move to the beginning of the line. */ rl_beg_of_line () { rl_point = 0; return 0; } /* Move to the end of the line. */ rl_end_of_line () { rl_point = rl_end; return 0; } /* Move forward a word. We do what Emacs does. */ rl_forward_word (count) int count; { int c; if (count < 0) { rl_backward_word (-count); return 0; } while (count) { if (rl_point == rl_end) return 0; /* If we are not in a word, move forward until we are in one. Then, move forward until we hit a non-alphabetic character. */ c = the_line[rl_point]; if (!alphabetic (c)) { while (++rl_point < rl_end) { c = the_line[rl_point]; if (alphabetic (c)) break; } } if (rl_point == rl_end) return; while (++rl_point < rl_end) { c = the_line[rl_point]; if (!alphabetic (c)) break; } --count; } return 0; } /* Move backward a word. We do what Emacs does. */ rl_backward_word (count) int count; { int c; if (count < 0) { rl_forward_word (-count); return 0; } while (count) { if (!rl_point) return 0; /* Like rl_forward_word (), except that we look at the characters just before point. */ c = the_line[rl_point - 1]; if (!alphabetic (c)) { while (--rl_point) { c = the_line[rl_point - 1]; if (alphabetic (c)) break; } } while (rl_point) { c = the_line[rl_point - 1]; if (!alphabetic (c)) break; else --rl_point; } --count; } return 0; } /* Clear the current line. Numeric argument to C-l does this. */ rl_refresh_line () { int curr_line = _rl_last_c_pos / screenwidth; _rl_move_vert (curr_line); _rl_move_cursor_relative (0, the_line); /* XXX is this right */ #if defined (__GO32__) { int row, col, width, row_start; ScreenGetCursor (&row, &col); width = ScreenCols (); row_start = ScreenPrimary + (row * width); memset (row_start + col, 0, (width - col) * 2); } #else /* !__GO32__ */ if (term_clreol) tputs (term_clreol, 1, _rl_output_character_function); #endif /* !__GO32__ */ rl_forced_update_display (); rl_display_fixed = 1; return 0; } /* C-l typed to a line without quoting clears the screen, and then reprints the prompt and the current input line. Given a numeric arg, redraw only the current line. */ rl_clear_screen () { if (rl_explicit_arg) { rl_refresh_line (); return 0; } #if !defined (__GO32__) if (term_clrpag) tputs (term_clrpag, 1, _rl_output_character_function); else #endif /* !__GO32__ */ crlf (); rl_forced_update_display (); rl_display_fixed = 1; return 0; } rl_arrow_keys (count, c) int count, c; { int ch; ch = rl_read_key (); switch (to_upper (ch)) { case 'A': rl_get_previous_history (count); break; case 'B': rl_get_next_history (count); break; case 'C': rl_forward (count); break; case 'D': rl_backward (count); break; default: ding (); } return 0; } /* **************************************************************** */ /* */ /* Text commands */ /* */ /* **************************************************************** */ /* Insert the character C at the current location, moving point forward. */ rl_insert (count, c) int count, c; { register int i; char *string; if (count <= 0) return 0; /* If we can optimize, then do it. But don't let people crash readline because of extra large arguments. */ if (count > 1 && count < 1024) { string = (char *)alloca (1 + count); for (i = 0; i < count; i++) string[i] = c; string[i] = '\0'; rl_insert_text (string); return 0; } if (count > 1024) { int decreaser; string = (char *)alloca (1024 + 1); for (i = 0; i < 1024; i++) string[i] = c; while (count) { decreaser = (count > 1024 ? 1024 : count); string[decreaser] = '\0'; rl_insert_text (string); count -= decreaser; } return 0; } /* We are inserting a single character. If there is pending input, then make a string of all of the pending characters that are bound to rl_insert, and insert them all. */ if (any_typein) { int key = 0, t; i = 0; string = (char *)alloca (ibuffer_len + 1); string[i++] = c; while ((t = rl_get_char (&key)) && (_rl_keymap[key].type == ISFUNC && _rl_keymap[key].function == rl_insert)) string[i++] = key; if (t) rl_unget_char (key); string[i] = '\0'; rl_insert_text (string); } else { /* Inserting a single character. */ string = (char *)alloca (2); string[1] = '\0'; string[0] = c; rl_insert_text (string); } return 0; } /* Insert the next typed character verbatim. */ rl_quoted_insert (count) int count; { int c; c = rl_read_key (); return (rl_insert (count, c)); } /* Insert a tab character. */ rl_tab_insert (count) int count; { return (rl_insert (count, '\t')); } /* What to do when a NEWLINE is pressed. We accept the whole line. KEY is the key that invoked this command. I guess it could have meaning in the future. */ rl_newline (count, key) int count, key; { rl_done = 1; #if defined (VI_MODE) { extern int _rl_vi_doing_insert; if (_rl_vi_doing_insert) { rl_end_undo_group (); _rl_vi_doing_insert = 0; } } rl_vi_set_last (); #endif /* VI_MODE */ if (readline_echoing_p) { _rl_move_vert (_rl_vis_botlin); _rl_vis_botlin = 0; crlf (); fflush (out_stream); rl_display_fixed++; } return 0; } rl_clean_up_for_exit () { if (readline_echoing_p) { _rl_move_vert (_rl_vis_botlin); _rl_vis_botlin = 0; fflush (out_stream); rl_restart_output (); } return 0; } /* What to do for some uppercase characters, like meta characters, and some characters appearing in emacs_ctlx_keymap. This function is just a stub, you bind keys to it and the code in rl_dispatch () is special cased. */ rl_do_lowercase_version (ignore1, ignore2) int ignore1, ignore2; { return 0; } /* Rubout the character behind point. */ rl_rubout (count) int count; { if (count < 0) { rl_delete (-count); return 0; } if (!rl_point) { ding (); return -1; } if (count > 1 || rl_explicit_arg) { int orig_point = rl_point; rl_backward (count); rl_kill_text (orig_point, rl_point); } else { int c = the_line[--rl_point]; rl_delete_text (rl_point, rl_point + 1); if (rl_point == rl_end && isprint (c) && _rl_last_c_pos) { int l; l = rl_character_len (c, rl_point); _rl_erase_at_end_of_line (l); } } return 0; } /* Delete the character under the cursor. Given a numeric argument, kill that many characters instead. */ rl_delete (count, invoking_key) int count, invoking_key; { if (count < 0) { return (rl_rubout (-count)); } if (rl_point == rl_end) { ding (); return -1; } if (count > 1 || rl_explicit_arg) { int orig_point = rl_point; rl_forward (count); rl_kill_text (orig_point, rl_point); rl_point = orig_point; return 0; } else return (rl_delete_text (rl_point, rl_point + 1)); } /* Delete all spaces and tabs around point. */ rl_delete_horizontal_space (count, ignore) int count, ignore; { int start = rl_point; while (rl_point && whitespace (the_line[rl_point - 1])) rl_point--; start = rl_point; while (rl_point < rl_end && whitespace (the_line[rl_point])) rl_point++; if (start != rl_point) { rl_delete_text (start, rl_point); rl_point = start; } return 0; } /* **************************************************************** */ /* */ /* Kill commands */ /* */ /* **************************************************************** */ /* The next two functions mimic unix line editing behaviour, except they save the deleted text on the kill ring. This is safer than not saving it, and since we have a ring, nobody should get screwed. */ /* This does what C-w does in Unix. We can't prevent people from using behaviour that they expect. */ rl_unix_word_rubout () { if (!rl_point) ding (); else { int orig_point = rl_point; while (rl_point && whitespace (the_line[rl_point - 1])) rl_point--; while (rl_point && !whitespace (the_line[rl_point - 1])) rl_point--; rl_kill_text (rl_point, orig_point); } return 0; } /* Here is C-u doing what Unix does. You don't *have* to use these key-bindings. We have a choice of killing the entire line, or killing from where we are to the start of the line. We choose the latter, because if you are a Unix weenie, then you haven't backspaced into the line at all, and if you aren't, then you know what you are doing. */ rl_unix_line_discard () { if (!rl_point) ding (); else { rl_kill_text (rl_point, 0); rl_point = 0; } return 0; } /* **************************************************************** */ /* */ /* Commands For Typos */ /* */ /* **************************************************************** */ /* Random and interesting things in here. */ /* **************************************************************** */ /* */ /* Changing Case */ /* */ /* **************************************************************** */ /* The three kinds of things that we know how to do. */ #define UpCase 1 #define DownCase 2 #define CapCase 3 static int rl_change_case (); /* Uppercase the word at point. */ rl_upcase_word (count) int count; { return (rl_change_case (count, UpCase)); } /* Lowercase the word at point. */ rl_downcase_word (count) int count; { return (rl_change_case (count, DownCase)); } /* Upcase the first letter, downcase the rest. */ rl_capitalize_word (count) int count; { return (rl_change_case (count, CapCase)); } /* The meaty function. Change the case of COUNT words, performing OP on them. OP is one of UpCase, DownCase, or CapCase. If a negative argument is given, leave point where it started, otherwise, leave it where it moves to. */ static int rl_change_case (count, op) int count, op; { register int start = rl_point, end; int state = 0; rl_forward_word (count); end = rl_point; if (count < 0) { int temp = start; start = end; end = temp; } /* We are going to modify some text, so let's prepare to undo it. */ rl_modifying (start, end); for (; start < end; start++) { switch (op) { case UpCase: the_line[start] = to_upper (the_line[start]); break; case DownCase: the_line[start] = to_lower (the_line[start]); break; case CapCase: if (state == 0) { the_line[start] = to_upper (the_line[start]); state = 1; } else { the_line[start] = to_lower (the_line[start]); } if (!pure_alphabetic (the_line[start])) state = 0; break; default: abort (); return -1; } } rl_point = end; return 0; } /* **************************************************************** */ /* */ /* Transposition */ /* */ /* **************************************************************** */ /* Transpose the words at point. */ rl_transpose_words (count) int count; { char *word1, *word2; int w1_beg, w1_end, w2_beg, w2_end; int orig_point = rl_point; if (!count) return 0; /* Find the two words. */ rl_forward_word (count); w2_end = rl_point; rl_backward_word (1); w2_beg = rl_point; rl_backward_word (count); w1_beg = rl_point; rl_forward_word (1); w1_end = rl_point; /* Do some check to make sure that there really are two words. */ if ((w1_beg == w2_beg) || (w2_beg < w1_end)) { ding (); rl_point = orig_point; return -1; } /* Get the text of the words. */ word1 = rl_copy_text (w1_beg, w1_end); word2 = rl_copy_text (w2_beg, w2_end); /* We are about to do many insertions and deletions. Remember them as one operation. */ rl_begin_undo_group (); /* Do the stuff at word2 first, so that we don't have to worry about word1 moving. */ rl_point = w2_beg; rl_delete_text (w2_beg, w2_end); rl_insert_text (word1); rl_point = w1_beg; rl_delete_text (w1_beg, w1_end); rl_insert_text (word2); /* This is exactly correct since the text before this point has not changed in length. */ rl_point = w2_end; /* I think that does it. */ rl_end_undo_group (); free (word1); free (word2); return 0; } /* Transpose the characters at point. If point is at the end of the line, then transpose the characters before point. */ rl_transpose_chars (count) int count; { char dummy[2]; if (!count) return 0; if (!rl_point || rl_end < 2) { ding (); return -1; } rl_begin_undo_group (); if (rl_point == rl_end) { --rl_point; count = 1; } rl_point--; dummy[0] = the_line[rl_point]; dummy[1] = '\0'; rl_delete_text (rl_point, rl_point + 1); rl_point += count; if (rl_point > rl_end) rl_point = rl_end; else if (rl_point < 0) rl_point = 0; rl_insert_text (dummy); rl_end_undo_group (); return 0; } /* **************************************************************** */ /* */ /* Undo, and Undoing */ /* */ /* **************************************************************** */ /* The current undo list for THE_LINE. */ UNDO_LIST *rl_undo_list = (UNDO_LIST *)NULL; /* Remember how to undo something. Concatenate some undos if that seems right. */ void rl_add_undo (what, start, end, text) enum undo_code what; int start, end; char *text; { UNDO_LIST *temp = (UNDO_LIST *)xmalloc (sizeof (UNDO_LIST)); temp->what = what; temp->start = start; temp->end = end; temp->text = text; temp->next = rl_undo_list; rl_undo_list = temp; } /* Free the existing undo list. */ void free_undo_list () { while (rl_undo_list) { UNDO_LIST *release = rl_undo_list; rl_undo_list = rl_undo_list->next; if (release->what == UNDO_DELETE) free (release->text); free (release); } rl_undo_list = (UNDO_LIST *)NULL; } /* Undo the next thing in the list. Return 0 if there is nothing to undo, or non-zero if there was. */ int rl_do_undo () { UNDO_LIST *release; int waiting_for_begin = 0; undo_thing: if (!rl_undo_list) return (0); doing_an_undo = 1; switch (rl_undo_list->what) { /* Undoing deletes means inserting some text. */ case UNDO_DELETE: rl_point = rl_undo_list->start; rl_insert_text (rl_undo_list->text); free (rl_undo_list->text); break; /* Undoing inserts means deleting some text. */ case UNDO_INSERT: rl_delete_text (rl_undo_list->start, rl_undo_list->end); rl_point = rl_undo_list->start; break; /* Undoing an END means undoing everything 'til we get to a BEGIN. */ case UNDO_END: waiting_for_begin++; break; /* Undoing a BEGIN means that we are done with this group. */ case UNDO_BEGIN: if (waiting_for_begin) waiting_for_begin--; else #if 0 abort (); #else ding (); #endif break; } doing_an_undo = 0; release = rl_undo_list; rl_undo_list = rl_undo_list->next; free (release); if (waiting_for_begin) goto undo_thing; return (1); } /* Begin a group. Subsequent undos are undone as an atomic operation. */ rl_begin_undo_group () { rl_add_undo (UNDO_BEGIN, 0, 0, 0); return 0; } /* End an undo group started with rl_begin_undo_group (). */ rl_end_undo_group () { rl_add_undo (UNDO_END, 0, 0, 0); return 0; } /* Save an undo entry for the text from START to END. */ rl_modifying (start, end) int start, end; { if (start > end) { int t = start; start = end; end = t; } if (start != end) { char *temp = rl_copy_text (start, end); rl_begin_undo_group (); rl_add_undo (UNDO_DELETE, start, end, temp); rl_add_undo (UNDO_INSERT, start, end, (char *)NULL); rl_end_undo_group (); } return 0; } /* Revert the current line to its previous state. */ rl_revert_line () { if (!rl_undo_list) ding (); else { while (rl_undo_list) rl_do_undo (); } return 0; } /* Do some undoing of things that were done. */ rl_undo_command (count) int count; { if (count < 0) return 0; /* Nothing to do. */ while (count) { if (rl_do_undo ()) count--; else { ding (); break; } } return 0; } /* **************************************************************** */ /* */ /* History Utilities */ /* */ /* **************************************************************** */ /* We already have a history library, and that is what we use to control the history features of readline. However, this is our local interface to the history mechanism. */ /* While we are editing the history, this is the saved version of the original line. */ HIST_ENTRY *saved_line_for_history = (HIST_ENTRY *)NULL; /* Set the history pointer back to the last entry in the history. */ start_using_history () { using_history (); if (saved_line_for_history) free_history_entry (saved_line_for_history); saved_line_for_history = (HIST_ENTRY *)NULL; return 0; } /* Free the contents (and containing structure) of a HIST_ENTRY. */ void free_history_entry (entry) HIST_ENTRY *entry; { if (!entry) return; if (entry->line) free (entry->line); free (entry); } /* Perhaps put back the current line if it has changed. */ maybe_replace_line () { HIST_ENTRY *temp = current_history (); /* If the current line has changed, save the changes. */ if (temp && ((UNDO_LIST *)(temp->data) != rl_undo_list)) { temp = replace_history_entry (where_history (), the_line, rl_undo_list); free (temp->line); free (temp); } return 0; } /* Put back the saved_line_for_history if there is one. */ maybe_unsave_line () { if (saved_line_for_history) { int line_len; line_len = strlen (saved_line_for_history->line); if (line_len >= rl_line_buffer_len) rl_extend_line_buffer (line_len); strcpy (the_line, saved_line_for_history->line); rl_undo_list = (UNDO_LIST *)saved_line_for_history->data; free_history_entry (saved_line_for_history); saved_line_for_history = (HIST_ENTRY *)NULL; rl_end = rl_point = strlen (the_line); } else ding (); return 0; } /* Save the current line in saved_line_for_history. */ maybe_save_line () { if (!saved_line_for_history) { saved_line_for_history = (HIST_ENTRY *)xmalloc (sizeof (HIST_ENTRY)); saved_line_for_history->line = savestring (the_line); saved_line_for_history->data = (char *)rl_undo_list; } return 0; } /* **************************************************************** */ /* */ /* History Commands */ /* */ /* **************************************************************** */ /* Meta-< goes to the start of the history. */ rl_beginning_of_history () { return (rl_get_previous_history (1 + where_history ())); } /* Meta-> goes to the end of the history. (The current line). */ rl_end_of_history () { maybe_replace_line (); using_history (); maybe_unsave_line (); return 0; } /* Move down to the next history line. */ rl_get_next_history (count) int count; { HIST_ENTRY *temp = (HIST_ENTRY *)NULL; if (count < 0) return (rl_get_previous_history (-count)); if (!count) return 0; maybe_replace_line (); while (count) { temp = next_history (); if (!temp) break; --count; } if (!temp) maybe_unsave_line (); else { int line_len; line_len = strlen (temp->line); if (line_len >= rl_line_buffer_len) rl_extend_line_buffer (line_len); strcpy (the_line, temp->line); rl_undo_list = (UNDO_LIST *)temp->data; rl_end = rl_point = strlen (the_line); #if defined (VI_MODE) if (rl_editing_mode == vi_mode) rl_point = 0; #endif /* VI_MODE */ } return 0; } /* Get the previous item out of our interactive history, making it the current line. If there is no previous history, just ding. */ rl_get_previous_history (count) int count; { HIST_ENTRY *old_temp = (HIST_ENTRY *)NULL; HIST_ENTRY *temp = (HIST_ENTRY *)NULL; if (count < 0) return (rl_get_next_history (-count)); if (!count) return 0; /* If we don't have a line saved, then save this one. */ maybe_save_line (); /* If the current line has changed, save the changes. */ maybe_replace_line (); while (count) { temp = previous_history (); if (!temp) break; else old_temp = temp; --count; } /* If there was a large argument, and we moved back to the start of the history, that is not an error. So use the last value found. */ if (!temp && old_temp) temp = old_temp; if (!temp) ding (); else { int line_len; line_len = strlen (temp->line); if (line_len >= rl_line_buffer_len) rl_extend_line_buffer (line_len); strcpy (the_line, temp->line); rl_undo_list = (UNDO_LIST *)temp->data; rl_end = rl_point = line_len; #if defined (VI_MODE) if (rl_editing_mode == vi_mode) rl_point = 0; #endif /* VI_MODE */ } return 0; } /* Make C be the next command to be executed. */ rl_execute_next (c) int c; { rl_pending_input = c; return 0; } /* **************************************************************** */ /* */ /* The Mark and the Region. */ /* */ /* **************************************************************** */ /* Set the mark at POSITION. */ rl_set_mark (position) int position; { if (position > rl_end) return -1; rl_mark = position; return 0; } /* Exchange the position of mark and point. */ rl_exchange_mark_and_point () { if (rl_mark > rl_end) rl_mark = -1; if (rl_mark == -1) { ding (); return -1; } else { int temp = rl_point; rl_point = rl_mark; rl_mark = temp; } return 0; } /* **************************************************************** */ /* */ /* Killing Mechanism */ /* */ /* **************************************************************** */ /* What we assume for a max number of kills. */ #define DEFAULT_MAX_KILLS 10 /* The real variable to look at to find out when to flush kills. */ int rl_max_kills = DEFAULT_MAX_KILLS; /* Where to store killed text. */ char **rl_kill_ring = (char **)NULL; /* Where we are in the kill ring. */ int rl_kill_index = 0; /* How many slots we have in the kill ring. */ int rl_kill_ring_length = 0; /* How to say that you only want to save a certain amount of kill material. */ rl_set_retained_kills (num) int num; { return 0; } /* The way to kill something. This appends or prepends to the last kill, if the last command was a kill command. if FROM is less than TO, then the text is appended, otherwise prepended. If the last command was not a kill command, then a new slot is made for this kill. */ rl_kill_text (from, to) int from, to; { int slot; char *text = rl_copy_text (from, to); /* Is there anything to kill? */ if (from == to) { free (text); last_command_was_kill++; return 0; } /* Delete the copied text from the line. */ rl_delete_text (from, to); /* First, find the slot to work with. */ if (!last_command_was_kill) { /* Get a new slot. */ if (!rl_kill_ring) { /* If we don't have any defined, then make one. */ rl_kill_ring = (char **) xmalloc (((rl_kill_ring_length = 1) + 1) * sizeof (char *)); slot = 1; } else { /* We have to add a new slot on the end, unless we have exceeded the max limit for remembering kills. */ slot = rl_kill_ring_length; if (slot == rl_max_kills) { register int i; free (rl_kill_ring[0]); for (i = 0; i < slot; i++) rl_kill_ring[i] = rl_kill_ring[i + 1]; } else { rl_kill_ring = (char **) xrealloc (rl_kill_ring, ((slot = (rl_kill_ring_length += 1)) + 1) * sizeof (char *)); } } slot--; } else { slot = rl_kill_ring_length - 1; } /* If the last command was a kill, prepend or append. */ if (last_command_was_kill && rl_editing_mode != vi_mode) { char *old = rl_kill_ring[slot]; char *new = (char *)xmalloc (1 + strlen (old) + strlen (text)); if (from < to) { strcpy (new, old); strcat (new, text); } else { strcpy (new, text); strcat (new, old); } free (old); free (text); rl_kill_ring[slot] = new; } else { rl_kill_ring[slot] = text; } rl_kill_index = slot; last_command_was_kill++; return 0; } /* Now REMEMBER! In order to do prepending or appending correctly, kill commands always make rl_point's original position be the FROM argument, and rl_point's extent be the TO argument. */ /* **************************************************************** */ /* */ /* Killing Commands */ /* */ /* **************************************************************** */ /* Delete the word at point, saving the text in the kill ring. */ rl_kill_word (count) int count; { int orig_point = rl_point; if (count < 0) return (rl_backward_kill_word (-count)); else { rl_forward_word (count); if (rl_point != orig_point) rl_kill_text (orig_point, rl_point); rl_point = orig_point; } return 0; } /* Rubout the word before point, placing it on the kill ring. */ rl_backward_kill_word (count) int count; { int orig_point = rl_point; if (count < 0) return (rl_kill_word (-count)); else { rl_backward_word (count); if (rl_point != orig_point) rl_kill_text (orig_point, rl_point); } } /* Kill from here to the end of the line. If DIRECTION is negative, kill back to the line start instead. */ rl_kill_line (direction) int direction; { int orig_point = rl_point; if (direction < 0) return (rl_backward_kill_line (1)); else { rl_end_of_line (); if (orig_point != rl_point) rl_kill_text (orig_point, rl_point); rl_point = orig_point; } return 0; } /* Kill backwards to the start of the line. If DIRECTION is negative, kill forwards to the line end instead. */ rl_backward_kill_line (direction) int direction; { int orig_point = rl_point; if (direction < 0) return (rl_kill_line (1)); else { if (!rl_point) ding (); else { rl_beg_of_line (); rl_kill_text (orig_point, rl_point); } } return 0; } /* Yank back the last killed text. This ignores arguments. */ rl_yank () { if (!rl_kill_ring) { rl_abort (); return -1; } rl_set_mark (rl_point); rl_insert_text (rl_kill_ring[rl_kill_index]); return 0; } /* If the last command was yank, or yank_pop, and the text just before point is identical to the current kill item, then delete that text from the line, rotate the index down, and yank back some other text. */ rl_yank_pop () { int l; if (((rl_last_func != rl_yank_pop) && (rl_last_func != rl_yank)) || !rl_kill_ring) { rl_abort (); return -1; } l = strlen (rl_kill_ring[rl_kill_index]); if (((rl_point - l) >= 0) && (strncmp (the_line + (rl_point - l), rl_kill_ring[rl_kill_index], l) == 0)) { rl_delete_text ((rl_point - l), rl_point); rl_point -= l; rl_kill_index--; if (rl_kill_index < 0) rl_kill_index = rl_kill_ring_length - 1; rl_yank (); return 0; } else { rl_abort (); return -1; } } /* Yank the COUNTth argument from the previous history line. */ rl_yank_nth_arg (count, ignore) int count; { register HIST_ENTRY *entry = previous_history (); char *arg; if (entry) next_history (); else { ding (); return -1; } arg = history_arg_extract (count, count, entry->line); if (!arg || !*arg) { ding (); return -1; } rl_begin_undo_group (); #if defined (VI_MODE) /* Vi mode always inserts a space before yanking the argument, and it inserts it right *after* rl_point. */ if (rl_editing_mode == vi_mode) rl_point++; #endif /* VI_MODE */ #if 0 if (rl_point && the_line[rl_point - 1] != ' ') rl_insert_text (" "); #endif rl_insert_text (arg); free (arg); rl_end_undo_group (); return 0; } /* How to toggle back and forth between editing modes. */ rl_vi_editing_mode () { #if defined (VI_MODE) rl_editing_mode = vi_mode; rl_vi_insertion_mode (); return 0; #endif /* VI_MODE */ } rl_emacs_editing_mode () { rl_editing_mode = emacs_mode; _rl_keymap = emacs_standard_keymap; return 0; } /* **************************************************************** */ /* */ /* USG (System V) Support */ /* */ /* **************************************************************** */ int rl_getc (stream) FILE *stream; { int result; unsigned char c; #if defined (__GO32__) if (isatty (0)) return (getkey () & 0x7f); #endif /* __GO32__ */ while (1) { result = read (fileno (stream), &c, sizeof (unsigned char)); if (result == sizeof (unsigned char)) return (c); /* If zero characters are returned, then the file that we are reading from is empty! Return EOF in that case. */ if (result == 0) return (EOF); #if defined (EWOULDBLOCK) if (errno == EWOULDBLOCK) { int flags; if ((flags = fcntl (fileno (stream), F_GETFL, 0)) < 0) return (EOF); if (flags & O_NDELAY) { flags &= ~O_NDELAY; fcntl (fileno (stream), F_SETFL, flags); continue; } continue; } #endif /* EWOULDBLOCK */ #if defined (_POSIX_VERSION) && defined (EAGAIN) && defined (O_NONBLOCK) if (errno == EAGAIN) { int flags; if ((flags = fcntl (fileno (stream), F_GETFL, 0)) < 0) return (EOF); if (flags & O_NONBLOCK) { flags &= ~O_NONBLOCK; fcntl (fileno (stream), F_SETFL, flags); continue; } } #endif /* _POSIX_VERSION && EAGAIN && O_NONBLOCK */ #if !defined (__GO32__) /* If the error that we received was SIGINT, then try again, this is simply an interrupted system call to read (). Otherwise, some error ocurred, also signifying EOF. */ if (errno != EINTR) return (EOF); #endif /* !__GO32__ */ } } char * _rl_savestring (str) char *str; { char *copy = (char*) xmalloc (strlen (str) + 1); strcpy (copy, str); return copy; } #if defined (STATIC_MALLOC) /* **************************************************************** */ /* */ /* xmalloc and xrealloc () */ /* */ /* **************************************************************** */ static void memory_error_and_abort (); static char * xmalloc (bytes) int bytes; { char *temp = (char *)malloc (bytes); if (!temp) memory_error_and_abort (); return (temp); } static char * xrealloc (pointer, bytes) char *pointer; int bytes; { char *temp; if (!pointer) temp = (char *)malloc (bytes); else temp = (char *)realloc (pointer, bytes); if (!temp) memory_error_and_abort (); return (temp); } static void memory_error_and_abort () { fprintf (stderr, "readline: Out of virtual memory!\n"); abort (); } #endif /* STATIC_MALLOC */ /* **************************************************************** */ /* */ /* Testing Readline */ /* */ /* **************************************************************** */ #if defined (TEST) main () { HIST_ENTRY **history_list (); char *temp = (char *)NULL; char *prompt = "readline% "; int done = 0; while (!done) { temp = readline (prompt); /* Test for EOF. */ if (!temp) exit (1); /* If there is anything on the line, print it and remember it. */ if (*temp) { fprintf (stderr, "%s\r\n", temp); add_history (temp); } /* Check for `command' that we handle. */ if (strcmp (temp, "quit") == 0) done = 1; if (strcmp (temp, "list") == 0) { HIST_ENTRY **list = history_list (); register int i; if (list) { for (i = 0; list[i]; i++) { fprintf (stderr, "%d: %s\r\n", i, list[i]->line); free (list[i]->line); } free (list); } } free (temp); } } #endif /* TEST */ /* * Local variables: * compile-command: "gcc -g -traditional -I. -I.. -DTEST -o readline readline.c keymaps.o funmap.o history.o -ltermcap" * end: */ gdb-4.13/readline/readline.h 666 34562 1752 23340 5533115517 14303 0ustar fnfcygnus/* Readline.h -- the names of functions callable from within readline. */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (_READLINE_H_) #define _READLINE_H_ #include "keymaps.h" /* The functions for manipulating the text of the line within readline. Most of these functions are bound to keys by default. */ extern int rl_tilde_expand (), rl_beg_of_line (), rl_backward (), rl_delete (), rl_end_of_line (), rl_forward (), ding (), rl_backward (), rl_newline (), rl_kill_line (), rl_clear_screen (), rl_get_next_history (), rl_get_previous_history (), rl_quoted_insert (), rl_reverse_search_history (), rl_transpose_chars (), rl_unix_line_discard (), rl_quoted_insert (), rl_unix_word_rubout (), rl_yank (), rl_rubout (), rl_backward_word (), rl_kill_word (), rl_forward_word (), rl_tab_insert (), rl_yank_pop (), rl_yank_nth_arg (), rl_backward_kill_word (), rl_backward_kill_line (), rl_transpose_words (), rl_complete (), rl_possible_completions (), rl_insert_completions (), rl_do_lowercase_version (), rl_digit_argument (), rl_universal_argument (), rl_abort (), rl_undo_command (), rl_revert_line (), rl_beginning_of_history (), rl_end_of_history (), rl_forward_search_history (), rl_insert (), rl_upcase_word (), rl_downcase_word (), rl_capitalize_word (), rl_restart_output (), rl_re_read_init_file (), rl_dump_functions (), rl_delete_horizontal_space (); /* #define PAREN_MATCHING */ #if defined (PAREN_MATCHING) extern int rl_insert_close (); #endif /* PAREN_MATCHING */ /* These are *both* defined even when VI_MODE is not. */ extern int rl_vi_editing_mode (), rl_emacs_editing_mode (); /* Non incremental history searching. */ extern int rl_noninc_forward_search (), rl_noninc_reverse_search (), rl_noninc_forward_search_again (), rl_noninc_reverse_search_again (); #if defined (VI_MODE) /* Things for vi mode. */ extern int rl_vi_redo (), rl_vi_tilde_expand (), rl_vi_movement_mode (), rl_vi_insertion_mode (), rl_vi_arg_digit (), rl_vi_prev_word (), rl_vi_next_word (), rl_vi_char_search (), rl_vi_eof_maybe (), rl_vi_append_mode (), rl_vi_put (), rl_vi_append_eol (), rl_vi_insert_beg (), rl_vi_delete (), rl_vi_comment (), rl_vi_first_print (), rl_vi_fword (), rl_vi_fWord (), rl_vi_bword (), rl_vi_bWord (), rl_vi_eword (), rl_vi_eWord (), rl_vi_end_word (), rl_vi_change_case (), rl_vi_match (), rl_vi_bracktype (), rl_vi_change_char (), rl_vi_yank_arg (), rl_vi_search (), rl_vi_search_again (), rl_vi_subst (), rl_vi_overstrike (), rl_vi_overstrike_delete (), rl_vi_replace(), rl_vi_column (), rl_vi_delete_to (), rl_vi_change_to (), rl_vi_yank_to (), rl_vi_complete (), rl_vi_fetch_history (); #endif /* VI_MODE */ /* Keyboard macro commands. */ extern int rl_start_kbd_macro (), rl_end_kbd_macro (), rl_call_last_kbd_macro (); extern int rl_arrow_keys(), rl_refresh_line (); /* Maintaining the state of undo. We remember individual deletes and inserts on a chain of things to do. */ /* The actions that undo knows how to undo. Notice that UNDO_DELETE means to insert some text, and UNDO_INSERT means to delete some text. I.e., the code tells undo what to undo, not how to undo it. */ enum undo_code { UNDO_DELETE, UNDO_INSERT, UNDO_BEGIN, UNDO_END }; /* What an element of THE_UNDO_LIST looks like. */ typedef struct undo_list { struct undo_list *next; int start, end; /* Where the change took place. */ char *text; /* The text to insert, if undoing a delete. */ enum undo_code what; /* Delete, Insert, Begin, End. */ } UNDO_LIST; /* The current undo list for RL_LINE_BUFFER. */ extern UNDO_LIST *rl_undo_list; /* The data structure for mapping textual names to code addresses. */ typedef struct { char *name; Function *function; } FUNMAP; extern FUNMAP **funmap; /* **************************************************************** */ /* */ /* Well Published Variables */ /* */ /* **************************************************************** */ /* The name of the calling program. You should initialize this to whatever was in argv[0]. It is used when parsing conditionals. */ extern char *rl_readline_name; /* The line buffer that is in use. */ extern char *rl_line_buffer; /* The location of point, and end. */ extern int rl_point, rl_end; /* The name of the terminal to use. */ extern char *rl_terminal_name; /* The input and output streams. */ extern FILE *rl_instream, *rl_outstream; /* The basic list of characters that signal a break between words for the completer routine. The initial contents of this variable is what breaks words in the shell, i.e. "n\"\\'`@$>". */ extern char *rl_basic_word_break_characters; /* The list of characters that signal a break between words for rl_complete_internal. The default list is the contents of rl_basic_word_break_characters. */ extern char *rl_completer_word_break_characters; /* List of characters which are used to quote a substring of the command line, upon which completion is to be performed for the entire substring. Within quoted substrings, rl_completer_word_break_characters are treated as normal characters, unless they also appear in this list. */ extern char *rl_completer_quote_characters; /* List of characters that are word break characters, but should be left in TEXT when it is passed to the completion function. The shell uses this to help determine what kind of completing to do. */ extern char *rl_special_prefixes; /* Pointer to the generator function for completion_matches (). NULL means to use filename_entry_function (), the default filename completer. */ extern Function *rl_completion_entry_function; /* If rl_ignore_some_completions_function is non-NULL it is the address of a function to call after all of the possible matches have been generated, but before the actual completion is done to the input line. The function is called with one argument; a NULL terminated array of (char *). If your function removes any of the elements, they must be free()'ed. */ extern Function *rl_ignore_some_completions_function; /* Pointer to alternative function to create matches. Function is called with TEXT, START, and END. START and END are indices in RL_LINE_BUFFER saying what the boundaries of TEXT are. If this function exists and returns NULL then call the value of rl_completion_entry_function to try to match, otherwise use the array of strings returned. */ extern CPPFunction *rl_attempted_completion_function; /* If non-zero, then this is the address of a function to call just before readline_internal () prints the first prompt. */ extern Function *rl_startup_hook; /* If non-zero, then this is the address of a function to call when completing on a directory name. The function is called with the address of a string (the current directory name) as an arg. */ extern Function *rl_symbolic_link_hook; /* The address of a function to call periodically while Readline is awaiting character input, or NULL, for no event handling. */ extern Function *rl_event_hook; /* Non-zero means that modified history lines are preceded with an asterisk. */ extern int rl_show_star; /* **************************************************************** */ /* */ /* Tilde Variables That Can be Externally Set */ /* */ /* **************************************************************** */ /* If non-null, this contains the address of a function to call if the standard meaning for expanding a tilde fails. The function is called with the text (sans tilde, as in "foo"), and returns a malloc()'ed string which is the expansion, or a NULL pointer if there is no expansion. */ extern Function *tilde_expansion_failure_hook; /* When non-null, this is a NULL terminated array of strings which are duplicates for a tilde prefix. Bash uses this to expand `=~' and `:~'. */ extern char **tilde_additional_prefixes; /* When non-null, this is a NULL terminated array of strings which match the end of a username, instead of just "/". Bash sets this to `/' and `:'. */ extern char **tilde_additional_suffixes; /* **************************************************************** */ /* */ /* Well Published Functions */ /* */ /* **************************************************************** */ /* Read a line of input. Prompt with PROMPT. A NULL PROMPT means none. */ extern char *readline (); /* Return an array of strings which are the result of repeatadly calling FUNC with TEXT. */ extern char **completion_matches (); /* rl_add_defun (char *name, Function *function, int key) Add NAME to the list of named functions. Make FUNCTION be the function that gets called. If KEY is not -1, then bind it. */ extern int rl_add_defun (); #endif /* _READLINE_H_ */ gdb-4.13/readline/rldefs.h 666 34562 1752 16657 5562013265 14013 0ustar fnfcygnus/* rldefs.h -- an attempt to isolate some of the system-specific defines for readline. This should be included after any files that define system-specific constants like _POSIX_VERSION or USG. */ /* Copyright (C) 1987,1989 Free Software Foundation, Inc. This file contains the Readline Library (the Library), a set of routines for providing Emacs style line input to programs that ask for it. The Library 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 1, or (at your option) any later version. The Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (_RLDEFS_H) #define _RLDEFS_H #if defined (__GNUC__) # undef alloca # define alloca __builtin_alloca #else # if defined (sparc) || defined (HAVE_ALLOCA_H) # include # endif #endif #define NEW_TTY_DRIVER #define HAVE_BSD_SIGNALS /* #define USE_XON_XOFF */ #ifdef __MSDOS__ #undef NEW_TTY_DRIVER #undef HAVE_BSD_SIGNALS #endif #if defined (__linux__) # include #endif /* __linux__ */ /* Some USG machines have BSD signal handling (sigblock, sigsetmask, etc.) */ /* CYGNUS LOCAL accept __hpux as well as hpux for HP compiler in ANSI mode. */ #if defined (USG) && !(defined (hpux) || defined (__hpux)) # undef HAVE_BSD_SIGNALS #endif /* System V machines use termio. */ #if !defined (_POSIX_VERSION) /* CYGNUS LOCAL accept __hpux as well as hpux for HP compiler in ANSI mode. */ # if defined (USG) || defined (hpux) || defined (__hpux) || defined (Xenix) || defined (sgi) || defined (DGUX) # undef NEW_TTY_DRIVER # define TERMIO_TTY_DRIVER # include # if !defined (TCOON) # define TCOON 1 # endif # endif /* USG || hpux || Xenix || sgi || DUGX */ #endif /* !_POSIX_VERSION */ /* Posix systems use termios and the Posix signal functions. */ #if defined (_POSIX_VERSION) # if !defined (TERMIOS_MISSING) # undef NEW_TTY_DRIVER # define TERMIOS_TTY_DRIVER # include # endif /* !TERMIOS_MISSING */ # define HAVE_POSIX_SIGNALS # if !defined (O_NDELAY) # define O_NDELAY O_NONBLOCK /* Posix-style non-blocking i/o */ # endif /* O_NDELAY */ #endif /* _POSIX_VERSION */ /* System V.3 machines have the old 4.1 BSD `reliable' signal interface. */ #if !defined (HAVE_BSD_SIGNALS) && !defined (HAVE_POSIX_SIGNALS) # if defined (USGr3) # if !defined (HAVE_USG_SIGHOLD) # define HAVE_USG_SIGHOLD # endif /* !HAVE_USG_SIGHOLD */ # endif /* USGr3 */ #endif /* !HAVE_BSD_SIGNALS && !HAVE_POSIX_SIGNALS */ /* Other (BSD) machines use sgtty. */ #if defined (NEW_TTY_DRIVER) # include #endif /* Define _POSIX_VDISABLE if we are not using the `new' tty driver and it is not already defined. It is used both to determine if a special character is disabled and to disable certain special characters. Posix systems should set to 0, USG systems to -1. */ #if !defined (NEW_TTY_DRIVER) && !defined (_POSIX_VDISABLE) # if defined (_POSIX_VERSION) # define _POSIX_VDISABLE 0 # else /* !_POSIX_VERSION */ # define _POSIX_VDISABLE -1 # endif /* !_POSIX_VERSION */ #endif /* !NEW_TTY_DRIVER && !_POSIX_VDISABLE */ #if 1 # define D_NAMLEN(d) strlen ((d)->d_name) #else /* !1 */ #if !defined (SHELL) && (defined (_POSIX_VERSION) || defined (USGr3)) # if !defined (HAVE_DIRENT_H) # define HAVE_DIRENT_H # endif /* !HAVE_DIRENT_H */ #endif /* !SHELL && (_POSIX_VERSION || USGr3) */ #if defined (HAVE_DIRENT_H) # include # if !defined (direct) # define direct dirent # endif /* !direct */ # define D_NAMLEN(d) strlen ((d)->d_name) #else /* !HAVE_DIRENT_H */ # define D_NAMLEN(d) ((d)->d_namlen) # if defined (USG) # if defined (Xenix) # include # else /* !Xenix (but USG...) */ # include "ndir.h" # endif /* !Xenix */ # else /* !USG */ # include # endif /* !USG */ #endif /* !HAVE_DIRENT_H */ #endif /* !1 */ #if defined (USG) && defined (TIOCGWINSZ) && !defined (Linux) # include # if defined (HAVE_SYS_PTEM_H) # include # endif /* HAVE_SYS_PTEM_H */ # if defined (HAVE_SYS_PTE_H) # include # endif /* HAVE_SYS_PTE_H */ #endif /* USG && TIOCGWINSZ && !Linux */ /* Posix macro to check file in statbuf for directory-ness. This requires that be included before this test. */ #if defined (S_IFDIR) && !defined (S_ISDIR) #define S_ISDIR(m) (((m)&S_IFMT) == S_IFDIR) #endif /* Posix macro to check file in statbuf for file-ness. This requires that be included before this test. */ #if defined (S_IFREG) && !defined (S_ISREG) #define S_ISREG(m) (((m)&S_IFMT) == S_IFREG) #endif #if !defined (strchr) && !defined (__STDC__) extern char *strchr (), *strrchr (); #endif /* !strchr && !__STDC__ */ #if defined (HAVE_VARARGS_H) # include #endif /* HAVE_VARARGS_H */ /* This definition is needed by readline.c, rltty.c, and signals.c. */ /* If on, then readline handles signals in a way that doesn't screw. */ #define HANDLE_SIGNALS #if !defined (emacs_mode) # define no_mode -1 # define vi_mode 0 # define emacs_mode 1 #endif /* Define some macros for dealing with assorted signalling disciplines. These macros provide a way to use signal blocking and disabling without smothering your code in a pile of #ifdef's. SIGNALS_UNBLOCK; Stop blocking all signals. { SIGNALS_DECLARE_SAVED (name); Declare a variable to save the signal blocking state. ... SIGNALS_BLOCK (SIGSTOP, name); Block a signal, and save the previous state for restoration later. ... SIGNALS_RESTORE (name); Restore previous signals. } */ #ifdef HAVE_POSIX_SIGNALS /* POSIX signals */ #define SIGNALS_UNBLOCK \ do { sigset_t set; \ sigemptyset (&set); \ sigprocmask (SIG_SETMASK, &set, (sigset_t *)NULL); \ } while (0) #define SIGNALS_DECLARE_SAVED(name) sigset_t name #define SIGNALS_BLOCK(SIG, saved) \ do { sigset_t set; \ sigemptyset (&set); \ sigaddset (&set, SIG); \ sigprocmask (SIG_BLOCK, &set, &saved); \ } while (0) #define SIGNALS_RESTORE(saved) \ sigprocmask (SIG_SETMASK, &saved, (sigset_t *)NULL) #else /* HAVE_POSIX_SIGNALS */ #ifdef HAVE_BSD_SIGNALS /* BSD signals */ #define SIGNALS_UNBLOCK sigsetmask (0) #define SIGNALS_DECLARE_SAVED(name) int name #define SIGNALS_BLOCK(SIG, saved) saved = sigblock (sigmask (SIG)) #define SIGNALS_RESTORE(saved) sigsetmask (saved) #else /* HAVE_BSD_SIGNALS */ /* None of the Above */ #define SIGNALS_UNBLOCK /* nothing */ #define SIGNALS_DECLARE_SAVED(name) /* nothing */ #define SIGNALS_BLOCK(SIG, saved) /* nothing */ #define SIGNALS_RESTORE(saved) /* nothing */ #endif /* HAVE_BSD_SIGNALS */ #endif /* HAVE_POSIX_SIGNALS */ #if !defined (strchr) extern char *strchr (); #endif #if !defined (strrchr) extern char *strrchr (); #endif #ifdef __STDC__ #include extern size_t strlen (const char *s); #endif /* __STDC__ */ /* End of signal handling definitions. */ #endif /* !_RLDEFS_H */ gdb-4.13/readline/rltty.c 666 34562 1752 37153 5607332735 13705 0ustar fnfcygnus/* rltty.c -- functions to prepare and restore the terminal for readline's use. */ /* Copyright (C) 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sysdep.h" #include #include #include #ifndef NO_SYS_FILE #include #endif #if defined (HAVE_UNISTD_H) # include #endif /* HAVE_UNISTD_H */ #include "rldefs.h" #include "readline.h" #if !defined (errno) extern int errno; #endif /* !errno */ extern int readline_echoing_p; extern int _rl_eof_char; #if defined (__GO32__) # include # undef HANDLE_SIGNALS #endif /* __GO32__ */ /* **************************************************************** */ /* */ /* Signal Management */ /* */ /* **************************************************************** */ #if defined (HAVE_POSIX_SIGNALS) static sigset_t sigint_set, sigint_oset; #else /* !HAVE_POSIX_SIGNALS */ # if defined (HAVE_BSD_SIGNALS) static int sigint_oldmask; # endif /* HAVE_BSD_SIGNALS */ #endif /* !HAVE_POSIX_SIGNALS */ static int sigint_blocked = 0; /* Cause SIGINT to not be delivered until the corresponding call to release_sigint(). */ static void block_sigint () { if (sigint_blocked) return; #if defined (HAVE_POSIX_SIGNALS) sigemptyset (&sigint_set); sigemptyset (&sigint_oset); sigaddset (&sigint_set, SIGINT); sigprocmask (SIG_BLOCK, &sigint_set, &sigint_oset); #else /* !HAVE_POSIX_SIGNALS */ # if defined (HAVE_BSD_SIGNALS) sigint_oldmask = sigblock (sigmask (SIGINT)); # else /* !HAVE_BSD_SIGNALS */ # if defined (HAVE_USG_SIGHOLD) sighold (SIGINT); # endif /* HAVE_USG_SIGHOLD */ # endif /* !HAVE_BSD_SIGNALS */ #endif /* !HAVE_POSIX_SIGNALS */ sigint_blocked = 1; } /* Allow SIGINT to be delivered. */ static void release_sigint () { if (!sigint_blocked) return; #if defined (HAVE_POSIX_SIGNALS) sigprocmask (SIG_SETMASK, &sigint_oset, (sigset_t *)NULL); #else # if defined (HAVE_BSD_SIGNALS) sigsetmask (sigint_oldmask); # else /* !HAVE_BSD_SIGNALS */ # if defined (HAVE_USG_SIGHOLD) sigrelse (SIGINT); # endif /* HAVE_USG_SIGHOLD */ # endif /* !HAVE_BSD_SIGNALS */ #endif /* !HAVE_POSIX_SIGNALS */ sigint_blocked = 0; } /* **************************************************************** */ /* */ /* Controlling the Meta Key */ /* */ /* **************************************************************** */ extern int term_has_meta; extern char *term_mm; extern char *term_mo; static void outchar (c) int c; { putc (c, rl_outstream); } /* Turn on/off the meta key depending on ON. */ #if !defined (__GO32__) static void control_meta_key (on) int on; { if (term_has_meta) { if (on && term_mm) tputs (term_mm, 1, outchar); else if (!on && term_mo) tputs (term_mo, 1, outchar); } } #endif /* !__GO32__ */ /* **************************************************************** */ /* */ /* Saving and Restoring the TTY */ /* */ /* **************************************************************** */ /* Non-zero means that the terminal is in a prepped state. */ static int terminal_prepped = 0; /* If non-zero, means that this process has called tcflow(fd, TCOOFF) and output is suspended. */ #if defined (__ksr1__) static int ksrflow = 0; #endif #if defined (NEW_TTY_DRIVER) /* Values for the `flags' field of a struct bsdtty. This tells which elements of the struct bsdtty have been fetched from the system and are valid. */ #define SGTTY_SET 0x01 #define LFLAG_SET 0x02 #define TCHARS_SET 0x04 #define LTCHARS_SET 0x08 struct bsdtty { struct sgttyb sgttyb; /* Basic BSD tty driver information. */ int lflag; /* Local mode flags, like LPASS8. */ #if defined (TIOCGETC) struct tchars tchars; /* Terminal special characters, including ^S and ^Q. */ #endif #if defined (TIOCGLTC) struct ltchars ltchars; /* 4.2 BSD editing characters */ #endif int flags; /* Bitmap saying which parts of the struct are valid. */ }; #define TIOTYPE struct bsdtty static TIOTYPE otio; static int get_tty_settings (tty, tiop) int tty; TIOTYPE *tiop; { tiop->flags = tiop->lflag = 0; ioctl (tty, TIOCGETP, &(tiop->sgttyb)); tiop->flags |= SGTTY_SET; #if defined (TIOCLGET) ioctl (tty, TIOCLGET, &(tiop->lflag)); tiop->flags |= LFLAG_SET; #endif #if defined (TIOCGETC) ioctl (tty, TIOCGETC, &(tiop->tchars)); tiop->flags |= TCHARS_SET; #endif #if defined (TIOCGLTC) ioctl (tty, TIOCGLTC, &(tiop->ltchars)); tiop->flags |= LTCHARS_SET; #endif return 0; } set_tty_settings (tty, tiop) int tty; TIOTYPE *tiop; { if (tiop->flags & SGTTY_SET) { ioctl (tty, TIOCSETN, &(tiop->sgttyb)); tiop->flags &= ~SGTTY_SET; } #if defined (TIOCLSET) if (tiop->flags & LFLAG_SET) { ioctl (tty, TIOCLSET, &(tiop->lflag)); tiop->flags &= ~LFLAG_SET; } #endif #if defined (TIOCSETC) if (tiop->flags & TCHARS_SET) { ioctl (tty, TIOCSETC, &(tiop->tchars)); tiop->flags &= ~TCHARS_SET; } #endif #if defined (TIOCSLTC) if (tiop->flags & LTCHARS_SET) { ioctl (tty, TIOCSLTC, &(tiop->ltchars)); tiop->flags &= ~LTCHARS_SET; } #endif return 0; } static void prepare_terminal_settings (meta_flag, otio, tiop) int meta_flag; TIOTYPE otio, *tiop; { #if !defined (__GO32__) readline_echoing_p = (otio.sgttyb.sg_flags & ECHO); /* Copy the original settings to the structure we're going to use for our settings. */ tiop->sgttyb = otio.sgttyb; tiop->lflag = otio.lflag; #if defined (TIOCGETC) tiop->tchars = otio.tchars; #endif #if defined (TIOCGLTC) tiop->ltchars = otio.ltchars; #endif tiop->flags = otio.flags; /* First, the basic settings to put us into character-at-a-time, no-echo input mode. */ tiop->sgttyb.sg_flags &= ~(ECHO | CRMOD); tiop->sgttyb.sg_flags |= CBREAK; /* If this terminal doesn't care how the 8th bit is used, then we can use it for the meta-key. If only one of even or odd parity is specified, then the terminal is using parity, and we cannot. */ #if !defined (ANYP) # define ANYP (EVENP | ODDP) #endif if (((otio.sgttyb.sg_flags & ANYP) == ANYP) || ((otio.sgttyb.sg_flags & ANYP) == 0)) { tiop->sgttyb.sg_flags |= ANYP; /* Hack on local mode flags if we can. */ #if defined (TIOCLGET) # if defined (LPASS8) tiop->lflag |= LPASS8; # endif /* LPASS8 */ #endif /* TIOCLGET */ } #if defined (TIOCGETC) # if defined (USE_XON_XOFF) /* Get rid of terminal output start and stop characters. */ tiop->tchars.t_stopc = -1; /* C-s */ tiop->tchars.t_startc = -1; /* C-q */ /* If there is an XON character, bind it to restart the output. */ if (otio.tchars.t_startc != -1) rl_bind_key (otio.tchars.t_startc, rl_restart_output); # endif /* USE_XON_XOFF */ /* If there is an EOF char, bind _rl_eof_char to it. */ if (otio.tchars.t_eofc != -1) _rl_eof_char = otio.tchars.t_eofc; # if defined (NO_KILL_INTR) /* Get rid of terminal-generated SIGQUIT and SIGINT. */ tiop->tchars.t_quitc = -1; /* C-\ */ tiop->tchars.t_intrc = -1; /* C-c */ # endif /* NO_KILL_INTR */ #endif /* TIOCGETC */ #if defined (TIOCGLTC) /* Make the interrupt keys go away. Just enough to make people happy. */ tiop->ltchars.t_dsuspc = -1; /* C-y */ tiop->ltchars.t_lnextc = -1; /* C-v */ #endif /* TIOCGLTC */ #endif /* !__GO32__ */ } #endif /* defined (NEW_TTY_DRIVER) */ #if !defined (NEW_TTY_DRIVER) && !defined(__GO32__) #if !defined (VMIN) # define VMIN VEOF #endif #if !defined (VTIME) # define VTIME VEOL #endif #if defined (TERMIOS_TTY_DRIVER) # define TIOTYPE struct termios # define DRAIN_OUTPUT(fd) tcdrain (fd) # define GETATTR(tty, tiop) (tcgetattr (tty, tiop)) # define SETATTR(tty, tiop) (tcsetattr (tty, TCSANOW, tiop)) #else # define TIOTYPE struct termio # define DRAIN_OUTPUT(fd) # define GETATTR(tty, tiop) (ioctl (tty, TCGETA, tiop)) # define SETATTR(tty, tiop) (ioctl (tty, TCSETA, tiop)) #endif /* !TERMIOS_TTY_DRIVER */ static TIOTYPE otio; static int get_tty_settings (tty, tiop) int tty; TIOTYPE *tiop; { while (GETATTR (tty, tiop) < 0) { if (errno != EINTR) return -1; errno = 0; } return 0; } static int set_tty_settings (tty, tiop) int tty; TIOTYPE *tiop; { while (SETATTR (tty, tiop) < 0) { if (errno != EINTR) return -1; errno = 0; } #if 0 #if defined (TERMIOS_TTY_DRIVER) # if defined (__ksr1__) if (ksrflow) { ksrflow = 0; tcflow (tty, TCOON); } # else /* !ksr1 */ tcflow (tty, TCOON); /* Simulate a ^Q. */ # endif /* !ksr1 */ #else ioctl (tty, TCXONC, 1); /* Simulate a ^Q. */ #endif /* !TERMIOS_TTY_DRIVER */ #endif return 0; } static void prepare_terminal_settings (meta_flag, otio, tiop) int meta_flag; TIOTYPE otio, *tiop; { readline_echoing_p = (otio.c_lflag & ECHO); tiop->c_lflag &= ~(ICANON | ECHO); if ((unsigned char) otio.c_cc[VEOF] != (unsigned char) _POSIX_VDISABLE) _rl_eof_char = otio.c_cc[VEOF]; #if defined (USE_XON_XOFF) #if defined (IXANY) tiop->c_iflag &= ~(IXON | IXOFF | IXANY); #else /* `strict' Posix systems do not define IXANY. */ tiop->c_iflag &= ~(IXON | IXOFF); #endif /* IXANY */ #endif /* USE_XON_XOFF */ /* Only turn this off if we are using all 8 bits. */ if (((tiop->c_cflag & CSIZE) == CS8) || meta_flag) tiop->c_iflag &= ~(ISTRIP | INPCK); /* Make sure we differentiate between CR and NL on input. */ tiop->c_iflag &= ~(ICRNL | INLCR); #if !defined (HANDLE_SIGNALS) tiop->c_lflag &= ~ISIG; #else tiop->c_lflag |= ISIG; #endif tiop->c_cc[VMIN] = 1; tiop->c_cc[VTIME] = 0; /* Turn off characters that we need on Posix systems with job control, just to be sure. This includes ^Y and ^V. This should not really be necessary. */ #if defined (TERMIOS_TTY_DRIVER) && defined (_POSIX_VDISABLE) #if defined (VLNEXT) tiop->c_cc[VLNEXT] = _POSIX_VDISABLE; #endif #if defined (VDSUSP) tiop->c_cc[VDSUSP] = _POSIX_VDISABLE; #endif #endif /* TERMIOS_TTY_DRIVER && _POSIX_VDISABLE */ } #endif /* !defined (NEW_TTY_DRIVER) && !defined(__GO32__) */ /* Put the terminal in CBREAK mode so that we can detect key presses. */ void rl_prep_terminal (meta_flag) int meta_flag; { #if !defined (__GO32__) int tty = fileno (rl_instream); TIOTYPE tio; if (terminal_prepped) return; /* Try to keep this function from being INTerrupted. */ block_sigint (); if (get_tty_settings (tty, &tio) < 0) { release_sigint (); return; } otio = tio; prepare_terminal_settings (meta_flag, otio, &tio); if (set_tty_settings (tty, &tio) < 0) { release_sigint (); return; } control_meta_key (1); terminal_prepped = 1; release_sigint (); #endif /* !__GO32__ */ } /* Restore the terminal's normal settings and modes. */ void rl_deprep_terminal () { #if !defined (__GO32__) int tty = fileno (rl_instream); if (!terminal_prepped) return; /* Try to keep this function from being INTerrupted. */ block_sigint (); if (set_tty_settings (tty, &otio) < 0) { release_sigint (); return; } #ifdef NEW_TTY_DRIVER readline_echoing_p = 1; #endif control_meta_key (0); terminal_prepped = 0; release_sigint (); #endif /* !__GO32__ */ } /* **************************************************************** */ /* */ /* Bogus Flow Control */ /* */ /* **************************************************************** */ rl_restart_output (count, key) int count, key; { int fildes = fileno (rl_outstream); #if defined (TIOCSTART) #if defined (apollo) ioctl (&fildes, TIOCSTART, 0); #else ioctl (fildes, TIOCSTART, 0); #endif /* apollo */ #else /* !TIOCSTART */ # if defined (TERMIOS_TTY_DRIVER) # if defined (__ksr1__) if (ksrflow) { ksrflow = 0; tcflow (fildes, TCOON); } # else /* !ksr1 */ tcflow (fildes, TCOON); /* Simulate a ^Q. */ # endif /* !ksr1 */ # else /* !TERMIOS_TTY_DRIVER */ # if defined (TCXONC) ioctl (fildes, TCXONC, TCOON); # endif /* TCXONC */ # endif /* !TERMIOS_TTY_DRIVER */ #endif /* !TIOCSTART */ } rl_stop_output (count, key) int count, key; { int fildes = fileno (rl_instream); #if defined (TIOCSTOP) # if defined (apollo) ioctl (&fildes, TIOCSTOP, 0); # else ioctl (fildes, TIOCSTOP, 0); # endif /* apollo */ #else /* !TIOCSTOP */ # if defined (TERMIOS_TTY_DRIVER) # if defined (__ksr1__) ksrflow = 1; # endif /* ksr1 */ tcflow (fildes, TCOOFF); # else # if defined (TCXONC) ioctl (fildes, TCXONC, TCOON); # endif /* TCXONC */ # endif /* !TERMIOS_TTY_DRIVER */ #endif /* !TIOCSTOP */ } /* **************************************************************** */ /* */ /* Default Key Bindings */ /* */ /* **************************************************************** */ #if !defined (__GO32__) void rltty_set_default_bindings (kmap) Keymap kmap; { #ifndef __GO32__ TIOTYPE ttybuff; int tty = fileno (rl_instream); #if defined (NEW_TTY_DRIVER) if (get_tty_settings (tty, &ttybuff) == 0) { if (ttybuff.flags & SGTTY_SET) { int erase, kill; erase = ttybuff.sgttyb.sg_erase; kill = ttybuff.sgttyb.sg_kill; if (erase != -1 && kmap[erase].type == ISFUNC) kmap[erase].function = rl_rubout; if (kill != -1 && kmap[kill].type == ISFUNC) kmap[kill].function = rl_unix_line_discard; } # if defined (TIOCGLTC) if (ttybuff.flags & LTCHARS_SET) { int werase, nextc; werase = ttybuff.ltchars.t_werasc; nextc = ttybuff.ltchars.t_lnextc; if (werase != -1 && kmap[werase].type == ISFUNC) kmap[werase].function = rl_unix_word_rubout; if (nextc != -1 && kmap[nextc].type == ISFUNC) kmap[nextc].function = rl_quoted_insert; } } # endif /* TIOCGLTC */ #else /* !NEW_TTY_DRIVER */ if (get_tty_settings (tty, &ttybuff) == 0) { unsigned char erase, kill; erase = ttybuff.c_cc[VERASE]; kill = ttybuff.c_cc[VKILL]; if (erase != (unsigned char)_POSIX_VDISABLE && kmap[erase].type == ISFUNC) kmap[erase].function = rl_rubout; if (kill != (unsigned char)_POSIX_VDISABLE && kmap[kill].type == ISFUNC) kmap[kill].function = rl_unix_line_discard; # if defined (VLNEXT) && defined (TERMIOS_TTY_DRIVER) { unsigned char nextc; nextc = ttybuff.c_cc[VLNEXT]; if (nextc != (unsigned char)_POSIX_VDISABLE && kmap[nextc].type == ISFUNC) kmap[nextc].function = rl_quoted_insert; } # endif /* VLNEXT && TERMIOS_TTY_DRIVER */ # if defined (VWERASE) && defined (TERMIOS_TTY_DRIVER) { unsigned char werase; werase = ttybuff.c_cc[VWERASE]; if (werase != (unsigned char)_POSIX_VDISABLE && kmap[werase].type == ISFUNC) kmap[werase].function = rl_unix_word_rubout; } # endif /* VWERASE && TERMIOS_TTY_DRIVER */ } #endif /* !NEW_TTY_DRIVER */ #endif } #endif /* !__GO32__ */ gdb-4.13/readline/tilde.c 666 34562 1752 22416 5533115524 13615 0ustar fnfcygnus/* tilde.c -- Tilde expansion code (~/foo := $HOME/foo). */ /* Copyright (C) 1988,1989 Free Software Foundation, Inc. This file is part of GNU Readline, a library for reading lines of text with interactive input and history editing. Readline 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 1, or (at your option) any later version. Readline 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 Readline; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sysdep.h" extern char *getenv(); /* CYGNUS LOCAL--bash 1.13 uses which would require GDB to add YET ANOTHER -I directive. No thanks. */ #include "tilde.h" #ifndef __MSDOS__ #include #endif #if defined (USG) && !defined (isc386) && !defined (sgi) extern struct passwd *getpwnam (), *getpwuid (); #endif #include "chardefs.h" #if !defined (NULL) # if defined (__STDC__) # define NULL ((void *) 0) # else # define NULL 0x0 # endif /* !__STDC__ */ #endif /* !NULL */ #if defined (TEST) || defined (STATIC_MALLOC) static char *xmalloc (), *xrealloc (); #else extern char *xmalloc (), *xrealloc (); #endif /* TEST || STATIC_MALLOC */ /* The default value of tilde_additional_prefixes. This is set to whitespace preceding a tilde so that simple programs which do not perform any word separation get desired behaviour. */ static char *default_prefixes[] = { " ~", "\t~", (char *)NULL }; /* The default value of tilde_additional_suffixes. This is set to whitespace or newline so that simple programs which do not perform any word separation get desired behaviour. */ static char *default_suffixes[] = { " ", "\n", (char *)NULL }; /* If non-null, this contains the address of a function to call if the standard meaning for expanding a tilde fails. The function is called with the text (sans tilde, as in "foo"), and returns a malloc()'ed string which is the expansion, or a NULL pointer if there is no expansion. */ CPFunction *tilde_expansion_failure_hook = (CPFunction *)NULL; /* When non-null, this is a NULL terminated array of strings which are duplicates for a tilde prefix. Bash uses this to expand `=~' and `:~'. */ char **tilde_additional_prefixes = default_prefixes; /* When non-null, this is a NULL terminated array of strings which match the end of a username, instead of just "/". Bash sets this to `:' and `=~'. */ char **tilde_additional_suffixes = default_suffixes; /* Find the start of a tilde expansion in STRING, and return the index of the tilde which starts the expansion. Place the length of the text which identified this tilde starter in LEN, excluding the tilde itself. */ static int tilde_find_prefix (string, len) char *string; int *len; { register int i, j, string_len; register char **prefixes = tilde_additional_prefixes; string_len = strlen (string); *len = 0; if (!*string || *string == '~') return (0); if (prefixes) { for (i = 0; i < string_len; i++) { for (j = 0; prefixes[j]; j++) { if (strncmp (string + i, prefixes[j], strlen (prefixes[j])) == 0) { *len = strlen (prefixes[j]) - 1; return (i + *len); } } } } return (string_len); } /* Find the end of a tilde expansion in STRING, and return the index of the character which ends the tilde definition. */ static int tilde_find_suffix (string) char *string; { register int i, j, string_len; register char **suffixes = tilde_additional_suffixes; string_len = strlen (string); for (i = 0; i < string_len; i++) { if (string[i] == '/' || !string[i]) break; for (j = 0; suffixes && suffixes[j]; j++) { if (strncmp (string + i, suffixes[j], strlen (suffixes[j])) == 0) return (i); } } return (i); } /* Return a new string which is the result of tilde expanding STRING. */ char * tilde_expand (string) char *string; { char *result, *tilde_expand_word (); int result_size, result_index; result_size = result_index = 0; result = (char *)NULL; /* Scan through STRING expanding tildes as we come to them. */ while (1) { register int start, end; char *tilde_word, *expansion; int len; /* Make START point to the tilde which starts the expansion. */ start = tilde_find_prefix (string, &len); /* Copy the skipped text into the result. */ if ((result_index + start + 1) > result_size) result = (char *)xrealloc (result, 1 + (result_size += (start + 20))); strncpy (result + result_index, string, start); result_index += start; /* Advance STRING to the starting tilde. */ string += start; /* Make END be the index of one after the last character of the username. */ end = tilde_find_suffix (string); /* If both START and END are zero, we are all done. */ if (!start && !end) break; /* Expand the entire tilde word, and copy it into RESULT. */ tilde_word = (char *)xmalloc (1 + end); strncpy (tilde_word, string, end); tilde_word[end] = '\0'; string += end; expansion = tilde_expand_word (tilde_word); free (tilde_word); len = strlen (expansion); if ((result_index + len + 1) > result_size) result = (char *)xrealloc (result, 1 + (result_size += (len + 20))); strcpy (result + result_index, expansion); result_index += len; free (expansion); } result[result_index] = '\0'; return (result); } /* Do the work of tilde expansion on FILENAME. FILENAME starts with a tilde. If there is no expansion, call tilde_expansion_failure_hook. */ char * tilde_expand_word (filename) char *filename; { char *dirname; dirname = filename ? savestring (filename) : (char *)NULL; if (dirname && *dirname == '~') { char *temp_name; if (!dirname[1] || dirname[1] == '/') { /* Prepend $HOME to the rest of the string. */ char *temp_home = getenv ("HOME"); #ifndef __MSDOS__ /* If there is no HOME variable, look up the directory in the password database. */ if (!temp_home) { struct passwd *entry; entry = getpwuid (getuid ()); if (entry) temp_home = entry->pw_dir; } #endif temp_name = (char *)alloca (1 + strlen (&dirname[1]) + (temp_home ? strlen (temp_home) : 0)); temp_name[0] = '\0'; if (temp_home) strcpy (temp_name, temp_home); strcat (temp_name, &dirname[1]); free (dirname); dirname = savestring (temp_name); } else { #ifndef __MSDOS__ struct passwd *user_entry; #endif char *username = (char *)alloca (257); int i, c; for (i = 1; c = dirname[i]; i++) { if (c == '/') break; else username[i - 1] = c; } username[i - 1] = '\0'; #ifndef __MSDOS__ if (!(user_entry = getpwnam (username))) { #endif /* If the calling program has a special syntax for expanding tildes, and we couldn't find a standard expansion, then let them try. */ if (tilde_expansion_failure_hook) { char *expansion; expansion = (*tilde_expansion_failure_hook) (username); if (expansion) { temp_name = (char *)alloca (1 + strlen (expansion) + strlen (&dirname[i])); strcpy (temp_name, expansion); strcat (temp_name, &dirname[i]); free (expansion); goto return_name; } } /* We shouldn't report errors. */ #ifndef __MSDOS__ } else { temp_name = (char *)alloca (1 + strlen (user_entry->pw_dir) + strlen (&dirname[i])); strcpy (temp_name, user_entry->pw_dir); strcat (temp_name, &dirname[i]); #endif return_name: free (dirname); dirname = savestring (temp_name); #ifndef __MSDOS__ } endpwent (); #endif } } return (dirname); } #if defined (TEST) #undef NULL #include main (argc, argv) int argc; char **argv; { char *result, line[512]; int done = 0; while (!done) { printf ("~expand: "); fflush (stdout); if (!gets (line)) strcpy (line, "done"); if ((strcmp (line, "done") == 0) || (strcmp (line, "quit") == 0) || (strcmp (line, "exit") == 0)) { done = 1; break; } result = tilde_expand (line); printf (" --> %s\n", result); free (result); } exit (0); } static void memory_error_and_abort (); static char * xmalloc (bytes) int bytes; { char *temp = (char *)malloc (bytes); if (!temp) memory_error_and_abort (); return (temp); } static char * xrealloc (pointer, bytes) char *pointer; int bytes; { char *temp; if (!pointer) temp = (char *)malloc (bytes); else temp = (char *)realloc (pointer, bytes); if (!temp) memory_error_and_abort (); return (temp); } static void memory_error_and_abort () { fprintf (stderr, "readline: Out of virtual memory!\n"); abort (); } /* * Local variables: * compile-command: "gcc -g -DTEST -o tilde tilde.c" * end: */ #endif /* TEST */ gdb-4.13/readline/search.c 666 34562 1752 15324 5537502543 13766 0ustar fnfcygnus/* search.c - code for non-incremental searching in emacs and vi modes. */ /* Copyright (C) 1992 Free Software Foundation, Inc. This file is part of the Readline Library (the Library), a set of routines for providing Emacs style line input to programs that ask for it. The Library 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 1, or (at your option) any later version. The Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* For alloca on AIX. CYGNUS LOCAL. */ #include "sysdep.h" #include #if defined (__GNUC__) # define alloca __builtin_alloca #else # if defined (sparc) || defined (HAVE_ALLOCA_H) # include # endif #endif #include "readline.h" #include "history.h" extern char *xmalloc (), *xrealloc (); /* Variables imported from readline.c */ extern int rl_point, rl_end, rl_line_buffer_len; extern Keymap _rl_keymap; extern char *rl_prompt; extern char *rl_line_buffer; extern HIST_ENTRY *saved_line_for_history; static char *noninc_search_string = (char *) NULL; static int noninc_history_pos = 0; /* Search the history list for STRING starting at absolute history position POS. If STRING begins with `^', the search must match STRING at the beginning of a history line, otherwise a full substring match is performed for STRING. DIR < 0 means to search backwards through the history list, DIR >= 0 means to search forward. */ static int noninc_search_from_pos (string, pos, dir) char *string; int pos, dir; { int ret, old; old = where_history (); history_set_pos (pos); if (*string == '^') ret = history_search_prefix (string + 1, dir); else ret = history_search (string, dir); if (ret != -1) ret = where_history (); history_set_pos (old); return (ret); } /* Search for a line in the history containing STRING. If DIR is < 0, the search is backwards through previous entries, else through subsequent entries. */ static void noninc_dosearch (string, dir) char *string; int dir; { int oldpos, pos; HIST_ENTRY *entry; if (string == 0 || *string == 0 || noninc_history_pos < 0) { ding (); return; } pos = noninc_search_from_pos (string, noninc_history_pos + dir, dir); if (pos == -1) { /* Search failed, current history position unchanged. */ maybe_unsave_line (); rl_clear_message (); rl_point = 0; ding (); return; } noninc_history_pos = pos; oldpos = where_history (); history_set_pos (noninc_history_pos); entry = current_history (); history_set_pos (oldpos); { int line_len; line_len = strlen (entry->line); if (line_len >= rl_line_buffer_len) rl_extend_line_buffer (line_len); strcpy (rl_line_buffer, entry->line); } rl_undo_list = (UNDO_LIST *)entry->data; rl_end = strlen (rl_line_buffer); rl_point = 0; rl_clear_message (); if (saved_line_for_history) free_history_entry (saved_line_for_history); saved_line_for_history = (HIST_ENTRY *)NULL; } /* Search non-interactively through the history list. DIR < 0 means to search backwards through the history of previous commands; otherwise the search is for commands subsequent to the current position in the history list. PCHAR is the character to use for prompting when reading the search string; if not specified (0), it defaults to `:'. */ static void noninc_search (dir, pchar) int dir; int pchar; { int saved_point, c, pmtlen; char *p; maybe_save_line (); saved_point = rl_point; /* Use the line buffer to read the search string. */ rl_line_buffer[0] = 0; rl_end = rl_point = 0; pmtlen = (rl_prompt && *rl_prompt) ? strlen (rl_prompt) : 0; p = (char *)alloca (2 + pmtlen); if (pmtlen) strcpy (p, rl_prompt); p[pmtlen] = pchar ? pchar : ':'; p[pmtlen + 1] = '\0'; rl_message (p, 0, 0); /* Read the search string. */ while (c = rl_read_key ()) { switch (c) { case CTRL('H'): case RUBOUT: if (rl_point == 0) { maybe_unsave_line (); rl_clear_message (); rl_point = saved_point; return; } /* FALLTHROUGH */ case CTRL('W'): case CTRL('U'): rl_dispatch (c, _rl_keymap); break; case RETURN: case NEWLINE: goto dosearch; /* NOTREACHED */ break; case CTRL('C'): case CTRL('G'): maybe_unsave_line (); rl_clear_message (); rl_point = saved_point; ding (); return; default: rl_insert (1, c); break; } rl_redisplay (); } dosearch: /* If rl_point == 0, we want to re-use the previous search string and start from the saved history position. If there's no previous search string, punt. */ if (rl_point == 0) { if (!noninc_search_string) { ding (); return; } } else { /* We want to start the search from the current history position. */ noninc_history_pos = where_history (); if (noninc_search_string) free (noninc_search_string); noninc_search_string = savestring (rl_line_buffer); } noninc_dosearch (noninc_search_string, dir); } /* Search forward through the history list for a string. If the vi-mode code calls this, KEY will be `?'. */ rl_noninc_forward_search (count, key) int count, key; { if (key == '?') noninc_search (1, '?'); else noninc_search (1, 0); return 0; } /* Reverse search the history list for a string. If the vi-mode code calls this, KEY will be `/'. */ rl_noninc_reverse_search (count, key) int count, key; { if (key == '/') noninc_search (-1, '/'); else noninc_search (-1, 0); return 0; } /* Search forward through the history list for the last string searched for. If there is no saved search string, abort. */ rl_noninc_forward_search_again (count, key) int count, key; { if (!noninc_search_string) { ding (); return (-1); } noninc_dosearch (noninc_search_string, 1); return 0; } /* Reverse search in the history list for the last string searched for. If there is no saved search string, abort. */ rl_noninc_reverse_search_again (count, key) int count, key; { if (!noninc_search_string) { ding (); return (-1); } noninc_dosearch (noninc_search_string, -1); return 0; } gdb-4.13/readline/signals.c 666 34562 1752 14301 5563540356 14156 0ustar fnfcygnus/* signals.c -- signal handling support for readline. */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include #if !defined (NO_SYS_FILE) # include #endif /* !NO_SYS_FILE */ #include /* This is needed to include support for TIOCGWINSZ and window resizing. */ #if defined (OSF1) || defined (BSD386) || defined (_386BSD) || defined (__BSD_4_4__) || defined (AIX) # include #endif /* OSF1 || BSD386 || _386BSD || __BSD_4_4__ || AIX */ #include /* Not all systems declare ERRNO in errno.h... and some systems #define it! */ #if !defined (errno) extern int errno; #endif /* !errno */ /* System-specific feature definitions and include files. */ #include "rldefs.h" /* Some standard library routines. */ #include "readline.h" #include "history.h" static void cr (); extern int readline_echoing_p; extern int rl_pending_input; extern int _rl_meta_flag; extern void _rl_output_character_function (); extern void free_undo_list (); #if defined (VOID_SIGHANDLER) # define sighandler void #else # define sighandler int #endif /* VOID_SIGHANDLER */ /* This typedef is equivalant to the one for Function; it allows us to say SigHandler *foo = signal (SIGKILL, SIG_IGN); */ typedef sighandler SigHandler (); #if defined (__GO32__) # undef HANDLE_SIGNALS #endif /* __GO32__ */ /* **************************************************************** */ /* */ /* Signal Handling */ /* */ /* **************************************************************** */ #if defined (HANDLE_SIGNALS) #if defined (SIGWINCH) static SigHandler *old_sigwinch = (SigHandler *)NULL; static sighandler rl_handle_sigwinch (sig) int sig; { if (readline_echoing_p) { _rl_set_screen_size (fileno (rl_instream), 1); cr (); /* was crlf () */ rl_forced_update_display (); } if (old_sigwinch && old_sigwinch != (SigHandler *)SIG_IGN && old_sigwinch != (SigHandler *)SIG_DFL) (*old_sigwinch) (sig); #if !defined (VOID_SIGHANDLER) return (0); #endif /* VOID_SIGHANDLER */ } #endif /* SIGWINCH */ /* Interrupt handling. */ static SigHandler *old_int = (SigHandler *)NULL, *old_tstp = (SigHandler *)NULL, *old_ttou = (SigHandler *)NULL, *old_ttin = (SigHandler *)NULL, *old_cont = (SigHandler *)NULL, *old_alrm = (SigHandler *)NULL; /* Handle an interrupt character. */ static sighandler rl_signal_handler (sig) int sig; { #if !defined (HAVE_BSD_SIGNALS) && !defined (HAVE_POSIX_SIGNALS) /* Since the signal will not be blocked while we are in the signal handler, ignore it until rl_clear_signals resets the catcher. */ if (sig == SIGINT) signal (sig, SIG_IGN); #endif /* !HAVE_BSD_SIGNALS */ switch (sig) { case SIGINT: { register HIST_ENTRY *entry; free_undo_list (); entry = current_history (); if (entry) entry->data = (char *)NULL; } _rl_kill_kbd_macro (); rl_clear_message (); rl_init_argument (); #if defined (SIGTSTP) case SIGTSTP: case SIGTTOU: case SIGTTIN: #endif /* SIGTSTP */ case SIGALRM: rl_clean_up_for_exit (); rl_deprep_terminal (); rl_clear_signals (); rl_pending_input = 0; kill (getpid (), sig); SIGNALS_UNBLOCK; rl_prep_terminal (_rl_meta_flag); rl_set_signals (); } #if !defined (VOID_SIGHANDLER) return (0); #endif /* !VOID_SIGHANDLER */ } #if defined (HAVE_POSIX_SIGNALS) static SigHandler * rl_set_sighandler (sig, handler) int sig; SigHandler *handler; { struct sigaction act, oact; act.sa_handler = handler; act.sa_flags = 0; sigemptyset (&act.sa_mask); sigemptyset (&oact.sa_mask); sigaction (sig, &act, &oact); return (oact.sa_handler); } #else /* !HAVE_POSIX_SIGNALS */ # define rl_set_sighandler(sig, handler) (SigHandler *)signal (sig, handler) #endif /* !HAVE_POSIX_SIGNALS */ rl_set_signals () { old_int = (SigHandler *)rl_set_sighandler (SIGINT, rl_signal_handler); if (old_int == (SigHandler *)SIG_IGN) signal (SIGINT, SIG_IGN); old_alrm = (SigHandler *)rl_set_sighandler (SIGALRM, rl_signal_handler); if (old_alrm == (SigHandler *)SIG_IGN) signal (SIGALRM, SIG_IGN); #if defined (SIGTSTP) old_tstp = (SigHandler *)rl_set_sighandler (SIGTSTP, rl_signal_handler); if (old_tstp == (SigHandler *)SIG_IGN) signal (SIGTSTP, SIG_IGN); #endif #if defined (SIGTTOU) old_ttou = (SigHandler *)rl_set_sighandler (SIGTTOU, rl_signal_handler); old_ttin = (SigHandler *)rl_set_sighandler (SIGTTIN, rl_signal_handler); if (old_tstp == (SigHandler *)SIG_IGN) { signal (SIGTTOU, SIG_IGN); signal (SIGTTIN, SIG_IGN); } #endif #if defined (SIGWINCH) old_sigwinch = (SigHandler *) rl_set_sighandler (SIGWINCH, rl_handle_sigwinch); #endif } rl_clear_signals () { rl_set_sighandler (SIGINT, old_int); rl_set_sighandler (SIGALRM, old_alrm); #if defined (SIGTSTP) signal (SIGTSTP, old_tstp); #endif #if defined (SIGTTOU) signal (SIGTTOU, old_ttou); signal (SIGTTIN, old_ttin); #endif #if defined (SIGWINCH) signal (SIGWINCH, old_sigwinch); #endif } /* Move to the start of the current line. */ static void cr () { extern char *term_cr; if (term_cr) tputs (term_cr, 1, _rl_output_character_function); } #endif /* HANDLE_SIGNALS */ gdb-4.13/readline/sysdep-aix.h 666 34562 1752 215 5113234532 14533 0ustar fnfcygnus/* System-dependent stuff for AIX 3.1 on RS/6000 */ #pragma alloca #include #include typedef struct dirent dirent; gdb-4.13/readline/sysdep-cxux7.h 666 34562 1752 1030 5612042015 15041 0ustar fnfcygnus/* System-dependent stuff, for Harris CX/UX systems */ #ifndef alloca /* May be a macro, with args. */ extern char *alloca (); #endif #include /* Needed by dirent.h */ #include #include typedef struct dirent dirent; /* SVR4 systems should use rather than . */ #define _POSIX_VERSION /* SVR4 systems need _POSIX_SOURCE defined to suppress 'struct winsize' definition in , since it's unconditionally defined in . */ #define _POSIX_SOURCE gdb-4.13/readline/sysdep-irix.h 666 34562 1752 344 5113033761 14731 0ustar fnfcygnus/* System-dependent stuff, for SGI irix */ #ifdef __GNUC__ #define alloca __builtin_alloca #else extern char *alloca (); #endif #include #include #include typedef struct direct dirent; gdb-4.13/readline/sysdep-norm.h 666 34562 1752 2100 5276057036 14754 0ustar fnfcygnus/* System-dependent stuff, for ``normal'' systems */ /* If you think you need to change this file, then you are wrong. In order to avoid a huge ugly mass of nested #ifdefs, you should create a new file just for your system, which contains exactly those #includes and definitions that your system needs, AND NOTHING MORE! Then, add that file to the appropriate place in configure.in, and viola, you are done. sysdep-sunos4.h is a good example of how to do this. */ #ifdef __GNUC__ #define alloca __builtin_alloca #else #if defined (sparc) && defined (sun) #include #endif #ifndef alloca /* May be a macro, with args. */ extern char *alloca (); #endif #endif #include /* Needed by dirent.h */ #if defined (USG) && defined (TIOCGWINSZ) #include #if defined (USGr4) || defined (USGr3) #include #endif /* USGr4 */ #endif /* USG && TIOCGWINSZ */ #include typedef struct dirent dirent; /* SVR4 systems should use rather than . */ #if defined (USGr4) #define _POSIX_VERSION #endif gdb-4.13/readline/sysdep-obsd.h 666 34562 1752 414 5220462240 14700 0ustar fnfcygnus/* System-dependent stuff, for Sony NEwS, Mach, and other systems in the "old BSD Unix" tradition. */ #ifdef __GNUC__ #define alloca __builtin_alloca #else extern char *alloca (); #endif #include #include typedef struct direct dirent; gdb-4.13/readline/sysdep-sco.h 666 34562 1752 363 5113033765 14547 0ustar fnfcygnus/* System-dependent stuff, for SCO systems */ #include #ifdef __GNUC__ #define alloca __builtin_alloca #endif #include #include #include #include typedef struct dirent dirent; gdb-4.13/readline/sysdep-sysv4.h 666 34562 1752 1243 5345043640 15071 0ustar fnfcygnus/* System-dependent stuff, for SVR4 systems */ #ifdef __GNUC__ #define alloca __builtin_alloca #else #if defined (sparc) && defined (sun) #include #endif #ifndef alloca /* May be a macro, with args. */ extern char *alloca (); #endif #endif #include /* Needed by dirent.h */ #include #include #include typedef struct dirent dirent; /* SVR4 systems should use rather than . */ #define _POSIX_VERSION /* SVR4 systems need _POSIX_SOURCE defined to suppress 'struct winsize' definition in , since it's unconditionally defined in . */ #define _POSIX_SOURCE gdb-4.13/readline/tilde.h 666 34562 1752 2627 5533115526 13606 0ustar fnfcygnus/* tilde.h: Externally available variables and function in libtilde.a. */ #if !defined (__TILDE_H__) # define __TILDE_H__ /* Function pointers can be declared as (Function *)foo. */ #if !defined (__FUNCTION_DEF) # define __FUNCTION_DEF typedef int Function (); typedef void VFunction (); typedef char *CPFunction (); typedef char **CPPFunction (); #endif /* _FUNCTION_DEF */ /* If non-null, this contains the address of a function to call if the standard meaning for expanding a tilde fails. The function is called with the text (sans tilde, as in "foo"), and returns a malloc()'ed string which is the expansion, or a NULL pointer if there is no expansion. */ extern CPFunction *tilde_expansion_failure_hook; /* When non-null, this is a NULL terminated array of strings which are duplicates for a tilde prefix. Bash uses this to expand `=~' and `:~'. */ extern char **tilde_additional_prefixes; /* When non-null, this is a NULL terminated array of strings which match the end of a username, instead of just "/". Bash sets this to `:' and `=~'. */ extern char **tilde_additional_suffixes; /* Return a new string which is the result of tilde expanding STRING. */ extern char *tilde_expand (); /* Do the work of tilde expansion on FILENAME. FILENAME starts with a tilde. If there is no expansion, call tilde_expansion_failure_hook. */ extern char *tilde_expand_word (); #endif /* __TILDE_H__ */ gdb-4.13/readline/vi_keymap.c 666 34562 1752 100135 5533115527 14516 0ustar fnfcygnus/* vi_keymap.c -- the keymap for vi_mode in readline (). */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined (BUFSIZ) #include #endif /* !BUFSIZ */ #include "readline.h" extern KEYMAP_ENTRY_ARRAY vi_escape_keymap; /* The keymap arrays for handling vi mode. */ KEYMAP_ENTRY_ARRAY vi_movement_keymap = { /* The regular control keys come first. */ { ISFUNC, (Function *)0x0 }, /* Control-@ */ { ISFUNC, (Function *)0x0 }, /* Control-a */ { ISFUNC, (Function *)0x0 }, /* Control-b */ { ISFUNC, (Function *)0x0 }, /* Control-c */ { ISFUNC, rl_vi_eof_maybe }, /* Control-d */ { ISFUNC, rl_emacs_editing_mode }, /* Control-e */ { ISFUNC, (Function *)0x0 }, /* Control-f */ { ISFUNC, rl_abort }, /* Control-g */ { ISFUNC, rl_backward }, /* Control-h */ { ISFUNC, (Function *)0x0 }, /* Control-i */ { ISFUNC, rl_newline }, /* Control-j */ { ISFUNC, rl_kill_line }, /* Control-k */ { ISFUNC, rl_clear_screen }, /* Control-l */ { ISFUNC, rl_newline }, /* Control-m */ { ISFUNC, rl_get_next_history }, /* Control-n */ { ISFUNC, (Function *)0x0 }, /* Control-o */ { ISFUNC, rl_get_previous_history }, /* Control-p */ { ISFUNC, rl_quoted_insert }, /* Control-q */ { ISFUNC, rl_reverse_search_history }, /* Control-r */ { ISFUNC, rl_forward_search_history }, /* Control-s */ { ISFUNC, rl_transpose_chars }, /* Control-t */ { ISFUNC, rl_unix_line_discard }, /* Control-u */ { ISFUNC, rl_quoted_insert }, /* Control-v */ { ISFUNC, rl_unix_word_rubout }, /* Control-w */ { ISFUNC, (Function *)0x0 }, /* Control-x */ { ISFUNC, rl_yank }, /* Control-y */ { ISFUNC, (Function *)0x0 }, /* Control-z */ { ISFUNC, rl_abort }, /* Control-[ */ { ISFUNC, (Function *)0x0 }, /* Control-\ */ { ISFUNC, (Function *)0x0 }, /* Control-] */ { ISFUNC, (Function *)0x0 }, /* Control-^ */ { ISFUNC, rl_undo_command }, /* Control-_ */ /* The start of printing characters. */ { ISFUNC, rl_forward }, /* SPACE */ { ISFUNC, (Function *)0x0 }, /* ! */ { ISFUNC, (Function *)0x0 }, /* " */ { ISFUNC, rl_vi_comment }, /* # */ { ISFUNC, rl_end_of_line }, /* $ */ { ISFUNC, rl_vi_match }, /* % */ { ISFUNC, rl_vi_tilde_expand }, /* & */ { ISFUNC, (Function *)0x0 }, /* ' */ { ISFUNC, (Function *)0x0 }, /* ( */ { ISFUNC, (Function *)0x0 }, /* ) */ { ISFUNC, rl_vi_complete }, /* * */ { ISFUNC, rl_get_next_history}, /* + */ { ISFUNC, rl_vi_char_search }, /* , */ { ISFUNC, rl_get_previous_history }, /* - */ { ISFUNC, rl_vi_redo }, /* . */ { ISFUNC, rl_vi_search }, /* / */ /* Regular digits. */ { ISFUNC, rl_vi_arg_digit }, /* 0 */ { ISFUNC, rl_vi_arg_digit }, /* 1 */ { ISFUNC, rl_vi_arg_digit }, /* 2 */ { ISFUNC, rl_vi_arg_digit }, /* 3 */ { ISFUNC, rl_vi_arg_digit }, /* 4 */ { ISFUNC, rl_vi_arg_digit }, /* 5 */ { ISFUNC, rl_vi_arg_digit }, /* 6 */ { ISFUNC, rl_vi_arg_digit }, /* 7 */ { ISFUNC, rl_vi_arg_digit }, /* 8 */ { ISFUNC, rl_vi_arg_digit }, /* 9 */ /* A little more punctuation. */ { ISFUNC, (Function *)0x0 }, /* : */ { ISFUNC, rl_vi_char_search }, /* ; */ { ISFUNC, (Function *)0x0 }, /* < */ { ISFUNC, rl_vi_complete }, /* = */ { ISFUNC, (Function *)0x0 }, /* > */ { ISFUNC, rl_vi_search }, /* ? */ { ISFUNC, (Function *)0x0 }, /* @ */ /* Uppercase alphabet. */ { ISFUNC, rl_vi_append_eol }, /* A */ { ISFUNC, rl_vi_prev_word}, /* B */ { ISFUNC, rl_vi_change_to }, /* C */ { ISFUNC, rl_vi_delete_to }, /* D */ { ISFUNC, rl_vi_end_word }, /* E */ { ISFUNC, rl_vi_char_search }, /* F */ { ISFUNC, rl_vi_fetch_history }, /* G */ { ISFUNC, (Function *)0x0 }, /* H */ { ISFUNC, rl_vi_insert_beg }, /* I */ { ISFUNC, (Function *)0x0 }, /* J */ { ISFUNC, (Function *)0x0 }, /* K */ { ISFUNC, (Function *)0x0 }, /* L */ { ISFUNC, (Function *)0x0 }, /* M */ { ISFUNC, rl_vi_search_again }, /* N */ { ISFUNC, (Function *)0x0 }, /* O */ { ISFUNC, rl_vi_put }, /* P */ { ISFUNC, (Function *)0x0 }, /* Q */ { ISFUNC, rl_vi_replace }, /* R */ { ISFUNC, rl_vi_subst }, /* S */ { ISFUNC, rl_vi_char_search }, /* T */ { ISFUNC, rl_revert_line }, /* U */ { ISFUNC, (Function *)0x0 }, /* V */ { ISFUNC, rl_vi_next_word }, /* W */ { ISFUNC, rl_rubout }, /* X */ { ISFUNC, rl_vi_yank_to }, /* Y */ { ISFUNC, (Function *)0x0 }, /* Z */ /* Some more punctuation. */ { ISFUNC, (Function *)0x0 }, /* [ */ { ISFUNC, rl_vi_complete }, /* \ */ { ISFUNC, (Function *)0x0 }, /* ] */ { ISFUNC, rl_vi_first_print }, /* ^ */ { ISFUNC, rl_vi_yank_arg }, /* _ */ { ISFUNC, (Function *)0x0 }, /* ` */ /* Lowercase alphabet. */ { ISFUNC, rl_vi_append_mode }, /* a */ { ISFUNC, rl_vi_prev_word }, /* b */ { ISFUNC, rl_vi_change_to }, /* c */ { ISFUNC, rl_vi_delete_to }, /* d */ { ISFUNC, rl_vi_end_word }, /* e */ { ISFUNC, rl_vi_char_search }, /* f */ { ISFUNC, (Function *)0x0 }, /* g */ { ISFUNC, rl_backward }, /* h */ { ISFUNC, rl_vi_insertion_mode }, /* i */ { ISFUNC, rl_get_next_history }, /* j */ { ISFUNC, rl_get_previous_history }, /* k */ { ISFUNC, rl_forward }, /* l */ { ISFUNC, (Function *)0x0 }, /* m */ { ISFUNC, rl_vi_search_again }, /* n */ { ISFUNC, (Function *)0x0 }, /* o */ { ISFUNC, rl_vi_put }, /* p */ { ISFUNC, (Function *)0x0 }, /* q */ { ISFUNC, rl_vi_change_char }, /* r */ { ISFUNC, rl_vi_subst }, /* s */ { ISFUNC, rl_vi_char_search }, /* t */ { ISFUNC, rl_undo_command }, /* u */ { ISFUNC, (Function *)0x0 }, /* v */ { ISFUNC, rl_vi_next_word }, /* w */ { ISFUNC, rl_vi_delete }, /* x */ { ISFUNC, rl_vi_yank_to }, /* y */ { ISFUNC, (Function *)0x0 }, /* z */ /* Final punctuation. */ { ISFUNC, (Function *)0x0 }, /* { */ { ISFUNC, rl_vi_column }, /* | */ { ISFUNC, (Function *)0x0 }, /* } */ { ISFUNC, rl_vi_change_case }, /* ~ */ { ISFUNC, (Function *)0x0 }, /* RUBOUT */ #if KEYMAP_SIZE > 128 /* Undefined keys. */ { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 } #endif /* KEYMAP_SIZE > 128 */ }; KEYMAP_ENTRY_ARRAY vi_insertion_keymap = { /* The regular control keys come first. */ { ISFUNC, (Function *)0x0 }, /* Control-@ */ { ISFUNC, rl_insert }, /* Control-a */ { ISFUNC, rl_insert }, /* Control-b */ { ISFUNC, rl_insert }, /* Control-c */ { ISFUNC, rl_vi_eof_maybe }, /* Control-d */ { ISFUNC, rl_insert }, /* Control-e */ { ISFUNC, rl_insert }, /* Control-f */ { ISFUNC, rl_insert }, /* Control-g */ { ISFUNC, rl_rubout }, /* Control-h */ { ISFUNC, rl_complete }, /* Control-i */ { ISFUNC, rl_newline }, /* Control-j */ { ISFUNC, rl_insert }, /* Control-k */ { ISFUNC, rl_insert }, /* Control-l */ { ISFUNC, rl_newline }, /* Control-m */ { ISFUNC, rl_insert }, /* Control-n */ { ISFUNC, rl_insert }, /* Control-o */ { ISFUNC, rl_insert }, /* Control-p */ { ISFUNC, rl_insert }, /* Control-q */ { ISFUNC, rl_reverse_search_history }, /* Control-r */ { ISFUNC, rl_forward_search_history }, /* Control-s */ { ISFUNC, rl_transpose_chars }, /* Control-t */ { ISFUNC, rl_unix_line_discard }, /* Control-u */ { ISFUNC, rl_quoted_insert }, /* Control-v */ { ISFUNC, rl_unix_word_rubout }, /* Control-w */ { ISFUNC, rl_insert }, /* Control-x */ { ISFUNC, rl_yank }, /* Control-y */ { ISFUNC, rl_insert }, /* Control-z */ { ISFUNC, rl_vi_movement_mode }, /* Control-[ */ { ISFUNC, rl_insert }, /* Control-\ */ { ISFUNC, rl_insert }, /* Control-] */ { ISFUNC, rl_insert }, /* Control-^ */ { ISFUNC, rl_undo_command }, /* Control-_ */ /* The start of printing characters. */ { ISFUNC, rl_insert }, /* SPACE */ { ISFUNC, rl_insert }, /* ! */ { ISFUNC, rl_insert }, /* " */ { ISFUNC, rl_insert }, /* # */ { ISFUNC, rl_insert }, /* $ */ { ISFUNC, rl_insert }, /* % */ { ISFUNC, rl_insert }, /* & */ { ISFUNC, rl_insert }, /* ' */ { ISFUNC, rl_insert }, /* ( */ { ISFUNC, rl_insert }, /* ) */ { ISFUNC, rl_insert }, /* * */ { ISFUNC, rl_insert }, /* + */ { ISFUNC, rl_insert }, /* , */ { ISFUNC, rl_insert }, /* - */ { ISFUNC, rl_insert }, /* . */ { ISFUNC, rl_insert }, /* / */ /* Regular digits. */ { ISFUNC, rl_insert }, /* 0 */ { ISFUNC, rl_insert }, /* 1 */ { ISFUNC, rl_insert }, /* 2 */ { ISFUNC, rl_insert }, /* 3 */ { ISFUNC, rl_insert }, /* 4 */ { ISFUNC, rl_insert }, /* 5 */ { ISFUNC, rl_insert }, /* 6 */ { ISFUNC, rl_insert }, /* 7 */ { ISFUNC, rl_insert }, /* 8 */ { ISFUNC, rl_insert }, /* 9 */ /* A little more punctuation. */ { ISFUNC, rl_insert }, /* : */ { ISFUNC, rl_insert }, /* ; */ { ISFUNC, rl_insert }, /* < */ { ISFUNC, rl_insert }, /* = */ { ISFUNC, rl_insert }, /* > */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* @ */ /* Uppercase alphabet. */ { ISFUNC, rl_insert }, /* A */ { ISFUNC, rl_insert }, /* B */ { ISFUNC, rl_insert }, /* C */ { ISFUNC, rl_insert }, /* D */ { ISFUNC, rl_insert }, /* E */ { ISFUNC, rl_insert }, /* F */ { ISFUNC, rl_insert }, /* G */ { ISFUNC, rl_insert }, /* H */ { ISFUNC, rl_insert }, /* I */ { ISFUNC, rl_insert }, /* J */ { ISFUNC, rl_insert }, /* K */ { ISFUNC, rl_insert }, /* L */ { ISFUNC, rl_insert }, /* M */ { ISFUNC, rl_insert }, /* N */ { ISFUNC, rl_insert }, /* O */ { ISFUNC, rl_insert }, /* P */ { ISFUNC, rl_insert }, /* Q */ { ISFUNC, rl_insert }, /* R */ { ISFUNC, rl_insert }, /* S */ { ISFUNC, rl_insert }, /* T */ { ISFUNC, rl_insert }, /* U */ { ISFUNC, rl_insert }, /* V */ { ISFUNC, rl_insert }, /* W */ { ISFUNC, rl_insert }, /* X */ { ISFUNC, rl_insert }, /* Y */ { ISFUNC, rl_insert }, /* Z */ /* Some more punctuation. */ { ISFUNC, rl_insert }, /* [ */ { ISFUNC, rl_insert }, /* \ */ { ISFUNC, rl_insert }, /* ] */ { ISFUNC, rl_insert }, /* ^ */ { ISFUNC, rl_insert }, /* _ */ { ISFUNC, rl_insert }, /* ` */ /* Lowercase alphabet. */ { ISFUNC, rl_insert }, /* a */ { ISFUNC, rl_insert }, /* b */ { ISFUNC, rl_insert }, /* c */ { ISFUNC, rl_insert }, /* d */ { ISFUNC, rl_insert }, /* e */ { ISFUNC, rl_insert }, /* f */ { ISFUNC, rl_insert }, /* g */ { ISFUNC, rl_insert }, /* h */ { ISFUNC, rl_insert }, /* i */ { ISFUNC, rl_insert }, /* j */ { ISFUNC, rl_insert }, /* k */ { ISFUNC, rl_insert }, /* l */ { ISFUNC, rl_insert }, /* m */ { ISFUNC, rl_insert }, /* n */ { ISFUNC, rl_insert }, /* o */ { ISFUNC, rl_insert }, /* p */ { ISFUNC, rl_insert }, /* q */ { ISFUNC, rl_insert }, /* r */ { ISFUNC, rl_insert }, /* s */ { ISFUNC, rl_insert }, /* t */ { ISFUNC, rl_insert }, /* u */ { ISFUNC, rl_insert }, /* v */ { ISFUNC, rl_insert }, /* w */ { ISFUNC, rl_insert }, /* x */ { ISFUNC, rl_insert }, /* y */ { ISFUNC, rl_insert }, /* z */ /* Final punctuation. */ { ISFUNC, rl_insert }, /* { */ { ISFUNC, rl_insert }, /* | */ { ISFUNC, rl_insert }, /* } */ { ISFUNC, rl_insert }, /* ~ */ { ISFUNC, rl_rubout }, /* RUBOUT */ #if KEYMAP_SIZE > 128 /* Pure 8-bit characters (128 - 159). These might be used in some character sets. */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ { ISFUNC, rl_insert }, /* ? */ /* ISO Latin-1 characters (160 - 255) */ { ISFUNC, rl_insert }, /* No-break space */ { ISFUNC, rl_insert }, /* Inverted exclamation mark */ { ISFUNC, rl_insert }, /* Cent sign */ { ISFUNC, rl_insert }, /* Pound sign */ { ISFUNC, rl_insert }, /* Currency sign */ { ISFUNC, rl_insert }, /* Yen sign */ { ISFUNC, rl_insert }, /* Broken bar */ { ISFUNC, rl_insert }, /* Section sign */ { ISFUNC, rl_insert }, /* Diaeresis */ { ISFUNC, rl_insert }, /* Copyright sign */ { ISFUNC, rl_insert }, /* Feminine ordinal indicator */ { ISFUNC, rl_insert }, /* Left pointing double angle quotation mark */ { ISFUNC, rl_insert }, /* Not sign */ { ISFUNC, rl_insert }, /* Soft hyphen */ { ISFUNC, rl_insert }, /* Registered sign */ { ISFUNC, rl_insert }, /* Macron */ { ISFUNC, rl_insert }, /* Degree sign */ { ISFUNC, rl_insert }, /* Plus-minus sign */ { ISFUNC, rl_insert }, /* Superscript two */ { ISFUNC, rl_insert }, /* Superscript three */ { ISFUNC, rl_insert }, /* Acute accent */ { ISFUNC, rl_insert }, /* Micro sign */ { ISFUNC, rl_insert }, /* Pilcrow sign */ { ISFUNC, rl_insert }, /* Middle dot */ { ISFUNC, rl_insert }, /* Cedilla */ { ISFUNC, rl_insert }, /* Superscript one */ { ISFUNC, rl_insert }, /* Masculine ordinal indicator */ { ISFUNC, rl_insert }, /* Right pointing double angle quotation mark */ { ISFUNC, rl_insert }, /* Vulgar fraction one quarter */ { ISFUNC, rl_insert }, /* Vulgar fraction one half */ { ISFUNC, rl_insert }, /* Vulgar fraction three quarters */ { ISFUNC, rl_insert }, /* Inverted questionk mark */ { ISFUNC, rl_insert }, /* Latin capital letter a with grave */ { ISFUNC, rl_insert }, /* Latin capital letter a with acute */ { ISFUNC, rl_insert }, /* Latin capital letter a with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter a with tilde */ { ISFUNC, rl_insert }, /* Latin capital letter a with diaeresis */ { ISFUNC, rl_insert }, /* Latin capital letter a with ring above */ { ISFUNC, rl_insert }, /* Latin capital letter ae */ { ISFUNC, rl_insert }, /* Latin capital letter c with cedilla */ { ISFUNC, rl_insert }, /* Latin capital letter e with grave */ { ISFUNC, rl_insert }, /* Latin capital letter e with acute */ { ISFUNC, rl_insert }, /* Latin capital letter e with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter e with diaeresis */ { ISFUNC, rl_insert }, /* Latin capital letter i with grave */ { ISFUNC, rl_insert }, /* Latin capital letter i with acute */ { ISFUNC, rl_insert }, /* Latin capital letter i with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter i with diaeresis */ { ISFUNC, rl_insert }, /* Latin capital letter eth (Icelandic) */ { ISFUNC, rl_insert }, /* Latin capital letter n with tilde */ { ISFUNC, rl_insert }, /* Latin capital letter o with grave */ { ISFUNC, rl_insert }, /* Latin capital letter o with acute */ { ISFUNC, rl_insert }, /* Latin capital letter o with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter o with tilde */ { ISFUNC, rl_insert }, /* Latin capital letter o with diaeresis */ { ISFUNC, rl_insert }, /* Multiplication sign */ { ISFUNC, rl_insert }, /* Latin capital letter o with stroke */ { ISFUNC, rl_insert }, /* Latin capital letter u with grave */ { ISFUNC, rl_insert }, /* Latin capital letter u with acute */ { ISFUNC, rl_insert }, /* Latin capital letter u with circumflex */ { ISFUNC, rl_insert }, /* Latin capital letter u with diaeresis */ { ISFUNC, rl_insert }, /* Latin capital letter Y with acute */ { ISFUNC, rl_insert }, /* Latin capital letter thorn (Icelandic) */ { ISFUNC, rl_insert }, /* Latin small letter sharp s (German) */ { ISFUNC, rl_insert }, /* Latin small letter a with grave */ { ISFUNC, rl_insert }, /* Latin small letter a with acute */ { ISFUNC, rl_insert }, /* Latin small letter a with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter a with tilde */ { ISFUNC, rl_insert }, /* Latin small letter a with diaeresis */ { ISFUNC, rl_insert }, /* Latin small letter a with ring above */ { ISFUNC, rl_insert }, /* Latin small letter ae */ { ISFUNC, rl_insert }, /* Latin small letter c with cedilla */ { ISFUNC, rl_insert }, /* Latin small letter e with grave */ { ISFUNC, rl_insert }, /* Latin small letter e with acute */ { ISFUNC, rl_insert }, /* Latin small letter e with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter e with diaeresis */ { ISFUNC, rl_insert }, /* Latin small letter i with grave */ { ISFUNC, rl_insert }, /* Latin small letter i with acute */ { ISFUNC, rl_insert }, /* Latin small letter i with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter i with diaeresis */ { ISFUNC, rl_insert }, /* Latin small letter eth (Icelandic) */ { ISFUNC, rl_insert }, /* Latin small letter n with tilde */ { ISFUNC, rl_insert }, /* Latin small letter o with grave */ { ISFUNC, rl_insert }, /* Latin small letter o with acute */ { ISFUNC, rl_insert }, /* Latin small letter o with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter o with tilde */ { ISFUNC, rl_insert }, /* Latin small letter o with diaeresis */ { ISFUNC, rl_insert }, /* Division sign */ { ISFUNC, rl_insert }, /* Latin small letter o with stroke */ { ISFUNC, rl_insert }, /* Latin small letter u with grave */ { ISFUNC, rl_insert }, /* Latin small letter u with acute */ { ISFUNC, rl_insert }, /* Latin small letter u with circumflex */ { ISFUNC, rl_insert }, /* Latin small letter u with diaeresis */ { ISFUNC, rl_insert }, /* Latin small letter y with acute */ { ISFUNC, rl_insert }, /* Latin small letter thorn (Icelandic) */ { ISFUNC, rl_insert } /* Latin small letter y with diaeresis */ #endif /* KEYMAP_SIZE > 128 */ }; KEYMAP_ENTRY_ARRAY vi_escape_keymap = { /* The regular control keys come first. */ { ISFUNC, (Function *)0x0 }, /* Control-@ */ { ISFUNC, (Function *)0x0 }, /* Control-a */ { ISFUNC, (Function *)0x0 }, /* Control-b */ { ISFUNC, (Function *)0x0 }, /* Control-c */ { ISFUNC, (Function *)0x0 }, /* Control-d */ { ISFUNC, (Function *)0x0 }, /* Control-e */ { ISFUNC, (Function *)0x0 }, /* Control-f */ { ISFUNC, (Function *)0x0 }, /* Control-g */ { ISFUNC, (Function *)0x0 }, /* Control-h */ { ISFUNC, rl_tab_insert}, /* Control-i */ { ISFUNC, rl_emacs_editing_mode}, /* Control-j */ { ISFUNC, rl_kill_line }, /* Control-k */ { ISFUNC, (Function *)0x0 }, /* Control-l */ { ISFUNC, rl_emacs_editing_mode}, /* Control-m */ { ISFUNC, (Function *)0x0 }, /* Control-n */ { ISFUNC, (Function *)0x0 }, /* Control-o */ { ISFUNC, (Function *)0x0 }, /* Control-p */ { ISFUNC, (Function *)0x0 }, /* Control-q */ { ISFUNC, (Function *)0x0 }, /* Control-r */ { ISFUNC, (Function *)0x0 }, /* Control-s */ { ISFUNC, (Function *)0x0 }, /* Control-t */ { ISFUNC, (Function *)0x0 }, /* Control-u */ { ISFUNC, (Function *)0x0 }, /* Control-v */ { ISFUNC, (Function *)0x0 }, /* Control-w */ { ISFUNC, (Function *)0x0 }, /* Control-x */ { ISFUNC, (Function *)0x0 }, /* Control-y */ { ISFUNC, (Function *)0x0 }, /* Control-z */ { ISFUNC, rl_vi_movement_mode }, /* Control-[ */ { ISFUNC, (Function *)0x0 }, /* Control-\ */ { ISFUNC, (Function *)0x0 }, /* Control-] */ { ISFUNC, (Function *)0x0 }, /* Control-^ */ { ISFUNC, rl_undo_command }, /* Control-_ */ /* The start of printing characters. */ { ISFUNC, (Function *)0x0 }, /* SPACE */ { ISFUNC, (Function *)0x0 }, /* ! */ { ISFUNC, (Function *)0x0 }, /* " */ { ISFUNC, (Function *)0x0 }, /* # */ { ISFUNC, (Function *)0x0 }, /* $ */ { ISFUNC, (Function *)0x0 }, /* % */ { ISFUNC, (Function *)0x0 }, /* & */ { ISFUNC, (Function *)0x0 }, /* ' */ { ISFUNC, (Function *)0x0 }, /* ( */ { ISFUNC, (Function *)0x0 }, /* ) */ { ISFUNC, (Function *)0x0 }, /* * */ { ISFUNC, (Function *)0x0 }, /* + */ { ISFUNC, (Function *)0x0 }, /* , */ { ISFUNC, (Function *)0x0 }, /* - */ { ISFUNC, (Function *)0x0 }, /* . */ { ISFUNC, (Function *)0x0 }, /* / */ /* Regular digits. */ { ISFUNC, rl_vi_arg_digit }, /* 0 */ { ISFUNC, rl_vi_arg_digit }, /* 1 */ { ISFUNC, rl_vi_arg_digit }, /* 2 */ { ISFUNC, rl_vi_arg_digit }, /* 3 */ { ISFUNC, rl_vi_arg_digit }, /* 4 */ { ISFUNC, rl_vi_arg_digit }, /* 5 */ { ISFUNC, rl_vi_arg_digit }, /* 6 */ { ISFUNC, rl_vi_arg_digit }, /* 7 */ { ISFUNC, rl_vi_arg_digit }, /* 8 */ { ISFUNC, rl_vi_arg_digit }, /* 9 */ /* A little more punctuation. */ { ISFUNC, (Function *)0x0 }, /* : */ { ISFUNC, (Function *)0x0 }, /* ; */ { ISFUNC, (Function *)0x0 }, /* < */ { ISFUNC, (Function *)0x0 }, /* = */ { ISFUNC, (Function *)0x0 }, /* > */ { ISFUNC, (Function *)0x0 }, /* ? */ { ISFUNC, (Function *)0x0 }, /* @ */ /* Uppercase alphabet. */ { ISFUNC, rl_do_lowercase_version }, /* A */ { ISFUNC, rl_do_lowercase_version }, /* B */ { ISFUNC, rl_do_lowercase_version }, /* C */ { ISFUNC, rl_do_lowercase_version }, /* D */ { ISFUNC, rl_do_lowercase_version }, /* E */ { ISFUNC, rl_do_lowercase_version }, /* F */ { ISFUNC, rl_do_lowercase_version }, /* G */ { ISFUNC, rl_do_lowercase_version }, /* H */ { ISFUNC, rl_do_lowercase_version }, /* I */ { ISFUNC, rl_do_lowercase_version }, /* J */ { ISFUNC, rl_do_lowercase_version }, /* K */ { ISFUNC, rl_do_lowercase_version }, /* L */ { ISFUNC, rl_do_lowercase_version }, /* M */ { ISFUNC, rl_do_lowercase_version }, /* N */ { ISFUNC, rl_do_lowercase_version }, /* O */ { ISFUNC, rl_do_lowercase_version }, /* P */ { ISFUNC, rl_do_lowercase_version }, /* Q */ { ISFUNC, rl_do_lowercase_version }, /* R */ { ISFUNC, rl_do_lowercase_version }, /* S */ { ISFUNC, rl_do_lowercase_version }, /* T */ { ISFUNC, rl_do_lowercase_version }, /* U */ { ISFUNC, rl_do_lowercase_version }, /* V */ { ISFUNC, rl_do_lowercase_version }, /* W */ { ISFUNC, rl_do_lowercase_version }, /* X */ { ISFUNC, rl_do_lowercase_version }, /* Y */ { ISFUNC, rl_do_lowercase_version }, /* Z */ /* Some more punctuation. */ { ISFUNC, rl_arrow_keys }, /* [ */ { ISFUNC, (Function *)0x0 }, /* \ */ { ISFUNC, (Function *)0x0 }, /* ] */ { ISFUNC, (Function *)0x0 }, /* ^ */ { ISFUNC, (Function *)0x0 }, /* _ */ { ISFUNC, (Function *)0x0 }, /* ` */ /* Lowercase alphabet. */ { ISFUNC, (Function *)0x0 }, /* a */ { ISFUNC, (Function *)0x0 }, /* b */ { ISFUNC, (Function *)0x0 }, /* c */ { ISFUNC, (Function *)0x0 }, /* d */ { ISFUNC, (Function *)0x0 }, /* e */ { ISFUNC, (Function *)0x0 }, /* f */ { ISFUNC, (Function *)0x0 }, /* g */ { ISFUNC, (Function *)0x0 }, /* h */ { ISFUNC, (Function *)0x0 }, /* i */ { ISFUNC, (Function *)0x0 }, /* j */ { ISFUNC, (Function *)0x0 }, /* k */ { ISFUNC, (Function *)0x0 }, /* l */ { ISFUNC, (Function *)0x0 }, /* m */ { ISFUNC, (Function *)0x0 }, /* n */ { ISFUNC, rl_arrow_keys }, /* o */ { ISFUNC, (Function *)0x0 }, /* p */ { ISFUNC, (Function *)0x0 }, /* q */ { ISFUNC, (Function *)0x0 }, /* r */ { ISFUNC, (Function *)0x0 }, /* s */ { ISFUNC, (Function *)0x0 }, /* t */ { ISFUNC, (Function *)0x0 }, /* u */ { ISFUNC, (Function *)0x0 }, /* v */ { ISFUNC, (Function *)0x0 }, /* w */ { ISFUNC, (Function *)0x0 }, /* x */ { ISFUNC, (Function *)0x0 }, /* y */ { ISFUNC, (Function *)0x0 }, /* z */ /* Final punctuation. */ { ISFUNC, (Function *)0x0 }, /* { */ { ISFUNC, (Function *)0x0 }, /* | */ { ISFUNC, (Function *)0x0 }, /* } */ { ISFUNC, (Function *)0x0 }, /* ~ */ { ISFUNC, rl_backward_kill_word }, /* RUBOUT */ #if KEYMAP_SIZE > 128 /* Undefined keys. */ { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 }, { ISFUNC, (Function *)0x0 } #endif /* KEYMAP_SIZE > 128 */ }; gdb-4.13/readline/vi_mode.c 666 34562 1752 61500 5533115531 14131 0ustar fnfcygnus/* vi_mode.c -- A vi emulation mode for Bash. Derived from code written by Jeff Sparkes (jsparkes@bnr.ca). */ /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. This file is part of the GNU Readline Library, a library for reading lines of text with interactive input and history editing. The GNU Readline Library 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 1, or (at your option) any later version. The GNU Readline Library 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. The GNU General Public License is often shipped with GNU software, and is generally kept in a file called COPYING or LICENSE. If you do not have a copy of the license, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* **************************************************************** */ /* */ /* VI Emulation Mode */ /* */ /* **************************************************************** */ #if defined (VI_MODE) #include #if defined (STATIC_MALLOC) static char *xmalloc (), *xrealloc (); #else extern char *xmalloc (), *xrealloc (); #endif /* STATIC_MALLOC */ #include /* Some standard library routines. */ #include "rldefs.h" #include "readline.h" #include "history.h" #ifndef digit #define digit(c) ((c) >= '0' && (c) <= '9') #endif #ifndef isletter #define isletter(c) (((c) >= 'A' && (c) <= 'Z') || ((c) >= 'a' && (c) <= 'z')) #endif #ifndef digit_value #define digit_value(c) ((c) - '0') #endif #ifndef member #define member(c, s) ((c) ? (char *)strchr ((s), (c)) : 0) #endif #ifndef isident #define isident(c) ((isletter(c) || digit(c) || c == '_')) #endif #ifndef exchange #define exchange(x, y) {int temp = x; x = y; y = temp;} #endif #ifndef VI_COMMENT_BEGIN_DEFAULT #define VI_COMMENT_BEGIN_DEFAULT "#" #endif /* Variables imported from readline.c */ extern int rl_point, rl_end, rl_mark, rl_done; extern FILE *rl_instream; extern int rl_line_buffer_len, rl_explicit_arg, rl_numeric_arg; extern Keymap _rl_keymap; extern char *rl_prompt; extern char *rl_line_buffer; extern int rl_arg_sign; extern void rl_extend_line_buffer (); extern int rl_vi_check (), rl_digit_loop1 (); /* Non-zero means enter insertion mode. */ int _rl_vi_doing_insert = 0; /* String inserted into the line by rl_vi_comment (). */ char *rl_vi_comment_begin = (char *)NULL; /* *** UNCLEAN *** */ /* Command keys which do movement for xxx_to commands. */ static char *vi_motion = " hl^$0ftFt;,%wbeWBE|"; /* Keymap used for vi replace characters. Created dynamically since rarely used. */ static Keymap vi_replace_map = (Keymap)NULL; /* The number of characters inserted in the last replace operation. */ static int vi_replace_count = 0; int _rl_vi_last_command = 'i'; /* default `.' puts you in insert mode */ int _rl_vi_last_repeat = 1; int _rl_vi_last_arg_sign = 1; static int _rl_vi_last_motion = 0; static int _rl_vi_last_search_char = 0; static int _rl_vi_last_replacement = 0; static int vi_redoing = 0; /* Text modification commands. These are the `redoable' commands. */ static char *vi_textmod = "_*\\AaIiCcDdPpYyRrSsXx~"; void rl_vi_set_last () { _rl_vi_last_command = 'i'; _rl_vi_last_repeat = 1; _rl_vi_last_arg_sign = 1; _rl_vi_last_motion = 0; } /* Is the command C a VI mode text modification command? */ int rl_vi_textmod_command (c) int c; { return (member (c, vi_textmod) != (char *)NULL); } /* Bound to `.'. Called from command mode, so we know that we have to redo a text modification command. The default for _rl_vi_last_command puts you back into insert mode. */ rl_vi_redo (count, c) int count, c; { if (!rl_explicit_arg) { rl_numeric_arg = _rl_vi_last_repeat; rl_arg_sign = _rl_vi_last_arg_sign; } vi_redoing = 1; rl_dispatch (_rl_vi_last_command, _rl_keymap); vi_redoing = 0; return (0); } /* Yank the nth arg from the previous line into this line at point. */ rl_vi_yank_arg (count) int count; { /* vi mode is defined to insert a space before the last argument. */ rl_insert (1, ' '); /* Readline thinks that the first word on a line is the 0th, while vi thinks the first word on a line is the 1st. Compensate. */ if (rl_explicit_arg) rl_yank_nth_arg (count - 1, 0); else rl_yank_nth_arg ('$', 0); rl_vi_insertion_mode (); return (0); } /* With an argument, move back that many history lines, else move to the beginning of history. */ rl_vi_fetch_history (count, c) int count, c; { int current = where_history (); /* Giving an argument of n means we want the nth command in the history file. The command number is interpreted the same way that the bash `history' command does it -- that is, giving an argument count of 450 to this command would get the command listed as number 450 in the output of `history'. */ if (rl_explicit_arg) { int wanted = history_base + current - count; if (wanted <= 0) rl_beginning_of_history (0, 0); else rl_get_previous_history (wanted); } else rl_beginning_of_history (count, 0); return (0); } /* Search again for the last thing searched for. */ rl_vi_search_again (count, key) int count, key; { switch (key) { case 'n': rl_noninc_reverse_search_again (count, key); break; case 'N': rl_noninc_forward_search_again (count, key); break; } return (0); } /* Do a vi style search. */ rl_vi_search (count, key) int count, key; { switch (key) { case '?': rl_noninc_forward_search (count, key); break; case '/': rl_noninc_reverse_search (count, key); break; default: ding (); break; } return (0); } /* Completion, from vi's point of view. */ rl_vi_complete (ignore, key) int ignore, key; { if ((rl_point < rl_end) && (!whitespace (rl_line_buffer[rl_point]))) { if (!whitespace (rl_line_buffer[rl_point + 1])) rl_vi_end_word (1, 'E'); rl_point++; } if (key == '*') rl_complete_internal ('*'); /* Expansion and replacement. */ else if (key == '=') rl_complete_internal ('?'); /* List possible completions. */ else if (key == '\\') rl_complete_internal (TAB); /* Standard Readline completion. */ else rl_complete (0, key); if (key == '*' || key == '\\') rl_vi_insertion_mode (); return (0); } /* Tilde expansion for vi mode. */ rl_vi_tilde_expand (ignore, key) int ignore, key; { rl_tilde_expand (0, key); rl_vi_insertion_mode (); return (0); } /* Previous word in vi mode. */ rl_vi_prev_word (count, key) int count, key; { if (count < 0) return (rl_vi_next_word (-count, key)); if (rl_point == 0) { ding (); return (0); } if (uppercase_p (key)) rl_vi_bWord (count); else rl_vi_bword (count); return (0); } /* Next word in vi mode. */ rl_vi_next_word (count, key) int count; { if (count < 0) return (rl_vi_prev_word (-count, key)); if (rl_point >= (rl_end - 1)) { ding (); return (0); } if (uppercase_p (key)) rl_vi_fWord (count); else rl_vi_fword (count); return (0); } /* Move to the end of the ?next? word. */ rl_vi_end_word (count, key) int count, key; { if (count < 0) { ding (); return -1; } if (uppercase_p (key)) rl_vi_eWord (count); else rl_vi_eword (count); return (0); } /* Move forward a word the way that 'W' does. */ rl_vi_fWord (count) int count; { while (count-- && rl_point < (rl_end - 1)) { /* Skip until whitespace. */ while (!whitespace (rl_line_buffer[rl_point]) && rl_point < rl_end) rl_point++; /* Now skip whitespace. */ while (whitespace (rl_line_buffer[rl_point]) && rl_point < rl_end) rl_point++; } return (0); } rl_vi_bWord (count) int count; { while (count-- && rl_point > 0) { /* If we are at the start of a word, move back to whitespace so we will go back to the start of the previous word. */ if (!whitespace (rl_line_buffer[rl_point]) && whitespace (rl_line_buffer[rl_point - 1])) rl_point--; while (rl_point > 0 && whitespace (rl_line_buffer[rl_point])) rl_point--; if (rl_point > 0) { while (--rl_point >= 0 && !whitespace (rl_line_buffer[rl_point])); rl_point++; } } return (0); } rl_vi_eWord (count) int count; { while (count-- && rl_point < (rl_end - 1)) { if (!whitespace (rl_line_buffer[rl_point])) rl_point++; /* Move to the next non-whitespace character (to the start of the next word). */ while (++rl_point < rl_end && whitespace (rl_line_buffer[rl_point])); if (rl_point && rl_point < rl_end) { /* Skip whitespace. */ while (rl_point < rl_end && whitespace (rl_line_buffer[rl_point])) rl_point++; /* Skip until whitespace. */ while (rl_point < rl_end && !whitespace (rl_line_buffer[rl_point])) rl_point++; /* Move back to the last character of the word. */ rl_point--; } } return (0); } rl_vi_fword (count) int count; { while (count-- && rl_point < (rl_end - 1)) { /* Move to white space (really non-identifer). */ if (isident (rl_line_buffer[rl_point])) { while (isident (rl_line_buffer[rl_point]) && rl_point < rl_end) rl_point++; } else /* if (!whitespace (rl_line_buffer[rl_point])) */ { while (!isident (rl_line_buffer[rl_point]) && !whitespace (rl_line_buffer[rl_point]) && rl_point < rl_end) rl_point++; } /* Move past whitespace. */ while (whitespace (rl_line_buffer[rl_point]) && rl_point < rl_end) rl_point++; } return (0); } rl_vi_bword (count) int count; { while (count-- && rl_point > 0) { int last_is_ident; /* If we are at the start of a word, move back to whitespace so we will go back to the start of the previous word. */ if (!whitespace (rl_line_buffer[rl_point]) && whitespace (rl_line_buffer[rl_point - 1])) rl_point--; /* If this character and the previous character are `opposite', move back so we don't get messed up by the rl_point++ down there in the while loop. Without this code, words like `l;' screw up the function. */ last_is_ident = isident (rl_line_buffer[rl_point - 1]); if ((isident (rl_line_buffer[rl_point]) && !last_is_ident) || (!isident (rl_line_buffer[rl_point]) && last_is_ident)) rl_point--; while (rl_point > 0 && whitespace (rl_line_buffer[rl_point])) rl_point--; if (rl_point > 0) { if (isident (rl_line_buffer[rl_point])) while (--rl_point >= 0 && isident (rl_line_buffer[rl_point])); else while (--rl_point >= 0 && !isident (rl_line_buffer[rl_point]) && !whitespace (rl_line_buffer[rl_point])); rl_point++; } } return (0); } rl_vi_eword (count) int count; { while (count-- && rl_point < rl_end - 1) { if (!whitespace (rl_line_buffer[rl_point])) rl_point++; while (rl_point < rl_end && whitespace (rl_line_buffer[rl_point])) rl_point++; if (rl_point < rl_end) { if (isident (rl_line_buffer[rl_point])) while (++rl_point < rl_end && isident (rl_line_buffer[rl_point])); else while (++rl_point < rl_end && !isident (rl_line_buffer[rl_point]) && !whitespace (rl_line_buffer[rl_point])); } rl_point--; } return (0); } rl_vi_insert_beg () { rl_beg_of_line (); rl_vi_insertion_mode (); return (0); } rl_vi_append_mode () { if (rl_point < rl_end) rl_point += 1; rl_vi_insertion_mode (); return (0); } rl_vi_append_eol () { rl_end_of_line (); rl_vi_append_mode (); return (0); } /* What to do in the case of C-d. */ rl_vi_eof_maybe (count, c) int count, c; { return (rl_newline (1, '\n')); } /* Insertion mode stuff. */ /* Switching from one mode to the other really just involves switching keymaps. */ rl_vi_insertion_mode () { _rl_keymap = vi_insertion_keymap; return (0); } rl_vi_movement_mode () { if (rl_point > 0) rl_backward (1); rl_vi_set_last (); _rl_keymap = vi_movement_keymap; vi_done_inserting (); return (0); } vi_done_inserting () { if (_rl_vi_doing_insert) { rl_end_undo_group (); _rl_vi_doing_insert = 0; } return (0); } rl_vi_arg_digit (count, c) int count, c; { if (c == '0' && rl_numeric_arg == 1 && !rl_explicit_arg) return (rl_beg_of_line ()); else return (rl_digit_argument (count, c)); } rl_vi_change_case (count, ignore) int count, ignore; { char c = 0; /* Don't try this on an empty line. */ if (rl_point >= rl_end) return (0); while (count-- && rl_point < rl_end) { if (uppercase_p (rl_line_buffer[rl_point])) c = to_lower (rl_line_buffer[rl_point]); else if (lowercase_p (rl_line_buffer[rl_point])) c = to_upper (rl_line_buffer[rl_point]); else { /* Just skip over characters neither upper nor lower case. */ rl_forward (1); continue; } /* Vi is kind of strange here. */ if (c) { rl_begin_undo_group (); rl_delete (1, c); rl_insert (1, c); rl_end_undo_group (); rl_vi_check (); } else rl_forward (1); } return (0); } rl_vi_put (count, key) int count, key; { if (!uppercase_p (key) && (rl_point + 1 <= rl_end)) rl_point++; rl_yank (); rl_backward (1); return (0); } rl_vi_check () { if (rl_point && rl_point == rl_end) rl_point--; return (0); } rl_vi_column (count) { if (count > rl_end) rl_end_of_line (); else rl_point = count - 1; return (0); } int rl_vi_domove (key, nextkey) int key, *nextkey; { int c, save; int old_end; rl_mark = rl_point; c = rl_read_key (); *nextkey = c; if (!member (c, vi_motion)) { if (digit (c)) { save = rl_numeric_arg; rl_numeric_arg = digit_value (c); rl_digit_loop1 (); rl_numeric_arg *= save; c = rl_read_key (); /* real command */ *nextkey = c; } else if ((key == 'd' && c == 'd') || (key == 'y' && c == 'y') || (key == 'c' && c == 'c')) { rl_mark = rl_end; rl_beg_of_line (); _rl_vi_last_motion = c; return (0); } else return (-1); } _rl_vi_last_motion = c; /* Append a blank character temporarily so that the motion routines work right at the end of the line. */ old_end = rl_end; rl_line_buffer[rl_end++] = ' '; rl_line_buffer[rl_end] = '\0'; rl_dispatch (c, _rl_keymap); /* Remove the blank that we added. */ rl_end = old_end; rl_line_buffer[rl_end] = '\0'; if (rl_point > rl_end) rl_point = rl_end; /* No change in position means the command failed. */ if (rl_mark == rl_point) return (-1); /* rl_vi_f[wW]ord () leaves the cursor on the first character of the next word. If we are not at the end of the line, and we are on a non-whitespace character, move back one (presumably to whitespace). */ if ((c == 'w' || c == 'W') && (rl_point < rl_end) && !whitespace (rl_line_buffer[rl_point])) rl_point--; /* If cw or cW, back up to the end of a word, so the behaviour of ce or cE is the actual result. Brute-force, no subtlety. */ if (key == 'c' && (to_upper (c) == 'W')) { while (rl_point && whitespace (rl_line_buffer[rl_point])) rl_point--; /* Move past the end of the word so that the kill doesn't remove the last letter of the previous word. Only do this if we are not at the end of the line. */ if ((rl_point >= 0) && (rl_point < (rl_end - 1)) && !whitespace (rl_line_buffer[rl_point])) rl_point++; } if (rl_mark < rl_point) exchange (rl_point, rl_mark); return (0); } /* A simplified loop for vi. Don't dispatch key at end. Don't recognize minus sign? */ rl_digit_loop1 () { int key, c; while (1) { rl_message ("(arg: %d) ", rl_arg_sign * rl_numeric_arg, 0); key = c = rl_read_key (); if (_rl_keymap[c].type == ISFUNC && _rl_keymap[c].function == rl_universal_argument) { rl_numeric_arg *= 4; continue; } c = UNMETA (c); if (numeric (c)) { if (rl_explicit_arg) rl_numeric_arg = (rl_numeric_arg * 10) + digit_value (c); else rl_numeric_arg = digit_value (c); rl_explicit_arg = 1; } else { rl_clear_message (); rl_stuff_char (key); break; } } return (0); } rl_vi_delete_to (count, key) int count, key; { int c; if (uppercase_p (key)) rl_stuff_char ('$'); else if (vi_redoing) rl_stuff_char (_rl_vi_last_motion); if (rl_vi_domove (key, &c)) { ding (); return -1; } /* These are the motion commands that do not require adjusting the mark. */ if ((strchr (" l|h^0%bB", c) == 0) && (rl_mark < rl_end)) rl_mark++; rl_kill_text (rl_point, rl_mark); return (0); } rl_vi_change_to (count, key) int count, key; { int c, start_pos; if (uppercase_p (key)) rl_stuff_char ('$'); else if (vi_redoing) rl_stuff_char (_rl_vi_last_motion); start_pos = rl_point; if (rl_vi_domove (key, &c)) { ding (); return -1; } /* These are the motion commands that do not require adjusting the mark. c[wW] are handled by special-case code in rl_vi_domove(), and already leave the mark at the correct location. */ if ((strchr (" l|hwW^0%bB", c) == 0) && (rl_mark < rl_end)) rl_mark++; /* The cursor never moves with c[wW]. */ if ((to_upper (c) == 'W') && rl_point < start_pos) rl_point = start_pos; rl_begin_undo_group (); _rl_vi_doing_insert = 1; rl_kill_text (rl_point, rl_mark); rl_vi_insertion_mode (); return (0); } rl_vi_yank_to (count, key) int count, key; { int c, save = rl_point; if (uppercase_p (key)) rl_stuff_char ('$'); if (rl_vi_domove (key, &c)) { ding (); return -1; } /* These are the motion commands that do not require adjusting the mark. */ if ((strchr (" l|h^0%bB", c) == 0) && (rl_mark < rl_end)) rl_mark++; rl_begin_undo_group (); rl_kill_text (rl_point, rl_mark); rl_end_undo_group (); rl_do_undo (); rl_point = save; return (0); } rl_vi_delete (count) int count; { int end; if (rl_end == 0) { ding (); return -1; } end = rl_point + count; if (end >= rl_end) end = rl_end; rl_kill_text (rl_point, end); if (rl_point > 0 && rl_point == rl_end) rl_backward (1); return (0); } /* Turn the current line into a comment in shell history. A K*rn shell style function. */ rl_vi_comment () { rl_beg_of_line (); if (rl_vi_comment_begin != (char *)NULL) rl_insert_text (rl_vi_comment_begin); else rl_insert_text (VI_COMMENT_BEGIN_DEFAULT); /* Default. */ rl_redisplay (); rl_newline (1, '\010'); return (0); } rl_vi_first_print () { return (rl_back_to_indent ()); } rl_back_to_indent (ignore1, ignore2) int ignore1, ignore2; { rl_beg_of_line (); while (rl_point < rl_end && whitespace (rl_line_buffer[rl_point])) rl_point++; return (0); } /* NOTE: it is necessary that opposite directions are inverses */ #define FTO 1 /* forward to */ #define BTO -1 /* backward to */ #define FFIND 2 /* forward find */ #define BFIND -2 /* backward find */ rl_vi_char_search (count, key) int count, key; { static char target; static int orig_dir, dir; int pos; if (key == ';' || key == ',') dir = (key == ';' ? orig_dir : -orig_dir); else { if (vi_redoing) target = _rl_vi_last_search_char; else _rl_vi_last_search_char = target = rl_getc (rl_instream); switch (key) { case 't': orig_dir = dir = FTO; break; case 'T': orig_dir = dir = BTO; break; case 'f': orig_dir = dir = FFIND; break; case 'F': orig_dir = dir = BFIND; break; } } pos = rl_point; while (count--) { if (dir < 0) { if (pos == 0) { ding (); return; } pos--; do { if (rl_line_buffer[pos] == target) { if (dir == BTO) rl_point = pos + 1; else rl_point = pos; break; } } while (pos--); if (pos < 0) { ding (); return -1; } } else { /* dir > 0 */ if (pos >= rl_end) { ding (); return -1; } pos++; do { if (rl_line_buffer[pos] == target) { if (dir == FTO) rl_point = pos - 1; else rl_point = pos; break; } } while (++pos < rl_end); if (pos >= (rl_end - 1)) { ding (); return -1; } } } return (0); } /* Match brackets */ rl_vi_match () { int count = 1, brack, pos; pos = rl_point; if ((brack = rl_vi_bracktype (rl_line_buffer[rl_point])) == 0) { while ((brack = rl_vi_bracktype (rl_line_buffer[rl_point])) == 0 && rl_point < rl_end - 1) rl_forward (1); if (brack <= 0) { rl_point = pos; ding (); return -1; } } pos = rl_point; if (brack < 0) { while (count) { if (--pos >= 0) { int b = rl_vi_bracktype (rl_line_buffer[pos]); if (b == -brack) count--; else if (b == brack) count++; } else { ding (); return -1; } } } else { /* brack > 0 */ while (count) { if (++pos < rl_end) { int b = rl_vi_bracktype (rl_line_buffer[pos]); if (b == -brack) count--; else if (b == brack) count++; } else { ding (); return -1; } } } rl_point = pos; return (0); } int rl_vi_bracktype (c) int c; { switch (c) { case '(': return 1; case ')': return -1; case '[': return 2; case ']': return -2; case '{': return 3; case '}': return -3; default: return 0; } } rl_vi_change_char (count, key) int count, key; { int c; if (vi_redoing) c = _rl_vi_last_replacement; else _rl_vi_last_replacement = c = rl_getc (rl_instream); if (c == '\033' || c == CTRL ('C')) return -1; while (count-- && rl_point < rl_end) { rl_begin_undo_group (); rl_delete (1, c); rl_insert (1, c); if (count == 0) rl_backward (1); rl_end_undo_group (); } return (0); } rl_vi_subst (count, key) int count, key; { rl_begin_undo_group (); _rl_vi_doing_insert = 1; if (uppercase_p (key)) { rl_beg_of_line (); rl_kill_line (1); } else rl_delete (count, key); rl_end_undo_group (); rl_vi_insertion_mode (); return (0); } rl_vi_overstrike (count, key) int count, key; { int i; if (_rl_vi_doing_insert == 0) { _rl_vi_doing_insert = 1; rl_begin_undo_group (); } for (i = 0; i < count; i++) { vi_replace_count++; rl_begin_undo_group (); if (rl_point < rl_end) { rl_delete (1, key); rl_insert (1, key); } else rl_insert (1, key); rl_end_undo_group (); } return (0); } rl_vi_overstrike_delete (count) int count; { int i, s; for (i = 0; i < count; i++) { if (vi_replace_count == 0) { ding (); break; } s = rl_point; if (rl_do_undo ()) vi_replace_count--; if (rl_point == s) rl_backward (1); } if (vi_replace_count == 0 && _rl_vi_doing_insert) { rl_end_undo_group (); rl_do_undo (); _rl_vi_doing_insert = 0; } return (0); } rl_vi_replace (count, key) int count, key; { int i; vi_replace_count = 0; if (!vi_replace_map) { vi_replace_map = rl_make_bare_keymap (); for (i = ' '; i < 127; i++) vi_replace_map[i].function = rl_vi_overstrike; vi_replace_map[RUBOUT].function = rl_vi_overstrike_delete; vi_replace_map[ESC].function = rl_vi_movement_mode; vi_replace_map[RETURN].function = rl_newline; vi_replace_map[NEWLINE].function = rl_newline; /* If the normal vi insertion keymap has ^H bound to erase, do the same here. Probably should remove the assignment to RUBOUT up there, but I don't think it will make a difference in real life. */ if (vi_insertion_keymap[CTRL ('H')].type == ISFUNC && vi_insertion_keymap[CTRL ('H')].function == rl_rubout) vi_replace_map[CTRL ('H')].function = rl_vi_overstrike_delete; } _rl_keymap = vi_replace_map; return (0); } /* Try to complete the word we are standing on or the word that ends with the previous character. A space matches everything. Word delimiters are space and ;. */ rl_vi_possible_completions() { int save_pos = rl_point; if (rl_line_buffer[rl_point] != ' ' && rl_line_buffer[rl_point] != ';') { while (rl_line_buffer[rl_point] != ' ' && rl_line_buffer[rl_point] != ';') ; } else if (rl_line_buffer[rl_point - 1] == ';') { ding (); return (0); } rl_possible_completions (); rl_point = save_pos; return (0); } #endif /* VI_MODE */ gdb-4.13/readline/xmalloc.c 666 34562 1752 4012 5533115533 14123 0ustar fnfcygnus/* xmalloc.c -- safe versions of malloc and realloc */ /* Copyright (C) 1991 Free Software Foundation, Inc. This file is part of GNU Readline, a library for reading lines of text with interactive input and history editing. Readline 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 1, or (at your option) any later version. Readline 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 Readline; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined (ALREADY_HAVE_XMALLOC) #else #include extern char *malloc(); extern char *realloc(); static void memory_error_and_abort (); /* **************************************************************** */ /* */ /* Memory Allocation and Deallocation. */ /* */ /* **************************************************************** */ /* Return a pointer to free()able block of memory large enough to hold BYTES number of bytes. If the memory cannot be allocated, print an error message and abort. */ char * xmalloc (bytes) int bytes; { char *temp = (char *)malloc (bytes); if (!temp) memory_error_and_abort ("xmalloc"); return (temp); } char * xrealloc (pointer, bytes) char *pointer; int bytes; { char *temp; if (!pointer) temp = (char *)malloc (bytes); else temp = (char *)realloc (pointer, bytes); if (!temp) memory_error_and_abort ("xrealloc"); return (temp); } static void memory_error_and_abort (fname) char *fname; { fprintf (stderr, "%s: Out of virtual memory!\n", fname); abort (); } #endif /* !ALREADY_HAVE_XMALLOC */ gdb-4.13/readline/doc/ 777 34562 1752 0 5623251726 13015 5ustar fnfcygnusgdb-4.13/readline/doc/ChangeLog 666 34562 1752 565 5333547135 14635 0ustar fnfcygnusTue Feb 2 11:40:04 1993 Roland H. Pesch (pesch@fowanton.cygnus.com) * Makefile.in: configurable (and useable) Makefile template * Makefile: removed, replaced with configurable Makefile.in * texindex.c texinfo.tex: remove, replacing w/refs to tools elsewhere in distribution tree * configure.in: pro forma configure stub * ChangeLog: new file gdb-4.13/readline/doc/Makefile.in 666 34562 1752 5076 5326642166 15154 0ustar fnfcygnus## Copyright (C) 1993 Free Software Foundation, Inc. # Makefile for Readline documentation. # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. srcdir = . prefix = /usr/local infodir = $(prefix)/info SHELL = /bin/sh INSTALL = install -c INSTALL_DATA = $(INSTALL) # where to find texinfo TEXIDIR=$(srcdir)/../../texinfo # where to find makeinfo, preferably one designed for texinfo-2 MAKEINFO=makeinfo # auxiliary program for sorting Texinfo indices TEXINDEX=texindex # Don Knuth's TeX formatter TEX=tex #### Host, target, and site specific Makefile fragments come in here. ### all: info dvi install: install-info info: history.info readline.info dvi: history.dvi readline.dvi install-info: info -parent=`echo $(infodir)|sed -e 's@/[^/]*$$@@'`; \ if [ -d $$parent ] ; then true ; else mkdir $$parent ; fi -if [ -d $(infodir) ] ; then true ; else mkdir $(infodir) ; fi for i in *.info* ; do \ $(INSTALL_DATA) $$i $(infodir)/$$i ; \ done history.info: hist.texinfo hsuser.texinfo hstech.texinfo $(MAKEINFO) -I $(srcdir) -o ./history.info $(srcdir)/hist.texinfo history.dvi: hist.texinfo hsuser.texinfo hstech.texinfo $(TEXIDIR)/texinfo.tex TEXINPUTS=${TEXIDIR}:$(srcdir):$$TEXINPUTS $(TEX) hist.texinfo $(TEXINDEX) hist.?? TEXINPUTS=${TEXIDIR}:$(srcdir):$$TEXINPUTS $(TEX) hist.texinfo readline.info: rlman.texinfo rluser.texinfo rltech.texinfo $(MAKEINFO) -I $(srcdir) -o ./readline.info $(srcdir)/rlman.texinfo readline.dvi: rlman.texinfo rluser.texinfo rltech.texinfo TEXINPUTS=${TEXIDIR}:$(srcdir):$$TEXINPUTS $(TEX) rlman.texinfo $(TEXINDEX) rlman.?? TEXINPUTS=${TEXIDIR}:$(srcdir):$$TEXINPUTS $(TEX) rlman.texinfo distclean: clean rm -f Makefile config.status mostlyclean: clean realclean: distclean clean: clean-info clean-dvi clean-info: rm -f history.info* readline.info* clean-dvi: rm -f hist.?? hist.??? rm -f rlman.?? rlman.??? Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status gdb-4.13/readline/doc/configure.in 666 34562 1752 136 5326642170 15363 0ustar fnfcygnussrcname="READLINE doc" srctrigger=rlman.texinfo # per-host: # per-target: files="" links="" gdb-4.13/readline/doc/hist.texinfo 666 34562 1752 6560 5112116774 15445 0ustar fnfcygnus\input texinfo @c -*-texinfo-*- @comment %**start of header (This is for running Texinfo on a region.) @setfilename history.info @settitle GNU Readline Library @comment %**end of header (This is for running Texinfo on a region.) @synindex vr fn @setchapternewpage odd @ifinfo This document describes the GNU History library, a programming tool that provides a consistent user interface for recalling lines of previously typed input. Copyright (C) 1988, 1991 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice pare preserved on all copies. @ignore Permission is granted to process this file through TeX and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by the Foundation. @end ifinfo @titlepage @sp 10 @center @titlefont{GNU History Library} @center Brian Fox @center Free Software Foundation @center Version 1.1 @center April 1991 @c Include the Distribution inside the titlepage environment so @c that headings are turned off. @page This document describes the GNU History library, a programming tool that provides a consistent user interface for recalling lines of previously typed input. Published by the Free Software Foundation @* 675 Massachusetts Avenue, @* Cambridge, MA 02139 USA Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by the Foundation. @vskip 0pt plus 1filll Copyright @copyright{} 1989, 1991 Free Software Foundation, Inc. @end titlepage @ifinfo @node Top @top GNU History Library This document describes the GNU History library, a programming tool that provides a consistent user interface for recalling lines of previously typed input. @menu * Using History Interactively:: GNU History User's Manual. * Programming with GNU History:: GNU History Programmer's Manual. * Concept Index:: Index of concepts described in this manual. * Function and Variable Index:: Index of externally visible functions and variables. @end menu @end ifinfo @include hsuser.texinfo @include hstech.texinfo @node Concept Index @appendix Concept Index @printindex cp @node Function and Variable Index @appendix Function and Variable Index @printindex vr @contents @bye gdb-4.13/readline/doc/hstech.texinfo 666 34562 1752 24420 5112116777 15772 0ustar fnfcygnus@ignore This file documents the user interface to the GNU History library. Copyright (C) 1988, 1991 Free Software Foundation, Inc. Authored by Brian Fox. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to process this file through Tex and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the GNU Copyright statement is available to the distributee, and provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end ignore @node Programming with GNU History @chapter Programming with GNU History This chapter describes how to interface the GNU History Library with programs that you write. It should be considered a technical guide. For information on the interactive use of GNU History, @pxref{Using History Interactively}. @menu * Introduction to History:: What is the GNU History library for? * History Storage:: How information is stored. * History Functions:: Functions that you can use. * History Variables:: Variables that control behaviour. * History Programming Example:: Example of using the GNU History Library. @end menu @node Introduction to History @section Introduction to History Many programs read input from the user a line at a time. The GNU history library is able to keep track of those lines, associate arbitrary data with each line, and utilize information from previous lines in making up new ones. The programmer using the History library has available to him functions for remembering lines on a history stack, associating arbitrary data with a line, removing lines from the stack, searching through the stack for a line containing an arbitrary text string, and referencing any line on the stack directly. In addition, a history @dfn{expansion} function is available which provides for a consistent user interface across many different programs. The end-user using programs written with the History library has the benifit of a consistent user interface, with a set of well-known commands for manipulating the text of previous lines and using that text in new commands. The basic history manipulation commands are similar to the history substitution used by @code{Csh}. If the programmer desires, he can use the Readline library, which includes some history manipulation by default, and has the added advantage of Emacs style command line editing. @node History Storage @section History Storage @example typedef struct _hist_entry @{ char *line; char *data; @} HIST_ENTRY; @end example @node History Functions @section History Functions This section describes the calling sequence for the various functions present in GNU History. @defun {void using_history} () Begin a session in which the history functions might be used. This just initializes the interactive variables. @end defun @defun {void add_history} (char *string) Place @var{string} at the end of the history list. The associated data field (if any) is set to @code{NULL}. @end defun @defun {int where_history} () Returns the number which says what history element we are now looking at. @end defun @defun {int history_set_pos} (int pos) Set the position in the history list to @var{pos}. @end defun @defun {int history_search_pos} (char *string, int direction, int pos) Search for @var{string} in the history list, starting at @var{pos}, an absolute index into the list. @var{direction}, if negative, says to search backwards from @var{pos}, else forwards. Returns the absolute index of the history element where @var{string} was found, or -1 otherwise. @end defun @defun {HIST_ENTRY *remove_history} (); Remove history element @var{which} from the history. The removed element is returned to you so you can free the line, data, and containing structure. @end defun @defun {void stifle_history} (int max) Stifle the history list, remembering only @var{max} number of entries. @end defun @defun {int unstifle_history} (); Stop stifling the history. This returns the previous amount the history was stifled by. The value is positive if the history was stifled, negative if it wasn't. @end defun @defun {int read_history} (char *filename) Add the contents of @var{filename} to the history list, a line at a time. If @var{filename} is @code{NULL}, then read from @file{~/.history}. Returns 0 if successful, or errno if not. @end defun @defun {int read_history_range} (char *filename, int from, int to) Read a range of lines from @var{filename}, adding them to the history list. Start reading at the @var{from}'th line and end at the @var{to}'th. If @var{from} is zero, start at the beginning. If @var{to} is less than @var{from}, then read until the end of the file. If @var{filename} is @code{NULL}, then read from @file{~/.history}. Returns 0 if successful, or @code{errno} if not. @end defun @defun {int write_history} (char *filename) Append the current history to @var{filename}. If @var{filename} is @code{NULL}, then append the history list to @file{~/.history}. Values returned are as in @code{read_history ()}. @end defun @defun {int append_history} (int nelements, char *filename) Append @var{nelement} entries to @var{filename}. The entries appended are from the end of the list minus @var{nelements} up to the end of the list. @end defun @defun {HIST_ENTRY *replace_history_entry} () Make the history entry at @var{which} have @var{line} and @var{data}. This returns the old entry so you can dispose of the data. In the case of an invalid @var{which}, a @code{NULL} pointer is returned. @end defun @defun {HIST_ENTRY *current_history} () Return the history entry at the current position, as determined by @code{history_offset}. If there is no entry there, return a @code{NULL} pointer. @end defun @defun {HIST_ENTRY *previous_history} () Back up @var{history_offset} to the previous history entry, and return a pointer to that entry. If there is no previous entry, return a @code{NULL} pointer. @end defun @defun {HIST_ENTRY *next_history} () Move @code{history_offset} forward to the next history entry, and return the a pointer to that entry. If there is no next entry, return a @code{NULL} pointer. @end defun @defun {HIST_ENTRY **history_list} () Return a @code{NULL} terminated array of @code{HIST_ENTRY} which is the current input history. Element 0 of this list is the beginning of time. If there is no history, return @code{NULL}. @end defun @defun {int history_search} (char *string, int direction) Search the history for @var{string}, starting at @code{history_offset}. If @var{direction} < 0, then the search is through previous entries, else through subsequent. If @var{string} is found, then @code{current_history ()} is the history entry, and the value of this function is the offset in the line of that history entry that the @var{string} was found in. Otherwise, nothing is changed, and a -1 is returned. @end defun @defun {int history_expand} (char *string, char **output) Expand @var{string}, placing the result into @var{output}, a pointer to a string. Returns: @table @code @item 0 If no expansions took place (or, if the only change in the text was the de-slashifying of the history expansion character), @item 1 if expansions did take place, or @item -1 if there was an error in expansion. @end table If an error ocurred in expansion, then @var{output} contains a descriptive error message. @end defun @defun {char *history_arg_extract} (int first, int last, char *string) Extract a string segment consisting of the @var{first} through @var{last} arguments present in @var{string}. Arguments are broken up as in the GNU Bash shell. @end defun @defun {int history_total_bytes} (); Return the number of bytes that the primary history entries are using. This just adds up the lengths of @code{the_history->lines}. @end defun @node History Variables @section History Variables This section describes the variables in GNU History that are externally visible. @defvar {int history_base} For convenience only. You set this when interpreting history commands. It is the logical offset of the first history element. @end defvar @node History Programming Example @section History Programming Example The following snippet of code demonstrates simple use of the GNU History Library. @smallexample main () @{ char line[1024], *t; int done = 0; line[0] = 0; while (!done) @{ fprintf (stdout, "history%% "); t = gets (line); if (!t) strcpy (line, "quit"); if (line[0]) @{ char *expansion; int result; using_history (); result = history_expand (line, &expansion); strcpy (line, expansion); free (expansion); if (result) fprintf (stderr, "%s\n", line); if (result < 0) continue; add_history (line); @} if (strcmp (line, "quit") == 0) done = 1; if (strcmp (line, "save") == 0) write_history (0); if (strcmp (line, "read") == 0) read_history (0); if (strcmp (line, "list") == 0) @{ register HIST_ENTRY **the_list = history_list (); register int i; if (the_list) for (i = 0; the_list[i]; i++) fprintf (stdout, "%d: %s\n", i + history_base, the_list[i]->line); @} if (strncmp (line, "delete", strlen ("delete")) == 0) @{ int which; if ((sscanf (line + strlen ("delete"), "%d", &which)) == 1) @{ HIST_ENTRY *entry = remove_history (which); if (!entry) fprintf (stderr, "No such entry %d\n", which); else @{ free (entry->line); free (entry); @} @} else @{ fprintf (stderr, "non-numeric arg given to `delete'\n"); @} @} @} @} @end smallexample gdb-4.13/readline/doc/hsuser.texinfo 666 34562 1752 11221 5112117000 15774 0ustar fnfcygnus@ignore This file documents the user interface to the GNU History library. Copyright (C) 1988, 1991 Free Software Foundation, Inc. Authored by Brian Fox. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to process this file through Tex and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the GNU Copyright statement is available to the distributee, and provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end ignore @node Using History Interactively @chapter Using History Interactively This chapter describes how to use the GNU History Library interactively, from a user's standpoint. It should be considered a user's guide. For information on using the GNU History Library in your own programs, @pxref{Programming with GNU History}. @menu * History Interaction:: What it feels like using History as a user. @end menu @node History Interaction @section History Interaction @cindex expansion The History library provides a history expansion feature that is similar to the history expansion in Csh. The following text describes the sytax that you use to manipulate the history information. History expansion takes place in two parts. The first is to determine which line from the previous history should be used during substitution. The second is to select portions of that line for inclusion into the current one. The line selected from the previous history is called the @dfn{event}, and the portions of that line that are acted upon are called @dfn{words}. The line is broken into words in the same fashion that the Bash shell does, so that several English (or Unix) words surrounded by quotes are considered as one word. @menu * Event Designators:: How to specify which history line to use. * Word Designators:: Specifying which words are of interest. * Modifiers:: Modifying the results of susbstitution. @end menu @node Event Designators @subsection Event Designators @cindex event designators An event designator is a reference to a command line entry in the history list. @table @asis @item @code{!} Start a history subsititution, except when followed by a space, tab, or the end of the line... @key{=} or @key{(}. @item @code{!!} Refer to the previous command. This is a synonym for @code{!-1}. @item @code{!n} Refer to command line @var{n}. @item @code{!-n} Refer to the command line @var{n} lines back. @item @code{!string} Refer to the most recent command starting with @var{string}. @item @code{!?string}[@code{?}] Refer to the most recent command containing @var{string}. @end table @node Word Designators @subsection Word Designators A @key{:} separates the event specification from the word designator. It can be omitted if the word designator begins with a @key{^}, @key{$}, @key{*} or @key{%}. Words are numbered from the beginning of the line, with the first word being denoted by a 0 (zero). @table @code @item 0 (zero) The zero'th word. For many applications, this is the command word. @item n The @var{n}'th word. @item ^ The first argument. that is, word 1. @item $ The last argument. @item % The word matched by the most recent @code{?string?} search. @item x-y A range of words; @code{-@var{y}} Abbreviates @code{0-@var{y}}. @item * All of the words, excepting the zero'th. This is a synonym for @code{1-$}. It is not an error to use @key{*} if there is just one word in the event. The empty string is returned in that case. @end table @node Modifiers @subsection Modifiers After the optional word designator, you can add a sequence of one or more of the following modifiers, each preceded by a @key{:}. @table @code @item # The entire command line typed so far. This means the current command, not the previous command, so it really isn't a word designator, and doesn't belong in this section. @item h Remove a trailing pathname component, leaving only the head. @item r Remove a trailing suffix of the form @samp{.}@var{suffix}, leaving the basename. @item e Remove all but the suffix. @item t Remove all leading pathname components, leaving the tail. @item p Print the new command but do not execute it. @end table gdb-4.13/readline/doc/inc-hist.texi 666 34562 1752 11243 5153304742 15522 0ustar fnfcygnus@ignore This file is completely identical to hsuser.texinfo, except that it has the reference to the programming manual removed. There are definately better ways to do this! This file documents the user interface to the GNU History library. Copyright (C) 1988, 1991 Free Software Foundation, Inc. Authored by Brian Fox. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to process this file through Tex and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the GNU Copyright statement is available to the distributee, and provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end ignore @node Using History Interactively @appendix Using History Interactively This chapter describes how to use the GNU History Library interactively, from a user's standpoint. @menu * History Interaction:: What it feels like using History as a user. @end menu @node History Interaction @section History Interaction @cindex expansion The History library provides a history expansion feature that is similar to the history expansion in Csh. The following text describes the sytax that you use to manipulate the history information. History expansion takes place in two parts. The first is to determine which line from the previous history should be used during substitution. The second is to select portions of that line for inclusion into the current one. The line selected from the previous history is called the @dfn{event}, and the portions of that line that are acted upon are called @dfn{words}. The line is broken into words in the same fashion that the Bash shell does, so that several English (or Unix) words surrounded by quotes are considered as one word. @menu * Event Designators:: How to specify which history line to use. * Word Designators:: Specifying which words are of interest. * Modifiers:: Modifying the results of susbstitution. @end menu @node Event Designators @subsection Event Designators @cindex event designators An event designator is a reference to a command line entry in the history list. @table @asis @item @code{!} Start a history subsititution, except when followed by a space, tab, or the end of the line... @key{=} or @key{(}. @item @code{!!} Refer to the previous command. This is a synonym for @code{!-1}. @item @code{!n} Refer to command line @var{n}. @item @code{!-n} Refer to the command line @var{n} lines back. @item @code{!string} Refer to the most recent command starting with @var{string}. @item @code{!?string}[@code{?}] Refer to the most recent command containing @var{string}. @end table @node Word Designators @subsection Word Designators A @key{:} separates the event specification from the word designator. It can be omitted if the word designator begins with a @key{^}, @key{$}, @key{*} or @key{%}. Words are numbered from the beginning of the line, with the first word being denoted by a 0 (zero). @table @code @item 0 (zero) The zero'th word. For many applications, this is the command word. @item n The @var{n}'th word. @item ^ The first argument. that is, word 1. @item $ The last argument. @item % The word matched by the most recent @code{?string?} search. @item x-y A range of words; @code{-@var{y}} Abbreviates @code{0-@var{y}}. @item * All of the words, excepting the zero'th. This is a synonym for @code{1-$}. It is not an error to use @key{*} if there is just one word in the event. The empty string is returned in that case. @end table @node Modifiers @subsection Modifiers After the optional word designator, you can add a sequence of one or more of the following modifiers, each preceded by a @key{:}. @table @code @item # The entire command line typed so far. This means the current command, not the previous command, so it really isn't a word designator, and doesn't belong in this section. @item h Remove a trailing pathname component, leaving only the head. @item r Remove a trailing suffix of the form @samp{.}@var{suffix}, leaving the basename. @item e Remove all but the suffix. @item t Remove all leading pathname components, leaving the tail. @item p Print the new command but do not execute it. @end table gdb-4.13/readline/doc/rlman.texinfo 666 34562 1752 6531 5112117006 15572 0ustar fnfcygnus\input texinfo @c -*-texinfo-*- @comment %**start of header (This is for running Texinfo on a region.) @setfilename readline.info @settitle GNU Readline Library @comment %**end of header (This is for running Texinfo on a region.) @synindex vr fn @setchapternewpage odd @ifinfo This document describes the GNU Readline Library, a utility which aids in the consistency of user interface across discrete programs that need to provide a command line interface. Copyright (C) 1988, 1991 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice pare preserved on all copies. @ignore Permission is granted to process this file through TeX and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by the Foundation. @end ifinfo @titlepage @sp 10 @center @titlefont{GNU Readline Library} @center Brian Fox @center Free Software Foundation @center Version 1.1 @center April 1991 @page This document describes the GNU Readline Library, a utility which aids in the consistency of user interface across discrete programs that need to provide a command line interface. Published by the Free Software Foundation @* 675 Massachusetts Avenue, @* Cambridge, MA 02139 USA Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by the Foundation. @vskip 0pt plus 1filll Copyright @copyright{} 1989, 1991 Free Software Foundation, Inc. @end titlepage @ifinfo @node Top @top GNU Readline Library This document describes the GNU Readline Library, a utility which aids in the consistency of user interface across discrete programs that need to provide a command line interface. @menu * Command Line Editing:: GNU Readline User's Manual. * Programming with GNU Readline:: GNU Readline Programmer's Manual. * Concept Index:: Index of concepts described in this manual. * Function and Variable Index:: Index of externally visible functions and variables. @end menu @end ifinfo @include rluser.texinfo @include rltech.texinfo @node Concept Index @unnumbered Concept Index @printindex cp @node Function and Variable Index @unnumbered Function and Variable Index @printindex fn @contents @bye gdb-4.13/readline/doc/rltech.texinfo 666 34562 1752 77400 5112117010 15760 0ustar fnfcygnus@comment %**start of header (This is for running Texinfo on a region.) @setfilename rltech.info @comment %**end of header (This is for running Texinfo on a region.) @setchapternewpage odd @ifinfo This document describes the GNU Readline Library, a utility for aiding in the consitency of user interface across discrete programs that need to provide a command line interface. Copyright (C) 1988 Free Software Foundation, Inc. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice pare preserved on all copies. @ignore Permission is granted to process this file through TeX and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by the Foundation. @end ifinfo @node Programming with GNU Readline @chapter Programming with GNU Readline This manual describes the interface between the GNU Readline Library and user programs. If you are a programmer, and you wish to include the features found in GNU Readline in your own programs, such as completion, line editing, and interactive history manipulation, this documentation is for you. @menu * Default Behaviour:: Using the default behaviour of Readline. * Custom Functions:: Adding your own functions to Readline. * Custom Completers:: Supplanting or supplementing Readline's completion functions. @end menu @node Default Behaviour @section Default Behaviour Many programs provide a command line interface, such as @code{mail}, @code{ftp}, and @code{sh}. For such programs, the default behaviour of Readline is sufficient. This section describes how to use Readline in the simplest way possible, perhaps to replace calls in your code to @code{gets ()}. @findex readline () @cindex readline, function The function @code{readline} prints a prompt and then reads and returns a single line of text from the user. The line which @code{readline ()} returns is allocated with @code{malloc ()}; you should @code{free ()} the line when you are done with it. The declaration for @code{readline} in ANSI C is @example @code{char *readline (char *@var{prompt});} @end example So, one might say @example @code{char *line = readline ("Enter a line: ");} @end example in order to read a line of text from the user. The line which is returned has the final newline removed, so only the text of the line remains. If readline encounters an @code{EOF} while reading the line, and the line is empty at that point, then @code{(char *)NULL} is returned. Otherwise, the line is ended just as if a newline was typed. If you want the user to be able to get at the line later, (with @key{C-p} for example), you must call @code{add_history ()} to save the line away in a @dfn{history} list of such lines. @example @code{add_history (line)}; @end example For full details on the GNU History Library, see the associated manual. It is polite to avoid saving empty lines on the history list, since it is rare than someone has a burning need to reuse a blank line. Here is a function which usefully replaces the standard @code{gets ()} library function: @example /* A static variable for holding the line. */ static char *line_read = (char *)NULL; /* Read a string, and return a pointer to it. Returns NULL on EOF. */ char * do_gets () @{ /* If the buffer has already been allocated, return the memory to the free pool. */ if (line_read != (char *)NULL) @{ free (line_read); line_read = (char *)NULL; @} /* Get a line from the user. */ line_read = readline (""); /* If the line has any text in it, save it on the history. */ if (line_read && *line_read) add_history (line_read); return (line_read); @} @end example The above code gives the user the default behaviour of @key{TAB} completion: completion on file names. If you do not want readline to complete on filenames, you can change the binding of the @key{TAB} key with @code{rl_bind_key ()}. @findex rl_bind_key () @example @code{int rl_bind_key (int @var{key}, int (*@var{function})());} @end example @code{rl_bind_key ()} takes 2 arguments; @var{key} is the character that you want to bind, and @var{function} is the address of the function to run when @var{key} is pressed. Binding @key{TAB} to @code{rl_insert ()} makes @key{TAB} just insert itself. @code{rl_bind_key ()} returns non-zero if @var{key} is not a valid ASCII character code (between 0 and 255). @example @code{rl_bind_key ('\t', rl_insert);} @end example This code should be executed once at the start of your program; you might write a function called @code{initialize_readline ()} which performs this and other desired initializations, such as installing custom completers, etc. @node Custom Functions @section Custom Functions Readline provides a great many functions for manipulating the text of the line. But it isn't possible to anticipate the needs of all programs. This section describes the various functions and variables defined in within the Readline library which allow a user program to add customized functionality to Readline. @menu * The Function Type:: C declarations to make code readable. * Function Naming:: How to give a function you write a name. * Keymaps:: Making keymaps. * Binding Keys:: Changing Keymaps. * Function Writing:: Variables and calling conventions. * Allowing Undoing:: How to make your functions undoable. @end menu @node The Function Type @subsection The Function Type For the sake of readabilty, we declare a new type of object, called @dfn{Function}. A @code{Function} is a C language function which returns an @code{int}. The type declaration for @code{Function} is: @noindent @code{typedef int Function ();} The reason for declaring this new type is to make it easier to write code describing pointers to C functions. Let us say we had a variable called @var{func} which was a pointer to a function. Instead of the classic C declaration @code{int (*)()func;} we have @code{Function *func;} @node Function Naming @subsection Naming a Function The user can dynamically change the bindings of keys while using Readline. This is done by representing the function with a descriptive name. The user is able to type the descriptive name when referring to the function. Thus, in an init file, one might find @example Meta-Rubout: backward-kill-word @end example This binds the keystroke @key{Meta-Rubout} to the function @emph{descriptively} named @code{backward-kill-word}. You, as the programmer, should bind the functions you write to descriptive names as well. Readline provides a function for doing that: @defun rl_add_defun (char *name, Function *function, int key) Add @var{name} to the list of named functions. Make @var{function} be the function that gets called. If @var{key} is not -1, then bind it to @var{function} using @code{rl_bind_key ()}. @end defun Using this function alone is sufficient for most applications. It is the recommended way to add a few functions to the default functions that Readline has built in already. If you need to do more or different things than adding a function to Readline, you may need to use the underlying functions described below. @node Keymaps @subsection Selecting a Keymap Key bindings take place on a @dfn{keymap}. The keymap is the association between the keys that the user types and the functions that get run. You can make your own keymaps, copy existing keymaps, and tell Readline which keymap to use. @defun {Keymap rl_make_bare_keymap} () Returns a new, empty keymap. The space for the keymap is allocated with @code{malloc ()}; you should @code{free ()} it when you are done. @end defun @defun {Keymap rl_copy_keymap} (Keymap map) Return a new keymap which is a copy of @var{map}. @end defun @defun {Keymap rl_make_keymap} () Return a new keymap with the printing characters bound to rl_insert, the lowercase Meta characters bound to run their equivalents, and the Meta digits bound to produce numeric arguments. @end defun @node Binding Keys @subsection Binding Keys You associate keys with functions through the keymap. Here are functions for doing that. @defun {int rl_bind_key} (int key, Function *function) Binds @var{key} to @var{function} in the currently selected keymap. Returns non-zero in the case of an invalid @var{key}. @end defun @defun {int rl_bind_key_in_map} (int key, Function *function, Keymap map) Bind @var{key} to @var{function} in @var{map}. Returns non-zero in the case of an invalid @var{key}. @end defun @defun {int rl_unbind_key} (int key) Make @var{key} do nothing in the currently selected keymap. Returns non-zero in case of error. @end defun @defun {int rl_unbind_key_in_map} (int key, Keymap map) Make @var{key} be bound to the null function in @var{map}. Returns non-zero in case of error. @end defun @defun rl_generic_bind (int type, char *keyseq, char *data, Keymap map) Bind the key sequence represented by the string @var{keyseq} to the arbitrary pointer @var{data}. @var{type} says what kind of data is pointed to by @var{data}; right now this can be a function (@code{ISFUNC}), a macro (@code{ISMACR}), or a keymap (@code{ISKMAP}). This makes new keymaps as necessary. The initial place to do bindings is in @var{map}. @end defun @node Function Writing @subsection Writing a New Function In order to write new functions for Readline, you need to know the calling conventions for keyboard invoked functions, and the names of the variables that describe the current state of the line gathered so far. @defvar {char *rl_line_buffer} This is the line gathered so far. You are welcome to modify the contents of this, but see Undoing, below. @end defvar @defvar {int rl_point} The offset of the current cursor position in @var{rl_line_buffer}. @end defvar @defvar {int rl_end} The number of characters present in @code{rl_line_buffer}. When @code{rl_point} is at the end of the line, then @code{rl_point} and @code{rl_end} are equal. @end defvar The calling sequence for a command @code{foo} looks like @example @code{foo (int count, int key)} @end example where @var{count} is the numeric argument (or 1 if defaulted) and @var{key} is the key that invoked this function. It is completely up to the function as to what should be done with the numeric argument; some functions use it as a repeat count, other functions as a flag, and some choose to ignore it. In general, if a function uses the numeric argument as a repeat count, it should be able to do something useful with a negative argument as well as a positive argument. At the very least, it should be aware that it can be passed a negative argument. @node Allowing Undoing @subsection Allowing Undoing Supporting the undo command is a painless thing to do, and makes your functions much more useful to the end user. It is certainly easy to try something if you know you can undo it. I could use an undo function for the stock market. If your function simply inserts text once, or deletes text once, and it calls @code{rl_insert_text ()} or @code{rl_delete_text ()} to do it, then undoing is already done for you automatically, and you can safely skip this section. If you do multiple insertions or multiple deletions, or any combination of these operations, you should group them together into one operation. This can be done with @code{rl_begin_undo_group ()} and @code{rl_end_undo_group ()}. @defun rl_begin_undo_group () Begins saving undo information in a group construct. The undo information usually comes from calls to @code{rl_insert_text ()} and @code{rl_delete_text ()}, but they could be direct calls to @code{rl_add_undo ()}. @end defun @defun rl_end_undo_group () Closes the current undo group started with @code{rl_begin_undo_group ()}. There should be exactly one call to @code{rl_end_undo_group ()} for every call to @code{rl_begin_undo_group ()}. @end defun Finally, if you neither insert nor delete text, but directly modify the existing text (e.g. change its case), you call @code{rl_modifying ()} once, just before you modify the text. You must supply the indices of the text range that you are going to modify. @defun rl_modifying (int start, int end) Tell Readline to save the text between @var{start} and @var{end} as a single undo unit. It is assumed that subsequent to this call you will modify that range of text in some way. @end defun @subsection An Example Here is a function which changes lowercase characters to the uppercase equivalents, and uppercase characters to the lowercase equivalents. If this function was bound to @samp{M-c}, then typing @samp{M-c} would change the case of the character under point. Typing @samp{10 M-c} would change the case of the following 10 characters, leaving the cursor on the last character changed. @example /* Invert the case of the COUNT following characters. */ invert_case_line (count, key) int count, key; @{ register int start, end; start = rl_point; if (count < 0) @{ direction = -1; count = -count; @} else direction = 1; /* Find the end of the range to modify. */ end = start + (count * direction); /* Force it to be within range. */ if (end > rl_end) end = rl_end; else if (end < 0) end = -1; if (start > end) @{ int temp = start; start = end; end = temp; @} if (start == end) return; /* Tell readline that we are modifying the line, so save the undo information. */ rl_modifying (start, end); for (; start != end; start += direction) @{ if (uppercase_p (rl_line_buffer[start])) rl_line_buffer[start] = to_lower (rl_line_buffer[start]); else if (lowercase_p (rl_line_buffer[start])) rl_line_buffer[start] = to_upper (rl_line_buffer[start]); @} /* Move point to on top of the last character changed. */ rl_point = end - direction; @} @end example @node Custom Completers @section Custom Completers Typically, a program that reads commands from the user has a way of disambiguating commands and data. If your program is one of these, then it can provide completion for either commands, or data, or both commands and data. The following sections describe how your program and Readline cooperate to provide this service to end users. @menu * How Completing Works:: The logic used to do completion. * Completion Functions:: Functions provided by Readline. * Completion Variables:: Variables which control completion. * A Short Completion Example:: An example of writing completer subroutines. @end menu @node How Completing Works @subsection How Completing Works In order to complete some text, the full list of possible completions must be available. That is to say, it is not possible to accurately expand a partial word without knowing what all of the possible words that make sense in that context are. The GNU Readline library provides the user interface to completion, and additionally, two of the most common completion functions; filename and username. For completing other types of text, you must write your own completion function. This section describes exactly what those functions must do, and provides an example function. There are three major functions used to perform completion: @enumerate @item The user-interface function @code{rl_complete ()}. This function is called interactively with the same calling conventions as other functions in readline intended for interactive use; i.e. @var{count}, and @var{invoking-key}. It isolates the word to be completed and calls @code{completion_matches ()} to generate a list of possible completions. It then either lists the possible completions or actually performs the completion, depending on which behaviour is desired. @item The internal function @code{completion_matches ()} uses your @dfn{generator} function to generate the list of possible matches, and then returns the array of these matches. You should place the address of your generator function in @code{rl_completion_entry_function}. @item The generator function is called repeatedly from @code{completion_matches ()}, returning a string each time. The arguments to the generator function are @var{text} and @var{state}. @var{text} is the partial word to be completed. @var{state} is zero the first time the function is called, and a positive non-zero integer for each subsequent call. When the generator function returns @code{(char *)NULL} this signals @code{completion_matches ()} that there are no more possibilities left. @end enumerate @defun rl_complete (int ignore, int invoking_key) Complete the word at or before point. You have supplied the function that does the initial simple matching selection algorithm (see @code{completion_matches ()}). The default is to do filename completion. @end defun Note that @code{rl_complete ()} has the identical calling conventions as any other key-invokable function; this is because by default it is bound to the @samp{TAB} key. @defvar {Function *rl_completion_entry_function} This is a pointer to the generator function for @code{completion_matches ()}. If the value of @code{rl_completion_entry_function} is @code{(Function *)NULL} then the default filename generator function is used, namely @code{filename_entry_function ()}. @end defvar @node Completion Functions @subsection Completion Functions Here is the complete list of callable completion functions present in Readline. @defun rl_complete_internal (int what_to_do) Complete the word at or before point. @var{what_to_do} says what to do with the completion. A value of @samp{?} means list the possible completions. @samp{TAB} means do standard completion. @samp{*} means insert all of the possible completions. @end defun @defun rl_complete (int ignore, int invoking_key) Complete the word at or before point. You have supplied the function that does the initial simple matching selection algorithm (see @code{completion_matches ()}). The default is to do filename completion. This just calls @code{rl_complete_internal ()} with an argument of @samp{TAB}. @end defun @defun rl_possible_completions () List the possible completions. See description of @code{rl_complete ()}. This just calls @code{rl_complete_internal ()} with an argument of @samp{?}. @end defun @defun {char **completion_matches} (char *text, char *(*entry_function) ()) Returns an array of @code{(char *)} which is a list of completions for @var{text}. If there are no completions, returns @code{(char **)NULL}. The first entry in the returned array is the substitution for @var{text}. The remaining entries are the possible completions. The array is terminated with a @code{NULL} pointer. @var{entry_function} is a function of two args, and returns a @code{(char *)}. The first argument is @var{text}. The second is a state argument; it is zero on the first call, and non-zero on subsequent calls. It returns a @code{NULL} pointer to the caller when there are no more matches. @end defun @defun {char *filename_completion_function} (char *text, int state) A generator function for filename completion in the general case. Note that completion in the Bash shell is a little different because of all the pathnames that must be followed when looking up the completion for a command. @end defun @defun {char *username_completion_function} (char *text, int state) A completion generator for usernames. @var{text} contains a partial username preceded by a random character (usually @samp{~}). @end defun @node Completion Variables @subsection Completion Variables @defvar {Function *rl_completion_entry_function} A pointer to the generator function for @code{completion_matches ()}. @code{NULL} means to use @code{filename_entry_function ()}, the default filename completer. @end defvar @defvar {Function *rl_attempted_completion_function} A pointer to an alternative function to create matches. The function is called with @var{text}, @var{start}, and @var{end}. @var{start} and @var{end} are indices in @code{rl_line_buffer} saying what the boundaries of @var{text} are. If this function exists and returns @code{NULL} then @code{rl_complete ()} will call the value of @code{rl_completion_entry_function} to generate matches, otherwise the array of strings returned will be used. @end defvar @defvar {int rl_completion_query_items} Up to this many items will be displayed in response to a possible-completions call. After that, we ask the user if she is sure she wants to see them all. The default value is 100. @end defvar @defvar {char *rl_basic_word_break_characters} The basic list of characters that signal a break between words for the completer routine. The contents of this variable is what breaks words in the Bash shell, i.e. " \t\n\"\\'`@@$><=;|&@{(". @end defvar @defvar {char *rl_completer_word_break_characters} The list of characters that signal a break between words for @code{rl_complete_internal ()}. The default list is the contents of @code{rl_basic_word_break_characters}. @end defvar @defvar {char *rl_special_prefixes} The list of characters that are word break characters, but should be left in @var{text} when it is passed to the completion function. Programs can use this to help determine what kind of completing to do. @end defvar @defvar {int rl_ignore_completion_duplicates} If non-zero, then disallow duplicates in the matches. Default is 1. @end defvar @defvar {int rl_filename_completion_desired} Non-zero means that the results of the matches are to be treated as filenames. This is @emph{always} zero on entry, and can only be changed within a completion entry generator function. @end defvar @defvar {Function *rl_ignore_some_completions_function} This function, if defined, is called by the completer when real filename completion is done, after all the matching names have been generated. It is passed a @code{NULL} terminated array of @code{(char *)} known as @var{matches} in the code. The 1st element (@code{matches[0]}) is the maximal substring that is common to all matches. This function can re-arrange the list of matches as required, but each deleted element of the array must be @code{free()}'d. @end defvar @node A Short Completion Example @subsection A Short Completion Example Here is a small application demonstrating the use of the GNU Readline library. It is called @code{fileman}, and the source code resides in @file{readline/examples/fileman.c}. This sample application provides completion of command names, line editing features, and access to the history list. @page @smallexample /* fileman.c -- A tiny application which demonstrates how to use the GNU Readline library. This application interactively allows users to manipulate files and their modes. */ #include #include #include #include #include #include #include /* The names of functions that actually do the manipulation. */ int com_list (), com_view (), com_rename (), com_stat (), com_pwd (); int com_delete (), com_help (), com_cd (), com_quit (); /* A structure which contains information on the commands this program can understand. */ typedef struct @{ char *name; /* User printable name of the function. */ Function *func; /* Function to call to do the job. */ char *doc; /* Documentation for this function. */ @} COMMAND; COMMAND commands[] = @{ @{ "cd", com_cd, "Change to directory DIR" @}, @{ "delete", com_delete, "Delete FILE" @}, @{ "help", com_help, "Display this text" @}, @{ "?", com_help, "Synonym for `help'" @}, @{ "list", com_list, "List files in DIR" @}, @{ "ls", com_list, "Synonym for `list'" @}, @{ "pwd", com_pwd, "Print the current working directory" @}, @{ "quit", com_quit, "Quit using Fileman" @}, @{ "rename", com_rename, "Rename FILE to NEWNAME" @}, @{ "stat", com_stat, "Print out statistics on FILE" @}, @{ "view", com_view, "View the contents of FILE" @}, @{ (char *)NULL, (Function *)NULL, (char *)NULL @} @}; /* The name of this program, as taken from argv[0]. */ char *progname; /* When non-zero, this global means the user is done using this program. */ int done = 0; @page main (argc, argv) int argc; char **argv; @{ progname = argv[0]; initialize_readline (); /* Bind our completer. */ /* Loop reading and executing lines until the user quits. */ while (!done) @{ char *line; line = readline ("FileMan: "); if (!line) @{ done = 1; /* Encountered EOF at top level. */ @} else @{ /* Remove leading and trailing whitespace from the line. Then, if there is anything left, add it to the history list and execute it. */ stripwhite (line); if (*line) @{ add_history (line); execute_line (line); @} @} if (line) free (line); @} exit (0); @} /* Execute a command line. */ execute_line (line) char *line; @{ register int i; COMMAND *find_command (), *command; char *word; /* Isolate the command word. */ i = 0; while (line[i] && !whitespace (line[i])) i++; word = line; if (line[i]) line[i++] = '\0'; command = find_command (word); if (!command) @{ fprintf (stderr, "%s: No such command for FileMan.\n", word); return; @} /* Get argument to command, if any. */ while (whitespace (line[i])) i++; word = line + i; /* Call the function. */ (*(command->func)) (word); @} /* Look up NAME as the name of a command, and return a pointer to that command. Return a NULL pointer if NAME isn't a command name. */ COMMAND * find_command (name) char *name; @{ register int i; for (i = 0; commands[i].name; i++) if (strcmp (name, commands[i].name) == 0) return (&commands[i]); return ((COMMAND *)NULL); @} /* Strip whitespace from the start and end of STRING. */ stripwhite (string) char *string; @{ register int i = 0; while (whitespace (string[i])) i++; if (i) strcpy (string, string + i); i = strlen (string) - 1; while (i > 0 && whitespace (string[i])) i--; string[++i] = '\0'; @} @page /* **************************************************************** */ /* */ /* Interface to Readline Completion */ /* */ /* **************************************************************** */ /* Tell the GNU Readline library how to complete. We want to try to complete on command names if this is the first word in the line, or on filenames if not. */ initialize_readline () @{ char **fileman_completion (); /* Allow conditional parsing of the ~/.inputrc file. */ rl_readline_name = "FileMan"; /* Tell the completer that we want a crack first. */ rl_attempted_completion_function = (Function *)fileman_completion; @} /* Attempt to complete on the contents of TEXT. START and END show the region of TEXT that contains the word to complete. We can use the entire line in case we want to do some simple parsing. Return the array of matches, or NULL if there aren't any. */ char ** fileman_completion (text, start, end) char *text; int start, end; @{ char **matches; char *command_generator (); matches = (char **)NULL; /* If this word is at the start of the line, then it is a command to complete. Otherwise it is the name of a file in the current directory. */ if (start == 0) matches = completion_matches (text, command_generator); return (matches); @} /* Generator function for command completion. STATE lets us know whether to start from scratch; without any state (i.e. STATE == 0), then we start at the top of the list. */ char * command_generator (text, state) char *text; int state; @{ static int list_index, len; char *name; /* If this is a new word to complete, initialize now. This includes saving the length of TEXT for efficiency, and initializing the index variable to 0. */ if (!state) @{ list_index = 0; len = strlen (text); @} /* Return the next name which partially matches from the command list. */ while (name = commands[list_index].name) @{ list_index++; if (strncmp (name, text, len) == 0) return (name); @} /* If no names matched, then return NULL. */ return ((char *)NULL); @} @page /* **************************************************************** */ /* */ /* FileMan Commands */ /* */ /* **************************************************************** */ /* String to pass to system (). This is for the LIST, VIEW and RENAME commands. */ static char syscom[1024]; /* List the file(s) named in arg. */ com_list (arg) char *arg; @{ if (!arg) arg = "*"; sprintf (syscom, "ls -FClg %s", arg); system (syscom); @} com_view (arg) char *arg; @{ if (!valid_argument ("view", arg)) return; sprintf (syscom, "cat %s | more", arg); system (syscom); @} com_rename (arg) char *arg; @{ too_dangerous ("rename"); @} com_stat (arg) char *arg; @{ struct stat finfo; if (!valid_argument ("stat", arg)) return; if (stat (arg, &finfo) == -1) @{ perror (arg); return; @} printf ("Statistics for `%s':\n", arg); printf ("%s has %d link%s, and is %d bytes in length.\n", arg, finfo.st_nlink, (finfo.st_nlink == 1) ? "" : "s", finfo.st_size); printf (" Created on: %s", ctime (&finfo.st_ctime)); printf (" Last access at: %s", ctime (&finfo.st_atime)); printf ("Last modified at: %s", ctime (&finfo.st_mtime)); @} com_delete (arg) char *arg; @{ too_dangerous ("delete"); @} /* Print out help for ARG, or for all of the commands if ARG is not present. */ com_help (arg) char *arg; @{ register int i; int printed = 0; for (i = 0; commands[i].name; i++) @{ if (!*arg || (strcmp (arg, commands[i].name) == 0)) @{ printf ("%s\t\t%s.\n", commands[i].name, commands[i].doc); printed++; @} @} if (!printed) @{ printf ("No commands match `%s'. Possibilties are:\n", arg); for (i = 0; commands[i].name; i++) @{ /* Print in six columns. */ if (printed == 6) @{ printed = 0; printf ("\n"); @} printf ("%s\t", commands[i].name); printed++; @} if (printed) printf ("\n"); @} @} /* Change to the directory ARG. */ com_cd (arg) char *arg; @{ if (chdir (arg) == -1) perror (arg); com_pwd (""); @} /* Print out the current working directory. */ com_pwd (ignore) char *ignore; @{ char dir[1024]; (void) getwd (dir); printf ("Current directory is %s\n", dir); @} /* The user wishes to quit using this program. Just set DONE non-zero. */ com_quit (arg) char *arg; @{ done = 1; @} /* Function which tells you that you can't do this. */ too_dangerous (caller) char *caller; @{ fprintf (stderr, "%s: Too dangerous for me to distribute. Write it yourself.\n", caller); @} /* Return non-zero if ARG is a valid argument for CALLER, else print an error message and return zero. */ int valid_argument (caller, arg) char *caller, *arg; @{ if (!arg || !*arg) @{ fprintf (stderr, "%s: Argument required.\n", caller); return (0); @} return (1); @} @end smallexample gdb-4.13/readline/doc/rluser.texinfo 666 34562 1752 47107 5476307563 16047 0ustar fnfcygnus@ignore This file documents the end user interface to the GNU command line editing feautres. It is to be an appendix to manuals for programs which use these features. There is a document entitled "readline.texinfo" which contains both end-user and programmer documentation for the GNU Readline Library. Copyright (C) 1988 Free Software Foundation, Inc. Authored by Brian Fox. Permission is granted to process this file through Tex and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided also that the GNU Copyright statement is available to the distributee, and provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions. @end ignore @node Command Line Editing @appendix Command Line Editing This text describes GNU's command line editing interface. @menu * Introduction and Notation:: Notation used in this text. * Readline Interaction:: The minimum set of commands for editing a line. * Readline Init File:: Customizing Readline from a user's view. @end menu @node Introduction and Notation @section Introduction to Line Editing The following paragraphs describe the notation we use to represent keystrokes. The text @key{C-k} is read as `Control-K' and describes the character produced when the Control key is depressed and the @key{k} key is struck. The text @key{M-k} is read as `Meta-K' and describes the character produced when the meta key (if you have one) is depressed, and the @key{k} key is struck. If you do not have a meta key, the identical keystroke can be generated by typing @key{ESC} @i{first}, and then typing @key{k}. Either process is known as @dfn{metafying} the @key{k} key. The text @key{M-C-k} is read as `Meta-Control-k' and describes the character produced by @dfn{metafying} @key{C-k}. In addition, several keys have their own names. Specifically, @key{DEL}, @key{ESC}, @key{LFD}, @key{SPC}, @key{RET}, and @key{TAB} all stand for themselves when seen in this text, or in an init file (@pxref{Readline Init File}, for more info). @node Readline Interaction @section Readline Interaction @cindex interaction, readline Often during an interactive session you type in a long line of text, only to notice that the first word on the line is misspelled. The Readline library gives you a set of commands for manipulating the text as you type it in, allowing you to just fix your typo, and not forcing you to retype the majority of the line. Using these editing commands, you move the cursor to the place that needs correction, and delete or insert the text of the corrections. Then, when you are satisfied with the line, you simply press @key{RETURN}. You do not have to be at the end of the line to press @key{RETURN}; the entire line is accepted regardless of the location of the cursor within the line. @menu * Readline Bare Essentials:: The least you need to know about Readline. * Readline Movement Commands:: Moving about the input line. * Readline Killing Commands:: How to delete text, and how to get it back! * Readline Arguments:: Giving numeric arguments to commands. @end menu @node Readline Bare Essentials @subsection Readline Bare Essentials In order to enter characters into the line, simply type them. The typed character appears where the cursor was, and then the cursor moves one space to the right. If you mistype a character, you can use @key{DEL} to back up, and delete the mistyped character. Sometimes you may miss typing a character that you wanted to type, and not notice your error until you have typed several other characters. In that case, you can type @key{C-b} to move the cursor to the left, and then correct your mistake. Aftwerwards, you can move the cursor to the right with @key{C-f}. When you add text in the middle of a line, you will notice that characters to the right of the cursor get `pushed over' to make room for the text that you have inserted. Likewise, when you delete text behind the cursor, characters to the right of the cursor get `pulled back' to fill in the blank space created by the removal of the text. A list of the basic bare essentials for editing the text of an input line follows. @table @asis @item @key{C-b} Move back one character. @item @key{C-f} Move forward one character. @item @key{DEL} Delete the character to the left of the cursor. @item @key{C-d} Delete the character underneath the cursor. @item @w{Printing characters} Insert itself into the line at the cursor. @item @key{C-_} Undo the last thing that you did. You can undo all the way back to an empty line. @end table @node Readline Movement Commands @subsection Readline Movement Commands The above table describes the most basic possible keystrokes that you need in order to do editing of the input line. For your convenience, many other commands have been added in addition to @key{C-b}, @key{C-f}, @key{C-d}, and @key{DEL}. Here are some commands for moving more rapidly about the line. @table @key @item C-a Move to the start of the line. @item C-e Move to the end of the line. @item M-f Move forward a word. @item M-b Move backward a word. @item C-l Clear the screen, reprinting the current line at the top. @end table Notice how @key{C-f} moves forward a character, while @key{M-f} moves forward a word. It is a loose convention that control keystrokes operate on characters while meta keystrokes operate on words. @node Readline Killing Commands @subsection Readline Killing Commands @dfn{Killing} text means to delete the text from the line, but to save it away for later use, usually by @dfn{yanking} it back into the line. If the description for a command says that it `kills' text, then you can be sure that you can get the text back in a different (or the same) place later. Here is the list of commands for killing text. @table @key @item C-k Kill the text from the current cursor position to the end of the line. @item M-d Kill from the cursor to the end of the current word, or if between words, to the end of the next word. @item M-DEL Kill from the cursor to the start of the previous word, or if between words, to the start of the previous word. @item C-w Kill from the cursor to the previous whitespace. This is different than @key{M-DEL} because the word boundaries differ. @end table And, here is how to @dfn{yank} the text back into the line. Yanking is @table @key @item C-y Yank the most recently killed text back into the buffer at the cursor. @item M-y Rotate the kill-ring, and yank the new top. You can only do this if the prior command is @key{C-y} or @key{M-y}. @end table When you use a kill command, the text is saved in a @dfn{kill-ring}. Any number of consecutive kills save all of the killed text together, so that when you yank it back, you get it in one clean sweep. The kill ring is not line specific; the text that you killed on a previously typed line is available to be yanked back later, when you are typing another line. @node Readline Arguments @subsection Readline Arguments You can pass numeric arguments to Readline commands. Sometimes the argument acts as a repeat count, other times it is the @i{sign} of the argument that is significant. If you pass a negative argument to a command which normally acts in a forward direction, that command will act in a backward direction. For example, to kill text back to the start of the line, you might type @key{M--} @key{C-k}. The general way to pass numeric arguments to a command is to type meta digits before the command. If the first `digit' you type is a minus sign (@key{-}), then the sign of the argument will be negative. Once you have typed one meta digit to get the argument started, you can type the remainder of the digits, and then the command. For example, to give the @key{C-d} command an argument of 10, you could type @key{M-1 0 C-d}. @node Readline Init File @section Readline Init File Although the Readline library comes with a set of Emacs-like keybindings, it is possible that you would like to use a different set of keybindings. You can customize programs that use Readline by putting commands in an @dfn{init} file in your home directory. The name of this file is @file{~/.inputrc}. When a program which uses the Readline library starts up, the @file{~/.inputrc} file is read, and the keybindings are set. In addition, the @key{C-x C-r} command re-reads this init file, thus incorporating any changes that you might have made to it. @menu * Readline Init Syntax:: Syntax for the commands in @file{~/.inputrc}. * Readline Vi Mode:: Switching to @code{vi} mode in Readline. @end menu @node Readline Init Syntax @subsection Readline Init Syntax There are only four constructs allowed in the @file{~/.inputrc} file: @table @asis @item Variable Settings You can change the state of a few variables in Readline. You do this by using the @code{set} command within the init file. Here is how you would specify that you wish to use Vi line editing commands: @example set editing-mode vi @end example Right now, there are only a few variables which can be set; so few in fact, that we just iterate them here: @table @code @item editing-mode @vindex editing-mode The @code{editing-mode} variable controls which editing mode you are using. By default, GNU Readline starts up in Emacs editing mode, where the keystrokes are most similar to Emacs. This variable can either be set to @code{emacs} or @code{vi}. @item horizontal-scroll-mode @vindex horizontal-scroll-mode This variable can either be set to @code{On} or @code{Off}. Setting it to @code{On} means that the text of the lines that you edit will scroll horizontally on a single screen line when they are larger than the width of the screen, instead of wrapping onto a new screen line. By default, this variable is set to @code{Off}. @item mark-modified-lines @vindex mark-modified-lines This variable when set to @code{On}, says to display an asterisk (@samp{*}) at the starts of history lines which have been modified. This variable is off by default. @item prefer-visible-bell @vindex prefer-visible-bell If this variable is set to @code{On} it means to use a visible bell if one is available, rather than simply ringing the terminal bell. By default, the value is @code{Off}. @end table @item Key Bindings The syntax for controlling keybindings in the @file{~/.inputrc} file is simple. First you have to know the @i{name} of the command that you want to change. The following pages contain tables of the command name, the default keybinding, and a short description of what the command does. Once you know the name of the command, simply place the name of the key you wish to bind the command to, a colon, and then the name of the command on a line in the @file{~/.inputrc} file. The name of the key can be expressed in different ways, depending on which is most comfortable for you. @table @asis @item @w{@var{keyname}: @var{function-name} or @var{macro}} @var{keyname} is the name of a key spelled out in English. For example: @example Control-u: universal-argument Meta-Rubout: backward-kill-word Control-o: ">&output" @end example In the above example, @key{C-u} is bound to the function @code{universal-argument}, and @key{C-o} is bound to run the macro expressed on the right hand side (that is, to insert the text @samp{>&output} into the line). @item @w{"@var{keyseq}": @var{function-name} or @var{macro}} @var{keyseq} differs from @var{keyname} above in that strings denoting an entire key sequence can be specified. Simply place the key sequence in double quotes. GNU Emacs style key escapes can be used, as in the following example: @example "\C-u": universal-argument "\C-x\C-r": re-read-init-file "\e[11~": "Function Key 1" @end example In the above example, @key{C-u} is bound to the function @code{universal-argument} (just as it was in the first example), @key{C-x C-r} is bound to the function @code{re-read-init-file}, and @key{ESC [ 1 1 ~} is bound to insert the text @samp{Function Key 1}. @end table @end table @menu * Commands For Moving:: Moving about the line. * Commands For History:: Getting at previous lines. * Commands For Text:: Commands for changing text. * Commands For Killing:: Commands for killing and yanking. * Numeric Arguments:: Specifying numeric arguments, repeat counts. * Commands For Completion:: Getting Readline to do the typing for you. * Miscellaneous Commands:: Other miscillaneous commands. @end menu @need 2000 @node Commands For Moving @subsubsection Commands For Moving @ftable @code @item beginning-of-line (@key{C-a}) Move to the start of the current line. @item end-of-line (@key{C-e}) Move to the end of the line. @item forward-char (@key{C-f}) Move forward a character. @item backward-char (@key{C-b}) Move back a character. @item forward-word (@key{M-f}) Move forward to the end of the next word. @item backward-word (@key{M-b}) Move back to the start of this, or the previous, word. @item clear-screen (@key{C-l}) Clear the screen leaving the current line at the top of the screen. @end ftable @need 2000 @node Commands For History @subsubsection Commands For Manipulating The History @ftable @code @item accept-line (Newline, Return) Accept the line regardless of where the cursor is. If this line is non-empty, add it to the history list. If this line was a history line, then restore the history line to its original state. @item previous-history (@key{C-p}) Move `up' through the history list. @item next-history (@key{C-n}) Move `down' through the history list. @item beginning-of-history (@key{M-<}) Move to the first line in the history. @item end-of-history (@key{M->}) Move to the end of the input history, i.e., the line you are entering! @item reverse-search-history (@key{C-r}) Search backward starting at the current line and moving `up' through the history as necessary. This is an incremental search. @item forward-search-history (@key{C-s}) Search forward starting at the current line and moving `down' through the the history as necessary. @end ftable @need 2000 @node Commands For Text @subsubsection Commands For Changing Text @ftable @code @item delete-char (@key{C-d}) Delete the character under the cursor. If the cursor is at the beginning of the line, and there are no characters in the line, and the last character typed was not @key{C-d}, then return EOF. @item backward-delete-char (Rubout) Delete the character behind the cursor. A numeric arg says to kill the characters instead of deleting them. @item quoted-insert (@key{C-q}, @key{C-v}) Add the next character that you type to the line verbatim. This is how to insert things like @key{C-q} for example. @item tab-insert (@key{M-TAB}) Insert a tab character. @item self-insert (a, b, A, 1, !, ...) Insert yourself. @item transpose-chars (@key{C-t}) Drag the character before point forward over the character at point. Point moves forward as well. If point is at the end of the line, then transpose the two characters before point. Negative args don't work. @item transpose-words (@key{M-t}) Drag the word behind the cursor past the word in front of the cursor moving the cursor over that word as well. @item upcase-word (@key{M-u}) Uppercase all letters in the current (or following) word. With a negative argument, do the previous word, but do not move point. @item downcase-word (@key{M-l}) Lowercase all letters in the current (or following) word. With a negative argument, do the previous word, but do not move point. @item capitalize-word (@key{M-c}) Uppercase the first letter in the current (or following) word. With a negative argument, do the previous word, but do not move point. @end ftable @need 2000 @node Commands For Killing @subsubsection Killing And Yanking @ftable @code @item kill-line (@key{C-k}) Kill the text from the current cursor position to the end of the line. @item backward-kill-line () Kill backward to the beginning of the line. This is normally unbound. @item kill-word (@key{M-d}) Kill from the cursor to the end of the current word, or if between words, to the end of the next word. @item backward-kill-word (@key{M-DEL}) Kill the word behind the cursor. @item unix-line-discard (@key{C-u}) Do what @key{C-u} used to do in Unix line input. We save the killed text on the kill-ring, though. @item unix-word-rubout (@key{C-w}) Do what @key{C-w} used to do in Unix line input. The killed text is saved on the kill-ring. This is different than backward-kill-word because the word boundaries differ. @item yank (@key{C-y}) Yank the top of the kill ring into the buffer at point. @item yank-pop (@key{M-y}) Rotate the kill-ring, and yank the new top. You can only do this if the prior command is yank or yank-pop. @end ftable @need 2000 @node Numeric Arguments @subsubsection Specifying Numeric Arguments @ftable @code @item digit-argument (@key{M-0}, @key{M-1}, ... @key{M--}) Add this digit to the argument already accumulating, or start a new argument. @key{M--} starts a negative argument. @item universal-argument () Do what @key{C-u} does in emacs. By default, this is not bound. @end ftable @need 2000 @node Commands For Completion @subsubsection Letting Readline Type For You @ftable @code @item complete (TAB) Attempt to do completion on the text before point. This is implementation defined. Generally, if you are typing a filename argument, you can do filename completion; if you are typing a command, you can do command completion, if you are typing in a symbol to GDB, you can do symbol name completion, if you are typing in a variable to Bash, you can do variable name completion... @item possible-completions (M-?) List the possible completions of the text before point. @end ftable @need 2000 @node Miscellaneous Commands @subsubsection Some Miscellaneous Commands @ftable @code @item re-read-init-file (@key{C-x} @key{C-r}) Read in the contents of your @file{~/.inputrc} file, and incorporate any bindings found there. @item abort (@key{C-g}) Stop running the current editing command. @ignore @c I have no idea what this means, and can't figure it out by @c experiment, and can't find it in the readline source. @c pesch@cygnus.com, 20may1993. @item do-uppercase-version (@key{M-a}, @key{M-b}, ...) Run the command that is bound to your uppercase brother. @end ignore @item prefix-meta (ESC) Make the next character that you type be metafied. This is for people without a meta key. Typing @key{ESC f} is equivalent to typing @key{M-f}. @item undo (@key{C-_}) Incremental undo, separately remembered for each line. @item revert-line (@key{M-r}) Undo all changes made to this line. This is like typing the `undo' command enough times to get back to the beginning. @end ftable @need 2000 @node Readline Vi Mode @subsection Readline Vi Mode @cindex @code{vi} style command editing @kindex toggle-editing-mode While the Readline library does not have a full set of Vi editing functions, it does contain enough to allow simple editing of the line. In order to switch interactively between Emacs and Vi editing modes, use the command @key{M-C-j} (toggle-editing-mode). When you enter a line in Vi mode, you are already placed in `insertion' mode, as if you had typed an `i'. Pressing @key{ESC} switches you into `edit' mode, where you can edit the text of the line with the standard Vi movement keys, move to previous history lines with `k', and following lines with `j', and so forth. gdb-4.13/readline/examples/ 777 34562 1752 0 5623251211 14053 5ustar fnfcygnusgdb-4.13/readline/examples/Inputrc 666 34562 1752 2737 5112117074 15514 0ustar fnfcygnus# My ~/.inputrc file is in -*- text -*- for easy editing with Emacs. # # Notice the various bindings which are conditionalized depending # on which program is running, or what terminal is active. # # In all programs, all terminals, make sure this is bound. "\C-x\C-r": re-read-init-file # Hp terminals (and some others) have ugly default behaviour for C-h. "\C-h": backward-delete-char "\e\C-h": backward-kill-word "\C-xd": dump-functions # In xterm windows, make the arrow keys do the right thing. $if TERM=xterm "\e[A": previous-history "\e[B": next-history "\e[C": forward-char "\e[D": backward-char # Under Xterm in Bash, we bind local Function keys to do something useful. $if Bash "\e[11~": "Function Key 1" "\e[12~": "Function Key 2" "\e[13~": "Function Key 3" "\e[14~": "Function Key 4" "\e[15~": "Function Key 5" # I know the following escape sequence numbers are 1 greater than # the function key. Don't ask me why, I didn't design the xterm terminal. "\e[17~": "Function Key 6" "\e[18~": "Function Key 7" "\e[19~": "Function Key 8" "\e[20~": "Function Key 9" "\e[21~": "Function Key 10" $endif $endif # For Bash, all terminals, add some Bash specific hacks. $if Bash "\C-xv": show-bash-version "\C-x\C-e": shell-expand-line # Here is one for editing my path. "\C-xp": "$PATH\C-x\C-e\C-e\"\C-aPATH=\":\C-b" # Make C-x r read my mail in emacs. # "\C-xr": "emacs -f rmail\C-j" $endif # For FTP, different hacks: $if Ftp "\C-xg": "get \M-?" "\C-xt": "put \M-?" $endif " ": self-insert gdb-4.13/readline/examples/Makefile 666 34562 1752 370 5112117076 15556 0ustar fnfcygnus# This is the Makefile for the examples subdirectory of readline. -*- text -*- # EXECUTABLES = fileman CFLAGS = -g -I../.. LDFLAGS = -g -L.. fileman: fileman.o $(CC) $(LDFLAGS) -o fileman fileman.o -lreadline -ltermcap fileman.o: fileman.c gdb-4.13/readline/examples/configure.bat 666 34562 1752 464 5151313334 16571 0ustar fnfcygnus@echo off if "%1" == "go32" goto h8300 if "%1" == "h8/300" goto h8300 echo Specify one of [ go32 h8/300 ] on command line goto exit :go32 echo Configuring readline/examples for go32 copy Makefile.dos Makefile goto exit :h8300 echo Configuring readline/examples for H8/300 copy Makefile.dos Makefile :exit gdb-4.13/readline/examples/fileman.c 666 34562 1752 23272 5151277701 15750 0ustar fnfcygnus/* fileman.c -- A tiny application which demonstrates how to use the GNU Readline library. This application interactively allows users to manipulate files and their modes. */ #include #include #include #include #include #include #include /* The names of functions that actually do the manipulation. */ int com_list (), com_view (), com_rename (), com_stat (), com_pwd (); int com_delete (), com_help (), com_cd (), com_quit (); /* A structure which contains information on the commands this program can understand. */ typedef struct { char *name; /* User printable name of the function. */ Function *func; /* Function to call to do the job. */ char *doc; /* Documentation for this function. */ } COMMAND; COMMAND commands[] = { { "cd", com_cd, "Change to directory DIR" }, { "delete", com_delete, "Delete FILE" }, { "help", com_help, "Display this text" }, { "?", com_help, "Synonym for `help'" }, { "list", com_list, "List files in DIR" }, { "ls", com_list, "Synonym for `list'" }, { "pwd", com_pwd, "Print the current working directory" }, { "quit", com_quit, "Quit using Fileman" }, { "rename", com_rename, "Rename FILE to NEWNAME" }, { "stat", com_stat, "Print out statistics on FILE" }, { "view", com_view, "View the contents of FILE" }, { (char *)NULL, (Function *)NULL, (char *)NULL } }; /* The name of this program, as taken from argv[0]. */ char *progname; /* When non-zero, this global means the user is done using this program. */ int done = 0; main (argc, argv) int argc; char **argv; { progname = argv[0]; initialize_readline (); /* Bind our completer. */ /* Loop reading and executing lines until the user quits. */ while (!done) { char *line; line = readline ("FileMan: "); if (!line) { done = 1; /* Encountered EOF at top level. */ } else { /* Remove leading and trailing whitespace from the line. Then, if there is anything left, add it to the history list and execute it. */ stripwhite (line); if (*line) { add_history (line); execute_line (line); } } if (line) free (line); } exit (0); } /* Execute a command line. */ execute_line (line) char *line; { register int i; COMMAND *find_command (), *command; char *word; /* Isolate the command word. */ i = 0; while (line[i] && !whitespace (line[i])) i++; word = line; if (line[i]) line[i++] = '\0'; command = find_command (word); if (!command) { fprintf (stderr, "%s: No such command for FileMan.\n", word); return; } /* Get argument to command, if any. */ while (whitespace (line[i])) i++; word = line + i; /* Call the function. */ (*(command->func)) (word); } /* Look up NAME as the name of a command, and return a pointer to that command. Return a NULL pointer if NAME isn't a command name. */ COMMAND * find_command (name) char *name; { register int i; for (i = 0; commands[i].name; i++) if (strcmp (name, commands[i].name) == 0) return (&commands[i]); return ((COMMAND *)NULL); } /* Strip whitespace from the start and end of STRING. */ stripwhite (string) char *string; { register int i = 0; while (whitespace (string[i])) i++; if (i) strcpy (string, string + i); i = strlen (string) - 1; while (i > 0 && whitespace (string[i])) i--; string[++i] = '\0'; } /* **************************************************************** */ /* */ /* Interface to Readline Completion */ /* */ /* **************************************************************** */ /* Tell the GNU Readline library how to complete. We want to try to complete on command names if this is the first word in the line, or on filenames if not. */ initialize_readline () { char **fileman_completion (); /* Allow conditional parsing of the ~/.inputrc file. */ rl_readline_name = "FileMan"; /* Tell the completer that we want a crack first. */ rl_attempted_completion_function = (Function *)fileman_completion; } /* Attempt to complete on the contents of TEXT. START and END show the region of TEXT that contains the word to complete. We can use the entire line in case we want to do some simple parsing. Return the array of matches, or NULL if there aren't any. */ char ** fileman_completion (text, start, end) char *text; int start, end; { char **matches; char *command_generator (); matches = (char **)NULL; /* If this word is at the start of the line, then it is a command to complete. Otherwise it is the name of a file in the current directory. */ if (start == 0) matches = completion_matches (text, command_generator); return (matches); } /* Generator function for command completion. STATE lets us know whether to start from scratch; without any state (i.e. STATE == 0), then we start at the top of the list. */ char * command_generator (text, state) char *text; int state; { static int list_index, len; char *name; /* If this is a new word to complete, initialize now. This includes saving the length of TEXT for efficiency, and initializing the index variable to 0. */ if (!state) { list_index = 0; len = strlen (text); } /* Return the next name which partially matches from the command list. */ while (name = commands[list_index].name) { list_index++; if (strncmp (name, text, len) == 0) return (name); } /* If no names matched, then return NULL. */ return ((char *)NULL); } /* **************************************************************** */ /* */ /* FileMan Commands */ /* */ /* **************************************************************** */ /* String to pass to system (). This is for the LIST, VIEW and RENAME commands. */ static char syscom[1024]; /* List the file(s) named in arg. */ com_list (arg) char *arg; { if (!arg) arg = "*"; #ifdef __GO32__ sprintf (syscom, "ls -lp %s", arg); #else sprintf (syscom, "ls -FClg %s", arg); #endif system (syscom); } com_view (arg) char *arg; { if (!valid_argument ("view", arg)) return; sprintf (syscom, "cat %s | more", arg); system (syscom); } com_rename (arg) char *arg; { too_dangerous ("rename"); } com_stat (arg) char *arg; { struct stat finfo; if (!valid_argument ("stat", arg)) return; if (stat (arg, &finfo) == -1) { perror (arg); return; } printf ("Statistics for `%s':\n", arg); printf ("%s has %d link%s, and is %d bytes in length.\n", arg, finfo.st_nlink, (finfo.st_nlink == 1) ? "" : "s", finfo.st_size); printf (" Created on: %s", ctime (&finfo.st_ctime)); printf (" Last access at: %s", ctime (&finfo.st_atime)); printf ("Last modified at: %s", ctime (&finfo.st_mtime)); } com_delete (arg) char *arg; { too_dangerous ("delete"); } /* Print out help for ARG, or for all of the commands if ARG is not present. */ com_help (arg) char *arg; { register int i; int printed = 0; for (i = 0; commands[i].name; i++) { if (!*arg || (strcmp (arg, commands[i].name) == 0)) { printf ("%s\t\t%s.\n", commands[i].name, commands[i].doc); printed++; } } if (!printed) { printf ("No commands match `%s'. Possibilties are:\n", arg); for (i = 0; commands[i].name; i++) { /* Print in six columns. */ if (printed == 6) { printed = 0; printf ("\n"); } printf ("%s\t", commands[i].name); printed++; } if (printed) printf ("\n"); } } /* Change to the directory ARG. */ com_cd (arg) char *arg; { if (chdir (arg) == -1) perror (arg); com_pwd (""); } /* Print out the current working directory. */ com_pwd (ignore) char *ignore; { char dir[1024]; (void) getwd (dir); printf ("Current directory is %s\n", dir); } /* The user wishes to quit using this program. Just set DONE non-zero. */ com_quit (arg) char *arg; { done = 1; } /* Function which tells you that you can't do this. */ too_dangerous (caller) char *caller; { fprintf (stderr, "%s: Too dangerous for me to distribute. Write it yourself.\n", caller); } /* Return non-zero if ARG is a valid argument for CALLER, else print an error message and return zero. */ int valid_argument (caller, arg) char *caller, *arg; { if (!arg || !*arg) { fprintf (stderr, "%s: Argument required.\n", caller); return (0); } return (1); } /* * Local variables: * compile-command: "cc -g -I../.. -L.. -o fileman fileman.c -lreadline -ltermcap" * end: */ #ifdef __GO32__ /* **************************************************************** */ /* */ /* xmalloc and xrealloc () */ /* */ /* **************************************************************** */ static void memory_error_and_abort (); char * xmalloc (bytes) int bytes; { char *temp = (char *)malloc (bytes); if (!temp) memory_error_and_abort (); return (temp); } char * xrealloc (pointer, bytes) char *pointer; int bytes; { char *temp; if (!pointer) temp = (char *)xmalloc (bytes); else temp = (char *)realloc (pointer, bytes); if (!temp) memory_error_and_abort (); return (temp); } static void memory_error_and_abort () { fprintf (stderr, "xmalloc: Out of virtual memory!\n"); abort (); } #endif gdb-4.13/readline/examples/manexamp.c 666 34562 1752 4641 5112117101 16102 0ustar fnfcygnus/* manexamp.c -- The examples which appear in the documentation are here. */ #include #include /* **************************************************************** */ /* */ * How to Emulate gets () */ /* */ /* **************************************************************** */ /* A static variable for holding the line. */ static char *line_read = (char *)NULL; /* Read a string, and return a pointer to it. Returns NULL on EOF. */ char * do_gets () { /* If the buffer has already been allocated, return the memory to the free pool. */ if (line_read != (char *)NULL) { free (line_read); line_read = (char *)NULL; } /* Get a line from the user. */ line_read = readline (""); /* If the line has any text in it, save it on the history. */ if (line_read && *line_read) add_history (line_read); return (line_read); } /* **************************************************************** */ /* */ /* Writing a Function to be Called by Readline. */ /* */ /* **************************************************************** */ /* Invert the case of the COUNT following characters. */ invert_case_line (count, key) int count, key; { register int start, end; start = rl_point; if (count < 0) { direction = -1; count = -count; } else direction = 1; /* Find the end of the range to modify. */ end = start + (count * direction); /* Force it to be within range. */ if (end > rl_end) end = rl_end; else if (end < 0) end = -1; if (start > end) { int temp = start; start = end; end = temp; } if (start == end) return; /* Tell readline that we are modifying the line, so save the undo information. */ rl_modifying (start, end); for (; start != end; start += direction) { if (uppercase_p (rl_line_buffer[start])) rl_line_buffer[start] = to_lower (rl_line_buffer[start]); else if (lowercase_p (rl_line_buffer[start])) rl_line_buffer[start] = to_upper (rl_line_buffer[start]); } /* Move point to on top of the last character changed. */ rl_point = end - direction; } gdb-4.13/sim/ 777 34562 1752 0 5623251752 11254 5ustar fnfcygnusgdb-4.13/sim/h8300/ 777 34562 1752 0 5623251225 12011 5ustar fnfcygnusgdb-4.13/sim/h8300/ChangeLog 666 34562 1752 11024 5566500247 13670 0ustar fnfcygnusWed May 18 13:47:58 1994 Doug Evans (dje@canuck.cygnus.com) * compile.c: #include "bfd.h". (sim_*): Set result type to void where there isn't one. (sim_resume, default case): Set cpu.exception to SIGILL. (sim_trace): Delete. (sim_set_pc): Delete. (sim_info): Delete printf_fn arg, all callers changed. Call printf_filtered. (set_h8300h): New arg `flag', all callers changed. (sim_close): New function. (sim_load): New function. (sim_create_inferior): Renamed from sim_set_args, all callers changed. * run.c: #include , "remote-sim.h". (printf_filtered): New function. Fri May 13 18:32:27 1994 Doug Evans (dje@canuck.cygnus.com) * compile.c (decode): Fix typo (16 bit branches). (*): Some white space clean up. Fri May 6 13:44:01 1994 Steve Chamberlain (sac@jonny.cygnus.com) * compile.c (decode): Compile 16bit branches properly. Sat Dec 11 16:32:36 1993 Steve Chamberlain (sac@thepub.cygnus.com) * compile.c: Tidy up formatting. (sim_resume): Add orc, xorc, andc. Poll for interrupts. Thu Oct 28 19:29:34 1993 Doug Evans (dje@canuck.cygnus.com) * compile.c: #include "ansidecl.h" for remote-sim.h. Tue Oct 26 09:43:36 1993 Doug Evans (dje@canuck.cygnus.com) * Makefile.in (CSEARCH): Add -I$(srcdir)/../../gdb * compile.c: #include "remote-sim.h". (sim_resume): New arg siggnal. (sim_write): Use SIM_ADDR for type of arg addr. Always return a value. (sim_read): Ditto. (sim_store_register): Result is type int. (sim_fetch_register): Ditto. (sim_stop_reason): Renamed from sim_stop_signal. (sim_set_pc): Use SIM_ADDR for type of arg pc. (sim_info): int result, new arg printf_fn. (sim_kill): int result. (sim_open): int result, new arg name. * run.c (main): Use sim_set_pc to set pc. Update call to sim_info. Sat Oct 23 15:01:18 1993 Doug Evans (dje@canuck.cygnus.com) * compile.c (sim_stop_signal): Result is now enum sim_stop. Fri Oct 15 23:49:27 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * compile.c (sim_kill, sim_open, sim_set_args): New functions. Thu Oct 7 16:24:10 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * compile.c (sim_set_pc): Write to the pc direcly. (sim_store_register): Now value is passed by reference. (sim_read, sim_write): Return number of bytes copied. Tue Aug 17 07:16:15 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * compile.c (mop): New function to do multiplies. Fri Jul 16 13:53:53 1993 Doug Evans (dje@canuck.cygnus.com) * compile.c (sim_resume): Add support for nop insn. Thu Jul 15 09:59:01 1993 Doug Evans (dje@canuck.cygnus.com) * compile.c: Reset HMODE back to zero (accidently set it to 1). * run.c (main): If h8/300h binary detected, call set_h8300h. * compile.c (sim_resume): Fix O_NEG insn. Fri Jul 9 14:36:48 1993 Doug Evans (dje@canuck.cygnus.com) * run.c (main): Add -h flag to enable h8/300h emulation. * compile.c: Rename Hmode to HMODE (consistency with gdb). (set_h8300h): New function. (sim_resume): Add support for extu,exts insns. (sim_resume): Fix logical right shifting. (sim_resume, label alu32): Fix setting of carry flag. Sun Jul 4 00:35:41 1993 Doug Evans (dje@canuck.cygnus.com) * compile.c (sim_csize): Initialize cpu.cache. Fri Jul 2 17:42:59 1993 Doug Evans (dje@canuck.cygnus.com) * Makefile.in: Add -I../../bfd to pick up bfd.h. Thu Jun 24 13:40:12 1993 Doug Evans (dje@canuck.cygnus.com) * run.c (main): Fix parsing of args. * compile.c (sim_resume): Fix shll insn. Tue Jun 8 14:16:46 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * compile.c: New file, supports H8/300H. * p1,p3, gencode.c, state.h, writecode.c All dead and obsolete. Tue Jun 1 11:14:59 1993 Steve Chamberlain (sac@thepub.cygnus.com) * run.c (main): Add -v to print info. * p3.c (sim_info): New function. Mon Mar 15 15:48:31 1993 Ian Lance Taylor (ian@cygnus.com) * h8300.mt (DO_INSTALL): Renamed from INSTALL. Wed Mar 3 15:06:53 1993 Steve Chamberlain (sac@poseidon.cygnus.com) * Makefile.in: Don't use cb or indent * p1.c, state.h, writecode.c: lint Mon Feb 1 16:44:58 1993 John Gilmore (gnu@cygnus.com) * Makefile.in: Make SunOS halfdone VPATH work. * p1.c: Lint picked up by HP native compiler. Mon Jan 4 12:32:35 1993 Steve Chamberlain (sac@wahini.cygnus.com) * p1.c (sim_resume): when running on dos, any character typed to the keyboard will cause a simulated exception. Sun Jan 3 14:15:07 1993 Steve Chamberlain (sac@thepub.cygnus.com) * p1.c, p3.c, run.c, writecode.c: all used h8/300 opcodes in and running Tue Dec 22 13:56:48 1992 Steve Chamberlain (sac@thepub.cygnus.com) * new gdb-4.13/sim/h8300/Makefile.in 666 34562 1752 10300 5463253707 14161 0ustar fnfcygnus# Makefile template for Configure for the h8300sim library. # Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. # Written by Cygnus Support. # # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. srcdir = . srcroot = $(srcdir)/../../ prefix = /usr/local program_transform_name = exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib tooldir = $(libdir)/$(target_alias) datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include oldincludedir = docdir = $(srcdir)/doc SHELL = /bin/sh INSTALL = $${srcroot}/install.sh -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) INSTALL_XFORM = $(INSTALL) -t='$(program_transform_name)' INSTALL_XFORM1= $(INSTALL_XFORM) -b=.1 AR = ar AR_FLAGS = qc CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib INCDIR = $(srcdir)/../../include CSEARCH = -I. -I$(srcdir) -I$(INCDIR) -I../../bfd -I$(srcdir)/../../bfd -I$(srcdir)/../../gdb DEP = mkdep #### host, target, and site specific Makefile frags come in here. all: run run: compile.o run.o $(CC) -o run compile.o run.o ../../bfd/libbfd.a ../../libiberty/libiberty.a compile.o:compile.c run.o:run.c #### host and target dependent Makefile fragments come in here. ### FLAGS_TO_PASS = \ "against=$(against)" \ "AR=$(AR)" \ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CFLAGS=$(CFLAGS)" \ "RANLIB=$(RANLIB)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "BISON=$(BISON)" .c.o: $(CC) -c $(CFLAGS) $(HDEFINES) $(TDEFINES) $(CSEARCH) $(CSWITCHES) $< .NOEXPORT: check: info: clean-info: install-info: # HDEPFILES comes from the host config; TDEPFILES from the target config. tags etags: TAGS TAGS: force etags $(INCDIR)/*.h $(srcdir)/*.h $(srcdir)/*.c clean: rm -f *.[oa] *~ core *.E *.p *.ip aout-params.h gen-aout clobber realclean: clean rm -f libbfd.a TAGS # Mark everything as depending on config.status, since the timestamp on # sysdep.h might actually move backwards if we reconfig and relink it # to a different hosts/h-xxx.h file. This will force a recompile anyway. RECONFIG = config.status # This target should be invoked before building a new release. # 'VERSION' file must be present and contain a string of the form "x.y" # roll: @V=`cat VERSION` ; \ MAJ=`sed 's/\..*//' VERSION` ; \ MIN=`sed 's/.*\.//' VERSION` ; \ V=$$MAJ.`expr $$MIN + 1` ; \ rm -f VERSION ; \ echo $$V >VERSION ; \ echo Version $$V # Dummy target to force execution of dependent targets. # force: # Copy the files into directories where they will be run. install: srcroot=`cd $(srcroot); pwd`; export srcroot; \ $(INSTALL_XFORM) run $(bindir)/run ; \ n=`t='$(program_transform_name)'; echo run | sed -e "" $$t`; \ if [ -d $(tooldir) ] ; then \ if [ -d $(tooldir)/bin ] ; then true ; else mkdir $(tooldir)/bin ; fi; \ rm -f $(tooldir)/bin/run; \ ln $(bindir)/$$n $(tooldir)/bin/run \ || $(INSTALL_PROGRAM) run $(tooldir)/bin/run; \ else true; fi Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status dep: $(CFILES) mkdep $(CFLAGS) $? # What appears below is generated by a hacked mkdep using gcc -MM. # DO NOT DELETE THIS LINE -- mkdep uses it. # DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. # IF YOU PUT ANYTHING HERE IT WILL GO AWAY gdb-4.13/sim/h8300/compile.c 666 34562 1752 101576 5566500254 13744 0ustar fnfcygnus/* * Simulator for the Hitachi H8/300 architecture. * * Written by Steve Chamberlain of Cygnus Support. sac@cygnus.com * * This file is part of H8/300 sim * * * THIS SOFTWARE IS NOT COPYRIGHTED * * Cygnus offers the following for use in the public domain. Cygnus makes no * warranty with regard to the software or its performance and the user * accepts the software "AS IS" with all faults. * * CYGNUS DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS * SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY * AND FITNESS FOR A PARTICULAR PURPOSE. */ #include #include #include #include "ansidecl.h" #include "sysdep.h" #include "remote-sim.h" #include "bfd.h" int debug; #define X(op, size) op*4+size #define SP (h8300hmode ? SL:SW) #define SB 0 #define SW 1 #define SL 2 #define OP_REG 1 #define OP_DEC 2 #define OP_DISP 3 #define OP_INC 4 #define OP_PCREL 5 #define OP_MEM 6 #define OP_CCR 7 #define OP_IMM 8 #define OP_ABS 10 #define h8_opcodes ops #define DEFINE_TABLE #include "opcode/h8300.h" #include "inst.h" #define LOW_BYTE(x) ((x) & 0xff) #define HIGH_BYTE(x) (((x)>>8) & 0xff) #define P(X,Y) ((X<<8) | Y) #define BUILDSR() cpu.ccr = (N << 3) | (Z << 2) | (V<<1) | C; #define GETSR() \ c = (cpu.ccr >> 0) & 1;\ v = (cpu.ccr >> 1) & 1;\ nz = !((cpu.ccr >> 2) & 1);\ n = (cpu.ccr >> 3) & 1; #ifdef __CHAR_IS_SIGNED__ #define SEXTCHAR(x) ((char)(x)) #endif #ifndef SEXTCHAR #define SEXTCHAR(x) ((x & 0x80) ? (x | ~0xff):x) #endif #define UEXTCHAR(x) ((x) & 0xff) #define UEXTSHORT(x) ((x) & 0xffff) #define SEXTSHORT(x) ((short)(x)) static cpu_state_type cpu; int h8300hmode = 0; static int get_now () { struct tms b; return time (0); #if 0 times (&b); return b.tms_utime + b.tms_stime; #endif } static int now_persec () { return 1; } static int bitfrom (x) { switch (x & SIZE) { case L_8: return SB; case L_16: return SW; case L_32: return SL; case L_P: return h8300hmode ? SL : SW; } } static unsigned int lvalue (x, rn) { switch (x / 4) { case OP_DISP: if (rn == 8) { return X (OP_IMM, SP); } return X (OP_REG, SP); case OP_MEM: return X (OP_MEM, SP); default: abort (); } } static unsigned int decode (addr, data, dst) int addr; unsigned char *data; decoded_inst *dst; { int rs = 0; int rd = 0; int rdisp = 0; int abs = 0; int plen = 0; struct h8_opcode *q = h8_opcodes; int size = 0; dst->dst.type = -1; dst->src.type = -1; /* Find the exact opcode/arg combo */ while (q->name) { op_type *nib; unsigned int len = 0; nib = q->data.nib; while (1) { op_type looking_for = *nib; int thisnib = data[len >> 1]; thisnib = (len & 1) ? (thisnib & 0xf) : ((thisnib >> 4) & 0xf); if (looking_for < 16 && looking_for >= 0) { if (looking_for != thisnib) goto fail; } else { if ((int) looking_for & (int) B31) { if (!(((int) thisnib & 0x8) != 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B31); thisnib &= 0x7; } if ((int) looking_for & (int) B30) { if (!(((int) thisnib & 0x8) == 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B30); } if (looking_for & DBIT) { if ((looking_for & 5) != (thisnib & 5)) goto fail; abs = (thisnib & 0x8) ? 2 : 1; } else if (looking_for & (REG | IND | INC | DEC)) { if (looking_for & REG) { /* * Can work out size from the * register */ size = bitfrom (looking_for); } if (looking_for & SRC) { rs = thisnib; } else { rd = thisnib; } } else if (looking_for & L_16) { abs = (data[len >> 1]) * 256 + data[(len + 2) >> 1]; plen = 16; if (looking_for & (PCREL | DISP)) { abs = (short) (abs); } } else if (looking_for & ABSJMP) { abs = (data[1] << 16) | (data[2] << 8) | (data[3]); } else if (looking_for & MEMIND) { abs = data[1]; } else if (looking_for & L_32) { int i = len >> 1; abs = (data[i] << 24) | (data[i + 1] << 16) | (data[i + 2] << 8) | (data[i + 3]); plen = 32; } else if (looking_for & L_24) { int i = len >> 1; abs = (data[i] << 16) | (data[i + 1] << 8) | (data[i + 2]); plen = 24; } else if (looking_for & IGNORE) { /* nothing to do */ } else if (looking_for & DISPREG) { rdisp = thisnib & 0x7; } else if (looking_for & KBIT) { switch (thisnib) { case 9: abs = 4; break; case 8: abs = 2; break; case 0: abs = 1; break; } } else if (looking_for & L_8) { plen = 8; if (looking_for & PCREL) { abs = SEXTCHAR (data[len >> 1]); } else { abs = data[len >> 1] & 0xff; } } else if (looking_for & L_3) { plen = 3; abs = thisnib; } else if (looking_for == E) { dst->op = q; /* Fill in the args */ { op_type *args = q->args.nib; int hadone = 0; while (*args != E) { int x = *args; int rn = (x & DST) ? rd : rs; ea_type *p; if (x & DST) { p = &(dst->dst); } else { p = &(dst->src); } if (x & (IMM | KBIT | DBIT)) { p->type = X (OP_IMM, size); p->literal = abs; } else if (x & REG) { /* Reset the size, some ops (like mul) have two sizes */ size = bitfrom (x); p->type = X (OP_REG, size); p->reg = rn; } else if (x & INC) { p->type = X (OP_INC, size); p->reg = rn & 0x7; } else if (x & DEC) { p->type = X (OP_DEC, size); p->reg = rn & 0x7; } else if (x & IND) { p->type = X (OP_DISP, size); p->reg = rn & 0x7; p->literal = 0; } else if (x & (ABS | ABSJMP | ABSMOV)) { p->type = X (OP_DISP, size); p->literal = abs; p->reg = 8; } else if (x & MEMIND) { p->type = X (OP_MEM, size); p->literal = abs; } else if (x & PCREL) { p->type = X (OP_PCREL, size); p->literal = abs + addr + 2; if (x & L_16) p->literal += 2; } else if (x & ABSJMP) { p->type = X (OP_IMM, SP); p->literal = abs; } else if (x & DISP) { p->type = X (OP_DISP, size); p->literal = abs; p->reg = rdisp & 0x7; } else if (x & CCR) { p->type = OP_CCR; } else printf ("Hmmmm %x", x); args++; } } /* * But a jmp or a jsr gets * automagically lvalued, since we * branch to their address not their * contents */ if (q->how == O (O_JSR, SB) || q->how == O (O_JMP, SB)) { dst->src.type = lvalue (dst->src.type, dst->src.reg); } if (dst->dst.type == -1) dst->dst = dst->src; dst->opcode = q->how; dst->cycles = q->time; /* And a jsr to 0xc4 is turned into a magic trap */ if (dst->opcode == O (O_JSR, SB)) { if (dst->src.literal == 0xc4) { dst->opcode = O (O_SYSCALL, SB); } } dst->next_pc = addr + len / 2; return; } else { printf ("Dont understand %x \n", looking_for); } } len++; nib++; } fail: q++; } dst->opcode = O (O_ILL, SB); } static void compile (pc) { int idx; /* find the next cache entry to use */ idx = cpu.cache_top + 1; cpu.compiles++; if (idx >= cpu.csize) { idx = 1; } cpu.cache_top = idx; /* Throw away its old meaning */ cpu.cache_idx[cpu.cache[idx].oldpc] = 0; /* set to new address */ cpu.cache[idx].oldpc = pc; /* fill in instruction info */ decode (pc, cpu.memory + pc, cpu.cache + idx); /* point to new cache entry */ cpu.cache_idx[pc] = idx; } static unsigned char *breg[18]; static unsigned short *wreg[18]; static unsigned int *lreg[18]; #define GET_B_REG(x) *(breg[x]) #define SET_B_REG(x,y) (*(breg[x])) = (y) #define GET_W_REG(x) *(wreg[x]) #define SET_W_REG(x,y) (*(wreg[x])) = (y) #define GET_L_REG(x) *(lreg[x]) #define SET_L_REG(x,y) (*(lreg[x])) = (y) #define GET_MEMORY_L(x) \ ((cpu.memory[x+0] << 24) | (cpu.memory[x+1] << 16) | (cpu.memory[x+2] << 8) | cpu.memory[x+3]) #define GET_MEMORY_W(x) \ ((cpu.memory[x+0] << 8) | (cpu.memory[x+1] << 0)) #define SET_MEMORY_B(x,y) \ (cpu.memory[(x)] = y) #define SET_MEMORY_W(x,y) \ {register unsigned char *_p = cpu.memory+x;\ register int __y = y;\ _p[0] = (__y)>>8;\ _p[1] =(__y); } #define SET_MEMORY_L(x,y) \ {register unsigned char *_p = cpu.memory+x;register int __y = y;\ _p[0] = (__y)>>24; _p[1] = (__y)>>16; _p[2] = (__y)>>8; _p[3] = (__y)>>0;} #define GET_MEMORY_B(x) (cpu.memory[x]) int fetch (arg, n) ea_type *arg; { int rn = arg->reg; int abs = arg->literal; int r; int t; switch (arg->type) { case X (OP_REG, SB): return GET_B_REG (rn); case X (OP_REG, SW): return GET_W_REG (rn); case X (OP_REG, SL): return GET_L_REG (rn); case X (OP_IMM, SB): case X (OP_IMM, SW): case X (OP_IMM, SL): return abs; case X (OP_DEC, SB): abort (); case X (OP_INC, SB): t = GET_L_REG (rn); t &= cpu.mask; r = GET_MEMORY_B (t); t++; t = t & cpu.mask; SET_L_REG (rn, t); return r; break; case X (OP_INC, SW): t = GET_L_REG (rn); t &= cpu.mask; r = GET_MEMORY_W (t); t += 2; t = t & cpu.mask; SET_L_REG (rn, t); return r; case X (OP_INC, SL): t = GET_L_REG (rn); t &= cpu.mask; r = GET_MEMORY_L (t); t += 4; t = t & cpu.mask; SET_L_REG (rn, t); return r; case X (OP_DISP, SB): t = GET_L_REG (rn) + abs; t &= cpu.mask; return GET_MEMORY_B (t); case X (OP_DISP, SW): t = GET_L_REG (rn) + abs; t &= cpu.mask; return GET_MEMORY_W (t); case X (OP_DISP, SL): t = GET_L_REG (rn) + abs; t &= cpu.mask; return GET_MEMORY_L (t); case X (OP_MEM, SL): t = GET_MEMORY_L (abs); t &= cpu.mask; return t; default: abort (); } } static void store (arg, n) ea_type *arg; int n; { int rn = arg->reg; int abs = arg->literal; int t; switch (arg->type) { case X (OP_REG, SB): SET_B_REG (rn, n); break; case X (OP_REG, SW): SET_W_REG (rn, n); break; case X (OP_REG, SL): SET_L_REG (rn, n); break; case X (OP_DEC, SB): t = GET_L_REG (rn) - 1; t &= cpu.mask; SET_L_REG (rn, t); SET_MEMORY_B (t, n); break; case X (OP_DEC, SW): t = (GET_L_REG (rn) - 2) & cpu.mask; SET_L_REG (rn, t); SET_MEMORY_W (t, n); break; case X (OP_DEC, SL): t = (GET_L_REG (rn) - 4) & cpu.mask; SET_L_REG (rn, t); SET_MEMORY_L (t, n); break; case X (OP_DISP, SB): t = GET_L_REG (rn) + abs; t &= cpu.mask; SET_MEMORY_B (t, n); break; case X (OP_DISP, SW): t = GET_L_REG (rn) + abs; t &= cpu.mask; SET_MEMORY_W (t, n); break; case X (OP_DISP, SL): t = GET_L_REG (rn) + abs; t &= cpu.mask; SET_MEMORY_L (t, n); break; default: abort (); } } static union { short int i; struct { char low; char high; } u; } littleendian; static void init_pointers () { static int init; if (!init) { int i; init = 1; littleendian.i = 1; cpu.memory = (unsigned char *) calloc (sizeof (char), MSIZE); cpu.cache_idx = (unsigned short *) calloc (sizeof (short), MSIZE); cpu.mask = (1 << MPOWER) - 1; for (i = 0; i < 9; i++) { cpu.regs[i] = 0; } for (i = 0; i < 8; i++) { unsigned char *p = (unsigned char *) (cpu.regs + i); unsigned char *e = (unsigned char *) (cpu.regs + i + 1); unsigned short *q = (unsigned short *) (cpu.regs + i); unsigned short *u = (unsigned short *) (cpu.regs + i + 1); cpu.regs[i] = 0x00112233; while (p < e) { if (*p == 0x22) { breg[i] = p; } if (*p == 0x33) { breg[i + 8] = p; } p++; } while (q < u) { if (*q == 0x2233) { wreg[i] = q; } if (*q == 0x0011) { wreg[i + 8] = q; } q++; } cpu.regs[i] = 0; lreg[i] = &cpu.regs[i]; } lreg[8] = &cpu.regs[8]; /* initialize the seg registers */ if (!cpu.cache) sim_csize (CSIZE); } } static void control_c (sig, code, scp, addr) int sig; int code; char *scp; char *addr; { cpu.exception = SIGINT; } #define C (c != 0) #define Z (nz == 0) #define V (v != 0) #define N (n != 0) static int mop (code, bsize, sign) decoded_inst *code; int bsize; int sign; { int multiplier; int multiplicand; int result; int n, nz; if (sign) { multiplicand = bsize ? SEXTCHAR (GET_W_REG (code->dst.reg)) : SEXTSHORT (GET_W_REG (code->dst.reg)); multiplier = bsize ? SEXTCHAR (GET_B_REG (code->src.reg)) : SEXTSHORT (GET_W_REG (code->src.reg)); } else { multiplicand = bsize ? UEXTCHAR (GET_W_REG (code->dst.reg)) : UEXTSHORT (GET_W_REG (code->dst.reg)); multiplier = bsize ? UEXTCHAR (GET_B_REG (code->src.reg)) : UEXTSHORT (GET_W_REG (code->src.reg)); } result = multiplier * multiplicand; if (sign) { n = result & (bsize ? 0x8000 : 0x80000000); nz = result & (bsize ? 0xffff : 0xffffffff); } if (bsize) { SET_W_REG (code->dst.reg, result); } else { SET_L_REG (code->dst.reg, result); } /* return ((n==1) << 1) | (nz==1); */ } #define OSHIFTS(name, how) \ case O(name, SB): \ { \ int t; \ int hm = 0x80; \ rd = GET_B_REG (code->src.reg); \ how; \ goto shift8; \ } \ case O(name, SW): \ { \ int t; \ int hm = 0x8000; \ rd = GET_W_REG (code->src.reg); \ how; \ goto shift16; \ } \ case O(name, SL): \ { \ int t; \ int hm = 0x80000000; \ rd = GET_L_REG (code->src.reg); \ how; \ goto shift32; \ } #define OBITOP(name,f, s, op) \ case O(name, SB): \ { \ int m; \ int b; \ if (f) ea = fetch (&code->dst); \ m=1<< fetch(&code->src); \ op; \ if(s) store (&code->dst,ea); goto next; \ } void sim_resume (step, siggnal) { static int init1; int cycles = 0; int insts = 0; int tick_start = get_now (); void (*prev) (); int poll_count = 0; int res; int tmp; int rd; int ea; int bit; int pc; int c, nz, v, n; init_pointers (); prev = signal (SIGINT, control_c); if (step) { cpu.exception = SIGTRAP; } else { cpu.exception = 0; } pc = cpu.pc; GETSR (); do { int cidx; decoded_inst *code; top: cidx = cpu.cache_idx[pc]; code = cpu.cache + cidx; #define ALUOP(STORE, NAME, HOW) \ case O(NAME,SB): HOW; if(STORE)goto alu8;else goto just_flags_alu8; \ case O(NAME, SW): HOW; if(STORE)goto alu16;else goto just_flags_alu16; \ case O(NAME,SL): HOW; if(STORE)goto alu32;else goto just_flags_alu32; #define LOGOP(NAME, HOW) \ case O(NAME,SB): HOW; goto log8;\ case O(NAME, SW): HOW; goto log16;\ case O(NAME,SL): HOW; goto log32; #if ADEBUG if (debug) { printf ("%x %d %s\n", pc, code->opcode, code->op ? code->op->name : "**"); } cpu.stats[code->opcode]++; #endif cycles += code->cycles; insts++; switch (code->opcode) { case 0: /* * This opcode is a fake for when we get to an * instruction which hasnt been compiled */ compile (pc); goto top; break; case O (O_SUBX, SB): rd = fetch (&code->dst); ea = fetch (&code->src); ea = -(ea + C); res = rd + ea; goto alu8; case O (O_ADDX, SB): rd = fetch (&code->dst); ea = fetch (&code->src); ea = C + ea; res = rd + ea; goto alu8; #define EA ea = fetch(&code->src); #define RD_EA ea = fetch(&code->src); rd = fetch(&code->dst); ALUOP (1, O_SUB, RD_EA; ea = -ea; res = rd + ea); ALUOP (1, O_NEG, EA; ea = -ea; rd = 0; res = rd + ea); case O (O_ADD, SB): rd = GET_B_REG (code->dst.reg); ea = fetch (&code->src); res = rd + ea; goto alu8; case O (O_ADD, SW): rd = GET_W_REG (code->dst.reg); ea = fetch (&code->src); res = rd + ea; goto alu16; case O (O_ADD, SL): rd = GET_L_REG (code->dst.reg); ea = fetch (&code->src); res = rd + ea; goto alu32; LOGOP (O_AND, RD_EA; res = rd & ea); LOGOP (O_OR, RD_EA; res = rd | ea); LOGOP (O_XOR, RD_EA; res = rd ^ ea); case O (O_MOV_TO_MEM, SB): res = GET_B_REG (code->src.reg); goto log8; case O (O_MOV_TO_MEM, SW): res = GET_W_REG (code->src.reg); goto log16; case O (O_MOV_TO_MEM, SL): res = GET_L_REG (code->src.reg); goto log32; case O (O_MOV_TO_REG, SB): res = fetch (&code->src); SET_B_REG (code->dst.reg, res); goto just_flags_log8; case O (O_MOV_TO_REG, SW): res = fetch (&code->src); SET_W_REG (code->dst.reg, res); goto just_flags_log16; case O (O_MOV_TO_REG, SL): res = fetch (&code->src); SET_L_REG (code->dst.reg, res); goto just_flags_log32; case O (O_ADDS, SL): SET_L_REG (code->dst.reg, GET_L_REG (code->dst.reg) + code->src.literal); goto next; case O (O_SUBS, SL): SET_L_REG (code->dst.reg, GET_L_REG (code->dst.reg) - code->src.literal); goto next; case O (O_CMP, SB): rd = fetch (&code->dst); ea = fetch (&code->src); ea = -ea; res = rd + ea; goto just_flags_alu8; case O (O_CMP, SW): rd = fetch (&code->dst); ea = fetch (&code->src); ea = -ea; res = rd + ea; goto just_flags_alu16; case O (O_CMP, SL): rd = fetch (&code->dst); ea = fetch (&code->src); ea = -ea; res = rd + ea; goto just_flags_alu32; case O (O_DEC, SB): rd = GET_B_REG (code->src.reg); ea = -1; res = rd + ea; SET_B_REG (code->src.reg, res); goto just_flags_inc8; case O (O_DEC, SW): rd = GET_W_REG (code->dst.reg); ea = -code->src.literal; res = rd + ea; SET_W_REG (code->dst.reg, res); goto just_flags_inc16; case O (O_DEC, SL): rd = GET_L_REG (code->dst.reg); ea = -code->src.literal; res = rd + ea; SET_L_REG (code->dst.reg, res); goto just_flags_inc32; case O (O_INC, SB): rd = GET_B_REG (code->src.reg); ea = 1; res = rd + ea; SET_B_REG (code->src.reg, res); goto just_flags_inc8; case O (O_INC, SW): rd = GET_W_REG (code->dst.reg); ea = code->src.literal; res = rd + ea; SET_W_REG (code->dst.reg, res); goto just_flags_inc16; case O (O_INC, SL): rd = GET_L_REG (code->dst.reg); ea = code->src.literal; res = rd + ea; SET_L_REG (code->dst.reg, res); goto just_flags_inc32; #define GET_CCR(x) BUILDSR();x = cpu.ccr case O (O_ANDC, SB): GET_CCR (rd); ea = code->src.literal; res = rd & ea; goto setc; case O (O_ORC, SB): GET_CCR (rd); ea = code->src.literal; res = rd | ea; goto setc; case O (O_XORC, SB): GET_CCR (rd); ea = code->src.literal; res = rd ^ ea; goto setc; case O (O_BRA, SB): if (1) goto condtrue; goto next; case O (O_BRN, SB): if (0) goto condtrue; goto next; case O (O_BHI, SB): if ((C || Z) == 0) goto condtrue; goto next; case O (O_BLS, SB): if ((C || Z)) goto condtrue; goto next; case O (O_BCS, SB): if ((C == 1)) goto condtrue; goto next; case O (O_BCC, SB): if ((C == 0)) goto condtrue; goto next; case O (O_BEQ, SB): if (Z) goto condtrue; goto next; case O (O_BGT, SB): if (((Z || (N ^ V)) == 0)) goto condtrue; goto next; case O (O_BLE, SB): if (((Z || (N ^ V)) == 1)) goto condtrue; goto next; case O (O_BGE, SB): if ((N ^ V) == 0) goto condtrue; goto next; case O (O_BLT, SB): if ((N ^ V)) goto condtrue; goto next; case O (O_BMI, SB): if ((N)) goto condtrue; goto next; case O (O_BNE, SB): if ((Z == 0)) goto condtrue; goto next; case O (O_BPL, SB): if (N == 0) goto condtrue; goto next; case O (O_BVC, SB): if ((V == 0)) goto condtrue; goto next; case O (O_BVS, SB): if ((V == 1)) goto condtrue; goto next; case O (O_SYSCALL, SB): printf ("%c", cpu.regs[2]); goto next; OSHIFTS (O_NOT, rd = ~rd); OSHIFTS (O_SHLL, c = rd & hm; rd <<= 1); OSHIFTS (O_SHLR, c = rd & 1; rd = (unsigned int) rd >> 1); OSHIFTS (O_SHAL, c = rd & hm; rd <<= 1); OSHIFTS (O_SHAR, t = rd & hm; c = rd & 1; rd >>= 1; rd |= t; ); OSHIFTS (O_ROTL, c = rd & hm; rd <<= 1; rd |= C); OSHIFTS (O_ROTR, c = rd & 1; rd = (unsigned int) rd >> 1; if (c) rd |= hm;); OSHIFTS (O_ROTXL, t = rd & hm; rd <<= 1; rd |= C; c = t; ); OSHIFTS (O_ROTXR, t = rd & 1; rd = (unsigned int) rd >> 1; if (C) rd |= hm; c = t;); case O (O_JMP, SB): { pc = fetch (&code->src); goto end; } case O (O_JSR, SB): { int tmp; pc = fetch (&code->src); call: tmp = cpu.regs[7]; if (h8300hmode) { tmp -= 4; SET_MEMORY_L (tmp, code->next_pc); } else { tmp -= 2; SET_MEMORY_W (tmp, code->next_pc); } cpu.regs[7] = tmp; goto end; } case O (O_BSR, SB): pc = code->src.literal; goto call; case O (O_RTS, SB): { int tmp; tmp = cpu.regs[7]; if (h8300hmode) { pc = GET_MEMORY_L (tmp); tmp += 4; } else { pc = GET_MEMORY_W (tmp); tmp += 2; } cpu.regs[7] = tmp; goto end; } case O (O_ILL, SB): cpu.exception = SIGILL; goto end; case O (O_SLEEP, SB): case O (O_BPT, SB): cpu.exception = SIGTRAP; goto end; OBITOP (O_BNOT, 1, 1, ea ^= m); OBITOP (O_BTST, 1, 0, nz = ea & m); OBITOP (O_BCLR, 1, 1, ea &= ~m); OBITOP (O_BSET, 1, 1, ea |= m); OBITOP (O_BLD, 1, 0, c = ea & m); OBITOP (O_BILD, 1, 0, c = !(ea & m)); OBITOP (O_BST, 1, 1, ea &= ~m; if (C) ea |= m); OBITOP (O_BIST, 1, 1, ea &= ~m; if (!C) ea |= m); OBITOP (O_BAND, 1, 0, c = (ea & m) && C); OBITOP (O_BIAND, 1, 0, c = !(ea & m) && C); OBITOP (O_BOR, 1, 0, c = (ea & m) || C); OBITOP (O_BIOR, 1, 0, c = !(ea & m) || C); OBITOP (O_BXOR, 1, 0, c = (ea & m) != C); OBITOP (O_BIXOR, 1, 0, c = !(ea & m) != C); #define MOP(bsize, signed) mop(code, bsize,signed); goto next; case O (O_MULS, SB): MOP (1, 1); break; case O (O_MULS, SW): MOP (0, 1); break; case O (O_MULU, SB): MOP (1, 0); break; case O (O_MULU, SW): MOP (0, 0); break; case O (O_DIVU, SB): { rd = GET_W_REG (code->dst.reg); ea = GET_B_REG (code->src.reg); if (ea) { tmp = rd % ea; rd = rd / ea; } SET_W_REG (code->dst.reg, (rd & 0xff) | (tmp << 8)); n = ea & 0x80; nz = ea & 0xff; goto next; } case O (O_DIVU, SW): { rd = GET_L_REG (code->dst.reg); ea = GET_W_REG (code->src.reg); n = ea & 0x8000; nz = ea & 0xffff; if (ea) { tmp = rd % ea; rd = rd / ea; } SET_L_REG (code->dst.reg, (rd & 0xffff) | (tmp << 16)); goto next; } case O (O_DIVS, SB): { rd = SEXTSHORT (GET_W_REG (code->dst.reg)); ea = SEXTCHAR (GET_B_REG (code->src.reg)); if (ea) { tmp = (int) rd % (int) ea; rd = (int) rd / (int) ea; n = rd & 0x8000; nz = 1; } else nz = 0; SET_W_REG (code->dst.reg, (rd & 0xff) | (tmp << 8)); goto next; } case O (O_DIVS, SW): { rd = GET_L_REG (code->dst.reg); ea = SEXTSHORT (GET_W_REG (code->src.reg)); if (ea) { tmp = (int) rd % (int) ea; rd = (int) rd / (int) ea; n = rd & 0x80000000; nz = 1; } else nz = 0; SET_L_REG (code->dst.reg, (rd & 0xffff) | (tmp << 16)); goto next; } case O (O_EXTS, SW): rd = GET_B_REG (code->src.reg + 8) & 0xff; /* Yes, src, not dst. */ ea = rd & 0x80 ? -256 : 0; res = rd + ea; goto log16; case O (O_EXTS, SL): rd = GET_W_REG (code->src.reg) & 0xffff; ea = rd & 0x8000 ? -65536 : 0; res = rd + ea; goto log32; case O (O_EXTU, SW): rd = GET_B_REG (code->src.reg + 8) & 0xff; ea = 0; res = rd + ea; goto log16; case O (O_EXTU, SL): rd = GET_W_REG (code->src.reg) & 0xffff; ea = 0; res = rd + ea; goto log32; case O (O_NOP, SB): goto next; default: cpu.exception = SIGILL; goto end; } abort (); setc: cpu.ccr = res; GETSR (); goto next; condtrue: /* When a branch works */ pc = code->src.literal; goto end; /* Set the cond codes from res */ bitop: /* Set the flags after an 8 bit inc/dec operation */ just_flags_inc8: n = res & 0x80; nz = res & 0xff; v = (rd & 0x7f) == 0x7f; goto next; /* Set the flags after an 16 bit inc/dec operation */ just_flags_inc16: n = res & 0x8000; nz = res & 0xffff; v = (rd & 0x7fff) == 0x7fff; goto next; /* Set the flags after an 32 bit inc/dec operation */ just_flags_inc32: n = res & 0x80000000; nz = res & 0xffffffff; v = (rd & 0x7fffffff) == 0x7fffffff; goto next; shift8: /* Set flags after an 8 bit shift op, carry set in insn */ n = (rd & 0x80); v = 0; nz = rd & 0xff; SET_B_REG (code->src.reg, rd); goto next; shift16: /* Set flags after an 16 bit shift op, carry set in insn */ n = (rd & 0x8000); v = 0; nz = rd & 0xffff; SET_W_REG (code->src.reg, rd); goto next; shift32: /* Set flags after an 32 bit shift op, carry set in insn */ n = (rd & 0x80000000); v = 0; nz = rd & 0xffffffff; SET_L_REG (code->src.reg, rd); goto next; log32: store (&code->dst, res); just_flags_log32: /* flags after a 32bit logical operation */ n = res & 0x80000000; nz = res & 0xffffffff; v = 0; goto next; log16: store (&code->dst, res); just_flags_log16: /* flags after a 16bit logical operation */ n = res & 0x8000; nz = res & 0xffff; v = 0; goto next; log8: store (&code->dst, res); just_flags_log8: n = res & 0x80; nz = res & 0xff; v = 0; goto next; alu8: SET_B_REG (code->dst.reg, res); just_flags_alu8: n = res & 0x80; nz = res & 0xff; v = ((ea & 0x80) == (rd & 0x80)) && ((ea & 0x80) != (res & 0x80)); c = (res & 0x100); goto next; alu16: SET_W_REG (code->dst.reg, res); just_flags_alu16: n = res & 0x8000; nz = res & 0xffff; v = ((ea & 0x8000) == (rd & 0x8000)) && ((ea & 0x8000) != (res & 0x8000)); c = (res & 0x10000); goto next; alu32: SET_L_REG (code->dst.reg, res); just_flags_alu32: n = res & 0x80000000; nz = res & 0xffffffff; v = ((ea & 0x80000000) == (rd & 0x80000000)) && ((ea & 0x80000000) != (res & 0x80000000)); switch (code->opcode / 4) { case O_ADD: c = ((unsigned) res < (unsigned) rd) || ((unsigned) res < (unsigned) ea); break; case O_SUB: case O_CMP: c = (unsigned) rd < (unsigned) -ea; break; case O_NEG: c = res != 0; break; } goto next; next:; pc = code->next_pc; end: ; /* if (cpu.regs[8] ) abort(); */ #ifdef __GO32__ /* Poll after every 100th insn, */ if (poll_count++ > 100) { poll_count = 0; if (kbhit ()) { int c = getkey (); control_c (); } } #endif } while (!cpu.exception); cpu.ticks += get_now () - tick_start; cpu.cycles += cycles; cpu.insts += insts; cpu.pc = pc; BUILDSR (); signal (SIGINT, prev); } int sim_write (addr, buffer, size) SIM_ADDR addr; unsigned char *buffer; int size; { int i; init_pointers (); if (addr < 0 || addr + size > MSIZE) return 0; for (i = 0; i < size; i++) { cpu.memory[addr + i] = buffer[i]; cpu.cache_idx[addr + i] = 0; } return size; } int sim_read (addr, buffer, size) SIM_ADDR addr; unsigned char *buffer; int size; { init_pointers (); if (addr < 0 || addr + size > MSIZE) return 0; memcpy (buffer, cpu.memory + addr, size); return size; } #define R0_REGNUM 0 #define R1_REGNUM 1 #define R2_REGNUM 2 #define R3_REGNUM 3 #define R4_REGNUM 4 #define R5_REGNUM 5 #define R6_REGNUM 6 #define R7_REGNUM 7 #define SP_REGNUM R7_REGNUM /* Contains address of top of stack */ #define FP_REGNUM R6_REGNUM /* Contains address of executing * stack frame */ #define CCR_REGNUM 8 /* Contains processor status */ #define PC_REGNUM 9 /* Contains program counter */ #define CYCLE_REGNUM 10 #define INST_REGNUM 11 #define TICK_REGNUM 12 void sim_store_register (rn, value) int rn; unsigned char *value; { int longval; int shortval; int intval; longval = (value[0] << 24) | (value[1] << 16) | (value[2] << 8) | value[3]; shortval = (value[0] << 8) | (value[1]); intval = h8300hmode ? longval : shortval; init_pointers (); switch (rn) { case PC_REGNUM: cpu.pc = intval; break; default: abort (); case R0_REGNUM: case R1_REGNUM: case R2_REGNUM: case R3_REGNUM: case R4_REGNUM: case R5_REGNUM: case R6_REGNUM: case R7_REGNUM: cpu.regs[rn] = intval; break; case CCR_REGNUM: cpu.ccr = intval; break; case CYCLE_REGNUM: cpu.cycles = longval; break; case INST_REGNUM: cpu.insts = longval; break; case TICK_REGNUM: cpu.ticks = longval; break; } } void sim_fetch_register (rn, buf) int rn; unsigned char *buf; { int v; int longreg = 0; init_pointers (); switch (rn) { default: abort (); case 8: v = cpu.ccr; break; case 9: v = cpu.pc; break; case R0_REGNUM: case R1_REGNUM: case R2_REGNUM: case R3_REGNUM: case R4_REGNUM: case R5_REGNUM: case R6_REGNUM: case R7_REGNUM: v = cpu.regs[rn]; break; case 10: v = cpu.cycles; longreg = 1; break; case 11: v = cpu.ticks; longreg = 1; break; case 12: v = cpu.insts; longreg = 1; break; } if (h8300hmode || longreg) { buf[0] = v >> 24; buf[1] = v >> 16; buf[2] = v >> 8; buf[3] = v >> 0; } else { buf[0] = v >> 8; buf[1] = v; } } void sim_stop_reason (reason, sigrc) enum sim_stop *reason; int *sigrc; { *reason = sim_stopped; *sigrc = cpu.exception; } sim_csize (n) { if (cpu.cache) free (cpu.cache); if (n < 2) n = 2; cpu.cache = (decoded_inst *) malloc (sizeof (decoded_inst) * n); memset (cpu.cache, 0, sizeof (decoded_inst) * n); cpu.csize = n; } void sim_info (verbose) int verbose; { double timetaken = (double) cpu.ticks / (double) now_persec (); double virttime = cpu.cycles / 10.0e6; printf_filtered ("\n\n#instructions executed %10d\n", cpu.insts); printf_filtered ("#cycles (v approximate) %10d\n", cpu.cycles); printf_filtered ("#real time taken %10.4f\n", timetaken); printf_filtered ("#virtual time taked %10.4f\n", virttime); if (timetaken != 0.0) printf_filtered ("#simulation ratio %10.4f\n", virttime / timetaken); printf_filtered ("#compiles %10d\n", cpu.compiles); printf_filtered ("#cache size %10d\n", cpu.csize); #ifdef ADEBUG if (verbose) { int i; for (i = 0; i < O_LAST; i++) { if (cpu.stats[i]) printf_filtered ("%d: %d\n", i, cpu.stats[i]); } } #endif } /* Indicate whether the cpu is an h8/300 or h8/300h. FLAG is non-zero for the h8/300h. */ void set_h8300h (flag) int flag; { h8300hmode = flag; } void sim_kill () { /* nothing to do */ } void sim_open (args) char *args; { /* nothing to do */ } void sim_close (quitting) int quitting; { /* nothing to do */ } /* Called by gdb to load a program into memory. */ int sim_load (prog, from_tty) char *prog; int from_tty; { bfd *abfd; /* See if the file is for the h8/300 or h8/300h. */ /* ??? This may not be the most efficient way. The z8k simulator does this via a different mechanism (INIT_EXTRA_SYMTAB_INFO). */ if ((abfd = bfd_openr (prog, "coff-h8300")) != 0) { if (bfd_check_format (abfd, bfd_object)) set_h8300h (abfd->arch_info->mach == bfd_mach_h8300h); bfd_close (abfd); } /* Return non-zero so gdb will handle it. */ return 1; } void sim_create_inferior (start_address, argv, env) SIM_ADDR start_address; char **argv; char **env; { cpu.pc = start_address; } gdb-4.13/sim/h8300/configure.in 666 34562 1752 1426 5334060670 14406 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. srctrigger=writecode.c srcname="h8300sim" # per-host: . ${srcdir}/../../bfd/configure.host # Set up to make a link between the host's include file and "sysdep.h". files="../../bfd/hosts/${my_host}.h" links="sysdep.h" if [ ! -f ${srcdir}/${files} ] ; then if [ -n "${my_host}" ] ; then echo '***' No file ${srcdir}/${files} 1>&2 fi echo '***' ${srcname} does not support host ${host} 1>&2 exit 1 fi host_makefile_frag= if [ -f ${srcdir}/../../bfd/config/${my_host}.mh ] ; then host_makefile_frag=../../bfd/config/${my_host}.mh fi # per-target: gdb-4.13/sim/h8300/h8300.mt 666 34562 1752 72 5351213034 13126 0ustar fnfcygnusALL=all-h8300 CLEAN=clean-h8300 DO_INSTALL=install-h8300 gdb-4.13/sim/h8300/inst.h 666 34562 1752 1511 5405200655 13214 0ustar fnfcygnus#define DEBUG #define MPOWER 16 #define MSIZE (1< #include #include "bfd.h" #include "sysdep.h" #include "remote-sim.h" int main (ac, av) int ac; char **av; { bfd *abfd; bfd_vma start_address; asection *s; int i; int verbose = 0; int trace = 0; char *name = ""; for (i = 1; i < ac; i++) { if (strcmp(av[i],"-v") == 0) verbose++; else if (strcmp(av[i],"-t") == 0) { trace = 1; } else if (strcmp(av[i],"-c") == 0) { sim_csize(atoi(av[i+1])); i++; } else if (strcmp(av[i],"-h") == 0) set_h8300h (1); else name = av[i]; } if (verbose) printf ("run %s\n", name); abfd = bfd_openr (name, "coff-h8300"); if (abfd) { if (bfd_check_format(abfd, bfd_object)) { if (abfd->arch_info->mach == bfd_mach_h8300h) set_h8300h (1); for (s = abfd->sections; s; s=s->next) { char *buffer = malloc(bfd_section_size(abfd,s)); bfd_get_section_contents(abfd, s, buffer, 0, bfd_section_size(abfd,s)); sim_write(s->vma, buffer, bfd_section_size(abfd,s)); } start_address = bfd_get_start_address(abfd); sim_create_inferior (start_address, NULL, NULL); sim_resume(0,0); if (verbose) sim_info (verbose - 1); return 0; } } return 1; } void printf_filtered (va_alist) va_dcl { char *msg; va_list args; va_start (args); msg = va_arg (args, char *); vfprintf (stdout, msg, args); va_end (args); } gdb-4.13/sim/h8300/writecode.c 666 34562 1752 37560 5434164126 14260 0ustar fnfcygnus/* Code generator for the Hitachi H8/300 architecture simulator. Written by Steve Chamberlain of Cygnus Support. sac@cygnus.com This file is part of H8/300 sim THIS SOFTWARE IS NOT COPYRIGHTED Cygnus offers the following for use in the public domain. Cygnus makes no warranty with regard to the software or it's performance and the user accepts the software "AS IS" with all faults. CYGNUS DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. */ /* This program reads the H8/300 opcode table and writes out a large switch statement to understand the opcodes (with ifs if there is more than one opcode per case) and code to do the stuff */ #include "bfd.h" #include "sysdep.h" #define DEFINE_TABLE #define INSIM #include"opcode/h8300.h" #define MAXSAME 140 #define PTWO 256 static struct h8_opcode *h8_opcodes_sorted[PTWO][MAXSAME]; char *cs = "/*"; char *ce = "*/"; /* How to get at nibble n from the instruction */ char *nibs[] = { "foo", "(b0&0xf)", "((b1>>4)&0xf)", "((b1)&0xf)", "((pc[1]>>12)&0xf)", "((pc[1]>>8)&0xf)", "((pc[1]>>4)&0xf)", "((pc[1])&0xf)", 0, 0}; /* how to get at the 3 bit immediate in the instruction */ char *imm3[] = {"foo", "foo", "((b1>>4)&0x7)", "foo", "foo", "foo", "(pc[1]>>4)&0x7"}; /* How to get at a byte register from an index in the instruction at nibble n */ char *breg[] = {"foo", "*(blow[b0])", "*(bhigh[b1])", "*(blow[b1])", 0, 0, "*(bhigh[pc[1]>>8])"}; /* How to get at a word register from an index in the instruction at nibble n */ char *wreg[] = {"foo", "*(wlow[b0])", "*(whigh[b1])", "*(wlow[b1])"}; #define sorted_key noperands /* sort the opcode table into h8_opcodes_sorted[0..255] */ static void init () { unsigned int i; struct h8_opcode *p; for (p = h8_opcodes; p->name; p++) { int n1 = 0; int n2 = 0; int j; #if 0 for (j = 0; p->data.nib[j] != E; j++) { if ((int) p->data.nib[j] == ABS16ORREL8SRC) p->data.nib[j] = ABS16SRC; if ((int) p->data.nib[j] == ABS16OR8SRC) p->data.nib[j] = ABS16SRC; if ((int) p->data.nib[j] == ABS16OR8DST) p->data.nib[j] = ABS16DST; } #endif if ((int) p->data.nib[0] < 16) { n1 = (int) p->data.nib[0]; } else n1 = 0; if ((int) p->data.nib[1] < 16) { n2 = (int) p->data.nib[1]; } else n2 = 0; for (i = 0; i < MAXSAME; i++) { int j = /* ((n3 >> 3) * 512) + ((n4 >> 3) * 256) + */ n1 * 16 + n2; if (h8_opcodes_sorted[j][i] == (struct h8_opcode *) NULL) { h8_opcodes_sorted[j][i] = p; p->sorted_key = j; break; } } if (i == MAXSAME) abort (); /* Just make sure there are an even number of nibbles in it, and that the count is the same s the length */ for (i = 0; p->data.nib[i] != E; i++) /*EMPTY*/ ; if (i & 1) abort (); p->length = i / 2; } for (i = 0; i < PTWO; i++) { if (h8_opcodes_sorted[i][0]) p = h8_opcodes_sorted[i][0]; else h8_opcodes_sorted[i][0] = p; } } /* decode the lvalues, creating a pointer in real space to object - remember if the thing has to be swapped out of where it is */ int swap[2]; lval (p) struct h8_opcode *p; { int i; for (i = 0; p->data.nib[i] != E; i++) { int x = p->data.nib[i]; int size; int op; op = (x & DST) ? 1 : 0; switch (x & SIZE) { case L_32: size = 32; break; case L_16: size = 16; break; case L_8: size = 8; break; default: size = 1234; } if (x & REG) { printf ("ir%d = GET_LVAL_%d_REG(%d);\n", op, size, i); } else if (x & IMM) { printf ("/* Imm has no lvalue */\n"); } } } void decode (p, fetch, size) struct h8_opcode *p; int fetch; int size; { if (fetch) { lval (p); } } static void esleep () { printf ("saved_state.exception = SIGSTOP;\n"); } static void mov (p, s, sz) struct h8_opcode *p; char *s; int sz; { printf ("dst = srca;\n"); } static void andc (p) struct h8_opcode *p; { printf ("SET_CCR(GET_CCR() & srca);\n"); } static void addx (p) struct h8_opcode *p; { printf ("dst = srca + srcb+ (c != 0);\n"); } static void subx (p) struct h8_opcode *p; { printf ("dst = srcb - srca - (c != 0);\n"); } static void add (p, s, sz) struct h8_opcode *p; char *s; int sz; { printf ("%s;\n", s); } static void adds (p, s) struct h8_opcode *p; char *s; { printf ("%s;\n", s); } static void bra (p, a) struct h8_opcode *p; char *a; { printf ("if (%s) npc += ((char )b1)>>1;\n", a); } static void bsr (p, a) struct h8_opcode *p; char *a; { printf ("reg[7]-=2;\n"); printf ("tmp = reg[7];\n"); printf ("SET_WORD_MEM(tmp, (npc-saved_state.mem)*2);\n"); printf ("npc += ((char)b1)>>1;\n"); } static void cmp (p, a, s) struct h8_opcode *p; char *a; int s; { decode (p, 1, s); printf ("srca = -srca;\n"); printf ("dst = srca + srcb;\n"); } static void jsr (p, a, s) struct h8_opcode *p; char *a; int s; { printf ("if (b1 == 0xc4) {\n"); printf ("printf(\"%%c\", reg[2]);\n"); printf ("}\n"); printf ("else {\n"); printf ("reg[7]-=2;\n"); printf ("tmp = reg[7];\n"); printf ("SET_WORD_MEM(tmp, (npc-saved_state.mem)*2);\n"); printf ("npc = (lval>>1) + saved_state.mem;\n"); printf ("}"); } static void jmp (p, a, s) struct h8_opcode *p; char *a; int s; { printf ("npc = (lval>>1) + saved_state.mem;\n"); } static void rts (p, a, s) struct h8_opcode *p; char *a; int s; { printf ("tmp = reg[7];\n"); printf ("reg[7]+=2;\n"); printf ("npc = saved_state.mem + (WORD_MEM(tmp)>>1);\n"); } static void rte (p, a, s) struct h8_opcode *p; char *a; int s; { printf ("reg[7]+=2;\n"); printf ("tmp = reg[7];\n"); printf ("reg[7]+=2;\n"); printf ("SET_CCR(tmp);\n"); printf ("npc = saved_state.mem + (WORD_MEM(tmp)>>1);\n"); } static void setf (p, a, s) struct h8_opcode *p; char *a; int s; { printf ("tmp = GET_CCR();\n"); printf ("tmp %s= srca;\n", a); } static void bpt (p, a, s) struct h8_opcode *p; char *a; int s; { printf ("saved_state.exception = SIGTRAP;\n"); printf ("npc = pc;\n"); } static void log (p, a, s) struct h8_opcode *p; char *a; int s; { printf ("dst = srcb %s srca;\n", a); } static void ulog (p, a, s) struct h8_opcode *p; char *a; int s; { printf ("dst = %s srcb ;\n", a); } static void nop () { } static void rotl () { printf ("c = srcb & 0x80;\n"); printf ("dst = srcb << 1;\n"); printf ("if (c) dst|=1;\n"); } static void rotr () { printf ("c = srcb & 1;\n"); printf ("dst = srcb >> 1;\n"); printf ("if (c) dst|=0x80;\n"); } static void rotxl () { printf ("tmp = srcb & 0x80;\n"); printf ("dst = srcb << 1;\n"); printf ("if (c) dst|=1;\n"); printf ("c = tmp;\n"); } static void rotxr () { printf ("tmp = srcb & 1;\n"); printf ("dst = srcb >> 1;\n"); printf ("if (c) dst|=0x80;\n"); printf ("c = tmp;\n"); } static void shal () { printf ("c = srcb&0x80;\n"); printf ("dst = srcb << 1;\n"); } static void shar () { printf ("c = srcb&0x1;\n"); printf ("if (srcb&0x80) dst = (srcb>>1) | 0x80;\n"); printf ("else dst = (srcb>>1) &~ 0x80;\n"); } static void shll () { printf ("c = srcb&0x80;\n"); printf ("dst = srcb << 1;\n"); } static void shlr () { printf ("c = srcb&0x1;\n"); printf ("dst = (srcb>>1) &~ 0x80;\n"); } static void divxu () { printf ("srca = %s;\n", breg[2]); printf ("srcb = %s;\n", wreg[3]); printf ("n = srca & 0x80;\n"); printf ("z = !srca;\n"); printf ("if (srca) dst = srcb / srca;tmp = srcb %% srca;\n"); printf ("%s = (dst & 0xff) | (tmp << 8);\n", wreg[3]); } static void mulxu () { printf ("srca = %s;\n", breg[2]); printf ("srcb = %s;\n", wreg[3]); printf ("dst = (srcb&0xff) * srca;\n"); printf ("%s = dst;\n", wreg[3]); } static void inc () { printf ("dst = %s;\n", breg[3]); printf ("v = (dst==0x7f);\n"); printf ("dst++;\n"); printf ("%s= dst;\n", breg[3]); } static void bit (p, a, s) struct h8_opcode *p; char *a; int s; { printf ("%s\n", a); } static void dec () { printf ("dst = %s;\n", breg[3]); printf ("v = (dst==0x80);\n"); printf ("dst--;\n"); printf ("%s = dst;\n", breg[3]); } char saf[] = "goto setflags;"; char sf[] = "goto shiftflags;"; char af8[] = "goto aluflags8;"; char af16[] = "goto aluflags16;"; char lf[] = "goto logflags;"; char icf[] = "goto incflags;"; char mf8[] = "goto movflags8;"; char mf16[] = "goto movflags16;"; char nx[] = "goto next;"; struct { char *ftype; int decode; char *name; void (*func) (); char *arg; int size; } table[] = { { nx, 1, "bld", bit, "dst = srcb; c = (srcb>>srca)&1;", 8 } , { nx, 1, "bild", bit, "dst = srcb; c = !((srcb>>srca)&1);", 8 } , { nx, 1, "band", bit, "dst = srcb; c = C &&((srcb>>srca)&1);", 8 } , { nx, 1, "biand", bit, "dst = srcb; c = C &&(!((srcb>>srca)&1));", 8 } , { nx, 1, "bior", bit, "dst = srcb; c = C ||(!((srcb>>srca)&1));", 8 } , { nx, 1, "bor", bit, "dst = srcb; c = C ||(((srcb>>srca)&1));", 8 } , { nx, 1, "bixor", bit, "dst = srcb; c = C ^(!((srcb>>srca)&1));", 8 } , { nx, 1, "bxor", bit, "dst = srcb; c = C ^(((srcb>>srca)&1));", 8 } , { nx, 1, "bnot", bit, "dst = srcb ^ (1<>srca)&1);", 8 } , { icf, 0, "dec", dec, 0, 0 } , { icf, 0, "inc", inc, 0, 0 } , { saf, 1, "orc", setf, "|", 0 } , { saf, 1, "xorc", setf, "^", 0 } , { saf, 1, "andc", setf, "&", 0 } , { nx, 1, "nop", nop, 0, 0 } , { nx, 1, "bra", bra, "1", 0 } , { nx, 1, "brn", bra, "0", 0 } , { nx, 1, "bhi", bra, "(C||Z)==0", 0 } , { nx, 1, "bls", bra, "(C||Z)==1", 0 } , { nx, 1, "bcs", bra, "C==1", 0 } , { nx, 1, "bcc", bra, "C==0", 0 } , { nx, 1, "bpl", bra, "N==0", 0 } , { nx, 1, "bmi", bra, "N==1", 0 } , { nx, 1, "bvs", bra, "V==1", 0 } , { nx, 1, "bvc", bra, "V==0", 0 } , { nx, 1, "bge", bra, "(N^V)==0", 0 } , { nx, 1, "bgt", bra, "(Z|(N^V))==0", 0 } , { nx, 1, "blt", bra, "(N^V)==1", 0 } , { nx, 1, "ble", bra, "(Z|(N^V))==1", 0 } , { nx, 1, "beq", bra, "Z==1", 0 } , { nx, 1, "bne", bra, "Z==0", 0 } , { nx, 1, "bsr", bsr, "", 0 } , { nx, 1, "jsr", jsr, 0, 0 } , { nx, 1, "jmp", jmp, 0, 0 } , { nx, 0, "rts", rts, 0, 0 } , { nx, 0, "rte", rte, 0, 0 } , { nx, 1, "andc", andc, 0, 0 } , { sf, 1, "shal", shal, 0, 0 } , { sf, 1, "shar", shar, 0, 0 } , { sf, 1, "shll", shll, 0, 0 } , { sf, 1, "shlr", shlr, 0, 0 } , { sf, 1, "rotxl", rotxl, 0, 0 } , { sf, 1, "rotxr", rotxr, 0, 0 } , { sf, 1, "rotl", rotl, 0, 0 } , { sf, 1, "rotr", rotr, 0, 0 } , { lf, 1, "xor", log, "^", 0 } , { lf, 1, "and", log, "&", 0 } , { lf, 1, "or", log, "|", 0 } , { lf, 1, "not", ulog, " ~", 0 } , { lf, 1, "neg", ulog, " - ", 0 } , { nx, 1, "adds", adds, "dst = srca + srcb", 0 } , { nx, 1, "subs", adds, "srca = -srca; dst = srcb + srca", 0 } , { af8, 1, "add.b", add, "dst = srca + srcb", 8 } , { af16, 1, "add.w", add, "dst = srca + srcb", 16 } , { af16, 1, "sub.w", add, "srca = -srca; dst = srcb + srca", 16 } , { af8, 1, "sub.b", add, "srca = -srca; dst = srcb + srca", 8 } , { af8, 1, "addx", addx, 0, 8 } , { af8, 1, "subx", subx, 0, 8 } , { af8, 0, "cmp.b", cmp, 0, 8 } , { af16, 0, "cmp.w", cmp, 0, 16 } , { nx, 1, "sleep", esleep, 0, 0 } , { nx, 0, "bpt", bpt, 0, 8 } , { nx, 0, "divxu", divxu, 0, 0 } , { nx, 0, "mulxu", mulxu, 0, 0 } , { mf8, 1, "mov.b", mov, 0, 8 } , { mf8, 1, "movtpe", mov, 0, 8 } , { mf8, 1, "movfpe", mov, 0, 8 } , { mf16, 1, "mov.w", mov, 0, 16 } , { 0 } }; static void edo (p) struct h8_opcode *p; { int i; printf ("%s %s %s\n", cs, p->name, ce); for (i = 0; table[i].name; i++) { if (strcmp (table[i].name, p->name) == 0) { printf ("{\n"); if (table[i].decode) decode (p, 1, table[i].size); printf ("cycles += %d;\n", p->time); printf ("npc = pc + %d;\n", p->length / 2); table[i].func (p, table[i].arg, table[i].size); if (table[i].decode) decode (p, 0, table[i].size); if (table[i].ftype) printf (table[i].ftype); else printf ("goto next;\n"); printf ("}\n"); return; } } printf ("%s not found %s\n", cs, ce); printf ("saved_state.exception = SIGILL;\n"); printf ("break;\n"); } static int owrite (i) int i; { /* write if statements to select the right opcode */ struct h8_opcode **p; int needand = 1; p = h8_opcodes_sorted[i]; printf ("case 0x%03x:\n", i); if (p[1] == 0) { /* See if the next few also match */ while (h8_opcodes_sorted[i + 1][0] == *p) { i++; printf ("case 0x%03x:\n", i); } /* Dont need any if's this is the only one */ edo (*p); } else { while (*p) { /* start two nibbles in since we know we match in the first byte */ int c; int nib = 2; int byte = 1; int mask1[5]; int mask0[5]; int nibshift = 4; int any = 0; for (c = 0; c < 5; c++) { mask1[c] = 0; mask0[c] = 0; } printf ("%s %x%x", cs, (*p)->data.nib[0], (*p)->data.nib[1]); while ((c = (*p)->data.nib[nib]) != E) { if (c & B30) { /* bit 3 must be zero */ mask0[byte] |= 0x8 << nibshift; printf ("0"); any = 1; } else if (c & B31) { /* bit 3 must be one */ mask1[byte] |= 0x8 << nibshift; printf ("8"); any = 1; } else if (c <= HexF) { mask0[byte] |= ((~c) & 0xf) << nibshift; mask1[byte] |= (c & 0xf) << nibshift; printf ("%x", c); any = 1; } else { printf ("x"); } nib++; if (nibshift == 4) { nibshift = 0; } else { byte++; nibshift = 4; } } printf ("*/\n"); if (any) { printf ("if ("); needand = 0; for (c = 1; c < byte; c++) { if (mask0[c] | mask1[c]) { int sh; if (needand) printf ("\n&&"); if (c & 1) sh = 0; else sh = 8; if (c / 2 == 0 && sh == 0) printf ("((b1&0x%x)==0x%x)", mask0[c] | mask1[c], mask1[c]); else { printf ("((pc[%d]&(0x%02x<<%d))==(0x%x<<%d))", c / 2, mask0[c] | mask1[c], sh, mask1[c], sh); } needand = 1; } } printf (")\n"); } edo (*p); p++; } } return i; } static void remove_dups () { struct h8_opcode *s; struct h8_opcode *d; for (d = s = h8_opcodes; s->name; s++) { int doit = 1; if (strcmp (s->name, "push") == 0) doit = 0; if (strcmp (s->name, "bhs") == 0) doit = 0; if (strcmp (s->name, "blo") == 0) doit = 0; if (strcmp (s->name, "bt") == 0) doit = 0; if (strcmp (s->name, "bf") == 0) doit = 0; if (strcmp (s->name, "pop") == 0) doit = 0; if (doit) { *d++ = *s; } } *d++ = *s++; } int main () { int i; remove_dups (); init (); printf ("%s do the operation %s\n", cs, ce); printf ("switch (b0) \n{\n"); for (i = 0; i < PTWO; i++) { i = owrite (i); } printf ("}\n"); return 0; } gdb-4.13/sim/ChangeLog 666 34562 1752 3656 5540650055 13115 0ustar fnfcygnusSun Mar 13 09:27:50 1994 Jim Kingdon (kingdon@lioth.cygnus.com) * Makefile.in: Add TAGS target. Mon Sep 13 12:47:15 1993 K. Richard Pixley (rich@sendai.cygnus.com) * Makefile.in (all-z8k, install-z8k, clean-z8k, all-h8300, install-h8300, clean-h8300, all-h8500, install-h8500, clean-h8500, all-sh, install-sh, clean-sh): do not echo recursion lines. Wed Jun 30 14:12:05 1993 david d `zoo' zuhn (zoo at poseidon.cygnus.com) * Makefile.in: remove endian.h trace from h8500 Sun Jun 13 13:08:58 1993 Jim Kingdon (kingdon@cygnus.com) * Makefile.in: Add distclean, realclean, and mostlyclean targets. Fri May 21 11:21:16 1993 david d `zoo' zuhn (zoo at cirdan.cygnus.com) * Makefile.in: make all of the all-* target (except all-nothing) depend on endian.h, so that if we're not building a simulator, we don't built endian Fri May 21 10:55:06 1993 Ian Lance Taylor (ian@cygnus.com) * Makefile.in (check, installcheck): Added dummy targets. Mon May 3 21:39:43 1993 Fred Fish (fnf@cygnus.com) * Makefile.in (endian): Find endian.c in $(srcdir), and also explicitly make it, since some makes apparently don't work with VPATH and .c to executable rules (SunOS make for example). Mon May 3 08:29:01 1993 Steve Chamberlain (sac@thepub.cygnus.com) * Makefile.in (endian): Add explicit rule for broken makes. Mon Mar 15 15:47:53 1993 Ian Lance Taylor (ian@cygnus.com) * Makefile.in (info, install-info): New targets. (DO_INSTALL): Renamed from INSTALL, which is overridden by the top level Makefile. Wed Feb 10 20:12:27 1993 K. Richard Pixley (rich@ok.cygnus.com) * Makefile.in (endian.h): build endian.h via a temporary file so that we don't leave an incomplete file lying around on interrupted builds. (clean): remove endian, e.h, and endian.h. Mon Feb 8 11:46:06 1993 Steve Chamberlain (sac@thepub.cygnus.com) * Makefile.in, configure.in: if target isn't supported, build a harmless makefile. gdb-4.13/sim/Makefile.in 666 34562 1752 11633 5540650054 13421 0ustar fnfcygnus# Makefile template for Configure for the sim library. # Copyright (C) 1993 Free Software Foundation, Inc. # Written by Cygnus Support. # # This file is part of BFD, the Binary File Descriptor library. # # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. srcdir = . srcroot = $(srcdir)/.. prefix = /usr/local program_transform_name = exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include oldincludedir = docdir = doc SHELL = /bin/sh INSTALL = $${srcroot}/../install.sh -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) INSTALL_XFORM = $(INSTALL) -t='$(program_transform_name)' INSTALL_XFORM1 = $(INSTALL_XFORM) -b=.1 AR = ar AR_FLAGS = rc CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib MAKEOVERRIDES= INCDIR = $(srcdir)/../include CSEARCH = -I. -I$(srcdir) -I$(INCDIR) DEP = mkdep SUBDIRS = " this is set by configire, don't change this " ALL=all-nothing CLEAN=clean-nothing DO_INSTALL=install-nothing #### host and target dependent Makefile fragments come in here. ### FLAGS_TO_PASS = \ "prefix=$(prefix)" \ "exec_prefix=$(exec_prefix)" \ "against=$(against)" \ "AR=$(AR)" \ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CFLAGS=$(CFLAGS)" \ "RANLIB=$(RANLIB)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "BISON=$(BISON)" STAGESTUFF = $(TARGETLIB) $(OFILES) all: $(ALL) clean: $(CLEAN) install: $(DO_INSTALL) mostlyclean: clean distclean realclean: clean rm -f Makefile config.status info: install-info: dvi: ### ### .PHONY: check installcheck check: installcheck: ### none all-nothing: force clean-nothing: force install-nothing: force ### z8k all-z8k: force @if [ -f ./z8k/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ ( cd ./z8k ; $(MAKE) $(FLAGS_TO_PASS) all) ; \ else \ true ; \ fi install-z8k: force @if [ -f ./z8k/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ ( cd ./z8k ; $(MAKE) $(FLAGS_TO_PASS) install) ; \ else \ true ; \ fi clean-z8k: force @if [ -f ./z8k/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ ( cd ./z8k ; $(MAKE) $(FLAGS_TO_PASS) clean) ; \ else \ true ; \ fi ### h8300 all-h8300: force @if [ -f ./h8300/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ ( cd ./h8300 ; $(MAKE) $(FLAGS_TO_PASS) all) ; \ else \ true ; \ fi install-h8300: force @if [ -f ./h8300/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ ( cd ./h8300 ; $(MAKE) $(FLAGS_TO_PASS) install) ; \ else \ true ; \ fi clean-h8300: force @if [ -f ./h8300/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ ( cd ./h8300 ; $(MAKE) $(FLAGS_TO_PASS) clean) ; \ else \ true ; \ fi ### ### h8500 all-h8500: force @if [ -f ./h8500/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ ( cd ./h8500 ; $(MAKE) $(FLAGS_TO_PASS) all) ; \ else \ true ; \ fi install-h8500: force @if [ -f ./h8500/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ srcroot=`cd $(srcdir); pwd`; export srcroot; \ ( cd ./h8500 ; $(MAKE) $(FLAGS_TO_PASS) install) ; \ else \ true ; \ fi clean-h8500: force @if [ -f ./h8500/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ ( cd ./h8500 ; $(MAKE) $(FLAGS_TO_PASS) clean) ; \ else \ true ; \ fi ### ### sh all-sh: force @if [ -f ./sh/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ ( cd ./sh ; $(MAKE) $(FLAGS_TO_PASS) all) ; \ else \ true ; \ fi install-sh: force @if [ -f ./sh/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ ( cd ./sh ; $(MAKE) $(FLAGS_TO_PASS) install) ; \ else \ true ; \ fi clean-sh: force @if [ -f ./sh/Makefile ] ; then \ rootme=`pwd` ; export rootme ; \ ( cd ./sh ; $(MAKE) $(FLAGS_TO_PASS) clean) ; \ else \ true ; \ fi TAGS: ### force: # with the gnu make, this is done automatically. Makefile: $(srcdir)/Makefile.in $(target_makefile_frag) $(SHELL) ./config.status gdb-4.13/sim/configure.in 666 34562 1752 1721 5427302352 13641 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. configdirs="h8300 z8k h8500 sh" srctrigger=Makefile.in srcname="sim" target_dependent=true # per-host: # per-target: # WHEN ADDING ENTRIES TO THIS MATRIX: # Make sure that the left side always has two dashes. Otherwise you # can get spurious matches. Even for unambiguous cases, do this as a # convention, else the table becomes a real mess to understand and maintain. case "${target}" in h8300*-*-*) sim_target=h8300 ;; h8500-*-*) sim_target=h8500 ;; z8k*-*-*) sim_target=z8k ;; sh*-*-*) sim_target=sh ;; *) sim_target=none ;; esac configdirs=${sim_target} if [ ! -f ${srcdir}/${sim_target}/${sim_target}.mt ] ; then target_makefile_frag= else target_makefile_frag=${sim_target}/${sim_target}.mt fi # post-target: gdb-4.13/sim/h8500/ 777 34562 1752 0 5623251232 12011 5ustar fnfcygnusgdb-4.13/sim/h8500/ChangeLog 666 34562 1752 6260 5566501136 13656 0ustar fnfcygnusWed May 18 13:58:05 1994 Doug Evans (dje@canuck.cygnus.com) * compile.c (sim_*): Change result to void where there isn't one. (sim_resume): Fix subroutine calling (push return address). (sim_set_pc): Delete. (sim_info): Delete printf_fn arg, all callers changed. Call printf_filtered instead. (sim_create_inferior): Renamed from sim_set_args. (sim_close): New function. (sim_load): New function. * run.c: #include , "remote-sim.h". (printf_filtered): New function. Sat Dec 11 16:35:34 1993 Steve Chamberlain (sac@thepub.cygnus.com) * compile.c (segforreg): New vector. (sim_resume): Get Z flag right for bitops. (sim_store_register, sim_fetch_register, sim_set_pc): Use new register naming convention. Thu Oct 28 19:31:24 1993 Doug Evans (dje@canuck.cygnus.com) * compile.c: #include "ansidecl.h" for remote-sim.h. Tue Oct 26 10:02:18 1993 Doug Evans (dje@canuck.cygnus.com) * Makefile.in (CSEARCH): Add -I$(srcdir)/../../gdb. * compile.c: #include "sysdep.h" and "remote-sim.h". (SET_SEGREG): Protect arg `y' with parens. (sim_resume): New arg `siggnal'. (sim_write): Use SIM_ADDR for type of arg `addr', int result. (sim_read): Ditto, use unsigned char * for arg `buf'. (sim_store_register): int result, value passed by reference. (sim_fetch_register): int result, use unsigned char * for arg `buf'. (sim_trace): Update call to sim_resume. (sim_stop_reason): Renamed from sim_stop_signal, new arg `reason', int result (error code, currently always 0). (sim_set_pc): Update calls to sim_store_register. (sim_info): int result, new args `print_fn', `verbose'. (sim_kill): int result. (sim_open): Ditto, new arg `name'. * run.c (main): Update call to sim_info. Sat Oct 23 15:06:10 1993 Doug Evans (dje@canuck.cygnus.com) * compile.c (sim_stop_signal): Result is now enum sim_stop. Fri Oct 15 23:52:55 1993 Jim Kingdon (kingdon@lioth.cygnus.com) * compile.c (sim_kill, sim_open, sim_set_args): New functions. Tue Aug 17 07:17:09 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * compile.c (sim_info): Don't work out simulation ration if timetaken is zero. Mon Aug 2 14:08:24 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * compile.c (get_now, now_persec): Use time system call. (find) do pjmps right. Tue Jul 13 12:20:19 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * compile.c (sim_set_pc): set cp at the same time. (sim_resume): fix pjsr and pjmp. Tue Jun 8 14:34:37 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * compile.c: Remove endian.h dependency. Mon Apr 5 10:08:30 1993 Steve Chamberlain (sac@thepub.cygnus.com) * run.c (main): Now understands -v. * compile.c: Passes all the tests in small model. Mon Mar 29 13:20:36 1993 Steve Chamberlain (sac@thepub.cygnus.com) * run.c, inst.h compile.c: bug fixes, Thu Mar 25 12:21:18 1993 Stu Grossman (grossman@cygnus.com) * compile.c (sim_store_register): Use GDB names for registers to avoid version skew problems. * (sim_fetch_register): Ditto, also return only bits that actually exist. * configure.in: Fix srctrigger & srcname to reflect h8500, not h8300. Fri Mar 19 14:46:31 1993 Steve Chamberlain (sac@thepub.cygnus.com) * inst.h, compile.c, run.c: New files. gdb-4.13/sim/h8500/Makefile.in 666 34562 1752 10271 5463257526 14175 0ustar fnfcygnus# Makefile template for Configure for the h8300sim library. # Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. # Written by Cygnus Support. # # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. srcdir = . srcroot = $(srcdir)/../.. prefix = /usr/local program_transform_name = exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib tooldir = $(libdir)/$(target_alias) datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include oldincludedir = docdir = $(srcdir)/doc SHELL = /bin/sh INSTALL = $${srcroot}/install.sh -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) INSTALL_XFORM = $(INSTALL) -t='$(program_transform_name)' INSTALL_XFORM1= $(INSTALL_XFORM) -b=.1 AR = ar AR_FLAGS = qc CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib INCDIR = $(srcdir)/../../include CSEARCH = -I. -I$(srcdir) -I$(INCDIR) -I$(srcdir)/../../bfd -I$(srcdir)/../../gdb DEP = mkdep #### host, target, and site specific Makefile frags come in here. all: run run: compile.o run.o $(CC) $(CFLAGS) -o run compile.o run.o ../../bfd/libbfd.a ../../libiberty/libiberty.a compile.o:compile.c run.o:run.c #### host and target dependent Makefile fragments come in here. ### FLAGS_TO_PASS = \ "against=$(against)" \ "AR=$(AR)" \ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CFLAGS=$(CFLAGS)" \ "RANLIB=$(RANLIB)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "BISON=$(BISON)" .c.o: $(CC) -c $(CFLAGS) $(HDEFINES) $(TDEFINES) $(CSEARCH) $(CSWITCHES) $< .NOEXPORT: check: info: clean-info: install-info: # HDEPFILES comes from the host config; TDEPFILES from the target config. tags etags: TAGS TAGS: force etags $(INCDIR)/*.h $(srcdir)/*.h $(srcdir)/*.c clean: rm -f *.[oa] *~ core *.E *.p *.ip aout-params.h gen-aout clobber realclean: clean rm -f libbfd.a TAGS # Mark everything as depending on config.status, since the timestamp on # sysdep.h might actually move backwards if we reconfig and relink it # to a different hosts/h-xxx.h file. This will force a recompile anyway. RECONFIG = config.status # This target should be invoked before building a new release. # 'VERSION' file must be present and contain a string of the form "x.y" # roll: @V=`cat VERSION` ; \ MAJ=`sed 's/\..*//' VERSION` ; \ MIN=`sed 's/.*\.//' VERSION` ; \ V=$$MAJ.`expr $$MIN + 1` ; \ rm -f VERSION ; \ echo $$V >VERSION ; \ echo Version $$V # Dummy target to force execution of dependent targets. # force: # Copy the files into directories where they will be run. install: srcroot=`cd $(srcroot); pwd`; export srcroot; \ $(INSTALL_XFORM) run $(bindir)/run ; \ n=`t='$(program_transform_name)'; echo run | sed -e "" $$t`; \ if [ -d $(tooldir) ] ; then \ if [ -d $(tooldir)/bin ] ; then true ; else mkdir $(tooldir)/bin ; fi; \ rm -f $(tooldir)/bin/run; \ ln $(bindir)/$$n $(tooldir)/bin/run \ || $(INSTALL_PROGRAM) run $(tooldir)/bin/run; \ else true; fi Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status dep: $(CFILES) mkdep $(CFLAGS) $? # What appears below is generated by a hacked mkdep using gcc -MM. # DO NOT DELETE THIS LINE -- mkdep uses it. # DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. # IF YOU PUT ANYTHING HERE IT WILL GO AWAY gdb-4.13/sim/h8500/compile.c 666 34562 1752 142752 5566501144 13746 0ustar fnfcygnus/* Simulator for the Hitachi H8/500 architecture. Written by Steve Chamberlain of Cygnus Support. sac@cygnus.com This file is part of H8/500 sim THIS SOFTWARE IS NOT COPYRIGHTED Cygnus offers the following for use in the public domain. Cygnus makes no warranty with regard to the software or it's performance and the user accepts the software "AS IS" with all faults. CYGNUS DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. */ #include #include #include #include "ansidecl.h" #include "sysdep.h" #include "remote-sim.h" #define O_RECOMPILE 85 #define DEFINE_TABLE #define DISASSEMBLER_TABLE int debug; /* This code can be compiled with any old C compiler, in which case four or five switch statements will be executed for each instruction simulated. It can be compiled with GCC, then the simulated instructions thread through the code fragments, and everything goes much faster. These definitions make the code work either way */ #ifdef __GNUC__ #define DISPATCH(X) goto *(X); do #define LABEL(X) X##_L #define LABELN(X,N) X##_L##N #define LABEL_REF(X) &&X##_L #define LABEL_REFN(X,N) &&X##_L##N #define ENDDISPATCH while (0); #define fastref void * #define DEFAULT ; #define INLINE __inline__ #else #define DEFAULT default : #define DISPATCH(X) switch (X) #define LABEL(X) case X #define LABELN(X,N) case X #define LABEL_REF(X) X #define LABEL_REFN(X,N) X #define ENDDISPATCH #define fastref int #define INLINE #define STORE_REG_B 1 #define STORE_REG_W 2 #define STORE_INC_B 3 #define STORE_INC_W 4 #define STORE_DEC_B 5 #define STORE_DEC_W 6 #define STORE_DISP_B 7 #define STORE_DISP_W 8 #define STORE_CRB 9 #define STORE_CRW 10 #define STORE_REG_L 11 #define STORE_NOP 12 #define FETCH_NOP 9 #define FETCH_REG_B 10 #define FETCH_REG_W 11 #define FETCH_INC_B 12 #define FETCH_INC_W 13 #define FETCH_DEC_B 14 #define FETCH_DEC_W 15 #define FETCH_DISP_B 16 #define FETCH_DISP_W 17 #define FETCH_IMM 18 #define FETCH_CRB 19 #define FETCH_CRW 20 #define FETCH_LVAL 21 #define FETCH_LVAL24 22 #define FETCH_REG_L 23 #define FLAG_m 20 #define FLAG_M 21 #define FLAG_A 22 #define FLAG_NONE 23 #define FLAG_NOSTORE 24 #define FLAG_CLEAR 25 #define FLAG_a 26 #define FLAG_BRANCH 27 #define FLAG_special 28 #define FLAG_shiftword 29 #define FLAG_shiftbyte 30 #define FLAG_multword 31 #define FLAG_multbyte 32 #endif #define h8500_table h8500_compile_table #include "../opcodes/h8500-opc.h" #include "inst.h" #define LOW_BYTE(x) ((x) & 0xff) #define HIGH_BYTE(x) (((x)>>8) & 0xff) #define NORMAL_CP ((cpu.regs[R_CP].c - cpu.memory)>>16) #define NORMAL_DP ((cpu.regs[R_DP].c - cpu.memory)>>16) #define NORMAL_EP ((cpu.regs[R_EP].c - cpu.memory)>>16) #define NORMAL_TP ((cpu.regs[R_TP].c - cpu.memory)>>16) #define SET_NORMREG(x,y) ((cpu.regs[x].l = (y))) #define GET_NORMREG(x) (cpu.regs[x].l) #define SET_SEGREG(x,y) { cpu.regs[x].c = ((y) & 0xff0000) + cpu.memory;} #define GET_SEGREG(x) ( (cpu.regs[x].c - cpu.memory ) >> 16) #define SET_NORMAL_CPPC(x) { pc = (x) & 0xffff; SET_SEGREG(R_CP, (x));} #define NORMAL_SR ((N<<3)|(Z<<2)|(V<<1)|(C)) #define P(X,Y) ((X<<8) | Y) #define BUILDSR() cpu.regs[R_SR].s[LOW] = (N << 3) | (Z << 2) | (V<<1) | C; #define GETSR() \ C = (cpu.regs[R_SR].s[LOW] >> 0) & 1;\ V = (cpu.regs[R_SR].s[LOW] >> 1) & 1;\ Z = (cpu.regs[R_SR].s[LOW] >> 2) & 1;\ N = (cpu.regs[R_SR].s[LOW] >> 3) & 1; #ifdef __CHAR_IS_SIGNED__ #define SEXTCHAR(x) ((char)(x)) #endif #ifndef SEXTCHAR #define SEXTCHAR(x) ((x & 0x80) ? (x | ~0xff):x) #endif #define SEXTSHORT(x) ((short)(x)) /* Which segment registers go with which pointer registers */ static unsigned char **segmap[R_LAST]; static unsigned char *(regptr[R_LAST][3]); static unsigned char *(segregptr[R_LAST][3]); static cpu_state_type cpu; static int segforreg[] = {R_DP, R_DP, R_DP, R_DP, R_EP, R_EP, R_TP, R_TP, R_DP, R_DP, R_DP, R_DP, R_EP, R_EP, R_TP, R_TP}; int LOW; int HIGH; /* routines for getting and storing args */ #define elval(struct, lit) \ (((*(struct.reg.wptr) + lit) & 0xffff) + (*(struct.r2.segreg))) #define displval(s) elval((s),(s).literal) #define ireglval(struct) elval(struct, 0) #define wordat(x) (((x)[0] << 8) | (x)[1]) #define longat(x) ((wordat((x))<<16)|(wordat((x)+2))) #define byteat(x) ((x)[0]) #define setwordat(x,y) {x[0] =( y)>>8; x[1] = y;} #define setbyteat(x,y) {x[0] = y;} /*#define setalignedwordat(x,y) {((short *)x)[0] =y;}*/ /* statics */ ea_type rd; ea_type rs; ea_type imm; ea_type cr; ea_type ea; ea_type nop; ea_type lval; ea_type lval24; ea_type eavector[2]; int disp; #define JBYTE 0 #define JWORD 1 #define JLONG 2 typedef union { struct { fastref srcabyte; fastref srcaword; fastref srcalong; fastref srcbbyte; fastref srcbword; fastref srcblong; fastref dstbyte; fastref dstword; fastref dstlong; } s; struct { fastref byte; fastref word; fastref lon; } a[3]; fastref j[9]; } size_ptr; union { struct ea_struct { size_ptr ea_nop; size_ptr ea_reg; size_ptr ea_inc; size_ptr ea_dec; size_ptr ea_disp; size_ptr ea_imm; size_ptr ea_cr; size_ptr ea_lval; size_ptr ea_lval24; } s; #define N_EATYPES (sizeof(struct ea_struct) / sizeof(size_ptr)) size_ptr a[N_EATYPES]; } eas; /* This function takes an ea structure filled in for the 1st source operand and modifies it to be for either the 1st, 2nd or dst operand */ static void howto_workout (encoded, semiencoded, n) ea_type *encoded; ea_type *semiencoded; int n; { int i; *encoded = *semiencoded; for (i = 0; i < N_EATYPES; i++) { if (encoded->type == eas.a[i].s.srcabyte) { encoded->type = eas.a[i].a[n].byte; return; } else if (encoded->type == eas.a[i].s.srcaword) { encoded->type = eas.a[i].a[n].word; return; } else if (encoded->type == eas.a[i].s.srcalong) { encoded->type = eas.a[i].a[n].lon; return; } } abort (); } fastref flag_shiftword; fastref flag_shiftbyte; fastref flag_multword; fastref flag_multbyte; fastref flag_mp; fastref flag_special; fastref flag_Mp; fastref flag_ap; fastref flag_Ap; fastref flag_nonep; fastref flag_nostorep; fastref flag_clearp; fastref flag_branch; fastref exec_dispatch[100]; static int get_now () { return time ((char *) 0); } static int now_persec () { return 1; } static void gotcr (ptr, n) ea_type *ptr; int n; { int size; n &= 0x7; if (n == 0) { abort (); } else { ptr->type = eas.s.ea_cr.j[JBYTE]; ptr->reg.bptr = segregptr[n][JLONG]; } } static void gotreg (ptr, n, size) ea_type *ptr; int n; int size; { n &= 0x7; ptr->type = eas.s.ea_reg.j[size]; ptr->reg.bptr = regptr[n][size]; } static void gotinc (ptr, n, inc, size) ea_type *ptr; int n; int size; { n &= 0x7; if (inc > 0) { ptr->type = eas.s.ea_inc.j[size]; } else { ptr->type = eas.s.ea_dec.j[size]; } ptr->reg.bptr = regptr[n][JWORD]; ptr->r2.segreg = segmap[n]; } static void gotabs (ptr, disp, reg, size) ea_type *ptr; int disp; int reg; int size; { ptr->type = eas.s.ea_disp.j[size]; ptr->reg.bptr = regptr[reg][JWORD]; ptr->r2.segreg = segmap[reg]; ptr->literal = disp; } static void gotind (ptr, disp, reg, size) ea_type *ptr; int disp; int reg; int size; { gotabs (ptr, disp, reg & 0x7, size); } static void gotimm (ptr, val) ea_type *ptr; int val; { ptr->type = eas.s.ea_imm.j[0]; ptr->literal = val; } static void indoff (ptr) ea_type *ptr; { int i; for (i = 0; i < 6; i++) { if (ptr->type == eas.s.ea_disp.j[i]) { ptr->type = eas.s.ea_lval.j[i]; return; } } } thinkabout_shifts (d, bytesized) decoded_inst *d; int bytesized; { if (bytesized) { /* Got a byte shift, fake up second arg */ d->srcb.type = eas.s.ea_imm.s.srcbword; d->srcb.literal = 8; } else { /* got a word shift, fake up second arg */ d->srcb.type = eas.s.ea_imm.s.srcbword; d->srcb.literal = 16; } } /* Calculate the number of cycles required to run this instruction */ static void compcycles (dst, opcode) decoded_inst *dst; h8500_opcode_info *opcode; { int cycles = 0; /* Guess for the time being - 1 cycle for the first two bytes in the opcode - to fecth the operand, and 3 cycles for all the rest of the bytes, since they mean that there is probably an operand to fetch */ switch (opcode->length) { case 1: case 2: cycles += opcode->length; break; default: cycles += opcode->length * 3; break; } dst->cycles = cycles; } static void translate (ptr, from, to) ea_type *ptr; fastref from; fastref to; { if (ptr->reg.wptr == &cpu.regs[7].s[LOW] && ptr->type == from) { ptr->type = to; } } static void fix_incdecs (dst) decoded_inst *dst; { if (dst->dst.type == eas.s.ea_inc.s.dstbyte && (dst->srca.type == eas.s.ea_inc.s.srcabyte || dst->srcb.type == eas.s.ea_inc.s.srcbbyte)) { dst->dst.type = eas.s.ea_disp.s.dstbyte; } if (dst->dst.type == eas.s.ea_inc.s.dstword && (dst->srca.type == eas.s.ea_inc.s.srcaword || dst->srcb.type == eas.s.ea_inc.s.srcbword)) { dst->dst.type = eas.s.ea_disp.s.dstword; } if (dst->dst.type == eas.s.ea_dec.s.dstbyte || dst->dst.type == eas.s.ea_dec.s.dstword) { if (dst->srca.type == eas.s.ea_dec.s.srcabyte) { dst->srca.type = eas.s.ea_disp.s.srcabyte; } else if (dst->srca.type == eas.s.ea_dec.s.srcaword) { dst->srca.type = eas.s.ea_disp.s.srcaword; } else if (dst->srcb.type == eas.s.ea_dec.s.srcbbyte) { dst->srcb.type = eas.s.ea_disp.s.srcbbyte; } else if (dst->srcb.type == eas.s.ea_dec.s.srcbword) { dst->srcb.type = eas.s.ea_disp.s.srcbword; } } /* Turn a byte ops from the sp into word ops */ translate (&dst->dst, eas.s.ea_dec.s.dstbyte, eas.s.ea_dec.s.dstword); translate (&dst->dst, eas.s.ea_inc.s.dstbyte, eas.s.ea_inc.s.dstword); translate (&dst->srca, eas.s.ea_dec.s.srcabyte, eas.s.ea_dec.s.srcaword); translate (&dst->srca, eas.s.ea_inc.s.srcabyte, eas.s.ea_inc.s.srcaword); translate (&dst->srcb, eas.s.ea_dec.s.srcbbyte, eas.s.ea_dec.s.srcbword); translate (&dst->srcb, eas.s.ea_inc.s.srcbbyte, eas.s.ea_inc.s.srcbword); } static void find (pc, buffer, dst) int pc; unsigned char *buffer; decoded_inst *dst; { h8500_opcode_info *opcode; int i; int idx; int hadimm = 0; dst->srca.reg.rptr = 0; /* Run down the table to find the one which matches */ for (opcode = h8500_table; opcode->name; opcode++) { int byte; int rn; int rd; int rs; int disp; int abs; int imm; int pcrel; int qim; int i; int cr; dst->opcode = exec_dispatch[opcode->flavor & 0x7f]; for (byte = 0; byte < opcode->length; byte++) { if ((buffer[byte] & opcode->bytes[byte].mask) != (opcode->bytes[byte].contents)) { goto next; } else { /* extract any info parts */ switch (opcode->bytes[byte].insert) { case 0: case FP: break; default: abort (); break; case RN: rn = buffer[byte] & 0x7; break; case RS: rs = buffer[byte] & 0x7; break; case CRB: cr = buffer[byte] & 0x7; if (cr == 0) goto next; break; case CRW: cr = buffer[byte] & 0x7; if (cr != 0) goto next; break; case DISP16: disp = (buffer[byte] << 8) | (buffer[byte + 1]); break; case FPIND_D8: case DISP8: disp = ((char) (buffer[byte])); break; case RD: case RDIND: rd = buffer[byte] & 0x7; break; case ABS24: abs = (buffer[byte] << 16) | (buffer[byte + 1] << 8) | (buffer[byte + 2]); break; case ABS16: abs = (buffer[byte] << 8) | (buffer[byte + 1]); break; case ABS8: abs = (buffer[byte]); break; case IMM16: imm = (buffer[byte] << 8) | (buffer[byte + 1]); break; case IMM4: imm = (buffer[byte]) & 0xf; break; case IMM8: case RLIST: imm = SEXTCHAR (buffer[byte]); break; case PCREL16: pcrel = SEXTSHORT ((buffer[byte] << 8) | (buffer[byte + 1])); break; case PCREL8: pcrel = SEXTCHAR ((buffer[byte])); break; case QIM: switch (buffer[byte] & 0x7) { case 0: imm = 1; break; case 1: imm = 2; break; case 4: imm = -1; break; case 5: imm = -2; break; } break; } } } if (opcode->flavor & O_BYTE) { idx = 0; switch (opcode->flags) { case 'h': dst->flags = flag_shiftbyte; break; case 'p': dst->flags = flag_multbyte; break; case 'B': dst->flags = flag_branch; break; case 'm': dst->flags = flag_mp; break; case 'a': dst->flags = flag_ap; break; case '-': dst->flags = flag_nonep; break; case 0: dst->flags = flag_nostorep; break; case 'c': dst->flags = flag_clearp; break; case 's': /* special */ dst->flags = flag_special; } } else { idx = 1; switch (opcode->flags) { case 'h': dst->flags = flag_shiftword; break; case 'p': dst->flags = flag_multword; break; case 'B': dst->flags = flag_branch; break; case 'm': dst->flags = flag_Mp; break; case 'a': dst->flags = flag_Ap; break; case '-': dst->flags = flag_nonep; break; case 0: dst->flags = flag_nostorep; break; case 'c': dst->flags = flag_clearp; break; case 's': /* special */ dst->flags = flag_special; break; } } for (i = 0; i < opcode->nargs; i++) { ea_type *p = eavector + i; switch (opcode->arg_type[i]) { default: abort (); case FP: gotreg (p, 6, idx); break; case RNIND: disp = 0; case RNIND_D16: case RNIND_D8: gotind (p, disp, rn, idx); break; break; case RDIND: disp = 0; case RDIND_D16: case RDIND_D8: gotind (p, disp, rd, idx); break; case FPIND_D8: gotind (p, disp, 6, idx); break; case CRB: case CRW: gotcr (p, cr); break; case RN: gotreg (p, rn, idx); break; case RD: gotreg (p, rd, idx); break; case RS: gotreg (p, rs, idx); break; case RNDEC: gotinc (p, rn, -1, idx); break; case RNINC: gotinc (p, rn, 1, idx); break; case SPINC: gotinc (p, 7, 1, idx); break; case SPDEC: gotinc (p, 7, -1, idx); break; case ABS24: case ABS16: gotabs (p, abs, R_HARD_0, idx); break; case ABS8: gotabs (p, abs, R_HARD8_0, idx); break; case IMM16: case RLIST: case QIM: case IMM4: case IMM8: gotimm (p, imm); break; case PCREL16: case PCREL8: gotimm (p, ((pcrel + pc + opcode->length) & 0xffff) | (pc & 0xff0000), R_HARD_0, JLONG); } } /* Finished and done - turn from two operand stuff into three */ dst->srca.type = eas.s.ea_nop.s.srcabyte; dst->srcb.type = eas.s.ea_nop.s.srcbbyte; dst->dst.type = eas.s.ea_nop.s.dstbyte; if (opcode->nargs) { switch (opcode->nargs) { case 1: howto_workout (&dst->srca, &eavector[0], 0); if (opcode->dst != '!') howto_workout (&dst->dst, &eavector[0], 2); break; case 2: if (opcode->src2 == '!') { howto_workout (&dst->srca, &eavector[0], 0); howto_workout (&dst->dst, &eavector[1], 2); } else { howto_workout (&dst->srca, &eavector[0], 0); howto_workout (&dst->srcb, &eavector[1], 1); if (opcode->dst != '!') { howto_workout (&dst->dst, &eavector[1], 2); } } break; } /* Some extra stuff with pre inc and post dec, make sure that if the same ea is there twice, only one of the ops is auto inc/dec */ fix_incdecs (dst); /* Some special cases */ if (dst->opcode == exec_dispatch[O_PJSR] || dst->opcode == exec_dispatch[O_PJMP]) { /* Both the @abs:24 and @rn turn into a disp word, chose the right a mode since @abs:24 is 4 bytes long */ if (opcode->length == 4) { dst->srca.type = eas.s.ea_lval24.s.srcabyte; } else { dst->srca.type = eas.s.ea_reg.s.srcalong; } dst->srca.r2.rptr = &cpu.regs[R_HARD_0]; /* For [P]JSR, keep return address precomputed */ dst->srcb.literal = pc + opcode->length; dst->srcb.type = eas.s.ea_imm.s.srcbword; } if (dst->opcode == exec_dispatch[O_MULXU]) { /* This is a multiply -fix the destination op */ if (dst->dst.type == eas.s.ea_reg.s.dstword) { dst->dst.type = eas.s.ea_reg.s.dstlong; } else { dst->dst.type = eas.s.ea_reg.s.dstword; } dst->dst.reg.bptr = regptr[rd][JWORD]; } if (dst->opcode == exec_dispatch[O_DIVXU]) { /* This is a wider than normal, fix the source operand */ dst->srcb.type = (dst->srcb.type == eas.s.ea_reg.s.srcbword) ? eas.s.ea_reg.s.srcblong : eas.s.ea_reg.s.srcbword; dst->dst.type = (dst->dst.type == eas.s.ea_reg.s.dstword) ? eas.s.ea_reg.s.dstlong : eas.s.ea_reg.s.dstword; } if (dst->opcode == exec_dispatch[O_LDM]) { /* Turn of the stack ref */ dst->srca.type = eas.s.ea_nop.s.srcabyte; } if (dst->opcode == exec_dispatch[O_STM]) { /* Turn of the stack ref */ dst->srcb.type = eas.s.ea_nop.s.srcbbyte; } /* extends read one size and write another */ if (dst->opcode == exec_dispatch[O_EXTS] || dst->opcode == exec_dispatch[O_EXTU]) { dst->dst.type = eas.s.ea_reg.s.dstword; dst->dst.reg.bptr = regptr[rd][JWORD]; dst->flags = flag_Ap; } if (opcode->flags == 'h') thinkabout_shifts (dst, opcode->flavor & O_BYTE); /* For a branch, turn off one level of indirection */ if (opcode->src1 == 'B') { indoff (&dst->srca, 0); } } dst->next_pc = pc + opcode->length; compcycles (dst, opcode); return; next:; } /* Couldn't understand anything */ dst->opcode = exec_dispatch[O_TRAPA]; dst->next_pc = pc + 1; } compile (pc) { int idx; /* find the next cache entry to use */ idx = cpu.cache_top + 1; cpu.compiles++; if (idx >= cpu.csize) { idx = 1; } cpu.cache_top = idx; /* Throw away its old meaning */ cpu.cache_idx[cpu.cache[idx].oldpc] = 0; /* set to new address */ cpu.cache[idx].oldpc = pc; /* fill in instruction info */ find (pc, cpu.memory + pc, cpu.cache + idx); /* point to new cache entry */ cpu.cache_idx[pc] = idx; } baddefault (x) { printf ("bad default %d\n", x); } static int fetch_l (arg) ea_type *arg; { int l, r; int h = *(arg->reg.wptr); r = (union rtype *) (arg->reg.wptr) - &cpu.regs[0]; r++; l = cpu.regs[r].s[LOW]; return (h << 16) | l; } #define FETCH(dst, arg, n) \ { \ int r; unsigned char*lval; \ DISPATCH((arg).type) \ { LABELN(FETCH_NOP,n): \ dst= 0; \ break; \ DEFAULT baddefault((arg).type); break; \ LABELN(FETCH_LVAL,n): \ dst = (*(((arg).reg.wptr)) + (arg.literal)) ; \ break; \ LABELN(FETCH_LVAL24,n): \ dst = (*(((arg).reg.wptr)) + *(((arg).r2.wptr)) + (arg.literal)) &0xffffff; \ break; \ LABELN(FETCH_CRB,n): \ dst = (*((arg).reg.segptr) - cpu.memory)>>16; \ break; \ LABELN(FETCH_CRW,n): \ dst = BUILDSR();\ break; \ LABELN(FETCH_REG_B,n): \ dst = *((arg).reg.bptr); \ break; \ LABELN(FETCH_REG_W,n): \ dst = *((arg).reg.wptr); \ break; \ LABELN(FETCH_REG_L,n): \ dst = fetch_l(&(arg));\ break; \ LABELN(FETCH_INC_B,n): \ lval = elval ((arg), 0); \ dst = byteat (lval); \ (*((arg).reg.wptr))++; \ break; \ LABELN(FETCH_INC_W,n): \ lval = elval ((arg), 0); \ dst = wordat (lval); \ (*(((arg).reg.wptr))) += 2; \ break; \ LABELN(FETCH_DEC_B, n): \ (*(arg).reg.wptr)--; \ lval = elval ((arg), 0); \ r = byteat (lval); \ dst = r; \ break; \ LABELN(FETCH_DEC_W, n): \ (*((arg).reg.wptr)) -= 2; \ lval = elval ((arg), 0); \ r = wordat (lval); \ dst = r; \ break; \ LABELN(FETCH_DISP_B,n): \ lval = displval ((arg)); \ dst = byteat (lval); \ break; \ LABELN(FETCH_DISP_W,n): \ lval = displval ((arg)); \ dst = wordat (lval); \ break; \ LABELN(FETCH_IMM, n): \ dst = (arg).literal; \ break; \ } \ ENDDISPATCH; \ } static union { short int i; struct { char low; char high; } u; } littleendian; static void init_pointers () { static int init; if (!init) { int i; init = 1; littleendian.i = 1; for (i = 0; i < (int) R_LAST; i++) { if (littleendian.u.high) { /* big endian host */ LOW = 1; HIGH = 0; regptr[i][0] = ((unsigned char *) (cpu.regs + i)) + 3; regptr[i][1] = ((unsigned char *) (cpu.regs + i)) + 2; } else { LOW = 0; HIGH = 1; regptr[i][0] = (unsigned char *) &(cpu.regs[i]); regptr[i][1] = (unsigned char *) (&(cpu.regs[i])); } regptr[i][2] = (unsigned char *) &(cpu.regs[i]); } memcpy (segregptr + 0, regptr + R_SR, sizeof (segregptr[0])); memcpy (segregptr + 1, regptr + R_TP, sizeof (segregptr[1])); memcpy (segregptr + 3, regptr + R_BR, sizeof (segregptr[3])); memcpy (segregptr + 4, regptr + R_EP, sizeof (segregptr[4])); memcpy (segregptr + 5, regptr + R_DP, sizeof (segregptr[5])); memcpy (segregptr + 6, regptr + R_CP, sizeof (segregptr[6])); memcpy (segregptr + 7, regptr + R_TP, sizeof (segregptr[7])); /* Pointers to into the cpu state for the seg registers */ segmap[R0] = &cpu.regs[R_DP].c; segmap[R1] = &cpu.regs[R_DP].c; segmap[R2] = &cpu.regs[R_DP].c; segmap[R3] = &cpu.regs[R_DP].c; segmap[R4] = &cpu.regs[R_EP].c; segmap[R5] = &cpu.regs[R_EP].c; segmap[R6] = &cpu.regs[R_TP].c; segmap[R7] = &cpu.regs[R_TP].c; segmap[R_HARD_0] = &cpu.regs[R_DP].c; segmap[R_HARD8_0] = &cpu.regs[R_BP].c; cpu.memory = (unsigned char *) calloc (sizeof (char), MSIZE); cpu.cache_idx = (unsigned short *) calloc (sizeof (short), MSIZE); /* initialize the seg registers */ cpu.regs[R_DP].c = cpu.memory; cpu.regs[R_TP].c = cpu.memory; cpu.regs[R_CP].c = cpu.memory; cpu.regs[R_BP].c = cpu.memory; cpu.regs[R_EP].c = cpu.memory; cpu.regs[R7].s[LOW] = 0xfffe; cpu.regs[R6].s[LOW] = 0xfffe; if (!cpu.cache) sim_csize (CSIZE); } } #define PUSHWORD(x) \ { \ int sp = cpu.regs[R7].s[LOW]; \ unsigned char *p; \ \ sp -= 2; \ p = (sp & 0xffff) + (cpu.regs[R_TP].c); \ cpu.regs[R7].s[LOW] = sp; \ setwordat (p, x); \ } \ #define POPWORD(d) \ { \ int spx= cpu.regs[R7].s[LOW]; \ unsigned char *p; \ \ p = (spx& 0xffff) + (cpu.regs[R_TP].c); \ spx+= 2; \ cpu.regs[R7].s[LOW] = spx; \ d = wordat (p); \ } \ /* simulate a monitor trap */ trap () { switch (cpu.regs[R3].s[LOW] & 0xff) { case 33: /* exit */ cpu.exception = SIGQUIT; break; case 6: /* print char in r0 */ printf ("%c", cpu.regs[R0].s[LOW]); break; } } void control_c (sig, code, scp, addr) int sig; int code; char *scp; char *addr; { cpu.exception = SIGINT; } void sim_resume (step, siggnal) { static int init1; int res; int tmp; int arga; int argb; int bit; int pc; int C, Z, V, N; int cycles = 0; int insts = 0; int tick_start = get_now (); void (*prev) (); if (!init1) { int i; init1 = 1; init_pointers (); for (i = 0; i < N_EATYPES; i++) { eas.a[i].s.srcabyte = LABEL_REFN (FETCH_NOP, 0); eas.a[i].s.srcaword = LABEL_REFN (FETCH_NOP, 0); eas.a[i].s.srcalong = LABEL_REFN (FETCH_NOP, 0); eas.a[i].s.srcbbyte = LABEL_REFN (FETCH_NOP, 1); eas.a[i].s.srcbword = LABEL_REFN (FETCH_NOP, 1); eas.a[i].s.srcblong = LABEL_REFN (FETCH_NOP, 1); eas.a[i].s.dstbyte = LABEL_REF (STORE_NOP); eas.a[i].s.dstword = LABEL_REF (STORE_NOP); eas.a[i].s.dstlong = LABEL_REF (STORE_NOP); } eas.s.ea_lval.s.srcabyte = LABEL_REFN (FETCH_LVAL, 0); eas.s.ea_lval.s.srcaword = LABEL_REFN (FETCH_LVAL, 0); eas.s.ea_lval24.s.srcabyte = LABEL_REFN (FETCH_LVAL24, 0); eas.s.ea_lval24.s.srcaword = LABEL_REFN (FETCH_LVAL24, 0); eas.s.ea_nop.s.srcabyte = LABEL_REFN (FETCH_NOP, 0); eas.s.ea_nop.s.srcaword = LABEL_REFN (FETCH_NOP, 0); eas.s.ea_nop.s.srcbbyte = LABEL_REFN (FETCH_NOP, 1); eas.s.ea_nop.s.srcbword = LABEL_REFN (FETCH_NOP, 1); eas.s.ea_nop.s.dstbyte = LABEL_REF (STORE_NOP); eas.s.ea_nop.s.dstword = LABEL_REF (STORE_NOP); eas.s.ea_cr.s.srcabyte = LABEL_REFN (FETCH_CRB, 0); eas.s.ea_cr.s.srcaword = LABEL_REFN (FETCH_CRW, 0); eas.s.ea_cr.s.srcbbyte = LABEL_REFN (FETCH_CRB, 1); eas.s.ea_cr.s.srcbword = LABEL_REFN (FETCH_CRW, 1); eas.s.ea_cr.s.dstbyte = LABEL_REF (STORE_CRB); eas.s.ea_cr.s.dstword = LABEL_REF (STORE_CRW); eas.s.ea_reg.s.srcabyte = LABEL_REFN (FETCH_REG_B, 0); eas.s.ea_reg.s.srcaword = LABEL_REFN (FETCH_REG_W, 0); eas.s.ea_reg.s.srcalong = LABEL_REFN (FETCH_REG_L, 0); eas.s.ea_reg.s.srcbbyte = LABEL_REFN (FETCH_REG_B, 1); eas.s.ea_reg.s.srcbword = LABEL_REFN (FETCH_REG_W, 1); eas.s.ea_reg.s.srcblong = LABEL_REFN (FETCH_REG_L, 1); eas.s.ea_reg.s.dstbyte = LABEL_REF (STORE_REG_B); eas.s.ea_reg.s.dstword = LABEL_REF (STORE_REG_W); eas.s.ea_reg.s.dstlong = LABEL_REF (STORE_REG_L); eas.s.ea_inc.s.srcabyte = LABEL_REFN (FETCH_INC_B, 0); eas.s.ea_inc.s.srcaword = LABEL_REFN (FETCH_INC_W, 0); eas.s.ea_inc.s.srcbbyte = LABEL_REFN (FETCH_INC_B, 1); eas.s.ea_inc.s.srcbword = LABEL_REFN (FETCH_INC_W, 1); eas.s.ea_inc.s.dstbyte = LABEL_REF (STORE_INC_B); eas.s.ea_inc.s.dstword = LABEL_REF (STORE_INC_W); eas.s.ea_dec.s.srcabyte = LABEL_REFN (FETCH_DEC_B, 0); eas.s.ea_dec.s.srcaword = LABEL_REFN (FETCH_DEC_W, 0); eas.s.ea_dec.s.srcbbyte = LABEL_REFN (FETCH_DEC_B, 1); eas.s.ea_dec.s.srcbword = LABEL_REFN (FETCH_DEC_W, 1); eas.s.ea_dec.s.dstbyte = LABEL_REF (STORE_DEC_B); eas.s.ea_dec.s.dstword = LABEL_REF (STORE_DEC_W); eas.s.ea_disp.s.srcabyte = LABEL_REFN (FETCH_DISP_B, 0); eas.s.ea_disp.s.srcaword = LABEL_REFN (FETCH_DISP_W, 0); eas.s.ea_disp.s.srcbbyte = LABEL_REFN (FETCH_DISP_B, 1); eas.s.ea_disp.s.srcbword = LABEL_REFN (FETCH_DISP_W, 1); eas.s.ea_disp.s.dstbyte = LABEL_REF (STORE_DISP_B); eas.s.ea_disp.s.dstword = LABEL_REF (STORE_DISP_W); eas.s.ea_imm.s.srcabyte = LABEL_REFN (FETCH_IMM, 0); eas.s.ea_imm.s.srcaword = LABEL_REFN (FETCH_IMM, 0); eas.s.ea_imm.s.srcbbyte = LABEL_REFN (FETCH_IMM, 1); eas.s.ea_imm.s.srcbword = LABEL_REFN (FETCH_IMM, 1); flag_special = LABEL_REF (FLAG_special); flag_mp = LABEL_REF (FLAG_m); flag_Mp = LABEL_REF (FLAG_M); flag_ap = LABEL_REF (FLAG_a); flag_Ap = LABEL_REF (FLAG_A); flag_nonep = LABEL_REF (FLAG_NONE); flag_nostorep = LABEL_REF (FLAG_NOSTORE); flag_clearp = LABEL_REF (FLAG_CLEAR); flag_shiftbyte = LABEL_REF (FLAG_shiftbyte); flag_shiftword = LABEL_REF (FLAG_shiftword); flag_multbyte = LABEL_REF (FLAG_multbyte); flag_multword = LABEL_REF (FLAG_multword); exec_dispatch[O_ADDS] = LABEL_REF (O_ADDS); exec_dispatch[O_ADDX] = LABEL_REF (O_ADDX); exec_dispatch[O_ADD] = LABEL_REF (O_ADD); exec_dispatch[O_ANDC] = LABEL_REF (O_ANDC); exec_dispatch[O_AND] = LABEL_REF (O_AND); exec_dispatch[O_BCC] = LABEL_REF (O_BCC); exec_dispatch[O_BCLR] = LABEL_REF (O_BCLR); exec_dispatch[O_BCS] = LABEL_REF (O_BCS); exec_dispatch[O_BEQ] = LABEL_REF (O_BEQ); exec_dispatch[O_BF] = LABEL_REF (O_BF); exec_dispatch[O_BGE] = LABEL_REF (O_BGE); exec_dispatch[O_BGT] = LABEL_REF (O_BGT); exec_dispatch[O_BHI] = LABEL_REF (O_BHI); exec_dispatch[O_BHS] = LABEL_REF (O_BHS); exec_dispatch[O_BLE] = LABEL_REF (O_BLE); exec_dispatch[O_BLO] = LABEL_REF (O_BLO); exec_dispatch[O_BLS] = LABEL_REF (O_BLS); exec_dispatch[O_BLT] = LABEL_REF (O_BLT); exec_dispatch[O_BMI] = LABEL_REF (O_BMI); exec_dispatch[O_BNE] = LABEL_REF (O_BNE); exec_dispatch[O_BNOT] = LABEL_REF (O_BNOT); exec_dispatch[O_BPL] = LABEL_REF (O_BPL); exec_dispatch[O_BPT] = LABEL_REF (O_BPT); exec_dispatch[O_BRA] = LABEL_REF (O_BRA); exec_dispatch[O_BRN] = LABEL_REF (O_BRN); exec_dispatch[O_BSET] = LABEL_REF (O_BSET); exec_dispatch[O_BSR] = LABEL_REF (O_BSR); exec_dispatch[O_BTST] = LABEL_REF (O_BTST); exec_dispatch[O_BT] = LABEL_REF (O_BT); exec_dispatch[O_BVC] = LABEL_REF (O_BVC); exec_dispatch[O_BVS] = LABEL_REF (O_BVS); exec_dispatch[O_CLR] = LABEL_REF (O_CLR); exec_dispatch[O_CMP] = LABEL_REF (O_CMP); exec_dispatch[O_DADD] = LABEL_REF (O_DADD); exec_dispatch[O_DIVXU] = LABEL_REF (O_DIVXU); exec_dispatch[O_DSUB] = LABEL_REF (O_DSUB); exec_dispatch[O_EXTS] = LABEL_REF (O_EXTS); exec_dispatch[O_EXTU] = LABEL_REF (O_EXTU); exec_dispatch[O_JMP] = LABEL_REF (O_JMP); exec_dispatch[O_JSR] = LABEL_REF (O_JSR); exec_dispatch[O_LDC] = LABEL_REF (O_LDC); exec_dispatch[O_LDM] = LABEL_REF (O_LDM); exec_dispatch[O_LINK] = LABEL_REF (O_LINK); exec_dispatch[O_MOVFPE] = LABEL_REF (O_MOVFPE); exec_dispatch[O_MOVTPE] = LABEL_REF (O_MOVTPE); exec_dispatch[O_MOV] = LABEL_REF (O_MOV); exec_dispatch[O_MULXU] = LABEL_REF (O_MULXU); exec_dispatch[O_NEG] = LABEL_REF (O_NEG); exec_dispatch[O_NOP] = LABEL_REF (O_NOP); exec_dispatch[O_NOT] = LABEL_REF (O_NOT); exec_dispatch[O_ORC] = LABEL_REF (O_ORC); exec_dispatch[O_OR] = LABEL_REF (O_OR); exec_dispatch[O_PJMP] = LABEL_REF (O_PJMP); exec_dispatch[O_PJSR] = LABEL_REF (O_PJSR); exec_dispatch[O_PRTD] = LABEL_REF (O_PRTD); exec_dispatch[O_PRTS] = LABEL_REF (O_PRTS); exec_dispatch[O_RECOMPILE] = LABEL_REF (O_RECOMPILE); exec_dispatch[O_ROTL] = LABEL_REF (O_ROTL); exec_dispatch[O_ROTR] = LABEL_REF (O_ROTR); exec_dispatch[O_ROTXL] = LABEL_REF (O_ROTXL); exec_dispatch[O_ROTXR] = LABEL_REF (O_ROTXR); exec_dispatch[O_RTD] = LABEL_REF (O_RTD); exec_dispatch[O_RTS] = LABEL_REF (O_RTS); exec_dispatch[O_SCB_EQ] = LABEL_REF (O_SCB_EQ); exec_dispatch[O_SCB_F] = LABEL_REF (O_SCB_F); exec_dispatch[O_SCB_NE] = LABEL_REF (O_SCB_NE); exec_dispatch[O_SHAL] = LABEL_REF (O_SHAL); exec_dispatch[O_SHAR] = LABEL_REF (O_SHAR); exec_dispatch[O_SHLL] = LABEL_REF (O_SHLL); exec_dispatch[O_SHLR] = LABEL_REF (O_SHLR); exec_dispatch[O_SLEEP] = LABEL_REF (O_SLEEP); exec_dispatch[O_STC] = LABEL_REF (O_STC); exec_dispatch[O_STM] = LABEL_REF (O_STM); exec_dispatch[O_SUBS] = LABEL_REF (O_SUBS); exec_dispatch[O_SUBX] = LABEL_REF (O_SUBX); exec_dispatch[O_SUB] = LABEL_REF (O_SUB); exec_dispatch[O_SWAP] = LABEL_REF (O_SWAP); exec_dispatch[O_TAS] = LABEL_REF (O_TAS); exec_dispatch[O_TRAPA] = LABEL_REF (O_TRAPA); exec_dispatch[O_TRAP_VS] = LABEL_REF (O_TRAP_VS); exec_dispatch[O_TST] = LABEL_REF (O_TST); exec_dispatch[O_UNLK] = LABEL_REF (O_UNLK); exec_dispatch[O_XCH] = LABEL_REF (O_XCH); exec_dispatch[O_XORC] = LABEL_REF (O_XORC); exec_dispatch[O_XOR] = LABEL_REF (O_XOR); nop.type = eas.s.ea_nop.s.srcabyte; cpu.cache[0].opcode = exec_dispatch[O_RECOMPILE]; cpu.cache[0].srca.type = eas.s.ea_nop.s.srcabyte; cpu.cache[0].srcb.type = eas.s.ea_nop.s.srcbbyte; } prev = signal (SIGINT, control_c); if (step) { cpu.exception = SIGTRAP; } else { cpu.exception = 0; } pc = cpu.regs[R_PC].s[LOW] + (NORMAL_CP << 16); GETSR (); do { int cidx; decoded_inst *code; top: cidx = cpu.cache_idx[pc]; code = cpu.cache + cidx; FETCH (arga, code->srca, 0); FETCH (argb, code->srcb, 1); #ifdef DEBUG if (debug) { printf ("%x %d %s\n", pc, code->opcode, code->op ? code->op->name : "**"); } #endif cycles += code->cycles; insts++; DISPATCH (code->opcode) { LABEL (O_RECOMPILE): /* This opcode is a fake for when we get to an instruction which hasn't been compiled */ compile (pc); goto top; break; LABEL (O_NEG): arga = -arga; argb = 0; res = arga + argb; break; LABEL (O_SUBX): arga += C; LABEL (O_SUB): LABEL (O_SUBS): arga = -arga; LABEL (O_ADD): LABEL (O_ADDS): res = arga + argb; break; LABEL (O_ADDX): res = arga + argb + C; break; LABEL (O_AND): LABEL (O_ANDC): res = arga & argb; break; break; LABEL (O_BCLR): arga &= 0xf; bit = (argb & (1 << arga)); res = argb & ~(1 << arga); goto bitop; LABEL (O_BRA): LABEL (O_BT): if (1) goto condtrue; LABEL (O_BRN): LABEL (O_BF): if (0) goto condtrue; break; LABEL (O_BHI): if ((C || Z) == 0) goto condtrue; break; LABEL (O_BLS): if ((C || Z)) goto condtrue; break; LABEL (O_BCS): LABEL (O_BLO): if ((C == 1)) goto condtrue; break; LABEL (O_BCC): LABEL (O_BHS): if ((C == 0)) goto condtrue; break; LABEL (O_BEQ): if (Z) goto condtrue; break; LABEL (O_BGT): if (((Z || (N ^ V)) == 0)) goto condtrue; break; LABEL (O_BLE): if (((Z || (N ^ V)) == 1)) goto condtrue; break; LABEL (O_BGE): if ((N ^ V) == 0) goto condtrue; break; LABEL (O_BLT): if ((N ^ V)) goto condtrue; break; LABEL (O_BMI): if ((N)) goto condtrue; break; LABEL (O_BNE): if ((Z == 0)) goto condtrue; break; LABEL (O_BPL): if (N == 0) goto condtrue; break; break; LABEL (O_BVC): if ((V == 0)) goto condtrue; break; LABEL (O_BVS): if ((V == 1)) goto condtrue; break; LABEL (O_BNOT): bit = argb & (1<<(arga & 0xf)); res = argb ^ (1<<(arga & 0xf)); goto bitop; break; LABEL (O_BSET): arga = 1 << (arga & 0xf); bit = argb & arga; res = argb | arga; goto bitop; break; LABEL (O_PJMP): pc = arga; goto next; LABEL (O_UNLK): { int t; SET_NORMREG (R7, GET_NORMREG (R6)); POPWORD (t); SET_NORMREG (R6, t); pc = code->next_pc; goto next; } LABEL (O_RTS): { int cp = pc & 0xff0000; POPWORD (pc); pc |= cp; goto next; } break; LABEL (O_PRTS): { int cp; int off; POPWORD (cp); POPWORD (off); cp <<= 16; SET_SEGREG (R_CP, cp); pc = cp + off; } goto next; LABEL (O_PJSR): PUSHWORD (argb & 0xffff); PUSHWORD (argb >> 16); pc = (arga & 0xffffff); goto next; LABEL (O_BSR): LABEL (O_JSR): PUSHWORD (code->next_pc); pc = arga; goto next; LABEL (O_BTST): Z = (((argb >> (arga & 0xf)) & 1) == 0); pc = code->next_pc; goto next; LABEL (O_CLR): res = 0; break; LABEL (O_CMP): arga = -arga; res = arga + argb; break; LABEL (O_DADD): res = arga + argb + C; if (res > 99) { res -= 100; C = 1; } else { C = 0; } Z = Z && (res == 0); break; LABEL (O_DSUB): res = argb - arga - C; if (res < 0) { res += 100; C = 1; } else { C = 0; } Z = Z && (res == 0); break; LABEL (O_EXTS): res = SEXTCHAR (arga); break; LABEL (O_EXTU): res = (unsigned char) arga; break; LABEL (O_JMP): pc = arga | (pc & 0xff0000); goto next; break; LABEL (O_LDM): for (tmp = 0; tmp < 7; tmp++) { if (argb & (1 << tmp)) { POPWORD (cpu.regs[tmp].s[LOW]); } } if (argb & 0x80) POPWORD (tmp); /* dummy ready for sp */ goto nextpc; break; LABEL (O_LINK): PUSHWORD (cpu.regs[R6].s[LOW]); cpu.regs[R6].s[LOW] = cpu.regs[R7].s[LOW]; cpu.regs[R7].s[LOW] += argb; goto nextpc; LABEL (O_STC): LABEL (O_LDC): LABEL (O_MOVFPE): LABEL (O_MOVTPE): LABEL (O_MOV): LABEL (O_TST): res = arga; break; LABEL (O_TRAPA): if (arga == 15) { trap (); } else { PUSHWORD (pc & 0xffff); if (cpu.maximum) { PUSHWORD (NORMAL_CP); } PUSHWORD (NORMAL_SR); if (cpu.maximum) { arga = arga * 4 + 0x40; SET_NORMAL_CPPC (longat (cpu.memory + arga)); } else { arga = arga * 2 + 0x20; SET_NORMAL_CPPC (wordat (cpu.memory + arga)); } } break; LABEL (O_OR): LABEL (O_ORC): res = arga | argb; break; LABEL (O_XOR): LABEL (O_XORC): res = arga ^ argb; break; LABEL (O_SCB_F): { scb_f: res = arga - 1; code->srca.reg.wptr[0] = res; if (res != -1) { pc = argb; goto next; } } break; LABEL (O_SCB_EQ): if (Z == 1) break; else goto scb_f; LABEL (O_SCB_NE): if (Z == 0) break; else goto scb_f; LABEL (O_NOP): /* If only they were all as simple as this */ break; LABEL (O_ROTL): res = arga << 1; C = (res >> argb) & 1; res |= C; break; LABEL (O_ROTR): C = arga & 1; res = arga >> 1; res |= (C << (argb - 1)); break; LABEL (O_ROTXL): res = arga << 1; res |= C; C = (res >> argb) & 1; break; LABEL (O_ROTXR): res = arga >> 1; res |= (C << (argb - 1)); C = arga & 1; break; LABEL (O_SHAL): res = arga << 1; if (argb == 16) { C = (res >> (16)) & 1; Z = ((res & 0xffff) == 0); N = ((res & 0x8000) != 0); } else { C = (res >> (8)) & 1; Z = ((res & 0xff) == 0); N = ((res & 0x80) != 0); } V = C ^ N; goto none; LABEL (O_SHAR): C = arga & 1; if (argb == 16) { res = ((short) arga) >> 1; } else { res = (SEXTCHAR (arga)) >> 1; } break; LABEL (O_SHLL): res = arga << 1; C = (res >> argb) & 1; break; LABEL (O_SHLR): C = arga & 1; res = arga >> 1; break; LABEL (O_DIVXU): if (arga == 0) { N = V = C = 0; Z = 1; cpu.exception = SIGILL; } else { int d = argb / arga; int m = argb % arga; if (code->dst.type == eas.s.ea_reg.s.dstlong) { res = (m << 16) | (d & 0xffff); } else { res = (m << 8) | (d & 0xff); } } break; LABEL (O_MULXU): res = arga * argb; break; LABEL (O_NOT): res = ~arga; break; LABEL (O_SWAP): res = ((arga >> 8) & 0xff) | ((arga << 8) & 0xff00); break; LABEL (O_STM): for (tmp = 7; tmp >= 0; tmp--) { if (arga & (1 << tmp)) { PUSHWORD (cpu.regs[tmp].s[LOW]); } } goto nextpc; LABEL (O_TAS): C = 0; V = 0; Z = arga == 0; N = arga < 0; res = arga | 0x80; goto none; LABEL (O_PRTD): LABEL (O_XCH): LABEL (O_RTD): cpu.exception = SIGILL; goto next; LABEL (O_TRAP_VS): LABEL (O_SLEEP): LABEL (O_BPT): cpu.exception = SIGTRAP; goto next; break; } ENDDISPATCH; DISPATCH (code->flags) { bitop: Z = (res & bit) == 0; pc = code->next_pc; break; LABEL (FLAG_multword): Z = (res & 0xffff) == 0; N = (res & 0x8000) != 0; V = 0; C = 0; pc = code->next_pc; break; LABEL (FLAG_multbyte): /* 8*8 -> 16 */ Z = (res & 0xff) == 0; N = (res & 0x80) != 0; V = 0; C = 0; pc = code->next_pc; break; LABEL (FLAG_shiftword): N = (res & 0x8000) != 0; Z = (res & 0xffff) == 0; V = 0; pc = code->next_pc; break; LABEL (FLAG_shiftbyte): N = (res & 0x80) != 0; Z = (res & 0xff) == 0; V = 0; pc = code->next_pc; break; LABEL (FLAG_special): pc = code->next_pc; break; LABEL (FLAG_m): /* Move byte flags */ /* after a logical instruction */ N = (res & 0x80) != 0; Z = (res & 0xff) == 0; V = (((~arga & ~argb & res) | (arga & argb & ~res)) & 0x80) != 0; pc = code->next_pc; break; LABEL (FLAG_M): /* Move word flags */ /* after a logical instruction */ N = (res & 0x8000) != 0; Z = (res & 0xffff) == 0; V = (((~arga & ~argb & res) | (arga & argb & ~res)) & 0x8000) != 0; pc = code->next_pc; break; LABEL (FLAG_a): /* after byte sized arith */ C = (res & 0x100) != 0; N = (res & 0x80) != 0; Z = (res & 0xff) == 0; V = (((~arga & ~argb & res) | (arga & argb & ~res)) & 0x80) != 0; pc = code->next_pc; break; LABEL (FLAG_A): /* after word sized arith */ C = (res & 0x10000) != 0; N = (res & 0x8000) != 0; Z = (res & 0xffff) == 0; V = (((~arga & ~argb & res) | (arga & argb & ~res)) & 0x8000) != 0; pc = code->next_pc; break; LABEL (FLAG_NONE): none:; /* no flags but store */ pc = code->next_pc; break; LABEL (FLAG_NOSTORE): /* no flags and no store */ pc = code->next_pc; break; LABEL (FLAG_CLEAR): /* clear flags */ N = 0; Z = 1; V = 0; C = 0; pc = code->next_pc; break; condtrue: pc = arga; goto next; } ENDDISPATCH; DISPATCH (code->dst.type) { unsigned char *lval; LABEL (STORE_CRB): (*(code->dst.reg.segptr)) = cpu.memory + (res << 16); break; LABEL (STORE_NOP): break; LABEL (STORE_REG_B): (*(code->dst.reg.bptr)) = res; break; LABEL (STORE_REG_W): (*(code->dst.reg.wptr)) = res; break; LABEL (STORE_REG_L): { int l, r; r = (union rtype *) (code->dst.reg.wptr) - &cpu.regs[0]; r++; *(code->dst.reg.wptr) = res >> 16; cpu.regs[r].s[LOW] = res & 0xffff; } break; LABEL (STORE_DISP_W): lval = displval (code->dst); setwordat (lval, res); break; LABEL (STORE_DISP_B): lval = displval (code->dst); setbyteat (lval, res); break; LABEL (STORE_INC_B): lval = elval (code->dst, 0); setbyteat (lval, res); (*(code->dst.reg.wptr))++; break; LABEL (STORE_INC_W): lval = elval (code->dst, 0); setwordat (lval, res); (*(code->dst.reg.wptr)) += 2; break; LABEL (STORE_DEC_B): (*(code->dst.reg.wptr))--; lval = elval (code->dst, 0); setbyteat (lval, res); break; LABEL (STORE_CRW): /* Make an up to date sr from the flag state */ cpu.regs[R_SR].s[LOW] = res; GETSR (); break; LABEL (STORE_DEC_W): (*(code->dst.reg.wptr)) -= 2; lval = elval (code->dst, 0); setwordat (lval, res); break; nextpc: pc = code->next_pc; } ENDDISPATCH; next:; } while (!cpu.exception); cpu.ticks += get_now () - tick_start; cpu.cycles += cycles; cpu.insts += insts; cpu.regs[R_PC].s[LOW] = pc; BUILDSR (); signal (SIGINT, prev); } int sim_write (addr, buffer, size) SIM_ADDR addr; unsigned char *buffer; int size; { int i; init_pointers (); if (addr < 0 || addr + size > MSIZE) return 0; for (i = 0; i < size; i++) { cpu.memory[addr + i] = buffer[i]; cpu.cache_idx[addr + i] = 0; } return size; } int sim_read (addr, buffer, size) SIM_ADDR addr; unsigned char *buffer; int size; { init_pointers (); if (addr < 0 || addr + size > MSIZE) return 0; memcpy (buffer, cpu.memory + addr, size); return size; } /* Ripped off from tm-h8500.h */ #define R0_REGNUM 0 #define R1_REGNUM 1 #define R2_REGNUM 2 #define R3_REGNUM 3 #define R4_REGNUM 4 #define R5_REGNUM 5 #define R6_REGNUM 6 #define R7_REGNUM 7 /* As above, but with correct seg register glued on */ #define PR0_REGNUM 8 #define PR1_REGNUM 9 #define PR2_REGNUM 10 #define PR3_REGNUM 11 #define PR4_REGNUM 12 #define PR5_REGNUM 13 #define PR6_REGNUM 14 #define PR7_REGNUM 15 #define SP_REGNUM PR7_REGNUM /* Contains address of top of stack */ #define FP_REGNUM PR6_REGNUM /* Contains address of executing stack frame */ #define SEG_C_REGNUM 16 /* Segment registers */ #define SEG_D_REGNUM 17 #define SEG_E_REGNUM 18 #define SEG_T_REGNUM 19 #define CCR_REGNUM 20 /* Contains processor status */ #define PC_REGNUM 21 /* Contains program counter */ #define CYCLE_REGNUM 22 #define INST_REGNUM 23 #define TICK_REGNUM 24 void sim_store_register (rn, value) int rn; unsigned char *value; { int seg = 0; int reg = -1; init_pointers (); switch (rn) { case PC_REGNUM: SET_SEGREG (R_CP, (value[1]<<16)); cpu.regs[rn].s[LOW] = (value[2] << 8) | value[3]; break; case SEG_C_REGNUM: case SEG_D_REGNUM: case SEG_E_REGNUM: case SEG_T_REGNUM: seg = rn - SEG_C_REGNUM + R_CP; reg = -1; break; default: abort (); case R0_REGNUM: case R1_REGNUM: case R2_REGNUM: case R3_REGNUM: case R4_REGNUM: case R5_REGNUM: case R6_REGNUM: case R7_REGNUM: seg = 0; reg = rn - R0_REGNUM; break; case CCR_REGNUM: seg = 0; reg = R_SR; break; case CYCLE_REGNUM: cpu.cycles = (value[0] << 24) | (value[1] << 16) | (value[2] << 8) | value[3]; return; case INST_REGNUM: cpu.insts = (value[0] << 24) | (value[1] << 16) | (value[2] << 8) | value[3]; return; case TICK_REGNUM: cpu.ticks = (value[0] << 24) | (value[1] << 16) | (value[2] << 8) | value[3]; return; case PR0_REGNUM: case PR1_REGNUM: case PR2_REGNUM: case PR3_REGNUM: case PR4_REGNUM: case PR5_REGNUM: case PR6_REGNUM: case PR7_REGNUM: SET_SEGREG (segforreg[rn], value[1]); reg = rn - PR0_REGNUM; cpu.regs[reg].s[LOW] = (value[2] << 8) | value[3]; return; } if (seg) SET_SEGREG (seg, value[0] << 16); if (reg > 0) { cpu.regs[reg].s[LOW] = (value[0] << 8) | value[1]; } } void sim_fetch_register (rn, buf) int rn; unsigned char *buf; { init_pointers (); switch (rn) { default: abort (); case SEG_C_REGNUM: case SEG_D_REGNUM: case SEG_E_REGNUM: case SEG_T_REGNUM: buf[0] = GET_SEGREG(rn - SEG_C_REGNUM + R_CP); break; case CCR_REGNUM: buf[0] = cpu.regs[R_SR].s[HIGH]; buf[1] = cpu.regs[R_SR].s[LOW]; break; case PC_REGNUM: buf[0] = 0; buf[1] = GET_SEGREG(R_CP); buf[2] = HIGH_BYTE (cpu.regs[R_PC].s[LOW]); buf[3] = LOW_BYTE (cpu.regs[R_PC].s[LOW]); break; case PR0_REGNUM: case PR1_REGNUM: case PR2_REGNUM: case PR3_REGNUM: case PR4_REGNUM: case PR5_REGNUM: case PR6_REGNUM: case PR7_REGNUM: rn -= PR0_REGNUM; buf[0] = 0; buf[1] = GET_SEGREG(segforreg[rn]); buf[2] = HIGH_BYTE (cpu.regs[rn].s[LOW]); buf[3] = LOW_BYTE (cpu.regs[rn].s[LOW]); break; case R0_REGNUM: case R1_REGNUM: case R2_REGNUM: case R3_REGNUM: case R4_REGNUM: case R5_REGNUM: case R6_REGNUM: case R7_REGNUM: buf[0] = HIGH_BYTE (cpu.regs[rn].s[LOW]); buf[1] = LOW_BYTE (cpu.regs[rn].s[LOW]); break; case CYCLE_REGNUM: buf[0] = cpu.cycles >> 24; buf[1] = cpu.cycles >> 16; buf[2] = cpu.cycles >> 8; buf[3] = cpu.cycles >> 0; break; case TICK_REGNUM: buf[0] = cpu.ticks >> 24; buf[1] = cpu.ticks >> 16; buf[2] = cpu.ticks >> 8; buf[3] = cpu.ticks >> 0; break; case INST_REGNUM: buf[0] = cpu.insts >> 24; buf[1] = cpu.insts >> 16; buf[2] = cpu.insts >> 8; buf[3] = cpu.insts >> 0; break; } } int sim_trace () { int i; for (i = 0; i < 12; i += 2) { unsigned char *p = cpu.regs[R_TP].c + ((cpu.regs[R6].s[LOW] + i) & 0xffff); unsigned short *j = (unsigned short *) p; printf ("%04x ", *j); } printf ("\n"); printf ("%02x %02x %02x %02x:%04x %04x %04x %04x %04x %04x %04x %04x %04x\n", NORMAL_DP, NORMAL_EP, NORMAL_TP, NORMAL_CP, cpu.regs[R_PC].s[LOW], cpu.regs[0].s[LOW], cpu.regs[1].s[LOW], cpu.regs[2].s[LOW], cpu.regs[3].s[LOW], cpu.regs[4].s[LOW], cpu.regs[5].s[LOW], cpu.regs[6].s[LOW], cpu.regs[7].s[LOW]); sim_resume (1, 0); return 0; } void sim_stop_reason (reason, sigrc) enum sim_stop *reason; int *sigrc; { *reason = sim_stopped; *sigrc = cpu.exception; } sim_csize (n) { if (cpu.cache) free (cpu.cache); if (n < 2) n = 2; cpu.cache = (decoded_inst *) malloc (sizeof (decoded_inst) * n); cpu.csize = n; } void sim_info (verbose) int verbose; { double timetaken = (double) cpu.ticks / (double) now_persec (); double virttime = cpu.cycles / 10.0e6; printf_filtered ("\n\ninstructions executed %10d\n", cpu.insts); printf_filtered ("cycles (v approximate) %10d\n", cpu.cycles); printf_filtered ("real time taken %10.4f\n", timetaken); printf_filtered ("virtual time taked %10.4f\n", virttime); if (timetaken) { printf_filtered ("simulation ratio %10.4f\n", virttime / timetaken); } printf_filtered ("compiles %10d\n", cpu.compiles); printf_filtered ("cache size %10d\n", cpu.csize); } void sim_kill() { /* nothing to do */ } void sim_open (args) char *args; { /* nothing to do */ } void sim_close (quitting) int quitting; { /* nothing to do */ } int sim_load (prog, from_tty) char *prog; int from_tty; { /* Return nonzero so gdb will handle it. */ return 1; } void sim_create_inferior (start_address, argv, env) SIM_ADDR start_address; char **argv; char **env; { /* ??? We assume this is a 4 byte quantity. */ int pc; pc = start_address; sim_store_register (PC_REGNUM, (unsigned char *) &pc); } gdb-4.13/sim/h8500/configure.in 666 34562 1752 1424 5354412504 14405 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. srctrigger=compile.c srcname="h8500sim" # per-host: . ${srcdir}/../../bfd/configure.host # Set up to make a link between the host's include file and "sysdep.h". files="../../bfd/hosts/${my_host}.h" links="sysdep.h" if [ ! -f ${srcdir}/${files} ] ; then if [ -n "${my_host}" ] ; then echo '***' No file ${srcdir}/${files} 1>&2 fi echo '***' ${srcname} does not support host ${host} 1>&2 exit 1 fi host_makefile_frag= if [ -f ${srcdir}/../../bfd/config/${my_host}.mh ] ; then host_makefile_frag=../../bfd/config/${my_host}.mh fi # per-target: gdb-4.13/sim/h8500/h8500.mt 666 34562 1752 71 5415403236 13137 0ustar fnfcygnusALL=all-h8500 CLEAN=clean-h8500 DO_INSTALL=install-h8500 gdb-4.13/sim/h8500/inst.h 666 34562 1752 2422 5414722564 13230 0ustar fnfcygnus#define DEBUG #define MSIZE (8*64*1024) #define CSIZE 1000 union rtype { unsigned long l; unsigned short s[2]; unsigned char *c; }; /* Local register names */ typedef enum { R0, R1, R2, R3, R4, R5, R6, R7, R_SR, /* 8 */ R_PC, /* 9 */ R_BR, /* 10 */ R_BP, /* 11 */ R_CP, /* 14 */ R_DP, /* 13 */ R_EP, /* 12 */ R_TP, /* 15 */ R_HARD_0, /* 16 */ R_HARD8_0, /* 17 */ R_LAST, } reg_type; typedef struct { fastref type; union { int code; unsigned char *bptr; unsigned short *wptr; unsigned long *lptr; unsigned char **segptr; union rtype *rptr; } reg; int literal; union { unsigned char **segreg; unsigned short *wptr; union rtype *rptr; } r2; } ea_type; typedef struct { ea_type srca; ea_type srcb; ea_type dst; fastref opcode; fastref flags; int next_pc; int oldpc; int cycles; #ifdef DEBUG h8500_opcode_info *op; #endif } decoded_inst; typedef struct { int exception; union rtype regs[20]; unsigned char *memory; unsigned short *cache_idx; int cache_top; int maximum; int csize; decoded_inst *cache; int cycles; int insts; int ticks; int compiles; } cpu_state_type; gdb-4.13/sim/h8500/run.c 666 34562 1752 4515 5566501152 13053 0ustar fnfcygnus/* run front end support for H8/500 Copyright (C) 1987, 1992 Free Software Foundation, Inc. This file is part of H8300 SIM GNU CC 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 2, or (at your option) any later version. GNU CC 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 GNU CC; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Steve Chamberlain sac@cygnus.com */ #include #include #include "../../bfd/bfd.h" #include "sysdep.h" #include "remote-sim.h" int main (ac, av) int ac; char **av; { bfd *abfd; bfd_vma start_address; asection *s; int i; int verbose = 0; int trace = 0; char *name = ""; for (i = 1; i < ac; i++) { if (strcmp (av[i], "-v") == 0) { verbose = 1; } else if (strcmp (av[i], "-t") == 0) { trace = 1; } else if (strcmp (av[i], "-c") == 0) { int csize; csize = atoi (av[i + 1]); sim_csize (csize); i++; } else { name = av[i]; } } if (verbose) { printf ("run %s\n", name); } abfd = bfd_openr (name, "coff-h8500"); if (abfd) { if (bfd_check_format (abfd, bfd_object)) { for (s = abfd->sections; s; s = s->next) { unsigned char *buffer = malloc (bfd_section_size (abfd, s)); bfd_get_section_contents (abfd, s, buffer, 0, bfd_section_size (abfd, s)); sim_write (s->vma, buffer, bfd_section_size (abfd, s)); } start_address = bfd_get_start_address (abfd); sim_create_inferior (start_address, NULL, NULL); if (trace) { int done = 0; while (!done) { done = sim_trace (); } } else { sim_resume (0, 0); } if (verbose) sim_info (0); return 0; } } return 1; } void printf_filtered (va_alist) va_dcl { char *msg; va_list args; va_start (args); msg = va_arg (args, char *); vfprintf (stdout, msg, args); va_end (args); } gdb-4.13/sim/sh/ 777 34562 1752 0 5623251237 11664 5ustar fnfcygnusgdb-4.13/sim/sh/ChangeLog 666 34562 1752 7451 5603673544 13534 0ustar fnfcygnusMon Jun 27 18:04:54 1994 Steve Chamberlain (sac@cirdan.cygnus.com) * run.c (main): Specify the file type again. Thu May 26 19:04:37 1994 Steve Chamberlain (sac@thepub.cygnus.com) * interp.c (trap): Fix irix incompatibility. * run.c (main): open without specifying file type. Wed May 18 14:18:53 1994 Doug Evans (dje@canuck.cygnus.com) * interp.c (sim_*): Make result void where there isn't one. (sim_set_pc): Delete. (sim_info): Delete printf_fn arg, all callers changed. Call printf_filtered instead. (sim_close): New function. (sim_load): New function. (sim_create_inferior): Renamed from sim_set_args, all callers changed. * run.c: #include , "remote-sim.h". (printf_filtered): New function. Wed Apr 27 12:03:48 1994 Steve Chamberlain (sac@cygnus.com) * gencode.c (table): Get direction of some opcodes right. (trapa, rte): Implement fully. * interp.c (trap): Make stat call more portable. Fri Feb 11 21:59:38 1994 Steve Chamberlain (sac@sphagnum.cygnus.com) * gencode.c (main, gendefines): New -d option prints table of defines. * interp.c (trap): Add a load of system calls. (sim_memory_size): Now default to 8Mbyte. (PARANOID): Keep vector of registers with undefined contents. Mon Nov 15 14:37:18 1993 Steve Chamberlain (sac@jonny.cygnus.com) * gencode.c: mova uses aligned addresses * interp.c (trap): Return results in r0. Tue Oct 26 10:38:55 1993 Doug Evans (dje@canuck.cygnus.com) * Makefile.in (CSEARCH): Add -I$(srcdir)/../../gdb * interp.c: #include "remote-sim.h". (sim_resume): int result, new arg `siggnal'. (sim_write): Use SIM_ADDR for type of arg `addr'. (sim_read): Use SIM_ADDR for type of arg `addr'. Use unsigned char * for `buffer'. (sim_store_register): int result. (sim_fetch_register): Ditto. (sim_stop_reason): Renamed from sim_stop_signal. New arg `reason'. (sim_set_pc): int result, use SIM_ADDR for type of arg `x'. (sim_info): int result, new args `verbose', `printf_fn'. (sim_kill): int result. (sim_open): int result, new arg `name'. * run.c: #include (main): Update call to sim_info. Sat Oct 23 15:09:29 1993 Doug Evans (dje@canuck.cygnus.com) * interp.c (sim_stop_signal): Result is now enum sim_stop. Fri Oct 8 10:47:09 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * gencode.c (table): Becomes unsigned. * interp.c (trap): Get right breakpoint SIGnum. (sim_write, sim_read): Return number of bytes copied. (sim_store_register): Value passed by reference. (sim_kill, sim_open, sim_set_args): New functions. Tue Sep 7 16:24:13 1993 Stan Shebs (shebs@rtl.cygnus.com) * interp.c (sim_info): Fix small typo in printf string. Thu Aug 5 11:37:48 1993 Stan Shebs (shebs@rtl.cygnus.com) * interp.c (sim_resume): Set memory after pointers inited. Mon Aug 2 14:13:22 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * interp.c (get_now): Use time system call. * Makefile.in: install correctly. Tue Jul 6 10:30:46 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * run.c (main), interp.c (sim_set_timeout): Remove timeout functionality. Thu Jun 24 13:29:57 1993 david d `zoo' zuhn (zoo at rtl.cygnus.com) * Makefile.in: don't run indent everytime; also add a space in the includes Thu Jun 17 18:30:42 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * gencode.c: Fix some opcodes. * interp.c: Support for profiling and portability fixes. * run.c (main): Get profiling args. Wed May 5 13:17:22 1993 Steve Chamberlain (sac@cygnus.com) * gencode.c (tab): Lint for sgi compiler * interp.c: Lint for sgi compiler. Mon May 3 15:25:33 1993 Steve Chamberlain (sac@thepub.cygnus.com) * run.c (main): Support for resizing simulated RAM. * Makefile.in: Support for broken makes. * interp.c, gencode.c: Lint. Mon Apr 26 18:01:10 1993 Steve Chamberlain (sac@thepub.cygnus.com) * created gdb-4.13/sim/sh/Makefile.in 666 34562 1752 10763 5463263004 14035 0ustar fnfcygnus# Makefile template for Configure for the h8300sim library. # Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc. # Written by Cygnus Support. # # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. srcdir = . srcroot = $(srcdir)/../../ prefix = /usr/local program_transform_name = exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib tooldir = $(libdir)/$(target_alias) datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include oldincludedir = docdir = $(srcdir)/doc SHELL = /bin/sh INSTALL = $(srcroot)/install.sh -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) INSTALL_XFORM = $(INSTALL) -t='$(program_transform_name)' INSTALL_XFORM1= $(INSTALL_XFORM) -b=.1 CC_FOR_BUILD = cc AR = ar AR_FLAGS = qc CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib INCDIR = $(srcdir)/../../include CSEARCH = -I. -I$(srcdir) -I../../include -I../../bfd -I$(INCDIR) -I$(srcdir)/../../bfd -I$(srcdir)/../../gdb DEP = mkdep #### host, target, and site specific Makefile frags come in here. all: run run: interp.o run.o table.o $(CC) $(CFLAGS) -o run interp.o table.o run.o ../../bfd/libbfd.a ../../libiberty/libiberty.a interp.o:interp.c code.c table.c run.o:run.c code.c:gencode ./gencode -x >code.c # indent code.c table.c:gencode ./gencode -s >table.c # indent table.c gencode:gencode.c $(CC_FOR_BUILD) -o gencode $< #### host and target dependent Makefile fragments come in here. ### FLAGS_TO_PASS = \ "against=$(against)" \ "AR=$(AR)" \ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CFLAGS=$(CFLAGS)" \ "RANLIB=$(RANLIB)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "BISON=$(BISON)" .c.o: $(CC) -c $(CFLAGS) $(HDEFINES) $(TDEFINES) $(CSEARCH) $(CSWITCHES) $< .NOEXPORT: check: info: clean-info: install-info: # HDEPFILES comes from the host config; TDEPFILES from the target config. tags etags: TAGS TAGS: force etags $(INCDIR)/*.h $(srcdir)/*.h $(srcdir)/*.c clean: rm -f *.[oa] *~ core *.E *.p *.ip aout-params.h gen-aout clobber realclean: clean rm -f libbfd.a TAGS # Mark everything as depending on config.status, since the timestamp on # sysdep.h might actually move backwards if we reconfig and relink it # to a different hosts/h-xxx.h file. This will force a recompile anyway. RECONFIG = config.status # This target should be invoked before building a new release. # 'VERSION' file must be present and contain a string of the form "x.y" # roll: @V=`cat VERSION` ; \ MAJ=`sed 's/\..*//' VERSION` ; \ MIN=`sed 's/.*\.//' VERSION` ; \ V=$$MAJ.`expr $$MIN + 1` ; \ rm -f VERSION ; \ echo $$V >VERSION ; \ echo Version $$V # Dummy target to force execution of dependent targets. # force: # Copy the files into directories where they will be run. install: srcroot=`cd $(srcroot); pwd`; export srcroot; \ $(INSTALL_XFORM) run $(bindir)/run ; \ n=`t='$(program_transform_name)'; echo run | sed -e "" $$t`; \ if [ -d $(tooldir) ] ; then \ if [ -d $(tooldir)/bin ] ; then true ; else mkdir $(tooldir)/bin ; fi; \ rm -f $(tooldir)/bin/run; \ ln $(bindir)/$$n $(tooldir)/bin/run \ || $(INSTALL_PROGRAM) run $(tooldir)/bin/run; \ else true; fi install-man: run.1 $(INSTALL_XFORM1) $(srcdir)/run.1 $(man1dir)/run.1 Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status dep: $(CFILES) mkdep $(CFLAGS) $? # What appears below is generated by a hacked mkdep using gcc -MM. # DO NOT DELETE THIS LINE -- mkdep uses it. # DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. # IF YOU PUT ANYTHING HERE IT WILL GO AWAY gdb-4.13/sim/sh/configure.in 666 34562 1752 1422 5367114127 14255 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. srctrigger=interp.c srcname="shsim" # per-host: . ${srcdir}/../../bfd/configure.host # Set up to make a link between the host's include file and "sysdep.h". files="../../bfd/hosts/${my_host}.h" links="sysdep.h" if [ ! -f ${srcdir}/${files} ] ; then if [ -n "${my_host}" ] ; then echo '***' No file ${srcdir}/${files} 1>&2 fi echo '***' ${srcname} does not support host ${host} 1>&2 exit 1 fi host_makefile_frag= if [ -f ${srcdir}/../../bfd/config/${my_host}.mh ] ; then host_makefile_frag=../../bfd/config/${my_host}.mh fi # per-target: gdb-4.13/sim/sh/gencode.c 666 34562 1752 54152 5557534364 13556 0ustar fnfcygnus/* Simulator/Opcode generator for the Hitachi Super-H architecture. Written by Steve Chamberlain of Cygnus Support. sac@cygnus.com This file is part of SH sim THIS SOFTWARE IS NOT COPYRIGHTED Cygnus offers the following for use in the public domain. Cygnus makes no warranty with regard to the software or it's performance and the user accepts the software "AS IS" with all faults. CYGNUS DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. */ /* This program generates the opcode table for the assembler and the simulator code -t prints a pretty table for the assembler manual -s generates the simulator code jump table -d generates a define table -x generates the simulator code switch statement default generates the opcode tables */ #include typedef struct { char *defs; char *refs; char *name; char *code; char *stuff[10]; int index; } op; op tab[] = { {"n","","add #,", "0111nnnni8*1....", "R[n] += SEXT(i);if (i == 0) { UNDEF(n); break; } "}, {"n","mn","add ,", "0011nnnnmmmm1100", "R[n] += R[m];"}, {"n","mn","addc ,", "0011nnnnmmmm1110", "ult = R[n]; R[n] += (R[m]+T); T = ult>R[n];"}, {"n","mn","addv ,", "0011nnnnmmmm1111", "{long ans;", " ans = R[n] + R[m];", "T = ((~R[n] & R[m] & ans) | (R[n] & R[m] & ~ans)) >>31;", "R[n] = ans;}"}, {"0","","and #,R0", "11001001i8*1....", ";R0&=i;"}, {"n","nm","and ,", "0010nnnnmmmm1001", " R[n]&=R[m];"}, {"","0","and.b #,@(R0,GBR)", "11001101i8*1....", ";WBAT(GBR+R0, RBAT(GBR+R0) & i);"}, {"","","bra ", "1010i12.........", "ult = PC; PC=PC+(i<<1)+2;SL(ult+2);"}, {"","","bsr ", "1011i12.........", "PR = PC; PC=PC+(i<<1)+2;SL(PR+2);"}, {"","","bt ", "10001001i8p1....", "if(T) {PC+=(SEXT(i)<<1)+2;C+=2;}"}, {"","","bf ", "10001011i8p1....", "if(T==0) {PC+=(SEXT(i)<<1)+2;C+=2;}"}, {"","","bt.s ", "10001101i8p1....","if(T) {ult = PC; PC+=(SEXT(i)<<1)+2;C+=2;SL(ult+2);}"}, {"","","bf.s ", "10001111i8p1....","if(!T) {ult = PC; PC+=(SEXT(i)<<1)+2;C+=2;SL(ult+2);}"}, {"","","clrmac", "0000000000101000", "MACH = MACL = 0;"}, {"","","clrt", "0000000000001000", "T= 0;"}, {"","0","cmp/eq #,R0", "10001000i8*1....", ";T = R0 == SEXT(i);"}, {"","mn","cmp/eq ,", "0011nnnnmmmm0000", "T=R[n]==R[m];"}, {"","mn","cmp/ge ,", "0011nnnnmmmm0011", "T=R[n]>=R[m];"}, {"","mn","cmp/gt ,", "0011nnnnmmmm0111", "T=R[n]>R[m];"}, {"","mn","cmp/hi ,", "0011nnnnmmmm0110", "T=UR[n]>UR[m];"}, {"","mn","cmp/hs ,", "0011nnnnmmmm0010", "T=UR[n]>=UR[m];"}, {"","n","cmp/pl ", "0100nnnn00010101", "T = R[n]>0;"}, {"","n","cmp/pz ", "0100nnnn00010001", "T = R[n]>=0;"}, {"","mn","cmp/str ,", "0010nnnnmmmm1100", "ult = R[n] ^ R[m]; T=((ult&0xff000000)==0) |((ult&0xff0000)==0) |((ult&0xff00)==0) |((ult&0xff)==0); "}, {"","mn","div0s ,", "0010nnnnmmmm0111", "Q=(R[n]&sbit)!=0; M=(R[m]&sbit)!=0; T=M!=Q;;"}, {"","","div0u", "0000000000011001", "M=Q=T=0;"}, {"","","div1 ,", "0011nnnnmmmm0100", "T=div1(R,m,n,T);"}, {"n","m","exts.b ,", "0110nnnnmmmm1110", "R[n] = SEXT(R[m]);"}, {"n","m","exts.w ,", "0110nnnnmmmm1111", "R[n] = SEXTW(R[m]);"}, {"n","m","extu.b ,", "0110nnnnmmmm1100", "R[n] = R[m] & 0xff;"}, {"n","m","extu.w ,", "0110nnnnmmmm1101", "R[n] = R[m] & 0xffff;"}, {"","n","jmp @", "0100nnnn00101011", "ult = PC; PC=R[n]-2; SL(ult+2);"}, {"","n","jsr @", "0100nnnn00001011", "PR = PC; PC=R[n]-2; if (~doprofile) gotcall(PR,PC+2);SL(PR+2);"}, {"","n","ldc ,GBR", "0100nnnn00011110", "GBR=R[n];"}, {"","n","ldc ,SR", "0100nnnn00001110", "SET_SR(R[n]);"}, {"","n","ldc ,VBR", "0100nnnn00101110", "VBR=R[n];"}, {"","n","ldc.l @+,GBR", "0100nnnn00010111", "GBR=RLAT(R[n]);R[n]+=4;;"}, {"","n","ldc.l @+,SR", "0100nnnn00000111", "SET_SR(RLAT(R[n]));R[n]+=4;;"}, {"","n","ldc.l @+,VBR", "0100nnnn00100111", "VBR=RLAT(R[n]);R[n]+=4;;"}, {"","n","lds ,MACH", "0100nnnn00001010", "MACH = R[n];"}, {"","n","lds ,MACL", "0100nnnn00011010", "MACL= R[n];"}, {"","n","lds ,PR", "0100nnnn00101010", "PR = R[n];"}, {"","n","lds.l @+,MACH", "0100nnnn00000110", "MACH = SEXT(RLAT(R[n]));R[n]+=4;"}, {"","n","lds.l @+,MACL", "0100nnnn00010110", "MACL = RLAT(R[n]);R[n]+=4;"}, {"","n","lds.l @+,PR", "0100nnnn00100110", "PR = RLAT(R[n]);R[n]+=4;;"}, {"","n","mac.w @+,@+", "0100nnnnmmmm1111", "abort();"}, {"n","","mov #,", "1110nnnni8*1....", "R[n] = SEXT(i);"}, {"n","m","mov ,", "0110nnnnmmmm0011", "R[n] = R[m];"}, {"","mn0","mov.b ,@(R0,)", "0000nnnnmmmm0100", "WBAT(R[n]+R0, R[m]);"}, {"","nm","mov.b ,@-", "0010nnnnmmmm0100", "R[n]--; WBAT(R[n],R[m]);"}, {"","mn","mov.b ,@", "0010nnnnmmmm0000", "WBAT(R[n], R[m]);"}, {"0","m","mov.b @(,),R0", "10000100mmmmi4*1", "R0=RSBAT(i+R[m]);L(0);"}, {"0","","mov.b @(,GBR),R0", "11000100i8*1....", "R0=RSBAT(i+GBR);L(0);"}, {"n","0m","mov.b @(R0,),", "0000nnnnmmmm1100", "R[n]=RSBAT(R0+R[m]);L(n);"}, {"n","m","mov.b @+,", "0110nnnnmmmm0100", "R[n] = RSBAT(R[m]);L(n);R[m]++;"}, {"n","m","mov.b @,", "0110nnnnmmmm0000", "R[n]=RSBAT(R[m]);L(n);"}, {"","m0","mov.b R0,@(,)", "10000000mmmmi4*1", "WBAT(i+R[m],R0);"}, {"","0","mov.b R0,@(,GBR)", "11000000i8*1....", "WBAT(i+GBR,R0);"}, {"","nm","mov.l ,@(,)", "0001nnnnmmmmi4*4", "WLAT(i+R[n],R[m]);"}, {"","nm0","mov.l ,@(R0,)", "0000nnnnmmmm0110", "WLAT(R0+R[n],R[m]);"}, {"","nm","mov.l ,@-", "0010nnnnmmmm0110", "R[n]-=4;WLAT(R[n],R[m]);"}, {"","nm","mov.l ,@", "0010nnnnmmmm0010", "WLAT(R[n], R[m]);"}, {"n","m","mov.l @(,),","0101nnnnmmmmi4*4", "R[n]=RLAT(i+R[m]);L(n);"}, {"0","","mov.l @(,GBR),R0", "11000110i8*4", "R0=RLAT(i+GBR);L(0);"}, {"n","","mov.l @(,PC),", "1101nnnni8p4....", "R[n]=RLAT(i+4+PC);L(n);"}, {"n","m","mov.l @(R0,),", "0000nnnnmmmm1110", "R[n]=RLAT(R0+R[m]);L(n);"}, {"nm","m","mov.l @+,", "0110nnnnmmmm0110", "R[n]=RLAT(R[m]);R[m]+=4;L(n);"}, {"n","m","mov.l @,", "0110nnnnmmmm0010", "R[n]=RLAT(R[m]);L(n);"}, {"","0","mov.l R0,@(,GBR)", "11000010i8*4....", "WLAT(i+GBR,R0);"}, {"","m0n","mov.w ,@(R0,)", "0000nnnnmmmm0101", "WWAT(R0+R[n],R[m]);"}, {"n","mn","mov.w ,@-", "0010nnnnmmmm0101", "R[n]-=2;WWAT(R[n],R[m]);"}, {"","nm","mov.w ,@", "0010nnnnmmmm0001", "WWAT(R[n],R[m]);"}, {"0","m","mov.w @(,),R0", "10000101mmmmi4*2", "R0=RSWAT(i+R[m]);L(0);"}, {"0","","mov.w @(,GBR),R0", "11000101i8*2....", "R0=RSWAT(i+GBR);L(0);"}, {"n","","mov.w @(,PC),", "1001nnnni8p2....", "R[n]=RSWAT(PC+i+4);L(n);"}, {"n","m0","mov.w @(R0,),", "0000nnnnmmmm1101", "R[n]=RSWAT(R0+R[m]);L(n);"}, {"nm","n","mov.w @+,", "0110nnnnmmmm0101", "R[n]=RSWAT(R[m]);R[m]+=2;L(n);"}, {"n","m","mov.w @,", "0110nnnnmmmm0001", "R[n]=RSWAT(R[m]);L(n);"}, {"","0m","mov.w R0,@(,)", "10000001mmmmi4*2", "WWAT(i+R[m],R0);"}, {"","0","mov.w R0,@(,GBR)", "11000001i8*2....", "WWAT(i+GBR,R0);"}, {"0","","mova @(,PC),R0", "11000111i8p4....", "R0=((i+4+PC) & ~0x3);"}, {"n","","movt ", "0000nnnn00101001", "R[n]=T;"}, {"","mn","muls ,", "0010nnnnmmmm1111","MACL=((int)(short)R[n])*((int)(short)R[m]);"}, {"","mn","mul.l ,","0000nnnnmmmm0111","MACL=((int)R[n])*((int)R[m]);"}, {"","mn","mulu ,", "0010nnnnmmmm1110","MACL=((unsigned int)(unsigned short)R[n])*((unsigned int)(unsigned short)R[m]);"}, {"n","m","neg ,", "0110nnnnmmmm1011", "R[n] = - R[m];"}, {"n","m","negc ,", "0110nnnnmmmm1010", "ult=0-R[m];R[n]=ult-T;T=SBIT(R[n])!=SBIT(ult);"}, {"","","nop", "0000000000001001", ""}, {"n","m","not ,", "0110nnnnmmmm0111", "R[n]=~R[m];"}, {"0","","or #,R0", "11001011i8*1....", "R0|=i;"}, {"n","m","or ,", "0010nnnnmmmm1011", "R[n]|=R[m];"}, {"","0","or.b #,@(R0,GBR)", "11001111i8*1....", "WBAT(R0+GBR,RBAT(R0+GBR)|i);"}, {"n","n","rotcl ", "0100nnnn00100100", "ult=R[n]<0;R[n]=(R[n]<<1)|T;T=ult;"}, {"n","n","rotcr ", "0100nnnn00100101", "ult=R[n]&1;R[n]=(UR[n]>>1)|(T<<31);T=ult;"}, {"n","n","rotl ", "0100nnnn00000100", "T=R[n]<0;R[n]<<=1;R[n]|=T;"}, {"n","n","rotr ", "0100nnnn00000101", "T=R[n]&1;R[n] = UR[n]>> 1;R[n]|=(T<<31);"}, {"","","rte", "0000000000101011", "{ int tmp = PC; PC=RLAT(R[15])+2;R[15]+=4;SET_SR(RLAT(R[15]) & 0x3f3);R[15]+=4;SL(tmp+2);}"}, {"","","rts", "0000000000001011", "ult=PC;PC=PR+2;SL(ult+2);"}, {"","","sett", "0000000000011000", "T=1;"}, {"n","n","shal ", "0100nnnn00100000", "T=R[n]<0; R[n]<<=1;"}, {"n","n","shar ", "0100nnnn00100001", "T=R[n]&1; R[n] = R[n] >> 1;"}, {"n","n","shll ", "0100nnnn00000000", "T=R[n]<0; R[n]<<=1;"}, {"n","n","shll16 ", "0100nnnn00101000", "R[n]<<=16;"}, {"n","n","shll2 ", "0100nnnn00001000", "R[n]<<=2;"}, {"n","n","shll8 ", "0100nnnn00011000", "R[n]<<=8;"}, {"n","n","shlr ", "0100nnnn00000001", "T=R[n]&1;R[n]=UR[n]>>1;"}, {"n","n","shlr16 ", "0100nnnn00101001", "R[n]=UR[n]>>16;"}, {"n","n","shlr2 ", "0100nnnn00001001", "R[n]=UR[n]>>2;"}, {"n","n","shlr8 ", "0100nnnn00011001", "R[n]=UR[n]>>8;"}, {"","","sleep", "0000000000011011", "trap(255,R0);PC-=2;"}, {"n","","stc GBR,", "0000nnnn00010010", "R[n]=GBR;"}, {"n","","stc SR,", "0000nnnn00000010", "R[n]=GET_SR();"}, {"n","","stc VBR,", "0000nnnn00100010", "R[n]=VBR;"}, {"n","n","stc.l GBR,@-", "0100nnnn00010011", "R[n]-=4;WLAT(R[n],GBR);;"}, {"n","n","stc.l SR,@-", "0100nnnn00000011", "R[n]-=4;WLAT(R[n],GET_SR());"}, {"n","n","stc.l VBR,@-", "0100nnnn00100011", "R[n]-=4;WLAT(R[n],VBR);"}, {"n","","sts MACH,", "0000nnnn00001010", "R[n]=MACH;"}, {"n","","sts MACL,", "0000nnnn00011010", "R[n]=MACL;"}, {"n","","sts PR,", "0000nnnn00101010", "R[n]=PR;"}, {"n","n","sts.l MACH,@-", "0100nnnn00000010", "R[n]-=4;WLAT(R[n],MACH);"}, {"n","n","sts.l MACL,@-", "0100nnnn00010010", "R[n]-=4;WLAT(R[n],MACL);"}, {"n","n","sts.l PR,@-", "0100nnnn00100010", "R[n]-=4;WLAT(R[n],PR);"}, {"n","nm","sub ,", "0011nnnnmmmm1000", "R[n]-=R[m];"}, {"n","nm","subc ,", "0011nnnnmmmm1010", "ult = R[n];R[n]-=R[m]+T;T=ult,", "0011nnnnmmmm1011", "abort();"}, {"n","nm","swap.b ,", "0110nnnnmmmm1000", "R[n]=((R[m]<<8)&0xff00)|((R[m]>>8)&0x00ff);"}, {"n","nm","swap.w ,", "0110nnnnmmmm1001", "R[n]=((R[m]<<16)&0xffff0000)|((R[m]>>16)&0x00ffff);"}, {"","n","tas.b @", "0100nnnn00011011", "ult=RBAT(R[n]);T=ult==0;WBAT(R[n],ult|0x80);"}, {"0","","trapa #", "11000011i8*1....", "{ long imm = 0xff & i; if (i==3) trap(i,R); else { R[15]-=4; WLAT(R[15],GET_SR()); R[15]-=4;WLAT(R[15],PC-2); PC=RLAT(VBR+(imm<<2))+4;}}"}, {"","0","tst #,R0", "11001000i8*1....", "T=(R0&i)==0;"}, {"","mn","tst ,", "0010nnnnmmmm1000", "T=(R[n]&R[m])==0;"}, {"","0","tst.b #,@(R0,GBR)", "11001100i8*1....", "T=(RBAT(GBR+R0)&i)==0;"}, {"","0","xor #,R0", "11001010i8*1....", "R0^=i;"}, {"n","mn","xor ,", "0010nnnnmmmm1010", "R[n]^=R[m];"}, {"","0","xor.b #,@(R0,GBR)", "11001110i8*1....", "ult=RBAT(GBR+R0);ult^=i;WBAT(GBR+R0,ult);"}, {"n","nm","xtrct ,", "0010nnnnmmmm1101", "R[n]=((R[n]>>16)&0xffff)|((R[m]<<16)&0xffff0000);"}, {"","nm","mul.l ,", "0000nnnnmmmm0111", " MACL = R[n] * R[m];"}, {"n","n","dt ", "0100nnnn00010000", "R[n]--; T=R[n] == 0;"}, {"","nm","dmuls.l ,", "0011nnnnmmmm1101", "dmul(1,R[n],R[m]);"}, {"","nm","dmulu.l ,", "0011nnnnmmmm0101", "dmul(0,R[n],R[m]);"}, {"","nm","mac.l @+,@+", "0000nnnnmmmm1111", ""}, #if 0 {"braf @", "0000nnnn00100011", ""}, {"bsrf @", "0000nnnn00000011", ""}, {"divs.l ,", "0100nnnnmmmm1110", "divl(0,R[n],R[m]);"}, {"divu.l ,", "0100nnnnmmmm1101", "divl(0,R[n],R[m]);"}, #endif {0, 0}}; /* Tables of things to put into enums for sh-opc.h */ static char *nibble_type_list[] = { "HEX_0", "HEX_1", "HEX_2", "HEX_3", "HEX_4", "HEX_5", "HEX_6", "HEX_7", "HEX_8", "HEX_9", "HEX_A", "HEX_B", "HEX_C", "HEX_D", "HEX_E", "HEX_F", "REG_N", "REG_M", "BRANCH_12", "BRANCH_8", "DISP_8", "DISP_4", "IMM_4", "IMM_4BY2", "IMM_4BY4", "PCRELIMM_8BY2", "PCRELIMM_8BY4", "IMM_8", "IMM_8BY2", "IMM_8BY4", 0 }; static char *arg_type_list[] = { "A_END", "A_BDISP12", "A_BDISP8", "A_DEC_M", "A_DEC_N", "A_DISP_GBR", "A_DISP_PC", "A_DISP_REG_M", "A_DISP_REG_N", "A_GBR", "A_IMM", "A_INC_M", "A_INC_N", "A_IND_M", "A_IND_N", "A_IND_R0_REG_M", "A_IND_R0_REG_N", "A_MACH", "A_MACL", "A_PR", "A_R0", "A_R0_GBR", "A_REG_M", "A_REG_N", "A_SR", "A_VBR", 0, }; static void make_enum_list (name, s) char *name; char **s; { int i = 1; printf ("typedef enum {\n"); while (*s) { printf ("\t%s,\n", *s); s++; i++; } printf ("} %s;\n", name); } static int qfunc (a, b) op *a; op *b; { char bufa[9]; char bufb[9]; memcpy (bufa, a->code, 4); memcpy (bufa + 4, a->code + 12, 4); bufa[8] = 0; memcpy (bufb, b->code, 4); memcpy (bufb + 4, b->code + 12, 4); bufb[8] = 0; return (strcmp (bufa, bufb)); } static void sorttab () { op *p = tab; int len = 0; while (p->name) { p++; len++; } qsort (tab, len, sizeof (*p), qfunc); } static void printonmatch (ptr, a, rep) char **ptr; char *a; char *rep; { int l = strlen (a); if (strncmp (*ptr, a, l) == 0) { printf ("%s", rep); *ptr += l; if (**ptr) printf (","); } } static void think (o) op *o; { char *n; char *p; printf ("{\""); n = o->name; while (*n && *n != ' ') { printf ("%c", *n); n++; } printf ("\",{"); p = n; if (!*p) { printf ("0"); } while (*p) { while (*p == ',' || *p == ' ') p++; printonmatch (&p, "#", "A_IMM"); printonmatch (&p, "R0", "A_R0"); printonmatch (&p, "", "A_REG_N"); printonmatch (&p, "@+", "A_INC_N"); printonmatch (&p, "@", "A_IND_N"); printonmatch (&p, "@-", "A_DEC_N"); printonmatch (&p, "", " A_REG_M"); printonmatch (&p, "@+", "A_INC_M"); printonmatch (&p, "@", "A_IND_M"); printonmatch (&p, "@-", "A_DEC_M"); printonmatch (&p, "@(,PC)", "A_DISP_PC"); printonmatch (&p, "@(,)", "A_DISP_REG_M"); printonmatch (&p, "@(,)", "A_DISP_REG_N"); printonmatch (&p, "@(R0,)", "A_IND_R0_REG_N"); printonmatch (&p, "@(R0,)", "A_IND_R0_REG_M"); printonmatch (&p, "@(,GBR)", "A_DISP_GBR"); printonmatch (&p, "@(R0,GBR)", "A_R0_GBR"); printonmatch (&p, "", "A_BDISP8"); printonmatch (&p, "", "A_BDISP12"); printonmatch (&p, "SR", "A_SR"); printonmatch (&p, "GBR", "A_GBR"); printonmatch (&p, "VBR", "A_VBR"); printonmatch (&p, "MACH", "A_MACH"); printonmatch (&p, "MACL", "A_MACL"); printonmatch (&p, "PR", "A_PR"); } printf ("},{"); p = o->code; while (*p) { printonmatch (&p, "0000", "HEX_0"); printonmatch (&p, "0001", "HEX_1"); printonmatch (&p, "0010", "HEX_2"); printonmatch (&p, "0011", "HEX_3"); printonmatch (&p, "0100", "HEX_4"); printonmatch (&p, "0101", "HEX_5"); printonmatch (&p, "0110", "HEX_6"); printonmatch (&p, "0111", "HEX_7"); printonmatch (&p, "1000", "HEX_8"); printonmatch (&p, "1001", "HEX_9"); printonmatch (&p, "1010", "HEX_A"); printonmatch (&p, "1011", "HEX_B"); printonmatch (&p, "1100", "HEX_C"); printonmatch (&p, "1101", "HEX_D"); printonmatch (&p, "1110", "HEX_E"); printonmatch (&p, "1111", "HEX_F"); printonmatch (&p, "i8*1....", "IMM_8"); printonmatch (&p, "i4*1", "IMM_4"); printonmatch (&p, "i8p4....", "PCRELIMM_8BY4"); printonmatch (&p, "i8p2....", "PCRELIMM_8BY2"); printonmatch (&p, "i8*2....", "IMM_8BY2"); printonmatch (&p, "i4*2", "IMM_4BY2"); printonmatch (&p, "i8*4....", "IMM_8BY4"); printonmatch (&p, "i4*4", "IMM_4BY4"); printonmatch (&p, "i12.........", "BRANCH_12"); printonmatch (&p, "i8p1....", "BRANCH_8"); printonmatch (&p, "nnnn", "REG_N"); printonmatch (&p, "mmmm", "REG_M"); } printf ("}},\n"); } static void gengastab () { op *p; sorttab (); for (p = tab; p->name; p++) { printf ("%s %-30s\n", p->code, p->name); } } static void genopc () { op *p; make_enum_list ("sh_nibble_type", nibble_type_list); make_enum_list ("sh_arg_type", arg_type_list); printf ("typedef struct {\n"); printf ("char *name;\n"); printf ("sh_arg_type arg[3];\n"); printf ("sh_nibble_type nibbles[4];\n"); printf ("} sh_opcode_info;\n"); printf ("#ifdef DEFINE_TABLE\n"); printf ("sh_opcode_info sh_table[]={\n"); for (p = tab; p->name; p++) { printf ("\n\/\* %s %-20s*/", p->code, p->name); think (p); } printf ("0};\n"); printf ("#endif\n"); } /* Convert a string of 4 binary digits into an int */ static int bton (s) char *s; { int n = 0; int v = 8; while (v) { if (*s == '1') n |= v; v >>= 1; s++; } return n; } static unsigned char table[1 << 16]; /* Take an opcode expand all varying fields in it out and fill all the right entries in 'table' with the opcode index*/ static void expand_opcode (shift, val, i, s) int shift; int val; int i; char *s; { int j; if (*s == 0) { table[val] = i; } else { switch (s[0]) { case '0': case '1': { int n = bton (s); if (n >= 0) { expand_opcode (shift - 4, val | (n << shift), i, s + 4); } break; } case 'n': case 'm': for (j = 0; j < 16; j++) { expand_opcode (shift - 4, val | (j << shift), i, s + 4); } break; default: for (j = 0; j < (1 << (shift + 4)); j++) { table[val | j] = i; } } } } /* Print the jump table used to index an opcode into a switch statement entry. */ static void dumptable () { int lump = 256; int online = 16; int i = 0; while (i < 1 << 16) { int j = 0; printf ("unsigned char sh_jump_table%x[%d]={\n", i, lump); while (j < lump) { int k = 0; while (k < online) { printf ("%2d", table[i + j + k]); if (j + k < lump) printf (","); k++; } j += k; printf ("\n"); } i += j; printf ("};\n"); } } static void filltable () { op *p; int index = 1; sorttab (); for (p = tab; p->name; p++) { p->index = index++; expand_opcode (12, 0, p->index, p->code); } } static void gensim () { op *p; int j; printf ("{\n"); printf ("switch (jump_table[iword]) {\n"); for (p = tab; p->name; p++) { int sextbit = -1; int needm = 0; int needn = 0; char *s = p->code; printf ("\/\* %s %s *\/\n", p->name, p->code); printf ("case %d: \n", p->index); printf ("{\n"); while (*s) { switch (*s) { case '0': case '1': case '.': s += 4; break; case 'n': printf ("int n = (iword >>8) & 0xf;\n"); needn = 1; s += 4; break; case 'm': printf ("int m = (iword >>4) & 0xf;\n"); needm = 1; s += 4; break; case 'i': printf ("int i = (iword & 0x"); switch (s[1]) { case '4': printf ("f"); break; case '8': printf ("ff"); break; case '1': sextbit = 12; printf ("fff"); break; } printf (")"); switch (s[3]) { case '1': break; case '2': printf ("<<1"); break; case '4': printf ("<<2"); break; } printf (";\n"); s += 4; } } if (sextbit > 0) { printf ("i = (i ^ (1<<%d))-(1<<%d);\n", sextbit - 1, sextbit - 1); } if (needm && needn) printf("TB(m,n);"); else if (needm) printf("TL(m);"); else if (needn) printf("TL(n);"); for (j = 0; j < 10; j++) { if (p->stuff[j]) { printf ("%s\n", p->stuff[j]); } } { /* Do the defs and refs */ char *r; for (r = p->refs; *r; r++) { if (*r == '0') printf("CREF(0);\n"); if (*r == 'n') printf("CREF(n);\n"); if (*r == 'm') printf("CREF(m);\n"); } for (r = p->defs; *r; r++) { if (*r == '0') printf("CDEF(0);\n"); if (*r == 'n') printf("CDEF(n);\n"); if (*r == 'm') printf("CDEF(m);\n"); } } printf ("break;\n"); printf ("}\n"); } printf ("}\n}\n"); } static void gendefines () { op *p; filltable(); for (p = tab; p->name; p++) { char *s = p->name; printf ("#define OPC_"); while (*s) { if (isupper(*s)) *s = tolower(*s); if (isalpha(*s)) printf("%c", *s); if (*s == ' ') printf("_"); if (*s == '@') printf("ind_"); if (*s == ',') printf("_"); s++; } printf(" %d\n",p->index); } } int main (ac, av) int ac; char **av; { if (ac > 1) { if (strcmp (av[1], "-t") == 0) { gengastab (); } else if (strcmp (av[1], "-d") == 0) { gendefines (); } else if (strcmp (av[1], "-s") == 0) { filltable (); dumptable (); } else if (strcmp (av[1], "-x") == 0) { filltable (); gensim (); } } else { genopc (); } return 0; } gdb-4.13/sim/sh/interp.c 666 34562 1752 43353 5571252624 13444 0ustar fnfcygnus/* Simulator for the Hitachi SH architecture. Written by Steve Chamberlain of Cygnus Support. sac@cygnus.com This file is part of SH sim THIS SOFTWARE IS NOT COPYRIGHTED Cygnus offers the following for use in the public domain. Cygnus makes no warranty with regard to the software or it's performance and the user accepts the software "AS IS" with all faults. CYGNUS DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. */ #include #include "sysdep.h" #include #include #include "bfd.h" #include "remote-sim.h" #include "../../newlib/libc/sys/sh/sys/syscall.h" #define O_RECOMPILE 85 #define DEFINE_TABLE #define DISASSEMBLER_TABLE #define SBIT(x) ((x)&sbit) #define R0 saved_state.asregs.regs[0] #define Rn saved_state.asregs.regs[n] #define Rm saved_state.asregs.regs[m] #define UR0 (unsigned int)(saved_state.asregs.regs[0]) #define UR (unsigned int)R #define UR (unsigned int)R #define SR0 saved_state.asregs.regs[0] #define GBR saved_state.asregs.gbr #define VBR saved_state.asregs.vbr #define MACH saved_state.asregs.mach #define MACL saved_state.asregs.macl #define M saved_state.asregs.sr.bits.m #define Q saved_state.asregs.sr.bits.q #define GET_SR() (saved_state.asregs.sr.bits.t = T, saved_state.asregs.sr.word) #define SET_SR(x) {saved_state.asregs.sr.word = (x); T =saved_state.asregs.sr.bits.t;} #define PC pc #define C cycles char *fail() { } /* Define this to enable register lifetime checking. The compiler generates "add #0,rn" insns to mark registers as invalid, the simulator uses this info to call fail if it finds a ref to an invalid register before a def #define PARANOID */ #ifdef PARANOID int valid[16]; #define CREF(x) if(!valid[x]) fail(); #define CDEF(x) valid[x] = 1; #define UNDEF(x) valid[x] = 0; #else #define CREF(x) #define CDEF(x) #define UNDEF(x) #endif #ifdef TARGET_BIG_ENDIAN #if 0 #define LMEM(x) *((long *)(memory+((x)&maskl))) #define BMEM(x) *((char *)(memory+((x)&maskb))) #define UWMEM(x) *((unsigned short *)(memory+((x)&maskw))) #define SWMEM(x) *((short *)(memory+((x)&maskw))) #define WLAT(x,value) (LMEM(x) = value) #define RLAT(x) (LMEM(x)) #define WWAT(x,value) (UWMEM(x) = value) #define RSWAT(x) (SWMEM(x)) #define RUWAT(x) (UWMEM(x)) #define WBAT(x,value) (BMEM(x) = value) #define RBAT(x) (BMEM(x)) #else #define LMEM(x) ((x)&maskl ? fail() : *((long *)(memory+((x)&maskl)))) #define BMEM(x) ((x) &maskb ? fail() : *((char *)(memory+((x)&maskb)))) #define UWMEM(x) ((x)&maskw ? fail() : *((unsigned short *)(memory+((x)&maskw)))) #define SWMEM(x) ((x)&maskw ? fail() : *((short *)(memory+((x)&maskw)))) #define WLAT(x,value) (LMEM(x) = value) #define RLAT(x) (LMEM(x)) #define WWAT(x,value) (UWMEM(x) = value) #define RSWAT(x) (SWMEM(x)) #define RUWAT(x) (UWMEM(x)) #define WBAT(x,value) (BMEM(x) = value) #define RBAT(x) (BMEM(x)) #endif #else /* For little endian or unknown host machines */ #define WLAT(x,value)\ { int v = value; unsigned char *p = memory + ((x) & maskl);\ p[0] =v>>24;p[1] = v>>16;p[2]=v>>8;p[3]=v; } #define WWAT(x,value)\ { int v = value; unsigned char *p = memory + (x & maskw);p[0] =v>>8;p[1] = v ;} #define WBAT(x,value)\ { unsigned char *p = memory + (x & maskb);p[0] =value;} #define RLAT(x)\ ((memory[x&maskl]<<24)|(memory[(x&maskl)+1]<<16)|(memory[(x&maskl)+2]<<8)| (memory[(x&maskl)+3])) #define RWAT(x)\ ((memory[x&maskw]<<8)|(memory[(x&maskw)+1])) #define RBAT(x)\ ((memory[x&maskb])) #define RUWAT(x) (RWAT(x) & 0xffff) #define RSWAT(x) ((short)(RWAT(x))) #define RSBAT(x) (SEXT(RBAT(x))) #endif #define SEXT(x) (((x&0xff) ^ (~0x7f))+0x80) #define SEXTW(y) ((int)((short)y)) #define SL(TEMPPC) iword= RUWAT(TEMPPC); goto top; int empty[16]; #define L(x) thislock = x; #define TL(x) if ((x) == prevlock) stalls++; #define TB(x,y) if ((x) == prevlock || (y)==prevlock) stalls++; #ifdef __GO32__ int sim_memory_size = 19; #else int sim_memory_size = 24; #endif static int sim_profile_size = 17; static int nsamples; static int sim_timeout; typedef union { struct { int regs[16]; int pc; int pr; int gbr; int vbr; int mach; int macl; union { struct { unsigned int d0:22; unsigned int m:1; unsigned int q:1; unsigned int i:4; unsigned int d1:2; unsigned int s:1; unsigned int t:1; } bits; int word; } sr; int ticks; int stalls; int cycles; int insts; int prevlock; int thislock; int exception; int msize; #define PROFILE_FREQ 1 #define PROFILE_SHIFT 2 int profile; unsigned short *profile_hist; unsigned char *memory; } asregs; int asints[28]; } saved_state_type; saved_state_type saved_state; static int get_now () { return time((long*)0); } static int now_persec () { return 1; } static FILE *profile_file; static void swap (b, n) unsigned char *b; int n; { b[0] = n >> 24; b[1] = n >> 16; b[2] = n >> 8; b[3] = n >> 0; } static void swap16 (b, n) unsigned char *b; int n; { b[0] = n >> 8; b[1] = n >> 0; } static void swapout (n) int n; { if (profile_file) { char b[4]; swap (b, n); fwrite (b, 4, 1, profile_file); } } static void swapout16 (n) int n; { char b[4]; swap16 (b, n); fwrite (b, 2, 1, profile_file); } /* Turn a pointer in a register into a pointer into real memory. */ static char * ptr (x) int x; { return (char *) (x + saved_state.asregs.memory); } static char *wwat(ptr, val) char *ptr; int val; { ptr[0] = val >> 8; ptr[1] = val; return ptr+2; } static char *wlat(ptr,val) char *ptr; int val; { ptr[0] = val>> 24; ptr[1] = val >> 16; ptr[2] = val >>8; ptr[3] = val; return ptr+4; } /* Simulate a monitor trap, put the result into r0 and errno into r1 */ static void trap (i, regs) int i; int *regs; { switch (i) { case 1: printf ("%c", regs[0]); break; case 2: saved_state.asregs.exception = SIGQUIT; break; case 3: { extern int errno; int perrno = errno; errno = 0; switch (regs[4]) { #ifndef __GO32__ case SYS_fork: regs[0] = fork(); break; case SYS_execve: regs[0] = execve(ptr(regs[5]), ptr(regs[6]), ptr(regs[7])); break; case SYS_execv: regs[0] = execv(ptr(regs[5]), ptr(regs[6])); break; case SYS_pipe: { char* buf; int host_fd[2]; buf = ptr(regs[5]); regs[0] = pipe(host_fd); buf = wlat(buf, host_fd[0]); buf = wlat(buf, host_fd[1]); } break; case SYS_wait: regs[0] = wait(ptr(regs[5])); break; #endif case SYS_read: regs[0] = read (regs[5], ptr (regs[6]), regs[7]); break; case SYS_write: regs[0] = write (regs[5], ptr (regs[6]), regs[7]); break; case SYS_lseek: regs[0] = lseek (regs[5], regs[6], regs[7]); break; case SYS_close: regs[0] = close (regs[5]); break; case SYS_open: regs[0] = open (ptr (regs[5]), regs[6]); break; case SYS_exit: /* EXIT */ saved_state.asregs.exception = SIGQUIT; errno = regs[5]; break; case SYS_stat: /* added at hmsi */ /* stat system call */ { struct stat host_stat; char *buf; regs[0] = stat( ptr(regs[5]), &host_stat); buf = ptr(regs[6]); buf = wwat(buf, host_stat.st_dev); buf = wwat(buf, host_stat.st_ino); buf = wlat(buf, host_stat.st_mode); buf = wwat(buf, host_stat.st_nlink); buf = wwat(buf, host_stat.st_uid); buf = wwat(buf, host_stat.st_gid); buf = wwat(buf, host_stat.st_rdev); buf = wlat(buf, host_stat.st_size); buf = wlat(buf, host_stat.st_atime); buf = wlat(buf, 0); buf = wlat(buf, host_stat.st_mtime); buf = wlat(buf, 0); buf = wlat(buf, host_stat.st_ctime); buf = wlat(buf, 0); buf = wlat(buf, 0); buf = wlat(buf, 0); } break; case SYS_chown: regs[0] = chown( ptr(regs[5]), regs[6], regs[7] ); break; case SYS_chmod: regs[0] = chmod( ptr(regs[5]), regs[6]); break; case SYS_utime: regs[0] = utime (ptr(regs[5]), ptr(regs[6])); break; default: abort (); } regs[1] = errno; errno = perrno; } break; case 255: saved_state.asregs.exception = SIGTRAP; saved_state.asregs.exception = 5; break; } } void control_c (sig, code, scp, addr) int sig; int code; char *scp; char *addr; { saved_state.asregs.exception = SIGINT; } static int div1 (R, iRn2, iRn1, T) int *R; int iRn1; int iRn2; int T; { unsigned long tmp0; unsigned char old_q, tmp1; old_q = Q; Q = (unsigned char) ((0x80000000 & R[iRn1]) != 0); R[iRn1] <<= 1; R[iRn1] |= (unsigned long) T; switch (old_q) { case 0: switch (M) { case 0: tmp0 = R[iRn1]; R[iRn1] -= R[iRn2]; tmp1 = (R[iRn1] > tmp0); switch (Q) { case 0: Q = tmp1; break; case 1: Q = (unsigned char) (tmp1 == 0); break; } break; case 1: tmp0 = R[iRn1]; R[iRn1] += R[iRn2]; tmp1 = (R[iRn1] < tmp0); switch (Q) { case 0: Q = (unsigned char) (tmp1 == 0); break; case 1: Q = tmp1; break; } break; } break; case 1: switch (M) { case 0: tmp0 = R[iRn1]; R[iRn1] += R[iRn2]; tmp1 = (R[iRn1] < tmp0); switch (Q) { case 0: Q = tmp1; break; case 1: Q = (unsigned char) (tmp1 == 0); break; } break; case 1: tmp0 = R[iRn1]; R[iRn1] -= R[iRn2]; tmp1 = (R[iRn1] > tmp0); switch (Q) { case 0: Q = (unsigned char) (tmp1 == 0); break; case 1: Q = tmp1; break; } break; } break; } T = (Q == M); return T; } static void dmul (sign, rm, rn) int sign; unsigned int rm; unsigned int rn; { unsigned long RnL, RnH; unsigned long RmL, RmH; unsigned long temp0, temp1, temp2, temp3; unsigned long Res2, Res1, Res0; if (!sign) { RnL = rn & 0xffff; RnH = (rn >> 16) & 0xffff; RmL = rm & 0xffff; RmH = (rm >> 16) & 0xffff; temp0 = RmL * RnL; temp1 = RmH * RnL; temp2 = RmL * RnH; temp3 = RmH * RnH; Res2 = 0; Res1 = temp1 + temp2; if (Res1 < temp1) Res2 += 0x00010000; temp1 = (Res1 << 16) & 0xffff0000; Res0 = temp0 + temp1; if (Res0 < temp0) Res2 += 1; Res2 += ((Res1 >> 16) & 0xffff) + temp3; MACH = Res2; MACL = Res0; } else { abort (); } } /* Set the memory size to the power of two provided. */ void sim_size (power) int power; { saved_state.asregs.msize = 1 << power; sim_memory_size = power; if (saved_state.asregs.memory) { free (saved_state.asregs.memory); } saved_state.asregs.memory = (unsigned char *) calloc (64, saved_state.asregs.msize / 64); if (!saved_state.asregs.memory) { fprintf (stderr, "Not enough VM for simuation of %d bytes of RAM\n", saved_state.asregs.msize); saved_state.asregs.msize = 1; saved_state.asregs.memory = (unsigned char *) calloc (1, 1); } } static void init_pointers () { if (saved_state.asregs.msize != 1 << sim_memory_size) { sim_size (sim_memory_size); } if (saved_state.asregs.profile && !profile_file) { profile_file = fopen ("gmon.out", "wb"); /* Seek to where to put the call arc data */ nsamples = (1 << sim_profile_size); fseek (profile_file, nsamples * 2 + 12, 0); if (!profile_file) { fprintf (stderr, "Can't open gmon.out\n"); } else { saved_state.asregs.profile_hist = (unsigned short *) calloc (64, (nsamples * sizeof (short) / 64)); } } } static void dump_profile () { unsigned int minpc; unsigned int maxpc; unsigned short *p; int thisshift; unsigned short *first; int i; p = saved_state.asregs.profile_hist; minpc = 0; maxpc = (1 << sim_profile_size); fseek (profile_file, 0L, 0); swapout (minpc << PROFILE_SHIFT); swapout (maxpc << PROFILE_SHIFT); swapout (nsamples * 2 + 12); for (i = 0; i < nsamples; i++) swapout16 (saved_state.asregs.profile_hist[i]); } static int gotcall (from, to) int from; int to; { swapout (from); swapout (to); swapout (1); } #define MMASKB ((saved_state.asregs.msize -1) & ~0) void sim_resume (step, siggnal) int step, siggnal; { register unsigned int pc; register int cycles = 0; register int stalls = 0; register int insts = 0; register int prevlock; register int thislock; register unsigned int doprofile; int tick_start = get_now (); void (*prev) (); extern unsigned char sh_jump_table0[]; register unsigned char *jump_table = sh_jump_table0; register int *R = &(saved_state.asregs.regs[0]); register int T; register int PR; register int maskb = ((saved_state.asregs.msize - 1) & ~0); register int maskw = ((saved_state.asregs.msize - 1) & ~1); register int maskl = ((saved_state.asregs.msize - 1) & ~3); register unsigned char *memory ; register unsigned int sbit = (1 << 31); prev = signal (SIGINT, control_c); init_pointers (); memory = saved_state.asregs.memory; if (step) { saved_state.asregs.exception = SIGTRAP; } else { saved_state.asregs.exception = 0; } pc = saved_state.asregs.pc; PR = saved_state.asregs.pr; T = saved_state.asregs.sr.bits.t; prevlock = saved_state.asregs.prevlock; thislock = saved_state.asregs.thislock; doprofile = saved_state.asregs.profile; /* If profiling not enabled, disable it by asking for profiles infrequently. */ if (doprofile == 0) doprofile = ~0; do { register unsigned int iword = RUWAT (pc); register unsigned int ult; insts++; top: #include "code.c" pc += 2; prevlock = thislock; thislock = 30; cycles++; if (cycles >= doprofile) { if (cycles > sim_timeout) saved_state.asregs.exception = SIGQUIT; saved_state.asregs.cycles += doprofile; cycles -= doprofile; if (saved_state.asregs.profile_hist) { int n = pc >> PROFILE_SHIFT; if (n < nsamples) { int i = saved_state.asregs.profile_hist[n]; if (i < 65000) saved_state.asregs.profile_hist[n] = i + 1; } } } } while (!saved_state.asregs.exception); if (saved_state.asregs.exception == SIGILL) { pc -= 2; } saved_state.asregs.ticks += get_now () - tick_start; saved_state.asregs.cycles += cycles; saved_state.asregs.stalls += stalls; saved_state.asregs.insts += insts; saved_state.asregs.pc = pc; saved_state.asregs.sr.bits.t = T; saved_state.asregs.pr = PR; saved_state.asregs.prevlock = prevlock; saved_state.asregs.thislock = thislock; if (profile_file) { dump_profile (); } signal (SIGINT, prev); } int sim_write (addr, buffer, size) SIM_ADDR addr; unsigned char *buffer; int size; { int i; init_pointers (); for (i = 0; i < size; i++) { saved_state.asregs.memory[MMASKB & (addr + i)] = buffer[i]; } return size; } int sim_read (addr, buffer, size) SIM_ADDR addr; unsigned char *buffer; int size; { int i; init_pointers (); for (i = 0; i < size; i++) { buffer[i] = saved_state.asregs.memory[MMASKB & (addr + i)]; } return size; } void sim_store_register (rn, value) int rn; unsigned char *value; { saved_state.asregs.regs[rn] = (value[0] << 24) | (value[1] << 16) | (value[2] << 8) | (value[3]); } void sim_fetch_register (rn, buf) int rn; unsigned char *buf; { int value = ((int *) (&saved_state))[rn]; swap (buf, value); } int sim_trace () { return 0; } void sim_stop_reason (reason, sigrc) enum sim_stop *reason; int *sigrc; { *reason = sim_stopped; *sigrc = saved_state.asregs.exception; } void sim_info (verbose) int verbose; { double timetaken = (double) saved_state.asregs.ticks / (double) now_persec (); double virttime = saved_state.asregs.cycles / 36.0e6; printf_filtered ("\n\n# instructions executed %10d\n", saved_state.asregs.insts); printf_filtered ("# cycles %10d\n", saved_state.asregs.cycles); printf_filtered ("# pipeline stalls %10d\n", saved_state.asregs.stalls); printf_filtered ("# real time taken %10.4f\n", timetaken); printf_filtered ("# virtual time taken %10.4f\n", virttime); printf_filtered ("# profiling size %10d\n", sim_profile_size); printf_filtered ("# profiling frequency %10d\n", saved_state.asregs.profile); printf_filtered ("# profile maxpc %10x\n", (1 << sim_profile_size) << PROFILE_SHIFT); if (timetaken != 0) { printf_filtered ("# cycles/second %10d\n", (int) (saved_state.asregs.cycles / timetaken)); printf_filtered ("# simulation ratio %10.4f\n", virttime / timetaken); } } void sim_set_profile (n) int n; { saved_state.asregs.profile = n; } void sim_set_profile_size (n) int n; { sim_profile_size = n; } void sim_open (name) char *name; { /* nothing to do */ } void sim_close (quitting) int quitting; { /* nothing to do */ } int sim_load (prog, from_tty) char *prog; int from_tty; { /* Return nonzero so GDB will handle it. */ return 1; } void sim_create_inferior (start_address, argv, env) SIM_ADDR start_address; char **argv; char **env; { saved_state.asregs.pc = start_address; } void sim_kill () { /* nothing to do */ } gdb-4.13/sim/sh/run.1 666 34562 1752 5046 5461664162 12644 0ustar fnfcygnus.\" Copyright (c) 1993 Free Software Foundation .\" See section COPYING for conditions for redistribution .TH run 1 "13oct1993" "GNU Tools" "GNU Tools" .de BP .sp .ti -.2i \(** .. .SH NAME run\(em\&Hitachi SH emulator .SH SYNOPSIS .hy 0 .na .TP .B run .RB "[\|" \-v "\|]" ." .RB "[\|" \-t "\|]" .RB "[\|" \-p .IR freq "\|]" .RB "[\|" \-m .IR memory "\|]" .I program .ad b .hy 1 .SH DESCRIPTION Use `\|\c .BI run " program"\c \&\|' to execute a Hitachi SH binary by interpreting SH machine instructions on your host computer. .B run is the same emulator used by GDB's `\|\c .B target sim\c \&\|' command. You can run it directly by executing .B run if you just want to see your program execute, and do not need any debugger functionality. You can also use .B run to generate profiling information for analysis with .BR gprof . .SH OPTIONS .TP .B \-v Verbose output. Display the name of the program to run before execution; after execution, display the number of instructions executed, the number of machine cycles emulated, the number of pipeline stalls, the real time taken, the emulated execution time taken, and a summary of how much profiling information was generated. ." ." .TP ." .B \-t ." `trace', calls a sim_trace routine that does nothing. .TP .BI \-p " freq" Generate profile information (for use with .B gprof\c \&). .I freq is the profiling frequency. Write the profiling information to a file called .BR gmon.out . .TP .BI \-m " memory" Set the memory size for the emulated machine to two to the power .IR memory . The default value is 19, emulating a board with 524288 bytes of memory. .PP .SH "SEE ALSO" .RB "`\|" gprof "\|'" entry in .B info\c \&; .RB "`\|" gdb "\|'" entry in .B info\c \&; .I Using GDB: A Guide to the GNU Source-Level Debugger\c , Richard M. Stallman and Roland H. Pesch. .SH COPYING Copyright (c) 1993 Free Software Foundation, Inc. .PP Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. .PP Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. .PP Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be included in translations approved by the Free Software Foundation instead of in the original English. gdb-4.13/sim/sh/run.c 666 34562 1752 5217 5603673542 12726 0ustar fnfcygnus/* run front end support for H8/500 Copyright (C) 1987, 1992 Free Software Foundation, Inc. This file is part of H8300 SIM GNU CC 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 2, or (at your option) any later version. GNU CC 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 GNU CC; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Steve Chamberlain sac@cygnus.com */ #include #include #include "bfd.h" #include "sysdep.h" #include "remote-sim.h" int main (ac, av) int ac; char **av; { bfd *abfd; bfd_vma start_address; asection *s; int i; int verbose = 0; int trace = 0; char *name = ""; for (i = 1; i < ac; i++) { if (strcmp (av[i], "-v") == 0) { verbose = 1; } else if (strcmp (av[i], "-t") == 0) { trace = 1; } else if (strcmp (av[i], "-p") == 0) { sim_set_profile(atoi(av[i+1])); i++; } else if (strcmp (av[i], "-s") == 0) { sim_set_profile_size(atoi(av[i+1])); i++; } else if (strcmp (av[i], "-m") == 0) { sim_size(atoi(av[i+1])); i++; } else { name = av[i]; } } if (verbose) { printf ("run %s\n", name); } abfd = bfd_openr (name, "coff-sh"); if (abfd) { if (bfd_check_format (abfd, bfd_object)) { for (s = abfd->sections; s; s = s->next) { unsigned char *buffer = malloc (bfd_section_size (abfd, s)); bfd_get_section_contents (abfd, s, buffer, 0, bfd_section_size (abfd, s)); sim_write (s->vma, buffer, bfd_section_size (abfd, s)); } start_address = bfd_get_start_address (abfd); sim_create_inferior (start_address, NULL, NULL); if (trace) { int done = 0; while (!done) { done = sim_trace (); } } else { sim_resume (0, 0); } if (verbose) sim_info (0); /* Find out what was in r0 and return that */ { unsigned char b[4]; sim_fetch_register(0, b); return b[3]; } } } return 1; } /* Callbacks used by the simulator proper. */ void printf_filtered (va_alist) va_dcl { va_list args; char *format; va_start (args); format = va_arg (args, char *); vfprintf (stdout, format, args); va_end (args); } gdb-4.13/sim/sh/sh.mt 666 34562 1752 61 5410431160 12642 0ustar fnfcygnusALL=all-sh CLEAN=clean-sh DO_INSTALL=install-sh gdb-4.13/sim/z8k/ 777 34562 1752 0 5623251244 11764 5ustar fnfcygnusgdb-4.13/sim/z8k/ChangeLog 666 34562 1752 6734 5566506232 13636 0ustar fnfcygnusWed May 18 14:38:49 1994 Doug Evans (dje@canuck.cygnus.com) * support.c (sim_open): Delete from here. (sim_set_args): Delete from here. (sim_kill): Delete from here. * iface.c (sim_*): Make result void where there isn't one. (sim_clear_breakpoints): Delete. (sim_set_pc): Delete. (sim_info): Delete printf_fn arg, all callers changed. (sim_open): Define here. (sim_close): New function. (sim_load): New function. (sim_create_inferior): Renamed from sim_set_args. (sim_kill): Define here. * run.c (printf): Delete declaration. (main): Call sim_create_inferior instead of sim_set_pc. * sim.h (sim_clear_breakpoints): Delete. Wed May 18 13:22:02 1994 Steve Chamberlain (sac@jonny.cygnus.com) * writecode.c (main): Disable the chopping of large initializers. GCC can now cope. Sat May 7 17:24:46 1994 Steve Chamberlain (sac@cygnus.com) * writecode.c (info_args): Add resflg and setflg. * list.c : Regenerated. * Makefile.in: First rule is now called 'all' Sat Dec 11 16:39:30 1993 Steve Chamberlain (sac@thepub.cygnus.com) * iface.c (sim_store_register): Get regval the right way up. * writecode.c (info_args): Add lda. Tue Oct 26 13:01:46 1993 Doug Evans (dje@canuck.cygnus.com) * Makefile.in (INCDIR): Fix definition. (CSEARCH): Add -I$(srcdir)/../../gdb (comped1.o, comped3.o, compedb3.o, comped2.o): Use CSEARCH, not INCDIR. * iface.c: Replace #include "../include/wait.h" with "remote-sim.h". (sim_set_pc): int result, use SIM_ADDR for type of arg `addr'. (sim_store_register): int result, pass value by reference. (sim_fetch_register): Use unsigned char * for arg `buf'. (sim_write): int result, use SIM_ADDR for `where' arg, use unsigned char * for `what' arg. (sim_read): Ditto. (sim_resume): int result. (sim_stop_reason): Renamed from sim_stop_signal, int result, new arg `reason'. (sim_info): int result, merge sim_info_print into here. (sim_info_print): Deleted. * run.c: #include (main): Update call to sim_info. * sim.h: Remove various prototypes defined in remote-sim.h. Sat Oct 23 15:16:45 1993 Doug Evans (dje@canuck.cygnus.com) * iface.c (sim_stop_signal): Result is now enum sim_stop. Thu Oct 7 19:01:07 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * writecode.c (doset, info_docode): Understand set and res insns. Thu Sep 30 11:30:42 1993 Steve Chamberlain (sac@phydeaux.cygnus.com) * support.c (tm_info_print): If no timetaken, don't divide by zero. Fri Jul 30 15:51:54 1993 david d `zoo' zuhn (zoo@rtl.cygnus.com) * writecode.c (div): rename to divide, to resolve conflict with ANSI function div from Mon Mar 15 15:48:50 1993 Ian Lance Taylor (ian@cygnus.com) * z8k.mt (DO_INSTALL): Renamed from INSTALL. Tue Mar 9 12:32:29 1993 Steve Chamberlain (sac@thepub.cygnus.com) * writecode.c (main): Make the vector 'big' static, so that it will compile on the apollo. * support.c: Use the ANSI compilant __inline__. Fri Mar 5 07:54:18 1993 Steve Chamberlain (sac@thepub.cygnus.com) * writecode.c (main): When using gcc, split the tables into sections so that it will compile. * Makefile.in: Get ar args right. * tm.h: Fix gcc prototypes. Wed Mar 3 15:04:48 1993 Steve Chamberlain (sac@poseidon.cygnus.com) * support.c (fail): Get the argument count right. * tm.h: Lint. * writecode.c (main): Pass all the arguments emit needs. Tue Feb 2 07:49:42 1993 Steve Chamberlain (sac@thepub.cygnus.com) * lint, prototypes Fri Jan 15 12:43:08 1993 Steve Chamberlain (sac@thepub.cygnus.com) * New gdb-4.13/sim/z8k/Makefile.in 666 34562 1752 11513 5563030711 14127 0ustar fnfcygnus# Makefile template for Configure for the z8ksim library. # Copyright (C) 1993 Free Software Foundation, Inc. # Written by Cygnus Support. # # 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 2 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, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. srcdir = . srcroot = $(srcdir)/../../ prefix = /usr/local program_transform_name = exec_prefix = $(prefix) bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib tooldir = $(libdir)/$(target_alias) datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info includedir = $(prefix)/include oldincludedir = docdir = $(srcdir)/doc SHELL = /bin/sh INSTALL = $${srcroot}/install.sh -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) INSTALL_XFORM = $(INSTALL) -t='$(program_transform_name)' INSTALL_XFORM1= $(INSTALL_XFORM) -b=.1 AR = ar AR_FLAGS = rc CFLAGS = -g BISON = bison MAKEINFO = makeinfo RANLIB = ranlib INCDIR = $(srcdir)/../../include CSEARCH = -I. -I$(srcdir) -I$(INCDIR) -I../../bfd -I$(srcdir)/../../bfd -I$(srcdir)/../../gdb DEP = mkdep TARGETLIB = libsim.a all:run libsim.a OFILES = iface.o mem.o comped1.o comped3.o comped2.o support.o quick.o compedb3.o support.o:support.c inlines.h run:$(OFILES) run.o $(CC) $(CFLAGS) -o run run.o $(OFILES) ../../bfd/libbfd.a ../../libiberty/libiberty.a ../../opcodes/libopcodes.a comped1.o:comped1.c tc-gen1.h $(CC) -c -g -o comped1.o $(CSEARCH) $(srcdir)/comped1.c comped3.o:comped3.c tc-gen3.h $(CC) -c -g -o comped3.o $(CSEARCH) $(srcdir)/comped3.c compedb3.o:compedb3.c tc-genb3.h $(CC) -c -g -o compedb3.o $(CSEARCH) $(srcdir)/compedb3.c comped2.o:comped2.c tc-gen2.h $(CC) -c -g -o comped2.o $(CSEARCH) $(srcdir)/comped2.c tc-gen1.h:writecode ./writecode -1 >tc-gen1.h tc-gen2.h:quick.c ./writecode -2 >tc-gen2.h tc-gen3.h:writecode ./writecode -3 >tc-gen3.h tc-genb3.h:writecode ./writecode -b3 >tc-genb3.h writecode:writecode.o list.o quick.o $(CC) -o writecode writecode.o list.o quick.o clean: rm -f *.o tc-gen1.h tc-gen2.h tc-gen3.h tc-genb3.h run writecode libsim.a #### host and target dependent Makefile fragments come in here. ### FLAGS_TO_PASS = \ "against=$(against)" \ "AR=$(AR)" \ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CFLAGS=$(CFLAGS)" \ "RANLIB=$(RANLIB)" \ "MAKEINFO=$(MAKEINFO)" \ "INSTALL=$(INSTALL)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "BISON=$(BISON)" .c.o: $(CC) -c $(CFLAGS) $(HDEFINES) $(TDEFINES) $(CSEARCH) $(CSWITCHES) $< # C source files that correspond to .o's. CFILES = z8k-dis.c STAGESTUFF = $(TARGETLIB) $(OFILES) all: $(TARGETLIB) .NOEXPORT: check: info: clean-info: install-info: # HDEPFILES comes from the host config; TDEPFILES from the target config. $(TARGETLIB): $(OFILES) rm -f $(TARGETLIB) $(AR) $(AR_FLAGS) $(TARGETLIB) $(OFILES) $(RANLIB) $(TARGETLIB) # Circumvent Sun Make bug with VPATH. sparc-opc.o: sparc-opc.c tags etags: TAGS TAGS: force etags $(INCDIR)/*.h $(srcdir)/*.h $(srcdir)/*.c # Mark everything as depending on config.status, since the timestamp on # sysdep.h might actually move backwards if we reconfig and relink it # to a different hosts/h-xxx.h file. This will force a recompile anyway. RECONFIG = config.status # Dummy target to force execution of dependent targets. # force: # Copy the files into directories where they will be run. install: srcroot=`cd $(srcroot); pwd`; export srcroot; \ $(INSTALL_XFORM) run $(bindir)/run ; \ n=`t='$(program_transform_name)'; echo run | sed -e "" $$t`; \ if [ -d $(tooldir) ] ; then \ if [ -d $(tooldir)/bin ] ; then true ; else mkdir $(tooldir)/bin ; fi; \ rm -f $(tooldir)/bin/run; \ ln $(bindir)/$$n $(tooldir)/bin/run \ || $(INSTALL_PROGRAM) run $(tooldir)/bin/run; \ else true; fi Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) $(SHELL) ./config.status dep: $(CFILES) mkdep $(CFLAGS) $? # What appears below is generated by a hacked mkdep using gcc -MM. # DO NOT DELETE THIS LINE -- mkdep uses it. # DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. # IF YOU PUT ANYTHING HERE IT WILL GO AWAY gdb-4.13/sim/z8k/comped1.c 666 34562 1752 1671 5342244450 13544 0ustar fnfcygnus/* instruction interpreter module 1 Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of Z8KSIM 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 2, or (at your option) any later version. Z8KZIM 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 Z8KZIM; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "sysdep.h" #include "tm.h" #include "sim.h" #ifdef __GNUC__ #define INLINE static inline #include "inlines.h" #endif #include "tc-gen1.h" gdb-4.13/sim/z8k/comped2.c 666 34562 1752 1546 5342244451 13547 0ustar fnfcygnus/* instruction interpreter module 2 Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of Z8KSIM 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 2, 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; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "tm.h" #include "sim.h" #include "tc-gen2.h" gdb-4.13/sim/z8k/comped3.c 666 34562 1752 1553 5342244452 13547 0ustar fnfcygnus/* instruction interpreter module 2 Copyright (C) 1987, 1992 Free Software Foundation, Inc. This file is part of Z8KSIM Z8KSIM 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 2, or (at your option) any later version. Z8KSIM 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 Z8KSIM; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "sysdep.h" #include "tm.h" #include "sim.h" #include "tc-gen3.h" gdb-4.13/sim/z8k/compedb3.c 666 34562 1752 1617 5342244455 13715 0ustar fnfcygnus/* instruction interpreter module 3 Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of Z8KSIM Z8KSIM 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 2, or (at your option) any later version. Z8KSIM 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 Z8KSIM; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #define ushort_type unsigned short #include #include "sysdep.h" #include "tm.h" #include "sim.h" #include "tc-genb3.h" gdb-4.13/sim/z8k/configure.in 666 34562 1752 1421 5334060703 14350 0ustar fnfcygnus# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure script # appropriate for this directory. For more information, check any # existing configure script. srctrigger=writecode.c srcname="sim" # per-host: . ${srcdir}/../../bfd/configure.host # Set up to make a link between the host's include file and "sysdep.h". files="../../bfd/hosts/${my_host}.h" links="sysdep.h" if [ ! -f ${srcdir}/${files} ] ; then if [ -n "${my_host}" ] ; then echo '***' No file ${srcdir}/${files} 1>&2 fi echo '***' ${srcname} does not support host ${host} 1>&2 exit 1 fi host_makefile_frag= if [ -f ${srcdir}/../../bfd/config/${my_host}.mh ] ; then host_makefile_frag=../../bfd/config/${my_host}.mh fi # per-target: gdb-4.13/sim/z8k/iface.c 666 34562 1752 6242 5566506243 13273 0ustar fnfcygnus/* gdb->simulator interface. Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. This file is part of Z8KSIM Z8KSIM 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 2, or (at your option) any later version. Z8KSIM 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 Z8KSIM; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "sim.h" #include "tm.h" #include "signal.h" #include "remote-sim.h" void sim_store_register (regno, value) int regno; unsigned char *value; { /* FIXME: Review the computation of regval. */ int regval = (value[0] << 24) | (value[1] << 16) | (value[2] << 8) | value[3]; tm_store_register (regno, regval); } void sim_fetch_register (regno, buf) int regno; unsigned char *buf; { tm_fetch_register (regno, buf); } int sim_write (where, what, howmuch) SIM_ADDR where; unsigned char *what; int howmuch; { int i; for (i = 0; i < howmuch; i++) tm_write_byte (where + i, what[i]); return howmuch; } int sim_read (where, what, howmuch) SIM_ADDR where; unsigned char *what; int howmuch; { int i; for (i = 0; i < howmuch; i++) what[i] = tm_read_byte (where + i); return howmuch; } static void control_c (sig, code, scp, addr) int sig; int code; char *scp; char *addr; { tm_exception (SIM_INTERRUPT); } void sim_resume (step, sig) int step; int sig; { void (*prev) (); prev = signal (SIGINT, control_c); tm_resume (step); signal (SIGINT, prev); } void sim_stop_reason (reason, sigrc) enum sim_stop *reason; int *sigrc; { switch (tm_signal ()) { case SIM_DIV_ZERO: *sigrc = SIGFPE; break; case SIM_INTERRUPT: *sigrc = SIGINT; break; case SIM_BAD_INST: *sigrc = SIGILL; break; case SIM_BREAKPOINT: *sigrc = SIGTRAP; break; case SIM_SINGLE_STEP: *sigrc = SIGTRAP; break; case SIM_BAD_SYSCALL: *sigrc = SIGSYS; break; case SIM_BAD_ALIGN: *sigrc = SIGSEGV; break; case SIM_DONE: *sigrc = 1; *reason = sim_exited; return; default: abort (); } *reason = sim_stopped; } void sim_info (verbose) int verbose; { sim_state_type x; tm_state (&x); tm_info_print (&x); } void sim_open (args) char *args; { /* nothing to do */ } void sim_close (quitting) int quitting; { /* nothing to do */ } int sim_load (prog, from_tty) char *prog; int from_tty; { /* Return non-zero so gdb will handle it. */ return 1; } void sim_create_inferior (start_address, argv, env) SIM_ADDR start_address; char **argv; char **env; { tm_store_register (REG_PC, start_address); } void sim_kill () { /* nothing to do */ } gdb-4.13/sim/z8k/inlines.h 666 34562 1752 27022 5427302264 13702 0ustar fnfcygnus/* inline functions for Z8KSIM Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of Z8KSIM GNU CC 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 2, or (at your option) any later version. GNU CC 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 GNU CC; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef INLINE #define INLINE #endif #define UGT 0x0b #define ULE 0x03 #define ULT 0x07 #define UGE 0x0f #define SLOW 0 #define T 0x8 #define F 0x0 #define LT 0x1 #define GT 0xa #define LE 0x2 #define EQ 0x6 #define NE 0xe #define GE 0x9 static int is_cond_true PARAMS((sim_state_type *context, int c)); static void makeflags PARAMS((sim_state_type *context, int mask)); INLINE long sitoptr (si) long si; { return ((si & 0xff000000) >> 8) | (si & 0xffff); } INLINE long ptrtosi (ptr) long ptr; { return ((ptr & 0xff0000) << 8) | (ptr & 0xffff); } INLINE void put_long_reg (context, reg, val) sim_state_type *context; int reg; int val; { context->regs[reg].word = val >> 16; context->regs[reg + 1].word = val; } INLINE void put_quad_reg (context, reg, val1, val2) sim_state_type *context; int reg; int val1; int val2; { context->regs[reg].word = val2 >> 16; context->regs[reg + 1].word = val2; context->regs[reg + 2].word = val1 >> 16; context->regs[reg + 3].word = val1; } INLINE void put_word_reg (context, reg, val) sim_state_type *context; int reg; int val; { context->regs[reg].word = val; } INLINE SItype get_long_reg (context, reg) sim_state_type *context; int reg; { USItype lsw = context->regs[reg + 1].word; USItype msw = context->regs[reg].word; return (msw << 16) | lsw; } #ifdef __GNUC__ INLINE struct UDIstruct get_quad_reg (context, reg) sim_state_type *context; int reg; { UDItype res; USItype lsw = get_long_reg (context, reg + 2); USItype msw = get_long_reg (context, reg); res.low = lsw; res.high = msw; return res; } #endif INLINE void put_byte_reg (context, reg, val) sim_state_type *context; int reg; int val; { int old = context->regs[reg & 0x7].word; if (reg & 0x8) { old = old & 0xff00 | (val & 0xff); } else { old = old & 0x00ff | (val << 8); } context->regs[reg & 0x7].word = old; } INLINE int get_byte_reg (context, reg) sim_state_type *context; int reg; { if (reg & 0x8) return context->regs[reg & 0x7].word & 0xff; else return (context->regs[reg & 0x7].word >> 8) & 0xff; } INLINE void put_word_mem_da (context, addr, value) sim_state_type *context; int addr; int value; { if (addr & 1) { context->exception = SIM_BAD_ALIGN; addr &= ~1; } put_byte_mem_da(context, addr, value>>8); put_byte_mem_da(context, addr+1, value); } INLINE unsigned char get_byte_mem_da (context, addr) sim_state_type *context; int addr; { return ((unsigned char *) (context->memory))[addr]; } INLINE void put_byte_mem_da (context, addr, value) sim_state_type *context; int addr; int value; { ((unsigned char *) (context->memory))[addr] = value; } #if 0 #define get_word_mem_da(context,addr)\ *((unsigned short*)((char*)((context)->memory)+(addr))) #else #define get_word_mem_da(context,addr) (get_byte_mem_da(context, addr) << 8) | (get_byte_mem_da(context,addr+1)) #endif #define get_word_reg(context,reg) (context)->regs[reg].word INLINE SItype get_long_mem_da (context, addr) sim_state_type *context; int addr; { USItype lsw = get_word_mem_da(context,addr+2); USItype msw = get_word_mem_da(context, addr); return (msw << 16) + lsw; } INLINE void put_long_mem_da (context, addr, value) sim_state_type *context; int addr; int value; { put_word_mem_da(context,addr, value>>16); put_word_mem_da(context,addr+2, value); } INLINE int get_word_mem_ir (context, reg) sim_state_type *context; int reg; { return get_word_mem_da (context, get_word_reg (context, reg)); } INLINE void put_word_mem_ir (context, reg, value) sim_state_type *context; int reg; int value; { put_word_mem_da (context, get_word_reg (context, reg), value); } INLINE int get_byte_mem_ir (context, reg) sim_state_type *context; int reg; { return get_byte_mem_da (context, get_word_reg (context, reg)); } INLINE void put_byte_mem_ir (context, reg, value) sim_state_type *context; int reg; int value; { put_byte_mem_da (context, get_word_reg (context, reg), value); } INLINE int get_long_mem_ir (context, reg) sim_state_type *context; int reg; { return get_long_mem_da (context, get_word_reg (context, reg)); } INLINE void put_long_mem_ir (context, reg, value) sim_state_type *context; int reg; int value; { put_long_mem_da (context, get_word_reg (context, reg), value); } INLINE void put_long_mem_x (context, base, reg, value) sim_state_type *context; int base; int reg; int value; { put_long_mem_da (context, get_word_reg (context, reg) + base, value); } INLINE void put_word_mem_x (context, base, reg, value) sim_state_type *context; int base; int reg; int value; { put_word_mem_da (context, get_word_reg (context, reg) + base, value); } INLINE void put_byte_mem_x (context, base, reg, value) sim_state_type *context; int base; int reg; int value; { put_byte_mem_da (context, get_word_reg (context, reg) + base, value); } INLINE int get_word_mem_x (context, base, reg) sim_state_type *context; int base; int reg; { return get_word_mem_da (context, base + get_word_reg (context, reg)); } INLINE int get_byte_mem_x (context, base, reg) sim_state_type *context; int base; int reg; { return get_byte_mem_da (context, base + get_word_reg (context, reg)); } INLINE int get_long_mem_x (context, base, reg) sim_state_type *context; int base; int reg; { return get_long_mem_da (context, base + get_word_reg (context, reg)); } static int is_cond_true (context, c) sim_state_type *context; int c; { switch (c) { case T: return 1; case F: return 0; /* F */ case LE: return (PSW_ZERO | (PSW_SIGN ^ PSW_OVERFLOW)) & 1; /*LE */ case GT: return (~(PSW_ZERO | (PSW_SIGN ^ PSW_OVERFLOW))) & 1; /*GT */ case 0x5: return (PSW_SIGN & 1); /* sign */ case 0xd: return (~(PSW_SIGN)) & 1; /* not sign */ case 0x3: return ((PSW_CARRY | PSW_ZERO) & 1); /* ule*/ case UGT: return ((~(PSW_CARRY | PSW_ZERO)) & 1); /* ugt */ case 0x4: return (PSW_OVERFLOW & 1);/* overflow */ case 0xc: return (~(PSW_OVERFLOW)) & 1; /* not overflow */ case LT: return (PSW_SIGN ^ PSW_OVERFLOW) & 1; /* LT */ case GE: return (~(PSW_SIGN ^ PSW_OVERFLOW)) & 1; /* GE */ case EQ: return (PSW_ZERO) & 1; /* zero */ case NE: return ((~PSW_ZERO) & 1); /* not zero */ case 0x7: return (PSW_CARRY) & 1; /* carry */ case 0xf: return (~PSW_CARRY) & 1; /* not carry */ default: abort (); } } static void makeflags (context, mask) sim_state_type *context; int mask; { PSW_ZERO = (context->dst & mask) == 0; PSW_SIGN = (context->dst >> (context->size - 1)); if (context->broken_flags == TST_FLAGS) { extern char the_parity[]; if (context->size == 8) { PSW_OVERFLOW = the_parity[context->dst & 0xff]; } } else { /* Overflow is set if both operands have the same sign and the result is of different sign. V = A==B && R!=B jumping logic (~(A^B))&(R^B) V = (A^B)^(R^B) boolean */ PSW_OVERFLOW = (( (~(context->srca ^ context->srcb) & (context->srca ^ context->dst)) ) >> (context->size - 1) ); if (context->size < 32) { PSW_CARRY = ((context->dst >> context->size)) & 1; } else { /* carry is set when the result is smaller than the first source */ PSW_CARRY = (unsigned) context->dst > (unsigned) context->srca; } } context->broken_flags = 0; } INLINE int COND (context, c) sim_state_type *context; int c; { if (c == 8) return 1; /* We can calculate what the flags would have been by looking at the src and dst and size of the operation */ if (context->broken_flags) { int slow = 0; int size; int dst; int srca; int srcb; int mask; int ans; /* see if we can short-cut the nasty flag calcs */ switch (size = context->size) { default: abort(); return 0; case 8: srca = (char) (context->srca); srcb = (char) (context->srcb); dst = (char) (context->dst); mask = 0xff; break; case 16: srca = (short) (context->srca); srcb = (short) (context->srcb); dst = (short) (context->dst); mask = 0xffff; break; case 32: srca = (long) (context->srca); srcb = (long) (context->srcb); dst = (long) (context->dst); mask = 0xffffffff; break; } switch (c) { case T: return 1; case F: return 0; case EQ: return !dst; case NE: return dst; case GT: ans = ((dst)) > 0; if (slow) { if (is_cond_true (context, c) != ans) abort (); } return ans; case LE: ans = ((dst)) <= 0; if (slow) { if (is_cond_true (context, c) != ans) abort (); } return ans; case GE: ans = ((dst)) >= 0; if (slow) { if (is_cond_true (context, c) != ans) abort (); } return ans; case LT: ans = ((dst)) < 0; if (slow) { if (is_cond_true (context, c) != ans) abort (); } return ans; default: break; } /* Can't fake it, we'll have to work out the flags the hard way */ makeflags (context, mask); } /* don't know how to fake a test, inspect the flags the hard way */ return is_cond_true (context, c); } INLINE void NORMAL_FLAGS (context, size, dst, srca, srcb) sim_state_type *context; int size; int dst; int srca; int srcb; { context->srca = srca; context->srcb = srcb; context->dst = dst; context->size = size; context->broken_flags = CMP_FLAGS; } INLINE void TEST_NORMAL_FLAGS (context, size, dst) sim_state_type *context; int size; int dst; { context->dst = dst; context->size = size; context->broken_flags = TST_FLAGS; } INLINE void put_ptr_long_reg (context, reg, val) sim_state_type *context; int reg; int val; { context->regs[reg].word = (val >> 8) & 0x7f00; context->regs[reg + 1].word = val; } INLINE long get_ptr_long_reg (context, reg) sim_state_type *context; int reg; { int val; val = (context->regs[reg].word << 8) | context->regs[reg + 1].word; return val; } INLINE long get_ptr_long_mem_ir (context, reg) sim_state_type *context; int reg; { return sitoptr (get_long_mem_da (context, get_ptr_long_reg (context, reg))); } INLINE long get_ptr_long_mem_da (context, addr) sim_state_type *context; long addr; { return sitoptr (get_long_mem_da (context, addr)); } INLINE void put_ptr_long_mem_da (context, addr, ptr) sim_state_type *context; long addr; long ptr; { put_long_mem_da (context, addr, ptrtosi (ptr)); } gdb-4.13/sim/z8k/list.c 666 34562 1752 1133105 5563030716 13251 0ustar fnfcygnusshort int z8k_inv_list[] = { 10 #ifdef __GNUC__ }; short int int_list0[] = { #else , #endif 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7 #ifdef __GNUC__ }; short int int_list64[] = { #else , #endif 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7 #ifdef __GNUC__ }; short int int_list128[] = { #else , #endif 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7 #ifdef __GNUC__ }; short int int_list192[] = { #else , #endif 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 5 #ifdef __GNUC__ }; short int int_list256[] = { #else , #endif 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2 #ifdef __GNUC__ }; short int int_list320[] = { #else , #endif 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2 #ifdef __GNUC__ }; short int int_list384[] = { #else , #endif 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2 #ifdef __GNUC__ }; short int int_list448[] = { #else , #endif 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 370 #ifdef __GNUC__ }; short int int_list512[] = { #else , #endif 370,370,370,370,370,370,370,370,370,370,370,370,370,370,370, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367 #ifdef __GNUC__ }; short int int_list576[] = { #else , #endif 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367 #ifdef __GNUC__ }; short int int_list640[] = { #else , #endif 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367 #ifdef __GNUC__ }; short int int_list704[] = { #else , #endif 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 367,367,367,367,367,367,367,367,367,367,367,367,367,367,367,367, 365 #ifdef __GNUC__ }; short int int_list768[] = { #else , #endif 365,365,365,365,365,365,365,365,365,365,365,365,365,365,365, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362 #ifdef __GNUC__ }; short int int_list832[] = { #else , #endif 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362 #ifdef __GNUC__ }; short int int_list896[] = { #else , #endif 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362 #ifdef __GNUC__ }; short int int_list960[] = { #else , #endif 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 362,362,362,362,362,362,362,362,362,362,362,362,362,362,362,362, 260 #ifdef __GNUC__ }; short int int_list1024[] = { #else , #endif 260,260,260,260,260,260,260,260,260,260,260,260,260,260,260, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257 #ifdef __GNUC__ }; short int int_list1088[] = { #else , #endif 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257 #ifdef __GNUC__ }; short int int_list1152[] = { #else , #endif 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257 #ifdef __GNUC__ }; short int int_list1216[] = { #else , #endif 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,257,257,257, 255 #ifdef __GNUC__ }; short int int_list1280[] = { #else , #endif 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252 #ifdef __GNUC__ }; short int int_list1344[] = { #else , #endif 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252 #ifdef __GNUC__ }; short int int_list1408[] = { #else , #endif 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252 #ifdef __GNUC__ }; short int int_list1472[] = { #else , #endif 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252, 25 #ifdef __GNUC__ }; short int int_list1536[] = { #else , #endif 25,25,25,25,25,25,25,25,25,25,25,25,25,25,25, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22 #ifdef __GNUC__ }; short int int_list1600[] = { #else , #endif 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22 #ifdef __GNUC__ }; short int int_list1664[] = { #else , #endif 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22 #ifdef __GNUC__ }; short int int_list1728[] = { #else , #endif 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, 20 #ifdef __GNUC__ }; short int int_list1792[] = { #else , #endif 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17 #ifdef __GNUC__ }; short int int_list1856[] = { #else , #endif 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17 #ifdef __GNUC__ }; short int int_list1920[] = { #else , #endif 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17 #ifdef __GNUC__ }; short int int_list1984[] = { #else , #endif 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, 415 #ifdef __GNUC__ }; short int int_list2048[] = { #else , #endif 415,415,415,415,415,415,415,415,415,415,415,415,415,415,415, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412 #ifdef __GNUC__ }; short int int_list2112[] = { #else , #endif 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412 #ifdef __GNUC__ }; short int int_list2176[] = { #else , #endif 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412 #ifdef __GNUC__ }; short int int_list2240[] = { #else , #endif 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 412,412,412,412,412,412,412,412,412,412,412,412,412,412,412,412, 410 #ifdef __GNUC__ }; short int int_list2304[] = { #else , #endif 410,410,410,410,410,410,410,410,410,410,410,410,410,410,410, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407 #ifdef __GNUC__ }; short int int_list2368[] = { #else , #endif 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407 #ifdef __GNUC__ }; short int int_list2432[] = { #else , #endif 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407 #ifdef __GNUC__ }; short int int_list2496[] = { #else , #endif 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 407,407,407,407,407,407,407,407,407,407,407,407,407,407,407,407, 73 #ifdef __GNUC__ }; short int int_list2560[] = { #else , #endif 73,73,73,73,73,73,73,73,73,73,73,73,73,73,73, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70 #ifdef __GNUC__ }; short int int_list2624[] = { #else , #endif 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70 #ifdef __GNUC__ }; short int int_list2688[] = { #else , #endif 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70 #ifdef __GNUC__ }; short int int_list2752[] = { #else , #endif 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 70,70,70,70,70,70,70,70,70,70,70,70,70,70,70,70, 65 #ifdef __GNUC__ }; short int int_list2816[] = { #else , #endif 65,65,65,65,65,65,65,65,65,65,65,65,65,65,65, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62 #ifdef __GNUC__ }; short int int_list2880[] = { #else , #endif 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62 #ifdef __GNUC__ }; short int int_list2944[] = { #else , #endif 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62 #ifdef __GNUC__ }; short int int_list3008[] = { #else , #endif 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, 62,62,62,62,62,62,62,62,62,62,62,62,62,62,62,62, -1 #ifdef __GNUC__ }; short int int_list3072[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54 #ifdef __GNUC__ }; short int int_list3136[] = { #else , #endif 67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54 #ifdef __GNUC__ }; short int int_list3200[] = { #else , #endif 67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54 #ifdef __GNUC__ }; short int int_list3264[] = { #else , #endif 67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, 54,67,247,-1,383,176,403,-1,46,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list3328[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50 #ifdef __GNUC__ }; short int int_list3392[] = { #else , #endif 59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50 #ifdef __GNUC__ }; short int int_list3456[] = { #else , #endif 59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50 #ifdef __GNUC__ }; short int int_list3520[] = { #else , #endif 59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 50,59,243,-1,379,156,399,-1,42,282,-1,-1,-1,-1,-1,-1, 127 #ifdef __GNUC__ }; short int int_list3584[] = { #else , #endif 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127 #ifdef __GNUC__ }; short int int_list3648[] = { #else , #endif 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127 #ifdef __GNUC__ }; short int int_list3712[] = { #else , #endif 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127 #ifdef __GNUC__ }; short int int_list3776[] = { #else , #endif 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, 128 #ifdef __GNUC__ }; short int int_list3840[] = { #else , #endif 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128 #ifdef __GNUC__ }; short int int_list3904[] = { #else , #endif 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128 #ifdef __GNUC__ }; short int int_list3968[] = { #else , #endif 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128 #ifdef __GNUC__ }; short int int_list4032[] = { #else , #endif 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128, 86 #ifdef __GNUC__ }; short int int_list4096[] = { #else , #endif 86,86,86,86,86,86,86,86,86,86,86,86,86,86,86, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83 #ifdef __GNUC__ }; short int int_list4160[] = { #else , #endif 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83 #ifdef __GNUC__ }; short int int_list4224[] = { #else , #endif 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83 #ifdef __GNUC__ }; short int int_list4288[] = { #else , #endif 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, 83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83, -1 #ifdef __GNUC__ }; short int int_list4352[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1 #ifdef __GNUC__ }; short int int_list4416[] = { #else , #endif 284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1 #ifdef __GNUC__ }; short int int_list4480[] = { #else , #endif 284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1 #ifdef __GNUC__ }; short int int_list4544[] = { #else , #endif 284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, -1,284,284,284,284,284,284,284,284,284,284,284,284,284,284,284, 375 #ifdef __GNUC__ }; short int int_list4608[] = { #else , #endif 375,375,375,375,375,375,375,375,375,375,375,375,375,375,375, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372 #ifdef __GNUC__ }; short int int_list4672[] = { #else , #endif 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372 #ifdef __GNUC__ }; short int int_list4736[] = { #else , #endif 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372 #ifdef __GNUC__ }; short int int_list4800[] = { #else , #endif 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, 372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372, -1 #ifdef __GNUC__ }; short int int_list4864[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1 #ifdef __GNUC__ }; short int int_list4928[] = { #else , #endif 279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1 #ifdef __GNUC__ }; short int int_list4992[] = { #else , #endif 279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1 #ifdef __GNUC__ }; short int int_list5056[] = { #else , #endif 279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, -1,279,279,279,279,279,279,279,279,279,279,279,279,279,279,279, 210 #ifdef __GNUC__ }; short int int_list5120[] = { #else , #endif 210,210,210,210,210,210,210,210,210,210,210,210,210,210,210, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207 #ifdef __GNUC__ }; short int int_list5184[] = { #else , #endif 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207 #ifdef __GNUC__ }; short int int_list5248[] = { #else , #endif 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207 #ifdef __GNUC__ }; short int int_list5312[] = { #else , #endif 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, 207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207, -1 #ifdef __GNUC__ }; short int int_list5376[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1 #ifdef __GNUC__ }; short int int_list5440[] = { #else , #endif 275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1 #ifdef __GNUC__ }; short int int_list5504[] = { #else , #endif 275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1 #ifdef __GNUC__ }; short int int_list5568[] = { #else , #endif 275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, -1,275,275,275,275,275,275,275,275,275,275,275,275,275,275,275, 15 #ifdef __GNUC__ }; short int int_list5632[] = { #else , #endif 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12 #ifdef __GNUC__ }; short int int_list5696[] = { #else , #endif 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12 #ifdef __GNUC__ }; short int int_list5760[] = { #else , #endif 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12 #ifdef __GNUC__ }; short int int_list5824[] = { #else , #endif 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, 12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12, -1 #ifdef __GNUC__ }; short int int_list5888[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1 #ifdef __GNUC__ }; short int int_list5952[] = { #else , #endif 271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1 #ifdef __GNUC__ }; short int int_list6016[] = { #else , #endif 271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1 #ifdef __GNUC__ }; short int int_list6080[] = { #else , #endif 271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, -1,271,271,271,271,271,271,271,271,271,271,271,271,271,271,271, 241 #ifdef __GNUC__ }; short int int_list6144[] = { #else , #endif 241,241,241,241,241,241,241,241,241,241,241,241,241,241,241, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238 #ifdef __GNUC__ }; short int int_list6208[] = { #else , #endif 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238 #ifdef __GNUC__ }; short int int_list6272[] = { #else , #endif 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238 #ifdef __GNUC__ }; short int int_list6336[] = { #else , #endif 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238, 236 #ifdef __GNUC__ }; short int int_list6400[] = { #else , #endif 236,236,236,236,236,236,236,236,236,236,236,236,236,236,236, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233 #ifdef __GNUC__ }; short int int_list6464[] = { #else , #endif 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233 #ifdef __GNUC__ }; short int int_list6528[] = { #else , #endif 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233 #ifdef __GNUC__ }; short int int_list6592[] = { #else , #endif 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 233,233,233,233,233,233,233,233,233,233,233,233,233,233,233,233, 115 #ifdef __GNUC__ }; short int int_list6656[] = { #else , #endif 115,115,115,115,115,115,115,115,115,115,115,115,115,115,115, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112 #ifdef __GNUC__ }; short int int_list6720[] = { #else , #endif 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112 #ifdef __GNUC__ }; short int int_list6784[] = { #else , #endif 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112 #ifdef __GNUC__ }; short int int_list6848[] = { #else , #endif 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,112,112,112, 110 #ifdef __GNUC__ }; short int int_list6912[] = { #else , #endif 110,110,110,110,110,110,110,110,110,110,110,110,110,110,110, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107 #ifdef __GNUC__ }; short int int_list6976[] = { #else , #endif 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107 #ifdef __GNUC__ }; short int int_list7040[] = { #else , #endif 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107 #ifdef __GNUC__ }; short int int_list7104[] = { #else , #endif 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, 107,107,107,107,107,107,107,107,107,107,107,107,107,107,107,107, -1 #ifdef __GNUC__ }; short int int_list7168[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list7232[] = { #else , #endif 217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list7296[] = { #else , #endif 217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list7360[] = { #else , #endif 217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1,217,-1,-1,-1,-1,-1,-1,387,214,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list7424[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202 #ifdef __GNUC__ }; short int int_list7488[] = { #else , #endif 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202 #ifdef __GNUC__ }; short int int_list7552[] = { #else , #endif 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202 #ifdef __GNUC__ }; short int int_list7616[] = { #else , #endif 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, 202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, -1 #ifdef __GNUC__ }; short int int_list7680[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152 #ifdef __GNUC__ }; short int int_list7744[] = { #else , #endif 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152 #ifdef __GNUC__ }; short int int_list7808[] = { #else , #endif 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152 #ifdef __GNUC__ }; short int int_list7872[] = { #else , #endif 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, 152,152,152,152,152,152,152,152,152,152,152,152,152,152,152,152, -1 #ifdef __GNUC__ }; short int int_list7936[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38 #ifdef __GNUC__ }; short int int_list8000[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38 #ifdef __GNUC__ }; short int int_list8064[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38 #ifdef __GNUC__ }; short int int_list8128[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 38,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list8192[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182 #ifdef __GNUC__ }; short int int_list8256[] = { #else , #endif 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182 #ifdef __GNUC__ }; short int int_list8320[] = { #else , #endif 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182 #ifdef __GNUC__ }; short int int_list8384[] = { #else , #endif 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182, 167 #ifdef __GNUC__ }; short int int_list8448[] = { #else , #endif 167,167,167,167,167,167,167,167,167,167,167,167,167,167,167, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164 #ifdef __GNUC__ }; short int int_list8512[] = { #else , #endif 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164 #ifdef __GNUC__ }; short int int_list8576[] = { #else , #endif 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164 #ifdef __GNUC__ }; short int int_list8640[] = { #else , #endif 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 297 #ifdef __GNUC__ }; short int int_list8704[] = { #else , #endif 297,297,297,297,297,297,297,297,297,297,297,297,297,297,297, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293 #ifdef __GNUC__ }; short int int_list8768[] = { #else , #endif 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293 #ifdef __GNUC__ }; short int int_list8832[] = { #else , #endif 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293 #ifdef __GNUC__ }; short int int_list8896[] = { #else , #endif 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293, 292 #ifdef __GNUC__ }; short int int_list8960[] = { #else , #endif 292,292,292,292,292,292,292,292,292,292,292,292,292,292,292, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288 #ifdef __GNUC__ }; short int int_list9024[] = { #else , #endif 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288 #ifdef __GNUC__ }; short int int_list9088[] = { #else , #endif 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288 #ifdef __GNUC__ }; short int int_list9152[] = { #else , #endif 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 288,288,288,288,288,288,288,288,288,288,288,288,288,288,288,288, 336 #ifdef __GNUC__ }; short int int_list9216[] = { #else , #endif 336,336,336,336,336,336,336,336,336,336,336,336,336,336,336, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332 #ifdef __GNUC__ }; short int int_list9280[] = { #else , #endif 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332 #ifdef __GNUC__ }; short int int_list9344[] = { #else , #endif 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332 #ifdef __GNUC__ }; short int int_list9408[] = { #else , #endif 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 332,332,332,332,332,332,332,332,332,332,332,332,332,332,332,332, 331 #ifdef __GNUC__ }; short int int_list9472[] = { #else , #endif 331,331,331,331,331,331,331,331,331,331,331,331,331,331,331, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327 #ifdef __GNUC__ }; short int int_list9536[] = { #else , #endif 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327 #ifdef __GNUC__ }; short int int_list9600[] = { #else , #endif 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327 #ifdef __GNUC__ }; short int int_list9664[] = { #else , #endif 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 327,327,327,327,327,327,327,327,327,327,327,327,327,327,327,327, 36 #ifdef __GNUC__ }; short int int_list9728[] = { #else , #endif 36,36,36,36,36,36,36,36,36,36,36,36,36,36,36, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32 #ifdef __GNUC__ }; short int int_list9792[] = { #else , #endif 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32 #ifdef __GNUC__ }; short int int_list9856[] = { #else , #endif 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32 #ifdef __GNUC__ }; short int int_list9920[] = { #else , #endif 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 31 #ifdef __GNUC__ }; short int int_list9984[] = { #else , #endif 31,31,31,31,31,31,31,31,31,31,31,31,31,31,31, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27 #ifdef __GNUC__ }; short int int_list10048[] = { #else , #endif 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27 #ifdef __GNUC__ }; short int int_list10112[] = { #else , #endif 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27 #ifdef __GNUC__ }; short int int_list10176[] = { #else , #endif 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, -1 #ifdef __GNUC__ }; short int int_list10240[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143 #ifdef __GNUC__ }; short int int_list10304[] = { #else , #endif 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143 #ifdef __GNUC__ }; short int int_list10368[] = { #else , #endif 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143 #ifdef __GNUC__ }; short int int_list10432[] = { #else , #endif 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143, -1 #ifdef __GNUC__ }; short int int_list10496[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139 #ifdef __GNUC__ }; short int int_list10560[] = { #else , #endif 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139 #ifdef __GNUC__ }; short int int_list10624[] = { #else , #endif 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139 #ifdef __GNUC__ }; short int int_list10688[] = { #else , #endif 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139, -1 #ifdef __GNUC__ }; short int int_list10752[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102 #ifdef __GNUC__ }; short int int_list10816[] = { #else , #endif 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102 #ifdef __GNUC__ }; short int int_list10880[] = { #else , #endif 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102 #ifdef __GNUC__ }; short int int_list10944[] = { #else , #endif 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102, -1 #ifdef __GNUC__ }; short int int_list11008[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98 #ifdef __GNUC__ }; short int int_list11072[] = { #else , #endif 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98 #ifdef __GNUC__ }; short int int_list11136[] = { #else , #endif 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98 #ifdef __GNUC__ }; short int int_list11200[] = { #else , #endif 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, 98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98, -1 #ifdef __GNUC__ }; short int int_list11264[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123 #ifdef __GNUC__ }; short int int_list11328[] = { #else , #endif 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123 #ifdef __GNUC__ }; short int int_list11392[] = { #else , #endif 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123 #ifdef __GNUC__ }; short int int_list11456[] = { #else , #endif 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, 123,123,123,123,123,123,123,123,123,123,123,123,123,123,123,123, -1 #ifdef __GNUC__ }; short int int_list11520[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119 #ifdef __GNUC__ }; short int int_list11584[] = { #else , #endif 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119 #ifdef __GNUC__ }; short int int_list11648[] = { #else , #endif 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119 #ifdef __GNUC__ }; short int int_list11712[] = { #else , #endif 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, 119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119, -1 #ifdef __GNUC__ }; short int int_list11776[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177 #ifdef __GNUC__ }; short int int_list11840[] = { #else , #endif 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177 #ifdef __GNUC__ }; short int int_list11904[] = { #else , #endif 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177 #ifdef __GNUC__ }; short int int_list11968[] = { #else , #endif 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, 177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177, -1 #ifdef __GNUC__ }; short int int_list12032[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157 #ifdef __GNUC__ }; short int int_list12096[] = { #else , #endif 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157 #ifdef __GNUC__ }; short int int_list12160[] = { #else , #endif 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157 #ifdef __GNUC__ }; short int int_list12224[] = { #else , #endif 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157, 226 #ifdef __GNUC__ }; short int int_list12288[] = { #else , #endif 226,226,226,226,226,226,226,226,226,226,226,226,226,226,226, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187 #ifdef __GNUC__ }; short int int_list12352[] = { #else , #endif 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187 #ifdef __GNUC__ }; short int int_list12416[] = { #else , #endif 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187 #ifdef __GNUC__ }; short int int_list12480[] = { #else , #endif 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, 224 #ifdef __GNUC__ }; short int int_list12544[] = { #else , #endif 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169 #ifdef __GNUC__ }; short int int_list12608[] = { #else , #endif 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169 #ifdef __GNUC__ }; short int int_list12672[] = { #else , #endif 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169 #ifdef __GNUC__ }; short int int_list12736[] = { #else , #endif 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 169,169,169,169,169,169,169,169,169,169,169,169,169,169,169,169, 225 #ifdef __GNUC__ }; short int int_list12800[] = { #else , #endif 225,225,225,225,225,225,225,225,225,225,225,225,225,225,225, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189 #ifdef __GNUC__ }; short int int_list12864[] = { #else , #endif 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189 #ifdef __GNUC__ }; short int int_list12928[] = { #else , #endif 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189 #ifdef __GNUC__ }; short int int_list12992[] = { #else , #endif 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189, 223 #ifdef __GNUC__ }; short int int_list13056[] = { #else , #endif 223,223,223,223,223,223,223,223,223,223,223,223,223,223,223, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162 #ifdef __GNUC__ }; short int int_list13120[] = { #else , #endif 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162 #ifdef __GNUC__ }; short int int_list13184[] = { #else , #endif 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162 #ifdef __GNUC__ }; short int int_list13248[] = { #else , #endif 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162, 175 #ifdef __GNUC__ }; short int int_list13312[] = { #else , #endif 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173 #ifdef __GNUC__ }; short int int_list13376[] = { #else , #endif 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173 #ifdef __GNUC__ }; short int int_list13440[] = { #else , #endif 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173 #ifdef __GNUC__ }; short int int_list13504[] = { #else , #endif 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173, 228 #ifdef __GNUC__ }; short int int_list13568[] = { #else , #endif 228,228,228,228,228,228,228,228,228,228,228,228,228,228,228, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212 #ifdef __GNUC__ }; short int int_list13632[] = { #else , #endif 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212 #ifdef __GNUC__ }; short int int_list13696[] = { #else , #endif 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212 #ifdef __GNUC__ }; short int int_list13760[] = { #else , #endif 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 212,212,212,212,212,212,212,212,212,212,212,212,212,212,212,212, 37 #ifdef __GNUC__ }; short int int_list13824[] = { #else , #endif 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310 #ifdef __GNUC__ }; short int int_list13888[] = { #else , #endif 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310 #ifdef __GNUC__ }; short int int_list13952[] = { #else , #endif 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310 #ifdef __GNUC__ }; short int int_list14016[] = { #else , #endif 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 310,310,310,310,310,310,310,310,310,310,310,310,310,310,310,310, 227 #ifdef __GNUC__ }; short int int_list14080[] = { #else , #endif 227,227,227,227,227,227,227,227,227,227,227,227,227,227,227, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205 #ifdef __GNUC__ }; short int int_list14144[] = { #else , #endif 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205 #ifdef __GNUC__ }; short int int_list14208[] = { #else , #endif 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205 #ifdef __GNUC__ }; short int int_list14272[] = { #else , #endif 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, 311 #ifdef __GNUC__ }; short int int_list14336[] = { #else , #endif 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311 #ifdef __GNUC__ }; short int int_list14400[] = { #else , #endif 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311 #ifdef __GNUC__ }; short int int_list14464[] = { #else , #endif 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311 #ifdef __GNUC__ }; short int int_list14528[] = { #else , #endif 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, 311,311,311,311,311,311,311,311,311,311,311,311,311,311,311,311, -1 #ifdef __GNUC__ }; short int int_list14592[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220 #ifdef __GNUC__ }; short int int_list14656[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220 #ifdef __GNUC__ }; short int int_list14720[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220 #ifdef __GNUC__ }; short int int_list14784[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 220,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list14848[] = { #else , #endif -1,-1,-1,138,338,265,351,-1,-1,-1,-1,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149 #ifdef __GNUC__ }; short int int_list14912[] = { #else , #endif 342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149 #ifdef __GNUC__ }; short int int_list14976[] = { #else , #endif 342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149 #ifdef __GNUC__ }; short int int_list15040[] = { #else , #endif 342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, 149,342,269,354,138,338,265,351,148,-1,267,353,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list15104[] = { #else , #endif -1,-1,-1,-1,339,263,350,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list15168[] = { #else , #endif -1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list15232[] = { #else , #endif -1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list15296[] = { #else , #endif -1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1,-1,268,-1,-1,339,263,350,147,-1,266,352,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list15360[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137 #ifdef __GNUC__ }; short int int_list15424[] = { #else , #endif 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137 #ifdef __GNUC__ }; short int int_list15488[] = { #else , #endif 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137 #ifdef __GNUC__ }; short int int_list15552[] = { #else , #endif 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137, -1 #ifdef __GNUC__ }; short int int_list15616[] = { #else , #endif -1,-1,-1,136,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135 #ifdef __GNUC__ }; short int int_list15680[] = { #else , #endif 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135 #ifdef __GNUC__ }; short int int_list15744[] = { #else , #endif 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135 #ifdef __GNUC__ }; short int int_list15808[] = { #else , #endif 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, 135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135, -1 #ifdef __GNUC__ }; short int int_list15872[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264 #ifdef __GNUC__ }; short int int_list15936[] = { #else , #endif 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264 #ifdef __GNUC__ }; short int int_list16000[] = { #else , #endif 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264 #ifdef __GNUC__ }; short int int_list16064[] = { #else , #endif 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, -1 #ifdef __GNUC__ }; short int int_list16128[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262 #ifdef __GNUC__ }; short int int_list16192[] = { #else , #endif 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262 #ifdef __GNUC__ }; short int int_list16256[] = { #else , #endif 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262 #ifdef __GNUC__ }; short int int_list16320[] = { #else , #endif 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,262, 8 #ifdef __GNUC__ }; short int int_list16384[] = { #else , #endif 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9 #ifdef __GNUC__ }; short int int_list16448[] = { #else , #endif 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9 #ifdef __GNUC__ }; short int int_list16512[] = { #else , #endif 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9 #ifdef __GNUC__ }; short int int_list16576[] = { #else , #endif 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 3 #ifdef __GNUC__ }; short int int_list16640[] = { #else , #endif 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4 #ifdef __GNUC__ }; short int int_list16704[] = { #else , #endif 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4 #ifdef __GNUC__ }; short int int_list16768[] = { #else , #endif 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4 #ifdef __GNUC__ }; short int int_list16832[] = { #else , #endif 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 368 #ifdef __GNUC__ }; short int int_list16896[] = { #else , #endif 368,368,368,368,368,368,368,368,368,368,368,368,368,368,368, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369 #ifdef __GNUC__ }; short int int_list16960[] = { #else , #endif 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369 #ifdef __GNUC__ }; short int int_list17024[] = { #else , #endif 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369 #ifdef __GNUC__ }; short int int_list17088[] = { #else , #endif 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 369,369,369,369,369,369,369,369,369,369,369,369,369,369,369,369, 363 #ifdef __GNUC__ }; short int int_list17152[] = { #else , #endif 363,363,363,363,363,363,363,363,363,363,363,363,363,363,363, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364 #ifdef __GNUC__ }; short int int_list17216[] = { #else , #endif 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364 #ifdef __GNUC__ }; short int int_list17280[] = { #else , #endif 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364 #ifdef __GNUC__ }; short int int_list17344[] = { #else , #endif 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 364,364,364,364,364,364,364,364,364,364,364,364,364,364,364,364, 258 #ifdef __GNUC__ }; short int int_list17408[] = { #else , #endif 258,258,258,258,258,258,258,258,258,258,258,258,258,258,258, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259 #ifdef __GNUC__ }; short int int_list17472[] = { #else , #endif 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259 #ifdef __GNUC__ }; short int int_list17536[] = { #else , #endif 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259 #ifdef __GNUC__ }; short int int_list17600[] = { #else , #endif 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 253 #ifdef __GNUC__ }; short int int_list17664[] = { #else , #endif 253,253,253,253,253,253,253,253,253,253,253,253,253,253,253, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254 #ifdef __GNUC__ }; short int int_list17728[] = { #else , #endif 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254 #ifdef __GNUC__ }; short int int_list17792[] = { #else , #endif 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254 #ifdef __GNUC__ }; short int int_list17856[] = { #else , #endif 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 254,254,254,254,254,254,254,254,254,254,254,254,254,254,254,254, 23 #ifdef __GNUC__ }; short int int_list17920[] = { #else , #endif 23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24 #ifdef __GNUC__ }; short int int_list17984[] = { #else , #endif 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24 #ifdef __GNUC__ }; short int int_list18048[] = { #else , #endif 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24 #ifdef __GNUC__ }; short int int_list18112[] = { #else , #endif 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, 18 #ifdef __GNUC__ }; short int int_list18176[] = { #else , #endif 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19 #ifdef __GNUC__ }; short int int_list18240[] = { #else , #endif 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19 #ifdef __GNUC__ }; short int int_list18304[] = { #else , #endif 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19 #ifdef __GNUC__ }; short int int_list18368[] = { #else , #endif 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, 413 #ifdef __GNUC__ }; short int int_list18432[] = { #else , #endif 413,413,413,413,413,413,413,413,413,413,413,413,413,413,413, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414 #ifdef __GNUC__ }; short int int_list18496[] = { #else , #endif 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414 #ifdef __GNUC__ }; short int int_list18560[] = { #else , #endif 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414 #ifdef __GNUC__ }; short int int_list18624[] = { #else , #endif 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 414,414,414,414,414,414,414,414,414,414,414,414,414,414,414,414, 408 #ifdef __GNUC__ }; short int int_list18688[] = { #else , #endif 408,408,408,408,408,408,408,408,408,408,408,408,408,408,408, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409 #ifdef __GNUC__ }; short int int_list18752[] = { #else , #endif 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409 #ifdef __GNUC__ }; short int int_list18816[] = { #else , #endif 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409 #ifdef __GNUC__ }; short int int_list18880[] = { #else , #endif 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 409,409,409,409,409,409,409,409,409,409,409,409,409,409,409,409, 71 #ifdef __GNUC__ }; short int int_list18944[] = { #else , #endif 71,71,71,71,71,71,71,71,71,71,71,71,71,71,71, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72 #ifdef __GNUC__ }; short int int_list19008[] = { #else , #endif 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72 #ifdef __GNUC__ }; short int int_list19072[] = { #else , #endif 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72 #ifdef __GNUC__ }; short int int_list19136[] = { #else , #endif 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 63 #ifdef __GNUC__ }; short int int_list19200[] = { #else , #endif 63,63,63,63,63,63,63,63,63,63,63,63,63,63,63, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64 #ifdef __GNUC__ }; short int int_list19264[] = { #else , #endif 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64 #ifdef __GNUC__ }; short int int_list19328[] = { #else , #endif 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64 #ifdef __GNUC__ }; short int int_list19392[] = { #else , #endif 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64, 55 #ifdef __GNUC__ }; short int int_list19456[] = { #else , #endif 69,248,-1,384,180,404,-1,47,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56 #ifdef __GNUC__ }; short int int_list19520[] = { #else , #endif 68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56 #ifdef __GNUC__ }; short int int_list19584[] = { #else , #endif 68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56 #ifdef __GNUC__ }; short int int_list19648[] = { #else , #endif 68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 56,68,249,-1,385,178,405,-1,48,-1,-1,-1,-1,-1,-1,-1, 51 #ifdef __GNUC__ }; short int int_list19712[] = { #else , #endif 61,244,-1,380,160,400,-1,43,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52 #ifdef __GNUC__ }; short int int_list19776[] = { #else , #endif 60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52 #ifdef __GNUC__ }; short int int_list19840[] = { #else , #endif 60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52 #ifdef __GNUC__ }; short int int_list19904[] = { #else , #endif 60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, 52,60,245,-1,381,158,401,-1,44,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list19968[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list20032[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list20096[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list20160[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list20224[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list20288[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list20352[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list20416[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 84 #ifdef __GNUC__ }; short int int_list20480[] = { #else , #endif 84,84,84,84,84,84,84,84,84,84,84,84,84,84,84, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85 #ifdef __GNUC__ }; short int int_list20544[] = { #else , #endif 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85 #ifdef __GNUC__ }; short int int_list20608[] = { #else , #endif 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85 #ifdef __GNUC__ }; short int int_list20672[] = { #else , #endif 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,85,85,85,85,85,85,85,85,85,85,85, -1 #ifdef __GNUC__ }; short int int_list20736[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285 #ifdef __GNUC__ }; short int int_list20800[] = { #else , #endif 286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285 #ifdef __GNUC__ }; short int int_list20864[] = { #else , #endif 286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285 #ifdef __GNUC__ }; short int int_list20928[] = { #else , #endif 286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 285,286,286,286,286,286,286,286,286,286,286,286,286,286,286,286, 373 #ifdef __GNUC__ }; short int int_list20992[] = { #else , #endif 373,373,373,373,373,373,373,373,373,373,373,373,373,373,373, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374 #ifdef __GNUC__ }; short int int_list21056[] = { #else , #endif 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374 #ifdef __GNUC__ }; short int int_list21120[] = { #else , #endif 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374 #ifdef __GNUC__ }; short int int_list21184[] = { #else , #endif 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, 374,374,374,374,374,374,374,374,374,374,374,374,374,374,374,374, -1 #ifdef __GNUC__ }; short int int_list21248[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280 #ifdef __GNUC__ }; short int int_list21312[] = { #else , #endif 281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280 #ifdef __GNUC__ }; short int int_list21376[] = { #else , #endif 281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280 #ifdef __GNUC__ }; short int int_list21440[] = { #else , #endif 281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 280,281,281,281,281,281,281,281,281,281,281,281,281,281,281,281, 208 #ifdef __GNUC__ }; short int int_list21504[] = { #else , #endif 208,208,208,208,208,208,208,208,208,208,208,208,208,208,208, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209 #ifdef __GNUC__ }; short int int_list21568[] = { #else , #endif 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209 #ifdef __GNUC__ }; short int int_list21632[] = { #else , #endif 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209 #ifdef __GNUC__ }; short int int_list21696[] = { #else , #endif 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, 209,209,209,209,209,209,209,209,209,209,209,209,209,209,209,209, -1 #ifdef __GNUC__ }; short int int_list21760[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277 #ifdef __GNUC__ }; short int int_list21824[] = { #else , #endif 276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277 #ifdef __GNUC__ }; short int int_list21888[] = { #else , #endif 276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277 #ifdef __GNUC__ }; short int int_list21952[] = { #else , #endif 276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 277,276,276,276,276,276,276,276,276,276,276,276,276,276,276,276, 13 #ifdef __GNUC__ }; short int int_list22016[] = { #else , #endif 13,13,13,13,13,13,13,13,13,13,13,13,13,13,13, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14 #ifdef __GNUC__ }; short int int_list22080[] = { #else , #endif 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14 #ifdef __GNUC__ }; short int int_list22144[] = { #else , #endif 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14 #ifdef __GNUC__ }; short int int_list22208[] = { #else , #endif 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, -1 #ifdef __GNUC__ }; short int int_list22272[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273 #ifdef __GNUC__ }; short int int_list22336[] = { #else , #endif 272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273 #ifdef __GNUC__ }; short int int_list22400[] = { #else , #endif 272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273 #ifdef __GNUC__ }; short int int_list22464[] = { #else , #endif 272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 273,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, 239 #ifdef __GNUC__ }; short int int_list22528[] = { #else , #endif 239,239,239,239,239,239,239,239,239,239,239,239,239,239,239, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240 #ifdef __GNUC__ }; short int int_list22592[] = { #else , #endif 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240 #ifdef __GNUC__ }; short int int_list22656[] = { #else , #endif 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240 #ifdef __GNUC__ }; short int int_list22720[] = { #else , #endif 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240, 234 #ifdef __GNUC__ }; short int int_list22784[] = { #else , #endif 234,234,234,234,234,234,234,234,234,234,234,234,234,234,234, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235 #ifdef __GNUC__ }; short int int_list22848[] = { #else , #endif 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235 #ifdef __GNUC__ }; short int int_list22912[] = { #else , #endif 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235 #ifdef __GNUC__ }; short int int_list22976[] = { #else , #endif 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 235,235,235,235,235,235,235,235,235,235,235,235,235,235,235,235, 113 #ifdef __GNUC__ }; short int int_list23040[] = { #else , #endif 113,113,113,113,113,113,113,113,113,113,113,113,113,113,113, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114 #ifdef __GNUC__ }; short int int_list23104[] = { #else , #endif 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114 #ifdef __GNUC__ }; short int int_list23168[] = { #else , #endif 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114 #ifdef __GNUC__ }; short int int_list23232[] = { #else , #endif 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 114,114,114,114,114,114,114,114,114,114,114,114,114,114,114,114, 108 #ifdef __GNUC__ }; short int int_list23296[] = { #else , #endif 108,108,108,108,108,108,108,108,108,108,108,108,108,108,108, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109 #ifdef __GNUC__ }; short int int_list23360[] = { #else , #endif 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109 #ifdef __GNUC__ }; short int int_list23424[] = { #else , #endif 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109 #ifdef __GNUC__ }; short int int_list23488[] = { #else , #endif 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, 109,109,109,109,109,109,109,109,109,109,109,109,109,109,109,109, -1 #ifdef __GNUC__ }; short int int_list23552[] = { #else , #endif 219,-1,-1,-1,-1,-1,-1,388,216,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list23616[] = { #else , #endif 218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list23680[] = { #else , #endif 218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list23744[] = { #else , #endif 218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, -1,218,-1,-1,-1,-1,-1,-1,389,215,-1,-1,-1,-1,-1,-1, 204 #ifdef __GNUC__ }; short int int_list23808[] = { #else , #endif 204,204,204,204,204,204,204,204,204,204,204,204,204,204,204, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203 #ifdef __GNUC__ }; short int int_list23872[] = { #else , #endif 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203 #ifdef __GNUC__ }; short int int_list23936[] = { #else , #endif 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203 #ifdef __GNUC__ }; short int int_list24000[] = { #else , #endif 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 203,203,203,203,203,203,203,203,203,203,203,203,203,203,203,203, 153 #ifdef __GNUC__ }; short int int_list24064[] = { #else , #endif 153,153,153,153,153,153,153,153,153,153,153,153,153,153,153, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154 #ifdef __GNUC__ }; short int int_list24128[] = { #else , #endif 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154 #ifdef __GNUC__ }; short int int_list24192[] = { #else , #endif 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154 #ifdef __GNUC__ }; short int int_list24256[] = { #else , #endif 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 154,154,154,154,154,154,154,154,154,154,154,154,154,154,154,154, 39 #ifdef __GNUC__ }; short int int_list24320[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40 #ifdef __GNUC__ }; short int int_list24384[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40 #ifdef __GNUC__ }; short int int_list24448[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40 #ifdef __GNUC__ }; short int int_list24512[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 183 #ifdef __GNUC__ }; short int int_list24576[] = { #else , #endif 183,183,183,183,183,183,183,183,183,183,183,183,183,183,183, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184 #ifdef __GNUC__ }; short int int_list24640[] = { #else , #endif 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184 #ifdef __GNUC__ }; short int int_list24704[] = { #else , #endif 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184 #ifdef __GNUC__ }; short int int_list24768[] = { #else , #endif 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184, 165 #ifdef __GNUC__ }; short int int_list24832[] = { #else , #endif 165,165,165,165,165,165,165,165,165,165,165,165,165,165,165, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166 #ifdef __GNUC__ }; short int int_list24896[] = { #else , #endif 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166 #ifdef __GNUC__ }; short int int_list24960[] = { #else , #endif 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166 #ifdef __GNUC__ }; short int int_list25024[] = { #else , #endif 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166, 295 #ifdef __GNUC__ }; short int int_list25088[] = { #else , #endif 295,295,295,295,295,295,295,295,295,295,295,295,295,295,295, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294 #ifdef __GNUC__ }; short int int_list25152[] = { #else , #endif 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294 #ifdef __GNUC__ }; short int int_list25216[] = { #else , #endif 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294 #ifdef __GNUC__ }; short int int_list25280[] = { #else , #endif 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294, 290 #ifdef __GNUC__ }; short int int_list25344[] = { #else , #endif 290,290,290,290,290,290,290,290,290,290,290,290,290,290,290, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289 #ifdef __GNUC__ }; short int int_list25408[] = { #else , #endif 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289 #ifdef __GNUC__ }; short int int_list25472[] = { #else , #endif 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289 #ifdef __GNUC__ }; short int int_list25536[] = { #else , #endif 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289, 334 #ifdef __GNUC__ }; short int int_list25600[] = { #else , #endif 334,334,334,334,334,334,334,334,334,334,334,334,334,334,334, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333 #ifdef __GNUC__ }; short int int_list25664[] = { #else , #endif 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333 #ifdef __GNUC__ }; short int int_list25728[] = { #else , #endif 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333 #ifdef __GNUC__ }; short int int_list25792[] = { #else , #endif 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 333,333,333,333,333,333,333,333,333,333,333,333,333,333,333,333, 329 #ifdef __GNUC__ }; short int int_list25856[] = { #else , #endif 329,329,329,329,329,329,329,329,329,329,329,329,329,329,329, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328 #ifdef __GNUC__ }; short int int_list25920[] = { #else , #endif 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328 #ifdef __GNUC__ }; short int int_list25984[] = { #else , #endif 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328 #ifdef __GNUC__ }; short int int_list26048[] = { #else , #endif 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 328,328,328,328,328,328,328,328,328,328,328,328,328,328,328,328, 34 #ifdef __GNUC__ }; short int int_list26112[] = { #else , #endif 34,34,34,34,34,34,34,34,34,34,34,34,34,34,34, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33 #ifdef __GNUC__ }; short int int_list26176[] = { #else , #endif 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33 #ifdef __GNUC__ }; short int int_list26240[] = { #else , #endif 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33 #ifdef __GNUC__ }; short int int_list26304[] = { #else , #endif 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33, 29 #ifdef __GNUC__ }; short int int_list26368[] = { #else , #endif 29,29,29,29,29,29,29,29,29,29,29,29,29,29,29, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28 #ifdef __GNUC__ }; short int int_list26432[] = { #else , #endif 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28 #ifdef __GNUC__ }; short int int_list26496[] = { #else , #endif 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28 #ifdef __GNUC__ }; short int int_list26560[] = { #else , #endif 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, 145 #ifdef __GNUC__ }; short int int_list26624[] = { #else , #endif 145,145,145,145,145,145,145,145,145,145,145,145,145,145,145, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144 #ifdef __GNUC__ }; short int int_list26688[] = { #else , #endif 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144 #ifdef __GNUC__ }; short int int_list26752[] = { #else , #endif 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144 #ifdef __GNUC__ }; short int int_list26816[] = { #else , #endif 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 144,144,144,144,144,144,144,144,144,144,144,144,144,144,144,144, 141 #ifdef __GNUC__ }; short int int_list26880[] = { #else , #endif 141,141,141,141,141,141,141,141,141,141,141,141,141,141,141, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140 #ifdef __GNUC__ }; short int int_list26944[] = { #else , #endif 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140 #ifdef __GNUC__ }; short int int_list27008[] = { #else , #endif 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140 #ifdef __GNUC__ }; short int int_list27072[] = { #else , #endif 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140, 104 #ifdef __GNUC__ }; short int int_list27136[] = { #else , #endif 104,104,104,104,104,104,104,104,104,104,104,104,104,104,104, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103 #ifdef __GNUC__ }; short int int_list27200[] = { #else , #endif 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103 #ifdef __GNUC__ }; short int int_list27264[] = { #else , #endif 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103 #ifdef __GNUC__ }; short int int_list27328[] = { #else , #endif 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 100 #ifdef __GNUC__ }; short int int_list27392[] = { #else , #endif 100,100,100,100,100,100,100,100,100,100,100,100,100,100,100, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99 #ifdef __GNUC__ }; short int int_list27456[] = { #else , #endif 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99 #ifdef __GNUC__ }; short int int_list27520[] = { #else , #endif 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99 #ifdef __GNUC__ }; short int int_list27584[] = { #else , #endif 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99, 124 #ifdef __GNUC__ }; short int int_list27648[] = { #else , #endif 124,124,124,124,124,124,124,124,124,124,124,124,124,124,124, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125 #ifdef __GNUC__ }; short int int_list27712[] = { #else , #endif 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125 #ifdef __GNUC__ }; short int int_list27776[] = { #else , #endif 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125 #ifdef __GNUC__ }; short int int_list27840[] = { #else , #endif 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 125,125,125,125,125,125,125,125,125,125,125,125,125,125,125,125, 120 #ifdef __GNUC__ }; short int int_list27904[] = { #else , #endif 120,120,120,120,120,120,120,120,120,120,120,120,120,120,120, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121 #ifdef __GNUC__ }; short int int_list27968[] = { #else , #endif 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121 #ifdef __GNUC__ }; short int int_list28032[] = { #else , #endif 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121 #ifdef __GNUC__ }; short int int_list28096[] = { #else , #endif 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 121,121,121,121,121,121,121,121,121,121,121,121,121,121,121,121, 181 #ifdef __GNUC__ }; short int int_list28160[] = { #else , #endif 181,181,181,181,181,181,181,181,181,181,181,181,181,181,181, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179 #ifdef __GNUC__ }; short int int_list28224[] = { #else , #endif 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179 #ifdef __GNUC__ }; short int int_list28288[] = { #else , #endif 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179 #ifdef __GNUC__ }; short int int_list28352[] = { #else , #endif 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179, 161 #ifdef __GNUC__ }; short int int_list28416[] = { #else , #endif 161,161,161,161,161,161,161,161,161,161,161,161,161,161,161, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159 #ifdef __GNUC__ }; short int int_list28480[] = { #else , #endif 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159 #ifdef __GNUC__ }; short int int_list28544[] = { #else , #endif 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159 #ifdef __GNUC__ }; short int int_list28608[] = { #else , #endif 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, 159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159, -1 #ifdef __GNUC__ }; short int int_list28672[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188 #ifdef __GNUC__ }; short int int_list28736[] = { #else , #endif 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188 #ifdef __GNUC__ }; short int int_list28800[] = { #else , #endif 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188 #ifdef __GNUC__ }; short int int_list28864[] = { #else , #endif 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, 188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188, -1 #ifdef __GNUC__ }; short int int_list28928[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170 #ifdef __GNUC__ }; short int int_list28992[] = { #else , #endif 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170 #ifdef __GNUC__ }; short int int_list29056[] = { #else , #endif 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170 #ifdef __GNUC__ }; short int int_list29120[] = { #else , #endif 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, 170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170, -1 #ifdef __GNUC__ }; short int int_list29184[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190 #ifdef __GNUC__ }; short int int_list29248[] = { #else , #endif 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190 #ifdef __GNUC__ }; short int int_list29312[] = { #else , #endif 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190 #ifdef __GNUC__ }; short int int_list29376[] = { #else , #endif 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, 190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190, -1 #ifdef __GNUC__ }; short int int_list29440[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163 #ifdef __GNUC__ }; short int int_list29504[] = { #else , #endif 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163 #ifdef __GNUC__ }; short int int_list29568[] = { #else , #endif 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163 #ifdef __GNUC__ }; short int int_list29632[] = { #else , #endif 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, 163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163, -1 #ifdef __GNUC__ }; short int int_list29696[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174 #ifdef __GNUC__ }; short int int_list29760[] = { #else , #endif 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174 #ifdef __GNUC__ }; short int int_list29824[] = { #else , #endif 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174 #ifdef __GNUC__ }; short int int_list29888[] = { #else , #endif 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, 174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174, -1 #ifdef __GNUC__ }; short int int_list29952[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213 #ifdef __GNUC__ }; short int int_list30016[] = { #else , #endif 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213 #ifdef __GNUC__ }; short int int_list30080[] = { #else , #endif 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213 #ifdef __GNUC__ }; short int int_list30144[] = { #else , #endif 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 213,213,213,213,213,213,213,213,213,213,213,213,213,213,213,213, 171 #ifdef __GNUC__ }; short int int_list30208[] = { #else , #endif 171,171,171,171,171,171,171,171,171,171,171,171,171,171,171, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172 #ifdef __GNUC__ }; short int int_list30272[] = { #else , #endif 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172 #ifdef __GNUC__ }; short int int_list30336[] = { #else , #endif 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172 #ifdef __GNUC__ }; short int int_list30400[] = { #else , #endif 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, 172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172, -1 #ifdef __GNUC__ }; short int int_list30464[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206 #ifdef __GNUC__ }; short int int_list30528[] = { #else , #endif 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206 #ifdef __GNUC__ }; short int int_list30592[] = { #else , #endif 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206 #ifdef __GNUC__ }; short int int_list30656[] = { #else , #endif 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 206,206,206,206,206,206,206,206,206,206,206,206,206,206,206,206, 312 #ifdef __GNUC__ }; short int int_list30720[] = { #else , #endif 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312 #ifdef __GNUC__ }; short int int_list30784[] = { #else , #endif 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312 #ifdef __GNUC__ }; short int int_list30848[] = { #else , #endif 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312 #ifdef __GNUC__ }; short int int_list30912[] = { #else , #endif 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 312,312,312,312,312,312,312,312,312,312,312,312,312,312,312,312, 221 #ifdef __GNUC__ }; short int int_list30976[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222 #ifdef __GNUC__ }; short int int_list31040[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222 #ifdef __GNUC__ }; short int int_list31104[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222 #ifdef __GNUC__ }; short int int_list31168[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 222,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 134 #ifdef __GNUC__ }; short int int_list31232[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list31296[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list31360[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list31424[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 151 #ifdef __GNUC__ }; short int int_list31488[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,232,231,229,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1 #ifdef __GNUC__ }; short int int_list31552[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1 #ifdef __GNUC__ }; short int int_list31616[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1 #ifdef __GNUC__ }; short int int_list31680[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,230,-1,-1, 106 #ifdef __GNUC__ }; short int int_list31744[] = { #else , #endif 106,106,106,118,118,118,118,106,106,106,106,118,118,118,118, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list31808[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list31872[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list31936[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 192 #ifdef __GNUC__ }; short int int_list32000[] = { #else , #endif 192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192 #ifdef __GNUC__ }; short int int_list32064[] = { #else , #endif 192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192 #ifdef __GNUC__ }; short int int_list32128[] = { #else , #endif 192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192 #ifdef __GNUC__ }; short int int_list32192[] = { #else , #endif 192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 192,192,192,192,192,192,192,192,191,191,191,191,191,191,191,191, 313 #ifdef __GNUC__ }; short int int_list32256[] = { #else , #endif 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313 #ifdef __GNUC__ }; short int int_list32320[] = { #else , #endif 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313 #ifdef __GNUC__ }; short int int_list32384[] = { #else , #endif 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313 #ifdef __GNUC__ }; short int int_list32448[] = { #else , #endif 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, 320 #ifdef __GNUC__ }; short int int_list32512[] = { #else , #endif 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320 #ifdef __GNUC__ }; short int int_list32576[] = { #else , #endif 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320 #ifdef __GNUC__ }; short int int_list32640[] = { #else , #endif 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320 #ifdef __GNUC__ }; short int int_list32704[] = { #else , #endif 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 320,320,320,320,320,320,320,320,320,320,320,320,320,320,320,320, 11 #ifdef __GNUC__ }; short int int_list32768[] = { #else , #endif 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11 #ifdef __GNUC__ }; short int int_list32832[] = { #else , #endif 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11 #ifdef __GNUC__ }; short int int_list32896[] = { #else , #endif 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11 #ifdef __GNUC__ }; short int int_list32960[] = { #else , #endif 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11, 6 #ifdef __GNUC__ }; short int int_list33024[] = { #else , #endif 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6 #ifdef __GNUC__ }; short int int_list33088[] = { #else , #endif 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6 #ifdef __GNUC__ }; short int int_list33152[] = { #else , #endif 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6 #ifdef __GNUC__ }; short int int_list33216[] = { #else , #endif 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 371 #ifdef __GNUC__ }; short int int_list33280[] = { #else , #endif 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371 #ifdef __GNUC__ }; short int int_list33344[] = { #else , #endif 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371 #ifdef __GNUC__ }; short int int_list33408[] = { #else , #endif 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371 #ifdef __GNUC__ }; short int int_list33472[] = { #else , #endif 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 371,371,371,371,371,371,371,371,371,371,371,371,371,371,371,371, 366 #ifdef __GNUC__ }; short int int_list33536[] = { #else , #endif 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366 #ifdef __GNUC__ }; short int int_list33600[] = { #else , #endif 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366 #ifdef __GNUC__ }; short int int_list33664[] = { #else , #endif 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366 #ifdef __GNUC__ }; short int int_list33728[] = { #else , #endif 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 366,366,366,366,366,366,366,366,366,366,366,366,366,366,366,366, 261 #ifdef __GNUC__ }; short int int_list33792[] = { #else , #endif 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261 #ifdef __GNUC__ }; short int int_list33856[] = { #else , #endif 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261 #ifdef __GNUC__ }; short int int_list33920[] = { #else , #endif 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261 #ifdef __GNUC__ }; short int int_list33984[] = { #else , #endif 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 261,261,261,261,261,261,261,261,261,261,261,261,261,261,261,261, 256 #ifdef __GNUC__ }; short int int_list34048[] = { #else , #endif 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256 #ifdef __GNUC__ }; short int int_list34112[] = { #else , #endif 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256 #ifdef __GNUC__ }; short int int_list34176[] = { #else , #endif 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256 #ifdef __GNUC__ }; short int int_list34240[] = { #else , #endif 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256, 26 #ifdef __GNUC__ }; short int int_list34304[] = { #else , #endif 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26 #ifdef __GNUC__ }; short int int_list34368[] = { #else , #endif 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26 #ifdef __GNUC__ }; short int int_list34432[] = { #else , #endif 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26 #ifdef __GNUC__ }; short int int_list34496[] = { #else , #endif 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, 21 #ifdef __GNUC__ }; short int int_list34560[] = { #else , #endif 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21 #ifdef __GNUC__ }; short int int_list34624[] = { #else , #endif 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21 #ifdef __GNUC__ }; short int int_list34688[] = { #else , #endif 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21 #ifdef __GNUC__ }; short int int_list34752[] = { #else , #endif 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, 416 #ifdef __GNUC__ }; short int int_list34816[] = { #else , #endif 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416 #ifdef __GNUC__ }; short int int_list34880[] = { #else , #endif 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416 #ifdef __GNUC__ }; short int int_list34944[] = { #else , #endif 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416 #ifdef __GNUC__ }; short int int_list35008[] = { #else , #endif 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 416,416,416,416,416,416,416,416,416,416,416,416,416,416,416,416, 411 #ifdef __GNUC__ }; short int int_list35072[] = { #else , #endif 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411 #ifdef __GNUC__ }; short int int_list35136[] = { #else , #endif 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411 #ifdef __GNUC__ }; short int int_list35200[] = { #else , #endif 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411 #ifdef __GNUC__ }; short int int_list35264[] = { #else , #endif 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 411,411,411,411,411,411,411,411,411,411,411,411,411,411,411,411, 74 #ifdef __GNUC__ }; short int int_list35328[] = { #else , #endif 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74 #ifdef __GNUC__ }; short int int_list35392[] = { #else , #endif 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74 #ifdef __GNUC__ }; short int int_list35456[] = { #else , #endif 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74 #ifdef __GNUC__ }; short int int_list35520[] = { #else , #endif 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 66 #ifdef __GNUC__ }; short int int_list35584[] = { #else , #endif 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66 #ifdef __GNUC__ }; short int int_list35648[] = { #else , #endif 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66 #ifdef __GNUC__ }; short int int_list35712[] = { #else , #endif 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66 #ifdef __GNUC__ }; short int int_list35776[] = { #else , #endif 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66, 57 #ifdef __GNUC__ }; short int int_list35840[] = { #else , #endif -1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57 #ifdef __GNUC__ }; short int int_list35904[] = { #else , #endif -1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57 #ifdef __GNUC__ }; short int int_list35968[] = { #else , #endif -1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57 #ifdef __GNUC__ }; short int int_list36032[] = { #else , #endif -1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 57,-1,250,-1,386,-1,406,-1,49,-1,-1,-1,-1,-1,-1,-1, 53 #ifdef __GNUC__ }; short int int_list36096[] = { #else , #endif 337,246,298,382,58,402,251,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53 #ifdef __GNUC__ }; short int int_list36160[] = { #else , #endif 337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53 #ifdef __GNUC__ }; short int int_list36224[] = { #else , #endif 337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53 #ifdef __GNUC__ }; short int int_list36288[] = { #else , #endif 337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 53,337,246,298,382,58,402,-1,45,-1,-1,-1,-1,-1,-1,-1, 129 #ifdef __GNUC__ }; short int int_list36352[] = { #else , #endif 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129 #ifdef __GNUC__ }; short int int_list36416[] = { #else , #endif 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129 #ifdef __GNUC__ }; short int int_list36480[] = { #else , #endif 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129 #ifdef __GNUC__ }; short int int_list36544[] = { #else , #endif 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129, 130 #ifdef __GNUC__ }; short int int_list36608[] = { #else , #endif 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130 #ifdef __GNUC__ }; short int int_list36672[] = { #else , #endif 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130 #ifdef __GNUC__ }; short int int_list36736[] = { #else , #endif 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130 #ifdef __GNUC__ }; short int int_list36800[] = { #else , #endif 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130, 87 #ifdef __GNUC__ }; short int int_list36864[] = { #else , #endif 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87 #ifdef __GNUC__ }; short int int_list36928[] = { #else , #endif 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87 #ifdef __GNUC__ }; short int int_list36992[] = { #else , #endif 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87 #ifdef __GNUC__ }; short int int_list37056[] = { #else , #endif 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, 87,87,87,87,87,87,87,87,87,87,87,87,87,87,87,87, -1 #ifdef __GNUC__ }; short int int_list37120[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287 #ifdef __GNUC__ }; short int int_list37184[] = { #else , #endif 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287 #ifdef __GNUC__ }; short int int_list37248[] = { #else , #endif 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287 #ifdef __GNUC__ }; short int int_list37312[] = { #else , #endif 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 287,287,287,287,287,287,287,287,287,287,287,287,287,287,287,287, 376 #ifdef __GNUC__ }; short int int_list37376[] = { #else , #endif 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376 #ifdef __GNUC__ }; short int int_list37440[] = { #else , #endif 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376 #ifdef __GNUC__ }; short int int_list37504[] = { #else , #endif 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376 #ifdef __GNUC__ }; short int int_list37568[] = { #else , #endif 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, 376,376,376,376,376,376,376,376,376,376,376,376,376,376,376,376, -1 #ifdef __GNUC__ }; short int int_list37632[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283 #ifdef __GNUC__ }; short int int_list37696[] = { #else , #endif 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283 #ifdef __GNUC__ }; short int int_list37760[] = { #else , #endif 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283 #ifdef __GNUC__ }; short int int_list37824[] = { #else , #endif 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 283,283,283,283,283,283,283,283,283,283,283,283,283,283,283,283, 211 #ifdef __GNUC__ }; short int int_list37888[] = { #else , #endif 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211 #ifdef __GNUC__ }; short int int_list37952[] = { #else , #endif 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211 #ifdef __GNUC__ }; short int int_list38016[] = { #else , #endif 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211 #ifdef __GNUC__ }; short int int_list38080[] = { #else , #endif 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, 211,211,211,211,211,211,211,211,211,211,211,211,211,211,211,211, -1 #ifdef __GNUC__ }; short int int_list38144[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278 #ifdef __GNUC__ }; short int int_list38208[] = { #else , #endif 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278 #ifdef __GNUC__ }; short int int_list38272[] = { #else , #endif 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278 #ifdef __GNUC__ }; short int int_list38336[] = { #else , #endif 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 278,278,278,278,278,278,278,278,278,278,278,278,278,278,278,278, 16 #ifdef __GNUC__ }; short int int_list38400[] = { #else , #endif 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16 #ifdef __GNUC__ }; short int int_list38464[] = { #else , #endif 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16 #ifdef __GNUC__ }; short int int_list38528[] = { #else , #endif 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16 #ifdef __GNUC__ }; short int int_list38592[] = { #else , #endif 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, -1 #ifdef __GNUC__ }; short int int_list38656[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274 #ifdef __GNUC__ }; short int int_list38720[] = { #else , #endif 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274 #ifdef __GNUC__ }; short int int_list38784[] = { #else , #endif 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274 #ifdef __GNUC__ }; short int int_list38848[] = { #else , #endif 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 274,274,274,274,274,274,274,274,274,274,274,274,274,274,274,274, 242 #ifdef __GNUC__ }; short int int_list38912[] = { #else , #endif 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242 #ifdef __GNUC__ }; short int int_list38976[] = { #else , #endif 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242 #ifdef __GNUC__ }; short int int_list39040[] = { #else , #endif 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242 #ifdef __GNUC__ }; short int int_list39104[] = { #else , #endif 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, 237 #ifdef __GNUC__ }; short int int_list39168[] = { #else , #endif 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237 #ifdef __GNUC__ }; short int int_list39232[] = { #else , #endif 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237 #ifdef __GNUC__ }; short int int_list39296[] = { #else , #endif 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237 #ifdef __GNUC__ }; short int int_list39360[] = { #else , #endif 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 237,237,237,237,237,237,237,237,237,237,237,237,237,237,237,237, 116 #ifdef __GNUC__ }; short int int_list39424[] = { #else , #endif 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116 #ifdef __GNUC__ }; short int int_list39488[] = { #else , #endif 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116 #ifdef __GNUC__ }; short int int_list39552[] = { #else , #endif 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116 #ifdef __GNUC__ }; short int int_list39616[] = { #else , #endif 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 116,116,116,116,116,116,116,116,116,116,116,116,116,116,116,116, 111 #ifdef __GNUC__ }; short int int_list39680[] = { #else , #endif 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111 #ifdef __GNUC__ }; short int int_list39744[] = { #else , #endif 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111 #ifdef __GNUC__ }; short int int_list39808[] = { #else , #endif 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111 #ifdef __GNUC__ }; short int int_list39872[] = { #else , #endif 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, 111,111,111,111,111,111,111,111,111,111,111,111,111,111,111,111, -1 #ifdef __GNUC__ }; short int int_list39936[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list40000[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list40064[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list40128[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,390,-1,-1,-1,-1,-1,-1,-1, 314 #ifdef __GNUC__ }; short int int_list40192[] = { #else , #endif 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314 #ifdef __GNUC__ }; short int int_list40256[] = { #else , #endif 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314 #ifdef __GNUC__ }; short int int_list40320[] = { #else , #endif 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314 #ifdef __GNUC__ }; short int int_list40384[] = { #else , #endif 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 314,314,314,314,314,314,314,314,314,314,314,314,314,314,314,314, 299 #ifdef __GNUC__ }; short int int_list40448[] = { #else , #endif 299,299,299,299,299,299,299,299,299,299,299,299,299,299,299, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list40512[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list40576[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1 #ifdef __GNUC__ }; short int int_list40640[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 315 #ifdef __GNUC__ }; short int int_list40704[] = { #else , #endif 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315 #ifdef __GNUC__ }; short int int_list40768[] = { #else , #endif 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315 #ifdef __GNUC__ }; short int int_list40832[] = { #else , #endif 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315 #ifdef __GNUC__ }; short int int_list40896[] = { #else , #endif 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 315,315,315,315,315,315,315,315,315,315,315,315,315,315,315,315, 186 #ifdef __GNUC__ }; short int int_list40960[] = { #else , #endif 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186 #ifdef __GNUC__ }; short int int_list41024[] = { #else , #endif 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186 #ifdef __GNUC__ }; short int int_list41088[] = { #else , #endif 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186 #ifdef __GNUC__ }; short int int_list41152[] = { #else , #endif 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186, 168 #ifdef __GNUC__ }; short int int_list41216[] = { #else , #endif 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168 #ifdef __GNUC__ }; short int int_list41280[] = { #else , #endif 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168 #ifdef __GNUC__ }; short int int_list41344[] = { #else , #endif 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168 #ifdef __GNUC__ }; short int int_list41408[] = { #else , #endif 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 168,168,168,168,168,168,168,168,168,168,168,168,168,168,168,168, 296 #ifdef __GNUC__ }; short int int_list41472[] = { #else , #endif 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296 #ifdef __GNUC__ }; short int int_list41536[] = { #else , #endif 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296 #ifdef __GNUC__ }; short int int_list41600[] = { #else , #endif 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296 #ifdef __GNUC__ }; short int int_list41664[] = { #else , #endif 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 296,296,296,296,296,296,296,296,296,296,296,296,296,296,296,296, 291 #ifdef __GNUC__ }; short int int_list41728[] = { #else , #endif 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291 #ifdef __GNUC__ }; short int int_list41792[] = { #else , #endif 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291 #ifdef __GNUC__ }; short int int_list41856[] = { #else , #endif 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291 #ifdef __GNUC__ }; short int int_list41920[] = { #else , #endif 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291, 335 #ifdef __GNUC__ }; short int int_list41984[] = { #else , #endif 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335 #ifdef __GNUC__ }; short int int_list42048[] = { #else , #endif 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335 #ifdef __GNUC__ }; short int int_list42112[] = { #else , #endif 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335 #ifdef __GNUC__ }; short int int_list42176[] = { #else , #endif 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 335,335,335,335,335,335,335,335,335,335,335,335,335,335,335,335, 330 #ifdef __GNUC__ }; short int int_list42240[] = { #else , #endif 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330 #ifdef __GNUC__ }; short int int_list42304[] = { #else , #endif 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330 #ifdef __GNUC__ }; short int int_list42368[] = { #else , #endif 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330 #ifdef __GNUC__ }; short int int_list42432[] = { #else , #endif 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 330,330,330,330,330,330,330,330,330,330,330,330,330,330,330,330, 35 #ifdef __GNUC__ }; short int int_list42496[] = { #else , #endif 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35 #ifdef __GNUC__ }; short int int_list42560[] = { #else , #endif 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35 #ifdef __GNUC__ }; short int int_list42624[] = { #else , #endif 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35 #ifdef __GNUC__ }; short int int_list42688[] = { #else , #endif 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 35,35,35,35,35,35,35,35,35,35,35,35,35,35,35,35, 30 #ifdef __GNUC__ }; short int int_list42752[] = { #else , #endif 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30 #ifdef __GNUC__ }; short int int_list42816[] = { #else , #endif 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30 #ifdef __GNUC__ }; short int int_list42880[] = { #else , #endif 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30 #ifdef __GNUC__ }; short int int_list42944[] = { #else , #endif 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 146 #ifdef __GNUC__ }; short int int_list43008[] = { #else , #endif 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146 #ifdef __GNUC__ }; short int int_list43072[] = { #else , #endif 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146 #ifdef __GNUC__ }; short int int_list43136[] = { #else , #endif 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146 #ifdef __GNUC__ }; short int int_list43200[] = { #else , #endif 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 146,146,146,146,146,146,146,146,146,146,146,146,146,146,146,146, 142 #ifdef __GNUC__ }; short int int_list43264[] = { #else , #endif 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142 #ifdef __GNUC__ }; short int int_list43328[] = { #else , #endif 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142 #ifdef __GNUC__ }; short int int_list43392[] = { #else , #endif 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142 #ifdef __GNUC__ }; short int int_list43456[] = { #else , #endif 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142, 105 #ifdef __GNUC__ }; short int int_list43520[] = { #else , #endif 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105 #ifdef __GNUC__ }; short int int_list43584[] = { #else , #endif 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105 #ifdef __GNUC__ }; short int int_list43648[] = { #else , #endif 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105 #ifdef __GNUC__ }; short int int_list43712[] = { #else , #endif 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 101 #ifdef __GNUC__ }; short int int_list43776[] = { #else , #endif 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101 #ifdef __GNUC__ }; short int int_list43840[] = { #else , #endif 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101 #ifdef __GNUC__ }; short int int_list43904[] = { #else , #endif 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101 #ifdef __GNUC__ }; short int int_list43968[] = { #else , #endif 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 101,101,101,101,101,101,101,101,101,101,101,101,101,101,101,101, 126 #ifdef __GNUC__ }; short int int_list44032[] = { #else , #endif 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126 #ifdef __GNUC__ }; short int int_list44096[] = { #else , #endif 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126 #ifdef __GNUC__ }; short int int_list44160[] = { #else , #endif 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126 #ifdef __GNUC__ }; short int int_list44224[] = { #else , #endif 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126, 122 #ifdef __GNUC__ }; short int int_list44288[] = { #else , #endif 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122 #ifdef __GNUC__ }; short int int_list44352[] = { #else , #endif 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122 #ifdef __GNUC__ }; short int int_list44416[] = { #else , #endif 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122 #ifdef __GNUC__ }; short int int_list44480[] = { #else , #endif 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, 378 #ifdef __GNUC__ }; short int int_list44544[] = { #else , #endif 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378 #ifdef __GNUC__ }; short int int_list44608[] = { #else , #endif 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378 #ifdef __GNUC__ }; short int int_list44672[] = { #else , #endif 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378 #ifdef __GNUC__ }; short int int_list44736[] = { #else , #endif 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 378,378,378,378,378,378,378,378,378,378,378,378,378,378,378,378, 377 #ifdef __GNUC__ }; short int int_list44800[] = { #else , #endif 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377 #ifdef __GNUC__ }; short int int_list44864[] = { #else , #endif 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377 #ifdef __GNUC__ }; short int int_list44928[] = { #else , #endif 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377 #ifdef __GNUC__ }; short int int_list44992[] = { #else , #endif 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 377,377,377,377,377,377,377,377,377,377,377,377,377,377,377,377, 96 #ifdef __GNUC__ }; short int int_list45056[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96 #ifdef __GNUC__ }; short int int_list45120[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96 #ifdef __GNUC__ }; short int int_list45184[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96 #ifdef __GNUC__ }; short int int_list45248[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 96,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 132 #ifdef __GNUC__ }; short int int_list45312[] = { #else , #endif -1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132 #ifdef __GNUC__ }; short int int_list45376[] = { #else , #endif -1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132 #ifdef __GNUC__ }; short int int_list45440[] = { #else , #endif -1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132 #ifdef __GNUC__ }; short int int_list45504[] = { #else , #endif -1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 132,-1,-1,-1,-1,-1,-1,133,-1,-1,131,-1,-1,-1,-1,-1, 301 #ifdef __GNUC__ }; short int int_list45568[] = { #else , #endif 348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301 #ifdef __GNUC__ }; short int int_list45632[] = { #else , #endif 348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301 #ifdef __GNUC__ }; short int int_list45696[] = { #else , #endif 348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301 #ifdef __GNUC__ }; short int int_list45760[] = { #else , #endif 348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 301,348,301,325,306,-1,306,-1,303,345,303,322,308,-1,308,-1, 300 #ifdef __GNUC__ }; short int int_list45824[] = { #else , #endif 347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300 #ifdef __GNUC__ }; short int int_list45888[] = { #else , #endif 347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300 #ifdef __GNUC__ }; short int int_list45952[] = { #else , #endif 347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300 #ifdef __GNUC__ }; short int int_list46016[] = { #else , #endif 347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 300,347,300,324,305,349,305,326,302,344,302,321,307,346,307,323, 1 #ifdef __GNUC__ }; short int int_list46080[] = { #else , #endif 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1 #ifdef __GNUC__ }; short int int_list46144[] = { #else , #endif 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1 #ifdef __GNUC__ }; short int int_list46208[] = { #else , #endif 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1 #ifdef __GNUC__ }; short int int_list46272[] = { #else , #endif 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 0 #ifdef __GNUC__ }; short int int_list46336[] = { #else , #endif 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0 #ifdef __GNUC__ }; short int int_list46400[] = { #else , #endif 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0 #ifdef __GNUC__ }; short int int_list46464[] = { #else , #endif 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0 #ifdef __GNUC__ }; short int int_list46528[] = { #else , #endif 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 319 #ifdef __GNUC__ }; short int int_list46592[] = { #else , #endif 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319 #ifdef __GNUC__ }; short int int_list46656[] = { #else , #endif 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319 #ifdef __GNUC__ }; short int int_list46720[] = { #else , #endif 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319 #ifdef __GNUC__ }; short int int_list46784[] = { #else , #endif 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 319,319,319,319,319,319,319,319,319,319,319,319,319,319,319,319, 318 #ifdef __GNUC__ }; short int int_list46848[] = { #else , #endif 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318 #ifdef __GNUC__ }; short int int_list46912[] = { #else , #endif 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318 #ifdef __GNUC__ }; short int int_list46976[] = { #else , #endif 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318 #ifdef __GNUC__ }; short int int_list47040[] = { #else , #endif 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, 318,318,318,318,318,318,318,318,318,318,318,318,318,318,318,318, -1 #ifdef __GNUC__ }; short int int_list47104[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393 #ifdef __GNUC__ }; short int int_list47168[] = { #else , #endif -1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393 #ifdef __GNUC__ }; short int int_list47232[] = { #else , #endif -1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393 #ifdef __GNUC__ }; short int int_list47296[] = { #else , #endif -1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 393,-1,397,-1,394,-1,398,-1,391,-1,395,-1,392,-1,396,-1, 316 #ifdef __GNUC__ }; short int int_list47360[] = { #else , #endif 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316 #ifdef __GNUC__ }; short int int_list47424[] = { #else , #endif 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316 #ifdef __GNUC__ }; short int int_list47488[] = { #else , #endif 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316 #ifdef __GNUC__ }; short int int_list47552[] = { #else , #endif 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, 316,316,316,316,316,316,316,316,316,316,316,316,316,316,316,316, -1 #ifdef __GNUC__ }; short int int_list47616[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80 #ifdef __GNUC__ }; short int int_list47680[] = { #else , #endif 198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80 #ifdef __GNUC__ }; short int int_list47744[] = { #else , #endif 198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80 #ifdef __GNUC__ }; short int int_list47808[] = { #else , #endif 198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, 80,198,93,-1,82,-1,95,-1,76,194,89,-1,78,-1,91,-1, -1 #ifdef __GNUC__ }; short int int_list47872[] = { #else , #endif -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79 #ifdef __GNUC__ }; short int int_list47936[] = { #else , #endif 197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79 #ifdef __GNUC__ }; short int int_list48000[] = { #else , #endif 197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79 #ifdef __GNUC__ }; short int int_list48064[] = { #else , #endif 197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 79,197,92,-1,81,-1,94,-1,75,193,88,-1,77,-1,90,-1, 309 #ifdef __GNUC__ }; short int int_list48128[] = { #else , #endif 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309 #ifdef __GNUC__ }; short int int_list48192[] = { #else , #endif 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309 #ifdef __GNUC__ }; short int int_list48256[] = { #else , #endif 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309 #ifdef __GNUC__ }; short int int_list48320[] = { #else , #endif 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 309,309,309,309,309,309,309,309,309,309,309,309,309,309,309,309, 201 #ifdef __GNUC__ }; short int int_list48384[] = { #else , #endif 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201 #ifdef __GNUC__ }; short int int_list48448[] = { #else , #endif 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201 #ifdef __GNUC__ }; short int int_list48512[] = { #else , #endif 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201 #ifdef __GNUC__ }; short int int_list48576[] = { #else , #endif 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 201,201,201,201,201,201,201,201,201,201,201,201,201,201,201,201, 304 #ifdef __GNUC__ }; short int int_list48640[] = { #else , #endif 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304 #ifdef __GNUC__ }; short int int_list48704[] = { #else , #endif 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304 #ifdef __GNUC__ }; short int int_list48768[] = { #else , #endif 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304 #ifdef __GNUC__ }; short int int_list48832[] = { #else , #endif 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 304,304,304,304,304,304,304,304,304,304,304,304,304,304,304,304, 317 #ifdef __GNUC__ }; short int int_list48896[] = { #else , #endif 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317 #ifdef __GNUC__ }; short int int_list48960[] = { #else , #endif 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317 #ifdef __GNUC__ }; short int int_list49024[] = { #else , #endif 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317 #ifdef __GNUC__ }; short int int_list49088[] = { #else , #endif 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 317,317,317,317,317,317,317,317,317,317,317,317,317,317,317,317, 185 #ifdef __GNUC__ }; short int int_list49152[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49216[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49280[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49344[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49408[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49472[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49536[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49600[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49664[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49728[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49792[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49856[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49920[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list49984[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50048[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50112[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50176[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50240[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50304[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50368[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50432[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50496[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50560[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50624[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50688[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50752[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50816[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50880[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list50944[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51008[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51072[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51136[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51200[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51264[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51328[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51392[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51456[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51520[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51584[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51648[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51712[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51776[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51840[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51904[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list51968[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52032[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52096[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52160[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52224[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52288[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52352[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52416[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52480[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52544[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52608[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52672[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52736[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52800[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52864[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52928[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list52992[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list53056[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list53120[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185 #ifdef __GNUC__ }; short int int_list53184[] = { #else , #endif 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185, 41 #ifdef __GNUC__ }; short int int_list53248[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53312[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53376[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53440[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53504[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53568[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53632[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53696[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53760[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53824[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53888[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list53952[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54016[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54080[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54144[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54208[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54272[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54336[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54400[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54464[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54528[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54592[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54656[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54720[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54784[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54848[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54912[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list54976[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55040[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55104[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55168[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55232[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55296[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55360[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55424[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55488[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55552[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55616[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55680[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55744[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55808[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55872[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list55936[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56000[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56064[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56128[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56192[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56256[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56320[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56384[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56448[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56512[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56576[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56640[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56704[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56768[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56832[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56896[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list56960[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list57024[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list57088[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list57152[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list57216[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41 #ifdef __GNUC__ }; short int int_list57280[] = { #else , #endif 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,41,41,41,41,41,41,41, 155 #ifdef __GNUC__ }; short int int_list57344[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57408[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57472[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57536[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57600[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57664[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57728[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57792[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57856[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57920[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list57984[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58048[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58112[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58176[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58240[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58304[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58368[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58432[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58496[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58560[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58624[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58688[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58752[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58816[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58880[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list58944[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59008[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59072[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59136[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59200[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59264[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59328[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59392[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59456[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59520[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59584[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59648[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59712[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59776[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59840[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59904[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list59968[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60032[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60096[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60160[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60224[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60288[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60352[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60416[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60480[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60544[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60608[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60672[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60736[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60800[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60864[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60928[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list60992[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list61056[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list61120[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list61184[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list61248[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list61312[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155 #ifdef __GNUC__ }; short int int_list61376[] = { #else , #endif 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, 97 #ifdef __GNUC__ }; short int int_list61440[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list61504[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list61568[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list61632[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list61696[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list61760[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list61824[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list61888[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list61952[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list62016[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list62080[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list62144[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list62208[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list62272[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list62336[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list62400[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list62464[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list62528[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list62592[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list62656[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list62720[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list62784[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list62848[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list62912[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list62976[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list63040[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list63104[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list63168[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list63232[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list63296[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list63360[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list63424[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list63488[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list63552[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list63616[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list63680[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list63744[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list63808[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list63872[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list63936[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list64000[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list64064[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list64128[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list64192[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list64256[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list64320[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list64384[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list64448[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list64512[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list64576[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list64640[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list64704[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list64768[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list64832[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list64896[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list64960[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list65024[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list65088[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list65152[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list65216[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 97 #ifdef __GNUC__ }; short int int_list65280[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97 #ifdef __GNUC__ }; short int int_list65344[] = { #else , #endif 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97, 117 #ifdef __GNUC__ }; short int int_list65408[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117 #ifdef __GNUC__ }; short int int_list65472[] = { #else , #endif 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117, 117,117,117,117,117,117,117,117,117,117,117,117,117,117,117,117}; gdb-4.13/sim/z8k/mem.c 666 34562 1752 4747 5342244457 13010 0ustar fnfcygnus/* memory support for Z8KSIM Copyright (C) 1987, 1992 Free Software Foundation, Inc. This file is part of Z8KSIM Z8KSIM 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 2, or (at your option) any later version. Z8KSIM 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 Z8KSIM; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "sysdep.h" #include "tm.h" #include "mem.h" #include "sim.h" #define INLINE static unsigned short * get_page_and_offset (context, where, offset_ptr) sim_state_type *context; sim_phys_addr_type where; int *offset_ptr; { /* Is the page allocated ? */ if (context->memory == 0) { context->memory = (unsigned short *)calloc(64*1024*64,2); } *offset_ptr = sitoptr(where); return context->memory; } void sim_write_byte (context, where, what) sim_state_type *context; sim_phys_addr_type where; int what; { unsigned int offset; char *ptr = (char *)get_page_and_offset (context, where, &offset); ptr[offset] = what; } void sim_write_short (context, where, what) sim_state_type *context; sim_phys_addr_type where; int what; { int offset; char *ptr = (char *)get_page_and_offset (context, where, &offset); ptr[offset] = what >> 8; ptr[offset + 1] = what; } void sim_write_long (context, where, what) sim_state_type *context; sim_phys_addr_type where; int what; { int offset; char *ptr = (char *)get_page_and_offset (context, where, &offset); ptr[offset] = what >> 24; ptr[offset + 1] = what >> 16; ptr[offset + 3] = what >> 8; ptr[offset + 4] = what; } int sim_read_byte (context, where) sim_state_type *context; sim_phys_addr_type where; { int offset; char *ptr = (char *)get_page_and_offset (context, where, &offset); return ptr[offset]; } unsigned sim_read_short (context, where) sim_state_type *context; sim_phys_addr_type where; { int what; int offset; char *ptr = (char *)get_page_and_offset (context, where, &offset); what = (ptr[offset] << 8) | ptr[offset + 1]; return what; } gdb-4.13/sim/z8k/mem.h 666 34562 1752 624 5333514106 12752 0ustar fnfcygnus#define PAGE_SIZE (1< #include "bfd.h" #include "tm.h" #include "sysdep.h" main(ac,av) int ac; char **av; { bfd *abfd; bfd_vma start_address; asection *s; int i; int verbose = 0; int trace = 0; char *name = ""; for (i = 1; i < ac; i++) { if (strcmp(av[i],"-v") == 0) { verbose = 1; } else if (strcmp(av[i],"-t") == 0) { trace = 1; } else { name = av[i]; } } if (verbose) { printf("run %s\n", name); } abfd = bfd_openr(name,"coff-z8k"); if (abfd) { if (bfd_check_format(abfd, bfd_object)) { if (abfd->arch_info->mach == bfd_mach_z8001) { extern int sim_z8001_mode; sim_z8001_mode = 1; } for (s = abfd->sections; s; s=s->next) { char *buffer = malloc(bfd_section_size(abfd,s)); bfd_get_section_contents(abfd, s, buffer, 0, bfd_section_size(abfd,s)); sim_write(s->vma, buffer, bfd_section_size(abfd,s)); } start_address = bfd_get_start_address(abfd); sim_create_inferior (start_address, NULL, NULL); if (trace) { int done = 0; while (!done) { done = sim_trace(); } } else { sim_resume(0,0); } if (verbose) { sim_info(0); } return 0; } } return 1; } gdb-4.13/sim/z8k/sim.h 666 34562 1752 325 5566506252 12775 0ustar fnfcygnus#define SIM_SINGLE_STEP 1 #define SIM_DONE 2 #define SIM_BREAKPOINT 3 #define SIM_INTERRUPT 4 #define SIM_BAD_INST 5 #define SIM_DIV_ZERO 6 #define SIM_BAD_SYSCALL 7 #define SIM_BAD_ALIGN 8 #define SIM_BAD_ADDR 9 gdb-4.13/sim/z8k/support.c 666 34562 1752 24501 5566506237 13761 0ustar fnfcygnus/* support routines for interpreted instructions Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of Z8KSIM Z8KSIM 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 2, or (at your option) any later version. Z8KSIM 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 Z8KSIM; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include "sysdep.h" #include "tm.h" #include "sim.h" #include "mem.h" #include #include #include "remote-sim.h" #include "syscall.h" static int get_now PARAMS ((void)); static int now_persec PARAMS ((void)); static int put_long PARAMS ((sim_state_type * context, int ptr, int value)); static int put_short PARAMS ((sim_state_type * context, int ptr, int value)); int sim_z8001_mode; static int get_now () { struct tms b; times (&b); return b.tms_utime + b.tms_stime; } static int now_persec () { return 50; } /* #define LOG /* define this to print instruction use counts */ #ifdef __GNUC__ #define INLINE __inline__ #include "inlines.h" #else #include "inlines.h" #endif /* This holds the entire cpu context */ static sim_state_type the_state; int fail (context, dummy) sim_state_type *context; int dummy; { context->exception = SIM_BAD_INST; return 1; } void sfop_bad1 (context) sim_state_type *context; { context->exception = SIM_BAD_INST; } void bfop_bad1 (context) sim_state_type *context; { context->exception = SIM_BAD_INST; } void fop_bad (context) sim_state_type *context; { context->exception = SIM_BAD_INST; } /* Table of bit counts for all byte values */ char the_parity[256] = { 0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 4, 5, 5, 6, 5, 6, 6, 7, 5, 6, 6, 7, 6, 7, 7, 8}; int read (); int write (); int open (); int close (); int open (); int close (); int creat (); int link (); int fstat (); static int put_short (context, ptr, value) sim_state_type *context; int ptr; int value; { put_word_mem_da (context, ptr, value); return ptr + 2; } static int put_long (context, ptr, value) sim_state_type *context; int ptr; int value; { put_long_mem_da (context, ptr, value); return ptr + 4; } #define aptr(x) ((sitoptr(x)) + (char *)(context->memory)) static int args[3]; static int arg_index; /* Translate a z8k system call into a host system call */ void support_call (context, sc) sim_state_type *context; int sc; { extern int errno; int ret; int retnext = 0; int fd; int olderrno = errno; errno = 0; switch (sc) { case SYS_ARG: args[arg_index++] = context->regs[0].word << 16 | context->regs[1].word; break; case SYS_exit: context->exception = SIM_DONE; arg_index = 0; break; case SYS_close: ret = close ((int) (args[0])); arg_index = 0; break; case SYS_creat: ret = creat (aptr (args[0]), args[1]); arg_index = 0; break; case SYS_isatty: ret = isatty (args[0]); arg_index = 0; break; case SYS_open: ret = open (aptr (args[0]), args[1], args[2]); arg_index = 0; break; case SYS_lseek: ret = lseek (args[0], (off_t) args[1], args[2]); arg_index = 0; break; case SYS_read: ret = read (args[0], aptr (args[1]), args[2]); arg_index = 0; break; case SYS_write: ret = write (args[0],aptr (args[1]), args[2]); arg_index = 0; break; case SYS_time: { int dst = args[0]; ret = time (0); if (dst) { put_long_mem_da (context, sitoptr (dst), ret); } retnext = ret; ret = retnext >> 16; arg_index = 0; } break; case SYS_fstat: { int buf; struct stat host_stat; fd = args[0]; buf = sitoptr (args[1]); ret = fstat (fd, &host_stat); buf = put_short (context, buf, host_stat.st_dev); buf = put_short (context, buf, host_stat.st_ino); buf = put_short (context, buf, host_stat.st_mode); buf = put_short (context, buf, host_stat.st_nlink); buf = put_short (context, buf, host_stat.st_uid); buf = put_short (context, buf, host_stat.st_uid); buf = put_short (context, buf, host_stat.st_rdev); buf = put_long (context, buf, host_stat.st_size); buf = put_long (context, buf, host_stat.st_atime); arg_index = 0; } break; default: case SYS_link: context->exception = SIM_BAD_SYSCALL; arg_index = 0; break; } context->regs[2].word = ret; context->regs[3].word = retnext; context->regs[5].word = errno; errno = olderrno; } #undef get_word_mem_da int get_word_mem_da (context, addr) sim_state_type *context; int addr; { return (get_byte_mem_da (context, addr) << 8) | (get_byte_mem_da (context, addr + 1)); } #undef get_word_reg int get_word_reg (context, reg) sim_state_type * context; int reg; { return context->regs[reg].word; } #ifdef LOG int log[64 * 1024]; #endif void tm_store_register (regno, value) int regno; int value; { switch (regno) { case REG_PC: the_state.sometimes_pc = value; break; default: put_word_reg (&the_state, regno, value); } } void swap_long (buf, val) char *buf; int val; { buf[0] = val >> 24; buf[1] = val >> 16; buf[2] = val >> 8; buf[3] = val >> 0; } void swap_word (buf, val) char *buf; int val; { buf[0] = val >> 8; buf[1] = val >> 0; } void tm_fetch_register (regno, buf) int regno; char *buf; { switch (regno) { case REG_CYCLES: swap_long (buf, the_state.cycles); break; case REG_INSTS: swap_long (buf, the_state.insts); break; case REG_TIME: swap_long (buf, the_state.ticks); break; case REG_PC: swap_long (buf, the_state.sometimes_pc); break; case REG_SP: { if (sim_z8001_mode) { swap_long (buf, get_long_reg (&the_state, 14)); } else { swap_long (buf, get_word_reg (&the_state, 15)); } } break; case REG_FP: { if (sim_z8001_mode) { swap_long (buf, get_long_reg (&the_state, 10)); } else { swap_long (buf, get_word_reg (&the_state, 10)); } } break; default: { swap_word (buf, get_word_reg (&the_state, regno)); } } } void tm_resume (step) int step; { int now = get_now (); struct op_info *p; int word; int pc; extern int (*(sfop_table[])) (); extern int (*(bfop_table[])) (); int (*((*table))) (); sim_state_type *context = &the_state; if (step) { context->exception = SIM_SINGLE_STEP; } else { context->exception = 0; } pc = context->sometimes_pc; if (sim_z8001_mode) { table = bfop_table; pc = MAP_PHYSICAL_TO_LOGICAL (pc); } else { table = sfop_table; } do { word = get_word_mem_da (context, pc); p = op_info_table + word; #ifdef LOG log[word]++; #endif pc = table[p->exec] (context, pc, word); context->insts++; } while (!context->exception); context->sometimes_pc = MAP_LOGICAL_TO_PHYSICAL (pc); context->ticks += get_now () - now; } int tm_signal () { return the_state.exception; } void tm_info_print (x) sim_state_type *x; { double timetaken = (double) x->ticks / (double) now_persec (); double virttime = x->cycles / 4.0e6; printf ("instructions executed : %9d\n", x->insts); printf ("cycles counted : %9d \n", x->cycles); printf ("cycles / inst : %9.1f \n", (double) x->cycles / (double) x->insts); printf ("virtual time taked (at 4 Mhz) : %9.1f \n", virttime); printf ("real time taken : %9.1f \n", timetaken); if (timetaken) { printf ("virtual instructions per second : %9.1f\n", x->insts / timetaken); printf ("emulation speed : %9.1f%%\n", virttime / timetaken * 100.0); } #ifdef LOG { extern int quick[]; for (i = 0; quick[i]; i++) { log[quick[i]] += 100000; } } for (i = 0; i < 64 * 1024; i++) { if (log[i]) { printf (" /*%7d*/ 0x%x,\n", log[i], i); } } #endif } int sim_trace () { int i; char buffer[10]; int r; printf ("\n"); for (r = 0; r < 16; r++) { int m; printf ("r%2d", r); printf ("=%04x ", get_word_reg (&the_state, r)); for (m = -4; m < 8; m++) { if (m == 0) printf (">"); printf ("%04x ", get_word_mem_da (&the_state, (0xfffe & get_word_reg (&the_state, r)) + m * 2)); } printf ("\n"); } printf ("\n"); printf ("%9d %9d %08x ", the_state.cycles, the_state.insts, the_state.sometimes_pc); for (i = 0; i < 6; i++) { buffer[i] = get_byte_mem_da (&the_state, the_state.sometimes_pc + i); } print_insn_z8001 (the_state.sometimes_pc, buffer, stdout); printf ("\n"); tm_resume (1); if (the_state.exception != SIM_SINGLE_STEP) return 1; return 0; } void tm_state (x) sim_state_type *x; { *x = the_state; } void tm_exception (x) int x; { the_state.exception = x; } int tm_read_byte (x) int x; { x &= 0x3f00ffff; return sim_read_byte (&the_state, x); } void tm_write_byte (x, y) int x, y; { x &= 0x3f00ffff; sim_write_byte (&the_state, x, y); } gdb-4.13/sim/z8k/syscall.h 666 34562 1752 2264 5342244463 13676 0ustar fnfcygnus/* system call numbers Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of Z8KSIM Z8KSIM 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 2, or (at your option) any later version. Z8KSIM 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 Z8KSIM; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #define SYS_exit 1 #define SYS_fork 2 #define SYS_read 3 #define SYS_write 4 #define SYS_open 5 #define SYS_close 6 #define SYS_wait4 7 #define SYS_creat 8 #define SYS_link 9 #define SYS_unlink 10 #define SYS_execv 11 #define SYS_chdir 12 #define SYS_mknod 14 #define SYS_chmod 15 #define SYS_chown 16 #define SYS_lseek 19 #define SYS_getpid 20 #define SYS_isatty 21 #define SYS_fstat 22 #define SYS_time 23 #define SYS_ARG 24 gdb-4.13/sim/z8k/tm.h 666 34562 1752 14463 5563030724 12666 0ustar fnfcygnus/* tm.h Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of Z8KSIM Z8KSIM 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 2, or (at your option) any later version. Z8KSIM 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 Z8KSIM; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef _TM_H #define _TM_H #ifdef __FOOBEYGNUC__ typedef SFtype __attribute__ ((mode (SF))); typedef DFtype __attribute__ ((mode (DF))); typedef int HItype __attribute__ ((mode (HI))); typedef int SItype __attribute__ ((mode (SI))); typedef unsigned int UHItype __attribute__ ((mode (HI))); typedef unsigned int USItype __attribute__ ((mode (SI))); #else typedef float SFtype; typedef double DFtype; typedef short int HItype; typedef long int SItype; typedef unsigned short UHItype ; typedef unsigned int USItype ; #endif typedef struct UDIstruct { USItype high; USItype low; } UDItype; #define BIG_ENDIAN_HOST typedef unsigned int sim_phys_addr_type; typedef unsigned int sim_logical_addr_type; #define PAGE_POWER 23 /* only one pages */ #define MAP_PHYSICAL_TO_LOGICAL(x) (((x >> 8) & 0x7f0000) | (x & 0xffff)) #define MAP_LOGICAL_TO_PHYSICAL(x) (((x <<8) & 0x7f000000) | (x & 0xffff)) #define REG_PC 17 #define REG_CYCLES 18 #define REG_INSTS 19 #define REG_TIME 20 #define REG_FP 21 #define REG_SP 22 #define REG_CCR 16 #define SET_REG(x,y) set_reg(x,y) #define SINGLE_STEP 1 #define PSW_CARRY context->carry #define PSW_OP context->op #define PSW_OVERFLOW context->overflow #define PSW_SIGN context->sign #define PSW_ZERO context->zero #define GET_PC() context->pc #define SET_PC(x) context->pc = x struct op_info { short int exec; }; extern struct op_info op_info_table[]; typedef union { unsigned short int word; } borw_type; typedef struct state_struct { unsigned short *memory; int carry; int sign; int zero; int overflow; int op; int cycles; borw_type regs[16]; sim_phys_addr_type sometimes_pc; #ifdef __GNUC__ volatile #endif int exception; #define iwords_0 iwords0 #define iwords_1 iwords1 #define iwords_2 iwords2 #define iwords_3 iwords3 #define ibytes_0 (iwords_0>>8) #define ibytes_1 (iwords_0&0xff) #define ibytes_2 (iwords_1>>8) #define ibytes_3 (iwords_1& 0xff) #define ibytes_4 (iwords_2>>8) int insts; int ticks; int next_inst; int broken_flags; int srca; int srcb; int dst; int size; } sim_state_type; #define CMP_FLAGS 100 #define TST_FLAGS 101 #endif extern int get_word_mem_da PARAMS((sim_state_type *context, int addr)); extern int get_word_reg PARAMS((sim_state_type *context, int reg)); extern int sim_trace PARAMS((void)); extern void support_call PARAMS((sim_state_type *context, int sc)); extern void tm_exception PARAMS((int x)); extern int tm_read_byte PARAMS((int x)); extern int tm_signal PARAMS((void)); extern void tm_state PARAMS((sim_state_type *x)); extern void tm_write_byte PARAMS((int x, int y)); extern void bfop_bad1 PARAMS(()); extern int fail PARAMS((sim_state_type *context, int v)); extern void fop_bad PARAMS((sim_state_type *context)); extern void sfop_bad1 PARAMS(()); extern void swap_long PARAMS((char *buf, int val)); extern void swap_word PARAMS((char *buf, int val)); extern void tm_fetch_register PARAMS((int regno, char *buf)); extern void tm_info_print PARAMS((sim_state_type *x)); extern void tm_resume PARAMS((int step)); extern void tm_store_register PARAMS((int regno, int value)); #ifndef __GNUC__ /* If were using gnuc then these will be inlined, so the prototypes won't be right */ long int sitoptr PARAMS((long int si)); long int ptrtosi PARAMS((long int ptr)); void put_long_reg PARAMS((sim_state_type *context, int reg, int val)); void put_quad_reg PARAMS((sim_state_type *context, int reg, int val1, int val2)); void put_word_reg PARAMS((sim_state_type *context, int reg, int val)); SItype get_long_reg PARAMS((sim_state_type *context, int reg)); void put_byte_reg PARAMS((sim_state_type *context, int reg, int val)); int get_byte_reg PARAMS((sim_state_type *context, int reg)); void put_word_mem_da PARAMS((sim_state_type *context, int addr, int value)); unsigned char get_byte_mem_da PARAMS((sim_state_type *context, int addr)); void put_byte_mem_da PARAMS((sim_state_type *context, int addr, int value)); SItype get_long_mem_da PARAMS((sim_state_type *context, int addr)); void put_long_mem_da PARAMS((sim_state_type *context, int addr, int value)); int get_word_mem_ir PARAMS((sim_state_type *context, int reg)); void put_word_mem_ir PARAMS((sim_state_type *context, int reg, int value)); int get_byte_mem_ir PARAMS((sim_state_type *context, int reg)); void put_byte_mem_ir PARAMS((sim_state_type *context, int reg, int value)); int get_long_mem_ir PARAMS((sim_state_type *context, int reg)); void put_long_mem_ir PARAMS((sim_state_type *context, int reg, int value)); void put_long_mem_x PARAMS((sim_state_type *context, int base, int reg, int value)); void put_word_mem_x PARAMS((sim_state_type *context, int base, int reg, int value)); void put_byte_mem_x PARAMS((sim_state_type *context, int base, int reg, int value)); int get_word_mem_x PARAMS((sim_state_type *context, int base, int reg)); int get_byte_mem_x PARAMS((sim_state_type *context, int base, int reg)); int get_long_mem_x PARAMS((sim_state_type *context, int base, int reg)); int COND PARAMS((sim_state_type *context, int c)); void NORMAL_FLAGS PARAMS((sim_state_type *context, int size, int dst, int srca, int srcb)); void TEST_NORMAL_FLAGS PARAMS((sim_state_type *context, int size, int dst)); void put_ptr_long_reg PARAMS((sim_state_type *context, int reg, int val)); long int get_ptr_long_reg PARAMS((sim_state_type *context, int reg)); long int get_ptr_long_mem_ir PARAMS((sim_state_type *context, int reg)); long int get_ptr_long_mem_da PARAMS((sim_state_type *context, long int addr)); void put_ptr_long_mem_da PARAMS((sim_state_type *context, long int addr, long int ptr)); #endif gdb-4.13/sim/z8k/writecode.c 666 34562 1752 112405 5566475103 14250 0ustar fnfcygnus /* generate instructions for Z8KSIM Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of Z8KSIM Z8KSIM 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 2, or (at your option) any later version. Z8KSIM 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 Z8KSIM; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* This program generates the code which emulates each of the z8k instructions code goes into three files, tc-gen1.h, tc-gen2.h and tc-gen3.h. which file being made depends upon the options -1 tc-gen1.h contains the fully expanded code for some selected opcodes, (those in the quick.c list) -2 tc-gen2.h contains a list of pointers to functions, one for each opcode. It points to functions in tc-gen3.h and tc-gen1.h depending upon quick.c -3 tc-gen3.h contains all the opcodes in unexpanded form. -b3 tc-genb3.h same as -3 but for long pointers -m regenerates list.c, which is an inverted list of opcodes to pointers into the z8k dissassemble opcode table, it's just there to makes things faster. */ /* steve chamberlain sac@cygnus.com */ #include #include "sysdep.h" #define NICENAMES #define DEFINE_TABLE #include "../opcodes/z8k-opc.h" #define NOPS 500 #define DIRTY_HACK 0 /* Enable if your gcc can't cope with huge tables */ extern short z8k_inv_list[]; struct opcode_value { int n; struct opcode_value *next; }; #define NICENAMES int BIG; static char *reg_names[] = {"bad", "src", "dst", "aux_a", "aux_b", "aux_r", "aux_x"}; #define IS_DST(x) ((x & 0xf) == 2) #define IS_SRC(x) ((x & 0xf)==1) #define SIZE_ADDRESS (BIG ? 8 : 4) /* number of nibbles in a ptr*/ static int file; static int makelist; static int nibs = 0; static char *current_size; static char *current_name; static char current_word0[40]; static char current_byte0[40]; static char current_byte1[40]; static int indent; static char *p; static char *d; struct opcode_value *list[NOPS]; static opcode_entry_type * lookup_inst (what) int what; { if (makelist) { int nibl_index; int nibl_matched; unsigned short instr_nibl; unsigned short tabl_datum, datum_class, datum_value; char instr_nibbles[8]; opcode_entry_type *ptr = z8k_table; nibl_matched = 0; instr_nibbles[3] = (what >> 0) & 0xf; instr_nibbles[2] = (what >> 4) & 0xf; instr_nibbles[1] = (what >> 8) & 0xf; instr_nibbles[0] = (what >> 12) & 0xf; while (ptr->name) { nibl_matched = 1; for (nibl_index = 0; nibl_index < 4 && nibl_matched; nibl_index++) { instr_nibl = instr_nibbles[nibl_index]; tabl_datum = ptr->byte_info[nibl_index]; datum_class = tabl_datum & CLASS_MASK; datum_value = ~CLASS_MASK & tabl_datum; switch (datum_class) { case CLASS_BIT_1OR2: if (datum_value != (instr_nibl & ~0x2)) nibl_matched = 0; break; case CLASS_BIT: if (datum_value != instr_nibl) nibl_matched = 0; break; case CLASS_00II: if (!((~instr_nibl) & 0x4)) nibl_matched = 0; break; case CLASS_01II: if (!(instr_nibl & 0x4)) nibl_matched = 0; break; case CLASS_0CCC: if (!((~instr_nibl) & 0x8)) nibl_matched = 0; break; case CLASS_1CCC: if (!(instr_nibl & 0x8)) nibl_matched = 0; break; case CLASS_0DISP7: if (!((~instr_nibl) & 0x8)) nibl_matched = 0; nibl_index += 1; break; case CLASS_1DISP7: if (!(instr_nibl & 0x8)) nibl_matched = 0; nibl_index += 1; break; case CLASS_REGN0: if (instr_nibl == 0) nibl_matched = 0; break; default: break; } } if (nibl_matched) { return ptr; } ptr++; } return 0; } else { if (z8k_inv_list[what] < 0) return 0; return z8k_table + z8k_inv_list[what]; } } static char * insn_4 (n) int n; { switch (n) { case 1: return "((iwords_0>>8) & 0xf)"; case 2: return "((ibytes_1 >> 4) & 0xf)"; case 3: return "((ibytes_1) & 0xf)"; case 4: return "((ibytes_2>>4) & 0xf)"; case 5: return "((ibytes_2) & 0xf)"; case 6: return "((ibytes_3 >> 4) & 0xf)"; case 7: return "((ibytes_3) & 0xf)"; default: return "****"; } } char * ptr_mode () { if (BIG) { return "ptr_long"; } return "word"; } static char * ptr_size () { if (BIG) return "4"; return "2"; } static char * reg_n (x) unsigned int x; { return reg_names[x & 0xf]; } char * stack_ptr () { return BIG ? "14" : "15"; } char * mem () { #if 0 return BIG ? "segmem" : "unsegmem"; #else return "mem"; #endif } int match (a) char *a; { if (strncmp (p, a, strlen (a)) == 0) { p += strlen (a); return 1; } return 0; } static void sub (y) char *y; { sprintf (d, "%s", y); d += strlen (d); } static char * insn_16 (n) int n; { switch (n) { case 0: return "(iwords_0)"; case 4: return "(iwords_1)"; case 8: return "(iwords_2)"; case 12: return "(iwords_3)"; default: return "****"; } } static char * insn_32 (n) int n; { switch (n) { case 0: return "((iwords_0<<16) | (iwords_1))"; case 4: return "((iwords_1<<16) | (iwords_2))"; case 8: return "((iwords_2<<16) | (iwords_3))"; default: return "****"; } } static char * size_name (x) int x; { switch (x) { case 8: return "byte"; case 16: return "word"; case 32: return "long"; case 64: return "quad"; } return "!!"; } /*VARARGS*/ void emit (string, a1, a2, a3, a4, a5) char *string; char* a1; char* a2; char* a3; char* a4; char* a5; { int indent_inc = 0; int indent_dec = 0; int i; char buffer[1000]; d = buffer; p = string; while (*p) { if (match ("")) { if (BIG) { sub ("bfop"); } else { sub ("sfop"); } } else if (match ("")) { if (BIG) { switch (nibs) { case 4: sub ("(((iwords_1 << 8) | (iwords_2)) & 0x7fffff)"); break; default: sub ("fail(context,124)"); break; } } else { switch (nibs) { case 4: sub ("iwords_1"); break; default: sub ("fail(context,123)"); break; } } } else if (match ("")) { sub (current_name); } else if (match ("")) { sub (current_size); } else if (match ("")) { sub (insn_4 (nibs)); } else if (match ("")) { sub (insn_16 (nibs)); } else if (match ("")) { sub (insn_32 (nibs)); } else if (match ("iwords_0")) { sub (current_word0); } else if (match ("ibytes_0")) { sub (current_byte0); } else if (match ("")) { sub (current_byte1); } else if (match ("")) { if (strcmp (current_size, "word") == 0) sub ("long"); if (strcmp (current_size, "byte") == 0) sub ("word"); else if (strcmp (current_size, "long") == 0) sub ("quad"); else abort (); } else if (match ("")) { if (BIG) sub ("unsigned long"); else sub ("unsigned short"); } else if (match ("")) { if (strcmp (current_size, "word") == 0) sub ("short"); else if (strcmp (current_size, "byte") == 0) sub ("char"); else if (strcmp (current_size, "long") == 0) sub ("long"); else abort (); } else if (match ("")) { sub ("pc"); } else if (match ("")) { sub (mem ()); } else if (match ("")) { sub (stack_ptr ()); } else if (match ("")) { sub (ptr_size ()); } else if (match ("")) { sub (ptr_mode ()); } else if (match ("")) { switch (nibs) { case 2: sub ("(iwords_0&0xff)"); break; case 4: sub ("(iwords_1>>8)"); break; case 6: sub ("(iwords_1&0xff)"); break; case 8: sub ("(iwords_2>>8)"); break; case 12: sub ("(/* WHO */iwords_3&0xff)"); break; default: abort (); } } else { if (*p == '{') indent_inc++; if (*p == '}') indent_dec++; *d++ = *p; p++; } } *d++ = 0; indent -= indent_dec; for (i = 0; i < indent; i++) printf ("\t"); indent += indent_inc; printf (buffer, a1, a2, a3, a4, a5); } /* fetch the lvalues of the operands */ void info_args (p) opcode_entry_type *p; { unsigned int *s; int done_one_imm8 = 0; /* int done_read = 4;*/ s = p->byte_info; nibs = 0; while (*s) { switch (*s & CLASS_MASK) { case CLASS_BIT_1OR2: emit ("register unsigned int imm_src=(& 2)?2:1;\n"); break; case CLASS_BIT: /* Just ignore these, we've already decoded this bit */ nibs++; break; case CLASS_REGN0: case CLASS_REG: /* this nibble tells us which register to use as an arg, if we've already gobbled the nibble we know what to use */ { int regname = *s & 0xf; emit ("register unsigned int reg_%s=;\n", reg_names[regname]); nibs++; } break; case CLASS_ADDRESS: emit ("register unsigned base_%s=;\n", reg_n (*s)); nibs += SIZE_ADDRESS; break; case CLASS_01II: case CLASS_00II: emit ("register unsigned int imm_src=&0x2;\n"); nibs++; break; case CLASS_FLAGS: emit ("register unsigned int imm_src=;\n"); nibs++; break; case CLASS_IMM: /* Work out the size of the think to fetch */ { switch (*s & ~CLASS_MASK) { case ARG_IMM16: emit ("register unsigned imm_src=;\n"); nibs += 4; break; case ARG_IMM32: emit ("register unsigned int imm_src= %s;\n", insn_32 (nibs)); nibs += 8; break; case ARG_IMM4: emit ("register unsigned int imm_src=;\n"); nibs++; break; case ARG_IMM2: emit ("register unsigned int imm_src= & 0x2;\n"); nibs++; break; case ARG_IMM4M1: emit ("register unsigned int imm_src=( + 1);\n"); nibs++; break; case ARG_IMM_1: emit ("register unsigned int imm_src=1;\n"); break; case ARG_IMM_2: emit ("register unsigned int imm_src=2;\n"); break; case ARG_NIM8: emit ("register unsigned int imm_src=-;\n"); nibs += 2; break; case ARG_IMM8: if (!done_one_imm8) { emit ("register unsigned int imm_src=;\n"); nibs += 2; done_one_imm8 = 1; } break; default: emit ("register int fail%d=fail(context,1);\n", nibs); break; } break; case CLASS_DISP8: emit ("register unsigned int oplval_dst=(((char)ibytes_1)<<1) + pc;\n"); nibs += 2; break; case CLASS_CC: emit ("register unsigned int op_cc=;\n"); nibs++; break; default: emit ("register int FAIL%d=fail(context,2);\n", nibs); break; } ; /* work out how to fetch the immediate value */ } s++; } } void info_special (p, getdst, nostore, before, nosrc) opcode_entry_type *p; int *getdst; int *nostore; int *before; int *nosrc; { switch (p->opcode) { case OPC_exts: case OPC_extsb: case OPC_extsl: *nostore = 1; *nosrc = 1; break; case OPC_ldm: *nostore = 1; *nosrc = 1; break; case OPC_negb: case OPC_neg: case OPC_sla: case OPC_slab: case OPC_slal: case OPC_sda: case OPC_sdab: case OPC_sdal: case OPC_com: case OPC_comb: case OPC_adc: case OPC_nop: case OPC_adcb: case OPC_add: case OPC_addb: case OPC_addl: case OPC_inc: case OPC_sub: case OPC_subb: case OPC_subl: case OPC_and: case OPC_andb: case OPC_xorb: case OPC_xor: break; case OPC_mult: case OPC_multl: case OPC_div: case OPC_divl: *nostore = 1; break; case OPC_testb: case OPC_test: case OPC_testl: case OPC_cp: case OPC_cpb: case OPC_cpl: case OPC_bit: *nostore = 1; *before = 0; break; case OPC_bpt: case OPC_jr: case OPC_jp: case OPC_ret: case OPC_call: case OPC_tcc: *nosrc = 1; *nostore = 1; *before = 1; break; case OPC_sc: *nostore = 1; *before = 0; break; case OPC_clrb: case OPC_clr: *before = 1; *nosrc = 1; break; case OPC_ldi: case OPC_ldib: case OPC_lddb: case OPC_ldd: *before = 1; *nostore = 1; *nosrc = 1; break; case OPC_ldk: case OPC_ld: case OPC_ldb: case OPC_ldl: *before = 1; *getdst = 0; break; case OPC_push: case OPC_pushl: case OPC_pop: case OPC_popl: *before = 1; *getdst = 0; break; case OPC_lda: *nosrc = 1; break; } } /* calculate the lvalues required for the opcode */ void info_lvals (p) opcode_entry_type *p; { /* emit code to work out lvalues, if any */ unsigned int *i = p->arg_info; while (*i) { current_name = reg_n (*i); current_size = size_name (p->type); switch (*i & CLASS_MASK) { case CLASS_X: /* address(reg) */ emit ("register oplval_= ((base_ + (short)get_word_reg(context,reg_)) & 0xffff) + (base_ & ~0xffff);\n"); break; case CLASS_IR: /* Indirect register */ emit ("register int oplval_ = get__reg(context,reg_);\n"); break; case CLASS_DA: emit ("register int oplval_=base_;\n"); break; case CLASS_IMM: case CLASS_REG_WORD: case CLASS_REG_LONG: case CLASS_REG_BYTE: case CLASS_PR: break; case CLASS_BA: emit ("register int oplval_ = get__reg(context,reg_) + (short)(imm_src);\n"); break; case CLASS_BX: emit ("register int oplval_ = get__reg(context,reg_)\n"); emit (" + get_word_reg(context,reg_aux_x);\n"); break; } i++; } } /* emit code to fetch the args from calculated lvalues */ int allregs; void info_fetch (p, getdst) opcode_entry_type *p; int getdst; { unsigned int *i = p->arg_info; int had_src = 0; allregs = 1; while (*i) { current_name = reg_n (*i); current_size = size_name (p->type); switch (*i & CLASS_MASK) { case CLASS_X: case CLASS_IR: case CLASS_BA: case CLASS_BX: case CLASS_DA: if (!getdst && IS_DST (*i)) break; emit ("register int op_= get___da(context,oplval_);\n"); allregs = 0; break; case CLASS_IMM: if (!had_src) { if (p->opcode == OPC_out || p->opcode == OPC_outb || p->opcode == OPC_sout || p->opcode == OPC_soutb) { /* The imm is a dest here */ emit ("register int op_dst = imm_src;\n"); } else { emit ("register int op_src = imm_src;\n"); } } break; case CLASS_REG_QUAD: if (!getdst && IS_DST (*i)) break; had_src |= IS_SRC (*i); emit ("UDItype op_ ;\n"); break; case CLASS_REG_WORD: if (!getdst && IS_DST (*i)) break; had_src |= IS_SRC (*i); emit ("register int op_ = get_word_reg(context,reg_);\n"); break; case CLASS_REG_LONG: if (!getdst && IS_DST (*i)) break; had_src |= IS_SRC (*i); emit ("register int op_ = get_long_reg(context,reg_);\n"); break; case CLASS_REG_BYTE: if (!getdst && IS_DST (*i)) break; had_src |= IS_SRC (*i); emit ("register int op_ = get_byte_reg(context,reg_);\n"); break; } i++; } } static void normal_flags (p, s) opcode_entry_type *p; char *s; { emit (" %s;\n", s); emit ("NORMAL_FLAGS(context,%d, tmp, op_dst, op_src); \n", p->type); } static void test_normal_flags (p, s, opt) opcode_entry_type *p; char *s; int opt; { emit (" %s;\n", s); if (0 && opt) { emit ("context->broken_flags = TST_FLAGS;\n"); emit ("context->size = %d;\n", p->type); } else { emit ("TEST_NORMAL_FLAGS(context,%d, tmp); \n", p->type); } } static void optimize_normal_flags (p, s) opcode_entry_type *p; char *s; { emit (" %s;\n", s); #if 0 emit ("context->broken_flags = CMP_FLAGS;\n"); #else emit ("NORMAL_FLAGS(context,%d, tmp, op_dst, op_src); \n", p->type); #endif } static void jp (p) opcode_entry_type *p; { emit ("if(op_cc == 8 || COND(context,op_cc)) pc = oplval_dst;\n"); } static void jr (p) opcode_entry_type *p; { emit ("if(op_cc == 8 || COND(context,op_cc)) pc = oplval_dst;\n"); } static void ret (p) opcode_entry_type *p; { emit ("if(op_cc == 8 || COND(context,op_cc))\n{\n"); emit ("pc = get___ir(context,);\n"); emit ("put__reg(context,, get__reg(context,) + );\n"); emit ("};\n"); } static void call (p) opcode_entry_type *p; { emit ("put__reg(context,,tmp = get__reg(context,) - );\n"); emit ("put___da(context,tmp, pc);\n"); emit ("pc = oplval_dst;\n"); } static void push (p) opcode_entry_type *p; { emit ("tmp = op_src;\n"); emit ("oplval_dst -= %d;\n", p->type / 8); emit ("put__reg(context,reg_dst, oplval_dst);\n"); } static void pop (p) opcode_entry_type *p; { emit ("tmp = op_src;\n"); emit ("put__reg(context,reg_src, oplval_src + %d);\n", p->type / 8); } static void ld (p) opcode_entry_type *p; { emit ("tmp = op_src;\n"); } static void sc () { emit ("support_call(context,imm_src);\n"); } static void bpt () { emit ("pc -=2; \n"); emit ("context->exception = SIM_BREAKPOINT;\n"); } static void ldi (p, size, inc) opcode_entry_type *p; int size; int inc; { int dinc = (size / 8) * inc; current_size = size_name (size); emit ("{ \n"); emit ("int type = %s;\n", insn_4 (7)); emit ("int rs = get__reg(context,reg_src);\n"); emit ("int rd = get__reg(context,reg_dst);\n"); emit ("int rr = get_word_reg(context,reg_aux_r);\n"); emit ("do {\n"); emit ("put___da(context,rd, get___da(context,rs));\n"); emit ("rd += %d;\n", dinc); emit ("rs += %d;\n", dinc); emit ("rr --;\n"); emit ("context->cycles += 9;\n"); emit ("} while (!type && rr != 0 && context->exception <= 1);\n"); emit ("if (context->exception>1) pc -=4;\n"); emit ("put__reg(context,reg_src, rs);\n"); emit ("put__reg(context,reg_dst, rd);\n"); emit ("put_word_reg(context,reg_aux_r, rr);\n"); emit ("}\n"); } static void shift (p, arith) opcode_entry_type *p; int arith; { emit ("op_src = (char)op_src;\n"); emit ("if (op_src < 0) \n"); emit ("{\n"); emit ("op_src = -op_src;\n"); emit ("op_dst = (%s )op_dst;\n", arith ? "" : "unsigned"); emit ("tmp = (%s op_dst) >> op_src;\n", arith ? "" : "(unsigned)"); emit ("context->carry = op_dst >> (op_src-1);\n", p->type); emit ("}\n"); emit ("else\n"); emit ("{\n"); emit ("tmp = op_dst << op_src;\n"); emit ("context->carry = op_dst >> (%d - op_src);\n", p->type); emit ("}\n"); emit ("context->zero = ()tmp == 0;\n"); emit ("context->sign = (int)(()tmp) < 0;\n"); emit ("context->overflow = ((int)tmp < 0) != ((int)op_dst < 0);\n"); emit ("context->cycles += 3*op_src;\n"); emit ("context->broken_flags = 0;\n"); } static void rotate (p, through_carry, size, left) opcode_entry_type *p; int through_carry; int size; int left; { if (!left) { emit ("while (op_src--) {\n"); emit ("int rotbit;\n"); emit ("rotbit = tmp & 1;\n"); emit ("tmp = ((unsigned)op_dst) >> op_src;\n"); if (through_carry) { emit ("tmp |= context->carry << %d;\n", size - 1); } else { emit ("tmp |= rotbit << %d;\n", size - 1); } emit ("context->carry = rotbit;\n"); emit ("}\n"); } else { emit ("while (op_src--) {\n"); emit ("int rotbit;\n"); emit ("rotbit = (op_dst >> (%d))&1;\n", size - 1); emit ("op_dst <<=1;\n"); if (through_carry) { emit ("if (context->carry) op_dst |=1;\n"); } else { emit ("if (rotbit) op_dst |= 1;\n"); } emit ("context->carry = rotbit;\n"); emit ("}\n"); } emit ("tmp = ()op_dst;\n"); emit ("context->zero = tmp == 0;\n"); emit ("context->sign = (int)tmp < 0;\n"); emit ("context->overflow = ((int)tmp < 0) != ((int)op_dst < 0);\n"); emit ("context->cycles += 3*op_src;\n"); emit ("context->broken_flags = 0;\n"); } static void adiv (p) opcode_entry_type *p; { emit ("if (op_src==0)\n"); emit ("{\n"); emit ("context->exception = SIM_DIV_ZERO;\n"); emit ("}\n"); emit ("else\n"); emit ("{\n"); if (p->type == 32) { emit ("op_dst.low = get_long_reg(context,reg_dst+2);\n"); emit ("op_dst.high = get_long_reg(context,reg_dst+0);\n"); emit ("tmp = op_dst.low / op_src;\n"); emit ("put_long_reg(context,reg_dst+2, tmp);\n"); emit ("put_long_reg(context,reg_dst, op_dst.low %% op_src);\n"); emit ("context->zero = op_src == 0 || (op_dst.low==0 && op_dst.high==0);\n"); } else { emit ("tmp = op_dst / op_src;\n"); emit ("put_word_reg(context,reg_dst+1, tmp);\n"); emit ("put_word_reg(context,reg_dst, op_dst %% op_src);\n"); emit ("context->zero = op_src == 0 || op_dst==0;\n"); } emit ("context->sign = (int)tmp < 0;\n"); emit ("context->overflow =(tmp & 0x%x) != 0;\n", ~((1 << (p->type)) - 1)); emit ("context->carry = (tmp & 0x%x) != 0;\n", ~(1 << (p->type))); emit ("}\n"); } static void dobit (p) opcode_entry_type *p; { emit("context->zero = (op_dst & (1<broken_flags = 0;\n"); } static void doset (p, v) opcode_entry_type*p; int v; { if (v) emit (" tmp = op_dst | (1<< op_src);\n"); else emit (" tmp = op_dst & ~(1<< op_src);\n"); } static void mult (p) opcode_entry_type *p; { if (p->type == 32) { emit ("op_dst.low = get_long_reg(context,reg_dst+2);\n"); emit ("tmp = op_dst.low * op_src;\n"); emit ("put_long_reg(context,reg_dst+2, tmp);\n"); emit ("put_long_reg(context,reg_dst, 0);\n"); } else { emit ("op_dst = get_word_reg(context,reg_dst+1);\n"); emit ("tmp = op_dst * op_src;\n"); emit ("put_long_reg(context,reg_dst, tmp);\n"); } emit ("context->sign = (int)tmp < 0;\n"); emit ("context->overflow =0;\n"); emit ("context->carry = (tmp & 0x%x) != 0;\n", ~((1 << (p->type)) - 1)); emit ("context->zero = tmp == 0;\n"); } static void exts (p) opcode_entry_type *p; { /* Fetch the ls part of the src */ current_size = size_name (p->type * 2); if (p->type == 32) { emit ("tmp= get_long_reg(context,reg_dst+2);\n"); emit ("if (tmp & (1<<%d)) {\n", p->type - 1); emit ("put_long_reg(context,reg_dst, 0xffffffff);\n"); emit ("}\n"); emit ("else\n"); emit ("{\n"); emit ("put_long_reg(context,reg_dst, 0);\n"); emit ("}\n"); } else { emit ("tmp= get__reg(context,reg_dst);\n"); emit ("if (tmp & (1<<%d)) {\n", p->type - 1); emit ("tmp |= 0x%x;\n", ~((1 << p->type) - 1)); emit ("}\n"); emit ("else\n"); emit ("{\n"); emit ("tmp &= 0x%x;\n", ((1 << p->type) - 1)); emit ("}\n"); emit ("put__reg(context,reg_dst, tmp);\n"); } } doflag(on) int on; { /* Load up the flags */ emit(" COND (context, 0x0b);\n"); if (on) emit ("{ int on =1;\n "); else emit ("{ int on =0;\n "); emit ("if (imm_src & 1)\n"); emit ("PSW_OVERFLOW = on;\n"); emit ("if (imm_src & 2)\n"); emit ("PSW_SIGN = on;\n"); emit ("if (imm_src & 4)\n"); emit ("PSW_ZERO = on;\n"); emit ("if (imm_src & 8)\n"); emit ("PSW_CARRY = on;\n"); emit("}\n"); } /* emit code to perform operation */ void info_docode (p) opcode_entry_type *p; { switch (p->opcode) { case OPC_clr: case OPC_clrb: emit ("tmp = 0;\n"); break; case OPC_ex: case OPC_exb: emit ("tmp = op_src; \n"); if (allregs) { emit ("put__reg(context,reg_src, op_dst);\n"); } else { emit ("put__mem_da(context, oplval_src, op_dst);\n"); } break; case OPC_adc: case OPC_adcb: optimize_normal_flags (p, "tmp = op_dst + op_src + PSW_CARRY"); break; case OPC_nop: break; case OPC_com: case OPC_comb: test_normal_flags (p, "tmp = ~ op_dst", 1); break; case OPC_and: case OPC_andb: test_normal_flags (p, "tmp = op_dst & op_src", 1); break; case OPC_xor: case OPC_xorb: test_normal_flags (p, "tmp = op_dst ^ op_src", 1); break; case OPC_or: case OPC_orb: test_normal_flags (p, "tmp = op_dst | op_src", 1); break; case OPC_sla: case OPC_slab: case OPC_slal: case OPC_sda: case OPC_sdab: case OPC_sdal: shift (p, 1); break; case OPC_sll: case OPC_sllb: case OPC_slll: case OPC_sdl: case OPC_sdlb: case OPC_sdll: shift (p, 0); break; case OPC_rl: rotate (p, 0, 16, 1); break; case OPC_rlb: rotate (p, 0, 8, 1); break; case OPC_rr: rotate (p, 0, 16, 0); break; case OPC_rrb: rotate (p, 0, 8, 0); break; case OPC_rrc: rotate (p, 1, 16, 0); case OPC_rrcb: rotate (p, 1, 8, 0); break; case OPC_rlc: rotate (p, 1, 16, 1); break; case OPC_rlcb: rotate (p, 1, 8, 1); break; case OPC_extsb: case OPC_exts: case OPC_extsl: exts (p); break; case OPC_add: case OPC_addb: case OPC_addl: case OPC_inc: case OPC_incb: optimize_normal_flags (p, "tmp = op_dst + op_src"); break; case OPC_testb: case OPC_test: case OPC_testl: test_normal_flags (p, "tmp = op_dst", 0); break; case OPC_cp: case OPC_cpb: case OPC_cpl: normal_flags (p, "op_src = -op_src; tmp = op_dst + op_src"); break; case OPC_negb: case OPC_neg: emit ("{\n"); emit ("int op_src = -op_dst;\n"); emit ("op_dst = 0;\n"); optimize_normal_flags (p, "tmp = op_dst + op_src;\n"); emit ("}"); break; case OPC_sub: case OPC_subb: case OPC_subl: case OPC_dec: case OPC_decb: optimize_normal_flags (p, "op_src = -op_src ;tmp = op_dst + op_src"); break; case OPC_bpt: bpt (); break; case OPC_jr: jr (p); break; case OPC_sc: sc (); break; case OPC_jp: jp (p); break; case OPC_ret: ret (p); break; case OPC_call: call (p); break; case OPC_tcc: case OPC_tccb: emit ("if(op_cc == 8 || COND(context,op_cc)) put_word_reg(context,reg_dst, 1);\n"); break; case OPC_lda: emit ("tmp = oplval_src; \n"); /*(((oplval_src) & 0xff0000) << 8) | (oplval_src & 0xffff); \n");*/ break; case OPC_ldk: case OPC_ld: case OPC_ldb: case OPC_ldl: ld (p); break; case OPC_ldib: ldi (p, 8, 1); break; case OPC_ldi: ldi (p, 16, 1); break; case OPC_lddb: ldi (p, 8, -1); break; case OPC_ldd: ldi (p, 16, -1); break; case OPC_push: case OPC_pushl: push (p); break; case OPC_div: case OPC_divl: adiv (p); break; case OPC_mult: case OPC_multl: mult (p); break; case OPC_pop: case OPC_popl: pop (p); break; case OPC_set: doset (p,1); break; case OPC_res: doset (p,0); break; case OPC_bit: dobit(p); break; case OPC_resflg: doflag(0); break; case OPC_setflg: doflag(1); break; default: emit ("tmp = fail(context,%d);\n", p->opcode); break; } } /* emit code to store result in calculated lvalue */ void info_store (p) opcode_entry_type *p; { unsigned int *i = p->arg_info; while (*i) { current_name = reg_n (*i); current_size = size_name (p->type); if (IS_DST (*i)) { switch (*i & CLASS_MASK) { case CLASS_PR: emit ("put__reg(context,reg_, tmp);\n"); break; case CLASS_REG_LONG: case CLASS_REG_WORD: case CLASS_REG_BYTE: emit ("put__reg(context,reg_,tmp);\n"); break; case CLASS_X: case CLASS_IR: case CLASS_DA: case CLASS_BX: case CLASS_BA: emit ("put___da(context,oplval_, tmp);\n"); break; case CLASS_IMM: break; default: emit ("abort(); "); break; } } i++; } } static void mangle (p, shortcut, value) opcode_entry_type *p; int shortcut; int value; { int nostore = 0; int extra; int getdst = 1; int before = 0; int nosrc = 0; emit ("/\052 %s \052/\n", p->nicename); if (shortcut) { emit ("int _%04x(context,pc)\n", value); } else { emit ("int _%d(context,pc,iwords0)\n", p->idx); emit ("int iwords0;\n"); } emit ("sim_state_type *context;\n"); emit ("int pc;\n"); emit ("{\n"); emit ("register unsigned int tmp;\n"); if (shortcut) { emit ("register unsigned int iwords0 = 0x%x;\n", value); } /* work out how much bigger this opcode could be because it's large model */ if (BIG) { int i; extra = 0; for (i = 0; i < 4; i++) { if ((p->arg_info[i] & CLASS_MASK) == CLASS_DA || (p->arg_info[i] & CLASS_MASK) == CLASS_X) extra += 2; } } else { extra = 0; } printf (" /* Length %d */ \n", p->length + extra); switch (p->length + extra) { case 2: emit ("pc += 2\n;"); break; case 4: emit ("register unsigned int iwords1 = get_word_mem_da(context,pc+2);\n"); emit ("pc += 4;\n"); break; case 6: emit ("register unsigned int iwords1 = get_word_mem_da(context,pc+2);\n"); emit ("register unsigned int iwords2 = get_word_mem_da(context,pc+4);\n"); emit ("pc += 6;\n"); break; case 8: emit ("register unsigned int iwords1 = get_word_mem_da(context,pc+2);\n"); emit ("register unsigned int iwords2 = get_word_mem_da(context,pc+4);\n"); emit ("register unsigned int iwords3 = get_word_mem_da(context,pc+6);\n"); emit ("pc += 8;\n"); break; default: break; } emit ("context->cycles += %d;\n", p->cycles); emit ("{\n"); info_args (p); info_special (p, &getdst, &nostore, &before, &nosrc); info_lvals (p); if (!nosrc) { info_fetch (p, getdst); } if (before) { info_docode (p); } else { info_docode (p); } if (!nostore) info_store (p); emit ("}\n"); emit ("return pc;\n"); emit ("}\n"); } void static one_instruction (i) int i; { /* find the table entry */ opcode_entry_type *p = z8k_table + i; if (!p) return; mangle (p, 0, 0); } void add_to_list (ptr, value) struct opcode_value **ptr; int value; { struct opcode_value *prev; prev = *ptr; *ptr = (struct opcode_value *) malloc (sizeof (struct opcode_value)); (*ptr)->n = value; (*ptr)->next = prev; } void build_list (i) int i; { opcode_entry_type *p = lookup_inst (i); if (!p) return; add_to_list (&list[p->idx], i); } int main (ac, av) int ac; char **av; { int i; int needcomma = 0; makelist = 0; for (i = 1; i < ac; i++) { if (strcmp (av[i], "-m") == 0) makelist = 1; if (strcmp (av[i], "-1") == 0) file = 1; if (strcmp (av[i], "-2") == 0) file = 2; if (strcmp (av[i], "-3") == 0) file = 3; if (strcmp (av[i], "-b3") == 0) { file = 3; BIG = 1; } } if (makelist) { int i; needcomma = 0; printf ("short int z8k_inv_list[] = {\n"); for (i = 0; i < 1 << 16; i++) { opcode_entry_type *p = lookup_inst (i); if(needcomma) printf(","); if ((i & 0xf) == 0) printf ("\n"); #if 0 printf ("\n /*%04x %s */", i, p ? p->nicename : ""); #endif if (!p) { printf ("-1"); } else { printf ("%d", p->idx); } if ((i & 0x3f) == 0 && DIRTY_HACK) { printf ("\n#ifdef __GNUC__\n"); printf ("};\n"); printf("short int int_list%d[] = {\n", i); printf ("#else\n"); printf (",\n"); printf ("#endif\n"); needcomma = 0; } else needcomma = 1; } printf ("};\n"); return 1; } /* First work out which opcodes use which bit patterns, build a list of all matching bit pattens */ for (i = 0; i < 1 << 16; i++) { build_list (i); } #if DUMP_LIST for (i = 0; i < NOPS; i++) { struct opcode_value *p; printf ("%d,", i); p = list[i]; while (p) { printf (" %04x,", p->n); p = p->next; } printf ("-1\n"); } #endif if (file == 1) { extern int quick[]; /* Do the shortcuts */ printf (" /* SHORTCUTS */\n"); for (i = 0; quick[i]; i++) { int t = quick[i]; mangle (z8k_table + z8k_inv_list[t], 1, t); } } if (file == 3) { printf (" /* NOT -SHORTCUTS */\n"); for (i = 0; i < NOPS; i++) { if (list[i]) { one_instruction (i); } else { emit ("int _%d(context,pc)\n", i); printf ("sim_state_type *context;\n"); printf ("int pc;\n"); emit ("{ _bad1();return pc; }\n"); } } emit ("int _bad() ;\n"); /* Write the jump table */ emit ("int (*(_table[]))() = {"); needcomma = 0; for (i = 0; i < NOPS; i++) { if (needcomma) printf (","); emit ("_%d\n", i); needcomma = 1; if ((i & 0x3f) == 0 && DIRTY_HACK) { printf ("#ifdef __GNUC__\n"); printf ("};\n"); emit ("int (*(_table%d[]))() = {\n", i); printf ("#else\n"); printf (",\n"); printf ("#endif\n"); needcomma = 0; } } emit ("};\n"); } if (file == 2) { extern int quick[]; /* Static - since it's too be to be automatic on the apollo */ static int big[64 * 1024]; for (i = 0; i < 64 * 1024; i++) big[i] = 0; for (i = 0; quick[i]; i++) { #if 0 printf ("extern int _%04x();\n", quick[i]); #endif big[quick[i]] = 1; } for (i = 0; i < NOPS; i++) { #if 0 printf ("extern int fop_%d();\n", i); #endif } #if 0 printf ("extern int fop_bad();\n"); #endif printf ("struct op_info op_info_table[] = {\n"); for (i = 0; i < 1 << 16; i++) { int inv = z8k_inv_list[i]; opcode_entry_type *p = z8k_table + inv; if (needcomma) printf (","); #if 0 if (big[i]) { printf ("_%04x", i); } else #endif if (inv >= 0) { printf ("%d", inv); } else printf ("400"); if (inv >= 0) { printf (" /* %04x %s */\n", i, p->nicename); } else { printf ("\n"); } needcomma = 1; if ((i & 0x3f) == 0 && DIRTY_HACK) { printf ("#ifdef __GNUC__\n"); printf ("}; \n"); printf ("struct op_info op_info_table%d[] = {\n", i); printf ("#else\n"); printf (",\n"); printf ("#endif\n"); needcomma = 0; } } printf ("};\n"); } return 0; } char * insn_ptr (n) int n; { if (BIG) { abort (); } switch (n) { case 4: return "iwords_1"; default: return "fail(context,123)"; } } /* work out if the opcode only wants lvalues */ int lvalue (p) opcode_entry_type *p; { switch (p->opcode) { case OPC_lda: return 1; case OPC_call: case OPC_jp: return 1; default: return 0; } } int info_len_in_words (o) opcode_entry_type *o; { unsigned int *p = o->byte_info; int nibs = 0; while (*p) { switch (*p & CLASS_MASK) { case CLASS_BIT: case CLASS_REGN0: case CLASS_REG: case CLASS_01II: case CLASS_00II: nibs++; break; case CLASS_ADDRESS: nibs += SIZE_ADDRESS; break; case CLASS_IMM: switch (*p & ~CLASS_MASK) { case ARG_IMM16: nibs += 4; break; case ARG_IMM32: nibs += 8; break; case ARG_IMM2: case ARG_IMM4: case ARG_IMM4M1: case ARG_IMM_1: case ARG_IMM_2: case ARG_IMMNMINUS1: nibs++; break; case ARG_NIM8: case ARG_IMM8: nibs += 2; break; default: abort (); } break; case CLASS_DISP: switch (*p & ~CLASS_MASK) { case ARG_DISP16: nibs += 4; break; case ARG_DISP12: nibs += 3; break; case ARG_DISP8: nibs += 2; break; default: abort (); } break; case CLASS_0DISP7: case CLASS_1DISP7: case CLASS_DISP8: nibs += 2; break; case CLASS_BIT_1OR2: case CLASS_0CCC: case CLASS_1CCC: case CLASS_CC: nibs++; break; default: emit ("don't know %x\n", *p); } p++; } return nibs / 4; /* return umber of words */ } gdb-4.13/sim/z8k/z8k.mt 666 34562 1752 63 5351213053 13053 0ustar fnfcygnusALL=all-z8k CLEAN=clean-z8k DO_INSTALL=install-z8k gdb-4.13/etc/ 777 34562 1752 0 5623251756 11243 5ustar fnfcygnusgdb-4.13/etc/Makefile.in 666 34562 1752 4451 5623250454 13366 0ustar fnfcygnus# # Makefile.in for etc # prefix = /usr/local exec_prefix = $(prefix) srcdir = . bindir = $(exec_prefix)/bin libdir = $(exec_prefix)/lib tooldir = $(libdir) datadir = $(prefix)/lib mandir = $(prefix)/man man1dir = $(mandir)/man1 man2dir = $(mandir)/man2 man3dir = $(mandir)/man3 man4dir = $(mandir)/man4 man5dir = $(mandir)/man5 man6dir = $(mandir)/man6 man7dir = $(mandir)/man7 man8dir = $(mandir)/man8 man9dir = $(mandir)/man9 infodir = $(prefix)/info SHELL = /bin/sh INSTALL = install -c INSTALL_PROGRAM = $(INSTALL) INSTALL_DATA = $(INSTALL) MAKEINFO = makeinfo TEXI2DVI = texi2dvi # Where to find texinfo.tex to format documentation with TeX. TEXIDIR = $(srcdir)/../texinfo #### Host, target, and site specific Makefile fragments come in here. ### INFOFILES = configure.info standards.info cfg-paper.info DVIFILES = configure.dvi standards.dvi cfg-paper.dvi all: install: $(srcdir)/configure.man $(INSTALL_DATA) $(srcdir)/configure.man $(man1dir)/configure.1 uninstall: cd $(infodir) && rm -f configure.info* standards.info* cfg-paper.info* info: $(INFOFILES) install-info: if test ! -f configure.info ; then cd $(srcdir); fi; \ for i in configure.info* standards.info* cfg-paper.info*; do \ $(INSTALL_DATA) $$i $(infodir)/$$i; \ done dvi: $(DVIFILES) configure.info: $(srcdir)/configure.texi $(MAKEINFO) -o configure.info $(srcdir)/configure.texi configure.dvi: $(srcdir)/configure.texi TEXINPUTS=$(TEXIDIR):$$TEXINPUTS $(TEXI2DVI) $(srcdir)/configure.texi standards.info: $(srcdir)/standards.texi $(MAKEINFO) -I$(srcdir) -o standards.info $(srcdir)/standards.texi standards.dvi: $(srcdir)/standards.texi TEXINPUTS=$(TEXIDIR):$$TEXINPUTS $(TEXI2DVI) $(srcdir)/standards.texi cfg-paper.info : $(srcdir)/cfg-paper.texi $(MAKEINFO) -o cfg-paper.info $(srcdir)/cfg-paper.texi cfg-paper.dvi: $(srcdir)/cfg-paper.texi TEXINPUTS=$(TEXIDIR):$$TEXINPUTS $(TEXI2DVI) $(srcdir)/cfg-paper.texi clean: rm -f *.aux *.cp *.cps *.dvi *.fn *.fns *.ky *.kys *.log rm -f *.pg *.pgs *.toc *.tp *.tps *.vr *.vrs mostlyclean: clean distclean: clean rm -f Makefile config.status realclean: distclean rm -f *.info* Makefile: $(srcdir)/Makefile.in $(host_makefile_frag) $(target_makefile_frag) ./config.status ## these last targets are for standards.texi conformance dist: check: installcheck: TAGS: gdb-4.13/etc/cfg-paper.texi 666 34562 1752 67154 5623250455 14112 0ustar fnfcygnus\input texinfo @c %**start of header @setfilename cfg-paper.info @settitle On Configuring Development Tools @c %**end of header @setchapternewpage off @ifinfo This document attempts to describe the general concepts behind configuration of the @sc{gnu} Development Tools. It also discusses common usage. Copyright (C) 1991, 1992, 1994 Cygnus Support Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through TeX and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by Cygnus Support. @end ifinfo @titlepage @sp 10 @title{On Configuring Development Tools} @author{K. Richard Pixley, @code{rich@@cygnus.com}} @author{Cygnus Support} @page @vskip 0pt plus 1filll Copyright @copyright{} 1991, 1992, 1994 Cygnus Support Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by Cygnus Support. @end titlepage @ifinfo @format START-INFO-DIR-ENTRY * configuration: (cfg-paper). Some theory on configuring source. END-INFO-DIR-ENTRY @end format @end ifinfo @node top, Some Basic Terms, (dir), (dir) @ifinfo This document attempts to describe the general concepts behind configuration of the @sc{gnu} Development Tools. It also discusses common usage. @end ifinfo @menu * Some Basic Terms:: Some Basic Terms * Specifics.:: Specifics * Building Development Environments:: Building Development Environments * A Walk Through:: A Walk Through * Final Notes:: Final Notes * Index:: Index --- The Detailed Node Listing --- Some Basic Terms * Host Environments:: Host Environments * Configuration Time Options:: Configuration Time Options A Walk Through * Native Development Environments:: Native Development Environments * Emulation Environments:: Emulation Environments * Simple Cross Environments:: Simple Cross Environments * Crossing Into Targets:: Crossing Into Targets * Canadian Cross:: Canadian Cross Final Notes * Hacking Configurations:: Hacking Configurations @end menu @node Some Basic Terms, Specifics., top, top @chapter Some Basic Terms There are a lot of terms that are frequently used when discussing development tools. Most of the common terms have been used for many different concepts such that their meanings have become ambiguous to the point of being confusing. Typically, we only guess at their meanings from context and we frequently guess wrong. This document uses very few terms by comparison. The intent is to make the concepts as clear as possible in order to convey the usage and intent of these tools. @emph{Programs} run on @emph{machines}. Programs are very nearly always written in @emph{source}. Programs are @emph{built} from source. @emph{Compilation} is a process that is frequently, but not always, used when building programs. @cindex Programs @cindex Machines @cindex Source @cindex Building @cindex Compilation @menu * Host Environments:: Host Environments * Configuration Time Options:: Configuration Time Options @end menu @node Host Environments, Configuration Time Options, Some Basic Terms, Some Basic Terms @section Host Environments @cindex host In this document, the word @emph{host} refers to the environment in which the source in question will be compiled. @emph{host} and @emph{host name} have nothing to do with the proper name of your host, like @emph{ucbvax}, @emph{prep.ai.mit.edu} or @emph{att.com}. Instead they refer to things like @emph{sun4} and @emph{dec3100}. Forget for a moment that this particular directory of source is the source for a development environment. Instead, pretend that it is the source for a simpler, more mundane, application, say, a desk calculator. Source that can be compiled in more than one environment, generally needs to be set up for each environment explicitly. Here we refer to that process as configuration. That is, we configure the source for a host. For example, if we wanted to configure our mythical desk calculator to compile on a SparcStation, we might configure for host sun4. With our configuration system: @example cd desk-calculator ; ./configure sun4 @end example @noindent does the trick. @code{configure} is a shell script that sets up Makefiles, subdirectories, and symbolic links appropriate for compiling the source on a sun4. The @emph{host} environment does not necessarily refer to the machine on which the tools are built. It is possible to provide a sun3 development environment on a sun4. If we wanted to use a cross compiler on the sun4 to build a program intended to be run on a sun3, we would configure the source for sun3. @example cd desk-calculator ; ./configure sun3 @end example @noindent The fact that we are actually building the program on a sun4 makes no difference if the sun3 cross compiler presents an environment that looks like a sun3 from the point of view of the desk calculator source code. Specifically, the environment is a sun3 environment if the header files, predefined symbols, and libraries appear as they do on a sun3. Nor does the host environment refer to the the machine on which the program to be built will run. It is possible to provide a sun3 emulation environment on a sun4 such that programs built in a sun3 development environment actually run on the sun4. This technique is often used within individual programs to remedy deficiencies in the host operating system. For example, some operating systems do not provide the @code{bcopy} function and so it is emulated using the @code{memcpy} funtion. Host environment simply refers to the environment in which the program will be built from the source. @node Configuration Time Options, , Host Environments, Some Basic Terms @section Configuration Time Options Many programs have compile time options. That is, features of the program that are either compiled into the program or not based on a choice made by the person who builds the program. We refer to these as @emph{configuration options}. For example, our desk calculator might be capable of being compiled into a program that either uses infix notation or postfix as a configuration option. For a sun3, to choose infix you might use: @example ./configure sun3 --enable-notation=infix @end example @noindent while for a sun4 with postfix you might use: @example ./configure sun4 --enable-notation=postfix @end example If we wanted to build both at the same time, the intermediate pieces used in the build process must be kept separate. @example mkdir ../objdir.sun4 (cd ../objdir.sun4 ; ../configure sun4 --enable-notation=postfix --srcdir=../src) mkdir ../objdir.sun3 (cd ../objdir.sun3 ; ../configure sun3 --enable-notation=infix --srcdir=../src) @end example @noindent will create subdirectories for the intermediate pieces of the sun4 and sun3 configurations. This is necessary as previous systems were only capable of one configuration at a time. Otherwise, a second configuration would write over the first. We've chosen to retain this behaviour so the obj directories and the @code{--srcdir} configuration option are necessary to get the new behaviour. The order of the arguments doesn't matter. There should be exactly one argument without a leading @samp{-} and that argument will be assumed to be the host name. From here on the examples will assume that you want to build the tools @emph{in place} and won't show the @code{--srcdir} option, but remember that it is available. In order to actually install the program, the configuration system needs to know where you would like the program installed. The default location is @file{/usr/local}. We refer to this location as @code{$(prefix)}. All user visible programs will be installed in @file{@code{$(prefix)}/bin}. All other programs and files will be installed in a subdirectory of @file{@code{$(prefix)}/lib}. You can only change @code{$(prefix)} as a configuration time option. @example ./configure sun4 --enable-notation=postfix --prefix=/local @end example @noindent Will configure the source such that: @example make install @end example @noindent will put its programs in @file{/local/bin} and @file{/local/lib/gcc}. If you change @code{$(prefix)} after building the source, you will need to: @example make clean @end example @noindent before the change will be propogated properly. This is because some tools need to know the locations of other tools. With these concepts in mind, we can drop the desk calculator example and move on to the application that resides in these directories, namely, the source to a development environment. @node Specifics., Building Development Environments, Some Basic Terms, top @chapter Specifics The @sc{gnu} Development Tools can be built on a wide variety of hosts. So, of course, they must be configured. Like the last example, @example ./configure sun4 --prefix=/local ./configure sun3 --prefix=/local @end example @noindent will configure the source to be built in subdirectories, in order to keep the intermediate pieces separate, and to be installed in @file{/local}. When built with suitable development environments, these will be native tools. We'll explain the term @emph{native} later. @node Building Development Environments, A Walk Through, Specifics., top @chapter Building Development Environments @cindex Target The @sc{gnu} development tools can not only be built in a number of host development environments, they can also be configured to create a number of different development environments on each of those hosts. We refer to a specific development environment created as a @emph{target}. That is, the word @emph{target} refers to the development environment produced by compiling this source and installing the resulting programs. For the @sc{gnu} development tools, the default target is the same as the host. That is, the development environment produced is intended to be compatible with the environment used to build the tools. In the example above, we created two configurations, one for sun4 and one for sun3. The first configuration is expecting to be built in a sun4 development environment, to create a sun4 development environment. It doesn't necessarily need to be built on a sun4 if a sun4 development environment is available elsewhere. Likewise, if the available sun4 development environment produces executables intended for something other than sun4, then the development environment built from this sun4 configuration will run on something other than a sun4. From the point of view of the configuration system and the @sc{gnu} development tools source, this doesn't matter. What matters is that they will be built in a sun4 environment. Similarly, the second configuration given above is expecting to be built in a sun3 development environment, to create a sun3 development environment. The development environment produced is a configuration time option, just like @code{$(prefix)}. @example ./configure sun4 --prefix=/local --target=sun3 ./configure sun3 --prefix=/local --target=sun4 @end example In this example, like before, we create two configurations. The first is intended to be built in a sun4 environment, in subdirectories, to be installed in @file{/local}. The second is intended to be built in a sun3 environment, in subdirectories, to be installed in @file{/local}. Unlike the previous example, the first configuration will produce a sun3 development environment, perhaps even suitable for building the second configuration. Likewise, the second configuration will produce a sun4 development environment, perhaps even suitable for building the first configuration. The development environment used to build these configurations will determine the machines on which the resulting development environments can be used. @node A Walk Through, Final Notes, Building Development Environments, top @chapter A Walk Through @menu * Native Development Environments:: Native Development Environments * Emulation Environments:: Emulation Environments * Simple Cross Environments:: Simple Cross Environments * Crossing Into Targets:: Crossing Into Targets * Canadian Cross:: Canadian Cross @end menu @node Native Development Environments, Emulation Environments, A Walk Through, A Walk Through @section Native Development Environments Let us assume for a moment that you have a sun4 and that with your sun4 you received a development environment. This development environment is intended to be run on your sun4 to build programs that can be run on your sun4. You could, for instance, run this development environment on your sun4 to build our example desk calculator program. You could then run the desk calculator program on your sun4. @cindex Native @cindex Foreign The resulting desk calculator program is referred to as a @emph{native} program. The development environment itself is composed of native programs that, when run, build other native programs. Any other program is referred to as @emph{foreign}. Programs intended for other machines are foreign programs. This type of development environment, which is by far the most common, is refered to as @emph{native}. That is, a native development environment runs on some machine to build programs for that same machine. The process of using a native development environment to build native programs is called a @emph{native} build. @example ./configure sun4 @end example @noindent will configure this source such that when built in a sun4 development environment, with a development environment that builds programs intended to be run on sun4 machines, the programs built will be native programs and the resulting development environment will be a native development environment. The development system that came with your sun4 is one such environment. Using it to build the @sc{gnu} Development Tools is a very common activity and the resulting development environment is quite popular. @example make all @end example @noindent will build the tools as configured and will assume that you want to use the native development environment that came with your machine. @cindex Bootstrapping @cindex Stage1 Using a development environment to build a development environment is called @emph{bootstrapping}. The release of the @sc{gnu} Development Tools is capable of bootstrapping itself. This is a very powerful feature that we'll return to later. For now, let's pretend that you used the native development environment that came with your sun4 to bootstrap the release and let's call the new development environment @emph{stage1}. Why bother? Well, most people find that the @sc{gnu} development environment builds programs that run faster and take up less space than the native development environments that came with their machines. Some people didn't get development environments with their machines and some people just like using the @sc{gnu} tools better than using other tools. @cindex Stage2 While you're at it, if the @sc{gnu} tools produce better programs, maybe you should use them to build the @sc{gnu} tools. So let's pretend that you do. Let's call the new development environment @emph{stage2}. @cindex Stage3 So far you've built a development environment, stage1, and you've used stage1 to build a new, faster and smaller development environment, stage2, but you haven't run any of the programs that the @sc{gnu} tools have built. You really don't yet know if these tools work. Do you have any programs built with the @sc{gnu} tools? Yes, you do. stage2. What does that program do? It builds programs. Ok, do you have any source handy to build into a program? Yes, you do. The @sc{gnu} tools themselves. In fact, if you use stage2 to build the @sc{gnu} tools again the resulting programs should be identical to stage2. Let's pretend that you do and call the new development environment @emph{stage3}. @cindex Three stage boot You've just completed what's called a @emph{three stage boot}. You now have a small, fast, somewhat tested, development environment. @example make bootstrap @end example @noindent will do a three stage boot across all tools and will compare stage2 to stage3 and complain if they are not identical. Once built, @example make install @end example @noindent will install the development environment in the default location, or in @code{$(prefix)} if you specified an alternate when you configured. @cindex Cross Any development environment that is not a native development environment is refered to as a @emph{cross} development environment. There are many different types of cross development environments but most fall into one of three basic categories. @node Emulation Environments, Simple Cross Environments, Native Development Environments, A Walk Through @section Emulation Environments @cindex Emulation The first category of cross development environment is called @emph{emulation}. There are two primary types of emulation, but both types result in programs that run on the native host. @cindex Software emulation @cindex Software emulator The first type is @emph{software emulation}. This form of cross development environment involves a native program that when run on the native host, is capable of interpreting, and in most aspects running, a program intended for some other machine. This technique is typically used when the other machine is either too expensive, too slow, too fast, or not available, perhaps because it hasn't yet been built. The native, interpreting program is called a @emph{software emulator}. The @sc{gnu} Development Tools do not currently include any software emulators. Some do exist and the @sc{gnu} Development Tools can be configured to create simple cross development environments for with these emulators. More on this later. The second type of emulation is when source intended for some other development environment is built into a program intended for the native host. The concepts of operating system universes and hosted operating systems are two such development environments. @node Simple Cross Environments, Crossing Into Targets, Emulation Environments, A Walk Through @section Simple Cross Environments @example ./configure sun4 --target=a29k @end example @noindent will configure the tools such that when compiled in a sun4 development environment the resulting development environment can be used to create programs intended for an a29k. Again, this does not necessarily mean that the new development environment can be run on a sun4. That would depend on the development environment used to build these tools. Earlier you saw how to configure the tools to build a native development environment, that is, a development environment that runs on your sun4 and builds programs for your sun4. Let's pretend that you use stage3 to build this simple cross configuration and let's call the new development environment gcc-a29k. Remember that this is a native build. Gcc-a29k is a collection of native programs intended to run on your sun4. That's what stage3 builds, programs for your sun4. Gcc-a29k represents an a29k development environment that builds programs intended to run on an a29k. But, remember, gcc-a29k runs on your sun4. Programs built with gcc-a29k will run on your sun4 only with the help of an appropriate software emulator. @cindex Simple cross @cindex Crossing to Building gcc-a29k is also a bootstrap but of a slightly different sort. We call gcc-a29k a @emph{simple cross} environment and using gcc-a29k to build a program intended for a29k is called @emph{crossing to} a29k. Simple cross environments are the second category of cross development environments. @node Crossing Into Targets, Canadian Cross, Simple Cross Environments, A Walk Through @section Crossing Into Targets @example ./configure a29k --target=a29k @end example @noindent will configure the tools such that when compiled in an a29k development environment, the resulting development environment can be used to create programs intended for an a29k. Again, this does not necessarily mean that the new development environment can be run on an a29k. That would depend on the development environment used to build these tools. If you've been following along this walk through, then you've already built an a29k environment, namely gcc-a29k. Let's pretend you use gcc-a29k to build the current configuration. Gcc-a29k builds programs intended for the a29k so the new development environment will be intended for use on an a29k. That is, this new gcc consists of programs that are foreign to your sun4. They cannot be run on your sun4. @cindex Crossing into The process of building this configuration is a another bootstrap. This bootstrap is also a cross to a29k. Because this type of build is both a bootstrap and a cross to a29k, it is sometimes referred to as a @emph{cross into} a29k. This new development environment isn't really a cross development environment at all. It is intended to run on an a29k to produce programs for an a29k. You'll remember that this makes it, by definition, an a29k native compiler. @emph{Crossing into} has been introduced here not because it is a type of cross development environment, but because it is frequently mistaken as one. The process is @emph{a cross} but the resulting development environment is a native development environment. You could not have built this configuration with stage3, because stage3 doesn't provide an a29k environment. Instead it provides a sun4 environment. If you happen to have an a29k lying around, you could now use this fresh development environment on the a29k to three-stage these tools all over again. This process would look just like it did when we built the native sun4 development environment because we would be building another native development environment, this one on a29k. @node Canadian Cross, , Crossing Into Targets, A Walk Through @section Canadian Cross So far you've seen that our development environment source must be configured for a specific host and for a specific target. You've also seen that the resulting development environment depends on the development environment used in the build process. When all four match identically, that is, the configured host, the configured target, the environment presented by the development environment used in the build, and the machine on which the resulting development environment is intended to run, then the new development environment will be a native development environment. When all four match except the configured host, then we can assume that the development environment used in the build is some form of library emulation. When all four match except for the configured target, then the resulting development environment will be a simple cross development environment. When all four match except for the host on which the development environment used in the build runs, the build process is a @emph{cross into} and the resulting development environment will be native to some other machine. Most of the other permutations do exist in some form, but only one more is interesting to the current discussion. @example ./configure a29k --target=sun3 @end example @noindent will configure the tools such that when compiled in an a29k development environment, the resulting development environment can be used to create programs intended for a sun3. Again, this does not necessarily mean that the new development environment can be run on an a29k. That would depend on the development environment used to build these tools. If you are still following along, then you have two a29k development environments, the native development environment that runs on a29k, and the simple cross that runs on your sun4. If you use the a29k native development environment on the a29k, you will be doing the same thing we did a while back, namely building a simple cross from a29k to sun3. Let's pretend that instead, you use gcc-a29k, the simple cross development environment that runs on sun4 but produces programs for a29k. The resulting development environment will run on a29k because that's what gcc-a29k builds, a29k programs. This development environment will produce programs for a sun3 because that is how it was configured. This means that the resulting development environment is a simple cross. @cindex Canadian Cross @cindex Three party cross There really isn't a common name for this process because very few development environments are capable of being configured this extensively. For the sake of discussion, let's call this process a @emph{Canadian cross}. It's a three party cross, Canada has a three party system, hence Canadian Cross. @node Final Notes, Index, A Walk Through, top @chapter Final Notes By @emph{configures}, I mean that links, Makefile, .gdbinit, and config.status are built. Configuration is always done from the source directory. @table @code @item ./configure @var{name} configures this directory, perhaps recursively, for a single host+target pair where the host and target are both @var{name}. If a previous configuration existed, it will be overwritten. @item ./configure @var{hostname} --target=@var{targetname} configures this directory, perhaps recursively, for a single host+target pair where the host is @var{hostname} and target is @var{targetname}. If a previous configuration existed, it will be overwritten. @end table @menu * Hacking Configurations:: Hacking Configurations @end menu @node Hacking Configurations, , Final Notes, Final Notes @section Hacking Configurations The configure scripts essentially do three things, create subdirectories if appropriate, build a @file{Makefile}, and create links to files, all based on and tailored to, a specific host+target pair. The scripts also create a @file{.gdbinit} if appropriate but this is not tailored. The Makefile is created by prepending some variable definitions to a Makefile template called @file{Makefile.in} and then inserting host and target specific Makefile fragments. The variables are set based on the chosen host+target pair and build style, that is, if you use @code{--srcdir} or not. The host and target specific Makefile may or may not exist. @itemize @bullet @item Makefiles can be edited directly, but those changes will eventually be lost. Changes intended to be permanent for a specific host should be made to the host specific Makefile fragment. This should be in @file{./config/mh-@var{host}} if it exists. Changes intended to be permanent for a specific target should be made to the target specific Makefile fragment. This should be in @file{./config/mt-@var{target}} if it exists. Changes intended to be permanent for the directory should be made in @file{Makefile.in}. To propogate changes to any of these, either use @code{make Makefile} or @code{./config.status} or re-configure. @end itemize @page @node Index, , Final Notes, top @appendix Index @printindex cp @contents @bye @c Local Variables: @c fill-column: 72 @c End: gdb-4.13/etc/configure.in 666 34562 1752 572 5276324413 13613 0ustar fnfcygnus# This file is a shell script fragment that supplies the information # necessary to tailor a template configure script into the configure # script appropriate for this directory. For more information, check # any existing configure script. srctrigger=configure.texi srcname="general documentation" # per-host: # per-target: # # Local Variables: # fill-column: 131 # End: # gdb-4.13/etc/configure.man 666 34562 1752 6773 5623250456 14012 0ustar fnfcygnus.\" -*- nroff -*- .\" Copyright (c) 1991, 1992 Cygnus Support .\" written by K. Richard Pixley .TH configure 1 "2 February 1993" "cygnus support" "Cygnus Support" .de BP .sp .ti \-.2i \(** .. .SH NAME configure \(em\& prepare source code to be built .SH SYNOPSIS configure HOST [--target=TARGET] [--srcdir=DIR] [--rm] [--site=SITE] [--prefix=DIR] [--exec_prefix=DIR] [--program_prefix=DIR] [--tmpdir=DIR] [--with-PACKAGE[=YES/NO]] [--without-PACKAGE] [--enable-FEATURE[=YES/NO]] [--disable-FEATURE] [--norecursion] [--nfp] [-s] [-v] [-V | --version] [--help] .SH DESCRIPTION .I configure is a program used to prepare souce code to be built. It does this by generating Makefiles and .gdbinit files, creating symlinks, recursing in subdirectories, and some other miscellaneous file editing. .SH OPTIONS .I configure accepts the following options: .TP .I \--target=TARGET Requests that the sources be configured to target the .I TARGET machine. If no target is specified explicitly, the target is assumed to be the same as the host. .TP .I \--srcdir=DIR tells configure to find the source in .I DIR. Object code is always built in the current directory, .I `.'. .TP .I \--rm asks configure to remove a configuration rather than create one. .TP .I \--site=SITE asks configure to use any site-specific Makefile fragments for .I SITE when building Makefiles. .TP .I \--prefix=DIR sets the location in which to install files to .I DIR. The default is "/usr/local". .TP .I \--exec_prefix=DIR sets the root directory for host-dependent files to .I DIR. The default location is the value of .I prefix. .TP .I \--program_prefix=DIR configures the source to install programs which have the same names as common Unix programs, such as "make", in .I DIR. Also applies to programs which might be used for cross-compilation. .TP .I \--tmpdir=DIR sets the directory in which configure creates temporary files to .I DIR. .TP .I \--with-PACKAGE[=YES/NO] sets a flag for the build to recognize that .I PACKAGE is explicitly present or not present. If .I \=YES/NO is nonexistent, the default is .I YES. .I \--without-PACKAGE is equivalent to .IR \--with-PACKAGE=no . .TP .I \--enable-FEATURE[=YES/NO] sets a flag for the build to recognize that .I FEATURE should be included or not included. If .I \=YES/NO is nonexistent, the default is .I YES. .I \--disable-FEATURE is equivalent to .IR --enable-FEATURE=no . .TP .I \--norecursion asks that only the current directory be configured. Normally .I configure recurs on subdirectories. .TP .I \-nfp Notifies .I configure that all of the specified hosts have .I no floating point units. .TP .I \-s used internally by configure to supress status messages on subdirectory recursions. Override with .I \-v .TP .I \-v verbose output. Asks that configure print status lines for each directory configured. Normally, only the status lines for the current directory are printed. .TP .I \--version .I \-V prints .I configure version number. .TP .I \-help displays a brief usage summary. .SH FILES configure.in for each directory's individual needs .br Makefile.in Makefile template .br config.sub for parsing configuration names .br config.guess for guessing HOST when not specified .br config.status non-recursively rebuilds current directory .SH FILES .ta \w'gmon.sum 'u a.out the namelist and text space. .br gmon.out dynamic call graph and profile. .br gmon.sum summarized dynamic call graph and profile. .SH "SEE ALSO" .RB "`\|" configure "\|'" entry in .B info. gdb-4.13/etc/configure.texi 666 34562 1752 222071 5623250457 14240 0ustar fnfcygnus\input texinfo @c -*-texinfo-*- @setfilename configure.info @settitle Cygnus configure @synindex ky cp @setchapternewpage odd @ifinfo @format START-INFO-DIR-ENTRY * configure: (configure). Cygnus configure. END-INFO-DIR-ENTRY @end format @end ifinfo @ifinfo This document describes the Cygnus Support version of @code{configure}. Copyright (C) 1991, 1992, 1993 Cygnus Support Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through TeX and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by Cygnus Support. @end ifinfo @c We should not distribute texinfo files with smallbook enabled. @c @smallbook @finalout @titlepage @title Cygnus configure @author K. Richard Pixley @author Cygnus Support @page @cindex copyleft @vskip 0pt plus 1filll Edited January, 1993, by Jeffrey Osier, Cygnus Support. Copyright @copyright{} 1991, 1992, 1993 Cygnus Support Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by Cygnus Support. @end titlepage @c --------------------------------------------------------------------- @ifinfo @node Top @top Cygnus configure This file documents the configuration system used and distributed by Cygnus Support. @menu * What configure does:: What configure does * Invoking configure:: Invoking configure---basic usage * Using configure:: More than you ever wanted to know * Porting:: How to use configure with new programs * Variables Index:: * Concept Index:: @end menu @end ifinfo @c --------------------------------------------------------------------- @node What configure does @chapter What @code{configure} does @cindex Introduction @cindex Overview @cindex What @code{configure} does @kindex Cygnus Support Developer's Kit This manual documents Cygnus @code{configure}, a program which helps to automate much of the setup activity associated with building large suites of programs, such the Cygnus Support Developer's Kit. This manual is therefore geared toward readers who are likely to face the problem of configuring software in source form before compiling and installing it. We assume you are an experienced programmer or system administrator. @ifinfo For further background on this topic, see @ref{Some Basic Terms, , Apologia Configure, cfg-paper, On Configuring Development Tools}, by K. Richard Pixley. @end ifinfo @iftex For further background on this topic, see @cite{On Configuring Development Tools} by K. Richard Pixley. @end iftex When @code{configure} runs, it does the following things: @table @emph @item @bullet{} creates build directories @vindex srcdir @cindex @code{srcdir} @cindex Build directories When you run @code{configure} with the @samp{--srcdir} option, it uses the current directory as the @dfn{build directory}, creating under it a directory tree that parallels the directory structure of the source directory. If you don't specify a @samp{srcdir}, @code{configure} first assumes that the source code you wish to configure is in your current directory; if it finds no @file{configure.in} input file there, it searches in the directory @code{configure} itself lies in. (For details, see @ref{Build directories, , Build directories}.) @item @bullet{} generates @file{Makefile} @cindex @code{Makefile} generation A @file{Makefile} template from the source directory, usually called @file{Makefile.in}, is copied to an output file in the build directory which is most often named @file{Makefile}. @code{configure} places definitions for a number of standard @file{Makefile} macros at the beginning of the output file. If @w{@samp{--prefix=@var{dir}}} or @w{@samp{--exec_prefix=@var{dir}}} are specified on the @code{configure} command line, corresponding @file{Makefile} variables are set accordingly. If host, target, or site-specific @file{Makefile} fragments exist, these are inserted into the output file. (For details, see @ref{Makefile generation, , @code{Makefile} generation}.) @item @bullet{} generates @file{.gdbinit} @cindex @code{.gdbinit} If the source directory contains a @file{.gdbinit} file and the build directory is not the same as the source directory, a @file{.gdbinit} file is created in the build directory. This @file{.gdbinit} file contains commands which allow the source directory to be read when debugging with the @sc{gnu} debugger, @code{gdb}. (@xref{Command Files, , Command Files, gdb, Debugging With GDB}.) @item @bullet{} makes symbolic links @cindex Symbolic links Most build directories require that some symbolic links with generic names are built pointing to specific files in the source directory. If the system where @code{configure} runs cannot support symbolic links, hard links are used instead. (For details, see @ref{configure.in, , The @code{configure.in} input file}.) @item @bullet{} generates @file{config.status} @cindex @code{config.status} @code{configure} creates a shell script named @file{config.status} in the build directory. This shell script, when run from the build directory (usually from within a @file{Makefile}), will reconfigure the build directory (but not its subdirectories). This is most often used to have a @file{Makefile} update itself automatically if a new source directory is available. @item @bullet{} calls itself recursively @cindex Recursion If the source directory has subdirectories that should also be configured, @code{configure} is called for each. @end table @c --------------------------------------------------------------------- @node Invoking configure @chapter Invoking @code{configure} @cindex Invoking @code{configure} @cindex Usage Cygnus @code{configure} is a shell script which resides in a source tree. The usual way to invoke @code{configure} is from the shell, as follows: @cindex Example session @example eg$ ./configure @var{hosttype} @end example @noindent This prepares the source in the current directory (@file{.}) to be compiled for a @var{hosttype} environment. It assumes that you wish to build programs and files in the default @dfn{build directory} (also the current directory, @file{.}). If you do not specify a value for @var{hosttype}, Cygnus @code{configure} will attempt to discover this information by itself (@pxref{config.guess, , Determining system information}). For information on @var{hosttype} environments, @xref{Host, , Host}. All @sc{gnu} software is packaged with one or more @code{configure} script(s) (@pxref{Configuration, , How Configuration Should Work, standards, GNU Coding Standards}). By using @code{configure} you prepare the source for your specific environment by selecting and using @file{Makefile} fragments and fragments of shell scripts, which are prepared in advance and stored with the source. @code{configure}'s command-line options also allow you to specify other aspects of the source configuration: @smallexample configure @var{hosttype} [--target=@var{target}] [--srcdir=@var{dir}] [--rm] [--site=@var{site}] [--prefix=@var{dir}] [--exec-prefix=@var{dir}] [--program-prefix=@var{string}] [--tmpdir=@var{dir}] [--with-@var{package}[=@var{yes/no}]] [--without-@var{package}] [--enable-@var{feature}[=@var{yes/no}]] [--disable-@var{feature}] [--norecursion] [--nfp] [-s] [-v] [-V | --version] [--help] @end smallexample @table @code @item --target=@var{target} @cindex @code{--target} @cindex @code{target} option @vindex target Requests that the sources be configured to target the @var{target} machine. If no target is specified explicitly, the target is assumed to be the same as the host (i.e., a @dfn{native} configuration). @xref{Host, , Host}, and @ref{Target, , Target}, for discussions of each. @item --srcdir=@var{dir} @cindex @code{--srcdir} @cindex @code{srcdir} option @vindex srcdir Direct each generated @file{Makefile} to use the sources located in directory @var{dir}. Use this option whenever you wish the object code to reside in a different place from the source code. The @dfn{build directory} is always assumed to be the directory you call @code{configure} from. See @ref{Build directories, , Build directories}, for an example. If the source directory is not specified, @code{configure} assumes that the source is in your current directory. If @code{configure} finds no @file{configure.in} there, it searches in the same directory that the @code{configure} script itself lies in. Pathnames specified (Values for @var{dir}) can be either absolute relative to the @emph{build} directory. @item --rm @cindex @code{--rm} @cindex @code{rm} option @vindex rm @emph{Remove} the configuration specified by @var{hosttype} and the other command-line options, rather than create it. @c FIXME: check @ref @quotation @emph{Note:} We recommend that you use @samp{make distclean} rather than use this option; see @ref{Invoking make,,Invoking @code{make},make,GNU Make}, for details on @samp{make distclean}. @end quotation @item --site=@var{site} @cindex @code{--site} @cindex @code{site} option @vindex site Generate the @file{Makefile} using site-specific @file{Makefile} fragments for @var{site}. @xref{Makefile fragments, , Adding information about local conventions}. @item --prefix=@var{dir} @cindex @code{--prefix} @cindex @code{prefix} option @vindex prefix Configure the source to install programs and files under directory @var{dir}. This option sets the variable @samp{prefix}. Each generated @file{Makefile} will have its @samp{prefix} variables set to this value. (@xref{What configure really does, , What @code{configure} really does}.) @item --exec-prefix=@var{dir} @cindex @code{--exec-prefix} @cindex @code{exec-prefix} option @vindex exec-prefix Configure the source to install @dfn{host dependent} files in @var{dir}. This option sets the variable @samp{exec_prefix}. Each generated @file{Makefile} will have its @samp{exec_prefix} variables set to this value. (@xref{What configure really does, , What @code{configure} really does}.) @item --program-prefix=@var{string} @cindex @code{--program-prefix} @cindex @code{program-prefix} option @vindex program-prefix Configure the source to install certain programs using @var{string} as a prefix. This applies to programs which might be used for cross-compilation, such as the compiler and the binary utilities, and also to programs which have the same names as common Unix programs, such as @code{make}. This option sets the variable @samp{program_prefix}. Each generated @file{Makefile} will have its @samp{program_prefix} variables set to this value. (@xref{What configure really does, , What @code{configure} really does}.) @item --tmpdir=@var{tmpdir} @cindex @code{--tmpdir} @cindex @code{tmpdir} option @vindex tmpdir Use the directory @var{tmpdir} for @code{configure}'s temporary files. The default is the value of the environment variable @w{@code{TMPDIR}}, or @file{/tmp} if the environment variable is not set. @item --with-@var{package}[=@var{yes/no}] @itemx --without-@var{package} @cindex @code{--with-@var{package}} @cindex @code{with-@var{package}} option @vindex with-@var{package} @cindex @code{--without-@var{package}} @cindex @code{without-@var{package}} option @vindex without-@var{package} Indicate that @var{package} is present, or not present, depending on @var{yes/no}. If @var{yes/no} is nonexistent, its value is assumed to be @code{yes}. @samp{--without-@var{package}} is equivalent to @samp{--with-@var{package}=no}. For example, if you wish to configure the program @code{gcc} for a Sun SPARCstation running SunOS 4.x, and you want @code{gcc} to use the @sc{gnu} linker @code{ld}, you can configure @code{gcc} using @cindex Example session @smallexample eg$ configure --with-gnu-ld sun4 @end smallexample @noindent @xref{What configure really does, , What @code{configure} really does}, for details. See the installation or release notes for your particular package for details on which other @var{package} options are recognized. @c FIXME - need to include info about --with-* in other dox! @item --enable-@var{feature}[=@var{yes/no}] @itemx --disable-@var{feature} @cindex @code{--enable-@var{feature}} @cindex @code{enable-@var{feature}} option @vindex enable-@var{feature} @cindex @code{--disable-@var{feature}} @cindex @code{disable-@var{feature}} option @vindex disable-@var{feature} Include @var{feature}, or not, depending on @var{yes/no}. If @var{yes/no} is nonexistent, its value is assumed to be @code{yes}. @samp{--disable-@var{feature}} is equivalent to @samp{--enable-@var{feature}=no}. @noindent @xref{What configure really does, , What @code{configure} really does}, for details. See the installation or release notes for your particular package for details on which other @var{feature} options are recognized. @c FIXME - need to include info about --enable-* in other dox! @item --norecursion @cindex @code{--norecursion} @cindex @code{norecursion} option @vindex norecursion Configure only this directory; ignore any subdirectories. This is used by the executable shell script @file{config.status} to reconfigure only the current directory; it is most often used non-interactively, when @code{make} is invoked. (@xref{config.status, , @code{config.status}}.) @item --nfp @cindex @code{--nfp} @cindex @code{nfp} option @vindex nfp Assume that the intended @var{hosttype} has no floating point unit. @item -s @cindex @code{-s} @cindex @code{s} option Suppress status output. This option is used internally by @code{configure} when calling itself recursively in subdirectories. You can override this option with the @code{--verbose} option. @item -v @itemx --verbose @cindex @code{-v} @cindex @code{--verbose} @cindex @code{v} option @cindex @code{verbose} option @cindex Verbose Output @vindex verbose Print status lines for each directory configured. Normally, only the status lines for the initial working directory are printed. @item --version @itemx -V @cindex version @cindex @code{--version} @cindex version Print the @code{configure} version number. @item --help @cindex Usage @cindex @code{--help} @cindex @code{help} option Print a short summary of how to invoke @code{configure}. @end table @cindex Abbreviating option names @cindex Truncating option names @cartouche @emph{Note:} You may introduce options with a single dash, @samp{-}, rather than two dashes, @samp{--}. However, you may not be able to truncate long option names when using a single dash. When using two dashes, options may be abbreviated as long as each option can be uniquely identified. For example, @smallexample eg$ configure --s=/u/me/src @var{hosttype} @end smallexample @noindent is ambiguous, as @w{@samp{--s}} could refer to either @w{@samp{--site}} or @w{@samp{--srcdir}}. However, @smallexample eg$ configure --src=/u/me/src @var{hosttype} @end smallexample @noindent is a valid abbreviation. @end cartouche @c ======================================================================== @node Using configure @chapter Using @code{configure} @cindex Using @code{configure} @cindex Detailed usage @cindex Usage: detailed @code{configure} prepares source directories for building programs in them. ``Configuring'' is the process of preparing software to compile correctly on a given @dfn{host}, for a given @dfn{target}. @code{configure} subsequently writes a configured @file{Makefile} from a pre-built template; @code{configure} uses variables that have been set in the configuring process to determine the values of some variables in the @file{Makefile}. Because of this we will refer to both @code{configure} variables and @file{Makefile} variables. This convention allows us to determine where the variable should be set initially, in either @file{configure.in} or @file{Makefile.in}. @menu * What configure really does:: What configure really does * configure.in:: The configure.in input file * Install locations:: Where to install things once they are built * Host:: Telling configure what will source will be built * Target:: Telling configure what the source will target * Makefile fragments:: Adding information about local conventions * Makefile extensions:: Extensions to the GNU coding standards @end menu @c --------------------------------------------------------------------- @node What configure really does @section What @code{configure} really does @cindex What @code{configure} really does @cindex Behind the scenes @cindex @code{configure} back end @cindex @code{configure} details Cygnus @code{configure} is a shell script that sets up an environment in which your programs will compile correctly for your machine and operating system, and will install in proper places. @code{configure} accomplishes this task by doing the following: @itemize @bullet @item it generates a @file{Makefile} from a custom template called @file{Makefile.in} in each relevant source directory; @item it customizes the build process to your specifications; you set certain variables for @code{configure}, either on the command line or in the file @file{configure.in}, which subsequently sets variables in each generated @file{Makefile} to be used by @code{make} when actually building the software; @item it creates @dfn{build directories}, places for your code to be compiled in before being installed; @item it generates a @file{.gdbinit} in the build directory, if needed, to communicate to @code{gdb} where to find the program's source code; @item it generates a shell script called @file{config.status} which is used most often by the @file{Makefile} to reconfigure itself; @item it recurses in subdirectories, setting up entire trees so that they build correctly; if @code{configure} finds another @code{configure} script further down in a given source tree, it knows to use this script and not recur. @end itemize For the sake of safety (i.e., in order to prevent broken installations), the @sc{gnu} coding standards call for software to be @dfn{configured} in such a way that an end user trying to build a given package will be able to do so by affecting a finite number of variables. All @sc{gnu} software comes with an executable @code{configure} shell script which sets up an environment within a build directory which will correctly compile your new package for your host (or, alternatively, whatever host you specify to @code{configure}). @ifinfo For further background on this topic, see @ref{Some Basic Terms, , Apologia Configure, cfg-paper, On Configuring Development Tools}, by K. Richard Pixley. @end ifinfo @iftex For further background on this topic, see @cite{On Configuring Development Tools} by K. Richard Pixley. @end iftex Use @code{configure} to set for the build process: @itemize @bullet @item correct values for certain variables; @item which type of host you wish to configure a given package for (@pxref{Host, , Host}); @item where you want to install this package (by using @samp{prefix}, @samp{exec-prefix} and @samp{program-prefix}; @pxref{Install details, , Full descriptions of all installation directories}); @item optionally, which type of machine you wish to @dfn{target} this package's output to (@pxref{Target, , Target}); @item which other @sc{gnu} packages are already installed and available to this particular build (by using the @samp{--with-@var{package}} option; @pxref{Invoking configure, , Invoking @code{configure}}); @item where to place temporary files (by using the @samp{--tmpdir=@var{dir}} option; @pxref{Invoking configure, , Invoking @code{configure}}); @item whether to recur in subdirectories (changeable through the @w{@samp{--norecursion}} option; @pxref{Invoking configure, , Invoking @code{configure}}). @end itemize @code{configure} uses a few other files to complete its tasks. These are discussed in detail where noted. @table @code @cindex Other files @item configure.in @cindex @code{configure.in} definition Input file for @code{configure}. Shell script fragments reside here. @xref{configure.in, , The @code{configure.in} input file}. @item Makefile.in @cindex @code{Makefile.in} definition Template which @code{configure} uses to build a file called @file{Makefile} in the @dfn{build directory}. @xref{Makefile generation, , @code{Makefile} generation}. @item config.sub @cindex @code{config.sub} definition Shell script used by @code{configure} to expand referents to the @var{hosttype} argument into a single specification of the form @w{@var{cpu-vendor-os}}. For instance, on the command line you can specify @cindex Example session @example eg$ ./configure sun4 @end example @noindent to configure for a Sun SPARCstation running SunOS 4.x. @code{configure} consults @code{config.sub} to find that the three-part specification for this is @example sparc-sun-sunos4.1.1 @end example @noindent which notes the @var{cpu} as @samp{sparc}, the @var{manufacturer} as @samp{sun} (Sun Microsystems), and the @var{os} (operating system) as @samp{sunos4.1.1}, the SunOS 4.1.1 release. @xref{configure variables, , Variables available to @code{configure}}. @item config.guess @cindex @code{config.guess} definition If you do not put the @var{hosttype} argument on the command line, @code{configure} uses the @code{config.guess} shell script to make an analysis of your machine (it assumes that you wish to configure your software for the type of machine on which you are running). The output of @code{config.guess} is a three-part identifier as described above. @item config.status @cindex @code{config.status} definition The final step in configuring a directory is to create a shell script, @code{config.status}. The main purpose of this file is to allow the @file{Makefile} for the current directory to rebuild itself, if necessary. @xref{config.status, , @code{config.status}}. @item config/* @cindex @code{config/} subdirectory @code{configure} uses three types of @file{Makefile} @dfn{fragments}, which reside in the directory @file{@var{srcdir}/config/}. @xref{Makefile fragments, , Adding information about local conventions}. @end table @menu * Build variables:: Variable-spaghetti made simple * Build directories:: Build directories described well * Makefile generation:: To build a Makefile * config.guess:: Be vewwy quiet, I'm hunting system information * config.status:: To rebuild a Makefile @end menu @c --------------------------------------------------------------------- @node Build variables @subsection Build variables @cindex Build variables @cindex Cygnus Support Developer's Kit @cindex Variables There are several variables in the build process which you can control through build programs such as @code{make}. These include machine definitions, local conventions, installation locations, locations for temporary files, etc. This data is accessible through certain variables which are configurable in the build process; we refer to them as @dfn{build variables}. For lists of build variables which you can affect by using @code{configure}, see @ref{configure variables, , Variables available to @code{configure.in}}, and @ref{Install details, , Full descriptions of all installation directories}. Generally, build variables, which are used by the @file{Makefile} to determine various aspects of the build and installation processes, are changeable with command-line options to @code{configure}. In most large suites of programs, like the Cygnus Support Developer's Kit, the individual programs reside in several subdirectories of a single source code ``tree''. All of these subdirectories need to be configured with information relative to the @dfn{build directory}, which is not known until @code{configure} is run. Unless specified otherwise, @code{configure} recursively configures every subdirectory in the source tree. Build variables are passed from @code{configure} directly into the @file{Makefile}, and use the same names (except that dashes are transformed into underbars; for example, when you specify the option @samp{--exec-prefix} on the command line, the @file{Makefile} variable @samp{exec_prefix} is set). In other words, if you specify @cindex Example session @example eg$ ./configure --prefix=/usr/gnu/local @dots{} @var{hosttype} @end example @noindent on the command line, @code{configure} sets an variable called @samp{prefix} to @samp{/usr/gnu/local}, and passes this into the @file{Makefile} in the same manner. After this command, each @file{Makefile} generated by @code{configure} will contain a line that reads: @example prefix = /usr/gnu/local @end example For a list of the @file{Makefile} variables @code{configure} can change, and instructions on how to change them, see @ref{configure variables, , Variables available to @code{configure.in}}, and @ref{Invoking configure, , Invoking @code{configure}}. @c --------------------------------------------------------------------- @node Build directories @subsection Build directories @cindex Build directories @cindex Object directories @cindex Building for multiple hosts @cindex Building for multiple targets By default, @code{configure} builds a @file{Makefile} and symbolic links in the same directory as the source files. This default works for many cases, but it has limitations. For instance, using this approach, you can only build object code for one host at a time. We refer to each directory where @code{configure} builds a @file{Makefile} as a @dfn{build directory}. The build directory for any given build is always the directory from which you call @code{configure}, or @file{.} relative to your prompt. The default @dfn{source directory}, the place @code{configure} looks to find source code, is also @file{.}. For instance, if we have a directory @file{/gnu-stuff/src/} that is the top branch of a tree of @sc{gnu} source code we wish to configure, then the program we will use to configure this code is @file{/gnu-stuff/src/configure}, as follows. (Assume for the sake of argument that our machine is a sun4.) @cindex Example session @smallexample @group eg$ cd /gnu-stuff/src eg$ ./configure sun4 Created "Makefile" in /gnu-stuff/src eg$ @end group @end smallexample We just configured the code in @file{/gnu-stuff/src} to run on a Sun SPARCstation using SunOS 4.x by creating a @file{Makefile} in @file{/gnu-stuff/src}. By default, we also specified that when this code is built, the object code should reside in the same directory, @file{/gnu-stuff/src}. However, if we wanted to build this code for more than one host, we would be in trouble, because the new configuration would write over the old one, destroying it in the process. What we can do is to make a new @dfn{build directory} and configure from there. Running @code{configure} from the new directory will place a correct @file{Makefile} and a @file{config.status} in this new file. That is all @code{configure} does; we must run @code{make} to generate any object code. The new @file{Makefile} in @file{/gnu-stuff/sun4-obj}, created from the template file @file{/gnu-stuff/src/Makefile.in}, contains all the information needed to build the program. @cindex Example session @smallexample @group eg$ mkdir /gnu-stuff/sun4-obj eg$ cd /gnu-stuff/sun4-obj eg$ ../src/configure --srcdir=../src sun4 Created "Makefile" in /gnu-stuff/sun4-obj eg$ ls Makefile config.status eg$ make all info install install-info clean @var{compilation messages@dots{}} eg$ mkdir /gnu-stuff/solaris2 eg$ cd /gnu-stuff/solaris2 eg$ ../src/configure --srcdir=../src sol2 Created "Makefile" in /gnu-stuff/solaris2 eg$ ls Makefile config.status eg$ make all info install install-info clean @var{compilation messages@dots{}} @end group @end smallexample We can repeat this for other configurations of the same software simply by making a new build directory and reconfiguring from inside it. If you do not specify the @var{hosttype} argument, @code{configure} will attempt to figure out what kind of machine and operating system you happen to be using. @xref{config.guess, , Determining system information}. Of course, this may not always be the configuration you wish to build. @emph{Caution:} If you build more than one configuration for a single program, remember that you must also specify a different @samp{--prefix} for each configuration at configure-time. Otherwise, both configurations will be installed in the same default location (@file{/usr/local}); the configuration to be installed last would overwrite previously installed configurations. @c --------------------------------------------------------------------- @node Makefile generation @subsection @code{Makefile} generation @cindex @code{Makefile} generation Cygnus @code{configure} creates a file called @file{Makefile} in the build directory which can be used with @code{make} to automatically build a given program or package. @code{configure} also builds a @file{Makefile} for each relevant subdirectory for a given program or package (irrelevant subdirectories would be those which contain no code which needs configuring, and which therefore have no @code{configure} input file @file{configure.in} and no @file{Makefile} template @file{Makefile.in}). @xref{Running, @code{make} Invocation, How to Run @code{make}, make, GNU Make}, for details on using @code{make} to compile your source code. Each @file{Makefile} contains variables which have been configured for a specific build. These build variables are determined when @code{configure} is run. All build variables have defaults. By default, @code{configure} generates a @file{Makefile} which specifies: @cindex Default configuration @itemize @bullet @item a @dfn{native} build, which is to occur @item in the current directory, and which will be installed @item in the default installation directory (@file{/usr/local}) when the code is compiled with @code{make}. @end itemize @noindent Variables are changeable through command-line options to @code{configure} (@pxref{Invoking configure, , Invoking @code{configure}}). If you are porting a new program and intend to use @code{configure}, see @ref{Porting, , Porting with @code{configure}}, as well as @ref{Makefiles, , Writing Makefiles, make, GNU Make}, and @ref{Makefiles, , Makefile Conventions, standards, GNU Coding Standards}. @c --------------------------------------------------------------------- @node config.guess @subsection Determining system information @cindex @code{config.guess} The shell script @code{config.guess} is called when you do not specify a @var{hosttype} on the command line to @code{configure}. @code{config.guess} acquires available system information from your local machine through the shell command @code{uname}. It compares this information to a database and attempts to determine a usable three-part system identifier (known as a @dfn{triple}) to use as your @var{hosttype}. @xref{What configure really does, , What @code{configure} really does}, to see how this information is used. @emph{Note:} If you do not specify a @var{hosttype} on the command line, @code{configure} will attempt to configure your software to run on the machine you happen to be using. This may not be the configuration you desire. @c --------------------------------------------------------------------- @node config.status @subsection @code{config.status} @cindex @code{config.status} The final step in configuring a directory is to create an executable shell script, @file{config.status}. The main purpose of this file is to allow the @file{Makefile} for the current directory to rebuild itself, if necessary. It is usually run from within the @file{Makefile}. @xref{Makefile extensions, , Extensions to the @sc{gnu} coding standards}. @file{config.status} also contains a record of the @code{configure} session which created it. @c --------------------------------------------------------------------- @node configure.in @section The @code{configure.in} input file @cindex @code{configure.in} A @file{configure.in} file for Cygnus @code{configure} consists of a @dfn{per-invocation} section, followed by a @dfn{per-host} section, followed by a @dfn{per-target} section, optionally followed by a @dfn{post-target} section. Each section is a shell script fragment, which is executed by the @code{configure} shell script at an appropriate time. Values are passed among @code{configure} and the shell fragments through a set of shell variables. When each section is being interpreted by the shell, the shell's current directory is the build directory, and any files created by the section (or referred to by the section) will be relative to the build directory. To reference files in other places (such as the source directory), prepend a shell variable such as @samp{$(srcdir)/} to the desired file name. @cindex @i{per-invocation} section The beginning of the @file{configure.in} file begins the @dfn{per-invocation} section. @cindex @i{per-host} section A line beginning with @samp{# per-host:} begins the @dfn{per-host} section. @cindex @i{per-target} section A line beginning with @samp{# per-target:} begins the @dfn{per-target} section. @cindex @i{post-target} section If it exists, the @dfn{post-target} section begins with @samp{# post-target:}. @menu * configure variables:: Variables available to configure.in * Minimal:: A minimal configure.in * Declarations:: For each invocation * per-host:: Host-specific instructions * per-target:: Target-specific instructions * post-target:: Instructions to be executed after target info * Example:: An example configure.in @end menu @c --------------------------------------------------------------------- @node configure variables @subsection Variables available to @code{configure.in} @cindex @file{configure.in} interface @cindex configure variables The following variables pass information between the standard parts of @code{configure} and the shell-script fragments in @file{configure.in}: @table @code @item srctrigger @cindex @code{srctrigger} @vindex srctrigger Contains the name of a source file that is expected to live in the source directory. You must usually set this in the @dfn{per-invocation} section of @file{configure.in}. @code{configure} tests to see that this file exists. If the file does not exist, @code{configure} prints an error message. This is used as a sanity check that @file{configure.in} matches the source directory. @item srcname @cindex @code{srcname} @vindex srcname Contains the name of the source collection contained in the source directory. You must usually set this in the @dfn{per-invocation} section of @file{configure.in}. If the file named in @samp{srctrigger} does not exist, @code{configure} uses the value of @samp{srcname} when it prints the error message. @item configdirs @cindex @code{configdirs} @vindex configdirs Contains the names of any subdirectories in which @code{configure} should recurse. You must usually set this in the @dfn{per-invocation} section of @file{configure.in}. If @file{Makefile.in} contains a line starting with @samp{SUBDIRS =}, then it will be replaced with an assignment to @samp{SUBDIRS} using the value of @samp{configdirs} (if @samp{subdirs} is empty). This can be used to determine which directories to configure and build depending on the host and target configurations. @c Most other matching makefile/config vars use the same name. Why not @c this? (FIXME). @c Can we get rid of SUBDIRS-substitution? It doesn't work well with subdirs. Use @samp{configdirs} (instead of the @samp{subdirs} variable described below) if you want to be able to partition the subdirectories, or use independent @file{Makefile} fragments. Each subdirectory can be independent, and independently reconfigured. @item subdirs @cindex @code{subdirs} @vindex subdirs Contains the names of any subdirectories where @code{configure} should create a @file{Makefile} (in addition to the current directory), @emph{without} recursively running @code{configure}. Use @samp{subdirs} (instead of the @samp{configdirs} variable described above) if you want to configure all of the directories as a unit. Since there is a single invocation of @code{configure} that configures many directories, all the directories can use the same @file{Makefile} fragments, and the same @code{configure.in}. @item host @cindex @code{host} @cindex Canonical ``triple'' @vindex host Contains the full configuration name for the host (generated by the script @file{config.sub} from the name that you entered). This is a three-part name (commonly referred to as a @dfn{triple}) of the form @var{cpu}-@var{vendor}-@var{os}. There are separate variables @samp{host_cpu}, @samp{host_vendor}, and @samp{host_os} that you can use to test each of the three parts; this variable is useful, however, for error messages, and for testing combinations of the three components. @item host_cpu @vindex host_cpu Contains the first element of the canonical triple representing the host as returned by @file{config.sub}. This is occasionally used to distinguish between minor variations of a particular vendor's operating system and sometimes to determine variations in binary format between the host and the target. @item host_vendor @vindex host_vendor Contains the second element of the canonical triple representing the host as returned by @file{config.sub}. This is usually used to distinguish among the numerous variations of @emph{common} operating systems. @c "@emph{common} OS" doesn't convey much to me. Is this meant to cover @c cases like Unix, widespread but with many variations? @item host_os @vindex host_os Contains the the third element of the canonical triple representing the host as returned by @file{config.sub}. @item target @cindex @code{target} @cindex Canonical ``triple'' @vindex target Contains the full configuration name (generated by the script @file{config.sub} from the name that you entered) for the target. Like the host, this is a three-part name of the form @var{cpu}-@var{vendor}-@var{os}. There are separate variables @samp{target_cpu}, @samp{target_vendor}, and @samp{target_os} that you can use to test each of the three parts; this variable is useful, however, for error messages, and for testing combinations of the three components. @item target_cpu @vindex target_cpu Contains the first element of the canonical triple representing the target as returned by @file{config.sub}. This variable is used heavily by programs which are involved in building other programs, like the compiler, assembler, linker, etc. Most programs will not need the @samp{target} variables at all, but this one could conceivably be used to build a program, for instance, that operated on binary data files whose byte order or alignment differ from the system where the program is running. @item target_vendor @vindex target_vendor Contains the second element of the canonical triple representing the target as returned by @file{config.sub}. This is usually used to distinguish among the numerous variations of @emph{common} operating systems or object file formats. It is sometimes used to switch between different flavors of user interfaces. @c above query re "@emph{common} OS" applies here too @item target_os @vindex target_os Contains the the third element of the canonical triple representing the target as returned by @file{config.sub}. This variable is used by development tools to distinguish between subtle variations in object file formats that some vendors use across operating system releases. It might also be use to decide which libraries to build or what user interface the tool should provide. @item floating_point @cindex @code{floating_point} @cindex @code{nfp} option @vindex floating_point Set to @samp{no} if you invoked @code{configure} with the @samp{--nfp} command-line option, otherwise it is empty. This is a request to target machines with @dfn{no floating point} unit, even if the targets ordinarily have floating point units available. @item gas @cindex @code{with-gnu-as} option @vindex gas Set to @samp{true} if you invoked @code{configure} with the @w{@samp{--with-gnu-as}} command line option, otherwise it is empty. This is a request to assume that the specified @var{hosttype} machine has @sc{gnu} @code{as} available even if it ordinarily does not. @item srcdir @cindex @code{srcdir} @vindex srcdir Set to the name of the directory containing the source for this program. This will be different from @file{.} if you have specified the @samp{--srcdir=@var{dir}} option. @samp{srcdir} can indicate either an absolute path or a path relative to the build directory. @item package_makefile_frag @vindex package_makefile_frag If set in @file{configure.in}, this variable should be the name a file relative to @samp{srcdir} to be included in the resulting @file{Makefile}. If the named file does not exist, @code{configure} will print a warning message. This variable is not set by @code{configure}. @item host_makefile_frag @vindex host_makefile_frag If set in @file{configure.in}, this variable should be the name a file relative to @samp{srcdir} to be included in the resulting @file{Makefile}. If the named file does not exist, @code{configure} will print a warning message. This variable is not set by @code{configure}. @item target_makefile_frag @vindex target_makefile_frag If set in @file{configure.in}, this variable should be the name of a file, relative to @samp{srcdir}, to be included in the resulting @file{Makefile}. If the named file does not exist, @code{configure} will print a warning message. This variable is not set by @code{configure}. @item site_makefile_frag @vindex site_makefile_frag Set to a file name representing to the default @file{Makefile} fragment for this host. It may be set in @file{configure.in} to override this default. Normally @samp{site_makefile_frag} is empty, but will have a value if you specify @samp{--site=@var{site}} on the command line. @ignore -- this doesn't fit It is probably not a good idea to override this variable from @file{configure.in}, since that may defeat the @code{configure} user's intentions. @end ignore @item Makefile @vindex Makefile Set to the name of the generated @file{Makefile}. Normally this value is precisely @file{Makefile}, but some programs may want something else. @item removing @cindex @code{rm} option @vindex removing Normally empty but will be set to some non-null value if you specified @samp{--rm} on the command line. That is, if @samp{removing} is not empty, then @code{configure} is @emph{removing} a configuration rather than creating one. @item files @cindex Symbolic links @vindex files If this variable is not empty following the @dfn{per-target} section, then each word in its value will be the target of a symbolic link named in the corresponding word from the @samp{links} variable. @item links @cindex Symbolic links @vindex links If the @samp{files} variable is not empty following the @dfn{per-target} section, then @code{configure} creates symbolic links with the first word of @samp{links} pointing to the first word of @samp{files}, the second word of @samp{links} pointing to the second word of @samp{files}, and so on. @end table @c --------------------------------------------------------------------- @node Minimal @subsection A minimal @code{configure.in} @cindex Minimal @file{configure.in} example A minimal @file{configure.in} consists of four lines. @example srctrigger=foo.c srcname="source for the foo program" # per-host: # per-target: @end example The @samp{# per-host:} and @samp{# per-target:} lines divide the file into the three required sections. The @samp{srctrigger} line names a file. @code{configure} checks to see that this file exists in the source directory before configuring. If the @samp{srctrigger} file does not exist, @code{configure} uses the value of @samp{srcname} to print an error message about not finding the source. This particular example uses no links, and only the default host, target, and site-specific @file{Makefile} fragments if they exist. @c --------------------------------------------------------------------- @node Declarations @subsection For each invocation @cindex For each invocation @cindex Declarations section @cindex @i{per-invocation} section @code{configure} invokes the entire shell script fragment from the start of @file{configure.in} up to a line beginning with @w{@samp{# per-host:}} immediately after parsing command line arguments. The variables @samp{srctrigger} and @samp{srcname} @emph{must} be set here. You might also want to set the variables @samp{configdirs} and @samp{package_makefile_frag} here. @c --------------------------------------------------------------------- @node per-host @subsection Host-specific instructions @cindex Host-specific instructions @cindex @i{host} shell-script fragment @cindex @i{per-host} section The @dfn{per-host} section of @file{configure.in} starts with the line that begins with @w{@samp{# per-host:}} and ends before a line beginning with @w{@samp{# per-target:}}. @code{configure} invokes the commands in the @dfn{per-host} section when determining host-specific information. This section usually contains a big @code{case} statement using the variable @samp{host} to determine appropriate values for @samp{host_makefile_frag} and @samp{files}, although @samp{files} is not usually set here. Usually, it is set at the end of the @dfn{per-target} section after determining the names of the target specific configuration files. @c --------------------------------------------------------------------- @node per-target @subsection Target-specific instructions @cindex Target-specific instructions @cindex target shell-script fragment @cindex @i{per-target} section The @dfn{per-target} section of @file{configure.in} starts with the line that begins with @w{@samp{# per-target:}} and ends before the line that begins with @w{@samp{# post-target:}}, if there is such a line. Otherwise the @dfn{per-target} section extends to the end of the file. @code{configure} invokes the commands in the @dfn{per-target} section when determining target-specific information, and before building any files, directories, or links. This section usually contains a big @code{case} statement using the variable @samp{target} to determine appropriate values for @samp{target_makefile_frag} and @samp{files}. The last lines in the @dfn{per-target} section normally set the variables @samp{files} and @samp{links}. @c --------------------------------------------------------------------- @node post-target @subsection Instructions to be executed after target info @cindex Post-target shell-script fragment @cindex @i{post-target} section The @dfn{post-target} section is optional. If it exists, the @samp{post-target} section starts with a line beginning with @w{@samp{# Post-target:}} and extends to the end of the file. If it exists, @code{configure} invokes this section once for each target after building all files, directories, or links. This section is seldom needed, but you can use it to edit the @file{Makefile} generated by @code{configure}. @c --------------------------------------------------------------------- @node Example @subsection An example @code{configure.in} @cindex Example @file{configure.in} @cindex Sample @file{configure.in} @c @cindex @code{bison} @file{configure.in} @c this won't be the bison configure.in for long.. need better example Here is a small example of a @file{configure.in} file. @cartouche @example @group # This file is a collection of shell script fragments # used to tailor a template configure script as # appropriate for this directory. For more information, # see configure.texi. configdirs= srctrigger=warshall.c srcname="bison" # per-host: case "$@{host@}" in m88k-motorola-*) host_makefile_frag=config/mh-delta88 ;; esac # per-target: files="bison_in.hairy" links="bison.hairy" # post-target: @end group @end example @end cartouche @c --------------------------------------------------------------------- @node Install locations @section Install locations @cindex Where to install @cindex Install locations Using the default configuration, @samp{make install} creates a single tree of files, some of which are programs. The location of this tree is determined by the value of the variable @samp{prefix}. The default value of @samp{prefix} is @samp{/usr/local}. This is often correct for native tools installed on only one host. @menu * prefix:: Changing the default install directory * exec_prefix:: How to separate host independent files from host dependent files when installing for multiple hosts * Install details:: Full descriptions of all installation subdirectories @end menu @c --------------------------------------------------------------------- @node prefix @subsection Changing the default install directory @cindex Changing the install directory @cindex @code{prefix} option @vindex prefix In the default configuration, all files are installed in subdirectories of @file{/usr/local}. The location is determined by the value of the @code{configure} variable @samp{prefix}; in turn, this determines the value of the @file{Makefile} variable of the same name (@samp{prefix}). You can also set the value of the @file{Makefile} variable @samp{prefix} explicitly each time you invoke @code{make} if you are so inclined. However, because many programs have this location compiled in, you must specify the @samp{prefix} value consistently on each invocation of @code{make}, or you will end up with a broken installation. To make this easier, the value of the @code{configure} variable @samp{prefix} can be set on the command line to @code{configure} using the option @samp{--prefix=}. @c --------------------------------------------------------------------- @node exec_prefix @subsection Installing for multiple hosts @cindex Configuring for multiple hosts @cindex Sharing host-independent files @cindex Installing host-independent files @cindex The @code{exec_prefix} directory @vindex exec_prefix By default, host dependent files are installed in subdirectories of @file{$(exec_prefix)}. The location is determined by the value of the @code{configure} variable @samp{exec_prefix}, which determines the value of the @file{Makefile} variable @samp{exec_prefix}. This makes it easier to install for a single host, and simplifies changing the default location for the install tree. The default doesn't allow for multiple hosts to effectively share host independent files, however. To configure so that multiple hosts can share common files, use something like: @cindex Example session @smallexample configure @var{host1} -prefix=/usr/gnu -exec_prefix=/usr/gnu/H-host1 make all info install install-info clean configure @var{host2} -prefix=/usr/gnu -exec_prefix=/usr/gnu/H-host2 make all info install install-info @end smallexample The first line configures the source for @var{host1} to place host-specific programs in subdirectories of @file{/usr/gnu/H-@var{host1}}. The second line builds and installs all programs for @var{host1}, including both host-independent and host-specific files, as well as removing the host-specific object files from of the build directory. The third line reconfigures the source for @var{host2} to place host specific programs in subdirectories of @file{/usr/gnu/H-@var{host2}}. The fourth line builds and installs all programs for @var{host2}. Host specific files are installed in new directories, but the host independent files are installed @emph{on top of} the host independent files installed for @var{host1}. This results in a single copy of the host independent files, suitable for use by both hosts. @xref{Makefile extensions, , Extensions to the @sc{gnu} coding standards}, for more information. @c --------------------------------------------------------------------- @node Install details @subsection Full descriptions of all installation subdirectories @cindex Install details @cindex Installation subdirectories @cindex Subdirectories During any install, a number of standard directories are created. Their names are determined by @file{Makefile} variables. Some of the defaults for @file{Makefile} variables can be changed at configuration time using command line options to @code{configure}. For more information on the standard directories or the @file{Makefile} variables, please refer to @ref{Makefiles, , Makefile Conventions, standards, GNU Coding Standards}. See also @ref{Makefile extensions, , Extensions to the @sc{gnu} coding standards}. Note that @code{configure} does not create the directory indicated by the variable @samp{srcdir} at any time. @code{$(srcdir)} is not an installation directory. You can override all @file{Makefile} variables on the command line to @code{make}. (@xref{Overriding, , Overriding Variables, make, GNU Make}.) If you do so, you will need to specify the value precisely the same way for each invocation of @code{make}, or you risk ending up with a broken installation. This is because many programs have the locations of other programs or files compiled into them. If you find yourself overriding any of the variables frequently, you should consider site dependent @file{Makefile} fragments. See also @ref{Sites, , Adding site info}. During @samp{make install}, a number of standard directories are created and populated. The following @file{Makefile} variables define them. Those whose defaults are set by corresponding @code{configure} variables are marked ``@code{Makefile} and @code{configure}''. @table @code @item prefix (@code{Makefile} and @code{configure}) @cindex @code{prefix} @vindex prefix The root of the installation tree. You can set its @file{Makefile} default with the @samp{--prefix=} command line option to @code{configure} (@pxref{Invoking configure, , Invoking @code{configure}}). The default value for @samp{prefix} is @samp{/usr/local}. @item bindir @cindex @code{bindir} @vindex bindir A directory for binary programs that users can run. The default value for @samp{bindir} depends on @samp{prefix}; @samp{bindir} is normally changed only indirectly through @samp{prefix}. The default value for @samp{bindir} is @samp{$(prefix)/bin}. @item exec_prefix (@code{Makefile} and @code{configure}) @cindex @code{exec_prefix} @vindex exec_prefix A directory for host dependent files. You can specify the @file{Makefile} default value by using the @samp{--exec_prefix=} option to @code{configure}. (@xref{Invoking configure, , Invoking @code{configure}}.) The default value for @samp{exec_prefix} is @samp{$(prefix)}. @item libdir @cindex @code{libdir} @vindex libdir A directory for libraries and support programs. The default value for @samp{libdir} depends on @samp{prefix}; @samp{libdir} is normally changed only indirectly through @samp{prefix}. The default value for @samp{libdir} is @samp{$(prefix)/lib}. @item mandir @cindex @code{mandir} @vindex mandir A directory for @code{man} format documentation (``man pages''). The default value for @samp{mandir} depends on @samp{prefix}; @samp{mandir} is normally changed only indirectly through @samp{prefix}. The default value for @samp{mandir} is @samp{$(prefix)/man}. @item man@var{N}dir @cindex @code{man@var{N}dir} @vindex man@var{N}dir These are eight variables named @samp{man1dir}, @samp{man2dir}, etc. They name the specific directories for each man page section. For example, @samp{man1dir} by default holds the filename @file{$(mandir)/man1}; this directory contains @file{emacs.1} (the man page for @sc{gnu} Emacs). Similarly, @samp{man5dir} contains the value @file{$(mandir)/man5}, indicating the directory which holds @file{rcsfile.5} (the man page describing the @code{rcs} data file format). The default value for any of the @samp{man@var{N}dir} variables depends indirectly on @samp{prefix}, and is normally changed only through @samp{prefix}. The default value for @samp{man@var{N}dir} is @samp{$(mandir)/man@var{N}}. @item man@var{N}ext @cindex @code{man@var{N}ext} @vindex man@var{N}ext @emph{Not supported by Cygnus @code{configure}}. The @cite{@sc{gnu} Coding Standards} do not call for @samp{man1ext}, @samp{man2ext}, so the intended use for @code{manext} is apparently not parallel to @samp{mandir}. Its use is not clear. (See also @ref{Makefile extensions, , Extensions to the @sc{gnu} coding standards}.) @item infodir @cindex @code{infodir} @vindex infodir A directory for @code{info} format documentation. The default value for @samp{infodir} depends indirectly on @samp{prefix}; @samp{infodir} is normally changed only through @samp{prefix}. The default value for @samp{infodir} is @samp{$(prefix)/info}. @item docdir @cindex @code{docdir} @vindex docdir A directory for any documentation that is in a format other than those used by @code{info} or @code{man}. The default value for @samp{docdir} depends indirectly on @samp{prefix}; @samp{docdir} is normally changed only through @samp{prefix}. The default value for @samp{docdir} is @samp{$(datadir)/doc}. @emph{This variable is an extension to the @sc{gnu} coding standards}. (See also @ref{Makefile extensions, , Extensions to the @sc{gnu} coding standards}.) @item includedir @cindex @code{includedir} @vindex includedir A directory for the header files accompanying the libraries installed in @samp{libdir}. The default value for @samp{includedir} depends on @samp{prefix}; @samp{includedir} is normally changed only indirectly through @samp{prefix}. The default value for @samp{includedir} is @samp{$(prefix)/include}. @end table @c --------------------------------------------------------------------- @node Host @section Host @cindex Host The arguments to @code{configure} are @dfn{hosttypes}. By @dfn{hosttype} we mean the @dfn{environment} in which the source will be compiled. This need not necessarily be the same as the physical machine involved, although it usually is. For example, if some obscure machine had the @sc{gnu} @code{POSIX} emulation libraries available, it would be possible to configure most @sc{gnu} source for a @code{POSIX} system and build it on the obscure host. For more on this topic, see @ref{Host Environments, On Configuring Development Tools, Host Environments, cfg-paper, On Configuring Development Tools}. @c --------------------------------------------------------------------- @node Target @section Target @cindex Target For building native development tools, or most of the other @sc{gnu} tools, you need not worry about the target. The @dfn{target} of a configuration defaults to the same as the @dfn{host}. For building cross development tools, please see @ref{Building Development Environments, On Configuring Development Tools, Building Development Environments, cfg-paper, On Configuring Development Tools}. @c --------------------------------------------------------------------- @node Makefile fragments @section Adding information about local conventions @cindex @code{Makefile} fragments @cindex Local conventions @cindex Adding local info @cindex Adding site info If you find that a tool does not get configured to your liking, or if @code{configure}'s conventions differ from your local conventions, you should probably consider @dfn{site-specific @file{Makefile} fragments}. See also @ref{Sites, , Adding site info}. These are probably not the right choice for options that can be set from the @code{configure} command line or for differences that are host or target dependent. Cygnus @code{configure} uses three types of @file{Makefile} fragments. In a generated @file{Makefile} they appear in the order: @dfn{target fragment}, @dfn{host fragment}, and @dfn{site fragment}. This allows host fragments to override target fragments, and site fragments to override both. Host-specific @file{Makefile} fragments conventionally reside in the @file{./config/} subdirectory with names of the form @file{mh-@var{hosttype}}. They are used for hosts that require odd options to the standard compiler and for compile time options based on the host configuration. Target-specific @file{Makefile} fragments conventionally reside in the @file{./config/} subdirectory with names of the form @file{mt-@var{target}}. They are used for target dependent compile time options. Site specific @file{Makefile} fragments conventionally reside in the @file{./config/} subdirectory with names of the form @file{ms-@var{site}}. They are used to override host- and target-independent compile time options. Note that you can also override these options on the @code{make} invocation line. @c --------------------------------------------------------------------- @node Makefile extensions @section Extensions to the @sc{gnu} coding standards @cindex @code{Makefile} extensions @cindex Cygnus extensions @cindex Coding standards extensions The following additions to the @sc{gnu} coding standards are required for Cygnus @code{configure} to work properly. @itemize @bullet @item The @file{Makefile} must contain exactly one line starting with @samp{####}. This line should follow any default macro definitions but precede any rules. Host, target, and site-specific @file{Makefile} fragments will be inserted immediately after this line. If the line is missing, the fragments will not be inserted. @item Cygnus adds the following targets to each @file{Makefile}. Their existence is not required for Cygnus @code{configure}, but they are documented here for completeness. @table @code @kindex info @item info Build all info files from texinfo source. @kindex install-info @item install-info Install all info files. @kindex clean-info @item clean-info Remove all info files and any intermediate files that can be generated from texinfo source. @kindex Makefile @item Makefile Calls @code{./config.status} to rebuild the @file{Makefile} in this directory. @end table @item The following @file{Makefile} targets have revised semantics: @table @code @kindex install @item install Should @emph{not} depend on the target @samp{all}. If the program is not already built, @samp{make install} should fail. This allows you to install programs even when @code{make} would otherwise determine them to be out of date. This can happen, for example, when the result of a @samp{make all} is transported via tape to another machine for installation. @kindex clean @item clean Should remove any file that can be regenerated by the @file{Makefile}, excepting only the @file{Makefile} itself, and any links created by @code{configure}. That is, @code{make all clean} should return all directories to their original condition. If this is not done, then the command sequence @cindex Example session @example configure @var{host1} ; make all install clean ; configure @var{host2} ; make all install @end example @noindent will fail because of intermediate files intended for @var{host1}. @end table @item Cygnus adds the following macros to all @file{Makefile.in} files, but you are not required to use them to run Cygnus @code{configure}. @table @code @kindex docdir @item docdir The directory in which to install any documentation that is not either a @code{man} page or an @code{info} file. For @code{man} pages, see @samp{mandir}; for @code{info}, see @samp{infodir}. @kindex includedir @item includedir The directory in which to install any header files that should be made available to users. This is distinct from the @code{gcc} include directory, which is intended for @code{gcc} only. Files in @samp{includedir} may be used by @code{cc} as well. @end table @item The following macros have revised semantics. Most of them describe installation directories; see also @ref{Install details, , Full description of all installation subdirectories}. @table @code @kindex datadir @item datadir is used for host independent data files. @kindex mandir @item mandir The default path for @samp{mandir} depends on @samp{prefix}. @kindex infodir @item infodir The default path for @samp{infodir} depends on @samp{prefix}. @kindex BISON @item BISON is assumed to have a @code{yacc} calling convention. To use @sc{gnu} @code{bison}, use @samp{BISON=bison -y}. @end table @item Each Cygnus @file{Makefile} also conforms to one additional restriction: When libraries are installed, the line containing the call to @samp{INSTALL_DATA} should always be followed by a line containing a call to @samp{RANLIB} on the installed library. This is to accommodate systems that use @code{ranlib}. Systems that do not use @code{ranlib} can set @samp{RANLIB} to ``@code{echo}'' in a host specific @file{Makefile} fragment. @end itemize @c ======================================================================== @node Porting @chapter Porting with @code{configure} @cindex Porting with @code{configure} This section explains how to add programs, host and target configuration names, and site-specific information to Cygnus @code{configure}. @menu * Programs:: Adding configure to new programs * Hosts and targets:: Adding hosts and targets * Sites:: Adding site info @end menu @c --------------------------------------------------------------------- @node Programs @section Adding @code{configure} to new programs @cindex Adding @code{configure} to new programs If you are writing a new program, you probably shouldn't worry about porting or configuration issues until it is running reasonably on some host. Then refer back to this section. If your program currently has a @code{configure} script that meets the @sc{gnu} standards (@pxref{Configuration, , How Configuration Should Work, standards, GNU Coding Standards}, please do not add Cygnus @code{configure}. It should be possible to add this program without change to a Cygnus @code{configure} style source tree. @cindex @code{autoconf} If the program is not target dependent, please consider using @code{autoconf} instead of Cygnus @code{configure}. @code{autoconf} is available from the Free Software Foundation; it is a program which generates an executable shell script called @file{configure} by automatically finding information on the system to be configured on and embedding this information in the shell script. @file{configure} scripts generated by @code{autoconf} require no arguments, and accept the same options as Cygnus @code{configure}. For detailed instructions on using @code{autoconf}, see @ref{Making configure Scripts, , How to organize and produce Autoconf scripts, autoconf, Autoconf}. To add Cygnus @code{configure} to an existing program, do the following: @table @bullet @item Make sure the @file{Makefile} conforms to the @sc{gnu} standard The coding standard for writing a @sc{gnu} @file{Makefile} is described in @ref{Makefiles, , Makefile Conventions, standards, GNU Coding Standards}. For technical information on writing a @file{Makefile}, see @ref{Makefiles, , Writing Makefiles, make, GNU Make}. @item Add Cygnus extensions to the @file{Makefile} These are described in @ref{Makefile extensions, , Extensions to the @sc{gnu} coding standards}. @item Collect package specific definitions in a single file Many packages are best configured using a common @file{Makefile} fragment which is included by all of the makefiles in the different directories of the package. In order to accomplish this, set the variable @samp{package_makefile_fragment} to the name of the file. It will be inserted into the final @file{Makefile} before the target-specific fragment. @item Move host support from @file{Makefile} to fragments This usually involves finding sections of the @file{Makefile} that say things like ``uncomment these lines for host @var{hosttype}'' and moving them to a new file called @file{./config/mh-@var{hosttype}}. For more information, see @ref{Hosts and targets, , Adding hosts and targets}. @item Choose defaults If the program has compile-time options that determine the way the program should behave, choose reasonable defaults and make these @file{Makefile} variables. Be sure the variables are assigned their default values before the @samp{####} line so that site-specific @file{Makefile} fragments can override them (@pxref{Makefile extensions, , Extensions to the @sc{gnu} coding standards}). @item Locate configuration files If there is configuration information in header files or source files, separate it in such a way that the files have generic names. Then move the specific instances of those files into the @file{./config/} subdirectory. @item Separate host and target information Some programs already have this information separated. If yours does not, you will need to separate these two kinds of configuration information. @dfn{Host specific} information is the information needed to compile the program. @dfn{Target specific} information is information on the format of data files that the program will read or write. This information should live in separate files in the @file{./config/} subdirectory with names that reflect the configuration for which they are intended. At this point you might skip this step and simply move on. If you do, you should end up with a program that can be configured only to build @dfn{native} tools, that is, tools for which the host system is also the target system. Later, you could attempt to build a cross tool and separate out the target-specific information by figuring out what went wrong. This is often simpler than combing through all of the source code. @item Write @code{configure.in} Usually this involves writing shell script fragments to map from canonical configuration names into the names of the configuration files. These files will then be linked at configure time from the specific instances of those files in @file{./config} to files in the build directory with more generic names. (See also @ref{Build directories, , Build directories}.) The format of @file{configure.in} is described in @ref{configure.in, , The @code{configure.in} input file}. @item Rename @file{Makefile} to @file{Makefile.in} @end table At this point you should have a program that can be configured using Cygnus @code{configure}. @c --------------------------------------------------------------------- @node Hosts and targets @section Adding hosts and targets @cindex Adding hosts and targets @cindex Hosts and targets To add a host or target to a program that already uses Cygnus @code{configure}, do the following. @itemize @bullet @item Make sure the new configuration name is represented in @file{config.sub}. If not, add it. For more details, see the comments in the shell script @file{config.sub}. @item If you are adding a host configuration, look in @file{configure.in}, in the @dfn{per-host} section. Make sure that your configuration name is represented in the mapping from host configuration names to configuration files. If not, add it. Also see @ref{configure.in, , The @code{configure.in} input file}. @item If you are adding a target configuration, look in @file{configure.in}, in the @dfn{per-target} section. Make sure that your configuration name is represented in the mapping from target configuration names to configuration files. If not, add it. Also see @ref{configure.in, , The @code{configure.in} input file}. @item Look in @file{configure.in} for the variables @samp{files}, @samp{links}, @samp{host_makefile_frag}, and @samp{target_makefile_frag}. The values assigned to these variables are the names of the configuration files, (relative to @samp{srcdir}) that the program uses. Make sure that copies of the files exist for your host. If not, create them. See also @ref{configure variables, , Variables available to @code{configure.in}}. @end itemize This should be enough to @code{configure} for a new host or target configuration name. Getting the program to compile and run properly represents the hardest work of any port. @c --------------------------------------------------------------------- @node Sites @section Adding site info @cindex Sites @cindex Adding site info If some of the @file{Makefile} defaults are not right for your site, you can build site-specific @file{Makefile} fragments. To do this, do the following. @itemize @bullet @item Choose a name for your site. It must currently be less than eleven characters. @item If the program source does not have a @file{./config/} subdirectory, create it. @item Create a file called @file{./config/ms-@var{site}} where @var{site} is the name of your site. In it, set whatever @file{Makefile} variables you need to override to match your site's conventions. @item Configure the program with: @cindex Example session @example configure @dots{} --site=@var{site} @end example @end itemize @c --------------------------------------------------------------------- @node Variables Index @unnumbered Variable Index @printindex vr @page @c --------------------------------------------------------------------- @node Concept Index @unnumbered Concept Index @printindex cp @contents @bye @c Local Variables: @c fill-column: 79 @c outline-regexp: "@chap" @c End: @c (setq outline-regexp "@chapt\\\|@unnum\\\|@setf\\\|@conte\\\|@sectio\\\|@subsect\\\|@itemize\\\|@defvar{") gdb-4.13/etc/standards.texi 666 34562 1752 210341 5556101203 14224 0ustar fnfcygnus\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename standards.info @settitle GNU Coding Standards @c UPDATE THIS DATE WHENEVER YOU MAKE CHANGES! @set lastupdate 28 March 1994 @c %**end of header @ifinfo @format START-INFO-DIR-ENTRY * Standards: (standards). GNU coding standards. END-INFO-DIR-ENTRY @end format @end ifinfo @setchapternewpage off @ifinfo GNU Coding Standards Copyright (C) 1992, 1993, 1994 Free Software Foundation Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. @ignore Permission is granted to process this file through TeX and print the results, provided the printed document carries copying permission notice identical to this one except for the removal of this paragraph (this paragraph not being relevant to the printed manual). @end ignore Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by the Free Software Foundation. @end ifinfo @titlepage @title GNU Coding Standards @author Richard Stallman @author last updated @value{lastupdate} @page @vskip 0pt plus 1filll Copyright @copyright{} 1992, 1993 Free Software Foundation Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this manual under the conditions for verbatim copying, provided that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this manual into another language, under the above conditions for modified versions, except that this permission notice may be stated in a translation approved by Free Software Foundation. @end titlepage @ifinfo @node Top, Reading Non-Free Code, (dir), (dir) @top Version Last updated @value{lastupdate}. @end ifinfo @menu * Reading Non-Free Code:: Referring to Proprietary Programs * Contributions:: Accepting Contributions * Change Logs:: Recording Changes * Compatibility:: Compatibility with Other Implementations * Makefile Conventions:: Makefile Conventions * Configuration:: How Configuration Should Work * Source Language:: Using Languages Other Than C * Formatting:: Formatting Your Source Code * Comments:: Commenting Your Work * Syntactic Conventions:: Clean Use of C Constructs * Names:: Naming Variables and Functions * Using Extensions:: Using Non-standard Features * System Functions:: Portability and ``standard'' library functions * Semantics:: Program Behavior for All Programs * Errors:: Formatting Error Messages * Libraries:: Library Behavior * Portability:: Portability As It Applies to GNU * User Interfaces:: Standards for Command Line Interfaces * Documentation:: Documenting Programs * Releases:: Making Releases @end menu @node Reading Non-Free Code @chapter Referring to Proprietary Programs Don't in any circumstances refer to Unix source code for or during your work on GNU! (Or to any other proprietary programs.) If you have a vague recollection of the internals of a Unix program, this does not absolutely mean you can't write an imitation of it, but do try to organize the imitation internally along different lines, because this is likely to make the details of the Unix version irrelevant and dissimilar to your results. For example, Unix utilities were generally optimized to minimize memory use; if you go for speed instead, your program will be very different. You could keep the entire input file in core and scan it there instead of using stdio. Use a smarter algorithm discovered more recently than the Unix program. Eliminate use of temporary files. Do it in one pass instead of two (we did this in the assembler). Or, on the contrary, emphasize simplicity instead of speed. For some applications, the speed of today's computers makes simpler algorithms adequate. Or go for generality. For example, Unix programs often have static tables or fixed-size strings, which make for arbitrary limits; use dynamic allocation instead. Make sure your program handles NULs and other funny characters in the input files. Add a programming language for extensibility and write part of the program in that language. Or turn some parts of the program into independently usable libraries. Or use a simple garbage collector instead of tracking precisely when to free memory, or use a new GNU facility such as obstacks. @node Contributions @chapter Accepting Contributions If someone else sends you a piece of code to add to the program you are working on, we need legal papers to use it---the same sort of legal papers we will need to get from you. @emph{Each} significant contributor to a program must sign some sort of legal papers in order for us to have clear title to the program. The main author alone is not enough. So, before adding in any contributions from other people, tell us so we can arrange to get the papers. Then wait until we tell you that we have received the signed papers, before you actually use the contribution. This applies both before you release the program and afterward. If you receive diffs to fix a bug, and they make significant change, we need legal papers for it. You don't need papers for changes of a few lines here or there, since they are not significant for copyright purposes. Also, you don't need papers if all you get from the suggestion is some ideas, not actual code which you use. For example, if you write a different solution to the problem, you don't need to get papers. I know this is frustrating; it's frustrating for us as well. But if you don't wait, you are going out on a limb---for example, what if the contributor's employer won't sign a disclaimer? You might have to take that code out again! The very worst thing is if you forget to tell us about the other contributor. We could be very embarrassed in court some day as a result. @node Change Logs @chapter Change Logs Keep a change log for each directory, describing the changes made to source files in that directory. The purpose of this is so that people investigating bugs in the future will know about the changes that might have introduced the bug. Often a new bug can be found by looking at what was recently changed. More importantly, change logs can help eliminate conceptual inconsistencies between different parts of a program; they can give you a history of how the conflicting concepts arose. Use the Emacs command @kbd{M-x add-change} to start a new entry in the change log. An entry should have an asterisk, the name of the changed file, and then in parentheses the name of the changed functions, variables or whatever, followed by a colon. Then describe the changes you made to that function or variable. Separate unrelated entries with blank lines. When two entries represent parts of the same change, so that they work together, then don't put blank lines between them. Then you can omit the file name and the asterisk when successive entries are in the same file. Here are some examples: @example * register.el (insert-register): Return nil. (jump-to-register): Likewise. * sort.el (sort-subr): Return nil. * tex-mode.el (tex-bibtex-file, tex-file, tex-region): Restart the tex shell if process is gone or stopped. (tex-shell-running): New function. * expr.c (store_one_arg): Round size up for move_block_to_reg. (expand_call): Round up when emitting USE insns. * stmt.c (assign_parms): Round size up for move_block_from_reg. @end example It's important to name the changed function or variable in full. Don't abbreviate them; don't combine them. Subsequent maintainers will often search for a function name to find all the change log entries that pertain to it; if you abbreviate the name, they won't find it when they search. For example, some people are tempted to abbreviate groups of function names by writing @samp{* register.el (@{insert,jump-to@}-register)}; this is not a good idea, since searching for @code{jump-to-register} or @code{insert-register} would not find the entry. There's no need to describe the full purpose of the changes or how they work together. It is better to put such explanations in comments in the code. That's why just ``New function'' is enough; there is a comment with the function in the source to explain what it does. However, sometimes it is useful to write one line to describe the overall purpose of a large batch of changes. You can think of the change log as a conceptual ``undo list'' which explains how earlier versions were different from the current version. People can see the current version; they don't need the change log to tell them what is in it. What they want from a change log is a clear explanation of how the earlier version differed. When you change the calling sequence of a function in a simple fashion, and you change all the callers of the function, there is no need to make individual entries for all the callers. Just write in the entry for the function being called, ``All callers changed.'' When you change just comments or doc strings, it is enough to write an entry for the file, without mentioning the functions. Write just, ``Doc fix.'' There's no need to keep a change log for documentation files. This is because documentation is not susceptible to bugs that are hard to fix. Documentation does not consist of parts that must interact in a precisely engineered fashion; to correct an error, you need not know the history of the erroneous passage. @node Compatibility @chapter Compatibility with Other Implementations With certain exceptions, utility programs and libraries for GNU should be upward compatible with those in Berkeley Unix, and upward compatible with @sc{ANSI} C if @sc{ANSI} C specifies their behavior, and upward compatible with @sc{POSIX} if @sc{POSIX} specifies their behavior. When these standards conflict, it is useful to offer compatibility modes for each of them. @sc{ANSI} C and @sc{POSIX} prohibit many kinds of extensions. Feel free to make the extensions anyway, and include a @samp{--ansi} or @samp{--compatible} option to turn them off. However, if the extension has a significant chance of breaking any real programs or scripts, then it is not really upward compatible. Try to redesign its interface. Many GNU programs suppress extensions that conflict with POSIX if the environment variable @code{POSIXLY_CORRECT} is defined (even if it is defined with a null value). Please make your program recognize this variable if appropriate. When a feature is used only by users (not by programs or command files), and it is done poorly in Unix, feel free to replace it completely with something totally different and better. (For example, vi is replaced with Emacs.) But it is nice to offer a compatible feature as well. (There is a free vi clone, so we offer it.) Additional useful features not in Berkeley Unix are welcome. Additional programs with no counterpart in Unix may be useful, but our first priority is usually to duplicate what Unix already has. @comment The makefile standards are in a separate file that is also @comment included by make.texinfo. Done by roland@gnu.ai.mit.edu on 1/6/93. @include make-stds.texi @node Configuration @chapter How Configuration Should Work Each GNU distribution should come with a shell script named @code{configure}. This script is given arguments which describe the kind of machine and system you want to compile the program for. The @code{configure} script must record the configuration options so that they affect compilation. One way to do this is to make a link from a standard name such as @file{config.h} to the proper configuration file for the chosen system. If you use this technique, the distribution should @emph{not} contain a file named @file{config.h}. This is so that people won't be able to build the program without configuring it first. Another thing that @code{configure} can do is to edit the Makefile. If you do this, the distribution should @emph{not} contain a file named @file{Makefile}. Instead, include a file @file{Makefile.in} which contains the input used for editing. Once again, this is so that people won't be able to build the program without configuring it first. If @code{configure} does write the @file{Makefile}, then @file{Makefile} should have a target named @file{Makefile} which causes @code{configure} to be rerun, setting up the same configuration that was set up last time. The files that @code{configure} reads should be listed as dependencies of @file{Makefile}. All the files which are output from the @code{configure} script should have comments at the beginning explaining that they were generated automatically using @code{configure}. This is so that users won't think of trying to edit them by hand. The @code{configure} script should write a file named @file{config.status} which describes which configuration options were specified when the program was last configured. This file should be a shell script which, if run, will recreate the same configuration. The @code{configure} script should accept an option of the form @samp{--srcdir=@var{dirname}} to specify the directory where sources are found (if it is not the current directory). This makes it possible to build the program in a separate directory, so that the actual source directory is not modified. If the user does not specify @samp{--srcdir}, then @code{configure} should check both @file{.} and @file{..} to see if it can find the sources. If it finds the sources in one of these places, it should use them from there. Otherwise, it should report that it cannot find the sources, and should exit with nonzero status. Usually the easy way to support @samp{--srcdir} is by editing a definition of @code{VPATH} into the Makefile. Some rules may need to refer explicitly to the specified source directory. To make this possible, @code{configure} can add to the Makefile a variable named @code{srcdir} whose value is precisely the specified directory. The @code{configure} script should also take an argument which specifies the type of system to build the program for. This argument should look like this: @example @var{cpu}-@var{company}-@var{system} @end example For example, a Sun 3 might be @samp{m68k-sun-sunos4.1}. The @code{configure} script needs to be able to decode all plausible alternatives for how to describe a machine. Thus, @samp{sun3-sunos4.1} would be a valid alias. So would @samp{sun3-bsd4.2}, since SunOS is basically @sc{BSD} and no other @sc{BSD} system is used on a Sun. For many programs, @samp{vax-dec-ultrix} would be an alias for @samp{vax-dec-bsd}, simply because the differences between Ultrix and @sc{BSD} are rarely noticeable, but a few programs might need to distinguish them. There is a shell script called @file{config.sub} that you can use as a subroutine to validate system types and canonicalize aliases. Other options are permitted to specify in more detail the software or hardware present on the machine, and include or exclude optional parts of the package: @table @samp @item --enable-@var{feature}@r{[}=@var{parameter}@r{]} Configure the package to build and install an optional user-level facility called @var{feature}. This allows users to choose which optional features to include. Giving an optional @var{parameter} of @samp{no} should omit @var{feature}, if it is built by default. No @samp{--enable} option should @strong{ever} cause one feature to replace another. No @samp{--enable} option should ever substitute one useful behavior for another useful behavior. The only proper use for @samp{--enable} is for questions of whether to build part of the program or exclude it. @item --with-@var{package} @c @r{[}=@var{parameter}@r{]} The package @var{package} will be installed, so configure this package to work with @var{package}. @c Giving an optional @var{parameter} of @c @samp{no} should omit @var{package}, if it is used by default. Possible values of @var{package} include @samp{x}, @samp{x-toolkit}, @samp{gnu-as} (or @samp{gas}), @samp{gnu-ld}, @samp{gnu-libc}, and @samp{gdb}. Do not use a @samp{--with} option to specify the file name to use to find certain files. That is outside the scope of what @samp{--with} options are for. @item --nfp The target machine has no floating point processor. @item --gas The target machine assembler is GAS, the GNU assembler. This is obsolete; users should use @samp{--with-gnu-as} instead. @item --x The target machine has the X Window System installed. This is obsolete; users should use @samp{--with-x} instead. @end table All @code{configure} scripts should accept all of these ``detail'' options, whether or not they make any difference to the particular package at hand. In particular, they should accept any option that starts with @samp{--with-} or @samp{--enable-}. This is so users will be able to configure an entire GNU source tree at once with a single set of options. You will note that the categories @samp{--with-} and @samp{--enable-} are narrow: they @strong{do not} provide a place for any sort of option you might think of. That is deliberate. We want to limit the possible configuration options in GNU software. We do not want GNU programs to have idiosyncratic configuration options. Packages that perform part of compilation may support cross-compilation. In such a case, the host and target machines for the program may be different. The @code{configure} script should normally treat the specified type of system as both the host and the target, thus producing a program which works for the same type of machine that it runs on. The way to build a cross-compiler, cross-assembler, or what have you, is to specify the option @samp{--host=@var{hosttype}} when running @code{configure}. This specifies the host system without changing the type of target system. The syntax for @var{hosttype} is the same as described above. Bootstrapping a cross-compiler requires compiling it on a machine other than the host it will run on. Compilation packages accept a configuration option @samp{--build=@var{hosttype}} for specifying the configuration on which you will compile them, in case that is different from the host. Programs for which cross-operation is not meaningful need not accept the @samp{--host} option, because configuring an entire operating system for cross-operation is not a meaningful thing. Some programs have ways of configuring themselves automatically. If your program is set up to do this, your @code{configure} script can simply ignore most of its arguments. @node Source Language @chapter Using Languages Other Than C Using a language other than C is like using a non-standard feature: it will cause trouble for users. Even if GCC supports the other language, users may find it inconvenient to have to install the compiler for that other language in order to build your program. So please write in C. There are three exceptions for this rule: @itemize @bullet @item It is okay to use a special language if the same program contains an interpreter for that language. Thus, it is not a problem that GNU Emacs contains code written in Emacs Lisp, because it comes with a Lisp interpreter. @item It is okay to use another language in a tool specifically intended for use with that language. This is okay because the only people who want to build the tool will be those who have installed the other language anyway. @item If an application is not of extremely widespread interest, then perhaps it's not important if the application is inconvenient to install. @end itemize @node Formatting @chapter Formatting Your Source Code It is important to put the open-brace that starts the body of a C function in column zero, and avoid putting any other open-brace or open-parenthesis or open-bracket in column zero. Several tools look for open-braces in column zero to find the beginnings of C functions. These tools will not work on code not formatted that way. It is also important for function definitions to start the name of the function in column zero. This helps people to search for function definitions, and may also help certain tools recognize them. Thus, the proper format is this: @example static char * concat (s1, s2) /* Name starts in column zero here */ char *s1, *s2; @{ /* Open brace in column zero here */ @dots{} @} @end example @noindent or, if you want to use @sc{ANSI} C, format the definition like this: @example static char * concat (char *s1, char *s2) @{ @dots{} @} @end example In @sc{ANSI} C, if the arguments don't fit nicely on one line, split it like this: @example int lots_of_args (int an_integer, long a_long, short a_short, double a_double, float a_float) @dots{} @end example For the body of the function, we prefer code formatted like this: @example if (x < foo (y, z)) haha = bar[4] + 5; else @{ while (z) @{ haha += foo (z, z); z--; @} return ++x + bar (); @} @end example We find it easier to read a program when it has spaces before the open-parentheses and after the commas. Especially after the commas. When you split an expression into multiple lines, split it before an operator, not after one. Here is the right way: @example if (foo_this_is_long && bar > win (x, y, z) && remaining_condition) @end example Try to avoid having two operators of different precedence at the same level of indentation. For example, don't write this: @example mode = (inmode[j] == VOIDmode || GET_MODE_SIZE (outmode[j]) > GET_MODE_SIZE (inmode[j]) ? outmode[j] : inmode[j]); @end example Instead, use extra parentheses so that the indentation shows the nesting: @example mode = ((inmode[j] == VOIDmode || (GET_MODE_SIZE (outmode[j]) > GET_MODE_SIZE (inmode[j]))) ? outmode[j] : inmode[j]); @end example Insert extra parentheses so that Emacs will indent the code properly. For example, the following indentation looks nice if you do it by hand, but Emacs would mess it up: @example v = rup->ru_utime.tv_sec*1000 + rup->ru_utime.tv_usec/1000 + rup->ru_stime.tv_sec*1000 + rup->ru_stime.tv_usec/1000; @end example But adding a set of parentheses solves the problem: @example v = (rup->ru_utime.tv_sec*1000 + rup->ru_utime.tv_usec/1000 + rup->ru_stime.tv_sec*1000 + rup->ru_stime.tv_usec/1000); @end example Format do-while statements like this: @example do @{ a = foo (a); @} while (a > 0); @end example Please use formfeed characters (control-L) to divide the program into pages at logical places (but not within a function). It does not matter just how long the pages are, since they do not have to fit on a printed page. The formfeeds should appear alone on lines by themselves. @node Comments @chapter Commenting Your Work Every program should start with a comment saying briefly what it is for. Example: @samp{fmt - filter for simple filling of text}. Please put a comment on each function saying what the function does, what sorts of arguments it gets, and what the possible values of arguments mean and are used for. It is not necessary to duplicate in words the meaning of the C argument declarations, if a C type is being used in its customary fashion. If there is anything nonstandard about its use (such as an argument of type @code{char *} which is really the address of the second character of a string, not the first), or any possible values that would not work the way one would expect (such as, that strings containing newlines are not guaranteed to work), be sure to say so. Also explain the significance of the return value, if there is one. Please put two spaces after the end of a sentence in your comments, so that the Emacs sentence commands will work. Also, please write complete sentences and capitalize the first word. If a lower-case identifer comes at the beginning of a sentence, don't capitalize it! Changing the spelling makes it a different identifier. If you don't like starting a sentence with a lower case letter, write the sentence differently (e.g., ``The identifier lower-case is @dots{}''). The comment on a function is much clearer if you use the argument names to speak about the argument values. The variable name itself should be lower case, but write it in upper case when you are speaking about the value rather than the variable itself. Thus, ``the inode number NODE_NUM'' rather than ``an inode''. There is usually no purpose in restating the name of the function in the comment before it, because the reader can see that for himself. There might be an exception when the comment is so long that the function itself would be off the bottom of the screen. There should be a comment on each static variable as well, like this: @example /* Nonzero means truncate lines in the display; zero means continue them. */ int truncate_lines; @end example Every @samp{#endif} should have a comment, except in the case of short conditionals (just a few lines) that are not nested. The comment should state the condition of the conditional that is ending, @emph{including its sense}. @samp{#else} should have a comment describing the condition @emph{and sense} of the code that follows. For example: @example #ifdef foo @dots{} #else /* not foo */ @dots{} #endif /* not foo */ @end example @noindent but, by contrast, write the comments this way for a @samp{#ifndef}: @example #ifndef foo @dots{} #else /* foo */ @dots{} #endif /* foo */ @end example @node Syntactic Conventions @chapter Clean Use of C Constructs Please explicitly declare all arguments to functions. Don't omit them just because they are @code{int}s. Declarations of external functions and functions to appear later in the source file should all go in one place near the beginning of the file (somewhere before the first function definition in the file), or else should go in a header file. Don't put @code{extern} declarations inside functions. It used to be common practice to use the same local variables (with names like @code{tem}) over and over for different values within one function. Instead of doing this, it is better declare a separate local variable for each distinct purpose, and give it a name which is meaningful. This not only makes programs easier to understand, it also facilitates optimization by good compilers. You can also move the declaration of each local variable into the smallest scope that includes all its uses. This makes the program even cleaner. Don't use local variables or parameters that shadow global identifiers. Don't declare multiple variables in one declaration that spans lines. Start a new declaration on each line, instead. For example, instead of this: @example int foo, bar; @end example @noindent write either this: @example int foo, bar; @end example @noindent or this: @example int foo; int bar; @end example @noindent (If they are global variables, each should have a comment preceding it anyway.) When you have an @code{if}-@code{else} statement nested in another @code{if} statement, always put braces around the @code{if}-@code{else}. Thus, never write like this: @example if (foo) if (bar) win (); else lose (); @end example @noindent always like this: @example if (foo) @{ if (bar) win (); else lose (); @} @end example If you have an @code{if} statement nested inside of an @code{else} statement, either write @code{else if} on one line, like this, @example if (foo) @dots{} else if (bar) @dots{} @end example @noindent with its @code{then}-part indented like the preceding @code{then}-part, or write the nested @code{if} within braces like this: @example if (foo) @dots{} else @{ if (bar) @dots{} @} @end example Don't declare both a structure tag and variables or typedefs in the same declaration. Instead, declare the structure tag separately and then use it to declare the variables or typedefs. Try to avoid assignments inside @code{if}-conditions. For example, don't write this: @example if ((foo = (char *) malloc (sizeof *foo)) == 0) fatal ("virtual memory exhausted"); @end example @noindent instead, write this: @example foo = (char *) malloc (sizeof *foo); if (foo == 0) fatal ("virtual memory exhausted"); @end example Don't make the program ugly to placate @code{lint}. Please don't insert any casts to @code{void}. Zero without a cast is perfectly fine as a null pointer constant. @node Names @chapter Naming Variables and Functions Please use underscores to separate words in a name, so that the Emacs word commands can be useful within them. Stick to lower case; reserve upper case for macros and @code{enum} constants, and for name-prefixes that follow a uniform convention. For example, you should use names like @code{ignore_space_change_flag}; don't use names like @code{iCantReadThis}. Variables that indicate whether command-line options have been specified should be named after the meaning of the option, not after the option-letter. A comment should state both the exact meaning of the option and its letter. For example, @example /* Ignore changes in horizontal whitespace (-b). */ int ignore_space_change_flag; @end example When you want to define names with constant integer values, use @code{enum} rather than @samp{#define}. GDB knows about enumeration constants. Use file names of 14 characters or less, to avoid creating gratuitous problems on System V. You can use the program @code{doschk} to test for this. @code{doschk} also tests for potential name conflicts if the files were loaded onto an MS-DOS file system---something you may or may not care about. @node Using Extensions @chapter Using Non-standard Features Many GNU facilities that already exist support a number of convenient extensions over the comparable Unix facilities. Whether to use these extensions in implementing your program is a difficult question. On the one hand, using the extensions can make a cleaner program. On the other hand, people will not be able to build the program unless the other GNU tools are available. This might cause the program to work on fewer kinds of machines. With some extensions, it might be easy to provide both alternatives. For example, you can define functions with a ``keyword'' @code{INLINE} and define that as a macro to expand into either @code{inline} or nothing, depending on the compiler. In general, perhaps it is best not to use the extensions if you can straightforwardly do without them, but to use the extensions if they are a big improvement. An exception to this rule are the large, established programs (such as Emacs) which run on a great variety of systems. Such programs would be broken by use of GNU extensions. Another exception is for programs that are used as part of compilation: anything that must be compiled with other compilers in order to bootstrap the GNU compilation facilities. If these require the GNU compiler, then no one can compile them without having them installed already. That would be no good. Since most computer systems do not yet implement @sc{ANSI} C, using the @sc{ANSI} C features is effectively using a GNU extension, so the same considerations apply. (Except for @sc{ANSI} features that we discourage, such as trigraphs---don't ever use them.) @node System Functions @chapter Calling System Functions C implementations differ substantially. ANSI C reduces but does not eliminate the incompatibilities; meanwhile, many users wish to compile GNU software with pre-ANSI compilers. This chapter gives recommendations for how to use the more or less standard C library functions to avoid unnecessary loss of portability. @itemize @bullet @item Don't use the value of @code{sprintf}. It returns the number of characters written on some systems, but not on all systems. @item Don't declare system functions explicitly. Almost any declaration for a system function is wrong on some system. To minimize conflicts, leave it to the system header files to declare system functions. If the headers don't declare a function, let it remain undeclared. While it may seem unclean to use a function without declaring it, in practice this works fine for most system library functions on the systems where this really happens. The problem is only theoretical. By contrast, actual declarations have frequently caused actual conflicts. @item If you must declare a system function, don't specify the argument types. Use an old-style declaration, not an ANSI prototype. The more you specify about the function, the more likely a conflict. @item In particular, don't unconditionally declare @code{malloc} or @code{realloc}. Most GNU programs use those functions just once, in functions conventionally named @code{xmalloc} and @code{xrealloc}. These functions call @code{malloc} and @code{realloc}, respectively, and check the results. Because @code{xmalloc} and @code{xrealloc} are defined in your program, you can declare them in other files without any risk of type conflict. On most systems, @code{int} is the same length as a pointer; thus, the calls to @code{malloc} and @code{realloc} work fine. For the few exceptional systems (mostly 64-bit machines), you can use @strong{conditionalized} declarations of @code{malloc} and @code{realloc}---or put these declarations in configuration files specific to those systems. @item The string functions require special treatment. Some Unix systems have a header file @file{string.h}; other have @file{strings.h}. Neither file name is portable. There are two things you can do: use Autoconf to figure out which file to include, or don't include either file. @item If you don't include either strings file, you can't get declarations for the string functions from the header file in the usual way. That causes less of a problem than you might think. The newer ANSI string functions are off-limits anyway because many systems still don't support them. The string functions you can use are these: @example strcpy strncpy strcat strncat strlen strcmp strncmp strchr strrchr @end example The copy and concatenate functions work fine without a declaration as long as you don't use their values. Using their values without a declaration fails on systems where the width of a pointer differs from the width of @code{int}, and perhaps in other cases. It is trivial to avoid using their values, so do that. The compare functions and @code{strlen} work fine without a declaration on most systems, possibly all the ones that GNU software runs on. You may find it necessary to declare them @strong{conditionally} on a few systems. The search functions must be declared to return @code{char *}. Luckily, there is no variation in the data type they return. But there is variation in their names. Some systems give these functions the names @code{index} and @code{rindex}; other systems use the names @code{strchr} and @code{strrchr}. Some systems support both pairs of names, but neither pair works on all systems. You should pick a single pair of names and use it throughout your program. (Nowadays, it is better to choose @code{strchr} and @code{strrchr}.) Declare both of those names as functions returning @code{char *}. On systems which don't support those names, define them as macros in terms of the other pair. For example, here is what to put at the beginning of your file (or in a header) if you want to use the names @code{strchr} and @code{strrchr} throughout: @example #ifndef HAVE_STRCHR #define strchr index #endif #ifndef HAVE_STRRCHR #define strrchr rindex #endif char *strchr (); char *strrchr (); @end example @end itemize Here we assume that @code{HAVE_STRCHR} and @code{HAVE_STRRCHR} are macros defined in systems where the corresponding functions exist. One way to get them properly defined is to use Autoconf. @node Semantics @chapter Program Behavior for All Programs Avoid arbitrary limits on the length or number of @emph{any} data structure, including filenames, lines, files, and symbols, by allocating all data structures dynamically. In most Unix utilities, ``long lines are silently truncated''. This is not acceptable in a GNU utility. Utilities reading files should not drop NUL characters, or any other nonprinting characters @emph{including those with codes above 0177}. The only sensible exceptions would be utilities specifically intended for interface to certain types of printers that can't handle those characters. Check every system call for an error return, unless you know you wish to ignore errors. Include the system error text (from @code{perror} or equivalent) in @emph{every} error message resulting from a failing system call, as well as the name of the file if any and the name of the utility. Just ``cannot open foo.c'' or ``stat failed'' is not sufficient. Check every call to @code{malloc} or @code{realloc} to see if it returned zero. Check @code{realloc} even if you are making the block smaller; in a system that rounds block sizes to a power of 2, @code{realloc} may get a different block if you ask for less space. In Unix, @code{realloc} can destroy the storage block if it returns zero. GNU @code{realloc} does not have this bug: if it fails, the original block is unchanged. Feel free to assume the bug is fixed. If you wish to run your program on Unix, and wish to avoid lossage in this case, you can use the GNU @code{malloc}. You must expect @code{free} to alter the contents of the block that was freed. Anything you want to fetch from the block, you must fetch before calling @code{free}. Use @code{getopt_long} to decode arguments, unless the argument syntax makes this unreasonable. When static storage is to be written in during program execution, use explicit C code to initialize it. Reserve C initialized declarations for data that will not be changed. Try to avoid low-level interfaces to obscure Unix data structures (such as file directories, utmp, or the layout of kernel memory), since these are less likely to work compatibly. If you need to find all the files in a directory, use @code{readdir} or some other high-level interface. These will be supported compatibly by GNU. By default, the GNU system will provide the signal handling functions of @sc{BSD} and of @sc{POSIX}. So GNU software should be written to use these. In error checks that detect ``impossible'' conditions, just abort. There is usually no point in printing any message. These checks indicate the existence of bugs. Whoever wants to fix the bugs will have to read the source code and run a debugger. So explain the problem with comments in the source. The relevant data will be in variables, which are easy to examine with the debugger, so there is no point moving them elsewhere. @node Errors @chapter Formatting Error Messages Error messages from compilers should look like this: @example @var{source-file-name}:@var{lineno}: @var{message} @end example Error messages from other noninteractive programs should look like this: @example @var{program}:@var{source-file-name}:@var{lineno}: @var{message} @end example @noindent when there is an appropriate source file, or like this: @example @var{program}: @var{message} @end example @noindent when there is no relevant source file. In an interactive program (one that is reading commands from a terminal), it is better not to include the program name in an error message. The place to indicate which program is running is in the prompt or with the screen layout. (When the same program runs with input from a source other than a terminal, it is not interactive and would do best to print error messages using the noninteractive style.) The string @var{message} should not begin with a capital letter when it follows a program name and/or filename. Also, it should not end with a period. Error messages from interactive programs, and other messages such as usage messages, should start with a capital letter. But they should not end with a period. @node Libraries @chapter Library Behavior Try to make library functions reentrant. If they need to do dynamic storage allocation, at least try to avoid any nonreentrancy aside from that of @code{malloc} itself. Here are certain name conventions for libraries, to avoid name conflicts. Choose a name prefix for the library, more than two characters long. All external function and variable names should start with this prefix. In addition, there should only be one of these in any given library member. This usually means putting each one in a separate source file. An exception can be made when two external symbols are always used together, so that no reasonable program could use one without the other; then they can both go in the same file. External symbols that are not documented entry points for the user should have names beginning with @samp{_}. They should also contain the chosen name prefix for the library, to prevent collisions with other libraries. These can go in the same files with user entry points if you like. Static functions and variables can be used as you like and need not fit any naming convention. @node Portability @chapter Portability As It Applies to GNU Much of what is called ``portability'' in the Unix world refers to porting to different Unix versions. This is a secondary consideration for GNU software, because its primary purpose is to run on top of one and only one kernel, the GNU kernel, compiled with one and only one C compiler, the GNU C compiler. The amount and kinds of variation among GNU systems on different cpu's will be like the variation among Berkeley 4.3 systems on different cpu's. All users today run GNU software on non-GNU systems. So supporting a variety of non-GNU systems is desirable; simply not paramount. The easiest way to achieve portability to a reasonable range of systems is to use Autoconf. It's unlikely that your program needs to know more information about the host machine than Autoconf can provide, simply because most of the programs that need such knowledge have already been written. It is difficult to be sure exactly what facilities the GNU kernel will provide, since it isn't finished yet. Therefore, assume you can use anything in 4.3; just avoid using the format of semi-internal data bases (e.g., directories) when there is a higher-level alternative (@code{readdir}). You can freely assume any reasonably standard facilities in the C language, libraries or kernel, because we will find it necessary to support these facilities in the full GNU system, whether or not we have already done so. The fact that there may exist kernels or C compilers that lack these facilities is irrelevant as long as the GNU kernel and C compiler support them. It remains necessary to worry about differences among cpu types, such as the difference in byte ordering and alignment restrictions. It's unlikely that 16-bit machines will ever be supported by GNU, so there is no point in spending any time to consider the possibility that an int will be less than 32 bits. You can assume that all pointers have the same format, regardless of the type they point to, and that this is really an integer. There are some weird machines where this isn't true, but they aren't important; don't waste time catering to them. Besides, eventually we will put function prototypes into all GNU programs, and that will probably make your program work even on weird machines. Since some important machines (including the 68000) are big-endian, it is important not to assume that the address of an @code{int} object is also the address of its least-significant byte. Thus, don't make the following mistake: @example int c; @dots{} while ((c = getchar()) != EOF) write(file_descriptor, &c, 1); @end example You can assume that it is reasonable to use a meg of memory. Don't strain to reduce memory usage unless it can get to that level. If your program creates complicated data structures, just make them in core and give a fatal error if malloc returns zero. If a program works by lines and could be applied to arbitrary user-supplied input files, it should keep only a line in memory, because this is not very hard and users will want to be able to operate on input files that are bigger than will fit in core all at once. @node User Interfaces @chapter Standards for Command Line Interfaces Please don't make the behavior of a utility depend on the name used to invoke it. It is useful sometimes to make a link to a utility with a different name, and that should not change what it does. Instead, use a run time option or a compilation switch or both to select among the alternate behaviors. Likewise, please don't make the behavior of the program depend on the type of output device it is used with. Device independence is an important principle of the system's design; do not compromise it merely to save someone from typing an option now and then. If you think one behavior is most useful when the output is to a terminal, and another is most useful when the output is a file or a pipe, then it is usually best to make the default behavior the one that is useful with output to a terminal, and have an option for the other behavior. Compatibility requires certain programs to depend on the type of output device. It would be disastrous if @code{ls} or @code{sh} did not do so in the way all users expect. In some of these cases, we supplement the program with a preferred alternate version that does not depend on the output device type. For example, we provide a @code{dir} program much like @code{ls} except that its default output format is always multi-column format. It is a good idea to follow the @sc{POSIX} guidelines for the command-line options of a program. The easiest way to do this is to use @code{getopt} to parse them. Note that the GNU version of @code{getopt} will normally permit options anywhere among the arguments unless the special argument @samp{--} is used. This is not what @sc{POSIX} specifies; it is a GNU extension. Please define long-named options that are equivalent to the single-letter Unix-style options. We hope to make GNU more user friendly this way. This is easy to do with the GNU function @code{getopt_long}. One of the advantages of long-named options is that they can be consistent from program to program. For example, users should be able to expect the ``verbose'' option of any GNU program which has one, to be spelled precisely @samp{--verbose}. To achieve this uniformity, look at the table of common long-option names when you choose the option names for your program. The table appears below. If you use names not already in the table, please send @samp{gnu@@prep.ai.mit.edu} a list of them, with their meanings, so we can update the table. It is usually a good idea for file names given as ordinary arguments to be input files only; any output files would be specified using options (preferably @samp{-o}). Even if you allow an output file name as an ordinary argument for compatibility, try to provide a suitable option as well. This will lead to more consistency among GNU utilities, so that there are fewer idiosyncracies for users to remember. Programs should support an option @samp{--version} which prints the program's version number on standard output and exits successfully, and an option @samp{--help} which prints option usage information on standard output and exits successfully. These options should inhibit the normal function of the command; they should do nothing except print the requested information. @c Please leave newlines between items in this table; it's much easier @c to update when it isn't completely squashed together and unreadable. @c When there is more than one short option for a long option name, put @c a semicolon between the lists of the programs that use them, not a @c period. --friedman @table @samp @item auto-check @samp{-a} in @code{recode}. @item auto-reference @samp{-A} in @code{ptx}. @item after-date @samp{-N} in @code{tar}. @item all @samp{-a} in @code{du}, @code{ls}, @code{nm}, @code{stty}, @code{uname}, and @code{unexpand}. @item all-text @samp{-a} in @code{diff}. @item almost-all @samp{-A} in @code{ls}. @item append @samp{-a} in @code{etags}, @code{tee}, @code{time}; @samp{-r} in @code{tar}. @item archive @samp{-a} in @code{cp}. @item arglength @samp{-l} in @code{m4}. @item ascii @samp{-a} in @code{diff}. @item assume-new @samp{-W} in Make. @item assume-old @samp{-o} in Make. @item backward-search @samp{-B} in etags. @item batch Used in GDB. @item baud Used in GDB. @item before @samp{-b} in @code{tac}. @item binary @samp{-b} in @code{cpio} and @code{diff}. @item block-size Used in @code{cpio} and @code{tar}. @item blocks @samp{-b} in @code{head} and @code{tail}. @item break-file @samp{-b} in @code{ptx}. @item brief Used in various programs to make output shorter. @item bytes @samp{-c} in @code{head}, @code{split}, and @code{tail}. @item c++ @samp{-C} in @code{etags}. @item catenate @samp{-A} in @code{tar}. @item cd Used in various programs to specify the directory to use. @item changes @samp{-c} in @code{chgrp} and @code{chown}. @item classify @samp{-F} in @code{ls}. @item colons @samp{-c} in @code{recode}. @item command @samp{-c} in @code{su}; @samp{-x} in GDB. @item compare @samp{-d} in @code{tar}. @item compress @samp{-Z} in @code{tar}. @item concatenate @samp{-A} in @code{tar}. @item confirmation @samp{-w} in @code{tar}. @item context Used in @code{diff}. @item copyright @samp{-C} in @code{ptx} and @code{recode}. @item core Used in GDB. @item count @samp{-q} in @code{who}. @item count-links @samp{-l} in @code{du}. @item create Used in @code{tar} and @code{cpio}. @item cxref @samp{-x} in @code{etags}. @item date @samp{-d} in @code{touch}. @item debug @samp{-d} in Make and @code{m4}; @samp{-t} in Bison. @item define @samp{-D} in @code{m4}. @item defines @samp{-d} in Bison and @code{etags}. @item delete @samp{-D} in @code{tar}. @item dereference @samp{-L} in @code{chgrp}, @code{chown}, @code{cpio}, @code{du}, @code{ls}, and @code{tar}. @item dereference-args @samp{-D} in @code{du}. @item diacritics @samp{-d} in @code{recode}. @item dictionary-order @samp{-d} in @code{look}. @item diff @samp{-d} in @code{tar}. @item digits @samp{-n} in @code{csplit}. @item directory Specify the directory to use, in various programs. In @code{ls}, it means to show directories themselves rather than their contents. In @code{rm} and @code{ln}, it means to not treat links to directories specially. @item discard-all @samp{-x} in @code{strip}. @item discard-locals @samp{-X} in @code{strip}. @item diversions @samp{-N} in @code{m4}. @item dry-run @samp{-n} in Make. @item ed @samp{-e} in @code{diff}. @item elide-empty-files @samp{-z} in @code{csplit}. @item entire-new-file @samp{-N} in @code{diff}. @item environment-overrides @samp{-e} in Make. @item eof @samp{-e} in @code{xargs}. @item epoch Used in GDB. @item error-limit Used in Makeinfo. @item error-output @samp{-o} in @code{m4}. @item escape @samp{-b} in @code{ls}. @item exclude-from @samp{-X} in @code{tar}. @item exec Used in GDB. @item exit @samp{-x} in @code{xargs}. @item expand-tabs @samp{-t} in @code{diff}. @item expression @samp{-e} in @code{sed}. @item extern-only @samp{-g} in @code{nm}. @item extract @samp{-i} in @code{cpio}; @samp{-x} in @code{tar}. @item faces @samp{-f} in @code{finger}. @item fast @samp{-f} in @code{su}. @item file @samp{-f} in @code{info}, Make, @code{mt}, and @code{tar}; @samp{-n} in @code{sed}; @samp{-r} in @code{touch}. @item file-prefix @samp{-b} in Bison. @item file-type @samp{-F} in @code{ls}. @item files-from @samp{-T} in @code{tar}. @item fill-column Used in Makeinfo. @item flag-truncation @samp{-F} in @code{ptx}. @item fixed-output-files @samp{-y} in Bison. @item follow @samp{-f} in @code{tail}. @item footnote-style Used in Makeinfo. @item force @samp{-f} in @code{cp}, @code{ln}, @code{mv}, and @code{rm}. @item format Used in @code{ls}, @code{time}, and @code{ptx}. @item forward-search @samp{-F} in @code{etags}. @item fullname Used in GDB. @item gap-size @samp{-g} in @code{ptx}. @item get @samp{-x} in @code{tar}. @item graphic @samp{-i} in @code{ul}. @item graphics @samp{-g} in @code{recode}. @item group @samp{-g} in @code{install}. @item gzip @samp{-z} in @code{tar}. @item hashsize @samp{-H} in @code{m4}. @item header @samp{-h} in @code{objdump} and @code{recode} @item heading @samp{-H} in @code{who}. @item help Used to ask for brief usage information. @item hide-control-chars @samp{-q} in @code{ls}. @item idle @samp{-u} in @code{who}. @item ifdef @samp{-D} in @code{diff}. @item ignore @samp{-I} in @code{ls}; @samp{-x} in @code{recode}. @item ignore-all-space @samp{-w} in @code{diff}. @item ignore-backups @samp{-B} in @code{ls}. @item ignore-blank-lines @samp{-B} in @code{diff}. @item ignore-case @samp{-f} in @code{look} and @code{ptx}; @samp{-i} in @code{diff}. @item ignore-errors @samp{-i} in Make. @item ignore-file @samp{-i} in @code{ptx}. @item ignore-indentation @samp{-S} in @code{etags}. @item ignore-init-file @samp{-f} in Oleo. @item ignore-interrupts @samp{-i} in @code{tee}. @item ignore-matching-lines @samp{-I} in @code{diff}. @item ignore-space-change @samp{-b} in @code{diff}. @item ignore-zeros @samp{-i} in @code{tar}. @item include @samp{-i} in @code{etags}; @samp{-I} in @code{m4}. @item include-dir @samp{-I} in Make. @item incremental @samp{-G} in @code{tar}. @item info @samp{-i}, @samp{-l}, and @samp{-m} in Finger. @item initial @samp{-i} in @code{expand}. @item initial-tab @samp{-T} in @code{diff}. @item inode @samp{-i} in @code{ls}. @item interactive @samp{-i} in @code{cp}, @code{ln}, @code{mv}, @code{rm}; @samp{-e} in @code{m4}; @samp{-p} in @code{xargs}; @samp{-w} in @code{tar}. @item jobs @samp{-j} in Make. @item just-print @samp{-n} in Make. @item keep-going @samp{-k} in Make. @item keep-files @samp{-k} in @code{csplit}. @item kilobytes @samp{-k} in @code{du} and @code{ls}. @item line-bytes @samp{-C} in @code{split}. @item lines Used in @code{split}, @code{head}, and @code{tail}. @item link @samp{-l} in @code{cpio}. @item list @samp{-t} in @code{cpio}; @samp{-l} in @code{recode}. @item list @samp{-t} in @code{tar}. @item literal @samp{-N} in @code{ls}. @item load-average @samp{-l} in Make. @item login Used in @code{su}. @item machine No listing of which programs already use this; someone should check to see if any actually do and tell @code{gnu@@prep.ai.mit.edu}. @item macro-name @samp{-M} in @code{ptx}. @item mail @samp{-m} in @code{hello} and @code{uname}. @item make-directories @samp{-d} in @code{cpio}. @item makefile @samp{-f} in Make. @item mapped Used in GDB. @item max-args @samp{-n} in @code{xargs}. @item max-chars @samp{-n} in @code{xargs}. @item max-lines @samp{-l} in @code{xargs}. @item max-load @samp{-l} in Make. @item max-procs @samp{-P} in @code{xargs}. @item mesg @samp{-T} in @code{who}. @item message @samp{-T} in @code{who}. @item minimal @samp{-d} in @code{diff}. @item mode @samp{-m} in @code{install}, @code{mkdir}, and @code{mkfifo}. @item modification-time @samp{-m} in @code{tar}. @item multi-volume @samp{-M} in @code{tar}. @item name-prefix @samp{-a} in Bison. @item new-file @samp{-W} in Make. @item no-builtin-rules @samp{-r} in Make. @item no-create @samp{-c} in @code{touch}. @item no-defines @samp{-D} in @code{etags}. @item no-dereference @samp{-d} in @code{cp}. @item no-keep-going @samp{-S} in Make. @item no-lines @samp{-l} in Bison. @item no-prof @samp{-e} in @code{gprof}. @item no-sort @samp{-p} in @code{nm}. @item no-split Used in Makeinfo. @item no-static @samp{-a} in @code{gprof}. @item no-time @samp{-E} in @code{gprof}. @item no-validate Used in Makeinfo. @item no-warn Used in various programs to inhibit warnings. @item node @samp{-n} in @code{info}. @item nodename @samp{-n} in @code{uname}. @item nonmatching @samp{-f} in @code{cpio}. @item nstuff @samp{-n} in @code{objdump}. @item null @samp{-0} in @code{xargs}. @item number @samp{-n} in @code{cat}. @item number-nonblank @samp{-b} in @code{cat}. @item numeric-sort @samp{-n} in @code{nm}. @item numeric-uid-gid @samp{-n} in @code{cpio} and @code{ls}. @item nx Used in GDB. @item old-archive @samp{-o} in @code{tar}. @item old-file @samp{-o} in Make. @item one-file-system @samp{-l} in @code{tar}, @code{cp}, and @code{du}. @item only-file @samp{-o} in @code{ptx}. @item only-prof @samp{-f} in @code{gprof}. @item only-time @samp{-F} in @code{gprof}. @item output In various programs, specify the output file name. @item override @samp{-o} in @code{rm}. @item owner @samp{-o} in @code{install}. @item paginate @samp{-l} in @code{diff}. @item paragraph-indent Used in Makeinfo. @item parents @samp{-p} in @code{mkdir} and @code{rmdir}. @item pass-all @samp{-p} in @code{ul}. @item pass-through @samp{-p} in @code{cpio}. @item port @samp{-P} in @code{finger}. @item portability @samp{-c} in @code{cpio} and @code{tar}. @item prefix-builtins @samp{-P} in @code{m4}. @item prefix @samp{-f} in @code{csplit}. @item preserve Used in @code{tar} and @code{cp}. @item preserve-environment @samp{-p} in @code{su}. @item preserve-modification-time @samp{-m} in @code{cpio}. @item preserve-order @samp{-s} in @code{tar}. @item preserve-permissions @samp{-p} in @code{tar}. @item print @samp{-l} in @code{diff}. @item print-chars @samp{-L} in @code{cmp}. @item print-data-base @samp{-p} in Make. @item print-directory @samp{-w} in Make. @item print-file-name @samp{-o} in @code{nm}. @item print-symdefs @samp{-s} in @code{nm}. @item question @samp{-q} in Make. @item quiet Used in many programs to inhibit the usual output. @strong{Note:} every program accepting @samp{--quiet} should accept @samp{--silent} as a synonym. @item quote-name @samp{-Q} in @code{ls}. @item rcs @samp{-n} in @code{diff}. @item read-full-blocks @samp{-B} in @code{tar}. @item readnow Used in GDB. @item recon @samp{-n} in Make. @item record-number @samp{-R} in @code{tar}. @item recursive Used in @code{chgrp}, @code{chown}, @code{cp}, @code{ls}, @code{diff}, and @code{rm}. @item reference-limit Used in Makeinfo. @item references @samp{-r} in @code{ptx}. @item regex @samp{-r} in @code{tac}. @item release @samp{-r} in @code{uname}. @item relocation @samp{-r} in @code{objdump}. @item rename @samp{-r} in @code{cpio}. @item replace @samp{-i} in @code{xargs}. @item report-identical-files @samp{-s} in @code{diff}. @item reset-access-time @samp{-a} in @code{cpio}. @item reverse @samp{-r} in @code{ls} and @code{nm}. @item reversed-ed @samp{-f} in @code{diff}. @item right-side-defs @samp{-R} in @code{ptx}. @item same-order @samp{-s} in @code{tar}. @item same-permissions @samp{-p} in @code{tar}. @item save @samp{-g} in @code{stty}. @item se Used in GDB. @item sentence-regexp @samp{-S} in @code{ptx}. @item separate-dirs @samp{-S} in @code{du}. @item separator @samp{-s} in @code{tac}. @item sequence Used by @code{recode} to chose files or pipes for sequencing passes. @item shell @samp{-s} in @code{su}. @item show-all @samp{-A} in @code{cat}. @item show-c-function @samp{-p} in @code{diff}. @item show-ends @samp{-E} in @code{cat}. @item show-function-line @samp{-F} in @code{diff}. @item show-tabs @samp{-T} in @code{cat}. @item silent Used in many programs to inhibit the usual output. @strong{Note:} every program accepting @samp{--silent} should accept @samp{--quiet} as a synonym. @item size @samp{-s} in @code{ls}. @item sort Used in @code{ls}. @item sparse @samp{-S} in @code{tar}. @item speed-large-files @samp{-H} in @code{diff}. @item squeeze-blank @samp{-s} in @code{cat}. @item starting-file Used in @code{tar} and @code{diff} to specify which file within a directory to start processing with. @item stop @samp{-S} in Make. @item strict @samp{-s} in @code{recode}. @item strip @samp{-s} in @code{install}. @item strip-all @samp{-s} in @code{strip}. @item strip-debug @samp{-S} in @code{strip}. @item suffix @samp{-S} in @code{cp}, @code{ln}, @code{mv}. @item suffix-format @samp{-b} in @code{csplit}. @item sum @samp{-s} in @code{gprof}. @item summarize @samp{-s} in @code{du}. @item symbolic @samp{-s} in @code{ln}. @item symbols Used in GDB and @code{objdump}. @item synclines @samp{-s} in @code{m4}. @item sysname @samp{-s} in @code{uname}. @item tabs @samp{-t} in @code{expand} and @code{unexpand}. @item tabsize @samp{-T} in @code{ls}. @item terminal @samp{-T} in @code{tput} and @code{ul}. @item text @samp{-a} in @code{diff}. @item time Used in @code{ls} and @code{touch}. @item to-stdout @samp{-O} in @code{tar}. @item total @samp{-c} in @code{du}. @item touch @samp{-t} in Make, @code{ranlib}, and @code{recode}. @item trace @samp{-t} in @code{m4}. @item traditional @samp{-t} in @code{hello}; @samp{-G} in @code{m4} and @code{ptx}. @item tty Used in GDB. @item typedefs @samp{-t} in @code{etags}. @item typedefs-and-c++ @samp{-T} in @code{etags}. @item typeset-mode @samp{-t} in @code{ptx}. @item uncompress @samp{-z} in @code{tar}. @item unconditional @samp{-u} in @code{cpio}. @item undefine @samp{-U} in @code{m4}. @item undefined-only @samp{-u} in @code{nm}. @item update @samp{-u} in @code{cp}, @samp{etags}, @samp{mv}, @samp{tar}. @item verbose Print more information about progress. Many programs support this. @item verify @samp{-W} in @code{tar}. @item version Print the version number. @item version-control @samp{-V} in @code{cp}, @code{ln}, @code{mv}. @item vgrind @samp{-v} in @code{etags}. @item volume @samp{-V} in @code{tar}. @item what-if @samp{-W} in Make. @item width @samp{-w} in @code{ls} and @code{ptx}. @item word-regexp @samp{-W} in @code{ptx}. @item writable @samp{-T} in @code{who}. @item zeros @samp{-z} in @code{gprof}. @end table @node Documentation @chapter Documenting Programs Please use Texinfo for documenting GNU programs. See the Texinfo manual, either the hardcopy or the version in the GNU Emacs Info subsystem (@kbd{C-h i}). See existing GNU Texinfo files (e.g., those under the @file{man/} directory in the GNU Emacs distribution) for examples. The title page of the manual should state the version of the program which the manual applies to. The Top node of the manual should also contain this information. If the manual is changing more frequently than or independent of the program, also state a version number for the manual in both of these places. The manual should document all command-line arguments and all commands. It should give examples of their use. But don't organize the manual as a list of features. Instead, organize it by the concepts a user will have before reaching that point in the manual. Address the goals that a user will have in mind, and explain how to accomplish them. Don't use Unix man pages as a model for how to write GNU documentation; they are a bad example to follow. The manual should have a node named @samp{@var{program} Invocation} or @samp{Invoking @var{program}}, where @var{program} stands for the name of the program being described, as you would type it in the shell to run the program. This node (together with its subnodes, if any) should describe the program's command line arguments and how to run it (the sort of information people would look in a man page for). Start with an @samp{@@example} containing a template for all the options and arguments that the program uses. Alternatively, put a menu item in some menu whose item name fits one of the above patterns. This identifies the node which that item points to as the node for this purpose, regardless of the node's actual name. There will be automatic features for specifying a program name and quickly reading just this part of its manual. If one manual describes several programs, it should have such a node for each program described. In addition to its manual, the package should have a file named @file{NEWS} which contains a list of user-visible changes worth mentioning. In each new release, add items to the front of the file and identify the version they pertain to. Don't discard old items; leave them in the file after the newer items. This way, a user upgrading from any previous version can see what is new. If the @file{NEWS} file gets very long, move some of the older items into a file named @file{ONEWS} and put a note at the end referring the user to that file. Please do not use the term ``pathname'' that is used in Unix documentation; use ``file name'' (two words) instead. We use the term ``path'' only for search paths, which are lists of file names. It is ok to supply a man page for the program as well as a Texinfo manual if you wish to. But keep in mind that supporting a man page requires continual effort, each time the program is changed. Any time you spend on the man page is time taken away from more useful things you could contribute. Thus, even if a user volunteers to donate a man page, you may find this gift costly to accept. Unless you have time on your hands, it may be better to refuse the man page unless the same volunteer agrees to take full responsibility for maintaining it---so that you can wash your hands of it entirely. If the volunteer ceases to do the job, then don't feel obliged to pick it up yourself; it may be better to withdraw the man page until another volunteer offers to carry on with it. Alternatively, if you expect the discrepancies to be small enough that the man page remains useful, put a prominent note near the beginning of the man page explaining that you don't maintain it and that the Texinfo manual is more authoritative, and describing how to access the Texinfo documentation. @node Releases @chapter Making Releases Package the distribution of Foo version 69.96 in a gzipped tar file named @file{foo-69.96.tar.gz}. It should unpack into a subdirectory named @file{foo-69.96}. Building and installing the program should never modify any of the files contained in the distribution. This means that all the files that form part of the program in any way must be classified into @dfn{source files} and @dfn{non-source files}. Source files are written by humans and never changed automatically; non-source files are produced from source files by programs under the control of the Makefile. Naturally, all the source files must be in the distribution. It is okay to include non-source files in the distribution, provided they are up-to-date and machine-independent, so that building the distribution normally will never modify them. We commonly include non-source files produced by Bison, Lex, @TeX{}, and Makeinfo; this helps avoid unnecessary dependencies between our distributions, so that users can install whichever packages they want to install. Non-source files that might actually be modified by building and installing the program should @strong{never} be included in the distribution. So if you do distribute non-source files, always make sure they are up to date when you make a new distribution. Make sure that the directory into which the distribution unpacks (as well as any subdirectories) are all world-writable (octal mode 777). This is so that old versions of @code{tar} which preserve the ownership and permissions of the files from the tar archive will be able to extract all the files even if the user is unprivileged. Make sure that all the files in the distribution are world-readable. Make sure that no file name in the distribution is more than 14 characters long. Likewise, no file created by building the program should have a name longer than 14 characters. The reason for this is that some systems adhere to a foolish interpretation of the POSIX standard, and refuse to open a longer name, rather than truncating as they did in the past. Don't include any symbolic links in the distribution itself. If the tar file contains symbolic links, then people cannot even unpack it on systems that don't support symbolic links. Also, don't use multiple names for one file in different directories, because certain file systems cannot handle this and that prevents unpacking the distribution. Try to make sure that all the file names will be unique on MS-DOG. A name on MS-DOG consists of up to 8 characters, optionally followed by a period and up to three characters. MS-DOG will truncate extra characters both before and after the period. Thus, @file{foobarhacker.c} and @file{foobarhacker.o} are not ambiguous; they are truncated to @file{foobarha.c} and @file{foobarha.o}, which are distinct. Include in your distribution a copy of the @file{texinfo.tex} you used to test print any @file{*.texinfo} files. Likewise, if your program uses small GNU software packages like regex, getopt, obstack, or termcap, include them in the distribution file. Leaving them out would make the distribution file a little smaller at the expense of possible inconvenience to a user who doesn't know what other files to get. @contents @bye gdb-4.13/etc/make-stds.texi 666 34562 1752 47721 5545067550 14141 0ustar fnfcygnus@comment This file is included by both standards.texi and make.texinfo. @comment It was broken out of standards.texi on 1/6/93 by roland. @node Makefile Conventions @chapter Makefile Conventions @comment standards.texi does not print an index, but make.texinfo does. @cindex makefile, conventions for @cindex conventions for makefiles @cindex standards for makefiles This chapter describes conventions for writing the Makefiles for GNU programs. @menu * Makefile Basics:: * Utilities in Makefiles:: * Standard Targets:: * Command Variables:: * Directory Variables:: @end menu @node Makefile Basics @section General Conventions for Makefiles Every Makefile should contain this line: @example SHELL = /bin/sh @end example @noindent to avoid trouble on systems where the @code{SHELL} variable might be inherited from the environment. (This is never a problem with GNU @code{make}.) Don't assume that @file{.} is in the path for command execution. When you need to run programs that are a part of your package during the make, please make sure that it uses @file{./} if the program is built as part of the make or @file{$(srcdir)/} if the file is an unchanging part of the source code. Without one of these prefixes, the current search path is used. The distinction between @file{./} and @file{$(srcdir)/} is important when using the @samp{--srcdir} option to @file{configure}. A rule of the form: @smallexample foo.1 : foo.man sedscript sed -e sedscript foo.man > foo.1 @end smallexample @noindent will fail when the current directory is not the source directory, because @file{foo.man} and @file{sedscript} are not in the current directory. When using GNU @code{make}, relying on @samp{VPATH} to find the source file will work in the case where there is a single dependency file, since the @file{make} automatic variable @samp{$<} will represent the source file wherever it is. (Many versions of @code{make} set @samp{$<} only in implicit rules.) A makefile target like @smallexample foo.o : bar.c $(CC) -I. -I$(srcdir) $(CFLAGS) -c bar.c -o foo.o @end smallexample @noindent should instead be written as @smallexample foo.o : bar.c $(CC) $(CFLAGS) $< -o $@@ @end smallexample @noindent in order to allow @samp{VPATH} to work correctly. When the target has multiple dependencies, using an explicit @samp{$(srcdir)} is the easiest way to make the rule work well. For example, the target above for @file{foo.1} is best written as: @smallexample foo.1 : foo.man sedscript sed -s $(srcdir)/sedscript $(srcdir)/foo.man > foo.1 @end smallexample @node Utilities in Makefiles @section Utilities in Makefiles Write the Makefile commands (and any shell scripts, such as @code{configure}) to run in @code{sh}, not in @code{csh}. Don't use any special features of @code{ksh} or @code{bash}. The @code{configure} script and the Makefile rules for building and installation should not use any utilities directly except these: @example cat cmp cp echo egrep expr grep ln mkdir mv pwd rm rmdir sed test touch @end example Stick to the generally supported options for these programs. For example, don't use @samp{mkdir -p}, convenient as it may be, because most systems don't support it. The Makefile rules for building and installation can also use compilers and related programs, but should do so via @code{make} variables so that the user can substitute alternatives. Here are some of the programs we mean: @example ar bison cc flex install ld lex make makeinfo ranlib texi2dvi yacc @end example When you use @code{ranlib}, you should test whether it exists, and run it only if it exists, so that the distribution will work on systems that don't have @code{ranlib}. If you use symbolic links, you should implement a fallback for systems that don't have symbolic links. It is ok to use other utilities in Makefile portions (or scripts) intended only for particular systems where you know those utilities to exist. @node Standard Targets @section Standard Targets for Users All GNU programs should have the following targets in their Makefiles: @table @samp @item all Compile the entire program. This should be the default target. This target need not rebuild any documentation files; Info files should normally be included in the distribution, and DVI files should be made only when explicitly asked for. @item install Compile the program and copy the executables, libraries, and so on to the file names where they should reside for actual use. If there is a simple test to verify that a program is properly installed, this target should run that test. The commands should create all the directories in which files are to be installed, if they don't already exist. This includes the directories specified as the values of the variables @code{prefix} and @code{exec_prefix}, as well as all subdirectories that are needed. One way to do this is by means of an @code{installdirs} target as described below. Use @samp{-} before any command for installing a man page, so that @code{make} will ignore any errors. This is in case there are systems that don't have the Unix man page documentation system installed. The way to install Info files is to copy them into @file{$(infodir)} with @code{$(INSTALL_DATA)} (@pxref{Command Variables}), and then run the @code{install-info} program if it is present. @code{install-info} is a script that edits the Info @file{dir} file to add or update the menu entry for the given Info file; it will be part of the Texinfo package. Here is a sample rule to install an Info file: @comment This example has been carefully formatted for the Make manual. @comment Please do not reformat it without talking to roland@gnu.ai.mit.edu. @smallexample $(infodir)/foo.info: foo.info # There may be a newer info file in . than in srcdir. -if test -f foo.info; then d=.; \ else d=$(srcdir); fi; \ $(INSTALL_DATA) $$d/foo.info $@@; \ # Run install-info only if it exists. # Use `if' instead of just prepending `-' to the # line so we notice real errors from install-info. # We use `$(SHELL) -c' because some shells do not # fail gracefully when there is an unknown command. if $(SHELL) -c 'install-info --version' \ >/dev/null 2>&1; then \ install-info --infodir=$(infodir) $$d/foo.info; \ else true; fi @end smallexample @item uninstall Delete all the installed files that the @samp{install} target would create (but not the noninstalled files such as @samp{make all} would create). @comment The gratuitous blank line here is to make the table look better @comment in the printed Make manual. Please leave it in. @item clean Delete all files from the current directory that are normally created by building the program. Don't delete the files that record the configuration. Also preserve files that could be made by building, but normally aren't because the distribution comes with them. Delete @file{.dvi} files here if they are not part of the distribution. @item distclean Delete all files from the current directory that are created by configuring or building the program. If you have unpacked the source and built the program without creating any other files, @samp{make distclean} should leave only the files that were in the distribution. @item mostlyclean Like @samp{clean}, but may refrain from deleting a few files that people normally don't want to recompile. For example, the @samp{mostlyclean} target for GCC does not delete @file{libgcc.a}, because recompiling it is rarely necessary and takes a lot of time. @item realclean Delete everything from the current directory that can be reconstructed with this Makefile. This typically includes everything deleted by @code{distclean}, plus more: C source files produced by Bison, tags tables, Info files, and so on. One exception, however: @samp{make realclean} should not delete @file{configure} even if @file{configure} can be remade using a rule in the Makefile. More generally, @samp{make realclean} should not delete anything that needs to exist in order to run @file{configure} and then begin to build the program. @item TAGS Update a tags table for this program. @item info Generate any Info files needed. The best way to write the rules is as follows: @smallexample info: foo.info foo.info: foo.texi chap1.texi chap2.texi $(MAKEINFO) $(srcdir)/foo.texi @end smallexample @noindent You must define the variable @code{MAKEINFO} in the Makefile. It should run the @code{makeinfo} program, which is part of the Texinfo distribution. @item dvi Generate DVI files for all TeXinfo documentation. For example: @smallexample dvi: foo.dvi foo.dvi: foo.texi chap1.texi chap2.texi $(TEXI2DVI) $(srcdir)/foo.texi @end smallexample @noindent You must define the variable @code{TEXI2DVI} in the Makefile. It should run the program @code{texi2dvi}, which is part of the Texinfo distribution. Alternatively, write just the dependencies, and allow GNU Make to provide the command. @item dist Create a distribution tar file for this program. The tar file should be set up so that the file names in the tar file start with a subdirectory name which is the name of the package it is a distribution for. This name can include the version number. For example, the distribution tar file of GCC version 1.40 unpacks into a subdirectory named @file{gcc-1.40}. The easiest way to do this is to create a subdirectory appropriately named, use @code{ln} or @code{cp} to install the proper files in it, and then @code{tar} that subdirectory. The @code{dist} target should explicitly depend on all non-source files that are in the distribution, to make sure they are up to date in the distribution. @xref{Releases, , Making Releases, standards, GNU Coding Standards}. @item check Perform self-tests (if any). The user must build the program before running the tests, but need not install the program; you should write the self-tests so that they work when the program is built but not installed. @end table The following targets are suggested as conventional names, for programs in which they are useful. @table @code @item installcheck Perform installation tests (if any). The user must build and install the program before running the tests. You should not assume that @file{$(bindir)} is in the search path. @item installdirs It's useful to add a target named @samp{installdirs} to create the directories where files are installed, and their parent directories. There is a script called @file{mkinstalldirs} which is convenient for this; find it in the Texinfo package.@c It's in /gd/gnu/lib/mkinstalldirs. You can use a rule like this: @comment This has been carefully formatted to look decent in the Make manual. @comment Please be sure not to make it extend any further to the right.--roland @smallexample # Make sure all installation directories (e.g. $(bindir)) # actually exist by making them if necessary. installdirs: mkinstalldirs $(srcdir)/mkinstalldirs $(bindir) $(datadir) \ $(libdir) $(infodir) \ $(mandir) @end smallexample @end table @node Command Variables @section Variables for Specifying Commands Makefiles should provide variables for overriding certain commands, options, and so on. In particular, you should run most utility programs via variables. Thus, if you use Bison, have a variable named @code{BISON} whose default value is set with @samp{BISON = bison}, and refer to it with @code{$(BISON)} whenever you need to use Bison. File management utilities such as @code{ln}, @code{rm}, @code{mv}, and so on, need not be referred to through variables in this way, since users don't need to replace them with other programs. Each program-name variable should come with an options variable that is used to supply options to the program. Append @samp{FLAGS} to the program-name variable name to get the options variable name---for example, @code{BISONFLAGS}. (The name @code{CFLAGS} is an exception to this rule, but we keep it because it is standard.) Use @code{CPPFLAGS} in any compilation command that runs the preprocessor, and use @code{LDFLAGS} in any compilation command that does linking as well as in any direct use of @code{ld}. If there are C compiler options that @emph{must} be used for proper compilation of certain files, do not include them in @code{CFLAGS}. Users expect to be able to specify @code{CFLAGS} freely themselves. Instead, arrange to pass the necessary options to the C compiler independently of @code{CFLAGS}, by writing them explicitly in the compilation commands or by defining an implicit rule, like this: @smallexample CFLAGS = -g ALL_CFLAGS = -I. $(CFLAGS) .c.o: $(CC) -c $(CPPFLAGS) $(ALL_CFLAGS) $< @end smallexample Do include the @samp{-g} option in @code{CFLAGS}, because that is not @emph{required} for proper compilation. You can consider it a default that is only recommended. If the package is set up so that it is compiled with GCC by default, then you might as well include @samp{-O} in the default value of @code{CFLAGS} as well. Put @code{CFLAGS} last in the compilation command, after other variables containing compiler options, so the user can use @code{CFLAGS} to override the others. Every Makefile should define the variable @code{INSTALL}, which is the basic command for installing a file into the system. Every Makefile should also define the variables @code{INSTALL_PROGRAM} and @code{INSTALL_DATA}. (The default for each of these should be @code{$(INSTALL)}.) Then it should use those variables as the commands for actual installation, for executables and nonexecutables respectively. Use these variables as follows: @example $(INSTALL_PROGRAM) foo $(bindir)/foo $(INSTALL_DATA) libfoo.a $(libdir)/libfoo.a @end example @noindent Always use a file name, not a directory name, as the second argument of the installation commands. Use a separate command for each file to be installed. @node Directory Variables @section Variables for Installation Directories Installation directories should always be named by variables, so it is easy to install in a nonstandard place. The standard names for these variables are: @table @samp @item prefix A prefix used in constructing the default values of the variables listed below. The default value of @code{prefix} should be @file{/usr/local} (at least for now). @item exec_prefix A prefix used in constructing the default values of some of the variables listed below. The default value of @code{exec_prefix} should be @code{$(prefix)}. Generally, @code{$(exec_prefix)} is used for directories that contain machine-specific files (such as executables and subroutine libraries), while @code{$(prefix)} is used directly for other directories. @item bindir The directory for installing executable programs that users can run. This should normally be @file{/usr/local/bin}, but write it as @file{$(exec_prefix)/bin}. @item libdir The directory for installing executable files to be run by the program rather than by users. Object files and libraries of object code should also go in this directory. The idea is that this directory is used for files that pertain to a specific machine architecture, but need not be in the path for commands. The value of @code{libdir} should normally be @file{/usr/local/lib}, but write it as @file{$(exec_prefix)/lib}. @item datadir The directory for installing read-only data files which the programs refer to while they run. This directory is used for files which are independent of the type of machine being used. This should normally be @file{/usr/local/lib}, but write it as @file{$(prefix)/lib}. @item statedir The directory for installing data files which the programs modify while they run. These files should be independent of the type of machine being used, and it should be possible to share them among machines at a network installation. This should normally be @file{/usr/local/lib}, but write it as @file{$(prefix)/lib}. @item includedir @c rewritten to avoid overfull hbox --roland The directory for installing header files to be included by user programs with the C @samp{#include} preprocessor directive. This should normally be @file{/usr/local/include}, but write it as @file{$(prefix)/include}. Most compilers other than GCC do not look for header files in @file{/usr/local/include}. So installing the header files this way is only useful with GCC. Sometimes this is not a problem because some libraries are only really intended to work with GCC. But some libraries are intended to work with other compilers. They should install their header files in two places, one specified by @code{includedir} and one specified by @code{oldincludedir}. @item oldincludedir The directory for installing @samp{#include} header files for use with compilers other than GCC. This should normally be @file{/usr/include}. The Makefile commands should check whether the value of @code{oldincludedir} is empty. If it is, they should not try to use it; they should cancel the second installation of the header files. A package should not replace an existing header in this directory unless the header came from the same package. Thus, if your Foo package provides a header file @file{foo.h}, then it should install the header file in the @code{oldincludedir} directory if either (1) there is no @file{foo.h} there or (2) the @file{foo.h} that exists came from the Foo package. To tell whether @file{foo.h} came from the Foo package, put a magic string in the file---part of a comment---and grep for that string. @item mandir The directory for installing the man pages (if any) for this package. It should include the suffix for the proper section of the manual---usually @samp{1} for a utility. It will normally be @file{/usr/local/man/man1}, but you should write it as @file{$(prefix)/man/man1}. @item man1dir The directory for installing section 1 man pages. @item man2dir The directory for installing section 2 man pages. @item @dots{} Use these names instead of @samp{mandir} if the package needs to install man pages in more than one section of the manual. @strong{Don't make the primary documentation for any GNU software be a man page. Write a manual in Texinfo instead. Man pages are just for the sake of people running GNU software on Unix, which is a secondary application only.} @item manext The file name extension for the installed man page. This should contain a period followed by the appropriate digit; it should normally be @samp{.1}. @item man1ext The file name extension for installed section 1 man pages. @item man2ext The file name extension for installed section 2 man pages. @item @dots{} Use these names instead of @samp{manext} if the package needs to install man pages in more than one section of the manual. @item infodir The directory for installing the Info files for this package. By default, it should be @file{/usr/local/info}, but it should be written as @file{$(prefix)/info}. @item srcdir The directory for the sources being compiled. The value of this variable is normally inserted by the @code{configure} shell script. @end table For example: @smallexample @c I have changed some of the comments here slightly to fix an overfull @c hbox, so the make manual can format correctly. --roland # Common prefix for installation directories. # NOTE: This directory must exist when you start the install. prefix = /usr/local exec_prefix = $(prefix) # Where to put the executable for the command `gcc'. bindir = $(exec_prefix)/bin # Where to put the directories used by the compiler. libdir = $(exec_prefix)/lib # Where to put the Info files. infodir = $(prefix)/info @end smallexample If your program installs a large number of files into one of the standard user-specified directories, it might be useful to group them into a subdirectory particular to that program. If you do this, you should write the @code{install} rule to create these subdirectories. Do not expect the user to include the subdirectory name in the value of any of the variables listed above. The idea of having a uniform set of variable names for installation directories is to enable the user to specify the exact same values for several different GNU packages. In order for this to be useful, all the packages must be designed so that they will work sensibly when the user does so. gdb-4.13/texinfo/ 777 34562 1752 0 5623251757 12145 5ustar fnfcygnusgdb-4.13/texinfo/texinfo.tex 666 34562 1752 410163 5521621605 14456 0ustar fnfcygnus%% TeX macros to handle texinfo files % Copyright (C) 1985, 86, 88, 90, 91, 92, 1993 Free Software Foundation, Inc. %This texinfo.tex file 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 2, or (at %your option) any later version. %This texinfo.tex file 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 texinfo.tex file; see the file COPYING. If not, write %to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, %USA. %In other words, you are welcome to use, share and improve this program. %You are forbidden to forbid anyone else to use, share and improve %what you give them. Help stamp out software-hoarding! \def\texinfoversion{2.122} \message{Loading texinfo package [Version \texinfoversion]:} % Print the version number if in a .fmt file. \everyjob{\message{[Texinfo version \texinfoversion]}\message{}} % Save some parts of plain tex whose names we will redefine. \let\ptexlbrace=\{ \let\ptexrbrace=\} \let\ptexdots=\dots \let\ptexdot=\. \let\ptexstar=\* \let\ptexend=\end \let\ptexbullet=\bullet \let\ptexb=\b \let\ptexc=\c \let\ptexi=\i \let\ptext=\t \let\ptexl=\l \let\ptexL=\L \def\tie{\penalty 10000\ } % Save plain tex definition of ~. \message{Basics,} \chardef\other=12 % If this character appears in an error message or help string, it % starts a new line in the output. \newlinechar = `^^J % Set up fixed words for English. \ifx\putwordChapter\undefined{\gdef\putwordChapter{Chapter}}\fi% \def\putwordInfo{Info}% \ifx\putwordSee\undefined{\gdef\putwordSee{See}}\fi% \ifx\putwordsee\undefined{\gdef\putwordsee{see}}\fi% \ifx\putwordfile\undefined{\gdef\putwordfile{file}}\fi% \ifx\putwordpage\undefined{\gdef\putwordpage{page}}\fi% \ifx\putwordsection\undefined{\gdef\putwordsection{section}}\fi% \ifx\putwordSection\undefined{\gdef\putwordSection{Section}}\fi% \ifx\putwordTableofContents\undefined{\gdef\putwordTableofContents{Table of Contents}}\fi% \ifx\putwordShortContents\undefined{\gdef\putwordShortContents{Short Contents}}\fi% \ifx\putwordAppendix\undefined{\gdef\putwordAppendix{Appendix}}\fi% % Ignore a token. % \def\gobble#1{} \hyphenation{ap-pen-dix} \hyphenation{mini-buf-fer mini-buf-fers} \hyphenation{eshell} % Margin to add to right of even pages, to left of odd pages. \newdimen \bindingoffset \bindingoffset=0pt \newdimen \normaloffset \normaloffset=\hoffset \newdimen\pagewidth \newdimen\pageheight \pagewidth=\hsize \pageheight=\vsize % Sometimes it is convenient to have everything in the transcript file % and nothing on the terminal. We don't just call \tracingall here, % since that produces some useless output on the terminal. % \def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}% \def\loggingall{\tracingcommands2 \tracingstats2 \tracingpages1 \tracingoutput1 \tracinglostchars1 \tracingmacros2 \tracingparagraphs1 \tracingrestores1 \showboxbreadth\maxdimen\showboxdepth\maxdimen }% %---------------------Begin change----------------------- % %%%% For @cropmarks command. % Dimensions to add cropmarks at corners Added by P. A. MacKay, 12 Nov. 1986 % \newdimen\cornerlong \newdimen\cornerthick \newdimen \topandbottommargin \newdimen \outerhsize \newdimen \outervsize \cornerlong=1pc\cornerthick=.3pt % These set size of cropmarks \outerhsize=7in %\outervsize=9.5in % Alternative @smallbook page size is 9.25in \outervsize=9.25in \topandbottommargin=.75in % %---------------------End change----------------------- % \onepageout takes a vbox as an argument. Note that \pagecontents % does insertions itself, but you have to call it yourself. \chardef\PAGE=255 \output={\onepageout{\pagecontents\PAGE}} \def\onepageout#1{\hoffset=\normaloffset \ifodd\pageno \advance\hoffset by \bindingoffset \else \advance\hoffset by -\bindingoffset\fi {\escapechar=`\\\relax % makes sure backslash is used in output files. \shipout\vbox{{\let\hsize=\pagewidth \makeheadline} \pagebody{#1}% {\let\hsize=\pagewidth \makefootline}}}% \advancepageno \ifnum\outputpenalty>-20000 \else\dosupereject\fi} %%%% For @cropmarks command %%%% % Here is a modification of the main output routine for Near East Publications % This provides right-angle cropmarks at all four corners. % The contents of the page are centerlined into the cropmarks, % and any desired binding offset is added as an \hskip on either % site of the centerlined box. (P. A. MacKay, 12 November, 1986) % \def\croppageout#1{\hoffset=0pt % make sure this doesn't mess things up {\escapechar=`\\\relax % makes sure backslash is used in output files. \shipout \vbox to \outervsize{\hsize=\outerhsize \vbox{\line{\ewtop\hfill\ewtop}} \nointerlineskip \line{\vbox{\moveleft\cornerthick\nstop} \hfill \vbox{\moveright\cornerthick\nstop}} \vskip \topandbottommargin \centerline{\ifodd\pageno\hskip\bindingoffset\fi \vbox{ {\let\hsize=\pagewidth \makeheadline} \pagebody{#1} {\let\hsize=\pagewidth \makefootline}} \ifodd\pageno\else\hskip\bindingoffset\fi} \vskip \topandbottommargin plus1fill minus1fill \boxmaxdepth\cornerthick \line{\vbox{\moveleft\cornerthick\nsbot} \hfill \vbox{\moveright\cornerthick\nsbot}} \nointerlineskip \vbox{\line{\ewbot\hfill\ewbot}} }} \advancepageno \ifnum\outputpenalty>-20000 \else\dosupereject\fi} % % Do @cropmarks to get crop marks \def\cropmarks{\let\onepageout=\croppageout } \def\pagebody#1{\vbox to\pageheight{\boxmaxdepth=\maxdepth #1}} {\catcode`\@ =11 \gdef\pagecontents#1{\ifvoid\topins\else\unvbox\topins\fi \dimen@=\dp#1 \unvbox#1 \ifvoid\footins\else\vskip\skip\footins\footnoterule \unvbox\footins\fi \ifr@ggedbottom \kern-\dimen@ \vfil \fi} } % % Here are the rules for the cropmarks. Note that they are % offset so that the space between them is truly \outerhsize or \outervsize % (P. A. MacKay, 12 November, 1986) % \def\ewtop{\vrule height\cornerthick depth0pt width\cornerlong} \def\nstop{\vbox {\hrule height\cornerthick depth\cornerlong width\cornerthick}} \def\ewbot{\vrule height0pt depth\cornerthick width\cornerlong} \def\nsbot{\vbox {\hrule height\cornerlong depth\cornerthick width\cornerthick}} % Parse an argument, then pass it to #1. The argument is the rest of % the input line (except we remove a trailing comment). #1 should be a % macro which expects an ordinary undelimited TeX argument. % \def\parsearg#1{% \let\next = #1% \begingroup \obeylines \futurelet\temp\parseargx } % If the next token is an obeyed space (from an @example environment or % the like), remove it and recurse. Otherwise, we're done. \def\parseargx{% % \obeyedspace is defined far below, after the definition of \sepspaces. \ifx\obeyedspace\temp \expandafter\parseargdiscardspace \else \expandafter\parseargline \fi } % Remove a single space (as the delimiter token to the macro call). {\obeyspaces % \gdef\parseargdiscardspace {\futurelet\temp\parseargx}} {\obeylines % \gdef\parseargline#1^^M{% \endgroup % End of the group started in \parsearg. % % First remove any @c comment, then any @comment. % Result of each macro is put in \toks0. \argremovec #1\c\relax % \expandafter\argremovecomment \the\toks0 \comment\relax % % % Call the caller's macro, saved as \next in \parsearg. \expandafter\next\expandafter{\the\toks0}% }% } % Since all \c{,omment} does is throw away the argument, we can let TeX % do that for us. The \relax here is matched by the \relax in the call % in \parseargline; it could be more or less anything, its purpose is % just to delimit the argument to the \c. \def\argremovec#1\c#2\relax{\toks0 = {#1}} \def\argremovecomment#1\comment#2\relax{\toks0 = {#1}} % \argremovec{,omment} might leave us with trailing spaces, though; e.g., % @end itemize @c foo % will have two active spaces as part of the argument with the % `itemize'. Here we remove all active spaces from #1, and assign the % result to \toks0. % % This loses if there are any *other* active characters besides spaces % in the argument -- _ ^ +, for example -- since they get expanded. % Fortunately, Texinfo does not define any such commands. (If it ever % does, the catcode of the characters in questionwill have to be changed % here.) But this means we cannot call \removeactivespaces as part of % \argremovec{,omment}, since @c uses \parsearg, and thus the argument % that \parsearg gets might well have any character at all in it. % \def\removeactivespaces#1{% \begingroup \ignoreactivespaces \edef\temp{#1}% \global\toks0 = \expandafter{\temp}% \endgroup } % Change the active space to expand to nothing. % \begingroup \obeyspaces \gdef\ignoreactivespaces{\obeyspaces\let =\empty} \endgroup \def\flushcr{\ifx\par\lisppar \def\next##1{}\else \let\next=\relax \fi \next} %% These are used to keep @begin/@end levels from running away %% Call \inENV within environments (after a \begingroup) \newif\ifENV \ENVfalse \def\inENV{\ifENV\relax\else\ENVtrue\fi} \def\ENVcheck{% \ifENV\errmessage{Still within an environment. Type Return to continue.} \endgroup\fi} % This is not perfect, but it should reduce lossage % @begin foo is the same as @foo, for now. \newhelp\EMsimple{Type to continue.} \outer\def\begin{\parsearg\beginxxx} \def\beginxxx #1{% \expandafter\ifx\csname #1\endcsname\relax {\errhelp=\EMsimple \errmessage{Undefined command @begin #1}}\else \csname #1\endcsname\fi} % @end foo executes the definition of \Efoo. % \def\end{\parsearg\endxxx} \def\endxxx #1{% \removeactivespaces{#1}% \edef\endthing{\the\toks0}% % \expandafter\ifx\csname E\endthing\endcsname\relax \expandafter\ifx\csname \endthing\endcsname\relax % There's no \foo, i.e., no ``environment'' foo. \errhelp = \EMsimple \errmessage{Undefined command `@end \endthing'}% \else \unmatchedenderror\endthing \fi \else % Everything's ok; the right environment has been started. \csname E\endthing\endcsname \fi } % There is an environment #1, but it hasn't been started. Give an error. % \def\unmatchedenderror#1{% \errhelp = \EMsimple \errmessage{This `@end #1' doesn't have a matching `@#1'}% } % Define the control sequence \E#1 to give an unmatched @end error. % \def\defineunmatchedend#1{% \expandafter\def\csname E#1\endcsname{\unmatchedenderror{#1}}% } % Single-spacing is done by various environments (specifically, in % \nonfillstart and \quotations). \newskip\singlespaceskip \singlespaceskip = \baselineskip \def\singlespace{% % Why was this kern here? It messes up equalizing space above and below % environments. --karl, 6may93 %{\advance \baselineskip by -\singlespaceskip %\kern \baselineskip}% \baselineskip=\singlespaceskip } %% Simple single-character @ commands % @@ prints an @ % Kludge this until the fonts are right (grr). \def\@{{\tt \char '100}} % This is turned off because it was never documented % and you can use @w{...} around a quote to suppress ligatures. %% Define @` and @' to be the same as ` and ' %% but suppressing ligatures. %\def\`{{`}} %\def\'{{'}} % Used to generate quoted braces. \def\mylbrace {{\tt \char '173}} \def\myrbrace {{\tt \char '175}} \let\{=\mylbrace \let\}=\myrbrace % @: forces normal size whitespace following. \def\:{\spacefactor=1000 } % @* forces a line break. \def\*{\hfil\break\hbox{}\ignorespaces} % @. is an end-of-sentence period. \def\.{.\spacefactor=3000 } % @w prevents a word break. Without the \leavevmode, @w at the % beginning of a paragraph, when TeX is still in vertical mode, would % produce a whole line of output instead of starting the paragraph. \def\w#1{\leavevmode\hbox{#1}} % @group ... @end group forces ... to be all on one page, by enclosing % it in a TeX vbox. We use \vtop instead of \vbox to construct the box % to keep its height that of a normal line. According to the rules for % \topskip (p.114 of the TeXbook), the glue inserted is % max (\topskip - \ht (first item), 0). If that height is large, % therefore, no glue is inserted, and the space between the headline and % the text is small, which looks bad. % \def\group{\begingroup \ifnum\catcode13=\active \else \errhelp = \groupinvalidhelp \errmessage{@group invalid in context where filling is enabled}% \fi % % The \vtop we start below produces a box with normal height and large % depth; thus, TeX puts \baselineskip glue before it, and (when the % next line of text is done) \lineskip glue after it. (See p.82 of % the TeXbook.) Thus, space below is not quite equal to space % above. But it's pretty close. \def\Egroup{% \egroup % End the \vtop. \endgroup % End the \group. }% % \vtop\bgroup % We have to put a strut on the last line in case the @group is in % the midst of an example, rather than completely enclosing it. % Otherwise, the interline space between the last line of the group % and the first line afterwards is too small. But we can't put the % strut in \Egroup, since there it would be on a line by itself. % Hence this just inserts a strut at the beginning of each line. \everypar = {\strut}% % % Since we have a strut on every line, we don't need any of TeX's % normal interline spacing. \offinterlineskip % % OK, but now we have to do something about blank % lines in the input in @example-like environments, which normally % just turn into \lisppar, which will insert no space now that we've % turned off the interline space. Simplest is to make them be an % empty paragraph. \ifx\par\lisppar \edef\par{\leavevmode \par}% % % Reset ^^M's definition to new definition of \par. \obeylines \fi % % We do @comment here in case we are called inside an environment, % such as @example, where each end-of-line in the input causes an % end-of-line in the output. We don't want the end-of-line after % the `@group' to put extra space in the output. Since @group % should appear on a line by itself (according to the Texinfo % manual), we don't worry about eating any user text. \comment } % % TeX puts in an \escapechar (i.e., `@') at the beginning of the help % message, so this ends up printing `@group can only ...'. % \newhelp\groupinvalidhelp{% group can only be used in environments such as @example,^^J% where each line of input produces a line of output.} % @need space-in-mils % forces a page break if there is not space-in-mils remaining. \newdimen\mil \mil=0.001in \def\need{\parsearg\needx} % Old definition--didn't work. %\def\needx #1{\par % %% This method tries to make TeX break the page naturally %% if the depth of the box does not fit. %{\baselineskip=0pt% %\vtop to #1\mil{\vfil}\kern -#1\mil\penalty 10000 %\prevdepth=-1000pt %}} \def\needx#1{% % Go into vertical mode, so we don't make a big box in the middle of a % paragraph. \par % % Don't add any leading before our big empty box, but allow a page % break, since the best break might be right here. \allowbreak \nointerlineskip \vtop to #1\mil{\vfil}% % % TeX does not even consider page breaks if a penalty added to the % main vertical list is 10000 or more. But in order to see if the % empty box we just added fits on the page, we must make it consider % page breaks. On the other hand, we don't want to actually break the % page after the empty box. So we use a penalty of 9999. % % There is an extremely small chance that TeX will actually break the % page at this \penalty, if there are no other feasible breakpoints in % sight. (If the user is using lots of big @group commands, which % almost-but-not-quite fill up a page, TeX will have a hard time doing % good page breaking, for example.) However, I could not construct an % example where a page broke at this \penalty; if it happens in a real % document, then we can reconsider our strategy. \penalty9999 % % Back up by the size of the box, whether we did a page break or not. \kern -#1\mil % % Do not allow a page break right after this kern. \nobreak } % @br forces paragraph break \let\br = \par % @dots{} output some dots \def\dots{.$\,$.$\,$.\:} % @page forces the start of a new page \def\page{\par\vfill\supereject} % @exdent text.... % outputs text on separate line in roman font, starting at standard page margin % This records the amount of indent in the innermost environment. % That's how much \exdent should take out. \newskip\exdentamount % This defn is used inside fill environments such as @defun. \def\exdent{\parsearg\exdentyyy} \def\exdentyyy #1{{\hfil\break\hbox{\kern -\exdentamount{\rm#1}}\hfil\break}} % This defn is used inside nofill environments such as @example. \def\nofillexdent{\parsearg\nofillexdentyyy} \def\nofillexdentyyy #1{{\advance \leftskip by -\exdentamount \leftline{\hskip\leftskip{\rm#1}}}} %\hbox{{\rm#1}}\hfil\break}} % @include file insert text of that file as input. \def\include{\parsearg\includezzz} %Use \input\thisfile to avoid blank after \input, which may be an active %char (in which case the blank would become the \input argument). %The grouping keeps the value of \thisfile correct even when @include %is nested. \def\includezzz #1{\begingroup \def\thisfile{#1}\input\thisfile \endgroup} \def\thisfile{} % @center line outputs that line, centered \def\center{\parsearg\centerzzz} \def\centerzzz #1{{\advance\hsize by -\leftskip \advance\hsize by -\rightskip \centerline{#1}}} % @sp n outputs n lines of vertical space \def\sp{\parsearg\spxxx} \def\spxxx #1{\par \vskip #1\baselineskip} % @comment ...line which is ignored... % @c is the same as @comment % @ignore ... @end ignore is another way to write a comment \def\comment{\catcode 64=\other \catcode 123=\other \catcode 125=\other% \parsearg \commentxxx} \def\commentxxx #1{\catcode 64=0 \catcode 123=1 \catcode 125=2 } \let\c=\comment % Prevent errors for section commands. % Used in @ignore and in failing conditionals. \def\ignoresections{% \let\chapter=\relax \let\unnumbered=\relax \let\top=\relax \let\unnumberedsec=\relax \let\unnumberedsection=\relax \let\unnumberedsubsec=\relax \let\unnumberedsubsection=\relax \let\unnumberedsubsubsec=\relax \let\unnumberedsubsubsection=\relax \let\section=\relax \let\subsec=\relax \let\subsubsec=\relax \let\subsection=\relax \let\subsubsection=\relax \let\appendix=\relax \let\appendixsec=\relax \let\appendixsection=\relax \let\appendixsubsec=\relax \let\appendixsubsection=\relax \let\appendixsubsubsec=\relax \let\appendixsubsubsection=\relax \let\contents=\relax \let\smallbook=\relax \let\titlepage=\relax } % Used in nested conditionals, where we have to parse the Texinfo source % and so want to turn off most commands, in case they are used % incorrectly. % \def\ignoremorecommands{% \let\defcv = \relax \let\deffn = \relax \let\deffnx = \relax \let\defindex = \relax \let\defivar = \relax \let\defmac = \relax \let\defmethod = \relax \let\defop = \relax \let\defopt = \relax \let\defspec = \relax \let\deftp = \relax \let\deftypefn = \relax \let\deftypefun = \relax \let\deftypevar = \relax \let\deftypevr = \relax \let\defun = \relax \let\defvar = \relax \let\defvr = \relax \let\ref = \relax \let\xref = \relax \let\printindex = \relax \let\pxref = \relax \let\settitle = \relax \let\include = \relax \let\lowersections = \relax \let\down = \relax \let\raisesections = \relax \let\up = \relax \let\set = \relax \let\clear = \relax \let\item = \relax \let\message = \relax } % Ignore @ignore ... @end ignore. % \def\ignore{\doignore{ignore}} % Also ignore @ifinfo, @menu, and @direntry text. % \def\ifinfo{\doignore{ifinfo}} \def\menu{\doignore{menu}} \def\direntry{\doignore{direntry}} % Ignore text until a line `@end #1'. % \def\doignore#1{\begingroup % Don't complain about control sequences we have declared \outer. \ignoresections % % Define a command to swallow text until we reach `@end #1'. \long\def\doignoretext##1\end #1{\enddoignore}% % % Make sure that spaces turn into tokens that match what \doignoretext wants. \catcode32 = 10 % % And now expand that command. \doignoretext } % What we do to finish off ignored text. % \def\enddoignore{\endgroup\ignorespaces}% \newif\ifwarnedobs\warnedobsfalse \def\obstexwarn{% \ifwarnedobs\relax\else % We need to warn folks that they may have trouble with TeX 3.0. % This uses \immediate\write16 rather than \message to get newlines. \immediate\write16{} \immediate\write16{***WARNING*** for users of Unix TeX 3.0!} \immediate\write16{This manual trips a bug in TeX version 3.0 (tex hangs).} \immediate\write16{If you are running another version of TeX, relax.} \immediate\write16{If you are running Unix TeX 3.0, kill this TeX process.} \immediate\write16{ Then upgrade your TeX installation if you can.} \immediate\write16{If you are stuck with version 3.0, run the} \immediate\write16{ script ``tex3patch'' from the Texinfo distribution} \immediate\write16{ to use a workaround.} \immediate\write16{} \warnedobstrue \fi } % **In TeX 3.0, setting text in \nullfont hangs tex. For a % workaround (which requires the file ``dummy.tfm'' to be installed), % uncomment the following line: %%%%%\font\nullfont=dummy\let\obstexwarn=\relax % Ignore text, except that we keep track of conditional commands for % purposes of nesting, up to an `@end #1' command. % \def\nestedignore#1{% \obstexwarn % We must actually expand the ignored text to look for the @end % command, so that nested ignore constructs work. Thus, we put the % text into a \vbox and then do nothing with the result. To minimize % the change of memory overflow, we follow the approach outlined on % page 401 of the TeXbook: make the current font be a dummy font. % \setbox0 = \vbox\bgroup % Don't complain about control sequences we have declared \outer. \ignoresections % % Define `@end #1' to end the box, which will in turn undefine the % @end command again. \expandafter\def\csname E#1\endcsname{\egroup\ignorespaces}% % % We are going to be parsing Texinfo commands. Most cause no % trouble when they are used incorrectly, but some commands do % complicated argument parsing or otherwise get confused, so we % undefine them. % % We can't do anything about stray @-signs, unfortunately; % they'll produce `undefined control sequence' errors. \ignoremorecommands % % Set the current font to be \nullfont, a TeX primitive, and define % all the font commands to also use \nullfont. We don't use % dummy.tfm, as suggested in the TeXbook, because not all sites % might have that installed. Therefore, math mode will still % produce output, but that should be an extremely small amount of % stuff compared to the main input. % \nullfont \let\tenrm = \nullfont \let\tenit = \nullfont \let\tensl = \nullfont \let\tenbf = \nullfont \let\tentt = \nullfont \let\smallcaps = \nullfont \let\tensf = \nullfont % Similarly for index fonts (mostly for their use in % smallexample) \let\indrm = \nullfont \let\indit = \nullfont \let\indsl = \nullfont \let\indbf = \nullfont \let\indtt = \nullfont \let\indsc = \nullfont \let\indsf = \nullfont % % Don't complain when characters are missing from the fonts. \tracinglostchars = 0 % % Don't bother to do space factor calculations. \frenchspacing % % Don't report underfull hboxes. \hbadness = 10000 % % Do minimal line-breaking. \pretolerance = 10000 % % Do not execute instructions in @tex \def\tex{\doignore{tex}} } % @set VAR sets the variable VAR to an empty value. % @set VAR REST-OF-LINE sets VAR to the value REST-OF-LINE. % % Since we want to separate VAR from REST-OF-LINE (which might be % empty), we can't just use \parsearg; we have to insert a space of our % own to delimit the rest of the line, and then take it out again if we % didn't need it. % \def\set{\parsearg\setxxx} \def\setxxx#1{\setyyy#1 \endsetyyy} \def\setyyy#1 #2\endsetyyy{% \def\temp{#2}% \ifx\temp\empty \global\expandafter\let\csname SET#1\endcsname = \empty \else \setzzz{#1}#2\endsetzzz % Remove the trailing space \setxxx inserted. \fi } \def\setzzz#1#2 \endsetzzz{\expandafter\xdef\csname SET#1\endcsname{#2}} % @clear VAR clears (i.e., unsets) the variable VAR. % \def\clear{\parsearg\clearxxx} \def\clearxxx#1{\global\expandafter\let\csname SET#1\endcsname=\relax} % @value{foo} gets the text saved in variable foo. % \def\value#1{\expandafter \ifx\csname SET#1\endcsname\relax {\{No value for ``#1''\}} \else \csname SET#1\endcsname \fi} % @ifset VAR ... @end ifset reads the `...' iff VAR has been defined % with @set. % \def\ifset{\parsearg\ifsetxxx} \def\ifsetxxx #1{% \expandafter\ifx\csname SET#1\endcsname\relax \expandafter\ifsetfail \else \expandafter\ifsetsucceed \fi } \def\ifsetsucceed{\conditionalsucceed{ifset}} \def\ifsetfail{\nestedignore{ifset}} \defineunmatchedend{ifset} % @ifclear VAR ... @end ifclear reads the `...' iff VAR has never been % defined with @set, or has been undefined with @clear. % \def\ifclear{\parsearg\ifclearxxx} \def\ifclearxxx #1{% \expandafter\ifx\csname SET#1\endcsname\relax \expandafter\ifclearsucceed \else \expandafter\ifclearfail \fi } \def\ifclearsucceed{\conditionalsucceed{ifclear}} \def\ifclearfail{\nestedignore{ifclear}} \defineunmatchedend{ifclear} % @iftex always succeeds; we read the text following, through @end % iftex). But `@end iftex' should be valid only after an @iftex. % \def\iftex{\conditionalsucceed{iftex}} \defineunmatchedend{iftex} % We can't just want to start a group at @iftex (for example) and end it % at @end iftex, since then @set commands inside the conditional have no % effect (they'd get reverted at the end of the group). So we must % define \Eiftex to redefine itself to be its previous value. (We can't % just define it to fail again with an ``unmatched end'' error, since % the @ifset might be nested.) % \def\conditionalsucceed#1{% \edef\temp{% % Remember the current value of \E#1. \let\nece{prevE#1} = \nece{E#1}% % % At the `@end #1', redefine \E#1 to be its previous value. \def\nece{E#1}{\let\nece{E#1} = \nece{prevE#1}}% }% \temp } % We need to expand lots of \csname's, but we don't want to expand the % control sequences after we've constructed them. % \def\nece#1{\expandafter\noexpand\csname#1\endcsname} % @asis just yields its argument. Used with @table, for example. % \def\asis#1{#1} % @math means output in math mode. % We don't use $'s directly in the definition of \math because control % sequences like \math are expanded when the toc file is written. Then, % we read the toc file back, the $'s will be normal characters (as they % should be, according to the definition of Texinfo). So we must use a % control sequence to switch into and out of math mode. % % This isn't quite enough for @math to work properly in indices, but it % seems unlikely it will ever be needed there. % \let\implicitmath = $ \def\math#1{\implicitmath #1\implicitmath} % @bullet and @minus need the same treatment as @math, just above. \def\bullet{\implicitmath\ptexbullet\implicitmath} \def\minus{\implicitmath-\implicitmath} \def\node{\ENVcheck\parsearg\nodezzz} \def\nodezzz#1{\nodexxx [#1,]} \def\nodexxx[#1,#2]{\gdef\lastnode{#1}} \let\nwnode=\node \let\lastnode=\relax \def\donoderef{\ifx\lastnode\relax\else \expandafter\expandafter\expandafter\setref{\lastnode}\fi \let\lastnode=\relax} \def\unnumbnoderef{\ifx\lastnode\relax\else \expandafter\expandafter\expandafter\unnumbsetref{\lastnode}\fi \let\lastnode=\relax} \def\appendixnoderef{\ifx\lastnode\relax\else \expandafter\expandafter\expandafter\appendixsetref{\lastnode}\fi \let\lastnode=\relax} \let\refill=\relax % @setfilename is done at the beginning of every texinfo file. % So open here the files we need to have open while reading the input. % This makes it possible to make a .fmt file for texinfo. \def\setfilename{% \readauxfile \opencontents \openindices \fixbackslash % Turn off hack to swallow `\input texinfo'. \global\let\setfilename=\comment % Ignore extra @setfilename cmds. \comment % Ignore the actual filename. } \outer\def\bye{\pagealignmacro\tracingstats=1\ptexend} \def\inforef #1{\inforefzzz #1,,,,**} \def\inforefzzz #1,#2,#3,#4**{\putwordSee{} \putwordInfo{} \putwordfile{} \file{\ignorespaces #3{}}, node \samp{\ignorespaces#1{}}} \message{fonts,} % Font-change commands. % Texinfo supports the sans serif font style, which plain TeX does not. % So we set up a \sf analogous to plain's \rm, etc. \newfam\sffam \def\sf{\fam=\sffam \tensf} \let\li = \sf % Sometimes we call it \li, not \sf. %% Try out Computer Modern fonts at \magstephalf \let\mainmagstep=\magstephalf \ifx\bigger\relax \let\mainmagstep=\magstep1 \font\textrm=cmr12 \font\texttt=cmtt12 \else \font\textrm=cmr10 scaled \mainmagstep \font\texttt=cmtt10 scaled \mainmagstep \fi % Instead of cmb10, you many want to use cmbx10. % cmbx10 is a prettier font on its own, but cmb10 % looks better when embedded in a line with cmr10. \font\textbf=cmb10 scaled \mainmagstep \font\textit=cmti10 scaled \mainmagstep \font\textsl=cmsl10 scaled \mainmagstep \font\textsf=cmss10 scaled \mainmagstep \font\textsc=cmcsc10 scaled \mainmagstep \font\texti=cmmi10 scaled \mainmagstep \font\textsy=cmsy10 scaled \mainmagstep % A few fonts for @defun, etc. \font\defbf=cmbx10 scaled \magstep1 %was 1314 \font\deftt=cmtt10 scaled \magstep1 \def\df{\let\tentt=\deftt \let\tenbf = \defbf \bf} % Fonts for indices and small examples. % We actually use the slanted font rather than the italic, % because texinfo normally uses the slanted fonts for that. % Do not make many font distinctions in general in the index, since they % aren't very useful. \font\ninett=cmtt9 \font\indrm=cmr9 \font\indit=cmsl9 \let\indsl=\indit \let\indtt=\ninett \let\indsf=\indrm \let\indbf=\indrm \let\indsc=\indrm \font\indi=cmmi9 \font\indsy=cmsy9 % Fonts for headings \font\chaprm=cmbx12 scaled \magstep2 \font\chapit=cmti12 scaled \magstep2 \font\chapsl=cmsl12 scaled \magstep2 \font\chaptt=cmtt12 scaled \magstep2 \font\chapsf=cmss12 scaled \magstep2 \let\chapbf=\chaprm \font\chapsc=cmcsc10 scaled\magstep3 \font\chapi=cmmi12 scaled \magstep2 \font\chapsy=cmsy10 scaled \magstep3 \font\secrm=cmbx12 scaled \magstep1 \font\secit=cmti12 scaled \magstep1 \font\secsl=cmsl12 scaled \magstep1 \font\sectt=cmtt12 scaled \magstep1 \font\secsf=cmss12 scaled \magstep1 \font\secbf=cmbx12 scaled \magstep1 \font\secsc=cmcsc10 scaled\magstep2 \font\seci=cmmi12 scaled \magstep1 \font\secsy=cmsy10 scaled \magstep2 % \font\ssecrm=cmbx10 scaled \magstep1 % This size an font looked bad. % \font\ssecit=cmti10 scaled \magstep1 % The letters were too crowded. % \font\ssecsl=cmsl10 scaled \magstep1 % \font\ssectt=cmtt10 scaled \magstep1 % \font\ssecsf=cmss10 scaled \magstep1 %\font\ssecrm=cmb10 scaled 1315 % Note the use of cmb rather than cmbx. %\font\ssecit=cmti10 scaled 1315 % Also, the size is a little larger than %\font\ssecsl=cmsl10 scaled 1315 % being scaled magstep1. %\font\ssectt=cmtt10 scaled 1315 %\font\ssecsf=cmss10 scaled 1315 %\let\ssecbf=\ssecrm \font\ssecrm=cmbx12 scaled \magstephalf \font\ssecit=cmti12 scaled \magstephalf \font\ssecsl=cmsl12 scaled \magstephalf \font\ssectt=cmtt12 scaled \magstephalf \font\ssecsf=cmss12 scaled \magstephalf \font\ssecbf=cmbx12 scaled \magstephalf \font\ssecsc=cmcsc10 scaled \magstep1 \font\sseci=cmmi12 scaled \magstephalf \font\ssecsy=cmsy10 scaled \magstep1 % The smallcaps and symbol fonts should actually be scaled \magstep1.5, % but that is not a standard magnification. % Fonts for title page: \font\titlerm = cmbx12 scaled \magstep3 \let\authorrm = \secrm % In order for the font changes to affect most math symbols and letters, % we have to define the \textfont of the standard families. Since % texinfo doesn't allow for producing subscripts and superscripts, we % don't bother to reset \scriptfont and \scriptscriptfont (which would % also require loading a lot more fonts). % \def\resetmathfonts{% \textfont0 = \tenrm \textfont1 = \teni \textfont2 = \tensy \textfont\itfam = \tenit \textfont\slfam = \tensl \textfont\bffam = \tenbf \textfont\ttfam = \tentt \textfont\sffam = \tensf } % The font-changing commands redefine the meanings of \tenSTYLE, instead % of just \STYLE. We do this so that font changes will continue to work % in math mode, where it is the current \fam that is relevant in most % cases, not the current. Plain TeX does, for example, % \def\bf{\fam=\bffam \tenbf} By redefining \tenbf, we obviate the need % to redefine \bf itself. \def\textfonts{% \let\tenrm=\textrm \let\tenit=\textit \let\tensl=\textsl \let\tenbf=\textbf \let\tentt=\texttt \let\smallcaps=\textsc \let\tensf=\textsf \let\teni=\texti \let\tensy=\textsy \resetmathfonts} \def\chapfonts{% \let\tenrm=\chaprm \let\tenit=\chapit \let\tensl=\chapsl \let\tenbf=\chapbf \let\tentt=\chaptt \let\smallcaps=\chapsc \let\tensf=\chapsf \let\teni=\chapi \let\tensy=\chapsy \resetmathfonts} \def\secfonts{% \let\tenrm=\secrm \let\tenit=\secit \let\tensl=\secsl \let\tenbf=\secbf \let\tentt=\sectt \let\smallcaps=\secsc \let\tensf=\secsf \let\teni=\seci \let\tensy=\secsy \resetmathfonts} \def\subsecfonts{% \let\tenrm=\ssecrm \let\tenit=\ssecit \let\tensl=\ssecsl \let\tenbf=\ssecbf \let\tentt=\ssectt \let\smallcaps=\ssecsc \let\tensf=\ssecsf \let\teni=\sseci \let\tensy=\ssecsy \resetmathfonts} \def\indexfonts{% \let\tenrm=\indrm \let\tenit=\indit \let\tensl=\indsl \let\tenbf=\indbf \let\tentt=\indtt \let\smallcaps=\indsc \let\tensf=\indsf \let\teni=\indi \let\tensy=\indsy \resetmathfonts} % Set up the default fonts, so we can use them for creating boxes. % \textfonts % Count depth in font-changes, for error checks \newcount\fontdepth \fontdepth=0 % Fonts for short table of contents. \font\shortcontrm=cmr12 \font\shortcontbf=cmbx12 \font\shortcontsl=cmsl12 %% Add scribe-like font environments, plus @l for inline lisp (usually sans %% serif) and @ii for TeX italic % \smartitalic{ARG} outputs arg in italics, followed by an italic correction % unless the following character is such as not to need one. \def\smartitalicx{\ifx\next,\else\ifx\next-\else\ifx\next.\else\/\fi\fi\fi} \def\smartitalic#1{{\sl #1}\futurelet\next\smartitalicx} \let\i=\smartitalic \let\var=\smartitalic \let\dfn=\smartitalic \let\emph=\smartitalic \let\cite=\smartitalic \def\b#1{{\bf #1}} \let\strong=\b % We can't just use \exhyphenpenalty, because that only has effect at % the end of a paragraph. Restore normal hyphenation at the end of the % group within which \nohyphenation is presumably called. % \def\nohyphenation{\hyphenchar\font = -1 \aftergroup\restorehyphenation} \def\restorehyphenation{\hyphenchar\font = `- } \def\t#1{% {\tt \nohyphenation \rawbackslash \frenchspacing #1}% \null } \let\ttfont = \t %\def\samp #1{`{\tt \rawbackslash \frenchspacing #1}'\null} \def\samp #1{`\tclose{#1}'\null} \def\key #1{{\tt \nohyphenation \uppercase{#1}}\null} \def\ctrl #1{{\tt \rawbackslash \hat}#1} \let\file=\samp % @code is a modification of @t, % which makes spaces the same size as normal in the surrounding text. \def\tclose#1{% {% % Change normal interword space to be same as for the current font. \spaceskip = \fontdimen2\font % % Switch to typewriter. \tt % % But `\ ' produces the large typewriter interword space. \def\ {{\spaceskip = 0pt{} }}% % % Turn off hyphenation. \nohyphenation % \rawbackslash \frenchspacing #1% }% \null } % We *must* turn on hyphenation at `-' and `_' in \code. % Otherwise, it is too hard to avoid overful hboxes % in the Emacs manual, the Library manual, etc. % Unfortunately, TeX uses one parameter (\hyphenchar) to control % both hyphenation at - and hyphenation within words. % We must therefore turn them both off (\tclose does that) % and arrange explicitly to hyphenate an a dash. % -- rms. { \catcode`\-=\active \catcode`\_=\active \global\def\code{\begingroup \catcode`\-=\active \let-\codedash \catcode`\_=\active \let_\codeunder \codex} % The following is used by \doprintindex to insure that long function names % wrap around. It is necessary for - and _ to be active before the index is % read from the file, as \entry parses the arguments long before \code is % ever called. -- mycroft \global\def\indexbreaks{\catcode`\-=\active \let-\realdash \catcode`\_=\active \let_\realunder} } \def\realdash{-} \def\realunder{_} \def\codedash{-\discretionary{}{}{}} \def\codeunder{\normalunderscore\discretionary{}{}{}} \def\codex #1{\tclose{#1}\endgroup} %\let\exp=\tclose %Was temporary % @kbd is like @code, except that if the argument is just one @key command, % then @kbd has no effect. \def\xkey{\key} \def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}% \ifx\one\xkey\ifx\threex\three \key{#2}% \else\tclose{\look}\fi \else\tclose{\look}\fi} % Typeset a dimension, e.g., `in' or `pt'. The only reason for the % argument is to make the input look right: @dmn{pt} instead of % @dmn{}pt. % \def\dmn#1{\thinspace #1} \def\kbd#1{\def\look{#1}\expandafter\kbdfoo\look??\par} \def\l#1{{\li #1}\null} % \def\r#1{{\rm #1}} % roman font % Use of \lowercase was suggested. \def\sc#1{{\smallcaps#1}} % smallcaps font \def\ii#1{{\it #1}} % italic font \message{page headings,} \newskip\titlepagetopglue \titlepagetopglue = 1.5in \newskip\titlepagebottomglue \titlepagebottomglue = 2pc % First the title page. Must do @settitle before @titlepage. \def\titlefont#1{{\titlerm #1}} \newif\ifseenauthor \newif\iffinishedtitlepage \def\shorttitlepage{\parsearg\shorttitlepagezzz} \def\shorttitlepagezzz #1{\begingroup\hbox{}\vskip 1.5in \chaprm \centerline{#1}% \endgroup\page\hbox{}\page} \def\titlepage{\begingroup \parindent=0pt \textfonts \let\subtitlerm=\tenrm % I deinstalled the following change because \cmr12 is undefined. % This change was not in the ChangeLog anyway. --rms. % \let\subtitlerm=\cmr12 \def\subtitlefont{\subtitlerm \normalbaselineskip = 13pt \normalbaselines}% % \def\authorfont{\authorrm \normalbaselineskip = 16pt \normalbaselines}% % % Leave some space at the very top of the page. \vglue\titlepagetopglue % % Now you can print the title using @title. \def\title{\parsearg\titlezzz}% \def\titlezzz##1{\leftline{\titlefont{##1}} % print a rule at the page bottom also. \finishedtitlepagefalse \vskip4pt \hrule height 4pt width \hsize \vskip4pt}% % No rule at page bottom unless we print one at the top with @title. \finishedtitlepagetrue % % Now you can put text using @subtitle. \def\subtitle{\parsearg\subtitlezzz}% \def\subtitlezzz##1{{\subtitlefont \rightline{##1}}}% % % @author should come last, but may come many times. \def\author{\parsearg\authorzzz}% \def\authorzzz##1{\ifseenauthor\else\vskip 0pt plus 1filll\seenauthortrue\fi {\authorfont \leftline{##1}}}% % % Most title ``pages'' are actually two pages long, with space % at the top of the second. We don't want the ragged left on the second. \let\oldpage = \page \def\page{% \iffinishedtitlepage\else \finishtitlepage \fi \oldpage \let\page = \oldpage \hbox{}}% % \def\page{\oldpage \hbox{}} } \def\Etitlepage{% \iffinishedtitlepage\else \finishtitlepage \fi % It is important to do the page break before ending the group, % because the headline and footline are only empty inside the group. % If we use the new definition of \page, we always get a blank page % after the title page, which we certainly don't want. \oldpage \endgroup \HEADINGSon } \def\finishtitlepage{% \vskip4pt \hrule height 2pt width \hsize \vskip\titlepagebottomglue \finishedtitlepagetrue } %%% Set up page headings and footings. \let\thispage=\folio \newtoks \evenheadline % Token sequence for heading line of even pages \newtoks \oddheadline % Token sequence for heading line of odd pages \newtoks \evenfootline % Token sequence for footing line of even pages \newtoks \oddfootline % Token sequence for footing line of odd pages % Now make Tex use those variables \headline={{\textfonts\rm \ifodd\pageno \the\oddheadline \else \the\evenheadline \fi}} \footline={{\textfonts\rm \ifodd\pageno \the\oddfootline \else \the\evenfootline \fi}\HEADINGShook} \let\HEADINGShook=\relax % Commands to set those variables. % For example, this is what @headings on does % @evenheading @thistitle|@thispage|@thischapter % @oddheading @thischapter|@thispage|@thistitle % @evenfooting @thisfile|| % @oddfooting ||@thisfile \def\evenheading{\parsearg\evenheadingxxx} \def\oddheading{\parsearg\oddheadingxxx} \def\everyheading{\parsearg\everyheadingxxx} \def\evenfooting{\parsearg\evenfootingxxx} \def\oddfooting{\parsearg\oddfootingxxx} \def\everyfooting{\parsearg\everyfootingxxx} {\catcode`\@=0 % \gdef\evenheadingxxx #1{\evenheadingyyy #1@|@|@|@|\finish} \gdef\evenheadingyyy #1@|#2@|#3@|#4\finish{% \global\evenheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \gdef\oddheadingxxx #1{\oddheadingyyy #1@|@|@|@|\finish} \gdef\oddheadingyyy #1@|#2@|#3@|#4\finish{% \global\oddheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \gdef\everyheadingxxx #1{\everyheadingyyy #1@|@|@|@|\finish} \gdef\everyheadingyyy #1@|#2@|#3@|#4\finish{% \global\evenheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}} \global\oddheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \gdef\evenfootingxxx #1{\evenfootingyyy #1@|@|@|@|\finish} \gdef\evenfootingyyy #1@|#2@|#3@|#4\finish{% \global\evenfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \gdef\oddfootingxxx #1{\oddfootingyyy #1@|@|@|@|\finish} \gdef\oddfootingyyy #1@|#2@|#3@|#4\finish{% \global\oddfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \gdef\everyfootingxxx #1{\everyfootingyyy #1@|@|@|@|\finish} \gdef\everyfootingyyy #1@|#2@|#3@|#4\finish{% \global\evenfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}} \global\oddfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} % }% unbind the catcode of @. % @headings double turns headings on for double-sided printing. % @headings single turns headings on for single-sided printing. % @headings off turns them off. % @headings on same as @headings double, retained for compatibility. % @headings after turns on double-sided headings after this page. % @headings doubleafter turns on double-sided headings after this page. % @headings singleafter turns on single-sided headings after this page. % By default, they are off. \def\headings #1 {\csname HEADINGS#1\endcsname} \def\HEADINGSoff{ \global\evenheadline={\hfil} \global\evenfootline={\hfil} \global\oddheadline={\hfil} \global\oddfootline={\hfil}} \HEADINGSoff % When we turn headings on, set the page number to 1. % For double-sided printing, put current file name in lower left corner, % chapter name on inside top of right hand pages, document % title on inside top of left hand pages, and page numbers on outside top % edge of all pages. \def\HEADINGSdouble{ %\pagealignmacro \global\pageno=1 \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\folio\hfil\thistitle}} \global\oddheadline={\line{\thischapter\hfil\folio}} } % For single-sided printing, chapter title goes across top left of page, % page number on top right. \def\HEADINGSsingle{ %\pagealignmacro \global\pageno=1 \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\thischapter\hfil\folio}} \global\oddheadline={\line{\thischapter\hfil\folio}} } \def\HEADINGSon{\HEADINGSdouble} \def\HEADINGSafter{\let\HEADINGShook=\HEADINGSdoublex} \let\HEADINGSdoubleafter=\HEADINGSafter \def\HEADINGSdoublex{% \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\folio\hfil\thistitle}} \global\oddheadline={\line{\thischapter\hfil\folio}} } \def\HEADINGSsingleafter{\let\HEADINGShook=\HEADINGSsinglex} \def\HEADINGSsinglex{% \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\thischapter\hfil\folio}} \global\oddheadline={\line{\thischapter\hfil\folio}} } % Subroutines used in generating headings % Produces Day Month Year style of output. \def\today{\number\day\space \ifcase\month\or January\or February\or March\or April\or May\or June\or July\or August\or September\or October\or November\or December\fi \space\number\year} % Use this if you want the Month Day, Year style of output. %\def\today{\ifcase\month\or %January\or February\or March\or April\or May\or June\or %July\or August\or September\or October\or November\or December\fi %\space\number\day, \number\year} % @settitle line... specifies the title of the document, for headings % It generates no output of its own \def\thistitle{No Title} \def\settitle{\parsearg\settitlezzz} \def\settitlezzz #1{\gdef\thistitle{#1}} \message{tables,} % @tabs -- simple alignment % These don't work. For one thing, \+ is defined as outer. % So these macros cannot even be defined. %\def\tabs{\parsearg\tabszzz} %\def\tabszzz #1{\settabs\+#1\cr} %\def\tabline{\parsearg\tablinezzz} %\def\tablinezzz #1{\+#1\cr} %\def\&{&} % Tables -- @table, @ftable, @vtable, @item(x), @kitem(x), @xitem(x). % default indentation of table text \newdimen\tableindent \tableindent=.8in % default indentation of @itemize and @enumerate text \newdimen\itemindent \itemindent=.3in % margin between end of table item and start of table text. \newdimen\itemmargin \itemmargin=.1in % used internally for \itemindent minus \itemmargin \newdimen\itemmax % Note @table, @vtable, and @vtable define @item, @itemx, etc., with % these defs. % They also define \itemindex % to index the item name in whatever manner is desired (perhaps none). \newif\ifitemxneedsnegativevskip \def\itemxpar{\par\ifitemxneedsnegativevskip\vskip-\parskip\nobreak\fi} \def\internalBitem{\smallbreak \parsearg\itemzzz} \def\internalBitemx{\itemxpar \parsearg\itemzzz} \def\internalBxitem "#1"{\def\xitemsubtopix{#1} \smallbreak \parsearg\xitemzzz} \def\internalBxitemx "#1"{\def\xitemsubtopix{#1} \itemxpar \parsearg\xitemzzz} \def\internalBkitem{\smallbreak \parsearg\kitemzzz} \def\internalBkitemx{\itemxpar \parsearg\kitemzzz} \def\kitemzzz #1{\dosubind {kw}{\code{#1}}{for {\bf \lastfunction}}% \itemzzz {#1}} \def\xitemzzz #1{\dosubind {kw}{\code{#1}}{for {\bf \xitemsubtopic}}% \itemzzz {#1}} \def\itemzzz #1{\begingroup % \advance\hsize by -\rightskip \advance\hsize by -\tableindent \setbox0=\hbox{\itemfont{#1}}% \itemindex{#1}% \nobreak % This prevents a break before @itemx. % % Be sure we are not still in the middle of a paragraph. %{\parskip = 0in %\par %}% % % If the item text does not fit in the space we have, put it on a line % by itself, and do not allow a page break either before or after that % line. We do not start a paragraph here because then if the next % command is, e.g., @kindex, the whatsit would get put into the % horizontal list on a line by itself, resulting in extra blank space. \ifdim \wd0>\itemmax % % Make this a paragraph so we get the \parskip glue and wrapping, % but leave it ragged-right. \begingroup \advance\leftskip by-\tableindent \advance\hsize by\tableindent \advance\rightskip by0pt plus1fil \leavevmode\unhbox0\par \endgroup % % We're going to be starting a paragraph, but we don't want the % \parskip glue -- logically it's part of the @item we just started. \nobreak \vskip-\parskip % % Stop a page break at the \parskip glue coming up. Unfortunately % we can't prevent a possible page break at the following % \baselineskip glue. \nobreak \endgroup \itemxneedsnegativevskipfalse \else % The item text fits into the space. Start a paragraph, so that the % following text (if any) will end up on the same line. Since that % text will be indented by \tableindent, we make the item text be in % a zero-width box. \noindent \rlap{\hskip -\tableindent\box0}\ignorespaces% \endgroup% \itemxneedsnegativevskiptrue% \fi } \def\item{\errmessage{@item while not in a table}} \def\itemx{\errmessage{@itemx while not in a table}} \def\kitem{\errmessage{@kitem while not in a table}} \def\kitemx{\errmessage{@kitemx while not in a table}} \def\xitem{\errmessage{@xitem while not in a table}} \def\xitemx{\errmessage{@xitemx while not in a table}} %% Contains a kludge to get @end[description] to work \def\description{\tablez{\dontindex}{1}{}{}{}{}} \def\table{\begingroup\inENV\obeylines\obeyspaces\tablex} {\obeylines\obeyspaces% \gdef\tablex #1^^M{% \tabley\dontindex#1 \endtabley}} \def\ftable{\begingroup\inENV\obeylines\obeyspaces\ftablex} {\obeylines\obeyspaces% \gdef\ftablex #1^^M{% \tabley\fnitemindex#1 \endtabley \def\Eftable{\endgraf\afterenvbreak\endgroup}% \let\Etable=\relax}} \def\vtable{\begingroup\inENV\obeylines\obeyspaces\vtablex} {\obeylines\obeyspaces% \gdef\vtablex #1^^M{% \tabley\vritemindex#1 \endtabley \def\Evtable{\endgraf\afterenvbreak\endgroup}% \let\Etable=\relax}} \def\dontindex #1{} \def\fnitemindex #1{\doind {fn}{\code{#1}}}% \def\vritemindex #1{\doind {vr}{\code{#1}}}% {\obeyspaces % \gdef\tabley#1#2 #3 #4 #5 #6 #7\endtabley{\endgroup% \tablez{#1}{#2}{#3}{#4}{#5}{#6}}} \def\tablez #1#2#3#4#5#6{% \aboveenvbreak % \begingroup % \def\Edescription{\Etable}% Neccessary kludge. \let\itemindex=#1% \ifnum 0#3>0 \advance \leftskip by #3\mil \fi % \ifnum 0#4>0 \tableindent=#4\mil \fi % \ifnum 0#5>0 \advance \rightskip by #5\mil \fi % \def\itemfont{#2}% \itemmax=\tableindent % \advance \itemmax by -\itemmargin % \advance \leftskip by \tableindent % \exdentamount=\tableindent \parindent = 0pt \parskip = \smallskipamount \ifdim \parskip=0pt \parskip=2pt \fi% \def\Etable{\endgraf\afterenvbreak\endgroup}% \let\item = \internalBitem % \let\itemx = \internalBitemx % \let\kitem = \internalBkitem % \let\kitemx = \internalBkitemx % \let\xitem = \internalBxitem % \let\xitemx = \internalBxitemx % } % This is the counter used by @enumerate, which is really @itemize \newcount \itemno \def\itemize{\parsearg\itemizezzz} \def\itemizezzz #1{% \begingroup % ended by the @end itemsize \itemizey {#1}{\Eitemize} } \def\itemizey #1#2{% \aboveenvbreak % \itemmax=\itemindent % \advance \itemmax by -\itemmargin % \advance \leftskip by \itemindent % \exdentamount=\itemindent \parindent = 0pt % \parskip = \smallskipamount % \ifdim \parskip=0pt \parskip=2pt \fi% \def#2{\endgraf\afterenvbreak\endgroup}% \def\itemcontents{#1}% \let\item=\itemizeitem} % Set sfcode to normal for the chars that usually have another value. % These are `.?!:;,' \def\frenchspacing{\sfcode46=1000 \sfcode63=1000 \sfcode33=1000 \sfcode58=1000 \sfcode59=1000 \sfcode44=1000 } % \splitoff TOKENS\endmark defines \first to be the first token in % TOKENS, and \rest to be the remainder. % \def\splitoff#1#2\endmark{\def\first{#1}\def\rest{#2}}% % Allow an optional argument of an uppercase letter, lowercase letter, % or number, to specify the first label in the enumerated list. No % argument is the same as `1'. % \def\enumerate{\parsearg\enumeratezzz} \def\enumeratezzz #1{\enumeratey #1 \endenumeratey} \def\enumeratey #1 #2\endenumeratey{% \begingroup % ended by the @end enumerate % % If we were given no argument, pretend we were given `1'. \def\thearg{#1}% \ifx\thearg\empty \def\thearg{1}\fi % % Detect if the argument is a single token. If so, it might be a % letter. Otherwise, the only valid thing it can be is a number. % (We will always have one token, because of the test we just made. % This is a good thing, since \splitoff doesn't work given nothing at % all -- the first parameter is undelimited.) \expandafter\splitoff\thearg\endmark \ifx\rest\empty % Only one token in the argument. It could still be anything. % A ``lowercase letter'' is one whose \lccode is nonzero. % An ``uppercase letter'' is one whose \lccode is both nonzero, and % not equal to itself. % Otherwise, we assume it's a number. % % We need the \relax at the end of the \ifnum lines to stop TeX from % continuing to look for a . % \ifnum\lccode\expandafter`\thearg=0\relax \numericenumerate % a number (we hope) \else % It's a letter. \ifnum\lccode\expandafter`\thearg=\expandafter`\thearg\relax \lowercaseenumerate % lowercase letter \else \uppercaseenumerate % uppercase letter \fi \fi \else % Multiple tokens in the argument. We hope it's a number. \numericenumerate \fi } % An @enumerate whose labels are integers. The starting integer is % given in \thearg. % \def\numericenumerate{% \itemno = \thearg \startenumeration{\the\itemno}% } % The starting (lowercase) letter is in \thearg. \def\lowercaseenumerate{% \itemno = \expandafter`\thearg \startenumeration{% % Be sure we're not beyond the end of the alphabet. \ifnum\itemno=0 \errmessage{No more lowercase letters in @enumerate; get a bigger alphabet}% \fi \char\lccode\itemno }% } % The starting (uppercase) letter is in \thearg. \def\uppercaseenumerate{% \itemno = \expandafter`\thearg \startenumeration{% % Be sure we're not beyond the end of the alphabet. \ifnum\itemno=0 \errmessage{No more uppercase letters in @enumerate; get a bigger alphabet} \fi \char\uccode\itemno }% } % Call itemizey, adding a period to the first argument and supplying the % common last two arguments. Also subtract one from the initial value in % \itemno, since @item increments \itemno. % \def\startenumeration#1{% \advance\itemno by -1 \itemizey{#1.}\Eenumerate\flushcr } % @alphaenumerate and @capsenumerate are abbreviations for giving an arg % to @enumerate. % \def\alphaenumerate{\enumerate{a}} \def\capsenumerate{\enumerate{A}} \def\Ealphaenumerate{\Eenumerate} \def\Ecapsenumerate{\Eenumerate} % Definition of @item while inside @itemize. \def\itemizeitem{% \advance\itemno by 1 {\let\par=\endgraf \smallbreak}% \ifhmode \errmessage{\in hmode at itemizeitem}\fi {\parskip=0in \hskip 0pt \hbox to 0pt{\hss \itemcontents\hskip \itemmargin}% \vadjust{\penalty 1200}}% \flushcr} \message{indexing,} % Index generation facilities % Define \newwrite to be identical to plain tex's \newwrite % except not \outer, so it can be used within \newindex. {\catcode`\@=11 \gdef\newwrite{\alloc@7\write\chardef\sixt@@n}} % \newindex {foo} defines an index named foo. % It automatically defines \fooindex such that % \fooindex ...rest of line... puts an entry in the index foo. % It also defines \fooindfile to be the number of the output channel for % the file that accumulates this index. The file's extension is foo. % The name of an index should be no more than 2 characters long % for the sake of vms. \def\newindex #1{ \expandafter\newwrite \csname#1indfile\endcsname% Define number for output file \openout \csname#1indfile\endcsname \jobname.#1 % Open the file \expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex \noexpand\doindex {#1}} } % @defindex foo == \newindex{foo} \def\defindex{\parsearg\newindex} % Define @defcodeindex, like @defindex except put all entries in @code. \def\newcodeindex #1{ \expandafter\newwrite \csname#1indfile\endcsname% Define number for output file \openout \csname#1indfile\endcsname \jobname.#1 % Open the file \expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex \noexpand\docodeindex {#1}} } \def\defcodeindex{\parsearg\newcodeindex} % @synindex foo bar makes index foo feed into index bar. % Do this instead of @defindex foo if you don't want it as a separate index. \def\synindex #1 #2 {% \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname \expandafter\let\csname#1indfile\endcsname=\synindexfoo \expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex \noexpand\doindex {#2}}% } % @syncodeindex foo bar similar, but put all entries made for index foo % inside @code. \def\syncodeindex #1 #2 {% \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname \expandafter\let\csname#1indfile\endcsname=\synindexfoo \expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex \noexpand\docodeindex {#2}}% } % Define \doindex, the driver for all \fooindex macros. % Argument #1 is generated by the calling \fooindex macro, % and it is "foo", the name of the index. % \doindex just uses \parsearg; it calls \doind for the actual work. % This is because \doind is more useful to call from other macros. % There is also \dosubind {index}{topic}{subtopic} % which makes an entry in a two-level index such as the operation index. \def\doindex#1{\edef\indexname{#1}\parsearg\singleindexer} \def\singleindexer #1{\doind{\indexname}{#1}} % like the previous two, but they put @code around the argument. \def\docodeindex#1{\edef\indexname{#1}\parsearg\singlecodeindexer} \def\singlecodeindexer #1{\doind{\indexname}{\code{#1}}} \def\indexdummies{% % Take care of the plain tex accent commands. \def\"{\realbackslash "}% \def\`{\realbackslash `}% \def\'{\realbackslash '}% \def\^{\realbackslash ^}% \def\~{\realbackslash ~}% \def\={\realbackslash =}% \def\b{\realbackslash b}% \def\c{\realbackslash c}% \def\d{\realbackslash d}% \def\u{\realbackslash u}% \def\v{\realbackslash v}% \def\H{\realbackslash H}% % Take care of the plain tex special European modified letters. \def\oe{\realbackslash oe}% \def\ae{\realbackslash ae}% \def\aa{\realbackslash aa}% \def\OE{\realbackslash OE}% \def\AE{\realbackslash AE}% \def\AA{\realbackslash AA}% \def\o{\realbackslash o}% \def\O{\realbackslash O}% \def\l{\realbackslash l}% \def\L{\realbackslash L}% \def\ss{\realbackslash ss}% % Take care of texinfo commands likely to appear in an index entry. \def\_{{\realbackslash _}}% \def\w{\realbackslash w }% \def\bf{\realbackslash bf }% \def\rm{\realbackslash rm }% \def\sl{\realbackslash sl }% \def\sf{\realbackslash sf}% \def\tt{\realbackslash tt}% \def\gtr{\realbackslash gtr}% \def\less{\realbackslash less}% \def\hat{\realbackslash hat}% \def\char{\realbackslash char}% \def\TeX{\realbackslash TeX}% \def\dots{\realbackslash dots }% \def\copyright{\realbackslash copyright }% \def\tclose##1{\realbackslash tclose {##1}}% \def\code##1{\realbackslash code {##1}}% \def\samp##1{\realbackslash samp {##1}}% \def\t##1{\realbackslash r {##1}}% \def\r##1{\realbackslash r {##1}}% \def\i##1{\realbackslash i {##1}}% \def\b##1{\realbackslash b {##1}}% \def\cite##1{\realbackslash cite {##1}}% \def\key##1{\realbackslash key {##1}}% \def\file##1{\realbackslash file {##1}}% \def\var##1{\realbackslash var {##1}}% \def\kbd##1{\realbackslash kbd {##1}}% \def\dfn##1{\realbackslash dfn {##1}}% \def\emph##1{\realbackslash emph {##1}}% } % \indexnofonts no-ops all font-change commands. % This is used when outputting the strings to sort the index by. \def\indexdummyfont#1{#1} \def\indexdummytex{TeX} \def\indexdummydots{...} \def\indexnofonts{% % Just ignore accents. \let\"=\indexdummyfont \let\`=\indexdummyfont \let\'=\indexdummyfont \let\^=\indexdummyfont \let\~=\indexdummyfont \let\==\indexdummyfont \let\b=\indexdummyfont \let\c=\indexdummyfont \let\d=\indexdummyfont \let\u=\indexdummyfont \let\v=\indexdummyfont \let\H=\indexdummyfont % Take care of the plain tex special European modified letters. \def\oe{oe} \def\ae{ae} \def\aa{aa} \def\OE{OE} \def\AE{AE} \def\AA{AA} \def\o{o} \def\O{O} \def\l{l} \def\L{L} \def\ss{ss} \let\w=\indexdummyfont \let\t=\indexdummyfont \let\r=\indexdummyfont \let\i=\indexdummyfont \let\b=\indexdummyfont \let\emph=\indexdummyfont \let\strong=\indexdummyfont \let\cite=\indexdummyfont \let\sc=\indexdummyfont %Don't no-op \tt, since it isn't a user-level command % and is used in the definitions of the active chars like <, >, |... %\let\tt=\indexdummyfont \let\tclose=\indexdummyfont \let\code=\indexdummyfont \let\file=\indexdummyfont \let\samp=\indexdummyfont \let\kbd=\indexdummyfont \let\key=\indexdummyfont \let\var=\indexdummyfont \let\TeX=\indexdummytex \let\dots=\indexdummydots } % To define \realbackslash, we must make \ not be an escape. % We must first make another character (@) an escape % so we do not become unable to do a definition. {\catcode`\@=0 \catcode`\\=\other @gdef@realbackslash{\}} \let\indexbackslash=0 %overridden during \printindex. \def\doind #1#2{% {\count10=\lastpenalty % {\indexdummies % Must do this here, since \bf, etc expand at this stage \escapechar=`\\% {\let\folio=0% Expand all macros now EXCEPT \folio \def\rawbackslashxx{\indexbackslash}% \indexbackslash isn't defined now % so it will be output as is; and it will print as backslash in the indx. % % Now process the index-string once, with all font commands turned off, % to get the string to sort the index by. {\indexnofonts \xdef\temp1{#2}% }% % Now produce the complete index entry. We process the index-string again, % this time with font commands expanded, to get what to print in the index. \edef\temp{% \write \csname#1indfile\endcsname{% \realbackslash entry {\temp1}{\folio}{#2}}}% \temp }% }\penalty\count10}} \def\dosubind #1#2#3{% {\count10=\lastpenalty % {\indexdummies % Must do this here, since \bf, etc expand at this stage \escapechar=`\\% {\let\folio=0% \def\rawbackslashxx{\indexbackslash}% % % Now process the index-string once, with all font commands turned off, % to get the string to sort the index by. {\indexnofonts \xdef\temp1{#2 #3}% }% % Now produce the complete index entry. We process the index-string again, % this time with font commands expanded, to get what to print in the index. \edef\temp{% \write \csname#1indfile\endcsname{% \realbackslash entry {\temp1}{\folio}{#2}{#3}}}% \temp }% }\penalty\count10}} % The index entry written in the file actually looks like % \entry {sortstring}{page}{topic} % or % \entry {sortstring}{page}{topic}{subtopic} % The texindex program reads in these files and writes files % containing these kinds of lines: % \initial {c} % before the first topic whose initial is c % \entry {topic}{pagelist} % for a topic that is used without subtopics % \primary {topic} % for the beginning of a topic that is used with subtopics % \secondary {subtopic}{pagelist} % for each subtopic. % Define the user-accessible indexing commands % @findex, @vindex, @kindex, @cindex. \def\findex {\fnindex} \def\kindex {\kyindex} \def\cindex {\cpindex} \def\vindex {\vrindex} \def\tindex {\tpindex} \def\pindex {\pgindex} \def\cindexsub {\begingroup\obeylines\cindexsub} {\obeylines % \gdef\cindexsub "#1" #2^^M{\endgroup % \dosubind{cp}{#2}{#1}}} % Define the macros used in formatting output of the sorted index material. % This is what you call to cause a particular index to get printed. % Write % @unnumbered Function Index % @printindex fn \def\printindex{\parsearg\doprintindex} \def\doprintindex#1{% \tex \dobreak \chapheadingskip {10000} \catcode`\%=\other\catcode`\&=\other\catcode`\#=\other \catcode`\$=\other \catcode`\~=\other \indexbreaks % % The following don't help, since the chars were translated % when the raw index was written, and their fonts were discarded % due to \indexnofonts. %\catcode`\"=\active %\catcode`\^=\active %\catcode`\_=\active %\catcode`\|=\active %\catcode`\<=\active %\catcode`\>=\active % % \def\indexbackslash{\rawbackslashxx} \indexfonts\rm \tolerance=9500 \advance\baselineskip -1pt \begindoublecolumns % % See if the index file exists and is nonempty. \openin 1 \jobname.#1s \ifeof 1 % \enddoublecolumns gets confused if there is no text in the index, % and it loses the chapter title and the aux file entries for the % index. The easiest way to prevent this problem is to make sure % there is some text. (Index is nonexistent) \else % % If the index file exists but is empty, then \openin leaves \ifeof % false. We have to make TeX try to read something from the file, so % it can discover if there is anything in it. \read 1 to \temp \ifeof 1 (Index is empty) \else \input \jobname.#1s \fi \fi \closein 1 \enddoublecolumns \Etex } % These macros are used by the sorted index file itself. % Change them to control the appearance of the index. % Same as \bigskipamount except no shrink. % \balancecolumns gets confused if there is any shrink. \newskip\initialskipamount \initialskipamount 12pt plus4pt \def\initial #1{% {\let\tentt=\sectt \let\tt=\sectt \let\sf=\sectt \ifdim\lastskip<\initialskipamount \removelastskip \penalty-200 \vskip \initialskipamount\fi \line{\secbf#1\hfill}\kern 2pt\penalty10000}} % This typesets a paragraph consisting of #1, dot leaders, and then #2 % flush to the right margin. It is used for index and table of contents % entries. The paragraph is indented by \leftskip. % \def\entry #1#2{\begingroup % % Start a new paragraph if necessary, so our assignments below can't % affect previous text. \par % % Do not fill out the last line with white space. \parfillskip = 0in % % No extra space above this paragraph. \parskip = 0in % % Do not prefer a separate line ending with a hyphen to fewer lines. \finalhyphendemerits = 0 % % \hangindent is only relevant when the entry text and page number % don't both fit on one line. In that case, bob suggests starting the % dots pretty far over on the line. Unfortunately, a large % indentation looks wrong when the entry text itself is broken across % lines. So we use a small indentation and put up with long leaders. % % \hangafter is reset to 1 (which is the value we want) at the start % of each paragraph, so we need not do anything with that. \hangindent=2em % % When the entry text needs to be broken, just fill out the first line % with blank space. \rightskip = 0pt plus1fil % % Start a ``paragraph'' for the index entry so the line breaking % parameters we've set above will have an effect. \noindent % % Insert the text of the index entry. TeX will do line-breaking on it. #1% % The following is kluged to not output a line of dots in the index if % there are no page numbers. The next person who breaks this will be % cursed by a Unix daemon. \def\tempa{{\rm }}% \def\tempb{#2}% \edef\tempc{\tempa}% \edef\tempd{\tempb}% \ifx\tempc\tempd\ \else% % % If we must, put the page number on a line of its own, and fill out % this line with blank space. (The \hfil is overwhelmed with the % fill leaders glue in \indexdotfill if the page number does fit.) \hfil\penalty50 \null\nobreak\indexdotfill % Have leaders before the page number. % % The `\ ' here is removed by the implicit \unskip that TeX does as % part of (the primitive) \par. Without it, a spurious underfull % \hbox ensues. \ #2% The page number ends the paragraph. \fi% \par \endgroup} % Like \dotfill except takes at least 1 em. \def\indexdotfill{\cleaders \hbox{$\mathsurround=0pt \mkern1.5mu ${\it .}$ \mkern1.5mu$}\hskip 1em plus 1fill} \def\primary #1{\line{#1\hfil}} \newskip\secondaryindent \secondaryindent=0.5cm \def\secondary #1#2{ {\parfillskip=0in \parskip=0in \hangindent =1in \hangafter=1 \noindent\hskip\secondaryindent\hbox{#1}\indexdotfill #2\par }} %% Define two-column mode, which is used in indexes. %% Adapted from the TeXbook, page 416. \catcode `\@=11 \newbox\partialpage \newdimen\doublecolumnhsize \def\begindoublecolumns{\begingroup % Grab any single-column material above us. \output = {\global\setbox\partialpage =\vbox{\unvbox255\kern -\topskip \kern \baselineskip}}% \eject % % Now switch to the double-column output routine. \output={\doublecolumnout}% % % Change the page size parameters. We could do this once outside this % routine, in each of @smallbook, @afourpaper, and the default 8.5x11 % format, but then we repeat the same computation. Repeating a couple % of assignments once per index is clearly meaningless for the % execution time, so we may as well do it once. % % First we halve the line length, less a little for the gutter between % the columns. We compute the gutter based on the line length, so it % changes automatically with the paper format. The magic constant % below is chosen so that the gutter has the same value (well, +- < % 1pt) as it did when we hard-coded it. % % We put the result in a separate register, \doublecolumhsize, so we % can restore it in \pagesofar, after \hsize itself has (potentially) % been clobbered. % \doublecolumnhsize = \hsize \advance\doublecolumnhsize by -.04154\hsize \divide\doublecolumnhsize by 2 \hsize = \doublecolumnhsize % % Double the \vsize as well. (We don't need a separate register here, % since nobody clobbers \vsize.) \vsize = 2\vsize \doublecolumnpagegoal } \def\enddoublecolumns{\eject \endgroup \pagegoal=\vsize \unvbox\partialpage} \def\doublecolumnsplit{\splittopskip=\topskip \splitmaxdepth=\maxdepth \global\dimen@=\pageheight \global\advance\dimen@ by-\ht\partialpage \global\setbox1=\vsplit255 to\dimen@ \global\setbox0=\vbox{\unvbox1} \global\setbox3=\vsplit255 to\dimen@ \global\setbox2=\vbox{\unvbox3} \ifdim\ht0>\dimen@ \setbox255=\vbox{\unvbox0\unvbox2} \global\setbox255=\copy5 \fi \ifdim\ht2>\dimen@ \setbox255=\vbox{\unvbox0\unvbox2} \global\setbox255=\copy5 \fi } \def\doublecolumnpagegoal{% \dimen@=\vsize \advance\dimen@ by-2\ht\partialpage \global\pagegoal=\dimen@ } \def\pagesofar{\unvbox\partialpage % \hsize=\doublecolumnhsize % have to restore this since output routine \wd0=\hsize \wd2=\hsize \hbox to\pagewidth{\box0\hfil\box2}} \def\doublecolumnout{% \setbox5=\copy255 {\vbadness=10000 \doublecolumnsplit} \ifvbox255 \setbox0=\vtop to\dimen@{\unvbox0} \setbox2=\vtop to\dimen@{\unvbox2} \onepageout\pagesofar \unvbox255 \penalty\outputpenalty \else \setbox0=\vbox{\unvbox5} \ifvbox0 \dimen@=\ht0 \advance\dimen@ by\topskip \advance\dimen@ by-\baselineskip \divide\dimen@ by2 \splittopskip=\topskip \splitmaxdepth=\maxdepth {\vbadness=10000 \loop \global\setbox5=\copy0 \setbox1=\vsplit5 to\dimen@ \setbox3=\vsplit5 to\dimen@ \ifvbox5 \global\advance\dimen@ by1pt \repeat \setbox0=\vbox to\dimen@{\unvbox1} \setbox2=\vbox to\dimen@{\unvbox3} \global\setbox\partialpage=\vbox{\pagesofar} \doublecolumnpagegoal } \fi \fi } \catcode `\@=\other \message{sectioning,} % Define chapters, sections, etc. \newcount \chapno \newcount \secno \secno=0 \newcount \subsecno \subsecno=0 \newcount \subsubsecno \subsubsecno=0 % This counter is funny since it counts through charcodes of letters A, B, ... \newcount \appendixno \appendixno = `\@ \def\appendixletter{\char\the\appendixno} \newwrite \contentsfile % This is called from \setfilename. \def\opencontents{\openout \contentsfile = \jobname.toc} % Each @chapter defines this as the name of the chapter. % page headings and footings can use it. @section does likewise \def\thischapter{} \def\thissection{} \def\seccheck#1{\if \pageno<0 % \errmessage{@#1 not allowed after generating table of contents}\fi % } \def\chapternofonts{% \let\rawbackslash=\relax% \let\frenchspacing=\relax% \def\result{\realbackslash result} \def\equiv{\realbackslash equiv} \def\expansion{\realbackslash expansion} \def\print{\realbackslash print} \def\TeX{\realbackslash TeX} \def\dots{\realbackslash dots} \def\copyright{\realbackslash copyright} \def\tt{\realbackslash tt} \def\bf{\realbackslash bf } \def\w{\realbackslash w} \def\less{\realbackslash less} \def\gtr{\realbackslash gtr} \def\hat{\realbackslash hat} \def\char{\realbackslash char} \def\tclose##1{\realbackslash tclose {##1}} \def\code##1{\realbackslash code {##1}} \def\samp##1{\realbackslash samp {##1}} \def\r##1{\realbackslash r {##1}} \def\b##1{\realbackslash b {##1}} \def\key##1{\realbackslash key {##1}} \def\file##1{\realbackslash file {##1}} \def\kbd##1{\realbackslash kbd {##1}} % These are redefined because @smartitalic wouldn't work inside xdef. \def\i##1{\realbackslash i {##1}} \def\cite##1{\realbackslash cite {##1}} \def\var##1{\realbackslash var {##1}} \def\emph##1{\realbackslash emph {##1}} \def\dfn##1{\realbackslash dfn {##1}} } \newcount\absseclevel % used to calculate proper heading level \newcount\secbase\secbase=0 % @raise/lowersections modify this count % @raisesections: treat @section as chapter, @subsection as section, etc. \def\raisesections{\global\advance\secbase by -1} \let\up=\raisesections % original BFox name % @lowersections: treat @chapter as section, @section as subsection, etc. \def\lowersections{\global\advance\secbase by 1} \let\down=\lowersections % original BFox name % Choose a numbered-heading macro % #1 is heading level if unmodified by @raisesections or @lowersections % #2 is text for heading \def\numhead#1#2{\absseclevel=\secbase\advance\absseclevel by #1 \ifcase\absseclevel \chapterzzz{#2} \or \seczzz{#2} \or \numberedsubseczzz{#2} \or \numberedsubsubseczzz{#2} \else \ifnum \absseclevel<0 \chapterzzz{#2} \else \numberedsubsubseczzz{#2} \fi \fi } % like \numhead, but chooses appendix heading levels \def\apphead#1#2{\absseclevel=\secbase\advance\absseclevel by #1 \ifcase\absseclevel \appendixzzz{#2} \or \appendixsectionzzz{#2} \or \appendixsubseczzz{#2} \or \appendixsubsubseczzz{#2} \else \ifnum \absseclevel<0 \appendixzzz{#2} \else \appendixsubsubseczzz{#2} \fi \fi } % like \numhead, but chooses numberless heading levels \def\unnmhead#1#2{\absseclevel=\secbase\advance\absseclevel by #1 \ifcase\absseclevel \unnumberedzzz{#2} \or \unnumberedseczzz{#2} \or \unnumberedsubseczzz{#2} \or \unnumberedsubsubseczzz{#2} \else \ifnum \absseclevel<0 \unnumberedzzz{#2} \else \unnumberedsubsubseczzz{#2} \fi \fi } \def\thischaptername{No Chapter Title} \outer\def\chapter{\parsearg\chapteryyy} \def\chapteryyy #1{\numhead0{#1}} % normally numhead0 calls chapterzzz \def\chapterzzz #1{\seccheck{chapter}% \secno=0 \subsecno=0 \subsubsecno=0 \global\advance \chapno by 1 \message{Chapter \the\chapno}% \chapmacro {#1}{\the\chapno}% \gdef\thissection{#1}% \gdef\thischaptername{#1}% % We don't substitute the actual chapter name into \thischapter % because we don't want its macros evaluated now. \xdef\thischapter{\putwordChapter{} \the\chapno: \noexpand\thischaptername}% {\chapternofonts% \edef\temp{{\realbackslash chapentry {#1}{\the\chapno}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \donoderef % \global\let\section = \numberedsec \global\let\subsection = \numberedsubsec \global\let\subsubsection = \numberedsubsubsec }} \outer\def\appendix{\parsearg\appendixyyy} \def\appendixyyy #1{\apphead0{#1}} % normally apphead0 calls appendixzzz \def\appendixzzz #1{\seccheck{appendix}% \secno=0 \subsecno=0 \subsubsecno=0 \global\advance \appendixno by 1 \message{Appendix \appendixletter}% \chapmacro {#1}{\putwordAppendix{} \appendixletter}% \gdef\thissection{#1}% \gdef\thischaptername{#1}% \xdef\thischapter{\putwordAppendix{} \appendixletter: \noexpand\thischaptername}% {\chapternofonts% \edef\temp{{\realbackslash chapentry {#1}{\putwordAppendix{} \appendixletter}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \appendixnoderef % \global\let\section = \appendixsec \global\let\subsection = \appendixsubsec \global\let\subsubsection = \appendixsubsubsec }} \outer\def\top{\parsearg\unnumberedyyy} \outer\def\unnumbered{\parsearg\unnumberedyyy} \def\unnumberedyyy #1{\unnmhead0{#1}} % normally unnmhead0 calls unnumberedzzz \def\unnumberedzzz #1{\seccheck{unnumbered}% \secno=0 \subsecno=0 \subsubsecno=0 % % This used to be simply \message{#1}, but TeX fully expands the % argument to \message. Therefore, if #1 contained @-commands, TeX % expanded them. For example, in `@unnumbered The @cite{Book}', TeX % expanded @cite (which turns out to cause errors because \cite is meant % to be executed, not expanded). % % Anyway, we don't want the fully-expanded definition of @cite to appear % as a result of the \message, we just want `@cite' itself. We use % \the to achieve this: TeX expands \the only once, % simply yielding the contents of the . \toks0 = {#1}\message{(\the\toks0)}% % \unnumbchapmacro {#1}% \gdef\thischapter{#1}\gdef\thissection{#1}% {\chapternofonts% \edef\temp{{\realbackslash unnumbchapentry {#1}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \unnumbnoderef % \global\let\section = \unnumberedsec \global\let\subsection = \unnumberedsubsec \global\let\subsubsection = \unnumberedsubsubsec }} \outer\def\numberedsec{\parsearg\secyyy} \def\secyyy #1{\numhead1{#1}} % normally calls seczzz \def\seczzz #1{\seccheck{section}% \subsecno=0 \subsubsecno=0 \global\advance \secno by 1 % \gdef\thissection{#1}\secheading {#1}{\the\chapno}{\the\secno}% {\chapternofonts% \edef\temp{{\realbackslash secentry % {#1}{\the\chapno}{\the\secno}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \donoderef % \penalty 10000 % }} \outer\def\appenixsection{\parsearg\appendixsecyyy} \outer\def\appendixsec{\parsearg\appendixsecyyy} \def\appendixsecyyy #1{\apphead1{#1}} % normally calls appendixsectionzzz \def\appendixsectionzzz #1{\seccheck{appendixsection}% \subsecno=0 \subsubsecno=0 \global\advance \secno by 1 % \gdef\thissection{#1}\secheading {#1}{\appendixletter}{\the\secno}% {\chapternofonts% \edef\temp{{\realbackslash secentry % {#1}{\appendixletter}{\the\secno}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \appendixnoderef % \penalty 10000 % }} \outer\def\unnumberedsec{\parsearg\unnumberedsecyyy} \def\unnumberedsecyyy #1{\unnmhead1{#1}} % normally calls unnumberedseczzz \def\unnumberedseczzz #1{\seccheck{unnumberedsec}% \plainsecheading {#1}\gdef\thissection{#1}% {\chapternofonts% \edef\temp{{\realbackslash unnumbsecentry{#1}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \unnumbnoderef % \penalty 10000 % }} \outer\def\numberedsubsec{\parsearg\numberedsubsecyyy} \def\numberedsubsecyyy #1{\numhead2{#1}} % normally calls numberedsubseczzz \def\numberedsubseczzz #1{\seccheck{subsection}% \gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 % \subsecheading {#1}{\the\chapno}{\the\secno}{\the\subsecno}% {\chapternofonts% \edef\temp{{\realbackslash subsecentry % {#1}{\the\chapno}{\the\secno}{\the\subsecno}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \donoderef % \penalty 10000 % }} \outer\def\appendixsubsec{\parsearg\appendixsubsecyyy} \def\appendixsubsecyyy #1{\apphead2{#1}} % normally calls appendixsubseczzz \def\appendixsubseczzz #1{\seccheck{appendixsubsec}% \gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 % \subsecheading {#1}{\appendixletter}{\the\secno}{\the\subsecno}% {\chapternofonts% \edef\temp{{\realbackslash subsecentry % {#1}{\appendixletter}{\the\secno}{\the\subsecno}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \appendixnoderef % \penalty 10000 % }} \outer\def\unnumberedsubsec{\parsearg\unnumberedsubsecyyy} \def\unnumberedsubsecyyy #1{\unnmhead2{#1}} %normally calls unnumberedsubseczzz \def\unnumberedsubseczzz #1{\seccheck{unnumberedsubsec}% \plainsecheading {#1}\gdef\thissection{#1}% {\chapternofonts% \edef\temp{{\realbackslash unnumbsubsecentry{#1}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \unnumbnoderef % \penalty 10000 % }} \outer\def\numberedsubsubsec{\parsearg\numberedsubsubsecyyy} \def\numberedsubsubsecyyy #1{\numhead3{#1}} % normally numberedsubsubseczzz \def\numberedsubsubseczzz #1{\seccheck{subsubsection}% \gdef\thissection{#1}\global\advance \subsubsecno by 1 % \subsubsecheading {#1} {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}% {\chapternofonts% \edef\temp{{\realbackslash subsubsecentry % {#1} {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno} {\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \donoderef % \penalty 10000 % }} \outer\def\appendixsubsubsec{\parsearg\appendixsubsubsecyyy} \def\appendixsubsubsecyyy #1{\apphead3{#1}} % normally appendixsubsubseczzz \def\appendixsubsubseczzz #1{\seccheck{appendixsubsubsec}% \gdef\thissection{#1}\global\advance \subsubsecno by 1 % \subsubsecheading {#1} {\appendixletter}{\the\secno}{\the\subsecno}{\the\subsubsecno}% {\chapternofonts% \edef\temp{{\realbackslash subsubsecentry{#1}% {\appendixletter} {\the\secno}{\the\subsecno}{\the\subsubsecno}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \appendixnoderef % \penalty 10000 % }} \outer\def\unnumberedsubsubsec{\parsearg\unnumberedsubsubsecyyy} \def\unnumberedsubsubsecyyy #1{\unnmhead3{#1}} %normally unnumberedsubsubseczzz \def\unnumberedsubsubseczzz #1{\seccheck{unnumberedsubsubsec}% \plainsecheading {#1}\gdef\thissection{#1}% {\chapternofonts% \edef\temp{{\realbackslash unnumbsubsubsecentry{#1}{\noexpand\folio}}}% \escapechar=`\\% \write \contentsfile \temp % \unnumbnoderef % \penalty 10000 % }} % These are variants which are not "outer", so they can appear in @ifinfo. % Actually, they should now be obsolete; ordinary section commands should work. \def\infotop{\parsearg\unnumberedzzz} \def\infounnumbered{\parsearg\unnumberedzzz} \def\infounnumberedsec{\parsearg\unnumberedseczzz} \def\infounnumberedsubsec{\parsearg\unnumberedsubseczzz} \def\infounnumberedsubsubsec{\parsearg\unnumberedsubsubseczzz} \def\infoappendix{\parsearg\appendixzzz} \def\infoappendixsec{\parsearg\appendixseczzz} \def\infoappendixsubsec{\parsearg\appendixsubseczzz} \def\infoappendixsubsubsec{\parsearg\appendixsubsubseczzz} \def\infochapter{\parsearg\chapterzzz} \def\infosection{\parsearg\sectionzzz} \def\infosubsection{\parsearg\subsectionzzz} \def\infosubsubsection{\parsearg\subsubsectionzzz} % These macros control what the section commands do, according % to what kind of chapter we are in (ordinary, appendix, or unnumbered). % Define them by default for a numbered chapter. \global\let\section = \numberedsec \global\let\subsection = \numberedsubsec \global\let\subsubsection = \numberedsubsubsec % Define @majorheading, @heading and @subheading % NOTE on use of \vbox for chapter headings, section headings, and % such: % 1) We use \vbox rather than the earlier \line to permit % overlong headings to fold. % 2) \hyphenpenalty is set to 10000 because hyphenation in a % heading is obnoxious; this forbids it. % 3) Likewise, headings look best if no \parindent is used, and % if justification is not attempted. Hence \raggedright. \def\majorheading{\parsearg\majorheadingzzz} \def\majorheadingzzz #1{% {\advance\chapheadingskip by 10pt \chapbreak }% {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}\bigskip \par\penalty 200} \def\chapheading{\parsearg\chapheadingzzz} \def\chapheadingzzz #1{\chapbreak % {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}\bigskip \par\penalty 200} \def\heading{\parsearg\secheadingi} \def\subheading{\parsearg\subsecheadingi} \def\subsubheading{\parsearg\subsubsecheadingi} % These macros generate a chapter, section, etc. heading only % (including whitespace, linebreaking, etc. around it), % given all the information in convenient, parsed form. %%% Args are the skip and penalty (usually negative) \def\dobreak#1#2{\par\ifdim\lastskip<#1\removelastskip\penalty#2\vskip#1\fi} \def\setchapterstyle #1 {\csname CHAPF#1\endcsname} %%% Define plain chapter starts, and page on/off switching for it % Parameter controlling skip before chapter headings (if needed) \newskip \chapheadingskip \chapheadingskip = 30pt plus 8pt minus 4pt \def\chapbreak{\dobreak \chapheadingskip {-4000}} \def\chappager{\par\vfill\supereject} \def\chapoddpage{\chappager \ifodd\pageno \else \hbox to 0pt{} \chappager\fi} \def\setchapternewpage #1 {\csname CHAPPAG#1\endcsname} \def\CHAPPAGoff{ \global\let\pchapsepmacro=\chapbreak \global\let\pagealignmacro=\chappager} \def\CHAPPAGon{ \global\let\pchapsepmacro=\chappager \global\let\pagealignmacro=\chappager \global\def\HEADINGSon{\HEADINGSsingle}} \def\CHAPPAGodd{ \global\let\pchapsepmacro=\chapoddpage \global\let\pagealignmacro=\chapoddpage \global\def\HEADINGSon{\HEADINGSdouble}} \CHAPPAGon \def\CHAPFplain{ \global\let\chapmacro=\chfplain \global\let\unnumbchapmacro=\unnchfplain} \def\chfplain #1#2{% \pchapsepmacro {% \chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #2\enspace #1}% }% \bigskip \penalty5000 } \def\unnchfplain #1{% \pchapsepmacro % {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}\bigskip \par\penalty 10000 % } \CHAPFplain % The default \def\unnchfopen #1{% \chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}\bigskip \par\penalty 10000 % } \def\chfopen #1#2{\chapoddpage {\chapfonts \vbox to 3in{\vfil \hbox to\hsize{\hfil #2} \hbox to\hsize{\hfil #1} \vfil}}% \par\penalty 5000 % } \def\CHAPFopen{ \global\let\chapmacro=\chfopen \global\let\unnumbchapmacro=\unnchfopen} % Parameter controlling skip before section headings. \newskip \subsecheadingskip \subsecheadingskip = 17pt plus 8pt minus 4pt \def\subsecheadingbreak{\dobreak \subsecheadingskip {-500}} \newskip \secheadingskip \secheadingskip = 21pt plus 8pt minus 4pt \def\secheadingbreak{\dobreak \secheadingskip {-1000}} % @paragraphindent is defined for the Info formatting commands only. \let\paragraphindent=\comment % Section fonts are the base font at magstep2, which produces % a size a bit more than 14 points in the default situation. \def\secheading #1#2#3{\secheadingi {#2.#3\enspace #1}} \def\plainsecheading #1{\secheadingi {#1}} \def\secheadingi #1{{\advance \secheadingskip by \parskip % \secheadingbreak}% {\secfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}% \ifdim \parskip<10pt \kern 10pt\kern -\parskip\fi \penalty 10000 } % Subsection fonts are the base font at magstep1, % which produces a size of 12 points. \def\subsecheading #1#2#3#4{\subsecheadingi {#2.#3.#4\enspace #1}} \def\subsecheadingi #1{{\advance \subsecheadingskip by \parskip % \subsecheadingbreak}% {\subsecfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}% \ifdim \parskip<10pt \kern 10pt\kern -\parskip\fi \penalty 10000 } \def\subsubsecfonts{\subsecfonts} % Maybe this should change: % Perhaps make sssec fonts scaled % magstep half \def\subsubsecheading #1#2#3#4#5{\subsubsecheadingi {#2.#3.#4.#5\enspace #1}} \def\subsubsecheadingi #1{{\advance \subsecheadingskip by \parskip % \subsecheadingbreak}% {\subsubsecfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}% \ifdim \parskip<10pt \kern 10pt\kern -\parskip\fi \penalty 10000} \message{toc printing,} % Finish up the main text and prepare to read what we've written % to \contentsfile. \newskip\contentsrightmargin \contentsrightmargin=1in \def\startcontents#1{% \pagealignmacro \immediate\closeout \contentsfile \ifnum \pageno>0 \pageno = -1 % Request roman numbered pages. \fi % Don't need to put `Contents' or `Short Contents' in the headline. % It is abundantly clear what they are. \unnumbchapmacro{#1}\def\thischapter{}% \begingroup % Set up to handle contents files properly. \catcode`\\=0 \catcode`\{=1 \catcode`\}=2 \catcode`\@=11 \raggedbottom % Worry more about breakpoints than the bottom. \advance\hsize by -\contentsrightmargin % Don't use the full line length. } % Normal (long) toc. \outer\def\contents{% \startcontents{\putwordTableofContents}% \input \jobname.toc \endgroup \vfill \eject } % And just the chapters. \outer\def\summarycontents{% \startcontents{\putwordShortContents}% % \let\chapentry = \shortchapentry \let\unnumbchapentry = \shortunnumberedentry % We want a true roman here for the page numbers. \secfonts \let\rm=\shortcontrm \let\bf=\shortcontbf \let\sl=\shortcontsl \rm \advance\baselineskip by 1pt % Open it up a little. \def\secentry ##1##2##3##4{} \def\unnumbsecentry ##1##2{} \def\subsecentry ##1##2##3##4##5{} \def\unnumbsubsecentry ##1##2{} \def\subsubsecentry ##1##2##3##4##5##6{} \def\unnumbsubsubsecentry ##1##2{} \input \jobname.toc \endgroup \vfill \eject } \let\shortcontents = \summarycontents % These macros generate individual entries in the table of contents. % The first argument is the chapter or section name. % The last argument is the page number. % The arguments in between are the chapter number, section number, ... % Chapter-level things, for both the long and short contents. \def\chapentry#1#2#3{\dochapentry{#2\labelspace#1}{#3}} % See comments in \dochapentry re vbox and related settings \def\shortchapentry#1#2#3{% \tocentry{\shortchaplabel{#2}\labelspace #1}{\doshortpageno{#3}}% } % Typeset the label for a chapter or appendix for the short contents. % The arg is, e.g. `Appendix A' for an appendix, or `3' for a chapter. % We could simplify the code here by writing out an \appendixentry % command in the toc file for appendices, instead of using \chapentry % for both, but it doesn't seem worth it. \setbox0 = \hbox{\shortcontrm \putwordAppendix } \newdimen\shortappendixwidth \shortappendixwidth = \wd0 \def\shortchaplabel#1{% % We typeset #1 in a box of constant width, regardless of the text of % #1, so the chapter titles will come out aligned. \setbox0 = \hbox{#1}% \dimen0 = \ifdim\wd0 > \shortappendixwidth \shortappendixwidth \else 0pt \fi % % This space should be plenty, since a single number is .5em, and the % widest letter (M) is 1em, at least in the Computer Modern fonts. % (This space doesn't include the extra space that gets added after % the label; that gets put in in \shortchapentry above.) \advance\dimen0 by 1.1em \hbox to \dimen0{#1\hfil}% } \def\unnumbchapentry#1#2{\dochapentry{#1}{#2}} \def\shortunnumberedentry#1#2{\tocentry{#1}{\doshortpageno{#2}}} % Sections. \def\secentry#1#2#3#4{\dosecentry{#2.#3\labelspace#1}{#4}} \def\unnumbsecentry#1#2{\dosecentry{#1}{#2}} % Subsections. \def\subsecentry#1#2#3#4#5{\dosubsecentry{#2.#3.#4\labelspace#1}{#5}} \def\unnumbsubsecentry#1#2{\dosubsecentry{#1}{#2}} % And subsubsections. \def\subsubsecentry#1#2#3#4#5#6{% \dosubsubsecentry{#2.#3.#4.#5\labelspace#1}{#6}} \def\unnumbsubsubsecentry#1#2{\dosubsubsecentry{#1}{#2}} % This parameter controls the indentation of the various levels. \newdimen\tocindent \tocindent = 3pc % Now for the actual typesetting. In all these, #1 is the text and #2 is the % page number. % % If the toc has to be broken over pages, we would want to be at chapters % if at all possible; hence the \penalty. \def\dochapentry#1#2{% \penalty-300 \vskip\baselineskip \begingroup \chapentryfonts \tocentry{#1}{\dopageno{#2}}% \endgroup \nobreak\vskip .25\baselineskip } \def\dosecentry#1#2{\begingroup \secentryfonts \leftskip=\tocindent \tocentry{#1}{\dopageno{#2}}% \endgroup} \def\dosubsecentry#1#2{\begingroup \subsecentryfonts \leftskip=2\tocindent \tocentry{#1}{\dopageno{#2}}% \endgroup} \def\dosubsubsecentry#1#2{\begingroup \subsubsecentryfonts \leftskip=3\tocindent \tocentry{#1}{\dopageno{#2}}% \endgroup} % Final typesetting of a toc entry; we use the same \entry macro as for % the index entries, but we want to suppress hyphenation here. (We % can't do that in the \entry macro, since index entries might consist % of hyphenated-identifiers-that-do-not-fit-on-a-line-and-nothing-else.) % \def\tocentry#1#2{\begingroup \hyphenpenalty = 10000 \entry{#1}{#2}% \endgroup} % Space between chapter (or whatever) number and the title. \def\labelspace{\hskip1em \relax} \def\dopageno#1{{\rm #1}} \def\doshortpageno#1{{\rm #1}} \def\chapentryfonts{\secfonts \rm} \def\secentryfonts{\textfonts} \let\subsecentryfonts = \textfonts \let\subsubsecentryfonts = \textfonts \message{environments,} % Since these characters are used in examples, it should be an even number of % \tt widths. Each \tt character is 1en, so two makes it 1em. % Furthermore, these definitions must come after we define our fonts. \newbox\dblarrowbox \newbox\longdblarrowbox \newbox\pushcharbox \newbox\bullbox \newbox\equivbox \newbox\errorbox \let\ptexequiv = \equiv %{\tentt %\global\setbox\dblarrowbox = \hbox to 1em{\hfil$\Rightarrow$\hfil} %\global\setbox\longdblarrowbox = \hbox to 1em{\hfil$\mapsto$\hfil} %\global\setbox\pushcharbox = \hbox to 1em{\hfil$\dashv$\hfil} %\global\setbox\equivbox = \hbox to 1em{\hfil$\ptexequiv$\hfil} % Adapted from the manmac format (p.420 of TeXbook) %\global\setbox\bullbox = \hbox to 1em{\kern.15em\vrule height .75ex width .85ex % depth .1ex\hfil} %} \def\point{$\star$} \def\result{\leavevmode\raise.15ex\hbox to 1em{\hfil$\Rightarrow$\hfil}} \def\expansion{\leavevmode\raise.1ex\hbox to 1em{\hfil$\mapsto$\hfil}} \def\print{\leavevmode\lower.1ex\hbox to 1em{\hfil$\dashv$\hfil}} \def\equiv{\leavevmode\lower.1ex\hbox to 1em{\hfil$\ptexequiv$\hfil}} % Adapted from the TeXbook's \boxit. {\tentt \global\dimen0 = 3em}% Width of the box. \dimen2 = .55pt % Thickness of rules % The text. (`r' is open on the right, `e' somewhat less so on the left.) \setbox0 = \hbox{\kern-.75pt \tensf error\kern-1.5pt} \global\setbox\errorbox=\hbox to \dimen0{\hfil \hsize = \dimen0 \advance\hsize by -5.8pt % Space to left+right. \advance\hsize by -2\dimen2 % Rules. \vbox{ \hrule height\dimen2 \hbox{\vrule width\dimen2 \kern3pt % Space to left of text. \vtop{\kern2.4pt \box0 \kern2.4pt}% Space above/below. \kern3pt\vrule width\dimen2}% Space to right. \hrule height\dimen2} \hfil} % The @error{} command. \def\error{\leavevmode\lower.7ex\copy\errorbox} % @tex ... @end tex escapes into raw Tex temporarily. % One exception: @ is still an escape character, so that @end tex works. % But \@ or @@ will get a plain tex @ character. \def\tex{\begingroup \catcode `\\=0 \catcode `\{=1 \catcode `\}=2 \catcode `\$=3 \catcode `\&=4 \catcode `\#=6 \catcode `\^=7 \catcode `\_=8 \catcode `\~=13 \let~=\tie \catcode `\%=14 \catcode 43=12 \catcode`\"=12 \catcode`\==12 \catcode`\|=12 \catcode`\<=12 \catcode`\>=12 \escapechar=`\\ % \let\{=\ptexlbrace \let\}=\ptexrbrace \let\.=\ptexdot \let\*=\ptexstar \let\dots=\ptexdots \def\@{@}% \let\bullet=\ptexbullet \let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext \let\l=\ptexl \let\L=\ptexL % \let\Etex=\endgroup} % Define @lisp ... @endlisp. % @lisp does a \begingroup so it can rebind things, % including the definition of @endlisp (which normally is erroneous). % Amount to narrow the margins by for @lisp. \newskip\lispnarrowing \lispnarrowing=0.4in % This is the definition that ^^M gets inside @lisp, @example, and other % such environments. \null is better than a space, since it doesn't % have any width. \def\lisppar{\null\endgraf} % Make each space character in the input produce a normal interword % space in the output. Don't allow a line break at this space, as this % is used only in environments like @example, where each line of input % should produce a line of output anyway. % {\obeyspaces % \gdef\sepspaces{\obeyspaces\let =\tie}} % Define \obeyedspace to be our active space, whatever it is. This is % for use in \parsearg. {\sepspaces% \global\let\obeyedspace= } % This space is always present above and below environments. \newskip\envskipamount \envskipamount = 0pt % Make spacing and below environment symmetrical. We use \parskip here % to help in doing that, since in @example-like environments \parskip % is reset to zero; thus the \afterenvbreak inserts no space -- but the % start of the next paragraph will insert \parskip % \def\aboveenvbreak{{\advance\envskipamount by \parskip \endgraf \ifdim\lastskip<\envskipamount \removelastskip \penalty-50 \vskip\envskipamount \fi}} \let\afterenvbreak = \aboveenvbreak % \nonarrowing is a flag. If "set", @lisp etc don't narrow margins. \let\nonarrowing=\relax %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \cartouche: draw rectangle w/rounded corners around argument \font\circle=lcircle10 \newdimen\circthick \newdimen\cartouter\newdimen\cartinner \newskip\normbskip\newskip\normpskip\newskip\normlskip \circthick=\fontdimen8\circle % \def\ctl{{\circle\char'013\hskip -6pt}}% 6pt from pl file: 1/2charwidth \def\ctr{{\hskip 6pt\circle\char'010}} \def\cbl{{\circle\char'012\hskip -6pt}} \def\cbr{{\hskip 6pt\circle\char'011}} \def\carttop{\hbox to \cartouter{\hskip\lskip \ctl\leaders\hrule height\circthick\hfil\ctr \hskip\rskip}} \def\cartbot{\hbox to \cartouter{\hskip\lskip \cbl\leaders\hrule height\circthick\hfil\cbr \hskip\rskip}} % \newskip\lskip\newskip\rskip \long\def\cartouche{% \begingroup \lskip=\leftskip \rskip=\rightskip \leftskip=0pt\rightskip=0pt %we want these *outside*. \cartinner=\hsize \advance\cartinner by-\lskip \advance\cartinner by-\rskip \cartouter=\hsize \advance\cartouter by 18pt % allow for 3pt kerns on either % side, and for 6pt waste from % each corner char \normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip % Flag to tell @lisp, etc., not to narrow margin. \let\nonarrowing=\comment \vbox\bgroup \baselineskip=0pt\parskip=0pt\lineskip=0pt \carttop \hbox\bgroup \hskip\lskip \vrule\kern3pt \vbox\bgroup \hsize=\cartinner \kern3pt \begingroup \baselineskip=\normbskip \lineskip=\normlskip \parskip=\normpskip \vskip -\parskip \def\Ecartouche{% \endgroup \kern3pt \egroup \kern3pt\vrule \hskip\rskip \egroup \cartbot \egroup \endgroup }} % This macro is called at the beginning of all the @example variants, % inside a group. \def\nonfillstart{% \aboveenvbreak \inENV % This group ends at the end of the body \hfuzz = 12pt % Don't be fussy \sepspaces % Make spaces be word-separators rather than space tokens. \singlespace \let\par = \lisppar % don't ignore blank lines \obeylines % each line of input is a line of output \parskip = 0pt \parindent = 0pt \emergencystretch = 0pt % don't try to avoid overfull boxes % @cartouche defines \nonarrowing to inhibit narrowing % at next level down. \ifx\nonarrowing\relax \advance \leftskip by \lispnarrowing \exdentamount=\lispnarrowing \let\exdent=\nofillexdent \let\nonarrowing=\relax \fi } % To ending an @example-like environment, we first end the paragraph % (via \afterenvbreak's vertical glue), and then the group. That way we % keep the zero \parskip that the environments set -- \parskip glue % will be inserted at the beginning of the next paragraph in the % document, after the environment. % \def\nonfillfinish{\afterenvbreak\endgroup}% % This macro is \def\lisp{\begingroup \nonfillstart \let\Elisp = \nonfillfinish \tt \rawbackslash % have \ input char produce \ char from current font \gobble } % Define the \E... control sequence only if we are inside the % environment, so the error checking in \end will work. % % We must call \lisp last in the definition, since it reads the % return following the @example (or whatever) command. % \def\example{\begingroup \def\Eexample{\nonfillfinish\endgroup}\lisp} \def\smallexample{\begingroup \def\Esmallexample{\nonfillfinish\endgroup}\lisp} \def\smalllisp{\begingroup \def\Esmalllisp{\nonfillfinish\endgroup}\lisp} % @smallexample and @smalllisp. This is not used unless the @smallbook % command is given. Originally contributed by Pavel@xerox. % \def\smalllispx{\begingroup \nonfillstart \let\Esmalllisp = \nonfillfinish \let\Esmallexample = \nonfillfinish % % Smaller interline space and fonts for small examples. \baselineskip 10pt \indexfonts \tt \rawbackslash % output the \ character from the current font \gobble } % This is @display; same as @lisp except use roman font. % \def\display{\begingroup \nonfillstart \let\Edisplay = \nonfillfinish \gobble } % This is @format; same as @display except don't narrow margins. % \def\format{\begingroup \let\nonarrowing = t \nonfillstart \let\Eformat = \nonfillfinish \gobble } % @flushleft (same as @format) and @flushright. % \def\flushleft{\begingroup \let\nonarrowing = t \nonfillstart \let\Eflushleft = \nonfillfinish \gobble } \def\flushright{\begingroup \let\nonarrowing = t \nonfillstart \let\Eflushright = \nonfillfinish \advance\leftskip by 0pt plus 1fill \gobble} % @quotation does normal linebreaking and narrows the margins. % \def\quotation{% \begingroup\inENV %This group ends at the end of the @quotation body {\parskip=0pt % because we will skip by \parskip too, later \aboveenvbreak}% \singlespace \parindent=0pt \let\Equotation = \nonfillfinish % @cartouche defines \nonarrowing to inhibit narrowing % at next level down. \ifx\nonarrowing\relax \advance \leftskip by \lispnarrowing \advance \rightskip by \lispnarrowing \exdentamount=\lispnarrowing \let\nonarrowing=\relax \fi} \message{defuns,} % Define formatter for defuns % First, allow user to change definition object font (\df) internally \def\setdeffont #1 {\csname DEF#1\endcsname} \newskip\defbodyindent \defbodyindent=.4in \newskip\defargsindent \defargsindent=50pt \newskip\deftypemargin \deftypemargin=12pt \newskip\deflastargmargin \deflastargmargin=18pt \newcount\parencount % define \functionparens, which makes ( and ) and & do special things. % \functionparens affects the group it is contained in. \def\activeparens{% \catcode`\(=\active \catcode`\)=\active \catcode`\&=\active \catcode`\[=\active \catcode`\]=\active} % Make control sequences which act like normal parenthesis chars. \let\lparen = ( \let\rparen = ) {\activeparens % Now, smart parens don't turn on until &foo (see \amprm) % Be sure that we always have a definition for `(', etc. For example, % if the fn name has parens in it, \boldbrax will not be in effect yet, % so TeX would otherwise complain about undefined control sequence. \global\let(=\lparen \global\let)=\rparen \global\let[=\lbrack \global\let]=\rbrack \gdef\functionparens{\boldbrax\let&=\amprm\parencount=0 } \gdef\boldbrax{\let(=\opnr\let)=\clnr\let[=\lbrb\let]=\rbrb} % Definitions of (, ) and & used in args for functions. % This is the definition of ( outside of all parentheses. \gdef\oprm#1 {{\rm\char`\(}#1 \bf \let(=\opnested % \global\advance\parencount by 1 } % % This is the definition of ( when already inside a level of parens. \gdef\opnested{\char`\(\global\advance\parencount by 1 } % \gdef\clrm{% Print a paren in roman if it is taking us back to depth of 0. % also in that case restore the outer-level definition of (. \ifnum \parencount=1 {\rm \char `\)}\sl \let(=\oprm \else \char `\) \fi \global\advance \parencount by -1 } % If we encounter &foo, then turn on ()-hacking afterwards \gdef\amprm#1 {{\rm\}\let(=\oprm \let)=\clrm\ } % \gdef\normalparens{\boldbrax\let&=\ampnr} } % End of definition inside \activeparens %% These parens (in \boldbrax) actually are a little bolder than the %% contained text. This is especially needed for [ and ] \def\opnr{{\sf\char`\(}} \def\clnr{{\sf\char`\)}} \def\ampnr{\&} \def\lbrb{{\bf\char`\[}} \def\rbrb{{\bf\char`\]}} % First, defname, which formats the header line itself. % #1 should be the function name. % #2 should be the type of definition, such as "Function". \def\defname #1#2{% % Get the values of \leftskip and \rightskip as they were % outside the @def... \dimen2=\leftskip \advance\dimen2 by -\defbodyindent \dimen3=\rightskip \advance\dimen3 by -\defbodyindent \noindent % \setbox0=\hbox{\hskip \deflastargmargin{\rm #2}\hskip \deftypemargin}% \dimen0=\hsize \advance \dimen0 by -\wd0 % compute size for first line \dimen1=\hsize \advance \dimen1 by -\defargsindent %size for continuations \parshape 2 0in \dimen0 \defargsindent \dimen1 % % Now output arg 2 ("Function" or some such) % ending at \deftypemargin from the right margin, % but stuck inside a box of width 0 so it does not interfere with linebreaking {% Adjust \hsize to exclude the ambient margins, % so that \rightline will obey them. \advance \hsize by -\dimen2 \advance \hsize by -\dimen3 \rlap{\rightline{{\rm #2}\hskip \deftypemargin}}}% % Make all lines underfull and no complaints: \tolerance=10000 \hbadness=10000 \advance\leftskip by -\defbodyindent \exdentamount=\defbodyindent {\df #1}\enskip % Generate function name } % Actually process the body of a definition % #1 should be the terminating control sequence, such as \Edefun. % #2 should be the "another name" control sequence, such as \defunx. % #3 should be the control sequence that actually processes the header, % such as \defunheader. \def\defparsebody #1#2#3{\begingroup\inENV% Environment for definitionbody \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2{\begingroup\obeylines\activeparens\spacesplit#3}% \parindent=0in \advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent \exdentamount=\defbodyindent \begingroup % \catcode 61=\active % 61 is `=' \obeylines\activeparens\spacesplit#3} \def\defmethparsebody #1#2#3#4 {\begingroup\inENV % \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2##1 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}}}% \parindent=0in \advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines\activeparens\spacesplit{#3{#4}}} \def\defopparsebody #1#2#3#4#5 {\begingroup\inENV % \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2##1 ##2 {\def#4{##1}% \begingroup\obeylines\activeparens\spacesplit{#3{##2}}}% \parindent=0in \advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines\activeparens\spacesplit{#3{#5}}} % These parsing functions are similar to the preceding ones % except that they do not make parens into active characters. % These are used for "variables" since they have no arguments. \def\defvarparsebody #1#2#3{\begingroup\inENV% Environment for definitionbody \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2{\begingroup\obeylines\spacesplit#3}% \parindent=0in \advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent \exdentamount=\defbodyindent \begingroup % \catcode 61=\active % \obeylines\spacesplit#3} % This is used for \def{tp,vr}parsebody. It could probably be used for % some of the others, too, with some judicious conditionals. % \def\parsebodycommon#1#2#3{% \begingroup\inENV % \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2##1 {\begingroup\obeylines\spacesplit{#3{##1}}}% \parindent=0in \advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines } \def\defvrparsebody#1#2#3#4 {% \parsebodycommon{#1}{#2}{#3}% \spacesplit{#3{#4}}% } % This loses on `@deftp {Data Type} {struct termios}' -- it thinks the % type is just `struct', because we lose the braces in `{struct % termios}' when \spacesplit reads its undelimited argument. Sigh. % \let\deftpparsebody=\defvrparsebody % % So, to get around this, we put \empty in with the type name. That % way, TeX won't find exactly `{...}' as an undelimited argument, and % won't strip off the braces. % \def\deftpparsebody #1#2#3#4 {% \parsebodycommon{#1}{#2}{#3}% \spacesplit{\parsetpheaderline{#3{#4}}}\empty } % Fine, but then we have to eventually remove the \empty *and* the % braces (if any). That's what this does, putting the result in \tptemp. % \def\removeemptybraces\empty#1\relax{\def\tptemp{#1}}% % After \spacesplit has done its work, this is called -- #1 is the final % thing to call, #2 the type name (which starts with \empty), and #3 % (which might be empty) the arguments. % \def\parsetpheaderline#1#2#3{% \removeemptybraces#2\relax #1{\tptemp}{#3}% }% \def\defopvarparsebody #1#2#3#4#5 {\begingroup\inENV % \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2##1 ##2 {\def#4{##1}% \begingroup\obeylines\spacesplit{#3{##2}}}% \parindent=0in \advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines\spacesplit{#3{#5}}} % Split up #2 at the first space token. % call #1 with two arguments: % the first is all of #2 before the space token, % the second is all of #2 after that space token. % If #2 contains no space token, all of it is passed as the first arg % and the second is passed as empty. {\obeylines \gdef\spacesplit#1#2^^M{\endgroup\spacesplitfoo{#1}#2 \relax\spacesplitfoo}% \long\gdef\spacesplitfoo#1#2 #3#4\spacesplitfoo{% \ifx\relax #3% #1{#2}{}\else #1{#2}{#3#4}\fi}} % So much for the things common to all kinds of definitions. % Define @defun. % First, define the processing that is wanted for arguments of \defun % Use this to expand the args and terminate the paragraph they make up \def\defunargs #1{\functionparens \sl % Expand, preventing hyphenation at `-' chars. % Note that groups don't affect changes in \hyphenchar. \hyphenchar\tensl=0 #1% \hyphenchar\tensl=45 \ifnum\parencount=0 \else \errmessage{unbalanced parens in @def arguments}\fi% \interlinepenalty=10000 \advance\rightskip by 0pt plus 1fil \endgraf\penalty 10000\vskip -\parskip\penalty 10000% } \def\deftypefunargs #1{% % Expand, preventing hyphenation at `-' chars. % Note that groups don't affect changes in \hyphenchar. \functionparens \tclose{#1}% avoid \code because of side effects on active chars \interlinepenalty=10000 \advance\rightskip by 0pt plus 1fil \endgraf\penalty 10000\vskip -\parskip\penalty 10000% } % Do complete processing of one @defun or @defunx line already parsed. % @deffn Command forward-char nchars \def\deffn{\defmethparsebody\Edeffn\deffnx\deffnheader} \def\deffnheader #1#2#3{\doind {fn}{\code{#2}}% \begingroup\defname {#2}{#1}\defunargs{#3}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @defun == @deffn Function \def\defun{\defparsebody\Edefun\defunx\defunheader} \def\defunheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index \begingroup\defname {#1}{Function}% \defunargs {#2}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @deftypefun int foobar (int @var{foo}, float @var{bar}) \def\deftypefun{\defparsebody\Edeftypefun\deftypefunx\deftypefunheader} % #1 is the data type. #2 is the name and args. \def\deftypefunheader #1#2{\deftypefunheaderx{#1}#2 \relax} % #1 is the data type, #2 the name, #3 the args. \def\deftypefunheaderx #1#2 #3\relax{% \doind {fn}{\code{#2}}% Make entry in function index \begingroup\defname {\code{#1} #2}{Function}% \deftypefunargs {#3}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @deftypefn {Library Function} int foobar (int @var{foo}, float @var{bar}) \def\deftypefn{\defmethparsebody\Edeftypefn\deftypefnx\deftypefnheader} % #1 is the classification. #2 is the data type. #3 is the name and args. \def\deftypefnheader #1#2#3{\deftypefnheaderx{#1}{#2}#3 \relax} % #1 is the classification, #2 the data type, #3 the name, #4 the args. \def\deftypefnheaderx #1#2#3 #4\relax{% \doind {fn}{\code{#3}}% Make entry in function index \begingroup \normalparens % notably, turn off `&' magic, which prevents % at least some C++ text from working \defname {\code{#2} #3}{#1}% \deftypefunargs {#4}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @defmac == @deffn Macro \def\defmac{\defparsebody\Edefmac\defmacx\defmacheader} \def\defmacheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index \begingroup\defname {#1}{Macro}% \defunargs {#2}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @defspec == @deffn Special Form \def\defspec{\defparsebody\Edefspec\defspecx\defspecheader} \def\defspecheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index \begingroup\defname {#1}{Special Form}% \defunargs {#2}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % This definition is run if you use @defunx % anywhere other than immediately after a @defun or @defunx. \def\deffnx #1 {\errmessage{@deffnx in invalid context}} \def\defunx #1 {\errmessage{@defunx in invalid context}} \def\defmacx #1 {\errmessage{@defmacx in invalid context}} \def\defspecx #1 {\errmessage{@defspecx in invalid context}} \def\deftypefnx #1 {\errmessage{@deftypefnx in invalid context}} \def\deftypeunx #1 {\errmessage{@deftypeunx in invalid context}} % @defmethod, and so on % @defop {Funny Method} foo-class frobnicate argument \def\defop #1 {\def\defoptype{#1}% \defopparsebody\Edefop\defopx\defopheader\defoptype} \def\defopheader #1#2#3{% \dosubind {fn}{\code{#2}}{on #1}% Make entry in function index \begingroup\defname {#2}{\defoptype{} on #1}% \defunargs {#3}\endgroup % } % @defmethod == @defop Method \def\defmethod{\defmethparsebody\Edefmethod\defmethodx\defmethodheader} \def\defmethodheader #1#2#3{% \dosubind {fn}{\code{#2}}{on #1}% entry in function index \begingroup\defname {#2}{Method on #1}% \defunargs {#3}\endgroup % } % @defcv {Class Option} foo-class foo-flag \def\defcv #1 {\def\defcvtype{#1}% \defopvarparsebody\Edefcv\defcvx\defcvarheader\defcvtype} \def\defcvarheader #1#2#3{% \dosubind {vr}{\code{#2}}{of #1}% Make entry in var index \begingroup\defname {#2}{\defcvtype{} of #1}% \defvarargs {#3}\endgroup % } % @defivar == @defcv {Instance Variable} \def\defivar{\defvrparsebody\Edefivar\defivarx\defivarheader} \def\defivarheader #1#2#3{% \dosubind {vr}{\code{#2}}{of #1}% Make entry in var index \begingroup\defname {#2}{Instance Variable of #1}% \defvarargs {#3}\endgroup % } % These definitions are run if you use @defmethodx, etc., % anywhere other than immediately after a @defmethod, etc. \def\defopx #1 {\errmessage{@defopx in invalid context}} \def\defmethodx #1 {\errmessage{@defmethodx in invalid context}} \def\defcvx #1 {\errmessage{@defcvx in invalid context}} \def\defivarx #1 {\errmessage{@defivarx in invalid context}} % Now @defvar % First, define the processing that is wanted for arguments of @defvar. % This is actually simple: just print them in roman. % This must expand the args and terminate the paragraph they make up \def\defvarargs #1{\normalparens #1% \interlinepenalty=10000 \endgraf\penalty 10000\vskip -\parskip\penalty 10000} % @defvr Counter foo-count \def\defvr{\defvrparsebody\Edefvr\defvrx\defvrheader} \def\defvrheader #1#2#3{\doind {vr}{\code{#2}}% \begingroup\defname {#2}{#1}\defvarargs{#3}\endgroup} % @defvar == @defvr Variable \def\defvar{\defvarparsebody\Edefvar\defvarx\defvarheader} \def\defvarheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index \begingroup\defname {#1}{Variable}% \defvarargs {#2}\endgroup % } % @defopt == @defvr {User Option} \def\defopt{\defvarparsebody\Edefopt\defoptx\defoptheader} \def\defoptheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index \begingroup\defname {#1}{User Option}% \defvarargs {#2}\endgroup % } % @deftypevar int foobar \def\deftypevar{\defvarparsebody\Edeftypevar\deftypevarx\deftypevarheader} % #1 is the data type. #2 is the name. \def\deftypevarheader #1#2{% \doind {vr}{\code{#2}}% Make entry in variables index \begingroup\defname {\code{#1} #2}{Variable}% \interlinepenalty=10000 \endgraf\penalty 10000\vskip -\parskip\penalty 10000 \endgroup} % @deftypevr {Global Flag} int enable \def\deftypevr{\defvrparsebody\Edeftypevr\deftypevrx\deftypevrheader} \def\deftypevrheader #1#2#3{\doind {vr}{\code{#3}}% \begingroup\defname {\code{#2} #3}{#1} \interlinepenalty=10000 \endgraf\penalty 10000\vskip -\parskip\penalty 10000 \endgroup} % This definition is run if you use @defvarx % anywhere other than immediately after a @defvar or @defvarx. \def\defvrx #1 {\errmessage{@defvrx in invalid context}} \def\defvarx #1 {\errmessage{@defvarx in invalid context}} \def\defoptx #1 {\errmessage{@defoptx in invalid context}} \def\deftypevarx #1 {\errmessage{@deftypevarx in invalid context}} \def\deftypevrx #1 {\errmessage{@deftypevrx in invalid context}} % Now define @deftp % Args are printed in bold, a slight difference from @defvar. \def\deftpargs #1{\bf \defvarargs{#1}} % @deftp Class window height width ... \def\deftp{\deftpparsebody\Edeftp\deftpx\deftpheader} \def\deftpheader #1#2#3{\doind {tp}{\code{#2}}% \begingroup\defname {#2}{#1}\deftpargs{#3}\endgroup} % This definition is run if you use @deftpx, etc % anywhere other than immediately after a @deftp, etc. \def\deftpx #1 {\errmessage{@deftpx in invalid context}} \message{cross reference,} % Define cross-reference macros \newwrite \auxfile \newif\ifhavexrefs % True if xref values are known. \newif\ifwarnedxrefs % True if we warned once that they aren't known. % \setref{foo} defines a cross-reference point named foo. \def\setref#1{% \dosetq{#1-title}{Ytitle}% \dosetq{#1-pg}{Ypagenumber}% \dosetq{#1-snt}{Ysectionnumberandtype}} \def\unnumbsetref#1{% \dosetq{#1-title}{Ytitle}% \dosetq{#1-pg}{Ypagenumber}% \dosetq{#1-snt}{Ynothing}} \def\appendixsetref#1{% \dosetq{#1-title}{Ytitle}% \dosetq{#1-pg}{Ypagenumber}% \dosetq{#1-snt}{Yappendixletterandtype}} % \xref, \pxref, and \ref generate cross-references to specified points. % For \xrefX, #1 is the node name, #2 the name of the Info % cross-reference, #3 the printed node name, #4 the name of the Info % file, #5 the name of the printed manual. All but the node name can be % omitted. % \def\pxref#1{\putwordsee{} \xrefX[#1,,,,,,,]} \def\xref#1{\putwordSee{} \xrefX[#1,,,,,,,]} \def\ref#1{\xrefX[#1,,,,,,,]} \def\xrefX[#1,#2,#3,#4,#5,#6]{\begingroup% \def\printedmanual{\ignorespaces #5}% \def\printednodename{\ignorespaces #3}% % \setbox1=\hbox{\printedmanual}% \setbox0=\hbox{\printednodename}% \ifdim \wd0=0pt% % No printed node name was explicitly given. \ifx SETxref-automatic-section-title % % This line should make the actual chapter or section title appear inside % the square brackets. Use the real section title if we have it. \ifdim \wd1>0pt% % It is in another manual, so we don't have it. \def\printednodename{\ignorespaces #1} \else% % We know the real title if we have the xref values. \ifhavexrefs \def\printednodename{\refx{#1-title}}% % Otherwise just copy the Info node name. \else \def\printednodename{\ignorespaces #1} \fi% \fi\def\printednodename{#1-title}% \else% This line just uses the node name. \def\printednodename{\ignorespaces #1}% \fi% ends \ifx SETxref-automatic-section-title \fi% ends \ifdim \wd0 % % % If we use \unhbox0 and \unhbox1 to print the node names, TeX does % not insert empty discretionaries after hyphens, which means that it % will not find a line break at a hyphen in a node names. Since some % manuals are best written with fairly long node names, containing % hyphens, this is a loss. Therefore, we simply give the text of % the node name again, so it is as if TeX is seeing it for the first % time. \ifdim \wd1>0pt \putwordsection{} ``\printednodename'' in \cite{\printedmanual}% \else% \turnoffactive% \refx{#1-snt}{} [\printednodename], \putwordpage\tie\refx{#1-pg}{}% \fi \endgroup} % \dosetq is the interface for calls from other macros % Use \turnoffactive so that punctuation chars such as underscore % work in node names. \def\dosetq #1#2{{\let\folio=0 \turnoffactive% \edef\next{\write\auxfile{\internalsetq {#1}{#2}}}% \next}} % \internalsetq {foo}{page} expands into % CHARACTERS 'xrdef {foo}{...expansion of \Ypage...} % When the aux file is read, ' is the escape character \def\internalsetq #1#2{'xrdef {#1}{\csname #2\endcsname}} % Things to be expanded by \internalsetq \def\Ypagenumber{\folio} \def\Ytitle{\thissection} \def\Ynothing{} \def\Ysectionnumberandtype{% \ifnum\secno=0 \putwordChapter\xreftie\the\chapno % \else \ifnum \subsecno=0 \putwordSection\xreftie\the\chapno.\the\secno % \else \ifnum \subsubsecno=0 % \putwordSection\xreftie\the\chapno.\the\secno.\the\subsecno % \else % \putwordSection\xreftie\the\chapno.\the\secno.\the\subsecno.\the\subsubsecno % \fi \fi \fi } \def\Yappendixletterandtype{% \ifnum\secno=0 \putwordAppendix\xreftie'char\the\appendixno{}% \else \ifnum \subsecno=0 \putwordSection\xreftie'char\the\appendixno.\the\secno % \else \ifnum \subsubsecno=0 % \putwordSection\xreftie'char\the\appendixno.\the\secno.\the\subsecno % \else % \putwordSection\xreftie'char\the\appendixno.\the\secno.\the\subsecno.\the\subsubsecno % \fi \fi \fi } \gdef\xreftie{'tie} % Use TeX 3.0's \inputlineno to get the line number, for better error % messages, but if we're using an old version of TeX, don't do anything. % \ifx\inputlineno\thisisundefined \let\linenumber = \empty % Non-3.0. \else \def\linenumber{\the\inputlineno:\space} \fi % Define \refx{NAME}{SUFFIX} to reference a cross-reference string named NAME. % If its value is nonempty, SUFFIX is output afterward. \def\refx#1#2{% \expandafter\ifx\csname X#1\endcsname\relax % If not defined, say something at least. $\langle$un\-de\-fined$\rangle$% \ifhavexrefs \message{\linenumber Undefined cross reference `#1'.}% \else \ifwarnedxrefs\else \global\warnedxrefstrue \message{Cross reference values unknown; you must run TeX again.}% \fi \fi \else % It's defined, so just use it. \csname X#1\endcsname \fi #2% Output the suffix in any case. } % Read the last existing aux file, if any. No error if none exists. % This is the macro invoked by entries in the aux file. \def\xrdef #1#2{ {\catcode`\'=\other\expandafter \gdef \csname X#1\endcsname {#2}}} \def\readauxfile{% \begingroup \catcode `\^^@=\other \catcode `\=\other \catcode `\=\other \catcode `\^^C=\other \catcode `\^^D=\other \catcode `\^^E=\other \catcode `\^^F=\other \catcode `\^^G=\other \catcode `\^^H=\other \catcode `\ =\other \catcode `\^^L=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode `\=\other \catcode 26=\other \catcode `\^^[=\other \catcode `\^^\=\other \catcode `\^^]=\other \catcode `\^^^=\other \catcode `\^^_=\other \catcode `\@=\other \catcode `\^=\other \catcode `\~=\other \catcode `\[=\other \catcode `\]=\other \catcode`\"=\other \catcode`\_=\other \catcode`\|=\other \catcode`\<=\other \catcode`\>=\other \catcode `\$=\other \catcode `\#=\other \catcode `\&=\other % `\+ does not work, so use 43. \catcode 43=\other % the aux file uses ' as the escape. % Turn off \ as an escape so we do not lose on % entries which were dumped with control sequences in their names. % For example, 'xrdef {$\leq $-fun}{page ...} made by @defun ^^ % Reference to such entries still does not work the way one would wish, % but at least they do not bomb out when the aux file is read in. \catcode `\{=1 \catcode `\}=2 \catcode `\%=\other \catcode `\'=0 \catcode `\\=\other \openin 1 \jobname.aux \ifeof 1 \else \closein 1 \input \jobname.aux \global\havexrefstrue \global\warnedobstrue \fi % Open the new aux file. Tex will close it automatically at exit. \openout \auxfile=\jobname.aux \endgroup} % Footnotes. \newcount \footnoteno % The trailing space in the following definition for supereject is % vital for proper filling; pages come out unaligned when you do a % pagealignmacro call if that space before the closing brace is % removed. \def\supereject{\par\penalty -20000\footnoteno =0 } % @footnotestyle is meaningful for info output only.. \let\footnotestyle=\comment \let\ptexfootnote=\footnote {\catcode `\@=11 % % Auto-number footnotes. Otherwise like plain. \gdef\footnote{% \global\advance\footnoteno by \@ne \edef\thisfootno{$^{\the\footnoteno}$}% % % In case the footnote comes at the end of a sentence, preserve the % extra spacing after we do the footnote number. \let\@sf\empty \ifhmode\edef\@sf{\spacefactor\the\spacefactor}\/\fi % % Remove inadvertent blank space before typesetting the footnote number. \unskip \thisfootno\@sf \footnotezzz }% % Don't bother with the trickery in plain.tex to not require the % footnote text as a parameter. Our footnotes don't need to be so general. % \long\gdef\footnotezzz#1{\insert\footins{% % We want to typeset this text as a normal paragraph, even if the % footnote reference occurs in (for example) a display environment. % So reset some parameters. \interlinepenalty\interfootnotelinepenalty \splittopskip\ht\strutbox % top baseline for broken footnotes \splitmaxdepth\dp\strutbox \floatingpenalty\@MM \leftskip\z@skip \rightskip\z@skip \spaceskip\z@skip \xspaceskip\z@skip \parindent\defaultparindent % % Hang the footnote text off the number. \hang \textindent{\thisfootno}% % % Don't crash into the line above the footnote text. Since this % expands into a box, it must come within the paragraph, lest it % provide a place where TeX can split the footnote. \footstrut #1\strut}% } }%end \catcode `\@=11 % Set the baselineskip to #1, and the lineskip and strut size % correspondingly. There is no deep meaning behind these magic numbers % used as factors; they just match (closely enough) what Knuth defined. % \def\lineskipfactor{.08333} \def\strutheightpercent{.70833} \def\strutdepthpercent {.29167} % \def\setleading#1{% \normalbaselineskip = #1\relax \normallineskip = \lineskipfactor\normalbaselineskip \normalbaselines \setbox\strutbox =\hbox{% \vrule width0pt height\strutheightpercent\baselineskip depth \strutdepthpercent \baselineskip }% } % @| inserts a changebar to the left of the current line. It should % surround any changed text. This approach does *not* work if the % change spans more than two lines of output. To handle that, we would % have adopt a much more difficult approach (putting marks into the main % vertical list for the beginning and end of each change). % \def\|{% % \vadjust can only be used in horizontal mode. \leavevmode % % Append this vertical mode material after the current line in the output. \vadjust{% % We want to insert a rule with the height and depth of the current % leading; that is exactly what \strutbox is supposed to record. \vskip-\baselineskip % % \vadjust-items are inserted at the left edge of the type. So % the \llap here moves out into the left-hand margin. \llap{% % % For a thicker or thinner bar, change the `1pt'. \vrule height\baselineskip width1pt % % This is the space between the bar and the text. \hskip 12pt }% }% } % For a final copy, take out the rectangles % that mark overfull boxes (in case you have decided % that the text looks ok even though it passes the margin). % \def\finalout{\overfullrule=0pt} % End of control word definitions. \message{and turning on texinfo input format.} \def\openindices{% \newindex{cp}% \newcodeindex{fn}% \newcodeindex{vr}% \newcodeindex{tp}% \newcodeindex{ky}% \newcodeindex{pg}% } % Set some numeric style parameters, for 8.5 x 11 format. %\hsize = 6.5in \newdimen\defaultparindent \defaultparindent = 15pt \parindent = \defaultparindent \parskip 18pt plus 1pt \setleading{15pt} \advance\topskip by 1.2cm % Prevent underfull vbox error messages. \vbadness=10000 % Following George Bush, just get rid of widows and orphans. \widowpenalty=10000 \clubpenalty=10000 % Use TeX 3.0's \emergencystretch to help line breaking, but if we're % using an old version of TeX, don't do anything. We want the amount of % stretch added to depend on the line length, hence the dependence on % \hsize. This makes it come to about 9pt for the 8.5x11 format. % \ifx\emergencystretch\thisisundefined % Allow us to assign to \emergencystretch anyway. \def\emergencystretch{\dimen0}% \else \emergencystretch = \hsize \divide\emergencystretch by 45 \fi % Use @smallbook to reset parameters for 7x9.5 format (or else 7x9.25) \def\smallbook{ % These values for secheadingskip and subsecheadingskip are % experiments. RJC 7 Aug 1992 \global\secheadingskip = 17pt plus 6pt minus 3pt \global\subsecheadingskip = 14pt plus 6pt minus 3pt \global\lispnarrowing = 0.3in \setleading{12pt} \advance\topskip by -1cm \global\parskip 3pt plus 1pt \global\hsize = 5in \global\vsize=7.5in \global\tolerance=700 \global\hfuzz=1pt \global\contentsrightmargin=0pt \global\pagewidth=\hsize \global\pageheight=\vsize \global\let\smalllisp=\smalllispx \global\let\smallexample=\smalllispx \global\def\Esmallexample{\Esmalllisp} } % Use @afourpaper to print on European A4 paper. \def\afourpaper{ \global\tolerance=700 \global\hfuzz=1pt \setleading{12pt} \global\parskip 15pt plus 1pt \global\vsize= 53\baselineskip \advance\vsize by \topskip %\global\hsize= 5.85in % A4 wide 10pt \global\hsize= 6.5in \global\outerhsize=\hsize \global\advance\outerhsize by 0.5in \global\outervsize=\vsize \global\advance\outervsize by 0.6in \global\pagewidth=\hsize \global\pageheight=\vsize } % Define macros to output various characters with catcode for normal text. \catcode`\"=\other \catcode`\~=\other \catcode`\^=\other \catcode`\_=\other \catcode`\|=\other \catcode`\<=\other \catcode`\>=\other \catcode`\+=\other \def\normaldoublequote{"} \def\normaltilde{~} \def\normalcaret{^} \def\normalunderscore{_} \def\normalverticalbar{|} \def\normalless{<} \def\normalgreater{>} \def\normalplus{+} % This macro is used to make a character print one way in ttfont % where it can probably just be output, and another way in other fonts, % where something hairier probably needs to be done. % % #1 is what to print if we are indeed using \tt; #2 is what to print % otherwise. Since all the Computer Modern typewriter fonts have zero % interword stretch (and shrink), and it is reasonable to expect all % typewriter fonts to have this, we can check that font parameter. % \def\ifusingtt#1#2{\ifdim \fontdimen3\the\font=0pt #1\else #2\fi} % Turn off all special characters except @ % (and those which the user can use as if they were ordinary). % Most of these we simply print from the \tt font, but for some, we can % use math or other variants that look better in normal text. \catcode`\"=\active \def\activedoublequote{{\tt \char '042}} \let"=\activedoublequote \catcode`\~=\active \def~{{\tt \char '176}} \chardef\hat=`\^ \catcode`\^=\active \def^{{\tt \hat}} \catcode`\_=\active \def_{\ifusingtt\normalunderscore\_} % Subroutine for the previous macro. \def\_{\lvvmode \kern.06em \vbox{\hrule width.3em height.1ex}} % \lvvmode is equivalent in function to \leavevmode. % Using \leavevmode runs into trouble when written out to % an index file due to the expansion of \leavevmode into ``\unhbox % \voidb@x'' ---which looks to TeX like ``\unhbox \voidb\x'' due to our % magic tricks with @. \def\lvvmode{\vbox to 0pt{}} \catcode`\|=\active \def|{{\tt \char '174}} \chardef \less=`\< \catcode`\<=\active \def<{{\tt \less}} \chardef \gtr=`\> \catcode`\>=\active \def>{{\tt \gtr}} \catcode`\+=\active \def+{{\tt \char 43}} %\catcode 27=\active %\def^^[{$\diamondsuit$} % Used sometimes to turn off (effectively) the active characters % even after parsing them. \def\turnoffactive{\let"=\normaldoublequote \let~=\normaltilde \let^=\normalcaret \let_=\normalunderscore \let|=\normalverticalbar \let<=\normalless \let>=\normalgreater \let+=\normalplus} % Set up an active definition for =, but don't enable it most of the time. {\catcode`\==\active \global\def={{\tt \char 61}}} \catcode`\@=0 % \rawbackslashxx output one backslash character in current font \global\chardef\rawbackslashxx=`\\ %{\catcode`\\=\other %@gdef@rawbackslashxx{\}} % \rawbackslash redefines \ as input to do \rawbackslashxx. {\catcode`\\=\active @gdef@rawbackslash{@let\=@rawbackslashxx }} % \normalbackslash outputs one backslash in fixed width font. \def\normalbackslash{{\tt\rawbackslashxx}} % Say @foo, not \foo, in error messages. \escapechar=`\@ % \catcode 17=0 % Define control-q \catcode`\\=\active % If a .fmt file is being used, we don't want the `\input texinfo' to show up. % That is what \eatinput is for; after that, the `\' should revert to printing % a backslash. % @gdef@eatinput input texinfo{@fixbackslash} @global@let\ = @eatinput % On the other hand, perhaps the file did not have a `\input texinfo'. Then % the first `\{ in the file would cause an error. This macro tries to fix % that, assuming it is called before the first `\' could plausibly occur. % @gdef@fixbackslash{@ifx\@eatinput @let\ = @normalbackslash @fi} %% These look ok in all fonts, so just make them not special. The @rm below %% makes sure that the current font starts out as the newly loaded cmr10 @catcode`@$=@other @catcode`@%=@other @catcode`@&=@other @catcode`@#=@other @textfonts @rm @c Local variables: @c page-delimiter: "^\\\\message" @c End: gdb-4.13/texinfo/gpl.texinfo 666 34562 1752 43770 5553126040 14424 0ustar fnfcygnus@c This GPL is meant to be included from other files. @c To format a standalone GPL, use license.texi. @center Version 2, June 1991 @display Copyright @copyright{} 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. @end display @unnumberedsec Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software---to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. @iftex @unnumberedsec TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION @end iftex @ifinfo @center TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION @end ifinfo @enumerate 0 @item This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The ``Program'', below, refers to any such program or work, and a ``work based on the Program'' means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term ``modification''.) Each licensee is addressed as ``you''. Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. @item You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. @item You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: @enumerate a @item You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. @item You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. @item If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) @end enumerate These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. @item You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: @enumerate a @item Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, @item Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, @item Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) @end enumerate The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. @item You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. @item You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. @item Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. @item If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. @item If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. @item The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and ``any later version'', you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. @item If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. @iftex @vskip -@baselineskip @vskip -@baselineskip @heading NO WARRANTY @end iftex @ifinfo @center NO WARRANTY @end ifinfo @item BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM ``AS IS'' WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. @item IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. @end enumerate @iftex @heading END OF TERMS AND CONDITIONS @end iftex @ifinfo @center END OF TERMS AND CONDITIONS @end ifinfo @page @unnumberedsec How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the ``copyright'' line and a pointer to where the full notice is found. @smallexample @var{one line to give the program's name and an idea of what it does.} Copyright (C) 19@var{yy} @var{name of author} 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 2 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, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. @end smallexample Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: @smallexample Gnomovision version 69, Copyright (C) 19@var{yy} @var{name of author} Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. @end smallexample The hypothetical commands @samp{show w} and @samp{show c} should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than @samp{show w} and @samp{show c}; they could even be mouse-clicks or menu items---whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a ``copyright disclaimer'' for the program, if necessary. Here is a sample; alter the names: @example @group Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. @var{signature of Ty Coon}, 1 April 1989 Ty Coon, President of Vice @end group @end example This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. gdb-4.13/texinfo/lgpl.texinfo 666 34562 1752 62215 5553126042 14575 0ustar fnfcygnus@c This LGPL is meant to be included from other files. @c To format a standalone LGPL, use liblic.texi. @ifset lgpl-appendix @appendix GNU LIBRARY GENERAL PUBLIC LICENSE @end ifset @ifclear lgpl-appendix @unnumbered GNU LIBRARY GENERAL PUBLIC LICENSE @end ifclear @center Version 2, June 1991 @display Copyright @copyright{} 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. [This is the first released version of the library GPL. It is numbered 2 because it goes with version 2 of the ordinary GPL.] @end display @unnumberedsec Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public Licenses are intended to guarantee your freedom to share and change free software---to make sure the software is free for all its users. This license, the Library General Public License, applies to some specially designated Free Software Foundation software, and to any other libraries whose authors decide to use it. You can use it for your libraries, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the library, or if you modify it. For example, if you distribute copies of the library, whether gratis or for a fee, you must give the recipients all the rights that we gave you. You must make sure that they, too, receive or can get the source code. If you link a program with the library, you must provide complete object files to the recipients so that they can relink them with the library, after making changes to the library and recompiling it. And you must show them these terms so they know their rights. Our method of protecting your rights has two steps: (1) copyright the library, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the library. Also, for each distributor's protection, we want to make certain that everyone understands that there is no warranty for this free library. If the library is modified by someone else and passed on, we want its recipients to know that what they have is not the original version, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that companies distributing free software will individually obtain patent licenses, thus in effect transforming the program into proprietary software. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. Most GNU software, including some libraries, is covered by the ordinary GNU General Public License, which was designed for utility programs. This license, the GNU Library General Public License, applies to certain designated libraries. This license is quite different from the ordinary one; be sure to read it in full, and don't assume that anything in it is the same as in the ordinary license. The reason we have a separate public license for some libraries is that they blur the distinction we usually make between modifying or adding to a program and simply using it. Linking a program with a library, without changing the library, is in some sense simply using the library, and is analogous to running a utility program or application program. However, in a textual and legal sense, the linked executable is a combined work, a derivative of the original library, and the ordinary General Public License treats it as such. Because of this blurred distinction, using the ordinary General Public License for libraries did not effectively promote software sharing, because most developers did not use the libraries. We concluded that weaker conditions might promote sharing better. However, unrestricted linking of non-free programs would deprive the users of those programs of all benefit from the free status of the libraries themselves. This Library General Public License is intended to permit developers of non-free programs to use free libraries, while preserving your freedom as a user of such programs to change the free libraries that are incorporated in them. (We have not seen how to achieve this as regards changes in header files, but we have achieved it as regards changes in the actual functions of the Library.) The hope is that this will lead to faster development of free libraries. The precise terms and conditions for copying, distribution and modification follow. Pay close attention to the difference between a ``work based on the library'' and a ``work that uses the library''. The former contains code derived from the library, while the latter only works together with the library. Note that it is possible for a library to be covered by the ordinary General Public License rather than by this special one. @iftex @unnumberedsec TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION @end iftex @ifinfo @center TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION @end ifinfo @enumerate 0 @item This License Agreement applies to any software library which contains a notice placed by the copyright holder or other authorized party saying it may be distributed under the terms of this Library General Public License (also called ``this License''). Each licensee is addressed as ``you''. A ``library'' means a collection of software functions and/or data prepared so as to be conveniently linked with application programs (which use some of those functions and data) to form executables. The ``Library'', below, refers to any such software library or work which has been distributed under these terms. A ``work based on the Library'' means either the Library or any derivative work under copyright law: that is to say, a work containing the Library or a portion of it, either verbatim or with modifications and/or translated straightforwardly into another language. (Hereinafter, translation is included without limitation in the term ``modification''.) ``Source code'' for a work means the preferred form of the work for making modifications to it. For a library, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the library. Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running a program using the Library is not restricted, and output from such a program is covered only if its contents constitute a work based on the Library (independent of the use of the Library in a tool for writing it). Whether that is true depends on what the Library does and what the program that uses the Library does. @item You may copy and distribute verbatim copies of the Library's complete source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and distribute a copy of this License along with the Library. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. @item You may modify your copy or copies of the Library or any portion of it, thus forming a work based on the Library, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: @enumerate a @item The modified work must itself be a software library. @item You must cause the files modified to carry prominent notices stating that you changed the files and the date of any change. @item You must cause the whole of the work to be licensed at no charge to all third parties under the terms of this License. @item If a facility in the modified Library refers to a function or a table of data to be supplied by an application program that uses the facility, other than as an argument passed when the facility is invoked, then you must make a good faith effort to ensure that, in the event an application does not supply such function or table, the facility still operates, and performs whatever part of its purpose remains meaningful. (For example, a function in a library to compute square roots has a purpose that is entirely well-defined independent of the application. Therefore, Subsection 2d requires that any application-supplied function or table used by this function must be optional: if the application does not supply it, the square root function must still compute square roots.) @end enumerate These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Library, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Library, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Library. In addition, mere aggregation of another work not based on the Library with the Library (or with a work based on the Library) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. @item You may opt to apply the terms of the ordinary GNU General Public License instead of this License to a given copy of the Library. To do this, you must alter all the notices that refer to this License, so that they refer to the ordinary GNU General Public License, version 2, instead of to this License. (If a newer version than version 2 of the ordinary GNU General Public License has appeared, then you can specify that version instead if you wish.) Do not make any other change in these notices. Once this change is made in a given copy, it is irreversible for that copy, so the ordinary GNU General Public License applies to all subsequent copies and derivative works made from that copy. This option is useful when you wish to copy part of the code of the Library into a program that is not a library. @item You may copy and distribute the Library (or a portion or derivative of it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange. If distribution of object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place satisfies the requirement to distribute the source code, even though third parties are not compelled to copy the source along with the object code. @item A program that contains no derivative of any portion of the Library, but is designed to work with the Library by being compiled or linked with it, is called a ``work that uses the Library''. Such a work, in isolation, is not a derivative work of the Library, and therefore falls outside the scope of this License. However, linking a ``work that uses the Library'' with the Library creates an executable that is a derivative of the Library (because it contains portions of the Library), rather than a ``work that uses the library''. The executable is therefore covered by this License. Section 6 states terms for distribution of such executables. When a ``work that uses the Library'' uses material from a header file that is part of the Library, the object code for the work may be a derivative work of the Library even though the source code is not. Whether this is true is especially significant if the work can be linked without the Library, or if the work is itself a library. The threshold for this to be true is not precisely defined by law. If such an object file uses only numerical parameters, data structure layouts and accessors, and small macros and small inline functions (ten lines or less in length), then the use of the object file is unrestricted, regardless of whether it is legally a derivative work. (Executables containing this object code plus portions of the Library will still fall under Section 6.) Otherwise, if the work is a derivative of the Library, you may distribute the object code for the work under the terms of Section 6. Any executables containing that work also fall under Section 6, whether or not they are linked directly with the Library itself. @item As an exception to the Sections above, you may also compile or link a ``work that uses the Library'' with the Library to produce a work containing portions of the Library, and distribute that work under terms of your choice, provided that the terms permit modification of the work for the customer's own use and reverse engineering for debugging such modifications. You must give prominent notice with each copy of the work that the Library is used in it and that the Library and its use are covered by this License. You must supply a copy of this License. If the work during execution displays copyright notices, you must include the copyright notice for the Library among them, as well as a reference directing the user to the copy of this License. Also, you must do one of these things: @enumerate a @item Accompany the work with the complete corresponding machine-readable source code for the Library including whatever changes were used in the work (which must be distributed under Sections 1 and 2 above); and, if the work is an executable linked with the Library, with the complete machine-readable ``work that uses the Library'', as object code and/or source code, so that the user can modify the Library and then relink to produce a modified executable containing the modified Library. (It is understood that the user who changes the contents of definitions files in the Library will not necessarily be able to recompile the application to use the modified definitions.) @item Accompany the work with a written offer, valid for at least three years, to give the same user the materials specified in Subsection 6a, above, for a charge no more than the cost of performing this distribution. @item If distribution of the work is made by offering access to copy from a designated place, offer equivalent access to copy the above specified materials from the same place. @item Verify that the user has already received a copy of these materials or that you have already sent this user a copy. @end enumerate For an executable, the required form of the ``work that uses the Library'' must include any data and utility programs needed for reproducing the executable from it. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. It may happen that this requirement contradicts the license restrictions of other proprietary libraries that do not normally accompany the operating system. Such a contradiction means you cannot use both them and the Library together in an executable that you distribute. @item You may place library facilities that are a work based on the Library side-by-side in a single library together with other library facilities not covered by this License, and distribute such a combined library, provided that the separate distribution of the work based on the Library and of the other library facilities is otherwise permitted, and provided that you do these two things: @enumerate a @item Accompany the combined library with a copy of the same work based on the Library, uncombined with any other library facilities. This must be distributed under the terms of the Sections above. @item Give prominent notice with the combined library of the fact that part of it is a work based on the Library, and explaining where to find the accompanying uncombined form of the same work. @end enumerate @item You may not copy, modify, sublicense, link with, or distribute the Library except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense, link with, or distribute the Library is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. @item You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Library or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Library (or any work based on the Library), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Library or works based on it. @item Each time you redistribute the Library (or any work based on the Library), the recipient automatically receives a license from the original licensor to copy, distribute, link with or modify the Library subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. @item If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Library at all. For example, if a patent license would not permit royalty-free redistribution of the Library by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Library. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply, and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. @item If the distribution and/or use of the Library is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Library under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. @item The Free Software Foundation may publish revised and/or new versions of the Library General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Library specifies a version number of this License which applies to it and ``any later version'', you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Library does not specify a license version number, you may choose any version ever published by the Free Software Foundation. @item If you wish to incorporate parts of the Library into other free programs whose distribution conditions are incompatible with these, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. @iftex @heading NO WARRANTY @end iftex @ifinfo @center NO WARRANTY @end ifinfo @item BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE LIBRARY ``AS IS'' WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. @item IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. @end enumerate @iftex @heading END OF TERMS AND CONDITIONS @end iftex @ifinfo @center END OF TERMS AND CONDITIONS @end ifinfo @page @unnumberedsec How to Apply These Terms to Your New Libraries If you develop a new library, and you want it to be of the greatest possible use to the public, we recommend making it free software that everyone can redistribute and change. You can do so by permitting redistribution under these terms (or, alternatively, under the terms of the ordinary General Public License). To apply these terms, attach the following notices to the library. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the ``copyright'' line and a pointer to where the full notice is found. @smallexample @var{one line to give the library's name and an idea of what it does.} Copyright (C) @var{year} @var{name of author} This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. @end smallexample Also add information on how to contact you by electronic and paper mail. You should also get your employer (if you work as a programmer) or your school, if any, to sign a ``copyright disclaimer'' for the library, if necessary. Here is a sample; alter the names: @example Yoyodyne, Inc., hereby disclaims all copyright interest in the library `Frob' (a library for tweaking knobs) written by James Random Hacker. @var{signature of Ty Coon}, 1 April 1990 Ty Coon, President of Vice @end example That's all there is to it! gdb-4.13/texinfo/tex3patch 777 34562 1752 3342 5340770634 14054 0ustar fnfcygnus#!/bin/sh # Auxiliary script to work around TeX 3.0 bug. # patches texinfo.tex in current directory, or in directory given as arg. ANYVERSION=no for arg in $1 $2 do case $arg in --dammit | -d ) ANYVERSION=yes ;; * ) dir=$arg esac done if [ -z "$dir" ]; then dir='.' fi if [ \( 2 -lt $# \) -o \ \( ! -f $dir/texinfo.tex \) ]; then echo "To patch texinfo.tex for peaceful coexistence with Unix TeX 3.0," echo "run $0" echo "with no arguments in the same directory as texinfo.tex; or run" echo " $0 DIRECTORY" echo "(where DIRECTORY is a path leading to texinfo.tex)." exit fi if [ -z "$TMPDIR" ]; then TMPDIR=/tmp fi echo "Checking for \`dummy.tfm'" ( cd $TMPDIR; tex '\relax \batchmode \font\foo=dummy \bye' ) grep -s '3.0' $TMPDIR/texput.log if [ 1 = "$?" -a "$ANYVERSION" != "yes" ]; then echo "You probably do not need this patch," echo "since your TeX does not seem to be version 3.0." echo "If you insist on applying the patch, run $0" echo "again with the option \`--dammit'" exit fi grep -s 'file not found' $TMPDIR/texput.log if [ 0 = $? ]; then echo "This patch requires the dummy font metric file \`dummy.tfm'," echo "which does not seem to be part of your TeX installation." echo "Please get your TeX maintainer to install \`dummy.tfm'," echo "then run this script again." exit fi rm $TMPDIR/texput.log echo "Patching $dir/texinfo.tex" sed -e 's/%%*\\font\\nullfont/\\font\\nullfont/' \ $dir/texinfo.tex >$TMPDIR/texinfo.tex mv $dir/texinfo.tex $dir/texinfo.tex-distrib; mv $TMPDIR/texinfo.tex $dir if [ 0 = $? ]; then echo "Patched $dir/texinfo.tex to avoid TeX 3.0 bug." echo "The original version is saved as $dir/texinfo.tex-distrib." else echo "Patch failed. Sorry." fi